1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_x_m06.F 5C> The nwxcm_x_m06 functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_x_m06 functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 16C> {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 17C> {\it t_3} &=& {\it param}\left(7\right)\\\\ 18C> {\it t_4} &=& {\it param}\left(18\right)\\\\ 19C> {\it t_5} &=& \rho_\alpha^{{{5}\over{3}}}\\\\ 20C> {\it t_6} &=& 9.115599744691192\,{\it t_5}\\\\ 21C> {\it t_7} &=& {\it t_6}-2.0\,\tau_\alpha\\\\ 22C> {\it t_8} &=& 2.0\,\tau_\alpha+{\it t_6}\\\\ 23C> {\it t_9} &=& {\it param}\left(17\right)\\\\ 24C> {\it t_{10}} &=& {\it param}\left(16\right)\\\\ 25C> {\it t_{11}} &=& {\it param}\left(15\right)\\\\ 26C> {\it t_{12}} &=& {\it param}\left(14\right)\\\\ 27C> {\it t_{13}} &=& {\it param}\left(13\right)\\\\ 28C> {\it t_{14}} &=& {\it param}\left(12\right)\\\\ 29C> {\it t_{15}} &=& {\it param}\left(11\right)\\\\ 30C> {\it t_{16}} &=& {\it param}\left(10\right)\\\\ 31C> {\it t_{17}} &=& {\it param}\left(9\right)\\\\ 32C> {\it t_{18}} &=& {\it param}\left(8\right)\\\\ 33C> {\it t_{19}} &=& {{2.0\,\tau_\alpha}\over{{\it t_5}}} 34C> -9.11559972\\\\ 35C> {\it t_{20}} &=& 0.00186726\,{\it t_{19}}+0.00186726\,{\it t_2} 36C> \,\sigma_{\alpha\alpha}+1.0\\\\ 37C> {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\ 38C> {\it t_{22}} &=& {\it param}\left(1\right)\\\\ 39C> {\it t_{23}} &=& {\it param}\left(4\right)\\\\ 40C> {\it t_{24}} &=& {{1}\over{{\it t_{20}}^2}}\\\\ 41C> {\it t_{25}} &=& {\it param}\left(5\right)\\\\ 42C> {\it t_{26}} &=& {\it param}\left(6\right)\\\\ 43C> {\it t_{27}} &=& {\it param}\left(2\right)\\\\ 44C> {\it t_{28}} &=& {\it param}\left(3\right)\\\\ 45C> {\it t_{29}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 46C> {\it t_{30}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 47C> {\it t_{31}} &=& \rho_\beta^{{{5}\over{3}}}\\\\ 48C> {\it t_{32}} &=& 9.115599744691192\,{\it t_{31}}\\\\ 49C> {\it t_{33}} &=& {\it t_{32}}-2.0\,\tau_\beta\\\\ 50C> {\it t_{34}} &=& 2.0\,\tau_\beta+{\it t_{32}}\\\\ 51C> {\it t_{35}} &=& {{2.0\,\tau_\beta}\over{{\it t_{31}}}} 52C> -9.11559972\\\\ 53C> {\it t_{36}} &=& 0.00186726\,{\it t_{35}}+0.00186726\,{ 54C> \it t_{30}}\,\sigma_{\beta\beta}+1.0\\\\ 55C> {\it t_{37}} &=& {{1}\over{{\it t_{36}}}}\\\\ 56C> {\it t_{38}} &=& {{1}\over{{\it t_{36}}^2}}\\\\ 57C> {\it t_{39}} &=& \rho_s^{{{4}\over{3}}}\\\\ 58C> {\it t_{40}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 59C> {\it t_{41}} &=& \rho_s^{{{5}\over{3}}}\\\\ 60C> {\it t_{42}} &=& 9.115599744691192\,{\it t_{41}}\\\\ 61C> {\it t_{43}} &=& {\it t_{42}}-2.0\,\tau_s\\\\ 62C> {\it t_{44}} &=& 2.0\,\tau_s+{\it t_{42}}\\\\ 63C> {\it t_{45}} &=& {{2.0\,\tau_s}\over{{\it t_{41}}}}-9.11559972\\\\ 64C> {\it t_{46}} &=& 0.00186726\,{\it t_{45}}+0.00186726\,{ 65C> \it t_{40}}\,\sigma_{ss}+1.0\\\\ 66C> {\it t_{47}} &=& {{1}\over{{\it t_{46}}}}\\\\ 67C> {\it t_{48}} &=& {{1}\over{{\it t_{46}}^2}}\\\\ 68C> f &=& 1.0\,{\it t_{29}}\,{\it t_{37}}\,\left({\it t_{28}}\,{ 69C> \it t_{35}}\,{\it t_{37}}+{\it t_{27}}\,{\it t_{30}}\, 70C> \sigma_{\beta\beta}\,{\it t_{37}}+{\it t_{26}}\,{\it t_{35}}^2 71C> \,{\it t_{38}}+{\it t_{25}}\,{\it t_{30}}\,\sigma_{\beta\beta} 72C> \,{\it t_{35}}\,{\it t_{38}}+{{{\it t_{23}}\, 73C> \sigma_{\beta\beta}^2\,{\it t_{38}}} 74C> \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{22}}\right) 75C> -0.9305257363490997\,{\it t_{29}}\, 76C> \left({{0.003612186453650949\,{\it t_{30}}\, 77C> \sigma_{\beta\beta}}\over{0.00449276922095889\,{\it t_{30}} 78C> \,\sigma_{\beta\beta}+1.0}}+1.0\right)\,\left({{{\it t_{18}} 79C> \,{\it t_{33}}}\over{{\it t_{34}}}}+{{{\it t_{17}}\,{ 80C> \it t_{33}}^2}\over{{\it t_{34}}^2}}+{{{\it t_{16}}\,{ 81C> \it t_{33}}^3}\over{{\it t_{34}}^3}}+{{{\it t_{15}}\,{ 82C> \it t_{33}}^4}\over{{\it t_{34}}^4}}+{{{\it t_{14}}\,{ 83C> \it t_{33}}^5}\over{{\it t_{34}}^5}}+{{{\it t_{13}}\,{ 84C> \it t_{33}}^6}\over{{\it t_{34}}^6}}+{{{\it t_{12}}\,{ 85C> \it t_{33}}^7}\over{{\it t_{34}}^7}}+{{{\it t_{11}}\,{ 86C> \it t_{33}}^8}\over{{\it t_{34}}^8}}+{{{\it t_{10}}\,{ 87C> \it t_{33}}^9}\over{{\it t_{34}}^9}}+{{{\it t_9}\,{ 88C> \it t_{33}}^{10}}\over{{\it t_{34}}^{10}}}+{{{\it t_4}\,{ 89C> \it t_{33}}^{11}}\over{{\it t_{34}}^{11}}}+{\it t_3}\right) 90C> +1.0\,{\it t_1}\,{\it t_{21}}\,\left({\it t_{28}}\,{ 91C> \it t_{19}}\,{\it t_{21}}+{\it t_{27}}\,{\it t_2}\, 92C> \sigma_{\alpha\alpha}\,{\it t_{21}}+{\it t_{26}}\,{ 93C> \it t_{19}}^2\,{\it t_{24}}+{\it t_{25}}\,{\it t_2}\, 94C> \sigma_{\alpha\alpha}\,{\it t_{19}}\,{\it t_{24}}+{{{ 95C> \it t_{23}}\,\sigma_{\alpha\alpha}^2\,{\it t_{24}}} 96C> \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{22}}\right) 97C> -0.9305257363490997\,{\it t_1}\,\left({{0.003612186453650949 98C> \,{\it t_2}\,\sigma_{\alpha\alpha}}\over{0.00449276922095889 99C> \,{\it t_2}\,\sigma_{\alpha\alpha}+1.0}}+1.0\right)\, 100C> \left({{{\it t_{18}}\,{\it t_7}}\over{{\it t_8}}}+{{{ 101C> \it t_{17}}\,{\it t_7}^2}\over{{\it t_8}^2}}+{{{\it t_{16}} 102C> \,{\it t_7}^3}\over{{\it t_8}^3}}+{{{\it t_{15}}\,{ 103C> \it t_7}^4}\over{{\it t_8}^4}}+{{{\it t_{14}}\,{ 104C> \it t_7}^5}\over{{\it t_8}^5}}+{{{\it t_{13}}\,{ 105C> \it t_7}^6}\over{{\it t_8}^6}}+{{{\it t_{12}}\,{ 106C> \it t_7}^7}\over{{\it t_8}^7}}+{{{\it t_{11}}\,{ 107C> \it t_7}^8}\over{{\it t_8}^8}}+{{{\it t_{10}}\,{ 108C> \it t_7}^9}\over{{\it t_8}^9}}+{{{\it t_9}\,{ 109C> \it t_7}^{10}}\over{{\it t_8}^{10}}}+{{{\it t_4}\,{ 110C> \it t_7}^{11}}\over{{\it t_8}^{11}}}+{\it t_3}\right)\\\\ 111C> g &=& 0\\\\ 112C> G &=& 1.0\,{\it t_{39}}\,{\it t_{47}}\,\left({\it t_{28}}\,{ 113C> \it t_{45}}\,{\it t_{47}}+{\it t_{27}}\,{\it t_{40}}\, 114C> \sigma_{ss}\,{\it t_{47}}+{\it t_{26}}\,{\it t_{45}}^2\,{ 115C> \it t_{48}}+{\it t_{25}}\,{\it t_{40}}\,\sigma_{ss}\,{ 116C> \it t_{45}}\,{\it t_{48}}+{{{\it t_{23}}\,\sigma_{ss}^2\,{ 117C> \it t_{48}}}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_{22}}\right) 118C> -0.9305257363490997\,{\it t_{39}}\, 119C> \left({{0.003612186453650949\,{\it t_{40}}\,\sigma_{ss}} 120C> \over{0.00449276922095889\,{\it t_{40}}\,\sigma_{ss}+1.0}} 121C> +1.0\right)\,\left({{{\it t_{18}}\,{\it t_{43}}}\over{{ 122C> \it t_{44}}}}+{{{\it t_{17}}\,{\it t_{43}}^2}\over{{ 123C> \it t_{44}}^2}}+{{{\it t_{16}}\,{\it t_{43}}^3}\over{{ 124C> \it t_{44}}^3}}+{{{\it t_{15}}\,{\it t_{43}}^4}\over{{ 125C> \it t_{44}}^4}}+{{{\it t_{14}}\,{\it t_{43}}^5}\over{{ 126C> \it t_{44}}^5}}+{{{\it t_{13}}\,{\it t_{43}}^6}\over{{ 127C> \it t_{44}}^6}}+{{{\it t_{12}}\,{\it t_{43}}^7}\over{{ 128C> \it t_{44}}^7}}+{{{\it t_{11}}\,{\it t_{43}}^8}\over{{ 129C> \it t_{44}}^8}}+{{{\it t_{10}}\,{\it t_{43}}^9}\over{{ 130C> \it t_{44}}^9}}+{{{\it t_9}\,{\it t_{43}}^{10}}\over{{ 131C> \it t_{44}}^{10}}}+{{{\it t_4}\,{\it t_{43}}^{11}}\over{{ 132C> \it t_{44}}^{11}}}+{\it t_3}\right)\\\\ 133C> \f} 134C> 135C> Code generated with Maxima 5.34.0 [2] 136C> driven by autoxc [3]. 137C> 138C> ### References ### 139C> 140C> [1] Y Zhao, DG Truhlar, J.Chem.Phys. 123, 194101 (2006) , DOI: 141C> <a href="https://doi.org/10.1063/1.2370993 "> 142C> 10.1063/1.2370993 </a> 143C> 144C> [2] Maxima, a computer algebra system, 145C> <a href="http://maxima.sourceforge.net/"> 146C> http://maxima.sourceforge.net/</a> 147C> 148C> [3] autoxc, revision 27097 2015-05-08 149C> 150 subroutine nwxcm_x_m06(param,tol_rho,ipol,nq,wght, 151 +rho,rgamma,tau,fnc,Amat,Cmat,Mmat) 152c $Id: $ 153#ifdef NWXC_QUAD_PREC 154 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 155 integer, parameter :: rk=selected_real_kind(30) 156#else 157 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 158 integer, parameter :: rk=selected_real_kind(15) 159#endif 160#include "nwxc_param.fh" 161 double precision param(*) !< [Input] Parameters of functional 162 double precision tol_rho !< [Input] The lower limit on the density 163 integer ipol !< [Input] The number of spin channels 164 integer nq !< [Input] The number of points 165 double precision wght !< [Input] The weight of the functional 166 double precision rho(nq,NCOL_RHO) !< [Input] The density 167 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 168 !< gradients 169 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 170 double precision fnc(nq) !< [Output] The value of the functional 171c 172c Sampling Matrices for the XC Kernel 173c 174 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 175 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 176 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 177 integer iq 178 double precision tmp 179 double precision rhoa,rhob 180 double precision gammaaa,gammaab,gammabb 181 double precision taua,taub 182 double precision nwxcm_heaviside 183 external nwxcm_heaviside 184CDIR$ NOVECTOR 185 do iq = 1, nq 186 if (ipol.eq.1) then 187 rhoa = 0.5d0*rho(iq,R_T) 188 gammaaa = 0.25d0*rgamma(iq,G_TT) 189 taua = 0.5d0*tau(iq,T_T) 190 if (rhoa.gt.tol_rho) then 191 t1 = 1/rhoa**2.6666666666666666d+0 192 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 193 t3 = 1/t2 194 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 195 t5 = rhoa**1.3333333333333333d+0 196 t6 = param(18) 197 t7 = rhoa**1.6666666666666669d+0 198 t8 = 9.115599744691192d+0*t7 199 t9 = t8-2.0d+0*taua 200 t10 = t9**11 201 t11 = 2.0d+0*taua+t8 202 t12 = 1/t11**11 203 t13 = param(17) 204 t14 = t9**10 205 t15 = 1/t11**10 206 t16 = param(16) 207 t17 = t9**9 208 t18 = 1/t11**9 209 t19 = param(15) 210 t20 = t9**8 211 t21 = 1/t11**8 212 t22 = param(14) 213 t23 = t9**7 214 t24 = 1/t11**7 215 t25 = param(13) 216 t26 = t9**6 217 t27 = 1/t11**6 218 t28 = param(12) 219 t29 = t9**5 220 t30 = 1/t11**5 221 t31 = param(11) 222 t32 = t9**4 223 t33 = 1/t11**4 224 t34 = param(10) 225 t35 = t9**3 226 t36 = 1/t11**3 227 t37 = param(9) 228 t38 = t9**2 229 t39 = 1/t11**2 230 t40 = param(8) 231 t41 = 1/t11 232 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 233 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 234 2 17*t18+t13*t14*t15+param(7) 235 t43 = 1/t7 236 t44 = 2.0d+0*t43*taua-9.11559972d+0 237 t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0 238 t46 = 1/t45 239 t47 = param(4) 240 t48 = gammaaa**2 241 t49 = 1/rhoa**5.333333333333333d+0 242 t50 = 1/t45**2 243 t51 = param(5) 244 t52 = param(6) 245 t53 = t44**2 246 t54 = param(2) 247 t55 = param(3) 248 t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1* 249 1 t44*t50*t51+t47*t48*t49*t50+param(1) 250 t57 = rhoa**6.666666666666666d-1 251 t58 = 1/t11**12 252 t59 = rhoa**3.333333333333333d-1 253 t60 = 1/t2**2 254 t61 = 1/rhoa**6.333333333333333d+0 255 t62 = 1/rhoa**3.6666666666666664d+0 256 t63 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t62 257 t64 = 1/t45**3 258 t65 = 1/rhoa**4.333333333333333d+0 259 fnc(iq) = (2.0d+0*t46*t5*t56-1.8610514726981994d+0*t4*t42*t5 260 1 )*wght+fnc(iq) 261 Amat(iq,D1_RA) = (t46*(1.0d+0*t5*(-3.3333333333333337d+0*t1* 262 1 t46*t55*taua-6.666666666666667d+0*t1*t44*t50*t52*taua-3.3 263 2 333333333333337d+0*gammaaa*t49*t50*t51*taua-2*t52*t53*t63 264 3 *t64-2*gammaaa*t1*t44*t51*t63*t64-2*t47*t48*t49*t63*t64-t 265 4 44*t50*t55*t63-gammaaa*t1*t50*t54*t63-2.6666666666666666d 266 5 +0*gammaaa*t46*t54*t62-2.6666666666666666d+0*gammaaa*t44* 267 6 t50*t51*t62-5.333333333333333d+0*t47*t48*t50*t61)+1.33333 268 7 33333333333d+0*t56*t59)-9.305257363490997d-1*t4*t5*(-1.51 269 8 92666241151986d+1*t39*t40*t57*t9+3.038533248230397d+1*t37 270 9 *t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+1.671193 271 : 2865267184d+2*t12*t14*t57*t6+1.5192666241151986d+1*t40*t4 272 ; 1*t57-3.038533248230397d+1*t36*t37*t38*t57+4.557799872345 273 < 5965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33*t34*t35 274 = *t57+6.077066496460795d+1*t31*t33*t35*t57-6.0770664964607 275 > 95d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t30*t32*t5 276 ? 7-7.596333120575993d+1*t27*t28*t29*t57+9.115599744691193d 277 @ +1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t26*t57+1 278 1 .0634866368806391d+2*t22*t24*t26*t57-1.0634866368806391d+ 279 2 2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t23*t57-1 280 3 .2154132992921589d+2*t18*t19*t20*t57+1.3673399617036788d+ 281 4 2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t17*t57+1 282 5 .5192666241151986d+2*t13*t15*t17*t57-1.5192666241151986d+ 283 6 2*t12*t13*t14*t57)-1.0d+0*t5*t50*t56*t63-9.30525736349099 284 7 7d-1*t42*t5*(4.327658698487368d-5*t48*t60*t61-9.632497209 285 8 735863d-3*gammaaa*t3*t62)-1.2407009817987995d+0*t4*t42*t5 286 9 9)*wght+Amat(iq,D1_RA) 287 Cmat(iq,D1_GAA) = (1.0d+0*t46*t5*(-3.73452d-3*t1*t52*t53*t64 288 1 -3.73452d-3*gammaaa*t44*t49*t51*t64-3.73452d-3*t47*t48*t6 289 2 4/rhoa**8-1.86726d-3*t1*t44*t50*t55-1.86726d-3*gammaaa*t4 290 3 9*t50*t54+t1*t46*t54+t1*t44*t50*t51+2*gammaaa*t47*t49*t50 291 4 )-9.305257363490997d-1*t42*t5*(3.6121864536509485d-3*t1*t 292 5 3-1.6228720119327628d-5*gammaaa*t49*t60)-1.86726d-3*t50*t 293 6 56/t5)*wght+Cmat(iq,D1_GAA) 294 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 295 Mmat(iq,D1_TA) = (-9.305257363490997d-1*t4*t5*(-2.0d+0*t39*t 296 1 40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6-2.2d+1*t12*t14* 297 2 t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d+0*t34*t36*t38-6 298 3 .0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d+0*t30*t31*t32-1 299 4 .0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d+1*t25*t27*t29-1 300 5 .2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d+1*t21*t22*t23-1 301 6 .6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d+1*t16*t18*t20-1 302 7 .8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d+1*t12*t13*t14)+ 303 8 1.0d+0*t46*t5*(-7.46904d-3*gammaaa*t44*t51*t64*t65-3.7345 304 9 2d-3*gammaaa*t50*t54*t65+2.0d+0*gammaaa*t50*t51*t65-7.469 305 : 04d-3*t43*t52*t53*t64-7.46904d-3*t47*t48*t64/rhoa**7-3.73 306 ; 452d-3*t43*t44*t50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44* 307 < t50*t52)-3.73452d-3*t50*t56/t59)*wght+Mmat(iq,D1_TA) 308 endif ! rhoa.gt.tol_rho 309 else ! ipol.eq.1 310 rhoa = rho(iq,R_A) 311 rhob = rho(iq,R_B) 312 gammaaa = rgamma(iq,G_AA) 313 gammaab = rgamma(iq,G_AB) 314 gammabb = rgamma(iq,G_BB) 315 taua = tau(iq,T_A) 316 taub = tau(iq,T_B) 317 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 318 t1 = 1/rhoa**2.6666666666666666d+0 319 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 320 t3 = 1/t2 321 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 322 t5 = rhoa**1.3333333333333333d+0 323 t6 = param(7) 324 t7 = param(18) 325 t8 = rhoa**1.6666666666666669d+0 326 t9 = 9.115599744691192d+0*t8 327 t10 = t9-2.0d+0*taua 328 t11 = t10**11 329 t12 = 2.0d+0*taua+t9 330 t13 = 1/t12**11 331 t14 = param(17) 332 t15 = t10**10 333 t16 = 1/t12**10 334 t17 = param(16) 335 t18 = t10**9 336 t19 = 1/t12**9 337 t20 = param(15) 338 t21 = t10**8 339 t22 = 1/t12**8 340 t23 = param(14) 341 t24 = t10**7 342 t25 = 1/t12**7 343 t26 = param(13) 344 t27 = t10**6 345 t28 = 1/t12**6 346 t29 = param(12) 347 t30 = t10**5 348 t31 = 1/t12**5 349 t32 = param(11) 350 t33 = t10**4 351 t34 = 1/t12**4 352 t35 = param(10) 353 t36 = t10**3 354 t37 = 1/t12**3 355 t38 = param(9) 356 t39 = t10**2 357 t40 = 1/t12**2 358 t41 = param(8) 359 t42 = 1/t12 360 t43 = t11*t13*t7+t6+t10*t41*t42+t38*t39*t40+t35*t36*t37+t32* 361 1 t33*t34+t29*t30*t31+t26*t27*t28+t23*t24*t25+t20*t21*t22+t 362 2 17*t18*t19+t14*t15*t16 363 t44 = 1/t8 364 t45 = 2.0d+0*t44*taua-9.11559972d+0 365 t46 = 1.86726d-3*t45+1.86726d-3*gammaaa*t1+1.0d+0 366 t47 = 1/t46 367 t48 = param(1) 368 t49 = param(4) 369 t50 = gammaaa**2 370 t51 = 1/rhoa**5.333333333333333d+0 371 t52 = 1/t46**2 372 t53 = param(5) 373 t54 = param(6) 374 t55 = t45**2 375 t56 = param(2) 376 t57 = param(3) 377 t58 = t45*t47*t57+gammaaa*t1*t47*t56+t52*t54*t55+gammaaa*t1* 378 1 t45*t52*t53+t49*t50*t51*t52+t48 379 t59 = 1/rhob**2.6666666666666666d+0 380 t60 = 4.49276922095889d-3*gammabb*t59+1.0d+0 381 t61 = 1/t60 382 t62 = 3.6121864536509485d-3*gammabb*t59*t61+1.0d+0 383 t63 = rhob**1.3333333333333333d+0 384 t64 = rhob**1.6666666666666669d+0 385 t65 = 9.115599744691192d+0*t64 386 t66 = t65-2.0d+0*taub 387 t67 = t66**11 388 t68 = 2.0d+0*taub+t65 389 t69 = 1/t68**11 390 t70 = t66**10 391 t71 = 1/t68**10 392 t72 = t66**9 393 t73 = 1/t68**9 394 t74 = t66**8 395 t75 = 1/t68**8 396 t76 = t66**7 397 t77 = 1/t68**7 398 t78 = t66**6 399 t79 = 1/t68**6 400 t80 = t66**5 401 t81 = 1/t68**5 402 t82 = t66**4 403 t83 = 1/t68**4 404 t84 = t66**3 405 t85 = 1/t68**3 406 t86 = t66**2 407 t87 = 1/t68**2 408 t88 = 1/t68 409 t89 = t41*t66*t88+t38*t86*t87+t35*t84*t85+t32*t82*t83+t29*t8 410 1 0*t81+t26*t78*t79+t23*t76*t77+t20*t74*t75+t17*t72*t73+t14 411 2 *t70*t71+t67*t69*t7+t6 412 t90 = 1/t64 413 t91 = 2.0d+0*t90*taub-9.11559972d+0 414 t92 = 1.86726d-3*t91+1.86726d-3*gammabb*t59+1.0d+0 415 t93 = 1/t92 416 t94 = gammabb**2 417 t95 = 1/rhob**5.333333333333333d+0 418 t96 = 1/t92**2 419 t97 = t91**2 420 t98 = t54*t96*t97+t49*t94*t95*t96+gammabb*t53*t59*t91*t96+t5 421 1 7*t91*t93+gammabb*t56*t59*t93+t48 422 t99 = rhoa**6.666666666666666d-1 423 t100 = 1/t12**12 424 t101 = rhoa**3.333333333333333d-1 425 t102 = 1/t2**2 426 t103 = 1/rhoa**6.333333333333333d+0 427 t104 = 1/rhoa**3.6666666666666664d+0 428 t105 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t104 429 t106 = 1/t46**3 430 t107 = rhob**6.666666666666666d-1 431 t108 = 1/t68**12 432 t109 = rhob**3.333333333333333d-1 433 t110 = 1/t60**2 434 t111 = 1/rhob**6.333333333333333d+0 435 t112 = 1/rhob**3.6666666666666664d+0 436 t113 = -6.2242d-3*t59*taub-4.9793599999999993d-3*gammabb*t11 437 1 2 438 t114 = 1/t92**3 439 t115 = 1/rhoa**4.333333333333333d+0 440 t116 = 1/rhob**4.333333333333333d+0 441 fnc(iq) = (1.0d+0*t63*t93*t98-9.305257363490997d-1*t62*t63*t 442 1 89+1.0d+0*t47*t5*t58-9.305257363490997d-1*t4*t43*t5)*wght 443 2 +fnc(iq) 444 Amat(iq,D1_RA) = (t47*(1.0d+0*t5*(-3.3333333333333337d+0*t1* 445 1 t47*t57*taua-6.666666666666667d+0*t1*t45*t52*t54*taua-3.3 446 2 333333333333337d+0*gammaaa*t51*t52*t53*taua-t105*t45*t52* 447 3 t57-gammaaa*t1*t105*t52*t56-2.6666666666666666d+0*gammaaa 448 4 *t104*t47*t56-2*t105*t106*t54*t55-2.6666666666666666d+0*g 449 5 ammaaa*t104*t45*t52*t53-2*gammaaa*t1*t105*t106*t45*t53-5. 450 6 333333333333333d+0*t103*t49*t50*t52-2*t105*t106*t49*t50*t 451 7 51)+1.3333333333333333d+0*t101*t58)-9.305257363490997d-1* 452 8 t4*t5*(1.6711932865267184d+2*t13*t15*t7*t99-1.67119328652 453 9 67184d+2*t100*t11*t7*t99+1.5192666241151986d+1*t41*t42*t9 454 : 9-1.5192666241151986d+1*t10*t40*t41*t99+3.038533248230397 455 ; d+1*t10*t38*t40*t99-3.038533248230397d+1*t37*t38*t39*t99+ 456 < 4.5577998723455965d+1*t35*t37*t39*t99-4.5577998723455965d 457 = +1*t34*t35*t36*t99+6.077066496460795d+1*t32*t34*t36*t99-6 458 > .077066496460795d+1*t31*t32*t33*t99+7.596333120575993d+1* 459 ? t29*t31*t33*t99-7.596333120575993d+1*t28*t29*t30*t99+9.11 460 @ 5599744691193d+1*t26*t28*t30*t99-9.115599744691193d+1*t25 461 1 *t26*t27*t99+1.0634866368806391d+2*t23*t25*t27*t99-1.0634 462 2 866368806391d+2*t22*t23*t24*t99+1.2154132992921589d+2*t20 463 3 *t22*t24*t99-1.2154132992921589d+2*t19*t20*t21*t99+1.3673 464 4 399617036788d+2*t17*t19*t21*t99-1.3673399617036788d+2*t16 465 5 *t17*t18*t99+1.5192666241151986d+2*t14*t16*t18*t99-1.5192 466 6 666241151986d+2*t13*t14*t15*t99)-1.0d+0*t105*t5*t52*t58-9 467 7 .305257363490997d-1*t43*t5*(4.327658698487368d-5*t102*t10 468 8 3*t50-9.632497209735863d-3*gammaaa*t104*t3)-1.24070098179 469 9 87995d+0*t101*t4*t43)*wght+Amat(iq,D1_RA) 470 Amat(iq,D1_RB) = (t93*(1.0d+0*t63*(-3.3333333333333337d+0*ga 471 1 mmabb*t53*t95*t96*taub-6.666666666666667d+0*t54*t59*t91*t 472 2 96*taub-3.3333333333333337d+0*t57*t59*t93*taub-2*t113*t11 473 3 4*t54*t97-5.333333333333333d+0*t111*t49*t94*t96-t113*t57* 474 4 t91*t96-2.6666666666666666d+0*gammabb*t112*t53*t91*t96-ga 475 5 mmabb*t113*t56*t59*t96-2*t113*t114*t49*t94*t95-2.66666666 476 6 66666666d+0*gammabb*t112*t56*t93-2*gammabb*t113*t114*t53* 477 7 t59*t91)+1.3333333333333333d+0*t109*t98)-1.0d+0*t113*t63* 478 8 t96*t98-9.305257363490997d-1*t63*t89*(4.327658698487368d- 479 9 5*t110*t111*t94-9.632497209735863d-3*gammabb*t112*t61)-1. 480 : 2407009817987995d+0*t109*t62*t89-9.305257363490997d-1*t62 481 ; *t63*(1.5192666241151986d+1*t107*t41*t88-1.51926662411519 482 < 86d+1*t107*t41*t66*t87+3.038533248230397d+1*t107*t38*t66* 483 = t87-3.038533248230397d+1*t107*t38*t85*t86+4.5577998723455 484 > 965d+1*t107*t35*t85*t86-4.5577998723455965d+1*t107*t35*t8 485 ? 3*t84+6.077066496460795d+1*t107*t32*t83*t84-6.07706649646 486 @ 0795d+1*t107*t32*t81*t82+7.596333120575993d+1*t107*t29*t8 487 1 1*t82-7.596333120575993d+1*t107*t29*t79*t80+9.11559974469 488 2 1193d+1*t107*t26*t79*t80-9.115599744691193d+1*t107*t26*t7 489 3 7*t78+1.0634866368806391d+2*t107*t23*t77*t78-1.0634866368 490 4 806391d+2*t107*t23*t75*t76+1.2154132992921589d+2*t107*t20 491 5 *t75*t76-1.2154132992921589d+2*t107*t20*t73*t74+1.3673399 492 6 617036788d+2*t107*t17*t73*t74-1.3673399617036788d+2*t107* 493 7 t17*t71*t72+1.5192666241151986d+2*t107*t14*t71*t72+1.6711 494 8 932865267184d+2*t107*t69*t7*t70-1.5192666241151986d+2*t10 495 9 7*t14*t69*t70-1.6711932865267184d+2*t107*t108*t67*t7))*wg 496 : ht+Amat(iq,D1_RB) 497 Cmat(iq,D1_GAA) = (-1.86726d-3*t52*t58/t5+1.0d+0*t47*t5*(-1. 498 1 86726d-3*t1*t45*t52*t57-1.86726d-3*gammaaa*t51*t52*t56+t1 499 2 *t47*t56-3.73452d-3*t1*t106*t54*t55+t1*t45*t52*t53-3.7345 500 3 2d-3*gammaaa*t106*t45*t51*t53+2*gammaaa*t49*t51*t52-3.734 501 4 52d-3*t106*t49*t50/rhoa**8)-9.305257363490997d-1*t43*t5*( 502 5 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gammaaa 503 6 *t102*t51))*wght+Cmat(iq,D1_GAA) 504 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 505 Cmat(iq,D1_GBB) = (-1.86726d-3*t96*t98/t63+1.0d+0*t63*t93*(- 506 1 3.73452d-3*t114*t54*t59*t97-1.86726d-3*gammabb*t56*t95*t9 507 2 6+2*gammabb*t49*t95*t96-1.86726d-3*t57*t59*t91*t96+t53*t5 508 3 9*t91*t96-3.73452d-3*gammabb*t114*t53*t91*t95-3.73452d-3* 509 4 t114*t49*t94/rhob**8+t56*t59*t93)-9.305257363490997d-1*t6 510 5 3*t89*(3.6121864536509485d-3*t59*t61-1.6228720119327628d- 511 6 5*gammabb*t110*t95))*wght+Cmat(iq,D1_GBB) 512 Mmat(iq,D1_TA) = (-9.305257363490997d-1*t4*t5*(-2.2d+1*t13*t 513 1 15*t7-2.2d+1*t100*t11*t7-2.0d+0*t41*t42-2.0d+0*t10*t40*t4 514 2 1-4.0d+0*t10*t38*t40-4.0d+0*t37*t38*t39-6.0d+0*t35*t37*t3 515 3 9-6.0d+0*t34*t35*t36-8.0d+0*t32*t34*t36-8.0d+0*t31*t32*t3 516 4 3-1.0d+1*t29*t31*t33-1.0d+1*t28*t29*t30-1.2d+1*t26*t28*t3 517 5 0-1.2d+1*t25*t26*t27-1.4d+1*t23*t25*t27-1.4d+1*t22*t23*t2 518 6 4-1.6d+1*t20*t22*t24-1.6d+1*t19*t20*t21-1.8d+1*t17*t19*t2 519 7 1-1.8d+1*t16*t17*t18-2.0d+1*t14*t16*t18-2.0d+1*t13*t14*t1 520 8 5)-3.73452d-3*t52*t58/t101+1.0d+0*t47*t5*(-3.73452d-3*t44 521 9 *t45*t52*t57+2.0d+0*t44*t47*t57-3.73452d-3*gammaaa*t115*t 522 : 52*t56-7.46904d-3*t106*t44*t54*t55+4.0d+0*t44*t45*t52*t54 523 ; +2.0d+0*gammaaa*t115*t52*t53-7.46904d-3*gammaaa*t106*t115 524 < *t45*t53-7.46904d-3*t106*t49*t50/rhoa**7))*wght+Mmat(iq,D 525 = 1_TA) 526 Mmat(iq,D1_TB) = (-3.73452d-3*t96*t98/t109+1.0d+0*t63*t93*(- 527 1 7.46904d-3*t114*t54*t90*t97-3.73452d-3*t57*t90*t91*t96+4. 528 2 0d+0*t54*t90*t91*t96-3.73452d-3*gammabb*t116*t56*t96+2.0d 529 3 +0*gammabb*t116*t53*t96-7.46904d-3*t114*t49*t94/rhob**7+2 530 4 .0d+0*t57*t90*t93-7.46904d-3*gammabb*t114*t116*t53*t91)-9 531 5 .305257363490997d-1*t62*t63*(-2.0d+0*t41*t88-2.0d+0*t41*t 532 6 66*t87-4.0d+0*t38*t66*t87-4.0d+0*t38*t85*t86-6.0d+0*t35*t 533 7 85*t86-6.0d+0*t35*t83*t84-8.0d+0*t32*t83*t84-8.0d+0*t32*t 534 8 81*t82-1.0d+1*t29*t81*t82-1.0d+1*t29*t79*t80-1.2d+1*t26*t 535 9 79*t80-1.2d+1*t26*t77*t78-1.4d+1*t23*t77*t78-1.4d+1*t23*t 536 : 75*t76-1.6d+1*t20*t75*t76-1.6d+1*t20*t73*t74-1.8d+1*t17*t 537 ; 73*t74-1.8d+1*t17*t71*t72-2.0d+1*t14*t71*t72-2.2d+1*t69*t 538 < 7*t70-2.0d+1*t14*t69*t70-2.2d+1*t108*t67*t7))*wght+Mmat(i 539 = q,D1_TB) 540 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 541 t1 = 1/rhoa**2.6666666666666666d+0 542 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 543 t3 = 1/t2 544 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 545 t5 = rhoa**1.3333333333333333d+0 546 t6 = param(18) 547 t7 = rhoa**1.6666666666666669d+0 548 t8 = 9.115599744691192d+0*t7 549 t9 = t8-2.0d+0*taua 550 t10 = t9**11 551 t11 = 2.0d+0*taua+t8 552 t12 = 1/t11**11 553 t13 = param(17) 554 t14 = t9**10 555 t15 = 1/t11**10 556 t16 = param(16) 557 t17 = t9**9 558 t18 = 1/t11**9 559 t19 = param(15) 560 t20 = t9**8 561 t21 = 1/t11**8 562 t22 = param(14) 563 t23 = t9**7 564 t24 = 1/t11**7 565 t25 = param(13) 566 t26 = t9**6 567 t27 = 1/t11**6 568 t28 = param(12) 569 t29 = t9**5 570 t30 = 1/t11**5 571 t31 = param(11) 572 t32 = t9**4 573 t33 = 1/t11**4 574 t34 = param(10) 575 t35 = t9**3 576 t36 = 1/t11**3 577 t37 = param(9) 578 t38 = t9**2 579 t39 = 1/t11**2 580 t40 = param(8) 581 t41 = 1/t11 582 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 583 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 584 2 17*t18+t13*t14*t15+param(7) 585 t43 = 1/t7 586 t44 = 2.0d+0*t43*taua-9.11559972d+0 587 t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0 588 t46 = 1/t45 589 t47 = param(4) 590 t48 = gammaaa**2 591 t49 = 1/rhoa**5.333333333333333d+0 592 t50 = 1/t45**2 593 t51 = param(5) 594 t52 = param(6) 595 t53 = t44**2 596 t54 = param(2) 597 t55 = param(3) 598 t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1* 599 1 t44*t50*t51+t47*t48*t49*t50+param(1) 600 t57 = rhoa**6.666666666666666d-1 601 t58 = 1/t11**12 602 t59 = rhoa**3.333333333333333d-1 603 t60 = 1/t2**2 604 t61 = 1/rhoa**6.333333333333333d+0 605 t62 = 1/rhoa**3.6666666666666664d+0 606 t63 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t62 607 t64 = 1/t45**3 608 t65 = 1/rhoa**4.333333333333333d+0 609 fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5) 610 1 *wght+fnc(iq) 611 Amat(iq,D1_RA) = (t46*(1.0d+0*t5*(-3.3333333333333337d+0*t1* 612 1 t46*t55*taua-6.666666666666667d+0*t1*t44*t50*t52*taua-3.3 613 2 333333333333337d+0*gammaaa*t49*t50*t51*taua-2*t52*t53*t63 614 3 *t64-2*gammaaa*t1*t44*t51*t63*t64-2*t47*t48*t49*t63*t64-t 615 4 44*t50*t55*t63-gammaaa*t1*t50*t54*t63-2.6666666666666666d 616 5 +0*gammaaa*t46*t54*t62-2.6666666666666666d+0*gammaaa*t44* 617 6 t50*t51*t62-5.333333333333333d+0*t47*t48*t50*t61)+1.33333 618 7 33333333333d+0*t56*t59)-9.305257363490997d-1*t4*t5*(-1.51 619 8 92666241151986d+1*t39*t40*t57*t9+3.038533248230397d+1*t37 620 9 *t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+1.671193 621 : 2865267184d+2*t12*t14*t57*t6+1.5192666241151986d+1*t40*t4 622 ; 1*t57-3.038533248230397d+1*t36*t37*t38*t57+4.557799872345 623 < 5965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33*t34*t35 624 = *t57+6.077066496460795d+1*t31*t33*t35*t57-6.0770664964607 625 > 95d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t30*t32*t5 626 ? 7-7.596333120575993d+1*t27*t28*t29*t57+9.115599744691193d 627 @ +1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t26*t57+1 628 1 .0634866368806391d+2*t22*t24*t26*t57-1.0634866368806391d+ 629 2 2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t23*t57-1 630 3 .2154132992921589d+2*t18*t19*t20*t57+1.3673399617036788d+ 631 4 2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t17*t57+1 632 5 .5192666241151986d+2*t13*t15*t17*t57-1.5192666241151986d+ 633 6 2*t12*t13*t14*t57)-1.0d+0*t5*t50*t56*t63-9.30525736349099 634 7 7d-1*t42*t5*(4.327658698487368d-5*t48*t60*t61-9.632497209 635 8 735863d-3*gammaaa*t3*t62)-1.2407009817987995d+0*t4*t42*t5 636 9 9)*wght+Amat(iq,D1_RA) 637 Cmat(iq,D1_GAA) = (1.0d+0*t46*t5*(-3.73452d-3*t1*t52*t53*t64 638 1 -3.73452d-3*gammaaa*t44*t49*t51*t64-3.73452d-3*t47*t48*t6 639 2 4/rhoa**8-1.86726d-3*t1*t44*t50*t55-1.86726d-3*gammaaa*t4 640 3 9*t50*t54+t1*t46*t54+t1*t44*t50*t51+2*gammaaa*t47*t49*t50 641 4 )-9.305257363490997d-1*t42*t5*(3.6121864536509485d-3*t1*t 642 5 3-1.6228720119327628d-5*gammaaa*t49*t60)-1.86726d-3*t50*t 643 6 56/t5)*wght+Cmat(iq,D1_GAA) 644 Mmat(iq,D1_TA) = (-9.305257363490997d-1*t4*t5*(-2.0d+0*t39*t 645 1 40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6-2.2d+1*t12*t14* 646 2 t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d+0*t34*t36*t38-6 647 3 .0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d+0*t30*t31*t32-1 648 4 .0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d+1*t25*t27*t29-1 649 5 .2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d+1*t21*t22*t23-1 650 6 .6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d+1*t16*t18*t20-1 651 7 .8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d+1*t12*t13*t14)+ 652 8 1.0d+0*t46*t5*(-7.46904d-3*gammaaa*t44*t51*t64*t65-3.7345 653 9 2d-3*gammaaa*t50*t54*t65+2.0d+0*gammaaa*t50*t51*t65-7.469 654 : 04d-3*t43*t52*t53*t64-7.46904d-3*t47*t48*t64/rhoa**7-3.73 655 ; 452d-3*t43*t44*t50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44* 656 < t50*t52)-3.73452d-3*t50*t56/t59)*wght+Mmat(iq,D1_TA) 657 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 658 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 659 t1 = 1/rhob**2.6666666666666666d+0 660 t2 = 4.49276922095889d-3*gammabb*t1+1.0d+0 661 t3 = 1/t2 662 t4 = 3.6121864536509485d-3*gammabb*t1*t3+1.0d+0 663 t5 = rhob**1.3333333333333333d+0 664 t6 = param(18) 665 t7 = rhob**1.6666666666666669d+0 666 t8 = 9.115599744691192d+0*t7 667 t9 = t8-2.0d+0*taub 668 t10 = t9**11 669 t11 = 2.0d+0*taub+t8 670 t12 = 1/t11**11 671 t13 = param(17) 672 t14 = t9**10 673 t15 = 1/t11**10 674 t16 = param(16) 675 t17 = t9**9 676 t18 = 1/t11**9 677 t19 = param(15) 678 t20 = t9**8 679 t21 = 1/t11**8 680 t22 = param(14) 681 t23 = t9**7 682 t24 = 1/t11**7 683 t25 = param(13) 684 t26 = t9**6 685 t27 = 1/t11**6 686 t28 = param(12) 687 t29 = t9**5 688 t30 = 1/t11**5 689 t31 = param(11) 690 t32 = t9**4 691 t33 = 1/t11**4 692 t34 = param(10) 693 t35 = t9**3 694 t36 = 1/t11**3 695 t37 = param(9) 696 t38 = t9**2 697 t39 = 1/t11**2 698 t40 = param(8) 699 t41 = 1/t11 700 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 701 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 702 2 17*t18+t13*t14*t15+param(7) 703 t43 = 1/t7 704 t44 = 2.0d+0*t43*taub-9.11559972d+0 705 t45 = 1.86726d-3*t44+1.86726d-3*gammabb*t1+1.0d+0 706 t46 = 1/t45 707 t47 = param(4) 708 t48 = gammabb**2 709 t49 = 1/rhob**5.333333333333333d+0 710 t50 = 1/t45**2 711 t51 = param(5) 712 t52 = param(6) 713 t53 = t44**2 714 t54 = param(2) 715 t55 = param(3) 716 t56 = t44*t46*t55+gammabb*t1*t46*t54+t50*t52*t53+gammabb*t1* 717 1 t44*t50*t51+t47*t48*t49*t50+param(1) 718 t57 = rhob**6.666666666666666d-1 719 t58 = 1/t11**12 720 t59 = rhob**3.333333333333333d-1 721 t60 = 1/t2**2 722 t61 = 1/rhob**6.333333333333333d+0 723 t62 = 1/rhob**3.6666666666666664d+0 724 t63 = -6.2242d-3*t1*taub-4.9793599999999993d-3*gammabb*t62 725 t64 = 1/t45**3 726 t65 = 1/rhob**4.333333333333333d+0 727 fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5) 728 1 *wght+fnc(iq) 729 Amat(iq,D1_RB) = (t46*(1.0d+0*t5*(-3.3333333333333337d+0*t1* 730 1 t46*t55*taub-6.666666666666667d+0*t1*t44*t50*t52*taub-3.3 731 2 333333333333337d+0*gammabb*t49*t50*t51*taub-2*t52*t53*t63 732 3 *t64-2*gammabb*t1*t44*t51*t63*t64-2*t47*t48*t49*t63*t64-t 733 4 44*t50*t55*t63-gammabb*t1*t50*t54*t63-2.6666666666666666d 734 5 +0*gammabb*t46*t54*t62-2.6666666666666666d+0*gammabb*t44* 735 6 t50*t51*t62-5.333333333333333d+0*t47*t48*t50*t61)+1.33333 736 7 33333333333d+0*t56*t59)-9.305257363490997d-1*t4*t5*(-1.51 737 8 92666241151986d+1*t39*t40*t57*t9+3.038533248230397d+1*t37 738 9 *t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+1.671193 739 : 2865267184d+2*t12*t14*t57*t6+1.5192666241151986d+1*t40*t4 740 ; 1*t57-3.038533248230397d+1*t36*t37*t38*t57+4.557799872345 741 < 5965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33*t34*t35 742 = *t57+6.077066496460795d+1*t31*t33*t35*t57-6.0770664964607 743 > 95d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t30*t32*t5 744 ? 7-7.596333120575993d+1*t27*t28*t29*t57+9.115599744691193d 745 @ +1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t26*t57+1 746 1 .0634866368806391d+2*t22*t24*t26*t57-1.0634866368806391d+ 747 2 2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t23*t57-1 748 3 .2154132992921589d+2*t18*t19*t20*t57+1.3673399617036788d+ 749 4 2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t17*t57+1 750 5 .5192666241151986d+2*t13*t15*t17*t57-1.5192666241151986d+ 751 6 2*t12*t13*t14*t57)-1.0d+0*t5*t50*t56*t63-9.30525736349099 752 7 7d-1*t42*t5*(4.327658698487368d-5*t48*t60*t61-9.632497209 753 8 735863d-3*gammabb*t3*t62)-1.2407009817987995d+0*t4*t42*t5 754 9 9)*wght+Amat(iq,D1_RB) 755 Cmat(iq,D1_GBB) = (1.0d+0*t46*t5*(-3.73452d-3*t1*t52*t53*t64 756 1 -3.73452d-3*gammabb*t44*t49*t51*t64-3.73452d-3*t47*t48*t6 757 2 4/rhob**8-1.86726d-3*t1*t44*t50*t55-1.86726d-3*gammabb*t4 758 3 9*t50*t54+t1*t46*t54+t1*t44*t50*t51+2*gammabb*t47*t49*t50 759 4 )-9.305257363490997d-1*t42*t5*(3.6121864536509485d-3*t1*t 760 5 3-1.6228720119327628d-5*gammabb*t49*t60)-1.86726d-3*t50*t 761 6 56/t5)*wght+Cmat(iq,D1_GBB) 762 Mmat(iq,D1_TB) = (-9.305257363490997d-1*t4*t5*(-2.0d+0*t39*t 763 1 40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6-2.2d+1*t12*t14* 764 2 t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d+0*t34*t36*t38-6 765 3 .0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d+0*t30*t31*t32-1 766 4 .0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d+1*t25*t27*t29-1 767 5 .2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d+1*t21*t22*t23-1 768 6 .6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d+1*t16*t18*t20-1 769 7 .8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d+1*t12*t13*t14)+ 770 8 1.0d+0*t46*t5*(-7.46904d-3*gammabb*t44*t51*t64*t65-3.7345 771 9 2d-3*gammabb*t50*t54*t65+2.0d+0*gammabb*t50*t51*t65-7.469 772 : 04d-3*t43*t52*t53*t64-7.46904d-3*t47*t48*t64/rhob**7-3.73 773 ; 452d-3*t43*t44*t50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44* 774 < t50*t52)-3.73452d-3*t50*t56/t59)*wght+Mmat(iq,D1_TB) 775 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 776 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 777 endif ! ipol.eq.1 778 enddo ! iq 779 end 780C> 781C> \brief Evaluate the nwxcm_x_m06 functional [1] 782C> 783C> \f{eqnarray*}{ 784C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 785C> {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 786C> {\it t_3} &=& {\it param}\left(7\right)\\\\ 787C> {\it t_4} &=& {\it param}\left(18\right)\\\\ 788C> {\it t_5} &=& \rho_\alpha^{{{5}\over{3}}}\\\\ 789C> {\it t_6} &=& 9.115599744691192\,{\it t_5}\\\\ 790C> {\it t_7} &=& {\it t_6}-2.0\,\tau_\alpha\\\\ 791C> {\it t_8} &=& 2.0\,\tau_\alpha+{\it t_6}\\\\ 792C> {\it t_9} &=& {\it param}\left(17\right)\\\\ 793C> {\it t_{10}} &=& {\it param}\left(16\right)\\\\ 794C> {\it t_{11}} &=& {\it param}\left(15\right)\\\\ 795C> {\it t_{12}} &=& {\it param}\left(14\right)\\\\ 796C> {\it t_{13}} &=& {\it param}\left(13\right)\\\\ 797C> {\it t_{14}} &=& {\it param}\left(12\right)\\\\ 798C> {\it t_{15}} &=& {\it param}\left(11\right)\\\\ 799C> {\it t_{16}} &=& {\it param}\left(10\right)\\\\ 800C> {\it t_{17}} &=& {\it param}\left(9\right)\\\\ 801C> {\it t_{18}} &=& {\it param}\left(8\right)\\\\ 802C> {\it t_{19}} &=& {{2.0\,\tau_\alpha}\over{{\it t_5}}} 803C> -9.11559972\\\\ 804C> {\it t_{20}} &=& 0.00186726\,{\it t_{19}}+0.00186726\,{\it t_2} 805C> \,\sigma_{\alpha\alpha}+1.0\\\\ 806C> {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\ 807C> {\it t_{22}} &=& {\it param}\left(1\right)\\\\ 808C> {\it t_{23}} &=& {\it param}\left(4\right)\\\\ 809C> {\it t_{24}} &=& {{1}\over{{\it t_{20}}^2}}\\\\ 810C> {\it t_{25}} &=& {\it param}\left(5\right)\\\\ 811C> {\it t_{26}} &=& {\it param}\left(6\right)\\\\ 812C> {\it t_{27}} &=& {\it param}\left(2\right)\\\\ 813C> {\it t_{28}} &=& {\it param}\left(3\right)\\\\ 814C> {\it t_{29}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 815C> {\it t_{30}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 816C> {\it t_{31}} &=& \rho_\beta^{{{5}\over{3}}}\\\\ 817C> {\it t_{32}} &=& 9.115599744691192\,{\it t_{31}}\\\\ 818C> {\it t_{33}} &=& {\it t_{32}}-2.0\,\tau_\beta\\\\ 819C> {\it t_{34}} &=& 2.0\,\tau_\beta+{\it t_{32}}\\\\ 820C> {\it t_{35}} &=& {{2.0\,\tau_\beta}\over{{\it t_{31}}}} 821C> -9.11559972\\\\ 822C> {\it t_{36}} &=& 0.00186726\,{\it t_{35}}+0.00186726\,{ 823C> \it t_{30}}\,\sigma_{\beta\beta}+1.0\\\\ 824C> {\it t_{37}} &=& {{1}\over{{\it t_{36}}}}\\\\ 825C> {\it t_{38}} &=& {{1}\over{{\it t_{36}}^2}}\\\\ 826C> {\it t_{39}} &=& \rho_s^{{{4}\over{3}}}\\\\ 827C> {\it t_{40}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 828C> {\it t_{41}} &=& \rho_s^{{{5}\over{3}}}\\\\ 829C> {\it t_{42}} &=& 9.115599744691192\,{\it t_{41}}\\\\ 830C> {\it t_{43}} &=& {\it t_{42}}-2.0\,\tau_s\\\\ 831C> {\it t_{44}} &=& 2.0\,\tau_s+{\it t_{42}}\\\\ 832C> {\it t_{45}} &=& {{2.0\,\tau_s}\over{{\it t_{41}}}}-9.11559972\\\\ 833C> {\it t_{46}} &=& 0.00186726\,{\it t_{45}}+0.00186726\,{ 834C> \it t_{40}}\,\sigma_{ss}+1.0\\\\ 835C> {\it t_{47}} &=& {{1}\over{{\it t_{46}}}}\\\\ 836C> {\it t_{48}} &=& {{1}\over{{\it t_{46}}^2}}\\\\ 837C> f &=& 1.0\,{\it t_{29}}\,{\it t_{37}}\,\left({\it t_{28}}\,{ 838C> \it t_{35}}\,{\it t_{37}}+{\it t_{27}}\,{\it t_{30}}\, 839C> \sigma_{\beta\beta}\,{\it t_{37}}+{\it t_{26}}\,{\it t_{35}}^2 840C> \,{\it t_{38}}+{\it t_{25}}\,{\it t_{30}}\,\sigma_{\beta\beta} 841C> \,{\it t_{35}}\,{\it t_{38}}+{{{\it t_{23}}\, 842C> \sigma_{\beta\beta}^2\,{\it t_{38}}} 843C> \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{22}}\right) 844C> -0.9305257363490997\,{\it t_{29}}\, 845C> \left({{0.003612186453650949\,{\it t_{30}}\, 846C> \sigma_{\beta\beta}}\over{0.00449276922095889\,{\it t_{30}} 847C> \,\sigma_{\beta\beta}+1.0}}+1.0\right)\,\left({{{\it t_{18}} 848C> \,{\it t_{33}}}\over{{\it t_{34}}}}+{{{\it t_{17}}\,{ 849C> \it t_{33}}^2}\over{{\it t_{34}}^2}}+{{{\it t_{16}}\,{ 850C> \it t_{33}}^3}\over{{\it t_{34}}^3}}+{{{\it t_{15}}\,{ 851C> \it t_{33}}^4}\over{{\it t_{34}}^4}}+{{{\it t_{14}}\,{ 852C> \it t_{33}}^5}\over{{\it t_{34}}^5}}+{{{\it t_{13}}\,{ 853C> \it t_{33}}^6}\over{{\it t_{34}}^6}}+{{{\it t_{12}}\,{ 854C> \it t_{33}}^7}\over{{\it t_{34}}^7}}+{{{\it t_{11}}\,{ 855C> \it t_{33}}^8}\over{{\it t_{34}}^8}}+{{{\it t_{10}}\,{ 856C> \it t_{33}}^9}\over{{\it t_{34}}^9}}+{{{\it t_9}\,{ 857C> \it t_{33}}^{10}}\over{{\it t_{34}}^{10}}}+{{{\it t_4}\,{ 858C> \it t_{33}}^{11}}\over{{\it t_{34}}^{11}}}+{\it t_3}\right) 859C> +1.0\,{\it t_1}\,{\it t_{21}}\,\left({\it t_{28}}\,{ 860C> \it t_{19}}\,{\it t_{21}}+{\it t_{27}}\,{\it t_2}\, 861C> \sigma_{\alpha\alpha}\,{\it t_{21}}+{\it t_{26}}\,{ 862C> \it t_{19}}^2\,{\it t_{24}}+{\it t_{25}}\,{\it t_2}\, 863C> \sigma_{\alpha\alpha}\,{\it t_{19}}\,{\it t_{24}}+{{{ 864C> \it t_{23}}\,\sigma_{\alpha\alpha}^2\,{\it t_{24}}} 865C> \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{22}}\right) 866C> -0.9305257363490997\,{\it t_1}\,\left({{0.003612186453650949 867C> \,{\it t_2}\,\sigma_{\alpha\alpha}}\over{0.00449276922095889 868C> \,{\it t_2}\,\sigma_{\alpha\alpha}+1.0}}+1.0\right)\, 869C> \left({{{\it t_{18}}\,{\it t_7}}\over{{\it t_8}}}+{{{ 870C> \it t_{17}}\,{\it t_7}^2}\over{{\it t_8}^2}}+{{{\it t_{16}} 871C> \,{\it t_7}^3}\over{{\it t_8}^3}}+{{{\it t_{15}}\,{ 872C> \it t_7}^4}\over{{\it t_8}^4}}+{{{\it t_{14}}\,{ 873C> \it t_7}^5}\over{{\it t_8}^5}}+{{{\it t_{13}}\,{ 874C> \it t_7}^6}\over{{\it t_8}^6}}+{{{\it t_{12}}\,{ 875C> \it t_7}^7}\over{{\it t_8}^7}}+{{{\it t_{11}}\,{ 876C> \it t_7}^8}\over{{\it t_8}^8}}+{{{\it t_{10}}\,{ 877C> \it t_7}^9}\over{{\it t_8}^9}}+{{{\it t_9}\,{ 878C> \it t_7}^{10}}\over{{\it t_8}^{10}}}+{{{\it t_4}\,{ 879C> \it t_7}^{11}}\over{{\it t_8}^{11}}}+{\it t_3}\right)\\\\ 880C> g &=& 0\\\\ 881C> G &=& 1.0\,{\it t_{39}}\,{\it t_{47}}\,\left({\it t_{28}}\,{ 882C> \it t_{45}}\,{\it t_{47}}+{\it t_{27}}\,{\it t_{40}}\, 883C> \sigma_{ss}\,{\it t_{47}}+{\it t_{26}}\,{\it t_{45}}^2\,{ 884C> \it t_{48}}+{\it t_{25}}\,{\it t_{40}}\,\sigma_{ss}\,{ 885C> \it t_{45}}\,{\it t_{48}}+{{{\it t_{23}}\,\sigma_{ss}^2\,{ 886C> \it t_{48}}}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_{22}}\right) 887C> -0.9305257363490997\,{\it t_{39}}\, 888C> \left({{0.003612186453650949\,{\it t_{40}}\,\sigma_{ss}} 889C> \over{0.00449276922095889\,{\it t_{40}}\,\sigma_{ss}+1.0}} 890C> +1.0\right)\,\left({{{\it t_{18}}\,{\it t_{43}}}\over{{ 891C> \it t_{44}}}}+{{{\it t_{17}}\,{\it t_{43}}^2}\over{{ 892C> \it t_{44}}^2}}+{{{\it t_{16}}\,{\it t_{43}}^3}\over{{ 893C> \it t_{44}}^3}}+{{{\it t_{15}}\,{\it t_{43}}^4}\over{{ 894C> \it t_{44}}^4}}+{{{\it t_{14}}\,{\it t_{43}}^5}\over{{ 895C> \it t_{44}}^5}}+{{{\it t_{13}}\,{\it t_{43}}^6}\over{{ 896C> \it t_{44}}^6}}+{{{\it t_{12}}\,{\it t_{43}}^7}\over{{ 897C> \it t_{44}}^7}}+{{{\it t_{11}}\,{\it t_{43}}^8}\over{{ 898C> \it t_{44}}^8}}+{{{\it t_{10}}\,{\it t_{43}}^9}\over{{ 899C> \it t_{44}}^9}}+{{{\it t_9}\,{\it t_{43}}^{10}}\over{{ 900C> \it t_{44}}^{10}}}+{{{\it t_4}\,{\it t_{43}}^{11}}\over{{ 901C> \it t_{44}}^{11}}}+{\it t_3}\right)\\\\ 902C> \f} 903C> 904C> Code generated with Maxima 5.34.0 [2] 905C> driven by autoxc [3]. 906C> 907C> ### References ### 908C> 909C> [1] Y Zhao, DG Truhlar, J.Chem.Phys. 123, 194101 (2006) , DOI: 910C> <a href="https://doi.org/10.1063/1.2370993 "> 911C> 10.1063/1.2370993 </a> 912C> 913C> [2] Maxima, a computer algebra system, 914C> <a href="http://maxima.sourceforge.net/"> 915C> http://maxima.sourceforge.net/</a> 916C> 917C> [3] autoxc, revision 27097 2015-05-08 918C> 919 subroutine nwxcm_x_m06_d2(param,tol_rho,ipol,nq,wght, 920 +rho,rgamma,tau,fnc,Amat,Amat2,Cmat,Cmat2,Mmat,Mmat2) 921c $Id: $ 922#ifdef NWXC_QUAD_PREC 923 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 924 integer, parameter :: rk=selected_real_kind(30) 925#else 926 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 927 integer, parameter :: rk=selected_real_kind(15) 928#endif 929#include "nwxc_param.fh" 930 double precision param(*) !< [Input] Parameters of functional 931 double precision tol_rho !< [Input] The lower limit on the density 932 integer ipol !< [Input] The number of spin channels 933 integer nq !< [Input] The number of points 934 double precision wght !< [Input] The weight of the functional 935 double precision rho(nq,NCOL_RHO) !< [Input] The density 936 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 937 !< gradients 938 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 939 double precision fnc(nq) !< [Output] The value of the functional 940c 941c Sampling Matrices for the XC Kernel 942c 943 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 944 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 945 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 946c 947c Sampling Matrices for the XC Kernel 948c 949 double precision Amat2(nq,NCOL_AMAT2) !< [Output] The 2nd derivative wrt rho 950 double precision Cmat2(nq,NCOL_CMAT2) !< [Output] The 2nd derivative wrt rgamma 951 !< and possibly rho 952 double precision Mmat2(nq,NCOL_MMAT2) !< [Output] The 2nd derivative wrt tau 953 !< and possibly rho 954 integer iq 955 double precision tmp 956 double precision rhoa,rhob 957 double precision gammaaa,gammaab,gammabb 958 double precision taua,taub 959 double precision nwxcm_heaviside 960 external nwxcm_heaviside 961CDIR$ NOVECTOR 962 do iq = 1, nq 963 if (ipol.eq.1) then 964 rhoa = 0.5d0*rho(iq,R_T) 965 gammaaa = 0.25d0*rgamma(iq,G_TT) 966 taua = 0.5d0*tau(iq,T_T) 967 if (rhoa.gt.tol_rho) then 968 t1 = 1/rhoa**2.6666666666666666d+0 969 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 970 t3 = 1/t2 971 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 972 t5 = rhoa**1.3333333333333333d+0 973 t6 = param(18) 974 t7 = rhoa**1.6666666666666669d+0 975 t8 = 9.115599744691192d+0*t7 976 t9 = t8-2.0d+0*taua 977 t10 = t9**11 978 t11 = 2.0d+0*taua+t8 979 t12 = 1/t11**11 980 t13 = param(17) 981 t14 = t9**10 982 t15 = 1/t11**10 983 t16 = param(16) 984 t17 = t9**9 985 t18 = 1/t11**9 986 t19 = param(15) 987 t20 = t9**8 988 t21 = 1/t11**8 989 t22 = param(14) 990 t23 = t9**7 991 t24 = 1/t11**7 992 t25 = param(13) 993 t26 = t9**6 994 t27 = 1/t11**6 995 t28 = param(12) 996 t29 = t9**5 997 t30 = 1/t11**5 998 t31 = param(11) 999 t32 = t9**4 1000 t33 = 1/t11**4 1001 t34 = param(10) 1002 t35 = t9**3 1003 t36 = 1/t11**3 1004 t37 = param(9) 1005 t38 = t9**2 1006 t39 = 1/t11**2 1007 t40 = param(8) 1008 t41 = 1/t11 1009 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 1010 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 1011 2 17*t18+t13*t14*t15+param(7) 1012 t43 = 1/t7 1013 t44 = 2.0d+0*t43*taua-9.11559972d+0 1014 t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0 1015 t46 = 1/t45 1016 t47 = param(4) 1017 t48 = gammaaa**2 1018 t49 = 1/rhoa**5.333333333333333d+0 1019 t50 = 1/t45**2 1020 t51 = param(5) 1021 t52 = param(6) 1022 t53 = t44**2 1023 t54 = param(2) 1024 t55 = param(3) 1025 t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1* 1026 1 t44*t50*t51+t47*t48*t49*t50+param(1) 1027 t57 = rhoa**6.666666666666666d-1 1028 t58 = 1/t11**12 1029 t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039 1030 1 7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+ 1031 2 1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+ 1032 3 1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577 1033 4 998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33 1034 5 *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706 1035 6 6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3 1036 7 0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974 1037 8 4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t 1038 9 26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368 1039 : 806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t 1040 ; 23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617 1041 < 036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t 1042 = 17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241 1043 > 151986d+2*t12*t13*t14*t57 1044 t60 = rhoa**3.333333333333333d-1 1045 t61 = 1/t2**2 1046 t62 = 1/rhoa**6.333333333333333d+0 1047 t63 = 1/rhoa**3.6666666666666664d+0 1048 t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3* 1049 1 gammaaa*t3*t63 1050 t65 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t63 1051 t66 = 1/t45**3 1052 t67 = -3.3333333333333337d+0*t1*t46*t55*taua-6.6666666666666 1053 1 67d+0*t1*t44*t50*t52*taua-3.3333333333333337d+0*gammaaa*t 1054 2 49*t50*t51*taua-2*t52*t53*t65*t66-2*gammaaa*t1*t44*t51*t6 1055 3 5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammaaa*t1*t5 1056 4 0*t54*t65-2.6666666666666666d+0*gammaaa*t46*t54*t63-2.666 1057 5 6666666666666d+0*gammaaa*t44*t50*t51*t63-5.33333333333333 1058 6 3d+0*t47*t48*t50*t62 1059 t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60 1060 t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm 1061 1 aaa*t49*t61 1062 t70 = 1/rhoa**8 1063 t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66- 1064 1 3.73452d-3*gammaaa*t44*t49*t51*t66-1.86726d-3*t1*t44*t50* 1065 2 t55-1.86726d-3*gammaaa*t49*t50*t54+t1*t46*t54+t1*t44*t50* 1066 3 t51+2*gammaaa*t47*t49*t50 1067 t72 = 1/t5 1068 t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6 1069 1 -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d 1070 2 +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d 1071 3 +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d 1072 4 +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d 1073 5 +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d 1074 6 +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d 1075 7 +1*t12*t13*t14 1076 t74 = 1/rhoa**7 1077 t75 = 1/rhoa**4.333333333333333d+0 1078 t76 = -7.46904d-3*gammaaa*t44*t51*t66*t75-3.73452d-3*gammaaa 1079 1 *t50*t54*t75+2.0d+0*gammaaa*t50*t51*t75-7.46904d-3*t47*t4 1080 2 8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t 1081 3 50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52 1082 t77 = 1/t60 1083 t78 = 1/t11**13 1084 t79 = 1/t57 1085 t80 = 1/t2**3 1086 t81 = 1/rhoa**7.333333333333333d+0 1087 t82 = 1/rhoa**4.666666666666667d+0 1088 t83 = t65**2 1089 t84 = 1/t45**4 1090 t85 = 1.6597866666666666d-2*t63*taua+1.8257653333333332d-2*g 1091 1 ammaaa*t82 1092 t86 = 1/rhoa**9 1093 t87 = 1/rhoa**6 1094 t88 = 1/rhoa**3.3333333333333337d+0 1095 fnc(iq) = (2.0d+0*t46*t5*t56-1.8610514726981994d+0*t4*t42*t5 1096 1 )*wght+fnc(iq) 1097 Amat(iq,D1_RA) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634 1098 1 90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30 1099 2 5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RA) 1100 Cmat(iq,D1_GAA) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71 1101 1 -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GAA) 1102 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 1103 Mmat(iq,D1_TA) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76- 1104 1 9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TA) 1105 Amat2(iq,D2_RA_RA) = (t46*(1.0d+0*t5*(2.2222222222222224d+1* 1106 1 t49*t50*t52*taua**2+2.6666666666666666d+1*t1*t44*t52*t65* 1107 2 t66*taua+1.3333333333333333d+1*gammaaa*t49*t51*t65*t66*ta 1108 3 ua+6.666666666666667d+0*t1*t50*t55*t65*taua+8.88888888888 1109 4 889d+0*t46*t55*t63*taua+1.7777777777777778d+1*t44*t50*t52 1110 5 *t63*taua+2.6666666666666666d+1*gammaaa*t50*t51*t62*taua- 1111 6 2*t52*t53*t66*t85-2*gammaaa*t1*t44*t51*t66*t85-2*t47*t48* 1112 7 t49*t66*t85-t44*t50*t55*t85-gammaaa*t1*t50*t54*t85+6*t52* 1113 8 t53*t83*t84+6*gammaaa*t1*t44*t51*t83*t84+6*t47*t48*t49*t8 1114 9 3*t84+2*t44*t55*t66*t83+2*gammaaa*t1*t54*t66*t83+9.777777 1115 : 777777779d+0*gammaaa*t46*t54*t82+9.777777777777779d+0*gam 1116 ; maaa*t44*t50*t51*t82+3.377777777777778d+1*t47*t48*t50*t81 1117 < +1.0666666666666666d+1*gammaaa*t44*t51*t63*t65*t66+2.1333 1118 = 333333333332d+1*t47*t48*t62*t65*t66+5.333333333333333d+0* 1119 > gammaaa*t50*t54*t63*t65)+4.444444444444444d-1*t56*t79+2.6 1120 ? 666666666666666d+0*t60*t67)-9.305257363490997d-1*t4*t5*(- 1121 @ 1.0128444160767991d+1*t39*t40*t77*t9+2.0256888321535982d+ 1122 1 1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-1.84 1123 2 6536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*t34* 1124 3 t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.1141288576 1125 4 844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t14*t6 1126 5 *t77+1.0128444160767991d+1*t40*t41*t77-2.0256888321535982 1127 6 d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*t77- 1128 7 3.038533248230397d+1*t33*t34*t35*t77+4.0513776643071964d+ 1129 8 1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t77+5 1130 9 .064222080383994d+1*t28*t30*t32*t77-5.064222080383994d+1* 1131 : t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-6.07 1132 ; 7066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1*t22 1133 < *t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.10275 1134 = 5328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t18*t1 1135 > 9*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.11559974 1136 ? 4691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t15*t 1137 @ 17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.58577400186 1138 1 3949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t5*t6 1139 2 +2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007845d 1140 3 +2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.38490264 1141 4 50902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*t34* 1142 5 t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.769805290180 1143 6 471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t35*t5 1144 7 +4.616342150300784d+3*t28*t30*t35*t5+4.616342150300784d+3 1145 8 *t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6.924 1146 9 513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t24*t 1147 : 28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.694318515 1148 ; 631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25*t26 1149 < *t5-2.2620076536473846d+4*t21*t22*t26*t5+1.29257580208421 1150 = 96d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t23*t5 1151 > -2.954458976192502d+4*t18*t19*t23*t5+1.6618831741082823d+ 1152 ? 4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5-3.7 1153 @ 392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d+4*t 1154 1 13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.6163 1155 2 42150300784d+4*t12*t13*t17*t5)+t50*(-1.0d+0*t5*t56*t85-t6 1156 3 5*t68-1.0d+0*t5*t65*t67-1.3333333333333333d+0*t56*t60*t65 1157 4 )+2.0d+0*t5*t56*t66*t83-9.305257363490997d-1*t42*t5*(3.53 1158 5 1915643569816d-2*gammaaa*t3*t82-3.8948928286386303d-4*t48 1159 6 *t61*t81+1.0369691626335495d-6*gammaaa**3*t80/rhoa**10)-4 1160 7 .1356699393293317d-1*t4*t42*t79-2.481401963597599d+0*t42* 1161 8 t60*t64-1.8610514726981994d+0*t5*t59*t64-2.48140196359759 1162 9 9d+0*t4*t59*t60)*wght+Amat2(iq,D2_RA_RA) 1163 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 1164 Cmat2(iq,D2_RA_GAA) = (t46*(1.0d+0*t5*(1.24484d-2*gammaaa*t5 1165 1 1*t66*t70*taua+2.48968d-2*t44*t49*t52*t66*taua+6.2242d-3* 1166 2 t49*t50*t55*taua-3.3333333333333337d+0*t49*t50*t51*taua+2 1167 3 .9876159999999996d-2*t47*t48*t66*t86+1.120356d-2*t47*t48* 1168 4 t65*t70*t84+1.120356d-2*t1*t52*t53*t65*t84+1.120356d-2*ga 1169 5 mmaaa*t44*t49*t51*t65*t84+3.73452d-3*t1*t44*t55*t65*t66+3 1170 6 .73452d-3*gammaaa*t49*t54*t65*t66-2*t1*t44*t51*t65*t66-4* 1171 7 gammaaa*t47*t49*t65*t66+9.958719999999999d-3*t52*t53*t63* 1172 8 t66+1.9917439999999997d-2*gammaaa*t44*t51*t62*t66-t1*t50* 1173 9 t54*t65+4.9793599999999993d-3*t44*t50*t55*t63-2.666666666 1174 : 6666666d+0*t46*t54*t63-2.6666666666666666d+0*t44*t50*t51* 1175 ; t63+9.958719999999999d-3*gammaaa*t50*t54*t62-1.0666666666 1176 < 666666d+1*gammaaa*t47*t50*t62)+1.3333333333333333d+0*t60* 1177 = t71)-9.305257363490997d-1*t42*t5*(-3.8886343598758105d-7* 1178 > t48*t80*t86-9.632497209735863d-3*t3*t63+1.29829760954621d 1179 ? -4*gammaaa*t61*t62)+3.73452d-3*t56*t65*t66*t72-1.0d+0*t5* 1180 @ t50*t65*t71-1.2407009817987995d+0*t42*t60*t69-9.305257363 1181 1 490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t68+4.979359999999 1182 2 9993d-3*t50*t56/rhoa**2.3333333333333334d+0)*wght+Cmat2(i 1183 3 q,D2_RA_GAA) 1184 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 1185 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 1186 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t46*t5*(2.0919959445599998d-5 1187 1 *gammaaa*t44*t51*t70*t84+2.0919959445599998d-5*t49*t52*t5 1188 2 3*t84+2.0919959445599998d-5*t47*t48*t84/rhoa**1.066666666 1189 3 6666666d+1+6.973319815199999d-6*gammaaa*t54*t66*t70-1.493 1190 4 8079999999998d-2*gammaaa*t47*t66*t70+6.973319815199999d-6 1191 5 *t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*t4 1192 6 9*t50*t54+2*t47*t49*t50)-9.305257363490997d-1*t42*t5*(1.4 1193 7 582378849534292d-7*gammaaa*t70*t80-3.2457440238655255d-5* 1194 8 t49*t61)-3.73452d-3*t50*t71*t72+6.973319815199999d-6*t56* 1195 9 t66/rhoa**4)*wght+Cmat2(iq,D2_GAA_GAA) 1196 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 1197 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 1198 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 1199 Mmat2(iq,D2_RA_TA) = (t46*(1.0d+0*t5*(4.97936d-2*t44*t52*t66 1200 1 *t75*taua+1.24484d-2*t50*t55*t75*taua-1.3333333333333333d 1201 2 +1*t50*t52*t75*taua+2.48968d-2*gammaaa*t51*t66*t74*taua+2 1202 3 .240712d-2*gammaaa*t44*t51*t65*t75*t84+2.240712d-2*t47*t4 1203 4 8*t65*t74*t84+2.240712d-2*t43*t52*t53*t65*t84+7.46904d-3* 1204 5 gammaaa*t54*t65*t66*t75-4.0d+0*gammaaa*t51*t65*t66*t75+5. 1205 6 228328d-2*t47*t48*t66*t70+7.46904d-3*t43*t44*t55*t65*t66- 1206 7 8.0d+0*t43*t44*t52*t65*t66+1.24484d-2*t1*t52*t53*t66+3.23 1207 8 6584d-2*gammaaa*t44*t49*t51*t66-2.0d+0*t43*t50*t55*t65+6. 1208 9 2242d-3*t1*t44*t50*t55-3.3333333333333337d+0*t1*t46*t55+1 1209 : .618292d-2*gammaaa*t49*t50*t54-6.666666666666667d+0*t1*t4 1210 ; 4*t50*t52-8.666666666666666d+0*gammaaa*t49*t50*t51)+1.333 1211 < 3333333333333d+0*t60*t76)-9.305257363490997d-1*t4*t5*(6.0 1212 = 77066496460795d+1*t36*t40*t57*t9-1.8231199489382385d+2*t3 1213 > 4*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-3.34238 1214 ? 6573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*t13*t14 1215 @ *t57*t58-6.077066496460795d+1*t37*t39*t57+1.8231199489382 1216 1 385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t33*t38*t 1217 2 57+3.646239897876477d+2*t30*t34*t35*t57-6.077066496460795 1218 3 d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t32*t57- 1219 4 9.115599744691192d+2*t25*t27*t32*t57+9.115599744691192d+2 1220 5 *t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*t57+1.2 1221 6 76183964256767d+3*t21*t25*t26*t57-1.7015786190090226d+3*t 1222 7 19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t57-2.18 1223 8 7743938725886d+3*t16*t18*t23*t57+2.187743938725886d+3*t15 1224 9 *t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+2.73467 1225 : 9923407357d+3*t12*t16*t17*t57)+7.46904d-3*t56*t65*t66*t77 1226 ; -1.0d+0*t5*t50*t65*t76-9.305257363490997d-1*t5*t64*t73-1. 1227 < 2407009817987995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73 1228 = 452d-3*t43*t50*t68)*wght+Mmat2(iq,D2_RA_TA) 1229 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 1230 Mmat2(iq,D2_GAA_TA) = (1.0d+0*t46*t5*(4.1839918891199995d-5* 1231 1 t52*t53*t75*t84+4.1839918891199995d-5*gammaaa*t44*t51*t74 1232 2 *t84+4.1839918891199995d-5*t47*t48*t84/rhoa**9.6666666666 1233 3 66666d+0+1.3946639630399998d-5*t44*t55*t66*t75-1.49380799 1234 4 99999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t75-3. 1235 5 73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t50*t5 1236 6 1*t75+1.3946639630399998d-5*gammaaa*t54*t66*t74-7.46904d- 1237 7 3*gammaaa*t51*t66*t74-1.4938079999999998d-2*gammaaa*t47*t 1238 8 66*t74)-3.73452d-3*t50*t71*t77-1.86726d-3*t50*t72*t76-9.3 1239 9 05257363490997d-1*t5*t69*t73+1.3946639630399998d-5*t56*t6 1240 : 6/rhoa**3)*wght+Mmat2(iq,D2_GAA_TA) 1241 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 1242 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 1243 Mmat2(iq,D2_TA_TA) = (-9.305257363490997d-1*t4*t5*(8.0d+0*t3 1244 1 6*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9+5.28d+2*t10* 1245 2 t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+4.4d+2*t13*t1 1246 3 4*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t33*t37*t38+7. 1247 4 2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t30*t34*t35+1. 1248 5 28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*t27*t31*t32+2 1249 6 .0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*t24*t28*t29+2 1250 7 .88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d+2*t21*t25*t2 1251 8 6+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.24d+2*t18*t22 1252 9 *t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23+2.88d+2*t15* 1253 : t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t20+3.6d+2*t12 1254 ; *t16*t17+8.0d+2*t12*t13*t17)+1.0d+0*t46*t5*(8.36798377823 1255 < 9999d-5*t52*t53*t84*t88+2.7893279260799997d-5*t44*t55*t66 1256 = *t88-5.975231999999999d-2*t44*t52*t66*t88-1.4938079999999 1257 > 998d-2*t50*t55*t88+8.0d+0*t50*t52*t88+8.367983778239999d- 1258 ? 5*gammaaa*t44*t51*t84*t87+2.7893279260799997d-5*gammaaa*t 1259 @ 54*t66*t87-2.9876159999999996d-2*gammaaa*t51*t66*t87+8.36 1260 1 7983778239999d-5*t47*t48*t84/rhoa**8.666666666666666d+0)- 1261 2 7.46904d-3*t50*t76*t77+2.7893279260799997d-5*t56*t66/rhoa 1262 3 **2)*wght+Mmat2(iq,D2_TA_TA) 1263 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 1264 endif ! rhoa.gt.tol_rho 1265 else ! ipol.eq.1 1266 rhoa = rho(iq,R_A) 1267 rhob = rho(iq,R_B) 1268 gammaaa = rgamma(iq,G_AA) 1269 gammaab = rgamma(iq,G_AB) 1270 gammabb = rgamma(iq,G_BB) 1271 taua = tau(iq,T_A) 1272 taub = tau(iq,T_B) 1273 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 1274 t1 = 1/rhoa**2.6666666666666666d+0 1275 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 1276 t3 = 1/t2 1277 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 1278 t5 = rhoa**1.3333333333333333d+0 1279 t6 = param(7) 1280 t7 = param(18) 1281 t8 = rhoa**1.6666666666666669d+0 1282 t9 = 9.115599744691192d+0*t8 1283 t10 = t9-2.0d+0*taua 1284 t11 = t10**11 1285 t12 = 2.0d+0*taua+t9 1286 t13 = 1/t12**11 1287 t14 = param(17) 1288 t15 = t10**10 1289 t16 = 1/t12**10 1290 t17 = param(16) 1291 t18 = t10**9 1292 t19 = 1/t12**9 1293 t20 = param(15) 1294 t21 = t10**8 1295 t22 = 1/t12**8 1296 t23 = param(14) 1297 t24 = t10**7 1298 t25 = 1/t12**7 1299 t26 = param(13) 1300 t27 = t10**6 1301 t28 = 1/t12**6 1302 t29 = param(12) 1303 t30 = t10**5 1304 t31 = 1/t12**5 1305 t32 = param(11) 1306 t33 = t10**4 1307 t34 = 1/t12**4 1308 t35 = param(10) 1309 t36 = t10**3 1310 t37 = 1/t12**3 1311 t38 = param(9) 1312 t39 = t10**2 1313 t40 = 1/t12**2 1314 t41 = param(8) 1315 t42 = 1/t12 1316 t43 = t11*t13*t7+t6+t10*t41*t42+t38*t39*t40+t35*t36*t37+t32* 1317 1 t33*t34+t29*t30*t31+t26*t27*t28+t23*t24*t25+t20*t21*t22+t 1318 2 17*t18*t19+t14*t15*t16 1319 t44 = 1/t8 1320 t45 = 2.0d+0*t44*taua-9.11559972d+0 1321 t46 = 1.86726d-3*t45+1.86726d-3*gammaaa*t1+1.0d+0 1322 t47 = 1/t46 1323 t48 = param(1) 1324 t49 = param(4) 1325 t50 = gammaaa**2 1326 t51 = 1/rhoa**5.333333333333333d+0 1327 t52 = 1/t46**2 1328 t53 = param(5) 1329 t54 = param(6) 1330 t55 = t45**2 1331 t56 = param(2) 1332 t57 = param(3) 1333 t58 = t45*t47*t57+gammaaa*t1*t47*t56+t52*t54*t55+gammaaa*t1* 1334 1 t45*t52*t53+t49*t50*t51*t52+t48 1335 t59 = 1/rhob**2.6666666666666666d+0 1336 t60 = 4.49276922095889d-3*gammabb*t59+1.0d+0 1337 t61 = 1/t60 1338 t62 = 3.6121864536509485d-3*gammabb*t59*t61+1.0d+0 1339 t63 = rhob**1.3333333333333333d+0 1340 t64 = rhob**1.6666666666666669d+0 1341 t65 = 9.115599744691192d+0*t64 1342 t66 = t65-2.0d+0*taub 1343 t67 = t66**11 1344 t68 = 2.0d+0*taub+t65 1345 t69 = 1/t68**11 1346 t70 = t66**10 1347 t71 = 1/t68**10 1348 t72 = t66**9 1349 t73 = 1/t68**9 1350 t74 = t66**8 1351 t75 = 1/t68**8 1352 t76 = t66**7 1353 t77 = 1/t68**7 1354 t78 = t66**6 1355 t79 = 1/t68**6 1356 t80 = t66**5 1357 t81 = 1/t68**5 1358 t82 = t66**4 1359 t83 = 1/t68**4 1360 t84 = t66**3 1361 t85 = 1/t68**3 1362 t86 = t66**2 1363 t87 = 1/t68**2 1364 t88 = 1/t68 1365 t89 = t41*t66*t88+t38*t86*t87+t35*t84*t85+t32*t82*t83+t29*t8 1366 1 0*t81+t26*t78*t79+t23*t76*t77+t20*t74*t75+t17*t72*t73+t14 1367 2 *t70*t71+t67*t69*t7+t6 1368 t90 = 1/t64 1369 t91 = 2.0d+0*t90*taub-9.11559972d+0 1370 t92 = 1.86726d-3*t91+1.86726d-3*gammabb*t59+1.0d+0 1371 t93 = 1/t92 1372 t94 = gammabb**2 1373 t95 = 1/rhob**5.333333333333333d+0 1374 t96 = 1/t92**2 1375 t97 = t91**2 1376 t98 = t54*t96*t97+t49*t94*t95*t96+gammabb*t53*t59*t91*t96+t5 1377 1 7*t91*t93+gammabb*t56*t59*t93+t48 1378 t99 = rhoa**6.666666666666666d-1 1379 t100 = 1/t12**12 1380 t101 = 1.6711932865267184d+2*t13*t15*t7*t99-1.67119328652671 1381 1 84d+2*t100*t11*t7*t99+1.5192666241151986d+1*t41*t42*t99-1 1382 2 .5192666241151986d+1*t10*t40*t41*t99+3.038533248230397d+1 1383 3 *t10*t38*t40*t99-3.038533248230397d+1*t37*t38*t39*t99+4.5 1384 4 577998723455965d+1*t35*t37*t39*t99-4.5577998723455965d+1* 1385 5 t34*t35*t36*t99+6.077066496460795d+1*t32*t34*t36*t99-6.07 1386 6 7066496460795d+1*t31*t32*t33*t99+7.596333120575993d+1*t29 1387 7 *t31*t33*t99-7.596333120575993d+1*t28*t29*t30*t99+9.11559 1388 8 9744691193d+1*t26*t28*t30*t99-9.115599744691193d+1*t25*t2 1389 9 6*t27*t99+1.0634866368806391d+2*t23*t25*t27*t99-1.0634866 1390 : 368806391d+2*t22*t23*t24*t99+1.2154132992921589d+2*t20*t2 1391 ; 2*t24*t99-1.2154132992921589d+2*t19*t20*t21*t99+1.3673399 1392 < 617036788d+2*t17*t19*t21*t99-1.3673399617036788d+2*t16*t1 1393 = 7*t18*t99+1.5192666241151986d+2*t14*t16*t18*t99-1.5192666 1394 > 241151986d+2*t13*t14*t15*t99 1395 t102 = rhoa**3.333333333333333d-1 1396 t103 = 1/t2**2 1397 t104 = 1/rhoa**6.333333333333333d+0 1398 t105 = 1/rhoa**3.6666666666666664d+0 1399 t106 = 4.327658698487368d-5*t103*t104*t50-9.632497209735863d 1400 1 -3*gammaaa*t105*t3 1401 t107 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t105 1402 t108 = 1/t46**3 1403 t109 = -3.3333333333333337d+0*t1*t47*t57*taua-6.666666666666 1404 1 667d+0*t1*t45*t52*t54*taua-3.3333333333333337d+0*gammaaa* 1405 2 t51*t52*t53*taua-t107*t45*t52*t57-gammaaa*t1*t107*t52*t56 1406 3 -2.6666666666666666d+0*gammaaa*t105*t47*t56-2*t107*t108*t 1407 4 54*t55-2.6666666666666666d+0*gammaaa*t105*t45*t52*t53-2*g 1408 5 ammaaa*t1*t107*t108*t45*t53-5.333333333333333d+0*t104*t49 1409 6 *t50*t52-2*t107*t108*t49*t50*t51 1410 t110 = 1.3333333333333333d+0*t102*t58+1.0d+0*t109*t5 1411 t111 = rhob**6.666666666666666d-1 1412 t112 = 1/t68**12 1413 t113 = 1.5192666241151986d+1*t111*t41*t88-1.5192666241151986 1414 1 d+1*t111*t41*t66*t87+3.038533248230397d+1*t111*t38*t66*t8 1415 2 7-3.038533248230397d+1*t111*t38*t85*t86+4.557799872345596 1416 3 5d+1*t111*t35*t85*t86-4.5577998723455965d+1*t111*t35*t83* 1417 4 t84+6.077066496460795d+1*t111*t32*t83*t84-6.0770664964607 1418 5 95d+1*t111*t32*t81*t82+7.596333120575993d+1*t111*t29*t81* 1419 6 t82-7.596333120575993d+1*t111*t29*t79*t80+9.1155997446911 1420 7 93d+1*t111*t26*t79*t80-9.115599744691193d+1*t111*t26*t77* 1421 8 t78+1.0634866368806391d+2*t111*t23*t77*t78-1.063486636880 1422 9 6391d+2*t111*t23*t75*t76+1.2154132992921589d+2*t111*t20*t 1423 : 75*t76-1.2154132992921589d+2*t111*t20*t73*t74+1.367339961 1424 ; 7036788d+2*t111*t17*t73*t74-1.3673399617036788d+2*t111*t1 1425 < 7*t71*t72+1.5192666241151986d+2*t111*t14*t71*t72+1.671193 1426 = 2865267184d+2*t111*t69*t7*t70-1.5192666241151986d+2*t111* 1427 > t14*t69*t70-1.6711932865267184d+2*t111*t112*t67*t7 1428 t114 = rhob**3.333333333333333d-1 1429 t115 = 1/t60**2 1430 t116 = 1/rhob**6.333333333333333d+0 1431 t117 = 1/rhob**3.6666666666666664d+0 1432 t118 = 4.327658698487368d-5*t115*t116*t94-9.632497209735863d 1433 1 -3*gammabb*t117*t61 1434 t119 = -6.2242d-3*t59*taub-4.9793599999999993d-3*gammabb*t11 1435 1 7 1436 t120 = 1/t92**3 1437 t121 = -3.3333333333333337d+0*gammabb*t53*t95*t96*taub-6.666 1438 1 666666666667d+0*t54*t59*t91*t96*taub-3.3333333333333337d+ 1439 2 0*t57*t59*t93*taub-2*t119*t120*t54*t97-5.333333333333333d 1440 3 +0*t116*t49*t94*t96-t119*t57*t91*t96-2.6666666666666666d+ 1441 4 0*gammabb*t117*t53*t91*t96-gammabb*t119*t56*t59*t96-2*t11 1442 5 9*t120*t49*t94*t95-2.6666666666666666d+0*gammabb*t117*t56 1443 6 *t93-2*gammabb*t119*t120*t53*t59*t91 1444 t122 = 1.3333333333333333d+0*t114*t98+1.0d+0*t121*t63 1445 t123 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gam 1446 1 maaa*t103*t51 1447 t124 = 1/rhoa**8 1448 t125 = -1.86726d-3*t1*t45*t52*t57-1.86726d-3*gammaaa*t51*t52 1449 1 *t56+t1*t47*t56-3.73452d-3*t1*t108*t54*t55+t1*t45*t52*t53 1450 2 -3.73452d-3*gammaaa*t108*t45*t51*t53+2*gammaaa*t49*t51*t5 1451 3 2-3.73452d-3*t108*t124*t49*t50 1452 t126 = 1/t5 1453 t127 = 3.6121864536509485d-3*t59*t61-1.6228720119327628d-5*g 1454 1 ammabb*t115*t95 1455 t128 = 1/rhob**8 1456 t129 = -3.73452d-3*t120*t54*t59*t97-1.86726d-3*gammabb*t56*t 1457 1 95*t96+2*gammabb*t49*t95*t96-1.86726d-3*t57*t59*t91*t96+t 1458 2 53*t59*t91*t96-3.73452d-3*gammabb*t120*t53*t91*t95-3.7345 1459 3 2d-3*t120*t128*t49*t94+t56*t59*t93 1460 t130 = 1/t63 1461 t131 = -2.2d+1*t13*t15*t7-2.2d+1*t100*t11*t7-2.0d+0*t41*t42- 1462 1 2.0d+0*t10*t40*t41-4.0d+0*t10*t38*t40-4.0d+0*t37*t38*t39- 1463 2 6.0d+0*t35*t37*t39-6.0d+0*t34*t35*t36-8.0d+0*t32*t34*t36- 1464 3 8.0d+0*t31*t32*t33-1.0d+1*t29*t31*t33-1.0d+1*t28*t29*t30- 1465 4 1.2d+1*t26*t28*t30-1.2d+1*t25*t26*t27-1.4d+1*t23*t25*t27- 1466 5 1.4d+1*t22*t23*t24-1.6d+1*t20*t22*t24-1.6d+1*t19*t20*t21- 1467 6 1.8d+1*t17*t19*t21-1.8d+1*t16*t17*t18-2.0d+1*t14*t16*t18- 1468 7 2.0d+1*t13*t14*t15 1469 t132 = 1/rhoa**7 1470 t133 = 1/rhoa**4.333333333333333d+0 1471 t134 = -3.73452d-3*t44*t45*t52*t57+2.0d+0*t44*t47*t57-3.7345 1472 1 2d-3*gammaaa*t133*t52*t56-7.46904d-3*t108*t44*t54*t55+4.0 1473 2 d+0*t44*t45*t52*t54+2.0d+0*gammaaa*t133*t52*t53-7.46904d- 1474 3 3*gammaaa*t108*t133*t45*t53-7.46904d-3*t108*t132*t49*t50 1475 t135 = 1/t102 1476 t136 = -2.0d+0*t41*t88-2.0d+0*t41*t66*t87-4.0d+0*t38*t66*t87 1477 1 -4.0d+0*t38*t85*t86-6.0d+0*t35*t85*t86-6.0d+0*t35*t83*t84 1478 2 -8.0d+0*t32*t83*t84-8.0d+0*t32*t81*t82-1.0d+1*t29*t81*t82 1479 3 -1.0d+1*t29*t79*t80-1.2d+1*t26*t79*t80-1.2d+1*t26*t77*t78 1480 4 -1.4d+1*t23*t77*t78-1.4d+1*t23*t75*t76-1.6d+1*t20*t75*t76 1481 5 -1.6d+1*t20*t73*t74-1.8d+1*t17*t73*t74-1.8d+1*t17*t71*t72 1482 6 -2.0d+1*t14*t71*t72-2.2d+1*t69*t7*t70-2.0d+1*t14*t69*t70- 1483 7 2.2d+1*t112*t67*t7 1484 t137 = 1/rhob**7 1485 t138 = 1/rhob**4.333333333333333d+0 1486 t139 = -7.46904d-3*t120*t54*t90*t97-3.73452d-3*t57*t90*t91*t 1487 1 96+4.0d+0*t54*t90*t91*t96-3.73452d-3*gammabb*t138*t56*t96 1488 2 +2.0d+0*gammabb*t138*t53*t96-7.46904d-3*t120*t137*t49*t94 1489 3 +2.0d+0*t57*t90*t93-7.46904d-3*gammabb*t120*t138*t53*t91 1490 t140 = 1/t114 1491 t141 = 1/t12**13 1492 t142 = 1/t99 1493 t143 = 1/t2**3 1494 t144 = 1/rhoa**7.333333333333333d+0 1495 t145 = 1/rhoa**4.666666666666667d+0 1496 t146 = t107**2 1497 t147 = 1/t46**4 1498 t148 = 1.6597866666666666d-2*t105*taua+1.8257653333333332d-2 1499 1 *gammaaa*t145 1500 t149 = 1/t68**13 1501 t150 = 1/t111 1502 t151 = 1/t60**3 1503 t152 = 1/rhob**7.333333333333333d+0 1504 t153 = 1/rhob**4.666666666666667d+0 1505 t154 = t119**2 1506 t155 = 1/t92**4 1507 t156 = 1.6597866666666666d-2*t117*taub+1.8257653333333332d-2 1508 1 *gammabb*t153 1509 t157 = 1/rhoa**9 1510 t158 = 1/rhob**9 1511 t159 = 1/rhoa**6 1512 t160 = 1/rhoa**3.3333333333333337d+0 1513 t161 = 1/rhob**6 1514 t162 = 1/rhob**3.3333333333333337d+0 1515 fnc(iq) = (1.0d+0*t63*t93*t98-9.305257363490997d-1*t62*t63*t 1516 1 89+1.0d+0*t47*t5*t58-9.305257363490997d-1*t4*t43*t5)*wght 1517 2 +fnc(iq) 1518 Amat(iq,D1_RA) = (-1.0d+0*t107*t5*t52*t58-9.305257363490997d 1519 1 -1*t106*t43*t5-9.305257363490997d-1*t101*t4*t5+t110*t47-1 1520 2 .2407009817987995d+0*t102*t4*t43)*wght+Amat(iq,D1_RA) 1521 Amat(iq,D1_RB) = (-1.0d+0*t119*t63*t96*t98+t122*t93-9.305257 1522 1 363490997d-1*t118*t63*t89-1.2407009817987995d+0*t114*t62* 1523 2 t89-9.305257363490997d-1*t113*t62*t63)*wght+Amat(iq,D1_RB 1524 3 ) 1525 Cmat(iq,D1_GAA) = (-1.86726d-3*t126*t52*t58+1.0d+0*t125*t47* 1526 1 t5-9.305257363490997d-1*t123*t43*t5)*wght+Cmat(iq,D1_GAA) 1527 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 1528 Cmat(iq,D1_GBB) = (-1.86726d-3*t130*t96*t98+1.0d+0*t129*t63* 1529 1 t93-9.305257363490997d-1*t127*t63*t89)*wght+Cmat(iq,D1_GB 1530 2 B) 1531 Mmat(iq,D1_TA) = (-3.73452d-3*t135*t52*t58+1.0d+0*t134*t47*t 1532 1 5-9.305257363490997d-1*t131*t4*t5)*wght+Mmat(iq,D1_TA) 1533 Mmat(iq,D1_TB) = (-3.73452d-3*t140*t96*t98+1.0d+0*t139*t63*t 1534 1 93-9.305257363490997d-1*t136*t62*t63)*wght+Mmat(iq,D1_TB) 1535 Amat2(iq,D2_RA_RA) = (t47*(1.0d+0*t5*(2.2222222222222224d+1* 1536 1 t51*t52*t54*taua**2+6.666666666666667d+0*t1*t107*t52*t57* 1537 2 taua+8.88888888888889d+0*t105*t47*t57*taua+1.777777777777 1538 3 7778d+1*t105*t45*t52*t54*taua+2.6666666666666666d+1*t1*t1 1539 4 07*t108*t45*t54*taua+2.6666666666666666d+1*gammaaa*t104*t 1540 5 52*t53*taua+1.3333333333333333d+1*gammaaa*t107*t108*t51*t 1541 6 53*taua-t148*t45*t52*t57+2*t108*t146*t45*t57-gammaaa*t1*t 1542 7 148*t52*t56+5.333333333333333d+0*gammaaa*t105*t107*t52*t5 1543 8 6+9.777777777777779d+0*gammaaa*t145*t47*t56+2*gammaaa*t1* 1544 9 t108*t146*t56-2*t108*t148*t54*t55+6*t146*t147*t54*t55+9.7 1545 : 77777777777779d+0*gammaaa*t145*t45*t52*t53-2*gammaaa*t1*t 1546 ; 108*t148*t45*t53+6*gammaaa*t1*t146*t147*t45*t53+1.0666666 1547 < 666666666d+1*gammaaa*t105*t107*t108*t45*t53+3.37777777777 1548 = 7778d+1*t144*t49*t50*t52-2*t108*t148*t49*t50*t51+6*t146*t 1549 > 147*t49*t50*t51+2.1333333333333332d+1*t104*t107*t108*t49* 1550 ? t50)+4.444444444444444d-1*t142*t58+2.6666666666666666d+0* 1551 @ t102*t109)-9.305257363490997d-1*t4*t5*(2.5389881826654315 1552 1 d+4*t13*t18*t5*t7-5.585774001863949d+4*t100*t15*t5*t7+3.0 1553 2 46785819198518d+4*t11*t141*t5*t7+1.1141288576844789d+2*t1 1554 3 3*t135*t15*t7-1.1141288576844789d+2*t100*t11*t135*t7-4.61 1555 4 63421503007845d+2*t40*t41*t5+4.6163421503007845d+2*t10*t3 1556 5 7*t41*t5+4.6163421503007845d+2*t38*t40*t5+1.3849026450902 1557 6 355d+3*t34*t38*t39*t5-4.1547079352707067d+3*t34*t35*t39*t 1558 7 5+2.769805290180471d+3*t32*t34*t39*t5-1.846536860120314d+ 1559 8 3*t10*t37*t38*t5+1.3849026450902355d+3*t10*t35*t37*t5+2.7 1560 9 69805290180471d+3*t31*t35*t36*t5-7.386147440481255d+3*t31 1561 : *t32*t36*t5+4.616342150300784d+3*t29*t31*t36*t5+4.6163421 1562 ; 50300784d+3*t28*t32*t33*t5-1.154085537575196d+4*t28*t29*t 1563 < 33*t5+6.924513225451178d+3*t26*t28*t33*t5+6.9245132254511 1564 = 78d+3*t25*t29*t30*t5-1.661883174108283d+4*t25*t26*t30*t5+ 1565 > 9.694318515631648d+3*t23*t25*t30*t5+9.694318515631648d+3* 1566 ? t22*t26*t27*t5-2.2620076536473846d+4*t22*t23*t27*t5+1.292 1567 @ 5758020842196d+4*t20*t22*t27*t5+1.2925758020842196d+4*t19 1568 1 *t23*t24*t5-2.954458976192502d+4*t19*t20*t24*t5+1.6618831 1569 2 741082823d+4*t17*t19*t24*t5+1.6618831741082823d+4*t16*t20 1570 3 *t21*t5-3.7392371417436354d+4*t16*t17*t21*t5+2.0773539676 1571 4 353528d+4*t14*t16*t21*t5+2.0773539676353528d+4*t13*t17*t1 1572 5 8*t5-4.616342150300784d+4*t13*t14*t18*t5+2.53898818266543 1573 6 15d+4*t100*t14*t15*t5+1.0128444160767991d+1*t135*t41*t42- 1574 7 1.0128444160767991d+1*t10*t135*t40*t41+2.0256888321535982 1575 8 d+1*t10*t135*t38*t40-2.0256888321535982d+1*t135*t37*t38*t 1576 9 39+3.038533248230397d+1*t135*t35*t37*t39-3.03853324823039 1577 : 7d+1*t135*t34*t35*t36+4.0513776643071964d+1*t135*t32*t34* 1578 ; t36-4.0513776643071964d+1*t135*t31*t32*t33+5.064222080383 1579 < 994d+1*t135*t29*t31*t33-5.064222080383994d+1*t135*t28*t29 1580 = *t30+6.077066496460795d+1*t135*t26*t28*t30-6.077066496460 1581 > 795d+1*t135*t25*t26*t27+7.089910912537593d+1*t135*t23*t25 1582 ? *t27-7.089910912537593d+1*t135*t22*t23*t24+8.102755328614 1583 @ 393d+1*t135*t20*t22*t24-8.102755328614393d+1*t135*t19*t20 1584 1 *t21+9.115599744691191d+1*t135*t17*t19*t21-9.115599744691 1585 2 191d+1*t135*t16*t17*t18+1.012844416076799d+2*t135*t14*t16 1586 3 *t18-1.012844416076799d+2*t13*t135*t14*t15)+t52*(-1.0d+0* 1587 4 t148*t5*t58-1.3333333333333333d+0*t102*t107*t58-1.0d+0*t1 1588 5 07*t109*t5-t107*t110)+2.0d+0*t108*t146*t5*t58-9.305257363 1589 6 490997d-1*t43*t5*(-3.8948928286386303d-4*t103*t144*t50+3. 1590 7 531915643569816d-2*gammaaa*t145*t3+1.0369691626335495d-6* 1591 8 gammaaa**3*t143/rhoa**10)-1.8610514726981994d+0*t101*t106 1592 9 *t5-4.1356699393293317d-1*t142*t4*t43-2.481401963597599d+ 1593 : 0*t102*t106*t43-2.481401963597599d+0*t101*t102*t4)*wght+A 1594 ; mat2(iq,D2_RA_RA) 1595 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 1596 Amat2(iq,D2_RB_RB) = (t93*(1.0d+0*t63*(2.2222222222222224d+1 1597 1 *t54*t95*t96*taub**2+1.7777777777777778d+1*t117*t54*t91*t 1598 2 96*taub+6.666666666666667d+0*t119*t57*t59*t96*taub+2.6666 1599 3 666666666666d+1*gammabb*t116*t53*t96*taub+1.3333333333333 1600 4 333d+1*gammabb*t119*t120*t53*t95*taub+8.88888888888889d+0 1601 5 *t117*t57*t93*taub+2.6666666666666666d+1*t119*t120*t54*t5 1602 6 9*t91*taub-2*t120*t156*t54*t97+6*t154*t155*t54*t97+3.3777 1603 7 77777777778d+1*t152*t49*t94*t96-t156*t57*t91*t96+9.777777 1604 8 777777779d+0*gammabb*t153*t53*t91*t96-gammabb*t156*t56*t5 1605 9 9*t96+5.333333333333333d+0*gammabb*t117*t119*t56*t96-2*t1 1606 : 20*t156*t49*t94*t95+6*t154*t155*t49*t94*t95+2.13333333333 1607 ; 33332d+1*t116*t119*t120*t49*t94+9.777777777777779d+0*gamm 1608 < abb*t153*t56*t93-2*gammabb*t120*t156*t53*t59*t91+6*gammab 1609 = b*t154*t155*t53*t59*t91+2*t120*t154*t57*t91+1.06666666666 1610 > 66666d+1*gammabb*t117*t119*t120*t53*t91+2*gammabb*t120*t1 1611 ? 54*t56*t59)+4.444444444444444d-1*t150*t98+2.6666666666666 1612 @ 666d+0*t114*t121)+t96*(-1.0d+0*t156*t63*t98-1.33333333333 1613 1 33333d+0*t114*t119*t98-1.0d+0*t119*t121*t63-t119*t122)+2. 1614 2 0d+0*t120*t154*t63*t98-9.305257363490997d-1*t63*t89*(-3.8 1615 3 948928286386303d-4*t115*t152*t94+3.531915643569816d-2*gam 1616 4 mabb*t153*t61+1.0369691626335495d-6*gammabb**3*t151/rhob* 1617 5 *10)-4.1356699393293317d-1*t150*t62*t89-2.481401963597599 1618 6 d+0*t114*t118*t89-9.305257363490997d-1*t62*t63*(1.0128444 1619 7 160767991d+1*t140*t41*t88-1.0128444160767991d+1*t140*t41* 1620 8 t66*t87+2.0256888321535982d+1*t140*t38*t66*t87-4.61634215 1621 9 03007845d+2*t41*t63*t87+4.6163421503007845d+2*t38*t63*t87 1622 : -2.0256888321535982d+1*t140*t38*t85*t86+3.038533248230397 1623 ; d+1*t140*t35*t85*t86+1.3849026450902355d+3*t38*t63*t83*t8 1624 < 6-4.1547079352707067d+3*t35*t63*t83*t86+2.769805290180471 1625 = d+3*t32*t63*t83*t86+4.6163421503007845d+2*t41*t63*t66*t85 1626 > -1.846536860120314d+3*t38*t63*t66*t85+1.3849026450902355d 1627 ? +3*t35*t63*t66*t85-3.038533248230397d+1*t140*t35*t83*t84+ 1628 @ 4.0513776643071964d+1*t140*t32*t83*t84+2.769805290180471d 1629 1 +3*t35*t63*t81*t84-7.386147440481255d+3*t32*t63*t81*t84+4 1630 2 .616342150300784d+3*t29*t63*t81*t84-4.0513776643071964d+1 1631 3 *t140*t32*t81*t82+5.064222080383994d+1*t140*t29*t81*t82+4 1632 4 .616342150300784d+3*t32*t63*t79*t82-1.154085537575196d+4* 1633 5 t29*t63*t79*t82+6.924513225451178d+3*t26*t63*t79*t82-5.06 1634 6 4222080383994d+1*t140*t29*t79*t80+6.077066496460795d+1*t1 1635 7 40*t26*t79*t80+6.924513225451178d+3*t29*t63*t77*t80-1.661 1636 8 883174108283d+4*t26*t63*t77*t80+9.694318515631648d+3*t23* 1637 9 t63*t77*t80-6.077066496460795d+1*t140*t26*t77*t78+7.08991 1638 : 0912537593d+1*t140*t23*t77*t78+9.694318515631648d+3*t26*t 1639 ; 63*t75*t78-2.2620076536473846d+4*t23*t63*t75*t78+1.292575 1640 < 8020842196d+4*t20*t63*t75*t78-7.089910912537593d+1*t140*t 1641 = 23*t75*t76+8.102755328614393d+1*t140*t20*t75*t76+1.292575 1642 > 8020842196d+4*t23*t63*t73*t76-2.954458976192502d+4*t20*t6 1643 ? 3*t73*t76+1.6618831741082823d+4*t17*t63*t73*t76-8.1027553 1644 @ 28614393d+1*t140*t20*t73*t74+9.115599744691191d+1*t140*t1 1645 1 7*t73*t74+1.6618831741082823d+4*t20*t63*t71*t74-3.7392371 1646 2 417436354d+4*t17*t63*t71*t74+2.0773539676353528d+4*t14*t6 1647 3 3*t71*t74-9.115599744691191d+1*t140*t17*t71*t72+1.0128444 1648 4 16076799d+2*t14*t140*t71*t72+2.5389881826654315d+4*t63*t6 1649 5 9*t7*t72+2.0773539676353528d+4*t17*t63*t69*t72-4.61634215 1650 6 0300784d+4*t14*t63*t69*t72+1.1141288576844789d+2*t140*t69 1651 7 *t7*t70-5.585774001863949d+4*t112*t63*t7*t70-1.0128444160 1652 8 76799d+2*t14*t140*t69*t70+2.5389881826654315d+4*t112*t14* 1653 9 t63*t70+3.046785819198518d+4*t149*t63*t67*t7-1.1141288576 1654 : 844789d+2*t112*t140*t67*t7)-1.8610514726981994d+0*t113*t1 1655 ; 18*t63-2.481401963597599d+0*t113*t114*t62)*wght+Amat2(iq, 1656 < D2_RB_RB) 1657 Cmat2(iq,D2_RA_GAA) = (t47*(1.0d+0*t5*(6.2242d-3*t51*t52*t57 1658 1 *taua+2.48968d-2*t108*t45*t51*t54*taua-3.3333333333333337 1659 2 d+0*t51*t52*t53*taua+1.24484d-2*gammaaa*t108*t124*t53*tau 1660 3 a+4.9793599999999993d-3*t105*t45*t52*t57+3.73452d-3*t1*t1 1661 4 07*t108*t45*t57-t1*t107*t52*t56+9.958719999999999d-3*gamm 1662 5 aaa*t104*t52*t56+3.73452d-3*gammaaa*t107*t108*t51*t56-2.6 1663 6 666666666666666d+0*t105*t47*t56+1.120356d-2*t1*t107*t147* 1664 7 t54*t55+9.958719999999999d-3*t105*t108*t54*t55-2.66666666 1665 8 66666666d+0*t105*t45*t52*t53+1.120356d-2*gammaaa*t107*t14 1666 9 7*t45*t51*t53-2*t1*t107*t108*t45*t53+1.9917439999999997d- 1667 : 2*gammaaa*t104*t108*t45*t53-1.0666666666666666d+1*gammaaa 1668 ; *t104*t49*t52-4*gammaaa*t107*t108*t49*t51+2.9876159999999 1669 < 996d-2*t108*t157*t49*t50+1.120356d-2*t107*t124*t147*t49*t 1670 = 50)+1.3333333333333333d+0*t102*t125)+4.9793599999999993d- 1671 > 3*t52*t58/rhoa**2.3333333333333334d+0+3.73452d-3*t107*t10 1672 ? 8*t126*t58-1.0d+0*t107*t125*t5*t52-1.86726d-3*t1*t110*t52 1673 @ -9.305257363490997d-1*t43*t5*(-3.8886343598758105d-7*t143 1674 1 *t157*t50-9.632497209735863d-3*t105*t3+1.29829760954621d- 1675 2 4*gammaaa*t103*t104)-9.305257363490997d-1*t101*t123*t5-1. 1676 3 2407009817987995d+0*t102*t123*t43)*wght+Cmat2(iq,D2_RA_GA 1677 4 A) 1678 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 1679 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 1680 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 1681 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 1682 Cmat2(iq,D2_RB_GBB) = (t93*(1.0d+0*t63*(6.2242d-3*t57*t95*t9 1683 1 6*taub-3.3333333333333337d+0*t53*t95*t96*taub+2.48968d-2* 1684 2 t120*t54*t91*t95*taub+1.24484d-2*gammabb*t120*t128*t53*ta 1685 3 ub+1.120356d-2*t119*t155*t54*t59*t97+9.958719999999999d-3 1686 4 *t117*t120*t54*t97+4.9793599999999993d-3*t117*t57*t91*t96 1687 5 -2.6666666666666666d+0*t117*t53*t91*t96-t119*t56*t59*t96+ 1688 6 9.958719999999999d-3*gammabb*t116*t56*t96-1.0666666666666 1689 7 666d+1*gammabb*t116*t49*t96+1.120356d-2*gammabb*t119*t155 1690 8 *t53*t91*t95+3.73452d-3*gammabb*t119*t120*t56*t95-4*gamma 1691 9 bb*t119*t120*t49*t95+2.9876159999999996d-2*t120*t158*t49* 1692 : t94+1.120356d-2*t119*t128*t155*t49*t94-2.6666666666666666 1693 ; d+0*t117*t56*t93+3.73452d-3*t119*t120*t57*t59*t91-2*t119* 1694 < t120*t53*t59*t91+1.9917439999999997d-2*gammabb*t116*t120* 1695 = t53*t91)+1.3333333333333333d+0*t114*t129)+4.9793599999999 1696 > 993d-3*t96*t98/rhob**2.3333333333333334d+0+3.73452d-3*t11 1697 ? 9*t120*t130*t98-1.0d+0*t119*t129*t63*t96-1.86726d-3*t122* 1698 @ t59*t96-9.305257363490997d-1*t63*t89*(-3.8886343598758105 1699 1 d-7*t151*t158*t94-9.632497209735863d-3*t117*t61+1.2982976 1700 2 0954621d-4*gammabb*t115*t116)-1.2407009817987995d+0*t114* 1701 3 t127*t89-9.305257363490997d-1*t113*t127*t63)*wght+Cmat2(i 1702 4 q,D2_RB_GBB) 1703 Cmat2(iq,D2_GAA_GAA) = (6.973319815199999d-6*t108*t58/rhoa** 1704 1 4+1.0d+0*t47*t5*(6.973319815199999d-6*t108*t45*t51*t57-3. 1705 2 73452d-3*t51*t52*t56+6.973319815199999d-6*gammaaa*t108*t1 1706 3 24*t56+2.0919959445599998d-5*t147*t51*t54*t55-7.46904d-3* 1707 4 t108*t45*t51*t53+2.0919959445599998d-5*gammaaa*t124*t147* 1708 5 t45*t53+2*t49*t51*t52+2.0919959445599998d-5*t147*t49*t50/ 1709 6 rhoa**1.0666666666666666d+1-1.4938079999999998d-2*gammaaa 1710 7 *t108*t124*t49)-3.73452d-3*t125*t126*t52-9.30525736349099 1711 8 7d-1*t43*t5*(1.4582378849534292d-7*gammaaa*t124*t143-3.24 1712 9 57440238655255d-5*t103*t51))*wght+Cmat2(iq,D2_GAA_GAA) 1713 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 1714 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 1715 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 1716 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 1717 Cmat2(iq,D2_GBB_GBB) = (6.973319815199999d-6*t120*t98/rhob** 1718 1 4+1.0d+0*t63*t93*(2.0919959445599998d-5*t155*t54*t95*t97- 1719 2 3.73452d-3*t56*t95*t96+2*t49*t95*t96+6.973319815199999d-6 1720 3 *t120*t57*t91*t95-7.46904d-3*t120*t53*t91*t95+2.091995944 1721 4 5599998d-5*t155*t49*t94/rhob**1.0666666666666666d+1+2.091 1722 5 9959445599998d-5*gammabb*t128*t155*t53*t91+6.973319815199 1723 6 999d-6*gammabb*t120*t128*t56-1.4938079999999998d-2*gammab 1724 7 b*t120*t128*t49)-3.73452d-3*t129*t130*t96-9.3052573634909 1725 8 97d-1*t63*t89*(1.4582378849534292d-7*gammabb*t128*t151-3. 1726 9 2457440238655255d-5*t115*t95))*wght+Cmat2(iq,D2_GBB_GBB) 1727 Mmat2(iq,D2_RA_TA) = (t47*(1.0d+0*t5*(1.24484d-2*t133*t52*t5 1728 1 7*taua-1.3333333333333333d+1*t133*t52*t54*taua+4.97936d-2 1729 2 *t108*t133*t45*t54*taua+2.48968d-2*gammaaa*t108*t132*t53* 1730 3 taua+6.2242d-3*t1*t45*t52*t57-2.0d+0*t107*t44*t52*t57-3.3 1731 4 333333333333337d+0*t1*t47*t57+7.46904d-3*t107*t108*t44*t4 1732 5 5*t57+1.618292d-2*gammaaa*t51*t52*t56+7.46904d-3*gammaaa* 1733 6 t107*t108*t133*t56+2.240712d-2*t107*t147*t44*t54*t55+1.24 1734 7 484d-2*t1*t108*t54*t55-6.666666666666667d+0*t1*t45*t52*t5 1735 8 4-8.0d+0*t107*t108*t44*t45*t54-8.666666666666666d+0*gamma 1736 9 aa*t51*t52*t53+3.236584d-2*gammaaa*t108*t45*t51*t53+2.240 1737 : 712d-2*gammaaa*t107*t133*t147*t45*t53-4.0d+0*gammaaa*t107 1738 ; *t108*t133*t53+2.240712d-2*t107*t132*t147*t49*t50+5.22832 1739 < 8d-2*t108*t124*t49*t50)+1.3333333333333333d+0*t102*t134)- 1740 = 9.305257363490997d-1*t4*t5*(-3.342386573053437d+3*t13*t18 1741 > *t7*t99+4.0108638876641245d+3*t11*t141*t7*t99+6.077066496 1742 ? 460795d+1*t10*t37*t41*t99-6.077066496460795d+1*t38*t40*t9 1743 @ 9+1.8231199489382385d+2*t34*t38*t39*t99-3.646239897876477 1744 1 d+2*t32*t34*t39*t99-1.8231199489382385d+2*t10*t35*t37*t99 1745 2 +3.646239897876477d+2*t31*t35*t36*t99-6.077066496460795d+ 1746 3 2*t29*t31*t36*t99+6.077066496460795d+2*t28*t32*t33*t99-9. 1747 4 115599744691192d+2*t26*t28*t33*t99+9.115599744691192d+2*t 1748 5 25*t29*t30*t99-1.276183964256767d+3*t23*t25*t30*t99+1.276 1749 6 183964256767d+3*t22*t26*t27*t99-1.7015786190090226d+3*t20 1750 7 *t22*t27*t99+1.7015786190090226d+3*t19*t23*t24*t99-2.1877 1751 8 43938725886d+3*t17*t19*t24*t99+2.187743938725886d+3*t16*t 1752 9 20*t21*t99-2.734679923407357d+3*t14*t16*t21*t99+2.7346799 1753 : 23407357d+3*t13*t17*t18*t99+3.342386573053437d+3*t100*t14 1754 ; *t15*t99)+6.2242d-3*t126*t52*t58+7.46904d-3*t107*t108*t13 1755 < 5*t58-1.0d+0*t107*t134*t5*t52-3.73452d-3*t110*t44*t52-9.3 1756 = 05257363490997d-1*t106*t131*t5-1.2407009817987995d+0*t102 1757 > *t131*t4)*wght+Mmat2(iq,D2_RA_TA) 1758 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 1759 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 1760 Mmat2(iq,D2_RB_TB) = (t93*(1.0d+0*t63*(1.24484d-2*t138*t57*t 1761 1 96*taub-1.3333333333333333d+1*t138*t54*t96*taub+4.97936d- 1762 2 2*t120*t138*t54*t91*taub+2.48968d-2*gammabb*t120*t137*t53 1763 3 *taub+2.240712d-2*t119*t155*t54*t90*t97+1.24484d-2*t120*t 1764 4 54*t59*t97+1.618292d-2*gammabb*t56*t95*t96-8.666666666666 1765 5 666d+0*gammabb*t53*t95*t96+6.2242d-3*t57*t59*t91*t96-6.66 1766 6 6666666666667d+0*t54*t59*t91*t96-2.0d+0*t119*t57*t90*t96+ 1767 7 3.236584d-2*gammabb*t120*t53*t91*t95+2.240712d-2*t119*t13 1768 8 7*t155*t49*t94+5.228328d-2*t120*t128*t49*t94-3.3333333333 1769 9 333337d+0*t57*t59*t93+7.46904d-3*t119*t120*t57*t90*t91-8. 1770 : 0d+0*t119*t120*t54*t90*t91+2.240712d-2*gammabb*t119*t138* 1771 ; t155*t53*t91+7.46904d-3*gammabb*t119*t120*t138*t56-4.0d+0 1772 < *gammabb*t119*t120*t138*t53)+1.3333333333333333d+0*t114*t 1773 = 139)+6.2242d-3*t130*t96*t98+7.46904d-3*t119*t120*t140*t98 1774 > -3.73452d-3*t122*t90*t96-1.0d+0*t119*t139*t63*t96-9.30525 1775 ? 7363490997d-1*t62*t63*(-6.077066496460795d+1*t111*t38*t87 1776 @ +1.8231199489382385d+2*t111*t38*t83*t86-3.646239897876477 1777 1 d+2*t111*t32*t83*t86+6.077066496460795d+1*t111*t41*t66*t8 1778 2 5-1.8231199489382385d+2*t111*t35*t66*t85+3.64623989787647 1779 3 7d+2*t111*t35*t81*t84-6.077066496460795d+2*t111*t29*t81*t 1780 4 84+6.077066496460795d+2*t111*t32*t79*t82-9.11559974469119 1781 5 2d+2*t111*t26*t79*t82+9.115599744691192d+2*t111*t29*t77*t 1782 6 80-1.276183964256767d+3*t111*t23*t77*t80+1.27618396425676 1783 7 7d+3*t111*t26*t75*t78-1.7015786190090226d+3*t111*t20*t75* 1784 8 t78+1.7015786190090226d+3*t111*t23*t73*t76-2.187743938725 1785 9 886d+3*t111*t17*t73*t76+2.187743938725886d+3*t111*t20*t71 1786 : *t74-2.734679923407357d+3*t111*t14*t71*t74-3.342386573053 1787 ; 437d+3*t111*t69*t7*t72+2.734679923407357d+3*t111*t17*t69* 1788 < t72+3.342386573053437d+3*t111*t112*t14*t70+4.010863887664 1789 = 1245d+3*t111*t149*t67*t7)-9.305257363490997d-1*t118*t136* 1790 > t63-1.2407009817987995d+0*t114*t136*t62)*wght+Mmat2(iq,D2 1791 ? _RB_TB) 1792 Mmat2(iq,D2_GAA_TA) = (1.3946639630399998d-5*t108*t58/rhoa** 1793 1 3+1.0d+0*t47*t5*(-3.73452d-3*t133*t52*t57+1.3946639630399 1794 2 998d-5*t108*t133*t45*t57-3.73452d-3*t133*t52*t56+1.394663 1795 3 9630399998d-5*gammaaa*t108*t132*t56+4.1839918891199995d-5 1796 4 *t133*t147*t54*t55-1.4938079999999998d-2*t108*t133*t45*t5 1797 5 4+2.0d+0*t133*t52*t53+4.1839918891199995d-5*gammaaa*t132* 1798 6 t147*t45*t53-7.46904d-3*t108*t133*t45*t53-7.46904d-3*gamm 1799 7 aaa*t108*t132*t53+4.1839918891199995d-5*t147*t49*t50/rhoa 1800 8 **9.666666666666666d+0-1.4938079999999998d-2*gammaaa*t108 1801 9 *t132*t49)-3.73452d-3*t125*t135*t52-1.86726d-3*t126*t134* 1802 : t52-9.305257363490997d-1*t123*t131*t5)*wght+Mmat2(iq,D2_G 1803 ; AA_TA) 1804 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 1805 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 1806 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 1807 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 1808 Mmat2(iq,D2_GBB_TB) = (1.3946639630399998d-5*t120*t98/rhob** 1809 1 3+1.0d+0*t63*t93*(4.1839918891199995d-5*t138*t155*t54*t97 1810 2 -3.73452d-3*t138*t57*t96-3.73452d-3*t138*t56*t96+2.0d+0*t 1811 3 138*t53*t96+4.1839918891199995d-5*t155*t49*t94/rhob**9.66 1812 4 6666666666666d+0+1.3946639630399998d-5*t120*t138*t57*t91- 1813 5 1.4938079999999998d-2*t120*t138*t54*t91+4.183991889119999 1814 6 5d-5*gammabb*t137*t155*t53*t91-7.46904d-3*t120*t138*t53*t 1815 7 91+1.3946639630399998d-5*gammabb*t120*t137*t56-7.46904d-3 1816 8 *gammabb*t120*t137*t53-1.4938079999999998d-2*gammabb*t120 1817 9 *t137*t49)-3.73452d-3*t129*t140*t96-1.86726d-3*t130*t139* 1818 : t96-9.305257363490997d-1*t127*t136*t63)*wght+Mmat2(iq,D2_ 1819 ; GBB_TB) 1820 Mmat2(iq,D2_TA_TA) = (-9.305257363490997d-1*t4*t5*(4.4d+2*t1 1821 1 3*t18*t7+9.68d+2*t100*t15*t7+5.28d+2*t11*t141*t7+8.0d+0*t 1822 2 40*t41+8.0d+0*t10*t37*t41+8.0d+0*t38*t40+2.4d+1*t34*t38*t 1823 3 39+7.2d+1*t34*t35*t39+4.8d+1*t32*t34*t39+3.2d+1*t10*t37*t 1824 4 38+2.4d+1*t10*t35*t37+4.8d+1*t31*t35*t36+1.28d+2*t31*t32* 1825 5 t36+8.0d+1*t29*t31*t36+8.0d+1*t28*t32*t33+2.0d+2*t28*t29* 1826 6 t33+1.2d+2*t26*t28*t33+1.2d+2*t25*t29*t30+2.88d+2*t25*t26 1827 7 *t30+1.68d+2*t23*t25*t30+1.68d+2*t22*t26*t27+3.92d+2*t22* 1828 8 t23*t27+2.24d+2*t20*t22*t27+2.24d+2*t19*t23*t24+5.12d+2*t 1829 9 19*t20*t24+2.88d+2*t17*t19*t24+2.88d+2*t16*t20*t21+6.48d+ 1830 : 2*t16*t17*t21+3.6d+2*t14*t16*t21+3.6d+2*t13*t17*t18+8.0d+ 1831 ; 2*t13*t14*t18+4.4d+2*t100*t14*t15)+2.7893279260799997d-5* 1832 < t108*t58/rhoa**2+1.0d+0*t47*t5*(-1.4938079999999998d-2*t1 1833 = 60*t52*t57+2.7893279260799997d-5*t108*t160*t45*t57+2.7893 1834 > 279260799997d-5*gammaaa*t108*t159*t56+8.367983778239999d- 1835 ? 5*t147*t160*t54*t55+8.0d+0*t160*t52*t54-5.975231999999999 1836 @ d-2*t108*t160*t45*t54+8.367983778239999d-5*gammaaa*t147*t 1837 1 159*t45*t53-2.9876159999999996d-2*gammaaa*t108*t159*t53+8 1838 2 .367983778239999d-5*t147*t49*t50/rhoa**8.666666666666666d 1839 3 +0)-7.46904d-3*t134*t135*t52)*wght+Mmat2(iq,D2_TA_TA) 1840 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 1841 Mmat2(iq,D2_TB_TB) = (2.7893279260799997d-5*t120*t98/rhob**2 1842 1 +1.0d+0*t63*t93*(8.367983778239999d-5*t155*t162*t54*t97-1 1843 2 .4938079999999998d-2*t162*t57*t96+8.0d+0*t162*t54*t96+8.3 1844 3 67983778239999d-5*t155*t49*t94/rhob**8.666666666666666d+0 1845 4 +2.7893279260799997d-5*t120*t162*t57*t91-5.97523199999999 1846 5 9d-2*t120*t162*t54*t91+8.367983778239999d-5*gammabb*t155* 1847 6 t161*t53*t91+2.7893279260799997d-5*gammabb*t120*t161*t56- 1848 7 2.9876159999999996d-2*gammabb*t120*t161*t53)-7.46904d-3*t 1849 8 139*t140*t96-9.305257363490997d-1*t62*t63*(8.0d+0*t41*t87 1850 9 +8.0d+0*t38*t87+2.4d+1*t38*t83*t86+7.2d+1*t35*t83*t86+4.8 1851 : d+1*t32*t83*t86+8.0d+0*t41*t66*t85+3.2d+1*t38*t66*t85+2.4 1852 ; d+1*t35*t66*t85+4.8d+1*t35*t81*t84+1.28d+2*t32*t81*t84+8. 1853 < 0d+1*t29*t81*t84+8.0d+1*t32*t79*t82+2.0d+2*t29*t79*t82+1. 1854 = 2d+2*t26*t79*t82+1.2d+2*t29*t77*t80+2.88d+2*t26*t77*t80+1 1855 > .68d+2*t23*t77*t80+1.68d+2*t26*t75*t78+3.92d+2*t23*t75*t7 1856 ? 8+2.24d+2*t20*t75*t78+2.24d+2*t23*t73*t76+5.12d+2*t20*t73 1857 @ *t76+2.88d+2*t17*t73*t76+2.88d+2*t20*t71*t74+6.48d+2*t17* 1858 1 t71*t74+3.6d+2*t14*t71*t74+4.4d+2*t69*t7*t72+3.6d+2*t17*t 1859 2 69*t72+8.0d+2*t14*t69*t72+9.68d+2*t112*t7*t70+4.4d+2*t112 1860 3 *t14*t70+5.28d+2*t149*t67*t7))*wght+Mmat2(iq,D2_TB_TB) 1861 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 1862 t1 = 1/rhoa**2.6666666666666666d+0 1863 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 1864 t3 = 1/t2 1865 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 1866 t5 = rhoa**1.3333333333333333d+0 1867 t6 = param(18) 1868 t7 = rhoa**1.6666666666666669d+0 1869 t8 = 9.115599744691192d+0*t7 1870 t9 = t8-2.0d+0*taua 1871 t10 = t9**11 1872 t11 = 2.0d+0*taua+t8 1873 t12 = 1/t11**11 1874 t13 = param(17) 1875 t14 = t9**10 1876 t15 = 1/t11**10 1877 t16 = param(16) 1878 t17 = t9**9 1879 t18 = 1/t11**9 1880 t19 = param(15) 1881 t20 = t9**8 1882 t21 = 1/t11**8 1883 t22 = param(14) 1884 t23 = t9**7 1885 t24 = 1/t11**7 1886 t25 = param(13) 1887 t26 = t9**6 1888 t27 = 1/t11**6 1889 t28 = param(12) 1890 t29 = t9**5 1891 t30 = 1/t11**5 1892 t31 = param(11) 1893 t32 = t9**4 1894 t33 = 1/t11**4 1895 t34 = param(10) 1896 t35 = t9**3 1897 t36 = 1/t11**3 1898 t37 = param(9) 1899 t38 = t9**2 1900 t39 = 1/t11**2 1901 t40 = param(8) 1902 t41 = 1/t11 1903 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 1904 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 1905 2 17*t18+t13*t14*t15+param(7) 1906 t43 = 1/t7 1907 t44 = 2.0d+0*t43*taua-9.11559972d+0 1908 t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0 1909 t46 = 1/t45 1910 t47 = param(4) 1911 t48 = gammaaa**2 1912 t49 = 1/rhoa**5.333333333333333d+0 1913 t50 = 1/t45**2 1914 t51 = param(5) 1915 t52 = param(6) 1916 t53 = t44**2 1917 t54 = param(2) 1918 t55 = param(3) 1919 t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1* 1920 1 t44*t50*t51+t47*t48*t49*t50+param(1) 1921 t57 = rhoa**6.666666666666666d-1 1922 t58 = 1/t11**12 1923 t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039 1924 1 7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+ 1925 2 1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+ 1926 3 1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577 1927 4 998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33 1928 5 *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706 1929 6 6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3 1930 7 0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974 1931 8 4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t 1932 9 26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368 1933 : 806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t 1934 ; 23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617 1935 < 036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t 1936 = 17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241 1937 > 151986d+2*t12*t13*t14*t57 1938 t60 = rhoa**3.333333333333333d-1 1939 t61 = 1/t2**2 1940 t62 = 1/rhoa**6.333333333333333d+0 1941 t63 = 1/rhoa**3.6666666666666664d+0 1942 t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3* 1943 1 gammaaa*t3*t63 1944 t65 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t63 1945 t66 = 1/t45**3 1946 t67 = -3.3333333333333337d+0*t1*t46*t55*taua-6.6666666666666 1947 1 67d+0*t1*t44*t50*t52*taua-3.3333333333333337d+0*gammaaa*t 1948 2 49*t50*t51*taua-2*t52*t53*t65*t66-2*gammaaa*t1*t44*t51*t6 1949 3 5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammaaa*t1*t5 1950 4 0*t54*t65-2.6666666666666666d+0*gammaaa*t46*t54*t63-2.666 1951 5 6666666666666d+0*gammaaa*t44*t50*t51*t63-5.33333333333333 1952 6 3d+0*t47*t48*t50*t62 1953 t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60 1954 t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm 1955 1 aaa*t49*t61 1956 t70 = 1/rhoa**8 1957 t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66- 1958 1 3.73452d-3*gammaaa*t44*t49*t51*t66-1.86726d-3*t1*t44*t50* 1959 2 t55-1.86726d-3*gammaaa*t49*t50*t54+t1*t46*t54+t1*t44*t50* 1960 3 t51+2*gammaaa*t47*t49*t50 1961 t72 = 1/t5 1962 t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6 1963 1 -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d 1964 2 +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d 1965 3 +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d 1966 4 +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d 1967 5 +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d 1968 6 +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d 1969 7 +1*t12*t13*t14 1970 t74 = 1/rhoa**7 1971 t75 = 1/rhoa**4.333333333333333d+0 1972 t76 = -7.46904d-3*gammaaa*t44*t51*t66*t75-3.73452d-3*gammaaa 1973 1 *t50*t54*t75+2.0d+0*gammaaa*t50*t51*t75-7.46904d-3*t47*t4 1974 2 8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t 1975 3 50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52 1976 t77 = 1/t60 1977 t78 = 1/t11**13 1978 t79 = 1/t57 1979 t80 = 1/t2**3 1980 t81 = 1/rhoa**7.333333333333333d+0 1981 t82 = 1/rhoa**4.666666666666667d+0 1982 t83 = t65**2 1983 t84 = 1/t45**4 1984 t85 = 1.6597866666666666d-2*t63*taua+1.8257653333333332d-2*g 1985 1 ammaaa*t82 1986 t86 = 1/rhoa**9 1987 t87 = 1/rhoa**6 1988 t88 = 1/rhoa**3.3333333333333337d+0 1989 fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5) 1990 1 *wght+fnc(iq) 1991 Amat(iq,D1_RA) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634 1992 1 90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30 1993 2 5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RA) 1994 Cmat(iq,D1_GAA) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71 1995 1 -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GAA) 1996 Mmat(iq,D1_TA) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76- 1997 1 9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TA) 1998 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 1999 Amat2(iq,D2_RA_RA) = (t46*(1.0d+0*t5*(2.2222222222222224d+1* 2000 1 t49*t50*t52*taua**2+2.6666666666666666d+1*t1*t44*t52*t65* 2001 2 t66*taua+1.3333333333333333d+1*gammaaa*t49*t51*t65*t66*ta 2002 3 ua+6.666666666666667d+0*t1*t50*t55*t65*taua+8.88888888888 2003 4 889d+0*t46*t55*t63*taua+1.7777777777777778d+1*t44*t50*t52 2004 5 *t63*taua+2.6666666666666666d+1*gammaaa*t50*t51*t62*taua- 2005 6 2*t52*t53*t66*t85-2*gammaaa*t1*t44*t51*t66*t85-2*t47*t48* 2006 7 t49*t66*t85-t44*t50*t55*t85-gammaaa*t1*t50*t54*t85+6*t52* 2007 8 t53*t83*t84+6*gammaaa*t1*t44*t51*t83*t84+6*t47*t48*t49*t8 2008 9 3*t84+2*t44*t55*t66*t83+2*gammaaa*t1*t54*t66*t83+9.777777 2009 : 777777779d+0*gammaaa*t46*t54*t82+9.777777777777779d+0*gam 2010 ; maaa*t44*t50*t51*t82+3.377777777777778d+1*t47*t48*t50*t81 2011 < +1.0666666666666666d+1*gammaaa*t44*t51*t63*t65*t66+2.1333 2012 = 333333333332d+1*t47*t48*t62*t65*t66+5.333333333333333d+0* 2013 > gammaaa*t50*t54*t63*t65)+4.444444444444444d-1*t56*t79+2.6 2014 ? 666666666666666d+0*t60*t67)-9.305257363490997d-1*t4*t5*(- 2015 @ 1.0128444160767991d+1*t39*t40*t77*t9+2.0256888321535982d+ 2016 1 1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-1.84 2017 2 6536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*t34* 2018 3 t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.1141288576 2019 4 844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t14*t6 2020 5 *t77+1.0128444160767991d+1*t40*t41*t77-2.0256888321535982 2021 6 d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*t77- 2022 7 3.038533248230397d+1*t33*t34*t35*t77+4.0513776643071964d+ 2023 8 1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t77+5 2024 9 .064222080383994d+1*t28*t30*t32*t77-5.064222080383994d+1* 2025 : t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-6.07 2026 ; 7066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1*t22 2027 < *t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.10275 2028 = 5328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t18*t1 2029 > 9*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.11559974 2030 ? 4691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t15*t 2031 @ 17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.58577400186 2032 1 3949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t5*t6 2033 2 +2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007845d 2034 3 +2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.38490264 2035 4 50902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*t34* 2036 5 t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.769805290180 2037 6 471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t35*t5 2038 7 +4.616342150300784d+3*t28*t30*t35*t5+4.616342150300784d+3 2039 8 *t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6.924 2040 9 513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t24*t 2041 : 28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.694318515 2042 ; 631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25*t26 2043 < *t5-2.2620076536473846d+4*t21*t22*t26*t5+1.29257580208421 2044 = 96d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t23*t5 2045 > -2.954458976192502d+4*t18*t19*t23*t5+1.6618831741082823d+ 2046 ? 4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5-3.7 2047 @ 392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d+4*t 2048 1 13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.6163 2049 2 42150300784d+4*t12*t13*t17*t5)+t50*(-1.0d+0*t5*t56*t85-t6 2050 3 5*t68-1.0d+0*t5*t65*t67-1.3333333333333333d+0*t56*t60*t65 2051 4 )+2.0d+0*t5*t56*t66*t83-9.305257363490997d-1*t42*t5*(3.53 2052 5 1915643569816d-2*gammaaa*t3*t82-3.8948928286386303d-4*t48 2053 6 *t61*t81+1.0369691626335495d-6*gammaaa**3*t80/rhoa**10)-4 2054 7 .1356699393293317d-1*t4*t42*t79-2.481401963597599d+0*t42* 2055 8 t60*t64-1.8610514726981994d+0*t5*t59*t64-2.48140196359759 2056 9 9d+0*t4*t59*t60)*wght+Amat2(iq,D2_RA_RA) 2057 Cmat2(iq,D2_RA_GAA) = (t46*(1.0d+0*t5*(1.24484d-2*gammaaa*t5 2058 1 1*t66*t70*taua+2.48968d-2*t44*t49*t52*t66*taua+6.2242d-3* 2059 2 t49*t50*t55*taua-3.3333333333333337d+0*t49*t50*t51*taua+2 2060 3 .9876159999999996d-2*t47*t48*t66*t86+1.120356d-2*t47*t48* 2061 4 t65*t70*t84+1.120356d-2*t1*t52*t53*t65*t84+1.120356d-2*ga 2062 5 mmaaa*t44*t49*t51*t65*t84+3.73452d-3*t1*t44*t55*t65*t66+3 2063 6 .73452d-3*gammaaa*t49*t54*t65*t66-2*t1*t44*t51*t65*t66-4* 2064 7 gammaaa*t47*t49*t65*t66+9.958719999999999d-3*t52*t53*t63* 2065 8 t66+1.9917439999999997d-2*gammaaa*t44*t51*t62*t66-t1*t50* 2066 9 t54*t65+4.9793599999999993d-3*t44*t50*t55*t63-2.666666666 2067 : 6666666d+0*t46*t54*t63-2.6666666666666666d+0*t44*t50*t51* 2068 ; t63+9.958719999999999d-3*gammaaa*t50*t54*t62-1.0666666666 2069 < 666666d+1*gammaaa*t47*t50*t62)+1.3333333333333333d+0*t60* 2070 = t71)-9.305257363490997d-1*t42*t5*(-3.8886343598758105d-7* 2071 > t48*t80*t86-9.632497209735863d-3*t3*t63+1.29829760954621d 2072 ? -4*gammaaa*t61*t62)+3.73452d-3*t56*t65*t66*t72-1.0d+0*t5* 2073 @ t50*t65*t71-1.2407009817987995d+0*t42*t60*t69-9.305257363 2074 1 490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t68+4.979359999999 2075 2 9993d-3*t50*t56/rhoa**2.3333333333333334d+0)*wght+Cmat2(i 2076 3 q,D2_RA_GAA) 2077 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t46*t5*(2.0919959445599998d-5 2078 1 *gammaaa*t44*t51*t70*t84+2.0919959445599998d-5*t49*t52*t5 2079 2 3*t84+2.0919959445599998d-5*t47*t48*t84/rhoa**1.066666666 2080 3 6666666d+1+6.973319815199999d-6*gammaaa*t54*t66*t70-1.493 2081 4 8079999999998d-2*gammaaa*t47*t66*t70+6.973319815199999d-6 2082 5 *t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*t4 2083 6 9*t50*t54+2*t47*t49*t50)-9.305257363490997d-1*t42*t5*(1.4 2084 7 582378849534292d-7*gammaaa*t70*t80-3.2457440238655255d-5* 2085 8 t49*t61)-3.73452d-3*t50*t71*t72+6.973319815199999d-6*t56* 2086 9 t66/rhoa**4)*wght+Cmat2(iq,D2_GAA_GAA) 2087 Mmat2(iq,D2_RA_TA) = (t46*(1.0d+0*t5*(4.97936d-2*t44*t52*t66 2088 1 *t75*taua+1.24484d-2*t50*t55*t75*taua-1.3333333333333333d 2089 2 +1*t50*t52*t75*taua+2.48968d-2*gammaaa*t51*t66*t74*taua+2 2090 3 .240712d-2*gammaaa*t44*t51*t65*t75*t84+2.240712d-2*t47*t4 2091 4 8*t65*t74*t84+2.240712d-2*t43*t52*t53*t65*t84+7.46904d-3* 2092 5 gammaaa*t54*t65*t66*t75-4.0d+0*gammaaa*t51*t65*t66*t75+5. 2093 6 228328d-2*t47*t48*t66*t70+7.46904d-3*t43*t44*t55*t65*t66- 2094 7 8.0d+0*t43*t44*t52*t65*t66+1.24484d-2*t1*t52*t53*t66+3.23 2095 8 6584d-2*gammaaa*t44*t49*t51*t66-2.0d+0*t43*t50*t55*t65+6. 2096 9 2242d-3*t1*t44*t50*t55-3.3333333333333337d+0*t1*t46*t55+1 2097 : .618292d-2*gammaaa*t49*t50*t54-6.666666666666667d+0*t1*t4 2098 ; 4*t50*t52-8.666666666666666d+0*gammaaa*t49*t50*t51)+1.333 2099 < 3333333333333d+0*t60*t76)-9.305257363490997d-1*t4*t5*(6.0 2100 = 77066496460795d+1*t36*t40*t57*t9-1.8231199489382385d+2*t3 2101 > 4*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-3.34238 2102 ? 6573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*t13*t14 2103 @ *t57*t58-6.077066496460795d+1*t37*t39*t57+1.8231199489382 2104 1 385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t33*t38*t 2105 2 57+3.646239897876477d+2*t30*t34*t35*t57-6.077066496460795 2106 3 d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t32*t57- 2107 4 9.115599744691192d+2*t25*t27*t32*t57+9.115599744691192d+2 2108 5 *t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*t57+1.2 2109 6 76183964256767d+3*t21*t25*t26*t57-1.7015786190090226d+3*t 2110 7 19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t57-2.18 2111 8 7743938725886d+3*t16*t18*t23*t57+2.187743938725886d+3*t15 2112 9 *t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+2.73467 2113 : 9923407357d+3*t12*t16*t17*t57)+7.46904d-3*t56*t65*t66*t77 2114 ; -1.0d+0*t5*t50*t65*t76-9.305257363490997d-1*t5*t64*t73-1. 2115 < 2407009817987995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73 2116 = 452d-3*t43*t50*t68)*wght+Mmat2(iq,D2_RA_TA) 2117 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 2118 Mmat2(iq,D2_GAA_TA) = (1.0d+0*t46*t5*(4.1839918891199995d-5* 2119 1 t52*t53*t75*t84+4.1839918891199995d-5*gammaaa*t44*t51*t74 2120 2 *t84+4.1839918891199995d-5*t47*t48*t84/rhoa**9.6666666666 2121 3 66666d+0+1.3946639630399998d-5*t44*t55*t66*t75-1.49380799 2122 4 99999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t75-3. 2123 5 73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t50*t5 2124 6 1*t75+1.3946639630399998d-5*gammaaa*t54*t66*t74-7.46904d- 2125 7 3*gammaaa*t51*t66*t74-1.4938079999999998d-2*gammaaa*t47*t 2126 8 66*t74)-3.73452d-3*t50*t71*t77-1.86726d-3*t50*t72*t76-9.3 2127 9 05257363490997d-1*t5*t69*t73+1.3946639630399998d-5*t56*t6 2128 : 6/rhoa**3)*wght+Mmat2(iq,D2_GAA_TA) 2129 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 2130 Mmat2(iq,D2_TA_TA) = (-9.305257363490997d-1*t4*t5*(8.0d+0*t3 2131 1 6*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9+5.28d+2*t10* 2132 2 t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+4.4d+2*t13*t1 2133 3 4*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t33*t37*t38+7. 2134 4 2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t30*t34*t35+1. 2135 5 28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*t27*t31*t32+2 2136 6 .0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*t24*t28*t29+2 2137 7 .88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d+2*t21*t25*t2 2138 8 6+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.24d+2*t18*t22 2139 9 *t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23+2.88d+2*t15* 2140 : t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t20+3.6d+2*t12 2141 ; *t16*t17+8.0d+2*t12*t13*t17)+1.0d+0*t46*t5*(8.36798377823 2142 < 9999d-5*t52*t53*t84*t88+2.7893279260799997d-5*t44*t55*t66 2143 = *t88-5.975231999999999d-2*t44*t52*t66*t88-1.4938079999999 2144 > 998d-2*t50*t55*t88+8.0d+0*t50*t52*t88+8.367983778239999d- 2145 ? 5*gammaaa*t44*t51*t84*t87+2.7893279260799997d-5*gammaaa*t 2146 @ 54*t66*t87-2.9876159999999996d-2*gammaaa*t51*t66*t87+8.36 2147 1 7983778239999d-5*t47*t48*t84/rhoa**8.666666666666666d+0)- 2148 2 7.46904d-3*t50*t76*t77+2.7893279260799997d-5*t56*t66/rhoa 2149 3 **2)*wght+Mmat2(iq,D2_TA_TA) 2150 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 2151 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 2152 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 2153 t1 = 1/rhob**2.6666666666666666d+0 2154 t2 = 4.49276922095889d-3*gammabb*t1+1.0d+0 2155 t3 = 1/t2 2156 t4 = 3.6121864536509485d-3*gammabb*t1*t3+1.0d+0 2157 t5 = rhob**1.3333333333333333d+0 2158 t6 = param(18) 2159 t7 = rhob**1.6666666666666669d+0 2160 t8 = 9.115599744691192d+0*t7 2161 t9 = t8-2.0d+0*taub 2162 t10 = t9**11 2163 t11 = 2.0d+0*taub+t8 2164 t12 = 1/t11**11 2165 t13 = param(17) 2166 t14 = t9**10 2167 t15 = 1/t11**10 2168 t16 = param(16) 2169 t17 = t9**9 2170 t18 = 1/t11**9 2171 t19 = param(15) 2172 t20 = t9**8 2173 t21 = 1/t11**8 2174 t22 = param(14) 2175 t23 = t9**7 2176 t24 = 1/t11**7 2177 t25 = param(13) 2178 t26 = t9**6 2179 t27 = 1/t11**6 2180 t28 = param(12) 2181 t29 = t9**5 2182 t30 = 1/t11**5 2183 t31 = param(11) 2184 t32 = t9**4 2185 t33 = 1/t11**4 2186 t34 = param(10) 2187 t35 = t9**3 2188 t36 = 1/t11**3 2189 t37 = param(9) 2190 t38 = t9**2 2191 t39 = 1/t11**2 2192 t40 = param(8) 2193 t41 = 1/t11 2194 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 2195 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 2196 2 17*t18+t13*t14*t15+param(7) 2197 t43 = 1/t7 2198 t44 = 2.0d+0*t43*taub-9.11559972d+0 2199 t45 = 1.86726d-3*t44+1.86726d-3*gammabb*t1+1.0d+0 2200 t46 = 1/t45 2201 t47 = param(4) 2202 t48 = gammabb**2 2203 t49 = 1/rhob**5.333333333333333d+0 2204 t50 = 1/t45**2 2205 t51 = param(5) 2206 t52 = param(6) 2207 t53 = t44**2 2208 t54 = param(2) 2209 t55 = param(3) 2210 t56 = t44*t46*t55+gammabb*t1*t46*t54+t50*t52*t53+gammabb*t1* 2211 1 t44*t50*t51+t47*t48*t49*t50+param(1) 2212 t57 = rhob**6.666666666666666d-1 2213 t58 = 1/t11**12 2214 t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039 2215 1 7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+ 2216 2 1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+ 2217 3 1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577 2218 4 998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33 2219 5 *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706 2220 6 6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3 2221 7 0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974 2222 8 4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t 2223 9 26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368 2224 : 806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t 2225 ; 23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617 2226 < 036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t 2227 = 17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241 2228 > 151986d+2*t12*t13*t14*t57 2229 t60 = rhob**3.333333333333333d-1 2230 t61 = 1/t2**2 2231 t62 = 1/rhob**6.333333333333333d+0 2232 t63 = 1/rhob**3.6666666666666664d+0 2233 t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3* 2234 1 gammabb*t3*t63 2235 t65 = -6.2242d-3*t1*taub-4.9793599999999993d-3*gammabb*t63 2236 t66 = 1/t45**3 2237 t67 = -3.3333333333333337d+0*t1*t46*t55*taub-6.6666666666666 2238 1 67d+0*t1*t44*t50*t52*taub-3.3333333333333337d+0*gammabb*t 2239 2 49*t50*t51*taub-2*t52*t53*t65*t66-2*gammabb*t1*t44*t51*t6 2240 3 5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammabb*t1*t5 2241 4 0*t54*t65-2.6666666666666666d+0*gammabb*t46*t54*t63-2.666 2242 5 6666666666666d+0*gammabb*t44*t50*t51*t63-5.33333333333333 2243 6 3d+0*t47*t48*t50*t62 2244 t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60 2245 t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm 2246 1 abb*t49*t61 2247 t70 = 1/rhob**8 2248 t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66- 2249 1 3.73452d-3*gammabb*t44*t49*t51*t66-1.86726d-3*t1*t44*t50* 2250 2 t55-1.86726d-3*gammabb*t49*t50*t54+t1*t46*t54+t1*t44*t50* 2251 3 t51+2*gammabb*t47*t49*t50 2252 t72 = 1/t5 2253 t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6 2254 1 -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d 2255 2 +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d 2256 3 +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d 2257 4 +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d 2258 5 +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d 2259 6 +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d 2260 7 +1*t12*t13*t14 2261 t74 = 1/rhob**7 2262 t75 = 1/rhob**4.333333333333333d+0 2263 t76 = -7.46904d-3*gammabb*t44*t51*t66*t75-3.73452d-3*gammabb 2264 1 *t50*t54*t75+2.0d+0*gammabb*t50*t51*t75-7.46904d-3*t47*t4 2265 2 8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t 2266 3 50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52 2267 t77 = 1/t60 2268 t78 = 1/t11**13 2269 t79 = 1/t57 2270 t80 = 1/t2**3 2271 t81 = 1/rhob**7.333333333333333d+0 2272 t82 = 1/rhob**4.666666666666667d+0 2273 t83 = t65**2 2274 t84 = 1/t45**4 2275 t85 = 1.6597866666666666d-2*t63*taub+1.8257653333333332d-2*g 2276 1 ammabb*t82 2277 t86 = 1/rhob**9 2278 t87 = 1/rhob**6 2279 t88 = 1/rhob**3.3333333333333337d+0 2280 fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5) 2281 1 *wght+fnc(iq) 2282 Amat(iq,D1_RB) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634 2283 1 90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30 2284 2 5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RB) 2285 Cmat(iq,D1_GBB) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71 2286 1 -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GBB) 2287 Mmat(iq,D1_TB) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76- 2288 1 9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TB) 2289 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 2290 Amat2(iq,D2_RB_RB) = (t46*(1.0d+0*t5*(2.2222222222222224d+1* 2291 1 t49*t50*t52*taub**2+2.6666666666666666d+1*t1*t44*t52*t65* 2292 2 t66*taub+1.3333333333333333d+1*gammabb*t49*t51*t65*t66*ta 2293 3 ub+6.666666666666667d+0*t1*t50*t55*t65*taub+8.88888888888 2294 4 889d+0*t46*t55*t63*taub+1.7777777777777778d+1*t44*t50*t52 2295 5 *t63*taub+2.6666666666666666d+1*gammabb*t50*t51*t62*taub- 2296 6 2*t52*t53*t66*t85-2*gammabb*t1*t44*t51*t66*t85-2*t47*t48* 2297 7 t49*t66*t85-t44*t50*t55*t85-gammabb*t1*t50*t54*t85+6*t52* 2298 8 t53*t83*t84+6*gammabb*t1*t44*t51*t83*t84+6*t47*t48*t49*t8 2299 9 3*t84+2*t44*t55*t66*t83+2*gammabb*t1*t54*t66*t83+9.777777 2300 : 777777779d+0*gammabb*t46*t54*t82+9.777777777777779d+0*gam 2301 ; mabb*t44*t50*t51*t82+3.377777777777778d+1*t47*t48*t50*t81 2302 < +1.0666666666666666d+1*gammabb*t44*t51*t63*t65*t66+2.1333 2303 = 333333333332d+1*t47*t48*t62*t65*t66+5.333333333333333d+0* 2304 > gammabb*t50*t54*t63*t65)+4.444444444444444d-1*t56*t79+2.6 2305 ? 666666666666666d+0*t60*t67)-9.305257363490997d-1*t4*t5*(- 2306 @ 1.0128444160767991d+1*t39*t40*t77*t9+2.0256888321535982d+ 2307 1 1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-1.84 2308 2 6536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*t34* 2309 3 t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.1141288576 2310 4 844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t14*t6 2311 5 *t77+1.0128444160767991d+1*t40*t41*t77-2.0256888321535982 2312 6 d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*t77- 2313 7 3.038533248230397d+1*t33*t34*t35*t77+4.0513776643071964d+ 2314 8 1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t77+5 2315 9 .064222080383994d+1*t28*t30*t32*t77-5.064222080383994d+1* 2316 : t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-6.07 2317 ; 7066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1*t22 2318 < *t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.10275 2319 = 5328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t18*t1 2320 > 9*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.11559974 2321 ? 4691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t15*t 2322 @ 17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.58577400186 2323 1 3949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t5*t6 2324 2 +2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007845d 2325 3 +2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.38490264 2326 4 50902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*t34* 2327 5 t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.769805290180 2328 6 471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t35*t5 2329 7 +4.616342150300784d+3*t28*t30*t35*t5+4.616342150300784d+3 2330 8 *t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6.924 2331 9 513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t24*t 2332 : 28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.694318515 2333 ; 631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25*t26 2334 < *t5-2.2620076536473846d+4*t21*t22*t26*t5+1.29257580208421 2335 = 96d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t23*t5 2336 > -2.954458976192502d+4*t18*t19*t23*t5+1.6618831741082823d+ 2337 ? 4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5-3.7 2338 @ 392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d+4*t 2339 1 13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.6163 2340 2 42150300784d+4*t12*t13*t17*t5)+t50*(-1.0d+0*t5*t56*t85-t6 2341 3 5*t68-1.0d+0*t5*t65*t67-1.3333333333333333d+0*t56*t60*t65 2342 4 )+2.0d+0*t5*t56*t66*t83-9.305257363490997d-1*t42*t5*(3.53 2343 5 1915643569816d-2*gammabb*t3*t82-3.8948928286386303d-4*t48 2344 6 *t61*t81+1.0369691626335495d-6*gammabb**3*t80/rhob**10)-4 2345 7 .1356699393293317d-1*t4*t42*t79-2.481401963597599d+0*t42* 2346 8 t60*t64-1.8610514726981994d+0*t5*t59*t64-2.48140196359759 2347 9 9d+0*t4*t59*t60)*wght+Amat2(iq,D2_RB_RB) 2348 Cmat2(iq,D2_RB_GBB) = (t46*(1.0d+0*t5*(1.24484d-2*gammabb*t5 2349 1 1*t66*t70*taub+2.48968d-2*t44*t49*t52*t66*taub+6.2242d-3* 2350 2 t49*t50*t55*taub-3.3333333333333337d+0*t49*t50*t51*taub+2 2351 3 .9876159999999996d-2*t47*t48*t66*t86+1.120356d-2*t47*t48* 2352 4 t65*t70*t84+1.120356d-2*t1*t52*t53*t65*t84+1.120356d-2*ga 2353 5 mmabb*t44*t49*t51*t65*t84+3.73452d-3*t1*t44*t55*t65*t66+3 2354 6 .73452d-3*gammabb*t49*t54*t65*t66-2*t1*t44*t51*t65*t66-4* 2355 7 gammabb*t47*t49*t65*t66+9.958719999999999d-3*t52*t53*t63* 2356 8 t66+1.9917439999999997d-2*gammabb*t44*t51*t62*t66-t1*t50* 2357 9 t54*t65+4.9793599999999993d-3*t44*t50*t55*t63-2.666666666 2358 : 6666666d+0*t46*t54*t63-2.6666666666666666d+0*t44*t50*t51* 2359 ; t63+9.958719999999999d-3*gammabb*t50*t54*t62-1.0666666666 2360 < 666666d+1*gammabb*t47*t50*t62)+1.3333333333333333d+0*t60* 2361 = t71)-9.305257363490997d-1*t42*t5*(-3.8886343598758105d-7* 2362 > t48*t80*t86-9.632497209735863d-3*t3*t63+1.29829760954621d 2363 ? -4*gammabb*t61*t62)+3.73452d-3*t56*t65*t66*t72-1.0d+0*t5* 2364 @ t50*t65*t71-1.2407009817987995d+0*t42*t60*t69-9.305257363 2365 1 490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t68+4.979359999999 2366 2 9993d-3*t50*t56/rhob**2.3333333333333334d+0)*wght+Cmat2(i 2367 3 q,D2_RB_GBB) 2368 Cmat2(iq,D2_GBB_GBB) = (1.0d+0*t46*t5*(2.0919959445599998d-5 2369 1 *gammabb*t44*t51*t70*t84+2.0919959445599998d-5*t49*t52*t5 2370 2 3*t84+2.0919959445599998d-5*t47*t48*t84/rhob**1.066666666 2371 3 6666666d+1+6.973319815199999d-6*gammabb*t54*t66*t70-1.493 2372 4 8079999999998d-2*gammabb*t47*t66*t70+6.973319815199999d-6 2373 5 *t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*t4 2374 6 9*t50*t54+2*t47*t49*t50)-9.305257363490997d-1*t42*t5*(1.4 2375 7 582378849534292d-7*gammabb*t70*t80-3.2457440238655255d-5* 2376 8 t49*t61)-3.73452d-3*t50*t71*t72+6.973319815199999d-6*t56* 2377 9 t66/rhob**4)*wght+Cmat2(iq,D2_GBB_GBB) 2378 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 2379 Mmat2(iq,D2_RB_TB) = (t46*(1.0d+0*t5*(4.97936d-2*t44*t52*t66 2380 1 *t75*taub+1.24484d-2*t50*t55*t75*taub-1.3333333333333333d 2381 2 +1*t50*t52*t75*taub+2.48968d-2*gammabb*t51*t66*t74*taub+2 2382 3 .240712d-2*gammabb*t44*t51*t65*t75*t84+2.240712d-2*t47*t4 2383 4 8*t65*t74*t84+2.240712d-2*t43*t52*t53*t65*t84+7.46904d-3* 2384 5 gammabb*t54*t65*t66*t75-4.0d+0*gammabb*t51*t65*t66*t75+5. 2385 6 228328d-2*t47*t48*t66*t70+7.46904d-3*t43*t44*t55*t65*t66- 2386 7 8.0d+0*t43*t44*t52*t65*t66+1.24484d-2*t1*t52*t53*t66+3.23 2387 8 6584d-2*gammabb*t44*t49*t51*t66-2.0d+0*t43*t50*t55*t65+6. 2388 9 2242d-3*t1*t44*t50*t55-3.3333333333333337d+0*t1*t46*t55+1 2389 : .618292d-2*gammabb*t49*t50*t54-6.666666666666667d+0*t1*t4 2390 ; 4*t50*t52-8.666666666666666d+0*gammabb*t49*t50*t51)+1.333 2391 < 3333333333333d+0*t60*t76)-9.305257363490997d-1*t4*t5*(6.0 2392 = 77066496460795d+1*t36*t40*t57*t9-1.8231199489382385d+2*t3 2393 > 4*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-3.34238 2394 ? 6573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*t13*t14 2395 @ *t57*t58-6.077066496460795d+1*t37*t39*t57+1.8231199489382 2396 1 385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t33*t38*t 2397 2 57+3.646239897876477d+2*t30*t34*t35*t57-6.077066496460795 2398 3 d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t32*t57- 2399 4 9.115599744691192d+2*t25*t27*t32*t57+9.115599744691192d+2 2400 5 *t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*t57+1.2 2401 6 76183964256767d+3*t21*t25*t26*t57-1.7015786190090226d+3*t 2402 7 19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t57-2.18 2403 8 7743938725886d+3*t16*t18*t23*t57+2.187743938725886d+3*t15 2404 9 *t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+2.73467 2405 : 9923407357d+3*t12*t16*t17*t57)+7.46904d-3*t56*t65*t66*t77 2406 ; -1.0d+0*t5*t50*t65*t76-9.305257363490997d-1*t5*t64*t73-1. 2407 < 2407009817987995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73 2408 = 452d-3*t43*t50*t68)*wght+Mmat2(iq,D2_RB_TB) 2409 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 2410 Mmat2(iq,D2_GBB_TB) = (1.0d+0*t46*t5*(4.1839918891199995d-5* 2411 1 t52*t53*t75*t84+4.1839918891199995d-5*gammabb*t44*t51*t74 2412 2 *t84+4.1839918891199995d-5*t47*t48*t84/rhob**9.6666666666 2413 3 66666d+0+1.3946639630399998d-5*t44*t55*t66*t75-1.49380799 2414 4 99999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t75-3. 2415 5 73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t50*t5 2416 6 1*t75+1.3946639630399998d-5*gammabb*t54*t66*t74-7.46904d- 2417 7 3*gammabb*t51*t66*t74-1.4938079999999998d-2*gammabb*t47*t 2418 8 66*t74)-3.73452d-3*t50*t71*t77-1.86726d-3*t50*t72*t76-9.3 2419 9 05257363490997d-1*t5*t69*t73+1.3946639630399998d-5*t56*t6 2420 : 6/rhob**3)*wght+Mmat2(iq,D2_GBB_TB) 2421 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 2422 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 2423 Mmat2(iq,D2_TB_TB) = (-9.305257363490997d-1*t4*t5*(8.0d+0*t3 2424 1 6*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9+5.28d+2*t10* 2425 2 t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+4.4d+2*t13*t1 2426 3 4*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t33*t37*t38+7. 2427 4 2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t30*t34*t35+1. 2428 5 28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*t27*t31*t32+2 2429 6 .0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*t24*t28*t29+2 2430 7 .88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d+2*t21*t25*t2 2431 8 6+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.24d+2*t18*t22 2432 9 *t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23+2.88d+2*t15* 2433 : t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t20+3.6d+2*t12 2434 ; *t16*t17+8.0d+2*t12*t13*t17)+1.0d+0*t46*t5*(8.36798377823 2435 < 9999d-5*t52*t53*t84*t88+2.7893279260799997d-5*t44*t55*t66 2436 = *t88-5.975231999999999d-2*t44*t52*t66*t88-1.4938079999999 2437 > 998d-2*t50*t55*t88+8.0d+0*t50*t52*t88+8.367983778239999d- 2438 ? 5*gammabb*t44*t51*t84*t87+2.7893279260799997d-5*gammabb*t 2439 @ 54*t66*t87-2.9876159999999996d-2*gammabb*t51*t66*t87+8.36 2440 1 7983778239999d-5*t47*t48*t84/rhob**8.666666666666666d+0)- 2441 2 7.46904d-3*t50*t76*t77+2.7893279260799997d-5*t56*t66/rhob 2442 3 **2)*wght+Mmat2(iq,D2_TB_TB) 2443 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 2444 endif ! ipol.eq.1 2445 enddo ! iq 2446 end 2447C> 2448C> \brief Evaluate the nwxcm_x_m06 functional [1] 2449C> 2450C> \f{eqnarray*}{ 2451C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 2452C> {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 2453C> {\it t_3} &=& {\it param}\left(7\right)\\\\ 2454C> {\it t_4} &=& {\it param}\left(18\right)\\\\ 2455C> {\it t_5} &=& \rho_\alpha^{{{5}\over{3}}}\\\\ 2456C> {\it t_6} &=& 9.115599744691192\,{\it t_5}\\\\ 2457C> {\it t_7} &=& {\it t_6}-2.0\,\tau_\alpha\\\\ 2458C> {\it t_8} &=& 2.0\,\tau_\alpha+{\it t_6}\\\\ 2459C> {\it t_9} &=& {\it param}\left(17\right)\\\\ 2460C> {\it t_{10}} &=& {\it param}\left(16\right)\\\\ 2461C> {\it t_{11}} &=& {\it param}\left(15\right)\\\\ 2462C> {\it t_{12}} &=& {\it param}\left(14\right)\\\\ 2463C> {\it t_{13}} &=& {\it param}\left(13\right)\\\\ 2464C> {\it t_{14}} &=& {\it param}\left(12\right)\\\\ 2465C> {\it t_{15}} &=& {\it param}\left(11\right)\\\\ 2466C> {\it t_{16}} &=& {\it param}\left(10\right)\\\\ 2467C> {\it t_{17}} &=& {\it param}\left(9\right)\\\\ 2468C> {\it t_{18}} &=& {\it param}\left(8\right)\\\\ 2469C> {\it t_{19}} &=& {{2.0\,\tau_\alpha}\over{{\it t_5}}} 2470C> -9.11559972\\\\ 2471C> {\it t_{20}} &=& 0.00186726\,{\it t_{19}}+0.00186726\,{\it t_2} 2472C> \,\sigma_{\alpha\alpha}+1.0\\\\ 2473C> {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\ 2474C> {\it t_{22}} &=& {\it param}\left(1\right)\\\\ 2475C> {\it t_{23}} &=& {\it param}\left(4\right)\\\\ 2476C> {\it t_{24}} &=& {{1}\over{{\it t_{20}}^2}}\\\\ 2477C> {\it t_{25}} &=& {\it param}\left(5\right)\\\\ 2478C> {\it t_{26}} &=& {\it param}\left(6\right)\\\\ 2479C> {\it t_{27}} &=& {\it param}\left(2\right)\\\\ 2480C> {\it t_{28}} &=& {\it param}\left(3\right)\\\\ 2481C> {\it t_{29}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 2482C> {\it t_{30}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 2483C> {\it t_{31}} &=& \rho_\beta^{{{5}\over{3}}}\\\\ 2484C> {\it t_{32}} &=& 9.115599744691192\,{\it t_{31}}\\\\ 2485C> {\it t_{33}} &=& {\it t_{32}}-2.0\,\tau_\beta\\\\ 2486C> {\it t_{34}} &=& 2.0\,\tau_\beta+{\it t_{32}}\\\\ 2487C> {\it t_{35}} &=& {{2.0\,\tau_\beta}\over{{\it t_{31}}}} 2488C> -9.11559972\\\\ 2489C> {\it t_{36}} &=& 0.00186726\,{\it t_{35}}+0.00186726\,{ 2490C> \it t_{30}}\,\sigma_{\beta\beta}+1.0\\\\ 2491C> {\it t_{37}} &=& {{1}\over{{\it t_{36}}}}\\\\ 2492C> {\it t_{38}} &=& {{1}\over{{\it t_{36}}^2}}\\\\ 2493C> {\it t_{39}} &=& \rho_s^{{{4}\over{3}}}\\\\ 2494C> {\it t_{40}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 2495C> {\it t_{41}} &=& \rho_s^{{{5}\over{3}}}\\\\ 2496C> {\it t_{42}} &=& 9.115599744691192\,{\it t_{41}}\\\\ 2497C> {\it t_{43}} &=& {\it t_{42}}-2.0\,\tau_s\\\\ 2498C> {\it t_{44}} &=& 2.0\,\tau_s+{\it t_{42}}\\\\ 2499C> {\it t_{45}} &=& {{2.0\,\tau_s}\over{{\it t_{41}}}}-9.11559972\\\\ 2500C> {\it t_{46}} &=& 0.00186726\,{\it t_{45}}+0.00186726\,{ 2501C> \it t_{40}}\,\sigma_{ss}+1.0\\\\ 2502C> {\it t_{47}} &=& {{1}\over{{\it t_{46}}}}\\\\ 2503C> {\it t_{48}} &=& {{1}\over{{\it t_{46}}^2}}\\\\ 2504C> f &=& 1.0\,{\it t_{29}}\,{\it t_{37}}\,\left({\it t_{28}}\,{ 2505C> \it t_{35}}\,{\it t_{37}}+{\it t_{27}}\,{\it t_{30}}\, 2506C> \sigma_{\beta\beta}\,{\it t_{37}}+{\it t_{26}}\,{\it t_{35}}^2 2507C> \,{\it t_{38}}+{\it t_{25}}\,{\it t_{30}}\,\sigma_{\beta\beta} 2508C> \,{\it t_{35}}\,{\it t_{38}}+{{{\it t_{23}}\, 2509C> \sigma_{\beta\beta}^2\,{\it t_{38}}} 2510C> \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{22}}\right) 2511C> -0.9305257363490997\,{\it t_{29}}\, 2512C> \left({{0.003612186453650949\,{\it t_{30}}\, 2513C> \sigma_{\beta\beta}}\over{0.00449276922095889\,{\it t_{30}} 2514C> \,\sigma_{\beta\beta}+1.0}}+1.0\right)\,\left({{{\it t_{18}} 2515C> \,{\it t_{33}}}\over{{\it t_{34}}}}+{{{\it t_{17}}\,{ 2516C> \it t_{33}}^2}\over{{\it t_{34}}^2}}+{{{\it t_{16}}\,{ 2517C> \it t_{33}}^3}\over{{\it t_{34}}^3}}+{{{\it t_{15}}\,{ 2518C> \it t_{33}}^4}\over{{\it t_{34}}^4}}+{{{\it t_{14}}\,{ 2519C> \it t_{33}}^5}\over{{\it t_{34}}^5}}+{{{\it t_{13}}\,{ 2520C> \it t_{33}}^6}\over{{\it t_{34}}^6}}+{{{\it t_{12}}\,{ 2521C> \it t_{33}}^7}\over{{\it t_{34}}^7}}+{{{\it t_{11}}\,{ 2522C> \it t_{33}}^8}\over{{\it t_{34}}^8}}+{{{\it t_{10}}\,{ 2523C> \it t_{33}}^9}\over{{\it t_{34}}^9}}+{{{\it t_9}\,{ 2524C> \it t_{33}}^{10}}\over{{\it t_{34}}^{10}}}+{{{\it t_4}\,{ 2525C> \it t_{33}}^{11}}\over{{\it t_{34}}^{11}}}+{\it t_3}\right) 2526C> +1.0\,{\it t_1}\,{\it t_{21}}\,\left({\it t_{28}}\,{ 2527C> \it t_{19}}\,{\it t_{21}}+{\it t_{27}}\,{\it t_2}\, 2528C> \sigma_{\alpha\alpha}\,{\it t_{21}}+{\it t_{26}}\,{ 2529C> \it t_{19}}^2\,{\it t_{24}}+{\it t_{25}}\,{\it t_2}\, 2530C> \sigma_{\alpha\alpha}\,{\it t_{19}}\,{\it t_{24}}+{{{ 2531C> \it t_{23}}\,\sigma_{\alpha\alpha}^2\,{\it t_{24}}} 2532C> \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{22}}\right) 2533C> -0.9305257363490997\,{\it t_1}\,\left({{0.003612186453650949 2534C> \,{\it t_2}\,\sigma_{\alpha\alpha}}\over{0.00449276922095889 2535C> \,{\it t_2}\,\sigma_{\alpha\alpha}+1.0}}+1.0\right)\, 2536C> \left({{{\it t_{18}}\,{\it t_7}}\over{{\it t_8}}}+{{{ 2537C> \it t_{17}}\,{\it t_7}^2}\over{{\it t_8}^2}}+{{{\it t_{16}} 2538C> \,{\it t_7}^3}\over{{\it t_8}^3}}+{{{\it t_{15}}\,{ 2539C> \it t_7}^4}\over{{\it t_8}^4}}+{{{\it t_{14}}\,{ 2540C> \it t_7}^5}\over{{\it t_8}^5}}+{{{\it t_{13}}\,{ 2541C> \it t_7}^6}\over{{\it t_8}^6}}+{{{\it t_{12}}\,{ 2542C> \it t_7}^7}\over{{\it t_8}^7}}+{{{\it t_{11}}\,{ 2543C> \it t_7}^8}\over{{\it t_8}^8}}+{{{\it t_{10}}\,{ 2544C> \it t_7}^9}\over{{\it t_8}^9}}+{{{\it t_9}\,{ 2545C> \it t_7}^{10}}\over{{\it t_8}^{10}}}+{{{\it t_4}\,{ 2546C> \it t_7}^{11}}\over{{\it t_8}^{11}}}+{\it t_3}\right)\\\\ 2547C> g &=& 0\\\\ 2548C> G &=& 1.0\,{\it t_{39}}\,{\it t_{47}}\,\left({\it t_{28}}\,{ 2549C> \it t_{45}}\,{\it t_{47}}+{\it t_{27}}\,{\it t_{40}}\, 2550C> \sigma_{ss}\,{\it t_{47}}+{\it t_{26}}\,{\it t_{45}}^2\,{ 2551C> \it t_{48}}+{\it t_{25}}\,{\it t_{40}}\,\sigma_{ss}\,{ 2552C> \it t_{45}}\,{\it t_{48}}+{{{\it t_{23}}\,\sigma_{ss}^2\,{ 2553C> \it t_{48}}}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_{22}}\right) 2554C> -0.9305257363490997\,{\it t_{39}}\, 2555C> \left({{0.003612186453650949\,{\it t_{40}}\,\sigma_{ss}} 2556C> \over{0.00449276922095889\,{\it t_{40}}\,\sigma_{ss}+1.0}} 2557C> +1.0\right)\,\left({{{\it t_{18}}\,{\it t_{43}}}\over{{ 2558C> \it t_{44}}}}+{{{\it t_{17}}\,{\it t_{43}}^2}\over{{ 2559C> \it t_{44}}^2}}+{{{\it t_{16}}\,{\it t_{43}}^3}\over{{ 2560C> \it t_{44}}^3}}+{{{\it t_{15}}\,{\it t_{43}}^4}\over{{ 2561C> \it t_{44}}^4}}+{{{\it t_{14}}\,{\it t_{43}}^5}\over{{ 2562C> \it t_{44}}^5}}+{{{\it t_{13}}\,{\it t_{43}}^6}\over{{ 2563C> \it t_{44}}^6}}+{{{\it t_{12}}\,{\it t_{43}}^7}\over{{ 2564C> \it t_{44}}^7}}+{{{\it t_{11}}\,{\it t_{43}}^8}\over{{ 2565C> \it t_{44}}^8}}+{{{\it t_{10}}\,{\it t_{43}}^9}\over{{ 2566C> \it t_{44}}^9}}+{{{\it t_9}\,{\it t_{43}}^{10}}\over{{ 2567C> \it t_{44}}^{10}}}+{{{\it t_4}\,{\it t_{43}}^{11}}\over{{ 2568C> \it t_{44}}^{11}}}+{\it t_3}\right)\\\\ 2569C> \f} 2570C> 2571C> Code generated with Maxima 5.34.0 [2] 2572C> driven by autoxc [3]. 2573C> 2574C> ### References ### 2575C> 2576C> [1] Y Zhao, DG Truhlar, J.Chem.Phys. 123, 194101 (2006) , DOI: 2577C> <a href="https://doi.org/10.1063/1.2370993 "> 2578C> 10.1063/1.2370993 </a> 2579C> 2580C> [2] Maxima, a computer algebra system, 2581C> <a href="http://maxima.sourceforge.net/"> 2582C> http://maxima.sourceforge.net/</a> 2583C> 2584C> [3] autoxc, revision 27097 2015-05-08 2585C> 2586 subroutine nwxcm_x_m06_d3(param,tol_rho,ipol,nq,wght, 2587 +rho,rgamma,tau,fnc,Amat,Amat2,Amat3, 2588 +Cmat,Cmat2,Cmat3,Mmat,Mmat2,Mmat3) 2589c $Id: $ 2590#ifdef NWXC_QUAD_PREC 2591 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 2592 integer, parameter :: rk=selected_real_kind(30) 2593#else 2594 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 2595 integer, parameter :: rk=selected_real_kind(15) 2596#endif 2597#include "nwxc_param.fh" 2598 double precision param(*) !< [Input] Parameters of functional 2599 double precision tol_rho !< [Input] The lower limit on the density 2600 integer ipol !< [Input] The number of spin channels 2601 integer nq !< [Input] The number of points 2602 double precision wght !< [Input] The weight of the functional 2603 double precision rho(nq,NCOL_RHO) !< [Input] The density 2604 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 2605 !< gradients 2606 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 2607 double precision fnc(nq) !< [Output] The value of the functional 2608c 2609c Sampling Matrices for the XC Kernel 2610c 2611 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 2612 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 2613 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 2614c 2615c Sampling Matrices for the XC Kernel 2616c 2617 double precision Amat2(nq,NCOL_AMAT2) !< [Output] The 2nd derivative wrt rho 2618 double precision Cmat2(nq,NCOL_CMAT2) !< [Output] The 2nd derivative wrt rgamma 2619 !< and possibly rho 2620 double precision Mmat2(nq,NCOL_MMAT2) !< [Output] The 2nd derivative wrt tau 2621 !< and possibly rho 2622c 2623c Sampling Matrices for the XC Kernel 2624c 2625 double precision Amat3(nq,NCOL_AMAT3) !< [Output] The 3rd derivative wrt rho 2626 double precision Cmat3(nq,NCOL_CMAT3) !< [Output] The 3rd derivative wrt rgamma 2627 !< and possibly rho 2628 double precision Mmat3(nq,NCOL_MMAT3) !< [Output] The 3rd derivative wrt tau 2629 !< and possibly rho 2630 integer iq 2631 double precision tmp 2632 double precision rhoa,rhob 2633 double precision gammaaa,gammaab,gammabb 2634 double precision taua,taub 2635 double precision nwxcm_heaviside 2636 external nwxcm_heaviside 2637CDIR$ NOVECTOR 2638 do iq = 1, nq 2639 if (ipol.eq.1) then 2640 rhoa = 0.5d0*rho(iq,R_T) 2641 gammaaa = 0.25d0*rgamma(iq,G_TT) 2642 taua = 0.5d0*tau(iq,T_T) 2643 if (rhoa.gt.tol_rho) then 2644 t1 = 1/rhoa**2.6666666666666666d+0 2645 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 2646 t3 = 1/t2 2647 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 2648 t5 = rhoa**1.3333333333333333d+0 2649 t6 = param(18) 2650 t7 = rhoa**1.6666666666666669d+0 2651 t8 = 9.115599744691192d+0*t7 2652 t9 = t8-2.0d+0*taua 2653 t10 = t9**11 2654 t11 = 2.0d+0*taua+t8 2655 t12 = 1/t11**11 2656 t13 = param(17) 2657 t14 = t9**10 2658 t15 = 1/t11**10 2659 t16 = param(16) 2660 t17 = t9**9 2661 t18 = 1/t11**9 2662 t19 = param(15) 2663 t20 = t9**8 2664 t21 = 1/t11**8 2665 t22 = param(14) 2666 t23 = t9**7 2667 t24 = 1/t11**7 2668 t25 = param(13) 2669 t26 = t9**6 2670 t27 = 1/t11**6 2671 t28 = param(12) 2672 t29 = t9**5 2673 t30 = 1/t11**5 2674 t31 = param(11) 2675 t32 = t9**4 2676 t33 = 1/t11**4 2677 t34 = param(10) 2678 t35 = t9**3 2679 t36 = 1/t11**3 2680 t37 = param(9) 2681 t38 = t9**2 2682 t39 = 1/t11**2 2683 t40 = param(8) 2684 t41 = 1/t11 2685 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 2686 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 2687 2 17*t18+t13*t14*t15+param(7) 2688 t43 = 1/t7 2689 t44 = 2.0d+0*t43*taua-9.11559972d+0 2690 t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0 2691 t46 = 1/t45 2692 t47 = param(4) 2693 t48 = gammaaa**2 2694 t49 = 1/rhoa**5.333333333333333d+0 2695 t50 = 1/t45**2 2696 t51 = param(5) 2697 t52 = param(6) 2698 t53 = t44**2 2699 t54 = param(2) 2700 t55 = param(3) 2701 t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1* 2702 1 t44*t50*t51+t47*t48*t49*t50+param(1) 2703 t57 = rhoa**6.666666666666666d-1 2704 t58 = 1/t11**12 2705 t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039 2706 1 7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+ 2707 2 1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+ 2708 3 1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577 2709 4 998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33 2710 5 *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706 2711 6 6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3 2712 7 0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974 2713 8 4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t 2714 9 26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368 2715 : 806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t 2716 ; 23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617 2717 < 036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t 2718 = 17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241 2719 > 151986d+2*t12*t13*t14*t57 2720 t60 = rhoa**3.333333333333333d-1 2721 t61 = 1/t2**2 2722 t62 = 1/rhoa**6.333333333333333d+0 2723 t63 = 1/rhoa**3.6666666666666664d+0 2724 t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3* 2725 1 gammaaa*t3*t63 2726 t65 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t63 2727 t66 = 1/t45**3 2728 t67 = -3.3333333333333337d+0*t1*t46*t55*taua-6.6666666666666 2729 1 67d+0*t1*t44*t50*t52*taua-3.3333333333333337d+0*gammaaa*t 2730 2 49*t50*t51*taua-2*t52*t53*t65*t66-2*gammaaa*t1*t44*t51*t6 2731 3 5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammaaa*t1*t5 2732 4 0*t54*t65-2.6666666666666666d+0*gammaaa*t46*t54*t63-2.666 2733 5 6666666666666d+0*gammaaa*t44*t50*t51*t63-5.33333333333333 2734 6 3d+0*t47*t48*t50*t62 2735 t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60 2736 t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm 2737 1 aaa*t49*t61 2738 t70 = 1/rhoa**8 2739 t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66- 2740 1 3.73452d-3*gammaaa*t44*t49*t51*t66-1.86726d-3*t1*t44*t50* 2741 2 t55-1.86726d-3*gammaaa*t49*t50*t54+t1*t46*t54+t1*t44*t50* 2742 3 t51+2*gammaaa*t47*t49*t50 2743 t72 = 1/t5 2744 t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6 2745 1 -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d 2746 2 +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d 2747 3 +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d 2748 4 +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d 2749 5 +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d 2750 6 +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d 2751 7 +1*t12*t13*t14 2752 t74 = 1/rhoa**7 2753 t75 = 1/rhoa**4.333333333333333d+0 2754 t76 = -7.46904d-3*gammaaa*t44*t51*t66*t75-3.73452d-3*gammaaa 2755 1 *t50*t54*t75+2.0d+0*gammaaa*t50*t51*t75-7.46904d-3*t47*t4 2756 2 8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t 2757 3 50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52 2758 t77 = 1/t60 2759 t78 = 1/t11**13 2760 t79 = -1.0128444160767991d+1*t39*t40*t77*t9+2.02568883215359 2761 1 82d+1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9- 2762 2 1.846536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3* 2763 3 t34*t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.114128 2764 4 8576844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t1 2765 5 4*t6*t77+1.0128444160767991d+1*t40*t41*t77-2.025688832153 2766 6 5982d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38* 2767 7 t77-3.038533248230397d+1*t33*t34*t35*t77+4.05137766430719 2768 8 64d+1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t 2769 9 77+5.064222080383994d+1*t28*t30*t32*t77-5.064222080383994 2770 : d+1*t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77- 2771 ; 6.077066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1 2772 < *t22*t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.1 2773 = 02755328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t1 2774 > 8*t19*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.1155 2775 ? 99744691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t 2776 @ 15*t17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.5857740 2777 1 01863949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t 2778 2 5*t6+2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007 2779 3 845d+2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.3849 2780 4 026450902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33* 2781 5 t34*t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.76980529 2782 6 0180471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t3 2783 7 5*t5+4.616342150300784d+3*t28*t30*t35*t5+4.61634215030078 2784 8 4d+3*t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6 2785 9 .924513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t 2786 : 24*t28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.69431 2787 ; 8515631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25 2788 < *t26*t5-2.2620076536473846d+4*t21*t22*t26*t5+1.2925758020 2789 = 842196d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t2 2790 > 3*t5-2.954458976192502d+4*t18*t19*t23*t5+1.66188317410828 2791 ? 23d+4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5 2792 @ -3.7392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d 2793 1 +4*t13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4. 2794 2 616342150300784d+4*t12*t13*t17*t5 2795 t80 = 1/t57 2796 t81 = gammaaa**3 2797 t82 = 1/t2**3 2798 t83 = 1/rhoa**10 2799 t84 = 1/rhoa**7.333333333333333d+0 2800 t85 = 1/rhoa**4.666666666666667d+0 2801 t86 = 3.531915643569816d-2*gammaaa*t3*t85-3.8948928286386303 2802 1 d-4*t48*t61*t84+1.0369691626335495d-6*t81*t82*t83 2803 t87 = t65**2 2804 t88 = 1/t45**4 2805 t89 = 1.6597866666666666d-2*t63*taua+1.8257653333333332d-2*g 2806 1 ammaaa*t85 2807 t90 = taua**2 2808 t91 = 2.6666666666666666d+1*t1*t44*t52*t65*t66*taua+1.333333 2809 1 3333333333d+1*gammaaa*t49*t51*t65*t66*taua+6.666666666666 2810 2 667d+0*t1*t50*t55*t65*taua+8.88888888888889d+0*t46*t55*t6 2811 3 3*taua+1.7777777777777778d+1*t44*t50*t52*t63*taua+2.66666 2812 4 66666666666d+1*gammaaa*t50*t51*t62*taua+2.222222222222222 2813 5 4d+1*t49*t50*t52*t90-2*t52*t53*t66*t89-2*gammaaa*t1*t44*t 2814 6 51*t66*t89-2*t47*t48*t49*t66*t89-t44*t50*t55*t89-gammaaa* 2815 7 t1*t50*t54*t89+6*t52*t53*t87*t88+6*gammaaa*t1*t44*t51*t87 2816 8 *t88+6*t47*t48*t49*t87*t88+2*t44*t55*t66*t87+2*gammaaa*t1 2817 9 *t54*t66*t87+9.777777777777779d+0*gammaaa*t46*t54*t85+9.7 2818 : 77777777777779d+0*gammaaa*t44*t50*t51*t85+3.3777777777777 2819 ; 78d+1*t47*t48*t50*t84+1.0666666666666666d+1*gammaaa*t44*t 2820 < 51*t63*t65*t66+2.1333333333333332d+1*t47*t48*t62*t65*t66+ 2821 = 5.333333333333333d+0*gammaaa*t50*t54*t63*t65 2822 t92 = 1.0d+0*t5*t91+4.444444444444444d-1*t56*t80+2.666666666 2823 1 6666666d+0*t60*t67 2824 t93 = -1.0d+0*t5*t56*t89-t65*t68-1.0d+0*t5*t65*t67-1.3333333 2825 1 333333333d+0*t56*t60*t65 2826 t94 = 1/rhoa**9 2827 t95 = -3.8886343598758105d-7*t48*t82*t94-9.632497209735863d- 2828 1 3*t3*t63+1.29829760954621d-4*gammaaa*t61*t62 2829 t96 = 1/rhoa**2.3333333333333334d+0 2830 t97 = 1.24484d-2*gammaaa*t51*t66*t70*taua+2.48968d-2*t44*t49 2831 1 *t52*t66*taua+6.2242d-3*t49*t50*t55*taua-3.33333333333333 2832 2 37d+0*t49*t50*t51*taua+2.9876159999999996d-2*t47*t48*t66* 2833 3 t94+1.120356d-2*t47*t48*t65*t70*t88+1.120356d-2*t1*t52*t5 2834 4 3*t65*t88+1.120356d-2*gammaaa*t44*t49*t51*t65*t88+3.73452 2835 5 d-3*t1*t44*t55*t65*t66+3.73452d-3*gammaaa*t49*t54*t65*t66 2836 6 -2*t1*t44*t51*t65*t66-4*gammaaa*t47*t49*t65*t66+9.9587199 2837 7 99999999d-3*t52*t53*t63*t66+1.9917439999999997d-2*gammaaa 2838 8 *t44*t51*t62*t66-t1*t50*t54*t65+4.9793599999999993d-3*t44 2839 9 *t50*t55*t63-2.6666666666666666d+0*t46*t54*t63-2.66666666 2840 : 66666666d+0*t44*t50*t51*t63+9.958719999999999d-3*gammaaa* 2841 ; t50*t54*t62-1.0666666666666666d+1*gammaaa*t47*t50*t62 2842 t98 = 1.0d+0*t5*t97+1.3333333333333333d+0*t60*t71 2843 t99 = 1.4582378849534292d-7*gammaaa*t70*t82-3.24574402386552 2844 1 55d-5*t49*t61 2845 t100 = 1/rhoa**1.0666666666666666d+1 2846 t101 = 2.0919959445599998d-5*gammaaa*t44*t51*t70*t88+2.09199 2847 1 59445599998d-5*t49*t52*t53*t88+2.0919959445599998d-5*t100 2848 2 *t47*t48*t88+6.973319815199999d-6*gammaaa*t54*t66*t70-1.4 2849 3 938079999999998d-2*gammaaa*t47*t66*t70+6.973319815199999d 2850 4 -6*t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3* 2851 5 t49*t50*t54+2*t47*t49*t50 2852 t102 = 1/rhoa**4 2853 t103 = 6.077066496460795d+1*t36*t40*t57*t9-1.823119948938238 2854 1 5d+2*t34*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78- 2855 2 3.342386573053437d+3*t12*t17*t57*t6+3.342386573053437d+3* 2856 3 t13*t14*t57*t58-6.077066496460795d+1*t37*t39*t57+1.823119 2857 4 9489382385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t3 2858 5 3*t38*t57+3.646239897876477d+2*t30*t34*t35*t57-6.07706649 2859 6 6460795d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t 2860 7 32*t57-9.115599744691192d+2*t25*t27*t32*t57+9.11559974469 2861 8 1192d+2*t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29* 2862 9 t57+1.276183964256767d+3*t21*t25*t26*t57-1.70157861900902 2863 : 26d+3*t19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t 2864 ; 57-2.187743938725886d+3*t16*t18*t23*t57+2.187743938725886 2865 < d+3*t15*t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+ 2866 = 2.734679923407357d+3*t12*t16*t17*t57 2867 t104 = 4.97936d-2*t44*t52*t66*t75*taua+1.24484d-2*t50*t55*t7 2868 1 5*taua-1.3333333333333333d+1*t50*t52*t75*taua+2.48968d-2* 2869 2 gammaaa*t51*t66*t74*taua+2.240712d-2*gammaaa*t44*t51*t65* 2870 3 t75*t88+2.240712d-2*t47*t48*t65*t74*t88+2.240712d-2*t43*t 2871 4 52*t53*t65*t88+7.46904d-3*gammaaa*t54*t65*t66*t75-4.0d+0* 2872 5 gammaaa*t51*t65*t66*t75+5.228328d-2*t47*t48*t66*t70+7.469 2873 6 04d-3*t43*t44*t55*t65*t66-8.0d+0*t43*t44*t52*t65*t66+1.24 2874 7 484d-2*t1*t52*t53*t66+3.236584d-2*gammaaa*t44*t49*t51*t66 2875 8 -2.0d+0*t43*t50*t55*t65+6.2242d-3*t1*t44*t50*t55-3.333333 2876 9 3333333337d+0*t1*t46*t55+1.618292d-2*gammaaa*t49*t50*t54- 2877 : 6.666666666666667d+0*t1*t44*t50*t52-8.666666666666666d+0* 2878 ; gammaaa*t49*t50*t51 2879 t105 = 1.3333333333333333d+0*t60*t76+1.0d+0*t104*t5 2880 t106 = 1/rhoa**9.666666666666666d+0 2881 t107 = 4.1839918891199995d-5*t52*t53*t75*t88+4.1839918891199 2882 1 995d-5*gammaaa*t44*t51*t74*t88+4.1839918891199995d-5*t106 2883 2 *t47*t48*t88+1.3946639630399998d-5*t44*t55*t66*t75-1.4938 2884 3 079999999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t7 2885 4 5-3.73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t5 2886 5 0*t51*t75+1.3946639630399998d-5*gammaaa*t54*t66*t74-7.469 2887 6 04d-3*gammaaa*t51*t66*t74-1.4938079999999998d-2*gammaaa*t 2888 7 47*t66*t74 2889 t108 = 1/rhoa**3 2890 t109 = 1/rhoa**6 2891 t110 = 1/rhoa**3.3333333333333337d+0 2892 t111 = 8.367983778239999d-5*t110*t52*t53*t88+8.3679837782399 2893 1 99d-5*gammaaa*t109*t44*t51*t88+8.367983778239999d-5*t47*t 2894 2 48*t88/rhoa**8.666666666666666d+0+2.7893279260799997d-5*t 2895 3 110*t44*t55*t66+2.7893279260799997d-5*gammaaa*t109*t54*t6 2896 4 6-5.975231999999999d-2*t110*t44*t52*t66-2.987615999999999 2897 5 6d-2*gammaaa*t109*t51*t66-1.4938079999999998d-2*t110*t50* 2898 6 t55+8.0d+0*t110*t50*t52 2899 t112 = rhoa**2 2900 t113 = 1/t112 2901 t114 = 1/t11**14 2902 t115 = 1/t2**4 2903 t116 = 1/rhoa**8.333333333333334d+0 2904 t117 = 1/rhoa**5.666666666666667d+0 2905 t118 = t65**3 2906 t119 = 1/t45**5 2907 t120 = -6.085884444444444d-2*t85*taua-8.520238222222222d-2*g 2908 1 ammaaa*t117 2909 t121 = 1/rhoa**1.1666666666666665d+1 2910 t122 = 1/rhoa**5 2911 t123 = 1/rhoa**7.666666666666667d+0 2912 fnc(iq) = (2.0d+0*t46*t5*t56-1.8610514726981994d+0*t4*t42*t5 2913 1 )*wght+fnc(iq) 2914 Amat(iq,D1_RA) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634 2915 1 90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30 2916 2 5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RA) 2917 Cmat(iq,D1_GAA) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71 2918 1 -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GAA) 2919 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 2920 Mmat(iq,D1_TA) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76- 2921 1 9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TA) 2922 Amat2(iq,D2_RA_RA) = (t50*t93+t46*t92+2.0d+0*t5*t56*t66*t87- 2923 1 9.305257363490997d-1*t42*t5*t86-4.1356699393293317d-1*t4* 2924 2 t42*t80-9.305257363490997d-1*t4*t5*t79-2.481401963597599d 2925 3 +0*t42*t60*t64-1.8610514726981994d+0*t5*t59*t64-2.4814019 2926 4 63597599d+0*t4*t59*t60)*wght+Amat2(iq,D2_RA_RA) 2927 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 2928 Cmat2(iq,D2_RA_GAA) = (t46*t98+4.9793599999999993d-3*t50*t56 2929 1 *t96-9.305257363490997d-1*t42*t5*t95+3.73452d-3*t56*t65*t 2930 2 66*t72-1.0d+0*t5*t50*t65*t71-1.2407009817987995d+0*t42*t6 2931 3 0*t69-9.305257363490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t 2932 4 68)*wght+Cmat2(iq,D2_RA_GAA) 2933 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 2934 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 2935 Cmat2(iq,D2_GAA_GAA) = (-9.305257363490997d-1*t42*t5*t99-3.7 2936 1 3452d-3*t50*t71*t72+6.973319815199999d-6*t102*t56*t66+1.0 2937 2 d+0*t101*t46*t5)*wght+Cmat2(iq,D2_GAA_GAA) 2938 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 2939 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 2940 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 2941 Mmat2(iq,D2_RA_TA) = (7.46904d-3*t56*t65*t66*t77-1.0d+0*t5*t 2942 1 50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.240700981798 2943 2 7995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73452d-3*t43*t 2944 3 50*t68-9.305257363490997d-1*t103*t4*t5+t105*t46)*wght+Mma 2945 4 t2(iq,D2_RA_TA) 2946 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 2947 Mmat2(iq,D2_GAA_TA) = (-3.73452d-3*t50*t71*t77-1.86726d-3*t5 2948 1 0*t72*t76-9.305257363490997d-1*t5*t69*t73+1.3946639630399 2949 2 998d-5*t108*t56*t66+1.0d+0*t107*t46*t5)*wght+Mmat2(iq,D2_ 2950 3 GAA_TA) 2951 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 2952 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 2953 Mmat2(iq,D2_TA_TA) = (-9.305257363490997d-1*t4*t5*(8.0d+0*t3 2954 1 6*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9+5.28d+2*t10* 2955 2 t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+4.4d+2*t13*t1 2956 3 4*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t33*t37*t38+7. 2957 4 2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t30*t34*t35+1. 2958 5 28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*t27*t31*t32+2 2959 6 .0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*t24*t28*t29+2 2960 7 .88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d+2*t21*t25*t2 2961 8 6+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.24d+2*t18*t22 2962 9 *t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23+2.88d+2*t15* 2963 : t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t20+3.6d+2*t12 2964 ; *t16*t17+8.0d+2*t12*t13*t17)-7.46904d-3*t50*t76*t77+2.789 2965 < 3279260799997d-5*t113*t56*t66+1.0d+0*t111*t46*t5)*wght+Mm 2966 = at2(iq,D2_TA_TA) 2967 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 2968 Amat3(iq,D3_RA_RA_RA) = (t46*(1.0d+0*t5*(4.0d+1*t1*t44*t52*t 2969 1 66*t89*taua+2.0d+1*gammaaa*t49*t51*t66*t89*taua+1.0d+1*t1 2970 2 *t50*t55*t89*taua-1.2d+2*t1*t44*t52*t87*t88*taua-6.0d+1*g 2971 3 ammaaa*t49*t51*t87*t88*taua-2.0d+1*t1*t55*t66*t87*taua-3. 2972 4 2592592592592595d+1*t46*t55*t85*taua-6.518518518518519d+1 2973 5 *t44*t50*t52*t85*taua-2.0148148148148146d+2*gammaaa*t50*t 2974 6 51*t84*taua-1.0666666666666667d+2*t44*t52*t63*t65*t66*tau 2975 7 a-1.6d+2*gammaaa*t51*t62*t65*t66*taua-2.6666666666666666d 2976 8 +1*t50*t55*t63*t65*taua-1.3333333333333333d+2*t49*t52*t65 2977 9 *t66*t90-1.777777777777778d+2*t50*t52*t62*t90+18*t52*t53* 2978 : t65*t88*t89+18*gammaaa*t1*t44*t51*t65*t88*t89+18*t47*t48* 2979 ; t49*t65*t88*t89+6*t44*t55*t65*t66*t89+6*gammaaa*t1*t54*t6 2980 < 5*t66*t89+16*gammaaa*t44*t51*t63*t66*t89+32*t47*t48*t62*t 2981 = 66*t89+8*gammaaa*t50*t54*t63*t89-48*gammaaa*t44*t51*t63*t 2982 > 87*t88-96*t47*t48*t62*t87*t88-6*t118*t44*t55*t88-6*gammaa 2983 ? a*t1*t118*t54*t88-16*gammaaa*t54*t63*t66*t87-5.8666666666 2984 @ 66667d+1*gammaaa*t44*t51*t65*t66*t85-2.9333333333333333d+ 2985 1 1*gammaaa*t50*t54*t65*t85-2.0266666666666666d+2*t47*t48*t 2986 2 65*t66*t84-2*t120*t52*t53*t66-2*gammaaa*t1*t120*t44*t51*t 2987 3 66-2*t120*t47*t48*t49*t66-t120*t44*t50*t55-gammaaa*t1*t12 2988 4 0*t50*t54-4.5629629629629626d+1*gammaaa*t117*t46*t54-24*t 2989 5 118*t119*t52*t53-4.5629629629629626d+1*gammaaa*t117*t44*t 2990 6 50*t51-24*gammaaa*t1*t118*t119*t44*t51-2.477037037037037d 2991 7 +2*t116*t47*t48*t50-24*t118*t119*t47*t48*t49)+4.0d+0*t60* 2992 8 t91+1.3333333333333333d+0*t67*t80-2.962962962962963d-1*t4 2993 9 3*t56)+t66*(-2*t65*t93+4.0d+0*t5*t56*t65*t89+2.0d+0*t5*t6 2994 : 7*t87+2.6666666666666666d+0*t56*t60*t87)+t50*(-2*t65*t92- 2995 ; 1.0d+0*t5*t65*t91-t68*t89-2.0d+0*t5*t67*t89-2.66666666666 2996 < 66666d+0*t56*t60*t89-4.444444444444444d-1*t56*t65*t80-2.6 2997 = 666666666666666d+0*t60*t65*t67-1.0d+0*t120*t5*t56)-9.3052 2998 > 57363490997d-1*t4*t5*(3.37614805358933d+0*t39*t40*t72*t9- 2999 ? 6.75229610717866d+0*t37*t39*t72*t9+9.232684300601568d+2*t 3000 @ 36*t40*t60*t9-3.693073720240627d+3*t36*t37*t60*t9+2.76980 3001 1 5290180471d+3*t34*t36*t60*t9-2.104036366334451d+4*t112*t3 3002 2 3*t40*t9+1.2624218198006704d+5*t112*t33*t37*t9-1.89363272 3003 3 97010064d+5*t112*t33*t34*t9+8.416145465337804d+4*t112*t31 3004 4 *t33*t9+6.093571638397036d+4*t10*t6*t60*t78+1.52753040195 3005 5 88112d+7*t112*t14*t6*t78-4.628880005935792d+6*t112*t13*t1 3006 6 4*t78+3.713762858948263d+1*t10*t58*t6*t72-3.7137628589482 3007 7 63d+1*t12*t14*t6*t72-3.37614805358933d+0*t40*t41*t72+6.75 3008 8 229610717866d+0*t36*t37*t38*t72-1.0128444160767991d+1*t34 3009 9 *t36*t38*t72+1.0128444160767991d+1*t33*t34*t35*t72-1.3504 3010 : 59221435732d+1*t31*t33*t35*t72+1.350459221435732d+1*t30*t 3011 ; 31*t32*t72-1.6880740267946648d+1*t28*t30*t32*t72+1.688074 3012 < 0267946648d+1*t27*t28*t29*t72-2.0256888321535982d+1*t25*t 3013 = 27*t29*t72+2.0256888321535982d+1*t24*t25*t26*t72-2.363303 3014 > 6375125308d+1*t22*t24*t26*t72+2.3633036375125308d+1*t21*t 3015 ? 22*t23*t72-2.700918442871464d+1*t19*t21*t23*t72+2.7009184 3016 @ 42871464d+1*t18*t19*t20*t72-3.0385332482303967d+1*t16*t18 3017 1 *t20*t72+3.0385332482303967d+1*t15*t16*t17*t72-3.37614805 3018 2 35893296d+1*t13*t15*t17*t72+3.3761480535893296d+1*t12*t13 3019 3 *t14*t72-1.1171548003727898d+5*t14*t58*t6*t60+5.077976365 3020 4 330863d+4*t12*t17*t6*t60+5.077976365330862d+4*t13*t14*t58 3021 5 *t60-9.232684300601568d+2*t39*t40*t60+9.232684300601568d+ 3022 6 2*t37*t39*t60+2.769805290180471d+3*t33*t37*t38*t60-8.3094 3023 7 15870541413d+3*t33*t34*t38*t60+5.539610580360942d+3*t31*t 3024 8 33*t38*t60+5.539610580360942d+3*t30*t34*t35*t60-1.4772294 3025 9 880962508d+4*t30*t31*t35*t60+9.232684300601568d+3*t28*t30 3026 : *t35*t60+9.232684300601568d+3*t27*t31*t32*t60-2.308171075 3027 ; 150392d+4*t27*t28*t32*t60+1.3849026450902355d+4*t25*t27*t 3028 < 32*t60+1.3849026450902355d+4*t24*t28*t29*t60-3.3237663482 3029 = 16566d+4*t24*t25*t29*t60+1.9388637031263292d+4*t22*t24*t2 3030 > 9*t60+1.9388637031263292d+4*t21*t25*t26*t60-4.52401530729 3031 ? 47686d+4*t21*t22*t26*t60+2.585151604168439d+4*t19*t21*t26 3032 @ *t60+2.585151604168439d+4*t18*t22*t23*t60-5.9089179523850 3033 1 03d+4*t18*t19*t23*t60+3.3237663482165647d+4*t16*t18*t23*t 3034 2 60+3.3237663482165647d+4*t15*t19*t20*t60-7.47847428348727 3035 3 1d+4*t15*t16*t20*t60+4.154707935270705d+4*t13*t15*t20*t60 3036 4 +4.1547079352707056d+4*t12*t16*t17*t60-9.232684300601568d 3037 5 +4*t12*t13*t17*t60-1.2729420016323426d+7*t112*t17*t58*t6+ 3038 6 3.4716600044518436d+6*t112*t12*t20*t6-6.01754400771653d+6 3039 7 *t10*t112*t114*t6-3.4716600044518436d+6*t112*t16*t17*t58+ 3040 8 1.1572200014839477d+7*t112*t13*t17*t58+2.104036366334451d 3041 9 +4*t112*t36*t40-8.416145465337804d+4*t112*t30*t37*t38+3.7 3042 : 87265459402013d+5*t112*t30*t34*t38-5.049687279202681d+5*t 3043 ; 112*t30*t31*t38+2.1040363663344508d+5*t112*t28*t30*t38-4. 3044 < 208072732668902d+4*t112*t36*t37+2.104036366334451d+4*t112 3045 = *t34*t36-2.104036366334451d+5*t112*t27*t34*t35+8.41614546 3046 > 5337803d+5*t112*t27*t31*t35-1.0520181831672254d+6*t112*t2 3047 ? 7*t28*t35+4.208072732668902d+5*t112*t25*t27*t35-4.2080727 3048 @ 326689016d+5*t112*t24*t31*t32+1.578027274750838d+6*t112*t 3049 1 24*t28*t32-1.893632729701006d+6*t112*t24*t25*t32+7.364127 3050 2 282170578d+5*t112*t22*t24*t32-7.364127282170578d+5*t112*t 3051 3 21*t28*t29+2.6510858215814087d+6*t112*t21*t25*t29-3.09293 3052 4 34585116436d+6*t112*t21*t22*t29+1.1782603651472927d+6*t11 3053 5 2*t19*t21*t29-1.1782603651472927d+6*t112*t18*t25*t26+4.12 3054 6 3911278015524d+6*t112*t18*t22*t26-4.713041460589171d+6*t1 3055 7 12*t18*t19*t26+1.767390547720939d+6*t112*t16*t18*t26-1.76 3056 8 73905477209387d+6*t112*t15*t22*t23+6.059624735043219d+6*t 3057 9 112*t15*t19*t23-6.817077826923622d+6*t112*t15*t16*t23+2.5 3058 : 24843639601341d+6*t112*t13*t15*t23-2.524843639601341d+6*t 3059 ; 112*t12*t19*t20+8.521347283654526d+6*t112*t12*t16*t20-9.4 3060 < 68163648505028d+6*t112*t12*t13*t20)-6.0d+0*t118*t5*t56*t8 3061 = 8-3.7221029453963983d+0*t42*t60*t86-2.791577209047299d+0* 3062 > t5*t59*t86-9.305257363490997d-1*t42*t5*(-1.97024140900374 3063 ? 43d-5*t81*t82/rhoa**11+3.279403591520427d-3*t116*t48*t61- 3064 @ 1.648227300332581d-1*gammaaa*t117*t3+3.7270905095708196d- 3065 1 8*gammaaa**4*t115/rhoa**1.3666666666666666d+1)+(-1.240700 3066 2 9817987995d+0*t42*t64-1.2407009817987995d+0*t4*t59)*t80-2 3067 3 .791577209047299d+0*t5*t64*t79-3.7221029453963983d+0*t4*t 3068 4 60*t79-7.444205890792797d+0*t59*t60*t64+2.757113292886221 3069 5 d-1*t4*t42*t43)*wght+Amat3(iq,D3_RA_RA_RA) 3070 Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB) 3071 Cmat3(iq,D3_RA_RA_GAA) = (t46*(1.0d+0*t5*(-1.659786666666666 3072 1 6d-1*gammaaa*t51*t66*t94*taua-7.46904d-2*gammaaa*t51*t65* 3073 2 t70*t88*taua-1.493808d-1*t44*t49*t52*t65*t88*taua-2.48968 3074 3 d-2*t49*t55*t65*t66*taua+1.3333333333333333d+1*t49*t51*t6 3075 4 5*t66*taua-1.9917439999999997d-1*t44*t52*t62*t66*taua-4.9 3076 5 793599999999993d-2*t50*t55*t62*taua+2.6666666666666666d+1 3077 6 *t50*t51*t62*taua-1.7925696d-1*t47*t48*t65*t88*t94-8.2989 3078 7 33333333335d-2*t52*t66*t70*t90+1.120356d-2*t47*t48*t70*t8 3079 8 8*t89+1.120356d-2*t1*t52*t53*t88*t89+1.120356d-2*gammaaa* 3080 9 t44*t49*t51*t88*t89+3.73452d-3*t1*t44*t55*t66*t89+3.73452 3081 : d-3*gammaaa*t49*t54*t66*t89-2*t1*t44*t51*t66*t89-4*gammaa 3082 ; a*t47*t49*t66*t89-t1*t50*t54*t89-1.120356d-2*t1*t44*t55*t 3083 < 87*t88-1.120356d-2*gammaaa*t49*t54*t87*t88+6*t1*t44*t51*t 3084 = 87*t88+12*gammaaa*t47*t49*t87*t88-5.975231999999999d-2*t5 3085 > 2*t53*t63*t65*t88-1.1950464d-1*gammaaa*t44*t51*t62*t65*t8 3086 ? 8-4.481424d-2*t119*t47*t48*t70*t87+2*t1*t54*t66*t87-4.481 3087 @ 424d-2*t1*t119*t52*t53*t87-4.481424d-2*gammaaa*t119*t44*t 3088 1 49*t51*t87-3.6515306666666664d-2*t52*t53*t66*t85-1.825765 3089 2 3333333332d-2*t44*t50*t55*t85+9.777777777777779d+0*t46*t5 3090 3 4*t85+9.777777777777779d+0*t44*t50*t51*t85-1.261437866666 3091 4 6665d-1*gammaaa*t44*t51*t66*t84-6.307189333333332d-2*gamm 3092 5 aaa*t50*t54*t84+6.755555555555556d+1*gammaaa*t47*t50*t84- 3093 6 2.6888544000000003d-1*t47*t48*t66*t83-1.9917439999999997d 3094 7 -2*t44*t55*t63*t65*t66+1.0666666666666666d+1*t44*t51*t63* 3095 8 t65*t66-3.9834879999999995d-2*gammaaa*t54*t62*t65*t66+4.2 3096 9 666666666666664d+1*gammaaa*t47*t62*t65*t66+5.333333333333 3097 : 333d+0*t50*t54*t63*t65)+2.6666666666666666d+0*t60*t97+4.4 3098 ; 44444444444444d-1*t71*t80)+t50*(-t65*t98-1.0d+0*t5*t65*t9 3099 < 7+4.9793599999999993d-3*t67*t96-1.0d+0*t5*t71*t89-1.33333 3100 = 33333333333d+0*t60*t65*t71+4.9793599999999993d-3*t63*t68- 3101 > 1.1618506666666667d-2*t110*t56)-1.9917439999999997d-2*t56 3102 ? *t65*t66*t96-2.481401963597599d+0*t42*t60*t95-1.861051472 3103 @ 6981994d+0*t5*t59*t95-3.73452d-3*t1*t66*t93-1.86726d-3*t1 3104 1 *t50*t92-1.120356d-2*t56*t72*t87*t88+2.0d+0*t5*t66*t71*t8 3105 2 7-9.305257363490997d-1*t42*t5*(3.531915643569816d-2*t3*t8 3106 3 5-9.376593846722628d-4*gammaaa*t61*t84+6.610678411788878d 3107 4 -6*t48*t82*t83-1.3976589410890572d-8*t115*t81/rhoa**1.266 3108 5 6666666666665d+1)-4.1356699393293317d-1*t42*t69*t80-9.305 3109 6 257363490997d-1*t5*t69*t79-2.481401963597599d+0*t59*t60*t 3110 7 69)*wght+Cmat3(iq,D3_RA_RA_GAA) 3111 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 3112 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 3113 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 3114 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 3115 Cmat3(iq,D3_RA_GAA_GAA) = (t46*(1.0d+0*t5*(-1.39466396303999 3116 1 98d-4*t44*t52*t70*t88*taua-6.9733198152d-5*gammaaa*t100*t 3117 2 51*t88*taua-2.3244399384d-5*t55*t66*t70*taua+2.48968d-2*t 3118 3 51*t66*t70*taua-1.6735967556479997d-4*gammaaa*t44*t51*t88 3119 4 *t94-5.578655852159999d-5*gammaaa*t54*t66*t94+1.1950464d- 3120 5 1*gammaaa*t47*t66*t94-2.0919959445599998d-5*gammaaa*t54*t 3121 6 65*t70*t88+4.481424d-2*gammaaa*t47*t65*t70*t88-2.09199594 3122 7 45599998d-5*t44*t49*t55*t65*t88+2.240712d-2*t44*t49*t51*t 3123 8 65*t88-1.1157311704319998d-4*t52*t53*t62*t88-2.2314623408 3124 9 639997d-4*t121*t47*t48*t88-8.367983778239999d-5*gammaaa*t 3125 : 119*t44*t51*t65*t70+7.46904d-3*t49*t54*t65*t66-4*t47*t49* 3126 ; t65*t66-3.7191039014399996d-5*t44*t55*t62*t66+3.983487999 3127 < 9999995d-2*t44*t51*t62*t66-8.367983778239999d-5*t119*t49* 3128 = t52*t53*t65-8.367983778239999d-5*t100*t119*t47*t48*t65+1. 3129 > 9917439999999997d-2*t50*t54*t62-1.0666666666666666d+1*t47 3130 ? *t50*t62)+1.3333333333333333d+0*t101*t60)-1.2407009817987 3131 @ 995d+0*t42*t60*t99-9.305257363490997d-1*t5*t59*t99-3.7345 3132 1 2d-3*t1*t50*t98+9.958719999999999d-3*t50*t71*t96-9.305257 3133 2 363490997d-1*t42*t5*(-1.944317179937905d-6*gammaaa*t82*t9 3134 3 4+1.731063479394947d-4*t61*t62+5.241221029083964d-9*t115* 3135 4 t121*t48)-2.0919959445599998d-5*t102*t56*t65*t88+7.46904d 3136 5 -3*t65*t66*t71*t72+6.973319815199999d-6*t49*t66*t68-3.719 3137 6 1039014399996d-5*t122*t56*t66-1.0d+0*t101*t5*t50*t65)*wgh 3138 7 t+Cmat3(iq,D3_RA_GAA_GAA) 3139 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 3140 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 3141 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 3142 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 3143 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 3144 Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*t46*t5*(-3.90630034743910 3145 1 45d-8*t44*t55*t70*t88+6.275987833679999d-5*t44*t51*t70*t8 3146 2 8-3.9063003474391045d-8*gammaaa*t100*t54*t88+1.2551975667 3147 3 36d-4*gammaaa*t100*t47*t88+2.0919959445599995d-5*t54*t66* 3148 4 t70-2.240712d-2*t47*t66*t70-1.562520138975642d-7*t119*t52 3149 5 *t53*t70-1.562520138975642d-7*gammaaa*t100*t119*t44*t51-1 3150 6 .562520138975642d-7*t119*t47*t48/rhoa**1.3333333333333333 3151 7 d+1)-3.9063003474391045d-8*t56*t88/rhoa**6.66666666666666 3152 8 7d+0-9.305257363490997d-1*t42*t5*(4.374713654860287d-7*t7 3153 9 0*t82-1.965457885906487d-9*gammaaa*t100*t115)-5.60178d-3* 3154 : t101*t50*t72+2.0919959445599995d-5*t102*t66*t71)*wght+Cma 3155 ; t3(iq,D3_GAA_GAA_GAA) 3156 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 3157 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 3158 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 3159 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 3160 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 3161 Mmat3(iq,D3_RA_RA_TA) = (t46*(1.0d+0*t5*(-2.987616d-1*t44*t5 3162 1 2*t65*t75*t88*taua-1.493808d-1*gammaaa*t51*t65*t74*t88*ta 3163 2 ua-4.97936d-2*t55*t65*t66*t75*taua+5.333333333333333d+1*t 3164 3 52*t65*t66*t75*taua-2.8216373333333333d-1*gammaaa*t51*t66 3165 4 *t70*taua-2.9876159999999996d-1*t44*t49*t52*t66*taua-7.46 3166 5 9039999999999d-2*t49*t50*t55*taua+8.0d+1*t49*t50*t52*taua 3167 6 -4.1826624d-1*t47*t48*t66*t94-1.659786666666667d-1*t52*t6 3168 7 6*t74*t90+2.240712d-2*gammaaa*t44*t51*t75*t88*t89+2.24071 3169 8 2d-2*t47*t48*t74*t88*t89+2.240712d-2*t43*t52*t53*t88*t89+ 3170 9 7.46904d-3*gammaaa*t54*t66*t75*t89-4.0d+0*gammaaa*t51*t66 3171 : *t75*t89+7.46904d-3*t43*t44*t55*t66*t89-8.0d+0*t43*t44*t5 3172 ; 2*t66*t89-2.0d+0*t43*t50*t55*t89-2.240712d-2*gammaaa*t54* 3173 < t75*t87*t88+1.2d+1*gammaaa*t51*t75*t87*t88-2.240712d-2*t4 3174 = 3*t44*t55*t87*t88+2.4d+1*t43*t44*t52*t87*t88-3.1369968d-1 3175 > *t47*t48*t65*t70*t88-7.46904d-2*t1*t52*t53*t65*t88-1.9419 3176 ? 503999999999d-1*gammaaa*t44*t49*t51*t65*t88-8.962848d-2*g 3177 @ ammaaa*t119*t44*t51*t75*t87-8.962848d-2*t119*t47*t48*t74* 3178 1 t87+4.0d+0*t43*t55*t66*t87-8.962848d-2*t119*t43*t52*t53*t 3179 2 87-2.48968d-2*t1*t44*t55*t65*t66-6.473168d-2*gammaaa*t49* 3180 3 t54*t65*t66+2.6666666666666666d+1*t1*t44*t52*t65*t66+3.46 3181 4 6666666666666d+1*gammaaa*t49*t51*t65*t66-3.31957333333333 3182 5 3d-2*t52*t53*t63*t66-1.7261781333333331d-1*gammaaa*t44*t5 3183 6 1*t62*t66+6.666666666666667d+0*t1*t50*t55*t65-1.659786666 3184 7 6666666d-2*t44*t50*t55*t63+8.88888888888889d+0*t46*t55*t6 3185 8 3+1.7777777777777778d+1*t44*t50*t52*t63-8.630890666666666 3186 9 d-2*gammaaa*t50*t54*t62+4.622222222222223d+1*gammaaa*t50* 3187 : t51*t62)+4.444444444444444d-1*t76*t80+2.6666666666666666d 3188 ; +0*t104*t60)+t50*(-8.298933333333333d-3*t56*t96-1.0d+0*t5 3189 < *t76*t89-1.3333333333333333d+0*t60*t65*t76+6.2242d-3*t67* 3190 = t72+6.2242d-3*t1*t68-1.0d+0*t104*t5*t65-t105*t65)-7.46904 3191 > d-3*t43*t66*t93-3.73452d-3*t43*t50*t92-9.305257363490997d 3192 ? -1*t4*t5*(4.0513776643071964d+1*t36*t40*t77*t9-1.21541329 3193 @ 92921589d+2*t34*t36*t77*t9-2.769805290180471d+3*t33*t40*t 3194 1 5*t9+5.539610580360942d+3*t33*t37*t5*t9+8.309415870541416 3195 2 d+3*t33*t34*t5*t9-1.1079221160721883d+4*t31*t33*t5*t9+2.6 3196 3 739092584427493d+3*t10*t6*t77*t78+6.702928802236738d+5*t1 3197 4 4*t5*t6*t78-6.093571638397035d+5*t13*t14*t5*t78-2.2282577 3198 5 15368958d+3*t12*t17*t6*t77+2.2282577153689576d+3*t13*t14* 3199 6 t58*t77-4.0513776643071964d+1*t37*t39*t77+1.2154132992921 3200 7 589d+2*t33*t37*t38*t77-2.4308265985843178d+2*t31*t33*t38* 3201 8 t77+2.4308265985843178d+2*t30*t34*t35*t77-4.0513776643071 3202 9 96d+2*t28*t30*t35*t77+4.0513776643071964d+2*t27*t31*t32*t 3203 : 77-6.077066496460795d+2*t25*t27*t32*t77+6.077066496460793 3204 ; d+2*t24*t28*t29*t77-8.507893095045111d+2*t22*t24*t29*t77+ 3205 < 8.507893095045113d+2*t21*t25*t26*t77-1.1343857460060149d+ 3206 = 3*t19*t21*t26*t77+1.1343857460060149d+3*t18*t22*t23*t77-1 3207 > .4584959591505905d+3*t16*t18*t23*t77+1.4584959591505908d+ 3208 ? 3*t15*t19*t20*t77-1.8231199489382383d+3*t13*t15*t20*t77+1 3209 @ .8231199489382383d+3*t12*t16*t17*t77+5.585774001863949d+5 3210 1 *t17*t5*t58*t6-4.5701787287977763d+5*t12*t20*t5*t6-7.9216 3211 2 43129916147d+5*t10*t114*t5*t6-4.5701787287977763d+5*t16*t 3212 3 17*t5*t58+5.077976365330863d+5*t13*t17*t5*t58+9.232684300 3213 4 601569d+2*t36*t40*t5-1.1079221160721883d+4*t30*t37*t38*t5 3214 5 +1.6618831741082832d+4*t30*t34*t38*t5+2.2158442321443766d 3215 6 +4*t30*t31*t38*t5-2.7698052901804704d+4*t28*t30*t38*t5+1. 3216 7 846536860120314d+3*t36*t37*t5-2.769805290180471d+3*t34*t3 3217 8 6*t5-2.769805290180471d+4*t27*t34*t35*t5+3.69307372024062 3218 9 9d+4*t27*t31*t35*t5+4.616342150300784d+4*t27*t28*t35*t5-5 3219 : .539610580360942d+4*t25*t27*t35*t5-5.539610580360941d+4*t 3220 ; 24*t31*t32*t5+6.924513225451174d+4*t24*t28*t32*t5+8.30941 3221 < 5870541416d+4*t24*t25*t32*t5-9.694318515631648d+4*t22*t24 3222 = *t32*t5-9.694318515631648d+4*t21*t28*t29*t5+1.16331822187 3223 > 57979d+5*t21*t25*t29*t5+1.3572045921884307d+5*t21*t22*t29 3224 ? *t5-1.5510909625010635d+5*t19*t21*t29*t5-1.55109096250106 3225 @ 38d+5*t18*t25*t26*t5+1.809606122917908d+5*t18*t22*t26*t5+ 3226 1 2.0681212833347515d+5*t18*t19*t26*t5-2.3266364437515952d+ 3227 2 5*t16*t18*t26*t5-2.3266364437515955d+5*t15*t22*t23*t5+2.6 3228 3 59013078573252d+5*t15*t19*t23*t5+2.9913897133949086d+5*t1 3229 4 5*t16*t23*t5-3.3237663482165647d+5*t13*t15*t23*t5-3.32376 3230 5 6348216565d+5*t12*t19*t20*t5+3.7392371417436354d+5*t12*t1 3231 6 6*t20*t5+4.1547079352707056d+5*t12*t13*t20*t5)-2.240712d- 3232 7 2*t56*t77*t87*t88+2.0d+0*t5*t66*t76*t87-9.305257363490997 3233 8 d-1*t5*t73*t86-4.1356699393293317d-1*t4*t73*t80-2.4814019 3234 9 63597599d+0*t60*t64*t73-2.48968d-2*t56*t65*t66*t72-1.8610 3235 : 514726981994d+0*t103*t5*t64-2.481401963597599d+0*t103*t4* 3236 ; t60)*wght+Mmat3(iq,D3_RA_RA_TA) 3237 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 3238 Mmat3(iq,D3_RA_RB_TA) = Mmat3(iq,D3_RA_RB_TA) 3239 Mmat3(iq,D3_RA_GAA_TA) = (t46*(1.0d+0*t5*(-2.789327926079999 3240 1 7d-4*t44*t52*t74*t88*taua-1.3946639630399998d-4*gammaaa*t 3241 2 106*t51*t88*taua-4.6488798768d-5*t55*t66*t74*taua+4.97936 3242 3 d-2*t52*t66*t74*taua+2.48968d-2*t51*t66*t74*taua-4.183991 3243 4 8891199995d-5*t44*t55*t65*t75*t88+4.481424d-2*t44*t52*t65 3244 5 *t75*t88+2.240712d-2*t44*t51*t65*t75*t88-4.18399188911999 3245 6 95d-5*gammaaa*t54*t65*t74*t88+2.240712d-2*gammaaa*t51*t65 3246 7 *t74*t88+4.481424d-2*gammaaa*t47*t65*t74*t88-2.9287943223 3247 8 839996d-4*gammaaa*t44*t51*t70*t88-1.8130631519519996d-4*t 3248 9 49*t52*t53*t88-4.044525492816d-4*t100*t47*t48*t88+7.46904 3249 : d-3*t55*t65*t66*t75+7.46904d-3*t54*t65*t66*t75-4.0d+0*t51 3250 ; *t65*t66*t75-1.673596755648d-4*t119*t52*t53*t65*t75-1.673 3251 < 596755648d-4*gammaaa*t119*t44*t51*t65*t74-9.76264774128d- 3252 = 5*gammaaa*t54*t66*t70+5.228328d-2*gammaaa*t51*t66*t70+1.0 3253 > 456655999999999d-1*gammaaa*t47*t66*t70-6.043543839839999d 3254 ? -5*t44*t49*t55*t66+6.473168d-2*t44*t49*t52*t66+3.236584d- 3255 @ 2*t44*t49*t51*t66-1.673596755648d-4*t106*t119*t47*t48*t65 3256 1 +1.618292d-2*t49*t50*t55+1.618292d-2*t49*t50*t54-8.666666 3257 2 666666666d+0*t49*t50*t51)+1.3333333333333333d+0*t107*t60) 3258 3 -3.73452d-3*t43*t50*t98+4.9793599999999993d-3*t50*t76*t96 3259 4 -9.305257363490997d-1*t5*t73*t95-4.1839918891199995d-5*t1 3260 5 08*t56*t65*t88+7.46904d-3*t65*t66*t71*t77+3.73452d-3*t65* 3261 6 t66*t72*t76+1.3946639630399998d-5*t66*t68*t75-1.240700981 3262 7 7987995d+0*t60*t69*t73+6.2242d-3*t50*t71*t72-9.3052573634 3263 8 90997d-1*t103*t5*t69-6.043543839839999d-5*t102*t56*t66-1. 3264 9 0d+0*t107*t5*t50*t65-1.86726d-3*t1*t105*t50)*wght+Mmat3(i 3265 : q,D3_RA_GAA_TA) 3266 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 3267 Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA) 3268 Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB) 3269 Mmat3(iq,D3_RA_GBB_TA) = Mmat3(iq,D3_RA_GBB_TA) 3270 Mmat3(iq,D3_RA_GBB_TB) = Mmat3(iq,D3_RA_GBB_TB) 3271 Mmat3(iq,D3_GAA_GAA_TA) = (-9.305257363490997d-1*t5*t73*t99+ 3272 1 1.0d+0*t46*t5*(-7.812600694878209d-8*t44*t55*t74*t88+8.36 3273 2 7983778239999d-5*t44*t52*t74*t88+8.367983778239999d-5*t44 3274 3 *t51*t74*t88-7.812600694878209d-8*gammaaa*t106*t54*t88+4. 3275 4 1839918891199995d-5*gammaaa*t106*t51*t88+1.673596755648d- 3276 5 4*gammaaa*t106*t47*t88+1.3946639630399998d-5*t55*t66*t74+ 3277 6 2.7893279260799997d-5*t54*t66*t74-1.4938079999999998d-2*t 3278 7 51*t66*t74-1.4938079999999998d-2*t47*t66*t74-3.1250402779 3279 8 51284d-7*t119*t52*t53*t74-3.125040277951284d-7*gammaaa*t1 3280 9 06*t119*t44*t51-3.125040277951284d-7*t119*t47*t48/rhoa**1 3281 : .2333333333333334d+1)-7.812600694878209d-8*t117*t56*t88-3 3282 ; .73452d-3*t101*t50*t77+6.973319815199999d-6*t102*t66*t76- 3283 < 3.73452d-3*t107*t50*t72+2.7893279260799997d-5*t108*t66*t7 3284 = 1)*wght+Mmat3(iq,D3_GAA_GAA_TA) 3285 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 3286 Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA) 3287 Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB) 3288 Mmat3(iq,D3_GAA_GBB_TA) = Mmat3(iq,D3_GAA_GBB_TA) 3289 Mmat3(iq,D3_GAB_GAB_TA) = Mmat3(iq,D3_GAB_GAB_TA) 3290 Mmat3(iq,D3_TA_TA_TA) = (-9.305257363490997d-1*t4*t5*(-4.8d+ 3291 1 1*t33*t40*t9-2.88d+2*t33*t37*t9-4.32d+2*t33*t34*t9-1.92d+ 3292 2 2*t31*t33*t9-3.4848d+4*t14*t6*t78-1.056d+4*t13*t14*t78-2. 3293 3 904d+4*t17*t58*t6-7.92d+3*t12*t20*t6-1.3728d+4*t10*t114*t 3294 4 6-7.92d+3*t16*t17*t58-2.64d+4*t13*t17*t58-4.8d+1*t36*t40- 3295 5 1.92d+2*t30*t37*t38-8.64d+2*t30*t34*t38-1.152d+3*t30*t31* 3296 6 t38-4.8d+2*t28*t30*t38-9.6d+1*t36*t37-4.8d+1*t34*t36-4.8d 3297 7 +2*t27*t34*t35-1.92d+3*t27*t31*t35-2.4d+3*t27*t28*t35-9.6 3298 8 d+2*t25*t27*t35-9.6d+2*t24*t31*t32-3.6d+3*t24*t28*t32-4.3 3299 9 2d+3*t24*t25*t32-1.68d+3*t22*t24*t32-1.68d+3*t21*t28*t29- 3300 : 6.048d+3*t21*t25*t29-7.056d+3*t21*t22*t29-2.688d+3*t19*t2 3301 ; 1*t29-2.688d+3*t18*t25*t26-9.408d+3*t18*t22*t26-1.0752d+4 3302 < *t18*t19*t26-4.032d+3*t16*t18*t26-4.032d+3*t15*t22*t23-1. 3303 = 3824d+4*t15*t19*t23-1.5552d+4*t15*t16*t23-5.76d+3*t13*t15 3304 > *t23-5.76d+3*t12*t19*t20-1.944d+4*t12*t16*t20-2.16d+4*t12 3305 ? *t13*t20)+1.0d+0*t46*t5*(-3.1250402779512837d-7*t122*t44* 3306 @ t55*t88-3.1250402779512837d-7*gammaaa*t123*t54*t88+1.0041 3307 1 580533887999d-3*t122*t44*t52*t88+5.020790266944d-4*gammaa 3308 2 a*t123*t51*t88+1.6735967556479997d-4*t122*t55*t66-1.79256 3309 3 96d-1*t122*t52*t66-1.2500161111805136d-6*t119*t122*t52*t5 3310 4 3-1.2500161111805136d-6*gammaaa*t119*t123*t44*t51-1.25001 3311 5 61111805136d-6*t119*t47*t48/rhoa**1.0333333333333333d+1)- 3312 6 3.1250402779512837d-7*t56*t63*t88-1.120356d-2*t111*t50*t7 3313 7 7+8.367983778239998d-5*t113*t66*t76)*wght+Mmat3(iq,D3_TA_ 3314 8 TA_TA) 3315 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 3316 endif ! rhoa.gt.tol_rho 3317 else ! ipol.eq.1 3318 rhoa = rho(iq,R_A) 3319 rhob = rho(iq,R_B) 3320 gammaaa = rgamma(iq,G_AA) 3321 gammaab = rgamma(iq,G_AB) 3322 gammabb = rgamma(iq,G_BB) 3323 taua = tau(iq,T_A) 3324 taub = tau(iq,T_B) 3325 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 3326 t1 = 1/rhoa**2.6666666666666666d+0 3327 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 3328 t3 = 1/t2 3329 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 3330 t5 = rhoa**1.3333333333333333d+0 3331 t6 = param(7) 3332 t7 = param(18) 3333 t8 = rhoa**1.6666666666666669d+0 3334 t9 = 9.115599744691192d+0*t8 3335 t10 = t9-2.0d+0*taua 3336 t11 = t10**11 3337 t12 = 2.0d+0*taua+t9 3338 t13 = 1/t12**11 3339 t14 = param(17) 3340 t15 = t10**10 3341 t16 = 1/t12**10 3342 t17 = param(16) 3343 t18 = t10**9 3344 t19 = 1/t12**9 3345 t20 = param(15) 3346 t21 = t10**8 3347 t22 = 1/t12**8 3348 t23 = param(14) 3349 t24 = t10**7 3350 t25 = 1/t12**7 3351 t26 = param(13) 3352 t27 = t10**6 3353 t28 = 1/t12**6 3354 t29 = param(12) 3355 t30 = t10**5 3356 t31 = 1/t12**5 3357 t32 = param(11) 3358 t33 = t10**4 3359 t34 = 1/t12**4 3360 t35 = param(10) 3361 t36 = t10**3 3362 t37 = 1/t12**3 3363 t38 = param(9) 3364 t39 = t10**2 3365 t40 = 1/t12**2 3366 t41 = param(8) 3367 t42 = 1/t12 3368 t43 = t11*t13*t7+t6+t10*t41*t42+t38*t39*t40+t35*t36*t37+t32* 3369 1 t33*t34+t29*t30*t31+t26*t27*t28+t23*t24*t25+t20*t21*t22+t 3370 2 17*t18*t19+t14*t15*t16 3371 t44 = 1/t8 3372 t45 = 2.0d+0*t44*taua-9.11559972d+0 3373 t46 = 1.86726d-3*t45+1.86726d-3*gammaaa*t1+1.0d+0 3374 t47 = 1/t46 3375 t48 = param(1) 3376 t49 = param(4) 3377 t50 = gammaaa**2 3378 t51 = 1/rhoa**5.333333333333333d+0 3379 t52 = 1/t46**2 3380 t53 = param(5) 3381 t54 = param(6) 3382 t55 = t45**2 3383 t56 = param(2) 3384 t57 = param(3) 3385 t58 = t45*t47*t57+gammaaa*t1*t47*t56+t52*t54*t55+gammaaa*t1* 3386 1 t45*t52*t53+t49*t50*t51*t52+t48 3387 t59 = 1/rhob**2.6666666666666666d+0 3388 t60 = 4.49276922095889d-3*gammabb*t59+1.0d+0 3389 t61 = 1/t60 3390 t62 = 3.6121864536509485d-3*gammabb*t59*t61+1.0d+0 3391 t63 = rhob**1.3333333333333333d+0 3392 t64 = rhob**1.6666666666666669d+0 3393 t65 = 9.115599744691192d+0*t64 3394 t66 = t65-2.0d+0*taub 3395 t67 = t66**11 3396 t68 = 2.0d+0*taub+t65 3397 t69 = 1/t68**11 3398 t70 = t66**10 3399 t71 = 1/t68**10 3400 t72 = t66**9 3401 t73 = 1/t68**9 3402 t74 = t66**8 3403 t75 = 1/t68**8 3404 t76 = t66**7 3405 t77 = 1/t68**7 3406 t78 = t66**6 3407 t79 = 1/t68**6 3408 t80 = t66**5 3409 t81 = 1/t68**5 3410 t82 = t66**4 3411 t83 = 1/t68**4 3412 t84 = t66**3 3413 t85 = 1/t68**3 3414 t86 = t66**2 3415 t87 = 1/t68**2 3416 t88 = 1/t68 3417 t89 = t41*t66*t88+t38*t86*t87+t35*t84*t85+t32*t82*t83+t29*t8 3418 1 0*t81+t26*t78*t79+t23*t76*t77+t20*t74*t75+t17*t72*t73+t14 3419 2 *t70*t71+t67*t69*t7+t6 3420 t90 = 1/t64 3421 t91 = 2.0d+0*t90*taub-9.11559972d+0 3422 t92 = 1.86726d-3*t91+1.86726d-3*gammabb*t59+1.0d+0 3423 t93 = 1/t92 3424 t94 = gammabb**2 3425 t95 = 1/rhob**5.333333333333333d+0 3426 t96 = 1/t92**2 3427 t97 = t91**2 3428 t98 = t54*t96*t97+t49*t94*t95*t96+gammabb*t53*t59*t91*t96+t5 3429 1 7*t91*t93+gammabb*t56*t59*t93+t48 3430 t99 = rhoa**6.666666666666666d-1 3431 t100 = 1/t12**12 3432 t101 = 1.6711932865267184d+2*t13*t15*t7*t99-1.67119328652671 3433 1 84d+2*t100*t11*t7*t99+1.5192666241151986d+1*t41*t42*t99-1 3434 2 .5192666241151986d+1*t10*t40*t41*t99+3.038533248230397d+1 3435 3 *t10*t38*t40*t99-3.038533248230397d+1*t37*t38*t39*t99+4.5 3436 4 577998723455965d+1*t35*t37*t39*t99-4.5577998723455965d+1* 3437 5 t34*t35*t36*t99+6.077066496460795d+1*t32*t34*t36*t99-6.07 3438 6 7066496460795d+1*t31*t32*t33*t99+7.596333120575993d+1*t29 3439 7 *t31*t33*t99-7.596333120575993d+1*t28*t29*t30*t99+9.11559 3440 8 9744691193d+1*t26*t28*t30*t99-9.115599744691193d+1*t25*t2 3441 9 6*t27*t99+1.0634866368806391d+2*t23*t25*t27*t99-1.0634866 3442 : 368806391d+2*t22*t23*t24*t99+1.2154132992921589d+2*t20*t2 3443 ; 2*t24*t99-1.2154132992921589d+2*t19*t20*t21*t99+1.3673399 3444 < 617036788d+2*t17*t19*t21*t99-1.3673399617036788d+2*t16*t1 3445 = 7*t18*t99+1.5192666241151986d+2*t14*t16*t18*t99-1.5192666 3446 > 241151986d+2*t13*t14*t15*t99 3447 t102 = rhoa**3.333333333333333d-1 3448 t103 = 1/t2**2 3449 t104 = 1/rhoa**6.333333333333333d+0 3450 t105 = 1/rhoa**3.6666666666666664d+0 3451 t106 = 4.327658698487368d-5*t103*t104*t50-9.632497209735863d 3452 1 -3*gammaaa*t105*t3 3453 t107 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t105 3454 t108 = 1/t46**3 3455 t109 = -3.3333333333333337d+0*t1*t47*t57*taua-6.666666666666 3456 1 667d+0*t1*t45*t52*t54*taua-3.3333333333333337d+0*gammaaa* 3457 2 t51*t52*t53*taua-t107*t45*t52*t57-gammaaa*t1*t107*t52*t56 3458 3 -2.6666666666666666d+0*gammaaa*t105*t47*t56-2*t107*t108*t 3459 4 54*t55-2.6666666666666666d+0*gammaaa*t105*t45*t52*t53-2*g 3460 5 ammaaa*t1*t107*t108*t45*t53-5.333333333333333d+0*t104*t49 3461 6 *t50*t52-2*t107*t108*t49*t50*t51 3462 t110 = 1.3333333333333333d+0*t102*t58+1.0d+0*t109*t5 3463 t111 = rhob**6.666666666666666d-1 3464 t112 = 1/t68**12 3465 t113 = 1.5192666241151986d+1*t111*t41*t88-1.5192666241151986 3466 1 d+1*t111*t41*t66*t87+3.038533248230397d+1*t111*t38*t66*t8 3467 2 7-3.038533248230397d+1*t111*t38*t85*t86+4.557799872345596 3468 3 5d+1*t111*t35*t85*t86-4.5577998723455965d+1*t111*t35*t83* 3469 4 t84+6.077066496460795d+1*t111*t32*t83*t84-6.0770664964607 3470 5 95d+1*t111*t32*t81*t82+7.596333120575993d+1*t111*t29*t81* 3471 6 t82-7.596333120575993d+1*t111*t29*t79*t80+9.1155997446911 3472 7 93d+1*t111*t26*t79*t80-9.115599744691193d+1*t111*t26*t77* 3473 8 t78+1.0634866368806391d+2*t111*t23*t77*t78-1.063486636880 3474 9 6391d+2*t111*t23*t75*t76+1.2154132992921589d+2*t111*t20*t 3475 : 75*t76-1.2154132992921589d+2*t111*t20*t73*t74+1.367339961 3476 ; 7036788d+2*t111*t17*t73*t74-1.3673399617036788d+2*t111*t1 3477 < 7*t71*t72+1.5192666241151986d+2*t111*t14*t71*t72+1.671193 3478 = 2865267184d+2*t111*t69*t7*t70-1.5192666241151986d+2*t111* 3479 > t14*t69*t70-1.6711932865267184d+2*t111*t112*t67*t7 3480 t114 = rhob**3.333333333333333d-1 3481 t115 = 1/t60**2 3482 t116 = 1/rhob**6.333333333333333d+0 3483 t117 = 1/rhob**3.6666666666666664d+0 3484 t118 = 4.327658698487368d-5*t115*t116*t94-9.632497209735863d 3485 1 -3*gammabb*t117*t61 3486 t119 = -6.2242d-3*t59*taub-4.9793599999999993d-3*gammabb*t11 3487 1 7 3488 t120 = 1/t92**3 3489 t121 = -3.3333333333333337d+0*gammabb*t53*t95*t96*taub-6.666 3490 1 666666666667d+0*t54*t59*t91*t96*taub-3.3333333333333337d+ 3491 2 0*t57*t59*t93*taub-2*t119*t120*t54*t97-5.333333333333333d 3492 3 +0*t116*t49*t94*t96-t119*t57*t91*t96-2.6666666666666666d+ 3493 4 0*gammabb*t117*t53*t91*t96-gammabb*t119*t56*t59*t96-2*t11 3494 5 9*t120*t49*t94*t95-2.6666666666666666d+0*gammabb*t117*t56 3495 6 *t93-2*gammabb*t119*t120*t53*t59*t91 3496 t122 = 1.3333333333333333d+0*t114*t98+1.0d+0*t121*t63 3497 t123 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gam 3498 1 maaa*t103*t51 3499 t124 = 1/rhoa**8 3500 t125 = -1.86726d-3*t1*t45*t52*t57-1.86726d-3*gammaaa*t51*t52 3501 1 *t56+t1*t47*t56-3.73452d-3*t1*t108*t54*t55+t1*t45*t52*t53 3502 2 -3.73452d-3*gammaaa*t108*t45*t51*t53+2*gammaaa*t49*t51*t5 3503 3 2-3.73452d-3*t108*t124*t49*t50 3504 t126 = 1/t5 3505 t127 = 3.6121864536509485d-3*t59*t61-1.6228720119327628d-5*g 3506 1 ammabb*t115*t95 3507 t128 = 1/rhob**8 3508 t129 = -3.73452d-3*t120*t54*t59*t97-1.86726d-3*gammabb*t56*t 3509 1 95*t96+2*gammabb*t49*t95*t96-1.86726d-3*t57*t59*t91*t96+t 3510 2 53*t59*t91*t96-3.73452d-3*gammabb*t120*t53*t91*t95-3.7345 3511 3 2d-3*t120*t128*t49*t94+t56*t59*t93 3512 t130 = 1/t63 3513 t131 = -2.2d+1*t13*t15*t7-2.2d+1*t100*t11*t7-2.0d+0*t41*t42- 3514 1 2.0d+0*t10*t40*t41-4.0d+0*t10*t38*t40-4.0d+0*t37*t38*t39- 3515 2 6.0d+0*t35*t37*t39-6.0d+0*t34*t35*t36-8.0d+0*t32*t34*t36- 3516 3 8.0d+0*t31*t32*t33-1.0d+1*t29*t31*t33-1.0d+1*t28*t29*t30- 3517 4 1.2d+1*t26*t28*t30-1.2d+1*t25*t26*t27-1.4d+1*t23*t25*t27- 3518 5 1.4d+1*t22*t23*t24-1.6d+1*t20*t22*t24-1.6d+1*t19*t20*t21- 3519 6 1.8d+1*t17*t19*t21-1.8d+1*t16*t17*t18-2.0d+1*t14*t16*t18- 3520 7 2.0d+1*t13*t14*t15 3521 t132 = 1/rhoa**7 3522 t133 = 1/rhoa**4.333333333333333d+0 3523 t134 = -3.73452d-3*t44*t45*t52*t57+2.0d+0*t44*t47*t57-3.7345 3524 1 2d-3*gammaaa*t133*t52*t56-7.46904d-3*t108*t44*t54*t55+4.0 3525 2 d+0*t44*t45*t52*t54+2.0d+0*gammaaa*t133*t52*t53-7.46904d- 3526 3 3*gammaaa*t108*t133*t45*t53-7.46904d-3*t108*t132*t49*t50 3527 t135 = 1/t102 3528 t136 = -2.0d+0*t41*t88-2.0d+0*t41*t66*t87-4.0d+0*t38*t66*t87 3529 1 -4.0d+0*t38*t85*t86-6.0d+0*t35*t85*t86-6.0d+0*t35*t83*t84 3530 2 -8.0d+0*t32*t83*t84-8.0d+0*t32*t81*t82-1.0d+1*t29*t81*t82 3531 3 -1.0d+1*t29*t79*t80-1.2d+1*t26*t79*t80-1.2d+1*t26*t77*t78 3532 4 -1.4d+1*t23*t77*t78-1.4d+1*t23*t75*t76-1.6d+1*t20*t75*t76 3533 5 -1.6d+1*t20*t73*t74-1.8d+1*t17*t73*t74-1.8d+1*t17*t71*t72 3534 6 -2.0d+1*t14*t71*t72-2.2d+1*t69*t7*t70-2.0d+1*t14*t69*t70- 3535 7 2.2d+1*t112*t67*t7 3536 t137 = 1/rhob**7 3537 t138 = 1/rhob**4.333333333333333d+0 3538 t139 = -7.46904d-3*t120*t54*t90*t97-3.73452d-3*t57*t90*t91*t 3539 1 96+4.0d+0*t54*t90*t91*t96-3.73452d-3*gammabb*t138*t56*t96 3540 2 +2.0d+0*gammabb*t138*t53*t96-7.46904d-3*t120*t137*t49*t94 3541 3 +2.0d+0*t57*t90*t93-7.46904d-3*gammabb*t120*t138*t53*t91 3542 t140 = 1/t114 3543 t141 = 1/t12**13 3544 t142 = 2.5389881826654315d+4*t13*t18*t5*t7-5.585774001863949 3545 1 d+4*t100*t15*t5*t7+3.046785819198518d+4*t11*t141*t5*t7+1. 3546 2 1141288576844789d+2*t13*t135*t15*t7-1.1141288576844789d+2 3547 3 *t100*t11*t135*t7-4.6163421503007845d+2*t40*t41*t5+4.6163 3548 4 421503007845d+2*t10*t37*t41*t5+4.6163421503007845d+2*t38* 3549 5 t40*t5+1.3849026450902355d+3*t34*t38*t39*t5-4.15470793527 3550 6 07067d+3*t34*t35*t39*t5+2.769805290180471d+3*t32*t34*t39* 3551 7 t5-1.846536860120314d+3*t10*t37*t38*t5+1.3849026450902355 3552 8 d+3*t10*t35*t37*t5+2.769805290180471d+3*t31*t35*t36*t5-7. 3553 9 386147440481255d+3*t31*t32*t36*t5+4.616342150300784d+3*t2 3554 : 9*t31*t36*t5+4.616342150300784d+3*t28*t32*t33*t5-1.154085 3555 ; 537575196d+4*t28*t29*t33*t5+6.924513225451178d+3*t26*t28* 3556 < t33*t5+6.924513225451178d+3*t25*t29*t30*t5-1.661883174108 3557 = 283d+4*t25*t26*t30*t5+9.694318515631648d+3*t23*t25*t30*t5 3558 > +9.694318515631648d+3*t22*t26*t27*t5-2.2620076536473846d+ 3559 ? 4*t22*t23*t27*t5+1.2925758020842196d+4*t20*t22*t27*t5+1.2 3560 @ 925758020842196d+4*t19*t23*t24*t5-2.954458976192502d+4*t1 3561 1 9*t20*t24*t5+1.6618831741082823d+4*t17*t19*t24*t5+1.66188 3562 2 31741082823d+4*t16*t20*t21*t5-3.7392371417436354d+4*t16*t 3563 3 17*t21*t5+2.0773539676353528d+4*t14*t16*t21*t5+2.07735396 3564 4 76353528d+4*t13*t17*t18*t5-4.616342150300784d+4*t13*t14*t 3565 5 18*t5+2.5389881826654315d+4*t100*t14*t15*t5+1.01284441607 3566 6 67991d+1*t135*t41*t42-1.0128444160767991d+1*t10*t135*t40* 3567 7 t41+2.0256888321535982d+1*t10*t135*t38*t40-2.025688832153 3568 8 5982d+1*t135*t37*t38*t39+3.038533248230397d+1*t135*t35*t3 3569 9 7*t39-3.038533248230397d+1*t135*t34*t35*t36+4.05137766430 3570 : 71964d+1*t135*t32*t34*t36-4.0513776643071964d+1*t135*t31* 3571 ; t32*t33+5.064222080383994d+1*t135*t29*t31*t33-5.064222080 3572 < 383994d+1*t135*t28*t29*t30+6.077066496460795d+1*t135*t26* 3573 = t28*t30-6.077066496460795d+1*t135*t25*t26*t27+7.089910912 3574 > 537593d+1*t135*t23*t25*t27-7.089910912537593d+1*t135*t22* 3575 ? t23*t24+8.102755328614393d+1*t135*t20*t22*t24-8.102755328 3576 @ 614393d+1*t135*t19*t20*t21+9.115599744691191d+1*t135*t17* 3577 1 t19*t21-9.115599744691191d+1*t135*t16*t17*t18+1.012844416 3578 2 076799d+2*t135*t14*t16*t18-1.012844416076799d+2*t13*t135* 3579 3 t14*t15 3580 t143 = 1/t99 3581 t144 = gammaaa**3 3582 t145 = 1/t2**3 3583 t146 = 1/rhoa**10 3584 t147 = 1/rhoa**7.333333333333333d+0 3585 t148 = 1/rhoa**4.666666666666667d+0 3586 t149 = -3.8948928286386303d-4*t103*t147*t50+3.53191564356981 3587 1 6d-2*gammaaa*t148*t3+1.0369691626335495d-6*t144*t145*t146 3588 t150 = t107**2 3589 t151 = 1/t46**4 3590 t152 = 1.6597866666666666d-2*t105*taua+1.8257653333333332d-2 3591 1 *gammaaa*t148 3592 t153 = taua**2 3593 t154 = 6.666666666666667d+0*t1*t107*t52*t57*taua+8.888888888 3594 1 88889d+0*t105*t47*t57*taua+1.7777777777777778d+1*t105*t45 3595 2 *t52*t54*taua+2.6666666666666666d+1*t1*t107*t108*t45*t54* 3596 3 taua+2.6666666666666666d+1*gammaaa*t104*t52*t53*taua+1.33 3597 4 33333333333333d+1*gammaaa*t107*t108*t51*t53*taua-t152*t45 3598 5 *t52*t57+2*t108*t150*t45*t57-gammaaa*t1*t152*t52*t56+5.33 3599 6 3333333333333d+0*gammaaa*t105*t107*t52*t56+9.777777777777 3600 7 779d+0*gammaaa*t148*t47*t56+2*gammaaa*t1*t108*t150*t56-2* 3601 8 t108*t152*t54*t55+6*t150*t151*t54*t55+2.2222222222222224d 3602 9 +1*t153*t51*t52*t54+9.777777777777779d+0*gammaaa*t148*t45 3603 : *t52*t53-2*gammaaa*t1*t108*t152*t45*t53+6*gammaaa*t1*t150 3604 ; *t151*t45*t53+1.0666666666666666d+1*gammaaa*t105*t107*t10 3605 < 8*t45*t53+3.377777777777778d+1*t147*t49*t50*t52-2*t108*t1 3606 = 52*t49*t50*t51+6*t150*t151*t49*t50*t51+2.1333333333333332 3607 > d+1*t104*t107*t108*t49*t50 3608 t155 = 4.444444444444444d-1*t143*t58+1.0d+0*t154*t5+2.666666 3609 1 6666666666d+0*t102*t109 3610 t156 = -1.0d+0*t152*t5*t58-1.3333333333333333d+0*t102*t107*t 3611 1 58-1.0d+0*t107*t109*t5-t107*t110 3612 t157 = 1/t68**13 3613 t158 = 1.0128444160767991d+1*t140*t41*t88-1.0128444160767991 3614 1 d+1*t140*t41*t66*t87+2.0256888321535982d+1*t140*t38*t66*t 3615 2 87-4.6163421503007845d+2*t41*t63*t87+4.6163421503007845d+ 3616 3 2*t38*t63*t87-2.0256888321535982d+1*t140*t38*t85*t86+3.03 3617 4 8533248230397d+1*t140*t35*t85*t86+1.3849026450902355d+3*t 3618 5 38*t63*t83*t86-4.1547079352707067d+3*t35*t63*t83*t86+2.76 3619 6 9805290180471d+3*t32*t63*t83*t86+4.6163421503007845d+2*t4 3620 7 1*t63*t66*t85-1.846536860120314d+3*t38*t63*t66*t85+1.3849 3621 8 026450902355d+3*t35*t63*t66*t85-3.038533248230397d+1*t140 3622 9 *t35*t83*t84+4.0513776643071964d+1*t140*t32*t83*t84+2.769 3623 : 805290180471d+3*t35*t63*t81*t84-7.386147440481255d+3*t32* 3624 ; t63*t81*t84+4.616342150300784d+3*t29*t63*t81*t84-4.051377 3625 < 6643071964d+1*t140*t32*t81*t82+5.064222080383994d+1*t140* 3626 = t29*t81*t82+4.616342150300784d+3*t32*t63*t79*t82-1.154085 3627 > 537575196d+4*t29*t63*t79*t82+6.924513225451178d+3*t26*t63 3628 ? *t79*t82-5.064222080383994d+1*t140*t29*t79*t80+6.07706649 3629 @ 6460795d+1*t140*t26*t79*t80+6.924513225451178d+3*t29*t63* 3630 1 t77*t80-1.661883174108283d+4*t26*t63*t77*t80+9.6943185156 3631 2 31648d+3*t23*t63*t77*t80-6.077066496460795d+1*t140*t26*t7 3632 3 7*t78+7.089910912537593d+1*t140*t23*t77*t78+9.69431851563 3633 4 1648d+3*t26*t63*t75*t78-2.2620076536473846d+4*t23*t63*t75 3634 5 *t78+1.2925758020842196d+4*t20*t63*t75*t78-7.089910912537 3635 6 593d+1*t140*t23*t75*t76+8.102755328614393d+1*t140*t20*t75 3636 7 *t76+1.2925758020842196d+4*t23*t63*t73*t76-2.954458976192 3637 8 502d+4*t20*t63*t73*t76+1.6618831741082823d+4*t17*t63*t73* 3638 9 t76-8.102755328614393d+1*t140*t20*t73*t74+9.1155997446911 3639 : 91d+1*t140*t17*t73*t74+1.6618831741082823d+4*t20*t63*t71* 3640 ; t74-3.7392371417436354d+4*t17*t63*t71*t74+2.0773539676353 3641 < 528d+4*t14*t63*t71*t74-9.115599744691191d+1*t140*t17*t71* 3642 = t72+1.012844416076799d+2*t14*t140*t71*t72+2.5389881826654 3643 > 315d+4*t63*t69*t7*t72+2.0773539676353528d+4*t17*t63*t69*t 3644 ? 72-4.616342150300784d+4*t14*t63*t69*t72+1.114128857684478 3645 @ 9d+2*t140*t69*t7*t70-5.585774001863949d+4*t112*t63*t7*t70 3646 1 -1.012844416076799d+2*t14*t140*t69*t70+2.5389881826654315 3647 2 d+4*t112*t14*t63*t70+3.046785819198518d+4*t157*t63*t67*t7 3648 3 -1.1141288576844789d+2*t112*t140*t67*t7 3649 t159 = 1/t111 3650 t160 = gammabb**3 3651 t161 = 1/t60**3 3652 t162 = 1/rhob**10 3653 t163 = 1/rhob**7.333333333333333d+0 3654 t164 = 1/rhob**4.666666666666667d+0 3655 t165 = -3.8948928286386303d-4*t115*t163*t94+3.53191564356981 3656 1 6d-2*gammabb*t164*t61+1.0369691626335495d-6*t160*t161*t16 3657 2 2 3658 t166 = t119**2 3659 t167 = 1/t92**4 3660 t168 = 1.6597866666666666d-2*t117*taub+1.8257653333333332d-2 3661 1 *gammabb*t164 3662 t169 = taub**2 3663 t170 = 1.7777777777777778d+1*t117*t54*t91*t96*taub+6.6666666 3664 1 66666667d+0*t119*t57*t59*t96*taub+2.6666666666666666d+1*g 3665 2 ammabb*t116*t53*t96*taub+1.3333333333333333d+1*gammabb*t1 3666 3 19*t120*t53*t95*taub+8.88888888888889d+0*t117*t57*t93*tau 3667 4 b+2.6666666666666666d+1*t119*t120*t54*t59*t91*taub-2*t120 3668 5 *t168*t54*t97+6*t166*t167*t54*t97+2.2222222222222224d+1*t 3669 6 169*t54*t95*t96+3.377777777777778d+1*t163*t49*t94*t96-t16 3670 7 8*t57*t91*t96+9.777777777777779d+0*gammabb*t164*t53*t91*t 3671 8 96-gammabb*t168*t56*t59*t96+5.333333333333333d+0*gammabb* 3672 9 t117*t119*t56*t96-2*t120*t168*t49*t94*t95+6*t166*t167*t49 3673 : *t94*t95+2.1333333333333332d+1*t116*t119*t120*t49*t94+9.7 3674 ; 77777777777779d+0*gammabb*t164*t56*t93-2*gammabb*t120*t16 3675 < 8*t53*t59*t91+6*gammabb*t166*t167*t53*t59*t91+2*t120*t166 3676 = *t57*t91+1.0666666666666666d+1*gammabb*t117*t119*t120*t53 3677 > *t91+2*gammabb*t120*t166*t56*t59 3678 t171 = 4.444444444444444d-1*t159*t98+1.0d+0*t170*t63+2.66666 3679 1 66666666666d+0*t114*t121 3680 t172 = -1.0d+0*t168*t63*t98-1.3333333333333333d+0*t114*t119* 3681 1 t98-1.0d+0*t119*t121*t63-t119*t122 3682 t173 = 1/rhoa**9 3683 t174 = -3.8886343598758105d-7*t145*t173*t50-9.63249720973586 3684 1 3d-3*t105*t3+1.29829760954621d-4*gammaaa*t103*t104 3685 t175 = 1/rhoa**2.3333333333333334d+0 3686 t176 = 6.2242d-3*t51*t52*t57*taua+2.48968d-2*t108*t45*t51*t5 3687 1 4*taua-3.3333333333333337d+0*t51*t52*t53*taua+1.24484d-2* 3688 2 gammaaa*t108*t124*t53*taua+4.9793599999999993d-3*t105*t45 3689 3 *t52*t57+3.73452d-3*t1*t107*t108*t45*t57-t1*t107*t52*t56+ 3690 4 9.958719999999999d-3*gammaaa*t104*t52*t56+3.73452d-3*gamm 3691 5 aaa*t107*t108*t51*t56-2.6666666666666666d+0*t105*t47*t56+ 3692 6 1.120356d-2*t1*t107*t151*t54*t55+9.958719999999999d-3*t10 3693 7 5*t108*t54*t55-2.6666666666666666d+0*t105*t45*t52*t53+1.1 3694 8 20356d-2*gammaaa*t107*t151*t45*t51*t53-2*t1*t107*t108*t45 3695 9 *t53+1.9917439999999997d-2*gammaaa*t104*t108*t45*t53-1.06 3696 : 66666666666666d+1*gammaaa*t104*t49*t52-4*gammaaa*t107*t10 3697 ; 8*t49*t51+2.9876159999999996d-2*t108*t173*t49*t50+1.12035 3698 < 6d-2*t107*t124*t151*t49*t50 3699 t177 = 1.0d+0*t176*t5+1.3333333333333333d+0*t102*t125 3700 t178 = 1/rhob**9 3701 t179 = -3.8886343598758105d-7*t161*t178*t94-9.63249720973586 3702 1 3d-3*t117*t61+1.29829760954621d-4*gammabb*t115*t116 3703 t180 = 1/rhob**2.3333333333333334d+0 3704 t181 = 6.2242d-3*t57*t95*t96*taub-3.3333333333333337d+0*t53* 3705 1 t95*t96*taub+2.48968d-2*t120*t54*t91*t95*taub+1.24484d-2* 3706 2 gammabb*t120*t128*t53*taub+1.120356d-2*t119*t167*t54*t59* 3707 3 t97+9.958719999999999d-3*t117*t120*t54*t97+4.979359999999 3708 4 9993d-3*t117*t57*t91*t96-2.6666666666666666d+0*t117*t53*t 3709 5 91*t96-t119*t56*t59*t96+9.958719999999999d-3*gammabb*t116 3710 6 *t56*t96-1.0666666666666666d+1*gammabb*t116*t49*t96+1.120 3711 7 356d-2*gammabb*t119*t167*t53*t91*t95+3.73452d-3*gammabb*t 3712 8 119*t120*t56*t95-4*gammabb*t119*t120*t49*t95+2.9876159999 3713 9 999996d-2*t120*t178*t49*t94+1.120356d-2*t119*t128*t167*t4 3714 : 9*t94-2.6666666666666666d+0*t117*t56*t93+3.73452d-3*t119* 3715 ; t120*t57*t59*t91-2*t119*t120*t53*t59*t91+1.99174399999999 3716 < 97d-2*gammabb*t116*t120*t53*t91 3717 t182 = 1.0d+0*t181*t63+1.3333333333333333d+0*t114*t129 3718 t183 = 1.4582378849534292d-7*gammaaa*t124*t145-3.24574402386 3719 1 55255d-5*t103*t51 3720 t184 = 1/rhoa**1.0666666666666666d+1 3721 t185 = 6.973319815199999d-6*t108*t45*t51*t57-3.73452d-3*t51* 3722 1 t52*t56+6.973319815199999d-6*gammaaa*t108*t124*t56+2.0919 3723 2 959445599998d-5*t151*t51*t54*t55-7.46904d-3*t108*t45*t51* 3724 3 t53+2.0919959445599998d-5*gammaaa*t124*t151*t45*t53+2*t49 3725 4 *t51*t52+2.0919959445599998d-5*t151*t184*t49*t50-1.493807 3726 5 9999999998d-2*gammaaa*t108*t124*t49 3727 t186 = 1/rhoa**4 3728 t187 = 1.4582378849534292d-7*gammabb*t128*t161-3.24574402386 3729 1 55255d-5*t115*t95 3730 t188 = 1/rhob**1.0666666666666666d+1 3731 t189 = 2.0919959445599998d-5*t167*t54*t95*t97-3.73452d-3*t56 3732 1 *t95*t96+2*t49*t95*t96+6.973319815199999d-6*t120*t57*t91* 3733 2 t95-7.46904d-3*t120*t53*t91*t95+2.0919959445599998d-5*t16 3734 3 7*t188*t49*t94+2.0919959445599998d-5*gammabb*t128*t167*t5 3735 4 3*t91+6.973319815199999d-6*gammabb*t120*t128*t56-1.493807 3736 5 9999999998d-2*gammabb*t120*t128*t49 3737 t190 = 1/rhob**4 3738 t191 = -3.342386573053437d+3*t13*t18*t7*t99+4.01086388766412 3739 1 45d+3*t11*t141*t7*t99+6.077066496460795d+1*t10*t37*t41*t9 3740 2 9-6.077066496460795d+1*t38*t40*t99+1.8231199489382385d+2* 3741 3 t34*t38*t39*t99-3.646239897876477d+2*t32*t34*t39*t99-1.82 3742 4 31199489382385d+2*t10*t35*t37*t99+3.646239897876477d+2*t3 3743 5 1*t35*t36*t99-6.077066496460795d+2*t29*t31*t36*t99+6.0770 3744 6 66496460795d+2*t28*t32*t33*t99-9.115599744691192d+2*t26*t 3745 7 28*t33*t99+9.115599744691192d+2*t25*t29*t30*t99-1.2761839 3746 8 64256767d+3*t23*t25*t30*t99+1.276183964256767d+3*t22*t26* 3747 9 t27*t99-1.7015786190090226d+3*t20*t22*t27*t99+1.701578619 3748 : 0090226d+3*t19*t23*t24*t99-2.187743938725886d+3*t17*t19*t 3749 ; 24*t99+2.187743938725886d+3*t16*t20*t21*t99-2.73467992340 3750 < 7357d+3*t14*t16*t21*t99+2.734679923407357d+3*t13*t17*t18* 3751 = t99+3.342386573053437d+3*t100*t14*t15*t99 3752 t192 = 1.24484d-2*t133*t52*t57*taua-1.3333333333333333d+1*t1 3753 1 33*t52*t54*taua+4.97936d-2*t108*t133*t45*t54*taua+2.48968 3754 2 d-2*gammaaa*t108*t132*t53*taua+6.2242d-3*t1*t45*t52*t57-2 3755 3 .0d+0*t107*t44*t52*t57-3.3333333333333337d+0*t1*t47*t57+7 3756 4 .46904d-3*t107*t108*t44*t45*t57+1.618292d-2*gammaaa*t51*t 3757 5 52*t56+7.46904d-3*gammaaa*t107*t108*t133*t56+2.240712d-2* 3758 6 t107*t151*t44*t54*t55+1.24484d-2*t1*t108*t54*t55-6.666666 3759 7 666666667d+0*t1*t45*t52*t54-8.0d+0*t107*t108*t44*t45*t54- 3760 8 8.666666666666666d+0*gammaaa*t51*t52*t53+3.236584d-2*gamm 3761 9 aaa*t108*t45*t51*t53+2.240712d-2*gammaaa*t107*t133*t151*t 3762 : 45*t53-4.0d+0*gammaaa*t107*t108*t133*t53+2.240712d-2*t107 3763 ; *t132*t151*t49*t50+5.228328d-2*t108*t124*t49*t50 3764 t193 = 1.0d+0*t192*t5+1.3333333333333333d+0*t102*t134 3765 t194 = -6.077066496460795d+1*t111*t38*t87+1.8231199489382385 3766 1 d+2*t111*t38*t83*t86-3.646239897876477d+2*t111*t32*t83*t8 3767 2 6+6.077066496460795d+1*t111*t41*t66*t85-1.823119948938238 3768 3 5d+2*t111*t35*t66*t85+3.646239897876477d+2*t111*t35*t81*t 3769 4 84-6.077066496460795d+2*t111*t29*t81*t84+6.07706649646079 3770 5 5d+2*t111*t32*t79*t82-9.115599744691192d+2*t111*t26*t79*t 3771 6 82+9.115599744691192d+2*t111*t29*t77*t80-1.27618396425676 3772 7 7d+3*t111*t23*t77*t80+1.276183964256767d+3*t111*t26*t75*t 3773 8 78-1.7015786190090226d+3*t111*t20*t75*t78+1.7015786190090 3774 9 226d+3*t111*t23*t73*t76-2.187743938725886d+3*t111*t17*t73 3775 : *t76+2.187743938725886d+3*t111*t20*t71*t74-2.734679923407 3776 ; 357d+3*t111*t14*t71*t74-3.342386573053437d+3*t111*t69*t7* 3777 < t72+2.734679923407357d+3*t111*t17*t69*t72+3.3423865730534 3778 = 37d+3*t111*t112*t14*t70+4.0108638876641245d+3*t111*t157*t 3779 > 67*t7 3780 t195 = 1.24484d-2*t138*t57*t96*taub-1.3333333333333333d+1*t1 3781 1 38*t54*t96*taub+4.97936d-2*t120*t138*t54*t91*taub+2.48968 3782 2 d-2*gammabb*t120*t137*t53*taub+2.240712d-2*t119*t167*t54* 3783 3 t90*t97+1.24484d-2*t120*t54*t59*t97+1.618292d-2*gammabb*t 3784 4 56*t95*t96-8.666666666666666d+0*gammabb*t53*t95*t96+6.224 3785 5 2d-3*t57*t59*t91*t96-6.666666666666667d+0*t54*t59*t91*t96 3786 6 -2.0d+0*t119*t57*t90*t96+3.236584d-2*gammabb*t120*t53*t91 3787 7 *t95+2.240712d-2*t119*t137*t167*t49*t94+5.228328d-2*t120* 3788 8 t128*t49*t94-3.3333333333333337d+0*t57*t59*t93+7.46904d-3 3789 9 *t119*t120*t57*t90*t91-8.0d+0*t119*t120*t54*t90*t91+2.240 3790 : 712d-2*gammabb*t119*t138*t167*t53*t91+7.46904d-3*gammabb* 3791 ; t119*t120*t138*t56-4.0d+0*gammabb*t119*t120*t138*t53 3792 t196 = 1.0d+0*t195*t63+1.3333333333333333d+0*t114*t139 3793 t197 = 1/rhoa**9.666666666666666d+0 3794 t198 = -3.73452d-3*t133*t52*t57+1.3946639630399998d-5*t108*t 3795 1 133*t45*t57-3.73452d-3*t133*t52*t56+1.3946639630399998d-5 3796 2 *gammaaa*t108*t132*t56+4.1839918891199995d-5*t133*t151*t5 3797 3 4*t55-1.4938079999999998d-2*t108*t133*t45*t54+2.0d+0*t133 3798 4 *t52*t53+4.1839918891199995d-5*gammaaa*t132*t151*t45*t53- 3799 5 7.46904d-3*t108*t133*t45*t53-7.46904d-3*gammaaa*t108*t132 3800 6 *t53+4.1839918891199995d-5*t151*t197*t49*t50-1.4938079999 3801 7 999998d-2*gammaaa*t108*t132*t49 3802 t199 = 1/rhoa**3 3803 t200 = 1/rhob**9.666666666666666d+0 3804 t201 = 4.1839918891199995d-5*t138*t167*t54*t97-3.73452d-3*t1 3805 1 38*t57*t96-3.73452d-3*t138*t56*t96+2.0d+0*t138*t53*t96+4. 3806 2 1839918891199995d-5*t167*t200*t49*t94+1.3946639630399998d 3807 3 -5*t120*t138*t57*t91-1.4938079999999998d-2*t120*t138*t54* 3808 4 t91+4.1839918891199995d-5*gammabb*t137*t167*t53*t91-7.469 3809 5 04d-3*t120*t138*t53*t91+1.3946639630399998d-5*gammabb*t12 3810 6 0*t137*t56-7.46904d-3*gammabb*t120*t137*t53-1.49380799999 3811 7 99998d-2*gammabb*t120*t137*t49 3812 t202 = 1/rhob**3 3813 t203 = 4.4d+2*t13*t18*t7+9.68d+2*t100*t15*t7+5.28d+2*t11*t14 3814 1 1*t7+8.0d+0*t40*t41+8.0d+0*t10*t37*t41+8.0d+0*t38*t40+2.4 3815 2 d+1*t34*t38*t39+7.2d+1*t34*t35*t39+4.8d+1*t32*t34*t39+3.2 3816 3 d+1*t10*t37*t38+2.4d+1*t10*t35*t37+4.8d+1*t31*t35*t36+1.2 3817 4 8d+2*t31*t32*t36+8.0d+1*t29*t31*t36+8.0d+1*t28*t32*t33+2. 3818 5 0d+2*t28*t29*t33+1.2d+2*t26*t28*t33+1.2d+2*t25*t29*t30+2. 3819 6 88d+2*t25*t26*t30+1.68d+2*t23*t25*t30+1.68d+2*t22*t26*t27 3820 7 +3.92d+2*t22*t23*t27+2.24d+2*t20*t22*t27+2.24d+2*t19*t23* 3821 8 t24+5.12d+2*t19*t20*t24+2.88d+2*t17*t19*t24+2.88d+2*t16*t 3822 9 20*t21+6.48d+2*t16*t17*t21+3.6d+2*t14*t16*t21+3.6d+2*t13* 3823 : t17*t18+8.0d+2*t13*t14*t18+4.4d+2*t100*t14*t15 3824 t204 = 1/rhoa**8.666666666666666d+0 3825 t205 = 1/rhoa**6 3826 t206 = 1/rhoa**3.3333333333333337d+0 3827 t207 = -1.4938079999999998d-2*t206*t52*t57+2.789327926079999 3828 1 7d-5*t108*t206*t45*t57+2.7893279260799997d-5*gammaaa*t108 3829 2 *t205*t56+8.367983778239999d-5*t151*t206*t54*t55+8.0d+0*t 3830 3 206*t52*t54-5.975231999999999d-2*t108*t206*t45*t54+8.3679 3831 4 83778239999d-5*gammaaa*t151*t205*t45*t53-2.98761599999999 3832 5 96d-2*gammaaa*t108*t205*t53+8.367983778239999d-5*t151*t20 3833 6 4*t49*t50 3834 t208 = rhoa**2 3835 t209 = 1/t208 3836 t210 = 8.0d+0*t41*t87+8.0d+0*t38*t87+2.4d+1*t38*t83*t86+7.2d 3837 1 +1*t35*t83*t86+4.8d+1*t32*t83*t86+8.0d+0*t41*t66*t85+3.2d 3838 2 +1*t38*t66*t85+2.4d+1*t35*t66*t85+4.8d+1*t35*t81*t84+1.28 3839 3 d+2*t32*t81*t84+8.0d+1*t29*t81*t84+8.0d+1*t32*t79*t82+2.0 3840 4 d+2*t29*t79*t82+1.2d+2*t26*t79*t82+1.2d+2*t29*t77*t80+2.8 3841 5 8d+2*t26*t77*t80+1.68d+2*t23*t77*t80+1.68d+2*t26*t75*t78+ 3842 6 3.92d+2*t23*t75*t78+2.24d+2*t20*t75*t78+2.24d+2*t23*t73*t 3843 7 76+5.12d+2*t20*t73*t76+2.88d+2*t17*t73*t76+2.88d+2*t20*t7 3844 8 1*t74+6.48d+2*t17*t71*t74+3.6d+2*t14*t71*t74+4.4d+2*t69*t 3845 9 7*t72+3.6d+2*t17*t69*t72+8.0d+2*t14*t69*t72+9.68d+2*t112* 3846 : t7*t70+4.4d+2*t112*t14*t70+5.28d+2*t157*t67*t7 3847 t211 = 1/rhob**8.666666666666666d+0 3848 t212 = 1/rhob**6 3849 t213 = 1/rhob**3.3333333333333337d+0 3850 t214 = 8.367983778239999d-5*t167*t213*t54*t97-1.493807999999 3851 1 9998d-2*t213*t57*t96+8.0d+0*t213*t54*t96+8.36798377823999 3852 2 9d-5*t167*t211*t49*t94+2.7893279260799997d-5*t120*t213*t5 3853 3 7*t91-5.975231999999999d-2*t120*t213*t54*t91+8.3679837782 3854 4 39999d-5*gammabb*t167*t212*t53*t91+2.7893279260799997d-5* 3855 5 gammabb*t120*t212*t56-2.9876159999999996d-2*gammabb*t120* 3856 6 t212*t53 3857 t215 = rhob**2 3858 t216 = 1/t215 3859 t217 = 1/t12**14 3860 t218 = 1/t2**4 3861 t219 = 1/rhoa**8.333333333333334d+0 3862 t220 = 1/rhoa**5.666666666666667d+0 3863 t221 = t107**3 3864 t222 = 1/t46**5 3865 t223 = -6.085884444444444d-2*t148*taua-8.520238222222222d-2* 3866 1 gammaaa*t220 3867 t224 = 1/t68**14 3868 t225 = 1/t60**4 3869 t226 = 1/rhob**8.333333333333334d+0 3870 t227 = 1/rhob**5.666666666666667d+0 3871 t228 = t119**3 3872 t229 = 1/t92**5 3873 t230 = -6.085884444444444d-2*t164*taub-8.520238222222222d-2* 3874 1 gammabb*t227 3875 t231 = 1/rhoa**1.1666666666666665d+1 3876 t232 = 1/rhoa**5 3877 t233 = 1/rhob**1.1666666666666665d+1 3878 t234 = 1/rhob**5 3879 t235 = 1/rhoa**7.666666666666667d+0 3880 t236 = 1/rhob**7.666666666666667d+0 3881 fnc(iq) = (1.0d+0*t63*t93*t98-9.305257363490997d-1*t62*t63*t 3882 1 89+1.0d+0*t47*t5*t58-9.305257363490997d-1*t4*t43*t5)*wght 3883 2 +fnc(iq) 3884 Amat(iq,D1_RA) = (-1.0d+0*t107*t5*t52*t58-9.305257363490997d 3885 1 -1*t106*t43*t5-9.305257363490997d-1*t101*t4*t5+t110*t47-1 3886 2 .2407009817987995d+0*t102*t4*t43)*wght+Amat(iq,D1_RA) 3887 Amat(iq,D1_RB) = (-1.0d+0*t119*t63*t96*t98+t122*t93-9.305257 3888 1 363490997d-1*t118*t63*t89-1.2407009817987995d+0*t114*t62* 3889 2 t89-9.305257363490997d-1*t113*t62*t63)*wght+Amat(iq,D1_RB 3890 3 ) 3891 Cmat(iq,D1_GAA) = (-1.86726d-3*t126*t52*t58+1.0d+0*t125*t47* 3892 1 t5-9.305257363490997d-1*t123*t43*t5)*wght+Cmat(iq,D1_GAA) 3893 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 3894 Cmat(iq,D1_GBB) = (-1.86726d-3*t130*t96*t98+1.0d+0*t129*t63* 3895 1 t93-9.305257363490997d-1*t127*t63*t89)*wght+Cmat(iq,D1_GB 3896 2 B) 3897 Mmat(iq,D1_TA) = (-3.73452d-3*t135*t52*t58+1.0d+0*t134*t47*t 3898 1 5-9.305257363490997d-1*t131*t4*t5)*wght+Mmat(iq,D1_TA) 3899 Mmat(iq,D1_TB) = (-3.73452d-3*t140*t96*t98+1.0d+0*t139*t63*t 3900 1 93-9.305257363490997d-1*t136*t62*t63)*wght+Mmat(iq,D1_TB) 3901 Amat2(iq,D2_RA_RA) = (2.0d+0*t108*t150*t5*t58+t156*t52-9.305 3902 1 257363490997d-1*t149*t43*t5-9.305257363490997d-1*t142*t4* 3903 2 t5-1.8610514726981994d+0*t101*t106*t5+t155*t47-4.13566993 3904 3 93293317d-1*t143*t4*t43-2.481401963597599d+0*t102*t106*t4 3905 4 3-2.481401963597599d+0*t101*t102*t4)*wght+Amat2(iq,D2_RA_ 3906 5 RA) 3907 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 3908 Amat2(iq,D2_RB_RB) = (2.0d+0*t120*t166*t63*t98+t172*t96+t171 3909 1 *t93-9.305257363490997d-1*t165*t63*t89-4.1356699393293317 3910 2 d-1*t159*t62*t89-2.481401963597599d+0*t114*t118*t89-9.305 3911 3 257363490997d-1*t158*t62*t63-1.8610514726981994d+0*t113*t 3912 4 118*t63-2.481401963597599d+0*t113*t114*t62)*wght+Amat2(iq 3913 5 ,D2_RB_RB) 3914 Cmat2(iq,D2_RA_GAA) = (4.9793599999999993d-3*t175*t52*t58+3. 3915 1 73452d-3*t107*t108*t126*t58-1.0d+0*t107*t125*t5*t52-1.867 3916 2 26d-3*t1*t110*t52-9.305257363490997d-1*t174*t43*t5-9.3052 3917 3 57363490997d-1*t101*t123*t5+t177*t47-1.2407009817987995d+ 3918 4 0*t102*t123*t43)*wght+Cmat2(iq,D2_RA_GAA) 3919 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 3920 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 3921 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 3922 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 3923 Cmat2(iq,D2_RB_GBB) = (4.9793599999999993d-3*t180*t96*t98+3. 3924 1 73452d-3*t119*t120*t130*t98-1.0d+0*t119*t129*t63*t96-1.86 3925 2 726d-3*t122*t59*t96+t182*t93-9.305257363490997d-1*t179*t6 3926 3 3*t89-1.2407009817987995d+0*t114*t127*t89-9.3052573634909 3927 4 97d-1*t113*t127*t63)*wght+Cmat2(iq,D2_RB_GBB) 3928 Cmat2(iq,D2_GAA_GAA) = (6.973319815199999d-6*t108*t186*t58-3 3929 1 .73452d-3*t125*t126*t52+1.0d+0*t185*t47*t5-9.305257363490 3930 2 997d-1*t183*t43*t5)*wght+Cmat2(iq,D2_GAA_GAA) 3931 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 3932 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 3933 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 3934 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 3935 Cmat2(iq,D2_GBB_GBB) = (6.973319815199999d-6*t120*t190*t98-3 3936 1 .73452d-3*t129*t130*t96+1.0d+0*t189*t63*t93-9.30525736349 3937 2 0997d-1*t187*t63*t89)*wght+Cmat2(iq,D2_GBB_GBB) 3938 Mmat2(iq,D2_RA_TA) = (6.2242d-3*t126*t52*t58+7.46904d-3*t107 3939 1 *t108*t135*t58-1.0d+0*t107*t134*t5*t52-3.73452d-3*t110*t4 3940 2 4*t52-9.305257363490997d-1*t191*t4*t5-9.305257363490997d- 3941 3 1*t106*t131*t5+t193*t47-1.2407009817987995d+0*t102*t131*t 3942 4 4)*wght+Mmat2(iq,D2_RA_TA) 3943 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 3944 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 3945 Mmat2(iq,D2_RB_TB) = (6.2242d-3*t130*t96*t98+7.46904d-3*t119 3946 1 *t120*t140*t98-3.73452d-3*t122*t90*t96-1.0d+0*t119*t139*t 3947 2 63*t96+t196*t93-9.305257363490997d-1*t194*t62*t63-9.30525 3948 3 7363490997d-1*t118*t136*t63-1.2407009817987995d+0*t114*t1 3949 4 36*t62)*wght+Mmat2(iq,D2_RB_TB) 3950 Mmat2(iq,D2_GAA_TA) = (1.3946639630399998d-5*t108*t199*t58-3 3951 1 .73452d-3*t125*t135*t52-1.86726d-3*t126*t134*t52+1.0d+0*t 3952 2 198*t47*t5-9.305257363490997d-1*t123*t131*t5)*wght+Mmat2( 3953 3 iq,D2_GAA_TA) 3954 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 3955 Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA) 3956 Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB) 3957 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 3958 Mmat2(iq,D2_GBB_TB) = (1.3946639630399998d-5*t120*t202*t98-3 3959 1 .73452d-3*t129*t140*t96-1.86726d-3*t130*t139*t96+1.0d+0*t 3960 2 201*t63*t93-9.305257363490997d-1*t127*t136*t63)*wght+Mmat 3961 3 2(iq,D2_GBB_TB) 3962 Mmat2(iq,D2_TA_TA) = (2.7893279260799997d-5*t108*t209*t58-7. 3963 1 46904d-3*t134*t135*t52+1.0d+0*t207*t47*t5-9.3052573634909 3964 2 97d-1*t203*t4*t5)*wght+Mmat2(iq,D2_TA_TA) 3965 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 3966 Mmat2(iq,D2_TB_TB) = (2.7893279260799997d-5*t120*t216*t98-7. 3967 1 46904d-3*t139*t140*t96+1.0d+0*t214*t63*t93-9.305257363490 3968 2 997d-1*t210*t62*t63)*wght+Mmat2(iq,D2_TB_TB) 3969 Amat3(iq,D3_RA_RA_RA) = (t47*(1.0d+0*t5*(1.0d+1*t1*t152*t52* 3970 1 t57*taua-2.6666666666666666d+1*t105*t107*t52*t57*taua-3.2 3971 2 592592592592595d+1*t148*t47*t57*taua-2.0d+1*t1*t108*t150* 3972 3 t57*taua-6.518518518518519d+1*t148*t45*t52*t54*taua+4.0d+ 3973 4 1*t1*t108*t152*t45*t54*taua-1.2d+2*t1*t150*t151*t45*t54*t 3974 5 aua-1.0666666666666667d+2*t105*t107*t108*t45*t54*taua-2.0 3975 6 148148148148146d+2*gammaaa*t147*t52*t53*taua+2.0d+1*gamma 3976 7 aa*t108*t152*t51*t53*taua-6.0d+1*gammaaa*t150*t151*t51*t5 3977 8 3*taua-1.6d+2*gammaaa*t104*t107*t108*t53*taua-t223*t45*t5 3978 9 2*t57-6*t151*t221*t45*t57+6*t107*t108*t152*t45*t57-gammaa 3979 : a*t1*t223*t52*t56+8*gammaaa*t105*t152*t52*t56-2.933333333 3980 ; 3333333d+1*gammaaa*t107*t148*t52*t56-4.5629629629629626d+ 3981 < 1*gammaaa*t220*t47*t56-6*gammaaa*t1*t151*t221*t56+6*gamma 3982 = aa*t1*t107*t108*t152*t56-16*gammaaa*t105*t108*t150*t56-2* 3983 > t108*t223*t54*t55-24*t221*t222*t54*t55+18*t107*t151*t152* 3984 ? t54*t55-1.777777777777778d+2*t104*t153*t52*t54-1.33333333 3985 @ 33333333d+2*t107*t108*t153*t51*t54-4.5629629629629626d+1* 3986 1 gammaaa*t220*t45*t52*t53-2*gammaaa*t1*t108*t223*t45*t53-2 3987 2 4*gammaaa*t1*t221*t222*t45*t53+18*gammaaa*t1*t107*t151*t1 3988 3 52*t45*t53+16*gammaaa*t105*t108*t152*t45*t53-48*gammaaa*t 3989 4 105*t150*t151*t45*t53-5.866666666666667d+1*gammaaa*t107*t 3990 5 108*t148*t45*t53-2.477037037037037d+2*t219*t49*t50*t52-2* 3991 6 t108*t223*t49*t50*t51-24*t221*t222*t49*t50*t51+18*t107*t1 3992 7 51*t152*t49*t50*t51+32*t104*t108*t152*t49*t50-96*t104*t15 3993 8 0*t151*t49*t50-2.0266666666666666d+2*t107*t108*t147*t49*t 3994 9 50)-2.962962962962963d-1*t44*t58+4.0d+0*t102*t154+1.33333 3995 : 33333333333d+0*t109*t143)-9.305257363490997d-1*t4*t5*(-6. 3996 ; 01754400771653d+6*t11*t208*t217*t7+3.4716600044518436d+6* 3997 < t13*t208*t21*t7-1.2729420016323426d+7*t100*t18*t208*t7+1. 3998 = 5275304019588112d+7*t141*t15*t208*t7+5.077976365330863d+4 3999 > *t102*t13*t18*t7-3.713762858948263d+1*t126*t13*t15*t7-1.1 4000 ? 171548003727898d+5*t100*t102*t15*t7+6.093571638397036d+4* 4001 @ t102*t11*t141*t7+3.713762858948263d+1*t100*t11*t126*t7-3. 4002 1 37614805358933d+0*t126*t41*t42+3.37614805358933d+0*t10*t1 4003 2 26*t40*t41-9.232684300601568d+2*t102*t40*t41+2.1040363663 4004 3 34451d+4*t208*t37*t41+9.232684300601568d+2*t10*t102*t37*t 4005 4 41-2.104036366334451d+4*t10*t208*t34*t41-6.75229610717866 4006 5 d+0*t10*t126*t38*t40+9.232684300601568d+2*t102*t38*t40+6. 4007 6 75229610717866d+0*t126*t37*t38*t39+2.769805290180471d+3*t 4008 7 102*t34*t38*t39-8.416145465337804d+4*t208*t31*t38*t39-1.0 4009 8 128444160767991d+1*t126*t35*t37*t39-8.309415870541413d+3* 4010 9 t102*t34*t35*t39+3.787265459402013d+5*t208*t31*t35*t39+5. 4011 : 539610580360942d+3*t102*t32*t34*t39-5.049687279202681d+5* 4012 ; t208*t31*t32*t39+2.1040363663344508d+5*t208*t29*t31*t39-4 4013 < .208072732668902d+4*t208*t37*t38-3.693073720240627d+3*t10 4014 = *t102*t37*t38+1.2624218198006704d+5*t10*t208*t34*t38+2.10 4015 > 4036366334451d+4*t208*t35*t37+2.769805290180471d+3*t10*t1 4016 ? 02*t35*t37+1.0128444160767991d+1*t126*t34*t35*t36+5.53961 4017 @ 0580360942d+3*t102*t31*t35*t36-2.104036366334451d+5*t208* 4018 1 t28*t35*t36-1.350459221435732d+1*t126*t32*t34*t36-1.47722 4019 2 94880962508d+4*t102*t31*t32*t36+8.416145465337803d+5*t208 4020 3 *t28*t32*t36+9.232684300601568d+3*t102*t29*t31*t36-1.0520 4021 4 181831672254d+6*t208*t28*t29*t36+4.208072732668902d+5*t20 4022 5 8*t26*t28*t36-1.8936327297010064d+5*t10*t208*t34*t35+8.41 4023 6 6145465337804d+4*t10*t208*t32*t34+1.350459221435732d+1*t1 4024 7 26*t31*t32*t33+9.232684300601568d+3*t102*t28*t32*t33-4.20 4025 8 80727326689016d+5*t208*t25*t32*t33-1.6880740267946648d+1* 4026 9 t126*t29*t31*t33-2.308171075150392d+4*t102*t28*t29*t33+1. 4027 : 578027274750838d+6*t208*t25*t29*t33+1.3849026450902355d+4 4028 ; *t102*t26*t28*t33-1.893632729701006d+6*t208*t25*t26*t33+7 4029 < .364127282170578d+5*t208*t23*t25*t33+1.6880740267946648d+ 4030 = 1*t126*t28*t29*t30+1.3849026450902355d+4*t102*t25*t29*t30 4031 > -7.364127282170578d+5*t208*t22*t29*t30-2.0256888321535982 4032 ? d+1*t126*t26*t28*t30-3.323766348216566d+4*t102*t25*t26*t3 4033 @ 0+2.6510858215814087d+6*t208*t22*t26*t30+1.93886370312632 4034 1 92d+4*t102*t23*t25*t30-3.0929334585116436d+6*t208*t22*t23 4035 2 *t30+1.1782603651472927d+6*t20*t208*t22*t30+2.02568883215 4036 3 35982d+1*t126*t25*t26*t27+1.9388637031263292d+4*t102*t22* 4037 4 t26*t27-1.1782603651472927d+6*t19*t208*t26*t27-2.36330363 4038 5 75125308d+1*t126*t23*t25*t27-4.5240153072947686d+4*t102*t 4039 6 22*t23*t27+4.123911278015524d+6*t19*t208*t23*t27+2.585151 4040 7 604168439d+4*t102*t20*t22*t27-4.713041460589171d+6*t19*t2 4041 8 0*t208*t27+1.767390547720939d+6*t17*t19*t208*t27+2.363303 4042 9 6375125308d+1*t126*t22*t23*t24-1.7673905477209387d+6*t16* 4043 : t208*t23*t24+2.585151604168439d+4*t102*t19*t23*t24-2.7009 4044 ; 18442871464d+1*t126*t20*t22*t24+6.059624735043219d+6*t16* 4045 < t20*t208*t24-6.817077826923622d+6*t16*t17*t208*t24+2.5248 4046 = 43639601341d+6*t14*t16*t208*t24-5.908917952385003d+4*t102 4047 > *t19*t20*t24+3.3237663482165647d+4*t102*t17*t19*t24-2.524 4048 ? 843639601341d+6*t13*t20*t208*t21+8.521347283654526d+6*t13 4049 @ *t17*t208*t21-9.468163648505028d+6*t13*t14*t208*t21+2.700 4050 1 918442871464d+1*t126*t19*t20*t21+3.3237663482165647d+4*t1 4051 2 02*t16*t20*t21-3.0385332482303967d+1*t126*t17*t19*t21-7.4 4052 3 78474283487271d+4*t102*t16*t17*t21+4.154707935270705d+4*t 4053 4 102*t14*t16*t21-3.4716600044518436d+6*t100*t17*t18*t208+1 4054 5 .1572200014839477d+7*t100*t14*t18*t208-4.628880005935792d 4055 6 +6*t14*t141*t15*t208+3.0385332482303967d+1*t126*t16*t17*t 4056 7 18+4.1547079352707056d+4*t102*t13*t17*t18-3.3761480535893 4057 8 296d+1*t126*t14*t16*t18-9.232684300601568d+4*t102*t13*t14 4058 9 *t18+3.3761480535893296d+1*t126*t13*t14*t15+5.07797636533 4059 : 0862d+4*t100*t102*t14*t15)+t52*(-1.0d+0*t223*t5*t58-2.666 4060 ; 6666666666666d+0*t102*t152*t58-4.444444444444444d-1*t107* 4061 < t143*t58-1.0d+0*t107*t154*t5-2.0d+0*t109*t152*t5-2*t107*t 4062 = 155-t110*t152-2.6666666666666666d+0*t102*t107*t109)+t108* 4063 > (4.0d+0*t107*t152*t5*t58+2.6666666666666666d+0*t102*t150* 4064 ? t58+2.0d+0*t109*t150*t5-2*t107*t156)-6.0d+0*t151*t221*t5* 4065 @ t58-9.305257363490997d-1*t43*t5*(3.279403591520427d-3*t10 4066 1 3*t219*t50-1.648227300332581d-1*gammaaa*t220*t3+3.7270905 4067 2 095708196d-8*gammaaa**4*t218/rhoa**1.3666666666666666d+1- 4068 3 1.9702414090037443d-5*t144*t145/rhoa**11)-2.7915772090472 4069 4 99d+0*t101*t149*t5-2.791577209047299d+0*t106*t142*t5+2.75 4070 5 7113292886221d-1*t4*t43*t44+t143*(-1.2407009817987995d+0* 4071 6 t106*t43-1.2407009817987995d+0*t101*t4)-3.722102945396398 4072 7 3d+0*t102*t149*t43-3.7221029453963983d+0*t102*t142*t4-7.4 4073 8 44205890792797d+0*t101*t102*t106)*wght+Amat3(iq,D3_RA_RA_ 4074 9 RA) 4075 Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB) 4076 Amat3(iq,D3_RA_RB_RB) = Amat3(iq,D3_RA_RB_RB) 4077 Amat3(iq,D3_RB_RB_RB) = (t93*(1.0d+0*t63*(-6.518518518518519 4078 1 d+1*t164*t54*t91*t96*taub+1.0d+1*t168*t57*t59*t96*taub-2. 4079 2 6666666666666666d+1*t117*t119*t57*t96*taub-2.014814814814 4080 3 8146d+2*gammabb*t163*t53*t96*taub+2.0d+1*gammabb*t120*t16 4081 4 8*t53*t95*taub-6.0d+1*gammabb*t166*t167*t53*t95*taub-3.25 4082 5 92592592592595d+1*t164*t57*t93*taub+4.0d+1*t120*t168*t54* 4083 6 t59*t91*taub-1.2d+2*t166*t167*t54*t59*t91*taub-1.06666666 4084 7 66666667d+2*t117*t119*t120*t54*t91*taub-2.0d+1*t120*t166* 4085 8 t57*t59*taub-1.6d+2*gammabb*t116*t119*t120*t53*taub-2*t12 4086 9 0*t230*t54*t97-24*t228*t229*t54*t97+18*t119*t167*t168*t54 4087 : *t97-2.477037037037037d+2*t226*t49*t94*t96-t230*t57*t91*t 4088 ; 96-4.5629629629629626d+1*gammabb*t227*t53*t91*t96-gammabb 4089 < *t230*t56*t59*t96+8*gammabb*t117*t168*t56*t96-2.933333333 4090 = 3333333d+1*gammabb*t119*t164*t56*t96-1.777777777777778d+2 4091 > *t116*t169*t54*t96-2*t120*t230*t49*t94*t95-24*t228*t229*t 4092 ? 49*t94*t95+18*t119*t167*t168*t49*t94*t95-1.33333333333333 4093 @ 33d+2*t119*t120*t169*t54*t95+32*t116*t120*t168*t49*t94-96 4094 1 *t116*t166*t167*t49*t94-2.0266666666666666d+2*t119*t120*t 4095 2 163*t49*t94-4.5629629629629626d+1*gammabb*t227*t56*t93-2* 4096 3 gammabb*t120*t230*t53*t59*t91-24*gammabb*t228*t229*t53*t5 4097 4 9*t91+18*gammabb*t119*t167*t168*t53*t59*t91-6*t167*t228*t 4098 5 57*t91+6*t119*t120*t168*t57*t91+16*gammabb*t117*t120*t168 4099 6 *t53*t91-48*gammabb*t117*t166*t167*t53*t91-5.866666666666 4100 7 667d+1*gammabb*t119*t120*t164*t53*t91-6*gammabb*t167*t228 4101 8 *t56*t59+6*gammabb*t119*t120*t168*t56*t59-16*gammabb*t117 4102 9 *t120*t166*t56)-2.962962962962963d-1*t90*t98+4.0d+0*t114* 4103 : t170+1.3333333333333333d+0*t121*t159)+t96*(-1.0d+0*t230*t 4104 ; 63*t98-2.6666666666666666d+0*t114*t168*t98-4.444444444444 4105 < 444d-1*t119*t159*t98-1.0d+0*t119*t170*t63-2.0d+0*t121*t16 4106 = 8*t63-2*t119*t171-t122*t168-2.6666666666666666d+0*t114*t1 4107 > 19*t121)+t120*(4.0d+0*t119*t168*t63*t98+2.666666666666666 4108 ? 6d+0*t114*t166*t98+2.0d+0*t121*t166*t63-2*t119*t172)-6.0d 4109 @ +0*t167*t228*t63*t98-9.305257363490997d-1*t63*t89*(3.2794 4110 1 03591520427d-3*t115*t226*t94-1.648227300332581d-1*gammabb 4111 2 *t227*t61+3.7270905095708196d-8*gammabb**4*t225/rhob**1.3 4112 3 666666666666666d+1-1.9702414090037443d-5*t160*t161/rhob** 4113 4 11)+2.757113292886221d-1*t62*t89*t90+t159*(-1.24070098179 4114 5 87995d+0*t118*t89-1.2407009817987995d+0*t113*t62)-3.72210 4115 6 29453963983d+0*t114*t165*t89-9.305257363490997d-1*t62*t63 4116 7 *(-3.37614805358933d+0*t130*t41*t88+3.37614805358933d+0*t 4117 8 130*t41*t66*t87-6.75229610717866d+0*t130*t38*t66*t87-9.23 4118 9 2684300601568d+2*t114*t41*t87+9.232684300601568d+2*t114*t 4119 : 38*t87+6.75229610717866d+0*t130*t38*t85*t86-1.01284441607 4120 ; 67991d+1*t130*t35*t85*t86+2.769805290180471d+3*t114*t38*t 4121 < 83*t86-8.309415870541413d+3*t114*t35*t83*t86+5.5396105803 4122 = 60942d+3*t114*t32*t83*t86-8.416145465337804d+4*t215*t38*t 4123 > 81*t86+3.787265459402013d+5*t215*t35*t81*t86-5.0496872792 4124 ? 02681d+5*t215*t32*t81*t86+2.1040363663344508d+5*t215*t29* 4125 @ t81*t86+9.232684300601568d+2*t114*t41*t66*t85-3.693073720 4126 1 240627d+3*t114*t38*t66*t85+2.769805290180471d+3*t114*t35* 4127 2 t66*t85+2.104036366334451d+4*t215*t41*t85-4.2080727326689 4128 3 02d+4*t215*t38*t85+2.104036366334451d+4*t215*t35*t85+1.01 4129 4 28444160767991d+1*t130*t35*t83*t84-1.350459221435732d+1*t 4130 5 130*t32*t83*t84+5.539610580360942d+3*t114*t35*t81*t84-1.4 4131 6 772294880962508d+4*t114*t32*t81*t84+9.232684300601568d+3* 4132 7 t114*t29*t81*t84-2.104036366334451d+5*t215*t35*t79*t84+8. 4133 8 416145465337803d+5*t215*t32*t79*t84-1.0520181831672254d+6 4134 9 *t215*t29*t79*t84+4.208072732668902d+5*t215*t26*t79*t84-2 4135 : .104036366334451d+4*t215*t41*t66*t83+1.2624218198006704d+ 4136 ; 5*t215*t38*t66*t83-1.8936327297010064d+5*t215*t35*t66*t83 4137 < +8.416145465337804d+4*t215*t32*t66*t83+1.350459221435732d 4138 = +1*t130*t32*t81*t82-1.6880740267946648d+1*t130*t29*t81*t8 4139 > 2+9.232684300601568d+3*t114*t32*t79*t82-2.308171075150392 4140 ? d+4*t114*t29*t79*t82+1.3849026450902355d+4*t114*t26*t79*t 4141 @ 82-4.2080727326689016d+5*t215*t32*t77*t82+1.5780272747508 4142 1 38d+6*t215*t29*t77*t82-1.893632729701006d+6*t215*t26*t77* 4143 2 t82+7.364127282170578d+5*t215*t23*t77*t82+1.6880740267946 4144 3 648d+1*t130*t29*t79*t80-2.0256888321535982d+1*t130*t26*t7 4145 4 9*t80+1.3849026450902355d+4*t114*t29*t77*t80-3.3237663482 4146 5 16566d+4*t114*t26*t77*t80+1.9388637031263292d+4*t114*t23* 4147 6 t77*t80-7.364127282170578d+5*t215*t29*t75*t80+2.651085821 4148 7 5814087d+6*t215*t26*t75*t80-3.0929334585116436d+6*t215*t2 4149 8 3*t75*t80+1.1782603651472927d+6*t20*t215*t75*t80+2.025688 4150 9 8321535982d+1*t130*t26*t77*t78-2.3633036375125308d+1*t130 4151 : *t23*t77*t78+1.9388637031263292d+4*t114*t26*t75*t78-4.524 4152 ; 0153072947686d+4*t114*t23*t75*t78+2.585151604168439d+4*t1 4153 < 14*t20*t75*t78-1.1782603651472927d+6*t215*t26*t73*t78+4.1 4154 = 23911278015524d+6*t215*t23*t73*t78-4.713041460589171d+6*t 4155 > 20*t215*t73*t78+1.767390547720939d+6*t17*t215*t73*t78+2.3 4156 ? 633036375125308d+1*t130*t23*t75*t76-2.700918442871464d+1* 4157 @ t130*t20*t75*t76+2.585151604168439d+4*t114*t23*t73*t76-5. 4158 1 908917952385003d+4*t114*t20*t73*t76+3.3237663482165647d+4 4159 2 *t114*t17*t73*t76-1.7673905477209387d+6*t215*t23*t71*t76+ 4160 3 6.059624735043219d+6*t20*t215*t71*t76-6.817077826923622d+ 4161 4 6*t17*t215*t71*t76+2.524843639601341d+6*t14*t215*t71*t76+ 4162 5 2.700918442871464d+1*t130*t20*t73*t74-3.0385332482303967d 4163 6 +1*t130*t17*t73*t74+3.3237663482165647d+4*t114*t20*t71*t7 4164 7 4-7.478474283487271d+4*t114*t17*t71*t74+4.154707935270705 4165 8 d+4*t114*t14*t71*t74+3.4716600044518436d+6*t215*t69*t7*t7 4166 9 4-2.524843639601341d+6*t20*t215*t69*t74+8.521347283654526 4167 : d+6*t17*t215*t69*t74-9.468163648505028d+6*t14*t215*t69*t7 4168 ; 4+3.0385332482303967d+1*t130*t17*t71*t72-3.37614805358932 4169 < 96d+1*t130*t14*t71*t72+5.077976365330863d+4*t114*t69*t7*t 4170 = 72-1.2729420016323426d+7*t112*t215*t7*t72+4.1547079352707 4171 > 056d+4*t114*t17*t69*t72-9.232684300601568d+4*t114*t14*t69 4172 ? *t72-3.4716600044518436d+6*t112*t17*t215*t72+1.1572200014 4173 @ 839477d+7*t112*t14*t215*t72-3.713762858948263d+1*t130*t69 4174 1 *t7*t70+1.5275304019588112d+7*t157*t215*t7*t70-1.11715480 4175 2 03727898d+5*t112*t114*t7*t70+3.3761480535893296d+1*t130*t 4176 3 14*t69*t70-4.628880005935792d+6*t14*t157*t215*t70+5.07797 4177 4 6365330862d+4*t112*t114*t14*t70-6.01754400771653d+6*t215* 4178 5 t224*t67*t7+6.093571638397036d+4*t114*t157*t67*t7+3.71376 4179 6 2858948263d+1*t112*t130*t67*t7)-2.791577209047299d+0*t113 4180 7 *t165*t63-2.791577209047299d+0*t118*t158*t63-3.7221029453 4181 8 963983d+0*t114*t158*t62-7.444205890792797d+0*t113*t114*t1 4182 9 18)*wght+Amat3(iq,D3_RB_RB_RB) 4183 Cmat3(iq,D3_RA_RA_GAA) = (t47*(1.0d+0*t5*(-4.979359999999999 4184 1 3d-2*t104*t52*t57*taua-2.48968d-2*t107*t108*t51*t57*taua- 4185 2 1.493808d-1*t107*t151*t45*t51*t54*taua-1.9917439999999997 4186 3 d-1*t104*t108*t45*t54*taua+2.6666666666666666d+1*t104*t52 4187 4 *t53*taua+1.3333333333333333d+1*t107*t108*t51*t53*taua-1. 4188 5 6597866666666666d-1*gammaaa*t108*t173*t53*taua-7.46904d-2 4189 6 *gammaaa*t107*t124*t151*t53*taua-1.8257653333333332d-2*t1 4190 7 48*t45*t52*t57+3.73452d-3*t1*t108*t152*t45*t57-1.120356d- 4191 8 2*t1*t150*t151*t45*t57-1.9917439999999997d-2*t105*t107*t1 4192 9 08*t45*t57-t1*t152*t52*t56-6.307189333333332d-2*gammaaa*t 4193 : 147*t52*t56+5.333333333333333d+0*t105*t107*t52*t56+3.7345 4194 ; 2d-3*gammaaa*t108*t152*t51*t56-1.120356d-2*gammaaa*t150*t 4195 < 151*t51*t56+9.777777777777779d+0*t148*t47*t56+2*t1*t108*t 4196 = 150*t56-3.9834879999999995d-2*gammaaa*t104*t107*t108*t56- 4197 > 4.481424d-2*t1*t150*t222*t54*t55+1.120356d-2*t1*t151*t152 4198 ? *t54*t55-5.975231999999999d-2*t105*t107*t151*t54*t55-3.65 4199 @ 15306666666664d-2*t108*t148*t54*t55-8.298933333333335d-2* 4200 1 t108*t124*t153*t54+9.777777777777779d+0*t148*t45*t52*t53- 4201 2 4.481424d-2*gammaaa*t150*t222*t45*t51*t53+1.120356d-2*gam 4202 3 maaa*t151*t152*t45*t51*t53-2*t1*t108*t152*t45*t53+6*t1*t1 4203 4 50*t151*t45*t53-1.1950464d-1*gammaaa*t104*t107*t151*t45*t 4204 5 53-1.2614378666666665d-1*gammaaa*t108*t147*t45*t53+1.0666 4205 6 666666666666d+1*t105*t107*t108*t45*t53+6.755555555555556d 4206 7 +1*gammaaa*t147*t49*t52-4*gammaaa*t108*t152*t49*t51+12*ga 4207 8 mmaaa*t150*t151*t49*t51-4.481424d-2*t124*t150*t222*t49*t5 4208 9 0-1.7925696d-1*t107*t151*t173*t49*t50+1.120356d-2*t124*t1 4209 : 51*t152*t49*t50-2.6888544000000003d-1*t108*t146*t49*t50+4 4210 ; .2666666666666664d+1*gammaaa*t104*t107*t108*t49)+2.666666 4211 < 6666666666d+0*t102*t176+4.444444444444444d-1*t125*t143)+t 4212 = 52*(-1.1618506666666667d-2*t206*t58-1.0d+0*t107*t176*t5-1 4213 > .0d+0*t125*t152*t5-t107*t177+4.9793599999999993d-3*t109*t 4214 ? 175-1.3333333333333333d+0*t102*t107*t125+4.97935999999999 4215 @ 93d-3*t105*t110)-1.9917439999999997d-2*t107*t108*t175*t58 4216 1 -1.120356d-2*t126*t150*t151*t58-1.86726d-3*t1*t155*t52-9. 4217 2 305257363490997d-1*t43*t5*(6.610678411788878d-6*t145*t146 4218 3 *t50+3.531915643569816d-2*t148*t3-1.3976589410890572d-8*t 4219 4 144*t218/rhoa**1.2666666666666665d+1-9.376593846722628d-4 4220 5 *gammaaa*t103*t147)-1.8610514726981994d+0*t101*t174*t5+2. 4221 6 0d+0*t108*t125*t150*t5-9.305257363490997d-1*t123*t142*t5- 4222 7 2.481401963597599d+0*t102*t174*t43-4.1356699393293317d-1* 4223 8 t123*t143*t43-3.73452d-3*t1*t108*t156-2.481401963597599d+ 4224 9 0*t101*t102*t123)*wght+Cmat3(iq,D3_RA_RA_GAA) 4225 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 4226 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 4227 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 4228 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 4229 Cmat3(iq,D3_RA_RB_GBB) = Cmat3(iq,D3_RA_RB_GBB) 4230 Cmat3(iq,D3_RB_RB_GAA) = Cmat3(iq,D3_RB_RB_GAA) 4231 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 4232 Cmat3(iq,D3_RB_RB_GBB) = (t93*(1.0d+0*t63*(-4.97935999999999 4233 1 93d-2*t116*t57*t96*taub+2.6666666666666666d+1*t116*t53*t9 4234 2 6*taub-1.493808d-1*t119*t167*t54*t91*t95*taub-2.48968d-2* 4235 3 t119*t120*t57*t95*taub+1.3333333333333333d+1*t119*t120*t5 4236 4 3*t95*taub-1.9917439999999997d-1*t116*t120*t54*t91*taub-1 4237 5 .6597866666666666d-1*gammabb*t120*t178*t53*taub-7.46904d- 4238 6 2*gammabb*t119*t128*t167*t53*taub-4.481424d-2*t166*t229*t 4239 7 54*t59*t97+1.120356d-2*t167*t168*t54*t59*t97-5.9752319999 4240 8 99999d-2*t117*t119*t167*t54*t97-3.6515306666666664d-2*t12 4241 9 0*t164*t54*t97-1.8257653333333332d-2*t164*t57*t91*t96+9.7 4242 : 77777777777779d+0*t164*t53*t91*t96-t168*t56*t59*t96-6.307 4243 ; 189333333332d-2*gammabb*t163*t56*t96+5.333333333333333d+0 4244 < *t117*t119*t56*t96+6.755555555555556d+1*gammabb*t163*t49* 4245 = t96-4.481424d-2*gammabb*t166*t229*t53*t91*t95+1.120356d-2 4246 > *gammabb*t167*t168*t53*t91*t95+3.73452d-3*gammabb*t120*t1 4247 ? 68*t56*t95-1.120356d-2*gammabb*t166*t167*t56*t95-4*gammab 4248 @ b*t120*t168*t49*t95+12*gammabb*t166*t167*t49*t95-4.481424 4249 1 d-2*t128*t166*t229*t49*t94-1.7925696d-1*t119*t167*t178*t4 4250 2 9*t94+1.120356d-2*t128*t167*t168*t49*t94-2.68885440000000 4251 3 03d-1*t120*t162*t49*t94+9.777777777777779d+0*t164*t56*t93 4252 4 +3.73452d-3*t120*t168*t57*t59*t91-1.120356d-2*t166*t167*t 4253 5 57*t59*t91-2*t120*t168*t53*t59*t91+6*t166*t167*t53*t59*t9 4254 6 1-1.9917439999999997d-2*t117*t119*t120*t57*t91-1.1950464d 4255 7 -1*gammabb*t116*t119*t167*t53*t91-1.2614378666666665d-1*g 4256 8 ammabb*t120*t163*t53*t91+1.0666666666666666d+1*t117*t119* 4257 9 t120*t53*t91+2*t120*t166*t56*t59-3.9834879999999995d-2*ga 4258 : mmabb*t116*t119*t120*t56-8.298933333333335d-2*t120*t128*t 4259 ; 169*t54+4.2666666666666664d+1*gammabb*t116*t119*t120*t49) 4260 < +2.6666666666666666d+0*t114*t181+4.444444444444444d-1*t12 4261 = 9*t159)+t96*(-1.1618506666666667d-2*t213*t98-1.0d+0*t119* 4262 > t181*t63-1.0d+0*t129*t168*t63-t119*t182+4.979359999999999 4263 ? 3d-3*t121*t180-1.3333333333333333d+0*t114*t119*t129+4.979 4264 @ 3599999999993d-3*t117*t122)-1.9917439999999997d-2*t119*t1 4265 1 20*t180*t98-1.120356d-2*t130*t166*t167*t98-1.86726d-3*t17 4266 2 1*t59*t96-9.305257363490997d-1*t63*t89*(6.610678411788878 4267 3 d-6*t161*t162*t94+3.531915643569816d-2*t164*t61-1.3976589 4268 4 410890572d-8*t160*t225/rhob**1.2666666666666665d+1-9.3765 4269 5 93846722628d-4*gammabb*t115*t163)-2.481401963597599d+0*t1 4270 6 14*t179*t89-4.1356699393293317d-1*t127*t159*t89-1.8610514 4271 7 726981994d+0*t113*t179*t63+2.0d+0*t120*t129*t166*t63-9.30 4272 8 5257363490997d-1*t127*t158*t63-3.73452d-3*t120*t172*t59-2 4273 9 .481401963597599d+0*t113*t114*t127)*wght+Cmat3(iq,D3_RB_R 4274 : B_GBB) 4275 Cmat3(iq,D3_RA_GAA_GAA) = (t47*(1.0d+0*t5*(-2.3244399384d-5* 4276 1 t108*t124*t57*taua-1.3946639630399998d-4*t124*t151*t45*t5 4277 2 4*taua-6.9733198152d-5*gammaaa*t151*t184*t53*taua+2.48968 4278 3 d-2*t108*t124*t53*taua-2.0919959445599998d-5*t107*t151*t4 4279 4 5*t51*t57-3.7191039014399996d-5*t104*t108*t45*t57+1.99174 4280 5 39999999997d-2*t104*t52*t56+7.46904d-3*t107*t108*t51*t56- 4281 6 5.578655852159999d-5*gammaaa*t108*t173*t56-2.091995944559 4282 7 9998d-5*gammaaa*t107*t124*t151*t56-8.367983778239999d-5*t 4283 8 107*t222*t51*t54*t55-1.1157311704319998d-4*t104*t151*t54* 4284 9 t55+2.240712d-2*t107*t151*t45*t51*t53-8.367983778239999d- 4285 : 5*gammaaa*t107*t124*t222*t45*t53-1.6735967556479997d-4*ga 4286 ; mmaaa*t151*t173*t45*t53+3.9834879999999995d-2*t104*t108*t 4287 < 45*t53-1.0666666666666666d+1*t104*t49*t52-4*t107*t108*t49 4288 = *t51-2.2314623408639997d-4*t151*t231*t49*t50-8.3679837782 4289 > 39999d-5*t107*t184*t222*t49*t50+1.1950464d-1*gammaaa*t108 4290 ? *t173*t49+4.481424d-2*gammaaa*t107*t124*t151*t49)+1.33333 4291 @ 33333333333d+0*t102*t185)-3.7191039014399996d-5*t108*t232 4292 1 *t58-2.0919959445599998d-5*t107*t151*t186*t58-1.0d+0*t107 4293 2 *t185*t5*t52-3.73452d-3*t1*t177*t52+9.958719999999999d-3* 4294 3 t125*t175*t52+6.973319815199999d-6*t108*t110*t51-9.305257 4295 4 363490997d-1*t43*t5*(5.241221029083964d-9*t218*t231*t50-1 4296 5 .944317179937905d-6*gammaaa*t145*t173+1.731063479394947d- 4297 6 4*t103*t104)-9.305257363490997d-1*t101*t183*t5-1.24070098 4298 7 17987995d+0*t102*t183*t43+7.46904d-3*t107*t108*t125*t126) 4299 8 *wght+Cmat3(iq,D3_RA_GAA_GAA) 4300 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 4301 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 4302 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 4303 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 4304 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 4305 Cmat3(iq,D3_RB_GAA_GAA) = Cmat3(iq,D3_RB_GAA_GAA) 4306 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 4307 Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB) 4308 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 4309 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 4310 Cmat3(iq,D3_RB_GBB_GBB) = (t93*(1.0d+0*t63*(-1.3946639630399 4311 1 998d-4*t128*t167*t54*t91*taub-2.3244399384d-5*t120*t128*t 4312 2 57*taub-6.9733198152d-5*gammabb*t167*t188*t53*taub+2.4896 4313 3 8d-2*t120*t128*t53*taub-8.367983778239999d-5*t119*t229*t5 4314 4 4*t95*t97-1.1157311704319998d-4*t116*t167*t54*t97+1.99174 4315 5 39999999997d-2*t116*t56*t96-1.0666666666666666d+1*t116*t4 4316 6 9*t96-2.0919959445599998d-5*t119*t167*t57*t91*t95+2.24071 4317 7 2d-2*t119*t167*t53*t91*t95+7.46904d-3*t119*t120*t56*t95-4 4318 8 *t119*t120*t49*t95-2.2314623408639997d-4*t167*t233*t49*t9 4319 9 4-8.367983778239999d-5*t119*t188*t229*t49*t94-3.719103901 4320 : 4399996d-5*t116*t120*t57*t91-8.367983778239999d-5*gammabb 4321 ; *t119*t128*t229*t53*t91-1.6735967556479997d-4*gammabb*t16 4322 < 7*t178*t53*t91+3.9834879999999995d-2*t116*t120*t53*t91-5. 4323 = 578655852159999d-5*gammabb*t120*t178*t56-2.09199594455999 4324 > 98d-5*gammabb*t119*t128*t167*t56+1.1950464d-1*gammabb*t12 4325 ? 0*t178*t49+4.481424d-2*gammabb*t119*t128*t167*t49)+1.3333 4326 @ 333333333333d+0*t114*t189)-3.7191039014399996d-5*t120*t23 4327 1 4*t98-2.0919959445599998d-5*t119*t167*t190*t98-1.0d+0*t11 4328 2 9*t189*t63*t96-3.73452d-3*t182*t59*t96+9.958719999999999d 4329 3 -3*t129*t180*t96+6.973319815199999d-6*t120*t122*t95-9.305 4330 4 257363490997d-1*t63*t89*(5.241221029083964d-9*t225*t233*t 4331 5 94-1.944317179937905d-6*gammabb*t161*t178+1.7310634793949 4332 6 47d-4*t115*t116)-1.2407009817987995d+0*t114*t187*t89-9.30 4333 7 5257363490997d-1*t113*t187*t63+7.46904d-3*t119*t120*t129* 4334 8 t130)*wght+Cmat3(iq,D3_RB_GBB_GBB) 4335 Cmat3(iq,D3_GAA_GAA_GAA) = (-3.9063003474391045d-8*t151*t58/ 4336 1 rhoa**6.666666666666667d+0+1.0d+0*t47*t5*(-3.906300347439 4337 2 1045d-8*t124*t151*t45*t57-3.9063003474391045d-8*gammaaa*t 4338 3 151*t184*t56+2.0919959445599995d-5*t108*t124*t56-1.562520 4339 4 138975642d-7*t124*t222*t54*t55-1.562520138975642d-7*gamma 4340 5 aa*t184*t222*t45*t53+6.275987833679999d-5*t124*t151*t45*t 4341 6 53-1.562520138975642d-7*t222*t49*t50/rhoa**1.333333333333 4342 7 3333d+1+1.255197566736d-4*gammaaa*t151*t184*t49-2.240712d 4343 8 -2*t108*t124*t49)-5.60178d-3*t126*t185*t52-9.305257363490 4344 9 997d-1*(4.374713654860287d-7*t124*t145-1.965457885906487d 4345 : -9*gammaaa*t184*t218)*t43*t5+2.0919959445599995d-5*t108*t 4346 ; 125*t186)*wght+Cmat3(iq,D3_GAA_GAA_GAA) 4347 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 4348 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 4349 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 4350 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 4351 Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB) 4352 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 4353 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 4354 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 4355 Cmat3(iq,D3_GBB_GBB_GBB) = (-3.9063003474391045d-8*t167*t98/ 4356 1 rhob**6.666666666666667d+0+1.0d+0*t63*t93*(-1.56252013897 4357 2 5642d-7*t128*t229*t54*t97-1.562520138975642d-7*t229*t49*t 4358 3 94/rhob**1.3333333333333333d+1-3.9063003474391045d-8*t128 4359 4 *t167*t57*t91-1.562520138975642d-7*gammabb*t188*t229*t53* 4360 5 t91+6.275987833679999d-5*t128*t167*t53*t91-3.906300347439 4361 6 1045d-8*gammabb*t167*t188*t56+2.0919959445599995d-5*t120* 4362 7 t128*t56+1.255197566736d-4*gammabb*t167*t188*t49-2.240712 4363 8 d-2*t120*t128*t49)-5.60178d-3*t130*t189*t96-9.30525736349 4364 9 0997d-1*(4.374713654860287d-7*t128*t161-1.965457885906487 4365 : d-9*gammabb*t188*t225)*t63*t89+2.0919959445599995d-5*t120 4366 ; *t129*t190)*wght+Cmat3(iq,D3_GBB_GBB_GBB) 4367 Mmat3(iq,D3_RA_RA_TA) = (t47*(1.0d+0*t5*(-7.469039999999999d 4368 1 -2*t51*t52*t57*taua-4.97936d-2*t107*t108*t133*t57*taua+8. 4369 2 0d+1*t51*t52*t54*taua-2.9876159999999996d-1*t108*t45*t51* 4370 3 t54*taua-2.987616d-1*t107*t133*t151*t45*t54*taua+5.333333 4371 4 333333333d+1*t107*t108*t133*t54*taua-1.493808d-1*gammaaa* 4372 5 t107*t132*t151*t53*taua-2.8216373333333333d-1*gammaaa*t10 4373 6 8*t124*t53*taua-1.6597866666666666d-2*t105*t45*t52*t57-2. 4374 7 0d+0*t152*t44*t52*t57+6.666666666666667d+0*t1*t107*t52*t5 4375 8 7+8.88888888888889d+0*t105*t47*t57+7.46904d-3*t108*t152*t 4376 9 44*t45*t57-2.240712d-2*t150*t151*t44*t45*t57-2.48968d-2*t 4377 : 1*t107*t108*t45*t57+4.0d+0*t108*t150*t44*t57-8.6308906666 4378 ; 66666d-2*gammaaa*t104*t52*t56-6.473168d-2*gammaaa*t107*t1 4379 < 08*t51*t56+7.46904d-3*gammaaa*t108*t133*t152*t56-2.240712 4380 = d-2*gammaaa*t133*t150*t151*t56-8.962848d-2*t150*t222*t44* 4381 > t54*t55+2.240712d-2*t151*t152*t44*t54*t55-7.46904d-2*t1*t 4382 ? 107*t151*t54*t55-3.319573333333333d-2*t105*t108*t54*t55+1 4383 @ .7777777777777778d+1*t105*t45*t52*t54-8.0d+0*t108*t152*t4 4384 1 4*t45*t54+2.4d+1*t150*t151*t44*t45*t54+2.6666666666666666 4385 2 d+1*t1*t107*t108*t45*t54-1.659786666666667d-1*t108*t132*t 4386 3 153*t54+4.622222222222223d+1*gammaaa*t104*t52*t53-1.94195 4387 4 03999999999d-1*gammaaa*t107*t151*t45*t51*t53+3.4666666666 4388 5 66666d+1*gammaaa*t107*t108*t51*t53-8.962848d-2*gammaaa*t1 4389 6 33*t150*t222*t45*t53+2.240712d-2*gammaaa*t133*t151*t152*t 4390 7 45*t53-1.7261781333333331d-1*gammaaa*t104*t108*t45*t53-4. 4391 8 0d+0*gammaaa*t108*t133*t152*t53+1.2d+1*gammaaa*t133*t150* 4392 9 t151*t53-8.962848d-2*t132*t150*t222*t49*t50-4.1826624d-1* 4393 : t108*t173*t49*t50+2.240712d-2*t132*t151*t152*t49*t50-3.13 4394 ; 69968d-1*t107*t124*t151*t49*t50)+2.6666666666666666d+0*t1 4395 < 02*t192+4.444444444444444d-1*t134*t143)-9.305257363490997 4396 = d-1*t4*t5*(-7.921643129916147d+5*t11*t217*t5*t7-4.5701787 4397 > 287977763d+5*t13*t21*t5*t7+5.585774001863949d+5*t100*t18* 4398 ? t5*t7+6.702928802236738d+5*t141*t15*t5*t7-2.2282577153689 4399 @ 58d+3*t13*t135*t18*t7+2.6739092584427493d+3*t11*t135*t141 4400 1 *t7+9.232684300601569d+2*t37*t41*t5-2.769805290180471d+3* 4401 2 t10*t34*t41*t5-1.1079221160721883d+4*t31*t38*t39*t5+1.661 4402 3 8831741082832d+4*t31*t35*t39*t5+2.2158442321443766d+4*t31 4403 4 *t32*t39*t5-2.7698052901804704d+4*t29*t31*t39*t5+1.846536 4404 5 860120314d+3*t37*t38*t5+5.539610580360942d+3*t10*t34*t38* 4405 6 t5-2.769805290180471d+3*t35*t37*t5-2.769805290180471d+4*t 4406 7 28*t35*t36*t5+3.693073720240629d+4*t28*t32*t36*t5+4.61634 4407 8 2150300784d+4*t28*t29*t36*t5-5.539610580360942d+4*t26*t28 4408 9 *t36*t5+8.309415870541416d+3*t10*t34*t35*t5-1.10792211607 4409 : 21883d+4*t10*t32*t34*t5-5.539610580360941d+4*t25*t32*t33* 4410 ; t5+6.924513225451174d+4*t25*t29*t33*t5+8.309415870541416d 4411 < +4*t25*t26*t33*t5-9.694318515631648d+4*t23*t25*t33*t5-9.6 4412 = 94318515631648d+4*t22*t29*t30*t5+1.1633182218757979d+5*t2 4413 > 2*t26*t30*t5+1.3572045921884307d+5*t22*t23*t30*t5-1.55109 4414 ? 09625010635d+5*t20*t22*t30*t5-1.5510909625010638d+5*t19*t 4415 @ 26*t27*t5+1.809606122917908d+5*t19*t23*t27*t5+2.068121283 4416 1 3347515d+5*t19*t20*t27*t5-2.3266364437515952d+5*t17*t19*t 4417 2 27*t5-2.3266364437515955d+5*t16*t23*t24*t5+2.659013078573 4418 3 252d+5*t16*t20*t24*t5+2.9913897133949086d+5*t16*t17*t24*t 4419 4 5-3.3237663482165647d+5*t14*t16*t24*t5-3.323766348216565d 4420 5 +5*t13*t20*t21*t5+3.7392371417436354d+5*t13*t17*t21*t5+4. 4421 6 1547079352707056d+5*t13*t14*t21*t5-4.5701787287977763d+5* 4422 7 t100*t17*t18*t5+5.077976365330863d+5*t100*t14*t18*t5-6.09 4423 8 3571638397035d+5*t14*t141*t15*t5+4.0513776643071964d+1*t1 4424 9 0*t135*t37*t41-4.0513776643071964d+1*t135*t38*t40+1.21541 4425 : 32992921589d+2*t135*t34*t38*t39-2.4308265985843178d+2*t13 4426 ; 5*t32*t34*t39-1.2154132992921589d+2*t10*t135*t35*t37+2.43 4427 < 08265985843178d+2*t135*t31*t35*t36-4.051377664307196d+2*t 4428 = 135*t29*t31*t36+4.0513776643071964d+2*t135*t28*t32*t33-6. 4429 > 077066496460795d+2*t135*t26*t28*t33+6.077066496460793d+2* 4430 ? t135*t25*t29*t30-8.507893095045111d+2*t135*t23*t25*t30+8. 4431 @ 507893095045113d+2*t135*t22*t26*t27-1.1343857460060149d+3 4432 1 *t135*t20*t22*t27+1.1343857460060149d+3*t135*t19*t23*t24- 4433 2 1.4584959591505905d+3*t135*t17*t19*t24+1.4584959591505908 4434 3 d+3*t135*t16*t20*t21-1.8231199489382383d+3*t135*t14*t16*t 4435 4 21+1.8231199489382383d+3*t13*t135*t17*t18+2.2282577153689 4436 5 576d+3*t100*t135*t14*t15)+t52*(-8.298933333333333d-3*t175 4437 6 *t58-1.0d+0*t107*t192*t5-1.0d+0*t134*t152*t5-t107*t193-1. 4438 7 3333333333333333d+0*t102*t107*t134+6.2242d-3*t109*t126+6. 4439 8 2242d-3*t1*t110)-2.240712d-2*t135*t150*t151*t58-2.48968d- 4440 9 2*t107*t108*t126*t58-3.73452d-3*t155*t44*t52-1.8610514726 4441 : 981994d+0*t106*t191*t5+2.0d+0*t108*t134*t150*t5-9.3052573 4442 ; 63490997d-1*t131*t149*t5-7.46904d-3*t108*t156*t44-2.48140 4443 < 1963597599d+0*t102*t191*t4-4.1356699393293317d-1*t131*t14 4444 = 3*t4-2.481401963597599d+0*t102*t106*t131)*wght+Mmat3(iq,D 4445 > 3_RA_RA_TA) 4446 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 4447 Mmat3(iq,D3_RA_RB_TA) = Mmat3(iq,D3_RA_RB_TA) 4448 Mmat3(iq,D3_RA_RB_TB) = Mmat3(iq,D3_RA_RB_TB) 4449 Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA) 4450 Mmat3(iq,D3_RB_RB_TB) = (t93*(1.0d+0*t63*(-7.469039999999999 4451 1 d-2*t57*t95*t96*taub+8.0d+1*t54*t95*t96*taub-2.9876159999 4452 2 999996d-1*t120*t54*t91*t95*taub-2.987616d-1*t119*t138*t16 4453 3 7*t54*t91*taub-4.97936d-2*t119*t120*t138*t57*taub+5.33333 4454 4 3333333333d+1*t119*t120*t138*t54*taub-1.493808d-1*gammabb 4455 5 *t119*t137*t167*t53*taub-2.8216373333333333d-1*gammabb*t1 4456 6 20*t128*t53*taub-8.962848d-2*t166*t229*t54*t90*t97+2.2407 4457 7 12d-2*t167*t168*t54*t90*t97-7.46904d-2*t119*t167*t54*t59* 4458 8 t97-3.319573333333333d-2*t117*t120*t54*t97-1.659786666666 4459 9 6666d-2*t117*t57*t91*t96+1.7777777777777778d+1*t117*t54*t 4460 : 91*t96-2.0d+0*t168*t57*t90*t96+6.666666666666667d+0*t119* 4461 ; t57*t59*t96-8.630890666666666d-2*gammabb*t116*t56*t96+4.6 4462 < 22222222222223d+1*gammabb*t116*t53*t96-1.9419503999999999 4463 = d-1*gammabb*t119*t167*t53*t91*t95-6.473168d-2*gammabb*t11 4464 > 9*t120*t56*t95+3.466666666666666d+1*gammabb*t119*t120*t53 4465 ? *t95-8.962848d-2*t137*t166*t229*t49*t94-4.1826624d-1*t120 4466 @ *t178*t49*t94+2.240712d-2*t137*t167*t168*t49*t94-3.136996 4467 1 8d-1*t119*t128*t167*t49*t94+8.88888888888889d+0*t117*t57* 4468 2 t93+7.46904d-3*t120*t168*t57*t90*t91-2.240712d-2*t166*t16 4469 3 7*t57*t90*t91-8.0d+0*t120*t168*t54*t90*t91+2.4d+1*t166*t1 4470 4 67*t54*t90*t91-2.48968d-2*t119*t120*t57*t59*t91+2.6666666 4471 5 666666666d+1*t119*t120*t54*t59*t91-8.962848d-2*gammabb*t1 4472 6 38*t166*t229*t53*t91+2.240712d-2*gammabb*t138*t167*t168*t 4473 7 53*t91-1.7261781333333331d-1*gammabb*t116*t120*t53*t91+4. 4474 8 0d+0*t120*t166*t57*t90+7.46904d-3*gammabb*t120*t138*t168* 4475 9 t56-2.240712d-2*gammabb*t138*t166*t167*t56-1.659786666666 4476 : 667d-1*t120*t137*t169*t54-4.0d+0*gammabb*t120*t138*t168*t 4477 ; 53+1.2d+1*gammabb*t138*t166*t167*t53)+2.6666666666666666d 4478 < +0*t114*t195+4.444444444444444d-1*t139*t159)+t96*(-8.2989 4479 = 33333333333d-3*t180*t98-1.0d+0*t119*t195*t63-1.0d+0*t139* 4480 > t168*t63+6.2242d-3*t122*t59-t119*t196-1.3333333333333333d 4481 ? +0*t114*t119*t139+6.2242d-3*t121*t130)-2.240712d-2*t140*t 4482 @ 166*t167*t98-2.48968d-2*t119*t120*t130*t98-3.73452d-3*t17 4483 1 1*t90*t96-7.46904d-3*t120*t172*t90-9.305257363490997d-1*t 4484 2 62*t63*(-4.0513776643071964d+1*t140*t38*t87+1.21541329929 4485 3 21589d+2*t140*t38*t83*t86-2.4308265985843178d+2*t140*t32* 4486 4 t83*t86-1.1079221160721883d+4*t38*t63*t81*t86+1.661883174 4487 5 1082832d+4*t35*t63*t81*t86+2.2158442321443766d+4*t32*t63* 4488 6 t81*t86-2.7698052901804704d+4*t29*t63*t81*t86+4.051377664 4489 7 3071964d+1*t140*t41*t66*t85-1.2154132992921589d+2*t140*t3 4490 8 5*t66*t85+9.232684300601569d+2*t41*t63*t85+1.846536860120 4491 9 314d+3*t38*t63*t85-2.769805290180471d+3*t35*t63*t85+2.430 4492 : 8265985843178d+2*t140*t35*t81*t84-4.051377664307196d+2*t1 4493 ; 40*t29*t81*t84-2.769805290180471d+4*t35*t63*t79*t84+3.693 4494 < 073720240629d+4*t32*t63*t79*t84+4.616342150300784d+4*t29* 4495 = t63*t79*t84-5.539610580360942d+4*t26*t63*t79*t84-2.769805 4496 > 290180471d+3*t41*t63*t66*t83+5.539610580360942d+3*t38*t63 4497 ? *t66*t83+8.309415870541416d+3*t35*t63*t66*t83-1.107922116 4498 @ 0721883d+4*t32*t63*t66*t83+4.0513776643071964d+2*t140*t32 4499 1 *t79*t82-6.077066496460795d+2*t140*t26*t79*t82-5.53961058 4500 2 0360941d+4*t32*t63*t77*t82+6.924513225451174d+4*t29*t63*t 4501 3 77*t82+8.309415870541416d+4*t26*t63*t77*t82-9.69431851563 4502 4 1648d+4*t23*t63*t77*t82+6.077066496460793d+2*t140*t29*t77 4503 5 *t80-8.507893095045111d+2*t140*t23*t77*t80-9.694318515631 4504 6 648d+4*t29*t63*t75*t80+1.1633182218757979d+5*t26*t63*t75* 4505 7 t80+1.3572045921884307d+5*t23*t63*t75*t80-1.5510909625010 4506 8 635d+5*t20*t63*t75*t80+8.507893095045113d+2*t140*t26*t75* 4507 9 t78-1.1343857460060149d+3*t140*t20*t75*t78-1.551090962501 4508 : 0638d+5*t26*t63*t73*t78+1.809606122917908d+5*t23*t63*t73* 4509 ; t78+2.0681212833347515d+5*t20*t63*t73*t78-2.3266364437515 4510 < 952d+5*t17*t63*t73*t78+1.1343857460060149d+3*t140*t23*t73 4511 = *t76-1.4584959591505905d+3*t140*t17*t73*t76-2.32663644375 4512 > 15955d+5*t23*t63*t71*t76+2.659013078573252d+5*t20*t63*t71 4513 ? *t76+2.9913897133949086d+5*t17*t63*t71*t76-3.323766348216 4514 @ 5647d+5*t14*t63*t71*t76+1.4584959591505908d+3*t140*t20*t7 4515 1 1*t74-1.8231199489382383d+3*t14*t140*t71*t74-4.5701787287 4516 2 977763d+5*t63*t69*t7*t74-3.323766348216565d+5*t20*t63*t69 4517 3 *t74+3.7392371417436354d+5*t17*t63*t69*t74+4.154707935270 4518 4 7056d+5*t14*t63*t69*t74-2.228257715368958d+3*t140*t69*t7* 4519 5 t72+5.585774001863949d+5*t112*t63*t7*t72+1.82311994893823 4520 6 83d+3*t140*t17*t69*t72-4.5701787287977763d+5*t112*t17*t63 4521 7 *t72+5.077976365330863d+5*t112*t14*t63*t72+6.702928802236 4522 8 738d+5*t157*t63*t7*t70-6.093571638397035d+5*t14*t157*t63* 4523 9 t70+2.2282577153689576d+3*t112*t14*t140*t70-7.92164312991 4524 : 6147d+5*t224*t63*t67*t7+2.6739092584427493d+3*t140*t157*t 4525 ; 67*t7)-1.8610514726981994d+0*t118*t194*t63+2.0d+0*t120*t1 4526 < 39*t166*t63-9.305257363490997d-1*t136*t165*t63-2.48140196 4527 = 3597599d+0*t114*t194*t62-4.1356699393293317d-1*t136*t159* 4528 > t62-2.481401963597599d+0*t114*t118*t136)*wght+Mmat3(iq,D3 4529 ? _RB_RB_TB) 4530 Mmat3(iq,D3_RA_GAA_TA) = (t47*(1.0d+0*t5*(-4.6488798768d-5*t 4531 1 108*t132*t57*taua-2.7893279260799997d-4*t132*t151*t45*t54 4532 2 *taua+4.97936d-2*t108*t132*t54*taua-1.3946639630399998d-4 4533 3 *gammaaa*t151*t197*t53*taua+2.48968d-2*t108*t132*t53*taua 4534 4 +1.618292d-2*t51*t52*t57-6.043543839839999d-5*t108*t45*t5 4535 5 1*t57-4.1839918891199995d-5*t107*t133*t151*t45*t57+7.4690 4536 6 4d-3*t107*t108*t133*t57+1.618292d-2*t51*t52*t56-4.1839918 4537 7 891199995d-5*gammaaa*t107*t132*t151*t56+7.46904d-3*t107*t 4538 8 108*t133*t56-9.76264774128d-5*gammaaa*t108*t124*t56-1.813 4539 9 0631519519996d-4*t151*t51*t54*t55-1.673596755648d-4*t107* 4540 : t133*t222*t54*t55+6.473168d-2*t108*t45*t51*t54+4.481424d- 4541 ; 2*t107*t133*t151*t45*t54-8.666666666666666d+0*t51*t52*t53 4542 < +3.236584d-2*t108*t45*t51*t53-1.673596755648d-4*gammaaa*t 4543 = 107*t132*t222*t45*t53+2.240712d-2*t107*t133*t151*t45*t53- 4544 > 2.9287943223839996d-4*gammaaa*t124*t151*t45*t53+2.240712d 4545 ? -2*gammaaa*t107*t132*t151*t53-4.0d+0*t107*t108*t133*t53+5 4546 @ .228328d-2*gammaaa*t108*t124*t53-1.673596755648d-4*t107*t 4547 1 197*t222*t49*t50-4.044525492816d-4*t151*t184*t49*t50+4.48 4548 2 1424d-2*gammaaa*t107*t132*t151*t49+1.0456655999999999d-1* 4549 3 gammaaa*t108*t124*t49)+1.3333333333333333d+0*t102*t198)-4 4550 4 .1839918891199995d-5*t107*t151*t199*t58-6.043543839839999 4551 5 d-5*t108*t186*t58-1.0d+0*t107*t198*t5*t52-3.73452d-3*t177 4552 6 *t44*t52-1.86726d-3*t1*t193*t52+4.9793599999999993d-3*t13 4553 7 4*t175*t52+6.2242d-3*t125*t126*t52-9.305257363490997d-1*t 4554 8 123*t191*t5-9.305257363490997d-1*t131*t174*t5+7.46904d-3* 4555 9 t107*t108*t125*t135+3.73452d-3*t107*t108*t126*t134+1.3946 4556 : 639630399998d-5*t108*t110*t133-1.2407009817987995d+0*t102 4557 ; *t123*t131)*wght+Mmat3(iq,D3_RA_GAA_TA) 4558 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 4559 Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA) 4560 Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB) 4561 Mmat3(iq,D3_RA_GBB_TA) = Mmat3(iq,D3_RA_GBB_TA) 4562 Mmat3(iq,D3_RA_GBB_TB) = Mmat3(iq,D3_RA_GBB_TB) 4563 Mmat3(iq,D3_RB_GAA_TA) = Mmat3(iq,D3_RB_GAA_TA) 4564 Mmat3(iq,D3_RB_GAA_TB) = Mmat3(iq,D3_RB_GAA_TB) 4565 Mmat3(iq,D3_RB_GAB_TA) = Mmat3(iq,D3_RB_GAB_TA) 4566 Mmat3(iq,D3_RB_GAB_TB) = Mmat3(iq,D3_RB_GAB_TB) 4567 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 4568 Mmat3(iq,D3_RB_GBB_TB) = (t93*(1.0d+0*t63*(-2.78932792607999 4569 1 97d-4*t137*t167*t54*t91*taub-4.6488798768d-5*t120*t137*t5 4570 2 7*taub+4.97936d-2*t120*t137*t54*taub-1.3946639630399998d- 4571 3 4*gammabb*t167*t200*t53*taub+2.48968d-2*t120*t137*t53*tau 4572 4 b-1.8130631519519996d-4*t167*t54*t95*t97-1.673596755648d- 4573 5 4*t119*t138*t229*t54*t97+1.618292d-2*t57*t95*t96+1.618292 4574 6 d-2*t56*t95*t96-8.666666666666666d+0*t53*t95*t96-6.043543 4575 7 839839999d-5*t120*t57*t91*t95+6.473168d-2*t120*t54*t91*t9 4576 8 5+3.236584d-2*t120*t53*t91*t95-1.673596755648d-4*t119*t20 4577 9 0*t229*t49*t94-4.044525492816d-4*t167*t188*t49*t94-4.1839 4578 : 918891199995d-5*t119*t138*t167*t57*t91+4.481424d-2*t119*t 4579 ; 138*t167*t54*t91-1.673596755648d-4*gammabb*t119*t137*t229 4580 < *t53*t91+2.240712d-2*t119*t138*t167*t53*t91-2.92879432238 4581 = 39996d-4*gammabb*t128*t167*t53*t91+7.46904d-3*t119*t120*t 4582 > 138*t57-4.1839918891199995d-5*gammabb*t119*t137*t167*t56+ 4583 ? 7.46904d-3*t119*t120*t138*t56-9.76264774128d-5*gammabb*t1 4584 @ 20*t128*t56+2.240712d-2*gammabb*t119*t137*t167*t53-4.0d+0 4585 1 *t119*t120*t138*t53+5.228328d-2*gammabb*t120*t128*t53+4.4 4586 2 81424d-2*gammabb*t119*t137*t167*t49+1.0456655999999999d-1 4587 3 *gammabb*t120*t128*t49)+1.3333333333333333d+0*t114*t201)- 4588 4 4.1839918891199995d-5*t119*t167*t202*t98-6.04354383983999 4589 5 9d-5*t120*t190*t98-3.73452d-3*t182*t90*t96-1.0d+0*t119*t2 4590 6 01*t63*t96-1.86726d-3*t196*t59*t96+4.9793599999999993d-3* 4591 7 t139*t180*t96+6.2242d-3*t129*t130*t96-9.305257363490997d- 4592 8 1*t127*t194*t63-9.305257363490997d-1*t136*t179*t63+7.4690 4593 9 4d-3*t119*t120*t129*t140+3.73452d-3*t119*t120*t130*t139+1 4594 : .3946639630399998d-5*t120*t122*t138-1.2407009817987995d+0 4595 ; *t114*t127*t136)*wght+Mmat3(iq,D3_RB_GBB_TB) 4596 Mmat3(iq,D3_RA_TA_TA) = (-7.812600694878209d-8*t151*t220*t58 4597 1 +1.0d+0*t47*t5*(-7.812600694878209d-8*t132*t151*t45*t57+1 4598 2 .3946639630399998d-5*t108*t132*t57-7.812600694878209d-8*g 4599 3 ammaaa*t151*t197*t56+2.7893279260799997d-5*t108*t132*t56- 4600 4 3.125040277951284d-7*t132*t222*t54*t55+8.367983778239999d 4601 5 -5*t132*t151*t45*t54-3.125040277951284d-7*gammaaa*t197*t2 4602 6 22*t45*t53+8.367983778239999d-5*t132*t151*t45*t53+4.18399 4603 7 18891199995d-5*gammaaa*t151*t197*t53-1.4938079999999998d- 4604 8 2*t108*t132*t53-3.125040277951284d-7*t222*t49*t50/rhoa**1 4605 9 .2333333333333334d+1+1.673596755648d-4*gammaaa*t151*t197* 4606 : t49-1.4938079999999998d-2*t108*t132*t49)-3.73452d-3*t126* 4607 ; t198*t52-3.73452d-3*t135*t185*t52-9.305257363490997d-1*t1 4608 < 31*t183*t5+2.7893279260799997d-5*t108*t125*t199+6.9733198 4609 = 15199999d-6*t108*t134*t186)*wght+Mmat3(iq,D3_RA_TA_TA) 4610 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 4611 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 4612 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 4613 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 4614 Mmat3(iq,D3_RB_TB_TB) = Mmat3(iq,D3_RB_TB_TB) 4615 Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA) 4616 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 4617 Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA) 4618 Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB) 4619 Mmat3(iq,D3_GAA_GBB_TA) = Mmat3(iq,D3_GAA_GBB_TA) 4620 Mmat3(iq,D3_GAA_GBB_TB) = (-7.812600694878209d-8*t167*t227*t 4621 1 98+1.0d+0*t63*t93*(-3.125040277951284d-7*t137*t229*t54*t9 4622 2 7-3.125040277951284d-7*t229*t49*t94/rhob**1.2333333333333 4623 3 334d+1-7.812600694878209d-8*t137*t167*t57*t91+8.367983778 4624 4 239999d-5*t137*t167*t54*t91-3.125040277951284d-7*gammabb* 4625 5 t200*t229*t53*t91+8.367983778239999d-5*t137*t167*t53*t91+ 4626 6 1.3946639630399998d-5*t120*t137*t57-7.812600694878209d-8* 4627 7 gammabb*t167*t200*t56+2.7893279260799997d-5*t120*t137*t56 4628 8 +4.1839918891199995d-5*gammabb*t167*t200*t53-1.4938079999 4629 9 999998d-2*t120*t137*t53+1.673596755648d-4*gammabb*t167*t2 4630 : 00*t49-1.4938079999999998d-2*t120*t137*t49)-3.73452d-3*t1 4631 ; 30*t201*t96-3.73452d-3*t140*t189*t96-9.305257363490997d-1 4632 < *t136*t187*t63+2.7893279260799997d-5*t120*t129*t202+6.973 4633 = 319815199999d-6*t120*t139*t190)*wght+Mmat3(iq,D3_GAA_GBB_ 4634 > TB) 4635 Mmat3(iq,D3_GAB_GAB_TA) = (-1.5625201389756418d-7*t148*t151* 4636 1 t58+1.0d+0*t47*t5*(-1.5625201389756418d-7*t151*t205*t45*t 4637 2 57+5.578655852159999d-5*t108*t205*t57+2.7893279260799997d 4638 3 -5*t108*t205*t56-1.5625201389756418d-7*gammaaa*t151*t204* 4639 4 t56-6.250080555902569d-7*t205*t222*t54*t55+3.347193511296 4640 5 d-4*t151*t205*t45*t54-2.9876159999999996d-2*t108*t205*t54 4641 6 -6.250080555902569d-7*gammaaa*t204*t222*t45*t53+8.3679837 4642 7 78239999d-5*t151*t205*t45*t53-2.9876159999999996d-2*t108* 4643 8 t205*t53+1.673596755648d-4*gammaaa*t151*t204*t53-6.250080 4644 9 555902569d-7*t222*t49*t50/rhoa**1.1333333333333334d+1+1.6 4645 : 73596755648d-4*gammaaa*t151*t204*t49)-1.86726d-3*t126*t20 4646 ; 7*t52-7.46904d-3*t135*t198*t52-9.305257363490997d-1*t123* 4647 < t203*t5+2.7893279260799997d-5*t108*t125*t209+2.7893279260 4648 = 799997d-5*t108*t134*t199)*wght+Mmat3(iq,D3_GAB_GAB_TA) 4649 Mmat3(iq,D3_GAB_GAB_TB) = Mmat3(iq,D3_GAB_GAB_TB) 4650 Mmat3(iq,D3_GAB_GBB_TA) = Mmat3(iq,D3_GAB_GBB_TA) 4651 Mmat3(iq,D3_GAB_GBB_TB) = Mmat3(iq,D3_GAB_GBB_TB) 4652 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 4653 Mmat3(iq,D3_GBB_GBB_TB) = Mmat3(iq,D3_GBB_GBB_TB) 4654 Mmat3(iq,D3_GAA_TA_TA) = Mmat3(iq,D3_GAA_TA_TA) 4655 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 4656 Mmat3(iq,D3_GAA_TB_TB) = (-1.5625201389756418d-7*t164*t167*t 4657 1 98+1.0d+0*t63*t93*(-6.250080555902569d-7*t212*t229*t54*t9 4658 2 7-6.250080555902569d-7*t229*t49*t94/rhob**1.1333333333333 4659 3 334d+1-1.5625201389756418d-7*t167*t212*t57*t91+3.34719351 4660 4 1296d-4*t167*t212*t54*t91-6.250080555902569d-7*gammabb*t2 4661 5 11*t229*t53*t91+8.367983778239999d-5*t167*t212*t53*t91+5. 4662 6 578655852159999d-5*t120*t212*t57+2.7893279260799997d-5*t1 4663 7 20*t212*t56-1.5625201389756418d-7*gammabb*t167*t211*t56-2 4664 8 .9876159999999996d-2*t120*t212*t54-2.9876159999999996d-2* 4665 9 t120*t212*t53+1.673596755648d-4*gammabb*t167*t211*t53+1.6 4666 : 73596755648d-4*gammabb*t167*t211*t49)-1.86726d-3*t130*t21 4667 ; 4*t96-7.46904d-3*t140*t201*t96-9.305257363490997d-1*t127* 4668 < t210*t63+2.7893279260799997d-5*t120*t129*t216+2.789327926 4669 = 0799997d-5*t120*t139*t202)*wght+Mmat3(iq,D3_GAA_TB_TB) 4670 Mmat3(iq,D3_GAB_TA_TA) = (-9.305257363490997d-1*t4*t5*(-1.37 4671 1 28d+4*t11*t217*t7-7.92d+3*t13*t21*t7-2.904d+4*t100*t18*t7 4672 2 -3.4848d+4*t141*t15*t7-4.8d+1*t37*t41-4.8d+1*t10*t34*t41- 4673 3 1.92d+2*t31*t38*t39-8.64d+2*t31*t35*t39-1.152d+3*t31*t32* 4674 4 t39-4.8d+2*t29*t31*t39-9.6d+1*t37*t38-2.88d+2*t10*t34*t38 4675 5 -4.8d+1*t35*t37-4.8d+2*t28*t35*t36-1.92d+3*t28*t32*t36-2. 4676 6 4d+3*t28*t29*t36-9.6d+2*t26*t28*t36-4.32d+2*t10*t34*t35-1 4677 7 .92d+2*t10*t32*t34-9.6d+2*t25*t32*t33-3.6d+3*t25*t29*t33- 4678 8 4.32d+3*t25*t26*t33-1.68d+3*t23*t25*t33-1.68d+3*t22*t29*t 4679 9 30-6.048d+3*t22*t26*t30-7.056d+3*t22*t23*t30-2.688d+3*t20 4680 : *t22*t30-2.688d+3*t19*t26*t27-9.408d+3*t19*t23*t27-1.0752 4681 ; d+4*t19*t20*t27-4.032d+3*t17*t19*t27-4.032d+3*t16*t23*t24 4682 < -1.3824d+4*t16*t20*t24-1.5552d+4*t16*t17*t24-5.76d+3*t14* 4683 = t16*t24-5.76d+3*t13*t20*t21-1.944d+4*t13*t17*t21-2.16d+4* 4684 > t13*t14*t21-7.92d+3*t100*t17*t18-2.64d+4*t100*t14*t18-1.0 4685 ? 56d+4*t14*t141*t15)-3.1250402779512837d-7*t105*t151*t58+1 4686 @ .0d+0*t47*t5*(-3.1250402779512837d-7*t151*t232*t45*t57+1. 4687 1 6735967556479997d-4*t108*t232*t57-3.1250402779512837d-7*g 4688 2 ammaaa*t151*t235*t56-1.2500161111805136d-6*t222*t232*t54* 4689 3 t55+1.0041580533887999d-3*t151*t232*t45*t54-1.7925696d-1* 4690 4 t108*t232*t54-1.2500161111805136d-6*gammaaa*t222*t235*t45 4691 5 *t53+5.020790266944d-4*gammaaa*t151*t235*t53-1.2500161111 4692 6 805136d-6*t222*t49*t50/rhoa**1.0333333333333333d+1)-1.120 4693 7 356d-2*t135*t207*t52+8.367983778239998d-5*t108*t134*t209) 4694 8 *wght+Mmat3(iq,D3_GAB_TA_TA) 4695 Mmat3(iq,D3_GAB_TA_TB) = Mmat3(iq,D3_GAB_TA_TB) 4696 Mmat3(iq,D3_GAB_TB_TB) = Mmat3(iq,D3_GAB_TB_TB) 4697 Mmat3(iq,D3_GBB_TA_TA) = (-3.1250402779512837d-7*t117*t167*t 4698 1 98+1.0d+0*t63*t93*(-1.2500161111805136d-6*t229*t234*t54*t 4699 2 97-1.2500161111805136d-6*t229*t49*t94/rhob**1.03333333333 4700 3 33333d+1-3.1250402779512837d-7*t167*t234*t57*t91+1.004158 4701 4 0533887999d-3*t167*t234*t54*t91-1.2500161111805136d-6*gam 4702 5 mabb*t229*t236*t53*t91+1.6735967556479997d-4*t120*t234*t5 4703 6 7-3.1250402779512837d-7*gammabb*t167*t236*t56-1.7925696d- 4704 7 1*t120*t234*t54+5.020790266944d-4*gammabb*t167*t236*t53)- 4705 8 1.120356d-2*t140*t214*t96-9.305257363490997d-1*t62*t63*(- 4706 9 1.92d+2*t38*t81*t86-8.64d+2*t35*t81*t86-1.152d+3*t32*t81* 4707 : t86-4.8d+2*t29*t81*t86-4.8d+1*t41*t85-9.6d+1*t38*t85-4.8d 4708 ; +1*t35*t85-4.8d+2*t35*t79*t84-1.92d+3*t32*t79*t84-2.4d+3* 4709 < t29*t79*t84-9.6d+2*t26*t79*t84-4.8d+1*t41*t66*t83-2.88d+2 4710 = *t38*t66*t83-4.32d+2*t35*t66*t83-1.92d+2*t32*t66*t83-9.6d 4711 > +2*t32*t77*t82-3.6d+3*t29*t77*t82-4.32d+3*t26*t77*t82-1.6 4712 ? 8d+3*t23*t77*t82-1.68d+3*t29*t75*t80-6.048d+3*t26*t75*t80 4713 @ -7.056d+3*t23*t75*t80-2.688d+3*t20*t75*t80-2.688d+3*t26*t 4714 1 73*t78-9.408d+3*t23*t73*t78-1.0752d+4*t20*t73*t78-4.032d+ 4715 2 3*t17*t73*t78-4.032d+3*t23*t71*t76-1.3824d+4*t20*t71*t76- 4716 3 1.5552d+4*t17*t71*t76-5.76d+3*t14*t71*t76-7.92d+3*t69*t7* 4717 4 t74-5.76d+3*t20*t69*t74-1.944d+4*t17*t69*t74-2.16d+4*t14* 4718 5 t69*t74-2.904d+4*t112*t7*t72-7.92d+3*t112*t17*t72-2.64d+4 4719 6 *t112*t14*t72-3.4848d+4*t157*t7*t70-1.056d+4*t14*t157*t70 4720 7 -1.3728d+4*t224*t67*t7)+8.367983778239998d-5*t120*t139*t2 4721 8 16)*wght+Mmat3(iq,D3_GBB_TA_TA) 4722 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 4723 t1 = 1/rhoa**2.6666666666666666d+0 4724 t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0 4725 t3 = 1/t2 4726 t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0 4727 t5 = rhoa**1.3333333333333333d+0 4728 t6 = param(18) 4729 t7 = rhoa**1.6666666666666669d+0 4730 t8 = 9.115599744691192d+0*t7 4731 t9 = t8-2.0d+0*taua 4732 t10 = t9**11 4733 t11 = 2.0d+0*taua+t8 4734 t12 = 1/t11**11 4735 t13 = param(17) 4736 t14 = t9**10 4737 t15 = 1/t11**10 4738 t16 = param(16) 4739 t17 = t9**9 4740 t18 = 1/t11**9 4741 t19 = param(15) 4742 t20 = t9**8 4743 t21 = 1/t11**8 4744 t22 = param(14) 4745 t23 = t9**7 4746 t24 = 1/t11**7 4747 t25 = param(13) 4748 t26 = t9**6 4749 t27 = 1/t11**6 4750 t28 = param(12) 4751 t29 = t9**5 4752 t30 = 1/t11**5 4753 t31 = param(11) 4754 t32 = t9**4 4755 t33 = 1/t11**4 4756 t34 = param(10) 4757 t35 = t9**3 4758 t36 = 1/t11**3 4759 t37 = param(9) 4760 t38 = t9**2 4761 t39 = 1/t11**2 4762 t40 = param(8) 4763 t41 = 1/t11 4764 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 4765 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 4766 2 17*t18+t13*t14*t15+param(7) 4767 t43 = 1/t7 4768 t44 = 2.0d+0*t43*taua-9.11559972d+0 4769 t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0 4770 t46 = 1/t45 4771 t47 = param(4) 4772 t48 = gammaaa**2 4773 t49 = 1/rhoa**5.333333333333333d+0 4774 t50 = 1/t45**2 4775 t51 = param(5) 4776 t52 = param(6) 4777 t53 = t44**2 4778 t54 = param(2) 4779 t55 = param(3) 4780 t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1* 4781 1 t44*t50*t51+t47*t48*t49*t50+param(1) 4782 t57 = rhoa**6.666666666666666d-1 4783 t58 = 1/t11**12 4784 t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039 4785 1 7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+ 4786 2 1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+ 4787 3 1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577 4788 4 998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33 4789 5 *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706 4790 6 6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3 4791 7 0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974 4792 8 4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t 4793 9 26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368 4794 : 806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t 4795 ; 23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617 4796 < 036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t 4797 = 17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241 4798 > 151986d+2*t12*t13*t14*t57 4799 t60 = rhoa**3.333333333333333d-1 4800 t61 = 1/t2**2 4801 t62 = 1/rhoa**6.333333333333333d+0 4802 t63 = 1/rhoa**3.6666666666666664d+0 4803 t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3* 4804 1 gammaaa*t3*t63 4805 t65 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t63 4806 t66 = 1/t45**3 4807 t67 = -3.3333333333333337d+0*t1*t46*t55*taua-6.6666666666666 4808 1 67d+0*t1*t44*t50*t52*taua-3.3333333333333337d+0*gammaaa*t 4809 2 49*t50*t51*taua-2*t52*t53*t65*t66-2*gammaaa*t1*t44*t51*t6 4810 3 5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammaaa*t1*t5 4811 4 0*t54*t65-2.6666666666666666d+0*gammaaa*t46*t54*t63-2.666 4812 5 6666666666666d+0*gammaaa*t44*t50*t51*t63-5.33333333333333 4813 6 3d+0*t47*t48*t50*t62 4814 t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60 4815 t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm 4816 1 aaa*t49*t61 4817 t70 = 1/rhoa**8 4818 t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66- 4819 1 3.73452d-3*gammaaa*t44*t49*t51*t66-1.86726d-3*t1*t44*t50* 4820 2 t55-1.86726d-3*gammaaa*t49*t50*t54+t1*t46*t54+t1*t44*t50* 4821 3 t51+2*gammaaa*t47*t49*t50 4822 t72 = 1/t5 4823 t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6 4824 1 -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d 4825 2 +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d 4826 3 +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d 4827 4 +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d 4828 5 +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d 4829 6 +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d 4830 7 +1*t12*t13*t14 4831 t74 = 1/rhoa**7 4832 t75 = 1/rhoa**4.333333333333333d+0 4833 t76 = -7.46904d-3*gammaaa*t44*t51*t66*t75-3.73452d-3*gammaaa 4834 1 *t50*t54*t75+2.0d+0*gammaaa*t50*t51*t75-7.46904d-3*t47*t4 4835 2 8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t 4836 3 50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52 4837 t77 = 1/t60 4838 t78 = 1/t11**13 4839 t79 = -1.0128444160767991d+1*t39*t40*t77*t9+2.02568883215359 4840 1 82d+1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9- 4841 2 1.846536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3* 4842 3 t34*t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.114128 4843 4 8576844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t1 4844 5 4*t6*t77+1.0128444160767991d+1*t40*t41*t77-2.025688832153 4845 6 5982d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38* 4846 7 t77-3.038533248230397d+1*t33*t34*t35*t77+4.05137766430719 4847 8 64d+1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t 4848 9 77+5.064222080383994d+1*t28*t30*t32*t77-5.064222080383994 4849 : d+1*t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77- 4850 ; 6.077066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1 4851 < *t22*t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.1 4852 = 02755328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t1 4853 > 8*t19*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.1155 4854 ? 99744691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t 4855 @ 15*t17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.5857740 4856 1 01863949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t 4857 2 5*t6+2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007 4858 3 845d+2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.3849 4859 4 026450902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33* 4860 5 t34*t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.76980529 4861 6 0180471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t3 4862 7 5*t5+4.616342150300784d+3*t28*t30*t35*t5+4.61634215030078 4863 8 4d+3*t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6 4864 9 .924513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t 4865 : 24*t28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.69431 4866 ; 8515631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25 4867 < *t26*t5-2.2620076536473846d+4*t21*t22*t26*t5+1.2925758020 4868 = 842196d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t2 4869 > 3*t5-2.954458976192502d+4*t18*t19*t23*t5+1.66188317410828 4870 ? 23d+4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5 4871 @ -3.7392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d 4872 1 +4*t13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4. 4873 2 616342150300784d+4*t12*t13*t17*t5 4874 t80 = 1/t57 4875 t81 = gammaaa**3 4876 t82 = 1/t2**3 4877 t83 = 1/rhoa**10 4878 t84 = 1/rhoa**7.333333333333333d+0 4879 t85 = 1/rhoa**4.666666666666667d+0 4880 t86 = 3.531915643569816d-2*gammaaa*t3*t85-3.8948928286386303 4881 1 d-4*t48*t61*t84+1.0369691626335495d-6*t81*t82*t83 4882 t87 = t65**2 4883 t88 = 1/t45**4 4884 t89 = 1.6597866666666666d-2*t63*taua+1.8257653333333332d-2*g 4885 1 ammaaa*t85 4886 t90 = taua**2 4887 t91 = 2.6666666666666666d+1*t1*t44*t52*t65*t66*taua+1.333333 4888 1 3333333333d+1*gammaaa*t49*t51*t65*t66*taua+6.666666666666 4889 2 667d+0*t1*t50*t55*t65*taua+8.88888888888889d+0*t46*t55*t6 4890 3 3*taua+1.7777777777777778d+1*t44*t50*t52*t63*taua+2.66666 4891 4 66666666666d+1*gammaaa*t50*t51*t62*taua+2.222222222222222 4892 5 4d+1*t49*t50*t52*t90-2*t52*t53*t66*t89-2*gammaaa*t1*t44*t 4893 6 51*t66*t89-2*t47*t48*t49*t66*t89-t44*t50*t55*t89-gammaaa* 4894 7 t1*t50*t54*t89+6*t52*t53*t87*t88+6*gammaaa*t1*t44*t51*t87 4895 8 *t88+6*t47*t48*t49*t87*t88+2*t44*t55*t66*t87+2*gammaaa*t1 4896 9 *t54*t66*t87+9.777777777777779d+0*gammaaa*t46*t54*t85+9.7 4897 : 77777777777779d+0*gammaaa*t44*t50*t51*t85+3.3777777777777 4898 ; 78d+1*t47*t48*t50*t84+1.0666666666666666d+1*gammaaa*t44*t 4899 < 51*t63*t65*t66+2.1333333333333332d+1*t47*t48*t62*t65*t66+ 4900 = 5.333333333333333d+0*gammaaa*t50*t54*t63*t65 4901 t92 = 1.0d+0*t5*t91+4.444444444444444d-1*t56*t80+2.666666666 4902 1 6666666d+0*t60*t67 4903 t93 = -1.0d+0*t5*t56*t89-t65*t68-1.0d+0*t5*t65*t67-1.3333333 4904 1 333333333d+0*t56*t60*t65 4905 t94 = 1/rhoa**9 4906 t95 = -3.8886343598758105d-7*t48*t82*t94-9.632497209735863d- 4907 1 3*t3*t63+1.29829760954621d-4*gammaaa*t61*t62 4908 t96 = 1/rhoa**2.3333333333333334d+0 4909 t97 = 1.24484d-2*gammaaa*t51*t66*t70*taua+2.48968d-2*t44*t49 4910 1 *t52*t66*taua+6.2242d-3*t49*t50*t55*taua-3.33333333333333 4911 2 37d+0*t49*t50*t51*taua+2.9876159999999996d-2*t47*t48*t66* 4912 3 t94+1.120356d-2*t47*t48*t65*t70*t88+1.120356d-2*t1*t52*t5 4913 4 3*t65*t88+1.120356d-2*gammaaa*t44*t49*t51*t65*t88+3.73452 4914 5 d-3*t1*t44*t55*t65*t66+3.73452d-3*gammaaa*t49*t54*t65*t66 4915 6 -2*t1*t44*t51*t65*t66-4*gammaaa*t47*t49*t65*t66+9.9587199 4916 7 99999999d-3*t52*t53*t63*t66+1.9917439999999997d-2*gammaaa 4917 8 *t44*t51*t62*t66-t1*t50*t54*t65+4.9793599999999993d-3*t44 4918 9 *t50*t55*t63-2.6666666666666666d+0*t46*t54*t63-2.66666666 4919 : 66666666d+0*t44*t50*t51*t63+9.958719999999999d-3*gammaaa* 4920 ; t50*t54*t62-1.0666666666666666d+1*gammaaa*t47*t50*t62 4921 t98 = 1.0d+0*t5*t97+1.3333333333333333d+0*t60*t71 4922 t99 = 1.4582378849534292d-7*gammaaa*t70*t82-3.24574402386552 4923 1 55d-5*t49*t61 4924 t100 = 1/rhoa**1.0666666666666666d+1 4925 t101 = 2.0919959445599998d-5*gammaaa*t44*t51*t70*t88+2.09199 4926 1 59445599998d-5*t49*t52*t53*t88+2.0919959445599998d-5*t100 4927 2 *t47*t48*t88+6.973319815199999d-6*gammaaa*t54*t66*t70-1.4 4928 3 938079999999998d-2*gammaaa*t47*t66*t70+6.973319815199999d 4929 4 -6*t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3* 4930 5 t49*t50*t54+2*t47*t49*t50 4931 t102 = 1/rhoa**4 4932 t103 = 6.077066496460795d+1*t36*t40*t57*t9-1.823119948938238 4933 1 5d+2*t34*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78- 4934 2 3.342386573053437d+3*t12*t17*t57*t6+3.342386573053437d+3* 4935 3 t13*t14*t57*t58-6.077066496460795d+1*t37*t39*t57+1.823119 4936 4 9489382385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t3 4937 5 3*t38*t57+3.646239897876477d+2*t30*t34*t35*t57-6.07706649 4938 6 6460795d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t 4939 7 32*t57-9.115599744691192d+2*t25*t27*t32*t57+9.11559974469 4940 8 1192d+2*t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29* 4941 9 t57+1.276183964256767d+3*t21*t25*t26*t57-1.70157861900902 4942 : 26d+3*t19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t 4943 ; 57-2.187743938725886d+3*t16*t18*t23*t57+2.187743938725886 4944 < d+3*t15*t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+ 4945 = 2.734679923407357d+3*t12*t16*t17*t57 4946 t104 = 4.97936d-2*t44*t52*t66*t75*taua+1.24484d-2*t50*t55*t7 4947 1 5*taua-1.3333333333333333d+1*t50*t52*t75*taua+2.48968d-2* 4948 2 gammaaa*t51*t66*t74*taua+2.240712d-2*gammaaa*t44*t51*t65* 4949 3 t75*t88+2.240712d-2*t47*t48*t65*t74*t88+2.240712d-2*t43*t 4950 4 52*t53*t65*t88+7.46904d-3*gammaaa*t54*t65*t66*t75-4.0d+0* 4951 5 gammaaa*t51*t65*t66*t75+5.228328d-2*t47*t48*t66*t70+7.469 4952 6 04d-3*t43*t44*t55*t65*t66-8.0d+0*t43*t44*t52*t65*t66+1.24 4953 7 484d-2*t1*t52*t53*t66+3.236584d-2*gammaaa*t44*t49*t51*t66 4954 8 -2.0d+0*t43*t50*t55*t65+6.2242d-3*t1*t44*t50*t55-3.333333 4955 9 3333333337d+0*t1*t46*t55+1.618292d-2*gammaaa*t49*t50*t54- 4956 : 6.666666666666667d+0*t1*t44*t50*t52-8.666666666666666d+0* 4957 ; gammaaa*t49*t50*t51 4958 t105 = 1.3333333333333333d+0*t60*t76+1.0d+0*t104*t5 4959 t106 = 1/rhoa**9.666666666666666d+0 4960 t107 = 4.1839918891199995d-5*t52*t53*t75*t88+4.1839918891199 4961 1 995d-5*gammaaa*t44*t51*t74*t88+4.1839918891199995d-5*t106 4962 2 *t47*t48*t88+1.3946639630399998d-5*t44*t55*t66*t75-1.4938 4963 3 079999999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t7 4964 4 5-3.73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t5 4965 5 0*t51*t75+1.3946639630399998d-5*gammaaa*t54*t66*t74-7.469 4966 6 04d-3*gammaaa*t51*t66*t74-1.4938079999999998d-2*gammaaa*t 4967 7 47*t66*t74 4968 t108 = 1/rhoa**3 4969 t109 = 8.0d+0*t36*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9 4970 1 +5.28d+2*t10*t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+ 4971 2 4.4d+2*t13*t14*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t 4972 3 33*t37*t38+7.2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t 4973 4 30*t34*t35+1.28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1* 4974 5 t27*t31*t32+2.0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2* 4975 6 t24*t28*t29+2.88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d 4976 7 +2*t21*t25*t26+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2. 4977 8 24d+2*t18*t22*t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23 4978 9 +2.88d+2*t15*t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t 4979 : 20+3.6d+2*t12*t16*t17+8.0d+2*t12*t13*t17 4980 t110 = 1/rhoa**8.666666666666666d+0 4981 t111 = 1/rhoa**6 4982 t112 = 1/rhoa**3.3333333333333337d+0 4983 t113 = 8.367983778239999d-5*t112*t52*t53*t88+8.3679837782399 4984 1 99d-5*gammaaa*t111*t44*t51*t88+8.367983778239999d-5*t110* 4985 2 t47*t48*t88+2.7893279260799997d-5*t112*t44*t55*t66+2.7893 4986 3 279260799997d-5*gammaaa*t111*t54*t66-5.975231999999999d-2 4987 4 *t112*t44*t52*t66-2.9876159999999996d-2*gammaaa*t111*t51* 4988 5 t66-1.4938079999999998d-2*t112*t50*t55+8.0d+0*t112*t50*t5 4989 6 2 4990 t114 = rhoa**2 4991 t115 = 1/t114 4992 t116 = 1/t11**14 4993 t117 = 1/t2**4 4994 t118 = 1/rhoa**8.333333333333334d+0 4995 t119 = 1/rhoa**5.666666666666667d+0 4996 t120 = t65**3 4997 t121 = 1/t45**5 4998 t122 = -6.085884444444444d-2*t85*taua-8.520238222222222d-2*g 4999 1 ammaaa*t119 5000 t123 = 1/rhoa**1.1666666666666665d+1 5001 t124 = 1/rhoa**5 5002 t125 = 1/rhoa**7.666666666666667d+0 5003 fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5) 5004 1 *wght+fnc(iq) 5005 Amat(iq,D1_RA) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634 5006 1 90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30 5007 2 5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RA) 5008 Cmat(iq,D1_GAA) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71 5009 1 -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GAA) 5010 Mmat(iq,D1_TA) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76- 5011 1 9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TA) 5012 Mmat(iq,D1_TB) = Mmat(iq,D1_TB) 5013 Amat2(iq,D2_RA_RA) = (t50*t93+t46*t92+2.0d+0*t5*t56*t66*t87- 5014 1 9.305257363490997d-1*t42*t5*t86-4.1356699393293317d-1*t4* 5015 2 t42*t80-9.305257363490997d-1*t4*t5*t79-2.481401963597599d 5016 3 +0*t42*t60*t64-1.8610514726981994d+0*t5*t59*t64-2.4814019 5017 4 63597599d+0*t4*t59*t60)*wght+Amat2(iq,D2_RA_RA) 5018 Cmat2(iq,D2_RA_GAA) = (t46*t98+4.9793599999999993d-3*t50*t56 5019 1 *t96-9.305257363490997d-1*t42*t5*t95+3.73452d-3*t56*t65*t 5020 2 66*t72-1.0d+0*t5*t50*t65*t71-1.2407009817987995d+0*t42*t6 5021 3 0*t69-9.305257363490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t 5022 4 68)*wght+Cmat2(iq,D2_RA_GAA) 5023 Cmat2(iq,D2_GAA_GAA) = (-9.305257363490997d-1*t42*t5*t99-3.7 5024 1 3452d-3*t50*t71*t72+6.973319815199999d-6*t102*t56*t66+1.0 5025 2 d+0*t101*t46*t5)*wght+Cmat2(iq,D2_GAA_GAA) 5026 Mmat2(iq,D2_RA_TA) = (7.46904d-3*t56*t65*t66*t77-1.0d+0*t5*t 5027 1 50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.240700981798 5028 2 7995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73452d-3*t43*t 5029 3 50*t68-9.305257363490997d-1*t103*t4*t5+t105*t46)*wght+Mma 5030 4 t2(iq,D2_RA_TA) 5031 Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB) 5032 Mmat2(iq,D2_GAA_TA) = (-3.73452d-3*t50*t71*t77-1.86726d-3*t5 5033 1 0*t72*t76-9.305257363490997d-1*t5*t69*t73+1.3946639630399 5034 2 998d-5*t108*t56*t66+1.0d+0*t107*t46*t5)*wght+Mmat2(iq,D2_ 5035 3 GAA_TA) 5036 Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB) 5037 Mmat2(iq,D2_TA_TA) = (-7.46904d-3*t50*t76*t77+2.789327926079 5038 1 9997d-5*t115*t56*t66+1.0d+0*t113*t46*t5-9.305257363490997 5039 2 d-1*t109*t4*t5)*wght+Mmat2(iq,D2_TA_TA) 5040 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 5041 Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB) 5042 Amat3(iq,D3_RA_RA_RA) = (t46*(1.0d+0*t5*(4.0d+1*t1*t44*t52*t 5043 1 66*t89*taua+2.0d+1*gammaaa*t49*t51*t66*t89*taua+1.0d+1*t1 5044 2 *t50*t55*t89*taua-1.2d+2*t1*t44*t52*t87*t88*taua-6.0d+1*g 5045 3 ammaaa*t49*t51*t87*t88*taua-2.0d+1*t1*t55*t66*t87*taua-3. 5046 4 2592592592592595d+1*t46*t55*t85*taua-6.518518518518519d+1 5047 5 *t44*t50*t52*t85*taua-2.0148148148148146d+2*gammaaa*t50*t 5048 6 51*t84*taua-1.0666666666666667d+2*t44*t52*t63*t65*t66*tau 5049 7 a-1.6d+2*gammaaa*t51*t62*t65*t66*taua-2.6666666666666666d 5050 8 +1*t50*t55*t63*t65*taua-1.3333333333333333d+2*t49*t52*t65 5051 9 *t66*t90-1.777777777777778d+2*t50*t52*t62*t90+18*t52*t53* 5052 : t65*t88*t89+18*gammaaa*t1*t44*t51*t65*t88*t89+18*t47*t48* 5053 ; t49*t65*t88*t89+6*t44*t55*t65*t66*t89+6*gammaaa*t1*t54*t6 5054 < 5*t66*t89+16*gammaaa*t44*t51*t63*t66*t89+32*t47*t48*t62*t 5055 = 66*t89+8*gammaaa*t50*t54*t63*t89-48*gammaaa*t44*t51*t63*t 5056 > 87*t88-96*t47*t48*t62*t87*t88-6*t120*t44*t55*t88-6*gammaa 5057 ? a*t1*t120*t54*t88-16*gammaaa*t54*t63*t66*t87-5.8666666666 5058 @ 66667d+1*gammaaa*t44*t51*t65*t66*t85-2.9333333333333333d+ 5059 1 1*gammaaa*t50*t54*t65*t85-2.0266666666666666d+2*t47*t48*t 5060 2 65*t66*t84-2*t122*t52*t53*t66-2*gammaaa*t1*t122*t44*t51*t 5061 3 66-2*t122*t47*t48*t49*t66-t122*t44*t50*t55-gammaaa*t1*t12 5062 4 2*t50*t54-4.5629629629629626d+1*gammaaa*t119*t46*t54-24*t 5063 5 120*t121*t52*t53-4.5629629629629626d+1*gammaaa*t119*t44*t 5064 6 50*t51-24*gammaaa*t1*t120*t121*t44*t51-2.477037037037037d 5065 7 +2*t118*t47*t48*t50-24*t120*t121*t47*t48*t49)+4.0d+0*t60* 5066 8 t91+1.3333333333333333d+0*t67*t80-2.962962962962963d-1*t4 5067 9 3*t56)+t66*(-2*t65*t93+4.0d+0*t5*t56*t65*t89+2.0d+0*t5*t6 5068 : 7*t87+2.6666666666666666d+0*t56*t60*t87)+t50*(-2*t65*t92- 5069 ; 1.0d+0*t5*t65*t91-t68*t89-2.0d+0*t5*t67*t89-2.66666666666 5070 < 66666d+0*t56*t60*t89-4.444444444444444d-1*t56*t65*t80-2.6 5071 = 666666666666666d+0*t60*t65*t67-1.0d+0*t122*t5*t56)-9.3052 5072 > 57363490997d-1*t4*t5*(3.37614805358933d+0*t39*t40*t72*t9- 5073 ? 6.75229610717866d+0*t37*t39*t72*t9+9.232684300601568d+2*t 5074 @ 36*t40*t60*t9-3.693073720240627d+3*t36*t37*t60*t9+2.76980 5075 1 5290180471d+3*t34*t36*t60*t9-2.104036366334451d+4*t114*t3 5076 2 3*t40*t9+1.2624218198006704d+5*t114*t33*t37*t9-1.89363272 5077 3 97010064d+5*t114*t33*t34*t9+8.416145465337804d+4*t114*t31 5078 4 *t33*t9+6.093571638397036d+4*t10*t6*t60*t78+1.52753040195 5079 5 88112d+7*t114*t14*t6*t78-4.628880005935792d+6*t114*t13*t1 5080 6 4*t78+3.713762858948263d+1*t10*t58*t6*t72-3.7137628589482 5081 7 63d+1*t12*t14*t6*t72-3.37614805358933d+0*t40*t41*t72+6.75 5082 8 229610717866d+0*t36*t37*t38*t72-1.0128444160767991d+1*t34 5083 9 *t36*t38*t72+1.0128444160767991d+1*t33*t34*t35*t72-1.3504 5084 : 59221435732d+1*t31*t33*t35*t72+1.350459221435732d+1*t30*t 5085 ; 31*t32*t72-1.6880740267946648d+1*t28*t30*t32*t72+1.688074 5086 < 0267946648d+1*t27*t28*t29*t72-2.0256888321535982d+1*t25*t 5087 = 27*t29*t72+2.0256888321535982d+1*t24*t25*t26*t72-2.363303 5088 > 6375125308d+1*t22*t24*t26*t72+2.3633036375125308d+1*t21*t 5089 ? 22*t23*t72-2.700918442871464d+1*t19*t21*t23*t72+2.7009184 5090 @ 42871464d+1*t18*t19*t20*t72-3.0385332482303967d+1*t16*t18 5091 1 *t20*t72+3.0385332482303967d+1*t15*t16*t17*t72-3.37614805 5092 2 35893296d+1*t13*t15*t17*t72+3.3761480535893296d+1*t12*t13 5093 3 *t14*t72-1.1171548003727898d+5*t14*t58*t6*t60+5.077976365 5094 4 330863d+4*t12*t17*t6*t60+5.077976365330862d+4*t13*t14*t58 5095 5 *t60-9.232684300601568d+2*t39*t40*t60+9.232684300601568d+ 5096 6 2*t37*t39*t60+2.769805290180471d+3*t33*t37*t38*t60-8.3094 5097 7 15870541413d+3*t33*t34*t38*t60+5.539610580360942d+3*t31*t 5098 8 33*t38*t60+5.539610580360942d+3*t30*t34*t35*t60-1.4772294 5099 9 880962508d+4*t30*t31*t35*t60+9.232684300601568d+3*t28*t30 5100 : *t35*t60+9.232684300601568d+3*t27*t31*t32*t60-2.308171075 5101 ; 150392d+4*t27*t28*t32*t60+1.3849026450902355d+4*t25*t27*t 5102 < 32*t60+1.3849026450902355d+4*t24*t28*t29*t60-3.3237663482 5103 = 16566d+4*t24*t25*t29*t60+1.9388637031263292d+4*t22*t24*t2 5104 > 9*t60+1.9388637031263292d+4*t21*t25*t26*t60-4.52401530729 5105 ? 47686d+4*t21*t22*t26*t60+2.585151604168439d+4*t19*t21*t26 5106 @ *t60+2.585151604168439d+4*t18*t22*t23*t60-5.9089179523850 5107 1 03d+4*t18*t19*t23*t60+3.3237663482165647d+4*t16*t18*t23*t 5108 2 60+3.3237663482165647d+4*t15*t19*t20*t60-7.47847428348727 5109 3 1d+4*t15*t16*t20*t60+4.154707935270705d+4*t13*t15*t20*t60 5110 4 +4.1547079352707056d+4*t12*t16*t17*t60-9.232684300601568d 5111 5 +4*t12*t13*t17*t60-1.2729420016323426d+7*t114*t17*t58*t6+ 5112 6 3.4716600044518436d+6*t114*t12*t20*t6-6.01754400771653d+6 5113 7 *t10*t114*t116*t6-3.4716600044518436d+6*t114*t16*t17*t58+ 5114 8 1.1572200014839477d+7*t114*t13*t17*t58+2.104036366334451d 5115 9 +4*t114*t36*t40-8.416145465337804d+4*t114*t30*t37*t38+3.7 5116 : 87265459402013d+5*t114*t30*t34*t38-5.049687279202681d+5*t 5117 ; 114*t30*t31*t38+2.1040363663344508d+5*t114*t28*t30*t38-4. 5118 < 208072732668902d+4*t114*t36*t37+2.104036366334451d+4*t114 5119 = *t34*t36-2.104036366334451d+5*t114*t27*t34*t35+8.41614546 5120 > 5337803d+5*t114*t27*t31*t35-1.0520181831672254d+6*t114*t2 5121 ? 7*t28*t35+4.208072732668902d+5*t114*t25*t27*t35-4.2080727 5122 @ 326689016d+5*t114*t24*t31*t32+1.578027274750838d+6*t114*t 5123 1 24*t28*t32-1.893632729701006d+6*t114*t24*t25*t32+7.364127 5124 2 282170578d+5*t114*t22*t24*t32-7.364127282170578d+5*t114*t 5125 3 21*t28*t29+2.6510858215814087d+6*t114*t21*t25*t29-3.09293 5126 4 34585116436d+6*t114*t21*t22*t29+1.1782603651472927d+6*t11 5127 5 4*t19*t21*t29-1.1782603651472927d+6*t114*t18*t25*t26+4.12 5128 6 3911278015524d+6*t114*t18*t22*t26-4.713041460589171d+6*t1 5129 7 14*t18*t19*t26+1.767390547720939d+6*t114*t16*t18*t26-1.76 5130 8 73905477209387d+6*t114*t15*t22*t23+6.059624735043219d+6*t 5131 9 114*t15*t19*t23-6.817077826923622d+6*t114*t15*t16*t23+2.5 5132 : 24843639601341d+6*t114*t13*t15*t23-2.524843639601341d+6*t 5133 ; 114*t12*t19*t20+8.521347283654526d+6*t114*t12*t16*t20-9.4 5134 < 68163648505028d+6*t114*t12*t13*t20)-6.0d+0*t120*t5*t56*t8 5135 = 8-3.7221029453963983d+0*t42*t60*t86-2.791577209047299d+0* 5136 > t5*t59*t86-9.305257363490997d-1*t42*t5*(-1.97024140900374 5137 ? 43d-5*t81*t82/rhoa**11+3.279403591520427d-3*t118*t48*t61- 5138 @ 1.648227300332581d-1*gammaaa*t119*t3+3.7270905095708196d- 5139 1 8*gammaaa**4*t117/rhoa**1.3666666666666666d+1)+(-1.240700 5140 2 9817987995d+0*t42*t64-1.2407009817987995d+0*t4*t59)*t80-2 5141 3 .791577209047299d+0*t5*t64*t79-3.7221029453963983d+0*t4*t 5142 4 60*t79-7.444205890792797d+0*t59*t60*t64+2.757113292886221 5143 5 d-1*t4*t42*t43)*wght+Amat3(iq,D3_RA_RA_RA) 5144 Cmat3(iq,D3_RA_RA_GAA) = (t46*(1.0d+0*t5*(-1.659786666666666 5145 1 6d-1*gammaaa*t51*t66*t94*taua-7.46904d-2*gammaaa*t51*t65* 5146 2 t70*t88*taua-1.493808d-1*t44*t49*t52*t65*t88*taua-2.48968 5147 3 d-2*t49*t55*t65*t66*taua+1.3333333333333333d+1*t49*t51*t6 5148 4 5*t66*taua-1.9917439999999997d-1*t44*t52*t62*t66*taua-4.9 5149 5 793599999999993d-2*t50*t55*t62*taua+2.6666666666666666d+1 5150 6 *t50*t51*t62*taua-1.7925696d-1*t47*t48*t65*t88*t94-8.2989 5151 7 33333333335d-2*t52*t66*t70*t90+1.120356d-2*t47*t48*t70*t8 5152 8 8*t89+1.120356d-2*t1*t52*t53*t88*t89+1.120356d-2*gammaaa* 5153 9 t44*t49*t51*t88*t89+3.73452d-3*t1*t44*t55*t66*t89+3.73452 5154 : d-3*gammaaa*t49*t54*t66*t89-2*t1*t44*t51*t66*t89-4*gammaa 5155 ; a*t47*t49*t66*t89-t1*t50*t54*t89-1.120356d-2*t1*t44*t55*t 5156 < 87*t88-1.120356d-2*gammaaa*t49*t54*t87*t88+6*t1*t44*t51*t 5157 = 87*t88+12*gammaaa*t47*t49*t87*t88-5.975231999999999d-2*t5 5158 > 2*t53*t63*t65*t88-1.1950464d-1*gammaaa*t44*t51*t62*t65*t8 5159 ? 8-4.481424d-2*t121*t47*t48*t70*t87+2*t1*t54*t66*t87-4.481 5160 @ 424d-2*t1*t121*t52*t53*t87-4.481424d-2*gammaaa*t121*t44*t 5161 1 49*t51*t87-3.6515306666666664d-2*t52*t53*t66*t85-1.825765 5162 2 3333333332d-2*t44*t50*t55*t85+9.777777777777779d+0*t46*t5 5163 3 4*t85+9.777777777777779d+0*t44*t50*t51*t85-1.261437866666 5164 4 6665d-1*gammaaa*t44*t51*t66*t84-6.307189333333332d-2*gamm 5165 5 aaa*t50*t54*t84+6.755555555555556d+1*gammaaa*t47*t50*t84- 5166 6 2.6888544000000003d-1*t47*t48*t66*t83-1.9917439999999997d 5167 7 -2*t44*t55*t63*t65*t66+1.0666666666666666d+1*t44*t51*t63* 5168 8 t65*t66-3.9834879999999995d-2*gammaaa*t54*t62*t65*t66+4.2 5169 9 666666666666664d+1*gammaaa*t47*t62*t65*t66+5.333333333333 5170 : 333d+0*t50*t54*t63*t65)+2.6666666666666666d+0*t60*t97+4.4 5171 ; 44444444444444d-1*t71*t80)+t50*(-t65*t98-1.0d+0*t5*t65*t9 5172 < 7+4.9793599999999993d-3*t67*t96-1.0d+0*t5*t71*t89-1.33333 5173 = 33333333333d+0*t60*t65*t71+4.9793599999999993d-3*t63*t68- 5174 > 1.1618506666666667d-2*t112*t56)-1.9917439999999997d-2*t56 5175 ? *t65*t66*t96-2.481401963597599d+0*t42*t60*t95-1.861051472 5176 @ 6981994d+0*t5*t59*t95-3.73452d-3*t1*t66*t93-1.86726d-3*t1 5177 1 *t50*t92-1.120356d-2*t56*t72*t87*t88+2.0d+0*t5*t66*t71*t8 5178 2 7-9.305257363490997d-1*t42*t5*(3.531915643569816d-2*t3*t8 5179 3 5-9.376593846722628d-4*gammaaa*t61*t84+6.610678411788878d 5180 4 -6*t48*t82*t83-1.3976589410890572d-8*t117*t81/rhoa**1.266 5181 5 6666666666665d+1)-4.1356699393293317d-1*t42*t69*t80-9.305 5182 6 257363490997d-1*t5*t69*t79-2.481401963597599d+0*t59*t60*t 5183 7 69)*wght+Cmat3(iq,D3_RA_RA_GAA) 5184 Cmat3(iq,D3_RA_GAA_GAA) = (t46*(1.0d+0*t5*(-1.39466396303999 5185 1 98d-4*t44*t52*t70*t88*taua-6.9733198152d-5*gammaaa*t100*t 5186 2 51*t88*taua-2.3244399384d-5*t55*t66*t70*taua+2.48968d-2*t 5187 3 51*t66*t70*taua-1.6735967556479997d-4*gammaaa*t44*t51*t88 5188 4 *t94-5.578655852159999d-5*gammaaa*t54*t66*t94+1.1950464d- 5189 5 1*gammaaa*t47*t66*t94-2.0919959445599998d-5*gammaaa*t54*t 5190 6 65*t70*t88+4.481424d-2*gammaaa*t47*t65*t70*t88-2.09199594 5191 7 45599998d-5*t44*t49*t55*t65*t88+2.240712d-2*t44*t49*t51*t 5192 8 65*t88-1.1157311704319998d-4*t52*t53*t62*t88-2.2314623408 5193 9 639997d-4*t123*t47*t48*t88-8.367983778239999d-5*gammaaa*t 5194 : 121*t44*t51*t65*t70+7.46904d-3*t49*t54*t65*t66-4*t47*t49* 5195 ; t65*t66-3.7191039014399996d-5*t44*t55*t62*t66+3.983487999 5196 < 9999995d-2*t44*t51*t62*t66-8.367983778239999d-5*t121*t49* 5197 = t52*t53*t65-8.367983778239999d-5*t100*t121*t47*t48*t65+1. 5198 > 9917439999999997d-2*t50*t54*t62-1.0666666666666666d+1*t47 5199 ? *t50*t62)+1.3333333333333333d+0*t101*t60)-1.2407009817987 5200 @ 995d+0*t42*t60*t99-9.305257363490997d-1*t5*t59*t99-3.7345 5201 1 2d-3*t1*t50*t98+9.958719999999999d-3*t50*t71*t96-9.305257 5202 2 363490997d-1*t42*t5*(-1.944317179937905d-6*gammaaa*t82*t9 5203 3 4+1.731063479394947d-4*t61*t62+5.241221029083964d-9*t117* 5204 4 t123*t48)-2.0919959445599998d-5*t102*t56*t65*t88+7.46904d 5205 5 -3*t65*t66*t71*t72+6.973319815199999d-6*t49*t66*t68-3.719 5206 6 1039014399996d-5*t124*t56*t66-1.0d+0*t101*t5*t50*t65)*wgh 5207 7 t+Cmat3(iq,D3_RA_GAA_GAA) 5208 Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*t46*t5*(-3.90630034743910 5209 1 45d-8*t44*t55*t70*t88+6.275987833679999d-5*t44*t51*t70*t8 5210 2 8-3.9063003474391045d-8*gammaaa*t100*t54*t88+1.2551975667 5211 3 36d-4*gammaaa*t100*t47*t88+2.0919959445599995d-5*t54*t66* 5212 4 t70-2.240712d-2*t47*t66*t70-1.562520138975642d-7*t121*t52 5213 5 *t53*t70-1.562520138975642d-7*gammaaa*t100*t121*t44*t51-1 5214 6 .562520138975642d-7*t121*t47*t48/rhoa**1.3333333333333333 5215 7 d+1)-3.9063003474391045d-8*t56*t88/rhoa**6.66666666666666 5216 8 7d+0-9.305257363490997d-1*t42*t5*(4.374713654860287d-7*t7 5217 9 0*t82-1.965457885906487d-9*gammaaa*t100*t117)-5.60178d-3* 5218 : t101*t50*t72+2.0919959445599995d-5*t102*t66*t71)*wght+Cma 5219 ; t3(iq,D3_GAA_GAA_GAA) 5220 Mmat3(iq,D3_RA_RA_TA) = (t46*(1.0d+0*t5*(-2.987616d-1*t44*t5 5221 1 2*t65*t75*t88*taua-1.493808d-1*gammaaa*t51*t65*t74*t88*ta 5222 2 ua-4.97936d-2*t55*t65*t66*t75*taua+5.333333333333333d+1*t 5223 3 52*t65*t66*t75*taua-2.8216373333333333d-1*gammaaa*t51*t66 5224 4 *t70*taua-2.9876159999999996d-1*t44*t49*t52*t66*taua-7.46 5225 5 9039999999999d-2*t49*t50*t55*taua+8.0d+1*t49*t50*t52*taua 5226 6 -4.1826624d-1*t47*t48*t66*t94-1.659786666666667d-1*t52*t6 5227 7 6*t74*t90+2.240712d-2*gammaaa*t44*t51*t75*t88*t89+2.24071 5228 8 2d-2*t47*t48*t74*t88*t89+2.240712d-2*t43*t52*t53*t88*t89+ 5229 9 7.46904d-3*gammaaa*t54*t66*t75*t89-4.0d+0*gammaaa*t51*t66 5230 : *t75*t89+7.46904d-3*t43*t44*t55*t66*t89-8.0d+0*t43*t44*t5 5231 ; 2*t66*t89-2.0d+0*t43*t50*t55*t89-2.240712d-2*gammaaa*t54* 5232 < t75*t87*t88+1.2d+1*gammaaa*t51*t75*t87*t88-2.240712d-2*t4 5233 = 3*t44*t55*t87*t88+2.4d+1*t43*t44*t52*t87*t88-3.1369968d-1 5234 > *t47*t48*t65*t70*t88-7.46904d-2*t1*t52*t53*t65*t88-1.9419 5235 ? 503999999999d-1*gammaaa*t44*t49*t51*t65*t88-8.962848d-2*g 5236 @ ammaaa*t121*t44*t51*t75*t87-8.962848d-2*t121*t47*t48*t74* 5237 1 t87+4.0d+0*t43*t55*t66*t87-8.962848d-2*t121*t43*t52*t53*t 5238 2 87-2.48968d-2*t1*t44*t55*t65*t66-6.473168d-2*gammaaa*t49* 5239 3 t54*t65*t66+2.6666666666666666d+1*t1*t44*t52*t65*t66+3.46 5240 4 6666666666666d+1*gammaaa*t49*t51*t65*t66-3.31957333333333 5241 5 3d-2*t52*t53*t63*t66-1.7261781333333331d-1*gammaaa*t44*t5 5242 6 1*t62*t66+6.666666666666667d+0*t1*t50*t55*t65-1.659786666 5243 7 6666666d-2*t44*t50*t55*t63+8.88888888888889d+0*t46*t55*t6 5244 8 3+1.7777777777777778d+1*t44*t50*t52*t63-8.630890666666666 5245 9 d-2*gammaaa*t50*t54*t62+4.622222222222223d+1*gammaaa*t50* 5246 : t51*t62)+4.444444444444444d-1*t76*t80+2.6666666666666666d 5247 ; +0*t104*t60)+t50*(-8.298933333333333d-3*t56*t96-1.0d+0*t5 5248 < *t76*t89-1.3333333333333333d+0*t60*t65*t76+6.2242d-3*t67* 5249 = t72+6.2242d-3*t1*t68-1.0d+0*t104*t5*t65-t105*t65)-7.46904 5250 > d-3*t43*t66*t93-3.73452d-3*t43*t50*t92-9.305257363490997d 5251 ? -1*t4*t5*(4.0513776643071964d+1*t36*t40*t77*t9-1.21541329 5252 @ 92921589d+2*t34*t36*t77*t9-2.769805290180471d+3*t33*t40*t 5253 1 5*t9+5.539610580360942d+3*t33*t37*t5*t9+8.309415870541416 5254 2 d+3*t33*t34*t5*t9-1.1079221160721883d+4*t31*t33*t5*t9+2.6 5255 3 739092584427493d+3*t10*t6*t77*t78+6.702928802236738d+5*t1 5256 4 4*t5*t6*t78-6.093571638397035d+5*t13*t14*t5*t78-2.2282577 5257 5 15368958d+3*t12*t17*t6*t77+2.2282577153689576d+3*t13*t14* 5258 6 t58*t77-4.0513776643071964d+1*t37*t39*t77+1.2154132992921 5259 7 589d+2*t33*t37*t38*t77-2.4308265985843178d+2*t31*t33*t38* 5260 8 t77+2.4308265985843178d+2*t30*t34*t35*t77-4.0513776643071 5261 9 96d+2*t28*t30*t35*t77+4.0513776643071964d+2*t27*t31*t32*t 5262 : 77-6.077066496460795d+2*t25*t27*t32*t77+6.077066496460793 5263 ; d+2*t24*t28*t29*t77-8.507893095045111d+2*t22*t24*t29*t77+ 5264 < 8.507893095045113d+2*t21*t25*t26*t77-1.1343857460060149d+ 5265 = 3*t19*t21*t26*t77+1.1343857460060149d+3*t18*t22*t23*t77-1 5266 > .4584959591505905d+3*t16*t18*t23*t77+1.4584959591505908d+ 5267 ? 3*t15*t19*t20*t77-1.8231199489382383d+3*t13*t15*t20*t77+1 5268 @ .8231199489382383d+3*t12*t16*t17*t77+5.585774001863949d+5 5269 1 *t17*t5*t58*t6-4.5701787287977763d+5*t12*t20*t5*t6-7.9216 5270 2 43129916147d+5*t10*t116*t5*t6-4.5701787287977763d+5*t16*t 5271 3 17*t5*t58+5.077976365330863d+5*t13*t17*t5*t58+9.232684300 5272 4 601569d+2*t36*t40*t5-1.1079221160721883d+4*t30*t37*t38*t5 5273 5 +1.6618831741082832d+4*t30*t34*t38*t5+2.2158442321443766d 5274 6 +4*t30*t31*t38*t5-2.7698052901804704d+4*t28*t30*t38*t5+1. 5275 7 846536860120314d+3*t36*t37*t5-2.769805290180471d+3*t34*t3 5276 8 6*t5-2.769805290180471d+4*t27*t34*t35*t5+3.69307372024062 5277 9 9d+4*t27*t31*t35*t5+4.616342150300784d+4*t27*t28*t35*t5-5 5278 : .539610580360942d+4*t25*t27*t35*t5-5.539610580360941d+4*t 5279 ; 24*t31*t32*t5+6.924513225451174d+4*t24*t28*t32*t5+8.30941 5280 < 5870541416d+4*t24*t25*t32*t5-9.694318515631648d+4*t22*t24 5281 = *t32*t5-9.694318515631648d+4*t21*t28*t29*t5+1.16331822187 5282 > 57979d+5*t21*t25*t29*t5+1.3572045921884307d+5*t21*t22*t29 5283 ? *t5-1.5510909625010635d+5*t19*t21*t29*t5-1.55109096250106 5284 @ 38d+5*t18*t25*t26*t5+1.809606122917908d+5*t18*t22*t26*t5+ 5285 1 2.0681212833347515d+5*t18*t19*t26*t5-2.3266364437515952d+ 5286 2 5*t16*t18*t26*t5-2.3266364437515955d+5*t15*t22*t23*t5+2.6 5287 3 59013078573252d+5*t15*t19*t23*t5+2.9913897133949086d+5*t1 5288 4 5*t16*t23*t5-3.3237663482165647d+5*t13*t15*t23*t5-3.32376 5289 5 6348216565d+5*t12*t19*t20*t5+3.7392371417436354d+5*t12*t1 5290 6 6*t20*t5+4.1547079352707056d+5*t12*t13*t20*t5)-2.240712d- 5291 7 2*t56*t77*t87*t88+2.0d+0*t5*t66*t76*t87-9.305257363490997 5292 8 d-1*t5*t73*t86-4.1356699393293317d-1*t4*t73*t80-2.4814019 5293 9 63597599d+0*t60*t64*t73-2.48968d-2*t56*t65*t66*t72-1.8610 5294 : 514726981994d+0*t103*t5*t64-2.481401963597599d+0*t103*t4* 5295 ; t60)*wght+Mmat3(iq,D3_RA_RA_TA) 5296 Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB) 5297 Mmat3(iq,D3_RA_GAA_TA) = (t46*(1.0d+0*t5*(-2.789327926079999 5298 1 7d-4*t44*t52*t74*t88*taua-1.3946639630399998d-4*gammaaa*t 5299 2 106*t51*t88*taua-4.6488798768d-5*t55*t66*t74*taua+4.97936 5300 3 d-2*t52*t66*t74*taua+2.48968d-2*t51*t66*t74*taua-4.183991 5301 4 8891199995d-5*t44*t55*t65*t75*t88+4.481424d-2*t44*t52*t65 5302 5 *t75*t88+2.240712d-2*t44*t51*t65*t75*t88-4.18399188911999 5303 6 95d-5*gammaaa*t54*t65*t74*t88+2.240712d-2*gammaaa*t51*t65 5304 7 *t74*t88+4.481424d-2*gammaaa*t47*t65*t74*t88-2.9287943223 5305 8 839996d-4*gammaaa*t44*t51*t70*t88-1.8130631519519996d-4*t 5306 9 49*t52*t53*t88-4.044525492816d-4*t100*t47*t48*t88+7.46904 5307 : d-3*t55*t65*t66*t75+7.46904d-3*t54*t65*t66*t75-4.0d+0*t51 5308 ; *t65*t66*t75-1.673596755648d-4*t121*t52*t53*t65*t75-1.673 5309 < 596755648d-4*gammaaa*t121*t44*t51*t65*t74-9.76264774128d- 5310 = 5*gammaaa*t54*t66*t70+5.228328d-2*gammaaa*t51*t66*t70+1.0 5311 > 456655999999999d-1*gammaaa*t47*t66*t70-6.043543839839999d 5312 ? -5*t44*t49*t55*t66+6.473168d-2*t44*t49*t52*t66+3.236584d- 5313 @ 2*t44*t49*t51*t66-1.673596755648d-4*t106*t121*t47*t48*t65 5314 1 +1.618292d-2*t49*t50*t55+1.618292d-2*t49*t50*t54-8.666666 5315 2 666666666d+0*t49*t50*t51)+1.3333333333333333d+0*t107*t60) 5316 3 -3.73452d-3*t43*t50*t98+4.9793599999999993d-3*t50*t76*t96 5317 4 -9.305257363490997d-1*t5*t73*t95-4.1839918891199995d-5*t1 5318 5 08*t56*t65*t88+7.46904d-3*t65*t66*t71*t77+3.73452d-3*t65* 5319 6 t66*t72*t76+1.3946639630399998d-5*t66*t68*t75-1.240700981 5320 7 7987995d+0*t60*t69*t73+6.2242d-3*t50*t71*t72-9.3052573634 5321 8 90997d-1*t103*t5*t69-6.043543839839999d-5*t102*t56*t66-1. 5322 9 0d+0*t107*t5*t50*t65-1.86726d-3*t1*t105*t50)*wght+Mmat3(i 5323 : q,D3_RA_GAA_TA) 5324 Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB) 5325 Mmat3(iq,D3_GAA_GAA_TA) = (-9.305257363490997d-1*t5*t73*t99+ 5326 1 1.0d+0*t46*t5*(-7.812600694878209d-8*t44*t55*t74*t88+8.36 5327 2 7983778239999d-5*t44*t52*t74*t88+8.367983778239999d-5*t44 5328 3 *t51*t74*t88-7.812600694878209d-8*gammaaa*t106*t54*t88+4. 5329 4 1839918891199995d-5*gammaaa*t106*t51*t88+1.673596755648d- 5330 5 4*gammaaa*t106*t47*t88+1.3946639630399998d-5*t55*t66*t74+ 5331 6 2.7893279260799997d-5*t54*t66*t74-1.4938079999999998d-2*t 5332 7 51*t66*t74-1.4938079999999998d-2*t47*t66*t74-3.1250402779 5333 8 51284d-7*t121*t52*t53*t74-3.125040277951284d-7*gammaaa*t1 5334 9 06*t121*t44*t51-3.125040277951284d-7*t121*t47*t48/rhoa**1 5335 : .2333333333333334d+1)-7.812600694878209d-8*t119*t56*t88-3 5336 ; .73452d-3*t101*t50*t77+6.973319815199999d-6*t102*t66*t76- 5337 < 3.73452d-3*t107*t50*t72+2.7893279260799997d-5*t108*t66*t7 5338 = 1)*wght+Mmat3(iq,D3_GAA_GAA_TA) 5339 Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB) 5340 Mmat3(iq,D3_RA_TA_TA) = (t46*(1.0d+0*t5*(-5.578655852159999d 5341 1 -4*t111*t44*t52*t88*taua-2.7893279260799997d-4*gammaaa*t1 5342 2 10*t51*t88*taua-9.2977597536d-5*t111*t55*t66*taua+1.99174 5343 3 4d-1*t111*t52*t66*taua-2.7893279260799997d-4*t52*t53*t75* 5344 4 t88-5.020790266944d-4*gammaaa*t44*t51*t74*t88-8.367983778 5345 5 239999d-5*t112*t44*t55*t65*t88-8.367983778239999d-5*gamma 5346 6 aa*t111*t54*t65*t88+1.7925696d-1*t112*t44*t52*t65*t88+8.9 5347 7 62848d-2*gammaaa*t111*t51*t65*t88-7.252252607808d-4*t106* 5348 8 t47*t48*t88-9.2977597536d-5*t44*t55*t66*t75+1.991744d-1*t 5349 9 44*t52*t66*t75+4.97936d-2*t50*t55*t75-2.6666666666666666d 5350 : +1*t50*t52*t75-1.673596755648d-4*gammaaa*t54*t66*t74+1.79 5351 ; 25696000000002d-1*gammaaa*t51*t66*t74+2.9876159999999996d 5352 < -2*t112*t55*t65*t66-1.6d+1*t112*t52*t65*t66-3.34719351129 5353 = 6d-4*t112*t121*t52*t53*t65-3.347193511296d-4*gammaaa*t111 5354 > *t121*t44*t51*t65-3.347193511296d-4*t110*t121*t47*t48*t65 5355 ? )+1.3333333333333333d+0*t113*t60)-9.305257363490997d-1*t4 5356 @ *t5*(-3.646239897876477d+2*t33*t40*t57*t9-7.2924797957529 5357 1 54d+2*t33*t37*t57*t9+1.0938719693629433d+3*t33*t34*t57*t9 5358 2 +1.4584959591505908d+3*t31*t33*t57*t9-8.823900552861074d+ 5359 3 4*t14*t57*t6*t78-8.021727775328248d+4*t13*t14*t57*t78+7.3 5360 4 53250460717561d+4*t17*t57*t58*t6+6.016295831496187d+4*t12 5361 5 *t20*t57*t6-1.0428246107926724d+5*t10*t116*t57*t6-6.01629 5362 6 5831496187d+4*t16*t17*t57*t58-6.684773146106873d+4*t13*t1 5363 7 7*t57*t58-1.2154132992921589d+2*t36*t40*t57-1.45849595915 5364 8 05908d+3*t30*t37*t38*t57-2.1877439387258865d+3*t30*t34*t3 5365 9 8*t57+2.9169919183011817d+3*t30*t31*t38*t57+3.64623989787 5366 : 6477d+3*t28*t30*t38*t57+2.4308265985843178d+2*t36*t37*t57 5367 ; +3.646239897876477d+2*t34*t36*t57-3.646239897876477d+3*t2 5368 < 7*t34*t35*t57-4.8616531971686355d+3*t27*t31*t35*t57+6.077 5369 = 066496460795d+3*t27*t28*t35*t57+7.292479795752954d+3*t25* 5370 > t27*t35*t57-7.292479795752954d+3*t24*t31*t32*t57-9.115599 5371 ? 744691192d+3*t24*t28*t32*t57+1.0938719693629431d+4*t24*t2 5372 @ 5*t32*t57+1.2761839642567668d+4*t22*t24*t32*t57-1.2761839 5373 1 642567668d+4*t21*t28*t29*t57-1.5314207571081204d+4*t21*t2 5374 2 5*t29*t57+1.786657549959474d+4*t21*t22*t29*t57+2.04189434 5375 3 28108272d+4*t19*t21*t29*t57-2.0418943428108272d+4*t18*t25 5376 4 *t26*t57-2.3822100666126317d+4*t18*t22*t26*t57+2.72252579 5377 5 0414436d+4*t18*t19*t26*t57+3.062841514216241d+4*t16*t18*t 5378 6 26*t57-3.062841514216241d+4*t15*t22*t23*t57-3.50039030196 5379 7 14174d+4*t15*t19*t23*t57+3.9379390897065947d+4*t15*t16*t2 5380 8 3*t57+4.375487877451772d+4*t13*t15*t23*t57-4.375487877451 5381 9 772d+4*t12*t19*t20*t57-4.9224238621332433d+4*t12*t16*t20* 5382 : t57+5.469359846814714d+4*t12*t13*t20*t57)-8.3679837782399 5383 ; 99d-5*t115*t56*t65*t88+1.4938079999999998d-2*t65*t66*t76* 5384 < t77+1.24484d-2*t50*t72*t76+2.7893279260799997d-5*t112*t66 5385 = *t68-9.2977597536d-5*t108*t56*t66-1.0d+0*t113*t5*t50*t65- 5386 > 9.305257363490997d-1*t109*t5*t64-1.2407009817987995d+0*t1 5387 ? 09*t4*t60-7.46904d-3*t105*t43*t50)*wght+Mmat3(iq,D3_RA_TA 5388 @ _TA) 5389 Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB) 5390 Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB) 5391 Mmat3(iq,D3_GAA_TA_TA) = (1.0d+0*t46*t5*(-1.5625201389756418 5392 1 d-7*t111*t44*t55*t88-1.5625201389756418d-7*gammaaa*t110*t 5393 2 54*t88+3.347193511296d-4*t111*t44*t52*t88+8.3679837782399 5394 3 99d-5*t111*t44*t51*t88+1.673596755648d-4*gammaaa*t110*t51 5395 4 *t88+1.673596755648d-4*gammaaa*t110*t47*t88+5.57865585215 5396 5 9999d-5*t111*t55*t66+2.7893279260799997d-5*t111*t54*t66-2 5397 6 .9876159999999996d-2*t111*t52*t66-2.9876159999999996d-2*t 5398 7 111*t51*t66-6.250080555902569d-7*t111*t121*t52*t53-6.2500 5399 8 80555902569d-7*gammaaa*t110*t121*t44*t51-6.25008055590256 5400 9 9d-7*t121*t47*t48/rhoa**1.1333333333333334d+1)-1.56252013 5401 : 89756418d-7*t56*t85*t88-7.46904d-3*t107*t50*t77+2.7893279 5402 ; 260799997d-5*t108*t66*t76-1.86726d-3*t113*t50*t72+2.78932 5403 < 79260799997d-5*t115*t66*t71-9.305257363490997d-1*t109*t5* 5404 = t69)*wght+Mmat3(iq,D3_GAA_TA_TA) 5405 Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB) 5406 Mmat3(iq,D3_GAA_TB_TB) = Mmat3(iq,D3_GAA_TB_TB) 5407 Mmat3(iq,D3_TA_TA_TA) = (-9.305257363490997d-1*t4*t5*(-4.8d+ 5408 1 1*t33*t40*t9-2.88d+2*t33*t37*t9-4.32d+2*t33*t34*t9-1.92d+ 5409 2 2*t31*t33*t9-3.4848d+4*t14*t6*t78-1.056d+4*t13*t14*t78-2. 5410 3 904d+4*t17*t58*t6-7.92d+3*t12*t20*t6-1.3728d+4*t10*t116*t 5411 4 6-7.92d+3*t16*t17*t58-2.64d+4*t13*t17*t58-4.8d+1*t36*t40- 5412 5 1.92d+2*t30*t37*t38-8.64d+2*t30*t34*t38-1.152d+3*t30*t31* 5413 6 t38-4.8d+2*t28*t30*t38-9.6d+1*t36*t37-4.8d+1*t34*t36-4.8d 5414 7 +2*t27*t34*t35-1.92d+3*t27*t31*t35-2.4d+3*t27*t28*t35-9.6 5415 8 d+2*t25*t27*t35-9.6d+2*t24*t31*t32-3.6d+3*t24*t28*t32-4.3 5416 9 2d+3*t24*t25*t32-1.68d+3*t22*t24*t32-1.68d+3*t21*t28*t29- 5417 : 6.048d+3*t21*t25*t29-7.056d+3*t21*t22*t29-2.688d+3*t19*t2 5418 ; 1*t29-2.688d+3*t18*t25*t26-9.408d+3*t18*t22*t26-1.0752d+4 5419 < *t18*t19*t26-4.032d+3*t16*t18*t26-4.032d+3*t15*t22*t23-1. 5420 = 3824d+4*t15*t19*t23-1.5552d+4*t15*t16*t23-5.76d+3*t13*t15 5421 > *t23-5.76d+3*t12*t19*t20-1.944d+4*t12*t16*t20-2.16d+4*t12 5422 ? *t13*t20)+1.0d+0*t46*t5*(-3.1250402779512837d-7*t124*t44* 5423 @ t55*t88-3.1250402779512837d-7*gammaaa*t125*t54*t88+1.0041 5424 1 580533887999d-3*t124*t44*t52*t88+5.020790266944d-4*gammaa 5425 2 a*t125*t51*t88+1.6735967556479997d-4*t124*t55*t66-1.79256 5426 3 96d-1*t124*t52*t66-1.2500161111805136d-6*t121*t124*t52*t5 5427 4 3-1.2500161111805136d-6*gammaaa*t121*t125*t44*t51-1.25001 5428 5 61111805136d-6*t121*t47*t48/rhoa**1.0333333333333333d+1)- 5429 6 3.1250402779512837d-7*t56*t63*t88-1.120356d-2*t113*t50*t7 5430 7 7+8.367983778239998d-5*t115*t66*t76)*wght+Mmat3(iq,D3_TA_ 5431 8 TA_TA) 5432 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 5433 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 5434 Mmat3(iq,D3_TB_TB_TB) = Mmat3(iq,D3_TB_TB_TB) 5435 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 5436 t1 = 1/rhob**2.6666666666666666d+0 5437 t2 = 4.49276922095889d-3*gammabb*t1+1.0d+0 5438 t3 = 1/t2 5439 t4 = 3.6121864536509485d-3*gammabb*t1*t3+1.0d+0 5440 t5 = rhob**1.3333333333333333d+0 5441 t6 = param(18) 5442 t7 = rhob**1.6666666666666669d+0 5443 t8 = 9.115599744691192d+0*t7 5444 t9 = t8-2.0d+0*taub 5445 t10 = t9**11 5446 t11 = 2.0d+0*taub+t8 5447 t12 = 1/t11**11 5448 t13 = param(17) 5449 t14 = t9**10 5450 t15 = 1/t11**10 5451 t16 = param(16) 5452 t17 = t9**9 5453 t18 = 1/t11**9 5454 t19 = param(15) 5455 t20 = t9**8 5456 t21 = 1/t11**8 5457 t22 = param(14) 5458 t23 = t9**7 5459 t24 = 1/t11**7 5460 t25 = param(13) 5461 t26 = t9**6 5462 t27 = 1/t11**6 5463 t28 = param(12) 5464 t29 = t9**5 5465 t30 = 1/t11**5 5466 t31 = param(11) 5467 t32 = t9**4 5468 t33 = 1/t11**4 5469 t34 = param(10) 5470 t35 = t9**3 5471 t36 = 1/t11**3 5472 t37 = param(9) 5473 t38 = t9**2 5474 t39 = 1/t11**2 5475 t40 = param(8) 5476 t41 = 1/t11 5477 t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32* 5478 1 t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t 5479 2 17*t18+t13*t14*t15+param(7) 5480 t43 = 1/t7 5481 t44 = 2.0d+0*t43*taub-9.11559972d+0 5482 t45 = 1.86726d-3*t44+1.86726d-3*gammabb*t1+1.0d+0 5483 t46 = 1/t45 5484 t47 = param(4) 5485 t48 = gammabb**2 5486 t49 = 1/rhob**5.333333333333333d+0 5487 t50 = 1/t45**2 5488 t51 = param(5) 5489 t52 = param(6) 5490 t53 = t44**2 5491 t54 = param(2) 5492 t55 = param(3) 5493 t56 = t44*t46*t55+gammabb*t1*t46*t54+t50*t52*t53+gammabb*t1* 5494 1 t44*t50*t51+t47*t48*t49*t50+param(1) 5495 t57 = rhob**6.666666666666666d-1 5496 t58 = 1/t11**12 5497 t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039 5498 1 7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+ 5499 2 1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+ 5500 3 1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577 5501 4 998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33 5502 5 *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706 5503 6 6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3 5504 7 0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974 5505 8 4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t 5506 9 26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368 5507 : 806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t 5508 ; 23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617 5509 < 036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t 5510 = 17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241 5511 > 151986d+2*t12*t13*t14*t57 5512 t60 = rhob**3.333333333333333d-1 5513 t61 = 1/t2**2 5514 t62 = 1/rhob**6.333333333333333d+0 5515 t63 = 1/rhob**3.6666666666666664d+0 5516 t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3* 5517 1 gammabb*t3*t63 5518 t65 = -6.2242d-3*t1*taub-4.9793599999999993d-3*gammabb*t63 5519 t66 = 1/t45**3 5520 t67 = -3.3333333333333337d+0*t1*t46*t55*taub-6.6666666666666 5521 1 67d+0*t1*t44*t50*t52*taub-3.3333333333333337d+0*gammabb*t 5522 2 49*t50*t51*taub-2*t52*t53*t65*t66-2*gammabb*t1*t44*t51*t6 5523 3 5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammabb*t1*t5 5524 4 0*t54*t65-2.6666666666666666d+0*gammabb*t46*t54*t63-2.666 5525 5 6666666666666d+0*gammabb*t44*t50*t51*t63-5.33333333333333 5526 6 3d+0*t47*t48*t50*t62 5527 t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60 5528 t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm 5529 1 abb*t49*t61 5530 t70 = 1/rhob**8 5531 t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66- 5532 1 3.73452d-3*gammabb*t44*t49*t51*t66-1.86726d-3*t1*t44*t50* 5533 2 t55-1.86726d-3*gammabb*t49*t50*t54+t1*t46*t54+t1*t44*t50* 5534 3 t51+2*gammabb*t47*t49*t50 5535 t72 = 1/t5 5536 t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6 5537 1 -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d 5538 2 +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d 5539 3 +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d 5540 4 +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d 5541 5 +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d 5542 6 +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d 5543 7 +1*t12*t13*t14 5544 t74 = 1/rhob**7 5545 t75 = 1/rhob**4.333333333333333d+0 5546 t76 = -7.46904d-3*gammabb*t44*t51*t66*t75-3.73452d-3*gammabb 5547 1 *t50*t54*t75+2.0d+0*gammabb*t50*t51*t75-7.46904d-3*t47*t4 5548 2 8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t 5549 3 50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52 5550 t77 = 1/t60 5551 t78 = 1/t11**13 5552 t79 = -1.0128444160767991d+1*t39*t40*t77*t9+2.02568883215359 5553 1 82d+1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9- 5554 2 1.846536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3* 5555 3 t34*t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.114128 5556 4 8576844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t1 5557 5 4*t6*t77+1.0128444160767991d+1*t40*t41*t77-2.025688832153 5558 6 5982d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38* 5559 7 t77-3.038533248230397d+1*t33*t34*t35*t77+4.05137766430719 5560 8 64d+1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t 5561 9 77+5.064222080383994d+1*t28*t30*t32*t77-5.064222080383994 5562 : d+1*t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77- 5563 ; 6.077066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1 5564 < *t22*t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.1 5565 = 02755328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t1 5566 > 8*t19*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.1155 5567 ? 99744691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t 5568 @ 15*t17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.5857740 5569 1 01863949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t 5570 2 5*t6+2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007 5571 3 845d+2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.3849 5572 4 026450902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33* 5573 5 t34*t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.76980529 5574 6 0180471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t3 5575 7 5*t5+4.616342150300784d+3*t28*t30*t35*t5+4.61634215030078 5576 8 4d+3*t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6 5577 9 .924513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t 5578 : 24*t28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.69431 5579 ; 8515631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25 5580 < *t26*t5-2.2620076536473846d+4*t21*t22*t26*t5+1.2925758020 5581 = 842196d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t2 5582 > 3*t5-2.954458976192502d+4*t18*t19*t23*t5+1.66188317410828 5583 ? 23d+4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5 5584 @ -3.7392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d 5585 1 +4*t13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4. 5586 2 616342150300784d+4*t12*t13*t17*t5 5587 t80 = 1/t57 5588 t81 = gammabb**3 5589 t82 = 1/t2**3 5590 t83 = 1/rhob**10 5591 t84 = 1/rhob**7.333333333333333d+0 5592 t85 = 1/rhob**4.666666666666667d+0 5593 t86 = 3.531915643569816d-2*gammabb*t3*t85-3.8948928286386303 5594 1 d-4*t48*t61*t84+1.0369691626335495d-6*t81*t82*t83 5595 t87 = t65**2 5596 t88 = 1/t45**4 5597 t89 = 1.6597866666666666d-2*t63*taub+1.8257653333333332d-2*g 5598 1 ammabb*t85 5599 t90 = taub**2 5600 t91 = 2.6666666666666666d+1*t1*t44*t52*t65*t66*taub+1.333333 5601 1 3333333333d+1*gammabb*t49*t51*t65*t66*taub+6.666666666666 5602 2 667d+0*t1*t50*t55*t65*taub+8.88888888888889d+0*t46*t55*t6 5603 3 3*taub+1.7777777777777778d+1*t44*t50*t52*t63*taub+2.66666 5604 4 66666666666d+1*gammabb*t50*t51*t62*taub+2.222222222222222 5605 5 4d+1*t49*t50*t52*t90-2*t52*t53*t66*t89-2*gammabb*t1*t44*t 5606 6 51*t66*t89-2*t47*t48*t49*t66*t89-t44*t50*t55*t89-gammabb* 5607 7 t1*t50*t54*t89+6*t52*t53*t87*t88+6*gammabb*t1*t44*t51*t87 5608 8 *t88+6*t47*t48*t49*t87*t88+2*t44*t55*t66*t87+2*gammabb*t1 5609 9 *t54*t66*t87+9.777777777777779d+0*gammabb*t46*t54*t85+9.7 5610 : 77777777777779d+0*gammabb*t44*t50*t51*t85+3.3777777777777 5611 ; 78d+1*t47*t48*t50*t84+1.0666666666666666d+1*gammabb*t44*t 5612 < 51*t63*t65*t66+2.1333333333333332d+1*t47*t48*t62*t65*t66+ 5613 = 5.333333333333333d+0*gammabb*t50*t54*t63*t65 5614 t92 = 1.0d+0*t5*t91+4.444444444444444d-1*t56*t80+2.666666666 5615 1 6666666d+0*t60*t67 5616 t93 = -1.0d+0*t5*t56*t89-t65*t68-1.0d+0*t5*t65*t67-1.3333333 5617 1 333333333d+0*t56*t60*t65 5618 t94 = 1/rhob**9 5619 t95 = -3.8886343598758105d-7*t48*t82*t94-9.632497209735863d- 5620 1 3*t3*t63+1.29829760954621d-4*gammabb*t61*t62 5621 t96 = 1/rhob**2.3333333333333334d+0 5622 t97 = 1.24484d-2*gammabb*t51*t66*t70*taub+2.48968d-2*t44*t49 5623 1 *t52*t66*taub+6.2242d-3*t49*t50*t55*taub-3.33333333333333 5624 2 37d+0*t49*t50*t51*taub+2.9876159999999996d-2*t47*t48*t66* 5625 3 t94+1.120356d-2*t47*t48*t65*t70*t88+1.120356d-2*t1*t52*t5 5626 4 3*t65*t88+1.120356d-2*gammabb*t44*t49*t51*t65*t88+3.73452 5627 5 d-3*t1*t44*t55*t65*t66+3.73452d-3*gammabb*t49*t54*t65*t66 5628 6 -2*t1*t44*t51*t65*t66-4*gammabb*t47*t49*t65*t66+9.9587199 5629 7 99999999d-3*t52*t53*t63*t66+1.9917439999999997d-2*gammabb 5630 8 *t44*t51*t62*t66-t1*t50*t54*t65+4.9793599999999993d-3*t44 5631 9 *t50*t55*t63-2.6666666666666666d+0*t46*t54*t63-2.66666666 5632 : 66666666d+0*t44*t50*t51*t63+9.958719999999999d-3*gammabb* 5633 ; t50*t54*t62-1.0666666666666666d+1*gammabb*t47*t50*t62 5634 t98 = 1.0d+0*t5*t97+1.3333333333333333d+0*t60*t71 5635 t99 = 1.4582378849534292d-7*gammabb*t70*t82-3.24574402386552 5636 1 55d-5*t49*t61 5637 t100 = 1/rhob**1.0666666666666666d+1 5638 t101 = 2.0919959445599998d-5*gammabb*t44*t51*t70*t88+2.09199 5639 1 59445599998d-5*t49*t52*t53*t88+2.0919959445599998d-5*t100 5640 2 *t47*t48*t88+6.973319815199999d-6*gammabb*t54*t66*t70-1.4 5641 3 938079999999998d-2*gammabb*t47*t66*t70+6.973319815199999d 5642 4 -6*t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3* 5643 5 t49*t50*t54+2*t47*t49*t50 5644 t102 = 1/rhob**4 5645 t103 = 6.077066496460795d+1*t36*t40*t57*t9-1.823119948938238 5646 1 5d+2*t34*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78- 5647 2 3.342386573053437d+3*t12*t17*t57*t6+3.342386573053437d+3* 5648 3 t13*t14*t57*t58-6.077066496460795d+1*t37*t39*t57+1.823119 5649 4 9489382385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t3 5650 5 3*t38*t57+3.646239897876477d+2*t30*t34*t35*t57-6.07706649 5651 6 6460795d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t 5652 7 32*t57-9.115599744691192d+2*t25*t27*t32*t57+9.11559974469 5653 8 1192d+2*t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29* 5654 9 t57+1.276183964256767d+3*t21*t25*t26*t57-1.70157861900902 5655 : 26d+3*t19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t 5656 ; 57-2.187743938725886d+3*t16*t18*t23*t57+2.187743938725886 5657 < d+3*t15*t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+ 5658 = 2.734679923407357d+3*t12*t16*t17*t57 5659 t104 = 4.97936d-2*t44*t52*t66*t75*taub+1.24484d-2*t50*t55*t7 5660 1 5*taub-1.3333333333333333d+1*t50*t52*t75*taub+2.48968d-2* 5661 2 gammabb*t51*t66*t74*taub+2.240712d-2*gammabb*t44*t51*t65* 5662 3 t75*t88+2.240712d-2*t47*t48*t65*t74*t88+2.240712d-2*t43*t 5663 4 52*t53*t65*t88+7.46904d-3*gammabb*t54*t65*t66*t75-4.0d+0* 5664 5 gammabb*t51*t65*t66*t75+5.228328d-2*t47*t48*t66*t70+7.469 5665 6 04d-3*t43*t44*t55*t65*t66-8.0d+0*t43*t44*t52*t65*t66+1.24 5666 7 484d-2*t1*t52*t53*t66+3.236584d-2*gammabb*t44*t49*t51*t66 5667 8 -2.0d+0*t43*t50*t55*t65+6.2242d-3*t1*t44*t50*t55-3.333333 5668 9 3333333337d+0*t1*t46*t55+1.618292d-2*gammabb*t49*t50*t54- 5669 : 6.666666666666667d+0*t1*t44*t50*t52-8.666666666666666d+0* 5670 ; gammabb*t49*t50*t51 5671 t105 = 1.3333333333333333d+0*t60*t76+1.0d+0*t104*t5 5672 t106 = 1/rhob**9.666666666666666d+0 5673 t107 = 4.1839918891199995d-5*t52*t53*t75*t88+4.1839918891199 5674 1 995d-5*gammabb*t44*t51*t74*t88+4.1839918891199995d-5*t106 5675 2 *t47*t48*t88+1.3946639630399998d-5*t44*t55*t66*t75-1.4938 5676 3 079999999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t7 5677 4 5-3.73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t5 5678 5 0*t51*t75+1.3946639630399998d-5*gammabb*t54*t66*t74-7.469 5679 6 04d-3*gammabb*t51*t66*t74-1.4938079999999998d-2*gammabb*t 5680 7 47*t66*t74 5681 t108 = 1/rhob**3 5682 t109 = 8.0d+0*t36*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9 5683 1 +5.28d+2*t10*t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+ 5684 2 4.4d+2*t13*t14*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t 5685 3 33*t37*t38+7.2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t 5686 4 30*t34*t35+1.28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1* 5687 5 t27*t31*t32+2.0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2* 5688 6 t24*t28*t29+2.88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d 5689 7 +2*t21*t25*t26+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2. 5690 8 24d+2*t18*t22*t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23 5691 9 +2.88d+2*t15*t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t 5692 : 20+3.6d+2*t12*t16*t17+8.0d+2*t12*t13*t17 5693 t110 = 1/rhob**8.666666666666666d+0 5694 t111 = 1/rhob**6 5695 t112 = 1/rhob**3.3333333333333337d+0 5696 t113 = 8.367983778239999d-5*t112*t52*t53*t88+8.3679837782399 5697 1 99d-5*gammabb*t111*t44*t51*t88+8.367983778239999d-5*t110* 5698 2 t47*t48*t88+2.7893279260799997d-5*t112*t44*t55*t66+2.7893 5699 3 279260799997d-5*gammabb*t111*t54*t66-5.975231999999999d-2 5700 4 *t112*t44*t52*t66-2.9876159999999996d-2*gammabb*t111*t51* 5701 5 t66-1.4938079999999998d-2*t112*t50*t55+8.0d+0*t112*t50*t5 5702 6 2 5703 t114 = rhob**2 5704 t115 = 1/t114 5705 t116 = 1/t11**14 5706 t117 = 1/t2**4 5707 t118 = 1/rhob**8.333333333333334d+0 5708 t119 = 1/rhob**5.666666666666667d+0 5709 t120 = t65**3 5710 t121 = 1/t45**5 5711 t122 = -6.085884444444444d-2*t85*taub-8.520238222222222d-2*g 5712 1 ammabb*t119 5713 t123 = 1/rhob**1.1666666666666665d+1 5714 t124 = 1/rhob**5 5715 t125 = 1/rhob**7.666666666666667d+0 5716 fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5) 5717 1 *wght+fnc(iq) 5718 Amat(iq,D1_RB) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634 5719 1 90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30 5720 2 5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RB) 5721 Cmat(iq,D1_GBB) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71 5722 1 -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GBB) 5723 Mmat(iq,D1_TB) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76- 5724 1 9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TB) 5725 Mmat(iq,D1_TA) = Mmat(iq,D1_TA) 5726 Amat2(iq,D2_RB_RB) = (t50*t93+t46*t92+2.0d+0*t5*t56*t66*t87- 5727 1 9.305257363490997d-1*t42*t5*t86-4.1356699393293317d-1*t4* 5728 2 t42*t80-9.305257363490997d-1*t4*t5*t79-2.481401963597599d 5729 3 +0*t42*t60*t64-1.8610514726981994d+0*t5*t59*t64-2.4814019 5730 4 63597599d+0*t4*t59*t60)*wght+Amat2(iq,D2_RB_RB) 5731 Cmat2(iq,D2_RB_GBB) = (t46*t98+4.9793599999999993d-3*t50*t56 5732 1 *t96-9.305257363490997d-1*t42*t5*t95+3.73452d-3*t56*t65*t 5733 2 66*t72-1.0d+0*t5*t50*t65*t71-1.2407009817987995d+0*t42*t6 5734 3 0*t69-9.305257363490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t 5735 4 68)*wght+Cmat2(iq,D2_RB_GBB) 5736 Cmat2(iq,D2_GBB_GBB) = (-9.305257363490997d-1*t42*t5*t99-3.7 5737 1 3452d-3*t50*t71*t72+6.973319815199999d-6*t102*t56*t66+1.0 5738 2 d+0*t101*t46*t5)*wght+Cmat2(iq,D2_GBB_GBB) 5739 Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA) 5740 Mmat2(iq,D2_RB_TB) = (7.46904d-3*t56*t65*t66*t77-1.0d+0*t5*t 5741 1 50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.240700981798 5742 2 7995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73452d-3*t43*t 5743 3 50*t68-9.305257363490997d-1*t103*t4*t5+t105*t46)*wght+Mma 5744 4 t2(iq,D2_RB_TB) 5745 Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA) 5746 Mmat2(iq,D2_GBB_TB) = (-3.73452d-3*t50*t71*t77-1.86726d-3*t5 5747 1 0*t72*t76-9.305257363490997d-1*t5*t69*t73+1.3946639630399 5748 2 998d-5*t108*t56*t66+1.0d+0*t107*t46*t5)*wght+Mmat2(iq,D2_ 5749 3 GBB_TB) 5750 Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA) 5751 Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB) 5752 Mmat2(iq,D2_TB_TB) = (-7.46904d-3*t50*t76*t77+2.789327926079 5753 1 9997d-5*t115*t56*t66+1.0d+0*t113*t46*t5-9.305257363490997 5754 2 d-1*t109*t4*t5)*wght+Mmat2(iq,D2_TB_TB) 5755 Amat3(iq,D3_RB_RB_RB) = (t46*(1.0d+0*t5*(4.0d+1*t1*t44*t52*t 5756 1 66*t89*taub+2.0d+1*gammabb*t49*t51*t66*t89*taub+1.0d+1*t1 5757 2 *t50*t55*t89*taub-1.2d+2*t1*t44*t52*t87*t88*taub-6.0d+1*g 5758 3 ammabb*t49*t51*t87*t88*taub-2.0d+1*t1*t55*t66*t87*taub-3. 5759 4 2592592592592595d+1*t46*t55*t85*taub-6.518518518518519d+1 5760 5 *t44*t50*t52*t85*taub-2.0148148148148146d+2*gammabb*t50*t 5761 6 51*t84*taub-1.0666666666666667d+2*t44*t52*t63*t65*t66*tau 5762 7 b-1.6d+2*gammabb*t51*t62*t65*t66*taub-2.6666666666666666d 5763 8 +1*t50*t55*t63*t65*taub-1.3333333333333333d+2*t49*t52*t65 5764 9 *t66*t90-1.777777777777778d+2*t50*t52*t62*t90+18*t52*t53* 5765 : t65*t88*t89+18*gammabb*t1*t44*t51*t65*t88*t89+18*t47*t48* 5766 ; t49*t65*t88*t89+6*t44*t55*t65*t66*t89+6*gammabb*t1*t54*t6 5767 < 5*t66*t89+16*gammabb*t44*t51*t63*t66*t89+32*t47*t48*t62*t 5768 = 66*t89+8*gammabb*t50*t54*t63*t89-48*gammabb*t44*t51*t63*t 5769 > 87*t88-96*t47*t48*t62*t87*t88-6*t120*t44*t55*t88-6*gammab 5770 ? b*t1*t120*t54*t88-16*gammabb*t54*t63*t66*t87-5.8666666666 5771 @ 66667d+1*gammabb*t44*t51*t65*t66*t85-2.9333333333333333d+ 5772 1 1*gammabb*t50*t54*t65*t85-2.0266666666666666d+2*t47*t48*t 5773 2 65*t66*t84-2*t122*t52*t53*t66-2*gammabb*t1*t122*t44*t51*t 5774 3 66-2*t122*t47*t48*t49*t66-t122*t44*t50*t55-gammabb*t1*t12 5775 4 2*t50*t54-4.5629629629629626d+1*gammabb*t119*t46*t54-24*t 5776 5 120*t121*t52*t53-4.5629629629629626d+1*gammabb*t119*t44*t 5777 6 50*t51-24*gammabb*t1*t120*t121*t44*t51-2.477037037037037d 5778 7 +2*t118*t47*t48*t50-24*t120*t121*t47*t48*t49)+4.0d+0*t60* 5779 8 t91+1.3333333333333333d+0*t67*t80-2.962962962962963d-1*t4 5780 9 3*t56)+t66*(-2*t65*t93+4.0d+0*t5*t56*t65*t89+2.0d+0*t5*t6 5781 : 7*t87+2.6666666666666666d+0*t56*t60*t87)+t50*(-2*t65*t92- 5782 ; 1.0d+0*t5*t65*t91-t68*t89-2.0d+0*t5*t67*t89-2.66666666666 5783 < 66666d+0*t56*t60*t89-4.444444444444444d-1*t56*t65*t80-2.6 5784 = 666666666666666d+0*t60*t65*t67-1.0d+0*t122*t5*t56)-9.3052 5785 > 57363490997d-1*t4*t5*(3.37614805358933d+0*t39*t40*t72*t9- 5786 ? 6.75229610717866d+0*t37*t39*t72*t9+9.232684300601568d+2*t 5787 @ 36*t40*t60*t9-3.693073720240627d+3*t36*t37*t60*t9+2.76980 5788 1 5290180471d+3*t34*t36*t60*t9-2.104036366334451d+4*t114*t3 5789 2 3*t40*t9+1.2624218198006704d+5*t114*t33*t37*t9-1.89363272 5790 3 97010064d+5*t114*t33*t34*t9+8.416145465337804d+4*t114*t31 5791 4 *t33*t9+6.093571638397036d+4*t10*t6*t60*t78+1.52753040195 5792 5 88112d+7*t114*t14*t6*t78-4.628880005935792d+6*t114*t13*t1 5793 6 4*t78+3.713762858948263d+1*t10*t58*t6*t72-3.7137628589482 5794 7 63d+1*t12*t14*t6*t72-3.37614805358933d+0*t40*t41*t72+6.75 5795 8 229610717866d+0*t36*t37*t38*t72-1.0128444160767991d+1*t34 5796 9 *t36*t38*t72+1.0128444160767991d+1*t33*t34*t35*t72-1.3504 5797 : 59221435732d+1*t31*t33*t35*t72+1.350459221435732d+1*t30*t 5798 ; 31*t32*t72-1.6880740267946648d+1*t28*t30*t32*t72+1.688074 5799 < 0267946648d+1*t27*t28*t29*t72-2.0256888321535982d+1*t25*t 5800 = 27*t29*t72+2.0256888321535982d+1*t24*t25*t26*t72-2.363303 5801 > 6375125308d+1*t22*t24*t26*t72+2.3633036375125308d+1*t21*t 5802 ? 22*t23*t72-2.700918442871464d+1*t19*t21*t23*t72+2.7009184 5803 @ 42871464d+1*t18*t19*t20*t72-3.0385332482303967d+1*t16*t18 5804 1 *t20*t72+3.0385332482303967d+1*t15*t16*t17*t72-3.37614805 5805 2 35893296d+1*t13*t15*t17*t72+3.3761480535893296d+1*t12*t13 5806 3 *t14*t72-1.1171548003727898d+5*t14*t58*t6*t60+5.077976365 5807 4 330863d+4*t12*t17*t6*t60+5.077976365330862d+4*t13*t14*t58 5808 5 *t60-9.232684300601568d+2*t39*t40*t60+9.232684300601568d+ 5809 6 2*t37*t39*t60+2.769805290180471d+3*t33*t37*t38*t60-8.3094 5810 7 15870541413d+3*t33*t34*t38*t60+5.539610580360942d+3*t31*t 5811 8 33*t38*t60+5.539610580360942d+3*t30*t34*t35*t60-1.4772294 5812 9 880962508d+4*t30*t31*t35*t60+9.232684300601568d+3*t28*t30 5813 : *t35*t60+9.232684300601568d+3*t27*t31*t32*t60-2.308171075 5814 ; 150392d+4*t27*t28*t32*t60+1.3849026450902355d+4*t25*t27*t 5815 < 32*t60+1.3849026450902355d+4*t24*t28*t29*t60-3.3237663482 5816 = 16566d+4*t24*t25*t29*t60+1.9388637031263292d+4*t22*t24*t2 5817 > 9*t60+1.9388637031263292d+4*t21*t25*t26*t60-4.52401530729 5818 ? 47686d+4*t21*t22*t26*t60+2.585151604168439d+4*t19*t21*t26 5819 @ *t60+2.585151604168439d+4*t18*t22*t23*t60-5.9089179523850 5820 1 03d+4*t18*t19*t23*t60+3.3237663482165647d+4*t16*t18*t23*t 5821 2 60+3.3237663482165647d+4*t15*t19*t20*t60-7.47847428348727 5822 3 1d+4*t15*t16*t20*t60+4.154707935270705d+4*t13*t15*t20*t60 5823 4 +4.1547079352707056d+4*t12*t16*t17*t60-9.232684300601568d 5824 5 +4*t12*t13*t17*t60-1.2729420016323426d+7*t114*t17*t58*t6+ 5825 6 3.4716600044518436d+6*t114*t12*t20*t6-6.01754400771653d+6 5826 7 *t10*t114*t116*t6-3.4716600044518436d+6*t114*t16*t17*t58+ 5827 8 1.1572200014839477d+7*t114*t13*t17*t58+2.104036366334451d 5828 9 +4*t114*t36*t40-8.416145465337804d+4*t114*t30*t37*t38+3.7 5829 : 87265459402013d+5*t114*t30*t34*t38-5.049687279202681d+5*t 5830 ; 114*t30*t31*t38+2.1040363663344508d+5*t114*t28*t30*t38-4. 5831 < 208072732668902d+4*t114*t36*t37+2.104036366334451d+4*t114 5832 = *t34*t36-2.104036366334451d+5*t114*t27*t34*t35+8.41614546 5833 > 5337803d+5*t114*t27*t31*t35-1.0520181831672254d+6*t114*t2 5834 ? 7*t28*t35+4.208072732668902d+5*t114*t25*t27*t35-4.2080727 5835 @ 326689016d+5*t114*t24*t31*t32+1.578027274750838d+6*t114*t 5836 1 24*t28*t32-1.893632729701006d+6*t114*t24*t25*t32+7.364127 5837 2 282170578d+5*t114*t22*t24*t32-7.364127282170578d+5*t114*t 5838 3 21*t28*t29+2.6510858215814087d+6*t114*t21*t25*t29-3.09293 5839 4 34585116436d+6*t114*t21*t22*t29+1.1782603651472927d+6*t11 5840 5 4*t19*t21*t29-1.1782603651472927d+6*t114*t18*t25*t26+4.12 5841 6 3911278015524d+6*t114*t18*t22*t26-4.713041460589171d+6*t1 5842 7 14*t18*t19*t26+1.767390547720939d+6*t114*t16*t18*t26-1.76 5843 8 73905477209387d+6*t114*t15*t22*t23+6.059624735043219d+6*t 5844 9 114*t15*t19*t23-6.817077826923622d+6*t114*t15*t16*t23+2.5 5845 : 24843639601341d+6*t114*t13*t15*t23-2.524843639601341d+6*t 5846 ; 114*t12*t19*t20+8.521347283654526d+6*t114*t12*t16*t20-9.4 5847 < 68163648505028d+6*t114*t12*t13*t20)-6.0d+0*t120*t5*t56*t8 5848 = 8-3.7221029453963983d+0*t42*t60*t86-2.791577209047299d+0* 5849 > t5*t59*t86-9.305257363490997d-1*t42*t5*(-1.97024140900374 5850 ? 43d-5*t81*t82/rhob**11+3.279403591520427d-3*t118*t48*t61- 5851 @ 1.648227300332581d-1*gammabb*t119*t3+3.7270905095708196d- 5852 1 8*gammabb**4*t117/rhob**1.3666666666666666d+1)+(-1.240700 5853 2 9817987995d+0*t42*t64-1.2407009817987995d+0*t4*t59)*t80-2 5854 3 .791577209047299d+0*t5*t64*t79-3.7221029453963983d+0*t4*t 5855 4 60*t79-7.444205890792797d+0*t59*t60*t64+2.757113292886221 5856 5 d-1*t4*t42*t43)*wght+Amat3(iq,D3_RB_RB_RB) 5857 Cmat3(iq,D3_RB_RB_GBB) = (t46*(1.0d+0*t5*(-1.659786666666666 5858 1 6d-1*gammabb*t51*t66*t94*taub-7.46904d-2*gammabb*t51*t65* 5859 2 t70*t88*taub-1.493808d-1*t44*t49*t52*t65*t88*taub-2.48968 5860 3 d-2*t49*t55*t65*t66*taub+1.3333333333333333d+1*t49*t51*t6 5861 4 5*t66*taub-1.9917439999999997d-1*t44*t52*t62*t66*taub-4.9 5862 5 793599999999993d-2*t50*t55*t62*taub+2.6666666666666666d+1 5863 6 *t50*t51*t62*taub-1.7925696d-1*t47*t48*t65*t88*t94-8.2989 5864 7 33333333335d-2*t52*t66*t70*t90+1.120356d-2*t47*t48*t70*t8 5865 8 8*t89+1.120356d-2*t1*t52*t53*t88*t89+1.120356d-2*gammabb* 5866 9 t44*t49*t51*t88*t89+3.73452d-3*t1*t44*t55*t66*t89+3.73452 5867 : d-3*gammabb*t49*t54*t66*t89-2*t1*t44*t51*t66*t89-4*gammab 5868 ; b*t47*t49*t66*t89-t1*t50*t54*t89-1.120356d-2*t1*t44*t55*t 5869 < 87*t88-1.120356d-2*gammabb*t49*t54*t87*t88+6*t1*t44*t51*t 5870 = 87*t88+12*gammabb*t47*t49*t87*t88-5.975231999999999d-2*t5 5871 > 2*t53*t63*t65*t88-1.1950464d-1*gammabb*t44*t51*t62*t65*t8 5872 ? 8-4.481424d-2*t121*t47*t48*t70*t87+2*t1*t54*t66*t87-4.481 5873 @ 424d-2*t1*t121*t52*t53*t87-4.481424d-2*gammabb*t121*t44*t 5874 1 49*t51*t87-3.6515306666666664d-2*t52*t53*t66*t85-1.825765 5875 2 3333333332d-2*t44*t50*t55*t85+9.777777777777779d+0*t46*t5 5876 3 4*t85+9.777777777777779d+0*t44*t50*t51*t85-1.261437866666 5877 4 6665d-1*gammabb*t44*t51*t66*t84-6.307189333333332d-2*gamm 5878 5 abb*t50*t54*t84+6.755555555555556d+1*gammabb*t47*t50*t84- 5879 6 2.6888544000000003d-1*t47*t48*t66*t83-1.9917439999999997d 5880 7 -2*t44*t55*t63*t65*t66+1.0666666666666666d+1*t44*t51*t63* 5881 8 t65*t66-3.9834879999999995d-2*gammabb*t54*t62*t65*t66+4.2 5882 9 666666666666664d+1*gammabb*t47*t62*t65*t66+5.333333333333 5883 : 333d+0*t50*t54*t63*t65)+2.6666666666666666d+0*t60*t97+4.4 5884 ; 44444444444444d-1*t71*t80)+t50*(-t65*t98-1.0d+0*t5*t65*t9 5885 < 7+4.9793599999999993d-3*t67*t96-1.0d+0*t5*t71*t89-1.33333 5886 = 33333333333d+0*t60*t65*t71+4.9793599999999993d-3*t63*t68- 5887 > 1.1618506666666667d-2*t112*t56)-1.9917439999999997d-2*t56 5888 ? *t65*t66*t96-2.481401963597599d+0*t42*t60*t95-1.861051472 5889 @ 6981994d+0*t5*t59*t95-3.73452d-3*t1*t66*t93-1.86726d-3*t1 5890 1 *t50*t92-1.120356d-2*t56*t72*t87*t88+2.0d+0*t5*t66*t71*t8 5891 2 7-9.305257363490997d-1*t42*t5*(3.531915643569816d-2*t3*t8 5892 3 5-9.376593846722628d-4*gammabb*t61*t84+6.610678411788878d 5893 4 -6*t48*t82*t83-1.3976589410890572d-8*t117*t81/rhob**1.266 5894 5 6666666666665d+1)-4.1356699393293317d-1*t42*t69*t80-9.305 5895 6 257363490997d-1*t5*t69*t79-2.481401963597599d+0*t59*t60*t 5896 7 69)*wght+Cmat3(iq,D3_RB_RB_GBB) 5897 Cmat3(iq,D3_RB_GBB_GBB) = (t46*(1.0d+0*t5*(-1.39466396303999 5898 1 98d-4*t44*t52*t70*t88*taub-6.9733198152d-5*gammabb*t100*t 5899 2 51*t88*taub-2.3244399384d-5*t55*t66*t70*taub+2.48968d-2*t 5900 3 51*t66*t70*taub-1.6735967556479997d-4*gammabb*t44*t51*t88 5901 4 *t94-5.578655852159999d-5*gammabb*t54*t66*t94+1.1950464d- 5902 5 1*gammabb*t47*t66*t94-2.0919959445599998d-5*gammabb*t54*t 5903 6 65*t70*t88+4.481424d-2*gammabb*t47*t65*t70*t88-2.09199594 5904 7 45599998d-5*t44*t49*t55*t65*t88+2.240712d-2*t44*t49*t51*t 5905 8 65*t88-1.1157311704319998d-4*t52*t53*t62*t88-2.2314623408 5906 9 639997d-4*t123*t47*t48*t88-8.367983778239999d-5*gammabb*t 5907 : 121*t44*t51*t65*t70+7.46904d-3*t49*t54*t65*t66-4*t47*t49* 5908 ; t65*t66-3.7191039014399996d-5*t44*t55*t62*t66+3.983487999 5909 < 9999995d-2*t44*t51*t62*t66-8.367983778239999d-5*t121*t49* 5910 = t52*t53*t65-8.367983778239999d-5*t100*t121*t47*t48*t65+1. 5911 > 9917439999999997d-2*t50*t54*t62-1.0666666666666666d+1*t47 5912 ? *t50*t62)+1.3333333333333333d+0*t101*t60)-1.2407009817987 5913 @ 995d+0*t42*t60*t99-9.305257363490997d-1*t5*t59*t99-3.7345 5914 1 2d-3*t1*t50*t98+9.958719999999999d-3*t50*t71*t96-9.305257 5915 2 363490997d-1*t42*t5*(-1.944317179937905d-6*gammabb*t82*t9 5916 3 4+1.731063479394947d-4*t61*t62+5.241221029083964d-9*t117* 5917 4 t123*t48)-2.0919959445599998d-5*t102*t56*t65*t88+7.46904d 5918 5 -3*t65*t66*t71*t72+6.973319815199999d-6*t49*t66*t68-3.719 5919 6 1039014399996d-5*t124*t56*t66-1.0d+0*t101*t5*t50*t65)*wgh 5920 7 t+Cmat3(iq,D3_RB_GBB_GBB) 5921 Cmat3(iq,D3_GBB_GBB_GBB) = (1.0d+0*t46*t5*(-3.90630034743910 5922 1 45d-8*t44*t55*t70*t88+6.275987833679999d-5*t44*t51*t70*t8 5923 2 8-3.9063003474391045d-8*gammabb*t100*t54*t88+1.2551975667 5924 3 36d-4*gammabb*t100*t47*t88+2.0919959445599995d-5*t54*t66* 5925 4 t70-2.240712d-2*t47*t66*t70-1.562520138975642d-7*t121*t52 5926 5 *t53*t70-1.562520138975642d-7*gammabb*t100*t121*t44*t51-1 5927 6 .562520138975642d-7*t121*t47*t48/rhob**1.3333333333333333 5928 7 d+1)-3.9063003474391045d-8*t56*t88/rhob**6.66666666666666 5929 8 7d+0-9.305257363490997d-1*t42*t5*(4.374713654860287d-7*t7 5930 9 0*t82-1.965457885906487d-9*gammabb*t100*t117)-5.60178d-3* 5931 : t101*t50*t72+2.0919959445599995d-5*t102*t66*t71)*wght+Cma 5932 ; t3(iq,D3_GBB_GBB_GBB) 5933 Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA) 5934 Mmat3(iq,D3_RB_RB_TB) = (t46*(1.0d+0*t5*(-2.987616d-1*t44*t5 5935 1 2*t65*t75*t88*taub-1.493808d-1*gammabb*t51*t65*t74*t88*ta 5936 2 ub-4.97936d-2*t55*t65*t66*t75*taub+5.333333333333333d+1*t 5937 3 52*t65*t66*t75*taub-2.8216373333333333d-1*gammabb*t51*t66 5938 4 *t70*taub-2.9876159999999996d-1*t44*t49*t52*t66*taub-7.46 5939 5 9039999999999d-2*t49*t50*t55*taub+8.0d+1*t49*t50*t52*taub 5940 6 -4.1826624d-1*t47*t48*t66*t94-1.659786666666667d-1*t52*t6 5941 7 6*t74*t90+2.240712d-2*gammabb*t44*t51*t75*t88*t89+2.24071 5942 8 2d-2*t47*t48*t74*t88*t89+2.240712d-2*t43*t52*t53*t88*t89+ 5943 9 7.46904d-3*gammabb*t54*t66*t75*t89-4.0d+0*gammabb*t51*t66 5944 : *t75*t89+7.46904d-3*t43*t44*t55*t66*t89-8.0d+0*t43*t44*t5 5945 ; 2*t66*t89-2.0d+0*t43*t50*t55*t89-2.240712d-2*gammabb*t54* 5946 < t75*t87*t88+1.2d+1*gammabb*t51*t75*t87*t88-2.240712d-2*t4 5947 = 3*t44*t55*t87*t88+2.4d+1*t43*t44*t52*t87*t88-3.1369968d-1 5948 > *t47*t48*t65*t70*t88-7.46904d-2*t1*t52*t53*t65*t88-1.9419 5949 ? 503999999999d-1*gammabb*t44*t49*t51*t65*t88-8.962848d-2*g 5950 @ ammabb*t121*t44*t51*t75*t87-8.962848d-2*t121*t47*t48*t74* 5951 1 t87+4.0d+0*t43*t55*t66*t87-8.962848d-2*t121*t43*t52*t53*t 5952 2 87-2.48968d-2*t1*t44*t55*t65*t66-6.473168d-2*gammabb*t49* 5953 3 t54*t65*t66+2.6666666666666666d+1*t1*t44*t52*t65*t66+3.46 5954 4 6666666666666d+1*gammabb*t49*t51*t65*t66-3.31957333333333 5955 5 3d-2*t52*t53*t63*t66-1.7261781333333331d-1*gammabb*t44*t5 5956 6 1*t62*t66+6.666666666666667d+0*t1*t50*t55*t65-1.659786666 5957 7 6666666d-2*t44*t50*t55*t63+8.88888888888889d+0*t46*t55*t6 5958 8 3+1.7777777777777778d+1*t44*t50*t52*t63-8.630890666666666 5959 9 d-2*gammabb*t50*t54*t62+4.622222222222223d+1*gammabb*t50* 5960 : t51*t62)+4.444444444444444d-1*t76*t80+2.6666666666666666d 5961 ; +0*t104*t60)+t50*(-8.298933333333333d-3*t56*t96-1.0d+0*t5 5962 < *t76*t89-1.3333333333333333d+0*t60*t65*t76+6.2242d-3*t67* 5963 = t72+6.2242d-3*t1*t68-1.0d+0*t104*t5*t65-t105*t65)-7.46904 5964 > d-3*t43*t66*t93-3.73452d-3*t43*t50*t92-9.305257363490997d 5965 ? -1*t4*t5*(4.0513776643071964d+1*t36*t40*t77*t9-1.21541329 5966 @ 92921589d+2*t34*t36*t77*t9-2.769805290180471d+3*t33*t40*t 5967 1 5*t9+5.539610580360942d+3*t33*t37*t5*t9+8.309415870541416 5968 2 d+3*t33*t34*t5*t9-1.1079221160721883d+4*t31*t33*t5*t9+2.6 5969 3 739092584427493d+3*t10*t6*t77*t78+6.702928802236738d+5*t1 5970 4 4*t5*t6*t78-6.093571638397035d+5*t13*t14*t5*t78-2.2282577 5971 5 15368958d+3*t12*t17*t6*t77+2.2282577153689576d+3*t13*t14* 5972 6 t58*t77-4.0513776643071964d+1*t37*t39*t77+1.2154132992921 5973 7 589d+2*t33*t37*t38*t77-2.4308265985843178d+2*t31*t33*t38* 5974 8 t77+2.4308265985843178d+2*t30*t34*t35*t77-4.0513776643071 5975 9 96d+2*t28*t30*t35*t77+4.0513776643071964d+2*t27*t31*t32*t 5976 : 77-6.077066496460795d+2*t25*t27*t32*t77+6.077066496460793 5977 ; d+2*t24*t28*t29*t77-8.507893095045111d+2*t22*t24*t29*t77+ 5978 < 8.507893095045113d+2*t21*t25*t26*t77-1.1343857460060149d+ 5979 = 3*t19*t21*t26*t77+1.1343857460060149d+3*t18*t22*t23*t77-1 5980 > .4584959591505905d+3*t16*t18*t23*t77+1.4584959591505908d+ 5981 ? 3*t15*t19*t20*t77-1.8231199489382383d+3*t13*t15*t20*t77+1 5982 @ .8231199489382383d+3*t12*t16*t17*t77+5.585774001863949d+5 5983 1 *t17*t5*t58*t6-4.5701787287977763d+5*t12*t20*t5*t6-7.9216 5984 2 43129916147d+5*t10*t116*t5*t6-4.5701787287977763d+5*t16*t 5985 3 17*t5*t58+5.077976365330863d+5*t13*t17*t5*t58+9.232684300 5986 4 601569d+2*t36*t40*t5-1.1079221160721883d+4*t30*t37*t38*t5 5987 5 +1.6618831741082832d+4*t30*t34*t38*t5+2.2158442321443766d 5988 6 +4*t30*t31*t38*t5-2.7698052901804704d+4*t28*t30*t38*t5+1. 5989 7 846536860120314d+3*t36*t37*t5-2.769805290180471d+3*t34*t3 5990 8 6*t5-2.769805290180471d+4*t27*t34*t35*t5+3.69307372024062 5991 9 9d+4*t27*t31*t35*t5+4.616342150300784d+4*t27*t28*t35*t5-5 5992 : .539610580360942d+4*t25*t27*t35*t5-5.539610580360941d+4*t 5993 ; 24*t31*t32*t5+6.924513225451174d+4*t24*t28*t32*t5+8.30941 5994 < 5870541416d+4*t24*t25*t32*t5-9.694318515631648d+4*t22*t24 5995 = *t32*t5-9.694318515631648d+4*t21*t28*t29*t5+1.16331822187 5996 > 57979d+5*t21*t25*t29*t5+1.3572045921884307d+5*t21*t22*t29 5997 ? *t5-1.5510909625010635d+5*t19*t21*t29*t5-1.55109096250106 5998 @ 38d+5*t18*t25*t26*t5+1.809606122917908d+5*t18*t22*t26*t5+ 5999 1 2.0681212833347515d+5*t18*t19*t26*t5-2.3266364437515952d+ 6000 2 5*t16*t18*t26*t5-2.3266364437515955d+5*t15*t22*t23*t5+2.6 6001 3 59013078573252d+5*t15*t19*t23*t5+2.9913897133949086d+5*t1 6002 4 5*t16*t23*t5-3.3237663482165647d+5*t13*t15*t23*t5-3.32376 6003 5 6348216565d+5*t12*t19*t20*t5+3.7392371417436354d+5*t12*t1 6004 6 6*t20*t5+4.1547079352707056d+5*t12*t13*t20*t5)-2.240712d- 6005 7 2*t56*t77*t87*t88+2.0d+0*t5*t66*t76*t87-9.305257363490997 6006 8 d-1*t5*t73*t86-4.1356699393293317d-1*t4*t73*t80-2.4814019 6007 9 63597599d+0*t60*t64*t73-2.48968d-2*t56*t65*t66*t72-1.8610 6008 : 514726981994d+0*t103*t5*t64-2.481401963597599d+0*t103*t4* 6009 ; t60)*wght+Mmat3(iq,D3_RB_RB_TB) 6010 Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA) 6011 Mmat3(iq,D3_RB_GBB_TB) = (t46*(1.0d+0*t5*(-2.789327926079999 6012 1 7d-4*t44*t52*t74*t88*taub-1.3946639630399998d-4*gammabb*t 6013 2 106*t51*t88*taub-4.6488798768d-5*t55*t66*t74*taub+4.97936 6014 3 d-2*t52*t66*t74*taub+2.48968d-2*t51*t66*t74*taub-4.183991 6015 4 8891199995d-5*t44*t55*t65*t75*t88+4.481424d-2*t44*t52*t65 6016 5 *t75*t88+2.240712d-2*t44*t51*t65*t75*t88-4.18399188911999 6017 6 95d-5*gammabb*t54*t65*t74*t88+2.240712d-2*gammabb*t51*t65 6018 7 *t74*t88+4.481424d-2*gammabb*t47*t65*t74*t88-2.9287943223 6019 8 839996d-4*gammabb*t44*t51*t70*t88-1.8130631519519996d-4*t 6020 9 49*t52*t53*t88-4.044525492816d-4*t100*t47*t48*t88+7.46904 6021 : d-3*t55*t65*t66*t75+7.46904d-3*t54*t65*t66*t75-4.0d+0*t51 6022 ; *t65*t66*t75-1.673596755648d-4*t121*t52*t53*t65*t75-1.673 6023 < 596755648d-4*gammabb*t121*t44*t51*t65*t74-9.76264774128d- 6024 = 5*gammabb*t54*t66*t70+5.228328d-2*gammabb*t51*t66*t70+1.0 6025 > 456655999999999d-1*gammabb*t47*t66*t70-6.043543839839999d 6026 ? -5*t44*t49*t55*t66+6.473168d-2*t44*t49*t52*t66+3.236584d- 6027 @ 2*t44*t49*t51*t66-1.673596755648d-4*t106*t121*t47*t48*t65 6028 1 +1.618292d-2*t49*t50*t55+1.618292d-2*t49*t50*t54-8.666666 6029 2 666666666d+0*t49*t50*t51)+1.3333333333333333d+0*t107*t60) 6030 3 -3.73452d-3*t43*t50*t98+4.9793599999999993d-3*t50*t76*t96 6031 4 -9.305257363490997d-1*t5*t73*t95-4.1839918891199995d-5*t1 6032 5 08*t56*t65*t88+7.46904d-3*t65*t66*t71*t77+3.73452d-3*t65* 6033 6 t66*t72*t76+1.3946639630399998d-5*t66*t68*t75-1.240700981 6034 7 7987995d+0*t60*t69*t73+6.2242d-3*t50*t71*t72-9.3052573634 6035 8 90997d-1*t103*t5*t69-6.043543839839999d-5*t102*t56*t66-1. 6036 9 0d+0*t107*t5*t50*t65-1.86726d-3*t1*t105*t50)*wght+Mmat3(i 6037 : q,D3_RB_GBB_TB) 6038 Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA) 6039 Mmat3(iq,D3_GBB_GBB_TB) = (-9.305257363490997d-1*t5*t73*t99+ 6040 1 1.0d+0*t46*t5*(-7.812600694878209d-8*t44*t55*t74*t88+8.36 6041 2 7983778239999d-5*t44*t52*t74*t88+8.367983778239999d-5*t44 6042 3 *t51*t74*t88-7.812600694878209d-8*gammabb*t106*t54*t88+4. 6043 4 1839918891199995d-5*gammabb*t106*t51*t88+1.673596755648d- 6044 5 4*gammabb*t106*t47*t88+1.3946639630399998d-5*t55*t66*t74+ 6045 6 2.7893279260799997d-5*t54*t66*t74-1.4938079999999998d-2*t 6046 7 51*t66*t74-1.4938079999999998d-2*t47*t66*t74-3.1250402779 6047 8 51284d-7*t121*t52*t53*t74-3.125040277951284d-7*gammabb*t1 6048 9 06*t121*t44*t51-3.125040277951284d-7*t121*t47*t48/rhob**1 6049 : .2333333333333334d+1)-7.812600694878209d-8*t119*t56*t88-3 6050 ; .73452d-3*t101*t50*t77+6.973319815199999d-6*t102*t66*t76- 6051 < 3.73452d-3*t107*t50*t72+2.7893279260799997d-5*t108*t66*t7 6052 = 1)*wght+Mmat3(iq,D3_GBB_GBB_TB) 6053 Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA) 6054 Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB) 6055 Mmat3(iq,D3_RB_TB_TB) = (t46*(1.0d+0*t5*(-5.578655852159999d 6056 1 -4*t111*t44*t52*t88*taub-2.7893279260799997d-4*gammabb*t1 6057 2 10*t51*t88*taub-9.2977597536d-5*t111*t55*t66*taub+1.99174 6058 3 4d-1*t111*t52*t66*taub-2.7893279260799997d-4*t52*t53*t75* 6059 4 t88-5.020790266944d-4*gammabb*t44*t51*t74*t88-8.367983778 6060 5 239999d-5*t112*t44*t55*t65*t88-8.367983778239999d-5*gamma 6061 6 bb*t111*t54*t65*t88+1.7925696d-1*t112*t44*t52*t65*t88+8.9 6062 7 62848d-2*gammabb*t111*t51*t65*t88-7.252252607808d-4*t106* 6063 8 t47*t48*t88-9.2977597536d-5*t44*t55*t66*t75+1.991744d-1*t 6064 9 44*t52*t66*t75+4.97936d-2*t50*t55*t75-2.6666666666666666d 6065 : +1*t50*t52*t75-1.673596755648d-4*gammabb*t54*t66*t74+1.79 6066 ; 25696000000002d-1*gammabb*t51*t66*t74+2.9876159999999996d 6067 < -2*t112*t55*t65*t66-1.6d+1*t112*t52*t65*t66-3.34719351129 6068 = 6d-4*t112*t121*t52*t53*t65-3.347193511296d-4*gammabb*t111 6069 > *t121*t44*t51*t65-3.347193511296d-4*t110*t121*t47*t48*t65 6070 ? )+1.3333333333333333d+0*t113*t60)-9.305257363490997d-1*t4 6071 @ *t5*(-3.646239897876477d+2*t33*t40*t57*t9-7.2924797957529 6072 1 54d+2*t33*t37*t57*t9+1.0938719693629433d+3*t33*t34*t57*t9 6073 2 +1.4584959591505908d+3*t31*t33*t57*t9-8.823900552861074d+ 6074 3 4*t14*t57*t6*t78-8.021727775328248d+4*t13*t14*t57*t78+7.3 6075 4 53250460717561d+4*t17*t57*t58*t6+6.016295831496187d+4*t12 6076 5 *t20*t57*t6-1.0428246107926724d+5*t10*t116*t57*t6-6.01629 6077 6 5831496187d+4*t16*t17*t57*t58-6.684773146106873d+4*t13*t1 6078 7 7*t57*t58-1.2154132992921589d+2*t36*t40*t57-1.45849595915 6079 8 05908d+3*t30*t37*t38*t57-2.1877439387258865d+3*t30*t34*t3 6080 9 8*t57+2.9169919183011817d+3*t30*t31*t38*t57+3.64623989787 6081 : 6477d+3*t28*t30*t38*t57+2.4308265985843178d+2*t36*t37*t57 6082 ; +3.646239897876477d+2*t34*t36*t57-3.646239897876477d+3*t2 6083 < 7*t34*t35*t57-4.8616531971686355d+3*t27*t31*t35*t57+6.077 6084 = 066496460795d+3*t27*t28*t35*t57+7.292479795752954d+3*t25* 6085 > t27*t35*t57-7.292479795752954d+3*t24*t31*t32*t57-9.115599 6086 ? 744691192d+3*t24*t28*t32*t57+1.0938719693629431d+4*t24*t2 6087 @ 5*t32*t57+1.2761839642567668d+4*t22*t24*t32*t57-1.2761839 6088 1 642567668d+4*t21*t28*t29*t57-1.5314207571081204d+4*t21*t2 6089 2 5*t29*t57+1.786657549959474d+4*t21*t22*t29*t57+2.04189434 6090 3 28108272d+4*t19*t21*t29*t57-2.0418943428108272d+4*t18*t25 6091 4 *t26*t57-2.3822100666126317d+4*t18*t22*t26*t57+2.72252579 6092 5 0414436d+4*t18*t19*t26*t57+3.062841514216241d+4*t16*t18*t 6093 6 26*t57-3.062841514216241d+4*t15*t22*t23*t57-3.50039030196 6094 7 14174d+4*t15*t19*t23*t57+3.9379390897065947d+4*t15*t16*t2 6095 8 3*t57+4.375487877451772d+4*t13*t15*t23*t57-4.375487877451 6096 9 772d+4*t12*t19*t20*t57-4.9224238621332433d+4*t12*t16*t20* 6097 : t57+5.469359846814714d+4*t12*t13*t20*t57)-8.3679837782399 6098 ; 99d-5*t115*t56*t65*t88+1.4938079999999998d-2*t65*t66*t76* 6099 < t77+1.24484d-2*t50*t72*t76+2.7893279260799997d-5*t112*t66 6100 = *t68-9.2977597536d-5*t108*t56*t66-1.0d+0*t113*t5*t50*t65- 6101 > 9.305257363490997d-1*t109*t5*t64-1.2407009817987995d+0*t1 6102 ? 09*t4*t60-7.46904d-3*t105*t43*t50)*wght+Mmat3(iq,D3_RB_TB 6103 @ _TB) 6104 Mmat3(iq,D3_GBB_TA_TA) = Mmat3(iq,D3_GBB_TA_TA) 6105 Mmat3(iq,D3_GBB_TA_TB) = Mmat3(iq,D3_GBB_TA_TB) 6106 Mmat3(iq,D3_GBB_TB_TB) = (1.0d+0*t46*t5*(-1.5625201389756418 6107 1 d-7*t111*t44*t55*t88-1.5625201389756418d-7*gammabb*t110*t 6108 2 54*t88+3.347193511296d-4*t111*t44*t52*t88+8.3679837782399 6109 3 99d-5*t111*t44*t51*t88+1.673596755648d-4*gammabb*t110*t51 6110 4 *t88+1.673596755648d-4*gammabb*t110*t47*t88+5.57865585215 6111 5 9999d-5*t111*t55*t66+2.7893279260799997d-5*t111*t54*t66-2 6112 6 .9876159999999996d-2*t111*t52*t66-2.9876159999999996d-2*t 6113 7 111*t51*t66-6.250080555902569d-7*t111*t121*t52*t53-6.2500 6114 8 80555902569d-7*gammabb*t110*t121*t44*t51-6.25008055590256 6115 9 9d-7*t121*t47*t48/rhob**1.1333333333333334d+1)-1.56252013 6116 : 89756418d-7*t56*t85*t88-7.46904d-3*t107*t50*t77+2.7893279 6117 ; 260799997d-5*t108*t66*t76-1.86726d-3*t113*t50*t72+2.78932 6118 < 79260799997d-5*t115*t66*t71-9.305257363490997d-1*t109*t5* 6119 = t69)*wght+Mmat3(iq,D3_GBB_TB_TB) 6120 Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA) 6121 Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB) 6122 Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB) 6123 Mmat3(iq,D3_TB_TB_TB) = (-9.305257363490997d-1*t4*t5*(-4.8d+ 6124 1 1*t33*t40*t9-2.88d+2*t33*t37*t9-4.32d+2*t33*t34*t9-1.92d+ 6125 2 2*t31*t33*t9-3.4848d+4*t14*t6*t78-1.056d+4*t13*t14*t78-2. 6126 3 904d+4*t17*t58*t6-7.92d+3*t12*t20*t6-1.3728d+4*t10*t116*t 6127 4 6-7.92d+3*t16*t17*t58-2.64d+4*t13*t17*t58-4.8d+1*t36*t40- 6128 5 1.92d+2*t30*t37*t38-8.64d+2*t30*t34*t38-1.152d+3*t30*t31* 6129 6 t38-4.8d+2*t28*t30*t38-9.6d+1*t36*t37-4.8d+1*t34*t36-4.8d 6130 7 +2*t27*t34*t35-1.92d+3*t27*t31*t35-2.4d+3*t27*t28*t35-9.6 6131 8 d+2*t25*t27*t35-9.6d+2*t24*t31*t32-3.6d+3*t24*t28*t32-4.3 6132 9 2d+3*t24*t25*t32-1.68d+3*t22*t24*t32-1.68d+3*t21*t28*t29- 6133 : 6.048d+3*t21*t25*t29-7.056d+3*t21*t22*t29-2.688d+3*t19*t2 6134 ; 1*t29-2.688d+3*t18*t25*t26-9.408d+3*t18*t22*t26-1.0752d+4 6135 < *t18*t19*t26-4.032d+3*t16*t18*t26-4.032d+3*t15*t22*t23-1. 6136 = 3824d+4*t15*t19*t23-1.5552d+4*t15*t16*t23-5.76d+3*t13*t15 6137 > *t23-5.76d+3*t12*t19*t20-1.944d+4*t12*t16*t20-2.16d+4*t12 6138 ? *t13*t20)+1.0d+0*t46*t5*(-3.1250402779512837d-7*t124*t44* 6139 @ t55*t88-3.1250402779512837d-7*gammabb*t125*t54*t88+1.0041 6140 1 580533887999d-3*t124*t44*t52*t88+5.020790266944d-4*gammab 6141 2 b*t125*t51*t88+1.6735967556479997d-4*t124*t55*t66-1.79256 6142 3 96d-1*t124*t52*t66-1.2500161111805136d-6*t121*t124*t52*t5 6143 4 3-1.2500161111805136d-6*gammabb*t121*t125*t44*t51-1.25001 6144 5 61111805136d-6*t121*t47*t48/rhob**1.0333333333333333d+1)- 6145 6 3.1250402779512837d-7*t56*t63*t88-1.120356d-2*t113*t50*t7 6146 7 7+8.367983778239998d-5*t115*t66*t76)*wght+Mmat3(iq,D3_TB_ 6147 8 TB_TB) 6148 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 6149 endif ! ipol.eq.1 6150 enddo ! iq 6151 end 6152C> @} 6153