1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_c_vs98.F 5C> The nwxcm_c_vs98 functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_c_vs98 functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& {{1}\over{\rho_\alpha^{{{2}\over{3}}}}}\\\\ 16C> {\it t_2} &=& {{1}\over{\sqrt{\rho_\alpha}}}\\\\ 17C> {\it t_3} &=& {{1}\over{\rho_\alpha^{{{1}\over{3}}}}}\\\\ 18C> {\it t_4} &=& {{1}\over{\rho_\alpha^{{{1}\over{6}}}}}\\\\ 19C> {\it t_5} &=& -6.903522198342671 \times 10^{-18}\,\log 20C> \left({{16.08197949869254}\over{5.98255043577108\,{\it t_4} 21C> +2.225569421150687\,{\it t_3}+0.8004286349993635\,{\it t_2} 22C> +0.1897004325747558\,{\it t_1}}}+1.0\right)\, 23C> \left(0.1325688999052018\,{\it t_3}+1.0\right)-0.0310907 24C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 25C> \it t_4}+3.844746237447211\,{\it t_3}+1.644733775567609\,{ 26C> \it t_2}+0.2405871291288192\,{\it t_1}}}+1.0\right)\, 27C> \left(0.1274696188700087\,{\it t_3}+1.0\right)\\\\ 28C> {\it t_6} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 29C> {\it t_7} &=& {\it t_6}\,\sigma_{\alpha\alpha}\\\\ 30C> {\it t_8} &=& {{2.0\,\tau_\alpha}\over{\rho_\alpha^{{{5} 31C> \over{3}}}}}\\\\ 32C> {\it t_9} &=& 0.00515088\,\left({\it t_8}+{\it t_7} 33C> -9.11559972\right)+1.0\\\\ 34C> {\it t_{10}} &=& {{1}\over{{\it t_9}}}\\\\ 35C> {\it t_{11}} &=& {\it param}\left(7\right)\\\\ 36C> {\it t_{12}} &=& {\it param}\left(10\right)\\\\ 37C> {\it t_{13}} &=& {{1}\over{{\it t_9}^2}}\\\\ 38C> {\it t_{14}} &=& {\it param}\left(11\right)\\\\ 39C> {\it t_{15}} &=& {\it t_8}-9.11559972\\\\ 40C> {\it t_{16}} &=& {\it param}\left(12\right)\\\\ 41C> {\it t_{17}} &=& {\it param}\left(8\right)\\\\ 42C> {\it t_{18}} &=& {\it param}\left(9\right)\\\\ 43C> {\it t_{19}} &=& {{1}\over{\rho_\beta^{{{2}\over{3}}}}}\\\\ 44C> {\it t_{20}} &=& {{1}\over{\sqrt{\rho_\beta}}}\\\\ 45C> {\it t_{21}} &=& {{1}\over{\rho_\beta^{{{1}\over{3}}}}}\\\\ 46C> {\it t_{22}} &=& {{1}\over{\rho_\beta^{{{1}\over{6}}}}}\\\\ 47C> {\it t_{23}} &=& -6.903522198342671 \times 10^{-18} 48C> \,\log \left({{16.08197949869254}\over{5.98255043577108\,{ 49C> \it t_{22}}+2.225569421150687\,{\it t_{21}}+0.8004286349993635 50C> \,{\it t_{20}}+0.1897004325747558\,{\it t_{19}}}}+1.0\right) 51C> \,\left(0.1325688999052018\,{\it t_{21}}+1.0\right)-0.0310907 52C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 53C> \it t_{22}}+3.844746237447211\,{\it t_{21}}+1.644733775567609 54C> \,{\it t_{20}}+0.2405871291288192\,{\it t_{19}}}}+1.0\right) 55C> \,\left(0.1274696188700087\,{\it t_{21}}+1.0\right)\\\\ 56C> {\it t_{24}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 57C> {\it t_{25}} &=& {\it t_{24}}\,\sigma_{\beta\beta}\\\\ 58C> {\it t_{26}} &=& {{2.0\,\tau_\beta}\over{\rho_\beta^{{{5} 59C> \over{3}}}}}\\\\ 60C> {\it t_{27}} &=& 0.00515088\,\left({\it t_{26}}+{\it t_{25}} 61C> -9.11559972\right)+1.0\\\\ 62C> {\it t_{28}} &=& {{1}\over{{\it t_{27}}}}\\\\ 63C> {\it t_{29}} &=& {{1}\over{{\it t_{27}}^2}}\\\\ 64C> {\it t_{30}} &=& {\it t_{26}}-9.11559972\\\\ 65C> {\it t_{31}} &=& \rho_\beta+\rho_\alpha\\\\ 66C> {\it t_{32}} &=& {{1}\over{{\it t_{31}}^{{{1}\over{3}}}}}\\\\ 67C> {\it t_{33}} &=& \rho_\alpha-\rho_\beta\\\\ 68C> {\it t_{34}} &=& {\it t_{33}}^4\\\\ 69C> {\it t_{35}} &=& {{1}\over{{\it t_{31}}^4}}\\\\ 70C> {\it t_{36}} &=& {{1}\over{{\it t_{31}}}}\\\\ 71C> {\it t_{37}} &=& \left({\it t_{33}}\,{\it t_{36}} 72C> +1.0\right)^{{{4}\over{3}}}+\left(1.0-{\it t_{33}}\,{ 73C> \it t_{36}}\right)^{{{4}\over{3}}}-2.0\\\\ 74C> {\it t_{38}} &=& -1.923661050931536\,{\it t_{34}}\,{\it t_{35}} 75C> \,{\it t_{37}}\\\\ 76C> {\it t_{39}} &=& {{1}\over{{\it t_{31}}^{{{2}\over{3}}}}}\\\\ 77C> {\it t_{40}} &=& {{1}\over{\sqrt{{\it t_{31}}}}}\\\\ 78C> {\it t_{41}} &=& {{1}\over{{\it t_{31}}^{{{1}\over{6}}}}}\\\\ 79C> {\it t_{42}} &=& 0.00304966\,\left({\it t_{26}}+{\it t_8}+{ 80C> \it t_{25}}+{\it t_7}-18.23119944\right)+1.0\\\\ 81C> {\it t_{43}} &=& {{1}\over{{\it t_{42}}}}\\\\ 82C> {\it t_{44}} &=& {\it t_{25}}+{\it t_7}\\\\ 83C> {\it t_{45}} &=& {{1}\over{{\it t_{42}}^2}}\\\\ 84C> {\it t_{46}} &=& {\it t_{26}}+{\it t_8}-18.23119944\\\\ 85C> {\it t_{47}} &=& {{1}\over{\rho_s^{{{2}\over{3}}}}}\\\\ 86C> {\it t_{48}} &=& {{1}\over{\sqrt{\rho_s}}}\\\\ 87C> {\it t_{49}} &=& {{1}\over{\rho_s^{{{1}\over{3}}}}}\\\\ 88C> {\it t_{50}} &=& {{1}\over{\rho_s^{{{1}\over{6}}}}}\\\\ 89C> {\it t_{51}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 90C> {\it t_{52}} &=& {{2.0\,\tau_s}\over{\rho_s^{{{5}\over{3}}}}}\\\\ 91C> {\it t_{53}} &=& 0.00515088\,\left({\it t_{52}}+{\it t_{51}} 92C> \,\sigma_{ss}-9.11559972\right)+1.0\\\\ 93C> {\it t_{54}} &=& {{1}\over{{\it t_{53}}}}\\\\ 94C> {\it t_{55}} &=& {{1}\over{{\it t_{53}}^2}}\\\\ 95C> {\it t_{56}} &=& {\it t_{52}}-9.11559972\\\\ 96C> f &=& 1.0\,\left({\it t_{31}}\,\left(-0.0598079686361971\,{ 97C> \it t_{34}}\,{\it t_{35}}\,\left(0.1274696188700087\,{ 98C> \it t_{32}}+1.0\right)\,{\it t_{37}}\,\log 99C> \left({{32.16395899738507}\over{11.12037486309469\,{\it t_{41}} 100C> +3.844746237447211\,{\it t_{32}}+1.644733775567609\,{\it t_{40}} 101C> +0.2405871291288192\,{\it t_{39}}}}+1.0\right) 102C> +0.01975163132168077\,\left(0.06901399211255825\,{\it t_{32}} 103C> +1.0\right)\,\left({\it t_{38}}+1.923661050931536\,{ 104C> \it t_{37}}\right)\,\log \left({{29.60881320326807} 105C> \over{8.15741470348764\,{\it t_{41}}+2.247591863577616\,{ 106C> \it t_{32}}+0.4300972471276643\,{\it t_{40}} 107C> +0.1911512595127337\,{\it t_{39}}}}+1.0\right)-0.0621814 108C> \,\left(0.1325688999052018\,{\it t_{32}}+1.0\right)\,\left({ 109C> \it t_{38}}+1.0\right)\,\log \left({{16.08197949869254} 110C> \over{5.98255043577108\,{\it t_{41}}+2.225569421150687\,{ 111C> \it t_{32}}+0.8004286349993635\,{\it t_{40}} 112C> +0.1897004325747558\,{\it t_{39}}}}+1.0\right)\right)-{ 113C> \it t_{23}}\,\rho_\beta-{\it t_5}\,\rho_\alpha\right)\,{ 114C> \it t_{43}}\,\left({\it param}\left(3\right)\,{\it t_{46}} 115C> \,{\it t_{43}}+{\it param}\left(2\right)\,{\it t_{44}}\,{ 116C> \it t_{43}}+{\it param}\left(6\right)\,{\it t_{46}}^2\,{ 117C> \it t_{45}}+{\it param}\left(5\right)\,{\it t_{44}}\,{ 118C> \it t_{46}}\,{\it t_{45}}+{\it param}\left(4\right)\,{ 119C> \it t_{44}}^2\,{\it t_{45}}+{\it param}\left(1\right)\right) 120C> +1.0\,{\it t_{23}}\,\rho_\beta\,\left(1.0-{{0.125\, 121C> \sigma_{\beta\beta}}\over{\rho_\beta\,\tau_\beta}}\right)\,{ 122C> \it t_{28}}\,\left({\it t_{18}}\,{\it t_{30}}\,{\it t_{28}} 123C> +{\it t_{17}}\,{\it t_{24}}\,\sigma_{\beta\beta}\,{\it t_{28}} 124C> +{\it t_{16}}\,{\it t_{30}}^2\,{\it t_{29}}+{\it t_{14}}\,{ 125C> \it t_{24}}\,\sigma_{\beta\beta}\,{\it t_{30}}\,{\it t_{29}} 126C> +{{{\it t_{12}}\,\sigma_{\beta\beta}^2\,{\it t_{29}}} 127C> \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{11}}\right)+1.0 128C> \,{\it t_5}\,\rho_\alpha\,\left(1.0-{{0.125\, 129C> \sigma_{\alpha\alpha}}\over{\rho_\alpha\,\tau_\alpha}}\right) 130C> \,{\it t_{10}}\,\left({\it t_{18}}\,{\it t_{15}}\,{\it t_{10}} 131C> +{\it t_{17}}\,{\it t_6}\,\sigma_{\alpha\alpha}\,{\it t_{10}} 132C> +{\it t_{16}}\,{\it t_{15}}^2\,{\it t_{13}}+{\it t_{14}}\,{ 133C> \it t_6}\,\sigma_{\alpha\alpha}\,{\it t_{15}}\,{\it t_{13}} 134C> +{{{\it t_{12}}\,\sigma_{\alpha\alpha}^2\,{\it t_{13}}} 135C> \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{11}}\right)\\\\ 136C> g &=& 0\\\\ 137C> G &=& 1.0\,\left(-6.903522198342671 \times 10^{-18} 138C> \,\log \left({{16.08197949869254}\over{5.98255043577108\,{ 139C> \it t_{50}}+2.225569421150687\,{\it t_{49}}+0.8004286349993635 140C> \,{\it t_{48}}+0.1897004325747558\,{\it t_{47}}}}+1.0\right) 141C> \,\left(0.1325688999052018\,{\it t_{49}}+1.0\right)-0.0310907 142C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 143C> \it t_{50}}+3.844746237447211\,{\it t_{49}}+1.644733775567609 144C> \,{\it t_{48}}+0.2405871291288192\,{\it t_{47}}}}+1.0\right) 145C> \,\left(0.1274696188700087\,{\it t_{49}}+1.0\right)\right) 146C> \,\rho_s\,\left(1.0-{{0.125\,\sigma_{ss}}\over{\rho_s 147C> \,\tau_s}}\right)\,{\it t_{54}}\,\left({\it t_{18}}\,{ 148C> \it t_{56}}\,{\it t_{54}}+{\it t_{17}}\,{\it t_{51}}\, 149C> \sigma_{ss}\,{\it t_{54}}+{\it t_{16}}\,{\it t_{56}}^2\,{ 150C> \it t_{55}}+{\it t_{14}}\,{\it t_{51}}\,\sigma_{ss}\,{ 151C> \it t_{56}}\,{\it t_{55}}+{{{\it t_{12}}\,\sigma_{ss}^2\,{ 152C> \it t_{55}}}\over{\rho_s^{{{16}\over{3}}}}}+{ 153C> \it t_{11}}\right)\\\\ 154C> \f} 155C> 156C> Code generated with Maxima 5.34.0 [2] 157C> driven by autoxc-Ds [3]. 158C> 159C> ### References ### 160C> 161C> [1] T van Voorhis, GE Scuseria, J.Chem.Phys. 109, 400 (1998) , DOI: 162C> <a href="https://doi.org/10.1063/1.3005348 "> 163C> 10.1063/1.3005348 </a> 164C> 165C> [2] Maxima, a computer algebra system, 166C> <a href="http://maxima.sourceforge.net/"> 167C> http://maxima.sourceforge.net/</a> 168C> 169C> [3] autoxc-Ds, revision 27207 2015-06-23 170C> 171 subroutine nwxcm_c_vs98(param,tol_rho,ipol,nq,wght, 172 +rho,rgamma,tau,fnc,Amat,Cmat,Mmat) 173c $Id: $ 174#ifdef NWXC_QUAD_PREC 175 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 176 integer, parameter :: rk=selected_real_kind(30) 177#else 178 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 179 integer, parameter :: rk=selected_real_kind(15) 180#endif 181#include "nwxc_param.fh" 182 double precision param(*) !< [Input] Parameters of functional 183 double precision tol_rho !< [Input] The lower limit on the density 184 integer ipol !< [Input] The number of spin channels 185 integer nq !< [Input] The number of points 186 double precision wght !< [Input] The weight of the functional 187 double precision rho(nq,NCOL_RHO) !< [Input] The density 188 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 189 !< gradients 190 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 191 double precision fnc(nq) !< [Output] The value of the functional 192c 193c Sampling Matrices for the XC Kernel 194c 195 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 196 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 197 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 198 integer iq 199 double precision tmp 200 double precision rhoa,rhob 201 double precision gammaaa,gammaab,gammabb 202 double precision taua,taub 203 double precision nwxcm_heaviside 204 external nwxcm_heaviside 205!DIR$ NOVECTOR 206 do iq = 1, nq 207 if (ipol.eq.1) then 208 rhoa = 0.5d0*rho(iq,R_T) 209 gammaaa = 0.25d0*rgamma(iq,G_TT) 210 taua = 0.5d0*tau(iq,T_T) 211 if (rhoa.gt.tol_rho) then 212 if (taua.gt.tol_rho) then 213 t1 = 1/rhoa**6.666666666666666d-1 214 t2 = rhoa**5.0d-1 215 t3 = 1/t2 216 t4 = 1/rhoa**3.333333333333333d-1 217 t5 = 1/rhoa**1.6666666666666666d-1 218 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 219 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 220 t7 = 3.216395899738507d+1/t6+1.0d+0 221 t8 = log(t7) 222 t9 = 1.274696188700087d-1*t4+1.0d+0 223 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 224 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 225 t11 = 1.6081979498692536d+1/t10+1.0d+0 226 t12 = log(t11) 227 t13 = 1.3256889990520176d-1*t4+1.0d+0 228 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 229 1 12*t13 230 t15 = 1/rhoa 231 t16 = 1/taua 232 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 233 t18 = 1/rhoa**2.6666666666666666d+0 234 t19 = 1/rhoa**1.6666666666666669d+0 235 t20 = 2.0d+0*t19*taua 236 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 237 t22 = 1/t21 238 t23 = param(10) 239 t24 = gammaaa**2 240 t25 = 1/rhoa**5.333333333333333d+0 241 t26 = 1/t21**2 242 t27 = param(11) 243 t28 = t20-9.11559972d+0 244 t29 = param(12) 245 t30 = t28**2 246 t31 = param(8) 247 t32 = param(9) 248 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 249 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 250 t34 = -2*rhoa*t14 251 t35 = 4.0d+0*t19*taua 252 t36 = 3.04966d-3*(t35+2*gammaaa*t18-1.823119944d+1)+1.0d+0 253 t37 = 1/t36 254 t38 = param(4) 255 t39 = 1/t36**2 256 t40 = param(5) 257 t41 = t35-1.823119944d+1 258 t42 = param(6) 259 t43 = t41**2 260 t44 = param(2) 261 t45 = param(3) 262 t46 = t37*t41*t45+2*gammaaa*t18*t37*t44+t39*t42*t43+2*gamm 263 1 aaa*t18*t39*t40*t41+4*t24*t25*t38*t39+param(1) 264 t47 = 1/rhoa**3.6666666666666664d+0 265 t48 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 266 1 0*gammaaa*t47 267 t49 = 1/t21**3 268 t50 = 1/rhoa**6.333333333333333d+0 269 t51 = 1/t2**3 270 t52 = 1/rhoa**1.3333333333333333d+0 271 t53 = 1/rhoa**1.1666666666666667d+0 272 t54 = 1.0d+0*(-1.8533958105157808d+0*t53-1.281582079149070 273 1 4d+0*t52-8.223668877838045d-1*t51-1.6039141941921276d-1 274 2 *t19)*t9/(t6**2*t7)+1.3210398931339265d-3*t52*t8+1.1102 275 3 230246251565d-16*t13*(-9.970917392951799d-1*t53-7.41856 276 4 4737168958d-1*t52-4.002143174996817d-1*t51-1.2646695504 277 5 98372d-1*t19)/(t10**2*t11)+3.0506411443514264d-19*t12*t 278 6 52 279 t55 = 1.414213562373095d+0 280 t56 = 7.937005259840998d-1 281 t57 = 2.2255694211506874d+0*t4*t56+8.004286349993635d-1*t3 282 1 /t55+5.329846514438382d+0*t5+1.1950378408754898d-1*t1 283 t58 = 1.6081979498692536d+1/t57+1.0d+0 284 t59 = log(t58) 285 t60 = 1.3256889990520176d-1*t4*t56+1.0d+0 286 t61 = t34-1.243628d-1*rhoa*t59*t60 287 t62 = 1/t36**3 288 t63 = 3.968502629920499d-1 289 t64 = 1/rhoa**8 290 t65 = 1/rhoa**7 291 t66 = 1/rhoa**4.333333333333333d+0 292 fnc(iq) = (1.0d+0*t37*t46*(t34-1.243628d-1*rhoa*(1.0522000 293 1 558389212d-1*t4+1.0d+0)*log(1.6081979498692536d+1/(5.32 294 2 9846514438383d+0*t5+1.766435620181429d+0*t4+5.659885156 295 3 639418d-1*t3+1.19503784087549d-1*t1)+1.0d+0))+2.0d+0*rh 296 4 oa*t14*t17*t22*t33)*wght+fnc(iq) 297 Amat(iq,D1_RA) = (t37*(1.0d+0*t61*(-3.3333333333333337d+0* 298 1 t18*t37*t45*taua-6.666666666666667d+0*t18*t39*t41*t42*t 299 2 aua-6.666666666666667d+0*gammaaa*t25*t39*t40*taua-6.099 300 3 32d-3*t42*t43*t48*t62-1.219864d-2*gammaaa*t18*t40*t41*t 301 4 48*t62-2.439728d-2*t24*t25*t38*t48*t62-1.06666666666666 302 5 66d+1*t24*t38*t39*t50-3.04966d-3*t39*t41*t45*t48-6.0993 303 6 2d-3*gammaaa*t18*t39*t44*t48-2.6666666666666666d+0*gamm 304 7 aaa*t37*t44*t47-2.6666666666666666d+0*gammaaa*t39*t40*t 305 8 41*t47)+1.0d+0*t46*(3.1090699999999993d-2*t8*t9+2*rhoa* 306 9 (1.0d+0*t60*(-7.418564737168958d-1*t52*t63-4.0021431749 307 : 96817d-1*t51/t55**3-4.4415387620319857d-1*t53-3.9834594 308 ; 695849657d-2*t19)/(t57**2*t58)+2.747773264188437d-3*t52 309 < *t59*t63)-6.21814d-2*t59*t60-rhoa*t54+6.903522198342671 310 = d-18*t12*t13))+t22*(1.0d+0*rhoa*t14*t17*(-3.33333333333 311 > 33337d+0*t18*t22*t32*taua-6.666666666666667d+0*t18*t26* 312 ? t28*t29*taua-3.3333333333333337d+0*gammaaa*t25*t26*t27* 313 @ taua-5.333333333333333d+0*t23*t24*t26*t50-1.030176d-2*t 314 1 29*t30*t48*t49-1.030176d-2*gammaaa*t18*t27*t28*t48*t49- 315 2 1.030176d-2*t23*t24*t25*t48*t49-5.15088d-3*t26*t28*t32* 316 3 t48-5.15088d-3*gammaaa*t18*t26*t31*t48-2.66666666666666 317 4 66d+0*gammaaa*t22*t31*t47-2.6666666666666666d+0*gammaaa 318 5 *t26*t27*t28*t47)+1.0d+0*rhoa*t17*t33*t54+1.0d+0*t14*t1 319 6 7*t33)-3.04966d-3*t39*t46*t48*t61-5.15088d-3*rhoa*t14*t 320 7 17*t26*t33*t48+1.25d-1*gammaaa*t14*t15*t16*t22*t33)*wgh 321 8 t+Amat(iq,D1_RA) 322 Cmat(iq,D1_GAA) = (1.0d+0*t37*t61*(-2.439728d-2*t24*t38*t6 323 1 2*t64-6.09932d-3*t18*t42*t43*t62-1.219864d-2*gammaaa*t2 324 2 5*t40*t41*t62-3.04966d-3*t18*t39*t41*t45-6.09932d-3*gam 325 3 maaa*t25*t39*t44+t18*t37*t44+t18*t39*t40*t41+4*gammaaa* 326 4 t25*t38*t39)+1.0d+0*rhoa*t14*t17*t22*(-1.030176d-2*t23* 327 5 t24*t49*t64-1.030176d-2*t18*t29*t30*t49-1.030176d-2*gam 328 6 maaa*t25*t27*t28*t49-5.15088d-3*t18*t26*t28*t32-5.15088 329 7 d-3*gammaaa*t25*t26*t31+t18*t22*t31+t18*t26*t27*t28+2*g 330 8 ammaaa*t23*t25*t26)-3.04966d-3*t18*t39*t46*t61-5.15088d 331 9 -3*t14*t17*t19*t26*t33-1.25d-1*t14*t16*t22*t33)*wght+Cm 332 : at(iq,D1_GAA) 333 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 334 Mmat(iq,D1_TA) = (1.25d-1*gammaaa*t14*t22*t33/taua**2+1.0d 335 1 +0*t37*t61*(-2.439728d-2*gammaaa*t40*t41*t62*t66-1.2198 336 2 64d-2*gammaaa*t39*t44*t66+4.0d+0*gammaaa*t39*t40*t66-4. 337 3 879456d-2*t24*t38*t62*t65-1.219864d-2*t19*t42*t43*t62-6 338 4 .09932d-3*t19*t39*t41*t45+2.0d+0*t19*t37*t45+4.0d+0*t19 339 5 *t39*t41*t42)+1.0d+0*rhoa*t14*t17*t22*(-2.060352d-2*gam 340 6 maaa*t27*t28*t49*t66-1.030176d-2*gammaaa*t26*t31*t66+2. 341 7 0d+0*gammaaa*t26*t27*t66-2.060352d-2*t23*t24*t49*t65-2. 342 8 060352d-2*t19*t29*t30*t49-1.030176d-2*t19*t26*t28*t32+2 343 9 .0d+0*t19*t22*t32+4.0d+0*t19*t26*t28*t29)-6.09932d-3*t1 344 : 9*t39*t46*t61-1.030176d-2*t1*t14*t17*t26*t33)*wght+Mmat 345 ; (iq,D1_TA) 346 else 347 t1 = 1/rhoa**1.6666666666666669d+0 348 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 349 t3 = 1/t2 350 t4 = param(12) 351 t5 = 1/t2**2 352 t6 = 2.0d-50*t1-9.11559972d+0 353 t7 = t6**2 354 t8 = param(10) 355 t9 = 1/rhoa**3.3333333333333337d+0 356 t10 = param(9) 357 t11 = param(8) 358 t12 = param(11) 359 t13 = 1.6d-99*t5*t8*t9+t4*t5*t7+4.0d-50*t1*t12*t5*t6+t10*t 360 1 3*t6+4.0d-50*t1*t11*t3+param(7) 361 t14 = 1/rhoa**6.666666666666666d-1 362 t15 = rhoa**5.0d-1 363 t16 = 1/t15 364 t17 = 1/rhoa**3.333333333333333d-1 365 t18 = 1/rhoa**1.6666666666666666d-1 366 t19 = 1.1120374863094686d+1*t18+3.8447462374472113d+0*t17+ 367 1 1.644733775567609d+0*t16+2.4058712912881916d-1*t14 368 t20 = 3.216395899738507d+1/t19+1.0d+0 369 t21 = log(t20) 370 t22 = 1.274696188700087d-1*t17+1.0d+0 371 t23 = 5.982550435771079d+0*t18+2.2255694211506874d+0*t17+8 372 1 .004286349993635d-1*t16+1.8970043257475583d-1*t14 373 t24 = 1.6081979498692536d+1/t23+1.0d+0 374 t25 = log(t24) 375 t26 = 1.3256889990520176d-1*t17+1.0d+0 376 t27 = -6.903522198342671d-18*t25*t26-3.1090699999999993d-2 377 1 *t21*t22 378 t28 = 3.04966d-3*(1.2d-49*t1-1.823119944d+1)+1.0d+0 379 t29 = 1/t28 380 t30 = param(6) 381 t31 = 1/t28**2 382 t32 = 4.0d-50*t1-1.823119944d+1 383 t33 = t32**2 384 t34 = param(4) 385 t35 = param(3) 386 t36 = param(2) 387 t37 = param(5) 388 t38 = 6.4d-99*t31*t34*t9+8.0d-50*t1*t31*t32*t37+8.0d-50*t1 389 1 *t29*t36+t29*t32*t35+t30*t31*t33+param(1) 390 t39 = -2*rhoa*t27 391 t40 = 1/t15**3 392 t41 = 1/rhoa**1.3333333333333333d+0 393 t42 = 1/rhoa**1.1666666666666667d+0 394 t43 = 1.1102230246251565d-16*t26*(-9.970917392951799d-1*t4 395 1 2-7.418564737168958d-1*t41-4.002143174996817d-1*t40-1.2 396 2 64669550498372d-1*t1)/(t23**2*t24)+1.0d+0*t22*(-1.85339 397 3 58105157808d+0*t42-1.2815820791490704d+0*t41-8.22366887 398 4 7838045d-1*t40-1.6039141941921276d-1*t1)/(t19**2*t20)+3 399 5 .0506411443514264d-19*t25*t41+1.3210398931339265d-3*t21 400 6 *t41 401 t44 = 1/t2**3 402 t45 = 1/rhoa**6 403 t46 = 1/rhoa**4.333333333333333d+0 404 t47 = 1/rhoa**2.6666666666666666d+0 405 t48 = 1.414213562373095d+0 406 t49 = 7.937005259840998d-1 407 t50 = 2.2255694211506874d+0*t17*t49+8.004286349993635d-1*t 408 1 16/t48+5.329846514438382d+0*t18+1.1950378408754898d-1*t 409 2 14 410 t51 = 1.6081979498692536d+1/t50+1.0d+0 411 t52 = log(t51) 412 t53 = 1.3256889990520176d-1*t17*t49+1.0d+0 413 t54 = t39-1.243628d-1*rhoa*t52*t53 414 t55 = 3.968502629920499d-1 415 t56 = 1/t28**3 416 fnc(iq) = (1.0d+0*t29*t38*(t39-1.243628d-1*rhoa*(1.0522000 417 1 558389212d-1*t17+1.0d+0)*log(1.6081979498692536d+1/(5.3 418 2 29846514438383d+0*t18+1.766435620181429d+0*t17+5.659885 419 3 156639418d-1*t16+1.19503784087549d-1*t14)+1.0d+0))+1.0d 420 4 +0*rhoa*t13*t27*t3)*wght+fnc(iq) 421 Amat(iq,D1_RA) = (t3*(5.0d-1*rhoa*t27*(-5.333333333333334d 422 1 -99*t46*t5*t8+1.6482816d-150*t44*t45*t8+1.030176d-51*t4 423 2 *t44*t47*t7-6.666666666666666d-50*t4*t47*t5*t6-6.666666 424 3 666666666d-50*t12*t47*t5*t6+5.15088d-52*t10*t47*t5*t6+4 425 4 .1207039999999995d-101*t12*t44*t46*t6-1.333333333333333 426 5 3d-99*t12*t46*t5+2.0603519999999997d-101*t11*t46*t5-6.6 427 6 66666666666666d-50*t11*t3*t47-3.333333333333333d-50*t10 428 7 *t3*t47)+5.0d-1*rhoa*t13*t43+5.0d-1*t13*t27)+t29*(1.0d+ 429 8 0*t54*(6.09932d-52*t30*t33*t47*t56+4.8794560000000003d- 430 9 101*t32*t37*t46*t56+3.9035648d-150*t34*t45*t56-6.666666 431 : 666666666d-50*t31*t32*t37*t47-6.666666666666666d-50*t29 432 ; *t36*t47+3.04966d-52*t31*t32*t35*t47-3.333333333333333d 433 < -50*t29*t35*t47-6.666666666666666d-50*t30*t31*t32*t47-2 434 = .6666666666666666d-99*t31*t37*t46+2.4397280000000002d-1 435 > 01*t31*t36*t46-1.0666666666666666d-98*t31*t34*t46)+1.0d 436 ? +0*t38*(2*rhoa*(1.0d+0*t53*(-7.418564737168958d-1*t41*t 437 @ 55-4.002143174996817d-1*t40/t48**3-4.4415387620319857d- 438 1 1*t42-3.9834594695849657d-2*t1)/(t50**2*t51)+2.74777326 439 2 4188437d-3*t41*t52*t55)-6.21814d-2*t52*t53-rhoa*t43+6.9 440 3 03522198342671d-18*t25*t26+3.1090699999999993d-2*t21*t2 441 4 2))+3.04966d-52*t31*t38*t47*t54+2.57544d-52*t1*t13*t27* 442 5 t5)*wght+Amat(iq,D1_RA) 443 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 444 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 445 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 446 endif 447 endif ! rhoa.gt.tol_rho 448 else ! ipol.eq.1 449 rhoa = rho(iq,R_A) 450 rhob = rho(iq,R_B) 451 gammaaa = rgamma(iq,G_AA) 452 gammaab = rgamma(iq,G_AB) 453 gammabb = rgamma(iq,G_BB) 454 taua = tau(iq,T_A) 455 taub = tau(iq,T_B) 456 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 457 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 458 t1 = 1/rhoa**6.666666666666666d-1 459 t2 = rhoa**5.0d-1 460 t3 = 1/t2 461 t4 = 1/rhoa**3.333333333333333d-1 462 t5 = 1/rhoa**1.6666666666666666d-1 463 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 464 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 465 t7 = 3.216395899738507d+1/t6+1.0d+0 466 t8 = log(t7) 467 t9 = 1.274696188700087d-1*t4+1.0d+0 468 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 469 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 470 t11 = 1.6081979498692536d+1/t10+1.0d+0 471 t12 = log(t11) 472 t13 = 1.3256889990520176d-1*t4+1.0d+0 473 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 474 1 12*t13 475 t15 = 1/rhoa 476 t16 = 1/taua 477 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 478 t18 = 1/rhoa**2.6666666666666666d+0 479 t19 = gammaaa*t18 480 t20 = 1/rhoa**1.6666666666666669d+0 481 t21 = 2.0d+0*t20*taua 482 t22 = 5.15088d-3*(t21+t19-9.11559972d+0)+1.0d+0 483 t23 = 1/t22 484 t24 = param(7) 485 t25 = param(10) 486 t26 = gammaaa**2 487 t27 = 1/rhoa**5.333333333333333d+0 488 t28 = 1/t22**2 489 t29 = param(11) 490 t30 = t21-9.11559972d+0 491 t31 = param(12) 492 t32 = t30**2 493 t33 = param(8) 494 t34 = param(9) 495 t35 = t23*t30*t34+gammaaa*t18*t23*t33+t28*t31*t32+gammaaa* 496 1 t18*t28*t29*t30+t25*t26*t27*t28+t24 497 t36 = 1/rhob**6.666666666666666d-1 498 t37 = rhob**5.0d-1 499 t38 = 1/t37 500 t39 = 1/rhob**3.333333333333333d-1 501 t40 = 1/rhob**1.6666666666666666d-1 502 t41 = 1.1120374863094686d+1*t40+3.8447462374472113d+0*t39+ 503 1 1.644733775567609d+0*t38+2.4058712912881916d-1*t36 504 t42 = 3.216395899738507d+1/t41+1.0d+0 505 t43 = log(t42) 506 t44 = 1.274696188700087d-1*t39+1.0d+0 507 t45 = 5.982550435771079d+0*t40+2.2255694211506874d+0*t39+8 508 1 .004286349993635d-1*t38+1.8970043257475583d-1*t36 509 t46 = 1.6081979498692536d+1/t45+1.0d+0 510 t47 = log(t46) 511 t48 = 1.3256889990520176d-1*t39+1.0d+0 512 t49 = -6.903522198342671d-18*t47*t48-3.1090699999999993d-2 513 1 *t43*t44 514 t50 = 1/rhob 515 t51 = 1/taub 516 t52 = 1.0d+0-1.25d-1*gammabb*t50*t51 517 t53 = 1/rhob**2.6666666666666666d+0 518 t54 = gammabb*t53 519 t55 = 1/rhob**1.6666666666666669d+0 520 t56 = 2.0d+0*t55*taub 521 t57 = 5.15088d-3*(t56+t54-9.11559972d+0)+1.0d+0 522 t58 = 1/t57 523 t59 = gammabb**2 524 t60 = 1/rhob**5.333333333333333d+0 525 t61 = 1/t57**2 526 t62 = t56-9.11559972d+0 527 t63 = t62**2 528 t64 = t31*t61*t63+gammabb*t29*t53*t61*t62+t34*t58*t62+t25* 529 1 t59*t60*t61+gammabb*t33*t53*t58+t24 530 t65 = rhob+rhoa 531 t66 = 1/t65**3.333333333333333d-1 532 t67 = 1.3256889990520176d-1*t66+1.0d+0 533 t68 = rhoa-rhob 534 t69 = t68**4 535 t70 = 1/t65**4 536 t71 = 1/t65 537 t72 = 1.0d+0-t68*t71 538 t73 = t68*t71+1.0d+0 539 t74 = t73**1.3333333333333333d+0+t72**1.3333333333333333d+ 540 1 0-2.0d+0 541 t75 = -1.923661050931536d+0*t69*t70*t74 542 t76 = t75+1.0d+0 543 t77 = 1/t65**6.666666666666666d-1 544 t78 = t65**5.0d-1 545 t79 = 1/t78 546 t80 = 1/t65**1.6666666666666666d-1 547 t81 = 5.982550435771079d+0*t80+8.004286349993635d-1*t79+1. 548 1 8970043257475583d-1*t77+2.2255694211506874d+0*t66 549 t82 = 1.6081979498692536d+1/t81+1.0d+0 550 t83 = log(t82) 551 t84 = -6.21814d-2*t67*t76*t83 552 t85 = 6.901399211255825d-2*t66+1.0d+0 553 t86 = t75+1.923661050931536d+0*t74 554 t87 = 8.157414703487641d+0*t80+4.3009724712766434d-1*t79+1 555 1 .9115125951273373d-1*t77+2.247591863577616d+0*t66 556 t88 = 2.9608813203268075d+1/t87+1.0d+0 557 t89 = log(t88) 558 t90 = 1.9751631321680768d-2*t85*t86*t89 559 t91 = 1.274696188700087d-1*t66+1.0d+0 560 t92 = 1.1120374863094686d+1*t80+1.644733775567609d+0*t79+2 561 1 .4058712912881916d-1*t77+3.8447462374472113d+0*t66 562 t93 = 3.216395899738507d+1/t92+1.0d+0 563 t94 = log(t93) 564 t95 = -5.980796863619711d-2*t69*t70*t74*t91*t94 565 t96 = t65*(t95+t90+t84)-rhob*t49-rhoa*t14 566 t97 = 3.04966d-3*(t56+t54+t21+t19-1.823119944d+1)+1.0d+0 567 t98 = 1/t97 568 t99 = param(4) 569 t100 = t54+t19 570 t101 = t100**2 571 t102 = 1/t97**2 572 t103 = param(5) 573 t104 = t56+t21-1.823119944d+1 574 t105 = param(6) 575 t106 = t104**2 576 t107 = param(2) 577 t108 = param(3) 578 t109 = t101*t102*t99+t104*t108*t98+t100*t107*t98+t102*t105 579 1 *t106+t100*t102*t103*t104+param(1) 580 t110 = 1/rhoa**3.6666666666666664d+0 581 t111 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d 582 1 +0*gammaaa*t110 583 t112 = 1/t22**3 584 t113 = 1/t2**3 585 t114 = 1/rhoa**1.3333333333333333d+0 586 t115 = 1/rhoa**1.1666666666666667d+0 587 t116 = 1.0d+0*(-1.6039141941921276d-1*t20-1.85339581051578 588 1 08d+0*t115-1.2815820791490704d+0*t114-8.223668877838045 589 2 d-1*t113)*t9/(t6**2*t7)+1.3210398931339265d-3*t114*t8+1 590 3 .1102230246251565d-16*t13*(-1.264669550498372d-1*t20-9. 591 4 970917392951799d-1*t115-7.418564737168958d-1*t114-4.002 592 5 143174996817d-1*t113)/(t10**2*t11)+3.0506411443514264d- 593 6 19*t114*t12 594 t117 = 1/t97**3 595 t118 = 1/t65**1.6666666666666669d+0 596 t119 = 1/t78**3 597 t120 = 1/t65**1.3333333333333333d+0 598 t121 = 1/t65**1.1666666666666667d+0 599 t122 = 1.0d+0*(-9.970917392951799d-1*t121-7.41856473716895 600 1 8d-1*t120-4.002143174996817d-1*t119-1.264669550498372d- 601 2 1*t118)*t67*t76/(t81**2*t82) 602 t123 = -5.848223622634647d-1*(-1.3595691172479402d+0*t121- 603 1 7.491972878592053d-1*t120-2.1504862356383217d-1*t119-1. 604 2 2743417300848914d-1*t118)*t85*t86/(t87**2*t88) 605 t124 = 1.923661050931536d+0*(-1.8533958105157808d+0*t121-1 606 1 .2815820791490704d+0*t120-8.223668877838045d-1*t119-1.6 607 2 039141941921276d-1*t118)*t69*t70*t74*t91/(t92**2*t93) 608 t125 = 1/t65**2 609 t126 = t125*t68 610 t127 = -t71 611 t128 = t72**3.333333333333333d-1 612 t129 = -t125*t68 613 t130 = t73**3.333333333333333d-1 614 t131 = 1.3333333333333333d+0*t130*(t71+t129)+1.33333333333 615 1 33333d+0*(t127+t126)*t128 616 t132 = -1.923661050931536d+0*t131*t69*t70 617 t133 = 1/t65**5 618 t134 = 7.694644203726144d+0*t133*t69*t74 619 t135 = t68**3 620 t136 = -7.694644203726144d+0*t135*t70*t74 621 t137 = 2.747773264188437d-3*t120*t76*t83 622 t138 = -4.5437964274821163d-4*t120*t86*t89 623 t139 = 2.541232989148493d-3*t69*t74*t94/t65**5.33333333333 624 1 3333d+0 625 t140 = 2.3923187454478842d-1*t133*t69*t74*t91*t94 626 t141 = 1/rhob**3.6666666666666664d+0 627 t142 = -3.3333333333333337d+0*t53*taub-2.6666666666666666d 628 1 +0*gammabb*t141 629 t143 = 1/t57**3 630 t144 = 1/t37**3 631 t145 = 1/rhob**1.3333333333333333d+0 632 t146 = 1/rhob**1.1666666666666667d+0 633 t147 = 1.1102230246251565d-16*t48*(-1.264669550498372d-1*t 634 1 55-9.970917392951799d-1*t146-7.418564737168958d-1*t145- 635 2 4.002143174996817d-1*t144)/(t45**2*t46)+1.0d+0*t44*(-1. 636 3 6039141941921276d-1*t55-1.8533958105157808d+0*t146-1.28 637 4 15820791490704d+0*t145-8.223668877838045d-1*t144)/(t41* 638 5 *2*t42)+3.0506411443514264d-19*t145*t47+1.3210398931339 639 6 265d-3*t145*t43 640 t148 = 1.3333333333333333d+0*t128*(t71+t126)+1.33333333333 641 1 33333d+0*(t129+t127)*t130 642 t149 = -1.923661050931536d+0*t148*t69*t70 643 t150 = 7.694644203726144d+0*t135*t70*t74 644 t151 = 1/rhoa**4.333333333333333d+0 645 t152 = 1/rhob**4.333333333333333d+0 646 fnc(iq) = (1.0d+0*t109*t96*t98+1.0d+0*rhob*t49*t52*t58*t64 647 1 +1.0d+0*rhoa*t14*t17*t23*t35)*wght+fnc(iq) 648 Amat(iq,D1_RA) = (t98*(1.0d+0*t96*(-3.3333333333333337d+0* 649 1 t108*t18*t98*taua-6.666666666666667d+0*t102*t104*t105*t 650 2 18*taua-3.3333333333333337d+0*t100*t102*t103*t18*taua-6 651 3 .09932d-3*t101*t111*t117*t99-5.333333333333333d+0*gamma 652 4 aa*t100*t102*t110*t99-2.6666666666666666d+0*gammaaa*t10 653 5 7*t110*t98-6.09932d-3*t105*t106*t111*t117-6.09932d-3*t1 654 6 00*t103*t104*t111*t117-3.04966d-3*t102*t104*t108*t111-3 655 7 .04966d-3*t100*t102*t107*t111-2.6666666666666666d+0*gam 656 8 maaa*t102*t103*t104*t110)+1.0d+0*t109*(t95+t65*(-2.3923 657 9 187454478842d-1*t135*t70*t74*t91*t94-5.980796863619711d 658 : -2*t131*t69*t70*t91*t94+1.9751631321680768d-2*(t136+t13 659 ; 4+t132+1.923661050931536d+0*t131)*t85*t89-6.21814d-2*(t 660 < 136+t134+t132)*t67*t83+t140+t139+t138+t137+t124+t123+t1 661 = 22)+t90+3.1090699999999993d-2*t8*t9+t84+6.9035221983426 662 > 71d-18*t12*t13-rhoa*t116))+t23*(1.0d+0*rhoa*t14*t17*(-3 663 ? .3333333333333337d+0*t18*t23*t34*taua-6.666666666666667 664 @ d+0*t18*t28*t30*t31*taua-3.3333333333333337d+0*gammaaa* 665 1 t27*t28*t29*taua-5.15088d-3*t111*t28*t30*t34-5.15088d-3 666 2 *gammaaa*t111*t18*t28*t33-2.6666666666666666d+0*gammaaa 667 3 *t110*t23*t33-1.030176d-2*t111*t112*t31*t32-2.666666666 668 4 6666666d+0*gammaaa*t110*t28*t29*t30-1.030176d-2*gammaaa 669 5 *t111*t112*t18*t29*t30-5.333333333333333d+0*t25*t26*t28 670 6 /rhoa**6.333333333333333d+0-1.030176d-2*t111*t112*t25*t 671 7 26*t27)+1.0d+0*t14*t17*t35+1.0d+0*rhoa*t116*t17*t35)-3. 672 8 04966d-3*t102*t109*t111*t96-5.15088d-3*rhoa*t111*t14*t1 673 9 7*t28*t35+1.25d-1*gammaaa*t14*t15*t16*t23*t35)*wght+Ama 674 : t(iq,D1_RA) 675 Amat(iq,D1_RB) = (t98*(1.0d+0*t96*(-3.3333333333333337d+0* 676 1 t108*t53*t98*taub-6.666666666666667d+0*t102*t104*t105*t 677 2 53*taub-3.3333333333333337d+0*t100*t102*t103*t53*taub-6 678 3 .09932d-3*t101*t117*t142*t99-5.333333333333333d+0*gamma 679 4 bb*t100*t102*t141*t99-2.6666666666666666d+0*gammabb*t10 680 5 7*t141*t98-6.09932d-3*t105*t106*t117*t142-6.09932d-3*t1 681 6 00*t103*t104*t117*t142-3.04966d-3*t102*t104*t108*t142-3 682 7 .04966d-3*t100*t102*t107*t142-2.6666666666666666d+0*gam 683 8 mabb*t102*t103*t104*t141)+1.0d+0*t109*(t95+t65*(2.39231 684 9 87454478842d-1*t135*t70*t74*t91*t94-5.980796863619711d- 685 : 2*t148*t69*t70*t91*t94+1.9751631321680768d-2*(t150+t149 686 ; +1.923661050931536d+0*t148+t134)*t85*t89-6.21814d-2*(t1 687 < 50+t149+t134)*t67*t83+t140+t139+t138+t137+t124+t123+t12 688 = 2)+t90+t84+6.903522198342671d-18*t47*t48+3.109069999999 689 > 9993d-2*t43*t44-rhob*t147))+t58*(1.0d+0*rhob*t49*t52*(- 690 ? 6.666666666666667d+0*t31*t53*t61*t62*taub-3.33333333333 691 @ 33337d+0*gammabb*t29*t60*t61*taub-3.3333333333333337d+0 692 1 *t34*t53*t58*taub-1.030176d-2*t142*t143*t31*t63-5.15088 693 2 d-3*t142*t34*t61*t62-2.6666666666666666d+0*gammabb*t141 694 3 *t29*t61*t62-1.030176d-2*gammabb*t142*t143*t29*t53*t62- 695 4 5.333333333333333d+0*t25*t59*t61/rhob**6.33333333333333 696 5 3d+0-5.15088d-3*gammabb*t142*t33*t53*t61-1.030176d-2*t1 697 6 42*t143*t25*t59*t60-2.6666666666666666d+0*gammabb*t141* 698 7 t33*t58)+1.0d+0*t49*t52*t64+1.0d+0*rhob*t147*t52*t64)-3 699 8 .04966d-3*t102*t109*t142*t96-5.15088d-3*rhob*t142*t49*t 700 9 52*t61*t64+1.25d-1*gammabb*t49*t50*t51*t58*t64)*wght+Am 701 : at(iq,D1_RB) 702 Cmat(iq,D1_GAA) = (1.0d+0*t96*t98*(-6.09932d-3*t101*t117*t 703 1 18*t99+2*t100*t102*t18*t99+t107*t18*t98-6.09932d-3*t105 704 2 *t106*t117*t18-6.09932d-3*t100*t103*t104*t117*t18-3.049 705 3 66d-3*t102*t104*t108*t18-3.04966d-3*t100*t102*t107*t18+ 706 4 t102*t103*t104*t18)-3.04966d-3*t102*t109*t18*t96-5.1508 707 5 8d-3*t14*t17*t20*t28*t35-1.25d-1*t14*t16*t23*t35+1.0d+0 708 6 *rhoa*t14*t17*t23*(-5.15088d-3*t18*t28*t30*t34-5.15088d 709 7 -3*gammaaa*t27*t28*t33+t18*t23*t33-1.030176d-2*t112*t18 710 8 *t31*t32+t18*t28*t29*t30-1.030176d-2*gammaaa*t112*t27*t 711 9 29*t30+2*gammaaa*t25*t27*t28-1.030176d-2*t112*t25*t26/r 712 : hoa**8))*wght+Cmat(iq,D1_GAA) 713 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 714 Cmat(iq,D1_GBB) = (1.0d+0*t96*t98*(-6.09932d-3*t101*t117*t 715 1 53*t99+2*t100*t102*t53*t99+t107*t53*t98-6.09932d-3*t105 716 2 *t106*t117*t53-6.09932d-3*t100*t103*t104*t117*t53-3.049 717 3 66d-3*t102*t104*t108*t53-3.04966d-3*t100*t102*t107*t53+ 718 4 t102*t103*t104*t53)-3.04966d-3*t102*t109*t53*t96-5.1508 719 5 8d-3*t49*t52*t55*t61*t64-1.25d-1*t49*t51*t58*t64+1.0d+0 720 6 *rhob*t49*t52*t58*(-1.030176d-2*t143*t31*t53*t63-5.1508 721 7 8d-3*t34*t53*t61*t62+t29*t53*t61*t62-1.030176d-2*gammab 722 8 b*t143*t29*t60*t62-5.15088d-3*gammabb*t33*t60*t61+2*gam 723 9 mabb*t25*t60*t61-1.030176d-2*t143*t25*t59/rhob**8+t33*t 724 : 53*t58))*wght+Cmat(iq,D1_GBB) 725 Mmat(iq,D1_TA) = (1.25d-1*gammaaa*t14*t23*t35/taua**2+1.0d 726 1 +0*t96*t98*(-1.219864d-2*t101*t117*t20*t99+2.0d+0*t108* 727 2 t20*t98-1.219864d-2*t105*t106*t117*t20-1.219864d-2*t100 728 3 *t103*t104*t117*t20-6.09932d-3*t102*t104*t108*t20-6.099 729 4 32d-3*t100*t102*t107*t20+4.0d+0*t102*t104*t105*t20+2.0d 730 5 +0*t100*t102*t103*t20)-6.09932d-3*t102*t109*t20*t96-1.0 731 6 30176d-2*t1*t14*t17*t28*t35+1.0d+0*rhoa*t14*t17*t23*(-1 732 7 .030176d-2*t20*t28*t30*t34+2.0d+0*t20*t23*t34-1.030176d 733 8 -2*gammaaa*t151*t28*t33-2.060352d-2*t112*t20*t31*t32+4. 734 9 0d+0*t20*t28*t30*t31-2.060352d-2*gammaaa*t112*t151*t29* 735 : t30+2.0d+0*gammaaa*t151*t28*t29-2.060352d-2*t112*t25*t2 736 ; 6/rhoa**7))*wght+Mmat(iq,D1_TA) 737 Mmat(iq,D1_TB) = (1.25d-1*gammabb*t49*t58*t64/taub**2+1.0d 738 1 +0*t96*t98*(-1.219864d-2*t101*t117*t55*t99+2.0d+0*t108* 739 2 t55*t98-1.219864d-2*t105*t106*t117*t55-1.219864d-2*t100 740 3 *t103*t104*t117*t55-6.09932d-3*t102*t104*t108*t55-6.099 741 4 32d-3*t100*t102*t107*t55+4.0d+0*t102*t104*t105*t55+2.0d 742 5 +0*t100*t102*t103*t55)-6.09932d-3*t102*t109*t55*t96-1.0 743 6 30176d-2*t36*t49*t52*t61*t64+1.0d+0*rhob*t49*t52*t58*(- 744 7 2.060352d-2*t143*t31*t55*t63-1.030176d-2*t34*t55*t61*t6 745 8 2+4.0d+0*t31*t55*t61*t62-2.060352d-2*gammabb*t143*t152* 746 9 t29*t62-1.030176d-2*gammabb*t152*t33*t61+2.0d+0*gammabb 747 : *t152*t29*t61-2.060352d-2*t143*t25*t59/rhob**7+2.0d+0*t 748 ; 34*t55*t58))*wght+Mmat(iq,D1_TB) 749 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 750 t1 = 1/rhob**1.6666666666666669d+0 751 t2 = 6.0d-50*t1 752 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 753 t4 = 1/t3 754 t5 = param(7) 755 t6 = param(12) 756 t7 = 1/t3**2 757 t8 = 2.0d-50*t1 758 t9 = t8-9.11559972d+0 759 t10 = t9**2 760 t11 = param(10) 761 t12 = param(9) 762 t13 = param(8) 763 t14 = param(11) 764 t15 = 4.0d-50*t1*t14*t7*t9+t12*t4*t9+t10*t6*t7+1.6d-99*t11 765 1 *t7/rhob**3.3333333333333337d+0+t5+4.0d-50*t1*t13*t4 766 t16 = 1/rhob**6.666666666666666d-1 767 t17 = rhob**5.0d-1 768 t18 = 1/t17 769 t19 = 1/rhob**3.333333333333333d-1 770 t20 = 1/rhob**1.6666666666666666d-1 771 t21 = 1.1120374863094686d+1*t20+3.8447462374472113d+0*t19+ 772 1 1.644733775567609d+0*t18+2.4058712912881916d-1*t16 773 t22 = 3.216395899738507d+1/t21+1.0d+0 774 t23 = log(t22) 775 t24 = 1.274696188700087d-1*t19+1.0d+0 776 t25 = 5.982550435771079d+0*t20+2.2255694211506874d+0*t19+8 777 1 .004286349993635d-1*t18+1.8970043257475583d-1*t16 778 t26 = 1.6081979498692536d+1/t25+1.0d+0 779 t27 = log(t26) 780 t28 = 1.3256889990520176d-1*t19+1.0d+0 781 t29 = -6.903522198342671d-18*t27*t28-3.1090699999999993d-2 782 1 *t23*t24 783 t30 = 1/rhoa**6.666666666666666d-1 784 t31 = rhoa**5.0d-1 785 t32 = 1/t31 786 t33 = 1/rhoa**3.333333333333333d-1 787 t34 = 1/rhoa**1.6666666666666666d-1 788 t35 = 1.1120374863094686d+1*t34+3.8447462374472113d+0*t33+ 789 1 1.644733775567609d+0*t32+2.4058712912881916d-1*t30 790 t36 = 3.216395899738507d+1/t35+1.0d+0 791 t37 = log(t36) 792 t38 = 1.274696188700087d-1*t33+1.0d+0 793 t39 = 5.982550435771079d+0*t34+2.2255694211506874d+0*t33+8 794 1 .004286349993635d-1*t32+1.8970043257475583d-1*t30 795 t40 = 1.6081979498692536d+1/t39+1.0d+0 796 t41 = log(t40) 797 t42 = 1.3256889990520176d-1*t33+1.0d+0 798 t43 = -6.903522198342671d-18*t41*t42-3.1090699999999993d-2 799 1 *t37*t38 800 t44 = 1/rhoa 801 t45 = 1/taua 802 t46 = 1.0d+0-1.25d-1*gammaaa*t44*t45 803 t47 = 1/rhoa**2.6666666666666666d+0 804 t48 = gammaaa*t47 805 t49 = 1/rhoa**1.6666666666666669d+0 806 t50 = 2.0d+0*t49*taua 807 t51 = 5.15088d-3*(t50+t48-9.11559972d+0)+1.0d+0 808 t52 = 1/t51 809 t53 = gammaaa**2 810 t54 = 1/rhoa**5.333333333333333d+0 811 t55 = 1/t51**2 812 t56 = t50-9.11559972d+0 813 t57 = t56**2 814 t58 = t55*t57*t6+gammaaa*t14*t47*t55*t56+t12*t52*t56+t11*t 815 1 53*t54*t55+gammaaa*t13*t47*t52+t5 816 t59 = rhob+rhoa 817 t60 = 1/t59**3.333333333333333d-1 818 t61 = 1.3256889990520176d-1*t60+1.0d+0 819 t62 = rhoa-rhob 820 t63 = t62**4 821 t64 = 1/t59**4 822 t65 = 1/t59 823 t66 = 1.0d+0-t62*t65 824 t67 = t62*t65+1.0d+0 825 t68 = t67**1.3333333333333333d+0+t66**1.3333333333333333d+ 826 1 0-2.0d+0 827 t69 = -1.923661050931536d+0*t63*t64*t68 828 t70 = t69+1.0d+0 829 t71 = 1/t59**6.666666666666666d-1 830 t72 = t59**5.0d-1 831 t73 = 1/t72 832 t74 = 1/t59**1.6666666666666666d-1 833 t75 = 5.982550435771079d+0*t74+8.004286349993635d-1*t73+1. 834 1 8970043257475583d-1*t71+2.2255694211506874d+0*t60 835 t76 = 1.6081979498692536d+1/t75+1.0d+0 836 t77 = log(t76) 837 t78 = -6.21814d-2*t61*t70*t77 838 t79 = 6.901399211255825d-2*t60+1.0d+0 839 t80 = t69+1.923661050931536d+0*t68 840 t81 = 8.157414703487641d+0*t74+4.3009724712766434d-1*t73+1 841 1 .9115125951273373d-1*t71+2.247591863577616d+0*t60 842 t82 = 2.9608813203268075d+1/t81+1.0d+0 843 t83 = log(t82) 844 t84 = 1.9751631321680768d-2*t79*t80*t83 845 t85 = 1.274696188700087d-1*t60+1.0d+0 846 t86 = 1.1120374863094686d+1*t74+1.644733775567609d+0*t73+2 847 1 .4058712912881916d-1*t71+3.8447462374472113d+0*t60 848 t87 = 3.216395899738507d+1/t86+1.0d+0 849 t88 = log(t87) 850 t89 = -5.980796863619711d-2*t63*t64*t68*t85*t88 851 t90 = t59*(t89+t84+t78)-rhoa*t43-rhob*t29 852 t91 = 3.04966d-3*(t50+t48+t2-1.823119944d+1)+1.0d+0 853 t92 = 1/t91 854 t93 = param(4) 855 t94 = t48+4.0d-50*t1 856 t95 = t94**2 857 t96 = 1/t91**2 858 t97 = param(5) 859 t98 = t8+t50-1.823119944d+1 860 t99 = param(6) 861 t100 = t98**2 862 t101 = param(2) 863 t102 = param(3) 864 t103 = t100*t96*t99+t94*t96*t97*t98+t102*t92*t98+t93*t95*t 865 1 96+t101*t92*t94+param(1) 866 t104 = 1/rhoa**3.6666666666666664d+0 867 t105 = -3.3333333333333337d+0*t47*taua-2.6666666666666666d 868 1 +0*gammaaa*t104 869 t106 = 1/t51**3 870 t107 = 1/t31**3 871 t108 = 1/rhoa**1.3333333333333333d+0 872 t109 = 1/rhoa**1.1666666666666667d+0 873 t110 = 1.1102230246251565d-16*t42*(-1.264669550498372d-1*t 874 1 49-9.970917392951799d-1*t109-7.418564737168958d-1*t108- 875 2 4.002143174996817d-1*t107)/(t39**2*t40)+1.0d+0*t38*(-1. 876 3 6039141941921276d-1*t49-1.8533958105157808d+0*t109-1.28 877 4 15820791490704d+0*t108-8.223668877838045d-1*t107)/(t35* 878 5 *2*t36)+3.0506411443514264d-19*t108*t41+1.3210398931339 879 6 265d-3*t108*t37 880 t111 = 1/t91**3 881 t112 = 1/t59**1.6666666666666669d+0 882 t113 = 1/t72**3 883 t114 = 1/t59**1.3333333333333333d+0 884 t115 = 1/t59**1.1666666666666667d+0 885 t116 = 1.0d+0*(-9.970917392951799d-1*t115-7.41856473716895 886 1 8d-1*t114-4.002143174996817d-1*t113-1.264669550498372d- 887 2 1*t112)*t61*t70/(t75**2*t76) 888 t117 = -5.848223622634647d-1*(-1.3595691172479402d+0*t115- 889 1 7.491972878592053d-1*t114-2.1504862356383217d-1*t113-1. 890 2 2743417300848914d-1*t112)*t79*t80/(t81**2*t82) 891 t118 = 1.923661050931536d+0*(-1.8533958105157808d+0*t115-1 892 1 .2815820791490704d+0*t114-8.223668877838045d-1*t113-1.6 893 2 039141941921276d-1*t112)*t63*t64*t68*t85/(t86**2*t87) 894 t119 = 1/t59**2 895 t120 = t119*t62 896 t121 = -t65 897 t122 = t66**3.333333333333333d-1 898 t123 = -t119*t62 899 t124 = t67**3.333333333333333d-1 900 t125 = 1.3333333333333333d+0*t124*(t65+t123)+1.33333333333 901 1 33333d+0*(t121+t120)*t122 902 t126 = -1.923661050931536d+0*t125*t63*t64 903 t127 = 1/t59**5 904 t128 = 7.694644203726144d+0*t127*t63*t68 905 t129 = t62**3 906 t130 = -7.694644203726144d+0*t129*t64*t68 907 t131 = 2.747773264188437d-3*t114*t70*t77 908 t132 = -4.5437964274821163d-4*t114*t80*t83 909 t133 = 2.541232989148493d-3*t63*t68*t88/t59**5.33333333333 910 1 3333d+0 911 t134 = 2.3923187454478842d-1*t127*t63*t68*t85*t88 912 t135 = 1/t17**3 913 t136 = 1/rhob**1.3333333333333333d+0 914 t137 = 1/rhob**1.1666666666666667d+0 915 t138 = 1.1102230246251565d-16*(-9.970917392951799d-1*t137- 916 1 7.418564737168958d-1*t136-4.002143174996817d-1*t135-1.2 917 2 64669550498372d-1*t1)*t28/(t25**2*t26)+3.05064114435142 918 3 64d-19*t136*t27+1.0d+0*(-1.8533958105157808d+0*t137-1.2 919 4 815820791490704d+0*t136-8.223668877838045d-1*t135-1.603 920 5 9141941921276d-1*t1)*t24/(t21**2*t22)+1.321039893133926 921 6 5d-3*t136*t23 922 t139 = 1/t3**3 923 t140 = 1/rhob**4.333333333333333d+0 924 t141 = 1/rhob**2.6666666666666666d+0 925 t142 = 1.3333333333333333d+0*t122*(t65+t120)+1.33333333333 926 1 33333d+0*(t123+t121)*t124 927 t143 = -1.923661050931536d+0*t142*t63*t64 928 t144 = 7.694644203726144d+0*t129*t64*t68 929 t145 = 1/rhoa**4.333333333333333d+0 930 fnc(iq) = (1.0d+0*t103*t90*t92+1.0d+0*rhoa*t43*t46*t52*t58 931 1 +5.0d-1*rhob*t15*t29*t4)*wght+fnc(iq) 932 Amat(iq,D1_RA) = (t92*(1.0d+0*t90*(-6.666666666666667d+0*t 933 1 47*t96*t98*t99*taua-3.3333333333333337d+0*t47*t94*t96*t 934 2 97*taua-3.3333333333333337d+0*t102*t47*t92*taua-6.09932 935 3 d-3*t100*t105*t111*t99-2.6666666666666666d+0*gammaaa*t1 936 4 04*t96*t97*t98-6.09932d-3*t105*t111*t94*t97*t98-3.04966 937 5 d-3*t102*t105*t96*t98-5.333333333333333d+0*gammaaa*t104 938 6 *t93*t94*t96-3.04966d-3*t101*t105*t94*t96-6.09932d-3*t1 939 7 05*t111*t93*t95-2.6666666666666666d+0*gammaaa*t101*t104 940 8 *t92)+1.0d+0*t103*(t89+t59*(-2.3923187454478842d-1*t129 941 9 *t64*t68*t85*t88-5.980796863619711d-2*t125*t63*t64*t85* 942 : t88+1.9751631321680768d-2*(t130+t128+t126+1.92366105093 943 ; 1536d+0*t125)*t79*t83-6.21814d-2*(t130+t128+t126)*t61*t 944 < 77+t134+t133+t132+t131+t118+t117+t116)+t84+t78+6.903522 945 = 198342671d-18*t41*t42+3.1090699999999993d-2*t37*t38-rho 946 > a*t110))+t52*(1.0d+0*rhoa*t43*t46*(-6.666666666666667d+ 947 ? 0*t47*t55*t56*t6*taua-3.3333333333333337d+0*gammaaa*t14 948 @ *t54*t55*taua-3.3333333333333337d+0*t12*t47*t52*taua-1. 949 1 030176d-2*t105*t106*t57*t6-2.6666666666666666d+0*gammaa 950 2 a*t104*t14*t55*t56-5.15088d-3*t105*t12*t55*t56-1.030176 951 3 d-2*gammaaa*t105*t106*t14*t47*t56-5.333333333333333d+0* 952 4 t11*t53*t55/rhoa**6.333333333333333d+0-5.15088d-3*gamma 953 5 aa*t105*t13*t47*t55-1.030176d-2*t105*t106*t11*t53*t54-2 954 6 .6666666666666666d+0*gammaaa*t104*t13*t52)+1.0d+0*t43*t 955 7 46*t58+1.0d+0*rhoa*t110*t46*t58)-3.04966d-3*t103*t105*t 956 8 90*t96-5.15088d-3*rhoa*t105*t43*t46*t55*t58+1.25d-1*gam 957 9 maaa*t43*t44*t45*t52*t58)*wght+Amat(iq,D1_RA) 958 Amat(iq,D1_RB) = (t92*(1.0d+0*t90*(-6.666666666666666d-50* 959 1 t141*t96*t98*t99+6.09932d-52*t100*t111*t141*t99-6.66666 960 2 6666666666d-50*t141*t96*t97*t98+6.09932d-52*t111*t141*t 961 3 94*t97*t98+3.04966d-52*t102*t141*t96*t98-3.333333333333 962 4 333d-50*t141*t94*t96*t97-1.3333333333333333d-49*t141*t9 963 5 3*t94*t96+3.04966d-52*t101*t141*t94*t96+6.09932d-52*t11 964 6 1*t141*t93*t95-3.333333333333333d-50*t102*t141*t92-6.66 965 7 6666666666666d-50*t101*t141*t92)+1.0d+0*t103*(t89+t59*( 966 8 2.3923187454478842d-1*t129*t64*t68*t85*t88-5.9807968636 967 9 19711d-2*t142*t63*t64*t85*t88+1.9751631321680768d-2*(t1 968 : 44+t143+1.923661050931536d+0*t142+t128)*t79*t83-6.21814 969 ; d-2*(t144+t143+t128)*t61*t77+t134+t133+t132+t131+t118+t 970 < 117+t116)+t84+t78+6.903522198342671d-18*t27*t28+3.10906 971 = 99999999993d-2*t23*t24-rhob*t138))+3.04966d-52*t103*t14 972 > 1*t90*t96+t4*(5.0d-1*rhob*t29*(-6.666666666666666d-50*t 973 ? 141*t6*t7*t9-6.666666666666666d-50*t14*t141*t7*t9+5.150 974 @ 88d-52*t12*t141*t7*t9+4.1207039999999995d-101*t139*t14* 975 1 t140*t9-1.3333333333333333d-99*t14*t140*t7+2.0603519999 976 2 999997d-101*t13*t140*t7-5.333333333333334d-99*t11*t140* 977 3 t7+1.030176d-51*t10*t139*t141*t6-6.666666666666666d-50* 978 4 t13*t141*t4-3.333333333333333d-50*t12*t141*t4+1.6482816 979 5 d-150*t11*t139/rhob**6)+5.0d-1*t15*t29+5.0d-1*rhob*t138 980 6 *t15)+2.57544d-52*t1*t15*t29*t7)*wght+Amat(iq,D1_RB) 981 Cmat(iq,D1_GAA) = (1.0d+0*t90*t92*(-6.09932d-3*t100*t111*t 982 1 47*t99+t47*t96*t97*t98-6.09932d-3*t111*t47*t94*t97*t98- 983 2 3.04966d-3*t102*t47*t96*t98+2*t47*t93*t94*t96-3.04966d- 984 3 3*t101*t47*t94*t96-6.09932d-3*t111*t47*t93*t95+t101*t47 985 4 *t92)-3.04966d-3*t103*t47*t90*t96+1.0d+0*rhoa*t43*t46*t 986 5 52*(-1.030176d-2*t106*t47*t57*t6+t14*t47*t55*t56-5.1508 987 6 8d-3*t12*t47*t55*t56-1.030176d-2*gammaaa*t106*t14*t54*t 988 7 56-5.15088d-3*gammaaa*t13*t54*t55+2*gammaaa*t11*t54*t55 989 8 -1.030176d-2*t106*t11*t53/rhoa**8+t13*t47*t52)-5.15088d 990 9 -3*t43*t46*t49*t55*t58-1.25d-1*t43*t45*t52*t58)*wght+Cm 991 : at(iq,D1_GAA) 992 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 993 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 994 Mmat(iq,D1_TA) = (1.25d-1*gammaaa*t43*t52*t58/taua**2+1.0d 995 1 +0*t90*t92*(4.0d+0*t49*t96*t98*t99-1.219864d-2*t100*t11 996 2 1*t49*t99-1.219864d-2*t111*t49*t94*t97*t98-6.09932d-3*t 997 3 102*t49*t96*t98+2.0d+0*t49*t94*t96*t97-6.09932d-3*t101* 998 4 t49*t94*t96-1.219864d-2*t111*t49*t93*t95+2.0d+0*t102*t4 999 5 9*t92)-6.09932d-3*t103*t49*t90*t96+1.0d+0*rhoa*t43*t46* 1000 6 t52*(-2.060352d-2*t106*t49*t57*t6+4.0d+0*t49*t55*t56*t6 1001 7 -1.030176d-2*t12*t49*t55*t56-2.060352d-2*gammaaa*t106*t 1002 8 14*t145*t56+2.0d+0*gammaaa*t14*t145*t55-1.030176d-2*gam 1003 9 maaa*t13*t145*t55-2.060352d-2*t106*t11*t53/rhoa**7+2.0d 1004 : +0*t12*t49*t52)-1.030176d-2*t30*t43*t46*t55*t58)*wght+M 1005 ; mat(iq,D1_TA) 1006 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 1007 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 1008 t1 = 1/rhoa**1.6666666666666669d+0 1009 t2 = 6.0d-50*t1 1010 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 1011 t4 = 1/t3 1012 t5 = param(7) 1013 t6 = param(12) 1014 t7 = 1/t3**2 1015 t8 = 2.0d-50*t1 1016 t9 = t8-9.11559972d+0 1017 t10 = t9**2 1018 t11 = param(10) 1019 t12 = param(9) 1020 t13 = param(8) 1021 t14 = param(11) 1022 t15 = 4.0d-50*t1*t14*t7*t9+t12*t4*t9+t10*t6*t7+1.6d-99*t11 1023 1 *t7/rhoa**3.3333333333333337d+0+t5+4.0d-50*t1*t13*t4 1024 t16 = 1/rhoa**6.666666666666666d-1 1025 t17 = rhoa**5.0d-1 1026 t18 = 1/t17 1027 t19 = 1/rhoa**3.333333333333333d-1 1028 t20 = 1/rhoa**1.6666666666666666d-1 1029 t21 = 1.1120374863094686d+1*t20+3.8447462374472113d+0*t19+ 1030 1 1.644733775567609d+0*t18+2.4058712912881916d-1*t16 1031 t22 = 3.216395899738507d+1/t21+1.0d+0 1032 t23 = log(t22) 1033 t24 = 1.274696188700087d-1*t19+1.0d+0 1034 t25 = 5.982550435771079d+0*t20+2.2255694211506874d+0*t19+8 1035 1 .004286349993635d-1*t18+1.8970043257475583d-1*t16 1036 t26 = 1.6081979498692536d+1/t25+1.0d+0 1037 t27 = log(t26) 1038 t28 = 1.3256889990520176d-1*t19+1.0d+0 1039 t29 = -6.903522198342671d-18*t27*t28-3.1090699999999993d-2 1040 1 *t23*t24 1041 t30 = 1/rhob**6.666666666666666d-1 1042 t31 = rhob**5.0d-1 1043 t32 = 1/t31 1044 t33 = 1/rhob**3.333333333333333d-1 1045 t34 = 1/rhob**1.6666666666666666d-1 1046 t35 = 1.1120374863094686d+1*t34+3.8447462374472113d+0*t33+ 1047 1 1.644733775567609d+0*t32+2.4058712912881916d-1*t30 1048 t36 = 3.216395899738507d+1/t35+1.0d+0 1049 t37 = log(t36) 1050 t38 = 1.274696188700087d-1*t33+1.0d+0 1051 t39 = 5.982550435771079d+0*t34+2.2255694211506874d+0*t33+8 1052 1 .004286349993635d-1*t32+1.8970043257475583d-1*t30 1053 t40 = 1.6081979498692536d+1/t39+1.0d+0 1054 t41 = log(t40) 1055 t42 = 1.3256889990520176d-1*t33+1.0d+0 1056 t43 = -6.903522198342671d-18*t41*t42-3.1090699999999993d-2 1057 1 *t37*t38 1058 t44 = 1/rhob 1059 t45 = 1/taub 1060 t46 = 1.0d+0-1.25d-1*gammabb*t44*t45 1061 t47 = 1/rhob**2.6666666666666666d+0 1062 t48 = gammabb*t47 1063 t49 = 1/rhob**1.6666666666666669d+0 1064 t50 = 2.0d+0*t49*taub 1065 t51 = 5.15088d-3*(t50+t48-9.11559972d+0)+1.0d+0 1066 t52 = 1/t51 1067 t53 = gammabb**2 1068 t54 = 1/rhob**5.333333333333333d+0 1069 t55 = 1/t51**2 1070 t56 = t50-9.11559972d+0 1071 t57 = t56**2 1072 t58 = t55*t57*t6+gammabb*t14*t47*t55*t56+t12*t52*t56+t11*t 1073 1 53*t54*t55+gammabb*t13*t47*t52+t5 1074 t59 = rhob+rhoa 1075 t60 = 1/t59**3.333333333333333d-1 1076 t61 = 1.3256889990520176d-1*t60+1.0d+0 1077 t62 = rhoa-rhob 1078 t63 = t62**4 1079 t64 = 1/t59**4 1080 t65 = 1/t59 1081 t66 = 1.0d+0-t62*t65 1082 t67 = t62*t65+1.0d+0 1083 t68 = t67**1.3333333333333333d+0+t66**1.3333333333333333d+ 1084 1 0-2.0d+0 1085 t69 = -1.923661050931536d+0*t63*t64*t68 1086 t70 = t69+1.0d+0 1087 t71 = 1/t59**6.666666666666666d-1 1088 t72 = t59**5.0d-1 1089 t73 = 1/t72 1090 t74 = 1/t59**1.6666666666666666d-1 1091 t75 = 5.982550435771079d+0*t74+8.004286349993635d-1*t73+1. 1092 1 8970043257475583d-1*t71+2.2255694211506874d+0*t60 1093 t76 = 1.6081979498692536d+1/t75+1.0d+0 1094 t77 = log(t76) 1095 t78 = -6.21814d-2*t61*t70*t77 1096 t79 = 6.901399211255825d-2*t60+1.0d+0 1097 t80 = t69+1.923661050931536d+0*t68 1098 t81 = 8.157414703487641d+0*t74+4.3009724712766434d-1*t73+1 1099 1 .9115125951273373d-1*t71+2.247591863577616d+0*t60 1100 t82 = 2.9608813203268075d+1/t81+1.0d+0 1101 t83 = log(t82) 1102 t84 = 1.9751631321680768d-2*t79*t80*t83 1103 t85 = 1.274696188700087d-1*t60+1.0d+0 1104 t86 = 1.1120374863094686d+1*t74+1.644733775567609d+0*t73+2 1105 1 .4058712912881916d-1*t71+3.8447462374472113d+0*t60 1106 t87 = 3.216395899738507d+1/t86+1.0d+0 1107 t88 = log(t87) 1108 t89 = -5.980796863619711d-2*t63*t64*t68*t85*t88 1109 t90 = t59*(t89+t84+t78)-rhob*t43-rhoa*t29 1110 t91 = 3.04966d-3*(t50+t48+t2-1.823119944d+1)+1.0d+0 1111 t92 = 1/t91 1112 t93 = param(4) 1113 t94 = t48+4.0d-50*t1 1114 t95 = t94**2 1115 t96 = 1/t91**2 1116 t97 = param(5) 1117 t98 = t8+t50-1.823119944d+1 1118 t99 = param(6) 1119 t100 = t98**2 1120 t101 = param(2) 1121 t102 = param(3) 1122 t103 = t100*t96*t99+t94*t96*t97*t98+t102*t92*t98+t93*t95*t 1123 1 96+t101*t92*t94+param(1) 1124 t104 = 1/t17**3 1125 t105 = 1/rhoa**1.3333333333333333d+0 1126 t106 = 1/rhoa**1.1666666666666667d+0 1127 t107 = 1.1102230246251565d-16*(-9.970917392951799d-1*t106- 1128 1 7.418564737168958d-1*t105-4.002143174996817d-1*t104-1.2 1129 2 64669550498372d-1*t1)*t28/(t25**2*t26)+3.05064114435142 1130 3 64d-19*t105*t27+1.0d+0*(-1.8533958105157808d+0*t106-1.2 1131 4 815820791490704d+0*t105-8.223668877838045d-1*t104-1.603 1132 5 9141941921276d-1*t1)*t24/(t21**2*t22)+1.321039893133926 1133 6 5d-3*t105*t23 1134 t108 = 1/t3**3 1135 t109 = 1/rhoa**4.333333333333333d+0 1136 t110 = 1/rhoa**2.6666666666666666d+0 1137 t111 = 1/t91**3 1138 t112 = 1/t59**1.6666666666666669d+0 1139 t113 = 1/t72**3 1140 t114 = 1/t59**1.3333333333333333d+0 1141 t115 = 1/t59**1.1666666666666667d+0 1142 t116 = 1.0d+0*(-9.970917392951799d-1*t115-7.41856473716895 1143 1 8d-1*t114-4.002143174996817d-1*t113-1.264669550498372d- 1144 2 1*t112)*t61*t70/(t75**2*t76) 1145 t117 = -5.848223622634647d-1*(-1.3595691172479402d+0*t115- 1146 1 7.491972878592053d-1*t114-2.1504862356383217d-1*t113-1. 1147 2 2743417300848914d-1*t112)*t79*t80/(t81**2*t82) 1148 t118 = 1.923661050931536d+0*(-1.8533958105157808d+0*t115-1 1149 1 .2815820791490704d+0*t114-8.223668877838045d-1*t113-1.6 1150 2 039141941921276d-1*t112)*t63*t64*t68*t85/(t86**2*t87) 1151 t119 = 1/t59**2 1152 t120 = t119*t62 1153 t121 = -t65 1154 t122 = t66**3.333333333333333d-1 1155 t123 = -t119*t62 1156 t124 = t67**3.333333333333333d-1 1157 t125 = 1.3333333333333333d+0*t124*(t65+t123)+1.33333333333 1158 1 33333d+0*(t121+t120)*t122 1159 t126 = -1.923661050931536d+0*t125*t63*t64 1160 t127 = 1/t59**5 1161 t128 = 7.694644203726144d+0*t127*t63*t68 1162 t129 = t62**3 1163 t130 = -7.694644203726144d+0*t129*t64*t68 1164 t131 = 2.747773264188437d-3*t114*t70*t77 1165 t132 = -4.5437964274821163d-4*t114*t80*t83 1166 t133 = 2.541232989148493d-3*t63*t68*t88/t59**5.33333333333 1167 1 3333d+0 1168 t134 = 2.3923187454478842d-1*t127*t63*t68*t85*t88 1169 t135 = 1/rhob**3.6666666666666664d+0 1170 t136 = -3.3333333333333337d+0*t47*taub-2.6666666666666666d 1171 1 +0*gammabb*t135 1172 t137 = 1/t51**3 1173 t138 = 1/t31**3 1174 t139 = 1/rhob**1.3333333333333333d+0 1175 t140 = 1/rhob**1.1666666666666667d+0 1176 t141 = 1.1102230246251565d-16*t42*(-1.264669550498372d-1*t 1177 1 49-9.970917392951799d-1*t140-7.418564737168958d-1*t139- 1178 2 4.002143174996817d-1*t138)/(t39**2*t40)+1.0d+0*t38*(-1. 1179 3 6039141941921276d-1*t49-1.8533958105157808d+0*t140-1.28 1180 4 15820791490704d+0*t139-8.223668877838045d-1*t138)/(t35* 1181 5 *2*t36)+3.0506411443514264d-19*t139*t41+1.3210398931339 1182 6 265d-3*t139*t37 1183 t142 = 1.3333333333333333d+0*t122*(t65+t120)+1.33333333333 1184 1 33333d+0*(t123+t121)*t124 1185 t143 = -1.923661050931536d+0*t142*t63*t64 1186 t144 = 7.694644203726144d+0*t129*t64*t68 1187 t145 = 1/rhob**4.333333333333333d+0 1188 fnc(iq) = (1.0d+0*t103*t90*t92+1.0d+0*rhob*t43*t46*t52*t58 1189 1 +5.0d-1*rhoa*t15*t29*t4)*wght+fnc(iq) 1190 Amat(iq,D1_RA) = (t92*(1.0d+0*t90*(-6.666666666666666d-50* 1191 1 t110*t96*t98*t99+6.09932d-52*t100*t110*t111*t99-6.66666 1192 2 6666666666d-50*t110*t96*t97*t98+6.09932d-52*t110*t111*t 1193 3 94*t97*t98+3.04966d-52*t102*t110*t96*t98-3.333333333333 1194 4 333d-50*t110*t94*t96*t97-1.3333333333333333d-49*t110*t9 1195 5 3*t94*t96+3.04966d-52*t101*t110*t94*t96+6.09932d-52*t11 1196 6 0*t111*t93*t95-3.333333333333333d-50*t102*t110*t92-6.66 1197 7 6666666666666d-50*t101*t110*t92)+1.0d+0*t103*(t89+t59*( 1198 8 -2.3923187454478842d-1*t129*t64*t68*t85*t88-5.980796863 1199 9 619711d-2*t125*t63*t64*t85*t88+1.9751631321680768d-2*(t 1200 : 130+t128+t126+1.923661050931536d+0*t125)*t79*t83-6.2181 1201 ; 4d-2*(t130+t128+t126)*t61*t77+t134+t133+t132+t131+t118+ 1202 < t117+t116)+t84+t78+6.903522198342671d-18*t27*t28+3.1090 1203 = 699999999993d-2*t23*t24-rhoa*t107))+3.04966d-52*t103*t1 1204 > 10*t90*t96+t4*(5.0d-1*rhoa*t29*(-6.666666666666666d-50* 1205 ? t110*t6*t7*t9-6.666666666666666d-50*t110*t14*t7*t9+5.15 1206 @ 088d-52*t110*t12*t7*t9+4.1207039999999995d-101*t108*t10 1207 1 9*t14*t9-1.3333333333333333d-99*t109*t14*t7+2.060351999 1208 2 9999997d-101*t109*t13*t7-5.333333333333334d-99*t109*t11 1209 3 *t7+1.030176d-51*t10*t108*t110*t6-6.666666666666666d-50 1210 4 *t110*t13*t4-3.333333333333333d-50*t110*t12*t4+1.648281 1211 5 6d-150*t108*t11/rhoa**6)+5.0d-1*t15*t29+5.0d-1*rhoa*t10 1212 6 7*t15)+2.57544d-52*t1*t15*t29*t7)*wght+Amat(iq,D1_RA) 1213 Amat(iq,D1_RB) = (t92*(1.0d+0*t90*(-6.666666666666667d+0*t 1214 1 47*t96*t98*t99*taub-3.3333333333333337d+0*t47*t94*t96*t 1215 2 97*taub-3.3333333333333337d+0*t102*t47*t92*taub-6.09932 1216 3 d-3*t100*t111*t136*t99-2.6666666666666666d+0*gammabb*t1 1217 4 35*t96*t97*t98-6.09932d-3*t111*t136*t94*t97*t98-3.04966 1218 5 d-3*t102*t136*t96*t98-5.333333333333333d+0*gammabb*t135 1219 6 *t93*t94*t96-3.04966d-3*t101*t136*t94*t96-6.09932d-3*t1 1220 7 11*t136*t93*t95-2.6666666666666666d+0*gammabb*t101*t135 1221 8 *t92)+1.0d+0*t103*(t89+t59*(2.3923187454478842d-1*t129* 1222 9 t64*t68*t85*t88-5.980796863619711d-2*t142*t63*t64*t85*t 1223 : 88+1.9751631321680768d-2*(t144+t143+1.923661050931536d+ 1224 ; 0*t142+t128)*t79*t83-6.21814d-2*(t144+t143+t128)*t61*t7 1225 < 7+t134+t133+t132+t131+t118+t117+t116)+t84+t78+6.9035221 1226 = 98342671d-18*t41*t42+3.1090699999999993d-2*t37*t38-rhob 1227 > *t141))+t52*(1.0d+0*rhob*t43*t46*(-6.666666666666667d+0 1228 ? *t47*t55*t56*t6*taub-3.3333333333333337d+0*gammabb*t14* 1229 @ t54*t55*taub-3.3333333333333337d+0*t12*t47*t52*taub-1.0 1230 1 30176d-2*t136*t137*t57*t6-2.6666666666666666d+0*gammabb 1231 2 *t135*t14*t55*t56-5.15088d-3*t12*t136*t55*t56-1.030176d 1232 3 -2*gammabb*t136*t137*t14*t47*t56-5.333333333333333d+0*t 1233 4 11*t53*t55/rhob**6.333333333333333d+0-5.15088d-3*gammab 1234 5 b*t13*t136*t47*t55-1.030176d-2*t11*t136*t137*t53*t54-2. 1235 6 6666666666666666d+0*gammabb*t13*t135*t52)+1.0d+0*t43*t4 1236 7 6*t58+1.0d+0*rhob*t141*t46*t58)-3.04966d-3*t103*t136*t9 1237 8 0*t96-5.15088d-3*rhob*t136*t43*t46*t55*t58+1.25d-1*gamm 1238 9 abb*t43*t44*t45*t52*t58)*wght+Amat(iq,D1_RB) 1239 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 1240 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 1241 Cmat(iq,D1_GBB) = (1.0d+0*t90*t92*(-6.09932d-3*t100*t111*t 1242 1 47*t99+t47*t96*t97*t98-6.09932d-3*t111*t47*t94*t97*t98- 1243 2 3.04966d-3*t102*t47*t96*t98+2*t47*t93*t94*t96-3.04966d- 1244 3 3*t101*t47*t94*t96-6.09932d-3*t111*t47*t93*t95+t101*t47 1245 4 *t92)-3.04966d-3*t103*t47*t90*t96+1.0d+0*rhob*t43*t46*t 1246 5 52*(-1.030176d-2*t137*t47*t57*t6+t14*t47*t55*t56-5.1508 1247 6 8d-3*t12*t47*t55*t56-1.030176d-2*gammabb*t137*t14*t54*t 1248 7 56-5.15088d-3*gammabb*t13*t54*t55+2*gammabb*t11*t54*t55 1249 8 -1.030176d-2*t11*t137*t53/rhob**8+t13*t47*t52)-5.15088d 1250 9 -3*t43*t46*t49*t55*t58-1.25d-1*t43*t45*t52*t58)*wght+Cm 1251 : at(iq,D1_GBB) 1252 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 1253 Mmat(iq,D1_TB) = (1.25d-1*gammabb*t43*t52*t58/taub**2+1.0d 1254 1 +0*t90*t92*(4.0d+0*t49*t96*t98*t99-1.219864d-2*t100*t11 1255 2 1*t49*t99-1.219864d-2*t111*t49*t94*t97*t98-6.09932d-3*t 1256 3 102*t49*t96*t98+2.0d+0*t49*t94*t96*t97-6.09932d-3*t101* 1257 4 t49*t94*t96-1.219864d-2*t111*t49*t93*t95+2.0d+0*t102*t4 1258 5 9*t92)-6.09932d-3*t103*t49*t90*t96+1.0d+0*rhob*t43*t46* 1259 6 t52*(-2.060352d-2*t137*t49*t57*t6+4.0d+0*t49*t55*t56*t6 1260 7 -1.030176d-2*t12*t49*t55*t56-2.060352d-2*gammabb*t137*t 1261 8 14*t145*t56+2.0d+0*gammabb*t14*t145*t55-1.030176d-2*gam 1262 9 mabb*t13*t145*t55-2.060352d-2*t11*t137*t53/rhob**7+2.0d 1263 : +0*t12*t49*t52)-1.030176d-2*t30*t43*t46*t55*t58)*wght+M 1264 ; mat(iq,D1_TB) 1265 else 1266 t1 = 1/rhoa**1.6666666666666669d+0 1267 t2 = 6.0d-50*t1 1268 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 1269 t4 = 1/t3 1270 t5 = param(7) 1271 t6 = param(12) 1272 t7 = 1/t3**2 1273 t8 = 2.0d-50*t1 1274 t9 = t8-9.11559972d+0 1275 t10 = t9**2 1276 t11 = param(10) 1277 t12 = param(9) 1278 t13 = param(8) 1279 t14 = param(11) 1280 t15 = 4.0d-50*t1*t14*t7*t9+t12*t4*t9+t10*t6*t7+1.6d-99*t11 1281 1 *t7/rhoa**3.3333333333333337d+0+t5+4.0d-50*t1*t13*t4 1282 t16 = 1/rhoa**6.666666666666666d-1 1283 t17 = rhoa**5.0d-1 1284 t18 = 1/t17 1285 t19 = 1/rhoa**3.333333333333333d-1 1286 t20 = 1/rhoa**1.6666666666666666d-1 1287 t21 = 1.1120374863094686d+1*t20+3.8447462374472113d+0*t19+ 1288 1 1.644733775567609d+0*t18+2.4058712912881916d-1*t16 1289 t22 = 3.216395899738507d+1/t21+1.0d+0 1290 t23 = log(t22) 1291 t24 = 1.274696188700087d-1*t19+1.0d+0 1292 t25 = 5.982550435771079d+0*t20+2.2255694211506874d+0*t19+8 1293 1 .004286349993635d-1*t18+1.8970043257475583d-1*t16 1294 t26 = 1.6081979498692536d+1/t25+1.0d+0 1295 t27 = log(t26) 1296 t28 = 1.3256889990520176d-1*t19+1.0d+0 1297 t29 = -6.903522198342671d-18*t27*t28-3.1090699999999993d-2 1298 1 *t23*t24 1299 t30 = 1/rhob**1.6666666666666669d+0 1300 t31 = 6.0d-50*t30 1301 t32 = 5.15088d-3*(t31-9.11559972d+0)+1.0d+0 1302 t33 = 1/t32 1303 t34 = 1/t32**2 1304 t35 = 2.0d-50*t30 1305 t36 = t35-9.11559972d+0 1306 t37 = t36**2 1307 t38 = t34*t37*t6+t5+4.0d-50*t14*t30*t34*t36+t12*t33*t36+1. 1308 1 6d-99*t11*t34/rhob**3.3333333333333337d+0+4.0d-50*t13*t 1309 2 30*t33 1310 t39 = 1/rhob**6.666666666666666d-1 1311 t40 = rhob**5.0d-1 1312 t41 = 1/t40 1313 t42 = 1/rhob**3.333333333333333d-1 1314 t43 = 1/rhob**1.6666666666666666d-1 1315 t44 = 1.1120374863094686d+1*t43+3.8447462374472113d+0*t42+ 1316 1 1.644733775567609d+0*t41+2.4058712912881916d-1*t39 1317 t45 = 3.216395899738507d+1/t44+1.0d+0 1318 t46 = log(t45) 1319 t47 = 1.274696188700087d-1*t42+1.0d+0 1320 t48 = 5.982550435771079d+0*t43+2.2255694211506874d+0*t42+8 1321 1 .004286349993635d-1*t41+1.8970043257475583d-1*t39 1322 t49 = 1.6081979498692536d+1/t48+1.0d+0 1323 t50 = log(t49) 1324 t51 = 1.3256889990520176d-1*t42+1.0d+0 1325 t52 = -6.903522198342671d-18*t50*t51-3.1090699999999993d-2 1326 1 *t46*t47 1327 t53 = param(6) 1328 t54 = 3.04966d-3*(t31+t2-1.823119944d+1)+1.0d+0 1329 t55 = 1/t54**2 1330 t56 = t8+t35-1.823119944d+1 1331 t57 = t56**2 1332 t58 = param(4) 1333 t59 = 4.0d-50*t30+4.0d-50*t1 1334 t60 = t59**2 1335 t61 = param(3) 1336 t62 = 1/t54 1337 t63 = param(2) 1338 t64 = param(5) 1339 t65 = t55*t56*t59*t64+t59*t62*t63+t56*t61*t62+t55*t58*t60+ 1340 1 t53*t55*t57+param(1) 1341 t66 = rhob+rhoa 1342 t67 = 1/t66**3.333333333333333d-1 1343 t68 = 1.3256889990520176d-1*t67+1.0d+0 1344 t69 = rhoa-rhob 1345 t70 = t69**4 1346 t71 = 1/t66**4 1347 t72 = 1/t66 1348 t73 = 1.0d+0-t69*t72 1349 t74 = t69*t72+1.0d+0 1350 t75 = t74**1.3333333333333333d+0+t73**1.3333333333333333d+ 1351 1 0-2.0d+0 1352 t76 = -1.923661050931536d+0*t70*t71*t75 1353 t77 = t76+1.0d+0 1354 t78 = 1/t66**6.666666666666666d-1 1355 t79 = t66**5.0d-1 1356 t80 = 1/t79 1357 t81 = 1/t66**1.6666666666666666d-1 1358 t82 = 5.982550435771079d+0*t81+8.004286349993635d-1*t80+1. 1359 1 8970043257475583d-1*t78+2.2255694211506874d+0*t67 1360 t83 = 1.6081979498692536d+1/t82+1.0d+0 1361 t84 = log(t83) 1362 t85 = -6.21814d-2*t68*t77*t84 1363 t86 = 6.901399211255825d-2*t67+1.0d+0 1364 t87 = t76+1.923661050931536d+0*t75 1365 t88 = 8.157414703487641d+0*t81+4.3009724712766434d-1*t80+1 1366 1 .9115125951273373d-1*t78+2.247591863577616d+0*t67 1367 t89 = 2.9608813203268075d+1/t88+1.0d+0 1368 t90 = log(t89) 1369 t91 = 1.9751631321680768d-2*t86*t87*t90 1370 t92 = 1.274696188700087d-1*t67+1.0d+0 1371 t93 = 1.1120374863094686d+1*t81+1.644733775567609d+0*t80+2 1372 1 .4058712912881916d-1*t78+3.8447462374472113d+0*t67 1373 t94 = 3.216395899738507d+1/t93+1.0d+0 1374 t95 = log(t94) 1375 t96 = -5.980796863619711d-2*t70*t71*t75*t92*t95 1376 t97 = t66*(t96+t91+t85)-rhob*t52-rhoa*t29 1377 t98 = 1/t17**3 1378 t99 = 1/rhoa**1.3333333333333333d+0 1379 t100 = 1/rhoa**1.1666666666666667d+0 1380 t101 = 3.0506411443514264d-19*t27*t99+1.3210398931339265d- 1381 1 3*t23*t99+1.1102230246251565d-16*t28*(-7.41856473716895 1382 2 8d-1*t99-4.002143174996817d-1*t98-9.970917392951799d-1* 1383 3 t100-1.264669550498372d-1*t1)/(t25**2*t26)+1.0d+0*t24*( 1384 4 -1.2815820791490704d+0*t99-8.223668877838045d-1*t98-1.8 1385 5 533958105157808d+0*t100-1.6039141941921276d-1*t1)/(t21* 1386 6 *2*t22) 1387 t102 = 1/t3**3 1388 t103 = 1/rhoa**4.333333333333333d+0 1389 t104 = 1/rhoa**2.6666666666666666d+0 1390 t105 = 1/t66**1.6666666666666669d+0 1391 t106 = 1/t79**3 1392 t107 = 1/t66**1.3333333333333333d+0 1393 t108 = 1/t66**1.1666666666666667d+0 1394 t109 = 1.0d+0*(-9.970917392951799d-1*t108-7.41856473716895 1395 1 8d-1*t107-4.002143174996817d-1*t106-1.264669550498372d- 1396 2 1*t105)*t68*t77/(t82**2*t83) 1397 t110 = -5.848223622634647d-1*(-1.3595691172479402d+0*t108- 1398 1 7.491972878592053d-1*t107-2.1504862356383217d-1*t106-1. 1399 2 2743417300848914d-1*t105)*t86*t87/(t88**2*t89) 1400 t111 = 1.923661050931536d+0*(-1.8533958105157808d+0*t108-1 1401 1 .2815820791490704d+0*t107-8.223668877838045d-1*t106-1.6 1402 2 039141941921276d-1*t105)*t70*t71*t75*t92/(t93**2*t94) 1403 t112 = 1/t66**2 1404 t113 = t112*t69 1405 t114 = -t72 1406 t115 = t73**3.333333333333333d-1 1407 t116 = -t112*t69 1408 t117 = t74**3.333333333333333d-1 1409 t118 = 1.3333333333333333d+0*t117*(t72+t116)+1.33333333333 1410 1 33333d+0*(t114+t113)*t115 1411 t119 = -1.923661050931536d+0*t118*t70*t71 1412 t120 = 1/t66**5 1413 t121 = 7.694644203726144d+0*t120*t70*t75 1414 t122 = t69**3 1415 t123 = -7.694644203726144d+0*t122*t71*t75 1416 t124 = 2.747773264188437d-3*t107*t77*t84 1417 t125 = -4.5437964274821163d-4*t107*t87*t90 1418 t126 = 2.541232989148493d-3*t70*t75*t95/t66**5.33333333333 1419 1 3333d+0 1420 t127 = 2.3923187454478842d-1*t120*t70*t75*t92*t95 1421 t128 = 1/t54**3 1422 t129 = 1/t40**3 1423 t130 = 1/rhob**1.3333333333333333d+0 1424 t131 = 1/rhob**1.1666666666666667d+0 1425 t132 = 1.1102230246251565d-16*(-1.264669550498372d-1*t30-9 1426 1 .970917392951799d-1*t131-7.418564737168958d-1*t130-4.00 1427 2 2143174996817d-1*t129)*t51/(t48**2*t49)+3.0506411443514 1428 3 264d-19*t130*t50+1.0d+0*(-1.6039141941921276d-1*t30-1.8 1429 4 533958105157808d+0*t131-1.2815820791490704d+0*t130-8.22 1430 5 3668877838045d-1*t129)*t47/(t44**2*t45)+1.3210398931339 1431 6 265d-3*t130*t46 1432 t133 = 1/t32**3 1433 t134 = 1/rhob**4.333333333333333d+0 1434 t135 = 1/rhob**2.6666666666666666d+0 1435 t136 = 1.3333333333333333d+0*t115*(t72+t113)+1.33333333333 1436 1 33333d+0*(t116+t114)*t117 1437 t137 = -1.923661050931536d+0*t136*t70*t71 1438 t138 = 7.694644203726144d+0*t122*t71*t75 1439 fnc(iq) = (1.0d+0*t62*t65*t97+5.0d-1*rhob*t33*t38*t52+5.0d 1440 1 -1*rhoa*t15*t29*t4)*wght+fnc(iq) 1441 Amat(iq,D1_RA) = (t62*(1.0d+0*(6.09932d-52*t104*t128*t56*t 1442 1 59*t64-3.333333333333333d-50*t104*t55*t59*t64-6.6666666 1443 2 66666666d-50*t104*t55*t56*t64-6.666666666666666d-50*t10 1444 3 4*t62*t63+3.04966d-52*t104*t55*t59*t63-3.33333333333333 1445 4 3d-50*t104*t61*t62+3.04966d-52*t104*t55*t56*t61+6.09932 1446 5 d-52*t104*t128*t58*t60-1.3333333333333333d-49*t104*t55* 1447 6 t58*t59+6.09932d-52*t104*t128*t53*t57-6.666666666666666 1448 7 d-50*t104*t53*t55*t56)*t97+1.0d+0*t65*(t96+t66*(-2.3923 1449 8 187454478842d-1*t122*t71*t75*t92*t95-5.980796863619711d 1450 9 -2*t118*t70*t71*t92*t95+1.9751631321680768d-2*(t123+t12 1451 : 1+t119+1.923661050931536d+0*t118)*t86*t90-6.21814d-2*(t 1452 ; 123+t121+t119)*t68*t84+t127+t126+t125+t124+t111+t110+t1 1453 < 09)+t91+t85+6.903522198342671d-18*t27*t28+3.10906999999 1454 = 99993d-2*t23*t24-rhoa*t101))+3.04966d-52*t104*t55*t65*t 1455 > 97+t4*(5.0d-1*rhoa*t29*(-6.666666666666666d-50*t104*t6* 1456 ? t7*t9-6.666666666666666d-50*t104*t14*t7*t9+5.15088d-52* 1457 @ t104*t12*t7*t9+4.1207039999999995d-101*t102*t103*t14*t9 1458 1 -1.3333333333333333d-99*t103*t14*t7+2.0603519999999997d 1459 2 -101*t103*t13*t7-5.333333333333334d-99*t103*t11*t7+1.03 1460 3 0176d-51*t10*t102*t104*t6-6.666666666666666d-50*t104*t1 1461 4 3*t4-3.333333333333333d-50*t104*t12*t4+1.6482816d-150*t 1462 5 102*t11/rhoa**6)+5.0d-1*t15*t29+5.0d-1*rhoa*t101*t15)+2 1463 6 .57544d-52*t1*t15*t29*t7)*wght+Amat(iq,D1_RA) 1464 Amat(iq,D1_RB) = (t62*(1.0d+0*(6.09932d-52*t128*t135*t56*t 1465 1 59*t64-3.333333333333333d-50*t135*t55*t59*t64-6.6666666 1466 2 66666666d-50*t135*t55*t56*t64-6.666666666666666d-50*t13 1467 3 5*t62*t63+3.04966d-52*t135*t55*t59*t63-3.33333333333333 1468 4 3d-50*t135*t61*t62+3.04966d-52*t135*t55*t56*t61+6.09932 1469 5 d-52*t128*t135*t58*t60-1.3333333333333333d-49*t135*t55* 1470 6 t58*t59+6.09932d-52*t128*t135*t53*t57-6.666666666666666 1471 7 d-50*t135*t53*t55*t56)*t97+1.0d+0*t65*(t96+t66*(2.39231 1472 8 87454478842d-1*t122*t71*t75*t92*t95-5.980796863619711d- 1473 9 2*t136*t70*t71*t92*t95+1.9751631321680768d-2*(t138+t137 1474 : +1.923661050931536d+0*t136+t121)*t86*t90-6.21814d-2*(t1 1475 ; 38+t137+t121)*t68*t84+t127+t126+t125+t124+t111+t110+t10 1476 < 9)+t91+t85+6.903522198342671d-18*t50*t51+3.109069999999 1477 = 9993d-2*t46*t47-rhob*t132))+3.04966d-52*t135*t55*t65*t9 1478 > 7+t33*(5.0d-1*rhob*t52*(1.030176d-51*t133*t135*t37*t6-6 1479 ? .666666666666666d-50*t135*t34*t36*t6-6.666666666666666d 1480 @ -50*t135*t14*t34*t36+5.15088d-52*t12*t135*t34*t36+4.120 1481 1 7039999999995d-101*t133*t134*t14*t36-1.3333333333333333 1482 2 d-99*t134*t14*t34+2.0603519999999997d-101*t13*t134*t34- 1483 3 5.333333333333334d-99*t11*t134*t34-6.666666666666666d-5 1484 4 0*t13*t135*t33-3.333333333333333d-50*t12*t135*t33+1.648 1485 5 2816d-150*t11*t133/rhob**6)+5.0d-1*t38*t52+5.0d-1*rhob* 1486 6 t132*t38)+2.57544d-52*t30*t34*t38*t52)*wght+Amat(iq,D1_ 1487 7 RB) 1488 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 1489 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 1490 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 1491 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 1492 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 1493 endif 1494 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 1495 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 1496 t1 = 1/rhoa**6.666666666666666d-1 1497 t2 = rhoa**5.0d-1 1498 t3 = 1/t2 1499 t4 = 1/rhoa**3.333333333333333d-1 1500 t5 = 1/rhoa**1.6666666666666666d-1 1501 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 1502 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 1503 t7 = 3.216395899738507d+1/t6+1.0d+0 1504 t8 = log(t7) 1505 t9 = 1.274696188700087d-1*t4+1.0d+0 1506 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 1507 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 1508 t11 = 1.6081979498692536d+1/t10+1.0d+0 1509 t12 = log(t11) 1510 t13 = 1.3256889990520176d-1*t4+1.0d+0 1511 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 1512 1 12*t13 1513 t15 = 1/rhoa 1514 t16 = 1/taua 1515 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 1516 t18 = 1/rhoa**2.6666666666666666d+0 1517 t19 = 1/rhoa**1.6666666666666669d+0 1518 t20 = 2.0d+0*t19*taua 1519 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 1520 t22 = 1/t21 1521 t23 = param(10) 1522 t24 = gammaaa**2 1523 t25 = 1/rhoa**5.333333333333333d+0 1524 t26 = 1/t21**2 1525 t27 = param(11) 1526 t28 = t20-9.11559972d+0 1527 t29 = param(12) 1528 t30 = t28**2 1529 t31 = param(8) 1530 t32 = param(9) 1531 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 1532 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 1533 t34 = 1/rhoa**3.6666666666666664d+0 1534 t35 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 1535 1 0*gammaaa*t34 1536 t36 = 1/t21**3 1537 t37 = 1/t2**3 1538 t38 = 1/rhoa**1.3333333333333333d+0 1539 t39 = 1/rhoa**1.1666666666666667d+0 1540 t40 = 1/rhoa**4.333333333333333d+0 1541 fnc(iq) = 1.0d+0*rhoa*t14*t17*t22*t33*wght+fnc(iq) 1542 Amat(iq,D1_RA) = t22*(1.0d+0*rhoa*t14*t17*(-3.333333333333 1543 1 3337d+0*t18*t22*t32*taua-6.666666666666667d+0*t18*t26*t 1544 2 28*t29*taua-3.3333333333333337d+0*gammaaa*t25*t26*t27*t 1545 3 aua-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammaaa*t18 1546 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 1547 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammaaa*t18*t26*t31*t35 1548 6 -2.6666666666666666d+0*gammaaa*t22*t31*t34-2.6666666666 1549 7 666666d+0*gammaaa*t26*t27*t28*t34-5.333333333333333d+0* 1550 8 t23*t24*t26/rhoa**6.333333333333333d+0)*wght+1.0d+0*rho 1551 9 a*t17*t33*(1.0d+0*(-1.8533958105157808d+0*t39-1.2815820 1552 : 791490704d+0*t38-8.223668877838045d-1*t37-1.60391419419 1553 ; 21276d-1*t19)*t9/(t6**2*t7)+1.3210398931339265d-3*t38*t 1554 < 8+1.1102230246251565d-16*t13*(-9.970917392951799d-1*t39 1555 = -7.418564737168958d-1*t38-4.002143174996817d-1*t37-1.26 1556 > 4669550498372d-1*t19)/(t10**2*t11)+3.0506411443514264d- 1557 ? 19*t12*t38)*wght+1.0d+0*t14*t17*t33*wght)-5.15088d-3*rh 1558 @ oa*t14*t17*t26*t33*t35*wght+1.25d-1*gammaaa*t14*t15*t16 1559 1 *t22*t33*wght+Amat(iq,D1_RA) 1560 Cmat(iq,D1_GAA) = 1.0d+0*rhoa*t14*t17*t22*(-1.030176d-2*t1 1561 1 8*t29*t30*t36-1.030176d-2*gammaaa*t25*t27*t28*t36-1.030 1562 2 176d-2*t23*t24*t36/rhoa**8-5.15088d-3*t18*t26*t28*t32-5 1563 3 .15088d-3*gammaaa*t25*t26*t31+t18*t22*t31+t18*t26*t27*t 1564 4 28+2*gammaaa*t23*t25*t26)*wght-5.15088d-3*t14*t17*t19*t 1565 5 26*t33*wght-1.25d-1*t14*t16*t22*t33*wght+Cmat(iq,D1_GAA 1566 6 ) 1567 Mmat(iq,D1_TA) = 1.25d-1*gammaaa*t14*t22*t33*wght/taua**2+ 1568 1 1.0d+0*rhoa*t14*t17*t22*(-2.060352d-2*gammaaa*t27*t28*t 1569 2 36*t40-1.030176d-2*gammaaa*t26*t31*t40+2.0d+0*gammaaa*t 1570 3 26*t27*t40-2.060352d-2*t19*t29*t30*t36-2.060352d-2*t23* 1571 4 t24*t36/rhoa**7-1.030176d-2*t19*t26*t28*t32+2.0d+0*t19* 1572 5 t22*t32+4.0d+0*t19*t26*t28*t29)*wght-1.030176d-2*t1*t14 1573 6 *t17*t26*t33*wght+Mmat(iq,D1_TA) 1574 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 1575 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 1576 t1 = 1/rhoa**6.666666666666666d-1 1577 t2 = rhoa**5.0d-1 1578 t3 = 1/t2 1579 t4 = 1/rhoa**3.333333333333333d-1 1580 t5 = 1/rhoa**1.6666666666666666d-1 1581 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 1582 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 1583 t7 = 3.216395899738507d+1/t6+1.0d+0 1584 t8 = log(t7) 1585 t9 = 1.274696188700087d-1*t4+1.0d+0 1586 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 1587 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 1588 t11 = 1.6081979498692536d+1/t10+1.0d+0 1589 t12 = log(t11) 1590 t13 = 1.3256889990520176d-1*t4+1.0d+0 1591 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 1592 1 12*t13 1593 t15 = 1/rhoa 1594 t16 = 1/taua 1595 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 1596 t18 = 1/rhoa**2.6666666666666666d+0 1597 t19 = 1/rhoa**1.6666666666666669d+0 1598 t20 = 2.0d+0*t19*taua 1599 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 1600 t22 = 1/t21 1601 t23 = param(10) 1602 t24 = gammaaa**2 1603 t25 = 1/rhoa**5.333333333333333d+0 1604 t26 = 1/t21**2 1605 t27 = param(11) 1606 t28 = t20-9.11559972d+0 1607 t29 = param(12) 1608 t30 = t28**2 1609 t31 = param(8) 1610 t32 = param(9) 1611 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 1612 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 1613 t34 = 1/rhoa**3.6666666666666664d+0 1614 t35 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 1615 1 0*gammaaa*t34 1616 t36 = 1/t21**3 1617 t37 = 1/t2**3 1618 t38 = 1/rhoa**1.3333333333333333d+0 1619 t39 = 1/rhoa**1.1666666666666667d+0 1620 t40 = 1/rhoa**4.333333333333333d+0 1621 fnc(iq) = 1.0d+0*rhoa*t14*t17*t22*t33*wght+fnc(iq) 1622 Amat(iq,D1_RA) = t22*(1.0d+0*rhoa*t14*t17*(-3.333333333333 1623 1 3337d+0*t18*t22*t32*taua-6.666666666666667d+0*t18*t26*t 1624 2 28*t29*taua-3.3333333333333337d+0*gammaaa*t25*t26*t27*t 1625 3 aua-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammaaa*t18 1626 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 1627 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammaaa*t18*t26*t31*t35 1628 6 -2.6666666666666666d+0*gammaaa*t22*t31*t34-2.6666666666 1629 7 666666d+0*gammaaa*t26*t27*t28*t34-5.333333333333333d+0* 1630 8 t23*t24*t26/rhoa**6.333333333333333d+0)*wght+1.0d+0*rho 1631 9 a*t17*t33*(1.0d+0*(-1.8533958105157808d+0*t39-1.2815820 1632 : 791490704d+0*t38-8.223668877838045d-1*t37-1.60391419419 1633 ; 21276d-1*t19)*t9/(t6**2*t7)+1.3210398931339265d-3*t38*t 1634 < 8+1.1102230246251565d-16*t13*(-9.970917392951799d-1*t39 1635 = -7.418564737168958d-1*t38-4.002143174996817d-1*t37-1.26 1636 > 4669550498372d-1*t19)/(t10**2*t11)+3.0506411443514264d- 1637 ? 19*t12*t38)*wght+1.0d+0*t14*t17*t33*wght)-5.15088d-3*rh 1638 @ oa*t14*t17*t26*t33*t35*wght+1.25d-1*gammaaa*t14*t15*t16 1639 1 *t22*t33*wght+Amat(iq,D1_RA) 1640 Cmat(iq,D1_GAA) = 1.0d+0*rhoa*t14*t17*t22*(-1.030176d-2*t1 1641 1 8*t29*t30*t36-1.030176d-2*gammaaa*t25*t27*t28*t36-1.030 1642 2 176d-2*t23*t24*t36/rhoa**8-5.15088d-3*t18*t26*t28*t32-5 1643 3 .15088d-3*gammaaa*t25*t26*t31+t18*t22*t31+t18*t26*t27*t 1644 4 28+2*gammaaa*t23*t25*t26)*wght-5.15088d-3*t14*t17*t19*t 1645 5 26*t33*wght-1.25d-1*t14*t16*t22*t33*wght+Cmat(iq,D1_GAA 1646 6 ) 1647 Mmat(iq,D1_TA) = 1.25d-1*gammaaa*t14*t22*t33*wght/taua**2+ 1648 1 1.0d+0*rhoa*t14*t17*t22*(-2.060352d-2*gammaaa*t27*t28*t 1649 2 36*t40-1.030176d-2*gammaaa*t26*t31*t40+2.0d+0*gammaaa*t 1650 3 26*t27*t40-2.060352d-2*t19*t29*t30*t36-2.060352d-2*t23* 1651 4 t24*t36/rhoa**7-1.030176d-2*t19*t26*t28*t32+2.0d+0*t19* 1652 5 t22*t32+4.0d+0*t19*t26*t28*t29)*wght-1.030176d-2*t1*t14 1653 6 *t17*t26*t33*wght+Mmat(iq,D1_TA) 1654 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 1655 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 1656 t1 = 1/rhoa**1.6666666666666669d+0 1657 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 1658 t3 = 1/t2 1659 t4 = param(12) 1660 t5 = 1/t2**2 1661 t6 = 2.0d-50*t1-9.11559972d+0 1662 t7 = t6**2 1663 t8 = param(10) 1664 t9 = param(9) 1665 t10 = param(8) 1666 t11 = param(11) 1667 t12 = t3*t6*t9+1.6d-99*t5*t8/rhoa**3.3333333333333337d+0+t 1668 1 4*t5*t7+4.0d-50*t1*t11*t5*t6+4.0d-50*t1*t10*t3+param(7) 1669 t13 = 1/rhoa**6.666666666666666d-1 1670 t14 = rhoa**5.0d-1 1671 t15 = 1/t14 1672 t16 = 1/rhoa**3.333333333333333d-1 1673 t17 = 1/rhoa**1.6666666666666666d-1 1674 t18 = 1.1120374863094686d+1*t17+3.8447462374472113d+0*t16+ 1675 1 1.644733775567609d+0*t15+2.4058712912881916d-1*t13 1676 t19 = 3.216395899738507d+1/t18+1.0d+0 1677 t20 = log(t19) 1678 t21 = 1.274696188700087d-1*t16+1.0d+0 1679 t22 = 5.982550435771079d+0*t17+2.2255694211506874d+0*t16+8 1680 1 .004286349993635d-1*t15+1.8970043257475583d-1*t13 1681 t23 = 1.6081979498692536d+1/t22+1.0d+0 1682 t24 = log(t23) 1683 t25 = 1.3256889990520176d-1*t16+1.0d+0 1684 t26 = -6.903522198342671d-18*t24*t25-3.1090699999999993d-2 1685 1 *t20*t21 1686 t27 = 1/t14**3 1687 t28 = 1/rhoa**1.3333333333333333d+0 1688 t29 = 1/rhoa**1.1666666666666667d+0 1689 t30 = 1/t2**3 1690 t31 = 1/rhoa**4.333333333333333d+0 1691 t32 = 1/rhoa**2.6666666666666666d+0 1692 fnc(iq) = 5.0d-1*rhoa*t12*t26*t3*wght+fnc(iq) 1693 Amat(iq,D1_RA) = t3*(5.0d-1*rhoa*t26*(5.15088d-52*t32*t5*t 1694 1 6*t9-3.333333333333333d-50*t3*t32*t9-5.333333333333334d 1695 2 -99*t31*t5*t8+1.6482816d-150*t30*t8/rhoa**6+1.030176d-5 1696 3 1*t30*t32*t4*t7-6.666666666666666d-50*t32*t4*t5*t6-6.66 1697 4 6666666666666d-50*t11*t32*t5*t6+4.1207039999999995d-101 1698 5 *t11*t30*t31*t6-1.3333333333333333d-99*t11*t31*t5+2.060 1699 6 3519999999997d-101*t10*t31*t5-6.666666666666666d-50*t10 1700 7 *t3*t32)*wght+5.0d-1*rhoa*t12*(1.1102230246251565d-16*t 1701 8 25*(-9.970917392951799d-1*t29-7.418564737168958d-1*t28- 1702 9 4.002143174996817d-1*t27-1.264669550498372d-1*t1)/(t22* 1703 : *2*t23)+1.0d+0*t21*(-1.8533958105157808d+0*t29-1.281582 1704 ; 0791490704d+0*t28-8.223668877838045d-1*t27-1.6039141941 1705 < 921276d-1*t1)/(t18**2*t19)+3.0506411443514264d-19*t24*t 1706 = 28+1.3210398931339265d-3*t20*t28)*wght+5.0d-1*t12*t26*w 1707 > ght)+2.57544d-52*t1*t12*t26*t5*wght+Amat(iq,D1_RA) 1708 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 1709 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 1710 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 1711 else 1712 t1 = 1/rhoa**1.6666666666666669d+0 1713 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 1714 t3 = 1/t2 1715 t4 = param(12) 1716 t5 = 1/t2**2 1717 t6 = 2.0d-50*t1-9.11559972d+0 1718 t7 = t6**2 1719 t8 = param(10) 1720 t9 = param(9) 1721 t10 = param(8) 1722 t11 = param(11) 1723 t12 = t3*t6*t9+1.6d-99*t5*t8/rhoa**3.3333333333333337d+0+t 1724 1 4*t5*t7+4.0d-50*t1*t11*t5*t6+4.0d-50*t1*t10*t3+param(7) 1725 t13 = 1/rhoa**6.666666666666666d-1 1726 t14 = rhoa**5.0d-1 1727 t15 = 1/t14 1728 t16 = 1/rhoa**3.333333333333333d-1 1729 t17 = 1/rhoa**1.6666666666666666d-1 1730 t18 = 1.1120374863094686d+1*t17+3.8447462374472113d+0*t16+ 1731 1 1.644733775567609d+0*t15+2.4058712912881916d-1*t13 1732 t19 = 3.216395899738507d+1/t18+1.0d+0 1733 t20 = log(t19) 1734 t21 = 1.274696188700087d-1*t16+1.0d+0 1735 t22 = 5.982550435771079d+0*t17+2.2255694211506874d+0*t16+8 1736 1 .004286349993635d-1*t15+1.8970043257475583d-1*t13 1737 t23 = 1.6081979498692536d+1/t22+1.0d+0 1738 t24 = log(t23) 1739 t25 = 1.3256889990520176d-1*t16+1.0d+0 1740 t26 = -6.903522198342671d-18*t24*t25-3.1090699999999993d-2 1741 1 *t20*t21 1742 t27 = 1/t14**3 1743 t28 = 1/rhoa**1.3333333333333333d+0 1744 t29 = 1/rhoa**1.1666666666666667d+0 1745 t30 = 1/t2**3 1746 t31 = 1/rhoa**4.333333333333333d+0 1747 t32 = 1/rhoa**2.6666666666666666d+0 1748 fnc(iq) = 5.0d-1*rhoa*t12*t26*t3*wght+fnc(iq) 1749 Amat(iq,D1_RA) = t3*(5.0d-1*rhoa*t26*(5.15088d-52*t32*t5*t 1750 1 6*t9-3.333333333333333d-50*t3*t32*t9-5.333333333333334d 1751 2 -99*t31*t5*t8+1.6482816d-150*t30*t8/rhoa**6+1.030176d-5 1752 3 1*t30*t32*t4*t7-6.666666666666666d-50*t32*t4*t5*t6-6.66 1753 4 6666666666666d-50*t11*t32*t5*t6+4.1207039999999995d-101 1754 5 *t11*t30*t31*t6-1.3333333333333333d-99*t11*t31*t5+2.060 1755 6 3519999999997d-101*t10*t31*t5-6.666666666666666d-50*t10 1756 7 *t3*t32)*wght+5.0d-1*rhoa*t12*(1.1102230246251565d-16*t 1757 8 25*(-9.970917392951799d-1*t29-7.418564737168958d-1*t28- 1758 9 4.002143174996817d-1*t27-1.264669550498372d-1*t1)/(t22* 1759 : *2*t23)+1.0d+0*t21*(-1.8533958105157808d+0*t29-1.281582 1760 ; 0791490704d+0*t28-8.223668877838045d-1*t27-1.6039141941 1761 < 921276d-1*t1)/(t18**2*t19)+3.0506411443514264d-19*t24*t 1762 = 28+1.3210398931339265d-3*t20*t28)*wght+5.0d-1*t12*t26*w 1763 > ght)+2.57544d-52*t1*t12*t26*t5*wght+Amat(iq,D1_RA) 1764 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 1765 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 1766 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 1767 endif 1768 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 1769 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 1770 t1 = 1/rhob**6.666666666666666d-1 1771 t2 = rhob**5.0d-1 1772 t3 = 1/t2 1773 t4 = 1/rhob**3.333333333333333d-1 1774 t5 = 1/rhob**1.6666666666666666d-1 1775 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 1776 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 1777 t7 = 3.216395899738507d+1/t6+1.0d+0 1778 t8 = log(t7) 1779 t9 = 1.274696188700087d-1*t4+1.0d+0 1780 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 1781 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 1782 t11 = 1.6081979498692536d+1/t10+1.0d+0 1783 t12 = log(t11) 1784 t13 = 1.3256889990520176d-1*t4+1.0d+0 1785 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 1786 1 12*t13 1787 t15 = 1/rhob 1788 t16 = 1/taub 1789 t17 = 1.0d+0-1.25d-1*gammabb*t15*t16 1790 t18 = 1/rhob**2.6666666666666666d+0 1791 t19 = 1/rhob**1.6666666666666669d+0 1792 t20 = 2.0d+0*t19*taub 1793 t21 = 5.15088d-3*(t20+gammabb*t18-9.11559972d+0)+1.0d+0 1794 t22 = 1/t21 1795 t23 = param(10) 1796 t24 = gammabb**2 1797 t25 = 1/rhob**5.333333333333333d+0 1798 t26 = 1/t21**2 1799 t27 = param(11) 1800 t28 = t20-9.11559972d+0 1801 t29 = param(12) 1802 t30 = t28**2 1803 t31 = param(8) 1804 t32 = param(9) 1805 t33 = t22*t28*t32+gammabb*t18*t22*t31+t26*t29*t30+gammabb* 1806 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 1807 t34 = 1/rhob**3.6666666666666664d+0 1808 t35 = -3.3333333333333337d+0*t18*taub-2.6666666666666666d+ 1809 1 0*gammabb*t34 1810 t36 = 1/t21**3 1811 t37 = 1/t2**3 1812 t38 = 1/rhob**1.3333333333333333d+0 1813 t39 = 1/rhob**1.1666666666666667d+0 1814 t40 = 1/rhob**4.333333333333333d+0 1815 fnc(iq) = 1.0d+0*rhob*t14*t17*t22*t33*wght+fnc(iq) 1816 Amat(iq,D1_RB) = t22*(1.0d+0*rhob*t14*t17*(-3.333333333333 1817 1 3337d+0*t18*t22*t32*taub-6.666666666666667d+0*t18*t26*t 1818 2 28*t29*taub-3.3333333333333337d+0*gammabb*t25*t26*t27*t 1819 3 aub-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammabb*t18 1820 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 1821 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammabb*t18*t26*t31*t35 1822 6 -2.6666666666666666d+0*gammabb*t22*t31*t34-2.6666666666 1823 7 666666d+0*gammabb*t26*t27*t28*t34-5.333333333333333d+0* 1824 8 t23*t24*t26/rhob**6.333333333333333d+0)*wght+1.0d+0*rho 1825 9 b*t17*t33*(1.0d+0*(-1.8533958105157808d+0*t39-1.2815820 1826 : 791490704d+0*t38-8.223668877838045d-1*t37-1.60391419419 1827 ; 21276d-1*t19)*t9/(t6**2*t7)+1.3210398931339265d-3*t38*t 1828 < 8+1.1102230246251565d-16*t13*(-9.970917392951799d-1*t39 1829 = -7.418564737168958d-1*t38-4.002143174996817d-1*t37-1.26 1830 > 4669550498372d-1*t19)/(t10**2*t11)+3.0506411443514264d- 1831 ? 19*t12*t38)*wght+1.0d+0*t14*t17*t33*wght)-5.15088d-3*rh 1832 @ ob*t14*t17*t26*t33*t35*wght+1.25d-1*gammabb*t14*t15*t16 1833 1 *t22*t33*wght+Amat(iq,D1_RB) 1834 Cmat(iq,D1_GBB) = 1.0d+0*rhob*t14*t17*t22*(-1.030176d-2*t1 1835 1 8*t29*t30*t36-1.030176d-2*gammabb*t25*t27*t28*t36-1.030 1836 2 176d-2*t23*t24*t36/rhob**8-5.15088d-3*t18*t26*t28*t32-5 1837 3 .15088d-3*gammabb*t25*t26*t31+t18*t22*t31+t18*t26*t27*t 1838 4 28+2*gammabb*t23*t25*t26)*wght-5.15088d-3*t14*t17*t19*t 1839 5 26*t33*wght-1.25d-1*t14*t16*t22*t33*wght+Cmat(iq,D1_GBB 1840 6 ) 1841 Mmat(iq,D1_TB) = 1.25d-1*gammabb*t14*t22*t33*wght/taub**2+ 1842 1 1.0d+0*rhob*t14*t17*t22*(-2.060352d-2*gammabb*t27*t28*t 1843 2 36*t40-1.030176d-2*gammabb*t26*t31*t40+2.0d+0*gammabb*t 1844 3 26*t27*t40-2.060352d-2*t19*t29*t30*t36-2.060352d-2*t23* 1845 4 t24*t36/rhob**7-1.030176d-2*t19*t26*t28*t32+2.0d+0*t19* 1846 5 t22*t32+4.0d+0*t19*t26*t28*t29)*wght-1.030176d-2*t1*t14 1847 6 *t17*t26*t33*wght+Mmat(iq,D1_TB) 1848 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 1849 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 1850 t1 = 1/rhob**1.6666666666666669d+0 1851 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 1852 t3 = 1/t2 1853 t4 = param(12) 1854 t5 = 1/t2**2 1855 t6 = 2.0d-50*t1-9.11559972d+0 1856 t7 = t6**2 1857 t8 = param(10) 1858 t9 = param(9) 1859 t10 = param(8) 1860 t11 = param(11) 1861 t12 = t3*t6*t9+1.6d-99*t5*t8/rhob**3.3333333333333337d+0+t 1862 1 4*t5*t7+4.0d-50*t1*t11*t5*t6+4.0d-50*t1*t10*t3+param(7) 1863 t13 = 1/rhob**6.666666666666666d-1 1864 t14 = rhob**5.0d-1 1865 t15 = 1/t14 1866 t16 = 1/rhob**3.333333333333333d-1 1867 t17 = 1/rhob**1.6666666666666666d-1 1868 t18 = 1.1120374863094686d+1*t17+3.8447462374472113d+0*t16+ 1869 1 1.644733775567609d+0*t15+2.4058712912881916d-1*t13 1870 t19 = 3.216395899738507d+1/t18+1.0d+0 1871 t20 = log(t19) 1872 t21 = 1.274696188700087d-1*t16+1.0d+0 1873 t22 = 5.982550435771079d+0*t17+2.2255694211506874d+0*t16+8 1874 1 .004286349993635d-1*t15+1.8970043257475583d-1*t13 1875 t23 = 1.6081979498692536d+1/t22+1.0d+0 1876 t24 = log(t23) 1877 t25 = 1.3256889990520176d-1*t16+1.0d+0 1878 t26 = -6.903522198342671d-18*t24*t25-3.1090699999999993d-2 1879 1 *t20*t21 1880 t27 = 1/t14**3 1881 t28 = 1/rhob**1.3333333333333333d+0 1882 t29 = 1/rhob**1.1666666666666667d+0 1883 t30 = 1/t2**3 1884 t31 = 1/rhob**4.333333333333333d+0 1885 t32 = 1/rhob**2.6666666666666666d+0 1886 fnc(iq) = 5.0d-1*rhob*t12*t26*t3*wght+fnc(iq) 1887 Amat(iq,D1_RB) = t3*(5.0d-1*rhob*t26*(5.15088d-52*t32*t5*t 1888 1 6*t9-3.333333333333333d-50*t3*t32*t9-5.333333333333334d 1889 2 -99*t31*t5*t8+1.6482816d-150*t30*t8/rhob**6+1.030176d-5 1890 3 1*t30*t32*t4*t7-6.666666666666666d-50*t32*t4*t5*t6-6.66 1891 4 6666666666666d-50*t11*t32*t5*t6+4.1207039999999995d-101 1892 5 *t11*t30*t31*t6-1.3333333333333333d-99*t11*t31*t5+2.060 1893 6 3519999999997d-101*t10*t31*t5-6.666666666666666d-50*t10 1894 7 *t3*t32)*wght+5.0d-1*rhob*t12*(1.1102230246251565d-16*t 1895 8 25*(-9.970917392951799d-1*t29-7.418564737168958d-1*t28- 1896 9 4.002143174996817d-1*t27-1.264669550498372d-1*t1)/(t22* 1897 : *2*t23)+1.0d+0*t21*(-1.8533958105157808d+0*t29-1.281582 1898 ; 0791490704d+0*t28-8.223668877838045d-1*t27-1.6039141941 1899 < 921276d-1*t1)/(t18**2*t19)+3.0506411443514264d-19*t24*t 1900 = 28+1.3210398931339265d-3*t20*t28)*wght+5.0d-1*t12*t26*w 1901 > ght)+2.57544d-52*t1*t12*t26*t5*wght+Amat(iq,D1_RB) 1902 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 1903 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 1904 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 1905 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 1906 t1 = 1/rhob**6.666666666666666d-1 1907 t2 = rhob**5.0d-1 1908 t3 = 1/t2 1909 t4 = 1/rhob**3.333333333333333d-1 1910 t5 = 1/rhob**1.6666666666666666d-1 1911 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 1912 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 1913 t7 = 3.216395899738507d+1/t6+1.0d+0 1914 t8 = log(t7) 1915 t9 = 1.274696188700087d-1*t4+1.0d+0 1916 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 1917 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 1918 t11 = 1.6081979498692536d+1/t10+1.0d+0 1919 t12 = log(t11) 1920 t13 = 1.3256889990520176d-1*t4+1.0d+0 1921 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 1922 1 12*t13 1923 t15 = 1/rhob 1924 t16 = 1/taub 1925 t17 = 1.0d+0-1.25d-1*gammabb*t15*t16 1926 t18 = 1/rhob**2.6666666666666666d+0 1927 t19 = 1/rhob**1.6666666666666669d+0 1928 t20 = 2.0d+0*t19*taub 1929 t21 = 5.15088d-3*(t20+gammabb*t18-9.11559972d+0)+1.0d+0 1930 t22 = 1/t21 1931 t23 = param(10) 1932 t24 = gammabb**2 1933 t25 = 1/rhob**5.333333333333333d+0 1934 t26 = 1/t21**2 1935 t27 = param(11) 1936 t28 = t20-9.11559972d+0 1937 t29 = param(12) 1938 t30 = t28**2 1939 t31 = param(8) 1940 t32 = param(9) 1941 t33 = t22*t28*t32+gammabb*t18*t22*t31+t26*t29*t30+gammabb* 1942 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 1943 t34 = 1/rhob**3.6666666666666664d+0 1944 t35 = -3.3333333333333337d+0*t18*taub-2.6666666666666666d+ 1945 1 0*gammabb*t34 1946 t36 = 1/t21**3 1947 t37 = 1/t2**3 1948 t38 = 1/rhob**1.3333333333333333d+0 1949 t39 = 1/rhob**1.1666666666666667d+0 1950 t40 = 1/rhob**4.333333333333333d+0 1951 fnc(iq) = 1.0d+0*rhob*t14*t17*t22*t33*wght+fnc(iq) 1952 Amat(iq,D1_RB) = t22*(1.0d+0*rhob*t14*t17*(-3.333333333333 1953 1 3337d+0*t18*t22*t32*taub-6.666666666666667d+0*t18*t26*t 1954 2 28*t29*taub-3.3333333333333337d+0*gammabb*t25*t26*t27*t 1955 3 aub-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammabb*t18 1956 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 1957 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammabb*t18*t26*t31*t35 1958 6 -2.6666666666666666d+0*gammabb*t22*t31*t34-2.6666666666 1959 7 666666d+0*gammabb*t26*t27*t28*t34-5.333333333333333d+0* 1960 8 t23*t24*t26/rhob**6.333333333333333d+0)*wght+1.0d+0*rho 1961 9 b*t17*t33*(1.0d+0*(-1.8533958105157808d+0*t39-1.2815820 1962 : 791490704d+0*t38-8.223668877838045d-1*t37-1.60391419419 1963 ; 21276d-1*t19)*t9/(t6**2*t7)+1.3210398931339265d-3*t38*t 1964 < 8+1.1102230246251565d-16*t13*(-9.970917392951799d-1*t39 1965 = -7.418564737168958d-1*t38-4.002143174996817d-1*t37-1.26 1966 > 4669550498372d-1*t19)/(t10**2*t11)+3.0506411443514264d- 1967 ? 19*t12*t38)*wght+1.0d+0*t14*t17*t33*wght)-5.15088d-3*rh 1968 @ ob*t14*t17*t26*t33*t35*wght+1.25d-1*gammabb*t14*t15*t16 1969 1 *t22*t33*wght+Amat(iq,D1_RB) 1970 Cmat(iq,D1_GBB) = 1.0d+0*rhob*t14*t17*t22*(-1.030176d-2*t1 1971 1 8*t29*t30*t36-1.030176d-2*gammabb*t25*t27*t28*t36-1.030 1972 2 176d-2*t23*t24*t36/rhob**8-5.15088d-3*t18*t26*t28*t32-5 1973 3 .15088d-3*gammabb*t25*t26*t31+t18*t22*t31+t18*t26*t27*t 1974 4 28+2*gammabb*t23*t25*t26)*wght-5.15088d-3*t14*t17*t19*t 1975 5 26*t33*wght-1.25d-1*t14*t16*t22*t33*wght+Cmat(iq,D1_GBB 1976 6 ) 1977 Mmat(iq,D1_TB) = 1.25d-1*gammabb*t14*t22*t33*wght/taub**2+ 1978 1 1.0d+0*rhob*t14*t17*t22*(-2.060352d-2*gammabb*t27*t28*t 1979 2 36*t40-1.030176d-2*gammabb*t26*t31*t40+2.0d+0*gammabb*t 1980 3 26*t27*t40-2.060352d-2*t19*t29*t30*t36-2.060352d-2*t23* 1981 4 t24*t36/rhob**7-1.030176d-2*t19*t26*t28*t32+2.0d+0*t19* 1982 5 t22*t32+4.0d+0*t19*t26*t28*t29)*wght-1.030176d-2*t1*t14 1983 6 *t17*t26*t33*wght+Mmat(iq,D1_TB) 1984 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 1985 else 1986 t1 = 1/rhob**1.6666666666666669d+0 1987 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 1988 t3 = 1/t2 1989 t4 = param(12) 1990 t5 = 1/t2**2 1991 t6 = 2.0d-50*t1-9.11559972d+0 1992 t7 = t6**2 1993 t8 = param(10) 1994 t9 = param(9) 1995 t10 = param(8) 1996 t11 = param(11) 1997 t12 = t3*t6*t9+1.6d-99*t5*t8/rhob**3.3333333333333337d+0+t 1998 1 4*t5*t7+4.0d-50*t1*t11*t5*t6+4.0d-50*t1*t10*t3+param(7) 1999 t13 = 1/rhob**6.666666666666666d-1 2000 t14 = rhob**5.0d-1 2001 t15 = 1/t14 2002 t16 = 1/rhob**3.333333333333333d-1 2003 t17 = 1/rhob**1.6666666666666666d-1 2004 t18 = 1.1120374863094686d+1*t17+3.8447462374472113d+0*t16+ 2005 1 1.644733775567609d+0*t15+2.4058712912881916d-1*t13 2006 t19 = 3.216395899738507d+1/t18+1.0d+0 2007 t20 = log(t19) 2008 t21 = 1.274696188700087d-1*t16+1.0d+0 2009 t22 = 5.982550435771079d+0*t17+2.2255694211506874d+0*t16+8 2010 1 .004286349993635d-1*t15+1.8970043257475583d-1*t13 2011 t23 = 1.6081979498692536d+1/t22+1.0d+0 2012 t24 = log(t23) 2013 t25 = 1.3256889990520176d-1*t16+1.0d+0 2014 t26 = -6.903522198342671d-18*t24*t25-3.1090699999999993d-2 2015 1 *t20*t21 2016 t27 = 1/t14**3 2017 t28 = 1/rhob**1.3333333333333333d+0 2018 t29 = 1/rhob**1.1666666666666667d+0 2019 t30 = 1/t2**3 2020 t31 = 1/rhob**4.333333333333333d+0 2021 t32 = 1/rhob**2.6666666666666666d+0 2022 fnc(iq) = 5.0d-1*rhob*t12*t26*t3*wght+fnc(iq) 2023 Amat(iq,D1_RB) = t3*(5.0d-1*rhob*t26*(5.15088d-52*t32*t5*t 2024 1 6*t9-3.333333333333333d-50*t3*t32*t9-5.333333333333334d 2025 2 -99*t31*t5*t8+1.6482816d-150*t30*t8/rhob**6+1.030176d-5 2026 3 1*t30*t32*t4*t7-6.666666666666666d-50*t32*t4*t5*t6-6.66 2027 4 6666666666666d-50*t11*t32*t5*t6+4.1207039999999995d-101 2028 5 *t11*t30*t31*t6-1.3333333333333333d-99*t11*t31*t5+2.060 2029 6 3519999999997d-101*t10*t31*t5-6.666666666666666d-50*t10 2030 7 *t3*t32)*wght+5.0d-1*rhob*t12*(1.1102230246251565d-16*t 2031 8 25*(-9.970917392951799d-1*t29-7.418564737168958d-1*t28- 2032 9 4.002143174996817d-1*t27-1.264669550498372d-1*t1)/(t22* 2033 : *2*t23)+1.0d+0*t21*(-1.8533958105157808d+0*t29-1.281582 2034 ; 0791490704d+0*t28-8.223668877838045d-1*t27-1.6039141941 2035 < 921276d-1*t1)/(t18**2*t19)+3.0506411443514264d-19*t24*t 2036 = 28+1.3210398931339265d-3*t20*t28)*wght+5.0d-1*t12*t26*w 2037 > ght)+2.57544d-52*t1*t12*t26*t5*wght+Amat(iq,D1_RB) 2038 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 2039 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 2040 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 2041 endif 2042 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 2043 endif ! ipol.eq.1 2044 enddo ! iq 2045 end 2046C> 2047C> \brief Evaluate the nwxcm_c_vs98 functional [1] 2048C> 2049C> \f{eqnarray*}{ 2050C> {\it t_1} &=& {{1}\over{\rho_\alpha^{{{2}\over{3}}}}}\\\\ 2051C> {\it t_2} &=& {{1}\over{\sqrt{\rho_\alpha}}}\\\\ 2052C> {\it t_3} &=& {{1}\over{\rho_\alpha^{{{1}\over{3}}}}}\\\\ 2053C> {\it t_4} &=& {{1}\over{\rho_\alpha^{{{1}\over{6}}}}}\\\\ 2054C> {\it t_5} &=& -6.903522198342671 \times 10^{-18}\,\log 2055C> \left({{16.08197949869254}\over{5.98255043577108\,{\it t_4} 2056C> +2.225569421150687\,{\it t_3}+0.8004286349993635\,{\it t_2} 2057C> +0.1897004325747558\,{\it t_1}}}+1.0\right)\, 2058C> \left(0.1325688999052018\,{\it t_3}+1.0\right)-0.0310907 2059C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 2060C> \it t_4}+3.844746237447211\,{\it t_3}+1.644733775567609\,{ 2061C> \it t_2}+0.2405871291288192\,{\it t_1}}}+1.0\right)\, 2062C> \left(0.1274696188700087\,{\it t_3}+1.0\right)\\\\ 2063C> {\it t_6} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 2064C> {\it t_7} &=& {\it t_6}\,\sigma_{\alpha\alpha}\\\\ 2065C> {\it t_8} &=& {{2.0\,\tau_\alpha}\over{\rho_\alpha^{{{5} 2066C> \over{3}}}}}\\\\ 2067C> {\it t_9} &=& 0.00515088\,\left({\it t_8}+{\it t_7} 2068C> -9.11559972\right)+1.0\\\\ 2069C> {\it t_{10}} &=& {{1}\over{{\it t_9}}}\\\\ 2070C> {\it t_{11}} &=& {\it param}\left(7\right)\\\\ 2071C> {\it t_{12}} &=& {\it param}\left(10\right)\\\\ 2072C> {\it t_{13}} &=& {{1}\over{{\it t_9}^2}}\\\\ 2073C> {\it t_{14}} &=& {\it param}\left(11\right)\\\\ 2074C> {\it t_{15}} &=& {\it t_8}-9.11559972\\\\ 2075C> {\it t_{16}} &=& {\it param}\left(12\right)\\\\ 2076C> {\it t_{17}} &=& {\it param}\left(8\right)\\\\ 2077C> {\it t_{18}} &=& {\it param}\left(9\right)\\\\ 2078C> {\it t_{19}} &=& {{1}\over{\rho_\beta^{{{2}\over{3}}}}}\\\\ 2079C> {\it t_{20}} &=& {{1}\over{\sqrt{\rho_\beta}}}\\\\ 2080C> {\it t_{21}} &=& {{1}\over{\rho_\beta^{{{1}\over{3}}}}}\\\\ 2081C> {\it t_{22}} &=& {{1}\over{\rho_\beta^{{{1}\over{6}}}}}\\\\ 2082C> {\it t_{23}} &=& -6.903522198342671 \times 10^{-18} 2083C> \,\log \left({{16.08197949869254}\over{5.98255043577108\,{ 2084C> \it t_{22}}+2.225569421150687\,{\it t_{21}}+0.8004286349993635 2085C> \,{\it t_{20}}+0.1897004325747558\,{\it t_{19}}}}+1.0\right) 2086C> \,\left(0.1325688999052018\,{\it t_{21}}+1.0\right)-0.0310907 2087C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 2088C> \it t_{22}}+3.844746237447211\,{\it t_{21}}+1.644733775567609 2089C> \,{\it t_{20}}+0.2405871291288192\,{\it t_{19}}}}+1.0\right) 2090C> \,\left(0.1274696188700087\,{\it t_{21}}+1.0\right)\\\\ 2091C> {\it t_{24}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 2092C> {\it t_{25}} &=& {\it t_{24}}\,\sigma_{\beta\beta}\\\\ 2093C> {\it t_{26}} &=& {{2.0\,\tau_\beta}\over{\rho_\beta^{{{5} 2094C> \over{3}}}}}\\\\ 2095C> {\it t_{27}} &=& 0.00515088\,\left({\it t_{26}}+{\it t_{25}} 2096C> -9.11559972\right)+1.0\\\\ 2097C> {\it t_{28}} &=& {{1}\over{{\it t_{27}}}}\\\\ 2098C> {\it t_{29}} &=& {{1}\over{{\it t_{27}}^2}}\\\\ 2099C> {\it t_{30}} &=& {\it t_{26}}-9.11559972\\\\ 2100C> {\it t_{31}} &=& \rho_\beta+\rho_\alpha\\\\ 2101C> {\it t_{32}} &=& {{1}\over{{\it t_{31}}^{{{1}\over{3}}}}}\\\\ 2102C> {\it t_{33}} &=& \rho_\alpha-\rho_\beta\\\\ 2103C> {\it t_{34}} &=& {\it t_{33}}^4\\\\ 2104C> {\it t_{35}} &=& {{1}\over{{\it t_{31}}^4}}\\\\ 2105C> {\it t_{36}} &=& {{1}\over{{\it t_{31}}}}\\\\ 2106C> {\it t_{37}} &=& \left({\it t_{33}}\,{\it t_{36}} 2107C> +1.0\right)^{{{4}\over{3}}}+\left(1.0-{\it t_{33}}\,{ 2108C> \it t_{36}}\right)^{{{4}\over{3}}}-2.0\\\\ 2109C> {\it t_{38}} &=& -1.923661050931536\,{\it t_{34}}\,{\it t_{35}} 2110C> \,{\it t_{37}}\\\\ 2111C> {\it t_{39}} &=& {{1}\over{{\it t_{31}}^{{{2}\over{3}}}}}\\\\ 2112C> {\it t_{40}} &=& {{1}\over{\sqrt{{\it t_{31}}}}}\\\\ 2113C> {\it t_{41}} &=& {{1}\over{{\it t_{31}}^{{{1}\over{6}}}}}\\\\ 2114C> {\it t_{42}} &=& 0.00304966\,\left({\it t_{26}}+{\it t_8}+{ 2115C> \it t_{25}}+{\it t_7}-18.23119944\right)+1.0\\\\ 2116C> {\it t_{43}} &=& {{1}\over{{\it t_{42}}}}\\\\ 2117C> {\it t_{44}} &=& {\it t_{25}}+{\it t_7}\\\\ 2118C> {\it t_{45}} &=& {{1}\over{{\it t_{42}}^2}}\\\\ 2119C> {\it t_{46}} &=& {\it t_{26}}+{\it t_8}-18.23119944\\\\ 2120C> {\it t_{47}} &=& {{1}\over{\rho_s^{{{2}\over{3}}}}}\\\\ 2121C> {\it t_{48}} &=& {{1}\over{\sqrt{\rho_s}}}\\\\ 2122C> {\it t_{49}} &=& {{1}\over{\rho_s^{{{1}\over{3}}}}}\\\\ 2123C> {\it t_{50}} &=& {{1}\over{\rho_s^{{{1}\over{6}}}}}\\\\ 2124C> {\it t_{51}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 2125C> {\it t_{52}} &=& {{2.0\,\tau_s}\over{\rho_s^{{{5}\over{3}}}}}\\\\ 2126C> {\it t_{53}} &=& 0.00515088\,\left({\it t_{52}}+{\it t_{51}} 2127C> \,\sigma_{ss}-9.11559972\right)+1.0\\\\ 2128C> {\it t_{54}} &=& {{1}\over{{\it t_{53}}}}\\\\ 2129C> {\it t_{55}} &=& {{1}\over{{\it t_{53}}^2}}\\\\ 2130C> {\it t_{56}} &=& {\it t_{52}}-9.11559972\\\\ 2131C> f &=& 1.0\,\left({\it t_{31}}\,\left(-0.0598079686361971\,{ 2132C> \it t_{34}}\,{\it t_{35}}\,\left(0.1274696188700087\,{ 2133C> \it t_{32}}+1.0\right)\,{\it t_{37}}\,\log 2134C> \left({{32.16395899738507}\over{11.12037486309469\,{\it t_{41}} 2135C> +3.844746237447211\,{\it t_{32}}+1.644733775567609\,{\it t_{40}} 2136C> +0.2405871291288192\,{\it t_{39}}}}+1.0\right) 2137C> +0.01975163132168077\,\left(0.06901399211255825\,{\it t_{32}} 2138C> +1.0\right)\,\left({\it t_{38}}+1.923661050931536\,{ 2139C> \it t_{37}}\right)\,\log \left({{29.60881320326807} 2140C> \over{8.15741470348764\,{\it t_{41}}+2.247591863577616\,{ 2141C> \it t_{32}}+0.4300972471276643\,{\it t_{40}} 2142C> +0.1911512595127337\,{\it t_{39}}}}+1.0\right)-0.0621814 2143C> \,\left(0.1325688999052018\,{\it t_{32}}+1.0\right)\,\left({ 2144C> \it t_{38}}+1.0\right)\,\log \left({{16.08197949869254} 2145C> \over{5.98255043577108\,{\it t_{41}}+2.225569421150687\,{ 2146C> \it t_{32}}+0.8004286349993635\,{\it t_{40}} 2147C> +0.1897004325747558\,{\it t_{39}}}}+1.0\right)\right)-{ 2148C> \it t_{23}}\,\rho_\beta-{\it t_5}\,\rho_\alpha\right)\,{ 2149C> \it t_{43}}\,\left({\it param}\left(3\right)\,{\it t_{46}} 2150C> \,{\it t_{43}}+{\it param}\left(2\right)\,{\it t_{44}}\,{ 2151C> \it t_{43}}+{\it param}\left(6\right)\,{\it t_{46}}^2\,{ 2152C> \it t_{45}}+{\it param}\left(5\right)\,{\it t_{44}}\,{ 2153C> \it t_{46}}\,{\it t_{45}}+{\it param}\left(4\right)\,{ 2154C> \it t_{44}}^2\,{\it t_{45}}+{\it param}\left(1\right)\right) 2155C> +1.0\,{\it t_{23}}\,\rho_\beta\,\left(1.0-{{0.125\, 2156C> \sigma_{\beta\beta}}\over{\rho_\beta\,\tau_\beta}}\right)\,{ 2157C> \it t_{28}}\,\left({\it t_{18}}\,{\it t_{30}}\,{\it t_{28}} 2158C> +{\it t_{17}}\,{\it t_{24}}\,\sigma_{\beta\beta}\,{\it t_{28}} 2159C> +{\it t_{16}}\,{\it t_{30}}^2\,{\it t_{29}}+{\it t_{14}}\,{ 2160C> \it t_{24}}\,\sigma_{\beta\beta}\,{\it t_{30}}\,{\it t_{29}} 2161C> +{{{\it t_{12}}\,\sigma_{\beta\beta}^2\,{\it t_{29}}} 2162C> \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{11}}\right)+1.0 2163C> \,{\it t_5}\,\rho_\alpha\,\left(1.0-{{0.125\, 2164C> \sigma_{\alpha\alpha}}\over{\rho_\alpha\,\tau_\alpha}}\right) 2165C> \,{\it t_{10}}\,\left({\it t_{18}}\,{\it t_{15}}\,{\it t_{10}} 2166C> +{\it t_{17}}\,{\it t_6}\,\sigma_{\alpha\alpha}\,{\it t_{10}} 2167C> +{\it t_{16}}\,{\it t_{15}}^2\,{\it t_{13}}+{\it t_{14}}\,{ 2168C> \it t_6}\,\sigma_{\alpha\alpha}\,{\it t_{15}}\,{\it t_{13}} 2169C> +{{{\it t_{12}}\,\sigma_{\alpha\alpha}^2\,{\it t_{13}}} 2170C> \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{11}}\right)\\\\ 2171C> g &=& 0\\\\ 2172C> G &=& 1.0\,\left(-6.903522198342671 \times 10^{-18} 2173C> \,\log \left({{16.08197949869254}\over{5.98255043577108\,{ 2174C> \it t_{50}}+2.225569421150687\,{\it t_{49}}+0.8004286349993635 2175C> \,{\it t_{48}}+0.1897004325747558\,{\it t_{47}}}}+1.0\right) 2176C> \,\left(0.1325688999052018\,{\it t_{49}}+1.0\right)-0.0310907 2177C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 2178C> \it t_{50}}+3.844746237447211\,{\it t_{49}}+1.644733775567609 2179C> \,{\it t_{48}}+0.2405871291288192\,{\it t_{47}}}}+1.0\right) 2180C> \,\left(0.1274696188700087\,{\it t_{49}}+1.0\right)\right) 2181C> \,\rho_s\,\left(1.0-{{0.125\,\sigma_{ss}}\over{\rho_s 2182C> \,\tau_s}}\right)\,{\it t_{54}}\,\left({\it t_{18}}\,{ 2183C> \it t_{56}}\,{\it t_{54}}+{\it t_{17}}\,{\it t_{51}}\, 2184C> \sigma_{ss}\,{\it t_{54}}+{\it t_{16}}\,{\it t_{56}}^2\,{ 2185C> \it t_{55}}+{\it t_{14}}\,{\it t_{51}}\,\sigma_{ss}\,{ 2186C> \it t_{56}}\,{\it t_{55}}+{{{\it t_{12}}\,\sigma_{ss}^2\,{ 2187C> \it t_{55}}}\over{\rho_s^{{{16}\over{3}}}}}+{ 2188C> \it t_{11}}\right)\\\\ 2189C> \f} 2190C> 2191C> Code generated with Maxima 5.34.0 [2] 2192C> driven by autoxc-Ds [3]. 2193C> 2194C> ### References ### 2195C> 2196C> [1] T van Voorhis, GE Scuseria, J.Chem.Phys. 109, 400 (1998) , DOI: 2197C> <a href="https://doi.org/10.1063/1.3005348 "> 2198C> 10.1063/1.3005348 </a> 2199C> 2200C> [2] Maxima, a computer algebra system, 2201C> <a href="http://maxima.sourceforge.net/"> 2202C> http://maxima.sourceforge.net/</a> 2203C> 2204C> [3] autoxc-Ds, revision 27207 2015-06-23 2205C> 2206 subroutine nwxcm_c_vs98_d2(param,tol_rho,ipol,nq,wght, 2207 +rho,rgamma,tau,fnc,Amat,Amat2,Cmat,Cmat2,Mmat,Mmat2) 2208c $Id: $ 2209#ifdef NWXC_QUAD_PREC 2210 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 2211 integer, parameter :: rk=selected_real_kind(30) 2212#else 2213 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 2214 integer, parameter :: rk=selected_real_kind(15) 2215#endif 2216#include "nwxc_param.fh" 2217 double precision param(*) !< [Input] Parameters of functional 2218 double precision tol_rho !< [Input] The lower limit on the density 2219 integer ipol !< [Input] The number of spin channels 2220 integer nq !< [Input] The number of points 2221 double precision wght !< [Input] The weight of the functional 2222 double precision rho(nq,NCOL_RHO) !< [Input] The density 2223 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 2224 !< gradients 2225 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 2226 double precision fnc(nq) !< [Output] The value of the functional 2227c 2228c Sampling Matrices for the XC Kernel 2229c 2230 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 2231 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 2232 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 2233c 2234c Sampling Matrices for the XC Kernel 2235c 2236 double precision Amat2(nq,NCOL_AMAT2) !< [Output] The 2nd derivative wrt rho 2237 double precision Cmat2(nq,NCOL_CMAT2) !< [Output] The 2nd derivative wrt rgamma 2238 !< and possibly rho 2239 double precision Mmat2(nq,NCOL_MMAT2) !< [Output] The 2nd derivative wrt tau 2240 !< and possibly rho 2241 integer iq 2242 double precision tmp 2243 double precision rhoa,rhob 2244 double precision gammaaa,gammaab,gammabb 2245 double precision taua,taub 2246 double precision nwxcm_heaviside 2247 external nwxcm_heaviside 2248!DIR$ NOVECTOR 2249 do iq = 1, nq 2250 if (ipol.eq.1) then 2251 rhoa = 0.5d0*rho(iq,R_T) 2252 gammaaa = 0.25d0*rgamma(iq,G_TT) 2253 taua = 0.5d0*tau(iq,T_T) 2254 if (rhoa.gt.tol_rho) then 2255 if (taua.gt.tol_rho) then 2256 t1 = 1/rhoa**6.666666666666666d-1 2257 t2 = rhoa**5.0d-1 2258 t3 = 1/t2 2259 t4 = 1/rhoa**3.333333333333333d-1 2260 t5 = 1/rhoa**1.6666666666666666d-1 2261 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 2262 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 2263 t7 = 3.216395899738507d+1/t6+1.0d+0 2264 t8 = log(t7) 2265 t9 = 1.274696188700087d-1*t4+1.0d+0 2266 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 2267 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 2268 t11 = 1.6081979498692536d+1/t10+1.0d+0 2269 t12 = log(t11) 2270 t13 = 1.3256889990520176d-1*t4+1.0d+0 2271 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 2272 1 12*t13 2273 t15 = 1/rhoa 2274 t16 = 1/taua 2275 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 2276 t18 = 1/rhoa**2.6666666666666666d+0 2277 t19 = 1/rhoa**1.6666666666666669d+0 2278 t20 = 2.0d+0*t19*taua 2279 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 2280 t22 = 1/t21 2281 t23 = param(10) 2282 t24 = gammaaa**2 2283 t25 = 1/rhoa**5.333333333333333d+0 2284 t26 = 1/t21**2 2285 t27 = param(11) 2286 t28 = t20-9.11559972d+0 2287 t29 = param(12) 2288 t30 = t28**2 2289 t31 = param(8) 2290 t32 = param(9) 2291 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 2292 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 2293 t34 = -2*rhoa*t14 2294 t35 = 4.0d+0*t19*taua 2295 t36 = 3.04966d-3*(t35+2*gammaaa*t18-1.823119944d+1)+1.0d+0 2296 t37 = 1/t36 2297 t38 = param(4) 2298 t39 = 1/t36**2 2299 t40 = param(5) 2300 t41 = t35-1.823119944d+1 2301 t42 = param(6) 2302 t43 = t41**2 2303 t44 = param(2) 2304 t45 = param(3) 2305 t46 = t37*t41*t45+2*gammaaa*t18*t37*t44+t39*t42*t43+2*gamm 2306 1 aaa*t18*t39*t40*t41+4*t24*t25*t38*t39+param(1) 2307 t47 = 1/rhoa**3.6666666666666664d+0 2308 t48 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 2309 1 0*gammaaa*t47 2310 t49 = 1/t21**3 2311 t50 = 1/rhoa**6.333333333333333d+0 2312 t51 = -3.3333333333333337d+0*t18*t22*t32*taua-6.6666666666 2313 1 66667d+0*t18*t26*t28*t29*taua-3.3333333333333337d+0*gam 2314 2 maaa*t25*t26*t27*taua-5.333333333333333d+0*t23*t24*t26* 2315 3 t50-1.030176d-2*t29*t30*t48*t49-1.030176d-2*gammaaa*t18 2316 4 *t27*t28*t48*t49-1.030176d-2*t23*t24*t25*t48*t49-5.1508 2317 5 8d-3*t26*t28*t32*t48-5.15088d-3*gammaaa*t18*t26*t31*t48 2318 6 -2.6666666666666666d+0*gammaaa*t22*t31*t47-2.6666666666 2319 7 666666d+0*gammaaa*t26*t27*t28*t47 2320 t52 = 1/t11 2321 t53 = 1/t2**3 2322 t54 = 1/rhoa**1.3333333333333333d+0 2323 t55 = 1/rhoa**1.1666666666666667d+0 2324 t56 = -9.970917392951799d-1*t55-7.418564737168958d-1*t54-4 2325 1 .002143174996817d-1*t53-1.264669550498372d-1*t19 2326 t57 = 1/t10**2 2327 t58 = 1/t7 2328 t59 = -1.8533958105157808d+0*t55-1.2815820791490704d+0*t54 2329 1 -8.223668877838045d-1*t53-1.6039141941921276d-1*t19 2330 t60 = 1/t6**2 2331 t61 = 1.0d+0*t58*t59*t60*t9+1.3210398931339265d-3*t54*t8+1 2332 1 .1102230246251565d-16*t13*t52*t56*t57+3.050641144351426 2333 2 4d-19*t12*t54 2334 t62 = 1.0d+0*rhoa*t17*t33*t61+1.0d+0*rhoa*t14*t17*t51+1.0d 2335 1 +0*t14*t17*t33 2336 t63 = 6.299605249474366d-1 2337 t64 = 1.414213562373095d+0 2338 t65 = 1/t64 2339 t66 = 7.937005259840998d-1 2340 t67 = 8.908987181403393d-1 2341 t68 = 5.982550435771079d+0*t5*t67+2.2255694211506874d+0*t4 2342 1 *t66+8.004286349993635d-1*t3*t65+1.8970043257475583d-1* 2343 2 t1*t63 2344 t69 = 1.6081979498692536d+1/t68+1.0d+0 2345 t70 = log(t69) 2346 t71 = 1.3256889990520176d-1*t4*t66+1.0d+0 2347 t72 = t34-1.243628d-1*rhoa*t70*t71 2348 t73 = 1/t36**3 2349 t74 = -3.3333333333333337d+0*t18*t37*t45*taua-6.6666666666 2350 1 66667d+0*t18*t39*t41*t42*taua-6.666666666666667d+0*gamm 2351 2 aaa*t25*t39*t40*taua-6.09932d-3*t42*t43*t48*t73-1.21986 2352 3 4d-2*gammaaa*t18*t40*t41*t48*t73-2.439728d-2*t24*t25*t3 2353 4 8*t48*t73-1.0666666666666666d+1*t24*t38*t39*t50-3.04966 2354 5 d-3*t39*t41*t45*t48-6.09932d-3*gammaaa*t18*t39*t44*t48- 2355 6 2.6666666666666666d+0*gammaaa*t37*t44*t47-2.66666666666 2356 7 66666d+0*gammaaa*t39*t40*t41*t47 2357 t75 = 1/t69 2358 t76 = 3.968502629920499d-1 2359 t77 = -7.418564737168958d-1*t54*t76-4.002143174996817d-1*t 2360 1 53/t64**3-4.4415387620319857d-1*t55-3.9834594695849657d 2361 2 -2*t19 2362 t78 = 1/t68**2 2363 t79 = 3.1090699999999993d-2*t8*t9+2*rhoa*(1.0d+0*t71*t75*t 2364 1 77*t78+2.747773264188437d-3*t54*t70*t76)-6.21814d-2*t70 2365 2 *t71-rhoa*t61+6.903522198342671d-18*t12*t13 2366 t80 = 1.0d+0*t46*t79+1.0d+0*t72*t74 2367 t81 = 1/rhoa**8 2368 t82 = -1.030176d-2*t23*t24*t49*t81-1.030176d-2*t18*t29*t30 2369 1 *t49-1.030176d-2*gammaaa*t25*t27*t28*t49-5.15088d-3*t18 2370 2 *t26*t28*t32-5.15088d-3*gammaaa*t25*t26*t31+t18*t22*t31 2371 3 +t18*t26*t27*t28+2*gammaaa*t23*t25*t26 2372 t83 = -2.439728d-2*t24*t38*t73*t81-6.09932d-3*t18*t42*t43* 2373 1 t73-1.219864d-2*gammaaa*t25*t40*t41*t73-3.04966d-3*t18* 2374 2 t39*t41*t45-6.09932d-3*gammaaa*t25*t39*t44+t18*t37*t44+ 2375 3 t18*t39*t40*t41+4*gammaaa*t25*t38*t39 2376 t84 = 1/rhoa**7 2377 t85 = 1/rhoa**4.333333333333333d+0 2378 t86 = -2.060352d-2*gammaaa*t27*t28*t49*t85-1.030176d-2*gam 2379 1 maaa*t26*t31*t85+2.0d+0*gammaaa*t26*t27*t85-2.060352d-2 2380 2 *t23*t24*t49*t84-2.060352d-2*t19*t29*t30*t49-1.030176d- 2381 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 2382 4 *t29 2383 t87 = taua**2 2384 t88 = 1/t87 2385 t89 = -2.439728d-2*gammaaa*t40*t41*t73*t85-1.219864d-2*gam 2386 1 maaa*t39*t44*t85+4.0d+0*gammaaa*t39*t40*t85-4.879456d-2 2387 2 *t24*t38*t73*t84-1.219864d-2*t19*t42*t43*t73-6.09932d-3 2388 3 *t19*t39*t41*t45+2.0d+0*t19*t37*t45+4.0d+0*t19*t39*t41* 2389 4 t42 2390 t90 = t48**2 2391 t91 = 1/rhoa**2 2392 t92 = 1/t21**4 2393 t93 = 1/rhoa**4.666666666666667d+0 2394 t94 = 8.88888888888889d+0*t47*taua+9.777777777777779d+0*ga 2395 1 mmaaa*t93 2396 t95 = 1/rhoa**7.333333333333333d+0 2397 t96 = t56**2 2398 t97 = 1/t2**5 2399 t98 = 1/rhoa**2.3333333333333334d+0 2400 t99 = 1/rhoa**2.1666666666666665d+0 2401 t100 = t59**2 2402 t101 = 1.0d+0*t58*t60*t9*(2.1622951122684114d+0*t99+1.7087 2403 1 761055320938d+0*t98+1.2335503316757068d+0*t97+2.6731903 2404 2 23653546d-1*t18)+1.1102230246251565d-16*t13*t52*t57*(1. 2405 3 1632736958443765d+0*t99+9.89141964955861d-1*t98+6.00321 2406 4 4762495226d-1*t97+2.1077825841639536d-1*t18)-1.76138652 2407 5 41785684d-3*t8*t98-4.0675215258019015d-19*t12*t98-2.220 2408 6 446049250313d-16*t13*t52*t96/t10**3+1.7854583920998188d 2409 7 -15*t13*t96/(t10**4*t11**2)+3.216395899738507d+1*t100*t 2410 8 9/(t6**4*t7**2)-2.0d+0*t100*t58*t9/t6**3-8.497974591333 2411 9 913d-2*t54*t58*t59*t60-9.812069668265515d-18*t52*t54*t5 2412 : 6*t57 2413 t102 = 1.86008522312d-5*t46*t72*t73*t90 2414 t103 = 1/t36**4 2415 t104 = 1.1160511338720001d-4*gammaaa*t103*t18*t40*t41*t90 2416 t105 = 2.2321022677440003d-4*t103*t24*t25*t38*t90 2417 t106 = 5.580255669360001d-5*t103*t42*t43*t90 2418 t107 = 1.3011882666666666d-1*t24*t38*t48*t50*t73 2419 t108 = 8.132426666666668d-2*gammaaa*t25*t40*t48*t73*taua 2420 t109 = 3.2529706666666663d-2*gammaaa*t40*t41*t47*t48*t73 2421 t110 = 8.132426666666668d-2*t18*t41*t42*t48*t73*taua 2422 t111 = 1.86008522312d-5*t41*t45*t73*t90 2423 t112 = 3.72017044624d-5*gammaaa*t18*t44*t73*t90 2424 t113 = 1.6264853333333332d-2*gammaaa*t39*t44*t47*t48 2425 t114 = 2.033106666666667d-2*t18*t39*t45*t48*taua 2426 t115 = 2.2222222222222224d+1*t25*t39*t42*t87 2427 t116 = 2.0d+0*t74*t79 2428 t117 = 2.0d+0*t71*t75*t77*t78 2429 t118 = 5.495546528376875d-3*t54*t70*t76 2430 t119 = t77**2 2431 t120 = 1.6081979498692536d+1*t119*t71/(t68**4*t69**2) 2432 t121 = -2.0d+0*t119*t71*t75/t68**3 2433 t122 = 1.9842513149602492d-1 2434 t123 = 1.0d+0*t71*t75*t78*(2.5908976111853255d-1*t99+9.891 2435 1 41964955861d-1*t122*t98+6.003214762495226d-1*t97/t64**5 2436 2 +3.319549557987472d-2*t18) 2437 t124 = -3.663697685584583d-3*t122*t70*t98 2438 t125 = log(2.9608813203268075d+1/(8.157414703487641d+0*t5* 2439 1 t67+2.247591863577616d+0*t4*t66+4.3009724712766434d-1*t 2440 2 3*t65+1.9115125951273373d-1*t1*t63)+1.0d+0) 2441 t126 = 6.901399211255825d-2*t4*t66+1.0d+0 2442 t127 = -8.837926660346784d-2*t54*t75*t76*t77*t78 2443 t128 = -3.04966d-3*t48*t72*t74 2444 t129 = -3.04966d-3*t46*t48*t79 2445 t130 = -3.04966d-3*t48*t80 2446 t131 = 1.25d-1*gammaaa*t14*t82+1.25d-1*t14*t33 2447 t132 = 1/rhoa**9 2448 t133 = -3.04966d-3*t39*t48*t72*t83 2449 t134 = 1.86008522312d-5*t18*t46*t48*t72*t73 2450 t135 = 2.2321022677440003d-4*t103*t24*t38*t48*t81 2451 t136 = 1.1160511338720001d-4*gammaaa*t103*t25*t40*t41*t48 2452 t137 = 5.580255669360001d-5*t103*t18*t42*t43*t48 2453 t138 = 4.066213333333334d-2*gammaaa*t40*t73*t81*taua 2454 t139 = 3.72017044624d-5*gammaaa*t25*t44*t48*t73 2455 t140 = -2.439728d-2*gammaaa*t25*t38*t48*t73 2456 t141 = 4.066213333333334d-2*t25*t41*t42*t73*taua 2457 t142 = 1.86008522312d-5*t18*t41*t45*t48*t73 2458 t143 = -6.09932d-3*t18*t40*t41*t48*t73 2459 t144 = 1.0165533333333335d-2*t25*t39*t45*taua 2460 t145 = -3.3333333333333337d+0*t25*t39*t40*taua 2461 t146 = -3.04966d-3*t18*t39*t44*t48 2462 t147 = 1.0d+0*t79*t83 2463 t148 = -3.04966d-3*t18*t39*t80 2464 t149 = 1/rhoa**1.0666666666666666d+1 2465 t150 = 1.0d+0*t37*t72*(3.72017044624d-5*gammaaa*t44*t73*t8 2466 1 1-4.879456d-2*gammaaa*t38*t73*t81+1.1160511338720001d-4 2467 2 *gammaaa*t103*t40*t41*t81+1.86008522312d-5*t25*t41*t45* 2468 3 t73-1.219864d-2*t25*t40*t41*t73-6.09932d-3*t25*t39*t44+ 2469 4 5.580255669360001d-5*t103*t25*t42*t43+2*t25*t38*t39+2.2 2470 5 321022677440003d-4*t103*t149*t24*t38) 2471 t151 = -6.09932d-3*t18*t39*t72*t83 2472 t152 = 1.86008522312d-5*t25*t46*t72*t73 2473 t153 = -3.04966d-3*t39*t48*t72*t89 2474 t154 = 3.72017044624d-5*t19*t46*t48*t72*t73 2475 t155 = 4.4642045354880006d-4*t103*t24*t38*t48*t84 2476 t156 = 2.2321022677440003d-4*gammaaa*t103*t40*t41*t48*t85 2477 t157 = 1.1160511338720001d-4*t103*t19*t42*t43*t48 2478 t158 = 8.132426666666668d-2*gammaaa*t40*t73*t84*taua 2479 t159 = 7.44034089248d-5*gammaaa*t44*t48*t73*t85 2480 t160 = -2.439728d-2*gammaaa*t40*t48*t73*t85 2481 t161 = 8.132426666666668d-2*t41*t42*t73*t85*taua 2482 t162 = 3.72017044624d-5*t19*t41*t45*t48*t73 2483 t163 = -2.439728d-2*t19*t41*t42*t48*t73 2484 t164 = 2.033106666666667d-2*t39*t45*t85*taua 2485 t165 = -1.3333333333333333d+1*t39*t42*t85*taua 2486 t166 = -6.09932d-3*t19*t39*t45*t48 2487 t167 = 1.0d+0*t79*t89 2488 t168 = -6.09932d-3*t19*t39*t80 2489 t169 = 1/rhoa**9.666666666666666d+0 2490 t170 = 1/rhoa**3.3333333333333337d+0 2491 t171 = 1.0d+0*t37*t72*(3.72017044624d-5*t41*t45*t73*t85-2. 2492 1 439728d-2*t41*t42*t73*t85-1.219864d-2*t40*t41*t73*t85-6 2493 2 .09932d-3*t39*t45*t85-6.09932d-3*t39*t44*t85+1.11605113 2494 3 38720001d-4*t103*t42*t43*t85+2.0d+0*t39*t40*t85+7.44034 2495 4 089248d-5*gammaaa*t44*t73*t84-2.439728d-2*gammaaa*t40*t 2496 5 73*t84-4.879456d-2*gammaaa*t38*t73*t84+2.23210226774400 2497 6 03d-4*gammaaa*t103*t40*t41*t84+4.4642045354880006d-4*t1 2498 7 03*t169*t24*t38) 2499 t172 = -6.09932d-3*t19*t39*t72*t83 2500 t173 = -3.04966d-3*t18*t39*t72*t89 2501 t174 = 3.72017044624d-5*t46*t72*t73*t85 2502 t175 = 1/rhoa**8.666666666666666d+0 2503 t176 = 1/rhoa**6 2504 t177 = 1.0d+0*t37*t72*(7.44034089248d-5*t170*t41*t45*t73+1 2505 1 .488068178496d-4*gammaaa*t176*t44*t73-9.758912d-2*t170* 2506 2 t41*t42*t73-9.758912d-2*gammaaa*t176*t40*t73-2.439728d- 2507 3 2*t170*t39*t45+2.2321022677440003d-4*t103*t170*t42*t43+ 2508 4 8.0d+0*t170*t39*t42+4.4642045354880006d-4*gammaaa*t103* 2509 5 t176*t40*t41+8.928409070976001d-4*t103*t175*t24*t38) 2510 t178 = -1.219864d-2*t19*t39*t72*t89 2511 t179 = 7.44034089248d-5*t170*t46*t72*t73 2512 fnc(iq) = (1.0d+0*t37*t46*(t34-1.243628d-1*rhoa*(1.0522000 2513 1 558389212d-1*t4+1.0d+0)*log(1.6081979498692536d+1/(5.32 2514 2 9846514438383d+0*t5+1.766435620181429d+0*t4+5.659885156 2515 3 639418d-1*t3+1.19503784087549d-1*t1)+1.0d+0))+2.0d+0*rh 2516 4 oa*t14*t17*t22*t33)*wght+fnc(iq) 2517 Amat(iq,D1_RA) = (t37*t80-3.04966d-3*t39*t46*t48*t72+t22*t 2518 1 62-5.15088d-3*rhoa*t14*t17*t26*t33*t48+1.25d-1*gammaaa* 2519 2 t14*t15*t16*t22*t33)*wght+Amat(iq,D1_RA) 2520 Cmat(iq,D1_GAA) = (1.0d+0*t37*t72*t83+1.0d+0*rhoa*t14*t17* 2521 1 t22*t82-3.04966d-3*t18*t39*t46*t72-5.15088d-3*t14*t17*t 2522 2 19*t26*t33-1.25d-1*t14*t16*t22*t33)*wght+Cmat(iq,D1_GAA 2523 3 ) 2524 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 2525 Mmat(iq,D1_TA) = (1.0d+0*t37*t72*t89+1.25d-1*gammaaa*t14*t 2526 1 22*t33*t88+1.0d+0*rhoa*t14*t17*t22*t86-6.09932d-3*t19*t 2527 2 39*t46*t72-1.030176d-2*t1*t14*t17*t26*t33)*wght+Mmat(iq 2528 3 ,D1_TA) 2529 Amat2(iq,D2_RA_RA) = (t37*(1.0d+0*t72*(3.5555555555555557d 2530 1 +1*gammaaa*t39*t40*t50*taua+8.88888888888889d+0*t37*t45 2531 2 *t47*taua+1.7777777777777778d+1*t39*t41*t42*t47*taua+5. 2532 3 333333333333333d+1*t24*t38*t39*t95-6.09932d-3*t42*t43*t 2533 4 73*t94-1.219864d-2*gammaaa*t18*t40*t41*t73*t94-2.439728 2534 5 d-2*t24*t25*t38*t73*t94-3.04966d-3*t39*t41*t45*t94-6.09 2535 6 932d-3*gammaaa*t18*t39*t44*t94+9.777777777777779d+0*gam 2536 7 maaa*t37*t44*t93+9.777777777777779d+0*gammaaa*t39*t40*t 2537 8 41*t93+t115+t114+t113+t112+t111+t110+t109+t108+t107+t10 2538 9 6+t105+t104)+1.0d+0*t46*(2*rhoa*(8.443431970194815d-3*t 2539 : 125*t126*t91+t127+t124+t123+t121+t120)-2.0d+0*t58*t59*t 2540 ; 60*t9-2.642079786267853d-3*t54*t8-2.220446049250313d-16 2541 < *t13*t52*t56*t57-6.101282288702853d-19*t12*t54+t118+t11 2542 = 7-rhoa*t101)+t116)+t22*(1.0d+0*rhoa*t14*t17*(2.66666666 2543 > 66666666d+1*gammaaa*t26*t27*t50*taua+1.373568d-1*t18*t2 2544 ? 8*t29*t48*t49*taua+6.867840000000001d-2*gammaaa*t25*t27 2545 @ *t48*t49*taua+3.4339200000000003d-2*t18*t26*t32*t48*tau 2546 1 a+8.88888888888889d+0*t22*t32*t47*taua+1.77777777777777 2547 2 78d+1*t26*t28*t29*t47*taua+3.377777777777778d+1*t23*t24 2548 3 *t26*t95-1.030176d-2*t29*t30*t49*t94-1.030176d-2*gammaa 2549 4 a*t18*t27*t28*t49*t94-1.030176d-2*t23*t24*t25*t49*t94-5 2550 5 .15088d-3*t26*t28*t32*t94-5.15088d-3*gammaaa*t18*t26*t3 2551 6 1*t94+9.777777777777779d+0*gammaaa*t22*t31*t93+9.777777 2552 7 777777779d+0*gammaaa*t26*t27*t28*t93+1.591893886464d-4* 2553 8 t29*t30*t90*t92+1.591893886464d-4*gammaaa*t18*t27*t28*t 2554 9 90*t92+1.591893886464d-4*t23*t24*t25*t90*t92+5.30631295 2555 : 488d-5*t28*t32*t49*t90+5.30631295488d-5*gammaaa*t18*t31 2556 ; *t49*t90+2.2222222222222224d+1*t25*t26*t29*t87+1.098854 2557 < 4d-1*t23*t24*t48*t49*t50+5.494272d-2*gammaaa*t27*t28*t4 2558 = 7*t48*t49+2.747136d-2*gammaaa*t26*t31*t47*t48)+1.25d-1* 2559 > gammaaa*t14*t16*t33*t91+2.0d+0*rhoa*t17*t51*t61+2.0d+0* 2560 ? t17*t33*t61+1.25d-1*gammaaa*t15*t16*t33*t61+2.0d+0*t14* 2561 @ t17*t51+1.25d-1*gammaaa*t14*t15*t16*t51+1.0d+0*rhoa*t10 2562 1 1*t17*t33)+t39*(-3.04966d-3*t46*t72*t94+t130+t129+t128) 2563 2 +t26*(-5.15088d-3*rhoa*t14*t17*t33*t94-5.15088d-3*t48*t 2564 3 62-5.15088d-3*rhoa*t17*t33*t48*t61-5.15088d-3*rhoa*t14* 2565 4 t17*t48*t51-5.15088d-3*t14*t17*t33*t48)-1.25d-1*gammaaa 2566 5 *t14*t16*t22*t33*t91+5.30631295488d-5*rhoa*t14*t17*t33* 2567 6 t49*t90+t15*t16*t22*(1.25d-1*gammaaa*t33*t61+1.25d-1*ga 2568 7 mmaaa*t14*t51)-1.28772d-3*gammaaa*t14*t15*t16*t26*t33*t 2569 8 48+t102)*wght+Amat2(iq,D2_RA_RA) 2570 Amat2(iq,D2_RA_RB) = (t37*(1.0d+0*t72*(1.7777777777777778d 2571 1 +1*gammaaa*t39*t40*t50*taua+1.4222222222222222d+1*t24*t 2572 2 38*t39*t95+t115+t114+t113+t112+t111+t110+t109+t108+t107 2573 3 +t106+t105+t104)+1.0d+0*t46*(2*rhoa*(-8.443431970194815 2574 4 d-3*t125*t126*t91+t127+t124+t123+t121+t120)+t118+t117)+ 2575 5 t116)+(t130+t129+t128)*t39+t102)*wght+Amat2(iq,D2_RA_RB 2576 6 ) 2577 Cmat2(iq,D2_RA_GAA) = (t22*(1.0d+0*rhoa*t14*t17*(3.4339200 2578 1 000000003d-2*gammaaa*t27*t49*t81*taua+6.867840000000001 2579 2 d-2*t25*t28*t29*t49*taua+1.7169600000000002d-2*t25*t26* 2580 3 t32*taua-3.3333333333333337d+0*t25*t26*t27*taua+1.59189 2581 4 3886464d-4*t23*t24*t48*t81*t92+1.591893886464d-4*t18*t2 2582 5 9*t30*t48*t92+1.591893886464d-4*gammaaa*t25*t27*t28*t48 2583 6 *t92+5.494272d-2*gammaaa*t27*t28*t49*t50+2.747136d-2*ga 2584 7 mmaaa*t26*t31*t50-1.0666666666666666d+1*gammaaa*t23*t26 2585 8 *t50+5.30631295488d-5*t18*t28*t32*t48*t49+5.30631295488 2586 9 d-5*gammaaa*t25*t31*t48*t49-1.030176d-2*t18*t27*t28*t48 2587 : *t49-2.060352d-2*gammaaa*t23*t25*t48*t49+2.747136d-2*t2 2588 ; 9*t30*t47*t49+8.241408d-2*t132*t23*t24*t49-5.15088d-3*t 2589 < 18*t26*t31*t48+1.373568d-2*t26*t28*t32*t47-2.6666666666 2590 = 666666d+0*t22*t31*t47-2.6666666666666666d+0*t26*t27*t28 2591 > *t47)+1.0d+0*rhoa*t17*t61*t82+1.0d+0*t14*t17*t82-1.25d- 2592 ? 1*t16*t33*t61-1.25d-1*t14*t16*t51-1.25d-1*t14*t15*t16*t 2593 @ 33)-5.15088d-3*rhoa*t14*t17*t26*t48*t82+t37*(1.0d+0*t72 2594 1 *(4.879456d-2*gammaaa*t40*t41*t50*t73+1.626485333333333 2595 2 2d-2*t42*t43*t47*t73+1.3011882666666666d-1*t132*t24*t38 2596 3 *t73+2.439728d-2*gammaaa*t39*t44*t50-16*gammaaa*t38*t39 2597 4 *t50+8.132426666666667d-3*t39*t41*t45*t47-2.66666666666 2598 5 66666d+0*t37*t44*t47-2.6666666666666666d+0*t39*t40*t41* 2599 6 t47+t146+t145+t144+t143+t142+t141+t140+t139+t138+t137+t 2600 7 136+t135)+t147)+8.132426666666667d-3*t39*t46*t47*t72+t1 2601 8 8*t26*(1.373568d-2*t14*t17*t33-5.15088d-3*t62)+5.306312 2602 9 95488d-5*t14*t17*t19*t33*t48*t49+6.4386d-4*t14*t16*t26* 2603 : t33*t48-6.4386d-4*gammaaa*t14*t16*t26*t33*t47+t131*t15* 2604 ; t16*t22+t148+t134+t133)*wght+Cmat2(iq,D2_RA_GAA) 2605 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 2606 Cmat2(iq,D2_RA_GBB) = (t37*(1.0d+0*t72*(1.6264853333333332 2607 1 d-2*gammaaa*t40*t41*t50*t73+6.505941333333333d-2*t132*t 2608 2 24*t38*t73+8.132426666666667d-3*gammaaa*t39*t44*t50-5.3 2609 3 33333333333333d+0*gammaaa*t38*t39*t50+t146+t145+t144+t1 2610 4 43+t142+t141+t140+t139+t138+t137+t136+t135)+t147)+t148+ 2611 5 t134+t133)*wght+Cmat2(iq,D2_RA_GBB) 2612 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*rhoa*t14*t17*t22*(1.5918938 2613 1 86464d-4*gammaaa*t27*t28*t81*t92+1.591893886464d-4*t25* 2614 2 t29*t30*t92+1.591893886464d-4*t149*t23*t24*t92+5.306312 2615 3 95488d-5*gammaaa*t31*t49*t81-4.120704d-2*gammaaa*t23*t4 2616 4 9*t81+5.30631295488d-5*t25*t28*t32*t49-2.060352d-2*t25* 2617 5 t27*t28*t49-1.030176d-2*t25*t26*t31+2*t23*t25*t26)+5.30 2618 6 631295488d-5*t14*t17*t33*t49*t85-1.030176d-2*t14*t17*t1 2619 7 9*t26*t82-2.5d-1*t14*t16*t22*t82+1.28772d-3*t14*t16*t18 2620 8 *t26*t33+t152+t151+t150)*wght+Cmat2(iq,D2_GAA_GAA) 2621 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 2622 Cmat2(iq,D2_GAA_GBB) = (t152+t151+t150)*wght+Cmat2(iq,D2_G 2623 1 AA_GBB) 2624 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 2625 Mmat2(iq,D2_RA_TA) = (t22*(1.0d+0*rhoa*t14*t17*(1.373568d- 2626 1 1*t28*t29*t49*t85*taua+3.4339200000000003d-2*t26*t32*t8 2627 2 5*taua-1.3333333333333333d+1*t26*t29*t85*taua+6.8678400 2628 3 00000001d-2*gammaaa*t27*t49*t84*taua+3.183787772928d-4* 2629 4 gammaaa*t27*t28*t48*t85*t92+3.183787772928d-4*t23*t24*t 2630 5 48*t84*t92+3.183787772928d-4*t19*t29*t30*t48*t92+1.0612 2631 6 62590976d-4*gammaaa*t31*t48*t49*t85-2.060352d-2*gammaaa 2632 7 *t27*t48*t49*t85+1.4422464000000002d-1*t23*t24*t49*t81+ 2633 8 1.061262590976d-4*t19*t28*t32*t48*t49-4.120704d-2*t19*t 2634 9 28*t29*t48*t49+3.4339200000000003d-2*t18*t29*t30*t49+8. 2635 : 928192d-2*gammaaa*t25*t27*t28*t49-1.030176d-2*t19*t26*t 2636 ; 32*t48+1.7169600000000002d-2*t18*t26*t28*t32-3.33333333 2637 < 33333337d+0*t18*t22*t32+4.464096d-2*gammaaa*t25*t26*t31 2638 = -6.666666666666667d+0*t18*t26*t28*t29-8.666666666666666 2639 > d+0*gammaaa*t25*t26*t27)+1.25d-1*gammaaa*t33*t61*t88+1. 2640 ? 25d-1*gammaaa*t14*t51*t88+1.25d-1*gammaaa*t14*t15*t33*t 2641 @ 88+1.0d+0*rhoa*t17*t61*t86+1.0d+0*t14*t17*t86)-6.4386d- 2642 1 4*gammaaa*t14*t26*t33*t48*t88-1.25d-1*gammaaa*t14*t15*t 2643 2 22*t33*t88-5.15088d-3*rhoa*t14*t17*t26*t48*t86+1.25d-1* 2644 3 gammaaa*t14*t15*t16*t22*t86+t37*(1.0d+0*t72*(2.11443093 2645 4 33333333d-1*t24*t38*t73*t81+2.033106666666667d-2*t18*t4 2646 5 2*t43*t73+7.319184000000001d-2*gammaaa*t25*t40*t41*t73+ 2647 6 1.0165533333333335d-2*t18*t39*t41*t45-3.333333333333333 2648 7 7d+0*t18*t37*t45+3.6595920000000004d-2*gammaaa*t25*t39* 2649 8 t44-6.666666666666667d+0*t18*t39*t41*t42-1.2d+1*gammaaa 2650 9 *t25*t39*t40+t166+t165+t164+t163+t162+t161+t160+t159+t1 2651 : 58+t157+t156+t155)+t167)+1.0165533333333335d-2*t18*t39* 2652 ; t46*t72+t19*t26*(1.7169600000000002d-2*t14*t17*t33-1.03 2653 < 0176d-2*t62)+1.061262590976d-4*t1*t14*t17*t33*t48*t49-1 2654 = .28772d-3*gammaaa*t14*t16*t18*t26*t33+t168+t154+t153)*w 2655 > ght+Mmat2(iq,D2_RA_TA) 2656 Mmat2(iq,D2_RA_TB) = (t37*(1.0d+0*t72*(1.3011882666666666d 2657 1 -1*t24*t38*t73*t81+3.2529706666666663d-2*gammaaa*t25*t4 2658 2 0*t41*t73+1.6264853333333332d-2*gammaaa*t25*t39*t44-5.3 2659 3 33333333333333d+0*gammaaa*t25*t39*t40+t166+t165+t164+t1 2660 4 63+t162+t161+t160+t159+t158+t157+t156+t155)+t167)+t168+ 2661 5 t154+t153)*wght+Mmat2(iq,D2_RA_TB) 2662 Mmat2(iq,D2_GAA_TA) = (1.0d+0*rhoa*t14*t17*t22*(3.18378777 2663 1 2928d-4*t29*t30*t85*t92+3.183787772928d-4*gammaaa*t27*t 2664 2 28*t84*t92+3.183787772928d-4*t169*t23*t24*t92+1.0612625 2665 3 90976d-4*t28*t32*t49*t85-4.120704d-2*t28*t29*t49*t85-2. 2666 4 060352d-2*t27*t28*t49*t85-1.030176d-2*t26*t32*t85-1.030 2667 5 176d-2*t26*t31*t85+2.0d+0*t26*t27*t85+1.061262590976d-4 2668 6 *gammaaa*t31*t49*t84-2.060352d-2*gammaaa*t27*t49*t84-4. 2669 7 120704d-2*gammaaa*t23*t49*t84)-6.4386d-4*gammaaa*t14*t1 2670 8 8*t26*t33*t88+t131*t22*t88-5.15088d-3*t14*t17*t19*t26*t 2671 9 86-1.25d-1*t14*t16*t22*t86-1.030176d-2*t1*t14*t17*t26*t 2672 : 82+1.061262590976d-4*t14*t17*t170*t33*t49+1.28772d-3*t1 2673 ; 4*t16*t19*t26*t33+t174+t173+t172+t171)*wght+Mmat2(iq,D2 2674 < _GAA_TA) 2675 Mmat2(iq,D2_GAA_TB) = (t174+t173+t172+t171)*wght+Mmat2(iq, 2676 1 D2_GAA_TB) 2677 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 2678 Mmat2(iq,D2_TA_TA) = (-2.5d-1*gammaaa*t14*t22*t33/taua**3+ 2679 1 2.122525181952d-4*t14*t17*t33*t49*t98+1.0d+0*rhoa*t14*t 2680 2 17*t22*(6.367575545856d-4*t170*t29*t30*t92+6.3675755458 2681 3 56d-4*gammaaa*t176*t27*t28*t92+6.367575545856d-4*t175*t 2682 4 23*t24*t92+2.122525181952d-4*t170*t28*t32*t49+2.1225251 2683 5 81952d-4*gammaaa*t176*t31*t49-1.6482816d-1*t170*t28*t29 2684 6 *t49-8.241408d-2*gammaaa*t176*t27*t49-4.120704d-2*t170* 2685 7 t26*t32+8.0d+0*t170*t26*t29)+2.5d-1*gammaaa*t14*t22*t86 2686 8 *t88-2.57544d-3*gammaaa*t14*t19*t26*t33*t88-2.060352d-2 2687 9 *t1*t14*t17*t26*t86+t179+t178+t177)*wght+Mmat2(iq,D2_TA 2688 : _TA) 2689 Mmat2(iq,D2_TA_TB) = (t179+t178+t177)*wght+Mmat2(iq,D2_TA_ 2690 1 TB) 2691 else 2692 t1 = 1/rhoa**1.6666666666666669d+0 2693 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 2694 t3 = 1/t2 2695 t4 = param(12) 2696 t5 = 1/t2**2 2697 t6 = 2.0d-50*t1-9.11559972d+0 2698 t7 = t6**2 2699 t8 = param(10) 2700 t9 = 1/rhoa**3.3333333333333337d+0 2701 t10 = param(9) 2702 t11 = param(8) 2703 t12 = param(11) 2704 t13 = 1.6d-99*t5*t8*t9+t4*t5*t7+4.0d-50*t1*t12*t5*t6+t10*t 2705 1 3*t6+4.0d-50*t1*t11*t3+param(7) 2706 t14 = 1/rhoa**6.666666666666666d-1 2707 t15 = rhoa**5.0d-1 2708 t16 = 1/t15 2709 t17 = 1/rhoa**3.333333333333333d-1 2710 t18 = 1/rhoa**1.6666666666666666d-1 2711 t19 = 1.1120374863094686d+1*t18+3.8447462374472113d+0*t17+ 2712 1 1.644733775567609d+0*t16+2.4058712912881916d-1*t14 2713 t20 = 3.216395899738507d+1/t19+1.0d+0 2714 t21 = log(t20) 2715 t22 = 1.274696188700087d-1*t17+1.0d+0 2716 t23 = 5.982550435771079d+0*t18+2.2255694211506874d+0*t17+8 2717 1 .004286349993635d-1*t16+1.8970043257475583d-1*t14 2718 t24 = 1.6081979498692536d+1/t23+1.0d+0 2719 t25 = log(t24) 2720 t26 = 1.3256889990520176d-1*t17+1.0d+0 2721 t27 = -6.903522198342671d-18*t25*t26-3.1090699999999993d-2 2722 1 *t21*t22 2723 t28 = 3.04966d-3*(1.2d-49*t1-1.823119944d+1)+1.0d+0 2724 t29 = 1/t28 2725 t30 = param(6) 2726 t31 = 1/t28**2 2727 t32 = 4.0d-50*t1-1.823119944d+1 2728 t33 = t32**2 2729 t34 = param(4) 2730 t35 = param(3) 2731 t36 = param(2) 2732 t37 = param(5) 2733 t38 = 6.4d-99*t31*t34*t9+8.0d-50*t1*t31*t32*t37+8.0d-50*t1 2734 1 *t29*t36+t29*t32*t35+t30*t31*t33+param(1) 2735 t39 = -2*rhoa*t27 2736 t40 = 1/t24 2737 t41 = 1/t15**3 2738 t42 = 1/rhoa**1.3333333333333333d+0 2739 t43 = 1/rhoa**1.1666666666666667d+0 2740 t44 = -9.970917392951799d-1*t43-7.418564737168958d-1*t42-4 2741 1 .002143174996817d-1*t41-1.264669550498372d-1*t1 2742 t45 = 1/t23**2 2743 t46 = 1/t20 2744 t47 = -1.8533958105157808d+0*t43-1.2815820791490704d+0*t42 2745 1 -8.223668877838045d-1*t41-1.6039141941921276d-1*t1 2746 t48 = 1/t19**2 2747 t49 = 1.0d+0*t22*t46*t47*t48+1.1102230246251565d-16*t26*t4 2748 1 0*t44*t45+3.0506411443514264d-19*t25*t42+1.321039893133 2749 2 9265d-3*t21*t42 2750 t50 = 1/t2**3 2751 t51 = 1/rhoa**6 2752 t52 = 1/rhoa**4.333333333333333d+0 2753 t53 = 1/rhoa**2.6666666666666666d+0 2754 t54 = -5.333333333333334d-99*t5*t52*t8+1.6482816d-150*t50* 2755 1 t51*t8+1.030176d-51*t4*t50*t53*t7-6.666666666666666d-50 2756 2 *t4*t5*t53*t6-6.666666666666666d-50*t12*t5*t53*t6+5.150 2757 3 88d-52*t10*t5*t53*t6+4.1207039999999995d-101*t12*t50*t5 2758 4 2*t6-6.666666666666666d-50*t11*t3*t53-3.333333333333333 2759 5 d-50*t10*t3*t53-1.3333333333333333d-99*t12*t5*t52+2.060 2760 6 3519999999997d-101*t11*t5*t52 2761 t55 = 5.0d-1*rhoa*t27*t54+5.0d-1*rhoa*t13*t49+5.0d-1*t13*t 2762 1 27 2763 t56 = 6.299605249474366d-1 2764 t57 = 1.414213562373095d+0 2765 t58 = 1/t57 2766 t59 = 7.937005259840998d-1 2767 t60 = 8.908987181403393d-1 2768 t61 = 5.982550435771079d+0*t18*t60+2.2255694211506874d+0*t 2769 1 17*t59+8.004286349993635d-1*t16*t58+1.8970043257475583d 2770 2 -1*t14*t56 2771 t62 = 1.6081979498692536d+1/t61+1.0d+0 2772 t63 = log(t62) 2773 t64 = 1.3256889990520176d-1*t17*t59+1.0d+0 2774 t65 = t39-1.243628d-1*rhoa*t63*t64 2775 t66 = 1/t62 2776 t67 = 3.968502629920499d-1 2777 t68 = -7.418564737168958d-1*t42*t67-4.002143174996817d-1*t 2778 1 41/t57**3-4.4415387620319857d-1*t43-3.9834594695849657d 2779 2 -2*t1 2780 t69 = 1/t61**2 2781 t70 = 2*rhoa*(1.0d+0*t64*t66*t68*t69+2.747773264188437d-3* 2782 1 t42*t63*t67)-6.21814d-2*t63*t64-rhoa*t49+6.903522198342 2783 2 671d-18*t25*t26+3.1090699999999993d-2*t21*t22 2784 t71 = 1/t28**3 2785 t72 = 6.09932d-52*t30*t33*t53*t71+4.8794560000000003d-101* 2786 1 t32*t37*t52*t71+3.9035648d-150*t34*t51*t71-6.6666666666 2787 2 66666d-50*t31*t32*t37*t53-6.666666666666666d-50*t29*t36 2788 3 *t53+3.04966d-52*t31*t32*t35*t53-3.333333333333333d-50* 2789 4 t29*t35*t53-6.666666666666666d-50*t30*t31*t32*t53-2.666 2790 5 6666666666666d-99*t31*t37*t52+2.4397280000000002d-101*t 2791 6 31*t36*t52-1.0666666666666666d-98*t31*t34*t52 2792 t73 = 1.0d+0*t65*t72+1.0d+0*t38*t70 2793 t74 = t44**2 2794 t75 = 1/t15**5 2795 t76 = 1/rhoa**2.3333333333333334d+0 2796 t77 = 1/rhoa**2.1666666666666665d+0 2797 t78 = t47**2 2798 t79 = -2.0d+0*t22*t46*t78/t19**3+3.216395899738507d+1*t22* 2799 1 t78/(t19**4*t20**2)+1.0d+0*t22*t46*t48*(2.1622951122684 2800 2 114d+0*t77+1.7087761055320938d+0*t76+1.2335503316757068 2801 3 d+0*t75+2.673190323653546d-1*t53)+1.1102230246251565d-1 2802 4 6*t26*t40*t45*(1.1632736958443765d+0*t77+9.891419649558 2803 5 61d-1*t76+6.003214762495226d-1*t75+2.1077825841639536d- 2804 6 1*t53)-4.0675215258019015d-19*t25*t76-1.761386524178568 2805 7 4d-3*t21*t76-2.220446049250313d-16*t26*t40*t74/t23**3+1 2806 8 .7854583920998188d-15*t26*t74/(t23**4*t24**2)-8.4979745 2807 9 91333913d-2*t42*t46*t47*t48-9.812069668265515d-18*t40*t 2808 : 42*t44*t45 2809 t80 = 1/t2**4 2810 t81 = 1/rhoa**8.666666666666666d+0 2811 t82 = 1/rhoa**7 2812 t83 = 1/rhoa**5.333333333333333d+0 2813 t84 = 1/rhoa**3.6666666666666664d+0 2814 t85 = 1.86008522312d-103*t38*t65*t71*t83 2815 t86 = 2.0d+0*t70*t72 2816 t87 = 2.0d+0*t64*t66*t68*t69 2817 t88 = 5.495546528376875d-3*t42*t63*t67 2818 t89 = t68**2 2819 t90 = 1.6081979498692536d+1*t64*t89/(t61**4*t62**2) 2820 t91 = -2.0d+0*t64*t66*t89/t61**3 2821 t92 = 1.9842513149602492d-1 2822 t93 = 1.0d+0*t64*t66*t69*(9.89141964955861d-1*t76*t92+2.59 2823 1 08976111853255d-1*t77+6.003214762495226d-1*t75/t57**5+3 2824 2 .319549557987472d-2*t53) 2825 t94 = -3.663697685584583d-3*t63*t76*t92 2826 t95 = log(2.9608813203268075d+1/(8.157414703487641d+0*t18* 2827 1 t60+2.247591863577616d+0*t17*t59+4.3009724712766434d-1* 2828 2 t16*t58+1.9115125951273373d-1*t14*t56)+1.0d+0) 2829 t96 = 6.901399211255825d-2*t17*t59+1.0d+0 2830 t97 = 1/rhoa**2 2831 t98 = -8.837926660346784d-2*t42*t66*t67*t68*t69 2832 t99 = 1/t28**4 2833 t100 = 3.5713636283903993d-201*t34*t81*t99 2834 t101 = 1.488068178496d-152*t36*t71*t82 2835 t102 = -3.252970666666667d-150*t37*t71*t82 2836 t103 = 4.4642045354879994d-152*t32*t37*t82*t99 2837 t104 = -2.0331066666666667d-101*t31*t35*t83 2838 t105 = 2.222222222222222d-99*t30*t31*t83 2839 t106 = 5.580255669359999d-103*t30*t33*t83*t99 2840 t107 = 1.86008522312d-103*t32*t35*t71*t83 2841 t108 = -8.132426666666667d-101*t30*t32*t71*t83 2842 t109 = 3.04966d-52*t38*t70 2843 t110 = 3.04966d-52*t65*t72 2844 fnc(iq) = (1.0d+0*t29*t38*(t39-1.243628d-1*rhoa*(1.0522000 2845 1 558389212d-1*t17+1.0d+0)*log(1.6081979498692536d+1/(5.3 2846 2 29846514438383d+0*t18+1.766435620181429d+0*t17+5.659885 2847 3 156639418d-1*t16+1.19503784087549d-1*t14)+1.0d+0))+1.0d 2848 4 +0*rhoa*t13*t27*t3)*wght+fnc(iq) 2849 Amat(iq,D1_RA) = (t29*t73+3.04966d-52*t31*t38*t53*t65+t3*t 2850 1 55+2.57544d-52*t1*t13*t27*t5)*wght+Amat(iq,D1_RA) 2851 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 2852 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 2853 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 2854 Amat2(iq,D2_RA_RA) = (t29*(1.0d+0*t38*(2*rhoa*(t98+8.44343 2855 1 1970194815d-3*t95*t96*t97+t94+t93+t91+t90)+t88+t87-rhoa 2856 2 *t79-2.0d+0*t22*t46*t47*t48-2.220446049250313d-16*t26*t 2857 3 40*t44*t45-6.101282288702853d-19*t25*t42-2.642079786267 2858 4 853d-3*t21*t42)+t86+1.0d+0*t65*(-1.6264853333333332d-51 2859 5 *t30*t33*t71*t84+1.7777777777777776d-49*t31*t32*t37*t84 2860 6 +1.7777777777777776d-49*t29*t36*t84-8.132426666666666d- 2861 7 52*t31*t32*t35*t84+8.888888888888888d-50*t29*t35*t84+1. 2862 8 7777777777777776d-49*t30*t31*t32*t84-2.1144309333333333 2863 9 d-100*t32*t37*t71*t83+1.1555555555555555d-98*t31*t37*t8 2864 : 3-1.0572154666666667d-100*t31*t36*t83+3.733333333333333 2865 ; d-98*t31*t34*t83-2.3421388800000004d-149*t34*t71*t82+t1 2866 < 08+t107+t106+t105+t104+t103+t102+t101+t100))+t85+t3*(5. 2867 = 0d-1*rhoa*t27*(-2.747136d-51*t4*t50*t7*t84+1.7777777777 2868 > 777776d-49*t4*t5*t6*t84+1.7777777777777776d-49*t12*t5*t 2869 ? 6*t84-1.373568d-51*t10*t5*t6*t84+1.7777777777777776d-49 2870 @ *t11*t3*t84+8.888888888888888d-50*t10*t3*t84+1.59189388 2871 1 64639998d-102*t4*t7*t80*t83+2.3111111111111113d-98*t5*t 2872 2 8*t83-1.373568d-100*t4*t50*t6*t83-2.4724223999999997d-1 2873 3 00*t12*t50*t6*t83+5.306312954879999d-103*t10*t50*t6*t83 2874 4 +2.222222222222222d-99*t4*t5*t83+8.0d-99*t12*t5*t83-1.2 2875 5 362111999999999d-100*t11*t5*t83-3.43392d-101*t10*t5*t83 2876 6 +6.367575545855999d-152*t12*t6*t80*t82-1.53839616d-149* 2877 7 t50*t8*t82-2.7471359999999995d-150*t12*t50*t82+2.122525 2878 8 1819519997d-152*t11*t50*t82+2.5470302183424d-201*t8*t80 2879 9 *t81)+5.0d-1*rhoa*t13*t79+1.0d+0*rhoa*t49*t54+1.0d+0*t2 2880 : 7*t54+1.0d+0*t13*t49)-8.132426666666666d-52*t31*t38*t65 2881 ; *t84+t31*t53*(3.04966d-52*t73+t110+t109)+t5*t53*(5.1508 2882 < 8d-52*t55-4.2923999999999995d-52*t13*t27)+t1*t5*(2.5754 2883 = 4d-52*t27*t54+2.57544d-52*t13*t49)+2.6531564774399996d- 2884 > 103*t13*t27*t50*t52)*wght+Amat2(iq,D2_RA_RA) 2885 Amat2(iq,D2_RA_RB) = (t29*(1.0d+0*t38*(2*rhoa*(t98-8.44343 2886 1 1970194815d-3*t95*t96*t97+t94+t93+t91+t90)+t88+t87)+t86 2887 2 +1.0d+0*t65*(-8.132426666666667d-101*t32*t37*t71*t83+4. 2888 3 444444444444444d-99*t31*t37*t83-4.0662133333333333d-101 2889 4 *t31*t36*t83+8.888888888888888d-99*t31*t34*t83-1.301188 2890 5 2666666666d-149*t34*t71*t82+t108+t107+t106+t105+t104+t1 2891 6 03+t102+t101+t100))+t85+3.04966d-52*t31*t53*t73+(t110+t 2892 7 109)*t31*t53)*wght+Amat2(iq,D2_RA_RB) 2893 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 2894 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 2895 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 2896 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 2897 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 2898 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 2899 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 2900 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 2901 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 2902 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 2903 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 2904 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 2905 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 2906 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 2907 endif 2908 endif ! rhoa.gt.tol_rho 2909 else ! ipol.eq.1 2910 rhoa = rho(iq,R_A) 2911 rhob = rho(iq,R_B) 2912 gammaaa = rgamma(iq,G_AA) 2913 gammaab = rgamma(iq,G_AB) 2914 gammabb = rgamma(iq,G_BB) 2915 taua = tau(iq,T_A) 2916 taub = tau(iq,T_B) 2917 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 2918 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 2919 t1 = 1/rhoa**6.666666666666666d-1 2920 t2 = rhoa**5.0d-1 2921 t3 = 1/t2 2922 t4 = 1/rhoa**3.333333333333333d-1 2923 t5 = 1/rhoa**1.6666666666666666d-1 2924 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 2925 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 2926 t7 = 3.216395899738507d+1/t6+1.0d+0 2927 t8 = log(t7) 2928 t9 = 1.274696188700087d-1*t4+1.0d+0 2929 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 2930 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 2931 t11 = 1.6081979498692536d+1/t10+1.0d+0 2932 t12 = log(t11) 2933 t13 = 1.3256889990520176d-1*t4+1.0d+0 2934 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 2935 1 12*t13 2936 t15 = 1/rhoa 2937 t16 = 1/taua 2938 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 2939 t18 = 1/rhoa**2.6666666666666666d+0 2940 t19 = gammaaa*t18 2941 t20 = 1/rhoa**1.6666666666666669d+0 2942 t21 = 2.0d+0*t20*taua 2943 t22 = 5.15088d-3*(t21+t19-9.11559972d+0)+1.0d+0 2944 t23 = 1/t22 2945 t24 = param(7) 2946 t25 = param(10) 2947 t26 = gammaaa**2 2948 t27 = 1/rhoa**5.333333333333333d+0 2949 t28 = 1/t22**2 2950 t29 = param(11) 2951 t30 = t21-9.11559972d+0 2952 t31 = param(12) 2953 t32 = t30**2 2954 t33 = param(8) 2955 t34 = param(9) 2956 t35 = t23*t30*t34+gammaaa*t18*t23*t33+t28*t31*t32+gammaaa* 2957 1 t18*t28*t29*t30+t25*t26*t27*t28+t24 2958 t36 = 1/rhob**6.666666666666666d-1 2959 t37 = rhob**5.0d-1 2960 t38 = 1/t37 2961 t39 = 1/rhob**3.333333333333333d-1 2962 t40 = 1/rhob**1.6666666666666666d-1 2963 t41 = 1.1120374863094686d+1*t40+3.8447462374472113d+0*t39+ 2964 1 1.644733775567609d+0*t38+2.4058712912881916d-1*t36 2965 t42 = 3.216395899738507d+1/t41+1.0d+0 2966 t43 = log(t42) 2967 t44 = 1.274696188700087d-1*t39+1.0d+0 2968 t45 = 5.982550435771079d+0*t40+2.2255694211506874d+0*t39+8 2969 1 .004286349993635d-1*t38+1.8970043257475583d-1*t36 2970 t46 = 1.6081979498692536d+1/t45+1.0d+0 2971 t47 = log(t46) 2972 t48 = 1.3256889990520176d-1*t39+1.0d+0 2973 t49 = -6.903522198342671d-18*t47*t48-3.1090699999999993d-2 2974 1 *t43*t44 2975 t50 = 1/rhob 2976 t51 = 1/taub 2977 t52 = 1.0d+0-1.25d-1*gammabb*t50*t51 2978 t53 = 1/rhob**2.6666666666666666d+0 2979 t54 = gammabb*t53 2980 t55 = 1/rhob**1.6666666666666669d+0 2981 t56 = 2.0d+0*t55*taub 2982 t57 = 5.15088d-3*(t56+t54-9.11559972d+0)+1.0d+0 2983 t58 = 1/t57 2984 t59 = gammabb**2 2985 t60 = 1/rhob**5.333333333333333d+0 2986 t61 = 1/t57**2 2987 t62 = t56-9.11559972d+0 2988 t63 = t62**2 2989 t64 = t31*t61*t63+gammabb*t29*t53*t61*t62+t34*t58*t62+t25* 2990 1 t59*t60*t61+gammabb*t33*t53*t58+t24 2991 t65 = rhob+rhoa 2992 t66 = 1/t65**3.333333333333333d-1 2993 t67 = 1.3256889990520176d-1*t66+1.0d+0 2994 t68 = rhoa-rhob 2995 t69 = t68**4 2996 t70 = 1/t65**4 2997 t71 = 1/t65 2998 t72 = 1.0d+0-t68*t71 2999 t73 = t68*t71+1.0d+0 3000 t74 = t73**1.3333333333333333d+0+t72**1.3333333333333333d+ 3001 1 0-2.0d+0 3002 t75 = -1.923661050931536d+0*t69*t70*t74 3003 t76 = t75+1.0d+0 3004 t77 = 1/t65**6.666666666666666d-1 3005 t78 = t65**5.0d-1 3006 t79 = 1/t78 3007 t80 = 1/t65**1.6666666666666666d-1 3008 t81 = 5.982550435771079d+0*t80+8.004286349993635d-1*t79+1. 3009 1 8970043257475583d-1*t77+2.2255694211506874d+0*t66 3010 t82 = 1.6081979498692536d+1/t81+1.0d+0 3011 t83 = log(t82) 3012 t84 = -6.21814d-2*t67*t76*t83 3013 t85 = 6.901399211255825d-2*t66+1.0d+0 3014 t86 = t75+1.923661050931536d+0*t74 3015 t87 = 8.157414703487641d+0*t80+4.3009724712766434d-1*t79+1 3016 1 .9115125951273373d-1*t77+2.247591863577616d+0*t66 3017 t88 = 2.9608813203268075d+1/t87+1.0d+0 3018 t89 = log(t88) 3019 t90 = 1.9751631321680768d-2*t85*t86*t89 3020 t91 = 1.274696188700087d-1*t66+1.0d+0 3021 t92 = 1.1120374863094686d+1*t80+1.644733775567609d+0*t79+2 3022 1 .4058712912881916d-1*t77+3.8447462374472113d+0*t66 3023 t93 = 3.216395899738507d+1/t92+1.0d+0 3024 t94 = log(t93) 3025 t95 = -5.980796863619711d-2*t69*t70*t74*t91*t94 3026 t96 = t65*(t95+t90+t84)-rhob*t49-rhoa*t14 3027 t97 = 3.04966d-3*(t56+t54+t21+t19-1.823119944d+1)+1.0d+0 3028 t98 = 1/t97 3029 t99 = param(4) 3030 t100 = t54+t19 3031 t101 = t100**2 3032 t102 = 1/t97**2 3033 t103 = param(5) 3034 t104 = t56+t21-1.823119944d+1 3035 t105 = param(6) 3036 t106 = t104**2 3037 t107 = param(2) 3038 t108 = param(3) 3039 t109 = t101*t102*t99+t104*t108*t98+t100*t107*t98+t102*t105 3040 1 *t106+t100*t102*t103*t104+param(1) 3041 t110 = 1/rhoa**3.6666666666666664d+0 3042 t111 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d 3043 1 +0*gammaaa*t110 3044 t112 = 1/t22**3 3045 t113 = 1/rhoa**6.333333333333333d+0 3046 t114 = -3.3333333333333337d+0*t18*t23*t34*taua-6.666666666 3047 1 666667d+0*t18*t28*t30*t31*taua-3.3333333333333337d+0*ga 3048 2 mmaaa*t27*t28*t29*taua-5.15088d-3*t111*t28*t30*t34-5.15 3049 3 088d-3*gammaaa*t111*t18*t28*t33-2.6666666666666666d+0*g 3050 4 ammaaa*t110*t23*t33-1.030176d-2*t111*t112*t31*t32-2.666 3051 5 6666666666666d+0*gammaaa*t110*t28*t29*t30-1.030176d-2*g 3052 6 ammaaa*t111*t112*t18*t29*t30-5.333333333333333d+0*t113* 3053 7 t25*t26*t28-1.030176d-2*t111*t112*t25*t26*t27 3054 t115 = 1/t11 3055 t116 = 1/t2**3 3056 t117 = 1/rhoa**1.3333333333333333d+0 3057 t118 = 1/rhoa**1.1666666666666667d+0 3058 t119 = -1.264669550498372d-1*t20-9.970917392951799d-1*t118 3059 1 -7.418564737168958d-1*t117-4.002143174996817d-1*t116 3060 t120 = 1/t10**2 3061 t121 = 1/t7 3062 t122 = -1.6039141941921276d-1*t20-1.8533958105157808d+0*t1 3063 1 18-1.2815820791490704d+0*t117-8.223668877838045d-1*t116 3064 t123 = 1/t6**2 3065 t124 = 1.0d+0*t121*t122*t123*t9+1.3210398931339265d-3*t117 3066 1 *t8+1.1102230246251565d-16*t115*t119*t120*t13+3.0506411 3067 2 443514264d-19*t117*t12 3068 t125 = 1.0d+0*t14*t17*t35+1.0d+0*rhoa*t124*t17*t35+1.0d+0* 3069 1 rhoa*t114*t14*t17 3070 t126 = 1/t97**3 3071 t127 = -3.3333333333333337d+0*t108*t18*t98*taua-6.66666666 3072 1 6666667d+0*t102*t104*t105*t18*taua-3.3333333333333337d+ 3073 2 0*t100*t102*t103*t18*taua-6.09932d-3*t101*t111*t126*t99 3074 3 -5.333333333333333d+0*gammaaa*t100*t102*t110*t99-2.6666 3075 4 666666666666d+0*gammaaa*t107*t110*t98-6.09932d-3*t105*t 3076 5 106*t111*t126-6.09932d-3*t100*t103*t104*t111*t126-3.049 3077 6 66d-3*t102*t104*t108*t111-3.04966d-3*t100*t102*t107*t11 3078 7 1-2.6666666666666666d+0*gammaaa*t102*t103*t104*t110 3079 t128 = 1/t65**1.6666666666666669d+0 3080 t129 = 1/t78**3 3081 t130 = 1/t65**1.3333333333333333d+0 3082 t131 = 1/t65**1.1666666666666667d+0 3083 t132 = -9.970917392951799d-1*t131-7.418564737168958d-1*t13 3084 1 0-4.002143174996817d-1*t129-1.264669550498372d-1*t128 3085 t133 = 1/t81**2 3086 t134 = 1/t82 3087 t135 = 1.0d+0*t132*t133*t134*t67*t76 3088 t136 = -1.3595691172479402d+0*t131-7.491972878592053d-1*t1 3089 1 30-2.1504862356383217d-1*t129-1.2743417300848914d-1*t12 3090 2 8 3091 t137 = 1/t87**2 3092 t138 = 1/t88 3093 t139 = -5.848223622634647d-1*t136*t137*t138*t85*t86 3094 t140 = -1.8533958105157808d+0*t131-1.2815820791490704d+0*t 3095 1 130-8.223668877838045d-1*t129-1.6039141941921276d-1*t12 3096 2 8 3097 t141 = 1/t92**2 3098 t142 = 1/t93 3099 t143 = 1.923661050931536d+0*t140*t141*t142*t69*t70*t74*t91 3100 t144 = 1/t65**2 3101 t145 = t144*t68 3102 t146 = -t71 3103 t147 = t146+t145 3104 t148 = t72**3.333333333333333d-1 3105 t149 = -t144*t68 3106 t150 = t71+t149 3107 t151 = t73**3.333333333333333d-1 3108 t152 = 1.3333333333333333d+0*t150*t151+1.3333333333333333d 3109 1 +0*t147*t148 3110 t153 = -1.923661050931536d+0*t152*t69*t70 3111 t154 = 1/t65**5 3112 t155 = 7.694644203726144d+0*t154*t69*t74 3113 t156 = t68**3 3114 t157 = -7.694644203726144d+0*t156*t70*t74 3115 t158 = t157+t155+t153 3116 t159 = -6.21814d-2*t158*t67*t83 3117 t160 = 2.747773264188437d-3*t130*t76*t83 3118 t161 = t157+t155+t153+1.923661050931536d+0*t152 3119 t162 = 1.9751631321680768d-2*t161*t85*t89 3120 t163 = -4.5437964274821163d-4*t130*t86*t89 3121 t164 = -5.980796863619711d-2*t152*t69*t70*t91*t94 3122 t165 = 1/t65**5.333333333333333d+0 3123 t166 = 2.541232989148493d-3*t165*t69*t74*t94 3124 t167 = 2.3923187454478842d-1*t154*t69*t74*t91*t94 3125 t168 = t95+t65*(-2.3923187454478842d-1*t156*t70*t74*t91*t9 3126 1 4+t167+t166+t164+t163+t162+t160+t159+t143+t139+t135)+t9 3127 2 0+3.1090699999999993d-2*t8*t9+t84+6.903522198342671d-18 3128 3 *t12*t13-rhoa*t124 3129 t169 = 1.0d+0*t127*t96+1.0d+0*t109*t168 3130 t170 = 1/rhob**3.6666666666666664d+0 3131 t171 = -3.3333333333333337d+0*t53*taub-2.6666666666666666d 3132 1 +0*gammabb*t170 3133 t172 = 1/t57**3 3134 t173 = 1/rhob**6.333333333333333d+0 3135 t174 = -6.666666666666667d+0*t31*t53*t61*t62*taub-3.333333 3136 1 3333333337d+0*gammabb*t29*t60*t61*taub-3.33333333333333 3137 2 37d+0*t34*t53*t58*taub-1.030176d-2*t171*t172*t31*t63-5. 3138 3 15088d-3*t171*t34*t61*t62-2.6666666666666666d+0*gammabb 3139 4 *t170*t29*t61*t62-1.030176d-2*gammabb*t171*t172*t29*t53 3140 5 *t62-5.333333333333333d+0*t173*t25*t59*t61-5.15088d-3*g 3141 6 ammabb*t171*t33*t53*t61-1.030176d-2*t171*t172*t25*t59*t 3142 7 60-2.6666666666666666d+0*gammabb*t170*t33*t58 3143 t175 = 1/t46 3144 t176 = 1/t37**3 3145 t177 = 1/rhob**1.3333333333333333d+0 3146 t178 = 1/rhob**1.1666666666666667d+0 3147 t179 = -1.264669550498372d-1*t55-9.970917392951799d-1*t178 3148 1 -7.418564737168958d-1*t177-4.002143174996817d-1*t176 3149 t180 = 1/t45**2 3150 t181 = 1/t42 3151 t182 = -1.6039141941921276d-1*t55-1.8533958105157808d+0*t1 3152 1 78-1.2815820791490704d+0*t177-8.223668877838045d-1*t176 3153 t183 = 1/t41**2 3154 t184 = 1.1102230246251565d-16*t175*t179*t180*t48+3.0506411 3155 1 443514264d-19*t177*t47+1.0d+0*t181*t182*t183*t44+1.3210 3156 2 398931339265d-3*t177*t43 3157 t185 = 1.0d+0*t49*t52*t64+1.0d+0*rhob*t184*t52*t64+1.0d+0* 3158 1 rhob*t174*t49*t52 3159 t186 = -3.3333333333333337d+0*t108*t53*t98*taub-6.66666666 3160 1 6666667d+0*t102*t104*t105*t53*taub-3.3333333333333337d+ 3161 2 0*t100*t102*t103*t53*taub-6.09932d-3*t101*t126*t171*t99 3162 3 -5.333333333333333d+0*gammabb*t100*t102*t170*t99-2.6666 3163 4 666666666666d+0*gammabb*t107*t170*t98-6.09932d-3*t105*t 3164 5 106*t126*t171-6.09932d-3*t100*t103*t104*t126*t171-3.049 3165 6 66d-3*t102*t104*t108*t171-3.04966d-3*t100*t102*t107*t17 3166 7 1-2.6666666666666666d+0*gammabb*t102*t103*t104*t170 3167 t187 = t71+t145 3168 t188 = t149+t146 3169 t189 = 1.3333333333333333d+0*t151*t188+1.3333333333333333d 3170 1 +0*t148*t187 3171 t190 = -1.923661050931536d+0*t189*t69*t70 3172 t191 = 7.694644203726144d+0*t156*t70*t74 3173 t192 = t191+t190+t155 3174 t193 = -6.21814d-2*t192*t67*t83 3175 t194 = t191+t190+1.923661050931536d+0*t189+t155 3176 t195 = 1.9751631321680768d-2*t194*t85*t89 3177 t196 = -5.980796863619711d-2*t189*t69*t70*t91*t94 3178 t197 = t95+t65*(2.3923187454478842d-1*t156*t70*t74*t91*t94 3179 1 +t196+t195+t193+t167+t166+t163+t160+t143+t139+t135)+t90 3180 2 +t84+6.903522198342671d-18*t47*t48+3.1090699999999993d- 3181 3 2*t43*t44-rhob*t184 3182 t198 = 1.0d+0*t186*t96+1.0d+0*t109*t197 3183 t199 = 1/rhoa**8 3184 t200 = -5.15088d-3*t18*t28*t30*t34-5.15088d-3*gammaaa*t27* 3185 1 t28*t33+t18*t23*t33-1.030176d-2*t112*t18*t31*t32+t18*t2 3186 2 8*t29*t30-1.030176d-2*gammaaa*t112*t27*t29*t30+2*gammaa 3187 3 a*t25*t27*t28-1.030176d-2*t112*t199*t25*t26 3188 t201 = -6.09932d-3*t101*t126*t18*t99+2*t100*t102*t18*t99+t 3189 1 107*t18*t98-6.09932d-3*t105*t106*t126*t18-6.09932d-3*t1 3190 2 00*t103*t104*t126*t18-3.04966d-3*t102*t104*t108*t18-3.0 3191 3 4966d-3*t100*t102*t107*t18+t102*t103*t104*t18 3192 t202 = 1/rhob**8 3193 t203 = -1.030176d-2*t172*t31*t53*t63-5.15088d-3*t34*t53*t6 3194 1 1*t62+t29*t53*t61*t62-1.030176d-2*gammabb*t172*t29*t60* 3195 2 t62-5.15088d-3*gammabb*t33*t60*t61+2*gammabb*t25*t60*t6 3196 3 1-1.030176d-2*t172*t202*t25*t59+t33*t53*t58 3197 t204 = -6.09932d-3*t101*t126*t53*t99+2*t100*t102*t53*t99+t 3198 1 107*t53*t98-6.09932d-3*t105*t106*t126*t53-6.09932d-3*t1 3199 2 00*t103*t104*t126*t53-3.04966d-3*t102*t104*t108*t53-3.0 3200 3 4966d-3*t100*t102*t107*t53+t102*t103*t104*t53 3201 t205 = 1/rhoa**7 3202 t206 = 1/rhoa**4.333333333333333d+0 3203 t207 = -1.030176d-2*t20*t28*t30*t34+2.0d+0*t20*t23*t34-1.0 3204 1 30176d-2*gammaaa*t206*t28*t33-2.060352d-2*t112*t20*t31* 3205 2 t32+4.0d+0*t20*t28*t30*t31-2.060352d-2*gammaaa*t112*t20 3206 3 6*t29*t30+2.0d+0*gammaaa*t206*t28*t29-2.060352d-2*t112* 3207 4 t205*t25*t26 3208 t208 = taua**2 3209 t209 = 1/t208 3210 t210 = -1.219864d-2*t101*t126*t20*t99+2.0d+0*t108*t20*t98- 3211 1 1.219864d-2*t105*t106*t126*t20-1.219864d-2*t100*t103*t1 3212 2 04*t126*t20-6.09932d-3*t102*t104*t108*t20-6.09932d-3*t1 3213 3 00*t102*t107*t20+4.0d+0*t102*t104*t105*t20+2.0d+0*t100* 3214 4 t102*t103*t20 3215 t211 = 1/rhob**7 3216 t212 = 1/rhob**4.333333333333333d+0 3217 t213 = -2.060352d-2*t172*t31*t55*t63-1.030176d-2*t34*t55*t 3218 1 61*t62+4.0d+0*t31*t55*t61*t62-2.060352d-2*gammabb*t172* 3219 2 t212*t29*t62-1.030176d-2*gammabb*t212*t33*t61+2.0d+0*ga 3220 3 mmabb*t212*t29*t61-2.060352d-2*t172*t211*t25*t59+2.0d+0 3221 4 *t34*t55*t58 3222 t214 = taub**2 3223 t215 = 1/t214 3224 t216 = -1.219864d-2*t101*t126*t55*t99+2.0d+0*t108*t55*t98- 3225 1 1.219864d-2*t105*t106*t126*t55-1.219864d-2*t100*t103*t1 3226 2 04*t126*t55-6.09932d-3*t102*t104*t108*t55-6.09932d-3*t1 3227 3 00*t102*t107*t55+4.0d+0*t102*t104*t105*t55+2.0d+0*t100* 3228 4 t102*t103*t55 3229 t217 = t111**2 3230 t218 = 1/rhoa**2 3231 t219 = 1/t22**4 3232 t220 = 1/rhoa**4.666666666666667d+0 3233 t221 = 8.88888888888889d+0*t110*taua+9.777777777777779d+0* 3234 1 gammaaa*t220 3235 t222 = 1/rhoa**7.333333333333333d+0 3236 t223 = t119**2 3237 t224 = 1/t2**5 3238 t225 = 1/rhoa**2.3333333333333334d+0 3239 t226 = 1/rhoa**2.1666666666666665d+0 3240 t227 = t122**2 3241 t228 = 3.216395899738507d+1*t227*t9/(t6**4*t7**2)-2.0d+0*t 3242 1 121*t227*t9/t6**3+1.0d+0*t121*t123*(2.1622951122684114d 3243 2 +0*t226+1.7087761055320938d+0*t225+1.2335503316757068d+ 3244 3 0*t224+2.673190323653546d-1*t18)*t9-1.7613865241785684d 3245 4 -3*t225*t8+1.1102230246251565d-16*t115*t120*t13*(1.1632 3246 5 736958443765d+0*t226+9.89141964955861d-1*t225+6.0032147 3247 6 62495226d-1*t224+2.1077825841639536d-1*t18)-4.067521525 3248 7 8019015d-19*t12*t225-2.220446049250313d-16*t115*t13*t22 3249 8 3/t10**3+1.7854583920998188d-15*t13*t223/(t10**4*t11**2 3250 9 )-8.497974591333913d-2*t117*t121*t122*t123-9.8120696682 3251 : 65515d-18*t115*t117*t119*t120 3252 t229 = 1/t97**4 3253 t230 = 2.0d+0*t132*t133*t134*t67*t76 3254 t231 = -1.1696447245269295d+0*t136*t137*t138*t85*t86 3255 t232 = 3.847322101863072d+0*t140*t141*t142*t69*t70*t74*t91 3256 t233 = 5.495546528376875d-3*t130*t76*t83 3257 t234 = -9.087592854964233d-4*t130*t86*t89 3258 t235 = 5.082465978296986d-3*t165*t69*t74*t94 3259 t236 = 4.7846374908957684d-1*t154*t69*t74*t91*t94 3260 t237 = t132**2 3261 t238 = 1.6081979498692536d+1*t237*t67*t76/(t81**4*t82**2) 3262 t239 = -2.0d+0*t134*t237*t67*t76/t81**3 3263 t240 = -8.837926660346784d-2*t130*t132*t133*t134*t76 3264 t241 = 1/t65**2.6666666666666666d+0 3265 t242 = 1/t78**5 3266 t243 = 1/t65**2.3333333333333334d+0 3267 t244 = 1/t65**2.1666666666666665d+0 3268 t245 = 1.0d+0*t133*t134*(1.1632736958443765d+0*t244+9.8914 3269 1 1964955861d-1*t243+6.003214762495226d-1*t242+2.10778258 3270 2 41639536d-1*t241)*t67*t76 3271 t246 = t136**2 3272 t247 = -1.73158960813529d+1*t246*t85*t86/(t87**4*t88**2) 3273 t248 = 1.1696447245269295d+0*t138*t246*t85*t86/t87**3 3274 t249 = 2.690728393099896d-2*t130*t136*t137*t138*t86 3275 t250 = -5.848223622634647d-1*t137*t138*(1.5861639701225969 3276 1 d+0*t244+9.98929717145607d-1*t243+3.2257293534574827d-1 3277 2 *t242+2.1239028834748191d-1*t241)*t85*t86 3278 t251 = t140**2 3279 t252 = 6.187255516702861d+1*t251*t69*t70*t74*t91/(t92**4*t 3280 1 93**2) 3281 t253 = -3.847322101863072d+0*t142*t251*t69*t70*t74*t91/t92 3282 1 **3 3283 t254 = -1.6347222733154887d-1*t140*t141*t142*t165*t69*t74 3284 t255 = 1.923661050931536d+0*t141*t142*(2.1622951122684114d 3285 1 +0*t244+1.7087761055320938d+0*t243+1.2335503316757068d+ 3286 2 0*t242+2.673190323653546d-1*t241)*t69*t70*t74*t91 3287 t256 = -1.538928840745229d+1*t140*t141*t142*t154*t69*t74*t 3288 1 91 3289 t257 = 1/t72**6.666666666666666d-1 3290 t258 = 1/t65**3 3291 t259 = -2*t258*t68 3292 t260 = 2*t144 3293 t261 = 1/t73**6.666666666666666d-1 3294 t262 = 2*t258*t68 3295 t263 = -2*t144 3296 t264 = 1.3333333333333333d+0*t151*(t263+t262)+4.4444444444 3297 1 44444d-1*t150**2*t261+1.3333333333333333d+0*t148*(t260+ 3298 2 t259)+4.444444444444444d-1*t147**2*t257 3299 t265 = -1.923661050931536d+0*t264*t69*t70 3300 t266 = 1.5389288407452287d+1*t152*t154*t69 3301 t267 = -1.5389288407452287d+1*t152*t156*t70 3302 t268 = 1/t65**6 3303 t269 = -3.8473221018630716d+1*t268*t69*t74 3304 t270 = 6.155715362980915d+1*t154*t156*t74 3305 t271 = t68**2 3306 t272 = -2.3083932611178434d+1*t271*t70*t74 3307 t273 = -3.663697685584583d-3*t243*t76*t83 3308 t274 = 6.058395236642822d-4*t243*t86*t89 3309 t275 = -2.3718174565385935d-2*t69*t74*t94/t65**6.333333333 3310 1 333333d+0 3311 t276 = -1.1961593727239421d+0*t268*t69*t74*t91*t94 3312 t277 = -7.176956236343652d-1*t271*t70*t74*t91*t94 3313 t278 = 2.6666666666666666d+0*t151*t258*t68-2.6666666666666 3314 1 666d+0*t148*t258*t68+4.444444444444444d-1*t150*t188*t26 3315 2 1+4.444444444444444d-1*t147*t187*t257 3316 t279 = -1.923661050931536d+0*t278*t69*t70 3317 t280 = 7.694644203726144d+0*t154*t189*t69 3318 t281 = -7.694644203726144d+0*t156*t189*t70 3319 t282 = 7.694644203726144d+0*t152*t154*t69 3320 t283 = 7.694644203726144d+0*t152*t156*t70 3321 t284 = 2.3083932611178434d+1*t271*t70*t74 3322 t285 = t171**2 3323 t286 = 1/rhob**2 3324 t287 = 1/t57**4 3325 t288 = 1/rhob**4.666666666666667d+0 3326 t289 = 8.88888888888889d+0*t170*taub+9.777777777777779d+0* 3327 1 gammabb*t288 3328 t290 = 1/rhob**7.333333333333333d+0 3329 t291 = t179**2 3330 t292 = 1/t37**5 3331 t293 = 1/rhob**2.3333333333333334d+0 3332 t294 = 1/rhob**2.1666666666666665d+0 3333 t295 = t182**2 3334 t296 = 1.0d+0*t181*t183*t44*(2.673190323653546d-1*t53+2.16 3335 1 22951122684114d+0*t294+1.7087761055320938d+0*t293+1.233 3336 2 5503316757068d+0*t292)+1.1102230246251565d-16*t175*t180 3337 3 *t48*(2.1077825841639536d-1*t53+1.1632736958443765d+0*t 3338 4 294+9.89141964955861d-1*t293+6.003214762495226d-1*t292) 3339 5 +1.7854583920998188d-15*t291*t48/(t45**4*t46**2)-2.2204 3340 6 46049250313d-16*t175*t291*t48/t45**3-4.0675215258019015 3341 7 d-19*t293*t47+3.216395899738507d+1*t295*t44/(t41**4*t42 3342 8 **2)-2.0d+0*t181*t295*t44/t41**3-1.7613865241785684d-3* 3343 9 t293*t43-8.497974591333913d-2*t177*t181*t182*t183-9.812 3344 : 069668265515d-18*t175*t177*t179*t180 3345 t297 = 1.3333333333333333d+0*t148*(t263+t259)+1.3333333333 3346 1 333333d+0*t151*(t262+t260)+4.444444444444444d-1*t188**2 3347 2 *t261+4.444444444444444d-1*t187**2*t257 3348 t298 = -1.923661050931536d+0*t297*t69*t70 3349 t299 = 1.5389288407452287d+1*t154*t189*t69 3350 t300 = 1.5389288407452287d+1*t156*t189*t70 3351 t301 = -6.155715362980915d+1*t154*t156*t74 3352 t302 = 1.25d-1*t14*t35+1.25d-1*gammaaa*t14*t200 3353 t303 = 1.25d-1*t49*t64+1.25d-1*gammabb*t203*t49 3354 t304 = 1/rhoa**3.3333333333333337d+0 3355 t305 = 1/rhob**3.3333333333333337d+0 3356 t306 = 1/rhoa**6 3357 t307 = 1/rhob**6 3358 fnc(iq) = (1.0d+0*t109*t96*t98+1.0d+0*rhob*t49*t52*t58*t64 3359 1 +1.0d+0*rhoa*t14*t17*t23*t35)*wght+fnc(iq) 3360 Amat(iq,D1_RA) = (t169*t98-3.04966d-3*t102*t109*t111*t96-5 3361 1 .15088d-3*rhoa*t111*t14*t17*t28*t35+1.25d-1*gammaaa*t14 3362 2 *t15*t16*t23*t35+t125*t23)*wght+Amat(iq,D1_RA) 3363 Amat(iq,D1_RB) = (t198*t98-3.04966d-3*t102*t109*t171*t96-5 3364 1 .15088d-3*rhob*t171*t49*t52*t61*t64+1.25d-1*gammabb*t49 3365 2 *t50*t51*t58*t64+t185*t58)*wght+Amat(iq,D1_RB) 3366 Cmat(iq,D1_GAA) = (1.0d+0*t201*t96*t98-3.04966d-3*t102*t10 3367 1 9*t18*t96-5.15088d-3*t14*t17*t20*t28*t35-1.25d-1*t14*t1 3368 2 6*t23*t35+1.0d+0*rhoa*t14*t17*t200*t23)*wght+Cmat(iq,D1 3369 3 _GAA) 3370 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 3371 Cmat(iq,D1_GBB) = (1.0d+0*t204*t96*t98-3.04966d-3*t102*t10 3372 1 9*t53*t96-5.15088d-3*t49*t52*t55*t61*t64-1.25d-1*t49*t5 3373 2 1*t58*t64+1.0d+0*rhob*t203*t49*t52*t58)*wght+Cmat(iq,D1 3374 3 _GBB) 3375 Mmat(iq,D1_TA) = (1.0d+0*t210*t96*t98-6.09932d-3*t102*t109 3376 1 *t20*t96-1.030176d-2*t1*t14*t17*t28*t35+1.25d-1*gammaaa 3377 2 *t14*t209*t23*t35+1.0d+0*rhoa*t14*t17*t207*t23)*wght+Mm 3378 3 at(iq,D1_TA) 3379 Mmat(iq,D1_TB) = (1.0d+0*t216*t96*t98-6.09932d-3*t102*t109 3380 1 *t55*t96-1.030176d-2*t36*t49*t52*t61*t64+1.25d-1*gammab 3381 2 b*t215*t49*t58*t64+1.0d+0*rhob*t213*t49*t52*t58)*wght+M 3382 3 mat(iq,D1_TB) 3383 Amat2(iq,D2_RA_RA) = (t98*(1.0d+0*t96*(8.88888888888889d+0 3384 1 *t108*t110*t98*taua+8.132426666666668d-2*t104*t105*t111 3385 2 *t126*t18*taua+4.066213333333334d-2*t100*t103*t111*t126 3386 3 *t18*taua+2.033106666666667d-2*t102*t108*t111*t18*taua+ 3387 4 1.7777777777777778d+1*gammaaa*t102*t103*t113*taua+1.777 3388 5 7777777777778d+1*t102*t104*t105*t110*taua+8.88888888888 3389 6 889d+0*t100*t102*t103*t110*taua+1.4222222222222222d+1*t 3390 7 102*t222*t26*t99+5.580255669360001d-5*t101*t217*t229*t9 3391 8 9-6.09932d-3*t101*t126*t221*t99+1.9555555555555557d+1*g 3392 9 ammaaa*t100*t102*t220*t99+6.505941333333333d-2*gammaaa* 3393 : t100*t110*t111*t126*t99+9.777777777777779d+0*gammaaa*t1 3394 ; 07*t220*t98+2.2222222222222224d+1*t102*t105*t208*t27+5. 3395 < 580255669360001d-5*t105*t106*t217*t229+5.58025566936000 3396 = 1d-5*t100*t103*t104*t217*t229-6.09932d-3*t105*t106*t126 3397 > *t221-6.09932d-3*t100*t103*t104*t126*t221-3.04966d-3*t1 3398 ? 02*t104*t108*t221-3.04966d-3*t100*t102*t107*t221+9.7777 3399 @ 77777777779d+0*gammaaa*t102*t103*t104*t220+1.8600852231 3400 1 2d-5*t104*t108*t126*t217+1.86008522312d-5*t100*t107*t12 3401 2 6*t217+3.2529706666666663d-2*gammaaa*t103*t104*t110*t11 3402 3 1*t126+1.6264853333333332d-2*gammaaa*t102*t107*t110*t11 3403 4 1)+1.0d+0*t109*(t65*(1.9138549963583074d+0*t154*t156*t7 3404 5 4*t91*t94-5.980796863619711d-2*t264*t69*t70*t91*t94-4.7 3405 6 846374908957684d-1*t152*t156*t70*t91*t94+4.784637490895 3406 7 7684d-1*t152*t154*t69*t91*t94+2.0329863913187946d-2*t15 3407 8 6*t165*t74*t94+5.082465978296986d-3*t152*t165*t69*t94+1 3408 9 .538928840745229d+1*t140*t141*t142*t156*t70*t74*t91+3.8 3409 : 47322101863072d+0*t140*t141*t142*t152*t69*t70*t91+1.975 3410 ; 1631321680768d-2*(t272+t270+t269+t267+t266+t265+1.92366 3411 < 1050931536d+0*t264)*t85*t89-9.087592854964233d-4*t130*t 3412 = 161*t89-1.1696447245269295d+0*t136*t137*t138*t161*t85-6 3413 > .21814d-2*(t272+t270+t269+t267+t266+t265)*t67*t83+5.495 3414 ? 546528376875d-3*t130*t158*t83+2.0d+0*t132*t133*t134*t15 3415 @ 8*t67+t277+t276+t275+t274+t273+t256+t255+t254+t253+t252 3416 1 +t250+t249+t248+t247+t245+t240+t239+t238)-4.78463749089 3417 2 57684d-1*t156*t70*t74*t91*t94-1.1961593727239421d-1*t15 3418 3 2*t69*t70*t91*t94-2.0d+0*t121*t122*t123*t9+3.9503262643 3419 4 361536d-2*t161*t85*t89-1.243628d-1*t158*t67*t83-2.64207 3420 5 9786267853d-3*t117*t8+t236+t235+t234+t233+t232+t231+t23 3421 6 0-rhoa*t228-2.220446049250313d-16*t115*t119*t120*t13-6. 3422 7 101282288702853d-19*t117*t12)+2.0d+0*t127*t168)+t23*(1. 3423 8 0d+0*rhoa*t14*t17*(3.4339200000000003d-2*t111*t18*t28*t 3424 9 34*taua+8.88888888888889d+0*t110*t23*t34*taua+1.7777777 3425 : 777777778d+1*t110*t28*t30*t31*taua+1.373568d-1*t111*t11 3426 ; 2*t18*t30*t31*taua+2.6666666666666666d+1*gammaaa*t113*t 3427 < 28*t29*taua+6.867840000000001d-2*gammaaa*t111*t112*t27* 3428 = t29*taua-5.15088d-3*t221*t28*t30*t34+5.30631295488d-5*t 3429 > 112*t217*t30*t34-5.15088d-3*gammaaa*t18*t221*t28*t33+2. 3430 ? 747136d-2*gammaaa*t110*t111*t28*t33+9.777777777777779d+ 3431 @ 0*gammaaa*t220*t23*t33+5.30631295488d-5*gammaaa*t112*t1 3432 1 8*t217*t33-1.030176d-2*t112*t221*t31*t32+1.591893886464 3433 2 d-4*t217*t219*t31*t32+2.2222222222222224d+1*t208*t27*t2 3434 3 8*t31+9.777777777777779d+0*gammaaa*t220*t28*t29*t30-1.0 3435 4 30176d-2*gammaaa*t112*t18*t221*t29*t30+1.591893886464d- 3436 5 4*gammaaa*t18*t217*t219*t29*t30+5.494272d-2*gammaaa*t11 3437 6 0*t111*t112*t29*t30+3.377777777777778d+1*t222*t25*t26*t 3438 7 28-1.030176d-2*t112*t221*t25*t26*t27+1.591893886464d-4* 3439 8 t217*t219*t25*t26*t27+1.0988544d-1*t111*t112*t113*t25*t 3440 9 26)+1.0d+0*rhoa*t17*t228*t35+1.25d-1*gammaaa*t14*t16*t2 3441 : 18*t35+2.0d+0*t124*t17*t35+1.25d-1*gammaaa*t124*t15*t16 3442 ; *t35+2.0d+0*t114*t14*t17+2.0d+0*rhoa*t114*t124*t17+1.25 3443 < d-1*gammaaa*t114*t14*t15*t16)+t102*(-3.04966d-3*t109*t2 3444 = 21*t96-3.04966d-3*t111*t127*t96-3.04966d-3*t111*t169-3. 3445 > 04966d-3*t109*t111*t168)+1.86008522312d-5*t109*t126*t21 3446 ? 7*t96+t28*(-5.15088d-3*rhoa*t14*t17*t221*t35-5.15088d-3 3447 @ *t111*t14*t17*t35-5.15088d-3*rhoa*t111*t124*t17*t35-5.1 3448 1 5088d-3*rhoa*t111*t114*t14*t17-5.15088d-3*t111*t125)+t1 3449 2 5*t16*t23*(1.25d-1*gammaaa*t124*t35+1.25d-1*gammaaa*t11 3450 3 4*t14)-1.28772d-3*gammaaa*t111*t14*t15*t16*t28*t35-1.25 3451 4 d-1*gammaaa*t14*t16*t218*t23*t35+5.30631295488d-5*rhoa* 3452 5 t112*t14*t17*t217*t35)*wght+Amat2(iq,D2_RA_RA) 3453 Amat2(iq,D2_RA_RB) = (t98*(1.0d+0*t96*(2.2222222222222224d 3454 1 +1*t102*t105*t18*t53*taua*taub+4.066213333333334d-2*t10 3455 2 4*t105*t111*t126*t53*taub+2.033106666666667d-2*t100*t10 3456 3 3*t111*t126*t53*taub+1.0165533333333335d-2*t102*t108*t1 3457 4 11*t53*taub+8.88888888888889d+0*gammaaa*t102*t103*t110* 3458 5 t53*taub+4.066213333333334d-2*t104*t105*t126*t171*t18*t 3459 6 aua+2.033106666666667d-2*t100*t103*t126*t171*t18*taua+1 3460 7 .0165533333333335d-2*t102*t108*t171*t18*taua+8.88888888 3461 8 888889d+0*gammabb*t102*t103*t170*t18*taua+5.58025566936 3462 9 0001d-5*t101*t111*t171*t229*t99+3.2529706666666663d-2*g 3463 : ammaaa*t100*t110*t126*t171*t99+3.2529706666666663d-2*ga 3464 ; mmabb*t100*t111*t126*t170*t99+1.4222222222222222d+1*gam 3465 < maaa*gammabb*t102*t110*t170*t99+5.580255669360001d-5*t1 3466 = 05*t106*t111*t171*t229+5.580255669360001d-5*t100*t103*t 3467 > 104*t111*t171*t229+1.86008522312d-5*t104*t108*t111*t126 3468 ? *t171+1.86008522312d-5*t100*t107*t111*t126*t171+1.62648 3469 @ 53333333332d-2*gammaaa*t103*t104*t110*t126*t171+8.13242 3470 1 6666666667d-3*gammaaa*t102*t107*t110*t171+1.62648533333 3471 2 33332d-2*gammabb*t103*t104*t111*t126*t170+8.13242666666 3472 3 6667d-3*gammabb*t102*t107*t111*t170)+1.0d+0*t109*(t65*( 3473 4 7.176956236343652d-1*t271*t70*t74*t91*t94-5.98079686361 3474 5 9711d-2*t278*t69*t70*t91*t94-2.3923187454478842d-1*t156 3475 6 *t189*t70*t91*t94+2.3923187454478842d-1*t152*t156*t70*t 3476 7 91*t94+2.3923187454478842d-1*t154*t189*t69*t91*t94+2.39 3477 8 23187454478842d-1*t152*t154*t69*t91*t94+2.5412329891484 3478 9 93d-3*t165*t189*t69*t94+2.541232989148493d-3*t152*t165* 3479 : t69*t94+1.923661050931536d+0*t140*t141*t142*t189*t69*t7 3480 ; 0*t91+1.923661050931536d+0*t140*t141*t142*t152*t69*t70* 3481 < t91+1.9751631321680768d-2*(t284+t283+t282+t281+t280+t27 3482 = 9+1.923661050931536d+0*t278+t269)*t85*t89-4.54379642748 3483 > 21163d-4*t130*t194*t89-4.5437964274821163d-4*t130*t161* 3484 ? t89-5.848223622634647d-1*t136*t137*t138*t194*t85-5.8482 3485 @ 23622634647d-1*t136*t137*t138*t161*t85-6.21814d-2*(t284 3486 1 +t283+t282+t281+t280+t279+t269)*t67*t83+2.7477732641884 3487 2 37d-3*t130*t192*t83+2.747773264188437d-3*t130*t158*t83+ 3488 3 1.0d+0*t132*t133*t134*t192*t67+1.0d+0*t132*t133*t134*t1 3489 4 58*t67+t276+t275+t274+t273+t256+t255+t254+t253+t252+t25 3490 5 0+t249+t248+t247+t245+t240+t239+t238)+t236+t235+t234+t2 3491 6 33+t232+t231+t230+t196+t195+t193+t164+t162+t159)+1.0d+0 3492 7 *t127*t197+1.0d+0*t168*t186)+t102*(-3.04966d-3*t111*t18 3493 8 6*t96-3.04966d-3*t109*t111*t197-3.04966d-3*t169*t171)+1 3494 9 .86008522312d-5*t109*t111*t126*t171*t96)*wght+Amat2(iq, 3495 : D2_RA_RB) 3496 Amat2(iq,D2_RB_RB) = (t98*(1.0d+0*t96*(8.88888888888889d+0 3497 1 *t108*t170*t98*taub+8.132426666666668d-2*t104*t105*t126 3498 2 *t171*t53*taub+4.066213333333334d-2*t100*t103*t126*t171 3499 3 *t53*taub+2.033106666666667d-2*t102*t108*t171*t53*taub+ 3500 4 1.7777777777777778d+1*gammabb*t102*t103*t173*taub+1.777 3501 5 7777777777778d+1*t102*t104*t105*t170*taub+8.88888888888 3502 6 889d+0*t100*t102*t103*t170*taub+1.4222222222222222d+1*t 3503 7 102*t290*t59*t99-6.09932d-3*t101*t126*t289*t99+1.955555 3504 8 5555555557d+1*gammabb*t100*t102*t288*t99+5.580255669360 3505 9 001d-5*t101*t229*t285*t99+6.505941333333333d-2*gammabb* 3506 : t100*t126*t170*t171*t99+9.777777777777779d+0*gammabb*t1 3507 ; 07*t288*t98+2.2222222222222224d+1*t102*t105*t214*t60-6. 3508 < 09932d-3*t105*t106*t126*t289-6.09932d-3*t100*t103*t104* 3509 = t126*t289-3.04966d-3*t102*t104*t108*t289-3.04966d-3*t10 3510 > 0*t102*t107*t289+9.777777777777779d+0*gammabb*t102*t103 3511 ? *t104*t288+5.580255669360001d-5*t105*t106*t229*t285+5.5 3512 @ 80255669360001d-5*t100*t103*t104*t229*t285+1.8600852231 3513 1 2d-5*t104*t108*t126*t285+1.86008522312d-5*t100*t107*t12 3514 2 6*t285+3.2529706666666663d-2*gammabb*t103*t104*t126*t17 3515 3 0*t171+1.6264853333333332d-2*gammabb*t102*t107*t170*t17 3516 4 1)+1.0d+0*t109*(t65*(-1.9138549963583074d+0*t154*t156*t 3517 5 74*t91*t94-5.980796863619711d-2*t297*t69*t70*t91*t94+4. 3518 6 7846374908957684d-1*t156*t189*t70*t91*t94+4.78463749089 3519 7 57684d-1*t154*t189*t69*t91*t94-2.0329863913187946d-2*t1 3520 8 56*t165*t74*t94+5.082465978296986d-3*t165*t189*t69*t94- 3521 9 1.538928840745229d+1*t140*t141*t142*t156*t70*t74*t91+3. 3522 : 847322101863072d+0*t140*t141*t142*t189*t69*t70*t91+1.97 3523 ; 51631321680768d-2*(t301+t300+t299+t298+1.92366105093153 3524 < 6d+0*t297+t272+t269)*t85*t89-9.087592854964233d-4*t130* 3525 = t194*t89-1.1696447245269295d+0*t136*t137*t138*t194*t85- 3526 > 6.21814d-2*(t301+t300+t299+t298+t272+t269)*t67*t83+5.49 3527 ? 5546528376875d-3*t130*t192*t83+2.0d+0*t132*t133*t134*t1 3528 @ 92*t67+t277+t276+t275+t274+t273+t256+t255+t254+t253+t25 3529 1 2+t250+t249+t248+t247+t245+t240+t239+t238)+4.7846374908 3530 2 957684d-1*t156*t70*t74*t91*t94-1.1961593727239421d-1*t1 3531 3 89*t69*t70*t91*t94+3.9503262643361536d-2*t194*t85*t89-1 3532 4 .243628d-1*t192*t67*t83-2.220446049250313d-16*t175*t179 3533 5 *t180*t48-6.101282288702853d-19*t177*t47-2.0d+0*t181*t1 3534 6 82*t183*t44-2.642079786267853d-3*t177*t43-rhob*t296+t23 3535 7 6+t235+t234+t233+t232+t231+t230)+2.0d+0*t186*t197)+t58* 3536 8 (1.0d+0*rhob*t49*t52*(1.7777777777777778d+1*t170*t31*t6 3537 9 1*t62*taub+1.373568d-1*t171*t172*t31*t53*t62*taub+3.433 3538 : 9200000000003d-2*t171*t34*t53*t61*taub+2.66666666666666 3539 ; 66d+1*gammabb*t173*t29*t61*taub+6.867840000000001d-2*ga 3540 < mmabb*t171*t172*t29*t60*taub+8.88888888888889d+0*t170*t 3541 = 34*t58*taub-1.030176d-2*t172*t289*t31*t63+1.59189388646 3542 > 4d-4*t285*t287*t31*t63-5.15088d-3*t289*t34*t61*t62+9.77 3543 ? 7777777777779d+0*gammabb*t288*t29*t61*t62-1.030176d-2*g 3544 @ ammabb*t172*t289*t29*t53*t62+1.591893886464d-4*gammabb* 3545 1 t285*t287*t29*t53*t62+5.30631295488d-5*t172*t285*t34*t6 3546 2 2+5.494272d-2*gammabb*t170*t171*t172*t29*t62+2.22222222 3547 3 22222224d+1*t214*t31*t60*t61+3.377777777777778d+1*t25*t 3548 4 290*t59*t61-5.15088d-3*gammabb*t289*t33*t53*t61+2.74713 3549 5 6d-2*gammabb*t170*t171*t33*t61-1.030176d-2*t172*t25*t28 3550 6 9*t59*t60+1.591893886464d-4*t25*t285*t287*t59*t60+1.098 3551 7 8544d-1*t171*t172*t173*t25*t59+9.777777777777779d+0*gam 3552 8 mabb*t288*t33*t58+5.30631295488d-5*gammabb*t172*t285*t3 3553 9 3*t53)+1.0d+0*rhob*t296*t52*t64+2.0d+0*t184*t52*t64+1.2 3554 : 5d-1*gammabb*t184*t50*t51*t64+1.25d-1*gammabb*t286*t49* 3555 ; t51*t64+2.0d+0*t174*t49*t52+2.0d+0*rhob*t174*t184*t52+1 3556 < .25d-1*gammabb*t174*t49*t50*t51)+t102*(-3.04966d-3*t109 3557 = *t289*t96-3.04966d-3*t171*t186*t96-3.04966d-3*t171*t198 3558 > -3.04966d-3*t109*t171*t197)+1.86008522312d-5*t109*t126* 3559 ? t285*t96+t61*(-5.15088d-3*rhob*t289*t49*t52*t64-5.15088 3560 @ d-3*t171*t49*t52*t64-5.15088d-3*rhob*t171*t184*t52*t64- 3561 1 5.15088d-3*rhob*t171*t174*t49*t52-5.15088d-3*t171*t185) 3562 2 +t50*t51*t58*(1.25d-1*gammabb*t184*t64+1.25d-1*gammabb* 3563 3 t174*t49)-1.28772d-3*gammabb*t171*t49*t50*t51*t61*t64-1 3564 4 .25d-1*gammabb*t286*t49*t51*t58*t64+5.30631295488d-5*rh 3565 5 ob*t172*t285*t49*t52*t64)*wght+Amat2(iq,D2_RB_RB) 3566 Cmat2(iq,D2_RA_GAA) = (t23*(1.0d+0*rhoa*t14*t17*(1.7169600 3567 1 000000002d-2*t27*t28*t34*taua+6.867840000000001d-2*t112 3568 2 *t27*t30*t31*taua-3.3333333333333337d+0*t27*t28*t29*tau 3569 3 a+3.4339200000000003d-2*gammaaa*t112*t199*t29*taua+1.37 3570 4 3568d-2*t110*t28*t30*t34+5.30631295488d-5*t111*t112*t18 3571 5 *t30*t34-5.15088d-3*t111*t18*t28*t33+2.747136d-2*gammaa 3572 6 a*t113*t28*t33+5.30631295488d-5*gammaaa*t111*t112*t27*t 3573 7 33-2.6666666666666666d+0*t110*t23*t33+1.591893886464d-4 3574 8 *t111*t18*t219*t31*t32+2.747136d-2*t110*t112*t31*t32-2. 3575 9 6666666666666666d+0*t110*t28*t29*t30+1.591893886464d-4* 3576 : gammaaa*t111*t219*t27*t29*t30-1.030176d-2*t111*t112*t18 3577 ; *t29*t30+5.494272d-2*gammaaa*t112*t113*t29*t30-1.066666 3578 < 6666666666d+1*gammaaa*t113*t25*t28-2.060352d-2*gammaaa* 3579 = t111*t112*t25*t27+1.591893886464d-4*t111*t199*t219*t25* 3580 > t26+8.241408d-2*t112*t25*t26/rhoa**9)-1.25d-1*t14*t15*t 3581 ? 16*t35-1.25d-1*t124*t16*t35+1.0d+0*t14*t17*t200+1.0d+0* 3582 @ rhoa*t124*t17*t200-1.25d-1*t114*t14*t16)+t98*(1.0d+0*t9 3583 1 6*(4.066213333333334d-2*t104*t105*t126*t27*taua+2.03310 3584 2 6666666667d-2*t100*t103*t126*t27*taua+1.016553333333333 3585 3 5d-2*t102*t108*t27*taua-3.3333333333333337d+0*t102*t103 3586 4 *t27*taua+5.580255669360001d-5*t101*t111*t18*t229*t99-1 3587 5 .219864d-2*t100*t111*t126*t18*t99+3.2529706666666663d-2 3588 6 *gammaaa*t100*t113*t126*t99+1.6264853333333332d-2*t101* 3589 7 t110*t126*t99-5.333333333333333d+0*gammaaa*t102*t113*t9 3590 8 9-5.333333333333333d+0*t100*t102*t110*t99-2.66666666666 3591 9 66666d+0*t107*t110*t98+5.580255669360001d-5*t105*t106*t 3592 : 111*t18*t229+5.580255669360001d-5*t100*t103*t104*t111*t 3593 ; 18*t229+1.86008522312d-5*t104*t108*t111*t126*t18+1.8600 3594 < 8522312d-5*t100*t107*t111*t126*t18-6.09932d-3*t103*t104 3595 = *t111*t126*t18-3.04966d-3*t102*t107*t111*t18+1.62648533 3596 > 33333332d-2*gammaaa*t103*t104*t113*t126+1.6264853333333 3597 ? 332d-2*t105*t106*t110*t126+1.6264853333333332d-2*t100*t 3598 @ 103*t104*t110*t126+8.132426666666667d-3*gammaaa*t102*t1 3599 1 07*t113+8.132426666666667d-3*t102*t104*t108*t110+8.1324 3600 2 26666666667d-3*t100*t102*t107*t110-2.6666666666666666d+ 3601 3 0*t102*t103*t104*t110)+1.0d+0*t168*t201)-3.04966d-3*t10 3602 4 2*t111*t201*t96+1.86008522312d-5*t109*t111*t126*t18*t96 3603 5 +8.132426666666667d-3*t102*t109*t110*t96+t18*t28*(1.373 3604 6 568d-2*t14*t17*t35-5.15088d-3*t125)+6.4386d-4*t111*t14* 3605 7 t16*t28*t35-6.4386d-4*gammaaa*t110*t14*t16*t28*t35+5.30 3606 8 631295488d-5*t111*t112*t14*t17*t20*t35+t15*t16*t23*t302 3607 9 -5.15088d-3*rhoa*t111*t14*t17*t200*t28-3.04966d-3*t102* 3608 : t169*t18)*wght+Cmat2(iq,D2_RA_GAA) 3609 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 3610 Cmat2(iq,D2_RA_GBB) = (t98*(1.0d+0*t96*(4.066213333333334d 3611 1 -2*t104*t105*t126*t18*t53*taua+2.033106666666667d-2*t10 3612 2 0*t103*t126*t18*t53*taua+1.0165533333333335d-2*t102*t10 3613 3 8*t18*t53*taua-3.3333333333333337d+0*t102*t103*t18*t53* 3614 4 taua+5.580255669360001d-5*t101*t111*t229*t53*t99-1.2198 3615 5 64d-2*t100*t111*t126*t53*t99+3.2529706666666663d-2*gamm 3616 6 aaa*t100*t110*t126*t53*t99-5.333333333333333d+0*gammaaa 3617 7 *t102*t110*t53*t99+5.580255669360001d-5*t105*t106*t111* 3618 8 t229*t53+5.580255669360001d-5*t100*t103*t104*t111*t229* 3619 9 t53+1.86008522312d-5*t104*t108*t111*t126*t53+1.86008522 3620 : 312d-5*t100*t107*t111*t126*t53-6.09932d-3*t103*t104*t11 3621 ; 1*t126*t53+1.6264853333333332d-2*gammaaa*t103*t104*t110 3622 < *t126*t53-3.04966d-3*t102*t107*t111*t53+8.1324266666666 3623 = 67d-3*gammaaa*t102*t107*t110*t53)+1.0d+0*t168*t204)+1.8 3624 > 6008522312d-5*t109*t111*t126*t53*t96-3.04966d-3*t102*t1 3625 ? 11*t204*t96-3.04966d-3*t102*t169*t53)*wght+Cmat2(iq,D2_ 3626 @ RA_GBB) 3627 Cmat2(iq,D2_RB_GAA) = (t98*(1.0d+0*t96*(4.066213333333334d 3628 1 -2*t104*t105*t126*t18*t53*taub+2.033106666666667d-2*t10 3629 2 0*t103*t126*t18*t53*taub+1.0165533333333335d-2*t102*t10 3630 3 8*t18*t53*taub-3.3333333333333337d+0*t102*t103*t18*t53* 3631 4 taub+5.580255669360001d-5*t101*t171*t18*t229*t99-1.2198 3632 5 64d-2*t100*t126*t171*t18*t99+3.2529706666666663d-2*gamm 3633 6 abb*t100*t126*t170*t18*t99-5.333333333333333d+0*gammabb 3634 7 *t102*t170*t18*t99+5.580255669360001d-5*t105*t106*t171* 3635 8 t18*t229+5.580255669360001d-5*t100*t103*t104*t171*t18*t 3636 9 229+1.86008522312d-5*t104*t108*t126*t171*t18+1.86008522 3637 : 312d-5*t100*t107*t126*t171*t18-6.09932d-3*t103*t104*t12 3638 ; 6*t171*t18-3.04966d-3*t102*t107*t171*t18+1.626485333333 3639 < 3332d-2*gammabb*t103*t104*t126*t170*t18+8.1324266666666 3640 = 67d-3*gammabb*t102*t107*t170*t18)+1.0d+0*t197*t201)-3.0 3641 > 4966d-3*t102*t171*t201*t96+1.86008522312d-5*t109*t126*t 3642 ? 171*t18*t96-3.04966d-3*t102*t18*t198)*wght+Cmat2(iq,D2_ 3643 @ RB_GAA) 3644 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 3645 Cmat2(iq,D2_RB_GBB) = (t58*(1.0d+0*rhob*t49*t52*(6.8678400 3646 1 00000001d-2*t172*t31*t60*t62*taub+1.7169600000000002d-2 3647 2 *t34*t60*t61*taub-3.3333333333333337d+0*t29*t60*t61*tau 3648 3 b+3.4339200000000003d-2*gammabb*t172*t202*t29*taub+1.59 3649 4 1893886464d-4*t171*t287*t31*t53*t63+2.747136d-2*t170*t1 3650 5 72*t31*t63+1.373568d-2*t170*t34*t61*t62-2.6666666666666 3651 6 666d+0*t170*t29*t61*t62+1.591893886464d-4*gammabb*t171* 3652 7 t287*t29*t60*t62+5.30631295488d-5*t171*t172*t34*t53*t62 3653 8 -1.030176d-2*t171*t172*t29*t53*t62+5.494272d-2*gammabb* 3654 9 t172*t173*t29*t62-5.15088d-3*t171*t33*t53*t61+2.747136d 3655 : -2*gammabb*t173*t33*t61-1.0666666666666666d+1*gammabb*t 3656 ; 173*t25*t61+5.30631295488d-5*gammabb*t171*t172*t33*t60- 3657 < 2.060352d-2*gammabb*t171*t172*t25*t60+1.591893886464d-4 3658 = *t171*t202*t25*t287*t59+8.241408d-2*t172*t25*t59/rhob** 3659 > 9-2.6666666666666666d+0*t170*t33*t58)-1.25d-1*t49*t50*t 3660 ? 51*t64-1.25d-1*t184*t51*t64+1.0d+0*t203*t49*t52+1.0d+0* 3661 @ rhob*t184*t203*t52-1.25d-1*t174*t49*t51)+t98*(1.0d+0*t9 3662 1 6*(4.066213333333334d-2*t104*t105*t126*t60*taub+2.03310 3663 2 6666666667d-2*t100*t103*t126*t60*taub+1.016553333333333 3664 3 5d-2*t102*t108*t60*taub-3.3333333333333337d+0*t102*t103 3665 4 *t60*taub+5.580255669360001d-5*t101*t171*t229*t53*t99-1 3666 5 .219864d-2*t100*t126*t171*t53*t99+3.2529706666666663d-2 3667 6 *gammabb*t100*t126*t173*t99-5.333333333333333d+0*gammab 3668 7 b*t102*t173*t99+1.6264853333333332d-2*t101*t126*t170*t9 3669 8 9-5.333333333333333d+0*t100*t102*t170*t99-2.66666666666 3670 9 66666d+0*t107*t170*t98+5.580255669360001d-5*t105*t106*t 3671 : 171*t229*t53+5.580255669360001d-5*t100*t103*t104*t171*t 3672 ; 229*t53+1.86008522312d-5*t104*t108*t126*t171*t53+1.8600 3673 < 8522312d-5*t100*t107*t126*t171*t53-6.09932d-3*t103*t104 3674 = *t126*t171*t53-3.04966d-3*t102*t107*t171*t53+1.62648533 3675 > 33333332d-2*gammabb*t103*t104*t126*t173+8.1324266666666 3676 ? 67d-3*gammabb*t102*t107*t173+1.6264853333333332d-2*t105 3677 @ *t106*t126*t170+1.6264853333333332d-2*t100*t103*t104*t1 3678 1 26*t170+8.132426666666667d-3*t102*t104*t108*t170+8.1324 3679 2 26666666667d-3*t100*t102*t107*t170-2.6666666666666666d+ 3680 3 0*t102*t103*t104*t170)+1.0d+0*t197*t204)+1.86008522312d 3681 4 -5*t109*t126*t171*t53*t96-3.04966d-3*t102*t171*t204*t96 3682 5 +8.132426666666667d-3*t102*t109*t170*t96+t53*t61*(1.373 3683 6 568d-2*t49*t52*t64-5.15088d-3*t185)+6.4386d-4*t171*t49* 3684 7 t51*t61*t64-6.4386d-4*gammabb*t170*t49*t51*t61*t64+5.30 3685 8 631295488d-5*t171*t172*t49*t52*t55*t64-5.15088d-3*rhob* 3686 9 t171*t203*t49*t52*t61+t303*t50*t51*t58-3.04966d-3*t102* 3687 : t198*t53)*wght+Cmat2(iq,D2_RB_GBB) 3688 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t96*t98*(5.580255669360001d 3689 1 -5*t101*t229*t27*t99-2.439728d-2*t100*t126*t27*t99+2*t1 3690 2 02*t27*t99+5.580255669360001d-5*t105*t106*t229*t27+5.58 3691 3 0255669360001d-5*t100*t103*t104*t229*t27+1.86008522312d 3692 4 -5*t104*t108*t126*t27+1.86008522312d-5*t100*t107*t126*t 3693 5 27-1.219864d-2*t103*t104*t126*t27-6.09932d-3*t102*t107* 3694 6 t27)+1.86008522312d-5*t109*t126*t27*t96-6.09932d-3*t102 3695 7 *t18*t201*t96+1.28772d-3*t14*t16*t18*t28*t35+5.30631295 3696 8 488d-5*t112*t14*t17*t206*t35+1.0d+0*rhoa*t14*t17*t23*(5 3697 9 .30631295488d-5*t112*t27*t30*t34-1.030176d-2*t27*t28*t3 3698 : 3+5.30631295488d-5*gammaaa*t112*t199*t33+1.591893886464 3699 ; d-4*t219*t27*t31*t32-2.060352d-2*t112*t27*t29*t30+1.591 3700 < 893886464d-4*gammaaa*t199*t219*t29*t30+2*t25*t27*t28+1. 3701 = 591893886464d-4*t219*t25*t26/rhoa**1.0666666666666666d+ 3702 > 1-4.120704d-2*gammaaa*t112*t199*t25)-1.030176d-2*t14*t1 3703 ? 7*t20*t200*t28-2.5d-1*t14*t16*t200*t23)*wght+Cmat2(iq,D 3704 @ 2_GAA_GAA) 3705 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 3706 Cmat2(iq,D2_GAA_GBB) = (1.0d+0*t96*t98*(5.580255669360001d 3707 1 -5*t101*t18*t229*t53*t99-2.439728d-2*t100*t126*t18*t53* 3708 2 t99+2*t102*t18*t53*t99+5.580255669360001d-5*t105*t106*t 3709 3 18*t229*t53+5.580255669360001d-5*t100*t103*t104*t18*t22 3710 4 9*t53+1.86008522312d-5*t104*t108*t126*t18*t53+1.8600852 3711 5 2312d-5*t100*t107*t126*t18*t53-1.219864d-2*t103*t104*t1 3712 6 26*t18*t53-6.09932d-3*t102*t107*t18*t53)-3.04966d-3*t10 3713 7 2*t201*t53*t96+1.86008522312d-5*t109*t126*t18*t53*t96-3 3714 8 .04966d-3*t102*t18*t204*t96)*wght+Cmat2(iq,D2_GAA_GBB) 3715 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 3716 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 3717 Cmat2(iq,D2_GBB_GBB) = (1.0d+0*t96*t98*(5.580255669360001d 3718 1 -5*t101*t229*t60*t99-2.439728d-2*t100*t126*t60*t99+2*t1 3719 2 02*t60*t99+5.580255669360001d-5*t105*t106*t229*t60+5.58 3720 3 0255669360001d-5*t100*t103*t104*t229*t60+1.86008522312d 3721 4 -5*t104*t108*t126*t60+1.86008522312d-5*t100*t107*t126*t 3722 5 60-1.219864d-2*t103*t104*t126*t60-6.09932d-3*t102*t107* 3723 6 t60)+1.86008522312d-5*t109*t126*t60*t96-6.09932d-3*t102 3724 7 *t204*t53*t96+1.28772d-3*t49*t51*t53*t61*t64+5.30631295 3725 8 488d-5*t172*t212*t49*t52*t64+1.0d+0*rhob*t49*t52*t58*(1 3726 9 .591893886464d-4*t287*t31*t60*t63+5.30631295488d-5*t172 3727 : *t34*t60*t62-2.060352d-2*t172*t29*t60*t62+1.59189388646 3728 ; 4d-4*gammabb*t202*t287*t29*t62-1.030176d-2*t33*t60*t61+ 3729 < 2*t25*t60*t61+1.591893886464d-4*t25*t287*t59/rhob**1.06 3730 = 66666666666666d+1+5.30631295488d-5*gammabb*t172*t202*t3 3731 > 3-4.120704d-2*gammabb*t172*t202*t25)-1.030176d-2*t203*t 3732 ? 49*t52*t55*t61-2.5d-1*t203*t49*t51*t58)*wght+Cmat2(iq,D 3733 @ 2_GBB_GBB) 3734 Mmat2(iq,D2_RA_TA) = (t23*(1.0d+0*rhoa*t14*t17*(3.43392000 3735 1 00000003d-2*t206*t28*t34*taua+1.373568d-1*t112*t206*t30 3736 2 *t31*taua-1.3333333333333333d+1*t206*t28*t31*taua+6.867 3737 3 840000000001d-2*gammaaa*t112*t205*t29*taua+1.7169600000 3738 4 000002d-2*t18*t28*t30*t34+1.061262590976d-4*t111*t112*t 3739 5 20*t30*t34-1.030176d-2*t111*t20*t28*t34-3.3333333333333 3740 6 337d+0*t18*t23*t34+4.464096d-2*gammaaa*t27*t28*t33+1.06 3741 7 1262590976d-4*gammaaa*t111*t112*t206*t33+3.183787772928 3742 8 d-4*t111*t20*t219*t31*t32+3.4339200000000003d-2*t112*t1 3743 9 8*t31*t32-6.666666666666667d+0*t18*t28*t30*t31-4.120704 3744 : d-2*t111*t112*t20*t30*t31+8.928192d-2*gammaaa*t112*t27* 3745 ; t29*t30+3.183787772928d-4*gammaaa*t111*t206*t219*t29*t3 3746 < 0-8.666666666666666d+0*gammaaa*t27*t28*t29-2.060352d-2* 3747 = gammaaa*t111*t112*t206*t29+3.183787772928d-4*t111*t205* 3748 > t219*t25*t26+1.4422464000000002d-1*t112*t199*t25*t26)+1 3749 ? .25d-1*gammaaa*t14*t15*t209*t35+1.25d-1*gammaaa*t124*t2 3750 @ 09*t35+1.25d-1*gammaaa*t114*t14*t209+1.0d+0*t14*t17*t20 3751 1 7+1.0d+0*rhoa*t124*t17*t207)+t98*(1.0d+0*t96*(8.1324266 3752 2 66666668d-2*t104*t105*t126*t206*taua+4.066213333333334d 3753 3 -2*t100*t103*t126*t206*taua+2.033106666666667d-2*t102*t 3754 4 108*t206*taua-1.3333333333333333d+1*t102*t105*t206*taua 3755 5 +6.505941333333333d-2*gammaaa*t100*t126*t27*t99+1.11605 3756 6 11338720001d-4*t101*t111*t20*t229*t99+2.033106666666667 3757 7 d-2*t101*t126*t18*t99-3.3333333333333337d+0*t108*t18*t9 3758 8 8+3.2529706666666663d-2*gammaaa*t103*t104*t126*t27+1.62 3759 9 64853333333332d-2*gammaaa*t102*t107*t27-5.3333333333333 3760 : 33d+0*gammaaa*t102*t103*t27+1.1160511338720001d-4*t105* 3761 ; t106*t111*t20*t229+1.1160511338720001d-4*t100*t103*t104 3762 < *t111*t20*t229+3.72017044624d-5*t104*t108*t111*t126*t20 3763 = +3.72017044624d-5*t100*t107*t111*t126*t20-2.439728d-2*t 3764 > 104*t105*t111*t126*t20-1.219864d-2*t100*t103*t111*t126* 3765 ? t20-6.09932d-3*t102*t108*t111*t20+2.033106666666667d-2* 3766 @ t105*t106*t126*t18+2.033106666666667d-2*t100*t103*t104* 3767 1 t126*t18+1.0165533333333335d-2*t102*t104*t108*t18+1.016 3768 2 5533333333335d-2*t100*t102*t107*t18-6.666666666666667d+ 3769 3 0*t102*t104*t105*t18-3.3333333333333337d+0*t100*t102*t1 3770 4 03*t18)+1.0d+0*t168*t210)-3.04966d-3*t102*t111*t210*t96 3771 5 +3.72017044624d-5*t109*t111*t126*t20*t96+1.016553333333 3772 6 3335d-2*t102*t109*t18*t96+t20*t28*(1.7169600000000002d- 3773 7 2*t14*t17*t35-1.030176d-2*t125)-6.4386d-4*gammaaa*t111* 3774 8 t14*t209*t28*t35-1.28772d-3*gammaaa*t14*t16*t18*t28*t35 3775 9 -1.25d-1*gammaaa*t14*t15*t209*t23*t35+1.061262590976d-4 3776 : *t1*t111*t112*t14*t17*t35-5.15088d-3*rhoa*t111*t14*t17* 3777 ; t207*t28+1.25d-1*gammaaa*t14*t15*t16*t207*t23-6.09932d- 3778 < 3*t102*t169*t20)*wght+Mmat2(iq,D2_RA_TA) 3779 Mmat2(iq,D2_RA_TB) = (t98*(1.0d+0*t96*(8.132426666666668d- 3780 1 2*t104*t105*t126*t18*t55*taua+4.066213333333334d-2*t100 3781 2 *t103*t126*t18*t55*taua+2.033106666666667d-2*t102*t108* 3782 3 t18*t55*taua-1.3333333333333333d+1*t102*t105*t18*t55*ta 3783 4 ua+1.1160511338720001d-4*t101*t111*t229*t55*t99+6.50594 3784 5 1333333333d-2*gammaaa*t100*t110*t126*t55*t99+1.11605113 3785 6 38720001d-4*t105*t106*t111*t229*t55+1.1160511338720001d 3786 7 -4*t100*t103*t104*t111*t229*t55+3.72017044624d-5*t104*t 3787 8 108*t111*t126*t55+3.72017044624d-5*t100*t107*t111*t126* 3788 9 t55-2.439728d-2*t104*t105*t111*t126*t55-1.219864d-2*t10 3789 : 0*t103*t111*t126*t55+3.2529706666666663d-2*gammaaa*t103 3790 ; *t104*t110*t126*t55-6.09932d-3*t102*t108*t111*t55+1.626 3791 < 4853333333332d-2*gammaaa*t102*t107*t110*t55-5.333333333 3792 = 333333d+0*gammaaa*t102*t103*t110*t55)+1.0d+0*t168*t216) 3793 > +3.72017044624d-5*t109*t111*t126*t55*t96-3.04966d-3*t10 3794 ? 2*t111*t216*t96-6.09932d-3*t102*t169*t55)*wght+Mmat2(iq 3795 @ ,D2_RA_TB) 3796 Mmat2(iq,D2_RB_TA) = (t98*(1.0d+0*t96*(8.132426666666668d- 3797 1 2*t104*t105*t126*t20*t53*taub+4.066213333333334d-2*t100 3798 2 *t103*t126*t20*t53*taub+2.033106666666667d-2*t102*t108* 3799 3 t20*t53*taub-1.3333333333333333d+1*t102*t105*t20*t53*ta 3800 4 ub+1.1160511338720001d-4*t101*t171*t20*t229*t99+6.50594 3801 5 1333333333d-2*gammabb*t100*t126*t170*t20*t99+1.11605113 3802 6 38720001d-4*t105*t106*t171*t20*t229+1.1160511338720001d 3803 7 -4*t100*t103*t104*t171*t20*t229+3.72017044624d-5*t104*t 3804 8 108*t126*t171*t20+3.72017044624d-5*t100*t107*t126*t171* 3805 9 t20-2.439728d-2*t104*t105*t126*t171*t20-1.219864d-2*t10 3806 : 0*t103*t126*t171*t20-6.09932d-3*t102*t108*t171*t20+3.25 3807 ; 29706666666663d-2*gammabb*t103*t104*t126*t170*t20+1.626 3808 < 4853333333332d-2*gammabb*t102*t107*t170*t20-5.333333333 3809 = 333333d+0*gammabb*t102*t103*t170*t20)+1.0d+0*t197*t210) 3810 > -3.04966d-3*t102*t171*t210*t96+3.72017044624d-5*t109*t1 3811 ? 26*t171*t20*t96-6.09932d-3*t102*t198*t20)*wght+Mmat2(iq 3812 @ ,D2_RB_TA) 3813 Mmat2(iq,D2_RB_TB) = (t58*(1.0d+0*rhob*t49*t52*(1.373568d- 3814 1 1*t172*t212*t31*t62*taub+3.4339200000000003d-2*t212*t34 3815 2 *t61*taub-1.3333333333333333d+1*t212*t31*t61*taub+6.867 3816 3 840000000001d-2*gammabb*t172*t211*t29*taub+3.1837877729 3817 4 28d-4*t171*t287*t31*t55*t63+3.4339200000000003d-2*t172* 3818 5 t31*t53*t63+1.7169600000000002d-2*t34*t53*t61*t62-6.666 3819 6 666666666667d+0*t31*t53*t61*t62+8.928192d-2*gammabb*t17 3820 7 2*t29*t60*t62+1.061262590976d-4*t171*t172*t34*t55*t62-4 3821 8 .120704d-2*t171*t172*t31*t55*t62+3.183787772928d-4*gamm 3822 9 abb*t171*t212*t287*t29*t62+4.464096d-2*gammabb*t33*t60* 3823 : t61-8.666666666666666d+0*gammabb*t29*t60*t61-1.030176d- 3824 ; 2*t171*t34*t55*t61+3.183787772928d-4*t171*t211*t25*t287 3825 < *t59+1.4422464000000002d-1*t172*t202*t25*t59-3.33333333 3826 = 33333337d+0*t34*t53*t58+1.061262590976d-4*gammabb*t171* 3827 > t172*t212*t33-2.060352d-2*gammabb*t171*t172*t212*t29)+1 3828 ? .25d-1*gammabb*t215*t49*t50*t64+1.25d-1*gammabb*t184*t2 3829 @ 15*t64+1.0d+0*t213*t49*t52+1.0d+0*rhob*t184*t213*t52+1. 3830 1 25d-1*gammabb*t174*t215*t49)+t98*(1.0d+0*t96*(8.1324266 3831 2 66666668d-2*t104*t105*t126*t212*taub+4.066213333333334d 3832 3 -2*t100*t103*t126*t212*taub+2.033106666666667d-2*t102*t 3833 4 108*t212*taub-1.3333333333333333d+1*t102*t105*t212*taub 3834 5 +6.505941333333333d-2*gammabb*t100*t126*t60*t99+1.11605 3835 6 11338720001d-4*t101*t171*t229*t55*t99+2.033106666666667 3836 7 d-2*t101*t126*t53*t99-3.3333333333333337d+0*t108*t53*t9 3837 8 8+3.2529706666666663d-2*gammabb*t103*t104*t126*t60+1.62 3838 9 64853333333332d-2*gammabb*t102*t107*t60-5.3333333333333 3839 : 33d+0*gammabb*t102*t103*t60+1.1160511338720001d-4*t105* 3840 ; t106*t171*t229*t55+1.1160511338720001d-4*t100*t103*t104 3841 < *t171*t229*t55+3.72017044624d-5*t104*t108*t126*t171*t55 3842 = +3.72017044624d-5*t100*t107*t126*t171*t55-2.439728d-2*t 3843 > 104*t105*t126*t171*t55-1.219864d-2*t100*t103*t126*t171* 3844 ? t55-6.09932d-3*t102*t108*t171*t55+2.033106666666667d-2* 3845 @ t105*t106*t126*t53+2.033106666666667d-2*t100*t103*t104* 3846 1 t126*t53+1.0165533333333335d-2*t102*t104*t108*t53+1.016 3847 2 5533333333335d-2*t100*t102*t107*t53-6.666666666666667d+ 3848 3 0*t102*t104*t105*t53-3.3333333333333337d+0*t100*t102*t1 3849 4 03*t53)+1.0d+0*t197*t216)+3.72017044624d-5*t109*t126*t1 3850 5 71*t55*t96+1.0165533333333335d-2*t102*t109*t53*t96-3.04 3851 6 966d-3*t102*t171*t216*t96+t55*t61*(1.7169600000000002d- 3852 7 2*t49*t52*t64-1.030176d-2*t185)-1.28772d-3*gammabb*t49* 3853 8 t51*t53*t61*t64-6.4386d-4*gammabb*t171*t215*t49*t61*t64 3854 9 -1.25d-1*gammabb*t215*t49*t50*t58*t64+1.061262590976d-4 3855 : *t171*t172*t36*t49*t52*t64-5.15088d-3*rhob*t171*t213*t4 3856 ; 9*t52*t61+1.25d-1*gammabb*t213*t49*t50*t51*t58-6.09932d 3857 < -3*t102*t198*t55)*wght+Mmat2(iq,D2_RB_TB) 3858 Mmat2(iq,D2_GAA_TA) = (1.0d+0*t96*t98*(1.1160511338720001d 3859 1 -4*t101*t206*t229*t99-2.439728d-2*t100*t126*t206*t99+1. 3860 2 1160511338720001d-4*t105*t106*t206*t229+1.1160511338720 3861 3 001d-4*t100*t103*t104*t206*t229+3.72017044624d-5*t104*t 3862 4 108*t126*t206+3.72017044624d-5*t100*t107*t126*t206-2.43 3863 5 9728d-2*t104*t105*t126*t206-1.219864d-2*t103*t104*t126* 3864 6 t206-1.219864d-2*t100*t103*t126*t206-6.09932d-3*t102*t1 3865 7 08*t206-6.09932d-3*t102*t107*t206+2.0d+0*t102*t103*t206 3866 8 )-3.04966d-3*t102*t18*t210*t96+3.72017044624d-5*t109*t1 3867 9 26*t206*t96-6.09932d-3*t102*t20*t201*t96+1.061262590976 3868 : d-4*t112*t14*t17*t304*t35-6.4386d-4*gammaaa*t14*t18*t20 3869 ; 9*t28*t35+1.28772d-3*t14*t16*t20*t28*t35+1.0d+0*rhoa*t1 3870 < 4*t17*t23*(1.061262590976d-4*t112*t206*t30*t34-1.030176 3871 = d-2*t206*t28*t34-1.030176d-2*t206*t28*t33+1.06126259097 3872 > 6d-4*gammaaa*t112*t205*t33+3.183787772928d-4*t206*t219* 3873 ? t31*t32-4.120704d-2*t112*t206*t30*t31+3.183787772928d-4 3874 @ *gammaaa*t205*t219*t29*t30-2.060352d-2*t112*t206*t29*t3 3875 1 0+2.0d+0*t206*t28*t29-2.060352d-2*gammaaa*t112*t205*t29 3876 2 +3.183787772928d-4*t219*t25*t26/rhoa**9.666666666666666 3877 3 d+0-4.120704d-2*gammaaa*t112*t205*t25)+t209*t23*t302-5. 3878 4 15088d-3*t14*t17*t20*t207*t28-1.030176d-2*t1*t14*t17*t2 3879 5 00*t28-1.25d-1*t14*t16*t207*t23)*wght+Mmat2(iq,D2_GAA_T 3880 6 A) 3881 Mmat2(iq,D2_GAA_TB) = (1.0d+0*t96*t98*(1.1160511338720001d 3882 1 -4*t101*t18*t229*t55*t99-2.439728d-2*t100*t126*t18*t55* 3883 2 t99+1.1160511338720001d-4*t105*t106*t18*t229*t55+1.1160 3884 3 511338720001d-4*t100*t103*t104*t18*t229*t55+3.720170446 3885 4 24d-5*t104*t108*t126*t18*t55+3.72017044624d-5*t100*t107 3886 5 *t126*t18*t55-2.439728d-2*t104*t105*t126*t18*t55-1.2198 3887 6 64d-2*t103*t104*t126*t18*t55-1.219864d-2*t100*t103*t126 3888 7 *t18*t55-6.09932d-3*t102*t108*t18*t55-6.09932d-3*t102*t 3889 8 107*t18*t55+2.0d+0*t102*t103*t18*t55)-6.09932d-3*t102*t 3890 9 201*t55*t96+3.72017044624d-5*t109*t126*t18*t55*t96-3.04 3891 : 966d-3*t102*t18*t216*t96)*wght+Mmat2(iq,D2_GAA_TB) 3892 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 3893 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 3894 Mmat2(iq,D2_GBB_TA) = (1.0d+0*t96*t98*(1.1160511338720001d 3895 1 -4*t101*t20*t229*t53*t99-2.439728d-2*t100*t126*t20*t53* 3896 2 t99+1.1160511338720001d-4*t105*t106*t20*t229*t53+1.1160 3897 3 511338720001d-4*t100*t103*t104*t20*t229*t53+3.720170446 3898 4 24d-5*t104*t108*t126*t20*t53+3.72017044624d-5*t100*t107 3899 5 *t126*t20*t53-2.439728d-2*t104*t105*t126*t20*t53-1.2198 3900 6 64d-2*t103*t104*t126*t20*t53-1.219864d-2*t100*t103*t126 3901 7 *t20*t53-6.09932d-3*t102*t108*t20*t53-6.09932d-3*t102*t 3902 8 107*t20*t53+2.0d+0*t102*t103*t20*t53)-3.04966d-3*t102*t 3903 9 210*t53*t96+3.72017044624d-5*t109*t126*t20*t53*t96-6.09 3904 : 932d-3*t102*t20*t204*t96)*wght+Mmat2(iq,D2_GBB_TA) 3905 Mmat2(iq,D2_GBB_TB) = (1.0d+0*t96*t98*(1.1160511338720001d 3906 1 -4*t101*t212*t229*t99-2.439728d-2*t100*t126*t212*t99+1. 3907 2 1160511338720001d-4*t105*t106*t212*t229+1.1160511338720 3908 3 001d-4*t100*t103*t104*t212*t229+3.72017044624d-5*t104*t 3909 4 108*t126*t212+3.72017044624d-5*t100*t107*t126*t212-2.43 3910 5 9728d-2*t104*t105*t126*t212-1.219864d-2*t103*t104*t126* 3911 6 t212-1.219864d-2*t100*t103*t126*t212-6.09932d-3*t102*t1 3912 7 08*t212-6.09932d-3*t102*t107*t212+2.0d+0*t102*t103*t212 3913 8 )-6.09932d-3*t102*t204*t55*t96-3.04966d-3*t102*t216*t53 3914 9 *t96+3.72017044624d-5*t109*t126*t212*t96+1.28772d-3*t49 3915 : *t51*t55*t61*t64-6.4386d-4*gammabb*t215*t49*t53*t61*t64 3916 ; +1.061262590976d-4*t172*t305*t49*t52*t64+1.0d+0*rhob*t4 3917 < 9*t52*t58*(3.183787772928d-4*t212*t287*t31*t63+1.061262 3918 = 590976d-4*t172*t212*t34*t62-4.120704d-2*t172*t212*t31*t 3919 > 62+3.183787772928d-4*gammabb*t211*t287*t29*t62-2.060352 3920 ? d-2*t172*t212*t29*t62-1.030176d-2*t212*t34*t61-1.030176 3921 @ d-2*t212*t33*t61+2.0d+0*t212*t29*t61+3.183787772928d-4* 3922 1 t25*t287*t59/rhob**9.666666666666666d+0+1.061262590976d 3923 2 -4*gammabb*t172*t211*t33-2.060352d-2*gammabb*t172*t211* 3924 3 t29-4.120704d-2*gammabb*t172*t211*t25)-5.15088d-3*t213* 3925 4 t49*t52*t55*t61-1.030176d-2*t203*t36*t49*t52*t61-1.25d- 3926 5 1*t213*t49*t51*t58+t215*t303*t58)*wght+Mmat2(iq,D2_GBB_ 3927 6 TB) 3928 Mmat2(iq,D2_TA_TA) = (-2.5d-1*gammaaa*t14*t23*t35/taua**3+ 3929 1 1.0d+0*t96*t98*(2.2321022677440003d-4*t101*t229*t304*t9 3930 2 9+2.2321022677440003d-4*t105*t106*t229*t304+2.232102267 3931 3 7440003d-4*t100*t103*t104*t229*t304+7.44034089248d-5*t1 3932 4 04*t108*t126*t304+7.44034089248d-5*t100*t107*t126*t304- 3933 5 9.758912d-2*t104*t105*t126*t304-4.879456d-2*t100*t103*t 3934 6 126*t304-2.439728d-2*t102*t108*t304+8.0d+0*t102*t105*t3 3935 7 04)+7.44034089248d-5*t109*t126*t304*t96-1.219864d-2*t10 3936 8 2*t20*t210*t96-2.57544d-3*gammaaa*t14*t20*t209*t28*t35+ 3937 9 2.122525181952d-4*t112*t14*t17*t225*t35+1.0d+0*rhoa*t14 3938 : *t17*t23*(2.122525181952d-4*t112*t30*t304*t34-4.120704d 3939 ; -2*t28*t304*t34+2.122525181952d-4*gammaaa*t112*t306*t33 3940 < +6.367575545856d-4*t219*t304*t31*t32-1.6482816d-1*t112* 3941 = t30*t304*t31+8.0d+0*t28*t304*t31+6.367575545856d-4*gamm 3942 > aaa*t219*t29*t30*t306-8.241408d-2*gammaaa*t112*t29*t306 3943 ? +6.367575545856d-4*t219*t25*t26/rhoa**8.666666666666666 3944 @ d+0)-2.060352d-2*t1*t14*t17*t207*t28+2.5d-1*gammaaa*t14 3945 1 *t207*t209*t23)*wght+Mmat2(iq,D2_TA_TA) 3946 Mmat2(iq,D2_TA_TB) = (1.0d+0*t96*t98*(2.2321022677440003d- 3947 1 4*t101*t20*t229*t55*t99+2.2321022677440003d-4*t105*t106 3948 2 *t20*t229*t55+2.2321022677440003d-4*t100*t103*t104*t20* 3949 3 t229*t55+7.44034089248d-5*t104*t108*t126*t20*t55+7.4403 3950 4 4089248d-5*t100*t107*t126*t20*t55-9.758912d-2*t104*t105 3951 5 *t126*t20*t55-4.879456d-2*t100*t103*t126*t20*t55-2.4397 3952 6 28d-2*t102*t108*t20*t55+8.0d+0*t102*t105*t20*t55)-6.099 3953 7 32d-3*t102*t210*t55*t96+7.44034089248d-5*t109*t126*t20* 3954 8 t55*t96-6.09932d-3*t102*t20*t216*t96)*wght+Mmat2(iq,D2_ 3955 9 TA_TB) 3956 Mmat2(iq,D2_TB_TB) = (-2.5d-1*gammabb*t49*t58*t64/taub**3+ 3957 1 1.0d+0*t96*t98*(2.2321022677440003d-4*t101*t229*t305*t9 3958 2 9+2.2321022677440003d-4*t105*t106*t229*t305+2.232102267 3959 3 7440003d-4*t100*t103*t104*t229*t305+7.44034089248d-5*t1 3960 4 04*t108*t126*t305+7.44034089248d-5*t100*t107*t126*t305- 3961 5 9.758912d-2*t104*t105*t126*t305-4.879456d-2*t100*t103*t 3962 6 126*t305-2.439728d-2*t102*t108*t305+8.0d+0*t102*t105*t3 3963 7 05)-1.219864d-2*t102*t216*t55*t96+7.44034089248d-5*t109 3964 8 *t126*t305*t96-2.57544d-3*gammabb*t215*t49*t55*t61*t64+ 3965 9 2.122525181952d-4*t172*t293*t49*t52*t64+1.0d+0*rhob*t49 3966 : *t52*t58*(6.367575545856d-4*t287*t305*t31*t63+2.1225251 3967 ; 81952d-4*t172*t305*t34*t62-1.6482816d-1*t172*t305*t31*t 3968 < 62+6.367575545856d-4*gammabb*t287*t29*t307*t62-4.120704 3969 = d-2*t305*t34*t61+8.0d+0*t305*t31*t61+6.367575545856d-4* 3970 > t25*t287*t59/rhob**8.666666666666666d+0+2.122525181952d 3971 ? -4*gammabb*t172*t307*t33-8.241408d-2*gammabb*t172*t29*t 3972 @ 307)-2.060352d-2*t213*t36*t49*t52*t61+2.5d-1*gammabb*t2 3973 1 13*t215*t49*t58)*wght+Mmat2(iq,D2_TB_TB) 3974 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 3975 t1 = 1/rhob**1.6666666666666669d+0 3976 t2 = 6.0d-50*t1 3977 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 3978 t4 = 1/t3 3979 t5 = param(7) 3980 t6 = param(12) 3981 t7 = 1/t3**2 3982 t8 = 2.0d-50*t1 3983 t9 = t8-9.11559972d+0 3984 t10 = t9**2 3985 t11 = param(10) 3986 t12 = param(9) 3987 t13 = param(8) 3988 t14 = param(11) 3989 t15 = 4.0d-50*t1*t14*t7*t9+t12*t4*t9+t10*t6*t7+1.6d-99*t11 3990 1 *t7/rhob**3.3333333333333337d+0+t5+4.0d-50*t1*t13*t4 3991 t16 = 1/rhob**6.666666666666666d-1 3992 t17 = rhob**5.0d-1 3993 t18 = 1/t17 3994 t19 = 1/rhob**3.333333333333333d-1 3995 t20 = 1/rhob**1.6666666666666666d-1 3996 t21 = 1.1120374863094686d+1*t20+3.8447462374472113d+0*t19+ 3997 1 1.644733775567609d+0*t18+2.4058712912881916d-1*t16 3998 t22 = 3.216395899738507d+1/t21+1.0d+0 3999 t23 = log(t22) 4000 t24 = 1.274696188700087d-1*t19+1.0d+0 4001 t25 = 5.982550435771079d+0*t20+2.2255694211506874d+0*t19+8 4002 1 .004286349993635d-1*t18+1.8970043257475583d-1*t16 4003 t26 = 1.6081979498692536d+1/t25+1.0d+0 4004 t27 = log(t26) 4005 t28 = 1.3256889990520176d-1*t19+1.0d+0 4006 t29 = -6.903522198342671d-18*t27*t28-3.1090699999999993d-2 4007 1 *t23*t24 4008 t30 = 1/rhoa**6.666666666666666d-1 4009 t31 = rhoa**5.0d-1 4010 t32 = 1/t31 4011 t33 = 1/rhoa**3.333333333333333d-1 4012 t34 = 1/rhoa**1.6666666666666666d-1 4013 t35 = 1.1120374863094686d+1*t34+3.8447462374472113d+0*t33+ 4014 1 1.644733775567609d+0*t32+2.4058712912881916d-1*t30 4015 t36 = 3.216395899738507d+1/t35+1.0d+0 4016 t37 = log(t36) 4017 t38 = 1.274696188700087d-1*t33+1.0d+0 4018 t39 = 5.982550435771079d+0*t34+2.2255694211506874d+0*t33+8 4019 1 .004286349993635d-1*t32+1.8970043257475583d-1*t30 4020 t40 = 1.6081979498692536d+1/t39+1.0d+0 4021 t41 = log(t40) 4022 t42 = 1.3256889990520176d-1*t33+1.0d+0 4023 t43 = -6.903522198342671d-18*t41*t42-3.1090699999999993d-2 4024 1 *t37*t38 4025 t44 = 1/rhoa 4026 t45 = 1/taua 4027 t46 = 1.0d+0-1.25d-1*gammaaa*t44*t45 4028 t47 = 1/rhoa**2.6666666666666666d+0 4029 t48 = gammaaa*t47 4030 t49 = 1/rhoa**1.6666666666666669d+0 4031 t50 = 2.0d+0*t49*taua 4032 t51 = 5.15088d-3*(t50+t48-9.11559972d+0)+1.0d+0 4033 t52 = 1/t51 4034 t53 = gammaaa**2 4035 t54 = 1/rhoa**5.333333333333333d+0 4036 t55 = 1/t51**2 4037 t56 = t50-9.11559972d+0 4038 t57 = t56**2 4039 t58 = t55*t57*t6+gammaaa*t14*t47*t55*t56+t12*t52*t56+t11*t 4040 1 53*t54*t55+gammaaa*t13*t47*t52+t5 4041 t59 = rhob+rhoa 4042 t60 = 1/t59**3.333333333333333d-1 4043 t61 = 1.3256889990520176d-1*t60+1.0d+0 4044 t62 = rhoa-rhob 4045 t63 = t62**4 4046 t64 = 1/t59**4 4047 t65 = 1/t59 4048 t66 = 1.0d+0-t62*t65 4049 t67 = t62*t65+1.0d+0 4050 t68 = t67**1.3333333333333333d+0+t66**1.3333333333333333d+ 4051 1 0-2.0d+0 4052 t69 = -1.923661050931536d+0*t63*t64*t68 4053 t70 = t69+1.0d+0 4054 t71 = 1/t59**6.666666666666666d-1 4055 t72 = t59**5.0d-1 4056 t73 = 1/t72 4057 t74 = 1/t59**1.6666666666666666d-1 4058 t75 = 5.982550435771079d+0*t74+8.004286349993635d-1*t73+1. 4059 1 8970043257475583d-1*t71+2.2255694211506874d+0*t60 4060 t76 = 1.6081979498692536d+1/t75+1.0d+0 4061 t77 = log(t76) 4062 t78 = -6.21814d-2*t61*t70*t77 4063 t79 = 6.901399211255825d-2*t60+1.0d+0 4064 t80 = t69+1.923661050931536d+0*t68 4065 t81 = 8.157414703487641d+0*t74+4.3009724712766434d-1*t73+1 4066 1 .9115125951273373d-1*t71+2.247591863577616d+0*t60 4067 t82 = 2.9608813203268075d+1/t81+1.0d+0 4068 t83 = log(t82) 4069 t84 = 1.9751631321680768d-2*t79*t80*t83 4070 t85 = 1.274696188700087d-1*t60+1.0d+0 4071 t86 = 1.1120374863094686d+1*t74+1.644733775567609d+0*t73+2 4072 1 .4058712912881916d-1*t71+3.8447462374472113d+0*t60 4073 t87 = 3.216395899738507d+1/t86+1.0d+0 4074 t88 = log(t87) 4075 t89 = -5.980796863619711d-2*t63*t64*t68*t85*t88 4076 t90 = t59*(t89+t84+t78)-rhoa*t43-rhob*t29 4077 t91 = 3.04966d-3*(t50+t48+t2-1.823119944d+1)+1.0d+0 4078 t92 = 1/t91 4079 t93 = param(4) 4080 t94 = t48+4.0d-50*t1 4081 t95 = t94**2 4082 t96 = 1/t91**2 4083 t97 = param(5) 4084 t98 = t8+t50-1.823119944d+1 4085 t99 = param(6) 4086 t100 = t98**2 4087 t101 = param(2) 4088 t102 = param(3) 4089 t103 = t100*t96*t99+t94*t96*t97*t98+t102*t92*t98+t93*t95*t 4090 1 96+t101*t92*t94+param(1) 4091 t104 = 1/rhoa**3.6666666666666664d+0 4092 t105 = -3.3333333333333337d+0*t47*taua-2.6666666666666666d 4093 1 +0*gammaaa*t104 4094 t106 = 1/t51**3 4095 t107 = 1/rhoa**6.333333333333333d+0 4096 t108 = -6.666666666666667d+0*t47*t55*t56*t6*taua-3.3333333 4097 1 333333337d+0*gammaaa*t14*t54*t55*taua-3.333333333333333 4098 2 7d+0*t12*t47*t52*taua-1.030176d-2*t105*t106*t57*t6-2.66 4099 3 66666666666666d+0*gammaaa*t104*t14*t55*t56-5.15088d-3*t 4100 4 105*t12*t55*t56-1.030176d-2*gammaaa*t105*t106*t14*t47*t 4101 5 56-5.333333333333333d+0*t107*t11*t53*t55-5.15088d-3*gam 4102 6 maaa*t105*t13*t47*t55-1.030176d-2*t105*t106*t11*t53*t54 4103 7 -2.6666666666666666d+0*gammaaa*t104*t13*t52 4104 t109 = 1/t40 4105 t110 = 1/t31**3 4106 t111 = 1/rhoa**1.3333333333333333d+0 4107 t112 = 1/rhoa**1.1666666666666667d+0 4108 t113 = -1.264669550498372d-1*t49-9.970917392951799d-1*t112 4109 1 -7.418564737168958d-1*t111-4.002143174996817d-1*t110 4110 t114 = 1/t39**2 4111 t115 = 1/t36 4112 t116 = -1.6039141941921276d-1*t49-1.8533958105157808d+0*t1 4113 1 12-1.2815820791490704d+0*t111-8.223668877838045d-1*t110 4114 t117 = 1/t35**2 4115 t118 = 1.1102230246251565d-16*t109*t113*t114*t42+3.0506411 4116 1 443514264d-19*t111*t41+1.0d+0*t115*t116*t117*t38+1.3210 4117 2 398931339265d-3*t111*t37 4118 t119 = 1.0d+0*t43*t46*t58+1.0d+0*rhoa*t118*t46*t58+1.0d+0* 4119 1 rhoa*t108*t43*t46 4120 t120 = 1/t91**3 4121 t121 = -6.666666666666667d+0*t47*t96*t98*t99*taua-3.333333 4122 1 3333333337d+0*t47*t94*t96*t97*taua-3.3333333333333337d+ 4123 2 0*t102*t47*t92*taua-6.09932d-3*t100*t105*t120*t99-2.666 4124 3 6666666666666d+0*gammaaa*t104*t96*t97*t98-6.09932d-3*t1 4125 4 05*t120*t94*t97*t98-3.04966d-3*t102*t105*t96*t98-5.3333 4126 5 33333333333d+0*gammaaa*t104*t93*t94*t96-3.04966d-3*t101 4127 6 *t105*t94*t96-6.09932d-3*t105*t120*t93*t95-2.6666666666 4128 7 666666d+0*gammaaa*t101*t104*t92 4129 t122 = 1/t59**1.6666666666666669d+0 4130 t123 = 1/t72**3 4131 t124 = 1/t59**1.3333333333333333d+0 4132 t125 = 1/t59**1.1666666666666667d+0 4133 t126 = -9.970917392951799d-1*t125-7.418564737168958d-1*t12 4134 1 4-4.002143174996817d-1*t123-1.264669550498372d-1*t122 4135 t127 = 1/t75**2 4136 t128 = 1/t76 4137 t129 = 1.0d+0*t126*t127*t128*t61*t70 4138 t130 = -1.3595691172479402d+0*t125-7.491972878592053d-1*t1 4139 1 24-2.1504862356383217d-1*t123-1.2743417300848914d-1*t12 4140 2 2 4141 t131 = 1/t81**2 4142 t132 = 1/t82 4143 t133 = -5.848223622634647d-1*t130*t131*t132*t79*t80 4144 t134 = -1.8533958105157808d+0*t125-1.2815820791490704d+0*t 4145 1 124-8.223668877838045d-1*t123-1.6039141941921276d-1*t12 4146 2 2 4147 t135 = 1/t86**2 4148 t136 = 1/t87 4149 t137 = 1.923661050931536d+0*t134*t135*t136*t63*t64*t68*t85 4150 t138 = 1/t59**2 4151 t139 = t138*t62 4152 t140 = -t65 4153 t141 = t140+t139 4154 t142 = t66**3.333333333333333d-1 4155 t143 = -t138*t62 4156 t144 = t65+t143 4157 t145 = t67**3.333333333333333d-1 4158 t146 = 1.3333333333333333d+0*t144*t145+1.3333333333333333d 4159 1 +0*t141*t142 4160 t147 = -1.923661050931536d+0*t146*t63*t64 4161 t148 = 1/t59**5 4162 t149 = 7.694644203726144d+0*t148*t63*t68 4163 t150 = t62**3 4164 t151 = -7.694644203726144d+0*t150*t64*t68 4165 t152 = t151+t149+t147 4166 t153 = -6.21814d-2*t152*t61*t77 4167 t154 = 2.747773264188437d-3*t124*t70*t77 4168 t155 = t151+t149+t147+1.923661050931536d+0*t146 4169 t156 = 1.9751631321680768d-2*t155*t79*t83 4170 t157 = -4.5437964274821163d-4*t124*t80*t83 4171 t158 = -5.980796863619711d-2*t146*t63*t64*t85*t88 4172 t159 = 1/t59**5.333333333333333d+0 4173 t160 = 2.541232989148493d-3*t159*t63*t68*t88 4174 t161 = 2.3923187454478842d-1*t148*t63*t68*t85*t88 4175 t162 = t89+t59*(-2.3923187454478842d-1*t150*t64*t68*t85*t8 4176 1 8+t161+t160+t158+t157+t156+t154+t153+t137+t133+t129)+t8 4177 2 4+t78+6.903522198342671d-18*t41*t42+3.1090699999999993d 4178 3 -2*t37*t38-rhoa*t118 4179 t163 = 1.0d+0*t121*t90+1.0d+0*t103*t162 4180 t164 = 1/t26 4181 t165 = 1/t17**3 4182 t166 = 1/rhob**1.3333333333333333d+0 4183 t167 = 1/rhob**1.1666666666666667d+0 4184 t168 = -9.970917392951799d-1*t167-7.418564737168958d-1*t16 4185 1 6-4.002143174996817d-1*t165-1.264669550498372d-1*t1 4186 t169 = 1/t25**2 4187 t170 = 1/t22 4188 t171 = -1.8533958105157808d+0*t167-1.2815820791490704d+0*t 4189 1 166-8.223668877838045d-1*t165-1.6039141941921276d-1*t1 4190 t172 = 1/t21**2 4191 t173 = 1.1102230246251565d-16*t164*t168*t169*t28+3.0506411 4192 1 443514264d-19*t166*t27+1.0d+0*t170*t171*t172*t24+1.3210 4193 2 398931339265d-3*t166*t23 4194 t174 = 1/t3**3 4195 t175 = 1/rhob**4.333333333333333d+0 4196 t176 = 1/rhob**2.6666666666666666d+0 4197 t177 = -6.666666666666666d-50*t176*t6*t7*t9-6.666666666666 4198 1 666d-50*t14*t176*t7*t9+5.15088d-52*t12*t176*t7*t9+4.120 4199 2 7039999999995d-101*t14*t174*t175*t9-1.3333333333333333d 4200 3 -99*t14*t175*t7+2.0603519999999997d-101*t13*t175*t7-5.3 4201 4 33333333333334d-99*t11*t175*t7+1.030176d-51*t10*t174*t1 4202 5 76*t6-6.666666666666666d-50*t13*t176*t4-3.3333333333333 4203 6 33d-50*t12*t176*t4+1.6482816d-150*t11*t174/rhob**6 4204 t178 = 5.0d-1*rhob*t177*t29+5.0d-1*t15*t29+5.0d-1*rhob*t15 4205 1 *t173 4206 t179 = -6.666666666666666d-50*t176*t96*t98*t99+6.09932d-52 4207 1 *t100*t120*t176*t99-6.666666666666666d-50*t176*t96*t97* 4208 2 t98+6.09932d-52*t120*t176*t94*t97*t98+3.04966d-52*t102* 4209 3 t176*t96*t98-3.333333333333333d-50*t176*t94*t96*t97-1.3 4210 4 333333333333333d-49*t176*t93*t94*t96+3.04966d-52*t101*t 4211 5 176*t94*t96+6.09932d-52*t120*t176*t93*t95-3.33333333333 4212 6 3333d-50*t102*t176*t92-6.666666666666666d-50*t101*t176* 4213 7 t92 4214 t180 = t65+t139 4215 t181 = t143+t140 4216 t182 = 1.3333333333333333d+0*t145*t181+1.3333333333333333d 4217 1 +0*t142*t180 4218 t183 = -1.923661050931536d+0*t182*t63*t64 4219 t184 = 7.694644203726144d+0*t150*t64*t68 4220 t185 = t184+t183+t149 4221 t186 = -6.21814d-2*t185*t61*t77 4222 t187 = t184+t183+1.923661050931536d+0*t182+t149 4223 t188 = 1.9751631321680768d-2*t187*t79*t83 4224 t189 = -5.980796863619711d-2*t182*t63*t64*t85*t88 4225 t190 = t89+t59*(2.3923187454478842d-1*t150*t64*t68*t85*t88 4226 1 +t189+t188+t186+t161+t160+t157+t154+t137+t133+t129)+t84 4227 2 +t78+6.903522198342671d-18*t27*t28+3.1090699999999993d- 4228 3 2*t23*t24-rhob*t173 4229 t191 = 1.0d+0*t179*t90+1.0d+0*t103*t190 4230 t192 = 1/rhoa**8 4231 t193 = -1.030176d-2*t106*t47*t57*t6+t14*t47*t55*t56-5.1508 4232 1 8d-3*t12*t47*t55*t56-1.030176d-2*gammaaa*t106*t14*t54*t 4233 2 56-5.15088d-3*gammaaa*t13*t54*t55+2*gammaaa*t11*t54*t55 4234 3 -1.030176d-2*t106*t11*t192*t53+t13*t47*t52 4235 t194 = -6.09932d-3*t100*t120*t47*t99+t47*t96*t97*t98-6.099 4236 1 32d-3*t120*t47*t94*t97*t98-3.04966d-3*t102*t47*t96*t98+ 4237 2 2*t47*t93*t94*t96-3.04966d-3*t101*t47*t94*t96-6.09932d- 4238 3 3*t120*t47*t93*t95+t101*t47*t92 4239 t195 = 1/rhoa**7 4240 t196 = 1/rhoa**4.333333333333333d+0 4241 t197 = -2.060352d-2*t106*t49*t57*t6+4.0d+0*t49*t55*t56*t6- 4242 1 1.030176d-2*t12*t49*t55*t56-2.060352d-2*gammaaa*t106*t1 4243 2 4*t196*t56+2.0d+0*gammaaa*t14*t196*t55-1.030176d-2*gamm 4244 3 aaa*t13*t196*t55-2.060352d-2*t106*t11*t195*t53+2.0d+0*t 4245 4 12*t49*t52 4246 t198 = taua**2 4247 t199 = 1/t198 4248 t200 = 4.0d+0*t49*t96*t98*t99-1.219864d-2*t100*t120*t49*t9 4249 1 9-1.219864d-2*t120*t49*t94*t97*t98-6.09932d-3*t102*t49* 4250 2 t96*t98+2.0d+0*t49*t94*t96*t97-6.09932d-3*t101*t49*t94* 4251 3 t96-1.219864d-2*t120*t49*t93*t95+2.0d+0*t102*t49*t92 4252 t201 = t105**2 4253 t202 = 1/rhoa**2 4254 t203 = 1/t51**4 4255 t204 = 1/rhoa**4.666666666666667d+0 4256 t205 = 8.88888888888889d+0*t104*taua+9.777777777777779d+0* 4257 1 gammaaa*t204 4258 t206 = 1/rhoa**7.333333333333333d+0 4259 t207 = t113**2 4260 t208 = 1/t31**5 4261 t209 = 1/rhoa**2.3333333333333334d+0 4262 t210 = 1/rhoa**2.1666666666666665d+0 4263 t211 = t116**2 4264 t212 = 1.0d+0*t115*t117*t38*(2.673190323653546d-1*t47+2.16 4265 1 22951122684114d+0*t210+1.7087761055320938d+0*t209+1.233 4266 2 5503316757068d+0*t208)+1.1102230246251565d-16*t109*t114 4267 3 *t42*(2.1077825841639536d-1*t47+1.1632736958443765d+0*t 4268 4 210+9.89141964955861d-1*t209+6.003214762495226d-1*t208) 4269 5 +1.7854583920998188d-15*t207*t42/(t39**4*t40**2)-2.2204 4270 6 46049250313d-16*t109*t207*t42/t39**3-4.0675215258019015 4271 7 d-19*t209*t41+3.216395899738507d+1*t211*t38/(t35**4*t36 4272 8 **2)-2.0d+0*t115*t211*t38/t35**3-1.7613865241785684d-3* 4273 9 t209*t37-8.497974591333913d-2*t111*t115*t116*t117-9.812 4274 : 069668265515d-18*t109*t111*t113*t114 4275 t213 = 1/t91**4 4276 t214 = 2.0d+0*t126*t127*t128*t61*t70 4277 t215 = -1.1696447245269295d+0*t130*t131*t132*t79*t80 4278 t216 = 3.847322101863072d+0*t134*t135*t136*t63*t64*t68*t85 4279 t217 = 5.495546528376875d-3*t124*t70*t77 4280 t218 = -9.087592854964233d-4*t124*t80*t83 4281 t219 = 5.082465978296986d-3*t159*t63*t68*t88 4282 t220 = 4.7846374908957684d-1*t148*t63*t68*t85*t88 4283 t221 = t126**2 4284 t222 = 1.6081979498692536d+1*t221*t61*t70/(t75**4*t76**2) 4285 t223 = -2.0d+0*t128*t221*t61*t70/t75**3 4286 t224 = -8.837926660346784d-2*t124*t126*t127*t128*t70 4287 t225 = 1/t59**2.6666666666666666d+0 4288 t226 = 1/t72**5 4289 t227 = 1/t59**2.3333333333333334d+0 4290 t228 = 1/t59**2.1666666666666665d+0 4291 t229 = 1.0d+0*t127*t128*(1.1632736958443765d+0*t228+9.8914 4292 1 1964955861d-1*t227+6.003214762495226d-1*t226+2.10778258 4293 2 41639536d-1*t225)*t61*t70 4294 t230 = t130**2 4295 t231 = -1.73158960813529d+1*t230*t79*t80/(t81**4*t82**2) 4296 t232 = 1.1696447245269295d+0*t132*t230*t79*t80/t81**3 4297 t233 = 2.690728393099896d-2*t124*t130*t131*t132*t80 4298 t234 = -5.848223622634647d-1*t131*t132*(1.5861639701225969 4299 1 d+0*t228+9.98929717145607d-1*t227+3.2257293534574827d-1 4300 2 *t226+2.1239028834748191d-1*t225)*t79*t80 4301 t235 = t134**2 4302 t236 = 6.187255516702861d+1*t235*t63*t64*t68*t85/(t86**4*t 4303 1 87**2) 4304 t237 = -3.847322101863072d+0*t136*t235*t63*t64*t68*t85/t86 4305 1 **3 4306 t238 = -1.6347222733154887d-1*t134*t135*t136*t159*t63*t68 4307 t239 = 1.923661050931536d+0*t135*t136*(2.1622951122684114d 4308 1 +0*t228+1.7087761055320938d+0*t227+1.2335503316757068d+ 4309 2 0*t226+2.673190323653546d-1*t225)*t63*t64*t68*t85 4310 t240 = -1.538928840745229d+1*t134*t135*t136*t148*t63*t68*t 4311 1 85 4312 t241 = 1/t66**6.666666666666666d-1 4313 t242 = 1/t59**3 4314 t243 = -2*t242*t62 4315 t244 = 2*t138 4316 t245 = 1/t67**6.666666666666666d-1 4317 t246 = 2*t242*t62 4318 t247 = -2*t138 4319 t248 = 1.3333333333333333d+0*t145*(t247+t246)+4.4444444444 4320 1 44444d-1*t144**2*t245+1.3333333333333333d+0*t142*(t244+ 4321 2 t243)+4.444444444444444d-1*t141**2*t241 4322 t249 = -1.923661050931536d+0*t248*t63*t64 4323 t250 = 1.5389288407452287d+1*t146*t148*t63 4324 t251 = -1.5389288407452287d+1*t146*t150*t64 4325 t252 = 1/t59**6 4326 t253 = -3.8473221018630716d+1*t252*t63*t68 4327 t254 = 6.155715362980915d+1*t148*t150*t68 4328 t255 = t62**2 4329 t256 = -2.3083932611178434d+1*t255*t64*t68 4330 t257 = -3.663697685584583d-3*t227*t70*t77 4331 t258 = 6.058395236642822d-4*t227*t80*t83 4332 t259 = -2.3718174565385935d-2*t63*t68*t88/t59**6.333333333 4333 1 333333d+0 4334 t260 = -1.1961593727239421d+0*t252*t63*t68*t85*t88 4335 t261 = -7.176956236343652d-1*t255*t64*t68*t85*t88 4336 t262 = 2.6666666666666666d+0*t145*t242*t62-2.6666666666666 4337 1 666d+0*t142*t242*t62+4.444444444444444d-1*t144*t181*t24 4338 2 5+4.444444444444444d-1*t141*t180*t241 4339 t263 = -1.923661050931536d+0*t262*t63*t64 4340 t264 = 7.694644203726144d+0*t148*t182*t63 4341 t265 = -7.694644203726144d+0*t150*t182*t64 4342 t266 = 7.694644203726144d+0*t146*t148*t63 4343 t267 = 7.694644203726144d+0*t146*t150*t64 4344 t268 = 2.3083932611178434d+1*t255*t64*t68 4345 t269 = t168**2 4346 t270 = 1/t17**5 4347 t271 = 1/rhob**2.3333333333333334d+0 4348 t272 = 1/rhob**2.1666666666666665d+0 4349 t273 = t171**2 4350 t274 = 1.1102230246251565d-16*t164*t169*(1.163273695844376 4351 1 5d+0*t272+9.89141964955861d-1*t271+6.003214762495226d-1 4352 2 *t270+2.1077825841639536d-1*t176)*t28+1.785458392099818 4353 3 8d-15*t269*t28/(t25**4*t26**2)-2.220446049250313d-16*t1 4354 4 64*t269*t28/t25**3+3.216395899738507d+1*t24*t273/(t21** 4355 5 4*t22**2)-2.0d+0*t170*t24*t273/t21**3+1.0d+0*t170*t172* 4356 6 t24*(2.1622951122684114d+0*t272+1.7087761055320938d+0*t 4357 7 271+1.2335503316757068d+0*t270+2.673190323653546d-1*t17 4358 8 6)-4.0675215258019015d-19*t27*t271-1.7613865241785684d- 4359 9 3*t23*t271-8.497974591333913d-2*t166*t170*t171*t172-9.8 4360 : 12069668265515d-18*t164*t166*t168*t169 4361 t275 = 1/t3**4 4362 t276 = 1/rhob**7 4363 t277 = 1/rhob**5.333333333333333d+0 4364 t278 = 1/rhob**3.6666666666666664d+0 4365 t279 = 1.3333333333333333d+0*t142*(t247+t243)+1.3333333333 4366 1 333333d+0*t145*(t246+t244)+4.444444444444444d-1*t181**2 4367 2 *t245+4.444444444444444d-1*t180**2*t241 4368 t280 = -1.923661050931536d+0*t279*t63*t64 4369 t281 = 1.5389288407452287d+1*t148*t182*t63 4370 t282 = 1.5389288407452287d+1*t150*t182*t64 4371 t283 = -6.155715362980915d+1*t148*t150*t68 4372 t284 = 1.25d-1*t43*t58+1.25d-1*gammaaa*t193*t43 4373 t285 = 1/rhoa**3.3333333333333337d+0 4374 t286 = 1/rhoa**6 4375 fnc(iq) = (1.0d+0*t103*t90*t92+1.0d+0*rhoa*t43*t46*t52*t58 4376 1 +5.0d-1*rhob*t15*t29*t4)*wght+fnc(iq) 4377 Amat(iq,D1_RA) = (-3.04966d-3*t103*t105*t90*t96+t163*t92-5 4378 1 .15088d-3*rhoa*t105*t43*t46*t55*t58+1.25d-1*gammaaa*t43 4379 2 *t44*t45*t52*t58+t119*t52)*wght+Amat(iq,D1_RA) 4380 Amat(iq,D1_RB) = (3.04966d-52*t103*t176*t90*t96+t191*t92+2 4381 1 .57544d-52*t1*t15*t29*t7+t178*t4)*wght+Amat(iq,D1_RB) 4382 Cmat(iq,D1_GAA) = (-3.04966d-3*t103*t47*t90*t96+1.0d+0*t19 4383 1 4*t90*t92-5.15088d-3*t43*t46*t49*t55*t58-1.25d-1*t43*t4 4384 2 5*t52*t58+1.0d+0*rhoa*t193*t43*t46*t52)*wght+Cmat(iq,D1 4385 3 _GAA) 4386 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 4387 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 4388 Mmat(iq,D1_TA) = (-6.09932d-3*t103*t49*t90*t96+1.0d+0*t200 4389 1 *t90*t92-1.030176d-2*t30*t43*t46*t55*t58+1.25d-1*gammaa 4390 2 a*t199*t43*t52*t58+1.0d+0*rhoa*t197*t43*t46*t52)*wght+M 4391 3 mat(iq,D1_TA) 4392 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 4393 Amat2(iq,D2_RA_RA) = (t92*(1.0d+0*t90*(1.7777777777777778d 4394 1 +1*t104*t96*t98*t99*taua+8.132426666666668d-2*t105*t120 4395 2 *t47*t98*t99*taua+8.88888888888889d+0*t104*t94*t96*t97* 4396 3 taua+1.7777777777777778d+1*gammaaa*t107*t96*t97*taua+4. 4397 4 066213333333334d-2*t105*t120*t47*t94*t97*taua+2.0331066 4398 5 66666667d-2*t102*t105*t47*t96*taua+8.88888888888889d+0* 4399 6 t102*t104*t92*taua+2.2222222222222224d+1*t198*t54*t96*t 4400 7 99+5.580255669360001d-5*t100*t201*t213*t99-6.09932d-3*t 4401 8 100*t120*t205*t99+9.777777777777779d+0*gammaaa*t204*t96 4402 9 *t97*t98+5.580255669360001d-5*t201*t213*t94*t97*t98-6.0 4403 : 9932d-3*t120*t205*t94*t97*t98+3.2529706666666663d-2*gam 4404 ; maaa*t104*t105*t120*t97*t98-3.04966d-3*t102*t205*t96*t9 4405 < 8+1.86008522312d-5*t102*t120*t201*t98+1.955555555555555 4406 = 7d+1*gammaaa*t204*t93*t94*t96-3.04966d-3*t101*t205*t94* 4407 > t96+1.4222222222222222d+1*t206*t53*t93*t96+1.6264853333 4408 ? 333332d-2*gammaaa*t101*t104*t105*t96+5.580255669360001d 4409 @ -5*t201*t213*t93*t95-6.09932d-3*t120*t205*t93*t95+6.505 4410 1 941333333333d-2*gammaaa*t104*t105*t120*t93*t94+1.860085 4411 2 22312d-5*t101*t120*t201*t94+9.777777777777779d+0*gammaa 4412 3 a*t101*t204*t92)+1.0d+0*t103*(t59*(1.9138549963583074d+ 4413 4 0*t148*t150*t68*t85*t88-5.980796863619711d-2*t248*t63*t 4414 5 64*t85*t88-4.7846374908957684d-1*t146*t150*t64*t85*t88+ 4415 6 4.7846374908957684d-1*t146*t148*t63*t85*t88+2.032986391 4416 7 3187946d-2*t150*t159*t68*t88+5.082465978296986d-3*t146* 4417 8 t159*t63*t88+1.538928840745229d+1*t134*t135*t136*t150*t 4418 9 64*t68*t85+3.847322101863072d+0*t134*t135*t136*t146*t63 4419 : *t64*t85+1.9751631321680768d-2*(t256+t254+t253+t251+t25 4420 ; 0+t249+1.923661050931536d+0*t248)*t79*t83-9.08759285496 4421 < 4233d-4*t124*t155*t83-1.1696447245269295d+0*t130*t131*t 4422 = 132*t155*t79-6.21814d-2*(t256+t254+t253+t251+t250+t249) 4423 > *t61*t77+5.495546528376875d-3*t124*t152*t77+2.0d+0*t126 4424 ? *t127*t128*t152*t61+t261+t260+t259+t258+t257+t240+t239+ 4425 @ t238+t237+t236+t234+t233+t232+t231+t229+t224+t223+t222) 4426 1 -4.7846374908957684d-1*t150*t64*t68*t85*t88-1.196159372 4427 2 7239421d-1*t146*t63*t64*t85*t88+3.9503262643361536d-2*t 4428 3 155*t79*t83-1.243628d-1*t152*t61*t77-2.220446049250313d 4429 4 -16*t109*t113*t114*t42-6.101282288702853d-19*t111*t41-2 4430 5 .0d+0*t115*t116*t117*t38-2.642079786267853d-3*t111*t37+ 4431 6 t220+t219+t218+t217+t216+t215+t214-rhoa*t212)+2.0d+0*t1 4432 7 21*t162)+t52*(1.0d+0*rhoa*t43*t46*(1.7777777777777778d+ 4433 8 1*t104*t55*t56*t6*taua+1.373568d-1*t105*t106*t47*t56*t6 4434 9 *taua+3.4339200000000003d-2*t105*t12*t47*t55*taua+2.666 4435 : 6666666666666d+1*gammaaa*t107*t14*t55*taua+6.8678400000 4436 ; 00001d-2*gammaaa*t105*t106*t14*t54*taua+8.8888888888888 4437 < 9d+0*t104*t12*t52*taua-1.030176d-2*t106*t205*t57*t6+1.5 4438 = 91893886464d-4*t201*t203*t57*t6+2.2222222222222224d+1*t 4439 > 198*t54*t55*t6-5.15088d-3*t12*t205*t55*t56+9.7777777777 4440 ? 77779d+0*gammaaa*t14*t204*t55*t56-1.030176d-2*gammaaa*t 4441 @ 106*t14*t205*t47*t56+1.591893886464d-4*gammaaa*t14*t201 4442 1 *t203*t47*t56+5.30631295488d-5*t106*t12*t201*t56+5.4942 4443 2 72d-2*gammaaa*t104*t105*t106*t14*t56+3.377777777777778d 4444 3 +1*t11*t206*t53*t55-5.15088d-3*gammaaa*t13*t205*t47*t55 4445 4 +2.747136d-2*gammaaa*t104*t105*t13*t55-1.030176d-2*t106 4446 5 *t11*t205*t53*t54+1.591893886464d-4*t11*t201*t203*t53*t 4447 6 54+1.0988544d-1*t105*t106*t107*t11*t53+9.77777777777777 4448 7 9d+0*gammaaa*t13*t204*t52+5.30631295488d-5*gammaaa*t106 4449 8 *t13*t201*t47)+1.0d+0*rhoa*t212*t46*t58+2.0d+0*t118*t46 4450 9 *t58+1.25d-1*gammaaa*t118*t44*t45*t58+1.25d-1*gammaaa*t 4451 : 202*t43*t45*t58+2.0d+0*t108*t43*t46+2.0d+0*rhoa*t108*t1 4452 ; 18*t46+1.25d-1*gammaaa*t108*t43*t44*t45)+(-3.04966d-3*t 4453 < 103*t205*t90-3.04966d-3*t105*t121*t90-3.04966d-3*t105*t 4454 = 163-3.04966d-3*t103*t105*t162)*t96+1.86008522312d-5*t10 4455 > 3*t120*t201*t90+t55*(-5.15088d-3*rhoa*t205*t43*t46*t58- 4456 ? 5.15088d-3*t105*t43*t46*t58-5.15088d-3*rhoa*t105*t118*t 4457 @ 46*t58-5.15088d-3*rhoa*t105*t108*t43*t46-5.15088d-3*t10 4458 1 5*t119)+t44*t45*t52*(1.25d-1*gammaaa*t118*t58+1.25d-1*g 4459 2 ammaaa*t108*t43)-1.28772d-3*gammaaa*t105*t43*t44*t45*t5 4460 3 5*t58-1.25d-1*gammaaa*t202*t43*t45*t52*t58+5.3063129548 4461 4 8d-5*rhoa*t106*t201*t43*t46*t58)*wght+Amat2(iq,D2_RA_RA 4462 5 ) 4463 Amat2(iq,D2_RA_RB) = (t92*(1.0d+0*t90*(-4.066213333333334d 4464 1 -51*t120*t176*t47*t98*t99*taua+2.222222222222222d-49*t1 4465 2 76*t47*t96*t99*taua+2.222222222222222d-49*t176*t47*t96* 4466 3 t97*taua-2.033106666666667d-51*t120*t176*t47*t94*t97*ta 4467 4 ua-1.0165533333333335d-51*t102*t176*t47*t96*taua+4.0662 4468 5 133333333333d-52*t105*t120*t176*t98*t99-5.58025566936d- 4469 6 54*t100*t105*t176*t213*t99-5.58025566936d-54*t105*t176* 4470 7 t213*t94*t97*t98+4.0662133333333333d-52*t105*t120*t176* 4471 8 t97*t98-1.6264853333333332d-51*gammaaa*t104*t120*t176*t 4472 9 97*t98-1.86008522312d-54*t102*t105*t120*t176*t98+8.8888 4473 : 88888888888d-50*gammaaa*t104*t176*t96*t97+2.03310666666 4474 ; 66667d-52*t105*t120*t176*t94*t97+3.555555555555555d-49* 4475 < gammaaa*t104*t176*t93*t96+1.0165533333333333d-52*t102*t 4476 = 105*t176*t96+2.0331066666666667d-52*t101*t105*t176*t96- 4477 > 8.132426666666666d-52*gammaaa*t101*t104*t176*t96-5.5802 4478 ? 5566936d-54*t105*t176*t213*t93*t95+8.132426666666667d-5 4479 @ 2*t105*t120*t176*t93*t94-3.2529706666666663d-51*gammaaa 4480 1 *t104*t120*t176*t93*t94-1.86008522312d-54*t101*t105*t12 4481 2 0*t176*t94)+1.0d+0*t103*(t59*(7.176956236343652d-1*t255 4482 3 *t64*t68*t85*t88-5.980796863619711d-2*t262*t63*t64*t85* 4483 4 t88-2.3923187454478842d-1*t150*t182*t64*t85*t88+2.39231 4484 5 87454478842d-1*t146*t150*t64*t85*t88+2.3923187454478842 4485 6 d-1*t148*t182*t63*t85*t88+2.3923187454478842d-1*t146*t1 4486 7 48*t63*t85*t88+2.541232989148493d-3*t159*t182*t63*t88+2 4487 8 .541232989148493d-3*t146*t159*t63*t88+1.923661050931536 4488 9 d+0*t134*t135*t136*t182*t63*t64*t85+1.923661050931536d+ 4489 : 0*t134*t135*t136*t146*t63*t64*t85+1.9751631321680768d-2 4490 ; *(t268+t267+t266+t265+t264+t263+1.923661050931536d+0*t2 4491 < 62+t253)*t79*t83-4.5437964274821163d-4*t124*t187*t83-4. 4492 = 5437964274821163d-4*t124*t155*t83-5.848223622634647d-1* 4493 > t130*t131*t132*t187*t79-5.848223622634647d-1*t130*t131* 4494 ? t132*t155*t79-6.21814d-2*(t268+t267+t266+t265+t264+t263 4495 @ +t253)*t61*t77+2.747773264188437d-3*t124*t185*t77+2.747 4496 1 773264188437d-3*t124*t152*t77+1.0d+0*t126*t127*t128*t18 4497 2 5*t61+1.0d+0*t126*t127*t128*t152*t61+t260+t259+t258+t25 4498 3 7+t240+t239+t238+t237+t236+t234+t233+t232+t231+t229+t22 4499 4 4+t223+t222)+t220+t219+t218+t217+t216+t215+t214+t189+t1 4500 5 88+t186+t158+t156+t153)+1.0d+0*t121*t190+1.0d+0*t162*t1 4501 6 79)+(-3.04966d-3*t105*t179*t90-3.04966d-3*t103*t105*t19 4502 7 0)*t96+3.04966d-52*t163*t176*t96-1.86008522312d-54*t103 4503 8 *t105*t120*t176*t90)*wght+Amat2(iq,D2_RA_RB) 4504 Amat2(iq,D2_RB_RB) = (t92*(1.0d+0*t90*(1.7777777777777776d 4505 1 -49*t278*t96*t98*t99-8.132426666666667d-101*t120*t277*t 4506 2 98*t99+2.222222222222222d-99*t277*t96*t99-1.62648533333 4507 3 33332d-51*t100*t120*t278*t99+5.580255669359999d-103*t10 4508 4 0*t213*t277*t99+1.7777777777777776d-49*t278*t96*t97*t98 4509 5 -1.6264853333333332d-51*t120*t278*t94*t97*t98+5.5802556 4510 6 69359999d-103*t213*t277*t94*t97*t98-8.132426666666667d- 4511 7 101*t120*t277*t97*t98-8.132426666666666d-52*t102*t278*t 4512 8 96*t98+1.86008522312d-103*t102*t120*t277*t98+8.88888888 4513 9 8888888d-50*t278*t94*t96*t97+4.444444444444444d-99*t277 4514 : *t96*t97-4.0662133333333333d-101*t120*t277*t94*t97+3.55 4515 ; 5555555555555d-49*t278*t93*t94*t96-8.132426666666666d-5 4516 < 2*t101*t278*t94*t96+8.888888888888888d-99*t277*t93*t96- 4517 = 2.0331066666666667d-101*t102*t277*t96-4.066213333333333 4518 > 3d-101*t101*t277*t96-1.6264853333333332d-51*t120*t278*t 4519 ? 93*t95+5.580255669359999d-103*t213*t277*t93*t95-1.62648 4520 @ 53333333334d-100*t120*t277*t93*t94+1.86008522312d-103*t 4521 1 101*t120*t277*t94+8.888888888888888d-50*t102*t278*t92+1 4522 2 .7777777777777776d-49*t101*t278*t92)+1.0d+0*t103*(t59*( 4523 3 -1.9138549963583074d+0*t148*t150*t68*t85*t88-5.98079686 4524 4 3619711d-2*t279*t63*t64*t85*t88+4.7846374908957684d-1*t 4525 5 150*t182*t64*t85*t88+4.7846374908957684d-1*t148*t182*t6 4526 6 3*t85*t88-2.0329863913187946d-2*t150*t159*t68*t88+5.082 4527 7 465978296986d-3*t159*t182*t63*t88-1.538928840745229d+1* 4528 8 t134*t135*t136*t150*t64*t68*t85+3.847322101863072d+0*t1 4529 9 34*t135*t136*t182*t63*t64*t85+1.9751631321680768d-2*(t2 4530 : 83+t282+t281+t280+1.923661050931536d+0*t279+t256+t253)* 4531 ; t79*t83-9.087592854964233d-4*t124*t187*t83-1.1696447245 4532 < 269295d+0*t130*t131*t132*t187*t79-6.21814d-2*(t283+t282 4533 = +t281+t280+t256+t253)*t61*t77+5.495546528376875d-3*t124 4534 > *t185*t77+2.0d+0*t126*t127*t128*t185*t61+t261+t260+t259 4535 ? +t258+t257+t240+t239+t238+t237+t236+t234+t233+t232+t231 4536 @ +t229+t224+t223+t222)+4.7846374908957684d-1*t150*t64*t6 4537 1 8*t85*t88-1.1961593727239421d-1*t182*t63*t64*t85*t88+3. 4538 2 9503262643361536d-2*t187*t79*t83-1.243628d-1*t185*t61*t 4539 3 77-2.220446049250313d-16*t164*t168*t169*t28-rhob*t274-6 4540 4 .101282288702853d-19*t166*t27-2.0d+0*t170*t171*t172*t24 4541 5 -2.642079786267853d-3*t166*t23+t220+t219+t218+t217+t216 4542 6 +t215+t214)+2.0d+0*t179*t190)+t176*(3.04966d-52*t179*t9 4543 7 0+3.04966d-52*t191+3.04966d-52*t103*t190)*t96-8.1324266 4544 8 66666666d-52*t103*t278*t90*t96+1.86008522312d-103*t103* 4545 9 t120*t277*t90+t4*(5.0d-1*rhob*t29*(1.7777777777777776d- 4546 : 49*t278*t6*t7*t9+1.7777777777777776d-49*t14*t278*t7*t9- 4547 ; 1.373568d-51*t12*t278*t7*t9-1.373568d-100*t174*t277*t6* 4548 < t9-2.4724223999999997d-100*t14*t174*t277*t9+5.306312954 4549 = 879999d-103*t12*t174*t277*t9+6.367575545855999d-152*t14 4550 > *t275*t276*t9+2.222222222222222d-99*t277*t6*t7+8.0d-99* 4551 ? t14*t277*t7-1.2362111999999999d-100*t13*t277*t7-3.43392 4552 @ d-101*t12*t277*t7+2.3111111111111113d-98*t11*t277*t7-2. 4553 1 747136d-51*t10*t174*t278*t6+1.5918938864639998d-102*t10 4554 2 *t275*t277*t6+1.7777777777777776d-49*t13*t278*t4+8.8888 4555 3 88888888888d-50*t12*t278*t4-2.7471359999999995d-150*t14 4556 4 *t174*t276+2.1225251819519997d-152*t13*t174*t276-1.5383 4557 5 9616d-149*t11*t174*t276+2.5470302183424d-201*t11*t275/r 4558 6 hob**8.666666666666666d+0)+1.0d+0*t177*t29+5.0d-1*rhob* 4559 7 t15*t274+1.0d+0*rhob*t173*t177+1.0d+0*t15*t173)+t1*(2.5 4560 8 7544d-52*t177*t29+2.57544d-52*t15*t173)*t7+t176*(5.1508 4561 9 8d-52*t178-4.2923999999999995d-52*t15*t29)*t7+2.6531564 4562 : 774399996d-103*t15*t174*t175*t29)*wght+Amat2(iq,D2_RB_R 4563 ; B) 4564 Cmat2(iq,D2_RA_GAA) = (t92*(1.0d+0*t90*(4.066213333333334d 4565 1 -2*t120*t54*t98*t99*taua-3.3333333333333337d+0*t54*t96* 4566 2 t97*taua+2.033106666666667d-2*t120*t54*t94*t97*taua+1.0 4567 3 165533333333335d-2*t102*t54*t96*taua+5.580255669360001d 4568 4 -5*t100*t105*t213*t47*t99+1.6264853333333332d-2*t100*t1 4569 5 04*t120*t99-2.6666666666666666d+0*t104*t96*t97*t98+5.58 4570 6 0255669360001d-5*t105*t213*t47*t94*t97*t98+1.6264853333 4571 7 333332d-2*t104*t120*t94*t97*t98-6.09932d-3*t105*t120*t4 4572 8 7*t97*t98+1.6264853333333332d-2*gammaaa*t107*t120*t97*t 4573 9 98+8.132426666666667d-3*t102*t104*t96*t98+1.86008522312 4574 : d-5*t102*t105*t120*t47*t98-5.333333333333333d+0*t104*t9 4575 ; 3*t94*t96+8.132426666666667d-3*t101*t104*t94*t96-5.3333 4576 < 33333333333d+0*gammaaa*t107*t93*t96-3.04966d-3*t101*t10 4577 = 5*t47*t96+8.132426666666667d-3*gammaaa*t101*t107*t96+5. 4578 > 580255669360001d-5*t105*t213*t47*t93*t95+1.626485333333 4579 ? 3332d-2*t104*t120*t93*t95-1.219864d-2*t105*t120*t47*t93 4580 @ *t94+3.2529706666666663d-2*gammaaa*t107*t120*t93*t94+1. 4581 1 86008522312d-5*t101*t105*t120*t47*t94-2.666666666666666 4582 2 6d+0*t101*t104*t92)+1.0d+0*t162*t194)+t52*(1.0d+0*rhoa* 4583 3 t43*t46*(6.867840000000001d-2*t106*t54*t56*t6*taua-3.33 4584 4 33333333333337d+0*t14*t54*t55*taua+1.7169600000000002d- 4585 5 2*t12*t54*t55*taua+3.4339200000000003d-2*gammaaa*t106*t 4586 6 14*t192*taua+1.591893886464d-4*t105*t203*t47*t57*t6+2.7 4587 7 47136d-2*t104*t106*t57*t6-2.6666666666666666d+0*t104*t1 4588 8 4*t55*t56+1.373568d-2*t104*t12*t55*t56+1.591893886464d- 4589 9 4*gammaaa*t105*t14*t203*t54*t56-1.030176d-2*t105*t106*t 4590 : 14*t47*t56+5.30631295488d-5*t105*t106*t12*t47*t56+5.494 4591 ; 272d-2*gammaaa*t106*t107*t14*t56-5.15088d-3*t105*t13*t4 4592 < 7*t55+2.747136d-2*gammaaa*t107*t13*t55-1.06666666666666 4593 = 66d+1*gammaaa*t107*t11*t55+5.30631295488d-5*gammaaa*t10 4594 > 5*t106*t13*t54-2.060352d-2*gammaaa*t105*t106*t11*t54+1. 4595 ? 591893886464d-4*t105*t11*t192*t203*t53+8.241408d-2*t106 4596 @ *t11*t53/rhoa**9-2.6666666666666666d+0*t104*t13*t52)-1. 4597 1 25d-1*t43*t44*t45*t58-1.25d-1*t118*t45*t58+1.0d+0*t193* 4598 2 t43*t46+1.0d+0*rhoa*t118*t193*t46-1.25d-1*t108*t43*t45) 4599 3 -3.04966d-3*t105*t194*t90*t96+8.132426666666667d-3*t103 4600 4 *t104*t90*t96-3.04966d-3*t163*t47*t96+1.86008522312d-5* 4601 5 t103*t105*t120*t47*t90+t47*t55*(1.373568d-2*t43*t46*t58 4602 6 -5.15088d-3*t119)+6.4386d-4*t105*t43*t45*t55*t58-6.4386 4603 7 d-4*gammaaa*t104*t43*t45*t55*t58+5.30631295488d-5*t105* 4604 8 t106*t43*t46*t49*t58-5.15088d-3*rhoa*t105*t193*t43*t46* 4605 9 t55+t284*t44*t45*t52)*wght+Cmat2(iq,D2_RA_GAA) 4606 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 4607 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 4608 Cmat2(iq,D2_RB_GAA) = (t92*(1.0d+0*t90*(4.0662133333333333 4609 1 d-52*t120*t176*t47*t98*t99-5.580255669360001d-54*t100*t 4610 2 176*t213*t47*t99-5.580255669360001d-54*t176*t213*t47*t9 4611 3 4*t97*t98+1.0165533333333333d-51*t120*t176*t47*t97*t98- 4612 4 1.86008522312d-54*t102*t120*t176*t47*t98-3.333333333333 4613 5 333d-50*t176*t47*t96*t97+2.0331066666666667d-52*t120*t1 4614 6 76*t47*t94*t97-1.3333333333333333d-49*t176*t47*t93*t96+ 4615 7 1.0165533333333333d-52*t102*t176*t47*t96+5.082766666666 4616 8 666d-52*t101*t176*t47*t96-5.580255669360001d-54*t176*t2 4617 9 13*t47*t93*t95+2.0331066666666667d-51*t120*t176*t47*t93 4618 : *t94-1.86008522312d-54*t101*t120*t176*t47*t94)+1.0d+0*t 4619 ; 190*t194)+3.04966d-52*t176*t194*t90*t96-3.04966d-3*t191 4620 < *t47*t96-1.86008522312d-54*t103*t120*t176*t47*t90)*wght 4621 = +Cmat2(iq,D2_RB_GAA) 4622 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 4623 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 4624 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t90*t92*(5.580255669360001d 4625 1 -5*t100*t213*t54*t99+5.580255669360001d-5*t213*t54*t94* 4626 2 t97*t98-1.219864d-2*t120*t54*t97*t98+1.86008522312d-5*t 4627 3 102*t120*t54*t98+2*t54*t93*t96-6.09932d-3*t101*t54*t96+ 4628 4 5.580255669360001d-5*t213*t54*t93*t95-2.439728d-2*t120* 4629 5 t54*t93*t94+1.86008522312d-5*t101*t120*t54*t94)-6.09932 4630 6 d-3*t194*t47*t90*t96+1.86008522312d-5*t103*t120*t54*t90 4631 7 +1.0d+0*rhoa*t43*t46*t52*(1.591893886464d-4*t203*t54*t5 4632 8 7*t6-2.060352d-2*t106*t14*t54*t56+5.30631295488d-5*t106 4633 9 *t12*t54*t56+1.591893886464d-4*gammaaa*t14*t192*t203*t5 4634 : 6-1.030176d-2*t13*t54*t55+2*t11*t54*t55+1.591893886464d 4635 ; -4*t11*t203*t53/rhoa**1.0666666666666666d+1+5.306312954 4636 < 88d-5*gammaaa*t106*t13*t192-4.120704d-2*gammaaa*t106*t1 4637 = 1*t192)+1.28772d-3*t43*t45*t47*t55*t58+5.30631295488d-5 4638 > *t106*t196*t43*t46*t58-1.030176d-2*t193*t43*t46*t49*t55 4639 ? -2.5d-1*t193*t43*t45*t52)*wght+Cmat2(iq,D2_GAA_GAA) 4640 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 4641 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 4642 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 4643 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 4644 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 4645 Mmat2(iq,D2_RA_TA) = (t92*(1.0d+0*t90*(8.132426666666668d- 4646 1 2*t120*t196*t98*t99*taua-1.3333333333333333d+1*t196*t96 4647 2 *t99*taua+4.066213333333334d-2*t120*t196*t94*t97*taua+2 4648 3 .033106666666667d-2*t102*t196*t96*taua-6.66666666666666 4649 4 7d+0*t47*t96*t98*t99-2.439728d-2*t105*t120*t49*t98*t99+ 4650 5 1.1160511338720001d-4*t100*t105*t213*t49*t99+2.03310666 4651 6 6666667d-2*t100*t120*t47*t99+1.1160511338720001d-4*t105 4652 7 *t213*t49*t94*t97*t98+2.033106666666667d-2*t120*t47*t94 4653 8 *t97*t98+3.2529706666666663d-2*gammaaa*t120*t54*t97*t98 4654 9 +1.0165533333333335d-2*t102*t47*t96*t98+3.72017044624d- 4655 : 5*t102*t105*t120*t49*t98-3.3333333333333337d+0*t47*t94* 4656 ; t96*t97-5.333333333333333d+0*gammaaa*t54*t96*t97-1.2198 4657 < 64d-2*t105*t120*t49*t94*t97+1.0165533333333335d-2*t101* 4658 = t47*t94*t96+1.6264853333333332d-2*gammaaa*t101*t54*t96- 4659 > 6.09932d-3*t102*t105*t49*t96+1.1160511338720001d-4*t105 4660 ? *t213*t49*t93*t95+2.033106666666667d-2*t120*t47*t93*t95 4661 @ +6.505941333333333d-2*gammaaa*t120*t54*t93*t94+3.720170 4662 1 44624d-5*t101*t105*t120*t49*t94-3.3333333333333337d+0*t 4663 2 102*t47*t92)+1.0d+0*t162*t200)+t52*(1.0d+0*rhoa*t43*t46 4664 3 *(1.373568d-1*t106*t196*t56*t6*taua-1.3333333333333333d 4665 4 +1*t196*t55*t6*taua+3.4339200000000003d-2*t12*t196*t55* 4666 5 taua+6.867840000000001d-2*gammaaa*t106*t14*t195*taua+3. 4667 6 183787772928d-4*t105*t203*t49*t57*t6+3.4339200000000003 4668 7 d-2*t106*t47*t57*t6-6.666666666666667d+0*t47*t55*t56*t6 4669 8 -4.120704d-2*t105*t106*t49*t56*t6+1.7169600000000002d-2 4670 9 *t12*t47*t55*t56+8.928192d-2*gammaaa*t106*t14*t54*t56+1 4671 : .061262590976d-4*t105*t106*t12*t49*t56+3.183787772928d- 4672 ; 4*gammaaa*t105*t14*t196*t203*t56-8.666666666666666d+0*g 4673 < ammaaa*t14*t54*t55+4.464096d-2*gammaaa*t13*t54*t55-1.03 4674 = 0176d-2*t105*t12*t49*t55+3.183787772928d-4*t105*t11*t19 4675 > 5*t203*t53+1.4422464000000002d-1*t106*t11*t192*t53-3.33 4676 ? 33333333333337d+0*t12*t47*t52-2.060352d-2*gammaaa*t105* 4677 @ t106*t14*t196+1.061262590976d-4*gammaaa*t105*t106*t13*t 4678 1 196)+1.25d-1*gammaaa*t199*t43*t44*t58+1.25d-1*gammaaa*t 4679 2 118*t199*t58+1.0d+0*t197*t43*t46+1.0d+0*rhoa*t118*t197* 4680 3 t46+1.25d-1*gammaaa*t108*t199*t43)+1.0165533333333335d- 4681 4 2*t103*t47*t90*t96-3.04966d-3*t105*t200*t90*t96-6.09932 4682 5 d-3*t163*t49*t96+3.72017044624d-5*t103*t105*t120*t49*t9 4683 6 0+t49*t55*(1.7169600000000002d-2*t43*t46*t58-1.030176d- 4684 7 2*t119)-1.28772d-3*gammaaa*t43*t45*t47*t55*t58-6.4386d- 4685 8 4*gammaaa*t105*t199*t43*t55*t58-1.25d-1*gammaaa*t199*t4 4686 9 3*t44*t52*t58+1.061262590976d-4*t105*t106*t30*t43*t46*t 4687 : 58-5.15088d-3*rhoa*t105*t197*t43*t46*t55+1.25d-1*gammaa 4688 ; a*t197*t43*t44*t45*t52)*wght+Mmat2(iq,D2_RA_TA) 4689 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 4690 Mmat2(iq,D2_RB_TA) = (t92*(1.0d+0*t90*(3.252970666666667d- 4691 1 51*t120*t176*t49*t98*t99-1.3333333333333333d-49*t176*t4 4692 2 9*t96*t99-1.1160511338720003d-53*t100*t176*t213*t49*t99 4693 3 -1.1160511338720003d-53*t176*t213*t49*t94*t97*t98+8.132 4694 4 426666666667d-52*t120*t176*t49*t97*t98-3.72017044624d-5 4695 5 4*t102*t120*t176*t49*t98-1.3333333333333333d-49*t176*t4 4696 6 9*t96*t97+1.6264853333333334d-51*t120*t176*t49*t94*t97+ 4697 7 8.132426666666667d-52*t102*t176*t49*t96+4.0662133333333 4698 8 333d-52*t101*t176*t49*t96-1.1160511338720003d-53*t176*t 4699 9 213*t49*t93*t95+1.6264853333333334d-51*t120*t176*t49*t9 4700 : 3*t94-3.72017044624d-54*t101*t120*t176*t49*t94)+1.0d+0* 4701 ; t190*t200)+3.04966d-52*t176*t200*t90*t96-6.09932d-3*t19 4702 < 1*t49*t96-3.72017044624d-54*t103*t120*t176*t49*t90)*wgh 4703 = t+Mmat2(iq,D2_RB_TA) 4704 Mmat2(iq,D2_RB_TB) = Mmat2(iq,D2_RB_TB) 4705 Mmat2(iq,D2_GAA_TA) = (1.0d+0*t90*t92*(-2.439728d-2*t120*t 4706 1 196*t98*t99+1.1160511338720001d-4*t100*t196*t213*t99+1. 4707 2 1160511338720001d-4*t196*t213*t94*t97*t98-1.219864d-2*t 4708 3 120*t196*t97*t98+3.72017044624d-5*t102*t120*t196*t98+2. 4709 4 0d+0*t196*t96*t97-1.219864d-2*t120*t196*t94*t97-6.09932 4710 5 d-3*t102*t196*t96-6.09932d-3*t101*t196*t96+1.1160511338 4711 6 720001d-4*t196*t213*t93*t95-2.439728d-2*t120*t196*t93*t 4712 7 94+3.72017044624d-5*t101*t120*t196*t94)-6.09932d-3*t194 4713 8 *t49*t90*t96-3.04966d-3*t200*t47*t90*t96+3.72017044624d 4714 9 -5*t103*t120*t196*t90+1.0d+0*rhoa*t43*t46*t52*(3.183787 4715 : 772928d-4*t196*t203*t57*t6-4.120704d-2*t106*t196*t56*t6 4716 ; +3.183787772928d-4*gammaaa*t14*t195*t203*t56-2.060352d- 4717 < 2*t106*t14*t196*t56+1.061262590976d-4*t106*t12*t196*t56 4718 = +2.0d+0*t14*t196*t55-1.030176d-2*t13*t196*t55-1.030176d 4719 > -2*t12*t196*t55+3.183787772928d-4*t11*t203*t53/rhoa**9. 4720 ? 666666666666666d+0-2.060352d-2*gammaaa*t106*t14*t195+1. 4721 @ 061262590976d-4*gammaaa*t106*t13*t195-4.120704d-2*gamma 4722 1 aa*t106*t11*t195)+1.28772d-3*t43*t45*t49*t55*t58-6.4386 4723 2 d-4*gammaaa*t199*t43*t47*t55*t58+1.061262590976d-4*t106 4724 3 *t285*t43*t46*t58-5.15088d-3*t197*t43*t46*t49*t55-1.030 4725 4 176d-2*t193*t30*t43*t46*t55-1.25d-1*t197*t43*t45*t52+t1 4726 5 99*t284*t52)*wght+Mmat2(iq,D2_GAA_TA) 4727 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 4728 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 4729 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 4730 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 4731 Mmat2(iq,D2_GBB_TB) = Mmat2(iq,D2_GBB_TB) 4732 Mmat2(iq,D2_TA_TA) = (-2.5d-1*gammaaa*t43*t52*t58/taua**3+ 4733 1 1.0d+0*t90*t92*(-9.758912d-2*t120*t285*t98*t99+8.0d+0*t 4734 2 285*t96*t99+2.2321022677440003d-4*t100*t213*t285*t99+2. 4735 3 2321022677440003d-4*t213*t285*t94*t97*t98+7.44034089248 4736 4 d-5*t102*t120*t285*t98-4.879456d-2*t120*t285*t94*t97-2. 4737 5 439728d-2*t102*t285*t96+2.2321022677440003d-4*t213*t285 4738 6 *t93*t95+7.44034089248d-5*t101*t120*t285*t94)-1.219864d 4739 7 -2*t200*t49*t90*t96+7.44034089248d-5*t103*t120*t285*t90 4740 8 +1.0d+0*rhoa*t43*t46*t52*(6.367575545856d-4*t203*t285*t 4741 9 57*t6-1.6482816d-1*t106*t285*t56*t6+8.0d+0*t285*t55*t6+ 4742 : 6.367575545856d-4*gammaaa*t14*t203*t286*t56+2.122525181 4743 ; 952d-4*t106*t12*t285*t56-4.120704d-2*t12*t285*t55+6.367 4744 < 575545856d-4*t11*t203*t53/rhoa**8.666666666666666d+0-8. 4745 = 241408d-2*gammaaa*t106*t14*t286+2.122525181952d-4*gamma 4746 > aa*t106*t13*t286)-2.57544d-3*gammaaa*t199*t43*t49*t55*t 4747 ? 58+2.122525181952d-4*t106*t209*t43*t46*t58-2.060352d-2* 4748 @ t197*t30*t43*t46*t55+2.5d-1*gammaaa*t197*t199*t43*t52)* 4749 1 wght+Mmat2(iq,D2_TA_TA) 4750 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 4751 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 4752 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 4753 t1 = 1/rhoa**1.6666666666666669d+0 4754 t2 = 6.0d-50*t1 4755 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 4756 t4 = 1/t3 4757 t5 = param(7) 4758 t6 = param(12) 4759 t7 = 1/t3**2 4760 t8 = 2.0d-50*t1 4761 t9 = t8-9.11559972d+0 4762 t10 = t9**2 4763 t11 = param(10) 4764 t12 = param(9) 4765 t13 = param(8) 4766 t14 = param(11) 4767 t15 = 4.0d-50*t1*t14*t7*t9+t12*t4*t9+t10*t6*t7+1.6d-99*t11 4768 1 *t7/rhoa**3.3333333333333337d+0+t5+4.0d-50*t1*t13*t4 4769 t16 = 1/rhoa**6.666666666666666d-1 4770 t17 = rhoa**5.0d-1 4771 t18 = 1/t17 4772 t19 = 1/rhoa**3.333333333333333d-1 4773 t20 = 1/rhoa**1.6666666666666666d-1 4774 t21 = 1.1120374863094686d+1*t20+3.8447462374472113d+0*t19+ 4775 1 1.644733775567609d+0*t18+2.4058712912881916d-1*t16 4776 t22 = 3.216395899738507d+1/t21+1.0d+0 4777 t23 = log(t22) 4778 t24 = 1.274696188700087d-1*t19+1.0d+0 4779 t25 = 5.982550435771079d+0*t20+2.2255694211506874d+0*t19+8 4780 1 .004286349993635d-1*t18+1.8970043257475583d-1*t16 4781 t26 = 1.6081979498692536d+1/t25+1.0d+0 4782 t27 = log(t26) 4783 t28 = 1.3256889990520176d-1*t19+1.0d+0 4784 t29 = -6.903522198342671d-18*t27*t28-3.1090699999999993d-2 4785 1 *t23*t24 4786 t30 = 1/rhob**6.666666666666666d-1 4787 t31 = rhob**5.0d-1 4788 t32 = 1/t31 4789 t33 = 1/rhob**3.333333333333333d-1 4790 t34 = 1/rhob**1.6666666666666666d-1 4791 t35 = 1.1120374863094686d+1*t34+3.8447462374472113d+0*t33+ 4792 1 1.644733775567609d+0*t32+2.4058712912881916d-1*t30 4793 t36 = 3.216395899738507d+1/t35+1.0d+0 4794 t37 = log(t36) 4795 t38 = 1.274696188700087d-1*t33+1.0d+0 4796 t39 = 5.982550435771079d+0*t34+2.2255694211506874d+0*t33+8 4797 1 .004286349993635d-1*t32+1.8970043257475583d-1*t30 4798 t40 = 1.6081979498692536d+1/t39+1.0d+0 4799 t41 = log(t40) 4800 t42 = 1.3256889990520176d-1*t33+1.0d+0 4801 t43 = -6.903522198342671d-18*t41*t42-3.1090699999999993d-2 4802 1 *t37*t38 4803 t44 = 1/rhob 4804 t45 = 1/taub 4805 t46 = 1.0d+0-1.25d-1*gammabb*t44*t45 4806 t47 = 1/rhob**2.6666666666666666d+0 4807 t48 = gammabb*t47 4808 t49 = 1/rhob**1.6666666666666669d+0 4809 t50 = 2.0d+0*t49*taub 4810 t51 = 5.15088d-3*(t50+t48-9.11559972d+0)+1.0d+0 4811 t52 = 1/t51 4812 t53 = gammabb**2 4813 t54 = 1/rhob**5.333333333333333d+0 4814 t55 = 1/t51**2 4815 t56 = t50-9.11559972d+0 4816 t57 = t56**2 4817 t58 = t55*t57*t6+gammabb*t14*t47*t55*t56+t12*t52*t56+t11*t 4818 1 53*t54*t55+gammabb*t13*t47*t52+t5 4819 t59 = rhob+rhoa 4820 t60 = 1/t59**3.333333333333333d-1 4821 t61 = 1.3256889990520176d-1*t60+1.0d+0 4822 t62 = rhoa-rhob 4823 t63 = t62**4 4824 t64 = 1/t59**4 4825 t65 = 1/t59 4826 t66 = 1.0d+0-t62*t65 4827 t67 = t62*t65+1.0d+0 4828 t68 = t67**1.3333333333333333d+0+t66**1.3333333333333333d+ 4829 1 0-2.0d+0 4830 t69 = -1.923661050931536d+0*t63*t64*t68 4831 t70 = t69+1.0d+0 4832 t71 = 1/t59**6.666666666666666d-1 4833 t72 = t59**5.0d-1 4834 t73 = 1/t72 4835 t74 = 1/t59**1.6666666666666666d-1 4836 t75 = 5.982550435771079d+0*t74+8.004286349993635d-1*t73+1. 4837 1 8970043257475583d-1*t71+2.2255694211506874d+0*t60 4838 t76 = 1.6081979498692536d+1/t75+1.0d+0 4839 t77 = log(t76) 4840 t78 = -6.21814d-2*t61*t70*t77 4841 t79 = 6.901399211255825d-2*t60+1.0d+0 4842 t80 = t69+1.923661050931536d+0*t68 4843 t81 = 8.157414703487641d+0*t74+4.3009724712766434d-1*t73+1 4844 1 .9115125951273373d-1*t71+2.247591863577616d+0*t60 4845 t82 = 2.9608813203268075d+1/t81+1.0d+0 4846 t83 = log(t82) 4847 t84 = 1.9751631321680768d-2*t79*t80*t83 4848 t85 = 1.274696188700087d-1*t60+1.0d+0 4849 t86 = 1.1120374863094686d+1*t74+1.644733775567609d+0*t73+2 4850 1 .4058712912881916d-1*t71+3.8447462374472113d+0*t60 4851 t87 = 3.216395899738507d+1/t86+1.0d+0 4852 t88 = log(t87) 4853 t89 = -5.980796863619711d-2*t63*t64*t68*t85*t88 4854 t90 = t59*(t89+t84+t78)-rhob*t43-rhoa*t29 4855 t91 = 3.04966d-3*(t50+t48+t2-1.823119944d+1)+1.0d+0 4856 t92 = 1/t91 4857 t93 = param(4) 4858 t94 = t48+4.0d-50*t1 4859 t95 = t94**2 4860 t96 = 1/t91**2 4861 t97 = param(5) 4862 t98 = t8+t50-1.823119944d+1 4863 t99 = param(6) 4864 t100 = t98**2 4865 t101 = param(2) 4866 t102 = param(3) 4867 t103 = t100*t96*t99+t94*t96*t97*t98+t102*t92*t98+t93*t95*t 4868 1 96+t101*t92*t94+param(1) 4869 t104 = 1/t26 4870 t105 = 1/t17**3 4871 t106 = 1/rhoa**1.3333333333333333d+0 4872 t107 = 1/rhoa**1.1666666666666667d+0 4873 t108 = -9.970917392951799d-1*t107-7.418564737168958d-1*t10 4874 1 6-4.002143174996817d-1*t105-1.264669550498372d-1*t1 4875 t109 = 1/t25**2 4876 t110 = 1/t22 4877 t111 = -1.8533958105157808d+0*t107-1.2815820791490704d+0*t 4878 1 106-8.223668877838045d-1*t105-1.6039141941921276d-1*t1 4879 t112 = 1/t21**2 4880 t113 = 1.1102230246251565d-16*t104*t108*t109*t28+3.0506411 4881 1 443514264d-19*t106*t27+1.0d+0*t110*t111*t112*t24+1.3210 4882 2 398931339265d-3*t106*t23 4883 t114 = 1/t3**3 4884 t115 = 1/rhoa**4.333333333333333d+0 4885 t116 = 1/rhoa**2.6666666666666666d+0 4886 t117 = -6.666666666666666d-50*t116*t6*t7*t9-6.666666666666 4887 1 666d-50*t116*t14*t7*t9+5.15088d-52*t116*t12*t7*t9+4.120 4888 2 7039999999995d-101*t114*t115*t14*t9-1.3333333333333333d 4889 3 -99*t115*t14*t7+2.0603519999999997d-101*t115*t13*t7-5.3 4890 4 33333333333334d-99*t11*t115*t7+1.030176d-51*t10*t114*t1 4891 5 16*t6-6.666666666666666d-50*t116*t13*t4-3.3333333333333 4892 6 33d-50*t116*t12*t4+1.6482816d-150*t11*t114/rhoa**6 4893 t118 = 5.0d-1*t15*t29+5.0d-1*rhoa*t117*t29+5.0d-1*rhoa*t11 4894 1 3*t15 4895 t119 = 1/t91**3 4896 t120 = -6.666666666666666d-50*t116*t96*t98*t99+6.09932d-52 4897 1 *t100*t116*t119*t99-6.666666666666666d-50*t116*t96*t97* 4898 2 t98+6.09932d-52*t116*t119*t94*t97*t98+3.04966d-52*t102* 4899 3 t116*t96*t98-3.333333333333333d-50*t116*t94*t96*t97-1.3 4900 4 333333333333333d-49*t116*t93*t94*t96+3.04966d-52*t101*t 4901 5 116*t94*t96+6.09932d-52*t116*t119*t93*t95-3.33333333333 4902 6 3333d-50*t102*t116*t92-6.666666666666666d-50*t101*t116* 4903 7 t92 4904 t121 = 1/t59**1.6666666666666669d+0 4905 t122 = 1/t72**3 4906 t123 = 1/t59**1.3333333333333333d+0 4907 t124 = 1/t59**1.1666666666666667d+0 4908 t125 = -9.970917392951799d-1*t124-7.418564737168958d-1*t12 4909 1 3-4.002143174996817d-1*t122-1.264669550498372d-1*t121 4910 t126 = 1/t75**2 4911 t127 = 1/t76 4912 t128 = 1.0d+0*t125*t126*t127*t61*t70 4913 t129 = -1.3595691172479402d+0*t124-7.491972878592053d-1*t1 4914 1 23-2.1504862356383217d-1*t122-1.2743417300848914d-1*t12 4915 2 1 4916 t130 = 1/t81**2 4917 t131 = 1/t82 4918 t132 = -5.848223622634647d-1*t129*t130*t131*t79*t80 4919 t133 = -1.8533958105157808d+0*t124-1.2815820791490704d+0*t 4920 1 123-8.223668877838045d-1*t122-1.6039141941921276d-1*t12 4921 2 1 4922 t134 = 1/t86**2 4923 t135 = 1/t87 4924 t136 = 1.923661050931536d+0*t133*t134*t135*t63*t64*t68*t85 4925 t137 = 1/t59**2 4926 t138 = t137*t62 4927 t139 = -t65 4928 t140 = t139+t138 4929 t141 = t66**3.333333333333333d-1 4930 t142 = -t137*t62 4931 t143 = t65+t142 4932 t144 = t67**3.333333333333333d-1 4933 t145 = 1.3333333333333333d+0*t143*t144+1.3333333333333333d 4934 1 +0*t140*t141 4935 t146 = -1.923661050931536d+0*t145*t63*t64 4936 t147 = 1/t59**5 4937 t148 = 7.694644203726144d+0*t147*t63*t68 4938 t149 = t62**3 4939 t150 = -7.694644203726144d+0*t149*t64*t68 4940 t151 = t150+t148+t146 4941 t152 = -6.21814d-2*t151*t61*t77 4942 t153 = 2.747773264188437d-3*t123*t70*t77 4943 t154 = t150+t148+t146+1.923661050931536d+0*t145 4944 t155 = 1.9751631321680768d-2*t154*t79*t83 4945 t156 = -4.5437964274821163d-4*t123*t80*t83 4946 t157 = -5.980796863619711d-2*t145*t63*t64*t85*t88 4947 t158 = 1/t59**5.333333333333333d+0 4948 t159 = 2.541232989148493d-3*t158*t63*t68*t88 4949 t160 = 2.3923187454478842d-1*t147*t63*t68*t85*t88 4950 t161 = t89+t59*(-2.3923187454478842d-1*t149*t64*t68*t85*t8 4951 1 8+t160+t159+t157+t156+t155+t153+t152+t136+t132+t128)+t8 4952 2 4+t78+6.903522198342671d-18*t27*t28+3.1090699999999993d 4953 3 -2*t23*t24-rhoa*t113 4954 t162 = 1.0d+0*t120*t90+1.0d+0*t103*t161 4955 t163 = 1/rhob**3.6666666666666664d+0 4956 t164 = -3.3333333333333337d+0*t47*taub-2.6666666666666666d 4957 1 +0*gammabb*t163 4958 t165 = 1/t51**3 4959 t166 = 1/rhob**6.333333333333333d+0 4960 t167 = -6.666666666666667d+0*t47*t55*t56*t6*taub-3.3333333 4961 1 333333337d+0*gammabb*t14*t54*t55*taub-3.333333333333333 4962 2 7d+0*t12*t47*t52*taub-1.030176d-2*t164*t165*t57*t6-5.15 4963 3 088d-3*t12*t164*t55*t56-2.6666666666666666d+0*gammabb*t 4964 4 14*t163*t55*t56-1.030176d-2*gammabb*t14*t164*t165*t47*t 4965 5 56-5.333333333333333d+0*t11*t166*t53*t55-5.15088d-3*gam 4966 6 mabb*t13*t164*t47*t55-1.030176d-2*t11*t164*t165*t53*t54 4967 7 -2.6666666666666666d+0*gammabb*t13*t163*t52 4968 t168 = 1/t40 4969 t169 = 1/t31**3 4970 t170 = 1/rhob**1.3333333333333333d+0 4971 t171 = 1/rhob**1.1666666666666667d+0 4972 t172 = -1.264669550498372d-1*t49-9.970917392951799d-1*t171 4973 1 -7.418564737168958d-1*t170-4.002143174996817d-1*t169 4974 t173 = 1/t39**2 4975 t174 = 1/t36 4976 t175 = -1.6039141941921276d-1*t49-1.8533958105157808d+0*t1 4977 1 71-1.2815820791490704d+0*t170-8.223668877838045d-1*t169 4978 t176 = 1/t35**2 4979 t177 = 1.1102230246251565d-16*t168*t172*t173*t42+3.0506411 4980 1 443514264d-19*t170*t41+1.0d+0*t174*t175*t176*t38+1.3210 4981 2 398931339265d-3*t170*t37 4982 t178 = 1.0d+0*t43*t46*t58+1.0d+0*rhob*t177*t46*t58+1.0d+0* 4983 1 rhob*t167*t43*t46 4984 t179 = -6.666666666666667d+0*t47*t96*t98*t99*taub-3.333333 4985 1 3333333337d+0*t47*t94*t96*t97*taub-3.3333333333333337d+ 4986 2 0*t102*t47*t92*taub-6.09932d-3*t100*t119*t164*t99-2.666 4987 3 6666666666666d+0*gammabb*t163*t96*t97*t98-6.09932d-3*t1 4988 4 19*t164*t94*t97*t98-3.04966d-3*t102*t164*t96*t98-5.3333 4989 5 33333333333d+0*gammabb*t163*t93*t94*t96-3.04966d-3*t101 4990 6 *t164*t94*t96-6.09932d-3*t119*t164*t93*t95-2.6666666666 4991 7 666666d+0*gammabb*t101*t163*t92 4992 t180 = t65+t138 4993 t181 = t142+t139 4994 t182 = 1.3333333333333333d+0*t144*t181+1.3333333333333333d 4995 1 +0*t141*t180 4996 t183 = -1.923661050931536d+0*t182*t63*t64 4997 t184 = 7.694644203726144d+0*t149*t64*t68 4998 t185 = t184+t183+t148 4999 t186 = -6.21814d-2*t185*t61*t77 5000 t187 = t184+t183+1.923661050931536d+0*t182+t148 5001 t188 = 1.9751631321680768d-2*t187*t79*t83 5002 t189 = -5.980796863619711d-2*t182*t63*t64*t85*t88 5003 t190 = t89+t59*(2.3923187454478842d-1*t149*t64*t68*t85*t88 5004 1 +t189+t188+t186+t160+t159+t156+t153+t136+t132+t128)+t84 5005 2 +t78+6.903522198342671d-18*t41*t42+3.1090699999999993d- 5006 3 2*t37*t38-rhob*t177 5007 t191 = 1.0d+0*t179*t90+1.0d+0*t103*t190 5008 t192 = 1/rhob**8 5009 t193 = -1.030176d-2*t165*t47*t57*t6+t14*t47*t55*t56-5.1508 5010 1 8d-3*t12*t47*t55*t56-1.030176d-2*gammabb*t14*t165*t54*t 5011 2 56-5.15088d-3*gammabb*t13*t54*t55+2*gammabb*t11*t54*t55 5012 3 -1.030176d-2*t11*t165*t192*t53+t13*t47*t52 5013 t194 = -6.09932d-3*t100*t119*t47*t99+t47*t96*t97*t98-6.099 5014 1 32d-3*t119*t47*t94*t97*t98-3.04966d-3*t102*t47*t96*t98+ 5015 2 2*t47*t93*t94*t96-3.04966d-3*t101*t47*t94*t96-6.09932d- 5016 3 3*t119*t47*t93*t95+t101*t47*t92 5017 t195 = 1/rhob**7 5018 t196 = 1/rhob**4.333333333333333d+0 5019 t197 = -2.060352d-2*t165*t49*t57*t6+4.0d+0*t49*t55*t56*t6- 5020 1 1.030176d-2*t12*t49*t55*t56-2.060352d-2*gammabb*t14*t16 5021 2 5*t196*t56+2.0d+0*gammabb*t14*t196*t55-1.030176d-2*gamm 5022 3 abb*t13*t196*t55-2.060352d-2*t11*t165*t195*t53+2.0d+0*t 5023 4 12*t49*t52 5024 t198 = taub**2 5025 t199 = 1/t198 5026 t200 = 4.0d+0*t49*t96*t98*t99-1.219864d-2*t100*t119*t49*t9 5027 1 9-1.219864d-2*t119*t49*t94*t97*t98-6.09932d-3*t102*t49* 5028 2 t96*t98+2.0d+0*t49*t94*t96*t97-6.09932d-3*t101*t49*t94* 5029 3 t96-1.219864d-2*t119*t49*t93*t95+2.0d+0*t102*t49*t92 5030 t201 = t108**2 5031 t202 = 1/t17**5 5032 t203 = 1/rhoa**2.3333333333333334d+0 5033 t204 = 1/rhoa**2.1666666666666665d+0 5034 t205 = t111**2 5035 t206 = 1.7854583920998188d-15*t201*t28/(t25**4*t26**2)-2.2 5036 1 20446049250313d-16*t104*t201*t28/t25**3+1.1102230246251 5037 2 565d-16*t104*t109*(1.1632736958443765d+0*t204+9.8914196 5038 3 4955861d-1*t203+6.003214762495226d-1*t202+2.10778258416 5039 4 39536d-1*t116)*t28-4.0675215258019015d-19*t203*t27+3.21 5040 5 6395899738507d+1*t205*t24/(t21**4*t22**2)-2.0d+0*t110*t 5041 6 205*t24/t21**3+1.0d+0*t110*t112*(2.1622951122684114d+0* 5042 7 t204+1.7087761055320938d+0*t203+1.2335503316757068d+0*t 5043 8 202+2.673190323653546d-1*t116)*t24-1.7613865241785684d- 5044 9 3*t203*t23-8.497974591333913d-2*t106*t110*t111*t112-9.8 5045 : 12069668265515d-18*t104*t106*t108*t109 5046 t207 = 1/t3**4 5047 t208 = 1/rhoa**7 5048 t209 = 1/rhoa**5.333333333333333d+0 5049 t210 = 1/rhoa**3.6666666666666664d+0 5050 t211 = 1/t91**4 5051 t212 = 2.0d+0*t125*t126*t127*t61*t70 5052 t213 = -1.1696447245269295d+0*t129*t130*t131*t79*t80 5053 t214 = 3.847322101863072d+0*t133*t134*t135*t63*t64*t68*t85 5054 t215 = 5.495546528376875d-3*t123*t70*t77 5055 t216 = -9.087592854964233d-4*t123*t80*t83 5056 t217 = 5.082465978296986d-3*t158*t63*t68*t88 5057 t218 = 4.7846374908957684d-1*t147*t63*t68*t85*t88 5058 t219 = t125**2 5059 t220 = 1.6081979498692536d+1*t219*t61*t70/(t75**4*t76**2) 5060 t221 = -2.0d+0*t127*t219*t61*t70/t75**3 5061 t222 = -8.837926660346784d-2*t123*t125*t126*t127*t70 5062 t223 = 1/t59**2.6666666666666666d+0 5063 t224 = 1/t72**5 5064 t225 = 1/t59**2.3333333333333334d+0 5065 t226 = 1/t59**2.1666666666666665d+0 5066 t227 = 1.0d+0*t126*t127*(1.1632736958443765d+0*t226+9.8914 5067 1 1964955861d-1*t225+6.003214762495226d-1*t224+2.10778258 5068 2 41639536d-1*t223)*t61*t70 5069 t228 = t129**2 5070 t229 = -1.73158960813529d+1*t228*t79*t80/(t81**4*t82**2) 5071 t230 = 1.1696447245269295d+0*t131*t228*t79*t80/t81**3 5072 t231 = 2.690728393099896d-2*t123*t129*t130*t131*t80 5073 t232 = -5.848223622634647d-1*t130*t131*(1.5861639701225969 5074 1 d+0*t226+9.98929717145607d-1*t225+3.2257293534574827d-1 5075 2 *t224+2.1239028834748191d-1*t223)*t79*t80 5076 t233 = t133**2 5077 t234 = 6.187255516702861d+1*t233*t63*t64*t68*t85/(t86**4*t 5078 1 87**2) 5079 t235 = -3.847322101863072d+0*t135*t233*t63*t64*t68*t85/t86 5080 1 **3 5081 t236 = -1.6347222733154887d-1*t133*t134*t135*t158*t63*t68 5082 t237 = 1.923661050931536d+0*t134*t135*(2.1622951122684114d 5083 1 +0*t226+1.7087761055320938d+0*t225+1.2335503316757068d+ 5084 2 0*t224+2.673190323653546d-1*t223)*t63*t64*t68*t85 5085 t238 = -1.538928840745229d+1*t133*t134*t135*t147*t63*t68*t 5086 1 85 5087 t239 = 1/t66**6.666666666666666d-1 5088 t240 = 1/t59**3 5089 t241 = -2*t240*t62 5090 t242 = 2*t137 5091 t243 = 1/t67**6.666666666666666d-1 5092 t244 = 2*t240*t62 5093 t245 = -2*t137 5094 t246 = 1.3333333333333333d+0*t144*(t245+t244)+4.4444444444 5095 1 44444d-1*t143**2*t243+1.3333333333333333d+0*t141*(t242+ 5096 2 t241)+4.444444444444444d-1*t140**2*t239 5097 t247 = -1.923661050931536d+0*t246*t63*t64 5098 t248 = 1.5389288407452287d+1*t145*t147*t63 5099 t249 = -1.5389288407452287d+1*t145*t149*t64 5100 t250 = 1/t59**6 5101 t251 = -3.8473221018630716d+1*t250*t63*t68 5102 t252 = 6.155715362980915d+1*t147*t149*t68 5103 t253 = t62**2 5104 t254 = -2.3083932611178434d+1*t253*t64*t68 5105 t255 = -3.663697685584583d-3*t225*t70*t77 5106 t256 = 6.058395236642822d-4*t225*t80*t83 5107 t257 = -2.3718174565385935d-2*t63*t68*t88/t59**6.333333333 5108 1 333333d+0 5109 t258 = -1.1961593727239421d+0*t250*t63*t68*t85*t88 5110 t259 = -7.176956236343652d-1*t253*t64*t68*t85*t88 5111 t260 = 2.6666666666666666d+0*t144*t240*t62-2.6666666666666 5112 1 666d+0*t141*t240*t62+4.444444444444444d-1*t143*t181*t24 5113 2 3+4.444444444444444d-1*t140*t180*t239 5114 t261 = -1.923661050931536d+0*t260*t63*t64 5115 t262 = 7.694644203726144d+0*t147*t182*t63 5116 t263 = -7.694644203726144d+0*t149*t182*t64 5117 t264 = 7.694644203726144d+0*t145*t147*t63 5118 t265 = 7.694644203726144d+0*t145*t149*t64 5119 t266 = 2.3083932611178434d+1*t253*t64*t68 5120 t267 = t164**2 5121 t268 = 1/rhob**2 5122 t269 = 1/t51**4 5123 t270 = 1/rhob**4.666666666666667d+0 5124 t271 = 8.88888888888889d+0*t163*taub+9.777777777777779d+0* 5125 1 gammabb*t270 5126 t272 = 1/rhob**7.333333333333333d+0 5127 t273 = t172**2 5128 t274 = 1/t31**5 5129 t275 = 1/rhob**2.3333333333333334d+0 5130 t276 = 1/rhob**2.1666666666666665d+0 5131 t277 = t175**2 5132 t278 = 1.0d+0*t174*t176*t38*(2.673190323653546d-1*t47+2.16 5133 1 22951122684114d+0*t276+1.7087761055320938d+0*t275+1.233 5134 2 5503316757068d+0*t274)+1.1102230246251565d-16*t168*t173 5135 3 *t42*(2.1077825841639536d-1*t47+1.1632736958443765d+0*t 5136 4 276+9.89141964955861d-1*t275+6.003214762495226d-1*t274) 5137 5 +1.7854583920998188d-15*t273*t42/(t39**4*t40**2)-2.2204 5138 6 46049250313d-16*t168*t273*t42/t39**3-4.0675215258019015 5139 7 d-19*t275*t41+3.216395899738507d+1*t277*t38/(t35**4*t36 5140 8 **2)-2.0d+0*t174*t277*t38/t35**3-1.7613865241785684d-3* 5141 9 t275*t37-8.497974591333913d-2*t170*t174*t175*t176-9.812 5142 : 069668265515d-18*t168*t170*t172*t173 5143 t279 = 1.3333333333333333d+0*t141*(t245+t241)+1.3333333333 5144 1 333333d+0*t144*(t244+t242)+4.444444444444444d-1*t181**2 5145 2 *t243+4.444444444444444d-1*t180**2*t239 5146 t280 = -1.923661050931536d+0*t279*t63*t64 5147 t281 = 1.5389288407452287d+1*t147*t182*t63 5148 t282 = 1.5389288407452287d+1*t149*t182*t64 5149 t283 = -6.155715362980915d+1*t147*t149*t68 5150 t284 = 1.25d-1*t43*t58+1.25d-1*gammabb*t193*t43 5151 t285 = 1/rhob**3.3333333333333337d+0 5152 t286 = 1/rhob**6 5153 fnc(iq) = (1.0d+0*t103*t90*t92+1.0d+0*rhob*t43*t46*t52*t58 5154 1 +5.0d-1*rhoa*t15*t29*t4)*wght+fnc(iq) 5155 Amat(iq,D1_RA) = (3.04966d-52*t103*t116*t90*t96+t162*t92+2 5156 1 .57544d-52*t1*t15*t29*t7+t118*t4)*wght+Amat(iq,D1_RA) 5157 Amat(iq,D1_RB) = (-3.04966d-3*t103*t164*t90*t96+t191*t92-5 5158 1 .15088d-3*rhob*t164*t43*t46*t55*t58+1.25d-1*gammabb*t43 5159 2 *t44*t45*t52*t58+t178*t52)*wght+Amat(iq,D1_RB) 5160 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 5161 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 5162 Cmat(iq,D1_GBB) = (-3.04966d-3*t103*t47*t90*t96+1.0d+0*t19 5163 1 4*t90*t92-5.15088d-3*t43*t46*t49*t55*t58-1.25d-1*t43*t4 5164 2 5*t52*t58+1.0d+0*rhob*t193*t43*t46*t52)*wght+Cmat(iq,D1 5165 3 _GBB) 5166 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 5167 Mmat(iq,D1_TB) = (-6.09932d-3*t103*t49*t90*t96+1.0d+0*t200 5168 1 *t90*t92-1.030176d-2*t30*t43*t46*t55*t58+1.25d-1*gammab 5169 2 b*t199*t43*t52*t58+1.0d+0*rhob*t197*t43*t46*t52)*wght+M 5170 3 mat(iq,D1_TB) 5171 Amat2(iq,D2_RA_RA) = (t92*(1.0d+0*t90*(1.7777777777777776d 5172 1 -49*t210*t96*t98*t99-8.132426666666667d-101*t119*t209*t 5173 2 98*t99+2.222222222222222d-99*t209*t96*t99+5.58025566935 5174 3 9999d-103*t100*t209*t211*t99-1.6264853333333332d-51*t10 5175 4 0*t119*t210*t99+1.7777777777777776d-49*t210*t96*t97*t98 5176 5 +5.580255669359999d-103*t209*t211*t94*t97*t98-1.6264853 5177 6 333333332d-51*t119*t210*t94*t97*t98-8.132426666666667d- 5178 7 101*t119*t209*t97*t98-8.132426666666666d-52*t102*t210*t 5179 8 96*t98+1.86008522312d-103*t102*t119*t209*t98+8.88888888 5180 9 8888888d-50*t210*t94*t96*t97+4.444444444444444d-99*t209 5181 : *t96*t97-4.0662133333333333d-101*t119*t209*t94*t97+3.55 5182 ; 5555555555555d-49*t210*t93*t94*t96-8.132426666666666d-5 5183 < 2*t101*t210*t94*t96+8.888888888888888d-99*t209*t93*t96- 5184 = 2.0331066666666667d-101*t102*t209*t96-4.066213333333333 5185 > 3d-101*t101*t209*t96+5.580255669359999d-103*t209*t211*t 5186 ? 93*t95-1.6264853333333332d-51*t119*t210*t93*t95-1.62648 5187 @ 53333333334d-100*t119*t209*t93*t94+1.86008522312d-103*t 5188 1 101*t119*t209*t94+8.888888888888888d-50*t102*t210*t92+1 5189 2 .7777777777777776d-49*t101*t210*t92)+1.0d+0*t103*(t59*( 5190 3 1.9138549963583074d+0*t147*t149*t68*t85*t88-5.980796863 5191 4 619711d-2*t246*t63*t64*t85*t88-4.7846374908957684d-1*t1 5192 5 45*t149*t64*t85*t88+4.7846374908957684d-1*t145*t147*t63 5193 6 *t85*t88+2.0329863913187946d-2*t149*t158*t68*t88+5.0824 5194 7 65978296986d-3*t145*t158*t63*t88+1.538928840745229d+1*t 5195 8 133*t134*t135*t149*t64*t68*t85+3.847322101863072d+0*t13 5196 9 3*t134*t135*t145*t63*t64*t85+1.9751631321680768d-2*(t25 5197 : 4+t252+t251+t249+t248+t247+1.923661050931536d+0*t246)*t 5198 ; 79*t83-9.087592854964233d-4*t123*t154*t83-1.16964472452 5199 < 69295d+0*t129*t130*t131*t154*t79-6.21814d-2*(t254+t252+ 5200 = t251+t249+t248+t247)*t61*t77+5.495546528376875d-3*t123* 5201 > t151*t77+2.0d+0*t125*t126*t127*t151*t61+t259+t258+t257+ 5202 ? t256+t255+t238+t237+t236+t235+t234+t232+t231+t230+t229+ 5203 @ t227+t222+t221+t220)-4.7846374908957684d-1*t149*t64*t68 5204 1 *t85*t88-1.1961593727239421d-1*t145*t63*t64*t85*t88+3.9 5205 2 503262643361536d-2*t154*t79*t83-1.243628d-1*t151*t61*t7 5206 3 7-2.220446049250313d-16*t104*t108*t109*t28-6.1012822887 5207 4 02853d-19*t106*t27-2.0d+0*t110*t111*t112*t24-2.64207978 5208 5 6267853d-3*t106*t23+t218+t217+t216+t215+t214+t213+t212- 5209 6 rhoa*t206)+2.0d+0*t120*t161)+t116*(3.04966d-52*t120*t90 5210 7 +3.04966d-52*t162+3.04966d-52*t103*t161)*t96-8.13242666 5211 8 6666666d-52*t103*t210*t90*t96+1.86008522312d-103*t103*t 5212 9 119*t209*t90+t4*(5.0d-1*rhoa*t29*(1.7777777777777776d-4 5213 : 9*t210*t6*t7*t9+1.7777777777777776d-49*t14*t210*t7*t9-1 5214 ; .373568d-51*t12*t210*t7*t9-1.373568d-100*t114*t209*t6*t 5215 < 9-2.4724223999999997d-100*t114*t14*t209*t9+5.3063129548 5216 = 79999d-103*t114*t12*t209*t9+6.367575545855999d-152*t14* 5217 > t207*t208*t9+2.222222222222222d-99*t209*t6*t7+8.0d-99*t 5218 ? 14*t209*t7-1.2362111999999999d-100*t13*t209*t7-3.43392d 5219 @ -101*t12*t209*t7+2.3111111111111113d-98*t11*t209*t7-2.7 5220 1 47136d-51*t10*t114*t210*t6+1.5918938864639998d-102*t10* 5221 2 t207*t209*t6+1.7777777777777776d-49*t13*t210*t4+8.88888 5222 3 8888888888d-50*t12*t210*t4-2.7471359999999995d-150*t114 5223 4 *t14*t208+2.1225251819519997d-152*t114*t13*t208-1.53839 5224 5 616d-149*t11*t114*t208+2.5470302183424d-201*t11*t207/rh 5225 6 oa**8.666666666666666d+0)+1.0d+0*t117*t29+5.0d-1*rhoa*t 5226 7 15*t206+1.0d+0*t113*t15+1.0d+0*rhoa*t113*t117)+t116*(5. 5227 8 15088d-52*t118-4.2923999999999995d-52*t15*t29)*t7+t1*(2 5228 9 .57544d-52*t117*t29+2.57544d-52*t113*t15)*t7+2.65315647 5229 : 74399996d-103*t114*t115*t15*t29)*wght+Amat2(iq,D2_RA_RA 5230 ; ) 5231 Amat2(iq,D2_RA_RB) = (t92*(1.0d+0*t90*(-4.066213333333334d 5232 1 -51*t116*t119*t47*t98*t99*taub+2.222222222222222d-49*t1 5233 2 16*t47*t96*t99*taub+2.222222222222222d-49*t116*t47*t96* 5234 3 t97*taub-2.033106666666667d-51*t116*t119*t47*t94*t97*ta 5235 4 ub-1.0165533333333335d-51*t102*t116*t47*t96*taub+4.0662 5236 5 133333333333d-52*t116*t119*t164*t98*t99-5.5802556693600 5237 6 01d-54*t100*t116*t164*t211*t99-5.580255669360001d-54*t1 5238 7 16*t164*t211*t94*t97*t98+4.0662133333333333d-52*t116*t1 5239 8 19*t164*t97*t98-1.6264853333333332d-51*gammabb*t116*t11 5240 9 9*t163*t97*t98-1.86008522312d-54*t102*t116*t119*t164*t9 5241 : 8+8.888888888888888d-50*gammabb*t116*t163*t96*t97+2.033 5242 ; 1066666666667d-52*t116*t119*t164*t94*t97+3.555555555555 5243 < 555d-49*gammabb*t116*t163*t93*t96+1.0165533333333333d-5 5244 = 2*t102*t116*t164*t96+2.0331066666666667d-52*t101*t116*t 5245 > 164*t96-8.132426666666666d-52*gammabb*t101*t116*t163*t9 5246 ? 6-5.580255669360001d-54*t116*t164*t211*t93*t95+8.132426 5247 @ 666666667d-52*t116*t119*t164*t93*t94-3.2529706666666663 5248 1 d-51*gammabb*t116*t119*t163*t93*t94-1.86008522312d-54*t 5249 2 101*t116*t119*t164*t94)+1.0d+0*t103*(t59*(7.17695623634 5250 3 3652d-1*t253*t64*t68*t85*t88-5.980796863619711d-2*t260* 5251 4 t63*t64*t85*t88-2.3923187454478842d-1*t149*t182*t64*t85 5252 5 *t88+2.3923187454478842d-1*t145*t149*t64*t85*t88+2.3923 5253 6 187454478842d-1*t147*t182*t63*t85*t88+2.392318745447884 5254 7 2d-1*t145*t147*t63*t85*t88+2.541232989148493d-3*t158*t1 5255 8 82*t63*t88+2.541232989148493d-3*t145*t158*t63*t88+1.923 5256 9 661050931536d+0*t133*t134*t135*t182*t63*t64*t85+1.92366 5257 : 1050931536d+0*t133*t134*t135*t145*t63*t64*t85+1.9751631 5258 ; 321680768d-2*(t266+t265+t264+t263+t262+t261+1.923661050 5259 < 931536d+0*t260+t251)*t79*t83-4.5437964274821163d-4*t123 5260 = *t187*t83-4.5437964274821163d-4*t123*t154*t83-5.8482236 5261 > 22634647d-1*t129*t130*t131*t187*t79-5.848223622634647d- 5262 ? 1*t129*t130*t131*t154*t79-6.21814d-2*(t266+t265+t264+t2 5263 @ 63+t262+t261+t251)*t61*t77+2.747773264188437d-3*t123*t1 5264 1 85*t77+2.747773264188437d-3*t123*t151*t77+1.0d+0*t125*t 5265 2 126*t127*t185*t61+1.0d+0*t125*t126*t127*t151*t61+t258+t 5266 3 257+t256+t255+t238+t237+t236+t235+t234+t232+t231+t230+t 5267 4 229+t227+t222+t221+t220)+t218+t217+t216+t215+t214+t213+ 5268 5 t212+t189+t188+t186+t157+t155+t152)+1.0d+0*t120*t190+1. 5269 6 0d+0*t161*t179)+t116*(3.04966d-52*t179*t90+3.04966d-52* 5270 7 t103*t190)*t96-3.04966d-3*t162*t164*t96-1.86008522312d- 5271 8 54*t103*t116*t119*t164*t90)*wght+Amat2(iq,D2_RA_RB) 5272 Amat2(iq,D2_RB_RB) = (t92*(1.0d+0*t90*(1.7777777777777778d 5273 1 +1*t163*t96*t98*t99*taub+8.132426666666668d-2*t119*t164 5274 2 *t47*t98*t99*taub+8.88888888888889d+0*t163*t94*t96*t97* 5275 3 taub+1.7777777777777778d+1*gammabb*t166*t96*t97*taub+4. 5276 4 066213333333334d-2*t119*t164*t47*t94*t97*taub+2.0331066 5277 5 66666667d-2*t102*t164*t47*t96*taub+8.88888888888889d+0* 5278 6 t102*t163*t92*taub+2.2222222222222224d+1*t198*t54*t96*t 5279 7 99-6.09932d-3*t100*t119*t271*t99+5.580255669360001d-5*t 5280 8 100*t211*t267*t99+9.777777777777779d+0*gammabb*t270*t96 5281 9 *t97*t98-6.09932d-3*t119*t271*t94*t97*t98+5.58025566936 5282 : 0001d-5*t211*t267*t94*t97*t98+3.2529706666666663d-2*gam 5283 ; mabb*t119*t163*t164*t97*t98-3.04966d-3*t102*t271*t96*t9 5284 < 8+1.86008522312d-5*t102*t119*t267*t98+1.955555555555555 5285 = 7d+1*gammabb*t270*t93*t94*t96-3.04966d-3*t101*t271*t94* 5286 > t96+1.4222222222222222d+1*t272*t53*t93*t96+1.6264853333 5287 ? 333332d-2*gammabb*t101*t163*t164*t96-6.09932d-3*t119*t2 5288 @ 71*t93*t95+5.580255669360001d-5*t211*t267*t93*t95+6.505 5289 1 941333333333d-2*gammabb*t119*t163*t164*t93*t94+1.860085 5290 2 22312d-5*t101*t119*t267*t94+9.777777777777779d+0*gammab 5291 3 b*t101*t270*t92)+1.0d+0*t103*(t59*(-1.9138549963583074d 5292 4 +0*t147*t149*t68*t85*t88-5.980796863619711d-2*t279*t63* 5293 5 t64*t85*t88+4.7846374908957684d-1*t149*t182*t64*t85*t88 5294 6 +4.7846374908957684d-1*t147*t182*t63*t85*t88-2.03298639 5295 7 13187946d-2*t149*t158*t68*t88+5.082465978296986d-3*t158 5296 8 *t182*t63*t88-1.538928840745229d+1*t133*t134*t135*t149* 5297 9 t64*t68*t85+3.847322101863072d+0*t133*t134*t135*t182*t6 5298 : 3*t64*t85+1.9751631321680768d-2*(t283+t282+t281+t280+1. 5299 ; 923661050931536d+0*t279+t254+t251)*t79*t83-9.0875928549 5300 < 64233d-4*t123*t187*t83-1.1696447245269295d+0*t129*t130* 5301 = t131*t187*t79-6.21814d-2*(t283+t282+t281+t280+t254+t251 5302 > )*t61*t77+5.495546528376875d-3*t123*t185*t77+2.0d+0*t12 5303 ? 5*t126*t127*t185*t61+t259+t258+t257+t256+t255+t238+t237 5304 @ +t236+t235+t234+t232+t231+t230+t229+t227+t222+t221+t220 5305 1 )+4.7846374908957684d-1*t149*t64*t68*t85*t88-1.19615937 5306 2 27239421d-1*t182*t63*t64*t85*t88+3.9503262643361536d-2* 5307 3 t187*t79*t83-1.243628d-1*t185*t61*t77-2.220446049250313 5308 4 d-16*t168*t172*t173*t42-6.101282288702853d-19*t170*t41- 5309 5 2.0d+0*t174*t175*t176*t38-2.642079786267853d-3*t170*t37 5310 6 -rhob*t278+t218+t217+t216+t215+t214+t213+t212)+2.0d+0*t 5311 7 179*t190)+t52*(1.0d+0*rhob*t43*t46*(1.7777777777777778d 5312 8 +1*t163*t55*t56*t6*taub+1.373568d-1*t164*t165*t47*t56*t 5313 9 6*taub+3.4339200000000003d-2*t12*t164*t47*t55*taub+2.66 5314 : 66666666666666d+1*gammabb*t14*t166*t55*taub+6.867840000 5315 ; 000001d-2*gammabb*t14*t164*t165*t54*taub+8.888888888888 5316 < 89d+0*t12*t163*t52*taub-1.030176d-2*t165*t271*t57*t6+1. 5317 = 591893886464d-4*t267*t269*t57*t6+2.2222222222222224d+1* 5318 > t198*t54*t55*t6-5.15088d-3*t12*t271*t55*t56+9.777777777 5319 ? 777779d+0*gammabb*t14*t270*t55*t56-1.030176d-2*gammabb* 5320 @ t14*t165*t271*t47*t56+1.591893886464d-4*gammabb*t14*t26 5321 1 7*t269*t47*t56+5.30631295488d-5*t12*t165*t267*t56+5.494 5322 2 272d-2*gammabb*t14*t163*t164*t165*t56+3.377777777777778 5323 3 d+1*t11*t272*t53*t55-5.15088d-3*gammabb*t13*t271*t47*t5 5324 4 5+2.747136d-2*gammabb*t13*t163*t164*t55-1.030176d-2*t11 5325 5 *t165*t271*t53*t54+1.591893886464d-4*t11*t267*t269*t53* 5326 6 t54+1.0988544d-1*t11*t164*t165*t166*t53+9.7777777777777 5327 7 79d+0*gammabb*t13*t270*t52+5.30631295488d-5*gammabb*t13 5328 8 *t165*t267*t47)+1.0d+0*rhob*t278*t46*t58+2.0d+0*t177*t4 5329 9 6*t58+1.25d-1*gammabb*t177*t44*t45*t58+1.25d-1*gammabb* 5330 : t268*t43*t45*t58+2.0d+0*t167*t43*t46+2.0d+0*rhob*t167*t 5331 ; 177*t46+1.25d-1*gammabb*t167*t43*t44*t45)+(-3.04966d-3* 5332 < t103*t271*t90-3.04966d-3*t164*t179*t90-3.04966d-3*t164* 5333 = t191-3.04966d-3*t103*t164*t190)*t96+1.86008522312d-5*t1 5334 > 03*t119*t267*t90+t55*(-5.15088d-3*rhob*t271*t43*t46*t58 5335 ? -5.15088d-3*t164*t43*t46*t58-5.15088d-3*rhob*t164*t177* 5336 @ t46*t58-5.15088d-3*rhob*t164*t167*t43*t46-5.15088d-3*t1 5337 1 64*t178)+t44*t45*t52*(1.25d-1*gammabb*t177*t58+1.25d-1* 5338 2 gammabb*t167*t43)-1.28772d-3*gammabb*t164*t43*t44*t45*t 5339 3 55*t58-1.25d-1*gammabb*t268*t43*t45*t52*t58+5.306312954 5340 4 88d-5*rhob*t165*t267*t43*t46*t58)*wght+Amat2(iq,D2_RB_R 5341 5 B) 5342 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 5343 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 5344 Cmat2(iq,D2_RA_GBB) = (t92*(1.0d+0*t90*(4.0662133333333333 5345 1 d-52*t116*t119*t47*t98*t99-5.580255669360001d-54*t100*t 5346 2 116*t211*t47*t99-5.580255669360001d-54*t116*t211*t47*t9 5347 3 4*t97*t98+1.0165533333333333d-51*t116*t119*t47*t97*t98- 5348 4 1.86008522312d-54*t102*t116*t119*t47*t98-3.333333333333 5349 5 333d-50*t116*t47*t96*t97+2.0331066666666667d-52*t116*t1 5350 6 19*t47*t94*t97-1.3333333333333333d-49*t116*t47*t93*t96+ 5351 7 1.0165533333333333d-52*t102*t116*t47*t96+5.082766666666 5352 8 666d-52*t101*t116*t47*t96-5.580255669360001d-54*t116*t2 5353 9 11*t47*t93*t95+2.0331066666666667d-51*t116*t119*t47*t93 5354 : *t94-1.86008522312d-54*t101*t116*t119*t47*t94)+1.0d+0*t 5355 ; 161*t194)+3.04966d-52*t116*t194*t90*t96-3.04966d-3*t162 5356 < *t47*t96-1.86008522312d-54*t103*t116*t119*t47*t90)*wght 5357 = +Cmat2(iq,D2_RA_GBB) 5358 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 5359 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 5360 Cmat2(iq,D2_RB_GBB) = (t92*(1.0d+0*t90*(4.066213333333334d 5361 1 -2*t119*t54*t98*t99*taub-3.3333333333333337d+0*t54*t96* 5362 2 t97*taub+2.033106666666667d-2*t119*t54*t94*t97*taub+1.0 5363 3 165533333333335d-2*t102*t54*t96*taub+5.580255669360001d 5364 4 -5*t100*t164*t211*t47*t99+1.6264853333333332d-2*t100*t1 5365 5 19*t163*t99-2.6666666666666666d+0*t163*t96*t97*t98+5.58 5366 6 0255669360001d-5*t164*t211*t47*t94*t97*t98+1.6264853333 5367 7 333332d-2*t119*t163*t94*t97*t98-6.09932d-3*t119*t164*t4 5368 8 7*t97*t98+1.6264853333333332d-2*gammabb*t119*t166*t97*t 5369 9 98+8.132426666666667d-3*t102*t163*t96*t98+1.86008522312 5370 : d-5*t102*t119*t164*t47*t98-5.333333333333333d+0*t163*t9 5371 ; 3*t94*t96+8.132426666666667d-3*t101*t163*t94*t96-5.3333 5372 < 33333333333d+0*gammabb*t166*t93*t96-3.04966d-3*t101*t16 5373 = 4*t47*t96+8.132426666666667d-3*gammabb*t101*t166*t96+5. 5374 > 580255669360001d-5*t164*t211*t47*t93*t95+1.626485333333 5375 ? 3332d-2*t119*t163*t93*t95-1.219864d-2*t119*t164*t47*t93 5376 @ *t94+3.2529706666666663d-2*gammabb*t119*t166*t93*t94+1. 5377 1 86008522312d-5*t101*t119*t164*t47*t94-2.666666666666666 5378 2 6d+0*t101*t163*t92)+1.0d+0*t190*t194)+t52*(1.0d+0*rhob* 5379 3 t43*t46*(6.867840000000001d-2*t165*t54*t56*t6*taub-3.33 5380 4 33333333333337d+0*t14*t54*t55*taub+1.7169600000000002d- 5381 5 2*t12*t54*t55*taub+3.4339200000000003d-2*gammabb*t14*t1 5382 6 65*t192*taub+1.591893886464d-4*t164*t269*t47*t57*t6+2.7 5383 7 47136d-2*t163*t165*t57*t6-2.6666666666666666d+0*t14*t16 5384 8 3*t55*t56+1.373568d-2*t12*t163*t55*t56+1.591893886464d- 5385 9 4*gammabb*t14*t164*t269*t54*t56-1.030176d-2*t14*t164*t1 5386 : 65*t47*t56+5.30631295488d-5*t12*t164*t165*t47*t56+5.494 5387 ; 272d-2*gammabb*t14*t165*t166*t56-5.15088d-3*t13*t164*t4 5388 < 7*t55+2.747136d-2*gammabb*t13*t166*t55-1.06666666666666 5389 = 66d+1*gammabb*t11*t166*t55+5.30631295488d-5*gammabb*t13 5390 > *t164*t165*t54-2.060352d-2*gammabb*t11*t164*t165*t54+1. 5391 ? 591893886464d-4*t11*t164*t192*t269*t53+8.241408d-2*t11* 5392 @ t165*t53/rhob**9-2.6666666666666666d+0*t13*t163*t52)-1. 5393 1 25d-1*t43*t44*t45*t58-1.25d-1*t177*t45*t58+1.0d+0*t193* 5394 2 t43*t46+1.0d+0*rhob*t177*t193*t46-1.25d-1*t167*t43*t45) 5395 3 -3.04966d-3*t164*t194*t90*t96+8.132426666666667d-3*t103 5396 4 *t163*t90*t96-3.04966d-3*t191*t47*t96+1.86008522312d-5* 5397 5 t103*t119*t164*t47*t90+t47*t55*(1.373568d-2*t43*t46*t58 5398 6 -5.15088d-3*t178)+6.4386d-4*t164*t43*t45*t55*t58-6.4386 5399 7 d-4*gammabb*t163*t43*t45*t55*t58+5.30631295488d-5*t164* 5400 8 t165*t43*t46*t49*t58-5.15088d-3*rhob*t164*t193*t43*t46* 5401 9 t55+t284*t44*t45*t52)*wght+Cmat2(iq,D2_RB_GBB) 5402 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 5403 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 5404 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 5405 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 5406 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 5407 Cmat2(iq,D2_GBB_GBB) = (1.0d+0*t90*t92*(5.580255669360001d 5408 1 -5*t100*t211*t54*t99+5.580255669360001d-5*t211*t54*t94* 5409 2 t97*t98-1.219864d-2*t119*t54*t97*t98+1.86008522312d-5*t 5410 3 102*t119*t54*t98+2*t54*t93*t96-6.09932d-3*t101*t54*t96+ 5411 4 5.580255669360001d-5*t211*t54*t93*t95-2.439728d-2*t119* 5412 5 t54*t93*t94+1.86008522312d-5*t101*t119*t54*t94)-6.09932 5413 6 d-3*t194*t47*t90*t96+1.86008522312d-5*t103*t119*t54*t90 5414 7 +1.0d+0*rhob*t43*t46*t52*(1.591893886464d-4*t269*t54*t5 5415 8 7*t6-2.060352d-2*t14*t165*t54*t56+5.30631295488d-5*t12* 5416 9 t165*t54*t56+1.591893886464d-4*gammabb*t14*t192*t269*t5 5417 : 6-1.030176d-2*t13*t54*t55+2*t11*t54*t55+1.591893886464d 5418 ; -4*t11*t269*t53/rhob**1.0666666666666666d+1+5.306312954 5419 < 88d-5*gammabb*t13*t165*t192-4.120704d-2*gammabb*t11*t16 5420 = 5*t192)+1.28772d-3*t43*t45*t47*t55*t58+5.30631295488d-5 5421 > *t165*t196*t43*t46*t58-1.030176d-2*t193*t43*t46*t49*t55 5422 ? -2.5d-1*t193*t43*t45*t52)*wght+Cmat2(iq,D2_GBB_GBB) 5423 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 5424 Mmat2(iq,D2_RA_TB) = (t92*(1.0d+0*t90*(3.252970666666667d- 5425 1 51*t116*t119*t49*t98*t99-1.3333333333333333d-49*t116*t4 5426 2 9*t96*t99-1.1160511338720003d-53*t100*t116*t211*t49*t99 5427 3 -1.1160511338720003d-53*t116*t211*t49*t94*t97*t98+8.132 5428 4 426666666667d-52*t116*t119*t49*t97*t98-3.72017044624d-5 5429 5 4*t102*t116*t119*t49*t98-1.3333333333333333d-49*t116*t4 5430 6 9*t96*t97+1.6264853333333334d-51*t116*t119*t49*t94*t97+ 5431 7 8.132426666666667d-52*t102*t116*t49*t96+4.0662133333333 5432 8 333d-52*t101*t116*t49*t96-1.1160511338720003d-53*t116*t 5433 9 211*t49*t93*t95+1.6264853333333334d-51*t116*t119*t49*t9 5434 : 3*t94-3.72017044624d-54*t101*t116*t119*t49*t94)+1.0d+0* 5435 ; t161*t200)+3.04966d-52*t116*t200*t90*t96-6.09932d-3*t16 5436 < 2*t49*t96-3.72017044624d-54*t103*t116*t119*t49*t90)*wgh 5437 = t+Mmat2(iq,D2_RA_TB) 5438 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 5439 Mmat2(iq,D2_RB_TB) = (t92*(1.0d+0*t90*(8.132426666666668d- 5440 1 2*t119*t196*t98*t99*taub-1.3333333333333333d+1*t196*t96 5441 2 *t99*taub+4.066213333333334d-2*t119*t196*t94*t97*taub+2 5442 3 .033106666666667d-2*t102*t196*t96*taub-6.66666666666666 5443 4 7d+0*t47*t96*t98*t99-2.439728d-2*t119*t164*t49*t98*t99+ 5444 5 1.1160511338720001d-4*t100*t164*t211*t49*t99+2.03310666 5445 6 6666667d-2*t100*t119*t47*t99+1.1160511338720001d-4*t164 5446 7 *t211*t49*t94*t97*t98+2.033106666666667d-2*t119*t47*t94 5447 8 *t97*t98+3.2529706666666663d-2*gammabb*t119*t54*t97*t98 5448 9 +1.0165533333333335d-2*t102*t47*t96*t98+3.72017044624d- 5449 : 5*t102*t119*t164*t49*t98-3.3333333333333337d+0*t47*t94* 5450 ; t96*t97-5.333333333333333d+0*gammabb*t54*t96*t97-1.2198 5451 < 64d-2*t119*t164*t49*t94*t97+1.0165533333333335d-2*t101* 5452 = t47*t94*t96+1.6264853333333332d-2*gammabb*t101*t54*t96- 5453 > 6.09932d-3*t102*t164*t49*t96+1.1160511338720001d-4*t164 5454 ? *t211*t49*t93*t95+2.033106666666667d-2*t119*t47*t93*t95 5455 @ +6.505941333333333d-2*gammabb*t119*t54*t93*t94+3.720170 5456 1 44624d-5*t101*t119*t164*t49*t94-3.3333333333333337d+0*t 5457 2 102*t47*t92)+1.0d+0*t190*t200)+t52*(1.0d+0*rhob*t43*t46 5458 3 *(1.373568d-1*t165*t196*t56*t6*taub-1.3333333333333333d 5459 4 +1*t196*t55*t6*taub+3.4339200000000003d-2*t12*t196*t55* 5460 5 taub+6.867840000000001d-2*gammabb*t14*t165*t195*taub+3. 5461 6 183787772928d-4*t164*t269*t49*t57*t6+3.4339200000000003 5462 7 d-2*t165*t47*t57*t6-6.666666666666667d+0*t47*t55*t56*t6 5463 8 -4.120704d-2*t164*t165*t49*t56*t6+1.7169600000000002d-2 5464 9 *t12*t47*t55*t56+8.928192d-2*gammabb*t14*t165*t54*t56+1 5465 : .061262590976d-4*t12*t164*t165*t49*t56+3.183787772928d- 5466 ; 4*gammabb*t14*t164*t196*t269*t56-8.666666666666666d+0*g 5467 < ammabb*t14*t54*t55+4.464096d-2*gammabb*t13*t54*t55-1.03 5468 = 0176d-2*t12*t164*t49*t55+3.183787772928d-4*t11*t164*t19 5469 > 5*t269*t53+1.4422464000000002d-1*t11*t165*t192*t53-3.33 5470 ? 33333333333337d+0*t12*t47*t52-2.060352d-2*gammabb*t14*t 5471 @ 164*t165*t196+1.061262590976d-4*gammabb*t13*t164*t165*t 5472 1 196)+1.25d-1*gammabb*t199*t43*t44*t58+1.25d-1*gammabb*t 5473 2 177*t199*t58+1.0d+0*t197*t43*t46+1.0d+0*rhob*t177*t197* 5474 3 t46+1.25d-1*gammabb*t167*t199*t43)+1.0165533333333335d- 5475 4 2*t103*t47*t90*t96-3.04966d-3*t164*t200*t90*t96-6.09932 5476 5 d-3*t191*t49*t96+3.72017044624d-5*t103*t119*t164*t49*t9 5477 6 0+t49*t55*(1.7169600000000002d-2*t43*t46*t58-1.030176d- 5478 7 2*t178)-1.28772d-3*gammabb*t43*t45*t47*t55*t58-6.4386d- 5479 8 4*gammabb*t164*t199*t43*t55*t58-1.25d-1*gammabb*t199*t4 5480 9 3*t44*t52*t58+1.061262590976d-4*t164*t165*t30*t43*t46*t 5481 : 58-5.15088d-3*rhob*t164*t197*t43*t46*t55+1.25d-1*gammab 5482 ; b*t197*t43*t44*t45*t52)*wght+Mmat2(iq,D2_RB_TB) 5483 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 5484 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 5485 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 5486 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 5487 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 5488 Mmat2(iq,D2_GBB_TB) = (1.0d+0*t90*t92*(-2.439728d-2*t119*t 5489 1 196*t98*t99+1.1160511338720001d-4*t100*t196*t211*t99+1. 5490 2 1160511338720001d-4*t196*t211*t94*t97*t98-1.219864d-2*t 5491 3 119*t196*t97*t98+3.72017044624d-5*t102*t119*t196*t98+2. 5492 4 0d+0*t196*t96*t97-1.219864d-2*t119*t196*t94*t97-6.09932 5493 5 d-3*t102*t196*t96-6.09932d-3*t101*t196*t96+1.1160511338 5494 6 720001d-4*t196*t211*t93*t95-2.439728d-2*t119*t196*t93*t 5495 7 94+3.72017044624d-5*t101*t119*t196*t94)-6.09932d-3*t194 5496 8 *t49*t90*t96-3.04966d-3*t200*t47*t90*t96+3.72017044624d 5497 9 -5*t103*t119*t196*t90+1.0d+0*rhob*t43*t46*t52*(3.183787 5498 : 772928d-4*t196*t269*t57*t6-4.120704d-2*t165*t196*t56*t6 5499 ; +3.183787772928d-4*gammabb*t14*t195*t269*t56-2.060352d- 5500 < 2*t14*t165*t196*t56+1.061262590976d-4*t12*t165*t196*t56 5501 = +2.0d+0*t14*t196*t55-1.030176d-2*t13*t196*t55-1.030176d 5502 > -2*t12*t196*t55+3.183787772928d-4*t11*t269*t53/rhob**9. 5503 ? 666666666666666d+0-2.060352d-2*gammabb*t14*t165*t195+1. 5504 @ 061262590976d-4*gammabb*t13*t165*t195-4.120704d-2*gamma 5505 1 bb*t11*t165*t195)+1.28772d-3*t43*t45*t49*t55*t58-6.4386 5506 2 d-4*gammabb*t199*t43*t47*t55*t58+1.061262590976d-4*t165 5507 3 *t285*t43*t46*t58-5.15088d-3*t197*t43*t46*t49*t55-1.030 5508 4 176d-2*t193*t30*t43*t46*t55-1.25d-1*t197*t43*t45*t52+t1 5509 5 99*t284*t52)*wght+Mmat2(iq,D2_GBB_TB) 5510 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 5511 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 5512 Mmat2(iq,D2_TB_TB) = (-2.5d-1*gammabb*t43*t52*t58/taub**3+ 5513 1 1.0d+0*t90*t92*(-9.758912d-2*t119*t285*t98*t99+8.0d+0*t 5514 2 285*t96*t99+2.2321022677440003d-4*t100*t211*t285*t99+2. 5515 3 2321022677440003d-4*t211*t285*t94*t97*t98+7.44034089248 5516 4 d-5*t102*t119*t285*t98-4.879456d-2*t119*t285*t94*t97-2. 5517 5 439728d-2*t102*t285*t96+2.2321022677440003d-4*t211*t285 5518 6 *t93*t95+7.44034089248d-5*t101*t119*t285*t94)-1.219864d 5519 7 -2*t200*t49*t90*t96+7.44034089248d-5*t103*t119*t285*t90 5520 8 +1.0d+0*rhob*t43*t46*t52*(6.367575545856d-4*t269*t285*t 5521 9 57*t6-1.6482816d-1*t165*t285*t56*t6+8.0d+0*t285*t55*t6+ 5522 : 6.367575545856d-4*gammabb*t14*t269*t286*t56+2.122525181 5523 ; 952d-4*t12*t165*t285*t56-4.120704d-2*t12*t285*t55+6.367 5524 < 575545856d-4*t11*t269*t53/rhob**8.666666666666666d+0-8. 5525 = 241408d-2*gammabb*t14*t165*t286+2.122525181952d-4*gamma 5526 > bb*t13*t165*t286)-2.57544d-3*gammabb*t199*t43*t49*t55*t 5527 ? 58+2.122525181952d-4*t165*t275*t43*t46*t58-2.060352d-2* 5528 @ t197*t30*t43*t46*t55+2.5d-1*gammabb*t197*t199*t43*t52)* 5529 1 wght+Mmat2(iq,D2_TB_TB) 5530 else 5531 t1 = 1/rhoa**1.6666666666666669d+0 5532 t2 = 6.0d-50*t1 5533 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 5534 t4 = 1/t3 5535 t5 = param(7) 5536 t6 = param(12) 5537 t7 = 1/t3**2 5538 t8 = 2.0d-50*t1 5539 t9 = t8-9.11559972d+0 5540 t10 = t9**2 5541 t11 = param(10) 5542 t12 = param(9) 5543 t13 = param(8) 5544 t14 = param(11) 5545 t15 = 4.0d-50*t1*t14*t7*t9+t12*t4*t9+t10*t6*t7+1.6d-99*t11 5546 1 *t7/rhoa**3.3333333333333337d+0+t5+4.0d-50*t1*t13*t4 5547 t16 = 1/rhoa**6.666666666666666d-1 5548 t17 = rhoa**5.0d-1 5549 t18 = 1/t17 5550 t19 = 1/rhoa**3.333333333333333d-1 5551 t20 = 1/rhoa**1.6666666666666666d-1 5552 t21 = 1.1120374863094686d+1*t20+3.8447462374472113d+0*t19+ 5553 1 1.644733775567609d+0*t18+2.4058712912881916d-1*t16 5554 t22 = 3.216395899738507d+1/t21+1.0d+0 5555 t23 = log(t22) 5556 t24 = 1.274696188700087d-1*t19+1.0d+0 5557 t25 = 5.982550435771079d+0*t20+2.2255694211506874d+0*t19+8 5558 1 .004286349993635d-1*t18+1.8970043257475583d-1*t16 5559 t26 = 1.6081979498692536d+1/t25+1.0d+0 5560 t27 = log(t26) 5561 t28 = 1.3256889990520176d-1*t19+1.0d+0 5562 t29 = -6.903522198342671d-18*t27*t28-3.1090699999999993d-2 5563 1 *t23*t24 5564 t30 = 1/rhob**1.6666666666666669d+0 5565 t31 = 6.0d-50*t30 5566 t32 = 5.15088d-3*(t31-9.11559972d+0)+1.0d+0 5567 t33 = 1/t32 5568 t34 = 1/t32**2 5569 t35 = 2.0d-50*t30 5570 t36 = t35-9.11559972d+0 5571 t37 = t36**2 5572 t38 = t34*t37*t6+t5+4.0d-50*t14*t30*t34*t36+t12*t33*t36+1. 5573 1 6d-99*t11*t34/rhob**3.3333333333333337d+0+4.0d-50*t13*t 5574 2 30*t33 5575 t39 = 1/rhob**6.666666666666666d-1 5576 t40 = rhob**5.0d-1 5577 t41 = 1/t40 5578 t42 = 1/rhob**3.333333333333333d-1 5579 t43 = 1/rhob**1.6666666666666666d-1 5580 t44 = 1.1120374863094686d+1*t43+3.8447462374472113d+0*t42+ 5581 1 1.644733775567609d+0*t41+2.4058712912881916d-1*t39 5582 t45 = 3.216395899738507d+1/t44+1.0d+0 5583 t46 = log(t45) 5584 t47 = 1.274696188700087d-1*t42+1.0d+0 5585 t48 = 5.982550435771079d+0*t43+2.2255694211506874d+0*t42+8 5586 1 .004286349993635d-1*t41+1.8970043257475583d-1*t39 5587 t49 = 1.6081979498692536d+1/t48+1.0d+0 5588 t50 = log(t49) 5589 t51 = 1.3256889990520176d-1*t42+1.0d+0 5590 t52 = -6.903522198342671d-18*t50*t51-3.1090699999999993d-2 5591 1 *t46*t47 5592 t53 = param(6) 5593 t54 = 3.04966d-3*(t31+t2-1.823119944d+1)+1.0d+0 5594 t55 = 1/t54**2 5595 t56 = t8+t35-1.823119944d+1 5596 t57 = t56**2 5597 t58 = param(4) 5598 t59 = 4.0d-50*t30+4.0d-50*t1 5599 t60 = t59**2 5600 t61 = param(3) 5601 t62 = 1/t54 5602 t63 = param(2) 5603 t64 = param(5) 5604 t65 = t55*t56*t59*t64+t59*t62*t63+t56*t61*t62+t55*t58*t60+ 5605 1 t53*t55*t57+param(1) 5606 t66 = rhob+rhoa 5607 t67 = 1/t66**3.333333333333333d-1 5608 t68 = 1.3256889990520176d-1*t67+1.0d+0 5609 t69 = rhoa-rhob 5610 t70 = t69**4 5611 t71 = 1/t66**4 5612 t72 = 1/t66 5613 t73 = 1.0d+0-t69*t72 5614 t74 = t69*t72+1.0d+0 5615 t75 = t74**1.3333333333333333d+0+t73**1.3333333333333333d+ 5616 1 0-2.0d+0 5617 t76 = -1.923661050931536d+0*t70*t71*t75 5618 t77 = t76+1.0d+0 5619 t78 = 1/t66**6.666666666666666d-1 5620 t79 = t66**5.0d-1 5621 t80 = 1/t79 5622 t81 = 1/t66**1.6666666666666666d-1 5623 t82 = 5.982550435771079d+0*t81+8.004286349993635d-1*t80+1. 5624 1 8970043257475583d-1*t78+2.2255694211506874d+0*t67 5625 t83 = 1.6081979498692536d+1/t82+1.0d+0 5626 t84 = log(t83) 5627 t85 = -6.21814d-2*t68*t77*t84 5628 t86 = 6.901399211255825d-2*t67+1.0d+0 5629 t87 = t76+1.923661050931536d+0*t75 5630 t88 = 8.157414703487641d+0*t81+4.3009724712766434d-1*t80+1 5631 1 .9115125951273373d-1*t78+2.247591863577616d+0*t67 5632 t89 = 2.9608813203268075d+1/t88+1.0d+0 5633 t90 = log(t89) 5634 t91 = 1.9751631321680768d-2*t86*t87*t90 5635 t92 = 1.274696188700087d-1*t67+1.0d+0 5636 t93 = 1.1120374863094686d+1*t81+1.644733775567609d+0*t80+2 5637 1 .4058712912881916d-1*t78+3.8447462374472113d+0*t67 5638 t94 = 3.216395899738507d+1/t93+1.0d+0 5639 t95 = log(t94) 5640 t96 = -5.980796863619711d-2*t70*t71*t75*t92*t95 5641 t97 = t66*(t96+t91+t85)-rhob*t52-rhoa*t29 5642 t98 = 1/t26 5643 t99 = 1/t17**3 5644 t100 = 1/rhoa**1.3333333333333333d+0 5645 t101 = 1/rhoa**1.1666666666666667d+0 5646 t102 = -4.002143174996817d-1*t99-9.970917392951799d-1*t101 5647 1 -7.418564737168958d-1*t100-1.264669550498372d-1*t1 5648 t103 = 1/t25**2 5649 t104 = 1/t22 5650 t105 = -8.223668877838045d-1*t99-1.8533958105157808d+0*t10 5651 1 1-1.2815820791490704d+0*t100-1.6039141941921276d-1*t1 5652 t106 = 1/t21**2 5653 t107 = 1.1102230246251565d-16*t102*t103*t28*t98+3.05064114 5654 1 43514264d-19*t100*t27+1.0d+0*t104*t105*t106*t24+1.32103 5655 2 98931339265d-3*t100*t23 5656 t108 = 1/t3**3 5657 t109 = 1/rhoa**4.333333333333333d+0 5658 t110 = 1/rhoa**2.6666666666666666d+0 5659 t111 = -6.666666666666666d-50*t110*t6*t7*t9-6.666666666666 5660 1 666d-50*t110*t14*t7*t9+5.15088d-52*t110*t12*t7*t9+4.120 5661 2 7039999999995d-101*t108*t109*t14*t9-1.3333333333333333d 5662 3 -99*t109*t14*t7+2.0603519999999997d-101*t109*t13*t7-5.3 5663 4 33333333333334d-99*t109*t11*t7+1.030176d-51*t10*t108*t1 5664 5 10*t6-6.666666666666666d-50*t110*t13*t4-3.3333333333333 5665 6 33d-50*t110*t12*t4+1.6482816d-150*t108*t11/rhoa**6 5666 t112 = 5.0d-1*t15*t29+5.0d-1*rhoa*t111*t29+5.0d-1*rhoa*t10 5667 1 7*t15 5668 t113 = 1/t66**1.6666666666666669d+0 5669 t114 = 1/t79**3 5670 t115 = 1/t66**1.3333333333333333d+0 5671 t116 = 1/t66**1.1666666666666667d+0 5672 t117 = -9.970917392951799d-1*t116-7.418564737168958d-1*t11 5673 1 5-4.002143174996817d-1*t114-1.264669550498372d-1*t113 5674 t118 = 1/t82**2 5675 t119 = 1/t83 5676 t120 = 1.0d+0*t117*t118*t119*t68*t77 5677 t121 = -1.3595691172479402d+0*t116-7.491972878592053d-1*t1 5678 1 15-2.1504862356383217d-1*t114-1.2743417300848914d-1*t11 5679 2 3 5680 t122 = 1/t88**2 5681 t123 = 1/t89 5682 t124 = -5.848223622634647d-1*t121*t122*t123*t86*t87 5683 t125 = -1.8533958105157808d+0*t116-1.2815820791490704d+0*t 5684 1 115-8.223668877838045d-1*t114-1.6039141941921276d-1*t11 5685 2 3 5686 t126 = 1/t93**2 5687 t127 = 1/t94 5688 t128 = 1.923661050931536d+0*t125*t126*t127*t70*t71*t75*t92 5689 t129 = 1/t66**2 5690 t130 = t129*t69 5691 t131 = -t72 5692 t132 = t131+t130 5693 t133 = t73**3.333333333333333d-1 5694 t134 = -t129*t69 5695 t135 = t72+t134 5696 t136 = t74**3.333333333333333d-1 5697 t137 = 1.3333333333333333d+0*t135*t136+1.3333333333333333d 5698 1 +0*t132*t133 5699 t138 = -1.923661050931536d+0*t137*t70*t71 5700 t139 = 1/t66**5 5701 t140 = 7.694644203726144d+0*t139*t70*t75 5702 t141 = t69**3 5703 t142 = -7.694644203726144d+0*t141*t71*t75 5704 t143 = t142+t140+t138 5705 t144 = -6.21814d-2*t143*t68*t84 5706 t145 = 2.747773264188437d-3*t115*t77*t84 5707 t146 = t142+t140+t138+1.923661050931536d+0*t137 5708 t147 = 1.9751631321680768d-2*t146*t86*t90 5709 t148 = -4.5437964274821163d-4*t115*t87*t90 5710 t149 = -5.980796863619711d-2*t137*t70*t71*t92*t95 5711 t150 = 1/t66**5.333333333333333d+0 5712 t151 = 2.541232989148493d-3*t150*t70*t75*t95 5713 t152 = 2.3923187454478842d-1*t139*t70*t75*t92*t95 5714 t153 = t96+t66*(-2.3923187454478842d-1*t141*t71*t75*t92*t9 5715 1 5+t152+t151+t149+t148+t147+t145+t144+t128+t124+t120)+t9 5716 2 1+t85+6.903522198342671d-18*t27*t28+3.1090699999999993d 5717 3 -2*t23*t24-rhoa*t107 5718 t154 = 1/t54**3 5719 t155 = 6.09932d-52*t110*t154*t56*t59*t64-3.333333333333333 5720 1 d-50*t110*t55*t59*t64-6.666666666666666d-50*t110*t55*t5 5721 2 6*t64-6.666666666666666d-50*t110*t62*t63+3.04966d-52*t1 5722 3 10*t55*t59*t63-3.333333333333333d-50*t110*t61*t62+3.049 5723 4 66d-52*t110*t55*t56*t61+6.09932d-52*t110*t154*t58*t60-1 5724 5 .3333333333333333d-49*t110*t55*t58*t59+6.09932d-52*t110 5725 6 *t154*t53*t57-6.666666666666666d-50*t110*t53*t55*t56 5726 t156 = 1.0d+0*t155*t97+1.0d+0*t153*t65 5727 t157 = 1/t49 5728 t158 = 1/t40**3 5729 t159 = 1/rhob**1.3333333333333333d+0 5730 t160 = 1/rhob**1.1666666666666667d+0 5731 t161 = -1.264669550498372d-1*t30-9.970917392951799d-1*t160 5732 1 -7.418564737168958d-1*t159-4.002143174996817d-1*t158 5733 t162 = 1/t48**2 5734 t163 = 1/t45 5735 t164 = -1.6039141941921276d-1*t30-1.8533958105157808d+0*t1 5736 1 60-1.2815820791490704d+0*t159-8.223668877838045d-1*t158 5737 t165 = 1/t44**2 5738 t166 = 1.1102230246251565d-16*t157*t161*t162*t51+3.0506411 5739 1 443514264d-19*t159*t50+1.0d+0*t163*t164*t165*t47+1.3210 5740 2 398931339265d-3*t159*t46 5741 t167 = 1/t32**3 5742 t168 = 1/rhob**4.333333333333333d+0 5743 t169 = 1/rhob**2.6666666666666666d+0 5744 t170 = 1.030176d-51*t167*t169*t37*t6-6.666666666666666d-50 5745 1 *t169*t34*t36*t6-6.666666666666666d-50*t14*t169*t34*t36 5746 2 +5.15088d-52*t12*t169*t34*t36+4.1207039999999995d-101*t 5747 3 14*t167*t168*t36-1.3333333333333333d-99*t14*t168*t34+2. 5748 4 0603519999999997d-101*t13*t168*t34-5.333333333333334d-9 5749 5 9*t11*t168*t34-6.666666666666666d-50*t13*t169*t33-3.333 5750 6 333333333333d-50*t12*t169*t33+1.6482816d-150*t11*t167/r 5751 7 hob**6 5752 t171 = 5.0d-1*t38*t52+5.0d-1*rhob*t170*t52+5.0d-1*rhob*t16 5753 1 6*t38 5754 t172 = t72+t130 5755 t173 = t134+t131 5756 t174 = 1.3333333333333333d+0*t136*t173+1.3333333333333333d 5757 1 +0*t133*t172 5758 t175 = -1.923661050931536d+0*t174*t70*t71 5759 t176 = 7.694644203726144d+0*t141*t71*t75 5760 t177 = t176+t175+t140 5761 t178 = -6.21814d-2*t177*t68*t84 5762 t179 = t176+t175+1.923661050931536d+0*t174+t140 5763 t180 = 1.9751631321680768d-2*t179*t86*t90 5764 t181 = -5.980796863619711d-2*t174*t70*t71*t92*t95 5765 t182 = t96+t66*(2.3923187454478842d-1*t141*t71*t75*t92*t95 5766 1 +t181+t180+t178+t152+t151+t148+t145+t128+t124+t120)+t91 5767 2 +t85+6.903522198342671d-18*t50*t51+3.1090699999999993d- 5768 3 2*t46*t47-rhob*t166 5769 t183 = 6.09932d-52*t154*t169*t56*t59*t64-3.333333333333333 5770 1 d-50*t169*t55*t59*t64-6.666666666666666d-50*t169*t55*t5 5771 2 6*t64-6.666666666666666d-50*t169*t62*t63+3.04966d-52*t1 5772 3 69*t55*t59*t63-3.333333333333333d-50*t169*t61*t62+3.049 5773 4 66d-52*t169*t55*t56*t61+6.09932d-52*t154*t169*t58*t60-1 5774 5 .3333333333333333d-49*t169*t55*t58*t59+6.09932d-52*t154 5775 6 *t169*t53*t57-6.666666666666666d-50*t169*t53*t55*t56 5776 t184 = 1.0d+0*t183*t97+1.0d+0*t182*t65 5777 t185 = t102**2 5778 t186 = 1/t17**5 5779 t187 = 1/rhoa**2.3333333333333334d+0 5780 t188 = 1/rhoa**2.1666666666666665d+0 5781 t189 = t105**2 5782 t190 = -2.220446049250313d-16*t185*t28*t98/t25**3+1.110223 5783 1 0246251565d-16*t103*(1.1632736958443765d+0*t188+9.89141 5784 2 964955861d-1*t187+6.003214762495226d-1*t186+2.107782584 5785 3 1639536d-1*t110)*t28*t98-9.812069668265515d-18*t100*t10 5786 4 2*t103*t98+1.7854583920998188d-15*t185*t28/(t25**4*t26* 5787 5 *2)-4.0675215258019015d-19*t187*t27+3.216395899738507d+ 5788 6 1*t189*t24/(t21**4*t22**2)-2.0d+0*t104*t189*t24/t21**3+ 5789 7 1.0d+0*t104*t106*(2.1622951122684114d+0*t188+1.70877610 5790 8 55320938d+0*t187+1.2335503316757068d+0*t186+2.673190323 5791 9 653546d-1*t110)*t24-1.7613865241785684d-3*t187*t23-8.49 5792 : 7974591333913d-2*t100*t104*t105*t106 5793 t191 = 1/t3**4 5794 t192 = 1/rhoa**7 5795 t193 = 1/rhoa**5.333333333333333d+0 5796 t194 = 1/rhoa**3.6666666666666664d+0 5797 t195 = 2.0d+0*t117*t118*t119*t68*t77 5798 t196 = -1.1696447245269295d+0*t121*t122*t123*t86*t87 5799 t197 = 3.847322101863072d+0*t125*t126*t127*t70*t71*t75*t92 5800 t198 = 5.495546528376875d-3*t115*t77*t84 5801 t199 = -9.087592854964233d-4*t115*t87*t90 5802 t200 = 5.082465978296986d-3*t150*t70*t75*t95 5803 t201 = 4.7846374908957684d-1*t139*t70*t75*t92*t95 5804 t202 = t117**2 5805 t203 = 1.6081979498692536d+1*t202*t68*t77/(t82**4*t83**2) 5806 t204 = -2.0d+0*t119*t202*t68*t77/t82**3 5807 t205 = -8.837926660346784d-2*t115*t117*t118*t119*t77 5808 t206 = 1/t66**2.6666666666666666d+0 5809 t207 = 1/t79**5 5810 t208 = 1/t66**2.3333333333333334d+0 5811 t209 = 1/t66**2.1666666666666665d+0 5812 t210 = 1.0d+0*t118*t119*(1.1632736958443765d+0*t209+9.8914 5813 1 1964955861d-1*t208+6.003214762495226d-1*t207+2.10778258 5814 2 41639536d-1*t206)*t68*t77 5815 t211 = t121**2 5816 t212 = -1.73158960813529d+1*t211*t86*t87/(t88**4*t89**2) 5817 t213 = 1.1696447245269295d+0*t123*t211*t86*t87/t88**3 5818 t214 = 2.690728393099896d-2*t115*t121*t122*t123*t87 5819 t215 = -5.848223622634647d-1*t122*t123*(1.5861639701225969 5820 1 d+0*t209+9.98929717145607d-1*t208+3.2257293534574827d-1 5821 2 *t207+2.1239028834748191d-1*t206)*t86*t87 5822 t216 = t125**2 5823 t217 = 6.187255516702861d+1*t216*t70*t71*t75*t92/(t93**4*t 5824 1 94**2) 5825 t218 = -3.847322101863072d+0*t127*t216*t70*t71*t75*t92/t93 5826 1 **3 5827 t219 = -1.6347222733154887d-1*t125*t126*t127*t150*t70*t75 5828 t220 = 1.923661050931536d+0*t126*t127*(2.1622951122684114d 5829 1 +0*t209+1.7087761055320938d+0*t208+1.2335503316757068d+ 5830 2 0*t207+2.673190323653546d-1*t206)*t70*t71*t75*t92 5831 t221 = -1.538928840745229d+1*t125*t126*t127*t139*t70*t75*t 5832 1 92 5833 t222 = 1/t73**6.666666666666666d-1 5834 t223 = 1/t66**3 5835 t224 = -2*t223*t69 5836 t225 = 2*t129 5837 t226 = 1/t74**6.666666666666666d-1 5838 t227 = 2*t223*t69 5839 t228 = -2*t129 5840 t229 = 1.3333333333333333d+0*t136*(t228+t227)+4.4444444444 5841 1 44444d-1*t135**2*t226+1.3333333333333333d+0*t133*(t225+ 5842 2 t224)+4.444444444444444d-1*t132**2*t222 5843 t230 = -1.923661050931536d+0*t229*t70*t71 5844 t231 = 1.5389288407452287d+1*t137*t139*t70 5845 t232 = -1.5389288407452287d+1*t137*t141*t71 5846 t233 = 1/t66**6 5847 t234 = -3.8473221018630716d+1*t233*t70*t75 5848 t235 = 6.155715362980915d+1*t139*t141*t75 5849 t236 = t69**2 5850 t237 = -2.3083932611178434d+1*t236*t71*t75 5851 t238 = -3.663697685584583d-3*t208*t77*t84 5852 t239 = 6.058395236642822d-4*t208*t87*t90 5853 t240 = -2.3718174565385935d-2*t70*t75*t95/t66**6.333333333 5854 1 333333d+0 5855 t241 = -1.1961593727239421d+0*t233*t70*t75*t92*t95 5856 t242 = -7.176956236343652d-1*t236*t71*t75*t92*t95 5857 t243 = 1/t54**4 5858 t244 = 2.6666666666666666d+0*t136*t223*t69-2.6666666666666 5859 1 666d+0*t133*t223*t69+4.444444444444444d-1*t135*t173*t22 5860 2 6+4.444444444444444d-1*t132*t172*t222 5861 t245 = -1.923661050931536d+0*t244*t70*t71 5862 t246 = 7.694644203726144d+0*t139*t174*t70 5863 t247 = -7.694644203726144d+0*t141*t174*t71 5864 t248 = 7.694644203726144d+0*t137*t139*t70 5865 t249 = 7.694644203726144d+0*t137*t141*t71 5866 t250 = 2.3083932611178434d+1*t236*t71*t75 5867 t251 = 3.04966d-52*t182*t65 5868 t252 = 3.04966d-52*t183*t97 5869 t253 = t161**2 5870 t254 = 1/t40**5 5871 t255 = 1/rhob**2.3333333333333334d+0 5872 t256 = 1/rhob**2.1666666666666665d+0 5873 t257 = t164**2 5874 t258 = 1.7854583920998188d-15*t253*t51/(t48**4*t49**2)-2.2 5875 1 20446049250313d-16*t157*t253*t51/t48**3+1.1102230246251 5876 2 565d-16*t157*t162*(1.1632736958443765d+0*t256+9.8914196 5877 3 4955861d-1*t255+6.003214762495226d-1*t254+2.10778258416 5878 4 39536d-1*t169)*t51-4.0675215258019015d-19*t255*t50+3.21 5879 5 6395899738507d+1*t257*t47/(t44**4*t45**2)-2.0d+0*t163*t 5880 6 257*t47/t44**3+1.0d+0*t163*t165*(2.1622951122684114d+0* 5881 7 t256+1.7087761055320938d+0*t255+1.2335503316757068d+0*t 5882 8 254+2.673190323653546d-1*t169)*t47-1.7613865241785684d- 5883 9 3*t255*t46-8.497974591333913d-2*t159*t163*t164*t165-9.8 5884 : 12069668265515d-18*t157*t159*t161*t162 5885 t259 = 1/t32**4 5886 t260 = 1/rhob**7 5887 t261 = 1/rhob**5.333333333333333d+0 5888 t262 = 1/rhob**3.6666666666666664d+0 5889 t263 = 1.3333333333333333d+0*t133*(t228+t224)+1.3333333333 5890 1 333333d+0*t136*(t227+t225)+4.444444444444444d-1*t173**2 5891 2 *t226+4.444444444444444d-1*t172**2*t222 5892 t264 = -1.923661050931536d+0*t263*t70*t71 5893 t265 = 1.5389288407452287d+1*t139*t174*t70 5894 t266 = 1.5389288407452287d+1*t141*t174*t71 5895 t267 = -6.155715362980915d+1*t139*t141*t75 5896 fnc(iq) = (1.0d+0*t62*t65*t97+5.0d-1*rhob*t33*t38*t52+5.0d 5897 1 -1*rhoa*t15*t29*t4)*wght+fnc(iq) 5898 Amat(iq,D1_RA) = (3.04966d-52*t110*t55*t65*t97+2.57544d-52 5899 1 *t1*t15*t29*t7+t156*t62+t112*t4)*wght+Amat(iq,D1_RA) 5900 Amat(iq,D1_RB) = (3.04966d-52*t169*t55*t65*t97+t184*t62+2. 5901 1 57544d-52*t30*t34*t38*t52+t171*t33)*wght+Amat(iq,D1_RB) 5902 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 5903 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 5904 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 5905 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 5906 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 5907 Amat2(iq,D2_RA_RA) = (t62*(1.0d+0*t65*(-2.220446049250313d 5908 1 -16*t102*t103*t28*t98+t66*(1.9138549963583074d+0*t139*t 5909 2 141*t75*t92*t95-5.980796863619711d-2*t229*t70*t71*t92*t 5910 3 95-4.7846374908957684d-1*t137*t141*t71*t92*t95+4.784637 5911 4 4908957684d-1*t137*t139*t70*t92*t95+2.0329863913187946d 5912 5 -2*t141*t150*t75*t95+5.082465978296986d-3*t137*t150*t70 5913 6 *t95+1.538928840745229d+1*t125*t126*t127*t141*t71*t75*t 5914 7 92+3.847322101863072d+0*t125*t126*t127*t137*t70*t71*t92 5915 8 +1.9751631321680768d-2*(t237+t235+t234+t232+t231+t230+1 5916 9 .923661050931536d+0*t229)*t86*t90-9.087592854964233d-4* 5917 : t115*t146*t90-1.1696447245269295d+0*t121*t122*t123*t146 5918 ; *t86-6.21814d-2*(t237+t235+t234+t232+t231+t230)*t68*t84 5919 < +5.495546528376875d-3*t115*t143*t84+2.0d+0*t117*t118*t1 5920 = 19*t143*t68+t242+t241+t240+t239+t238+t221+t220+t219+t21 5921 > 8+t217+t215+t214+t213+t212+t210+t205+t204+t203)-4.78463 5922 ? 74908957684d-1*t141*t71*t75*t92*t95-1.1961593727239421d 5923 @ -1*t137*t70*t71*t92*t95+3.9503262643361536d-2*t146*t86* 5924 1 t90-1.243628d-1*t143*t68*t84-6.101282288702853d-19*t100 5925 2 *t27-2.0d+0*t104*t105*t106*t24-2.642079786267853d-3*t10 5926 3 0*t23+t201+t200+t199+t198+t197+t196+t195-rhoa*t190)+1.0 5927 4 d+0*(5.580255669359999d-103*t193*t243*t56*t59*t64-1.626 5928 5 4853333333332d-51*t154*t194*t56*t59*t64+8.8888888888888 5929 6 88d-50*t194*t55*t59*t64-4.0662133333333333d-101*t154*t1 5930 7 93*t59*t64+1.7777777777777776d-49*t194*t55*t56*t64-8.13 5931 8 2426666666667d-101*t154*t193*t56*t64+4.444444444444444d 5932 9 -99*t193*t55*t64+1.7777777777777776d-49*t194*t62*t63-8. 5933 : 132426666666666d-52*t194*t55*t59*t63+1.86008522312d-103 5934 ; *t154*t193*t59*t63-4.0662133333333333d-101*t193*t55*t63 5935 < +8.888888888888888d-50*t194*t61*t62-8.132426666666666d- 5936 = 52*t194*t55*t56*t61+1.86008522312d-103*t154*t193*t56*t6 5937 > 1-2.0331066666666667d-101*t193*t55*t61+5.58025566935999 5938 ? 9d-103*t193*t243*t58*t60-1.6264853333333332d-51*t154*t1 5939 @ 94*t58*t60+3.555555555555555d-49*t194*t55*t58*t59-1.626 5940 1 4853333333334d-100*t154*t193*t58*t59+8.888888888888888d 5941 2 -99*t193*t55*t58+5.580255669359999d-103*t193*t243*t53*t 5942 3 57-1.6264853333333332d-51*t154*t194*t53*t57+1.777777777 5943 4 7777776d-49*t194*t53*t55*t56-8.132426666666667d-101*t15 5944 5 4*t193*t53*t56+2.222222222222222d-99*t193*t53*t55)*t97+ 5945 6 2.0d+0*t153*t155)+t110*t55*(3.04966d-52*t155*t97+3.0496 5946 7 6d-52*t153*t65+3.04966d-52*t156)-8.132426666666666d-52* 5947 8 t194*t55*t65*t97+1.86008522312d-103*t154*t193*t65*t97+t 5948 9 4*(5.0d-1*rhoa*t29*(1.7777777777777776d-49*t194*t6*t7*t 5949 : 9+1.7777777777777776d-49*t14*t194*t7*t9-1.373568d-51*t1 5950 ; 2*t194*t7*t9-1.373568d-100*t108*t193*t6*t9-2.4724223999 5951 < 999997d-100*t108*t14*t193*t9+5.306312954879999d-103*t10 5952 = 8*t12*t193*t9+6.367575545855999d-152*t14*t191*t192*t9+2 5953 > .222222222222222d-99*t193*t6*t7+8.0d-99*t14*t193*t7-1.2 5954 ? 362111999999999d-100*t13*t193*t7-3.43392d-101*t12*t193* 5955 @ t7+2.3111111111111113d-98*t11*t193*t7-2.747136d-51*t10* 5956 1 t108*t194*t6+1.5918938864639998d-102*t10*t191*t193*t6+1 5957 2 .7777777777777776d-49*t13*t194*t4+8.888888888888888d-50 5958 3 *t12*t194*t4-2.7471359999999995d-150*t108*t14*t192+2.12 5959 4 25251819519997d-152*t108*t13*t192-1.53839616d-149*t108* 5960 5 t11*t192+2.5470302183424d-201*t11*t191/rhoa**8.66666666 5961 6 6666666d+0)+1.0d+0*t111*t29+5.0d-1*rhoa*t15*t190+1.0d+0 5962 7 *t107*t15+1.0d+0*rhoa*t107*t111)+t110*(5.15088d-52*t112 5963 8 -4.2923999999999995d-52*t15*t29)*t7+t1*(2.57544d-52*t11 5964 9 1*t29+2.57544d-52*t107*t15)*t7+2.6531564774399996d-103* 5965 : t108*t109*t15*t29)*wght+Amat2(iq,D2_RA_RA) 5966 Amat2(iq,D2_RA_RB) = (t62*(1.0d+0*(5.580255669359999d-103* 5967 1 t110*t169*t243*t56*t59*t64-4.0662133333333333d-101*t110 5968 2 *t154*t169*t59*t64-8.132426666666667d-101*t110*t154*t16 5969 3 9*t56*t64+4.444444444444444d-99*t110*t169*t55*t64+1.860 5970 4 08522312d-103*t110*t154*t169*t59*t63-4.0662133333333333 5971 5 d-101*t110*t169*t55*t63+1.86008522312d-103*t110*t154*t1 5972 6 69*t56*t61-2.0331066666666667d-101*t110*t169*t55*t61+5. 5973 7 580255669359999d-103*t110*t169*t243*t58*t60-1.626485333 5974 8 3333334d-100*t110*t154*t169*t58*t59+8.888888888888888d- 5975 9 99*t110*t169*t55*t58+5.580255669359999d-103*t110*t169*t 5976 : 243*t53*t57-8.132426666666667d-101*t110*t154*t169*t53*t 5977 ; 56+2.222222222222222d-99*t110*t169*t53*t55)*t97+1.0d+0* 5978 < t65*(t66*(7.176956236343652d-1*t236*t71*t75*t92*t95-5.9 5979 = 80796863619711d-2*t244*t70*t71*t92*t95-2.39231874544788 5980 > 42d-1*t141*t174*t71*t92*t95+2.3923187454478842d-1*t137* 5981 ? t141*t71*t92*t95+2.3923187454478842d-1*t139*t174*t70*t9 5982 @ 2*t95+2.3923187454478842d-1*t137*t139*t70*t92*t95+2.541 5983 1 232989148493d-3*t150*t174*t70*t95+2.541232989148493d-3* 5984 2 t137*t150*t70*t95+1.923661050931536d+0*t125*t126*t127*t 5985 3 174*t70*t71*t92+1.923661050931536d+0*t125*t126*t127*t13 5986 4 7*t70*t71*t92+1.9751631321680768d-2*(t250+t249+t248+t24 5987 5 7+t246+t245+1.923661050931536d+0*t244+t234)*t86*t90-4.5 5988 6 437964274821163d-4*t115*t179*t90-4.5437964274821163d-4* 5989 7 t115*t146*t90-5.848223622634647d-1*t121*t122*t123*t179* 5990 8 t86-5.848223622634647d-1*t121*t122*t123*t146*t86-6.2181 5991 9 4d-2*(t250+t249+t248+t247+t246+t245+t234)*t68*t84+2.747 5992 : 773264188437d-3*t115*t177*t84+2.747773264188437d-3*t115 5993 ; *t143*t84+1.0d+0*t117*t118*t119*t177*t68+1.0d+0*t117*t1 5994 < 18*t119*t143*t68+t241+t240+t239+t238+t221+t220+t219+t21 5995 = 8+t217+t215+t214+t213+t212+t210+t205+t204+t203)+t201+t2 5996 > 00+t199+t198+t197+t196+t195+t181+t180+t178+t149+t147+t1 5997 ? 44)+1.0d+0*t153*t183+1.0d+0*t155*t182)+1.86008522312d-1 5998 @ 03*t110*t154*t169*t65*t97+t110*(t252+t251)*t55+3.04966d 5999 1 -52*t156*t169*t55)*wght+Amat2(iq,D2_RA_RB) 6000 Amat2(iq,D2_RB_RB) = (t62*(1.0d+0*(-1.6264853333333332d-51 6001 1 *t154*t262*t56*t59*t64+5.580255669359999d-103*t243*t261 6002 2 *t56*t59*t64+8.888888888888888d-50*t262*t55*t59*t64-4.0 6003 3 662133333333333d-101*t154*t261*t59*t64+1.77777777777777 6004 4 76d-49*t262*t55*t56*t64-8.132426666666667d-101*t154*t26 6005 5 1*t56*t64+4.444444444444444d-99*t261*t55*t64+1.77777777 6006 6 77777776d-49*t262*t62*t63-8.132426666666666d-52*t262*t5 6007 7 5*t59*t63+1.86008522312d-103*t154*t261*t59*t63-4.066213 6008 8 3333333333d-101*t261*t55*t63+8.888888888888888d-50*t262 6009 9 *t61*t62-8.132426666666666d-52*t262*t55*t56*t61+1.86008 6010 : 522312d-103*t154*t261*t56*t61-2.0331066666666667d-101*t 6011 ; 261*t55*t61-1.6264853333333332d-51*t154*t262*t58*t60+5. 6012 < 580255669359999d-103*t243*t261*t58*t60+3.55555555555555 6013 = 5d-49*t262*t55*t58*t59-1.6264853333333334d-100*t154*t26 6014 > 1*t58*t59+8.888888888888888d-99*t261*t55*t58-1.62648533 6015 ? 33333332d-51*t154*t262*t53*t57+5.580255669359999d-103*t 6016 @ 243*t261*t53*t57+1.7777777777777776d-49*t262*t53*t55*t5 6017 1 6-8.132426666666667d-101*t154*t261*t53*t56+2.2222222222 6018 2 22222d-99*t261*t53*t55)*t97+1.0d+0*t65*(t66*(-1.9138549 6019 3 963583074d+0*t139*t141*t75*t92*t95-5.980796863619711d-2 6020 4 *t263*t70*t71*t92*t95+4.7846374908957684d-1*t141*t174*t 6021 5 71*t92*t95+4.7846374908957684d-1*t139*t174*t70*t92*t95- 6022 6 2.0329863913187946d-2*t141*t150*t75*t95+5.0824659782969 6023 7 86d-3*t150*t174*t70*t95-1.538928840745229d+1*t125*t126* 6024 8 t127*t141*t71*t75*t92+3.847322101863072d+0*t125*t126*t1 6025 9 27*t174*t70*t71*t92+1.9751631321680768d-2*(t267+t266+t2 6026 : 65+t264+1.923661050931536d+0*t263+t237+t234)*t86*t90-9. 6027 ; 087592854964233d-4*t115*t179*t90-1.1696447245269295d+0* 6028 < t121*t122*t123*t179*t86-6.21814d-2*(t267+t266+t265+t264 6029 = +t237+t234)*t68*t84+5.495546528376875d-3*t115*t177*t84+ 6030 > 2.0d+0*t117*t118*t119*t177*t68+t242+t241+t240+t239+t238 6031 ? +t221+t220+t219+t218+t217+t215+t214+t213+t212+t210+t205 6032 @ +t204+t203)+4.7846374908957684d-1*t141*t71*t75*t92*t95- 6033 1 1.1961593727239421d-1*t174*t70*t71*t92*t95+3.9503262643 6034 2 361536d-2*t179*t86*t90-1.243628d-1*t177*t68*t84-2.22044 6035 3 6049250313d-16*t157*t161*t162*t51-6.101282288702853d-19 6036 4 *t159*t50-2.0d+0*t163*t164*t165*t47-2.642079786267853d- 6037 5 3*t159*t46-rhob*t258+t201+t200+t199+t198+t197+t196+t195 6038 6 )+2.0d+0*t182*t183)-8.132426666666666d-52*t262*t55*t65* 6039 7 t97+1.86008522312d-103*t154*t261*t65*t97+t33*(5.0d-1*rh 6040 8 ob*t52*(-2.747136d-51*t167*t262*t37*t6+1.59189388646399 6041 9 98d-102*t259*t261*t37*t6+1.7777777777777776d-49*t262*t3 6042 : 4*t36*t6-1.373568d-100*t167*t261*t36*t6+2.2222222222222 6043 ; 22d-99*t261*t34*t6+1.7777777777777776d-49*t14*t262*t34* 6044 < t36-1.373568d-51*t12*t262*t34*t36-2.4724223999999997d-1 6045 = 00*t14*t167*t261*t36+5.306312954879999d-103*t12*t167*t2 6046 > 61*t36+6.367575545855999d-152*t14*t259*t260*t36+8.0d-99 6047 ? *t14*t261*t34-1.2362111999999999d-100*t13*t261*t34-3.43 6048 @ 392d-101*t12*t261*t34+2.3111111111111113d-98*t11*t261*t 6049 1 34+1.7777777777777776d-49*t13*t262*t33+8.88888888888888 6050 2 8d-50*t12*t262*t33-2.7471359999999995d-150*t14*t167*t26 6051 3 0+2.1225251819519997d-152*t13*t167*t260-1.53839616d-149 6052 4 *t11*t167*t260+2.5470302183424d-201*t11*t259/rhob**8.66 6053 5 6666666666666d+0)+1.0d+0*t170*t52+5.0d-1*rhob*t258*t38+ 6054 6 1.0d+0*t166*t38+1.0d+0*rhob*t166*t170)+t169*(t252+t251+ 6055 7 3.04966d-52*t184)*t55+t169*t34*(5.15088d-52*t171-4.2923 6056 8 999999999995d-52*t38*t52)+t30*t34*(2.57544d-52*t170*t52 6057 9 +2.57544d-52*t166*t38)+2.6531564774399996d-103*t167*t16 6058 : 8*t38*t52)*wght+Amat2(iq,D2_RB_RB) 6059 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 6060 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 6061 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 6062 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 6063 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 6064 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 6065 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 6066 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 6067 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 6068 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 6069 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 6070 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 6071 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 6072 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 6073 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 6074 Mmat2(iq,D2_RB_TB) = Mmat2(iq,D2_RB_TB) 6075 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 6076 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 6077 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 6078 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 6079 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 6080 Mmat2(iq,D2_GBB_TB) = Mmat2(iq,D2_GBB_TB) 6081 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 6082 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 6083 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 6084 endif 6085 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 6086 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 6087 t1 = 1/rhoa**6.666666666666666d-1 6088 t2 = rhoa**5.0d-1 6089 t3 = 1/t2 6090 t4 = 1/rhoa**3.333333333333333d-1 6091 t5 = 1/rhoa**1.6666666666666666d-1 6092 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 6093 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 6094 t7 = 3.216395899738507d+1/t6+1.0d+0 6095 t8 = log(t7) 6096 t9 = 1.274696188700087d-1*t4+1.0d+0 6097 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 6098 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 6099 t11 = 1.6081979498692536d+1/t10+1.0d+0 6100 t12 = log(t11) 6101 t13 = 1.3256889990520176d-1*t4+1.0d+0 6102 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 6103 1 12*t13 6104 t15 = 1/rhoa 6105 t16 = 1/taua 6106 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 6107 t18 = 1/rhoa**2.6666666666666666d+0 6108 t19 = 1/rhoa**1.6666666666666669d+0 6109 t20 = 2.0d+0*t19*taua 6110 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 6111 t22 = 1/t21 6112 t23 = param(10) 6113 t24 = gammaaa**2 6114 t25 = 1/rhoa**5.333333333333333d+0 6115 t26 = 1/t21**2 6116 t27 = param(11) 6117 t28 = t20-9.11559972d+0 6118 t29 = param(12) 6119 t30 = t28**2 6120 t31 = param(8) 6121 t32 = param(9) 6122 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 6123 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 6124 t34 = 1/rhoa**3.6666666666666664d+0 6125 t35 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 6126 1 0*gammaaa*t34 6127 t36 = 1/t21**3 6128 t37 = 1/rhoa**6.333333333333333d+0 6129 t38 = -3.3333333333333337d+0*t18*t22*t32*taua-6.6666666666 6130 1 66667d+0*t18*t26*t28*t29*taua-3.3333333333333337d+0*gam 6131 2 maaa*t25*t26*t27*taua-5.333333333333333d+0*t23*t24*t26* 6132 3 t37-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammaaa*t18 6133 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 6134 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammaaa*t18*t26*t31*t35 6135 6 -2.6666666666666666d+0*gammaaa*t22*t31*t34-2.6666666666 6136 7 666666d+0*gammaaa*t26*t27*t28*t34 6137 t39 = 1/t11 6138 t40 = 1/t2**3 6139 t41 = 1/rhoa**1.3333333333333333d+0 6140 t42 = 1/rhoa**1.1666666666666667d+0 6141 t43 = -9.970917392951799d-1*t42-7.418564737168958d-1*t41-4 6142 1 .002143174996817d-1*t40-1.264669550498372d-1*t19 6143 t44 = 1/t10**2 6144 t45 = 1/t7 6145 t46 = -1.8533958105157808d+0*t42-1.2815820791490704d+0*t41 6146 1 -8.223668877838045d-1*t40-1.6039141941921276d-1*t19 6147 t47 = 1/t6**2 6148 t48 = 1.0d+0*t45*t46*t47*t9+1.3210398931339265d-3*t41*t8+1 6149 1 .1102230246251565d-16*t13*t39*t43*t44+3.050641144351426 6150 2 4d-19*t12*t41 6151 t49 = 1.0d+0*rhoa*t17*t33*t48*wght+1.0d+0*rhoa*t14*t17*t38 6152 1 *wght+1.0d+0*t14*t17*t33*wght 6153 t50 = 1/rhoa**8 6154 t51 = -1.030176d-2*t23*t24*t36*t50-1.030176d-2*t18*t29*t30 6155 1 *t36-1.030176d-2*gammaaa*t25*t27*t28*t36-5.15088d-3*t18 6156 2 *t26*t28*t32-5.15088d-3*gammaaa*t25*t26*t31+t18*t22*t31 6157 3 +t18*t26*t27*t28+2*gammaaa*t23*t25*t26 6158 t52 = 1/rhoa**7 6159 t53 = 1/rhoa**4.333333333333333d+0 6160 t54 = -2.060352d-2*gammaaa*t27*t28*t36*t53-1.030176d-2*gam 6161 1 maaa*t26*t31*t53+2.0d+0*gammaaa*t26*t27*t53-2.060352d-2 6162 2 *t23*t24*t36*t52-2.060352d-2*t19*t29*t30*t36-1.030176d- 6163 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 6164 4 *t29 6165 t55 = taua**2 6166 t56 = 1/t55 6167 t57 = t35**2 6168 t58 = 1/rhoa**2 6169 t59 = 1/t21**4 6170 t60 = 1/rhoa**4.666666666666667d+0 6171 t61 = 8.88888888888889d+0*t34*taua+9.777777777777779d+0*ga 6172 1 mmaaa*t60 6173 t62 = t43**2 6174 t63 = 1/t2**5 6175 t64 = 1/rhoa**2.3333333333333334d+0 6176 t65 = 1/rhoa**2.1666666666666665d+0 6177 t66 = t46**2 6178 t67 = 1.25d-1*gammaaa*t14*t51*wght+1.25d-1*t14*t33*wght 6179 t68 = 1/rhoa**3.3333333333333337d+0 6180 t69 = 1/rhoa**6 6181 fnc(iq) = 1.0d+0*rhoa*t14*t17*t22*t33*wght+fnc(iq) 6182 Amat(iq,D1_RA) = -5.15088d-3*rhoa*t14*t17*t26*t33*t35*wght 6183 1 +1.25d-1*gammaaa*t14*t15*t16*t22*t33*wght+t22*t49+Amat( 6184 2 iq,D1_RA) 6185 Cmat(iq,D1_GAA) = 1.0d+0*rhoa*t14*t17*t22*t51*wght-5.15088 6186 1 d-3*t14*t17*t19*t26*t33*wght-1.25d-1*t14*t16*t22*t33*wg 6187 2 ht+Cmat(iq,D1_GAA) 6188 Mmat(iq,D1_TA) = 1.25d-1*gammaaa*t14*t22*t33*t56*wght+1.0d 6189 1 +0*rhoa*t14*t17*t22*t54*wght-1.030176d-2*t1*t14*t17*t26 6190 2 *t33*wght+Mmat(iq,D1_TA) 6191 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 6192 Amat2(iq,D2_RA_RA) = t22*(1.0d+0*rhoa*t14*t17*(2.666666666 6193 1 6666666d+1*gammaaa*t26*t27*t37*taua+1.373568d-1*t18*t28 6194 2 *t29*t35*t36*taua+6.867840000000001d-2*gammaaa*t25*t27* 6195 3 t35*t36*taua+3.4339200000000003d-2*t18*t26*t32*t35*taua 6196 4 +8.88888888888889d+0*t22*t32*t34*taua+1.777777777777777 6197 5 8d+1*t26*t28*t29*t34*taua-1.030176d-2*t29*t30*t36*t61-1 6198 6 .030176d-2*gammaaa*t18*t27*t28*t36*t61-1.030176d-2*t23* 6199 7 t24*t25*t36*t61-5.15088d-3*t26*t28*t32*t61-5.15088d-3*g 6200 8 ammaaa*t18*t26*t31*t61+9.777777777777779d+0*gammaaa*t22 6201 9 *t31*t60+9.777777777777779d+0*gammaaa*t26*t27*t28*t60+1 6202 : .591893886464d-4*t29*t30*t57*t59+1.591893886464d-4*gamm 6203 ; aaa*t18*t27*t28*t57*t59+1.591893886464d-4*t23*t24*t25*t 6204 < 57*t59+5.30631295488d-5*t28*t32*t36*t57+5.30631295488d- 6205 = 5*gammaaa*t18*t31*t36*t57+2.2222222222222224d+1*t25*t26 6206 > *t29*t55+1.0988544d-1*t23*t24*t35*t36*t37+5.494272d-2*g 6207 ? ammaaa*t27*t28*t34*t35*t36+2.747136d-2*gammaaa*t26*t31* 6208 @ t34*t35+3.377777777777778d+1*t23*t24*t26/rhoa**7.333333 6209 1 333333333d+0)*wght+1.0d+0*rhoa*t17*t33*(3.2163958997385 6210 2 07d+1*t66*t9/(t6**4*t7**2)-2.0d+0*t45*t66*t9/t6**3+1.0d 6211 3 +0*t45*t47*(2.1622951122684114d+0*t65+1.708776105532093 6212 4 8d+0*t64+1.2335503316757068d+0*t63+2.673190323653546d-1 6213 5 *t18)*t9-1.7613865241785684d-3*t64*t8+1.110223024625156 6214 6 5d-16*t13*t39*t44*(1.1632736958443765d+0*t65+9.89141964 6215 7 955861d-1*t64+6.003214762495226d-1*t63+2.10778258416395 6216 8 36d-1*t18)-4.0675215258019015d-19*t12*t64-2.22044604925 6217 9 0313d-16*t13*t39*t62/t10**3+1.7854583920998188d-15*t13* 6218 : t62/(t10**4*t11**2)-8.497974591333913d-2*t41*t45*t46*t4 6219 ; 7-9.812069668265515d-18*t39*t41*t43*t44)*wght+1.25d-1*g 6220 < ammaaa*t14*t16*t33*t58*wght+2.0d+0*rhoa*t17*t38*t48*wgh 6221 = t+2.0d+0*t17*t33*t48*wght+1.25d-1*gammaaa*t15*t16*t33*t 6222 > 48*wght+2.0d+0*t14*t17*t38*wght+1.25d-1*gammaaa*t14*t15 6223 ? *t16*t38*wght)+t26*(-5.15088d-3*rhoa*t14*t17*t33*t61*wg 6224 @ ht-5.15088d-3*rhoa*t17*t33*t35*t48*wght-5.15088d-3*rhoa 6225 1 *t14*t17*t35*t38*wght-5.15088d-3*t14*t17*t33*t35*wght-5 6226 2 .15088d-3*t35*t49)+t15*t16*t22*(1.25d-1*gammaaa*t33*t48 6227 3 *wght+1.25d-1*gammaaa*t14*t38*wght)-1.25d-1*gammaaa*t14 6228 4 *t16*t22*t33*t58*wght+5.30631295488d-5*rhoa*t14*t17*t33 6229 5 *t36*t57*wght-1.28772d-3*gammaaa*t14*t15*t16*t26*t33*t3 6230 6 5*wght+Amat2(iq,D2_RA_RA) 6231 Cmat2(iq,D2_RA_GAA) = t22*(1.0d+0*rhoa*t14*t17*(3.43392000 6232 1 00000003d-2*gammaaa*t27*t36*t50*taua+6.867840000000001d 6233 2 -2*t25*t28*t29*t36*taua+1.7169600000000002d-2*t25*t26*t 6234 3 32*taua-3.3333333333333337d+0*t25*t26*t27*taua+1.591893 6235 4 886464d-4*t23*t24*t35*t50*t59+1.591893886464d-4*t18*t29 6236 5 *t30*t35*t59+1.591893886464d-4*gammaaa*t25*t27*t28*t35* 6237 6 t59+5.494272d-2*gammaaa*t27*t28*t36*t37+2.747136d-2*gam 6238 7 maaa*t26*t31*t37-1.0666666666666666d+1*gammaaa*t23*t26* 6239 8 t37+5.30631295488d-5*t18*t28*t32*t35*t36+5.30631295488d 6240 9 -5*gammaaa*t25*t31*t35*t36-1.030176d-2*t18*t27*t28*t35* 6241 : t36-2.060352d-2*gammaaa*t23*t25*t35*t36+2.747136d-2*t29 6242 ; *t30*t34*t36+8.241408d-2*t23*t24*t36/rhoa**9-5.15088d-3 6243 < *t18*t26*t31*t35+1.373568d-2*t26*t28*t32*t34-2.66666666 6244 = 66666666d+0*t22*t31*t34-2.6666666666666666d+0*t26*t27*t 6245 > 28*t34)*wght+1.0d+0*rhoa*t17*t48*t51*wght+1.0d+0*t14*t1 6246 ? 7*t51*wght-1.25d-1*t16*t33*t48*wght-1.25d-1*t14*t16*t38 6247 @ *wght-1.25d-1*t14*t15*t16*t33*wght)+t18*t26*(1.373568d- 6248 1 2*t14*t17*t33*wght-5.15088d-3*t49)-5.15088d-3*rhoa*t14* 6249 2 t17*t26*t35*t51*wght+5.30631295488d-5*t14*t17*t19*t33*t 6250 3 35*t36*wght+6.4386d-4*t14*t16*t26*t33*t35*wght-6.4386d- 6251 4 4*gammaaa*t14*t16*t26*t33*t34*wght+t15*t16*t22*t67+Cmat 6252 5 2(iq,D2_RA_GAA) 6253 Cmat2(iq,D2_GAA_GAA) = 1.0d+0*rhoa*t14*t17*t22*(1.59189388 6254 1 6464d-4*gammaaa*t27*t28*t50*t59+1.591893886464d-4*t25*t 6255 2 29*t30*t59+1.591893886464d-4*t23*t24*t59/rhoa**1.066666 6256 3 6666666666d+1+5.30631295488d-5*gammaaa*t31*t36*t50-4.12 6257 4 0704d-2*gammaaa*t23*t36*t50+5.30631295488d-5*t25*t28*t3 6258 5 2*t36-2.060352d-2*t25*t27*t28*t36-1.030176d-2*t25*t26*t 6259 6 31+2*t23*t25*t26)*wght+5.30631295488d-5*t14*t17*t33*t36 6260 7 *t53*wght-1.030176d-2*t14*t17*t19*t26*t51*wght-2.5d-1*t 6261 8 14*t16*t22*t51*wght+1.28772d-3*t14*t16*t18*t26*t33*wght 6262 9 +Cmat2(iq,D2_GAA_GAA) 6263 Mmat2(iq,D2_RA_TA) = t22*(1.0d+0*rhoa*t14*t17*(1.373568d-1 6264 1 *t28*t29*t36*t53*taua+3.4339200000000003d-2*t26*t32*t53 6265 2 *taua-1.3333333333333333d+1*t26*t29*t53*taua+6.86784000 6266 3 0000001d-2*gammaaa*t27*t36*t52*taua+3.183787772928d-4*g 6267 4 ammaaa*t27*t28*t35*t53*t59+3.183787772928d-4*t23*t24*t3 6268 5 5*t52*t59+3.183787772928d-4*t19*t29*t30*t35*t59+1.06126 6269 6 2590976d-4*gammaaa*t31*t35*t36*t53-2.060352d-2*gammaaa* 6270 7 t27*t35*t36*t53+1.4422464000000002d-1*t23*t24*t36*t50+1 6271 8 .061262590976d-4*t19*t28*t32*t35*t36-4.120704d-2*t19*t2 6272 9 8*t29*t35*t36+3.4339200000000003d-2*t18*t29*t30*t36+8.9 6273 : 28192d-2*gammaaa*t25*t27*t28*t36-1.030176d-2*t19*t26*t3 6274 ; 2*t35+1.7169600000000002d-2*t18*t26*t28*t32-3.333333333 6275 < 3333337d+0*t18*t22*t32+4.464096d-2*gammaaa*t25*t26*t31- 6276 = 6.666666666666667d+0*t18*t26*t28*t29-8.666666666666666d 6277 > +0*gammaaa*t25*t26*t27)*wght+1.25d-1*gammaaa*t33*t48*t5 6278 ? 6*wght+1.25d-1*gammaaa*t14*t38*t56*wght+1.25d-1*gammaaa 6279 @ *t14*t15*t33*t56*wght+1.0d+0*rhoa*t17*t48*t54*wght+1.0d 6280 1 +0*t14*t17*t54*wght)+t19*t26*(1.7169600000000002d-2*t14 6281 2 *t17*t33*wght-1.030176d-2*t49)-6.4386d-4*gammaaa*t14*t2 6282 3 6*t33*t35*t56*wght-1.25d-1*gammaaa*t14*t15*t22*t33*t56* 6283 4 wght-5.15088d-3*rhoa*t14*t17*t26*t35*t54*wght+1.25d-1*g 6284 5 ammaaa*t14*t15*t16*t22*t54*wght+1.061262590976d-4*t1*t1 6285 6 4*t17*t33*t35*t36*wght-1.28772d-3*gammaaa*t14*t16*t18*t 6286 7 26*t33*wght+Mmat2(iq,D2_RA_TA) 6287 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 6288 Mmat2(iq,D2_GAA_TA) = 1.061262590976d-4*t14*t17*t33*t36*t6 6289 1 8*wght+1.0d+0*rhoa*t14*t17*t22*(3.183787772928d-4*t29*t 6290 2 30*t53*t59+3.183787772928d-4*gammaaa*t27*t28*t52*t59+3. 6291 3 183787772928d-4*t23*t24*t59/rhoa**9.666666666666666d+0+ 6292 4 1.061262590976d-4*t28*t32*t36*t53-4.120704d-2*t28*t29*t 6293 5 36*t53-2.060352d-2*t27*t28*t36*t53-1.030176d-2*t26*t32* 6294 6 t53-1.030176d-2*t26*t31*t53+2.0d+0*t26*t27*t53+1.061262 6295 7 590976d-4*gammaaa*t31*t36*t52-2.060352d-2*gammaaa*t27*t 6296 8 36*t52-4.120704d-2*gammaaa*t23*t36*t52)*wght-6.4386d-4* 6297 9 gammaaa*t14*t18*t26*t33*t56*wght-5.15088d-3*t14*t17*t19 6298 : *t26*t54*wght-1.25d-1*t14*t16*t22*t54*wght-1.030176d-2* 6299 ; t1*t14*t17*t26*t51*wght+1.28772d-3*t14*t16*t19*t26*t33* 6300 < wght+t22*t56*t67+Mmat2(iq,D2_GAA_TA) 6301 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 6302 Mmat2(iq,D2_TA_TA) = -2.5d-1*gammaaa*t14*t22*t33*wght/taua 6303 1 **3+1.0d+0*rhoa*t14*t17*t22*(6.367575545856d-4*gammaaa* 6304 2 t27*t28*t59*t69+2.122525181952d-4*gammaaa*t31*t36*t69-8 6305 3 .241408d-2*gammaaa*t27*t36*t69+6.367575545856d-4*t29*t3 6306 4 0*t59*t68+2.122525181952d-4*t28*t32*t36*t68-1.6482816d- 6307 5 1*t28*t29*t36*t68-4.120704d-2*t26*t32*t68+8.0d+0*t26*t2 6308 6 9*t68+6.367575545856d-4*t23*t24*t59/rhoa**8.66666666666 6309 7 6666d+0)*wght+2.122525181952d-4*t14*t17*t33*t36*t64*wgh 6310 8 t+2.5d-1*gammaaa*t14*t22*t54*t56*wght-2.57544d-3*gammaa 6311 9 a*t14*t19*t26*t33*t56*wght-2.060352d-2*t1*t14*t17*t26*t 6312 : 54*wght+Mmat2(iq,D2_TA_TA) 6313 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 6314 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 6315 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 6316 t1 = 1/rhoa**6.666666666666666d-1 6317 t2 = rhoa**5.0d-1 6318 t3 = 1/t2 6319 t4 = 1/rhoa**3.333333333333333d-1 6320 t5 = 1/rhoa**1.6666666666666666d-1 6321 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 6322 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 6323 t7 = 3.216395899738507d+1/t6+1.0d+0 6324 t8 = log(t7) 6325 t9 = 1.274696188700087d-1*t4+1.0d+0 6326 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 6327 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 6328 t11 = 1.6081979498692536d+1/t10+1.0d+0 6329 t12 = log(t11) 6330 t13 = 1.3256889990520176d-1*t4+1.0d+0 6331 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 6332 1 12*t13 6333 t15 = 1/rhoa 6334 t16 = 1/taua 6335 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 6336 t18 = 1/rhoa**2.6666666666666666d+0 6337 t19 = 1/rhoa**1.6666666666666669d+0 6338 t20 = 2.0d+0*t19*taua 6339 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 6340 t22 = 1/t21 6341 t23 = param(10) 6342 t24 = gammaaa**2 6343 t25 = 1/rhoa**5.333333333333333d+0 6344 t26 = 1/t21**2 6345 t27 = param(11) 6346 t28 = t20-9.11559972d+0 6347 t29 = param(12) 6348 t30 = t28**2 6349 t31 = param(8) 6350 t32 = param(9) 6351 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 6352 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 6353 t34 = 1/rhoa**3.6666666666666664d+0 6354 t35 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 6355 1 0*gammaaa*t34 6356 t36 = 1/t21**3 6357 t37 = 1/rhoa**6.333333333333333d+0 6358 t38 = -3.3333333333333337d+0*t18*t22*t32*taua-6.6666666666 6359 1 66667d+0*t18*t26*t28*t29*taua-3.3333333333333337d+0*gam 6360 2 maaa*t25*t26*t27*taua-5.333333333333333d+0*t23*t24*t26* 6361 3 t37-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammaaa*t18 6362 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 6363 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammaaa*t18*t26*t31*t35 6364 6 -2.6666666666666666d+0*gammaaa*t22*t31*t34-2.6666666666 6365 7 666666d+0*gammaaa*t26*t27*t28*t34 6366 t39 = 1/t11 6367 t40 = 1/t2**3 6368 t41 = 1/rhoa**1.3333333333333333d+0 6369 t42 = 1/rhoa**1.1666666666666667d+0 6370 t43 = -9.970917392951799d-1*t42-7.418564737168958d-1*t41-4 6371 1 .002143174996817d-1*t40-1.264669550498372d-1*t19 6372 t44 = 1/t10**2 6373 t45 = 1/t7 6374 t46 = -1.8533958105157808d+0*t42-1.2815820791490704d+0*t41 6375 1 -8.223668877838045d-1*t40-1.6039141941921276d-1*t19 6376 t47 = 1/t6**2 6377 t48 = 1.0d+0*t45*t46*t47*t9+1.3210398931339265d-3*t41*t8+1 6378 1 .1102230246251565d-16*t13*t39*t43*t44+3.050641144351426 6379 2 4d-19*t12*t41 6380 t49 = 1.0d+0*rhoa*t17*t33*t48*wght+1.0d+0*rhoa*t14*t17*t38 6381 1 *wght+1.0d+0*t14*t17*t33*wght 6382 t50 = 1/rhoa**8 6383 t51 = -1.030176d-2*t23*t24*t36*t50-1.030176d-2*t18*t29*t30 6384 1 *t36-1.030176d-2*gammaaa*t25*t27*t28*t36-5.15088d-3*t18 6385 2 *t26*t28*t32-5.15088d-3*gammaaa*t25*t26*t31+t18*t22*t31 6386 3 +t18*t26*t27*t28+2*gammaaa*t23*t25*t26 6387 t52 = 1/rhoa**7 6388 t53 = 1/rhoa**4.333333333333333d+0 6389 t54 = -2.060352d-2*gammaaa*t27*t28*t36*t53-1.030176d-2*gam 6390 1 maaa*t26*t31*t53+2.0d+0*gammaaa*t26*t27*t53-2.060352d-2 6391 2 *t23*t24*t36*t52-2.060352d-2*t19*t29*t30*t36-1.030176d- 6392 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 6393 4 *t29 6394 t55 = taua**2 6395 t56 = 1/t55 6396 t57 = t35**2 6397 t58 = 1/rhoa**2 6398 t59 = 1/t21**4 6399 t60 = 1/rhoa**4.666666666666667d+0 6400 t61 = 8.88888888888889d+0*t34*taua+9.777777777777779d+0*ga 6401 1 mmaaa*t60 6402 t62 = t43**2 6403 t63 = 1/t2**5 6404 t64 = 1/rhoa**2.3333333333333334d+0 6405 t65 = 1/rhoa**2.1666666666666665d+0 6406 t66 = t46**2 6407 t67 = 1.25d-1*gammaaa*t14*t51*wght+1.25d-1*t14*t33*wght 6408 t68 = 1/rhoa**3.3333333333333337d+0 6409 t69 = 1/rhoa**6 6410 fnc(iq) = 1.0d+0*rhoa*t14*t17*t22*t33*wght+fnc(iq) 6411 Amat(iq,D1_RA) = -5.15088d-3*rhoa*t14*t17*t26*t33*t35*wght 6412 1 +1.25d-1*gammaaa*t14*t15*t16*t22*t33*wght+t22*t49+Amat( 6413 2 iq,D1_RA) 6414 Cmat(iq,D1_GAA) = 1.0d+0*rhoa*t14*t17*t22*t51*wght-5.15088 6415 1 d-3*t14*t17*t19*t26*t33*wght-1.25d-1*t14*t16*t22*t33*wg 6416 2 ht+Cmat(iq,D1_GAA) 6417 Mmat(iq,D1_TA) = 1.25d-1*gammaaa*t14*t22*t33*t56*wght+1.0d 6418 1 +0*rhoa*t14*t17*t22*t54*wght-1.030176d-2*t1*t14*t17*t26 6419 2 *t33*wght+Mmat(iq,D1_TA) 6420 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 6421 Amat2(iq,D2_RA_RA) = t22*(1.0d+0*rhoa*t14*t17*(2.666666666 6422 1 6666666d+1*gammaaa*t26*t27*t37*taua+1.373568d-1*t18*t28 6423 2 *t29*t35*t36*taua+6.867840000000001d-2*gammaaa*t25*t27* 6424 3 t35*t36*taua+3.4339200000000003d-2*t18*t26*t32*t35*taua 6425 4 +8.88888888888889d+0*t22*t32*t34*taua+1.777777777777777 6426 5 8d+1*t26*t28*t29*t34*taua-1.030176d-2*t29*t30*t36*t61-1 6427 6 .030176d-2*gammaaa*t18*t27*t28*t36*t61-1.030176d-2*t23* 6428 7 t24*t25*t36*t61-5.15088d-3*t26*t28*t32*t61-5.15088d-3*g 6429 8 ammaaa*t18*t26*t31*t61+9.777777777777779d+0*gammaaa*t22 6430 9 *t31*t60+9.777777777777779d+0*gammaaa*t26*t27*t28*t60+1 6431 : .591893886464d-4*t29*t30*t57*t59+1.591893886464d-4*gamm 6432 ; aaa*t18*t27*t28*t57*t59+1.591893886464d-4*t23*t24*t25*t 6433 < 57*t59+5.30631295488d-5*t28*t32*t36*t57+5.30631295488d- 6434 = 5*gammaaa*t18*t31*t36*t57+2.2222222222222224d+1*t25*t26 6435 > *t29*t55+1.0988544d-1*t23*t24*t35*t36*t37+5.494272d-2*g 6436 ? ammaaa*t27*t28*t34*t35*t36+2.747136d-2*gammaaa*t26*t31* 6437 @ t34*t35+3.377777777777778d+1*t23*t24*t26/rhoa**7.333333 6438 1 333333333d+0)*wght+1.0d+0*rhoa*t17*t33*(3.2163958997385 6439 2 07d+1*t66*t9/(t6**4*t7**2)-2.0d+0*t45*t66*t9/t6**3+1.0d 6440 3 +0*t45*t47*(2.1622951122684114d+0*t65+1.708776105532093 6441 4 8d+0*t64+1.2335503316757068d+0*t63+2.673190323653546d-1 6442 5 *t18)*t9-1.7613865241785684d-3*t64*t8+1.110223024625156 6443 6 5d-16*t13*t39*t44*(1.1632736958443765d+0*t65+9.89141964 6444 7 955861d-1*t64+6.003214762495226d-1*t63+2.10778258416395 6445 8 36d-1*t18)-4.0675215258019015d-19*t12*t64-2.22044604925 6446 9 0313d-16*t13*t39*t62/t10**3+1.7854583920998188d-15*t13* 6447 : t62/(t10**4*t11**2)-8.497974591333913d-2*t41*t45*t46*t4 6448 ; 7-9.812069668265515d-18*t39*t41*t43*t44)*wght+1.25d-1*g 6449 < ammaaa*t14*t16*t33*t58*wght+2.0d+0*rhoa*t17*t38*t48*wgh 6450 = t+2.0d+0*t17*t33*t48*wght+1.25d-1*gammaaa*t15*t16*t33*t 6451 > 48*wght+2.0d+0*t14*t17*t38*wght+1.25d-1*gammaaa*t14*t15 6452 ? *t16*t38*wght)+t26*(-5.15088d-3*rhoa*t14*t17*t33*t61*wg 6453 @ ht-5.15088d-3*rhoa*t17*t33*t35*t48*wght-5.15088d-3*rhoa 6454 1 *t14*t17*t35*t38*wght-5.15088d-3*t14*t17*t33*t35*wght-5 6455 2 .15088d-3*t35*t49)+t15*t16*t22*(1.25d-1*gammaaa*t33*t48 6456 3 *wght+1.25d-1*gammaaa*t14*t38*wght)-1.25d-1*gammaaa*t14 6457 4 *t16*t22*t33*t58*wght+5.30631295488d-5*rhoa*t14*t17*t33 6458 5 *t36*t57*wght-1.28772d-3*gammaaa*t14*t15*t16*t26*t33*t3 6459 6 5*wght+Amat2(iq,D2_RA_RA) 6460 Cmat2(iq,D2_RA_GAA) = t22*(1.0d+0*rhoa*t14*t17*(3.43392000 6461 1 00000003d-2*gammaaa*t27*t36*t50*taua+6.867840000000001d 6462 2 -2*t25*t28*t29*t36*taua+1.7169600000000002d-2*t25*t26*t 6463 3 32*taua-3.3333333333333337d+0*t25*t26*t27*taua+1.591893 6464 4 886464d-4*t23*t24*t35*t50*t59+1.591893886464d-4*t18*t29 6465 5 *t30*t35*t59+1.591893886464d-4*gammaaa*t25*t27*t28*t35* 6466 6 t59+5.494272d-2*gammaaa*t27*t28*t36*t37+2.747136d-2*gam 6467 7 maaa*t26*t31*t37-1.0666666666666666d+1*gammaaa*t23*t26* 6468 8 t37+5.30631295488d-5*t18*t28*t32*t35*t36+5.30631295488d 6469 9 -5*gammaaa*t25*t31*t35*t36-1.030176d-2*t18*t27*t28*t35* 6470 : t36-2.060352d-2*gammaaa*t23*t25*t35*t36+2.747136d-2*t29 6471 ; *t30*t34*t36+8.241408d-2*t23*t24*t36/rhoa**9-5.15088d-3 6472 < *t18*t26*t31*t35+1.373568d-2*t26*t28*t32*t34-2.66666666 6473 = 66666666d+0*t22*t31*t34-2.6666666666666666d+0*t26*t27*t 6474 > 28*t34)*wght+1.0d+0*rhoa*t17*t48*t51*wght+1.0d+0*t14*t1 6475 ? 7*t51*wght-1.25d-1*t16*t33*t48*wght-1.25d-1*t14*t16*t38 6476 @ *wght-1.25d-1*t14*t15*t16*t33*wght)+t18*t26*(1.373568d- 6477 1 2*t14*t17*t33*wght-5.15088d-3*t49)-5.15088d-3*rhoa*t14* 6478 2 t17*t26*t35*t51*wght+5.30631295488d-5*t14*t17*t19*t33*t 6479 3 35*t36*wght+6.4386d-4*t14*t16*t26*t33*t35*wght-6.4386d- 6480 4 4*gammaaa*t14*t16*t26*t33*t34*wght+t15*t16*t22*t67+Cmat 6481 5 2(iq,D2_RA_GAA) 6482 Cmat2(iq,D2_GAA_GAA) = 1.0d+0*rhoa*t14*t17*t22*(1.59189388 6483 1 6464d-4*gammaaa*t27*t28*t50*t59+1.591893886464d-4*t25*t 6484 2 29*t30*t59+1.591893886464d-4*t23*t24*t59/rhoa**1.066666 6485 3 6666666666d+1+5.30631295488d-5*gammaaa*t31*t36*t50-4.12 6486 4 0704d-2*gammaaa*t23*t36*t50+5.30631295488d-5*t25*t28*t3 6487 5 2*t36-2.060352d-2*t25*t27*t28*t36-1.030176d-2*t25*t26*t 6488 6 31+2*t23*t25*t26)*wght+5.30631295488d-5*t14*t17*t33*t36 6489 7 *t53*wght-1.030176d-2*t14*t17*t19*t26*t51*wght-2.5d-1*t 6490 8 14*t16*t22*t51*wght+1.28772d-3*t14*t16*t18*t26*t33*wght 6491 9 +Cmat2(iq,D2_GAA_GAA) 6492 Mmat2(iq,D2_RA_TA) = t22*(1.0d+0*rhoa*t14*t17*(1.373568d-1 6493 1 *t28*t29*t36*t53*taua+3.4339200000000003d-2*t26*t32*t53 6494 2 *taua-1.3333333333333333d+1*t26*t29*t53*taua+6.86784000 6495 3 0000001d-2*gammaaa*t27*t36*t52*taua+3.183787772928d-4*g 6496 4 ammaaa*t27*t28*t35*t53*t59+3.183787772928d-4*t23*t24*t3 6497 5 5*t52*t59+3.183787772928d-4*t19*t29*t30*t35*t59+1.06126 6498 6 2590976d-4*gammaaa*t31*t35*t36*t53-2.060352d-2*gammaaa* 6499 7 t27*t35*t36*t53+1.4422464000000002d-1*t23*t24*t36*t50+1 6500 8 .061262590976d-4*t19*t28*t32*t35*t36-4.120704d-2*t19*t2 6501 9 8*t29*t35*t36+3.4339200000000003d-2*t18*t29*t30*t36+8.9 6502 : 28192d-2*gammaaa*t25*t27*t28*t36-1.030176d-2*t19*t26*t3 6503 ; 2*t35+1.7169600000000002d-2*t18*t26*t28*t32-3.333333333 6504 < 3333337d+0*t18*t22*t32+4.464096d-2*gammaaa*t25*t26*t31- 6505 = 6.666666666666667d+0*t18*t26*t28*t29-8.666666666666666d 6506 > +0*gammaaa*t25*t26*t27)*wght+1.25d-1*gammaaa*t33*t48*t5 6507 ? 6*wght+1.25d-1*gammaaa*t14*t38*t56*wght+1.25d-1*gammaaa 6508 @ *t14*t15*t33*t56*wght+1.0d+0*rhoa*t17*t48*t54*wght+1.0d 6509 1 +0*t14*t17*t54*wght)+t19*t26*(1.7169600000000002d-2*t14 6510 2 *t17*t33*wght-1.030176d-2*t49)-6.4386d-4*gammaaa*t14*t2 6511 3 6*t33*t35*t56*wght-1.25d-1*gammaaa*t14*t15*t22*t33*t56* 6512 4 wght-5.15088d-3*rhoa*t14*t17*t26*t35*t54*wght+1.25d-1*g 6513 5 ammaaa*t14*t15*t16*t22*t54*wght+1.061262590976d-4*t1*t1 6514 6 4*t17*t33*t35*t36*wght-1.28772d-3*gammaaa*t14*t16*t18*t 6515 7 26*t33*wght+Mmat2(iq,D2_RA_TA) 6516 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 6517 Mmat2(iq,D2_GAA_TA) = 1.061262590976d-4*t14*t17*t33*t36*t6 6518 1 8*wght+1.0d+0*rhoa*t14*t17*t22*(3.183787772928d-4*t29*t 6519 2 30*t53*t59+3.183787772928d-4*gammaaa*t27*t28*t52*t59+3. 6520 3 183787772928d-4*t23*t24*t59/rhoa**9.666666666666666d+0+ 6521 4 1.061262590976d-4*t28*t32*t36*t53-4.120704d-2*t28*t29*t 6522 5 36*t53-2.060352d-2*t27*t28*t36*t53-1.030176d-2*t26*t32* 6523 6 t53-1.030176d-2*t26*t31*t53+2.0d+0*t26*t27*t53+1.061262 6524 7 590976d-4*gammaaa*t31*t36*t52-2.060352d-2*gammaaa*t27*t 6525 8 36*t52-4.120704d-2*gammaaa*t23*t36*t52)*wght-6.4386d-4* 6526 9 gammaaa*t14*t18*t26*t33*t56*wght-5.15088d-3*t14*t17*t19 6527 : *t26*t54*wght-1.25d-1*t14*t16*t22*t54*wght-1.030176d-2* 6528 ; t1*t14*t17*t26*t51*wght+1.28772d-3*t14*t16*t19*t26*t33* 6529 < wght+t22*t56*t67+Mmat2(iq,D2_GAA_TA) 6530 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 6531 Mmat2(iq,D2_TA_TA) = -2.5d-1*gammaaa*t14*t22*t33*wght/taua 6532 1 **3+1.0d+0*rhoa*t14*t17*t22*(6.367575545856d-4*gammaaa* 6533 2 t27*t28*t59*t69+2.122525181952d-4*gammaaa*t31*t36*t69-8 6534 3 .241408d-2*gammaaa*t27*t36*t69+6.367575545856d-4*t29*t3 6535 4 0*t59*t68+2.122525181952d-4*t28*t32*t36*t68-1.6482816d- 6536 5 1*t28*t29*t36*t68-4.120704d-2*t26*t32*t68+8.0d+0*t26*t2 6537 6 9*t68+6.367575545856d-4*t23*t24*t59/rhoa**8.66666666666 6538 7 6666d+0)*wght+2.122525181952d-4*t14*t17*t33*t36*t64*wgh 6539 8 t+2.5d-1*gammaaa*t14*t22*t54*t56*wght-2.57544d-3*gammaa 6540 9 a*t14*t19*t26*t33*t56*wght-2.060352d-2*t1*t14*t17*t26*t 6541 : 54*wght+Mmat2(iq,D2_TA_TA) 6542 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 6543 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 6544 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 6545 t1 = 1/rhoa**1.6666666666666669d+0 6546 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 6547 t3 = 1/t2 6548 t4 = param(12) 6549 t5 = 1/t2**2 6550 t6 = 2.0d-50*t1-9.11559972d+0 6551 t7 = t6**2 6552 t8 = param(10) 6553 t9 = param(9) 6554 t10 = param(8) 6555 t11 = param(11) 6556 t12 = t3*t6*t9+1.6d-99*t5*t8/rhoa**3.3333333333333337d+0+t 6557 1 4*t5*t7+4.0d-50*t1*t11*t5*t6+4.0d-50*t1*t10*t3+param(7) 6558 t13 = 1/rhoa**6.666666666666666d-1 6559 t14 = rhoa**5.0d-1 6560 t15 = 1/t14 6561 t16 = 1/rhoa**3.333333333333333d-1 6562 t17 = 1/rhoa**1.6666666666666666d-1 6563 t18 = 1.1120374863094686d+1*t17+3.8447462374472113d+0*t16+ 6564 1 1.644733775567609d+0*t15+2.4058712912881916d-1*t13 6565 t19 = 3.216395899738507d+1/t18+1.0d+0 6566 t20 = log(t19) 6567 t21 = 1.274696188700087d-1*t16+1.0d+0 6568 t22 = 5.982550435771079d+0*t17+2.2255694211506874d+0*t16+8 6569 1 .004286349993635d-1*t15+1.8970043257475583d-1*t13 6570 t23 = 1.6081979498692536d+1/t22+1.0d+0 6571 t24 = log(t23) 6572 t25 = 1.3256889990520176d-1*t16+1.0d+0 6573 t26 = -6.903522198342671d-18*t24*t25-3.1090699999999993d-2 6574 1 *t20*t21 6575 t27 = 1/t23 6576 t28 = 1/t14**3 6577 t29 = 1/rhoa**1.3333333333333333d+0 6578 t30 = 1/rhoa**1.1666666666666667d+0 6579 t31 = -9.970917392951799d-1*t30-7.418564737168958d-1*t29-4 6580 1 .002143174996817d-1*t28-1.264669550498372d-1*t1 6581 t32 = 1/t22**2 6582 t33 = 1/t19 6583 t34 = -1.8533958105157808d+0*t30-1.2815820791490704d+0*t29 6584 1 -8.223668877838045d-1*t28-1.6039141941921276d-1*t1 6585 t35 = 1/t18**2 6586 t36 = 1.0d+0*t21*t33*t34*t35+1.1102230246251565d-16*t25*t2 6587 1 7*t31*t32+3.0506411443514264d-19*t24*t29+1.321039893133 6588 2 9265d-3*t20*t29 6589 t37 = 1/t2**3 6590 t38 = 1/rhoa**4.333333333333333d+0 6591 t39 = 1/rhoa**2.6666666666666666d+0 6592 t40 = 5.15088d-52*t39*t5*t6*t9-3.333333333333333d-50*t3*t3 6593 1 9*t9-5.333333333333334d-99*t38*t5*t8+1.6482816d-150*t37 6594 2 *t8/rhoa**6+1.030176d-51*t37*t39*t4*t7-6.66666666666666 6595 3 6d-50*t39*t4*t5*t6-6.666666666666666d-50*t11*t39*t5*t6+ 6596 4 4.1207039999999995d-101*t11*t37*t38*t6-1.33333333333333 6597 5 33d-99*t11*t38*t5+2.0603519999999997d-101*t10*t38*t5-6. 6598 6 666666666666666d-50*t10*t3*t39 6599 t41 = 5.0d-1*rhoa*t26*t40*wght+5.0d-1*rhoa*t12*t36*wght+5. 6600 1 0d-1*t12*t26*wght 6601 t42 = t31**2 6602 t43 = 1/t14**5 6603 t44 = 1/rhoa**2.3333333333333334d+0 6604 t45 = 1/rhoa**2.1666666666666665d+0 6605 t46 = t34**2 6606 t47 = 1/t2**4 6607 t48 = 1/rhoa**7 6608 t49 = 1/rhoa**5.333333333333333d+0 6609 t50 = 1/rhoa**3.6666666666666664d+0 6610 fnc(iq) = 5.0d-1*rhoa*t12*t26*t3*wght+fnc(iq) 6611 Amat(iq,D1_RA) = 2.57544d-52*t1*t12*t26*t5*wght+t3*t41+Ama 6612 1 t(iq,D1_RA) 6613 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 6614 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 6615 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 6616 Amat2(iq,D2_RA_RA) = t3*(5.0d-1*rhoa*t26*(-1.373568d-51*t5 6617 1 *t50*t6*t9+5.306312954879999d-103*t37*t49*t6*t9+8.88888 6618 2 8888888888d-50*t3*t50*t9-3.43392d-101*t49*t5*t9+2.31111 6619 3 11111111113d-98*t49*t5*t8-1.53839616d-149*t37*t48*t8+2. 6620 4 5470302183424d-201*t47*t8/rhoa**8.666666666666666d+0-2. 6621 5 747136d-51*t37*t4*t50*t7+1.5918938864639998d-102*t4*t47 6622 6 *t49*t7+1.7777777777777776d-49*t4*t5*t50*t6+1.777777777 6623 7 7777776d-49*t11*t5*t50*t6-1.373568d-100*t37*t4*t49*t6-2 6624 8 .4724223999999997d-100*t11*t37*t49*t6+6.367575545855999 6625 9 d-152*t11*t47*t48*t6+1.7777777777777776d-49*t10*t3*t50+ 6626 : 2.222222222222222d-99*t4*t49*t5+8.0d-99*t11*t49*t5-1.23 6627 ; 62111999999999d-100*t10*t49*t5-2.7471359999999995d-150* 6628 < t11*t37*t48+2.1225251819519997d-152*t10*t37*t48)*wght+5 6629 = .0d-1*rhoa*t12*(-2.0d+0*t21*t33*t46/t18**3+3.2163958997 6630 > 38507d+1*t21*t46/(t18**4*t19**2)+1.0d+0*t21*t33*t35*(2. 6631 ? 1622951122684114d+0*t45+1.7087761055320938d+0*t44+1.233 6632 @ 5503316757068d+0*t43+2.673190323653546d-1*t39)+1.110223 6633 1 0246251565d-16*t25*t27*t32*(1.1632736958443765d+0*t45+9 6634 2 .89141964955861d-1*t44+6.003214762495226d-1*t43+2.10778 6635 3 25841639536d-1*t39)-4.0675215258019015d-19*t24*t44-1.76 6636 4 13865241785684d-3*t20*t44-2.220446049250313d-16*t25*t27 6637 5 *t42/t22**3+1.7854583920998188d-15*t25*t42/(t22**4*t23* 6638 6 *2)-8.497974591333913d-2*t29*t33*t34*t35-9.812069668265 6639 7 515d-18*t27*t29*t31*t32)*wght+1.0d+0*rhoa*t36*t40*wght+ 6640 8 1.0d+0*t26*t40*wght+1.0d+0*t12*t36*wght)+t1*t5*(2.57544 6641 9 d-52*t26*t40*wght+2.57544d-52*t12*t36*wght)+t39*t5*(5.1 6642 : 5088d-52*t41-4.2923999999999995d-52*t12*t26*wght)+2.653 6643 ; 1564774399996d-103*t12*t26*t37*t38*wght+Amat2(iq,D2_RA_ 6644 < RA) 6645 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 6646 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 6647 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 6648 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 6649 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 6650 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 6651 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 6652 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 6653 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 6654 else 6655 t1 = 1/rhoa**1.6666666666666669d+0 6656 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 6657 t3 = 1/t2 6658 t4 = param(12) 6659 t5 = 1/t2**2 6660 t6 = 2.0d-50*t1-9.11559972d+0 6661 t7 = t6**2 6662 t8 = param(10) 6663 t9 = param(9) 6664 t10 = param(8) 6665 t11 = param(11) 6666 t12 = t3*t6*t9+1.6d-99*t5*t8/rhoa**3.3333333333333337d+0+t 6667 1 4*t5*t7+4.0d-50*t1*t11*t5*t6+4.0d-50*t1*t10*t3+param(7) 6668 t13 = 1/rhoa**6.666666666666666d-1 6669 t14 = rhoa**5.0d-1 6670 t15 = 1/t14 6671 t16 = 1/rhoa**3.333333333333333d-1 6672 t17 = 1/rhoa**1.6666666666666666d-1 6673 t18 = 1.1120374863094686d+1*t17+3.8447462374472113d+0*t16+ 6674 1 1.644733775567609d+0*t15+2.4058712912881916d-1*t13 6675 t19 = 3.216395899738507d+1/t18+1.0d+0 6676 t20 = log(t19) 6677 t21 = 1.274696188700087d-1*t16+1.0d+0 6678 t22 = 5.982550435771079d+0*t17+2.2255694211506874d+0*t16+8 6679 1 .004286349993635d-1*t15+1.8970043257475583d-1*t13 6680 t23 = 1.6081979498692536d+1/t22+1.0d+0 6681 t24 = log(t23) 6682 t25 = 1.3256889990520176d-1*t16+1.0d+0 6683 t26 = -6.903522198342671d-18*t24*t25-3.1090699999999993d-2 6684 1 *t20*t21 6685 t27 = 1/t23 6686 t28 = 1/t14**3 6687 t29 = 1/rhoa**1.3333333333333333d+0 6688 t30 = 1/rhoa**1.1666666666666667d+0 6689 t31 = -9.970917392951799d-1*t30-7.418564737168958d-1*t29-4 6690 1 .002143174996817d-1*t28-1.264669550498372d-1*t1 6691 t32 = 1/t22**2 6692 t33 = 1/t19 6693 t34 = -1.8533958105157808d+0*t30-1.2815820791490704d+0*t29 6694 1 -8.223668877838045d-1*t28-1.6039141941921276d-1*t1 6695 t35 = 1/t18**2 6696 t36 = 1.0d+0*t21*t33*t34*t35+1.1102230246251565d-16*t25*t2 6697 1 7*t31*t32+3.0506411443514264d-19*t24*t29+1.321039893133 6698 2 9265d-3*t20*t29 6699 t37 = 1/t2**3 6700 t38 = 1/rhoa**4.333333333333333d+0 6701 t39 = 1/rhoa**2.6666666666666666d+0 6702 t40 = 5.15088d-52*t39*t5*t6*t9-3.333333333333333d-50*t3*t3 6703 1 9*t9-5.333333333333334d-99*t38*t5*t8+1.6482816d-150*t37 6704 2 *t8/rhoa**6+1.030176d-51*t37*t39*t4*t7-6.66666666666666 6705 3 6d-50*t39*t4*t5*t6-6.666666666666666d-50*t11*t39*t5*t6+ 6706 4 4.1207039999999995d-101*t11*t37*t38*t6-1.33333333333333 6707 5 33d-99*t11*t38*t5+2.0603519999999997d-101*t10*t38*t5-6. 6708 6 666666666666666d-50*t10*t3*t39 6709 t41 = 5.0d-1*rhoa*t26*t40*wght+5.0d-1*rhoa*t12*t36*wght+5. 6710 1 0d-1*t12*t26*wght 6711 t42 = t31**2 6712 t43 = 1/t14**5 6713 t44 = 1/rhoa**2.3333333333333334d+0 6714 t45 = 1/rhoa**2.1666666666666665d+0 6715 t46 = t34**2 6716 t47 = 1/t2**4 6717 t48 = 1/rhoa**7 6718 t49 = 1/rhoa**5.333333333333333d+0 6719 t50 = 1/rhoa**3.6666666666666664d+0 6720 fnc(iq) = 5.0d-1*rhoa*t12*t26*t3*wght+fnc(iq) 6721 Amat(iq,D1_RA) = 2.57544d-52*t1*t12*t26*t5*wght+t3*t41+Ama 6722 1 t(iq,D1_RA) 6723 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 6724 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 6725 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 6726 Amat2(iq,D2_RA_RA) = t3*(5.0d-1*rhoa*t26*(-1.373568d-51*t5 6727 1 *t50*t6*t9+5.306312954879999d-103*t37*t49*t6*t9+8.88888 6728 2 8888888888d-50*t3*t50*t9-3.43392d-101*t49*t5*t9+2.31111 6729 3 11111111113d-98*t49*t5*t8-1.53839616d-149*t37*t48*t8+2. 6730 4 5470302183424d-201*t47*t8/rhoa**8.666666666666666d+0-2. 6731 5 747136d-51*t37*t4*t50*t7+1.5918938864639998d-102*t4*t47 6732 6 *t49*t7+1.7777777777777776d-49*t4*t5*t50*t6+1.777777777 6733 7 7777776d-49*t11*t5*t50*t6-1.373568d-100*t37*t4*t49*t6-2 6734 8 .4724223999999997d-100*t11*t37*t49*t6+6.367575545855999 6735 9 d-152*t11*t47*t48*t6+1.7777777777777776d-49*t10*t3*t50+ 6736 : 2.222222222222222d-99*t4*t49*t5+8.0d-99*t11*t49*t5-1.23 6737 ; 62111999999999d-100*t10*t49*t5-2.7471359999999995d-150* 6738 < t11*t37*t48+2.1225251819519997d-152*t10*t37*t48)*wght+5 6739 = .0d-1*rhoa*t12*(-2.0d+0*t21*t33*t46/t18**3+3.2163958997 6740 > 38507d+1*t21*t46/(t18**4*t19**2)+1.0d+0*t21*t33*t35*(2. 6741 ? 1622951122684114d+0*t45+1.7087761055320938d+0*t44+1.233 6742 @ 5503316757068d+0*t43+2.673190323653546d-1*t39)+1.110223 6743 1 0246251565d-16*t25*t27*t32*(1.1632736958443765d+0*t45+9 6744 2 .89141964955861d-1*t44+6.003214762495226d-1*t43+2.10778 6745 3 25841639536d-1*t39)-4.0675215258019015d-19*t24*t44-1.76 6746 4 13865241785684d-3*t20*t44-2.220446049250313d-16*t25*t27 6747 5 *t42/t22**3+1.7854583920998188d-15*t25*t42/(t22**4*t23* 6748 6 *2)-8.497974591333913d-2*t29*t33*t34*t35-9.812069668265 6749 7 515d-18*t27*t29*t31*t32)*wght+1.0d+0*rhoa*t36*t40*wght+ 6750 8 1.0d+0*t26*t40*wght+1.0d+0*t12*t36*wght)+t1*t5*(2.57544 6751 9 d-52*t26*t40*wght+2.57544d-52*t12*t36*wght)+t39*t5*(5.1 6752 : 5088d-52*t41-4.2923999999999995d-52*t12*t26*wght)+2.653 6753 ; 1564774399996d-103*t12*t26*t37*t38*wght+Amat2(iq,D2_RA_ 6754 < RA) 6755 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 6756 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 6757 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 6758 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 6759 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 6760 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 6761 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 6762 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 6763 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 6764 endif 6765 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 6766 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 6767 t1 = 1/rhob**6.666666666666666d-1 6768 t2 = rhob**5.0d-1 6769 t3 = 1/t2 6770 t4 = 1/rhob**3.333333333333333d-1 6771 t5 = 1/rhob**1.6666666666666666d-1 6772 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 6773 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 6774 t7 = 3.216395899738507d+1/t6+1.0d+0 6775 t8 = log(t7) 6776 t9 = 1.274696188700087d-1*t4+1.0d+0 6777 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 6778 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 6779 t11 = 1.6081979498692536d+1/t10+1.0d+0 6780 t12 = log(t11) 6781 t13 = 1.3256889990520176d-1*t4+1.0d+0 6782 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 6783 1 12*t13 6784 t15 = 1/rhob 6785 t16 = 1/taub 6786 t17 = 1.0d+0-1.25d-1*gammabb*t15*t16 6787 t18 = 1/rhob**2.6666666666666666d+0 6788 t19 = 1/rhob**1.6666666666666669d+0 6789 t20 = 2.0d+0*t19*taub 6790 t21 = 5.15088d-3*(t20+gammabb*t18-9.11559972d+0)+1.0d+0 6791 t22 = 1/t21 6792 t23 = param(10) 6793 t24 = gammabb**2 6794 t25 = 1/rhob**5.333333333333333d+0 6795 t26 = 1/t21**2 6796 t27 = param(11) 6797 t28 = t20-9.11559972d+0 6798 t29 = param(12) 6799 t30 = t28**2 6800 t31 = param(8) 6801 t32 = param(9) 6802 t33 = t22*t28*t32+gammabb*t18*t22*t31+t26*t29*t30+gammabb* 6803 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 6804 t34 = 1/rhob**3.6666666666666664d+0 6805 t35 = -3.3333333333333337d+0*t18*taub-2.6666666666666666d+ 6806 1 0*gammabb*t34 6807 t36 = 1/t21**3 6808 t37 = 1/rhob**6.333333333333333d+0 6809 t38 = -3.3333333333333337d+0*t18*t22*t32*taub-6.6666666666 6810 1 66667d+0*t18*t26*t28*t29*taub-3.3333333333333337d+0*gam 6811 2 mabb*t25*t26*t27*taub-5.333333333333333d+0*t23*t24*t26* 6812 3 t37-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammabb*t18 6813 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 6814 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammabb*t18*t26*t31*t35 6815 6 -2.6666666666666666d+0*gammabb*t22*t31*t34-2.6666666666 6816 7 666666d+0*gammabb*t26*t27*t28*t34 6817 t39 = 1/t11 6818 t40 = 1/t2**3 6819 t41 = 1/rhob**1.3333333333333333d+0 6820 t42 = 1/rhob**1.1666666666666667d+0 6821 t43 = -9.970917392951799d-1*t42-7.418564737168958d-1*t41-4 6822 1 .002143174996817d-1*t40-1.264669550498372d-1*t19 6823 t44 = 1/t10**2 6824 t45 = 1/t7 6825 t46 = -1.8533958105157808d+0*t42-1.2815820791490704d+0*t41 6826 1 -8.223668877838045d-1*t40-1.6039141941921276d-1*t19 6827 t47 = 1/t6**2 6828 t48 = 1.0d+0*t45*t46*t47*t9+1.3210398931339265d-3*t41*t8+1 6829 1 .1102230246251565d-16*t13*t39*t43*t44+3.050641144351426 6830 2 4d-19*t12*t41 6831 t49 = 1.0d+0*rhob*t17*t33*t48*wght+1.0d+0*rhob*t14*t17*t38 6832 1 *wght+1.0d+0*t14*t17*t33*wght 6833 t50 = 1/rhob**8 6834 t51 = -1.030176d-2*t23*t24*t36*t50-1.030176d-2*t18*t29*t30 6835 1 *t36-1.030176d-2*gammabb*t25*t27*t28*t36-5.15088d-3*t18 6836 2 *t26*t28*t32-5.15088d-3*gammabb*t25*t26*t31+t18*t22*t31 6837 3 +t18*t26*t27*t28+2*gammabb*t23*t25*t26 6838 t52 = 1/rhob**7 6839 t53 = 1/rhob**4.333333333333333d+0 6840 t54 = -2.060352d-2*gammabb*t27*t28*t36*t53-1.030176d-2*gam 6841 1 mabb*t26*t31*t53+2.0d+0*gammabb*t26*t27*t53-2.060352d-2 6842 2 *t23*t24*t36*t52-2.060352d-2*t19*t29*t30*t36-1.030176d- 6843 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 6844 4 *t29 6845 t55 = taub**2 6846 t56 = 1/t55 6847 t57 = t35**2 6848 t58 = 1/rhob**2 6849 t59 = 1/t21**4 6850 t60 = 1/rhob**4.666666666666667d+0 6851 t61 = 8.88888888888889d+0*t34*taub+9.777777777777779d+0*ga 6852 1 mmabb*t60 6853 t62 = t43**2 6854 t63 = 1/t2**5 6855 t64 = 1/rhob**2.3333333333333334d+0 6856 t65 = 1/rhob**2.1666666666666665d+0 6857 t66 = t46**2 6858 t67 = 1.25d-1*gammabb*t14*t51*wght+1.25d-1*t14*t33*wght 6859 t68 = 1/rhob**3.3333333333333337d+0 6860 t69 = 1/rhob**6 6861 fnc(iq) = 1.0d+0*rhob*t14*t17*t22*t33*wght+fnc(iq) 6862 Amat(iq,D1_RB) = -5.15088d-3*rhob*t14*t17*t26*t33*t35*wght 6863 1 +1.25d-1*gammabb*t14*t15*t16*t22*t33*wght+t22*t49+Amat( 6864 2 iq,D1_RB) 6865 Cmat(iq,D1_GBB) = 1.0d+0*rhob*t14*t17*t22*t51*wght-5.15088 6866 1 d-3*t14*t17*t19*t26*t33*wght-1.25d-1*t14*t16*t22*t33*wg 6867 2 ht+Cmat(iq,D1_GBB) 6868 Mmat(iq,D1_TB) = 1.25d-1*gammabb*t14*t22*t33*t56*wght+1.0d 6869 1 +0*rhob*t14*t17*t22*t54*wght-1.030176d-2*t1*t14*t17*t26 6870 2 *t33*wght+Mmat(iq,D1_TB) 6871 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 6872 Amat2(iq,D2_RB_RB) = t22*(1.0d+0*rhob*t14*t17*(2.666666666 6873 1 6666666d+1*gammabb*t26*t27*t37*taub+1.373568d-1*t18*t28 6874 2 *t29*t35*t36*taub+6.867840000000001d-2*gammabb*t25*t27* 6875 3 t35*t36*taub+3.4339200000000003d-2*t18*t26*t32*t35*taub 6876 4 +8.88888888888889d+0*t22*t32*t34*taub+1.777777777777777 6877 5 8d+1*t26*t28*t29*t34*taub-1.030176d-2*t29*t30*t36*t61-1 6878 6 .030176d-2*gammabb*t18*t27*t28*t36*t61-1.030176d-2*t23* 6879 7 t24*t25*t36*t61-5.15088d-3*t26*t28*t32*t61-5.15088d-3*g 6880 8 ammabb*t18*t26*t31*t61+9.777777777777779d+0*gammabb*t22 6881 9 *t31*t60+9.777777777777779d+0*gammabb*t26*t27*t28*t60+1 6882 : .591893886464d-4*t29*t30*t57*t59+1.591893886464d-4*gamm 6883 ; abb*t18*t27*t28*t57*t59+1.591893886464d-4*t23*t24*t25*t 6884 < 57*t59+5.30631295488d-5*t28*t32*t36*t57+5.30631295488d- 6885 = 5*gammabb*t18*t31*t36*t57+2.2222222222222224d+1*t25*t26 6886 > *t29*t55+1.0988544d-1*t23*t24*t35*t36*t37+5.494272d-2*g 6887 ? ammabb*t27*t28*t34*t35*t36+2.747136d-2*gammabb*t26*t31* 6888 @ t34*t35+3.377777777777778d+1*t23*t24*t26/rhob**7.333333 6889 1 333333333d+0)*wght+1.0d+0*rhob*t17*t33*(3.2163958997385 6890 2 07d+1*t66*t9/(t6**4*t7**2)-2.0d+0*t45*t66*t9/t6**3+1.0d 6891 3 +0*t45*t47*(2.1622951122684114d+0*t65+1.708776105532093 6892 4 8d+0*t64+1.2335503316757068d+0*t63+2.673190323653546d-1 6893 5 *t18)*t9-1.7613865241785684d-3*t64*t8+1.110223024625156 6894 6 5d-16*t13*t39*t44*(1.1632736958443765d+0*t65+9.89141964 6895 7 955861d-1*t64+6.003214762495226d-1*t63+2.10778258416395 6896 8 36d-1*t18)-4.0675215258019015d-19*t12*t64-2.22044604925 6897 9 0313d-16*t13*t39*t62/t10**3+1.7854583920998188d-15*t13* 6898 : t62/(t10**4*t11**2)-8.497974591333913d-2*t41*t45*t46*t4 6899 ; 7-9.812069668265515d-18*t39*t41*t43*t44)*wght+1.25d-1*g 6900 < ammabb*t14*t16*t33*t58*wght+2.0d+0*rhob*t17*t38*t48*wgh 6901 = t+2.0d+0*t17*t33*t48*wght+1.25d-1*gammabb*t15*t16*t33*t 6902 > 48*wght+2.0d+0*t14*t17*t38*wght+1.25d-1*gammabb*t14*t15 6903 ? *t16*t38*wght)+t26*(-5.15088d-3*rhob*t14*t17*t33*t61*wg 6904 @ ht-5.15088d-3*rhob*t17*t33*t35*t48*wght-5.15088d-3*rhob 6905 1 *t14*t17*t35*t38*wght-5.15088d-3*t14*t17*t33*t35*wght-5 6906 2 .15088d-3*t35*t49)+t15*t16*t22*(1.25d-1*gammabb*t33*t48 6907 3 *wght+1.25d-1*gammabb*t14*t38*wght)-1.25d-1*gammabb*t14 6908 4 *t16*t22*t33*t58*wght+5.30631295488d-5*rhob*t14*t17*t33 6909 5 *t36*t57*wght-1.28772d-3*gammabb*t14*t15*t16*t26*t33*t3 6910 6 5*wght+Amat2(iq,D2_RB_RB) 6911 Cmat2(iq,D2_RB_GBB) = t22*(1.0d+0*rhob*t14*t17*(3.43392000 6912 1 00000003d-2*gammabb*t27*t36*t50*taub+6.867840000000001d 6913 2 -2*t25*t28*t29*t36*taub+1.7169600000000002d-2*t25*t26*t 6914 3 32*taub-3.3333333333333337d+0*t25*t26*t27*taub+1.591893 6915 4 886464d-4*t23*t24*t35*t50*t59+1.591893886464d-4*t18*t29 6916 5 *t30*t35*t59+1.591893886464d-4*gammabb*t25*t27*t28*t35* 6917 6 t59+5.494272d-2*gammabb*t27*t28*t36*t37+2.747136d-2*gam 6918 7 mabb*t26*t31*t37-1.0666666666666666d+1*gammabb*t23*t26* 6919 8 t37+5.30631295488d-5*t18*t28*t32*t35*t36+5.30631295488d 6920 9 -5*gammabb*t25*t31*t35*t36-1.030176d-2*t18*t27*t28*t35* 6921 : t36-2.060352d-2*gammabb*t23*t25*t35*t36+2.747136d-2*t29 6922 ; *t30*t34*t36+8.241408d-2*t23*t24*t36/rhob**9-5.15088d-3 6923 < *t18*t26*t31*t35+1.373568d-2*t26*t28*t32*t34-2.66666666 6924 = 66666666d+0*t22*t31*t34-2.6666666666666666d+0*t26*t27*t 6925 > 28*t34)*wght+1.0d+0*rhob*t17*t48*t51*wght+1.0d+0*t14*t1 6926 ? 7*t51*wght-1.25d-1*t16*t33*t48*wght-1.25d-1*t14*t16*t38 6927 @ *wght-1.25d-1*t14*t15*t16*t33*wght)+t18*t26*(1.373568d- 6928 1 2*t14*t17*t33*wght-5.15088d-3*t49)-5.15088d-3*rhob*t14* 6929 2 t17*t26*t35*t51*wght+5.30631295488d-5*t14*t17*t19*t33*t 6930 3 35*t36*wght+6.4386d-4*t14*t16*t26*t33*t35*wght-6.4386d- 6931 4 4*gammabb*t14*t16*t26*t33*t34*wght+t15*t16*t22*t67+Cmat 6932 5 2(iq,D2_RB_GBB) 6933 Cmat2(iq,D2_GBB_GBB) = 1.0d+0*rhob*t14*t17*t22*(1.59189388 6934 1 6464d-4*gammabb*t27*t28*t50*t59+1.591893886464d-4*t25*t 6935 2 29*t30*t59+1.591893886464d-4*t23*t24*t59/rhob**1.066666 6936 3 6666666666d+1+5.30631295488d-5*gammabb*t31*t36*t50-4.12 6937 4 0704d-2*gammabb*t23*t36*t50+5.30631295488d-5*t25*t28*t3 6938 5 2*t36-2.060352d-2*t25*t27*t28*t36-1.030176d-2*t25*t26*t 6939 6 31+2*t23*t25*t26)*wght+5.30631295488d-5*t14*t17*t33*t36 6940 7 *t53*wght-1.030176d-2*t14*t17*t19*t26*t51*wght-2.5d-1*t 6941 8 14*t16*t22*t51*wght+1.28772d-3*t14*t16*t18*t26*t33*wght 6942 9 +Cmat2(iq,D2_GBB_GBB) 6943 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 6944 Mmat2(iq,D2_RB_TB) = t22*(1.0d+0*rhob*t14*t17*(1.373568d-1 6945 1 *t28*t29*t36*t53*taub+3.4339200000000003d-2*t26*t32*t53 6946 2 *taub-1.3333333333333333d+1*t26*t29*t53*taub+6.86784000 6947 3 0000001d-2*gammabb*t27*t36*t52*taub+3.183787772928d-4*g 6948 4 ammabb*t27*t28*t35*t53*t59+3.183787772928d-4*t23*t24*t3 6949 5 5*t52*t59+3.183787772928d-4*t19*t29*t30*t35*t59+1.06126 6950 6 2590976d-4*gammabb*t31*t35*t36*t53-2.060352d-2*gammabb* 6951 7 t27*t35*t36*t53+1.4422464000000002d-1*t23*t24*t36*t50+1 6952 8 .061262590976d-4*t19*t28*t32*t35*t36-4.120704d-2*t19*t2 6953 9 8*t29*t35*t36+3.4339200000000003d-2*t18*t29*t30*t36+8.9 6954 : 28192d-2*gammabb*t25*t27*t28*t36-1.030176d-2*t19*t26*t3 6955 ; 2*t35+1.7169600000000002d-2*t18*t26*t28*t32-3.333333333 6956 < 3333337d+0*t18*t22*t32+4.464096d-2*gammabb*t25*t26*t31- 6957 = 6.666666666666667d+0*t18*t26*t28*t29-8.666666666666666d 6958 > +0*gammabb*t25*t26*t27)*wght+1.25d-1*gammabb*t33*t48*t5 6959 ? 6*wght+1.25d-1*gammabb*t14*t38*t56*wght+1.25d-1*gammabb 6960 @ *t14*t15*t33*t56*wght+1.0d+0*rhob*t17*t48*t54*wght+1.0d 6961 1 +0*t14*t17*t54*wght)+t19*t26*(1.7169600000000002d-2*t14 6962 2 *t17*t33*wght-1.030176d-2*t49)-6.4386d-4*gammabb*t14*t2 6963 3 6*t33*t35*t56*wght-1.25d-1*gammabb*t14*t15*t22*t33*t56* 6964 4 wght-5.15088d-3*rhob*t14*t17*t26*t35*t54*wght+1.25d-1*g 6965 5 ammabb*t14*t15*t16*t22*t54*wght+1.061262590976d-4*t1*t1 6966 6 4*t17*t33*t35*t36*wght-1.28772d-3*gammabb*t14*t16*t18*t 6967 7 26*t33*wght+Mmat2(iq,D2_RB_TB) 6968 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 6969 Mmat2(iq,D2_GBB_TB) = 1.061262590976d-4*t14*t17*t33*t36*t6 6970 1 8*wght+1.0d+0*rhob*t14*t17*t22*(3.183787772928d-4*t29*t 6971 2 30*t53*t59+3.183787772928d-4*gammabb*t27*t28*t52*t59+3. 6972 3 183787772928d-4*t23*t24*t59/rhob**9.666666666666666d+0+ 6973 4 1.061262590976d-4*t28*t32*t36*t53-4.120704d-2*t28*t29*t 6974 5 36*t53-2.060352d-2*t27*t28*t36*t53-1.030176d-2*t26*t32* 6975 6 t53-1.030176d-2*t26*t31*t53+2.0d+0*t26*t27*t53+1.061262 6976 7 590976d-4*gammabb*t31*t36*t52-2.060352d-2*gammabb*t27*t 6977 8 36*t52-4.120704d-2*gammabb*t23*t36*t52)*wght-6.4386d-4* 6978 9 gammabb*t14*t18*t26*t33*t56*wght-5.15088d-3*t14*t17*t19 6979 : *t26*t54*wght-1.25d-1*t14*t16*t22*t54*wght-1.030176d-2* 6980 ; t1*t14*t17*t26*t51*wght+1.28772d-3*t14*t16*t19*t26*t33* 6981 < wght+t22*t56*t67+Mmat2(iq,D2_GBB_TB) 6982 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 6983 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 6984 Mmat2(iq,D2_TB_TB) = -2.5d-1*gammabb*t14*t22*t33*wght/taub 6985 1 **3+1.0d+0*rhob*t14*t17*t22*(6.367575545856d-4*gammabb* 6986 2 t27*t28*t59*t69+2.122525181952d-4*gammabb*t31*t36*t69-8 6987 3 .241408d-2*gammabb*t27*t36*t69+6.367575545856d-4*t29*t3 6988 4 0*t59*t68+2.122525181952d-4*t28*t32*t36*t68-1.6482816d- 6989 5 1*t28*t29*t36*t68-4.120704d-2*t26*t32*t68+8.0d+0*t26*t2 6990 6 9*t68+6.367575545856d-4*t23*t24*t59/rhob**8.66666666666 6991 7 6666d+0)*wght+2.122525181952d-4*t14*t17*t33*t36*t64*wgh 6992 8 t+2.5d-1*gammabb*t14*t22*t54*t56*wght-2.57544d-3*gammab 6993 9 b*t14*t19*t26*t33*t56*wght-2.060352d-2*t1*t14*t17*t26*t 6994 : 54*wght+Mmat2(iq,D2_TB_TB) 6995 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 6996 t1 = 1/rhob**1.6666666666666669d+0 6997 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 6998 t3 = 1/t2 6999 t4 = param(12) 7000 t5 = 1/t2**2 7001 t6 = 2.0d-50*t1-9.11559972d+0 7002 t7 = t6**2 7003 t8 = param(10) 7004 t9 = param(9) 7005 t10 = param(8) 7006 t11 = param(11) 7007 t12 = t3*t6*t9+1.6d-99*t5*t8/rhob**3.3333333333333337d+0+t 7008 1 4*t5*t7+4.0d-50*t1*t11*t5*t6+4.0d-50*t1*t10*t3+param(7) 7009 t13 = 1/rhob**6.666666666666666d-1 7010 t14 = rhob**5.0d-1 7011 t15 = 1/t14 7012 t16 = 1/rhob**3.333333333333333d-1 7013 t17 = 1/rhob**1.6666666666666666d-1 7014 t18 = 1.1120374863094686d+1*t17+3.8447462374472113d+0*t16+ 7015 1 1.644733775567609d+0*t15+2.4058712912881916d-1*t13 7016 t19 = 3.216395899738507d+1/t18+1.0d+0 7017 t20 = log(t19) 7018 t21 = 1.274696188700087d-1*t16+1.0d+0 7019 t22 = 5.982550435771079d+0*t17+2.2255694211506874d+0*t16+8 7020 1 .004286349993635d-1*t15+1.8970043257475583d-1*t13 7021 t23 = 1.6081979498692536d+1/t22+1.0d+0 7022 t24 = log(t23) 7023 t25 = 1.3256889990520176d-1*t16+1.0d+0 7024 t26 = -6.903522198342671d-18*t24*t25-3.1090699999999993d-2 7025 1 *t20*t21 7026 t27 = 1/t23 7027 t28 = 1/t14**3 7028 t29 = 1/rhob**1.3333333333333333d+0 7029 t30 = 1/rhob**1.1666666666666667d+0 7030 t31 = -9.970917392951799d-1*t30-7.418564737168958d-1*t29-4 7031 1 .002143174996817d-1*t28-1.264669550498372d-1*t1 7032 t32 = 1/t22**2 7033 t33 = 1/t19 7034 t34 = -1.8533958105157808d+0*t30-1.2815820791490704d+0*t29 7035 1 -8.223668877838045d-1*t28-1.6039141941921276d-1*t1 7036 t35 = 1/t18**2 7037 t36 = 1.0d+0*t21*t33*t34*t35+1.1102230246251565d-16*t25*t2 7038 1 7*t31*t32+3.0506411443514264d-19*t24*t29+1.321039893133 7039 2 9265d-3*t20*t29 7040 t37 = 1/t2**3 7041 t38 = 1/rhob**4.333333333333333d+0 7042 t39 = 1/rhob**2.6666666666666666d+0 7043 t40 = 5.15088d-52*t39*t5*t6*t9-3.333333333333333d-50*t3*t3 7044 1 9*t9-5.333333333333334d-99*t38*t5*t8+1.6482816d-150*t37 7045 2 *t8/rhob**6+1.030176d-51*t37*t39*t4*t7-6.66666666666666 7046 3 6d-50*t39*t4*t5*t6-6.666666666666666d-50*t11*t39*t5*t6+ 7047 4 4.1207039999999995d-101*t11*t37*t38*t6-1.33333333333333 7048 5 33d-99*t11*t38*t5+2.0603519999999997d-101*t10*t38*t5-6. 7049 6 666666666666666d-50*t10*t3*t39 7050 t41 = 5.0d-1*rhob*t26*t40*wght+5.0d-1*rhob*t12*t36*wght+5. 7051 1 0d-1*t12*t26*wght 7052 t42 = t31**2 7053 t43 = 1/t14**5 7054 t44 = 1/rhob**2.3333333333333334d+0 7055 t45 = 1/rhob**2.1666666666666665d+0 7056 t46 = t34**2 7057 t47 = 1/t2**4 7058 t48 = 1/rhob**7 7059 t49 = 1/rhob**5.333333333333333d+0 7060 t50 = 1/rhob**3.6666666666666664d+0 7061 fnc(iq) = 5.0d-1*rhob*t12*t26*t3*wght+fnc(iq) 7062 Amat(iq,D1_RB) = 2.57544d-52*t1*t12*t26*t5*wght+t3*t41+Ama 7063 1 t(iq,D1_RB) 7064 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 7065 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 7066 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 7067 Amat2(iq,D2_RB_RB) = t3*(5.0d-1*rhob*t26*(-1.373568d-51*t5 7068 1 *t50*t6*t9+5.306312954879999d-103*t37*t49*t6*t9+8.88888 7069 2 8888888888d-50*t3*t50*t9-3.43392d-101*t49*t5*t9+2.31111 7070 3 11111111113d-98*t49*t5*t8-1.53839616d-149*t37*t48*t8+2. 7071 4 5470302183424d-201*t47*t8/rhob**8.666666666666666d+0-2. 7072 5 747136d-51*t37*t4*t50*t7+1.5918938864639998d-102*t4*t47 7073 6 *t49*t7+1.7777777777777776d-49*t4*t5*t50*t6+1.777777777 7074 7 7777776d-49*t11*t5*t50*t6-1.373568d-100*t37*t4*t49*t6-2 7075 8 .4724223999999997d-100*t11*t37*t49*t6+6.367575545855999 7076 9 d-152*t11*t47*t48*t6+1.7777777777777776d-49*t10*t3*t50+ 7077 : 2.222222222222222d-99*t4*t49*t5+8.0d-99*t11*t49*t5-1.23 7078 ; 62111999999999d-100*t10*t49*t5-2.7471359999999995d-150* 7079 < t11*t37*t48+2.1225251819519997d-152*t10*t37*t48)*wght+5 7080 = .0d-1*rhob*t12*(-2.0d+0*t21*t33*t46/t18**3+3.2163958997 7081 > 38507d+1*t21*t46/(t18**4*t19**2)+1.0d+0*t21*t33*t35*(2. 7082 ? 1622951122684114d+0*t45+1.7087761055320938d+0*t44+1.233 7083 @ 5503316757068d+0*t43+2.673190323653546d-1*t39)+1.110223 7084 1 0246251565d-16*t25*t27*t32*(1.1632736958443765d+0*t45+9 7085 2 .89141964955861d-1*t44+6.003214762495226d-1*t43+2.10778 7086 3 25841639536d-1*t39)-4.0675215258019015d-19*t24*t44-1.76 7087 4 13865241785684d-3*t20*t44-2.220446049250313d-16*t25*t27 7088 5 *t42/t22**3+1.7854583920998188d-15*t25*t42/(t22**4*t23* 7089 6 *2)-8.497974591333913d-2*t29*t33*t34*t35-9.812069668265 7090 7 515d-18*t27*t29*t31*t32)*wght+1.0d+0*rhob*t36*t40*wght+ 7091 8 1.0d+0*t26*t40*wght+1.0d+0*t12*t36*wght)+t1*t5*(2.57544 7092 9 d-52*t26*t40*wght+2.57544d-52*t12*t36*wght)+t39*t5*(5.1 7093 : 5088d-52*t41-4.2923999999999995d-52*t12*t26*wght)+2.653 7094 ; 1564774399996d-103*t12*t26*t37*t38*wght+Amat2(iq,D2_RB_ 7095 < RB) 7096 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 7097 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 7098 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 7099 Mmat2(iq,D2_RB_TB) = Mmat2(iq,D2_RB_TB) 7100 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 7101 Mmat2(iq,D2_GBB_TB) = Mmat2(iq,D2_GBB_TB) 7102 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 7103 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 7104 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 7105 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 7106 t1 = 1/rhob**6.666666666666666d-1 7107 t2 = rhob**5.0d-1 7108 t3 = 1/t2 7109 t4 = 1/rhob**3.333333333333333d-1 7110 t5 = 1/rhob**1.6666666666666666d-1 7111 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 7112 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 7113 t7 = 3.216395899738507d+1/t6+1.0d+0 7114 t8 = log(t7) 7115 t9 = 1.274696188700087d-1*t4+1.0d+0 7116 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 7117 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 7118 t11 = 1.6081979498692536d+1/t10+1.0d+0 7119 t12 = log(t11) 7120 t13 = 1.3256889990520176d-1*t4+1.0d+0 7121 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 7122 1 12*t13 7123 t15 = 1/rhob 7124 t16 = 1/taub 7125 t17 = 1.0d+0-1.25d-1*gammabb*t15*t16 7126 t18 = 1/rhob**2.6666666666666666d+0 7127 t19 = 1/rhob**1.6666666666666669d+0 7128 t20 = 2.0d+0*t19*taub 7129 t21 = 5.15088d-3*(t20+gammabb*t18-9.11559972d+0)+1.0d+0 7130 t22 = 1/t21 7131 t23 = param(10) 7132 t24 = gammabb**2 7133 t25 = 1/rhob**5.333333333333333d+0 7134 t26 = 1/t21**2 7135 t27 = param(11) 7136 t28 = t20-9.11559972d+0 7137 t29 = param(12) 7138 t30 = t28**2 7139 t31 = param(8) 7140 t32 = param(9) 7141 t33 = t22*t28*t32+gammabb*t18*t22*t31+t26*t29*t30+gammabb* 7142 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 7143 t34 = 1/rhob**3.6666666666666664d+0 7144 t35 = -3.3333333333333337d+0*t18*taub-2.6666666666666666d+ 7145 1 0*gammabb*t34 7146 t36 = 1/t21**3 7147 t37 = 1/rhob**6.333333333333333d+0 7148 t38 = -3.3333333333333337d+0*t18*t22*t32*taub-6.6666666666 7149 1 66667d+0*t18*t26*t28*t29*taub-3.3333333333333337d+0*gam 7150 2 mabb*t25*t26*t27*taub-5.333333333333333d+0*t23*t24*t26* 7151 3 t37-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammabb*t18 7152 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 7153 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammabb*t18*t26*t31*t35 7154 6 -2.6666666666666666d+0*gammabb*t22*t31*t34-2.6666666666 7155 7 666666d+0*gammabb*t26*t27*t28*t34 7156 t39 = 1/t11 7157 t40 = 1/t2**3 7158 t41 = 1/rhob**1.3333333333333333d+0 7159 t42 = 1/rhob**1.1666666666666667d+0 7160 t43 = -9.970917392951799d-1*t42-7.418564737168958d-1*t41-4 7161 1 .002143174996817d-1*t40-1.264669550498372d-1*t19 7162 t44 = 1/t10**2 7163 t45 = 1/t7 7164 t46 = -1.8533958105157808d+0*t42-1.2815820791490704d+0*t41 7165 1 -8.223668877838045d-1*t40-1.6039141941921276d-1*t19 7166 t47 = 1/t6**2 7167 t48 = 1.0d+0*t45*t46*t47*t9+1.3210398931339265d-3*t41*t8+1 7168 1 .1102230246251565d-16*t13*t39*t43*t44+3.050641144351426 7169 2 4d-19*t12*t41 7170 t49 = 1.0d+0*rhob*t17*t33*t48*wght+1.0d+0*rhob*t14*t17*t38 7171 1 *wght+1.0d+0*t14*t17*t33*wght 7172 t50 = 1/rhob**8 7173 t51 = -1.030176d-2*t23*t24*t36*t50-1.030176d-2*t18*t29*t30 7174 1 *t36-1.030176d-2*gammabb*t25*t27*t28*t36-5.15088d-3*t18 7175 2 *t26*t28*t32-5.15088d-3*gammabb*t25*t26*t31+t18*t22*t31 7176 3 +t18*t26*t27*t28+2*gammabb*t23*t25*t26 7177 t52 = 1/rhob**7 7178 t53 = 1/rhob**4.333333333333333d+0 7179 t54 = -2.060352d-2*gammabb*t27*t28*t36*t53-1.030176d-2*gam 7180 1 mabb*t26*t31*t53+2.0d+0*gammabb*t26*t27*t53-2.060352d-2 7181 2 *t23*t24*t36*t52-2.060352d-2*t19*t29*t30*t36-1.030176d- 7182 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 7183 4 *t29 7184 t55 = taub**2 7185 t56 = 1/t55 7186 t57 = t35**2 7187 t58 = 1/rhob**2 7188 t59 = 1/t21**4 7189 t60 = 1/rhob**4.666666666666667d+0 7190 t61 = 8.88888888888889d+0*t34*taub+9.777777777777779d+0*ga 7191 1 mmabb*t60 7192 t62 = t43**2 7193 t63 = 1/t2**5 7194 t64 = 1/rhob**2.3333333333333334d+0 7195 t65 = 1/rhob**2.1666666666666665d+0 7196 t66 = t46**2 7197 t67 = 1.25d-1*gammabb*t14*t51*wght+1.25d-1*t14*t33*wght 7198 t68 = 1/rhob**3.3333333333333337d+0 7199 t69 = 1/rhob**6 7200 fnc(iq) = 1.0d+0*rhob*t14*t17*t22*t33*wght+fnc(iq) 7201 Amat(iq,D1_RB) = -5.15088d-3*rhob*t14*t17*t26*t33*t35*wght 7202 1 +1.25d-1*gammabb*t14*t15*t16*t22*t33*wght+t22*t49+Amat( 7203 2 iq,D1_RB) 7204 Cmat(iq,D1_GBB) = 1.0d+0*rhob*t14*t17*t22*t51*wght-5.15088 7205 1 d-3*t14*t17*t19*t26*t33*wght-1.25d-1*t14*t16*t22*t33*wg 7206 2 ht+Cmat(iq,D1_GBB) 7207 Mmat(iq,D1_TB) = 1.25d-1*gammabb*t14*t22*t33*t56*wght+1.0d 7208 1 +0*rhob*t14*t17*t22*t54*wght-1.030176d-2*t1*t14*t17*t26 7209 2 *t33*wght+Mmat(iq,D1_TB) 7210 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 7211 Amat2(iq,D2_RB_RB) = t22*(1.0d+0*rhob*t14*t17*(2.666666666 7212 1 6666666d+1*gammabb*t26*t27*t37*taub+1.373568d-1*t18*t28 7213 2 *t29*t35*t36*taub+6.867840000000001d-2*gammabb*t25*t27* 7214 3 t35*t36*taub+3.4339200000000003d-2*t18*t26*t32*t35*taub 7215 4 +8.88888888888889d+0*t22*t32*t34*taub+1.777777777777777 7216 5 8d+1*t26*t28*t29*t34*taub-1.030176d-2*t29*t30*t36*t61-1 7217 6 .030176d-2*gammabb*t18*t27*t28*t36*t61-1.030176d-2*t23* 7218 7 t24*t25*t36*t61-5.15088d-3*t26*t28*t32*t61-5.15088d-3*g 7219 8 ammabb*t18*t26*t31*t61+9.777777777777779d+0*gammabb*t22 7220 9 *t31*t60+9.777777777777779d+0*gammabb*t26*t27*t28*t60+1 7221 : .591893886464d-4*t29*t30*t57*t59+1.591893886464d-4*gamm 7222 ; abb*t18*t27*t28*t57*t59+1.591893886464d-4*t23*t24*t25*t 7223 < 57*t59+5.30631295488d-5*t28*t32*t36*t57+5.30631295488d- 7224 = 5*gammabb*t18*t31*t36*t57+2.2222222222222224d+1*t25*t26 7225 > *t29*t55+1.0988544d-1*t23*t24*t35*t36*t37+5.494272d-2*g 7226 ? ammabb*t27*t28*t34*t35*t36+2.747136d-2*gammabb*t26*t31* 7227 @ t34*t35+3.377777777777778d+1*t23*t24*t26/rhob**7.333333 7228 1 333333333d+0)*wght+1.0d+0*rhob*t17*t33*(3.2163958997385 7229 2 07d+1*t66*t9/(t6**4*t7**2)-2.0d+0*t45*t66*t9/t6**3+1.0d 7230 3 +0*t45*t47*(2.1622951122684114d+0*t65+1.708776105532093 7231 4 8d+0*t64+1.2335503316757068d+0*t63+2.673190323653546d-1 7232 5 *t18)*t9-1.7613865241785684d-3*t64*t8+1.110223024625156 7233 6 5d-16*t13*t39*t44*(1.1632736958443765d+0*t65+9.89141964 7234 7 955861d-1*t64+6.003214762495226d-1*t63+2.10778258416395 7235 8 36d-1*t18)-4.0675215258019015d-19*t12*t64-2.22044604925 7236 9 0313d-16*t13*t39*t62/t10**3+1.7854583920998188d-15*t13* 7237 : t62/(t10**4*t11**2)-8.497974591333913d-2*t41*t45*t46*t4 7238 ; 7-9.812069668265515d-18*t39*t41*t43*t44)*wght+1.25d-1*g 7239 < ammabb*t14*t16*t33*t58*wght+2.0d+0*rhob*t17*t38*t48*wgh 7240 = t+2.0d+0*t17*t33*t48*wght+1.25d-1*gammabb*t15*t16*t33*t 7241 > 48*wght+2.0d+0*t14*t17*t38*wght+1.25d-1*gammabb*t14*t15 7242 ? *t16*t38*wght)+t26*(-5.15088d-3*rhob*t14*t17*t33*t61*wg 7243 @ ht-5.15088d-3*rhob*t17*t33*t35*t48*wght-5.15088d-3*rhob 7244 1 *t14*t17*t35*t38*wght-5.15088d-3*t14*t17*t33*t35*wght-5 7245 2 .15088d-3*t35*t49)+t15*t16*t22*(1.25d-1*gammabb*t33*t48 7246 3 *wght+1.25d-1*gammabb*t14*t38*wght)-1.25d-1*gammabb*t14 7247 4 *t16*t22*t33*t58*wght+5.30631295488d-5*rhob*t14*t17*t33 7248 5 *t36*t57*wght-1.28772d-3*gammabb*t14*t15*t16*t26*t33*t3 7249 6 5*wght+Amat2(iq,D2_RB_RB) 7250 Cmat2(iq,D2_RB_GBB) = t22*(1.0d+0*rhob*t14*t17*(3.43392000 7251 1 00000003d-2*gammabb*t27*t36*t50*taub+6.867840000000001d 7252 2 -2*t25*t28*t29*t36*taub+1.7169600000000002d-2*t25*t26*t 7253 3 32*taub-3.3333333333333337d+0*t25*t26*t27*taub+1.591893 7254 4 886464d-4*t23*t24*t35*t50*t59+1.591893886464d-4*t18*t29 7255 5 *t30*t35*t59+1.591893886464d-4*gammabb*t25*t27*t28*t35* 7256 6 t59+5.494272d-2*gammabb*t27*t28*t36*t37+2.747136d-2*gam 7257 7 mabb*t26*t31*t37-1.0666666666666666d+1*gammabb*t23*t26* 7258 8 t37+5.30631295488d-5*t18*t28*t32*t35*t36+5.30631295488d 7259 9 -5*gammabb*t25*t31*t35*t36-1.030176d-2*t18*t27*t28*t35* 7260 : t36-2.060352d-2*gammabb*t23*t25*t35*t36+2.747136d-2*t29 7261 ; *t30*t34*t36+8.241408d-2*t23*t24*t36/rhob**9-5.15088d-3 7262 < *t18*t26*t31*t35+1.373568d-2*t26*t28*t32*t34-2.66666666 7263 = 66666666d+0*t22*t31*t34-2.6666666666666666d+0*t26*t27*t 7264 > 28*t34)*wght+1.0d+0*rhob*t17*t48*t51*wght+1.0d+0*t14*t1 7265 ? 7*t51*wght-1.25d-1*t16*t33*t48*wght-1.25d-1*t14*t16*t38 7266 @ *wght-1.25d-1*t14*t15*t16*t33*wght)+t18*t26*(1.373568d- 7267 1 2*t14*t17*t33*wght-5.15088d-3*t49)-5.15088d-3*rhob*t14* 7268 2 t17*t26*t35*t51*wght+5.30631295488d-5*t14*t17*t19*t33*t 7269 3 35*t36*wght+6.4386d-4*t14*t16*t26*t33*t35*wght-6.4386d- 7270 4 4*gammabb*t14*t16*t26*t33*t34*wght+t15*t16*t22*t67+Cmat 7271 5 2(iq,D2_RB_GBB) 7272 Cmat2(iq,D2_GBB_GBB) = 1.0d+0*rhob*t14*t17*t22*(1.59189388 7273 1 6464d-4*gammabb*t27*t28*t50*t59+1.591893886464d-4*t25*t 7274 2 29*t30*t59+1.591893886464d-4*t23*t24*t59/rhob**1.066666 7275 3 6666666666d+1+5.30631295488d-5*gammabb*t31*t36*t50-4.12 7276 4 0704d-2*gammabb*t23*t36*t50+5.30631295488d-5*t25*t28*t3 7277 5 2*t36-2.060352d-2*t25*t27*t28*t36-1.030176d-2*t25*t26*t 7278 6 31+2*t23*t25*t26)*wght+5.30631295488d-5*t14*t17*t33*t36 7279 7 *t53*wght-1.030176d-2*t14*t17*t19*t26*t51*wght-2.5d-1*t 7280 8 14*t16*t22*t51*wght+1.28772d-3*t14*t16*t18*t26*t33*wght 7281 9 +Cmat2(iq,D2_GBB_GBB) 7282 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 7283 Mmat2(iq,D2_RB_TB) = t22*(1.0d+0*rhob*t14*t17*(1.373568d-1 7284 1 *t28*t29*t36*t53*taub+3.4339200000000003d-2*t26*t32*t53 7285 2 *taub-1.3333333333333333d+1*t26*t29*t53*taub+6.86784000 7286 3 0000001d-2*gammabb*t27*t36*t52*taub+3.183787772928d-4*g 7287 4 ammabb*t27*t28*t35*t53*t59+3.183787772928d-4*t23*t24*t3 7288 5 5*t52*t59+3.183787772928d-4*t19*t29*t30*t35*t59+1.06126 7289 6 2590976d-4*gammabb*t31*t35*t36*t53-2.060352d-2*gammabb* 7290 7 t27*t35*t36*t53+1.4422464000000002d-1*t23*t24*t36*t50+1 7291 8 .061262590976d-4*t19*t28*t32*t35*t36-4.120704d-2*t19*t2 7292 9 8*t29*t35*t36+3.4339200000000003d-2*t18*t29*t30*t36+8.9 7293 : 28192d-2*gammabb*t25*t27*t28*t36-1.030176d-2*t19*t26*t3 7294 ; 2*t35+1.7169600000000002d-2*t18*t26*t28*t32-3.333333333 7295 < 3333337d+0*t18*t22*t32+4.464096d-2*gammabb*t25*t26*t31- 7296 = 6.666666666666667d+0*t18*t26*t28*t29-8.666666666666666d 7297 > +0*gammabb*t25*t26*t27)*wght+1.25d-1*gammabb*t33*t48*t5 7298 ? 6*wght+1.25d-1*gammabb*t14*t38*t56*wght+1.25d-1*gammabb 7299 @ *t14*t15*t33*t56*wght+1.0d+0*rhob*t17*t48*t54*wght+1.0d 7300 1 +0*t14*t17*t54*wght)+t19*t26*(1.7169600000000002d-2*t14 7301 2 *t17*t33*wght-1.030176d-2*t49)-6.4386d-4*gammabb*t14*t2 7302 3 6*t33*t35*t56*wght-1.25d-1*gammabb*t14*t15*t22*t33*t56* 7303 4 wght-5.15088d-3*rhob*t14*t17*t26*t35*t54*wght+1.25d-1*g 7304 5 ammabb*t14*t15*t16*t22*t54*wght+1.061262590976d-4*t1*t1 7305 6 4*t17*t33*t35*t36*wght-1.28772d-3*gammabb*t14*t16*t18*t 7306 7 26*t33*wght+Mmat2(iq,D2_RB_TB) 7307 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 7308 Mmat2(iq,D2_GBB_TB) = 1.061262590976d-4*t14*t17*t33*t36*t6 7309 1 8*wght+1.0d+0*rhob*t14*t17*t22*(3.183787772928d-4*t29*t 7310 2 30*t53*t59+3.183787772928d-4*gammabb*t27*t28*t52*t59+3. 7311 3 183787772928d-4*t23*t24*t59/rhob**9.666666666666666d+0+ 7312 4 1.061262590976d-4*t28*t32*t36*t53-4.120704d-2*t28*t29*t 7313 5 36*t53-2.060352d-2*t27*t28*t36*t53-1.030176d-2*t26*t32* 7314 6 t53-1.030176d-2*t26*t31*t53+2.0d+0*t26*t27*t53+1.061262 7315 7 590976d-4*gammabb*t31*t36*t52-2.060352d-2*gammabb*t27*t 7316 8 36*t52-4.120704d-2*gammabb*t23*t36*t52)*wght-6.4386d-4* 7317 9 gammabb*t14*t18*t26*t33*t56*wght-5.15088d-3*t14*t17*t19 7318 : *t26*t54*wght-1.25d-1*t14*t16*t22*t54*wght-1.030176d-2* 7319 ; t1*t14*t17*t26*t51*wght+1.28772d-3*t14*t16*t19*t26*t33* 7320 < wght+t22*t56*t67+Mmat2(iq,D2_GBB_TB) 7321 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 7322 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 7323 Mmat2(iq,D2_TB_TB) = -2.5d-1*gammabb*t14*t22*t33*wght/taub 7324 1 **3+1.0d+0*rhob*t14*t17*t22*(6.367575545856d-4*gammabb* 7325 2 t27*t28*t59*t69+2.122525181952d-4*gammabb*t31*t36*t69-8 7326 3 .241408d-2*gammabb*t27*t36*t69+6.367575545856d-4*t29*t3 7327 4 0*t59*t68+2.122525181952d-4*t28*t32*t36*t68-1.6482816d- 7328 5 1*t28*t29*t36*t68-4.120704d-2*t26*t32*t68+8.0d+0*t26*t2 7329 6 9*t68+6.367575545856d-4*t23*t24*t59/rhob**8.66666666666 7330 7 6666d+0)*wght+2.122525181952d-4*t14*t17*t33*t36*t64*wgh 7331 8 t+2.5d-1*gammabb*t14*t22*t54*t56*wght-2.57544d-3*gammab 7332 9 b*t14*t19*t26*t33*t56*wght-2.060352d-2*t1*t14*t17*t26*t 7333 : 54*wght+Mmat2(iq,D2_TB_TB) 7334 else 7335 t1 = 1/rhob**1.6666666666666669d+0 7336 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 7337 t3 = 1/t2 7338 t4 = param(12) 7339 t5 = 1/t2**2 7340 t6 = 2.0d-50*t1-9.11559972d+0 7341 t7 = t6**2 7342 t8 = param(10) 7343 t9 = param(9) 7344 t10 = param(8) 7345 t11 = param(11) 7346 t12 = t3*t6*t9+1.6d-99*t5*t8/rhob**3.3333333333333337d+0+t 7347 1 4*t5*t7+4.0d-50*t1*t11*t5*t6+4.0d-50*t1*t10*t3+param(7) 7348 t13 = 1/rhob**6.666666666666666d-1 7349 t14 = rhob**5.0d-1 7350 t15 = 1/t14 7351 t16 = 1/rhob**3.333333333333333d-1 7352 t17 = 1/rhob**1.6666666666666666d-1 7353 t18 = 1.1120374863094686d+1*t17+3.8447462374472113d+0*t16+ 7354 1 1.644733775567609d+0*t15+2.4058712912881916d-1*t13 7355 t19 = 3.216395899738507d+1/t18+1.0d+0 7356 t20 = log(t19) 7357 t21 = 1.274696188700087d-1*t16+1.0d+0 7358 t22 = 5.982550435771079d+0*t17+2.2255694211506874d+0*t16+8 7359 1 .004286349993635d-1*t15+1.8970043257475583d-1*t13 7360 t23 = 1.6081979498692536d+1/t22+1.0d+0 7361 t24 = log(t23) 7362 t25 = 1.3256889990520176d-1*t16+1.0d+0 7363 t26 = -6.903522198342671d-18*t24*t25-3.1090699999999993d-2 7364 1 *t20*t21 7365 t27 = 1/t23 7366 t28 = 1/t14**3 7367 t29 = 1/rhob**1.3333333333333333d+0 7368 t30 = 1/rhob**1.1666666666666667d+0 7369 t31 = -9.970917392951799d-1*t30-7.418564737168958d-1*t29-4 7370 1 .002143174996817d-1*t28-1.264669550498372d-1*t1 7371 t32 = 1/t22**2 7372 t33 = 1/t19 7373 t34 = -1.8533958105157808d+0*t30-1.2815820791490704d+0*t29 7374 1 -8.223668877838045d-1*t28-1.6039141941921276d-1*t1 7375 t35 = 1/t18**2 7376 t36 = 1.0d+0*t21*t33*t34*t35+1.1102230246251565d-16*t25*t2 7377 1 7*t31*t32+3.0506411443514264d-19*t24*t29+1.321039893133 7378 2 9265d-3*t20*t29 7379 t37 = 1/t2**3 7380 t38 = 1/rhob**4.333333333333333d+0 7381 t39 = 1/rhob**2.6666666666666666d+0 7382 t40 = 5.15088d-52*t39*t5*t6*t9-3.333333333333333d-50*t3*t3 7383 1 9*t9-5.333333333333334d-99*t38*t5*t8+1.6482816d-150*t37 7384 2 *t8/rhob**6+1.030176d-51*t37*t39*t4*t7-6.66666666666666 7385 3 6d-50*t39*t4*t5*t6-6.666666666666666d-50*t11*t39*t5*t6+ 7386 4 4.1207039999999995d-101*t11*t37*t38*t6-1.33333333333333 7387 5 33d-99*t11*t38*t5+2.0603519999999997d-101*t10*t38*t5-6. 7388 6 666666666666666d-50*t10*t3*t39 7389 t41 = 5.0d-1*rhob*t26*t40*wght+5.0d-1*rhob*t12*t36*wght+5. 7390 1 0d-1*t12*t26*wght 7391 t42 = t31**2 7392 t43 = 1/t14**5 7393 t44 = 1/rhob**2.3333333333333334d+0 7394 t45 = 1/rhob**2.1666666666666665d+0 7395 t46 = t34**2 7396 t47 = 1/t2**4 7397 t48 = 1/rhob**7 7398 t49 = 1/rhob**5.333333333333333d+0 7399 t50 = 1/rhob**3.6666666666666664d+0 7400 fnc(iq) = 5.0d-1*rhob*t12*t26*t3*wght+fnc(iq) 7401 Amat(iq,D1_RB) = 2.57544d-52*t1*t12*t26*t5*wght+t3*t41+Ama 7402 1 t(iq,D1_RB) 7403 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 7404 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 7405 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 7406 Amat2(iq,D2_RB_RB) = t3*(5.0d-1*rhob*t26*(-1.373568d-51*t5 7407 1 *t50*t6*t9+5.306312954879999d-103*t37*t49*t6*t9+8.88888 7408 2 8888888888d-50*t3*t50*t9-3.43392d-101*t49*t5*t9+2.31111 7409 3 11111111113d-98*t49*t5*t8-1.53839616d-149*t37*t48*t8+2. 7410 4 5470302183424d-201*t47*t8/rhob**8.666666666666666d+0-2. 7411 5 747136d-51*t37*t4*t50*t7+1.5918938864639998d-102*t4*t47 7412 6 *t49*t7+1.7777777777777776d-49*t4*t5*t50*t6+1.777777777 7413 7 7777776d-49*t11*t5*t50*t6-1.373568d-100*t37*t4*t49*t6-2 7414 8 .4724223999999997d-100*t11*t37*t49*t6+6.367575545855999 7415 9 d-152*t11*t47*t48*t6+1.7777777777777776d-49*t10*t3*t50+ 7416 : 2.222222222222222d-99*t4*t49*t5+8.0d-99*t11*t49*t5-1.23 7417 ; 62111999999999d-100*t10*t49*t5-2.7471359999999995d-150* 7418 < t11*t37*t48+2.1225251819519997d-152*t10*t37*t48)*wght+5 7419 = .0d-1*rhob*t12*(-2.0d+0*t21*t33*t46/t18**3+3.2163958997 7420 > 38507d+1*t21*t46/(t18**4*t19**2)+1.0d+0*t21*t33*t35*(2. 7421 ? 1622951122684114d+0*t45+1.7087761055320938d+0*t44+1.233 7422 @ 5503316757068d+0*t43+2.673190323653546d-1*t39)+1.110223 7423 1 0246251565d-16*t25*t27*t32*(1.1632736958443765d+0*t45+9 7424 2 .89141964955861d-1*t44+6.003214762495226d-1*t43+2.10778 7425 3 25841639536d-1*t39)-4.0675215258019015d-19*t24*t44-1.76 7426 4 13865241785684d-3*t20*t44-2.220446049250313d-16*t25*t27 7427 5 *t42/t22**3+1.7854583920998188d-15*t25*t42/(t22**4*t23* 7428 6 *2)-8.497974591333913d-2*t29*t33*t34*t35-9.812069668265 7429 7 515d-18*t27*t29*t31*t32)*wght+1.0d+0*rhob*t36*t40*wght+ 7430 8 1.0d+0*t26*t40*wght+1.0d+0*t12*t36*wght)+t1*t5*(2.57544 7431 9 d-52*t26*t40*wght+2.57544d-52*t12*t36*wght)+t39*t5*(5.1 7432 : 5088d-52*t41-4.2923999999999995d-52*t12*t26*wght)+2.653 7433 ; 1564774399996d-103*t12*t26*t37*t38*wght+Amat2(iq,D2_RB_ 7434 < RB) 7435 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 7436 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 7437 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 7438 Mmat2(iq,D2_RB_TB) = Mmat2(iq,D2_RB_TB) 7439 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 7440 Mmat2(iq,D2_GBB_TB) = Mmat2(iq,D2_GBB_TB) 7441 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 7442 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 7443 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 7444 endif 7445 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 7446 endif ! ipol.eq.1 7447 enddo ! iq 7448 end 7449C> 7450C> \brief Evaluate the nwxcm_c_vs98 functional [1] 7451C> 7452C> \f{eqnarray*}{ 7453C> {\it t_1} &=& {{1}\over{\rho_\alpha^{{{2}\over{3}}}}}\\\\ 7454C> {\it t_2} &=& {{1}\over{\sqrt{\rho_\alpha}}}\\\\ 7455C> {\it t_3} &=& {{1}\over{\rho_\alpha^{{{1}\over{3}}}}}\\\\ 7456C> {\it t_4} &=& {{1}\over{\rho_\alpha^{{{1}\over{6}}}}}\\\\ 7457C> {\it t_5} &=& -6.903522198342671 \times 10^{-18}\,\log 7458C> \left({{16.08197949869254}\over{5.98255043577108\,{\it t_4} 7459C> +2.225569421150687\,{\it t_3}+0.8004286349993635\,{\it t_2} 7460C> +0.1897004325747558\,{\it t_1}}}+1.0\right)\, 7461C> \left(0.1325688999052018\,{\it t_3}+1.0\right)-0.0310907 7462C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 7463C> \it t_4}+3.844746237447211\,{\it t_3}+1.644733775567609\,{ 7464C> \it t_2}+0.2405871291288192\,{\it t_1}}}+1.0\right)\, 7465C> \left(0.1274696188700087\,{\it t_3}+1.0\right)\\\\ 7466C> {\it t_6} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 7467C> {\it t_7} &=& {\it t_6}\,\sigma_{\alpha\alpha}\\\\ 7468C> {\it t_8} &=& {{2.0\,\tau_\alpha}\over{\rho_\alpha^{{{5} 7469C> \over{3}}}}}\\\\ 7470C> {\it t_9} &=& 0.00515088\,\left({\it t_8}+{\it t_7} 7471C> -9.11559972\right)+1.0\\\\ 7472C> {\it t_{10}} &=& {{1}\over{{\it t_9}}}\\\\ 7473C> {\it t_{11}} &=& {\it param}\left(7\right)\\\\ 7474C> {\it t_{12}} &=& {\it param}\left(10\right)\\\\ 7475C> {\it t_{13}} &=& {{1}\over{{\it t_9}^2}}\\\\ 7476C> {\it t_{14}} &=& {\it param}\left(11\right)\\\\ 7477C> {\it t_{15}} &=& {\it t_8}-9.11559972\\\\ 7478C> {\it t_{16}} &=& {\it param}\left(12\right)\\\\ 7479C> {\it t_{17}} &=& {\it param}\left(8\right)\\\\ 7480C> {\it t_{18}} &=& {\it param}\left(9\right)\\\\ 7481C> {\it t_{19}} &=& {{1}\over{\rho_\beta^{{{2}\over{3}}}}}\\\\ 7482C> {\it t_{20}} &=& {{1}\over{\sqrt{\rho_\beta}}}\\\\ 7483C> {\it t_{21}} &=& {{1}\over{\rho_\beta^{{{1}\over{3}}}}}\\\\ 7484C> {\it t_{22}} &=& {{1}\over{\rho_\beta^{{{1}\over{6}}}}}\\\\ 7485C> {\it t_{23}} &=& -6.903522198342671 \times 10^{-18} 7486C> \,\log \left({{16.08197949869254}\over{5.98255043577108\,{ 7487C> \it t_{22}}+2.225569421150687\,{\it t_{21}}+0.8004286349993635 7488C> \,{\it t_{20}}+0.1897004325747558\,{\it t_{19}}}}+1.0\right) 7489C> \,\left(0.1325688999052018\,{\it t_{21}}+1.0\right)-0.0310907 7490C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 7491C> \it t_{22}}+3.844746237447211\,{\it t_{21}}+1.644733775567609 7492C> \,{\it t_{20}}+0.2405871291288192\,{\it t_{19}}}}+1.0\right) 7493C> \,\left(0.1274696188700087\,{\it t_{21}}+1.0\right)\\\\ 7494C> {\it t_{24}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 7495C> {\it t_{25}} &=& {\it t_{24}}\,\sigma_{\beta\beta}\\\\ 7496C> {\it t_{26}} &=& {{2.0\,\tau_\beta}\over{\rho_\beta^{{{5} 7497C> \over{3}}}}}\\\\ 7498C> {\it t_{27}} &=& 0.00515088\,\left({\it t_{26}}+{\it t_{25}} 7499C> -9.11559972\right)+1.0\\\\ 7500C> {\it t_{28}} &=& {{1}\over{{\it t_{27}}}}\\\\ 7501C> {\it t_{29}} &=& {{1}\over{{\it t_{27}}^2}}\\\\ 7502C> {\it t_{30}} &=& {\it t_{26}}-9.11559972\\\\ 7503C> {\it t_{31}} &=& \rho_\beta+\rho_\alpha\\\\ 7504C> {\it t_{32}} &=& {{1}\over{{\it t_{31}}^{{{1}\over{3}}}}}\\\\ 7505C> {\it t_{33}} &=& \rho_\alpha-\rho_\beta\\\\ 7506C> {\it t_{34}} &=& {\it t_{33}}^4\\\\ 7507C> {\it t_{35}} &=& {{1}\over{{\it t_{31}}^4}}\\\\ 7508C> {\it t_{36}} &=& {{1}\over{{\it t_{31}}}}\\\\ 7509C> {\it t_{37}} &=& \left({\it t_{33}}\,{\it t_{36}} 7510C> +1.0\right)^{{{4}\over{3}}}+\left(1.0-{\it t_{33}}\,{ 7511C> \it t_{36}}\right)^{{{4}\over{3}}}-2.0\\\\ 7512C> {\it t_{38}} &=& -1.923661050931536\,{\it t_{34}}\,{\it t_{35}} 7513C> \,{\it t_{37}}\\\\ 7514C> {\it t_{39}} &=& {{1}\over{{\it t_{31}}^{{{2}\over{3}}}}}\\\\ 7515C> {\it t_{40}} &=& {{1}\over{\sqrt{{\it t_{31}}}}}\\\\ 7516C> {\it t_{41}} &=& {{1}\over{{\it t_{31}}^{{{1}\over{6}}}}}\\\\ 7517C> {\it t_{42}} &=& 0.00304966\,\left({\it t_{26}}+{\it t_8}+{ 7518C> \it t_{25}}+{\it t_7}-18.23119944\right)+1.0\\\\ 7519C> {\it t_{43}} &=& {{1}\over{{\it t_{42}}}}\\\\ 7520C> {\it t_{44}} &=& {\it t_{25}}+{\it t_7}\\\\ 7521C> {\it t_{45}} &=& {{1}\over{{\it t_{42}}^2}}\\\\ 7522C> {\it t_{46}} &=& {\it t_{26}}+{\it t_8}-18.23119944\\\\ 7523C> {\it t_{47}} &=& {{1}\over{\rho_s^{{{2}\over{3}}}}}\\\\ 7524C> {\it t_{48}} &=& {{1}\over{\sqrt{\rho_s}}}\\\\ 7525C> {\it t_{49}} &=& {{1}\over{\rho_s^{{{1}\over{3}}}}}\\\\ 7526C> {\it t_{50}} &=& {{1}\over{\rho_s^{{{1}\over{6}}}}}\\\\ 7527C> {\it t_{51}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 7528C> {\it t_{52}} &=& {{2.0\,\tau_s}\over{\rho_s^{{{5}\over{3}}}}}\\\\ 7529C> {\it t_{53}} &=& 0.00515088\,\left({\it t_{52}}+{\it t_{51}} 7530C> \,\sigma_{ss}-9.11559972\right)+1.0\\\\ 7531C> {\it t_{54}} &=& {{1}\over{{\it t_{53}}}}\\\\ 7532C> {\it t_{55}} &=& {{1}\over{{\it t_{53}}^2}}\\\\ 7533C> {\it t_{56}} &=& {\it t_{52}}-9.11559972\\\\ 7534C> f &=& 1.0\,\left({\it t_{31}}\,\left(-0.0598079686361971\,{ 7535C> \it t_{34}}\,{\it t_{35}}\,\left(0.1274696188700087\,{ 7536C> \it t_{32}}+1.0\right)\,{\it t_{37}}\,\log 7537C> \left({{32.16395899738507}\over{11.12037486309469\,{\it t_{41}} 7538C> +3.844746237447211\,{\it t_{32}}+1.644733775567609\,{\it t_{40}} 7539C> +0.2405871291288192\,{\it t_{39}}}}+1.0\right) 7540C> +0.01975163132168077\,\left(0.06901399211255825\,{\it t_{32}} 7541C> +1.0\right)\,\left({\it t_{38}}+1.923661050931536\,{ 7542C> \it t_{37}}\right)\,\log \left({{29.60881320326807} 7543C> \over{8.15741470348764\,{\it t_{41}}+2.247591863577616\,{ 7544C> \it t_{32}}+0.4300972471276643\,{\it t_{40}} 7545C> +0.1911512595127337\,{\it t_{39}}}}+1.0\right)-0.0621814 7546C> \,\left(0.1325688999052018\,{\it t_{32}}+1.0\right)\,\left({ 7547C> \it t_{38}}+1.0\right)\,\log \left({{16.08197949869254} 7548C> \over{5.98255043577108\,{\it t_{41}}+2.225569421150687\,{ 7549C> \it t_{32}}+0.8004286349993635\,{\it t_{40}} 7550C> +0.1897004325747558\,{\it t_{39}}}}+1.0\right)\right)-{ 7551C> \it t_{23}}\,\rho_\beta-{\it t_5}\,\rho_\alpha\right)\,{ 7552C> \it t_{43}}\,\left({\it param}\left(3\right)\,{\it t_{46}} 7553C> \,{\it t_{43}}+{\it param}\left(2\right)\,{\it t_{44}}\,{ 7554C> \it t_{43}}+{\it param}\left(6\right)\,{\it t_{46}}^2\,{ 7555C> \it t_{45}}+{\it param}\left(5\right)\,{\it t_{44}}\,{ 7556C> \it t_{46}}\,{\it t_{45}}+{\it param}\left(4\right)\,{ 7557C> \it t_{44}}^2\,{\it t_{45}}+{\it param}\left(1\right)\right) 7558C> +1.0\,{\it t_{23}}\,\rho_\beta\,\left(1.0-{{0.125\, 7559C> \sigma_{\beta\beta}}\over{\rho_\beta\,\tau_\beta}}\right)\,{ 7560C> \it t_{28}}\,\left({\it t_{18}}\,{\it t_{30}}\,{\it t_{28}} 7561C> +{\it t_{17}}\,{\it t_{24}}\,\sigma_{\beta\beta}\,{\it t_{28}} 7562C> +{\it t_{16}}\,{\it t_{30}}^2\,{\it t_{29}}+{\it t_{14}}\,{ 7563C> \it t_{24}}\,\sigma_{\beta\beta}\,{\it t_{30}}\,{\it t_{29}} 7564C> +{{{\it t_{12}}\,\sigma_{\beta\beta}^2\,{\it t_{29}}} 7565C> \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{11}}\right)+1.0 7566C> \,{\it t_5}\,\rho_\alpha\,\left(1.0-{{0.125\, 7567C> \sigma_{\alpha\alpha}}\over{\rho_\alpha\,\tau_\alpha}}\right) 7568C> \,{\it t_{10}}\,\left({\it t_{18}}\,{\it t_{15}}\,{\it t_{10}} 7569C> +{\it t_{17}}\,{\it t_6}\,\sigma_{\alpha\alpha}\,{\it t_{10}} 7570C> +{\it t_{16}}\,{\it t_{15}}^2\,{\it t_{13}}+{\it t_{14}}\,{ 7571C> \it t_6}\,\sigma_{\alpha\alpha}\,{\it t_{15}}\,{\it t_{13}} 7572C> +{{{\it t_{12}}\,\sigma_{\alpha\alpha}^2\,{\it t_{13}}} 7573C> \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{11}}\right)\\\\ 7574C> g &=& 0\\\\ 7575C> G &=& 1.0\,\left(-6.903522198342671 \times 10^{-18} 7576C> \,\log \left({{16.08197949869254}\over{5.98255043577108\,{ 7577C> \it t_{50}}+2.225569421150687\,{\it t_{49}}+0.8004286349993635 7578C> \,{\it t_{48}}+0.1897004325747558\,{\it t_{47}}}}+1.0\right) 7579C> \,\left(0.1325688999052018\,{\it t_{49}}+1.0\right)-0.0310907 7580C> \,\log \left({{32.16395899738507}\over{11.12037486309469\,{ 7581C> \it t_{50}}+3.844746237447211\,{\it t_{49}}+1.644733775567609 7582C> \,{\it t_{48}}+0.2405871291288192\,{\it t_{47}}}}+1.0\right) 7583C> \,\left(0.1274696188700087\,{\it t_{49}}+1.0\right)\right) 7584C> \,\rho_s\,\left(1.0-{{0.125\,\sigma_{ss}}\over{\rho_s 7585C> \,\tau_s}}\right)\,{\it t_{54}}\,\left({\it t_{18}}\,{ 7586C> \it t_{56}}\,{\it t_{54}}+{\it t_{17}}\,{\it t_{51}}\, 7587C> \sigma_{ss}\,{\it t_{54}}+{\it t_{16}}\,{\it t_{56}}^2\,{ 7588C> \it t_{55}}+{\it t_{14}}\,{\it t_{51}}\,\sigma_{ss}\,{ 7589C> \it t_{56}}\,{\it t_{55}}+{{{\it t_{12}}\,\sigma_{ss}^2\,{ 7590C> \it t_{55}}}\over{\rho_s^{{{16}\over{3}}}}}+{ 7591C> \it t_{11}}\right)\\\\ 7592C> \f} 7593C> 7594C> Code generated with Maxima 5.34.0 [2] 7595C> driven by autoxc-Ds [3]. 7596C> 7597C> ### References ### 7598C> 7599C> [1] T van Voorhis, GE Scuseria, J.Chem.Phys. 109, 400 (1998) , DOI: 7600C> <a href="https://doi.org/10.1063/1.3005348 "> 7601C> 10.1063/1.3005348 </a> 7602C> 7603C> [2] Maxima, a computer algebra system, 7604C> <a href="http://maxima.sourceforge.net/"> 7605C> http://maxima.sourceforge.net/</a> 7606C> 7607C> [3] autoxc-Ds, revision 27207 2015-06-23 7608C> 7609 subroutine nwxcm_c_vs98_d3(param,tol_rho,ipol,nq,wght, 7610 +rho,rgamma,tau,fnc,Amat,Amat2,Amat3, 7611 +Cmat,Cmat2,Cmat3,Mmat,Mmat2,Mmat3) 7612c $Id: $ 7613#ifdef NWXC_QUAD_PREC 7614 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 7615 integer, parameter :: rk=selected_real_kind(30) 7616#else 7617 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 7618 integer, parameter :: rk=selected_real_kind(15) 7619#endif 7620#include "nwxc_param.fh" 7621 double precision param(*) !< [Input] Parameters of functional 7622 double precision tol_rho !< [Input] The lower limit on the density 7623 integer ipol !< [Input] The number of spin channels 7624 integer nq !< [Input] The number of points 7625 double precision wght !< [Input] The weight of the functional 7626 double precision rho(nq,NCOL_RHO) !< [Input] The density 7627 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 7628 !< gradients 7629 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 7630 double precision fnc(nq) !< [Output] The value of the functional 7631c 7632c Sampling Matrices for the XC Kernel 7633c 7634 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 7635 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 7636 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 7637c 7638c Sampling Matrices for the XC Kernel 7639c 7640 double precision Amat2(nq,NCOL_AMAT2) !< [Output] The 2nd derivative wrt rho 7641 double precision Cmat2(nq,NCOL_CMAT2) !< [Output] The 2nd derivative wrt rgamma 7642 !< and possibly rho 7643 double precision Mmat2(nq,NCOL_MMAT2) !< [Output] The 2nd derivative wrt tau 7644 !< and possibly rho 7645c 7646c Sampling Matrices for the XC Kernel 7647c 7648 double precision Amat3(nq,NCOL_AMAT3) !< [Output] The 3rd derivative wrt rho 7649 double precision Cmat3(nq,NCOL_CMAT3) !< [Output] The 3rd derivative wrt rgamma 7650 !< and possibly rho 7651 double precision Mmat3(nq,NCOL_MMAT3) !< [Output] The 3rd derivative wrt tau 7652 !< and possibly rho 7653 integer iq 7654 double precision tmp 7655 double precision rhoa,rhob 7656 double precision gammaaa,gammaab,gammabb 7657 double precision taua,taub 7658 double precision nwxcm_heaviside 7659 external nwxcm_heaviside 7660!DIR$ NOVECTOR 7661 do iq = 1, nq 7662 if (ipol.eq.1) then 7663 rhoa = 0.5d0*rho(iq,R_T) 7664 gammaaa = 0.25d0*rgamma(iq,G_TT) 7665 taua = 0.5d0*tau(iq,T_T) 7666 if (rhoa.gt.tol_rho) then 7667 if (taua.gt.tol_rho) then 7668 t1 = 1/rhoa**6.666666666666666d-1 7669 t2 = rhoa**5.0d-1 7670 t3 = 1/t2 7671 t4 = 1/rhoa**3.333333333333333d-1 7672 t5 = 1/rhoa**1.6666666666666666d-1 7673 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 7674 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 7675 t7 = 3.216395899738507d+1/t6+1.0d+0 7676 t8 = log(t7) 7677 t9 = 1.274696188700087d-1*t4+1.0d+0 7678 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 7679 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 7680 t11 = 1.6081979498692536d+1/t10+1.0d+0 7681 t12 = log(t11) 7682 t13 = 1.3256889990520176d-1*t4+1.0d+0 7683 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 7684 1 12*t13 7685 t15 = 1/rhoa 7686 t16 = 1/taua 7687 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 7688 t18 = 1/rhoa**2.6666666666666666d+0 7689 t19 = 1/rhoa**1.6666666666666669d+0 7690 t20 = 2.0d+0*t19*taua 7691 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 7692 t22 = 1/t21 7693 t23 = param(10) 7694 t24 = gammaaa**2 7695 t25 = 1/rhoa**5.333333333333333d+0 7696 t26 = 1/t21**2 7697 t27 = param(11) 7698 t28 = t20-9.11559972d+0 7699 t29 = param(12) 7700 t30 = t28**2 7701 t31 = param(8) 7702 t32 = param(9) 7703 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 7704 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 7705 t34 = -2*rhoa*t14 7706 t35 = 4.0d+0*t19*taua 7707 t36 = 3.04966d-3*(t35+2*gammaaa*t18-1.823119944d+1)+1.0d+0 7708 t37 = 1/t36 7709 t38 = param(4) 7710 t39 = 1/t36**2 7711 t40 = param(5) 7712 t41 = t35-1.823119944d+1 7713 t42 = param(6) 7714 t43 = t41**2 7715 t44 = param(2) 7716 t45 = param(3) 7717 t46 = t37*t41*t45+2*gammaaa*t18*t37*t44+t39*t42*t43+2*gamm 7718 1 aaa*t18*t39*t40*t41+4*t24*t25*t38*t39+param(1) 7719 t47 = 1/rhoa**3.6666666666666664d+0 7720 t48 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 7721 1 0*gammaaa*t47 7722 t49 = 1/t21**3 7723 t50 = 1/rhoa**6.333333333333333d+0 7724 t51 = -3.3333333333333337d+0*t18*t22*t32*taua-6.6666666666 7725 1 66667d+0*t18*t26*t28*t29*taua-3.3333333333333337d+0*gam 7726 2 maaa*t25*t26*t27*taua-5.333333333333333d+0*t23*t24*t26* 7727 3 t50-1.030176d-2*t29*t30*t48*t49-1.030176d-2*gammaaa*t18 7728 4 *t27*t28*t48*t49-1.030176d-2*t23*t24*t25*t48*t49-5.1508 7729 5 8d-3*t26*t28*t32*t48-5.15088d-3*gammaaa*t18*t26*t31*t48 7730 6 -2.6666666666666666d+0*gammaaa*t22*t31*t47-2.6666666666 7731 7 666666d+0*gammaaa*t26*t27*t28*t47 7732 t52 = 1/t11 7733 t53 = 1/t2**3 7734 t54 = 1/rhoa**1.3333333333333333d+0 7735 t55 = 1/rhoa**1.1666666666666667d+0 7736 t56 = -9.970917392951799d-1*t55-7.418564737168958d-1*t54-4 7737 1 .002143174996817d-1*t53-1.264669550498372d-1*t19 7738 t57 = 1/t10**2 7739 t58 = 1/t7 7740 t59 = -1.8533958105157808d+0*t55-1.2815820791490704d+0*t54 7741 1 -8.223668877838045d-1*t53-1.6039141941921276d-1*t19 7742 t60 = 1/t6**2 7743 t61 = 1.0d+0*t58*t59*t60*t9+1.3210398931339265d-3*t54*t8+1 7744 1 .1102230246251565d-16*t13*t52*t56*t57+3.050641144351426 7745 2 4d-19*t12*t54 7746 t62 = 1.0d+0*rhoa*t17*t33*t61+1.0d+0*rhoa*t14*t17*t51+1.0d 7747 1 +0*t14*t17*t33 7748 t63 = 6.299605249474366d-1 7749 t64 = 1.414213562373095d+0 7750 t65 = 1/t64 7751 t66 = 7.937005259840998d-1 7752 t67 = 8.908987181403393d-1 7753 t68 = 5.982550435771079d+0*t5*t67+2.2255694211506874d+0*t4 7754 1 *t66+8.004286349993635d-1*t3*t65+1.8970043257475583d-1* 7755 2 t1*t63 7756 t69 = 1.6081979498692536d+1/t68+1.0d+0 7757 t70 = log(t69) 7758 t71 = 1.3256889990520176d-1*t4*t66+1.0d+0 7759 t72 = t34-1.243628d-1*rhoa*t70*t71 7760 t73 = 1/t36**3 7761 t74 = -3.3333333333333337d+0*t18*t37*t45*taua-6.6666666666 7762 1 66667d+0*t18*t39*t41*t42*taua-6.666666666666667d+0*gamm 7763 2 aaa*t25*t39*t40*taua-6.09932d-3*t42*t43*t48*t73-1.21986 7764 3 4d-2*gammaaa*t18*t40*t41*t48*t73-2.439728d-2*t24*t25*t3 7765 4 8*t48*t73-1.0666666666666666d+1*t24*t38*t39*t50-3.04966 7766 5 d-3*t39*t41*t45*t48-6.09932d-3*gammaaa*t18*t39*t44*t48- 7767 6 2.6666666666666666d+0*gammaaa*t37*t44*t47-2.66666666666 7768 7 66666d+0*gammaaa*t39*t40*t41*t47 7769 t75 = 1/t69 7770 t76 = 3.149802624737183d-1 7771 t77 = 1/t64**3 7772 t78 = 3.968502629920499d-1 7773 t79 = 4.4544935907016964d-1 7774 t80 = -9.970917392951799d-1*t55*t79-7.418564737168958d-1*t 7775 1 54*t78-4.002143174996817d-1*t53*t77-1.264669550498372d- 7776 2 1*t19*t76 7777 t81 = 1/t68**2 7778 t82 = 3.1090699999999993d-2*t8*t9+2*rhoa*(1.0d+0*t71*t75*t 7779 1 80*t81+2.747773264188437d-3*t54*t70*t78)-6.21814d-2*t70 7780 2 *t71-rhoa*t61+6.903522198342671d-18*t12*t13 7781 t83 = 1.0d+0*t46*t82+1.0d+0*t72*t74 7782 t84 = 1/rhoa**8 7783 t85 = -1.030176d-2*t23*t24*t49*t84-1.030176d-2*t18*t29*t30 7784 1 *t49-1.030176d-2*gammaaa*t25*t27*t28*t49-5.15088d-3*t18 7785 2 *t26*t28*t32-5.15088d-3*gammaaa*t25*t26*t31+t18*t22*t31 7786 3 +t18*t26*t27*t28+2*gammaaa*t23*t25*t26 7787 t86 = -2.439728d-2*t24*t38*t73*t84-6.09932d-3*t18*t42*t43* 7788 1 t73-1.219864d-2*gammaaa*t25*t40*t41*t73-3.04966d-3*t18* 7789 2 t39*t41*t45-6.09932d-3*gammaaa*t25*t39*t44+t18*t37*t44+ 7790 3 t18*t39*t40*t41+4*gammaaa*t25*t38*t39 7791 t87 = 1/rhoa**7 7792 t88 = 1/rhoa**4.333333333333333d+0 7793 t89 = -2.060352d-2*gammaaa*t27*t28*t49*t88-1.030176d-2*gam 7794 1 maaa*t26*t31*t88+2.0d+0*gammaaa*t26*t27*t88-2.060352d-2 7795 2 *t23*t24*t49*t87-2.060352d-2*t19*t29*t30*t49-1.030176d- 7796 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 7797 4 *t29 7798 t90 = taua**2 7799 t91 = 1/t90 7800 t92 = -2.439728d-2*gammaaa*t40*t41*t73*t88-1.219864d-2*gam 7801 1 maaa*t39*t44*t88+4.0d+0*gammaaa*t39*t40*t88-4.879456d-2 7802 2 *t24*t38*t73*t87-1.219864d-2*t19*t42*t43*t73-6.09932d-3 7803 3 *t19*t39*t41*t45+2.0d+0*t19*t37*t45+4.0d+0*t19*t39*t41* 7804 4 t42 7805 t93 = t48**2 7806 t94 = 1/rhoa**2 7807 t95 = 1.25d-1*gammaaa*t33*t61+1.25d-1*gammaaa*t14*t51 7808 t96 = 1/t21**4 7809 t97 = 1/rhoa**4.666666666666667d+0 7810 t98 = 8.88888888888889d+0*t47*taua+9.777777777777779d+0*ga 7811 1 mmaaa*t97 7812 t99 = 1/rhoa**7.333333333333333d+0 7813 t100 = 2.6666666666666666d+1*gammaaa*t26*t27*t50*taua+1.37 7814 1 3568d-1*t18*t28*t29*t48*t49*taua+6.867840000000001d-2*g 7815 2 ammaaa*t25*t27*t48*t49*taua+3.4339200000000003d-2*t18*t 7816 3 26*t32*t48*taua+8.88888888888889d+0*t22*t32*t47*taua+1. 7817 4 7777777777777778d+1*t26*t28*t29*t47*taua+3.377777777777 7818 5 778d+1*t23*t24*t26*t99-1.030176d-2*t29*t30*t49*t98-1.03 7819 6 0176d-2*gammaaa*t18*t27*t28*t49*t98-1.030176d-2*t23*t24 7820 7 *t25*t49*t98-5.15088d-3*t26*t28*t32*t98-5.15088d-3*gamm 7821 8 aaa*t18*t26*t31*t98+9.777777777777779d+0*gammaaa*t22*t3 7822 9 1*t97+9.777777777777779d+0*gammaaa*t26*t27*t28*t97+1.59 7823 : 1893886464d-4*t29*t30*t93*t96+1.591893886464d-4*gammaaa 7824 ; *t18*t27*t28*t93*t96+1.591893886464d-4*t23*t24*t25*t93* 7825 < t96+5.30631295488d-5*t28*t32*t49*t93+5.30631295488d-5*g 7826 = ammaaa*t18*t31*t49*t93+2.2222222222222224d+1*t25*t26*t2 7827 > 9*t90+1.0988544d-1*t23*t24*t48*t49*t50+5.494272d-2*gamm 7828 ? aaa*t27*t28*t47*t48*t49+2.747136d-2*gammaaa*t26*t31*t47 7829 @ *t48 7830 t101 = 1/t11**2 7831 t102 = t56**2 7832 t103 = 1/t10**4 7833 t104 = 1/t10**3 7834 t105 = 1/t2**5 7835 t106 = 1/rhoa**2.3333333333333334d+0 7836 t107 = 1/rhoa**2.1666666666666665d+0 7837 t108 = 2.1077825841639536d-1*t18+1.1632736958443765d+0*t10 7838 1 7+9.89141964955861d-1*t106+6.003214762495226d-1*t105 7839 t109 = 1/t7**2 7840 t110 = t59**2 7841 t111 = 1/t6**4 7842 t112 = 1/t6**3 7843 t113 = 2.673190323653546d-1*t18+2.1622951122684114d+0*t107 7844 1 +1.7087761055320938d+0*t106+1.2335503316757068d+0*t105 7845 t114 = 1.0d+0*t113*t58*t60*t9-2.0d+0*t110*t112*t58*t9+3.21 7846 1 6395899738507d+1*t109*t110*t111*t9-1.7613865241785684d- 7847 2 3*t106*t8-8.497974591333913d-2*t54*t58*t59*t60-9.812069 7848 3 668265515d-18*t52*t54*t56*t57+1.1102230246251565d-16*t1 7849 4 08*t13*t52*t57-2.220446049250313d-16*t102*t104*t13*t52+ 7850 5 1.7854583920998188d-15*t101*t102*t103*t13-4.06752152580 7851 6 19015d-19*t106*t12 7852 t115 = 1.25d-1*gammaaa*t14*t16*t33*t94+2.0d+0*rhoa*t17*t51 7853 1 *t61+2.0d+0*t17*t33*t61+1.25d-1*gammaaa*t15*t16*t33*t61 7854 2 +2.0d+0*t14*t17*t51+1.25d-1*gammaaa*t14*t15*t16*t51+1.0 7855 3 d+0*rhoa*t114*t17*t33+1.0d+0*rhoa*t100*t14*t17 7856 t116 = -5.15088d-3*rhoa*t14*t17*t33*t98-5.15088d-3*t48*t62 7857 1 -5.15088d-3*rhoa*t17*t33*t48*t61-5.15088d-3*rhoa*t14*t1 7858 2 7*t48*t51-5.15088d-3*t14*t17*t33*t48 7859 t117 = 1.86008522312d-5*t46*t72*t73*t93 7860 t118 = 1/t36**4 7861 t119 = 1.1160511338720001d-4*gammaaa*t118*t18*t40*t41*t93 7862 t120 = 2.2321022677440003d-4*t118*t24*t25*t38*t93 7863 t121 = 5.580255669360001d-5*t118*t42*t43*t93 7864 t122 = 1.3011882666666666d-1*t24*t38*t48*t50*t73 7865 t123 = 8.132426666666668d-2*gammaaa*t25*t40*t48*t73*taua 7866 t124 = 3.2529706666666663d-2*gammaaa*t40*t41*t47*t48*t73 7867 t125 = 8.132426666666668d-2*t18*t41*t42*t48*t73*taua 7868 t126 = 1.86008522312d-5*t41*t45*t73*t93 7869 t127 = 3.72017044624d-5*gammaaa*t18*t44*t73*t93 7870 t128 = 1.6264853333333332d-2*gammaaa*t39*t44*t47*t48 7871 t129 = 2.033106666666667d-2*t18*t39*t45*t48*taua 7872 t130 = 2.2222222222222224d+1*t25*t39*t42*t90 7873 t131 = 3.5555555555555557d+1*gammaaa*t39*t40*t50*taua+8.88 7874 1 888888888889d+0*t37*t45*t47*taua+1.7777777777777778d+1* 7875 2 t39*t41*t42*t47*taua+5.333333333333333d+1*t24*t38*t39*t 7876 3 99-6.09932d-3*t42*t43*t73*t98-1.219864d-2*gammaaa*t18*t 7877 4 40*t41*t73*t98-2.439728d-2*t24*t25*t38*t73*t98-3.04966d 7878 5 -3*t39*t41*t45*t98-6.09932d-3*gammaaa*t18*t39*t44*t98+9 7879 6 .777777777777779d+0*gammaaa*t37*t44*t97+9.7777777777777 7880 7 79d+0*gammaaa*t39*t40*t41*t97+t130+t129+t128+t127+t126+ 7881 8 t125+t124+t123+t122+t121+t120+t119 7882 t132 = 2.0d+0*t74*t82 7883 t133 = 2.0d+0*t71*t75*t80*t81 7884 t134 = 5.495546528376875d-3*t54*t70*t78 7885 t135 = 1/t69**2 7886 t136 = t80**2 7887 t137 = 1/t68**4 7888 t138 = 1.6081979498692536d+1*t135*t136*t137*t71 7889 t139 = 1/t68**3 7890 t140 = -2.0d+0*t136*t139*t71*t75 7891 t141 = 1.9842513149602492d-1 7892 t142 = 6.003214762495226d-1*t105/t64**5+3.319549557987472d 7893 1 -2*t18+9.89141964955861d-1*t106*t141+2.5908976111853255 7894 2 d-1*t107 7895 t143 = 1.0d+0*t142*t71*t75*t81 7896 t144 = -3.663697685584583d-3*t106*t141*t70 7897 t145 = 8.157414703487641d+0*t5*t67+2.247591863577616d+0*t4 7898 1 *t66+4.3009724712766434d-1*t3*t65+1.9115125951273373d-1 7899 2 *t1*t63 7900 t146 = 2.9608813203268075d+1/t145+1.0d+0 7901 t147 = log(t146) 7902 t148 = 6.901399211255825d-2*t4*t66+1.0d+0 7903 t149 = -8.837926660346784d-2*t54*t75*t78*t80*t81 7904 t150 = 2*rhoa*(8.443431970194815d-3*t147*t148*t94+t149+t14 7905 1 4+t143+t140+t138)-2.0d+0*t58*t59*t60*t9-2.6420797862678 7906 2 53d-3*t54*t8-2.220446049250313d-16*t13*t52*t56*t57-6.10 7907 3 1282288702853d-19*t12*t54+t134+t133-rhoa*t114 7908 t151 = 1.0d+0*t131*t72+1.0d+0*t150*t46+t132 7909 t152 = -3.04966d-3*t48*t72*t74 7910 t153 = -3.04966d-3*t46*t48*t82 7911 t154 = -3.04966d-3*t48*t83 7912 t155 = -3.04966d-3*t46*t72*t98+t154+t153+t152 7913 t156 = 1.7777777777777778d+1*gammaaa*t39*t40*t50*taua+1.42 7914 1 22222222222222d+1*t24*t38*t39*t99+t130+t129+t128+t127+t 7915 2 126+t125+t124+t123+t122+t121+t120+t119 7916 t157 = -8.443431970194815d-3*t147*t148*t94 7917 t158 = 2*rhoa*(t157+t149+t144+t143+t140+t138)+t134+t133 7918 t159 = 1.0d+0*t156*t72+1.0d+0*t158*t46+t132 7919 t160 = t154+t153+t152 7920 t161 = 1.25d-1*gammaaa*t14*t85+1.25d-1*t14*t33 7921 t162 = 1/rhoa**9 7922 t163 = 3.4339200000000003d-2*gammaaa*t27*t49*t84*taua+6.86 7923 1 7840000000001d-2*t25*t28*t29*t49*taua+1.716960000000000 7924 2 2d-2*t25*t26*t32*taua-3.3333333333333337d+0*t25*t26*t27 7925 3 *taua+1.591893886464d-4*t23*t24*t48*t84*t96+1.591893886 7926 4 464d-4*t18*t29*t30*t48*t96+1.591893886464d-4*gammaaa*t2 7927 5 5*t27*t28*t48*t96+5.494272d-2*gammaaa*t27*t28*t49*t50+2 7928 6 .747136d-2*gammaaa*t26*t31*t50-1.0666666666666666d+1*ga 7929 7 mmaaa*t23*t26*t50+5.30631295488d-5*t18*t28*t32*t48*t49+ 7930 8 5.30631295488d-5*gammaaa*t25*t31*t48*t49-1.030176d-2*t1 7931 9 8*t27*t28*t48*t49-2.060352d-2*gammaaa*t23*t25*t48*t49+2 7932 : .747136d-2*t29*t30*t47*t49+8.241408d-2*t162*t23*t24*t49 7933 ; -5.15088d-3*t18*t26*t31*t48+1.373568d-2*t26*t28*t32*t47 7934 < -2.6666666666666666d+0*t22*t31*t47-2.6666666666666666d+ 7935 = 0*t26*t27*t28*t47 7936 t164 = 1.0d+0*rhoa*t17*t61*t85+1.0d+0*t14*t17*t85-1.25d-1* 7937 1 t16*t33*t61-1.25d-1*t14*t16*t51-1.25d-1*t14*t15*t16*t33 7938 2 +1.0d+0*rhoa*t14*t163*t17 7939 t165 = 1.373568d-2*t14*t17*t33-5.15088d-3*t62 7940 t166 = -3.04966d-3*t39*t48*t72*t86 7941 t167 = 1.86008522312d-5*t18*t46*t48*t72*t73 7942 t168 = 2.2321022677440003d-4*t118*t24*t38*t48*t84 7943 t169 = 1.1160511338720001d-4*gammaaa*t118*t25*t40*t41*t48 7944 t170 = 5.580255669360001d-5*t118*t18*t42*t43*t48 7945 t171 = 4.066213333333334d-2*gammaaa*t40*t73*t84*taua 7946 t172 = 3.72017044624d-5*gammaaa*t25*t44*t48*t73 7947 t173 = -2.439728d-2*gammaaa*t25*t38*t48*t73 7948 t174 = 4.066213333333334d-2*t25*t41*t42*t73*taua 7949 t175 = 1.86008522312d-5*t18*t41*t45*t48*t73 7950 t176 = -6.09932d-3*t18*t40*t41*t48*t73 7951 t177 = 1.0165533333333335d-2*t25*t39*t45*taua 7952 t178 = -3.3333333333333337d+0*t25*t39*t40*taua 7953 t179 = -3.04966d-3*t18*t39*t44*t48 7954 t180 = 4.879456d-2*gammaaa*t40*t41*t50*t73+1.6264853333333 7955 1 332d-2*t42*t43*t47*t73+1.3011882666666666d-1*t162*t24*t 7956 2 38*t73+2.439728d-2*gammaaa*t39*t44*t50-16*gammaaa*t38*t 7957 3 39*t50+8.132426666666667d-3*t39*t41*t45*t47-2.666666666 7958 4 6666666d+0*t37*t44*t47-2.6666666666666666d+0*t39*t40*t4 7959 5 1*t47+t179+t178+t177+t176+t175+t174+t173+t172+t171+t170 7960 6 +t169+t168 7961 t181 = 1.0d+0*t82*t86 7962 t182 = 1.0d+0*t180*t72+t181 7963 t183 = -3.04966d-3*t18*t39*t83 7964 t184 = 1.6264853333333332d-2*gammaaa*t40*t41*t50*t73+6.505 7965 1 941333333333d-2*t162*t24*t38*t73+8.132426666666667d-3*g 7966 2 ammaaa*t39*t44*t50-5.333333333333333d+0*gammaaa*t38*t39 7967 3 *t50+t179+t178+t177+t176+t175+t174+t173+t172+t171+t170+ 7968 4 t169+t168 7969 t185 = 1.0d+0*t184*t72+t181 7970 t186 = 1/rhoa**1.0666666666666666d+1 7971 t187 = 1.591893886464d-4*gammaaa*t27*t28*t84*t96+1.5918938 7972 1 86464d-4*t25*t29*t30*t96+1.591893886464d-4*t186*t23*t24 7973 2 *t96+5.30631295488d-5*gammaaa*t31*t49*t84-4.120704d-2*g 7974 3 ammaaa*t23*t49*t84+5.30631295488d-5*t25*t28*t32*t49-2.0 7975 4 60352d-2*t25*t27*t28*t49-1.030176d-2*t25*t26*t31+2*t23* 7976 5 t25*t26 7977 t188 = 3.72017044624d-5*gammaaa*t44*t73*t84-4.879456d-2*ga 7978 1 mmaaa*t38*t73*t84+1.1160511338720001d-4*gammaaa*t118*t4 7979 2 0*t41*t84+1.86008522312d-5*t25*t41*t45*t73-1.219864d-2* 7980 3 t25*t40*t41*t73-6.09932d-3*t25*t39*t44+5.58025566936000 7981 4 1d-5*t118*t25*t42*t43+2*t25*t38*t39+2.2321022677440003d 7982 5 -4*t118*t186*t24*t38 7983 t189 = 1.0d+0*t188*t37*t72 7984 t190 = -6.09932d-3*t18*t39*t72*t86 7985 t191 = 1.86008522312d-5*t25*t46*t72*t73 7986 t192 = 1.373568d-1*t28*t29*t49*t88*taua+3.4339200000000003 7987 1 d-2*t26*t32*t88*taua-1.3333333333333333d+1*t26*t29*t88* 7988 2 taua+6.867840000000001d-2*gammaaa*t27*t49*t87*taua+3.18 7989 3 3787772928d-4*gammaaa*t27*t28*t48*t88*t96+3.18378777292 7990 4 8d-4*t23*t24*t48*t87*t96+3.183787772928d-4*t19*t29*t30* 7991 5 t48*t96+1.061262590976d-4*gammaaa*t31*t48*t49*t88-2.060 7992 6 352d-2*gammaaa*t27*t48*t49*t88+1.4422464000000002d-1*t2 7993 7 3*t24*t49*t84+1.061262590976d-4*t19*t28*t32*t48*t49-4.1 7994 8 20704d-2*t19*t28*t29*t48*t49+3.4339200000000003d-2*t18* 7995 9 t29*t30*t49+8.928192d-2*gammaaa*t25*t27*t28*t49-1.03017 7996 : 6d-2*t19*t26*t32*t48+1.7169600000000002d-2*t18*t26*t28* 7997 ; t32-3.3333333333333337d+0*t18*t22*t32+4.464096d-2*gamma 7998 < aa*t25*t26*t31-6.666666666666667d+0*t18*t26*t28*t29-8.6 7999 = 66666666666666d+0*gammaaa*t25*t26*t27 8000 t193 = 1.25d-1*gammaaa*t33*t61*t91+1.25d-1*gammaaa*t14*t51 8001 1 *t91+1.25d-1*gammaaa*t14*t15*t33*t91+1.0d+0*rhoa*t17*t6 8002 2 1*t89+1.0d+0*t14*t17*t89+1.0d+0*rhoa*t14*t17*t192 8003 t194 = -3.04966d-3*t39*t48*t72*t92 8004 t195 = 3.72017044624d-5*t19*t46*t48*t72*t73 8005 t196 = 4.4642045354880006d-4*t118*t24*t38*t48*t87 8006 t197 = 2.2321022677440003d-4*gammaaa*t118*t40*t41*t48*t88 8007 t198 = 1.1160511338720001d-4*t118*t19*t42*t43*t48 8008 t199 = 8.132426666666668d-2*gammaaa*t40*t73*t87*taua 8009 t200 = 7.44034089248d-5*gammaaa*t44*t48*t73*t88 8010 t201 = -2.439728d-2*gammaaa*t40*t48*t73*t88 8011 t202 = 8.132426666666668d-2*t41*t42*t73*t88*taua 8012 t203 = 3.72017044624d-5*t19*t41*t45*t48*t73 8013 t204 = -2.439728d-2*t19*t41*t42*t48*t73 8014 t205 = 2.033106666666667d-2*t39*t45*t88*taua 8015 t206 = -1.3333333333333333d+1*t39*t42*t88*taua 8016 t207 = -6.09932d-3*t19*t39*t45*t48 8017 t208 = 2.1144309333333333d-1*t24*t38*t73*t84+2.03310666666 8018 1 6667d-2*t18*t42*t43*t73+7.319184000000001d-2*gammaaa*t2 8019 2 5*t40*t41*t73+1.0165533333333335d-2*t18*t39*t41*t45-3.3 8020 3 333333333333337d+0*t18*t37*t45+3.6595920000000004d-2*ga 8021 4 mmaaa*t25*t39*t44-6.666666666666667d+0*t18*t39*t41*t42- 8022 5 1.2d+1*gammaaa*t25*t39*t40+t207+t206+t205+t204+t203+t20 8023 6 2+t201+t200+t199+t198+t197+t196 8024 t209 = 1.0d+0*t82*t92 8025 t210 = 1.0d+0*t208*t72+t209 8026 t211 = -6.09932d-3*t19*t39*t83 8027 t212 = 1.3011882666666666d-1*t24*t38*t73*t84+3.25297066666 8028 1 66663d-2*gammaaa*t25*t40*t41*t73+1.6264853333333332d-2* 8029 2 gammaaa*t25*t39*t44-5.333333333333333d+0*gammaaa*t25*t3 8030 3 9*t40+t207+t206+t205+t204+t203+t202+t201+t200+t199+t198 8031 4 +t197+t196 8032 t213 = 1.0d+0*t212*t72+t209 8033 t214 = 1/rhoa**9.666666666666666d+0 8034 t215 = 3.183787772928d-4*t29*t30*t88*t96+3.183787772928d-4 8035 1 *gammaaa*t27*t28*t87*t96+3.183787772928d-4*t214*t23*t24 8036 2 *t96+1.061262590976d-4*t28*t32*t49*t88-4.120704d-2*t28* 8037 3 t29*t49*t88-2.060352d-2*t27*t28*t49*t88-1.030176d-2*t26 8038 4 *t32*t88-1.030176d-2*t26*t31*t88+2.0d+0*t26*t27*t88+1.0 8039 5 61262590976d-4*gammaaa*t31*t49*t87-2.060352d-2*gammaaa* 8040 6 t27*t49*t87-4.120704d-2*gammaaa*t23*t49*t87 8041 t216 = 1/rhoa**3.3333333333333337d+0 8042 t217 = 3.72017044624d-5*t41*t45*t73*t88-2.439728d-2*t41*t4 8043 1 2*t73*t88-1.219864d-2*t40*t41*t73*t88-6.09932d-3*t39*t4 8044 2 5*t88-6.09932d-3*t39*t44*t88+1.1160511338720001d-4*t118 8045 3 *t42*t43*t88+2.0d+0*t39*t40*t88+7.44034089248d-5*gammaa 8046 4 a*t44*t73*t87-2.439728d-2*gammaaa*t40*t73*t87-4.879456d 8047 5 -2*gammaaa*t38*t73*t87+2.2321022677440003d-4*gammaaa*t1 8048 6 18*t40*t41*t87+4.4642045354880006d-4*t118*t214*t24*t38 8049 t218 = 1.0d+0*t217*t37*t72 8050 t219 = -6.09932d-3*t19*t39*t72*t86 8051 t220 = -3.04966d-3*t18*t39*t72*t92 8052 t221 = 3.72017044624d-5*t46*t72*t73*t88 8053 t222 = 1/rhoa**8.666666666666666d+0 8054 t223 = 1/rhoa**6 8055 t224 = 6.367575545856d-4*t216*t29*t30*t96+6.367575545856d- 8056 1 4*gammaaa*t223*t27*t28*t96+6.367575545856d-4*t222*t23*t 8057 2 24*t96+2.122525181952d-4*t216*t28*t32*t49+2.12252518195 8058 3 2d-4*gammaaa*t223*t31*t49-1.6482816d-1*t216*t28*t29*t49 8059 4 -8.241408d-2*gammaaa*t223*t27*t49-4.120704d-2*t216*t26* 8060 5 t32+8.0d+0*t216*t26*t29 8061 t225 = 1/taua**3 8062 t226 = 7.44034089248d-5*t216*t41*t45*t73+1.488068178496d-4 8063 1 *gammaaa*t223*t44*t73-9.758912d-2*t216*t41*t42*t73-9.75 8064 2 8912d-2*gammaaa*t223*t40*t73-2.439728d-2*t216*t39*t45+2 8065 3 .2321022677440003d-4*t118*t216*t42*t43+8.0d+0*t216*t39* 8066 4 t42+4.4642045354880006d-4*gammaaa*t118*t223*t40*t41+8.9 8067 5 28409070976001d-4*t118*t222*t24*t38 8068 t227 = 1.0d+0*t226*t37*t72 8069 t228 = -1.219864d-2*t19*t39*t72*t92 8070 t229 = 7.44034089248d-5*t216*t46*t72*t73 8071 t230 = t48**3 8072 t231 = 1/rhoa**3 8073 t232 = 1/t21**5 8074 t233 = 1/rhoa**5.666666666666667d+0 8075 t234 = -3.2592592592592595d+1*t97*taua-4.5629629629629626d 8076 1 +1*gammaaa*t233 8077 t235 = 1/rhoa**8.333333333333334d+0 8078 t236 = t56**3 8079 t237 = 1/t2**7 8080 t238 = 1/rhoa**3.1666666666666665d+0 8081 t239 = t59**3 8082 t240 = 2.0690405167709364d+3*t239*t9/(t6**6*t7**3)+1.0d+0* 8083 1 (-7.128507529742789d-1*t47-4.684972743248224d+0*t238-3. 8084 2 083875829189267d+0*t237-3.9871442462415524d+0*t216)*t58 8085 3 *t60*t9-1.9298375398431045d+2*t109*t239*t9/t6**5-6.0d+0 8086 4 *t112*t113*t58*t59*t9+9.649187699215522d+1*t109*t111*t1 8087 5 13*t59*t9+6.0d+0*t111*t239*t58*t9+4.1099018897499934d-3 8088 6 *t216*t8+1.6995949182667827d-1*t106*t58*t59*t60-1.27469 8089 7 6188700087d-1*t113*t54*t58*t60+2.549392377400174d-1*t11 8090 8 0*t112*t54*t58+1.962413933653103d-17*t106*t52*t56*t57-1 8091 9 .4718104502398274d-17*t108*t52*t54*t57+1.11022302462515 8092 : 65d-16*t13*(-5.620753557770543d-1*t47-2.520426340996149 8093 ; d+0*t238-1.5008036906238065d+0*t237-2.3079979182303428d 8094 < +0*t216)*t52*t57-6.661338147750939d-16*t104*t108*t13*t5 8095 = 2*t56+5.356375176299456d-15*t101*t103*t108*t13*t56+2.94 8096 > 3620900479655d-17*t102*t104*t52*t54-4.0999275947472624d 8097 ? +0*t109*t110*t111*t54-2.3669625486718335d-16*t101*t102* 8098 @ t103*t54+6.661338147750939d-16*t103*t13*t236*t52+5.7427 8099 1 41051503565d-14*t13*t236/(t10**6*t11**3)-1.071275035259 8100 2 8913d-14*t101*t13*t236/t10**5+9.490883560204437d-19*t12 8101 3 *t216 8102 t241 = -1.7017882504620419d-7*t118*t230*t46*t72 8103 t242 = 1/t36**5 8104 t243 = -1.3614306003696336d-6*gammaaa*t18*t230*t242*t40*t4 8105 1 1 8106 t244 = -2.722861200739267d-6*t230*t24*t242*t25*t38 8107 t245 = -6.807153001848167d-7*t230*t242*t42*t43 8108 t246 = -4.464204535488d-4*gammaaa*t118*t40*t41*t47*t93 8109 t247 = -1.1160511338720001d-3*t118*t18*t41*t42*t93*taua 8110 t248 = -1.7017882504620419d-7*t118*t230*t41*t45 8111 t249 = -1.7856818141952002d-3*t118*t24*t38*t50*t93 8112 t250 = -1.1160511338720001d-3*gammaaa*t118*t25*t40*t93*tau 8113 1 a 8114 t251 = -3.4035765009240837d-7*gammaaa*t118*t18*t230*t44 8115 t252 = -4.066213333333334d-1*t25*t42*t48*t73*t90 8116 t253 = -1.4880681784959998d-4*gammaaa*t44*t47*t73*t93 8117 t254 = -1.8600852231200002d-4*t18*t45*t73*t93*taua 8118 t255 = 4.824593849607761d+1*t135*t136*t137*t71 8119 t256 = -6.0d+0*t136*t139*t71*t75 8120 t257 = 3.0d+0*t142*t71*t75*t81 8121 t258 = -1.099109305675375d-2*t106*t141*t70 8122 t259 = -2.6513779981040353d-1*t54*t75*t78*t80*t81 8123 t260 = t80**3 8124 t261 = 5.172601291927341d+2*t260*t71/(t68**6*t69**3) 8125 t262 = -9.649187699215522d+1*t135*t260*t71/t68**5 8126 t263 = 6.0d+0*t137*t260*t71*t75 8127 t264 = 4.824593849607761d+1*t135*t137*t142*t71*t80 8128 t265 = -6.0d+0*t139*t142*t71*t75*t80 8129 t266 = 9.921256574801247d-2 8130 t267 = 1.0d+0*(-1.5008036906238065d+0*t237/t64**7-4.426066 8131 1 0773166294d-2*t47-2.3079979182303428d+0*t216*t266-2.806 8132 2 8057454507694d-1*t238)*t71*t75*t81 8133 t268 = 8.548627933030694d-3*t216*t266*t70 8134 t269 = 1.767585332069357d-1*t106*t141*t75*t80*t81 8135 t270 = 1/t146 8136 t271 = -1.3595691172479402d+0*t55*t79-7.491972878592053d-1 8137 1 *t54*t78-2.1504862356383217d-1*t53*t77-1.27434173008489 8138 2 14d-1*t19*t76 8139 t272 = 1/t145**2 8140 t273 = -2.1319703304396778d+0*t135*t136*t137*t54*t78 8141 t274 = 2.6513779981040353d-1*t136*t139*t54*t75*t78 8142 t275 = -1.3256889990520176d-1*t142*t54*t75*t78*t81 8143 t276 = -6.09932d-3*t48*t74*t82 8144 t277 = 1.86008522312d-5*t72*t74*t93 8145 t278 = 1.86008522312d-5*t46*t82*t93 8146 t279 = -6.09932d-3*t155*t48 8147 t280 = -1.25d-1*gammaaa*t14*t85-1.25d-1*t14*t33 8148 t281 = 1/rhoa**10 8149 t282 = 1.86008522312d-5*t72*t73*t86*t93 8150 t283 = -1.7017882504620419d-7*t118*t18*t46*t72*t93 8151 t284 = -1.3614306003696336d-6*gammaaa*t242*t25*t40*t41*t93 8152 t285 = -2.722861200739267d-6*t24*t242*t38*t84*t93 8153 t286 = -6.807153001848167d-7*t18*t242*t42*t43*t93 8154 t287 = 2.2321022677440003d-4*t118*t24*t38*t84*t98 8155 t288 = -7.440340892480001d-4*gammaaa*t118*t40*t48*t84*taua 8156 t289 = 1.1160511338720001d-4*gammaaa*t118*t25*t40*t41*t98 8157 t290 = -7.440340892480001d-4*t118*t25*t41*t42*t48*taua 8158 t291 = -1.7017882504620419d-7*t118*t18*t41*t45*t93 8159 t292 = 5.580255669360001d-5*t118*t18*t40*t41*t93 8160 t293 = -3.4035765009240837d-7*gammaaa*t118*t25*t44*t93 8161 t294 = 2.2321022677440003d-4*gammaaa*t118*t25*t38*t93 8162 t295 = 5.580255669360001d-5*t118*t18*t42*t43*t98 8163 t296 = 3.72017044624d-5*gammaaa*t25*t44*t73*t98 8164 t297 = -2.439728d-2*gammaaa*t25*t38*t73*t98 8165 t298 = -1.2400568154133336d-4*t25*t45*t48*t73*taua 8166 t299 = 4.066213333333334d-2*t25*t40*t48*t73*taua 8167 t300 = 1.86008522312d-5*t18*t41*t45*t73*t98 8168 t301 = -6.09932d-3*t18*t40*t41*t73*t98 8169 t302 = -1.3554044444444446d-1*t42*t73*t84*t90 8170 t303 = 1.86008522312d-5*t18*t44*t73*t93 8171 t304 = -3.04966d-3*t18*t39*t44*t98 8172 t305 = 1.0d+0*t150*t86 8173 t306 = -3.04966d-3*t151*t18*t39 8174 t307 = -3.04966d-3*t72*t86*t98 8175 t308 = -3.04966d-3*t48*t82*t86 8176 t309 = 8.132426666666667d-3*t47*t72*t74 8177 t310 = 8.132426666666667d-3*t46*t47*t82 8178 t311 = -3.04966d-3*t182*t48 8179 t312 = -6.09932d-3*t155*t18*t73 8180 t313 = 8.88888888888889d+0*t39*t40*t50*taua 8181 t314 = -3.04966d-3*t184*t48*t72 8182 t315 = 2.5d-1*t14*t85+1.25d-1*gammaaa*t14*t187 8183 t316 = 1/rhoa**1.1666666666666665d+1 8184 t317 = -1.030176d-2*t164 8185 t318 = -3.04966d-3*t188*t39*t48*t72 8186 t319 = -2.722861200739267d-6*t186*t24*t242*t38*t48 8187 t320 = -1.3614306003696336d-6*gammaaa*t242*t40*t41*t48*t84 8188 t321 = -6.807153001848167d-7*t242*t25*t42*t43*t48 8189 t322 = -3.7201704462400004d-4*gammaaa*t118*t186*t40*taua 8190 t323 = -3.4035765009240837d-7*gammaaa*t118*t44*t48*t84 8191 t324 = 4.4642045354880006d-4*gammaaa*t118*t38*t48*t84 8192 t325 = -3.7201704462400004d-4*t118*t41*t42*t84*taua 8193 t326 = -1.7017882504620419d-7*t118*t25*t41*t45*t48 8194 t327 = 1.1160511338720001d-4*t118*t25*t40*t41*t48 8195 t328 = -6.200284077066668d-5*t45*t73*t84*taua 8196 t329 = 4.066213333333334d-2*t40*t73*t84*taua 8197 t330 = 3.72017044624d-5*t25*t44*t48*t73 8198 t331 = -1.219864d-2*t25*t38*t48*t73 8199 t332 = 1.0d+0*t188*t82 8200 t333 = 3.72017044624d-5*t18*t48*t72*t73*t86 8201 t334 = -1.7017882504620419d-7*t118*t25*t46*t48*t72 8202 t335 = 1.86008522312d-5*t25*t73*t83 8203 t336 = 1/rhoa**1.3333333333333333d+1 8204 t337 = 1.0d+0*t37*t72*(5.580255669359999d-5*t44*t73*t84-3. 8205 1 6595920000000004d-2*t38*t73*t84-1.7017882504620419d-7*t 8206 2 118*t41*t45*t84-6.807153001848167d-7*t242*t42*t43*t84+1 8207 3 .6740767008080004d-4*t118*t40*t41*t84-3.403576500924083 8208 4 7d-7*gammaaa*t118*t186*t44-1.3614306003696336d-6*gammaa 8209 5 a*t186*t242*t40*t41-2.722861200739267d-6*t24*t242*t336* 8210 6 t38+6.696306803232002d-4*gammaaa*t118*t186*t38) 8211 t338 = -9.148980000000001d-3*t18*t188*t39*t72 8212 t339 = 5.580255669359999d-5*t25*t72*t73*t86 8213 t340 = -1.7017882504620419d-7*t118*t46*t72*t84 8214 t341 = 1.86008522312d-5*t72*t73*t92*t93 8215 t342 = -3.4035765009240837d-7*t118*t19*t46*t72*t93 8216 t343 = -2.722861200739267d-6*gammaaa*t242*t40*t41*t88*t93 8217 t344 = -5.445722401478534d-6*t24*t242*t38*t87*t93 8218 t345 = -1.3614306003696336d-6*t19*t242*t42*t43*t93 8219 t346 = 4.4642045354880006d-4*t118*t24*t38*t87*t98 8220 t347 = -1.4880681784960004d-3*gammaaa*t118*t40*t48*t87*tau 8221 1 a 8222 t348 = 2.2321022677440003d-4*gammaaa*t118*t40*t41*t88*t98 8223 t349 = -1.4880681784960004d-3*t118*t41*t42*t48*t88*taua 8224 t350 = -3.4035765009240837d-7*t118*t19*t41*t45*t93 8225 t351 = 2.2321022677440003d-4*t118*t19*t41*t42*t93 8226 t352 = -6.807153001848167d-7*gammaaa*t118*t44*t88*t93 8227 t353 = 2.2321022677440003d-4*gammaaa*t118*t40*t88*t93 8228 t354 = 1.1160511338720001d-4*t118*t19*t42*t43*t98 8229 t355 = 7.44034089248d-5*gammaaa*t44*t73*t88*t98 8230 t356 = -2.439728d-2*gammaaa*t40*t73*t88*t98 8231 t357 = -2.4801136308266672d-4*t45*t48*t73*t88*taua 8232 t358 = 1.6264853333333334d-1*t42*t48*t73*t88*taua 8233 t359 = 3.72017044624d-5*t19*t41*t45*t73*t98 8234 t360 = -2.439728d-2*t19*t41*t42*t73*t98 8235 t361 = -2.710808888888889d-1*t42*t73*t87*t90 8236 t362 = 3.72017044624d-5*t19*t45*t73*t93 8237 t363 = -6.09932d-3*t19*t39*t45*t98 8238 t364 = 1.0d+0*t150*t92 8239 t365 = -6.09932d-3*t151*t19*t39 8240 t366 = -3.04966d-3*t72*t92*t98 8241 t367 = -3.04966d-3*t48*t82*t92 8242 t368 = 1.0165533333333335d-2*t18*t72*t74 8243 t369 = 1.0165533333333335d-2*t18*t46*t82 8244 t370 = -3.04966d-3*t210*t48 8245 t371 = -1.219864d-2*t155*t19*t73 8246 t372 = -3.04966d-3*t212*t48*t72 8247 t373 = -3.04966d-3*t217*t39*t48*t72 8248 t374 = -5.445722401478534d-6*t214*t24*t242*t38*t48 8249 t375 = -2.722861200739267d-6*gammaaa*t242*t40*t41*t48*t87 8250 t376 = -1.3614306003696336d-6*t242*t42*t43*t48*t88 8251 t377 = -7.440340892480001d-4*gammaaa*t118*t214*t40*taua 8252 t378 = -6.807153001848167d-7*gammaaa*t118*t44*t48*t87 8253 t379 = 4.4642045354880006d-4*gammaaa*t118*t38*t48*t87 8254 t380 = 2.2321022677440003d-4*gammaaa*t118*t40*t48*t87 8255 t381 = -7.440340892480001d-4*t118*t41*t42*t87*taua 8256 t382 = -3.4035765009240837d-7*t118*t41*t45*t48*t88 8257 t383 = 1.1160511338720001d-4*t118*t40*t41*t48*t88 8258 t384 = 2.2321022677440003d-4*t118*t41*t42*t48*t88 8259 t385 = -1.2400568154133336d-4*t45*t73*t87*taua 8260 t386 = 4.066213333333334d-2*t40*t73*t87*taua 8261 t387 = 8.132426666666668d-2*t42*t73*t87*taua 8262 t388 = 3.72017044624d-5*t44*t48*t73*t88 8263 t389 = 3.72017044624d-5*t45*t48*t73*t88 8264 t390 = -1.219864d-2*t40*t48*t73*t88 8265 t391 = 1.0d+0*t217*t82 8266 t392 = 3.72017044624d-5*t19*t48*t72*t73*t86 8267 t393 = 1.86008522312d-5*t18*t48*t72*t73*t92 8268 t394 = 8.132426666666667d-3*t39*t47*t72*t92 8269 t395 = -3.4035765009240837d-7*t118*t46*t48*t72*t88 8270 t396 = -6.09932d-3*t182*t19*t39 8271 t397 = 3.72017044624d-5*t73*t83*t88 8272 t398 = -3.04966d-3*t18*t213*t39 8273 t399 = -6.09932d-3*t185*t19*t39 8274 t400 = 1/rhoa**1.2333333333333334d+1 8275 t401 = 1.0d+0*t37*t72*(3.72017044624d-5*t45*t73*t87+7.4403 8276 1 4089248d-5*t44*t73*t87-2.439728d-2*t40*t73*t87-2.439728 8277 2 d-2*t38*t73*t87-3.4035765009240837d-7*t118*t41*t45*t87- 8278 3 1.3614306003696336d-6*t242*t42*t43*t87+2.23210226774400 8279 4 03d-4*t118*t41*t42*t87+2.2321022677440003d-4*t118*t40*t 8280 5 41*t87-6.807153001848167d-7*gammaaa*t118*t214*t44-2.722 8281 6 861200739267d-6*gammaaa*t214*t242*t40*t41-5.44572240147 8282 7 8534d-6*t24*t242*t38*t400+2.2321022677440003d-4*gammaaa 8283 8 *t118*t214*t40+8.928409070976001d-4*gammaaa*t118*t214*t 8284 9 38) 8285 t402 = -6.09932d-3*t188*t19*t39*t72 8286 t403 = -6.09932d-3*t18*t217*t39*t72 8287 t404 = 7.44034089248d-5*t72*t73*t86*t88 8288 t405 = 1.86008522312d-5*t25*t72*t73*t92 8289 t406 = -3.4035765009240837d-7*t118*t46*t72*t87 8290 t407 = (t406+t405+t404+t403+t402+t401)*wght 8291 t408 = 1/rhoa**1.0333333333333333d+1 8292 t409 = 1/rhoa**7.666666666666667d+0 8293 t410 = 1/rhoa**5 8294 t411 = 1.0d+0*t37*t72*(4.4642045354879994d-4*t410*t45*t73- 8295 1 2.9276736000000003d-1*t410*t42*t73-1.3614306003696336d- 8296 2 6*t118*t41*t410*t45-2.722861200739267d-6*gammaaa*t118*t 8297 3 409*t44-5.445722401478534d-6*t242*t410*t42*t43+2.678522 8298 4 721292801d-3*t118*t41*t410*t42-1.0891444802957069d-5*ga 8299 5 mmaaa*t242*t40*t409*t41+2.678522721292801d-3*gammaaa*t1 8300 6 18*t40*t409-2.1782889605914138d-5*t24*t242*t38*t408) 8301 t412 = -1.8297960000000002d-2*t19*t226*t39*t72 8302 t413 = 2.2321022677439997d-4*t216*t72*t73*t92 8303 t414 = -1.3614306003696336d-6*t118*t410*t46*t72 8304 fnc(iq) = (1.0d+0*t37*t46*(t34-1.243628d-1*rhoa*(1.0522000 8305 1 558389212d-1*t4+1.0d+0)*log(1.6081979498692536d+1/(5.32 8306 2 9846514438383d+0*t5+1.766435620181429d+0*t4+5.659885156 8307 3 639418d-1*t3+1.19503784087549d-1*t1)+1.0d+0))+2.0d+0*rh 8308 4 oa*t14*t17*t22*t33)*wght+fnc(iq) 8309 Amat(iq,D1_RA) = (t37*t83-3.04966d-3*t39*t46*t48*t72+t22*t 8310 1 62-5.15088d-3*rhoa*t14*t17*t26*t33*t48+1.25d-1*gammaaa* 8311 2 t14*t15*t16*t22*t33)*wght+Amat(iq,D1_RA) 8312 Cmat(iq,D1_GAA) = (1.0d+0*t37*t72*t86+1.0d+0*rhoa*t14*t17* 8313 1 t22*t85-3.04966d-3*t18*t39*t46*t72-5.15088d-3*t14*t17*t 8314 2 19*t26*t33-1.25d-1*t14*t16*t22*t33)*wght+Cmat(iq,D1_GAA 8315 3 ) 8316 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 8317 Mmat(iq,D1_TA) = (1.0d+0*t37*t72*t92+1.25d-1*gammaaa*t14*t 8318 1 22*t33*t91+1.0d+0*rhoa*t14*t17*t22*t89-6.09932d-3*t19*t 8319 2 39*t46*t72-1.030176d-2*t1*t14*t17*t26*t33)*wght+Mmat(iq 8320 3 ,D1_TA) 8321 Amat2(iq,D2_RA_RA) = (t15*t16*t22*t95-1.25d-1*gammaaa*t14* 8322 1 t16*t22*t33*t94+5.30631295488d-5*rhoa*t14*t17*t33*t49*t 8323 2 93-1.28772d-3*gammaaa*t14*t15*t16*t26*t33*t48+t155*t39+ 8324 3 t151*t37+t116*t26+t115*t22+t117)*wght+Amat2(iq,D2_RA_RA 8325 4 ) 8326 Amat2(iq,D2_RA_RB) = (t160*t39+t159*t37+t117)*wght+Amat2(i 8327 1 q,D2_RA_RB) 8328 Cmat2(iq,D2_RA_GAA) = (-5.15088d-3*rhoa*t14*t17*t26*t48*t8 8329 1 5+8.132426666666667d-3*t39*t46*t47*t72+5.30631295488d-5 8330 2 *t14*t17*t19*t33*t48*t49+6.4386d-4*t14*t16*t26*t33*t48- 8331 3 6.4386d-4*gammaaa*t14*t16*t26*t33*t47+t182*t37+t165*t18 8332 4 *t26+t164*t22+t15*t16*t161*t22+t183+t167+t166)*wght+Cma 8333 5 t2(iq,D2_RA_GAA) 8334 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 8335 Cmat2(iq,D2_RA_GBB) = (t185*t37+t183+t167+t166)*wght+Cmat2 8336 1 (iq,D2_RA_GBB) 8337 Cmat2(iq,D2_GAA_GAA) = (5.30631295488d-5*t14*t17*t33*t49*t 8338 1 88-1.030176d-2*t14*t17*t19*t26*t85-2.5d-1*t14*t16*t22*t 8339 2 85+1.28772d-3*t14*t16*t18*t26*t33+1.0d+0*rhoa*t14*t17*t 8340 3 187*t22+t191+t190+t189)*wght+Cmat2(iq,D2_GAA_GAA) 8341 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 8342 Cmat2(iq,D2_GAA_GBB) = (t191+t190+t189)*wght+Cmat2(iq,D2_G 8343 1 AA_GBB) 8344 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 8345 Mmat2(iq,D2_RA_TA) = (-6.4386d-4*gammaaa*t14*t26*t33*t48*t 8346 1 91-1.25d-1*gammaaa*t14*t15*t22*t33*t91-5.15088d-3*rhoa* 8347 2 t14*t17*t26*t48*t89+1.25d-1*gammaaa*t14*t15*t16*t22*t89 8348 3 +1.0165533333333335d-2*t18*t39*t46*t72+t19*t26*(1.71696 8349 4 00000000002d-2*t14*t17*t33-1.030176d-2*t62)+1.061262590 8350 5 976d-4*t1*t14*t17*t33*t48*t49+t210*t37-1.28772d-3*gamma 8351 6 aa*t14*t16*t18*t26*t33+t193*t22+t211+t195+t194)*wght+Mm 8352 7 at2(iq,D2_RA_TA) 8353 Mmat2(iq,D2_RA_TB) = (t213*t37+t211+t195+t194)*wght+Mmat2( 8354 1 iq,D2_RA_TB) 8355 Mmat2(iq,D2_GAA_TA) = (-6.4386d-4*gammaaa*t14*t18*t26*t33* 8356 1 t91+t161*t22*t91-5.15088d-3*t14*t17*t19*t26*t89-1.25d-1 8357 2 *t14*t16*t22*t89-1.030176d-2*t1*t14*t17*t26*t85+1.06126 8358 3 2590976d-4*t14*t17*t216*t33*t49+1.28772d-3*t14*t16*t19* 8359 4 t26*t33+t221+t220+1.0d+0*rhoa*t14*t17*t215*t22+t219+t21 8360 5 8)*wght+Mmat2(iq,D2_GAA_TA) 8361 Mmat2(iq,D2_GAA_TB) = (t221+t220+t219+t218)*wght+Mmat2(iq, 8362 1 D2_GAA_TB) 8363 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 8364 Mmat2(iq,D2_TA_TA) = (2.5d-1*gammaaa*t14*t22*t89*t91-2.575 8365 1 44d-3*gammaaa*t14*t19*t26*t33*t91-2.060352d-2*t1*t14*t1 8366 2 7*t26*t89+2.122525181952d-4*t106*t14*t17*t33*t49-2.5d-1 8367 3 *gammaaa*t14*t22*t225*t33+t229+t228+t227+1.0d+0*rhoa*t1 8368 4 4*t17*t22*t224)*wght+Mmat2(iq,D2_TA_TA) 8369 Mmat2(iq,D2_TA_TB) = (t229+t228+t227)*wght+Mmat2(iq,D2_TA_ 8370 1 TB) 8371 Amat3(iq,D3_RA_RA_RA) = (t37*(1.0d+0*t72*(-2.3407407407407 8372 1 41d+2*gammaaa*t39*t40*t99*taua+1.2198640000000001d-1*t1 8373 2 8*t41*t42*t73*t98*taua+1.2198640000000001d-1*gammaaa*t2 8374 3 5*t40*t73*t98*taua+3.04966d-2*t18*t39*t45*t98*taua-3.25 8375 4 92592592592595d+1*t37*t45*t97*taua-6.518518518518519d+1 8376 5 *t39*t41*t42*t97*taua-6.505941333333334d-1*gammaaa*t40* 8377 6 t48*t50*t73*taua-3.252970666666667d-1*t41*t42*t47*t48*t 8378 7 73*taua-8.132426666666668d-2*t39*t45*t47*t48*taua-9.758 8379 8 912d-1*t24*t38*t48*t73*t99+1.9517824d-1*t24*t38*t50*t73 8380 9 *t98+5.580255669359999d-5*t41*t45*t48*t73*t98+1.1160511 8381 : 338719999d-4*gammaaa*t18*t44*t48*t73*t98+4.879456d-2*ga 8382 ; mmaaa*t40*t41*t47*t73*t98+1.6740767008080004d-4*t118*t4 8383 < 2*t43*t48*t98+3.348153401616001d-4*gammaaa*t118*t18*t40 8384 = *t41*t48*t98+6.696306803232002d-4*t118*t24*t25*t38*t48* 8385 > t98+2.439728d-2*gammaaa*t39*t44*t47*t98-1.7891338666666 8386 ? 665d-1*gammaaa*t40*t41*t48*t73*t97-8.945669333333333d-2 8387 @ *gammaaa*t39*t44*t48*t97-1.777777777777778d+2*t39*t42*t 8388 1 50*t90-6.09932d-3*t234*t42*t43*t73-1.219864d-2*gammaaa* 8389 2 t18*t234*t40*t41*t73-2.439728d-2*t234*t24*t25*t38*t73-3 8390 3 .04966d-3*t234*t39*t41*t45-6.09932d-3*gammaaa*t18*t234* 8391 4 t39*t44-4.5629629629629626d+1*gammaaa*t233*t37*t44-4.56 8392 5 29629629629626d+1*gammaaa*t233*t39*t40*t41-3.3896296296 8393 6 296297d+2*t235*t24*t38*t39+t254+t253+t252+t251+t250+t24 8394 7 9+t248+t247+t246+t245+t244+t243)+1.0d+0*t46*(2*rhoa*(-7 8395 8 .5d-1*t148*t270*t271*t272*t94-5.82714947393947d-4*t147* 8396 9 t216*t78+t275+t274+t273+t269+t268+t267+t265+t264+t263+t 8397 : 262+t261-2.533029591058444d-2*t147*t148*t231)+2.5330295 8398 ; 910584444d-2*t147*t148*t94-3.0d+0*t113*t58*t60*t9+6.0d+ 8399 < 0*t110*t112*t58*t9-9.649187699215522d+1*t109*t110*t111* 8400 = t9+5.284159572535705d-3*t106*t8+2.549392377400174d-1*t5 8401 > 4*t58*t59*t60+2.943620900479655d-17*t52*t54*t56*t57-3.3 8402 ? 306690738754696d-16*t108*t13*t52*t57+6.661338147750939d 8403 @ -16*t102*t104*t13*t52+t259+t258+t257+t256+t255-rhoa*t24 8404 1 0-5.356375176299456d-15*t101*t102*t103*t13+1.2202564577 8405 2 405706d-18*t106*t12)+3.0d+0*t131*t82+3.0d+0*t150*t74)+t 8406 3 22*(1.0d+0*rhoa*t14*t17*(-2.0148148148148146d+2*gammaaa 8407 4 *t26*t27*t99*taua+2.060352d-1*t18*t28*t29*t49*t98*taua+ 8408 5 1.030176d-1*gammaaa*t25*t27*t49*t98*taua+5.15088d-2*t18 8409 6 *t26*t32*t98*taua-3.2592592592592595d+1*t22*t32*t97*tau 8410 7 a-6.518518518518519d+1*t26*t28*t29*t97*taua-3.183787772 8411 8 928d-3*t18*t28*t29*t93*t96*taua-1.591893886464d-3*gamma 8412 9 aa*t25*t27*t93*t96*taua-5.30631295488d-4*t18*t32*t49*t9 8413 : 3*taua-8.241408d-1*gammaaa*t27*t48*t49*t50*taua-5.49427 8414 ; 2d-1*t28*t29*t47*t48*t49*taua-1.373568d-1*t26*t32*t47*t 8415 < 48*taua-1.0439116799999999d+0*t23*t24*t48*t49*t99+4.775 8416 = 6816593920004d-4*t29*t30*t48*t96*t98+4.7756816593920004 8417 > d-4*gammaaa*t18*t27*t28*t48*t96*t98+4.7756816593920004d 8418 ? -4*t23*t24*t25*t48*t96*t98+1.6482816d-1*t23*t24*t49*t50 8419 @ *t98+1.591893886464d-4*t28*t32*t48*t49*t98+1.5918938864 8420 1 64d-4*gammaaa*t18*t31*t48*t49*t98+8.241408d-2*gammaaa*t 8421 2 27*t28*t47*t49*t98+4.120704d-2*gammaaa*t26*t31*t47*t98- 8422 3 3.0218496d-1*gammaaa*t27*t28*t48*t49*t97-1.5109248d-1*g 8423 4 ammaaa*t26*t31*t48*t97-2.5470302183424004d-3*t23*t24*t5 8424 5 0*t93*t96-1.2735151091712002d-3*gammaaa*t27*t28*t47*t93 8425 6 *t96-8.199654381909689d-7*t230*t28*t32*t96-8.1996543819 8426 7 09689d-7*gammaaa*t18*t230*t31*t96-4.245050363904d-4*gam 8427 8 maaa*t31*t47*t49*t93-1.777777777777778d+2*t26*t29*t50*t 8428 9 90-6.867840000000001d-1*t25*t29*t48*t49*t90-1.030176d-2 8429 : *t234*t29*t30*t49-1.030176d-2*gammaaa*t18*t234*t27*t28* 8430 ; t49-1.030176d-2*t23*t234*t24*t25*t49-5.15088d-3*t234*t2 8431 < 6*t28*t32-5.15088d-3*gammaaa*t18*t234*t26*t31-4.5629629 8432 = 629629626d+1*gammaaa*t22*t233*t31-3.2798617527638757d-6 8433 > *t230*t232*t29*t30-4.5629629629629626d+1*gammaaa*t233*t 8434 ? 26*t27*t28-3.2798617527638757d-6*gammaaa*t18*t230*t232* 8435 @ t27*t28-2.477037037037037d+2*t23*t235*t24*t26-3.2798617 8436 1 527638757d-6*t23*t230*t232*t24*t25)+2.5d-1*gammaaa*t16* 8437 2 t33*t61*t94+2.5d-1*gammaaa*t14*t16*t51*t94+6.0d+0*t17*t 8438 3 51*t61+5.0d-1*gammaaa*t15*t16*t51*t61+3.0d+0*rhoa*t100* 8439 4 t17*t61+3.0d+0*rhoa*t114*t17*t51+1.0d+0*rhoa*t17*t240*t 8440 5 33-2.5d-1*gammaaa*t14*t16*t231*t33+3.0d+0*t114*t17*t33+ 8441 6 2.5d-1*gammaaa*t114*t15*t16*t33+3.0d+0*t100*t14*t17+2.5 8442 7 d-1*gammaaa*t100*t14*t15*t16)+t39*(-3.04966d-3*t83*t98- 8443 8 6.09932d-3*t46*t82*t98-6.09932d-3*t72*t74*t98-3.04966d- 8444 9 3*t131*t48*t72-3.04966d-3*t234*t46*t72-3.04966d-3*t150* 8445 : t46*t48-6.09932d-3*t151*t48+t276)+t73*(3.72017044624d-5 8446 ; *t46*t48*t72*t98+t279+t278+t277)+t26*(-5.15088d-3*t62*t 8447 < 98-1.030176d-2*rhoa*t17*t33*t61*t98-1.030176d-2*rhoa*t1 8448 = 4*t17*t51*t98-1.030176d-2*t14*t17*t33*t98-6.4386d-4*gam 8449 > maaa*t14*t15*t16*t33*t98-6.4386d-4*gammaaa*t14*t16*t33* 8450 ? t48*t94-1.030176d-2*rhoa*t17*t48*t51*t61-1.030176d-2*t1 8451 @ 7*t33*t48*t61-6.4386d-4*gammaaa*t15*t16*t33*t48*t61-1.0 8452 1 30176d-2*t14*t17*t48*t51-6.4386d-4*gammaaa*t14*t15*t16* 8453 2 t48*t51-5.15088d-3*rhoa*t114*t17*t33*t48-5.15088d-3*rho 8454 3 a*t100*t14*t17*t48-1.030176d-2*t115*t48-5.15088d-3*rhoa 8455 4 *t14*t17*t234*t33)+t49*(1.061262590976d-4*rhoa*t14*t17* 8456 5 t33*t48*t98+5.30631295488d-5*rhoa*t17*t33*t61*t93+5.306 8457 6 31295488d-5*rhoa*t14*t17*t51*t93+5.30631295488d-5*t14*t 8458 7 17*t33*t93-1.030176d-2*t116*t48)+t15*t16*t26*(-1.28772d 8459 8 -3*gammaaa*t14*t33*t98-5.15088d-3*t48*t95-1.28772d-3*ga 8460 9 mmaaa*t33*t48*t61-1.28772d-3*gammaaa*t14*t48*t51)-8.199 8461 : 654381909689d-7*rhoa*t14*t17*t230*t33*t96+t16*t22*(-2.5 8462 ; d-1*gammaaa*t33*t61-2.5d-1*gammaaa*t14*t51)*t94+1.93158 8463 < d-3*gammaaa*t14*t16*t26*t33*t48*t94+1.9898673580800003d 8464 = -5*gammaaa*t14*t15*t16*t33*t49*t93+t15*t16*t22*(2.5d-1* 8465 > gammaaa*t51*t61+1.25d-1*gammaaa*t114*t33+1.25d-1*gammaa 8466 ? a*t100*t14)+2.5d-1*gammaaa*t14*t16*t22*t231*t33+t241)*w 8467 @ ght+Amat3(iq,D3_RA_RA_RA) 8468 Amat3(iq,D3_RA_RA_RB) = (t37*(1.0d+0*t72*(-5.6296296296296 8469 1 3d+1*gammaaa*t39*t40*t99*taua+4.066213333333334d-2*t18* 8470 2 t41*t42*t73*t98*taua+4.066213333333334d-2*gammaaa*t25*t 8471 3 40*t73*t98*taua+1.0165533333333335d-2*t18*t39*t45*t98*t 8472 4 aua-4.3372942222222227d-1*gammaaa*t40*t48*t50*t73*taua- 8473 5 1.0843235555555557d-1*t41*t42*t47*t48*t73*taua-2.710808 8474 6 888888889d-2*t39*t45*t47*t48*taua-4.9878883555555553d-1 8475 7 *t24*t38*t48*t73*t99+6.505941333333333d-2*t24*t38*t50*t 8476 8 73*t98+1.86008522312d-5*t41*t45*t48*t73*t98+3.720170446 8477 9 24d-5*gammaaa*t18*t44*t48*t73*t98+1.6264853333333332d-2 8478 : *gammaaa*t40*t41*t47*t73*t98+5.580255669360001d-5*t118* 8479 ; t42*t43*t48*t98+1.1160511338720001d-4*gammaaa*t118*t18* 8480 < t40*t41*t48*t98+2.2321022677440003d-4*t118*t24*t25*t38* 8481 = t48*t98+8.132426666666667d-3*gammaaa*t39*t44*t47*t98-5. 8482 > 963779555555556d-2*gammaaa*t40*t41*t48*t73*t97-2.981889 8483 ? 777777778d-2*gammaaa*t39*t44*t48*t97-5.925925925925927d 8484 @ +1*t39*t42*t50*t90-5.214814814814814d+1*t235*t24*t38*t3 8485 1 9+t254+t253+t252+t251+t250+t249+t248+t247+t246+t245+t24 8486 2 4+t243)+1.0d+0*t46*(2*rhoa*(2.5d-1*t148*t270*t271*t272* 8487 3 t94+1.9423831579798237d-4*t147*t216*t78+t275+t274+t273+ 8488 4 t269+t268+t267+t265+t264+t263+t262+t261+8.4434319701948 8489 5 15d-3*t147*t148*t231)+t259+t258+t257+t256+t255+t157)+2. 8490 6 0d+0*t156*t82+1.0d+0*t131*t82+2.0d+0*t158*t74+1.0d+0*t1 8491 7 50*t74)+t39*(-3.04966d-3*t46*t82*t98-3.04966d-3*t72*t74 8492 8 *t98-3.04966d-3*t156*t48*t72-3.04966d-3*t158*t46*t48-3. 8493 9 04966d-3*t159*t48-3.04966d-3*t151*t48+t276)+(t279+t278+ 8494 : t277)*t73+t241)*wght+Amat3(iq,D3_RA_RA_RB) 8495 Cmat3(iq,D3_RA_RA_GAA) = (t22*(1.0d+0*rhoa*t14*t17*(-1.061 8496 1 262590976d-3*gammaaa*t27*t48*t84*t96*taua-2.12252518195 8497 2 2d-3*t25*t28*t29*t48*t96*taua-5.494272d-1*t28*t29*t49*t 8498 3 50*taua-1.373568d-1*t26*t32*t50*taua+2.6666666666666666 8499 4 d+1*t26*t27*t50*taua-3.53754196992d-4*t25*t32*t48*t49*t 8500 5 aua+6.867840000000001d-2*t25*t27*t48*t49*taua-4.57856d- 8501 6 1*gammaaa*t162*t27*t49*taua-3.4797056000000004d-1*gamma 8502 7 aa*t27*t28*t49*t99-1.7398528000000002d-1*gammaaa*t26*t3 8503 8 1*t99+6.755555555555556d+1*gammaaa*t23*t26*t99+1.591893 8504 9 886464d-4*t23*t24*t84*t96*t98+1.591893886464d-4*t18*t29 8505 : *t30*t96*t98+1.591893886464d-4*gammaaa*t25*t27*t28*t96* 8506 ; t98+5.30631295488d-5*t18*t28*t32*t49*t98+5.30631295488d 8507 < -5*gammaaa*t25*t31*t49*t98-1.030176d-2*t18*t27*t28*t49* 8508 = t98-2.060352d-2*gammaaa*t23*t25*t49*t98-5.15088d-3*t18* 8509 > t26*t31*t98-1.0072832000000001d-1*t29*t30*t49*t97-5.036 8510 ? 416d-2*t26*t28*t32*t97+9.777777777777779d+0*t22*t31*t97 8511 @ +9.777777777777779d+0*t26*t27*t28*t97-8.199654381909689 8512 1 d-7*t18*t28*t32*t93*t96-8.199654381909689d-7*gammaaa*t2 8513 2 5*t31*t93*t96+1.591893886464d-4*t18*t27*t28*t93*t96+3.1 8514 3 83787772928d-4*gammaaa*t23*t25*t93*t96-1.6980201455616d 8515 4 -3*gammaaa*t27*t28*t48*t50*t96-8.490100727808d-4*t29*t3 8516 5 0*t47*t48*t96-2.5470302183424004d-3*t162*t23*t24*t48*t9 8517 6 6-3.2798617527638757d-6*t23*t232*t24*t84*t93+5.30631295 8518 7 488d-5*t18*t31*t49*t93-3.2798617527638757d-6*t18*t232*t 8519 8 29*t30*t93-3.2798617527638757d-6*gammaaa*t232*t25*t27*t 8520 9 28*t93-2.2892800000000002d-1*t29*t49*t84*t90-5.66006715 8521 : 1872d-4*gammaaa*t31*t48*t49*t50+2.1977088d-1*gammaaa*t2 8522 ; 3*t48*t49*t50-2.830033575936d-4*t28*t32*t47*t48*t49+5.4 8523 < 94272d-2*t27*t28*t47*t48*t49-7.4172672d-1*t23*t24*t281* 8524 = t49+2.747136d-2*t26*t31*t47*t48)+1.25d-1*gammaaa*t14*t1 8525 > 6*t85*t94+1.25d-1*t14*t16*t33*t94+2.0d+0*t17*t61*t85+1. 8526 ? 25d-1*gammaaa*t15*t16*t61*t85+1.0d+0*rhoa*t114*t17*t85- 8527 @ 2.5d-1*t16*t51*t61-1.25d-1*t15*t16*t33*t61+2.0d+0*rhoa* 8528 1 t163*t17*t61-1.25d-1*t14*t15*t16*t51-1.25d-1*t114*t16*t 8529 2 33+2.0d+0*t14*t163*t17+1.25d-1*gammaaa*t14*t15*t16*t163 8530 3 -1.25d-1*t100*t14*t16)+t37*(1.0d+0*t72*(-3.252970666666 8531 4 667d-1*t41*t42*t50*t73*taua-4.3372942222222227d-1*gamma 8532 5 aa*t162*t40*t73*taua-8.132426666666668d-2*t39*t45*t50*t 8533 6 aua+2.6666666666666666d+1*t39*t40*t50*taua-2.6565927111 8534 7 11111d-1*gammaaa*t40*t41*t73*t99-1.3282963555555555d-1* 8535 8 gammaaa*t39*t44*t99+8.711111111111112d+1*gammaaa*t38*t3 8536 9 9*t99-5.963779555555556d-2*t42*t43*t73*t97-2.9818897777 8537 : 77778d-2*t39*t41*t45*t97+9.777777777777779d+0*t37*t44*t 8538 ; 97+9.777777777777779d+0*t39*t40*t41*t97-2.9761363569919 8539 < 996d-4*gammaaa*t44*t48*t50*t73+1.9517824d-1*gammaaa*t38 8540 = *t48*t50*t73-9.920454523306665d-5*t41*t45*t47*t48*t73+3 8541 > .2529706666666663d-2*t40*t41*t47*t48*t73-9.108317866666 8542 ? 666d-1*t24*t281*t38*t73-8.928409070976001d-4*gammaaa*t1 8543 @ 18*t40*t41*t48*t50+1.6264853333333332d-2*t39*t44*t47*t4 8544 1 8-2.976136356992001d-4*t118*t42*t43*t47*t48-2.380909085 8545 2 5936005d-3*t118*t162*t24*t38*t48+t304+t303+t302+t301+t3 8546 3 00+t299+t298+t297+t296+t295+t294+t293+t292+t291+t290+t2 8547 4 89+t288+t287+t286+t285+t284)+2.0d+0*t180*t82+t305)+t26* 8548 5 (-5.15088d-3*rhoa*t14*t17*t85*t98+6.4386d-4*t14*t16*t33 8549 6 *t98-5.15088d-3*rhoa*t17*t48*t61*t85-5.15088d-3*t14*t17 8550 7 *t48*t85+1.373568d-2*t47*t62+6.4386d-4*t16*t33*t48*t61+ 8551 8 1.373568d-2*t17*t18*t33*t61+6.4386d-4*t14*t16*t48*t51+1 8552 9 .373568d-2*t14*t17*t18*t51+6.4386d-4*t14*t15*t16*t33*t4 8553 : 8-5.15088d-3*rhoa*t14*t163*t17*t48-5.15088d-3*t164*t48- 8554 ; 3.662848000000001d-2*t14*t17*t33*t47)+t39*(-2.981889777 8555 < 777778d-2*t46*t72*t97+8.132426666666667d-3*t47*t83-3.04 8556 = 966d-3*t180*t48*t72+t311+t310+t309+t308+t307)+4.07778d- 8557 > 3*gammaaa*t14*t16*t26*t33*t97-8.199654381909689d-7*t14* 8558 ? t17*t19*t33*t93*t96-5.15088d-3*t16*t26*t47*t95+t16*t22* 8559 @ t280*t94+5.30631295488d-5*rhoa*t14*t17*t49*t85*t93-6.63 8560 1 28911936d-6*t14*t16*t33*t49*t93+t15*t16*t22*(1.25d-1*ga 8561 2 mmaaa*t61*t85+1.25d-1*t33*t61+1.25d-1*t14*t51+1.25d-1*g 8562 3 ammaaa*t14*t163)+t15*t16*t26*(-1.28772d-3*gammaaa*t14*t 8563 4 48*t85-1.28772d-3*t14*t33*t48)-9.920454523306665d-5*t46 8564 5 *t47*t48*t72*t73+t18*(-2.830033575936d-4*t14*t17*t33*t4 8565 6 8-1.030176d-2*t116)*t49+1.32657823872d-5*gammaaa*t14*t1 8566 7 6*t33*t47*t48*t49+t312+t306+t283+t282-5.15088d-3*t115*t 8567 8 18*t26)*wght+Cmat3(iq,D3_RA_RA_GAA) 8568 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 8569 Cmat3(iq,D3_RA_RA_GBB) = (t37*(1.0d+0*t72*(-1.084323555555 8570 1 5557d-1*t41*t42*t50*t73*taua-2.1686471111111114d-1*gamm 8571 2 aaa*t162*t40*t73*taua-2.710808888888889d-2*t39*t45*t50* 8572 3 taua-5.963779555555556d-2*gammaaa*t40*t41*t73*t99-2.981 8573 4 889777777778d-2*gammaaa*t39*t44*t99+1.9555555555555557d 8574 5 +1*gammaaa*t38*t39*t99-9.920454523306665d-5*gammaaa*t44 8575 6 *t48*t50*t73+6.505941333333333d-2*gammaaa*t38*t48*t50*t 8576 7 73-3.252970666666667d-1*t24*t281*t38*t73-2.976136356992 8577 8 d-4*gammaaa*t118*t40*t41*t48*t50-1.1904545427968d-3*t11 8578 9 8*t162*t24*t38*t48+t313+t304+t303+t302+t301+t300+t299+t 8579 : 298+t297+t296+t295+t294+t293+t292+t291+t290+t289+t288+t 8580 ; 287+t286+t285+t284)+2.0d+0*t184*t82+t305)+t39*(-3.04966 8581 < d-3*t185*t48+t314+t308+t307)+t312+t306+t283+t282)*wght+ 8582 = Cmat3(iq,D3_RA_RA_GBB) 8583 Cmat3(iq,D3_RA_RB_GAA) = (t37*(1.0d+0*t72*(-1.084323555555 8584 1 5555d-1*t41*t42*t50*t73*taua-2.168647111111111d-1*gamma 8585 2 aa*t162*t40*t73*taua-2.7108088888888887d-2*t39*t45*t50* 8586 3 taua-4.3372942222222216d-2*gammaaa*t40*t41*t73*t99-2.16 8587 4 86471111111108d-2*gammaaa*t39*t44*t99+1.422222222222222 8588 5 2d+1*gammaaa*t38*t39*t99-1.984090904661333d-4*gammaaa*t 8589 6 44*t48*t50*t73+1.3011882666666666d-1*gammaaa*t38*t48*t5 8590 7 0*t73-4.9602272616533327d-5*t41*t45*t47*t48*t73+1.62648 8591 8 53333333332d-2*t40*t41*t47*t48*t73-2.602376533333333d-1 8592 9 *t24*t281*t38*t73-5.952272713984001d-4*gammaaa*t118*t40 8593 : *t41*t48*t50+8.132426666666667d-3*t39*t44*t47*t48-1.488 8594 ; 0681784960004d-4*t118*t42*t43*t47*t48-1.785681814195200 8595 < 2d-3*t118*t162*t24*t38*t48+t313+t303+t302+t299+t298+t29 8596 = 4+t293+t292+t291+t290+t288+t286+t285+t284)+1.0d+0*t158* 8597 > t86+1.0d+0*t184*t82+1.0d+0*t180*t82)-4.9602272616533327 8598 ? d-5*t46*t47*t48*t72*t73-6.09932d-3*t160*t18*t73+(t314+t 8599 @ 311+t310+t309+t308)*t39-3.04966d-3*t159*t18*t39+t283+t2 8600 1 82)*wght+Cmat3(iq,D3_RA_RB_GAA) 8601 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 8602 Cmat3(iq,D3_RA_GAA_GAA) = (t22*(1.0d+0*rhoa*t14*t17*(-1.06 8603 1 1262590976d-3*t28*t29*t84*t96*taua-5.30631295488d-4*gam 8604 2 maaa*t186*t27*t96*taua-1.76877098496d-4*t32*t49*t84*tau 8605 3 a+6.867840000000001d-2*t27*t49*t84*taua-8.1996543819096 8606 4 89d-7*gammaaa*t31*t48*t84*t96+6.367575545856d-4*gammaaa 8607 5 *t23*t48*t84*t96-8.490100727808d-4*t29*t30*t50*t96-8.19 8608 6 9654381909689d-7*t25*t28*t32*t48*t96+3.183787772928d-4* 8609 7 t25*t27*t28*t48*t96-1.6980201455616d-3*t23*t24*t316*t96 8610 8 -1.2735151091712002d-3*gammaaa*t162*t27*t28*t96-3.27986 8611 9 17527638757d-6*gammaaa*t232*t27*t28*t48*t84-2.830033575 8612 : 936d-4*t28*t32*t49*t50+1.0988544d-1*t27*t28*t49*t50+5.4 8613 ; 94272d-2*t26*t31*t50-1.0666666666666666d+1*t23*t26*t50+ 8614 < 1.061262590976d-4*t25*t31*t48*t49-2.060352d-2*t23*t25*t 8615 = 48*t49-4.245050363904d-4*gammaaa*t162*t31*t49+3.2965632 8616 > d-1*gammaaa*t162*t23*t49-3.2798617527638757d-6*t232*t25 8617 ? *t29*t30*t48-3.2798617527638757d-6*t186*t23*t232*t24*t4 8618 @ 8)-2.5d-1*t16*t61*t85-2.5d-1*t14*t15*t16*t85+1.0d+0*rho 8619 1 a*t17*t187*t61+1.0d+0*t14*t17*t187-2.5d-1*t14*t16*t163) 8620 2 -8.199654381909689d-7*t14*t17*t33*t48*t88*t96+1.6264853 8621 3 333333332d-2*t39*t47*t72*t86+t18*t26*(2.747136d-2*t14*t 8622 4 17*t85-1.7169600000000002d-3*t14*t15*t16*t33+t317)+t16* 8623 5 t26*t47*(-6.4386d-4*gammaaa*t14*t85-2.3608200000000001d 8624 6 -3*t14*t33-5.15088d-3*t161)+1.061262590976d-4*t14*t17*t 8625 7 19*t48*t49*t85+1.28772d-3*t14*t16*t26*t48*t85+t37*(1.0d 8626 8 +0*t72*(-9.920454523306665d-5*t41*t45*t50*t73+6.5059413 8627 9 33333333d-2*t40*t41*t50*t73-2.4801136308266666d-4*gamma 8628 : aa*t162*t44*t73+3.2529706666666663d-1*gammaaa*t162*t38* 8629 ; t73+3.2529706666666663d-2*t39*t44*t50-2.976136356992001 8630 < d-4*t118*t42*t43*t50-1.0666666666666666d+1*t38*t39*t50- 8631 = 7.440340892480001d-4*gammaaa*t118*t162*t40*t41-1.785681 8632 > 8141952002d-3*t118*t24*t316*t38+t331+t330+t329+t328+t32 8633 ? 7+t326+t325+t324+t323+t322+t321+t320+t319)+t332)-9.9204 8634 @ 54523306665d-5*t46*t50*t72*t73+6.6328911936d-6*gammaaa* 8635 1 t14*t16*t33*t49*t50-1.32657823872d-5*t14*t16*t18*t33*t4 8636 2 8*t49+t25*(-1.415016787968d-4*t14*t17*t33-1.030176d-2*t 8637 3 165)*t49-5.15088d-3*rhoa*t14*t17*t187*t26*t48-6.09932d- 8638 4 3*t18*t182*t39+t335+t334+t333+t318+t15*t16*t22*t315)*wg 8639 5 ht+Cmat3(iq,D3_RA_GAA_GAA) 8640 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 8641 Cmat3(iq,D3_RA_GAA_GBB) = (8.132426666666667d-3*t39*t47*t7 8642 1 2*t86+t37*(1.0d+0*t72*(-4.9602272616533327d-5*t41*t45*t 8643 2 50*t73+3.2529706666666663d-2*t40*t41*t50*t73-1.48806817 8644 3 84959998d-4*gammaaa*t162*t44*t73+1.9517824d-1*gammaaa*t 8645 4 162*t38*t73+1.6264853333333332d-2*t39*t44*t50-1.4880681 8646 5 78496d-4*t118*t42*t43*t50-5.333333333333333d+0*t38*t39* 8647 6 t50-4.4642045354879994d-4*gammaaa*t118*t162*t40*t41-1.1 8648 7 904545427968d-3*t118*t24*t316*t38+t331+t330+t329+t328+t 8649 8 327+t326+t325+t324+t323+t322+t321+t320+t319)+t332)-4.96 8650 9 02272616533327d-5*t46*t50*t72*t73-3.04966d-3*t18*t185*t 8651 : 39-3.04966d-3*t18*t182*t39+t335+t334+t333+t318)*wght+Cm 8652 ; at3(iq,D3_RA_GAA_GBB) 8653 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 8654 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 8655 Cmat3(iq,D3_RA_GBB_GBB) = (t37*(1.0d+0*t72*(-4.96022726165 8656 1 33327d-5*gammaaa*t162*t44*t73+6.505941333333333d-2*gamm 8657 2 aaa*t162*t38*t73-1.488068178496d-4*gammaaa*t118*t162*t4 8658 3 0*t41-5.952272713984d-4*t118*t24*t316*t38+t331+t330+t32 8659 4 9+t328+t327+t326+t325+t324+t323+t322+t321+t320+t319)+t3 8660 5 32)-6.09932d-3*t18*t185*t39+t335+t334+t333+t318)*wght+C 8661 6 mat3(iq,D3_RA_GBB_GBB) 8662 Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*rhoa*t14*t17*t22*(-8.19 8663 1 9654381909689d-7*t28*t32*t84*t96+4.7756816593920004d-4* 8664 2 t27*t28*t84*t96-8.199654381909689d-7*gammaaa*t186*t31*t 8665 3 96+9.551363318784001d-4*gammaaa*t186*t23*t96+1.59189388 8666 4 6464d-4*t31*t49*t84-6.181056d-2*t23*t49*t84-3.279861752 8667 5 7638757d-6*t232*t29*t30*t84-3.2798617527638757d-6*t23*t 8668 6 232*t24*t336-3.2798617527638757d-6*gammaaa*t186*t232*t2 8669 7 7*t28)-8.199654381909689d-7*t14*t17*t33*t87*t96+1.59189 8670 8 3886464d-4*t14*t17*t49*t85*t88+3.86316d-3*t14*t16*t18*t 8671 9 26*t85-1.9898673580800003d-5*t14*t16*t25*t33*t49+t340+t 8672 : 339+t338+t337-1.545264d-2*t14*t17*t187*t19*t26-3.75d-1* 8673 ; t14*t16*t187*t22)*wght+Cmat3(iq,D3_GAA_GAA_GAA) 8674 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 8675 Cmat3(iq,D3_GAA_GAA_GBB) = (t340+t339+t338+t337)*wght+Cmat 8676 1 3(iq,D3_GAA_GAA_GBB) 8677 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 8678 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 8679 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 8680 Mmat3(iq,D3_RA_RA_TA) = (t22*(1.0d+0*rhoa*t14*t17*(-4.2450 8681 1 50363904d-3*t28*t29*t48*t88*t96*taua-2.122525181952d-3* 8682 2 gammaaa*t27*t48*t87*t96*taua-7.07508393984d-4*t32*t48*t 8683 3 49*t88*taua+2.747136d-1*t29*t48*t49*t88*taua-7.783552d- 8684 4 1*gammaaa*t27*t49*t84*taua-8.241408000000001d-1*t25*t28 8685 5 *t29*t49*taua-2.0603520000000003d-1*t25*t26*t32*taua+8. 8686 6 0d+1*t25*t26*t29*taua+3.183787772928d-4*gammaaa*t27*t28 8687 7 *t88*t96*t98+3.183787772928d-4*t23*t24*t87*t96*t98+3.18 8688 8 3787772928d-4*t19*t29*t30*t96*t98+1.061262590976d-4*gam 8689 9 maaa*t31*t49*t88*t98-2.060352d-2*gammaaa*t27*t49*t88*t9 8690 : 8+1.061262590976d-4*t19*t28*t32*t49*t98-4.120704d-2*t19 8691 ; *t28*t29*t49*t98-1.030176d-2*t19*t26*t32*t98-1.63993087 8692 < 63819376d-6*gammaaa*t31*t88*t93*t96+3.183787772928d-4*g 8693 = ammaaa*t27*t88*t93*t96-1.6399308763819376d-6*t19*t28*t3 8694 > 2*t93*t96+6.367575545856d-4*t19*t28*t29*t93*t96-4.45730 8695 ? 28820992006d-3*t23*t24*t48*t84*t96-1.0612625909760003d- 8696 @ 3*t18*t29*t30*t48*t96-2.7592827365376d-3*gammaaa*t25*t2 8697 1 7*t28*t48*t96-6.559723505527751d-6*gammaaa*t232*t27*t28 8698 2 *t88*t93-6.559723505527751d-6*t23*t232*t24*t87*t93+1.06 8699 3 1262590976d-4*t19*t32*t49*t93-6.559723505527751d-6*t19* 8700 4 t232*t29*t30*t93-4.5785600000000004d-1*t29*t49*t87*t90- 8701 5 4.7617024d-1*gammaaa*t27*t28*t49*t50-2.3808512d-1*gamma 8702 6 aa*t26*t31*t50+4.622222222222223d+1*gammaaa*t26*t27*t50 8703 7 -3.5375419699200006d-4*t18*t28*t32*t48*t49-9.1976091217 8704 8 92001d-4*gammaaa*t25*t31*t48*t49+1.373568d-1*t18*t28*t2 8705 9 9*t48*t49+1.7856384d-1*gammaaa*t25*t27*t48*t49-9.157120 8706 : 000000001d-2*t29*t30*t47*t49-1.1537971200000001d+0*t162 8707 ; *t23*t24*t49+3.4339200000000003d-2*t18*t26*t32*t48-4.57 8708 < 85600000000004d-2*t26*t28*t32*t47+8.88888888888889d+0*t 8709 = 22*t32*t47+1.7777777777777778d+1*t26*t28*t29*t47)-1.25d 8710 > -1*gammaaa*t14*t33*t91*t94+1.25d-1*gammaaa*t14*t16*t89* 8711 ? t94+2.5d-1*gammaaa*t51*t61*t91+1.25d-1*gammaaa*t15*t33* 8712 @ t61*t91+1.25d-1*gammaaa*t14*t15*t51*t91+1.25d-1*gammaaa 8713 1 *t114*t33*t91+1.25d-1*gammaaa*t100*t14*t91+2.0d+0*t17*t 8714 2 61*t89+1.25d-1*gammaaa*t15*t16*t61*t89+1.0d+0*rhoa*t114 8715 3 *t17*t89+2.0d+0*rhoa*t17*t192*t61+2.0d+0*t14*t17*t192+1 8716 4 .25d-1*gammaaa*t14*t15*t16*t192)+t37*(1.0d+0*t72*(-7.04 8717 5 8103111111113d-1*gammaaa*t40*t73*t84*taua-4.87945600000 8718 6 0001d-1*t25*t41*t42*t73*taua-1.2198640000000002d-1*t25* 8719 7 t39*t45*taua+8.0d+1*t25*t39*t42*taua-3.8689772640896003 8720 8 d-3*t118*t24*t38*t48*t84-3.3614030222222224d-1*gammaaa* 8721 9 t40*t41*t50*t73-1.2400568154133333d-4*t18*t41*t45*t48*t 8722 : 73-4.4642045354879994d-4*gammaaa*t25*t44*t48*t73+8.1324 8723 ; 26666666668d-2*t18*t41*t42*t48*t73+1.4638368000000002d- 8724 < 1*gammaaa*t25*t40*t48*t73-5.421617777777779d-2*t42*t43* 8725 = t47*t73-1.301188266666667d+0*t162*t24*t38*t73-1.6807015 8726 > 111111112d-1*gammaaa*t39*t44*t50+5.511111111111111d+1*g 8727 ? ammaaa*t39*t40*t50+2.033106666666667d-2*t18*t39*t45*t48 8728 @ -3.7201704462400004d-4*t118*t18*t42*t43*t48-1.339261360 8729 1 6464002d-3*gammaaa*t118*t25*t40*t41*t48-2.7108088888888 8730 2 89d-2*t39*t41*t45*t47+8.88888888888889d+0*t37*t45*t47+1 8731 3 .7777777777777778d+1*t39*t41*t42*t47+t363+t362+t361+t36 8732 4 0+t359+t358+t357+t356+t355+t354+t353+t352+t351+t350+t34 8733 5 9+t348+t347+t346+t345+t344+t343)+2.0d+0*t208*t82+t364)+ 8734 6 t26*(-6.4386d-4*gammaaa*t14*t33*t91*t98-5.15088d-3*rhoa 8735 7 *t14*t17*t89*t98-6.4386d-4*gammaaa*t33*t48*t61*t91-6.43 8736 8 86d-4*gammaaa*t14*t48*t51*t91-6.4386d-4*gammaaa*t14*t15 8737 9 *t33*t48*t91-5.15088d-3*rhoa*t17*t48*t61*t89-5.15088d-3 8738 : *t14*t17*t48*t89+1.7169600000000002d-2*t18*t62+1.716960 8739 ; 0000000002d-2*t17*t19*t33*t61+1.7169600000000002d-2*t14 8740 < *t17*t19*t51-5.15088d-3*t193*t48-5.15088d-3*rhoa*t14*t1 8741 = 7*t192*t48-2.8616d-2*t14*t17*t18*t33)-1.639930876381937 8742 > 6d-6*t1*t14*t17*t33*t93*t96-1.030176d-2*t16*t18*t26*t95 8743 ? +1.25d-1*gammaaa*t14*t22*t33*t91*t94-1.25d-1*gammaaa*t1 8744 @ 4*t16*t22*t89*t94+6.6328911936d-6*gammaaa*t14*t33*t49*t 8745 1 91*t93+5.30631295488d-5*rhoa*t14*t17*t49*t89*t93+t15*t2 8746 2 2*(-1.25d-1*gammaaa*t33*t61-1.25d-1*gammaaa*t14*t51)*t9 8747 3 1+1.28772d-3*gammaaa*t14*t15*t26*t33*t48*t91+t15*t16*t2 8748 4 2*(1.25d-1*gammaaa*t61*t89+1.25d-1*gammaaa*t14*t192)-1. 8749 5 28772d-3*gammaaa*t14*t15*t16*t26*t48*t89+t39*(1.0165533 8750 6 333333335d-2*t18*t83-3.04966d-3*t208*t48*t72-2.71080888 8751 7 8888889d-2*t46*t47*t72+t370+t369+t368+t367+t366)-1.2400 8752 8 568154133333d-4*t18*t46*t48*t72*t73+t19*(-3.53754196992 8753 9 00006d-4*t14*t17*t33*t48-2.060352d-2*t116)*t49+2.653156 8754 : 47744d-5*gammaaa*t14*t16*t18*t33*t48*t49+5.58012d-3*gam 8755 ; maaa*t14*t16*t26*t33*t47+t371+t365+t342+t341-1.030176d- 8756 < 2*t115*t19*t26)*wght+Mmat3(iq,D3_RA_RA_TA) 8757 Mmat3(iq,D3_RA_RA_TB) = (t37*(1.0d+0*t72*(-4.3372942222222 8758 1 227d-1*gammaaa*t40*t73*t84*taua-2.1686471111111114d-1*t 8759 2 25*t41*t42*t73*taua-5.421617777777779d-2*t25*t39*t45*ta 8760 3 ua+3.5555555555555557d+1*t25*t39*t42*taua-2.38090908559 8761 4 36d-3*t118*t24*t38*t48*t84-1.1927559111111112d-1*gammaa 8762 5 a*t40*t41*t50*t73-1.984090904661333d-4*gammaaa*t25*t44* 8763 6 t48*t73+6.505941333333333d-2*gammaaa*t25*t40*t48*t73-6. 8764 7 505941333333334d-1*t162*t24*t38*t73-5.963779555555556d- 8765 8 2*gammaaa*t39*t44*t50+1.9555555555555557d+1*gammaaa*t39 8766 9 *t40*t50-5.952272713984d-4*gammaaa*t118*t25*t40*t41*t48 8767 : +t363+t362+t361+t360+t359+t358+t357+t356+t355+t354+t353 8768 ; +t352+t351+t350+t349+t348+t347+t346+t345+t344+t343)+2.0 8769 < d+0*t212*t82+t364)+t39*(-3.04966d-3*t213*t48+t372+t367+ 8770 = t366)+t371+t365+t342+t341)*wght+Mmat3(iq,D3_RA_RA_TB) 8771 Mmat3(iq,D3_RA_RB_TA) = (t37*(1.0d+0*t72*(-3.5240515555555 8772 1 56d-1*gammaaa*t40*t73*t84*taua-1.3554044444444446d-1*t2 8773 2 5*t41*t42*t73*taua-3.3885111111111116d-2*t25*t39*t45*ta 8774 3 ua+2.2222222222222224d+1*t25*t39*t42*taua-3.12494317484 8775 4 16d-3*t118*t24*t38*t48*t84-5.421617777777777d-2*gammaaa 8776 5 *t40*t41*t50*t73-6.200284077066667d-5*t18*t41*t45*t48*t 8777 6 73-3.2241477200746665d-4*gammaaa*t25*t44*t48*t73+4.0662 8778 7 13333333334d-2*t18*t41*t42*t48*t73+1.0572154666666667d- 8779 8 1*gammaaa*t25*t40*t48*t73-3.9035648d-1*t162*t24*t38*t73 8780 9 -2.7108088888888887d-2*gammaaa*t39*t44*t50+8.8888888888 8781 : 8889d+0*gammaaa*t39*t40*t50+1.0165533333333335d-2*t18*t 8782 ; 39*t45*t48-1.8600852231200002d-4*t118*t18*t42*t43*t48-9 8783 < .672443160224d-4*gammaaa*t118*t25*t40*t41*t48+t362+t361 8784 = +t358+t357+t353+t352+t351+t350+t349+t347+t345+t344+t343 8785 > )+1.0d+0*t158*t92+1.0d+0*t212*t82+1.0d+0*t208*t82)-6.20 8786 ? 0284077066667d-5*t18*t46*t48*t72*t73-1.219864d-2*t160*t 8787 @ 19*t73+(t372+t370+t369+t368+t367)*t39-6.09932d-3*t159*t 8788 1 19*t39+t342+t341)*wght+Mmat3(iq,D3_RA_RB_TA) 8789 Mmat3(iq,D3_RA_GAA_TA) = (t22*(1.0d+0*rhoa*t14*t17*(-2.122 8790 1 525181952d-3*t28*t29*t87*t96*taua-1.061262590976d-3*gam 8791 2 maaa*t214*t27*t96*taua-3.53754196992d-4*t32*t49*t87*tau 8792 3 a+1.373568d-1*t29*t49*t87*taua+6.867840000000001d-2*t27 8793 4 *t49*t87*taua-1.6399308763819376d-6*t28*t32*t48*t88*t96 8794 5 +6.367575545856d-4*t28*t29*t48*t88*t96+3.183787772928d- 8795 6 4*t27*t28*t48*t88*t96-1.6399308763819376d-6*gammaaa*t31 8796 7 *t48*t87*t96+3.183787772928d-4*gammaaa*t27*t48*t87*t96+ 8797 8 6.367575545856d-4*gammaaa*t23*t48*t87*t96-2.22865144104 8798 9 96003d-3*gammaaa*t27*t28*t84*t96-1.3796413682688d-3*t25 8799 : *t29*t30*t96-3.0776615138304003d-3*t186*t23*t24*t96+1.0 8800 ; 61262590976d-4*t32*t48*t49*t88+1.061262590976d-4*t31*t4 8801 < 8*t49*t88-2.060352d-2*t27*t48*t49*t88-6.559723505527751 8802 = d-6*t232*t29*t30*t48*t88-6.559723505527751d-6*gammaaa*t 8803 > 232*t27*t28*t48*t87-7.428838136832d-4*gammaaa*t31*t49*t 8804 ? 84+1.4422464000000002d-1*gammaaa*t27*t49*t84+2.88449280 8805 @ 00000003d-1*gammaaa*t23*t49*t84-4.5988045608960004d-4*t 8806 1 25*t28*t32*t49+1.7856384d-1*t25*t28*t29*t49+8.928192d-2 8807 2 *t25*t27*t28*t49-6.559723505527751d-6*t214*t23*t232*t24 8808 3 *t48+4.464096d-2*t25*t26*t32+4.464096d-2*t25*t26*t31-8. 8809 4 666666666666666d+0*t25*t26*t27)+1.25d-1*gammaaa*t61*t85 8810 5 *t91+1.25d-1*gammaaa*t14*t15*t85*t91+1.25d-1*t33*t61*t9 8811 6 1+1.25d-1*t14*t51*t91+1.25d-1*t14*t15*t33*t91+1.25d-1*g 8812 7 ammaaa*t14*t163*t91-1.25d-1*t16*t61*t89-1.25d-1*t14*t15 8813 8 *t16*t89+1.0d+0*rhoa*t17*t215*t61+1.0d+0*t14*t17*t215-1 8814 9 .25d-1*t14*t16*t192)-1.6399308763819376d-6*t14*t17*t216 8815 : *t33*t48*t96+t18*t26*(1.7169600000000002d-3*gammaaa*t14 8816 ; *t15*t33*t91+1.373568d-2*t14*t17*t89-5.15088d-3*t193)+t 8817 < 26*(-6.4386d-4*gammaaa*t14*t48*t85-6.4386d-4*t14*t33*t4 8818 = 8)*t91+6.6328911936d-6*gammaaa*t14*t18*t33*t48*t49*t91+ 8819 > 6.4386d-4*gammaaa*t14*t26*t33*t47*t91+t15*t22*t280*t91+ 8820 ? t15*t16*t22*(1.25d-1*t14*t89+1.25d-1*gammaaa*t14*t215)+ 8821 @ 5.30631295488d-5*t14*t17*t19*t48*t49*t89+6.4386d-4*t14* 8822 1 t16*t26*t48*t89-6.4386d-4*gammaaa*t14*t16*t26*t47*t89+( 8823 2 -1.7687709849600003d-4*t14*t17*t33-2.060352d-2*t165)*t4 8824 3 9*t88+t18*t39*(1.0165533333333335d-2*t72*t86-3.04966d-3 8825 4 *t210)+t19*t26*(1.7169600000000002d-2*t14*t17*t85+t317) 8826 5 +1.061262590976d-4*t1*t14*t17*t48*t49*t85+t37*(1.0d+0*t 8827 6 72*(-4.2161931724053336d-4*gammaaa*t44*t73*t84+1.382512 8828 7 5333333332d-1*gammaaa*t40*t73*t84+2.7650250666666665d-1 8829 8 *gammaaa*t38*t73*t84-1.2648579517216d-3*gammaaa*t118*t4 8830 9 0*t41*t84-1.6120738600373333d-4*t25*t41*t45*t73+1.05721 8831 : 54666666667d-1*t25*t41*t42*t73+5.286077333333333d-2*t25 8832 ; *t40*t41*t73+2.6430386666666666d-2*t25*t39*t45+2.643038 8833 < 6666666666d-2*t25*t39*t44-4.836221580112d-4*t118*t25*t4 8834 = 2*t43-8.666666666666666d+0*t25*t39*t40+t390+t389+t388+t 8835 > 387+t386+t385+t384+t383+t382+t381+t380-3.1249431748416d 8836 ? -3*t118*t186*t24*t38+t379+t378+t377+t376+t375+t374)+t39 8837 @ 1)-1.6120738600373333d-4*t25*t46*t72*t73-1.32657823872d 8838 1 -5*t14*t16*t19*t33*t48*t49+1.32657823872d-5*gammaaa*t14 8839 2 *t16*t25*t33*t49-5.15088d-3*rhoa*t14*t17*t215*t26*t48+t 8840 3 397+t396+t395+t394+t393+t392+t373+t16*t18*t26*(-2.1462d 8841 4 -3*t14*t33-1.030176d-2*t161))*wght+Mmat3(iq,D3_RA_GAA_T 8842 5 A) 8843 Mmat3(iq,D3_RA_GAA_TB) = (t37*(1.0d+0*t72*(-2.976136356991 8844 1 9996d-4*gammaaa*t44*t73*t84+9.758912d-2*gammaaa*t40*t73 8845 2 *t84+1.9517824d-1*gammaaa*t38*t73*t84-8.928409070975999 8846 3 d-4*gammaaa*t118*t40*t41*t84-9.920454523306665d-5*t25*t 8847 4 41*t45*t73+6.505941333333333d-2*t25*t41*t42*t73+3.25297 8848 5 06666666663d-2*t25*t40*t41*t73+1.6264853333333332d-2*t2 8849 6 5*t39*t45+1.6264853333333332d-2*t25*t39*t44-2.976136356 8850 7 992d-4*t118*t25*t42*t43-5.333333333333333d+0*t25*t39*t4 8851 8 0+t390+t389+t388+t387+t386+t385+t384+t383+t382+t381+t38 8852 9 0-2.3809090855936d-3*t118*t186*t24*t38+t379+t378+t377+t 8853 : 376+t375+t374)+t391)-9.920454523306665d-5*t25*t46*t72*t 8854 ; 73+t398+t397+t396+t395+t394+t393+t392+t373)*wght+Mmat3( 8855 < iq,D3_RA_GAA_TB) 8856 Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA) 8857 Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB) 8858 Mmat3(iq,D3_RA_GBB_TA) = (1.0165533333333335d-2*t18*t39*t7 8859 1 2*t86+t37*(1.0d+0*t72*(-2.2321022677439997d-4*gammaaa*t 8860 2 44*t73*t84+7.319184000000001d-2*gammaaa*t40*t73*t84+1.4 8861 3 638368000000002d-1*gammaaa*t38*t73*t84-6.69630680323200 8862 4 1d-4*gammaaa*t118*t40*t41*t84-6.200284077066667d-5*t25* 8863 5 t41*t45*t73+4.066213333333334d-2*t25*t41*t42*t73+2.0331 8864 6 06666666667d-2*t25*t40*t41*t73+1.0165533333333335d-2*t2 8865 7 5*t39*t45+1.0165533333333335d-2*t25*t39*t44-1.860085223 8866 8 1200002d-4*t118*t25*t42*t43-3.3333333333333337d+0*t25*t 8867 9 39*t40+t390+t389+t388+t387+t386+t385+t384+t383+t382+t38 8868 : 1+t380-1.9344886320448001d-3*t118*t186*t24*t38+t379+t37 8869 ; 8+t377+t376+t375+t374)+t391)-6.200284077066667d-5*t25*t 8870 < 46*t72*t73+t399+t397+t395+t393+t392-3.04966d-3*t18*t210 8871 = *t39+t373)*wght+Mmat3(iq,D3_RA_GBB_TA) 8872 Mmat3(iq,D3_RA_GBB_TB) = (t37*(1.0d+0*t72*(-9.920454523306 8873 1 665d-5*gammaaa*t44*t73*t84+3.2529706666666663d-2*gammaa 8874 2 a*t40*t73*t84+6.505941333333333d-2*gammaaa*t38*t73*t84- 8875 3 2.976136356992d-4*gammaaa*t118*t40*t41*t84+t390+t389+t3 8876 4 88+t387+t386+t385+t384+t383+t382+t381+t380-1.1904545427 8877 5 968d-3*t118*t186*t24*t38+t379+t378+t377+t376+t375+t374) 8878 6 +t391)+t399+t398+t397+t395+t393+t392+t373)*wght+Mmat3(i 8879 7 q,D3_RA_GBB_TB) 8880 Mmat3(iq,D3_GAA_GAA_TA) = (1.0d+0*rhoa*t14*t17*t22*(-1.639 8881 1 9308763819376d-6*t28*t32*t87*t96+6.367575545856d-4*t28* 8882 2 t29*t87*t96+6.367575545856d-4*t27*t28*t87*t96-1.6399308 8883 3 763819376d-6*gammaaa*t214*t31*t96+3.183787772928d-4*gam 8884 4 maaa*t214*t27*t96+1.2735151091712002d-3*gammaaa*t214*t2 8885 5 3*t96+1.061262590976d-4*t32*t49*t87+2.122525181952d-4*t 8886 6 31*t49*t87-4.120704d-2*t27*t49*t87-4.120704d-2*t23*t49* 8887 7 t87-6.559723505527751d-6*t232*t29*t30*t87-6.55972350552 8888 8 7751d-6*t23*t232*t24*t400-6.559723505527751d-6*gammaaa* 8889 9 t214*t232*t27*t28)-1.6399308763819376d-6*t14*t17*t223*t 8890 : 33*t96+t18*t26*(-1.28772d-3*gammaaa*t14*t85-1.28772d-3* 8891 ; t14*t33)*t91+6.6328911936d-6*gammaaa*t14*t25*t33*t49*t9 8892 < 1+t22*t315*t91+5.30631295488d-5*t14*t17*t49*t88*t89+1.2 8893 = 8772d-3*t14*t16*t18*t26*t89-2.65315647744d-5*t14*t16*t3 8894 > 3*t49*t88+2.122525181952d-4*t14*t17*t216*t49*t85+2.5754 8895 ? 4d-3*t14*t16*t19*t26*t85+t406+t405+t404+t403+t402+t401- 8896 @ 1.030176d-2*t14*t17*t19*t215*t26-1.030176d-2*t1*t14*t17 8897 1 *t187*t26-2.5d-1*t14*t16*t215*t22)*wght+Mmat3(iq,D3_GAA 8898 2 _GAA_TA) 8899 Mmat3(iq,D3_GAA_GAA_TB) = t407+Mmat3(iq,D3_GAA_GAA_TB) 8900 Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA) 8901 Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB) 8902 Mmat3(iq,D3_GAA_GBB_TA) = t407+Mmat3(iq,D3_GAA_GBB_TA) 8903 Mmat3(iq,D3_GAB_GAB_TA) = Mmat3(iq,D3_GAB_GAB_TA) 8904 Mmat3(iq,D3_TA_TA_TA) = (7.5d-1*gammaaa*t14*t22*t33/taua** 8905 1 4+1.0d+0*rhoa*t14*t17*t22*(-6.55972350552775d-6*t28*t32 8906 2 *t410*t96+7.641090655027201d-3*t28*t29*t410*t96-6.55972 8907 3 350552775d-6*gammaaa*t31*t409*t96+3.8205453275136003d-3 8908 4 *gammaaa*t27*t409*t96+1.2735151091712002d-3*t32*t410*t4 8909 5 9-4.9448448d-1*t29*t410*t49-2.623889402211101d-5*t232*t 8910 6 29*t30*t410-2.623889402211101d-5*gammaaa*t232*t27*t28*t 8911 7 409-2.623889402211101d-5*t23*t232*t24*t408)-6.559723505 8912 8 52775d-6*t14*t17*t33*t96/rhoa**4-7.72632d-3*gammaaa*t14 8913 9 *t19*t26*t89*t91+7.959469432320001d-5*gammaaa*t14*t216* 8914 : t33*t49*t91+3.75d-1*gammaaa*t14*t22*t224*t91+6.36757554 8915 ; 5856d-4*t106*t14*t17*t49*t89-7.5d-1*gammaaa*t14*t22*t22 8916 < 5*t89+t414+t413+t412+t411+7.72632d-3*gammaaa*t14*t19*t2 8917 = 25*t26*t33-3.090528d-2*t1*t14*t17*t224*t26)*wght+Mmat3( 8918 > iq,D3_TA_TA_TA) 8919 Mmat3(iq,D3_TA_TA_TB) = (t414+t413+t412+t411)*wght+Mmat3(i 8920 1 q,D3_TA_TA_TB) 8921 else 8922 t1 = 1/rhoa**1.6666666666666669d+0 8923 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 8924 t3 = 1/t2 8925 t4 = param(12) 8926 t5 = 1/t2**2 8927 t6 = 2.0d-50*t1-9.11559972d+0 8928 t7 = t6**2 8929 t8 = param(10) 8930 t9 = 1/rhoa**3.3333333333333337d+0 8931 t10 = param(9) 8932 t11 = param(8) 8933 t12 = param(11) 8934 t13 = 1.6d-99*t5*t8*t9+t4*t5*t7+4.0d-50*t1*t12*t5*t6+t10*t 8935 1 3*t6+4.0d-50*t1*t11*t3+param(7) 8936 t14 = 1/rhoa**6.666666666666666d-1 8937 t15 = rhoa**5.0d-1 8938 t16 = 1/t15 8939 t17 = 1/rhoa**3.333333333333333d-1 8940 t18 = 1/rhoa**1.6666666666666666d-1 8941 t19 = 1.1120374863094686d+1*t18+3.8447462374472113d+0*t17+ 8942 1 1.644733775567609d+0*t16+2.4058712912881916d-1*t14 8943 t20 = 3.216395899738507d+1/t19+1.0d+0 8944 t21 = log(t20) 8945 t22 = 1.274696188700087d-1*t17+1.0d+0 8946 t23 = 5.982550435771079d+0*t18+2.2255694211506874d+0*t17+8 8947 1 .004286349993635d-1*t16+1.8970043257475583d-1*t14 8948 t24 = 1.6081979498692536d+1/t23+1.0d+0 8949 t25 = log(t24) 8950 t26 = 1.3256889990520176d-1*t17+1.0d+0 8951 t27 = -6.903522198342671d-18*t25*t26-3.1090699999999993d-2 8952 1 *t21*t22 8953 t28 = 3.04966d-3*(1.2d-49*t1-1.823119944d+1)+1.0d+0 8954 t29 = 1/t28 8955 t30 = param(6) 8956 t31 = 1/t28**2 8957 t32 = 4.0d-50*t1-1.823119944d+1 8958 t33 = t32**2 8959 t34 = param(4) 8960 t35 = param(3) 8961 t36 = param(2) 8962 t37 = param(5) 8963 t38 = 6.4d-99*t31*t34*t9+8.0d-50*t1*t31*t32*t37+8.0d-50*t1 8964 1 *t29*t36+t29*t32*t35+t30*t31*t33+param(1) 8965 t39 = -2*rhoa*t27 8966 t40 = 1/t24 8967 t41 = 1/t15**3 8968 t42 = 1/rhoa**1.3333333333333333d+0 8969 t43 = 1/rhoa**1.1666666666666667d+0 8970 t44 = -9.970917392951799d-1*t43-7.418564737168958d-1*t42-4 8971 1 .002143174996817d-1*t41-1.264669550498372d-1*t1 8972 t45 = 1/t23**2 8973 t46 = 1/t20 8974 t47 = -1.8533958105157808d+0*t43-1.2815820791490704d+0*t42 8975 1 -8.223668877838045d-1*t41-1.6039141941921276d-1*t1 8976 t48 = 1/t19**2 8977 t49 = 1.0d+0*t22*t46*t47*t48+1.1102230246251565d-16*t26*t4 8978 1 0*t44*t45+3.0506411443514264d-19*t25*t42+1.321039893133 8979 2 9265d-3*t21*t42 8980 t50 = 1/t2**3 8981 t51 = 1/rhoa**6 8982 t52 = 1/rhoa**4.333333333333333d+0 8983 t53 = 1/rhoa**2.6666666666666666d+0 8984 t54 = -5.333333333333334d-99*t5*t52*t8+1.6482816d-150*t50* 8985 1 t51*t8+1.030176d-51*t4*t50*t53*t7-6.666666666666666d-50 8986 2 *t4*t5*t53*t6-6.666666666666666d-50*t12*t5*t53*t6+5.150 8987 3 88d-52*t10*t5*t53*t6+4.1207039999999995d-101*t12*t50*t5 8988 4 2*t6-6.666666666666666d-50*t11*t3*t53-3.333333333333333 8989 5 d-50*t10*t3*t53-1.3333333333333333d-99*t12*t5*t52+2.060 8990 6 3519999999997d-101*t11*t5*t52 8991 t55 = 5.0d-1*rhoa*t27*t54+5.0d-1*rhoa*t13*t49+5.0d-1*t13*t 8992 1 27 8993 t56 = 6.299605249474366d-1 8994 t57 = 1.414213562373095d+0 8995 t58 = 1/t57 8996 t59 = 7.937005259840998d-1 8997 t60 = 8.908987181403393d-1 8998 t61 = 5.982550435771079d+0*t18*t60+2.2255694211506874d+0*t 8999 1 17*t59+8.004286349993635d-1*t16*t58+1.8970043257475583d 9000 2 -1*t14*t56 9001 t62 = 1.6081979498692536d+1/t61+1.0d+0 9002 t63 = log(t62) 9003 t64 = 1.3256889990520176d-1*t17*t59+1.0d+0 9004 t65 = t39-1.243628d-1*rhoa*t63*t64 9005 t66 = 1/t62 9006 t67 = 3.149802624737183d-1 9007 t68 = 1/t57**3 9008 t69 = 3.968502629920499d-1 9009 t70 = 4.4544935907016964d-1 9010 t71 = -9.970917392951799d-1*t43*t70-7.418564737168958d-1*t 9011 1 42*t69-4.002143174996817d-1*t41*t68-1.264669550498372d- 9012 2 1*t1*t67 9013 t72 = 1/t61**2 9014 t73 = 2*rhoa*(1.0d+0*t64*t66*t71*t72+2.747773264188437d-3* 9015 1 t42*t63*t69)-6.21814d-2*t63*t64-rhoa*t49+6.903522198342 9016 2 671d-18*t25*t26+3.1090699999999993d-2*t21*t22 9017 t74 = 1/t28**3 9018 t75 = 6.09932d-52*t30*t33*t53*t74+4.8794560000000003d-101* 9019 1 t32*t37*t52*t74+3.9035648d-150*t34*t51*t74-6.6666666666 9020 2 66666d-50*t31*t32*t37*t53-6.666666666666666d-50*t29*t36 9021 3 *t53+3.04966d-52*t31*t32*t35*t53-3.333333333333333d-50* 9022 4 t29*t35*t53-6.666666666666666d-50*t30*t31*t32*t53-2.666 9023 5 6666666666666d-99*t31*t37*t52+2.4397280000000002d-101*t 9024 6 31*t36*t52-1.0666666666666666d-98*t31*t34*t52 9025 t76 = 1.0d+0*t65*t75+1.0d+0*t38*t73 9026 t77 = 2.57544d-52*t27*t54+2.57544d-52*t13*t49 9027 t78 = 1/t24**2 9028 t79 = t44**2 9029 t80 = 1/t23**4 9030 t81 = 1/t23**3 9031 t82 = 1/t15**5 9032 t83 = 1/rhoa**2.3333333333333334d+0 9033 t84 = 1/rhoa**2.1666666666666665d+0 9034 t85 = 1.1632736958443765d+0*t84+9.89141964955861d-1*t83+6. 9035 1 003214762495226d-1*t82+2.1077825841639536d-1*t53 9036 t86 = 1/t20**2 9037 t87 = t47**2 9038 t88 = 1/t19**4 9039 t89 = 1/t19**3 9040 t90 = 2.1622951122684114d+0*t84+1.7087761055320938d+0*t83+ 9041 1 1.2335503316757068d+0*t82+2.673190323653546d-1*t53 9042 t91 = 1.0d+0*t22*t46*t48*t90-2.0d+0*t22*t46*t87*t89+3.2163 9043 1 95899738507d+1*t22*t86*t87*t88+1.1102230246251565d-16*t 9044 2 26*t40*t45*t85-4.0675215258019015d-19*t25*t83-1.7613865 9045 3 241785684d-3*t21*t83-2.220446049250313d-16*t26*t40*t79* 9046 4 t81+1.7854583920998188d-15*t26*t78*t79*t80-8.4979745913 9047 5 33913d-2*t42*t46*t47*t48-9.812069668265515d-18*t40*t42* 9048 6 t44*t45 9049 t92 = 1/t2**4 9050 t93 = 1/rhoa**8.666666666666666d+0 9051 t94 = 1/rhoa**7 9052 t95 = 1/rhoa**5.333333333333333d+0 9053 t96 = 1/rhoa**3.6666666666666664d+0 9054 t97 = -2.747136d-51*t4*t50*t7*t96+1.7777777777777776d-49*t 9055 1 4*t5*t6*t96+1.7777777777777776d-49*t12*t5*t6*t96-1.3735 9056 2 68d-51*t10*t5*t6*t96+1.7777777777777776d-49*t11*t3*t96+ 9057 3 8.888888888888888d-50*t10*t3*t96+1.5918938864639998d-10 9058 4 2*t4*t7*t92*t95+2.3111111111111113d-98*t5*t8*t95-1.3735 9059 5 68d-100*t4*t50*t6*t95-2.4724223999999997d-100*t12*t50*t 9060 6 6*t95+5.306312954879999d-103*t10*t50*t6*t95+2.222222222 9061 7 222222d-99*t4*t5*t95+8.0d-99*t12*t5*t95-1.2362111999999 9062 8 999d-100*t11*t5*t95-3.43392d-101*t10*t5*t95+6.367575545 9063 9 855999d-152*t12*t6*t92*t94-1.53839616d-149*t50*t8*t94-2 9064 : .7471359999999995d-150*t12*t50*t94+2.1225251819519997d- 9065 ; 152*t11*t50*t94+2.5470302183424d-201*t8*t92*t93 9066 t98 = 5.0d-1*rhoa*t27*t97+5.0d-1*rhoa*t13*t91+1.0d+0*rhoa* 9067 1 t49*t54+1.0d+0*t27*t54+1.0d+0*t13*t49 9068 t99 = 1.86008522312d-103*t38*t65*t74*t95 9069 t100 = 5.15088d-52*t55-4.2923999999999995d-52*t13*t27 9070 t101 = 2.0d+0*t73*t75 9071 t102 = 2.0d+0*t64*t66*t71*t72 9072 t103 = 5.495546528376875d-3*t42*t63*t69 9073 t104 = 1/t62**2 9074 t105 = t71**2 9075 t106 = 1/t61**4 9076 t107 = 1.6081979498692536d+1*t104*t105*t106*t64 9077 t108 = 1/t61**3 9078 t109 = -2.0d+0*t105*t108*t64*t66 9079 t110 = 1.9842513149602492d-1 9080 t111 = 2.5908976111853255d-1*t84+9.89141964955861d-1*t110* 9081 1 t83+6.003214762495226d-1*t82/t57**5+3.319549557987472d- 9082 2 2*t53 9083 t112 = 1.0d+0*t111*t64*t66*t72 9084 t113 = -3.663697685584583d-3*t110*t63*t83 9085 t114 = 8.157414703487641d+0*t18*t60+2.247591863577616d+0*t 9086 1 17*t59+4.3009724712766434d-1*t16*t58+1.9115125951273373 9087 2 d-1*t14*t56 9088 t115 = 2.9608813203268075d+1/t114+1.0d+0 9089 t116 = log(t115) 9090 t117 = 6.901399211255825d-2*t17*t59+1.0d+0 9091 t118 = 1/rhoa**2 9092 t119 = -8.837926660346784d-2*t42*t66*t69*t71*t72 9093 t120 = -rhoa*t91-2.0d+0*t22*t46*t47*t48-2.220446049250313d 9094 1 -16*t26*t40*t44*t45-6.101282288702853d-19*t25*t42-2.642 9095 2 079786267853d-3*t21*t42+2*rhoa*(t119+8.443431970194815d 9096 3 -3*t116*t117*t118+t113+t112+t109+t107)+t103+t102 9097 t121 = 1/t28**4 9098 t122 = 3.5713636283903993d-201*t121*t34*t93 9099 t123 = 1.488068178496d-152*t36*t74*t94 9100 t124 = -3.252970666666667d-150*t37*t74*t94 9101 t125 = 4.4642045354879994d-152*t121*t32*t37*t94 9102 t126 = -2.0331066666666667d-101*t31*t35*t95 9103 t127 = 2.222222222222222d-99*t30*t31*t95 9104 t128 = 5.580255669359999d-103*t121*t30*t33*t95 9105 t129 = 1.86008522312d-103*t32*t35*t74*t95 9106 t130 = -8.132426666666667d-101*t30*t32*t74*t95 9107 t131 = -1.6264853333333332d-51*t30*t33*t74*t96+1.777777777 9108 1 7777776d-49*t31*t32*t37*t96+1.7777777777777776d-49*t29* 9109 2 t36*t96-8.132426666666666d-52*t31*t32*t35*t96+8.8888888 9110 3 88888888d-50*t29*t35*t96+1.7777777777777776d-49*t30*t31 9111 4 *t32*t96-2.1144309333333333d-100*t32*t37*t74*t95+1.1555 9112 5 555555555555d-98*t31*t37*t95-1.0572154666666667d-100*t3 9113 6 1*t36*t95+3.733333333333333d-98*t31*t34*t95-2.342138880 9114 7 0000004d-149*t34*t74*t94+t130+t129+t128+t127+t126+t125+ 9115 8 t124+t123+t122 9116 t132 = 1.0d+0*t131*t65+1.0d+0*t120*t38+t101 9117 t133 = 3.04966d-52*t38*t73 9118 t134 = 3.04966d-52*t65*t75 9119 t135 = 3.04966d-52*t76+t134+t133 9120 t136 = -8.443431970194815d-3*t116*t117*t118 9121 t137 = 2*rhoa*(t136+t119+t113+t112+t109+t107)+t103+t102 9122 t138 = -8.132426666666667d-101*t32*t37*t74*t95+4.444444444 9123 1 444444d-99*t31*t37*t95-4.0662133333333333d-101*t31*t36* 9124 2 t95+8.888888888888888d-99*t31*t34*t95-1.301188266666666 9125 3 6d-149*t34*t74*t94+t130+t129+t128+t127+t126+t125+t124+t 9126 4 123+t122 9127 t139 = 1.0d+0*t138*t65+1.0d+0*t137*t38+t101 9128 t140 = t44**3 9129 t141 = 1/t15**7 9130 t142 = 1/rhoa**3.1666666666666665d+0 9131 t143 = t47**3 9132 t144 = 1.1102230246251565d-16*t26*t40*t45*(-5.620753557770 9133 1 543d-1*t96-2.3079979182303428d+0*t9-2.520426340996149d+ 9134 2 0*t142-1.5008036906238065d+0*t141)+1.0d+0*t22*t46*t48*( 9135 3 -7.128507529742789d-1*t96-3.9871442462415524d+0*t9-4.68 9136 4 4972743248224d+0*t142-3.083875829189267d+0*t141)-6.0d+0 9137 5 *t22*t46*t47*t89*t90+9.649187699215522d+1*t22*t47*t86*t 9138 6 88*t90-1.274696188700087d-1*t42*t46*t48*t90+9.490883560 9139 7 204437d-19*t25*t9+4.1099018897499934d-3*t21*t9+2.549392 9140 8 377400174d-1*t42*t46*t87*t89-4.0999275947472624d+0*t42* 9141 9 t86*t87*t88+6.0d+0*t143*t22*t46*t88-1.9298375398431045d 9142 : +2*t143*t22*t86/t19**5-6.661338147750939d-16*t26*t40*t4 9143 ; 4*t81*t85+5.356375176299456d-15*t26*t44*t78*t80*t85-1.4 9144 < 718104502398274d-17*t40*t42*t45*t85+1.6995949182667827d 9145 = -1*t46*t47*t48*t83+1.962413933653103d-17*t40*t44*t45*t8 9146 > 3+2.943620900479655d-17*t40*t42*t79*t81-2.3669625486718 9147 ? 335d-16*t42*t78*t79*t80+6.661338147750939d-16*t140*t26* 9148 @ t40*t80-1.0712750352598913d-14*t140*t26*t78/t23**5+5.74 9149 1 2741051503565d-14*t140*t26/(t23**6*t24**3)+2.0690405167 9150 2 709364d+3*t143*t22/(t19**6*t20**3) 9151 t145 = 1/t2**5 9152 t146 = 1/rhoa**1.1333333333333334d+1 9153 t147 = 1/rhoa**9.666666666666666d+0 9154 t148 = 1/rhoa**8 9155 t149 = 1/rhoa**6.333333333333333d+0 9156 t150 = 1/rhoa**4.666666666666667d+0 9157 t151 = 1.7017882504620416d-154*t121*t148*t38*t65 9158 t152 = 4.824593849607761d+1*t104*t105*t106*t64 9159 t153 = -6.0d+0*t105*t108*t64*t66 9160 t154 = 3.0d+0*t111*t64*t66*t72 9161 t155 = -1.099109305675375d-2*t110*t63*t83 9162 t156 = -2.6513779981040353d-1*t42*t66*t69*t71*t72 9163 t157 = t71**3 9164 t158 = 5.172601291927341d+2*t157*t64/(t61**6*t62**3) 9165 t159 = -9.649187699215522d+1*t104*t157*t64/t61**5 9166 t160 = 6.0d+0*t106*t157*t64*t66 9167 t161 = 4.824593849607761d+1*t104*t106*t111*t64*t71 9168 t162 = -6.0d+0*t108*t111*t64*t66*t71 9169 t163 = 9.921256574801247d-2 9170 t164 = 1.0d+0*t64*t66*t72*(-4.4260660773166294d-2*t96-2.30 9171 1 79979182303428d+0*t163*t9-1.5008036906238065d+0*t141/t5 9172 2 7**7-2.8068057454507694d-1*t142) 9173 t165 = 8.548627933030694d-3*t163*t63*t9 9174 t166 = 1/rhoa**3 9175 t167 = 1.767585332069357d-1*t110*t66*t71*t72*t83 9176 t168 = 1/t115 9177 t169 = -1.3595691172479402d+0*t43*t70-7.491972878592053d-1 9178 1 *t42*t69-2.1504862356383217d-1*t41*t68-1.27434173008489 9179 2 14d-1*t1*t67 9180 t170 = 1/t114**2 9181 t171 = -2.1319703304396778d+0*t104*t105*t106*t42*t69 9182 t172 = 2.6513779981040353d-1*t105*t108*t42*t66*t69 9183 t173 = -1.3256889990520176d-1*t111*t42*t66*t69*t72 9184 t174 = 1/t28**5 9185 t175 = 4.3565779211828265d-252*t146*t174*t34 9186 t176 = 1.3614306003696333d-203*t121*t147*t36 9187 t177 = -4.4642045354879994d-201*t121*t147*t37 9188 t178 = 5.445722401478533d-203*t147*t174*t32*t37 9189 t179 = -1.8600852231199996d-152*t148*t35*t74 9190 t180 = 4.066213333333333d-150*t148*t30*t74 9191 t181 = 6.807153001848166d-154*t148*t174*t30*t33 9192 t182 = 1.7017882504620416d-154*t121*t148*t32*t35 9193 t183 = -1.1160511338719999d-151*t121*t148*t30*t32 9194 t184 = t31*(-8.132426666666666d-52*t65*t75-8.1324266666666 9195 1 66d-52*t38*t73)*t96 9196 t185 = 6.09932d-52*t73*t75 9197 t186 = 1.86008522312d-103*t38*t73 9198 t187 = 1.86008522312d-103*t65*t75 9199 fnc(iq) = (1.0d+0*t29*t38*(t39-1.243628d-1*rhoa*(1.0522000 9200 1 558389212d-1*t17+1.0d+0)*log(1.6081979498692536d+1/(5.3 9201 2 29846514438383d+0*t18+1.766435620181429d+0*t17+5.659885 9202 3 156639418d-1*t16+1.19503784087549d-1*t14)+1.0d+0))+1.0d 9203 4 +0*rhoa*t13*t27*t3)*wght+fnc(iq) 9204 Amat(iq,D1_RA) = (t29*t76+3.04966d-52*t31*t38*t53*t65+t3*t 9205 1 55+2.57544d-52*t1*t13*t27*t5)*wght+Amat(iq,D1_RA) 9206 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 9207 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 9208 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 9209 Amat2(iq,D2_RA_RA) = (t99+t3*t98-8.132426666666666d-52*t31 9210 1 *t38*t65*t96+t1*t5*t77+t100*t5*t53+t135*t31*t53+2.65315 9211 2 64774399996d-103*t13*t27*t50*t52+t132*t29)*wght+Amat2(i 9212 3 q,D2_RA_RA) 9213 Amat2(iq,D2_RA_RB) = (t99+3.04966d-52*t31*t53*t76+(t134+t1 9214 1 33)*t31*t53+t139*t29)*wght+Amat2(iq,D2_RA_RB) 9215 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 9216 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 9217 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 9218 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 9219 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 9220 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 9221 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 9222 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 9223 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 9224 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 9225 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 9226 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 9227 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 9228 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 9229 Amat3(iq,D3_RA_RA_RA) = (t5*t53*(1.030176d-51*t98-4.292399 9230 1 9999999995d-52*t27*t54-4.2923999999999995d-52*t13*t49)+ 9231 2 t3*(1.5d+0*rhoa*t49*t97+1.5d+0*t27*t97+5.0d-1*rhoa*t27* 9232 3 (-4.58465439301632d-200*t147*t8*t92-1.2735151091711996d 9233 4 -101*t149*t4*t7*t92-3.1837877729279995d-151*t148*t4*t6* 9234 5 t92-8.277848209612798d-151*t12*t148*t6*t92+8.1996543819 9235 6 09687d-154*t10*t148*t6*t92-6.367575545855999d-201*t12*t 9236 7 147*t92+3.2798617527638746d-203*t11*t147*t92+1.31496243 9237 8 2d-148*t148*t50*t8-1.2325925925925926d-97*t149*t5*t8+5. 9238 9 2477788044222d-252*t145*t146*t8+1.0072832d-50*t150*t4*t 9239 : 50*t7+3.279861752763875d-153*t145*t148*t4*t7+1.0988544d 9240 ; -99*t149*t4*t50*t6+1.50176768d-99*t12*t149*t50*t6-4.245 9241 < 0503639039994d-102*t10*t149*t50*t6-6.518518518518518d-4 9242 = 9*t150*t4*t5*t6-6.518518518518518d-49*t12*t150*t5*t6+5. 9243 > 036415999999999d-51*t10*t150*t5*t6+1.31194470110555d-20 9244 ? 2*t12*t145*t147*t6+6.86784d-150*t148*t4*t50+3.571276799 9245 @ 9999995d-149*t12*t148*t50-2.7592827365375994d-151*t11*t 9246 1 148*t50-5.30631295488d-152*t10*t148*t50-1.7777777777777 9247 2 776d-98*t149*t4*t5-4.8592592592592593d-98*t12*t149*t5+7 9248 3 .508838399999999d-100*t11*t149*t5+2.7471359999999995d-1 9249 4 00*t10*t149*t5-6.518518518518518d-49*t11*t150*t3-3.2592 9250 5 59259259259d-49*t10*t150*t3)+1.5d+0*rhoa*t54*t91+1.5d+0 9251 6 *t13*t91+3.0d+0*t49*t54+5.0d-1*rhoa*t13*t144)+t1*t5*(2. 9252 7 57544d-52*t27*t97+2.57544d-52*t13*t91+5.15088d-52*t49*t 9253 8 54)-2.6666666666666666d+0*t100*t5*t96-2.666666666666666 9254 9 6d+0*t135*t31*t96+(t187+t186+6.09932d-52*t135)*t74*t95+ 9255 : (1.030176d-51*t100-1.1497011402239997d-102*t13*t27)*t50 9256 ; *t95+4.0998271909548434d-154*t13*t27*t92*t94+t29*(1.0d+ 9257 < 0*t38*(-3.0d+0*t22*t46*t48*t90+2*rhoa*(-5.8271494739394 9258 = 7d-4*t116*t69*t9+t173+t172+t171-7.5d-1*t117*t118*t168*t 9259 > 169*t170+t167-2.533029591058444d-2*t116*t117*t166+t165+ 9260 ? t164+t162+t161+t160+t159+t158)+6.0d+0*t22*t46*t87*t89-9 9261 @ .649187699215522d+1*t22*t86*t87*t88-3.3306690738754696d 9262 1 -16*t26*t40*t45*t85+1.2202564577405706d-18*t25*t83+5.28 9263 2 4159572535705d-3*t21*t83+6.661338147750939d-16*t26*t40* 9264 3 t79*t81-5.356375176299456d-15*t26*t78*t79*t80+2.5493923 9265 4 77400174d-1*t42*t46*t47*t48+2.943620900479655d-17*t40*t 9266 5 42*t44*t45+t156+t155+t154+t153+t152-rhoa*t144+2.5330295 9267 6 910584444d-2*t116*t117*t118)+3.0d+0*t120*t75+1.0d+0*t65 9268 7 *(1.1276964977777776d-99*t149*t32*t37*t74+3.41561919999 9269 8 9999d-149*t148*t37*t74-1.5624715874207998d-151*t148*t36 9270 9 *t74-1.4880681784959998d-102*t149*t32*t35*t74+1.5852810 9271 : 38222222d-148*t148*t34*t74+5.963779555555554d-51*t150*t 9272 ; 30*t33*t74+6.505941333333333d-100*t149*t30*t32*t74-6.51 9273 < 8518518518518d-49*t150*t31*t32*t37-4.6874147622623996d- 9274 = 151*t121*t148*t32*t37-6.162962962962963d-98*t149*t31*t3 9275 > 7+5.638482488888887d-100*t149*t31*t36-6.518518518518518 9276 ? d-49*t150*t29*t36+2.981889777777777d-51*t150*t31*t32*t3 9277 @ 5+1.6264853333333332d-100*t149*t31*t35-3.25925925925925 9278 1 9d-49*t150*t29*t35-1.754074074074074d-97*t149*t31*t34-4 9279 2 .6427727169075195d-200*t121*t147*t34-4.4642045354879994 9280 3 d-102*t121*t149*t30*t33-6.518518518518518d-49*t150*t30* 9281 4 t31*t32-1.7777777777777776d-98*t149*t30*t31+t183+t182+t 9282 5 181+t180+t179+t178+t177+t176+t175)+3.0d+0*t131*t73)-1.6 9283 6 666666666666669d+0*t5*t53*t77+t50*t52*(1.030176d-51*t77 9284 7 +2.6531564774399996d-103*t27*t54+2.6531564774399996d-10 9285 8 3*t13*t49)-1.4880681784959998d-102*t149*t38*t65*t74+t31 9286 9 *t53*(3.04966d-52*t131*t65+3.04966d-52*t120*t38+t185+6. 9287 : 09932d-52*t132)+2.981889777777777d-51*t150*t31*t38*t65+ 9288 ; t184+t151)*wght+Amat3(iq,D3_RA_RA_RA) 9289 Amat3(iq,D3_RA_RA_RB) = ((t187+t186)*t74*t95+6.09932d-52*t 9290 1 135*t74*t95+t29*(1.0d+0*t38*(2*rhoa*(1.9423831579798237 9291 2 d-4*t116*t69*t9+t173+t172+t171+2.5d-1*t117*t118*t168*t1 9292 3 69*t170+t167+8.443431970194815d-3*t116*t117*t166+t165+t 9293 4 164+t162+t161+t160+t159+t158)+t156+t155+t154+t153+t152+ 9294 5 t136)+2.0d+0*t137*t75+1.0d+0*t120*t75+1.0d+0*t65*(2.168 9295 6 647111111111d-100*t149*t32*t37*t74+1.6807015111111112d- 9296 7 149*t148*t37*t74-7.688352255562666d-152*t148*t36*t74-4. 9297 8 960227261653333d-103*t149*t32*t35*t74+5.096320711111111 9298 9 d-149*t148*t34*t74+2.168647111111111d-100*t149*t30*t32* 9299 : t74-2.3065056766687997d-151*t121*t148*t32*t37-1.1851851 9300 ; 851851851d-98*t149*t31*t37+1.0843235555555555d-100*t149 9301 < *t31*t36+5.421617777777777d-101*t149*t31*t35-2.37037037 9302 = 03703702d-98*t149*t31*t34-2.7380454484326394d-200*t121* 9303 > t147*t34-1.4880681784959998d-102*t121*t149*t30*t33-5.92 9304 ? 5925925925926d-99*t149*t30*t31+t183+t182+t181+t180+t179 9305 @ +t178+t177+t176+t175)+2.0d+0*t138*t73+1.0d+0*t131*t73)- 9306 1 4.960227261653333d-103*t149*t38*t65*t74+t31*t53*(3.0496 9307 2 6d-52*t138*t65+3.04966d-52*t137*t38+t185+3.04966d-52*t1 9308 3 39)+3.04966d-52*t132*t31*t53+t184+t151)*wght+Amat3(iq,D 9309 4 3_RA_RA_RB) 9310 Cmat3(iq,D3_RA_RA_GAA) = Cmat3(iq,D3_RA_RA_GAA) 9311 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 9312 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 9313 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 9314 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 9315 Cmat3(iq,D3_RA_GAA_GAA) = Cmat3(iq,D3_RA_GAA_GAA) 9316 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 9317 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 9318 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 9319 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 9320 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 9321 Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA) 9322 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 9323 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 9324 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 9325 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 9326 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 9327 Mmat3(iq,D3_RA_RA_TA) = Mmat3(iq,D3_RA_RA_TA) 9328 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 9329 Mmat3(iq,D3_RA_RB_TA) = Mmat3(iq,D3_RA_RB_TA) 9330 Mmat3(iq,D3_RA_GAA_TA) = Mmat3(iq,D3_RA_GAA_TA) 9331 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 9332 Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA) 9333 Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB) 9334 Mmat3(iq,D3_RA_GBB_TA) = Mmat3(iq,D3_RA_GBB_TA) 9335 Mmat3(iq,D3_RA_GBB_TB) = Mmat3(iq,D3_RA_GBB_TB) 9336 Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA) 9337 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 9338 Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA) 9339 Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB) 9340 Mmat3(iq,D3_GAA_GBB_TA) = Mmat3(iq,D3_GAA_GBB_TA) 9341 Mmat3(iq,D3_GAB_GAB_TA) = Mmat3(iq,D3_GAB_GAB_TA) 9342 Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA) 9343 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 9344 endif 9345 endif ! rhoa.gt.tol_rho 9346 else ! ipol.eq.1 9347 rhoa = rho(iq,R_A) 9348 rhob = rho(iq,R_B) 9349 gammaaa = rgamma(iq,G_AA) 9350 gammaab = rgamma(iq,G_AB) 9351 gammabb = rgamma(iq,G_BB) 9352 taua = tau(iq,T_A) 9353 taub = tau(iq,T_B) 9354 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 9355 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 9356 t1 = 1/rhoa**6.666666666666666d-1 9357 t2 = rhoa**5.0d-1 9358 t3 = 1/t2 9359 t4 = 1/rhoa**3.333333333333333d-1 9360 t5 = 1/rhoa**1.6666666666666666d-1 9361 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 9362 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 9363 t7 = 3.216395899738507d+1/t6+1.0d+0 9364 t8 = log(t7) 9365 t9 = 1.274696188700087d-1*t4+1.0d+0 9366 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 9367 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 9368 t11 = 1.6081979498692536d+1/t10+1.0d+0 9369 t12 = log(t11) 9370 t13 = 1.3256889990520176d-1*t4+1.0d+0 9371 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 9372 1 12*t13 9373 t15 = 1/rhoa 9374 t16 = 1/taua 9375 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 9376 t18 = 1/rhoa**2.6666666666666666d+0 9377 t19 = gammaaa*t18 9378 t20 = 1/rhoa**1.6666666666666669d+0 9379 t21 = 2.0d+0*t20*taua 9380 t22 = 5.15088d-3*(t21+t19-9.11559972d+0)+1.0d+0 9381 t23 = 1/t22 9382 t24 = param(7) 9383 t25 = param(10) 9384 t26 = gammaaa**2 9385 t27 = 1/rhoa**5.333333333333333d+0 9386 t28 = 1/t22**2 9387 t29 = param(11) 9388 t30 = t21-9.11559972d+0 9389 t31 = param(12) 9390 t32 = t30**2 9391 t33 = param(8) 9392 t34 = param(9) 9393 t35 = t23*t30*t34+gammaaa*t18*t23*t33+t28*t31*t32+gammaaa* 9394 1 t18*t28*t29*t30+t25*t26*t27*t28+t24 9395 t36 = 1/rhob**6.666666666666666d-1 9396 t37 = rhob**5.0d-1 9397 t38 = 1/t37 9398 t39 = 1/rhob**3.333333333333333d-1 9399 t40 = 1/rhob**1.6666666666666666d-1 9400 t41 = 1.1120374863094686d+1*t40+3.8447462374472113d+0*t39+ 9401 1 1.644733775567609d+0*t38+2.4058712912881916d-1*t36 9402 t42 = 3.216395899738507d+1/t41+1.0d+0 9403 t43 = log(t42) 9404 t44 = 1.274696188700087d-1*t39+1.0d+0 9405 t45 = 5.982550435771079d+0*t40+2.2255694211506874d+0*t39+8 9406 1 .004286349993635d-1*t38+1.8970043257475583d-1*t36 9407 t46 = 1.6081979498692536d+1/t45+1.0d+0 9408 t47 = log(t46) 9409 t48 = 1.3256889990520176d-1*t39+1.0d+0 9410 t49 = -6.903522198342671d-18*t47*t48-3.1090699999999993d-2 9411 1 *t43*t44 9412 t50 = 1/rhob 9413 t51 = 1/taub 9414 t52 = 1.0d+0-1.25d-1*gammabb*t50*t51 9415 t53 = 1/rhob**2.6666666666666666d+0 9416 t54 = gammabb*t53 9417 t55 = 1/rhob**1.6666666666666669d+0 9418 t56 = 2.0d+0*t55*taub 9419 t57 = 5.15088d-3*(t56+t54-9.11559972d+0)+1.0d+0 9420 t58 = 1/t57 9421 t59 = gammabb**2 9422 t60 = 1/rhob**5.333333333333333d+0 9423 t61 = 1/t57**2 9424 t62 = t56-9.11559972d+0 9425 t63 = t62**2 9426 t64 = t31*t61*t63+gammabb*t29*t53*t61*t62+t34*t58*t62+t25* 9427 1 t59*t60*t61+gammabb*t33*t53*t58+t24 9428 t65 = rhob+rhoa 9429 t66 = 1/t65**3.333333333333333d-1 9430 t67 = 1.3256889990520176d-1*t66+1.0d+0 9431 t68 = rhoa-rhob 9432 t69 = t68**4 9433 t70 = 1/t65**4 9434 t71 = 1/t65 9435 t72 = 1.0d+0-t68*t71 9436 t73 = t68*t71+1.0d+0 9437 t74 = t73**1.3333333333333333d+0+t72**1.3333333333333333d+ 9438 1 0-2.0d+0 9439 t75 = -1.923661050931536d+0*t69*t70*t74 9440 t76 = t75+1.0d+0 9441 t77 = 1/t65**6.666666666666666d-1 9442 t78 = t65**5.0d-1 9443 t79 = 1/t78 9444 t80 = 1/t65**1.6666666666666666d-1 9445 t81 = 5.982550435771079d+0*t80+8.004286349993635d-1*t79+1. 9446 1 8970043257475583d-1*t77+2.2255694211506874d+0*t66 9447 t82 = 1.6081979498692536d+1/t81+1.0d+0 9448 t83 = log(t82) 9449 t84 = -6.21814d-2*t67*t76*t83 9450 t85 = 6.901399211255825d-2*t66+1.0d+0 9451 t86 = t75+1.923661050931536d+0*t74 9452 t87 = 8.157414703487641d+0*t80+4.3009724712766434d-1*t79+1 9453 1 .9115125951273373d-1*t77+2.247591863577616d+0*t66 9454 t88 = 2.9608813203268075d+1/t87+1.0d+0 9455 t89 = log(t88) 9456 t90 = 1.9751631321680768d-2*t85*t86*t89 9457 t91 = 1.274696188700087d-1*t66+1.0d+0 9458 t92 = 1.1120374863094686d+1*t80+1.644733775567609d+0*t79+2 9459 1 .4058712912881916d-1*t77+3.8447462374472113d+0*t66 9460 t93 = 3.216395899738507d+1/t92+1.0d+0 9461 t94 = log(t93) 9462 t95 = -5.980796863619711d-2*t69*t70*t74*t91*t94 9463 t96 = t65*(t95+t90+t84)-rhob*t49-rhoa*t14 9464 t97 = 3.04966d-3*(t56+t54+t21+t19-1.823119944d+1)+1.0d+0 9465 t98 = 1/t97 9466 t99 = param(4) 9467 t100 = t54+t19 9468 t101 = t100**2 9469 t102 = 1/t97**2 9470 t103 = param(5) 9471 t104 = t56+t21-1.823119944d+1 9472 t105 = param(6) 9473 t106 = t104**2 9474 t107 = param(2) 9475 t108 = param(3) 9476 t109 = t101*t102*t99+t104*t108*t98+t100*t107*t98+t102*t105 9477 1 *t106+t100*t102*t103*t104+param(1) 9478 t110 = 1/rhoa**3.6666666666666664d+0 9479 t111 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d 9480 1 +0*gammaaa*t110 9481 t112 = 1/t22**3 9482 t113 = 1/rhoa**6.333333333333333d+0 9483 t114 = -3.3333333333333337d+0*t18*t23*t34*taua-6.666666666 9484 1 666667d+0*t18*t28*t30*t31*taua-3.3333333333333337d+0*ga 9485 2 mmaaa*t27*t28*t29*taua-5.15088d-3*t111*t28*t30*t34-5.15 9486 3 088d-3*gammaaa*t111*t18*t28*t33-2.6666666666666666d+0*g 9487 4 ammaaa*t110*t23*t33-1.030176d-2*t111*t112*t31*t32-2.666 9488 5 6666666666666d+0*gammaaa*t110*t28*t29*t30-1.030176d-2*g 9489 6 ammaaa*t111*t112*t18*t29*t30-5.333333333333333d+0*t113* 9490 7 t25*t26*t28-1.030176d-2*t111*t112*t25*t26*t27 9491 t115 = 1/t11 9492 t116 = 1/t2**3 9493 t117 = 1/rhoa**1.3333333333333333d+0 9494 t118 = 1/rhoa**1.1666666666666667d+0 9495 t119 = -1.264669550498372d-1*t20-9.970917392951799d-1*t118 9496 1 -7.418564737168958d-1*t117-4.002143174996817d-1*t116 9497 t120 = 1/t10**2 9498 t121 = 1/t7 9499 t122 = -1.6039141941921276d-1*t20-1.8533958105157808d+0*t1 9500 1 18-1.2815820791490704d+0*t117-8.223668877838045d-1*t116 9501 t123 = 1/t6**2 9502 t124 = 1.0d+0*t121*t122*t123*t9+1.3210398931339265d-3*t117 9503 1 *t8+1.1102230246251565d-16*t115*t119*t120*t13+3.0506411 9504 2 443514264d-19*t117*t12 9505 t125 = 1.0d+0*t14*t17*t35+1.0d+0*rhoa*t124*t17*t35+1.0d+0* 9506 1 rhoa*t114*t14*t17 9507 t126 = 1/t97**3 9508 t127 = -3.3333333333333337d+0*t108*t18*t98*taua-6.66666666 9509 1 6666667d+0*t102*t104*t105*t18*taua-3.3333333333333337d+ 9510 2 0*t100*t102*t103*t18*taua-6.09932d-3*t101*t111*t126*t99 9511 3 -5.333333333333333d+0*gammaaa*t100*t102*t110*t99-2.6666 9512 4 666666666666d+0*gammaaa*t107*t110*t98-6.09932d-3*t105*t 9513 5 106*t111*t126-6.09932d-3*t100*t103*t104*t111*t126-3.049 9514 6 66d-3*t102*t104*t108*t111-3.04966d-3*t100*t102*t107*t11 9515 7 1-2.6666666666666666d+0*gammaaa*t102*t103*t104*t110 9516 t128 = 1/t65**1.6666666666666669d+0 9517 t129 = 1/t78**3 9518 t130 = 1/t65**1.3333333333333333d+0 9519 t131 = 1/t65**1.1666666666666667d+0 9520 t132 = -9.970917392951799d-1*t131-7.418564737168958d-1*t13 9521 1 0-4.002143174996817d-1*t129-1.264669550498372d-1*t128 9522 t133 = 1/t81**2 9523 t134 = 1/t82 9524 t135 = 1.0d+0*t132*t133*t134*t67*t76 9525 t136 = -1.3595691172479402d+0*t131-7.491972878592053d-1*t1 9526 1 30-2.1504862356383217d-1*t129-1.2743417300848914d-1*t12 9527 2 8 9528 t137 = 1/t87**2 9529 t138 = 1/t88 9530 t139 = -5.848223622634647d-1*t136*t137*t138*t85*t86 9531 t140 = -1.8533958105157808d+0*t131-1.2815820791490704d+0*t 9532 1 130-8.223668877838045d-1*t129-1.6039141941921276d-1*t12 9533 2 8 9534 t141 = 1/t92**2 9535 t142 = 1/t93 9536 t143 = 1.923661050931536d+0*t140*t141*t142*t69*t70*t74*t91 9537 t144 = 1/t65**2 9538 t145 = t144*t68 9539 t146 = -t71 9540 t147 = t146+t145 9541 t148 = t72**3.333333333333333d-1 9542 t149 = -t144*t68 9543 t150 = t71+t149 9544 t151 = t73**3.333333333333333d-1 9545 t152 = 1.3333333333333333d+0*t150*t151+1.3333333333333333d 9546 1 +0*t147*t148 9547 t153 = -1.923661050931536d+0*t152*t69*t70 9548 t154 = 1/t65**5 9549 t155 = 7.694644203726144d+0*t154*t69*t74 9550 t156 = t68**3 9551 t157 = -7.694644203726144d+0*t156*t70*t74 9552 t158 = t157+t155+t153 9553 t159 = -6.21814d-2*t158*t67*t83 9554 t160 = 2.747773264188437d-3*t130*t76*t83 9555 t161 = t157+t155+t153+1.923661050931536d+0*t152 9556 t162 = 1.9751631321680768d-2*t161*t85*t89 9557 t163 = -4.5437964274821163d-4*t130*t86*t89 9558 t164 = -5.980796863619711d-2*t152*t69*t70*t91*t94 9559 t165 = 1/t65**5.333333333333333d+0 9560 t166 = 2.541232989148493d-3*t165*t69*t74*t94 9561 t167 = 2.3923187454478842d-1*t154*t69*t74*t91*t94 9562 t168 = t95+t65*(-2.3923187454478842d-1*t156*t70*t74*t91*t9 9563 1 4+t167+t166+t164+t163+t162+t160+t159+t143+t139+t135)+t9 9564 2 0+3.1090699999999993d-2*t8*t9+t84+6.903522198342671d-18 9565 3 *t12*t13-rhoa*t124 9566 t169 = 1.0d+0*t127*t96+1.0d+0*t109*t168 9567 t170 = 1/rhob**3.6666666666666664d+0 9568 t171 = -3.3333333333333337d+0*t53*taub-2.6666666666666666d 9569 1 +0*gammabb*t170 9570 t172 = 1/t57**3 9571 t173 = 1/rhob**6.333333333333333d+0 9572 t174 = -6.666666666666667d+0*t31*t53*t61*t62*taub-3.333333 9573 1 3333333337d+0*gammabb*t29*t60*t61*taub-3.33333333333333 9574 2 37d+0*t34*t53*t58*taub-1.030176d-2*t171*t172*t31*t63-5. 9575 3 15088d-3*t171*t34*t61*t62-2.6666666666666666d+0*gammabb 9576 4 *t170*t29*t61*t62-1.030176d-2*gammabb*t171*t172*t29*t53 9577 5 *t62-5.333333333333333d+0*t173*t25*t59*t61-5.15088d-3*g 9578 6 ammabb*t171*t33*t53*t61-1.030176d-2*t171*t172*t25*t59*t 9579 7 60-2.6666666666666666d+0*gammabb*t170*t33*t58 9580 t175 = 1/t46 9581 t176 = 1/t37**3 9582 t177 = 1/rhob**1.3333333333333333d+0 9583 t178 = 1/rhob**1.1666666666666667d+0 9584 t179 = -1.264669550498372d-1*t55-9.970917392951799d-1*t178 9585 1 -7.418564737168958d-1*t177-4.002143174996817d-1*t176 9586 t180 = 1/t45**2 9587 t181 = 1/t42 9588 t182 = -1.6039141941921276d-1*t55-1.8533958105157808d+0*t1 9589 1 78-1.2815820791490704d+0*t177-8.223668877838045d-1*t176 9590 t183 = 1/t41**2 9591 t184 = 1.1102230246251565d-16*t175*t179*t180*t48+3.0506411 9592 1 443514264d-19*t177*t47+1.0d+0*t181*t182*t183*t44+1.3210 9593 2 398931339265d-3*t177*t43 9594 t185 = 1.0d+0*t49*t52*t64+1.0d+0*rhob*t184*t52*t64+1.0d+0* 9595 1 rhob*t174*t49*t52 9596 t186 = -3.3333333333333337d+0*t108*t53*t98*taub-6.66666666 9597 1 6666667d+0*t102*t104*t105*t53*taub-3.3333333333333337d+ 9598 2 0*t100*t102*t103*t53*taub-6.09932d-3*t101*t126*t171*t99 9599 3 -5.333333333333333d+0*gammabb*t100*t102*t170*t99-2.6666 9600 4 666666666666d+0*gammabb*t107*t170*t98-6.09932d-3*t105*t 9601 5 106*t126*t171-6.09932d-3*t100*t103*t104*t126*t171-3.049 9602 6 66d-3*t102*t104*t108*t171-3.04966d-3*t100*t102*t107*t17 9603 7 1-2.6666666666666666d+0*gammabb*t102*t103*t104*t170 9604 t187 = t71+t145 9605 t188 = t149+t146 9606 t189 = 1.3333333333333333d+0*t151*t188+1.3333333333333333d 9607 1 +0*t148*t187 9608 t190 = -1.923661050931536d+0*t189*t69*t70 9609 t191 = 7.694644203726144d+0*t156*t70*t74 9610 t192 = t191+t190+t155 9611 t193 = -6.21814d-2*t192*t67*t83 9612 t194 = t191+t190+1.923661050931536d+0*t189+t155 9613 t195 = 1.9751631321680768d-2*t194*t85*t89 9614 t196 = -5.980796863619711d-2*t189*t69*t70*t91*t94 9615 t197 = t95+t65*(2.3923187454478842d-1*t156*t70*t74*t91*t94 9616 1 +t196+t195+t193+t167+t166+t163+t160+t143+t139+t135)+t90 9617 2 +t84+6.903522198342671d-18*t47*t48+3.1090699999999993d- 9618 3 2*t43*t44-rhob*t184 9619 t198 = 1.0d+0*t186*t96+1.0d+0*t109*t197 9620 t199 = 1/rhoa**8 9621 t200 = -5.15088d-3*t18*t28*t30*t34-5.15088d-3*gammaaa*t27* 9622 1 t28*t33+t18*t23*t33-1.030176d-2*t112*t18*t31*t32+t18*t2 9623 2 8*t29*t30-1.030176d-2*gammaaa*t112*t27*t29*t30+2*gammaa 9624 3 a*t25*t27*t28-1.030176d-2*t112*t199*t25*t26 9625 t201 = -6.09932d-3*t101*t126*t18*t99+2*t100*t102*t18*t99+t 9626 1 107*t18*t98-6.09932d-3*t105*t106*t126*t18-6.09932d-3*t1 9627 2 00*t103*t104*t126*t18-3.04966d-3*t102*t104*t108*t18-3.0 9628 3 4966d-3*t100*t102*t107*t18+t102*t103*t104*t18 9629 t202 = 1/rhob**8 9630 t203 = -1.030176d-2*t172*t31*t53*t63-5.15088d-3*t34*t53*t6 9631 1 1*t62+t29*t53*t61*t62-1.030176d-2*gammabb*t172*t29*t60* 9632 2 t62-5.15088d-3*gammabb*t33*t60*t61+2*gammabb*t25*t60*t6 9633 3 1-1.030176d-2*t172*t202*t25*t59+t33*t53*t58 9634 t204 = -6.09932d-3*t101*t126*t53*t99+2*t100*t102*t53*t99+t 9635 1 107*t53*t98-6.09932d-3*t105*t106*t126*t53-6.09932d-3*t1 9636 2 00*t103*t104*t126*t53-3.04966d-3*t102*t104*t108*t53-3.0 9637 3 4966d-3*t100*t102*t107*t53+t102*t103*t104*t53 9638 t205 = 1/rhoa**7 9639 t206 = 1/rhoa**4.333333333333333d+0 9640 t207 = -1.030176d-2*t20*t28*t30*t34+2.0d+0*t20*t23*t34-1.0 9641 1 30176d-2*gammaaa*t206*t28*t33-2.060352d-2*t112*t20*t31* 9642 2 t32+4.0d+0*t20*t28*t30*t31-2.060352d-2*gammaaa*t112*t20 9643 3 6*t29*t30+2.0d+0*gammaaa*t206*t28*t29-2.060352d-2*t112* 9644 4 t205*t25*t26 9645 t208 = taua**2 9646 t209 = 1/t208 9647 t210 = -1.219864d-2*t101*t126*t20*t99+2.0d+0*t108*t20*t98- 9648 1 1.219864d-2*t105*t106*t126*t20-1.219864d-2*t100*t103*t1 9649 2 04*t126*t20-6.09932d-3*t102*t104*t108*t20-6.09932d-3*t1 9650 3 00*t102*t107*t20+4.0d+0*t102*t104*t105*t20+2.0d+0*t100* 9651 4 t102*t103*t20 9652 t211 = 1/rhob**7 9653 t212 = 1/rhob**4.333333333333333d+0 9654 t213 = -2.060352d-2*t172*t31*t55*t63-1.030176d-2*t34*t55*t 9655 1 61*t62+4.0d+0*t31*t55*t61*t62-2.060352d-2*gammabb*t172* 9656 2 t212*t29*t62-1.030176d-2*gammabb*t212*t33*t61+2.0d+0*ga 9657 3 mmabb*t212*t29*t61-2.060352d-2*t172*t211*t25*t59+2.0d+0 9658 4 *t34*t55*t58 9659 t214 = taub**2 9660 t215 = 1/t214 9661 t216 = -1.219864d-2*t101*t126*t55*t99+2.0d+0*t108*t55*t98- 9662 1 1.219864d-2*t105*t106*t126*t55-1.219864d-2*t100*t103*t1 9663 2 04*t126*t55-6.09932d-3*t102*t104*t108*t55-6.09932d-3*t1 9664 3 00*t102*t107*t55+4.0d+0*t102*t104*t105*t55+2.0d+0*t100* 9665 4 t102*t103*t55 9666 t217 = t111**2 9667 t218 = 1/rhoa**2 9668 t219 = 1.25d-1*gammaaa*t124*t35+1.25d-1*gammaaa*t114*t14 9669 t220 = 1/t22**4 9670 t221 = 1/rhoa**4.666666666666667d+0 9671 t222 = 8.88888888888889d+0*t110*taua+9.777777777777779d+0* 9672 1 gammaaa*t221 9673 t223 = 1/rhoa**7.333333333333333d+0 9674 t224 = 3.4339200000000003d-2*t111*t18*t28*t34*taua+8.88888 9675 1 888888889d+0*t110*t23*t34*taua+1.7777777777777778d+1*t1 9676 2 10*t28*t30*t31*taua+1.373568d-1*t111*t112*t18*t30*t31*t 9677 3 aua+2.6666666666666666d+1*gammaaa*t113*t28*t29*taua+6.8 9678 4 67840000000001d-2*gammaaa*t111*t112*t27*t29*taua-5.1508 9679 5 8d-3*t222*t28*t30*t34+5.30631295488d-5*t112*t217*t30*t3 9680 6 4-5.15088d-3*gammaaa*t18*t222*t28*t33+2.747136d-2*gamma 9681 7 aa*t110*t111*t28*t33+9.777777777777779d+0*gammaaa*t221* 9682 8 t23*t33+5.30631295488d-5*gammaaa*t112*t18*t217*t33-1.03 9683 9 0176d-2*t112*t222*t31*t32+1.591893886464d-4*t217*t220*t 9684 : 31*t32+2.2222222222222224d+1*t208*t27*t28*t31+9.7777777 9685 ; 77777779d+0*gammaaa*t221*t28*t29*t30-1.030176d-2*gammaa 9686 < a*t112*t18*t222*t29*t30+1.591893886464d-4*gammaaa*t18*t 9687 = 217*t220*t29*t30+5.494272d-2*gammaaa*t110*t111*t112*t29 9688 > *t30+3.377777777777778d+1*t223*t25*t26*t28-1.030176d-2* 9689 ? t112*t222*t25*t26*t27+1.591893886464d-4*t217*t220*t25*t 9690 @ 26*t27+1.0988544d-1*t111*t112*t113*t25*t26 9691 t225 = 1/t11**2 9692 t226 = t119**2 9693 t227 = 1/t10**4 9694 t228 = 1/t10**3 9695 t229 = 1/t2**5 9696 t230 = 1/rhoa**2.3333333333333334d+0 9697 t231 = 1/rhoa**2.1666666666666665d+0 9698 t232 = 1.1632736958443765d+0*t231+9.89141964955861d-1*t230 9699 1 +6.003214762495226d-1*t229+2.1077825841639536d-1*t18 9700 t233 = 1/t7**2 9701 t234 = t122**2 9702 t235 = 1/t6**4 9703 t236 = 1/t6**3 9704 t237 = 2.1622951122684114d+0*t231+1.7087761055320938d+0*t2 9705 1 30+1.2335503316757068d+0*t229+2.673190323653546d-1*t18 9706 t238 = 1.0d+0*t121*t123*t237*t9-2.0d+0*t121*t234*t236*t9+3 9707 1 .216395899738507d+1*t233*t234*t235*t9-1.761386524178568 9708 2 4d-3*t230*t8+1.1102230246251565d-16*t115*t120*t13*t232- 9709 3 4.0675215258019015d-19*t12*t230-2.220446049250313d-16*t 9710 4 115*t13*t226*t228+1.7854583920998188d-15*t13*t225*t226* 9711 5 t227-8.497974591333913d-2*t117*t121*t122*t123-9.8120696 9712 6 68265515d-18*t115*t117*t119*t120 9713 t239 = 1.0d+0*rhoa*t17*t238*t35+1.25d-1*gammaaa*t14*t16*t2 9714 1 18*t35+2.0d+0*t124*t17*t35+1.25d-1*gammaaa*t124*t15*t16 9715 2 *t35+1.0d+0*rhoa*t14*t17*t224+2.0d+0*t114*t14*t17+2.0d+ 9716 3 0*rhoa*t114*t124*t17+1.25d-1*gammaaa*t114*t14*t15*t16 9717 t240 = -5.15088d-3*rhoa*t14*t17*t222*t35-5.15088d-3*t111*t 9718 1 14*t17*t35-5.15088d-3*rhoa*t111*t124*t17*t35-5.15088d-3 9719 2 *rhoa*t111*t114*t14*t17-5.15088d-3*t111*t125 9720 t241 = 1/t97**4 9721 t242 = 8.88888888888889d+0*t108*t110*t98*taua+8.1324266666 9722 1 66668d-2*t104*t105*t111*t126*t18*taua+4.066213333333334 9723 2 d-2*t100*t103*t111*t126*t18*taua+2.033106666666667d-2*t 9724 3 102*t108*t111*t18*taua+1.7777777777777778d+1*gammaaa*t1 9725 4 02*t103*t113*taua+1.7777777777777778d+1*t102*t104*t105* 9726 5 t110*taua+8.88888888888889d+0*t100*t102*t103*t110*taua+ 9727 6 1.4222222222222222d+1*t102*t223*t26*t99+5.5802556693600 9728 7 01d-5*t101*t217*t241*t99-6.09932d-3*t101*t126*t222*t99+ 9729 8 1.9555555555555557d+1*gammaaa*t100*t102*t221*t99+6.5059 9730 9 41333333333d-2*gammaaa*t100*t110*t111*t126*t99+9.777777 9731 : 777777779d+0*gammaaa*t107*t221*t98+2.2222222222222224d+ 9732 ; 1*t102*t105*t208*t27+5.580255669360001d-5*t105*t106*t21 9733 < 7*t241+5.580255669360001d-5*t100*t103*t104*t217*t241-6. 9734 = 09932d-3*t105*t106*t126*t222-6.09932d-3*t100*t103*t104* 9735 > t126*t222-3.04966d-3*t102*t104*t108*t222-3.04966d-3*t10 9736 ? 0*t102*t107*t222+9.777777777777779d+0*gammaaa*t102*t103 9737 @ *t104*t221+1.86008522312d-5*t104*t108*t126*t217+1.86008 9738 1 522312d-5*t100*t107*t126*t217+3.2529706666666663d-2*gam 9739 2 maaa*t103*t104*t110*t111*t126+1.6264853333333332d-2*gam 9740 3 maaa*t102*t107*t110*t111 9741 t243 = 2.0d+0*t132*t133*t134*t67*t76 9742 t244 = -1.1696447245269295d+0*t136*t137*t138*t85*t86 9743 t245 = 3.847322101863072d+0*t140*t141*t142*t69*t70*t74*t91 9744 t246 = 5.495546528376875d-3*t130*t76*t83 9745 t247 = -9.087592854964233d-4*t130*t86*t89 9746 t248 = 5.082465978296986d-3*t165*t69*t74*t94 9747 t249 = 4.7846374908957684d-1*t154*t69*t74*t91*t94 9748 t250 = t132**2 9749 t251 = 1/t81**4 9750 t252 = 1/t82**2 9751 t253 = 1.6081979498692536d+1*t250*t251*t252*t67*t76 9752 t254 = 2.0d+0*t132*t133*t134*t158*t67 9753 t255 = 1/t81**3 9754 t256 = -2.0d+0*t134*t250*t255*t67*t76 9755 t257 = -8.837926660346784d-2*t130*t132*t133*t134*t76 9756 t258 = 1/t65**2.6666666666666666d+0 9757 t259 = 1/t78**5 9758 t260 = 1/t65**2.3333333333333334d+0 9759 t261 = 1/t65**2.1666666666666665d+0 9760 t262 = 1.1632736958443765d+0*t261+9.89141964955861d-1*t260 9761 1 +6.003214762495226d-1*t259+2.1077825841639536d-1*t258 9762 t263 = 1.0d+0*t133*t134*t262*t67*t76 9763 t264 = t136**2 9764 t265 = 1/t87**4 9765 t266 = 1/t88**2 9766 t267 = -1.73158960813529d+1*t264*t265*t266*t85*t86 9767 t268 = -1.1696447245269295d+0*t136*t137*t138*t161*t85 9768 t269 = 1/t87**3 9769 t270 = 1.1696447245269295d+0*t138*t264*t269*t85*t86 9770 t271 = 2.690728393099896d-2*t130*t136*t137*t138*t86 9771 t272 = 1.5861639701225969d+0*t261+9.98929717145607d-1*t260 9772 1 +3.2257293534574827d-1*t259+2.1239028834748191d-1*t258 9773 t273 = -5.848223622634647d-1*t137*t138*t272*t85*t86 9774 t274 = t140**2 9775 t275 = 1/t92**4 9776 t276 = 1/t93**2 9777 t277 = 6.187255516702861d+1*t274*t275*t276*t69*t70*t74*t91 9778 t278 = 3.847322101863072d+0*t140*t141*t142*t152*t69*t70*t9 9779 1 1 9780 t279 = 1/t92**3 9781 t280 = -3.847322101863072d+0*t142*t274*t279*t69*t70*t74*t9 9782 1 1 9783 t281 = -1.6347222733154887d-1*t140*t141*t142*t165*t69*t74 9784 t282 = 2.1622951122684114d+0*t261+1.7087761055320938d+0*t2 9785 1 60+1.2335503316757068d+0*t259+2.673190323653546d-1*t258 9786 t283 = 1.923661050931536d+0*t141*t142*t282*t69*t70*t74*t91 9787 t284 = -1.538928840745229d+1*t140*t141*t142*t154*t69*t74*t 9788 1 91 9789 t285 = 1.538928840745229d+1*t140*t141*t142*t156*t70*t74*t9 9790 1 1 9791 t286 = t147**2 9792 t287 = 1/t72**6.666666666666666d-1 9793 t288 = 1/t65**3 9794 t289 = -2*t288*t68 9795 t290 = 2*t144 9796 t291 = t290+t289 9797 t292 = t150**2 9798 t293 = 1/t73**6.666666666666666d-1 9799 t294 = 2*t288*t68 9800 t295 = -2*t144 9801 t296 = t295+t294 9802 t297 = 1.3333333333333333d+0*t151*t296+4.444444444444444d- 9803 1 1*t292*t293+1.3333333333333333d+0*t148*t291+4.444444444 9804 2 444444d-1*t286*t287 9805 t298 = -1.923661050931536d+0*t297*t69*t70 9806 t299 = 1.5389288407452287d+1*t152*t154*t69 9807 t300 = -1.5389288407452287d+1*t152*t156*t70 9808 t301 = 1/t65**6 9809 t302 = -3.8473221018630716d+1*t301*t69*t74 9810 t303 = 6.155715362980915d+1*t154*t156*t74 9811 t304 = t68**2 9812 t305 = -2.3083932611178434d+1*t304*t70*t74 9813 t306 = t305+t303+t302+t300+t299+t298 9814 t307 = -6.21814d-2*t306*t67*t83 9815 t308 = 5.495546528376875d-3*t130*t158*t83 9816 t309 = -3.663697685584583d-3*t260*t76*t83 9817 t310 = t305+t303+t302+t300+t299+t298+1.923661050931536d+0* 9818 1 t297 9819 t311 = 1.9751631321680768d-2*t310*t85*t89 9820 t312 = -9.087592854964233d-4*t130*t161*t89 9821 t313 = 6.058395236642822d-4*t260*t86*t89 9822 t314 = -5.980796863619711d-2*t297*t69*t70*t91*t94 9823 t315 = 5.082465978296986d-3*t152*t165*t69*t94 9824 t316 = 4.7846374908957684d-1*t152*t154*t69*t91*t94 9825 t317 = 1/t65**6.333333333333333d+0 9826 t318 = -2.3718174565385935d-2*t317*t69*t74*t94 9827 t319 = 2.0329863913187946d-2*t156*t165*t74*t94 9828 t320 = -1.1961593727239421d+0*t301*t69*t74*t91*t94 9829 t321 = 1.9138549963583074d+0*t154*t156*t74*t91*t94 9830 t322 = -7.176956236343652d-1*t304*t70*t74*t91*t94 9831 t323 = t65*(-4.7846374908957684d-1*t152*t156*t70*t91*t94+t 9832 1 322+t321+t320+t319+t318+t316+t315+t314+t313+t312+t311+t 9833 2 309+t308+t307+t285+t284+t283+t281+t280+t278+t277+t273+t 9834 3 271+t270+t268+t267+t263+t257+t256+t254+t253)-4.78463749 9835 4 08957684d-1*t156*t70*t74*t91*t94-1.1961593727239421d-1* 9836 5 t152*t69*t70*t91*t94-2.0d+0*t121*t122*t123*t9+3.9503262 9837 6 643361536d-2*t161*t85*t89-1.243628d-1*t158*t67*t83-2.64 9838 7 2079786267853d-3*t117*t8+t249+t248+t247+t246+t245+t244+ 9839 8 t243-rhoa*t238-2.220446049250313d-16*t115*t119*t120*t13 9840 9 -6.101282288702853d-19*t117*t12 9841 t324 = 1.0d+0*t242*t96+1.0d+0*t109*t323+2.0d+0*t127*t168 9842 t325 = -3.04966d-3*t109*t222*t96-3.04966d-3*t111*t127*t96- 9843 1 3.04966d-3*t111*t169-3.04966d-3*t109*t111*t168 9844 t326 = 2.2222222222222224d+1*t102*t105*t18*t53*taua*taub+4 9845 1 .066213333333334d-2*t104*t105*t111*t126*t53*taub+2.0331 9846 2 06666666667d-2*t100*t103*t111*t126*t53*taub+1.016553333 9847 3 3333335d-2*t102*t108*t111*t53*taub+8.88888888888889d+0* 9848 4 gammaaa*t102*t103*t110*t53*taub+4.066213333333334d-2*t1 9849 5 04*t105*t126*t171*t18*taua+2.033106666666667d-2*t100*t1 9850 6 03*t126*t171*t18*taua+1.0165533333333335d-2*t102*t108*t 9851 7 171*t18*taua+8.88888888888889d+0*gammabb*t102*t103*t170 9852 8 *t18*taua+5.580255669360001d-5*t101*t111*t171*t241*t99+ 9853 9 3.2529706666666663d-2*gammaaa*t100*t110*t126*t171*t99+3 9854 : .2529706666666663d-2*gammabb*t100*t111*t126*t170*t99+1. 9855 ; 4222222222222222d+1*gammaaa*gammabb*t102*t110*t170*t99+ 9856 < 5.580255669360001d-5*t105*t106*t111*t171*t241+5.5802556 9857 = 69360001d-5*t100*t103*t104*t111*t171*t241+1.86008522312 9858 > d-5*t104*t108*t111*t126*t171+1.86008522312d-5*t100*t107 9859 ? *t111*t126*t171+1.6264853333333332d-2*gammaaa*t103*t104 9860 @ *t110*t126*t171+8.132426666666667d-3*gammaaa*t102*t107* 9861 1 t110*t171+1.6264853333333332d-2*gammabb*t103*t104*t111* 9862 2 t126*t170+8.132426666666667d-3*gammabb*t102*t107*t111*t 9863 3 170 9864 t327 = 2.6666666666666666d+0*t151*t288*t68-2.6666666666666 9865 1 666d+0*t148*t288*t68+4.444444444444444d-1*t150*t188*t29 9866 2 3+4.444444444444444d-1*t147*t187*t287 9867 t328 = -1.923661050931536d+0*t327*t69*t70 9868 t329 = 7.694644203726144d+0*t154*t189*t69 9869 t330 = -7.694644203726144d+0*t156*t189*t70 9870 t331 = 7.694644203726144d+0*t152*t154*t69 9871 t332 = 7.694644203726144d+0*t152*t156*t70 9872 t333 = 2.3083932611178434d+1*t304*t70*t74 9873 t334 = t333+t332+t331+t330+t329+t328+t302 9874 t335 = t333+t332+t331+t330+t329+t328+1.923661050931536d+0* 9875 1 t327+t302 9876 t336 = 7.176956236343652d-1*t304*t70*t74*t91*t94 9877 t337 = t65*(-5.980796863619711d-2*t327*t69*t70*t91*t94-2.3 9878 1 923187454478842d-1*t156*t189*t70*t91*t94+2.392318745447 9879 2 8842d-1*t152*t156*t70*t91*t94+2.3923187454478842d-1*t15 9880 3 4*t189*t69*t91*t94+2.3923187454478842d-1*t152*t154*t69* 9881 4 t91*t94+2.541232989148493d-3*t165*t189*t69*t94+2.541232 9882 5 989148493d-3*t152*t165*t69*t94+1.923661050931536d+0*t14 9883 6 0*t141*t142*t189*t69*t70*t91+1.923661050931536d+0*t140* 9884 7 t141*t142*t152*t69*t70*t91+1.9751631321680768d-2*t335*t 9885 8 85*t89-4.5437964274821163d-4*t130*t194*t89-4.5437964274 9886 9 821163d-4*t130*t161*t89-5.848223622634647d-1*t136*t137* 9887 : t138*t194*t85-5.848223622634647d-1*t136*t137*t138*t161* 9888 ; t85-6.21814d-2*t334*t67*t83+2.747773264188437d-3*t130*t 9889 < 192*t83+2.747773264188437d-3*t130*t158*t83+1.0d+0*t132* 9890 = t133*t134*t192*t67+1.0d+0*t132*t133*t134*t158*t67+t336+ 9891 > t320+t318+t313+t309+t284+t283+t281+t280+t277+t273+t271+ 9892 ? t270+t267+t263+t257+t256+t253)+t249+t248+t247+t246+t245 9893 @ +t244+t243+t196+t195+t193+t164+t162+t159 9894 t338 = 1.0d+0*t326*t96+1.0d+0*t109*t337+1.0d+0*t127*t197+1 9895 1 .0d+0*t168*t186 9896 t339 = -3.04966d-3*t111*t186*t96-3.04966d-3*t109*t111*t197 9897 1 -3.04966d-3*t169*t171 9898 t340 = t171**2 9899 t341 = 1/rhob**2 9900 t342 = 1.25d-1*gammabb*t184*t64+1.25d-1*gammabb*t174*t49 9901 t343 = 1/t57**4 9902 t344 = 1/rhob**4.666666666666667d+0 9903 t345 = 8.88888888888889d+0*t170*taub+9.777777777777779d+0* 9904 1 gammabb*t344 9905 t346 = 1/rhob**7.333333333333333d+0 9906 t347 = 1.7777777777777778d+1*t170*t31*t61*t62*taub+1.37356 9907 1 8d-1*t171*t172*t31*t53*t62*taub+3.4339200000000003d-2*t 9908 2 171*t34*t53*t61*taub+2.6666666666666666d+1*gammabb*t173 9909 3 *t29*t61*taub+6.867840000000001d-2*gammabb*t171*t172*t2 9910 4 9*t60*taub+8.88888888888889d+0*t170*t34*t58*taub-1.0301 9911 5 76d-2*t172*t31*t345*t63+1.591893886464d-4*t31*t340*t343 9912 6 *t63-5.15088d-3*t34*t345*t61*t62+9.777777777777779d+0*g 9913 7 ammabb*t29*t344*t61*t62-1.030176d-2*gammabb*t172*t29*t3 9914 8 45*t53*t62+1.591893886464d-4*gammabb*t29*t340*t343*t53* 9915 9 t62+5.30631295488d-5*t172*t34*t340*t62+5.494272d-2*gamm 9916 : abb*t170*t171*t172*t29*t62+2.2222222222222224d+1*t214*t 9917 ; 31*t60*t61+3.377777777777778d+1*t25*t346*t59*t61-5.1508 9918 < 8d-3*gammabb*t33*t345*t53*t61+2.747136d-2*gammabb*t170* 9919 = t171*t33*t61-1.030176d-2*t172*t25*t345*t59*t60+1.591893 9920 > 886464d-4*t25*t340*t343*t59*t60+1.0988544d-1*t171*t172* 9921 ? t173*t25*t59+9.777777777777779d+0*gammabb*t33*t344*t58+ 9922 @ 5.30631295488d-5*gammabb*t172*t33*t340*t53 9923 t348 = 1/t46**2 9924 t349 = t179**2 9925 t350 = 1/t45**4 9926 t351 = 1/t45**3 9927 t352 = 1/t37**5 9928 t353 = 1/rhob**2.3333333333333334d+0 9929 t354 = 1/rhob**2.1666666666666665d+0 9930 t355 = 2.1077825841639536d-1*t53+1.1632736958443765d+0*t35 9931 1 4+9.89141964955861d-1*t353+6.003214762495226d-1*t352 9932 t356 = 1/t42**2 9933 t357 = t182**2 9934 t358 = 1/t41**4 9935 t359 = 1/t41**3 9936 t360 = 2.673190323653546d-1*t53+2.1622951122684114d+0*t354 9937 1 +1.7087761055320938d+0*t353+1.2335503316757068d+0*t352 9938 t361 = 1.1102230246251565d-16*t175*t180*t355*t48-2.2204460 9939 1 49250313d-16*t175*t349*t351*t48+1.7854583920998188d-15* 9940 2 t348*t349*t350*t48-4.0675215258019015d-19*t353*t47+1.0d 9941 3 +0*t181*t183*t360*t44-2.0d+0*t181*t357*t359*t44+3.21639 9942 4 5899738507d+1*t356*t357*t358*t44-1.7613865241785684d-3* 9943 5 t353*t43-8.497974591333913d-2*t177*t181*t182*t183-9.812 9944 6 069668265515d-18*t175*t177*t179*t180 9945 t362 = 1.0d+0*rhob*t361*t52*t64+2.0d+0*t184*t52*t64+1.25d- 9946 1 1*gammabb*t184*t50*t51*t64+1.25d-1*gammabb*t341*t49*t51 9947 2 *t64+1.0d+0*rhob*t347*t49*t52+2.0d+0*t174*t49*t52+2.0d+ 9948 3 0*rhob*t174*t184*t52+1.25d-1*gammabb*t174*t49*t50*t51 9949 t363 = -5.15088d-3*rhob*t345*t49*t52*t64-5.15088d-3*t171*t 9950 1 49*t52*t64-5.15088d-3*rhob*t171*t184*t52*t64-5.15088d-3 9951 2 *rhob*t171*t174*t49*t52-5.15088d-3*t171*t185 9952 t364 = 8.88888888888889d+0*t108*t170*t98*taub+8.1324266666 9953 1 66668d-2*t104*t105*t126*t171*t53*taub+4.066213333333334 9954 2 d-2*t100*t103*t126*t171*t53*taub+2.033106666666667d-2*t 9955 3 102*t108*t171*t53*taub+1.7777777777777778d+1*gammabb*t1 9956 4 02*t103*t173*taub+1.7777777777777778d+1*t102*t104*t105* 9957 5 t170*taub+8.88888888888889d+0*t100*t102*t103*t170*taub+ 9958 6 1.4222222222222222d+1*t102*t346*t59*t99-6.09932d-3*t101 9959 7 *t126*t345*t99+1.9555555555555557d+1*gammabb*t100*t102* 9960 8 t344*t99+5.580255669360001d-5*t101*t241*t340*t99+6.5059 9961 9 41333333333d-2*gammabb*t100*t126*t170*t171*t99+9.777777 9962 : 777777779d+0*gammabb*t107*t344*t98+2.2222222222222224d+ 9963 ; 1*t102*t105*t214*t60-6.09932d-3*t105*t106*t126*t345-6.0 9964 < 9932d-3*t100*t103*t104*t126*t345-3.04966d-3*t102*t104*t 9965 = 108*t345-3.04966d-3*t100*t102*t107*t345+9.7777777777777 9966 > 79d+0*gammabb*t102*t103*t104*t344+5.580255669360001d-5* 9967 ? t105*t106*t241*t340+5.580255669360001d-5*t100*t103*t104 9968 @ *t241*t340+1.86008522312d-5*t104*t108*t126*t340+1.86008 9969 1 522312d-5*t100*t107*t126*t340+3.2529706666666663d-2*gam 9970 2 mabb*t103*t104*t126*t170*t171+1.6264853333333332d-2*gam 9971 3 mabb*t102*t107*t170*t171 9972 t365 = 2.0d+0*t132*t133*t134*t192*t67 9973 t366 = -1.1696447245269295d+0*t136*t137*t138*t194*t85 9974 t367 = 3.847322101863072d+0*t140*t141*t142*t189*t69*t70*t9 9975 1 1 9976 t368 = -1.538928840745229d+1*t140*t141*t142*t156*t70*t74*t 9977 1 91 9978 t369 = t187**2 9979 t370 = t295+t289 9980 t371 = t188**2 9981 t372 = t294+t290 9982 t373 = 1.3333333333333333d+0*t151*t372+4.444444444444444d- 9983 1 1*t293*t371+1.3333333333333333d+0*t148*t370+4.444444444 9984 2 444444d-1*t287*t369 9985 t374 = -1.923661050931536d+0*t373*t69*t70 9986 t375 = 1.5389288407452287d+1*t154*t189*t69 9987 t376 = 1.5389288407452287d+1*t156*t189*t70 9988 t377 = -6.155715362980915d+1*t154*t156*t74 9989 t378 = t377+t376+t375+t374+t305+t302 9990 t379 = -6.21814d-2*t378*t67*t83 9991 t380 = 5.495546528376875d-3*t130*t192*t83 9992 t381 = t377+t376+t375+t374+1.923661050931536d+0*t373+t305+ 9993 1 t302 9994 t382 = 1.9751631321680768d-2*t381*t85*t89 9995 t383 = -9.087592854964233d-4*t130*t194*t89 9996 t384 = -5.980796863619711d-2*t373*t69*t70*t91*t94 9997 t385 = 5.082465978296986d-3*t165*t189*t69*t94 9998 t386 = 4.7846374908957684d-1*t154*t189*t69*t91*t94 9999 t387 = -2.0329863913187946d-2*t156*t165*t74*t94 10000 t388 = -1.9138549963583074d+0*t154*t156*t74*t91*t94 10001 t389 = t65*(4.7846374908957684d-1*t156*t189*t70*t91*t94+t3 10002 1 88+t387+t386+t385+t384+t383+t382+t380+t379+t368+t367+t3 10003 2 66+t365+t322+t320+t318+t313+t309+t284+t283+t281+t280+t2 10004 3 77+t273+t271+t270+t267+t263+t257+t256+t253)+4.784637490 10005 4 8957684d-1*t156*t70*t74*t91*t94-1.1961593727239421d-1*t 10006 5 189*t69*t70*t91*t94+3.9503262643361536d-2*t194*t85*t89- 10007 6 1.243628d-1*t192*t67*t83-2.220446049250313d-16*t175*t17 10008 7 9*t180*t48-6.101282288702853d-19*t177*t47-2.0d+0*t181*t 10009 8 182*t183*t44-2.642079786267853d-3*t177*t43-rhob*t361+t2 10010 9 49+t248+t247+t246+t245+t244+t243 10011 t390 = 1.0d+0*t364*t96+1.0d+0*t109*t389+2.0d+0*t186*t197 10012 t391 = -3.04966d-3*t109*t345*t96-3.04966d-3*t171*t186*t96- 10013 1 3.04966d-3*t171*t198-3.04966d-3*t109*t171*t197 10014 t392 = 1.25d-1*t14*t35+1.25d-1*gammaaa*t14*t200 10015 t393 = 1/rhoa**9 10016 t394 = 1.7169600000000002d-2*t27*t28*t34*taua+6.8678400000 10017 1 00001d-2*t112*t27*t30*t31*taua-3.3333333333333337d+0*t2 10018 2 7*t28*t29*taua+3.4339200000000003d-2*gammaaa*t112*t199* 10019 3 t29*taua+8.241408d-2*t112*t25*t26*t393+1.373568d-2*t110 10020 4 *t28*t30*t34+5.30631295488d-5*t111*t112*t18*t30*t34-5.1 10021 5 5088d-3*t111*t18*t28*t33+2.747136d-2*gammaaa*t113*t28*t 10022 6 33+5.30631295488d-5*gammaaa*t111*t112*t27*t33-2.6666666 10023 7 666666666d+0*t110*t23*t33+1.591893886464d-4*t111*t18*t2 10024 8 20*t31*t32+2.747136d-2*t110*t112*t31*t32-2.666666666666 10025 9 6666d+0*t110*t28*t29*t30+1.591893886464d-4*gammaaa*t111 10026 : *t220*t27*t29*t30-1.030176d-2*t111*t112*t18*t29*t30+5.4 10027 ; 94272d-2*gammaaa*t112*t113*t29*t30-1.0666666666666666d+ 10028 < 1*gammaaa*t113*t25*t28-2.060352d-2*gammaaa*t111*t112*t2 10029 = 5*t27+1.591893886464d-4*t111*t199*t220*t25*t26 10030 t395 = 1.0d+0*rhoa*t14*t17*t394-1.25d-1*t14*t15*t16*t35-1. 10031 1 25d-1*t124*t16*t35+1.0d+0*t14*t17*t200+1.0d+0*rhoa*t124 10032 2 *t17*t200-1.25d-1*t114*t14*t16 10033 t396 = 1.373568d-2*t14*t17*t35-5.15088d-3*t125 10034 t397 = 4.066213333333334d-2*t104*t105*t126*t27*taua+2.0331 10035 1 06666666667d-2*t100*t103*t126*t27*taua+1.01655333333333 10036 2 35d-2*t102*t108*t27*taua-3.3333333333333337d+0*t102*t10 10037 3 3*t27*taua+5.580255669360001d-5*t101*t111*t18*t241*t99- 10038 4 1.219864d-2*t100*t111*t126*t18*t99+3.2529706666666663d- 10039 5 2*gammaaa*t100*t113*t126*t99+1.6264853333333332d-2*t101 10040 6 *t110*t126*t99-5.333333333333333d+0*gammaaa*t102*t113*t 10041 7 99-5.333333333333333d+0*t100*t102*t110*t99-2.6666666666 10042 8 666666d+0*t107*t110*t98+5.580255669360001d-5*t105*t106* 10043 9 t111*t18*t241+5.580255669360001d-5*t100*t103*t104*t111* 10044 : t18*t241+1.86008522312d-5*t104*t108*t111*t126*t18+1.860 10045 ; 08522312d-5*t100*t107*t111*t126*t18-6.09932d-3*t103*t10 10046 < 4*t111*t126*t18-3.04966d-3*t102*t107*t111*t18+1.6264853 10047 = 333333332d-2*gammaaa*t103*t104*t113*t126+1.626485333333 10048 > 3332d-2*t105*t106*t110*t126+1.6264853333333332d-2*t100* 10049 ? t103*t104*t110*t126+8.132426666666667d-3*gammaaa*t102*t 10050 @ 107*t113+8.132426666666667d-3*t102*t104*t108*t110+8.132 10051 1 426666666667d-3*t100*t102*t107*t110-2.6666666666666666d 10052 2 +0*t102*t103*t104*t110 10053 t398 = 1.0d+0*t397*t96+1.0d+0*t168*t201 10054 t399 = 4.066213333333334d-2*t104*t105*t126*t18*t53*taua+2. 10055 1 033106666666667d-2*t100*t103*t126*t18*t53*taua+1.016553 10056 2 3333333335d-2*t102*t108*t18*t53*taua-3.3333333333333337 10057 3 d+0*t102*t103*t18*t53*taua+5.580255669360001d-5*t101*t1 10058 4 11*t241*t53*t99-1.219864d-2*t100*t111*t126*t53*t99+3.25 10059 5 29706666666663d-2*gammaaa*t100*t110*t126*t53*t99-5.3333 10060 6 33333333333d+0*gammaaa*t102*t110*t53*t99+5.580255669360 10061 7 001d-5*t105*t106*t111*t241*t53+5.580255669360001d-5*t10 10062 8 0*t103*t104*t111*t241*t53+1.86008522312d-5*t104*t108*t1 10063 9 11*t126*t53+1.86008522312d-5*t100*t107*t111*t126*t53-6. 10064 : 09932d-3*t103*t104*t111*t126*t53+1.6264853333333332d-2* 10065 ; gammaaa*t103*t104*t110*t126*t53-3.04966d-3*t102*t107*t1 10066 < 11*t53+8.132426666666667d-3*gammaaa*t102*t107*t110*t53 10067 t400 = 1.0d+0*t399*t96+1.0d+0*t168*t204 10068 t401 = 4.066213333333334d-2*t104*t105*t126*t18*t53*taub+2. 10069 1 033106666666667d-2*t100*t103*t126*t18*t53*taub+1.016553 10070 2 3333333335d-2*t102*t108*t18*t53*taub-3.3333333333333337 10071 3 d+0*t102*t103*t18*t53*taub+5.580255669360001d-5*t101*t1 10072 4 71*t18*t241*t99-1.219864d-2*t100*t126*t171*t18*t99+3.25 10073 5 29706666666663d-2*gammabb*t100*t126*t170*t18*t99-5.3333 10074 6 33333333333d+0*gammabb*t102*t170*t18*t99+5.580255669360 10075 7 001d-5*t105*t106*t171*t18*t241+5.580255669360001d-5*t10 10076 8 0*t103*t104*t171*t18*t241+1.86008522312d-5*t104*t108*t1 10077 9 26*t171*t18+1.86008522312d-5*t100*t107*t126*t171*t18-6. 10078 : 09932d-3*t103*t104*t126*t171*t18-3.04966d-3*t102*t107*t 10079 ; 171*t18+1.6264853333333332d-2*gammabb*t103*t104*t126*t1 10080 < 70*t18+8.132426666666667d-3*gammabb*t102*t107*t170*t18 10081 t402 = 1.0d+0*t401*t96+1.0d+0*t197*t201 10082 t403 = 1.25d-1*t49*t64+1.25d-1*gammabb*t203*t49 10083 t404 = 1/rhob**9 10084 t405 = 6.867840000000001d-2*t172*t31*t60*t62*taub+1.716960 10085 1 0000000002d-2*t34*t60*t61*taub-3.3333333333333337d+0*t2 10086 2 9*t60*t61*taub+3.4339200000000003d-2*gammabb*t172*t202* 10087 3 t29*taub+1.591893886464d-4*t171*t31*t343*t53*t63+2.7471 10088 4 36d-2*t170*t172*t31*t63+1.373568d-2*t170*t34*t61*t62-2. 10089 5 6666666666666666d+0*t170*t29*t61*t62+1.591893886464d-4* 10090 6 gammabb*t171*t29*t343*t60*t62+5.30631295488d-5*t171*t17 10091 7 2*t34*t53*t62-1.030176d-2*t171*t172*t29*t53*t62+5.49427 10092 8 2d-2*gammabb*t172*t173*t29*t62-5.15088d-3*t171*t33*t53* 10093 9 t61+2.747136d-2*gammabb*t173*t33*t61-1.0666666666666666 10094 : d+1*gammabb*t173*t25*t61+5.30631295488d-5*gammabb*t171* 10095 ; t172*t33*t60-2.060352d-2*gammabb*t171*t172*t25*t60+8.24 10096 < 1408d-2*t172*t25*t404*t59+1.591893886464d-4*t171*t202*t 10097 = 25*t343*t59-2.6666666666666666d+0*t170*t33*t58 10098 t406 = -1.25d-1*t49*t50*t51*t64-1.25d-1*t184*t51*t64+1.0d+ 10099 1 0*rhob*t405*t49*t52+1.0d+0*t203*t49*t52+1.0d+0*rhob*t18 10100 2 4*t203*t52-1.25d-1*t174*t49*t51 10101 t407 = 1.373568d-2*t49*t52*t64-5.15088d-3*t185 10102 t408 = 4.066213333333334d-2*t104*t105*t126*t60*taub+2.0331 10103 1 06666666667d-2*t100*t103*t126*t60*taub+1.01655333333333 10104 2 35d-2*t102*t108*t60*taub-3.3333333333333337d+0*t102*t10 10105 3 3*t60*taub+5.580255669360001d-5*t101*t171*t241*t53*t99- 10106 4 1.219864d-2*t100*t126*t171*t53*t99+3.2529706666666663d- 10107 5 2*gammabb*t100*t126*t173*t99-5.333333333333333d+0*gamma 10108 6 bb*t102*t173*t99+1.6264853333333332d-2*t101*t126*t170*t 10109 7 99-5.333333333333333d+0*t100*t102*t170*t99-2.6666666666 10110 8 666666d+0*t107*t170*t98+5.580255669360001d-5*t105*t106* 10111 9 t171*t241*t53+5.580255669360001d-5*t100*t103*t104*t171* 10112 : t241*t53+1.86008522312d-5*t104*t108*t126*t171*t53+1.860 10113 ; 08522312d-5*t100*t107*t126*t171*t53-6.09932d-3*t103*t10 10114 < 4*t126*t171*t53-3.04966d-3*t102*t107*t171*t53+1.6264853 10115 = 333333332d-2*gammabb*t103*t104*t126*t173+8.132426666666 10116 > 667d-3*gammabb*t102*t107*t173+1.6264853333333332d-2*t10 10117 ? 5*t106*t126*t170+1.6264853333333332d-2*t100*t103*t104*t 10118 @ 126*t170+8.132426666666667d-3*t102*t104*t108*t170+8.132 10119 1 426666666667d-3*t100*t102*t107*t170-2.6666666666666666d 10120 2 +0*t102*t103*t104*t170 10121 t409 = 1.0d+0*t408*t96+1.0d+0*t197*t204 10122 t410 = 1/rhoa**1.0666666666666666d+1 10123 t411 = 1.591893886464d-4*t220*t25*t26*t410+5.30631295488d- 10124 1 5*t112*t27*t30*t34-1.030176d-2*t27*t28*t33+5.3063129548 10125 2 8d-5*gammaaa*t112*t199*t33+1.591893886464d-4*t220*t27*t 10126 3 31*t32-2.060352d-2*t112*t27*t29*t30+1.591893886464d-4*g 10127 4 ammaaa*t199*t220*t29*t30+2*t25*t27*t28-4.120704d-2*gamm 10128 5 aaa*t112*t199*t25 10129 t412 = 5.580255669360001d-5*t101*t241*t27*t99-2.439728d-2* 10130 1 t100*t126*t27*t99+2*t102*t27*t99+5.580255669360001d-5*t 10131 2 105*t106*t241*t27+5.580255669360001d-5*t100*t103*t104*t 10132 3 241*t27+1.86008522312d-5*t104*t108*t126*t27+1.860085223 10133 4 12d-5*t100*t107*t126*t27-1.219864d-2*t103*t104*t126*t27 10134 5 -6.09932d-3*t102*t107*t27 10135 t413 = 5.580255669360001d-5*t101*t18*t241*t53*t99-2.439728 10136 1 d-2*t100*t126*t18*t53*t99+2*t102*t18*t53*t99+5.58025566 10137 2 9360001d-5*t105*t106*t18*t241*t53+5.580255669360001d-5* 10138 3 t100*t103*t104*t18*t241*t53+1.86008522312d-5*t104*t108* 10139 4 t126*t18*t53+1.86008522312d-5*t100*t107*t126*t18*t53-1. 10140 5 219864d-2*t103*t104*t126*t18*t53-6.09932d-3*t102*t107*t 10141 6 18*t53 10142 t414 = 1/rhob**1.0666666666666666d+1 10143 t415 = 1.591893886464d-4*t31*t343*t60*t63+5.30631295488d-5 10144 1 *t172*t34*t60*t62-2.060352d-2*t172*t29*t60*t62+1.591893 10145 2 886464d-4*gammabb*t202*t29*t343*t62-1.030176d-2*t33*t60 10146 3 *t61+2*t25*t60*t61+1.591893886464d-4*t25*t343*t414*t59+ 10147 4 5.30631295488d-5*gammabb*t172*t202*t33-4.120704d-2*gamm 10148 5 abb*t172*t202*t25 10149 t416 = 5.580255669360001d-5*t101*t241*t60*t99-2.439728d-2* 10150 1 t100*t126*t60*t99+2*t102*t60*t99+5.580255669360001d-5*t 10151 2 105*t106*t241*t60+5.580255669360001d-5*t100*t103*t104*t 10152 3 241*t60+1.86008522312d-5*t104*t108*t126*t60+1.860085223 10153 4 12d-5*t100*t107*t126*t60-1.219864d-2*t103*t104*t126*t60 10154 5 -6.09932d-3*t102*t107*t60 10155 t417 = 3.4339200000000003d-2*t206*t28*t34*taua+1.373568d-1 10156 1 *t112*t206*t30*t31*taua-1.3333333333333333d+1*t206*t28* 10157 2 t31*taua+6.867840000000001d-2*gammaaa*t112*t205*t29*tau 10158 3 a+1.7169600000000002d-2*t18*t28*t30*t34+1.061262590976d 10159 4 -4*t111*t112*t20*t30*t34-1.030176d-2*t111*t20*t28*t34-3 10160 5 .3333333333333337d+0*t18*t23*t34+4.464096d-2*gammaaa*t2 10161 6 7*t28*t33+1.061262590976d-4*gammaaa*t111*t112*t206*t33+ 10162 7 3.183787772928d-4*t111*t20*t220*t31*t32+3.4339200000000 10163 8 003d-2*t112*t18*t31*t32-6.666666666666667d+0*t18*t28*t3 10164 9 0*t31-4.120704d-2*t111*t112*t20*t30*t31+8.928192d-2*gam 10165 : maaa*t112*t27*t29*t30+3.183787772928d-4*gammaaa*t111*t2 10166 ; 06*t220*t29*t30-8.666666666666666d+0*gammaaa*t27*t28*t2 10167 < 9-2.060352d-2*gammaaa*t111*t112*t206*t29+3.183787772928 10168 = d-4*t111*t205*t220*t25*t26+1.4422464000000002d-1*t112*t 10169 > 199*t25*t26 10170 t418 = 1.0d+0*rhoa*t14*t17*t417+1.25d-1*gammaaa*t14*t15*t2 10171 1 09*t35+1.25d-1*gammaaa*t124*t209*t35+1.25d-1*gammaaa*t1 10172 2 14*t14*t209+1.0d+0*t14*t17*t207+1.0d+0*rhoa*t124*t17*t2 10173 3 07 10174 t419 = 8.132426666666668d-2*t104*t105*t126*t206*taua+4.066 10175 1 213333333334d-2*t100*t103*t126*t206*taua+2.033106666666 10176 2 667d-2*t102*t108*t206*taua-1.3333333333333333d+1*t102*t 10177 3 105*t206*taua+6.505941333333333d-2*gammaaa*t100*t126*t2 10178 4 7*t99+1.1160511338720001d-4*t101*t111*t20*t241*t99+2.03 10179 5 3106666666667d-2*t101*t126*t18*t99-3.3333333333333337d+ 10180 6 0*t108*t18*t98+3.2529706666666663d-2*gammaaa*t103*t104* 10181 7 t126*t27+1.6264853333333332d-2*gammaaa*t102*t107*t27-5. 10182 8 333333333333333d+0*gammaaa*t102*t103*t27+1.116051133872 10183 9 0001d-4*t105*t106*t111*t20*t241+1.1160511338720001d-4*t 10184 : 100*t103*t104*t111*t20*t241+3.72017044624d-5*t104*t108* 10185 ; t111*t126*t20+3.72017044624d-5*t100*t107*t111*t126*t20- 10186 < 2.439728d-2*t104*t105*t111*t126*t20-1.219864d-2*t100*t1 10187 = 03*t111*t126*t20-6.09932d-3*t102*t108*t111*t20+2.033106 10188 > 666666667d-2*t105*t106*t126*t18+2.033106666666667d-2*t1 10189 ? 00*t103*t104*t126*t18+1.0165533333333335d-2*t102*t104*t 10190 @ 108*t18+1.0165533333333335d-2*t100*t102*t107*t18-6.6666 10191 1 66666666667d+0*t102*t104*t105*t18-3.3333333333333337d+0 10192 2 *t100*t102*t103*t18 10193 t420 = 1.0d+0*t419*t96+1.0d+0*t168*t210 10194 t421 = 8.132426666666668d-2*t104*t105*t126*t18*t55*taua+4. 10195 1 066213333333334d-2*t100*t103*t126*t18*t55*taua+2.033106 10196 2 666666667d-2*t102*t108*t18*t55*taua-1.3333333333333333d 10197 3 +1*t102*t105*t18*t55*taua+1.1160511338720001d-4*t101*t1 10198 4 11*t241*t55*t99+6.505941333333333d-2*gammaaa*t100*t110* 10199 5 t126*t55*t99+1.1160511338720001d-4*t105*t106*t111*t241* 10200 6 t55+1.1160511338720001d-4*t100*t103*t104*t111*t241*t55+ 10201 7 3.72017044624d-5*t104*t108*t111*t126*t55+3.72017044624d 10202 8 -5*t100*t107*t111*t126*t55-2.439728d-2*t104*t105*t111*t 10203 9 126*t55-1.219864d-2*t100*t103*t111*t126*t55+3.252970666 10204 : 6666663d-2*gammaaa*t103*t104*t110*t126*t55-6.09932d-3*t 10205 ; 102*t108*t111*t55+1.6264853333333332d-2*gammaaa*t102*t1 10206 < 07*t110*t55-5.333333333333333d+0*gammaaa*t102*t103*t110 10207 = *t55 10208 t422 = 1.0d+0*t421*t96+1.0d+0*t168*t216 10209 t423 = 8.132426666666668d-2*t104*t105*t126*t20*t53*taub+4. 10210 1 066213333333334d-2*t100*t103*t126*t20*t53*taub+2.033106 10211 2 666666667d-2*t102*t108*t20*t53*taub-1.3333333333333333d 10212 3 +1*t102*t105*t20*t53*taub+1.1160511338720001d-4*t101*t1 10213 4 71*t20*t241*t99+6.505941333333333d-2*gammabb*t100*t126* 10214 5 t170*t20*t99+1.1160511338720001d-4*t105*t106*t171*t20*t 10215 6 241+1.1160511338720001d-4*t100*t103*t104*t171*t20*t241+ 10216 7 3.72017044624d-5*t104*t108*t126*t171*t20+3.72017044624d 10217 8 -5*t100*t107*t126*t171*t20-2.439728d-2*t104*t105*t126*t 10218 9 171*t20-1.219864d-2*t100*t103*t126*t171*t20-6.09932d-3* 10219 : t102*t108*t171*t20+3.2529706666666663d-2*gammabb*t103*t 10220 ; 104*t126*t170*t20+1.6264853333333332d-2*gammabb*t102*t1 10221 < 07*t170*t20-5.333333333333333d+0*gammabb*t102*t103*t170 10222 = *t20 10223 t424 = 1.0d+0*t423*t96+1.0d+0*t197*t210 10224 t425 = 1.373568d-1*t172*t212*t31*t62*taub+3.43392000000000 10225 1 03d-2*t212*t34*t61*taub-1.3333333333333333d+1*t212*t31* 10226 2 t61*taub+6.867840000000001d-2*gammabb*t172*t211*t29*tau 10227 3 b+3.183787772928d-4*t171*t31*t343*t55*t63+3.43392000000 10228 4 00003d-2*t172*t31*t53*t63+1.7169600000000002d-2*t34*t53 10229 5 *t61*t62-6.666666666666667d+0*t31*t53*t61*t62+8.928192d 10230 6 -2*gammabb*t172*t29*t60*t62+1.061262590976d-4*t171*t172 10231 7 *t34*t55*t62-4.120704d-2*t171*t172*t31*t55*t62+3.183787 10232 8 772928d-4*gammabb*t171*t212*t29*t343*t62+4.464096d-2*ga 10233 9 mmabb*t33*t60*t61-8.666666666666666d+0*gammabb*t29*t60* 10234 : t61-1.030176d-2*t171*t34*t55*t61+3.183787772928d-4*t171 10235 ; *t211*t25*t343*t59+1.4422464000000002d-1*t172*t202*t25* 10236 < t59-3.3333333333333337d+0*t34*t53*t58+1.061262590976d-4 10237 = *gammabb*t171*t172*t212*t33-2.060352d-2*gammabb*t171*t1 10238 > 72*t212*t29 10239 t426 = 1.25d-1*gammabb*t215*t49*t50*t64+1.25d-1*gammabb*t1 10240 1 84*t215*t64+1.0d+0*rhob*t425*t49*t52+1.0d+0*t213*t49*t5 10241 2 2+1.0d+0*rhob*t184*t213*t52+1.25d-1*gammabb*t174*t215*t 10242 3 49 10243 t427 = 8.132426666666668d-2*t104*t105*t126*t212*taub+4.066 10244 1 213333333334d-2*t100*t103*t126*t212*taub+2.033106666666 10245 2 667d-2*t102*t108*t212*taub-1.3333333333333333d+1*t102*t 10246 3 105*t212*taub+6.505941333333333d-2*gammabb*t100*t126*t6 10247 4 0*t99+1.1160511338720001d-4*t101*t171*t241*t55*t99+2.03 10248 5 3106666666667d-2*t101*t126*t53*t99-3.3333333333333337d+ 10249 6 0*t108*t53*t98+3.2529706666666663d-2*gammabb*t103*t104* 10250 7 t126*t60+1.6264853333333332d-2*gammabb*t102*t107*t60-5. 10251 8 333333333333333d+0*gammabb*t102*t103*t60+1.116051133872 10252 9 0001d-4*t105*t106*t171*t241*t55+1.1160511338720001d-4*t 10253 : 100*t103*t104*t171*t241*t55+3.72017044624d-5*t104*t108* 10254 ; t126*t171*t55+3.72017044624d-5*t100*t107*t126*t171*t55- 10255 < 2.439728d-2*t104*t105*t126*t171*t55-1.219864d-2*t100*t1 10256 = 03*t126*t171*t55-6.09932d-3*t102*t108*t171*t55+2.033106 10257 > 666666667d-2*t105*t106*t126*t53+2.033106666666667d-2*t1 10258 ? 00*t103*t104*t126*t53+1.0165533333333335d-2*t102*t104*t 10259 @ 108*t53+1.0165533333333335d-2*t100*t102*t107*t53-6.6666 10260 1 66666666667d+0*t102*t104*t105*t53-3.3333333333333337d+0 10261 2 *t100*t102*t103*t53 10262 t428 = 1.0d+0*t427*t96+1.0d+0*t197*t216 10263 t429 = 1/rhoa**9.666666666666666d+0 10264 t430 = 3.183787772928d-4*t220*t25*t26*t429+1.061262590976d 10265 1 -4*t112*t206*t30*t34-1.030176d-2*t206*t28*t34-1.030176d 10266 2 -2*t206*t28*t33+1.061262590976d-4*gammaaa*t112*t205*t33 10267 3 +3.183787772928d-4*t206*t220*t31*t32-4.120704d-2*t112*t 10268 4 206*t30*t31+3.183787772928d-4*gammaaa*t205*t220*t29*t30 10269 5 -2.060352d-2*t112*t206*t29*t30+2.0d+0*t206*t28*t29-2.06 10270 6 0352d-2*gammaaa*t112*t205*t29-4.120704d-2*gammaaa*t112* 10271 7 t205*t25 10272 t431 = 1/rhoa**3.3333333333333337d+0 10273 t432 = 1.1160511338720001d-4*t101*t206*t241*t99-2.439728d- 10274 1 2*t100*t126*t206*t99+1.1160511338720001d-4*t105*t106*t2 10275 2 06*t241+1.1160511338720001d-4*t100*t103*t104*t206*t241+ 10276 3 3.72017044624d-5*t104*t108*t126*t206+3.72017044624d-5*t 10277 4 100*t107*t126*t206-2.439728d-2*t104*t105*t126*t206-1.21 10278 5 9864d-2*t103*t104*t126*t206-1.219864d-2*t100*t103*t126* 10279 6 t206-6.09932d-3*t102*t108*t206-6.09932d-3*t102*t107*t20 10280 7 6+2.0d+0*t102*t103*t206 10281 t433 = 1.1160511338720001d-4*t101*t18*t241*t55*t99-2.43972 10282 1 8d-2*t100*t126*t18*t55*t99+1.1160511338720001d-4*t105*t 10283 2 106*t18*t241*t55+1.1160511338720001d-4*t100*t103*t104*t 10284 3 18*t241*t55+3.72017044624d-5*t104*t108*t126*t18*t55+3.7 10285 4 2017044624d-5*t100*t107*t126*t18*t55-2.439728d-2*t104*t 10286 5 105*t126*t18*t55-1.219864d-2*t103*t104*t126*t18*t55-1.2 10287 6 19864d-2*t100*t103*t126*t18*t55-6.09932d-3*t102*t108*t1 10288 7 8*t55-6.09932d-3*t102*t107*t18*t55+2.0d+0*t102*t103*t18 10289 8 *t55 10290 t434 = 1.1160511338720001d-4*t101*t20*t241*t53*t99-2.43972 10291 1 8d-2*t100*t126*t20*t53*t99+1.1160511338720001d-4*t105*t 10292 2 106*t20*t241*t53+1.1160511338720001d-4*t100*t103*t104*t 10293 3 20*t241*t53+3.72017044624d-5*t104*t108*t126*t20*t53+3.7 10294 4 2017044624d-5*t100*t107*t126*t20*t53-2.439728d-2*t104*t 10295 5 105*t126*t20*t53-1.219864d-2*t103*t104*t126*t20*t53-1.2 10296 6 19864d-2*t100*t103*t126*t20*t53-6.09932d-3*t102*t108*t2 10297 7 0*t53-6.09932d-3*t102*t107*t20*t53+2.0d+0*t102*t103*t20 10298 8 *t53 10299 t435 = 1/rhob**9.666666666666666d+0 10300 t436 = 3.183787772928d-4*t212*t31*t343*t63+3.183787772928d 10301 1 -4*gammabb*t211*t29*t343*t62+1.061262590976d-4*t172*t21 10302 2 2*t34*t62-4.120704d-2*t172*t212*t31*t62-2.060352d-2*t17 10303 3 2*t212*t29*t62-1.030176d-2*t212*t34*t61-1.030176d-2*t21 10304 4 2*t33*t61+2.0d+0*t212*t29*t61+3.183787772928d-4*t25*t34 10305 5 3*t435*t59+1.061262590976d-4*gammabb*t172*t211*t33-2.06 10306 6 0352d-2*gammabb*t172*t211*t29-4.120704d-2*gammabb*t172* 10307 7 t211*t25 10308 t437 = 1/rhob**3.3333333333333337d+0 10309 t438 = 1.1160511338720001d-4*t101*t212*t241*t99-2.439728d- 10310 1 2*t100*t126*t212*t99+1.1160511338720001d-4*t105*t106*t2 10311 2 12*t241+1.1160511338720001d-4*t100*t103*t104*t212*t241+ 10312 3 3.72017044624d-5*t104*t108*t126*t212+3.72017044624d-5*t 10313 4 100*t107*t126*t212-2.439728d-2*t104*t105*t126*t212-1.21 10314 5 9864d-2*t103*t104*t126*t212-1.219864d-2*t100*t103*t126* 10315 6 t212-6.09932d-3*t102*t108*t212-6.09932d-3*t102*t107*t21 10316 7 2+2.0d+0*t102*t103*t212 10317 t439 = 1/rhoa**8.666666666666666d+0 10318 t440 = 1/rhoa**6 10319 t441 = 2.122525181952d-4*gammaaa*t112*t33*t440+6.367575545 10320 1 856d-4*gammaaa*t220*t29*t30*t440-8.241408d-2*gammaaa*t1 10321 2 12*t29*t440+6.367575545856d-4*t220*t25*t26*t439+2.12252 10322 3 5181952d-4*t112*t30*t34*t431-4.120704d-2*t28*t34*t431+6 10323 4 .367575545856d-4*t220*t31*t32*t431-1.6482816d-1*t112*t3 10324 5 0*t31*t431+8.0d+0*t28*t31*t431 10325 t442 = 1/taua**3 10326 t443 = 2.2321022677440003d-4*t101*t241*t431*t99+2.23210226 10327 1 77440003d-4*t105*t106*t241*t431+2.2321022677440003d-4*t 10328 2 100*t103*t104*t241*t431+7.44034089248d-5*t104*t108*t126 10329 3 *t431+7.44034089248d-5*t100*t107*t126*t431-9.758912d-2* 10330 4 t104*t105*t126*t431-4.879456d-2*t100*t103*t126*t431-2.4 10331 5 39728d-2*t102*t108*t431+8.0d+0*t102*t105*t431 10332 t444 = 2.2321022677440003d-4*t101*t20*t241*t55*t99+2.23210 10333 1 22677440003d-4*t105*t106*t20*t241*t55+2.232102267744000 10334 2 3d-4*t100*t103*t104*t20*t241*t55+7.44034089248d-5*t104* 10335 3 t108*t126*t20*t55+7.44034089248d-5*t100*t107*t126*t20*t 10336 4 55-9.758912d-2*t104*t105*t126*t20*t55-4.879456d-2*t100* 10337 5 t103*t126*t20*t55-2.439728d-2*t102*t108*t20*t55+8.0d+0* 10338 6 t102*t105*t20*t55 10339 t445 = 1/rhob**8.666666666666666d+0 10340 t446 = 1/rhob**6 10341 t447 = 6.367575545856d-4*t31*t343*t437*t63+6.367575545856d 10342 1 -4*gammabb*t29*t343*t446*t62+2.122525181952d-4*t172*t34 10343 2 *t437*t62-1.6482816d-1*t172*t31*t437*t62-4.120704d-2*t3 10344 3 4*t437*t61+8.0d+0*t31*t437*t61+6.367575545856d-4*t25*t3 10345 4 43*t445*t59+2.122525181952d-4*gammabb*t172*t33*t446-8.2 10346 5 41408d-2*gammabb*t172*t29*t446 10347 t448 = 1/taub**3 10348 t449 = 2.2321022677440003d-4*t101*t241*t437*t99+2.23210226 10349 1 77440003d-4*t105*t106*t241*t437+2.2321022677440003d-4*t 10350 2 100*t103*t104*t241*t437+7.44034089248d-5*t104*t108*t126 10351 3 *t437+7.44034089248d-5*t100*t107*t126*t437-9.758912d-2* 10352 4 t104*t105*t126*t437-4.879456d-2*t100*t103*t126*t437-2.4 10353 5 39728d-2*t102*t108*t437+8.0d+0*t102*t105*t437 10354 t450 = t111**3 10355 t451 = 1/rhoa**3 10356 t452 = 1/t22**5 10357 t453 = 1/rhoa**5.666666666666667d+0 10358 t454 = -3.2592592592592595d+1*t221*taua-4.5629629629629626 10359 1 d+1*gammaaa*t453 10360 t455 = 1/rhoa**8.333333333333334d+0 10361 t456 = t119**3 10362 t457 = 1/t2**7 10363 t458 = 1/rhoa**3.1666666666666665d+0 10364 t459 = t122**3 10365 t460 = 2.0690405167709364d+3*t459*t9/(t6**6*t7**3)-1.92983 10366 1 75398431045d+2*t233*t459*t9/t6**5+6.0d+0*t121*t235*t459 10367 2 *t9+1.0d+0*t121*t123*(-4.684972743248224d+0*t458-3.0838 10368 3 75829189267d+0*t457-3.9871442462415524d+0*t431-7.128507 10369 4 529742789d-1*t110)*t9-6.0d+0*t121*t122*t236*t237*t9+9.6 10370 5 49187699215522d+1*t122*t233*t235*t237*t9+4.109901889749 10371 6 9934d-3*t431*t8+1.1102230246251565d-16*t115*t120*t13*(- 10372 7 2.520426340996149d+0*t458-1.5008036906238065d+0*t457-2. 10373 8 3079979182303428d+0*t431-5.620753557770543d-1*t110)+6.6 10374 9 61338147750939d-16*t115*t13*t227*t456-1.071275035259891 10375 : 3d-14*t13*t225*t456/t10**5+5.742741051503565d-14*t13*t4 10376 ; 56/(t10**6*t11**3)+9.490883560204437d-19*t12*t431-1.274 10377 < 696188700087d-1*t117*t121*t123*t237+2.549392377400174d- 10378 = 1*t117*t121*t234*t236-4.0999275947472624d+0*t117*t233*t 10379 > 234*t235-6.661338147750939d-16*t115*t119*t13*t228*t232+ 10380 ? 5.356375176299456d-15*t119*t13*t225*t227*t232-1.4718104 10381 @ 502398274d-17*t115*t117*t120*t232+1.6995949182667827d-1 10382 1 *t121*t122*t123*t230+1.962413933653103d-17*t115*t119*t1 10383 2 20*t230+2.943620900479655d-17*t115*t117*t226*t228-2.366 10384 3 9625486718335d-16*t117*t225*t226*t227 10385 t461 = 1/t97**5 10386 t462 = 4.824593849607761d+1*t250*t251*t252*t67*t76 10387 t463 = -6.0d+0*t134*t250*t255*t67*t76 10388 t464 = -2.6513779981040353d-1*t130*t132*t133*t134*t76 10389 t465 = 3.0d+0*t133*t134*t262*t67*t76 10390 t466 = -5.19476882440587d+1*t264*t265*t266*t85*t86 10391 t467 = 3.5089341735807883d+0*t138*t264*t269*t85*t86 10392 t468 = 8.072185179299687d-2*t130*t136*t137*t138*t86 10393 t469 = -1.7544670867903941d+0*t137*t138*t272*t85*t86 10394 t470 = 1.856176655010858d+2*t274*t275*t276*t69*t70*t74*t91 10395 t471 = -1.1541966305589217d+1*t142*t274*t279*t69*t70*t74*t 10396 1 91 10397 t472 = -4.904166819946466d-1*t140*t141*t142*t165*t69*t74 10398 t473 = 5.770983152794609d+0*t141*t142*t282*t69*t70*t74*t91 10399 t474 = -4.616786522235687d+1*t140*t141*t142*t154*t69*t74*t 10400 1 91 10401 t475 = -1.099109305675375d-2*t260*t76*t83 10402 t476 = 1.8175185709928465d-3*t260*t86*t89 10403 t477 = -7.11545236961578d-2*t317*t69*t74*t94 10404 t478 = -3.588478118171826d+0*t301*t69*t74*t91*t94 10405 t479 = -2.1530868709030954d+0*t304*t70*t74*t91*t94 10406 t480 = t132**3 10407 t481 = 5.172601291927341d+2*t480*t67*t76/(t81**6*t82**3) 10408 t482 = -9.649187699215522d+1*t252*t480*t67*t76/t81**5 10409 t483 = 4.824593849607761d+1*t132*t251*t252*t262*t67*t76 10410 t484 = -2.1319703304396778d+0*t130*t250*t251*t252*t76 10411 t485 = 6.0d+0*t134*t251*t480*t67*t76 10412 t486 = -6.0d+0*t132*t134*t255*t262*t67*t76 10413 t487 = 2.6513779981040353d-1*t130*t134*t250*t255*t76 10414 t488 = -1.3256889990520176d-1*t130*t133*t134*t262*t76 10415 t489 = 1.767585332069357d-1*t132*t133*t134*t260*t76 10416 t490 = 1/t65**3.6666666666666664d+0 10417 t491 = 1/t78**7 10418 t492 = 1/t65**3.3333333333333337d+0 10419 t493 = 1/t65**3.1666666666666665d+0 10420 t494 = 1.0d+0*t133*t134*(-2.520426340996149d+0*t493-2.3079 10421 1 979182303428d+0*t492-1.5008036906238065d+0*t491-5.62075 10422 2 3557770543d-1*t490)*t67*t76 10423 t495 = t136**3 10424 t496 = -1.0254062650399592d+3*t495*t85*t86/(t87**6*t88**3) 10425 t497 = 1.0389537648811739d+2*t266*t495*t85*t86/t87**5 10426 t498 = -5.19476882440587d+1*t136*t265*t266*t272*t85*t86 10427 t499 = 1.1950391155803675d+0*t130*t264*t265*t266*t86 10428 t500 = -3.5089341735807883d+0*t138*t265*t495*t85*t86 10429 t501 = 3.5089341735807883d+0*t136*t138*t269*t272*t85*t86 10430 t502 = -8.072185179299687d-2*t130*t138*t264*t269*t86 10431 t503 = 4.0360925896498434d-2*t130*t137*t138*t272*t86 10432 t504 = -5.381456786199791d-2*t136*t137*t138*t260*t86 10433 t505 = -5.848223622634647d-1*t137*t138*(-3.436688601932293 10434 1 d+0*t493-2.3308360066730832d+0*t492-8.064323383643707d- 10435 2 1*t491-5.663741022599518d-1*t490)*t85*t86 10436 t506 = t140**3 10437 t507 = 3.9801326549115085d+3*t506*t69*t70*t74*t91/(t92**6* 10438 1 t93**3) 10439 t508 = -3.712353310021716d+2*t276*t506*t69*t70*t74*t91/t92 10440 1 **5 10441 t509 = 1.856176655010858d+2*t140*t275*t276*t282*t69*t70*t7 10442 1 4*t91 10443 t510 = -7.424706620043432d+2*t154*t274*t275*t276*t69*t74*t 10444 1 91 10445 t511 = -7.886871025654724d+0*t165*t274*t275*t276*t69*t74 10446 t512 = 1.1541966305589217d+1*t142*t275*t506*t69*t70*t74*t9 10447 1 1 10448 t513 = -1.1541966305589217d+1*t140*t142*t279*t282*t69*t70* 10449 1 t74*t91 10450 t514 = 4.616786522235687d+1*t142*t154*t274*t279*t69*t74*t9 10451 1 1 10452 t515 = 4.904166819946466d-1*t142*t165*t274*t279*t69*t74 10453 t516 = -2.452083409973233d-1*t141*t142*t165*t282*t69*t74 10454 t517 = 2.2886111826416838d+0*t140*t141*t142*t317*t69*t74 10455 t518 = 1.923661050931536d+0*t141*t142*(-4.684972743248224d 10456 1 +0*t493-3.9871442462415524d+0*t492-3.083875829189267d+0 10457 2 *t491-7.128507529742789d-1*t490)*t69*t70*t74*t91 10458 t519 = -2.3083932611178434d+1*t141*t142*t154*t282*t69*t74* 10459 1 t91 10460 t520 = 1.1541966305589217d+2*t140*t141*t142*t301*t69*t74*t 10461 1 91 10462 t521 = 6.925179783353531d+1*t140*t141*t142*t304*t70*t74*t9 10463 1 1 10464 t522 = 8.548627933030694d-3*t492*t76*t83 10465 t523 = 1/t72**1.6666666666666669d+0 10466 t524 = 6*t68*t70 10467 t525 = -6*t288 10468 t526 = 1/t73**1.6666666666666669d+0 10469 t527 = -6*t68*t70 10470 t528 = 6*t288 10471 t529 = 1.3333333333333333d+0*t151*(t528+t527)-2.9629629629 10472 1 62963d-1*t150**3*t526+1.3333333333333333d+0*t148*(t525+ 10473 2 t524)-2.962962962962963d-1*t147**3*t523+1.3333333333333 10474 3 333d+0*t150*t293*t296+1.3333333333333333d+0*t147*t287*t 10475 4 291 10476 t530 = -1.923661050931536d+0*t529*t69*t70 10477 t531 = 2.3083932611178434d+1*t154*t297*t69 10478 t532 = -2.3083932611178434d+1*t156*t297*t70 10479 t533 = -1.1541966305589216d+2*t152*t301*t69 10480 t534 = 1.8467146088942746d+2*t152*t154*t156 10481 t535 = -6.925179783353531d+1*t152*t304*t70 10482 t536 = 1/t65**7 10483 t537 = 2.3083932611178432d+2*t536*t69*t74 10484 t538 = -4.6167865222356863d+2*t156*t301*t74 10485 t539 = 2.770071913341412d+2*t154*t304*t74 10486 t540 = -4.616786522235687d+1*t68*t70*t74 10487 t541 = -1.4136255552166585d-3*t492*t86*t89 10488 t542 = 2.0103976536374746d-1*t69*t74*t94/t65**7.3333333333 10489 1 33333d+0 10490 t543 = 9.148438760934575d-2*t165*t304*t74*t94 10491 t544 = 7.176956236343652d+0*t536*t69*t74*t91*t94 10492 t545 = 8.612347483612381d+0*t154*t304*t74*t91*t94 10493 t546 = -1.4353912472687305d+0*t68*t70*t74*t91*t94 10494 t547 = -1.243628d-1*t334*t67*t83 10495 t548 = 3.9503262643361536d-2*t335*t85*t89 10496 t549 = -1.1961593727239421d-1*t327*t69*t70*t91*t94 10497 t550 = 2.0d+0*t132*t133*t134*t334*t67 10498 t551 = -1.1696447245269295d+0*t136*t137*t138*t335*t85 10499 t552 = 3.847322101863072d+0*t140*t141*t142*t327*t69*t70*t9 10500 1 1 10501 t553 = -2.3083932611178434d+1*t140*t141*t142*t304*t70*t74* 10502 1 t91 10503 t554 = 5.495546528376875d-3*t130*t334*t83 10504 t555 = 1.5389288407452287d+1*t154*t327*t69 10505 t556 = -1.5389288407452287d+1*t156*t327*t70 10506 t557 = 1.7777777777777776d+0*t150*t288*t293*t68-1.77777777 10507 1 77777776d+0*t147*t287*t288*t68+1.3333333333333333d+0*t1 10508 2 51*(t527+2*t288)-2.962962962962963d-1*t188*t292*t526+1. 10509 3 3333333333333333d+0*t148*(t524-2*t288)-2.96296296296296 10510 4 3d-1*t187*t286*t523+4.444444444444444d-1*t188*t293*t296 10511 5 +4.444444444444444d-1*t187*t287*t291 10512 t558 = -1.923661050931536d+0*t557*t69*t70 10513 t559 = 7.694644203726144d+0*t154*t297*t69 10514 t560 = 7.694644203726144d+0*t156*t297*t70 10515 t561 = -3.8473221018630716d+1*t189*t301*t69 10516 t562 = 6.155715362980915d+1*t154*t156*t189 10517 t563 = -2.3083932611178434d+1*t189*t304*t70 10518 t564 = -7.694644203726143d+1*t152*t301*t69 10519 t565 = 4.616786522235687d+1*t152*t304*t70 10520 t566 = -1.5389288407452287d+2*t156*t301*t74 10521 t567 = -9.233573044471374d+1*t154*t304*t74 10522 t568 = 4.616786522235687d+1*t68*t70*t74 10523 t569 = -9.087592854964233d-4*t130*t335*t89 10524 t570 = 5.082465978296986d-3*t165*t327*t69*t94 10525 t571 = 4.7846374908957684d-1*t154*t327*t69*t91*t94 10526 t572 = -2.870782494537461d+0*t154*t304*t74*t91*t94 10527 t573 = 1.4353912472687305d+0*t68*t70*t74*t91*t94 10528 t574 = -8*t151*t68*t70+8*t148*t68*t70+1.7777777777777776d+ 10529 1 0*t188*t288*t293*t68-1.7777777777777776d+0*t187*t287*t2 10530 2 88*t68-2.962962962962963d-1*t150*t371*t526-2.9629629629 10531 3 62963d-1*t147*t369*t523+4.444444444444444d-1*t150*t293* 10532 4 t372+4.444444444444444d-1*t147*t287*t370-2.666666666666 10533 5 6666d+0*t151*t288+2.6666666666666666d+0*t148*t288 10534 t575 = -1.923661050931536d+0*t574*t69*t70 10535 t576 = 1.5389288407452287d+1*t156*t327*t70 10536 t577 = 7.694644203726144d+0*t154*t373*t69 10537 t578 = -7.694644203726144d+0*t156*t373*t70 10538 t579 = -7.694644203726143d+1*t189*t301*t69 10539 t580 = 4.616786522235687d+1*t189*t304*t70 10540 t581 = -3.8473221018630716d+1*t152*t301*t69 10541 t582 = -6.155715362980915d+1*t152*t154*t156 10542 t583 = -2.3083932611178434d+1*t152*t304*t70 10543 t584 = 1.5389288407452287d+2*t156*t301*t74 10544 t585 = t171**3 10545 t586 = 1/rhob**3 10546 t587 = 1/t57**5 10547 t588 = 1/rhob**5.666666666666667d+0 10548 t589 = -3.2592592592592595d+1*t344*taub-4.5629629629629626 10549 1 d+1*gammabb*t588 10550 t590 = 1/rhob**8.333333333333334d+0 10551 t591 = t179**3 10552 t592 = 1/t37**7 10553 t593 = 1/rhob**3.1666666666666665d+0 10554 t594 = t182**3 10555 t595 = 2.0690405167709364d+3*t44*t594/(t41**6*t42**3)-1.92 10556 1 98375398431045d+2*t356*t44*t594/t41**5+6.0d+0*t181*t358 10557 2 *t44*t594+1.1102230246251565d-16*t175*t180*t48*(-2.5204 10558 3 26340996149d+0*t593-1.5008036906238065d+0*t592-2.307997 10559 4 9182303428d+0*t437-5.620753557770543d-1*t170)+1.0d+0*t1 10560 5 81*t183*t44*(-4.684972743248224d+0*t593-3.0838758291892 10561 6 67d+0*t592-3.9871442462415524d+0*t437-7.128507529742789 10562 7 d-1*t170)+5.742741051503565d-14*t48*t591/(t45**6*t46**3 10563 8 )-1.0712750352598913d-14*t348*t48*t591/t45**5+6.6613381 10564 9 47750939d-16*t175*t350*t48*t591-6.661338147750939d-16*t 10565 : 175*t179*t351*t355*t48+5.356375176299456d-15*t179*t348* 10566 ; t350*t355*t48+9.490883560204437d-19*t437*t47-6.0d+0*t18 10567 < 1*t182*t359*t360*t44+9.649187699215522d+1*t182*t356*t35 10568 = 8*t360*t44+4.1099018897499934d-3*t43*t437-1.27469618870 10569 > 0087d-1*t177*t181*t183*t360+2.549392377400174d-1*t177*t 10570 ? 181*t357*t359-4.0999275947472624d+0*t177*t356*t357*t358 10571 @ -1.4718104502398274d-17*t175*t177*t180*t355+1.699594918 10572 1 2667827d-1*t181*t182*t183*t353+1.962413933653103d-17*t1 10573 2 75*t179*t180*t353+2.943620900479655d-17*t175*t177*t349* 10574 3 t351-2.3669625486718335d-16*t177*t348*t349*t350 10575 t596 = 1.3333333333333333d+0*t148*(t528+t524)+1.3333333333 10576 1 333333d+0*t151*(t527+t525)-2.962962962962963d-1*t188**3 10577 2 *t526-2.962962962962963d-1*t187**3*t523+1.3333333333333 10578 3 333d+0*t188*t293*t372+1.3333333333333333d+0*t187*t287*t 10579 4 370 10580 t597 = -1.923661050931536d+0*t596*t69*t70 10581 t598 = 2.3083932611178434d+1*t154*t373*t69 10582 t599 = 2.3083932611178434d+1*t156*t373*t70 10583 t600 = -1.1541966305589216d+2*t189*t301*t69 10584 t601 = -1.8467146088942746d+2*t154*t156*t189 10585 t602 = -6.925179783353531d+1*t189*t304*t70 10586 t603 = 4.6167865222356863d+2*t156*t301*t74 10587 t604 = -1.25d-1*t14*t35-1.25d-1*gammaaa*t14*t200 10588 t605 = 1/rhoa**10 10589 t606 = -1.25d-1*t49*t64-1.25d-1*gammabb*t203*t49 10590 t607 = 1/rhob**10 10591 t608 = 1.25d-1*gammaaa*t14*t411+2.5d-1*t14*t200 10592 t609 = -1.030176d-2*t395 10593 t610 = 1.25d-1*gammabb*t415*t49+2.5d-1*t203*t49 10594 t611 = -1.030176d-2*t406 10595 t612 = -1.030176d-2*t392 10596 t613 = -1.8600852231200002d-4*t101*t18*t241*t53*t99 10597 t614 = -1.8600852231200002d-4*t100*t103*t104*t18*t241*t53 10598 t615 = -1.8600852231200002d-4*t105*t106*t18*t241*t53 10599 t616 = -6.200284077066667d-5*t100*t107*t126*t18*t53 10600 t617 = 4.066213333333334d-2*t100*t126*t18*t53*t99 10601 t618 = 2.033106666666667d-2*t100*t103*t126*t18*t53 10602 t619 = -6.200284077066667d-5*t104*t108*t126*t18*t53 10603 t620 = 2.033106666666667d-2*t103*t104*t126*t18*t53 10604 t621 = 4.066213333333334d-2*t104*t105*t126*t18*t53 10605 t622 = 1.0165533333333335d-2*t102*t107*t18*t53 10606 t623 = 1.0165533333333335d-2*t102*t108*t18*t53 10607 t624 = -3.3333333333333337d+0*t102*t103*t18*t53 10608 t625 = -6.200284077066667d-5*t109*t126*t18*t53*t96 10609 t626 = -1.030176d-2*t403 10610 t627 = -1.28772d-3*gammaaa*t14*t200 10611 t628 = -1.28772d-3*t14*t35 10612 t629 = -1.28772d-3*gammabb*t203*t49 10613 t630 = -1.28772d-3*t49*t64 10614 t631 = 1/rhoa**5 10615 t632 = 1/rhob**5 10616 t633 = 1/rhoa**7.666666666666667d+0 10617 t634 = 1/rhob**7.666666666666667d+0 10618 fnc(iq) = (1.0d+0*t109*t96*t98+1.0d+0*rhob*t49*t52*t58*t64 10619 1 +1.0d+0*rhoa*t14*t17*t23*t35)*wght+fnc(iq) 10620 Amat(iq,D1_RA) = (t169*t98-3.04966d-3*t102*t109*t111*t96-5 10621 1 .15088d-3*rhoa*t111*t14*t17*t28*t35+1.25d-1*gammaaa*t14 10622 2 *t15*t16*t23*t35+t125*t23)*wght+Amat(iq,D1_RA) 10623 Amat(iq,D1_RB) = (t198*t98-3.04966d-3*t102*t109*t171*t96-5 10624 1 .15088d-3*rhob*t171*t49*t52*t61*t64+1.25d-1*gammabb*t49 10625 2 *t50*t51*t58*t64+t185*t58)*wght+Amat(iq,D1_RB) 10626 Cmat(iq,D1_GAA) = (1.0d+0*t201*t96*t98-3.04966d-3*t102*t10 10627 1 9*t18*t96-5.15088d-3*t14*t17*t20*t28*t35-1.25d-1*t14*t1 10628 2 6*t23*t35+1.0d+0*rhoa*t14*t17*t200*t23)*wght+Cmat(iq,D1 10629 3 _GAA) 10630 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 10631 Cmat(iq,D1_GBB) = (1.0d+0*t204*t96*t98-3.04966d-3*t102*t10 10632 1 9*t53*t96-5.15088d-3*t49*t52*t55*t61*t64-1.25d-1*t49*t5 10633 2 1*t58*t64+1.0d+0*rhob*t203*t49*t52*t58)*wght+Cmat(iq,D1 10634 3 _GBB) 10635 Mmat(iq,D1_TA) = (1.0d+0*t210*t96*t98-6.09932d-3*t102*t109 10636 1 *t20*t96-1.030176d-2*t1*t14*t17*t28*t35+1.25d-1*gammaaa 10637 2 *t14*t209*t23*t35+1.0d+0*rhoa*t14*t17*t207*t23)*wght+Mm 10638 3 at(iq,D1_TA) 10639 Mmat(iq,D1_TB) = (1.0d+0*t216*t96*t98-6.09932d-3*t102*t109 10640 1 *t55*t96-1.030176d-2*t36*t49*t52*t61*t64+1.25d-1*gammab 10641 2 b*t215*t49*t58*t64+1.0d+0*rhob*t213*t49*t52*t58)*wght+M 10642 3 mat(iq,D1_TB) 10643 Amat2(iq,D2_RA_RA) = (t324*t98+1.86008522312d-5*t109*t126* 10644 1 t217*t96-1.28772d-3*gammaaa*t111*t14*t15*t16*t28*t35-1. 10645 2 25d-1*gammaaa*t14*t16*t218*t23*t35+5.30631295488d-5*rho 10646 3 a*t112*t14*t17*t217*t35+t102*t325+t240*t28+t23*t239+t15 10647 4 *t16*t219*t23)*wght+Amat2(iq,D2_RA_RA) 10648 Amat2(iq,D2_RA_RB) = (t338*t98+1.86008522312d-5*t109*t111* 10649 1 t126*t171*t96+t102*t339)*wght+Amat2(iq,D2_RA_RB) 10650 Amat2(iq,D2_RB_RB) = (t390*t98+1.86008522312d-5*t109*t126* 10651 1 t340*t96-1.28772d-3*gammabb*t171*t49*t50*t51*t61*t64-1. 10652 2 25d-1*gammabb*t341*t49*t51*t58*t64+5.30631295488d-5*rho 10653 3 b*t172*t340*t49*t52*t64+t363*t61+t342*t50*t51*t58+t362* 10654 4 t58+t102*t391)*wght+Amat2(iq,D2_RB_RB) 10655 Cmat2(iq,D2_RA_GAA) = (t398*t98-3.04966d-3*t102*t111*t201* 10656 1 t96+1.86008522312d-5*t109*t111*t126*t18*t96+8.132426666 10657 2 666667d-3*t102*t109*t110*t96+t18*t28*t396+t23*t395+t15* 10658 3 t16*t23*t392+6.4386d-4*t111*t14*t16*t28*t35-6.4386d-4*g 10659 4 ammaaa*t110*t14*t16*t28*t35+5.30631295488d-5*t111*t112* 10660 5 t14*t17*t20*t35-5.15088d-3*rhoa*t111*t14*t17*t200*t28-3 10661 6 .04966d-3*t102*t169*t18)*wght+Cmat2(iq,D2_RA_GAA) 10662 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 10663 Cmat2(iq,D2_RA_GBB) = (t400*t98+1.86008522312d-5*t109*t111 10664 1 *t126*t53*t96-3.04966d-3*t102*t111*t204*t96-3.04966d-3* 10665 2 t102*t169*t53)*wght+Cmat2(iq,D2_RA_GBB) 10666 Cmat2(iq,D2_RB_GAA) = (t402*t98-3.04966d-3*t102*t171*t201* 10667 1 t96+1.86008522312d-5*t109*t126*t171*t18*t96-3.04966d-3* 10668 2 t102*t18*t198)*wght+Cmat2(iq,D2_RB_GAA) 10669 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 10670 Cmat2(iq,D2_RB_GBB) = (t409*t98+1.86008522312d-5*t109*t126 10671 1 *t171*t53*t96-3.04966d-3*t102*t171*t204*t96+8.132426666 10672 2 666667d-3*t102*t109*t170*t96+6.4386d-4*t171*t49*t51*t61 10673 3 *t64-6.4386d-4*gammabb*t170*t49*t51*t61*t64+5.306312954 10674 4 88d-5*t171*t172*t49*t52*t55*t64+t407*t53*t61-5.15088d-3 10675 5 *rhob*t171*t203*t49*t52*t61+t403*t50*t51*t58+t406*t58-3 10676 6 .04966d-3*t102*t198*t53)*wght+Cmat2(iq,D2_RB_GBB) 10677 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t412*t96*t98+1.86008522312d 10678 1 -5*t109*t126*t27*t96-6.09932d-3*t102*t18*t201*t96+1.0d+ 10679 2 0*rhoa*t14*t17*t23*t411+1.28772d-3*t14*t16*t18*t28*t35+ 10680 3 5.30631295488d-5*t112*t14*t17*t206*t35-1.030176d-2*t14* 10681 4 t17*t20*t200*t28-2.5d-1*t14*t16*t200*t23)*wght+Cmat2(iq 10682 5 ,D2_GAA_GAA) 10683 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 10684 Cmat2(iq,D2_GAA_GBB) = (1.0d+0*t413*t96*t98-3.04966d-3*t10 10685 1 2*t201*t53*t96+1.86008522312d-5*t109*t126*t18*t53*t96-3 10686 2 .04966d-3*t102*t18*t204*t96)*wght+Cmat2(iq,D2_GAA_GBB) 10687 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 10688 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 10689 Cmat2(iq,D2_GBB_GBB) = (1.0d+0*t416*t96*t98+1.86008522312d 10690 1 -5*t109*t126*t60*t96-6.09932d-3*t102*t204*t53*t96+1.287 10691 2 72d-3*t49*t51*t53*t61*t64+5.30631295488d-5*t172*t212*t4 10692 3 9*t52*t64-1.030176d-2*t203*t49*t52*t55*t61+1.0d+0*rhob* 10693 4 t415*t49*t52*t58-2.5d-1*t203*t49*t51*t58)*wght+Cmat2(iq 10694 5 ,D2_GBB_GBB) 10695 Mmat2(iq,D2_RA_TA) = (t420*t98-3.04966d-3*t102*t111*t210*t 10696 1 96+3.72017044624d-5*t109*t111*t126*t20*t96+1.0165533333 10697 2 333335d-2*t102*t109*t18*t96+t23*t418+t20*t28*(1.7169600 10698 3 000000002d-2*t14*t17*t35-1.030176d-2*t125)-6.4386d-4*ga 10699 4 mmaaa*t111*t14*t209*t28*t35-1.28772d-3*gammaaa*t14*t16* 10700 5 t18*t28*t35-1.25d-1*gammaaa*t14*t15*t209*t23*t35+1.0612 10701 6 62590976d-4*t1*t111*t112*t14*t17*t35-5.15088d-3*rhoa*t1 10702 7 11*t14*t17*t207*t28+1.25d-1*gammaaa*t14*t15*t16*t207*t2 10703 8 3-6.09932d-3*t102*t169*t20)*wght+Mmat2(iq,D2_RA_TA) 10704 Mmat2(iq,D2_RA_TB) = (t422*t98+3.72017044624d-5*t109*t111* 10705 1 t126*t55*t96-3.04966d-3*t102*t111*t216*t96-6.09932d-3*t 10706 2 102*t169*t55)*wght+Mmat2(iq,D2_RA_TB) 10707 Mmat2(iq,D2_RB_TA) = (t424*t98-3.04966d-3*t102*t171*t210*t 10708 1 96+3.72017044624d-5*t109*t126*t171*t20*t96-6.09932d-3*t 10709 2 102*t198*t20)*wght+Mmat2(iq,D2_RB_TA) 10710 Mmat2(iq,D2_RB_TB) = (t428*t98+3.72017044624d-5*t109*t126* 10711 1 t171*t55*t96+1.0165533333333335d-2*t102*t109*t53*t96-3. 10712 2 04966d-3*t102*t171*t216*t96+t55*t61*(1.7169600000000002 10713 3 d-2*t49*t52*t64-1.030176d-2*t185)-1.28772d-3*gammabb*t4 10714 4 9*t51*t53*t61*t64-6.4386d-4*gammabb*t171*t215*t49*t61*t 10715 5 64-1.25d-1*gammabb*t215*t49*t50*t58*t64+1.061262590976d 10716 6 -4*t171*t172*t36*t49*t52*t64-5.15088d-3*rhob*t171*t213* 10717 7 t49*t52*t61+1.25d-1*gammabb*t213*t49*t50*t51*t58+t426*t 10718 8 58-6.09932d-3*t102*t198*t55)*wght+Mmat2(iq,D2_RB_TB) 10719 Mmat2(iq,D2_GAA_TA) = (1.0d+0*t432*t96*t98-3.04966d-3*t102 10720 1 *t18*t210*t96+3.72017044624d-5*t109*t126*t206*t96-6.099 10721 2 32d-3*t102*t20*t201*t96+1.061262590976d-4*t112*t14*t17* 10722 3 t35*t431+1.0d+0*rhoa*t14*t17*t23*t430+t209*t23*t392-6.4 10723 4 386d-4*gammaaa*t14*t18*t209*t28*t35+1.28772d-3*t14*t16* 10724 5 t20*t28*t35-5.15088d-3*t14*t17*t20*t207*t28-1.030176d-2 10725 6 *t1*t14*t17*t200*t28-1.25d-1*t14*t16*t207*t23)*wght+Mma 10726 7 t2(iq,D2_GAA_TA) 10727 Mmat2(iq,D2_GAA_TB) = (1.0d+0*t433*t96*t98-6.09932d-3*t102 10728 1 *t201*t55*t96+3.72017044624d-5*t109*t126*t18*t55*t96-3. 10729 2 04966d-3*t102*t18*t216*t96)*wght+Mmat2(iq,D2_GAA_TB) 10730 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 10731 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 10732 Mmat2(iq,D2_GBB_TA) = (1.0d+0*t434*t96*t98-3.04966d-3*t102 10733 1 *t210*t53*t96+3.72017044624d-5*t109*t126*t20*t53*t96-6. 10734 2 09932d-3*t102*t20*t204*t96)*wght+Mmat2(iq,D2_GBB_TA) 10735 Mmat2(iq,D2_GBB_TB) = (1.0d+0*t438*t96*t98-6.09932d-3*t102 10736 1 *t204*t55*t96-3.04966d-3*t102*t216*t53*t96+3.7201704462 10737 2 4d-5*t109*t126*t212*t96+1.28772d-3*t49*t51*t55*t61*t64- 10738 3 6.4386d-4*gammabb*t215*t49*t53*t61*t64+1.061262590976d- 10739 4 4*t172*t437*t49*t52*t64-5.15088d-3*t213*t49*t52*t55*t61 10740 5 -1.030176d-2*t203*t36*t49*t52*t61+1.0d+0*rhob*t436*t49* 10741 6 t52*t58-1.25d-1*t213*t49*t51*t58+t215*t403*t58)*wght+Mm 10742 7 at2(iq,D2_GBB_TB) 10743 Mmat2(iq,D2_TA_TA) = (1.0d+0*t443*t96*t98+7.44034089248d-5 10744 1 *t109*t126*t431*t96-1.219864d-2*t102*t20*t210*t96-2.5d- 10745 2 1*gammaaa*t14*t23*t35*t442+1.0d+0*rhoa*t14*t17*t23*t441 10746 3 -2.57544d-3*gammaaa*t14*t20*t209*t28*t35+2.122525181952 10747 4 d-4*t112*t14*t17*t230*t35-2.060352d-2*t1*t14*t17*t207*t 10748 5 28+2.5d-1*gammaaa*t14*t207*t209*t23)*wght+Mmat2(iq,D2_T 10749 6 A_TA) 10750 Mmat2(iq,D2_TA_TB) = (1.0d+0*t444*t96*t98-6.09932d-3*t102* 10751 1 t210*t55*t96+7.44034089248d-5*t109*t126*t20*t55*t96-6.0 10752 2 9932d-3*t102*t20*t216*t96)*wght+Mmat2(iq,D2_TA_TB) 10753 Mmat2(iq,D2_TB_TB) = (1.0d+0*t449*t96*t98-1.219864d-2*t102 10754 1 *t216*t55*t96+7.44034089248d-5*t109*t126*t437*t96-2.575 10755 2 44d-3*gammabb*t215*t49*t55*t61*t64-2.5d-1*gammabb*t448* 10756 3 t49*t58*t64+2.122525181952d-4*t172*t353*t49*t52*t64-2.0 10757 4 60352d-2*t213*t36*t49*t52*t61+1.0d+0*rhob*t447*t49*t52* 10758 5 t58+2.5d-1*gammabb*t213*t215*t49*t58)*wght+Mmat2(iq,D2_ 10759 6 TB_TB) 10760 Amat3(iq,D3_RA_RA_RA) = (t98*(1.0d+0*t96*(-3.2592592592592 10761 1 595d+1*t108*t221*t98*taua-1.1160511338720001d-3*t104*t1 10762 2 05*t18*t217*t241*taua-5.58025566936d-4*t100*t103*t18*t2 10763 3 17*t241*taua-1.6888888888888892d+2*gammaaa*t102*t103*t2 10764 4 23*taua+1.2198640000000001d-1*t104*t105*t126*t18*t222*t 10765 5 aua+6.09932d-2*t100*t103*t126*t18*t222*taua+3.04966d-2* 10766 6 t102*t108*t18*t222*taua-6.518518518518519d+1*t102*t104* 10767 7 t105*t221*taua-3.2592592592592595d+1*t100*t102*t103*t22 10768 8 1*taua-1.8600852231200002d-4*t108*t126*t18*t217*taua-3. 10769 9 252970666666667d-1*gammaaa*t103*t111*t113*t126*taua-3.2 10770 : 52970666666667d-1*t104*t105*t110*t111*t126*taua-1.62648 10771 ; 53333333334d-1*t100*t103*t110*t111*t126*taua-8.13242666 10772 < 6666668d-2*t102*t108*t110*t111*taua-6.807153001848167d- 10773 = 7*t101*t450*t461*t99-1.5644444444444447d+2*t102*t26*t45 10774 > 5*t99-6.09932d-3*t101*t126*t454*t99-9.125925925925925d+ 10775 ? 1*gammaaa*t100*t102*t453*t99-2.602376533333333d-1*t111* 10776 @ t126*t223*t26*t99+1.6740767008080004d-4*t101*t111*t222* 10777 1 t241*t99-8.928409070976d-4*gammaaa*t100*t110*t217*t241* 10778 2 t99+9.758912d-2*gammaaa*t100*t110*t126*t222*t99-3.57826 10779 3 7733333333d-1*gammaaa*t100*t111*t126*t221*t99-4.5629629 10780 4 629629626d+1*gammaaa*t107*t453*t98-6.807153001848167d-7 10781 5 *t105*t106*t450*t461-6.807153001848167d-7*t100*t103*t10 10782 6 4*t450*t461-6.09932d-3*t105*t106*t126*t454-6.09932d-3*t 10783 7 100*t103*t104*t126*t454-3.04966d-3*t102*t104*t108*t454- 10784 8 3.04966d-3*t100*t102*t107*t454-4.5629629629629626d+1*ga 10785 9 mmaaa*t102*t103*t104*t453-1.7017882504620419d-7*t104*t1 10786 : 08*t241*t450-1.7017882504620419d-7*t100*t107*t241*t450- 10787 ; 4.066213333333334d-1*t105*t111*t126*t208*t27+1.67407670 10788 < 08080004d-4*t105*t106*t111*t222*t241+1.6740767008080004 10789 = d-4*t100*t103*t104*t111*t222*t241-4.464204535488d-4*gam 10790 > maaa*t103*t104*t110*t217*t241+5.580255669359999d-5*t104 10791 ? *t108*t111*t126*t222+5.580255669359999d-5*t100*t107*t11 10792 @ 1*t126*t222+4.879456d-2*gammaaa*t103*t104*t110*t126*t22 10793 1 2+2.439728d-2*gammaaa*t102*t107*t110*t222-1.78913386666 10794 2 66665d-1*gammaaa*t103*t104*t111*t126*t221-8.94566933333 10795 3 3333d-2*gammaaa*t102*t107*t111*t221-1.4880681784959998d 10796 4 -4*gammaaa*t107*t110*t126*t217-1.777777777777778d+2*t10 10797 5 2*t105*t113*t208)+1.0d+0*t109*(t65*(-1.4353912472687305 10798 6 d+1*t156*t301*t74*t91*t94-5.980796863619711d-2*t529*t69 10799 7 *t70*t91*t94-2.1530868709030954d+0*t152*t304*t70*t91*t9 10800 8 4-7.176956236343652d-1*t156*t297*t70*t91*t94-3.58847811 10801 9 8171826d+0*t152*t301*t69*t91*t94+7.176956236343652d-1*t 10802 : 154*t297*t69*t91*t94+5.741564989074922d+0*t152*t154*t15 10803 ; 6*t91*t94-2.8461809478463124d-1*t156*t317*t74*t94-7.115 10804 < 45236961578d-2*t152*t317*t69*t94+7.623698967445479d-3*t 10805 = 165*t297*t69*t94+6.098959173956384d-2*t152*t156*t165*t9 10806 > 4+2.3083932611178434d+1*t141*t142*t156*t282*t70*t74*t91 10807 ? -4.616786522235687d+1*t142*t156*t274*t279*t70*t74*t91+7 10808 @ .424706620043432d+2*t156*t274*t275*t276*t70*t74*t91-1.8 10809 1 467146088942746d+2*t140*t141*t142*t154*t156*t74*t91+5.7 10810 2 70983152794609d+0*t140*t141*t142*t297*t69*t70*t91+5.770 10811 3 983152794609d+0*t141*t142*t152*t282*t69*t70*t91-1.15419 10812 4 66305589217d+1*t142*t152*t274*t279*t69*t70*t91+1.856176 10813 5 655010858d+2*t152*t274*t275*t276*t69*t70*t91+4.61678652 10814 6 2235687d+1*t140*t141*t142*t152*t156*t70*t91-4.616786522 10815 7 235687d+1*t140*t141*t142*t152*t154*t69*t91+1.9751631321 10816 8 680768d-2*(t540+t539+t538+t537+t535+t534+t533+t532+t531 10817 9 +t530+1.923661050931536d+0*t529)*t85*t89-1.363138928244 10818 : 635d-3*t130*t310*t89+1.8175185709928465d-3*t161*t260*t8 10819 ; 9-1.7544670867903941d+0*t136*t137*t138*t310*t85-1.75446 10820 < 70867903941d+0*t137*t138*t161*t272*t85+3.50893417358078 10821 = 83d+0*t138*t161*t264*t269*t85-5.19476882440587d+1*t161* 10822 > t264*t265*t266*t85-6.21814d-2*(t540+t539+t538+t537+t535 10823 ? +t534+t533+t532+t531+t530)*t67*t83+8.243319792565312d-3 10824 @ *t130*t306*t83-1.099109305675375d-2*t158*t260*t83-1.961 10825 1 6667279785865d+0*t140*t141*t142*t156*t165*t74-4.9041668 10826 2 19946466d-1*t140*t141*t142*t152*t165*t69+3.0d+0*t132*t1 10827 3 33*t134*t306*t67+3.0d+0*t133*t134*t158*t262*t67-6.0d+0* 10828 4 t134*t158*t250*t255*t67+4.824593849607761d+1*t158*t250* 10829 5 t251*t252*t67+t546+t545+t544+t543+t542+t541+t522+t521+t 10830 6 520+t519+t518+t517+t516+t515+t514+t513+t512+t511+t510+t 10831 7 509+t508+t507+t505+t504+t503+t502+t501+t500+t499+t498+t 10832 8 497+t496+t494+t489+t488+t487+t486+t485+t484+t483+t482+t 10833 9 481+8.072185179299687d-2*t130*t136*t137*t138*t161-2.651 10834 : 3779981040353d-1*t130*t132*t133*t134*t158)+5.7415649890 10835 ; 74922d+0*t154*t156*t74*t91*t94-1.794239059085913d-1*t29 10836 < 7*t69*t70*t91*t94-1.4353912472687305d+0*t152*t156*t70*t 10837 = 91*t94+1.4353912472687305d+0*t152*t154*t69*t91*t94+6.09 10838 > 8959173956384d-2*t156*t165*t74*t94+1.524739793489096d-2 10839 ? *t152*t165*t69*t94+4.616786522235687d+1*t140*t141*t142* 10840 @ t156*t70*t74*t91+1.1541966305589217d+1*t140*t141*t142*t 10841 1 152*t69*t70*t91-3.0d+0*t121*t123*t237*t9+6.0d+0*t121*t2 10842 2 34*t236*t9-9.649187699215522d+1*t233*t234*t235*t9+5.925 10843 3 48939650423d-2*t310*t85*t89-2.72627785648927d-3*t130*t1 10844 4 61*t89-3.5089341735807883d+0*t136*t137*t138*t161*t85-1. 10845 5 865442d-1*t306*t67*t83+1.6486639585130625d-2*t130*t158* 10846 6 t83+5.284159572535705d-3*t230*t8+6.0d+0*t132*t133*t134* 10847 7 t158*t67+t479+t478+t477+t476+t475+t474+t473+t472+t471+t 10848 8 470+t469+t468+t467+t466+t465+t464+t463+t462-rhoa*t460-3 10849 9 .3306690738754696d-16*t115*t120*t13*t232+1.220256457740 10850 : 5706d-18*t12*t230+6.661338147750939d-16*t115*t13*t226*t 10851 ; 228-5.356375176299456d-15*t13*t225*t226*t227+2.54939237 10852 < 7400174d-1*t117*t121*t122*t123+2.943620900479655d-17*t1 10853 = 15*t117*t119*t120)+3.0d+0*t127*t323+3.0d+0*t168*t242)+t 10854 > 23*(1.0d+0*rhoa*t14*t17*(5.15088d-2*t18*t222*t28*t34*ta 10855 ? ua-1.373568d-1*t110*t111*t28*t34*taua-3.259259259259259 10856 @ 5d+1*t221*t23*t34*taua-5.30631295488d-4*t112*t18*t217*t 10857 1 34*taua-6.518518518518519d+1*t221*t28*t30*t31*taua+2.06 10858 2 0352d-1*t112*t18*t222*t30*t31*taua-3.183787772928d-3*t1 10859 3 8*t217*t220*t30*t31*taua-5.494272d-1*t110*t111*t112*t30 10860 4 *t31*taua-2.0148148148148146d+2*gammaaa*t223*t28*t29*ta 10861 5 ua+1.030176d-1*gammaaa*t112*t222*t27*t29*taua-1.5918938 10862 6 86464d-3*gammaaa*t217*t220*t27*t29*taua-8.241408d-1*gam 10863 7 maaa*t111*t112*t113*t29*taua-2.477037037037037d+2*t25*t 10864 8 26*t28*t455-5.15088d-3*t28*t30*t34*t454-5.15088d-3*gamm 10865 9 aaa*t18*t28*t33*t454-1.030176d-2*t112*t31*t32*t454-1.03 10866 : 0176d-2*gammaaa*t112*t18*t29*t30*t454-1.030176d-2*t112* 10867 ; t25*t26*t27*t454-4.5629629629629626d+1*gammaaa*t23*t33* 10868 < t453-4.5629629629629626d+1*gammaaa*t28*t29*t30*t453-3.2 10869 = 798617527638757d-6*t31*t32*t450*t452-3.2798617527638757 10870 > d-6*gammaaa*t18*t29*t30*t450*t452-3.2798617527638757d-6 10871 ? *t25*t26*t27*t450*t452-8.199654381909689d-7*t220*t30*t3 10872 @ 4*t450-8.199654381909689d-7*gammaaa*t18*t220*t33*t450+1 10873 1 .591893886464d-4*t111*t112*t222*t30*t34+4.120704d-2*gam 10874 2 maaa*t110*t222*t28*t33-1.5109248d-1*gammaaa*t111*t221*t 10875 3 28*t33+1.591893886464d-4*gammaaa*t111*t112*t18*t222*t33 10876 4 -4.245050363904d-4*gammaaa*t110*t112*t217*t33+4.7756816 10877 5 593920004d-4*t111*t220*t222*t31*t32-1.777777777777778d+ 10878 6 2*t113*t208*t28*t31-6.867840000000001d-1*t111*t112*t208 10879 7 *t27*t31+4.7756816593920004d-4*gammaaa*t111*t18*t220*t2 10880 8 22*t29*t30+8.241408d-2*gammaaa*t110*t112*t222*t29*t30-3 10881 9 .0218496d-1*gammaaa*t111*t112*t221*t29*t30-1.2735151091 10882 : 712002d-3*gammaaa*t110*t217*t220*t29*t30+4.775681659392 10883 ; 0004d-4*t111*t220*t222*t25*t26*t27-1.0439116799999999d+ 10884 < 0*t111*t112*t223*t25*t26+1.6482816d-1*t112*t113*t222*t2 10885 = 5*t26-2.5470302183424004d-3*t113*t217*t220*t25*t26)+1.0 10886 > d+0*rhoa*t17*t35*t460-2.5d-1*gammaaa*t14*t16*t35*t451+3 10887 ? .0d+0*t17*t238*t35+2.5d-1*gammaaa*t15*t16*t238*t35+2.5d 10888 @ -1*gammaaa*t124*t16*t218*t35+3.0d+0*rhoa*t114*t17*t238+ 10889 1 3.0d+0*t14*t17*t224+3.0d+0*rhoa*t124*t17*t224+2.5d-1*ga 10890 2 mmaaa*t14*t15*t16*t224+2.5d-1*gammaaa*t114*t14*t16*t218 10891 3 +6.0d+0*t114*t124*t17+5.0d-1*gammaaa*t114*t124*t15*t16) 10892 4 +t102*(-3.04966d-3*t109*t454*t96-3.04966d-3*t111*t242*t 10893 5 96-6.09932d-3*t127*t222*t96-6.09932d-3*t111*t324-3.0496 10894 6 6d-3*t109*t111*t323-3.04966d-3*t169*t222-6.09932d-3*t10 10895 7 9*t168*t222-6.09932d-3*t111*t127*t168)+t126*(3.72017044 10896 8 624d-5*t109*t111*t222*t96+1.86008522312d-5*t127*t217*t9 10897 9 6-6.09932d-3*t111*t325+1.86008522312d-5*t109*t168*t217) 10898 : -1.7017882504620419d-7*t109*t241*t450*t96+t28*(-5.15088 10899 ; d-3*rhoa*t14*t17*t35*t454-5.15088d-3*rhoa*t111*t17*t238 10900 < *t35-1.030176d-2*t14*t17*t222*t35-1.030176d-2*rhoa*t124 10901 = *t17*t222*t35-6.4386d-4*gammaaa*t14*t15*t16*t222*t35-6. 10902 > 4386d-4*gammaaa*t111*t14*t16*t218*t35-1.030176d-2*t111* 10903 ? t124*t17*t35-6.4386d-4*gammaaa*t111*t124*t15*t16*t35-1. 10904 @ 030176d-2*t111*t239-5.15088d-3*rhoa*t111*t14*t17*t224-1 10905 1 .030176d-2*rhoa*t114*t14*t17*t222-5.15088d-3*t125*t222- 10906 2 1.030176d-2*t111*t114*t14*t17-1.030176d-2*rhoa*t111*t11 10907 3 4*t124*t17-6.4386d-4*gammaaa*t111*t114*t14*t15*t16)+2.5 10908 4 d-1*gammaaa*t14*t16*t23*t35*t451-8.199654381909689d-7*r 10909 5 hoa*t14*t17*t220*t35*t450+t15*t16*t23*(1.25d-1*gammaaa* 10910 6 t238*t35+1.25d-1*gammaaa*t14*t224+2.5d-1*gammaaa*t114*t 10911 7 124)+t112*(1.061262590976d-4*rhoa*t111*t14*t17*t222*t35 10912 8 +5.30631295488d-5*t14*t17*t217*t35+5.30631295488d-5*rho 10913 9 a*t124*t17*t217*t35-1.030176d-2*t111*t240+5.30631295488 10914 : d-5*rhoa*t114*t14*t17*t217)+t15*t16*t28*(-1.28772d-3*ga 10915 ; mmaaa*t14*t222*t35-1.28772d-3*gammaaa*t111*t124*t35-5.1 10916 < 5088d-3*t111*t219-1.28772d-3*gammaaa*t111*t114*t14)+t16 10917 = *t218*t23*(-2.5d-1*gammaaa*t124*t35-2.5d-1*gammaaa*t114 10918 > *t14)+1.93158d-3*gammaaa*t111*t14*t16*t218*t28*t35+1.98 10919 ? 98673580800003d-5*gammaaa*t112*t14*t15*t16*t217*t35)*wg 10920 @ ht+Amat3(iq,D3_RA_RA_RA) 10921 Amat3(iq,D3_RA_RA_RB) = (t98*(1.0d+0*t96*(-2.7108088888888 10922 1 89d-1*t105*t111*t126*t18*t53*taua*taub-5.92592592592592 10923 2 7d+1*t102*t105*t110*t53*taua*taub-3.7201704462400004d-4 10924 3 *t104*t105*t217*t241*t53*taub-1.8600852231200002d-4*t10 10925 4 0*t103*t217*t241*t53*taub+4.066213333333334d-2*t104*t10 10926 5 5*t126*t222*t53*taub+2.033106666666667d-2*t100*t103*t12 10927 6 6*t222*t53*taub+1.0165533333333335d-2*t102*t108*t222*t5 10928 7 3*taub-3.2592592592592595d+1*gammaaa*t102*t103*t221*t53 10929 8 *taub-6.200284077066667d-5*t108*t126*t217*t53*taub-1.08 10930 9 43235555555555d-1*gammaaa*t103*t110*t111*t126*t53*taub- 10931 : 7.440340892480001d-4*t104*t105*t111*t171*t18*t241*taua- 10932 ; 3.7201704462400004d-4*t100*t103*t111*t171*t18*t241*taua 10933 < -1.2400568154133336d-4*t108*t111*t126*t171*t18*taua-1.0 10934 = 843235555555555d-1*gammabb*t103*t111*t126*t170*t18*taua 10935 > -1.0843235555555557d-1*gammaaa*t103*t113*t126*t171*taua 10936 ? -1.0843235555555557d-1*t104*t105*t110*t126*t171*taua-5. 10937 @ 421617777777779d-2*t100*t103*t110*t126*t171*taua-2.7108 10938 1 08888888889d-2*t102*t108*t110*t171*taua-2.3703703703703 10939 2 702d+1*gammabb*t102*t103*t110*t170*taua-6.8071530018481 10940 3 67d-7*t101*t171*t217*t461*t99-8.674588444444443d-2*t126 10941 4 *t171*t223*t26*t99+5.580255669360001d-5*t101*t171*t222* 10942 5 t241*t99-2.976136356992001d-4*gammabb*t100*t170*t217*t2 10943 6 41*t99-5.952272713984d-4*gammaaa*t100*t110*t111*t171*t2 10944 7 41*t99+3.2529706666666663d-2*gammabb*t100*t126*t170*t22 10945 8 2*t99-1.1927559111111112d-1*gammaaa*t100*t126*t171*t221 10946 9 *t99-5.214814814814814d+1*gammaaa*gammabb*t102*t170*t22 10947 : 1*t99-1.7349176888888887d-1*gammaaa*gammabb*t110*t111*t 10948 ; 126*t170*t99-6.807153001848167d-7*t105*t106*t171*t217*t 10949 < 461-6.807153001848167d-7*t100*t103*t104*t171*t217*t461- 10950 = 1.3554044444444446d-1*t105*t126*t171*t208*t27+5.5802556 10951 > 69360001d-5*t105*t106*t171*t222*t241+5.580255669360001d 10952 ? -5*t100*t103*t104*t171*t222*t241-1.7017882504620419d-7* 10953 @ t104*t108*t171*t217*t241-1.7017882504620419d-7*t100*t10 10954 1 7*t171*t217*t241-1.4880681784960004d-4*gammabb*t103*t10 10955 2 4*t170*t217*t241-2.976136356992d-4*gammaaa*t103*t104*t1 10956 3 10*t111*t171*t241+1.86008522312d-5*t104*t108*t126*t171* 10957 4 t222+1.86008522312d-5*t100*t107*t126*t171*t222+1.626485 10958 5 3333333332d-2*gammabb*t103*t104*t126*t170*t222+8.132426 10959 6 666666667d-3*gammabb*t102*t107*t170*t222-5.963779555555 10960 7 556d-2*gammaaa*t103*t104*t126*t171*t221-2.9818897777777 10961 8 78d-2*gammaaa*t102*t107*t171*t221-4.9602272616533327d-5 10962 9 *gammabb*t107*t126*t170*t217-9.920454523306665d-5*gamma 10963 : aa*t107*t110*t111*t126*t171)+1.0d+0*t109*(t65*(-4.78463 10964 ; 74908957684d+0*t156*t301*t74*t91*t94-5.980796863619711d 10965 < -2*t557*t69*t70*t91*t94-4.7846374908957684d-1*t156*t327 10966 = *t70*t91*t94-7.176956236343652d-1*t189*t304*t70*t91*t94 10967 > +1.4353912472687305d+0*t152*t304*t70*t91*t94+2.39231874 10968 ? 54478842d-1*t156*t297*t70*t91*t94-1.1961593727239421d+0 10969 @ *t189*t301*t69*t91*t94-2.3923187454478842d+0*t152*t301* 10970 1 t69*t91*t94+2.3923187454478842d-1*t154*t297*t69*t91*t94 10971 2 +1.9138549963583074d+0*t154*t156*t189*t91*t94-9.4872698 10972 3 26154375d-2*t156*t317*t74*t94-3.049479586978192d-2*t165 10973 4 *t304*t74*t94-2.3718174565385935d-2*t189*t317*t69*t94-4 10974 5 .743634913077187d-2*t152*t317*t69*t94+2.541232989148493 10975 6 d-3*t165*t297*t69*t94+2.0329863913187946d-2*t156*t165*t 10976 7 189*t94+7.694644203726144d+0*t141*t142*t156*t282*t70*t7 10977 8 4*t91-1.538928840745229d+1*t142*t156*t274*t279*t70*t74* 10978 9 t91+2.4749022066811444d+2*t156*t274*t275*t276*t70*t74*t 10979 : 91-6.155715362980916d+1*t140*t141*t142*t154*t156*t74*t9 10980 ; 1+1.923661050931536d+0*t140*t141*t142*t297*t69*t70*t91+ 10981 < 1.923661050931536d+0*t141*t142*t189*t282*t69*t70*t91+3. 10982 = 847322101863072d+0*t141*t142*t152*t282*t69*t70*t91-3.84 10983 > 7322101863072d+0*t142*t189*t274*t279*t69*t70*t91-7.6946 10984 ? 44203726144d+0*t142*t152*t274*t279*t69*t70*t91+6.187255 10985 @ 516702861d+1*t189*t274*t275*t276*t69*t70*t91+1.23745110 10986 1 33405722d+2*t152*t274*t275*t276*t69*t70*t91+1.538928840 10987 2 745229d+1*t140*t141*t142*t156*t189*t70*t91-1.5389288407 10988 3 45229d+1*t140*t141*t142*t154*t189*t69*t91-3.07785768149 10989 4 0458d+1*t140*t141*t142*t152*t154*t69*t91+1.975163132168 10990 5 0768d-2*(t568+t567+t566+t565+t564+t563+t562+t561+t560+t 10991 6 559+t558+1.923661050931536d+0*t557+t556+t555+t537)*t85* 10992 7 t89-4.5437964274821163d-4*t130*t310*t89+6.0583952366428 10993 8 22d-4*t194*t260*t89+1.2116790473285642d-3*t161*t260*t89 10994 9 -5.848223622634647d-1*t136*t137*t138*t310*t85-5.8482236 10995 : 22634647d-1*t137*t138*t194*t272*t85-1.1696447245269295d 10996 ; +0*t137*t138*t161*t272*t85+1.1696447245269295d+0*t138*t 10997 < 194*t264*t269*t85+2.339289449053859d+0*t138*t161*t264*t 10998 = 269*t85-1.73158960813529d+1*t194*t264*t265*t266*t85-3.4 10999 > 6317921627058d+1*t161*t264*t265*t266*t85-6.21814d-2*(t5 11000 ? 68+t567+t566+t565+t564+t563+t562+t561+t560+t559+t558+t5 11001 @ 56+t555+t537)*t67*t83+2.747773264188437d-3*t130*t306*t8 11002 1 3-3.663697685584583d-3*t192*t260*t83-7.327395371169166d 11003 2 -3*t158*t260*t83-6.538889093261956d-1*t140*t141*t142*t1 11004 3 56*t165*t74-1.6347222733154887d-1*t140*t141*t142*t165*t 11005 4 189*t69-3.2694445466309774d-1*t140*t141*t142*t152*t165* 11006 5 t69+1.0d+0*t132*t133*t134*t306*t67+1.0d+0*t133*t134*t19 11007 6 2*t262*t67+2.0d+0*t133*t134*t158*t262*t67-2.0d+0*t134*t 11008 7 192*t250*t255*t67-4.0d+0*t134*t158*t250*t255*t67+1.6081 11009 8 979498692536d+1*t192*t250*t251*t252*t67+3.2163958997385 11010 9 07d+1*t158*t250*t251*t252*t67+t573+t572+t571+t570+t569+ 11011 : t554+t553+t552+t551+t550+t544+t542+t541+t522+t520+t519+ 11012 ; t518+t517+t516+t515+t514+t513+t512+t511+t510+t509+t508+ 11013 < t507+t505+t504+t503+t502+t501+t500+t499+t498+t497+t496+ 11014 = t494+t489+t488+t487+t486+t485+t484+t483+t482+t481+2.690 11015 > 728393099896d-2*t130*t136*t137*t138*t194-8.837926660346 11016 ? 784d-2*t130*t132*t133*t134*t192+5.381456786199792d-2*t1 11017 @ 30*t136*t137*t138*t161-1.767585332069357d-1*t130*t132*t 11018 1 133*t134*t158)-4.7846374908957684d-1*t156*t189*t70*t91* 11019 2 t94+9.569274981791537d-1*t152*t154*t69*t91*t94+1.016493 11020 3 1956593973d-2*t152*t165*t69*t94+7.694644203726144d+0*t1 11021 4 40*t141*t142*t152*t69*t70*t91-1.8175185709928465d-3*t13 11022 5 0*t161*t89-2.339289449053859d+0*t136*t137*t138*t161*t85 11023 6 +1.099109305675375d-2*t130*t158*t83+4.0d+0*t132*t133*t1 11024 7 34*t158*t67+t549+t548+t547+t478+t477+t476+t475+t474+t47 11025 8 3+t472+t471+t470+t469+t468+t467+t466+t465+t464+t463+t46 11026 9 2+t386+t385+t383+t380+t367+t366+t365+t336+t321+t319+t31 11027 : 4+t311+t307+t285)+2.0d+0*t127*t337+2.0d+0*t168*t326+1.0 11028 ; d+0*t186*t323+1.0d+0*t197*t242)+t102*(-3.04966d-3*t111* 11029 < t326*t96-3.04966d-3*t186*t222*t96-3.04966d-3*t111*t338- 11030 = 3.04966d-3*t109*t111*t337-3.04966d-3*t171*t324-3.04966d 11031 > -3*t109*t197*t222-3.04966d-3*t111*t127*t197-3.04966d-3* 11032 ? t111*t168*t186)+t126*(1.86008522312d-5*t186*t217*t96-6. 11033 @ 09932d-3*t171*t325+1.86008522312d-5*t109*t197*t217)-1.7 11034 1 017882504620419d-7*t109*t171*t217*t241*t96)*wght+Amat3( 11035 2 iq,D3_RA_RA_RB) 11036 Amat3(iq,D3_RA_RB_RB) = (t98*(1.0d+0*t96*(-2.7108088888888 11037 1 89d-1*t105*t126*t171*t18*t53*taua*taub-5.92592592592592 11038 2 7d+1*t102*t105*t170*t18*taua*taub-7.440340892480001d-4* 11039 3 t104*t105*t111*t171*t241*t53*taub-3.7201704462400004d-4 11040 4 *t100*t103*t111*t171*t241*t53*taub-1.2400568154133336d- 11041 5 4*t108*t111*t126*t171*t53*taub-1.0843235555555555d-1*ga 11042 6 mmaaa*t103*t110*t126*t171*t53*taub-1.0843235555555555d- 11043 7 1*gammabb*t103*t111*t126*t173*taub-1.0843235555555555d- 11044 8 1*t104*t105*t111*t126*t170*taub-5.421617777777777d-2*t1 11045 9 00*t103*t111*t126*t170*taub-2.7108088888888887d-2*t102* 11046 : t108*t111*t170*taub-2.3703703703703702d+1*gammaaa*t102* 11047 ; t103*t110*t170*taub+4.066213333333334d-2*t104*t105*t126 11048 < *t18*t345*taua+2.033106666666667d-2*t100*t103*t126*t18* 11049 = t345*taua+1.0165533333333335d-2*t102*t108*t18*t345*taua 11050 > -3.2592592592592595d+1*gammabb*t102*t103*t18*t344*taua- 11051 ? 3.7201704462400004d-4*t104*t105*t18*t241*t340*taua-1.86 11052 @ 00852231200002d-4*t100*t103*t18*t241*t340*taua-6.200284 11053 1 077066668d-5*t108*t126*t18*t340*taua-1.0843235555555555 11054 2 d-1*gammabb*t103*t126*t170*t171*t18*taua-8.674588444444 11055 3 443d-2*t111*t126*t346*t59*t99-6.807153001848167d-7*t101 11056 4 *t111*t340*t461*t99+5.580255669360001d-5*t101*t111*t241 11057 5 *t345*t99+3.2529706666666663d-2*gammaaa*t100*t110*t126* 11058 6 t345*t99-1.1927559111111109d-1*gammabb*t100*t111*t126*t 11059 7 344*t99-5.214814814814814d+1*gammaaa*gammabb*t102*t110* 11060 8 t344*t99-2.976136356992d-4*gammaaa*t100*t110*t241*t340* 11061 9 t99-5.952272713984001d-4*gammabb*t100*t111*t170*t171*t2 11062 : 41*t99-1.7349176888888887d-1*gammaaa*gammabb*t110*t126* 11063 ; t170*t171*t99-1.3554044444444446d-1*t105*t111*t126*t214 11064 < *t60-6.807153001848167d-7*t105*t106*t111*t340*t461-6.80 11065 = 7153001848167d-7*t100*t103*t104*t111*t340*t461+5.580255 11066 > 669360001d-5*t105*t106*t111*t241*t345+5.580255669360001 11067 ? d-5*t100*t103*t104*t111*t241*t345+1.86008522312d-5*t104 11068 @ *t108*t111*t126*t345+1.86008522312d-5*t100*t107*t111*t1 11069 1 26*t345+1.6264853333333332d-2*gammaaa*t103*t104*t110*t1 11070 2 26*t345+8.132426666666667d-3*gammaaa*t102*t107*t110*t34 11071 3 5-5.963779555555555d-2*gammabb*t103*t104*t111*t126*t344 11072 4 -2.9818897777777775d-2*gammabb*t102*t107*t111*t344-1.70 11073 5 17882504620419d-7*t104*t108*t111*t241*t340-1.7017882504 11074 6 620419d-7*t100*t107*t111*t241*t340-1.488068178496d-4*ga 11075 7 mmaaa*t103*t104*t110*t241*t340-4.9602272616533327d-5*ga 11076 8 mmaaa*t107*t110*t126*t340-2.976136356992001d-4*gammabb* 11077 9 t103*t104*t111*t170*t171*t241-9.920454523306665d-5*gamm 11078 : abb*t107*t111*t126*t170*t171)+1.0d+0*t109*(t65*(4.78463 11079 ; 74908957684d+0*t156*t301*t74*t91*t94-5.980796863619711d 11080 < -2*t574*t69*t70*t91*t94-2.3923187454478842d-1*t156*t373 11081 = *t70*t91*t94+4.7846374908957684d-1*t156*t327*t70*t91*t9 11082 > 4+1.4353912472687305d+0*t189*t304*t70*t91*t94-7.1769562 11083 ? 36343652d-1*t152*t304*t70*t91*t94+2.3923187454478842d-1 11084 @ *t154*t373*t69*t91*t94-2.3923187454478842d+0*t189*t301* 11085 1 t69*t91*t94-1.1961593727239421d+0*t152*t301*t69*t91*t94 11086 2 -1.9138549963583074d+0*t152*t154*t156*t91*t94+9.4872698 11087 3 26154374d-2*t156*t317*t74*t94-3.0494795869781915d-2*t16 11088 4 5*t304*t74*t94+2.541232989148493d-3*t165*t373*t69*t94-4 11089 5 .743634913077187d-2*t189*t317*t69*t94-2.371817456538593 11090 6 5d-2*t152*t317*t69*t94-2.0329863913187946d-2*t152*t156* 11091 7 t165*t94-7.694644203726144d+0*t141*t142*t156*t282*t70*t 11092 8 74*t91+1.538928840745229d+1*t142*t156*t274*t279*t70*t74 11093 9 *t91-2.4749022066811444d+2*t156*t274*t275*t276*t70*t74* 11094 : t91+6.155715362980916d+1*t140*t141*t142*t154*t156*t74*t 11095 ; 91+1.923661050931536d+0*t140*t141*t142*t373*t69*t70*t91 11096 < +3.847322101863072d+0*t141*t142*t189*t282*t69*t70*t91+1 11097 = .923661050931536d+0*t141*t142*t152*t282*t69*t70*t91-7.6 11098 > 94644203726144d+0*t142*t189*t274*t279*t69*t70*t91-3.847 11099 ? 322101863072d+0*t142*t152*t274*t279*t69*t70*t91+1.23745 11100 @ 11033405722d+2*t189*t274*t275*t276*t69*t70*t91+6.187255 11101 1 516702861d+1*t152*t274*t275*t276*t69*t70*t91-1.53892884 11102 2 0745229d+1*t140*t141*t142*t152*t156*t70*t91-3.077857681 11103 3 490458d+1*t140*t141*t142*t154*t189*t69*t91-1.5389288407 11104 4 45229d+1*t140*t141*t142*t152*t154*t69*t91+1.97516313216 11105 5 80768d-2*(t584+t583+t582+t581+t580+t579+t578+t577+t576+ 11106 6 t575+1.923661050931536d+0*t574+t567+t555+t540+t537)*t85 11107 7 *t89-4.5437964274821163d-4*t130*t381*t89+1.211679047328 11108 8 5642d-3*t194*t260*t89+6.058395236642822d-4*t161*t260*t8 11109 9 9-5.848223622634647d-1*t136*t137*t138*t381*t85-1.169644 11110 : 7245269295d+0*t137*t138*t194*t272*t85-5.848223622634647 11111 ; d-1*t137*t138*t161*t272*t85+2.339289449053859d+0*t138*t 11112 < 194*t264*t269*t85+1.1696447245269295d+0*t138*t161*t264* 11113 = t269*t85-3.46317921627058d+1*t194*t264*t265*t266*t85-1. 11114 > 73158960813529d+1*t161*t264*t265*t266*t85-6.21814d-2*(t 11115 ? 584+t583+t582+t581+t580+t579+t578+t577+t576+t575+t567+t 11116 @ 555+t540+t537)*t67*t83+2.747773264188437d-3*t130*t378*t 11117 1 83-7.327395371169166d-3*t192*t260*t83-3.663697685584583 11118 2 d-3*t158*t260*t83+6.538889093261955d-1*t140*t141*t142*t 11119 3 156*t165*t74-3.2694445466309774d-1*t140*t141*t142*t165* 11120 4 t189*t69-1.6347222733154887d-1*t140*t141*t142*t152*t165 11121 5 *t69+1.0d+0*t132*t133*t134*t378*t67+2.0d+0*t133*t134*t1 11122 6 92*t262*t67+1.0d+0*t133*t134*t158*t262*t67-4.0d+0*t134* 11123 7 t192*t250*t255*t67-2.0d+0*t134*t158*t250*t255*t67+3.216 11124 8 395899738507d+1*t192*t250*t251*t252*t67+1.6081979498692 11125 9 536d+1*t158*t250*t251*t252*t67+t572+t571+t570+t569+t554 11126 : +t553+t552+t551+t550+t546+t544+t542+t541+t522+t520+t519 11127 ; +t518+t517+t516+t515+t514+t513+t512+t511+t510+t509+t508 11128 < +t507+t505+t504+t503+t502+t501+t500+t499+t498+t497+t496 11129 = +t494+t489+t488+t487+t486+t485+t484+t483+t482+t481+5.38 11130 > 1456786199792d-2*t130*t136*t137*t138*t194-1.76758533206 11131 ? 9357d-1*t130*t132*t133*t134*t192+2.690728393099896d-2*t 11132 @ 130*t136*t137*t138*t161-8.837926660346784d-2*t130*t132* 11133 1 t133*t134*t158)+4.7846374908957684d-1*t152*t156*t70*t91 11134 2 *t94+9.569274981791537d-1*t154*t189*t69*t91*t94+1.01649 11135 3 31956593973d-2*t165*t189*t69*t94+7.694644203726144d+0*t 11136 4 140*t141*t142*t189*t69*t70*t91-1.8175185709928465d-3*t1 11137 5 30*t194*t89-2.339289449053859d+0*t136*t137*t138*t194*t8 11138 6 5+1.099109305675375d-2*t130*t192*t83+4.0d+0*t132*t133*t 11139 7 134*t192*t67+t549+t548+t547+t478+t477+t476+t475+t474+t4 11140 8 73+t472+t471+t470+t469+t468+t467+t466+t465+t464+t463+t4 11141 9 62+t388+t387+t384+t382+t379+t368+t336+t316+t315+t312+t3 11142 : 08+t278+t268+t254)+1.0d+0*t127*t389+1.0d+0*t168*t364+2. 11143 ; 0d+0*t186*t337+2.0d+0*t197*t326)+t102*(-3.04966d-3*t111 11144 < *t364*t96-3.04966d-3*t109*t111*t389-3.04966d-3*t169*t34 11145 = 5-6.09932d-3*t171*t338-6.09932d-3*t111*t186*t197)+t126* 11146 > (1.86008522312d-5*t109*t111*t345*t96+1.86008522312d-5*t 11147 ? 111*t171*t186*t96-6.09932d-3*t171*t339+1.86008522312d-5 11148 @ *t109*t111*t171*t197)-1.7017882504620419d-7*t109*t111*t 11149 1 241*t340*t96)*wght+Amat3(iq,D3_RA_RB_RB) 11150 Amat3(iq,D3_RB_RB_RB) = (t98*(1.0d+0*t96*(-3.2592592592592 11151 1 595d+1*t108*t344*t98*taub+1.2198640000000001d-1*t104*t1 11152 2 05*t126*t345*t53*taub+6.09932d-2*t100*t103*t126*t345*t5 11153 3 3*taub+3.04966d-2*t102*t108*t345*t53*taub-1.11605113387 11154 4 20001d-3*t104*t105*t241*t340*t53*taub-5.58025566936d-4* 11155 5 t100*t103*t241*t340*t53*taub-1.8600852231200002d-4*t108 11156 6 *t126*t340*t53*taub-1.6888888888888892d+2*gammabb*t102* 11157 7 t103*t346*taub-6.518518518518519d+1*t102*t104*t105*t344 11158 8 *taub-3.2592592592592595d+1*t100*t102*t103*t344*taub-3. 11159 9 252970666666667d-1*gammabb*t103*t126*t171*t173*taub-3.2 11160 : 52970666666667d-1*t104*t105*t126*t170*t171*taub-1.62648 11161 ; 53333333334d-1*t100*t103*t126*t170*t171*taub-8.13242666 11162 < 6666668d-2*t102*t108*t170*t171*taub-1.5644444444444447d 11163 = +2*t102*t59*t590*t99-2.602376533333333d-1*t126*t171*t34 11164 > 6*t59*t99-6.09932d-3*t101*t126*t589*t99-9.1259259259259 11165 ? 25d+1*gammabb*t100*t102*t588*t99-6.807153001848167d-7*t 11166 @ 101*t461*t585*t99+1.6740767008080004d-4*t101*t171*t241* 11167 1 t345*t99+9.758912d-2*gammabb*t100*t126*t170*t345*t99-3. 11168 2 578267733333333d-1*gammabb*t100*t126*t171*t344*t99-8.92 11169 3 8409070976d-4*gammabb*t100*t170*t241*t340*t99-4.5629629 11170 4 629629626d+1*gammabb*t107*t588*t98-4.066213333333334d-1 11171 5 *t105*t126*t171*t214*t60-6.09932d-3*t105*t106*t126*t589 11172 6 -6.09932d-3*t100*t103*t104*t126*t589-3.04966d-3*t102*t1 11173 7 04*t108*t589-3.04966d-3*t100*t102*t107*t589-4.562962962 11174 8 9629626d+1*gammabb*t102*t103*t104*t588-6.80715300184816 11175 9 7d-7*t105*t106*t461*t585-6.807153001848167d-7*t100*t103 11176 : *t104*t461*t585-1.7017882504620419d-7*t104*t108*t241*t5 11177 ; 85-1.7017882504620419d-7*t100*t107*t241*t585+1.67407670 11178 < 08080004d-4*t105*t106*t171*t241*t345+1.6740767008080004 11179 = d-4*t100*t103*t104*t171*t241*t345+5.580255669359999d-5* 11180 > t104*t108*t126*t171*t345+5.580255669359999d-5*t100*t107 11181 ? *t126*t171*t345+4.879456d-2*gammabb*t103*t104*t126*t170 11182 @ *t345+2.439728d-2*gammabb*t102*t107*t170*t345-1.7891338 11183 1 666666665d-1*gammabb*t103*t104*t126*t171*t344-8.9456693 11184 2 33333333d-2*gammabb*t102*t107*t171*t344-4.464204535488d 11185 3 -4*gammabb*t103*t104*t170*t241*t340-1.4880681784959998d 11186 4 -4*gammabb*t107*t126*t170*t340-1.777777777777778d+2*t10 11187 5 2*t105*t173*t214)+1.0d+0*t109*(t65*(1.4353912472687305d 11188 6 +1*t156*t301*t74*t91*t94-5.980796863619711d-2*t596*t69* 11189 7 t70*t91*t94+7.176956236343652d-1*t156*t373*t70*t91*t94- 11190 8 2.1530868709030954d+0*t189*t304*t70*t91*t94+7.176956236 11191 9 343652d-1*t154*t373*t69*t91*t94-3.588478118171826d+0*t1 11192 : 89*t301*t69*t91*t94-5.741564989074922d+0*t154*t156*t189 11193 ; *t91*t94+2.8461809478463124d-1*t156*t317*t74*t94+7.6236 11194 < 98967445479d-3*t165*t373*t69*t94-7.11545236961578d-2*t1 11195 = 89*t317*t69*t94-6.098959173956384d-2*t156*t165*t189*t94 11196 > -2.3083932611178434d+1*t141*t142*t156*t282*t70*t74*t91+ 11197 ? 4.616786522235687d+1*t142*t156*t274*t279*t70*t74*t91-7. 11198 @ 424706620043432d+2*t156*t274*t275*t276*t70*t74*t91+1.84 11199 1 67146088942746d+2*t140*t141*t142*t154*t156*t74*t91+5.77 11200 2 0983152794609d+0*t140*t141*t142*t373*t69*t70*t91+5.7709 11201 3 83152794609d+0*t141*t142*t189*t282*t69*t70*t91-1.154196 11202 4 6305589217d+1*t142*t189*t274*t279*t69*t70*t91+1.8561766 11203 5 55010858d+2*t189*t274*t275*t276*t69*t70*t91-4.616786522 11204 6 235687d+1*t140*t141*t142*t156*t189*t70*t91-4.6167865222 11205 7 35687d+1*t140*t141*t142*t154*t189*t69*t91+1.97516313216 11206 8 80768d-2*(t603+t602+t601+t600+t599+t598+t597+1.92366105 11207 9 0931536d+0*t596+t568+t539+t537)*t85*t89-1.3631389282446 11208 : 35d-3*t130*t381*t89+1.8175185709928465d-3*t194*t260*t89 11209 ; -1.7544670867903941d+0*t136*t137*t138*t381*t85-1.754467 11210 < 0867903941d+0*t137*t138*t194*t272*t85+3.508934173580788 11211 = 3d+0*t138*t194*t264*t269*t85-5.19476882440587d+1*t194*t 11212 > 264*t265*t266*t85-6.21814d-2*(t603+t602+t601+t600+t599+ 11213 ? t598+t597+t568+t539+t537)*t67*t83+8.243319792565312d-3* 11214 @ t130*t378*t83-1.099109305675375d-2*t192*t260*t83+1.9616 11215 1 667279785865d+0*t140*t141*t142*t156*t165*t74-4.90416681 11216 2 9946466d-1*t140*t141*t142*t165*t189*t69+3.0d+0*t132*t13 11217 3 3*t134*t378*t67+3.0d+0*t133*t134*t192*t262*t67-6.0d+0*t 11218 4 134*t192*t250*t255*t67+4.824593849607761d+1*t192*t250*t 11219 5 251*t252*t67+t573+t545+t544+t543+t542+t541+t522+t521+t5 11220 6 20+t519+t518+t517+t516+t515+t514+t513+t512+t511+t510+t5 11221 7 09+t508+t507+t505+t504+t503+t502+t501+t500+t499+t498+t4 11222 8 97+t496+t494+t489+t488+t487+t486+t485+t484+t483+t482+t4 11223 9 81+8.072185179299687d-2*t130*t136*t137*t138*t194-2.6513 11224 : 779981040353d-1*t130*t132*t133*t134*t192)-5.74156498907 11225 ; 4922d+0*t154*t156*t74*t91*t94-1.794239059085913d-1*t373 11226 < *t69*t70*t91*t94+1.4353912472687305d+0*t156*t189*t70*t9 11227 = 1*t94+1.4353912472687305d+0*t154*t189*t69*t91*t94-6.098 11228 > 959173956384d-2*t156*t165*t74*t94+1.524739793489096d-2* 11229 ? t165*t189*t69*t94-4.616786522235687d+1*t140*t141*t142*t 11230 @ 156*t70*t74*t91+1.1541966305589217d+1*t140*t141*t142*t1 11231 1 89*t69*t70*t91+5.92548939650423d-2*t381*t85*t89-2.72627 11232 2 785648927d-3*t130*t194*t89-3.5089341735807883d+0*t136*t 11233 3 137*t138*t194*t85-1.865442d-1*t378*t67*t83+1.6486639585 11234 4 130625d-2*t130*t192*t83+6.0d+0*t132*t133*t134*t192*t67- 11235 5 rhob*t595-3.3306690738754696d-16*t175*t180*t355*t48+6.6 11236 6 61338147750939d-16*t175*t349*t351*t48-5.356375176299456 11237 7 d-15*t348*t349*t350*t48+t479+t478+t477+t476+t475+t474+t 11238 8 473+t472+t471+t470+1.2202564577405706d-18*t353*t47+t469 11239 9 +t468+t467+t466+t465+t464+t463+t462-3.0d+0*t181*t183*t3 11240 : 60*t44+6.0d+0*t181*t357*t359*t44-9.649187699215522d+1*t 11241 ; 356*t357*t358*t44+5.284159572535705d-3*t353*t43+2.54939 11242 < 2377400174d-1*t177*t181*t182*t183+2.943620900479655d-17 11243 = *t175*t177*t179*t180)+3.0d+0*t186*t389+3.0d+0*t197*t364 11244 > )+t58*(1.0d+0*rhob*t49*t52*(-6.518518518518519d+1*t31*t 11245 ? 344*t61*t62*taub+2.060352d-1*t172*t31*t345*t53*t62*taub 11246 @ -3.183787772928d-3*t31*t340*t343*t53*t62*taub-5.494272d 11247 1 -1*t170*t171*t172*t31*t62*taub+5.15088d-2*t34*t345*t53* 11248 2 t61*taub-2.0148148148148146d+2*gammabb*t29*t346*t61*tau 11249 3 b-1.373568d-1*t170*t171*t34*t61*taub+1.030176d-1*gammab 11250 4 b*t172*t29*t345*t60*taub-1.591893886464d-3*gammabb*t29* 11251 5 t340*t343*t60*taub-3.2592592592592595d+1*t34*t344*t58*t 11252 6 aub-5.30631295488d-4*t172*t34*t340*t53*taub-8.241408d-1 11253 7 *gammabb*t171*t172*t173*t29*taub-1.030176d-2*t172*t31*t 11254 8 589*t63-3.2798617527638757d-6*t31*t585*t587*t63+4.77568 11255 9 16593920004d-4*t171*t31*t343*t345*t63-5.15088d-3*t34*t5 11256 : 89*t61*t62-4.5629629629629626d+1*gammabb*t29*t588*t61*t 11257 ; 62-1.030176d-2*gammabb*t172*t29*t53*t589*t62-3.27986175 11258 < 27638757d-6*gammabb*t29*t53*t585*t587*t62-8.19965438190 11259 = 9689d-7*t34*t343*t585*t62+4.7756816593920004d-4*gammabb 11260 > *t171*t29*t343*t345*t53*t62+1.591893886464d-4*t171*t172 11261 ? *t34*t345*t62+8.241408d-2*gammabb*t170*t172*t29*t345*t6 11262 @ 2-3.0218496d-1*gammabb*t171*t172*t29*t344*t62-1.2735151 11263 1 091712002d-3*gammabb*t170*t29*t340*t343*t62-2.477037037 11264 2 037037d+2*t25*t59*t590*t61-5.15088d-3*gammabb*t33*t53*t 11265 3 589*t61+4.120704d-2*gammabb*t170*t33*t345*t61-1.5109248 11266 4 d-1*gammabb*t171*t33*t344*t61-1.777777777777778d+2*t173 11267 5 *t214*t31*t61-1.030176d-2*t172*t25*t589*t59*t60-3.27986 11268 6 17527638757d-6*t25*t585*t587*t59*t60+4.7756816593920004 11269 7 d-4*t171*t25*t343*t345*t59*t60-6.867840000000001d-1*t17 11270 8 1*t172*t214*t31*t60-1.0439116799999999d+0*t171*t172*t25 11271 9 *t346*t59+1.6482816d-1*t172*t173*t25*t345*t59-2.5470302 11272 : 183424004d-3*t173*t25*t340*t343*t59-4.5629629629629626d 11273 ; +1*gammabb*t33*t58*t588-8.199654381909689d-7*gammabb*t3 11274 < 3*t343*t53*t585+1.591893886464d-4*gammabb*t171*t172*t33 11275 = *t345*t53-4.245050363904d-4*gammabb*t170*t172*t33*t340) 11276 > +1.0d+0*rhob*t52*t595*t64-2.5d-1*gammabb*t49*t51*t586*t 11277 ? 64+3.0d+0*t361*t52*t64+2.5d-1*gammabb*t361*t50*t51*t64+ 11278 @ 2.5d-1*gammabb*t184*t341*t51*t64+3.0d+0*t347*t49*t52+3. 11279 1 0d+0*rhob*t174*t361*t52+3.0d+0*rhob*t184*t347*t52+6.0d+ 11280 2 0*t174*t184*t52+2.5d-1*gammabb*t347*t49*t50*t51+5.0d-1* 11281 3 gammabb*t174*t184*t50*t51+2.5d-1*gammabb*t174*t341*t49* 11282 4 t51)+t102*(-3.04966d-3*t109*t589*t96-3.04966d-3*t171*t3 11283 5 64*t96-6.09932d-3*t186*t345*t96-6.09932d-3*t171*t390-3. 11284 6 04966d-3*t109*t171*t389-3.04966d-3*t198*t345-6.09932d-3 11285 7 *t109*t197*t345-6.09932d-3*t171*t186*t197)+t126*(3.7201 11286 8 7044624d-5*t109*t171*t345*t96+1.86008522312d-5*t186*t34 11287 9 0*t96-6.09932d-3*t171*t391+1.86008522312d-5*t109*t197*t 11288 : 340)-1.7017882504620419d-7*t109*t241*t585*t96+t61*(-5.1 11289 ; 5088d-3*rhob*t49*t52*t589*t64-1.030176d-2*t345*t49*t52* 11290 < t64-5.15088d-3*rhob*t171*t361*t52*t64-1.030176d-2*rhob* 11291 = t184*t345*t52*t64-1.030176d-2*t171*t184*t52*t64-6.4386d 11292 > -4*gammabb*t345*t49*t50*t51*t64-6.4386d-4*gammabb*t171* 11293 ? t184*t50*t51*t64-6.4386d-4*gammabb*t171*t341*t49*t51*t6 11294 @ 4-5.15088d-3*rhob*t171*t347*t49*t52-1.030176d-2*rhob*t1 11295 1 74*t345*t49*t52-1.030176d-2*t171*t174*t49*t52-1.030176d 11296 2 -2*rhob*t171*t174*t184*t52-6.4386d-4*gammabb*t171*t174* 11297 3 t49*t50*t51-1.030176d-2*t171*t362-5.15088d-3*t185*t345) 11298 4 +t172*(1.061262590976d-4*rhob*t171*t345*t49*t52*t64+5.3 11299 5 0631295488d-5*t340*t49*t52*t64+5.30631295488d-5*rhob*t1 11300 6 84*t340*t52*t64+5.30631295488d-5*rhob*t174*t340*t49*t52 11301 7 -1.030176d-2*t171*t363)+t50*t51*t61*(-1.28772d-3*gammab 11302 8 b*t345*t49*t64-1.28772d-3*gammabb*t171*t184*t64-1.28772 11303 9 d-3*gammabb*t171*t174*t49-5.15088d-3*t171*t342)+t50*t51 11304 : *t58*(1.25d-1*gammabb*t361*t64+1.25d-1*gammabb*t347*t49 11305 ; +2.5d-1*gammabb*t174*t184)+t341*t51*t58*(-2.5d-1*gammab 11306 < b*t184*t64-2.5d-1*gammabb*t174*t49)+1.93158d-3*gammabb* 11307 = t171*t341*t49*t51*t61*t64+2.5d-1*gammabb*t49*t51*t58*t5 11308 > 86*t64-8.199654381909689d-7*rhob*t343*t49*t52*t585*t64+ 11309 ? 1.9898673580800003d-5*gammabb*t172*t340*t49*t50*t51*t64 11310 @ )*wght+Amat3(iq,D3_RB_RB_RB) 11311 Cmat3(iq,D3_RA_RA_GAA) = (t23*(1.0d+0*rhoa*t14*t17*(-4.578 11312 1 56d-1*gammaaa*t112*t29*t393*taua-1.373568d-1*t113*t28*t 11313 2 34*taua-3.53754196992d-4*t111*t112*t27*t34*taua-2.12252 11314 3 5181952d-3*t111*t220*t27*t30*t31*taua-5.494272d-1*t112* 11315 4 t113*t30*t31*taua+2.6666666666666666d+1*t113*t28*t29*ta 11316 5 ua+6.867840000000001d-2*t111*t112*t27*t29*taua-1.061262 11317 6 590976d-3*gammaaa*t111*t199*t220*t29*taua-7.4172672d-1* 11318 7 t112*t25*t26*t605-3.2798617527638757d-6*t18*t217*t31*t3 11319 8 2*t452-3.2798617527638757d-6*gammaaa*t217*t27*t29*t30*t 11320 9 452-3.2798617527638757d-6*t199*t217*t25*t26*t452-2.5470 11321 : 302183424004d-3*t111*t220*t25*t26*t393-5.036416d-2*t221 11322 ; *t28*t30*t34+5.30631295488d-5*t112*t18*t222*t30*t34-8.1 11323 < 99654381909689d-7*t18*t217*t220*t30*t34-2.830033575936d 11324 = -4*t110*t111*t112*t30*t34-1.7398528000000002d-1*gammaaa 11325 > *t223*t28*t33-5.15088d-3*t18*t222*t28*t33+2.747136d-2*t 11326 ? 110*t111*t28*t33+5.30631295488d-5*gammaaa*t112*t222*t27 11327 @ *t33-8.199654381909689d-7*gammaaa*t217*t220*t27*t33+9.7 11328 1 77777777777779d+0*t221*t23*t33+5.30631295488d-5*t112*t1 11329 2 8*t217*t33-5.660067151872d-4*gammaaa*t111*t112*t113*t33 11330 3 +1.591893886464d-4*t18*t220*t222*t31*t32-1.007283200000 11331 4 0001d-1*t112*t221*t31*t32-8.490100727808d-4*t110*t111*t 11332 5 220*t31*t32-2.2892800000000002d-1*t112*t199*t208*t31+9. 11333 6 777777777777779d+0*t221*t28*t29*t30+1.591893886464d-4*g 11334 7 ammaaa*t220*t222*t27*t29*t30-3.4797056000000004d-1*gamm 11335 8 aaa*t112*t223*t29*t30-1.030176d-2*t112*t18*t222*t29*t30 11336 9 +1.591893886464d-4*t18*t217*t220*t29*t30-1.698020145561 11337 : 6d-3*gammaaa*t111*t113*t220*t29*t30+5.494272d-2*t110*t1 11338 ; 11*t112*t29*t30+6.755555555555556d+1*gammaaa*t223*t25*t 11339 < 28-2.060352d-2*gammaaa*t112*t222*t25*t27+3.183787772928 11340 = d-4*gammaaa*t217*t220*t25*t27+1.591893886464d-4*t199*t2 11341 > 20*t222*t25*t26+2.1977088d-1*gammaaa*t111*t112*t113*t25 11342 ? )+2.0d+0*t14*t17*t394+2.0d+0*rhoa*t124*t17*t394+1.25d-1 11343 @ *gammaaa*t14*t15*t16*t394-1.25d-1*t16*t238*t35+1.25d-1* 11344 1 t14*t16*t218*t35-1.25d-1*t124*t15*t16*t35+1.0d+0*rhoa*t 11345 2 17*t200*t238-1.25d-1*t14*t16*t224+1.25d-1*gammaaa*t14*t 11346 3 16*t200*t218+2.0d+0*t124*t17*t200+1.25d-1*gammaaa*t124* 11347 4 t15*t16*t200-1.25d-1*t114*t14*t15*t16-2.5d-1*t114*t124* 11348 5 t16)+t98*(1.0d+0*t96*(-1.0843235555555557d-1*gammaaa*t1 11349 6 03*t126*t393*taua-7.440340892480001d-4*t104*t105*t111*t 11350 7 241*t27*taua-3.7201704462400004d-4*t100*t103*t111*t241* 11351 8 t27*taua-1.2400568154133336d-4*t108*t111*t126*t27*taua+ 11352 9 4.066213333333334d-2*t103*t111*t126*t27*taua-3.25297066 11353 : 6666667d-1*t104*t105*t113*t126*taua-1.6264853333333334d 11354 ; -1*t100*t103*t113*t126*taua-8.132426666666668d-2*t102*t 11355 < 108*t113*taua+2.6666666666666666d+1*t102*t103*t113*taua 11356 = -8.674588444444443d-2*t126*t26*t605*t99-6.8071530018481 11357 > 67d-7*t101*t18*t217*t461*t99+5.580255669360001d-5*t101* 11358 ? t18*t222*t241*t99+1.1160511338720001d-4*t100*t18*t217*t 11359 @ 241*t99-5.952272713984d-4*gammaaa*t100*t111*t113*t241*t 11360 1 99-2.976136356992001d-4*t101*t110*t111*t241*t99-2.92767 11361 2 36d-1*gammaaa*t100*t126*t223*t99+48*gammaaa*t102*t223*t 11362 3 99-1.219864d-2*t100*t126*t18*t222*t99-5.963779555555556 11363 4 d-2*t101*t126*t221*t99+1.9555555555555557d+1*t100*t102* 11364 5 t221*t99+6.505941333333333d-2*gammaaa*t111*t113*t126*t9 11365 6 9+6.505941333333333d-2*t100*t110*t111*t126*t99+9.777777 11366 7 777777779d+0*t107*t221*t98-6.807153001848167d-7*t105*t1 11367 8 06*t18*t217*t461-6.807153001848167d-7*t100*t103*t104*t1 11368 9 8*t217*t461+5.580255669360001d-5*t105*t106*t18*t222*t24 11369 : 1+5.580255669360001d-5*t100*t103*t104*t18*t222*t241-1.7 11370 ; 017882504620419d-7*t104*t108*t18*t217*t241-1.7017882504 11371 < 620419d-7*t100*t107*t18*t217*t241+5.580255669360001d-5* 11372 = t103*t104*t18*t217*t241-2.976136356992d-4*gammaaa*t103* 11373 > t104*t111*t113*t241-2.976136356992001d-4*t105*t106*t110 11374 ? *t111*t241-2.976136356992001d-4*t100*t103*t104*t110*t11 11375 @ 1*t241-1.4638368d-1*gammaaa*t103*t104*t126*t223-7.31918 11376 1 4d-2*gammaaa*t102*t107*t223+1.86008522312d-5*t104*t108* 11377 2 t126*t18*t222+1.86008522312d-5*t100*t107*t126*t18*t222- 11378 3 6.09932d-3*t103*t104*t126*t18*t222-3.04966d-3*t102*t107 11379 4 *t18*t222-5.963779555555556d-2*t105*t106*t126*t221-5.96 11380 5 3779555555556d-2*t100*t103*t104*t126*t221-2.98188977777 11381 6 7778d-2*t102*t104*t108*t221-2.981889777777778d-2*t100*t 11382 7 102*t107*t221+9.777777777777779d+0*t102*t103*t104*t221+ 11383 8 1.86008522312d-5*t107*t126*t18*t217-1.3554044444444446d 11384 9 -1*t105*t126*t199*t208-9.920454523306665d-5*gammaaa*t10 11385 : 7*t111*t113*t126-9.920454523306665d-5*t104*t108*t110*t1 11386 ; 11*t126-9.920454523306665d-5*t100*t107*t110*t111*t126+3 11387 < .2529706666666663d-2*t103*t104*t110*t111*t126+1.6264853 11388 = 333333332d-2*t102*t107*t110*t111)+2.0d+0*t168*t397+1.0d 11389 > +0*t201*t323)+t102*(-3.04966d-3*t111*t397*t96-3.04966d- 11390 ? 3*t201*t222*t96-2.981889777777778d-2*t109*t221*t96+8.13 11391 @ 2426666666667d-3*t110*t127*t96-3.04966d-3*t111*t398-3.0 11392 1 4966d-3*t111*t168*t201+8.132426666666667d-3*t110*t169+8 11393 2 .132426666666667d-3*t109*t110*t168)-1.7017882504620419d 11394 3 -7*t109*t18*t217*t241*t96+1.86008522312d-5*t126*t201*t2 11395 4 17*t96-9.920454523306665d-5*t109*t110*t111*t126*t96+t16 11396 5 *t218*t23*t604+t28*(-5.15088d-3*t111*t395-5.15088d-3*rh 11397 6 oa*t111*t14*t17*t394+6.4386d-4*t14*t16*t222*t35+1.37356 11398 7 8d-2*t124*t17*t18*t35-3.662848000000001d-2*t110*t14*t17 11399 8 *t35+6.4386d-4*t111*t14*t15*t16*t35+6.4386d-4*t111*t124 11400 9 *t16*t35-5.15088d-3*rhoa*t14*t17*t200*t222-5.15088d-3*t 11401 : 111*t14*t17*t200-5.15088d-3*rhoa*t111*t124*t17*t200+1.3 11402 ; 73568d-2*t114*t14*t17*t18+6.4386d-4*t111*t114*t14*t16+1 11403 < .373568d-2*t110*t125)+t15*t16*t23*(1.25d-1*gammaaa*t14* 11404 = t394+1.25d-1*t124*t35+1.25d-1*gammaaa*t124*t200+1.25d-1 11405 > *t114*t14)+t112*t18*(-2.830033575936d-4*t111*t14*t17*t3 11406 ? 5-1.030176d-2*t240)+t15*t16*t28*(-1.28772d-3*t111*t14*t 11407 @ 35-1.28772d-3*gammaaa*t111*t14*t200)+4.07778d-3*gammaaa 11408 1 *t14*t16*t221*t28*t35-8.199654381909689d-7*t14*t17*t20* 11409 2 t217*t220*t35-6.6328911936d-6*t112*t14*t16*t217*t35+1.3 11410 3 2657823872d-5*gammaaa*t110*t111*t112*t14*t16*t35-6.0993 11411 4 2d-3*t126*t18*t325-3.04966d-3*t102*t18*t324-5.15088d-3* 11412 5 t18*t239*t28-5.15088d-3*t110*t16*t219*t28+5.30631295488 11413 6 d-5*rhoa*t112*t14*t17*t200*t217)*wght+Cmat3(iq,D3_RA_RA 11414 7 _GAA) 11415 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 11416 Cmat3(iq,D3_RA_RA_GBB) = (t98*(1.0d+0*t96*(-7.440340892480 11417 1 001d-4*t104*t105*t111*t18*t241*t53*taua-3.7201704462400 11418 2 004d-4*t100*t103*t111*t18*t241*t53*taua-1.2400568154133 11419 3 336d-4*t108*t111*t126*t18*t53*taua+4.066213333333334d-2 11420 4 *t103*t111*t126*t18*t53*taua-1.0843235555555557d-1*gamm 11421 5 aaa*t103*t113*t126*t53*taua-1.0843235555555557d-1*t104* 11422 6 t105*t110*t126*t53*taua-5.421617777777779d-2*t100*t103* 11423 7 t110*t126*t53*taua-2.710808888888889d-2*t102*t108*t110* 11424 8 t53*taua+8.88888888888889d+0*t102*t103*t110*t53*taua-6. 11425 9 807153001848167d-7*t101*t217*t461*t53*t99-8.67458844444 11426 : 4443d-2*t126*t223*t26*t53*t99+5.580255669360001d-5*t101 11427 ; *t222*t241*t53*t99+1.1160511338720001d-4*t100*t217*t241 11428 < *t53*t99-5.952272713984d-4*gammaaa*t100*t110*t111*t241* 11429 = t53*t99-1.219864d-2*t100*t126*t222*t53*t99-1.1927559111 11430 > 111112d-1*gammaaa*t100*t126*t221*t53*t99+1.955555555555 11431 ? 5557d+1*gammaaa*t102*t221*t53*t99+6.505941333333333d-2* 11432 @ gammaaa*t110*t111*t126*t53*t99-6.807153001848167d-7*t10 11433 1 5*t106*t217*t461*t53-6.807153001848167d-7*t100*t103*t10 11434 2 4*t217*t461*t53-1.3554044444444446d-1*t105*t126*t208*t2 11435 3 7*t53+5.580255669360001d-5*t105*t106*t222*t241*t53+5.58 11436 4 0255669360001d-5*t100*t103*t104*t222*t241*t53-1.7017882 11437 5 504620419d-7*t104*t108*t217*t241*t53-1.7017882504620419 11438 6 d-7*t100*t107*t217*t241*t53+5.580255669360001d-5*t103*t 11439 7 104*t217*t241*t53-2.976136356992d-4*gammaaa*t103*t104*t 11440 8 110*t111*t241*t53+1.86008522312d-5*t104*t108*t126*t222* 11441 9 t53+1.86008522312d-5*t100*t107*t126*t222*t53-6.09932d-3 11442 : *t103*t104*t126*t222*t53-3.04966d-3*t102*t107*t222*t53- 11443 ; 5.963779555555556d-2*gammaaa*t103*t104*t126*t221*t53-2. 11444 < 981889777777778d-2*gammaaa*t102*t107*t221*t53+1.8600852 11445 = 2312d-5*t107*t126*t217*t53-9.920454523306665d-5*gammaaa 11446 > *t107*t110*t111*t126*t53)+2.0d+0*t168*t399+1.0d+0*t204* 11447 ? t323)+t102*(-3.04966d-3*t111*t399*t96-3.04966d-3*t204*t 11448 @ 222*t96-3.04966d-3*t111*t400-3.04966d-3*t111*t168*t204) 11449 1 -1.7017882504620419d-7*t109*t217*t241*t53*t96+1.8600852 11450 2 2312d-5*t126*t204*t217*t96-6.09932d-3*t126*t325*t53-3.0 11451 3 4966d-3*t102*t324*t53)*wght+Cmat3(iq,D3_RA_RA_GBB) 11452 Cmat3(iq,D3_RA_RB_GAA) = (t98*(1.0d+0*t96*(-1.355404444444 11453 1 4446d-1*t105*t126*t27*t53*taua*taub-3.7201704462400004d 11454 2 -4*t104*t105*t111*t18*t241*t53*taub-1.8600852231200002d 11455 3 -4*t100*t103*t111*t18*t241*t53*taub-6.200284077066668d- 11456 4 5*t108*t111*t126*t18*t53*taub+2.033106666666667d-2*t103 11457 5 *t111*t126*t18*t53*taub-5.421617777777779d-2*gammaaa*t1 11458 6 03*t113*t126*t53*taub-1.0843235555555555d-1*t104*t105*t 11459 7 110*t126*t53*taub-5.421617777777777d-2*t100*t103*t110*t 11460 8 126*t53*taub-2.7108088888888887d-2*t102*t108*t110*t53*t 11461 9 aub+8.88888888888889d+0*t102*t103*t110*t53*taub-3.72017 11462 : 04462400004d-4*t104*t105*t171*t241*t27*taua-1.860085223 11463 ; 1200002d-4*t100*t103*t171*t241*t27*taua-6.2002840770666 11464 < 68d-5*t108*t126*t171*t27*taua+2.033106666666667d-2*t103 11465 = *t126*t171*t27*taua-5.421617777777779d-2*gammabb*t103*t 11466 > 126*t170*t27*taua-6.807153001848167d-7*t101*t111*t171*t 11467 ? 18*t461*t99+1.1160511338720001d-4*t100*t111*t171*t18*t2 11468 @ 41*t99-2.976136356992d-4*gammabb*t100*t111*t170*t18*t24 11469 1 1*t99-2.976136356992d-4*gammaaa*t100*t113*t171*t241*t99 11470 2 -1.4880681784960004d-4*t101*t110*t171*t241*t99+3.252970 11471 3 6666666663d-2*gammabb*t111*t126*t170*t18*t99+3.25297066 11472 4 66666663d-2*gammaaa*t113*t126*t171*t99+3.25297066666666 11473 5 63d-2*t100*t110*t126*t171*t99-8.674588444444443d-2*gamm 11474 6 aaa*gammabb*t113*t126*t170*t99-8.674588444444443d-2*gam 11475 7 mabb*t100*t110*t126*t170*t99+1.4222222222222222d+1*gamm 11476 8 abb*t102*t110*t170*t99-6.807153001848167d-7*t105*t106*t 11477 9 111*t171*t18*t461-6.807153001848167d-7*t100*t103*t104*t 11478 : 111*t171*t18*t461-1.7017882504620419d-7*t104*t108*t111* 11479 ; t171*t18*t241-1.7017882504620419d-7*t100*t107*t111*t171 11480 < *t18*t241+5.580255669360001d-5*t103*t104*t111*t171*t18* 11481 = t241-1.488068178496d-4*gammabb*t103*t104*t111*t170*t18* 11482 > t241-1.488068178496d-4*gammaaa*t103*t104*t113*t171*t241 11483 ? -1.4880681784960004d-4*t105*t106*t110*t171*t241-1.48806 11484 @ 81784960004d-4*t100*t103*t104*t110*t171*t241+1.86008522 11485 1 312d-5*t107*t111*t126*t171*t18-4.9602272616533327d-5*ga 11486 2 mmabb*t107*t111*t126*t170*t18-4.9602272616533327d-5*gam 11487 3 maaa*t107*t113*t126*t171-4.9602272616533327d-5*t104*t10 11488 4 8*t110*t126*t171-4.9602272616533327d-5*t100*t107*t110*t 11489 5 126*t171+1.6264853333333332d-2*t103*t104*t110*t126*t171 11490 6 +8.132426666666667d-3*t102*t107*t110*t171-4.33729422222 11491 7 22216d-2*gammabb*t103*t104*t110*t126*t170-2.16864711111 11492 8 11108d-2*gammabb*t102*t107*t110*t170)+1.0d+0*t168*t401+ 11493 9 1.0d+0*t197*t397+1.0d+0*t201*t337)+t102*(-3.04966d-3*t1 11494 : 11*t401*t96+8.132426666666667d-3*t110*t186*t96-3.04966d 11495 ; -3*t171*t398-3.04966d-3*t111*t197*t201+8.13242666666666 11496 < 7d-3*t109*t110*t197)-1.7017882504620419d-7*t109*t111*t1 11497 = 71*t18*t241*t96+1.86008522312d-5*t111*t126*t171*t201*t9 11498 > 6-4.9602272616533327d-5*t109*t110*t126*t171*t96-6.09932 11499 ? d-3*t126*t18*t339-3.04966d-3*t102*t18*t338)*wght+Cmat3( 11500 @ iq,D3_RA_RB_GAA) 11501 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 11502 Cmat3(iq,D3_RA_RB_GBB) = (t98*(1.0d+0*t96*(-1.355404444444 11503 1 4446d-1*t105*t126*t18*t60*taua*taub-3.7201704462400004d 11504 2 -4*t104*t105*t111*t241*t60*taub-1.8600852231200002d-4*t 11505 3 100*t103*t111*t241*t60*taub-6.200284077066668d-5*t108*t 11506 4 111*t126*t60*taub+2.033106666666667d-2*t103*t111*t126*t 11507 5 60*taub-5.421617777777779d-2*gammaaa*t103*t110*t126*t60 11508 6 *taub-3.7201704462400004d-4*t104*t105*t171*t18*t241*t53 11509 7 *taua-1.8600852231200002d-4*t100*t103*t171*t18*t241*t53 11510 8 *taua-6.200284077066668d-5*t108*t126*t171*t18*t53*taua+ 11511 9 2.033106666666667d-2*t103*t126*t171*t18*t53*taua-5.4216 11512 : 17777777779d-2*gammabb*t103*t126*t173*t18*taua-1.084323 11513 ; 5555555555d-1*t104*t105*t126*t170*t18*taua-5.4216177777 11514 < 77777d-2*t100*t103*t126*t170*t18*taua-2.710808888888888 11515 = 7d-2*t102*t108*t170*t18*taua+8.88888888888889d+0*t102*t 11516 > 103*t170*t18*taua-6.807153001848167d-7*t101*t111*t171*t 11517 ? 461*t53*t99+1.1160511338720001d-4*t100*t111*t171*t241*t 11518 @ 53*t99-2.976136356992d-4*gammaaa*t100*t110*t171*t241*t5 11519 1 3*t99+3.2529706666666663d-2*gammaaa*t110*t126*t171*t53* 11520 2 t99-2.976136356992d-4*gammabb*t100*t111*t173*t241*t99-1 11521 3 .4880681784960004d-4*t101*t111*t170*t241*t99+3.25297066 11522 4 66666663d-2*gammabb*t111*t126*t173*t99-8.67458844444444 11523 5 3d-2*gammaaa*gammabb*t110*t126*t173*t99+3.2529706666666 11524 6 663d-2*t100*t111*t126*t170*t99-8.674588444444443d-2*gam 11525 7 maaa*t100*t110*t126*t170*t99+1.4222222222222222d+1*gamm 11526 8 aaa*t102*t110*t170*t99-6.807153001848167d-7*t105*t106*t 11527 9 111*t171*t461*t53-6.807153001848167d-7*t100*t103*t104*t 11528 : 111*t171*t461*t53-1.7017882504620419d-7*t104*t108*t111* 11529 ; t171*t241*t53-1.7017882504620419d-7*t100*t107*t111*t171 11530 < *t241*t53+5.580255669360001d-5*t103*t104*t111*t171*t241 11531 = *t53-1.488068178496d-4*gammaaa*t103*t104*t110*t171*t241 11532 > *t53+1.86008522312d-5*t107*t111*t126*t171*t53-4.9602272 11533 ? 616533327d-5*gammaaa*t107*t110*t126*t171*t53-1.48806817 11534 @ 8496d-4*gammabb*t103*t104*t111*t173*t241-1.488068178496 11535 1 0004d-4*t105*t106*t111*t170*t241-1.4880681784960004d-4* 11536 2 t100*t103*t104*t111*t170*t241-4.9602272616533327d-5*gam 11537 3 mabb*t107*t111*t126*t173-4.9602272616533327d-5*t104*t10 11538 4 8*t111*t126*t170-4.9602272616533327d-5*t100*t107*t111*t 11539 5 126*t170+1.6264853333333332d-2*t103*t104*t111*t126*t170 11540 6 -4.3372942222222216d-2*gammaaa*t103*t104*t110*t126*t170 11541 7 +8.132426666666667d-3*t102*t107*t111*t170-2.16864711111 11542 8 11108d-2*gammaaa*t102*t107*t110*t170)+1.0d+0*t168*t408+ 11543 9 1.0d+0*t197*t399+1.0d+0*t204*t337)+t102*(-3.04966d-3*t1 11544 : 11*t408*t96-3.04966d-3*t171*t400-3.04966d-3*t111*t197*t 11545 ; 204+8.132426666666667d-3*t169*t170)-1.7017882504620419d 11546 < -7*t109*t111*t171*t241*t53*t96+1.86008522312d-5*t111*t1 11547 = 26*t171*t204*t96-4.9602272616533327d-5*t109*t111*t126*t 11548 > 170*t96-6.09932d-3*t126*t339*t53-3.04966d-3*t102*t338*t 11549 ? 53)*wght+Cmat3(iq,D3_RA_RB_GBB) 11550 Cmat3(iq,D3_RB_RB_GAA) = (t98*(1.0d+0*t96*(-7.440340892480 11551 1 001d-4*t104*t105*t171*t18*t241*t53*taub-3.7201704462400 11552 2 004d-4*t100*t103*t171*t18*t241*t53*taub-1.2400568154133 11553 3 336d-4*t108*t126*t171*t18*t53*taub+4.066213333333334d-2 11554 4 *t103*t126*t171*t18*t53*taub-1.0843235555555557d-1*gamm 11555 5 abb*t103*t126*t173*t18*taub-1.0843235555555557d-1*t104* 11556 6 t105*t126*t170*t18*taub-5.421617777777779d-2*t100*t103* 11557 7 t126*t170*t18*taub-2.710808888888889d-2*t102*t108*t170* 11558 8 t18*taub+8.88888888888889d+0*t102*t103*t170*t18*taub-8. 11559 9 674588444444443d-2*t126*t18*t346*t59*t99-6.807153001848 11560 : 167d-7*t101*t18*t340*t461*t99+5.580255669360001d-5*t101 11561 ; *t18*t241*t345*t99-1.219864d-2*t100*t126*t18*t345*t99-1 11562 < .1927559111111112d-1*gammabb*t100*t126*t18*t344*t99+1.9 11563 = 555555555555557d+1*gammabb*t102*t18*t344*t99+1.11605113 11564 > 38720001d-4*t100*t18*t241*t340*t99-5.952272713984d-4*ga 11565 ? mmabb*t100*t170*t171*t18*t241*t99+6.505941333333333d-2* 11566 @ gammabb*t126*t170*t171*t18*t99-1.3554044444444446d-1*t1 11567 1 05*t126*t18*t214*t60-6.807153001848167d-7*t105*t106*t18 11568 2 *t340*t461-6.807153001848167d-7*t100*t103*t104*t18*t340 11569 3 *t461+5.580255669360001d-5*t105*t106*t18*t241*t345+5.58 11570 4 0255669360001d-5*t100*t103*t104*t18*t241*t345+1.8600852 11571 5 2312d-5*t104*t108*t126*t18*t345+1.86008522312d-5*t100*t 11572 6 107*t126*t18*t345-6.09932d-3*t103*t104*t126*t18*t345-3. 11573 7 04966d-3*t102*t107*t18*t345-5.963779555555556d-2*gammab 11574 8 b*t103*t104*t126*t18*t344-2.981889777777778d-2*gammabb* 11575 9 t102*t107*t18*t344-1.7017882504620419d-7*t104*t108*t18* 11576 : t241*t340-1.7017882504620419d-7*t100*t107*t18*t241*t340 11577 ; +5.580255669360001d-5*t103*t104*t18*t241*t340+1.8600852 11578 < 2312d-5*t107*t126*t18*t340-2.976136356992d-4*gammabb*t1 11579 = 03*t104*t170*t171*t18*t241-9.920454523306665d-5*gammabb 11580 > *t107*t126*t170*t171*t18)+2.0d+0*t197*t401+1.0d+0*t201* 11581 ? t389)+t102*(-3.04966d-3*t171*t401*t96-3.04966d-3*t201*t 11582 @ 345*t96-3.04966d-3*t171*t402-3.04966d-3*t171*t197*t201) 11583 1 -1.7017882504620419d-7*t109*t18*t241*t340*t96+1.8600852 11584 2 2312d-5*t126*t201*t340*t96-6.09932d-3*t126*t18*t391-3.0 11585 3 4966d-3*t102*t18*t390)*wght+Cmat3(iq,D3_RB_RB_GAA) 11586 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 11587 Cmat3(iq,D3_RB_RB_GBB) = (t58*(1.0d+0*rhob*t49*t52*(-2.122 11588 1 525181952d-3*t171*t31*t343*t60*t62*taub-5.494272d-1*t17 11589 2 2*t173*t31*t62*taub-1.373568d-1*t173*t34*t61*taub+2.666 11590 3 6666666666666d+1*t173*t29*t61*taub-3.53754196992d-4*t17 11591 4 1*t172*t34*t60*taub+6.867840000000001d-2*t171*t172*t29* 11592 5 t60*taub-4.57856d-1*gammabb*t172*t29*t404*taub-1.061262 11593 6 590976d-3*gammabb*t171*t202*t29*t343*taub-3.27986175276 11594 7 38757d-6*t31*t340*t53*t587*t63+1.591893886464d-4*t31*t3 11595 8 43*t345*t53*t63-1.0072832000000001d-1*t172*t31*t344*t63 11596 9 -8.490100727808d-4*t170*t171*t31*t343*t63-5.036416d-2*t 11597 : 34*t344*t61*t62+9.777777777777779d+0*t29*t344*t61*t62-3 11598 ; .2798617527638757d-6*gammabb*t29*t340*t587*t60*t62+1.59 11599 < 1893886464d-4*gammabb*t29*t343*t345*t60*t62+5.306312954 11600 = 88d-5*t172*t34*t345*t53*t62-1.030176d-2*t172*t29*t345*t 11601 > 53*t62-8.199654381909689d-7*t34*t340*t343*t53*t62+1.591 11602 ? 893886464d-4*t29*t340*t343*t53*t62-3.4797056000000004d- 11603 @ 1*gammabb*t172*t29*t346*t62-1.6980201455616d-3*gammabb* 11604 1 t171*t173*t29*t343*t62-2.830033575936d-4*t170*t171*t172 11605 2 *t34*t62+5.494272d-2*t170*t171*t172*t29*t62-5.15088d-3* 11606 3 t33*t345*t53*t61-1.7398528000000002d-1*gammabb*t33*t346 11607 4 *t61+6.755555555555556d+1*gammabb*t25*t346*t61+2.747136 11608 5 d-2*t170*t171*t33*t61-7.4172672d-1*t172*t25*t59*t607+5. 11609 6 30631295488d-5*gammabb*t172*t33*t345*t60-2.060352d-2*ga 11610 7 mmabb*t172*t25*t345*t60-8.199654381909689d-7*gammabb*t3 11611 8 3*t340*t343*t60+3.183787772928d-4*gammabb*t25*t340*t343 11612 9 *t60-3.2798617527638757d-6*t202*t25*t340*t587*t59-2.547 11613 : 0302183424004d-3*t171*t25*t343*t404*t59+1.591893886464d 11614 ; -4*t202*t25*t343*t345*t59+9.777777777777779d+0*t33*t344 11615 < *t58+5.30631295488d-5*t172*t33*t340*t53-5.660067151872d 11616 = -4*gammabb*t171*t172*t173*t33-2.2892800000000002d-1*t17 11617 > 2*t202*t214*t31+2.1977088d-1*gammabb*t171*t172*t173*t25 11618 ? )-1.25d-1*t184*t50*t51*t64+1.25d-1*t341*t49*t51*t64-1.2 11619 @ 5d-1*t361*t51*t64+2.0d+0*t405*t49*t52+2.0d+0*rhob*t184* 11620 1 t405*t52+1.0d+0*rhob*t203*t361*t52+2.0d+0*t184*t203*t52 11621 2 +1.25d-1*gammabb*t405*t49*t50*t51-1.25d-1*t174*t49*t50* 11622 3 t51+1.25d-1*gammabb*t184*t203*t50*t51-1.25d-1*t347*t49* 11623 4 t51+1.25d-1*gammabb*t203*t341*t49*t51-2.5d-1*t174*t184* 11624 5 t51)+t98*(1.0d+0*t96*(-7.440340892480001d-4*t104*t105*t 11625 6 171*t241*t60*taub-3.7201704462400004d-4*t100*t103*t171* 11626 7 t241*t60*taub-1.2400568154133336d-4*t108*t126*t171*t60* 11627 8 taub+4.066213333333334d-2*t103*t126*t171*t60*taub-1.084 11628 9 3235555555557d-1*gammabb*t103*t126*t404*taub-3.25297066 11629 : 6666667d-1*t104*t105*t126*t173*taub-1.6264853333333334d 11630 ; -1*t100*t103*t126*t173*taub-8.132426666666668d-2*t102*t 11631 < 108*t173*taub+2.6666666666666666d+1*t102*t103*t173*taub 11632 = -8.674588444444443d-2*t126*t59*t607*t99-6.8071530018481 11633 > 67d-7*t101*t340*t461*t53*t99+5.580255669360001d-5*t101* 11634 ? t241*t345*t53*t99-1.219864d-2*t100*t126*t345*t53*t99+1. 11635 @ 1160511338720001d-4*t100*t241*t340*t53*t99-2.9276736d-1 11636 1 *gammabb*t100*t126*t346*t99+48*gammabb*t102*t346*t99-5. 11637 2 963779555555556d-2*t101*t126*t344*t99+1.955555555555555 11638 3 7d+1*t100*t102*t344*t99-5.952272713984d-4*gammabb*t100* 11639 4 t171*t173*t241*t99-2.976136356992001d-4*t101*t170*t171* 11640 5 t241*t99+6.505941333333333d-2*gammabb*t126*t171*t173*t9 11641 6 9+6.505941333333333d-2*t100*t126*t170*t171*t99+9.777777 11642 7 777777779d+0*t107*t344*t98-6.807153001848167d-7*t105*t1 11643 8 06*t340*t461*t53-6.807153001848167d-7*t100*t103*t104*t3 11644 9 40*t461*t53+5.580255669360001d-5*t105*t106*t241*t345*t5 11645 : 3+5.580255669360001d-5*t100*t103*t104*t241*t345*t53+1.8 11646 ; 6008522312d-5*t104*t108*t126*t345*t53+1.86008522312d-5* 11647 < t100*t107*t126*t345*t53-6.09932d-3*t103*t104*t126*t345* 11648 = t53-3.04966d-3*t102*t107*t345*t53-1.7017882504620419d-7 11649 > *t104*t108*t241*t340*t53-1.7017882504620419d-7*t100*t10 11650 ? 7*t241*t340*t53+5.580255669360001d-5*t103*t104*t241*t34 11651 @ 0*t53+1.86008522312d-5*t107*t126*t340*t53-1.4638368d-1* 11652 1 gammabb*t103*t104*t126*t346-7.319184d-2*gammabb*t102*t1 11653 2 07*t346-5.963779555555556d-2*t105*t106*t126*t344-5.9637 11654 3 79555555556d-2*t100*t103*t104*t126*t344-2.9818897777777 11655 4 78d-2*t102*t104*t108*t344-2.981889777777778d-2*t100*t10 11656 5 2*t107*t344+9.777777777777779d+0*t102*t103*t104*t344-2. 11657 6 976136356992d-4*gammabb*t103*t104*t171*t173*t241-2.9761 11658 7 36356992001d-4*t105*t106*t170*t171*t241-2.9761363569920 11659 8 01d-4*t100*t103*t104*t170*t171*t241-1.3554044444444446d 11660 9 -1*t105*t126*t202*t214-9.920454523306665d-5*gammabb*t10 11661 : 7*t126*t171*t173-9.920454523306665d-5*t104*t108*t126*t1 11662 ; 70*t171-9.920454523306665d-5*t100*t107*t126*t170*t171+3 11663 < .2529706666666663d-2*t103*t104*t126*t170*t171+1.6264853 11664 = 333333332d-2*t102*t107*t170*t171)+2.0d+0*t197*t408+1.0d 11665 > +0*t204*t389)+t102*(-3.04966d-3*t171*t408*t96-3.04966d- 11666 ? 3*t204*t345*t96-2.981889777777778d-2*t109*t344*t96+8.13 11667 @ 2426666666667d-3*t170*t186*t96-3.04966d-3*t171*t409-3.0 11668 1 4966d-3*t171*t197*t204+8.132426666666667d-3*t170*t198+8 11669 2 .132426666666667d-3*t109*t170*t197)-1.7017882504620419d 11670 3 -7*t109*t241*t340*t53*t96+1.86008522312d-5*t126*t204*t3 11671 4 40*t96-9.920454523306665d-5*t109*t126*t170*t171*t96+t61 11672 5 *(1.373568d-2*t184*t52*t53*t64-3.662848000000001d-2*t17 11673 6 0*t49*t52*t64+6.4386d-4*t171*t49*t50*t51*t64+6.4386d-4* 11674 7 t345*t49*t51*t64+6.4386d-4*t171*t184*t51*t64+1.373568d- 11675 8 2*t174*t49*t52*t53-5.15088d-3*rhob*t171*t405*t49*t52-5. 11676 9 15088d-3*rhob*t203*t345*t49*t52-5.15088d-3*t171*t203*t4 11677 : 9*t52-5.15088d-3*rhob*t171*t184*t203*t52+6.4386d-4*t171 11678 ; *t174*t49*t51-5.15088d-3*t171*t406+1.373568d-2*t170*t18 11679 < 5)+t172*t53*(-2.830033575936d-4*t171*t49*t52*t64-1.0301 11680 = 76d-2*t363)+t50*t51*t61*(-1.28772d-3*t171*t49*t64-1.287 11681 > 72d-3*gammabb*t171*t203*t49)+t50*t51*t58*(1.25d-1*t184* 11682 ? t64+1.25d-1*gammabb*t405*t49+1.25d-1*t174*t49+1.25d-1*g 11683 @ ammabb*t184*t203)+4.07778d-3*gammabb*t344*t49*t51*t61*t 11684 1 64-8.199654381909689d-7*t340*t343*t49*t52*t55*t64-6.632 11685 2 8911936d-6*t172*t340*t49*t51*t64+1.32657823872d-5*gamma 11686 3 bb*t170*t171*t172*t49*t51*t64-5.15088d-3*t362*t53*t61-5 11687 4 .15088d-3*t170*t342*t51*t61+t341*t51*t58*t606-6.09932d- 11688 5 3*t126*t391*t53-3.04966d-3*t102*t390*t53+5.30631295488d 11689 6 -5*rhob*t172*t203*t340*t49*t52)*wght+Cmat3(iq,D3_RB_RB_ 11690 7 GBB) 11691 Cmat3(iq,D3_RA_GAA_GAA) = (t23*(1.0d+0*rhoa*t14*t17*(-5.30 11692 1 631295488d-4*gammaaa*t220*t29*t410*taua-1.76877098496d- 11693 2 4*t112*t199*t34*taua-1.061262590976d-3*t199*t220*t30*t3 11694 3 1*taua+6.867840000000001d-2*t112*t199*t29*taua-3.279861 11695 4 7527638757d-6*t111*t25*t26*t410*t452-3.2798617527638757 11696 5 d-6*t111*t27*t31*t32*t452-3.2798617527638757d-6*gammaaa 11697 6 *t111*t199*t29*t30*t452-4.245050363904d-4*gammaaa*t112* 11698 7 t33*t393-1.2735151091712002d-3*gammaaa*t220*t29*t30*t39 11699 8 3+3.2965632d-1*gammaaa*t112*t25*t393-8.199654381909689d 11700 9 -7*t111*t220*t27*t30*t34-2.830033575936d-4*t112*t113*t3 11701 : 0*t34+5.494272d-2*t113*t28*t33+1.061262590976d-4*t111*t 11702 ; 112*t27*t33-8.199654381909689d-7*gammaaa*t111*t199*t220 11703 < *t33-8.490100727808d-4*t113*t220*t31*t32+3.183787772928 11704 = d-4*t111*t220*t27*t29*t30+1.0988544d-1*t112*t113*t29*t3 11705 > 0-1.0666666666666666d+1*t113*t25*t28-2.060352d-2*t111*t 11706 ? 112*t25*t27-1.6980201455616d-3*t220*t25*t26/rhoa**1.166 11707 @ 6666666666665d+1+6.367575545856d-4*gammaaa*t111*t199*t2 11708 1 20*t25)+1.0d+0*t14*t17*t411+1.0d+0*rhoa*t124*t17*t411-2 11709 2 .5d-1*t14*t16*t394-2.5d-1*t14*t15*t16*t200-2.5d-1*t124* 11710 3 t16*t200)+t98*(1.0d+0*t96*(-3.7201704462400004d-4*t104* 11711 4 t105*t199*t241*taua-1.8600852231200002d-4*t100*t103*t19 11712 5 9*t241*taua-6.200284077066668d-5*t108*t126*t199*taua+4. 11713 6 066213333333334d-2*t103*t126*t199*taua-6.80715300184816 11714 7 7d-7*t101*t111*t27*t461*t99-2.976136356992d-4*gammaaa*t 11715 8 100*t241*t393*t99+6.505941333333333d-2*gammaaa*t126*t39 11716 9 3*t99+2.2321022677440003d-4*t100*t111*t241*t27*t99-1.21 11717 : 9864d-2*t111*t126*t27*t99-2.976136356992001d-4*t101*t11 11718 ; 3*t241*t99+1.3011882666666666d-1*t100*t113*t126*t99-1.0 11719 < 666666666666666d+1*t102*t113*t99-6.807153001848167d-7*t 11720 = 105*t106*t111*t27*t461-6.807153001848167d-7*t100*t103*t 11721 > 104*t111*t27*t461-1.488068178496d-4*gammaaa*t103*t104*t 11722 ? 241*t393-4.9602272616533327d-5*gammaaa*t107*t126*t393-1 11723 @ .7017882504620419d-7*t104*t108*t111*t241*t27-1.70178825 11724 1 04620419d-7*t100*t107*t111*t241*t27+1.1160511338720001d 11725 2 -4*t103*t104*t111*t241*t27+3.72017044624d-5*t107*t111*t 11726 3 126*t27-2.976136356992001d-4*t105*t106*t113*t241-2.9761 11727 4 36356992001d-4*t100*t103*t104*t113*t241-9.9204545233066 11728 5 65d-5*t104*t108*t113*t126-9.920454523306665d-5*t100*t10 11729 6 7*t113*t126+6.505941333333333d-2*t103*t104*t113*t126+3. 11730 7 2529706666666663d-2*t102*t107*t113)+1.0d+0*t168*t412)-3 11731 8 .04966d-3*t102*t111*t412*t96-1.7017882504620419d-7*t109 11732 9 *t111*t241*t27*t96+3.72017044624d-5*t111*t126*t18*t201* 11733 : t96+1.6264853333333332d-2*t102*t110*t201*t96-9.92045452 11734 ; 3306665d-5*t109*t113*t126*t96+t18*t28*(t609-1.716960000 11735 < 0000002d-3*t14*t15*t16*t35+2.747136d-2*t14*t17*t200)+t1 11736 = 5*t16*t23*t608-5.15088d-3*rhoa*t111*t14*t17*t28*t411-6. 11737 > 09932d-3*t102*t18*t398+t112*t27*(-1.030176d-2*t396-1.41 11738 ? 5016787968d-4*t14*t17*t35)+t110*t16*t28*(-5.15088d-3*t3 11739 @ 92-2.3608200000000001d-3*t14*t35-6.4386d-4*gammaaa*t14* 11740 1 t200)-8.199654381909689d-7*t111*t14*t17*t206*t220*t35-1 11741 2 .32657823872d-5*t111*t112*t14*t16*t18*t35+6.6328911936d 11742 3 -6*gammaaa*t112*t113*t14*t16*t35+1.28772d-3*t111*t14*t1 11743 4 6*t200*t28+1.86008522312d-5*t126*t169*t27+1.06126259097 11744 5 6d-4*t111*t112*t14*t17*t20*t200)*wght+Cmat3(iq,D3_RA_GA 11745 6 A_GAA) 11746 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 11747 Cmat3(iq,D3_RA_GAA_GBB) = (t98*(1.0d+0*t96*(-3.72017044624 11748 1 00004d-4*t104*t105*t241*t27*t53*taua-1.8600852231200002 11749 2 d-4*t100*t103*t241*t27*t53*taua-6.200284077066668d-5*t1 11750 3 08*t126*t27*t53*taua+4.066213333333334d-2*t103*t126*t27 11751 4 *t53*taua-6.807153001848167d-7*t101*t111*t18*t461*t53*t 11752 5 99+2.2321022677440003d-4*t100*t111*t18*t241*t53*t99-2.9 11753 6 76136356992d-4*gammaaa*t100*t113*t241*t53*t99-1.4880681 11754 7 78496d-4*t101*t110*t241*t53*t99-1.219864d-2*t111*t126*t 11755 8 18*t53*t99+6.505941333333333d-2*gammaaa*t113*t126*t53*t 11756 9 99+6.505941333333333d-2*t100*t110*t126*t53*t99-5.333333 11757 : 333333333d+0*t102*t110*t53*t99-6.807153001848167d-7*t10 11758 ; 5*t106*t111*t18*t461*t53-6.807153001848167d-7*t100*t103 11759 < *t104*t111*t18*t461*t53-1.7017882504620419d-7*t104*t108 11760 = *t111*t18*t241*t53-1.7017882504620419d-7*t100*t107*t111 11761 > *t18*t241*t53+1.1160511338720001d-4*t103*t104*t111*t18* 11762 ? t241*t53-1.488068178496d-4*gammaaa*t103*t104*t113*t241* 11763 @ t53-1.488068178496d-4*t105*t106*t110*t241*t53-1.4880681 11764 1 78496d-4*t100*t103*t104*t110*t241*t53+3.72017044624d-5* 11765 2 t107*t111*t126*t18*t53-4.9602272616533327d-5*gammaaa*t1 11766 3 07*t113*t126*t53-4.9602272616533327d-5*t104*t108*t110*t 11767 4 126*t53-4.9602272616533327d-5*t100*t107*t110*t126*t53+3 11768 5 .2529706666666663d-2*t103*t104*t110*t126*t53+1.62648533 11769 6 33333332d-2*t102*t107*t110*t53)+1.0d+0*t168*t413)-1.701 11770 7 7882504620419d-7*t109*t111*t18*t241*t53*t96+1.860085223 11771 8 12d-5*t111*t126*t201*t53*t96-4.9602272616533327d-5*t109 11772 9 *t110*t126*t53*t96-3.04966d-3*t102*t111*t413*t96+1.8600 11773 : 8522312d-5*t111*t126*t18*t204*t96+8.132426666666667d-3* 11774 ; t102*t110*t204*t96-3.04966d-3*t102*t398*t53+1.860085223 11775 < 12d-5*t126*t169*t18*t53-3.04966d-3*t102*t18*t400)*wght+ 11776 = Cmat3(iq,D3_RA_GAA_GBB) 11777 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 11778 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 11779 Cmat3(iq,D3_RA_GBB_GBB) = (t98*(1.0d+0*t96*(-3.72017044624 11780 1 00004d-4*t104*t105*t18*t241*t60*taua-1.8600852231200002 11781 2 d-4*t100*t103*t18*t241*t60*taua-6.200284077066668d-5*t1 11782 3 08*t126*t18*t60*taua+4.066213333333334d-2*t103*t126*t18 11783 4 *t60*taua-6.807153001848167d-7*t101*t111*t461*t60*t99+2 11784 5 .2321022677440003d-4*t100*t111*t241*t60*t99-2.976136356 11785 6 992d-4*gammaaa*t100*t110*t241*t60*t99-1.219864d-2*t111* 11786 7 t126*t60*t99+6.505941333333333d-2*gammaaa*t110*t126*t60 11787 8 *t99-6.807153001848167d-7*t105*t106*t111*t461*t60-6.807 11788 9 153001848167d-7*t100*t103*t104*t111*t461*t60-1.70178825 11789 : 04620419d-7*t104*t108*t111*t241*t60-1.7017882504620419d 11790 ; -7*t100*t107*t111*t241*t60+1.1160511338720001d-4*t103*t 11791 < 104*t111*t241*t60-1.488068178496d-4*gammaaa*t103*t104*t 11792 = 110*t241*t60+3.72017044624d-5*t107*t111*t126*t60-4.9602 11793 > 272616533327d-5*gammaaa*t107*t110*t126*t60)+1.0d+0*t168 11794 ? *t416)-1.7017882504620419d-7*t109*t111*t241*t60*t96+3.7 11795 @ 2017044624d-5*t111*t126*t204*t53*t96-3.04966d-3*t102*t1 11796 1 11*t416*t96+1.86008522312d-5*t126*t169*t60-6.09932d-3*t 11797 2 102*t400*t53)*wght+Cmat3(iq,D3_RA_GBB_GBB) 11798 Cmat3(iq,D3_RB_GAA_GAA) = (t98*(1.0d+0*t96*(-3.72017044624 11799 1 00004d-4*t104*t105*t241*t27*t53*taub-1.8600852231200002 11800 2 d-4*t100*t103*t241*t27*t53*taub-6.200284077066668d-5*t1 11801 3 08*t126*t27*t53*taub+4.066213333333334d-2*t103*t126*t27 11802 4 *t53*taub-6.807153001848167d-7*t101*t171*t27*t461*t99+2 11803 5 .2321022677440003d-4*t100*t171*t241*t27*t99-2.976136356 11804 6 992d-4*gammabb*t100*t170*t241*t27*t99-1.219864d-2*t126* 11805 7 t171*t27*t99+6.505941333333333d-2*gammabb*t126*t170*t27 11806 8 *t99-6.807153001848167d-7*t105*t106*t171*t27*t461-6.807 11807 9 153001848167d-7*t100*t103*t104*t171*t27*t461-1.70178825 11808 : 04620419d-7*t104*t108*t171*t241*t27-1.7017882504620419d 11809 ; -7*t100*t107*t171*t241*t27+1.1160511338720001d-4*t103*t 11810 < 104*t171*t241*t27-1.488068178496d-4*gammabb*t103*t104*t 11811 = 170*t241*t27+3.72017044624d-5*t107*t126*t171*t27-4.9602 11812 > 272616533327d-5*gammabb*t107*t126*t170*t27)+1.0d+0*t197 11813 ? *t412)-3.04966d-3*t102*t171*t412*t96-1.7017882504620419 11814 @ d-7*t109*t171*t241*t27*t96+3.72017044624d-5*t126*t171*t 11815 1 18*t201*t96-6.09932d-3*t102*t18*t402+1.86008522312d-5*t 11816 2 126*t198*t27)*wght+Cmat3(iq,D3_RB_GAA_GAA) 11817 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 11818 Cmat3(iq,D3_RB_GAA_GBB) = (t98*(1.0d+0*t96*(-3.72017044624 11819 1 00004d-4*t104*t105*t18*t241*t60*taub-1.8600852231200002 11820 2 d-4*t100*t103*t18*t241*t60*taub-6.200284077066668d-5*t1 11821 3 08*t126*t18*t60*taub+4.066213333333334d-2*t103*t126*t18 11822 4 *t60*taub-6.807153001848167d-7*t101*t171*t18*t461*t53*t 11823 5 99+2.2321022677440003d-4*t100*t171*t18*t241*t53*t99-1.2 11824 6 19864d-2*t126*t171*t18*t53*t99-2.976136356992d-4*gammab 11825 7 b*t100*t173*t18*t241*t99-1.4880681784960004d-4*t101*t17 11826 8 0*t18*t241*t99+6.505941333333333d-2*gammabb*t126*t173*t 11827 9 18*t99+6.505941333333333d-2*t100*t126*t170*t18*t99-5.33 11828 : 3333333333333d+0*t102*t170*t18*t99-6.807153001848167d-7 11829 ; *t105*t106*t171*t18*t461*t53-6.807153001848167d-7*t100* 11830 < t103*t104*t171*t18*t461*t53-1.7017882504620419d-7*t104* 11831 = t108*t171*t18*t241*t53-1.7017882504620419d-7*t100*t107* 11832 > t171*t18*t241*t53+1.1160511338720001d-4*t103*t104*t171* 11833 ? t18*t241*t53+3.72017044624d-5*t107*t126*t171*t18*t53-1. 11834 @ 488068178496d-4*gammabb*t103*t104*t173*t18*t241-1.48806 11835 1 81784960004d-4*t105*t106*t170*t18*t241-1.48806817849600 11836 2 04d-4*t100*t103*t104*t170*t18*t241-4.9602272616533327d- 11837 3 5*gammabb*t107*t126*t173*t18-4.9602272616533327d-5*t104 11838 4 *t108*t126*t170*t18-4.9602272616533327d-5*t100*t107*t12 11839 5 6*t170*t18+3.2529706666666663d-2*t103*t104*t126*t170*t1 11840 6 8+1.6264853333333332d-2*t102*t107*t170*t18)+1.0d+0*t197 11841 7 *t413)-1.7017882504620419d-7*t109*t171*t18*t241*t53*t96 11842 8 +1.86008522312d-5*t126*t171*t201*t53*t96-3.04966d-3*t10 11843 9 2*t171*t413*t96+1.86008522312d-5*t126*t171*t18*t204*t96 11844 : +8.132426666666667d-3*t102*t170*t201*t96-4.960227261653 11845 ; 3327d-5*t109*t126*t170*t18*t96-3.04966d-3*t102*t402*t53 11846 < +1.86008522312d-5*t126*t18*t198*t53-3.04966d-3*t102*t18 11847 = *t409)*wght+Cmat3(iq,D3_RB_GAA_GBB) 11848 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 11849 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 11850 Cmat3(iq,D3_RB_GBB_GBB) = (t58*(1.0d+0*rhob*t49*t52*(-1.06 11851 1 1262590976d-3*t202*t31*t343*t62*taub-5.30631295488d-4*g 11852 2 ammabb*t29*t343*t414*taub-1.76877098496d-4*t172*t202*t3 11853 3 4*taub+6.867840000000001d-2*t172*t202*t29*taub-3.279861 11854 4 7527638757d-6*t171*t31*t587*t60*t63-8.490100727808d-4*t 11855 5 173*t31*t343*t63-8.199654381909689d-7*t171*t34*t343*t60 11856 6 *t62+3.183787772928d-4*t171*t29*t343*t60*t62-3.27986175 11857 7 27638757d-6*gammabb*t171*t202*t29*t587*t62-1.2735151091 11858 8 712002d-3*gammabb*t29*t343*t404*t62-2.830033575936d-4*t 11859 9 172*t173*t34*t62+1.0988544d-1*t172*t173*t29*t62+5.49427 11860 : 2d-2*t173*t33*t61-1.0666666666666666d+1*t173*t25*t61+1. 11861 ; 061262590976d-4*t171*t172*t33*t60-2.060352d-2*t171*t172 11862 < *t25*t60-3.2798617527638757d-6*t171*t25*t414*t587*t59-1 11863 = .6980201455616d-3*t25*t343*t59/rhob**1.1666666666666665 11864 > d+1-4.245050363904d-4*gammabb*t172*t33*t404+3.2965632d- 11865 ? 1*gammabb*t172*t25*t404-8.199654381909689d-7*gammabb*t1 11866 @ 71*t202*t33*t343+6.367575545856d-4*gammabb*t171*t202*t2 11867 1 5*t343)+1.0d+0*t415*t49*t52+1.0d+0*rhob*t184*t415*t52-2 11868 2 .5d-1*t203*t49*t50*t51-2.5d-1*t405*t49*t51-2.5d-1*t184* 11869 3 t203*t51)+t98*(1.0d+0*t96*(-3.7201704462400004d-4*t104* 11870 4 t105*t202*t241*taub-1.8600852231200002d-4*t100*t103*t20 11871 5 2*t241*taub-6.200284077066668d-5*t108*t126*t202*taub+4. 11872 6 066213333333334d-2*t103*t126*t202*taub-6.80715300184816 11873 7 7d-7*t101*t171*t461*t60*t99+2.2321022677440003d-4*t100* 11874 8 t171*t241*t60*t99-1.219864d-2*t126*t171*t60*t99-2.97613 11875 9 6356992d-4*gammabb*t100*t241*t404*t99+6.505941333333333 11876 : d-2*gammabb*t126*t404*t99-2.976136356992001d-4*t101*t17 11877 ; 3*t241*t99+1.3011882666666666d-1*t100*t126*t173*t99-1.0 11878 < 666666666666666d+1*t102*t173*t99-6.807153001848167d-7*t 11879 = 105*t106*t171*t461*t60-6.807153001848167d-7*t100*t103*t 11880 > 104*t171*t461*t60-1.7017882504620419d-7*t104*t108*t171* 11881 ? t241*t60-1.7017882504620419d-7*t100*t107*t171*t241*t60+ 11882 @ 1.1160511338720001d-4*t103*t104*t171*t241*t60+3.7201704 11883 1 4624d-5*t107*t126*t171*t60-1.488068178496d-4*gammabb*t1 11884 2 03*t104*t241*t404-4.9602272616533327d-5*gammabb*t107*t1 11885 3 26*t404-2.976136356992001d-4*t105*t106*t173*t241-2.9761 11886 4 36356992001d-4*t100*t103*t104*t173*t241-9.9204545233066 11887 5 65d-5*t104*t108*t126*t173-9.920454523306665d-5*t100*t10 11888 6 7*t126*t173+6.505941333333333d-2*t103*t104*t126*t173+3. 11889 7 2529706666666663d-2*t102*t107*t173)+1.0d+0*t197*t416)-1 11890 8 .7017882504620419d-7*t109*t171*t241*t60*t96+3.720170446 11891 9 24d-5*t126*t171*t204*t53*t96-3.04966d-3*t102*t171*t416* 11892 : t96+1.6264853333333332d-2*t102*t170*t204*t96-9.92045452 11893 ; 3306665d-5*t109*t126*t173*t96+t172*t60*(-1.415016787968 11894 < d-4*t49*t52*t64-1.030176d-2*t407)+t53*t61*(-1.716960000 11895 = 0000002d-3*t49*t50*t51*t64+t611+2.747136d-2*t203*t49*t5 11896 > 2)+t170*t51*t61*(-2.3608200000000001d-3*t49*t64-6.4386d 11897 ? -4*gammabb*t203*t49-5.15088d-3*t403)-1.32657823872d-5*t 11898 @ 171*t172*t49*t51*t53*t64-8.199654381909689d-7*t171*t212 11899 1 *t343*t49*t52*t64+6.6328911936d-6*gammabb*t172*t173*t49 11900 2 *t51*t64+t50*t51*t58*t610-5.15088d-3*rhob*t171*t415*t49 11901 3 *t52*t61+1.28772d-3*t171*t203*t49*t51*t61+1.86008522312 11902 4 d-5*t126*t198*t60+1.061262590976d-4*t171*t172*t203*t49* 11903 5 t52*t55-6.09932d-3*t102*t409*t53)*wght+Cmat3(iq,D3_RB_G 11904 6 BB_GBB) 11905 Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*t96*t98*(-6.80715300184 11906 1 8167d-7*t101*t199*t461*t99+3.348153401616001d-4*t100*t1 11907 2 99*t241*t99-3.6595920000000004d-2*t126*t199*t99-6.80715 11908 3 3001848167d-7*t105*t106*t199*t461-6.807153001848167d-7* 11909 4 t100*t103*t104*t199*t461-1.7017882504620419d-7*t104*t10 11910 5 8*t199*t241-1.7017882504620419d-7*t100*t107*t199*t241+1 11911 6 .6740767008080004d-4*t103*t104*t199*t241+5.580255669359 11912 7 999d-5*t107*t126*t199)-9.148980000000001d-3*t102*t18*t4 11913 8 12*t96+5.580255669359999d-5*t126*t201*t27*t96-1.7017882 11914 9 504620419d-7*t109*t199*t241*t96+1.0d+0*rhoa*t14*t17*t23 11915 : *(-3.2798617527638757d-6*gammaaa*t29*t30*t410*t452-3.27 11916 ; 98617527638757d-6*t199*t31*t32*t452-3.2798617527638757d 11917 < -6*t25*t26*t452/rhoa**1.3333333333333333d+1-8.199654381 11918 = 909689d-7*gammaaa*t220*t33*t410+9.551363318784001d-4*ga 11919 > mmaaa*t220*t25*t410-8.199654381909689d-7*t199*t220*t30* 11920 ? t34+1.591893886464d-4*t112*t199*t33+4.7756816593920004d 11921 @ -4*t199*t220*t29*t30-6.181056d-2*t112*t199*t25)-1.54526 11922 1 4d-2*t14*t17*t20*t28*t411-3.75d-1*t14*t16*t23*t411-1.98 11923 2 98673580800003d-5*t112*t14*t16*t27*t35-8.19965438190968 11924 3 9d-7*t14*t17*t205*t220*t35+3.86316d-3*t14*t16*t18*t200* 11925 4 t28+1.591893886464d-4*t112*t14*t17*t200*t206)*wght+Cmat 11926 5 3(iq,D3_GAA_GAA_GAA) 11927 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 11928 Cmat3(iq,D3_GAA_GAA_GBB) = (1.0d+0*t96*t98*(-6.80715300184 11929 1 8167d-7*t101*t27*t461*t53*t99+3.348153401616001d-4*t100 11930 2 *t241*t27*t53*t99-3.6595920000000004d-2*t126*t27*t53*t9 11931 3 9-6.807153001848167d-7*t105*t106*t27*t461*t53-6.8071530 11932 4 01848167d-7*t100*t103*t104*t27*t461*t53-1.7017882504620 11933 5 419d-7*t104*t108*t241*t27*t53-1.7017882504620419d-7*t10 11934 6 0*t107*t241*t27*t53+1.6740767008080004d-4*t103*t104*t24 11935 7 1*t27*t53+5.580255669359999d-5*t107*t126*t27*t53)-3.049 11936 8 66d-3*t102*t412*t53*t96-1.7017882504620419d-7*t109*t241 11937 9 *t27*t53*t96+3.72017044624d-5*t126*t18*t201*t53*t96-6.0 11938 : 9932d-3*t102*t18*t413*t96+1.86008522312d-5*t126*t204*t2 11939 ; 7*t96)*wght+Cmat3(iq,D3_GAA_GAA_GBB) 11940 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 11941 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 11942 Cmat3(iq,D3_GAA_GBB_GBB) = (1.0d+0*t96*t98*(-6.80715300184 11943 1 8167d-7*t101*t18*t461*t60*t99+3.348153401616001d-4*t100 11944 2 *t18*t241*t60*t99-3.6595920000000004d-2*t126*t18*t60*t9 11945 3 9-6.807153001848167d-7*t105*t106*t18*t461*t60-6.8071530 11946 4 01848167d-7*t100*t103*t104*t18*t461*t60-1.7017882504620 11947 5 419d-7*t104*t108*t18*t241*t60-1.7017882504620419d-7*t10 11948 6 0*t107*t18*t241*t60+1.6740767008080004d-4*t103*t104*t18 11949 7 *t241*t60+5.580255669359999d-5*t107*t126*t18*t60)-1.701 11950 8 7882504620419d-7*t109*t18*t241*t60*t96+1.86008522312d-5 11951 9 *t126*t201*t60*t96-6.09932d-3*t102*t413*t53*t96+3.72017 11952 : 044624d-5*t126*t18*t204*t53*t96-3.04966d-3*t102*t18*t41 11953 ; 6*t96)*wght+Cmat3(iq,D3_GAA_GBB_GBB) 11954 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 11955 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 11956 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 11957 Cmat3(iq,D3_GBB_GBB_GBB) = (1.0d+0*t96*t98*(-6.80715300184 11958 1 8167d-7*t101*t202*t461*t99+3.348153401616001d-4*t100*t2 11959 2 02*t241*t99-3.6595920000000004d-2*t126*t202*t99-6.80715 11960 3 3001848167d-7*t105*t106*t202*t461-6.807153001848167d-7* 11961 4 t100*t103*t104*t202*t461-1.7017882504620419d-7*t104*t10 11962 5 8*t202*t241-1.7017882504620419d-7*t100*t107*t202*t241+1 11963 6 .6740767008080004d-4*t103*t104*t202*t241+5.580255669359 11964 7 999d-5*t107*t126*t202)+5.580255669359999d-5*t126*t204*t 11965 8 60*t96-9.148980000000001d-3*t102*t416*t53*t96-1.7017882 11966 9 504620419d-7*t109*t202*t241*t96-1.9898673580800003d-5*t 11967 : 172*t49*t51*t60*t64-8.199654381909689d-7*t211*t343*t49* 11968 ; t52*t64+1.0d+0*rhob*t49*t52*t58*(-3.2798617527638757d-6 11969 < *t202*t31*t587*t63-3.2798617527638757d-6*gammabb*t29*t4 11970 = 14*t587*t62-8.199654381909689d-7*t202*t34*t343*t62+4.77 11971 > 56816593920004d-4*t202*t29*t343*t62-3.2798617527638757d 11972 ? -6*t25*t587*t59/rhob**1.3333333333333333d+1-8.199654381 11973 @ 909689d-7*gammabb*t33*t343*t414+9.551363318784001d-4*ga 11974 1 mmabb*t25*t343*t414+1.591893886464d-4*t172*t202*t33-6.1 11975 2 81056d-2*t172*t202*t25)-1.545264d-2*t415*t49*t52*t55*t6 11976 3 1+3.86316d-3*t203*t49*t51*t53*t61-3.75d-1*t415*t49*t51* 11977 4 t58+1.591893886464d-4*t172*t203*t212*t49*t52)*wght+Cmat 11978 5 3(iq,D3_GBB_GBB_GBB) 11979 Mmat3(iq,D3_RA_RA_TA) = (t23*(1.0d+0*rhoa*t14*t17*(-2.0603 11980 1 520000000003d-1*t27*t28*t34*taua-7.07508393984d-4*t111* 11981 2 t112*t206*t34*taua-8.241408000000001d-1*t112*t27*t30*t3 11982 3 1*taua-4.245050363904d-3*t111*t206*t220*t30*t31*taua+8. 11983 4 0d+1*t27*t28*t31*taua+2.747136d-1*t111*t112*t206*t31*ta 11984 5 ua-2.122525181952d-3*gammaaa*t111*t205*t220*t29*taua-7. 11985 6 783552d-1*gammaaa*t112*t199*t29*taua-6.559723505527751d 11986 7 -6*t20*t217*t31*t32*t452-6.559723505527751d-6*gammaaa*t 11987 8 206*t217*t29*t30*t452-6.559723505527751d-6*t205*t217*t2 11988 9 5*t26*t452-1.1537971200000001d+0*t112*t25*t26*t393-4.57 11989 : 85600000000004d-2*t110*t28*t30*t34+1.061262590976d-4*t1 11990 ; 12*t20*t222*t30*t34-1.6399308763819376d-6*t20*t217*t220 11991 < *t30*t34-3.5375419699200006d-4*t111*t112*t18*t30*t34-1. 11992 = 030176d-2*t20*t222*t28*t34+3.4339200000000003d-2*t111*t 11993 > 18*t28*t34+8.88888888888889d+0*t110*t23*t34+1.061262590 11994 ? 976d-4*t112*t20*t217*t34-2.3808512d-1*gammaaa*t113*t28* 11995 @ t33-9.197609121792001d-4*gammaaa*t111*t112*t27*t33+1.06 11996 1 1262590976d-4*gammaaa*t112*t206*t222*t33-1.639930876381 11997 2 9376d-6*gammaaa*t206*t217*t220*t33+3.183787772928d-4*t2 11998 3 0*t220*t222*t31*t32-1.0612625909760003d-3*t111*t18*t220 11999 4 *t31*t32-9.157120000000001d-2*t110*t112*t31*t32+1.77777 12000 5 77777777778d+1*t110*t28*t30*t31-4.120704d-2*t112*t20*t2 12001 6 22*t30*t31+6.367575545856d-4*t20*t217*t220*t30*t31+1.37 12002 7 3568d-1*t111*t112*t18*t30*t31-4.5785600000000004d-1*t11 12003 8 2*t205*t208*t31-2.7592827365376d-3*gammaaa*t111*t220*t2 12004 9 7*t29*t30+3.183787772928d-4*gammaaa*t206*t220*t222*t29* 12005 : t30-4.7617024d-1*gammaaa*t112*t113*t29*t30+4.6222222222 12006 ; 22223d+1*gammaaa*t113*t28*t29+1.7856384d-1*gammaaa*t111 12007 < *t112*t27*t29-2.060352d-2*gammaaa*t112*t206*t222*t29+3. 12008 = 183787772928d-4*gammaaa*t206*t217*t220*t29+3.1837877729 12009 > 28d-4*t205*t220*t222*t25*t26-4.4573028820992006d-3*t111 12010 ? *t199*t220*t25*t26)+2.0d+0*t14*t17*t417+2.0d+0*rhoa*t12 12011 @ 4*t17*t417+1.25d-1*gammaaa*t14*t15*t16*t417+1.25d-1*gam 12012 1 maaa*t209*t238*t35-1.25d-1*gammaaa*t14*t209*t218*t35+1. 12013 2 25d-1*gammaaa*t124*t15*t209*t35+1.0d+0*rhoa*t17*t207*t2 12014 3 38+1.25d-1*gammaaa*t14*t209*t224+1.25d-1*gammaaa*t14*t1 12015 4 6*t207*t218+1.25d-1*gammaaa*t114*t14*t15*t209+2.5d-1*ga 12016 5 mmaaa*t114*t124*t209+2.0d+0*t124*t17*t207+1.25d-1*gamma 12017 6 aa*t124*t15*t16*t207)+t98*(1.0d+0*t96*(-4.8794560000000 12018 7 01d-1*t104*t105*t126*t27*taua-2.4397280000000005d-1*t10 12019 8 0*t103*t126*t27*taua-1.2198640000000002d-1*t102*t108*t2 12020 9 7*taua+8.0d+1*t102*t105*t27*taua-1.4880681784960004d-3* 12021 : t104*t105*t111*t206*t241*taua-7.440340892480001d-4*t100 12022 ; *t103*t111*t206*t241*taua-2.4801136308266672d-4*t108*t1 12023 < 11*t126*t206*taua+1.6264853333333334d-1*t105*t111*t126* 12024 = t206*taua-2.1686471111111114d-1*gammaaa*t103*t126*t199* 12025 > taua-1.3614306003696336d-6*t101*t20*t217*t461*t99-1.734 12026 ? 9176888888887d-1*t126*t26*t393*t99-1.1904545427968d-3*g 12027 @ ammaaa*t100*t111*t241*t27*t99+1.1160511338720001d-4*t10 12028 1 1*t20*t222*t241*t99-3.7201704462400004d-4*t101*t111*t18 12029 2 *t241*t99-4.554158933333333d-1*gammaaa*t100*t113*t126*t 12030 3 99-5.421617777777779d-2*t101*t110*t126*t99+8.8888888888 12031 4 8889d+0*t108*t110*t98-1.3614306003696336d-6*t105*t106*t 12032 5 20*t217*t461-1.3614306003696336d-6*t100*t103*t104*t20*t 12033 6 217*t461-5.952272713984d-4*gammaaa*t103*t104*t111*t241* 12034 7 t27-1.984090904661333d-4*gammaaa*t107*t111*t126*t27+6.5 12035 8 05941333333333d-2*gammaaa*t103*t111*t126*t27+1.11605113 12036 9 38720001d-4*t105*t106*t20*t222*t241+1.1160511338720001d 12037 : -4*t100*t103*t104*t20*t222*t241-3.4035765009240837d-7*t 12038 ; 104*t108*t20*t217*t241-3.4035765009240837d-7*t100*t107* 12039 < t20*t217*t241+2.2321022677440003d-4*t104*t105*t20*t217* 12040 = t241+1.1160511338720001d-4*t100*t103*t20*t217*t241-3.72 12041 > 01704462400004d-4*t105*t106*t111*t18*t241-3.72017044624 12042 ? 00004d-4*t100*t103*t104*t111*t18*t241+3.72017044624d-5* 12043 @ t104*t108*t126*t20*t222+3.72017044624d-5*t100*t107*t126 12044 1 *t20*t222-2.439728d-2*t104*t105*t126*t20*t222-1.219864d 12045 2 -2*t100*t103*t126*t20*t222-6.09932d-3*t102*t108*t20*t22 12046 3 2+3.72017044624d-5*t108*t126*t20*t217-2.710808888888889 12047 4 d-1*t105*t126*t205*t208-1.2400568154133333d-4*t104*t108 12048 5 *t111*t126*t18-1.2400568154133333d-4*t100*t107*t111*t12 12049 6 6*t18+8.132426666666668d-2*t104*t105*t111*t126*t18+4.06 12050 7 6213333333334d-2*t100*t103*t111*t126*t18+2.033106666666 12051 8 667d-2*t102*t108*t111*t18-2.2770794666666666d-1*gammaaa 12052 9 *t103*t104*t113*t126-5.421617777777779d-2*t105*t106*t11 12053 : 0*t126-5.421617777777779d-2*t100*t103*t104*t110*t126-1. 12054 ; 1385397333333333d-1*gammaaa*t102*t107*t113+3.7333333333 12055 < 333335d+1*gammaaa*t102*t103*t113-2.710808888888889d-2*t 12056 = 102*t104*t108*t110-2.710808888888889d-2*t100*t102*t107* 12057 > t110+1.7777777777777778d+1*t102*t104*t105*t110+8.888888 12058 ? 88888889d+0*t100*t102*t103*t110)+2.0d+0*t168*t419+1.0d+ 12059 @ 0*t210*t323)+t102*(-3.04966d-3*t111*t419*t96-3.04966d-3 12060 1 *t210*t222*t96+1.0165533333333335d-2*t127*t18*t96-2.710 12061 2 808888888889d-2*t109*t110*t96-3.04966d-3*t111*t420-3.04 12062 3 966d-3*t111*t168*t210+1.0165533333333335d-2*t169*t18+1. 12063 4 0165533333333335d-2*t109*t168*t18)-3.4035765009240837d- 12064 5 7*t109*t20*t217*t241*t96+1.86008522312d-5*t126*t210*t21 12065 6 7*t96-1.2400568154133333d-4*t109*t111*t126*t18*t96+t28* 12066 7 (-5.15088d-3*t111*t418-5.15088d-3*rhoa*t111*t14*t17*t41 12067 8 7-6.4386d-4*gammaaa*t14*t209*t222*t35-6.4386d-4*gammaaa 12068 9 *t111*t14*t15*t209*t35-6.4386d-4*gammaaa*t111*t124*t209 12069 : *t35+1.7169600000000002d-2*t124*t17*t20*t35-2.8616d-2*t 12070 ; 14*t17*t18*t35-5.15088d-3*rhoa*t14*t17*t207*t222-6.4386 12071 < d-4*gammaaa*t111*t114*t14*t209-5.15088d-3*t111*t14*t17* 12072 = t207-5.15088d-3*rhoa*t111*t124*t17*t207+1.7169600000000 12073 > 002d-2*t114*t14*t17*t20+1.7169600000000002d-2*t125*t18) 12074 ? +t15*t16*t23*(1.25d-1*gammaaa*t14*t417+1.25d-1*gammaaa* 12075 @ t124*t207)+t112*t20*(-3.5375419699200006d-4*t111*t14*t1 12076 1 7*t35-2.060352d-2*t240)+t15*t209*t23*(-1.25d-1*gammaaa* 12077 2 t124*t35-1.25d-1*gammaaa*t114*t14)+1.28772d-3*gammaaa*t 12078 3 111*t14*t15*t209*t28*t35+5.58012d-3*gammaaa*t110*t14*t1 12079 4 6*t28*t35+1.25d-1*gammaaa*t14*t209*t218*t23*t35-1.63993 12080 5 08763819376d-6*t1*t14*t17*t217*t220*t35+6.6328911936d-6 12081 6 *gammaaa*t112*t14*t209*t217*t35+2.65315647744d-5*gammaa 12082 7 a*t111*t112*t14*t16*t18*t35-1.219864d-2*t126*t20*t325-6 12083 8 .09932d-3*t102*t20*t324-1.030176d-2*t20*t239*t28-1.0301 12084 9 76d-2*t16*t18*t219*t28-1.28772d-3*gammaaa*t111*t14*t15* 12085 : t16*t207*t28-1.25d-1*gammaaa*t14*t16*t207*t218*t23+5.30 12086 ; 631295488d-5*rhoa*t112*t14*t17*t207*t217)*wght+Mmat3(iq 12087 < ,D3_RA_RA_TA) 12088 Mmat3(iq,D3_RA_RA_TB) = (t98*(1.0d+0*t96*(-1.4880681784960 12089 1 004d-3*t104*t105*t111*t18*t241*t55*taua-7.4403408924800 12090 2 01d-4*t100*t103*t111*t18*t241*t55*taua-2.48011363082666 12091 3 72d-4*t108*t111*t126*t18*t55*taua+1.6264853333333334d-1 12092 4 *t105*t111*t126*t18*t55*taua-2.1686471111111114d-1*gamm 12093 5 aaa*t103*t113*t126*t55*taua-2.1686471111111114d-1*t104* 12094 6 t105*t110*t126*t55*taua-1.0843235555555557d-1*t100*t103 12095 7 *t110*t126*t55*taua-5.421617777777779d-2*t102*t108*t110 12096 8 *t55*taua+3.5555555555555557d+1*t102*t105*t110*t55*taua 12097 9 -1.3614306003696336d-6*t101*t217*t461*t55*t99-1.7349176 12098 : 888888887d-1*t126*t223*t26*t55*t99+1.1160511338720001d- 12099 ; 4*t101*t222*t241*t55*t99-1.1904545427968d-3*gammaaa*t10 12100 < 0*t110*t111*t241*t55*t99-2.3855118222222224d-1*gammaaa* 12101 = t100*t126*t221*t55*t99-1.3614306003696336d-6*t105*t106* 12102 > t217*t461*t55-1.3614306003696336d-6*t100*t103*t104*t217 12103 ? *t461*t55-2.710808888888889d-1*t105*t126*t208*t27*t55+1 12104 @ .1160511338720001d-4*t105*t106*t222*t241*t55+1.11605113 12105 1 38720001d-4*t100*t103*t104*t222*t241*t55-3.403576500924 12106 2 0837d-7*t104*t108*t217*t241*t55-3.4035765009240837d-7*t 12107 3 100*t107*t217*t241*t55+2.2321022677440003d-4*t104*t105* 12108 4 t217*t241*t55+1.1160511338720001d-4*t100*t103*t217*t241 12109 5 *t55-5.952272713984d-4*gammaaa*t103*t104*t110*t111*t241 12110 6 *t55+3.72017044624d-5*t104*t108*t126*t222*t55+3.7201704 12111 7 4624d-5*t100*t107*t126*t222*t55-2.439728d-2*t104*t105*t 12112 8 126*t222*t55-1.219864d-2*t100*t103*t126*t222*t55-6.0993 12113 9 2d-3*t102*t108*t222*t55-1.1927559111111112d-1*gammaaa*t 12114 : 103*t104*t126*t221*t55-5.963779555555556d-2*gammaaa*t10 12115 ; 2*t107*t221*t55+1.9555555555555557d+1*gammaaa*t102*t103 12116 < *t221*t55+3.72017044624d-5*t108*t126*t217*t55-1.9840909 12117 = 04661333d-4*gammaaa*t107*t110*t111*t126*t55+6.505941333 12118 > 333333d-2*gammaaa*t103*t110*t111*t126*t55)+2.0d+0*t168* 12119 ? t421+1.0d+0*t216*t323)+t102*(-3.04966d-3*t111*t421*t96- 12120 @ 3.04966d-3*t216*t222*t96-3.04966d-3*t111*t422-3.04966d- 12121 1 3*t111*t168*t216)-3.4035765009240837d-7*t109*t217*t241* 12122 2 t55*t96+1.86008522312d-5*t126*t216*t217*t96-1.219864d-2 12123 3 *t126*t325*t55-6.09932d-3*t102*t324*t55)*wght+Mmat3(iq, 12124 4 D3_RA_RA_TB) 12125 Mmat3(iq,D3_RA_RB_TA) = (t98*(1.0d+0*t96*(-2.7108088888888 12126 1 89d-1*t105*t126*t206*t53*taua*taub-1.0843235555555557d- 12127 2 1*gammaaa*t103*t126*t27*t53*taub-7.440340892480001d-4*t 12128 3 104*t105*t111*t20*t241*t53*taub-3.7201704462400004d-4*t 12129 4 100*t103*t111*t20*t241*t53*taub-1.2400568154133336d-4*t 12130 5 108*t111*t126*t20*t53*taub+8.132426666666668d-2*t105*t1 12131 6 11*t126*t20*t53*taub-1.3554044444444446d-1*t104*t105*t1 12132 7 26*t18*t53*taub-6.777022222222223d-2*t100*t103*t126*t18 12133 8 *t53*taub-3.3885111111111116d-2*t102*t108*t18*t53*taub+ 12134 9 2.2222222222222224d+1*t102*t105*t18*t53*taub-7.44034089 12135 : 2480001d-4*t104*t105*t171*t206*t241*taua-3.720170446240 12136 ; 0004d-4*t100*t103*t171*t206*t241*taua-1.240056815413333 12137 < 6d-4*t108*t126*t171*t206*taua+8.132426666666668d-2*t105 12138 = *t126*t171*t206*taua-1.0843235555555557d-1*gammabb*t103 12139 > *t126*t170*t206*taua-1.3614306003696336d-6*t101*t111*t1 12140 ? 71*t20*t461*t99-5.952272713984d-4*gammaaa*t100*t171*t24 12141 @ 1*t27*t99-1.7349176888888887d-1*gammaaa*gammabb*t126*t1 12142 1 70*t27*t99-5.952272713984d-4*gammabb*t100*t111*t170*t20 12143 2 *t241*t99-1.8600852231200002d-4*t101*t171*t18*t241*t99- 12144 3 1.0843235555555555d-1*gammabb*t100*t126*t170*t18*t99-1. 12145 4 3614306003696336d-6*t105*t106*t111*t171*t20*t461-1.3614 12146 5 306003696336d-6*t100*t103*t104*t111*t171*t20*t461-2.976 12147 6 136356992d-4*gammaaa*t103*t104*t171*t241*t27-9.92045452 12148 7 3306665d-5*gammaaa*t107*t126*t171*t27+3.252970666666666 12149 8 3d-2*gammaaa*t103*t126*t171*t27-3.4035765009240837d-7*t 12150 9 104*t108*t111*t171*t20*t241-3.4035765009240837d-7*t100* 12151 : t107*t111*t171*t20*t241+2.2321022677440003d-4*t104*t105 12152 ; *t111*t171*t20*t241+1.1160511338720001d-4*t100*t103*t11 12153 < 1*t171*t20*t241-2.976136356992d-4*gammabb*t103*t104*t11 12154 = 1*t170*t20*t241-1.8600852231200002d-4*t105*t106*t171*t1 12155 > 8*t241-1.8600852231200002d-4*t100*t103*t104*t171*t18*t2 12156 ? 41+3.72017044624d-5*t108*t111*t126*t171*t20-9.920454523 12157 @ 306665d-5*gammabb*t107*t111*t126*t170*t20+3.25297066666 12158 1 66663d-2*gammabb*t103*t111*t126*t170*t20-6.200284077066 12159 2 667d-5*t104*t108*t126*t171*t18-6.200284077066667d-5*t10 12160 3 0*t107*t126*t171*t18+4.066213333333334d-2*t104*t105*t12 12161 4 6*t171*t18+2.033106666666667d-2*t100*t103*t126*t171*t18 12162 5 +1.0165533333333335d-2*t102*t108*t171*t18-5.42161777777 12163 6 7777d-2*gammabb*t103*t104*t126*t170*t18-2.7108088888888 12164 7 887d-2*gammabb*t102*t107*t170*t18+8.88888888888889d+0*g 12165 8 ammabb*t102*t103*t170*t18)+1.0d+0*t168*t423+1.0d+0*t197 12166 9 *t419+1.0d+0*t210*t337)+t102*(-3.04966d-3*t111*t423*t96 12167 : +1.0165533333333335d-2*t18*t186*t96-3.04966d-3*t171*t42 12168 ; 0-3.04966d-3*t111*t197*t210+1.0165533333333335d-2*t109* 12169 < t18*t197)-3.4035765009240837d-7*t109*t111*t171*t20*t241 12170 = *t96+1.86008522312d-5*t111*t126*t171*t210*t96-6.2002840 12171 > 77066667d-5*t109*t126*t171*t18*t96-1.219864d-2*t126*t20 12172 ? *t339-6.09932d-3*t102*t20*t338)*wght+Mmat3(iq,D3_RA_RB_ 12173 @ TA) 12174 Mmat3(iq,D3_RA_RB_TB) = (t98*(1.0d+0*t96*(-2.7108088888888 12175 1 89d-1*t105*t126*t18*t212*taua*taub-7.440340892480001d-4 12176 2 *t104*t105*t111*t212*t241*taub-3.7201704462400004d-4*t1 12177 3 00*t103*t111*t212*t241*taub-1.2400568154133336d-4*t108* 12178 4 t111*t126*t212*taub+8.132426666666668d-2*t105*t111*t126 12179 5 *t212*taub-1.0843235555555557d-1*gammaaa*t103*t110*t126 12180 6 *t212*taub-1.0843235555555557d-1*gammabb*t103*t126*t18* 12181 7 t60*taua-7.440340892480001d-4*t104*t105*t171*t18*t241*t 12182 8 55*taua-3.7201704462400004d-4*t100*t103*t171*t18*t241*t 12183 9 55*taua-1.2400568154133336d-4*t108*t126*t171*t18*t55*ta 12184 : ua+8.132426666666668d-2*t105*t126*t171*t18*t55*taua-1.3 12185 ; 554044444444446d-1*t104*t105*t126*t18*t53*taua-6.777022 12186 < 222222223d-2*t100*t103*t126*t18*t53*taua-3.388511111111 12187 = 1116d-2*t102*t108*t18*t53*taua+2.2222222222222224d+1*t1 12188 > 02*t105*t18*t53*taua-5.952272713984d-4*gammabb*t100*t11 12189 ? 1*t241*t60*t99-1.7349176888888887d-1*gammaaa*gammabb*t1 12190 @ 10*t126*t60*t99-1.3614306003696336d-6*t101*t111*t171*t4 12191 1 61*t55*t99-5.952272713984d-4*gammaaa*t100*t110*t171*t24 12192 2 1*t55*t99-1.8600852231200002d-4*t101*t111*t241*t53*t99- 12193 3 1.0843235555555555d-1*gammaaa*t100*t110*t126*t53*t99-2. 12194 4 976136356992d-4*gammabb*t103*t104*t111*t241*t60-9.92045 12195 5 4523306665d-5*gammabb*t107*t111*t126*t60+3.252970666666 12196 6 6663d-2*gammabb*t103*t111*t126*t60-1.3614306003696336d- 12197 7 6*t105*t106*t111*t171*t461*t55-1.3614306003696336d-6*t1 12198 8 00*t103*t104*t111*t171*t461*t55-3.4035765009240837d-7*t 12199 9 104*t108*t111*t171*t241*t55-3.4035765009240837d-7*t100* 12200 : t107*t111*t171*t241*t55+2.2321022677440003d-4*t104*t105 12201 ; *t111*t171*t241*t55+1.1160511338720001d-4*t100*t103*t11 12202 < 1*t171*t241*t55-2.976136356992d-4*gammaaa*t103*t104*t11 12203 = 0*t171*t241*t55+3.72017044624d-5*t108*t111*t126*t171*t5 12204 > 5-9.920454523306665d-5*gammaaa*t107*t110*t126*t171*t55+ 12205 ? 3.2529706666666663d-2*gammaaa*t103*t110*t126*t171*t55-1 12206 @ .8600852231200002d-4*t105*t106*t111*t241*t53-1.86008522 12207 1 31200002d-4*t100*t103*t104*t111*t241*t53-6.200284077066 12208 2 667d-5*t104*t108*t111*t126*t53-6.200284077066667d-5*t10 12209 3 0*t107*t111*t126*t53+4.066213333333334d-2*t104*t105*t11 12210 4 1*t126*t53+2.033106666666667d-2*t100*t103*t111*t126*t53 12211 5 -5.421617777777777d-2*gammaaa*t103*t104*t110*t126*t53+1 12212 6 .0165533333333335d-2*t102*t108*t111*t53-2.7108088888888 12213 7 887d-2*gammaaa*t102*t107*t110*t53+8.88888888888889d+0*g 12214 8 ammaaa*t102*t103*t110*t53)+1.0d+0*t168*t427+1.0d+0*t197 12215 9 *t421+1.0d+0*t216*t337)+t102*(-3.04966d-3*t111*t427*t96 12216 : +1.0165533333333335d-2*t169*t53-3.04966d-3*t171*t422-3. 12217 ; 04966d-3*t111*t197*t216)-3.4035765009240837d-7*t109*t11 12218 < 1*t171*t241*t55*t96-6.200284077066667d-5*t109*t111*t126 12219 = *t53*t96+1.86008522312d-5*t111*t126*t171*t216*t96-1.219 12220 > 864d-2*t126*t339*t55-6.09932d-3*t102*t338*t55)*wght+Mma 12221 ? t3(iq,D3_RA_RB_TB) 12222 Mmat3(iq,D3_RB_RB_TA) = (t98*(1.0d+0*t96*(-1.4880681784960 12223 1 004d-3*t104*t105*t171*t20*t241*t53*taub-7.4403408924800 12224 2 01d-4*t100*t103*t171*t20*t241*t53*taub-2.48011363082666 12225 3 72d-4*t108*t126*t171*t20*t53*taub+1.6264853333333334d-1 12226 4 *t105*t126*t171*t20*t53*taub-2.1686471111111114d-1*gamm 12227 5 abb*t103*t126*t173*t20*taub-2.1686471111111114d-1*t104* 12228 6 t105*t126*t170*t20*taub-1.0843235555555557d-1*t100*t103 12229 7 *t126*t170*t20*taub-5.421617777777779d-2*t102*t108*t170 12230 8 *t20*taub+3.5555555555555557d+1*t102*t105*t170*t20*taub 12231 9 -1.7349176888888887d-1*t126*t20*t346*t59*t99-1.36143060 12232 : 03696336d-6*t101*t20*t340*t461*t99+1.1160511338720001d- 12233 ; 4*t101*t20*t241*t345*t99-2.3855118222222224d-1*gammabb* 12234 < t100*t126*t20*t344*t99-1.1904545427968d-3*gammabb*t100* 12235 = t170*t171*t20*t241*t99-2.710808888888889d-1*t105*t126*t 12236 > 20*t214*t60-1.3614306003696336d-6*t105*t106*t20*t340*t4 12237 ? 61-1.3614306003696336d-6*t100*t103*t104*t20*t340*t461+1 12238 @ .1160511338720001d-4*t105*t106*t20*t241*t345+1.11605113 12239 1 38720001d-4*t100*t103*t104*t20*t241*t345+3.72017044624d 12240 2 -5*t104*t108*t126*t20*t345+3.72017044624d-5*t100*t107*t 12241 3 126*t20*t345-2.439728d-2*t104*t105*t126*t20*t345-1.2198 12242 4 64d-2*t100*t103*t126*t20*t345-6.09932d-3*t102*t108*t20* 12243 5 t345-1.1927559111111112d-1*gammabb*t103*t104*t126*t20*t 12244 6 344-5.963779555555556d-2*gammabb*t102*t107*t20*t344+1.9 12245 7 555555555555557d+1*gammabb*t102*t103*t20*t344-3.4035765 12246 8 009240837d-7*t104*t108*t20*t241*t340-3.4035765009240837 12247 9 d-7*t100*t107*t20*t241*t340+2.2321022677440003d-4*t104* 12248 : t105*t20*t241*t340+1.1160511338720001d-4*t100*t103*t20* 12249 ; t241*t340+3.72017044624d-5*t108*t126*t20*t340-5.9522727 12250 < 13984d-4*gammabb*t103*t104*t170*t171*t20*t241-1.9840909 12251 = 04661333d-4*gammabb*t107*t126*t170*t171*t20+6.505941333 12252 > 333333d-2*gammabb*t103*t126*t170*t171*t20)+2.0d+0*t197* 12253 ? t423+1.0d+0*t210*t389)+t102*(-3.04966d-3*t171*t423*t96- 12254 @ 3.04966d-3*t210*t345*t96-3.04966d-3*t171*t424-3.04966d- 12255 1 3*t171*t197*t210)-3.4035765009240837d-7*t109*t20*t241*t 12256 2 340*t96+1.86008522312d-5*t126*t210*t340*t96-1.219864d-2 12257 3 *t126*t20*t391-6.09932d-3*t102*t20*t390)*wght+Mmat3(iq, 12258 4 D3_RB_RB_TA) 12259 Mmat3(iq,D3_RB_RB_TB) = (t58*(1.0d+0*rhob*t49*t52*(-8.2414 12260 1 08000000001d-1*t172*t31*t60*t62*taub-4.245050363904d-3* 12261 2 t171*t212*t31*t343*t62*taub-2.0603520000000003d-1*t34*t 12262 3 60*t61*taub+8.0d+1*t31*t60*t61*taub-2.122525181952d-3*g 12263 4 ammabb*t171*t211*t29*t343*taub-7.07508393984d-4*t171*t1 12264 5 72*t212*t34*taub+2.747136d-1*t171*t172*t212*t31*taub-7. 12265 6 783552d-1*gammabb*t172*t202*t29*taub-6.559723505527751d 12266 7 -6*t31*t340*t55*t587*t63+3.183787772928d-4*t31*t343*t34 12267 8 5*t55*t63-1.0612625909760003d-3*t171*t31*t343*t53*t63-9 12268 9 .157120000000001d-2*t170*t172*t31*t63-4.578560000000000 12269 : 4d-2*t170*t34*t61*t62+1.7777777777777778d+1*t170*t31*t6 12270 ; 1*t62-2.7592827365376d-3*gammabb*t171*t29*t343*t60*t62- 12271 < 6.559723505527751d-6*gammabb*t212*t29*t340*t587*t62+1.0 12272 = 61262590976d-4*t172*t34*t345*t55*t62-4.120704d-2*t172*t 12273 > 31*t345*t55*t62-1.6399308763819376d-6*t34*t340*t343*t55 12274 ? *t62+6.367575545856d-4*t31*t340*t343*t55*t62-3.53754196 12275 @ 99200006d-4*t171*t172*t34*t53*t62+1.373568d-1*t171*t172 12276 1 *t31*t53*t62+3.183787772928d-4*gammabb*t212*t29*t343*t3 12277 2 45*t62-4.7617024d-1*gammabb*t172*t173*t29*t62-1.030176d 12278 3 -2*t34*t345*t55*t61+3.4339200000000003d-2*t171*t34*t53* 12279 4 t61-2.3808512d-1*gammabb*t173*t33*t61+4.622222222222223 12280 5 d+1*gammabb*t173*t29*t61-9.197609121792001d-4*gammabb*t 12281 6 171*t172*t33*t60+1.7856384d-1*gammabb*t171*t172*t29*t60 12282 7 -6.559723505527751d-6*t211*t25*t340*t587*t59-1.15379712 12283 8 00000001d+0*t172*t25*t404*t59+3.183787772928d-4*t211*t2 12284 9 5*t343*t345*t59-4.4573028820992006d-3*t171*t202*t25*t34 12285 : 3*t59+8.88888888888889d+0*t170*t34*t58+1.061262590976d- 12286 ; 4*t172*t34*t340*t55+1.061262590976d-4*gammabb*t172*t212 12287 < *t33*t345-2.060352d-2*gammabb*t172*t212*t29*t345-1.6399 12288 = 308763819376d-6*gammabb*t212*t33*t340*t343+3.1837877729 12289 > 28d-4*gammabb*t212*t29*t340*t343-4.5785600000000004d-1* 12290 ? t172*t211*t214*t31)+1.25d-1*gammabb*t184*t215*t50*t64-1 12291 @ .25d-1*gammabb*t215*t341*t49*t64+1.25d-1*gammabb*t215*t 12292 1 361*t64+2.0d+0*t425*t49*t52+2.0d+0*rhob*t184*t425*t52+1 12293 2 .0d+0*rhob*t213*t361*t52+2.0d+0*t184*t213*t52+1.25d-1*g 12294 3 ammabb*t425*t49*t50*t51+1.25d-1*gammabb*t184*t213*t50*t 12295 4 51+1.25d-1*gammabb*t213*t341*t49*t51+1.25d-1*gammabb*t1 12296 5 74*t215*t49*t50+1.25d-1*gammabb*t215*t347*t49+2.5d-1*ga 12297 6 mmabb*t174*t184*t215)+t98*(1.0d+0*t96*(-4.8794560000000 12298 7 01d-1*t104*t105*t126*t60*taub-2.4397280000000005d-1*t10 12299 8 0*t103*t126*t60*taub-1.2198640000000002d-1*t102*t108*t6 12300 9 0*taub+8.0d+1*t102*t105*t60*taub-1.4880681784960004d-3* 12301 : t104*t105*t171*t212*t241*taub-7.440340892480001d-4*t100 12302 ; *t103*t171*t212*t241*taub-2.4801136308266672d-4*t108*t1 12303 < 26*t171*t212*taub+1.6264853333333334d-1*t105*t126*t171* 12304 = t212*taub-2.1686471111111114d-1*gammabb*t103*t126*t202* 12305 > taub-1.1904545427968d-3*gammabb*t100*t171*t241*t60*t99- 12306 ? 1.7349176888888887d-1*t126*t404*t59*t99-1.3614306003696 12307 @ 336d-6*t101*t340*t461*t55*t99+1.1160511338720001d-4*t10 12308 1 1*t241*t345*t55*t99-3.7201704462400004d-4*t101*t171*t24 12309 2 1*t53*t99-4.554158933333333d-1*gammabb*t100*t126*t173*t 12310 3 99-5.421617777777779d-2*t101*t126*t170*t99+8.8888888888 12311 4 8889d+0*t108*t170*t98-5.952272713984d-4*gammabb*t103*t1 12312 5 04*t171*t241*t60-1.984090904661333d-4*gammabb*t107*t126 12313 6 *t171*t60+6.505941333333333d-2*gammabb*t103*t126*t171*t 12314 7 60-1.3614306003696336d-6*t105*t106*t340*t461*t55-1.3614 12315 8 306003696336d-6*t100*t103*t104*t340*t461*t55+1.11605113 12316 9 38720001d-4*t105*t106*t241*t345*t55+1.1160511338720001d 12317 : -4*t100*t103*t104*t241*t345*t55+3.72017044624d-5*t104*t 12318 ; 108*t126*t345*t55+3.72017044624d-5*t100*t107*t126*t345* 12319 < t55-2.439728d-2*t104*t105*t126*t345*t55-1.219864d-2*t10 12320 = 0*t103*t126*t345*t55-6.09932d-3*t102*t108*t345*t55-3.40 12321 > 35765009240837d-7*t104*t108*t241*t340*t55-3.40357650092 12322 ? 40837d-7*t100*t107*t241*t340*t55+2.2321022677440003d-4* 12323 @ t104*t105*t241*t340*t55+1.1160511338720001d-4*t100*t103 12324 1 *t241*t340*t55+3.72017044624d-5*t108*t126*t340*t55-3.72 12325 2 01704462400004d-4*t105*t106*t171*t241*t53-3.72017044624 12326 3 00004d-4*t100*t103*t104*t171*t241*t53-1.240056815413333 12327 4 3d-4*t104*t108*t126*t171*t53-1.2400568154133333d-4*t100 12328 5 *t107*t126*t171*t53+8.132426666666668d-2*t104*t105*t126 12329 6 *t171*t53+4.066213333333334d-2*t100*t103*t126*t171*t53+ 12330 7 2.033106666666667d-2*t102*t108*t171*t53-2.7108088888888 12331 8 89d-1*t105*t126*t211*t214-2.2770794666666666d-1*gammabb 12332 9 *t103*t104*t126*t173-1.1385397333333333d-1*gammabb*t102 12333 : *t107*t173+3.7333333333333335d+1*gammabb*t102*t103*t173 12334 ; -5.421617777777779d-2*t105*t106*t126*t170-5.42161777777 12335 < 7779d-2*t100*t103*t104*t126*t170-2.710808888888889d-2*t 12336 = 102*t104*t108*t170-2.710808888888889d-2*t100*t102*t107* 12337 > t170+1.7777777777777778d+1*t102*t104*t105*t170+8.888888 12338 ? 88888889d+0*t100*t102*t103*t170)+2.0d+0*t197*t427+1.0d+ 12339 @ 0*t216*t389)+t102*(1.0165533333333335d-2*t186*t53*t96-3 12340 1 .04966d-3*t171*t427*t96-3.04966d-3*t216*t345*t96-2.7108 12341 2 08888888889d-2*t109*t170*t96+1.0165533333333335d-2*t198 12342 3 *t53+1.0165533333333335d-2*t109*t197*t53-3.04966d-3*t17 12343 4 1*t428-3.04966d-3*t171*t197*t216)-3.4035765009240837d-7 12344 5 *t109*t241*t340*t55*t96-1.2400568154133333d-4*t109*t126 12345 6 *t171*t53*t96+1.86008522312d-5*t126*t216*t340*t96+t61*( 12346 7 1.7169600000000002d-2*t184*t52*t55*t64-2.8616d-2*t49*t5 12347 8 2*t53*t64-6.4386d-4*gammabb*t171*t215*t49*t50*t64-6.438 12348 9 6d-4*gammabb*t215*t345*t49*t64-6.4386d-4*gammabb*t171*t 12349 : 184*t215*t64+1.7169600000000002d-2*t174*t49*t52*t55+1.7 12350 ; 169600000000002d-2*t185*t53-5.15088d-3*rhob*t171*t425*t 12351 < 49*t52-5.15088d-3*rhob*t213*t345*t49*t52-5.15088d-3*t17 12352 = 1*t213*t49*t52-5.15088d-3*rhob*t171*t184*t213*t52-6.438 12353 > 6d-4*gammabb*t171*t174*t215*t49-5.15088d-3*t171*t426)+t 12354 ? 172*t55*(-3.5375419699200006d-4*t171*t49*t52*t64-2.0603 12355 @ 52d-2*t363)+t215*t50*t58*(-1.25d-1*gammabb*t184*t64-1.2 12356 1 5d-1*gammabb*t174*t49)+5.58012d-3*gammabb*t170*t49*t51* 12357 2 t61*t64+1.28772d-3*gammabb*t171*t215*t49*t50*t61*t64+1. 12358 3 25d-1*gammabb*t215*t341*t49*t58*t64+2.65315647744d-5*ga 12359 4 mmabb*t171*t172*t49*t51*t53*t64-1.6399308763819376d-6*t 12360 5 340*t343*t36*t49*t52*t64+6.6328911936d-6*gammabb*t172*t 12361 6 215*t340*t49*t64-1.030176d-2*t362*t55*t61-1.030176d-2*t 12362 7 342*t51*t53*t61-1.28772d-3*gammabb*t171*t213*t49*t50*t5 12363 8 1*t61+(1.25d-1*gammabb*t425*t49+1.25d-1*gammabb*t184*t2 12364 9 13)*t50*t51*t58-1.25d-1*gammabb*t213*t341*t49*t51*t58-1 12365 : .219864d-2*t126*t391*t55-6.09932d-3*t102*t390*t55+5.306 12366 ; 31295488d-5*rhob*t172*t213*t340*t49*t52)*wght+Mmat3(iq, 12367 < D3_RB_RB_TB) 12368 Mmat3(iq,D3_RA_GAA_TA) = (t23*(1.0d+0*rhoa*t14*t17*(-1.061 12369 1 262590976d-3*gammaaa*t220*t29*t429*taua-3.53754196992d- 12370 2 4*t112*t205*t34*taua-2.122525181952d-3*t205*t220*t30*t3 12371 3 1*taua+1.373568d-1*t112*t205*t31*taua+6.867840000000001 12372 4 d-2*t112*t205*t29*taua-6.559723505527751d-6*t111*t25*t2 12373 5 6*t429*t452-6.559723505527751d-6*t111*t206*t31*t32*t452 12374 6 -6.559723505527751d-6*gammaaa*t111*t205*t29*t30*t452-3. 12375 7 0776615138304003d-3*t220*t25*t26*t410-4.598804560896000 12376 8 4d-4*t112*t27*t30*t34-1.6399308763819376d-6*t111*t206*t 12377 9 220*t30*t34+4.464096d-2*t27*t28*t34+1.061262590976d-4*t 12378 : 111*t112*t206*t34+4.464096d-2*t27*t28*t33-1.63993087638 12379 ; 19376d-6*gammaaa*t111*t205*t220*t33+1.061262590976d-4*t 12380 < 111*t112*t206*t33-7.428838136832d-4*gammaaa*t112*t199*t 12381 = 33-1.3796413682688d-3*t220*t27*t31*t32+1.7856384d-1*t11 12382 > 2*t27*t30*t31+6.367575545856d-4*t111*t206*t220*t30*t31+ 12383 ? 8.928192d-2*t112*t27*t29*t30+3.183787772928d-4*t111*t20 12384 @ 6*t220*t29*t30-2.2286514410496003d-3*gammaaa*t199*t220* 12385 1 t29*t30-8.666666666666666d+0*t27*t28*t29+3.183787772928 12386 2 d-4*gammaaa*t111*t205*t220*t29-2.060352d-2*t111*t112*t2 12387 3 06*t29+1.4422464000000002d-1*gammaaa*t112*t199*t29+6.36 12388 4 7575545856d-4*gammaaa*t111*t205*t220*t25+2.884492800000 12389 5 0003d-1*gammaaa*t112*t199*t25)+1.0d+0*t14*t17*t430+1.0d 12390 6 +0*rhoa*t124*t17*t430-1.25d-1*t14*t16*t417+1.25d-1*gamm 12391 7 aaa*t14*t209*t394+1.25d-1*t14*t15*t209*t35+1.25d-1*t124 12392 8 *t209*t35+1.25d-1*gammaaa*t14*t15*t200*t209+1.25d-1*gam 12393 9 maaa*t124*t200*t209+1.25d-1*t114*t14*t209-1.25d-1*t14*t 12394 : 15*t16*t207-1.25d-1*t124*t16*t207)+t98*(1.0d+0*t96*(-7. 12395 ; 440340892480001d-4*t104*t105*t205*t241*taua-3.720170446 12396 < 2400004d-4*t100*t103*t205*t241*taua-1.2400568154133336d 12397 = -4*t108*t126*t205*taua+8.132426666666668d-2*t105*t126*t 12398 > 205*taua+4.066213333333334d-2*t103*t126*t205*taua-1.361 12399 ? 4306003696336d-6*t101*t111*t206*t461*t99-4.836221580112 12400 @ d-4*t101*t241*t27*t99+1.0572154666666667d-1*t100*t126*t 12401 1 27*t99+2.2321022677440003d-4*t100*t111*t206*t241*t99-5. 12402 2 952272713984d-4*gammaaa*t100*t199*t241*t99+6.5059413333 12403 3 33333d-2*gammaaa*t126*t199*t99-1.3614306003696336d-6*t1 12404 4 05*t106*t111*t206*t461-1.3614306003696336d-6*t100*t103* 12405 5 t104*t111*t206*t461-4.836221580112d-4*t105*t106*t241*t2 12406 6 7-4.836221580112d-4*t100*t103*t104*t241*t27-1.612073860 12407 7 0373333d-4*t104*t108*t126*t27-1.6120738600373333d-4*t10 12408 8 0*t107*t126*t27+1.0572154666666667d-1*t104*t105*t126*t2 12409 9 7+5.286077333333333d-2*t103*t104*t126*t27+5.28607733333 12410 : 3333d-2*t100*t103*t126*t27+2.6430386666666666d-2*t102*t 12411 ; 108*t27+2.6430386666666666d-2*t102*t107*t27-8.666666666 12412 < 666666d+0*t102*t103*t27-3.4035765009240837d-7*t104*t108 12413 = *t111*t206*t241-3.4035765009240837d-7*t100*t107*t111*t2 12414 > 06*t241+2.2321022677440003d-4*t104*t105*t111*t206*t241+ 12415 ? 1.1160511338720001d-4*t103*t104*t111*t206*t241+1.116051 12416 @ 1338720001d-4*t100*t103*t111*t206*t241-2.976136356992d- 12417 1 4*gammaaa*t103*t104*t199*t241+3.72017044624d-5*t108*t11 12418 2 1*t126*t206+3.72017044624d-5*t107*t111*t126*t206-1.2198 12419 3 64d-2*t103*t111*t126*t206-9.920454523306665d-5*gammaaa* 12420 4 t107*t126*t199+3.2529706666666663d-2*gammaaa*t103*t126* 12421 5 t199)+1.0d+0*t168*t432)+t102*t18*(1.0165533333333335d-2 12422 6 *t201*t96-3.04966d-3*t420)-3.04966d-3*t102*t111*t432*t9 12423 7 6-1.6120738600373333d-4*t109*t126*t27*t96-3.40357650092 12424 8 40837d-7*t109*t111*t206*t241*t96+1.86008522312d-5*t111* 12425 9 t126*t18*t210*t96+8.132426666666667d-3*t102*t110*t210*t 12426 : 96+3.72017044624d-5*t111*t126*t20*t201*t96+t16*t18*t28* 12427 ; (t612-2.1462d-3*t14*t35)+t20*t28*(t609+1.71696000000000 12428 < 02d-2*t14*t17*t200)+t15*t209*t23*t604-1.639930876381937 12429 = 6d-6*t111*t14*t17*t220*t35*t431+t15*t16*t23*(1.25d-1*ga 12430 > mmaaa*t14*t430+1.25d-1*t14*t207)-5.15088d-3*rhoa*t111*t 12431 ? 14*t17*t28*t430+t18*t28*(-5.15088d-3*t418+1.71696000000 12432 @ 00002d-3*gammaaa*t14*t15*t209*t35+1.373568d-2*t14*t17*t 12433 1 207)-6.09932d-3*t102*t20*t398+t112*t206*(-2.060352d-2*t 12434 2 396-1.7687709849600003d-4*t14*t17*t35)+t209*t28*(-6.438 12435 3 6d-4*t111*t14*t35-6.4386d-4*gammaaa*t111*t14*t200)+6.43 12436 4 86d-4*gammaaa*t110*t14*t209*t28*t35+1.32657823872d-5*ga 12437 5 mmaaa*t112*t14*t16*t27*t35+6.6328911936d-6*gammaaa*t111 12438 6 *t112*t14*t18*t209*t35-1.32657823872d-5*t111*t112*t14*t 12439 7 16*t20*t35+6.4386d-4*t111*t14*t16*t207*t28-6.4386d-4*ga 12440 8 mmaaa*t110*t14*t16*t207*t28+5.30631295488d-5*t111*t112* 12441 9 t14*t17*t20*t207+3.72017044624d-5*t126*t169*t206+1.0612 12442 : 62590976d-4*t1*t111*t112*t14*t17*t200)*wght+Mmat3(iq,D3 12443 ; _RA_GAA_TA) 12444 Mmat3(iq,D3_RA_GAA_TB) = (t98*(1.0d+0*t96*(-7.440340892480 12445 1 001d-4*t104*t105*t241*t27*t55*taua-3.7201704462400004d- 12446 2 4*t100*t103*t241*t27*t55*taua-1.2400568154133336d-4*t10 12447 3 8*t126*t27*t55*taua+8.132426666666668d-2*t105*t126*t27* 12448 4 t55*taua+4.066213333333334d-2*t103*t126*t27*t55*taua-1. 12449 5 3614306003696336d-6*t101*t111*t18*t461*t55*t99+2.232102 12450 6 2677440003d-4*t100*t111*t18*t241*t55*t99-5.952272713984 12451 7 d-4*gammaaa*t100*t113*t241*t55*t99-2.976136356992d-4*t1 12452 8 01*t110*t241*t55*t99+6.505941333333333d-2*gammaaa*t113* 12453 9 t126*t55*t99+6.505941333333333d-2*t100*t110*t126*t55*t9 12454 : 9-1.3614306003696336d-6*t105*t106*t111*t18*t461*t55-1.3 12455 ; 614306003696336d-6*t100*t103*t104*t111*t18*t461*t55-3.4 12456 < 035765009240837d-7*t104*t108*t111*t18*t241*t55-3.403576 12457 = 5009240837d-7*t100*t107*t111*t18*t241*t55+2.23210226774 12458 > 40003d-4*t104*t105*t111*t18*t241*t55+1.1160511338720001 12459 ? d-4*t103*t104*t111*t18*t241*t55+1.1160511338720001d-4*t 12460 @ 100*t103*t111*t18*t241*t55-2.976136356992d-4*gammaaa*t1 12461 1 03*t104*t113*t241*t55-2.976136356992d-4*t105*t106*t110* 12462 2 t241*t55-2.976136356992d-4*t100*t103*t104*t110*t241*t55 12463 3 +3.72017044624d-5*t108*t111*t126*t18*t55+3.72017044624d 12464 4 -5*t107*t111*t126*t18*t55-1.219864d-2*t103*t111*t126*t1 12465 5 8*t55-9.920454523306665d-5*gammaaa*t107*t113*t126*t55+3 12466 6 .2529706666666663d-2*gammaaa*t103*t113*t126*t55-9.92045 12467 7 4523306665d-5*t104*t108*t110*t126*t55-9.920454523306665 12468 8 d-5*t100*t107*t110*t126*t55+6.505941333333333d-2*t104*t 12469 9 105*t110*t126*t55+3.2529706666666663d-2*t103*t104*t110* 12470 : t126*t55+3.2529706666666663d-2*t100*t103*t110*t126*t55+ 12471 ; 1.6264853333333332d-2*t102*t108*t110*t55+1.626485333333 12472 < 3332d-2*t102*t107*t110*t55-5.333333333333333d+0*t102*t1 12473 = 03*t110*t55)+1.0d+0*t168*t433)-3.4035765009240837d-7*t1 12474 > 09*t111*t18*t241*t55*t96+3.72017044624d-5*t111*t126*t20 12475 ? 1*t55*t96-9.920454523306665d-5*t109*t110*t126*t55*t96-3 12476 @ .04966d-3*t102*t111*t433*t96+1.86008522312d-5*t111*t126 12477 1 *t18*t216*t96+8.132426666666667d-3*t102*t110*t216*t96-6 12478 2 .09932d-3*t102*t398*t55+3.72017044624d-5*t126*t169*t18* 12479 3 t55-3.04966d-3*t102*t18*t422)*wght+Mmat3(iq,D3_RA_GAA_T 12480 4 B) 12481 Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA) 12482 Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB) 12483 Mmat3(iq,D3_RA_GBB_TA) = (t98*(1.0d+0*t96*(-7.440340892480 12484 1 001d-4*t104*t105*t206*t241*t53*taua-3.7201704462400004d 12485 2 -4*t100*t103*t206*t241*t53*taua-1.2400568154133336d-4*t 12486 3 108*t126*t206*t53*taua+8.132426666666668d-2*t105*t126*t 12487 4 206*t53*taua+4.066213333333334d-2*t103*t126*t206*t53*ta 12488 5 ua-1.3614306003696336d-6*t101*t111*t20*t461*t53*t99-5.9 12489 6 52272713984d-4*gammaaa*t100*t241*t27*t53*t99+6.50594133 12490 7 3333333d-2*gammaaa*t126*t27*t53*t99+2.2321022677440003d 12491 8 -4*t100*t111*t20*t241*t53*t99+t624+t623+t622+t621+t620+ 12492 9 t619+t618+t617+t616+t615+t614+t613-1.3614306003696336d- 12493 : 6*t105*t106*t111*t20*t461*t53-1.3614306003696336d-6*t10 12494 ; 0*t103*t104*t111*t20*t461*t53-2.976136356992d-4*gammaaa 12495 < *t103*t104*t241*t27*t53-9.920454523306665d-5*gammaaa*t1 12496 = 07*t126*t27*t53+3.2529706666666663d-2*gammaaa*t103*t126 12497 > *t27*t53-3.4035765009240837d-7*t104*t108*t111*t20*t241* 12498 ? t53-3.4035765009240837d-7*t100*t107*t111*t20*t241*t53+2 12499 @ .2321022677440003d-4*t104*t105*t111*t20*t241*t53+1.1160 12500 1 511338720001d-4*t103*t104*t111*t20*t241*t53+1.116051133 12501 2 8720001d-4*t100*t103*t111*t20*t241*t53+3.72017044624d-5 12502 3 *t108*t111*t126*t20*t53+3.72017044624d-5*t107*t111*t126 12503 4 *t20*t53-1.219864d-2*t103*t111*t126*t20*t53)+1.0d+0*t16 12504 5 8*t434)-3.4035765009240837d-7*t109*t111*t20*t241*t53*t9 12505 6 6+1.86008522312d-5*t111*t126*t210*t53*t96-3.04966d-3*t1 12506 7 02*t111*t434*t96+3.72017044624d-5*t111*t126*t20*t204*t9 12507 8 6+1.0165533333333335d-2*t102*t18*t204*t96+t625-3.04966d 12508 9 -3*t102*t420*t53+3.72017044624d-5*t126*t169*t20*t53-6.0 12509 : 9932d-3*t102*t20*t400)*wght+Mmat3(iq,D3_RA_GBB_TA) 12510 Mmat3(iq,D3_RA_GBB_TB) = (t98*(1.0d+0*t96*(-7.440340892480 12511 1 001d-4*t104*t105*t18*t212*t241*taua-3.7201704462400004d 12512 2 -4*t100*t103*t18*t212*t241*taua-1.2400568154133336d-4*t 12513 3 108*t126*t18*t212*taua+8.132426666666668d-2*t105*t126*t 12514 4 18*t212*taua+4.066213333333334d-2*t103*t126*t18*t212*ta 12515 5 ua-1.3614306003696336d-6*t101*t111*t212*t461*t99+2.2321 12516 6 022677440003d-4*t100*t111*t212*t241*t99-5.952272713984d 12517 7 -4*gammaaa*t100*t110*t212*t241*t99+6.505941333333333d-2 12518 8 *gammaaa*t110*t126*t212*t99-1.3614306003696336d-6*t105* 12519 9 t106*t111*t212*t461-1.3614306003696336d-6*t100*t103*t10 12520 : 4*t111*t212*t461-3.4035765009240837d-7*t104*t108*t111*t 12521 ; 212*t241-3.4035765009240837d-7*t100*t107*t111*t212*t241 12522 < +2.2321022677440003d-4*t104*t105*t111*t212*t241+1.11605 12523 = 11338720001d-4*t103*t104*t111*t212*t241+1.1160511338720 12524 > 001d-4*t100*t103*t111*t212*t241-2.976136356992d-4*gamma 12525 ? aa*t103*t104*t110*t212*t241+3.72017044624d-5*t108*t111* 12526 @ t126*t212+3.72017044624d-5*t107*t111*t126*t212-1.219864 12527 1 d-2*t103*t111*t126*t212-9.920454523306665d-5*gammaaa*t1 12528 2 07*t110*t126*t212+3.2529706666666663d-2*gammaaa*t103*t1 12529 3 10*t126*t212)+1.0d+0*t168*t438)+3.72017044624d-5*t111*t 12530 4 126*t204*t55*t96+1.86008522312d-5*t111*t126*t216*t53*t9 12531 5 6-3.04966d-3*t102*t111*t438*t96-3.4035765009240837d-7*t 12532 6 109*t111*t212*t241*t96-6.09932d-3*t102*t400*t55-3.04966 12533 7 d-3*t102*t422*t53+3.72017044624d-5*t126*t169*t212)*wght 12534 8 +Mmat3(iq,D3_RA_GBB_TB) 12535 Mmat3(iq,D3_RB_GAA_TA) = (t98*(1.0d+0*t96*(-7.440340892480 12536 1 001d-4*t104*t105*t206*t241*t53*taub-3.7201704462400004d 12537 2 -4*t100*t103*t206*t241*t53*taub-1.2400568154133336d-4*t 12538 3 108*t126*t206*t53*taub+8.132426666666668d-2*t105*t126*t 12539 4 206*t53*taub+4.066213333333334d-2*t103*t126*t206*t53*ta 12540 5 ub-1.3614306003696336d-6*t101*t171*t206*t461*t99+2.2321 12541 6 022677440003d-4*t100*t171*t206*t241*t99-5.952272713984d 12542 7 -4*gammabb*t100*t170*t206*t241*t99+6.505941333333333d-2 12543 8 *gammabb*t126*t170*t206*t99-1.3614306003696336d-6*t105* 12544 9 t106*t171*t206*t461-1.3614306003696336d-6*t100*t103*t10 12545 : 4*t171*t206*t461-3.4035765009240837d-7*t104*t108*t171*t 12546 ; 206*t241-3.4035765009240837d-7*t100*t107*t171*t206*t241 12547 < +2.2321022677440003d-4*t104*t105*t171*t206*t241+1.11605 12548 = 11338720001d-4*t103*t104*t171*t206*t241+1.1160511338720 12549 > 001d-4*t100*t103*t171*t206*t241-2.976136356992d-4*gamma 12550 ? bb*t103*t104*t170*t206*t241+3.72017044624d-5*t108*t126* 12551 @ t171*t206+3.72017044624d-5*t107*t126*t171*t206-1.219864 12552 1 d-2*t103*t126*t171*t206-9.920454523306665d-5*gammabb*t1 12553 2 07*t126*t170*t206+3.2529706666666663d-2*gammabb*t103*t1 12554 3 26*t170*t206)+1.0d+0*t197*t432)-3.04966d-3*t102*t171*t4 12555 4 32*t96-3.4035765009240837d-7*t109*t171*t206*t241*t96+1. 12556 5 86008522312d-5*t126*t171*t18*t210*t96+3.72017044624d-5* 12557 6 t126*t171*t20*t201*t96-3.04966d-3*t102*t18*t424-6.09932 12558 7 d-3*t102*t20*t402+3.72017044624d-5*t126*t198*t206)*wght 12559 8 +Mmat3(iq,D3_RB_GAA_TA) 12560 Mmat3(iq,D3_RB_GAA_TB) = (t98*(1.0d+0*t96*(-7.440340892480 12561 1 001d-4*t104*t105*t18*t212*t241*taub-3.7201704462400004d 12562 2 -4*t100*t103*t18*t212*t241*taub-1.2400568154133336d-4*t 12563 3 108*t126*t18*t212*taub+8.132426666666668d-2*t105*t126*t 12564 4 18*t212*taub+4.066213333333334d-2*t103*t126*t18*t212*ta 12565 5 ub-5.952272713984d-4*gammabb*t100*t18*t241*t60*t99+6.50 12566 6 5941333333333d-2*gammabb*t126*t18*t60*t99-1.36143060036 12567 7 96336d-6*t101*t171*t18*t461*t55*t99+2.2321022677440003d 12568 8 -4*t100*t171*t18*t241*t55*t99+t624+t623+t622+t621+t620+ 12569 9 t619+t618+t617+t616+t615+t614+t613-2.976136356992d-4*ga 12570 : mmabb*t103*t104*t18*t241*t60-9.920454523306665d-5*gamma 12571 ; bb*t107*t126*t18*t60+3.2529706666666663d-2*gammabb*t103 12572 < *t126*t18*t60-1.3614306003696336d-6*t105*t106*t171*t18* 12573 = t461*t55-1.3614306003696336d-6*t100*t103*t104*t171*t18* 12574 > t461*t55-3.4035765009240837d-7*t104*t108*t171*t18*t241* 12575 ? t55-3.4035765009240837d-7*t100*t107*t171*t18*t241*t55+2 12576 @ .2321022677440003d-4*t104*t105*t171*t18*t241*t55+1.1160 12577 1 511338720001d-4*t103*t104*t171*t18*t241*t55+1.116051133 12578 2 8720001d-4*t100*t103*t171*t18*t241*t55+3.72017044624d-5 12579 3 *t108*t126*t171*t18*t55+3.72017044624d-5*t107*t126*t171 12580 4 *t18*t55-1.219864d-2*t103*t126*t171*t18*t55)+1.0d+0*t19 12581 5 7*t433)-3.4035765009240837d-7*t109*t171*t18*t241*t55*t9 12582 6 6+3.72017044624d-5*t126*t171*t201*t55*t96+1.01655333333 12583 7 33335d-2*t102*t201*t53*t96-3.04966d-3*t102*t171*t433*t9 12584 8 6+1.86008522312d-5*t126*t171*t18*t216*t96+t625-6.09932d 12585 9 -3*t102*t402*t55+3.72017044624d-5*t126*t18*t198*t55-3.0 12586 : 4966d-3*t102*t18*t428)*wght+Mmat3(iq,D3_RB_GAA_TB) 12587 Mmat3(iq,D3_RB_GAB_TA) = Mmat3(iq,D3_RB_GAB_TA) 12588 Mmat3(iq,D3_RB_GAB_TB) = Mmat3(iq,D3_RB_GAB_TB) 12589 Mmat3(iq,D3_RB_GBB_TA) = (t98*(1.0d+0*t96*(-7.440340892480 12590 1 001d-4*t104*t105*t20*t241*t60*taub-3.7201704462400004d- 12591 2 4*t100*t103*t20*t241*t60*taub-1.2400568154133336d-4*t10 12592 3 8*t126*t20*t60*taub+8.132426666666668d-2*t105*t126*t20* 12593 4 t60*taub+4.066213333333334d-2*t103*t126*t20*t60*taub-1. 12594 5 3614306003696336d-6*t101*t171*t20*t461*t53*t99+2.232102 12595 6 2677440003d-4*t100*t171*t20*t241*t53*t99-5.952272713984 12596 7 d-4*gammabb*t100*t173*t20*t241*t99-2.976136356992d-4*t1 12597 8 01*t170*t20*t241*t99+6.505941333333333d-2*gammabb*t126* 12598 9 t173*t20*t99+6.505941333333333d-2*t100*t126*t170*t20*t9 12599 : 9-1.3614306003696336d-6*t105*t106*t171*t20*t461*t53-1.3 12600 ; 614306003696336d-6*t100*t103*t104*t171*t20*t461*t53-3.4 12601 < 035765009240837d-7*t104*t108*t171*t20*t241*t53-3.403576 12602 = 5009240837d-7*t100*t107*t171*t20*t241*t53+2.23210226774 12603 > 40003d-4*t104*t105*t171*t20*t241*t53+1.1160511338720001 12604 ? d-4*t103*t104*t171*t20*t241*t53+1.1160511338720001d-4*t 12605 @ 100*t103*t171*t20*t241*t53+3.72017044624d-5*t108*t126*t 12606 1 171*t20*t53+3.72017044624d-5*t107*t126*t171*t20*t53-1.2 12607 2 19864d-2*t103*t126*t171*t20*t53-2.976136356992d-4*gamma 12608 3 bb*t103*t104*t173*t20*t241-2.976136356992d-4*t105*t106* 12609 4 t170*t20*t241-2.976136356992d-4*t100*t103*t104*t170*t20 12610 5 *t241-9.920454523306665d-5*gammabb*t107*t126*t173*t20+3 12611 6 .2529706666666663d-2*gammabb*t103*t126*t173*t20-9.92045 12612 7 4523306665d-5*t104*t108*t126*t170*t20-9.920454523306665 12613 8 d-5*t100*t107*t126*t170*t20+6.505941333333333d-2*t104*t 12614 9 105*t126*t170*t20+3.2529706666666663d-2*t103*t104*t126* 12615 : t170*t20+3.2529706666666663d-2*t100*t103*t126*t170*t20+ 12616 ; 1.6264853333333332d-2*t102*t108*t170*t20+1.626485333333 12617 < 3332d-2*t102*t107*t170*t20-5.333333333333333d+0*t102*t1 12618 = 03*t170*t20)+1.0d+0*t197*t434)-3.4035765009240837d-7*t1 12619 > 09*t171*t20*t241*t53*t96+1.86008522312d-5*t126*t171*t21 12620 ? 0*t53*t96-3.04966d-3*t102*t171*t434*t96+8.1324266666666 12621 @ 67d-3*t102*t170*t210*t96+3.72017044624d-5*t126*t171*t20 12622 1 *t204*t96-9.920454523306665d-5*t109*t126*t170*t20*t96-3 12623 2 .04966d-3*t102*t424*t53+3.72017044624d-5*t126*t198*t20* 12624 3 t53-6.09932d-3*t102*t20*t409)*wght+Mmat3(iq,D3_RB_GBB_T 12625 4 A) 12626 Mmat3(iq,D3_RB_GBB_TB) = (t58*(1.0d+0*rhob*t49*t52*(-2.122 12627 1 525181952d-3*t211*t31*t343*t62*taub-1.061262590976d-3*g 12628 2 ammabb*t29*t343*t435*taub-3.53754196992d-4*t172*t211*t3 12629 3 4*taub+1.373568d-1*t172*t211*t31*taub+6.867840000000001 12630 4 d-2*t172*t211*t29*taub-1.3796413682688d-3*t31*t343*t60* 12631 5 t63-6.559723505527751d-6*t171*t212*t31*t587*t63-4.59880 12632 6 45608960004d-4*t172*t34*t60*t62+1.7856384d-1*t172*t31*t 12633 7 60*t62+8.928192d-2*t172*t29*t60*t62-6.559723505527751d- 12634 8 6*gammabb*t171*t211*t29*t587*t62-1.6399308763819376d-6* 12635 9 t171*t212*t34*t343*t62+6.367575545856d-4*t171*t212*t31* 12636 : t343*t62+3.183787772928d-4*t171*t212*t29*t343*t62-2.228 12637 ; 6514410496003d-3*gammabb*t202*t29*t343*t62+4.464096d-2* 12638 < t34*t60*t61+4.464096d-2*t33*t60*t61-8.666666666666666d+ 12639 = 0*t29*t60*t61-6.559723505527751d-6*t171*t25*t435*t587*t 12640 > 59-3.0776615138304003d-3*t25*t343*t414*t59-1.6399308763 12641 ? 819376d-6*gammabb*t171*t211*t33*t343+3.183787772928d-4* 12642 @ gammabb*t171*t211*t29*t343+6.367575545856d-4*gammabb*t1 12643 1 71*t211*t25*t343+1.061262590976d-4*t171*t172*t212*t34+1 12644 2 .061262590976d-4*t171*t172*t212*t33-7.428838136832d-4*g 12645 3 ammabb*t172*t202*t33-2.060352d-2*t171*t172*t212*t29+1.4 12646 4 422464000000002d-1*gammabb*t172*t202*t29+2.884492800000 12647 5 0003d-1*gammabb*t172*t202*t25)+1.25d-1*t215*t49*t50*t64 12648 6 +1.25d-1*t184*t215*t64+1.0d+0*t436*t49*t52+1.0d+0*rhob* 12649 7 t184*t436*t52-1.25d-1*t213*t49*t50*t51-1.25d-1*t425*t49 12650 8 *t51-1.25d-1*t184*t213*t51+1.25d-1*gammabb*t203*t215*t4 12651 9 9*t50+1.25d-1*gammabb*t215*t405*t49+1.25d-1*t174*t215*t 12652 : 49+1.25d-1*gammabb*t184*t203*t215)+t98*(1.0d+0*t96*(-7. 12653 ; 440340892480001d-4*t104*t105*t211*t241*taub-3.720170446 12654 < 2400004d-4*t100*t103*t211*t241*taub-1.2400568154133336d 12655 = -4*t108*t126*t211*taub+8.132426666666668d-2*t105*t126*t 12656 > 211*taub+4.066213333333334d-2*t103*t126*t211*taub-4.836 12657 ? 221580112d-4*t101*t241*t60*t99+1.0572154666666667d-1*t1 12658 @ 00*t126*t60*t99-1.3614306003696336d-6*t101*t171*t212*t4 12659 1 61*t99+2.2321022677440003d-4*t100*t171*t212*t241*t99-5. 12660 2 952272713984d-4*gammabb*t100*t202*t241*t99+6.5059413333 12661 3 33333d-2*gammabb*t126*t202*t99-4.836221580112d-4*t105*t 12662 4 106*t241*t60-4.836221580112d-4*t100*t103*t104*t241*t60- 12663 5 1.6120738600373333d-4*t104*t108*t126*t60-1.612073860037 12664 6 3333d-4*t100*t107*t126*t60+1.0572154666666667d-1*t104*t 12665 7 105*t126*t60+5.286077333333333d-2*t103*t104*t126*t60+5. 12666 8 286077333333333d-2*t100*t103*t126*t60+2.643038666666666 12667 9 6d-2*t102*t108*t60+2.6430386666666666d-2*t102*t107*t60- 12668 : 8.666666666666666d+0*t102*t103*t60-1.3614306003696336d- 12669 ; 6*t105*t106*t171*t212*t461-1.3614306003696336d-6*t100*t 12670 < 103*t104*t171*t212*t461-3.4035765009240837d-7*t104*t108 12671 = *t171*t212*t241-3.4035765009240837d-7*t100*t107*t171*t2 12672 > 12*t241+2.2321022677440003d-4*t104*t105*t171*t212*t241+ 12673 ? 1.1160511338720001d-4*t103*t104*t171*t212*t241+1.116051 12674 @ 1338720001d-4*t100*t103*t171*t212*t241-2.976136356992d- 12675 1 4*gammabb*t103*t104*t202*t241+3.72017044624d-5*t108*t12 12676 2 6*t171*t212+3.72017044624d-5*t107*t126*t171*t212-1.2198 12677 3 64d-2*t103*t126*t171*t212-9.920454523306665d-5*gammabb* 12678 4 t107*t126*t202+3.2529706666666663d-2*gammabb*t103*t126* 12679 5 t202)+1.0d+0*t197*t438)+t102*t53*(1.0165533333333335d-2 12680 6 *t204*t96-3.04966d-3*t428)-1.6120738600373333d-4*t109*t 12681 7 126*t60*t96+3.72017044624d-5*t126*t171*t204*t55*t96+1.8 12682 8 6008522312d-5*t126*t171*t216*t53*t96-3.04966d-3*t102*t1 12683 9 71*t438*t96-3.4035765009240837d-7*t109*t171*t212*t241*t 12684 : 96+8.132426666666667d-3*t102*t170*t216*t96+t172*t212*(- 12685 ; 1.7687709849600003d-4*t49*t52*t64-2.060352d-2*t407)+t53 12686 < *t61*(1.7169600000000002d-3*gammabb*t215*t49*t50*t64+1. 12687 = 373568d-2*t213*t49*t52-5.15088d-3*t426)+t215*t61*(-6.43 12688 > 86d-4*t171*t49*t64-6.4386d-4*gammabb*t171*t203*t49)+t51 12689 ? *t53*t61*(t626-2.1462d-3*t49*t64)+6.4386d-4*gammabb*t17 12690 @ 0*t215*t49*t61*t64+1.32657823872d-5*gammabb*t172*t49*t5 12691 1 1*t60*t64-1.32657823872d-5*t171*t172*t49*t51*t55*t64+6. 12692 2 6328911936d-6*gammabb*t171*t172*t215*t49*t53*t64-1.6399 12693 3 308763819376d-6*t171*t343*t437*t49*t52*t64+t55*t61*(t61 12694 4 1+1.7169600000000002d-2*t203*t49*t52)-5.15088d-3*rhob*t 12695 5 171*t436*t49*t52*t61+6.4386d-4*t171*t213*t49*t51*t61-6. 12696 6 4386d-4*gammabb*t170*t213*t49*t51*t61+t215*t50*t58*t606 12697 7 +(1.25d-1*gammabb*t436*t49+1.25d-1*t213*t49)*t50*t51*t5 12698 8 8+5.30631295488d-5*t171*t172*t213*t49*t52*t55-6.09932d- 12699 9 3*t102*t409*t55+1.061262590976d-4*t171*t172*t203*t36*t4 12700 : 9*t52+3.72017044624d-5*t126*t198*t212)*wght+Mmat3(iq,D3 12701 ; _RB_GBB_TB) 12702 Mmat3(iq,D3_RA_TA_TA) = (1.0d+0*t96*t98*(-1.36143060036963 12703 1 36d-6*t101*t205*t461*t99+4.4642045354880006d-4*t100*t20 12704 2 5*t241*t99-2.439728d-2*t126*t205*t99-1.3614306003696336 12705 3 d-6*t105*t106*t205*t461-1.3614306003696336d-6*t100*t103 12706 4 *t104*t205*t461-3.4035765009240837d-7*t104*t108*t205*t2 12707 5 41-3.4035765009240837d-7*t100*t107*t205*t241+2.23210226 12708 6 77440003d-4*t104*t105*t205*t241+2.2321022677440003d-4*t 12709 7 103*t104*t205*t241+1.1160511338720001d-4*t100*t103*t205 12710 8 *t241+3.72017044624d-5*t108*t126*t205+7.44034089248d-5* 12711 9 t107*t126*t205-2.439728d-2*t103*t126*t205)-6.09932d-3*t 12712 : 102*t18*t432*t96-6.09932d-3*t102*t20*t412*t96+1.8600852 12713 ; 2312d-5*t126*t210*t27*t96-3.4035765009240837d-7*t109*t2 12714 < 05*t241*t96+7.44034089248d-5*t126*t201*t206*t96+t18*t20 12715 = 9*t28*(t628+t627)+t209*t23*t608+1.0d+0*rhoa*t14*t17*t23 12716 > *(-6.559723505527751d-6*gammaaa*t29*t30*t429*t452-6.559 12717 ? 723505527751d-6*t205*t31*t32*t452-6.559723505527751d-6* 12718 @ t25*t26*t452/rhoa**1.2333333333333334d+1-1.639930876381 12719 1 9376d-6*gammaaa*t220*t33*t429+3.183787772928d-4*gammaaa 12720 2 *t220*t29*t429+1.2735151091712002d-3*gammaaa*t220*t25*t 12721 3 429-1.6399308763819376d-6*t205*t220*t30*t34+1.061262590 12722 4 976d-4*t112*t205*t34+2.122525181952d-4*t112*t205*t33+6. 12723 5 367575545856d-4*t205*t220*t30*t31+6.367575545856d-4*t20 12724 6 5*t220*t29*t30-4.120704d-2*t112*t205*t29-4.120704d-2*t1 12725 7 12*t205*t25)-1.6399308763819376d-6*t14*t17*t220*t35*t44 12726 8 0+2.122525181952d-4*t112*t14*t17*t200*t431-1.030176d-2* 12727 9 t14*t17*t20*t28*t430-2.5d-1*t14*t16*t23*t430-1.030176d- 12728 : 2*t1*t14*t17*t28*t411+6.6328911936d-6*gammaaa*t112*t14* 12729 ; t209*t27*t35-2.65315647744d-5*t112*t14*t16*t206*t35+1.2 12730 < 8772d-3*t14*t16*t18*t207*t28+2.57544d-3*t14*t16*t20*t20 12731 = 0*t28+5.30631295488d-5*t112*t14*t17*t206*t207)*wght+Mma 12732 > t3(iq,D3_RA_TA_TA) 12733 Mmat3(iq,D3_RA_TA_TB) = (1.0d+0*t96*t98*(-1.36143060036963 12734 1 36d-6*t101*t27*t461*t55*t99+4.4642045354880006d-4*t100* 12735 2 t241*t27*t55*t99-2.439728d-2*t126*t27*t55*t99-1.3614306 12736 3 003696336d-6*t105*t106*t27*t461*t55-1.3614306003696336d 12737 4 -6*t100*t103*t104*t27*t461*t55-3.4035765009240837d-7*t1 12738 5 04*t108*t241*t27*t55-3.4035765009240837d-7*t100*t107*t2 12739 6 41*t27*t55+2.2321022677440003d-4*t104*t105*t241*t27*t55 12740 7 +2.2321022677440003d-4*t103*t104*t241*t27*t55+1.1160511 12741 8 338720001d-4*t100*t103*t241*t27*t55+3.72017044624d-5*t1 12742 9 08*t126*t27*t55+7.44034089248d-5*t107*t126*t27*t55-2.43 12743 : 9728d-2*t103*t126*t27*t55)-6.09932d-3*t102*t412*t55*t96 12744 ; -3.4035765009240837d-7*t109*t241*t27*t55*t96+7.44034089 12745 < 248d-5*t126*t18*t201*t55*t96-6.09932d-3*t102*t18*t433*t 12746 = 96+1.86008522312d-5*t126*t216*t27*t96)*wght+Mmat3(iq,D3 12747 > _RA_TA_TB) 12748 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 12749 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 12750 Mmat3(iq,D3_RB_TA_TB) = (1.0d+0*t96*t98*(-1.36143060036963 12751 1 36d-6*t101*t206*t461*t53*t99+4.4642045354880006d-4*t100 12752 2 *t206*t241*t53*t99-2.439728d-2*t126*t206*t53*t99-1.3614 12753 3 306003696336d-6*t105*t106*t206*t461*t53-1.3614306003696 12754 4 336d-6*t100*t103*t104*t206*t461*t53-3.4035765009240837d 12755 5 -7*t104*t108*t206*t241*t53-3.4035765009240837d-7*t100*t 12756 6 107*t206*t241*t53+2.2321022677440003d-4*t104*t105*t206* 12757 7 t241*t53+2.2321022677440003d-4*t103*t104*t206*t241*t53+ 12758 8 1.1160511338720001d-4*t100*t103*t206*t241*t53+3.7201704 12759 9 4624d-5*t108*t126*t206*t53+7.44034089248d-5*t107*t126*t 12760 : 206*t53-2.439728d-2*t103*t126*t206*t53)-3.04966d-3*t102 12761 ; *t432*t53*t96-3.4035765009240837d-7*t109*t206*t241*t53* 12762 < t96+1.86008522312d-5*t126*t18*t210*t53*t96+3.7201704462 12763 = 4d-5*t126*t20*t201*t53*t96-3.04966d-3*t102*t18*t434*t96 12764 > -6.09932d-3*t102*t20*t413*t96+3.72017044624d-5*t126*t20 12765 ? 4*t206*t96)*wght+Mmat3(iq,D3_RB_TA_TB) 12766 Mmat3(iq,D3_RB_TB_TB) = (1.0d+0*t96*t98*(-1.36143060036963 12767 1 36d-6*t101*t18*t212*t461*t99+4.4642045354880006d-4*t100 12768 2 *t18*t212*t241*t99-2.439728d-2*t126*t18*t212*t99-1.3614 12769 3 306003696336d-6*t105*t106*t18*t212*t461-1.3614306003696 12770 4 336d-6*t100*t103*t104*t18*t212*t461-3.4035765009240837d 12771 5 -7*t104*t108*t18*t212*t241-3.4035765009240837d-7*t100*t 12772 6 107*t18*t212*t241+2.2321022677440003d-4*t104*t105*t18*t 12773 7 212*t241+2.2321022677440003d-4*t103*t104*t18*t212*t241+ 12774 8 1.1160511338720001d-4*t100*t103*t18*t212*t241+3.7201704 12775 9 4624d-5*t108*t126*t18*t212+7.44034089248d-5*t107*t126*t 12776 : 18*t212-2.439728d-2*t103*t126*t18*t212)-6.09932d-3*t102 12777 ; *t413*t55*t96+3.72017044624d-5*t126*t18*t204*t55*t96-3. 12778 < 04966d-3*t102*t433*t53*t96+1.86008522312d-5*t126*t18*t2 12779 = 16*t53*t96-3.04966d-3*t102*t18*t438*t96-3.4035765009240 12780 > 837d-7*t109*t18*t212*t241*t96+3.72017044624d-5*t126*t20 12781 ? 1*t212*t96)*wght+Mmat3(iq,D3_RB_TB_TB) 12782 Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA) 12783 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 12784 Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA) 12785 Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB) 12786 Mmat3(iq,D3_GAA_GBB_TA) = (1.0d+0*t96*t98*(-1.361430600369 12787 1 6336d-6*t101*t20*t461*t60*t99+4.4642045354880006d-4*t10 12788 2 0*t20*t241*t60*t99-2.439728d-2*t126*t20*t60*t99-1.36143 12789 3 06003696336d-6*t105*t106*t20*t461*t60-1.361430600369633 12790 4 6d-6*t100*t103*t104*t20*t461*t60-3.4035765009240837d-7* 12791 5 t104*t108*t20*t241*t60-3.4035765009240837d-7*t100*t107* 12792 6 t20*t241*t60+2.2321022677440003d-4*t104*t105*t20*t241*t 12793 7 60+2.2321022677440003d-4*t103*t104*t20*t241*t60+1.11605 12794 8 11338720001d-4*t100*t103*t20*t241*t60+3.72017044624d-5* 12795 9 t108*t126*t20*t60+7.44034089248d-5*t107*t126*t20*t60-2. 12796 : 439728d-2*t103*t126*t20*t60)-3.4035765009240837d-7*t109 12797 ; *t20*t241*t60*t96+1.86008522312d-5*t126*t210*t60*t96-6. 12798 < 09932d-3*t102*t434*t53*t96+7.44034089248d-5*t126*t20*t2 12799 = 04*t53*t96-6.09932d-3*t102*t20*t416*t96)*wght+Mmat3(iq, 12800 > D3_GAA_GBB_TA) 12801 Mmat3(iq,D3_GAA_GBB_TB) = (1.0d+0*t96*t98*(-1.361430600369 12802 1 6336d-6*t101*t211*t461*t99+4.4642045354880006d-4*t100*t 12803 2 211*t241*t99-2.439728d-2*t126*t211*t99-1.36143060036963 12804 3 36d-6*t105*t106*t211*t461-1.3614306003696336d-6*t100*t1 12805 4 03*t104*t211*t461-3.4035765009240837d-7*t104*t108*t211* 12806 5 t241-3.4035765009240837d-7*t100*t107*t211*t241+2.232102 12807 6 2677440003d-4*t104*t105*t211*t241+2.2321022677440003d-4 12808 7 *t103*t104*t211*t241+1.1160511338720001d-4*t100*t103*t2 12809 8 11*t241+3.72017044624d-5*t108*t126*t211+7.44034089248d- 12810 9 5*t107*t126*t211-2.439728d-2*t103*t126*t211)+1.86008522 12811 : 312d-5*t126*t216*t60*t96-6.09932d-3*t102*t416*t55*t96-6 12812 ; .09932d-3*t102*t438*t53*t96-3.4035765009240837d-7*t109* 12813 < t211*t241*t96+7.44034089248d-5*t126*t204*t212*t96+6.632 12814 = 8911936d-6*gammabb*t172*t215*t49*t60*t64-1.639930876381 12815 > 9376d-6*t343*t446*t49*t52*t64-2.65315647744d-5*t172*t21 12816 ? 2*t49*t51*t64+t215*t53*t61*(t630+t629)+1.0d+0*rhob*t49* 12817 @ t52*t58*(-6.559723505527751d-6*t211*t31*t587*t63-6.5597 12818 1 23505527751d-6*gammabb*t29*t435*t587*t62-1.639930876381 12819 2 9376d-6*t211*t34*t343*t62+6.367575545856d-4*t211*t31*t3 12820 3 43*t62+6.367575545856d-4*t211*t29*t343*t62-6.5597235055 12821 4 27751d-6*t25*t587*t59/rhob**1.2333333333333334d+1-1.639 12822 5 9308763819376d-6*gammabb*t33*t343*t435+3.183787772928d- 12823 6 4*gammabb*t29*t343*t435+1.2735151091712002d-3*gammabb*t 12824 7 25*t343*t435+1.061262590976d-4*t172*t211*t34+2.12252518 12825 8 1952d-4*t172*t211*t33-4.120704d-2*t172*t211*t29-4.12070 12826 9 4d-2*t172*t211*t25)+t215*t58*t610-1.030176d-2*t436*t49* 12827 : t52*t55*t61+2.57544d-3*t203*t49*t51*t55*t61+1.28772d-3* 12828 ; t213*t49*t51*t53*t61-1.030176d-2*t36*t415*t49*t52*t61-2 12829 < .5d-1*t436*t49*t51*t58+2.122525181952d-4*t172*t203*t437 12830 = *t49*t52+5.30631295488d-5*t172*t212*t213*t49*t52)*wght+ 12831 > Mmat3(iq,D3_GAA_GBB_TB) 12832 Mmat3(iq,D3_GAB_GAB_TA) = (1.0d+0*t96*t98*(-2.722861200739 12833 1 267d-6*t101*t440*t461*t99+4.4642045354880006d-4*t100*t2 12834 2 41*t440*t99-2.722861200739267d-6*t105*t106*t440*t461-2. 12835 3 722861200739267d-6*t100*t103*t104*t440*t461-6.807153001 12836 4 848167d-7*t104*t108*t241*t440-6.807153001848167d-7*t100 12837 5 *t107*t241*t440+8.928409070976001d-4*t104*t105*t241*t44 12838 6 0+2.2321022677440003d-4*t103*t104*t241*t440+4.464204535 12839 7 4880006d-4*t100*t103*t241*t440+1.488068178496d-4*t108*t 12840 8 126*t440+7.44034089248d-5*t107*t126*t440-4.879456d-2*t1 12841 9 05*t126*t440-4.879456d-2*t103*t126*t440)-3.04966d-3*t10 12842 : 2*t18*t443*t96-6.807153001848167d-7*t109*t241*t440*t96- 12843 ; 1.219864d-2*t102*t20*t432*t96+7.44034089248d-5*t126*t20 12844 < 1*t431*t96+7.44034089248d-5*t126*t206*t210*t96-3.279861 12845 = 752763875d-6*t14*t17*t220*t35*t631+t20*t209*t28*(t628+t 12846 > 627+t612)+1.0d+0*rhoa*t14*t17*t23*(-1.3119447011055504d 12847 ? -5*t31*t32*t440*t452-1.3119447011055504d-5*gammaaa*t29* 12848 @ t30*t439*t452-1.3119447011055504d-5*t25*t26*t452/rhoa** 12849 1 1.1333333333333334d+1-3.279861752763875d-6*t220*t30*t34 12850 2 *t440+4.245050363904d-4*t112*t34*t440+2.122525181952d-4 12851 3 *t112*t33*t440+2.5470302183424004d-3*t220*t30*t31*t440- 12852 4 8.241408d-2*t112*t31*t440+6.367575545856d-4*t220*t29*t3 12853 5 0*t440-8.241408d-2*t112*t29*t440-3.279861752763875d-6*g 12854 6 ammaaa*t220*t33*t439+1.2735151091712002d-3*gammaaa*t220 12855 7 *t29*t439+1.2735151091712002d-3*gammaaa*t220*t25*t439)- 12856 8 2*t23*t392*t442+1.28772d-3*gammaaa*t14*t18*t28*t35*t442 12857 9 -5.15088d-3*t14*t17*t20*t28*t441-1.25d-1*t14*t16*t23*t4 12858 : 41-2.65315647744d-5*t112*t14*t16*t35*t431+2.12252518195 12859 ; 2d-4*t112*t14*t17*t207*t431+t209*t23*(2.5d-1*gammaaa*t1 12860 < 4*t430+2.5d-1*t14*t207)-2.060352d-2*t1*t14*t17*t28*t430 12861 = +2.65315647744d-5*gammaaa*t112*t14*t206*t209*t35-1.2877 12862 > 2d-3*gammaaa*t14*t18*t207*t209*t28+2.57544d-3*t14*t16*t 12863 ? 20*t207*t28+2.122525181952d-4*t112*t14*t17*t200*t230)*w 12864 @ ght+Mmat3(iq,D3_GAB_GAB_TA) 12865 Mmat3(iq,D3_GAB_GAB_TB) = (1.0d+0*t96*t98*(-2.722861200739 12866 1 267d-6*t101*t206*t461*t55*t99+4.4642045354880006d-4*t10 12867 2 0*t206*t241*t55*t99-2.722861200739267d-6*t105*t106*t206 12868 3 *t461*t55-2.722861200739267d-6*t100*t103*t104*t206*t461 12869 4 *t55-6.807153001848167d-7*t104*t108*t206*t241*t55-6.807 12870 5 153001848167d-7*t100*t107*t206*t241*t55+8.9284090709760 12871 6 01d-4*t104*t105*t206*t241*t55+2.2321022677440003d-4*t10 12872 7 3*t104*t206*t241*t55+4.4642045354880006d-4*t100*t103*t2 12873 8 06*t241*t55+1.488068178496d-4*t108*t126*t206*t55+7.4403 12874 9 4089248d-5*t107*t126*t206*t55-4.879456d-2*t105*t126*t20 12875 : 6*t55-4.879456d-2*t103*t126*t206*t55)-6.09932d-3*t102*t 12876 ; 432*t55*t96-6.807153001848167d-7*t109*t206*t241*t55*t96 12877 < +3.72017044624d-5*t126*t18*t210*t55*t96+7.44034089248d- 12878 = 5*t126*t20*t201*t55*t96-3.04966d-3*t102*t18*t444*t96-6. 12879 > 09932d-3*t102*t20*t433*t96+3.72017044624d-5*t126*t206*t 12880 ? 216*t96)*wght+Mmat3(iq,D3_GAB_GAB_TB) 12881 Mmat3(iq,D3_GAB_GBB_TA) = (1.0d+0*t96*t98*(-2.722861200739 12882 1 267d-6*t101*t18*t437*t461*t99+4.4642045354880006d-4*t10 12883 2 0*t18*t241*t437*t99-2.722861200739267d-6*t105*t106*t18* 12884 3 t437*t461-2.722861200739267d-6*t100*t103*t104*t18*t437* 12885 4 t461-6.807153001848167d-7*t104*t108*t18*t241*t437-6.807 12886 5 153001848167d-7*t100*t107*t18*t241*t437+8.9284090709760 12887 6 01d-4*t104*t105*t18*t241*t437+2.2321022677440003d-4*t10 12888 7 3*t104*t18*t241*t437+4.4642045354880006d-4*t100*t103*t1 12889 8 8*t241*t437+1.488068178496d-4*t108*t126*t18*t437+7.4403 12890 9 4089248d-5*t107*t126*t18*t437-4.879456d-2*t105*t126*t18 12891 : *t437-4.879456d-2*t103*t126*t18*t437)-1.219864d-2*t102* 12892 ; t433*t55*t96+7.44034089248d-5*t126*t18*t216*t55*t96-3.0 12893 < 4966d-3*t102*t18*t449*t96-6.807153001848167d-7*t109*t18 12894 = *t241*t437*t96+7.44034089248d-5*t126*t201*t437*t96)*wgh 12895 > t+Mmat3(iq,D3_GAB_GBB_TA) 12896 Mmat3(iq,D3_GAB_GBB_TB) = Mmat3(iq,D3_GAB_GBB_TB) 12897 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 12898 Mmat3(iq,D3_GBB_GBB_TB) = Mmat3(iq,D3_GBB_GBB_TB) 12899 Mmat3(iq,D3_GAA_TA_TA) = (1.0d+0*t96*t98*(-2.7228612007392 12900 1 67d-6*t101*t431*t461*t53*t99+4.4642045354880006d-4*t100 12901 2 *t241*t431*t53*t99-2.722861200739267d-6*t105*t106*t431* 12902 3 t461*t53-2.722861200739267d-6*t100*t103*t104*t431*t461* 12903 4 t53-6.807153001848167d-7*t104*t108*t241*t431*t53-6.8071 12904 5 53001848167d-7*t100*t107*t241*t431*t53+8.92840907097600 12905 6 1d-4*t104*t105*t241*t431*t53+2.2321022677440003d-4*t103 12906 7 *t104*t241*t431*t53+4.4642045354880006d-4*t100*t103*t24 12907 8 1*t431*t53+1.488068178496d-4*t108*t126*t431*t53+7.44034 12908 9 089248d-5*t107*t126*t431*t53-4.879456d-2*t105*t126*t431 12909 : *t53-4.879456d-2*t103*t126*t431*t53)-3.04966d-3*t102*t4 12910 ; 43*t53*t96-6.807153001848167d-7*t109*t241*t431*t53*t96+ 12911 < 7.44034089248d-5*t126*t20*t210*t53*t96-1.219864d-2*t102 12912 = *t20*t434*t96+7.44034089248d-5*t126*t204*t431*t96)*wght 12913 > +Mmat3(iq,D3_GAA_TA_TA) 12914 Mmat3(iq,D3_GAA_TA_TB) = (1.0d+0*t96*t98*(-2.7228612007392 12915 1 67d-6*t101*t20*t212*t461*t99+4.4642045354880006d-4*t100 12916 2 *t20*t212*t241*t99-2.722861200739267d-6*t105*t106*t20*t 12917 3 212*t461-2.722861200739267d-6*t100*t103*t104*t20*t212*t 12918 4 461-6.807153001848167d-7*t104*t108*t20*t212*t241-6.8071 12919 5 53001848167d-7*t100*t107*t20*t212*t241+8.92840907097600 12920 6 1d-4*t104*t105*t20*t212*t241+2.2321022677440003d-4*t103 12921 7 *t104*t20*t212*t241+4.4642045354880006d-4*t100*t103*t20 12922 8 *t212*t241+1.488068178496d-4*t108*t126*t20*t212+7.44034 12923 9 089248d-5*t107*t126*t20*t212-4.879456d-2*t105*t126*t20* 12924 : t212-4.879456d-2*t103*t126*t20*t212)-6.09932d-3*t102*t4 12925 ; 34*t55*t96+7.44034089248d-5*t126*t20*t204*t55*t96-3.049 12926 < 66d-3*t102*t444*t53*t96+3.72017044624d-5*t126*t20*t216* 12927 = t53*t96-6.09932d-3*t102*t20*t438*t96-6.807153001848167d 12928 > -7*t109*t20*t212*t241*t96+3.72017044624d-5*t126*t210*t2 12929 ? 12*t96)*wght+Mmat3(iq,D3_GAA_TA_TB) 12930 Mmat3(iq,D3_GAA_TB_TB) = (1.0d+0*t96*t98*(-2.7228612007392 12931 1 67d-6*t101*t446*t461*t99+4.4642045354880006d-4*t100*t24 12932 2 1*t446*t99-2.722861200739267d-6*t105*t106*t446*t461-2.7 12933 3 22861200739267d-6*t100*t103*t104*t446*t461-6.8071530018 12934 4 48167d-7*t104*t108*t241*t446-6.807153001848167d-7*t100* 12935 5 t107*t241*t446+8.928409070976001d-4*t104*t105*t241*t446 12936 6 +2.2321022677440003d-4*t103*t104*t241*t446+4.4642045354 12937 7 880006d-4*t100*t103*t241*t446+1.488068178496d-4*t108*t1 12938 8 26*t446+7.44034089248d-5*t107*t126*t446-4.879456d-2*t10 12939 9 5*t126*t446-4.879456d-2*t103*t126*t446)-1.219864d-2*t10 12940 : 2*t438*t55*t96-3.04966d-3*t102*t449*t53*t96-6.807153001 12941 ; 848167d-7*t109*t241*t446*t96+7.44034089248d-5*t126*t204 12942 < *t437*t96+7.44034089248d-5*t126*t212*t216*t96-3.2798617 12943 = 52763875d-6*t343*t49*t52*t632*t64+1.28772d-3*gammabb*t4 12944 > 48*t49*t53*t61*t64-2.65315647744d-5*t172*t437*t49*t51*t 12945 ? 64+2.65315647744d-5*gammabb*t172*t212*t215*t49*t64+t215 12946 @ *t55*t61*(t630+t629+t626)+1.0d+0*rhob*t49*t52*t58*(-1.3 12947 1 119447011055504d-5*t31*t446*t587*t63-1.3119447011055504 12948 2 d-5*gammabb*t29*t445*t587*t62-3.279861752763875d-6*t34* 12949 3 t343*t446*t62+2.5470302183424004d-3*t31*t343*t446*t62+6 12950 4 .367575545856d-4*t29*t343*t446*t62-1.3119447011055504d- 12951 5 5*t25*t587*t59/rhob**1.1333333333333334d+1+4.2450503639 12952 6 04d-4*t172*t34*t446+2.122525181952d-4*t172*t33*t446-8.2 12953 7 41408d-2*t172*t31*t446-8.241408d-2*t172*t29*t446-3.2798 12954 8 61752763875d-6*gammabb*t33*t343*t445+1.2735151091712002 12955 9 d-3*gammabb*t29*t343*t445+1.2735151091712002d-3*gammabb 12956 : *t25*t343*t445)-5.15088d-3*t447*t49*t52*t55*t61+2.57544 12957 ; d-3*t213*t49*t51*t55*t61-1.28772d-3*gammabb*t213*t215*t 12958 < 49*t53*t61-2.060352d-2*t36*t436*t49*t52*t61-1.25d-1*t44 12959 = 7*t49*t51*t58+t215*(2.5d-1*gammabb*t436*t49+2.5d-1*t213 12960 > *t49)*t58-2*t403*t448*t58+2.122525181952d-4*t172*t213*t 12961 ? 437*t49*t52+2.122525181952d-4*t172*t203*t353*t49*t52)*w 12962 @ ght+Mmat3(iq,D3_GAA_TB_TB) 12963 Mmat3(iq,D3_GAB_TA_TA) = (7.5d-1*gammaaa*t14*t23*t35/taua* 12964 1 *4+1.0d+0*t96*t98*(-5.445722401478534d-6*t101*t461*t631 12965 2 *t99-5.445722401478534d-6*t105*t106*t461*t631-5.4457224 12966 3 01478534d-6*t100*t103*t104*t461*t631-1.3614306003696336 12967 4 d-6*t104*t108*t241*t631-1.3614306003696336d-6*t100*t107 12968 5 *t241*t631+2.678522721292801d-3*t104*t105*t241*t631+1.3 12969 6 392613606464004d-3*t100*t103*t241*t631+4.46420453548799 12970 7 94d-4*t108*t126*t631-2.9276736000000003d-1*t105*t126*t6 12971 8 31)-1.3614306003696336d-6*t109*t241*t631*t96-1.82979600 12972 9 00000002d-2*t102*t20*t443*t96+2.2321022677439997d-4*t12 12973 : 6*t210*t431*t96+1.0d+0*rhoa*t14*t17*t23*(-2.62388940221 12974 ; 1101d-5*gammaaa*t29*t30*t452*t633-6.55972350552775d-6*g 12975 < ammaaa*t220*t33*t633+3.8205453275136003d-3*gammaaa*t220 12976 = *t29*t633-2.623889402211101d-5*t31*t32*t452*t631-6.5597 12977 > 2350552775d-6*t220*t30*t34*t631+1.2735151091712002d-3*t 12978 ? 112*t34*t631+7.641090655027201d-3*t220*t30*t31*t631-4.9 12979 @ 448448d-1*t112*t31*t631-2.623889402211101d-5*t25*t26*t4 12980 1 52/rhoa**1.0333333333333333d+1)+7.72632d-3*gammaaa*t14* 12981 2 t20*t28*t35*t442-7.5d-1*gammaaa*t14*t207*t23*t442-3.090 12982 3 528d-2*t1*t14*t17*t28*t441+3.75d-1*gammaaa*t14*t209*t23 12983 4 *t441+7.959469432320001d-5*gammaaa*t112*t14*t209*t35*t4 12984 5 31-6.55972350552775d-6*t14*t17*t220*t35/rhoa**4-7.72632 12985 6 d-3*gammaaa*t14*t20*t207*t209*t28+6.367575545856d-4*t11 12986 7 2*t14*t17*t207*t230)*wght+Mmat3(iq,D3_GAB_TA_TA) 12987 Mmat3(iq,D3_GAB_TA_TB) = (1.0d+0*t96*t98*(-5.4457224014785 12988 1 34d-6*t101*t431*t461*t55*t99-5.445722401478534d-6*t105* 12989 2 t106*t431*t461*t55-5.445722401478534d-6*t100*t103*t104* 12990 3 t431*t461*t55-1.3614306003696336d-6*t104*t108*t241*t431 12991 4 *t55-1.3614306003696336d-6*t100*t107*t241*t431*t55+2.67 12992 5 8522721292801d-3*t104*t105*t241*t431*t55+1.339261360646 12993 6 4004d-3*t100*t103*t241*t431*t55+4.4642045354879994d-4*t 12994 7 108*t126*t431*t55-2.9276736000000003d-1*t105*t126*t431* 12995 8 t55)-6.09932d-3*t102*t443*t55*t96-1.3614306003696336d-6 12996 9 *t109*t241*t431*t55*t96+1.488068178496d-4*t126*t20*t210 12997 : *t55*t96-1.219864d-2*t102*t20*t444*t96+7.44034089248d-5 12998 ; *t126*t216*t431*t96)*wght+Mmat3(iq,D3_GAB_TA_TB) 12999 Mmat3(iq,D3_GAB_TB_TB) = (1.0d+0*t96*t98*(-5.4457224014785 13000 1 34d-6*t101*t20*t437*t461*t99-5.445722401478534d-6*t105* 13001 2 t106*t20*t437*t461-5.445722401478534d-6*t100*t103*t104* 13002 3 t20*t437*t461-1.3614306003696336d-6*t104*t108*t20*t241* 13003 4 t437-1.3614306003696336d-6*t100*t107*t20*t241*t437+2.67 13004 5 8522721292801d-3*t104*t105*t20*t241*t437+1.339261360646 13005 6 4004d-3*t100*t103*t20*t241*t437+4.4642045354879994d-4*t 13006 7 108*t126*t20*t437-2.9276736000000003d-1*t105*t126*t20*t 13007 8 437)-1.219864d-2*t102*t444*t55*t96+1.488068178496d-4*t1 13008 9 26*t20*t216*t55*t96-6.09932d-3*t102*t20*t449*t96-1.3614 13009 : 306003696336d-6*t109*t20*t241*t437*t96+7.44034089248d-5 13010 ; *t126*t210*t437*t96)*wght+Mmat3(iq,D3_GAB_TB_TB) 13011 Mmat3(iq,D3_GBB_TA_TA) = (7.5d-1*gammabb*t49*t58*t64/taub* 13012 1 *4+1.0d+0*t96*t98*(-5.445722401478534d-6*t101*t461*t632 13013 2 *t99-5.445722401478534d-6*t105*t106*t461*t632-5.4457224 13014 3 01478534d-6*t100*t103*t104*t461*t632-1.3614306003696336 13015 4 d-6*t104*t108*t241*t632-1.3614306003696336d-6*t100*t107 13016 5 *t241*t632+2.678522721292801d-3*t104*t105*t241*t632+1.3 13017 6 392613606464004d-3*t100*t103*t241*t632+4.46420453548799 13018 7 94d-4*t108*t126*t632-2.9276736000000003d-1*t105*t126*t6 13019 8 32)-1.3614306003696336d-6*t109*t241*t632*t96-1.82979600 13020 9 00000002d-2*t102*t449*t55*t96+2.2321022677439997d-4*t12 13021 : 6*t216*t437*t96+7.72632d-3*gammabb*t448*t49*t55*t61*t64 13022 ; -6.55972350552775d-6*t343*t49*t52*t64/rhob**4+7.9594694 13023 < 32320001d-5*gammabb*t172*t215*t437*t49*t64+1.0d+0*rhob* 13024 = t49*t52*t58*(-2.623889402211101d-5*gammabb*t29*t587*t62 13025 > *t634-6.55972350552775d-6*gammabb*t33*t343*t634+3.82054 13026 ? 53275136003d-3*gammabb*t29*t343*t634-2.623889402211101d 13027 @ -5*t31*t587*t63*t632-6.55972350552775d-6*t34*t343*t62*t 13028 1 632+7.641090655027201d-3*t31*t343*t62*t632+1.2735151091 13029 2 712002d-3*t172*t34*t632-4.9448448d-1*t172*t31*t632-2.62 13030 3 3889402211101d-5*t25*t587*t59/rhob**1.0333333333333333d 13031 4 +1)-7.72632d-3*gammabb*t213*t215*t49*t55*t61-3.090528d- 13032 5 2*t36*t447*t49*t52*t61-7.5d-1*gammabb*t213*t448*t49*t58 13033 6 +3.75d-1*gammabb*t215*t447*t49*t58+6.367575545856d-4*t1 13034 7 72*t213*t353*t49*t52)*wght+Mmat3(iq,D3_GBB_TA_TA) 13035 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 13036 t1 = 1/rhob**1.6666666666666669d+0 13037 t2 = 6.0d-50*t1 13038 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 13039 t4 = 1/t3 13040 t5 = param(7) 13041 t6 = param(12) 13042 t7 = 1/t3**2 13043 t8 = 2.0d-50*t1 13044 t9 = t8-9.11559972d+0 13045 t10 = t9**2 13046 t11 = param(10) 13047 t12 = 1/rhob**3.3333333333333337d+0 13048 t13 = param(9) 13049 t14 = param(8) 13050 t15 = param(11) 13051 t16 = 4.0d-50*t1*t15*t7*t9+t13*t4*t9+t10*t6*t7+1.6d-99*t11 13052 1 *t12*t7+t5+4.0d-50*t1*t14*t4 13053 t17 = 1/rhob**6.666666666666666d-1 13054 t18 = rhob**5.0d-1 13055 t19 = 1/t18 13056 t20 = 1/rhob**3.333333333333333d-1 13057 t21 = 1/rhob**1.6666666666666666d-1 13058 t22 = 1.1120374863094686d+1*t21+3.8447462374472113d+0*t20+ 13059 1 1.644733775567609d+0*t19+2.4058712912881916d-1*t17 13060 t23 = 3.216395899738507d+1/t22+1.0d+0 13061 t24 = log(t23) 13062 t25 = 1.274696188700087d-1*t20+1.0d+0 13063 t26 = 5.982550435771079d+0*t21+2.2255694211506874d+0*t20+8 13064 1 .004286349993635d-1*t19+1.8970043257475583d-1*t17 13065 t27 = 1.6081979498692536d+1/t26+1.0d+0 13066 t28 = log(t27) 13067 t29 = 1.3256889990520176d-1*t20+1.0d+0 13068 t30 = -6.903522198342671d-18*t28*t29-3.1090699999999993d-2 13069 1 *t24*t25 13070 t31 = 1/rhoa**6.666666666666666d-1 13071 t32 = rhoa**5.0d-1 13072 t33 = 1/t32 13073 t34 = 1/rhoa**3.333333333333333d-1 13074 t35 = 1/rhoa**1.6666666666666666d-1 13075 t36 = 1.1120374863094686d+1*t35+3.8447462374472113d+0*t34+ 13076 1 1.644733775567609d+0*t33+2.4058712912881916d-1*t31 13077 t37 = 3.216395899738507d+1/t36+1.0d+0 13078 t38 = log(t37) 13079 t39 = 1.274696188700087d-1*t34+1.0d+0 13080 t40 = 5.982550435771079d+0*t35+2.2255694211506874d+0*t34+8 13081 1 .004286349993635d-1*t33+1.8970043257475583d-1*t31 13082 t41 = 1.6081979498692536d+1/t40+1.0d+0 13083 t42 = log(t41) 13084 t43 = 1.3256889990520176d-1*t34+1.0d+0 13085 t44 = -6.903522198342671d-18*t42*t43-3.1090699999999993d-2 13086 1 *t38*t39 13087 t45 = 1/rhoa 13088 t46 = 1/taua 13089 t47 = 1.0d+0-1.25d-1*gammaaa*t45*t46 13090 t48 = 1/rhoa**2.6666666666666666d+0 13091 t49 = gammaaa*t48 13092 t50 = 1/rhoa**1.6666666666666669d+0 13093 t51 = 2.0d+0*t50*taua 13094 t52 = 5.15088d-3*(t51+t49-9.11559972d+0)+1.0d+0 13095 t53 = 1/t52 13096 t54 = gammaaa**2 13097 t55 = 1/rhoa**5.333333333333333d+0 13098 t56 = 1/t52**2 13099 t57 = t51-9.11559972d+0 13100 t58 = t57**2 13101 t59 = t56*t58*t6+gammaaa*t15*t48*t56*t57+t13*t53*t57+t11*t 13102 1 54*t55*t56+gammaaa*t14*t48*t53+t5 13103 t60 = rhob+rhoa 13104 t61 = 1/t60**3.333333333333333d-1 13105 t62 = 1.3256889990520176d-1*t61+1.0d+0 13106 t63 = rhoa-rhob 13107 t64 = t63**4 13108 t65 = 1/t60**4 13109 t66 = 1/t60 13110 t67 = 1.0d+0-t63*t66 13111 t68 = t63*t66+1.0d+0 13112 t69 = t68**1.3333333333333333d+0+t67**1.3333333333333333d+ 13113 1 0-2.0d+0 13114 t70 = -1.923661050931536d+0*t64*t65*t69 13115 t71 = t70+1.0d+0 13116 t72 = 1/t60**6.666666666666666d-1 13117 t73 = t60**5.0d-1 13118 t74 = 1/t73 13119 t75 = 1/t60**1.6666666666666666d-1 13120 t76 = 5.982550435771079d+0*t75+8.004286349993635d-1*t74+1. 13121 1 8970043257475583d-1*t72+2.2255694211506874d+0*t61 13122 t77 = 1.6081979498692536d+1/t76+1.0d+0 13123 t78 = log(t77) 13124 t79 = -6.21814d-2*t62*t71*t78 13125 t80 = 6.901399211255825d-2*t61+1.0d+0 13126 t81 = t70+1.923661050931536d+0*t69 13127 t82 = 8.157414703487641d+0*t75+4.3009724712766434d-1*t74+1 13128 1 .9115125951273373d-1*t72+2.247591863577616d+0*t61 13129 t83 = 2.9608813203268075d+1/t82+1.0d+0 13130 t84 = log(t83) 13131 t85 = 1.9751631321680768d-2*t80*t81*t84 13132 t86 = 1.274696188700087d-1*t61+1.0d+0 13133 t87 = 1.1120374863094686d+1*t75+1.644733775567609d+0*t74+2 13134 1 .4058712912881916d-1*t72+3.8447462374472113d+0*t61 13135 t88 = 3.216395899738507d+1/t87+1.0d+0 13136 t89 = log(t88) 13137 t90 = -5.980796863619711d-2*t64*t65*t69*t86*t89 13138 t91 = t60*(t90+t85+t79)-rhoa*t44-rhob*t30 13139 t92 = 3.04966d-3*(t51+t49+t2-1.823119944d+1)+1.0d+0 13140 t93 = 1/t92 13141 t94 = param(4) 13142 t95 = t49+4.0d-50*t1 13143 t96 = t95**2 13144 t97 = 1/t92**2 13145 t98 = param(5) 13146 t99 = t8+t51-1.823119944d+1 13147 t100 = param(6) 13148 t101 = t99**2 13149 t102 = param(2) 13150 t103 = param(3) 13151 t104 = t95*t97*t98*t99+t103*t93*t99+t94*t96*t97+t100*t101* 13152 1 t97+t102*t93*t95+param(1) 13153 t105 = 1/rhoa**3.6666666666666664d+0 13154 t106 = -3.3333333333333337d+0*t48*taua-2.6666666666666666d 13155 1 +0*gammaaa*t105 13156 t107 = 1/t52**3 13157 t108 = 1/rhoa**6.333333333333333d+0 13158 t109 = -6.666666666666667d+0*t48*t56*t57*t6*taua-3.3333333 13159 1 333333337d+0*gammaaa*t15*t55*t56*taua-3.333333333333333 13160 2 7d+0*t13*t48*t53*taua-1.030176d-2*t106*t107*t58*t6-2.66 13161 3 66666666666666d+0*gammaaa*t105*t15*t56*t57-5.15088d-3*t 13162 4 106*t13*t56*t57-1.030176d-2*gammaaa*t106*t107*t15*t48*t 13163 5 57-5.333333333333333d+0*t108*t11*t54*t56-5.15088d-3*gam 13164 6 maaa*t106*t14*t48*t56-1.030176d-2*t106*t107*t11*t54*t55 13165 7 -2.6666666666666666d+0*gammaaa*t105*t14*t53 13166 t110 = 1/t41 13167 t111 = 1/t32**3 13168 t112 = 1/rhoa**1.3333333333333333d+0 13169 t113 = 1/rhoa**1.1666666666666667d+0 13170 t114 = -1.264669550498372d-1*t50-9.970917392951799d-1*t113 13171 1 -7.418564737168958d-1*t112-4.002143174996817d-1*t111 13172 t115 = 1/t40**2 13173 t116 = 1/t37 13174 t117 = -1.6039141941921276d-1*t50-1.8533958105157808d+0*t1 13175 1 13-1.2815820791490704d+0*t112-8.223668877838045d-1*t111 13176 t118 = 1/t36**2 13177 t119 = 1.1102230246251565d-16*t110*t114*t115*t43+3.0506411 13178 1 443514264d-19*t112*t42+1.0d+0*t116*t117*t118*t39+1.3210 13179 2 398931339265d-3*t112*t38 13180 t120 = 1.0d+0*t44*t47*t59+1.0d+0*rhoa*t119*t47*t59+1.0d+0* 13181 1 rhoa*t109*t44*t47 13182 t121 = 1/t92**3 13183 t122 = -6.666666666666667d+0*t100*t48*t97*t99*taua-3.33333 13184 1 33333333337d+0*t48*t95*t97*t98*taua-3.3333333333333337d 13185 2 +0*t103*t48*t93*taua-2.6666666666666666d+0*gammaaa*t105 13186 3 *t97*t98*t99-6.09932d-3*t106*t121*t95*t98*t99-3.04966d- 13187 4 3*t103*t106*t97*t99-5.333333333333333d+0*gammaaa*t105*t 13188 5 94*t95*t97-3.04966d-3*t102*t106*t95*t97-6.09932d-3*t106 13189 6 *t121*t94*t96-2.6666666666666666d+0*gammaaa*t102*t105*t 13190 7 93-6.09932d-3*t100*t101*t106*t121 13191 t123 = 1/t60**1.6666666666666669d+0 13192 t124 = 1/t73**3 13193 t125 = 1/t60**1.3333333333333333d+0 13194 t126 = 1/t60**1.1666666666666667d+0 13195 t127 = -9.970917392951799d-1*t126-7.418564737168958d-1*t12 13196 1 5-4.002143174996817d-1*t124-1.264669550498372d-1*t123 13197 t128 = 1/t76**2 13198 t129 = 1/t77 13199 t130 = 1.0d+0*t127*t128*t129*t62*t71 13200 t131 = -1.3595691172479402d+0*t126-7.491972878592053d-1*t1 13201 1 25-2.1504862356383217d-1*t124-1.2743417300848914d-1*t12 13202 2 3 13203 t132 = 1/t82**2 13204 t133 = 1/t83 13205 t134 = -5.848223622634647d-1*t131*t132*t133*t80*t81 13206 t135 = -1.8533958105157808d+0*t126-1.2815820791490704d+0*t 13207 1 125-8.223668877838045d-1*t124-1.6039141941921276d-1*t12 13208 2 3 13209 t136 = 1/t87**2 13210 t137 = 1/t88 13211 t138 = 1.923661050931536d+0*t135*t136*t137*t64*t65*t69*t86 13212 t139 = 1/t60**2 13213 t140 = t139*t63 13214 t141 = -t66 13215 t142 = t141+t140 13216 t143 = t67**3.333333333333333d-1 13217 t144 = -t139*t63 13218 t145 = t66+t144 13219 t146 = t68**3.333333333333333d-1 13220 t147 = 1.3333333333333333d+0*t145*t146+1.3333333333333333d 13221 1 +0*t142*t143 13222 t148 = -1.923661050931536d+0*t147*t64*t65 13223 t149 = 1/t60**5 13224 t150 = 7.694644203726144d+0*t149*t64*t69 13225 t151 = t63**3 13226 t152 = -7.694644203726144d+0*t151*t65*t69 13227 t153 = t152+t150+t148 13228 t154 = -6.21814d-2*t153*t62*t78 13229 t155 = 2.747773264188437d-3*t125*t71*t78 13230 t156 = t152+t150+t148+1.923661050931536d+0*t147 13231 t157 = 1.9751631321680768d-2*t156*t80*t84 13232 t158 = -4.5437964274821163d-4*t125*t81*t84 13233 t159 = -5.980796863619711d-2*t147*t64*t65*t86*t89 13234 t160 = 1/t60**5.333333333333333d+0 13235 t161 = 2.541232989148493d-3*t160*t64*t69*t89 13236 t162 = 2.3923187454478842d-1*t149*t64*t69*t86*t89 13237 t163 = t90+t60*(-2.3923187454478842d-1*t151*t65*t69*t86*t8 13238 1 9+t162+t161+t159+t158+t157+t155+t154+t138+t134+t130)+t8 13239 2 5+t79+6.903522198342671d-18*t42*t43+3.1090699999999993d 13240 3 -2*t38*t39-rhoa*t119 13241 t164 = 1.0d+0*t122*t91+1.0d+0*t104*t163 13242 t165 = 1/t27 13243 t166 = 1/t18**3 13244 t167 = 1/rhob**1.3333333333333333d+0 13245 t168 = 1/rhob**1.1666666666666667d+0 13246 t169 = -9.970917392951799d-1*t168-7.418564737168958d-1*t16 13247 1 7-4.002143174996817d-1*t166-1.264669550498372d-1*t1 13248 t170 = 1/t26**2 13249 t171 = 1/t23 13250 t172 = -1.8533958105157808d+0*t168-1.2815820791490704d+0*t 13251 1 167-8.223668877838045d-1*t166-1.6039141941921276d-1*t1 13252 t173 = 1/t22**2 13253 t174 = 1.1102230246251565d-16*t165*t169*t170*t29+3.0506411 13254 1 443514264d-19*t167*t28+1.0d+0*t171*t172*t173*t25+1.3210 13255 2 398931339265d-3*t167*t24 13256 t175 = 1/t3**3 13257 t176 = 1/rhob**4.333333333333333d+0 13258 t177 = 1/rhob**2.6666666666666666d+0 13259 t178 = -6.666666666666666d-50*t177*t6*t7*t9-6.666666666666 13260 1 666d-50*t15*t177*t7*t9+5.15088d-52*t13*t177*t7*t9+4.120 13261 2 7039999999995d-101*t15*t175*t176*t9-1.3333333333333333d 13262 3 -99*t15*t176*t7+2.0603519999999997d-101*t14*t176*t7-5.3 13263 4 33333333333334d-99*t11*t176*t7+1.030176d-51*t10*t175*t1 13264 5 77*t6-6.666666666666666d-50*t14*t177*t4-3.3333333333333 13265 6 33d-50*t13*t177*t4+1.6482816d-150*t11*t175/rhob**6 13266 t179 = 5.0d-1*rhob*t178*t30+5.0d-1*t16*t30+5.0d-1*rhob*t16 13267 1 *t174 13268 t180 = -6.666666666666666d-50*t177*t97*t98*t99+6.09932d-52 13269 1 *t121*t177*t95*t98*t99+3.04966d-52*t103*t177*t97*t99-6. 13270 2 666666666666666d-50*t100*t177*t97*t99-3.333333333333333 13271 3 d-50*t177*t95*t97*t98-1.3333333333333333d-49*t177*t94*t 13272 4 95*t97+3.04966d-52*t102*t177*t95*t97+6.09932d-52*t121*t 13273 5 177*t94*t96-3.333333333333333d-50*t103*t177*t93-6.66666 13274 6 6666666666d-50*t102*t177*t93+6.09932d-52*t100*t101*t121 13275 7 *t177 13276 t181 = t66+t140 13277 t182 = t144+t141 13278 t183 = 1.3333333333333333d+0*t146*t182+1.3333333333333333d 13279 1 +0*t143*t181 13280 t184 = -1.923661050931536d+0*t183*t64*t65 13281 t185 = 7.694644203726144d+0*t151*t65*t69 13282 t186 = t185+t184+t150 13283 t187 = -6.21814d-2*t186*t62*t78 13284 t188 = t185+t184+1.923661050931536d+0*t183+t150 13285 t189 = 1.9751631321680768d-2*t188*t80*t84 13286 t190 = -5.980796863619711d-2*t183*t64*t65*t86*t89 13287 t191 = t90+t60*(2.3923187454478842d-1*t151*t65*t69*t86*t89 13288 1 +t190+t189+t187+t162+t161+t158+t155+t138+t134+t130)+t85 13289 2 +t79+6.903522198342671d-18*t28*t29+3.1090699999999993d- 13290 3 2*t24*t25-rhob*t174 13291 t192 = 1.0d+0*t180*t91+1.0d+0*t104*t191 13292 t193 = 1/rhoa**8 13293 t194 = -1.030176d-2*t107*t48*t58*t6+t15*t48*t56*t57-5.1508 13294 1 8d-3*t13*t48*t56*t57-1.030176d-2*gammaaa*t107*t15*t55*t 13295 2 57-5.15088d-3*gammaaa*t14*t55*t56+2*gammaaa*t11*t55*t56 13296 3 -1.030176d-2*t107*t11*t193*t54+t14*t48*t53 13297 t195 = t48*t97*t98*t99-6.09932d-3*t121*t48*t95*t98*t99-3.0 13298 1 4966d-3*t103*t48*t97*t99+2*t48*t94*t95*t97-3.04966d-3*t 13299 2 102*t48*t95*t97-6.09932d-3*t121*t48*t94*t96+t102*t48*t9 13300 3 3-6.09932d-3*t100*t101*t121*t48 13301 t196 = 1/rhoa**7 13302 t197 = 1/rhoa**4.333333333333333d+0 13303 t198 = -2.060352d-2*t107*t50*t58*t6+4.0d+0*t50*t56*t57*t6- 13304 1 1.030176d-2*t13*t50*t56*t57-2.060352d-2*gammaaa*t107*t1 13305 2 5*t197*t57+2.0d+0*gammaaa*t15*t197*t56-1.030176d-2*gamm 13306 3 aaa*t14*t197*t56-2.060352d-2*t107*t11*t196*t54+2.0d+0*t 13307 4 13*t50*t53 13308 t199 = taua**2 13309 t200 = 1/t199 13310 t201 = -1.219864d-2*t121*t50*t95*t98*t99-6.09932d-3*t103*t 13311 1 50*t97*t99+4.0d+0*t100*t50*t97*t99+2.0d+0*t50*t95*t97*t 13312 2 98-6.09932d-3*t102*t50*t95*t97-1.219864d-2*t121*t50*t94 13313 3 *t96+2.0d+0*t103*t50*t93-1.219864d-2*t100*t101*t121*t50 13314 t202 = t106**2 13315 t203 = 1/rhoa**2 13316 t204 = 1.25d-1*gammaaa*t119*t59+1.25d-1*gammaaa*t109*t44 13317 t205 = 1/t52**4 13318 t206 = 1/rhoa**4.666666666666667d+0 13319 t207 = 8.88888888888889d+0*t105*taua+9.777777777777779d+0* 13320 1 gammaaa*t206 13321 t208 = 1/rhoa**7.333333333333333d+0 13322 t209 = 1.7777777777777778d+1*t105*t56*t57*t6*taua+1.373568 13323 1 d-1*t106*t107*t48*t57*t6*taua+3.4339200000000003d-2*t10 13324 2 6*t13*t48*t56*taua+2.6666666666666666d+1*gammaaa*t108*t 13325 3 15*t56*taua+6.867840000000001d-2*gammaaa*t106*t107*t15* 13326 4 t55*taua+8.88888888888889d+0*t105*t13*t53*taua-1.030176 13327 5 d-2*t107*t207*t58*t6+1.591893886464d-4*t202*t205*t58*t6 13328 6 +2.2222222222222224d+1*t199*t55*t56*t6-5.15088d-3*t13*t 13329 7 207*t56*t57+9.777777777777779d+0*gammaaa*t15*t206*t56*t 13330 8 57-1.030176d-2*gammaaa*t107*t15*t207*t48*t57+1.59189388 13331 9 6464d-4*gammaaa*t15*t202*t205*t48*t57+5.30631295488d-5* 13332 : t107*t13*t202*t57+5.494272d-2*gammaaa*t105*t106*t107*t1 13333 ; 5*t57+3.377777777777778d+1*t11*t208*t54*t56-5.15088d-3* 13334 < gammaaa*t14*t207*t48*t56+2.747136d-2*gammaaa*t105*t106* 13335 = t14*t56-1.030176d-2*t107*t11*t207*t54*t55+1.59189388646 13336 > 4d-4*t11*t202*t205*t54*t55+1.0988544d-1*t106*t107*t108* 13337 ? t11*t54+9.777777777777779d+0*gammaaa*t14*t206*t53+5.306 13338 @ 31295488d-5*gammaaa*t107*t14*t202*t48 13339 t210 = 1/t41**2 13340 t211 = t114**2 13341 t212 = 1/t40**4 13342 t213 = 1/t40**3 13343 t214 = 1/t32**5 13344 t215 = 1/rhoa**2.3333333333333334d+0 13345 t216 = 1/rhoa**2.1666666666666665d+0 13346 t217 = 2.1077825841639536d-1*t48+1.1632736958443765d+0*t21 13347 1 6+9.89141964955861d-1*t215+6.003214762495226d-1*t214 13348 t218 = 1/t37**2 13349 t219 = t117**2 13350 t220 = 1/t36**4 13351 t221 = 1/t36**3 13352 t222 = 2.673190323653546d-1*t48+2.1622951122684114d+0*t216 13353 1 +1.7087761055320938d+0*t215+1.2335503316757068d+0*t214 13354 t223 = 1.1102230246251565d-16*t110*t115*t217*t43-2.2204460 13355 1 49250313d-16*t110*t211*t213*t43+1.7854583920998188d-15* 13356 2 t210*t211*t212*t43-4.0675215258019015d-19*t215*t42+1.0d 13357 3 +0*t116*t118*t222*t39-2.0d+0*t116*t219*t221*t39+3.21639 13358 4 5899738507d+1*t218*t219*t220*t39-1.7613865241785684d-3* 13359 5 t215*t38-8.497974591333913d-2*t112*t116*t117*t118-9.812 13360 6 069668265515d-18*t110*t112*t114*t115 13361 t224 = 1.0d+0*rhoa*t223*t47*t59+2.0d+0*t119*t47*t59+1.25d- 13362 1 1*gammaaa*t119*t45*t46*t59+1.25d-1*gammaaa*t203*t44*t46 13363 2 *t59+1.0d+0*rhoa*t209*t44*t47+2.0d+0*t109*t44*t47+2.0d+ 13364 3 0*rhoa*t109*t119*t47+1.25d-1*gammaaa*t109*t44*t45*t46 13365 t225 = -5.15088d-3*rhoa*t207*t44*t47*t59-5.15088d-3*t106*t 13366 1 44*t47*t59-5.15088d-3*rhoa*t106*t119*t47*t59-5.15088d-3 13367 2 *rhoa*t106*t109*t44*t47-5.15088d-3*t106*t120 13368 t226 = 1/t92**4 13369 t227 = 1.7777777777777778d+1*t100*t105*t97*t99*taua+8.1324 13370 1 26666666668d-2*t100*t106*t121*t48*t99*taua+8.8888888888 13371 2 8889d+0*t105*t95*t97*t98*taua+1.7777777777777778d+1*gam 13372 3 maaa*t108*t97*t98*taua+4.066213333333334d-2*t106*t121*t 13373 4 48*t95*t98*taua+2.033106666666667d-2*t103*t106*t48*t97* 13374 5 taua+8.88888888888889d+0*t103*t105*t93*taua+9.777777777 13375 6 777779d+0*gammaaa*t206*t97*t98*t99+5.580255669360001d-5 13376 7 *t202*t226*t95*t98*t99-6.09932d-3*t121*t207*t95*t98*t99 13377 8 +3.2529706666666663d-2*gammaaa*t105*t106*t121*t98*t99-3 13378 9 .04966d-3*t103*t207*t97*t99+1.86008522312d-5*t103*t121* 13379 : t202*t99+1.9555555555555557d+1*gammaaa*t206*t94*t95*t97 13380 ; -3.04966d-3*t102*t207*t95*t97+1.4222222222222222d+1*t20 13381 < 8*t54*t94*t97+2.2222222222222224d+1*t100*t199*t55*t97+1 13382 = .6264853333333332d-2*gammaaa*t102*t105*t106*t97+5.58025 13383 > 5669360001d-5*t202*t226*t94*t96-6.09932d-3*t121*t207*t9 13384 ? 4*t96+6.505941333333333d-2*gammaaa*t105*t106*t121*t94*t 13385 @ 95+1.86008522312d-5*t102*t121*t202*t95+9.77777777777777 13386 1 9d+0*gammaaa*t102*t206*t93+5.580255669360001d-5*t100*t1 13387 2 01*t202*t226-6.09932d-3*t100*t101*t121*t207 13388 t228 = 2.0d+0*t127*t128*t129*t62*t71 13389 t229 = -1.1696447245269295d+0*t131*t132*t133*t80*t81 13390 t230 = 3.847322101863072d+0*t135*t136*t137*t64*t65*t69*t86 13391 t231 = 5.495546528376875d-3*t125*t71*t78 13392 t232 = -9.087592854964233d-4*t125*t81*t84 13393 t233 = 5.082465978296986d-3*t160*t64*t69*t89 13394 t234 = 4.7846374908957684d-1*t149*t64*t69*t86*t89 13395 t235 = t127**2 13396 t236 = 1/t76**4 13397 t237 = 1/t77**2 13398 t238 = 1.6081979498692536d+1*t235*t236*t237*t62*t71 13399 t239 = 2.0d+0*t127*t128*t129*t153*t62 13400 t240 = 1/t76**3 13401 t241 = -2.0d+0*t129*t235*t240*t62*t71 13402 t242 = -8.837926660346784d-2*t125*t127*t128*t129*t71 13403 t243 = 1/t60**2.6666666666666666d+0 13404 t244 = 1/t73**5 13405 t245 = 1/t60**2.3333333333333334d+0 13406 t246 = 1/t60**2.1666666666666665d+0 13407 t247 = 1.1632736958443765d+0*t246+9.89141964955861d-1*t245 13408 1 +6.003214762495226d-1*t244+2.1077825841639536d-1*t243 13409 t248 = 1.0d+0*t128*t129*t247*t62*t71 13410 t249 = t131**2 13411 t250 = 1/t82**4 13412 t251 = 1/t83**2 13413 t252 = -1.73158960813529d+1*t249*t250*t251*t80*t81 13414 t253 = -1.1696447245269295d+0*t131*t132*t133*t156*t80 13415 t254 = 1/t82**3 13416 t255 = 1.1696447245269295d+0*t133*t249*t254*t80*t81 13417 t256 = 2.690728393099896d-2*t125*t131*t132*t133*t81 13418 t257 = 1.5861639701225969d+0*t246+9.98929717145607d-1*t245 13419 1 +3.2257293534574827d-1*t244+2.1239028834748191d-1*t243 13420 t258 = -5.848223622634647d-1*t132*t133*t257*t80*t81 13421 t259 = t135**2 13422 t260 = 1/t87**4 13423 t261 = 1/t88**2 13424 t262 = 6.187255516702861d+1*t259*t260*t261*t64*t65*t69*t86 13425 t263 = 3.847322101863072d+0*t135*t136*t137*t147*t64*t65*t8 13426 1 6 13427 t264 = 1/t87**3 13428 t265 = -3.847322101863072d+0*t137*t259*t264*t64*t65*t69*t8 13429 1 6 13430 t266 = -1.6347222733154887d-1*t135*t136*t137*t160*t64*t69 13431 t267 = 2.1622951122684114d+0*t246+1.7087761055320938d+0*t2 13432 1 45+1.2335503316757068d+0*t244+2.673190323653546d-1*t243 13433 t268 = 1.923661050931536d+0*t136*t137*t267*t64*t65*t69*t86 13434 t269 = -1.538928840745229d+1*t135*t136*t137*t149*t64*t69*t 13435 1 86 13436 t270 = 1.538928840745229d+1*t135*t136*t137*t151*t65*t69*t8 13437 1 6 13438 t271 = t142**2 13439 t272 = 1/t67**6.666666666666666d-1 13440 t273 = 1/t60**3 13441 t274 = -2*t273*t63 13442 t275 = 2*t139 13443 t276 = t275+t274 13444 t277 = t145**2 13445 t278 = 1/t68**6.666666666666666d-1 13446 t279 = 2*t273*t63 13447 t280 = -2*t139 13448 t281 = t280+t279 13449 t282 = 1.3333333333333333d+0*t146*t281+4.444444444444444d- 13450 1 1*t277*t278+1.3333333333333333d+0*t143*t276+4.444444444 13451 2 444444d-1*t271*t272 13452 t283 = -1.923661050931536d+0*t282*t64*t65 13453 t284 = 1.5389288407452287d+1*t147*t149*t64 13454 t285 = -1.5389288407452287d+1*t147*t151*t65 13455 t286 = 1/t60**6 13456 t287 = -3.8473221018630716d+1*t286*t64*t69 13457 t288 = 6.155715362980915d+1*t149*t151*t69 13458 t289 = t63**2 13459 t290 = -2.3083932611178434d+1*t289*t65*t69 13460 t291 = t290+t288+t287+t285+t284+t283 13461 t292 = -6.21814d-2*t291*t62*t78 13462 t293 = 5.495546528376875d-3*t125*t153*t78 13463 t294 = -3.663697685584583d-3*t245*t71*t78 13464 t295 = t290+t288+t287+t285+t284+t283+1.923661050931536d+0* 13465 1 t282 13466 t296 = 1.9751631321680768d-2*t295*t80*t84 13467 t297 = -9.087592854964233d-4*t125*t156*t84 13468 t298 = 6.058395236642822d-4*t245*t81*t84 13469 t299 = -5.980796863619711d-2*t282*t64*t65*t86*t89 13470 t300 = 5.082465978296986d-3*t147*t160*t64*t89 13471 t301 = 4.7846374908957684d-1*t147*t149*t64*t86*t89 13472 t302 = 1/t60**6.333333333333333d+0 13473 t303 = -2.3718174565385935d-2*t302*t64*t69*t89 13474 t304 = 2.0329863913187946d-2*t151*t160*t69*t89 13475 t305 = -1.1961593727239421d+0*t286*t64*t69*t86*t89 13476 t306 = 1.9138549963583074d+0*t149*t151*t69*t86*t89 13477 t307 = -7.176956236343652d-1*t289*t65*t69*t86*t89 13478 t308 = t60*(-4.7846374908957684d-1*t147*t151*t65*t86*t89+t 13479 1 307+t306+t305+t304+t303+t301+t300+t299+t298+t297+t296+t 13480 2 294+t293+t292+t270+t269+t268+t266+t265+t263+t262+t258+t 13481 3 256+t255+t253+t252+t248+t242+t241+t239+t238)-4.78463749 13482 4 08957684d-1*t151*t65*t69*t86*t89-1.1961593727239421d-1* 13483 5 t147*t64*t65*t86*t89+3.9503262643361536d-2*t156*t80*t84 13484 6 -1.243628d-1*t153*t62*t78-2.220446049250313d-16*t110*t1 13485 7 14*t115*t43-6.101282288702853d-19*t112*t42-2.0d+0*t116* 13486 8 t117*t118*t39-2.642079786267853d-3*t112*t38+t234+t233+t 13487 9 232+t231+t230+t229+t228-rhoa*t223 13488 t309 = 1.0d+0*t227*t91+1.0d+0*t104*t308+2.0d+0*t122*t163 13489 t310 = -3.04966d-3*t104*t207*t91-3.04966d-3*t106*t122*t91- 13490 1 3.04966d-3*t106*t164-3.04966d-3*t104*t106*t163 13491 t311 = -4.066213333333334d-51*t100*t121*t177*t48*t99*taua+ 13492 1 2.222222222222222d-49*t177*t48*t97*t98*taua-2.033106666 13493 2 666667d-51*t121*t177*t48*t95*t98*taua-1.016553333333333 13494 3 5d-51*t103*t177*t48*t97*taua+2.222222222222222d-49*t100 13495 4 *t177*t48*t97*taua-5.58025566936d-54*t106*t177*t226*t95 13496 5 *t98*t99+4.0662133333333333d-52*t106*t121*t177*t98*t99- 13497 6 1.6264853333333332d-51*gammaaa*t105*t121*t177*t98*t99-1 13498 7 .86008522312d-54*t103*t106*t121*t177*t99+4.066213333333 13499 8 3333d-52*t100*t106*t121*t177*t99+8.888888888888888d-50* 13500 9 gammaaa*t105*t177*t97*t98+2.0331066666666667d-52*t106*t 13501 : 121*t177*t95*t98+3.555555555555555d-49*gammaaa*t105*t17 13502 ; 7*t94*t97+1.0165533333333333d-52*t103*t106*t177*t97+2.0 13503 < 331066666666667d-52*t102*t106*t177*t97-8.13242666666666 13504 = 6d-52*gammaaa*t102*t105*t177*t97-5.58025566936d-54*t106 13505 > *t177*t226*t94*t96+8.132426666666667d-52*t106*t121*t177 13506 ? *t94*t95-3.2529706666666663d-51*gammaaa*t105*t121*t177* 13507 @ t94*t95-1.86008522312d-54*t102*t106*t121*t177*t95-5.580 13508 1 25566936d-54*t100*t101*t106*t177*t226 13509 t312 = 2.6666666666666666d+0*t146*t273*t63-2.6666666666666 13510 1 666d+0*t143*t273*t63+4.444444444444444d-1*t145*t182*t27 13511 2 8+4.444444444444444d-1*t142*t181*t272 13512 t313 = -1.923661050931536d+0*t312*t64*t65 13513 t314 = 7.694644203726144d+0*t149*t183*t64 13514 t315 = -7.694644203726144d+0*t151*t183*t65 13515 t316 = 7.694644203726144d+0*t147*t149*t64 13516 t317 = 7.694644203726144d+0*t147*t151*t65 13517 t318 = 2.3083932611178434d+1*t289*t65*t69 13518 t319 = t318+t317+t316+t315+t314+t313+t287 13519 t320 = t318+t317+t316+t315+t314+t313+1.923661050931536d+0* 13520 1 t312+t287 13521 t321 = 7.176956236343652d-1*t289*t65*t69*t86*t89 13522 t322 = t60*(-5.980796863619711d-2*t312*t64*t65*t86*t89-2.3 13523 1 923187454478842d-1*t151*t183*t65*t86*t89+2.392318745447 13524 2 8842d-1*t147*t151*t65*t86*t89+2.3923187454478842d-1*t14 13525 3 9*t183*t64*t86*t89+2.3923187454478842d-1*t147*t149*t64* 13526 4 t86*t89+2.541232989148493d-3*t160*t183*t64*t89+2.541232 13527 5 989148493d-3*t147*t160*t64*t89+1.923661050931536d+0*t13 13528 6 5*t136*t137*t183*t64*t65*t86+1.923661050931536d+0*t135* 13529 7 t136*t137*t147*t64*t65*t86+1.9751631321680768d-2*t320*t 13530 8 80*t84-4.5437964274821163d-4*t125*t188*t84-4.5437964274 13531 9 821163d-4*t125*t156*t84-5.848223622634647d-1*t131*t132* 13532 : t133*t188*t80-5.848223622634647d-1*t131*t132*t133*t156* 13533 ; t80-6.21814d-2*t319*t62*t78+2.747773264188437d-3*t125*t 13534 < 186*t78+2.747773264188437d-3*t125*t153*t78+1.0d+0*t127* 13535 = t128*t129*t186*t62+1.0d+0*t127*t128*t129*t153*t62+t321+ 13536 > t305+t303+t298+t294+t269+t268+t266+t265+t262+t258+t256+ 13537 ? t255+t252+t248+t242+t241+t238)+t234+t233+t232+t231+t230 13538 @ +t229+t228+t190+t189+t187+t159+t157+t154 13539 t323 = 1.0d+0*t311*t91+1.0d+0*t104*t322+1.0d+0*t122*t191+1 13540 1 .0d+0*t163*t180 13541 t324 = -3.04966d-3*t106*t180*t91-3.04966d-3*t104*t106*t191 13542 t325 = 2.57544d-52*t178*t30+2.57544d-52*t16*t174 13543 t326 = 1/t27**2 13544 t327 = t169**2 13545 t328 = 1/t26**4 13546 t329 = 1/t26**3 13547 t330 = 1/t18**5 13548 t331 = 1/rhob**2.3333333333333334d+0 13549 t332 = 1/rhob**2.1666666666666665d+0 13550 t333 = 1.1632736958443765d+0*t332+9.89141964955861d-1*t331 13551 1 +6.003214762495226d-1*t330+2.1077825841639536d-1*t177 13552 t334 = 1/t23**2 13553 t335 = t172**2 13554 t336 = 1/t22**4 13555 t337 = 1/t22**3 13556 t338 = 2.1622951122684114d+0*t332+1.7087761055320938d+0*t3 13557 1 31+1.2335503316757068d+0*t330+2.673190323653546d-1*t177 13558 t339 = 1.0d+0*t171*t173*t25*t338-2.0d+0*t171*t25*t335*t337 13559 1 +3.216395899738507d+1*t25*t334*t335*t336+1.110223024625 13560 2 1565d-16*t165*t170*t29*t333-4.0675215258019015d-19*t28* 13561 3 t331-1.7613865241785684d-3*t24*t331-2.220446049250313d- 13562 4 16*t165*t29*t327*t329+1.7854583920998188d-15*t29*t326*t 13563 5 327*t328-8.497974591333913d-2*t167*t171*t172*t173-9.812 13564 6 069668265515d-18*t165*t167*t169*t170 13565 t340 = 1/t3**4 13566 t341 = 1/rhob**7 13567 t342 = 1/rhob**5.333333333333333d+0 13568 t343 = 1/rhob**3.6666666666666664d+0 13569 t344 = 1.7777777777777776d-49*t343*t6*t7*t9+1.777777777777 13570 1 7776d-49*t15*t343*t7*t9-1.373568d-51*t13*t343*t7*t9-1.3 13571 2 73568d-100*t175*t342*t6*t9-2.4724223999999997d-100*t15* 13572 3 t175*t342*t9+5.306312954879999d-103*t13*t175*t342*t9+6. 13573 4 367575545855999d-152*t15*t340*t341*t9+2.222222222222222 13574 5 d-99*t342*t6*t7+8.0d-99*t15*t342*t7-1.2362111999999999d 13575 6 -100*t14*t342*t7-3.43392d-101*t13*t342*t7+2.31111111111 13576 7 11113d-98*t11*t342*t7-2.747136d-51*t10*t175*t343*t6+1.5 13577 8 918938864639998d-102*t10*t340*t342*t6+1.777777777777777 13578 9 6d-49*t14*t343*t4+8.888888888888888d-50*t13*t343*t4-2.7 13579 : 471359999999995d-150*t15*t175*t341+2.1225251819519997d- 13580 ; 152*t14*t175*t341-1.53839616d-149*t11*t175*t341+2.54703 13581 < 02183424d-201*t11*t340/rhob**8.666666666666666d+0 13582 t345 = 5.0d-1*rhob*t30*t344+5.0d-1*rhob*t16*t339+1.0d+0*t1 13583 1 78*t30+1.0d+0*rhob*t174*t178+1.0d+0*t16*t174 13584 t346 = 5.15088d-52*t179-4.2923999999999995d-52*t16*t30 13585 t347 = 1.7777777777777776d-49*t343*t97*t98*t99-1.626485333 13586 1 3333332d-51*t121*t343*t95*t98*t99+5.580255669359999d-10 13587 2 3*t226*t342*t95*t98*t99-8.132426666666667d-101*t121*t34 13588 3 2*t98*t99-8.132426666666666d-52*t103*t343*t97*t99+1.777 13589 4 7777777777776d-49*t100*t343*t97*t99+1.86008522312d-103* 13590 5 t103*t121*t342*t99-8.132426666666667d-101*t100*t121*t34 13591 6 2*t99+8.888888888888888d-50*t343*t95*t97*t98+4.44444444 13592 7 4444444d-99*t342*t97*t98-4.0662133333333333d-101*t121*t 13593 8 342*t95*t98+3.555555555555555d-49*t343*t94*t95*t97-8.13 13594 9 2426666666666d-52*t102*t343*t95*t97+8.888888888888888d- 13595 : 99*t342*t94*t97-2.0331066666666667d-101*t103*t342*t97-4 13596 ; .0662133333333333d-101*t102*t342*t97+2.222222222222222d 13597 < -99*t100*t342*t97-1.6264853333333332d-51*t121*t343*t94* 13598 = t96+5.580255669359999d-103*t226*t342*t94*t96-1.62648533 13599 > 33333334d-100*t121*t342*t94*t95+1.86008522312d-103*t102 13600 ? *t121*t342*t95+8.888888888888888d-50*t103*t343*t93+1.77 13601 @ 77777777777776d-49*t102*t343*t93-1.6264853333333332d-51 13602 1 *t100*t101*t121*t343+5.580255669359999d-103*t100*t101*t 13603 2 226*t342 13604 t348 = 2.0d+0*t127*t128*t129*t186*t62 13605 t349 = -1.1696447245269295d+0*t131*t132*t133*t188*t80 13606 t350 = 3.847322101863072d+0*t135*t136*t137*t183*t64*t65*t8 13607 1 6 13608 t351 = -1.538928840745229d+1*t135*t136*t137*t151*t65*t69*t 13609 1 86 13610 t352 = t181**2 13611 t353 = t280+t274 13612 t354 = t182**2 13613 t355 = t279+t275 13614 t356 = 1.3333333333333333d+0*t146*t355+4.444444444444444d- 13615 1 1*t278*t354+1.3333333333333333d+0*t143*t353+4.444444444 13616 2 444444d-1*t272*t352 13617 t357 = -1.923661050931536d+0*t356*t64*t65 13618 t358 = 1.5389288407452287d+1*t149*t183*t64 13619 t359 = 1.5389288407452287d+1*t151*t183*t65 13620 t360 = -6.155715362980915d+1*t149*t151*t69 13621 t361 = t360+t359+t358+t357+t290+t287 13622 t362 = -6.21814d-2*t361*t62*t78 13623 t363 = 5.495546528376875d-3*t125*t186*t78 13624 t364 = t360+t359+t358+t357+1.923661050931536d+0*t356+t290+ 13625 1 t287 13626 t365 = 1.9751631321680768d-2*t364*t80*t84 13627 t366 = -9.087592854964233d-4*t125*t188*t84 13628 t367 = -5.980796863619711d-2*t356*t64*t65*t86*t89 13629 t368 = 5.082465978296986d-3*t160*t183*t64*t89 13630 t369 = 4.7846374908957684d-1*t149*t183*t64*t86*t89 13631 t370 = -2.0329863913187946d-2*t151*t160*t69*t89 13632 t371 = -1.9138549963583074d+0*t149*t151*t69*t86*t89 13633 t372 = t60*(4.7846374908957684d-1*t151*t183*t65*t86*t89+t3 13634 1 71+t370+t369+t368+t367+t366+t365+t363+t362+t351+t350+t3 13635 2 49+t348+t307+t305+t303+t298+t294+t269+t268+t266+t265+t2 13636 3 62+t258+t256+t255+t252+t248+t242+t241+t238)+4.784637490 13637 4 8957684d-1*t151*t65*t69*t86*t89-1.1961593727239421d-1*t 13638 5 183*t64*t65*t86*t89+3.9503262643361536d-2*t188*t80*t84- 13639 6 1.243628d-1*t186*t62*t78-rhob*t339-2.220446049250313d-1 13640 7 6*t165*t169*t170*t29-6.101282288702853d-19*t167*t28-2.0 13641 8 d+0*t171*t172*t173*t25-2.642079786267853d-3*t167*t24+t2 13642 9 34+t233+t232+t231+t230+t229+t228 13643 t373 = 1.0d+0*t347*t91+1.0d+0*t104*t372+2.0d+0*t180*t191 13644 t374 = 3.04966d-52*t180*t91+3.04966d-52*t192+3.04966d-52*t 13645 1 104*t191 13646 t375 = 1.25d-1*t44*t59+1.25d-1*gammaaa*t194*t44 13647 t376 = 1/rhoa**9 13648 t377 = 6.867840000000001d-2*t107*t55*t57*t6*taua-3.3333333 13649 1 333333337d+0*t15*t55*t56*taua+1.7169600000000002d-2*t13 13650 2 *t55*t56*taua+3.4339200000000003d-2*gammaaa*t107*t15*t1 13651 3 93*taua+1.591893886464d-4*t106*t205*t48*t58*t6+2.747136 13652 4 d-2*t105*t107*t58*t6-2.6666666666666666d+0*t105*t15*t56 13653 5 *t57+1.373568d-2*t105*t13*t56*t57+1.591893886464d-4*gam 13654 6 maaa*t106*t15*t205*t55*t57-1.030176d-2*t106*t107*t15*t4 13655 7 8*t57+5.30631295488d-5*t106*t107*t13*t48*t57+5.494272d- 13656 8 2*gammaaa*t107*t108*t15*t57-5.15088d-3*t106*t14*t48*t56 13657 9 +2.747136d-2*gammaaa*t108*t14*t56-1.0666666666666666d+1 13658 : *gammaaa*t108*t11*t56+5.30631295488d-5*gammaaa*t106*t10 13659 ; 7*t14*t55-2.060352d-2*gammaaa*t106*t107*t11*t55+8.24140 13660 < 8d-2*t107*t11*t376*t54+1.591893886464d-4*t106*t11*t193* 13661 = t205*t54-2.6666666666666666d+0*t105*t14*t53 13662 t378 = -1.25d-1*t44*t45*t46*t59-1.25d-1*t119*t46*t59+1.0d+ 13663 1 0*rhoa*t377*t44*t47+1.0d+0*t194*t44*t47+1.0d+0*rhoa*t11 13664 2 9*t194*t47-1.25d-1*t109*t44*t46 13665 t379 = 1.373568d-2*t44*t47*t59-5.15088d-3*t120 13666 t380 = 4.066213333333334d-2*t100*t121*t55*t99*taua-3.33333 13667 1 33333333337d+0*t55*t97*t98*taua+2.033106666666667d-2*t1 13668 2 21*t55*t95*t98*taua+1.0165533333333335d-2*t103*t55*t97* 13669 3 taua-2.6666666666666666d+0*t105*t97*t98*t99+5.580255669 13670 4 360001d-5*t106*t226*t48*t95*t98*t99+1.6264853333333332d 13671 5 -2*t105*t121*t95*t98*t99-6.09932d-3*t106*t121*t48*t98*t 13672 6 99+1.6264853333333332d-2*gammaaa*t108*t121*t98*t99+8.13 13673 7 2426666666667d-3*t103*t105*t97*t99+1.86008522312d-5*t10 13674 8 3*t106*t121*t48*t99-5.333333333333333d+0*t105*t94*t95*t 13675 9 97+8.132426666666667d-3*t102*t105*t95*t97-5.33333333333 13676 : 3333d+0*gammaaa*t108*t94*t97-3.04966d-3*t102*t106*t48*t 13677 ; 97+8.132426666666667d-3*gammaaa*t102*t108*t97+5.5802556 13678 < 69360001d-5*t106*t226*t48*t94*t96+1.6264853333333332d-2 13679 = *t105*t121*t94*t96-1.219864d-2*t106*t121*t48*t94*t95+3. 13680 > 2529706666666663d-2*gammaaa*t108*t121*t94*t95+1.8600852 13681 ? 2312d-5*t102*t106*t121*t48*t95-2.6666666666666666d+0*t1 13682 @ 02*t105*t93+5.580255669360001d-5*t100*t101*t106*t226*t4 13683 1 8+1.6264853333333332d-2*t100*t101*t105*t121 13684 t381 = 1.0d+0*t380*t91+1.0d+0*t163*t195 13685 t382 = -5.580255669360001d-54*t177*t226*t48*t95*t98*t99+1. 13686 1 0165533333333333d-51*t121*t177*t48*t98*t99-1.8600852231 13687 2 2d-54*t103*t121*t177*t48*t99+4.0662133333333333d-52*t10 13688 3 0*t121*t177*t48*t99-3.333333333333333d-50*t177*t48*t97* 13689 4 t98+2.0331066666666667d-52*t121*t177*t48*t95*t98-1.3333 13690 5 333333333333d-49*t177*t48*t94*t97+1.0165533333333333d-5 13691 6 2*t103*t177*t48*t97+5.082766666666666d-52*t102*t177*t48 13692 7 *t97-5.580255669360001d-54*t177*t226*t48*t94*t96+2.0331 13693 8 066666666667d-51*t121*t177*t48*t94*t95-1.86008522312d-5 13694 9 4*t102*t121*t177*t48*t95-5.580255669360001d-54*t100*t10 13695 : 1*t177*t226*t48 13696 t383 = 1.0d+0*t382*t91+1.0d+0*t191*t195 13697 t384 = 1/rhoa**1.0666666666666666d+1 13698 t385 = 1.591893886464d-4*t205*t55*t58*t6-2.060352d-2*t107* 13699 1 t15*t55*t57+5.30631295488d-5*t107*t13*t55*t57+1.5918938 13700 2 86464d-4*gammaaa*t15*t193*t205*t57-1.030176d-2*t14*t55* 13701 3 t56+2*t11*t55*t56+1.591893886464d-4*t11*t205*t384*t54+5 13702 4 .30631295488d-5*gammaaa*t107*t14*t193-4.120704d-2*gamma 13703 5 aa*t107*t11*t193 13704 t386 = 5.580255669360001d-5*t226*t55*t95*t98*t99-1.219864d 13705 1 -2*t121*t55*t98*t99+1.86008522312d-5*t103*t121*t55*t99+ 13706 2 2*t55*t94*t97-6.09932d-3*t102*t55*t97+5.580255669360001 13707 3 d-5*t226*t55*t94*t96-2.439728d-2*t121*t55*t94*t95+1.860 13708 4 08522312d-5*t102*t121*t55*t95+5.580255669360001d-5*t100 13709 5 *t101*t226*t55 13710 t387 = 1.373568d-1*t107*t197*t57*t6*taua-1.333333333333333 13711 1 3d+1*t197*t56*t6*taua+3.4339200000000003d-2*t13*t197*t5 13712 2 6*taua+6.867840000000001d-2*gammaaa*t107*t15*t196*taua+ 13713 3 3.183787772928d-4*t106*t205*t50*t58*t6+3.43392000000000 13714 4 03d-2*t107*t48*t58*t6-6.666666666666667d+0*t48*t56*t57* 13715 5 t6-4.120704d-2*t106*t107*t50*t57*t6+1.7169600000000002d 13716 6 -2*t13*t48*t56*t57+8.928192d-2*gammaaa*t107*t15*t55*t57 13717 7 +1.061262590976d-4*t106*t107*t13*t50*t57+3.183787772928 13718 8 d-4*gammaaa*t106*t15*t197*t205*t57-8.666666666666666d+0 13719 9 *gammaaa*t15*t55*t56+4.464096d-2*gammaaa*t14*t55*t56-1. 13720 : 030176d-2*t106*t13*t50*t56+3.183787772928d-4*t106*t11*t 13721 ; 196*t205*t54+1.4422464000000002d-1*t107*t11*t193*t54-3. 13722 < 3333333333333337d+0*t13*t48*t53-2.060352d-2*gammaaa*t10 13723 = 6*t107*t15*t197+1.061262590976d-4*gammaaa*t106*t107*t14 13724 > *t197 13725 t388 = 1.25d-1*gammaaa*t200*t44*t45*t59+1.25d-1*gammaaa*t1 13726 1 19*t200*t59+1.0d+0*rhoa*t387*t44*t47+1.0d+0*t198*t44*t4 13727 2 7+1.0d+0*rhoa*t119*t198*t47+1.25d-1*gammaaa*t109*t200*t 13728 3 44 13729 t389 = 8.132426666666668d-2*t100*t121*t197*t99*taua+4.0662 13730 1 13333333334d-2*t121*t197*t95*t98*taua+2.033106666666667 13731 2 d-2*t103*t197*t97*taua-1.3333333333333333d+1*t100*t197* 13732 3 t97*taua+1.1160511338720001d-4*t106*t226*t50*t95*t98*t9 13733 4 9+2.033106666666667d-2*t121*t48*t95*t98*t99+3.252970666 13734 5 6666663d-2*gammaaa*t121*t55*t98*t99+1.0165533333333335d 13735 6 -2*t103*t48*t97*t99-6.666666666666667d+0*t100*t48*t97*t 13736 7 99+3.72017044624d-5*t103*t106*t121*t50*t99-2.439728d-2* 13737 8 t100*t106*t121*t50*t99-3.3333333333333337d+0*t48*t95*t9 13738 9 7*t98-5.333333333333333d+0*gammaaa*t55*t97*t98-1.219864 13739 : d-2*t106*t121*t50*t95*t98+1.0165533333333335d-2*t102*t4 13740 ; 8*t95*t97+1.6264853333333332d-2*gammaaa*t102*t55*t97-6. 13741 < 09932d-3*t103*t106*t50*t97+1.1160511338720001d-4*t106*t 13742 = 226*t50*t94*t96+2.033106666666667d-2*t121*t48*t94*t96+6 13743 > .505941333333333d-2*gammaaa*t121*t55*t94*t95+3.72017044 13744 ? 624d-5*t102*t106*t121*t50*t95-3.3333333333333337d+0*t10 13745 @ 3*t48*t93+1.1160511338720001d-4*t100*t101*t106*t226*t50 13746 1 +2.033106666666667d-2*t100*t101*t121*t48 13747 t390 = 1.0d+0*t389*t91+1.0d+0*t163*t201 13748 t391 = -1.1160511338720003d-53*t177*t226*t50*t95*t98*t99+8 13749 1 .132426666666667d-52*t121*t177*t50*t98*t99-3.7201704462 13750 2 4d-54*t103*t121*t177*t50*t99+3.252970666666667d-51*t100 13751 3 *t121*t177*t50*t99-1.3333333333333333d-49*t177*t50*t97* 13752 4 t98+1.6264853333333334d-51*t121*t177*t50*t95*t98+8.1324 13753 5 26666666667d-52*t103*t177*t50*t97+4.0662133333333333d-5 13754 6 2*t102*t177*t50*t97-1.3333333333333333d-49*t100*t177*t5 13755 7 0*t97-1.1160511338720003d-53*t177*t226*t50*t94*t96+1.62 13756 8 64853333333334d-51*t121*t177*t50*t94*t95-3.72017044624d 13757 9 -54*t102*t121*t177*t50*t95-1.1160511338720003d-53*t100* 13758 : t101*t177*t226*t50 13759 t392 = 1.0d+0*t391*t91+1.0d+0*t191*t201 13760 t393 = 1/rhoa**9.666666666666666d+0 13761 t394 = 3.183787772928d-4*t197*t205*t58*t6-4.120704d-2*t107 13762 1 *t197*t57*t6+3.183787772928d-4*gammaaa*t15*t196*t205*t5 13763 2 7-2.060352d-2*t107*t15*t197*t57+1.061262590976d-4*t107* 13764 3 t13*t197*t57+2.0d+0*t15*t197*t56-1.030176d-2*t14*t197*t 13765 4 56-1.030176d-2*t13*t197*t56+3.183787772928d-4*t11*t205* 13766 5 t393*t54-2.060352d-2*gammaaa*t107*t15*t196+1.0612625909 13767 6 76d-4*gammaaa*t107*t14*t196-4.120704d-2*gammaaa*t107*t1 13768 7 1*t196 13769 t395 = 1/rhoa**3.3333333333333337d+0 13770 t396 = 1.1160511338720001d-4*t197*t226*t95*t98*t99-1.21986 13771 1 4d-2*t121*t197*t98*t99+3.72017044624d-5*t103*t121*t197* 13772 2 t99-2.439728d-2*t100*t121*t197*t99+2.0d+0*t197*t97*t98- 13773 3 1.219864d-2*t121*t197*t95*t98-6.09932d-3*t103*t197*t97- 13774 4 6.09932d-3*t102*t197*t97+1.1160511338720001d-4*t197*t22 13775 5 6*t94*t96-2.439728d-2*t121*t197*t94*t95+3.72017044624d- 13776 6 5*t102*t121*t197*t95+1.1160511338720001d-4*t100*t101*t1 13777 7 97*t226 13778 t397 = 1/rhoa**8.666666666666666d+0 13779 t398 = 1/rhoa**6 13780 t399 = 6.367575545856d-4*t205*t395*t58*t6-1.6482816d-1*t10 13781 1 7*t395*t57*t6+8.0d+0*t395*t56*t6+6.367575545856d-4*gamm 13782 2 aaa*t15*t205*t398*t57+2.122525181952d-4*t107*t13*t395*t 13783 3 57-4.120704d-2*t13*t395*t56+6.367575545856d-4*t11*t205* 13784 4 t397*t54-8.241408d-2*gammaaa*t107*t15*t398+2.1225251819 13785 5 52d-4*gammaaa*t107*t14*t398 13786 t400 = 1/taua**3 13787 t401 = 2.2321022677440003d-4*t226*t395*t95*t98*t99+7.44034 13788 1 089248d-5*t103*t121*t395*t99-9.758912d-2*t100*t121*t395 13789 2 *t99-4.879456d-2*t121*t395*t95*t98-2.439728d-2*t103*t39 13790 3 5*t97+8.0d+0*t100*t395*t97+2.2321022677440003d-4*t226*t 13791 4 395*t94*t96+7.44034089248d-5*t102*t121*t395*t95+2.23210 13792 5 22677440003d-4*t100*t101*t226*t395 13793 t402 = t106**3 13794 t403 = 1/rhoa**3 13795 t404 = 1/t52**5 13796 t405 = 1/rhoa**5.666666666666667d+0 13797 t406 = -3.2592592592592595d+1*t206*taua-4.5629629629629626 13798 1 d+1*gammaaa*t405 13799 t407 = 1/rhoa**8.333333333333334d+0 13800 t408 = t114**3 13801 t409 = 1/t32**7 13802 t410 = 1/rhoa**3.1666666666666665d+0 13803 t411 = t117**3 13804 t412 = 1.1102230246251565d-16*t110*t115*(-2.52042634099614 13805 1 9d+0*t410-1.5008036906238065d+0*t409-2.3079979182303428 13806 2 d+0*t395-5.620753557770543d-1*t105)*t43+5.7427410515035 13807 3 65d-14*t408*t43/(t40**6*t41**3)-1.0712750352598913d-14* 13808 4 t210*t408*t43/t40**5+6.661338147750939d-16*t110*t212*t4 13809 5 08*t43-6.661338147750939d-16*t110*t114*t213*t217*t43+5. 13810 6 356375176299456d-15*t114*t210*t212*t217*t43+9.490883560 13811 7 204437d-19*t395*t42+2.0690405167709364d+3*t39*t411/(t36 13812 8 **6*t37**3)-1.9298375398431045d+2*t218*t39*t411/t36**5+ 13813 9 6.0d+0*t116*t220*t39*t411+1.0d+0*t116*t118*t39*(-4.6849 13814 : 72743248224d+0*t410-3.083875829189267d+0*t409-3.9871442 13815 ; 462415524d+0*t395-7.128507529742789d-1*t105)+4.10990188 13816 < 97499934d-3*t38*t395-6.0d+0*t116*t117*t221*t222*t39+9.6 13817 = 49187699215522d+1*t117*t218*t220*t222*t39-1.27469618870 13818 > 0087d-1*t112*t116*t118*t222+2.549392377400174d-1*t112*t 13819 ? 116*t219*t221-4.0999275947472624d+0*t112*t218*t219*t220 13820 @ -1.4718104502398274d-17*t110*t112*t115*t217+1.699594918 13821 1 2667827d-1*t116*t117*t118*t215+1.962413933653103d-17*t1 13822 2 10*t114*t115*t215+2.943620900479655d-17*t110*t112*t211* 13823 3 t213-2.3669625486718335d-16*t112*t210*t211*t212 13824 t413 = 1/t92**5 13825 t414 = 4.824593849607761d+1*t235*t236*t237*t62*t71 13826 t415 = -6.0d+0*t129*t235*t240*t62*t71 13827 t416 = -2.6513779981040353d-1*t125*t127*t128*t129*t71 13828 t417 = 3.0d+0*t128*t129*t247*t62*t71 13829 t418 = -5.19476882440587d+1*t249*t250*t251*t80*t81 13830 t419 = 3.5089341735807883d+0*t133*t249*t254*t80*t81 13831 t420 = 8.072185179299687d-2*t125*t131*t132*t133*t81 13832 t421 = -1.7544670867903941d+0*t132*t133*t257*t80*t81 13833 t422 = 1.856176655010858d+2*t259*t260*t261*t64*t65*t69*t86 13834 t423 = -1.1541966305589217d+1*t137*t259*t264*t64*t65*t69*t 13835 1 86 13836 t424 = -4.904166819946466d-1*t135*t136*t137*t160*t64*t69 13837 t425 = 5.770983152794609d+0*t136*t137*t267*t64*t65*t69*t86 13838 t426 = -4.616786522235687d+1*t135*t136*t137*t149*t64*t69*t 13839 1 86 13840 t427 = -1.099109305675375d-2*t245*t71*t78 13841 t428 = 1.8175185709928465d-3*t245*t81*t84 13842 t429 = -7.11545236961578d-2*t302*t64*t69*t89 13843 t430 = -3.588478118171826d+0*t286*t64*t69*t86*t89 13844 t431 = -2.1530868709030954d+0*t289*t65*t69*t86*t89 13845 t432 = t127**3 13846 t433 = 5.172601291927341d+2*t432*t62*t71/(t76**6*t77**3) 13847 t434 = -9.649187699215522d+1*t237*t432*t62*t71/t76**5 13848 t435 = 4.824593849607761d+1*t127*t236*t237*t247*t62*t71 13849 t436 = -2.1319703304396778d+0*t125*t235*t236*t237*t71 13850 t437 = 6.0d+0*t129*t236*t432*t62*t71 13851 t438 = -6.0d+0*t127*t129*t240*t247*t62*t71 13852 t439 = 2.6513779981040353d-1*t125*t129*t235*t240*t71 13853 t440 = -1.3256889990520176d-1*t125*t128*t129*t247*t71 13854 t441 = 1.767585332069357d-1*t127*t128*t129*t245*t71 13855 t442 = 1/t60**3.6666666666666664d+0 13856 t443 = 1/t73**7 13857 t444 = 1/t60**3.3333333333333337d+0 13858 t445 = 1/t60**3.1666666666666665d+0 13859 t446 = 1.0d+0*t128*t129*(-2.520426340996149d+0*t445-2.3079 13860 1 979182303428d+0*t444-1.5008036906238065d+0*t443-5.62075 13861 2 3557770543d-1*t442)*t62*t71 13862 t447 = t131**3 13863 t448 = -1.0254062650399592d+3*t447*t80*t81/(t82**6*t83**3) 13864 t449 = 1.0389537648811739d+2*t251*t447*t80*t81/t82**5 13865 t450 = -5.19476882440587d+1*t131*t250*t251*t257*t80*t81 13866 t451 = 1.1950391155803675d+0*t125*t249*t250*t251*t81 13867 t452 = -3.5089341735807883d+0*t133*t250*t447*t80*t81 13868 t453 = 3.5089341735807883d+0*t131*t133*t254*t257*t80*t81 13869 t454 = -8.072185179299687d-2*t125*t133*t249*t254*t81 13870 t455 = 4.0360925896498434d-2*t125*t132*t133*t257*t81 13871 t456 = -5.381456786199791d-2*t131*t132*t133*t245*t81 13872 t457 = -5.848223622634647d-1*t132*t133*(-3.436688601932293 13873 1 d+0*t445-2.3308360066730832d+0*t444-8.064323383643707d- 13874 2 1*t443-5.663741022599518d-1*t442)*t80*t81 13875 t458 = t135**3 13876 t459 = 3.9801326549115085d+3*t458*t64*t65*t69*t86/(t87**6* 13877 1 t88**3) 13878 t460 = -3.712353310021716d+2*t261*t458*t64*t65*t69*t86/t87 13879 1 **5 13880 t461 = 1.856176655010858d+2*t135*t260*t261*t267*t64*t65*t6 13881 1 9*t86 13882 t462 = -7.424706620043432d+2*t149*t259*t260*t261*t64*t69*t 13883 1 86 13884 t463 = -7.886871025654724d+0*t160*t259*t260*t261*t64*t69 13885 t464 = 1.1541966305589217d+1*t137*t260*t458*t64*t65*t69*t8 13886 1 6 13887 t465 = -1.1541966305589217d+1*t135*t137*t264*t267*t64*t65* 13888 1 t69*t86 13889 t466 = 4.616786522235687d+1*t137*t149*t259*t264*t64*t69*t8 13890 1 6 13891 t467 = 4.904166819946466d-1*t137*t160*t259*t264*t64*t69 13892 t468 = -2.452083409973233d-1*t136*t137*t160*t267*t64*t69 13893 t469 = 2.2886111826416838d+0*t135*t136*t137*t302*t64*t69 13894 t470 = 1.923661050931536d+0*t136*t137*(-4.684972743248224d 13895 1 +0*t445-3.9871442462415524d+0*t444-3.083875829189267d+0 13896 2 *t443-7.128507529742789d-1*t442)*t64*t65*t69*t86 13897 t471 = -2.3083932611178434d+1*t136*t137*t149*t267*t64*t69* 13898 1 t86 13899 t472 = 1.1541966305589217d+2*t135*t136*t137*t286*t64*t69*t 13900 1 86 13901 t473 = 6.925179783353531d+1*t135*t136*t137*t289*t65*t69*t8 13902 1 6 13903 t474 = 8.548627933030694d-3*t444*t71*t78 13904 t475 = 1/t67**1.6666666666666669d+0 13905 t476 = 6*t63*t65 13906 t477 = -6*t273 13907 t478 = 1/t68**1.6666666666666669d+0 13908 t479 = -6*t63*t65 13909 t480 = 6*t273 13910 t481 = 1.3333333333333333d+0*t146*(t480+t479)-2.9629629629 13911 1 62963d-1*t145**3*t478+1.3333333333333333d+0*t143*(t477+ 13912 2 t476)-2.962962962962963d-1*t142**3*t475+1.3333333333333 13913 3 333d+0*t145*t278*t281+1.3333333333333333d+0*t142*t272*t 13914 4 276 13915 t482 = -1.923661050931536d+0*t481*t64*t65 13916 t483 = 2.3083932611178434d+1*t149*t282*t64 13917 t484 = -2.3083932611178434d+1*t151*t282*t65 13918 t485 = -1.1541966305589216d+2*t147*t286*t64 13919 t486 = 1.8467146088942746d+2*t147*t149*t151 13920 t487 = -6.925179783353531d+1*t147*t289*t65 13921 t488 = 1/t60**7 13922 t489 = 2.3083932611178432d+2*t488*t64*t69 13923 t490 = -4.6167865222356863d+2*t151*t286*t69 13924 t491 = 2.770071913341412d+2*t149*t289*t69 13925 t492 = -4.616786522235687d+1*t63*t65*t69 13926 t493 = -1.4136255552166585d-3*t444*t81*t84 13927 t494 = 2.0103976536374746d-1*t64*t69*t89/t60**7.3333333333 13928 1 33333d+0 13929 t495 = 9.148438760934575d-2*t160*t289*t69*t89 13930 t496 = 7.176956236343652d+0*t488*t64*t69*t86*t89 13931 t497 = 8.612347483612381d+0*t149*t289*t69*t86*t89 13932 t498 = -1.4353912472687305d+0*t63*t65*t69*t86*t89 13933 t499 = -1.243628d-1*t319*t62*t78 13934 t500 = 3.9503262643361536d-2*t320*t80*t84 13935 t501 = -1.1961593727239421d-1*t312*t64*t65*t86*t89 13936 t502 = 2.0d+0*t127*t128*t129*t319*t62 13937 t503 = -1.1696447245269295d+0*t131*t132*t133*t320*t80 13938 t504 = 3.847322101863072d+0*t135*t136*t137*t312*t64*t65*t8 13939 1 6 13940 t505 = -2.3083932611178434d+1*t135*t136*t137*t289*t65*t69* 13941 1 t86 13942 t506 = 5.495546528376875d-3*t125*t319*t78 13943 t507 = 1.5389288407452287d+1*t149*t312*t64 13944 t508 = -1.5389288407452287d+1*t151*t312*t65 13945 t509 = 1.7777777777777776d+0*t145*t273*t278*t63-1.77777777 13946 1 77777776d+0*t142*t272*t273*t63+1.3333333333333333d+0*t1 13947 2 46*(t479+2*t273)-2.962962962962963d-1*t182*t277*t478+1. 13948 3 3333333333333333d+0*t143*(t476-2*t273)-2.96296296296296 13949 4 3d-1*t181*t271*t475+4.444444444444444d-1*t182*t278*t281 13950 5 +4.444444444444444d-1*t181*t272*t276 13951 t510 = -1.923661050931536d+0*t509*t64*t65 13952 t511 = 7.694644203726144d+0*t149*t282*t64 13953 t512 = 7.694644203726144d+0*t151*t282*t65 13954 t513 = -3.8473221018630716d+1*t183*t286*t64 13955 t514 = 6.155715362980915d+1*t149*t151*t183 13956 t515 = -2.3083932611178434d+1*t183*t289*t65 13957 t516 = -7.694644203726143d+1*t147*t286*t64 13958 t517 = 4.616786522235687d+1*t147*t289*t65 13959 t518 = -1.5389288407452287d+2*t151*t286*t69 13960 t519 = -9.233573044471374d+1*t149*t289*t69 13961 t520 = 4.616786522235687d+1*t63*t65*t69 13962 t521 = -9.087592854964233d-4*t125*t320*t84 13963 t522 = 5.082465978296986d-3*t160*t312*t64*t89 13964 t523 = 4.7846374908957684d-1*t149*t312*t64*t86*t89 13965 t524 = -2.870782494537461d+0*t149*t289*t69*t86*t89 13966 t525 = 1.4353912472687305d+0*t63*t65*t69*t86*t89 13967 t526 = -8*t146*t63*t65+8*t143*t63*t65+1.7777777777777776d+ 13968 1 0*t182*t273*t278*t63-1.7777777777777776d+0*t181*t272*t2 13969 2 73*t63-2.962962962962963d-1*t145*t354*t478-2.9629629629 13970 3 62963d-1*t142*t352*t475+4.444444444444444d-1*t145*t278* 13971 4 t355+4.444444444444444d-1*t142*t272*t353-2.666666666666 13972 5 6666d+0*t146*t273+2.6666666666666666d+0*t143*t273 13973 t527 = -1.923661050931536d+0*t526*t64*t65 13974 t528 = 1.5389288407452287d+1*t151*t312*t65 13975 t529 = 7.694644203726144d+0*t149*t356*t64 13976 t530 = -7.694644203726144d+0*t151*t356*t65 13977 t531 = -7.694644203726143d+1*t183*t286*t64 13978 t532 = 4.616786522235687d+1*t183*t289*t65 13979 t533 = -3.8473221018630716d+1*t147*t286*t64 13980 t534 = -6.155715362980915d+1*t147*t149*t151 13981 t535 = -2.3083932611178434d+1*t147*t289*t65 13982 t536 = 1.5389288407452287d+2*t151*t286*t69 13983 t537 = t169**3 13984 t538 = 1/t18**7 13985 t539 = 1/rhob**3.1666666666666665d+0 13986 t540 = t172**3 13987 t541 = 6.0d+0*t171*t25*t336*t540-1.9298375398431045d+2*t25 13988 1 *t334*t540/t22**5+2.0690405167709364d+3*t25*t540/(t22** 13989 2 6*t23**3)+1.1102230246251565d-16*t165*t170*t29*(-2.5204 13990 3 26340996149d+0*t539-1.5008036906238065d+0*t538-5.620753 13991 4 557770543d-1*t343-2.3079979182303428d+0*t12)+1.0d+0*t17 13992 5 1*t173*t25*(-4.684972743248224d+0*t539-3.08387582918926 13993 6 7d+0*t538-7.128507529742789d-1*t343-3.9871442462415524d 13994 7 +0*t12)+6.661338147750939d-16*t165*t29*t328*t537-1.0712 13995 8 750352598913d-14*t29*t326*t537/t26**5+5.742741051503565 13996 9 d-14*t29*t537/(t26**6*t27**3)-6.0d+0*t171*t172*t25*t337 13997 : *t338+9.649187699215522d+1*t172*t25*t334*t336*t338-1.27 13998 ; 4696188700087d-1*t167*t171*t173*t338+2.549392377400174d 13999 < -1*t167*t171*t335*t337-4.0999275947472624d+0*t167*t334* 14000 = t335*t336-6.661338147750939d-16*t165*t169*t29*t329*t333 14001 > +5.356375176299456d-15*t169*t29*t326*t328*t333-1.471810 14002 ? 4502398274d-17*t165*t167*t170*t333+1.6995949182667827d- 14003 @ 1*t171*t172*t173*t331+1.962413933653103d-17*t165*t169*t 14004 1 170*t331+2.943620900479655d-17*t165*t167*t327*t329-2.36 14005 2 69625486718335d-16*t167*t326*t327*t328+9.49088356020443 14006 3 7d-19*t12*t28+4.1099018897499934d-3*t12*t24 14007 t542 = 1/t3**5 14008 t543 = 1/rhob**9.666666666666666d+0 14009 t544 = 1/rhob**8 14010 t545 = 1/rhob**6.333333333333333d+0 14011 t546 = 1/rhob**4.666666666666667d+0 14012 t547 = 1.3333333333333333d+0*t143*(t480+t476)+1.3333333333 14013 1 333333d+0*t146*(t479+t477)-2.962962962962963d-1*t182**3 14014 2 *t478-2.962962962962963d-1*t181**3*t475+1.3333333333333 14015 3 333d+0*t182*t278*t355+1.3333333333333333d+0*t181*t272*t 14016 4 353 14017 t548 = -1.923661050931536d+0*t547*t64*t65 14018 t549 = 2.3083932611178434d+1*t149*t356*t64 14019 t550 = 2.3083932611178434d+1*t151*t356*t65 14020 t551 = -1.1541966305589216d+2*t183*t286*t64 14021 t552 = -1.8467146088942746d+2*t149*t151*t183 14022 t553 = -6.925179783353531d+1*t183*t289*t65 14023 t554 = 4.6167865222356863d+2*t151*t286*t69 14024 t555 = -1.25d-1*t44*t59-1.25d-1*gammaaa*t194*t44 14025 t556 = 1/rhoa**10 14026 t557 = 1.25d-1*gammaaa*t385*t44+2.5d-1*t194*t44 14027 t558 = -1.030176d-2*t378 14028 t559 = -1.030176d-2*t375 14029 t560 = -1.28772d-3*gammaaa*t194*t44 14030 t561 = -1.28772d-3*t44*t59 14031 t562 = 1/rhoa**5 14032 t563 = 1/rhoa**7.666666666666667d+0 14033 fnc(iq) = (1.0d+0*t104*t91*t93+1.0d+0*rhoa*t44*t47*t53*t59 14034 1 +5.0d-1*rhob*t16*t30*t4)*wght+fnc(iq) 14035 Amat(iq,D1_RA) = (-3.04966d-3*t104*t106*t91*t97+t164*t93-5 14036 1 .15088d-3*rhoa*t106*t44*t47*t56*t59+1.25d-1*gammaaa*t44 14037 2 *t45*t46*t53*t59+t120*t53)*wght+Amat(iq,D1_RA) 14038 Amat(iq,D1_RB) = (3.04966d-52*t104*t177*t91*t97+t192*t93+2 14039 1 .57544d-52*t1*t16*t30*t7+t179*t4)*wght+Amat(iq,D1_RB) 14040 Cmat(iq,D1_GAA) = (-3.04966d-3*t104*t48*t91*t97+1.0d+0*t19 14041 1 5*t91*t93-5.15088d-3*t44*t47*t50*t56*t59-1.25d-1*t44*t4 14042 2 6*t53*t59+1.0d+0*rhoa*t194*t44*t47*t53)*wght+Cmat(iq,D1 14043 3 _GAA) 14044 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 14045 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 14046 Mmat(iq,D1_TA) = (-6.09932d-3*t104*t50*t91*t97+1.0d+0*t201 14047 1 *t91*t93-1.030176d-2*t31*t44*t47*t56*t59+1.25d-1*gammaa 14048 2 a*t200*t44*t53*t59+1.0d+0*rhoa*t198*t44*t47*t53)*wght+M 14049 3 mat(iq,D1_TA) 14050 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 14051 Amat2(iq,D2_RA_RA) = (t310*t97+t309*t93+1.86008522312d-5*t 14052 1 104*t121*t202*t91-1.28772d-3*gammaaa*t106*t44*t45*t46*t 14053 2 56*t59-1.25d-1*gammaaa*t203*t44*t46*t53*t59+5.306312954 14054 3 88d-5*rhoa*t107*t202*t44*t47*t59+t225*t56+t204*t45*t46* 14055 4 t53+t224*t53)*wght+Amat2(iq,D2_RA_RA) 14056 Amat2(iq,D2_RA_RB) = (t324*t97+3.04966d-52*t164*t177*t97+t 14057 1 323*t93-1.86008522312d-54*t104*t106*t121*t177*t91)*wght 14058 2 +Amat2(iq,D2_RA_RB) 14059 Amat2(iq,D2_RB_RB) = (-8.132426666666666d-52*t104*t343*t91 14060 1 *t97+t177*t374*t97+t373*t93+1.86008522312d-103*t104*t12 14061 2 1*t342*t91+t177*t346*t7+t1*t325*t7+t345*t4+2.6531564774 14062 3 399996d-103*t16*t175*t176*t30)*wght+Amat2(iq,D2_RB_RB) 14063 Cmat2(iq,D2_RA_GAA) = (-3.04966d-3*t106*t195*t91*t97+8.132 14064 1 426666666667d-3*t104*t105*t91*t97-3.04966d-3*t164*t48*t 14065 2 97+t381*t93+1.86008522312d-5*t104*t106*t121*t48*t91+6.4 14066 3 386d-4*t106*t44*t46*t56*t59-6.4386d-4*gammaaa*t105*t44* 14067 4 t46*t56*t59+5.30631295488d-5*t106*t107*t44*t47*t50*t59+ 14068 5 t379*t48*t56-5.15088d-3*rhoa*t106*t194*t44*t47*t56+t375 14069 6 *t45*t46*t53+t378*t53)*wght+Cmat2(iq,D2_RA_GAA) 14070 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 14071 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 14072 Cmat2(iq,D2_RB_GAA) = (3.04966d-52*t177*t195*t91*t97-3.049 14073 1 66d-3*t192*t48*t97+t383*t93-1.86008522312d-54*t104*t121 14074 2 *t177*t48*t91)*wght+Cmat2(iq,D2_RB_GAA) 14075 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 14076 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 14077 Cmat2(iq,D2_GAA_GAA) = (-6.09932d-3*t195*t48*t91*t97+1.0d+ 14078 1 0*t386*t91*t93+1.86008522312d-5*t104*t121*t55*t91+1.287 14079 2 72d-3*t44*t46*t48*t56*t59+5.30631295488d-5*t107*t197*t4 14080 3 4*t47*t59-1.030176d-2*t194*t44*t47*t50*t56+1.0d+0*rhoa* 14081 4 t385*t44*t47*t53-2.5d-1*t194*t44*t46*t53)*wght+Cmat2(iq 14082 5 ,D2_GAA_GAA) 14083 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 14084 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 14085 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 14086 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 14087 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 14088 Mmat2(iq,D2_RA_TA) = (1.0165533333333335d-2*t104*t48*t91*t 14089 1 97-3.04966d-3*t106*t201*t91*t97-6.09932d-3*t164*t50*t97 14090 2 +t390*t93+3.72017044624d-5*t104*t106*t121*t50*t91+t50*t 14091 3 56*(1.7169600000000002d-2*t44*t47*t59-1.030176d-2*t120) 14092 4 -1.28772d-3*gammaaa*t44*t46*t48*t56*t59-6.4386d-4*gamma 14093 5 aa*t106*t200*t44*t56*t59-1.25d-1*gammaaa*t200*t44*t45*t 14094 6 53*t59+1.061262590976d-4*t106*t107*t31*t44*t47*t59-5.15 14095 7 088d-3*rhoa*t106*t198*t44*t47*t56+1.25d-1*gammaaa*t198* 14096 8 t44*t45*t46*t53+t388*t53)*wght+Mmat2(iq,D2_RA_TA) 14097 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 14098 Mmat2(iq,D2_RB_TA) = (3.04966d-52*t177*t201*t91*t97-6.0993 14099 1 2d-3*t192*t50*t97+t392*t93-3.72017044624d-54*t104*t121* 14100 2 t177*t50*t91)*wght+Mmat2(iq,D2_RB_TA) 14101 Mmat2(iq,D2_RB_TB) = Mmat2(iq,D2_RB_TB) 14102 Mmat2(iq,D2_GAA_TA) = (-6.09932d-3*t195*t50*t91*t97-3.0496 14103 1 6d-3*t201*t48*t91*t97+1.0d+0*t396*t91*t93+3.72017044624 14104 2 d-5*t104*t121*t197*t91+1.28772d-3*t44*t46*t50*t56*t59-6 14105 3 .4386d-4*gammaaa*t200*t44*t48*t56*t59+1.061262590976d-4 14106 4 *t107*t395*t44*t47*t59-5.15088d-3*t198*t44*t47*t50*t56- 14107 5 1.030176d-2*t194*t31*t44*t47*t56+1.0d+0*rhoa*t394*t44*t 14108 6 47*t53-1.25d-1*t198*t44*t46*t53+t200*t375*t53)*wght+Mma 14109 7 t2(iq,D2_GAA_TA) 14110 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 14111 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 14112 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 14113 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 14114 Mmat2(iq,D2_GBB_TB) = Mmat2(iq,D2_GBB_TB) 14115 Mmat2(iq,D2_TA_TA) = (-1.219864d-2*t201*t50*t91*t97+1.0d+0 14116 1 *t401*t91*t93+7.44034089248d-5*t104*t121*t395*t91-2.575 14117 2 44d-3*gammaaa*t200*t44*t50*t56*t59-2.5d-1*gammaaa*t400* 14118 3 t44*t53*t59+2.122525181952d-4*t107*t215*t44*t47*t59-2.0 14119 4 60352d-2*t198*t31*t44*t47*t56+1.0d+0*rhoa*t399*t44*t47* 14120 5 t53+2.5d-1*gammaaa*t198*t200*t44*t53)*wght+Mmat2(iq,D2_ 14121 6 TA_TA) 14122 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 14123 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 14124 Amat3(iq,D3_RA_RA_RA) = (t93*(1.0d+0*t91*(-6.5185185185185 14125 1 19d+1*t100*t206*t97*t99*taua-1.1160511338720001d-3*t100 14126 2 *t202*t226*t48*t99*taua+1.2198640000000001d-1*t100*t121 14127 3 *t207*t48*t99*taua-3.252970666666667d-1*t100*t105*t106* 14128 4 t121*t99*taua-3.2592592592592595d+1*t206*t95*t97*t98*ta 14129 5 ua-1.6888888888888892d+2*gammaaa*t208*t97*t98*taua-5.58 14130 6 025566936d-4*t202*t226*t48*t95*t98*taua+6.09932d-2*t121 14131 7 *t207*t48*t95*t98*taua-1.6264853333333334d-1*t105*t106* 14132 8 t121*t95*t98*taua-3.252970666666667d-1*gammaaa*t106*t10 14133 9 8*t121*t98*taua+3.04966d-2*t103*t207*t48*t97*taua-8.132 14134 : 426666666668d-2*t103*t105*t106*t97*taua-3.2592592592592 14135 ; 595d+1*t103*t206*t93*taua-1.8600852231200002d-4*t103*t1 14136 < 21*t202*t48*taua-4.5629629629629626d+1*gammaaa*t405*t97 14137 = *t98*t99-6.807153001848167d-7*t402*t413*t95*t98*t99-6.0 14138 > 9932d-3*t121*t406*t95*t98*t99+1.6740767008080004d-4*t10 14139 ? 6*t207*t226*t95*t98*t99-4.464204535488d-4*gammaaa*t105* 14140 @ t202*t226*t98*t99+4.879456d-2*gammaaa*t105*t121*t207*t9 14141 1 8*t99-1.7891338666666665d-1*gammaaa*t106*t121*t206*t98* 14142 2 t99-3.04966d-3*t103*t406*t97*t99-1.7017882504620419d-7* 14143 3 t103*t226*t402*t99+5.580255669359999d-5*t103*t106*t121* 14144 4 t207*t99-9.125925925925925d+1*gammaaa*t405*t94*t95*t97- 14145 5 3.04966d-3*t102*t406*t95*t97-1.5644444444444447d+2*t407 14146 6 *t54*t94*t97+2.439728d-2*gammaaa*t102*t105*t207*t97-8.9 14147 7 45669333333333d-2*gammaaa*t102*t106*t206*t97-1.77777777 14148 8 7777778d+2*t100*t108*t199*t97-6.807153001848167d-7*t402 14149 9 *t413*t94*t96-6.09932d-3*t121*t406*t94*t96+1.6740767008 14150 : 080004d-4*t106*t207*t226*t94*t96-8.928409070976d-4*gamm 14151 ; aaa*t105*t202*t226*t94*t95+9.758912d-2*gammaaa*t105*t12 14152 < 1*t207*t94*t95-3.578267733333333d-1*gammaaa*t106*t121*t 14153 = 206*t94*t95-1.7017882504620419d-7*t102*t226*t402*t95+5. 14154 > 580255669359999d-5*t102*t106*t121*t207*t95-2.6023765333 14155 ? 33333d-1*t106*t121*t208*t54*t94-4.5629629629629626d+1*g 14156 @ ammaaa*t102*t405*t93-4.066213333333334d-1*t100*t106*t12 14157 1 1*t199*t55-6.807153001848167d-7*t100*t101*t402*t413-6.0 14158 2 9932d-3*t100*t101*t121*t406+1.6740767008080004d-4*t100* 14159 3 t101*t106*t207*t226-1.4880681784959998d-4*gammaaa*t102* 14160 4 t105*t121*t202)+1.0d+0*t104*(t60*(-1.4353912472687305d+ 14161 5 1*t151*t286*t69*t86*t89-5.980796863619711d-2*t481*t64*t 14162 6 65*t86*t89-2.1530868709030954d+0*t147*t289*t65*t86*t89- 14163 7 7.176956236343652d-1*t151*t282*t65*t86*t89-3.5884781181 14164 8 71826d+0*t147*t286*t64*t86*t89+7.176956236343652d-1*t14 14165 9 9*t282*t64*t86*t89+5.741564989074922d+0*t147*t149*t151* 14166 : t86*t89-2.8461809478463124d-1*t151*t302*t69*t89-7.11545 14167 ; 236961578d-2*t147*t302*t64*t89+7.623698967445479d-3*t16 14168 < 0*t282*t64*t89+6.098959173956384d-2*t147*t151*t160*t89+ 14169 = 2.3083932611178434d+1*t136*t137*t151*t267*t65*t69*t86-4 14170 > .616786522235687d+1*t137*t151*t259*t264*t65*t69*t86+7.4 14171 ? 24706620043432d+2*t151*t259*t260*t261*t65*t69*t86-1.846 14172 @ 7146088942746d+2*t135*t136*t137*t149*t151*t69*t86+5.770 14173 1 983152794609d+0*t135*t136*t137*t282*t64*t65*t86+5.77098 14174 2 3152794609d+0*t136*t137*t147*t267*t64*t65*t86-1.1541966 14175 3 305589217d+1*t137*t147*t259*t264*t64*t65*t86+1.85617665 14176 4 5010858d+2*t147*t259*t260*t261*t64*t65*t86+4.6167865222 14177 5 35687d+1*t135*t136*t137*t147*t151*t65*t86-4.61678652223 14178 6 5687d+1*t135*t136*t137*t147*t149*t64*t86+1.975163132168 14179 7 0768d-2*(t492+t491+t490+t489+t487+t486+t485+t484+t483+t 14180 8 482+1.923661050931536d+0*t481)*t80*t84-1.36313892824463 14181 9 5d-3*t125*t295*t84+1.8175185709928465d-3*t156*t245*t84- 14182 : 1.7544670867903941d+0*t131*t132*t133*t295*t80-1.7544670 14183 ; 867903941d+0*t132*t133*t156*t257*t80+3.5089341735807883 14184 < d+0*t133*t156*t249*t254*t80-5.19476882440587d+1*t156*t2 14185 = 49*t250*t251*t80-6.21814d-2*(t492+t491+t490+t489+t487+t 14186 > 486+t485+t484+t483+t482)*t62*t78+8.243319792565312d-3*t 14187 ? 125*t291*t78-1.099109305675375d-2*t153*t245*t78-1.96166 14188 @ 67279785865d+0*t135*t136*t137*t151*t160*t69-4.904166819 14189 1 946466d-1*t135*t136*t137*t147*t160*t64+3.0d+0*t127*t128 14190 2 *t129*t291*t62+3.0d+0*t128*t129*t153*t247*t62-6.0d+0*t1 14191 3 29*t153*t235*t240*t62+4.824593849607761d+1*t153*t235*t2 14192 4 36*t237*t62+t498+t497+t496+t495+t494+t493+t474+t473+t47 14193 5 2+t471+t470+t469+t468+t467+t466+t465+t464+t463+t462+t46 14194 6 1+t460+t459+t457+t456+t455+t454+t453+t452+t451+t450+t44 14195 7 9+t448+t446+t441+t440+t439+t438+t437+t436+t435+t434+t43 14196 8 3+8.072185179299687d-2*t125*t131*t132*t133*t156-2.65137 14197 9 79981040353d-1*t125*t127*t128*t129*t153)+5.741564989074 14198 : 922d+0*t149*t151*t69*t86*t89-1.794239059085913d-1*t282* 14199 ; t64*t65*t86*t89-1.4353912472687305d+0*t147*t151*t65*t86 14200 < *t89+1.4353912472687305d+0*t147*t149*t64*t86*t89+6.0989 14201 = 59173956384d-2*t151*t160*t69*t89+1.524739793489096d-2*t 14202 > 147*t160*t64*t89+4.616786522235687d+1*t135*t136*t137*t1 14203 ? 51*t65*t69*t86+1.1541966305589217d+1*t135*t136*t137*t14 14204 @ 7*t64*t65*t86+5.92548939650423d-2*t295*t80*t84-2.726277 14205 1 85648927d-3*t125*t156*t84-3.5089341735807883d+0*t131*t1 14206 2 32*t133*t156*t80-1.865442d-1*t291*t62*t78+1.64866395851 14207 3 30625d-2*t125*t153*t78+6.0d+0*t127*t128*t129*t153*t62+t 14208 4 431+t430-3.3306690738754696d-16*t110*t115*t217*t43+6.66 14209 5 1338147750939d-16*t110*t211*t213*t43-5.356375176299456d 14210 6 -15*t210*t211*t212*t43+t429+t428+t427+t426+t425+t424+t4 14211 7 23+t422+t421+t420+1.2202564577405706d-18*t215*t42+t419+ 14212 8 t418+t417+t416+t415+t414-rhoa*t412-3.0d+0*t116*t118*t22 14213 9 2*t39+6.0d+0*t116*t219*t221*t39-9.649187699215522d+1*t2 14214 : 18*t219*t220*t39+5.284159572535705d-3*t215*t38+2.549392 14215 ; 377400174d-1*t112*t116*t117*t118+2.943620900479655d-17* 14216 < t110*t112*t114*t115)+3.0d+0*t122*t308+3.0d+0*t163*t227) 14217 = +t53*(1.0d+0*rhoa*t44*t47*(-6.518518518518519d+1*t206*t 14218 > 56*t57*t6*taua+2.060352d-1*t107*t207*t48*t57*t6*taua-3. 14219 ? 183787772928d-3*t202*t205*t48*t57*t6*taua-5.494272d-1*t 14220 @ 105*t106*t107*t57*t6*taua+5.15088d-2*t13*t207*t48*t56*t 14221 1 aua-2.0148148148148146d+2*gammaaa*t15*t208*t56*taua-1.3 14222 2 73568d-1*t105*t106*t13*t56*taua+1.030176d-1*gammaaa*t10 14223 3 7*t15*t207*t55*taua-1.591893886464d-3*gammaaa*t15*t202* 14224 4 t205*t55*taua-3.2592592592592595d+1*t13*t206*t53*taua-5 14225 5 .30631295488d-4*t107*t13*t202*t48*taua-8.241408d-1*gamm 14226 6 aaa*t106*t107*t108*t15*taua-1.030176d-2*t107*t406*t58*t 14227 7 6-3.2798617527638757d-6*t402*t404*t58*t6+4.775681659392 14228 8 0004d-4*t106*t205*t207*t58*t6-1.777777777777778d+2*t108 14229 9 *t199*t56*t6-6.867840000000001d-1*t106*t107*t199*t55*t6 14230 : -5.15088d-3*t13*t406*t56*t57-4.5629629629629626d+1*gamm 14231 ; aaa*t15*t405*t56*t57-1.030176d-2*gammaaa*t107*t15*t406* 14232 < t48*t57-3.2798617527638757d-6*gammaaa*t15*t402*t404*t48 14233 = *t57+4.7756816593920004d-4*gammaaa*t106*t15*t205*t207*t 14234 > 48*t57-8.199654381909689d-7*t13*t205*t402*t57+8.241408d 14235 ? -2*gammaaa*t105*t107*t15*t207*t57+1.591893886464d-4*t10 14236 @ 6*t107*t13*t207*t57-3.0218496d-1*gammaaa*t106*t107*t15* 14237 1 t206*t57-1.2735151091712002d-3*gammaaa*t105*t15*t202*t2 14238 2 05*t57-2.477037037037037d+2*t11*t407*t54*t56-5.15088d-3 14239 3 *gammaaa*t14*t406*t48*t56+4.120704d-2*gammaaa*t105*t14* 14240 4 t207*t56-1.5109248d-1*gammaaa*t106*t14*t206*t56-1.03017 14241 5 6d-2*t107*t11*t406*t54*t55-3.2798617527638757d-6*t11*t4 14242 6 02*t404*t54*t55+4.7756816593920004d-4*t106*t11*t205*t20 14243 7 7*t54*t55-1.0439116799999999d+0*t106*t107*t11*t208*t54+ 14244 8 1.6482816d-1*t107*t108*t11*t207*t54-2.5470302183424004d 14245 9 -3*t108*t11*t202*t205*t54-4.5629629629629626d+1*gammaaa 14246 : *t14*t405*t53-8.199654381909689d-7*gammaaa*t14*t205*t40 14247 ; 2*t48+1.591893886464d-4*gammaaa*t106*t107*t14*t207*t48- 14248 < 4.245050363904d-4*gammaaa*t105*t107*t14*t202)+1.0d+0*rh 14249 = oa*t412*t47*t59+3.0d+0*t223*t47*t59+2.5d-1*gammaaa*t223 14250 > *t45*t46*t59-2.5d-1*gammaaa*t403*t44*t46*t59+2.5d-1*gam 14251 ? maaa*t119*t203*t46*t59+3.0d+0*t209*t44*t47+3.0d+0*rhoa* 14252 @ t109*t223*t47+3.0d+0*rhoa*t119*t209*t47+6.0d+0*t109*t11 14253 1 9*t47+2.5d-1*gammaaa*t209*t44*t45*t46+5.0d-1*gammaaa*t1 14254 2 09*t119*t45*t46+2.5d-1*gammaaa*t109*t203*t44*t46)+(-3.0 14255 3 4966d-3*t104*t406*t91-3.04966d-3*t106*t227*t91-6.09932d 14256 4 -3*t122*t207*t91-6.09932d-3*t106*t309-3.04966d-3*t104*t 14257 5 106*t308-3.04966d-3*t164*t207-6.09932d-3*t104*t163*t207 14258 6 -6.09932d-3*t106*t122*t163)*t97+t121*(3.72017044624d-5* 14259 7 t104*t106*t207*t91+1.86008522312d-5*t122*t202*t91-6.099 14260 8 32d-3*t106*t310+1.86008522312d-5*t104*t163*t202)-1.7017 14261 9 882504620419d-7*t104*t226*t402*t91+t56*(-5.15088d-3*rho 14262 : a*t406*t44*t47*t59-1.030176d-2*t207*t44*t47*t59-5.15088 14263 ; d-3*rhoa*t106*t223*t47*t59-1.030176d-2*rhoa*t119*t207*t 14264 < 47*t59-1.030176d-2*t106*t119*t47*t59-6.4386d-4*gammaaa* 14265 = t207*t44*t45*t46*t59-6.4386d-4*gammaaa*t106*t119*t45*t4 14266 > 6*t59-6.4386d-4*gammaaa*t106*t203*t44*t46*t59-5.15088d- 14267 ? 3*rhoa*t106*t209*t44*t47-1.030176d-2*rhoa*t109*t207*t44 14268 @ *t47-1.030176d-2*t106*t109*t44*t47-1.030176d-2*rhoa*t10 14269 1 6*t109*t119*t47-6.4386d-4*gammaaa*t106*t109*t44*t45*t46 14270 2 -1.030176d-2*t106*t224-5.15088d-3*t120*t207)+t107*(1.06 14271 3 1262590976d-4*rhoa*t106*t207*t44*t47*t59+5.30631295488d 14272 4 -5*t202*t44*t47*t59+5.30631295488d-5*rhoa*t119*t202*t47 14273 5 *t59+5.30631295488d-5*rhoa*t109*t202*t44*t47-1.030176d- 14274 6 2*t106*t225)+t45*t46*t56*(-1.28772d-3*gammaaa*t207*t44* 14275 7 t59-1.28772d-3*gammaaa*t106*t119*t59-1.28772d-3*gammaaa 14276 8 *t106*t109*t44-5.15088d-3*t106*t204)+t45*t46*t53*(1.25d 14277 9 -1*gammaaa*t223*t59+1.25d-1*gammaaa*t209*t44+2.5d-1*gam 14278 : maaa*t109*t119)+t203*t46*t53*(-2.5d-1*gammaaa*t119*t59- 14279 ; 2.5d-1*gammaaa*t109*t44)+1.93158d-3*gammaaa*t106*t203*t 14280 < 44*t46*t56*t59+2.5d-1*gammaaa*t403*t44*t46*t53*t59-8.19 14281 = 9654381909689d-7*rhoa*t205*t402*t44*t47*t59+1.989867358 14282 > 0800003d-5*gammaaa*t107*t202*t44*t45*t46*t59)*wght+Amat 14283 ? 3(iq,D3_RA_RA_RA) 14284 Amat3(iq,D3_RA_RA_RB) = (t93*(1.0d+0*t91*(7.44034089248000 14285 1 1d-53*t100*t106*t177*t226*t48*t99*taua+1.08432355555555 14286 2 57d-50*t100*t105*t121*t177*t99*taua-5.925925925925926d- 14287 3 49*t105*t177*t97*t98*taua+3.7201704462400004d-53*t106*t 14288 4 177*t226*t48*t95*t98*taua+5.421617777777779d-51*t105*t1 14289 5 21*t177*t95*t98*taua-2.710808888888889d-51*t106*t121*t1 14290 6 77*t48*t98*taua+1.0843235555555557d-50*gammaaa*t108*t12 14291 7 1*t177*t98*taua+2.710808888888889d-51*t103*t105*t177*t9 14292 8 7*taua-5.925925925925926d-49*t100*t105*t177*t97*taua+1. 14293 9 2400568154133336d-53*t103*t106*t121*t177*t48*taua-2.710 14294 : 808888888889d-51*t100*t106*t121*t177*t48*taua+6.8071530 14295 ; 01848167d-56*t177*t202*t413*t95*t98*t99-5.58025566936d- 14296 < 54*t177*t207*t226*t95*t98*t99-3.7201704462400004d-54*t1 14297 = 77*t202*t226*t98*t99+2.9761363569919996d-53*gammaaa*t10 14298 > 5*t106*t177*t226*t98*t99+4.0662133333333333d-52*t121*t1 14299 ? 77*t207*t98*t99+5.963779555555556d-51*gammaaa*t121*t177 14300 @ *t206*t98*t99+1.7017882504620416d-56*t103*t177*t202*t22 14301 1 6*t99-3.7201704462400004d-54*t100*t177*t202*t226*t99-1. 14302 2 86008522312d-54*t103*t121*t177*t207*t99+4.0662133333333 14303 3 333d-52*t100*t121*t177*t207*t99-3.2592592592592595d-49* 14304 4 gammaaa*t177*t206*t97*t98-1.8600852231200002d-54*t177*t 14305 5 202*t226*t95*t98+2.0331066666666667d-52*t121*t177*t207* 14306 6 t95*t98-1.0843235555555554d-51*gammaaa*t105*t106*t121*t 14307 7 177*t98-1.3037037037037036d-48*gammaaa*t177*t206*t94*t9 14308 8 7+1.0165533333333333d-52*t103*t177*t207*t97+2.033106666 14309 9 6666667d-52*t102*t177*t207*t97+2.981889777777778d-51*ga 14310 : mmaaa*t102*t177*t206*t97+6.807153001848167d-56*t177*t20 14311 ; 2*t413*t94*t96-5.58025566936d-54*t177*t207*t226*t94*t96 14312 < -7.440340892480001d-54*t177*t202*t226*t94*t95+5.9522727 14313 = 13983999d-53*gammaaa*t105*t106*t177*t226*t94*t95+8.1324 14314 > 26666666667d-52*t121*t177*t207*t94*t95+1.19275591111111 14315 ? 13d-50*gammaaa*t121*t177*t206*t94*t95+1.701788250462041 14316 @ 6d-56*t102*t177*t202*t226*t95-1.86008522312d-54*t102*t1 14317 1 21*t177*t207*t95+8.674588444444443d-51*t121*t177*t208*t 14318 2 54*t94-4.3372942222222216d-51*gammaaa*t105*t106*t121*t1 14319 3 77*t94+1.3554044444444446d-50*t100*t121*t177*t199*t55+6 14320 4 .807153001848167d-56*t100*t101*t177*t202*t413-5.5802556 14321 5 6936d-54*t100*t101*t177*t207*t226-6.200284077066667d-55 14322 6 *t103*t121*t177*t202-1.2400568154133333d-54*t102*t121*t 14323 7 177*t202+9.920454523306665d-54*gammaaa*t102*t105*t106*t 14324 8 121*t177)+1.0d+0*t104*(t60*(-4.7846374908957684d+0*t151 14325 9 *t286*t69*t86*t89-5.980796863619711d-2*t509*t64*t65*t86 14326 : *t89-4.7846374908957684d-1*t151*t312*t65*t86*t89-7.1769 14327 ; 56236343652d-1*t183*t289*t65*t86*t89+1.4353912472687305 14328 < d+0*t147*t289*t65*t86*t89+2.3923187454478842d-1*t151*t2 14329 = 82*t65*t86*t89-1.1961593727239421d+0*t183*t286*t64*t86* 14330 > t89-2.3923187454478842d+0*t147*t286*t64*t86*t89+2.39231 14331 ? 87454478842d-1*t149*t282*t64*t86*t89+1.9138549963583074 14332 @ d+0*t149*t151*t183*t86*t89-9.487269826154375d-2*t151*t3 14333 1 02*t69*t89-3.049479586978192d-2*t160*t289*t69*t89-2.371 14334 2 8174565385935d-2*t183*t302*t64*t89-4.743634913077187d-2 14335 3 *t147*t302*t64*t89+2.541232989148493d-3*t160*t282*t64*t 14336 4 89+2.0329863913187946d-2*t151*t160*t183*t89+7.694644203 14337 5 726144d+0*t136*t137*t151*t267*t65*t69*t86-1.53892884074 14338 6 5229d+1*t137*t151*t259*t264*t65*t69*t86+2.4749022066811 14339 7 444d+2*t151*t259*t260*t261*t65*t69*t86-6.15571536298091 14340 8 6d+1*t135*t136*t137*t149*t151*t69*t86+1.923661050931536 14341 9 d+0*t135*t136*t137*t282*t64*t65*t86+1.923661050931536d+ 14342 : 0*t136*t137*t183*t267*t64*t65*t86+3.847322101863072d+0* 14343 ; t136*t137*t147*t267*t64*t65*t86-3.847322101863072d+0*t1 14344 < 37*t183*t259*t264*t64*t65*t86-7.694644203726144d+0*t137 14345 = *t147*t259*t264*t64*t65*t86+6.187255516702861d+1*t183*t 14346 > 259*t260*t261*t64*t65*t86+1.2374511033405722d+2*t147*t2 14347 ? 59*t260*t261*t64*t65*t86+1.538928840745229d+1*t135*t136 14348 @ *t137*t151*t183*t65*t86-1.538928840745229d+1*t135*t136* 14349 1 t137*t149*t183*t64*t86-3.077857681490458d+1*t135*t136*t 14350 2 137*t147*t149*t64*t86+1.9751631321680768d-2*(t520+t519+ 14351 3 t518+t517+t516+t515+t514+t513+t512+t511+t510+1.92366105 14352 4 0931536d+0*t509+t508+t507+t489)*t80*t84-4.5437964274821 14353 5 163d-4*t125*t295*t84+6.058395236642822d-4*t188*t245*t84 14354 6 +1.2116790473285642d-3*t156*t245*t84-5.848223622634647d 14355 7 -1*t131*t132*t133*t295*t80-5.848223622634647d-1*t132*t1 14356 8 33*t188*t257*t80-1.1696447245269295d+0*t132*t133*t156*t 14357 9 257*t80+1.1696447245269295d+0*t133*t188*t249*t254*t80+2 14358 : .339289449053859d+0*t133*t156*t249*t254*t80-1.731589608 14359 ; 13529d+1*t188*t249*t250*t251*t80-3.46317921627058d+1*t1 14360 < 56*t249*t250*t251*t80-6.21814d-2*(t520+t519+t518+t517+t 14361 = 516+t515+t514+t513+t512+t511+t510+t508+t507+t489)*t62*t 14362 > 78+2.747773264188437d-3*t125*t291*t78-3.663697685584583 14363 ? d-3*t186*t245*t78-7.327395371169166d-3*t153*t245*t78-6. 14364 @ 538889093261956d-1*t135*t136*t137*t151*t160*t69-1.63472 14365 1 22733154887d-1*t135*t136*t137*t160*t183*t64-3.269444546 14366 2 6309774d-1*t135*t136*t137*t147*t160*t64+1.0d+0*t127*t12 14367 3 8*t129*t291*t62+1.0d+0*t128*t129*t186*t247*t62+2.0d+0*t 14368 4 128*t129*t153*t247*t62-2.0d+0*t129*t186*t235*t240*t62-4 14369 5 .0d+0*t129*t153*t235*t240*t62+1.6081979498692536d+1*t18 14370 6 6*t235*t236*t237*t62+3.216395899738507d+1*t153*t235*t23 14371 7 6*t237*t62+t525+t524+t523+t522+t521+t506+t505+t504+t503 14372 8 +t502+t496+t494+t493+t474+t472+t471+t470+t469+t468+t467 14373 9 +t466+t465+t464+t463+t462+t461+t460+t459+t457+t456+t455 14374 : +t454+t453+t452+t451+t450+t449+t448+t446+t441+t440+t439 14375 ; +t438+t437+t436+t435+t434+t433+2.690728393099896d-2*t12 14376 < 5*t131*t132*t133*t188-8.837926660346784d-2*t125*t127*t1 14377 = 28*t129*t186+5.381456786199792d-2*t125*t131*t132*t133*t 14378 > 156-1.767585332069357d-1*t125*t127*t128*t129*t153)-4.78 14379 ? 46374908957684d-1*t151*t183*t65*t86*t89+9.5692749817915 14380 @ 37d-1*t147*t149*t64*t86*t89+1.0164931956593973d-2*t147* 14381 1 t160*t64*t89+7.694644203726144d+0*t135*t136*t137*t147*t 14382 2 64*t65*t86-1.8175185709928465d-3*t125*t156*t84-2.339289 14383 3 449053859d+0*t131*t132*t133*t156*t80+1.099109305675375d 14384 4 -2*t125*t153*t78+4.0d+0*t127*t128*t129*t153*t62+t501+t5 14385 5 00+t499+t430+t429+t428+t427+t426+t425+t424+t423+t422+t4 14386 6 21+t420+t419+t418+t417+t416+t415+t414+t369+t368+t366+t3 14387 7 63+t350+t349+t348+t321+t306+t304+t299+t296+t292+t270)+2 14388 8 .0d+0*t122*t322+2.0d+0*t163*t311+1.0d+0*t180*t308+1.0d+ 14389 9 0*t191*t227)+(-3.04966d-3*t106*t311*t91-3.04966d-3*t180 14390 : *t207*t91-3.04966d-3*t106*t323-3.04966d-3*t104*t106*t32 14391 ; 2-3.04966d-3*t104*t191*t207-3.04966d-3*t106*t122*t191-3 14392 < .04966d-3*t106*t163*t180)*t97+3.04966d-52*t177*t309*t97 14393 = +t121*(1.86008522312d-5*t180*t202*t91+1.86008522312d-5* 14394 > t104*t191*t202)+1.7017882504620416d-56*t104*t177*t202*t 14395 ? 226*t91+6.09932d-52*t121*t177*t310)*wght+Amat3(iq,D3_RA 14396 @ _RA_RB) 14397 Amat3(iq,D3_RA_RB_RB) = (t93*(1.0d+0*t91*(1.08432355555555 14398 1 57d-50*t100*t121*t343*t48*t99*taua-3.72017044624d-102*t 14399 2 100*t226*t342*t48*t99*taua-5.925925925925926d-49*t343*t 14400 3 48*t97*t98*taua+5.421617777777779d-51*t121*t343*t48*t95 14401 4 *t98*taua-1.86008522312d-102*t226*t342*t48*t95*t98*taua 14402 5 +2.710808888888889d-100*t121*t342*t48*t98*taua+2.710808 14403 6 888888889d-51*t103*t343*t48*t97*taua-5.925925925925926d 14404 7 -49*t100*t343*t48*t97*taua-6.200284077066667d-103*t103* 14405 8 t121*t342*t48*taua+2.710808888888889d-100*t100*t121*t34 14406 9 2*t48*taua-6.807153001848167d-105*t106*t342*t413*t95*t9 14407 : 8*t99+1.4880681784959998d-53*t106*t226*t343*t95*t98*t99 14408 ; -1.0843235555555555d-51*t106*t121*t343*t98*t99+4.337294 14409 < 2222222216d-51*gammaaa*t105*t121*t343*t98*t99+7.4403408 14410 = 9248d-103*t106*t226*t342*t98*t99-1.4880681784959998d-10 14411 > 2*gammaaa*t105*t226*t342*t98*t99+4.9602272616533327d-54 14412 ? *t103*t106*t121*t343*t99-1.0843235555555555d-51*t100*t1 14413 @ 06*t121*t343*t99-1.7017882504620416d-105*t103*t106*t226 14414 1 *t342*t99+7.44034089248d-103*t100*t106*t226*t342*t99-2. 14415 2 37037037037037d-49*gammaaa*t105*t343*t97*t98-5.42161777 14416 3 7777777d-52*t106*t121*t343*t95*t98+3.72017044624d-103*t 14417 4 106*t226*t342*t95*t98-2.710808888888889d-101*t106*t121* 14418 5 t342*t98+1.0843235555555555d-100*gammaaa*t105*t121*t342 14419 6 *t98-9.48148148148148d-49*gammaaa*t105*t343*t94*t97-2.7 14420 7 108088888888887d-52*t103*t106*t343*t97-5.42161777777777 14421 8 7d-52*t102*t106*t343*t97+2.1686471111111108d-51*gammaaa 14422 9 *t102*t105*t343*t97-6.807153001848167d-105*t106*t342*t4 14423 : 13*t94*t96+1.4880681784959998d-53*t106*t226*t343*t94*t9 14424 ; 6-2.168647111111111d-51*t106*t121*t343*t94*t95+8.674588 14425 < 444444443d-51*gammaaa*t105*t121*t343*t94*t95+1.48806817 14426 = 84959998d-102*t106*t226*t342*t94*t95-2.9761363569919996 14427 > d-102*gammaaa*t105*t226*t342*t94*t95+4.9602272616533327 14428 ? d-54*t102*t106*t121*t343*t95-1.7017882504620416d-105*t1 14429 @ 02*t106*t226*t342*t95-5.421617777777779d-101*t106*t121* 14430 1 t342*t94+4.337294222222222d-100*gammaaa*t105*t121*t342* 14431 2 t94-6.807153001848167d-105*t100*t101*t106*t342*t413+1.4 14432 3 880681784959998d-53*t100*t101*t106*t226*t343+1.24005681 14433 4 54133333d-103*t103*t106*t121*t342+2.4801136308266666d-1 14434 5 03*t102*t106*t121*t342-1.3554044444444446d-101*t100*t10 14435 6 6*t121*t342-4.960227261653333d-103*gammaaa*t102*t105*t1 14436 7 21*t342)+1.0d+0*t104*(t60*(4.7846374908957684d+0*t151*t 14437 8 286*t69*t86*t89-5.980796863619711d-2*t526*t64*t65*t86*t 14438 9 89-2.3923187454478842d-1*t151*t356*t65*t86*t89+4.784637 14439 : 4908957684d-1*t151*t312*t65*t86*t89+1.4353912472687305d 14440 ; +0*t183*t289*t65*t86*t89-7.176956236343652d-1*t147*t289 14441 < *t65*t86*t89+2.3923187454478842d-1*t149*t356*t64*t86*t8 14442 = 9-2.3923187454478842d+0*t183*t286*t64*t86*t89-1.1961593 14443 > 727239421d+0*t147*t286*t64*t86*t89-1.9138549963583074d+ 14444 ? 0*t147*t149*t151*t86*t89+9.487269826154374d-2*t151*t302 14445 @ *t69*t89-3.0494795869781915d-2*t160*t289*t69*t89+2.5412 14446 1 32989148493d-3*t160*t356*t64*t89-4.743634913077187d-2*t 14447 2 183*t302*t64*t89-2.3718174565385935d-2*t147*t302*t64*t8 14448 3 9-2.0329863913187946d-2*t147*t151*t160*t89-7.6946442037 14449 4 26144d+0*t136*t137*t151*t267*t65*t69*t86+1.538928840745 14450 5 229d+1*t137*t151*t259*t264*t65*t69*t86-2.47490220668114 14451 6 44d+2*t151*t259*t260*t261*t65*t69*t86+6.155715362980916 14452 7 d+1*t135*t136*t137*t149*t151*t69*t86+1.923661050931536d 14453 8 +0*t135*t136*t137*t356*t64*t65*t86+3.847322101863072d+0 14454 9 *t136*t137*t183*t267*t64*t65*t86+1.923661050931536d+0*t 14455 : 136*t137*t147*t267*t64*t65*t86-7.694644203726144d+0*t13 14456 ; 7*t183*t259*t264*t64*t65*t86-3.847322101863072d+0*t137* 14457 < t147*t259*t264*t64*t65*t86+1.2374511033405722d+2*t183*t 14458 = 259*t260*t261*t64*t65*t86+6.187255516702861d+1*t147*t25 14459 > 9*t260*t261*t64*t65*t86-1.538928840745229d+1*t135*t136* 14460 ? t137*t147*t151*t65*t86-3.077857681490458d+1*t135*t136*t 14461 @ 137*t149*t183*t64*t86-1.538928840745229d+1*t135*t136*t1 14462 1 37*t147*t149*t64*t86+1.9751631321680768d-2*(t536+t535+t 14463 2 534+t533+t532+t531+t530+t529+t528+t527+1.92366105093153 14464 3 6d+0*t526+t519+t507+t492+t489)*t80*t84-4.54379642748211 14465 4 63d-4*t125*t364*t84+1.2116790473285642d-3*t188*t245*t84 14466 5 +6.058395236642822d-4*t156*t245*t84-5.848223622634647d- 14467 6 1*t131*t132*t133*t364*t80-1.1696447245269295d+0*t132*t1 14468 7 33*t188*t257*t80-5.848223622634647d-1*t132*t133*t156*t2 14469 8 57*t80+2.339289449053859d+0*t133*t188*t249*t254*t80+1.1 14470 9 696447245269295d+0*t133*t156*t249*t254*t80-3.4631792162 14471 : 7058d+1*t188*t249*t250*t251*t80-1.73158960813529d+1*t15 14472 ; 6*t249*t250*t251*t80-6.21814d-2*(t536+t535+t534+t533+t5 14473 < 32+t531+t530+t529+t528+t527+t519+t507+t492+t489)*t62*t7 14474 = 8+2.747773264188437d-3*t125*t361*t78-7.327395371169166d 14475 > -3*t186*t245*t78-3.663697685584583d-3*t153*t245*t78+6.5 14476 ? 38889093261955d-1*t135*t136*t137*t151*t160*t69-3.269444 14477 @ 5466309774d-1*t135*t136*t137*t160*t183*t64-1.6347222733 14478 1 154887d-1*t135*t136*t137*t147*t160*t64+1.0d+0*t127*t128 14479 2 *t129*t361*t62+2.0d+0*t128*t129*t186*t247*t62+1.0d+0*t1 14480 3 28*t129*t153*t247*t62-4.0d+0*t129*t186*t235*t240*t62-2. 14481 4 0d+0*t129*t153*t235*t240*t62+3.216395899738507d+1*t186* 14482 5 t235*t236*t237*t62+1.6081979498692536d+1*t153*t235*t236 14483 6 *t237*t62+t524+t523+t522+t521+t506+t505+t504+t503+t502+ 14484 7 t498+t496+t494+t493+t474+t472+t471+t470+t469+t468+t467+ 14485 8 t466+t465+t464+t463+t462+t461+t460+t459+t457+t456+t455+ 14486 9 t454+t453+t452+t451+t450+t449+t448+t446+t441+t440+t439+ 14487 : t438+t437+t436+t435+t434+t433+5.381456786199792d-2*t125 14488 ; *t131*t132*t133*t188-1.767585332069357d-1*t125*t127*t12 14489 < 8*t129*t186+2.690728393099896d-2*t125*t131*t132*t133*t1 14490 = 56-8.837926660346784d-2*t125*t127*t128*t129*t153)+4.784 14491 > 6374908957684d-1*t147*t151*t65*t86*t89+9.56927498179153 14492 ? 7d-1*t149*t183*t64*t86*t89+1.0164931956593973d-2*t160*t 14493 @ 183*t64*t89+7.694644203726144d+0*t135*t136*t137*t183*t6 14494 1 4*t65*t86-1.8175185709928465d-3*t125*t188*t84-2.3392894 14495 2 49053859d+0*t131*t132*t133*t188*t80+1.099109305675375d- 14496 3 2*t125*t186*t78+4.0d+0*t127*t128*t129*t186*t62+t501+t50 14497 4 0+t499+t430+t429+t428+t427+t426+t425+t424+t423+t422+t42 14498 5 1+t420+t419+t418+t417+t416+t415+t414+t371+t370+t367+t36 14499 6 5+t362+t351+t321+t301+t300+t297+t293+t263+t253+t239)+1. 14500 7 0d+0*t122*t372+1.0d+0*t163*t347+2.0d+0*t180*t322+2.0d+0 14501 8 *t191*t311)+(-3.04966d-3*t106*t347*t91-3.04966d-3*t104* 14502 9 t106*t372-6.09932d-3*t106*t180*t191)*t97-8.132426666666 14503 : 666d-52*t164*t343*t97+6.09932d-52*t177*t323*t97+t121*t1 14504 ; 77*(-1.86008522312d-54*t106*t180*t91+6.09932d-52*t324-1 14505 < .86008522312d-54*t104*t106*t191)+4.9602272616533327d-54 14506 = *t104*t106*t121*t343*t91-1.7017882504620416d-105*t104*t 14507 > 106*t226*t342*t91+1.86008522312d-103*t121*t164*t342)*wg 14508 ? ht+Amat3(iq,D3_RA_RB_RB) 14509 Amat3(iq,D3_RB_RB_RB) = (t93*(1.0d+0*t91*(-6.5185185185185 14510 1 18d-49*t546*t97*t98*t99+5.963779555555554d-51*t121*t546 14511 2 *t95*t98*t99-4.4642045354879994d-102*t226*t545*t95*t98* 14512 3 t99+6.807153001848166d-154*t413*t544*t95*t98*t99+6.5059 14513 4 41333333333d-100*t121*t545*t98*t99-1.1160511338719999d- 14514 5 151*t226*t544*t98*t99+2.981889777777777d-51*t103*t546*t 14515 6 97*t99-6.518518518518518d-49*t100*t546*t97*t99-1.488068 14516 7 1784959998d-102*t103*t121*t545*t99+6.505941333333333d-1 14517 8 00*t100*t121*t545*t99+1.7017882504620416d-154*t103*t226 14518 9 *t544*t99-1.1160511338719999d-151*t100*t226*t544*t99-3. 14519 : 259259259259259d-49*t546*t95*t97*t98-3.555555555555555d 14520 ; -98*t545*t97*t98+3.2529706666666663d-100*t121*t545*t95* 14521 < t98-5.580255669359999d-152*t226*t544*t95*t98+8.13242666 14522 = 6666666d-150*t121*t544*t98-1.3037037037037036d-48*t546* 14523 > t94*t95*t97+2.981889777777777d-51*t102*t546*t95*t97-7.1 14524 ? 1111111111111d-98*t545*t94*t97+1.6264853333333332d-100* 14525 @ t103*t545*t97+3.2529706666666663d-100*t102*t545*t97-1.7 14526 1 777777777777776d-98*t100*t545*t97+5.963779555555554d-51 14527 2 *t121*t546*t94*t96-4.4642045354879994d-102*t226*t545*t9 14528 3 4*t96+6.807153001848166d-154*t413*t544*t94*t96+1.301188 14529 4 2666666666d-99*t121*t545*t94*t95-2.2321022677439997d-15 14530 5 1*t226*t544*t94*t95-1.4880681784959998d-102*t102*t121*t 14531 6 545*t95+1.7017882504620416d-154*t102*t226*t544*t95+1.62 14532 7 64853333333332d-149*t121*t544*t94-3.259259259259259d-49 14533 8 *t103*t546*t93-6.518518518518518d-49*t102*t546*t93+5.96 14534 9 3779555555554d-51*t100*t101*t121*t546-4.464204535487999 14535 : 4d-102*t100*t101*t226*t545+6.807153001848166d-154*t100* 14536 ; t101*t413*t544-1.8600852231199996d-152*t103*t121*t544-3 14537 < .720170446239999d-152*t102*t121*t544+4.066213333333333d 14538 = -150*t100*t121*t544)+1.0d+0*t104*(t60*(1.43539124726873 14539 > 05d+1*t151*t286*t69*t86*t89-5.980796863619711d-2*t547*t 14540 ? 64*t65*t86*t89+7.176956236343652d-1*t151*t356*t65*t86*t 14541 @ 89-2.1530868709030954d+0*t183*t289*t65*t86*t89+7.176956 14542 1 236343652d-1*t149*t356*t64*t86*t89-3.588478118171826d+0 14543 2 *t183*t286*t64*t86*t89-5.741564989074922d+0*t149*t151*t 14544 3 183*t86*t89+2.8461809478463124d-1*t151*t302*t69*t89+7.6 14545 4 23698967445479d-3*t160*t356*t64*t89-7.11545236961578d-2 14546 5 *t183*t302*t64*t89-6.098959173956384d-2*t151*t160*t183* 14547 6 t89-2.3083932611178434d+1*t136*t137*t151*t267*t65*t69*t 14548 7 86+4.616786522235687d+1*t137*t151*t259*t264*t65*t69*t86 14549 8 -7.424706620043432d+2*t151*t259*t260*t261*t65*t69*t86+1 14550 9 .8467146088942746d+2*t135*t136*t137*t149*t151*t69*t86+5 14551 : .770983152794609d+0*t135*t136*t137*t356*t64*t65*t86+5.7 14552 ; 70983152794609d+0*t136*t137*t183*t267*t64*t65*t86-1.154 14553 < 1966305589217d+1*t137*t183*t259*t264*t64*t65*t86+1.8561 14554 = 76655010858d+2*t183*t259*t260*t261*t64*t65*t86-4.616786 14555 > 522235687d+1*t135*t136*t137*t151*t183*t65*t86-4.6167865 14556 ? 22235687d+1*t135*t136*t137*t149*t183*t64*t86+1.97516313 14557 @ 21680768d-2*(t554+t553+t552+t551+t550+t549+t548+1.92366 14558 1 1050931536d+0*t547+t520+t491+t489)*t80*t84-1.3631389282 14559 2 44635d-3*t125*t364*t84+1.8175185709928465d-3*t188*t245* 14560 3 t84-1.7544670867903941d+0*t131*t132*t133*t364*t80-1.754 14561 4 4670867903941d+0*t132*t133*t188*t257*t80+3.508934173580 14562 5 7883d+0*t133*t188*t249*t254*t80-5.19476882440587d+1*t18 14563 6 8*t249*t250*t251*t80-6.21814d-2*(t554+t553+t552+t551+t5 14564 7 50+t549+t548+t520+t491+t489)*t62*t78+8.243319792565312d 14565 8 -3*t125*t361*t78-1.099109305675375d-2*t186*t245*t78+1.9 14566 9 616667279785865d+0*t135*t136*t137*t151*t160*t69-4.90416 14567 : 6819946466d-1*t135*t136*t137*t160*t183*t64+3.0d+0*t127* 14568 ; t128*t129*t361*t62+3.0d+0*t128*t129*t186*t247*t62-6.0d+ 14569 < 0*t129*t186*t235*t240*t62+4.824593849607761d+1*t186*t23 14570 = 5*t236*t237*t62+t525+t497+t496+t495+t494+t493+t474+t473 14571 > +t472+t471+t470+t469+t468+t467+t466+t465+t464+t463+t462 14572 ? +t461+t460+t459+t457+t456+t455+t454+t453+t452+t451+t450 14573 @ +t449+t448+t446+t441+t440+t439+t438+t437+t436+t435+t434 14574 1 +t433+8.072185179299687d-2*t125*t131*t132*t133*t188-2.6 14575 2 513779981040353d-1*t125*t127*t128*t129*t186)-5.74156498 14576 3 9074922d+0*t149*t151*t69*t86*t89-1.794239059085913d-1*t 14577 4 356*t64*t65*t86*t89+1.4353912472687305d+0*t151*t183*t65 14578 5 *t86*t89+1.4353912472687305d+0*t149*t183*t64*t86*t89-6. 14579 6 098959173956384d-2*t151*t160*t69*t89+1.524739793489096d 14580 7 -2*t160*t183*t64*t89-4.616786522235687d+1*t135*t136*t13 14581 8 7*t151*t65*t69*t86+1.1541966305589217d+1*t135*t136*t137 14582 9 *t183*t64*t65*t86+5.92548939650423d-2*t364*t80*t84-2.72 14583 : 627785648927d-3*t125*t188*t84-3.5089341735807883d+0*t13 14584 ; 1*t132*t133*t188*t80-1.865442d-1*t361*t62*t78+1.6486639 14585 < 585130625d-2*t125*t186*t78+6.0d+0*t127*t128*t129*t186*t 14586 = 62-rhob*t541+t431+t430+t429+t428+t427+t426+t425+t424+t4 14587 > 23+t422+t421+t420+t419+t418+t417+t416+t415+t414-3.0d+0* 14588 ? t171*t173*t25*t338+6.0d+0*t171*t25*t335*t337-9.64918769 14589 @ 9215522d+1*t25*t334*t335*t336-3.3306690738754696d-16*t1 14590 1 65*t170*t29*t333+1.2202564577405706d-18*t28*t331+5.2841 14591 2 59572535705d-3*t24*t331+6.661338147750939d-16*t165*t29* 14592 3 t327*t329-5.356375176299456d-15*t29*t326*t327*t328+2.54 14593 4 9392377400174d-1*t167*t171*t172*t173+2.943620900479655d 14594 5 -17*t165*t167*t169*t170)+3.0d+0*t180*t372+3.0d+0*t191*t 14595 6 347)+t177*(3.04966d-52*t347*t91+6.09932d-52*t373+3.0496 14596 7 6d-52*t104*t372+6.09932d-52*t180*t191)*t97+t343*(-8.132 14597 8 426666666666d-52*t180*t91-8.132426666666666d-52*t104*t1 14598 9 91)*t97+2.981889777777777d-51*t104*t546*t91*t97-2.66666 14599 : 66666666666d+0*t343*t374*t97+t121*t342*(1.86008522312d- 14600 ; 103*t180*t91+6.09932d-52*t374+1.86008522312d-103*t104*t 14601 < 191)-1.4880681784959998d-102*t104*t121*t545*t91+1.70178 14602 = 82504620416d-154*t104*t226*t544*t91+t4*(5.0d-1*rhob*t30 14603 > *(-6.518518518518518d-49*t546*t6*t7*t9-6.51851851851851 14604 ? 8d-49*t15*t546*t7*t9+5.036415999999999d-51*t13*t546*t7* 14605 @ t9+1.0988544d-99*t175*t545*t6*t9-3.1837877729279995d-15 14606 1 1*t340*t544*t6*t9+1.50176768d-99*t15*t175*t545*t9-4.245 14607 2 0503639039994d-102*t13*t175*t545*t9-8.277848209612798d- 14608 3 151*t15*t340*t544*t9+8.199654381909687d-154*t13*t340*t5 14609 4 44*t9+1.31194470110555d-202*t15*t542*t543*t9-1.77777777 14610 5 77777776d-98*t545*t6*t7-4.8592592592592593d-98*t15*t545 14611 6 *t7+7.508838399999999d-100*t14*t545*t7+2.74713599999999 14612 7 95d-100*t13*t545*t7-1.2325925925925926d-97*t11*t545*t7+ 14613 8 1.0072832d-50*t10*t175*t546*t6-1.2735151091711996d-101* 14614 9 t10*t340*t545*t6+3.279861752763875d-153*t10*t542*t544*t 14615 : 6+6.86784d-150*t175*t544*t6-6.518518518518518d-49*t14*t 14616 ; 4*t546-3.259259259259259d-49*t13*t4*t546+3.571276799999 14617 < 9995d-149*t15*t175*t544-2.7592827365375994d-151*t14*t17 14618 = 5*t544-5.30631295488d-152*t13*t175*t544+1.314962432d-14 14619 > 8*t11*t175*t544-6.367575545855999d-201*t15*t340*t543+3. 14620 ? 2798617527638746d-203*t14*t340*t543-4.58465439301632d-2 14621 @ 00*t11*t340*t543+5.2477788044222d-252*t11*t542/rhob**1. 14622 1 1333333333333334d+1)+5.0d-1*rhob*t16*t541+1.5d+0*t30*t3 14623 2 44+1.5d+0*rhob*t174*t344+1.5d+0*rhob*t178*t339+1.5d+0*t 14624 3 16*t339+3.0d+0*t174*t178)-2.6666666666666666d+0*t343*t3 14625 4 46*t7+t177*(1.030176d-51*t345-4.2923999999999995d-52*t1 14626 5 78*t30-4.2923999999999995d-52*t16*t174)*t7+t1*(2.57544d 14627 6 -52*t30*t344+2.57544d-52*t16*t339+5.15088d-52*t174*t178 14628 7 )*t7-1.6666666666666669d+0*t177*t325*t7+t175*t342*(1.03 14629 8 0176d-51*t346-1.1497011402239997d-102*t16*t30)+4.099827 14630 9 1909548434d-154*t16*t30*t340*t341+t175*t176*(1.030176d- 14631 : 51*t325+2.6531564774399996d-103*t178*t30+2.653156477439 14632 ; 9996d-103*t16*t174))*wght+Amat3(iq,D3_RB_RB_RB) 14633 Cmat3(iq,D3_RA_RA_GAA) = (t93*(1.0d+0*t91*(-7.440340892480 14634 1 001d-4*t100*t106*t226*t55*t99*taua-3.252970666666667d-1 14635 2 *t100*t108*t121*t99*taua+2.6666666666666666d+1*t108*t97 14636 3 *t98*taua-3.7201704462400004d-4*t106*t226*t55*t95*t98*t 14637 4 aua-1.6264853333333334d-1*t108*t121*t95*t98*taua+4.0662 14638 5 13333333334d-2*t106*t121*t55*t98*taua-1.084323555555555 14639 6 7d-1*gammaaa*t121*t376*t98*taua-8.132426666666668d-2*t1 14640 7 03*t108*t97*taua-1.2400568154133336d-4*t103*t106*t121*t 14641 8 55*taua+9.777777777777779d+0*t206*t97*t98*t99-6.8071530 14642 9 01848167d-7*t202*t413*t48*t95*t98*t99+5.580255669360001 14643 : d-5*t207*t226*t48*t95*t98*t99-2.976136356992001d-4*t105 14644 ; *t106*t226*t95*t98*t99-5.963779555555556d-2*t121*t206*t 14645 < 95*t98*t99+5.580255669360001d-5*t202*t226*t48*t98*t99-6 14646 = .09932d-3*t121*t207*t48*t98*t99-2.976136356992d-4*gamma 14647 > aa*t106*t108*t226*t98*t99-1.4638368d-1*gammaaa*t121*t20 14648 ? 8*t98*t99+3.2529706666666663d-2*t105*t106*t121*t98*t99- 14649 @ 2.981889777777778d-2*t103*t206*t97*t99-1.70178825046204 14650 1 19d-7*t103*t202*t226*t48*t99+1.86008522312d-5*t103*t121 14651 2 *t207*t48*t99-9.920454523306665d-5*t103*t105*t106*t121* 14652 3 t99+1.9555555555555557d+1*t206*t94*t95*t97-2.9818897777 14653 4 77778d-2*t102*t206*t95*t97+48*gammaaa*t208*t94*t97-3.04 14654 5 966d-3*t102*t207*t48*t97-7.319184d-2*gammaaa*t102*t208* 14655 6 t97+1.6264853333333332d-2*t102*t105*t106*t97-6.80715300 14656 7 1848167d-7*t202*t413*t48*t94*t96+5.580255669360001d-5*t 14657 8 207*t226*t48*t94*t96-2.976136356992001d-4*t105*t106*t22 14658 9 6*t94*t96-5.963779555555556d-2*t121*t206*t94*t96+1.1160 14659 : 511338720001d-4*t202*t226*t48*t94*t95-1.219864d-2*t121* 14660 ; t207*t48*t94*t95-5.952272713984d-4*gammaaa*t106*t108*t2 14661 < 26*t94*t95-2.9276736d-1*gammaaa*t121*t208*t94*t95+6.505 14662 = 941333333333d-2*t105*t106*t121*t94*t95-1.70178825046204 14663 > 19d-7*t102*t202*t226*t48*t95+1.86008522312d-5*t102*t121 14664 ? *t207*t48*t95-9.920454523306665d-5*t102*t105*t106*t121* 14665 @ t95-8.674588444444443d-2*t121*t54*t556*t94+6.5059413333 14666 1 33333d-2*gammaaa*t106*t108*t121*t94+9.777777777777779d+ 14667 2 0*t102*t206*t93-6.807153001848167d-7*t100*t101*t202*t41 14668 3 3*t48+5.580255669360001d-5*t100*t101*t207*t226*t48+1.86 14669 4 008522312d-5*t102*t121*t202*t48-2.976136356992001d-4*t1 14670 5 00*t101*t105*t106*t226-5.963779555555556d-2*t100*t101*t 14671 6 121*t206-1.3554044444444446d-1*t100*t121*t193*t199-9.92 14672 7 0454523306665d-5*gammaaa*t102*t106*t108*t121)+2.0d+0*t1 14673 8 63*t380+1.0d+0*t195*t308)+t53*(1.0d+0*rhoa*t44*t47*(-2. 14674 9 122525181952d-3*t106*t205*t55*t57*t6*taua-5.494272d-1*t 14675 : 107*t108*t57*t6*taua+2.6666666666666666d+1*t108*t15*t56 14676 ; *taua-1.373568d-1*t108*t13*t56*taua+6.867840000000001d- 14677 < 2*t106*t107*t15*t55*taua-3.53754196992d-4*t106*t107*t13 14678 = *t55*taua-4.57856d-1*gammaaa*t107*t15*t376*taua-1.06126 14679 > 2590976d-3*gammaaa*t106*t15*t193*t205*taua-3.2798617527 14680 ? 638757d-6*t202*t404*t48*t58*t6+1.591893886464d-4*t205*t 14681 @ 207*t48*t58*t6-1.0072832000000001d-1*t107*t206*t58*t6-8 14682 1 .490100727808d-4*t105*t106*t205*t58*t6-2.28928000000000 14683 2 02d-1*t107*t193*t199*t6+9.777777777777779d+0*t15*t206*t 14684 3 56*t57-5.036416d-2*t13*t206*t56*t57-3.2798617527638757d 14685 4 -6*gammaaa*t15*t202*t404*t55*t57+1.591893886464d-4*gamm 14686 5 aaa*t15*t205*t207*t55*t57-1.030176d-2*t107*t15*t207*t48 14687 6 *t57+5.30631295488d-5*t107*t13*t207*t48*t57+1.591893886 14688 7 464d-4*t15*t202*t205*t48*t57-8.199654381909689d-7*t13*t 14689 8 202*t205*t48*t57-3.4797056000000004d-1*gammaaa*t107*t15 14690 9 *t208*t57-1.6980201455616d-3*gammaaa*t106*t108*t15*t205 14691 : *t57+5.494272d-2*t105*t106*t107*t15*t57-2.830033575936d 14692 ; -4*t105*t106*t107*t13*t57-5.15088d-3*t14*t207*t48*t56-1 14693 < .7398528000000002d-1*gammaaa*t14*t208*t56+6.75555555555 14694 = 5556d+1*gammaaa*t11*t208*t56+2.747136d-2*t105*t106*t14* 14695 > t56-7.4172672d-1*t107*t11*t54*t556+5.30631295488d-5*gam 14696 ? maaa*t107*t14*t207*t55-2.060352d-2*gammaaa*t107*t11*t20 14697 @ 7*t55-8.199654381909689d-7*gammaaa*t14*t202*t205*t55+3. 14698 1 183787772928d-4*gammaaa*t11*t202*t205*t55-3.27986175276 14699 2 38757d-6*t11*t193*t202*t404*t54-2.5470302183424004d-3*t 14700 3 106*t11*t205*t376*t54+1.591893886464d-4*t11*t193*t205*t 14701 4 207*t54+9.777777777777779d+0*t14*t206*t53+5.30631295488 14702 5 d-5*t107*t14*t202*t48-5.660067151872d-4*gammaaa*t106*t1 14703 6 07*t108*t14+2.1977088d-1*gammaaa*t106*t107*t108*t11)-1. 14704 7 25d-1*t119*t45*t46*t59+1.25d-1*t203*t44*t46*t59-1.25d-1 14705 8 *t223*t46*t59+2.0d+0*t377*t44*t47+2.0d+0*rhoa*t119*t377 14706 9 *t47+1.0d+0*rhoa*t194*t223*t47+2.0d+0*t119*t194*t47+1.2 14707 : 5d-1*gammaaa*t377*t44*t45*t46-1.25d-1*t109*t44*t45*t46+ 14708 ; 1.25d-1*gammaaa*t119*t194*t45*t46-1.25d-1*t209*t44*t46+ 14709 < 1.25d-1*gammaaa*t194*t203*t44*t46-2.5d-1*t109*t119*t46) 14710 = +(-3.04966d-3*t106*t380*t91-3.04966d-3*t195*t207*t91-2. 14711 > 981889777777778d-2*t104*t206*t91+8.132426666666667d-3*t 14712 ? 105*t122*t91-3.04966d-3*t106*t381-3.04966d-3*t106*t163* 14713 @ t195+8.132426666666667d-3*t105*t164+8.132426666666667d- 14714 1 3*t104*t105*t163)*t97-3.04966d-3*t309*t48*t97-1.7017882 14715 2 504620419d-7*t104*t202*t226*t48*t91+1.86008522312d-5*t1 14716 3 21*t195*t202*t91-9.920454523306665d-5*t104*t105*t106*t1 14717 4 21*t91+t56*(1.373568d-2*t119*t47*t48*t59-3.662848000000 14718 5 001d-2*t105*t44*t47*t59+6.4386d-4*t106*t44*t45*t46*t59+ 14719 6 6.4386d-4*t207*t44*t46*t59+6.4386d-4*t106*t119*t46*t59+ 14720 7 1.373568d-2*t109*t44*t47*t48-5.15088d-3*rhoa*t106*t377* 14721 8 t44*t47-5.15088d-3*rhoa*t194*t207*t44*t47-5.15088d-3*t1 14722 9 06*t194*t44*t47-5.15088d-3*rhoa*t106*t119*t194*t47+6.43 14723 : 86d-4*t106*t109*t44*t46-5.15088d-3*t106*t378+1.373568d- 14724 ; 2*t105*t120)+t107*t48*(-2.830033575936d-4*t106*t44*t47* 14725 < t59-1.030176d-2*t225)+t45*t46*t56*(-1.28772d-3*t106*t44 14726 = *t59-1.28772d-3*gammaaa*t106*t194*t44)+t45*t46*t53*(1.2 14727 > 5d-1*t119*t59+1.25d-1*gammaaa*t377*t44+1.25d-1*t109*t44 14728 ? +1.25d-1*gammaaa*t119*t194)+4.07778d-3*gammaaa*t206*t44 14729 @ *t46*t56*t59-8.199654381909689d-7*t202*t205*t44*t47*t50 14730 1 *t59-6.6328911936d-6*t107*t202*t44*t46*t59+1.3265782387 14731 2 2d-5*gammaaa*t105*t106*t107*t44*t46*t59-5.15088d-3*t224 14732 3 *t48*t56-5.15088d-3*t105*t204*t46*t56+t203*t46*t53*t555 14733 4 -6.09932d-3*t121*t310*t48+5.30631295488d-5*rhoa*t107*t1 14734 5 94*t202*t44*t47)*wght+Cmat3(iq,D3_RA_RA_GAA) 14735 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 14736 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 14737 Cmat3(iq,D3_RA_RB_GAA) = (t93*(1.0d+0*t91*(3.7201704462400 14738 1 004d-53*t100*t177*t226*t55*t99*taua+1.8600852231200002d 14739 2 -53*t177*t226*t55*t95*t98*taua-3.388511111111111d-51*t1 14740 3 21*t177*t55*t98*taua+6.200284077066668d-54*t103*t121*t1 14741 4 77*t55*taua-1.3554044444444444d-51*t100*t121*t177*t55*t 14742 5 aua+6.807153001848167d-56*t106*t177*t413*t48*t95*t98*t9 14743 6 9+1.4880681784959998d-53*t105*t177*t226*t95*t98*t99-9.3 14744 7 004261156d-54*t106*t177*t226*t48*t98*t99+1.488068178495 14745 8 9998d-53*gammaaa*t108*t177*t226*t98*t99-2.7108088888888 14746 9 887d-51*t105*t121*t177*t98*t99+1.7017882504620419d-56*t 14747 : 103*t106*t177*t226*t48*t99-3.7201704462400004d-54*t100* 14748 ; t106*t177*t226*t48*t99+4.9602272616533327d-54*t103*t105 14749 < *t121*t177*t99-1.0843235555555555d-51*t100*t105*t121*t1 14750 = 77*t99+8.888888888888888d-50*t105*t177*t97*t98-1.860085 14751 > 2231200002d-54*t106*t177*t226*t48*t95*t98-5.42161777777 14752 ? 7777d-52*t105*t121*t177*t95*t98+2.0331066666666667d-52* 14753 @ t106*t121*t177*t48*t98-5.421617777777777d-52*gammaaa*t1 14754 1 08*t121*t177*t98+3.555555555555555d-49*t105*t177*t94*t9 14755 2 7-2.7108088888888887d-52*t103*t105*t177*t97-1.355404444 14756 3 4444444d-51*t102*t105*t177*t97+6.807153001848167d-56*t1 14757 4 06*t177*t413*t48*t94*t96+1.4880681784959998d-53*t105*t1 14758 5 77*t226*t94*t96-1.8600852231200002d-53*t106*t177*t226*t 14759 6 48*t94*t95+2.9761363569919996d-53*gammaaa*t108*t177*t22 14760 7 6*t94*t95-5.421617777777777d-51*t105*t121*t177*t94*t95+ 14761 8 1.7017882504620419d-56*t102*t106*t177*t226*t48*t95+4.96 14762 9 02272616533327d-54*t102*t105*t121*t177*t95+8.1324266666 14763 : 66667d-52*t106*t121*t177*t48*t94-5.421617777777777d-51* 14764 ; gammaaa*t108*t121*t177*t94+6.807153001848167d-56*t100*t 14765 < 101*t106*t177*t413*t48-6.200284077066667d-55*t103*t106* 14766 = t121*t177*t48-3.1001420385333334d-54*t102*t106*t121*t17 14767 > 7*t48+1.4880681784959998d-53*t100*t101*t105*t177*t226+4 14768 ? .9602272616533327d-54*gammaaa*t102*t108*t121*t177)+1.0d 14769 @ +0*t163*t382+1.0d+0*t191*t380+1.0d+0*t195*t322)+(-3.049 14770 1 66d-3*t106*t382*t91+8.132426666666667d-3*t105*t180*t91- 14771 2 3.04966d-3*t106*t191*t195+8.132426666666667d-3*t104*t10 14772 3 5*t191)*t97-3.04966d-3*t323*t48*t97+3.04966d-52*t177*t3 14773 4 81*t97+1.7017882504620419d-56*t104*t106*t177*t226*t48*t 14774 5 91-1.86008522312d-54*t106*t121*t177*t195*t91+4.96022726 14775 6 16533327d-54*t104*t105*t121*t177*t91-6.09932d-3*t121*t3 14776 7 24*t48-1.86008522312d-54*t121*t164*t177*t48)*wght+Cmat3 14777 8 (iq,D3_RA_RB_GAA) 14778 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 14779 Cmat3(iq,D3_RA_RB_GBB) = Cmat3(iq,D3_RA_RB_GBB) 14780 Cmat3(iq,D3_RB_RB_GAA) = (t93*(1.0d+0*t91*(-6.807153001848 14781 1 166d-105*t342*t413*t48*t95*t98*t99+1.4880681784959998d- 14782 2 53*t226*t343*t48*t95*t98*t99-2.7108088888888887d-51*t12 14783 3 1*t343*t48*t98*t99+1.302059656184d-102*t226*t342*t48*t9 14784 4 8*t99+4.9602272616533327d-54*t103*t121*t343*t48*t99-1.0 14785 5 843235555555554d-51*t100*t121*t343*t48*t99-1.7017882504 14786 6 620419d-105*t103*t226*t342*t48*t99+7.440340892480001d-1 14787 7 03*t100*t226*t342*t48*t99+8.888888888888888d-50*t343*t4 14788 8 8*t97*t98-5.421617777777777d-52*t121*t343*t48*t95*t98+3 14789 9 .7201704462400004d-103*t226*t342*t48*t95*t98-6.77702222 14790 : 2222223d-101*t121*t342*t48*t98+3.555555555555555d-49*t3 14791 ; 43*t48*t94*t97-2.7108088888888887d-52*t103*t343*t48*t97 14792 < -1.3554044444444444d-51*t102*t343*t48*t97-6.80715300184 14793 = 8166d-105*t342*t413*t48*t94*t96+1.4880681784959998d-53* 14794 > t226*t343*t48*t94*t96-5.421617777777777d-51*t121*t343*t 14795 ? 48*t94*t95+2.604119312368d-102*t226*t342*t48*t94*t95+4. 14796 @ 9602272616533327d-54*t102*t121*t343*t48*t95-1.701788250 14797 1 4620419d-105*t102*t226*t342*t48*t95-2.168647111111111d- 14798 2 100*t121*t342*t48*t94-6.807153001848166d-105*t100*t101* 14799 3 t342*t413*t48+1.4880681784959998d-53*t100*t101*t226*t34 14800 4 3*t48+1.2400568154133333d-103*t103*t121*t342*t48+4.3401 14801 5 98853946667d-103*t102*t121*t342*t48-1.3554044444444444d 14802 6 -101*t100*t121*t342*t48)+2.0d+0*t191*t382+1.0d+0*t195*t 14803 7 372)+t177*(3.04966d-52*t382*t91+3.04966d-52*t383+3.0496 14804 8 6d-52*t191*t195)*t97-8.132426666666666d-52*t195*t343*t9 14805 9 1*t97-3.04966d-3*t373*t48*t97+4.9602272616533327d-54*t1 14806 : 04*t121*t343*t48*t91-1.7017882504620419d-105*t104*t226* 14807 ; t342*t48*t91+1.86008522312d-103*t121*t195*t342*t91-6.09 14808 < 932d-3*t121*t177*t374*t48)*wght+Cmat3(iq,D3_RB_RB_GAA) 14809 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 14810 Cmat3(iq,D3_RB_RB_GBB) = Cmat3(iq,D3_RB_RB_GBB) 14811 Cmat3(iq,D3_RA_GAA_GAA) = (t93*(1.0d+0*t91*(-3.72017044624 14812 1 00004d-4*t100*t193*t226*t99*taua-1.8600852231200002d-4* 14813 2 t193*t226*t95*t98*taua+4.066213333333334d-2*t121*t193*t 14814 3 98*taua-6.200284077066668d-5*t103*t121*t193*taua-6.8071 14815 4 53001848167d-7*t106*t413*t55*t95*t98*t99-2.976136356992 14816 5 001d-4*t108*t226*t95*t98*t99+1.1160511338720001d-4*t106 14817 6 *t226*t55*t98*t99-1.488068178496d-4*gammaaa*t226*t376*t 14818 7 98*t99+6.505941333333333d-2*t108*t121*t98*t99-1.7017882 14819 8 504620419d-7*t103*t106*t226*t55*t99-9.920454523306665d- 14820 9 5*t103*t108*t121*t99-1.0666666666666666d+1*t108*t94*t97 14821 : +3.2529706666666663d-2*t102*t108*t97-6.807153001848167d 14822 ; -7*t106*t413*t55*t94*t96-2.976136356992001d-4*t108*t226 14823 < *t94*t96+2.2321022677440003d-4*t106*t226*t55*t94*t95-2. 14824 = 976136356992d-4*gammaaa*t226*t376*t94*t95+1.30118826666 14825 > 66666d-1*t108*t121*t94*t95-1.7017882504620419d-7*t102*t 14826 ? 106*t226*t55*t95-9.920454523306665d-5*t102*t108*t121*t9 14827 @ 5-1.219864d-2*t106*t121*t55*t94+6.505941333333333d-2*ga 14828 1 mmaaa*t121*t376*t94-6.807153001848167d-7*t100*t101*t106 14829 2 *t413*t55+3.72017044624d-5*t102*t106*t121*t55-4.9602272 14830 3 616533327d-5*gammaaa*t102*t121*t376-2.976136356992001d- 14831 4 4*t100*t101*t108*t226)+1.0d+0*t163*t386)+t53*(1.0d+0*rh 14832 5 oa*t44*t47*(-1.061262590976d-3*t193*t205*t57*t6*taua-5. 14833 6 30631295488d-4*gammaaa*t15*t205*t384*taua+6.86784000000 14834 7 0001d-2*t107*t15*t193*taua-1.76877098496d-4*t107*t13*t1 14835 8 93*taua-3.2798617527638757d-6*t106*t404*t55*t58*t6-8.49 14836 9 0100727808d-4*t108*t205*t58*t6+3.183787772928d-4*t106*t 14837 : 15*t205*t55*t57-8.199654381909689d-7*t106*t13*t205*t55* 14838 ; t57-3.2798617527638757d-6*gammaaa*t106*t15*t193*t404*t5 14839 < 7-1.2735151091712002d-3*gammaaa*t15*t205*t376*t57+1.098 14840 = 8544d-1*t107*t108*t15*t57-2.830033575936d-4*t107*t108*t 14841 > 13*t57+5.494272d-2*t108*t14*t56-1.0666666666666666d+1*t 14842 ? 108*t11*t56+1.061262590976d-4*t106*t107*t14*t55-2.06035 14843 @ 2d-2*t106*t107*t11*t55-3.2798617527638757d-6*t106*t11*t 14844 1 384*t404*t54-1.6980201455616d-3*t11*t205*t54/rhoa**1.16 14845 2 66666666666665d+1-4.245050363904d-4*gammaaa*t107*t14*t3 14846 3 76+3.2965632d-1*gammaaa*t107*t11*t376-8.199654381909689 14847 4 d-7*gammaaa*t106*t14*t193*t205+6.367575545856d-4*gammaa 14848 5 a*t106*t11*t193*t205)+1.0d+0*t385*t44*t47+1.0d+0*rhoa*t 14849 6 119*t385*t47-2.5d-1*t194*t44*t45*t46-2.5d-1*t377*t44*t4 14850 7 6-2.5d-1*t119*t194*t46)-3.04966d-3*t106*t386*t91*t97+1. 14851 8 6264853333333332d-2*t105*t195*t91*t97-6.09932d-3*t381*t 14852 9 48*t97-1.7017882504620419d-7*t104*t106*t226*t55*t91+3.7 14853 : 2017044624d-5*t106*t121*t195*t48*t91-9.920454523306665d 14854 ; -5*t104*t108*t121*t91+t107*t55*(-1.415016787968d-4*t44* 14855 < t47*t59-1.030176d-2*t379)+t48*t56*(-1.7169600000000002d 14856 = -3*t44*t45*t46*t59+t558+2.747136d-2*t194*t44*t47)+t105* 14857 > t46*t56*(-2.3608200000000001d-3*t44*t59-6.4386d-4*gamma 14858 ? aa*t194*t44-5.15088d-3*t375)-1.32657823872d-5*t106*t107 14859 @ *t44*t46*t48*t59-8.199654381909689d-7*t106*t197*t205*t4 14860 1 4*t47*t59+6.6328911936d-6*gammaaa*t107*t108*t44*t46*t59 14861 2 -5.15088d-3*rhoa*t106*t385*t44*t47*t56+1.28772d-3*t106* 14862 3 t194*t44*t46*t56+t45*t46*t53*t557+1.86008522312d-5*t121 14863 4 *t164*t55+1.061262590976d-4*t106*t107*t194*t44*t47*t50) 14864 5 *wght+Cmat3(iq,D3_RA_GAA_GAA) 14865 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 14866 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 14867 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 14868 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 14869 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 14870 Cmat3(iq,D3_RB_GAA_GAA) = (t93*(1.0d+0*t91*(6.807153001848 14871 1 169d-56*t177*t413*t55*t95*t98*t99-1.488068178496d-53*t1 14872 2 77*t226*t55*t98*t99+1.7017882504620419d-56*t103*t177*t2 14873 3 26*t55*t99-3.7201704462400004d-54*t100*t177*t226*t55*t9 14874 4 9-1.8600852231200002d-54*t177*t226*t55*t95*t98+4.066213 14875 5 3333333333d-52*t121*t177*t55*t98+6.807153001848169d-56* 14876 6 t177*t413*t55*t94*t96-2.976136356992d-53*t177*t226*t55* 14877 7 t94*t95+1.7017882504620419d-56*t102*t177*t226*t55*t95+2 14878 8 .8463493333333334d-51*t121*t177*t55*t94+6.8071530018481 14879 9 69d-56*t100*t101*t177*t413*t55-6.200284077066667d-55*t1 14880 : 03*t121*t177*t55-4.960227261653333d-54*t102*t121*t177*t 14881 ; 55)+1.0d+0*t191*t386)+3.04966d-52*t177*t386*t91*t97-6.0 14882 < 9932d-3*t383*t48*t97+1.7017882504620419d-56*t104*t177*t 14883 = 226*t55*t91-3.72017044624d-54*t121*t177*t195*t48*t91+1. 14884 > 86008522312d-5*t121*t192*t55)*wght+Cmat3(iq,D3_RB_GAA_G 14885 ? AA) 14886 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 14887 Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB) 14888 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 14889 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 14890 Cmat3(iq,D3_RB_GBB_GBB) = Cmat3(iq,D3_RB_GBB_GBB) 14891 Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*t91*t93*(-6.80715300184 14892 1 8167d-7*t193*t413*t95*t98*t99+1.6740767008080004d-4*t19 14893 2 3*t226*t98*t99-1.7017882504620419d-7*t103*t193*t226*t99 14894 3 -6.807153001848167d-7*t193*t413*t94*t96+3.3481534016160 14895 4 01d-4*t193*t226*t94*t95-1.7017882504620419d-7*t102*t193 14896 5 *t226*t95-3.6595920000000004d-2*t121*t193*t94-6.8071530 14897 6 01848167d-7*t100*t101*t193*t413+5.580255669359999d-5*t1 14898 7 02*t121*t193)-9.148980000000001d-3*t386*t48*t91*t97+5.5 14899 8 80255669359999d-5*t121*t195*t55*t91-1.7017882504620419d 14900 9 -7*t104*t193*t226*t91+1.0d+0*rhoa*t44*t47*t53*(-3.27986 14901 : 17527638757d-6*t193*t404*t58*t6-3.2798617527638757d-6*g 14902 ; ammaaa*t15*t384*t404*t57+4.7756816593920004d-4*t15*t193 14903 < *t205*t57-8.199654381909689d-7*t13*t193*t205*t57-3.2798 14904 = 617527638757d-6*t11*t404*t54/rhoa**1.3333333333333333d+ 14905 > 1-8.199654381909689d-7*gammaaa*t14*t205*t384+9.55136331 14906 ? 8784001d-4*gammaaa*t11*t205*t384+1.591893886464d-4*t107 14907 @ *t14*t193-6.181056d-2*t107*t11*t193)-1.9898673580800003 14908 1 d-5*t107*t44*t46*t55*t59-8.199654381909689d-7*t196*t205 14909 2 *t44*t47*t59-1.545264d-2*t385*t44*t47*t50*t56+3.86316d- 14910 3 3*t194*t44*t46*t48*t56-3.75d-1*t385*t44*t46*t53+1.59189 14911 4 3886464d-4*t107*t194*t197*t44*t47)*wght+Cmat3(iq,D3_GAA 14912 5 _GAA_GAA) 14913 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 14914 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 14915 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 14916 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 14917 Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB) 14918 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 14919 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 14920 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 14921 Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB) 14922 Mmat3(iq,D3_RA_RA_TA) = (t93*(1.0d+0*t91*(-4.8794560000000 14923 1 01d-1*t100*t121*t55*t99*taua-1.4880681784960004d-3*t100 14924 2 *t106*t197*t226*t99*taua-2.4397280000000005d-1*t121*t55 14925 3 *t95*t98*taua-7.440340892480001d-4*t106*t197*t226*t95*t 14926 4 98*taua-2.1686471111111114d-1*gammaaa*t121*t193*t98*tau 14927 5 a-1.2198640000000002d-1*t103*t55*t97*taua+8.0d+1*t100*t 14928 6 55*t97*taua-2.4801136308266672d-4*t103*t106*t121*t197*t 14929 7 aua+1.6264853333333334d-1*t100*t106*t121*t197*taua-1.36 14930 8 14306003696336d-6*t202*t413*t50*t95*t98*t99+1.116051133 14931 9 8720001d-4*t207*t226*t50*t95*t98*t99-3.7201704462400004 14932 : d-4*t106*t226*t48*t95*t98*t99-5.421617777777779d-2*t105 14933 ; *t121*t95*t98*t99-5.952272713984d-4*gammaaa*t106*t226*t 14934 < 55*t98*t99-2.2770794666666666d-1*gammaaa*t108*t121*t98* 14935 = t99-2.710808888888889d-2*t103*t105*t97*t99+1.7777777777 14936 > 777778d+1*t100*t105*t97*t99-3.4035765009240837d-7*t103* 14937 ? t202*t226*t50*t99+2.2321022677440003d-4*t100*t202*t226* 14938 @ t50*t99+3.72017044624d-5*t103*t121*t207*t50*t99-2.43972 14939 1 8d-2*t100*t121*t207*t50*t99-1.2400568154133333d-4*t103* 14940 2 t106*t121*t48*t99+8.132426666666668d-2*t100*t106*t121*t 14941 3 48*t99+8.88888888888889d+0*t105*t95*t97*t98+3.733333333 14942 4 3333335d+1*gammaaa*t108*t97*t98+1.1160511338720001d-4*t 14943 5 202*t226*t50*t95*t98-1.219864d-2*t121*t207*t50*t95*t98+ 14944 6 4.066213333333334d-2*t106*t121*t48*t95*t98+6.5059413333 14945 7 33333d-2*gammaaa*t106*t121*t55*t98-2.710808888888889d-2 14946 8 *t102*t105*t95*t97-6.09932d-3*t103*t207*t50*t97+2.03310 14947 9 6666666667d-2*t103*t106*t48*t97-1.1385397333333333d-1*g 14948 : ammaaa*t102*t108*t97-1.3614306003696336d-6*t202*t413*t5 14949 ; 0*t94*t96+1.1160511338720001d-4*t207*t226*t50*t94*t96-3 14950 < .7201704462400004d-4*t106*t226*t48*t94*t96-5.4216177777 14951 = 77779d-2*t105*t121*t94*t96-1.1904545427968d-3*gammaaa*t 14952 > 106*t226*t55*t94*t95-4.554158933333333d-1*gammaaa*t108* 14953 ? t121*t94*t95-3.4035765009240837d-7*t102*t202*t226*t50*t 14954 @ 95+3.72017044624d-5*t102*t121*t207*t50*t95-1.2400568154 14955 1 133333d-4*t102*t106*t121*t48*t95-1.7349176888888887d-1* 14956 2 t121*t376*t54*t94+8.88888888888889d+0*t103*t105*t93-1.9 14957 3 84090904661333d-4*gammaaa*t102*t106*t121*t55-1.36143060 14958 4 03696336d-6*t100*t101*t202*t413*t50+1.1160511338720001d 14959 5 -4*t100*t101*t207*t226*t50+3.72017044624d-5*t103*t121*t 14960 6 202*t50-3.7201704462400004d-4*t100*t101*t106*t226*t48-2 14961 7 .710808888888889d-1*t100*t121*t196*t199-5.4216177777777 14962 8 79d-2*t100*t101*t105*t121)+2.0d+0*t163*t389+1.0d+0*t201 14963 9 *t308)+t53*(1.0d+0*rhoa*t44*t47*(-8.241408000000001d-1* 14964 : t107*t55*t57*t6*taua-4.245050363904d-3*t106*t197*t205*t 14965 ; 57*t6*taua+8.0d+1*t55*t56*t6*taua+2.747136d-1*t106*t107 14966 < *t197*t6*taua-2.0603520000000003d-1*t13*t55*t56*taua-2. 14967 = 122525181952d-3*gammaaa*t106*t15*t196*t205*taua-7.07508 14968 > 393984d-4*t106*t107*t13*t197*taua-7.783552d-1*gammaaa*t 14969 ? 107*t15*t193*taua-6.559723505527751d-6*t202*t404*t50*t5 14970 @ 8*t6+3.183787772928d-4*t205*t207*t50*t58*t6-1.061262590 14971 1 9760003d-3*t106*t205*t48*t58*t6-9.157120000000001d-2*t1 14972 2 05*t107*t58*t6+1.7777777777777778d+1*t105*t56*t57*t6-4. 14973 3 120704d-2*t107*t207*t50*t57*t6+6.367575545856d-4*t202*t 14974 4 205*t50*t57*t6+1.373568d-1*t106*t107*t48*t57*t6-4.57856 14975 5 00000000004d-1*t107*t196*t199*t6-4.5785600000000004d-2* 14976 6 t105*t13*t56*t57-2.7592827365376d-3*gammaaa*t106*t15*t2 14977 7 05*t55*t57+1.061262590976d-4*t107*t13*t207*t50*t57-1.63 14978 8 99308763819376d-6*t13*t202*t205*t50*t57-3.5375419699200 14979 9 006d-4*t106*t107*t13*t48*t57-6.559723505527751d-6*gamma 14980 : aa*t15*t197*t202*t404*t57+3.183787772928d-4*gammaaa*t15 14981 ; *t197*t205*t207*t57-4.7617024d-1*gammaaa*t107*t108*t15* 14982 < t57-1.030176d-2*t13*t207*t50*t56+3.4339200000000003d-2* 14983 = t106*t13*t48*t56+4.622222222222223d+1*gammaaa*t108*t15* 14984 > t56-2.3808512d-1*gammaaa*t108*t14*t56+1.7856384d-1*gamm 14985 ? aaa*t106*t107*t15*t55-9.197609121792001d-4*gammaaa*t106 14986 @ *t107*t14*t55-6.559723505527751d-6*t11*t196*t202*t404*t 14987 1 54-1.1537971200000001d+0*t107*t11*t376*t54+3.1837877729 14988 2 28d-4*t11*t196*t205*t207*t54-4.4573028820992006d-3*t106 14989 3 *t11*t193*t205*t54+8.88888888888889d+0*t105*t13*t53+1.0 14990 4 61262590976d-4*t107*t13*t202*t50-2.060352d-2*gammaaa*t1 14991 5 07*t15*t197*t207+1.061262590976d-4*gammaaa*t107*t14*t19 14992 6 7*t207+3.183787772928d-4*gammaaa*t15*t197*t202*t205-1.6 14993 7 399308763819376d-6*gammaaa*t14*t197*t202*t205)+1.25d-1* 14994 8 gammaaa*t119*t200*t45*t59-1.25d-1*gammaaa*t200*t203*t44 14995 9 *t59+1.25d-1*gammaaa*t200*t223*t59+2.0d+0*t387*t44*t47+ 14996 : 2.0d+0*rhoa*t119*t387*t47+1.0d+0*rhoa*t198*t223*t47+2.0 14997 ; d+0*t119*t198*t47+1.25d-1*gammaaa*t387*t44*t45*t46+1.25 14998 < d-1*gammaaa*t119*t198*t45*t46+1.25d-1*gammaaa*t198*t203 14999 = *t44*t46+1.25d-1*gammaaa*t109*t200*t44*t45+1.25d-1*gamm 15000 > aaa*t200*t209*t44+2.5d-1*gammaaa*t109*t119*t200)+(1.016 15001 ? 5533333333335d-2*t122*t48*t91-3.04966d-3*t106*t389*t91- 15002 @ 3.04966d-3*t201*t207*t91-2.710808888888889d-2*t104*t105 15003 1 *t91+1.0165533333333335d-2*t164*t48+1.0165533333333335d 15004 2 -2*t104*t163*t48-3.04966d-3*t106*t390-3.04966d-3*t106*t 15005 3 163*t201)*t97-6.09932d-3*t309*t50*t97-3.403576500924083 15006 4 7d-7*t104*t202*t226*t50*t91-1.2400568154133333d-4*t104* 15007 5 t106*t121*t48*t91+1.86008522312d-5*t121*t201*t202*t91+t 15008 6 56*(1.7169600000000002d-2*t119*t47*t50*t59-2.8616d-2*t4 15009 7 4*t47*t48*t59-6.4386d-4*gammaaa*t106*t200*t44*t45*t59-6 15010 8 .4386d-4*gammaaa*t200*t207*t44*t59-6.4386d-4*gammaaa*t1 15011 9 06*t119*t200*t59+1.7169600000000002d-2*t109*t44*t47*t50 15012 : +1.7169600000000002d-2*t120*t48-5.15088d-3*rhoa*t106*t3 15013 ; 87*t44*t47-5.15088d-3*rhoa*t198*t207*t44*t47-5.15088d-3 15014 < *t106*t198*t44*t47-5.15088d-3*rhoa*t106*t119*t198*t47-6 15015 = .4386d-4*gammaaa*t106*t109*t200*t44-5.15088d-3*t106*t38 15016 > 8)+t107*t50*(-3.5375419699200006d-4*t106*t44*t47*t59-2. 15017 ? 060352d-2*t225)+t200*t45*t53*(-1.25d-1*gammaaa*t119*t59 15018 @ -1.25d-1*gammaaa*t109*t44)+5.58012d-3*gammaaa*t105*t44* 15019 1 t46*t56*t59+1.28772d-3*gammaaa*t106*t200*t44*t45*t56*t5 15020 2 9+1.25d-1*gammaaa*t200*t203*t44*t53*t59+2.65315647744d- 15021 3 5*gammaaa*t106*t107*t44*t46*t48*t59-1.6399308763819376d 15022 4 -6*t202*t205*t31*t44*t47*t59+6.6328911936d-6*gammaaa*t1 15023 5 07*t200*t202*t44*t59-1.030176d-2*t224*t50*t56-1.030176d 15024 6 -2*t204*t46*t48*t56-1.28772d-3*gammaaa*t106*t198*t44*t4 15025 7 5*t46*t56+(1.25d-1*gammaaa*t387*t44+1.25d-1*gammaaa*t11 15026 8 9*t198)*t45*t46*t53-1.25d-1*gammaaa*t198*t203*t44*t46*t 15027 9 53-1.219864d-2*t121*t310*t50+5.30631295488d-5*rhoa*t107 15028 : *t198*t202*t44*t47)*wght+Mmat3(iq,D3_RA_RA_TA) 15029 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 15030 Mmat3(iq,D3_RA_RB_TA) = (t93*(1.0d+0*t91*(7.44034089248000 15031 1 1d-53*t100*t177*t197*t226*t99*taua+3.7201704462400004d- 15032 2 53*t177*t197*t226*t95*t98*taua-2.7108088888888887d-51*t 15033 3 121*t177*t197*t98*taua+1.2400568154133336d-53*t103*t121 15034 4 *t177*t197*taua-1.0843235555555557d-50*t100*t121*t177*t 15035 5 197*taua+1.3614306003696333d-55*t106*t177*t413*t50*t95* 15036 6 t98*t99+1.8600852231200002d-53*t177*t226*t48*t95*t98*t9 15037 7 9+2.9761363569919996d-53*gammaaa*t177*t226*t55*t98*t99- 15038 8 7.440340892480001d-54*t106*t177*t226*t50*t98*t99-1.3554 15039 9 044444444446d-51*t121*t177*t48*t98*t99+3.40357650092408 15040 : 37d-56*t103*t106*t177*t226*t50*t99-2.976136356992d-53*t 15041 ; 100*t106*t177*t226*t50*t99+6.200284077066667d-54*t103*t 15042 < 121*t177*t48*t99-5.421617777777779d-51*t100*t121*t177*t 15043 = 48*t99+2.222222222222222d-49*t177*t48*t97*t98-1.4880681 15044 > 78496d-53*t106*t177*t226*t50*t95*t98-2.710808888888889d 15045 ? -51*t121*t177*t48*t95*t98-4.3372942222222216d-51*gammaa 15046 @ a*t121*t177*t55*t98+8.132426666666667d-52*t106*t121*t17 15047 1 7*t50*t98-1.3554044444444446d-51*t103*t177*t48*t97-6.77 15048 2 7022222222223d-52*t102*t177*t48*t97+2.222222222222222d- 15049 3 49*t100*t177*t48*t97+1.3614306003696333d-55*t106*t177*t 15050 4 413*t50*t94*t96+1.8600852231200002d-53*t177*t226*t48*t9 15051 5 4*t96+5.952272713983999d-53*gammaaa*t177*t226*t55*t94*t 15052 6 95-1.488068178496d-53*t106*t177*t226*t50*t94*t95-2.7108 15053 7 08888888889d-51*t121*t177*t48*t94*t95+3.403576500924083 15054 8 7d-56*t102*t106*t177*t226*t50*t95+6.200284077066667d-54 15055 9 *t102*t121*t177*t48*t95-4.3372942222222216d-51*gammaaa* 15056 : t121*t177*t55*t94+9.920454523306665d-54*gammaaa*t102*t1 15057 ; 21*t177*t55+1.3614306003696333d-55*t100*t101*t106*t177* 15058 < t413*t50-4.960227261653333d-54*t103*t106*t121*t177*t50- 15059 = 2.4801136308266666d-54*t102*t106*t121*t177*t50+8.132426 15060 > 666666667d-52*t100*t106*t121*t177*t50+1.860085223120000 15061 ? 2d-53*t100*t101*t177*t226*t48)+1.0d+0*t163*t391+1.0d+0* 15062 @ t191*t389+1.0d+0*t201*t322)+(1.0165533333333335d-2*t180 15063 1 *t48*t91-3.04966d-3*t106*t391*t91+1.0165533333333335d-2 15064 2 *t104*t191*t48-3.04966d-3*t106*t191*t201)*t97-6.09932d- 15065 3 3*t323*t50*t97+3.04966d-52*t177*t390*t97+3.403576500924 15066 4 0837d-56*t104*t106*t177*t226*t50*t91+6.200284077066667d 15067 5 -54*t104*t121*t177*t48*t91-1.86008522312d-54*t106*t121* 15068 6 t177*t201*t91-1.219864d-2*t121*t324*t50-3.72017044624d- 15069 7 54*t121*t164*t177*t50)*wght+Mmat3(iq,D3_RA_RB_TA) 15070 Mmat3(iq,D3_RA_RB_TB) = Mmat3(iq,D3_RA_RB_TB) 15071 Mmat3(iq,D3_RB_RB_TA) = (t93*(1.0d+0*t91*(-1.3614306003696 15072 1 333d-104*t342*t413*t50*t95*t98*t99+2.9761363569919996d- 15073 2 53*t226*t343*t50*t95*t98*t99-2.1686471111111108d-51*t12 15074 3 1*t343*t50*t98*t99+1.488068178496d-102*t226*t342*t50*t9 15075 4 8*t99+9.920454523306665d-54*t103*t121*t343*t50*t99-8.67 15076 5 4588444444443d-51*t100*t121*t343*t50*t99-3.403576500924 15077 6 0837d-105*t103*t226*t342*t50*t99+3.72017044624d-102*t10 15078 7 0*t226*t342*t50*t99+3.555555555555555d-49*t343*t50*t97* 15079 8 t98-4.3372942222222216d-51*t121*t343*t50*t95*t98+1.8600 15080 9 8522312d-102*t226*t342*t50*t95*t98-2.168647111111111d-1 15081 : 00*t121*t342*t50*t98-2.1686471111111108d-51*t103*t343*t 15082 ; 50*t97-1.0843235555555554d-51*t102*t343*t50*t97+3.55555 15083 < 5555555555d-49*t100*t343*t50*t97-1.3614306003696333d-10 15084 = 4*t342*t413*t50*t94*t96+2.9761363569919996d-53*t226*t34 15085 > 3*t50*t94*t96-4.3372942222222216d-51*t121*t343*t50*t94* 15086 ? t95+2.976136356992d-102*t226*t342*t50*t94*t95+9.9204545 15087 @ 23306665d-54*t102*t121*t343*t50*t95-3.4035765009240837d 15088 1 -105*t102*t226*t342*t50*t95-1.0843235555555555d-100*t12 15089 2 1*t342*t50*t94-1.3614306003696333d-104*t100*t101*t342*t 15090 3 413*t50+2.9761363569919996d-53*t100*t101*t226*t343*t50+ 15091 4 6.200284077066666d-103*t103*t121*t342*t50+4.96022726165 15092 5 3333d-103*t102*t121*t342*t50-1.8975662222222223d-100*t1 15093 6 00*t121*t342*t50)+2.0d+0*t191*t391+1.0d+0*t201*t372)+t1 15094 7 77*(3.04966d-52*t391*t91+3.04966d-52*t392+3.04966d-52*t 15095 8 191*t201)*t97-8.132426666666666d-52*t201*t343*t91*t97-6 15096 9 .09932d-3*t373*t50*t97+9.920454523306665d-54*t104*t121* 15097 : t343*t50*t91-3.4035765009240837d-105*t104*t226*t342*t50 15098 ; *t91+1.86008522312d-103*t121*t201*t342*t91-1.219864d-2* 15099 < t121*t177*t374*t50)*wght+Mmat3(iq,D3_RB_RB_TA) 15100 Mmat3(iq,D3_RB_RB_TB) = Mmat3(iq,D3_RB_RB_TB) 15101 Mmat3(iq,D3_RA_GAA_TA) = (t93*(1.0d+0*t91*(-7.440340892480 15102 1 001d-4*t100*t196*t226*t99*taua-3.7201704462400004d-4*t1 15103 2 96*t226*t95*t98*taua+4.066213333333334d-2*t121*t196*t98 15104 3 *taua-1.2400568154133336d-4*t103*t121*t196*taua+8.13242 15105 4 6666666668d-2*t100*t121*t196*taua-4.836221580112d-4*t22 15106 5 6*t55*t95*t98*t99-1.3614306003696336d-6*t106*t197*t413* 15107 6 t95*t98*t99+5.286077333333333d-2*t121*t55*t98*t99+1.116 15108 7 0511338720001d-4*t106*t197*t226*t98*t99-2.976136356992d 15109 8 -4*gammaaa*t193*t226*t98*t99-1.6120738600373333d-4*t103 15110 9 *t121*t55*t99+1.0572154666666667d-1*t100*t121*t55*t99-3 15111 : .4035765009240837d-7*t103*t106*t197*t226*t99+2.23210226 15112 ; 77440003d-4*t100*t106*t197*t226*t99-8.666666666666666d+ 15113 < 0*t55*t97*t98+5.286077333333333d-2*t121*t55*t95*t98+1.1 15114 = 160511338720001d-4*t106*t197*t226*t95*t98-1.219864d-2*t 15115 > 106*t121*t197*t98+3.2529706666666663d-2*gammaaa*t121*t1 15116 ? 93*t98+2.6430386666666666d-2*t103*t55*t97+2.64303866666 15117 @ 66666d-2*t102*t55*t97-4.836221580112d-4*t226*t55*t94*t9 15118 1 6-1.3614306003696336d-6*t106*t197*t413*t94*t96+1.057215 15119 2 4666666667d-1*t121*t55*t94*t95+2.2321022677440003d-4*t1 15120 3 06*t197*t226*t94*t95-5.952272713984d-4*gammaaa*t193*t22 15121 4 6*t94*t95-1.6120738600373333d-4*t102*t121*t55*t95-3.403 15122 5 5765009240837d-7*t102*t106*t197*t226*t95+6.505941333333 15123 6 333d-2*gammaaa*t121*t193*t94-4.836221580112d-4*t100*t10 15124 7 1*t226*t55-1.3614306003696336d-6*t100*t101*t106*t197*t4 15125 8 13+3.72017044624d-5*t103*t106*t121*t197+3.72017044624d- 15126 9 5*t102*t106*t121*t197-9.920454523306665d-5*gammaaa*t102 15127 : *t121*t193)+1.0d+0*t163*t396)+t53*(1.0d+0*rhoa*t44*t47* 15128 ; (-2.122525181952d-3*t196*t205*t57*t6*taua+1.373568d-1*t 15129 < 107*t196*t6*taua-1.061262590976d-3*gammaaa*t15*t205*t39 15130 = 3*taua+6.867840000000001d-2*t107*t15*t196*taua-3.537541 15131 > 96992d-4*t107*t13*t196*taua-1.3796413682688d-3*t205*t55 15132 ? *t58*t6-6.559723505527751d-6*t106*t197*t404*t58*t6+1.78 15133 @ 56384d-1*t107*t55*t57*t6+6.367575545856d-4*t106*t197*t2 15134 1 05*t57*t6+8.928192d-2*t107*t15*t55*t57-4.59880456089600 15135 2 04d-4*t107*t13*t55*t57-6.559723505527751d-6*gammaaa*t10 15136 3 6*t15*t196*t404*t57+3.183787772928d-4*t106*t15*t197*t20 15137 4 5*t57-1.6399308763819376d-6*t106*t13*t197*t205*t57-2.22 15138 5 86514410496003d-3*gammaaa*t15*t193*t205*t57-8.666666666 15139 6 666666d+0*t15*t55*t56+4.464096d-2*t14*t55*t56+4.464096d 15140 7 -2*t13*t55*t56-6.559723505527751d-6*t106*t11*t393*t404* 15141 8 t54-3.0776615138304003d-3*t11*t205*t384*t54+3.183787772 15142 9 928d-4*gammaaa*t106*t15*t196*t205-1.6399308763819376d-6 15143 : *gammaaa*t106*t14*t196*t205+6.367575545856d-4*gammaaa*t 15144 ; 106*t11*t196*t205-2.060352d-2*t106*t107*t15*t197+1.0612 15145 < 62590976d-4*t106*t107*t14*t197+1.061262590976d-4*t106*t 15146 = 107*t13*t197+1.4422464000000002d-1*gammaaa*t107*t15*t19 15147 > 3-7.428838136832d-4*gammaaa*t107*t14*t193+2.88449280000 15148 ? 00003d-1*gammaaa*t107*t11*t193)+1.25d-1*t200*t44*t45*t5 15149 @ 9+1.25d-1*t119*t200*t59+1.0d+0*t394*t44*t47+1.0d+0*rhoa 15150 1 *t119*t394*t47-1.25d-1*t198*t44*t45*t46-1.25d-1*t387*t4 15151 2 4*t46-1.25d-1*t119*t198*t46+1.25d-1*gammaaa*t194*t200*t 15152 3 44*t45+1.25d-1*gammaaa*t200*t377*t44+1.25d-1*t109*t200* 15153 4 t44+1.25d-1*gammaaa*t119*t194*t200)+t48*(1.016553333333 15154 5 3335d-2*t195*t91-3.04966d-3*t390)*t97-3.04966d-3*t106*t 15155 6 396*t91*t97+8.132426666666667d-3*t105*t201*t91*t97-6.09 15156 7 932d-3*t381*t50*t97-1.6120738600373333d-4*t104*t121*t55 15157 8 *t91+3.72017044624d-5*t106*t121*t195*t50*t91+1.86008522 15158 9 312d-5*t106*t121*t201*t48*t91-3.4035765009240837d-7*t10 15159 : 4*t106*t197*t226*t91+t107*t197*(-1.7687709849600003d-4* 15160 ; t44*t47*t59-2.060352d-2*t379)+t48*t56*(1.71696000000000 15161 < 02d-3*gammaaa*t200*t44*t45*t59+1.373568d-2*t198*t44*t47 15162 = -5.15088d-3*t388)+t200*t56*(-6.4386d-4*t106*t44*t59-6.4 15163 > 386d-4*gammaaa*t106*t194*t44)+t46*t48*t56*(t559-2.1462d 15164 ? -3*t44*t59)+6.4386d-4*gammaaa*t105*t200*t44*t56*t59+1.3 15165 @ 2657823872d-5*gammaaa*t107*t44*t46*t55*t59-1.3265782387 15166 1 2d-5*t106*t107*t44*t46*t50*t59+6.6328911936d-6*gammaaa* 15167 2 t106*t107*t200*t44*t48*t59-1.6399308763819376d-6*t106*t 15168 3 205*t395*t44*t47*t59+t50*(t558+1.7169600000000002d-2*t1 15169 4 94*t44*t47)*t56-5.15088d-3*rhoa*t106*t394*t44*t47*t56+6 15170 5 .4386d-4*t106*t198*t44*t46*t56-6.4386d-4*gammaaa*t105*t 15171 6 198*t44*t46*t56+t200*t45*t53*t555+(1.25d-1*gammaaa*t394 15172 7 *t44+1.25d-1*t198*t44)*t45*t46*t53+5.30631295488d-5*t10 15173 8 6*t107*t198*t44*t47*t50+1.061262590976d-4*t106*t107*t19 15174 9 4*t31*t44*t47+3.72017044624d-5*t121*t164*t197)*wght+Mma 15175 : t3(iq,D3_RA_GAA_TA) 15176 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 15177 Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA) 15178 Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB) 15179 Mmat3(iq,D3_RA_GBB_TA) = Mmat3(iq,D3_RA_GBB_TA) 15180 Mmat3(iq,D3_RA_GBB_TB) = Mmat3(iq,D3_RA_GBB_TB) 15181 Mmat3(iq,D3_RB_GAA_TA) = (t93*(1.0d+0*t91*(1.3614306003696 15182 1 34d-55*t177*t197*t413*t95*t98*t99-1.8600852231200002d-5 15183 2 3*t177*t197*t226*t98*t99+3.4035765009240837d-56*t103*t1 15184 3 77*t197*t226*t99-2.976136356992d-53*t100*t177*t197*t226 15185 4 *t99-1.488068178496d-53*t177*t197*t226*t95*t98+2.439728 15186 5 d-51*t121*t177*t197*t98+1.361430600369634d-55*t177*t197 15187 6 *t413*t94*t96-3.7201704462400004d-53*t177*t197*t226*t94 15188 7 *t95+3.4035765009240837d-56*t102*t177*t197*t226*t95+1.6 15189 8 264853333333334d-51*t121*t177*t197*t94+1.36143060036963 15190 9 4d-55*t100*t101*t177*t197*t413-4.960227261653333d-54*t1 15191 : 03*t121*t177*t197-6.200284077066667d-54*t102*t121*t177* 15192 ; t197+8.132426666666667d-52*t100*t121*t177*t197)+1.0d+0* 15193 < t191*t396)+3.04966d-52*t177*t396*t91*t97-6.09932d-3*t38 15194 = 3*t50*t97-3.04966d-3*t392*t48*t97-3.72017044624d-54*t12 15195 > 1*t177*t195*t50*t91-1.86008522312d-54*t121*t177*t201*t4 15196 ? 8*t91+3.4035765009240837d-56*t104*t177*t197*t226*t91+3. 15197 @ 72017044624d-5*t121*t192*t197)*wght+Mmat3(iq,D3_RB_GAA_ 15198 1 TA) 15199 Mmat3(iq,D3_RB_GAA_TB) = Mmat3(iq,D3_RB_GAA_TB) 15200 Mmat3(iq,D3_RB_GAB_TA) = Mmat3(iq,D3_RB_GAB_TA) 15201 Mmat3(iq,D3_RB_GAB_TB) = Mmat3(iq,D3_RB_GAB_TB) 15202 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 15203 Mmat3(iq,D3_RB_GBB_TB) = Mmat3(iq,D3_RB_GBB_TB) 15204 Mmat3(iq,D3_RA_TA_TA) = (1.0d+0*t91*t93*(-1.36143060036963 15205 1 36d-6*t196*t413*t95*t98*t99+2.2321022677440003d-4*t196* 15206 2 t226*t98*t99-3.4035765009240837d-7*t103*t196*t226*t99+2 15207 3 .2321022677440003d-4*t100*t196*t226*t99+1.1160511338720 15208 4 001d-4*t196*t226*t95*t98-2.439728d-2*t121*t196*t98-1.36 15209 5 14306003696336d-6*t196*t413*t94*t96+4.4642045354880006d 15210 6 -4*t196*t226*t94*t95-3.4035765009240837d-7*t102*t196*t2 15211 7 26*t95-2.439728d-2*t121*t196*t94-1.3614306003696336d-6* 15212 8 t100*t101*t196*t413+3.72017044624d-5*t103*t121*t196+7.4 15213 9 4034089248d-5*t102*t121*t196)-6.09932d-3*t386*t50*t91*t 15214 : 97-6.09932d-3*t396*t48*t91*t97+1.86008522312d-5*t121*t2 15215 ; 01*t55*t91-3.4035765009240837d-7*t104*t196*t226*t91+7.4 15216 < 4034089248d-5*t121*t195*t197*t91+1.0d+0*rhoa*t44*t47*t5 15217 = 3*(-6.559723505527751d-6*t196*t404*t58*t6+6.36757554585 15218 > 6d-4*t196*t205*t57*t6-6.559723505527751d-6*gammaaa*t15* 15219 ? t393*t404*t57+6.367575545856d-4*t15*t196*t205*t57-1.639 15220 @ 9308763819376d-6*t13*t196*t205*t57-6.559723505527751d-6 15221 1 *t11*t404*t54/rhoa**1.2333333333333334d+1+3.18378777292 15222 2 8d-4*gammaaa*t15*t205*t393-1.6399308763819376d-6*gammaa 15223 3 a*t14*t205*t393+1.2735151091712002d-3*gammaaa*t11*t205* 15224 4 t393-4.120704d-2*t107*t15*t196+2.122525181952d-4*t107*t 15225 5 14*t196+1.061262590976d-4*t107*t13*t196-4.120704d-2*t10 15226 6 7*t11*t196)+6.6328911936d-6*gammaaa*t107*t200*t44*t55*t 15227 7 59-1.6399308763819376d-6*t205*t398*t44*t47*t59-2.653156 15228 8 47744d-5*t107*t197*t44*t46*t59+t200*t48*t56*(t561+t560) 15229 9 -1.030176d-2*t394*t44*t47*t50*t56+2.57544d-3*t194*t44*t 15230 : 46*t50*t56+1.28772d-3*t198*t44*t46*t48*t56-1.030176d-2* 15231 ; t31*t385*t44*t47*t56+t200*t53*t557-2.5d-1*t394*t44*t46* 15232 < t53+2.122525181952d-4*t107*t194*t395*t44*t47+5.30631295 15233 = 488d-5*t107*t197*t198*t44*t47)*wght+Mmat3(iq,D3_RA_TA_T 15234 > A) 15235 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 15236 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 15237 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 15238 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 15239 Mmat3(iq,D3_RB_TB_TB) = Mmat3(iq,D3_RB_TB_TB) 15240 Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA) 15241 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 15242 Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA) 15243 Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB) 15244 Mmat3(iq,D3_GAA_GBB_TA) = Mmat3(iq,D3_GAA_GBB_TA) 15245 Mmat3(iq,D3_GAA_GBB_TB) = Mmat3(iq,D3_GAA_GBB_TB) 15246 Mmat3(iq,D3_GAB_GAB_TA) = (1.0d+0*t91*t93*(-2.722861200739 15247 1 267d-6*t398*t413*t95*t98*t99+2.2321022677440003d-4*t226 15248 2 *t398*t98*t99-6.807153001848167d-7*t103*t226*t398*t99+8 15249 3 .928409070976001d-4*t100*t226*t398*t99+4.46420453548800 15250 4 06d-4*t226*t398*t95*t98-4.879456d-2*t121*t398*t98-2.722 15251 5 861200739267d-6*t398*t413*t94*t96+4.4642045354880006d-4 15252 6 *t226*t398*t94*t95-6.807153001848167d-7*t102*t226*t398* 15253 7 t95-2.722861200739267d-6*t100*t101*t398*t413+1.48806817 15254 8 8496d-4*t103*t121*t398+7.44034089248d-5*t102*t121*t398- 15255 9 4.879456d-2*t100*t121*t398)-1.219864d-2*t396*t50*t91*t9 15256 : 7-3.04966d-3*t401*t48*t91*t97-6.807153001848167d-7*t104 15257 ; *t226*t398*t91+7.44034089248d-5*t121*t195*t395*t91+7.44 15258 < 034089248d-5*t121*t197*t201*t91+1.0d+0*rhoa*t44*t47*t53 15259 = *(-1.3119447011055504d-5*t398*t404*t58*t6+2.54703021834 15260 > 24004d-3*t205*t398*t57*t6-8.241408d-2*t107*t398*t6-1.31 15261 ? 19447011055504d-5*gammaaa*t15*t397*t404*t57+6.367575545 15262 @ 856d-4*t15*t205*t398*t57-3.279861752763875d-6*t13*t205* 15263 1 t398*t57-1.3119447011055504d-5*t11*t404*t54/rhoa**1.133 15264 2 3333333333334d+1-8.241408d-2*t107*t15*t398+2.1225251819 15265 3 52d-4*t107*t14*t398+4.245050363904d-4*t107*t13*t398+1.2 15266 4 735151091712002d-3*gammaaa*t15*t205*t397-3.279861752763 15267 5 875d-6*gammaaa*t14*t205*t397+1.2735151091712002d-3*gamm 15268 6 aaa*t11*t205*t397)-3.279861752763875d-6*t205*t44*t47*t5 15269 7 62*t59+1.28772d-3*gammaaa*t400*t44*t48*t56*t59-2.653156 15270 8 47744d-5*t107*t395*t44*t46*t59+2.65315647744d-5*gammaaa 15271 9 *t107*t197*t200*t44*t59+t200*t50*t56*(t561+t560+t559)-5 15272 : .15088d-3*t399*t44*t47*t50*t56+2.57544d-3*t198*t44*t46* 15273 ; t50*t56-1.28772d-3*gammaaa*t198*t200*t44*t48*t56-2.0603 15274 < 52d-2*t31*t394*t44*t47*t56-1.25d-1*t399*t44*t46*t53+t20 15275 = 0*(2.5d-1*gammaaa*t394*t44+2.5d-1*t198*t44)*t53-2*t375* 15276 > t400*t53+2.122525181952d-4*t107*t198*t395*t44*t47+2.122 15277 ? 525181952d-4*t107*t194*t215*t44*t47)*wght+Mmat3(iq,D3_G 15278 @ AB_GAB_TA) 15279 Mmat3(iq,D3_GAB_GAB_TB) = Mmat3(iq,D3_GAB_GAB_TB) 15280 Mmat3(iq,D3_GAB_GBB_TA) = Mmat3(iq,D3_GAB_GBB_TA) 15281 Mmat3(iq,D3_GAB_GBB_TB) = Mmat3(iq,D3_GAB_GBB_TB) 15282 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 15283 Mmat3(iq,D3_GBB_GBB_TB) = Mmat3(iq,D3_GBB_GBB_TB) 15284 Mmat3(iq,D3_GAA_TA_TA) = Mmat3(iq,D3_GAA_TA_TA) 15285 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 15286 Mmat3(iq,D3_GAA_TB_TB) = Mmat3(iq,D3_GAA_TB_TB) 15287 Mmat3(iq,D3_GAB_TA_TA) = (7.5d-1*gammaaa*t44*t53*t59/taua* 15288 1 *4+1.0d+0*t91*t93*(-5.445722401478534d-6*t413*t562*t95* 15289 2 t98*t99-1.3614306003696336d-6*t103*t226*t562*t99+2.6785 15290 3 22721292801d-3*t100*t226*t562*t99+1.3392613606464004d-3 15291 4 *t226*t562*t95*t98-5.445722401478534d-6*t413*t562*t94*t 15292 5 96-1.3614306003696336d-6*t102*t226*t562*t95-5.445722401 15293 6 478534d-6*t100*t101*t413*t562+4.4642045354879994d-4*t10 15294 7 3*t121*t562-2.9276736000000003d-1*t100*t121*t562)-1.829 15295 8 7960000000002d-2*t401*t50*t91*t97-1.3614306003696336d-6 15296 9 *t104*t226*t562*t91+2.2321022677439997d-4*t121*t201*t39 15297 : 5*t91+1.0d+0*rhoa*t44*t47*t53*(-2.623889402211101d-5*t4 15298 ; 04*t562*t58*t6+7.641090655027201d-3*t205*t562*t57*t6-4. 15299 < 9448448d-1*t107*t562*t6-2.623889402211101d-5*gammaaa*t1 15300 = 5*t404*t563*t57-6.55972350552775d-6*t13*t205*t562*t57+3 15301 > .8205453275136003d-3*gammaaa*t15*t205*t563-6.5597235055 15302 ? 2775d-6*gammaaa*t14*t205*t563+1.2735151091712002d-3*t10 15303 @ 7*t13*t562-2.623889402211101d-5*t11*t404*t54/rhoa**1.03 15304 1 33333333333333d+1)+7.72632d-3*gammaaa*t400*t44*t50*t56* 15305 2 t59-6.55972350552775d-6*t205*t44*t47*t59/rhoa**4+7.9594 15306 3 69432320001d-5*gammaaa*t107*t200*t395*t44*t59-7.72632d- 15307 4 3*gammaaa*t198*t200*t44*t50*t56-3.090528d-2*t31*t399*t4 15308 5 4*t47*t56-7.5d-1*gammaaa*t198*t400*t44*t53+3.75d-1*gamm 15309 6 aaa*t200*t399*t44*t53+6.367575545856d-4*t107*t198*t215* 15310 7 t44*t47)*wght+Mmat3(iq,D3_GAB_TA_TA) 15311 Mmat3(iq,D3_GAB_TA_TB) = Mmat3(iq,D3_GAB_TA_TB) 15312 Mmat3(iq,D3_GAB_TB_TB) = Mmat3(iq,D3_GAB_TB_TB) 15313 Mmat3(iq,D3_GBB_TA_TA) = Mmat3(iq,D3_GBB_TA_TA) 15314 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 15315 t1 = 1/rhoa**1.6666666666666669d+0 15316 t2 = 6.0d-50*t1 15317 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 15318 t4 = 1/t3 15319 t5 = param(7) 15320 t6 = param(12) 15321 t7 = 1/t3**2 15322 t8 = 2.0d-50*t1 15323 t9 = t8-9.11559972d+0 15324 t10 = t9**2 15325 t11 = param(10) 15326 t12 = 1/rhoa**3.3333333333333337d+0 15327 t13 = param(9) 15328 t14 = param(8) 15329 t15 = param(11) 15330 t16 = 4.0d-50*t1*t15*t7*t9+t13*t4*t9+t10*t6*t7+1.6d-99*t11 15331 1 *t12*t7+t5+4.0d-50*t1*t14*t4 15332 t17 = 1/rhoa**6.666666666666666d-1 15333 t18 = rhoa**5.0d-1 15334 t19 = 1/t18 15335 t20 = 1/rhoa**3.333333333333333d-1 15336 t21 = 1/rhoa**1.6666666666666666d-1 15337 t22 = 1.1120374863094686d+1*t21+3.8447462374472113d+0*t20+ 15338 1 1.644733775567609d+0*t19+2.4058712912881916d-1*t17 15339 t23 = 3.216395899738507d+1/t22+1.0d+0 15340 t24 = log(t23) 15341 t25 = 1.274696188700087d-1*t20+1.0d+0 15342 t26 = 5.982550435771079d+0*t21+2.2255694211506874d+0*t20+8 15343 1 .004286349993635d-1*t19+1.8970043257475583d-1*t17 15344 t27 = 1.6081979498692536d+1/t26+1.0d+0 15345 t28 = log(t27) 15346 t29 = 1.3256889990520176d-1*t20+1.0d+0 15347 t30 = -6.903522198342671d-18*t28*t29-3.1090699999999993d-2 15348 1 *t24*t25 15349 t31 = 1/rhob**6.666666666666666d-1 15350 t32 = rhob**5.0d-1 15351 t33 = 1/t32 15352 t34 = 1/rhob**3.333333333333333d-1 15353 t35 = 1/rhob**1.6666666666666666d-1 15354 t36 = 1.1120374863094686d+1*t35+3.8447462374472113d+0*t34+ 15355 1 1.644733775567609d+0*t33+2.4058712912881916d-1*t31 15356 t37 = 3.216395899738507d+1/t36+1.0d+0 15357 t38 = log(t37) 15358 t39 = 1.274696188700087d-1*t34+1.0d+0 15359 t40 = 5.982550435771079d+0*t35+2.2255694211506874d+0*t34+8 15360 1 .004286349993635d-1*t33+1.8970043257475583d-1*t31 15361 t41 = 1.6081979498692536d+1/t40+1.0d+0 15362 t42 = log(t41) 15363 t43 = 1.3256889990520176d-1*t34+1.0d+0 15364 t44 = -6.903522198342671d-18*t42*t43-3.1090699999999993d-2 15365 1 *t38*t39 15366 t45 = 1/rhob 15367 t46 = 1/taub 15368 t47 = 1.0d+0-1.25d-1*gammabb*t45*t46 15369 t48 = 1/rhob**2.6666666666666666d+0 15370 t49 = gammabb*t48 15371 t50 = 1/rhob**1.6666666666666669d+0 15372 t51 = 2.0d+0*t50*taub 15373 t52 = 5.15088d-3*(t51+t49-9.11559972d+0)+1.0d+0 15374 t53 = 1/t52 15375 t54 = gammabb**2 15376 t55 = 1/rhob**5.333333333333333d+0 15377 t56 = 1/t52**2 15378 t57 = t51-9.11559972d+0 15379 t58 = t57**2 15380 t59 = t56*t58*t6+gammabb*t15*t48*t56*t57+t13*t53*t57+t11*t 15381 1 54*t55*t56+gammabb*t14*t48*t53+t5 15382 t60 = rhob+rhoa 15383 t61 = 1/t60**3.333333333333333d-1 15384 t62 = 1.3256889990520176d-1*t61+1.0d+0 15385 t63 = rhoa-rhob 15386 t64 = t63**4 15387 t65 = 1/t60**4 15388 t66 = 1/t60 15389 t67 = 1.0d+0-t63*t66 15390 t68 = t63*t66+1.0d+0 15391 t69 = t68**1.3333333333333333d+0+t67**1.3333333333333333d+ 15392 1 0-2.0d+0 15393 t70 = -1.923661050931536d+0*t64*t65*t69 15394 t71 = t70+1.0d+0 15395 t72 = 1/t60**6.666666666666666d-1 15396 t73 = t60**5.0d-1 15397 t74 = 1/t73 15398 t75 = 1/t60**1.6666666666666666d-1 15399 t76 = 5.982550435771079d+0*t75+8.004286349993635d-1*t74+1. 15400 1 8970043257475583d-1*t72+2.2255694211506874d+0*t61 15401 t77 = 1.6081979498692536d+1/t76+1.0d+0 15402 t78 = log(t77) 15403 t79 = -6.21814d-2*t62*t71*t78 15404 t80 = 6.901399211255825d-2*t61+1.0d+0 15405 t81 = t70+1.923661050931536d+0*t69 15406 t82 = 8.157414703487641d+0*t75+4.3009724712766434d-1*t74+1 15407 1 .9115125951273373d-1*t72+2.247591863577616d+0*t61 15408 t83 = 2.9608813203268075d+1/t82+1.0d+0 15409 t84 = log(t83) 15410 t85 = 1.9751631321680768d-2*t80*t81*t84 15411 t86 = 1.274696188700087d-1*t61+1.0d+0 15412 t87 = 1.1120374863094686d+1*t75+1.644733775567609d+0*t74+2 15413 1 .4058712912881916d-1*t72+3.8447462374472113d+0*t61 15414 t88 = 3.216395899738507d+1/t87+1.0d+0 15415 t89 = log(t88) 15416 t90 = -5.980796863619711d-2*t64*t65*t69*t86*t89 15417 t91 = t60*(t90+t85+t79)-rhob*t44-rhoa*t30 15418 t92 = 3.04966d-3*(t51+t49+t2-1.823119944d+1)+1.0d+0 15419 t93 = 1/t92 15420 t94 = param(4) 15421 t95 = t49+4.0d-50*t1 15422 t96 = t95**2 15423 t97 = 1/t92**2 15424 t98 = param(5) 15425 t99 = t8+t51-1.823119944d+1 15426 t100 = param(6) 15427 t101 = t99**2 15428 t102 = param(2) 15429 t103 = param(3) 15430 t104 = t95*t97*t98*t99+t103*t93*t99+t94*t96*t97+t100*t101* 15431 1 t97+t102*t93*t95+param(1) 15432 t105 = 1/t27 15433 t106 = 1/t18**3 15434 t107 = 1/rhoa**1.3333333333333333d+0 15435 t108 = 1/rhoa**1.1666666666666667d+0 15436 t109 = -9.970917392951799d-1*t108-7.418564737168958d-1*t10 15437 1 7-4.002143174996817d-1*t106-1.264669550498372d-1*t1 15438 t110 = 1/t26**2 15439 t111 = 1/t23 15440 t112 = -1.8533958105157808d+0*t108-1.2815820791490704d+0*t 15441 1 107-8.223668877838045d-1*t106-1.6039141941921276d-1*t1 15442 t113 = 1/t22**2 15443 t114 = 1.1102230246251565d-16*t105*t109*t110*t29+3.0506411 15444 1 443514264d-19*t107*t28+1.0d+0*t111*t112*t113*t25+1.3210 15445 2 398931339265d-3*t107*t24 15446 t115 = 1/t3**3 15447 t116 = 1/rhoa**4.333333333333333d+0 15448 t117 = 1/rhoa**2.6666666666666666d+0 15449 t118 = -6.666666666666666d-50*t117*t6*t7*t9-6.666666666666 15450 1 666d-50*t117*t15*t7*t9+5.15088d-52*t117*t13*t7*t9+4.120 15451 2 7039999999995d-101*t115*t116*t15*t9-1.3333333333333333d 15452 3 -99*t116*t15*t7+2.0603519999999997d-101*t116*t14*t7-5.3 15453 4 33333333333334d-99*t11*t116*t7+1.030176d-51*t10*t115*t1 15454 5 17*t6-6.666666666666666d-50*t117*t14*t4-3.3333333333333 15455 6 33d-50*t117*t13*t4+1.6482816d-150*t11*t115/rhoa**6 15456 t119 = 5.0d-1*t16*t30+5.0d-1*rhoa*t118*t30+5.0d-1*rhoa*t11 15457 1 4*t16 15458 t120 = 1/t92**3 15459 t121 = -6.666666666666666d-50*t117*t97*t98*t99+6.09932d-52 15460 1 *t117*t120*t95*t98*t99+3.04966d-52*t103*t117*t97*t99-6. 15461 2 666666666666666d-50*t100*t117*t97*t99-3.333333333333333 15462 3 d-50*t117*t95*t97*t98-1.3333333333333333d-49*t117*t94*t 15463 4 95*t97+3.04966d-52*t102*t117*t95*t97+6.09932d-52*t117*t 15464 5 120*t94*t96-3.333333333333333d-50*t103*t117*t93-6.66666 15465 6 6666666666d-50*t102*t117*t93+6.09932d-52*t100*t101*t117 15466 7 *t120 15467 t122 = 1/t60**1.6666666666666669d+0 15468 t123 = 1/t73**3 15469 t124 = 1/t60**1.3333333333333333d+0 15470 t125 = 1/t60**1.1666666666666667d+0 15471 t126 = -9.970917392951799d-1*t125-7.418564737168958d-1*t12 15472 1 4-4.002143174996817d-1*t123-1.264669550498372d-1*t122 15473 t127 = 1/t76**2 15474 t128 = 1/t77 15475 t129 = 1.0d+0*t126*t127*t128*t62*t71 15476 t130 = -1.3595691172479402d+0*t125-7.491972878592053d-1*t1 15477 1 24-2.1504862356383217d-1*t123-1.2743417300848914d-1*t12 15478 2 2 15479 t131 = 1/t82**2 15480 t132 = 1/t83 15481 t133 = -5.848223622634647d-1*t130*t131*t132*t80*t81 15482 t134 = -1.8533958105157808d+0*t125-1.2815820791490704d+0*t 15483 1 124-8.223668877838045d-1*t123-1.6039141941921276d-1*t12 15484 2 2 15485 t135 = 1/t87**2 15486 t136 = 1/t88 15487 t137 = 1.923661050931536d+0*t134*t135*t136*t64*t65*t69*t86 15488 t138 = 1/t60**2 15489 t139 = t138*t63 15490 t140 = -t66 15491 t141 = t140+t139 15492 t142 = t67**3.333333333333333d-1 15493 t143 = -t138*t63 15494 t144 = t66+t143 15495 t145 = t68**3.333333333333333d-1 15496 t146 = 1.3333333333333333d+0*t144*t145+1.3333333333333333d 15497 1 +0*t141*t142 15498 t147 = -1.923661050931536d+0*t146*t64*t65 15499 t148 = 1/t60**5 15500 t149 = 7.694644203726144d+0*t148*t64*t69 15501 t150 = t63**3 15502 t151 = -7.694644203726144d+0*t150*t65*t69 15503 t152 = t151+t149+t147 15504 t153 = -6.21814d-2*t152*t62*t78 15505 t154 = 2.747773264188437d-3*t124*t71*t78 15506 t155 = t151+t149+t147+1.923661050931536d+0*t146 15507 t156 = 1.9751631321680768d-2*t155*t80*t84 15508 t157 = -4.5437964274821163d-4*t124*t81*t84 15509 t158 = -5.980796863619711d-2*t146*t64*t65*t86*t89 15510 t159 = 1/t60**5.333333333333333d+0 15511 t160 = 2.541232989148493d-3*t159*t64*t69*t89 15512 t161 = 2.3923187454478842d-1*t148*t64*t69*t86*t89 15513 t162 = t90+t60*(-2.3923187454478842d-1*t150*t65*t69*t86*t8 15514 1 9+t161+t160+t158+t157+t156+t154+t153+t137+t133+t129)+t8 15515 2 5+t79+6.903522198342671d-18*t28*t29+3.1090699999999993d 15516 3 -2*t24*t25-rhoa*t114 15517 t163 = 1.0d+0*t121*t91+1.0d+0*t104*t162 15518 t164 = 1/rhob**3.6666666666666664d+0 15519 t165 = -3.3333333333333337d+0*t48*taub-2.6666666666666666d 15520 1 +0*gammabb*t164 15521 t166 = 1/t52**3 15522 t167 = 1/rhob**6.333333333333333d+0 15523 t168 = -6.666666666666667d+0*t48*t56*t57*t6*taub-3.3333333 15524 1 333333337d+0*gammabb*t15*t55*t56*taub-3.333333333333333 15525 2 7d+0*t13*t48*t53*taub-1.030176d-2*t165*t166*t58*t6-5.15 15526 3 088d-3*t13*t165*t56*t57-2.6666666666666666d+0*gammabb*t 15527 4 15*t164*t56*t57-1.030176d-2*gammabb*t15*t165*t166*t48*t 15528 5 57-5.333333333333333d+0*t11*t167*t54*t56-5.15088d-3*gam 15529 6 mabb*t14*t165*t48*t56-1.030176d-2*t11*t165*t166*t54*t55 15530 7 -2.6666666666666666d+0*gammabb*t14*t164*t53 15531 t169 = 1/t41 15532 t170 = 1/t32**3 15533 t171 = 1/rhob**1.3333333333333333d+0 15534 t172 = 1/rhob**1.1666666666666667d+0 15535 t173 = -1.264669550498372d-1*t50-9.970917392951799d-1*t172 15536 1 -7.418564737168958d-1*t171-4.002143174996817d-1*t170 15537 t174 = 1/t40**2 15538 t175 = 1/t37 15539 t176 = -1.6039141941921276d-1*t50-1.8533958105157808d+0*t1 15540 1 72-1.2815820791490704d+0*t171-8.223668877838045d-1*t170 15541 t177 = 1/t36**2 15542 t178 = 1.1102230246251565d-16*t169*t173*t174*t43+3.0506411 15543 1 443514264d-19*t171*t42+1.0d+0*t175*t176*t177*t39+1.3210 15544 2 398931339265d-3*t171*t38 15545 t179 = 1.0d+0*t44*t47*t59+1.0d+0*rhob*t178*t47*t59+1.0d+0* 15546 1 rhob*t168*t44*t47 15547 t180 = -6.666666666666667d+0*t100*t48*t97*t99*taub-3.33333 15548 1 33333333337d+0*t48*t95*t97*t98*taub-3.3333333333333337d 15549 2 +0*t103*t48*t93*taub-2.6666666666666666d+0*gammabb*t164 15550 3 *t97*t98*t99-6.09932d-3*t120*t165*t95*t98*t99-3.04966d- 15551 4 3*t103*t165*t97*t99-5.333333333333333d+0*gammabb*t164*t 15552 5 94*t95*t97-3.04966d-3*t102*t165*t95*t97-6.09932d-3*t120 15553 6 *t165*t94*t96-2.6666666666666666d+0*gammabb*t102*t164*t 15554 7 93-6.09932d-3*t100*t101*t120*t165 15555 t181 = t66+t139 15556 t182 = t143+t140 15557 t183 = 1.3333333333333333d+0*t145*t182+1.3333333333333333d 15558 1 +0*t142*t181 15559 t184 = -1.923661050931536d+0*t183*t64*t65 15560 t185 = 7.694644203726144d+0*t150*t65*t69 15561 t186 = t185+t184+t149 15562 t187 = -6.21814d-2*t186*t62*t78 15563 t188 = t185+t184+1.923661050931536d+0*t183+t149 15564 t189 = 1.9751631321680768d-2*t188*t80*t84 15565 t190 = -5.980796863619711d-2*t183*t64*t65*t86*t89 15566 t191 = t90+t60*(2.3923187454478842d-1*t150*t65*t69*t86*t89 15567 1 +t190+t189+t187+t161+t160+t157+t154+t137+t133+t129)+t85 15568 2 +t79+6.903522198342671d-18*t42*t43+3.1090699999999993d- 15569 3 2*t38*t39-rhob*t178 15570 t192 = 1.0d+0*t180*t91+1.0d+0*t104*t191 15571 t193 = 1/rhob**8 15572 t194 = -1.030176d-2*t166*t48*t58*t6+t15*t48*t56*t57-5.1508 15573 1 8d-3*t13*t48*t56*t57-1.030176d-2*gammabb*t15*t166*t55*t 15574 2 57-5.15088d-3*gammabb*t14*t55*t56+2*gammabb*t11*t55*t56 15575 3 -1.030176d-2*t11*t166*t193*t54+t14*t48*t53 15576 t195 = t48*t97*t98*t99-6.09932d-3*t120*t48*t95*t98*t99-3.0 15577 1 4966d-3*t103*t48*t97*t99+2*t48*t94*t95*t97-3.04966d-3*t 15578 2 102*t48*t95*t97-6.09932d-3*t120*t48*t94*t96+t102*t48*t9 15579 3 3-6.09932d-3*t100*t101*t120*t48 15580 t196 = 1/rhob**7 15581 t197 = 1/rhob**4.333333333333333d+0 15582 t198 = -2.060352d-2*t166*t50*t58*t6+4.0d+0*t50*t56*t57*t6- 15583 1 1.030176d-2*t13*t50*t56*t57-2.060352d-2*gammabb*t15*t16 15584 2 6*t197*t57+2.0d+0*gammabb*t15*t197*t56-1.030176d-2*gamm 15585 3 abb*t14*t197*t56-2.060352d-2*t11*t166*t196*t54+2.0d+0*t 15586 4 13*t50*t53 15587 t199 = taub**2 15588 t200 = 1/t199 15589 t201 = -1.219864d-2*t120*t50*t95*t98*t99-6.09932d-3*t103*t 15590 1 50*t97*t99+4.0d+0*t100*t50*t97*t99+2.0d+0*t50*t95*t97*t 15591 2 98-6.09932d-3*t102*t50*t95*t97-1.219864d-2*t120*t50*t94 15592 3 *t96+2.0d+0*t103*t50*t93-1.219864d-2*t100*t101*t120*t50 15593 t202 = 2.57544d-52*t118*t30+2.57544d-52*t114*t16 15594 t203 = 1/t27**2 15595 t204 = t109**2 15596 t205 = 1/t26**4 15597 t206 = 1/t26**3 15598 t207 = 1/t18**5 15599 t208 = 1/rhoa**2.3333333333333334d+0 15600 t209 = 1/rhoa**2.1666666666666665d+0 15601 t210 = 1.1632736958443765d+0*t209+9.89141964955861d-1*t208 15602 1 +6.003214762495226d-1*t207+2.1077825841639536d-1*t117 15603 t211 = 1/t23**2 15604 t212 = t112**2 15605 t213 = 1/t22**4 15606 t214 = 1/t22**3 15607 t215 = 2.1622951122684114d+0*t209+1.7087761055320938d+0*t2 15608 1 08+1.2335503316757068d+0*t207+2.673190323653546d-1*t117 15609 t216 = 1.1102230246251565d-16*t105*t110*t210*t29-2.2204460 15610 1 49250313d-16*t105*t204*t206*t29+1.7854583920998188d-15* 15611 2 t203*t204*t205*t29-4.0675215258019015d-19*t208*t28+1.0d 15612 3 +0*t111*t113*t215*t25-2.0d+0*t111*t212*t214*t25+3.21639 15613 4 5899738507d+1*t211*t212*t213*t25-1.7613865241785684d-3* 15614 5 t208*t24-8.497974591333913d-2*t107*t111*t112*t113-9.812 15615 6 069668265515d-18*t105*t107*t109*t110 15616 t217 = 1/t3**4 15617 t218 = 1/rhoa**7 15618 t219 = 1/rhoa**5.333333333333333d+0 15619 t220 = 1/rhoa**3.6666666666666664d+0 15620 t221 = 1.7777777777777776d-49*t220*t6*t7*t9+1.777777777777 15621 1 7776d-49*t15*t220*t7*t9-1.373568d-51*t13*t220*t7*t9-1.3 15622 2 73568d-100*t115*t219*t6*t9-2.4724223999999997d-100*t115 15623 3 *t15*t219*t9+5.306312954879999d-103*t115*t13*t219*t9+6. 15624 4 367575545855999d-152*t15*t217*t218*t9+2.222222222222222 15625 5 d-99*t219*t6*t7+8.0d-99*t15*t219*t7-1.2362111999999999d 15626 6 -100*t14*t219*t7-3.43392d-101*t13*t219*t7+2.31111111111 15627 7 11113d-98*t11*t219*t7-2.747136d-51*t10*t115*t220*t6+1.5 15628 8 918938864639998d-102*t10*t217*t219*t6+1.777777777777777 15629 9 6d-49*t14*t220*t4+8.888888888888888d-50*t13*t220*t4-2.7 15630 : 471359999999995d-150*t115*t15*t218+2.1225251819519997d- 15631 ; 152*t115*t14*t218-1.53839616d-149*t11*t115*t218+2.54703 15632 < 02183424d-201*t11*t217/rhoa**8.666666666666666d+0 15633 t222 = 5.0d-1*rhoa*t221*t30+1.0d+0*t118*t30+5.0d-1*rhoa*t1 15634 1 6*t216+1.0d+0*t114*t16+1.0d+0*rhoa*t114*t118 15635 t223 = 5.15088d-52*t119-4.2923999999999995d-52*t16*t30 15636 t224 = 1/t92**4 15637 t225 = 1.7777777777777776d-49*t220*t97*t98*t99+5.580255669 15638 1 359999d-103*t219*t224*t95*t98*t99-1.6264853333333332d-5 15639 2 1*t120*t220*t95*t98*t99-8.132426666666667d-101*t120*t21 15640 3 9*t98*t99-8.132426666666666d-52*t103*t220*t97*t99+1.777 15641 4 7777777777776d-49*t100*t220*t97*t99+1.86008522312d-103* 15642 5 t103*t120*t219*t99-8.132426666666667d-101*t100*t120*t21 15643 6 9*t99+8.888888888888888d-50*t220*t95*t97*t98+4.44444444 15644 7 4444444d-99*t219*t97*t98-4.0662133333333333d-101*t120*t 15645 8 219*t95*t98+3.555555555555555d-49*t220*t94*t95*t97-8.13 15646 9 2426666666666d-52*t102*t220*t95*t97+8.888888888888888d- 15647 : 99*t219*t94*t97-2.0331066666666667d-101*t103*t219*t97-4 15648 ; .0662133333333333d-101*t102*t219*t97+2.222222222222222d 15649 < -99*t100*t219*t97+5.580255669359999d-103*t219*t224*t94* 15650 = t96-1.6264853333333332d-51*t120*t220*t94*t96-1.62648533 15651 > 33333334d-100*t120*t219*t94*t95+1.86008522312d-103*t102 15652 ? *t120*t219*t95+8.888888888888888d-50*t103*t220*t93+1.77 15653 @ 77777777777776d-49*t102*t220*t93+5.580255669359999d-103 15654 1 *t100*t101*t219*t224-1.6264853333333332d-51*t100*t101*t 15655 2 120*t220 15656 t226 = 2.0d+0*t126*t127*t128*t62*t71 15657 t227 = -1.1696447245269295d+0*t130*t131*t132*t80*t81 15658 t228 = 3.847322101863072d+0*t134*t135*t136*t64*t65*t69*t86 15659 t229 = 5.495546528376875d-3*t124*t71*t78 15660 t230 = -9.087592854964233d-4*t124*t81*t84 15661 t231 = 5.082465978296986d-3*t159*t64*t69*t89 15662 t232 = 4.7846374908957684d-1*t148*t64*t69*t86*t89 15663 t233 = t126**2 15664 t234 = 1/t76**4 15665 t235 = 1/t77**2 15666 t236 = 1.6081979498692536d+1*t233*t234*t235*t62*t71 15667 t237 = 2.0d+0*t126*t127*t128*t152*t62 15668 t238 = 1/t76**3 15669 t239 = -2.0d+0*t128*t233*t238*t62*t71 15670 t240 = -8.837926660346784d-2*t124*t126*t127*t128*t71 15671 t241 = 1/t60**2.6666666666666666d+0 15672 t242 = 1/t73**5 15673 t243 = 1/t60**2.3333333333333334d+0 15674 t244 = 1/t60**2.1666666666666665d+0 15675 t245 = 1.1632736958443765d+0*t244+9.89141964955861d-1*t243 15676 1 +6.003214762495226d-1*t242+2.1077825841639536d-1*t241 15677 t246 = 1.0d+0*t127*t128*t245*t62*t71 15678 t247 = t130**2 15679 t248 = 1/t82**4 15680 t249 = 1/t83**2 15681 t250 = -1.73158960813529d+1*t247*t248*t249*t80*t81 15682 t251 = -1.1696447245269295d+0*t130*t131*t132*t155*t80 15683 t252 = 1/t82**3 15684 t253 = 1.1696447245269295d+0*t132*t247*t252*t80*t81 15685 t254 = 2.690728393099896d-2*t124*t130*t131*t132*t81 15686 t255 = 1.5861639701225969d+0*t244+9.98929717145607d-1*t243 15687 1 +3.2257293534574827d-1*t242+2.1239028834748191d-1*t241 15688 t256 = -5.848223622634647d-1*t131*t132*t255*t80*t81 15689 t257 = t134**2 15690 t258 = 1/t87**4 15691 t259 = 1/t88**2 15692 t260 = 6.187255516702861d+1*t257*t258*t259*t64*t65*t69*t86 15693 t261 = 3.847322101863072d+0*t134*t135*t136*t146*t64*t65*t8 15694 1 6 15695 t262 = 1/t87**3 15696 t263 = -3.847322101863072d+0*t136*t257*t262*t64*t65*t69*t8 15697 1 6 15698 t264 = -1.6347222733154887d-1*t134*t135*t136*t159*t64*t69 15699 t265 = 2.1622951122684114d+0*t244+1.7087761055320938d+0*t2 15700 1 43+1.2335503316757068d+0*t242+2.673190323653546d-1*t241 15701 t266 = 1.923661050931536d+0*t135*t136*t265*t64*t65*t69*t86 15702 t267 = -1.538928840745229d+1*t134*t135*t136*t148*t64*t69*t 15703 1 86 15704 t268 = 1.538928840745229d+1*t134*t135*t136*t150*t65*t69*t8 15705 1 6 15706 t269 = t141**2 15707 t270 = 1/t67**6.666666666666666d-1 15708 t271 = 1/t60**3 15709 t272 = -2*t271*t63 15710 t273 = 2*t138 15711 t274 = t273+t272 15712 t275 = t144**2 15713 t276 = 1/t68**6.666666666666666d-1 15714 t277 = 2*t271*t63 15715 t278 = -2*t138 15716 t279 = t278+t277 15717 t280 = 1.3333333333333333d+0*t145*t279+4.444444444444444d- 15718 1 1*t275*t276+1.3333333333333333d+0*t142*t274+4.444444444 15719 2 444444d-1*t269*t270 15720 t281 = -1.923661050931536d+0*t280*t64*t65 15721 t282 = 1.5389288407452287d+1*t146*t148*t64 15722 t283 = -1.5389288407452287d+1*t146*t150*t65 15723 t284 = 1/t60**6 15724 t285 = -3.8473221018630716d+1*t284*t64*t69 15725 t286 = 6.155715362980915d+1*t148*t150*t69 15726 t287 = t63**2 15727 t288 = -2.3083932611178434d+1*t287*t65*t69 15728 t289 = t288+t286+t285+t283+t282+t281 15729 t290 = -6.21814d-2*t289*t62*t78 15730 t291 = 5.495546528376875d-3*t124*t152*t78 15731 t292 = -3.663697685584583d-3*t243*t71*t78 15732 t293 = t288+t286+t285+t283+t282+t281+1.923661050931536d+0* 15733 1 t280 15734 t294 = 1.9751631321680768d-2*t293*t80*t84 15735 t295 = -9.087592854964233d-4*t124*t155*t84 15736 t296 = 6.058395236642822d-4*t243*t81*t84 15737 t297 = -5.980796863619711d-2*t280*t64*t65*t86*t89 15738 t298 = 5.082465978296986d-3*t146*t159*t64*t89 15739 t299 = 4.7846374908957684d-1*t146*t148*t64*t86*t89 15740 t300 = 1/t60**6.333333333333333d+0 15741 t301 = -2.3718174565385935d-2*t300*t64*t69*t89 15742 t302 = 2.0329863913187946d-2*t150*t159*t69*t89 15743 t303 = -1.1961593727239421d+0*t284*t64*t69*t86*t89 15744 t304 = 1.9138549963583074d+0*t148*t150*t69*t86*t89 15745 t305 = -7.176956236343652d-1*t287*t65*t69*t86*t89 15746 t306 = t60*(-4.7846374908957684d-1*t146*t150*t65*t86*t89+t 15747 1 305+t304+t303+t302+t301+t299+t298+t297+t296+t295+t294+t 15748 2 292+t291+t290+t268+t267+t266+t264+t263+t261+t260+t256+t 15749 3 254+t253+t251+t250+t246+t240+t239+t237+t236)-4.78463749 15750 4 08957684d-1*t150*t65*t69*t86*t89-1.1961593727239421d-1* 15751 5 t146*t64*t65*t86*t89+3.9503262643361536d-2*t155*t80*t84 15752 6 -1.243628d-1*t152*t62*t78-2.220446049250313d-16*t105*t1 15753 7 09*t110*t29-6.101282288702853d-19*t107*t28-2.0d+0*t111* 15754 8 t112*t113*t25-2.642079786267853d-3*t107*t24+t232+t231+t 15755 9 230+t229+t228+t227+t226-rhoa*t216 15756 t307 = 1.0d+0*t225*t91+1.0d+0*t104*t306+2.0d+0*t121*t162 15757 t308 = 3.04966d-52*t121*t91+3.04966d-52*t163+3.04966d-52*t 15758 1 104*t162 15759 t309 = -4.066213333333334d-51*t100*t117*t120*t48*t99*taub+ 15760 1 2.222222222222222d-49*t117*t48*t97*t98*taub-2.033106666 15761 2 666667d-51*t117*t120*t48*t95*t98*taub-1.016553333333333 15762 3 5d-51*t103*t117*t48*t97*taub+2.222222222222222d-49*t100 15763 4 *t117*t48*t97*taub-5.580255669360001d-54*t117*t165*t224 15764 5 *t95*t98*t99+4.0662133333333333d-52*t117*t120*t165*t98* 15765 6 t99-1.6264853333333332d-51*gammabb*t117*t120*t164*t98*t 15766 7 99-1.86008522312d-54*t103*t117*t120*t165*t99+4.06621333 15767 8 33333333d-52*t100*t117*t120*t165*t99+8.888888888888888d 15768 9 -50*gammabb*t117*t164*t97*t98+2.0331066666666667d-52*t1 15769 : 17*t120*t165*t95*t98+3.555555555555555d-49*gammabb*t117 15770 ; *t164*t94*t97+1.0165533333333333d-52*t103*t117*t165*t97 15771 < +2.0331066666666667d-52*t102*t117*t165*t97-8.1324266666 15772 = 66666d-52*gammabb*t102*t117*t164*t97-5.580255669360001d 15773 > -54*t117*t165*t224*t94*t96+8.132426666666667d-52*t117*t 15774 ? 120*t165*t94*t95-3.2529706666666663d-51*gammabb*t117*t1 15775 @ 20*t164*t94*t95-1.86008522312d-54*t102*t117*t120*t165*t 15776 1 95-5.580255669360001d-54*t100*t101*t117*t165*t224 15777 t310 = 2.6666666666666666d+0*t145*t271*t63-2.6666666666666 15778 1 666d+0*t142*t271*t63+4.444444444444444d-1*t144*t182*t27 15779 2 6+4.444444444444444d-1*t141*t181*t270 15780 t311 = -1.923661050931536d+0*t310*t64*t65 15781 t312 = 7.694644203726144d+0*t148*t183*t64 15782 t313 = -7.694644203726144d+0*t150*t183*t65 15783 t314 = 7.694644203726144d+0*t146*t148*t64 15784 t315 = 7.694644203726144d+0*t146*t150*t65 15785 t316 = 2.3083932611178434d+1*t287*t65*t69 15786 t317 = t316+t315+t314+t313+t312+t311+t285 15787 t318 = t316+t315+t314+t313+t312+t311+1.923661050931536d+0* 15788 1 t310+t285 15789 t319 = 7.176956236343652d-1*t287*t65*t69*t86*t89 15790 t320 = t60*(-5.980796863619711d-2*t310*t64*t65*t86*t89-2.3 15791 1 923187454478842d-1*t150*t183*t65*t86*t89+2.392318745447 15792 2 8842d-1*t146*t150*t65*t86*t89+2.3923187454478842d-1*t14 15793 3 8*t183*t64*t86*t89+2.3923187454478842d-1*t146*t148*t64* 15794 4 t86*t89+2.541232989148493d-3*t159*t183*t64*t89+2.541232 15795 5 989148493d-3*t146*t159*t64*t89+1.923661050931536d+0*t13 15796 6 4*t135*t136*t183*t64*t65*t86+1.923661050931536d+0*t134* 15797 7 t135*t136*t146*t64*t65*t86+1.9751631321680768d-2*t318*t 15798 8 80*t84-4.5437964274821163d-4*t124*t188*t84-4.5437964274 15799 9 821163d-4*t124*t155*t84-5.848223622634647d-1*t130*t131* 15800 : t132*t188*t80-5.848223622634647d-1*t130*t131*t132*t155* 15801 ; t80-6.21814d-2*t317*t62*t78+2.747773264188437d-3*t124*t 15802 < 186*t78+2.747773264188437d-3*t124*t152*t78+1.0d+0*t126* 15803 = t127*t128*t186*t62+1.0d+0*t126*t127*t128*t152*t62+t319+ 15804 > t303+t301+t296+t292+t267+t266+t264+t263+t260+t256+t254+ 15805 ? t253+t250+t246+t240+t239+t236)+t232+t231+t230+t229+t228 15806 @ +t227+t226+t190+t189+t187+t158+t156+t153 15807 t321 = 1.0d+0*t309*t91+1.0d+0*t104*t320+1.0d+0*t121*t191+1 15808 1 .0d+0*t162*t180 15809 t322 = 3.04966d-52*t180*t91+3.04966d-52*t104*t191 15810 t323 = t165**2 15811 t324 = 1/rhob**2 15812 t325 = 1.25d-1*gammabb*t178*t59+1.25d-1*gammabb*t168*t44 15813 t326 = 1/t52**4 15814 t327 = 1/rhob**4.666666666666667d+0 15815 t328 = 8.88888888888889d+0*t164*taub+9.777777777777779d+0* 15816 1 gammabb*t327 15817 t329 = 1/rhob**7.333333333333333d+0 15818 t330 = 1.7777777777777778d+1*t164*t56*t57*t6*taub+1.373568 15819 1 d-1*t165*t166*t48*t57*t6*taub+3.4339200000000003d-2*t13 15820 2 *t165*t48*t56*taub+2.6666666666666666d+1*gammabb*t15*t1 15821 3 67*t56*taub+6.867840000000001d-2*gammabb*t15*t165*t166* 15822 4 t55*taub+8.88888888888889d+0*t13*t164*t53*taub-1.030176 15823 5 d-2*t166*t328*t58*t6+1.591893886464d-4*t323*t326*t58*t6 15824 6 +2.2222222222222224d+1*t199*t55*t56*t6-5.15088d-3*t13*t 15825 7 328*t56*t57+9.777777777777779d+0*gammabb*t15*t327*t56*t 15826 8 57-1.030176d-2*gammabb*t15*t166*t328*t48*t57+1.59189388 15827 9 6464d-4*gammabb*t15*t323*t326*t48*t57+5.30631295488d-5* 15828 : t13*t166*t323*t57+5.494272d-2*gammabb*t15*t164*t165*t16 15829 ; 6*t57+3.377777777777778d+1*t11*t329*t54*t56-5.15088d-3* 15830 < gammabb*t14*t328*t48*t56+2.747136d-2*gammabb*t14*t164*t 15831 = 165*t56-1.030176d-2*t11*t166*t328*t54*t55+1.59189388646 15832 > 4d-4*t11*t323*t326*t54*t55+1.0988544d-1*t11*t165*t166*t 15833 ? 167*t54+9.777777777777779d+0*gammabb*t14*t327*t53+5.306 15834 @ 31295488d-5*gammabb*t14*t166*t323*t48 15835 t331 = 1/t41**2 15836 t332 = t173**2 15837 t333 = 1/t40**4 15838 t334 = 1/t40**3 15839 t335 = 1/t32**5 15840 t336 = 1/rhob**2.3333333333333334d+0 15841 t337 = 1/rhob**2.1666666666666665d+0 15842 t338 = 2.1077825841639536d-1*t48+1.1632736958443765d+0*t33 15843 1 7+9.89141964955861d-1*t336+6.003214762495226d-1*t335 15844 t339 = 1/t37**2 15845 t340 = t176**2 15846 t341 = 1/t36**4 15847 t342 = 1/t36**3 15848 t343 = 2.673190323653546d-1*t48+2.1622951122684114d+0*t337 15849 1 +1.7087761055320938d+0*t336+1.2335503316757068d+0*t335 15850 t344 = 1.1102230246251565d-16*t169*t174*t338*t43-2.2204460 15851 1 49250313d-16*t169*t332*t334*t43+1.7854583920998188d-15* 15852 2 t331*t332*t333*t43-4.0675215258019015d-19*t336*t42+1.0d 15853 3 +0*t175*t177*t343*t39-2.0d+0*t175*t340*t342*t39+3.21639 15854 4 5899738507d+1*t339*t340*t341*t39-1.7613865241785684d-3* 15855 5 t336*t38-8.497974591333913d-2*t171*t175*t176*t177-9.812 15856 6 069668265515d-18*t169*t171*t173*t174 15857 t345 = 1.0d+0*rhob*t344*t47*t59+2.0d+0*t178*t47*t59+1.25d- 15858 1 1*gammabb*t178*t45*t46*t59+1.25d-1*gammabb*t324*t44*t46 15859 2 *t59+1.0d+0*rhob*t330*t44*t47+2.0d+0*t168*t44*t47+2.0d+ 15860 3 0*rhob*t168*t178*t47+1.25d-1*gammabb*t168*t44*t45*t46 15861 t346 = -5.15088d-3*rhob*t328*t44*t47*t59-5.15088d-3*t165*t 15862 1 44*t47*t59-5.15088d-3*rhob*t165*t178*t47*t59-5.15088d-3 15863 2 *rhob*t165*t168*t44*t47-5.15088d-3*t165*t179 15864 t347 = 1.7777777777777778d+1*t100*t164*t97*t99*taub+8.1324 15865 1 26666666668d-2*t100*t120*t165*t48*t99*taub+8.8888888888 15866 2 8889d+0*t164*t95*t97*t98*taub+1.7777777777777778d+1*gam 15867 3 mabb*t167*t97*t98*taub+4.066213333333334d-2*t120*t165*t 15868 4 48*t95*t98*taub+2.033106666666667d-2*t103*t165*t48*t97* 15869 5 taub+8.88888888888889d+0*t103*t164*t93*taub+9.777777777 15870 6 777779d+0*gammabb*t327*t97*t98*t99-6.09932d-3*t120*t328 15871 7 *t95*t98*t99+5.580255669360001d-5*t224*t323*t95*t98*t99 15872 8 +3.2529706666666663d-2*gammabb*t120*t164*t165*t98*t99-3 15873 9 .04966d-3*t103*t328*t97*t99+1.86008522312d-5*t103*t120* 15874 : t323*t99+1.9555555555555557d+1*gammabb*t327*t94*t95*t97 15875 ; -3.04966d-3*t102*t328*t95*t97+1.4222222222222222d+1*t32 15876 < 9*t54*t94*t97+2.2222222222222224d+1*t100*t199*t55*t97+1 15877 = .6264853333333332d-2*gammabb*t102*t164*t165*t97-6.09932 15878 > d-3*t120*t328*t94*t96+5.580255669360001d-5*t224*t323*t9 15879 ? 4*t96+6.505941333333333d-2*gammabb*t120*t164*t165*t94*t 15880 @ 95+1.86008522312d-5*t102*t120*t323*t95+9.77777777777777 15881 1 9d+0*gammabb*t102*t327*t93-6.09932d-3*t100*t101*t120*t3 15882 2 28+5.580255669360001d-5*t100*t101*t224*t323 15883 t348 = 2.0d+0*t126*t127*t128*t186*t62 15884 t349 = -1.1696447245269295d+0*t130*t131*t132*t188*t80 15885 t350 = 3.847322101863072d+0*t134*t135*t136*t183*t64*t65*t8 15886 1 6 15887 t351 = -1.538928840745229d+1*t134*t135*t136*t150*t65*t69*t 15888 1 86 15889 t352 = t181**2 15890 t353 = t278+t272 15891 t354 = t182**2 15892 t355 = t277+t273 15893 t356 = 1.3333333333333333d+0*t145*t355+4.444444444444444d- 15894 1 1*t276*t354+1.3333333333333333d+0*t142*t353+4.444444444 15895 2 444444d-1*t270*t352 15896 t357 = -1.923661050931536d+0*t356*t64*t65 15897 t358 = 1.5389288407452287d+1*t148*t183*t64 15898 t359 = 1.5389288407452287d+1*t150*t183*t65 15899 t360 = -6.155715362980915d+1*t148*t150*t69 15900 t361 = t360+t359+t358+t357+t288+t285 15901 t362 = -6.21814d-2*t361*t62*t78 15902 t363 = 5.495546528376875d-3*t124*t186*t78 15903 t364 = t360+t359+t358+t357+1.923661050931536d+0*t356+t288+ 15904 1 t285 15905 t365 = 1.9751631321680768d-2*t364*t80*t84 15906 t366 = -9.087592854964233d-4*t124*t188*t84 15907 t367 = -5.980796863619711d-2*t356*t64*t65*t86*t89 15908 t368 = 5.082465978296986d-3*t159*t183*t64*t89 15909 t369 = 4.7846374908957684d-1*t148*t183*t64*t86*t89 15910 t370 = -2.0329863913187946d-2*t150*t159*t69*t89 15911 t371 = -1.9138549963583074d+0*t148*t150*t69*t86*t89 15912 t372 = t60*(4.7846374908957684d-1*t150*t183*t65*t86*t89+t3 15913 1 71+t370+t369+t368+t367+t366+t365+t363+t362+t351+t350+t3 15914 2 49+t348+t305+t303+t301+t296+t292+t267+t266+t264+t263+t2 15915 3 60+t256+t254+t253+t250+t246+t240+t239+t236)+4.784637490 15916 4 8957684d-1*t150*t65*t69*t86*t89-1.1961593727239421d-1*t 15917 5 183*t64*t65*t86*t89+3.9503262643361536d-2*t188*t80*t84- 15918 6 1.243628d-1*t186*t62*t78-2.220446049250313d-16*t169*t17 15919 7 3*t174*t43-6.101282288702853d-19*t171*t42-2.0d+0*t175*t 15920 8 176*t177*t39-2.642079786267853d-3*t171*t38-rhob*t344+t2 15921 9 32+t231+t230+t229+t228+t227+t226 15922 t373 = 1.0d+0*t347*t91+1.0d+0*t104*t372+2.0d+0*t180*t191 15923 t374 = -3.04966d-3*t104*t328*t91-3.04966d-3*t165*t180*t91- 15924 1 3.04966d-3*t165*t192-3.04966d-3*t104*t165*t191 15925 t375 = -5.580255669360001d-54*t117*t224*t48*t95*t98*t99+1. 15926 1 0165533333333333d-51*t117*t120*t48*t98*t99-1.8600852231 15927 2 2d-54*t103*t117*t120*t48*t99+4.0662133333333333d-52*t10 15928 3 0*t117*t120*t48*t99-3.333333333333333d-50*t117*t48*t97* 15929 4 t98+2.0331066666666667d-52*t117*t120*t48*t95*t98-1.3333 15930 5 333333333333d-49*t117*t48*t94*t97+1.0165533333333333d-5 15931 6 2*t103*t117*t48*t97+5.082766666666666d-52*t102*t117*t48 15932 7 *t97-5.580255669360001d-54*t117*t224*t48*t94*t96+2.0331 15933 8 066666666667d-51*t117*t120*t48*t94*t95-1.86008522312d-5 15934 9 4*t102*t117*t120*t48*t95-5.580255669360001d-54*t100*t10 15935 : 1*t117*t224*t48 15936 t376 = 1.0d+0*t375*t91+1.0d+0*t162*t195 15937 t377 = 1.25d-1*t44*t59+1.25d-1*gammabb*t194*t44 15938 t378 = 1/rhob**9 15939 t379 = 6.867840000000001d-2*t166*t55*t57*t6*taub-3.3333333 15940 1 333333337d+0*t15*t55*t56*taub+1.7169600000000002d-2*t13 15941 2 *t55*t56*taub+3.4339200000000003d-2*gammabb*t15*t166*t1 15942 3 93*taub+1.591893886464d-4*t165*t326*t48*t58*t6+2.747136 15943 4 d-2*t164*t166*t58*t6-2.6666666666666666d+0*t15*t164*t56 15944 5 *t57+1.373568d-2*t13*t164*t56*t57+1.591893886464d-4*gam 15945 6 mabb*t15*t165*t326*t55*t57-1.030176d-2*t15*t165*t166*t4 15946 7 8*t57+5.30631295488d-5*t13*t165*t166*t48*t57+5.494272d- 15947 8 2*gammabb*t15*t166*t167*t57-5.15088d-3*t14*t165*t48*t56 15948 9 +2.747136d-2*gammabb*t14*t167*t56-1.0666666666666666d+1 15949 : *gammabb*t11*t167*t56+5.30631295488d-5*gammabb*t14*t165 15950 ; *t166*t55-2.060352d-2*gammabb*t11*t165*t166*t55+8.24140 15951 < 8d-2*t11*t166*t378*t54+1.591893886464d-4*t11*t165*t193* 15952 = t326*t54-2.6666666666666666d+0*t14*t164*t53 15953 t380 = -1.25d-1*t44*t45*t46*t59-1.25d-1*t178*t46*t59+1.0d+ 15954 1 0*rhob*t379*t44*t47+1.0d+0*t194*t44*t47+1.0d+0*rhob*t17 15955 2 8*t194*t47-1.25d-1*t168*t44*t46 15956 t381 = 1.373568d-2*t44*t47*t59-5.15088d-3*t179 15957 t382 = 4.066213333333334d-2*t100*t120*t55*t99*taub-3.33333 15958 1 33333333337d+0*t55*t97*t98*taub+2.033106666666667d-2*t1 15959 2 20*t55*t95*t98*taub+1.0165533333333335d-2*t103*t55*t97* 15960 3 taub-2.6666666666666666d+0*t164*t97*t98*t99+5.580255669 15961 4 360001d-5*t165*t224*t48*t95*t98*t99+1.6264853333333332d 15962 5 -2*t120*t164*t95*t98*t99-6.09932d-3*t120*t165*t48*t98*t 15963 6 99+1.6264853333333332d-2*gammabb*t120*t167*t98*t99+8.13 15964 7 2426666666667d-3*t103*t164*t97*t99+1.86008522312d-5*t10 15965 8 3*t120*t165*t48*t99-5.333333333333333d+0*t164*t94*t95*t 15966 9 97+8.132426666666667d-3*t102*t164*t95*t97-5.33333333333 15967 : 3333d+0*gammabb*t167*t94*t97-3.04966d-3*t102*t165*t48*t 15968 ; 97+8.132426666666667d-3*gammabb*t102*t167*t97+5.5802556 15969 < 69360001d-5*t165*t224*t48*t94*t96+1.6264853333333332d-2 15970 = *t120*t164*t94*t96-1.219864d-2*t120*t165*t48*t94*t95+3. 15971 > 2529706666666663d-2*gammabb*t120*t167*t94*t95+1.8600852 15972 ? 2312d-5*t102*t120*t165*t48*t95-2.6666666666666666d+0*t1 15973 @ 02*t164*t93+5.580255669360001d-5*t100*t101*t165*t224*t4 15974 1 8+1.6264853333333332d-2*t100*t101*t120*t164 15975 t383 = 1.0d+0*t382*t91+1.0d+0*t191*t195 15976 t384 = 1/rhob**1.0666666666666666d+1 15977 t385 = 1.591893886464d-4*t326*t55*t58*t6-2.060352d-2*t15*t 15978 1 166*t55*t57+5.30631295488d-5*t13*t166*t55*t57+1.5918938 15979 2 86464d-4*gammabb*t15*t193*t326*t57-1.030176d-2*t14*t55* 15980 3 t56+2*t11*t55*t56+1.591893886464d-4*t11*t326*t384*t54+5 15981 4 .30631295488d-5*gammabb*t14*t166*t193-4.120704d-2*gamma 15982 5 bb*t11*t166*t193 15983 t386 = 5.580255669360001d-5*t224*t55*t95*t98*t99-1.219864d 15984 1 -2*t120*t55*t98*t99+1.86008522312d-5*t103*t120*t55*t99+ 15985 2 2*t55*t94*t97-6.09932d-3*t102*t55*t97+5.580255669360001 15986 3 d-5*t224*t55*t94*t96-2.439728d-2*t120*t55*t94*t95+1.860 15987 4 08522312d-5*t102*t120*t55*t95+5.580255669360001d-5*t100 15988 5 *t101*t224*t55 15989 t387 = -1.1160511338720003d-53*t117*t224*t50*t95*t98*t99+8 15990 1 .132426666666667d-52*t117*t120*t50*t98*t99-3.7201704462 15991 2 4d-54*t103*t117*t120*t50*t99+3.252970666666667d-51*t100 15992 3 *t117*t120*t50*t99-1.3333333333333333d-49*t117*t50*t97* 15993 4 t98+1.6264853333333334d-51*t117*t120*t50*t95*t98+8.1324 15994 5 26666666667d-52*t103*t117*t50*t97+4.0662133333333333d-5 15995 6 2*t102*t117*t50*t97-1.3333333333333333d-49*t100*t117*t5 15996 7 0*t97-1.1160511338720003d-53*t117*t224*t50*t94*t96+1.62 15997 8 64853333333334d-51*t117*t120*t50*t94*t95-3.72017044624d 15998 9 -54*t102*t117*t120*t50*t95-1.1160511338720003d-53*t100* 15999 : t101*t117*t224*t50 16000 t388 = 1.0d+0*t387*t91+1.0d+0*t162*t201 16001 t389 = 1.373568d-1*t166*t197*t57*t6*taub-1.333333333333333 16002 1 3d+1*t197*t56*t6*taub+3.4339200000000003d-2*t13*t197*t5 16003 2 6*taub+6.867840000000001d-2*gammabb*t15*t166*t196*taub+ 16004 3 3.183787772928d-4*t165*t326*t50*t58*t6+3.43392000000000 16005 4 03d-2*t166*t48*t58*t6-6.666666666666667d+0*t48*t56*t57* 16006 5 t6-4.120704d-2*t165*t166*t50*t57*t6+1.7169600000000002d 16007 6 -2*t13*t48*t56*t57+8.928192d-2*gammabb*t15*t166*t55*t57 16008 7 +1.061262590976d-4*t13*t165*t166*t50*t57+3.183787772928 16009 8 d-4*gammabb*t15*t165*t197*t326*t57-8.666666666666666d+0 16010 9 *gammabb*t15*t55*t56+4.464096d-2*gammabb*t14*t55*t56-1. 16011 : 030176d-2*t13*t165*t50*t56+3.183787772928d-4*t11*t165*t 16012 ; 196*t326*t54+1.4422464000000002d-1*t11*t166*t193*t54-3. 16013 < 3333333333333337d+0*t13*t48*t53-2.060352d-2*gammabb*t15 16014 = *t165*t166*t197+1.061262590976d-4*gammabb*t14*t165*t166 16015 > *t197 16016 t390 = 1.25d-1*gammabb*t200*t44*t45*t59+1.25d-1*gammabb*t1 16017 1 78*t200*t59+1.0d+0*rhob*t389*t44*t47+1.0d+0*t198*t44*t4 16018 2 7+1.0d+0*rhob*t178*t198*t47+1.25d-1*gammabb*t168*t200*t 16019 3 44 16020 t391 = 8.132426666666668d-2*t100*t120*t197*t99*taub+4.0662 16021 1 13333333334d-2*t120*t197*t95*t98*taub+2.033106666666667 16022 2 d-2*t103*t197*t97*taub-1.3333333333333333d+1*t100*t197* 16023 3 t97*taub+1.1160511338720001d-4*t165*t224*t50*t95*t98*t9 16024 4 9+2.033106666666667d-2*t120*t48*t95*t98*t99+3.252970666 16025 5 6666663d-2*gammabb*t120*t55*t98*t99+1.0165533333333335d 16026 6 -2*t103*t48*t97*t99-6.666666666666667d+0*t100*t48*t97*t 16027 7 99+3.72017044624d-5*t103*t120*t165*t50*t99-2.439728d-2* 16028 8 t100*t120*t165*t50*t99-3.3333333333333337d+0*t48*t95*t9 16029 9 7*t98-5.333333333333333d+0*gammabb*t55*t97*t98-1.219864 16030 : d-2*t120*t165*t50*t95*t98+1.0165533333333335d-2*t102*t4 16031 ; 8*t95*t97+1.6264853333333332d-2*gammabb*t102*t55*t97-6. 16032 < 09932d-3*t103*t165*t50*t97+1.1160511338720001d-4*t165*t 16033 = 224*t50*t94*t96+2.033106666666667d-2*t120*t48*t94*t96+6 16034 > .505941333333333d-2*gammabb*t120*t55*t94*t95+3.72017044 16035 ? 624d-5*t102*t120*t165*t50*t95-3.3333333333333337d+0*t10 16036 @ 3*t48*t93+1.1160511338720001d-4*t100*t101*t165*t224*t50 16037 1 +2.033106666666667d-2*t100*t101*t120*t48 16038 t392 = 1.0d+0*t391*t91+1.0d+0*t191*t201 16039 t393 = 1/rhob**9.666666666666666d+0 16040 t394 = 3.183787772928d-4*t197*t326*t58*t6-4.120704d-2*t166 16041 1 *t197*t57*t6+3.183787772928d-4*gammabb*t15*t196*t326*t5 16042 2 7-2.060352d-2*t15*t166*t197*t57+1.061262590976d-4*t13*t 16043 3 166*t197*t57+2.0d+0*t15*t197*t56-1.030176d-2*t14*t197*t 16044 4 56-1.030176d-2*t13*t197*t56+3.183787772928d-4*t11*t326* 16045 5 t393*t54-2.060352d-2*gammabb*t15*t166*t196+1.0612625909 16046 6 76d-4*gammabb*t14*t166*t196-4.120704d-2*gammabb*t11*t16 16047 7 6*t196 16048 t395 = 1/rhob**3.3333333333333337d+0 16049 t396 = 1.1160511338720001d-4*t197*t224*t95*t98*t99-1.21986 16050 1 4d-2*t120*t197*t98*t99+3.72017044624d-5*t103*t120*t197* 16051 2 t99-2.439728d-2*t100*t120*t197*t99+2.0d+0*t197*t97*t98- 16052 3 1.219864d-2*t120*t197*t95*t98-6.09932d-3*t103*t197*t97- 16053 4 6.09932d-3*t102*t197*t97+1.1160511338720001d-4*t197*t22 16054 5 4*t94*t96-2.439728d-2*t120*t197*t94*t95+3.72017044624d- 16055 6 5*t102*t120*t197*t95+1.1160511338720001d-4*t100*t101*t1 16056 7 97*t224 16057 t397 = 1/rhob**8.666666666666666d+0 16058 t398 = 1/rhob**6 16059 t399 = 6.367575545856d-4*t326*t395*t58*t6-1.6482816d-1*t16 16060 1 6*t395*t57*t6+8.0d+0*t395*t56*t6+6.367575545856d-4*gamm 16061 2 abb*t15*t326*t398*t57+2.122525181952d-4*t13*t166*t395*t 16062 3 57-4.120704d-2*t13*t395*t56+6.367575545856d-4*t11*t326* 16063 4 t397*t54-8.241408d-2*gammabb*t15*t166*t398+2.1225251819 16064 5 52d-4*gammabb*t14*t166*t398 16065 t400 = 1/taub**3 16066 t401 = 2.2321022677440003d-4*t224*t395*t95*t98*t99+7.44034 16067 1 089248d-5*t103*t120*t395*t99-9.758912d-2*t100*t120*t395 16068 2 *t99-4.879456d-2*t120*t395*t95*t98-2.439728d-2*t103*t39 16069 3 5*t97+8.0d+0*t100*t395*t97+2.2321022677440003d-4*t224*t 16070 4 395*t94*t96+7.44034089248d-5*t102*t120*t395*t95+2.23210 16071 5 22677440003d-4*t100*t101*t224*t395 16072 t402 = t109**3 16073 t403 = 1/t18**7 16074 t404 = 1/rhoa**3.1666666666666665d+0 16075 t405 = t112**3 16076 t406 = 2.0690405167709364d+3*t25*t405/(t22**6*t23**3)-1.92 16077 1 98375398431045d+2*t211*t25*t405/t22**5+6.0d+0*t111*t213 16078 2 *t25*t405+1.1102230246251565d-16*t105*t110*t29*(-2.5204 16079 3 26340996149d+0*t404-1.5008036906238065d+0*t403-5.620753 16080 4 557770543d-1*t220-2.3079979182303428d+0*t12)+1.0d+0*t11 16081 5 1*t113*t25*(-4.684972743248224d+0*t404-3.08387582918926 16082 6 7d+0*t403-7.128507529742789d-1*t220-3.9871442462415524d 16083 7 +0*t12)+5.742741051503565d-14*t29*t402/(t26**6*t27**3)- 16084 8 1.0712750352598913d-14*t203*t29*t402/t26**5+6.661338147 16085 9 750939d-16*t105*t205*t29*t402-6.661338147750939d-16*t10 16086 : 5*t109*t206*t210*t29+5.356375176299456d-15*t109*t203*t2 16087 ; 05*t210*t29+9.490883560204437d-19*t12*t28-6.0d+0*t111*t 16088 < 112*t214*t215*t25+9.649187699215522d+1*t112*t211*t213*t 16089 = 215*t25+4.1099018897499934d-3*t12*t24-1.274696188700087 16090 > d-1*t107*t111*t113*t215+2.549392377400174d-1*t107*t111* 16091 ? t212*t214-4.0999275947472624d+0*t107*t211*t212*t213-1.4 16092 @ 718104502398274d-17*t105*t107*t110*t210+1.6995949182667 16093 1 827d-1*t111*t112*t113*t208+1.962413933653103d-17*t105*t 16094 2 109*t110*t208+2.943620900479655d-17*t105*t107*t204*t206 16095 3 -2.3669625486718335d-16*t107*t203*t204*t205 16096 t407 = 1/t3**5 16097 t408 = 1/rhoa**9.666666666666666d+0 16098 t409 = 1/rhoa**8 16099 t410 = 1/rhoa**6.333333333333333d+0 16100 t411 = 1/rhoa**4.666666666666667d+0 16101 t412 = 1/t92**5 16102 t413 = 4.824593849607761d+1*t233*t234*t235*t62*t71 16103 t414 = -6.0d+0*t128*t233*t238*t62*t71 16104 t415 = -2.6513779981040353d-1*t124*t126*t127*t128*t71 16105 t416 = 3.0d+0*t127*t128*t245*t62*t71 16106 t417 = -5.19476882440587d+1*t247*t248*t249*t80*t81 16107 t418 = 3.5089341735807883d+0*t132*t247*t252*t80*t81 16108 t419 = 8.072185179299687d-2*t124*t130*t131*t132*t81 16109 t420 = -1.7544670867903941d+0*t131*t132*t255*t80*t81 16110 t421 = 1.856176655010858d+2*t257*t258*t259*t64*t65*t69*t86 16111 t422 = -1.1541966305589217d+1*t136*t257*t262*t64*t65*t69*t 16112 1 86 16113 t423 = -4.904166819946466d-1*t134*t135*t136*t159*t64*t69 16114 t424 = 5.770983152794609d+0*t135*t136*t265*t64*t65*t69*t86 16115 t425 = -4.616786522235687d+1*t134*t135*t136*t148*t64*t69*t 16116 1 86 16117 t426 = -1.099109305675375d-2*t243*t71*t78 16118 t427 = 1.8175185709928465d-3*t243*t81*t84 16119 t428 = -7.11545236961578d-2*t300*t64*t69*t89 16120 t429 = -3.588478118171826d+0*t284*t64*t69*t86*t89 16121 t430 = -2.1530868709030954d+0*t287*t65*t69*t86*t89 16122 t431 = t126**3 16123 t432 = 5.172601291927341d+2*t431*t62*t71/(t76**6*t77**3) 16124 t433 = -9.649187699215522d+1*t235*t431*t62*t71/t76**5 16125 t434 = 4.824593849607761d+1*t126*t234*t235*t245*t62*t71 16126 t435 = -2.1319703304396778d+0*t124*t233*t234*t235*t71 16127 t436 = 6.0d+0*t128*t234*t431*t62*t71 16128 t437 = -6.0d+0*t126*t128*t238*t245*t62*t71 16129 t438 = 2.6513779981040353d-1*t124*t128*t233*t238*t71 16130 t439 = -1.3256889990520176d-1*t124*t127*t128*t245*t71 16131 t440 = 1.767585332069357d-1*t126*t127*t128*t243*t71 16132 t441 = 1/t60**3.6666666666666664d+0 16133 t442 = 1/t73**7 16134 t443 = 1/t60**3.3333333333333337d+0 16135 t444 = 1/t60**3.1666666666666665d+0 16136 t445 = 1.0d+0*t127*t128*(-2.520426340996149d+0*t444-2.3079 16137 1 979182303428d+0*t443-1.5008036906238065d+0*t442-5.62075 16138 2 3557770543d-1*t441)*t62*t71 16139 t446 = t130**3 16140 t447 = -1.0254062650399592d+3*t446*t80*t81/(t82**6*t83**3) 16141 t448 = 1.0389537648811739d+2*t249*t446*t80*t81/t82**5 16142 t449 = -5.19476882440587d+1*t130*t248*t249*t255*t80*t81 16143 t450 = 1.1950391155803675d+0*t124*t247*t248*t249*t81 16144 t451 = -3.5089341735807883d+0*t132*t248*t446*t80*t81 16145 t452 = 3.5089341735807883d+0*t130*t132*t252*t255*t80*t81 16146 t453 = -8.072185179299687d-2*t124*t132*t247*t252*t81 16147 t454 = 4.0360925896498434d-2*t124*t131*t132*t255*t81 16148 t455 = -5.381456786199791d-2*t130*t131*t132*t243*t81 16149 t456 = -5.848223622634647d-1*t131*t132*(-3.436688601932293 16150 1 d+0*t444-2.3308360066730832d+0*t443-8.064323383643707d- 16151 2 1*t442-5.663741022599518d-1*t441)*t80*t81 16152 t457 = t134**3 16153 t458 = 3.9801326549115085d+3*t457*t64*t65*t69*t86/(t87**6* 16154 1 t88**3) 16155 t459 = -3.712353310021716d+2*t259*t457*t64*t65*t69*t86/t87 16156 1 **5 16157 t460 = 1.856176655010858d+2*t134*t258*t259*t265*t64*t65*t6 16158 1 9*t86 16159 t461 = -7.424706620043432d+2*t148*t257*t258*t259*t64*t69*t 16160 1 86 16161 t462 = -7.886871025654724d+0*t159*t257*t258*t259*t64*t69 16162 t463 = 1.1541966305589217d+1*t136*t258*t457*t64*t65*t69*t8 16163 1 6 16164 t464 = -1.1541966305589217d+1*t134*t136*t262*t265*t64*t65* 16165 1 t69*t86 16166 t465 = 4.616786522235687d+1*t136*t148*t257*t262*t64*t69*t8 16167 1 6 16168 t466 = 4.904166819946466d-1*t136*t159*t257*t262*t64*t69 16169 t467 = -2.452083409973233d-1*t135*t136*t159*t265*t64*t69 16170 t468 = 2.2886111826416838d+0*t134*t135*t136*t300*t64*t69 16171 t469 = 1.923661050931536d+0*t135*t136*(-4.684972743248224d 16172 1 +0*t444-3.9871442462415524d+0*t443-3.083875829189267d+0 16173 2 *t442-7.128507529742789d-1*t441)*t64*t65*t69*t86 16174 t470 = -2.3083932611178434d+1*t135*t136*t148*t265*t64*t69* 16175 1 t86 16176 t471 = 1.1541966305589217d+2*t134*t135*t136*t284*t64*t69*t 16177 1 86 16178 t472 = 6.925179783353531d+1*t134*t135*t136*t287*t65*t69*t8 16179 1 6 16180 t473 = 8.548627933030694d-3*t443*t71*t78 16181 t474 = 1/t67**1.6666666666666669d+0 16182 t475 = 6*t63*t65 16183 t476 = -6*t271 16184 t477 = 1/t68**1.6666666666666669d+0 16185 t478 = -6*t63*t65 16186 t479 = 6*t271 16187 t480 = 1.3333333333333333d+0*t145*(t479+t478)-2.9629629629 16188 1 62963d-1*t144**3*t477+1.3333333333333333d+0*t142*(t476+ 16189 2 t475)-2.962962962962963d-1*t141**3*t474+1.3333333333333 16190 3 333d+0*t144*t276*t279+1.3333333333333333d+0*t141*t270*t 16191 4 274 16192 t481 = -1.923661050931536d+0*t480*t64*t65 16193 t482 = 2.3083932611178434d+1*t148*t280*t64 16194 t483 = -2.3083932611178434d+1*t150*t280*t65 16195 t484 = -1.1541966305589216d+2*t146*t284*t64 16196 t485 = 1.8467146088942746d+2*t146*t148*t150 16197 t486 = -6.925179783353531d+1*t146*t287*t65 16198 t487 = 1/t60**7 16199 t488 = 2.3083932611178432d+2*t487*t64*t69 16200 t489 = -4.6167865222356863d+2*t150*t284*t69 16201 t490 = 2.770071913341412d+2*t148*t287*t69 16202 t491 = -4.616786522235687d+1*t63*t65*t69 16203 t492 = -1.4136255552166585d-3*t443*t81*t84 16204 t493 = 2.0103976536374746d-1*t64*t69*t89/t60**7.3333333333 16205 1 33333d+0 16206 t494 = 9.148438760934575d-2*t159*t287*t69*t89 16207 t495 = 7.176956236343652d+0*t487*t64*t69*t86*t89 16208 t496 = 8.612347483612381d+0*t148*t287*t69*t86*t89 16209 t497 = -1.4353912472687305d+0*t63*t65*t69*t86*t89 16210 t498 = -1.243628d-1*t317*t62*t78 16211 t499 = 3.9503262643361536d-2*t318*t80*t84 16212 t500 = -1.1961593727239421d-1*t310*t64*t65*t86*t89 16213 t501 = 2.0d+0*t126*t127*t128*t317*t62 16214 t502 = -1.1696447245269295d+0*t130*t131*t132*t318*t80 16215 t503 = 3.847322101863072d+0*t134*t135*t136*t310*t64*t65*t8 16216 1 6 16217 t504 = -2.3083932611178434d+1*t134*t135*t136*t287*t65*t69* 16218 1 t86 16219 t505 = 5.495546528376875d-3*t124*t317*t78 16220 t506 = 1.5389288407452287d+1*t148*t310*t64 16221 t507 = -1.5389288407452287d+1*t150*t310*t65 16222 t508 = 1.7777777777777776d+0*t144*t271*t276*t63-1.77777777 16223 1 77777776d+0*t141*t270*t271*t63+1.3333333333333333d+0*t1 16224 2 45*(t478+2*t271)-2.962962962962963d-1*t182*t275*t477+1. 16225 3 3333333333333333d+0*t142*(t475-2*t271)-2.96296296296296 16226 4 3d-1*t181*t269*t474+4.444444444444444d-1*t182*t276*t279 16227 5 +4.444444444444444d-1*t181*t270*t274 16228 t509 = -1.923661050931536d+0*t508*t64*t65 16229 t510 = 7.694644203726144d+0*t148*t280*t64 16230 t511 = 7.694644203726144d+0*t150*t280*t65 16231 t512 = -3.8473221018630716d+1*t183*t284*t64 16232 t513 = 6.155715362980915d+1*t148*t150*t183 16233 t514 = -2.3083932611178434d+1*t183*t287*t65 16234 t515 = -7.694644203726143d+1*t146*t284*t64 16235 t516 = 4.616786522235687d+1*t146*t287*t65 16236 t517 = -1.5389288407452287d+2*t150*t284*t69 16237 t518 = -9.233573044471374d+1*t148*t287*t69 16238 t519 = 4.616786522235687d+1*t63*t65*t69 16239 t520 = -9.087592854964233d-4*t124*t318*t84 16240 t521 = 5.082465978296986d-3*t159*t310*t64*t89 16241 t522 = 4.7846374908957684d-1*t148*t310*t64*t86*t89 16242 t523 = -2.870782494537461d+0*t148*t287*t69*t86*t89 16243 t524 = 1.4353912472687305d+0*t63*t65*t69*t86*t89 16244 t525 = -8*t145*t63*t65+8*t142*t63*t65+1.7777777777777776d+ 16245 1 0*t182*t271*t276*t63-1.7777777777777776d+0*t181*t270*t2 16246 2 71*t63-2.962962962962963d-1*t144*t354*t477-2.9629629629 16247 3 62963d-1*t141*t352*t474+4.444444444444444d-1*t144*t276* 16248 4 t355+4.444444444444444d-1*t141*t270*t353-2.666666666666 16249 5 6666d+0*t145*t271+2.6666666666666666d+0*t142*t271 16250 t526 = -1.923661050931536d+0*t525*t64*t65 16251 t527 = 1.5389288407452287d+1*t150*t310*t65 16252 t528 = 7.694644203726144d+0*t148*t356*t64 16253 t529 = -7.694644203726144d+0*t150*t356*t65 16254 t530 = -7.694644203726143d+1*t183*t284*t64 16255 t531 = 4.616786522235687d+1*t183*t287*t65 16256 t532 = -3.8473221018630716d+1*t146*t284*t64 16257 t533 = -6.155715362980915d+1*t146*t148*t150 16258 t534 = -2.3083932611178434d+1*t146*t287*t65 16259 t535 = 1.5389288407452287d+2*t150*t284*t69 16260 t536 = t165**3 16261 t537 = 1/rhob**3 16262 t538 = 1/t52**5 16263 t539 = 1/rhob**5.666666666666667d+0 16264 t540 = -3.2592592592592595d+1*t327*taub-4.5629629629629626 16265 1 d+1*gammabb*t539 16266 t541 = 1/rhob**8.333333333333334d+0 16267 t542 = t173**3 16268 t543 = 1/t32**7 16269 t544 = 1/rhob**3.1666666666666665d+0 16270 t545 = t176**3 16271 t546 = 2.0690405167709364d+3*t39*t545/(t36**6*t37**3)-1.92 16272 1 98375398431045d+2*t339*t39*t545/t36**5+6.0d+0*t175*t341 16273 2 *t39*t545+1.1102230246251565d-16*t169*t174*t43*(-2.5204 16274 3 26340996149d+0*t544-1.5008036906238065d+0*t543-2.307997 16275 4 9182303428d+0*t395-5.620753557770543d-1*t164)+1.0d+0*t1 16276 5 75*t177*t39*(-4.684972743248224d+0*t544-3.0838758291892 16277 6 67d+0*t543-3.9871442462415524d+0*t395-7.128507529742789 16278 7 d-1*t164)+5.742741051503565d-14*t43*t542/(t40**6*t41**3 16279 8 )-1.0712750352598913d-14*t331*t43*t542/t40**5+6.6613381 16280 9 47750939d-16*t169*t333*t43*t542-6.661338147750939d-16*t 16281 : 169*t173*t334*t338*t43+5.356375176299456d-15*t173*t331* 16282 ; t333*t338*t43+9.490883560204437d-19*t395*t42+4.10990188 16283 < 97499934d-3*t38*t395-6.0d+0*t175*t176*t342*t343*t39+9.6 16284 = 49187699215522d+1*t176*t339*t341*t343*t39-1.27469618870 16285 > 0087d-1*t171*t175*t177*t343+2.549392377400174d-1*t171*t 16286 ? 175*t340*t342-4.0999275947472624d+0*t171*t339*t340*t341 16287 @ -1.4718104502398274d-17*t169*t171*t174*t338+1.699594918 16288 1 2667827d-1*t175*t176*t177*t336+1.962413933653103d-17*t1 16289 2 69*t173*t174*t336+2.943620900479655d-17*t169*t171*t332* 16290 3 t334-2.3669625486718335d-16*t171*t331*t332*t333 16291 t547 = 1.3333333333333333d+0*t142*(t479+t475)+1.3333333333 16292 1 333333d+0*t145*(t478+t476)-2.962962962962963d-1*t182**3 16293 2 *t477-2.962962962962963d-1*t181**3*t474+1.3333333333333 16294 3 333d+0*t182*t276*t355+1.3333333333333333d+0*t181*t270*t 16295 4 353 16296 t548 = -1.923661050931536d+0*t547*t64*t65 16297 t549 = 2.3083932611178434d+1*t148*t356*t64 16298 t550 = 2.3083932611178434d+1*t150*t356*t65 16299 t551 = -1.1541966305589216d+2*t183*t284*t64 16300 t552 = -1.8467146088942746d+2*t148*t150*t183 16301 t553 = -6.925179783353531d+1*t183*t287*t65 16302 t554 = 4.6167865222356863d+2*t150*t284*t69 16303 t555 = -1.25d-1*t44*t59-1.25d-1*gammabb*t194*t44 16304 t556 = 1/rhob**10 16305 t557 = 1.25d-1*gammabb*t385*t44+2.5d-1*t194*t44 16306 t558 = -1.030176d-2*t380 16307 t559 = -1.030176d-2*t377 16308 t560 = -1.28772d-3*gammabb*t194*t44 16309 t561 = -1.28772d-3*t44*t59 16310 t562 = 1/rhob**5 16311 t563 = 1/rhob**7.666666666666667d+0 16312 fnc(iq) = (1.0d+0*t104*t91*t93+1.0d+0*rhob*t44*t47*t53*t59 16313 1 +5.0d-1*rhoa*t16*t30*t4)*wght+fnc(iq) 16314 Amat(iq,D1_RA) = (3.04966d-52*t104*t117*t91*t97+t163*t93+2 16315 1 .57544d-52*t1*t16*t30*t7+t119*t4)*wght+Amat(iq,D1_RA) 16316 Amat(iq,D1_RB) = (-3.04966d-3*t104*t165*t91*t97+t192*t93-5 16317 1 .15088d-3*rhob*t165*t44*t47*t56*t59+1.25d-1*gammabb*t44 16318 2 *t45*t46*t53*t59+t179*t53)*wght+Amat(iq,D1_RB) 16319 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 16320 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 16321 Cmat(iq,D1_GBB) = (-3.04966d-3*t104*t48*t91*t97+1.0d+0*t19 16322 1 5*t91*t93-5.15088d-3*t44*t47*t50*t56*t59-1.25d-1*t44*t4 16323 2 6*t53*t59+1.0d+0*rhob*t194*t44*t47*t53)*wght+Cmat(iq,D1 16324 3 _GBB) 16325 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 16326 Mmat(iq,D1_TB) = (-6.09932d-3*t104*t50*t91*t97+1.0d+0*t201 16327 1 *t91*t93-1.030176d-2*t31*t44*t47*t56*t59+1.25d-1*gammab 16328 2 b*t200*t44*t53*t59+1.0d+0*rhob*t198*t44*t47*t53)*wght+M 16329 3 mat(iq,D1_TB) 16330 Amat2(iq,D2_RA_RA) = (-8.132426666666666d-52*t104*t220*t91 16331 1 *t97+t117*t308*t97+t307*t93+1.86008522312d-103*t104*t12 16332 2 0*t219*t91+t117*t223*t7+t1*t202*t7+t222*t4+2.6531564774 16333 3 399996d-103*t115*t116*t16*t30)*wght+Amat2(iq,D2_RA_RA) 16334 Amat2(iq,D2_RA_RB) = (t117*t322*t97-3.04966d-3*t163*t165*t 16335 1 97+t321*t93-1.86008522312d-54*t104*t117*t120*t165*t91)* 16336 2 wght+Amat2(iq,D2_RA_RB) 16337 Amat2(iq,D2_RB_RB) = (t374*t97+t373*t93+1.86008522312d-5*t 16338 1 104*t120*t323*t91-1.28772d-3*gammabb*t165*t44*t45*t46*t 16339 2 56*t59-1.25d-1*gammabb*t324*t44*t46*t53*t59+5.306312954 16340 3 88d-5*rhob*t166*t323*t44*t47*t59+t346*t56+t325*t45*t46* 16341 4 t53+t345*t53)*wght+Amat2(iq,D2_RB_RB) 16342 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 16343 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 16344 Cmat2(iq,D2_RA_GBB) = (3.04966d-52*t117*t195*t91*t97-3.049 16345 1 66d-3*t163*t48*t97+t376*t93-1.86008522312d-54*t104*t117 16346 2 *t120*t48*t91)*wght+Cmat2(iq,D2_RA_GBB) 16347 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 16348 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 16349 Cmat2(iq,D2_RB_GBB) = (-3.04966d-3*t165*t195*t91*t97+8.132 16350 1 426666666667d-3*t104*t164*t91*t97-3.04966d-3*t192*t48*t 16351 2 97+t383*t93+1.86008522312d-5*t104*t120*t165*t48*t91+6.4 16352 3 386d-4*t165*t44*t46*t56*t59-6.4386d-4*gammabb*t164*t44* 16353 4 t46*t56*t59+5.30631295488d-5*t165*t166*t44*t47*t50*t59+ 16354 5 t381*t48*t56-5.15088d-3*rhob*t165*t194*t44*t47*t56+t377 16355 6 *t45*t46*t53+t380*t53)*wght+Cmat2(iq,D2_RB_GBB) 16356 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 16357 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 16358 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 16359 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 16360 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 16361 Cmat2(iq,D2_GBB_GBB) = (-6.09932d-3*t195*t48*t91*t97+1.0d+ 16362 1 0*t386*t91*t93+1.86008522312d-5*t104*t120*t55*t91+1.287 16363 2 72d-3*t44*t46*t48*t56*t59+5.30631295488d-5*t166*t197*t4 16364 3 4*t47*t59-1.030176d-2*t194*t44*t47*t50*t56+1.0d+0*rhob* 16365 4 t385*t44*t47*t53-2.5d-1*t194*t44*t46*t53)*wght+Cmat2(iq 16366 5 ,D2_GBB_GBB) 16367 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 16368 Mmat2(iq,D2_RA_TB) = (3.04966d-52*t117*t201*t91*t97-6.0993 16369 1 2d-3*t163*t50*t97+t388*t93-3.72017044624d-54*t104*t117* 16370 2 t120*t50*t91)*wght+Mmat2(iq,D2_RA_TB) 16371 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 16372 Mmat2(iq,D2_RB_TB) = (1.0165533333333335d-2*t104*t48*t91*t 16373 1 97-3.04966d-3*t165*t201*t91*t97-6.09932d-3*t192*t50*t97 16374 2 +t392*t93+3.72017044624d-5*t104*t120*t165*t50*t91+t50*t 16375 3 56*(1.7169600000000002d-2*t44*t47*t59-1.030176d-2*t179) 16376 4 -1.28772d-3*gammabb*t44*t46*t48*t56*t59-6.4386d-4*gamma 16377 5 bb*t165*t200*t44*t56*t59-1.25d-1*gammabb*t200*t44*t45*t 16378 6 53*t59+1.061262590976d-4*t165*t166*t31*t44*t47*t59-5.15 16379 7 088d-3*rhob*t165*t198*t44*t47*t56+1.25d-1*gammabb*t198* 16380 8 t44*t45*t46*t53+t390*t53)*wght+Mmat2(iq,D2_RB_TB) 16381 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 16382 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 16383 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 16384 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 16385 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 16386 Mmat2(iq,D2_GBB_TB) = (-6.09932d-3*t195*t50*t91*t97-3.0496 16387 1 6d-3*t201*t48*t91*t97+1.0d+0*t396*t91*t93+3.72017044624 16388 2 d-5*t104*t120*t197*t91+1.28772d-3*t44*t46*t50*t56*t59-6 16389 3 .4386d-4*gammabb*t200*t44*t48*t56*t59+1.061262590976d-4 16390 4 *t166*t395*t44*t47*t59-5.15088d-3*t198*t44*t47*t50*t56- 16391 5 1.030176d-2*t194*t31*t44*t47*t56+1.0d+0*rhob*t394*t44*t 16392 6 47*t53-1.25d-1*t198*t44*t46*t53+t200*t377*t53)*wght+Mma 16393 7 t2(iq,D2_GBB_TB) 16394 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 16395 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 16396 Mmat2(iq,D2_TB_TB) = (-1.219864d-2*t201*t50*t91*t97+1.0d+0 16397 1 *t401*t91*t93+7.44034089248d-5*t104*t120*t395*t91-2.575 16398 2 44d-3*gammabb*t200*t44*t50*t56*t59-2.5d-1*gammabb*t400* 16399 3 t44*t53*t59+2.122525181952d-4*t166*t336*t44*t47*t59-2.0 16400 4 60352d-2*t198*t31*t44*t47*t56+1.0d+0*rhob*t399*t44*t47* 16401 5 t53+2.5d-1*gammabb*t198*t200*t44*t53)*wght+Mmat2(iq,D2_ 16402 6 TB_TB) 16403 Amat3(iq,D3_RA_RA_RA) = (t93*(1.0d+0*t91*(-6.5185185185185 16404 1 18d-49*t411*t97*t98*t99+6.807153001848166d-154*t409*t41 16405 2 2*t95*t98*t99+5.963779555555554d-51*t120*t411*t95*t98*t 16406 3 99-4.4642045354879994d-102*t224*t410*t95*t98*t99+6.5059 16407 4 41333333333d-100*t120*t410*t98*t99-1.1160511338719999d- 16408 5 151*t224*t409*t98*t99+2.981889777777777d-51*t103*t411*t 16409 6 97*t99-6.518518518518518d-49*t100*t411*t97*t99-1.488068 16410 7 1784959998d-102*t103*t120*t410*t99+6.505941333333333d-1 16411 8 00*t100*t120*t410*t99+1.7017882504620416d-154*t103*t224 16412 9 *t409*t99-1.1160511338719999d-151*t100*t224*t409*t99-3. 16413 : 259259259259259d-49*t411*t95*t97*t98-3.555555555555555d 16414 ; -98*t410*t97*t98+3.2529706666666663d-100*t120*t410*t95* 16415 < t98-5.580255669359999d-152*t224*t409*t95*t98+8.13242666 16416 = 6666666d-150*t120*t409*t98-1.3037037037037036d-48*t411* 16417 > t94*t95*t97+2.981889777777777d-51*t102*t411*t95*t97-7.1 16418 ? 1111111111111d-98*t410*t94*t97+1.6264853333333332d-100* 16419 @ t103*t410*t97+3.2529706666666663d-100*t102*t410*t97-1.7 16420 1 777777777777776d-98*t100*t410*t97+6.807153001848166d-15 16421 2 4*t409*t412*t94*t96+5.963779555555554d-51*t120*t411*t94 16422 3 *t96-4.4642045354879994d-102*t224*t410*t94*t96+1.301188 16423 4 2666666666d-99*t120*t410*t94*t95-2.2321022677439997d-15 16424 5 1*t224*t409*t94*t95-1.4880681784959998d-102*t102*t120*t 16425 6 410*t95+1.7017882504620416d-154*t102*t224*t409*t95+1.62 16426 7 64853333333332d-149*t120*t409*t94-3.259259259259259d-49 16427 8 *t103*t411*t93-6.518518518518518d-49*t102*t411*t93+6.80 16428 9 7153001848166d-154*t100*t101*t409*t412+5.96377955555555 16429 : 4d-51*t100*t101*t120*t411-4.4642045354879994d-102*t100* 16430 ; t101*t224*t410-1.8600852231199996d-152*t103*t120*t409-3 16431 < .720170446239999d-152*t102*t120*t409+4.066213333333333d 16432 = -150*t100*t120*t409)+1.0d+0*t104*(t60*(-1.4353912472687 16433 > 305d+1*t150*t284*t69*t86*t89-5.980796863619711d-2*t480* 16434 ? t64*t65*t86*t89-2.1530868709030954d+0*t146*t287*t65*t86 16435 @ *t89-7.176956236343652d-1*t150*t280*t65*t86*t89-3.58847 16436 1 8118171826d+0*t146*t284*t64*t86*t89+7.176956236343652d- 16437 2 1*t148*t280*t64*t86*t89+5.741564989074922d+0*t146*t148* 16438 3 t150*t86*t89-2.8461809478463124d-1*t150*t300*t69*t89-7. 16439 4 11545236961578d-2*t146*t300*t64*t89+7.623698967445479d- 16440 5 3*t159*t280*t64*t89+6.098959173956384d-2*t146*t150*t159 16441 6 *t89+2.3083932611178434d+1*t135*t136*t150*t265*t65*t69* 16442 7 t86-4.616786522235687d+1*t136*t150*t257*t262*t65*t69*t8 16443 8 6+7.424706620043432d+2*t150*t257*t258*t259*t65*t69*t86- 16444 9 1.8467146088942746d+2*t134*t135*t136*t148*t150*t69*t86+ 16445 : 5.770983152794609d+0*t134*t135*t136*t280*t64*t65*t86+5. 16446 ; 770983152794609d+0*t135*t136*t146*t265*t64*t65*t86-1.15 16447 < 41966305589217d+1*t136*t146*t257*t262*t64*t65*t86+1.856 16448 = 176655010858d+2*t146*t257*t258*t259*t64*t65*t86+4.61678 16449 > 6522235687d+1*t134*t135*t136*t146*t150*t65*t86-4.616786 16450 ? 522235687d+1*t134*t135*t136*t146*t148*t64*t86+1.9751631 16451 @ 321680768d-2*(t491+t490+t489+t488+t486+t485+t484+t483+t 16452 1 482+t481+1.923661050931536d+0*t480)*t80*t84-1.363138928 16453 2 244635d-3*t124*t293*t84+1.8175185709928465d-3*t155*t243 16454 3 *t84-1.7544670867903941d+0*t130*t131*t132*t293*t80-1.75 16455 4 44670867903941d+0*t131*t132*t155*t255*t80+3.50893417358 16456 5 07883d+0*t132*t155*t247*t252*t80-5.19476882440587d+1*t1 16457 6 55*t247*t248*t249*t80-6.21814d-2*(t491+t490+t489+t488+t 16458 7 486+t485+t484+t483+t482+t481)*t62*t78+8.243319792565312 16459 8 d-3*t124*t289*t78-1.099109305675375d-2*t152*t243*t78-1. 16460 9 9616667279785865d+0*t134*t135*t136*t150*t159*t69-4.9041 16461 : 66819946466d-1*t134*t135*t136*t146*t159*t64+3.0d+0*t126 16462 ; *t127*t128*t289*t62+3.0d+0*t127*t128*t152*t245*t62-6.0d 16463 < +0*t128*t152*t233*t238*t62+4.824593849607761d+1*t152*t2 16464 = 33*t234*t235*t62+t497+t496+t495+t494+t493+t492+t473+t47 16465 > 2+t471+t470+t469+t468+t467+t466+t465+t464+t463+t462+t46 16466 ? 1+t460+t459+t458+t456+t455+t454+t453+t452+t451+t450+t44 16467 @ 9+t448+t447+t445+t440+t439+t438+t437+t436+t435+t434+t43 16468 1 3+t432+8.072185179299687d-2*t124*t130*t131*t132*t155-2. 16469 2 6513779981040353d-1*t124*t126*t127*t128*t152)+5.7415649 16470 3 89074922d+0*t148*t150*t69*t86*t89-1.794239059085913d-1* 16471 4 t280*t64*t65*t86*t89-1.4353912472687305d+0*t146*t150*t6 16472 5 5*t86*t89+1.4353912472687305d+0*t146*t148*t64*t86*t89+6 16473 6 .098959173956384d-2*t150*t159*t69*t89+1.524739793489096 16474 7 d-2*t146*t159*t64*t89+4.616786522235687d+1*t134*t135*t1 16475 8 36*t150*t65*t69*t86+1.1541966305589217d+1*t134*t135*t13 16476 9 6*t146*t64*t65*t86+5.92548939650423d-2*t293*t80*t84-2.7 16477 : 2627785648927d-3*t124*t155*t84-3.5089341735807883d+0*t1 16478 ; 30*t131*t132*t155*t80-1.865442d-1*t289*t62*t78+1.648663 16479 < 9585130625d-2*t124*t152*t78+6.0d+0*t126*t127*t128*t152* 16480 = t62+t430+t429+t428+t427+t426+t425+t424+t423+t422+t421+t 16481 > 420+t419+t418+t417+t416+t415+t414+t413-rhoa*t406-3.3306 16482 ? 690738754696d-16*t105*t110*t210*t29+6.661338147750939d- 16483 @ 16*t105*t204*t206*t29-5.356375176299456d-15*t203*t204*t 16484 1 205*t29+1.2202564577405706d-18*t208*t28-3.0d+0*t111*t11 16485 2 3*t215*t25+6.0d+0*t111*t212*t214*t25-9.649187699215522d 16486 3 +1*t211*t212*t213*t25+5.284159572535705d-3*t208*t24+2.5 16487 4 49392377400174d-1*t107*t111*t112*t113+2.943620900479655 16488 5 d-17*t105*t107*t109*t110)+3.0d+0*t121*t306+3.0d+0*t162* 16489 6 t225)+t117*(3.04966d-52*t225*t91+6.09932d-52*t307+3.049 16490 7 66d-52*t104*t306+6.09932d-52*t121*t162)*t97+t220*(-8.13 16491 8 2426666666666d-52*t121*t91-8.132426666666666d-52*t104*t 16492 9 162)*t97+2.981889777777777d-51*t104*t411*t91*t97-2.6666 16493 : 666666666666d+0*t220*t308*t97+t120*t219*(1.86008522312d 16494 ; -103*t121*t91+6.09932d-52*t308+1.86008522312d-103*t104* 16495 < t162)-1.4880681784959998d-102*t104*t120*t410*t91+1.7017 16496 = 882504620416d-154*t104*t224*t409*t91+t4*(5.0d-1*rhoa*t3 16497 > 0*(-6.518518518518518d-49*t411*t6*t7*t9-6.5185185185185 16498 ? 18d-49*t15*t411*t7*t9+5.036415999999999d-51*t13*t411*t7 16499 @ *t9+1.0988544d-99*t115*t410*t6*t9-3.1837877729279995d-1 16500 1 51*t217*t409*t6*t9+1.50176768d-99*t115*t15*t410*t9-4.24 16501 2 50503639039994d-102*t115*t13*t410*t9-8.277848209612798d 16502 3 -151*t15*t217*t409*t9+8.199654381909687d-154*t13*t217*t 16503 4 409*t9+1.31194470110555d-202*t15*t407*t408*t9-1.7777777 16504 5 777777776d-98*t410*t6*t7-4.8592592592592593d-98*t15*t41 16505 6 0*t7+7.508838399999999d-100*t14*t410*t7+2.7471359999999 16506 7 995d-100*t13*t410*t7-1.2325925925925926d-97*t11*t410*t7 16507 8 +1.0072832d-50*t10*t115*t411*t6-1.2735151091711996d-101 16508 9 *t10*t217*t410*t6+3.279861752763875d-153*t10*t407*t409* 16509 : t6+6.86784d-150*t115*t409*t6-6.518518518518518d-49*t14* 16510 ; t4*t411-3.259259259259259d-49*t13*t4*t411+3.57127679999 16511 < 99995d-149*t115*t15*t409-2.7592827365375994d-151*t115*t 16512 = 14*t409-5.30631295488d-152*t115*t13*t409+1.314962432d-1 16513 > 48*t11*t115*t409-6.367575545855999d-201*t15*t217*t408+3 16514 ? .2798617527638746d-203*t14*t217*t408-4.58465439301632d- 16515 @ 200*t11*t217*t408+5.2477788044222d-252*t11*t407/rhoa**1 16516 1 .1333333333333334d+1)+5.0d-1*rhoa*t16*t406+1.5d+0*t221* 16517 2 t30+1.5d+0*rhoa*t114*t221+1.5d+0*t16*t216+1.5d+0*rhoa*t 16518 3 118*t216+3.0d+0*t114*t118)+t1*(2.57544d-52*t221*t30+2.5 16519 4 7544d-52*t16*t216+5.15088d-52*t114*t118)*t7+t117*(-4.29 16520 5 23999999999995d-52*t118*t30+1.030176d-51*t222-4.2923999 16521 6 999999995d-52*t114*t16)*t7-2.6666666666666666d+0*t220*t 16522 7 223*t7-1.6666666666666669d+0*t117*t202*t7+t115*t219*(1. 16523 8 030176d-51*t223-1.1497011402239997d-102*t16*t30)+t115*t 16524 9 116*(2.6531564774399996d-103*t118*t30+1.030176d-51*t202 16525 : +2.6531564774399996d-103*t114*t16)+4.0998271909548434d- 16526 ; 154*t16*t217*t218*t30)*wght+Amat3(iq,D3_RA_RA_RA) 16527 Amat3(iq,D3_RA_RA_RB) = (t93*(1.0d+0*t91*(-3.72017044624d- 16528 1 102*t100*t219*t224*t48*t99*taub+1.0843235555555554d-50* 16529 2 t100*t120*t220*t48*t99*taub-5.925925925925926d-49*t220* 16530 3 t48*t97*t98*taub-1.86008522312d-102*t219*t224*t48*t95*t 16531 4 98*taub+5.421617777777777d-51*t120*t220*t48*t95*t98*tau 16532 5 b+2.710808888888889d-100*t120*t219*t48*t98*taub+2.71080 16533 6 88888888887d-51*t103*t220*t48*t97*taub-5.92592592592592 16534 7 6d-49*t100*t220*t48*t97*taub-6.200284077066667d-103*t10 16535 8 3*t120*t219*t48*taub+2.710808888888889d-100*t100*t120*t 16536 9 219*t48*taub-6.807153001848166d-105*t165*t219*t412*t95* 16537 : t98*t99+1.4880681784959998d-53*t165*t220*t224*t95*t98*t 16538 ; 99+7.440340892480001d-103*t165*t219*t224*t98*t99-1.4880 16539 < 681784959998d-102*gammabb*t164*t219*t224*t98*t99-1.0843 16540 = 235555555554d-51*t120*t165*t220*t98*t99+4.3372942222222 16541 > 216d-51*gammabb*t120*t164*t220*t98*t99-1.70178825046204 16542 ? 19d-105*t103*t165*t219*t224*t99+7.440340892480001d-103* 16543 @ t100*t165*t219*t224*t99+4.9602272616533327d-54*t103*t12 16544 1 0*t165*t220*t99-1.0843235555555554d-51*t100*t120*t165*t 16545 2 220*t99-2.37037037037037d-49*gammabb*t164*t220*t97*t98+ 16546 3 3.7201704462400004d-103*t165*t219*t224*t95*t98-5.421617 16547 4 777777777d-52*t120*t165*t220*t95*t98-2.7108088888888887 16548 5 d-101*t120*t165*t219*t98+1.0843235555555555d-100*gammab 16549 6 b*t120*t164*t219*t98-9.48148148148148d-49*gammabb*t164* 16550 7 t220*t94*t97-2.7108088888888887d-52*t103*t165*t220*t97- 16551 8 5.421617777777777d-52*t102*t165*t220*t97+2.168647111111 16552 9 1108d-51*gammabb*t102*t164*t220*t97-6.807153001848166d- 16553 : 105*t165*t219*t412*t94*t96+1.4880681784959998d-53*t165* 16554 ; t220*t224*t94*t96+1.488068178496d-102*t165*t219*t224*t9 16555 < 4*t95-2.9761363569919996d-102*gammabb*t164*t219*t224*t9 16556 = 4*t95-2.1686471111111108d-51*t120*t165*t220*t94*t95+8.6 16557 > 74588444444443d-51*gammabb*t120*t164*t220*t94*t95-1.701 16558 ? 7882504620419d-105*t102*t165*t219*t224*t95+4.9602272616 16559 @ 533327d-54*t102*t120*t165*t220*t95-5.421617777777777d-1 16560 1 01*t120*t165*t219*t94+4.337294222222222d-100*gammabb*t1 16561 2 20*t164*t219*t94-6.807153001848166d-105*t100*t101*t165* 16562 3 t219*t412+1.4880681784959998d-53*t100*t101*t165*t220*t2 16563 4 24+1.2400568154133333d-103*t103*t120*t165*t219+2.480113 16564 5 6308266666d-103*t102*t120*t165*t219-1.3554044444444444d 16565 6 -101*t100*t120*t165*t219-4.960227261653333d-103*gammabb 16566 7 *t102*t120*t164*t219)+1.0d+0*t104*(t60*(-4.784637490895 16567 8 7684d+0*t150*t284*t69*t86*t89-5.980796863619711d-2*t508 16568 9 *t64*t65*t86*t89-4.7846374908957684d-1*t150*t310*t65*t8 16569 : 6*t89-7.176956236343652d-1*t183*t287*t65*t86*t89+1.4353 16570 ; 912472687305d+0*t146*t287*t65*t86*t89+2.392318745447884 16571 < 2d-1*t150*t280*t65*t86*t89-1.1961593727239421d+0*t183*t 16572 = 284*t64*t86*t89-2.3923187454478842d+0*t146*t284*t64*t86 16573 > *t89+2.3923187454478842d-1*t148*t280*t64*t86*t89+1.9138 16574 ? 549963583074d+0*t148*t150*t183*t86*t89-9.48726982615437 16575 @ 5d-2*t150*t300*t69*t89-3.049479586978192d-2*t159*t287*t 16576 1 69*t89-2.3718174565385935d-2*t183*t300*t64*t89-4.743634 16577 2 913077187d-2*t146*t300*t64*t89+2.541232989148493d-3*t15 16578 3 9*t280*t64*t89+2.0329863913187946d-2*t150*t159*t183*t89 16579 4 +7.694644203726144d+0*t135*t136*t150*t265*t65*t69*t86-1 16580 5 .538928840745229d+1*t136*t150*t257*t262*t65*t69*t86+2.4 16581 6 749022066811444d+2*t150*t257*t258*t259*t65*t69*t86-6.15 16582 7 5715362980916d+1*t134*t135*t136*t148*t150*t69*t86+1.923 16583 8 661050931536d+0*t134*t135*t136*t280*t64*t65*t86+1.92366 16584 9 1050931536d+0*t135*t136*t183*t265*t64*t65*t86+3.8473221 16585 : 01863072d+0*t135*t136*t146*t265*t64*t65*t86-3.847322101 16586 ; 863072d+0*t136*t183*t257*t262*t64*t65*t86-7.69464420372 16587 < 6144d+0*t136*t146*t257*t262*t64*t65*t86+6.1872555167028 16588 = 61d+1*t183*t257*t258*t259*t64*t65*t86+1.237451103340572 16589 > 2d+2*t146*t257*t258*t259*t64*t65*t86+1.538928840745229d 16590 ? +1*t134*t135*t136*t150*t183*t65*t86-1.538928840745229d+ 16591 @ 1*t134*t135*t136*t148*t183*t64*t86-3.077857681490458d+1 16592 1 *t134*t135*t136*t146*t148*t64*t86+1.9751631321680768d-2 16593 2 *(t519+t518+t517+t516+t515+t514+t513+t512+t511+t510+t50 16594 3 9+1.923661050931536d+0*t508+t507+t506+t488)*t80*t84-4.5 16595 4 437964274821163d-4*t124*t293*t84+6.058395236642822d-4*t 16596 5 188*t243*t84+1.2116790473285642d-3*t155*t243*t84-5.8482 16597 6 23622634647d-1*t130*t131*t132*t293*t80-5.84822362263464 16598 7 7d-1*t131*t132*t188*t255*t80-1.1696447245269295d+0*t131 16599 8 *t132*t155*t255*t80+1.1696447245269295d+0*t132*t188*t24 16600 9 7*t252*t80+2.339289449053859d+0*t132*t155*t247*t252*t80 16601 : -1.73158960813529d+1*t188*t247*t248*t249*t80-3.46317921 16602 ; 627058d+1*t155*t247*t248*t249*t80-6.21814d-2*(t519+t518 16603 < +t517+t516+t515+t514+t513+t512+t511+t510+t509+t507+t506 16604 = +t488)*t62*t78+2.747773264188437d-3*t124*t289*t78-3.663 16605 > 697685584583d-3*t186*t243*t78-7.327395371169166d-3*t152 16606 ? *t243*t78-6.538889093261956d-1*t134*t135*t136*t150*t159 16607 @ *t69-1.6347222733154887d-1*t134*t135*t136*t159*t183*t64 16608 1 -3.2694445466309774d-1*t134*t135*t136*t146*t159*t64+1.0 16609 2 d+0*t126*t127*t128*t289*t62+1.0d+0*t127*t128*t186*t245* 16610 3 t62+2.0d+0*t127*t128*t152*t245*t62-2.0d+0*t128*t186*t23 16611 4 3*t238*t62-4.0d+0*t128*t152*t233*t238*t62+1.60819794986 16612 5 92536d+1*t186*t233*t234*t235*t62+3.216395899738507d+1*t 16613 6 152*t233*t234*t235*t62+t524+t523+t522+t521+t520+t505+t5 16614 7 04+t503+t502+t501+t495+t493+t492+t473+t471+t470+t469+t4 16615 8 68+t467+t466+t465+t464+t463+t462+t461+t460+t459+t458+t4 16616 9 56+t455+t454+t453+t452+t451+t450+t449+t448+t447+t445+t4 16617 : 40+t439+t438+t437+t436+t435+t434+t433+t432+2.6907283930 16618 ; 99896d-2*t124*t130*t131*t132*t188-8.837926660346784d-2* 16619 < t124*t126*t127*t128*t186+5.381456786199792d-2*t124*t130 16620 = *t131*t132*t155-1.767585332069357d-1*t124*t126*t127*t12 16621 > 8*t152)-4.7846374908957684d-1*t150*t183*t65*t86*t89+9.5 16622 ? 69274981791537d-1*t146*t148*t64*t86*t89+1.0164931956593 16623 @ 973d-2*t146*t159*t64*t89+7.694644203726144d+0*t134*t135 16624 1 *t136*t146*t64*t65*t86-1.8175185709928465d-3*t124*t155* 16625 2 t84-2.339289449053859d+0*t130*t131*t132*t155*t80+1.0991 16626 3 09305675375d-2*t124*t152*t78+4.0d+0*t126*t127*t128*t152 16627 4 *t62+t500+t499+t498+t429+t428+t427+t426+t425+t424+t423+ 16628 5 t422+t421+t420+t419+t418+t417+t416+t415+t414+t413+t369+ 16629 6 t368+t366+t363+t350+t349+t348+t319+t304+t302+t297+t294+ 16630 7 t290+t268)+2.0d+0*t121*t320+2.0d+0*t162*t309+1.0d+0*t18 16631 8 0*t306+1.0d+0*t191*t225)+t117*(3.04966d-52*t309*t91+3.0 16632 9 4966d-52*t321+3.04966d-52*t104*t320+3.04966d-52*t121*t1 16633 : 91+3.04966d-52*t162*t180)*t97+t220*(-8.132426666666666d 16634 ; -52*t180*t91-8.132426666666666d-52*t104*t191)*t97-3.049 16635 < 66d-3*t165*t307*t97+t120*t219*(1.86008522312d-103*t180* 16636 = t91+1.86008522312d-103*t104*t191)-1.7017882504620419d-1 16637 > 05*t104*t165*t219*t224*t91+4.9602272616533327d-54*t104* 16638 ? t120*t165*t220*t91-6.09932d-3*t117*t120*t165*t308)*wght 16639 @ +Amat3(iq,D3_RA_RA_RB) 16640 Amat3(iq,D3_RA_RB_RB) = (t93*(1.0d+0*t91*(7.44034089248000 16641 1 2d-53*t100*t117*t165*t224*t48*t99*taub+1.08432355555555 16642 2 57d-50*t100*t117*t120*t164*t99*taub-5.925925925925926d- 16643 3 49*t117*t164*t97*t98*taub+3.720170446240001d-53*t117*t1 16644 4 65*t224*t48*t95*t98*taub+5.421617777777779d-51*t117*t12 16645 5 0*t164*t95*t98*taub-2.710808888888889d-51*t117*t120*t16 16646 6 5*t48*t98*taub+1.0843235555555557d-50*gammabb*t117*t120 16647 7 *t167*t98*taub+2.710808888888889d-51*t103*t117*t164*t97 16648 8 *taub-5.925925925925926d-49*t100*t117*t164*t97*taub+1.2 16649 9 400568154133336d-53*t103*t117*t120*t165*t48*taub-2.7108 16650 : 08888888889d-51*t100*t117*t120*t165*t48*taub+6.80715300 16651 ; 1848169d-56*t117*t323*t412*t95*t98*t99-5.58025566936000 16652 < 1d-54*t117*t224*t328*t95*t98*t99+4.0662133333333333d-52 16653 = *t117*t120*t328*t98*t99+5.963779555555554d-51*gammabb*t 16654 > 117*t120*t327*t98*t99-3.7201704462400004d-54*t117*t224* 16655 ? t323*t98*t99+2.976136356992d-53*gammabb*t117*t164*t165* 16656 @ t224*t98*t99-1.86008522312d-54*t103*t117*t120*t328*t99+ 16657 1 4.0662133333333333d-52*t100*t117*t120*t328*t99+1.701788 16658 2 2504620419d-56*t103*t117*t224*t323*t99-3.72017044624000 16659 3 04d-54*t100*t117*t224*t323*t99-3.259259259259259d-49*ga 16660 4 mmabb*t117*t327*t97*t98+2.0331066666666667d-52*t117*t12 16661 5 0*t328*t95*t98-1.8600852231200002d-54*t117*t224*t323*t9 16662 6 5*t98-1.0843235555555554d-51*gammabb*t117*t120*t164*t16 16663 7 5*t98-1.3037037037037036d-48*gammabb*t117*t327*t94*t97+ 16664 8 1.0165533333333333d-52*t103*t117*t328*t97+2.03310666666 16665 9 66667d-52*t102*t117*t328*t97+2.981889777777777d-51*gamm 16666 : abb*t102*t117*t327*t97+6.807153001848169d-56*t117*t323* 16667 ; t412*t94*t96-5.580255669360001d-54*t117*t224*t328*t94*t 16668 < 96+8.132426666666667d-52*t117*t120*t328*t94*t95+1.19275 16669 = 59111111108d-50*gammabb*t117*t120*t327*t94*t95-7.440340 16670 > 892480001d-54*t117*t224*t323*t94*t95+5.952272713984d-53 16671 ? *gammabb*t117*t164*t165*t224*t94*t95-1.86008522312d-54* 16672 @ t102*t117*t120*t328*t95+1.7017882504620419d-56*t102*t11 16673 1 7*t224*t323*t95+8.674588444444443d-51*t117*t120*t329*t5 16674 2 4*t94-4.3372942222222216d-51*gammabb*t117*t120*t164*t16 16675 3 5*t94+1.3554044444444446d-50*t100*t117*t120*t199*t55+6. 16676 4 807153001848169d-56*t100*t101*t117*t323*t412-5.58025566 16677 5 9360001d-54*t100*t101*t117*t224*t328-6.200284077066667d 16678 6 -55*t103*t117*t120*t323-1.2400568154133333d-54*t102*t11 16679 7 7*t120*t323+9.920454523306665d-54*gammabb*t102*t117*t12 16680 8 0*t164*t165)+1.0d+0*t104*(t60*(4.7846374908957684d+0*t1 16681 9 50*t284*t69*t86*t89-5.980796863619711d-2*t525*t64*t65*t 16682 : 86*t89-2.3923187454478842d-1*t150*t356*t65*t86*t89+4.78 16683 ; 46374908957684d-1*t150*t310*t65*t86*t89+1.4353912472687 16684 < 305d+0*t183*t287*t65*t86*t89-7.176956236343652d-1*t146* 16685 = t287*t65*t86*t89+2.3923187454478842d-1*t148*t356*t64*t8 16686 > 6*t89-2.3923187454478842d+0*t183*t284*t64*t86*t89-1.196 16687 ? 1593727239421d+0*t146*t284*t64*t86*t89-1.91385499635830 16688 @ 74d+0*t146*t148*t150*t86*t89+9.487269826154374d-2*t150* 16689 1 t300*t69*t89-3.0494795869781915d-2*t159*t287*t69*t89+2. 16690 2 541232989148493d-3*t159*t356*t64*t89-4.743634913077187d 16691 3 -2*t183*t300*t64*t89-2.3718174565385935d-2*t146*t300*t6 16692 4 4*t89-2.0329863913187946d-2*t146*t150*t159*t89-7.694644 16693 5 203726144d+0*t135*t136*t150*t265*t65*t69*t86+1.53892884 16694 6 0745229d+1*t136*t150*t257*t262*t65*t69*t86-2.4749022066 16695 7 811444d+2*t150*t257*t258*t259*t65*t69*t86+6.15571536298 16696 8 0916d+1*t134*t135*t136*t148*t150*t69*t86+1.923661050931 16697 9 536d+0*t134*t135*t136*t356*t64*t65*t86+3.84732210186307 16698 : 2d+0*t135*t136*t183*t265*t64*t65*t86+1.923661050931536d 16699 ; +0*t135*t136*t146*t265*t64*t65*t86-7.694644203726144d+0 16700 < *t136*t183*t257*t262*t64*t65*t86-3.847322101863072d+0*t 16701 = 136*t146*t257*t262*t64*t65*t86+1.2374511033405722d+2*t1 16702 > 83*t257*t258*t259*t64*t65*t86+6.187255516702861d+1*t146 16703 ? *t257*t258*t259*t64*t65*t86-1.538928840745229d+1*t134*t 16704 @ 135*t136*t146*t150*t65*t86-3.077857681490458d+1*t134*t1 16705 1 35*t136*t148*t183*t64*t86-1.538928840745229d+1*t134*t13 16706 2 5*t136*t146*t148*t64*t86+1.9751631321680768d-2*(t535+t5 16707 3 34+t533+t532+t531+t530+t529+t528+t527+t526+1.9236610509 16708 4 31536d+0*t525+t518+t506+t491+t488)*t80*t84-4.5437964274 16709 5 821163d-4*t124*t364*t84+1.2116790473285642d-3*t188*t243 16710 6 *t84+6.058395236642822d-4*t155*t243*t84-5.8482236226346 16711 7 47d-1*t130*t131*t132*t364*t80-1.1696447245269295d+0*t13 16712 8 1*t132*t188*t255*t80-5.848223622634647d-1*t131*t132*t15 16713 9 5*t255*t80+2.339289449053859d+0*t132*t188*t247*t252*t80 16714 : +1.1696447245269295d+0*t132*t155*t247*t252*t80-3.463179 16715 ; 21627058d+1*t188*t247*t248*t249*t80-1.73158960813529d+1 16716 < *t155*t247*t248*t249*t80-6.21814d-2*(t535+t534+t533+t53 16717 = 2+t531+t530+t529+t528+t527+t526+t518+t506+t491+t488)*t6 16718 > 2*t78+2.747773264188437d-3*t124*t361*t78-7.327395371169 16719 ? 166d-3*t186*t243*t78-3.663697685584583d-3*t152*t243*t78 16720 @ +6.538889093261955d-1*t134*t135*t136*t150*t159*t69-3.26 16721 1 94445466309774d-1*t134*t135*t136*t159*t183*t64-1.634722 16722 2 2733154887d-1*t134*t135*t136*t146*t159*t64+1.0d+0*t126* 16723 3 t127*t128*t361*t62+2.0d+0*t127*t128*t186*t245*t62+1.0d+ 16724 4 0*t127*t128*t152*t245*t62-4.0d+0*t128*t186*t233*t238*t6 16725 5 2-2.0d+0*t128*t152*t233*t238*t62+3.216395899738507d+1*t 16726 6 186*t233*t234*t235*t62+1.6081979498692536d+1*t152*t233* 16727 7 t234*t235*t62+t523+t522+t521+t520+t505+t504+t503+t502+t 16728 8 501+t497+t495+t493+t492+t473+t471+t470+t469+t468+t467+t 16729 9 466+t465+t464+t463+t462+t461+t460+t459+t458+t456+t455+t 16730 : 454+t453+t452+t451+t450+t449+t448+t447+t445+t440+t439+t 16731 ; 438+t437+t436+t435+t434+t433+t432+5.381456786199792d-2* 16732 < t124*t130*t131*t132*t188-1.767585332069357d-1*t124*t126 16733 = *t127*t128*t186+2.690728393099896d-2*t124*t130*t131*t13 16734 > 2*t155-8.837926660346784d-2*t124*t126*t127*t128*t152)+4 16735 ? .7846374908957684d-1*t146*t150*t65*t86*t89+9.5692749817 16736 @ 91537d-1*t148*t183*t64*t86*t89+1.0164931956593973d-2*t1 16737 1 59*t183*t64*t89+7.694644203726144d+0*t134*t135*t136*t18 16738 2 3*t64*t65*t86-1.8175185709928465d-3*t124*t188*t84-2.339 16739 3 289449053859d+0*t130*t131*t132*t188*t80+1.0991093056753 16740 4 75d-2*t124*t186*t78+4.0d+0*t126*t127*t128*t186*t62+t500 16741 5 +t499+t498+t429+t428+t427+t426+t425+t424+t423+t422+t421 16742 6 +t420+t419+t418+t417+t416+t415+t414+t413+t371+t370+t367 16743 7 +t365+t362+t351+t319+t299+t298+t295+t291+t261+t251+t237 16744 8 )+1.0d+0*t121*t372+1.0d+0*t162*t347+2.0d+0*t180*t320+2. 16745 9 0d+0*t191*t309)+t117*(3.04966d-52*t347*t91+3.04966d-52* 16746 : t104*t372+6.09932d-52*t180*t191)*t97+(-3.04966d-3*t163* 16747 ; t328-6.09932d-3*t165*t321)*t97+t117*t120*(-1.8600852231 16748 < 2d-54*t104*t328*t91-1.86008522312d-54*t165*t180*t91-6.0 16749 = 9932d-3*t165*t322-1.86008522312d-54*t104*t165*t191)+1.7 16750 > 017882504620419d-56*t104*t117*t224*t323*t91+1.860085223 16751 ? 12d-5*t120*t163*t323)*wght+Amat3(iq,D3_RA_RB_RB) 16752 Amat3(iq,D3_RB_RB_RB) = (t93*(1.0d+0*t91*(-6.5185185185185 16753 1 19d+1*t100*t327*t97*t99*taub+1.2198640000000001d-1*t100 16754 2 *t120*t328*t48*t99*taub-1.1160511338720001d-3*t100*t224 16755 3 *t323*t48*t99*taub-3.252970666666667d-1*t100*t120*t164* 16756 4 t165*t99*taub-3.2592592592592595d+1*t327*t95*t97*t98*ta 16757 5 ub-1.6888888888888892d+2*gammabb*t329*t97*t98*taub+6.09 16758 6 932d-2*t120*t328*t48*t95*t98*taub-5.58025566936d-4*t224 16759 7 *t323*t48*t95*t98*taub-1.6264853333333334d-1*t120*t164* 16760 8 t165*t95*t98*taub-3.252970666666667d-1*gammabb*t120*t16 16761 9 5*t167*t98*taub+3.04966d-2*t103*t328*t48*t97*taub-8.132 16762 : 426666666668d-2*t103*t164*t165*t97*taub-3.2592592592592 16763 ; 595d+1*t103*t327*t93*taub-1.8600852231200002d-4*t103*t1 16764 < 20*t323*t48*taub-4.5629629629629626d+1*gammabb*t539*t97 16765 = *t98*t99-6.09932d-3*t120*t540*t95*t98*t99-6.80715300184 16766 > 8167d-7*t412*t536*t95*t98*t99+1.6740767008080004d-4*t16 16767 ? 5*t224*t328*t95*t98*t99+4.879456d-2*gammabb*t120*t164*t 16768 @ 328*t98*t99-1.7891338666666665d-1*gammabb*t120*t165*t32 16769 1 7*t98*t99-4.464204535488d-4*gammabb*t164*t224*t323*t98* 16770 2 t99-3.04966d-3*t103*t540*t97*t99-1.7017882504620419d-7* 16771 3 t103*t224*t536*t99+5.580255669359999d-5*t103*t120*t165* 16772 4 t328*t99-9.125925925925925d+1*gammabb*t539*t94*t95*t97- 16773 5 3.04966d-3*t102*t540*t95*t97-1.5644444444444447d+2*t54* 16774 6 t541*t94*t97+2.439728d-2*gammabb*t102*t164*t328*t97-8.9 16775 7 45669333333333d-2*gammabb*t102*t165*t327*t97-1.77777777 16776 8 7777778d+2*t100*t167*t199*t97-6.09932d-3*t120*t540*t94* 16777 9 t96-6.807153001848167d-7*t412*t536*t94*t96+1.6740767008 16778 : 080004d-4*t165*t224*t328*t94*t96+9.758912d-2*gammabb*t1 16779 ; 20*t164*t328*t94*t95-3.578267733333333d-1*gammabb*t120* 16780 < t165*t327*t94*t95-8.928409070976d-4*gammabb*t164*t224*t 16781 = 323*t94*t95-1.7017882504620419d-7*t102*t224*t536*t95+5. 16782 > 580255669359999d-5*t102*t120*t165*t328*t95-2.6023765333 16783 ? 33333d-1*t120*t165*t329*t54*t94-4.5629629629629626d+1*g 16784 @ ammabb*t102*t539*t93-4.066213333333334d-1*t100*t120*t16 16785 1 5*t199*t55-6.09932d-3*t100*t101*t120*t540-6.80715300184 16786 2 8167d-7*t100*t101*t412*t536+1.6740767008080004d-4*t100* 16787 3 t101*t165*t224*t328-1.4880681784959998d-4*gammabb*t102* 16788 4 t120*t164*t323)+1.0d+0*t104*(t60*(1.4353912472687305d+1 16789 5 *t150*t284*t69*t86*t89-5.980796863619711d-2*t547*t64*t6 16790 6 5*t86*t89+7.176956236343652d-1*t150*t356*t65*t86*t89-2. 16791 7 1530868709030954d+0*t183*t287*t65*t86*t89+7.17695623634 16792 8 3652d-1*t148*t356*t64*t86*t89-3.588478118171826d+0*t183 16793 9 *t284*t64*t86*t89-5.741564989074922d+0*t148*t150*t183*t 16794 : 86*t89+2.8461809478463124d-1*t150*t300*t69*t89+7.623698 16795 ; 967445479d-3*t159*t356*t64*t89-7.11545236961578d-2*t183 16796 < *t300*t64*t89-6.098959173956384d-2*t150*t159*t183*t89-2 16797 = .3083932611178434d+1*t135*t136*t150*t265*t65*t69*t86+4. 16798 > 616786522235687d+1*t136*t150*t257*t262*t65*t69*t86-7.42 16799 ? 4706620043432d+2*t150*t257*t258*t259*t65*t69*t86+1.8467 16800 @ 146088942746d+2*t134*t135*t136*t148*t150*t69*t86+5.7709 16801 1 83152794609d+0*t134*t135*t136*t356*t64*t65*t86+5.770983 16802 2 152794609d+0*t135*t136*t183*t265*t64*t65*t86-1.15419663 16803 3 05589217d+1*t136*t183*t257*t262*t64*t65*t86+1.856176655 16804 4 010858d+2*t183*t257*t258*t259*t64*t65*t86-4.61678652223 16805 5 5687d+1*t134*t135*t136*t150*t183*t65*t86-4.616786522235 16806 6 687d+1*t134*t135*t136*t148*t183*t64*t86+1.9751631321680 16807 7 768d-2*(t554+t553+t552+t551+t550+t549+t548+1.9236610509 16808 8 31536d+0*t547+t519+t490+t488)*t80*t84-1.363138928244635 16809 9 d-3*t124*t364*t84+1.8175185709928465d-3*t188*t243*t84-1 16810 : .7544670867903941d+0*t130*t131*t132*t364*t80-1.75446708 16811 ; 67903941d+0*t131*t132*t188*t255*t80+3.5089341735807883d 16812 < +0*t132*t188*t247*t252*t80-5.19476882440587d+1*t188*t24 16813 = 7*t248*t249*t80-6.21814d-2*(t554+t553+t552+t551+t550+t5 16814 > 49+t548+t519+t490+t488)*t62*t78+8.243319792565312d-3*t1 16815 ? 24*t361*t78-1.099109305675375d-2*t186*t243*t78+1.961666 16816 @ 7279785865d+0*t134*t135*t136*t150*t159*t69-4.9041668199 16817 1 46466d-1*t134*t135*t136*t159*t183*t64+3.0d+0*t126*t127* 16818 2 t128*t361*t62+3.0d+0*t127*t128*t186*t245*t62-6.0d+0*t12 16819 3 8*t186*t233*t238*t62+4.824593849607761d+1*t186*t233*t23 16820 4 4*t235*t62+t524+t496+t495+t494+t493+t492+t473+t472+t471 16821 5 +t470+t469+t468+t467+t466+t465+t464+t463+t462+t461+t460 16822 6 +t459+t458+t456+t455+t454+t453+t452+t451+t450+t449+t448 16823 7 +t447+t445+t440+t439+t438+t437+t436+t435+t434+t433+t432 16824 8 +8.072185179299687d-2*t124*t130*t131*t132*t188-2.651377 16825 9 9981040353d-1*t124*t126*t127*t128*t186)-5.7415649890749 16826 : 22d+0*t148*t150*t69*t86*t89-1.794239059085913d-1*t356*t 16827 ; 64*t65*t86*t89+1.4353912472687305d+0*t150*t183*t65*t86* 16828 < t89+1.4353912472687305d+0*t148*t183*t64*t86*t89-6.09895 16829 = 9173956384d-2*t150*t159*t69*t89+1.524739793489096d-2*t1 16830 > 59*t183*t64*t89-4.616786522235687d+1*t134*t135*t136*t15 16831 ? 0*t65*t69*t86+1.1541966305589217d+1*t134*t135*t136*t183 16832 @ *t64*t65*t86+5.92548939650423d-2*t364*t80*t84-2.7262778 16833 1 5648927d-3*t124*t188*t84-3.5089341735807883d+0*t130*t13 16834 2 1*t132*t188*t80-1.865442d-1*t361*t62*t78+1.648663958513 16835 3 0625d-2*t124*t186*t78+6.0d+0*t126*t127*t128*t186*t62-rh 16836 4 ob*t546+t430-3.3306690738754696d-16*t169*t174*t338*t43+ 16837 5 6.661338147750939d-16*t169*t332*t334*t43-5.356375176299 16838 6 456d-15*t331*t332*t333*t43+t429+t428+t427+t426+t425+t42 16839 7 4+t423+t422+t421+t420+1.2202564577405706d-18*t336*t42+t 16840 8 419+t418+t417+t416+t415+t414+t413-3.0d+0*t175*t177*t343 16841 9 *t39+6.0d+0*t175*t340*t342*t39-9.649187699215522d+1*t33 16842 : 9*t340*t341*t39+5.284159572535705d-3*t336*t38+2.5493923 16843 ; 77400174d-1*t171*t175*t176*t177+2.943620900479655d-17*t 16844 < 169*t171*t173*t174)+3.0d+0*t180*t372+3.0d+0*t191*t347)+ 16845 = t53*(1.0d+0*rhob*t44*t47*(-6.518518518518519d+1*t327*t5 16846 > 6*t57*t6*taub+2.060352d-1*t166*t328*t48*t57*t6*taub-3.1 16847 ? 83787772928d-3*t323*t326*t48*t57*t6*taub-5.494272d-1*t1 16848 @ 64*t165*t166*t57*t6*taub+5.15088d-2*t13*t328*t48*t56*ta 16849 1 ub-2.0148148148148146d+2*gammabb*t15*t329*t56*taub-1.37 16850 2 3568d-1*t13*t164*t165*t56*taub+1.030176d-1*gammabb*t15* 16851 3 t166*t328*t55*taub-1.591893886464d-3*gammabb*t15*t323*t 16852 4 326*t55*taub-3.2592592592592595d+1*t13*t327*t53*taub-5. 16853 5 30631295488d-4*t13*t166*t323*t48*taub-8.241408d-1*gamma 16854 6 bb*t15*t165*t166*t167*taub-1.030176d-2*t166*t540*t58*t6 16855 7 -3.2798617527638757d-6*t536*t538*t58*t6+4.7756816593920 16856 8 004d-4*t165*t326*t328*t58*t6-1.777777777777778d+2*t167* 16857 9 t199*t56*t6-6.867840000000001d-1*t165*t166*t199*t55*t6- 16858 : 5.15088d-3*t13*t540*t56*t57-4.5629629629629626d+1*gamma 16859 ; bb*t15*t539*t56*t57-1.030176d-2*gammabb*t15*t166*t48*t5 16860 < 40*t57-3.2798617527638757d-6*gammabb*t15*t48*t536*t538* 16861 = t57-8.199654381909689d-7*t13*t326*t536*t57+4.7756816593 16862 > 920004d-4*gammabb*t15*t165*t326*t328*t48*t57+1.59189388 16863 ? 6464d-4*t13*t165*t166*t328*t57+8.241408d-2*gammabb*t15* 16864 @ t164*t166*t328*t57-3.0218496d-1*gammabb*t15*t165*t166*t 16865 1 327*t57-1.2735151091712002d-3*gammabb*t15*t164*t323*t32 16866 2 6*t57-2.477037037037037d+2*t11*t54*t541*t56-5.15088d-3* 16867 3 gammabb*t14*t48*t540*t56+4.120704d-2*gammabb*t14*t164*t 16868 4 328*t56-1.5109248d-1*gammabb*t14*t165*t327*t56-1.030176 16869 5 d-2*t11*t166*t54*t540*t55-3.2798617527638757d-6*t11*t53 16870 6 6*t538*t54*t55+4.7756816593920004d-4*t11*t165*t326*t328 16871 7 *t54*t55-1.0439116799999999d+0*t11*t165*t166*t329*t54+1 16872 8 .6482816d-1*t11*t166*t167*t328*t54-2.5470302183424004d- 16873 9 3*t11*t167*t323*t326*t54-4.5629629629629626d+1*gammabb* 16874 : t14*t53*t539-8.199654381909689d-7*gammabb*t14*t326*t48* 16875 ; t536+1.591893886464d-4*gammabb*t14*t165*t166*t328*t48-4 16876 < .245050363904d-4*gammabb*t14*t164*t166*t323)+1.0d+0*rho 16877 = b*t47*t546*t59-2.5d-1*gammabb*t44*t46*t537*t59+3.0d+0*t 16878 > 344*t47*t59+2.5d-1*gammabb*t344*t45*t46*t59+2.5d-1*gamm 16879 ? abb*t178*t324*t46*t59+3.0d+0*t330*t44*t47+3.0d+0*rhob*t 16880 @ 168*t344*t47+3.0d+0*rhob*t178*t330*t47+6.0d+0*t168*t178 16881 1 *t47+2.5d-1*gammabb*t330*t44*t45*t46+5.0d-1*gammabb*t16 16882 2 8*t178*t45*t46+2.5d-1*gammabb*t168*t324*t44*t46)+(-3.04 16883 3 966d-3*t104*t540*t91-3.04966d-3*t165*t347*t91-6.09932d- 16884 4 3*t180*t328*t91-6.09932d-3*t165*t373-3.04966d-3*t104*t1 16885 5 65*t372-3.04966d-3*t192*t328-6.09932d-3*t104*t191*t328- 16886 6 6.09932d-3*t165*t180*t191)*t97+t120*(3.72017044624d-5*t 16887 7 104*t165*t328*t91+1.86008522312d-5*t180*t323*t91-6.0993 16888 8 2d-3*t165*t374+1.86008522312d-5*t104*t191*t323)-1.70178 16889 9 82504620419d-7*t104*t224*t536*t91+t56*(-5.15088d-3*rhob 16890 : *t44*t47*t540*t59-1.030176d-2*t328*t44*t47*t59-5.15088d 16891 ; -3*rhob*t165*t344*t47*t59-1.030176d-2*rhob*t178*t328*t4 16892 < 7*t59-1.030176d-2*t165*t178*t47*t59-6.4386d-4*gammabb*t 16893 = 328*t44*t45*t46*t59-6.4386d-4*gammabb*t165*t178*t45*t46 16894 > *t59-6.4386d-4*gammabb*t165*t324*t44*t46*t59-5.15088d-3 16895 ? *rhob*t165*t330*t44*t47-1.030176d-2*rhob*t168*t328*t44* 16896 @ t47-1.030176d-2*t165*t168*t44*t47-1.030176d-2*rhob*t165 16897 1 *t168*t178*t47-6.4386d-4*gammabb*t165*t168*t44*t45*t46- 16898 2 1.030176d-2*t165*t345-5.15088d-3*t179*t328)+t166*(1.061 16899 3 262590976d-4*rhob*t165*t328*t44*t47*t59+5.30631295488d- 16900 4 5*t323*t44*t47*t59+5.30631295488d-5*rhob*t178*t323*t47* 16901 5 t59+5.30631295488d-5*rhob*t168*t323*t44*t47-1.030176d-2 16902 6 *t165*t346)+t45*t46*t56*(-1.28772d-3*gammabb*t328*t44*t 16903 7 59-1.28772d-3*gammabb*t165*t178*t59-1.28772d-3*gammabb* 16904 8 t165*t168*t44-5.15088d-3*t165*t325)+t45*t46*t53*(1.25d- 16905 9 1*gammabb*t344*t59+1.25d-1*gammabb*t330*t44+2.5d-1*gamm 16906 : abb*t168*t178)+t324*t46*t53*(-2.5d-1*gammabb*t178*t59-2 16907 ; .5d-1*gammabb*t168*t44)+1.93158d-3*gammabb*t165*t324*t4 16908 < 4*t46*t56*t59+2.5d-1*gammabb*t44*t46*t53*t537*t59-8.199 16909 = 654381909689d-7*rhob*t326*t44*t47*t536*t59+1.9898673580 16910 > 800003d-5*gammabb*t166*t323*t44*t45*t46*t59)*wght+Amat3 16911 ? (iq,D3_RB_RB_RB) 16912 Cmat3(iq,D3_RA_RA_GAA) = Cmat3(iq,D3_RA_RA_GAA) 16913 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 16914 Cmat3(iq,D3_RA_RA_GBB) = (t93*(1.0d+0*t91*(-6.807153001848 16915 1 166d-105*t219*t412*t48*t95*t98*t99+1.4880681784959998d- 16916 2 53*t220*t224*t48*t95*t98*t99+1.302059656184d-102*t219*t 16917 3 224*t48*t98*t99-2.7108088888888887d-51*t120*t220*t48*t9 16918 4 8*t99-1.7017882504620419d-105*t103*t219*t224*t48*t99+7. 16919 5 440340892480001d-103*t100*t219*t224*t48*t99+4.960227261 16920 6 6533327d-54*t103*t120*t220*t48*t99-1.0843235555555554d- 16921 7 51*t100*t120*t220*t48*t99+8.888888888888888d-50*t220*t4 16922 8 8*t97*t98+3.7201704462400004d-103*t219*t224*t48*t95*t98 16923 9 -5.421617777777777d-52*t120*t220*t48*t95*t98-6.77702222 16924 : 2222223d-101*t120*t219*t48*t98+3.555555555555555d-49*t2 16925 ; 20*t48*t94*t97-2.7108088888888887d-52*t103*t220*t48*t97 16926 < -1.3554044444444444d-51*t102*t220*t48*t97-6.80715300184 16927 = 8166d-105*t219*t412*t48*t94*t96+1.4880681784959998d-53* 16928 > t220*t224*t48*t94*t96+2.604119312368d-102*t219*t224*t48 16929 ? *t94*t95-5.421617777777777d-51*t120*t220*t48*t94*t95-1. 16930 @ 7017882504620419d-105*t102*t219*t224*t48*t95+4.96022726 16931 1 16533327d-54*t102*t120*t220*t48*t95-2.168647111111111d- 16932 2 100*t120*t219*t48*t94-6.807153001848166d-105*t100*t101* 16933 3 t219*t412*t48+1.4880681784959998d-53*t100*t101*t220*t22 16934 4 4*t48+1.2400568154133333d-103*t103*t120*t219*t48+4.3401 16935 5 98853946667d-103*t102*t120*t219*t48-1.3554044444444444d 16936 6 -101*t100*t120*t219*t48)+2.0d+0*t162*t375+1.0d+0*t195*t 16937 7 306)+t117*(3.04966d-52*t375*t91+3.04966d-52*t376+3.0496 16938 8 6d-52*t162*t195)*t97-8.132426666666666d-52*t195*t220*t9 16939 9 1*t97-3.04966d-3*t307*t48*t97-1.7017882504620419d-105*t 16940 : 104*t219*t224*t48*t91+4.9602272616533327d-54*t104*t120* 16941 ; t220*t48*t91+1.86008522312d-103*t120*t195*t219*t91-6.09 16942 < 932d-3*t117*t120*t308*t48)*wght+Cmat3(iq,D3_RA_RA_GBB) 16943 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 16944 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 16945 Cmat3(iq,D3_RA_RB_GBB) = (t93*(1.0d+0*t91*(3.7201704462400 16946 1 004d-53*t100*t117*t224*t55*t99*taub+1.8600852231200002d 16947 2 -53*t117*t224*t55*t95*t98*taub-3.388511111111111d-51*t1 16948 3 17*t120*t55*t98*taub+6.200284077066668d-54*t103*t117*t1 16949 4 20*t55*taub-1.3554044444444444d-51*t100*t117*t120*t55*t 16950 5 aub+6.807153001848169d-56*t117*t165*t412*t48*t95*t98*t9 16951 6 9+1.488068178496d-53*t117*t164*t224*t95*t98*t99-9.30042 16952 7 6115600001d-54*t117*t165*t224*t48*t98*t99+1.48806817849 16953 8 59998d-53*gammabb*t117*t167*t224*t98*t99-2.710808888888 16954 9 8887d-51*t117*t120*t164*t98*t99+1.7017882504620419d-56* 16955 : t103*t117*t165*t224*t48*t99-3.7201704462400004d-54*t100 16956 ; *t117*t165*t224*t48*t99+4.9602272616533327d-54*t103*t11 16957 < 7*t120*t164*t99-1.0843235555555555d-51*t100*t117*t120*t 16958 = 164*t99+8.888888888888888d-50*t117*t164*t97*t98-1.86008 16959 > 52231200002d-54*t117*t165*t224*t48*t95*t98-5.4216177777 16960 ? 77777d-52*t117*t120*t164*t95*t98+2.0331066666666667d-52 16961 @ *t117*t120*t165*t48*t98-5.421617777777777d-52*gammabb*t 16962 1 117*t120*t167*t98+3.555555555555555d-49*t117*t164*t94*t 16963 2 97-2.7108088888888887d-52*t103*t117*t164*t97-1.35540444 16964 3 44444444d-51*t102*t117*t164*t97+6.807153001848169d-56*t 16965 4 117*t165*t412*t48*t94*t96+1.488068178496d-53*t117*t164* 16966 5 t224*t94*t96-1.8600852231200002d-53*t117*t165*t224*t48* 16967 6 t94*t95+2.9761363569919996d-53*gammabb*t117*t167*t224*t 16968 7 94*t95-5.421617777777777d-51*t117*t120*t164*t94*t95+1.7 16969 8 017882504620419d-56*t102*t117*t165*t224*t48*t95+4.96022 16970 9 72616533327d-54*t102*t117*t120*t164*t95+8.1324266666666 16971 : 67d-52*t117*t120*t165*t48*t94-5.421617777777777d-51*gam 16972 ; mabb*t117*t120*t167*t94+6.807153001848169d-56*t100*t101 16973 < *t117*t165*t412*t48-6.200284077066667d-55*t103*t117*t12 16974 = 0*t165*t48-3.1001420385333334d-54*t102*t117*t120*t165*t 16975 > 48+1.488068178496d-53*t100*t101*t117*t164*t224+4.960227 16976 ? 2616533327d-54*gammabb*t102*t117*t120*t167)+1.0d+0*t162 16977 @ *t382+1.0d+0*t191*t375+1.0d+0*t195*t320)+t117*(3.04966d 16978 1 -52*t382*t91+3.04966d-52*t191*t195)*t97-3.04966d-3*t321 16979 2 *t48*t97-3.04966d-3*t165*t376*t97+8.132426666666667d-3* 16980 3 t163*t164*t97+1.7017882504620419d-56*t104*t117*t165*t22 16981 4 4*t48*t91-1.86008522312d-54*t117*t120*t165*t195*t91+4.9 16982 5 602272616533327d-54*t104*t117*t120*t164*t91-6.09932d-3* 16983 6 t117*t120*t322*t48+1.86008522312d-5*t120*t163*t165*t48) 16984 7 *wght+Cmat3(iq,D3_RA_RB_GBB) 16985 Cmat3(iq,D3_RB_RB_GAA) = Cmat3(iq,D3_RB_RB_GAA) 16986 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 16987 Cmat3(iq,D3_RB_RB_GBB) = (t93*(1.0d+0*t91*(-7.440340892480 16988 1 001d-4*t100*t165*t224*t55*t99*taub-3.252970666666667d-1 16989 2 *t100*t120*t167*t99*taub+2.6666666666666666d+1*t167*t97 16990 3 *t98*taub-3.7201704462400004d-4*t165*t224*t55*t95*t98*t 16991 4 aub-1.6264853333333334d-1*t120*t167*t95*t98*taub+4.0662 16992 5 13333333334d-2*t120*t165*t55*t98*taub-1.084323555555555 16993 6 7d-1*gammabb*t120*t378*t98*taub-8.132426666666668d-2*t1 16994 7 03*t167*t97*taub-1.2400568154133336d-4*t103*t120*t165*t 16995 8 55*taub+9.777777777777779d+0*t327*t97*t98*t99-6.8071530 16996 9 01848167d-7*t323*t412*t48*t95*t98*t99+5.580255669360001 16997 : d-5*t224*t328*t48*t95*t98*t99-5.963779555555556d-2*t120 16998 ; *t327*t95*t98*t99-2.976136356992001d-4*t164*t165*t224*t 16999 < 95*t98*t99-6.09932d-3*t120*t328*t48*t98*t99+5.580255669 17000 = 360001d-5*t224*t323*t48*t98*t99-1.4638368d-1*gammabb*t1 17001 > 20*t329*t98*t99-2.976136356992d-4*gammabb*t165*t167*t22 17002 ? 4*t98*t99+3.2529706666666663d-2*t120*t164*t165*t98*t99- 17003 @ 2.981889777777778d-2*t103*t327*t97*t99+1.86008522312d-5 17004 1 *t103*t120*t328*t48*t99-1.7017882504620419d-7*t103*t224 17005 2 *t323*t48*t99-9.920454523306665d-5*t103*t120*t164*t165* 17006 3 t99+1.9555555555555557d+1*t327*t94*t95*t97-2.9818897777 17007 4 77778d-2*t102*t327*t95*t97+48*gammabb*t329*t94*t97-3.04 17008 5 966d-3*t102*t328*t48*t97-7.319184d-2*gammabb*t102*t329* 17009 6 t97+1.6264853333333332d-2*t102*t164*t165*t97-6.80715300 17010 7 1848167d-7*t323*t412*t48*t94*t96+5.580255669360001d-5*t 17011 8 224*t328*t48*t94*t96-5.963779555555556d-2*t120*t327*t94 17012 9 *t96-2.976136356992001d-4*t164*t165*t224*t94*t96-1.2198 17013 : 64d-2*t120*t328*t48*t94*t95+1.1160511338720001d-4*t224* 17014 ; t323*t48*t94*t95-2.9276736d-1*gammabb*t120*t329*t94*t95 17015 < -5.952272713984d-4*gammabb*t165*t167*t224*t94*t95+6.505 17016 = 941333333333d-2*t120*t164*t165*t94*t95+1.86008522312d-5 17017 > *t102*t120*t328*t48*t95-1.7017882504620419d-7*t102*t224 17018 ? *t323*t48*t95-9.920454523306665d-5*t102*t120*t164*t165* 17019 @ t95-8.674588444444443d-2*t120*t54*t556*t94+6.5059413333 17020 1 33333d-2*gammabb*t120*t165*t167*t94+9.777777777777779d+ 17021 2 0*t102*t327*t93-6.807153001848167d-7*t100*t101*t323*t41 17022 3 2*t48+5.580255669360001d-5*t100*t101*t224*t328*t48+1.86 17023 4 008522312d-5*t102*t120*t323*t48-5.963779555555556d-2*t1 17024 5 00*t101*t120*t327-2.976136356992001d-4*t100*t101*t164*t 17025 6 165*t224-1.3554044444444446d-1*t100*t120*t193*t199-9.92 17026 7 0454523306665d-5*gammabb*t102*t120*t165*t167)+2.0d+0*t1 17027 8 91*t382+1.0d+0*t195*t372)+t53*(1.0d+0*rhob*t44*t47*(-2. 17028 9 122525181952d-3*t165*t326*t55*t57*t6*taub-5.494272d-1*t 17029 : 166*t167*t57*t6*taub+2.6666666666666666d+1*t15*t167*t56 17030 ; *taub-1.373568d-1*t13*t167*t56*taub+6.867840000000001d- 17031 < 2*t15*t165*t166*t55*taub-3.53754196992d-4*t13*t165*t166 17032 = *t55*taub-4.57856d-1*gammabb*t15*t166*t378*taub-1.06126 17033 > 2590976d-3*gammabb*t15*t165*t193*t326*taub-3.2798617527 17034 ? 638757d-6*t323*t48*t538*t58*t6+1.591893886464d-4*t326*t 17035 @ 328*t48*t58*t6-1.0072832000000001d-1*t166*t327*t58*t6-8 17036 1 .490100727808d-4*t164*t165*t326*t58*t6-2.28928000000000 17037 2 02d-1*t166*t193*t199*t6+9.777777777777779d+0*t15*t327*t 17038 3 56*t57-5.036416d-2*t13*t327*t56*t57-3.2798617527638757d 17039 4 -6*gammabb*t15*t323*t538*t55*t57+1.591893886464d-4*gamm 17040 5 abb*t15*t326*t328*t55*t57-1.030176d-2*t15*t166*t328*t48 17041 6 *t57+5.30631295488d-5*t13*t166*t328*t48*t57+1.591893886 17042 7 464d-4*t15*t323*t326*t48*t57-8.199654381909689d-7*t13*t 17043 8 323*t326*t48*t57-3.4797056000000004d-1*gammabb*t15*t166 17044 9 *t329*t57-1.6980201455616d-3*gammabb*t15*t165*t167*t326 17045 : *t57+5.494272d-2*t15*t164*t165*t166*t57-2.830033575936d 17046 ; -4*t13*t164*t165*t166*t57-5.15088d-3*t14*t328*t48*t56-1 17047 < .7398528000000002d-1*gammabb*t14*t329*t56+6.75555555555 17048 = 5556d+1*gammabb*t11*t329*t56+2.747136d-2*t14*t164*t165* 17049 > t56-7.4172672d-1*t11*t166*t54*t556+5.30631295488d-5*gam 17050 ? mabb*t14*t166*t328*t55-2.060352d-2*gammabb*t11*t166*t32 17051 @ 8*t55-8.199654381909689d-7*gammabb*t14*t323*t326*t55+3. 17052 1 183787772928d-4*gammabb*t11*t323*t326*t55-3.27986175276 17053 2 38757d-6*t11*t193*t323*t538*t54-2.5470302183424004d-3*t 17054 3 11*t165*t326*t378*t54+1.591893886464d-4*t11*t193*t326*t 17055 4 328*t54+9.777777777777779d+0*t14*t327*t53+5.30631295488 17056 5 d-5*t14*t166*t323*t48-5.660067151872d-4*gammabb*t14*t16 17057 6 5*t166*t167+2.1977088d-1*gammabb*t11*t165*t166*t167)-1. 17058 7 25d-1*t178*t45*t46*t59+1.25d-1*t324*t44*t46*t59-1.25d-1 17059 8 *t344*t46*t59+2.0d+0*t379*t44*t47+2.0d+0*rhob*t178*t379 17060 9 *t47+1.0d+0*rhob*t194*t344*t47+2.0d+0*t178*t194*t47+1.2 17061 : 5d-1*gammabb*t379*t44*t45*t46-1.25d-1*t168*t44*t45*t46+ 17062 ; 1.25d-1*gammabb*t178*t194*t45*t46-1.25d-1*t330*t44*t46+ 17063 < 1.25d-1*gammabb*t194*t324*t44*t46-2.5d-1*t168*t178*t46) 17064 = +(-3.04966d-3*t165*t382*t91-3.04966d-3*t195*t328*t91-2. 17065 > 981889777777778d-2*t104*t327*t91+8.132426666666667d-3*t 17066 ? 164*t180*t91-3.04966d-3*t165*t383-3.04966d-3*t165*t191* 17067 @ t195+8.132426666666667d-3*t164*t192+8.132426666666667d- 17068 1 3*t104*t164*t191)*t97-3.04966d-3*t373*t48*t97-1.7017882 17069 2 504620419d-7*t104*t224*t323*t48*t91+1.86008522312d-5*t1 17070 3 20*t195*t323*t91-9.920454523306665d-5*t104*t120*t164*t1 17071 4 65*t91+t56*(1.373568d-2*t178*t47*t48*t59-3.662848000000 17072 5 001d-2*t164*t44*t47*t59+6.4386d-4*t165*t44*t45*t46*t59+ 17073 6 6.4386d-4*t328*t44*t46*t59+6.4386d-4*t165*t178*t46*t59+ 17074 7 1.373568d-2*t168*t44*t47*t48-5.15088d-3*rhob*t165*t379* 17075 8 t44*t47-5.15088d-3*rhob*t194*t328*t44*t47-5.15088d-3*t1 17076 9 65*t194*t44*t47-5.15088d-3*rhob*t165*t178*t194*t47+6.43 17077 : 86d-4*t165*t168*t44*t46-5.15088d-3*t165*t380+1.373568d- 17078 ; 2*t164*t179)+t166*t48*(-2.830033575936d-4*t165*t44*t47* 17079 < t59-1.030176d-2*t346)+t45*t46*t56*(-1.28772d-3*t165*t44 17080 = *t59-1.28772d-3*gammabb*t165*t194*t44)+t45*t46*t53*(1.2 17081 > 5d-1*t178*t59+1.25d-1*gammabb*t379*t44+1.25d-1*t168*t44 17082 ? +1.25d-1*gammabb*t178*t194)+4.07778d-3*gammabb*t327*t44 17083 @ *t46*t56*t59-8.199654381909689d-7*t323*t326*t44*t47*t50 17084 1 *t59-6.6328911936d-6*t166*t323*t44*t46*t59+1.3265782387 17085 2 2d-5*gammabb*t164*t165*t166*t44*t46*t59-5.15088d-3*t345 17086 3 *t48*t56-5.15088d-3*t164*t325*t46*t56+t324*t46*t53*t555 17087 4 -6.09932d-3*t120*t374*t48+5.30631295488d-5*rhob*t166*t1 17088 5 94*t323*t44*t47)*wght+Cmat3(iq,D3_RB_RB_GBB) 17089 Cmat3(iq,D3_RA_GAA_GAA) = Cmat3(iq,D3_RA_GAA_GAA) 17090 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 17091 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 17092 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 17093 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 17094 Cmat3(iq,D3_RA_GBB_GBB) = (t93*(1.0d+0*t91*(6.807153001848 17095 1 169d-56*t117*t412*t55*t95*t98*t99-1.488068178496d-53*t1 17096 2 17*t224*t55*t98*t99+1.7017882504620419d-56*t103*t117*t2 17097 3 24*t55*t99-3.7201704462400004d-54*t100*t117*t224*t55*t9 17098 4 9-1.8600852231200002d-54*t117*t224*t55*t95*t98+4.066213 17099 5 3333333333d-52*t117*t120*t55*t98+6.807153001848169d-56* 17100 6 t117*t412*t55*t94*t96-2.976136356992d-53*t117*t224*t55* 17101 7 t94*t95+1.7017882504620419d-56*t102*t117*t224*t55*t95+2 17102 8 .8463493333333334d-51*t117*t120*t55*t94+6.8071530018481 17103 9 69d-56*t100*t101*t117*t412*t55-6.200284077066667d-55*t1 17104 : 03*t117*t120*t55-4.960227261653333d-54*t102*t117*t120*t 17105 ; 55)+1.0d+0*t162*t386)+3.04966d-52*t117*t386*t91*t97-6.0 17106 < 9932d-3*t376*t48*t97+1.7017882504620419d-56*t104*t117*t 17107 = 224*t55*t91-3.72017044624d-54*t117*t120*t195*t48*t91+1. 17108 > 86008522312d-5*t120*t163*t55)*wght+Cmat3(iq,D3_RA_GBB_G 17109 ? BB) 17110 Cmat3(iq,D3_RB_GAA_GAA) = Cmat3(iq,D3_RB_GAA_GAA) 17111 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 17112 Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB) 17113 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 17114 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 17115 Cmat3(iq,D3_RB_GBB_GBB) = (t93*(1.0d+0*t91*(-3.72017044624 17116 1 00004d-4*t100*t193*t224*t99*taub-1.8600852231200002d-4* 17117 2 t193*t224*t95*t98*taub+4.066213333333334d-2*t120*t193*t 17118 3 98*taub-6.200284077066668d-5*t103*t120*t193*taub-6.8071 17119 4 53001848167d-7*t165*t412*t55*t95*t98*t99-2.976136356992 17120 5 001d-4*t167*t224*t95*t98*t99+1.1160511338720001d-4*t165 17121 6 *t224*t55*t98*t99-1.488068178496d-4*gammabb*t224*t378*t 17122 7 98*t99+6.505941333333333d-2*t120*t167*t98*t99-1.7017882 17123 8 504620419d-7*t103*t165*t224*t55*t99-9.920454523306665d- 17124 9 5*t103*t120*t167*t99-1.0666666666666666d+1*t167*t94*t97 17125 : +3.2529706666666663d-2*t102*t167*t97-6.807153001848167d 17126 ; -7*t165*t412*t55*t94*t96-2.976136356992001d-4*t167*t224 17127 < *t94*t96+2.2321022677440003d-4*t165*t224*t55*t94*t95-2. 17128 = 976136356992d-4*gammabb*t224*t378*t94*t95+1.30118826666 17129 > 66666d-1*t120*t167*t94*t95-1.7017882504620419d-7*t102*t 17130 ? 165*t224*t55*t95-9.920454523306665d-5*t102*t120*t167*t9 17131 @ 5-1.219864d-2*t120*t165*t55*t94+6.505941333333333d-2*ga 17132 1 mmabb*t120*t378*t94-6.807153001848167d-7*t100*t101*t165 17133 2 *t412*t55+3.72017044624d-5*t102*t120*t165*t55-4.9602272 17134 3 616533327d-5*gammabb*t102*t120*t378-2.976136356992001d- 17135 4 4*t100*t101*t167*t224)+1.0d+0*t191*t386)+t53*(1.0d+0*rh 17136 5 ob*t44*t47*(-1.061262590976d-3*t193*t326*t57*t6*taub-5. 17137 6 30631295488d-4*gammabb*t15*t326*t384*taub+6.86784000000 17138 7 0001d-2*t15*t166*t193*taub-1.76877098496d-4*t13*t166*t1 17139 8 93*taub-3.2798617527638757d-6*t165*t538*t55*t58*t6-8.49 17140 9 0100727808d-4*t167*t326*t58*t6+3.183787772928d-4*t15*t1 17141 : 65*t326*t55*t57-8.199654381909689d-7*t13*t165*t326*t55* 17142 ; t57-3.2798617527638757d-6*gammabb*t15*t165*t193*t538*t5 17143 < 7-1.2735151091712002d-3*gammabb*t15*t326*t378*t57+1.098 17144 = 8544d-1*t15*t166*t167*t57-2.830033575936d-4*t13*t166*t1 17145 > 67*t57+5.494272d-2*t14*t167*t56-1.0666666666666666d+1*t 17146 ? 11*t167*t56+1.061262590976d-4*t14*t165*t166*t55-2.06035 17147 @ 2d-2*t11*t165*t166*t55-3.2798617527638757d-6*t11*t165*t 17148 1 384*t538*t54-1.6980201455616d-3*t11*t326*t54/rhob**1.16 17149 2 66666666666665d+1-4.245050363904d-4*gammabb*t14*t166*t3 17150 3 78+3.2965632d-1*gammabb*t11*t166*t378-8.199654381909689 17151 4 d-7*gammabb*t14*t165*t193*t326+6.367575545856d-4*gammab 17152 5 b*t11*t165*t193*t326)+1.0d+0*t385*t44*t47+1.0d+0*rhob*t 17153 6 178*t385*t47-2.5d-1*t194*t44*t45*t46-2.5d-1*t379*t44*t4 17154 7 6-2.5d-1*t178*t194*t46)-3.04966d-3*t165*t386*t91*t97+1. 17155 8 6264853333333332d-2*t164*t195*t91*t97-6.09932d-3*t383*t 17156 9 48*t97-1.7017882504620419d-7*t104*t165*t224*t55*t91+3.7 17157 : 2017044624d-5*t120*t165*t195*t48*t91-9.920454523306665d 17158 ; -5*t104*t120*t167*t91+t166*t55*(-1.415016787968d-4*t44* 17159 < t47*t59-1.030176d-2*t381)+t48*t56*(-1.7169600000000002d 17160 = -3*t44*t45*t46*t59+t558+2.747136d-2*t194*t44*t47)+t164* 17161 > t46*t56*(-2.3608200000000001d-3*t44*t59-6.4386d-4*gamma 17162 ? bb*t194*t44-5.15088d-3*t377)-1.32657823872d-5*t165*t166 17163 @ *t44*t46*t48*t59-8.199654381909689d-7*t165*t197*t326*t4 17164 1 4*t47*t59+6.6328911936d-6*gammabb*t166*t167*t44*t46*t59 17165 2 -5.15088d-3*rhob*t165*t385*t44*t47*t56+1.28772d-3*t165* 17166 3 t194*t44*t46*t56+t45*t46*t53*t557+1.86008522312d-5*t120 17167 4 *t192*t55+1.061262590976d-4*t165*t166*t194*t44*t47*t50) 17168 5 *wght+Cmat3(iq,D3_RB_GBB_GBB) 17169 Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA) 17170 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 17171 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 17172 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 17173 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 17174 Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB) 17175 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 17176 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 17177 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 17178 Cmat3(iq,D3_GBB_GBB_GBB) = (1.0d+0*t91*t93*(-6.80715300184 17179 1 8167d-7*t193*t412*t95*t98*t99+1.6740767008080004d-4*t19 17180 2 3*t224*t98*t99-1.7017882504620419d-7*t103*t193*t224*t99 17181 3 -6.807153001848167d-7*t193*t412*t94*t96+3.3481534016160 17182 4 01d-4*t193*t224*t94*t95-1.7017882504620419d-7*t102*t193 17183 5 *t224*t95-3.6595920000000004d-2*t120*t193*t94-6.8071530 17184 6 01848167d-7*t100*t101*t193*t412+5.580255669359999d-5*t1 17185 7 02*t120*t193)-9.148980000000001d-3*t386*t48*t91*t97+5.5 17186 8 80255669359999d-5*t120*t195*t55*t91-1.7017882504620419d 17187 9 -7*t104*t193*t224*t91+1.0d+0*rhob*t44*t47*t53*(-3.27986 17188 : 17527638757d-6*t193*t538*t58*t6-3.2798617527638757d-6*g 17189 ; ammabb*t15*t384*t538*t57+4.7756816593920004d-4*t15*t193 17190 < *t326*t57-8.199654381909689d-7*t13*t193*t326*t57-3.2798 17191 = 617527638757d-6*t11*t538*t54/rhob**1.3333333333333333d+ 17192 > 1-8.199654381909689d-7*gammabb*t14*t326*t384+9.55136331 17193 ? 8784001d-4*gammabb*t11*t326*t384+1.591893886464d-4*t14* 17194 @ t166*t193-6.181056d-2*t11*t166*t193)-1.9898673580800003 17195 1 d-5*t166*t44*t46*t55*t59-8.199654381909689d-7*t196*t326 17196 2 *t44*t47*t59-1.545264d-2*t385*t44*t47*t50*t56+3.86316d- 17197 3 3*t194*t44*t46*t48*t56-3.75d-1*t385*t44*t46*t53+1.59189 17198 4 3886464d-4*t166*t194*t197*t44*t47)*wght+Cmat3(iq,D3_GBB 17199 5 _GBB_GBB) 17200 Mmat3(iq,D3_RA_RA_TA) = Mmat3(iq,D3_RA_RA_TA) 17201 Mmat3(iq,D3_RA_RA_TB) = (t93*(1.0d+0*t91*(-1.3614306003696 17202 1 333d-104*t219*t412*t50*t95*t98*t99+2.9761363569919996d- 17203 2 53*t220*t224*t50*t95*t98*t99+1.488068178496d-102*t219*t 17204 3 224*t50*t98*t99-2.1686471111111108d-51*t120*t220*t50*t9 17205 4 8*t99-3.4035765009240837d-105*t103*t219*t224*t50*t99+3. 17206 5 72017044624d-102*t100*t219*t224*t50*t99+9.9204545233066 17207 6 65d-54*t103*t120*t220*t50*t99-8.674588444444443d-51*t10 17208 7 0*t120*t220*t50*t99+3.555555555555555d-49*t220*t50*t97* 17209 8 t98+1.86008522312d-102*t219*t224*t50*t95*t98-4.33729422 17210 9 22222216d-51*t120*t220*t50*t95*t98-2.168647111111111d-1 17211 : 00*t120*t219*t50*t98-2.1686471111111108d-51*t103*t220*t 17212 ; 50*t97-1.0843235555555554d-51*t102*t220*t50*t97+3.55555 17213 < 5555555555d-49*t100*t220*t50*t97-1.3614306003696333d-10 17214 = 4*t219*t412*t50*t94*t96+2.9761363569919996d-53*t220*t22 17215 > 4*t50*t94*t96+2.976136356992d-102*t219*t224*t50*t94*t95 17216 ? -4.3372942222222216d-51*t120*t220*t50*t94*t95-3.4035765 17217 @ 009240837d-105*t102*t219*t224*t50*t95+9.920454523306665 17218 1 d-54*t102*t120*t220*t50*t95-1.0843235555555555d-100*t12 17219 2 0*t219*t50*t94-1.3614306003696333d-104*t100*t101*t219*t 17220 3 412*t50+2.9761363569919996d-53*t100*t101*t220*t224*t50+ 17221 4 6.200284077066666d-103*t103*t120*t219*t50+4.96022726165 17222 5 3333d-103*t102*t120*t219*t50-1.8975662222222223d-100*t1 17223 6 00*t120*t219*t50)+2.0d+0*t162*t387+1.0d+0*t201*t306)+t1 17224 7 17*(3.04966d-52*t387*t91+3.04966d-52*t388+3.04966d-52*t 17225 8 162*t201)*t97-8.132426666666666d-52*t201*t220*t91*t97-6 17226 9 .09932d-3*t307*t50*t97-3.4035765009240837d-105*t104*t21 17227 : 9*t224*t50*t91+9.920454523306665d-54*t104*t120*t220*t50 17228 ; *t91+1.86008522312d-103*t120*t201*t219*t91-1.219864d-2* 17229 < t117*t120*t308*t50)*wght+Mmat3(iq,D3_RA_RA_TB) 17230 Mmat3(iq,D3_RA_RB_TA) = Mmat3(iq,D3_RA_RB_TA) 17231 Mmat3(iq,D3_RA_RB_TB) = (t93*(1.0d+0*t91*(7.44034089248000 17232 1 1d-53*t100*t117*t197*t224*t99*taub+3.7201704462400004d- 17233 2 53*t117*t197*t224*t95*t98*taub-2.7108088888888887d-51*t 17234 3 117*t120*t197*t98*taub+1.2400568154133336d-53*t103*t117 17235 4 *t120*t197*taub-1.0843235555555557d-50*t100*t117*t120*t 17236 5 197*taub+1.361430600369634d-55*t117*t165*t412*t50*t95*t 17237 6 98*t99+1.8600852231200005d-53*t117*t224*t48*t95*t98*t99 17238 7 +2.9761363569919996d-53*gammabb*t117*t224*t55*t98*t99-7 17239 8 .440340892480001d-54*t117*t165*t224*t50*t98*t99-1.35540 17240 9 44444444446d-51*t117*t120*t48*t98*t99+3.403576500924083 17241 : 7d-56*t103*t117*t165*t224*t50*t99-2.976136356992d-53*t1 17242 ; 00*t117*t165*t224*t50*t99+6.200284077066667d-54*t103*t1 17243 < 17*t120*t48*t99-5.421617777777779d-51*t100*t117*t120*t4 17244 = 8*t99+2.222222222222222d-49*t117*t48*t97*t98-1.48806817 17245 > 8496d-53*t117*t165*t224*t50*t95*t98-2.710808888888889d- 17246 ? 51*t117*t120*t48*t95*t98-4.3372942222222216d-51*gammabb 17247 @ *t117*t120*t55*t98+8.132426666666667d-52*t117*t120*t165 17248 1 *t50*t98-1.3554044444444446d-51*t103*t117*t48*t97-6.777 17249 2 022222222223d-52*t102*t117*t48*t97+2.222222222222222d-4 17250 3 9*t100*t117*t48*t97+1.361430600369634d-55*t117*t165*t41 17251 4 2*t50*t94*t96+1.8600852231200005d-53*t117*t224*t48*t94* 17252 5 t96+5.952272713983999d-53*gammabb*t117*t224*t55*t94*t95 17253 6 -1.488068178496d-53*t117*t165*t224*t50*t94*t95-2.710808 17254 7 888888889d-51*t117*t120*t48*t94*t95+3.4035765009240837d 17255 8 -56*t102*t117*t165*t224*t50*t95+6.200284077066667d-54*t 17256 9 102*t117*t120*t48*t95-4.3372942222222216d-51*gammabb*t1 17257 : 17*t120*t55*t94+9.920454523306665d-54*gammabb*t102*t117 17258 ; *t120*t55+1.361430600369634d-55*t100*t101*t117*t165*t41 17259 < 2*t50-4.960227261653333d-54*t103*t117*t120*t165*t50-2.4 17260 = 801136308266666d-54*t102*t117*t120*t165*t50+8.132426666 17261 > 666667d-52*t100*t117*t120*t165*t50+1.8600852231200005d- 17262 ? 53*t100*t101*t117*t224*t48)+1.0d+0*t162*t391+1.0d+0*t19 17263 @ 1*t387+1.0d+0*t201*t320)+t117*(3.04966d-52*t391*t91+3.0 17264 1 4966d-52*t191*t201)*t97-6.09932d-3*t321*t50*t97+1.01655 17265 2 33333333335d-2*t163*t48*t97-3.04966d-3*t165*t388*t97+3. 17266 3 4035765009240837d-56*t104*t117*t165*t224*t50*t91+6.2002 17267 4 84077066667d-54*t104*t117*t120*t48*t91-1.86008522312d-5 17268 5 4*t117*t120*t165*t201*t91-1.219864d-2*t117*t120*t322*t5 17269 6 0+3.72017044624d-5*t120*t163*t165*t50)*wght+Mmat3(iq,D3 17270 7 _RA_RB_TB) 17271 Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA) 17272 Mmat3(iq,D3_RB_RB_TB) = (t93*(1.0d+0*t91*(-4.8794560000000 17273 1 01d-1*t100*t120*t55*t99*taub-1.4880681784960004d-3*t100 17274 2 *t165*t197*t224*t99*taub-2.4397280000000005d-1*t120*t55 17275 3 *t95*t98*taub-7.440340892480001d-4*t165*t197*t224*t95*t 17276 4 98*taub-2.1686471111111114d-1*gammabb*t120*t193*t98*tau 17277 5 b-1.2198640000000002d-1*t103*t55*t97*taub+8.0d+1*t100*t 17278 6 55*t97*taub-2.4801136308266672d-4*t103*t120*t165*t197*t 17279 7 aub+1.6264853333333334d-1*t100*t120*t165*t197*taub-1.36 17280 8 14306003696336d-6*t323*t412*t50*t95*t98*t99+1.116051133 17281 9 8720001d-4*t224*t328*t50*t95*t98*t99-3.7201704462400004 17282 : d-4*t165*t224*t48*t95*t98*t99-5.421617777777779d-2*t120 17283 ; *t164*t95*t98*t99-5.952272713984d-4*gammabb*t165*t224*t 17284 < 55*t98*t99-2.2770794666666666d-1*gammabb*t120*t167*t98* 17285 = t99-2.710808888888889d-2*t103*t164*t97*t99+1.7777777777 17286 > 777778d+1*t100*t164*t97*t99+3.72017044624d-5*t103*t120* 17287 ? t328*t50*t99-2.439728d-2*t100*t120*t328*t50*t99-3.40357 17288 @ 65009240837d-7*t103*t224*t323*t50*t99+2.232102267744000 17289 1 3d-4*t100*t224*t323*t50*t99-1.2400568154133333d-4*t103* 17290 2 t120*t165*t48*t99+8.132426666666668d-2*t100*t120*t165*t 17291 3 48*t99+8.88888888888889d+0*t164*t95*t97*t98+3.733333333 17292 4 3333335d+1*gammabb*t167*t97*t98-1.219864d-2*t120*t328*t 17293 5 50*t95*t98+1.1160511338720001d-4*t224*t323*t50*t95*t98+ 17294 6 4.066213333333334d-2*t120*t165*t48*t95*t98+6.5059413333 17295 7 33333d-2*gammabb*t120*t165*t55*t98-2.710808888888889d-2 17296 8 *t102*t164*t95*t97-6.09932d-3*t103*t328*t50*t97+2.03310 17297 9 6666666667d-2*t103*t165*t48*t97-1.1385397333333333d-1*g 17298 : ammabb*t102*t167*t97-1.3614306003696336d-6*t323*t412*t5 17299 ; 0*t94*t96+1.1160511338720001d-4*t224*t328*t50*t94*t96-3 17300 < .7201704462400004d-4*t165*t224*t48*t94*t96-5.4216177777 17301 = 77779d-2*t120*t164*t94*t96-1.1904545427968d-3*gammabb*t 17302 > 165*t224*t55*t94*t95-4.554158933333333d-1*gammabb*t120* 17303 ? t167*t94*t95+3.72017044624d-5*t102*t120*t328*t50*t95-3. 17304 @ 4035765009240837d-7*t102*t224*t323*t50*t95-1.2400568154 17305 1 133333d-4*t102*t120*t165*t48*t95-1.7349176888888887d-1* 17306 2 t120*t378*t54*t94+8.88888888888889d+0*t103*t164*t93-1.9 17307 3 84090904661333d-4*gammabb*t102*t120*t165*t55-1.36143060 17308 4 03696336d-6*t100*t101*t323*t412*t50+1.1160511338720001d 17309 5 -4*t100*t101*t224*t328*t50+3.72017044624d-5*t103*t120*t 17310 6 323*t50-3.7201704462400004d-4*t100*t101*t165*t224*t48-2 17311 7 .710808888888889d-1*t100*t120*t196*t199-5.4216177777777 17312 8 79d-2*t100*t101*t120*t164)+2.0d+0*t191*t391+1.0d+0*t201 17313 9 *t372)+t53*(1.0d+0*rhob*t44*t47*(-8.241408000000001d-1* 17314 : t166*t55*t57*t6*taub-4.245050363904d-3*t165*t197*t326*t 17315 ; 57*t6*taub+8.0d+1*t55*t56*t6*taub+2.747136d-1*t165*t166 17316 < *t197*t6*taub-2.0603520000000003d-1*t13*t55*t56*taub-2. 17317 = 122525181952d-3*gammabb*t15*t165*t196*t326*taub-7.07508 17318 > 393984d-4*t13*t165*t166*t197*taub-7.783552d-1*gammabb*t 17319 ? 15*t166*t193*taub-6.559723505527751d-6*t323*t50*t538*t5 17320 @ 8*t6+3.183787772928d-4*t326*t328*t50*t58*t6-1.061262590 17321 1 9760003d-3*t165*t326*t48*t58*t6-9.157120000000001d-2*t1 17322 2 64*t166*t58*t6+1.7777777777777778d+1*t164*t56*t57*t6-4. 17323 3 120704d-2*t166*t328*t50*t57*t6+6.367575545856d-4*t323*t 17324 4 326*t50*t57*t6+1.373568d-1*t165*t166*t48*t57*t6-4.57856 17325 5 00000000004d-1*t166*t196*t199*t6-4.5785600000000004d-2* 17326 6 t13*t164*t56*t57-2.7592827365376d-3*gammabb*t15*t165*t3 17327 7 26*t55*t57-6.559723505527751d-6*gammabb*t15*t197*t323*t 17328 8 538*t57+1.061262590976d-4*t13*t166*t328*t50*t57-1.63993 17329 9 08763819376d-6*t13*t323*t326*t50*t57-3.5375419699200006 17330 : d-4*t13*t165*t166*t48*t57+3.183787772928d-4*gammabb*t15 17331 ; *t197*t326*t328*t57-4.7617024d-1*gammabb*t15*t166*t167* 17332 < t57-1.030176d-2*t13*t328*t50*t56+3.4339200000000003d-2* 17333 = t13*t165*t48*t56+4.622222222222223d+1*gammabb*t15*t167* 17334 > t56-2.3808512d-1*gammabb*t14*t167*t56+1.7856384d-1*gamm 17335 ? abb*t15*t165*t166*t55-9.197609121792001d-4*gammabb*t14* 17336 @ t165*t166*t55-6.559723505527751d-6*t11*t196*t323*t538*t 17337 1 54-1.1537971200000001d+0*t11*t166*t378*t54+3.1837877729 17338 2 28d-4*t11*t196*t326*t328*t54-4.4573028820992006d-3*t11* 17339 3 t165*t193*t326*t54+8.88888888888889d+0*t13*t164*t53+1.0 17340 4 61262590976d-4*t13*t166*t323*t50-2.060352d-2*gammabb*t1 17341 5 5*t166*t197*t328+1.061262590976d-4*gammabb*t14*t166*t19 17342 6 7*t328+3.183787772928d-4*gammabb*t15*t197*t323*t326-1.6 17343 7 399308763819376d-6*gammabb*t14*t197*t323*t326)+1.25d-1* 17344 8 gammabb*t178*t200*t45*t59-1.25d-1*gammabb*t200*t324*t44 17345 9 *t59+1.25d-1*gammabb*t200*t344*t59+2.0d+0*t389*t44*t47+ 17346 : 2.0d+0*rhob*t178*t389*t47+1.0d+0*rhob*t198*t344*t47+2.0 17347 ; d+0*t178*t198*t47+1.25d-1*gammabb*t389*t44*t45*t46+1.25 17348 < d-1*gammabb*t178*t198*t45*t46+1.25d-1*gammabb*t198*t324 17349 = *t44*t46+1.25d-1*gammabb*t168*t200*t44*t45+1.25d-1*gamm 17350 > abb*t200*t330*t44+2.5d-1*gammabb*t168*t178*t200)+(1.016 17351 ? 5533333333335d-2*t180*t48*t91-3.04966d-3*t165*t391*t91- 17352 @ 3.04966d-3*t201*t328*t91-2.710808888888889d-2*t104*t164 17353 1 *t91+1.0165533333333335d-2*t192*t48+1.0165533333333335d 17354 2 -2*t104*t191*t48-3.04966d-3*t165*t392-3.04966d-3*t165*t 17355 3 191*t201)*t97-6.09932d-3*t373*t50*t97-3.403576500924083 17356 4 7d-7*t104*t224*t323*t50*t91-1.2400568154133333d-4*t104* 17357 5 t120*t165*t48*t91+1.86008522312d-5*t120*t201*t323*t91+t 17358 6 56*(1.7169600000000002d-2*t178*t47*t50*t59-2.8616d-2*t4 17359 7 4*t47*t48*t59-6.4386d-4*gammabb*t165*t200*t44*t45*t59-6 17360 8 .4386d-4*gammabb*t200*t328*t44*t59-6.4386d-4*gammabb*t1 17361 9 65*t178*t200*t59+1.7169600000000002d-2*t168*t44*t47*t50 17362 : +1.7169600000000002d-2*t179*t48-5.15088d-3*rhob*t165*t3 17363 ; 89*t44*t47-5.15088d-3*rhob*t198*t328*t44*t47-5.15088d-3 17364 < *t165*t198*t44*t47-5.15088d-3*rhob*t165*t178*t198*t47-6 17365 = .4386d-4*gammabb*t165*t168*t200*t44-5.15088d-3*t165*t39 17366 > 0)+t166*t50*(-3.5375419699200006d-4*t165*t44*t47*t59-2. 17367 ? 060352d-2*t346)+t200*t45*t53*(-1.25d-1*gammabb*t178*t59 17368 @ -1.25d-1*gammabb*t168*t44)+5.58012d-3*gammabb*t164*t44* 17369 1 t46*t56*t59+1.28772d-3*gammabb*t165*t200*t44*t45*t56*t5 17370 2 9+1.25d-1*gammabb*t200*t324*t44*t53*t59+2.65315647744d- 17371 3 5*gammabb*t165*t166*t44*t46*t48*t59-1.6399308763819376d 17372 4 -6*t31*t323*t326*t44*t47*t59+6.6328911936d-6*gammabb*t1 17373 5 66*t200*t323*t44*t59-1.030176d-2*t345*t50*t56-1.030176d 17374 6 -2*t325*t46*t48*t56-1.28772d-3*gammabb*t165*t198*t44*t4 17375 7 5*t46*t56+(1.25d-1*gammabb*t389*t44+1.25d-1*gammabb*t17 17376 8 8*t198)*t45*t46*t53-1.25d-1*gammabb*t198*t324*t44*t46*t 17377 9 53-1.219864d-2*t120*t374*t50+5.30631295488d-5*rhob*t166 17378 : *t198*t323*t44*t47)*wght+Mmat3(iq,D3_RB_RB_TB) 17379 Mmat3(iq,D3_RA_GAA_TA) = Mmat3(iq,D3_RA_GAA_TA) 17380 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 17381 Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA) 17382 Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB) 17383 Mmat3(iq,D3_RA_GBB_TA) = Mmat3(iq,D3_RA_GBB_TA) 17384 Mmat3(iq,D3_RA_GBB_TB) = (t93*(1.0d+0*t91*(1.3614306003696 17385 1 34d-55*t117*t197*t412*t95*t98*t99-1.8600852231200002d-5 17386 2 3*t117*t197*t224*t98*t99+3.4035765009240837d-56*t103*t1 17387 3 17*t197*t224*t99-2.976136356992d-53*t100*t117*t197*t224 17388 4 *t99-1.488068178496d-53*t117*t197*t224*t95*t98+2.439728 17389 5 d-51*t117*t120*t197*t98+1.361430600369634d-55*t117*t197 17390 6 *t412*t94*t96-3.7201704462400004d-53*t117*t197*t224*t94 17391 7 *t95+3.4035765009240837d-56*t102*t117*t197*t224*t95+1.6 17392 8 264853333333334d-51*t117*t120*t197*t94+1.36143060036963 17393 9 4d-55*t100*t101*t117*t197*t412-4.960227261653333d-54*t1 17394 : 03*t117*t120*t197-6.200284077066667d-54*t102*t117*t120* 17395 ; t197+8.132426666666667d-52*t100*t117*t120*t197)+1.0d+0* 17396 < t162*t396)+3.04966d-52*t117*t396*t91*t97-6.09932d-3*t37 17397 = 6*t50*t97-3.04966d-3*t388*t48*t97-3.72017044624d-54*t11 17398 > 7*t120*t195*t50*t91-1.86008522312d-54*t117*t120*t201*t4 17399 ? 8*t91+3.4035765009240837d-56*t104*t117*t197*t224*t91+3. 17400 @ 72017044624d-5*t120*t163*t197)*wght+Mmat3(iq,D3_RA_GBB_ 17401 1 TB) 17402 Mmat3(iq,D3_RB_GAA_TA) = Mmat3(iq,D3_RB_GAA_TA) 17403 Mmat3(iq,D3_RB_GAA_TB) = Mmat3(iq,D3_RB_GAA_TB) 17404 Mmat3(iq,D3_RB_GAB_TA) = Mmat3(iq,D3_RB_GAB_TA) 17405 Mmat3(iq,D3_RB_GAB_TB) = Mmat3(iq,D3_RB_GAB_TB) 17406 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 17407 Mmat3(iq,D3_RB_GBB_TB) = (t93*(1.0d+0*t91*(-7.440340892480 17408 1 001d-4*t100*t196*t224*t99*taub-3.7201704462400004d-4*t1 17409 2 96*t224*t95*t98*taub+4.066213333333334d-2*t120*t196*t98 17410 3 *taub-1.2400568154133336d-4*t103*t120*t196*taub+8.13242 17411 4 6666666668d-2*t100*t120*t196*taub-4.836221580112d-4*t22 17412 5 4*t55*t95*t98*t99-1.3614306003696336d-6*t165*t197*t412* 17413 6 t95*t98*t99+5.286077333333333d-2*t120*t55*t98*t99+1.116 17414 7 0511338720001d-4*t165*t197*t224*t98*t99-2.976136356992d 17415 8 -4*gammabb*t193*t224*t98*t99-1.6120738600373333d-4*t103 17416 9 *t120*t55*t99+1.0572154666666667d-1*t100*t120*t55*t99-3 17417 : .4035765009240837d-7*t103*t165*t197*t224*t99+2.23210226 17418 ; 77440003d-4*t100*t165*t197*t224*t99-8.666666666666666d+ 17419 < 0*t55*t97*t98+5.286077333333333d-2*t120*t55*t95*t98+1.1 17420 = 160511338720001d-4*t165*t197*t224*t95*t98-1.219864d-2*t 17421 > 120*t165*t197*t98+3.2529706666666663d-2*gammabb*t120*t1 17422 ? 93*t98+2.6430386666666666d-2*t103*t55*t97+2.64303866666 17423 @ 66666d-2*t102*t55*t97-4.836221580112d-4*t224*t55*t94*t9 17424 1 6-1.3614306003696336d-6*t165*t197*t412*t94*t96+1.057215 17425 2 4666666667d-1*t120*t55*t94*t95+2.2321022677440003d-4*t1 17426 3 65*t197*t224*t94*t95-5.952272713984d-4*gammabb*t193*t22 17427 4 4*t94*t95-1.6120738600373333d-4*t102*t120*t55*t95-3.403 17428 5 5765009240837d-7*t102*t165*t197*t224*t95+6.505941333333 17429 6 333d-2*gammabb*t120*t193*t94-4.836221580112d-4*t100*t10 17430 7 1*t224*t55-1.3614306003696336d-6*t100*t101*t165*t197*t4 17431 8 12+3.72017044624d-5*t103*t120*t165*t197+3.72017044624d- 17432 9 5*t102*t120*t165*t197-9.920454523306665d-5*gammabb*t102 17433 : *t120*t193)+1.0d+0*t191*t396)+t53*(1.0d+0*rhob*t44*t47* 17434 ; (-2.122525181952d-3*t196*t326*t57*t6*taub+1.373568d-1*t 17435 < 166*t196*t6*taub-1.061262590976d-3*gammabb*t15*t326*t39 17436 = 3*taub+6.867840000000001d-2*t15*t166*t196*taub-3.537541 17437 > 96992d-4*t13*t166*t196*taub-1.3796413682688d-3*t326*t55 17438 ? *t58*t6-6.559723505527751d-6*t165*t197*t538*t58*t6+1.78 17439 @ 56384d-1*t166*t55*t57*t6+6.367575545856d-4*t165*t197*t3 17440 1 26*t57*t6+8.928192d-2*t15*t166*t55*t57-4.59880456089600 17441 2 04d-4*t13*t166*t55*t57-6.559723505527751d-6*gammabb*t15 17442 3 *t165*t196*t538*t57+3.183787772928d-4*t15*t165*t197*t32 17443 4 6*t57-1.6399308763819376d-6*t13*t165*t197*t326*t57-2.22 17444 5 86514410496003d-3*gammabb*t15*t193*t326*t57-8.666666666 17445 6 666666d+0*t15*t55*t56+4.464096d-2*t14*t55*t56+4.464096d 17446 7 -2*t13*t55*t56-6.559723505527751d-6*t11*t165*t393*t538* 17447 8 t54-3.0776615138304003d-3*t11*t326*t384*t54+3.183787772 17448 9 928d-4*gammabb*t15*t165*t196*t326-1.6399308763819376d-6 17449 : *gammabb*t14*t165*t196*t326+6.367575545856d-4*gammabb*t 17450 ; 11*t165*t196*t326-2.060352d-2*t15*t165*t166*t197+1.0612 17451 < 62590976d-4*t14*t165*t166*t197+1.061262590976d-4*t13*t1 17452 = 65*t166*t197+1.4422464000000002d-1*gammabb*t15*t166*t19 17453 > 3-7.428838136832d-4*gammabb*t14*t166*t193+2.88449280000 17454 ? 00003d-1*gammabb*t11*t166*t193)+1.25d-1*t200*t44*t45*t5 17455 @ 9+1.25d-1*t178*t200*t59+1.0d+0*t394*t44*t47+1.0d+0*rhob 17456 1 *t178*t394*t47-1.25d-1*t198*t44*t45*t46-1.25d-1*t389*t4 17457 2 4*t46-1.25d-1*t178*t198*t46+1.25d-1*gammabb*t194*t200*t 17458 3 44*t45+1.25d-1*gammabb*t200*t379*t44+1.25d-1*t168*t200* 17459 4 t44+1.25d-1*gammabb*t178*t194*t200)+t48*(1.016553333333 17460 5 3335d-2*t195*t91-3.04966d-3*t392)*t97-3.04966d-3*t165*t 17461 6 396*t91*t97+8.132426666666667d-3*t164*t201*t91*t97-6.09 17462 7 932d-3*t383*t50*t97-1.6120738600373333d-4*t104*t120*t55 17463 8 *t91+3.72017044624d-5*t120*t165*t195*t50*t91+1.86008522 17464 9 312d-5*t120*t165*t201*t48*t91-3.4035765009240837d-7*t10 17465 : 4*t165*t197*t224*t91+t166*t197*(-1.7687709849600003d-4* 17466 ; t44*t47*t59-2.060352d-2*t381)+t48*t56*(1.71696000000000 17467 < 02d-3*gammabb*t200*t44*t45*t59+1.373568d-2*t198*t44*t47 17468 = -5.15088d-3*t390)+t200*t56*(-6.4386d-4*t165*t44*t59-6.4 17469 > 386d-4*gammabb*t165*t194*t44)+t46*t48*t56*(t559-2.1462d 17470 ? -3*t44*t59)+6.4386d-4*gammabb*t164*t200*t44*t56*t59+1.3 17471 @ 2657823872d-5*gammabb*t166*t44*t46*t55*t59-1.3265782387 17472 1 2d-5*t165*t166*t44*t46*t50*t59+6.6328911936d-6*gammabb* 17473 2 t165*t166*t200*t44*t48*t59-1.6399308763819376d-6*t165*t 17474 3 326*t395*t44*t47*t59+t50*(t558+1.7169600000000002d-2*t1 17475 4 94*t44*t47)*t56-5.15088d-3*rhob*t165*t394*t44*t47*t56+6 17476 5 .4386d-4*t165*t198*t44*t46*t56-6.4386d-4*gammabb*t164*t 17477 6 198*t44*t46*t56+t200*t45*t53*t555+(1.25d-1*gammabb*t394 17478 7 *t44+1.25d-1*t198*t44)*t45*t46*t53+5.30631295488d-5*t16 17479 8 5*t166*t198*t44*t47*t50+1.061262590976d-4*t165*t166*t19 17480 9 4*t31*t44*t47+3.72017044624d-5*t120*t192*t197)*wght+Mma 17481 : t3(iq,D3_RB_GBB_TB) 17482 Mmat3(iq,D3_RA_TA_TA) = Mmat3(iq,D3_RA_TA_TA) 17483 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 17484 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 17485 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 17486 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 17487 Mmat3(iq,D3_RB_TB_TB) = Mmat3(iq,D3_RB_TB_TB) 17488 Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA) 17489 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 17490 Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA) 17491 Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB) 17492 Mmat3(iq,D3_GAA_GBB_TA) = Mmat3(iq,D3_GAA_GBB_TA) 17493 Mmat3(iq,D3_GAA_GBB_TB) = (1.0d+0*t91*t93*(-1.361430600369 17494 1 6336d-6*t196*t412*t95*t98*t99+2.2321022677440003d-4*t19 17495 2 6*t224*t98*t99-3.4035765009240837d-7*t103*t196*t224*t99 17496 3 +2.2321022677440003d-4*t100*t196*t224*t99+1.11605113387 17497 4 20001d-4*t196*t224*t95*t98-2.439728d-2*t120*t196*t98-1. 17498 5 3614306003696336d-6*t196*t412*t94*t96+4.464204535488000 17499 6 6d-4*t196*t224*t94*t95-3.4035765009240837d-7*t102*t196* 17500 7 t224*t95-2.439728d-2*t120*t196*t94-1.3614306003696336d- 17501 8 6*t100*t101*t196*t412+3.72017044624d-5*t103*t120*t196+7 17502 9 .44034089248d-5*t102*t120*t196)-6.09932d-3*t386*t50*t91 17503 : *t97-6.09932d-3*t396*t48*t91*t97+1.86008522312d-5*t120* 17504 ; t201*t55*t91-3.4035765009240837d-7*t104*t196*t224*t91+7 17505 < .44034089248d-5*t120*t195*t197*t91+1.0d+0*rhob*t44*t47* 17506 = t53*(-6.559723505527751d-6*t196*t538*t58*t6+6.367575545 17507 > 856d-4*t196*t326*t57*t6-6.559723505527751d-6*gammabb*t1 17508 ? 5*t393*t538*t57+6.367575545856d-4*t15*t196*t326*t57-1.6 17509 @ 399308763819376d-6*t13*t196*t326*t57-6.559723505527751d 17510 1 -6*t11*t538*t54/rhob**1.2333333333333334d+1+3.183787772 17511 2 928d-4*gammabb*t15*t326*t393-1.6399308763819376d-6*gamm 17512 3 abb*t14*t326*t393+1.2735151091712002d-3*gammabb*t11*t32 17513 4 6*t393-4.120704d-2*t15*t166*t196+2.122525181952d-4*t14* 17514 5 t166*t196+1.061262590976d-4*t13*t166*t196-4.120704d-2*t 17515 6 11*t166*t196)+6.6328911936d-6*gammabb*t166*t200*t44*t55 17516 7 *t59-1.6399308763819376d-6*t326*t398*t44*t47*t59-2.6531 17517 8 5647744d-5*t166*t197*t44*t46*t59+t200*t48*t56*(t561+t56 17518 9 0)-1.030176d-2*t394*t44*t47*t50*t56+2.57544d-3*t194*t44 17519 : *t46*t50*t56+1.28772d-3*t198*t44*t46*t48*t56-1.030176d- 17520 ; 2*t31*t385*t44*t47*t56+t200*t53*t557-2.5d-1*t394*t44*t4 17521 < 6*t53+2.122525181952d-4*t166*t194*t395*t44*t47+5.306312 17522 = 95488d-5*t166*t197*t198*t44*t47)*wght+Mmat3(iq,D3_GAA_G 17523 > BB_TB) 17524 Mmat3(iq,D3_GAB_GAB_TA) = Mmat3(iq,D3_GAB_GAB_TA) 17525 Mmat3(iq,D3_GAB_GAB_TB) = Mmat3(iq,D3_GAB_GAB_TB) 17526 Mmat3(iq,D3_GAB_GBB_TA) = Mmat3(iq,D3_GAB_GBB_TA) 17527 Mmat3(iq,D3_GAB_GBB_TB) = Mmat3(iq,D3_GAB_GBB_TB) 17528 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 17529 Mmat3(iq,D3_GBB_GBB_TB) = Mmat3(iq,D3_GBB_GBB_TB) 17530 Mmat3(iq,D3_GAA_TA_TA) = Mmat3(iq,D3_GAA_TA_TA) 17531 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 17532 Mmat3(iq,D3_GAA_TB_TB) = (1.0d+0*t91*t93*(-2.7228612007392 17533 1 67d-6*t398*t412*t95*t98*t99+2.2321022677440003d-4*t224* 17534 2 t398*t98*t99-6.807153001848167d-7*t103*t224*t398*t99+8. 17535 3 928409070976001d-4*t100*t224*t398*t99+4.464204535488000 17536 4 6d-4*t224*t398*t95*t98-4.879456d-2*t120*t398*t98-2.7228 17537 5 61200739267d-6*t398*t412*t94*t96+4.4642045354880006d-4* 17538 6 t224*t398*t94*t95-6.807153001848167d-7*t102*t224*t398*t 17539 7 95-2.722861200739267d-6*t100*t101*t398*t412+1.488068178 17540 8 496d-4*t103*t120*t398+7.44034089248d-5*t102*t120*t398-4 17541 9 .879456d-2*t100*t120*t398)-1.219864d-2*t396*t50*t91*t97 17542 : -3.04966d-3*t401*t48*t91*t97-6.807153001848167d-7*t104* 17543 ; t224*t398*t91+7.44034089248d-5*t120*t195*t395*t91+7.440 17544 < 34089248d-5*t120*t197*t201*t91+1.0d+0*rhob*t44*t47*t53* 17545 = (-1.3119447011055504d-5*t398*t538*t58*t6+2.547030218342 17546 > 4004d-3*t326*t398*t57*t6-8.241408d-2*t166*t398*t6-1.311 17547 ? 9447011055504d-5*gammabb*t15*t397*t538*t57+6.3675755458 17548 @ 56d-4*t15*t326*t398*t57-3.279861752763875d-6*t13*t326*t 17549 1 398*t57-1.3119447011055504d-5*t11*t538*t54/rhob**1.1333 17550 2 333333333334d+1-8.241408d-2*t15*t166*t398+2.12252518195 17551 3 2d-4*t14*t166*t398+4.245050363904d-4*t13*t166*t398+1.27 17552 4 35151091712002d-3*gammabb*t15*t326*t397-3.2798617527638 17553 5 75d-6*gammabb*t14*t326*t397+1.2735151091712002d-3*gamma 17554 6 bb*t11*t326*t397)-3.279861752763875d-6*t326*t44*t47*t56 17555 7 2*t59+1.28772d-3*gammabb*t400*t44*t48*t56*t59-2.6531564 17556 8 7744d-5*t166*t395*t44*t46*t59+2.65315647744d-5*gammabb* 17557 9 t166*t197*t200*t44*t59+t200*t50*t56*(t561+t560+t559)-5. 17558 : 15088d-3*t399*t44*t47*t50*t56+2.57544d-3*t198*t44*t46*t 17559 ; 50*t56-1.28772d-3*gammabb*t198*t200*t44*t48*t56-2.06035 17560 < 2d-2*t31*t394*t44*t47*t56-1.25d-1*t399*t44*t46*t53+t200 17561 = *(2.5d-1*gammabb*t394*t44+2.5d-1*t198*t44)*t53-2*t377*t 17562 > 400*t53+2.122525181952d-4*t166*t198*t395*t44*t47+2.1225 17563 ? 25181952d-4*t166*t194*t336*t44*t47)*wght+Mmat3(iq,D3_GA 17564 @ A_TB_TB) 17565 Mmat3(iq,D3_GAB_TA_TA) = Mmat3(iq,D3_GAB_TA_TA) 17566 Mmat3(iq,D3_GAB_TA_TB) = Mmat3(iq,D3_GAB_TA_TB) 17567 Mmat3(iq,D3_GAB_TB_TB) = Mmat3(iq,D3_GAB_TB_TB) 17568 Mmat3(iq,D3_GBB_TA_TA) = (7.5d-1*gammabb*t44*t53*t59/taub* 17569 1 *4+1.0d+0*t91*t93*(-5.445722401478534d-6*t412*t562*t95* 17570 2 t98*t99-1.3614306003696336d-6*t103*t224*t562*t99+2.6785 17571 3 22721292801d-3*t100*t224*t562*t99+1.3392613606464004d-3 17572 4 *t224*t562*t95*t98-5.445722401478534d-6*t412*t562*t94*t 17573 5 96-1.3614306003696336d-6*t102*t224*t562*t95-5.445722401 17574 6 478534d-6*t100*t101*t412*t562+4.4642045354879994d-4*t10 17575 7 3*t120*t562-2.9276736000000003d-1*t100*t120*t562)-1.829 17576 8 7960000000002d-2*t401*t50*t91*t97-1.3614306003696336d-6 17577 9 *t104*t224*t562*t91+2.2321022677439997d-4*t120*t201*t39 17578 : 5*t91+1.0d+0*rhob*t44*t47*t53*(-2.623889402211101d-5*t5 17579 ; 38*t562*t58*t6+7.641090655027201d-3*t326*t562*t57*t6-4. 17580 < 9448448d-1*t166*t562*t6-2.623889402211101d-5*gammabb*t1 17581 = 5*t538*t563*t57-6.55972350552775d-6*t13*t326*t562*t57+3 17582 > .8205453275136003d-3*gammabb*t15*t326*t563-6.5597235055 17583 ? 2775d-6*gammabb*t14*t326*t563+1.2735151091712002d-3*t13 17584 @ *t166*t562-2.623889402211101d-5*t11*t538*t54/rhob**1.03 17585 1 33333333333333d+1)+7.72632d-3*gammabb*t400*t44*t50*t56* 17586 2 t59-6.55972350552775d-6*t326*t44*t47*t59/rhob**4+7.9594 17587 3 69432320001d-5*gammabb*t166*t200*t395*t44*t59-7.72632d- 17588 4 3*gammabb*t198*t200*t44*t50*t56-3.090528d-2*t31*t399*t4 17589 5 4*t47*t56-7.5d-1*gammabb*t198*t400*t44*t53+3.75d-1*gamm 17590 6 abb*t200*t399*t44*t53+6.367575545856d-4*t166*t198*t336* 17591 7 t44*t47)*wght+Mmat3(iq,D3_GBB_TA_TA) 17592 else 17593 t1 = 1/rhoa**1.6666666666666669d+0 17594 t2 = 6.0d-50*t1 17595 t3 = 5.15088d-3*(t2-9.11559972d+0)+1.0d+0 17596 t4 = 1/t3 17597 t5 = param(7) 17598 t6 = param(12) 17599 t7 = 1/t3**2 17600 t8 = 2.0d-50*t1 17601 t9 = t8-9.11559972d+0 17602 t10 = t9**2 17603 t11 = param(10) 17604 t12 = 1/rhoa**3.3333333333333337d+0 17605 t13 = param(9) 17606 t14 = param(8) 17607 t15 = param(11) 17608 t16 = 4.0d-50*t1*t15*t7*t9+t13*t4*t9+t10*t6*t7+1.6d-99*t11 17609 1 *t12*t7+t5+4.0d-50*t1*t14*t4 17610 t17 = 1/rhoa**6.666666666666666d-1 17611 t18 = rhoa**5.0d-1 17612 t19 = 1/t18 17613 t20 = 1/rhoa**3.333333333333333d-1 17614 t21 = 1/rhoa**1.6666666666666666d-1 17615 t22 = 1.1120374863094686d+1*t21+3.8447462374472113d+0*t20+ 17616 1 1.644733775567609d+0*t19+2.4058712912881916d-1*t17 17617 t23 = 3.216395899738507d+1/t22+1.0d+0 17618 t24 = log(t23) 17619 t25 = 1.274696188700087d-1*t20+1.0d+0 17620 t26 = 5.982550435771079d+0*t21+2.2255694211506874d+0*t20+8 17621 1 .004286349993635d-1*t19+1.8970043257475583d-1*t17 17622 t27 = 1.6081979498692536d+1/t26+1.0d+0 17623 t28 = log(t27) 17624 t29 = 1.3256889990520176d-1*t20+1.0d+0 17625 t30 = -6.903522198342671d-18*t28*t29-3.1090699999999993d-2 17626 1 *t24*t25 17627 t31 = 1/rhob**1.6666666666666669d+0 17628 t32 = 6.0d-50*t31 17629 t33 = 5.15088d-3*(t32-9.11559972d+0)+1.0d+0 17630 t34 = 1/t33 17631 t35 = 1/t33**2 17632 t36 = 2.0d-50*t31 17633 t37 = t36-9.11559972d+0 17634 t38 = t37**2 17635 t39 = 1/rhob**3.3333333333333337d+0 17636 t40 = t35*t38*t6+t5+1.6d-99*t11*t35*t39+4.0d-50*t15*t31*t3 17637 1 5*t37+t13*t34*t37+4.0d-50*t14*t31*t34 17638 t41 = 1/rhob**6.666666666666666d-1 17639 t42 = rhob**5.0d-1 17640 t43 = 1/t42 17641 t44 = 1/rhob**3.333333333333333d-1 17642 t45 = 1/rhob**1.6666666666666666d-1 17643 t46 = 1.1120374863094686d+1*t45+3.8447462374472113d+0*t44+ 17644 1 1.644733775567609d+0*t43+2.4058712912881916d-1*t41 17645 t47 = 3.216395899738507d+1/t46+1.0d+0 17646 t48 = log(t47) 17647 t49 = 1.274696188700087d-1*t44+1.0d+0 17648 t50 = 5.982550435771079d+0*t45+2.2255694211506874d+0*t44+8 17649 1 .004286349993635d-1*t43+1.8970043257475583d-1*t41 17650 t51 = 1.6081979498692536d+1/t50+1.0d+0 17651 t52 = log(t51) 17652 t53 = 1.3256889990520176d-1*t44+1.0d+0 17653 t54 = -6.903522198342671d-18*t52*t53-3.1090699999999993d-2 17654 1 *t48*t49 17655 t55 = param(6) 17656 t56 = 3.04966d-3*(t32+t2-1.823119944d+1)+1.0d+0 17657 t57 = 1/t56**2 17658 t58 = t8+t36-1.823119944d+1 17659 t59 = t58**2 17660 t60 = param(4) 17661 t61 = 4.0d-50*t31+4.0d-50*t1 17662 t62 = t61**2 17663 t63 = param(3) 17664 t64 = 1/t56 17665 t65 = param(2) 17666 t66 = param(5) 17667 t67 = t57*t58*t61*t66+t61*t64*t65+t58*t63*t64+t57*t60*t62+ 17668 1 t55*t57*t59+param(1) 17669 t68 = rhob+rhoa 17670 t69 = 1/t68**3.333333333333333d-1 17671 t70 = 1.3256889990520176d-1*t69+1.0d+0 17672 t71 = rhoa-rhob 17673 t72 = t71**4 17674 t73 = 1/t68**4 17675 t74 = 1/t68 17676 t75 = 1.0d+0-t71*t74 17677 t76 = t71*t74+1.0d+0 17678 t77 = t76**1.3333333333333333d+0+t75**1.3333333333333333d+ 17679 1 0-2.0d+0 17680 t78 = -1.923661050931536d+0*t72*t73*t77 17681 t79 = t78+1.0d+0 17682 t80 = 1/t68**6.666666666666666d-1 17683 t81 = t68**5.0d-1 17684 t82 = 1/t81 17685 t83 = 1/t68**1.6666666666666666d-1 17686 t84 = 5.982550435771079d+0*t83+8.004286349993635d-1*t82+1. 17687 1 8970043257475583d-1*t80+2.2255694211506874d+0*t69 17688 t85 = 1.6081979498692536d+1/t84+1.0d+0 17689 t86 = log(t85) 17690 t87 = -6.21814d-2*t70*t79*t86 17691 t88 = 6.901399211255825d-2*t69+1.0d+0 17692 t89 = t78+1.923661050931536d+0*t77 17693 t90 = 8.157414703487641d+0*t83+4.3009724712766434d-1*t82+1 17694 1 .9115125951273373d-1*t80+2.247591863577616d+0*t69 17695 t91 = 2.9608813203268075d+1/t90+1.0d+0 17696 t92 = log(t91) 17697 t93 = 1.9751631321680768d-2*t88*t89*t92 17698 t94 = 1.274696188700087d-1*t69+1.0d+0 17699 t95 = 1.1120374863094686d+1*t83+1.644733775567609d+0*t82+2 17700 1 .4058712912881916d-1*t80+3.8447462374472113d+0*t69 17701 t96 = 3.216395899738507d+1/t95+1.0d+0 17702 t97 = log(t96) 17703 t98 = -5.980796863619711d-2*t72*t73*t77*t94*t97 17704 t99 = t68*(t98+t93+t87)-rhob*t54-rhoa*t30 17705 t100 = 1/t27 17706 t101 = 1/t18**3 17707 t102 = 1/rhoa**1.3333333333333333d+0 17708 t103 = 1/rhoa**1.1666666666666667d+0 17709 t104 = -9.970917392951799d-1*t103-7.418564737168958d-1*t10 17710 1 2-4.002143174996817d-1*t101-1.264669550498372d-1*t1 17711 t105 = 1/t26**2 17712 t106 = 1/t23 17713 t107 = -1.8533958105157808d+0*t103-1.2815820791490704d+0*t 17714 1 102-8.223668877838045d-1*t101-1.6039141941921276d-1*t1 17715 t108 = 1/t22**2 17716 t109 = 1.1102230246251565d-16*t100*t104*t105*t29+3.0506411 17717 1 443514264d-19*t102*t28+1.0d+0*t106*t107*t108*t25+1.3210 17718 2 398931339265d-3*t102*t24 17719 t110 = 1/t3**3 17720 t111 = 1/rhoa**4.333333333333333d+0 17721 t112 = 1/rhoa**2.6666666666666666d+0 17722 t113 = -6.666666666666666d-50*t112*t6*t7*t9-6.666666666666 17723 1 666d-50*t112*t15*t7*t9+5.15088d-52*t112*t13*t7*t9+4.120 17724 2 7039999999995d-101*t110*t111*t15*t9-1.3333333333333333d 17725 3 -99*t111*t15*t7+2.0603519999999997d-101*t111*t14*t7-5.3 17726 4 33333333333334d-99*t11*t111*t7+1.030176d-51*t10*t110*t1 17727 5 12*t6-6.666666666666666d-50*t112*t14*t4-3.3333333333333 17728 6 33d-50*t112*t13*t4+1.6482816d-150*t11*t110/rhoa**6 17729 t114 = 5.0d-1*t16*t30+5.0d-1*rhoa*t113*t30+5.0d-1*rhoa*t10 17730 1 9*t16 17731 t115 = 1/t68**1.6666666666666669d+0 17732 t116 = 1/t81**3 17733 t117 = 1/t68**1.3333333333333333d+0 17734 t118 = 1/t68**1.1666666666666667d+0 17735 t119 = -9.970917392951799d-1*t118-7.418564737168958d-1*t11 17736 1 7-4.002143174996817d-1*t116-1.264669550498372d-1*t115 17737 t120 = 1/t84**2 17738 t121 = 1/t85 17739 t122 = 1.0d+0*t119*t120*t121*t70*t79 17740 t123 = -1.3595691172479402d+0*t118-7.491972878592053d-1*t1 17741 1 17-2.1504862356383217d-1*t116-1.2743417300848914d-1*t11 17742 2 5 17743 t124 = 1/t90**2 17744 t125 = 1/t91 17745 t126 = -5.848223622634647d-1*t123*t124*t125*t88*t89 17746 t127 = -1.8533958105157808d+0*t118-1.2815820791490704d+0*t 17747 1 117-8.223668877838045d-1*t116-1.6039141941921276d-1*t11 17748 2 5 17749 t128 = 1/t95**2 17750 t129 = 1/t96 17751 t130 = 1.923661050931536d+0*t127*t128*t129*t72*t73*t77*t94 17752 t131 = 1/t68**2 17753 t132 = t131*t71 17754 t133 = -t74 17755 t134 = t133+t132 17756 t135 = t75**3.333333333333333d-1 17757 t136 = -t131*t71 17758 t137 = t74+t136 17759 t138 = t76**3.333333333333333d-1 17760 t139 = 1.3333333333333333d+0*t137*t138+1.3333333333333333d 17761 1 +0*t134*t135 17762 t140 = -1.923661050931536d+0*t139*t72*t73 17763 t141 = 1/t68**5 17764 t142 = 7.694644203726144d+0*t141*t72*t77 17765 t143 = t71**3 17766 t144 = -7.694644203726144d+0*t143*t73*t77 17767 t145 = t144+t142+t140 17768 t146 = -6.21814d-2*t145*t70*t86 17769 t147 = 2.747773264188437d-3*t117*t79*t86 17770 t148 = t144+t142+t140+1.923661050931536d+0*t139 17771 t149 = 1.9751631321680768d-2*t148*t88*t92 17772 t150 = -4.5437964274821163d-4*t117*t89*t92 17773 t151 = -5.980796863619711d-2*t139*t72*t73*t94*t97 17774 t152 = 1/t68**5.333333333333333d+0 17775 t153 = 2.541232989148493d-3*t152*t72*t77*t97 17776 t154 = 2.3923187454478842d-1*t141*t72*t77*t94*t97 17777 t155 = t98+t68*(-2.3923187454478842d-1*t143*t73*t77*t94*t9 17778 1 7+t154+t153+t151+t150+t149+t147+t146+t130+t126+t122)+t9 17779 2 3+t87+6.903522198342671d-18*t28*t29+3.1090699999999993d 17780 3 -2*t24*t25-rhoa*t109 17781 t156 = 1/t56**3 17782 t157 = 6.09932d-52*t112*t156*t58*t61*t66-3.333333333333333 17783 1 d-50*t112*t57*t61*t66-6.666666666666666d-50*t112*t57*t5 17784 2 8*t66-6.666666666666666d-50*t112*t64*t65+3.04966d-52*t1 17785 3 12*t57*t61*t65-3.333333333333333d-50*t112*t63*t64+3.049 17786 4 66d-52*t112*t57*t58*t63+6.09932d-52*t112*t156*t60*t62-1 17787 5 .3333333333333333d-49*t112*t57*t60*t61+6.09932d-52*t112 17788 6 *t156*t55*t59-6.666666666666666d-50*t112*t55*t57*t58 17789 t158 = 1.0d+0*t157*t99+1.0d+0*t155*t67 17790 t159 = 1/t51 17791 t160 = 1/t42**3 17792 t161 = 1/rhob**1.3333333333333333d+0 17793 t162 = 1/rhob**1.1666666666666667d+0 17794 t163 = -1.264669550498372d-1*t31-9.970917392951799d-1*t162 17795 1 -7.418564737168958d-1*t161-4.002143174996817d-1*t160 17796 t164 = 1/t50**2 17797 t165 = 1/t47 17798 t166 = -1.6039141941921276d-1*t31-1.8533958105157808d+0*t1 17799 1 62-1.2815820791490704d+0*t161-8.223668877838045d-1*t160 17800 t167 = 1/t46**2 17801 t168 = 1.1102230246251565d-16*t159*t163*t164*t53+3.0506411 17802 1 443514264d-19*t161*t52+1.0d+0*t165*t166*t167*t49+1.3210 17803 2 398931339265d-3*t161*t48 17804 t169 = 1/t33**3 17805 t170 = 1/rhob**4.333333333333333d+0 17806 t171 = 1/rhob**2.6666666666666666d+0 17807 t172 = 1.030176d-51*t169*t171*t38*t6-6.666666666666666d-50 17808 1 *t171*t35*t37*t6-6.666666666666666d-50*t15*t171*t35*t37 17809 2 +5.15088d-52*t13*t171*t35*t37+4.1207039999999995d-101*t 17810 3 15*t169*t170*t37-1.3333333333333333d-99*t15*t170*t35+2. 17811 4 0603519999999997d-101*t14*t170*t35-5.333333333333334d-9 17812 5 9*t11*t170*t35-6.666666666666666d-50*t14*t171*t34-3.333 17813 6 333333333333d-50*t13*t171*t34+1.6482816d-150*t11*t169/r 17814 7 hob**6 17815 t173 = 5.0d-1*t40*t54+5.0d-1*rhob*t172*t54+5.0d-1*rhob*t16 17816 1 8*t40 17817 t174 = t74+t132 17818 t175 = t136+t133 17819 t176 = 1.3333333333333333d+0*t138*t175+1.3333333333333333d 17820 1 +0*t135*t174 17821 t177 = -1.923661050931536d+0*t176*t72*t73 17822 t178 = 7.694644203726144d+0*t143*t73*t77 17823 t179 = t178+t177+t142 17824 t180 = -6.21814d-2*t179*t70*t86 17825 t181 = t178+t177+1.923661050931536d+0*t176+t142 17826 t182 = 1.9751631321680768d-2*t181*t88*t92 17827 t183 = -5.980796863619711d-2*t176*t72*t73*t94*t97 17828 t184 = t98+t68*(2.3923187454478842d-1*t143*t73*t77*t94*t97 17829 1 +t183+t182+t180+t154+t153+t150+t147+t130+t126+t122)+t93 17830 2 +t87+6.903522198342671d-18*t52*t53+3.1090699999999993d- 17831 3 2*t48*t49-rhob*t168 17832 t185 = 6.09932d-52*t156*t171*t58*t61*t66-3.333333333333333 17833 1 d-50*t171*t57*t61*t66-6.666666666666666d-50*t171*t57*t5 17834 2 8*t66-6.666666666666666d-50*t171*t64*t65+3.04966d-52*t1 17835 3 71*t57*t61*t65-3.333333333333333d-50*t171*t63*t64+3.049 17836 4 66d-52*t171*t57*t58*t63+6.09932d-52*t156*t171*t60*t62-1 17837 5 .3333333333333333d-49*t171*t57*t60*t61+6.09932d-52*t156 17838 6 *t171*t55*t59-6.666666666666666d-50*t171*t55*t57*t58 17839 t186 = 1.0d+0*t185*t99+1.0d+0*t184*t67 17840 t187 = 2.57544d-52*t113*t30+2.57544d-52*t109*t16 17841 t188 = 1/t27**2 17842 t189 = t104**2 17843 t190 = 1/t26**4 17844 t191 = 1/t26**3 17845 t192 = 1/t18**5 17846 t193 = 1/rhoa**2.3333333333333334d+0 17847 t194 = 1/rhoa**2.1666666666666665d+0 17848 t195 = 1.1632736958443765d+0*t194+9.89141964955861d-1*t193 17849 1 +6.003214762495226d-1*t192+2.1077825841639536d-1*t112 17850 t196 = 1/t23**2 17851 t197 = t107**2 17852 t198 = 1/t22**4 17853 t199 = 1/t22**3 17854 t200 = 2.1622951122684114d+0*t194+1.7087761055320938d+0*t1 17855 1 93+1.2335503316757068d+0*t192+2.673190323653546d-1*t112 17856 t201 = 1.1102230246251565d-16*t100*t105*t195*t29-2.2204460 17857 1 49250313d-16*t100*t189*t191*t29+1.7854583920998188d-15* 17858 2 t188*t189*t190*t29-4.0675215258019015d-19*t193*t28+1.0d 17859 3 +0*t106*t108*t200*t25-2.0d+0*t106*t197*t199*t25+3.21639 17860 4 5899738507d+1*t196*t197*t198*t25-1.7613865241785684d-3* 17861 5 t193*t24-8.497974591333913d-2*t102*t106*t107*t108-9.812 17862 6 069668265515d-18*t100*t102*t104*t105 17863 t202 = 1/t3**4 17864 t203 = 1/rhoa**7 17865 t204 = 1/rhoa**5.333333333333333d+0 17866 t205 = 1/rhoa**3.6666666666666664d+0 17867 t206 = 1.7777777777777776d-49*t205*t6*t7*t9+1.777777777777 17868 1 7776d-49*t15*t205*t7*t9-1.373568d-51*t13*t205*t7*t9-1.3 17869 2 73568d-100*t110*t204*t6*t9-2.4724223999999997d-100*t110 17870 3 *t15*t204*t9+5.306312954879999d-103*t110*t13*t204*t9+6. 17871 4 367575545855999d-152*t15*t202*t203*t9+2.222222222222222 17872 5 d-99*t204*t6*t7+8.0d-99*t15*t204*t7-1.2362111999999999d 17873 6 -100*t14*t204*t7-3.43392d-101*t13*t204*t7+2.31111111111 17874 7 11113d-98*t11*t204*t7-2.747136d-51*t10*t110*t205*t6+1.5 17875 8 918938864639998d-102*t10*t202*t204*t6+1.777777777777777 17876 9 6d-49*t14*t205*t4+8.888888888888888d-50*t13*t205*t4-2.7 17877 : 471359999999995d-150*t110*t15*t203+2.1225251819519997d- 17878 ; 152*t110*t14*t203-1.53839616d-149*t11*t110*t203+2.54703 17879 < 02183424d-201*t11*t202/rhoa**8.666666666666666d+0 17880 t207 = 5.0d-1*rhoa*t206*t30+1.0d+0*t113*t30+5.0d-1*rhoa*t1 17881 1 6*t201+1.0d+0*t109*t16+1.0d+0*rhoa*t109*t113 17882 t208 = 5.15088d-52*t114-4.2923999999999995d-52*t16*t30 17883 t209 = 2.0d+0*t119*t120*t121*t70*t79 17884 t210 = -1.1696447245269295d+0*t123*t124*t125*t88*t89 17885 t211 = 3.847322101863072d+0*t127*t128*t129*t72*t73*t77*t94 17886 t212 = 5.495546528376875d-3*t117*t79*t86 17887 t213 = -9.087592854964233d-4*t117*t89*t92 17888 t214 = 5.082465978296986d-3*t152*t72*t77*t97 17889 t215 = 4.7846374908957684d-1*t141*t72*t77*t94*t97 17890 t216 = t119**2 17891 t217 = 1/t84**4 17892 t218 = 1/t85**2 17893 t219 = 1.6081979498692536d+1*t216*t217*t218*t70*t79 17894 t220 = 2.0d+0*t119*t120*t121*t145*t70 17895 t221 = 1/t84**3 17896 t222 = -2.0d+0*t121*t216*t221*t70*t79 17897 t223 = -8.837926660346784d-2*t117*t119*t120*t121*t79 17898 t224 = 1/t68**2.6666666666666666d+0 17899 t225 = 1/t81**5 17900 t226 = 1/t68**2.3333333333333334d+0 17901 t227 = 1/t68**2.1666666666666665d+0 17902 t228 = 1.1632736958443765d+0*t227+9.89141964955861d-1*t226 17903 1 +6.003214762495226d-1*t225+2.1077825841639536d-1*t224 17904 t229 = 1.0d+0*t120*t121*t228*t70*t79 17905 t230 = t123**2 17906 t231 = 1/t90**4 17907 t232 = 1/t91**2 17908 t233 = -1.73158960813529d+1*t230*t231*t232*t88*t89 17909 t234 = -1.1696447245269295d+0*t123*t124*t125*t148*t88 17910 t235 = 1/t90**3 17911 t236 = 1.1696447245269295d+0*t125*t230*t235*t88*t89 17912 t237 = 2.690728393099896d-2*t117*t123*t124*t125*t89 17913 t238 = 1.5861639701225969d+0*t227+9.98929717145607d-1*t226 17914 1 +3.2257293534574827d-1*t225+2.1239028834748191d-1*t224 17915 t239 = -5.848223622634647d-1*t124*t125*t238*t88*t89 17916 t240 = t127**2 17917 t241 = 1/t95**4 17918 t242 = 1/t96**2 17919 t243 = 6.187255516702861d+1*t240*t241*t242*t72*t73*t77*t94 17920 t244 = 3.847322101863072d+0*t127*t128*t129*t139*t72*t73*t9 17921 1 4 17922 t245 = 1/t95**3 17923 t246 = -3.847322101863072d+0*t129*t240*t245*t72*t73*t77*t9 17924 1 4 17925 t247 = -1.6347222733154887d-1*t127*t128*t129*t152*t72*t77 17926 t248 = 2.1622951122684114d+0*t227+1.7087761055320938d+0*t2 17927 1 26+1.2335503316757068d+0*t225+2.673190323653546d-1*t224 17928 t249 = 1.923661050931536d+0*t128*t129*t248*t72*t73*t77*t94 17929 t250 = -1.538928840745229d+1*t127*t128*t129*t141*t72*t77*t 17930 1 94 17931 t251 = 1.538928840745229d+1*t127*t128*t129*t143*t73*t77*t9 17932 1 4 17933 t252 = t134**2 17934 t253 = 1/t75**6.666666666666666d-1 17935 t254 = 1/t68**3 17936 t255 = -2*t254*t71 17937 t256 = 2*t131 17938 t257 = t256+t255 17939 t258 = t137**2 17940 t259 = 1/t76**6.666666666666666d-1 17941 t260 = 2*t254*t71 17942 t261 = -2*t131 17943 t262 = t261+t260 17944 t263 = 1.3333333333333333d+0*t138*t262+4.444444444444444d- 17945 1 1*t258*t259+1.3333333333333333d+0*t135*t257+4.444444444 17946 2 444444d-1*t252*t253 17947 t264 = -1.923661050931536d+0*t263*t72*t73 17948 t265 = 1.5389288407452287d+1*t139*t141*t72 17949 t266 = -1.5389288407452287d+1*t139*t143*t73 17950 t267 = 1/t68**6 17951 t268 = -3.8473221018630716d+1*t267*t72*t77 17952 t269 = 6.155715362980915d+1*t141*t143*t77 17953 t270 = t71**2 17954 t271 = -2.3083932611178434d+1*t270*t73*t77 17955 t272 = t271+t269+t268+t266+t265+t264 17956 t273 = -6.21814d-2*t272*t70*t86 17957 t274 = 5.495546528376875d-3*t117*t145*t86 17958 t275 = -3.663697685584583d-3*t226*t79*t86 17959 t276 = t271+t269+t268+t266+t265+t264+1.923661050931536d+0* 17960 1 t263 17961 t277 = 1.9751631321680768d-2*t276*t88*t92 17962 t278 = -9.087592854964233d-4*t117*t148*t92 17963 t279 = 6.058395236642822d-4*t226*t89*t92 17964 t280 = -5.980796863619711d-2*t263*t72*t73*t94*t97 17965 t281 = 5.082465978296986d-3*t139*t152*t72*t97 17966 t282 = 4.7846374908957684d-1*t139*t141*t72*t94*t97 17967 t283 = 1/t68**6.333333333333333d+0 17968 t284 = -2.3718174565385935d-2*t283*t72*t77*t97 17969 t285 = 2.0329863913187946d-2*t143*t152*t77*t97 17970 t286 = -1.1961593727239421d+0*t267*t72*t77*t94*t97 17971 t287 = 1.9138549963583074d+0*t141*t143*t77*t94*t97 17972 t288 = -7.176956236343652d-1*t270*t73*t77*t94*t97 17973 t289 = t68*(-4.7846374908957684d-1*t139*t143*t73*t94*t97+t 17974 1 288+t287+t286+t285+t284+t282+t281+t280+t279+t278+t277+t 17975 2 275+t274+t273+t251+t250+t249+t247+t246+t244+t243+t239+t 17976 3 237+t236+t234+t233+t229+t223+t222+t220+t219)-4.78463749 17977 4 08957684d-1*t143*t73*t77*t94*t97-1.1961593727239421d-1* 17978 5 t139*t72*t73*t94*t97+3.9503262643361536d-2*t148*t88*t92 17979 6 -1.243628d-1*t145*t70*t86-2.220446049250313d-16*t100*t1 17980 7 04*t105*t29-6.101282288702853d-19*t102*t28-2.0d+0*t106* 17981 8 t107*t108*t25-2.642079786267853d-3*t102*t24+t215+t214+t 17982 9 213+t212+t211+t210+t209-rhoa*t201 17983 t290 = 1/t56**4 17984 t291 = 5.580255669359999d-103*t204*t290*t58*t61*t66-1.6264 17985 1 853333333332d-51*t156*t205*t58*t61*t66+8.88888888888888 17986 2 8d-50*t205*t57*t61*t66-4.0662133333333333d-101*t156*t20 17987 3 4*t61*t66+1.7777777777777776d-49*t205*t57*t58*t66-8.132 17988 4 426666666667d-101*t156*t204*t58*t66+4.444444444444444d- 17989 5 99*t204*t57*t66+1.7777777777777776d-49*t205*t64*t65-8.1 17990 6 32426666666666d-52*t205*t57*t61*t65+1.86008522312d-103* 17991 7 t156*t204*t61*t65-4.0662133333333333d-101*t204*t57*t65+ 17992 8 8.888888888888888d-50*t205*t63*t64-8.132426666666666d-5 17993 9 2*t205*t57*t58*t63+1.86008522312d-103*t156*t204*t58*t63 17994 : -2.0331066666666667d-101*t204*t57*t63+5.580255669359999 17995 ; d-103*t204*t290*t60*t62-1.6264853333333332d-51*t156*t20 17996 < 5*t60*t62+3.555555555555555d-49*t205*t57*t60*t61-1.6264 17997 = 853333333334d-100*t156*t204*t60*t61+8.888888888888888d- 17998 > 99*t204*t57*t60+5.580255669359999d-103*t204*t290*t55*t5 17999 ? 9-1.6264853333333332d-51*t156*t205*t55*t59+1.7777777777 18000 @ 777776d-49*t205*t55*t57*t58-8.132426666666667d-101*t156 18001 1 *t204*t55*t58+2.222222222222222d-99*t204*t55*t57 18002 t292 = 1.0d+0*t291*t99+1.0d+0*t289*t67+2.0d+0*t155*t157 18003 t293 = 3.04966d-52*t157*t99+3.04966d-52*t155*t67+3.04966d- 18004 1 52*t158 18005 t294 = 2.6666666666666666d+0*t138*t254*t71-2.6666666666666 18006 1 666d+0*t135*t254*t71+4.444444444444444d-1*t137*t175*t25 18007 2 9+4.444444444444444d-1*t134*t174*t253 18008 t295 = -1.923661050931536d+0*t294*t72*t73 18009 t296 = 7.694644203726144d+0*t141*t176*t72 18010 t297 = -7.694644203726144d+0*t143*t176*t73 18011 t298 = 7.694644203726144d+0*t139*t141*t72 18012 t299 = 7.694644203726144d+0*t139*t143*t73 18013 t300 = 2.3083932611178434d+1*t270*t73*t77 18014 t301 = t300+t299+t298+t297+t296+t295+t268 18015 t302 = t300+t299+t298+t297+t296+t295+1.923661050931536d+0* 18016 1 t294+t268 18017 t303 = 7.176956236343652d-1*t270*t73*t77*t94*t97 18018 t304 = t68*(-5.980796863619711d-2*t294*t72*t73*t94*t97-2.3 18019 1 923187454478842d-1*t143*t176*t73*t94*t97+2.392318745447 18020 2 8842d-1*t139*t143*t73*t94*t97+2.3923187454478842d-1*t14 18021 3 1*t176*t72*t94*t97+2.3923187454478842d-1*t139*t141*t72* 18022 4 t94*t97+2.541232989148493d-3*t152*t176*t72*t97+2.541232 18023 5 989148493d-3*t139*t152*t72*t97+1.923661050931536d+0*t12 18024 6 7*t128*t129*t176*t72*t73*t94+1.923661050931536d+0*t127* 18025 7 t128*t129*t139*t72*t73*t94+1.9751631321680768d-2*t302*t 18026 8 88*t92-4.5437964274821163d-4*t117*t181*t92-4.5437964274 18027 9 821163d-4*t117*t148*t92-5.848223622634647d-1*t123*t124* 18028 : t125*t181*t88-5.848223622634647d-1*t123*t124*t125*t148* 18029 ; t88-6.21814d-2*t301*t70*t86+2.747773264188437d-3*t117*t 18030 < 179*t86+2.747773264188437d-3*t117*t145*t86+1.0d+0*t119* 18031 = t120*t121*t179*t70+1.0d+0*t119*t120*t121*t145*t70+t303+ 18032 > t286+t284+t279+t275+t250+t249+t247+t246+t243+t239+t237+ 18033 ? t236+t233+t229+t223+t222+t219)+t215+t214+t213+t212+t211 18034 @ +t210+t209+t183+t182+t180+t151+t149+t146 18035 t305 = 5.580255669359999d-103*t112*t171*t290*t58*t61*t66-4 18036 1 .0662133333333333d-101*t112*t156*t171*t61*t66-8.1324266 18037 2 66666667d-101*t112*t156*t171*t58*t66+4.444444444444444d 18038 3 -99*t112*t171*t57*t66+1.86008522312d-103*t112*t156*t171 18039 4 *t61*t65-4.0662133333333333d-101*t112*t171*t57*t65+1.86 18040 5 008522312d-103*t112*t156*t171*t58*t63-2.033106666666666 18041 6 7d-101*t112*t171*t57*t63+5.580255669359999d-103*t112*t1 18042 7 71*t290*t60*t62-1.6264853333333334d-100*t112*t156*t171* 18043 8 t60*t61+8.888888888888888d-99*t112*t171*t57*t60+5.58025 18044 9 5669359999d-103*t112*t171*t290*t55*t59-8.13242666666666 18045 : 7d-101*t112*t156*t171*t55*t58+2.222222222222222d-99*t11 18046 ; 2*t171*t55*t57 18047 t306 = 1.0d+0*t305*t99+1.0d+0*t304*t67+1.0d+0*t155*t185+1. 18048 1 0d+0*t157*t184 18049 t307 = 3.04966d-52*t184*t67 18050 t308 = 3.04966d-52*t185*t99 18051 t309 = t308+t307 18052 t310 = 2.57544d-52*t172*t54+2.57544d-52*t168*t40 18053 t311 = 1/t51**2 18054 t312 = t163**2 18055 t313 = 1/t50**4 18056 t314 = 1/t50**3 18057 t315 = 1/t42**5 18058 t316 = 1/rhob**2.3333333333333334d+0 18059 t317 = 1/rhob**2.1666666666666665d+0 18060 t318 = 1.1632736958443765d+0*t317+9.89141964955861d-1*t316 18061 1 +6.003214762495226d-1*t315+2.1077825841639536d-1*t171 18062 t319 = 1/t47**2 18063 t320 = t166**2 18064 t321 = 1/t46**4 18065 t322 = 1/t46**3 18066 t323 = 2.1622951122684114d+0*t317+1.7087761055320938d+0*t3 18067 1 16+1.2335503316757068d+0*t315+2.673190323653546d-1*t171 18068 t324 = 1.1102230246251565d-16*t159*t164*t318*t53-2.2204460 18069 1 49250313d-16*t159*t312*t314*t53+1.7854583920998188d-15* 18070 2 t311*t312*t313*t53-4.0675215258019015d-19*t316*t52+1.0d 18071 3 +0*t165*t167*t323*t49-2.0d+0*t165*t320*t322*t49+3.21639 18072 4 5899738507d+1*t319*t320*t321*t49-1.7613865241785684d-3* 18073 5 t316*t48-8.497974591333913d-2*t161*t165*t166*t167-9.812 18074 6 069668265515d-18*t159*t161*t163*t164 18075 t325 = 1/t33**4 18076 t326 = 1/rhob**7 18077 t327 = 1/rhob**5.333333333333333d+0 18078 t328 = 1/rhob**3.6666666666666664d+0 18079 t329 = -2.747136d-51*t169*t328*t38*t6+1.5918938864639998d- 18080 1 102*t325*t327*t38*t6+1.7777777777777776d-49*t328*t35*t3 18081 2 7*t6-1.373568d-100*t169*t327*t37*t6+2.222222222222222d- 18082 3 99*t327*t35*t6+1.7777777777777776d-49*t15*t328*t35*t37- 18083 4 1.373568d-51*t13*t328*t35*t37-2.4724223999999997d-100*t 18084 5 15*t169*t327*t37+5.306312954879999d-103*t13*t169*t327*t 18085 6 37+6.367575545855999d-152*t15*t325*t326*t37+8.0d-99*t15 18086 7 *t327*t35-1.2362111999999999d-100*t14*t327*t35-3.43392d 18087 8 -101*t13*t327*t35+2.3111111111111113d-98*t11*t327*t35+1 18088 9 .7777777777777776d-49*t14*t328*t34+8.888888888888888d-5 18089 : 0*t13*t328*t34-2.7471359999999995d-150*t15*t169*t326+2. 18090 ; 1225251819519997d-152*t14*t169*t326-1.53839616d-149*t11 18091 < *t169*t326+2.5470302183424d-201*t11*t325/rhob**8.666666 18092 = 666666666d+0 18093 t330 = 5.0d-1*rhob*t329*t54+1.0d+0*t172*t54+5.0d-1*rhob*t3 18094 1 24*t40+1.0d+0*t168*t40+1.0d+0*rhob*t168*t172 18095 t331 = 5.15088d-52*t173-4.2923999999999995d-52*t40*t54 18096 t332 = 2.0d+0*t119*t120*t121*t179*t70 18097 t333 = -1.1696447245269295d+0*t123*t124*t125*t181*t88 18098 t334 = 3.847322101863072d+0*t127*t128*t129*t176*t72*t73*t9 18099 1 4 18100 t335 = -1.538928840745229d+1*t127*t128*t129*t143*t73*t77*t 18101 1 94 18102 t336 = t174**2 18103 t337 = t261+t255 18104 t338 = t175**2 18105 t339 = t260+t256 18106 t340 = 1.3333333333333333d+0*t138*t339+4.444444444444444d- 18107 1 1*t259*t338+1.3333333333333333d+0*t135*t337+4.444444444 18108 2 444444d-1*t253*t336 18109 t341 = -1.923661050931536d+0*t340*t72*t73 18110 t342 = 1.5389288407452287d+1*t141*t176*t72 18111 t343 = 1.5389288407452287d+1*t143*t176*t73 18112 t344 = -6.155715362980915d+1*t141*t143*t77 18113 t345 = t344+t343+t342+t341+t271+t268 18114 t346 = -6.21814d-2*t345*t70*t86 18115 t347 = 5.495546528376875d-3*t117*t179*t86 18116 t348 = t344+t343+t342+t341+1.923661050931536d+0*t340+t271+ 18117 1 t268 18118 t349 = 1.9751631321680768d-2*t348*t88*t92 18119 t350 = -9.087592854964233d-4*t117*t181*t92 18120 t351 = -5.980796863619711d-2*t340*t72*t73*t94*t97 18121 t352 = 5.082465978296986d-3*t152*t176*t72*t97 18122 t353 = 4.7846374908957684d-1*t141*t176*t72*t94*t97 18123 t354 = -2.0329863913187946d-2*t143*t152*t77*t97 18124 t355 = -1.9138549963583074d+0*t141*t143*t77*t94*t97 18125 t356 = t68*(4.7846374908957684d-1*t143*t176*t73*t94*t97+t3 18126 1 55+t354+t353+t352+t351+t350+t349+t347+t346+t335+t334+t3 18127 2 33+t332+t288+t286+t284+t279+t275+t250+t249+t247+t246+t2 18128 3 43+t239+t237+t236+t233+t229+t223+t222+t219)+4.784637490 18129 4 8957684d-1*t143*t73*t77*t94*t97-1.1961593727239421d-1*t 18130 5 176*t72*t73*t94*t97+3.9503262643361536d-2*t181*t88*t92- 18131 6 1.243628d-1*t179*t70*t86-2.220446049250313d-16*t159*t16 18132 7 3*t164*t53-6.101282288702853d-19*t161*t52-2.0d+0*t165*t 18133 8 166*t167*t49-2.642079786267853d-3*t161*t48-rhob*t324+t2 18134 9 15+t214+t213+t212+t211+t210+t209 18135 t357 = -1.6264853333333332d-51*t156*t328*t58*t61*t66+5.580 18136 1 255669359999d-103*t290*t327*t58*t61*t66+8.8888888888888 18137 2 88d-50*t328*t57*t61*t66-4.0662133333333333d-101*t156*t3 18138 3 27*t61*t66+1.7777777777777776d-49*t328*t57*t58*t66-8.13 18139 4 2426666666667d-101*t156*t327*t58*t66+4.444444444444444d 18140 5 -99*t327*t57*t66+1.7777777777777776d-49*t328*t64*t65-8. 18141 6 132426666666666d-52*t328*t57*t61*t65+1.86008522312d-103 18142 7 *t156*t327*t61*t65-4.0662133333333333d-101*t327*t57*t65 18143 8 +8.888888888888888d-50*t328*t63*t64-8.132426666666666d- 18144 9 52*t328*t57*t58*t63+1.86008522312d-103*t156*t327*t58*t6 18145 : 3-2.0331066666666667d-101*t327*t57*t63-1.62648533333333 18146 ; 32d-51*t156*t328*t60*t62+5.580255669359999d-103*t290*t3 18147 < 27*t60*t62+3.555555555555555d-49*t328*t57*t60*t61-1.626 18148 = 4853333333334d-100*t156*t327*t60*t61+8.888888888888888d 18149 > -99*t327*t57*t60-1.6264853333333332d-51*t156*t328*t55*t 18150 ? 59+5.580255669359999d-103*t290*t327*t55*t59+1.777777777 18151 @ 7777776d-49*t328*t55*t57*t58-8.132426666666667d-101*t15 18152 1 6*t327*t55*t58+2.222222222222222d-99*t327*t55*t57 18153 t358 = 1.0d+0*t357*t99+1.0d+0*t356*t67+2.0d+0*t184*t185 18154 t359 = t308+t307+3.04966d-52*t186 18155 t360 = t104**3 18156 t361 = 1/t18**7 18157 t362 = 1/rhoa**3.1666666666666665d+0 18158 t363 = t107**3 18159 t364 = 2.0690405167709364d+3*t25*t363/(t22**6*t23**3)-1.92 18160 1 98375398431045d+2*t196*t25*t363/t22**5+6.0d+0*t106*t198 18161 2 *t25*t363+1.1102230246251565d-16*t100*t105*t29*(-2.5204 18162 3 26340996149d+0*t362-1.5008036906238065d+0*t361-5.620753 18163 4 557770543d-1*t205-2.3079979182303428d+0*t12)+1.0d+0*t10 18164 5 6*t108*t25*(-4.684972743248224d+0*t362-3.08387582918926 18165 6 7d+0*t361-7.128507529742789d-1*t205-3.9871442462415524d 18166 7 +0*t12)+5.742741051503565d-14*t29*t360/(t26**6*t27**3)- 18167 8 1.0712750352598913d-14*t188*t29*t360/t26**5+6.661338147 18168 9 750939d-16*t100*t190*t29*t360-6.661338147750939d-16*t10 18169 : 0*t104*t191*t195*t29+5.356375176299456d-15*t104*t188*t1 18170 ; 90*t195*t29+9.490883560204437d-19*t12*t28-6.0d+0*t106*t 18171 < 107*t199*t200*t25+9.649187699215522d+1*t107*t196*t198*t 18172 = 200*t25+4.1099018897499934d-3*t12*t24-1.274696188700087 18173 > d-1*t102*t106*t108*t200+2.549392377400174d-1*t102*t106* 18174 ? t197*t199-4.0999275947472624d+0*t102*t196*t197*t198-1.4 18175 @ 718104502398274d-17*t100*t102*t105*t195+1.6995949182667 18176 1 827d-1*t106*t107*t108*t193+1.962413933653103d-17*t100*t 18177 2 104*t105*t193+2.943620900479655d-17*t100*t102*t189*t191 18178 3 -2.3669625486718335d-16*t102*t188*t189*t190 18179 t365 = 1/t3**5 18180 t366 = 1/rhoa**9.666666666666666d+0 18181 t367 = 1/rhoa**8 18182 t368 = 1/rhoa**6.333333333333333d+0 18183 t369 = 1/rhoa**4.666666666666667d+0 18184 t370 = 1/t56**5 18185 t371 = 4.824593849607761d+1*t216*t217*t218*t70*t79 18186 t372 = -6.0d+0*t121*t216*t221*t70*t79 18187 t373 = -2.6513779981040353d-1*t117*t119*t120*t121*t79 18188 t374 = 3.0d+0*t120*t121*t228*t70*t79 18189 t375 = -5.19476882440587d+1*t230*t231*t232*t88*t89 18190 t376 = 3.5089341735807883d+0*t125*t230*t235*t88*t89 18191 t377 = 8.072185179299687d-2*t117*t123*t124*t125*t89 18192 t378 = -1.7544670867903941d+0*t124*t125*t238*t88*t89 18193 t379 = 1.856176655010858d+2*t240*t241*t242*t72*t73*t77*t94 18194 t380 = -1.1541966305589217d+1*t129*t240*t245*t72*t73*t77*t 18195 1 94 18196 t381 = -4.904166819946466d-1*t127*t128*t129*t152*t72*t77 18197 t382 = 5.770983152794609d+0*t128*t129*t248*t72*t73*t77*t94 18198 t383 = -4.616786522235687d+1*t127*t128*t129*t141*t72*t77*t 18199 1 94 18200 t384 = -1.099109305675375d-2*t226*t79*t86 18201 t385 = 1.8175185709928465d-3*t226*t89*t92 18202 t386 = -7.11545236961578d-2*t283*t72*t77*t97 18203 t387 = -3.588478118171826d+0*t267*t72*t77*t94*t97 18204 t388 = -2.1530868709030954d+0*t270*t73*t77*t94*t97 18205 t389 = t119**3 18206 t390 = 5.172601291927341d+2*t389*t70*t79/(t84**6*t85**3) 18207 t391 = -9.649187699215522d+1*t218*t389*t70*t79/t84**5 18208 t392 = 4.824593849607761d+1*t119*t217*t218*t228*t70*t79 18209 t393 = -2.1319703304396778d+0*t117*t216*t217*t218*t79 18210 t394 = 6.0d+0*t121*t217*t389*t70*t79 18211 t395 = -6.0d+0*t119*t121*t221*t228*t70*t79 18212 t396 = 2.6513779981040353d-1*t117*t121*t216*t221*t79 18213 t397 = -1.3256889990520176d-1*t117*t120*t121*t228*t79 18214 t398 = 1.767585332069357d-1*t119*t120*t121*t226*t79 18215 t399 = 1/t68**3.6666666666666664d+0 18216 t400 = 1/t81**7 18217 t401 = 1/t68**3.3333333333333337d+0 18218 t402 = 1/t68**3.1666666666666665d+0 18219 t403 = 1.0d+0*t120*t121*(-2.520426340996149d+0*t402-2.3079 18220 1 979182303428d+0*t401-1.5008036906238065d+0*t400-5.62075 18221 2 3557770543d-1*t399)*t70*t79 18222 t404 = t123**3 18223 t405 = -1.0254062650399592d+3*t404*t88*t89/(t90**6*t91**3) 18224 t406 = 1.0389537648811739d+2*t232*t404*t88*t89/t90**5 18225 t407 = -5.19476882440587d+1*t123*t231*t232*t238*t88*t89 18226 t408 = 1.1950391155803675d+0*t117*t230*t231*t232*t89 18227 t409 = -3.5089341735807883d+0*t125*t231*t404*t88*t89 18228 t410 = 3.5089341735807883d+0*t123*t125*t235*t238*t88*t89 18229 t411 = -8.072185179299687d-2*t117*t125*t230*t235*t89 18230 t412 = 4.0360925896498434d-2*t117*t124*t125*t238*t89 18231 t413 = -5.381456786199791d-2*t123*t124*t125*t226*t89 18232 t414 = -5.848223622634647d-1*t124*t125*(-3.436688601932293 18233 1 d+0*t402-2.3308360066730832d+0*t401-8.064323383643707d- 18234 2 1*t400-5.663741022599518d-1*t399)*t88*t89 18235 t415 = t127**3 18236 t416 = 3.9801326549115085d+3*t415*t72*t73*t77*t94/(t95**6* 18237 1 t96**3) 18238 t417 = -3.712353310021716d+2*t242*t415*t72*t73*t77*t94/t95 18239 1 **5 18240 t418 = 1.856176655010858d+2*t127*t241*t242*t248*t72*t73*t7 18241 1 7*t94 18242 t419 = -7.424706620043432d+2*t141*t240*t241*t242*t72*t77*t 18243 1 94 18244 t420 = -7.886871025654724d+0*t152*t240*t241*t242*t72*t77 18245 t421 = 1.1541966305589217d+1*t129*t241*t415*t72*t73*t77*t9 18246 1 4 18247 t422 = -1.1541966305589217d+1*t127*t129*t245*t248*t72*t73* 18248 1 t77*t94 18249 t423 = 4.616786522235687d+1*t129*t141*t240*t245*t72*t77*t9 18250 1 4 18251 t424 = 4.904166819946466d-1*t129*t152*t240*t245*t72*t77 18252 t425 = -2.452083409973233d-1*t128*t129*t152*t248*t72*t77 18253 t426 = 2.2886111826416838d+0*t127*t128*t129*t283*t72*t77 18254 t427 = 1.923661050931536d+0*t128*t129*(-4.684972743248224d 18255 1 +0*t402-3.9871442462415524d+0*t401-3.083875829189267d+0 18256 2 *t400-7.128507529742789d-1*t399)*t72*t73*t77*t94 18257 t428 = -2.3083932611178434d+1*t128*t129*t141*t248*t72*t77* 18258 1 t94 18259 t429 = 1.1541966305589217d+2*t127*t128*t129*t267*t72*t77*t 18260 1 94 18261 t430 = 6.925179783353531d+1*t127*t128*t129*t270*t73*t77*t9 18262 1 4 18263 t431 = 8.548627933030694d-3*t401*t79*t86 18264 t432 = 1/t75**1.6666666666666669d+0 18265 t433 = 6*t71*t73 18266 t434 = -6*t254 18267 t435 = 1/t76**1.6666666666666669d+0 18268 t436 = -6*t71*t73 18269 t437 = 6*t254 18270 t438 = 1.3333333333333333d+0*t138*(t437+t436)-2.9629629629 18271 1 62963d-1*t137**3*t435+1.3333333333333333d+0*t135*(t434+ 18272 2 t433)-2.962962962962963d-1*t134**3*t432+1.3333333333333 18273 3 333d+0*t137*t259*t262+1.3333333333333333d+0*t134*t253*t 18274 4 257 18275 t439 = -1.923661050931536d+0*t438*t72*t73 18276 t440 = 2.3083932611178434d+1*t141*t263*t72 18277 t441 = -2.3083932611178434d+1*t143*t263*t73 18278 t442 = -1.1541966305589216d+2*t139*t267*t72 18279 t443 = 1.8467146088942746d+2*t139*t141*t143 18280 t444 = -6.925179783353531d+1*t139*t270*t73 18281 t445 = 1/t68**7 18282 t446 = 2.3083932611178432d+2*t445*t72*t77 18283 t447 = -4.6167865222356863d+2*t143*t267*t77 18284 t448 = 2.770071913341412d+2*t141*t270*t77 18285 t449 = -4.616786522235687d+1*t71*t73*t77 18286 t450 = -1.4136255552166585d-3*t401*t89*t92 18287 t451 = 2.0103976536374746d-1*t72*t77*t97/t68**7.3333333333 18288 1 33333d+0 18289 t452 = 9.148438760934575d-2*t152*t270*t77*t97 18290 t453 = 7.176956236343652d+0*t445*t72*t77*t94*t97 18291 t454 = 8.612347483612381d+0*t141*t270*t77*t94*t97 18292 t455 = -1.4353912472687305d+0*t71*t73*t77*t94*t97 18293 t456 = -8.132426666666666d-52*t185*t99-8.132426666666666d- 18294 1 52*t184*t67 18295 t457 = 1.86008522312d-103*t184*t67 18296 t458 = 1.86008522312d-103*t185*t99 18297 t459 = -1.243628d-1*t301*t70*t86 18298 t460 = 3.9503262643361536d-2*t302*t88*t92 18299 t461 = -1.1961593727239421d-1*t294*t72*t73*t94*t97 18300 t462 = 2.0d+0*t119*t120*t121*t301*t70 18301 t463 = -1.1696447245269295d+0*t123*t124*t125*t302*t88 18302 t464 = 3.847322101863072d+0*t127*t128*t129*t294*t72*t73*t9 18303 1 4 18304 t465 = -2.3083932611178434d+1*t127*t128*t129*t270*t73*t77* 18305 1 t94 18306 t466 = 5.495546528376875d-3*t117*t301*t86 18307 t467 = 1.5389288407452287d+1*t141*t294*t72 18308 t468 = -1.5389288407452287d+1*t143*t294*t73 18309 t469 = 1.7777777777777776d+0*t137*t254*t259*t71-1.77777777 18310 1 77777776d+0*t134*t253*t254*t71+1.3333333333333333d+0*t1 18311 2 38*(t436+2*t254)-2.962962962962963d-1*t175*t258*t435+1. 18312 3 3333333333333333d+0*t135*(t433-2*t254)-2.96296296296296 18313 4 3d-1*t174*t252*t432+4.444444444444444d-1*t175*t259*t262 18314 5 +4.444444444444444d-1*t174*t253*t257 18315 t470 = -1.923661050931536d+0*t469*t72*t73 18316 t471 = 7.694644203726144d+0*t141*t263*t72 18317 t472 = 7.694644203726144d+0*t143*t263*t73 18318 t473 = -3.8473221018630716d+1*t176*t267*t72 18319 t474 = 6.155715362980915d+1*t141*t143*t176 18320 t475 = -2.3083932611178434d+1*t176*t270*t73 18321 t476 = -7.694644203726143d+1*t139*t267*t72 18322 t477 = 4.616786522235687d+1*t139*t270*t73 18323 t478 = -1.5389288407452287d+2*t143*t267*t77 18324 t479 = -9.233573044471374d+1*t141*t270*t77 18325 t480 = 4.616786522235687d+1*t71*t73*t77 18326 t481 = -9.087592854964233d-4*t117*t302*t92 18327 t482 = 5.082465978296986d-3*t152*t294*t72*t97 18328 t483 = 4.7846374908957684d-1*t141*t294*t72*t94*t97 18329 t484 = -2.870782494537461d+0*t141*t270*t77*t94*t97 18330 t485 = 1.4353912472687305d+0*t71*t73*t77*t94*t97 18331 t486 = 3.04966d-52*t356*t67 18332 t487 = 6.09932d-52*t184*t185 18333 t488 = 3.04966d-52*t357*t99 18334 t489 = -8*t138*t71*t73+8*t135*t71*t73+1.7777777777777776d+ 18335 1 0*t175*t254*t259*t71-1.7777777777777776d+0*t174*t253*t2 18336 2 54*t71-2.962962962962963d-1*t137*t338*t435-2.9629629629 18337 3 62963d-1*t134*t336*t432+4.444444444444444d-1*t137*t259* 18338 4 t339+4.444444444444444d-1*t134*t253*t337-2.666666666666 18339 5 6666d+0*t138*t254+2.6666666666666666d+0*t135*t254 18340 t490 = -1.923661050931536d+0*t489*t72*t73 18341 t491 = 1.5389288407452287d+1*t143*t294*t73 18342 t492 = 7.694644203726144d+0*t141*t340*t72 18343 t493 = -7.694644203726144d+0*t143*t340*t73 18344 t494 = -7.694644203726143d+1*t176*t267*t72 18345 t495 = 4.616786522235687d+1*t176*t270*t73 18346 t496 = -3.8473221018630716d+1*t139*t267*t72 18347 t497 = -6.155715362980915d+1*t139*t141*t143 18348 t498 = -2.3083932611178434d+1*t139*t270*t73 18349 t499 = 1.5389288407452287d+2*t143*t267*t77 18350 t500 = t163**3 18351 t501 = 1/t42**7 18352 t502 = 1/rhob**3.1666666666666665d+0 18353 t503 = t166**3 18354 t504 = 5.742741051503565d-14*t500*t53/(t50**6*t51**3)+1.11 18355 1 02230246251565d-16*t159*t164*(-2.520426340996149d+0*t50 18356 2 2-1.5008036906238065d+0*t501-2.3079979182303428d+0*t39- 18357 3 5.620753557770543d-1*t328)*t53-1.0712750352598913d-14*t 18358 4 311*t500*t53/t50**5+6.661338147750939d-16*t159*t313*t50 18359 5 0*t53-6.661338147750939d-16*t159*t163*t314*t318*t53+5.3 18360 6 56375176299456d-15*t163*t311*t313*t318*t53+9.4908835602 18361 7 04437d-19*t39*t52+2.0690405167709364d+3*t49*t503/(t46** 18362 8 6*t47**3)-1.9298375398431045d+2*t319*t49*t503/t46**5+6. 18363 9 0d+0*t165*t321*t49*t503+1.0d+0*t165*t167*t49*(-4.684972 18364 : 743248224d+0*t502-3.083875829189267d+0*t501-3.987144246 18365 ; 2415524d+0*t39-7.128507529742789d-1*t328)-6.0d+0*t165*t 18366 < 166*t322*t323*t49+9.649187699215522d+1*t166*t319*t321*t 18367 = 323*t49+4.1099018897499934d-3*t39*t48-1.274696188700087 18368 > d-1*t161*t165*t167*t323+2.549392377400174d-1*t161*t165* 18369 ? t320*t322-4.0999275947472624d+0*t161*t319*t320*t321-1.4 18370 @ 718104502398274d-17*t159*t161*t164*t318+1.6995949182667 18371 1 827d-1*t165*t166*t167*t316+1.962413933653103d-17*t159*t 18372 2 163*t164*t316+2.943620900479655d-17*t159*t161*t312*t314 18373 3 -2.3669625486718335d-16*t161*t311*t312*t313 18374 t505 = 1/t33**5 18375 t506 = 1/rhob**9.666666666666666d+0 18376 t507 = 1/rhob**8 18377 t508 = 1/rhob**6.333333333333333d+0 18378 t509 = 1/rhob**4.666666666666667d+0 18379 t510 = 1.3333333333333333d+0*t135*(t437+t433)+1.3333333333 18380 1 333333d+0*t138*(t436+t434)-2.962962962962963d-1*t175**3 18381 2 *t435-2.962962962962963d-1*t174**3*t432+1.3333333333333 18382 3 333d+0*t175*t259*t339+1.3333333333333333d+0*t174*t253*t 18383 4 337 18384 t511 = -1.923661050931536d+0*t510*t72*t73 18385 t512 = 2.3083932611178434d+1*t141*t340*t72 18386 t513 = 2.3083932611178434d+1*t143*t340*t73 18387 t514 = -1.1541966305589216d+2*t176*t267*t72 18388 t515 = -1.8467146088942746d+2*t141*t143*t176 18389 t516 = -6.925179783353531d+1*t176*t270*t73 18390 t517 = 4.6167865222356863d+2*t143*t267*t77 18391 fnc(iq) = (1.0d+0*t64*t67*t99+5.0d-1*rhob*t34*t40*t54+5.0d 18392 1 -1*rhoa*t16*t30*t4)*wght+fnc(iq) 18393 Amat(iq,D1_RA) = (3.04966d-52*t112*t57*t67*t99+2.57544d-52 18394 1 *t1*t16*t30*t7+t158*t64+t114*t4)*wght+Amat(iq,D1_RA) 18395 Amat(iq,D1_RB) = (3.04966d-52*t171*t57*t67*t99+t186*t64+2. 18396 1 57544d-52*t31*t35*t40*t54+t173*t34)*wght+Amat(iq,D1_RB) 18397 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 18398 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 18399 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 18400 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 18401 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 18402 Amat2(iq,D2_RA_RA) = (-8.132426666666666d-52*t205*t57*t67* 18403 1 t99+1.86008522312d-103*t156*t204*t67*t99+t112*t208*t7+t 18404 2 1*t187*t7+t292*t64+t112*t293*t57+t207*t4+2.653156477439 18405 3 9996d-103*t110*t111*t16*t30)*wght+Amat2(iq,D2_RA_RA) 18406 Amat2(iq,D2_RA_RB) = (1.86008522312d-103*t112*t156*t171*t6 18407 1 7*t99+t306*t64+t112*t309*t57+3.04966d-52*t158*t171*t57) 18408 2 *wght+Amat2(iq,D2_RA_RB) 18409 Amat2(iq,D2_RB_RB) = (-8.132426666666666d-52*t328*t57*t67* 18410 1 t99+1.86008522312d-103*t156*t327*t67*t99+t358*t64+t171* 18411 2 t359*t57+2.6531564774399996d-103*t169*t170*t40*t54+t171 18412 3 *t331*t35+t31*t310*t35+t330*t34)*wght+Amat2(iq,D2_RB_RB 18413 4 ) 18414 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 18415 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 18416 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 18417 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 18418 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 18419 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 18420 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 18421 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 18422 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 18423 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 18424 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 18425 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 18426 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 18427 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 18428 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 18429 Mmat2(iq,D2_RB_TB) = Mmat2(iq,D2_RB_TB) 18430 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 18431 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 18432 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 18433 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 18434 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 18435 Mmat2(iq,D2_GBB_TB) = Mmat2(iq,D2_GBB_TB) 18436 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 18437 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 18438 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 18439 Amat3(iq,D3_RA_RA_RA) = (t64*(1.0d+0*(6.807153001848166d-1 18440 1 54*t367*t370*t58*t61*t66+5.963779555555554d-51*t156*t36 18441 2 9*t58*t61*t66-4.4642045354879994d-102*t290*t368*t58*t61 18442 3 *t66-3.259259259259259d-49*t369*t57*t61*t66+3.252970666 18443 4 6666663d-100*t156*t368*t61*t66-5.580255669359999d-152*t 18444 5 290*t367*t61*t66-6.518518518518518d-49*t369*t57*t58*t66 18445 6 +6.505941333333333d-100*t156*t368*t58*t66-1.11605113387 18446 7 19999d-151*t290*t367*t58*t66-3.555555555555555d-98*t368 18447 8 *t57*t66+8.132426666666666d-150*t156*t367*t66-6.5185185 18448 9 18518518d-49*t369*t64*t65+2.981889777777777d-51*t369*t5 18449 : 7*t61*t65-1.4880681784959998d-102*t156*t368*t61*t65+1.7 18450 ; 017882504620416d-154*t290*t367*t61*t65+3.25297066666666 18451 < 63d-100*t368*t57*t65-3.720170446239999d-152*t156*t367*t 18452 = 65-3.259259259259259d-49*t369*t63*t64+2.981889777777777 18453 > d-51*t369*t57*t58*t63-1.4880681784959998d-102*t156*t368 18454 ? *t58*t63+1.7017882504620416d-154*t290*t367*t58*t63+1.62 18455 @ 64853333333332d-100*t368*t57*t63-1.8600852231199996d-15 18456 1 2*t156*t367*t63+6.807153001848166d-154*t367*t370*t60*t6 18457 2 2+5.963779555555554d-51*t156*t369*t60*t62-4.46420453548 18458 3 79994d-102*t290*t368*t60*t62-1.3037037037037036d-48*t36 18459 4 9*t57*t60*t61+1.3011882666666666d-99*t156*t368*t60*t61- 18460 5 2.2321022677439997d-151*t290*t367*t60*t61-7.11111111111 18461 6 111d-98*t368*t57*t60+1.6264853333333332d-149*t156*t367* 18462 7 t60+6.807153001848166d-154*t367*t370*t55*t59+5.96377955 18463 8 5555554d-51*t156*t369*t55*t59-4.4642045354879994d-102*t 18464 9 290*t368*t55*t59-6.518518518518518d-49*t369*t55*t57*t58 18465 : +6.505941333333333d-100*t156*t368*t55*t58-1.11605113387 18466 ; 19999d-151*t290*t367*t55*t58-1.7777777777777776d-98*t36 18467 < 8*t55*t57+4.066213333333333d-150*t156*t367*t55)*t99+1.0 18468 = d+0*t67*(t68*(-1.4353912472687305d+1*t143*t267*t77*t94* 18469 > t97-5.980796863619711d-2*t438*t72*t73*t94*t97-2.1530868 18470 ? 709030954d+0*t139*t270*t73*t94*t97-7.176956236343652d-1 18471 @ *t143*t263*t73*t94*t97-3.588478118171826d+0*t139*t267*t 18472 1 72*t94*t97+7.176956236343652d-1*t141*t263*t72*t94*t97+5 18473 2 .741564989074922d+0*t139*t141*t143*t94*t97-2.8461809478 18474 3 463124d-1*t143*t283*t77*t97-7.11545236961578d-2*t139*t2 18475 4 83*t72*t97+7.623698967445479d-3*t152*t263*t72*t97+6.098 18476 5 959173956384d-2*t139*t143*t152*t97+2.3083932611178434d+ 18477 6 1*t128*t129*t143*t248*t73*t77*t94-4.616786522235687d+1* 18478 7 t129*t143*t240*t245*t73*t77*t94+7.424706620043432d+2*t1 18479 8 43*t240*t241*t242*t73*t77*t94-1.8467146088942746d+2*t12 18480 9 7*t128*t129*t141*t143*t77*t94+5.770983152794609d+0*t127 18481 : *t128*t129*t263*t72*t73*t94+5.770983152794609d+0*t128*t 18482 ; 129*t139*t248*t72*t73*t94-1.1541966305589217d+1*t129*t1 18483 < 39*t240*t245*t72*t73*t94+1.856176655010858d+2*t139*t240 18484 = *t241*t242*t72*t73*t94+4.616786522235687d+1*t127*t128*t 18485 > 129*t139*t143*t73*t94-4.616786522235687d+1*t127*t128*t1 18486 ? 29*t139*t141*t72*t94+1.9751631321680768d-2*(t449+t448+t 18487 @ 447+t446+t444+t443+t442+t441+t440+t439+1.92366105093153 18488 1 6d+0*t438)*t88*t92-1.363138928244635d-3*t117*t276*t92+1 18489 2 .8175185709928465d-3*t148*t226*t92-1.7544670867903941d+ 18490 3 0*t123*t124*t125*t276*t88-1.7544670867903941d+0*t124*t1 18491 4 25*t148*t238*t88+3.5089341735807883d+0*t125*t148*t230*t 18492 5 235*t88-5.19476882440587d+1*t148*t230*t231*t232*t88-6.2 18493 6 1814d-2*(t449+t448+t447+t446+t444+t443+t442+t441+t440+t 18494 7 439)*t70*t86+8.243319792565312d-3*t117*t272*t86-1.09910 18495 8 9305675375d-2*t145*t226*t86-1.9616667279785865d+0*t127* 18496 9 t128*t129*t143*t152*t77-4.904166819946466d-1*t127*t128* 18497 : t129*t139*t152*t72+3.0d+0*t119*t120*t121*t272*t70+3.0d+ 18498 ; 0*t120*t121*t145*t228*t70-6.0d+0*t121*t145*t216*t221*t7 18499 < 0+4.824593849607761d+1*t145*t216*t217*t218*t70+t455+t45 18500 = 4+t453+t452+t451+t450+t431+t430+t429+t428+t427+t426+t42 18501 > 5+t424+t423+t422+t421+t420+t419+t418+t417+t416+t414+t41 18502 ? 3+t412+t411+t410+t409+t408+t407+t406+t405+t403+t398+t39 18503 @ 7+t396+t395+t394+t393+t392+t391+t390+8.072185179299687d 18504 1 -2*t117*t123*t124*t125*t148-2.6513779981040353d-1*t117* 18505 2 t119*t120*t121*t145)+5.741564989074922d+0*t141*t143*t77 18506 3 *t94*t97-1.794239059085913d-1*t263*t72*t73*t94*t97-1.43 18507 4 53912472687305d+0*t139*t143*t73*t94*t97+1.4353912472687 18508 5 305d+0*t139*t141*t72*t94*t97+6.098959173956384d-2*t143* 18509 6 t152*t77*t97+1.524739793489096d-2*t139*t152*t72*t97+4.6 18510 7 16786522235687d+1*t127*t128*t129*t143*t73*t77*t94+1.154 18511 8 1966305589217d+1*t127*t128*t129*t139*t72*t73*t94+5.9254 18512 9 8939650423d-2*t276*t88*t92-2.72627785648927d-3*t117*t14 18513 : 8*t92-3.5089341735807883d+0*t123*t124*t125*t148*t88-1.8 18514 ; 65442d-1*t272*t70*t86+1.6486639585130625d-2*t117*t145*t 18515 < 86+6.0d+0*t119*t120*t121*t145*t70+t388+t387+t386+t385+t 18516 = 384+t383+t382+t381+t380+t379+t378+t377+t376+t375+t374+t 18517 > 373+t372+t371-rhoa*t364-3.3306690738754696d-16*t100*t10 18518 ? 5*t195*t29+6.661338147750939d-16*t100*t189*t191*t29-5.3 18519 @ 56375176299456d-15*t188*t189*t190*t29+1.220256457740570 18520 1 6d-18*t193*t28-3.0d+0*t106*t108*t200*t25+6.0d+0*t106*t1 18521 2 97*t199*t25-9.649187699215522d+1*t196*t197*t198*t25+5.2 18522 3 84159572535705d-3*t193*t24+2.549392377400174d-1*t102*t1 18523 4 06*t107*t108+2.943620900479655d-17*t100*t102*t104*t105) 18524 5 +3.0d+0*t155*t291+3.0d+0*t157*t289)+t112*t57*(3.04966d- 18525 6 52*t291*t99+3.04966d-52*t289*t67+6.09932d-52*t292+6.099 18526 7 32d-52*t155*t157)+t156*t204*(1.86008522312d-103*t157*t9 18527 8 9+1.86008522312d-103*t155*t67+6.09932d-52*t293)+t205*t5 18528 9 7*(-8.132426666666666d-52*t157*t99-8.132426666666666d-5 18529 : 2*t155*t67)+2.981889777777777d-51*t369*t57*t67*t99-1.48 18530 ; 80681784959998d-102*t156*t368*t67*t99+1.701788250462041 18531 < 6d-154*t290*t367*t67*t99+t4*(5.0d-1*rhoa*t30*(-6.518518 18532 = 518518518d-49*t369*t6*t7*t9-6.518518518518518d-49*t15*t 18533 > 369*t7*t9+5.036415999999999d-51*t13*t369*t7*t9+1.098854 18534 ? 4d-99*t110*t368*t6*t9-3.1837877729279995d-151*t202*t367 18535 @ *t6*t9+1.50176768d-99*t110*t15*t368*t9-4.24505036390399 18536 1 94d-102*t110*t13*t368*t9-8.277848209612798d-151*t15*t20 18537 2 2*t367*t9+8.199654381909687d-154*t13*t202*t367*t9+1.311 18538 3 94470110555d-202*t15*t365*t366*t9-1.7777777777777776d-9 18539 4 8*t368*t6*t7-4.8592592592592593d-98*t15*t368*t7+7.50883 18540 5 8399999999d-100*t14*t368*t7+2.7471359999999995d-100*t13 18541 6 *t368*t7-1.2325925925925926d-97*t11*t368*t7+1.0072832d- 18542 7 50*t10*t110*t369*t6-1.2735151091711996d-101*t10*t202*t3 18543 8 68*t6+3.279861752763875d-153*t10*t365*t367*t6+6.86784d- 18544 9 150*t110*t367*t6-6.518518518518518d-49*t14*t369*t4-3.25 18545 : 9259259259259d-49*t13*t369*t4+3.5712767999999995d-149*t 18546 ; 110*t15*t367-2.7592827365375994d-151*t110*t14*t367-5.30 18547 < 631295488d-152*t110*t13*t367+1.314962432d-148*t11*t110* 18548 = t367-6.367575545855999d-201*t15*t202*t366+3.27986175276 18549 > 38746d-203*t14*t202*t366-4.58465439301632d-200*t11*t202 18550 ? *t366+5.2477788044222d-252*t11*t365/rhoa**1.13333333333 18551 @ 33334d+1)+5.0d-1*rhoa*t16*t364+1.5d+0*t206*t30+1.5d+0*r 18552 1 hoa*t109*t206+1.5d+0*t16*t201+1.5d+0*rhoa*t113*t201+3.0 18553 2 d+0*t109*t113)+t1*(2.57544d-52*t206*t30+2.57544d-52*t16 18554 3 *t201+5.15088d-52*t109*t113)*t7+t112*(-4.29239999999999 18555 4 95d-52*t113*t30+1.030176d-51*t207-4.2923999999999995d-5 18556 5 2*t109*t16)*t7-2.6666666666666666d+0*t205*t208*t7-1.666 18557 6 6666666666669d+0*t112*t187*t7-2.6666666666666666d+0*t20 18558 7 5*t293*t57+t110*t204*(1.030176d-51*t208-1.1497011402239 18559 8 997d-102*t16*t30)+t110*t111*(2.6531564774399996d-103*t1 18560 9 13*t30+1.030176d-51*t187+2.6531564774399996d-103*t109*t 18561 : 16)+4.0998271909548434d-154*t16*t202*t203*t30)*wght+Ama 18562 ; t3(iq,D3_RA_RA_RA) 18563 Amat3(iq,D3_RA_RA_RB) = (t64*(1.0d+0*(6.807153001848166d-1 18564 1 54*t171*t204*t370*t58*t61*t66-1.4880681784959998d-102*t 18565 2 171*t205*t290*t58*t61*t66-5.580255669359999d-152*t171*t 18566 3 204*t290*t61*t66+1.0843235555555555d-100*t156*t171*t205 18567 4 *t61*t66-1.1160511338719999d-151*t171*t204*t290*t58*t66 18568 5 +2.168647111111111d-100*t156*t171*t205*t58*t66-1.185185 18569 6 1851851851d-98*t171*t205*t57*t66+8.132426666666666d-150 18570 7 *t156*t171*t204*t66+1.7017882504620416d-154*t171*t204*t 18571 8 290*t61*t65-4.960227261653333d-103*t156*t171*t205*t61*t 18572 9 65+1.0843235555555555d-100*t171*t205*t57*t65-3.72017044 18573 : 6239999d-152*t156*t171*t204*t65+1.7017882504620416d-154 18574 ; *t171*t204*t290*t58*t63-4.960227261653333d-103*t156*t17 18575 < 1*t205*t58*t63+5.421617777777777d-101*t171*t205*t57*t63 18576 = -1.8600852231199996d-152*t156*t171*t204*t63+6.807153001 18577 > 848166d-154*t171*t204*t370*t60*t62-1.4880681784959998d- 18578 ? 102*t171*t205*t290*t60*t62-2.2321022677439997d-151*t171 18579 @ *t204*t290*t60*t61+4.337294222222222d-100*t156*t171*t20 18580 1 5*t60*t61-2.3703703703703702d-98*t171*t205*t57*t60+1.62 18581 2 64853333333332d-149*t156*t171*t204*t60+6.80715300184816 18582 3 6d-154*t171*t204*t370*t55*t59-1.4880681784959998d-102*t 18583 4 171*t205*t290*t55*t59-1.1160511338719999d-151*t171*t204 18584 5 *t290*t55*t58+2.168647111111111d-100*t156*t171*t205*t55 18585 6 *t58-5.925925925925926d-99*t171*t205*t55*t57+4.06621333 18586 7 3333333d-150*t156*t171*t204*t55)*t99+1.0d+0*t67*(t68*(- 18587 8 4.7846374908957684d+0*t143*t267*t77*t94*t97-5.980796863 18588 9 619711d-2*t469*t72*t73*t94*t97-4.7846374908957684d-1*t1 18589 : 43*t294*t73*t94*t97-7.176956236343652d-1*t176*t270*t73* 18590 ; t94*t97+1.4353912472687305d+0*t139*t270*t73*t94*t97+2.3 18591 < 923187454478842d-1*t143*t263*t73*t94*t97-1.196159372723 18592 = 9421d+0*t176*t267*t72*t94*t97-2.3923187454478842d+0*t13 18593 > 9*t267*t72*t94*t97+2.3923187454478842d-1*t141*t263*t72* 18594 ? t94*t97+1.9138549963583074d+0*t141*t143*t176*t94*t97-9. 18595 @ 487269826154375d-2*t143*t283*t77*t97-3.049479586978192d 18596 1 -2*t152*t270*t77*t97-2.3718174565385935d-2*t176*t283*t7 18597 2 2*t97-4.743634913077187d-2*t139*t283*t72*t97+2.54123298 18598 3 9148493d-3*t152*t263*t72*t97+2.0329863913187946d-2*t143 18599 4 *t152*t176*t97+7.694644203726144d+0*t128*t129*t143*t248 18600 5 *t73*t77*t94-1.538928840745229d+1*t129*t143*t240*t245*t 18601 6 73*t77*t94+2.4749022066811444d+2*t143*t240*t241*t242*t7 18602 7 3*t77*t94-6.155715362980916d+1*t127*t128*t129*t141*t143 18603 8 *t77*t94+1.923661050931536d+0*t127*t128*t129*t263*t72*t 18604 9 73*t94+1.923661050931536d+0*t128*t129*t176*t248*t72*t73 18605 : *t94+3.847322101863072d+0*t128*t129*t139*t248*t72*t73*t 18606 ; 94-3.847322101863072d+0*t129*t176*t240*t245*t72*t73*t94 18607 < -7.694644203726144d+0*t129*t139*t240*t245*t72*t73*t94+6 18608 = .187255516702861d+1*t176*t240*t241*t242*t72*t73*t94+1.2 18609 > 374511033405722d+2*t139*t240*t241*t242*t72*t73*t94+1.53 18610 ? 8928840745229d+1*t127*t128*t129*t143*t176*t73*t94-1.538 18611 @ 928840745229d+1*t127*t128*t129*t141*t176*t72*t94-3.0778 18612 1 57681490458d+1*t127*t128*t129*t139*t141*t72*t94+1.97516 18613 2 31321680768d-2*(t480+t479+t478+t477+t476+t475+t474+t473 18614 3 +t472+t471+t470+1.923661050931536d+0*t469+t468+t467+t44 18615 4 6)*t88*t92-4.5437964274821163d-4*t117*t276*t92+6.058395 18616 5 236642822d-4*t181*t226*t92+1.2116790473285642d-3*t148*t 18617 6 226*t92-5.848223622634647d-1*t123*t124*t125*t276*t88-5. 18618 7 848223622634647d-1*t124*t125*t181*t238*t88-1.1696447245 18619 8 269295d+0*t124*t125*t148*t238*t88+1.1696447245269295d+0 18620 9 *t125*t181*t230*t235*t88+2.339289449053859d+0*t125*t148 18621 : *t230*t235*t88-1.73158960813529d+1*t181*t230*t231*t232* 18622 ; t88-3.46317921627058d+1*t148*t230*t231*t232*t88-6.21814 18623 < d-2*(t480+t479+t478+t477+t476+t475+t474+t473+t472+t471+ 18624 = t470+t468+t467+t446)*t70*t86+2.747773264188437d-3*t117* 18625 > t272*t86-3.663697685584583d-3*t179*t226*t86-7.327395371 18626 ? 169166d-3*t145*t226*t86-6.538889093261956d-1*t127*t128* 18627 @ t129*t143*t152*t77-1.6347222733154887d-1*t127*t128*t129 18628 1 *t152*t176*t72-3.2694445466309774d-1*t127*t128*t129*t13 18629 2 9*t152*t72+1.0d+0*t119*t120*t121*t272*t70+1.0d+0*t120*t 18630 3 121*t179*t228*t70+2.0d+0*t120*t121*t145*t228*t70-2.0d+0 18631 4 *t121*t179*t216*t221*t70-4.0d+0*t121*t145*t216*t221*t70 18632 5 +1.6081979498692536d+1*t179*t216*t217*t218*t70+3.216395 18633 6 899738507d+1*t145*t216*t217*t218*t70+t485+t484+t483+t48 18634 7 2+t481+t466+t465+t464+t463+t462+t453+t451+t450+t431+t42 18635 8 9+t428+t427+t426+t425+t424+t423+t422+t421+t420+t419+t41 18636 9 8+t417+t416+t414+t413+t412+t411+t410+t409+t408+t407+t40 18637 : 6+t405+t403+t398+t397+t396+t395+t394+t393+t392+t391+t39 18638 ; 0+2.690728393099896d-2*t117*t123*t124*t125*t181-8.83792 18639 < 6660346784d-2*t117*t119*t120*t121*t179+5.38145678619979 18640 = 2d-2*t117*t123*t124*t125*t148-1.767585332069357d-1*t117 18641 > *t119*t120*t121*t145)-4.7846374908957684d-1*t143*t176*t 18642 ? 73*t94*t97+9.569274981791537d-1*t139*t141*t72*t94*t97+1 18643 @ .0164931956593973d-2*t139*t152*t72*t97+7.69464420372614 18644 1 4d+0*t127*t128*t129*t139*t72*t73*t94-1.8175185709928465 18645 2 d-3*t117*t148*t92-2.339289449053859d+0*t123*t124*t125*t 18646 3 148*t88+1.099109305675375d-2*t117*t145*t86+4.0d+0*t119* 18647 4 t120*t121*t145*t70+t461+t460+t459+t387+t386+t385+t384+t 18648 5 383+t382+t381+t380+t379+t378+t377+t376+t375+t374+t373+t 18649 6 372+t371+t353+t352+t350+t347+t334+t333+t332+t303+t287+t 18650 7 285+t280+t277+t273+t251)+2.0d+0*t155*t305+2.0d+0*t157*t 18651 8 304+1.0d+0*t184*t291+1.0d+0*t185*t289)+t112*t57*(3.0496 18652 9 6d-52*t305*t99+3.04966d-52*t304*t67+3.04966d-52*t306+3. 18653 : 04966d-52*t155*t185+3.04966d-52*t157*t184)+1.7017882504 18654 ; 620416d-154*t171*t204*t290*t67*t99-4.960227261653333d-1 18655 < 03*t156*t171*t205*t67*t99+t205*t456*t57+3.04966d-52*t17 18656 = 1*t292*t57+t156*t204*(t458+t457)+6.09932d-52*t112*t156* 18657 > t171*t293)*wght+Amat3(iq,D3_RA_RA_RB) 18658 Amat3(iq,D3_RA_RB_RB) = (t64*(1.0d+0*(6.807153001848166d-1 18659 1 54*t112*t327*t370*t58*t61*t66-1.4880681784959998d-102*t 18660 2 112*t290*t328*t58*t61*t66+1.0843235555555555d-100*t112* 18661 3 t156*t328*t61*t66-5.580255669359999d-152*t112*t290*t327 18662 4 *t61*t66+2.168647111111111d-100*t112*t156*t328*t58*t66- 18663 5 1.1160511338719999d-151*t112*t290*t327*t58*t66-1.185185 18664 6 1851851851d-98*t112*t328*t57*t66+8.132426666666666d-150 18665 7 *t112*t156*t327*t66-4.960227261653333d-103*t112*t156*t3 18666 8 28*t61*t65+1.7017882504620416d-154*t112*t290*t327*t61*t 18667 9 65+1.0843235555555555d-100*t112*t328*t57*t65-3.72017044 18668 : 6239999d-152*t112*t156*t327*t65-4.960227261653333d-103* 18669 ; t112*t156*t328*t58*t63+1.7017882504620416d-154*t112*t29 18670 < 0*t327*t58*t63+5.421617777777777d-101*t112*t328*t57*t63 18671 = -1.8600852231199996d-152*t112*t156*t327*t63+6.807153001 18672 > 848166d-154*t112*t327*t370*t60*t62-1.4880681784959998d- 18673 ? 102*t112*t290*t328*t60*t62+4.337294222222222d-100*t112* 18674 @ t156*t328*t60*t61-2.2321022677439997d-151*t112*t290*t32 18675 1 7*t60*t61-2.3703703703703702d-98*t112*t328*t57*t60+1.62 18676 2 64853333333332d-149*t112*t156*t327*t60+6.80715300184816 18677 3 6d-154*t112*t327*t370*t55*t59-1.4880681784959998d-102*t 18678 4 112*t290*t328*t55*t59+2.168647111111111d-100*t112*t156* 18679 5 t328*t55*t58-1.1160511338719999d-151*t112*t290*t327*t55 18680 6 *t58-5.925925925925926d-99*t112*t328*t55*t57+4.06621333 18681 7 3333333d-150*t112*t156*t327*t55)*t99+1.0d+0*t67*(t68*(4 18682 8 .7846374908957684d+0*t143*t267*t77*t94*t97-5.9807968636 18683 9 19711d-2*t489*t72*t73*t94*t97-2.3923187454478842d-1*t14 18684 : 3*t340*t73*t94*t97+4.7846374908957684d-1*t143*t294*t73* 18685 ; t94*t97+1.4353912472687305d+0*t176*t270*t73*t94*t97-7.1 18686 < 76956236343652d-1*t139*t270*t73*t94*t97+2.3923187454478 18687 = 842d-1*t141*t340*t72*t94*t97-2.3923187454478842d+0*t176 18688 > *t267*t72*t94*t97-1.1961593727239421d+0*t139*t267*t72*t 18689 ? 94*t97-1.9138549963583074d+0*t139*t141*t143*t94*t97+9.4 18690 @ 87269826154374d-2*t143*t283*t77*t97-3.0494795869781915d 18691 1 -2*t152*t270*t77*t97+2.541232989148493d-3*t152*t340*t72 18692 2 *t97-4.743634913077187d-2*t176*t283*t72*t97-2.371817456 18693 3 5385935d-2*t139*t283*t72*t97-2.0329863913187946d-2*t139 18694 4 *t143*t152*t97-7.694644203726144d+0*t128*t129*t143*t248 18695 5 *t73*t77*t94+1.538928840745229d+1*t129*t143*t240*t245*t 18696 6 73*t77*t94-2.4749022066811444d+2*t143*t240*t241*t242*t7 18697 7 3*t77*t94+6.155715362980916d+1*t127*t128*t129*t141*t143 18698 8 *t77*t94+1.923661050931536d+0*t127*t128*t129*t340*t72*t 18699 9 73*t94+3.847322101863072d+0*t128*t129*t176*t248*t72*t73 18700 : *t94+1.923661050931536d+0*t128*t129*t139*t248*t72*t73*t 18701 ; 94-7.694644203726144d+0*t129*t176*t240*t245*t72*t73*t94 18702 < -3.847322101863072d+0*t129*t139*t240*t245*t72*t73*t94+1 18703 = .2374511033405722d+2*t176*t240*t241*t242*t72*t73*t94+6. 18704 > 187255516702861d+1*t139*t240*t241*t242*t72*t73*t94-1.53 18705 ? 8928840745229d+1*t127*t128*t129*t139*t143*t73*t94-3.077 18706 @ 857681490458d+1*t127*t128*t129*t141*t176*t72*t94-1.5389 18707 1 28840745229d+1*t127*t128*t129*t139*t141*t72*t94+1.97516 18708 2 31321680768d-2*(t499+t498+t497+t496+t495+t494+t493+t492 18709 3 +t491+t490+1.923661050931536d+0*t489+t479+t467+t449+t44 18710 4 6)*t88*t92-4.5437964274821163d-4*t117*t348*t92+1.211679 18711 5 0473285642d-3*t181*t226*t92+6.058395236642822d-4*t148*t 18712 6 226*t92-5.848223622634647d-1*t123*t124*t125*t348*t88-1. 18713 7 1696447245269295d+0*t124*t125*t181*t238*t88-5.848223622 18714 8 634647d-1*t124*t125*t148*t238*t88+2.339289449053859d+0* 18715 9 t125*t181*t230*t235*t88+1.1696447245269295d+0*t125*t148 18716 : *t230*t235*t88-3.46317921627058d+1*t181*t230*t231*t232* 18717 ; t88-1.73158960813529d+1*t148*t230*t231*t232*t88-6.21814 18718 < d-2*(t499+t498+t497+t496+t495+t494+t493+t492+t491+t490+ 18719 = t479+t467+t449+t446)*t70*t86+2.747773264188437d-3*t117* 18720 > t345*t86-7.327395371169166d-3*t179*t226*t86-3.663697685 18721 ? 584583d-3*t145*t226*t86+6.538889093261955d-1*t127*t128* 18722 @ t129*t143*t152*t77-3.2694445466309774d-1*t127*t128*t129 18723 1 *t152*t176*t72-1.6347222733154887d-1*t127*t128*t129*t13 18724 2 9*t152*t72+1.0d+0*t119*t120*t121*t345*t70+2.0d+0*t120*t 18725 3 121*t179*t228*t70+1.0d+0*t120*t121*t145*t228*t70-4.0d+0 18726 4 *t121*t179*t216*t221*t70-2.0d+0*t121*t145*t216*t221*t70 18727 5 +3.216395899738507d+1*t179*t216*t217*t218*t70+1.6081979 18728 6 498692536d+1*t145*t216*t217*t218*t70+t484+t483+t482+t48 18729 7 1+t466+t465+t464+t463+t462+t455+t453+t451+t450+t431+t42 18730 8 9+t428+t427+t426+t425+t424+t423+t422+t421+t420+t419+t41 18731 9 8+t417+t416+t414+t413+t412+t411+t410+t409+t408+t407+t40 18732 : 6+t405+t403+t398+t397+t396+t395+t394+t393+t392+t391+t39 18733 ; 0+5.381456786199792d-2*t117*t123*t124*t125*t181-1.76758 18734 < 5332069357d-1*t117*t119*t120*t121*t179+2.69072839309989 18735 = 6d-2*t117*t123*t124*t125*t148-8.837926660346784d-2*t117 18736 > *t119*t120*t121*t145)+4.7846374908957684d-1*t139*t143*t 18737 ? 73*t94*t97+9.569274981791537d-1*t141*t176*t72*t94*t97+1 18738 @ .0164931956593973d-2*t152*t176*t72*t97+7.69464420372614 18739 1 4d+0*t127*t128*t129*t176*t72*t73*t94-1.8175185709928465 18740 2 d-3*t117*t181*t92-2.339289449053859d+0*t123*t124*t125*t 18741 3 181*t88+1.099109305675375d-2*t117*t179*t86+4.0d+0*t119* 18742 4 t120*t121*t179*t70+t461+t460+t459+t387+t386+t385+t384+t 18743 5 383+t382+t381+t380+t379+t378+t377+t376+t375+t374+t373+t 18744 6 372+t371+t355+t354+t351+t349+t346+t335+t303+t282+t281+t 18745 7 278+t274+t244+t234+t220)+1.0d+0*t155*t357+1.0d+0*t157*t 18746 8 356+2.0d+0*t184*t305+2.0d+0*t185*t304)-4.96022726165333 18747 9 3d-103*t112*t156*t328*t67*t99+1.7017882504620416d-154*t 18748 : 112*t290*t327*t67*t99+t112*(t488+t487+t486)*t57-8.13242 18749 ; 6666666666d-52*t158*t328*t57+6.09932d-52*t171*t306*t57+ 18750 < t112*t156*t171*(t458+t457+6.09932d-52*t309)+1.860085223 18751 = 12d-103*t156*t158*t327)*wght+Amat3(iq,D3_RA_RB_RB) 18752 Amat3(iq,D3_RB_RB_RB) = (t64*(1.0d+0*(5.963779555555554d-5 18753 1 1*t156*t509*t58*t61*t66-4.4642045354879994d-102*t290*t5 18754 2 08*t58*t61*t66+6.807153001848166d-154*t370*t507*t58*t61 18755 3 *t66-3.259259259259259d-49*t509*t57*t61*t66+3.252970666 18756 4 6666663d-100*t156*t508*t61*t66-5.580255669359999d-152*t 18757 5 290*t507*t61*t66-6.518518518518518d-49*t509*t57*t58*t66 18758 6 +6.505941333333333d-100*t156*t508*t58*t66-1.11605113387 18759 7 19999d-151*t290*t507*t58*t66-3.555555555555555d-98*t508 18760 8 *t57*t66+8.132426666666666d-150*t156*t507*t66-6.5185185 18761 9 18518518d-49*t509*t64*t65+2.981889777777777d-51*t509*t5 18762 : 7*t61*t65-1.4880681784959998d-102*t156*t508*t61*t65+1.7 18763 ; 017882504620416d-154*t290*t507*t61*t65+3.25297066666666 18764 < 63d-100*t508*t57*t65-3.720170446239999d-152*t156*t507*t 18765 = 65-3.259259259259259d-49*t509*t63*t64+2.981889777777777 18766 > d-51*t509*t57*t58*t63-1.4880681784959998d-102*t156*t508 18767 ? *t58*t63+1.7017882504620416d-154*t290*t507*t58*t63+1.62 18768 @ 64853333333332d-100*t508*t57*t63-1.8600852231199996d-15 18769 1 2*t156*t507*t63+5.963779555555554d-51*t156*t509*t60*t62 18770 2 -4.4642045354879994d-102*t290*t508*t60*t62+6.8071530018 18771 3 48166d-154*t370*t507*t60*t62-1.3037037037037036d-48*t50 18772 4 9*t57*t60*t61+1.3011882666666666d-99*t156*t508*t60*t61- 18773 5 2.2321022677439997d-151*t290*t507*t60*t61-7.11111111111 18774 6 111d-98*t508*t57*t60+1.6264853333333332d-149*t156*t507* 18775 7 t60+5.963779555555554d-51*t156*t509*t55*t59-4.464204535 18776 8 4879994d-102*t290*t508*t55*t59+6.807153001848166d-154*t 18777 9 370*t507*t55*t59-6.518518518518518d-49*t509*t55*t57*t58 18778 : +6.505941333333333d-100*t156*t508*t55*t58-1.11605113387 18779 ; 19999d-151*t290*t507*t55*t58-1.7777777777777776d-98*t50 18780 < 8*t55*t57+4.066213333333333d-150*t156*t507*t55)*t99+1.0 18781 = d+0*t67*(t68*(1.4353912472687305d+1*t143*t267*t77*t94*t 18782 > 97-5.980796863619711d-2*t510*t72*t73*t94*t97+7.17695623 18783 ? 6343652d-1*t143*t340*t73*t94*t97-2.1530868709030954d+0* 18784 @ t176*t270*t73*t94*t97+7.176956236343652d-1*t141*t340*t7 18785 1 2*t94*t97-3.588478118171826d+0*t176*t267*t72*t94*t97-5. 18786 2 741564989074922d+0*t141*t143*t176*t94*t97+2.84618094784 18787 3 63124d-1*t143*t283*t77*t97+7.623698967445479d-3*t152*t3 18788 4 40*t72*t97-7.11545236961578d-2*t176*t283*t72*t97-6.0989 18789 5 59173956384d-2*t143*t152*t176*t97-2.3083932611178434d+1 18790 6 *t128*t129*t143*t248*t73*t77*t94+4.616786522235687d+1*t 18791 7 129*t143*t240*t245*t73*t77*t94-7.424706620043432d+2*t14 18792 8 3*t240*t241*t242*t73*t77*t94+1.8467146088942746d+2*t127 18793 9 *t128*t129*t141*t143*t77*t94+5.770983152794609d+0*t127* 18794 : t128*t129*t340*t72*t73*t94+5.770983152794609d+0*t128*t1 18795 ; 29*t176*t248*t72*t73*t94-1.1541966305589217d+1*t129*t17 18796 < 6*t240*t245*t72*t73*t94+1.856176655010858d+2*t176*t240* 18797 = t241*t242*t72*t73*t94-4.616786522235687d+1*t127*t128*t1 18798 > 29*t143*t176*t73*t94-4.616786522235687d+1*t127*t128*t12 18799 ? 9*t141*t176*t72*t94+1.9751631321680768d-2*(t517+t516+t5 18800 @ 15+t514+t513+t512+t511+1.923661050931536d+0*t510+t480+t 18801 1 448+t446)*t88*t92-1.363138928244635d-3*t117*t348*t92+1. 18802 2 8175185709928465d-3*t181*t226*t92-1.7544670867903941d+0 18803 3 *t123*t124*t125*t348*t88-1.7544670867903941d+0*t124*t12 18804 4 5*t181*t238*t88+3.5089341735807883d+0*t125*t181*t230*t2 18805 5 35*t88-5.19476882440587d+1*t181*t230*t231*t232*t88-6.21 18806 6 814d-2*(t517+t516+t515+t514+t513+t512+t511+t480+t448+t4 18807 7 46)*t70*t86+8.243319792565312d-3*t117*t345*t86-1.099109 18808 8 305675375d-2*t179*t226*t86+1.9616667279785865d+0*t127*t 18809 9 128*t129*t143*t152*t77-4.904166819946466d-1*t127*t128*t 18810 : 129*t152*t176*t72+3.0d+0*t119*t120*t121*t345*t70+3.0d+0 18811 ; *t120*t121*t179*t228*t70-6.0d+0*t121*t179*t216*t221*t70 18812 < +4.824593849607761d+1*t179*t216*t217*t218*t70+t485+t454 18813 = +t453+t452+t451+t450+t431+t430+t429+t428+t427+t426+t425 18814 > +t424+t423+t422+t421+t420+t419+t418+t417+t416+t414+t413 18815 ? +t412+t411+t410+t409+t408+t407+t406+t405+t403+t398+t397 18816 @ +t396+t395+t394+t393+t392+t391+t390+8.072185179299687d- 18817 1 2*t117*t123*t124*t125*t181-2.6513779981040353d-1*t117*t 18818 2 119*t120*t121*t179)-5.741564989074922d+0*t141*t143*t77* 18819 3 t94*t97-1.794239059085913d-1*t340*t72*t73*t94*t97+1.435 18820 4 3912472687305d+0*t143*t176*t73*t94*t97+1.43539124726873 18821 5 05d+0*t141*t176*t72*t94*t97-6.098959173956384d-2*t143*t 18822 6 152*t77*t97+1.524739793489096d-2*t152*t176*t72*t97-4.61 18823 7 6786522235687d+1*t127*t128*t129*t143*t73*t77*t94+1.1541 18824 8 966305589217d+1*t127*t128*t129*t176*t72*t73*t94+5.92548 18825 9 939650423d-2*t348*t88*t92-2.72627785648927d-3*t117*t181 18826 : *t92-3.5089341735807883d+0*t123*t124*t125*t181*t88-1.86 18827 ; 5442d-1*t345*t70*t86+1.6486639585130625d-2*t117*t179*t8 18828 < 6+6.0d+0*t119*t120*t121*t179*t70-3.3306690738754696d-16 18829 = *t159*t164*t318*t53+6.661338147750939d-16*t159*t312*t31 18830 > 4*t53-5.356375176299456d-15*t311*t312*t313*t53+1.220256 18831 ? 4577405706d-18*t316*t52-rhob*t504-3.0d+0*t165*t167*t323 18832 @ *t49+6.0d+0*t165*t320*t322*t49-9.649187699215522d+1*t31 18833 1 9*t320*t321*t49+5.284159572535705d-3*t316*t48+t388+t387 18834 2 +t386+t385+t384+t383+t382+t381+t380+t379+t378+t377+t376 18835 3 +t375+t374+t373+t372+t371+2.549392377400174d-1*t161*t16 18836 4 5*t166*t167+2.943620900479655d-17*t159*t161*t163*t164)+ 18837 5 3.0d+0*t184*t357+3.0d+0*t185*t356)+2.981889777777777d-5 18838 6 1*t509*t57*t67*t99-1.4880681784959998d-102*t156*t508*t6 18839 7 7*t99+1.7017882504620416d-154*t290*t507*t67*t99+t34*(5. 18840 8 0d-1*rhob*t54*(1.0072832d-50*t169*t38*t509*t6-6.5185185 18841 9 18518518d-49*t35*t37*t509*t6-1.2735151091711996d-101*t3 18842 : 25*t38*t508*t6+1.0988544d-99*t169*t37*t508*t6-1.7777777 18843 ; 777777776d-98*t35*t508*t6+3.279861752763875d-153*t38*t5 18844 < 05*t507*t6-3.1837877729279995d-151*t325*t37*t507*t6+6.8 18845 = 6784d-150*t169*t507*t6-6.518518518518518d-49*t15*t35*t3 18846 > 7*t509+5.036415999999999d-51*t13*t35*t37*t509-6.5185185 18847 ? 18518518d-49*t14*t34*t509-3.259259259259259d-49*t13*t34 18848 @ *t509+1.50176768d-99*t15*t169*t37*t508-4.24505036390399 18849 1 94d-102*t13*t169*t37*t508-4.8592592592592593d-98*t15*t3 18850 2 5*t508+7.508838399999999d-100*t14*t35*t508+2.7471359999 18851 3 999995d-100*t13*t35*t508-1.2325925925925926d-97*t11*t35 18852 4 *t508-8.277848209612798d-151*t15*t325*t37*t507+8.199654 18853 5 381909687d-154*t13*t325*t37*t507+3.5712767999999995d-14 18854 6 9*t15*t169*t507-2.7592827365375994d-151*t14*t169*t507-5 18855 7 .30631295488d-152*t13*t169*t507+1.314962432d-148*t11*t1 18856 8 69*t507+1.31194470110555d-202*t15*t37*t505*t506-6.36757 18857 9 5545855999d-201*t15*t325*t506+3.2798617527638746d-203*t 18858 : 14*t325*t506-4.58465439301632d-200*t11*t325*t506+5.2477 18859 ; 788044222d-252*t11*t505/rhob**1.1333333333333334d+1)+1. 18860 < 5d+0*t329*t54+5.0d-1*rhob*t40*t504+1.5d+0*t324*t40+1.5d 18861 = +0*rhob*t168*t329+1.5d+0*rhob*t172*t324+3.0d+0*t168*t17 18862 > 2)+t171*(t488+t487+t486+6.09932d-52*t358)*t57+t328*t456 18863 ? *t57-2.6666666666666666d+0*t328*t359*t57+t169*t327*(1.0 18864 @ 30176d-51*t331-1.1497011402239997d-102*t40*t54)+t31*t35 18865 1 *(2.57544d-52*t329*t54+2.57544d-52*t324*t40+5.15088d-52 18866 2 *t168*t172)+t169*t170*(2.6531564774399996d-103*t172*t54 18867 3 +2.6531564774399996d-103*t168*t40+1.030176d-51*t310)+t1 18868 4 71*t35*(-4.2923999999999995d-52*t172*t54-4.292399999999 18869 5 9995d-52*t168*t40+1.030176d-51*t330)+4.0998271909548434 18870 6 d-154*t325*t326*t40*t54+t156*t327*(t458+t457+6.09932d-5 18871 7 2*t359)-2.6666666666666666d+0*t328*t331*t35-1.666666666 18872 8 6666669d+0*t171*t310*t35)*wght+Amat3(iq,D3_RB_RB_RB) 18873 Cmat3(iq,D3_RA_RA_GAA) = Cmat3(iq,D3_RA_RA_GAA) 18874 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 18875 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 18876 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 18877 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 18878 Cmat3(iq,D3_RA_RB_GBB) = Cmat3(iq,D3_RA_RB_GBB) 18879 Cmat3(iq,D3_RB_RB_GAA) = Cmat3(iq,D3_RB_RB_GAA) 18880 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 18881 Cmat3(iq,D3_RB_RB_GBB) = Cmat3(iq,D3_RB_RB_GBB) 18882 Cmat3(iq,D3_RA_GAA_GAA) = Cmat3(iq,D3_RA_GAA_GAA) 18883 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 18884 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 18885 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 18886 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 18887 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 18888 Cmat3(iq,D3_RB_GAA_GAA) = Cmat3(iq,D3_RB_GAA_GAA) 18889 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 18890 Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB) 18891 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 18892 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 18893 Cmat3(iq,D3_RB_GBB_GBB) = Cmat3(iq,D3_RB_GBB_GBB) 18894 Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA) 18895 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 18896 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 18897 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 18898 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 18899 Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB) 18900 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 18901 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 18902 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 18903 Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB) 18904 Mmat3(iq,D3_RA_RA_TA) = Mmat3(iq,D3_RA_RA_TA) 18905 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 18906 Mmat3(iq,D3_RA_RB_TA) = Mmat3(iq,D3_RA_RB_TA) 18907 Mmat3(iq,D3_RA_RB_TB) = Mmat3(iq,D3_RA_RB_TB) 18908 Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA) 18909 Mmat3(iq,D3_RB_RB_TB) = Mmat3(iq,D3_RB_RB_TB) 18910 Mmat3(iq,D3_RA_GAA_TA) = Mmat3(iq,D3_RA_GAA_TA) 18911 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 18912 Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA) 18913 Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB) 18914 Mmat3(iq,D3_RA_GBB_TA) = Mmat3(iq,D3_RA_GBB_TA) 18915 Mmat3(iq,D3_RA_GBB_TB) = Mmat3(iq,D3_RA_GBB_TB) 18916 Mmat3(iq,D3_RB_GAA_TA) = Mmat3(iq,D3_RB_GAA_TA) 18917 Mmat3(iq,D3_RB_GAA_TB) = Mmat3(iq,D3_RB_GAA_TB) 18918 Mmat3(iq,D3_RB_GAB_TA) = Mmat3(iq,D3_RB_GAB_TA) 18919 Mmat3(iq,D3_RB_GAB_TB) = Mmat3(iq,D3_RB_GAB_TB) 18920 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 18921 Mmat3(iq,D3_RB_GBB_TB) = Mmat3(iq,D3_RB_GBB_TB) 18922 Mmat3(iq,D3_RA_TA_TA) = Mmat3(iq,D3_RA_TA_TA) 18923 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 18924 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 18925 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 18926 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 18927 Mmat3(iq,D3_RB_TB_TB) = Mmat3(iq,D3_RB_TB_TB) 18928 Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA) 18929 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 18930 Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA) 18931 Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB) 18932 Mmat3(iq,D3_GAA_GBB_TA) = Mmat3(iq,D3_GAA_GBB_TA) 18933 Mmat3(iq,D3_GAA_GBB_TB) = Mmat3(iq,D3_GAA_GBB_TB) 18934 Mmat3(iq,D3_GAB_GAB_TA) = Mmat3(iq,D3_GAB_GAB_TA) 18935 Mmat3(iq,D3_GAB_GAB_TB) = Mmat3(iq,D3_GAB_GAB_TB) 18936 Mmat3(iq,D3_GAB_GBB_TA) = Mmat3(iq,D3_GAB_GBB_TA) 18937 Mmat3(iq,D3_GAB_GBB_TB) = Mmat3(iq,D3_GAB_GBB_TB) 18938 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 18939 Mmat3(iq,D3_GBB_GBB_TB) = Mmat3(iq,D3_GBB_GBB_TB) 18940 Mmat3(iq,D3_GAA_TA_TA) = Mmat3(iq,D3_GAA_TA_TA) 18941 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 18942 Mmat3(iq,D3_GAA_TB_TB) = Mmat3(iq,D3_GAA_TB_TB) 18943 Mmat3(iq,D3_GAB_TA_TA) = Mmat3(iq,D3_GAB_TA_TA) 18944 Mmat3(iq,D3_GAB_TA_TB) = Mmat3(iq,D3_GAB_TA_TB) 18945 Mmat3(iq,D3_GAB_TB_TB) = Mmat3(iq,D3_GAB_TB_TB) 18946 Mmat3(iq,D3_GBB_TA_TA) = Mmat3(iq,D3_GBB_TA_TA) 18947 endif 18948 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 18949 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 18950 t1 = 1/rhoa**6.666666666666666d-1 18951 t2 = rhoa**5.0d-1 18952 t3 = 1/t2 18953 t4 = 1/rhoa**3.333333333333333d-1 18954 t5 = 1/rhoa**1.6666666666666666d-1 18955 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 18956 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 18957 t7 = 3.216395899738507d+1/t6+1.0d+0 18958 t8 = log(t7) 18959 t9 = 1.274696188700087d-1*t4+1.0d+0 18960 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 18961 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 18962 t11 = 1.6081979498692536d+1/t10+1.0d+0 18963 t12 = log(t11) 18964 t13 = 1.3256889990520176d-1*t4+1.0d+0 18965 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 18966 1 12*t13 18967 t15 = 1/rhoa 18968 t16 = 1/taua 18969 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 18970 t18 = 1/rhoa**2.6666666666666666d+0 18971 t19 = 1/rhoa**1.6666666666666669d+0 18972 t20 = 2.0d+0*t19*taua 18973 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 18974 t22 = 1/t21 18975 t23 = param(10) 18976 t24 = gammaaa**2 18977 t25 = 1/rhoa**5.333333333333333d+0 18978 t26 = 1/t21**2 18979 t27 = param(11) 18980 t28 = t20-9.11559972d+0 18981 t29 = param(12) 18982 t30 = t28**2 18983 t31 = param(8) 18984 t32 = param(9) 18985 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 18986 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 18987 t34 = 1/rhoa**3.6666666666666664d+0 18988 t35 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 18989 1 0*gammaaa*t34 18990 t36 = 1/t21**3 18991 t37 = 1/rhoa**6.333333333333333d+0 18992 t38 = -3.3333333333333337d+0*t18*t22*t32*taua-6.6666666666 18993 1 66667d+0*t18*t26*t28*t29*taua-3.3333333333333337d+0*gam 18994 2 maaa*t25*t26*t27*taua-5.333333333333333d+0*t23*t24*t26* 18995 3 t37-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammaaa*t18 18996 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 18997 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammaaa*t18*t26*t31*t35 18998 6 -2.6666666666666666d+0*gammaaa*t22*t31*t34-2.6666666666 18999 7 666666d+0*gammaaa*t26*t27*t28*t34 19000 t39 = 1/t11 19001 t40 = 1/t2**3 19002 t41 = 1/rhoa**1.3333333333333333d+0 19003 t42 = 1/rhoa**1.1666666666666667d+0 19004 t43 = -9.970917392951799d-1*t42-7.418564737168958d-1*t41-4 19005 1 .002143174996817d-1*t40-1.264669550498372d-1*t19 19006 t44 = 1/t10**2 19007 t45 = 1/t7 19008 t46 = -1.8533958105157808d+0*t42-1.2815820791490704d+0*t41 19009 1 -8.223668877838045d-1*t40-1.6039141941921276d-1*t19 19010 t47 = 1/t6**2 19011 t48 = 1.0d+0*t45*t46*t47*t9+1.3210398931339265d-3*t41*t8+1 19012 1 .1102230246251565d-16*t13*t39*t43*t44+3.050641144351426 19013 2 4d-19*t12*t41 19014 t49 = 1.0d+0*rhoa*t17*t33*t48*wght+1.0d+0*rhoa*t14*t17*t38 19015 1 *wght+1.0d+0*t14*t17*t33*wght 19016 t50 = 1/rhoa**8 19017 t51 = -1.030176d-2*t23*t24*t36*t50-1.030176d-2*t18*t29*t30 19018 1 *t36-1.030176d-2*gammaaa*t25*t27*t28*t36-5.15088d-3*t18 19019 2 *t26*t28*t32-5.15088d-3*gammaaa*t25*t26*t31+t18*t22*t31 19020 3 +t18*t26*t27*t28+2*gammaaa*t23*t25*t26 19021 t52 = 1/rhoa**7 19022 t53 = 1/rhoa**4.333333333333333d+0 19023 t54 = -2.060352d-2*gammaaa*t27*t28*t36*t53-1.030176d-2*gam 19024 1 maaa*t26*t31*t53+2.0d+0*gammaaa*t26*t27*t53-2.060352d-2 19025 2 *t23*t24*t36*t52-2.060352d-2*t19*t29*t30*t36-1.030176d- 19026 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 19027 4 *t29 19028 t55 = taua**2 19029 t56 = 1/t55 19030 t57 = t35**2 19031 t58 = 1/rhoa**2 19032 t59 = 1.25d-1*gammaaa*t33*t48*wght+1.25d-1*gammaaa*t14*t38 19033 1 *wght 19034 t60 = 1/t21**4 19035 t61 = 1/rhoa**4.666666666666667d+0 19036 t62 = 8.88888888888889d+0*t34*taua+9.777777777777779d+0*ga 19037 1 mmaaa*t61 19038 t63 = 1/rhoa**7.333333333333333d+0 19039 t64 = 2.6666666666666666d+1*gammaaa*t26*t27*t37*taua+1.373 19040 1 568d-1*t18*t28*t29*t35*t36*taua+6.867840000000001d-2*ga 19041 2 mmaaa*t25*t27*t35*t36*taua+3.4339200000000003d-2*t18*t2 19042 3 6*t32*t35*taua+8.88888888888889d+0*t22*t32*t34*taua+1.7 19043 4 777777777777778d+1*t26*t28*t29*t34*taua+3.3777777777777 19044 5 78d+1*t23*t24*t26*t63-1.030176d-2*t29*t30*t36*t62-1.030 19045 6 176d-2*gammaaa*t18*t27*t28*t36*t62-1.030176d-2*t23*t24* 19046 7 t25*t36*t62-5.15088d-3*t26*t28*t32*t62-5.15088d-3*gamma 19047 8 aa*t18*t26*t31*t62+9.777777777777779d+0*gammaaa*t22*t31 19048 9 *t61+9.777777777777779d+0*gammaaa*t26*t27*t28*t61+1.591 19049 : 893886464d-4*t29*t30*t57*t60+1.591893886464d-4*gammaaa* 19050 ; t18*t27*t28*t57*t60+1.591893886464d-4*t23*t24*t25*t57*t 19051 < 60+5.30631295488d-5*t28*t32*t36*t57+5.30631295488d-5*ga 19052 = mmaaa*t18*t31*t36*t57+2.2222222222222224d+1*t25*t26*t29 19053 > *t55+1.0988544d-1*t23*t24*t35*t36*t37+5.494272d-2*gamma 19054 ? aa*t27*t28*t34*t35*t36+2.747136d-2*gammaaa*t26*t31*t34* 19055 @ t35 19056 t65 = 1/t11**2 19057 t66 = t43**2 19058 t67 = 1/t10**4 19059 t68 = 1/t10**3 19060 t69 = 1/t2**5 19061 t70 = 1/rhoa**2.3333333333333334d+0 19062 t71 = 1/rhoa**2.1666666666666665d+0 19063 t72 = 1.1632736958443765d+0*t71+9.89141964955861d-1*t70+6. 19064 1 003214762495226d-1*t69+2.1077825841639536d-1*t18 19065 t73 = 1/t7**2 19066 t74 = t46**2 19067 t75 = 1/t6**4 19068 t76 = 1/t6**3 19069 t77 = 2.1622951122684114d+0*t71+1.7087761055320938d+0*t70+ 19070 1 1.2335503316757068d+0*t69+2.673190323653546d-1*t18 19071 t78 = 1.0d+0*t45*t47*t77*t9-2.0d+0*t45*t74*t76*t9+3.216395 19072 1 899738507d+1*t73*t74*t75*t9-1.7613865241785684d-3*t70*t 19073 2 8+1.1102230246251565d-16*t13*t39*t44*t72-4.067521525801 19074 3 9015d-19*t12*t70-2.220446049250313d-16*t13*t39*t66*t68+ 19075 4 1.7854583920998188d-15*t13*t65*t66*t67-8.49797459133391 19076 5 3d-2*t41*t45*t46*t47-9.812069668265515d-18*t39*t41*t43* 19077 6 t44 19078 t79 = 1.0d+0*rhoa*t17*t33*t78*wght+1.0d+0*rhoa*t14*t17*t64 19079 1 *wght+1.25d-1*gammaaa*t14*t16*t33*t58*wght+2.0d+0*rhoa* 19080 2 t17*t38*t48*wght+2.0d+0*t17*t33*t48*wght+1.25d-1*gammaa 19081 3 a*t15*t16*t33*t48*wght+2.0d+0*t14*t17*t38*wght+1.25d-1* 19082 4 gammaaa*t14*t15*t16*t38*wght 19083 t80 = -5.15088d-3*rhoa*t14*t17*t33*t62*wght-5.15088d-3*rho 19084 1 a*t17*t33*t35*t48*wght-5.15088d-3*rhoa*t14*t17*t35*t38* 19085 2 wght-5.15088d-3*t14*t17*t33*t35*wght-5.15088d-3*t35*t49 19086 t81 = 1.25d-1*gammaaa*t14*t51*wght+1.25d-1*t14*t33*wght 19087 t82 = 1/rhoa**9 19088 t83 = 3.4339200000000003d-2*gammaaa*t27*t36*t50*taua+6.867 19089 1 840000000001d-2*t25*t28*t29*t36*taua+1.7169600000000002 19090 2 d-2*t25*t26*t32*taua-3.3333333333333337d+0*t25*t26*t27* 19091 3 taua+8.241408d-2*t23*t24*t36*t82+1.591893886464d-4*t23* 19092 4 t24*t35*t50*t60+1.591893886464d-4*t18*t29*t30*t35*t60+1 19093 5 .591893886464d-4*gammaaa*t25*t27*t28*t35*t60+5.494272d- 19094 6 2*gammaaa*t27*t28*t36*t37+2.747136d-2*gammaaa*t26*t31*t 19095 7 37-1.0666666666666666d+1*gammaaa*t23*t26*t37+5.30631295 19096 8 488d-5*t18*t28*t32*t35*t36+5.30631295488d-5*gammaaa*t25 19097 9 *t31*t35*t36-1.030176d-2*t18*t27*t28*t35*t36-2.060352d- 19098 : 2*gammaaa*t23*t25*t35*t36+2.747136d-2*t29*t30*t34*t36-5 19099 ; .15088d-3*t18*t26*t31*t35+1.373568d-2*t26*t28*t32*t34-2 19100 < .6666666666666666d+0*t22*t31*t34-2.6666666666666666d+0* 19101 = t26*t27*t28*t34 19102 t84 = 1.0d+0*rhoa*t14*t17*t83*wght+1.0d+0*rhoa*t17*t48*t51 19103 1 *wght+1.0d+0*t14*t17*t51*wght-1.25d-1*t16*t33*t48*wght- 19104 2 1.25d-1*t14*t16*t38*wght-1.25d-1*t14*t15*t16*t33*wght 19105 t85 = 1.373568d-2*t14*t17*t33*wght-5.15088d-3*t49 19106 t86 = 1/rhoa**1.0666666666666666d+1 19107 t87 = 1.591893886464d-4*t23*t24*t60*t86+1.591893886464d-4* 19108 1 gammaaa*t27*t28*t50*t60+1.591893886464d-4*t25*t29*t30*t 19109 2 60+5.30631295488d-5*gammaaa*t31*t36*t50-4.120704d-2*gam 19110 3 maaa*t23*t36*t50+5.30631295488d-5*t25*t28*t32*t36-2.060 19111 4 352d-2*t25*t27*t28*t36-1.030176d-2*t25*t26*t31+2*t23*t2 19112 5 5*t26 19113 t88 = 1.373568d-1*t28*t29*t36*t53*taua+3.4339200000000003d 19114 1 -2*t26*t32*t53*taua-1.3333333333333333d+1*t26*t29*t53*t 19115 2 aua+6.867840000000001d-2*gammaaa*t27*t36*t52*taua+3.183 19116 3 787772928d-4*gammaaa*t27*t28*t35*t53*t60+3.183787772928 19117 4 d-4*t23*t24*t35*t52*t60+3.183787772928d-4*t19*t29*t30*t 19118 5 35*t60+1.061262590976d-4*gammaaa*t31*t35*t36*t53-2.0603 19119 6 52d-2*gammaaa*t27*t35*t36*t53+1.4422464000000002d-1*t23 19120 7 *t24*t36*t50+1.061262590976d-4*t19*t28*t32*t35*t36-4.12 19121 8 0704d-2*t19*t28*t29*t35*t36+3.4339200000000003d-2*t18*t 19122 9 29*t30*t36+8.928192d-2*gammaaa*t25*t27*t28*t36-1.030176 19123 : d-2*t19*t26*t32*t35+1.7169600000000002d-2*t18*t26*t28*t 19124 ; 32-3.3333333333333337d+0*t18*t22*t32+4.464096d-2*gammaa 19125 < a*t25*t26*t31-6.666666666666667d+0*t18*t26*t28*t29-8.66 19126 = 6666666666666d+0*gammaaa*t25*t26*t27 19127 t89 = 1.0d+0*rhoa*t14*t17*t88*wght+1.25d-1*gammaaa*t33*t48 19128 1 *t56*wght+1.25d-1*gammaaa*t14*t38*t56*wght+1.25d-1*gamm 19129 2 aaa*t14*t15*t33*t56*wght+1.0d+0*rhoa*t17*t48*t54*wght+1 19130 3 .0d+0*t14*t17*t54*wght 19131 t90 = 1.7169600000000002d-2*t14*t17*t33*wght-1.030176d-2*t 19132 1 49 19133 t91 = 1/rhoa**9.666666666666666d+0 19134 t92 = 3.183787772928d-4*t23*t24*t60*t91+3.183787772928d-4* 19135 1 t29*t30*t53*t60+3.183787772928d-4*gammaaa*t27*t28*t52*t 19136 2 60+1.061262590976d-4*t28*t32*t36*t53-4.120704d-2*t28*t2 19137 3 9*t36*t53-2.060352d-2*t27*t28*t36*t53-1.030176d-2*t26*t 19138 4 32*t53-1.030176d-2*t26*t31*t53+2.0d+0*t26*t27*t53+1.061 19139 5 262590976d-4*gammaaa*t31*t36*t52-2.060352d-2*gammaaa*t2 19140 6 7*t36*t52-4.120704d-2*gammaaa*t23*t36*t52 19141 t93 = 1/rhoa**3.3333333333333337d+0 19142 t94 = 1/rhoa**8.666666666666666d+0 19143 t95 = 1/rhoa**6 19144 t96 = 6.367575545856d-4*gammaaa*t27*t28*t60*t95+2.12252518 19145 1 1952d-4*gammaaa*t31*t36*t95-8.241408d-2*gammaaa*t27*t36 19146 2 *t95+6.367575545856d-4*t23*t24*t60*t94+6.367575545856d- 19147 3 4*t29*t30*t60*t93+2.122525181952d-4*t28*t32*t36*t93-1.6 19148 4 482816d-1*t28*t29*t36*t93-4.120704d-2*t26*t32*t93+8.0d+ 19149 5 0*t26*t29*t93 19150 t97 = 1/taua**3 19151 t98 = t35**3 19152 t99 = 1/rhoa**3 19153 t100 = 1/t21**5 19154 t101 = 1/rhoa**5.666666666666667d+0 19155 t102 = -3.2592592592592595d+1*t61*taua-4.5629629629629626d 19156 1 +1*gammaaa*t101 19157 t103 = t43**3 19158 t104 = 1/t2**7 19159 t105 = 1/rhoa**3.1666666666666665d+0 19160 t106 = t46**3 19161 t107 = -1.25d-1*gammaaa*t14*t51*wght-1.25d-1*t14*t33*wght 19162 t108 = 1.25d-1*gammaaa*t14*t87*wght+2.5d-1*t14*t51*wght 19163 t109 = -1.030176d-2*t84 19164 t110 = -1.030176d-2*t81 19165 t111 = -1.28772d-3*gammaaa*t14*t51*wght 19166 t112 = -1.28772d-3*t14*t33*wght 19167 t113 = 1/rhoa**5 19168 t114 = 1/rhoa**7.666666666666667d+0 19169 fnc(iq) = 1.0d+0*rhoa*t14*t17*t22*t33*wght+fnc(iq) 19170 Amat(iq,D1_RA) = -5.15088d-3*rhoa*t14*t17*t26*t33*t35*wght 19171 1 +1.25d-1*gammaaa*t14*t15*t16*t22*t33*wght+t22*t49+Amat( 19172 2 iq,D1_RA) 19173 Cmat(iq,D1_GAA) = 1.0d+0*rhoa*t14*t17*t22*t51*wght-5.15088 19174 1 d-3*t14*t17*t19*t26*t33*wght-1.25d-1*t14*t16*t22*t33*wg 19175 2 ht+Cmat(iq,D1_GAA) 19176 Mmat(iq,D1_TA) = 1.25d-1*gammaaa*t14*t22*t33*t56*wght+1.0d 19177 1 +0*rhoa*t14*t17*t22*t54*wght-1.030176d-2*t1*t14*t17*t26 19178 2 *t33*wght+Mmat(iq,D1_TA) 19179 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 19180 Amat2(iq,D2_RA_RA) = -1.25d-1*gammaaa*t14*t16*t22*t33*t58* 19181 1 wght+5.30631295488d-5*rhoa*t14*t17*t33*t36*t57*wght-1.2 19182 2 8772d-3*gammaaa*t14*t15*t16*t26*t33*t35*wght+t26*t80+t2 19183 3 2*t79+t15*t16*t22*t59+Amat2(iq,D2_RA_RA) 19184 Cmat2(iq,D2_RA_GAA) = -5.15088d-3*rhoa*t14*t17*t26*t35*t51 19185 1 *wght+5.30631295488d-5*t14*t17*t19*t33*t35*t36*wght+6.4 19186 2 386d-4*t14*t16*t26*t33*t35*wght-6.4386d-4*gammaaa*t14*t 19187 3 16*t26*t33*t34*wght+t18*t26*t85+t22*t84+t15*t16*t22*t81 19188 4 +Cmat2(iq,D2_RA_GAA) 19189 Cmat2(iq,D2_GAA_GAA) = 1.0d+0*rhoa*t14*t17*t22*t87*wght+5. 19190 1 30631295488d-5*t14*t17*t33*t36*t53*wght-1.030176d-2*t14 19191 2 *t17*t19*t26*t51*wght-2.5d-1*t14*t16*t22*t51*wght+1.287 19192 3 72d-3*t14*t16*t18*t26*t33*wght+Cmat2(iq,D2_GAA_GAA) 19193 Mmat2(iq,D2_RA_TA) = -6.4386d-4*gammaaa*t14*t26*t33*t35*t5 19194 1 6*wght-1.25d-1*gammaaa*t14*t15*t22*t33*t56*wght-5.15088 19195 2 d-3*rhoa*t14*t17*t26*t35*t54*wght+1.25d-1*gammaaa*t14*t 19196 3 15*t16*t22*t54*wght+1.061262590976d-4*t1*t14*t17*t33*t3 19197 4 5*t36*wght-1.28772d-3*gammaaa*t14*t16*t18*t26*t33*wght+ 19198 5 t19*t26*t90+t22*t89+Mmat2(iq,D2_RA_TA) 19199 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 19200 Mmat2(iq,D2_GAA_TA) = 1.061262590976d-4*t14*t17*t33*t36*t9 19201 1 3*wght+1.0d+0*rhoa*t14*t17*t22*t92*wght-6.4386d-4*gamma 19202 2 aa*t14*t18*t26*t33*t56*wght-5.15088d-3*t14*t17*t19*t26* 19203 3 t54*wght-1.25d-1*t14*t16*t22*t54*wght-1.030176d-2*t1*t1 19204 4 4*t17*t26*t51*wght+1.28772d-3*t14*t16*t19*t26*t33*wght+ 19205 5 t22*t56*t81+Mmat2(iq,D2_GAA_TA) 19206 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 19207 Mmat2(iq,D2_TA_TA) = -2.5d-1*gammaaa*t14*t22*t33*t97*wght+ 19208 1 1.0d+0*rhoa*t14*t17*t22*t96*wght+2.122525181952d-4*t14* 19209 2 t17*t33*t36*t70*wght+2.5d-1*gammaaa*t14*t22*t54*t56*wgh 19210 3 t-2.57544d-3*gammaaa*t14*t19*t26*t33*t56*wght-2.060352d 19211 4 -2*t1*t14*t17*t26*t54*wght+Mmat2(iq,D2_TA_TA) 19212 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 19213 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 19214 Amat3(iq,D3_RA_RA_RA) = t22*(1.0d+0*rhoa*t14*t17*(-2.01481 19215 1 48148148146d+2*gammaaa*t26*t27*t63*taua+2.060352d-1*t18 19216 2 *t28*t29*t36*t62*taua+1.030176d-1*gammaaa*t25*t27*t36*t 19217 3 62*taua+5.15088d-2*t18*t26*t32*t62*taua-3.2592592592592 19218 4 595d+1*t22*t32*t61*taua-6.518518518518519d+1*t26*t28*t2 19219 5 9*t61*taua-3.183787772928d-3*t18*t28*t29*t57*t60*taua-1 19220 6 .591893886464d-3*gammaaa*t25*t27*t57*t60*taua-5.3063129 19221 7 5488d-4*t18*t32*t36*t57*taua-8.241408d-1*gammaaa*t27*t3 19222 8 5*t36*t37*taua-5.494272d-1*t28*t29*t34*t35*t36*taua-1.3 19223 9 73568d-1*t26*t32*t34*t35*taua-8.199654381909689d-7*t28* 19224 : t32*t60*t98-8.199654381909689d-7*gammaaa*t18*t31*t60*t9 19225 ; 8-3.2798617527638757d-6*t100*t29*t30*t98-3.279861752763 19226 < 8757d-6*gammaaa*t100*t18*t27*t28*t98-3.2798617527638757 19227 = d-6*t100*t23*t24*t25*t98-1.0439116799999999d+0*t23*t24* 19228 > t35*t36*t63+4.7756816593920004d-4*t29*t30*t35*t60*t62+4 19229 ? .7756816593920004d-4*gammaaa*t18*t27*t28*t35*t60*t62+4. 19230 @ 7756816593920004d-4*t23*t24*t25*t35*t60*t62+1.6482816d- 19231 1 1*t23*t24*t36*t37*t62+1.591893886464d-4*t28*t32*t35*t36 19232 2 *t62+1.591893886464d-4*gammaaa*t18*t31*t35*t36*t62+8.24 19233 3 1408d-2*gammaaa*t27*t28*t34*t36*t62+4.120704d-2*gammaaa 19234 4 *t26*t31*t34*t62-3.0218496d-1*gammaaa*t27*t28*t35*t36*t 19235 5 61-1.5109248d-1*gammaaa*t26*t31*t35*t61-2.5470302183424 19236 6 004d-3*t23*t24*t37*t57*t60-1.2735151091712002d-3*gammaa 19237 7 a*t27*t28*t34*t57*t60-4.245050363904d-4*gammaaa*t31*t34 19238 8 *t36*t57-1.777777777777778d+2*t26*t29*t37*t55-6.8678400 19239 9 00000001d-1*t25*t29*t35*t36*t55-1.030176d-2*t102*t29*t3 19240 : 0*t36-1.030176d-2*gammaaa*t102*t18*t27*t28*t36-1.030176 19241 ; d-2*t102*t23*t24*t25*t36-5.15088d-3*t102*t26*t28*t32-5. 19242 < 15088d-3*gammaaa*t102*t18*t26*t31-4.5629629629629626d+1 19243 = *gammaaa*t101*t22*t31-4.5629629629629626d+1*gammaaa*t10 19244 > 1*t26*t27*t28-2.477037037037037d+2*t23*t24*t26/rhoa**8. 19245 ? 333333333333334d+0)*wght-2.5d-1*gammaaa*t14*t16*t33*t99 19246 @ *wght+1.0d+0*rhoa*t17*t33*(4.1099018897499934d-3*t8*t93 19247 1 +9.490883560204437d-19*t12*t93+1.1102230246251565d-16*t 19248 2 13*t39*t44*(-2.3079979182303428d+0*t93-5.62075355777054 19249 3 3d-1*t34-2.520426340996149d+0*t105-1.5008036906238065d+ 19250 4 0*t104)+1.0d+0*t45*t47*t9*(-3.9871442462415524d+0*t93-7 19251 5 .128507529742789d-1*t34-4.684972743248224d+0*t105-3.083 19252 6 875829189267d+0*t104)-6.0d+0*t45*t46*t76*t77*t9+9.64918 19253 7 7699215522d+1*t46*t73*t75*t77*t9+6.0d+0*t106*t45*t75*t9 19254 8 -1.9298375398431045d+2*t106*t73*t9/t6**5+2.069040516770 19255 9 9364d+3*t106*t9/(t6**6*t7**3)-1.274696188700087d-1*t41* 19256 : t45*t47*t77+2.549392377400174d-1*t41*t45*t74*t76-4.0999 19257 ; 275947472624d+0*t41*t73*t74*t75-6.661338147750939d-16*t 19258 < 13*t39*t43*t68*t72+5.356375176299456d-15*t13*t43*t65*t6 19259 = 7*t72-1.4718104502398274d-17*t39*t41*t44*t72+1.69959491 19260 > 82667827d-1*t45*t46*t47*t70+1.962413933653103d-17*t39*t 19261 ? 43*t44*t70+2.943620900479655d-17*t39*t41*t66*t68-2.3669 19262 @ 625486718335d-16*t41*t65*t66*t67+6.661338147750939d-16* 19263 1 t103*t13*t39*t67-1.0712750352598913d-14*t103*t13*t65/t1 19264 2 0**5+5.742741051503565d-14*t103*t13/(t10**6*t11**3))*wg 19265 3 ht+3.0d+0*rhoa*t17*t38*t78*wght+3.0d+0*t17*t33*t78*wght 19266 4 +2.5d-1*gammaaa*t15*t16*t33*t78*wght+3.0d+0*rhoa*t17*t4 19267 5 8*t64*wght+3.0d+0*t14*t17*t64*wght+2.5d-1*gammaaa*t14*t 19268 6 15*t16*t64*wght+2.5d-1*gammaaa*t16*t33*t48*t58*wght+2.5 19269 7 d-1*gammaaa*t14*t16*t38*t58*wght+6.0d+0*t17*t38*t48*wgh 19270 8 t+5.0d-1*gammaaa*t15*t16*t38*t48*wght)+t26*(-5.15088d-3 19271 9 *rhoa*t17*t33*t35*t78*wght-5.15088d-3*rhoa*t14*t17*t35* 19272 : t64*wght-1.030176d-2*rhoa*t17*t33*t48*t62*wght-1.030176 19273 ; d-2*rhoa*t14*t17*t38*t62*wght-1.030176d-2*t14*t17*t33*t 19274 < 62*wght-6.4386d-4*gammaaa*t14*t15*t16*t33*t62*wght-6.43 19275 = 86d-4*gammaaa*t14*t16*t33*t35*t58*wght-1.030176d-2*rhoa 19276 > *t17*t35*t38*t48*wght-1.030176d-2*t17*t33*t35*t48*wght- 19277 ? 6.4386d-4*gammaaa*t15*t16*t33*t35*t48*wght-1.030176d-2* 19278 @ t14*t17*t35*t38*wght-6.4386d-4*gammaaa*t14*t15*t16*t35* 19279 1 t38*wght-5.15088d-3*rhoa*t102*t14*t17*t33*wght-1.030176 19280 2 d-2*t35*t79-5.15088d-3*t49*t62)+t15*t16*t22*(1.25d-1*ga 19281 3 mmaaa*t33*t78*wght+1.25d-1*gammaaa*t14*t64*wght+2.5d-1* 19282 4 gammaaa*t38*t48*wght)+t36*(1.061262590976d-4*rhoa*t14*t 19283 5 17*t33*t35*t62*wght+5.30631295488d-5*rhoa*t17*t33*t48*t 19284 6 57*wght+5.30631295488d-5*rhoa*t14*t17*t38*t57*wght+5.30 19285 7 631295488d-5*t14*t17*t33*t57*wght-1.030176d-2*t35*t80)+ 19286 8 t15*t16*t26*(-1.28772d-3*gammaaa*t14*t33*t62*wght-1.287 19287 9 72d-3*gammaaa*t33*t35*t48*wght-1.28772d-3*gammaaa*t14*t 19288 : 35*t38*wght-5.15088d-3*t35*t59)+t16*t22*t58*(-2.5d-1*ga 19289 ; mmaaa*t33*t48*wght-2.5d-1*gammaaa*t14*t38*wght)+2.5d-1* 19290 < gammaaa*t14*t16*t22*t33*t99*wght-8.199654381909689d-7*r 19291 = hoa*t14*t17*t33*t60*t98*wght+1.93158d-3*gammaaa*t14*t16 19292 > *t26*t33*t35*t58*wght+1.9898673580800003d-5*gammaaa*t14 19293 ? *t15*t16*t33*t36*t57*wght+Amat3(iq,D3_RA_RA_RA) 19294 Cmat3(iq,D3_RA_RA_GAA) = t22*(1.0d+0*rhoa*t14*t17*(-4.5785 19295 1 6d-1*gammaaa*t27*t36*t82*taua-1.061262590976d-3*gammaaa 19296 2 *t27*t35*t50*t60*taua-2.122525181952d-3*t25*t28*t29*t35 19297 3 *t60*taua-5.494272d-1*t28*t29*t36*t37*taua-1.373568d-1* 19298 4 t26*t32*t37*taua+2.6666666666666666d+1*t26*t27*t37*taua 19299 5 -3.53754196992d-4*t25*t32*t35*t36*taua+6.86784000000000 19300 6 1d-2*t25*t27*t35*t36*taua-2.5470302183424004d-3*t23*t24 19301 7 *t35*t60*t82-3.4797056000000004d-1*gammaaa*t27*t28*t36* 19302 8 t63-1.7398528000000002d-1*gammaaa*t26*t31*t63+6.7555555 19303 9 55555556d+1*gammaaa*t23*t26*t63+1.591893886464d-4*t23*t 19304 : 24*t50*t60*t62+1.591893886464d-4*t18*t29*t30*t60*t62+1. 19305 ; 591893886464d-4*gammaaa*t25*t27*t28*t60*t62+5.306312954 19306 < 88d-5*t18*t28*t32*t36*t62+5.30631295488d-5*gammaaa*t25* 19307 = t31*t36*t62-1.030176d-2*t18*t27*t28*t36*t62-2.060352d-2 19308 > *gammaaa*t23*t25*t36*t62-5.15088d-3*t18*t26*t31*t62-1.0 19309 ? 072832000000001d-1*t29*t30*t36*t61-5.036416d-2*t26*t28* 19310 @ t32*t61+9.777777777777779d+0*t22*t31*t61+9.777777777777 19311 1 779d+0*t26*t27*t28*t61-8.199654381909689d-7*t18*t28*t32 19312 2 *t57*t60-8.199654381909689d-7*gammaaa*t25*t31*t57*t60+1 19313 3 .591893886464d-4*t18*t27*t28*t57*t60+3.183787772928d-4* 19314 4 gammaaa*t23*t25*t57*t60-1.6980201455616d-3*gammaaa*t27* 19315 5 t28*t35*t37*t60-8.490100727808d-4*t29*t30*t34*t35*t60-3 19316 6 .2798617527638757d-6*t100*t23*t24*t50*t57+5.30631295488 19317 7 d-5*t18*t31*t36*t57-3.2798617527638757d-6*t100*t18*t29* 19318 8 t30*t57-3.2798617527638757d-6*gammaaa*t100*t25*t27*t28* 19319 9 t57-2.2892800000000002d-1*t29*t36*t50*t55-5.66006715187 19320 : 2d-4*gammaaa*t31*t35*t36*t37+2.1977088d-1*gammaaa*t23*t 19321 ; 35*t36*t37-2.830033575936d-4*t28*t32*t34*t35*t36+5.4942 19322 < 72d-2*t27*t28*t34*t35*t36-7.4172672d-1*t23*t24*t36/rhoa 19323 = **10+2.747136d-2*t26*t31*t34*t35)*wght+2.0d+0*rhoa*t17* 19324 > t48*t83*wght+2.0d+0*t14*t17*t83*wght+1.25d-1*gammaaa*t1 19325 ? 4*t15*t16*t83*wght+1.0d+0*rhoa*t17*t51*t78*wght-1.25d-1 19326 @ *t16*t33*t78*wght-1.25d-1*t14*t16*t64*wght+1.25d-1*gamm 19327 1 aaa*t14*t16*t51*t58*wght+1.25d-1*t14*t16*t33*t58*wght+2 19328 2 .0d+0*t17*t48*t51*wght+1.25d-1*gammaaa*t15*t16*t48*t51* 19329 3 wght-2.5d-1*t16*t38*t48*wght-1.25d-1*t15*t16*t33*t48*wg 19330 4 ht-1.25d-1*t14*t15*t16*t38*wght)+t26*(-5.15088d-3*rhoa* 19331 5 t14*t17*t35*t83*wght-5.15088d-3*rhoa*t14*t17*t51*t62*wg 19332 6 ht+6.4386d-4*t14*t16*t33*t62*wght-5.15088d-3*rhoa*t17*t 19333 7 35*t48*t51*wght-5.15088d-3*t14*t17*t35*t51*wght+6.4386d 19334 8 -4*t16*t33*t35*t48*wght+1.373568d-2*t17*t18*t33*t48*wgh 19335 9 t+6.4386d-4*t14*t16*t35*t38*wght+1.373568d-2*t14*t17*t1 19336 : 8*t38*wght+6.4386d-4*t14*t15*t16*t33*t35*wght-3.6628480 19337 ; 00000001d-2*t14*t17*t33*t34*wght-5.15088d-3*t35*t84+1.3 19338 < 73568d-2*t34*t49)+t15*t16*t22*(1.25d-1*gammaaa*t14*t83* 19339 = wght+1.25d-1*gammaaa*t48*t51*wght+1.25d-1*t33*t48*wght+ 19340 > 1.25d-1*t14*t38*wght)+t15*t16*t26*(-1.28772d-3*gammaaa* 19341 ? t14*t35*t51*wght-1.28772d-3*t14*t33*t35*wght)+t18*t36*( 19342 @ -2.830033575936d-4*t14*t17*t33*t35*wght-1.030176d-2*t80 19343 1 )+4.07778d-3*gammaaa*t14*t16*t26*t33*t61*wght-8.1996543 19344 2 81909689d-7*t14*t17*t19*t33*t57*t60*wght+5.30631295488d 19345 3 -5*rhoa*t14*t17*t36*t51*t57*wght-6.6328911936d-6*t14*t1 19346 4 6*t33*t36*t57*wght+1.32657823872d-5*gammaaa*t14*t16*t33 19347 5 *t34*t35*t36*wght-5.15088d-3*t18*t26*t79-5.15088d-3*t16 19348 6 *t26*t34*t59+t107*t16*t22*t58+Cmat3(iq,D3_RA_RA_GAA) 19349 Cmat3(iq,D3_RA_GAA_GAA) = t22*(1.0d+0*rhoa*t14*t17*(-5.306 19350 1 31295488d-4*gammaaa*t27*t60*t86*taua-1.061262590976d-3* 19351 2 t28*t29*t50*t60*taua-1.76877098496d-4*t32*t36*t50*taua+ 19352 3 6.867840000000001d-2*t27*t36*t50*taua-3.279861752763875 19353 4 7d-6*t100*t23*t24*t35*t86-1.2735151091712002d-3*gammaaa 19354 5 *t27*t28*t60*t82-4.245050363904d-4*gammaaa*t31*t36*t82+ 19355 6 3.2965632d-1*gammaaa*t23*t36*t82-8.199654381909689d-7*g 19356 7 ammaaa*t31*t35*t50*t60+6.367575545856d-4*gammaaa*t23*t3 19357 8 5*t50*t60-8.490100727808d-4*t29*t30*t37*t60-8.199654381 19358 9 909689d-7*t25*t28*t32*t35*t60+3.183787772928d-4*t25*t27 19359 : *t28*t35*t60-1.6980201455616d-3*t23*t24*t60/rhoa**1.166 19360 ; 6666666666665d+1-3.2798617527638757d-6*gammaaa*t100*t27 19361 < *t28*t35*t50-2.830033575936d-4*t28*t32*t36*t37+1.098854 19362 = 4d-1*t27*t28*t36*t37+5.494272d-2*t26*t31*t37-1.06666666 19363 > 66666666d+1*t23*t26*t37+1.061262590976d-4*t25*t31*t35*t 19364 ? 36-2.060352d-2*t23*t25*t35*t36-3.2798617527638757d-6*t1 19365 @ 00*t25*t29*t30*t35)*wght+1.0d+0*rhoa*t17*t48*t87*wght+1 19366 1 .0d+0*t14*t17*t87*wght-2.5d-1*t14*t16*t83*wght-2.5d-1*t 19367 2 16*t48*t51*wght-2.5d-1*t14*t15*t16*t51*wght)+t18*t26*(2 19368 3 .747136d-2*t14*t17*t51*wght-1.7169600000000002d-3*t14*t 19369 4 15*t16*t33*wght+t109)+t16*t26*t34*(-6.4386d-4*gammaaa*t 19370 5 14*t51*wght-2.3608200000000001d-3*t14*t33*wght-5.15088d 19371 6 -3*t81)+t25*t36*(-1.415016787968d-4*t14*t17*t33*wght-1. 19372 7 030176d-2*t85)-5.15088d-3*rhoa*t14*t17*t26*t35*t87*wght 19373 8 -8.199654381909689d-7*t14*t17*t33*t35*t53*t60*wght+1.06 19374 9 1262590976d-4*t14*t17*t19*t35*t36*t51*wght+1.28772d-3*t 19375 : 14*t16*t26*t35*t51*wght+6.6328911936d-6*gammaaa*t14*t16 19376 ; *t33*t36*t37*wght-1.32657823872d-5*t14*t16*t18*t33*t35* 19377 < t36*wght+t108*t15*t16*t22+Cmat3(iq,D3_RA_GAA_GAA) 19378 Cmat3(iq,D3_GAA_GAA_GAA) = -1.545264d-2*t14*t17*t19*t26*t8 19379 1 7*wght-3.75d-1*t14*t16*t22*t87*wght+1.0d+0*rhoa*t14*t17 19380 2 *t22*(-8.199654381909689d-7*gammaaa*t31*t60*t86+9.55136 19381 3 3318784001d-4*gammaaa*t23*t60*t86-3.2798617527638757d-6 19382 4 *gammaaa*t100*t27*t28*t86-8.199654381909689d-7*t28*t32* 19383 5 t50*t60+4.7756816593920004d-4*t27*t28*t50*t60+1.5918938 19384 6 86464d-4*t31*t36*t50-6.181056d-2*t23*t36*t50-3.27986175 19385 7 27638757d-6*t100*t29*t30*t50-3.2798617527638757d-6*t100 19386 8 *t23*t24/rhoa**1.3333333333333333d+1)*wght-8.1996543819 19387 9 09689d-7*t14*t17*t33*t52*t60*wght+1.591893886464d-4*t14 19388 : *t17*t36*t51*t53*wght+3.86316d-3*t14*t16*t18*t26*t51*wg 19389 ; ht-1.9898673580800003d-5*t14*t16*t25*t33*t36*wght+Cmat3 19390 < (iq,D3_GAA_GAA_GAA) 19391 Mmat3(iq,D3_RA_RA_TA) = t22*(1.0d+0*rhoa*t14*t17*(-4.24505 19392 1 0363904d-3*t28*t29*t35*t53*t60*taua-2.122525181952d-3*g 19393 2 ammaaa*t27*t35*t52*t60*taua-7.07508393984d-4*t32*t35*t3 19394 3 6*t53*taua+2.747136d-1*t29*t35*t36*t53*taua-7.783552d-1 19395 4 *gammaaa*t27*t36*t50*taua-8.241408000000001d-1*t25*t28* 19396 5 t29*t36*taua-2.0603520000000003d-1*t25*t26*t32*taua+8.0 19397 6 d+1*t25*t26*t29*taua-1.1537971200000001d+0*t23*t24*t36* 19398 7 t82+3.183787772928d-4*gammaaa*t27*t28*t53*t60*t62+3.183 19399 8 787772928d-4*t23*t24*t52*t60*t62+3.183787772928d-4*t19* 19400 9 t29*t30*t60*t62+1.061262590976d-4*gammaaa*t31*t36*t53*t 19401 : 62-2.060352d-2*gammaaa*t27*t36*t53*t62+1.061262590976d- 19402 ; 4*t19*t28*t32*t36*t62-4.120704d-2*t19*t28*t29*t36*t62-1 19403 < .030176d-2*t19*t26*t32*t62-1.6399308763819376d-6*gammaa 19404 = a*t31*t53*t57*t60+3.183787772928d-4*gammaaa*t27*t53*t57 19405 > *t60-1.6399308763819376d-6*t19*t28*t32*t57*t60+6.367575 19406 ? 545856d-4*t19*t28*t29*t57*t60-4.4573028820992006d-3*t23 19407 @ *t24*t35*t50*t60-1.0612625909760003d-3*t18*t29*t30*t35* 19408 1 t60-2.7592827365376d-3*gammaaa*t25*t27*t28*t35*t60-6.55 19409 2 9723505527751d-6*gammaaa*t100*t27*t28*t53*t57-6.5597235 19410 3 05527751d-6*t100*t23*t24*t52*t57+1.061262590976d-4*t19* 19411 4 t32*t36*t57-6.559723505527751d-6*t100*t19*t29*t30*t57-4 19412 5 .5785600000000004d-1*t29*t36*t52*t55-4.7617024d-1*gamma 19413 6 aa*t27*t28*t36*t37-2.3808512d-1*gammaaa*t26*t31*t37+4.6 19414 7 22222222222223d+1*gammaaa*t26*t27*t37-3.537541969920000 19415 8 6d-4*t18*t28*t32*t35*t36-9.197609121792001d-4*gammaaa*t 19416 9 25*t31*t35*t36+1.373568d-1*t18*t28*t29*t35*t36+1.785638 19417 : 4d-1*gammaaa*t25*t27*t35*t36-9.157120000000001d-2*t29*t 19418 ; 30*t34*t36+3.4339200000000003d-2*t18*t26*t32*t35-4.5785 19419 < 600000000004d-2*t26*t28*t32*t34+8.88888888888889d+0*t22 19420 = *t32*t34+1.7777777777777778d+1*t26*t28*t29*t34)*wght+2. 19421 > 0d+0*rhoa*t17*t48*t88*wght+2.0d+0*t14*t17*t88*wght+1.25 19422 ? d-1*gammaaa*t14*t15*t16*t88*wght+1.25d-1*gammaaa*t33*t5 19423 @ 6*t78*wght+1.0d+0*rhoa*t17*t54*t78*wght+1.25d-1*gammaaa 19424 1 *t14*t56*t64*wght-1.25d-1*gammaaa*t14*t33*t56*t58*wght+ 19425 2 1.25d-1*gammaaa*t14*t16*t54*t58*wght+2.5d-1*gammaaa*t38 19426 3 *t48*t56*wght+1.25d-1*gammaaa*t15*t33*t48*t56*wght+1.25 19427 4 d-1*gammaaa*t14*t15*t38*t56*wght+2.0d+0*t17*t48*t54*wgh 19428 5 t+1.25d-1*gammaaa*t15*t16*t48*t54*wght)+t26*(-5.15088d- 19429 6 3*rhoa*t14*t17*t35*t88*wght-6.4386d-4*gammaaa*t14*t33*t 19430 7 56*t62*wght-5.15088d-3*rhoa*t14*t17*t54*t62*wght-6.4386 19431 8 d-4*gammaaa*t33*t35*t48*t56*wght-6.4386d-4*gammaaa*t14* 19432 9 t35*t38*t56*wght-6.4386d-4*gammaaa*t14*t15*t33*t35*t56* 19433 : wght-5.15088d-3*rhoa*t17*t35*t48*t54*wght-5.15088d-3*t1 19434 ; 4*t17*t35*t54*wght+1.7169600000000002d-2*t17*t19*t33*t4 19435 < 8*wght+1.7169600000000002d-2*t14*t17*t19*t38*wght-2.861 19436 = 6d-2*t14*t17*t18*t33*wght-5.15088d-3*t35*t89+1.71696000 19437 > 00000002d-2*t18*t49)+t15*t16*t22*(1.25d-1*gammaaa*t14*t 19438 ? 88*wght+1.25d-1*gammaaa*t48*t54*wght)+t15*t22*t56*(-1.2 19439 @ 5d-1*gammaaa*t33*t48*wght-1.25d-1*gammaaa*t14*t38*wght) 19440 1 +t19*t36*(-3.5375419699200006d-4*t14*t17*t33*t35*wght-2 19441 2 .060352d-2*t80)-1.6399308763819376d-6*t1*t14*t17*t33*t5 19442 3 7*t60*wght+1.25d-1*gammaaa*t14*t22*t33*t56*t58*wght-1.2 19443 4 5d-1*gammaaa*t14*t16*t22*t54*t58*wght+6.6328911936d-6*g 19444 5 ammaaa*t14*t33*t36*t56*t57*wght+5.30631295488d-5*rhoa*t 19445 6 14*t17*t36*t54*t57*wght+1.28772d-3*gammaaa*t14*t15*t26* 19446 7 t33*t35*t56*wght-1.28772d-3*gammaaa*t14*t15*t16*t26*t35 19447 8 *t54*wght+2.65315647744d-5*gammaaa*t14*t16*t18*t33*t35* 19448 9 t36*wght+5.58012d-3*gammaaa*t14*t16*t26*t33*t34*wght-1. 19449 : 030176d-2*t19*t26*t79-1.030176d-2*t16*t18*t26*t59+Mmat3 19450 ; (iq,D3_RA_RA_TA) 19451 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 19452 Mmat3(iq,D3_RA_GAA_TA) = t22*(1.0d+0*rhoa*t14*t17*(-1.0612 19453 1 62590976d-3*gammaaa*t27*t60*t91*taua-2.122525181952d-3* 19454 2 t28*t29*t52*t60*taua-3.53754196992d-4*t32*t36*t52*taua+ 19455 3 1.373568d-1*t29*t36*t52*taua+6.867840000000001d-2*t27*t 19456 4 36*t52*taua-6.559723505527751d-6*t100*t23*t24*t35*t91-3 19457 5 .0776615138304003d-3*t23*t24*t60*t86-1.6399308763819376 19458 6 d-6*t28*t32*t35*t53*t60+6.367575545856d-4*t28*t29*t35*t 19459 7 53*t60+3.183787772928d-4*t27*t28*t35*t53*t60-1.63993087 19460 8 63819376d-6*gammaaa*t31*t35*t52*t60+3.183787772928d-4*g 19461 9 ammaaa*t27*t35*t52*t60+6.367575545856d-4*gammaaa*t23*t3 19462 : 5*t52*t60-2.2286514410496003d-3*gammaaa*t27*t28*t50*t60 19463 ; -1.3796413682688d-3*t25*t29*t30*t60+1.061262590976d-4*t 19464 < 32*t35*t36*t53+1.061262590976d-4*t31*t35*t36*t53-2.0603 19465 = 52d-2*t27*t35*t36*t53-6.559723505527751d-6*t100*t29*t30 19466 > *t35*t53-6.559723505527751d-6*gammaaa*t100*t27*t28*t35* 19467 ? t52-7.428838136832d-4*gammaaa*t31*t36*t50+1.44224640000 19468 @ 00002d-1*gammaaa*t27*t36*t50+2.8844928000000003d-1*gamm 19469 1 aaa*t23*t36*t50-4.5988045608960004d-4*t25*t28*t32*t36+1 19470 2 .7856384d-1*t25*t28*t29*t36+8.928192d-2*t25*t27*t28*t36 19471 3 +4.464096d-2*t25*t26*t32+4.464096d-2*t25*t26*t31-8.6666 19472 4 66666666666d+0*t25*t26*t27)*wght+1.0d+0*rhoa*t17*t48*t9 19473 5 2*wght+1.0d+0*t14*t17*t92*wght-1.25d-1*t14*t16*t88*wght 19474 6 +1.25d-1*gammaaa*t14*t56*t83*wght+1.25d-1*gammaaa*t48*t 19475 7 51*t56*wght+1.25d-1*gammaaa*t14*t15*t51*t56*wght+1.25d- 19476 8 1*t33*t48*t56*wght+1.25d-1*t14*t38*t56*wght+1.25d-1*t14 19477 9 *t15*t33*t56*wght-1.25d-1*t16*t48*t54*wght-1.25d-1*t14* 19478 : t15*t16*t54*wght)+t15*t16*t22*(1.25d-1*gammaaa*t14*t92* 19479 ; wght+1.25d-1*t14*t54*wght)+t18*t26*(1.7169600000000002d 19480 < -3*gammaaa*t14*t15*t33*t56*wght+1.373568d-2*t14*t17*t54 19481 = *wght-5.15088d-3*t89)+t26*t56*(-6.4386d-4*gammaaa*t14*t 19482 > 35*t51*wght-6.4386d-4*t14*t33*t35*wght)+t19*t26*(1.7169 19483 ? 600000000002d-2*t14*t17*t51*wght+t109)+t36*t53*(-1.7687 19484 @ 709849600003d-4*t14*t17*t33*wght-2.060352d-2*t85)+t16*t 19485 1 18*t26*(t110-2.1462d-3*t14*t33*wght)-1.6399308763819376 19486 2 d-6*t14*t17*t33*t35*t60*t93*wght-5.15088d-3*rhoa*t14*t1 19487 3 7*t26*t35*t92*wght+6.6328911936d-6*gammaaa*t14*t18*t33* 19488 4 t35*t36*t56*wght+6.4386d-4*gammaaa*t14*t26*t33*t34*t56* 19489 5 wght+5.30631295488d-5*t14*t17*t19*t35*t36*t54*wght+6.43 19490 6 86d-4*t14*t16*t26*t35*t54*wght-6.4386d-4*gammaaa*t14*t1 19491 7 6*t26*t34*t54*wght+1.061262590976d-4*t1*t14*t17*t35*t36 19492 8 *t51*wght-1.32657823872d-5*t14*t16*t19*t33*t35*t36*wght 19493 9 +1.32657823872d-5*gammaaa*t14*t16*t25*t33*t36*wght+t107 19494 : *t15*t22*t56+Mmat3(iq,D3_RA_GAA_TA) 19495 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 19496 Mmat3(iq,D3_GAA_GAA_TA) = -1.6399308763819376d-6*t14*t17*t 19497 1 33*t60*t95*wght+2.122525181952d-4*t14*t17*t36*t51*t93*w 19498 2 ght-1.030176d-2*t14*t17*t19*t26*t92*wght-2.5d-1*t14*t16 19499 3 *t22*t92*wght+1.0d+0*rhoa*t14*t17*t22*(-1.6399308763819 19500 4 376d-6*gammaaa*t31*t60*t91+3.183787772928d-4*gammaaa*t2 19501 5 7*t60*t91+1.2735151091712002d-3*gammaaa*t23*t60*t91-6.5 19502 6 59723505527751d-6*gammaaa*t100*t27*t28*t91-1.6399308763 19503 7 819376d-6*t28*t32*t52*t60+6.367575545856d-4*t28*t29*t52 19504 8 *t60+6.367575545856d-4*t27*t28*t52*t60+1.061262590976d- 19505 9 4*t32*t36*t52+2.122525181952d-4*t31*t36*t52-4.120704d-2 19506 : *t27*t36*t52-4.120704d-2*t23*t36*t52-6.559723505527751d 19507 ; -6*t100*t29*t30*t52-6.559723505527751d-6*t100*t23*t24/r 19508 < hoa**1.2333333333333334d+1)*wght-1.030176d-2*t1*t14*t17 19509 = *t26*t87*wght+6.6328911936d-6*gammaaa*t14*t25*t33*t36*t 19510 > 56*wght+5.30631295488d-5*t14*t17*t36*t53*t54*wght+1.287 19511 ? 72d-3*t14*t16*t18*t26*t54*wght-2.65315647744d-5*t14*t16 19512 @ *t33*t36*t53*wght+2.57544d-3*t14*t16*t19*t26*t51*wght+( 19513 1 t112+t111)*t18*t26*t56+t108*t22*t56+Mmat3(iq,D3_GAA_GAA 19514 2 _TA) 19515 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 19516 Mmat3(iq,D3_RA_TA_TA) = t22*(1.0d+0*rhoa*t14*t17*(-4.24505 19517 1 0363904d-3*t28*t29*t60*t95*taua-7.07508393984d-4*t32*t3 19518 2 6*t95*taua+5.494272d-1*t29*t36*t95*taua-2.122525181952d 19519 3 -3*gammaaa*t27*t60*t94*taua-3.279861752763875d-6*gammaa 19520 4 a*t31*t35*t60*t95+1.2735151091712002d-3*gammaaa*t27*t35 19521 5 *t60*t95-1.3119447011055504d-5*gammaaa*t100*t27*t28*t35 19522 6 *t95-1.3119447011055504d-5*t100*t23*t24*t35*t94-3.27986 19523 7 1752763875d-6*t28*t32*t35*t60*t93+2.5470302183424004d-3 19524 8 *t28*t29*t35*t60*t93+4.245050363904d-4*t32*t35*t36*t93- 19525 9 8.241408d-2*t29*t35*t36*t93-1.3119447011055504d-5*t100* 19526 : t29*t30*t35*t93-5.518565473075201d-3*t23*t24*t60*t91-2. 19527 ; 1225251819520005d-3*t29*t30*t53*t60-3.8205453275136003d 19528 < -3*gammaaa*t27*t28*t52*t60-7.075083939840001d-4*t28*t32 19529 = *t36*t53+5.494272d-1*t28*t29*t36*t53+1.373568d-1*t26*t3 19530 > 2*t53-2.6666666666666666d+1*t26*t29*t53-1.2735151091712 19531 ? 002d-3*gammaaa*t31*t36*t52+4.9448448d-1*gammaaa*t27*t36 19532 @ *t52)*wght-2.5d-1*gammaaa*t33*t48*t97*wght-2.5d-1*gamma 19533 1 aa*t14*t38*t97*wght-2.5d-1*gammaaa*t14*t15*t33*t97*wght 19534 2 +1.0d+0*rhoa*t17*t48*t96*wght+1.0d+0*t14*t17*t96*wght+2 19535 3 .5d-1*gammaaa*t14*t56*t88*wght+2.5d-1*gammaaa*t48*t54*t 19536 4 56*wght+2.5d-1*gammaaa*t14*t15*t54*t56*wght)+t19*t26*(2 19537 5 .1462d-3*gammaaa*t14*t15*t33*t56*wght+3.433920000000000 19538 6 3d-2*t14*t17*t54*wght-2.060352d-2*t89)+t36*t93*(-3.5375 19539 7 419699200006d-4*t14*t17*t33*wght-2.060352d-2*t90)+1.287 19540 8 72d-3*gammaaa*t14*t26*t33*t35*t97*wght+2.5d-1*gammaaa*t 19541 9 14*t15*t22*t33*t97*wght-5.15088d-3*rhoa*t14*t17*t26*t35 19542 : *t96*wght+1.25d-1*gammaaa*t14*t15*t16*t22*t96*wght-3.27 19543 ; 9861752763875d-6*t14*t17*t33*t35*t60*t70*wght-1.28772d- 19544 < 3*gammaaa*t14*t26*t35*t54*t56*wght-2.5d-1*gammaaa*t14*t 19545 = 15*t22*t54*t56*wght+2.65315647744d-5*gammaaa*t14*t19*t3 19546 > 3*t35*t36*t56*wght+4.7216400000000003d-3*gammaaa*t14*t1 19547 ? 8*t26*t33*t56*wght+2.122525181952d-4*t1*t14*t17*t35*t36 19548 @ *t54*wght-2.57544d-3*gammaaa*t14*t16*t18*t26*t54*wght+2 19549 1 .65315647744d-5*gammaaa*t14*t16*t33*t36*t53*wght+Mmat3( 19550 2 iq,D3_RA_TA_TA) 19551 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 19552 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 19553 Mmat3(iq,D3_GAA_TA_TA) = t22*t56*(2.5d-1*gammaaa*t14*t92*w 19554 1 ght+2.5d-1*t14*t54*wght)+1.28772d-3*gammaaa*t14*t18*t26 19555 2 *t33*t97*wght-5.15088d-3*t14*t17*t19*t26*t96*wght-1.25d 19556 3 -1*t14*t16*t22*t96*wght+1.0d+0*rhoa*t14*t17*t22*(-3.279 19557 4 861752763875d-6*t28*t32*t60*t95+2.5470302183424004d-3*t 19558 5 28*t29*t60*t95+6.367575545856d-4*t27*t28*t60*t95+4.2450 19559 6 50363904d-4*t32*t36*t95+2.122525181952d-4*t31*t36*t95-8 19560 7 .241408d-2*t29*t36*t95-8.241408d-2*t27*t36*t95-1.311944 19561 8 7011055504d-5*t100*t29*t30*t95-3.279861752763875d-6*gam 19562 9 maaa*t31*t60*t94+1.2735151091712002d-3*gammaaa*t27*t60* 19563 : t94+1.2735151091712002d-3*gammaaa*t23*t60*t94-1.3119447 19564 ; 011055504d-5*gammaaa*t100*t27*t28*t94-1.311944701105550 19565 < 4d-5*t100*t23*t24/rhoa**1.1333333333333334d+1)*wght+2.1 19566 = 22525181952d-4*t14*t17*t36*t54*t93*wght-2.65315647744d- 19567 > 5*t14*t16*t33*t36*t93*wght-2.060352d-2*t1*t14*t17*t26*t 19568 ? 92*wght+2.122525181952d-4*t14*t17*t36*t51*t70*wght-3.27 19569 @ 9861752763875d-6*t113*t14*t17*t33*t60*wght-1.28772d-3*g 19570 1 ammaaa*t14*t18*t26*t54*t56*wght+2.65315647744d-5*gammaa 19571 2 a*t14*t33*t36*t53*t56*wght+2.57544d-3*t14*t16*t19*t26*t 19572 3 54*wght-2*t22*t81*t97+(t112+t111+t110)*t19*t26*t56+Mmat 19573 4 3(iq,D3_GAA_TA_TA) 19574 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 19575 Mmat3(iq,D3_GAA_TB_TB) = Mmat3(iq,D3_GAA_TB_TB) 19576 Mmat3(iq,D3_TA_TA_TA) = 7.5d-1*gammaaa*t14*t22*t33*wght/ta 19577 1 ua**4-7.5d-1*gammaaa*t14*t22*t54*t97*wght+7.72632d-3*ga 19578 2 mmaaa*t14*t19*t26*t33*t97*wght+3.75d-1*gammaaa*t14*t22* 19579 3 t56*t96*wght-3.090528d-2*t1*t14*t17*t26*t96*wght+7.9594 19580 4 69432320001d-5*gammaaa*t14*t33*t36*t56*t93*wght+6.36757 19581 5 5545856d-4*t14*t17*t36*t54*t70*wght+1.0d+0*rhoa*t14*t17 19582 6 *t22*(-6.55972350552775d-6*t113*t28*t32*t60-6.559723505 19583 7 52775d-6*gammaaa*t114*t31*t60+7.641090655027201d-3*t113 19584 8 *t28*t29*t60+3.8205453275136003d-3*gammaaa*t114*t27*t60 19585 9 +1.2735151091712002d-3*t113*t32*t36-4.9448448d-1*t113*t 19586 : 29*t36-2.623889402211101d-5*t100*t113*t29*t30-2.6238894 19587 ; 02211101d-5*gammaaa*t100*t114*t27*t28-2.623889402211101 19588 < d-5*t100*t23*t24/rhoa**1.0333333333333333d+1)*wght-6.55 19589 = 972350552775d-6*t14*t17*t33*t60*wght/rhoa**4-7.72632d-3 19590 > *gammaaa*t14*t19*t26*t54*t56*wght+Mmat3(iq,D3_TA_TA_TA) 19591 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 19592 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 19593 Mmat3(iq,D3_TB_TB_TB) = Mmat3(iq,D3_TB_TB_TB) 19594 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 19595 t1 = 1/rhoa**6.666666666666666d-1 19596 t2 = rhoa**5.0d-1 19597 t3 = 1/t2 19598 t4 = 1/rhoa**3.333333333333333d-1 19599 t5 = 1/rhoa**1.6666666666666666d-1 19600 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 19601 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 19602 t7 = 3.216395899738507d+1/t6+1.0d+0 19603 t8 = log(t7) 19604 t9 = 1.274696188700087d-1*t4+1.0d+0 19605 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 19606 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 19607 t11 = 1.6081979498692536d+1/t10+1.0d+0 19608 t12 = log(t11) 19609 t13 = 1.3256889990520176d-1*t4+1.0d+0 19610 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 19611 1 12*t13 19612 t15 = 1/rhoa 19613 t16 = 1/taua 19614 t17 = 1.0d+0-1.25d-1*gammaaa*t15*t16 19615 t18 = 1/rhoa**2.6666666666666666d+0 19616 t19 = 1/rhoa**1.6666666666666669d+0 19617 t20 = 2.0d+0*t19*taua 19618 t21 = 5.15088d-3*(t20+gammaaa*t18-9.11559972d+0)+1.0d+0 19619 t22 = 1/t21 19620 t23 = param(10) 19621 t24 = gammaaa**2 19622 t25 = 1/rhoa**5.333333333333333d+0 19623 t26 = 1/t21**2 19624 t27 = param(11) 19625 t28 = t20-9.11559972d+0 19626 t29 = param(12) 19627 t30 = t28**2 19628 t31 = param(8) 19629 t32 = param(9) 19630 t33 = t22*t28*t32+gammaaa*t18*t22*t31+t26*t29*t30+gammaaa* 19631 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 19632 t34 = 1/rhoa**3.6666666666666664d+0 19633 t35 = -3.3333333333333337d+0*t18*taua-2.6666666666666666d+ 19634 1 0*gammaaa*t34 19635 t36 = 1/t21**3 19636 t37 = 1/rhoa**6.333333333333333d+0 19637 t38 = -3.3333333333333337d+0*t18*t22*t32*taua-6.6666666666 19638 1 66667d+0*t18*t26*t28*t29*taua-3.3333333333333337d+0*gam 19639 2 maaa*t25*t26*t27*taua-5.333333333333333d+0*t23*t24*t26* 19640 3 t37-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammaaa*t18 19641 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 19642 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammaaa*t18*t26*t31*t35 19643 6 -2.6666666666666666d+0*gammaaa*t22*t31*t34-2.6666666666 19644 7 666666d+0*gammaaa*t26*t27*t28*t34 19645 t39 = 1/t11 19646 t40 = 1/t2**3 19647 t41 = 1/rhoa**1.3333333333333333d+0 19648 t42 = 1/rhoa**1.1666666666666667d+0 19649 t43 = -9.970917392951799d-1*t42-7.418564737168958d-1*t41-4 19650 1 .002143174996817d-1*t40-1.264669550498372d-1*t19 19651 t44 = 1/t10**2 19652 t45 = 1/t7 19653 t46 = -1.8533958105157808d+0*t42-1.2815820791490704d+0*t41 19654 1 -8.223668877838045d-1*t40-1.6039141941921276d-1*t19 19655 t47 = 1/t6**2 19656 t48 = 1.0d+0*t45*t46*t47*t9+1.3210398931339265d-3*t41*t8+1 19657 1 .1102230246251565d-16*t13*t39*t43*t44+3.050641144351426 19658 2 4d-19*t12*t41 19659 t49 = 1.0d+0*rhoa*t17*t33*t48*wght+1.0d+0*rhoa*t14*t17*t38 19660 1 *wght+1.0d+0*t14*t17*t33*wght 19661 t50 = 1/rhoa**8 19662 t51 = -1.030176d-2*t23*t24*t36*t50-1.030176d-2*t18*t29*t30 19663 1 *t36-1.030176d-2*gammaaa*t25*t27*t28*t36-5.15088d-3*t18 19664 2 *t26*t28*t32-5.15088d-3*gammaaa*t25*t26*t31+t18*t22*t31 19665 3 +t18*t26*t27*t28+2*gammaaa*t23*t25*t26 19666 t52 = 1/rhoa**7 19667 t53 = 1/rhoa**4.333333333333333d+0 19668 t54 = -2.060352d-2*gammaaa*t27*t28*t36*t53-1.030176d-2*gam 19669 1 maaa*t26*t31*t53+2.0d+0*gammaaa*t26*t27*t53-2.060352d-2 19670 2 *t23*t24*t36*t52-2.060352d-2*t19*t29*t30*t36-1.030176d- 19671 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 19672 4 *t29 19673 t55 = taua**2 19674 t56 = 1/t55 19675 t57 = t35**2 19676 t58 = 1/rhoa**2 19677 t59 = 1.25d-1*gammaaa*t33*t48*wght+1.25d-1*gammaaa*t14*t38 19678 1 *wght 19679 t60 = 1/t21**4 19680 t61 = 1/rhoa**4.666666666666667d+0 19681 t62 = 8.88888888888889d+0*t34*taua+9.777777777777779d+0*ga 19682 1 mmaaa*t61 19683 t63 = 1/rhoa**7.333333333333333d+0 19684 t64 = 2.6666666666666666d+1*gammaaa*t26*t27*t37*taua+1.373 19685 1 568d-1*t18*t28*t29*t35*t36*taua+6.867840000000001d-2*ga 19686 2 mmaaa*t25*t27*t35*t36*taua+3.4339200000000003d-2*t18*t2 19687 3 6*t32*t35*taua+8.88888888888889d+0*t22*t32*t34*taua+1.7 19688 4 777777777777778d+1*t26*t28*t29*t34*taua+3.3777777777777 19689 5 78d+1*t23*t24*t26*t63-1.030176d-2*t29*t30*t36*t62-1.030 19690 6 176d-2*gammaaa*t18*t27*t28*t36*t62-1.030176d-2*t23*t24* 19691 7 t25*t36*t62-5.15088d-3*t26*t28*t32*t62-5.15088d-3*gamma 19692 8 aa*t18*t26*t31*t62+9.777777777777779d+0*gammaaa*t22*t31 19693 9 *t61+9.777777777777779d+0*gammaaa*t26*t27*t28*t61+1.591 19694 : 893886464d-4*t29*t30*t57*t60+1.591893886464d-4*gammaaa* 19695 ; t18*t27*t28*t57*t60+1.591893886464d-4*t23*t24*t25*t57*t 19696 < 60+5.30631295488d-5*t28*t32*t36*t57+5.30631295488d-5*ga 19697 = mmaaa*t18*t31*t36*t57+2.2222222222222224d+1*t25*t26*t29 19698 > *t55+1.0988544d-1*t23*t24*t35*t36*t37+5.494272d-2*gamma 19699 ? aa*t27*t28*t34*t35*t36+2.747136d-2*gammaaa*t26*t31*t34* 19700 @ t35 19701 t65 = 1/t11**2 19702 t66 = t43**2 19703 t67 = 1/t10**4 19704 t68 = 1/t10**3 19705 t69 = 1/t2**5 19706 t70 = 1/rhoa**2.3333333333333334d+0 19707 t71 = 1/rhoa**2.1666666666666665d+0 19708 t72 = 1.1632736958443765d+0*t71+9.89141964955861d-1*t70+6. 19709 1 003214762495226d-1*t69+2.1077825841639536d-1*t18 19710 t73 = 1/t7**2 19711 t74 = t46**2 19712 t75 = 1/t6**4 19713 t76 = 1/t6**3 19714 t77 = 2.1622951122684114d+0*t71+1.7087761055320938d+0*t70+ 19715 1 1.2335503316757068d+0*t69+2.673190323653546d-1*t18 19716 t78 = 1.0d+0*t45*t47*t77*t9-2.0d+0*t45*t74*t76*t9+3.216395 19717 1 899738507d+1*t73*t74*t75*t9-1.7613865241785684d-3*t70*t 19718 2 8+1.1102230246251565d-16*t13*t39*t44*t72-4.067521525801 19719 3 9015d-19*t12*t70-2.220446049250313d-16*t13*t39*t66*t68+ 19720 4 1.7854583920998188d-15*t13*t65*t66*t67-8.49797459133391 19721 5 3d-2*t41*t45*t46*t47-9.812069668265515d-18*t39*t41*t43* 19722 6 t44 19723 t79 = 1.0d+0*rhoa*t17*t33*t78*wght+1.0d+0*rhoa*t14*t17*t64 19724 1 *wght+1.25d-1*gammaaa*t14*t16*t33*t58*wght+2.0d+0*rhoa* 19725 2 t17*t38*t48*wght+2.0d+0*t17*t33*t48*wght+1.25d-1*gammaa 19726 3 a*t15*t16*t33*t48*wght+2.0d+0*t14*t17*t38*wght+1.25d-1* 19727 4 gammaaa*t14*t15*t16*t38*wght 19728 t80 = -5.15088d-3*rhoa*t14*t17*t33*t62*wght-5.15088d-3*rho 19729 1 a*t17*t33*t35*t48*wght-5.15088d-3*rhoa*t14*t17*t35*t38* 19730 2 wght-5.15088d-3*t14*t17*t33*t35*wght-5.15088d-3*t35*t49 19731 t81 = 1.25d-1*gammaaa*t14*t51*wght+1.25d-1*t14*t33*wght 19732 t82 = 1/rhoa**9 19733 t83 = 3.4339200000000003d-2*gammaaa*t27*t36*t50*taua+6.867 19734 1 840000000001d-2*t25*t28*t29*t36*taua+1.7169600000000002 19735 2 d-2*t25*t26*t32*taua-3.3333333333333337d+0*t25*t26*t27* 19736 3 taua+8.241408d-2*t23*t24*t36*t82+1.591893886464d-4*t23* 19737 4 t24*t35*t50*t60+1.591893886464d-4*t18*t29*t30*t35*t60+1 19738 5 .591893886464d-4*gammaaa*t25*t27*t28*t35*t60+5.494272d- 19739 6 2*gammaaa*t27*t28*t36*t37+2.747136d-2*gammaaa*t26*t31*t 19740 7 37-1.0666666666666666d+1*gammaaa*t23*t26*t37+5.30631295 19741 8 488d-5*t18*t28*t32*t35*t36+5.30631295488d-5*gammaaa*t25 19742 9 *t31*t35*t36-1.030176d-2*t18*t27*t28*t35*t36-2.060352d- 19743 : 2*gammaaa*t23*t25*t35*t36+2.747136d-2*t29*t30*t34*t36-5 19744 ; .15088d-3*t18*t26*t31*t35+1.373568d-2*t26*t28*t32*t34-2 19745 < .6666666666666666d+0*t22*t31*t34-2.6666666666666666d+0* 19746 = t26*t27*t28*t34 19747 t84 = 1.0d+0*rhoa*t14*t17*t83*wght+1.0d+0*rhoa*t17*t48*t51 19748 1 *wght+1.0d+0*t14*t17*t51*wght-1.25d-1*t16*t33*t48*wght- 19749 2 1.25d-1*t14*t16*t38*wght-1.25d-1*t14*t15*t16*t33*wght 19750 t85 = 1.373568d-2*t14*t17*t33*wght-5.15088d-3*t49 19751 t86 = 1/rhoa**1.0666666666666666d+1 19752 t87 = 1.591893886464d-4*t23*t24*t60*t86+1.591893886464d-4* 19753 1 gammaaa*t27*t28*t50*t60+1.591893886464d-4*t25*t29*t30*t 19754 2 60+5.30631295488d-5*gammaaa*t31*t36*t50-4.120704d-2*gam 19755 3 maaa*t23*t36*t50+5.30631295488d-5*t25*t28*t32*t36-2.060 19756 4 352d-2*t25*t27*t28*t36-1.030176d-2*t25*t26*t31+2*t23*t2 19757 5 5*t26 19758 t88 = 1.373568d-1*t28*t29*t36*t53*taua+3.4339200000000003d 19759 1 -2*t26*t32*t53*taua-1.3333333333333333d+1*t26*t29*t53*t 19760 2 aua+6.867840000000001d-2*gammaaa*t27*t36*t52*taua+3.183 19761 3 787772928d-4*gammaaa*t27*t28*t35*t53*t60+3.183787772928 19762 4 d-4*t23*t24*t35*t52*t60+3.183787772928d-4*t19*t29*t30*t 19763 5 35*t60+1.061262590976d-4*gammaaa*t31*t35*t36*t53-2.0603 19764 6 52d-2*gammaaa*t27*t35*t36*t53+1.4422464000000002d-1*t23 19765 7 *t24*t36*t50+1.061262590976d-4*t19*t28*t32*t35*t36-4.12 19766 8 0704d-2*t19*t28*t29*t35*t36+3.4339200000000003d-2*t18*t 19767 9 29*t30*t36+8.928192d-2*gammaaa*t25*t27*t28*t36-1.030176 19768 : d-2*t19*t26*t32*t35+1.7169600000000002d-2*t18*t26*t28*t 19769 ; 32-3.3333333333333337d+0*t18*t22*t32+4.464096d-2*gammaa 19770 < a*t25*t26*t31-6.666666666666667d+0*t18*t26*t28*t29-8.66 19771 = 6666666666666d+0*gammaaa*t25*t26*t27 19772 t89 = 1.0d+0*rhoa*t14*t17*t88*wght+1.25d-1*gammaaa*t33*t48 19773 1 *t56*wght+1.25d-1*gammaaa*t14*t38*t56*wght+1.25d-1*gamm 19774 2 aaa*t14*t15*t33*t56*wght+1.0d+0*rhoa*t17*t48*t54*wght+1 19775 3 .0d+0*t14*t17*t54*wght 19776 t90 = 1.7169600000000002d-2*t14*t17*t33*wght-1.030176d-2*t 19777 1 49 19778 t91 = 1/rhoa**9.666666666666666d+0 19779 t92 = 3.183787772928d-4*t23*t24*t60*t91+3.183787772928d-4* 19780 1 t29*t30*t53*t60+3.183787772928d-4*gammaaa*t27*t28*t52*t 19781 2 60+1.061262590976d-4*t28*t32*t36*t53-4.120704d-2*t28*t2 19782 3 9*t36*t53-2.060352d-2*t27*t28*t36*t53-1.030176d-2*t26*t 19783 4 32*t53-1.030176d-2*t26*t31*t53+2.0d+0*t26*t27*t53+1.061 19784 5 262590976d-4*gammaaa*t31*t36*t52-2.060352d-2*gammaaa*t2 19785 6 7*t36*t52-4.120704d-2*gammaaa*t23*t36*t52 19786 t93 = 1/rhoa**3.3333333333333337d+0 19787 t94 = 1/rhoa**8.666666666666666d+0 19788 t95 = 1/rhoa**6 19789 t96 = 6.367575545856d-4*gammaaa*t27*t28*t60*t95+2.12252518 19790 1 1952d-4*gammaaa*t31*t36*t95-8.241408d-2*gammaaa*t27*t36 19791 2 *t95+6.367575545856d-4*t23*t24*t60*t94+6.367575545856d- 19792 3 4*t29*t30*t60*t93+2.122525181952d-4*t28*t32*t36*t93-1.6 19793 4 482816d-1*t28*t29*t36*t93-4.120704d-2*t26*t32*t93+8.0d+ 19794 5 0*t26*t29*t93 19795 t97 = 1/taua**3 19796 t98 = t35**3 19797 t99 = 1/rhoa**3 19798 t100 = 1/t21**5 19799 t101 = 1/rhoa**5.666666666666667d+0 19800 t102 = -3.2592592592592595d+1*t61*taua-4.5629629629629626d 19801 1 +1*gammaaa*t101 19802 t103 = t43**3 19803 t104 = 1/t2**7 19804 t105 = 1/rhoa**3.1666666666666665d+0 19805 t106 = t46**3 19806 t107 = -1.25d-1*gammaaa*t14*t51*wght-1.25d-1*t14*t33*wght 19807 t108 = 1.25d-1*gammaaa*t14*t87*wght+2.5d-1*t14*t51*wght 19808 t109 = -1.030176d-2*t84 19809 t110 = -1.030176d-2*t81 19810 t111 = -1.28772d-3*gammaaa*t14*t51*wght 19811 t112 = -1.28772d-3*t14*t33*wght 19812 t113 = 1/rhoa**5 19813 t114 = 1/rhoa**7.666666666666667d+0 19814 fnc(iq) = 1.0d+0*rhoa*t14*t17*t22*t33*wght+fnc(iq) 19815 Amat(iq,D1_RA) = -5.15088d-3*rhoa*t14*t17*t26*t33*t35*wght 19816 1 +1.25d-1*gammaaa*t14*t15*t16*t22*t33*wght+t22*t49+Amat( 19817 2 iq,D1_RA) 19818 Cmat(iq,D1_GAA) = 1.0d+0*rhoa*t14*t17*t22*t51*wght-5.15088 19819 1 d-3*t14*t17*t19*t26*t33*wght-1.25d-1*t14*t16*t22*t33*wg 19820 2 ht+Cmat(iq,D1_GAA) 19821 Mmat(iq,D1_TA) = 1.25d-1*gammaaa*t14*t22*t33*t56*wght+1.0d 19822 1 +0*rhoa*t14*t17*t22*t54*wght-1.030176d-2*t1*t14*t17*t26 19823 2 *t33*wght+Mmat(iq,D1_TA) 19824 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 19825 Amat2(iq,D2_RA_RA) = -1.25d-1*gammaaa*t14*t16*t22*t33*t58* 19826 1 wght+5.30631295488d-5*rhoa*t14*t17*t33*t36*t57*wght-1.2 19827 2 8772d-3*gammaaa*t14*t15*t16*t26*t33*t35*wght+t26*t80+t2 19828 3 2*t79+t15*t16*t22*t59+Amat2(iq,D2_RA_RA) 19829 Cmat2(iq,D2_RA_GAA) = -5.15088d-3*rhoa*t14*t17*t26*t35*t51 19830 1 *wght+5.30631295488d-5*t14*t17*t19*t33*t35*t36*wght+6.4 19831 2 386d-4*t14*t16*t26*t33*t35*wght-6.4386d-4*gammaaa*t14*t 19832 3 16*t26*t33*t34*wght+t18*t26*t85+t22*t84+t15*t16*t22*t81 19833 4 +Cmat2(iq,D2_RA_GAA) 19834 Cmat2(iq,D2_GAA_GAA) = 1.0d+0*rhoa*t14*t17*t22*t87*wght+5. 19835 1 30631295488d-5*t14*t17*t33*t36*t53*wght-1.030176d-2*t14 19836 2 *t17*t19*t26*t51*wght-2.5d-1*t14*t16*t22*t51*wght+1.287 19837 3 72d-3*t14*t16*t18*t26*t33*wght+Cmat2(iq,D2_GAA_GAA) 19838 Mmat2(iq,D2_RA_TA) = -6.4386d-4*gammaaa*t14*t26*t33*t35*t5 19839 1 6*wght-1.25d-1*gammaaa*t14*t15*t22*t33*t56*wght-5.15088 19840 2 d-3*rhoa*t14*t17*t26*t35*t54*wght+1.25d-1*gammaaa*t14*t 19841 3 15*t16*t22*t54*wght+1.061262590976d-4*t1*t14*t17*t33*t3 19842 4 5*t36*wght-1.28772d-3*gammaaa*t14*t16*t18*t26*t33*wght+ 19843 5 t19*t26*t90+t22*t89+Mmat2(iq,D2_RA_TA) 19844 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 19845 Mmat2(iq,D2_GAA_TA) = 1.061262590976d-4*t14*t17*t33*t36*t9 19846 1 3*wght+1.0d+0*rhoa*t14*t17*t22*t92*wght-6.4386d-4*gamma 19847 2 aa*t14*t18*t26*t33*t56*wght-5.15088d-3*t14*t17*t19*t26* 19848 3 t54*wght-1.25d-1*t14*t16*t22*t54*wght-1.030176d-2*t1*t1 19849 4 4*t17*t26*t51*wght+1.28772d-3*t14*t16*t19*t26*t33*wght+ 19850 5 t22*t56*t81+Mmat2(iq,D2_GAA_TA) 19851 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 19852 Mmat2(iq,D2_TA_TA) = -2.5d-1*gammaaa*t14*t22*t33*t97*wght+ 19853 1 1.0d+0*rhoa*t14*t17*t22*t96*wght+2.122525181952d-4*t14* 19854 2 t17*t33*t36*t70*wght+2.5d-1*gammaaa*t14*t22*t54*t56*wgh 19855 3 t-2.57544d-3*gammaaa*t14*t19*t26*t33*t56*wght-2.060352d 19856 4 -2*t1*t14*t17*t26*t54*wght+Mmat2(iq,D2_TA_TA) 19857 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 19858 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 19859 Amat3(iq,D3_RA_RA_RA) = t22*(1.0d+0*rhoa*t14*t17*(-2.01481 19860 1 48148148146d+2*gammaaa*t26*t27*t63*taua+2.060352d-1*t18 19861 2 *t28*t29*t36*t62*taua+1.030176d-1*gammaaa*t25*t27*t36*t 19862 3 62*taua+5.15088d-2*t18*t26*t32*t62*taua-3.2592592592592 19863 4 595d+1*t22*t32*t61*taua-6.518518518518519d+1*t26*t28*t2 19864 5 9*t61*taua-3.183787772928d-3*t18*t28*t29*t57*t60*taua-1 19865 6 .591893886464d-3*gammaaa*t25*t27*t57*t60*taua-5.3063129 19866 7 5488d-4*t18*t32*t36*t57*taua-8.241408d-1*gammaaa*t27*t3 19867 8 5*t36*t37*taua-5.494272d-1*t28*t29*t34*t35*t36*taua-1.3 19868 9 73568d-1*t26*t32*t34*t35*taua-8.199654381909689d-7*t28* 19869 : t32*t60*t98-8.199654381909689d-7*gammaaa*t18*t31*t60*t9 19870 ; 8-3.2798617527638757d-6*t100*t29*t30*t98-3.279861752763 19871 < 8757d-6*gammaaa*t100*t18*t27*t28*t98-3.2798617527638757 19872 = d-6*t100*t23*t24*t25*t98-1.0439116799999999d+0*t23*t24* 19873 > t35*t36*t63+4.7756816593920004d-4*t29*t30*t35*t60*t62+4 19874 ? .7756816593920004d-4*gammaaa*t18*t27*t28*t35*t60*t62+4. 19875 @ 7756816593920004d-4*t23*t24*t25*t35*t60*t62+1.6482816d- 19876 1 1*t23*t24*t36*t37*t62+1.591893886464d-4*t28*t32*t35*t36 19877 2 *t62+1.591893886464d-4*gammaaa*t18*t31*t35*t36*t62+8.24 19878 3 1408d-2*gammaaa*t27*t28*t34*t36*t62+4.120704d-2*gammaaa 19879 4 *t26*t31*t34*t62-3.0218496d-1*gammaaa*t27*t28*t35*t36*t 19880 5 61-1.5109248d-1*gammaaa*t26*t31*t35*t61-2.5470302183424 19881 6 004d-3*t23*t24*t37*t57*t60-1.2735151091712002d-3*gammaa 19882 7 a*t27*t28*t34*t57*t60-4.245050363904d-4*gammaaa*t31*t34 19883 8 *t36*t57-1.777777777777778d+2*t26*t29*t37*t55-6.8678400 19884 9 00000001d-1*t25*t29*t35*t36*t55-1.030176d-2*t102*t29*t3 19885 : 0*t36-1.030176d-2*gammaaa*t102*t18*t27*t28*t36-1.030176 19886 ; d-2*t102*t23*t24*t25*t36-5.15088d-3*t102*t26*t28*t32-5. 19887 < 15088d-3*gammaaa*t102*t18*t26*t31-4.5629629629629626d+1 19888 = *gammaaa*t101*t22*t31-4.5629629629629626d+1*gammaaa*t10 19889 > 1*t26*t27*t28-2.477037037037037d+2*t23*t24*t26/rhoa**8. 19890 ? 333333333333334d+0)*wght-2.5d-1*gammaaa*t14*t16*t33*t99 19891 @ *wght+1.0d+0*rhoa*t17*t33*(4.1099018897499934d-3*t8*t93 19892 1 +9.490883560204437d-19*t12*t93+1.1102230246251565d-16*t 19893 2 13*t39*t44*(-2.3079979182303428d+0*t93-5.62075355777054 19894 3 3d-1*t34-2.520426340996149d+0*t105-1.5008036906238065d+ 19895 4 0*t104)+1.0d+0*t45*t47*t9*(-3.9871442462415524d+0*t93-7 19896 5 .128507529742789d-1*t34-4.684972743248224d+0*t105-3.083 19897 6 875829189267d+0*t104)-6.0d+0*t45*t46*t76*t77*t9+9.64918 19898 7 7699215522d+1*t46*t73*t75*t77*t9+6.0d+0*t106*t45*t75*t9 19899 8 -1.9298375398431045d+2*t106*t73*t9/t6**5+2.069040516770 19900 9 9364d+3*t106*t9/(t6**6*t7**3)-1.274696188700087d-1*t41* 19901 : t45*t47*t77+2.549392377400174d-1*t41*t45*t74*t76-4.0999 19902 ; 275947472624d+0*t41*t73*t74*t75-6.661338147750939d-16*t 19903 < 13*t39*t43*t68*t72+5.356375176299456d-15*t13*t43*t65*t6 19904 = 7*t72-1.4718104502398274d-17*t39*t41*t44*t72+1.69959491 19905 > 82667827d-1*t45*t46*t47*t70+1.962413933653103d-17*t39*t 19906 ? 43*t44*t70+2.943620900479655d-17*t39*t41*t66*t68-2.3669 19907 @ 625486718335d-16*t41*t65*t66*t67+6.661338147750939d-16* 19908 1 t103*t13*t39*t67-1.0712750352598913d-14*t103*t13*t65/t1 19909 2 0**5+5.742741051503565d-14*t103*t13/(t10**6*t11**3))*wg 19910 3 ht+3.0d+0*rhoa*t17*t38*t78*wght+3.0d+0*t17*t33*t78*wght 19911 4 +2.5d-1*gammaaa*t15*t16*t33*t78*wght+3.0d+0*rhoa*t17*t4 19912 5 8*t64*wght+3.0d+0*t14*t17*t64*wght+2.5d-1*gammaaa*t14*t 19913 6 15*t16*t64*wght+2.5d-1*gammaaa*t16*t33*t48*t58*wght+2.5 19914 7 d-1*gammaaa*t14*t16*t38*t58*wght+6.0d+0*t17*t38*t48*wgh 19915 8 t+5.0d-1*gammaaa*t15*t16*t38*t48*wght)+t26*(-5.15088d-3 19916 9 *rhoa*t17*t33*t35*t78*wght-5.15088d-3*rhoa*t14*t17*t35* 19917 : t64*wght-1.030176d-2*rhoa*t17*t33*t48*t62*wght-1.030176 19918 ; d-2*rhoa*t14*t17*t38*t62*wght-1.030176d-2*t14*t17*t33*t 19919 < 62*wght-6.4386d-4*gammaaa*t14*t15*t16*t33*t62*wght-6.43 19920 = 86d-4*gammaaa*t14*t16*t33*t35*t58*wght-1.030176d-2*rhoa 19921 > *t17*t35*t38*t48*wght-1.030176d-2*t17*t33*t35*t48*wght- 19922 ? 6.4386d-4*gammaaa*t15*t16*t33*t35*t48*wght-1.030176d-2* 19923 @ t14*t17*t35*t38*wght-6.4386d-4*gammaaa*t14*t15*t16*t35* 19924 1 t38*wght-5.15088d-3*rhoa*t102*t14*t17*t33*wght-1.030176 19925 2 d-2*t35*t79-5.15088d-3*t49*t62)+t15*t16*t22*(1.25d-1*ga 19926 3 mmaaa*t33*t78*wght+1.25d-1*gammaaa*t14*t64*wght+2.5d-1* 19927 4 gammaaa*t38*t48*wght)+t36*(1.061262590976d-4*rhoa*t14*t 19928 5 17*t33*t35*t62*wght+5.30631295488d-5*rhoa*t17*t33*t48*t 19929 6 57*wght+5.30631295488d-5*rhoa*t14*t17*t38*t57*wght+5.30 19930 7 631295488d-5*t14*t17*t33*t57*wght-1.030176d-2*t35*t80)+ 19931 8 t15*t16*t26*(-1.28772d-3*gammaaa*t14*t33*t62*wght-1.287 19932 9 72d-3*gammaaa*t33*t35*t48*wght-1.28772d-3*gammaaa*t14*t 19933 : 35*t38*wght-5.15088d-3*t35*t59)+t16*t22*t58*(-2.5d-1*ga 19934 ; mmaaa*t33*t48*wght-2.5d-1*gammaaa*t14*t38*wght)+2.5d-1* 19935 < gammaaa*t14*t16*t22*t33*t99*wght-8.199654381909689d-7*r 19936 = hoa*t14*t17*t33*t60*t98*wght+1.93158d-3*gammaaa*t14*t16 19937 > *t26*t33*t35*t58*wght+1.9898673580800003d-5*gammaaa*t14 19938 ? *t15*t16*t33*t36*t57*wght+Amat3(iq,D3_RA_RA_RA) 19939 Cmat3(iq,D3_RA_RA_GAA) = t22*(1.0d+0*rhoa*t14*t17*(-4.5785 19940 1 6d-1*gammaaa*t27*t36*t82*taua-1.061262590976d-3*gammaaa 19941 2 *t27*t35*t50*t60*taua-2.122525181952d-3*t25*t28*t29*t35 19942 3 *t60*taua-5.494272d-1*t28*t29*t36*t37*taua-1.373568d-1* 19943 4 t26*t32*t37*taua+2.6666666666666666d+1*t26*t27*t37*taua 19944 5 -3.53754196992d-4*t25*t32*t35*t36*taua+6.86784000000000 19945 6 1d-2*t25*t27*t35*t36*taua-2.5470302183424004d-3*t23*t24 19946 7 *t35*t60*t82-3.4797056000000004d-1*gammaaa*t27*t28*t36* 19947 8 t63-1.7398528000000002d-1*gammaaa*t26*t31*t63+6.7555555 19948 9 55555556d+1*gammaaa*t23*t26*t63+1.591893886464d-4*t23*t 19949 : 24*t50*t60*t62+1.591893886464d-4*t18*t29*t30*t60*t62+1. 19950 ; 591893886464d-4*gammaaa*t25*t27*t28*t60*t62+5.306312954 19951 < 88d-5*t18*t28*t32*t36*t62+5.30631295488d-5*gammaaa*t25* 19952 = t31*t36*t62-1.030176d-2*t18*t27*t28*t36*t62-2.060352d-2 19953 > *gammaaa*t23*t25*t36*t62-5.15088d-3*t18*t26*t31*t62-1.0 19954 ? 072832000000001d-1*t29*t30*t36*t61-5.036416d-2*t26*t28* 19955 @ t32*t61+9.777777777777779d+0*t22*t31*t61+9.777777777777 19956 1 779d+0*t26*t27*t28*t61-8.199654381909689d-7*t18*t28*t32 19957 2 *t57*t60-8.199654381909689d-7*gammaaa*t25*t31*t57*t60+1 19958 3 .591893886464d-4*t18*t27*t28*t57*t60+3.183787772928d-4* 19959 4 gammaaa*t23*t25*t57*t60-1.6980201455616d-3*gammaaa*t27* 19960 5 t28*t35*t37*t60-8.490100727808d-4*t29*t30*t34*t35*t60-3 19961 6 .2798617527638757d-6*t100*t23*t24*t50*t57+5.30631295488 19962 7 d-5*t18*t31*t36*t57-3.2798617527638757d-6*t100*t18*t29* 19963 8 t30*t57-3.2798617527638757d-6*gammaaa*t100*t25*t27*t28* 19964 9 t57-2.2892800000000002d-1*t29*t36*t50*t55-5.66006715187 19965 : 2d-4*gammaaa*t31*t35*t36*t37+2.1977088d-1*gammaaa*t23*t 19966 ; 35*t36*t37-2.830033575936d-4*t28*t32*t34*t35*t36+5.4942 19967 < 72d-2*t27*t28*t34*t35*t36-7.4172672d-1*t23*t24*t36/rhoa 19968 = **10+2.747136d-2*t26*t31*t34*t35)*wght+2.0d+0*rhoa*t17* 19969 > t48*t83*wght+2.0d+0*t14*t17*t83*wght+1.25d-1*gammaaa*t1 19970 ? 4*t15*t16*t83*wght+1.0d+0*rhoa*t17*t51*t78*wght-1.25d-1 19971 @ *t16*t33*t78*wght-1.25d-1*t14*t16*t64*wght+1.25d-1*gamm 19972 1 aaa*t14*t16*t51*t58*wght+1.25d-1*t14*t16*t33*t58*wght+2 19973 2 .0d+0*t17*t48*t51*wght+1.25d-1*gammaaa*t15*t16*t48*t51* 19974 3 wght-2.5d-1*t16*t38*t48*wght-1.25d-1*t15*t16*t33*t48*wg 19975 4 ht-1.25d-1*t14*t15*t16*t38*wght)+t26*(-5.15088d-3*rhoa* 19976 5 t14*t17*t35*t83*wght-5.15088d-3*rhoa*t14*t17*t51*t62*wg 19977 6 ht+6.4386d-4*t14*t16*t33*t62*wght-5.15088d-3*rhoa*t17*t 19978 7 35*t48*t51*wght-5.15088d-3*t14*t17*t35*t51*wght+6.4386d 19979 8 -4*t16*t33*t35*t48*wght+1.373568d-2*t17*t18*t33*t48*wgh 19980 9 t+6.4386d-4*t14*t16*t35*t38*wght+1.373568d-2*t14*t17*t1 19981 : 8*t38*wght+6.4386d-4*t14*t15*t16*t33*t35*wght-3.6628480 19982 ; 00000001d-2*t14*t17*t33*t34*wght-5.15088d-3*t35*t84+1.3 19983 < 73568d-2*t34*t49)+t15*t16*t22*(1.25d-1*gammaaa*t14*t83* 19984 = wght+1.25d-1*gammaaa*t48*t51*wght+1.25d-1*t33*t48*wght+ 19985 > 1.25d-1*t14*t38*wght)+t15*t16*t26*(-1.28772d-3*gammaaa* 19986 ? t14*t35*t51*wght-1.28772d-3*t14*t33*t35*wght)+t18*t36*( 19987 @ -2.830033575936d-4*t14*t17*t33*t35*wght-1.030176d-2*t80 19988 1 )+4.07778d-3*gammaaa*t14*t16*t26*t33*t61*wght-8.1996543 19989 2 81909689d-7*t14*t17*t19*t33*t57*t60*wght+5.30631295488d 19990 3 -5*rhoa*t14*t17*t36*t51*t57*wght-6.6328911936d-6*t14*t1 19991 4 6*t33*t36*t57*wght+1.32657823872d-5*gammaaa*t14*t16*t33 19992 5 *t34*t35*t36*wght-5.15088d-3*t18*t26*t79-5.15088d-3*t16 19993 6 *t26*t34*t59+t107*t16*t22*t58+Cmat3(iq,D3_RA_RA_GAA) 19994 Cmat3(iq,D3_RA_GAA_GAA) = t22*(1.0d+0*rhoa*t14*t17*(-5.306 19995 1 31295488d-4*gammaaa*t27*t60*t86*taua-1.061262590976d-3* 19996 2 t28*t29*t50*t60*taua-1.76877098496d-4*t32*t36*t50*taua+ 19997 3 6.867840000000001d-2*t27*t36*t50*taua-3.279861752763875 19998 4 7d-6*t100*t23*t24*t35*t86-1.2735151091712002d-3*gammaaa 19999 5 *t27*t28*t60*t82-4.245050363904d-4*gammaaa*t31*t36*t82+ 20000 6 3.2965632d-1*gammaaa*t23*t36*t82-8.199654381909689d-7*g 20001 7 ammaaa*t31*t35*t50*t60+6.367575545856d-4*gammaaa*t23*t3 20002 8 5*t50*t60-8.490100727808d-4*t29*t30*t37*t60-8.199654381 20003 9 909689d-7*t25*t28*t32*t35*t60+3.183787772928d-4*t25*t27 20004 : *t28*t35*t60-1.6980201455616d-3*t23*t24*t60/rhoa**1.166 20005 ; 6666666666665d+1-3.2798617527638757d-6*gammaaa*t100*t27 20006 < *t28*t35*t50-2.830033575936d-4*t28*t32*t36*t37+1.098854 20007 = 4d-1*t27*t28*t36*t37+5.494272d-2*t26*t31*t37-1.06666666 20008 > 66666666d+1*t23*t26*t37+1.061262590976d-4*t25*t31*t35*t 20009 ? 36-2.060352d-2*t23*t25*t35*t36-3.2798617527638757d-6*t1 20010 @ 00*t25*t29*t30*t35)*wght+1.0d+0*rhoa*t17*t48*t87*wght+1 20011 1 .0d+0*t14*t17*t87*wght-2.5d-1*t14*t16*t83*wght-2.5d-1*t 20012 2 16*t48*t51*wght-2.5d-1*t14*t15*t16*t51*wght)+t18*t26*(2 20013 3 .747136d-2*t14*t17*t51*wght-1.7169600000000002d-3*t14*t 20014 4 15*t16*t33*wght+t109)+t16*t26*t34*(-6.4386d-4*gammaaa*t 20015 5 14*t51*wght-2.3608200000000001d-3*t14*t33*wght-5.15088d 20016 6 -3*t81)+t25*t36*(-1.415016787968d-4*t14*t17*t33*wght-1. 20017 7 030176d-2*t85)-5.15088d-3*rhoa*t14*t17*t26*t35*t87*wght 20018 8 -8.199654381909689d-7*t14*t17*t33*t35*t53*t60*wght+1.06 20019 9 1262590976d-4*t14*t17*t19*t35*t36*t51*wght+1.28772d-3*t 20020 : 14*t16*t26*t35*t51*wght+6.6328911936d-6*gammaaa*t14*t16 20021 ; *t33*t36*t37*wght-1.32657823872d-5*t14*t16*t18*t33*t35* 20022 < t36*wght+t108*t15*t16*t22+Cmat3(iq,D3_RA_GAA_GAA) 20023 Cmat3(iq,D3_GAA_GAA_GAA) = -1.545264d-2*t14*t17*t19*t26*t8 20024 1 7*wght-3.75d-1*t14*t16*t22*t87*wght+1.0d+0*rhoa*t14*t17 20025 2 *t22*(-8.199654381909689d-7*gammaaa*t31*t60*t86+9.55136 20026 3 3318784001d-4*gammaaa*t23*t60*t86-3.2798617527638757d-6 20027 4 *gammaaa*t100*t27*t28*t86-8.199654381909689d-7*t28*t32* 20028 5 t50*t60+4.7756816593920004d-4*t27*t28*t50*t60+1.5918938 20029 6 86464d-4*t31*t36*t50-6.181056d-2*t23*t36*t50-3.27986175 20030 7 27638757d-6*t100*t29*t30*t50-3.2798617527638757d-6*t100 20031 8 *t23*t24/rhoa**1.3333333333333333d+1)*wght-8.1996543819 20032 9 09689d-7*t14*t17*t33*t52*t60*wght+1.591893886464d-4*t14 20033 : *t17*t36*t51*t53*wght+3.86316d-3*t14*t16*t18*t26*t51*wg 20034 ; ht-1.9898673580800003d-5*t14*t16*t25*t33*t36*wght+Cmat3 20035 < (iq,D3_GAA_GAA_GAA) 20036 Mmat3(iq,D3_RA_RA_TA) = t22*(1.0d+0*rhoa*t14*t17*(-4.24505 20037 1 0363904d-3*t28*t29*t35*t53*t60*taua-2.122525181952d-3*g 20038 2 ammaaa*t27*t35*t52*t60*taua-7.07508393984d-4*t32*t35*t3 20039 3 6*t53*taua+2.747136d-1*t29*t35*t36*t53*taua-7.783552d-1 20040 4 *gammaaa*t27*t36*t50*taua-8.241408000000001d-1*t25*t28* 20041 5 t29*t36*taua-2.0603520000000003d-1*t25*t26*t32*taua+8.0 20042 6 d+1*t25*t26*t29*taua-1.1537971200000001d+0*t23*t24*t36* 20043 7 t82+3.183787772928d-4*gammaaa*t27*t28*t53*t60*t62+3.183 20044 8 787772928d-4*t23*t24*t52*t60*t62+3.183787772928d-4*t19* 20045 9 t29*t30*t60*t62+1.061262590976d-4*gammaaa*t31*t36*t53*t 20046 : 62-2.060352d-2*gammaaa*t27*t36*t53*t62+1.061262590976d- 20047 ; 4*t19*t28*t32*t36*t62-4.120704d-2*t19*t28*t29*t36*t62-1 20048 < .030176d-2*t19*t26*t32*t62-1.6399308763819376d-6*gammaa 20049 = a*t31*t53*t57*t60+3.183787772928d-4*gammaaa*t27*t53*t57 20050 > *t60-1.6399308763819376d-6*t19*t28*t32*t57*t60+6.367575 20051 ? 545856d-4*t19*t28*t29*t57*t60-4.4573028820992006d-3*t23 20052 @ *t24*t35*t50*t60-1.0612625909760003d-3*t18*t29*t30*t35* 20053 1 t60-2.7592827365376d-3*gammaaa*t25*t27*t28*t35*t60-6.55 20054 2 9723505527751d-6*gammaaa*t100*t27*t28*t53*t57-6.5597235 20055 3 05527751d-6*t100*t23*t24*t52*t57+1.061262590976d-4*t19* 20056 4 t32*t36*t57-6.559723505527751d-6*t100*t19*t29*t30*t57-4 20057 5 .5785600000000004d-1*t29*t36*t52*t55-4.7617024d-1*gamma 20058 6 aa*t27*t28*t36*t37-2.3808512d-1*gammaaa*t26*t31*t37+4.6 20059 7 22222222222223d+1*gammaaa*t26*t27*t37-3.537541969920000 20060 8 6d-4*t18*t28*t32*t35*t36-9.197609121792001d-4*gammaaa*t 20061 9 25*t31*t35*t36+1.373568d-1*t18*t28*t29*t35*t36+1.785638 20062 : 4d-1*gammaaa*t25*t27*t35*t36-9.157120000000001d-2*t29*t 20063 ; 30*t34*t36+3.4339200000000003d-2*t18*t26*t32*t35-4.5785 20064 < 600000000004d-2*t26*t28*t32*t34+8.88888888888889d+0*t22 20065 = *t32*t34+1.7777777777777778d+1*t26*t28*t29*t34)*wght+2. 20066 > 0d+0*rhoa*t17*t48*t88*wght+2.0d+0*t14*t17*t88*wght+1.25 20067 ? d-1*gammaaa*t14*t15*t16*t88*wght+1.25d-1*gammaaa*t33*t5 20068 @ 6*t78*wght+1.0d+0*rhoa*t17*t54*t78*wght+1.25d-1*gammaaa 20069 1 *t14*t56*t64*wght-1.25d-1*gammaaa*t14*t33*t56*t58*wght+ 20070 2 1.25d-1*gammaaa*t14*t16*t54*t58*wght+2.5d-1*gammaaa*t38 20071 3 *t48*t56*wght+1.25d-1*gammaaa*t15*t33*t48*t56*wght+1.25 20072 4 d-1*gammaaa*t14*t15*t38*t56*wght+2.0d+0*t17*t48*t54*wgh 20073 5 t+1.25d-1*gammaaa*t15*t16*t48*t54*wght)+t26*(-5.15088d- 20074 6 3*rhoa*t14*t17*t35*t88*wght-6.4386d-4*gammaaa*t14*t33*t 20075 7 56*t62*wght-5.15088d-3*rhoa*t14*t17*t54*t62*wght-6.4386 20076 8 d-4*gammaaa*t33*t35*t48*t56*wght-6.4386d-4*gammaaa*t14* 20077 9 t35*t38*t56*wght-6.4386d-4*gammaaa*t14*t15*t33*t35*t56* 20078 : wght-5.15088d-3*rhoa*t17*t35*t48*t54*wght-5.15088d-3*t1 20079 ; 4*t17*t35*t54*wght+1.7169600000000002d-2*t17*t19*t33*t4 20080 < 8*wght+1.7169600000000002d-2*t14*t17*t19*t38*wght-2.861 20081 = 6d-2*t14*t17*t18*t33*wght-5.15088d-3*t35*t89+1.71696000 20082 > 00000002d-2*t18*t49)+t15*t16*t22*(1.25d-1*gammaaa*t14*t 20083 ? 88*wght+1.25d-1*gammaaa*t48*t54*wght)+t15*t22*t56*(-1.2 20084 @ 5d-1*gammaaa*t33*t48*wght-1.25d-1*gammaaa*t14*t38*wght) 20085 1 +t19*t36*(-3.5375419699200006d-4*t14*t17*t33*t35*wght-2 20086 2 .060352d-2*t80)-1.6399308763819376d-6*t1*t14*t17*t33*t5 20087 3 7*t60*wght+1.25d-1*gammaaa*t14*t22*t33*t56*t58*wght-1.2 20088 4 5d-1*gammaaa*t14*t16*t22*t54*t58*wght+6.6328911936d-6*g 20089 5 ammaaa*t14*t33*t36*t56*t57*wght+5.30631295488d-5*rhoa*t 20090 6 14*t17*t36*t54*t57*wght+1.28772d-3*gammaaa*t14*t15*t26* 20091 7 t33*t35*t56*wght-1.28772d-3*gammaaa*t14*t15*t16*t26*t35 20092 8 *t54*wght+2.65315647744d-5*gammaaa*t14*t16*t18*t33*t35* 20093 9 t36*wght+5.58012d-3*gammaaa*t14*t16*t26*t33*t34*wght-1. 20094 : 030176d-2*t19*t26*t79-1.030176d-2*t16*t18*t26*t59+Mmat3 20095 ; (iq,D3_RA_RA_TA) 20096 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 20097 Mmat3(iq,D3_RA_GAA_TA) = t22*(1.0d+0*rhoa*t14*t17*(-1.0612 20098 1 62590976d-3*gammaaa*t27*t60*t91*taua-2.122525181952d-3* 20099 2 t28*t29*t52*t60*taua-3.53754196992d-4*t32*t36*t52*taua+ 20100 3 1.373568d-1*t29*t36*t52*taua+6.867840000000001d-2*t27*t 20101 4 36*t52*taua-6.559723505527751d-6*t100*t23*t24*t35*t91-3 20102 5 .0776615138304003d-3*t23*t24*t60*t86-1.6399308763819376 20103 6 d-6*t28*t32*t35*t53*t60+6.367575545856d-4*t28*t29*t35*t 20104 7 53*t60+3.183787772928d-4*t27*t28*t35*t53*t60-1.63993087 20105 8 63819376d-6*gammaaa*t31*t35*t52*t60+3.183787772928d-4*g 20106 9 ammaaa*t27*t35*t52*t60+6.367575545856d-4*gammaaa*t23*t3 20107 : 5*t52*t60-2.2286514410496003d-3*gammaaa*t27*t28*t50*t60 20108 ; -1.3796413682688d-3*t25*t29*t30*t60+1.061262590976d-4*t 20109 < 32*t35*t36*t53+1.061262590976d-4*t31*t35*t36*t53-2.0603 20110 = 52d-2*t27*t35*t36*t53-6.559723505527751d-6*t100*t29*t30 20111 > *t35*t53-6.559723505527751d-6*gammaaa*t100*t27*t28*t35* 20112 ? t52-7.428838136832d-4*gammaaa*t31*t36*t50+1.44224640000 20113 @ 00002d-1*gammaaa*t27*t36*t50+2.8844928000000003d-1*gamm 20114 1 aaa*t23*t36*t50-4.5988045608960004d-4*t25*t28*t32*t36+1 20115 2 .7856384d-1*t25*t28*t29*t36+8.928192d-2*t25*t27*t28*t36 20116 3 +4.464096d-2*t25*t26*t32+4.464096d-2*t25*t26*t31-8.6666 20117 4 66666666666d+0*t25*t26*t27)*wght+1.0d+0*rhoa*t17*t48*t9 20118 5 2*wght+1.0d+0*t14*t17*t92*wght-1.25d-1*t14*t16*t88*wght 20119 6 +1.25d-1*gammaaa*t14*t56*t83*wght+1.25d-1*gammaaa*t48*t 20120 7 51*t56*wght+1.25d-1*gammaaa*t14*t15*t51*t56*wght+1.25d- 20121 8 1*t33*t48*t56*wght+1.25d-1*t14*t38*t56*wght+1.25d-1*t14 20122 9 *t15*t33*t56*wght-1.25d-1*t16*t48*t54*wght-1.25d-1*t14* 20123 : t15*t16*t54*wght)+t15*t16*t22*(1.25d-1*gammaaa*t14*t92* 20124 ; wght+1.25d-1*t14*t54*wght)+t18*t26*(1.7169600000000002d 20125 < -3*gammaaa*t14*t15*t33*t56*wght+1.373568d-2*t14*t17*t54 20126 = *wght-5.15088d-3*t89)+t26*t56*(-6.4386d-4*gammaaa*t14*t 20127 > 35*t51*wght-6.4386d-4*t14*t33*t35*wght)+t19*t26*(1.7169 20128 ? 600000000002d-2*t14*t17*t51*wght+t109)+t36*t53*(-1.7687 20129 @ 709849600003d-4*t14*t17*t33*wght-2.060352d-2*t85)+t16*t 20130 1 18*t26*(t110-2.1462d-3*t14*t33*wght)-1.6399308763819376 20131 2 d-6*t14*t17*t33*t35*t60*t93*wght-5.15088d-3*rhoa*t14*t1 20132 3 7*t26*t35*t92*wght+6.6328911936d-6*gammaaa*t14*t18*t33* 20133 4 t35*t36*t56*wght+6.4386d-4*gammaaa*t14*t26*t33*t34*t56* 20134 5 wght+5.30631295488d-5*t14*t17*t19*t35*t36*t54*wght+6.43 20135 6 86d-4*t14*t16*t26*t35*t54*wght-6.4386d-4*gammaaa*t14*t1 20136 7 6*t26*t34*t54*wght+1.061262590976d-4*t1*t14*t17*t35*t36 20137 8 *t51*wght-1.32657823872d-5*t14*t16*t19*t33*t35*t36*wght 20138 9 +1.32657823872d-5*gammaaa*t14*t16*t25*t33*t36*wght+t107 20139 : *t15*t22*t56+Mmat3(iq,D3_RA_GAA_TA) 20140 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 20141 Mmat3(iq,D3_GAA_GAA_TA) = -1.6399308763819376d-6*t14*t17*t 20142 1 33*t60*t95*wght+2.122525181952d-4*t14*t17*t36*t51*t93*w 20143 2 ght-1.030176d-2*t14*t17*t19*t26*t92*wght-2.5d-1*t14*t16 20144 3 *t22*t92*wght+1.0d+0*rhoa*t14*t17*t22*(-1.6399308763819 20145 4 376d-6*gammaaa*t31*t60*t91+3.183787772928d-4*gammaaa*t2 20146 5 7*t60*t91+1.2735151091712002d-3*gammaaa*t23*t60*t91-6.5 20147 6 59723505527751d-6*gammaaa*t100*t27*t28*t91-1.6399308763 20148 7 819376d-6*t28*t32*t52*t60+6.367575545856d-4*t28*t29*t52 20149 8 *t60+6.367575545856d-4*t27*t28*t52*t60+1.061262590976d- 20150 9 4*t32*t36*t52+2.122525181952d-4*t31*t36*t52-4.120704d-2 20151 : *t27*t36*t52-4.120704d-2*t23*t36*t52-6.559723505527751d 20152 ; -6*t100*t29*t30*t52-6.559723505527751d-6*t100*t23*t24/r 20153 < hoa**1.2333333333333334d+1)*wght-1.030176d-2*t1*t14*t17 20154 = *t26*t87*wght+6.6328911936d-6*gammaaa*t14*t25*t33*t36*t 20155 > 56*wght+5.30631295488d-5*t14*t17*t36*t53*t54*wght+1.287 20156 ? 72d-3*t14*t16*t18*t26*t54*wght-2.65315647744d-5*t14*t16 20157 @ *t33*t36*t53*wght+2.57544d-3*t14*t16*t19*t26*t51*wght+( 20158 1 t112+t111)*t18*t26*t56+t108*t22*t56+Mmat3(iq,D3_GAA_GAA 20159 2 _TA) 20160 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 20161 Mmat3(iq,D3_RA_TA_TA) = t22*(1.0d+0*rhoa*t14*t17*(-4.24505 20162 1 0363904d-3*t28*t29*t60*t95*taua-7.07508393984d-4*t32*t3 20163 2 6*t95*taua+5.494272d-1*t29*t36*t95*taua-2.122525181952d 20164 3 -3*gammaaa*t27*t60*t94*taua-3.279861752763875d-6*gammaa 20165 4 a*t31*t35*t60*t95+1.2735151091712002d-3*gammaaa*t27*t35 20166 5 *t60*t95-1.3119447011055504d-5*gammaaa*t100*t27*t28*t35 20167 6 *t95-1.3119447011055504d-5*t100*t23*t24*t35*t94-3.27986 20168 7 1752763875d-6*t28*t32*t35*t60*t93+2.5470302183424004d-3 20169 8 *t28*t29*t35*t60*t93+4.245050363904d-4*t32*t35*t36*t93- 20170 9 8.241408d-2*t29*t35*t36*t93-1.3119447011055504d-5*t100* 20171 : t29*t30*t35*t93-5.518565473075201d-3*t23*t24*t60*t91-2. 20172 ; 1225251819520005d-3*t29*t30*t53*t60-3.8205453275136003d 20173 < -3*gammaaa*t27*t28*t52*t60-7.075083939840001d-4*t28*t32 20174 = *t36*t53+5.494272d-1*t28*t29*t36*t53+1.373568d-1*t26*t3 20175 > 2*t53-2.6666666666666666d+1*t26*t29*t53-1.2735151091712 20176 ? 002d-3*gammaaa*t31*t36*t52+4.9448448d-1*gammaaa*t27*t36 20177 @ *t52)*wght-2.5d-1*gammaaa*t33*t48*t97*wght-2.5d-1*gamma 20178 1 aa*t14*t38*t97*wght-2.5d-1*gammaaa*t14*t15*t33*t97*wght 20179 2 +1.0d+0*rhoa*t17*t48*t96*wght+1.0d+0*t14*t17*t96*wght+2 20180 3 .5d-1*gammaaa*t14*t56*t88*wght+2.5d-1*gammaaa*t48*t54*t 20181 4 56*wght+2.5d-1*gammaaa*t14*t15*t54*t56*wght)+t19*t26*(2 20182 5 .1462d-3*gammaaa*t14*t15*t33*t56*wght+3.433920000000000 20183 6 3d-2*t14*t17*t54*wght-2.060352d-2*t89)+t36*t93*(-3.5375 20184 7 419699200006d-4*t14*t17*t33*wght-2.060352d-2*t90)+1.287 20185 8 72d-3*gammaaa*t14*t26*t33*t35*t97*wght+2.5d-1*gammaaa*t 20186 9 14*t15*t22*t33*t97*wght-5.15088d-3*rhoa*t14*t17*t26*t35 20187 : *t96*wght+1.25d-1*gammaaa*t14*t15*t16*t22*t96*wght-3.27 20188 ; 9861752763875d-6*t14*t17*t33*t35*t60*t70*wght-1.28772d- 20189 < 3*gammaaa*t14*t26*t35*t54*t56*wght-2.5d-1*gammaaa*t14*t 20190 = 15*t22*t54*t56*wght+2.65315647744d-5*gammaaa*t14*t19*t3 20191 > 3*t35*t36*t56*wght+4.7216400000000003d-3*gammaaa*t14*t1 20192 ? 8*t26*t33*t56*wght+2.122525181952d-4*t1*t14*t17*t35*t36 20193 @ *t54*wght-2.57544d-3*gammaaa*t14*t16*t18*t26*t54*wght+2 20194 1 .65315647744d-5*gammaaa*t14*t16*t33*t36*t53*wght+Mmat3( 20195 2 iq,D3_RA_TA_TA) 20196 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 20197 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 20198 Mmat3(iq,D3_GAA_TA_TA) = t22*t56*(2.5d-1*gammaaa*t14*t92*w 20199 1 ght+2.5d-1*t14*t54*wght)+1.28772d-3*gammaaa*t14*t18*t26 20200 2 *t33*t97*wght-5.15088d-3*t14*t17*t19*t26*t96*wght-1.25d 20201 3 -1*t14*t16*t22*t96*wght+1.0d+0*rhoa*t14*t17*t22*(-3.279 20202 4 861752763875d-6*t28*t32*t60*t95+2.5470302183424004d-3*t 20203 5 28*t29*t60*t95+6.367575545856d-4*t27*t28*t60*t95+4.2450 20204 6 50363904d-4*t32*t36*t95+2.122525181952d-4*t31*t36*t95-8 20205 7 .241408d-2*t29*t36*t95-8.241408d-2*t27*t36*t95-1.311944 20206 8 7011055504d-5*t100*t29*t30*t95-3.279861752763875d-6*gam 20207 9 maaa*t31*t60*t94+1.2735151091712002d-3*gammaaa*t27*t60* 20208 : t94+1.2735151091712002d-3*gammaaa*t23*t60*t94-1.3119447 20209 ; 011055504d-5*gammaaa*t100*t27*t28*t94-1.311944701105550 20210 < 4d-5*t100*t23*t24/rhoa**1.1333333333333334d+1)*wght+2.1 20211 = 22525181952d-4*t14*t17*t36*t54*t93*wght-2.65315647744d- 20212 > 5*t14*t16*t33*t36*t93*wght-2.060352d-2*t1*t14*t17*t26*t 20213 ? 92*wght+2.122525181952d-4*t14*t17*t36*t51*t70*wght-3.27 20214 @ 9861752763875d-6*t113*t14*t17*t33*t60*wght-1.28772d-3*g 20215 1 ammaaa*t14*t18*t26*t54*t56*wght+2.65315647744d-5*gammaa 20216 2 a*t14*t33*t36*t53*t56*wght+2.57544d-3*t14*t16*t19*t26*t 20217 3 54*wght-2*t22*t81*t97+(t112+t111+t110)*t19*t26*t56+Mmat 20218 4 3(iq,D3_GAA_TA_TA) 20219 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 20220 Mmat3(iq,D3_GAA_TB_TB) = Mmat3(iq,D3_GAA_TB_TB) 20221 Mmat3(iq,D3_TA_TA_TA) = 7.5d-1*gammaaa*t14*t22*t33*wght/ta 20222 1 ua**4-7.5d-1*gammaaa*t14*t22*t54*t97*wght+7.72632d-3*ga 20223 2 mmaaa*t14*t19*t26*t33*t97*wght+3.75d-1*gammaaa*t14*t22* 20224 3 t56*t96*wght-3.090528d-2*t1*t14*t17*t26*t96*wght+7.9594 20225 4 69432320001d-5*gammaaa*t14*t33*t36*t56*t93*wght+6.36757 20226 5 5545856d-4*t14*t17*t36*t54*t70*wght+1.0d+0*rhoa*t14*t17 20227 6 *t22*(-6.55972350552775d-6*t113*t28*t32*t60-6.559723505 20228 7 52775d-6*gammaaa*t114*t31*t60+7.641090655027201d-3*t113 20229 8 *t28*t29*t60+3.8205453275136003d-3*gammaaa*t114*t27*t60 20230 9 +1.2735151091712002d-3*t113*t32*t36-4.9448448d-1*t113*t 20231 : 29*t36-2.623889402211101d-5*t100*t113*t29*t30-2.6238894 20232 ; 02211101d-5*gammaaa*t100*t114*t27*t28-2.623889402211101 20233 < d-5*t100*t23*t24/rhoa**1.0333333333333333d+1)*wght-6.55 20234 = 972350552775d-6*t14*t17*t33*t60*wght/rhoa**4-7.72632d-3 20235 > *gammaaa*t14*t19*t26*t54*t56*wght+Mmat3(iq,D3_TA_TA_TA) 20236 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 20237 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 20238 Mmat3(iq,D3_TB_TB_TB) = Mmat3(iq,D3_TB_TB_TB) 20239 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 20240 t1 = 1/rhoa**1.6666666666666669d+0 20241 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 20242 t3 = 1/t2 20243 t4 = param(12) 20244 t5 = 1/t2**2 20245 t6 = 2.0d-50*t1-9.11559972d+0 20246 t7 = t6**2 20247 t8 = param(10) 20248 t9 = 1/rhoa**3.3333333333333337d+0 20249 t10 = param(9) 20250 t11 = param(8) 20251 t12 = param(11) 20252 t13 = 1.6d-99*t5*t8*t9+t4*t5*t7+4.0d-50*t1*t12*t5*t6+t10*t 20253 1 3*t6+4.0d-50*t1*t11*t3+param(7) 20254 t14 = 1/rhoa**6.666666666666666d-1 20255 t15 = rhoa**5.0d-1 20256 t16 = 1/t15 20257 t17 = 1/rhoa**3.333333333333333d-1 20258 t18 = 1/rhoa**1.6666666666666666d-1 20259 t19 = 1.1120374863094686d+1*t18+3.8447462374472113d+0*t17+ 20260 1 1.644733775567609d+0*t16+2.4058712912881916d-1*t14 20261 t20 = 3.216395899738507d+1/t19+1.0d+0 20262 t21 = log(t20) 20263 t22 = 1.274696188700087d-1*t17+1.0d+0 20264 t23 = 5.982550435771079d+0*t18+2.2255694211506874d+0*t17+8 20265 1 .004286349993635d-1*t16+1.8970043257475583d-1*t14 20266 t24 = 1.6081979498692536d+1/t23+1.0d+0 20267 t25 = log(t24) 20268 t26 = 1.3256889990520176d-1*t17+1.0d+0 20269 t27 = -6.903522198342671d-18*t25*t26-3.1090699999999993d-2 20270 1 *t21*t22 20271 t28 = 1/t24 20272 t29 = 1/t15**3 20273 t30 = 1/rhoa**1.3333333333333333d+0 20274 t31 = 1/rhoa**1.1666666666666667d+0 20275 t32 = -9.970917392951799d-1*t31-7.418564737168958d-1*t30-4 20276 1 .002143174996817d-1*t29-1.264669550498372d-1*t1 20277 t33 = 1/t23**2 20278 t34 = 1/t20 20279 t35 = -1.8533958105157808d+0*t31-1.2815820791490704d+0*t30 20280 1 -8.223668877838045d-1*t29-1.6039141941921276d-1*t1 20281 t36 = 1/t19**2 20282 t37 = 1.0d+0*t22*t34*t35*t36+1.1102230246251565d-16*t26*t2 20283 1 8*t32*t33+3.0506411443514264d-19*t25*t30+1.321039893133 20284 2 9265d-3*t21*t30 20285 t38 = 1/t2**3 20286 t39 = 1/rhoa**4.333333333333333d+0 20287 t40 = 1/rhoa**2.6666666666666666d+0 20288 t41 = -5.333333333333334d-99*t39*t5*t8+1.6482816d-150*t38* 20289 1 t8/rhoa**6+1.030176d-51*t38*t4*t40*t7-6.666666666666666 20290 2 d-50*t4*t40*t5*t6-6.666666666666666d-50*t12*t40*t5*t6+5 20291 3 .15088d-52*t10*t40*t5*t6+4.1207039999999995d-101*t12*t3 20292 4 8*t39*t6-1.3333333333333333d-99*t12*t39*t5+2.0603519999 20293 5 999997d-101*t11*t39*t5-6.666666666666666d-50*t11*t3*t40 20294 6 -3.333333333333333d-50*t10*t3*t40 20295 t42 = 5.0d-1*rhoa*t27*t41*wght+5.0d-1*rhoa*t13*t37*wght+5. 20296 1 0d-1*t13*t27*wght 20297 t43 = 2.57544d-52*t27*t41*wght+2.57544d-52*t13*t37*wght 20298 t44 = 1/t24**2 20299 t45 = t32**2 20300 t46 = 1/t23**4 20301 t47 = 1/t23**3 20302 t48 = 1/t15**5 20303 t49 = 1/rhoa**2.3333333333333334d+0 20304 t50 = 1/rhoa**2.1666666666666665d+0 20305 t51 = 1.1632736958443765d+0*t50+9.89141964955861d-1*t49+6. 20306 1 003214762495226d-1*t48+2.1077825841639536d-1*t40 20307 t52 = 1/t20**2 20308 t53 = t35**2 20309 t54 = 1/t19**4 20310 t55 = 1/t19**3 20311 t56 = 2.1622951122684114d+0*t50+1.7087761055320938d+0*t49+ 20312 1 1.2335503316757068d+0*t48+2.673190323653546d-1*t40 20313 t57 = 1.0d+0*t22*t34*t36*t56-2.0d+0*t22*t34*t53*t55+3.2163 20314 1 95899738507d+1*t22*t52*t53*t54+1.1102230246251565d-16*t 20315 2 26*t28*t33*t51-4.0675215258019015d-19*t25*t49-1.7613865 20316 3 241785684d-3*t21*t49-2.220446049250313d-16*t26*t28*t45* 20317 4 t47+1.7854583920998188d-15*t26*t44*t45*t46-8.4979745913 20318 5 33913d-2*t30*t34*t35*t36-9.812069668265515d-18*t28*t30* 20319 6 t32*t33 20320 t58 = 1/t2**4 20321 t59 = 1/rhoa**7 20322 t60 = 1/rhoa**5.333333333333333d+0 20323 t61 = 1/rhoa**3.6666666666666664d+0 20324 t62 = 2.3111111111111113d-98*t5*t60*t8-1.53839616d-149*t38 20325 1 *t59*t8+2.5470302183424d-201*t58*t8/rhoa**8.66666666666 20326 2 6666d+0-2.747136d-51*t38*t4*t61*t7+1.5918938864639998d- 20327 3 102*t4*t58*t60*t7+1.7777777777777776d-49*t4*t5*t6*t61+1 20328 4 .7777777777777776d-49*t12*t5*t6*t61-1.373568d-51*t10*t5 20329 5 *t6*t61+1.7777777777777776d-49*t11*t3*t61+8.88888888888 20330 6 8888d-50*t10*t3*t61-1.373568d-100*t38*t4*t6*t60-2.47242 20331 7 23999999997d-100*t12*t38*t6*t60+5.306312954879999d-103* 20332 8 t10*t38*t6*t60+2.222222222222222d-99*t4*t5*t60+8.0d-99* 20333 9 t12*t5*t60-1.2362111999999999d-100*t11*t5*t60-3.43392d- 20334 : 101*t10*t5*t60+6.367575545855999d-152*t12*t58*t59*t6-2. 20335 ; 7471359999999995d-150*t12*t38*t59+2.1225251819519997d-1 20336 < 52*t11*t38*t59 20337 t63 = 5.0d-1*rhoa*t27*t62*wght+5.0d-1*rhoa*t13*t57*wght+1. 20338 1 0d+0*rhoa*t37*t41*wght+1.0d+0*t27*t41*wght+1.0d+0*t13*t 20339 2 37*wght 20340 t64 = 5.15088d-52*t42-4.2923999999999995d-52*t13*t27*wght 20341 t65 = t32**3 20342 t66 = 1/t15**7 20343 t67 = 1/rhoa**3.1666666666666665d+0 20344 t68 = t35**3 20345 t69 = 1/t2**5 20346 t70 = 1/rhoa**9.666666666666666d+0 20347 t71 = 1/rhoa**8 20348 t72 = 1/rhoa**6.333333333333333d+0 20349 t73 = 1/rhoa**4.666666666666667d+0 20350 fnc(iq) = 5.0d-1*rhoa*t13*t27*t3*wght+fnc(iq) 20351 Amat(iq,D1_RA) = 2.57544d-52*t1*t13*t27*t5*wght+t3*t42+Ama 20352 1 t(iq,D1_RA) 20353 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 20354 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 20355 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 20356 Amat2(iq,D2_RA_RA) = 2.6531564774399996d-103*t13*t27*t38*t 20357 1 39*wght+t40*t5*t64+t3*t63+t1*t43*t5+Amat2(iq,D2_RA_RA) 20358 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 20359 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 20360 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 20361 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 20362 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 20363 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 20364 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 20365 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 20366 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 20367 Amat3(iq,D3_RA_RA_RA) = t3*(5.0d-1*rhoa*t13*(9.49088356020 20368 1 4437d-19*t25*t9+4.1099018897499934d-3*t21*t9+1.11022302 20369 2 46251565d-16*t26*t28*t33*(-2.3079979182303428d+0*t9-2.5 20370 3 20426340996149d+0*t67-1.5008036906238065d+0*t66-5.62075 20371 4 3557770543d-1*t61)+1.0d+0*t22*t34*t36*(-3.9871442462415 20372 5 524d+0*t9-4.684972743248224d+0*t67-3.083875829189267d+0 20373 6 *t66-7.128507529742789d-1*t61)+6.0d+0*t22*t34*t54*t68-1 20374 7 .9298375398431045d+2*t22*t52*t68/t19**5+2.0690405167709 20375 8 364d+3*t22*t68/(t19**6*t20**3)+6.661338147750939d-16*t2 20376 9 6*t28*t46*t65-1.0712750352598913d-14*t26*t44*t65/t23**5 20377 : +5.742741051503565d-14*t26*t65/(t23**6*t24**3)-6.0d+0*t 20378 ; 22*t34*t35*t55*t56+9.649187699215522d+1*t22*t35*t52*t54 20379 < *t56-1.274696188700087d-1*t30*t34*t36*t56+2.54939237740 20380 = 0174d-1*t30*t34*t53*t55-4.0999275947472624d+0*t30*t52*t 20381 > 53*t54-6.661338147750939d-16*t26*t28*t32*t47*t51+5.3563 20382 ? 75176299456d-15*t26*t32*t44*t46*t51-1.4718104502398274d 20383 @ -17*t28*t30*t33*t51+1.6995949182667827d-1*t34*t35*t36*t 20384 1 49+1.962413933653103d-17*t28*t32*t33*t49+2.943620900479 20385 2 655d-17*t28*t30*t45*t47-2.3669625486718335d-16*t30*t44* 20386 3 t45*t46)*wght+5.0d-1*rhoa*t27*(-1.2325925925925926d-97* 20387 4 t5*t72*t8+1.314962432d-148*t38*t71*t8-4.58465439301632d 20388 5 -200*t58*t70*t8+5.2477788044222d-252*t69*t8/rhoa**1.133 20389 6 3333333333334d+1+1.0072832d-50*t38*t4*t7*t73-6.51851851 20390 7 8518518d-49*t4*t5*t6*t73-6.518518518518518d-49*t12*t5*t 20391 8 6*t73+5.036415999999999d-51*t10*t5*t6*t73-6.51851851851 20392 9 8518d-49*t11*t3*t73-3.259259259259259d-49*t10*t3*t73-1. 20393 : 2735151091711996d-101*t4*t58*t7*t72+1.0988544d-99*t38*t 20394 ; 4*t6*t72+1.50176768d-99*t12*t38*t6*t72-4.24505036390399 20395 < 94d-102*t10*t38*t6*t72-1.7777777777777776d-98*t4*t5*t72 20396 = -4.8592592592592593d-98*t12*t5*t72+7.508838399999999d-1 20397 > 00*t11*t5*t72+2.7471359999999995d-100*t10*t5*t72+3.2798 20398 ? 61752763875d-153*t4*t69*t7*t71-3.1837877729279995d-151* 20399 @ t4*t58*t6*t71-8.277848209612798d-151*t12*t58*t6*t71+8.1 20400 1 99654381909687d-154*t10*t58*t6*t71+6.86784d-150*t38*t4* 20401 2 t71+3.5712767999999995d-149*t12*t38*t71-2.7592827365375 20402 3 994d-151*t11*t38*t71-5.30631295488d-152*t10*t38*t71+1.3 20403 4 1194470110555d-202*t12*t6*t69*t70-6.367575545855999d-20 20404 5 1*t12*t58*t70+3.2798617527638746d-203*t11*t58*t70)*wght 20405 6 +1.5d+0*rhoa*t37*t62*wght+1.5d+0*t27*t62*wght+1.5d+0*rh 20406 7 oa*t41*t57*wght+1.5d+0*t13*t57*wght+3.0d+0*t37*t41*wght 20407 8 )+t1*t5*(2.57544d-52*t27*t62*wght+2.57544d-52*t13*t57*w 20408 9 ght+5.15088d-52*t37*t41*wght)+t38*t39*(2.65315647743999 20409 : 96d-103*t27*t41*wght+2.6531564774399996d-103*t13*t37*wg 20410 ; ht+1.030176d-51*t43)+t40*t5*(-4.2923999999999995d-52*t2 20411 < 7*t41*wght-4.2923999999999995d-52*t13*t37*wght+1.030176 20412 = d-51*t63)+t38*t60*(1.030176d-51*t64-1.1497011402239997d 20413 > -102*t13*t27*wght)+4.0998271909548434d-154*t13*t27*t58* 20414 ? t59*wght-2.6666666666666666d+0*t5*t61*t64-1.66666666666 20415 @ 66669d+0*t40*t43*t5+Amat3(iq,D3_RA_RA_RA) 20416 Cmat3(iq,D3_RA_RA_GAA) = Cmat3(iq,D3_RA_RA_GAA) 20417 Cmat3(iq,D3_RA_GAA_GAA) = Cmat3(iq,D3_RA_GAA_GAA) 20418 Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA) 20419 Mmat3(iq,D3_RA_RA_TA) = Mmat3(iq,D3_RA_RA_TA) 20420 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 20421 Mmat3(iq,D3_RA_GAA_TA) = Mmat3(iq,D3_RA_GAA_TA) 20422 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 20423 Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA) 20424 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 20425 Mmat3(iq,D3_RA_TA_TA) = Mmat3(iq,D3_RA_TA_TA) 20426 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 20427 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 20428 Mmat3(iq,D3_GAA_TA_TA) = Mmat3(iq,D3_GAA_TA_TA) 20429 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 20430 Mmat3(iq,D3_GAA_TB_TB) = Mmat3(iq,D3_GAA_TB_TB) 20431 Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA) 20432 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 20433 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 20434 Mmat3(iq,D3_TB_TB_TB) = Mmat3(iq,D3_TB_TB_TB) 20435 else 20436 t1 = 1/rhoa**1.6666666666666669d+0 20437 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 20438 t3 = 1/t2 20439 t4 = param(12) 20440 t5 = 1/t2**2 20441 t6 = 2.0d-50*t1-9.11559972d+0 20442 t7 = t6**2 20443 t8 = param(10) 20444 t9 = 1/rhoa**3.3333333333333337d+0 20445 t10 = param(9) 20446 t11 = param(8) 20447 t12 = param(11) 20448 t13 = 1.6d-99*t5*t8*t9+t4*t5*t7+4.0d-50*t1*t12*t5*t6+t10*t 20449 1 3*t6+4.0d-50*t1*t11*t3+param(7) 20450 t14 = 1/rhoa**6.666666666666666d-1 20451 t15 = rhoa**5.0d-1 20452 t16 = 1/t15 20453 t17 = 1/rhoa**3.333333333333333d-1 20454 t18 = 1/rhoa**1.6666666666666666d-1 20455 t19 = 1.1120374863094686d+1*t18+3.8447462374472113d+0*t17+ 20456 1 1.644733775567609d+0*t16+2.4058712912881916d-1*t14 20457 t20 = 3.216395899738507d+1/t19+1.0d+0 20458 t21 = log(t20) 20459 t22 = 1.274696188700087d-1*t17+1.0d+0 20460 t23 = 5.982550435771079d+0*t18+2.2255694211506874d+0*t17+8 20461 1 .004286349993635d-1*t16+1.8970043257475583d-1*t14 20462 t24 = 1.6081979498692536d+1/t23+1.0d+0 20463 t25 = log(t24) 20464 t26 = 1.3256889990520176d-1*t17+1.0d+0 20465 t27 = -6.903522198342671d-18*t25*t26-3.1090699999999993d-2 20466 1 *t21*t22 20467 t28 = 1/t24 20468 t29 = 1/t15**3 20469 t30 = 1/rhoa**1.3333333333333333d+0 20470 t31 = 1/rhoa**1.1666666666666667d+0 20471 t32 = -9.970917392951799d-1*t31-7.418564737168958d-1*t30-4 20472 1 .002143174996817d-1*t29-1.264669550498372d-1*t1 20473 t33 = 1/t23**2 20474 t34 = 1/t20 20475 t35 = -1.8533958105157808d+0*t31-1.2815820791490704d+0*t30 20476 1 -8.223668877838045d-1*t29-1.6039141941921276d-1*t1 20477 t36 = 1/t19**2 20478 t37 = 1.0d+0*t22*t34*t35*t36+1.1102230246251565d-16*t26*t2 20479 1 8*t32*t33+3.0506411443514264d-19*t25*t30+1.321039893133 20480 2 9265d-3*t21*t30 20481 t38 = 1/t2**3 20482 t39 = 1/rhoa**4.333333333333333d+0 20483 t40 = 1/rhoa**2.6666666666666666d+0 20484 t41 = -5.333333333333334d-99*t39*t5*t8+1.6482816d-150*t38* 20485 1 t8/rhoa**6+1.030176d-51*t38*t4*t40*t7-6.666666666666666 20486 2 d-50*t4*t40*t5*t6-6.666666666666666d-50*t12*t40*t5*t6+5 20487 3 .15088d-52*t10*t40*t5*t6+4.1207039999999995d-101*t12*t3 20488 4 8*t39*t6-1.3333333333333333d-99*t12*t39*t5+2.0603519999 20489 5 999997d-101*t11*t39*t5-6.666666666666666d-50*t11*t3*t40 20490 6 -3.333333333333333d-50*t10*t3*t40 20491 t42 = 5.0d-1*rhoa*t27*t41*wght+5.0d-1*rhoa*t13*t37*wght+5. 20492 1 0d-1*t13*t27*wght 20493 t43 = 2.57544d-52*t27*t41*wght+2.57544d-52*t13*t37*wght 20494 t44 = 1/t24**2 20495 t45 = t32**2 20496 t46 = 1/t23**4 20497 t47 = 1/t23**3 20498 t48 = 1/t15**5 20499 t49 = 1/rhoa**2.3333333333333334d+0 20500 t50 = 1/rhoa**2.1666666666666665d+0 20501 t51 = 1.1632736958443765d+0*t50+9.89141964955861d-1*t49+6. 20502 1 003214762495226d-1*t48+2.1077825841639536d-1*t40 20503 t52 = 1/t20**2 20504 t53 = t35**2 20505 t54 = 1/t19**4 20506 t55 = 1/t19**3 20507 t56 = 2.1622951122684114d+0*t50+1.7087761055320938d+0*t49+ 20508 1 1.2335503316757068d+0*t48+2.673190323653546d-1*t40 20509 t57 = 1.0d+0*t22*t34*t36*t56-2.0d+0*t22*t34*t53*t55+3.2163 20510 1 95899738507d+1*t22*t52*t53*t54+1.1102230246251565d-16*t 20511 2 26*t28*t33*t51-4.0675215258019015d-19*t25*t49-1.7613865 20512 3 241785684d-3*t21*t49-2.220446049250313d-16*t26*t28*t45* 20513 4 t47+1.7854583920998188d-15*t26*t44*t45*t46-8.4979745913 20514 5 33913d-2*t30*t34*t35*t36-9.812069668265515d-18*t28*t30* 20515 6 t32*t33 20516 t58 = 1/t2**4 20517 t59 = 1/rhoa**7 20518 t60 = 1/rhoa**5.333333333333333d+0 20519 t61 = 1/rhoa**3.6666666666666664d+0 20520 t62 = 2.3111111111111113d-98*t5*t60*t8-1.53839616d-149*t38 20521 1 *t59*t8+2.5470302183424d-201*t58*t8/rhoa**8.66666666666 20522 2 6666d+0-2.747136d-51*t38*t4*t61*t7+1.5918938864639998d- 20523 3 102*t4*t58*t60*t7+1.7777777777777776d-49*t4*t5*t6*t61+1 20524 4 .7777777777777776d-49*t12*t5*t6*t61-1.373568d-51*t10*t5 20525 5 *t6*t61+1.7777777777777776d-49*t11*t3*t61+8.88888888888 20526 6 8888d-50*t10*t3*t61-1.373568d-100*t38*t4*t6*t60-2.47242 20527 7 23999999997d-100*t12*t38*t6*t60+5.306312954879999d-103* 20528 8 t10*t38*t6*t60+2.222222222222222d-99*t4*t5*t60+8.0d-99* 20529 9 t12*t5*t60-1.2362111999999999d-100*t11*t5*t60-3.43392d- 20530 : 101*t10*t5*t60+6.367575545855999d-152*t12*t58*t59*t6-2. 20531 ; 7471359999999995d-150*t12*t38*t59+2.1225251819519997d-1 20532 < 52*t11*t38*t59 20533 t63 = 5.0d-1*rhoa*t27*t62*wght+5.0d-1*rhoa*t13*t57*wght+1. 20534 1 0d+0*rhoa*t37*t41*wght+1.0d+0*t27*t41*wght+1.0d+0*t13*t 20535 2 37*wght 20536 t64 = 5.15088d-52*t42-4.2923999999999995d-52*t13*t27*wght 20537 t65 = t32**3 20538 t66 = 1/t15**7 20539 t67 = 1/rhoa**3.1666666666666665d+0 20540 t68 = t35**3 20541 t69 = 1/t2**5 20542 t70 = 1/rhoa**9.666666666666666d+0 20543 t71 = 1/rhoa**8 20544 t72 = 1/rhoa**6.333333333333333d+0 20545 t73 = 1/rhoa**4.666666666666667d+0 20546 fnc(iq) = 5.0d-1*rhoa*t13*t27*t3*wght+fnc(iq) 20547 Amat(iq,D1_RA) = 2.57544d-52*t1*t13*t27*t5*wght+t3*t42+Ama 20548 1 t(iq,D1_RA) 20549 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 20550 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 20551 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 20552 Amat2(iq,D2_RA_RA) = 2.6531564774399996d-103*t13*t27*t38*t 20553 1 39*wght+t40*t5*t64+t3*t63+t1*t43*t5+Amat2(iq,D2_RA_RA) 20554 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 20555 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 20556 Mmat2(iq,D2_RA_TA) = Mmat2(iq,D2_RA_TA) 20557 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 20558 Mmat2(iq,D2_GAA_TA) = Mmat2(iq,D2_GAA_TA) 20559 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 20560 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 20561 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 20562 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 20563 Amat3(iq,D3_RA_RA_RA) = t3*(5.0d-1*rhoa*t13*(9.49088356020 20564 1 4437d-19*t25*t9+4.1099018897499934d-3*t21*t9+1.11022302 20565 2 46251565d-16*t26*t28*t33*(-2.3079979182303428d+0*t9-2.5 20566 3 20426340996149d+0*t67-1.5008036906238065d+0*t66-5.62075 20567 4 3557770543d-1*t61)+1.0d+0*t22*t34*t36*(-3.9871442462415 20568 5 524d+0*t9-4.684972743248224d+0*t67-3.083875829189267d+0 20569 6 *t66-7.128507529742789d-1*t61)+6.0d+0*t22*t34*t54*t68-1 20570 7 .9298375398431045d+2*t22*t52*t68/t19**5+2.0690405167709 20571 8 364d+3*t22*t68/(t19**6*t20**3)+6.661338147750939d-16*t2 20572 9 6*t28*t46*t65-1.0712750352598913d-14*t26*t44*t65/t23**5 20573 : +5.742741051503565d-14*t26*t65/(t23**6*t24**3)-6.0d+0*t 20574 ; 22*t34*t35*t55*t56+9.649187699215522d+1*t22*t35*t52*t54 20575 < *t56-1.274696188700087d-1*t30*t34*t36*t56+2.54939237740 20576 = 0174d-1*t30*t34*t53*t55-4.0999275947472624d+0*t30*t52*t 20577 > 53*t54-6.661338147750939d-16*t26*t28*t32*t47*t51+5.3563 20578 ? 75176299456d-15*t26*t32*t44*t46*t51-1.4718104502398274d 20579 @ -17*t28*t30*t33*t51+1.6995949182667827d-1*t34*t35*t36*t 20580 1 49+1.962413933653103d-17*t28*t32*t33*t49+2.943620900479 20581 2 655d-17*t28*t30*t45*t47-2.3669625486718335d-16*t30*t44* 20582 3 t45*t46)*wght+5.0d-1*rhoa*t27*(-1.2325925925925926d-97* 20583 4 t5*t72*t8+1.314962432d-148*t38*t71*t8-4.58465439301632d 20584 5 -200*t58*t70*t8+5.2477788044222d-252*t69*t8/rhoa**1.133 20585 6 3333333333334d+1+1.0072832d-50*t38*t4*t7*t73-6.51851851 20586 7 8518518d-49*t4*t5*t6*t73-6.518518518518518d-49*t12*t5*t 20587 8 6*t73+5.036415999999999d-51*t10*t5*t6*t73-6.51851851851 20588 9 8518d-49*t11*t3*t73-3.259259259259259d-49*t10*t3*t73-1. 20589 : 2735151091711996d-101*t4*t58*t7*t72+1.0988544d-99*t38*t 20590 ; 4*t6*t72+1.50176768d-99*t12*t38*t6*t72-4.24505036390399 20591 < 94d-102*t10*t38*t6*t72-1.7777777777777776d-98*t4*t5*t72 20592 = -4.8592592592592593d-98*t12*t5*t72+7.508838399999999d-1 20593 > 00*t11*t5*t72+2.7471359999999995d-100*t10*t5*t72+3.2798 20594 ? 61752763875d-153*t4*t69*t7*t71-3.1837877729279995d-151* 20595 @ t4*t58*t6*t71-8.277848209612798d-151*t12*t58*t6*t71+8.1 20596 1 99654381909687d-154*t10*t58*t6*t71+6.86784d-150*t38*t4* 20597 2 t71+3.5712767999999995d-149*t12*t38*t71-2.7592827365375 20598 3 994d-151*t11*t38*t71-5.30631295488d-152*t10*t38*t71+1.3 20599 4 1194470110555d-202*t12*t6*t69*t70-6.367575545855999d-20 20600 5 1*t12*t58*t70+3.2798617527638746d-203*t11*t58*t70)*wght 20601 6 +1.5d+0*rhoa*t37*t62*wght+1.5d+0*t27*t62*wght+1.5d+0*rh 20602 7 oa*t41*t57*wght+1.5d+0*t13*t57*wght+3.0d+0*t37*t41*wght 20603 8 )+t1*t5*(2.57544d-52*t27*t62*wght+2.57544d-52*t13*t57*w 20604 9 ght+5.15088d-52*t37*t41*wght)+t38*t39*(2.65315647743999 20605 : 96d-103*t27*t41*wght+2.6531564774399996d-103*t13*t37*wg 20606 ; ht+1.030176d-51*t43)+t40*t5*(-4.2923999999999995d-52*t2 20607 < 7*t41*wght-4.2923999999999995d-52*t13*t37*wght+1.030176 20608 = d-51*t63)+t38*t60*(1.030176d-51*t64-1.1497011402239997d 20609 > -102*t13*t27*wght)+4.0998271909548434d-154*t13*t27*t58* 20610 ? t59*wght-2.6666666666666666d+0*t5*t61*t64-1.66666666666 20611 @ 66669d+0*t40*t43*t5+Amat3(iq,D3_RA_RA_RA) 20612 Cmat3(iq,D3_RA_RA_GAA) = Cmat3(iq,D3_RA_RA_GAA) 20613 Cmat3(iq,D3_RA_GAA_GAA) = Cmat3(iq,D3_RA_GAA_GAA) 20614 Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA) 20615 Mmat3(iq,D3_RA_RA_TA) = Mmat3(iq,D3_RA_RA_TA) 20616 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 20617 Mmat3(iq,D3_RA_GAA_TA) = Mmat3(iq,D3_RA_GAA_TA) 20618 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 20619 Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA) 20620 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 20621 Mmat3(iq,D3_RA_TA_TA) = Mmat3(iq,D3_RA_TA_TA) 20622 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 20623 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 20624 Mmat3(iq,D3_GAA_TA_TA) = Mmat3(iq,D3_GAA_TA_TA) 20625 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 20626 Mmat3(iq,D3_GAA_TB_TB) = Mmat3(iq,D3_GAA_TB_TB) 20627 Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA) 20628 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 20629 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 20630 Mmat3(iq,D3_TB_TB_TB) = Mmat3(iq,D3_TB_TB_TB) 20631 endif 20632 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 20633 if (taua.gt.tol_rho.and.taub.gt.tol_rho) then 20634 t1 = 1/rhob**6.666666666666666d-1 20635 t2 = rhob**5.0d-1 20636 t3 = 1/t2 20637 t4 = 1/rhob**3.333333333333333d-1 20638 t5 = 1/rhob**1.6666666666666666d-1 20639 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 20640 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 20641 t7 = 3.216395899738507d+1/t6+1.0d+0 20642 t8 = log(t7) 20643 t9 = 1.274696188700087d-1*t4+1.0d+0 20644 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 20645 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 20646 t11 = 1.6081979498692536d+1/t10+1.0d+0 20647 t12 = log(t11) 20648 t13 = 1.3256889990520176d-1*t4+1.0d+0 20649 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 20650 1 12*t13 20651 t15 = 1/rhob 20652 t16 = 1/taub 20653 t17 = 1.0d+0-1.25d-1*gammabb*t15*t16 20654 t18 = 1/rhob**2.6666666666666666d+0 20655 t19 = 1/rhob**1.6666666666666669d+0 20656 t20 = 2.0d+0*t19*taub 20657 t21 = 5.15088d-3*(t20+gammabb*t18-9.11559972d+0)+1.0d+0 20658 t22 = 1/t21 20659 t23 = param(10) 20660 t24 = gammabb**2 20661 t25 = 1/rhob**5.333333333333333d+0 20662 t26 = 1/t21**2 20663 t27 = param(11) 20664 t28 = t20-9.11559972d+0 20665 t29 = param(12) 20666 t30 = t28**2 20667 t31 = param(8) 20668 t32 = param(9) 20669 t33 = t22*t28*t32+gammabb*t18*t22*t31+t26*t29*t30+gammabb* 20670 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 20671 t34 = 1/rhob**3.6666666666666664d+0 20672 t35 = -3.3333333333333337d+0*t18*taub-2.6666666666666666d+ 20673 1 0*gammabb*t34 20674 t36 = 1/t21**3 20675 t37 = 1/rhob**6.333333333333333d+0 20676 t38 = -3.3333333333333337d+0*t18*t22*t32*taub-6.6666666666 20677 1 66667d+0*t18*t26*t28*t29*taub-3.3333333333333337d+0*gam 20678 2 mabb*t25*t26*t27*taub-5.333333333333333d+0*t23*t24*t26* 20679 3 t37-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammabb*t18 20680 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 20681 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammabb*t18*t26*t31*t35 20682 6 -2.6666666666666666d+0*gammabb*t22*t31*t34-2.6666666666 20683 7 666666d+0*gammabb*t26*t27*t28*t34 20684 t39 = 1/t11 20685 t40 = 1/t2**3 20686 t41 = 1/rhob**1.3333333333333333d+0 20687 t42 = 1/rhob**1.1666666666666667d+0 20688 t43 = -9.970917392951799d-1*t42-7.418564737168958d-1*t41-4 20689 1 .002143174996817d-1*t40-1.264669550498372d-1*t19 20690 t44 = 1/t10**2 20691 t45 = 1/t7 20692 t46 = -1.8533958105157808d+0*t42-1.2815820791490704d+0*t41 20693 1 -8.223668877838045d-1*t40-1.6039141941921276d-1*t19 20694 t47 = 1/t6**2 20695 t48 = 1.0d+0*t45*t46*t47*t9+1.3210398931339265d-3*t41*t8+1 20696 1 .1102230246251565d-16*t13*t39*t43*t44+3.050641144351426 20697 2 4d-19*t12*t41 20698 t49 = 1.0d+0*rhob*t17*t33*t48*wght+1.0d+0*rhob*t14*t17*t38 20699 1 *wght+1.0d+0*t14*t17*t33*wght 20700 t50 = 1/rhob**8 20701 t51 = -1.030176d-2*t23*t24*t36*t50-1.030176d-2*t18*t29*t30 20702 1 *t36-1.030176d-2*gammabb*t25*t27*t28*t36-5.15088d-3*t18 20703 2 *t26*t28*t32-5.15088d-3*gammabb*t25*t26*t31+t18*t22*t31 20704 3 +t18*t26*t27*t28+2*gammabb*t23*t25*t26 20705 t52 = 1/rhob**7 20706 t53 = 1/rhob**4.333333333333333d+0 20707 t54 = -2.060352d-2*gammabb*t27*t28*t36*t53-1.030176d-2*gam 20708 1 mabb*t26*t31*t53+2.0d+0*gammabb*t26*t27*t53-2.060352d-2 20709 2 *t23*t24*t36*t52-2.060352d-2*t19*t29*t30*t36-1.030176d- 20710 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 20711 4 *t29 20712 t55 = taub**2 20713 t56 = 1/t55 20714 t57 = t35**2 20715 t58 = 1/rhob**2 20716 t59 = 1.25d-1*gammabb*t33*t48*wght+1.25d-1*gammabb*t14*t38 20717 1 *wght 20718 t60 = 1/t21**4 20719 t61 = 1/rhob**4.666666666666667d+0 20720 t62 = 8.88888888888889d+0*t34*taub+9.777777777777779d+0*ga 20721 1 mmabb*t61 20722 t63 = 1/rhob**7.333333333333333d+0 20723 t64 = 2.6666666666666666d+1*gammabb*t26*t27*t37*taub+1.373 20724 1 568d-1*t18*t28*t29*t35*t36*taub+6.867840000000001d-2*ga 20725 2 mmabb*t25*t27*t35*t36*taub+3.4339200000000003d-2*t18*t2 20726 3 6*t32*t35*taub+8.88888888888889d+0*t22*t32*t34*taub+1.7 20727 4 777777777777778d+1*t26*t28*t29*t34*taub+3.3777777777777 20728 5 78d+1*t23*t24*t26*t63-1.030176d-2*t29*t30*t36*t62-1.030 20729 6 176d-2*gammabb*t18*t27*t28*t36*t62-1.030176d-2*t23*t24* 20730 7 t25*t36*t62-5.15088d-3*t26*t28*t32*t62-5.15088d-3*gamma 20731 8 bb*t18*t26*t31*t62+9.777777777777779d+0*gammabb*t22*t31 20732 9 *t61+9.777777777777779d+0*gammabb*t26*t27*t28*t61+1.591 20733 : 893886464d-4*t29*t30*t57*t60+1.591893886464d-4*gammabb* 20734 ; t18*t27*t28*t57*t60+1.591893886464d-4*t23*t24*t25*t57*t 20735 < 60+5.30631295488d-5*t28*t32*t36*t57+5.30631295488d-5*ga 20736 = mmabb*t18*t31*t36*t57+2.2222222222222224d+1*t25*t26*t29 20737 > *t55+1.0988544d-1*t23*t24*t35*t36*t37+5.494272d-2*gamma 20738 ? bb*t27*t28*t34*t35*t36+2.747136d-2*gammabb*t26*t31*t34* 20739 @ t35 20740 t65 = 1/t11**2 20741 t66 = t43**2 20742 t67 = 1/t10**4 20743 t68 = 1/t10**3 20744 t69 = 1/t2**5 20745 t70 = 1/rhob**2.3333333333333334d+0 20746 t71 = 1/rhob**2.1666666666666665d+0 20747 t72 = 1.1632736958443765d+0*t71+9.89141964955861d-1*t70+6. 20748 1 003214762495226d-1*t69+2.1077825841639536d-1*t18 20749 t73 = 1/t7**2 20750 t74 = t46**2 20751 t75 = 1/t6**4 20752 t76 = 1/t6**3 20753 t77 = 2.1622951122684114d+0*t71+1.7087761055320938d+0*t70+ 20754 1 1.2335503316757068d+0*t69+2.673190323653546d-1*t18 20755 t78 = 1.0d+0*t45*t47*t77*t9-2.0d+0*t45*t74*t76*t9+3.216395 20756 1 899738507d+1*t73*t74*t75*t9-1.7613865241785684d-3*t70*t 20757 2 8+1.1102230246251565d-16*t13*t39*t44*t72-4.067521525801 20758 3 9015d-19*t12*t70-2.220446049250313d-16*t13*t39*t66*t68+ 20759 4 1.7854583920998188d-15*t13*t65*t66*t67-8.49797459133391 20760 5 3d-2*t41*t45*t46*t47-9.812069668265515d-18*t39*t41*t43* 20761 6 t44 20762 t79 = 1.0d+0*rhob*t17*t33*t78*wght+1.0d+0*rhob*t14*t17*t64 20763 1 *wght+1.25d-1*gammabb*t14*t16*t33*t58*wght+2.0d+0*rhob* 20764 2 t17*t38*t48*wght+2.0d+0*t17*t33*t48*wght+1.25d-1*gammab 20765 3 b*t15*t16*t33*t48*wght+2.0d+0*t14*t17*t38*wght+1.25d-1* 20766 4 gammabb*t14*t15*t16*t38*wght 20767 t80 = -5.15088d-3*rhob*t14*t17*t33*t62*wght-5.15088d-3*rho 20768 1 b*t17*t33*t35*t48*wght-5.15088d-3*rhob*t14*t17*t35*t38* 20769 2 wght-5.15088d-3*t14*t17*t33*t35*wght-5.15088d-3*t35*t49 20770 t81 = 1.25d-1*gammabb*t14*t51*wght+1.25d-1*t14*t33*wght 20771 t82 = 1/rhob**9 20772 t83 = 3.4339200000000003d-2*gammabb*t27*t36*t50*taub+6.867 20773 1 840000000001d-2*t25*t28*t29*t36*taub+1.7169600000000002 20774 2 d-2*t25*t26*t32*taub-3.3333333333333337d+0*t25*t26*t27* 20775 3 taub+8.241408d-2*t23*t24*t36*t82+1.591893886464d-4*t23* 20776 4 t24*t35*t50*t60+1.591893886464d-4*t18*t29*t30*t35*t60+1 20777 5 .591893886464d-4*gammabb*t25*t27*t28*t35*t60+5.494272d- 20778 6 2*gammabb*t27*t28*t36*t37+2.747136d-2*gammabb*t26*t31*t 20779 7 37-1.0666666666666666d+1*gammabb*t23*t26*t37+5.30631295 20780 8 488d-5*t18*t28*t32*t35*t36+5.30631295488d-5*gammabb*t25 20781 9 *t31*t35*t36-1.030176d-2*t18*t27*t28*t35*t36-2.060352d- 20782 : 2*gammabb*t23*t25*t35*t36+2.747136d-2*t29*t30*t34*t36-5 20783 ; .15088d-3*t18*t26*t31*t35+1.373568d-2*t26*t28*t32*t34-2 20784 < .6666666666666666d+0*t22*t31*t34-2.6666666666666666d+0* 20785 = t26*t27*t28*t34 20786 t84 = 1.0d+0*rhob*t14*t17*t83*wght+1.0d+0*rhob*t17*t48*t51 20787 1 *wght+1.0d+0*t14*t17*t51*wght-1.25d-1*t16*t33*t48*wght- 20788 2 1.25d-1*t14*t16*t38*wght-1.25d-1*t14*t15*t16*t33*wght 20789 t85 = 1.373568d-2*t14*t17*t33*wght-5.15088d-3*t49 20790 t86 = 1/rhob**1.0666666666666666d+1 20791 t87 = 1.591893886464d-4*t23*t24*t60*t86+1.591893886464d-4* 20792 1 gammabb*t27*t28*t50*t60+1.591893886464d-4*t25*t29*t30*t 20793 2 60+5.30631295488d-5*gammabb*t31*t36*t50-4.120704d-2*gam 20794 3 mabb*t23*t36*t50+5.30631295488d-5*t25*t28*t32*t36-2.060 20795 4 352d-2*t25*t27*t28*t36-1.030176d-2*t25*t26*t31+2*t23*t2 20796 5 5*t26 20797 t88 = 1.373568d-1*t28*t29*t36*t53*taub+3.4339200000000003d 20798 1 -2*t26*t32*t53*taub-1.3333333333333333d+1*t26*t29*t53*t 20799 2 aub+6.867840000000001d-2*gammabb*t27*t36*t52*taub+3.183 20800 3 787772928d-4*gammabb*t27*t28*t35*t53*t60+3.183787772928 20801 4 d-4*t23*t24*t35*t52*t60+3.183787772928d-4*t19*t29*t30*t 20802 5 35*t60+1.061262590976d-4*gammabb*t31*t35*t36*t53-2.0603 20803 6 52d-2*gammabb*t27*t35*t36*t53+1.4422464000000002d-1*t23 20804 7 *t24*t36*t50+1.061262590976d-4*t19*t28*t32*t35*t36-4.12 20805 8 0704d-2*t19*t28*t29*t35*t36+3.4339200000000003d-2*t18*t 20806 9 29*t30*t36+8.928192d-2*gammabb*t25*t27*t28*t36-1.030176 20807 : d-2*t19*t26*t32*t35+1.7169600000000002d-2*t18*t26*t28*t 20808 ; 32-3.3333333333333337d+0*t18*t22*t32+4.464096d-2*gammab 20809 < b*t25*t26*t31-6.666666666666667d+0*t18*t26*t28*t29-8.66 20810 = 6666666666666d+0*gammabb*t25*t26*t27 20811 t89 = 1.0d+0*rhob*t14*t17*t88*wght+1.25d-1*gammabb*t33*t48 20812 1 *t56*wght+1.25d-1*gammabb*t14*t38*t56*wght+1.25d-1*gamm 20813 2 abb*t14*t15*t33*t56*wght+1.0d+0*rhob*t17*t48*t54*wght+1 20814 3 .0d+0*t14*t17*t54*wght 20815 t90 = 1.7169600000000002d-2*t14*t17*t33*wght-1.030176d-2*t 20816 1 49 20817 t91 = 1/rhob**9.666666666666666d+0 20818 t92 = 3.183787772928d-4*t23*t24*t60*t91+3.183787772928d-4* 20819 1 t29*t30*t53*t60+3.183787772928d-4*gammabb*t27*t28*t52*t 20820 2 60+1.061262590976d-4*t28*t32*t36*t53-4.120704d-2*t28*t2 20821 3 9*t36*t53-2.060352d-2*t27*t28*t36*t53-1.030176d-2*t26*t 20822 4 32*t53-1.030176d-2*t26*t31*t53+2.0d+0*t26*t27*t53+1.061 20823 5 262590976d-4*gammabb*t31*t36*t52-2.060352d-2*gammabb*t2 20824 6 7*t36*t52-4.120704d-2*gammabb*t23*t36*t52 20825 t93 = 1/rhob**3.3333333333333337d+0 20826 t94 = 1/rhob**8.666666666666666d+0 20827 t95 = 1/rhob**6 20828 t96 = 6.367575545856d-4*gammabb*t27*t28*t60*t95+2.12252518 20829 1 1952d-4*gammabb*t31*t36*t95-8.241408d-2*gammabb*t27*t36 20830 2 *t95+6.367575545856d-4*t23*t24*t60*t94+6.367575545856d- 20831 3 4*t29*t30*t60*t93+2.122525181952d-4*t28*t32*t36*t93-1.6 20832 4 482816d-1*t28*t29*t36*t93-4.120704d-2*t26*t32*t93+8.0d+ 20833 5 0*t26*t29*t93 20834 t97 = 1/taub**3 20835 t98 = t35**3 20836 t99 = 1/rhob**3 20837 t100 = 1/t21**5 20838 t101 = 1/rhob**5.666666666666667d+0 20839 t102 = -3.2592592592592595d+1*t61*taub-4.5629629629629626d 20840 1 +1*gammabb*t101 20841 t103 = t43**3 20842 t104 = 1/t2**7 20843 t105 = 1/rhob**3.1666666666666665d+0 20844 t106 = t46**3 20845 t107 = -1.25d-1*gammabb*t14*t51*wght-1.25d-1*t14*t33*wght 20846 t108 = 1.25d-1*gammabb*t14*t87*wght+2.5d-1*t14*t51*wght 20847 t109 = -1.030176d-2*t84 20848 t110 = -1.030176d-2*t81 20849 t111 = -1.28772d-3*gammabb*t14*t51*wght 20850 t112 = -1.28772d-3*t14*t33*wght 20851 t113 = 1/rhob**5 20852 t114 = 1/rhob**7.666666666666667d+0 20853 fnc(iq) = 1.0d+0*rhob*t14*t17*t22*t33*wght+fnc(iq) 20854 Amat(iq,D1_RB) = -5.15088d-3*rhob*t14*t17*t26*t33*t35*wght 20855 1 +1.25d-1*gammabb*t14*t15*t16*t22*t33*wght+t22*t49+Amat( 20856 2 iq,D1_RB) 20857 Cmat(iq,D1_GBB) = 1.0d+0*rhob*t14*t17*t22*t51*wght-5.15088 20858 1 d-3*t14*t17*t19*t26*t33*wght-1.25d-1*t14*t16*t22*t33*wg 20859 2 ht+Cmat(iq,D1_GBB) 20860 Mmat(iq,D1_TB) = 1.25d-1*gammabb*t14*t22*t33*t56*wght+1.0d 20861 1 +0*rhob*t14*t17*t22*t54*wght-1.030176d-2*t1*t14*t17*t26 20862 2 *t33*wght+Mmat(iq,D1_TB) 20863 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 20864 Amat2(iq,D2_RB_RB) = -1.25d-1*gammabb*t14*t16*t22*t33*t58* 20865 1 wght+5.30631295488d-5*rhob*t14*t17*t33*t36*t57*wght-1.2 20866 2 8772d-3*gammabb*t14*t15*t16*t26*t33*t35*wght+t26*t80+t2 20867 3 2*t79+t15*t16*t22*t59+Amat2(iq,D2_RB_RB) 20868 Cmat2(iq,D2_RB_GBB) = -5.15088d-3*rhob*t14*t17*t26*t35*t51 20869 1 *wght+5.30631295488d-5*t14*t17*t19*t33*t35*t36*wght+6.4 20870 2 386d-4*t14*t16*t26*t33*t35*wght-6.4386d-4*gammabb*t14*t 20871 3 16*t26*t33*t34*wght+t18*t26*t85+t22*t84+t15*t16*t22*t81 20872 4 +Cmat2(iq,D2_RB_GBB) 20873 Cmat2(iq,D2_GBB_GBB) = 1.0d+0*rhob*t14*t17*t22*t87*wght+5. 20874 1 30631295488d-5*t14*t17*t33*t36*t53*wght-1.030176d-2*t14 20875 2 *t17*t19*t26*t51*wght-2.5d-1*t14*t16*t22*t51*wght+1.287 20876 3 72d-3*t14*t16*t18*t26*t33*wght+Cmat2(iq,D2_GBB_GBB) 20877 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 20878 Mmat2(iq,D2_RB_TB) = -6.4386d-4*gammabb*t14*t26*t33*t35*t5 20879 1 6*wght-1.25d-1*gammabb*t14*t15*t22*t33*t56*wght-5.15088 20880 2 d-3*rhob*t14*t17*t26*t35*t54*wght+1.25d-1*gammabb*t14*t 20881 3 15*t16*t22*t54*wght+1.061262590976d-4*t1*t14*t17*t33*t3 20882 4 5*t36*wght-1.28772d-3*gammabb*t14*t16*t18*t26*t33*wght+ 20883 5 t19*t26*t90+t22*t89+Mmat2(iq,D2_RB_TB) 20884 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 20885 Mmat2(iq,D2_GBB_TB) = 1.061262590976d-4*t14*t17*t33*t36*t9 20886 1 3*wght+1.0d+0*rhob*t14*t17*t22*t92*wght-6.4386d-4*gamma 20887 2 bb*t14*t18*t26*t33*t56*wght-5.15088d-3*t14*t17*t19*t26* 20888 3 t54*wght-1.25d-1*t14*t16*t22*t54*wght-1.030176d-2*t1*t1 20889 4 4*t17*t26*t51*wght+1.28772d-3*t14*t16*t19*t26*t33*wght+ 20890 5 t22*t56*t81+Mmat2(iq,D2_GBB_TB) 20891 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 20892 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 20893 Mmat2(iq,D2_TB_TB) = -2.5d-1*gammabb*t14*t22*t33*t97*wght+ 20894 1 1.0d+0*rhob*t14*t17*t22*t96*wght+2.122525181952d-4*t14* 20895 2 t17*t33*t36*t70*wght+2.5d-1*gammabb*t14*t22*t54*t56*wgh 20896 3 t-2.57544d-3*gammabb*t14*t19*t26*t33*t56*wght-2.060352d 20897 4 -2*t1*t14*t17*t26*t54*wght+Mmat2(iq,D2_TB_TB) 20898 Amat3(iq,D3_RB_RB_RB) = t22*(1.0d+0*rhob*t14*t17*(-2.01481 20899 1 48148148146d+2*gammabb*t26*t27*t63*taub+2.060352d-1*t18 20900 2 *t28*t29*t36*t62*taub+1.030176d-1*gammabb*t25*t27*t36*t 20901 3 62*taub+5.15088d-2*t18*t26*t32*t62*taub-3.2592592592592 20902 4 595d+1*t22*t32*t61*taub-6.518518518518519d+1*t26*t28*t2 20903 5 9*t61*taub-3.183787772928d-3*t18*t28*t29*t57*t60*taub-1 20904 6 .591893886464d-3*gammabb*t25*t27*t57*t60*taub-5.3063129 20905 7 5488d-4*t18*t32*t36*t57*taub-8.241408d-1*gammabb*t27*t3 20906 8 5*t36*t37*taub-5.494272d-1*t28*t29*t34*t35*t36*taub-1.3 20907 9 73568d-1*t26*t32*t34*t35*taub-8.199654381909689d-7*t28* 20908 : t32*t60*t98-8.199654381909689d-7*gammabb*t18*t31*t60*t9 20909 ; 8-3.2798617527638757d-6*t100*t29*t30*t98-3.279861752763 20910 < 8757d-6*gammabb*t100*t18*t27*t28*t98-3.2798617527638757 20911 = d-6*t100*t23*t24*t25*t98-1.0439116799999999d+0*t23*t24* 20912 > t35*t36*t63+4.7756816593920004d-4*t29*t30*t35*t60*t62+4 20913 ? .7756816593920004d-4*gammabb*t18*t27*t28*t35*t60*t62+4. 20914 @ 7756816593920004d-4*t23*t24*t25*t35*t60*t62+1.6482816d- 20915 1 1*t23*t24*t36*t37*t62+1.591893886464d-4*t28*t32*t35*t36 20916 2 *t62+1.591893886464d-4*gammabb*t18*t31*t35*t36*t62+8.24 20917 3 1408d-2*gammabb*t27*t28*t34*t36*t62+4.120704d-2*gammabb 20918 4 *t26*t31*t34*t62-3.0218496d-1*gammabb*t27*t28*t35*t36*t 20919 5 61-1.5109248d-1*gammabb*t26*t31*t35*t61-2.5470302183424 20920 6 004d-3*t23*t24*t37*t57*t60-1.2735151091712002d-3*gammab 20921 7 b*t27*t28*t34*t57*t60-4.245050363904d-4*gammabb*t31*t34 20922 8 *t36*t57-1.777777777777778d+2*t26*t29*t37*t55-6.8678400 20923 9 00000001d-1*t25*t29*t35*t36*t55-1.030176d-2*t102*t29*t3 20924 : 0*t36-1.030176d-2*gammabb*t102*t18*t27*t28*t36-1.030176 20925 ; d-2*t102*t23*t24*t25*t36-5.15088d-3*t102*t26*t28*t32-5. 20926 < 15088d-3*gammabb*t102*t18*t26*t31-4.5629629629629626d+1 20927 = *gammabb*t101*t22*t31-4.5629629629629626d+1*gammabb*t10 20928 > 1*t26*t27*t28-2.477037037037037d+2*t23*t24*t26/rhob**8. 20929 ? 333333333333334d+0)*wght-2.5d-1*gammabb*t14*t16*t33*t99 20930 @ *wght+1.0d+0*rhob*t17*t33*(4.1099018897499934d-3*t8*t93 20931 1 +9.490883560204437d-19*t12*t93+1.1102230246251565d-16*t 20932 2 13*t39*t44*(-2.3079979182303428d+0*t93-5.62075355777054 20933 3 3d-1*t34-2.520426340996149d+0*t105-1.5008036906238065d+ 20934 4 0*t104)+1.0d+0*t45*t47*t9*(-3.9871442462415524d+0*t93-7 20935 5 .128507529742789d-1*t34-4.684972743248224d+0*t105-3.083 20936 6 875829189267d+0*t104)-6.0d+0*t45*t46*t76*t77*t9+9.64918 20937 7 7699215522d+1*t46*t73*t75*t77*t9+6.0d+0*t106*t45*t75*t9 20938 8 -1.9298375398431045d+2*t106*t73*t9/t6**5+2.069040516770 20939 9 9364d+3*t106*t9/(t6**6*t7**3)-1.274696188700087d-1*t41* 20940 : t45*t47*t77+2.549392377400174d-1*t41*t45*t74*t76-4.0999 20941 ; 275947472624d+0*t41*t73*t74*t75-6.661338147750939d-16*t 20942 < 13*t39*t43*t68*t72+5.356375176299456d-15*t13*t43*t65*t6 20943 = 7*t72-1.4718104502398274d-17*t39*t41*t44*t72+1.69959491 20944 > 82667827d-1*t45*t46*t47*t70+1.962413933653103d-17*t39*t 20945 ? 43*t44*t70+2.943620900479655d-17*t39*t41*t66*t68-2.3669 20946 @ 625486718335d-16*t41*t65*t66*t67+6.661338147750939d-16* 20947 1 t103*t13*t39*t67-1.0712750352598913d-14*t103*t13*t65/t1 20948 2 0**5+5.742741051503565d-14*t103*t13/(t10**6*t11**3))*wg 20949 3 ht+3.0d+0*rhob*t17*t38*t78*wght+3.0d+0*t17*t33*t78*wght 20950 4 +2.5d-1*gammabb*t15*t16*t33*t78*wght+3.0d+0*rhob*t17*t4 20951 5 8*t64*wght+3.0d+0*t14*t17*t64*wght+2.5d-1*gammabb*t14*t 20952 6 15*t16*t64*wght+2.5d-1*gammabb*t16*t33*t48*t58*wght+2.5 20953 7 d-1*gammabb*t14*t16*t38*t58*wght+6.0d+0*t17*t38*t48*wgh 20954 8 t+5.0d-1*gammabb*t15*t16*t38*t48*wght)+t26*(-5.15088d-3 20955 9 *rhob*t17*t33*t35*t78*wght-5.15088d-3*rhob*t14*t17*t35* 20956 : t64*wght-1.030176d-2*rhob*t17*t33*t48*t62*wght-1.030176 20957 ; d-2*rhob*t14*t17*t38*t62*wght-1.030176d-2*t14*t17*t33*t 20958 < 62*wght-6.4386d-4*gammabb*t14*t15*t16*t33*t62*wght-6.43 20959 = 86d-4*gammabb*t14*t16*t33*t35*t58*wght-1.030176d-2*rhob 20960 > *t17*t35*t38*t48*wght-1.030176d-2*t17*t33*t35*t48*wght- 20961 ? 6.4386d-4*gammabb*t15*t16*t33*t35*t48*wght-1.030176d-2* 20962 @ t14*t17*t35*t38*wght-6.4386d-4*gammabb*t14*t15*t16*t35* 20963 1 t38*wght-5.15088d-3*rhob*t102*t14*t17*t33*wght-1.030176 20964 2 d-2*t35*t79-5.15088d-3*t49*t62)+t15*t16*t22*(1.25d-1*ga 20965 3 mmabb*t33*t78*wght+1.25d-1*gammabb*t14*t64*wght+2.5d-1* 20966 4 gammabb*t38*t48*wght)+t36*(1.061262590976d-4*rhob*t14*t 20967 5 17*t33*t35*t62*wght+5.30631295488d-5*rhob*t17*t33*t48*t 20968 6 57*wght+5.30631295488d-5*rhob*t14*t17*t38*t57*wght+5.30 20969 7 631295488d-5*t14*t17*t33*t57*wght-1.030176d-2*t35*t80)+ 20970 8 t15*t16*t26*(-1.28772d-3*gammabb*t14*t33*t62*wght-1.287 20971 9 72d-3*gammabb*t33*t35*t48*wght-1.28772d-3*gammabb*t14*t 20972 : 35*t38*wght-5.15088d-3*t35*t59)+t16*t22*t58*(-2.5d-1*ga 20973 ; mmabb*t33*t48*wght-2.5d-1*gammabb*t14*t38*wght)+2.5d-1* 20974 < gammabb*t14*t16*t22*t33*t99*wght-8.199654381909689d-7*r 20975 = hob*t14*t17*t33*t60*t98*wght+1.93158d-3*gammabb*t14*t16 20976 > *t26*t33*t35*t58*wght+1.9898673580800003d-5*gammabb*t14 20977 ? *t15*t16*t33*t36*t57*wght+Amat3(iq,D3_RB_RB_RB) 20978 Cmat3(iq,D3_RB_RB_GBB) = t22*(1.0d+0*rhob*t14*t17*(-4.5785 20979 1 6d-1*gammabb*t27*t36*t82*taub-1.061262590976d-3*gammabb 20980 2 *t27*t35*t50*t60*taub-2.122525181952d-3*t25*t28*t29*t35 20981 3 *t60*taub-5.494272d-1*t28*t29*t36*t37*taub-1.373568d-1* 20982 4 t26*t32*t37*taub+2.6666666666666666d+1*t26*t27*t37*taub 20983 5 -3.53754196992d-4*t25*t32*t35*t36*taub+6.86784000000000 20984 6 1d-2*t25*t27*t35*t36*taub-2.5470302183424004d-3*t23*t24 20985 7 *t35*t60*t82-3.4797056000000004d-1*gammabb*t27*t28*t36* 20986 8 t63-1.7398528000000002d-1*gammabb*t26*t31*t63+6.7555555 20987 9 55555556d+1*gammabb*t23*t26*t63+1.591893886464d-4*t23*t 20988 : 24*t50*t60*t62+1.591893886464d-4*t18*t29*t30*t60*t62+1. 20989 ; 591893886464d-4*gammabb*t25*t27*t28*t60*t62+5.306312954 20990 < 88d-5*t18*t28*t32*t36*t62+5.30631295488d-5*gammabb*t25* 20991 = t31*t36*t62-1.030176d-2*t18*t27*t28*t36*t62-2.060352d-2 20992 > *gammabb*t23*t25*t36*t62-5.15088d-3*t18*t26*t31*t62-1.0 20993 ? 072832000000001d-1*t29*t30*t36*t61-5.036416d-2*t26*t28* 20994 @ t32*t61+9.777777777777779d+0*t22*t31*t61+9.777777777777 20995 1 779d+0*t26*t27*t28*t61-8.199654381909689d-7*t18*t28*t32 20996 2 *t57*t60-8.199654381909689d-7*gammabb*t25*t31*t57*t60+1 20997 3 .591893886464d-4*t18*t27*t28*t57*t60+3.183787772928d-4* 20998 4 gammabb*t23*t25*t57*t60-1.6980201455616d-3*gammabb*t27* 20999 5 t28*t35*t37*t60-8.490100727808d-4*t29*t30*t34*t35*t60-3 21000 6 .2798617527638757d-6*t100*t23*t24*t50*t57+5.30631295488 21001 7 d-5*t18*t31*t36*t57-3.2798617527638757d-6*t100*t18*t29* 21002 8 t30*t57-3.2798617527638757d-6*gammabb*t100*t25*t27*t28* 21003 9 t57-2.2892800000000002d-1*t29*t36*t50*t55-5.66006715187 21004 : 2d-4*gammabb*t31*t35*t36*t37+2.1977088d-1*gammabb*t23*t 21005 ; 35*t36*t37-2.830033575936d-4*t28*t32*t34*t35*t36+5.4942 21006 < 72d-2*t27*t28*t34*t35*t36-7.4172672d-1*t23*t24*t36/rhob 21007 = **10+2.747136d-2*t26*t31*t34*t35)*wght+2.0d+0*rhob*t17* 21008 > t48*t83*wght+2.0d+0*t14*t17*t83*wght+1.25d-1*gammabb*t1 21009 ? 4*t15*t16*t83*wght+1.0d+0*rhob*t17*t51*t78*wght-1.25d-1 21010 @ *t16*t33*t78*wght-1.25d-1*t14*t16*t64*wght+1.25d-1*gamm 21011 1 abb*t14*t16*t51*t58*wght+1.25d-1*t14*t16*t33*t58*wght+2 21012 2 .0d+0*t17*t48*t51*wght+1.25d-1*gammabb*t15*t16*t48*t51* 21013 3 wght-2.5d-1*t16*t38*t48*wght-1.25d-1*t15*t16*t33*t48*wg 21014 4 ht-1.25d-1*t14*t15*t16*t38*wght)+t26*(-5.15088d-3*rhob* 21015 5 t14*t17*t35*t83*wght-5.15088d-3*rhob*t14*t17*t51*t62*wg 21016 6 ht+6.4386d-4*t14*t16*t33*t62*wght-5.15088d-3*rhob*t17*t 21017 7 35*t48*t51*wght-5.15088d-3*t14*t17*t35*t51*wght+6.4386d 21018 8 -4*t16*t33*t35*t48*wght+1.373568d-2*t17*t18*t33*t48*wgh 21019 9 t+6.4386d-4*t14*t16*t35*t38*wght+1.373568d-2*t14*t17*t1 21020 : 8*t38*wght+6.4386d-4*t14*t15*t16*t33*t35*wght-3.6628480 21021 ; 00000001d-2*t14*t17*t33*t34*wght-5.15088d-3*t35*t84+1.3 21022 < 73568d-2*t34*t49)+t15*t16*t22*(1.25d-1*gammabb*t14*t83* 21023 = wght+1.25d-1*gammabb*t48*t51*wght+1.25d-1*t33*t48*wght+ 21024 > 1.25d-1*t14*t38*wght)+t15*t16*t26*(-1.28772d-3*gammabb* 21025 ? t14*t35*t51*wght-1.28772d-3*t14*t33*t35*wght)+t18*t36*( 21026 @ -2.830033575936d-4*t14*t17*t33*t35*wght-1.030176d-2*t80 21027 1 )+4.07778d-3*gammabb*t14*t16*t26*t33*t61*wght-8.1996543 21028 2 81909689d-7*t14*t17*t19*t33*t57*t60*wght+5.30631295488d 21029 3 -5*rhob*t14*t17*t36*t51*t57*wght-6.6328911936d-6*t14*t1 21030 4 6*t33*t36*t57*wght+1.32657823872d-5*gammabb*t14*t16*t33 21031 5 *t34*t35*t36*wght-5.15088d-3*t18*t26*t79-5.15088d-3*t16 21032 6 *t26*t34*t59+t107*t16*t22*t58+Cmat3(iq,D3_RB_RB_GBB) 21033 Cmat3(iq,D3_RB_GBB_GBB) = t22*(1.0d+0*rhob*t14*t17*(-5.306 21034 1 31295488d-4*gammabb*t27*t60*t86*taub-1.061262590976d-3* 21035 2 t28*t29*t50*t60*taub-1.76877098496d-4*t32*t36*t50*taub+ 21036 3 6.867840000000001d-2*t27*t36*t50*taub-3.279861752763875 21037 4 7d-6*t100*t23*t24*t35*t86-1.2735151091712002d-3*gammabb 21038 5 *t27*t28*t60*t82-4.245050363904d-4*gammabb*t31*t36*t82+ 21039 6 3.2965632d-1*gammabb*t23*t36*t82-8.199654381909689d-7*g 21040 7 ammabb*t31*t35*t50*t60+6.367575545856d-4*gammabb*t23*t3 21041 8 5*t50*t60-8.490100727808d-4*t29*t30*t37*t60-8.199654381 21042 9 909689d-7*t25*t28*t32*t35*t60+3.183787772928d-4*t25*t27 21043 : *t28*t35*t60-1.6980201455616d-3*t23*t24*t60/rhob**1.166 21044 ; 6666666666665d+1-3.2798617527638757d-6*gammabb*t100*t27 21045 < *t28*t35*t50-2.830033575936d-4*t28*t32*t36*t37+1.098854 21046 = 4d-1*t27*t28*t36*t37+5.494272d-2*t26*t31*t37-1.06666666 21047 > 66666666d+1*t23*t26*t37+1.061262590976d-4*t25*t31*t35*t 21048 ? 36-2.060352d-2*t23*t25*t35*t36-3.2798617527638757d-6*t1 21049 @ 00*t25*t29*t30*t35)*wght+1.0d+0*rhob*t17*t48*t87*wght+1 21050 1 .0d+0*t14*t17*t87*wght-2.5d-1*t14*t16*t83*wght-2.5d-1*t 21051 2 16*t48*t51*wght-2.5d-1*t14*t15*t16*t51*wght)+t18*t26*(2 21052 3 .747136d-2*t14*t17*t51*wght-1.7169600000000002d-3*t14*t 21053 4 15*t16*t33*wght+t109)+t16*t26*t34*(-6.4386d-4*gammabb*t 21054 5 14*t51*wght-2.3608200000000001d-3*t14*t33*wght-5.15088d 21055 6 -3*t81)+t25*t36*(-1.415016787968d-4*t14*t17*t33*wght-1. 21056 7 030176d-2*t85)-5.15088d-3*rhob*t14*t17*t26*t35*t87*wght 21057 8 -8.199654381909689d-7*t14*t17*t33*t35*t53*t60*wght+1.06 21058 9 1262590976d-4*t14*t17*t19*t35*t36*t51*wght+1.28772d-3*t 21059 : 14*t16*t26*t35*t51*wght+6.6328911936d-6*gammabb*t14*t16 21060 ; *t33*t36*t37*wght-1.32657823872d-5*t14*t16*t18*t33*t35* 21061 < t36*wght+t108*t15*t16*t22+Cmat3(iq,D3_RB_GBB_GBB) 21062 Cmat3(iq,D3_GBB_GBB_GBB) = -1.545264d-2*t14*t17*t19*t26*t8 21063 1 7*wght-3.75d-1*t14*t16*t22*t87*wght+1.0d+0*rhob*t14*t17 21064 2 *t22*(-8.199654381909689d-7*gammabb*t31*t60*t86+9.55136 21065 3 3318784001d-4*gammabb*t23*t60*t86-3.2798617527638757d-6 21066 4 *gammabb*t100*t27*t28*t86-8.199654381909689d-7*t28*t32* 21067 5 t50*t60+4.7756816593920004d-4*t27*t28*t50*t60+1.5918938 21068 6 86464d-4*t31*t36*t50-6.181056d-2*t23*t36*t50-3.27986175 21069 7 27638757d-6*t100*t29*t30*t50-3.2798617527638757d-6*t100 21070 8 *t23*t24/rhob**1.3333333333333333d+1)*wght-8.1996543819 21071 9 09689d-7*t14*t17*t33*t52*t60*wght+1.591893886464d-4*t14 21072 : *t17*t36*t51*t53*wght+3.86316d-3*t14*t16*t18*t26*t51*wg 21073 ; ht-1.9898673580800003d-5*t14*t16*t25*t33*t36*wght+Cmat3 21074 < (iq,D3_GBB_GBB_GBB) 21075 Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA) 21076 Mmat3(iq,D3_RB_RB_TB) = t22*(1.0d+0*rhob*t14*t17*(-4.24505 21077 1 0363904d-3*t28*t29*t35*t53*t60*taub-2.122525181952d-3*g 21078 2 ammabb*t27*t35*t52*t60*taub-7.07508393984d-4*t32*t35*t3 21079 3 6*t53*taub+2.747136d-1*t29*t35*t36*t53*taub-7.783552d-1 21080 4 *gammabb*t27*t36*t50*taub-8.241408000000001d-1*t25*t28* 21081 5 t29*t36*taub-2.0603520000000003d-1*t25*t26*t32*taub+8.0 21082 6 d+1*t25*t26*t29*taub-1.1537971200000001d+0*t23*t24*t36* 21083 7 t82+3.183787772928d-4*gammabb*t27*t28*t53*t60*t62+3.183 21084 8 787772928d-4*t23*t24*t52*t60*t62+3.183787772928d-4*t19* 21085 9 t29*t30*t60*t62+1.061262590976d-4*gammabb*t31*t36*t53*t 21086 : 62-2.060352d-2*gammabb*t27*t36*t53*t62+1.061262590976d- 21087 ; 4*t19*t28*t32*t36*t62-4.120704d-2*t19*t28*t29*t36*t62-1 21088 < .030176d-2*t19*t26*t32*t62-1.6399308763819376d-6*gammab 21089 = b*t31*t53*t57*t60+3.183787772928d-4*gammabb*t27*t53*t57 21090 > *t60-1.6399308763819376d-6*t19*t28*t32*t57*t60+6.367575 21091 ? 545856d-4*t19*t28*t29*t57*t60-4.4573028820992006d-3*t23 21092 @ *t24*t35*t50*t60-1.0612625909760003d-3*t18*t29*t30*t35* 21093 1 t60-2.7592827365376d-3*gammabb*t25*t27*t28*t35*t60-6.55 21094 2 9723505527751d-6*gammabb*t100*t27*t28*t53*t57-6.5597235 21095 3 05527751d-6*t100*t23*t24*t52*t57+1.061262590976d-4*t19* 21096 4 t32*t36*t57-6.559723505527751d-6*t100*t19*t29*t30*t57-4 21097 5 .5785600000000004d-1*t29*t36*t52*t55-4.7617024d-1*gamma 21098 6 bb*t27*t28*t36*t37-2.3808512d-1*gammabb*t26*t31*t37+4.6 21099 7 22222222222223d+1*gammabb*t26*t27*t37-3.537541969920000 21100 8 6d-4*t18*t28*t32*t35*t36-9.197609121792001d-4*gammabb*t 21101 9 25*t31*t35*t36+1.373568d-1*t18*t28*t29*t35*t36+1.785638 21102 : 4d-1*gammabb*t25*t27*t35*t36-9.157120000000001d-2*t29*t 21103 ; 30*t34*t36+3.4339200000000003d-2*t18*t26*t32*t35-4.5785 21104 < 600000000004d-2*t26*t28*t32*t34+8.88888888888889d+0*t22 21105 = *t32*t34+1.7777777777777778d+1*t26*t28*t29*t34)*wght+2. 21106 > 0d+0*rhob*t17*t48*t88*wght+2.0d+0*t14*t17*t88*wght+1.25 21107 ? d-1*gammabb*t14*t15*t16*t88*wght+1.25d-1*gammabb*t33*t5 21108 @ 6*t78*wght+1.0d+0*rhob*t17*t54*t78*wght+1.25d-1*gammabb 21109 1 *t14*t56*t64*wght-1.25d-1*gammabb*t14*t33*t56*t58*wght+ 21110 2 1.25d-1*gammabb*t14*t16*t54*t58*wght+2.5d-1*gammabb*t38 21111 3 *t48*t56*wght+1.25d-1*gammabb*t15*t33*t48*t56*wght+1.25 21112 4 d-1*gammabb*t14*t15*t38*t56*wght+2.0d+0*t17*t48*t54*wgh 21113 5 t+1.25d-1*gammabb*t15*t16*t48*t54*wght)+t26*(-5.15088d- 21114 6 3*rhob*t14*t17*t35*t88*wght-6.4386d-4*gammabb*t14*t33*t 21115 7 56*t62*wght-5.15088d-3*rhob*t14*t17*t54*t62*wght-6.4386 21116 8 d-4*gammabb*t33*t35*t48*t56*wght-6.4386d-4*gammabb*t14* 21117 9 t35*t38*t56*wght-6.4386d-4*gammabb*t14*t15*t33*t35*t56* 21118 : wght-5.15088d-3*rhob*t17*t35*t48*t54*wght-5.15088d-3*t1 21119 ; 4*t17*t35*t54*wght+1.7169600000000002d-2*t17*t19*t33*t4 21120 < 8*wght+1.7169600000000002d-2*t14*t17*t19*t38*wght-2.861 21121 = 6d-2*t14*t17*t18*t33*wght-5.15088d-3*t35*t89+1.71696000 21122 > 00000002d-2*t18*t49)+t15*t16*t22*(1.25d-1*gammabb*t14*t 21123 ? 88*wght+1.25d-1*gammabb*t48*t54*wght)+t15*t22*t56*(-1.2 21124 @ 5d-1*gammabb*t33*t48*wght-1.25d-1*gammabb*t14*t38*wght) 21125 1 +t19*t36*(-3.5375419699200006d-4*t14*t17*t33*t35*wght-2 21126 2 .060352d-2*t80)-1.6399308763819376d-6*t1*t14*t17*t33*t5 21127 3 7*t60*wght+1.25d-1*gammabb*t14*t22*t33*t56*t58*wght-1.2 21128 4 5d-1*gammabb*t14*t16*t22*t54*t58*wght+6.6328911936d-6*g 21129 5 ammabb*t14*t33*t36*t56*t57*wght+5.30631295488d-5*rhob*t 21130 6 14*t17*t36*t54*t57*wght+1.28772d-3*gammabb*t14*t15*t26* 21131 7 t33*t35*t56*wght-1.28772d-3*gammabb*t14*t15*t16*t26*t35 21132 8 *t54*wght+2.65315647744d-5*gammabb*t14*t16*t18*t33*t35* 21133 9 t36*wght+5.58012d-3*gammabb*t14*t16*t26*t33*t34*wght-1. 21134 : 030176d-2*t19*t26*t79-1.030176d-2*t16*t18*t26*t59+Mmat3 21135 ; (iq,D3_RB_RB_TB) 21136 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 21137 Mmat3(iq,D3_RB_GBB_TB) = t22*(1.0d+0*rhob*t14*t17*(-1.0612 21138 1 62590976d-3*gammabb*t27*t60*t91*taub-2.122525181952d-3* 21139 2 t28*t29*t52*t60*taub-3.53754196992d-4*t32*t36*t52*taub+ 21140 3 1.373568d-1*t29*t36*t52*taub+6.867840000000001d-2*t27*t 21141 4 36*t52*taub-6.559723505527751d-6*t100*t23*t24*t35*t91-3 21142 5 .0776615138304003d-3*t23*t24*t60*t86-1.6399308763819376 21143 6 d-6*t28*t32*t35*t53*t60+6.367575545856d-4*t28*t29*t35*t 21144 7 53*t60+3.183787772928d-4*t27*t28*t35*t53*t60-1.63993087 21145 8 63819376d-6*gammabb*t31*t35*t52*t60+3.183787772928d-4*g 21146 9 ammabb*t27*t35*t52*t60+6.367575545856d-4*gammabb*t23*t3 21147 : 5*t52*t60-2.2286514410496003d-3*gammabb*t27*t28*t50*t60 21148 ; -1.3796413682688d-3*t25*t29*t30*t60+1.061262590976d-4*t 21149 < 32*t35*t36*t53+1.061262590976d-4*t31*t35*t36*t53-2.0603 21150 = 52d-2*t27*t35*t36*t53-6.559723505527751d-6*t100*t29*t30 21151 > *t35*t53-6.559723505527751d-6*gammabb*t100*t27*t28*t35* 21152 ? t52-7.428838136832d-4*gammabb*t31*t36*t50+1.44224640000 21153 @ 00002d-1*gammabb*t27*t36*t50+2.8844928000000003d-1*gamm 21154 1 abb*t23*t36*t50-4.5988045608960004d-4*t25*t28*t32*t36+1 21155 2 .7856384d-1*t25*t28*t29*t36+8.928192d-2*t25*t27*t28*t36 21156 3 +4.464096d-2*t25*t26*t32+4.464096d-2*t25*t26*t31-8.6666 21157 4 66666666666d+0*t25*t26*t27)*wght+1.0d+0*rhob*t17*t48*t9 21158 5 2*wght+1.0d+0*t14*t17*t92*wght-1.25d-1*t14*t16*t88*wght 21159 6 +1.25d-1*gammabb*t14*t56*t83*wght+1.25d-1*gammabb*t48*t 21160 7 51*t56*wght+1.25d-1*gammabb*t14*t15*t51*t56*wght+1.25d- 21161 8 1*t33*t48*t56*wght+1.25d-1*t14*t38*t56*wght+1.25d-1*t14 21162 9 *t15*t33*t56*wght-1.25d-1*t16*t48*t54*wght-1.25d-1*t14* 21163 : t15*t16*t54*wght)+t15*t16*t22*(1.25d-1*gammabb*t14*t92* 21164 ; wght+1.25d-1*t14*t54*wght)+t18*t26*(1.7169600000000002d 21165 < -3*gammabb*t14*t15*t33*t56*wght+1.373568d-2*t14*t17*t54 21166 = *wght-5.15088d-3*t89)+t26*t56*(-6.4386d-4*gammabb*t14*t 21167 > 35*t51*wght-6.4386d-4*t14*t33*t35*wght)+t19*t26*(1.7169 21168 ? 600000000002d-2*t14*t17*t51*wght+t109)+t36*t53*(-1.7687 21169 @ 709849600003d-4*t14*t17*t33*wght-2.060352d-2*t85)+t16*t 21170 1 18*t26*(t110-2.1462d-3*t14*t33*wght)-1.6399308763819376 21171 2 d-6*t14*t17*t33*t35*t60*t93*wght-5.15088d-3*rhob*t14*t1 21172 3 7*t26*t35*t92*wght+6.6328911936d-6*gammabb*t14*t18*t33* 21173 4 t35*t36*t56*wght+6.4386d-4*gammabb*t14*t26*t33*t34*t56* 21174 5 wght+5.30631295488d-5*t14*t17*t19*t35*t36*t54*wght+6.43 21175 6 86d-4*t14*t16*t26*t35*t54*wght-6.4386d-4*gammabb*t14*t1 21176 7 6*t26*t34*t54*wght+1.061262590976d-4*t1*t14*t17*t35*t36 21177 8 *t51*wght-1.32657823872d-5*t14*t16*t19*t33*t35*t36*wght 21178 9 +1.32657823872d-5*gammabb*t14*t16*t25*t33*t36*wght+t107 21179 : *t15*t22*t56+Mmat3(iq,D3_RB_GBB_TB) 21180 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 21181 Mmat3(iq,D3_GBB_GBB_TB) = -1.6399308763819376d-6*t14*t17*t 21182 1 33*t60*t95*wght+2.122525181952d-4*t14*t17*t36*t51*t93*w 21183 2 ght-1.030176d-2*t14*t17*t19*t26*t92*wght-2.5d-1*t14*t16 21184 3 *t22*t92*wght+1.0d+0*rhob*t14*t17*t22*(-1.6399308763819 21185 4 376d-6*gammabb*t31*t60*t91+3.183787772928d-4*gammabb*t2 21186 5 7*t60*t91+1.2735151091712002d-3*gammabb*t23*t60*t91-6.5 21187 6 59723505527751d-6*gammabb*t100*t27*t28*t91-1.6399308763 21188 7 819376d-6*t28*t32*t52*t60+6.367575545856d-4*t28*t29*t52 21189 8 *t60+6.367575545856d-4*t27*t28*t52*t60+1.061262590976d- 21190 9 4*t32*t36*t52+2.122525181952d-4*t31*t36*t52-4.120704d-2 21191 : *t27*t36*t52-4.120704d-2*t23*t36*t52-6.559723505527751d 21192 ; -6*t100*t29*t30*t52-6.559723505527751d-6*t100*t23*t24/r 21193 < hob**1.2333333333333334d+1)*wght-1.030176d-2*t1*t14*t17 21194 = *t26*t87*wght+6.6328911936d-6*gammabb*t14*t25*t33*t36*t 21195 > 56*wght+5.30631295488d-5*t14*t17*t36*t53*t54*wght+1.287 21196 ? 72d-3*t14*t16*t18*t26*t54*wght-2.65315647744d-5*t14*t16 21197 @ *t33*t36*t53*wght+2.57544d-3*t14*t16*t19*t26*t51*wght+( 21198 1 t112+t111)*t18*t26*t56+t108*t22*t56+Mmat3(iq,D3_GBB_GBB 21199 2 _TB) 21200 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 21201 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 21202 Mmat3(iq,D3_RB_TB_TB) = t22*(1.0d+0*rhob*t14*t17*(-4.24505 21203 1 0363904d-3*t28*t29*t60*t95*taub-7.07508393984d-4*t32*t3 21204 2 6*t95*taub+5.494272d-1*t29*t36*t95*taub-2.122525181952d 21205 3 -3*gammabb*t27*t60*t94*taub-3.279861752763875d-6*gammab 21206 4 b*t31*t35*t60*t95+1.2735151091712002d-3*gammabb*t27*t35 21207 5 *t60*t95-1.3119447011055504d-5*gammabb*t100*t27*t28*t35 21208 6 *t95-1.3119447011055504d-5*t100*t23*t24*t35*t94-3.27986 21209 7 1752763875d-6*t28*t32*t35*t60*t93+2.5470302183424004d-3 21210 8 *t28*t29*t35*t60*t93+4.245050363904d-4*t32*t35*t36*t93- 21211 9 8.241408d-2*t29*t35*t36*t93-1.3119447011055504d-5*t100* 21212 : t29*t30*t35*t93-5.518565473075201d-3*t23*t24*t60*t91-2. 21213 ; 1225251819520005d-3*t29*t30*t53*t60-3.8205453275136003d 21214 < -3*gammabb*t27*t28*t52*t60-7.075083939840001d-4*t28*t32 21215 = *t36*t53+5.494272d-1*t28*t29*t36*t53+1.373568d-1*t26*t3 21216 > 2*t53-2.6666666666666666d+1*t26*t29*t53-1.2735151091712 21217 ? 002d-3*gammabb*t31*t36*t52+4.9448448d-1*gammabb*t27*t36 21218 @ *t52)*wght-2.5d-1*gammabb*t33*t48*t97*wght-2.5d-1*gamma 21219 1 bb*t14*t38*t97*wght-2.5d-1*gammabb*t14*t15*t33*t97*wght 21220 2 +1.0d+0*rhob*t17*t48*t96*wght+1.0d+0*t14*t17*t96*wght+2 21221 3 .5d-1*gammabb*t14*t56*t88*wght+2.5d-1*gammabb*t48*t54*t 21222 4 56*wght+2.5d-1*gammabb*t14*t15*t54*t56*wght)+t19*t26*(2 21223 5 .1462d-3*gammabb*t14*t15*t33*t56*wght+3.433920000000000 21224 6 3d-2*t14*t17*t54*wght-2.060352d-2*t89)+t36*t93*(-3.5375 21225 7 419699200006d-4*t14*t17*t33*wght-2.060352d-2*t90)+1.287 21226 8 72d-3*gammabb*t14*t26*t33*t35*t97*wght+2.5d-1*gammabb*t 21227 9 14*t15*t22*t33*t97*wght-5.15088d-3*rhob*t14*t17*t26*t35 21228 : *t96*wght+1.25d-1*gammabb*t14*t15*t16*t22*t96*wght-3.27 21229 ; 9861752763875d-6*t14*t17*t33*t35*t60*t70*wght-1.28772d- 21230 < 3*gammabb*t14*t26*t35*t54*t56*wght-2.5d-1*gammabb*t14*t 21231 = 15*t22*t54*t56*wght+2.65315647744d-5*gammabb*t14*t19*t3 21232 > 3*t35*t36*t56*wght+4.7216400000000003d-3*gammabb*t14*t1 21233 ? 8*t26*t33*t56*wght+2.122525181952d-4*t1*t14*t17*t35*t36 21234 @ *t54*wght-2.57544d-3*gammabb*t14*t16*t18*t26*t54*wght+2 21235 1 .65315647744d-5*gammabb*t14*t16*t33*t36*t53*wght+Mmat3( 21236 2 iq,D3_RB_TB_TB) 21237 Mmat3(iq,D3_GBB_TA_TA) = Mmat3(iq,D3_GBB_TA_TA) 21238 Mmat3(iq,D3_GBB_TA_TB) = Mmat3(iq,D3_GBB_TA_TB) 21239 Mmat3(iq,D3_GBB_TB_TB) = t22*t56*(2.5d-1*gammabb*t14*t92*w 21240 1 ght+2.5d-1*t14*t54*wght)+1.28772d-3*gammabb*t14*t18*t26 21241 2 *t33*t97*wght-5.15088d-3*t14*t17*t19*t26*t96*wght-1.25d 21242 3 -1*t14*t16*t22*t96*wght+1.0d+0*rhob*t14*t17*t22*(-3.279 21243 4 861752763875d-6*t28*t32*t60*t95+2.5470302183424004d-3*t 21244 5 28*t29*t60*t95+6.367575545856d-4*t27*t28*t60*t95+4.2450 21245 6 50363904d-4*t32*t36*t95+2.122525181952d-4*t31*t36*t95-8 21246 7 .241408d-2*t29*t36*t95-8.241408d-2*t27*t36*t95-1.311944 21247 8 7011055504d-5*t100*t29*t30*t95-3.279861752763875d-6*gam 21248 9 mabb*t31*t60*t94+1.2735151091712002d-3*gammabb*t27*t60* 21249 : t94+1.2735151091712002d-3*gammabb*t23*t60*t94-1.3119447 21250 ; 011055504d-5*gammabb*t100*t27*t28*t94-1.311944701105550 21251 < 4d-5*t100*t23*t24/rhob**1.1333333333333334d+1)*wght+2.1 21252 = 22525181952d-4*t14*t17*t36*t54*t93*wght-2.65315647744d- 21253 > 5*t14*t16*t33*t36*t93*wght-2.060352d-2*t1*t14*t17*t26*t 21254 ? 92*wght+2.122525181952d-4*t14*t17*t36*t51*t70*wght-3.27 21255 @ 9861752763875d-6*t113*t14*t17*t33*t60*wght-1.28772d-3*g 21256 1 ammabb*t14*t18*t26*t54*t56*wght+2.65315647744d-5*gammab 21257 2 b*t14*t33*t36*t53*t56*wght+2.57544d-3*t14*t16*t19*t26*t 21258 3 54*wght-2*t22*t81*t97+(t112+t111+t110)*t19*t26*t56+Mmat 21259 4 3(iq,D3_GBB_TB_TB) 21260 Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA) 21261 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 21262 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 21263 Mmat3(iq,D3_TB_TB_TB) = 7.5d-1*gammabb*t14*t22*t33*wght/ta 21264 1 ub**4-7.5d-1*gammabb*t14*t22*t54*t97*wght+7.72632d-3*ga 21265 2 mmabb*t14*t19*t26*t33*t97*wght+3.75d-1*gammabb*t14*t22* 21266 3 t56*t96*wght-3.090528d-2*t1*t14*t17*t26*t96*wght+7.9594 21267 4 69432320001d-5*gammabb*t14*t33*t36*t56*t93*wght+6.36757 21268 5 5545856d-4*t14*t17*t36*t54*t70*wght+1.0d+0*rhob*t14*t17 21269 6 *t22*(-6.55972350552775d-6*t113*t28*t32*t60-6.559723505 21270 7 52775d-6*gammabb*t114*t31*t60+7.641090655027201d-3*t113 21271 8 *t28*t29*t60+3.8205453275136003d-3*gammabb*t114*t27*t60 21272 9 +1.2735151091712002d-3*t113*t32*t36-4.9448448d-1*t113*t 21273 : 29*t36-2.623889402211101d-5*t100*t113*t29*t30-2.6238894 21274 ; 02211101d-5*gammabb*t100*t114*t27*t28-2.623889402211101 21275 < d-5*t100*t23*t24/rhob**1.0333333333333333d+1)*wght-6.55 21276 = 972350552775d-6*t14*t17*t33*t60*wght/rhob**4-7.72632d-3 21277 > *gammabb*t14*t19*t26*t54*t56*wght+Mmat3(iq,D3_TB_TB_TB) 21278 elseif (taua.gt.tol_rho.and.taub.le.tol_rho) then 21279 t1 = 1/rhob**1.6666666666666669d+0 21280 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 21281 t3 = 1/t2 21282 t4 = param(12) 21283 t5 = 1/t2**2 21284 t6 = 2.0d-50*t1-9.11559972d+0 21285 t7 = t6**2 21286 t8 = param(10) 21287 t9 = 1/rhob**3.3333333333333337d+0 21288 t10 = param(9) 21289 t11 = param(8) 21290 t12 = param(11) 21291 t13 = 1.6d-99*t5*t8*t9+t4*t5*t7+4.0d-50*t1*t12*t5*t6+t10*t 21292 1 3*t6+4.0d-50*t1*t11*t3+param(7) 21293 t14 = 1/rhob**6.666666666666666d-1 21294 t15 = rhob**5.0d-1 21295 t16 = 1/t15 21296 t17 = 1/rhob**3.333333333333333d-1 21297 t18 = 1/rhob**1.6666666666666666d-1 21298 t19 = 1.1120374863094686d+1*t18+3.8447462374472113d+0*t17+ 21299 1 1.644733775567609d+0*t16+2.4058712912881916d-1*t14 21300 t20 = 3.216395899738507d+1/t19+1.0d+0 21301 t21 = log(t20) 21302 t22 = 1.274696188700087d-1*t17+1.0d+0 21303 t23 = 5.982550435771079d+0*t18+2.2255694211506874d+0*t17+8 21304 1 .004286349993635d-1*t16+1.8970043257475583d-1*t14 21305 t24 = 1.6081979498692536d+1/t23+1.0d+0 21306 t25 = log(t24) 21307 t26 = 1.3256889990520176d-1*t17+1.0d+0 21308 t27 = -6.903522198342671d-18*t25*t26-3.1090699999999993d-2 21309 1 *t21*t22 21310 t28 = 1/t24 21311 t29 = 1/t15**3 21312 t30 = 1/rhob**1.3333333333333333d+0 21313 t31 = 1/rhob**1.1666666666666667d+0 21314 t32 = -9.970917392951799d-1*t31-7.418564737168958d-1*t30-4 21315 1 .002143174996817d-1*t29-1.264669550498372d-1*t1 21316 t33 = 1/t23**2 21317 t34 = 1/t20 21318 t35 = -1.8533958105157808d+0*t31-1.2815820791490704d+0*t30 21319 1 -8.223668877838045d-1*t29-1.6039141941921276d-1*t1 21320 t36 = 1/t19**2 21321 t37 = 1.0d+0*t22*t34*t35*t36+1.1102230246251565d-16*t26*t2 21322 1 8*t32*t33+3.0506411443514264d-19*t25*t30+1.321039893133 21323 2 9265d-3*t21*t30 21324 t38 = 1/t2**3 21325 t39 = 1/rhob**4.333333333333333d+0 21326 t40 = 1/rhob**2.6666666666666666d+0 21327 t41 = -5.333333333333334d-99*t39*t5*t8+1.6482816d-150*t38* 21328 1 t8/rhob**6+1.030176d-51*t38*t4*t40*t7-6.666666666666666 21329 2 d-50*t4*t40*t5*t6-6.666666666666666d-50*t12*t40*t5*t6+5 21330 3 .15088d-52*t10*t40*t5*t6+4.1207039999999995d-101*t12*t3 21331 4 8*t39*t6-1.3333333333333333d-99*t12*t39*t5+2.0603519999 21332 5 999997d-101*t11*t39*t5-6.666666666666666d-50*t11*t3*t40 21333 6 -3.333333333333333d-50*t10*t3*t40 21334 t42 = 5.0d-1*rhob*t27*t41*wght+5.0d-1*rhob*t13*t37*wght+5. 21335 1 0d-1*t13*t27*wght 21336 t43 = 2.57544d-52*t27*t41*wght+2.57544d-52*t13*t37*wght 21337 t44 = 1/t24**2 21338 t45 = t32**2 21339 t46 = 1/t23**4 21340 t47 = 1/t23**3 21341 t48 = 1/t15**5 21342 t49 = 1/rhob**2.3333333333333334d+0 21343 t50 = 1/rhob**2.1666666666666665d+0 21344 t51 = 1.1632736958443765d+0*t50+9.89141964955861d-1*t49+6. 21345 1 003214762495226d-1*t48+2.1077825841639536d-1*t40 21346 t52 = 1/t20**2 21347 t53 = t35**2 21348 t54 = 1/t19**4 21349 t55 = 1/t19**3 21350 t56 = 2.1622951122684114d+0*t50+1.7087761055320938d+0*t49+ 21351 1 1.2335503316757068d+0*t48+2.673190323653546d-1*t40 21352 t57 = 1.0d+0*t22*t34*t36*t56-2.0d+0*t22*t34*t53*t55+3.2163 21353 1 95899738507d+1*t22*t52*t53*t54+1.1102230246251565d-16*t 21354 2 26*t28*t33*t51-4.0675215258019015d-19*t25*t49-1.7613865 21355 3 241785684d-3*t21*t49-2.220446049250313d-16*t26*t28*t45* 21356 4 t47+1.7854583920998188d-15*t26*t44*t45*t46-8.4979745913 21357 5 33913d-2*t30*t34*t35*t36-9.812069668265515d-18*t28*t30* 21358 6 t32*t33 21359 t58 = 1/t2**4 21360 t59 = 1/rhob**7 21361 t60 = 1/rhob**5.333333333333333d+0 21362 t61 = 1/rhob**3.6666666666666664d+0 21363 t62 = 2.3111111111111113d-98*t5*t60*t8-1.53839616d-149*t38 21364 1 *t59*t8+2.5470302183424d-201*t58*t8/rhob**8.66666666666 21365 2 6666d+0-2.747136d-51*t38*t4*t61*t7+1.5918938864639998d- 21366 3 102*t4*t58*t60*t7+1.7777777777777776d-49*t4*t5*t6*t61+1 21367 4 .7777777777777776d-49*t12*t5*t6*t61-1.373568d-51*t10*t5 21368 5 *t6*t61+1.7777777777777776d-49*t11*t3*t61+8.88888888888 21369 6 8888d-50*t10*t3*t61-1.373568d-100*t38*t4*t6*t60-2.47242 21370 7 23999999997d-100*t12*t38*t6*t60+5.306312954879999d-103* 21371 8 t10*t38*t6*t60+2.222222222222222d-99*t4*t5*t60+8.0d-99* 21372 9 t12*t5*t60-1.2362111999999999d-100*t11*t5*t60-3.43392d- 21373 : 101*t10*t5*t60+6.367575545855999d-152*t12*t58*t59*t6-2. 21374 ; 7471359999999995d-150*t12*t38*t59+2.1225251819519997d-1 21375 < 52*t11*t38*t59 21376 t63 = 5.0d-1*rhob*t27*t62*wght+5.0d-1*rhob*t13*t57*wght+1. 21377 1 0d+0*rhob*t37*t41*wght+1.0d+0*t27*t41*wght+1.0d+0*t13*t 21378 2 37*wght 21379 t64 = 5.15088d-52*t42-4.2923999999999995d-52*t13*t27*wght 21380 t65 = t32**3 21381 t66 = 1/t15**7 21382 t67 = 1/rhob**3.1666666666666665d+0 21383 t68 = t35**3 21384 t69 = 1/t2**5 21385 t70 = 1/rhob**9.666666666666666d+0 21386 t71 = 1/rhob**8 21387 t72 = 1/rhob**6.333333333333333d+0 21388 t73 = 1/rhob**4.666666666666667d+0 21389 fnc(iq) = 5.0d-1*rhob*t13*t27*t3*wght+fnc(iq) 21390 Amat(iq,D1_RB) = 2.57544d-52*t1*t13*t27*t5*wght+t3*t42+Ama 21391 1 t(iq,D1_RB) 21392 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 21393 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 21394 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 21395 Amat2(iq,D2_RB_RB) = 2.6531564774399996d-103*t13*t27*t38*t 21396 1 39*wght+t40*t5*t64+t3*t63+t1*t43*t5+Amat2(iq,D2_RB_RB) 21397 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 21398 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 21399 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 21400 Mmat2(iq,D2_RB_TB) = Mmat2(iq,D2_RB_TB) 21401 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 21402 Mmat2(iq,D2_GBB_TB) = Mmat2(iq,D2_GBB_TB) 21403 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 21404 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 21405 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 21406 Amat3(iq,D3_RB_RB_RB) = t3*(5.0d-1*rhob*t13*(9.49088356020 21407 1 4437d-19*t25*t9+4.1099018897499934d-3*t21*t9+1.11022302 21408 2 46251565d-16*t26*t28*t33*(-2.3079979182303428d+0*t9-2.5 21409 3 20426340996149d+0*t67-1.5008036906238065d+0*t66-5.62075 21410 4 3557770543d-1*t61)+1.0d+0*t22*t34*t36*(-3.9871442462415 21411 5 524d+0*t9-4.684972743248224d+0*t67-3.083875829189267d+0 21412 6 *t66-7.128507529742789d-1*t61)+6.0d+0*t22*t34*t54*t68-1 21413 7 .9298375398431045d+2*t22*t52*t68/t19**5+2.0690405167709 21414 8 364d+3*t22*t68/(t19**6*t20**3)+6.661338147750939d-16*t2 21415 9 6*t28*t46*t65-1.0712750352598913d-14*t26*t44*t65/t23**5 21416 : +5.742741051503565d-14*t26*t65/(t23**6*t24**3)-6.0d+0*t 21417 ; 22*t34*t35*t55*t56+9.649187699215522d+1*t22*t35*t52*t54 21418 < *t56-1.274696188700087d-1*t30*t34*t36*t56+2.54939237740 21419 = 0174d-1*t30*t34*t53*t55-4.0999275947472624d+0*t30*t52*t 21420 > 53*t54-6.661338147750939d-16*t26*t28*t32*t47*t51+5.3563 21421 ? 75176299456d-15*t26*t32*t44*t46*t51-1.4718104502398274d 21422 @ -17*t28*t30*t33*t51+1.6995949182667827d-1*t34*t35*t36*t 21423 1 49+1.962413933653103d-17*t28*t32*t33*t49+2.943620900479 21424 2 655d-17*t28*t30*t45*t47-2.3669625486718335d-16*t30*t44* 21425 3 t45*t46)*wght+5.0d-1*rhob*t27*(-1.2325925925925926d-97* 21426 4 t5*t72*t8+1.314962432d-148*t38*t71*t8-4.58465439301632d 21427 5 -200*t58*t70*t8+5.2477788044222d-252*t69*t8/rhob**1.133 21428 6 3333333333334d+1+1.0072832d-50*t38*t4*t7*t73-6.51851851 21429 7 8518518d-49*t4*t5*t6*t73-6.518518518518518d-49*t12*t5*t 21430 8 6*t73+5.036415999999999d-51*t10*t5*t6*t73-6.51851851851 21431 9 8518d-49*t11*t3*t73-3.259259259259259d-49*t10*t3*t73-1. 21432 : 2735151091711996d-101*t4*t58*t7*t72+1.0988544d-99*t38*t 21433 ; 4*t6*t72+1.50176768d-99*t12*t38*t6*t72-4.24505036390399 21434 < 94d-102*t10*t38*t6*t72-1.7777777777777776d-98*t4*t5*t72 21435 = -4.8592592592592593d-98*t12*t5*t72+7.508838399999999d-1 21436 > 00*t11*t5*t72+2.7471359999999995d-100*t10*t5*t72+3.2798 21437 ? 61752763875d-153*t4*t69*t7*t71-3.1837877729279995d-151* 21438 @ t4*t58*t6*t71-8.277848209612798d-151*t12*t58*t6*t71+8.1 21439 1 99654381909687d-154*t10*t58*t6*t71+6.86784d-150*t38*t4* 21440 2 t71+3.5712767999999995d-149*t12*t38*t71-2.7592827365375 21441 3 994d-151*t11*t38*t71-5.30631295488d-152*t10*t38*t71+1.3 21442 4 1194470110555d-202*t12*t6*t69*t70-6.367575545855999d-20 21443 5 1*t12*t58*t70+3.2798617527638746d-203*t11*t58*t70)*wght 21444 6 +1.5d+0*rhob*t37*t62*wght+1.5d+0*t27*t62*wght+1.5d+0*rh 21445 7 ob*t41*t57*wght+1.5d+0*t13*t57*wght+3.0d+0*t37*t41*wght 21446 8 )+t1*t5*(2.57544d-52*t27*t62*wght+2.57544d-52*t13*t57*w 21447 9 ght+5.15088d-52*t37*t41*wght)+t38*t39*(2.65315647743999 21448 : 96d-103*t27*t41*wght+2.6531564774399996d-103*t13*t37*wg 21449 ; ht+1.030176d-51*t43)+t40*t5*(-4.2923999999999995d-52*t2 21450 < 7*t41*wght-4.2923999999999995d-52*t13*t37*wght+1.030176 21451 = d-51*t63)+t38*t60*(1.030176d-51*t64-1.1497011402239997d 21452 > -102*t13*t27*wght)+4.0998271909548434d-154*t13*t27*t58* 21453 ? t59*wght-2.6666666666666666d+0*t5*t61*t64-1.66666666666 21454 @ 66669d+0*t40*t43*t5+Amat3(iq,D3_RB_RB_RB) 21455 Cmat3(iq,D3_RB_RB_GBB) = Cmat3(iq,D3_RB_RB_GBB) 21456 Cmat3(iq,D3_RB_GBB_GBB) = Cmat3(iq,D3_RB_GBB_GBB) 21457 Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB) 21458 Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA) 21459 Mmat3(iq,D3_RB_RB_TB) = Mmat3(iq,D3_RB_RB_TB) 21460 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 21461 Mmat3(iq,D3_RB_GBB_TB) = Mmat3(iq,D3_RB_GBB_TB) 21462 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 21463 Mmat3(iq,D3_GBB_GBB_TB) = Mmat3(iq,D3_GBB_GBB_TB) 21464 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 21465 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 21466 Mmat3(iq,D3_RB_TB_TB) = Mmat3(iq,D3_RB_TB_TB) 21467 Mmat3(iq,D3_GBB_TA_TA) = Mmat3(iq,D3_GBB_TA_TA) 21468 Mmat3(iq,D3_GBB_TA_TB) = Mmat3(iq,D3_GBB_TA_TB) 21469 Mmat3(iq,D3_GBB_TB_TB) = Mmat3(iq,D3_GBB_TB_TB) 21470 Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA) 21471 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 21472 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 21473 Mmat3(iq,D3_TB_TB_TB) = Mmat3(iq,D3_TB_TB_TB) 21474 elseif (taua.le.tol_rho.and.taub.gt.tol_rho) then 21475 t1 = 1/rhob**6.666666666666666d-1 21476 t2 = rhob**5.0d-1 21477 t3 = 1/t2 21478 t4 = 1/rhob**3.333333333333333d-1 21479 t5 = 1/rhob**1.6666666666666666d-1 21480 t6 = 1.1120374863094686d+1*t5+3.8447462374472113d+0*t4+1.6 21481 1 44733775567609d+0*t3+2.4058712912881916d-1*t1 21482 t7 = 3.216395899738507d+1/t6+1.0d+0 21483 t8 = log(t7) 21484 t9 = 1.274696188700087d-1*t4+1.0d+0 21485 t10 = 5.982550435771079d+0*t5+2.2255694211506874d+0*t4+8.0 21486 1 04286349993635d-1*t3+1.8970043257475583d-1*t1 21487 t11 = 1.6081979498692536d+1/t10+1.0d+0 21488 t12 = log(t11) 21489 t13 = 1.3256889990520176d-1*t4+1.0d+0 21490 t14 = -3.1090699999999993d-2*t8*t9-6.903522198342671d-18*t 21491 1 12*t13 21492 t15 = 1/rhob 21493 t16 = 1/taub 21494 t17 = 1.0d+0-1.25d-1*gammabb*t15*t16 21495 t18 = 1/rhob**2.6666666666666666d+0 21496 t19 = 1/rhob**1.6666666666666669d+0 21497 t20 = 2.0d+0*t19*taub 21498 t21 = 5.15088d-3*(t20+gammabb*t18-9.11559972d+0)+1.0d+0 21499 t22 = 1/t21 21500 t23 = param(10) 21501 t24 = gammabb**2 21502 t25 = 1/rhob**5.333333333333333d+0 21503 t26 = 1/t21**2 21504 t27 = param(11) 21505 t28 = t20-9.11559972d+0 21506 t29 = param(12) 21507 t30 = t28**2 21508 t31 = param(8) 21509 t32 = param(9) 21510 t33 = t22*t28*t32+gammabb*t18*t22*t31+t26*t29*t30+gammabb* 21511 1 t18*t26*t27*t28+t23*t24*t25*t26+param(7) 21512 t34 = 1/rhob**3.6666666666666664d+0 21513 t35 = -3.3333333333333337d+0*t18*taub-2.6666666666666666d+ 21514 1 0*gammabb*t34 21515 t36 = 1/t21**3 21516 t37 = 1/rhob**6.333333333333333d+0 21517 t38 = -3.3333333333333337d+0*t18*t22*t32*taub-6.6666666666 21518 1 66667d+0*t18*t26*t28*t29*taub-3.3333333333333337d+0*gam 21519 2 mabb*t25*t26*t27*taub-5.333333333333333d+0*t23*t24*t26* 21520 3 t37-1.030176d-2*t29*t30*t35*t36-1.030176d-2*gammabb*t18 21521 4 *t27*t28*t35*t36-1.030176d-2*t23*t24*t25*t35*t36-5.1508 21522 5 8d-3*t26*t28*t32*t35-5.15088d-3*gammabb*t18*t26*t31*t35 21523 6 -2.6666666666666666d+0*gammabb*t22*t31*t34-2.6666666666 21524 7 666666d+0*gammabb*t26*t27*t28*t34 21525 t39 = 1/t11 21526 t40 = 1/t2**3 21527 t41 = 1/rhob**1.3333333333333333d+0 21528 t42 = 1/rhob**1.1666666666666667d+0 21529 t43 = -9.970917392951799d-1*t42-7.418564737168958d-1*t41-4 21530 1 .002143174996817d-1*t40-1.264669550498372d-1*t19 21531 t44 = 1/t10**2 21532 t45 = 1/t7 21533 t46 = -1.8533958105157808d+0*t42-1.2815820791490704d+0*t41 21534 1 -8.223668877838045d-1*t40-1.6039141941921276d-1*t19 21535 t47 = 1/t6**2 21536 t48 = 1.0d+0*t45*t46*t47*t9+1.3210398931339265d-3*t41*t8+1 21537 1 .1102230246251565d-16*t13*t39*t43*t44+3.050641144351426 21538 2 4d-19*t12*t41 21539 t49 = 1.0d+0*rhob*t17*t33*t48*wght+1.0d+0*rhob*t14*t17*t38 21540 1 *wght+1.0d+0*t14*t17*t33*wght 21541 t50 = 1/rhob**8 21542 t51 = -1.030176d-2*t23*t24*t36*t50-1.030176d-2*t18*t29*t30 21543 1 *t36-1.030176d-2*gammabb*t25*t27*t28*t36-5.15088d-3*t18 21544 2 *t26*t28*t32-5.15088d-3*gammabb*t25*t26*t31+t18*t22*t31 21545 3 +t18*t26*t27*t28+2*gammabb*t23*t25*t26 21546 t52 = 1/rhob**7 21547 t53 = 1/rhob**4.333333333333333d+0 21548 t54 = -2.060352d-2*gammabb*t27*t28*t36*t53-1.030176d-2*gam 21549 1 mabb*t26*t31*t53+2.0d+0*gammabb*t26*t27*t53-2.060352d-2 21550 2 *t23*t24*t36*t52-2.060352d-2*t19*t29*t30*t36-1.030176d- 21551 3 2*t19*t26*t28*t32+2.0d+0*t19*t22*t32+4.0d+0*t19*t26*t28 21552 4 *t29 21553 t55 = taub**2 21554 t56 = 1/t55 21555 t57 = t35**2 21556 t58 = 1/rhob**2 21557 t59 = 1.25d-1*gammabb*t33*t48*wght+1.25d-1*gammabb*t14*t38 21558 1 *wght 21559 t60 = 1/t21**4 21560 t61 = 1/rhob**4.666666666666667d+0 21561 t62 = 8.88888888888889d+0*t34*taub+9.777777777777779d+0*ga 21562 1 mmabb*t61 21563 t63 = 1/rhob**7.333333333333333d+0 21564 t64 = 2.6666666666666666d+1*gammabb*t26*t27*t37*taub+1.373 21565 1 568d-1*t18*t28*t29*t35*t36*taub+6.867840000000001d-2*ga 21566 2 mmabb*t25*t27*t35*t36*taub+3.4339200000000003d-2*t18*t2 21567 3 6*t32*t35*taub+8.88888888888889d+0*t22*t32*t34*taub+1.7 21568 4 777777777777778d+1*t26*t28*t29*t34*taub+3.3777777777777 21569 5 78d+1*t23*t24*t26*t63-1.030176d-2*t29*t30*t36*t62-1.030 21570 6 176d-2*gammabb*t18*t27*t28*t36*t62-1.030176d-2*t23*t24* 21571 7 t25*t36*t62-5.15088d-3*t26*t28*t32*t62-5.15088d-3*gamma 21572 8 bb*t18*t26*t31*t62+9.777777777777779d+0*gammabb*t22*t31 21573 9 *t61+9.777777777777779d+0*gammabb*t26*t27*t28*t61+1.591 21574 : 893886464d-4*t29*t30*t57*t60+1.591893886464d-4*gammabb* 21575 ; t18*t27*t28*t57*t60+1.591893886464d-4*t23*t24*t25*t57*t 21576 < 60+5.30631295488d-5*t28*t32*t36*t57+5.30631295488d-5*ga 21577 = mmabb*t18*t31*t36*t57+2.2222222222222224d+1*t25*t26*t29 21578 > *t55+1.0988544d-1*t23*t24*t35*t36*t37+5.494272d-2*gamma 21579 ? bb*t27*t28*t34*t35*t36+2.747136d-2*gammabb*t26*t31*t34* 21580 @ t35 21581 t65 = 1/t11**2 21582 t66 = t43**2 21583 t67 = 1/t10**4 21584 t68 = 1/t10**3 21585 t69 = 1/t2**5 21586 t70 = 1/rhob**2.3333333333333334d+0 21587 t71 = 1/rhob**2.1666666666666665d+0 21588 t72 = 1.1632736958443765d+0*t71+9.89141964955861d-1*t70+6. 21589 1 003214762495226d-1*t69+2.1077825841639536d-1*t18 21590 t73 = 1/t7**2 21591 t74 = t46**2 21592 t75 = 1/t6**4 21593 t76 = 1/t6**3 21594 t77 = 2.1622951122684114d+0*t71+1.7087761055320938d+0*t70+ 21595 1 1.2335503316757068d+0*t69+2.673190323653546d-1*t18 21596 t78 = 1.0d+0*t45*t47*t77*t9-2.0d+0*t45*t74*t76*t9+3.216395 21597 1 899738507d+1*t73*t74*t75*t9-1.7613865241785684d-3*t70*t 21598 2 8+1.1102230246251565d-16*t13*t39*t44*t72-4.067521525801 21599 3 9015d-19*t12*t70-2.220446049250313d-16*t13*t39*t66*t68+ 21600 4 1.7854583920998188d-15*t13*t65*t66*t67-8.49797459133391 21601 5 3d-2*t41*t45*t46*t47-9.812069668265515d-18*t39*t41*t43* 21602 6 t44 21603 t79 = 1.0d+0*rhob*t17*t33*t78*wght+1.0d+0*rhob*t14*t17*t64 21604 1 *wght+1.25d-1*gammabb*t14*t16*t33*t58*wght+2.0d+0*rhob* 21605 2 t17*t38*t48*wght+2.0d+0*t17*t33*t48*wght+1.25d-1*gammab 21606 3 b*t15*t16*t33*t48*wght+2.0d+0*t14*t17*t38*wght+1.25d-1* 21607 4 gammabb*t14*t15*t16*t38*wght 21608 t80 = -5.15088d-3*rhob*t14*t17*t33*t62*wght-5.15088d-3*rho 21609 1 b*t17*t33*t35*t48*wght-5.15088d-3*rhob*t14*t17*t35*t38* 21610 2 wght-5.15088d-3*t14*t17*t33*t35*wght-5.15088d-3*t35*t49 21611 t81 = 1.25d-1*gammabb*t14*t51*wght+1.25d-1*t14*t33*wght 21612 t82 = 1/rhob**9 21613 t83 = 3.4339200000000003d-2*gammabb*t27*t36*t50*taub+6.867 21614 1 840000000001d-2*t25*t28*t29*t36*taub+1.7169600000000002 21615 2 d-2*t25*t26*t32*taub-3.3333333333333337d+0*t25*t26*t27* 21616 3 taub+8.241408d-2*t23*t24*t36*t82+1.591893886464d-4*t23* 21617 4 t24*t35*t50*t60+1.591893886464d-4*t18*t29*t30*t35*t60+1 21618 5 .591893886464d-4*gammabb*t25*t27*t28*t35*t60+5.494272d- 21619 6 2*gammabb*t27*t28*t36*t37+2.747136d-2*gammabb*t26*t31*t 21620 7 37-1.0666666666666666d+1*gammabb*t23*t26*t37+5.30631295 21621 8 488d-5*t18*t28*t32*t35*t36+5.30631295488d-5*gammabb*t25 21622 9 *t31*t35*t36-1.030176d-2*t18*t27*t28*t35*t36-2.060352d- 21623 : 2*gammabb*t23*t25*t35*t36+2.747136d-2*t29*t30*t34*t36-5 21624 ; .15088d-3*t18*t26*t31*t35+1.373568d-2*t26*t28*t32*t34-2 21625 < .6666666666666666d+0*t22*t31*t34-2.6666666666666666d+0* 21626 = t26*t27*t28*t34 21627 t84 = 1.0d+0*rhob*t14*t17*t83*wght+1.0d+0*rhob*t17*t48*t51 21628 1 *wght+1.0d+0*t14*t17*t51*wght-1.25d-1*t16*t33*t48*wght- 21629 2 1.25d-1*t14*t16*t38*wght-1.25d-1*t14*t15*t16*t33*wght 21630 t85 = 1.373568d-2*t14*t17*t33*wght-5.15088d-3*t49 21631 t86 = 1/rhob**1.0666666666666666d+1 21632 t87 = 1.591893886464d-4*t23*t24*t60*t86+1.591893886464d-4* 21633 1 gammabb*t27*t28*t50*t60+1.591893886464d-4*t25*t29*t30*t 21634 2 60+5.30631295488d-5*gammabb*t31*t36*t50-4.120704d-2*gam 21635 3 mabb*t23*t36*t50+5.30631295488d-5*t25*t28*t32*t36-2.060 21636 4 352d-2*t25*t27*t28*t36-1.030176d-2*t25*t26*t31+2*t23*t2 21637 5 5*t26 21638 t88 = 1.373568d-1*t28*t29*t36*t53*taub+3.4339200000000003d 21639 1 -2*t26*t32*t53*taub-1.3333333333333333d+1*t26*t29*t53*t 21640 2 aub+6.867840000000001d-2*gammabb*t27*t36*t52*taub+3.183 21641 3 787772928d-4*gammabb*t27*t28*t35*t53*t60+3.183787772928 21642 4 d-4*t23*t24*t35*t52*t60+3.183787772928d-4*t19*t29*t30*t 21643 5 35*t60+1.061262590976d-4*gammabb*t31*t35*t36*t53-2.0603 21644 6 52d-2*gammabb*t27*t35*t36*t53+1.4422464000000002d-1*t23 21645 7 *t24*t36*t50+1.061262590976d-4*t19*t28*t32*t35*t36-4.12 21646 8 0704d-2*t19*t28*t29*t35*t36+3.4339200000000003d-2*t18*t 21647 9 29*t30*t36+8.928192d-2*gammabb*t25*t27*t28*t36-1.030176 21648 : d-2*t19*t26*t32*t35+1.7169600000000002d-2*t18*t26*t28*t 21649 ; 32-3.3333333333333337d+0*t18*t22*t32+4.464096d-2*gammab 21650 < b*t25*t26*t31-6.666666666666667d+0*t18*t26*t28*t29-8.66 21651 = 6666666666666d+0*gammabb*t25*t26*t27 21652 t89 = 1.0d+0*rhob*t14*t17*t88*wght+1.25d-1*gammabb*t33*t48 21653 1 *t56*wght+1.25d-1*gammabb*t14*t38*t56*wght+1.25d-1*gamm 21654 2 abb*t14*t15*t33*t56*wght+1.0d+0*rhob*t17*t48*t54*wght+1 21655 3 .0d+0*t14*t17*t54*wght 21656 t90 = 1.7169600000000002d-2*t14*t17*t33*wght-1.030176d-2*t 21657 1 49 21658 t91 = 1/rhob**9.666666666666666d+0 21659 t92 = 3.183787772928d-4*t23*t24*t60*t91+3.183787772928d-4* 21660 1 t29*t30*t53*t60+3.183787772928d-4*gammabb*t27*t28*t52*t 21661 2 60+1.061262590976d-4*t28*t32*t36*t53-4.120704d-2*t28*t2 21662 3 9*t36*t53-2.060352d-2*t27*t28*t36*t53-1.030176d-2*t26*t 21663 4 32*t53-1.030176d-2*t26*t31*t53+2.0d+0*t26*t27*t53+1.061 21664 5 262590976d-4*gammabb*t31*t36*t52-2.060352d-2*gammabb*t2 21665 6 7*t36*t52-4.120704d-2*gammabb*t23*t36*t52 21666 t93 = 1/rhob**3.3333333333333337d+0 21667 t94 = 1/rhob**8.666666666666666d+0 21668 t95 = 1/rhob**6 21669 t96 = 6.367575545856d-4*gammabb*t27*t28*t60*t95+2.12252518 21670 1 1952d-4*gammabb*t31*t36*t95-8.241408d-2*gammabb*t27*t36 21671 2 *t95+6.367575545856d-4*t23*t24*t60*t94+6.367575545856d- 21672 3 4*t29*t30*t60*t93+2.122525181952d-4*t28*t32*t36*t93-1.6 21673 4 482816d-1*t28*t29*t36*t93-4.120704d-2*t26*t32*t93+8.0d+ 21674 5 0*t26*t29*t93 21675 t97 = 1/taub**3 21676 t98 = t35**3 21677 t99 = 1/rhob**3 21678 t100 = 1/t21**5 21679 t101 = 1/rhob**5.666666666666667d+0 21680 t102 = -3.2592592592592595d+1*t61*taub-4.5629629629629626d 21681 1 +1*gammabb*t101 21682 t103 = t43**3 21683 t104 = 1/t2**7 21684 t105 = 1/rhob**3.1666666666666665d+0 21685 t106 = t46**3 21686 t107 = -1.25d-1*gammabb*t14*t51*wght-1.25d-1*t14*t33*wght 21687 t108 = 1.25d-1*gammabb*t14*t87*wght+2.5d-1*t14*t51*wght 21688 t109 = -1.030176d-2*t84 21689 t110 = -1.030176d-2*t81 21690 t111 = -1.28772d-3*gammabb*t14*t51*wght 21691 t112 = -1.28772d-3*t14*t33*wght 21692 t113 = 1/rhob**5 21693 t114 = 1/rhob**7.666666666666667d+0 21694 fnc(iq) = 1.0d+0*rhob*t14*t17*t22*t33*wght+fnc(iq) 21695 Amat(iq,D1_RB) = -5.15088d-3*rhob*t14*t17*t26*t33*t35*wght 21696 1 +1.25d-1*gammabb*t14*t15*t16*t22*t33*wght+t22*t49+Amat( 21697 2 iq,D1_RB) 21698 Cmat(iq,D1_GBB) = 1.0d+0*rhob*t14*t17*t22*t51*wght-5.15088 21699 1 d-3*t14*t17*t19*t26*t33*wght-1.25d-1*t14*t16*t22*t33*wg 21700 2 ht+Cmat(iq,D1_GBB) 21701 Mmat(iq,D1_TB) = 1.25d-1*gammabb*t14*t22*t33*t56*wght+1.0d 21702 1 +0*rhob*t14*t17*t22*t54*wght-1.030176d-2*t1*t14*t17*t26 21703 2 *t33*wght+Mmat(iq,D1_TB) 21704 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 21705 Amat2(iq,D2_RB_RB) = -1.25d-1*gammabb*t14*t16*t22*t33*t58* 21706 1 wght+5.30631295488d-5*rhob*t14*t17*t33*t36*t57*wght-1.2 21707 2 8772d-3*gammabb*t14*t15*t16*t26*t33*t35*wght+t26*t80+t2 21708 3 2*t79+t15*t16*t22*t59+Amat2(iq,D2_RB_RB) 21709 Cmat2(iq,D2_RB_GBB) = -5.15088d-3*rhob*t14*t17*t26*t35*t51 21710 1 *wght+5.30631295488d-5*t14*t17*t19*t33*t35*t36*wght+6.4 21711 2 386d-4*t14*t16*t26*t33*t35*wght-6.4386d-4*gammabb*t14*t 21712 3 16*t26*t33*t34*wght+t18*t26*t85+t22*t84+t15*t16*t22*t81 21713 4 +Cmat2(iq,D2_RB_GBB) 21714 Cmat2(iq,D2_GBB_GBB) = 1.0d+0*rhob*t14*t17*t22*t87*wght+5. 21715 1 30631295488d-5*t14*t17*t33*t36*t53*wght-1.030176d-2*t14 21716 2 *t17*t19*t26*t51*wght-2.5d-1*t14*t16*t22*t51*wght+1.287 21717 3 72d-3*t14*t16*t18*t26*t33*wght+Cmat2(iq,D2_GBB_GBB) 21718 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 21719 Mmat2(iq,D2_RB_TB) = -6.4386d-4*gammabb*t14*t26*t33*t35*t5 21720 1 6*wght-1.25d-1*gammabb*t14*t15*t22*t33*t56*wght-5.15088 21721 2 d-3*rhob*t14*t17*t26*t35*t54*wght+1.25d-1*gammabb*t14*t 21722 3 15*t16*t22*t54*wght+1.061262590976d-4*t1*t14*t17*t33*t3 21723 4 5*t36*wght-1.28772d-3*gammabb*t14*t16*t18*t26*t33*wght+ 21724 5 t19*t26*t90+t22*t89+Mmat2(iq,D2_RB_TB) 21725 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 21726 Mmat2(iq,D2_GBB_TB) = 1.061262590976d-4*t14*t17*t33*t36*t9 21727 1 3*wght+1.0d+0*rhob*t14*t17*t22*t92*wght-6.4386d-4*gamma 21728 2 bb*t14*t18*t26*t33*t56*wght-5.15088d-3*t14*t17*t19*t26* 21729 3 t54*wght-1.25d-1*t14*t16*t22*t54*wght-1.030176d-2*t1*t1 21730 4 4*t17*t26*t51*wght+1.28772d-3*t14*t16*t19*t26*t33*wght+ 21731 5 t22*t56*t81+Mmat2(iq,D2_GBB_TB) 21732 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 21733 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 21734 Mmat2(iq,D2_TB_TB) = -2.5d-1*gammabb*t14*t22*t33*t97*wght+ 21735 1 1.0d+0*rhob*t14*t17*t22*t96*wght+2.122525181952d-4*t14* 21736 2 t17*t33*t36*t70*wght+2.5d-1*gammabb*t14*t22*t54*t56*wgh 21737 3 t-2.57544d-3*gammabb*t14*t19*t26*t33*t56*wght-2.060352d 21738 4 -2*t1*t14*t17*t26*t54*wght+Mmat2(iq,D2_TB_TB) 21739 Amat3(iq,D3_RB_RB_RB) = t22*(1.0d+0*rhob*t14*t17*(-2.01481 21740 1 48148148146d+2*gammabb*t26*t27*t63*taub+2.060352d-1*t18 21741 2 *t28*t29*t36*t62*taub+1.030176d-1*gammabb*t25*t27*t36*t 21742 3 62*taub+5.15088d-2*t18*t26*t32*t62*taub-3.2592592592592 21743 4 595d+1*t22*t32*t61*taub-6.518518518518519d+1*t26*t28*t2 21744 5 9*t61*taub-3.183787772928d-3*t18*t28*t29*t57*t60*taub-1 21745 6 .591893886464d-3*gammabb*t25*t27*t57*t60*taub-5.3063129 21746 7 5488d-4*t18*t32*t36*t57*taub-8.241408d-1*gammabb*t27*t3 21747 8 5*t36*t37*taub-5.494272d-1*t28*t29*t34*t35*t36*taub-1.3 21748 9 73568d-1*t26*t32*t34*t35*taub-8.199654381909689d-7*t28* 21749 : t32*t60*t98-8.199654381909689d-7*gammabb*t18*t31*t60*t9 21750 ; 8-3.2798617527638757d-6*t100*t29*t30*t98-3.279861752763 21751 < 8757d-6*gammabb*t100*t18*t27*t28*t98-3.2798617527638757 21752 = d-6*t100*t23*t24*t25*t98-1.0439116799999999d+0*t23*t24* 21753 > t35*t36*t63+4.7756816593920004d-4*t29*t30*t35*t60*t62+4 21754 ? .7756816593920004d-4*gammabb*t18*t27*t28*t35*t60*t62+4. 21755 @ 7756816593920004d-4*t23*t24*t25*t35*t60*t62+1.6482816d- 21756 1 1*t23*t24*t36*t37*t62+1.591893886464d-4*t28*t32*t35*t36 21757 2 *t62+1.591893886464d-4*gammabb*t18*t31*t35*t36*t62+8.24 21758 3 1408d-2*gammabb*t27*t28*t34*t36*t62+4.120704d-2*gammabb 21759 4 *t26*t31*t34*t62-3.0218496d-1*gammabb*t27*t28*t35*t36*t 21760 5 61-1.5109248d-1*gammabb*t26*t31*t35*t61-2.5470302183424 21761 6 004d-3*t23*t24*t37*t57*t60-1.2735151091712002d-3*gammab 21762 7 b*t27*t28*t34*t57*t60-4.245050363904d-4*gammabb*t31*t34 21763 8 *t36*t57-1.777777777777778d+2*t26*t29*t37*t55-6.8678400 21764 9 00000001d-1*t25*t29*t35*t36*t55-1.030176d-2*t102*t29*t3 21765 : 0*t36-1.030176d-2*gammabb*t102*t18*t27*t28*t36-1.030176 21766 ; d-2*t102*t23*t24*t25*t36-5.15088d-3*t102*t26*t28*t32-5. 21767 < 15088d-3*gammabb*t102*t18*t26*t31-4.5629629629629626d+1 21768 = *gammabb*t101*t22*t31-4.5629629629629626d+1*gammabb*t10 21769 > 1*t26*t27*t28-2.477037037037037d+2*t23*t24*t26/rhob**8. 21770 ? 333333333333334d+0)*wght-2.5d-1*gammabb*t14*t16*t33*t99 21771 @ *wght+1.0d+0*rhob*t17*t33*(4.1099018897499934d-3*t8*t93 21772 1 +9.490883560204437d-19*t12*t93+1.1102230246251565d-16*t 21773 2 13*t39*t44*(-2.3079979182303428d+0*t93-5.62075355777054 21774 3 3d-1*t34-2.520426340996149d+0*t105-1.5008036906238065d+ 21775 4 0*t104)+1.0d+0*t45*t47*t9*(-3.9871442462415524d+0*t93-7 21776 5 .128507529742789d-1*t34-4.684972743248224d+0*t105-3.083 21777 6 875829189267d+0*t104)-6.0d+0*t45*t46*t76*t77*t9+9.64918 21778 7 7699215522d+1*t46*t73*t75*t77*t9+6.0d+0*t106*t45*t75*t9 21779 8 -1.9298375398431045d+2*t106*t73*t9/t6**5+2.069040516770 21780 9 9364d+3*t106*t9/(t6**6*t7**3)-1.274696188700087d-1*t41* 21781 : t45*t47*t77+2.549392377400174d-1*t41*t45*t74*t76-4.0999 21782 ; 275947472624d+0*t41*t73*t74*t75-6.661338147750939d-16*t 21783 < 13*t39*t43*t68*t72+5.356375176299456d-15*t13*t43*t65*t6 21784 = 7*t72-1.4718104502398274d-17*t39*t41*t44*t72+1.69959491 21785 > 82667827d-1*t45*t46*t47*t70+1.962413933653103d-17*t39*t 21786 ? 43*t44*t70+2.943620900479655d-17*t39*t41*t66*t68-2.3669 21787 @ 625486718335d-16*t41*t65*t66*t67+6.661338147750939d-16* 21788 1 t103*t13*t39*t67-1.0712750352598913d-14*t103*t13*t65/t1 21789 2 0**5+5.742741051503565d-14*t103*t13/(t10**6*t11**3))*wg 21790 3 ht+3.0d+0*rhob*t17*t38*t78*wght+3.0d+0*t17*t33*t78*wght 21791 4 +2.5d-1*gammabb*t15*t16*t33*t78*wght+3.0d+0*rhob*t17*t4 21792 5 8*t64*wght+3.0d+0*t14*t17*t64*wght+2.5d-1*gammabb*t14*t 21793 6 15*t16*t64*wght+2.5d-1*gammabb*t16*t33*t48*t58*wght+2.5 21794 7 d-1*gammabb*t14*t16*t38*t58*wght+6.0d+0*t17*t38*t48*wgh 21795 8 t+5.0d-1*gammabb*t15*t16*t38*t48*wght)+t26*(-5.15088d-3 21796 9 *rhob*t17*t33*t35*t78*wght-5.15088d-3*rhob*t14*t17*t35* 21797 : t64*wght-1.030176d-2*rhob*t17*t33*t48*t62*wght-1.030176 21798 ; d-2*rhob*t14*t17*t38*t62*wght-1.030176d-2*t14*t17*t33*t 21799 < 62*wght-6.4386d-4*gammabb*t14*t15*t16*t33*t62*wght-6.43 21800 = 86d-4*gammabb*t14*t16*t33*t35*t58*wght-1.030176d-2*rhob 21801 > *t17*t35*t38*t48*wght-1.030176d-2*t17*t33*t35*t48*wght- 21802 ? 6.4386d-4*gammabb*t15*t16*t33*t35*t48*wght-1.030176d-2* 21803 @ t14*t17*t35*t38*wght-6.4386d-4*gammabb*t14*t15*t16*t35* 21804 1 t38*wght-5.15088d-3*rhob*t102*t14*t17*t33*wght-1.030176 21805 2 d-2*t35*t79-5.15088d-3*t49*t62)+t15*t16*t22*(1.25d-1*ga 21806 3 mmabb*t33*t78*wght+1.25d-1*gammabb*t14*t64*wght+2.5d-1* 21807 4 gammabb*t38*t48*wght)+t36*(1.061262590976d-4*rhob*t14*t 21808 5 17*t33*t35*t62*wght+5.30631295488d-5*rhob*t17*t33*t48*t 21809 6 57*wght+5.30631295488d-5*rhob*t14*t17*t38*t57*wght+5.30 21810 7 631295488d-5*t14*t17*t33*t57*wght-1.030176d-2*t35*t80)+ 21811 8 t15*t16*t26*(-1.28772d-3*gammabb*t14*t33*t62*wght-1.287 21812 9 72d-3*gammabb*t33*t35*t48*wght-1.28772d-3*gammabb*t14*t 21813 : 35*t38*wght-5.15088d-3*t35*t59)+t16*t22*t58*(-2.5d-1*ga 21814 ; mmabb*t33*t48*wght-2.5d-1*gammabb*t14*t38*wght)+2.5d-1* 21815 < gammabb*t14*t16*t22*t33*t99*wght-8.199654381909689d-7*r 21816 = hob*t14*t17*t33*t60*t98*wght+1.93158d-3*gammabb*t14*t16 21817 > *t26*t33*t35*t58*wght+1.9898673580800003d-5*gammabb*t14 21818 ? *t15*t16*t33*t36*t57*wght+Amat3(iq,D3_RB_RB_RB) 21819 Cmat3(iq,D3_RB_RB_GBB) = t22*(1.0d+0*rhob*t14*t17*(-4.5785 21820 1 6d-1*gammabb*t27*t36*t82*taub-1.061262590976d-3*gammabb 21821 2 *t27*t35*t50*t60*taub-2.122525181952d-3*t25*t28*t29*t35 21822 3 *t60*taub-5.494272d-1*t28*t29*t36*t37*taub-1.373568d-1* 21823 4 t26*t32*t37*taub+2.6666666666666666d+1*t26*t27*t37*taub 21824 5 -3.53754196992d-4*t25*t32*t35*t36*taub+6.86784000000000 21825 6 1d-2*t25*t27*t35*t36*taub-2.5470302183424004d-3*t23*t24 21826 7 *t35*t60*t82-3.4797056000000004d-1*gammabb*t27*t28*t36* 21827 8 t63-1.7398528000000002d-1*gammabb*t26*t31*t63+6.7555555 21828 9 55555556d+1*gammabb*t23*t26*t63+1.591893886464d-4*t23*t 21829 : 24*t50*t60*t62+1.591893886464d-4*t18*t29*t30*t60*t62+1. 21830 ; 591893886464d-4*gammabb*t25*t27*t28*t60*t62+5.306312954 21831 < 88d-5*t18*t28*t32*t36*t62+5.30631295488d-5*gammabb*t25* 21832 = t31*t36*t62-1.030176d-2*t18*t27*t28*t36*t62-2.060352d-2 21833 > *gammabb*t23*t25*t36*t62-5.15088d-3*t18*t26*t31*t62-1.0 21834 ? 072832000000001d-1*t29*t30*t36*t61-5.036416d-2*t26*t28* 21835 @ t32*t61+9.777777777777779d+0*t22*t31*t61+9.777777777777 21836 1 779d+0*t26*t27*t28*t61-8.199654381909689d-7*t18*t28*t32 21837 2 *t57*t60-8.199654381909689d-7*gammabb*t25*t31*t57*t60+1 21838 3 .591893886464d-4*t18*t27*t28*t57*t60+3.183787772928d-4* 21839 4 gammabb*t23*t25*t57*t60-1.6980201455616d-3*gammabb*t27* 21840 5 t28*t35*t37*t60-8.490100727808d-4*t29*t30*t34*t35*t60-3 21841 6 .2798617527638757d-6*t100*t23*t24*t50*t57+5.30631295488 21842 7 d-5*t18*t31*t36*t57-3.2798617527638757d-6*t100*t18*t29* 21843 8 t30*t57-3.2798617527638757d-6*gammabb*t100*t25*t27*t28* 21844 9 t57-2.2892800000000002d-1*t29*t36*t50*t55-5.66006715187 21845 : 2d-4*gammabb*t31*t35*t36*t37+2.1977088d-1*gammabb*t23*t 21846 ; 35*t36*t37-2.830033575936d-4*t28*t32*t34*t35*t36+5.4942 21847 < 72d-2*t27*t28*t34*t35*t36-7.4172672d-1*t23*t24*t36/rhob 21848 = **10+2.747136d-2*t26*t31*t34*t35)*wght+2.0d+0*rhob*t17* 21849 > t48*t83*wght+2.0d+0*t14*t17*t83*wght+1.25d-1*gammabb*t1 21850 ? 4*t15*t16*t83*wght+1.0d+0*rhob*t17*t51*t78*wght-1.25d-1 21851 @ *t16*t33*t78*wght-1.25d-1*t14*t16*t64*wght+1.25d-1*gamm 21852 1 abb*t14*t16*t51*t58*wght+1.25d-1*t14*t16*t33*t58*wght+2 21853 2 .0d+0*t17*t48*t51*wght+1.25d-1*gammabb*t15*t16*t48*t51* 21854 3 wght-2.5d-1*t16*t38*t48*wght-1.25d-1*t15*t16*t33*t48*wg 21855 4 ht-1.25d-1*t14*t15*t16*t38*wght)+t26*(-5.15088d-3*rhob* 21856 5 t14*t17*t35*t83*wght-5.15088d-3*rhob*t14*t17*t51*t62*wg 21857 6 ht+6.4386d-4*t14*t16*t33*t62*wght-5.15088d-3*rhob*t17*t 21858 7 35*t48*t51*wght-5.15088d-3*t14*t17*t35*t51*wght+6.4386d 21859 8 -4*t16*t33*t35*t48*wght+1.373568d-2*t17*t18*t33*t48*wgh 21860 9 t+6.4386d-4*t14*t16*t35*t38*wght+1.373568d-2*t14*t17*t1 21861 : 8*t38*wght+6.4386d-4*t14*t15*t16*t33*t35*wght-3.6628480 21862 ; 00000001d-2*t14*t17*t33*t34*wght-5.15088d-3*t35*t84+1.3 21863 < 73568d-2*t34*t49)+t15*t16*t22*(1.25d-1*gammabb*t14*t83* 21864 = wght+1.25d-1*gammabb*t48*t51*wght+1.25d-1*t33*t48*wght+ 21865 > 1.25d-1*t14*t38*wght)+t15*t16*t26*(-1.28772d-3*gammabb* 21866 ? t14*t35*t51*wght-1.28772d-3*t14*t33*t35*wght)+t18*t36*( 21867 @ -2.830033575936d-4*t14*t17*t33*t35*wght-1.030176d-2*t80 21868 1 )+4.07778d-3*gammabb*t14*t16*t26*t33*t61*wght-8.1996543 21869 2 81909689d-7*t14*t17*t19*t33*t57*t60*wght+5.30631295488d 21870 3 -5*rhob*t14*t17*t36*t51*t57*wght-6.6328911936d-6*t14*t1 21871 4 6*t33*t36*t57*wght+1.32657823872d-5*gammabb*t14*t16*t33 21872 5 *t34*t35*t36*wght-5.15088d-3*t18*t26*t79-5.15088d-3*t16 21873 6 *t26*t34*t59+t107*t16*t22*t58+Cmat3(iq,D3_RB_RB_GBB) 21874 Cmat3(iq,D3_RB_GBB_GBB) = t22*(1.0d+0*rhob*t14*t17*(-5.306 21875 1 31295488d-4*gammabb*t27*t60*t86*taub-1.061262590976d-3* 21876 2 t28*t29*t50*t60*taub-1.76877098496d-4*t32*t36*t50*taub+ 21877 3 6.867840000000001d-2*t27*t36*t50*taub-3.279861752763875 21878 4 7d-6*t100*t23*t24*t35*t86-1.2735151091712002d-3*gammabb 21879 5 *t27*t28*t60*t82-4.245050363904d-4*gammabb*t31*t36*t82+ 21880 6 3.2965632d-1*gammabb*t23*t36*t82-8.199654381909689d-7*g 21881 7 ammabb*t31*t35*t50*t60+6.367575545856d-4*gammabb*t23*t3 21882 8 5*t50*t60-8.490100727808d-4*t29*t30*t37*t60-8.199654381 21883 9 909689d-7*t25*t28*t32*t35*t60+3.183787772928d-4*t25*t27 21884 : *t28*t35*t60-1.6980201455616d-3*t23*t24*t60/rhob**1.166 21885 ; 6666666666665d+1-3.2798617527638757d-6*gammabb*t100*t27 21886 < *t28*t35*t50-2.830033575936d-4*t28*t32*t36*t37+1.098854 21887 = 4d-1*t27*t28*t36*t37+5.494272d-2*t26*t31*t37-1.06666666 21888 > 66666666d+1*t23*t26*t37+1.061262590976d-4*t25*t31*t35*t 21889 ? 36-2.060352d-2*t23*t25*t35*t36-3.2798617527638757d-6*t1 21890 @ 00*t25*t29*t30*t35)*wght+1.0d+0*rhob*t17*t48*t87*wght+1 21891 1 .0d+0*t14*t17*t87*wght-2.5d-1*t14*t16*t83*wght-2.5d-1*t 21892 2 16*t48*t51*wght-2.5d-1*t14*t15*t16*t51*wght)+t18*t26*(2 21893 3 .747136d-2*t14*t17*t51*wght-1.7169600000000002d-3*t14*t 21894 4 15*t16*t33*wght+t109)+t16*t26*t34*(-6.4386d-4*gammabb*t 21895 5 14*t51*wght-2.3608200000000001d-3*t14*t33*wght-5.15088d 21896 6 -3*t81)+t25*t36*(-1.415016787968d-4*t14*t17*t33*wght-1. 21897 7 030176d-2*t85)-5.15088d-3*rhob*t14*t17*t26*t35*t87*wght 21898 8 -8.199654381909689d-7*t14*t17*t33*t35*t53*t60*wght+1.06 21899 9 1262590976d-4*t14*t17*t19*t35*t36*t51*wght+1.28772d-3*t 21900 : 14*t16*t26*t35*t51*wght+6.6328911936d-6*gammabb*t14*t16 21901 ; *t33*t36*t37*wght-1.32657823872d-5*t14*t16*t18*t33*t35* 21902 < t36*wght+t108*t15*t16*t22+Cmat3(iq,D3_RB_GBB_GBB) 21903 Cmat3(iq,D3_GBB_GBB_GBB) = -1.545264d-2*t14*t17*t19*t26*t8 21904 1 7*wght-3.75d-1*t14*t16*t22*t87*wght+1.0d+0*rhob*t14*t17 21905 2 *t22*(-8.199654381909689d-7*gammabb*t31*t60*t86+9.55136 21906 3 3318784001d-4*gammabb*t23*t60*t86-3.2798617527638757d-6 21907 4 *gammabb*t100*t27*t28*t86-8.199654381909689d-7*t28*t32* 21908 5 t50*t60+4.7756816593920004d-4*t27*t28*t50*t60+1.5918938 21909 6 86464d-4*t31*t36*t50-6.181056d-2*t23*t36*t50-3.27986175 21910 7 27638757d-6*t100*t29*t30*t50-3.2798617527638757d-6*t100 21911 8 *t23*t24/rhob**1.3333333333333333d+1)*wght-8.1996543819 21912 9 09689d-7*t14*t17*t33*t52*t60*wght+1.591893886464d-4*t14 21913 : *t17*t36*t51*t53*wght+3.86316d-3*t14*t16*t18*t26*t51*wg 21914 ; ht-1.9898673580800003d-5*t14*t16*t25*t33*t36*wght+Cmat3 21915 < (iq,D3_GBB_GBB_GBB) 21916 Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA) 21917 Mmat3(iq,D3_RB_RB_TB) = t22*(1.0d+0*rhob*t14*t17*(-4.24505 21918 1 0363904d-3*t28*t29*t35*t53*t60*taub-2.122525181952d-3*g 21919 2 ammabb*t27*t35*t52*t60*taub-7.07508393984d-4*t32*t35*t3 21920 3 6*t53*taub+2.747136d-1*t29*t35*t36*t53*taub-7.783552d-1 21921 4 *gammabb*t27*t36*t50*taub-8.241408000000001d-1*t25*t28* 21922 5 t29*t36*taub-2.0603520000000003d-1*t25*t26*t32*taub+8.0 21923 6 d+1*t25*t26*t29*taub-1.1537971200000001d+0*t23*t24*t36* 21924 7 t82+3.183787772928d-4*gammabb*t27*t28*t53*t60*t62+3.183 21925 8 787772928d-4*t23*t24*t52*t60*t62+3.183787772928d-4*t19* 21926 9 t29*t30*t60*t62+1.061262590976d-4*gammabb*t31*t36*t53*t 21927 : 62-2.060352d-2*gammabb*t27*t36*t53*t62+1.061262590976d- 21928 ; 4*t19*t28*t32*t36*t62-4.120704d-2*t19*t28*t29*t36*t62-1 21929 < .030176d-2*t19*t26*t32*t62-1.6399308763819376d-6*gammab 21930 = b*t31*t53*t57*t60+3.183787772928d-4*gammabb*t27*t53*t57 21931 > *t60-1.6399308763819376d-6*t19*t28*t32*t57*t60+6.367575 21932 ? 545856d-4*t19*t28*t29*t57*t60-4.4573028820992006d-3*t23 21933 @ *t24*t35*t50*t60-1.0612625909760003d-3*t18*t29*t30*t35* 21934 1 t60-2.7592827365376d-3*gammabb*t25*t27*t28*t35*t60-6.55 21935 2 9723505527751d-6*gammabb*t100*t27*t28*t53*t57-6.5597235 21936 3 05527751d-6*t100*t23*t24*t52*t57+1.061262590976d-4*t19* 21937 4 t32*t36*t57-6.559723505527751d-6*t100*t19*t29*t30*t57-4 21938 5 .5785600000000004d-1*t29*t36*t52*t55-4.7617024d-1*gamma 21939 6 bb*t27*t28*t36*t37-2.3808512d-1*gammabb*t26*t31*t37+4.6 21940 7 22222222222223d+1*gammabb*t26*t27*t37-3.537541969920000 21941 8 6d-4*t18*t28*t32*t35*t36-9.197609121792001d-4*gammabb*t 21942 9 25*t31*t35*t36+1.373568d-1*t18*t28*t29*t35*t36+1.785638 21943 : 4d-1*gammabb*t25*t27*t35*t36-9.157120000000001d-2*t29*t 21944 ; 30*t34*t36+3.4339200000000003d-2*t18*t26*t32*t35-4.5785 21945 < 600000000004d-2*t26*t28*t32*t34+8.88888888888889d+0*t22 21946 = *t32*t34+1.7777777777777778d+1*t26*t28*t29*t34)*wght+2. 21947 > 0d+0*rhob*t17*t48*t88*wght+2.0d+0*t14*t17*t88*wght+1.25 21948 ? d-1*gammabb*t14*t15*t16*t88*wght+1.25d-1*gammabb*t33*t5 21949 @ 6*t78*wght+1.0d+0*rhob*t17*t54*t78*wght+1.25d-1*gammabb 21950 1 *t14*t56*t64*wght-1.25d-1*gammabb*t14*t33*t56*t58*wght+ 21951 2 1.25d-1*gammabb*t14*t16*t54*t58*wght+2.5d-1*gammabb*t38 21952 3 *t48*t56*wght+1.25d-1*gammabb*t15*t33*t48*t56*wght+1.25 21953 4 d-1*gammabb*t14*t15*t38*t56*wght+2.0d+0*t17*t48*t54*wgh 21954 5 t+1.25d-1*gammabb*t15*t16*t48*t54*wght)+t26*(-5.15088d- 21955 6 3*rhob*t14*t17*t35*t88*wght-6.4386d-4*gammabb*t14*t33*t 21956 7 56*t62*wght-5.15088d-3*rhob*t14*t17*t54*t62*wght-6.4386 21957 8 d-4*gammabb*t33*t35*t48*t56*wght-6.4386d-4*gammabb*t14* 21958 9 t35*t38*t56*wght-6.4386d-4*gammabb*t14*t15*t33*t35*t56* 21959 : wght-5.15088d-3*rhob*t17*t35*t48*t54*wght-5.15088d-3*t1 21960 ; 4*t17*t35*t54*wght+1.7169600000000002d-2*t17*t19*t33*t4 21961 < 8*wght+1.7169600000000002d-2*t14*t17*t19*t38*wght-2.861 21962 = 6d-2*t14*t17*t18*t33*wght-5.15088d-3*t35*t89+1.71696000 21963 > 00000002d-2*t18*t49)+t15*t16*t22*(1.25d-1*gammabb*t14*t 21964 ? 88*wght+1.25d-1*gammabb*t48*t54*wght)+t15*t22*t56*(-1.2 21965 @ 5d-1*gammabb*t33*t48*wght-1.25d-1*gammabb*t14*t38*wght) 21966 1 +t19*t36*(-3.5375419699200006d-4*t14*t17*t33*t35*wght-2 21967 2 .060352d-2*t80)-1.6399308763819376d-6*t1*t14*t17*t33*t5 21968 3 7*t60*wght+1.25d-1*gammabb*t14*t22*t33*t56*t58*wght-1.2 21969 4 5d-1*gammabb*t14*t16*t22*t54*t58*wght+6.6328911936d-6*g 21970 5 ammabb*t14*t33*t36*t56*t57*wght+5.30631295488d-5*rhob*t 21971 6 14*t17*t36*t54*t57*wght+1.28772d-3*gammabb*t14*t15*t26* 21972 7 t33*t35*t56*wght-1.28772d-3*gammabb*t14*t15*t16*t26*t35 21973 8 *t54*wght+2.65315647744d-5*gammabb*t14*t16*t18*t33*t35* 21974 9 t36*wght+5.58012d-3*gammabb*t14*t16*t26*t33*t34*wght-1. 21975 : 030176d-2*t19*t26*t79-1.030176d-2*t16*t18*t26*t59+Mmat3 21976 ; (iq,D3_RB_RB_TB) 21977 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 21978 Mmat3(iq,D3_RB_GBB_TB) = t22*(1.0d+0*rhob*t14*t17*(-1.0612 21979 1 62590976d-3*gammabb*t27*t60*t91*taub-2.122525181952d-3* 21980 2 t28*t29*t52*t60*taub-3.53754196992d-4*t32*t36*t52*taub+ 21981 3 1.373568d-1*t29*t36*t52*taub+6.867840000000001d-2*t27*t 21982 4 36*t52*taub-6.559723505527751d-6*t100*t23*t24*t35*t91-3 21983 5 .0776615138304003d-3*t23*t24*t60*t86-1.6399308763819376 21984 6 d-6*t28*t32*t35*t53*t60+6.367575545856d-4*t28*t29*t35*t 21985 7 53*t60+3.183787772928d-4*t27*t28*t35*t53*t60-1.63993087 21986 8 63819376d-6*gammabb*t31*t35*t52*t60+3.183787772928d-4*g 21987 9 ammabb*t27*t35*t52*t60+6.367575545856d-4*gammabb*t23*t3 21988 : 5*t52*t60-2.2286514410496003d-3*gammabb*t27*t28*t50*t60 21989 ; -1.3796413682688d-3*t25*t29*t30*t60+1.061262590976d-4*t 21990 < 32*t35*t36*t53+1.061262590976d-4*t31*t35*t36*t53-2.0603 21991 = 52d-2*t27*t35*t36*t53-6.559723505527751d-6*t100*t29*t30 21992 > *t35*t53-6.559723505527751d-6*gammabb*t100*t27*t28*t35* 21993 ? t52-7.428838136832d-4*gammabb*t31*t36*t50+1.44224640000 21994 @ 00002d-1*gammabb*t27*t36*t50+2.8844928000000003d-1*gamm 21995 1 abb*t23*t36*t50-4.5988045608960004d-4*t25*t28*t32*t36+1 21996 2 .7856384d-1*t25*t28*t29*t36+8.928192d-2*t25*t27*t28*t36 21997 3 +4.464096d-2*t25*t26*t32+4.464096d-2*t25*t26*t31-8.6666 21998 4 66666666666d+0*t25*t26*t27)*wght+1.0d+0*rhob*t17*t48*t9 21999 5 2*wght+1.0d+0*t14*t17*t92*wght-1.25d-1*t14*t16*t88*wght 22000 6 +1.25d-1*gammabb*t14*t56*t83*wght+1.25d-1*gammabb*t48*t 22001 7 51*t56*wght+1.25d-1*gammabb*t14*t15*t51*t56*wght+1.25d- 22002 8 1*t33*t48*t56*wght+1.25d-1*t14*t38*t56*wght+1.25d-1*t14 22003 9 *t15*t33*t56*wght-1.25d-1*t16*t48*t54*wght-1.25d-1*t14* 22004 : t15*t16*t54*wght)+t15*t16*t22*(1.25d-1*gammabb*t14*t92* 22005 ; wght+1.25d-1*t14*t54*wght)+t18*t26*(1.7169600000000002d 22006 < -3*gammabb*t14*t15*t33*t56*wght+1.373568d-2*t14*t17*t54 22007 = *wght-5.15088d-3*t89)+t26*t56*(-6.4386d-4*gammabb*t14*t 22008 > 35*t51*wght-6.4386d-4*t14*t33*t35*wght)+t19*t26*(1.7169 22009 ? 600000000002d-2*t14*t17*t51*wght+t109)+t36*t53*(-1.7687 22010 @ 709849600003d-4*t14*t17*t33*wght-2.060352d-2*t85)+t16*t 22011 1 18*t26*(t110-2.1462d-3*t14*t33*wght)-1.6399308763819376 22012 2 d-6*t14*t17*t33*t35*t60*t93*wght-5.15088d-3*rhob*t14*t1 22013 3 7*t26*t35*t92*wght+6.6328911936d-6*gammabb*t14*t18*t33* 22014 4 t35*t36*t56*wght+6.4386d-4*gammabb*t14*t26*t33*t34*t56* 22015 5 wght+5.30631295488d-5*t14*t17*t19*t35*t36*t54*wght+6.43 22016 6 86d-4*t14*t16*t26*t35*t54*wght-6.4386d-4*gammabb*t14*t1 22017 7 6*t26*t34*t54*wght+1.061262590976d-4*t1*t14*t17*t35*t36 22018 8 *t51*wght-1.32657823872d-5*t14*t16*t19*t33*t35*t36*wght 22019 9 +1.32657823872d-5*gammabb*t14*t16*t25*t33*t36*wght+t107 22020 : *t15*t22*t56+Mmat3(iq,D3_RB_GBB_TB) 22021 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 22022 Mmat3(iq,D3_GBB_GBB_TB) = -1.6399308763819376d-6*t14*t17*t 22023 1 33*t60*t95*wght+2.122525181952d-4*t14*t17*t36*t51*t93*w 22024 2 ght-1.030176d-2*t14*t17*t19*t26*t92*wght-2.5d-1*t14*t16 22025 3 *t22*t92*wght+1.0d+0*rhob*t14*t17*t22*(-1.6399308763819 22026 4 376d-6*gammabb*t31*t60*t91+3.183787772928d-4*gammabb*t2 22027 5 7*t60*t91+1.2735151091712002d-3*gammabb*t23*t60*t91-6.5 22028 6 59723505527751d-6*gammabb*t100*t27*t28*t91-1.6399308763 22029 7 819376d-6*t28*t32*t52*t60+6.367575545856d-4*t28*t29*t52 22030 8 *t60+6.367575545856d-4*t27*t28*t52*t60+1.061262590976d- 22031 9 4*t32*t36*t52+2.122525181952d-4*t31*t36*t52-4.120704d-2 22032 : *t27*t36*t52-4.120704d-2*t23*t36*t52-6.559723505527751d 22033 ; -6*t100*t29*t30*t52-6.559723505527751d-6*t100*t23*t24/r 22034 < hob**1.2333333333333334d+1)*wght-1.030176d-2*t1*t14*t17 22035 = *t26*t87*wght+6.6328911936d-6*gammabb*t14*t25*t33*t36*t 22036 > 56*wght+5.30631295488d-5*t14*t17*t36*t53*t54*wght+1.287 22037 ? 72d-3*t14*t16*t18*t26*t54*wght-2.65315647744d-5*t14*t16 22038 @ *t33*t36*t53*wght+2.57544d-3*t14*t16*t19*t26*t51*wght+( 22039 1 t112+t111)*t18*t26*t56+t108*t22*t56+Mmat3(iq,D3_GBB_GBB 22040 2 _TB) 22041 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 22042 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 22043 Mmat3(iq,D3_RB_TB_TB) = t22*(1.0d+0*rhob*t14*t17*(-4.24505 22044 1 0363904d-3*t28*t29*t60*t95*taub-7.07508393984d-4*t32*t3 22045 2 6*t95*taub+5.494272d-1*t29*t36*t95*taub-2.122525181952d 22046 3 -3*gammabb*t27*t60*t94*taub-3.279861752763875d-6*gammab 22047 4 b*t31*t35*t60*t95+1.2735151091712002d-3*gammabb*t27*t35 22048 5 *t60*t95-1.3119447011055504d-5*gammabb*t100*t27*t28*t35 22049 6 *t95-1.3119447011055504d-5*t100*t23*t24*t35*t94-3.27986 22050 7 1752763875d-6*t28*t32*t35*t60*t93+2.5470302183424004d-3 22051 8 *t28*t29*t35*t60*t93+4.245050363904d-4*t32*t35*t36*t93- 22052 9 8.241408d-2*t29*t35*t36*t93-1.3119447011055504d-5*t100* 22053 : t29*t30*t35*t93-5.518565473075201d-3*t23*t24*t60*t91-2. 22054 ; 1225251819520005d-3*t29*t30*t53*t60-3.8205453275136003d 22055 < -3*gammabb*t27*t28*t52*t60-7.075083939840001d-4*t28*t32 22056 = *t36*t53+5.494272d-1*t28*t29*t36*t53+1.373568d-1*t26*t3 22057 > 2*t53-2.6666666666666666d+1*t26*t29*t53-1.2735151091712 22058 ? 002d-3*gammabb*t31*t36*t52+4.9448448d-1*gammabb*t27*t36 22059 @ *t52)*wght-2.5d-1*gammabb*t33*t48*t97*wght-2.5d-1*gamma 22060 1 bb*t14*t38*t97*wght-2.5d-1*gammabb*t14*t15*t33*t97*wght 22061 2 +1.0d+0*rhob*t17*t48*t96*wght+1.0d+0*t14*t17*t96*wght+2 22062 3 .5d-1*gammabb*t14*t56*t88*wght+2.5d-1*gammabb*t48*t54*t 22063 4 56*wght+2.5d-1*gammabb*t14*t15*t54*t56*wght)+t19*t26*(2 22064 5 .1462d-3*gammabb*t14*t15*t33*t56*wght+3.433920000000000 22065 6 3d-2*t14*t17*t54*wght-2.060352d-2*t89)+t36*t93*(-3.5375 22066 7 419699200006d-4*t14*t17*t33*wght-2.060352d-2*t90)+1.287 22067 8 72d-3*gammabb*t14*t26*t33*t35*t97*wght+2.5d-1*gammabb*t 22068 9 14*t15*t22*t33*t97*wght-5.15088d-3*rhob*t14*t17*t26*t35 22069 : *t96*wght+1.25d-1*gammabb*t14*t15*t16*t22*t96*wght-3.27 22070 ; 9861752763875d-6*t14*t17*t33*t35*t60*t70*wght-1.28772d- 22071 < 3*gammabb*t14*t26*t35*t54*t56*wght-2.5d-1*gammabb*t14*t 22072 = 15*t22*t54*t56*wght+2.65315647744d-5*gammabb*t14*t19*t3 22073 > 3*t35*t36*t56*wght+4.7216400000000003d-3*gammabb*t14*t1 22074 ? 8*t26*t33*t56*wght+2.122525181952d-4*t1*t14*t17*t35*t36 22075 @ *t54*wght-2.57544d-3*gammabb*t14*t16*t18*t26*t54*wght+2 22076 1 .65315647744d-5*gammabb*t14*t16*t33*t36*t53*wght+Mmat3( 22077 2 iq,D3_RB_TB_TB) 22078 Mmat3(iq,D3_GBB_TA_TA) = Mmat3(iq,D3_GBB_TA_TA) 22079 Mmat3(iq,D3_GBB_TA_TB) = Mmat3(iq,D3_GBB_TA_TB) 22080 Mmat3(iq,D3_GBB_TB_TB) = t22*t56*(2.5d-1*gammabb*t14*t92*w 22081 1 ght+2.5d-1*t14*t54*wght)+1.28772d-3*gammabb*t14*t18*t26 22082 2 *t33*t97*wght-5.15088d-3*t14*t17*t19*t26*t96*wght-1.25d 22083 3 -1*t14*t16*t22*t96*wght+1.0d+0*rhob*t14*t17*t22*(-3.279 22084 4 861752763875d-6*t28*t32*t60*t95+2.5470302183424004d-3*t 22085 5 28*t29*t60*t95+6.367575545856d-4*t27*t28*t60*t95+4.2450 22086 6 50363904d-4*t32*t36*t95+2.122525181952d-4*t31*t36*t95-8 22087 7 .241408d-2*t29*t36*t95-8.241408d-2*t27*t36*t95-1.311944 22088 8 7011055504d-5*t100*t29*t30*t95-3.279861752763875d-6*gam 22089 9 mabb*t31*t60*t94+1.2735151091712002d-3*gammabb*t27*t60* 22090 : t94+1.2735151091712002d-3*gammabb*t23*t60*t94-1.3119447 22091 ; 011055504d-5*gammabb*t100*t27*t28*t94-1.311944701105550 22092 < 4d-5*t100*t23*t24/rhob**1.1333333333333334d+1)*wght+2.1 22093 = 22525181952d-4*t14*t17*t36*t54*t93*wght-2.65315647744d- 22094 > 5*t14*t16*t33*t36*t93*wght-2.060352d-2*t1*t14*t17*t26*t 22095 ? 92*wght+2.122525181952d-4*t14*t17*t36*t51*t70*wght-3.27 22096 @ 9861752763875d-6*t113*t14*t17*t33*t60*wght-1.28772d-3*g 22097 1 ammabb*t14*t18*t26*t54*t56*wght+2.65315647744d-5*gammab 22098 2 b*t14*t33*t36*t53*t56*wght+2.57544d-3*t14*t16*t19*t26*t 22099 3 54*wght-2*t22*t81*t97+(t112+t111+t110)*t19*t26*t56+Mmat 22100 4 3(iq,D3_GBB_TB_TB) 22101 Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA) 22102 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 22103 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 22104 Mmat3(iq,D3_TB_TB_TB) = 7.5d-1*gammabb*t14*t22*t33*wght/ta 22105 1 ub**4-7.5d-1*gammabb*t14*t22*t54*t97*wght+7.72632d-3*ga 22106 2 mmabb*t14*t19*t26*t33*t97*wght+3.75d-1*gammabb*t14*t22* 22107 3 t56*t96*wght-3.090528d-2*t1*t14*t17*t26*t96*wght+7.9594 22108 4 69432320001d-5*gammabb*t14*t33*t36*t56*t93*wght+6.36757 22109 5 5545856d-4*t14*t17*t36*t54*t70*wght+1.0d+0*rhob*t14*t17 22110 6 *t22*(-6.55972350552775d-6*t113*t28*t32*t60-6.559723505 22111 7 52775d-6*gammabb*t114*t31*t60+7.641090655027201d-3*t113 22112 8 *t28*t29*t60+3.8205453275136003d-3*gammabb*t114*t27*t60 22113 9 +1.2735151091712002d-3*t113*t32*t36-4.9448448d-1*t113*t 22114 : 29*t36-2.623889402211101d-5*t100*t113*t29*t30-2.6238894 22115 ; 02211101d-5*gammabb*t100*t114*t27*t28-2.623889402211101 22116 < d-5*t100*t23*t24/rhob**1.0333333333333333d+1)*wght-6.55 22117 = 972350552775d-6*t14*t17*t33*t60*wght/rhob**4-7.72632d-3 22118 > *gammabb*t14*t19*t26*t54*t56*wght+Mmat3(iq,D3_TB_TB_TB) 22119 else 22120 t1 = 1/rhob**1.6666666666666669d+0 22121 t2 = 5.15088d-3*(6.0d-50*t1-9.11559972d+0)+1.0d+0 22122 t3 = 1/t2 22123 t4 = param(12) 22124 t5 = 1/t2**2 22125 t6 = 2.0d-50*t1-9.11559972d+0 22126 t7 = t6**2 22127 t8 = param(10) 22128 t9 = 1/rhob**3.3333333333333337d+0 22129 t10 = param(9) 22130 t11 = param(8) 22131 t12 = param(11) 22132 t13 = 1.6d-99*t5*t8*t9+t4*t5*t7+4.0d-50*t1*t12*t5*t6+t10*t 22133 1 3*t6+4.0d-50*t1*t11*t3+param(7) 22134 t14 = 1/rhob**6.666666666666666d-1 22135 t15 = rhob**5.0d-1 22136 t16 = 1/t15 22137 t17 = 1/rhob**3.333333333333333d-1 22138 t18 = 1/rhob**1.6666666666666666d-1 22139 t19 = 1.1120374863094686d+1*t18+3.8447462374472113d+0*t17+ 22140 1 1.644733775567609d+0*t16+2.4058712912881916d-1*t14 22141 t20 = 3.216395899738507d+1/t19+1.0d+0 22142 t21 = log(t20) 22143 t22 = 1.274696188700087d-1*t17+1.0d+0 22144 t23 = 5.982550435771079d+0*t18+2.2255694211506874d+0*t17+8 22145 1 .004286349993635d-1*t16+1.8970043257475583d-1*t14 22146 t24 = 1.6081979498692536d+1/t23+1.0d+0 22147 t25 = log(t24) 22148 t26 = 1.3256889990520176d-1*t17+1.0d+0 22149 t27 = -6.903522198342671d-18*t25*t26-3.1090699999999993d-2 22150 1 *t21*t22 22151 t28 = 1/t24 22152 t29 = 1/t15**3 22153 t30 = 1/rhob**1.3333333333333333d+0 22154 t31 = 1/rhob**1.1666666666666667d+0 22155 t32 = -9.970917392951799d-1*t31-7.418564737168958d-1*t30-4 22156 1 .002143174996817d-1*t29-1.264669550498372d-1*t1 22157 t33 = 1/t23**2 22158 t34 = 1/t20 22159 t35 = -1.8533958105157808d+0*t31-1.2815820791490704d+0*t30 22160 1 -8.223668877838045d-1*t29-1.6039141941921276d-1*t1 22161 t36 = 1/t19**2 22162 t37 = 1.0d+0*t22*t34*t35*t36+1.1102230246251565d-16*t26*t2 22163 1 8*t32*t33+3.0506411443514264d-19*t25*t30+1.321039893133 22164 2 9265d-3*t21*t30 22165 t38 = 1/t2**3 22166 t39 = 1/rhob**4.333333333333333d+0 22167 t40 = 1/rhob**2.6666666666666666d+0 22168 t41 = -5.333333333333334d-99*t39*t5*t8+1.6482816d-150*t38* 22169 1 t8/rhob**6+1.030176d-51*t38*t4*t40*t7-6.666666666666666 22170 2 d-50*t4*t40*t5*t6-6.666666666666666d-50*t12*t40*t5*t6+5 22171 3 .15088d-52*t10*t40*t5*t6+4.1207039999999995d-101*t12*t3 22172 4 8*t39*t6-1.3333333333333333d-99*t12*t39*t5+2.0603519999 22173 5 999997d-101*t11*t39*t5-6.666666666666666d-50*t11*t3*t40 22174 6 -3.333333333333333d-50*t10*t3*t40 22175 t42 = 5.0d-1*rhob*t27*t41*wght+5.0d-1*rhob*t13*t37*wght+5. 22176 1 0d-1*t13*t27*wght 22177 t43 = 2.57544d-52*t27*t41*wght+2.57544d-52*t13*t37*wght 22178 t44 = 1/t24**2 22179 t45 = t32**2 22180 t46 = 1/t23**4 22181 t47 = 1/t23**3 22182 t48 = 1/t15**5 22183 t49 = 1/rhob**2.3333333333333334d+0 22184 t50 = 1/rhob**2.1666666666666665d+0 22185 t51 = 1.1632736958443765d+0*t50+9.89141964955861d-1*t49+6. 22186 1 003214762495226d-1*t48+2.1077825841639536d-1*t40 22187 t52 = 1/t20**2 22188 t53 = t35**2 22189 t54 = 1/t19**4 22190 t55 = 1/t19**3 22191 t56 = 2.1622951122684114d+0*t50+1.7087761055320938d+0*t49+ 22192 1 1.2335503316757068d+0*t48+2.673190323653546d-1*t40 22193 t57 = 1.0d+0*t22*t34*t36*t56-2.0d+0*t22*t34*t53*t55+3.2163 22194 1 95899738507d+1*t22*t52*t53*t54+1.1102230246251565d-16*t 22195 2 26*t28*t33*t51-4.0675215258019015d-19*t25*t49-1.7613865 22196 3 241785684d-3*t21*t49-2.220446049250313d-16*t26*t28*t45* 22197 4 t47+1.7854583920998188d-15*t26*t44*t45*t46-8.4979745913 22198 5 33913d-2*t30*t34*t35*t36-9.812069668265515d-18*t28*t30* 22199 6 t32*t33 22200 t58 = 1/t2**4 22201 t59 = 1/rhob**7 22202 t60 = 1/rhob**5.333333333333333d+0 22203 t61 = 1/rhob**3.6666666666666664d+0 22204 t62 = 2.3111111111111113d-98*t5*t60*t8-1.53839616d-149*t38 22205 1 *t59*t8+2.5470302183424d-201*t58*t8/rhob**8.66666666666 22206 2 6666d+0-2.747136d-51*t38*t4*t61*t7+1.5918938864639998d- 22207 3 102*t4*t58*t60*t7+1.7777777777777776d-49*t4*t5*t6*t61+1 22208 4 .7777777777777776d-49*t12*t5*t6*t61-1.373568d-51*t10*t5 22209 5 *t6*t61+1.7777777777777776d-49*t11*t3*t61+8.88888888888 22210 6 8888d-50*t10*t3*t61-1.373568d-100*t38*t4*t6*t60-2.47242 22211 7 23999999997d-100*t12*t38*t6*t60+5.306312954879999d-103* 22212 8 t10*t38*t6*t60+2.222222222222222d-99*t4*t5*t60+8.0d-99* 22213 9 t12*t5*t60-1.2362111999999999d-100*t11*t5*t60-3.43392d- 22214 : 101*t10*t5*t60+6.367575545855999d-152*t12*t58*t59*t6-2. 22215 ; 7471359999999995d-150*t12*t38*t59+2.1225251819519997d-1 22216 < 52*t11*t38*t59 22217 t63 = 5.0d-1*rhob*t27*t62*wght+5.0d-1*rhob*t13*t57*wght+1. 22218 1 0d+0*rhob*t37*t41*wght+1.0d+0*t27*t41*wght+1.0d+0*t13*t 22219 2 37*wght 22220 t64 = 5.15088d-52*t42-4.2923999999999995d-52*t13*t27*wght 22221 t65 = t32**3 22222 t66 = 1/t15**7 22223 t67 = 1/rhob**3.1666666666666665d+0 22224 t68 = t35**3 22225 t69 = 1/t2**5 22226 t70 = 1/rhob**9.666666666666666d+0 22227 t71 = 1/rhob**8 22228 t72 = 1/rhob**6.333333333333333d+0 22229 t73 = 1/rhob**4.666666666666667d+0 22230 fnc(iq) = 5.0d-1*rhob*t13*t27*t3*wght+fnc(iq) 22231 Amat(iq,D1_RB) = 2.57544d-52*t1*t13*t27*t5*wght+t3*t42+Ama 22232 1 t(iq,D1_RB) 22233 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 22234 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 22235 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 22236 Amat2(iq,D2_RB_RB) = 2.6531564774399996d-103*t13*t27*t38*t 22237 1 39*wght+t40*t5*t64+t3*t63+t1*t43*t5+Amat2(iq,D2_RB_RB) 22238 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 22239 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 22240 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 22241 Mmat2(iq,D2_RB_TB) = Mmat2(iq,D2_RB_TB) 22242 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 22243 Mmat2(iq,D2_GBB_TB) = Mmat2(iq,D2_GBB_TB) 22244 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 22245 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 22246 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 22247 Amat3(iq,D3_RB_RB_RB) = t3*(5.0d-1*rhob*t13*(9.49088356020 22248 1 4437d-19*t25*t9+4.1099018897499934d-3*t21*t9+1.11022302 22249 2 46251565d-16*t26*t28*t33*(-2.3079979182303428d+0*t9-2.5 22250 3 20426340996149d+0*t67-1.5008036906238065d+0*t66-5.62075 22251 4 3557770543d-1*t61)+1.0d+0*t22*t34*t36*(-3.9871442462415 22252 5 524d+0*t9-4.684972743248224d+0*t67-3.083875829189267d+0 22253 6 *t66-7.128507529742789d-1*t61)+6.0d+0*t22*t34*t54*t68-1 22254 7 .9298375398431045d+2*t22*t52*t68/t19**5+2.0690405167709 22255 8 364d+3*t22*t68/(t19**6*t20**3)+6.661338147750939d-16*t2 22256 9 6*t28*t46*t65-1.0712750352598913d-14*t26*t44*t65/t23**5 22257 : +5.742741051503565d-14*t26*t65/(t23**6*t24**3)-6.0d+0*t 22258 ; 22*t34*t35*t55*t56+9.649187699215522d+1*t22*t35*t52*t54 22259 < *t56-1.274696188700087d-1*t30*t34*t36*t56+2.54939237740 22260 = 0174d-1*t30*t34*t53*t55-4.0999275947472624d+0*t30*t52*t 22261 > 53*t54-6.661338147750939d-16*t26*t28*t32*t47*t51+5.3563 22262 ? 75176299456d-15*t26*t32*t44*t46*t51-1.4718104502398274d 22263 @ -17*t28*t30*t33*t51+1.6995949182667827d-1*t34*t35*t36*t 22264 1 49+1.962413933653103d-17*t28*t32*t33*t49+2.943620900479 22265 2 655d-17*t28*t30*t45*t47-2.3669625486718335d-16*t30*t44* 22266 3 t45*t46)*wght+5.0d-1*rhob*t27*(-1.2325925925925926d-97* 22267 4 t5*t72*t8+1.314962432d-148*t38*t71*t8-4.58465439301632d 22268 5 -200*t58*t70*t8+5.2477788044222d-252*t69*t8/rhob**1.133 22269 6 3333333333334d+1+1.0072832d-50*t38*t4*t7*t73-6.51851851 22270 7 8518518d-49*t4*t5*t6*t73-6.518518518518518d-49*t12*t5*t 22271 8 6*t73+5.036415999999999d-51*t10*t5*t6*t73-6.51851851851 22272 9 8518d-49*t11*t3*t73-3.259259259259259d-49*t10*t3*t73-1. 22273 : 2735151091711996d-101*t4*t58*t7*t72+1.0988544d-99*t38*t 22274 ; 4*t6*t72+1.50176768d-99*t12*t38*t6*t72-4.24505036390399 22275 < 94d-102*t10*t38*t6*t72-1.7777777777777776d-98*t4*t5*t72 22276 = -4.8592592592592593d-98*t12*t5*t72+7.508838399999999d-1 22277 > 00*t11*t5*t72+2.7471359999999995d-100*t10*t5*t72+3.2798 22278 ? 61752763875d-153*t4*t69*t7*t71-3.1837877729279995d-151* 22279 @ t4*t58*t6*t71-8.277848209612798d-151*t12*t58*t6*t71+8.1 22280 1 99654381909687d-154*t10*t58*t6*t71+6.86784d-150*t38*t4* 22281 2 t71+3.5712767999999995d-149*t12*t38*t71-2.7592827365375 22282 3 994d-151*t11*t38*t71-5.30631295488d-152*t10*t38*t71+1.3 22283 4 1194470110555d-202*t12*t6*t69*t70-6.367575545855999d-20 22284 5 1*t12*t58*t70+3.2798617527638746d-203*t11*t58*t70)*wght 22285 6 +1.5d+0*rhob*t37*t62*wght+1.5d+0*t27*t62*wght+1.5d+0*rh 22286 7 ob*t41*t57*wght+1.5d+0*t13*t57*wght+3.0d+0*t37*t41*wght 22287 8 )+t1*t5*(2.57544d-52*t27*t62*wght+2.57544d-52*t13*t57*w 22288 9 ght+5.15088d-52*t37*t41*wght)+t38*t39*(2.65315647743999 22289 : 96d-103*t27*t41*wght+2.6531564774399996d-103*t13*t37*wg 22290 ; ht+1.030176d-51*t43)+t40*t5*(-4.2923999999999995d-52*t2 22291 < 7*t41*wght-4.2923999999999995d-52*t13*t37*wght+1.030176 22292 = d-51*t63)+t38*t60*(1.030176d-51*t64-1.1497011402239997d 22293 > -102*t13*t27*wght)+4.0998271909548434d-154*t13*t27*t58* 22294 ? t59*wght-2.6666666666666666d+0*t5*t61*t64-1.66666666666 22295 @ 66669d+0*t40*t43*t5+Amat3(iq,D3_RB_RB_RB) 22296 Cmat3(iq,D3_RB_RB_GBB) = Cmat3(iq,D3_RB_RB_GBB) 22297 Cmat3(iq,D3_RB_GBB_GBB) = Cmat3(iq,D3_RB_GBB_GBB) 22298 Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB) 22299 Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA) 22300 Mmat3(iq,D3_RB_RB_TB) = Mmat3(iq,D3_RB_RB_TB) 22301 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 22302 Mmat3(iq,D3_RB_GBB_TB) = Mmat3(iq,D3_RB_GBB_TB) 22303 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 22304 Mmat3(iq,D3_GBB_GBB_TB) = Mmat3(iq,D3_GBB_GBB_TB) 22305 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 22306 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 22307 Mmat3(iq,D3_RB_TB_TB) = Mmat3(iq,D3_RB_TB_TB) 22308 Mmat3(iq,D3_GBB_TA_TA) = Mmat3(iq,D3_GBB_TA_TA) 22309 Mmat3(iq,D3_GBB_TA_TB) = Mmat3(iq,D3_GBB_TA_TB) 22310 Mmat3(iq,D3_GBB_TB_TB) = Mmat3(iq,D3_GBB_TB_TB) 22311 Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA) 22312 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 22313 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 22314 Mmat3(iq,D3_TB_TB_TB) = Mmat3(iq,D3_TB_TB_TB) 22315 endif 22316 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 22317 endif ! ipol.eq.1 22318 enddo ! iq 22319 end 22320C> @} 22321