1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_c_pbeop.F 5C> The nwxcm_c_pbeop functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_c_pbeop functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& {\it param}\left(1\right)\\\\ 16C> {\it t_2} &=& \rho_\alpha^{{{1}\over{3}}}\\\\ 17C> {\it t_3} &=& \rho_\beta^{{{1}\over{3}}}\\\\ 18C> {\it t_4} &=& 1.804-{{0.804}\over{{{0.004492667444378077 19C> \,\sigma_{\alpha\alpha}}\over{\rho_\alpha^{{{8}\over{3}}}}} 20C> +1.0}}\\\\ 21C> {\it t_5} &=& 1.804-{{0.804}\over{{{0.004492667444378077 22C> \,\sigma_{\beta\beta}}\over{\rho_\beta^{{{8}\over{3}}}}} 23C> +1.0}}\\\\ 24C> {\it t_6} &=& {{1}\over{1.8610514726982\,{\it t_3}\,{\it t_5} 25C> +1.8610514726982\,{\it t_2}\,{\it t_4}}}\\\\ 26C> {\it t_7} &=& \left({\it t_1}\,{\it t_2}\,{\it t_3}\,{\it t_4} 27C> \,{\it t_6}\,{\it t_5}\right)^{2.0}\\\\ 28C> f &=& -{{0.08336168033553906\,\rho_\alpha\,\rho_\beta\, 29C> \left(5.269388045346497\,{\it t_1}\,{\it t_2}\,{\it t_3}\,{ 30C> \it t_4}\,{\it t_6}\,{\it t_5}+0.5764\right)}\over{{\it t_7} 31C> \,\left(11.99591941974898\,{\it t_7}+3.908227599821866\,{ 32C> \it t_1}\,{\it t_2}\,{\it t_3}\,{\it t_4}\,{\it t_6}\,{\it t_5} 33C> +0.3183\right)}}\\\\ 34C> g &=& 0\\\\ 35C> G &=& 0.0\\\\ 36C> \f} 37C> 38C> Code generated with Maxima 5.34.0 [2] 39C> driven by autoxc [3]. 40C> 41C> ### References ### 42C> 43C> [1] T Tsuneda, T Suzumura, K Hirao, J.Chem.Phys. 111 44C> , 5656 (1999) , DOI: 45C> <a href="https://doi.org/10.1063/1.479954 "> 46C> 10.1063/1.479954 </a> 47C> 48C> [2] Maxima, a computer algebra system, 49C> <a href="http://maxima.sourceforge.net/"> 50C> http://maxima.sourceforge.net/</a> 51C> 52C> [3] autoxc, revision 27097 2015-05-08 53C> 54 subroutine nwxcm_c_pbeop(param,tol_rho,ipol,nq,wght, 55 +rho,rgamma,fnc,Amat,Cmat) 56c $Id: $ 57#ifdef NWXC_QUAD_PREC 58 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 59 integer, parameter :: rk=selected_real_kind(30) 60#else 61 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 62 integer, parameter :: rk=selected_real_kind(15) 63#endif 64#include "nwxc_param.fh" 65 double precision param(*) !< [Input] Parameters of functional 66 double precision tol_rho !< [Input] The lower limit on the density 67 integer ipol !< [Input] The number of spin channels 68 integer nq !< [Input] The number of points 69 double precision wght !< [Input] The weight of the functional 70 double precision rho(nq,*) !< [Input] The density 71 double precision rgamma(nq,*) !< [Input] The norm of the density 72 !< gradients 73 double precision fnc(nq) !< [Output] The value of the functional 74c 75c Sampling Matrices for the XC Kernel 76c 77 double precision Amat(nq,*) !< [Output] The derivative wrt rho 78 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 79 integer iq 80 double precision tmp 81 double precision rhoa,rhob 82 double precision gammaaa,gammaab,gammabb 83 double precision taua,taub 84 double precision nwxcm_heaviside 85 external nwxcm_heaviside 86CDIR$ NOVECTOR 87 do iq = 1, nq 88 if (ipol.eq.1) then 89 rhoa = 0.5d0*rho(iq,R_T) 90 gammaaa = 0.25d0*rgamma(iq,G_TT) 91 if (rhoa.gt.tol_rho) then 92 t1 = param(1) 93 t2 = 4.492667444378077d-3*gammaaa/rhoa**2.6666666666666666d+ 94 1 0+1.0d+0 95 t3 = 1.804d+0-8.04d-1/t2 96 t4 = rhoa**3.333333333333333d-1 97 t5 = t1*t3*t4 98 t6 = t5**2.0d+0 99 t7 = 1/t6 100 t8 = 1.0500052408963245d+0*t1*t3*t4 101 t9 = 1.415701855281521d+0*t1*t3*t4+5.764d-1 102 t10 = rhoa**2 103 t11 = 1/t2**2 104 t12 = 1/rhoa**3.3333333333333337d+0 105 t13 = 1/rhoa**6.666666666666666d-1 106 t14 = 6.203504908994d-1*t13*t3-1.7926167019779396d-2*gammaaa 107 1 *t11*t12 108 t15 = 8.955510855647054d-2*t1*t13*t3-7.218105721705101d-2*t1 109 1 *t14-2.587859374674219d-3*gammaaa*t1*t11*t12 110 t16 = 1/t5**3.0d+0 111 t17 = t8+8.658781460080348d-1*t6+3.183d-1 112 t18 = 1/t17 113 t19 = 1/t17**2 114 t20 = 1/t4 115 fnc(iq) = fnc(iq)-1.1548969154728159d+0*t10*t7*t9*wght/(t8+8 116 1 .658781460080349d-1*t6+3.183d-1) 117 Amat(iq,D1_RA) = 1.385405033612855d+1*t18*t7*(-8.33616803355 118 1 3906d-2*rhoa*t9*wght-8.336168033553906d-2*t10*(4.71900618 119 2 4271736d-1*t1*t13*t3-3.8035d-1*t1*t14-1.363643525194619d- 120 3 2*gammaaa*t1*t11*t12)*wght)+1.1548969154728159d+0*t10*t19 121 4 *(6.44577519522176d+0*t1*t15*t3*t4+3.5000174696544145d-1* 122 5 t1*t13*t3-2.821d-1*t1*t14-1.0113943432559537d-2*gammaaa*t 123 6 1*t11*t12)*t7*t9*wght+8.597290421421169d+0*t10*t15*t16*t1 124 7 8*t9*wght+Amat(iq,D1_RA) 125 Cmat(iq,D1_GAA) = 1.1548969154728159d+0*t10*t19*(3.127642456 126 1 1244703d-3*t1**2*t11*t3/t10+1.8963643936049138d-3*t1*t11/ 127 2 rhoa**2.3333333333333334d+0)*t7*t9*wght+4.171608490100933 128 3 d-3*t1*t11*t16*t18*t20*t9*wght-2.9528769394720183d-3*t1*t 129 4 11*t18*t20*t7*wght+Cmat(iq,D1_GAA) 130 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 131 endif ! rhoa.gt.tol_rho 132 else ! ipol.eq.1 133 rhoa = rho(iq,R_A) 134 rhob = rho(iq,R_B) 135 gammaaa = rgamma(iq,G_AA) 136 gammaab = rgamma(iq,G_AB) 137 gammabb = rgamma(iq,G_BB) 138 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 139 t1 = param(1) 140 t2 = 4.492667444378077d-3*gammaaa/rhoa**2.6666666666666666d+ 141 1 0+1.0d+0 142 t3 = 1.804d+0-8.04d-1/t2 143 t4 = rhoa**3.333333333333333d-1 144 t5 = 4.492667444378077d-3*gammabb/rhob**2.6666666666666666d+ 145 1 0+1.0d+0 146 t6 = 1.804d+0-8.04d-1/t5 147 t7 = rhob**3.333333333333333d-1 148 t8 = 1.8610514726982d+0*t6*t7+1.8610514726982d+0*t3*t4 149 t9 = 1/t8 150 t10 = t1*t3*t4*t6*t7*t9 151 t11 = t10**2.0d+0 152 t12 = 1/t11 153 t13 = 3.908227599821866d+0*t1*t3*t4*t6*t7*t9+1.1995919419748 154 1 984d+1*t11+3.183d-1 155 t14 = 1/t13 156 t15 = 5.269388045346497d+0*t1*t3*t4*t6*t7*t9+5.764d-1 157 t16 = 1/t10**3.0d+0 158 t17 = 1/t2**2 159 t18 = 1/rhoa**3.3333333333333337d+0 160 t19 = 1/rhoa**6.666666666666666d-1 161 t20 = 6.203504908994d-1*t19*t3-1.7926167019779396d-2*gammaaa 162 1 *t17*t18 163 t21 = 1/t8**2 164 t22 = 3.333333333333333d-1*t1*t19*t3*t6*t7*t9-9.632279000746 165 1 596d-3*gammaaa*t1*t17*t18*t6*t7*t9-t1*t20*t21*t3*t4*t6*t7 166 t23 = 1/t13**2 167 t24 = 1/t5**2 168 t25 = 1/rhob**3.3333333333333337d+0 169 t26 = 1/rhob**6.666666666666666d-1 170 t27 = 6.203504908994d-1*t26*t6-1.7926167019779396d-2*gammabb 171 1 *t24*t25 172 t28 = 3.333333333333333d-1*t1*t26*t3*t4*t6*t9-9.632279000746 173 1 596d-3*gammabb*t1*t24*t25*t3*t4*t9-t1*t21*t27*t3*t4*t6*t7 174 t29 = 1/rhoa**2 175 t30 = 1/rhoa**2.3333333333333334d+0 176 t31 = 3.612104625279974d-3*t1*t17*t30*t6*t7*t9-6.72231263241 177 1 7276d-3*t1*t17*t21*t29*t3*t6*t7 178 t32 = 1/rhob**2.3333333333333334d+0 179 t33 = 1/rhob**2 180 t34 = 3.612104625279974d-3*t1*t24*t3*t32*t4*t9-6.72231263241 181 1 7276d-3*t1*t21*t24*t3*t33*t4*t6 182 fnc(iq) = fnc(iq)-8.336168033553906d-2*rhoa*rhob*t12*t14*t15 183 1 *wght 184 Amat(iq,D1_RA) = t12*t14*(-8.336168033553906d-2*rhoa*rhob*(1 185 1 .7564626817821655d+0*t1*t19*t3*t6*t7*t9-5.075621581597621 186 2 d-2*gammaaa*t1*t17*t18*t6*t7*t9-5.269388045346497d+0*t1*t 187 3 20*t21*t3*t4*t6*t7)*wght-8.336168033553906d-2*rhob*t15*wg 188 4 ht)+8.336168033553906d-2*rhoa*rhob*t12*t15*t23*(2.3991838 189 5 839497967d+1*t1*t22*t3*t4*t6*t7*t9+1.302742533273955d+0*t 190 6 1*t19*t3*t6*t7*t9-3.7645138639902426d-2*gammaaa*t1*t17*t1 191 7 8*t6*t7*t9-3.908227599821866d+0*t1*t20*t21*t3*t4*t6*t7)*w 192 8 ght+1.6672336067107812d-1*rhoa*rhob*t14*t15*t16*t22*wght+ 193 9 Amat(iq,D1_RA) 194 Amat(iq,D1_RB) = t12*t14*(-8.336168033553906d-2*rhoa*rhob*(1 195 1 .7564626817821655d+0*t1*t26*t3*t4*t6*t9-5.075621581597621 196 2 d-2*gammabb*t1*t24*t25*t3*t4*t9-5.269388045346497d+0*t1*t 197 3 21*t27*t3*t4*t6*t7)*wght-8.336168033553906d-2*rhoa*t15*wg 198 4 ht)+8.336168033553906d-2*rhoa*rhob*t12*t15*t23*(2.3991838 199 5 839497967d+1*t1*t28*t3*t4*t6*t7*t9+1.302742533273955d+0*t 200 6 1*t26*t3*t4*t6*t9-3.7645138639902426d-2*gammabb*t1*t24*t2 201 7 5*t3*t4*t9-3.908227599821866d+0*t1*t21*t27*t3*t4*t6*t7)*w 202 8 ght+1.6672336067107812d-1*rhoa*rhob*t14*t15*t16*t28*wght+ 203 9 Amat(iq,D1_RB) 204 Cmat(iq,D1_GAA) = 8.336168033553906d-2*rhoa*rhob*t12*t15*t23 205 1 *(2.3991838839497967d+1*t1*t3*t31*t4*t6*t7*t9+1.411692698 206 2 9963413d-2*t1*t17*t30*t6*t7*t9-2.6272327764644376d-2*t1*t 207 3 17*t21*t29*t3*t6*t7)*wght-8.336168033553906d-2*rhoa*rhob* 208 4 t12*t14*(1.9033580930991081d-2*t1*t17*t30*t6*t7*t9-3.5422 209 5 473822341327d-2*t1*t17*t21*t29*t3*t6*t7)*wght+1.667233606 210 6 7107812d-1*rhoa*rhob*t14*t15*t16*t31*wght+Cmat(iq,D1_GAA) 211 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 212 Cmat(iq,D1_GBB) = 8.336168033553906d-2*rhoa*rhob*t12*t15*t23 213 1 *(2.3991838839497967d+1*t1*t3*t34*t4*t6*t7*t9+1.411692698 214 2 9963413d-2*t1*t24*t3*t32*t4*t9-2.6272327764644376d-2*t1*t 215 3 21*t24*t3*t33*t4*t6)*wght-8.336168033553906d-2*rhoa*rhob* 216 4 t12*t14*(1.9033580930991081d-2*t1*t24*t3*t32*t4*t9-3.5422 217 5 473822341327d-2*t1*t21*t24*t3*t33*t4*t6)*wght+1.667233606 218 6 7107812d-1*rhoa*rhob*t14*t15*t16*t34*wght+Cmat(iq,D1_GBB) 219 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 220 fnc(iq) = fnc(iq) 221 Amat(iq,D1_RA) = Amat(iq,D1_RA) 222 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 223 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 224 fnc(iq) = fnc(iq) 225 Amat(iq,D1_RB) = Amat(iq,D1_RB) 226 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 227 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 228 endif ! ipol.eq.1 229 enddo ! iq 230 end 231C> 232C> \brief Evaluate the nwxcm_c_pbeop functional [1] 233C> 234C> \f{eqnarray*}{ 235C> {\it t_1} &=& {\it param}\left(1\right)\\\\ 236C> {\it t_2} &=& \rho_\alpha^{{{1}\over{3}}}\\\\ 237C> {\it t_3} &=& \rho_\beta^{{{1}\over{3}}}\\\\ 238C> {\it t_4} &=& 1.804-{{0.804}\over{{{0.004492667444378077 239C> \,\sigma_{\alpha\alpha}}\over{\rho_\alpha^{{{8}\over{3}}}}} 240C> +1.0}}\\\\ 241C> {\it t_5} &=& 1.804-{{0.804}\over{{{0.004492667444378077 242C> \,\sigma_{\beta\beta}}\over{\rho_\beta^{{{8}\over{3}}}}} 243C> +1.0}}\\\\ 244C> {\it t_6} &=& {{1}\over{1.8610514726982\,{\it t_3}\,{\it t_5} 245C> +1.8610514726982\,{\it t_2}\,{\it t_4}}}\\\\ 246C> {\it t_7} &=& \left({\it t_1}\,{\it t_2}\,{\it t_3}\,{\it t_4} 247C> \,{\it t_6}\,{\it t_5}\right)^{2.0}\\\\ 248C> f &=& -{{0.08336168033553906\,\rho_\alpha\,\rho_\beta\, 249C> \left(5.269388045346497\,{\it t_1}\,{\it t_2}\,{\it t_3}\,{ 250C> \it t_4}\,{\it t_6}\,{\it t_5}+0.5764\right)}\over{{\it t_7} 251C> \,\left(11.99591941974898\,{\it t_7}+3.908227599821866\,{ 252C> \it t_1}\,{\it t_2}\,{\it t_3}\,{\it t_4}\,{\it t_6}\,{\it t_5} 253C> +0.3183\right)}}\\\\ 254C> g &=& 0\\\\ 255C> G &=& 0.0\\\\ 256C> \f} 257C> 258C> Code generated with Maxima 5.34.0 [2] 259C> driven by autoxc [3]. 260C> 261C> ### References ### 262C> 263C> [1] T Tsuneda, T Suzumura, K Hirao, J.Chem.Phys. 111 264C> , 5656 (1999) , DOI: 265C> <a href="https://doi.org/10.1063/1.479954 "> 266C> 10.1063/1.479954 </a> 267C> 268C> [2] Maxima, a computer algebra system, 269C> <a href="http://maxima.sourceforge.net/"> 270C> http://maxima.sourceforge.net/</a> 271C> 272C> [3] autoxc, revision 27097 2015-05-08 273C> 274 subroutine nwxcm_c_pbeop_d2(param,tol_rho,ipol,nq,wght, 275 +rho,rgamma,fnc,Amat,Amat2,Cmat,Cmat2) 276c $Id: $ 277#ifdef NWXC_QUAD_PREC 278 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 279 integer, parameter :: rk=selected_real_kind(30) 280#else 281 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 282 integer, parameter :: rk=selected_real_kind(15) 283#endif 284#include "nwxc_param.fh" 285 double precision param(*) !< [Input] Parameters of functional 286 double precision tol_rho !< [Input] The lower limit on the density 287 integer ipol !< [Input] The number of spin channels 288 integer nq !< [Input] The number of points 289 double precision wght !< [Input] The weight of the functional 290 double precision rho(nq,*) !< [Input] The density 291 double precision rgamma(nq,*) !< [Input] The norm of the density 292 !< gradients 293 double precision fnc(nq) !< [Output] The value of the functional 294c 295c Sampling Matrices for the XC Kernel 296c 297 double precision Amat(nq,*) !< [Output] The derivative wrt rho 298 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 299c 300c Sampling Matrices for the XC Kernel 301c 302 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 303 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 304 !< and possibly rho 305 integer iq 306 double precision tmp 307 double precision rhoa,rhob 308 double precision gammaaa,gammaab,gammabb 309 double precision taua,taub 310 double precision nwxcm_heaviside 311 external nwxcm_heaviside 312CDIR$ NOVECTOR 313 do iq = 1, nq 314 if (ipol.eq.1) then 315 rhoa = 0.5d0*rho(iq,R_T) 316 gammaaa = 0.25d0*rgamma(iq,G_TT) 317 if (rhoa.gt.tol_rho) then 318 t1 = param(1) 319 t2 = 1/rhoa**2.6666666666666666d+0 320 t3 = 4.492667444378077d-3*gammaaa*t2+1.0d+0 321 t4 = 1.804d+0-8.04d-1/t3 322 t5 = rhoa**3.333333333333333d-1 323 t6 = t1*t4*t5 324 t7 = t6**2.0d+0 325 t8 = 1/t7 326 t9 = 1.0500052408963245d+0*t1*t4*t5 327 t10 = 1.415701855281521d+0*t1*t4*t5+5.764d-1 328 t11 = rhoa**2 329 t12 = 1/t3**2 330 t13 = 1/rhoa**3.3333333333333337d+0 331 t14 = 1/rhoa**6.666666666666666d-1 332 t15 = 6.203504908994d-1*t14*t4-1.7926167019779396d-2*gammaaa 333 1 *t12*t13 334 t16 = 8.955510855647054d-2*t1*t14*t4-7.218105721705101d-2*t1 335 1 *t15-2.587859374674219d-3*gammaaa*t1*t12*t13 336 t17 = 1/t6**3.0d+0 337 t18 = t9+8.658781460080348d-1*t7+3.183d-1 338 t19 = 1/t18 339 t20 = 1/t18**2 340 t21 = 6.44577519522176d+0*t1*t16*t4*t5+3.5000174696544145d-1 341 1 *t1*t14*t4-2.821d-1*t1*t15-1.0113943432559537d-2*gammaaa* 342 2 t1*t12*t13 343 t22 = 4.719006184271736d-1*t1*t14*t4-3.8035d-1*t1*t15-1.3636 344 1 43525194619d-2*gammaaa*t1*t12*t13 345 t23 = -8.336168033553906d-2*t11*t22*wght-8.336168033553906d- 346 1 2*rhoa*t10*wght 347 t24 = 1/t5 348 t25 = 1/rhoa**2.3333333333333334d+0 349 t26 = 1.8963643936049138d-3*t1*t12*t25 350 t27 = t1**2 351 t28 = 1/t11 352 t29 = 3.1276424561244703d-3*t12*t27*t28*t4+t26 353 t30 = 1/t18**3 354 t31 = -2.3097938309456317d+0*t10*t11*t21**2*t30*t8*wght 355 t32 = 1/t6**4.0d+0 356 t33 = -9.599999999999997d+1*t10*t11*t16**2*t19*t32*wght 357 t34 = -1.7194580842842339d+1*t10*t11*t16*t17*t20*t21*wght 358 t35 = -1.6672336067107812d-1*rhoa*t22*wght 359 t36 = gammaaa**2 360 t37 = 1/t3**3 361 t38 = 1/rhoa**7 362 t39 = 1/rhoa**4.333333333333333d+0 363 t40 = 1/t4 364 t41 = 1/rhoa**3.6666666666666664d+0 365 t42 = 7.327274635867936d-3*gammaaa*t1*t12*t15*t40*t41 366 t43 = 1/rhoa**1.6666666666666669d+0 367 t44 = -4.135669939329333d-1*t4*t43+5.377850105933819d-2*gamm 368 1 aaa*t12*t39-4.295269705186499d-4*t36*t37*t38 369 t45 = 1/rhoa 370 t46 = -2.5356666666666666d-1*t1*t15*t45 371 t47 = t15**2 372 t48 = 2.0437371323672143d-1*t1*t24*t40*t47 373 t49 = 1.6672336067107812d-1*rhoa*t10*t16*wght 374 t50 = 1.6672336067107812d-1*t11*t16*t22*wght 375 t51 = 1.390536163366978d-3*gammaaa*t1*t12*t15*t40*t41 376 t52 = -4.812070481136733d-2*t1*t15*t45 377 t53 = 3.8785094488762883d-2*t1*t24*t40*t47 378 t54 = t53+t52+t51-7.218105721705101d-2*t1*t44-5.970340570431 379 1 37d-2*t1*t4*t43+7.76357812402266d-3*gammaaa*t1*t12*t39-6. 380 2 20074216705465d-5*t1*t36*t37*t38 381 t55 = -2.0d+0*t16*t23 382 t56 = 8.336168033553906d-2*rhoa*t10*t21*wght 383 t57 = 8.336168033553906d-2*t11*t21*t22*wght 384 t58 = 5.434531812221229d-3*gammaaa*t1*t12*t15*t40*t41 385 t59 = -6.208750505646785d-2*gammaaa*t1*t12*t13*t16 386 t60 = -1.8806666666666666d-1*t1*t15*t45 387 t61 = 2.1485917317405864d+0*t1*t14*t16*t4 388 t62 = -1.7317562920160695d+0*t1*t15*t16 389 t63 = 1.5158097674268203d-1*t1*t24*t40*t47 390 t64 = -t21*t23 391 t65 = 1/t3**4 392 t66 = 2.4926983511559697d-5*t1*t36*t38*t40*t65+t53+t52+t51+2 393 1 .985170285215685d-2*t1*t4*t43-1.7252395831161463d-3*gamma 394 2 aa*t1*t12*t39 395 t67 = -4.6581468744135934d-2*t1*t10*t12*t16*t19*t24*t32*wght 396 t68 = -2.1314177932294023d-4*t1*t12*wght/rhoa**1.33333333333 397 1 33333d+0 398 t69 = 1/rhoa**6 399 t70 = 1.610726139444937d-4*gammaaa*t37*t69-1.568539614230697 400 1 3d-2*t12*t13 401 t71 = -8.08981147293451d-5*t1*t10*t12*t21*t24*wght 402 t72 = 4.2628355864588047d-4*t1*t12*t16*t24*wght 403 t73 = -7.218105721705101d-2*t1*t70+4.673809408417444d-6*gamm 404 1 aaa*t1*t40*t65*t69+2.3252783126454943d-5*gammaaa*t1*t37*t 405 2 69-2.4261181637570808d-3*t1*t12*t13 406 t74 = -9.704472655028322d-4*t1*t12*t23*t25 407 t75 = 2.1314177932294023d-4*t1*t12*t21*t24*wght 408 t76 = -2.168404344971009d-19*t1*t12*t15*t2*t40 409 t77 = 1.1641407198087722d-2*t1*t12*t16*t25 410 t78 = 3.127642456124471d-3*t12*t27*t28*t4+t26 411 t79 = 1.617412109171387d-4*t1*t12*t13-4.673809408417444d-6*g 412 1 ammaaa*t1*t40*t65*t69 413 t80 = 1/rhoa**5 414 t81 = 4.1368571381671093d-7*t2*t27*t65*wght 415 t82 = -1.7526785281565413d-6*t1*t40*t65*t80-4.35989683621030 416 1 2d-6*t1*t37*t80 417 t83 = 1/rhoa**4.666666666666667d+0 418 t84 = 1/rhoa**3 419 fnc(iq) = fnc(iq)-1.1548969154728159d+0*t10*t11*t8*wght/(t9+ 420 1 8.658781460080349d-1*t7+3.183d-1) 421 Amat(iq,D1_RA) = 1.1548969154728159d+0*t10*t11*t20*t21*t8*wg 422 1 ht+8.597290421421169d+0*t10*t11*t16*t17*t19*wght+1.385405 423 2 033612855d+1*t19*t23*t8+Amat(iq,D1_RA) 424 Cmat(iq,D1_GAA) = 1.1548969154728159d+0*t10*t11*t20*t29*t8*w 425 1 ght-2.9528769394720183d-3*t1*t12*t19*t24*t8*wght+4.171608 426 2 490100933d-3*t1*t10*t12*t17*t19*t24*wght+Cmat(iq,D1_GAA) 427 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 428 Amat2(iq,D2_RA_RA) = 1.385405033612855d+1*t20*t8*(8.33616803 429 1 3553906d-2*t10*t11*(t63+t62+t61+t60+t59+t58+6.44577519522 430 2 176d+0*t1*t4*t5*t54-2.821d-1*t1*t44-2.3333449797696096d-1 431 3 *t1*t4*t43+3.034183029767861d-2*gammaaa*t1*t12*t39-2.4233 432 4 911676662234d-4*t1*t36*t37*t38)*wght+t64+t57+t56)+5.15662 433 5 0156177406d+1*t17*t19*(1.6672336067107812d-1*t10*t11*t54* 434 6 wght+t55+t50+t49)+1.385405033612855d+1*t19*t8*(t35-8.3361 435 7 68033553906d-2*t11*(t48+t46-3.8035d-1*t1*t44-3.1460041228 436 8 478236d-1*t1*t4*t43+t42+4.090930575583857d-2*gammaaa*t1*t 437 9 12*t39-3.2674116647353707d-4*t1*t36*t37*t38)*wght)+t34+t3 438 : 3+t31+Amat2(iq,D2_RA_RA) 439 Amat2(iq,D2_RA_RB) = 1.385405033612855d+1*t20*t8*(8.33616803 440 1 3553906d-2*t10*t11*(6.44577519522176d+0*t1*t4*t5*t66+9.74 441 2 2032494018218d-5*t1*t36*t38*t40*t65+t63+t62+t61+t60+t59+t 442 3 58+1.1666724898848048d-1*t1*t4*t43-6.742628955039691d-3*g 443 4 ammaaa*t1*t12*t39)*wght+t64+t57+t56)+5.156620156177406d+1 444 5 *t17*t19*(1.6672336067107812d-1*t10*t11*t66*wght+t55+t50+ 445 6 t49)+1.385405033612855d+1*t19*t8*(-8.336168033553906d-2*t 446 7 11*(1.313499489223619d-4*t1*t36*t38*t40*t65+t48+t46+1.573 447 8 0020614239118d-1*t1*t4*t43+t42-9.090956834630795d-3*gamma 448 9 aa*t1*t12*t39)*wght-8.336168033553906d-2*t10*wght+t35)+t3 449 : 4+t33+t31+Amat2(iq,D2_RA_RB) 450 Cmat2(iq,D2_RA_GAA) = 1.385405033612855d+1*t20*t8*(8.3361680 451 1 33553906d-2*t10*t11*(t77+t76+6.44577519522176d+0*t1*t4*t5 452 2 *t73-2.821d-1*t1*t70+1.8266310926284157d-5*gammaaa*t1*t40 453 3 *t65*t69+9.087716878748338d-5*gammaaa*t1*t37*t69-9.481821 454 4 968024564d-3*t1*t12*t13)*wght+t75-t23*t29)+5.156620156177 455 5 406d+1*t17*t19*(1.6672336067107812d-1*t10*t11*t73*wght+t7 456 6 4+t72)+1.385405033612855d+1*t19*t8*(t68-8.336168033553906 457 7 d-2*t11*(-3.8035d-1*t1*t70+2.4628115422942856d-5*gammaaa* 458 8 t1*t40*t65*t69+1.2252793742757642d-4*gammaaa*t1*t37*t69-1 459 9 .2784158048699554d-2*t1*t12*t13)*wght)+5.156620156177406d 460 : +1*t17*t20*(t71-1.6672336067107812d-1*t10*t11*t16*t29*wgh 461 ; t)-2.3097938309456317d+0*t10*t11*t21*t29*t30*t8*wght+t67+ 462 < Cmat2(iq,D2_RA_GAA) 463 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 464 Cmat2(iq,D2_RA_GBB) = 1.385405033612855d+1*t20*t8*(8.3361680 465 1 33553906d-2*t10*t11*(6.44577519522176d+0*t1*t4*t5*t79+t77 466 2 +t76-1.8266310926284166d-5*gammaaa*t1*t40*t65*t69+6.32121 467 3 4645349711d-4*t1*t12*t13)*wght-t23*t78+t75)+5.15662015617 468 4 7406d+1*t17*t19*(1.6672336067107812d-1*t10*t11*t79*wght+t 469 5 74+t72)+5.156620156177406d+1*t17*t20*(t71-1.6672336067107 470 6 812d-1*t10*t11*t16*t78*wght)+1.385405033612855d+1*t19*t8* 471 7 (t68-8.336168033553906d-2*t11*(8.522772032466369d-4*t1*t1 472 8 2*t13-2.4628115422942862d-5*gammaaa*t1*t40*t65*t69)*wght) 473 9 -2.3097938309456317d+0*t10*t11*t21*t30*t78*t8*wght+t67+Cm 474 : at2(iq,D2_RA_GBB) 475 Cmat2(iq,D2_GAA_GAA) = 1.385405033612855d+1*t20*t8*(8.336168 476 1 033553906d-2*t10*t11*(5.648685890994609d-6*t27*t65*t83+6. 477 2 44577519522176d+0*t1*t4*t5*t82-6.84986659735656d-6*t1*t40 478 3 *t65*t80-1.7039469147653133d-5*t1*t37*t80)*wght+4.2628355 479 4 864588047d-4*t1*t12*t24*t29*wght)+5.156620156177406d+1*t1 480 5 7*t19*(1.6672336067107812d-1*t10*t11*t82*wght+t81)-1.1548 481 6 969154728159d+0*t11*t19*t8*(-9.235543283603571d-6*t1*t40* 482 7 t65*t80-2.2973988267670578d-5*t1*t37*t80)*wght-2.30979383 483 8 09456317d+0*t10*t11*t29**2*t30*t8*wght-2.260242948292618d 484 9 -5*t10*t19*t2*t27*t32*t65*wght-8.343216980201866d-3*t1*t1 485 : 0*t12*t17*t20*t24*t29*wght+Cmat2(iq,D2_GAA_GAA) 486 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 487 Cmat2(iq,D2_GAA_GBB) = 5.156620156177406d+1*t17*t19*(2.92212 488 1 4543902974d-7*t1*t10*t40*t65*t84*wght+t81)+1.385405033612 489 2 855d+1*t20*t8*(8.336168033553906d-2*t10*t11*(1.6946057672 490 3 983827d-5*t27*t65*t83+6.849866597356562d-6*t1*t40*t65*t80 491 4 )*wght+2.1314177932294023d-4*t1*t12*t24*t78*wght+2.131417 492 5 7932294023d-4*t1*t12*t24*t29*wght)+5.156620156177406d+1*t 493 6 17*t20*(-8.08981147293451d-5*t1*t10*t12*t24*t78*wght-8.08 494 7 981147293451d-5*t1*t10*t12*t24*t29*wght)-1.06661004509494 495 8 46d-5*t1*t19*t40*t65*t8*t84*wght-2.3097938309456317d+0*t1 496 9 0*t11*t29*t30*t78*t8*wght-2.2602429482926184d-5*t10*t19*t 497 : 2*t27*t32*t65*wght+Cmat2(iq,D2_GAA_GBB) 498 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 499 endif ! rhoa.gt.tol_rho 500 else ! ipol.eq.1 501 rhoa = rho(iq,R_A) 502 rhob = rho(iq,R_B) 503 gammaaa = rgamma(iq,G_AA) 504 gammaab = rgamma(iq,G_AB) 505 gammabb = rgamma(iq,G_BB) 506 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 507 t1 = param(1) 508 t2 = 4.492667444378077d-3*gammaaa/rhoa**2.6666666666666666d+ 509 1 0+1.0d+0 510 t3 = 1.804d+0-8.04d-1/t2 511 t4 = rhoa**3.333333333333333d-1 512 t5 = 4.492667444378077d-3*gammabb/rhob**2.6666666666666666d+ 513 1 0+1.0d+0 514 t6 = 1.804d+0-8.04d-1/t5 515 t7 = rhob**3.333333333333333d-1 516 t8 = 1.8610514726982d+0*t6*t7+1.8610514726982d+0*t3*t4 517 t9 = 1/t8 518 t10 = t1*t3*t4*t6*t7*t9 519 t11 = t10**2.0d+0 520 t12 = 1/t11 521 t13 = 3.908227599821866d+0*t1*t3*t4*t6*t7*t9+1.1995919419748 522 1 984d+1*t11+3.183d-1 523 t14 = 1/t13 524 t15 = 5.269388045346497d+0*t1*t3*t4*t6*t7*t9+5.764d-1 525 t16 = 1/t10**3.0d+0 526 t17 = 1/t2**2 527 t18 = 1/rhoa**3.3333333333333337d+0 528 t19 = 1/rhoa**6.666666666666666d-1 529 t20 = 6.203504908994d-1*t19*t3-1.7926167019779396d-2*gammaaa 530 1 *t17*t18 531 t21 = 1/t8**2 532 t22 = 3.333333333333333d-1*t1*t19*t3*t6*t7*t9-9.632279000746 533 1 596d-3*gammaaa*t1*t17*t18*t6*t7*t9-t1*t20*t21*t3*t4*t6*t7 534 t23 = 1/t13**2 535 t24 = 2.3991838839497967d+1*t1*t22*t3*t4*t6*t7*t9+1.30274253 536 1 3273955d+0*t1*t19*t3*t6*t7*t9-3.7645138639902426d-2*gamma 537 2 aa*t1*t17*t18*t6*t7*t9-3.908227599821866d+0*t1*t20*t21*t3 538 3 *t4*t6*t7 539 t25 = 1.7564626817821655d+0*t1*t19*t3*t6*t7*t9-5.07562158159 540 1 7621d-2*gammaaa*t1*t17*t18*t6*t7*t9-5.269388045346497d+0* 541 2 t1*t20*t21*t3*t4*t6*t7 542 t26 = -8.336168033553906d-2*rhoa*rhob*t25*wght-8.33616803355 543 1 3906d-2*rhob*t15*wght 544 t27 = 1/t5**2 545 t28 = 1/rhob**3.3333333333333337d+0 546 t29 = 1/rhob**6.666666666666666d-1 547 t30 = 6.203504908994d-1*t29*t6-1.7926167019779396d-2*gammabb 548 1 *t27*t28 549 t31 = 3.333333333333333d-1*t1*t29*t3*t4*t6*t9-9.632279000746 550 1 596d-3*gammabb*t1*t27*t28*t3*t4*t9-t1*t21*t3*t30*t4*t6*t7 551 t32 = 2.3991838839497967d+1*t1*t3*t31*t4*t6*t7*t9+1.30274253 552 1 3273955d+0*t1*t29*t3*t4*t6*t9-3.7645138639902426d-2*gamma 553 2 bb*t1*t27*t28*t3*t4*t9-3.908227599821866d+0*t1*t21*t3*t30 554 3 *t4*t6*t7 555 t33 = 1.7564626817821655d+0*t1*t29*t3*t4*t6*t9-5.07562158159 556 1 7621d-2*gammabb*t1*t27*t28*t3*t4*t9-5.269388045346497d+0* 557 2 t1*t21*t3*t30*t4*t6*t7 558 t34 = -8.336168033553906d-2*rhoa*rhob*t33*wght-8.33616803355 559 1 3906d-2*rhoa*t15*wght 560 t35 = 1/rhoa**2 561 t36 = 1/rhoa**2.3333333333333334d+0 562 t37 = 1.9033580930991081d-2*t1*t17*t36*t6*t7*t9-3.5422473822 563 1 341327d-2*t1*t17*t21*t3*t35*t6*t7 564 t38 = 3.612104625279974d-3*t1*t17*t36*t6*t7*t9-6.72231263241 565 1 7276d-3*t1*t17*t21*t3*t35*t6*t7 566 t39 = 2.3991838839497967d+1*t1*t3*t38*t4*t6*t7*t9+1.41169269 567 1 89963413d-2*t1*t17*t36*t6*t7*t9-2.6272327764644376d-2*t1* 568 2 t17*t21*t3*t35*t6*t7 569 t40 = 1/rhob**2.3333333333333334d+0 570 t41 = 1/rhob**2 571 t42 = 1.9033580930991081d-2*t1*t27*t3*t4*t40*t9-3.5422473822 572 1 341327d-2*t1*t21*t27*t3*t4*t41*t6 573 t43 = 3.612104625279974d-3*t1*t27*t3*t4*t40*t9-6.72231263241 574 1 7276d-3*t1*t21*t27*t3*t4*t41*t6 575 t44 = 2.3991838839497967d+1*t1*t3*t4*t43*t6*t7*t9+1.41169269 576 1 89963413d-2*t1*t27*t3*t4*t40*t9-2.6272327764644376d-2*t1* 577 2 t21*t27*t3*t4*t41*t6 578 t45 = 1/t13**3 579 t46 = 1/t10**4.0d+0 580 t47 = t20**2 581 t48 = 1/t8**3 582 t49 = gammaaa**2 583 t50 = 1/t2**3 584 t51 = 1/rhoa**7 585 t52 = 1/rhoa**4.333333333333333d+0 586 t53 = 1/rhoa**1.6666666666666669d+0 587 t54 = -4.135669939329333d-1*t3*t53+5.377850105933819d-2*gamm 588 1 aaa*t17*t52-4.295269705186499d-4*t49*t50*t51 589 t55 = -2.222222222222222d-1*t1*t3*t53*t6*t7*t9+2.88968370022 590 1 39795d-2*gammaaa*t1*t17*t52*t6*t7*t9-2.3079800683637772d- 591 2 4*t1*t49*t50*t51*t6*t7*t9-t1*t21*t3*t4*t54*t6*t7+2*t1*t3* 592 3 t4*t47*t48*t6*t7-6.666666666666666d-1*t1*t19*t20*t21*t3*t 593 4 6*t7+1.9264558001493193d-2*gammaaa*t1*t17*t18*t20*t21*t6* 594 5 t7 595 t56 = 1.111111111111111d-1*t1*t19*t29*t3*t6*t9-3.21075966691 596 1 5532d-3*gammaaa*t1*t17*t18*t29*t6*t9-3.210759666915532d-3 597 2 *gammabb*t1*t19*t27*t28*t3*t9+9.278079874822385d-5*gammaa 598 3 a*gammabb*t1*t17*t18*t27*t28*t9+2*t1*t20*t3*t30*t4*t48*t6 599 4 *t7-3.333333333333333d-1*t1*t19*t21*t3*t30*t6*t7+9.632279 600 5 000746596d-3*gammaaa*t1*t17*t18*t21*t30*t6*t7-3.333333333 601 6 333333d-1*t1*t20*t21*t29*t3*t4*t6+9.632279000746596d-3*ga 602 7 mmabb*t1*t20*t21*t27*t28*t3*t4 603 t57 = gammabb**2 604 t58 = 1/t5**3 605 t59 = 1/rhob**7 606 t60 = 1/rhob**4.333333333333333d+0 607 t61 = 1/rhob**1.6666666666666669d+0 608 t62 = t30**2 609 t63 = -4.135669939329333d-1*t6*t61+5.377850105933819d-2*gamm 610 1 abb*t27*t60-4.295269705186499d-4*t57*t58*t59 611 t64 = -2.222222222222222d-1*t1*t3*t4*t6*t61*t9+2.88968370022 612 1 39795d-2*gammabb*t1*t27*t3*t4*t60*t9-2.3079800683637772d- 613 2 4*t1*t3*t4*t57*t58*t59*t9-t1*t21*t3*t4*t6*t63*t7+2*t1*t3* 614 3 t4*t48*t6*t62*t7-6.666666666666666d-1*t1*t21*t29*t3*t30*t 615 4 4*t6+1.9264558001493193d-2*gammabb*t1*t21*t27*t28*t3*t30* 616 5 t4 617 t65 = 1/t2**4 618 t66 = 1/rhoa**5.666666666666667d+0 619 t67 = 1/rhoa**3 620 t68 = 1/rhoa**6 621 t69 = 1.610726139444937d-4*gammaaa*t50*t68-1.568539614230697 622 1 3d-2*t17*t18 623 t70 = 8.654925256364164d-5*gammaaa*t1*t50*t6*t68*t7*t9-8.428 624 1 244125653273d-3*t1*t17*t18*t6*t7*t9-t1*t21*t3*t4*t6*t69*t 625 2 7-2.240770877472425d-3*t1*t17*t21*t3*t6*t67*t7+6.47511908 626 3 056865d-5*gammaaa*t1*t21*t6*t65*t66*t7+1.344462526483455d 627 4 -2*t1*t17*t20*t3*t35*t48*t6*t7-3.612104625279974d-3*t1*t1 628 5 7*t20*t21*t36*t6*t7 629 t71 = 1.2040348750933245d-3*t1*t19*t27*t3*t40*t9-3.479279953 630 1 0583945d-5*gammaaa*t1*t17*t18*t27*t40*t9+1.34446252648345 631 2 5d-2*t1*t20*t27*t3*t4*t41*t48*t6-2.240770877472425d-3*t1* 632 3 t19*t21*t27*t3*t41*t6+6.47511908056865d-5*gammaaa*t1*t17* 633 4 t18*t21*t27*t41*t6-3.612104625279974d-3*t1*t20*t21*t27*t3 634 5 *t4*t40 635 t72 = 1.2040348750933245d-3*t1*t17*t29*t36*t6*t9-3.479279953 636 1 0583945d-5*gammabb*t1*t17*t27*t28*t36*t9+1.34446252648345 637 2 5d-2*t1*t17*t3*t30*t35*t48*t6*t7-3.612104625279974d-3*t1* 638 3 t17*t21*t30*t36*t6*t7-2.240770877472425d-3*t1*t17*t21*t29 639 4 *t3*t35*t6+6.47511908056865d-5*gammabb*t1*t17*t21*t27*t28 640 5 *t3*t35 641 t73 = 1/rhob**6 642 t74 = 1/t5**4 643 t75 = 1/rhob**5.666666666666667d+0 644 t76 = 1/rhob**3 645 t77 = 1.610726139444937d-4*gammabb*t58*t73-1.568539614230697 646 1 3d-2*t27*t28 647 t78 = 8.654925256364164d-5*gammabb*t1*t3*t4*t58*t73*t9-8.428 648 1 244125653273d-3*t1*t27*t28*t3*t4*t9-t1*t21*t3*t4*t6*t7*t7 649 2 7-2.240770877472425d-3*t1*t21*t27*t3*t4*t6*t76+6.47511908 650 3 056865d-5*gammabb*t1*t21*t3*t4*t74*t75+1.344462526483455d 651 4 -2*t1*t27*t3*t30*t4*t41*t48*t6-3.612104625279974d-3*t1*t2 652 5 1*t27*t3*t30*t4*t40 653 t79 = 1/rhoa**4.666666666666667d+0 654 t80 = 1/rhoa**5 655 t81 = -3.245596971136562d-5*t1*t50*t6*t7*t80*t9-4.8563393104 656 1 26487d-5*t1*t21*t6*t65*t7*t79+6.040223022918516d-5*t1*t21 657 2 *t3*t50*t6*t7*t79+9.037897425591375d-5*t1*t3*t48*t52*t6*t 658 3 65*t7 659 t82 = 1.304729982396898d-5*t1*t17*t27*t36*t40*t9+9.037897425 660 1 591375d-5*t1*t17*t27*t3*t35*t41*t48*t6-2.4281696552132434 661 2 d-5*t1*t17*t21*t27*t36*t41*t6-2.4281696552132434d-5*t1*t1 662 3 7*t21*t27*t3*t35*t40 663 t83 = 1/rhob**5 664 t84 = 1/rhob**4.666666666666667d+0 665 t85 = -3.245596971136562d-5*t1*t3*t4*t58*t83*t9-4.8563393104 666 1 26487d-5*t1*t21*t3*t4*t74*t84+6.040223022918516d-5*t1*t21 667 2 *t3*t4*t58*t6*t84+9.037897425591375d-5*t1*t3*t4*t48*t6*t6 668 3 0*t74 669 fnc(iq) = fnc(iq)-8.336168033553906d-2*rhoa*rhob*t12*t14*t15 670 1 *wght 671 Amat(iq,D1_RA) = 8.336168033553906d-2*rhoa*rhob*t12*t15*t23* 672 1 t24*wght+1.6672336067107812d-1*rhoa*rhob*t14*t15*t16*t22* 673 2 wght+t12*t14*t26+Amat(iq,D1_RA) 674 Amat(iq,D1_RB) = 8.336168033553906d-2*rhoa*rhob*t12*t15*t23* 675 1 t32*wght+1.6672336067107812d-1*rhoa*rhob*t14*t15*t16*t31* 676 2 wght+t12*t14*t34+Amat(iq,D1_RB) 677 Cmat(iq,D1_GAA) = 8.336168033553906d-2*rhoa*rhob*t12*t15*t23 678 1 *t39*wght+1.6672336067107812d-1*rhoa*rhob*t14*t15*t16*t38 679 2 *wght-8.336168033553906d-2*rhoa*rhob*t12*t14*t37*wght+Cma 680 3 t(iq,D1_GAA) 681 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 682 Cmat(iq,D1_GBB) = 8.336168033553906d-2*rhoa*rhob*t12*t15*t23 683 1 *t44*wght+1.6672336067107812d-1*rhoa*rhob*t14*t15*t16*t43 684 2 *wght-8.336168033553906d-2*rhoa*rhob*t12*t14*t42*wght+Cma 685 3 t(iq,D1_GBB) 686 Amat2(iq,D2_RA_RA) = t12*t23*(8.336168033553906d-2*rhoa*rhob 687 1 *t15*(2.3991838839497967d+1*t1*t3*t4*t55*t6*t7*t9-8.68495 688 2 0221826366d-1*t1*t3*t53*t6*t7*t9+1.1293541591970728d-1*ga 689 3 mmaaa*t1*t17*t52*t6*t7*t9-9.02011140301807d-4*t1*t49*t50* 690 4 t51*t6*t7*t9+7.997279613165988d+0*t1*t19*t22*t3*t6*t7*t9- 691 5 2.3109608544299284d-1*gammaaa*t1*t17*t18*t22*t6*t7*t9-3.9 692 6 08227599821866d+0*t1*t21*t3*t4*t54*t6*t7+7.81645519964373 693 7 1d+0*t1*t3*t4*t47*t48*t6*t7-2.3991838839497967d+1*t1*t20* 694 8 t21*t22*t3*t4*t6*t7-2.60548506654791d+0*t1*t19*t20*t21*t3 695 9 *t6*t7+7.529027727980485d-2*gammaaa*t1*t17*t18*t20*t21*t6 696 : *t7)*wght+8.336168033553906d-2*rhoa*rhob*t24*t25*wght+8.3 697 ; 36168033553906d-2*rhob*t15*t24*wght-t24*t26)+t12*t14*(-8. 698 < 336168033553906d-2*rhoa*rhob*(-1.17097512118811d+0*t1*t3* 699 = t53*t6*t7*t9+1.5226864744792862d-1*gammaaa*t1*t17*t52*t6* 700 > t7*t9-1.2161642581134076d-3*t1*t49*t50*t51*t6*t7*t9-5.269 701 ? 388045346497d+0*t1*t21*t3*t4*t54*t6*t7+1.0538776090692993 702 @ d+1*t1*t3*t4*t47*t48*t6*t7-3.512925363564331d+0*t1*t19*t2 703 1 0*t21*t3*t6*t7+1.0151243163195242d-1*gammaaa*t1*t17*t18*t 704 2 20*t21*t6*t7)*wght-1.6672336067107812d-1*rhob*t25*wght)+t 705 3 14*t16*(1.6672336067107812d-1*rhoa*rhob*t15*t55*wght+1.66 706 4 72336067107812d-1*rhoa*rhob*t22*t25*wght+1.66723360671078 707 5 12d-1*rhob*t15*t22*wght-2.0d+0*t22*t26)-5.001700820132344 708 6 d-1*rhoa*rhob*t14*t15*t22**2*t46*wght-1.6672336067107812d 709 7 -1*rhoa*rhob*t12*t15*t24**2*t45*wght-3.3344672134215625d- 710 8 1*rhoa*rhob*t15*t16*t22*t23*t24*wght+Amat2(iq,D2_RA_RA) 711 Amat2(iq,D2_RA_RB) = t12*t23*(8.336168033553906d-2*rhoa*rhob 712 1 *t15*(2.3991838839497967d+1*t1*t3*t4*t56*t6*t7*t9+7.99727 713 2 9613165988d+0*t1*t22*t29*t3*t4*t6*t9+4.342475110913183d-1 714 3 *t1*t19*t29*t3*t6*t9-1.2548379546634142d-2*gammaaa*t1*t17 715 4 *t18*t29*t6*t9-2.3109608544299284d-1*gammabb*t1*t22*t27*t 716 5 28*t3*t4*t9-1.2548379546634142d-2*gammabb*t1*t19*t27*t28* 717 6 t3*t9+3.6260847840132643d-4*gammaaa*gammabb*t1*t17*t18*t2 718 7 7*t28*t9+7.816455199643731d+0*t1*t20*t3*t30*t4*t48*t6*t7- 719 8 2.3991838839497967d+1*t1*t21*t22*t3*t30*t4*t6*t7-1.302742 720 9 533273955d+0*t1*t19*t21*t3*t30*t6*t7+3.7645138639902426d- 721 : 2*gammaaa*t1*t17*t18*t21*t30*t6*t7-1.302742533273955d+0*t 722 ; 1*t20*t21*t29*t3*t4*t6+3.7645138639902426d-2*gammabb*t1*t 723 < 20*t21*t27*t28*t3*t4)*wght+8.336168033553906d-2*rhoa*rhob 724 = *t24*t33*wght+8.336168033553906d-2*rhoa*t15*t24*wght-t26* 725 > t32)+t12*t14*(-8.336168033553906d-2*rhoa*rhob*(5.85487560 726 ? 594055d-1*t1*t19*t29*t3*t6*t9-1.6918738605325404d-2*gamma 727 @ aa*t1*t17*t18*t29*t6*t9-1.6918738605325404d-2*gammabb*t1* 728 1 t19*t27*t28*t3*t9+4.8889803176158986d-4*gammaaa*gammabb*t 729 2 1*t17*t18*t27*t28*t9+1.0538776090692993d+1*t1*t20*t3*t30* 730 3 t4*t48*t6*t7-1.7564626817821655d+0*t1*t19*t21*t3*t30*t6*t 731 4 7+5.075621581597621d-2*gammaaa*t1*t17*t18*t21*t30*t6*t7-1 732 5 .7564626817821655d+0*t1*t20*t21*t29*t3*t4*t6+5.0756215815 733 6 97621d-2*gammabb*t1*t20*t21*t27*t28*t3*t4)*wght-8.3361680 734 7 33553906d-2*rhob*t33*wght-8.336168033553906d-2*rhoa*t25*w 735 8 ght-8.336168033553906d-2*t15*wght)+t14*t16*(1.66723360671 736 9 07812d-1*rhoa*rhob*t15*t56*wght+1.6672336067107812d-1*rho 737 : a*rhob*t22*t33*wght+1.6672336067107812d-1*rhoa*t15*t22*wg 738 ; ht-2.0d+0*t26*t31)+t16*t23*(-1.6672336067107812d-1*rhoa*r 739 < hob*t15*t22*t32*wght-1.6672336067107812d-1*rhoa*rhob*t15* 740 = t24*t31*wght)-5.001700820132344d-1*rhoa*rhob*t14*t15*t22* 741 > t31*t46*wght-1.6672336067107812d-1*rhoa*rhob*t12*t15*t24* 742 ? t32*t45*wght+Amat2(iq,D2_RA_RB) 743 Amat2(iq,D2_RB_RB) = t12*t23*(8.336168033553906d-2*rhoa*rhob 744 1 *t15*(2.3991838839497967d+1*t1*t3*t4*t6*t64*t7*t9-8.68495 745 2 0221826366d-1*t1*t3*t4*t6*t61*t9+1.1293541591970728d-1*ga 746 3 mmabb*t1*t27*t3*t4*t60*t9+7.997279613165988d+0*t1*t29*t3* 747 4 t31*t4*t6*t9-9.02011140301807d-4*t1*t3*t4*t57*t58*t59*t9- 748 5 2.3109608544299284d-1*gammabb*t1*t27*t28*t3*t31*t4*t9-3.9 749 6 08227599821866d+0*t1*t21*t3*t4*t6*t63*t7+7.81645519964373 750 7 1d+0*t1*t3*t4*t48*t6*t62*t7-2.3991838839497967d+1*t1*t21* 751 8 t3*t30*t31*t4*t6*t7-2.60548506654791d+0*t1*t21*t29*t3*t30 752 9 *t4*t6+7.529027727980485d-2*gammabb*t1*t21*t27*t28*t3*t30 753 : *t4)*wght+8.336168033553906d-2*rhoa*rhob*t32*t33*wght+8.3 754 ; 36168033553906d-2*rhoa*t15*t32*wght-t32*t34)+t12*t14*(-8. 755 < 336168033553906d-2*rhoa*rhob*(-1.17097512118811d+0*t1*t3* 756 = t4*t6*t61*t9+1.5226864744792862d-1*gammabb*t1*t27*t3*t4*t 757 > 60*t9-1.2161642581134076d-3*t1*t3*t4*t57*t58*t59*t9-5.269 758 ? 388045346497d+0*t1*t21*t3*t4*t6*t63*t7+1.0538776090692993 759 @ d+1*t1*t3*t4*t48*t6*t62*t7-3.512925363564331d+0*t1*t21*t2 760 1 9*t3*t30*t4*t6+1.0151243163195242d-1*gammabb*t1*t21*t27*t 761 2 28*t3*t30*t4)*wght-1.6672336067107812d-1*rhoa*t33*wght)+t 762 3 14*t16*(1.6672336067107812d-1*rhoa*rhob*t15*t64*wght+1.66 763 4 72336067107812d-1*rhoa*rhob*t31*t33*wght+1.66723360671078 764 5 12d-1*rhoa*t15*t31*wght-2.0d+0*t31*t34)-5.001700820132344 765 6 d-1*rhoa*rhob*t14*t15*t31**2*t46*wght-1.6672336067107812d 766 7 -1*rhoa*rhob*t12*t15*t32**2*t45*wght-3.3344672134215625d- 767 8 1*rhoa*rhob*t15*t16*t23*t31*t32*wght+Amat2(iq,D2_RB_RB) 768 Cmat2(iq,D2_RA_GAA) = t12*t23*(8.336168033553906d-2*rhoa*rho 769 1 b*t15*(2.3991838839497967d+1*t1*t3*t4*t6*t7*t70*t9+3.3825 770 2 41776131776d-4*gammaaa*t1*t50*t6*t68*t7*t9+8.666103204112 771 3 231d-2*t1*t17*t22*t36*t6*t7*t9-3.293949630991462d-2*t1*t1 772 4 7*t18*t6*t7*t9-3.908227599821866d+0*t1*t21*t3*t4*t6*t69*t 773 5 7-8.75744258821479d-3*t1*t17*t21*t3*t6*t67*t7+2.530623910 774 6 2811573d-4*gammaaa*t1*t21*t6*t65*t66*t7+5.254465552928875 775 7 d-2*t1*t17*t20*t3*t35*t48*t6*t7-1.4116926989963413d-2*t1* 776 8 t17*t20*t21*t36*t6*t7-1.612806413056766d-1*t1*t17*t21*t22 777 9 *t3*t35*t6*t7)*wght+8.336168033553906d-2*rhoa*rhob*t24*t3 778 : 7*wght-t26*t39)+t12*t14*(-8.336168033553906d-2*rhoa*rhob* 779 ; (4.560615967925279d-4*gammaaa*t1*t50*t6*t68*t7*t9-4.44116 780 < 8883897918d-2*t1*t17*t18*t6*t7*t9-5.269388045346497d+0*t1 781 = *t21*t3*t4*t6*t69*t7-1.1807491274113775d-2*t1*t17*t21*t3* 782 > t6*t67*t7+3.411991507534344d-4*gammaaa*t1*t21*t6*t65*t66* 783 ? t7+7.084494764468265d-2*t1*t17*t20*t3*t35*t48*t6*t7-1.903 784 @ 3580930991081d-2*t1*t17*t20*t21*t36*t6*t7)*wght-8.3361680 785 1 33553906d-2*rhob*t37*wght)+t14*t16*(1.6672336067107812d-1 786 2 *rhoa*rhob*t15*t70*wght+1.6672336067107812d-1*rhoa*rhob*t 787 3 22*t37*wght-2.0d+0*t26*t38)+t16*t23*(-1.6672336067107812d 788 4 -1*rhoa*rhob*t15*t22*t39*wght-1.6672336067107812d-1*rhoa* 789 5 rhob*t15*t24*t38*wght)-5.001700820132344d-1*rhoa*rhob*t14 790 6 *t15*t22*t38*t46*wght-1.6672336067107812d-1*rhoa*rhob*t12 791 7 *t15*t24*t39*t45*wght+Cmat2(iq,D2_RA_GAA) 792 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 793 Cmat2(iq,D2_RA_GBB) = t12*t23*(8.336168033553906d-2*rhoa*rho 794 1 b*t15*(2.3991838839497967d+1*t1*t3*t4*t6*t7*t71*t9+8.6661 795 2 03204112231d-2*t1*t22*t27*t3*t4*t40*t9+4.705642329987803d 796 3 -3*t1*t19*t27*t3*t40*t9-1.3597817940049742d-4*gammaaa*t1* 797 4 t17*t18*t27*t40*t9+5.254465552928875d-2*t1*t20*t27*t3*t4* 798 5 t41*t48*t6-1.612806413056766d-1*t1*t21*t22*t27*t3*t4*t41* 799 6 t6-8.75744258821479d-3*t1*t19*t21*t27*t3*t41*t6+2.5306239 800 7 102811573d-4*gammaaa*t1*t17*t18*t21*t27*t41*t6-1.41169269 801 8 89963413d-2*t1*t20*t21*t27*t3*t4*t40)*wght+8.336168033553 802 9 906d-2*rhoa*rhob*t24*t42*wght-t26*t44)+t12*t14*(-8.336168 803 : 033553906d-2*rhoa*rhob*(6.344526976997026d-3*t1*t19*t27*t 804 ; 3*t40*t9-1.8333676191059622d-4*gammaaa*t1*t17*t18*t27*t40 805 < *t9+7.084494764468265d-2*t1*t20*t27*t3*t4*t41*t48*t6-1.18 806 = 07491274113775d-2*t1*t19*t21*t27*t3*t41*t6+3.411991507534 807 > 344d-4*gammaaa*t1*t17*t18*t21*t27*t41*t6-1.90335809309910 808 ? 81d-2*t1*t20*t21*t27*t3*t4*t40)*wght-8.336168033553906d-2 809 @ *rhob*t42*wght)+t14*t16*(1.6672336067107812d-1*rhoa*rhob* 810 1 t15*t71*wght+1.6672336067107812d-1*rhoa*rhob*t22*t42*wght 811 2 -2.0d+0*t26*t43)+t16*t23*(-1.6672336067107812d-1*rhoa*rho 812 3 b*t15*t22*t44*wght-1.6672336067107812d-1*rhoa*rhob*t15*t2 813 4 4*t43*wght)-5.001700820132344d-1*rhoa*rhob*t14*t15*t22*t4 814 5 3*t46*wght-1.6672336067107812d-1*rhoa*rhob*t12*t15*t24*t4 815 6 4*t45*wght+Cmat2(iq,D2_RA_GBB) 816 Cmat2(iq,D2_RB_GAA) = t12*t23*(8.336168033553906d-2*rhoa*rho 817 1 b*t15*(2.3991838839497967d+1*t1*t3*t4*t6*t7*t72*t9+8.6661 818 2 03204112231d-2*t1*t17*t31*t36*t6*t7*t9+4.705642329987803d 819 3 -3*t1*t17*t29*t36*t6*t9-1.3597817940049742d-4*gammabb*t1* 820 4 t17*t27*t28*t36*t9+5.254465552928875d-2*t1*t17*t3*t30*t35 821 5 *t48*t6*t7-1.4116926989963413d-2*t1*t17*t21*t30*t36*t6*t7 822 6 -1.612806413056766d-1*t1*t17*t21*t3*t31*t35*t6*t7-8.75744 823 7 258821479d-3*t1*t17*t21*t29*t3*t35*t6+2.5306239102811573d 824 8 -4*gammabb*t1*t17*t21*t27*t28*t3*t35)*wght+8.336168033553 825 9 906d-2*rhoa*rhob*t32*t37*wght-t34*t39)+t12*t14*(-8.336168 826 : 033553906d-2*rhoa*rhob*(6.344526976997026d-3*t1*t17*t29*t 827 ; 36*t6*t9-1.8333676191059622d-4*gammabb*t1*t17*t27*t28*t36 828 < *t9+7.084494764468265d-2*t1*t17*t3*t30*t35*t48*t6*t7-1.90 829 = 33580930991081d-2*t1*t17*t21*t30*t36*t6*t7-1.180749127411 830 > 3775d-2*t1*t17*t21*t29*t3*t35*t6+3.411991507534344d-4*gam 831 ? mabb*t1*t17*t21*t27*t28*t3*t35)*wght-8.336168033553906d-2 832 @ *rhoa*t37*wght)+t14*t16*(1.6672336067107812d-1*rhoa*rhob* 833 1 t15*t72*wght+1.6672336067107812d-1*rhoa*rhob*t31*t37*wght 834 2 -2.0d+0*t34*t38)+t16*t23*(-1.6672336067107812d-1*rhoa*rho 835 3 b*t15*t31*t39*wght-1.6672336067107812d-1*rhoa*rhob*t15*t3 836 4 2*t38*wght)-5.001700820132344d-1*rhoa*rhob*t14*t15*t31*t3 837 5 8*t46*wght-1.6672336067107812d-1*rhoa*rhob*t12*t15*t32*t3 838 6 9*t45*wght+Cmat2(iq,D2_RB_GAA) 839 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 840 Cmat2(iq,D2_RB_GBB) = t12*t23*(8.336168033553906d-2*rhoa*rho 841 1 b*t15*(2.3991838839497967d+1*t1*t3*t4*t6*t7*t78*t9+3.3825 842 2 41776131776d-4*gammabb*t1*t3*t4*t58*t73*t9+8.666103204112 843 3 231d-2*t1*t27*t3*t31*t4*t40*t9-3.293949630991462d-2*t1*t2 844 4 7*t28*t3*t4*t9-3.908227599821866d+0*t1*t21*t3*t4*t6*t7*t7 845 5 7-8.75744258821479d-3*t1*t21*t27*t3*t4*t6*t76+2.530623910 846 6 2811573d-4*gammabb*t1*t21*t3*t4*t74*t75+5.254465552928875 847 7 d-2*t1*t27*t3*t30*t4*t41*t48*t6-1.612806413056766d-1*t1*t 848 8 21*t27*t3*t31*t4*t41*t6-1.4116926989963413d-2*t1*t21*t27* 849 9 t3*t30*t4*t40)*wght+8.336168033553906d-2*rhoa*rhob*t32*t4 850 : 2*wght-t34*t44)+t12*t14*(-8.336168033553906d-2*rhoa*rhob* 851 ; (4.560615967925279d-4*gammabb*t1*t3*t4*t58*t73*t9-4.44116 852 < 8883897918d-2*t1*t27*t28*t3*t4*t9-5.269388045346497d+0*t1 853 = *t21*t3*t4*t6*t7*t77-1.1807491274113775d-2*t1*t21*t27*t3* 854 > t4*t6*t76+3.411991507534344d-4*gammabb*t1*t21*t3*t4*t74*t 855 ? 75+7.084494764468265d-2*t1*t27*t3*t30*t4*t41*t48*t6-1.903 856 @ 3580930991081d-2*t1*t21*t27*t3*t30*t4*t40)*wght-8.3361680 857 1 33553906d-2*rhoa*t42*wght)+t14*t16*(1.6672336067107812d-1 858 2 *rhoa*rhob*t15*t78*wght+1.6672336067107812d-1*rhoa*rhob*t 859 3 31*t42*wght-2.0d+0*t34*t43)+t16*t23*(-1.6672336067107812d 860 4 -1*rhoa*rhob*t15*t31*t44*wght-1.6672336067107812d-1*rhoa* 861 5 rhob*t15*t32*t43*wght)-5.001700820132344d-1*rhoa*rhob*t14 862 6 *t15*t31*t43*t46*wght-1.6672336067107812d-1*rhoa*rhob*t12 863 7 *t15*t32*t44*t45*wght+Cmat2(iq,D2_RB_GBB) 864 Cmat2(iq,D2_GAA_GAA) = t12*t23*(8.336168033553906d-2*rhoa*rh 865 1 ob*t15*(2.3991838839497967d+1*t1*t3*t4*t6*t7*t81*t9-1.268 866 2 453166049416d-4*t1*t50*t6*t7*t80*t9+8.666103204112231d-2* 867 3 t1*t17*t36*t38*t6*t7*t9-1.8979679327108684d-4*t1*t21*t6*t 868 4 65*t7*t79+2.3606566327249603d-4*t1*t21*t3*t50*t6*t7*t79+3 869 5 .53221601630552d-4*t1*t3*t48*t52*t6*t65*t7-1.612806413056 870 6 766d-1*t1*t17*t21*t3*t35*t38*t6*t7)*wght+1.66723360671078 871 7 12d-1*rhoa*rhob*t37*t39*wght)+t14*t16*(1.6672336067107812 872 8 d-1*rhoa*rhob*t15*t81*wght+3.3344672134215625d-1*rhoa*rho 873 9 b*t37*t38*wght)-8.336168033553906d-2*rhoa*rhob*t12*t14*(- 874 : 1.71023098797198d-4*t1*t50*t6*t7*t80*t9-2.558993630650758 875 ; d-4*t1*t21*t6*t65*t7*t79+3.1828278988193504d-4*t1*t21*t3* 876 < t50*t6*t7*t79+4.762418864947907d-4*t1*t3*t48*t52*t6*t65*t 877 = 7)*wght-5.001700820132344d-1*rhoa*rhob*t14*t15*t38**2*t46 878 > *wght-1.6672336067107812d-1*rhoa*rhob*t12*t15*t39**2*t45* 879 ? wght-3.3344672134215625d-1*rhoa*rhob*t15*t16*t23*t38*t39* 880 @ wght+Cmat2(iq,D2_GAA_GAA) 881 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 882 Cmat2(iq,D2_GAA_GBB) = t12*t23*(8.336168033553906d-2*rhoa*rh 883 1 ob*t15*(2.3991838839497967d+1*t1*t3*t4*t6*t7*t82*t9+8.666 884 2 103204112231d-2*t1*t27*t3*t38*t4*t40*t9+5.099181727518654 885 3 d-5*t1*t17*t27*t36*t40*t9+3.53221601630552d-4*t1*t17*t27* 886 4 t3*t35*t41*t48*t6-1.612806413056766d-1*t1*t21*t27*t3*t38* 887 5 t4*t41*t6-9.489839663554341d-5*t1*t17*t21*t27*t36*t41*t6- 888 6 9.489839663554341d-5*t1*t17*t21*t27*t3*t35*t40)*wght+8.33 889 7 6168033553906d-2*rhoa*rhob*t37*t44*wght+8.336168033553906 890 8 d-2*rhoa*rhob*t39*t42*wght)+t14*t16*(1.6672336067107812d- 891 9 1*rhoa*rhob*t15*t82*wght+1.6672336067107812d-1*rhoa*rhob* 892 : t37*t43*wght+1.6672336067107812d-1*rhoa*rhob*t38*t42*wght 893 ; )+t16*t23*(-1.6672336067107812d-1*rhoa*rhob*t15*t38*t44*w 894 < ght-1.6672336067107812d-1*rhoa*rhob*t15*t39*t43*wght)-8.3 895 = 36168033553906d-2*rhoa*rhob*t12*t14*(6.875128571647359d-5 896 > *t1*t17*t27*t36*t40*t9+4.762418864947907d-4*t1*t17*t27*t3 897 ? *t35*t41*t48*t6-1.279496815325379d-4*t1*t17*t21*t27*t36*t 898 @ 41*t6-1.279496815325379d-4*t1*t17*t21*t27*t3*t35*t40)*wgh 899 1 t-5.001700820132344d-1*rhoa*rhob*t14*t15*t38*t43*t46*wght 900 2 -1.6672336067107812d-1*rhoa*rhob*t12*t15*t39*t44*t45*wght 901 3 +Cmat2(iq,D2_GAA_GBB) 902 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 903 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 904 Cmat2(iq,D2_GBB_GBB) = t12*t23*(8.336168033553906d-2*rhoa*rh 905 1 ob*t15*(2.3991838839497967d+1*t1*t3*t4*t6*t7*t85*t9-1.268 906 2 453166049416d-4*t1*t3*t4*t58*t83*t9+8.666103204112231d-2* 907 3 t1*t27*t3*t4*t40*t43*t9-1.8979679327108684d-4*t1*t21*t3*t 908 4 4*t74*t84+2.3606566327249603d-4*t1*t21*t3*t4*t58*t6*t84+3 909 5 .53221601630552d-4*t1*t3*t4*t48*t6*t60*t74-1.612806413056 910 6 766d-1*t1*t21*t27*t3*t4*t41*t43*t6)*wght+1.66723360671078 911 7 12d-1*rhoa*rhob*t42*t44*wght)+t14*t16*(1.6672336067107812 912 8 d-1*rhoa*rhob*t15*t85*wght+3.3344672134215625d-1*rhoa*rho 913 9 b*t42*t43*wght)-8.336168033553906d-2*rhoa*rhob*t12*t14*(- 914 : 1.71023098797198d-4*t1*t3*t4*t58*t83*t9-2.558993630650758 915 ; d-4*t1*t21*t3*t4*t74*t84+3.1828278988193504d-4*t1*t21*t3* 916 < t4*t58*t6*t84+4.762418864947907d-4*t1*t3*t4*t48*t6*t60*t7 917 = 4)*wght-5.001700820132344d-1*rhoa*rhob*t14*t15*t43**2*t46 918 > *wght-1.6672336067107812d-1*rhoa*rhob*t12*t15*t44**2*t45* 919 ? wght-3.3344672134215625d-1*rhoa*rhob*t15*t16*t23*t43*t44* 920 @ wght+Cmat2(iq,D2_GBB_GBB) 921 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 922 fnc(iq) = fnc(iq) 923 Amat(iq,D1_RA) = Amat(iq,D1_RA) 924 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 925 Amat2(iq,D2_RA_RA) = Amat2(iq,D2_RA_RA) 926 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 927 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 928 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 929 fnc(iq) = fnc(iq) 930 Amat(iq,D1_RB) = Amat(iq,D1_RB) 931 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 932 Amat2(iq,D2_RB_RB) = Amat2(iq,D2_RB_RB) 933 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 934 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 935 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 936 endif ! ipol.eq.1 937 enddo ! iq 938 end 939C> 940C> \brief Evaluate the nwxcm_c_pbeop functional [1] 941C> 942C> \f{eqnarray*}{ 943C> {\it t_1} &=& {\it param}\left(1\right)\\\\ 944C> {\it t_2} &=& \rho_\alpha^{{{1}\over{3}}}\\\\ 945C> {\it t_3} &=& \rho_\beta^{{{1}\over{3}}}\\\\ 946C> {\it t_4} &=& 1.804-{{0.804}\over{{{0.004492667444378077 947C> \,\sigma_{\alpha\alpha}}\over{\rho_\alpha^{{{8}\over{3}}}}} 948C> +1.0}}\\\\ 949C> {\it t_5} &=& 1.804-{{0.804}\over{{{0.004492667444378077 950C> \,\sigma_{\beta\beta}}\over{\rho_\beta^{{{8}\over{3}}}}} 951C> +1.0}}\\\\ 952C> {\it t_6} &=& {{1}\over{1.8610514726982\,{\it t_3}\,{\it t_5} 953C> +1.8610514726982\,{\it t_2}\,{\it t_4}}}\\\\ 954C> {\it t_7} &=& \left({\it t_1}\,{\it t_2}\,{\it t_3}\,{\it t_4} 955C> \,{\it t_6}\,{\it t_5}\right)^{2.0}\\\\ 956C> f &=& -{{0.08336168033553906\,\rho_\alpha\,\rho_\beta\, 957C> \left(5.269388045346497\,{\it t_1}\,{\it t_2}\,{\it t_3}\,{ 958C> \it t_4}\,{\it t_6}\,{\it t_5}+0.5764\right)}\over{{\it t_7} 959C> \,\left(11.99591941974898\,{\it t_7}+3.908227599821866\,{ 960C> \it t_1}\,{\it t_2}\,{\it t_3}\,{\it t_4}\,{\it t_6}\,{\it t_5} 961C> +0.3183\right)}}\\\\ 962C> g &=& 0\\\\ 963C> G &=& 0.0\\\\ 964C> \f} 965C> 966C> Code generated with Maxima 5.34.0 [2] 967C> driven by autoxc [3]. 968C> 969C> ### References ### 970C> 971C> [1] T Tsuneda, T Suzumura, K Hirao, J.Chem.Phys. 111 972C> , 5656 (1999) , DOI: 973C> <a href="https://doi.org/10.1063/1.479954 "> 974C> 10.1063/1.479954 </a> 975C> 976C> [2] Maxima, a computer algebra system, 977C> <a href="http://maxima.sourceforge.net/"> 978C> http://maxima.sourceforge.net/</a> 979C> 980C> [3] autoxc, revision 27097 2015-05-08 981C> 982 subroutine nwxcm_c_pbeop_d3(param,tol_rho,ipol,nq,wght, 983 +rho,rgamma,fnc,Amat,Amat2,Amat3, 984 +Cmat,Cmat2,Cmat3) 985c $Id: $ 986#ifdef NWXC_QUAD_PREC 987 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 988 integer, parameter :: rk=selected_real_kind(30) 989#else 990 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 991 integer, parameter :: rk=selected_real_kind(15) 992#endif 993#include "nwxc_param.fh" 994 double precision param(*) !< [Input] Parameters of functional 995 double precision tol_rho !< [Input] The lower limit on the density 996 integer ipol !< [Input] The number of spin channels 997 integer nq !< [Input] The number of points 998 double precision wght !< [Input] The weight of the functional 999 double precision rho(nq,*) !< [Input] The density 1000 double precision rgamma(nq,*) !< [Input] The norm of the density 1001 !< gradients 1002 double precision fnc(nq) !< [Output] The value of the functional 1003c 1004c Sampling Matrices for the XC Kernel 1005c 1006 double precision Amat(nq,*) !< [Output] The derivative wrt rho 1007 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 1008c 1009c Sampling Matrices for the XC Kernel 1010c 1011 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 1012 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 1013 !< and possibly rho 1014c 1015c Sampling Matrices for the XC Kernel 1016c 1017 double precision Amat3(nq,*) !< [Output] The 3rd derivative wrt rho 1018 double precision Cmat3(nq,*) !< [Output] The 3rd derivative wrt rgamma 1019 !< and possibly rho 1020 integer iq 1021 double precision tmp 1022 double precision rhoa,rhob 1023 double precision gammaaa,gammaab,gammabb 1024 double precision taua,taub 1025 double precision nwxcm_heaviside 1026 external nwxcm_heaviside 1027CDIR$ NOVECTOR 1028 do iq = 1, nq 1029 if (ipol.eq.1) then 1030 rhoa = 0.5d0*rho(iq,R_T) 1031 gammaaa = 0.25d0*rgamma(iq,G_TT) 1032 if (rhoa.gt.tol_rho) then 1033 t1 = param(1) 1034 t2 = 1/rhoa**2.6666666666666666d+0 1035 t3 = 4.492667444378077d-3*gammaaa*t2+1.0d+0 1036 t4 = 1.804d+0-8.04d-1/t3 1037 t5 = rhoa**3.333333333333333d-1 1038 t6 = t1*t4*t5 1039 t7 = t6**2.0d+0 1040 t8 = 1/t7 1041 t9 = 1.0500052408963245d+0*t1*t4*t5 1042 t10 = 1.415701855281521d+0*t1*t4*t5+5.764d-1 1043 t11 = rhoa**2 1044 t12 = 1/t3**2 1045 t13 = 1/rhoa**3.3333333333333337d+0 1046 t14 = 1/rhoa**6.666666666666666d-1 1047 t15 = 6.203504908994d-1*t14*t4-1.7926167019779396d-2*gammaaa 1048 1 *t12*t13 1049 t16 = 8.955510855647054d-2*t1*t14*t4-7.218105721705101d-2*t1 1050 1 *t15-2.587859374674219d-3*gammaaa*t1*t12*t13 1051 t17 = 1/t6**3.0d+0 1052 t18 = t9+8.658781460080348d-1*t7+3.183d-1 1053 t19 = 1/t18 1054 t20 = 1/t18**2 1055 t21 = 6.44577519522176d+0*t1*t16*t4*t5+3.5000174696544145d-1 1056 1 *t1*t14*t4-2.821d-1*t1*t15-1.0113943432559537d-2*gammaaa* 1057 2 t1*t12*t13 1058 t22 = 4.719006184271736d-1*t1*t14*t4-3.8035d-1*t1*t15-1.3636 1059 1 43525194619d-2*gammaaa*t1*t12*t13 1060 t23 = -8.336168033553906d-2*t11*t22*wght-8.336168033553906d- 1061 1 2*rhoa*t10*wght 1062 t24 = 1/t5 1063 t25 = 1/rhoa**2.3333333333333334d+0 1064 t26 = 1.8963643936049138d-3*t1*t12*t25 1065 t27 = t1**2 1066 t28 = 1/t11 1067 t29 = 3.1276424561244703d-3*t12*t27*t28*t4+t26 1068 t30 = 1/t18**3 1069 t31 = t21**2 1070 t32 = -2.3097938309456317d+0*t10*t11*t30*t31*t8*wght 1071 t33 = t16**2 1072 t34 = 1/t6**4.0d+0 1073 t35 = -9.599999999999997d+1*t10*t11*t19*t33*t34*wght 1074 t36 = -1.7194580842842339d+1*t10*t11*t16*t17*t20*t21*wght 1075 t37 = -1.6672336067107812d-1*rhoa*t22*wght 1076 t38 = gammaaa**2 1077 t39 = 1/t3**3 1078 t40 = 1/rhoa**7 1079 t41 = 1/rhoa**4.333333333333333d+0 1080 t42 = 1/t4 1081 t43 = 1/rhoa**3.6666666666666664d+0 1082 t44 = 7.327274635867936d-3*gammaaa*t1*t12*t15*t42*t43 1083 t45 = 1/rhoa**1.6666666666666669d+0 1084 t46 = -4.135669939329333d-1*t4*t45+5.377850105933819d-2*gamm 1085 1 aaa*t12*t41-4.295269705186499d-4*t38*t39*t40 1086 t47 = 1/rhoa 1087 t48 = -2.5356666666666666d-1*t1*t15*t47 1088 t49 = t15**2 1089 t50 = 2.0437371323672143d-1*t1*t24*t42*t49 1090 t51 = t50+t48-3.8035d-1*t1*t46-3.1460041228478236d-1*t1*t4*t 1091 1 45+t44+4.090930575583857d-2*gammaaa*t1*t12*t41-3.26741166 1092 2 47353707d-4*t1*t38*t39*t40 1093 t52 = t37-8.336168033553906d-2*t11*t51*wght 1094 t53 = 1.6672336067107812d-1*rhoa*t10*t16*wght 1095 t54 = 1.6672336067107812d-1*t11*t16*t22*wght 1096 t55 = 1.390536163366978d-3*gammaaa*t1*t12*t15*t42*t43 1097 t56 = -4.812070481136733d-2*t1*t15*t47 1098 t57 = 3.8785094488762883d-2*t1*t24*t42*t49 1099 t58 = t57+t56+t55-7.218105721705101d-2*t1*t46-5.970340570431 1100 1 37d-2*t1*t4*t45+7.76357812402266d-3*gammaaa*t1*t12*t41-6. 1101 2 20074216705465d-5*t1*t38*t39*t40 1102 t59 = -2.0d+0*t16*t23 1103 t60 = 1.6672336067107812d-1*t10*t11*t58*wght+t59+t54+t53 1104 t61 = 8.336168033553906d-2*rhoa*t10*t21*wght 1105 t62 = 8.336168033553906d-2*t11*t21*t22*wght 1106 t63 = 5.434531812221229d-3*gammaaa*t1*t12*t15*t42*t43 1107 t64 = -6.208750505646785d-2*gammaaa*t1*t12*t13*t16 1108 t65 = -1.8806666666666666d-1*t1*t15*t47 1109 t66 = 2.1485917317405864d+0*t1*t14*t16*t4 1110 t67 = -1.7317562920160695d+0*t1*t15*t16 1111 t68 = 1.5158097674268203d-1*t1*t24*t42*t49 1112 t69 = t68+t67+t66+t65+t64+t63+6.44577519522176d+0*t1*t4*t5*t 1113 1 58-2.821d-1*t1*t46-2.3333449797696096d-1*t1*t4*t45+3.0341 1114 2 83029767861d-2*gammaaa*t1*t12*t41-2.4233911676662234d-4*t 1115 3 1*t38*t39*t40 1116 t70 = -t21*t23 1117 t71 = 8.336168033553906d-2*t10*t11*t69*wght+t70+t62+t61 1118 t72 = 1/t3**4 1119 t73 = 1.313499489223619d-4*t1*t38*t40*t42*t72+t50+t48+1.5730 1120 1 020614239118d-1*t1*t4*t45+t44-9.090956834630795d-3*gammaa 1121 2 a*t1*t12*t41 1122 t74 = -8.336168033553906d-2*t11*t73*wght-8.336168033553906d- 1123 1 2*t10*wght+t37 1124 t75 = 2.4926983511559697d-5*t1*t38*t40*t42*t72+t57+t56+t55+2 1125 1 .985170285215685d-2*t1*t4*t45-1.7252395831161463d-3*gamma 1126 2 aa*t1*t12*t41 1127 t76 = 1.6672336067107812d-1*t10*t11*t75*wght+t59+t54+t53 1128 t77 = 6.44577519522176d+0*t1*t4*t5*t75+9.742032494018218d-5* 1129 1 t1*t38*t40*t42*t72+t68+t67+t66+t65+t64+t63+1.166672489884 1130 2 8048d-1*t1*t4*t45-6.742628955039691d-3*gammaaa*t1*t12*t41 1131 t78 = 8.336168033553906d-2*t10*t11*t77*wght+t70+t62+t61 1132 t79 = -4.6581468744135934d-2*t1*t10*t12*t16*t19*t24*t34*wght 1133 t80 = 1/rhoa**1.3333333333333333d+0 1134 t81 = -2.1314177932294023d-4*t1*t12*t80*wght 1135 t82 = 1/rhoa**6 1136 t83 = 1.610726139444937d-4*gammaaa*t39*t82-1.568539614230697 1137 1 3d-2*t12*t13 1138 t84 = -3.8035d-1*t1*t83+2.4628115422942856d-5*gammaaa*t1*t42 1139 1 *t72*t82+1.2252793742757642d-4*gammaaa*t1*t39*t82-1.27841 1140 2 58048699554d-2*t1*t12*t13 1141 t85 = t81-8.336168033553906d-2*t11*t84*wght 1142 t86 = -8.08981147293451d-5*t1*t10*t12*t21*t24*wght 1143 t87 = t86-1.6672336067107812d-1*t10*t11*t16*t29*wght 1144 t88 = 4.2628355864588047d-4*t1*t12*t16*t24*wght 1145 t89 = -7.218105721705101d-2*t1*t83+4.673809408417444d-6*gamm 1146 1 aaa*t1*t42*t72*t82+2.3252783126454943d-5*gammaaa*t1*t39*t 1147 2 82-2.4261181637570808d-3*t1*t12*t13 1148 t90 = -9.704472655028322d-4*t1*t12*t23*t25 1149 t91 = 1.6672336067107812d-1*t10*t11*t89*wght+t90+t88 1150 t92 = 2.1314177932294023d-4*t1*t12*t21*t24*wght 1151 t93 = -2.168404344971009d-19*t1*t12*t15*t2*t42 1152 t94 = 1.1641407198087722d-2*t1*t12*t16*t25 1153 t95 = t94+t93+6.44577519522176d+0*t1*t4*t5*t89-2.821d-1*t1*t 1154 1 83+1.8266310926284157d-5*gammaaa*t1*t42*t72*t82+9.0877168 1155 2 78748338d-5*gammaaa*t1*t39*t82-9.481821968024564d-3*t1*t1 1156 3 2*t13 1157 t96 = 8.336168033553906d-2*t10*t11*t95*wght+t92-t23*t29 1158 t97 = 3.127642456124471d-3*t12*t27*t28*t4+t26 1159 t98 = 8.522772032466369d-4*t1*t12*t13-2.4628115422942862d-5* 1160 1 gammaaa*t1*t42*t72*t82 1161 t99 = t81-8.336168033553906d-2*t11*t98*wght 1162 t100 = t86-1.6672336067107812d-1*t10*t11*t16*t97*wght 1163 t101 = 1.617412109171387d-4*t1*t12*t13-4.673809408417444d-6* 1164 1 gammaaa*t1*t42*t72*t82 1165 t102 = 1.6672336067107812d-1*t10*t101*t11*wght+t90+t88 1166 t103 = t94+t93-1.8266310926284166d-5*gammaaa*t1*t42*t72*t82+ 1167 1 6.44577519522176d+0*t1*t101*t4*t5+6.321214645349711d-4*t1 1168 2 *t12*t13 1169 t104 = 8.336168033553906d-2*t10*t103*t11*wght-t23*t97+t92 1170 t105 = 1/rhoa**5 1171 t106 = -9.235543283603571d-6*t1*t105*t42*t72-2.2973988267670 1172 1 578d-5*t1*t105*t39 1173 t107 = t29**2 1174 t108 = 4.1368571381671093d-7*t2*t27*t72*wght 1175 t109 = -1.7526785281565413d-6*t1*t105*t42*t72-4.359896836210 1176 1 302d-6*t1*t105*t39 1177 t110 = 1.6672336067107812d-1*t10*t109*t11*wght+t108 1178 t111 = 1/rhoa**4.666666666666667d+0 1179 t112 = -6.84986659735656d-6*t1*t105*t42*t72+5.64868589099460 1180 1 9d-6*t111*t27*t72+6.44577519522176d+0*t1*t109*t4*t5-1.703 1181 2 9469147653133d-5*t1*t105*t39 1182 t113 = 4.2628355864588047d-4*t1*t12*t24*t29*wght+8.336168033 1183 1 553906d-2*t10*t11*t112*wght 1184 t114 = 1/rhoa**3 1185 t115 = 6.849866597356562d-6*t1*t105*t42*t72+1.69460576729838 1186 1 27d-5*t111*t27*t72 1187 t116 = 5.158374252852702d+1*t10*t11*t16*t17*t30*t31*wght 1188 t117 = 1/t18**4 1189 t118 = 6.929381492836896d+0*t10*t11*t117*t21**3*t8*wght 1190 t119 = 1/t6**5.0d+0 1191 t120 = 1.4292875310322173d+3*t10*t11*t119*t16**3*t19*wght 1192 t121 = 2.879999999999999d+2*t10*t11*t20*t21*t33*t34*wght 1193 t122 = gammaaa**3 1194 t123 = 1/rhoa**1.0666666666666666d+1 1195 t124 = 1/rhoa**8 1196 t125 = 1/rhoa**7.333333333333333d+0 1197 t126 = 1/rhoa**5.333333333333333d+0 1198 t127 = 1/t4**2 1199 t128 = 1/rhoa**4 1200 t129 = -1.5437774695451842d-5*t122*t123*t72+6.89278323221555 1201 1 5d-1*t2*t4+4.2952697051864996d-3*t124*t38*t39-2.290565785 1202 2 860701d-1*gammaaa*t12*t126 1203 t130 = t15**3 1204 t131 = -1.6472439067503214d-1*t1*t127*t130*t14 1205 t132 = 3.3344672134215625d-1*rhoa*t16*t22*wght 1206 t133 = 3.8785094488762883d-2*t1*t42*t49*t80 1207 t134 = -3.126063012582715d-2*t1*t127*t130*t14 1208 t135 = -2.2286297971927035d-6*t1*t122*t123*t72-1.12076655355 1209 1 82496d-3*gammaaa*t1*t12*t127*t128*t49-7.218105721705101d- 1210 2 2*t1*t46*t47+2.0858042450504666d-3*gammaaa*t1*t12*t42*t43 1211 3 *t46+1.1635528346628865d-1*t1*t15*t24*t42*t46+4.997773241 1212 4 1113723d-5*t1*t125*t15*t38*t39*t42-6.257412735151401d-3*g 1213 5 ammaaa*t1*t111*t12*t15*t42+9.950567617385617d-2*t1*t2*t4+ 1214 6 6.200742167054651d-4*t1*t124*t38*t39+4.812070481136733d-2 1215 7 *t1*t15*t28+t134+t133-7.218105721705101d-2*t1*t129-3.3067 1216 8 09200972614d-2*gammaaa*t1*t12*t126 1217 t136 = 1.6672336067107812d-1*rhoa*t21*t22*wght 1218 t137 = -4.3802107775735827d-3*gammaaa*t1*t12*t127*t128*t49 1219 t138 = 3.336151953199435d-2*gammaaa*t1*t12*t15*t16*t42*t43 1220 t139 = 1.51580976742682d-1*t1*t42*t49*t80 1221 t140 = -1.1545041946773796d+0*t1*t15*t16*t47 1222 t141 = -1.2217365744558055d-1*t1*t127*t130*t14 1223 t142 = 9.305257363490999d-1*t1*t16*t24*t42*t49 1224 t143 = -5.001700820132344d-1*rhoa*t10*t33*wght 1225 t144 = -5.001700820132344d-1*t11*t22*t33*wght 1226 t145 = -3.0d+0*t16*t60 1227 t146 = -3.3344672134215625d-1*rhoa*t10*t16*t21*wght 1228 t147 = -3.3344672134215625d-1*t11*t16*t21*t22*wght 1229 t148 = -t21*t60 1230 t149 = -2.0d+0*t16*t71 1231 t150 = -1.6672336067107812d-1*rhoa*t10*t31*wght 1232 t151 = -1.6672336067107812d-1*t11*t22*t31*wght 1233 t152 = -2*t21*t71 1234 t153 = 1/t3**5 1235 t154 = -7.478095053467911d-5*t1*t124*t38*t42*t72-1.339403228 1236 1 6178478d-5*t1*t125*t127*t15*t38*t72-1.1207665535582498d-3 1237 2 *gammaaa*t1*t12*t127*t128*t49-2.4060352405683666d-2*t1*t4 1238 3 6*t47+6.95268081683489d-4*gammaaa*t1*t12*t42*t43*t46+3.87 1239 4 85094488762883d-2*t1*t15*t24*t42*t46+1.6659244137037907d- 1240 5 5*t1*t125*t15*t38*t39*t42+5.972727856476445d-7*t1*t122*t1 1241 6 23*t153*t42-1.158780136139149d-3*gammaaa*t1*t111*t12*t15* 1242 7 t42-1.990113523477123d-2*t1*t2*t4-2.0669140556848836d-5*t 1243 8 1*t124*t38*t39+t134+t133+3.162939235712935d-3*gammaaa*t1* 1244 9 t12*t126 1245 t155 = 6.935240880537548d-1*t1*t10*t119*t12*t19*t24*t33*wght 1246 t156 = 6.929381492836896d+0*t10*t11*t117*t29*t31*t8*wght 1247 t157 = 1/rhoa**9.666666666666666d+0 1248 t158 = 1/rhoa**6.333333333333333d+0 1249 t159 = 5.789165510794442d-6*t157*t38*t72+5.228465380768991d- 1250 1 2*t12*t41-1.342271782870781d-3*gammaaa*t39*t40 1251 t160 = -3.6910961743400234d-4*t1*t114*t12*t127*t49 1252 t161 = 4.853886883760707d-4*t1*t10*t12*t16*t21*t24*wght 1253 t162 = 5.001700820132344d-1*t10*t11*t29*t33*wght 1254 t163 = 1.617962294586902d-4*t1*t10*t12*t24*t31*wght 1255 t164 = 5.156620156177406d+1*t17*t30*(6.668934426843125d-1*t1 1256 1 0*t11*t16*t21*t29*wght+t163) 1257 t165 = 4.2628355864588047d-4*t1*t12*t16*t80*wght 1258 t166 = 4.2628355864588047d-4*t1*t12*t24*t58*wght 1259 t167 = 1.6672336067107812d-1*rhoa*t10*t89*wght 1260 t168 = 1.6672336067107812d-1*t11*t22*t89*wght 1261 t169 = -7.004790959739062d-5*t1*t114*t12*t127*t49 1262 t170 = -4.812070481136733d-2*t1*t47*t83+1.390536163366978d-3 1263 1 *gammaaa*t1*t12*t42*t43*t83+7.757018897752577d-2*t1*t15*t 1264 2 24*t42*t83-1.4021428225252333d-5*gammaaa*t1*t40*t42*t72+8 1265 3 .357361739472638d-7*t1*t157*t38*t72-5.02276210731693d-6*g 1266 4 ammaaa*t1*t127*t15*t158*t72+1.390536163366978d-3*t1*t12*t 1267 5 15*t42*t43-1.2494433102778432d-5*gammaaa*t1*t15*t158*t39* 1268 6 t42+1.1198864730893335d-7*t1*t153*t157*t38*t42+7.65575065 1269 7 0077899d-3*t1*t12*t41-1.9377319272045787d-4*gammaaa*t1*t3 1270 8 9*t40+t169-7.218105721705101d-2*t1*t159 1271 t171 = -2.0d+0*t16*t85 1272 t172 = -9.704472655028322d-4*t1*t12*t25*t52 1273 t173 = 2.1314177932294023d-4*t1*t12*t21*t80*wght 1274 t174 = 2.1314177932294023d-4*t1*t12*t24*t69*wght 1275 t175 = 8.336168033553906d-2*rhoa*t10*t95*wght 1276 t176 = 8.336168033553906d-2*t11*t22*t95*wght 1277 t177 = -6.208750505646785d-2*gammaaa*t1*t12*t13*t89 1278 t178 = -2.73763173598349d-4*t1*t114*t12*t127*t49 1279 t179 = -2.168404344971009d-19*t1*t12*t2*t42*t46 1280 t180 = 8.673617379884035d-19*t1*t12*t15*t16*t2*t42 1281 t181 = 1.1641407198087722d-2*t1*t12*t25*t58 1282 t182 = 2.1485917317405864d+0*t1*t14*t4*t89 1283 t183 = -1.7317562920160695d+0*t1*t15*t89 1284 t184 = -t21*t85 1285 t185 = -1.2788506759376417d-3*t1*t12*t24*t33*wght 1286 t186 = -1.4556708982542485d-3*t1*t12*t25*t60 1287 t187 = -8.525671172917609d-4*t1*t12*t16*t21*t24*wght 1288 t188 = -9.704472655028322d-4*t1*t12*t25*t71 1289 t189 = -4.2628355864588047d-4*t1*t12*t24*t31*wght 1290 t190 = 3.3881317890172014d-21*gammaaa*t1*t127*t15*t158*t72 1291 t191 = 1.6672336067107812d-1*t11*t16*t98*wght 1292 t192 = 1.4021428225252333d-5*gammaaa*t1*t40*t42*t72-1.119886 1293 1 4730893338d-7*t1*t153*t157*t38*t42-1.0782747394475914d-4* 1294 2 t1*t12*t41+t169 1295 t193 = -2.0d+0*t101*t23 1296 t194 = -1.1213328209328066d-4*gammaaa*t1*t16*t42*t72*t82 1297 t195 = 3.880469066029241d-3*t1*t12*t13*t16 1298 t196 = 8.336168033553906d-2*t11*t21*t98*wght 1299 t197 = -t103*t23 1300 t198 = 1/t3**6 1301 t199 = -2.4060352405683666d-2*t1*t47*t83+6.95268081683489d-4 1302 1 *gammaaa*t1*t12*t42*t43*t83+3.8785094488762883d-2*t1*t15* 1303 2 t24*t42*t83+2.4926983511559705d-5*gammaaa*t1*t40*t42*t72- 1304 3 2.511381053658465d-6*gammaaa*t1*t127*t15*t158*t72+6.95268 1305 4 081683489d-4*t1*t12*t15*t42*t43-6.247216551389216d-6*gamm 1306 5 aaa*t1*t15*t158*t39*t42-2.2397729461786672d-7*t1*t153*t15 1307 6 7*t38*t42-8.087060545856936d-4*t1*t12*t41+7.7509277088183 1308 7 15d-6*gammaaa*t1*t39*t40-4.5019436218191217d-8*t1*t127*t1 1309 8 57*t198*t38+t169 1310 t200 = 3.365142774060559d-4*t10*t119*t16*t19*t2*t27*t72*wght 1311 t201 = -8.336168033553906d-2*rhoa*t106*wght 1312 t202 = 1/rhoa**8.666666666666666d+0 1313 t203 = 3.0201115114592575d-4*t39*t82-2.1709370665479152d-6*g 1314 1 ammaaa*t202*t72 1315 t204 = 2.4812702440232998d-6*t1*t126*t127*t15*t72 1316 t205 = 1.6672336067107812d-1*t106*t11*t16*wght 1317 t206 = 4.708839475609621d-7*t1*t126*t127*t15*t72 1318 t207 = 8.763392640782708d-6*t1*t42*t72*t82+4.505226730750645 1319 1 5d-5*t1*t39*t82-3.13401065230224d-7*gammaaa*t1*t202*t72-1 1320 2 .2598722822255004d-7*gammaaa*t1*t153*t202*t42+t206-7.2181 1321 3 05721705101d-2*t1*t203-1.6882288581821706d-8*gammaaa*t1*t 1322 4 127*t198*t202 1323 t208 = -2.0d+0*t109*t23 1324 t209 = 1.840321640170825d-6*t1*t126*t127*t15*t72 1325 t210 = -4.204998078498024d-5*t1*t105*t16*t42*t72 1326 t211 = -1.046019422511946d-4*t1*t105*t16*t39 1327 t212 = 8.336168033553906d-2*t106*t11*t21*wght 1328 t213 = -t112*t23 1329 t214 = -1.4556708982542485d-3*t1*t12*t25*t87 1330 t215 = 1.617962294586902d-4*t1*t10*t12*t21*t24*t29*wght 1331 t216 = -6.205285707250665d-7*t16*t2*t27*t72*wght 1332 t217 = -5.001700820132344d-1*t10*t109*t11*t16*wght 1333 t218 = -1.4556708982542485d-3*t1*t12*t25*t91 1334 t219 = -2.0684285690835547d-7*t2*t21*t27*t72*wght 1335 t220 = -4.2628355864588047d-4*t1*t12*t16*t24*t29*wght 1336 t221 = -1.6672336067107812d-1*t10*t11*t112*t16*wght 1337 t222 = -1.6672336067107812d-1*t10*t109*t11*t21*wght 1338 t223 = -9.704472655028322d-4*t1*t12*t25*t96 1339 t224 = -4.2628355864588047d-4*t1*t12*t21*t24*t29*wght 1340 t225 = -1.6672336067107812d-1*t10*t11*t112*t21*wght 1341 t226 = 2.2129186475408202d-7*gammaaa*t1*t153*t202*t42 1342 t227 = -4.0895832323652637d-6*t1*t42*t72*t82-4.7088394756096 1343 1 23d-7*t1*t126*t127*t15*t72+4.199574274085001d-8*gammaaa*t 1344 2 1*t153*t202*t42+3.3087224502121104d-24*gammaaa*t1*t127*t1 1345 3 98*t202 1346 t228 = 1.6412892085480882d-7*gammaaa*t1*t153*t202*t42 1347 t229 = 2.4269434418803534d-4*t1*t10*t12*t16*t24*t97*wght 1348 t230 = -2.4269434418803534d-4*t1*t10*t101*t12*t24*wght 1349 t231 = -8.08981147293451d-5*t1*t10*t103*t12*t24*wght 1350 t232 = -5.842261760521806d-7*t1*t42*t72*t82-1.45329894540343 1351 1 4d-6*t1*t39*t82+4.1995742740850023d-8*gammaaa*t1*t153*t20 1352 2 2*t42+t206+1.688228858182171d-8*gammaaa*t1*t127*t198*t202 1353 t233 = t1**3 1354 t234 = 1.632846801556842d-7*t10*t105*t119*t19*t198*t233*wght 1355 t235 = 1/rhoa**7.666666666666667d+0 1356 t236 = 5.876269973066699d-8*t1*t235*t72+4.7245210583456254d- 1357 1 8*t1*t153*t235*t42+9.49628732727471d-9*t1*t127*t198*t235 1358 t237 = -1.4556708982542485d-3*t1*t110*t12*t25 1359 t238 = -4.1368571381671093d-7*t2*t27*t29*t72*wght 1360 t239 = -9.704472655028322d-4*t1*t113*t12*t25 1361 t240 = -4.2628355864588047d-4*t1*t107*t12*t24*wght 1362 t241 = -1.5748403527818752d-8*t1*t153*t235*t42-3.16542910909 1363 1 1572d-9*t1*t127*t198*t235 1364 fnc(iq) = fnc(iq)-1.1548969154728159d+0*t10*t11*t8*wght/(t9+ 1365 1 8.658781460080349d-1*t7+3.183d-1) 1366 Amat(iq,D1_RA) = 1.1548969154728159d+0*t10*t11*t20*t21*t8*wg 1367 1 ht+8.597290421421169d+0*t10*t11*t16*t17*t19*wght+1.385405 1368 2 033612855d+1*t19*t23*t8+Amat(iq,D1_RA) 1369 Cmat(iq,D1_GAA) = 1.1548969154728159d+0*t10*t11*t20*t29*t8*w 1370 1 ght-2.9528769394720183d-3*t1*t12*t19*t24*t8*wght+4.171608 1371 2 490100933d-3*t1*t10*t12*t17*t19*t24*wght+Cmat(iq,D1_GAA) 1372 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 1373 Amat2(iq,D2_RA_RA) = 1.385405033612855d+1*t20*t71*t8+1.38540 1374 1 5033612855d+1*t19*t52*t8+5.156620156177406d+1*t17*t19*t60 1375 2 +t36+t35+t32+Amat2(iq,D2_RA_RA) 1376 Amat2(iq,D2_RA_RB) = 1.385405033612855d+1*t20*t78*t8+1.38540 1377 1 5033612855d+1*t19*t74*t8+5.156620156177406d+1*t17*t19*t76 1378 2 +t36+t35+t32+Amat2(iq,D2_RA_RB) 1379 Cmat2(iq,D2_RA_GAA) = -2.3097938309456317d+0*t10*t11*t21*t29 1380 1 *t30*t8*wght+1.385405033612855d+1*t20*t8*t96+5.1566201561 1381 2 77406d+1*t17*t19*t91+5.156620156177406d+1*t17*t20*t87+1.3 1382 3 85405033612855d+1*t19*t8*t85+t79+Cmat2(iq,D2_RA_GAA) 1383 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 1384 Cmat2(iq,D2_RA_GBB) = -2.3097938309456317d+0*t10*t11*t21*t30 1385 1 *t8*t97*wght+1.385405033612855d+1*t19*t8*t99+1.3854050336 1386 2 12855d+1*t104*t20*t8+t79+5.156620156177406d+1*t100*t17*t2 1387 3 0+5.156620156177406d+1*t102*t17*t19+Cmat2(iq,D2_RA_GBB) 1388 Cmat2(iq,D2_GAA_GAA) = -2.3097938309456317d+0*t10*t107*t11*t 1389 1 30*t8*wght-1.1548969154728159d+0*t106*t11*t19*t8*wght-2.2 1390 2 60242948292618d-5*t10*t19*t2*t27*t34*t72*wght-8.343216980 1391 3 201866d-3*t1*t10*t12*t17*t20*t24*t29*wght+1.3854050336128 1392 4 55d+1*t113*t20*t8+5.156620156177406d+1*t110*t17*t19+Cmat2 1393 5 (iq,D2_GAA_GAA) 1394 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 1395 Cmat2(iq,D2_GAA_GBB) = 5.156620156177406d+1*t17*t20*(-8.0898 1396 1 1147293451d-5*t1*t10*t12*t24*t97*wght-8.08981147293451d-5 1397 2 *t1*t10*t12*t24*t29*wght)+1.385405033612855d+1*t20*t8*(2. 1398 3 1314177932294023d-4*t1*t12*t24*t97*wght+2.131417793229402 1399 4 3d-4*t1*t12*t24*t29*wght+8.336168033553906d-2*t10*t11*t11 1400 5 5*wght)+5.156620156177406d+1*t17*t19*(2.922124543902974d- 1401 6 7*t1*t10*t114*t42*t72*wght+t108)-2.3097938309456317d+0*t1 1402 7 0*t11*t29*t30*t8*t97*wght-1.0666100450949446d-5*t1*t114*t 1403 8 19*t42*t72*t8*wght-2.2602429482926184d-5*t10*t19*t2*t27*t 1404 9 34*t72*wght+Cmat2(iq,D2_GAA_GBB) 1405 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 1406 Amat3(iq,D3_RA_RA_RA) = 1.385405033612855d+1*t19*t8*(-8.3361 1407 1 68033553906d-2*t11*(2.0437371323672138d-1*t1*t42*t49*t80- 1408 2 1.1743515210830219d-5*t1*t122*t123*t72-5.905753878944034d 1409 3 -3*gammaaa*t1*t12*t127*t128*t49-3.8034999999999997d-1*t1* 1410 4 t46*t47+1.0990911953801903d-2*gammaaa*t1*t12*t42*t43*t46+ 1411 5 6.131211397101644d-1*t1*t15*t24*t42*t46+2.633520657006488 1412 6 4d-4*t1*t125*t15*t38*t39*t42-3.297273586140571d-2*gammaaa 1413 7 *t1*t111*t12*t15*t42+5.243340204746373d-1*t1*t2*t4+3.2674 1414 8 116647353707d-3*t1*t124*t38*t39+2.5356666666666666d-1*t1* 1415 9 t15*t28+t131-3.8035d-1*t1*t129-1.7424333933042352d-1*gamm 1416 : aaa*t1*t12*t126)*wght-2.500850410066172d-1*rhoa*t51*wght) 1417 ; +1.385405033612855d+1*t20*t8*(8.336168033553906d-2*t10*t1 1418 < 1*(-8.709992483173931d-6*t1*t122*t123*t72+4.2971834634811 1419 = 73d+0*t1*t14*t4*t58-3.463512584032139d+0*t1*t15*t58-1.241 1420 > 750101129357d-1*gammaaa*t1*t12*t13*t58+6.44577519522176d+ 1421 ? 0*t1*t135*t4*t5-2.8209999999999996d-1*t1*t46*t47+8.151797 1422 @ 718331845d-3*gammaaa*t1*t12*t42*t43*t46+4.547429302280461 1423 1 d-1*t1*t15*t24*t42*t46-1.7317562920160695d+0*t1*t16*t46-1 1424 2 .4323944878270575d+0*t1*t16*t4*t45+1.9532435318562644d-4* 1425 3 t1*t125*t15*t38*t39*t42-2.4455393154995533d-2*gammaaa*t1* 1426 4 t111*t12*t15*t42+1.862625151694036d-1*gammaaa*t1*t12*t16* 1427 5 t41-1.4876720675725458d-3*t1*t16*t38*t39*t40+3.8889082996 1428 6 16016d-1*t1*t2*t4+2.4233911676662234d-3*t1*t124*t38*t39+1 1429 7 .8806666666666666d-1*t1*t15*t28+t142+t141+t140+t139+t138+ 1430 8 t137-2.821d-1*t1*t129-1.2923372163826075d-1*gammaaa*t1*t1 1431 9 2*t126)*wght+1.6672336067107812d-1*t11*t22*t69*wght+1.667 1432 : 2336067107812d-1*rhoa*t10*t69*wght+8.336168033553906d-2*t 1433 ; 11*t21*t51*wght-t23*t69-2*t21*t52+t136)+1.385405033612855 1434 < d+1*t30*t8*(-3.3344672134215625d-1*t10*t11*t21*t69*wght+t 1435 = 152+t151+t150)+5.156620156177406d+1*t17*t20*(-3.334467213 1436 > 4215625d-1*t10*t11*t16*t69*wght-3.3344672134215625d-1*t10 1437 ? *t11*t21*t58*wght+t149+t148+t147+t146)+5.156620156177406d 1438 @ +1*t17*t19*(3.3344672134215625d-1*t11*t22*t58*wght+3.3344 1439 1 672134215625d-1*rhoa*t10*t58*wght+1.6672336067107812d-1*t 1440 2 11*t16*t51*wght+1.6672336067107812d-1*t10*t11*t135*wght-2 1441 3 .0d+0*t23*t58-4.0d+0*t16*t52+t132)+1.9193471071598367d+2* 1442 4 t19*t34*(-1.0003401640264689d+0*t10*t11*t16*t58*wght+t145 1443 5 +t144+t143)+t121+t120+t118+t116+Amat3(iq,D3_RA_RA_RA) 1444 Amat3(iq,D3_RA_RA_RB) = 1.385405033612855d+1*t19*t8*(-8.3361 1445 1 68033553906d-2*t11*(2.0437371323672143d-1*t1*t42*t49*t80- 1446 2 3.940498467670857d-4*t1*t124*t38*t42*t72-7.05783536077738 1447 3 8d-5*t1*t125*t127*t15*t38*t72-5.905753878944036d-3*gammaa 1448 4 a*t1*t12*t127*t128*t49-1.2678333333333333d-1*t1*t46*t47+3 1449 5 .663637317933968d-3*gammaaa*t1*t12*t42*t43*t46+2.04373713 1450 6 23672143d-1*t1*t15*t24*t42*t46+8.778402190021627d-5*t1*t1 1451 7 25*t15*t38*t39*t42+3.147262076502499d-6*t1*t122*t123*t153 1452 8 *t42-6.106062196556612d-3*gammaaa*t1*t111*t12*t15*t42-1.0 1453 9 486680409492745d-1*t1*t2*t4-1.089137221578457d-4*t1*t124* 1454 : t38*t39+t131+1.666675419682312d-2*gammaaa*t1*t12*t126)*wg 1455 ; ht-1.6672336067107812d-1*rhoa*t73*wght-8.336168033553906d 1456 < -2*rhoa*t51*wght-1.6672336067107812d-1*t22*wght)+1.385405 1457 = 033612855d+1*t20*t8*(8.336168033553906d-2*t11*t22*t77*wgh 1458 > t+8.336168033553906d-2*rhoa*t10*t77*wght+8.33616803355390 1459 ? 6d-2*t10*t11*(2.1485917317405864d+0*t1*t14*t4*t75-1.73175 1460 @ 62920160695d+0*t1*t15*t75-6.208750505646785d-2*gammaaa*t1 1461 1 *t12*t13*t75+5.980441711641634d-4*t1*t16*t38*t40*t42*t72- 1462 2 2.922609748205466d-4*t1*t124*t38*t42*t72-5.23469266537478 1463 3 9d-5*t1*t125*t127*t15*t38*t72+2.1485917317405864d+0*t1*t1 1464 4 4*t4*t58-1.7317562920160695d+0*t1*t15*t58-6.2087505056467 1465 5 85d-2*gammaaa*t1*t12*t13*t58+6.44577519522176d+0*t1*t154* 1466 6 t4*t5-9.403333333333332d-2*t1*t46*t47+2.7172659061106147d 1467 7 -3*gammaaa*t1*t12*t42*t43*t46+1.5158097674268203d-1*t1*t1 1468 8 5*t24*t42*t46+7.161972439135288d-1*t1*t16*t4*t45+6.510811 1469 9 772854215d-5*t1*t125*t15*t38*t39*t42+2.3342779854906137d- 1470 : 6*t1*t122*t123*t153*t42-4.528776510184358d-3*gammaaa*t1*t 1471 ; 111*t12*t15*t42-4.1391670037645234d-2*gammaaa*t1*t12*t16* 1472 < t41-7.777816599232033d-2*t1*t2*t4-8.077970558887411d-5*t1 1473 = *t124*t38*t39+t142+t141+t140+t139+t138+t137+1.23614864175 1474 > 72767d-2*gammaaa*t1*t12*t126)*wght+8.336168033553906d-2*t 1475 ? 11*t21*t73*wght+8.336168033553906d-2*t11*t22*t69*wght+8.3 1476 @ 36168033553906d-2*rhoa*t10*t69*wght+8.336168033553906d-2* 1477 1 t10*t21*wght-t23*t77-t21*t74-t21*t52+t136)+1.385405033612 1478 2 855d+1*t30*t8*(-3.3344672134215625d-1*t10*t11*t21*t77*wgh 1479 3 t+t152+t151+t150)+5.156620156177406d+1*t17*t20*(-3.334467 1480 4 2134215625d-1*t10*t11*t16*t77*wght-3.3344672134215625d-1* 1481 5 t10*t11*t21*t75*wght+t149+t148+t147+t146)+5.1566201561774 1482 6 06d+1*t17*t19*(1.6672336067107812d-1*t11*t22*t75*wght+1.6 1483 7 672336067107812d-1*rhoa*t10*t75*wght+1.6672336067107812d- 1484 8 1*t11*t16*t73*wght+1.6672336067107812d-1*t11*t22*t58*wght 1485 9 +1.6672336067107812d-1*rhoa*t10*t58*wght+1.66723360671078 1486 : 12d-1*t10*t16*wght+1.6672336067107812d-1*t10*t11*t154*wgh 1487 ; t-2.0d+0*t23*t75-2.0d+0*t16*t74-2.0d+0*t16*t52+t132)+1.91 1488 < 93471071598367d+2*t19*t34*(-1.0003401640264689d+0*t10*t11 1489 = *t16*t75*wght+t145+t144+t143)+t121+t120+t118+t116+Amat3(i 1490 > q,D3_RA_RA_RB) 1491 Cmat3(iq,D3_RA_RA_GAA) = 1.385405033612855d+1*t30*t8*(-3.334 1492 1 4672134215625d-1*t10*t11*t21*t95*wght-2*t29*t71+t189)+5.1 1493 2 56620156177406d+1*t17*t20*(-3.3344672134215625d-1*t10*t11 1494 3 *t16*t95*wght-3.3344672134215625d-1*t10*t11*t21*t89*wght- 1495 4 t29*t60+t188+t187)+1.9193471071598367d+2*t19*t34*(-1.0003 1496 5 401640264689d+0*t10*t11*t16*t89*wght+t186+t185)+1.3854050 1497 6 33612855d+1*t20*t8*(8.336168033553906d-2*t11*t21*t84*wght 1498 7 +8.336168033553906d-2*t10*t11*(-1.8806666666666666d-1*t1* 1499 8 t47*t83+5.434531812221229d-3*gammaaa*t1*t12*t42*t43*t83+3 1500 9 .0316195348536407d-1*t1*t15*t24*t42*t83-1.731756292016069 1501 : 5d+0*t1*t16*t83+1.1213328209328063d-4*gammaaa*t1*t16*t42* 1502 ; t72*t82+5.578770253397046d-4*gammaaa*t1*t16*t39*t82-5.479 1503 < 893277885247d-5*gammaaa*t1*t40*t42*t72+3.2662471811902244 1504 = d-6*t1*t157*t38*t72-1.963009749515546d-5*gammaaa*t1*t127* 1505 > t15*t158*t72+6.44577519522176d+0*t1*t170*t4*t5+5.43453181 1506 ? 2221229d-3*t1*t12*t15*t42*t43-4.883108829640661d-5*gammaa 1507 @ a*t1*t15*t158*t39*t42+4.3767712227949007d-7*t1*t153*t157* 1508 1 t38*t42+2.9920415987988636d-2*t1*t12*t41-7.57309739895694 1509 2 7d-4*gammaaa*t1*t39*t40+t183+t182+t181+t180+t179+t178+t17 1510 3 7-5.820703599043862d-2*t1*t12*t13*t16-2.821d-1*t1*t159)*w 1511 4 ght-t23*t95-t29*t52+t184+t176+t175+t174+t173)+5.156620156 1512 5 177406d+1*t17*t19*(1.6672336067107812d-1*t11*t16*t84*wght 1513 6 +1.6672336067107812d-1*t10*t11*t170*wght-2.0d+0*t23*t89+t 1514 7 172+t171+t168+t167+t166+t165)+1.385405033612855d+1*t19*t8 1515 8 *(-1.6672336067107812d-1*rhoa*t84*wght-8.336168033553906d 1516 9 -2*t11*(-2.5356666666666666d-1*t1*t47*t83+7.3272746358679 1517 : 36d-3*gammaaa*t1*t12*t42*t43*t83+4.0874742647344287d-1*t1 1518 ; *t15*t24*t42*t83-7.388434626882856d-5*gammaaa*t1*t40*t42* 1519 < t72+4.403818204061332d-6*t1*t157*t38*t72-2.64668826029152 1520 = 04d-5*gammaaa*t1*t127*t15*t158*t72+7.327274635867936d-3*t 1521 > 1*t12*t15*t42*t43-6.58380164251622d-5*gammaaa*t1*t15*t158 1522 ? *t39*t42+5.901116393442186d-7*t1*t153*t157*t38*t42+4.0341 1523 @ 12095367414d-2*t1*t12*t41-1.0210661452298034d-3*gammaaa*t 1524 1 1*t39*t40+t160-3.8035d-1*t1*t159)*wght)+1.919347107159836 1525 2 7d+2*(t162+t161)*t20*t34+t164+t156+t155+Cmat3(iq,D3_RA_RA 1526 3 _GAA) 1527 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 1528 Cmat3(iq,D3_RA_RA_GBB) = 1.385405033612855d+1*t19*t8*(-1.667 1529 1 2336067107812d-1*rhoa*t98*wght-8.336168033553906d-2*t11*( 1530 2 7.388434626882859d-5*gammaaa*t1*t40*t42*t72-5.90111639344 1531 3 2186d-7*t1*t153*t157*t38*t42-5.681848021644245d-4*t1*t12* 1532 4 t41+t190+t160)*wght)+1.9193471071598367d+2*t20*t34*(5.001 1533 5 700820132344d-1*t10*t11*t33*t97*wght+t161)+5.156620156177 1534 6 406d+1*t17*t30*(6.668934426843125d-1*t10*t11*t16*t21*t97* 1535 7 wght+t163)+1.385405033612855d+1*t20*t8*(8.336168033553906 1536 8 d-2*t10*t11*(5.479893277885249d-5*gammaaa*t1*t40*t42*t72+ 1537 9 6.44577519522176d+0*t1*t192*t4*t5-1.0842021724855044d-19* 1538 : t1*t12*t15*t42*t43-4.3767712227948996d-7*t1*t153*t157*t38 1539 ; *t42-4.2141430968998067d-4*t1*t12*t41+2.1485917317405864d 1540 < +0*t1*t101*t14*t4+t195+t194+t190+t181+t180+t179+t178-1.73 1541 = 17562920160695d+0*t1*t101*t15-6.208750505646785d-2*gammaa 1542 > a*t1*t101*t12*t13)*wght+8.336168033553906d-2*t103*t11*t22 1543 ? *wght+8.336168033553906d-2*rhoa*t10*t103*wght-t21*t99-t52 1544 @ *t97+t197+t196+t174+t173)+5.156620156177406d+1*t17*t19*(1 1545 1 .6672336067107812d-1*t101*t11*t22*wght+1.6672336067107812 1546 2 d-1*t10*t11*t192*wght+1.6672336067107812d-1*rhoa*t10*t101 1547 3 *wght-2.0d+0*t16*t99+t193+t191+t172+t166+t165)+1.38540503 1548 4 3612855d+1*t30*t8*(-3.3344672134215625d-1*t10*t103*t11*t2 1549 5 1*wght-2*t71*t97+t189)+5.156620156177406d+1*t17*t20*(-3.3 1550 6 344672134215625d-1*t10*t101*t11*t21*wght-3.33446721342156 1551 7 25d-1*t10*t103*t11*t16*wght-t60*t97+t188+t187)+1.91934710 1552 8 71598367d+2*t19*t34*(-1.0003401640264689d+0*t10*t101*t11* 1553 9 t16*wght+t186+t185)+6.929381492836896d+0*t10*t11*t117*t31 1554 : *t8*t97*wght+t155+Cmat3(iq,D3_RA_RA_GBB) 1555 Cmat3(iq,D3_RA_RB_GAA) = 1.385405033612855d+1*t19*t8*(-8.336 1556 1 168033553906d-2*rhoa*t98*wght-8.336168033553906d-2*rhoa*t 1557 2 84*wght-8.336168033553906d-2*t11*(-1.2678333333333333d-1* 1558 3 t1*t47*t83+3.663637317933968d-3*gammaaa*t1*t12*t42*t43*t8 1559 4 3+2.0437371323672143d-1*t1*t15*t24*t42*t83+1.313499489223 1560 5 619d-4*gammaaa*t1*t40*t42*t72-1.3233441301457602d-5*gamma 1561 6 aa*t1*t127*t15*t158*t72+3.663637317933968d-3*t1*t12*t15*t 1562 7 42*t43-3.29190082125811d-5*gammaaa*t1*t15*t158*t39*t42-1. 1563 8 1802232786884372d-6*t1*t153*t157*t38*t42-4.26138601623318 1564 9 46d-3*t1*t12*t41+4.0842645809192135d-5*gammaaa*t1*t39*t40 1565 : -2.3722487901637587d-7*t1*t127*t157*t198*t38+t160)*wght-2 1566 ; .1314177932294023d-4*t1*t12*t25*wght)+1.385405033612855d+ 1567 < 1*t30*t8*(-1.6672336067107812d-1*t10*t11*t21*t95*wght-1.6 1568 = 672336067107812d-1*t10*t103*t11*t21*wght-2*t29*t78+t189)+ 1569 > 5.156620156177406d+1*t17*t20*(-1.6672336067107812d-1*t10* 1570 ? t11*t16*t95*wght-1.6672336067107812d-1*t10*t11*t21*t89*wg 1571 @ ht-1.6672336067107812d-1*t10*t101*t11*t21*wght-1.66723360 1572 1 67107812d-1*t10*t103*t11*t16*wght-9.704472655028322d-4*t1 1573 2 *t12*t25*t78-t29*t76+t187)+1.9193471071598367d+2*t19*t34* 1574 3 (-5.001700820132344d-1*t10*t11*t16*t89*wght-5.00170082013 1575 4 2344d-1*t10*t101*t11*t16*wght-1.4556708982542485d-3*t1*t1 1576 5 2*t25*t76+t185)+1.385405033612855d+1*t20*t8*(8.3361680335 1577 6 53906d-2*t10*t11*(-9.403333333333332d-2*t1*t47*t83+2.7172 1578 7 659061106147d-3*gammaaa*t1*t12*t42*t43*t83+1.515809767426 1579 8 8203d-1*t1*t15*t24*t42*t83+1.1641407198087722d-2*t1*t12*t 1580 9 25*t75+9.742032494018218d-5*gammaaa*t1*t40*t42*t72-9.8150 1581 : 48747577728d-6*gammaaa*t1*t127*t15*t158*t72+6.44577519522 1582 ; 176d+0*t1*t199*t4*t5+2.7172659061106147d-3*t1*t12*t15*t42 1583 < *t43-2.4415544148203305d-5*gammaaa*t1*t15*t158*t39*t42-8. 1584 = 7535424455898d-7*t1*t153*t157*t38*t42-3.1606073226748554d 1585 > -3*t1*t12*t41+3.029238959582779d-5*gammaaa*t1*t39*t40-1.7 1586 ? 5946203156355d-7*t1*t127*t157*t198*t38+t195+t194+t183+t18 1587 @ 2+t180+t178+t177)*wght+2.1314177932294023d-4*t1*t12*t24*t 1588 1 77*wght-t29*t74+t197+t196+t184+t176+t175+t173)+5.15662015 1589 2 6177406d+1*t17*t19*(4.2628355864588047d-4*t1*t12*t24*t75* 1590 3 wght+1.6672336067107812d-1*t10*t11*t199*wght-9.7044726550 1591 4 28322d-4*t1*t12*t25*t74+t193+t191+t171+t168+t167+t165)+1. 1592 5 9193471071598367d+2*t20*t34*(4.8538868837607063d-4*t1*t10 1593 6 *t12*t16*t21*t24*wght+t162)+t164+t156+t155+Cmat3(iq,D3_RA 1594 7 _RB_GAA) 1595 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 1596 Cmat3(iq,D3_RA_GAA_GAA) = 1.385405033612855d+1*t30*t8*(-1.66 1597 1 72336067107812d-1*t10*t11*t29*t95*wght-2*t29*t96+t225+t22 1598 2 4)+5.156620156177406d+1*t17*t20*(-8.08981147293451d-5*t1* 1599 3 t10*t12*t24*t95*wght-1.6672336067107812d-1*t10*t11*t29*t8 1600 4 9*wght-t29*t91+t223+t222+t221+t220+t219)+1.38540503361285 1601 5 5d+1*t20*t8*(4.2628355864588047d-4*t1*t12*t24*t95*wght+8. 1602 6 336168033553906d-2*t10*t11*(2.3282814396175444d-2*t1*t12* 1603 7 t25*t89-4.336808689942018d-19*t1*t12*t2*t42*t83+3.4249332 1604 8 986782793d-5*t1*t42*t72*t82+1.7607451452574904d-4*t1*t39* 1605 9 t82-1.2248426929463342d-6*gammaaa*t1*t202*t72+6.445775195 1606 : 22176d+0*t1*t207*t4*t5-4.923867625644263d-7*gammaaa*t1*t1 1607 ; 53*t202*t42+t211+t210+t209-2.821d-1*t1*t203-6.59798261836 1608 < 3312d-8*gammaaa*t1*t127*t198*t202)*wght-2*t29*t85+t213+t2 1609 = 12)+1.9193471071598367d+2*t19*t34*(-2.4269434418803534d-4 1610 > *t1*t10*t12*t24*t89*wght+t218+t217+t216)+5.15662015617740 1611 ? 6d+1*t17*t19*(8.525671172917609d-4*t1*t12*t24*t89*wght+1. 1612 @ 6672336067107812d-1*t10*t11*t207*wght-1.9408945310056644d 1613 1 -3*t1*t12*t25*t85+t208+t205)+1.385405033612855d+1*t19*t8* 1614 2 (t201-8.336168033553906d-2*t11*(4.6177716418017856d-5*t1* 1615 3 t42*t72*t82+2.3739787876592927d-4*t1*t39*t82-1.6514318265 1616 4 23d-6*gammaaa*t1*t202*t72-6.63875594262246d-7*gammaaa*t1* 1617 5 t153*t202*t42+t204-3.8035d-1*t1*t203-8.895932963114095d-8 1618 6 *gammaaa*t1*t127*t198*t202)*wght)+1.9193471071598367d+2*t 1619 7 20*t34*(2.4269434418803534d-4*t1*t10*t12*t16*t24*t29*wght 1620 8 +t214)+6.929381492836896d+0*t10*t107*t11*t117*t21*t8*wght 1621 9 +5.156620156177406d+1*t17*t30*(t215-2*t29*t87)+t200+Cmat3 1622 : (iq,D3_RA_GAA_GAA) 1623 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 1624 Cmat3(iq,D3_RA_GAA_GBB) = 1.385405033612855d+1*t20*t8*(2.131 1625 1 4177932294023d-4*t1*t12*t24*t95*wght+8.336168033553906d-2 1626 2 *t10*t11*(1.1641407198087722d-2*t1*t12*t25*t89-2.16840434 1627 3 4971009d-19*t1*t12*t2*t42*t83-1.598302206049864d-5*t1*t42 1628 4 *t72*t82+4.2049980784980245d-5*t1*t105*t16*t42*t72-1.8403 1629 5 21640170825d-6*t1*t126*t127*t15*t72+6.44577519522176d+0*t 1630 6 1*t227*t4*t5+1.1641407198087722d-2*t1*t101*t12*t25+t228+1 1631 7 .3234889800848443d-23*gammaaa*t1*t127*t198*t202)*wght+7.6 1632 8 98904069327958d-7*t1*t114*t21*t42*t72*wght+2.131417793229 1633 9 4023d-4*t1*t103*t12*t24*wght-t29*t99-t85*t97-t115*t23)+5. 1634 : 156620156177406d+1*t17*t19*(4.2628355864588047d-4*t1*t12* 1635 ; t24*t89*wght+1.5397808138655913d-6*t1*t114*t16*t42*t72*wg 1636 < ht+4.2628355864588047d-4*t1*t101*t12*t24*wght+1.667233606 1637 = 7107812d-1*t10*t11*t227*wght-9.704472655028322d-4*t1*t12* 1638 > t25*t99-9.704472655028322d-4*t1*t12*t25*t85-3.50535705631 1639 ? 30826d-6*t1*t105*t23*t42*t72)+1.385405033612855d+1*t19*t8 1640 @ *(-8.336168033553906d-2*t11*(-2.1549600995075005d-5*t1*t4 1641 1 2*t72*t82-2.4812702440233023d-6*t1*t126*t127*t15*t72+t226 1642 2 )*wght-7.698904069327958d-7*t1*t128*t42*t72*wght)+5.15662 1643 3 0156177406d+1*t17*t20*(-2.922124543902974d-7*t1*t10*t114* 1644 4 t21*t42*t72*wght-1.6672336067107812d-1*t10*t101*t11*t29*w 1645 5 ght-1.6672336067107812d-1*t10*t11*t115*t16*wght-t91*t97+t 1646 6 231+t223+t220+t219)+1.9193471071598367d+2*t19*t34*(-8.766 1647 7 373631708922d-7*t1*t10*t114*t16*t42*t72*wght+t230+t218+t2 1648 8 16)+1.385405033612855d+1*t30*t8*(-1.6672336067107812d-1*t 1649 9 10*t103*t11*t29*wght-1.6672336067107812d-1*t10*t11*t115*t 1650 : 21*wght-2*t96*t97+t224)+6.929381492836896d+0*t10*t11*t117 1651 ; *t21*t29*t8*t97*wght+5.156620156177406d+1*t17*t30*(t215-2 1652 < *t87*t97)+1.9193471071598367d+2*t20*(t229+t214)*t34+t200+ 1653 = Cmat3(iq,D3_RA_GAA_GBB) 1654 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 1655 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 1656 Cmat3(iq,D3_RA_GBB_GBB) = 5.156620156177406d+1*t17*t30*(1.61 1657 1 7962294586902d-4*t1*t10*t12*t21*t24*t97*wght-2*t100*t97)+ 1658 2 1.385405033612855d+1*t30*t8*(-4.2628355864588047d-4*t1*t1 1659 3 2*t21*t24*t97*wght-1.6672336067107812d-1*t10*t103*t11*t97 1660 4 *wght-2*t104*t97+t225)+5.156620156177406d+1*t17*t20*(-4.2 1661 5 628355864588047d-4*t1*t12*t16*t24*t97*wght-1.667233606710 1662 6 7812d-1*t10*t101*t11*t97*wght-t102*t97-9.704472655028322d 1663 7 -4*t1*t104*t12*t25+t231+t222+t221+t219)+1.385405033612855 1664 8 d+1*t20*t8*(8.336168033553906d-2*t10*t11*(-2.283288865785 1665 9 5197d-6*t1*t42*t72*t82-5.67982304921771d-6*t1*t39*t82+6.4 1666 : 4577519522176d+0*t1*t232*t4*t5+2.3282814396175444d-2*t1*t 1667 ; 101*t12*t25+t228+t211+t210+t209+6.597982618363315d-8*gamm 1668 < aaa*t1*t127*t198*t202)*wght+4.2628355864588047d-4*t1*t103 1669 = *t12*t24*wght-2*t97*t99+t213+t212)+1.385405033612855d+1*t 1670 > 19*t8*(t201-8.336168033553906d-2*t11*(-3.078514427867857d 1671 ? -6*t1*t42*t72*t82-7.657996089223525d-6*t1*t39*t82+t226+t2 1672 @ 04+8.895932963114095d-8*gammaaa*t1*t127*t198*t202)*wght)+ 1673 1 5.156620156177406d+1*t17*t19*(8.525671172917609d-4*t1*t10 1674 2 1*t12*t24*wght+1.6672336067107812d-1*t10*t11*t232*wght-1. 1675 3 9408945310056644d-3*t1*t12*t25*t99+t208+t205)+6.929381492 1676 4 836896d+0*t10*t11*t117*t21*t8*t97**2*wght+1.9193471071598 1677 5 367d+2*t19*(-1.4556708982542485d-3*t1*t102*t12*t25+t230+t 1678 6 217+t216)*t34+1.9193471071598367d+2*t20*(t229-1.455670898 1679 7 2542485d-3*t1*t100*t12*t25)*t34+t200+Cmat3(iq,D3_RA_GBB_G 1680 8 BB) 1681 Cmat3(iq,D3_GAA_GAA_GAA) = 1.385405033612855d+1*t20*t8*(8.33 1682 1 6168033553906d-2*t10*t11*(2.2965800492743765d-7*t1*t235*t 1683 2 72+6.44577519522176d+0*t1*t236*t4*t5-2.0403644433615356d- 1684 3 8*t125*t198*t27*t42+1.8464503596165988d-7*t1*t153*t235*t4 1685 4 2-5.075533441197848d-8*t125*t153*t27+2.3282814396175444d- 1686 5 2*t1*t109*t12*t25+3.711365222829364d-8*t1*t127*t198*t235) 1687 6 *wght+2.500850410066172d-1*t106*t11*t29*wght+6.3942533796 1688 7 88208d-4*t1*t112*t12*t24*wght)+1.385405033612855d+1*t30*t 1689 8 8*(-3.3344672134215625d-1*t10*t11*t112*t29*wght-2*t113*t2 1690 9 9+t240)+5.156620156177406d+1*t17*t20*(-3.3344672134215625 1691 : d-1*t10*t109*t11*t29*wght-1.617962294586902d-4*t1*t10*t11 1692 ; 2*t12*t24*wght-t110*t29+t239+t238)+1.9193471071598367d+2* 1693 < t19*t34*(-4.853886883760707d-4*t1*t10*t109*t12*t24*wght-3 1694 = .010951273132608d-10*t105*t198*t233*wght+t237)+5.15662015 1695 > 6177406d+1*t17*t19*(1.2788506759376417d-3*t1*t109*t12*t24 1696 ? *wght+2.4269434418803534d-4*t1*t106*t12*t24*wght+1.667233 1697 @ 6067107812d-1*t10*t11*t236*wght)-1.1548969154728159d+0*t1 1698 1 1*t19*(3.096434674730625d-7*t1*t235*t72+2.489533478483423 1699 2 3d-7*t1*t153*t235*t42+5.003962291751678d-8*t1*t127*t198*t 1700 3 235)*t8*wght+6.929381492836896d+0*t10*t11*t117*t29**3*t8* 1701 4 wght+6.780728844877855d-5*t10*t2*t20*t27*t29*t34*t72*wght 1702 5 +2.50296509406056d-2*t1*t10*t107*t12*t17*t24*t30*wght+t23 1703 6 4+Cmat3(iq,D3_GAA_GAA_GAA) 1704 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 1705 Cmat3(iq,D3_GAA_GAA_GBB) = 1.9193471071598367d+2*t20*t34*(1. 1706 1 1776103133514104d-7*t10*t2*t27*t72*t97*wght+2.35522062670 1707 2 28208d-7*t10*t2*t27*t29*t72*wght)+5.156620156177406d+1*t1 1708 3 7*t30*(3.235924589173804d-4*t1*t10*t12*t24*t29*t97*wght+1 1709 4 .617962294586902d-4*t1*t10*t107*t12*t24*wght)+1.385405033 1710 5 612855d+1*t20*t8*(8.336168033553906d-2*t106*t11*t97*wght+ 1711 6 1.5397808138655913d-6*t1*t114*t29*t42*t72*wght+8.33616803 1712 7 3553906d-2*t10*t11*(6.44577519522176d+0*t1*t241*t4*t5+4.0 1713 8 80728886723071d-8*t125*t198*t27*t42-6.154834532055332d-8* 1714 9 t1*t153*t235*t42+1.1641407198087722d-2*t1*t109*t12*t25-1. 1715 : 2371217409431227d-8*t1*t127*t198*t235)*wght+4.26283558645 1716 ; 88047d-4*t1*t115*t12*t24*wght+2.1314177932294023d-4*t1*t1 1717 < 12*t12*t24*wght)+5.156620156177406d+1*t17*t20*(-5.8442490 1718 = 87805948d-7*t1*t10*t114*t29*t42*t72*wght-1.61796229458690 1719 > 2d-4*t1*t10*t115*t12*t24*wght-t110*t97+t239+t238)+1.91934 1720 ? 71071598367d+2*t19*t34*(-8.507303319268057d-10*t10*t126*t 1721 @ 198*t27*t42*wght-3.0109512731326077d-10*t105*t198*t233*wg 1722 1 ht+t237)+5.156620156177406d+1*t17*t19*(2.988552160579178d 1723 2 -9*t126*t198*t27*t42*wght+1.6672336067107812d-1*t10*t11*t 1724 3 241*wght+4.2628355864588047d-4*t1*t109*t12*t24*wght+8.089 1725 4 81147293451d-5*t1*t106*t12*t24*wght)+1.385405033612855d+1 1726 5 *t30*t8*(-3.3344672134215625d-1*t10*t11*t115*t29*wght-2*t 1727 6 113*t97+t240)+6.929381492836896d+0*t10*t107*t11*t117*t8*t 1728 7 97*wght-1.1548969154728159d+0*t11*t19*(-8.298444928278073 1729 8 d-8*t1*t153*t235*t42-1.6679874305838935d-8*t1*t127*t198*t 1730 9 235)*t8*wght+t234+Cmat3(iq,D3_GAA_GAA_GBB) 1731 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 1732 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 1733 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 1734 endif ! rhoa.gt.tol_rho 1735 else ! ipol.eq.1 1736 rhoa = rho(iq,R_A) 1737 rhob = rho(iq,R_B) 1738 gammaaa = rgamma(iq,G_AA) 1739 gammaab = rgamma(iq,G_AB) 1740 gammabb = rgamma(iq,G_BB) 1741 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 1742 t1 = param(1) 1743 t2 = 1/rhoa**2.6666666666666666d+0 1744 t3 = 4.492667444378077d-3*gammaaa*t2+1.0d+0 1745 t4 = 1.804d+0-8.04d-1/t3 1746 t5 = rhoa**3.333333333333333d-1 1747 t6 = 1/rhob**2.6666666666666666d+0 1748 t7 = 4.492667444378077d-3*gammabb*t6+1.0d+0 1749 t8 = 1.804d+0-8.04d-1/t7 1750 t9 = rhob**3.333333333333333d-1 1751 t10 = 1.8610514726982d+0*t8*t9+1.8610514726982d+0*t4*t5 1752 t11 = 1/t10 1753 t12 = t1*t11*t4*t5*t8*t9 1754 t13 = t12**2.0d+0 1755 t14 = 1/t13 1756 t15 = 3.908227599821866d+0*t1*t11*t4*t5*t8*t9+1.199591941974 1757 1 8984d+1*t13+3.183d-1 1758 t16 = 1/t15 1759 t17 = 5.269388045346497d+0*t1*t11*t4*t5*t8*t9+5.764d-1 1760 t18 = 1/t12**3.0d+0 1761 t19 = 1/t3**2 1762 t20 = 1/rhoa**3.3333333333333337d+0 1763 t21 = 1/rhoa**6.666666666666666d-1 1764 t22 = 6.203504908994d-1*t21*t4-1.7926167019779396d-2*gammaaa 1765 1 *t19*t20 1766 t23 = 1/t10**2 1767 t24 = -t1*t22*t23*t4*t5*t8*t9+3.333333333333333d-1*t1*t11*t2 1768 1 1*t4*t8*t9-9.632279000746596d-3*gammaaa*t1*t11*t19*t20*t8 1769 2 *t9 1770 t25 = 1/t15**2 1771 t26 = 2.3991838839497967d+1*t1*t11*t24*t4*t5*t8*t9-3.9082275 1772 1 99821866d+0*t1*t22*t23*t4*t5*t8*t9+1.302742533273955d+0*t 1773 2 1*t11*t21*t4*t8*t9-3.7645138639902426d-2*gammaaa*t1*t11*t 1774 3 19*t20*t8*t9 1775 t27 = -5.269388045346497d+0*t1*t22*t23*t4*t5*t8*t9+1.7564626 1776 1 817821655d+0*t1*t11*t21*t4*t8*t9-5.075621581597621d-2*gam 1777 2 maaa*t1*t11*t19*t20*t8*t9 1778 t28 = -8.336168033553906d-2*rhoa*rhob*t27*wght-8.33616803355 1779 1 3906d-2*rhob*t17*wght 1780 t29 = 1/t7**2 1781 t30 = 1/rhob**3.3333333333333337d+0 1782 t31 = 1/rhob**6.666666666666666d-1 1783 t32 = 6.203504908994d-1*t31*t8-1.7926167019779396d-2*gammabb 1784 1 *t29*t30 1785 t33 = -t1*t23*t32*t4*t5*t8*t9+3.333333333333333d-1*t1*t11*t3 1786 1 1*t4*t5*t8-9.632279000746596d-3*gammabb*t1*t11*t29*t30*t4 1787 2 *t5 1788 t34 = 2.3991838839497967d+1*t1*t11*t33*t4*t5*t8*t9-3.9082275 1789 1 99821866d+0*t1*t23*t32*t4*t5*t8*t9+1.302742533273955d+0*t 1790 2 1*t11*t31*t4*t5*t8-3.7645138639902426d-2*gammabb*t1*t11*t 1791 3 29*t30*t4*t5 1792 t35 = -5.269388045346497d+0*t1*t23*t32*t4*t5*t8*t9+1.7564626 1793 1 817821655d+0*t1*t11*t31*t4*t5*t8-5.075621581597621d-2*gam 1794 2 mabb*t1*t11*t29*t30*t4*t5 1795 t36 = -8.336168033553906d-2*rhoa*rhob*t35*wght-8.33616803355 1796 1 3906d-2*rhoa*t17*wght 1797 t37 = 1/rhoa**2 1798 t38 = 1/rhoa**2.3333333333333334d+0 1799 t39 = 1.9033580930991081d-2*t1*t11*t19*t38*t8*t9-3.542247382 1800 1 2341327d-2*t1*t19*t23*t37*t4*t8*t9 1801 t40 = 3.612104625279974d-3*t1*t11*t19*t38*t8*t9-6.7223126324 1802 1 17276d-3*t1*t19*t23*t37*t4*t8*t9 1803 t41 = 2.3991838839497967d+1*t1*t11*t4*t40*t5*t8*t9-2.6272327 1804 1 764644376d-2*t1*t19*t23*t37*t4*t8*t9+1.4116926989963413d- 1805 2 2*t1*t11*t19*t38*t8*t9 1806 t42 = 1/rhob**2.3333333333333334d+0 1807 t43 = 1/rhob**2 1808 t44 = 1.9033580930991081d-2*t1*t11*t29*t4*t42*t5-3.542247382 1809 1 2341327d-2*t1*t23*t29*t4*t43*t5*t8 1810 t45 = 3.612104625279974d-3*t1*t11*t29*t4*t42*t5-6.7223126324 1811 1 17276d-3*t1*t23*t29*t4*t43*t5*t8 1812 t46 = 2.3991838839497967d+1*t1*t11*t4*t45*t5*t8*t9-2.6272327 1813 1 764644376d-2*t1*t23*t29*t4*t43*t5*t8+1.4116926989963413d- 1814 2 2*t1*t11*t29*t4*t42*t5 1815 t47 = 1/t15**3 1816 t48 = t26**2 1817 t49 = 1/t12**4.0d+0 1818 t50 = t24**2 1819 t51 = t22**2 1820 t52 = 1/t10**3 1821 t53 = gammaaa**2 1822 t54 = 1/t3**3 1823 t55 = 1/rhoa**7 1824 t56 = 1/rhoa**4.333333333333333d+0 1825 t57 = 1/rhoa**1.6666666666666669d+0 1826 t58 = -4.135669939329333d-1*t4*t57+5.377850105933819d-2*gamm 1827 1 aaa*t19*t56-4.295269705186499d-4*t53*t54*t55 1828 t59 = -5.269388045346497d+0*t1*t23*t4*t5*t58*t8*t9-1.1709751 1829 1 2118811d+0*t1*t11*t4*t57*t8*t9+1.5226864744792862d-1*gamm 1830 2 aaa*t1*t11*t19*t56*t8*t9-1.2161642581134076d-3*t1*t11*t53 1831 3 *t54*t55*t8*t9+1.0538776090692993d+1*t1*t4*t5*t51*t52*t8* 1832 4 t9-3.512925363564331d+0*t1*t21*t22*t23*t4*t8*t9+1.0151243 1833 5 163195242d-1*gammaaa*t1*t19*t20*t22*t23*t8*t9 1834 t60 = -8.336168033553906d-2*rhoa*rhob*t59*wght-1.66723360671 1835 1 07812d-1*rhob*t27*wght 1836 t61 = -t1*t23*t4*t5*t58*t8*t9-2.222222222222222d-1*t1*t11*t4 1837 1 *t57*t8*t9+2.8896837002239795d-2*gammaaa*t1*t11*t19*t56*t 1838 2 8*t9-2.3079800683637772d-4*t1*t11*t53*t54*t55*t8*t9+2*t1* 1839 3 t4*t5*t51*t52*t8*t9-6.666666666666666d-1*t1*t21*t22*t23*t 1840 4 4*t8*t9+1.9264558001493193d-2*gammaaa*t1*t19*t20*t22*t23* 1841 5 t8*t9 1842 t62 = 1.6672336067107812d-1*rhoa*rhob*t17*t61*wght+1.6672336 1843 1 067107812d-1*rhoa*rhob*t24*t27*wght+1.6672336067107812d-1 1844 2 *rhob*t17*t24*wght-2.0d+0*t24*t28 1845 t63 = 2.3991838839497967d+1*t1*t11*t4*t5*t61*t8*t9-3.9082275 1846 1 99821866d+0*t1*t23*t4*t5*t58*t8*t9-8.684950221826366d-1*t 1847 2 1*t11*t4*t57*t8*t9+1.1293541591970728d-1*gammaaa*t1*t11*t 1848 3 19*t56*t8*t9-9.02011140301807d-4*t1*t11*t53*t54*t55*t8*t9 1849 4 +7.816455199643731d+0*t1*t4*t5*t51*t52*t8*t9-2.3991838839 1850 5 497967d+1*t1*t22*t23*t24*t4*t5*t8*t9+7.997279613165988d+0 1851 6 *t1*t11*t21*t24*t4*t8*t9-2.60548506654791d+0*t1*t21*t22*t 1852 7 23*t4*t8*t9-2.3109608544299284d-1*gammaaa*t1*t11*t19*t20* 1853 8 t24*t8*t9+7.529027727980485d-2*gammaaa*t1*t19*t20*t22*t23 1854 9 *t8*t9 1855 t64 = 8.336168033553906d-2*rhoa*rhob*t17*t63*wght+8.33616803 1856 1 3553906d-2*rhoa*rhob*t26*t27*wght+8.336168033553906d-2*rh 1857 2 ob*t17*t26*wght-t26*t28 1858 t65 = 1.0538776090692993d+1*t1*t22*t32*t4*t5*t52*t8*t9-1.756 1859 1 4626817821655d+0*t1*t21*t23*t32*t4*t8*t9+5.07562158159762 1860 2 1d-2*gammaaa*t1*t19*t20*t23*t32*t8*t9-1.7564626817821655d 1861 3 +0*t1*t22*t23*t31*t4*t5*t8+5.85487560594055d-1*t1*t11*t21 1862 4 *t31*t4*t8-1.6918738605325404d-2*gammaaa*t1*t11*t19*t20*t 1863 5 31*t8+5.075621581597621d-2*gammabb*t1*t22*t23*t29*t30*t4* 1864 6 t5-1.6918738605325404d-2*gammabb*t1*t11*t21*t29*t30*t4+4. 1865 7 8889803176158986d-4*gammaaa*gammabb*t1*t11*t19*t20*t29*t3 1866 8 0 1867 t66 = -8.336168033553906d-2*rhoa*rhob*t65*wght-8.33616803355 1868 1 3906d-2*rhob*t35*wght-8.336168033553906d-2*rhoa*t27*wght- 1869 2 8.336168033553906d-2*t17*wght 1870 t67 = -1.6672336067107812d-1*rhoa*rhob*t17*t24*t34*wght-1.66 1871 1 72336067107812d-1*rhoa*rhob*t17*t26*t33*wght 1872 t68 = 2*t1*t22*t32*t4*t5*t52*t8*t9-3.333333333333333d-1*t1*t 1873 1 21*t23*t32*t4*t8*t9+9.632279000746596d-3*gammaaa*t1*t19*t 1874 2 20*t23*t32*t8*t9-3.333333333333333d-1*t1*t22*t23*t31*t4*t 1875 3 5*t8+1.111111111111111d-1*t1*t11*t21*t31*t4*t8-3.21075966 1876 4 6915532d-3*gammaaa*t1*t11*t19*t20*t31*t8+9.63227900074659 1877 5 6d-3*gammabb*t1*t22*t23*t29*t30*t4*t5-3.210759666915532d- 1878 6 3*gammabb*t1*t11*t21*t29*t30*t4+9.278079874822385d-5*gamm 1879 7 aaa*gammabb*t1*t11*t19*t20*t29*t30 1880 t69 = 1.6672336067107812d-1*rhoa*rhob*t17*t68*wght+1.6672336 1881 1 067107812d-1*rhoa*rhob*t24*t35*wght+1.6672336067107812d-1 1882 2 *rhoa*t17*t24*wght-2.0d+0*t28*t33 1883 t70 = 2.3991838839497967d+1*t1*t11*t4*t5*t68*t8*t9+7.8164551 1884 1 99643731d+0*t1*t22*t32*t4*t5*t52*t8*t9-2.3991838839497967 1885 2 d+1*t1*t23*t24*t32*t4*t5*t8*t9-1.302742533273955d+0*t1*t2 1886 3 1*t23*t32*t4*t8*t9+3.7645138639902426d-2*gammaaa*t1*t19*t 1887 4 20*t23*t32*t8*t9+7.997279613165988d+0*t1*t11*t24*t31*t4*t 1888 5 5*t8-1.302742533273955d+0*t1*t22*t23*t31*t4*t5*t8+4.34247 1889 6 5110913183d-1*t1*t11*t21*t31*t4*t8-1.2548379546634142d-2* 1890 7 gammaaa*t1*t11*t19*t20*t31*t8-2.3109608544299284d-1*gamma 1891 8 bb*t1*t11*t24*t29*t30*t4*t5+3.7645138639902426d-2*gammabb 1892 9 *t1*t22*t23*t29*t30*t4*t5-1.2548379546634142d-2*gammabb*t 1893 : 1*t11*t21*t29*t30*t4+3.6260847840132643d-4*gammaaa*gammab 1894 ; b*t1*t11*t19*t20*t29*t30 1895 t71 = 8.336168033553906d-2*rhoa*rhob*t17*t70*wght+8.33616803 1896 1 3553906d-2*rhoa*rhob*t26*t35*wght+8.336168033553906d-2*rh 1897 2 oa*t17*t26*wght-t28*t34 1898 t72 = t34**2 1899 t73 = t33**2 1900 t74 = gammabb**2 1901 t75 = 1/t7**3 1902 t76 = 1/rhob**7 1903 t77 = 1/rhob**4.333333333333333d+0 1904 t78 = 1/rhob**1.6666666666666669d+0 1905 t79 = t32**2 1906 t80 = -4.135669939329333d-1*t78*t8+5.377850105933819d-2*gamm 1907 1 abb*t29*t77-4.295269705186499d-4*t74*t75*t76 1908 t81 = -5.269388045346497d+0*t1*t23*t4*t5*t8*t80*t9+1.0538776 1909 1 090692993d+1*t1*t4*t5*t52*t79*t8*t9-1.17097512118811d+0*t 1910 2 1*t11*t4*t5*t78*t8-3.512925363564331d+0*t1*t23*t31*t32*t4 1911 3 *t5*t8+1.5226864744792862d-1*gammabb*t1*t11*t29*t4*t5*t77 1912 4 -1.2161642581134076d-3*t1*t11*t4*t5*t74*t75*t76+1.0151243 1913 5 163195242d-1*gammabb*t1*t23*t29*t30*t32*t4*t5 1914 t82 = -8.336168033553906d-2*rhoa*rhob*t81*wght-1.66723360671 1915 1 07812d-1*rhoa*t35*wght 1916 t83 = -t1*t23*t4*t5*t8*t80*t9+2*t1*t4*t5*t52*t79*t8*t9-2.222 1917 1 222222222222d-1*t1*t11*t4*t5*t78*t8-6.666666666666666d-1* 1918 2 t1*t23*t31*t32*t4*t5*t8+2.8896837002239795d-2*gammabb*t1* 1919 3 t11*t29*t4*t5*t77-2.3079800683637772d-4*t1*t11*t4*t5*t74* 1920 4 t75*t76+1.9264558001493193d-2*gammabb*t1*t23*t29*t30*t32* 1921 5 t4*t5 1922 t84 = 1.6672336067107812d-1*rhoa*rhob*t17*t83*wght+1.6672336 1923 1 067107812d-1*rhoa*rhob*t33*t35*wght+1.6672336067107812d-1 1924 2 *rhoa*t17*t33*wght-2.0d+0*t33*t36 1925 t85 = 2.3991838839497967d+1*t1*t11*t4*t5*t8*t83*t9-3.9082275 1926 1 99821866d+0*t1*t23*t4*t5*t8*t80*t9+7.816455199643731d+0*t 1927 2 1*t4*t5*t52*t79*t8*t9-2.3991838839497967d+1*t1*t23*t32*t3 1928 3 3*t4*t5*t8*t9-8.684950221826366d-1*t1*t11*t4*t5*t78*t8+7. 1929 4 997279613165988d+0*t1*t11*t31*t33*t4*t5*t8-2.605485066547 1930 5 91d+0*t1*t23*t31*t32*t4*t5*t8+1.1293541591970728d-1*gamma 1931 6 bb*t1*t11*t29*t4*t5*t77-9.02011140301807d-4*t1*t11*t4*t5* 1932 7 t74*t75*t76-2.3109608544299284d-1*gammabb*t1*t11*t29*t30* 1933 8 t33*t4*t5+7.529027727980485d-2*gammabb*t1*t23*t29*t30*t32 1934 9 *t4*t5 1935 t86 = 8.336168033553906d-2*rhoa*rhob*t17*t85*wght+8.33616803 1936 1 3553906d-2*rhoa*rhob*t34*t35*wght+8.336168033553906d-2*rh 1937 2 oa*t17*t34*wght-t34*t36 1938 t87 = 1/t3**4 1939 t88 = 1/rhoa**5.666666666666667d+0 1940 t89 = 1/rhoa**3 1941 t90 = 1/rhoa**6 1942 t91 = 1.610726139444937d-4*gammaaa*t54*t90-1.568539614230697 1943 1 3d-2*t19*t20 1944 t92 = -5.269388045346497d+0*t1*t23*t4*t5*t8*t9*t91+4.5606159 1945 1 67925279d-4*gammaaa*t1*t11*t54*t8*t9*t90-1.18074912741137 1946 2 75d-2*t1*t19*t23*t4*t8*t89*t9+3.411991507534344d-4*gammaa 1947 3 a*t1*t23*t8*t87*t88*t9+7.084494764468265d-2*t1*t19*t22*t3 1948 4 7*t4*t52*t8*t9-1.9033580930991081d-2*t1*t19*t22*t23*t38*t 1949 5 8*t9-4.441168883897918d-2*t1*t11*t19*t20*t8*t9 1950 t93 = -8.336168033553906d-2*rhoa*rhob*t92*wght-8.33616803355 1951 1 3906d-2*rhob*t39*wght 1952 t94 = -1.6672336067107812d-1*rhoa*rhob*t17*t24*t41*wght-1.66 1953 1 72336067107812d-1*rhoa*rhob*t17*t26*t40*wght 1954 t95 = -t1*t23*t4*t5*t8*t9*t91+8.654925256364164d-5*gammaaa*t 1955 1 1*t11*t54*t8*t9*t90-2.240770877472425d-3*t1*t19*t23*t4*t8 1956 2 *t89*t9+6.47511908056865d-5*gammaaa*t1*t23*t8*t87*t88*t9+ 1957 3 1.344462526483455d-2*t1*t19*t22*t37*t4*t52*t8*t9-3.612104 1958 4 625279974d-3*t1*t19*t22*t23*t38*t8*t9-8.428244125653273d- 1959 5 3*t1*t11*t19*t20*t8*t9 1960 t96 = 1.6672336067107812d-1*rhoa*rhob*t17*t95*wght+1.6672336 1961 1 067107812d-1*rhoa*rhob*t24*t39*wght-2.0d+0*t28*t40 1962 t97 = 2.3991838839497967d+1*t1*t11*t4*t5*t8*t9*t95-3.9082275 1963 1 99821866d+0*t1*t23*t4*t5*t8*t9*t91+3.382541776131776d-4*g 1964 2 ammaaa*t1*t11*t54*t8*t9*t90-8.75744258821479d-3*t1*t19*t2 1965 3 3*t4*t8*t89*t9+2.5306239102811573d-4*gammaaa*t1*t23*t8*t8 1966 4 7*t88*t9+5.254465552928875d-2*t1*t19*t22*t37*t4*t52*t8*t9 1967 5 -1.612806413056766d-1*t1*t19*t23*t24*t37*t4*t8*t9+8.66610 1968 6 3204112231d-2*t1*t11*t19*t24*t38*t8*t9-1.4116926989963413 1969 7 d-2*t1*t19*t22*t23*t38*t8*t9-3.293949630991462d-2*t1*t11* 1970 8 t19*t20*t8*t9 1971 t98 = 8.336168033553906d-2*rhoa*rhob*t17*t97*wght+8.33616803 1972 1 3553906d-2*rhoa*rhob*t26*t39*wght-t28*t41 1973 t99 = 7.084494764468265d-2*t1*t22*t29*t4*t43*t5*t52*t8-1.180 1974 1 7491274113775d-2*t1*t21*t23*t29*t4*t43*t8+3.4119915075343 1975 2 44d-4*gammaaa*t1*t19*t20*t23*t29*t43*t8-1.903358093099108 1976 3 1d-2*t1*t22*t23*t29*t4*t42*t5+6.344526976997026d-3*t1*t11 1977 4 *t21*t29*t4*t42-1.8333676191059622d-4*gammaaa*t1*t11*t19* 1978 5 t20*t29*t42 1979 t100 = -8.336168033553906d-2*rhoa*rhob*t99*wght-8.3361680335 1980 1 53906d-2*rhob*t44*wght 1981 t101 = -1.6672336067107812d-1*rhoa*rhob*t17*t24*t46*wght-1.6 1982 1 672336067107812d-1*rhoa*rhob*t17*t26*t45*wght 1983 t102 = 1.344462526483455d-2*t1*t22*t29*t4*t43*t5*t52*t8-2.24 1984 1 0770877472425d-3*t1*t21*t23*t29*t4*t43*t8+6.4751190805686 1985 2 5d-5*gammaaa*t1*t19*t20*t23*t29*t43*t8-3.612104625279974d 1986 3 -3*t1*t22*t23*t29*t4*t42*t5+1.2040348750933245d-3*t1*t11* 1987 4 t21*t29*t4*t42-3.4792799530583945d-5*gammaaa*t1*t11*t19*t 1988 5 20*t29*t42 1989 t103 = 1.6672336067107812d-1*rhoa*rhob*t24*t44*wght+1.667233 1990 1 6067107812d-1*rhoa*rhob*t102*t17*wght-2.0d+0*t28*t45 1991 t104 = 2.3991838839497967d+1*t1*t102*t11*t4*t5*t8*t9+5.25446 1992 1 5552928875d-2*t1*t22*t29*t4*t43*t5*t52*t8-1.6128064130567 1993 2 66d-1*t1*t23*t24*t29*t4*t43*t5*t8-8.75744258821479d-3*t1* 1994 3 t21*t23*t29*t4*t43*t8+2.5306239102811573d-4*gammaaa*t1*t1 1995 4 9*t20*t23*t29*t43*t8+8.666103204112231d-2*t1*t11*t24*t29* 1996 5 t4*t42*t5-1.4116926989963413d-2*t1*t22*t23*t29*t4*t42*t5+ 1997 6 4.705642329987803d-3*t1*t11*t21*t29*t4*t42-1.359781794004 1998 7 9742d-4*gammaaa*t1*t11*t19*t20*t29*t42 1999 t105 = 8.336168033553906d-2*rhoa*rhob*t26*t44*wght+8.3361680 2000 1 33553906d-2*rhoa*rhob*t104*t17*wght-t28*t46 2001 t106 = 7.084494764468265d-2*t1*t19*t32*t37*t4*t52*t8*t9-1.90 2002 1 33580930991081d-2*t1*t19*t23*t32*t38*t8*t9-1.180749127411 2003 2 3775d-2*t1*t19*t23*t31*t37*t4*t8+6.344526976997026d-3*t1* 2004 3 t11*t19*t31*t38*t8+3.411991507534344d-4*gammabb*t1*t19*t2 2005 4 3*t29*t30*t37*t4-1.8333676191059622d-4*gammabb*t1*t11*t19 2006 5 *t29*t30*t38 2007 t107 = -8.336168033553906d-2*rhoa*t39*wght-8.336168033553906 2008 1 d-2*rhoa*rhob*t106*wght 2009 t108 = -1.6672336067107812d-1*rhoa*rhob*t17*t33*t41*wght-1.6 2010 1 672336067107812d-1*rhoa*rhob*t17*t34*t40*wght 2011 t109 = 1.344462526483455d-2*t1*t19*t32*t37*t4*t52*t8*t9-3.61 2012 1 2104625279974d-3*t1*t19*t23*t32*t38*t8*t9-2.2407708774724 2013 2 25d-3*t1*t19*t23*t31*t37*t4*t8+1.2040348750933245d-3*t1*t 2014 3 11*t19*t31*t38*t8+6.47511908056865d-5*gammabb*t1*t19*t23* 2015 4 t29*t30*t37*t4-3.4792799530583945d-5*gammabb*t1*t11*t19*t 2016 5 29*t30*t38 2017 t110 = 1.6672336067107812d-1*rhoa*rhob*t33*t39*wght+1.667233 2018 1 6067107812d-1*rhoa*rhob*t109*t17*wght-2.0d+0*t36*t40 2019 t111 = 5.254465552928875d-2*t1*t19*t32*t37*t4*t52*t8*t9+2.39 2020 1 91838839497967d+1*t1*t109*t11*t4*t5*t8*t9-1.6128064130567 2021 2 66d-1*t1*t19*t23*t33*t37*t4*t8*t9+8.666103204112231d-2*t1 2022 3 *t11*t19*t33*t38*t8*t9-1.4116926989963413d-2*t1*t19*t23*t 2023 4 32*t38*t8*t9-8.75744258821479d-3*t1*t19*t23*t31*t37*t4*t8 2024 5 +4.705642329987803d-3*t1*t11*t19*t31*t38*t8+2.53062391028 2025 6 11573d-4*gammabb*t1*t19*t23*t29*t30*t37*t4-1.359781794004 2026 7 9742d-4*gammabb*t1*t11*t19*t29*t30*t38 2027 t112 = 8.336168033553906d-2*rhoa*rhob*t34*t39*wght+8.3361680 2028 1 33553906d-2*rhoa*rhob*t111*t17*wght-t36*t41 2029 t113 = 1/rhob**6 2030 t114 = 1/t7**4 2031 t115 = 1/rhob**5.666666666666667d+0 2032 t116 = 1/rhob**3 2033 t117 = 1.610726139444937d-4*gammabb*t113*t75-1.5685396142306 2034 1 973d-2*t29*t30 2035 t118 = -5.269388045346497d+0*t1*t117*t23*t4*t5*t8*t9+7.08449 2036 1 4764468265d-2*t1*t29*t32*t4*t43*t5*t52*t8-1.1807491274113 2037 2 775d-2*t1*t116*t23*t29*t4*t5*t8+4.560615967925279d-4*gamm 2038 3 abb*t1*t11*t113*t4*t5*t75-1.9033580930991081d-2*t1*t23*t2 2039 4 9*t32*t4*t42*t5-4.441168883897918d-2*t1*t11*t29*t30*t4*t5 2040 5 +3.411991507534344d-4*gammabb*t1*t114*t115*t23*t4*t5 2041 t119 = -8.336168033553906d-2*rhoa*t44*wght-8.336168033553906 2042 1 d-2*rhoa*rhob*t118*wght 2043 t120 = -1.6672336067107812d-1*rhoa*rhob*t17*t33*t46*wght-1.6 2044 1 672336067107812d-1*rhoa*rhob*t17*t34*t45*wght 2045 t121 = -t1*t117*t23*t4*t5*t8*t9+1.344462526483455d-2*t1*t29* 2046 1 t32*t4*t43*t5*t52*t8-2.240770877472425d-3*t1*t116*t23*t29 2047 2 *t4*t5*t8+8.654925256364164d-5*gammabb*t1*t11*t113*t4*t5* 2048 3 t75-3.612104625279974d-3*t1*t23*t29*t32*t4*t42*t5-8.42824 2049 4 4125653273d-3*t1*t11*t29*t30*t4*t5+6.47511908056865d-5*ga 2050 5 mmabb*t1*t114*t115*t23*t4*t5 2051 t122 = 1.6672336067107812d-1*rhoa*rhob*t33*t44*wght+1.667233 2052 1 6067107812d-1*rhoa*rhob*t121*t17*wght-2.0d+0*t36*t45 2053 t123 = -3.908227599821866d+0*t1*t117*t23*t4*t5*t8*t9+2.39918 2054 1 38839497967d+1*t1*t11*t121*t4*t5*t8*t9+5.254465552928875d 2055 2 -2*t1*t29*t32*t4*t43*t5*t52*t8-1.612806413056766d-1*t1*t2 2056 3 3*t29*t33*t4*t43*t5*t8-8.75744258821479d-3*t1*t116*t23*t2 2057 4 9*t4*t5*t8+3.382541776131776d-4*gammabb*t1*t11*t113*t4*t5 2058 5 *t75+8.666103204112231d-2*t1*t11*t29*t33*t4*t42*t5-1.4116 2059 6 926989963413d-2*t1*t23*t29*t32*t4*t42*t5-3.29394963099146 2060 7 2d-2*t1*t11*t29*t30*t4*t5+2.5306239102811573d-4*gammabb*t 2061 8 1*t114*t115*t23*t4*t5 2062 t124 = 8.336168033553906d-2*rhoa*rhob*t34*t44*wght+8.3361680 2063 1 33553906d-2*rhoa*rhob*t123*t17*wght-t36*t46 2064 t125 = 1/rhoa**4.666666666666667d+0 2065 t126 = 1/rhoa**5 2066 t127 = 4.762418864947907d-4*t1*t4*t52*t56*t8*t87*t9-2.558993 2067 1 630650758d-4*t1*t125*t23*t8*t87*t9+3.1828278988193504d-4* 2068 2 t1*t125*t23*t4*t54*t8*t9-1.71023098797198d-4*t1*t11*t126* 2069 3 t54*t8*t9 2070 t128 = t41**2 2071 t129 = t40**2 2072 t130 = 9.037897425591375d-5*t1*t4*t52*t56*t8*t87*t9-4.856339 2073 1 310426487d-5*t1*t125*t23*t8*t87*t9+6.040223022918516d-5*t 2074 2 1*t125*t23*t4*t54*t8*t9-3.245596971136562d-5*t1*t11*t126* 2075 3 t54*t8*t9 2076 t131 = 3.3344672134215625d-1*rhoa*rhob*t39*t40*wght+1.667233 2077 1 6067107812d-1*rhoa*rhob*t130*t17*wght 2078 t132 = 3.53221601630552d-4*t1*t4*t52*t56*t8*t87*t9-1.8979679 2079 1 327108684d-4*t1*t125*t23*t8*t87*t9+2.3606566327249603d-4* 2080 2 t1*t125*t23*t4*t54*t8*t9-1.268453166049416d-4*t1*t11*t126 2081 3 *t54*t8*t9+2.3991838839497967d+1*t1*t11*t130*t4*t5*t8*t9- 2082 4 1.612806413056766d-1*t1*t19*t23*t37*t4*t40*t8*t9+8.666103 2083 5 204112231d-2*t1*t11*t19*t38*t40*t8*t9 2084 t133 = 1.6672336067107812d-1*rhoa*rhob*t39*t41*wght+8.336168 2085 1 033553906d-2*rhoa*rhob*t132*t17*wght 2086 t134 = 4.762418864947907d-4*t1*t19*t29*t37*t4*t43*t52*t8-1.2 2087 1 79496815325379d-4*t1*t19*t23*t29*t38*t43*t8-1.27949681532 2088 2 5379d-4*t1*t19*t23*t29*t37*t4*t42+6.875128571647359d-5*t1 2089 3 *t11*t19*t29*t38*t42 2090 t135 = 9.037897425591375d-5*t1*t19*t29*t37*t4*t43*t52*t8-2.4 2091 1 281696552132434d-5*t1*t19*t23*t29*t38*t43*t8-2.4281696552 2092 2 132434d-5*t1*t19*t23*t29*t37*t4*t42+1.304729982396898d-5* 2093 3 t1*t11*t19*t29*t38*t42 2094 t136 = 1.6672336067107812d-1*rhoa*rhob*t39*t45*wght+1.667233 2095 1 6067107812d-1*rhoa*rhob*t40*t44*wght+1.6672336067107812d- 2096 2 1*rhoa*rhob*t135*t17*wght 2097 t137 = 2.3991838839497967d+1*t1*t11*t135*t4*t5*t8*t9+3.53221 2098 1 601630552d-4*t1*t19*t29*t37*t4*t43*t52*t8-1.6128064130567 2099 2 66d-1*t1*t23*t29*t4*t40*t43*t5*t8-9.489839663554341d-5*t1 2100 3 *t19*t23*t29*t38*t43*t8+8.666103204112231d-2*t1*t11*t29*t 2101 4 4*t40*t42*t5-9.489839663554341d-5*t1*t19*t23*t29*t37*t4*t 2102 5 42+5.099181727518654d-5*t1*t11*t19*t29*t38*t42 2103 t138 = 8.336168033553906d-2*rhoa*rhob*t39*t46*wght+8.3361680 2104 1 33553906d-2*rhoa*rhob*t41*t44*wght+8.336168033553906d-2*r 2105 2 hoa*rhob*t137*t17*wght 2106 t139 = -1.6672336067107812d-1*rhoa*rhob*t17*t40*t46*wght-1.6 2107 1 672336067107812d-1*rhoa*rhob*t17*t41*t45*wght 2108 t140 = 1/rhob**5 2109 t141 = 1/rhob**4.666666666666667d+0 2110 t142 = 4.762418864947907d-4*t1*t114*t4*t5*t52*t77*t8+3.18282 2111 1 78988193504d-4*t1*t141*t23*t4*t5*t75*t8-1.71023098797198d 2112 2 -4*t1*t11*t140*t4*t5*t75-2.558993630650758d-4*t1*t114*t14 2113 3 1*t23*t4*t5 2114 t143 = t46**2 2115 t144 = t45**2 2116 t145 = 9.037897425591375d-5*t1*t114*t4*t5*t52*t77*t8+6.04022 2117 1 3022918516d-5*t1*t141*t23*t4*t5*t75*t8-3.245596971136562d 2118 2 -5*t1*t11*t140*t4*t5*t75-4.856339310426487d-5*t1*t114*t14 2119 3 1*t23*t4*t5 2120 t146 = 3.3344672134215625d-1*rhoa*rhob*t44*t45*wght+1.667233 2121 1 6067107812d-1*rhoa*rhob*t145*t17*wght 2122 t147 = 2.3991838839497967d+1*t1*t11*t145*t4*t5*t8*t9+3.53221 2123 1 601630552d-4*t1*t114*t4*t5*t52*t77*t8+2.3606566327249603d 2124 2 -4*t1*t141*t23*t4*t5*t75*t8-1.612806413056766d-1*t1*t23*t 2125 3 29*t4*t43*t45*t5*t8-1.268453166049416d-4*t1*t11*t140*t4*t 2126 4 5*t75+8.666103204112231d-2*t1*t11*t29*t4*t42*t45*t5-1.897 2127 5 9679327108684d-4*t1*t114*t141*t23*t4*t5 2128 t148 = 1.6672336067107812d-1*rhoa*rhob*t44*t46*wght+8.336168 2129 1 033553906d-2*rhoa*rhob*t147*t17*wght 2130 t149 = 1/t15**4 2131 t150 = 1/t12**5.0d+0 2132 t151 = t22**3 2133 t152 = 1/t10**4 2134 t153 = gammaaa**3 2135 t154 = 1/rhoa**1.0666666666666666d+1 2136 t155 = 1/rhoa**8 2137 t156 = 1/rhoa**5.333333333333333d+0 2138 t157 = -1.5437774695451842d-5*t153*t154*t87+4.29526970518649 2139 1 96d-3*t155*t53*t54+6.892783232215555d-1*t2*t4-2.290565785 2140 2 860701d-1*gammaaa*t156*t19 2141 t158 = -8.295189532329142d-6*t1*t11*t153*t154*t8*t87*t9+6*t1 2142 1 *t22*t4*t5*t52*t58*t8*t9-t1*t21*t23*t4*t58*t8*t9+2.889683 2143 2 7002239784d-2*gammaaa*t1*t19*t20*t23*t58*t8*t9+6.66666666 2144 3 6666666d-1*t1*t22*t23*t4*t57*t8*t9-8.669051100671937d-2*g 2145 4 ammaaa*t1*t19*t22*t23*t56*t8*t9+6.92394020509133d-4*t1*t2 2146 5 2*t23*t53*t54*t55*t8*t9+2.3079800683637772d-3*t1*t11*t155 2147 6 *t53*t54*t8*t9+2*t1*t21*t4*t51*t52*t8*t9-5.77936740044795 2148 7 7d-2*gammaaa*t1*t19*t20*t51*t52*t8*t9-t1*t157*t23*t4*t5*t 2149 8 8*t9-6*t1*t151*t152*t4*t5*t8*t9+3.7037037037037035d-1*t1* 2150 9 t11*t2*t4*t8*t9-1.2307912056509542d-1*gammaaa*t1*t11*t156 2151 : *t19*t8*t9 2152 t159 = 2*t1*t32*t4*t5*t52*t58*t8*t9+2.222222222222222d-1*t1* 2153 1 t23*t32*t4*t57*t8*t9-2.8896837002239795d-2*gammaaa*t1*t19 2154 2 *t23*t32*t56*t8*t9+2.3079800683637772d-4*t1*t23*t32*t53*t 2155 3 54*t55*t8*t9+1.3333333333333333d+0*t1*t21*t22*t32*t4*t52* 2156 4 t8*t9-3.8529116002986386d-2*gammaaa*t1*t19*t20*t22*t32*t5 2157 5 2*t8*t9-6*t1*t152*t32*t4*t5*t51*t8*t9-3.333333333333333d- 2158 6 1*t1*t23*t31*t4*t5*t58*t8-7.407407407407407d-2*t1*t11*t31 2159 7 *t4*t57*t8+9.632279000746597d-3*gammaaa*t1*t11*t19*t31*t5 2160 8 6*t8-7.693266894545924d-5*t1*t11*t31*t53*t54*t55*t8+6.666 2161 9 666666666666d-1*t1*t31*t4*t5*t51*t52*t8-2.222222222222222 2162 : d-1*t1*t21*t22*t23*t31*t4*t8+6.421519333831064d-3*gammaaa 2163 ; *t1*t19*t20*t22*t23*t31*t8+9.632279000746596d-3*gammabb*t 2164 < 1*t23*t29*t30*t4*t5*t58+2.1405064446103544d-3*gammabb*t1* 2165 = t11*t29*t30*t4*t57-2.7834239624467155d-4*gammaaa*gammabb* 2166 > t1*t11*t19*t29*t30*t56+2.22311079466421d-6*gammabb*t1*t11 2167 ? *t29*t30*t53*t54*t55-1.9264558001493193d-2*gammabb*t1*t29 2168 @ *t30*t4*t5*t51*t52+6.421519333831064d-3*gammabb*t1*t21*t2 2169 1 2*t23*t29*t30*t4-1.8556159749644768d-4*gammaaa*gammabb*t1 2170 2 *t19*t20*t22*t23*t29*t30 2171 t160 = 2*t1*t22*t4*t5*t52*t8*t80*t9-3.333333333333333d-1*t1* 2172 1 t21*t23*t4*t8*t80*t9+9.632279000746596d-3*gammaaa*t1*t19* 2173 2 t20*t23*t8*t80*t9+6.666666666666666d-1*t1*t21*t4*t52*t79* 2174 3 t8*t9-1.9264558001493193d-2*gammaaa*t1*t19*t20*t52*t79*t8 2175 4 *t9-6*t1*t152*t22*t4*t5*t79*t8*t9+2.222222222222222d-1*t1 2176 5 *t22*t23*t4*t5*t78*t8-7.407407407407407d-2*t1*t11*t21*t4* 2177 6 t78*t8+2.1405064446103544d-3*gammaaa*t1*t11*t19*t20*t78*t 2178 7 8+1.3333333333333333d+0*t1*t22*t31*t32*t4*t5*t52*t8-2.222 2179 8 222222222222d-1*t1*t21*t23*t31*t32*t4*t8+6.42151933383106 2180 9 4d-3*gammaaa*t1*t19*t20*t23*t31*t32*t8-2.8896837002239795 2181 : d-2*gammabb*t1*t22*t23*t29*t4*t5*t77+9.632279000746596d-3 2182 ; *gammabb*t1*t11*t21*t29*t4*t77-2.7834239624467155d-4*gamm 2183 < aaa*gammabb*t1*t11*t19*t20*t29*t77+2.3079800683637772d-4* 2184 = t1*t22*t23*t4*t5*t74*t75*t76-7.693266894545924d-5*t1*t11* 2185 > t21*t4*t74*t75*t76+2.22311079466421d-6*gammaaa*t1*t11*t19 2186 ? *t20*t74*t75*t76-3.8529116002986386d-2*gammabb*t1*t22*t29 2187 @ *t30*t32*t4*t5*t52+6.421519333831064d-3*gammabb*t1*t21*t2 2188 1 3*t29*t30*t32*t4-1.8556159749644768d-4*gammaaa*gammabb*t1 2189 2 *t19*t20*t23*t29*t30*t32 2190 t161 = gammabb**3 2191 t162 = 1/rhob**1.0666666666666666d+1 2192 t163 = 1/rhob**8 2193 t164 = 1/rhob**5.333333333333333d+0 2194 t165 = t32**3 2195 t166 = 6.892783232215555d-1*t6*t8+4.2952697051864996d-3*t163 2196 1 *t74*t75-2.290565785860701d-1*gammabb*t164*t29-1.54377746 2197 2 95451842d-5*t114*t161*t162 2198 t167 = 6*t1*t32*t4*t5*t52*t8*t80*t9-t1*t166*t23*t4*t5*t8*t9- 2199 1 6*t1*t152*t165*t4*t5*t8*t9-t1*t23*t31*t4*t5*t8*t80+2.8896 2200 2 837002239784d-2*gammabb*t1*t23*t29*t30*t4*t5*t80+2*t1*t31 2201 3 *t4*t5*t52*t79*t8+6.666666666666666d-1*t1*t23*t32*t4*t5*t 2202 4 78*t8+3.7037037037037035d-1*t1*t11*t4*t5*t6*t8-5.77936740 2203 5 0447957d-2*gammabb*t1*t29*t30*t4*t5*t52*t79-8.66905110067 2204 6 1937d-2*gammabb*t1*t23*t29*t32*t4*t5*t77+6.92394020509133 2205 7 d-4*t1*t23*t32*t4*t5*t74*t75*t76+2.3079800683637772d-3*t1 2206 8 *t11*t163*t4*t5*t74*t75-1.2307912056509542d-1*gammabb*t1* 2207 9 t11*t164*t29*t4*t5-8.295189532329142d-6*t1*t11*t114*t161* 2208 : t162*t4*t5 2209 t168 = 1/t3**5 2210 t169 = 1/rhoa**9.333333333333333d+0 2211 t170 = 1/rhoa**6.666666666666667d+0 2212 t171 = 1/rhoa**4 2213 t172 = 1/rhoa**9.666666666666666d+0 2214 t173 = 5.789165510794442d-6*t172*t53*t87+5.228465380768991d- 2215 1 2*t19*t56-1.342271782870781d-3*gammaaa*t54*t55 2216 t174 = 4*t1*t22*t4*t5*t52*t8*t9*t91-6.666666666666666d-1*t1* 2217 1 t21*t23*t4*t8*t9*t91+1.9264558001493193d-2*gammaaa*t1*t19 2218 2 *t20*t23*t8*t9*t91-1.7309850512728328d-4*gammaaa*t1*t22*t 2219 3 23*t54*t8*t9*t90+8.9630835098897d-3*t1*t19*t22*t4*t52*t8* 2220 4 t89*t9-2.5900476322274596d-4*gammaaa*t1*t22*t52*t8*t87*t8 2221 5 8*t9+3.1106960746234286d-6*t1*t11*t172*t53*t8*t87*t9-1.94 2222 6 25357241705948d-4*gammaaa*t1*t170*t23*t8*t87*t9+1.3444625 2223 7 26483455d-2*t1*t19*t37*t4*t52*t58*t8*t9-3.612104625279974 2224 8 d-3*t1*t19*t23*t38*t58*t8*t9+2.809414708551091d-2*t1*t11* 2225 9 t19*t56*t8*t9-7.212437713636803d-4*gammaaa*t1*t11*t54*t55 2226 : *t8*t9+1.5514963568929105d-6*t1*t168*t169*t23*t53*t8*t9+7 2227 ; .224209250559948d-3*t1*t19*t38*t51*t52*t8*t9-4.0333875794 2228 < 50365d-2*t1*t152*t19*t37*t4*t51*t8*t9-t1*t173*t23*t4*t5*t 2229 = 8*t9+1.4938472516482834d-3*t1*t171*t19*t23*t4*t8*t9+1.685 2230 > 6488251306545d-2*t1*t19*t20*t22*t23*t8*t9 2231 t175 = 1.344462526483455d-2*t1*t29*t4*t43*t5*t52*t58*t8+1.49 2232 1 38472516482834d-3*t1*t23*t29*t4*t43*t57*t8-1.942535724170 2233 2 5948d-4*gammaaa*t1*t19*t23*t29*t43*t56*t8+1.5514963568929 2234 3 105d-6*t1*t23*t29*t43*t53*t54*t55*t8+8.9630835098897d-3*t 2235 4 1*t21*t22*t29*t4*t43*t52*t8-2.5900476322274596d-4*gammaaa 2236 5 *t1*t19*t20*t22*t29*t43*t52*t8-4.033387579450365d-2*t1*t1 2237 6 52*t29*t4*t43*t5*t51*t8-3.612104625279974d-3*t1*t23*t29*t 2238 7 4*t42*t5*t58-8.02689916728883d-4*t1*t11*t29*t4*t42*t57+1. 2239 8 0437839859175184d-4*gammaaa*t1*t11*t19*t29*t42*t56-8.3366 2240 9 65479990789d-7*t1*t11*t29*t42*t53*t54*t55+7.2242092505599 2241 : 48d-3*t1*t29*t4*t42*t5*t51*t52-2.408069750186649d-3*t1*t2 2242 ; 1*t22*t23*t29*t4*t42+6.958559906116789d-5*gammaaa*t1*t19* 2243 < t20*t22*t23*t29*t42 2244 t176 = 2*t1*t32*t4*t5*t52*t8*t9*t91-3.333333333333333d-1*t1* 2245 1 t23*t31*t4*t5*t8*t91+9.632279000746596d-3*gammabb*t1*t23* 2246 2 t29*t30*t4*t5*t91-8.654925256364164d-5*gammaaa*t1*t23*t32 2247 3 *t54*t8*t9*t90+2.884975085454722d-5*gammaaa*t1*t11*t31*t5 2248 4 4*t8*t90-8.336665479990789d-7*gammaaa*gammabb*t1*t11*t29* 2249 5 t30*t54*t90+4.48154175494485d-3*t1*t19*t32*t4*t52*t8*t89* 2250 6 t9-1.2950238161137298d-4*gammaaa*t1*t32*t52*t8*t87*t88*t9 2251 7 +7.224209250559948d-3*t1*t19*t22*t32*t38*t52*t8*t9-4.0333 2252 8 87579450365d-2*t1*t152*t19*t22*t32*t37*t4*t8*t9+8.4282441 2253 9 25653273d-3*t1*t19*t20*t23*t32*t8*t9-7.469236258241416d-4 2254 : *t1*t19*t23*t31*t4*t8*t89+2.1583730268562162d-5*gammabb*t 2255 ; 1*t19*t23*t29*t30*t4*t89+2.1583730268562162d-5*gammaaa*t1 2256 < *t23*t31*t8*t87*t88-6.2370153547095d-7*gammaaa*gammabb*t1 2257 = *t23*t29*t30*t87*t88+4.48154175494485d-3*t1*t19*t22*t31*t 2258 > 37*t4*t52*t8-1.2040348750933245d-3*t1*t19*t22*t23*t31*t38 2259 ? *t8-2.8094147085510907d-3*t1*t11*t19*t20*t31*t8-1.2950238 2260 @ 161137298d-4*gammabb*t1*t19*t22*t29*t30*t37*t4*t52+3.4792 2261 1 799530583945d-5*gammabb*t1*t19*t22*t23*t29*t30*t38+8.1183 2262 2 19890469586d-5*gammabb*t1*t11*t19*t20*t29*t30 2263 t177 = 2*t1*t117*t22*t4*t5*t52*t8*t9-3.333333333333333d-1*t1 2264 1 *t117*t21*t23*t4*t8*t9+9.632279000746596d-3*gammaaa*t1*t1 2265 2 17*t19*t20*t23*t8*t9+4.48154175494485d-3*t1*t116*t22*t29* 2266 3 t4*t5*t52*t8+4.48154175494485d-3*t1*t21*t29*t32*t4*t43*t5 2267 4 2*t8-1.2950238161137298d-4*gammaaa*t1*t19*t20*t29*t32*t43 2268 5 *t52*t8-4.033387579450365d-2*t1*t152*t22*t29*t32*t4*t43*t 2269 6 5*t8-7.469236258241416d-4*t1*t116*t21*t23*t29*t4*t8+2.158 2270 7 3730268562162d-5*gammaaa*t1*t116*t19*t20*t23*t29*t8-8.654 2271 8 925256364164d-5*gammabb*t1*t113*t22*t23*t4*t5*t75+2.88497 2272 9 5085454722d-5*gammabb*t1*t11*t113*t21*t4*t75-8.3366654799 2273 : 90789d-7*gammaaa*gammabb*t1*t11*t113*t19*t20*t75+7.224209 2274 ; 250559948d-3*t1*t22*t29*t32*t4*t42*t5*t52-1.2950238161137 2275 < 298d-4*gammabb*t1*t114*t115*t22*t4*t5*t52+8.4282441256532 2276 = 73d-3*t1*t22*t23*t29*t30*t4*t5-1.2040348750933245d-3*t1*t 2277 > 21*t23*t29*t32*t4*t42+3.4792799530583945d-5*gammaaa*t1*t1 2278 ? 9*t20*t23*t29*t32*t42-2.8094147085510907d-3*t1*t11*t21*t2 2279 @ 9*t30*t4+2.1583730268562162d-5*gammabb*t1*t114*t115*t21*t 2280 1 23*t4+8.118319890469586d-5*gammaaa*t1*t11*t19*t20*t29*t30 2281 2 -6.2370153547095d-7*gammaaa*gammabb*t1*t114*t115*t19*t20* 2282 3 t23 2283 t178 = 1.344462526483455d-2*t1*t19*t37*t4*t52*t8*t80*t9-3.61 2284 1 2104625279974d-3*t1*t19*t23*t38*t8*t80*t9+7.2242092505599 2285 2 48d-3*t1*t19*t38*t52*t79*t8*t9-4.033387579450365d-2*t1*t1 2286 3 52*t19*t37*t4*t79*t8*t9+1.4938472516482834d-3*t1*t19*t23* 2287 4 t37*t4*t78*t8-8.02689916728883d-4*t1*t11*t19*t38*t78*t8+8 2288 5 .9630835098897d-3*t1*t19*t31*t32*t37*t4*t52*t8-2.40806975 2289 6 0186649d-3*t1*t19*t23*t31*t32*t38*t8-1.9425357241705948d- 2290 7 4*gammabb*t1*t19*t23*t29*t37*t4*t77+1.0437839859175184d-4 2291 8 *gammabb*t1*t11*t19*t29*t38*t77+1.5514963568929105d-6*t1* 2292 9 t19*t23*t37*t4*t74*t75*t76-8.336665479990789d-7*t1*t11*t1 2293 : 9*t38*t74*t75*t76-2.5900476322274596d-4*gammabb*t1*t19*t2 2294 ; 9*t30*t32*t37*t4*t52+6.958559906116789d-5*gammabb*t1*t19* 2295 < t23*t29*t30*t32*t38 2296 t179 = 1/rhob**9.666666666666666d+0 2297 t180 = 1/t7**5 2298 t181 = 1/rhob**9.333333333333333d+0 2299 t182 = 1/rhob**6.666666666666667d+0 2300 t183 = 1/rhob**4 2301 t184 = 5.228465380768991d-2*t29*t77-1.342271782870781d-3*gam 2302 1 mabb*t75*t76+5.789165510794442d-6*t114*t179*t74 2303 t185 = 4*t1*t117*t32*t4*t5*t52*t8*t9-t1*t184*t23*t4*t5*t8*t9 2304 1 +1.344462526483455d-2*t1*t29*t4*t43*t5*t52*t8*t80-3.61210 2305 2 4625279974d-3*t1*t23*t29*t4*t42*t5*t80-4.033387579450365d 2306 3 -2*t1*t152*t29*t4*t43*t5*t79*t8+8.9630835098897d-3*t1*t11 2307 4 6*t29*t32*t4*t5*t52*t8-6.666666666666666d-1*t1*t117*t23*t 2308 5 31*t4*t5*t8+1.4938472516482834d-3*t1*t183*t23*t29*t4*t5*t 2309 6 8+7.224209250559948d-3*t1*t29*t4*t42*t5*t52*t79+2.8094147 2310 7 08551091d-2*t1*t11*t29*t4*t5*t77-7.212437713636803d-4*gam 2311 8 mabb*t1*t11*t4*t5*t75*t76-1.7309850512728328d-4*gammabb*t 2312 9 1*t113*t23*t32*t4*t5*t75+1.5514963568929105d-6*t1*t180*t1 2313 : 81*t23*t4*t5*t74+3.1106960746234286d-6*t1*t11*t114*t179*t 2314 ; 4*t5*t74-2.5900476322274596d-4*gammabb*t1*t114*t115*t32*t 2315 < 4*t5*t52+1.6856488251306545d-2*t1*t23*t29*t30*t32*t4*t5+1 2316 = .9264558001493193d-2*gammabb*t1*t117*t23*t29*t30*t4*t5-1. 2317 > 9425357241705948d-4*gammabb*t1*t114*t182*t23*t4*t5 2318 t186 = 1/t3**6 2319 t187 = 1/rhoa**8.333333333333334d+0 2320 t188 = 1/rhoa**8.666666666666666d+0 2321 t189 = 3.0201115114592575d-4*t54*t90-2.1709370665479152d-6*g 2322 1 ammaaa*t188*t87 2323 t190 = 2.68892505296691d-2*t1*t19*t37*t4*t52*t8*t9*t91-7.224 2324 1 209250559948d-3*t1*t19*t23*t38*t8*t9*t91+1.62279848556828 2325 2 1d-4*t1*t11*t54*t8*t9*t90+1.1331458390995136d-4*t1*t23*t8 2326 3 *t87*t88*t9+2.0134076743061718d-5*t1*t23*t4*t54*t8*t88*t9 2327 4 -2.711369227677412d-4*t1*t152*t22*t4*t56*t8*t87*t9+3.0126 2328 5 32475197125d-5*t1*t156*t4*t52*t8*t87*t9+9.712678620852974 2329 6 d-5*t1*t125*t22*t52*t8*t87*t9-1.1665110279837858d-6*gamma 2330 7 aa*t1*t11*t188*t8*t87*t9-1.2080446045837032d-4*t1*t125*t2 2331 8 2*t4*t52*t54*t8*t9+3.245596971136562d-5*t1*t126*t22*t23*t 2332 9 54*t8*t9-8.705554958342553d-7*gammaaa*t1*t155*t186*t52*t8 2333 : *t9-t1*t189*t23*t4*t5*t8*t9-1.7454334015045245d-6*gammaaa 2334 ; *t1*t168*t187*t23*t8*t9 2335 t191 = 1.344462526483455d-2*t1*t29*t4*t43*t5*t52*t8*t91-3.61 2336 1 2104625279974d-3*t1*t23*t29*t4*t42*t5*t91-5.8181113383484 2337 2 14d-7*gammaaa*t1*t23*t29*t43*t54*t8*t90+3.126249554996546 2338 3 d-7*gammaaa*t1*t11*t29*t42*t54*t90+3.012632475197125d-5*t 2339 4 1*t19*t29*t4*t43*t52*t8*t89-8.093898850710812d-6*t1*t19*t 2340 5 23*t29*t4*t42*t89-8.705554958342553d-7*gammaaa*t1*t29*t43 2341 6 *t52*t8*t87*t88+2.338880758016063d-7*gammaaa*t1*t23*t29*t 2342 7 42*t87*t88+4.856339310426487d-5*t1*t19*t22*t29*t38*t43*t5 2343 8 2*t8-2.711369227677412d-4*t1*t152*t19*t22*t29*t37*t4*t43* 2344 9 t8+5.665729195497569d-5*t1*t19*t20*t23*t29*t43*t8+4.85633 2345 : 9310426487d-5*t1*t19*t22*t29*t37*t4*t42*t52-1.30472998239 2346 ; 6898d-5*t1*t19*t22*t23*t29*t38*t42-3.0443699589260953d-5* 2347 < t1*t11*t19*t20*t29*t42 2348 t192 = 3.012632475197125d-5*t1*t114*t21*t4*t52*t77*t8-8.7055 2349 1 54958342553d-7*gammaaa*t1*t114*t19*t20*t52*t77*t8-2.71136 2350 2 9227677412d-4*t1*t114*t152*t22*t4*t5*t77*t8-1.20804460458 2351 3 37032d-4*t1*t141*t22*t4*t5*t52*t75*t8+2.0134076743061718d 2352 4 -5*t1*t141*t21*t23*t4*t75*t8-5.818111338348415d-7*gammaaa 2353 5 *t1*t141*t19*t20*t23*t75*t8+3.245596971136562d-5*t1*t140* 2354 6 t22*t23*t4*t5*t75-1.0818656570455205d-5*t1*t11*t140*t21*t 2355 7 4*t75+3.1262495549965463d-7*gammaaa*t1*t11*t140*t19*t20*t 2356 8 75+9.712678620852974d-5*t1*t114*t141*t22*t4*t5*t52-1.6187 2357 9 797701421625d-5*t1*t114*t141*t21*t23*t4+4.677761516032126 2358 : d-7*gammaaa*t1*t114*t141*t19*t20*t23 2359 t193 = -2.711369227677412d-4*t1*t152*t32*t4*t56*t8*t87*t9+9. 2360 1 712678620852974d-5*t1*t125*t32*t52*t8*t87*t9-1.2080446045 2361 2 837032d-4*t1*t125*t32*t4*t52*t54*t8*t9+3.245596971136562d 2362 3 -5*t1*t126*t23*t32*t54*t8*t9+3.012632475197125d-5*t1*t31* 2363 4 t4*t52*t56*t8*t87-1.6187797701421625d-5*t1*t125*t23*t31*t 2364 5 8*t87-8.705554958342553d-7*gammabb*t1*t29*t30*t4*t52*t56* 2365 6 t87+4.677761516032126d-7*gammabb*t1*t125*t23*t29*t30*t87+ 2366 7 2.0134076743061718d-5*t1*t125*t23*t31*t4*t54*t8-1.0818656 2367 8 570455205d-5*t1*t11*t126*t31*t54*t8-5.818111338348415d-7* 2368 9 gammabb*t1*t125*t23*t29*t30*t4*t54+3.1262495549965463d-7* 2369 : gammabb*t1*t11*t126*t29*t30*t54 2370 t194 = 1.344462526483455d-2*t1*t117*t19*t37*t4*t52*t8*t9-3.6 2371 1 12104625279974d-3*t1*t117*t19*t23*t38*t8*t9+4.85633931042 2372 2 6487d-5*t1*t19*t29*t32*t38*t43*t52*t8+3.012632475197125d- 2373 3 5*t1*t116*t19*t29*t37*t4*t52*t8-2.711369227677412d-4*t1*t 2374 4 152*t19*t29*t32*t37*t4*t43*t8-8.093898850710812d-6*t1*t11 2375 5 6*t19*t23*t29*t38*t8-5.818111338348415d-7*gammabb*t1*t113 2376 6 *t19*t23*t37*t4*t75+3.1262495549965463d-7*gammabb*t1*t11* 2377 7 t113*t19*t38*t75+4.856339310426487d-5*t1*t19*t29*t32*t37* 2378 8 t4*t42*t52-8.705554958342553d-7*gammabb*t1*t114*t115*t19* 2379 9 t37*t4*t52-1.304729982396898d-5*t1*t19*t23*t29*t32*t38*t4 2380 : 2+5.665729195497569d-5*t1*t19*t23*t29*t30*t37*t4-3.044369 2381 ; 9589260953d-5*t1*t11*t19*t29*t30*t38+2.338880758016063d-7 2382 < *gammabb*t1*t114*t115*t19*t23*t38 2383 t195 = 1/rhob**8.666666666666666d+0 2384 t196 = 1/rhob**8.333333333333334d+0 2385 t197 = 1/t7**6 2386 t198 = 3.0201115114592575d-4*t113*t75-2.1709370665479152d-6* 2387 1 gammabb*t114*t195 2388 t199 = -t1*t198*t23*t4*t5*t8*t9-2.711369227677412d-4*t1*t114 2389 1 *t152*t32*t4*t5*t77*t8-1.2080446045837032d-4*t1*t141*t32* 2390 2 t4*t5*t52*t75*t8+2.0134076743061718d-5*t1*t115*t23*t4*t5* 2391 3 t75*t8+2.68892505296691d-2*t1*t117*t29*t4*t43*t5*t52*t8+3 2392 4 .012632475197125d-5*t1*t114*t164*t4*t5*t52*t8+3.245596971 2393 5 136562d-5*t1*t140*t23*t32*t4*t5*t75+1.622798485568281d-4* 2394 6 t1*t11*t113*t4*t5*t75+9.712678620852974d-5*t1*t114*t141*t 2395 7 32*t4*t5*t52-8.705554958342553d-7*gammabb*t1*t163*t197*t4 2396 8 *t5*t52-7.224209250559948d-3*t1*t117*t23*t29*t4*t42*t5-1. 2397 9 7454334015045245d-6*gammabb*t1*t180*t196*t23*t4*t5+1.1331 2398 : 458390995136d-4*t1*t114*t115*t23*t4*t5-1.1665110279837858 2399 ; d-6*gammabb*t1*t11*t114*t195*t4*t5 2400 t200 = 1/rhoa**7.333333333333333d+0 2401 t201 = 1/rhoa**7.666666666666667d+0 2402 t202 = -8.141013999554685d-7*t1*t200*t23*t4*t8*t87*t9+4.3744 2403 1 16354939197d-7*t1*t11*t201*t8*t87*t9-2.436256051774968d-6 2404 2 *t1*t168*t4*t52*t55*t8*t9+9.79374932813537d-7*t1*t186*t52 2405 3 *t55*t8*t9-1.8226671610363337d-6*t1*t152*t170*t186*t4*t8* 2406 4 t9+1.3090750511283933d-6*t1*t168*t200*t23*t8*t9 2407 t203 = -1.8226671610363337d-6*t1*t152*t29*t4*t43*t56*t8*t87+ 2408 1 6.529166218756914d-7*t1*t125*t29*t43*t52*t8*t87+3.2645831 2409 2 09378457d-7*t1*t29*t4*t42*t52*t56*t87-1.7541605685120473d 2410 3 -7*t1*t125*t23*t29*t42*t87-8.12085350591656d-7*t1*t125*t2 2411 4 9*t4*t43*t52*t54*t8+2.1817917518806554d-7*t1*t126*t23*t29 2412 5 *t43*t54*t8+2.1817917518806554d-7*t1*t125*t23*t29*t4*t42* 2413 6 t54-1.1723435831237047d-7*t1*t11*t126*t29*t42*t54 2414 t204 = 3.264583109378457d-7*t1*t114*t19*t38*t52*t77*t8-1.822 2415 1 6671610363337d-6*t1*t114*t152*t19*t37*t4*t77*t8-8.1208535 2416 2 0591656d-7*t1*t141*t19*t37*t4*t52*t75*t8+2.18179175188065 2417 3 54d-7*t1*t141*t19*t23*t38*t75*t8+2.1817917518806554d-7*t1 2418 4 *t140*t19*t23*t37*t4*t75-1.1723435831237049d-7*t1*t11*t14 2419 5 0*t19*t38*t75+6.529166218756914d-7*t1*t114*t141*t19*t37*t 2420 6 4*t52-1.7541605685120473d-7*t1*t114*t141*t19*t23*t38 2421 t205 = 1/rhob**7.666666666666667d+0 2422 t206 = 1/rhob**7.333333333333333d+0 2423 t207 = -2.436256051774968d-6*t1*t180*t4*t5*t52*t76*t8-8.1410 2424 1 13999554685d-7*t1*t114*t206*t23*t4*t5*t8-1.82266716103633 2425 2 37d-6*t1*t152*t182*t197*t4*t5*t8+9.79374932813537d-7*t1*t 2426 3 197*t4*t5*t52*t76+1.3090750511283933d-6*t1*t180*t206*t23* 2427 4 t4*t5+4.374416354939197d-7*t1*t11*t114*t205*t4*t5 2428 fnc(iq) = fnc(iq)-8.336168033553906d-2*rhoa*rhob*t14*t16*t17 2429 1 *wght 2430 Amat(iq,D1_RA) = 8.336168033553906d-2*rhoa*rhob*t14*t17*t25* 2431 1 t26*wght+1.6672336067107812d-1*rhoa*rhob*t16*t17*t18*t24* 2432 2 wght+t14*t16*t28+Amat(iq,D1_RA) 2433 Amat(iq,D1_RB) = 8.336168033553906d-2*rhoa*rhob*t14*t17*t25* 2434 1 t34*wght+1.6672336067107812d-1*rhoa*rhob*t16*t17*t18*t33* 2435 2 wght+t14*t16*t36+Amat(iq,D1_RB) 2436 Cmat(iq,D1_GAA) = 8.336168033553906d-2*rhoa*rhob*t14*t17*t25 2437 1 *t41*wght+1.6672336067107812d-1*rhoa*rhob*t16*t17*t18*t40 2438 2 *wght-8.336168033553906d-2*rhoa*rhob*t14*t16*t39*wght+Cma 2439 3 t(iq,D1_GAA) 2440 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 2441 Cmat(iq,D1_GBB) = 8.336168033553906d-2*rhoa*rhob*t14*t17*t25 2442 1 *t46*wght+1.6672336067107812d-1*rhoa*rhob*t16*t17*t18*t45 2443 2 *wght-8.336168033553906d-2*rhoa*rhob*t14*t16*t44*wght+Cma 2444 3 t(iq,D1_GBB) 2445 Amat2(iq,D2_RA_RA) = -5.001700820132344d-1*rhoa*rhob*t16*t17 2446 1 *t49*t50*wght-1.6672336067107812d-1*rhoa*rhob*t14*t17*t47 2447 2 *t48*wght-3.3344672134215625d-1*rhoa*rhob*t17*t18*t24*t25 2448 3 *t26*wght+t14*t25*t64+t16*t18*t62+t14*t16*t60+Amat2(iq,D2 2449 4 _RA_RA) 2450 Amat2(iq,D2_RA_RB) = -5.001700820132344d-1*rhoa*rhob*t16*t17 2451 1 *t24*t33*t49*wght-1.6672336067107812d-1*rhoa*rhob*t14*t17 2452 2 *t26*t34*t47*wght+t14*t25*t71+t16*t18*t69+t18*t25*t67+t14 2453 3 *t16*t66+Amat2(iq,D2_RA_RB) 2454 Amat2(iq,D2_RB_RB) = -5.001700820132344d-1*rhoa*rhob*t16*t17 2455 1 *t49*t73*wght-1.6672336067107812d-1*rhoa*rhob*t14*t17*t47 2456 2 *t72*wght-3.3344672134215625d-1*rhoa*rhob*t17*t18*t25*t33 2457 3 *t34*wght+t14*t25*t86+t16*t18*t84+t14*t16*t82+Amat2(iq,D2 2458 4 _RB_RB) 2459 Cmat2(iq,D2_RA_GAA) = -5.001700820132344d-1*rhoa*rhob*t16*t1 2460 1 7*t24*t40*t49*wght-1.6672336067107812d-1*rhoa*rhob*t14*t1 2461 2 7*t26*t41*t47*wght+t14*t25*t98+t16*t18*t96+t18*t25*t94+t1 2462 3 4*t16*t93+Cmat2(iq,D2_RA_GAA) 2463 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 2464 Cmat2(iq,D2_RA_GBB) = -5.001700820132344d-1*rhoa*rhob*t16*t1 2465 1 7*t24*t45*t49*wght-1.6672336067107812d-1*rhoa*rhob*t14*t1 2466 2 7*t26*t46*t47*wght+t101*t18*t25+t105*t14*t25+t103*t16*t18 2467 3 +t100*t14*t16+Cmat2(iq,D2_RA_GBB) 2468 Cmat2(iq,D2_RB_GAA) = -5.001700820132344d-1*rhoa*rhob*t16*t1 2469 1 7*t33*t40*t49*wght-1.6672336067107812d-1*rhoa*rhob*t14*t1 2470 2 7*t34*t41*t47*wght+t108*t18*t25+t112*t14*t25+t110*t16*t18 2471 3 +t107*t14*t16+Cmat2(iq,D2_RB_GAA) 2472 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 2473 Cmat2(iq,D2_RB_GBB) = -5.001700820132344d-1*rhoa*rhob*t16*t1 2474 1 7*t33*t45*t49*wght-1.6672336067107812d-1*rhoa*rhob*t14*t1 2475 2 7*t34*t46*t47*wght+t120*t18*t25+t124*t14*t25+t122*t16*t18 2476 3 +t119*t14*t16+Cmat2(iq,D2_RB_GBB) 2477 Cmat2(iq,D2_GAA_GAA) = -5.001700820132344d-1*rhoa*rhob*t129* 2478 1 t16*t17*t49*wght-1.6672336067107812d-1*rhoa*rhob*t128*t14 2479 2 *t17*t47*wght-3.3344672134215625d-1*rhoa*rhob*t17*t18*t25 2480 3 *t40*t41*wght-8.336168033553906d-2*rhoa*rhob*t127*t14*t16 2481 4 *wght+t133*t14*t25+t131*t16*t18+Cmat2(iq,D2_GAA_GAA) 2482 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 2483 Cmat2(iq,D2_GAA_GBB) = -5.001700820132344d-1*rhoa*rhob*t16*t 2484 1 17*t40*t45*t49*wght-1.6672336067107812d-1*rhoa*rhob*t14*t 2485 2 17*t41*t46*t47*wght-8.336168033553906d-2*rhoa*rhob*t134*t 2486 3 14*t16*wght+t139*t18*t25+t138*t14*t25+t136*t16*t18+Cmat2( 2487 4 iq,D2_GAA_GBB) 2488 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 2489 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 2490 Cmat2(iq,D2_GBB_GBB) = -5.001700820132344d-1*rhoa*rhob*t144* 2491 1 t16*t17*t49*wght-1.6672336067107812d-1*rhoa*rhob*t14*t143 2492 2 *t17*t47*wght-3.3344672134215625d-1*rhoa*rhob*t17*t18*t25 2493 3 *t45*t46*wght-8.336168033553906d-2*rhoa*rhob*t14*t142*t16 2494 4 *wght+t14*t148*t25+t146*t16*t18+Cmat2(iq,D2_GBB_GBB) 2495 Amat3(iq,D3_RA_RA_RA) = t14*t25*(8.336168033553906d-2*rhoa*r 2496 1 hob*t17*(-3.2419488676002184d-5*t1*t11*t153*t154*t8*t87*t 2497 2 9-4.7983677678995934d+1*t1*t22*t23*t4*t5*t61*t8*t9+1.5994 2498 3 559226331975d+1*t1*t11*t21*t4*t61*t8*t9-4.621921708859857 2499 4 d-1*gammaaa*t1*t11*t19*t20*t61*t8*t9+2.3449365598931193d+ 2500 5 1*t1*t22*t4*t5*t52*t58*t8*t9-2.3991838839497967d+1*t1*t23 2501 6 *t24*t4*t5*t58*t8*t9-3.908227599821865d+0*t1*t21*t23*t4*t 2502 7 58*t8*t9+1.1293541591970727d-1*gammaaa*t1*t19*t20*t23*t58 2503 8 *t8*t9-5.331519742110659d+0*t1*t11*t24*t4*t57*t8*t9+2.605 2504 9 48506654791d+0*t1*t22*t23*t4*t57*t8*t9+6.932882563289786d 2505 : -1*gammaaa*t1*t11*t19*t24*t56*t8*t9-3.388062477591218d-1* 2506 ; gammaaa*t1*t19*t22*t23*t56*t8*t9-5.537268584495724d-3*t1* 2507 < t11*t24*t53*t54*t55*t8*t9+2.706033420905421d-3*t1*t22*t23 2508 = *t53*t54*t55*t8*t9+9.02011140301807d-3*t1*t11*t155*t53*t5 2509 > 4*t8*t9+4.7983677678995934d+1*t1*t24*t4*t5*t51*t52*t8*t9+ 2510 ? 7.81645519964373d+0*t1*t21*t4*t51*t52*t8*t9-2.25870831839 2511 @ 41453d-1*gammaaa*t1*t19*t20*t51*t52*t8*t9-3.9082275998218 2512 1 66d+0*t1*t157*t23*t4*t5*t8*t9+2.3991838839497967d+1*t1*t1 2513 2 1*t158*t4*t5*t8*t9-2.3449365598931193d+1*t1*t151*t152*t4* 2514 3 t5*t8*t9-1.5994559226331975d+1*t1*t21*t22*t23*t24*t4*t8*t 2515 4 9+1.4474917036377277d+0*t1*t11*t2*t4*t8*t9+4.621921708859 2516 5 857d-1*gammaaa*t1*t19*t20*t22*t23*t24*t8*t9-4.81021215954 2517 6 30875d-1*gammaaa*t1*t11*t156*t19*t8*t9)*wght+1.6672336067 2518 7 107812d-1*rhoa*rhob*t27*t63*wght+1.6672336067107812d-1*rh 2519 8 ob*t17*t63*wght+8.336168033553906d-2*rhoa*rhob*t26*t59*wg 2520 9 ht+1.6672336067107812d-1*rhob*t26*t27*wght-t28*t63-2*t26* 2521 : t60)+t14*t16*(-8.336168033553906d-2*rhoa*rhob*(-4.3710572 2522 ; 55553858d-5*t1*t11*t153*t154*t8*t87*t9+3.161632827207898d 2523 < +1*t1*t22*t4*t5*t52*t58*t8*t9-5.269388045346496d+0*t1*t21 2524 = *t23*t4*t58*t8*t9+1.5226864744792862d-1*gammaaa*t1*t19*t2 2525 > 0*t23*t58*t8*t9+3.5129253635643304d+0*t1*t22*t23*t4*t57*t 2526 ? 8*t9-4.5680594234378585d-1*gammaaa*t1*t19*t22*t23*t56*t8* 2527 @ t9+3.648492774340223d-3*t1*t22*t23*t53*t54*t55*t8*t9+1.21 2528 1 61642581134074d-2*t1*t11*t155*t53*t54*t8*t9+1.05387760906 2529 2 92992d+1*t1*t21*t4*t51*t52*t8*t9-3.0453729489585724d-1*ga 2530 3 mmaaa*t1*t19*t20*t51*t52*t8*t9-5.269388045346497d+0*t1*t1 2531 4 57*t23*t4*t5*t8*t9-3.161632827207898d+1*t1*t151*t152*t4*t 2532 5 5*t8*t9+1.9516252019801836d+0*t1*t11*t2*t4*t8*t9-6.485516 2533 6 465374737d-1*gammaaa*t1*t11*t156*t19*t8*t9)*wght-2.500850 2534 7 410066172d-1*rhob*t59*wght)+t14*t47*(-3.3344672134215625d 2535 8 -1*rhoa*rhob*t17*t26*t63*wght-1.6672336067107812d-1*rhoa* 2536 9 rhob*t27*t48*wght-1.6672336067107812d-1*rhob*t17*t48*wght 2537 : -2*t26*t64)+t18*t25*(-3.3344672134215625d-1*rhoa*rhob*t17 2538 ; *t24*t63*wght-3.3344672134215625d-1*rhoa*rhob*t17*t26*t61 2539 < *wght-3.3344672134215625d-1*rhoa*rhob*t24*t26*t27*wght-3. 2540 = 3344672134215625d-1*rhob*t17*t24*t26*wght-2.0d+0*t24*t64- 2541 > t26*t62)+t16*t18*(3.3344672134215625d-1*rhoa*rhob*t27*t61 2542 ? *wght+3.3344672134215625d-1*rhob*t17*t61*wght+1.667233606 2543 @ 7107812d-1*rhoa*rhob*t24*t59*wght+3.3344672134215625d-1*r 2544 1 hob*t24*t27*wght+1.6672336067107812d-1*rhoa*rhob*t158*t17 2545 2 *wght-2.0d+0*t28*t61-4.0d+0*t24*t60)+t16*t49*(-1.00034016 2546 3 40264689d+0*rhoa*rhob*t17*t24*t61*wght-5.001700820132344d 2547 4 -1*rhoa*rhob*t27*t50*wght-5.001700820132344d-1*rhob*t17*t 2548 5 50*wght-3.0d+0*t24*t62)+1.5005102460397032d+0*rhoa*rhob*t 2549 6 17*t25*t26*t49*t50*wght+1.0003401640264689d+0*rhoa*rhob*t 2550 7 17*t18*t24*t47*t48*wght+5.001700820132344d-1*rhoa*rhob*t1 2551 8 4*t149*t17*t26**3*wght+2.0006803280529378d+0*rhoa*rhob*t1 2552 9 50*t16*t17*t24**3*wght+Amat3(iq,D3_RA_RA_RA) 2553 Amat3(iq,D3_RA_RA_RB) = t14*t25*(8.336168033553906d-2*rhoa*r 2554 1 hob*t17*(-2.3991838839497967d+1*t1*t22*t23*t4*t5*t68*t8*t 2555 2 9+7.997279613165988d+0*t1*t11*t21*t4*t68*t8*t9-2.31096085 2556 3 44299284d-1*gammaaa*t1*t11*t19*t20*t68*t8*t9-2.3991838839 2557 4 497967d+1*t1*t23*t32*t4*t5*t61*t8*t9+7.816455199643731d+0 2558 5 *t1*t32*t4*t5*t52*t58*t8*t9+8.684950221826366d-1*t1*t23*t 2559 6 32*t4*t57*t8*t9-1.1293541591970728d-1*gammaaa*t1*t19*t23* 2560 7 t32*t56*t8*t9+9.02011140301807d-4*t1*t23*t32*t53*t54*t55* 2561 8 t8*t9+4.7983677678995934d+1*t1*t22*t24*t32*t4*t5*t52*t8*t 2562 9 9+5.21097013309582d+0*t1*t21*t22*t32*t4*t52*t8*t9-1.50580 2563 : 5545596097d-1*gammaaa*t1*t19*t20*t22*t32*t52*t8*t9-2.3449 2564 ; 365598931193d+1*t1*t152*t32*t4*t5*t51*t8*t9+2.39918388394 2565 < 97967d+1*t1*t11*t159*t4*t5*t8*t9-7.997279613165988d+0*t1* 2566 = t21*t23*t24*t32*t4*t8*t9+2.3109608544299284d-1*gammaaa*t1 2567 > *t19*t20*t23*t24*t32*t8*t9+7.997279613165988d+0*t1*t11*t3 2568 ? 1*t4*t5*t61*t8-1.302742533273955d+0*t1*t23*t31*t4*t5*t58* 2569 @ t8-2.8949834072754554d-1*t1*t11*t31*t4*t57*t8+3.764513863 2570 1 9902426d-2*gammaaa*t1*t11*t19*t31*t56*t8-3.00670380100602 2571 2 3d-4*t1*t11*t31*t53*t54*t55*t8+2.60548506654791d+0*t1*t31 2572 3 *t4*t5*t51*t52*t8-7.997279613165988d+0*t1*t22*t23*t24*t31 2573 4 *t4*t5*t8+2.6657598710553293d+0*t1*t11*t21*t24*t31*t4*t8- 2574 5 8.684950221826366d-1*t1*t21*t22*t23*t31*t4*t8-7.703202848 2575 6 09976d-2*gammaaa*t1*t11*t19*t20*t24*t31*t8+2.509675909326 2576 7 8284d-2*gammaaa*t1*t19*t20*t22*t23*t31*t8-2.3109608544299 2577 8 284d-1*gammabb*t1*t11*t29*t30*t4*t5*t61+3.764513863990242 2578 9 6d-2*gammabb*t1*t23*t29*t30*t4*t5*t58+8.36558636442276d-3 2579 : *gammabb*t1*t11*t29*t30*t4*t57-1.0878254352039793d-3*gamm 2580 ; aaa*gammabb*t1*t11*t19*t29*t30*t56+8.688422965168586d-6*g 2581 < ammabb*t1*t11*t29*t30*t53*t54*t55-7.529027727980485d-2*ga 2582 = mmabb*t1*t29*t30*t4*t5*t51*t52+2.3109608544299284d-1*gamm 2583 > abb*t1*t22*t23*t24*t29*t30*t4*t5-7.70320284809976d-2*gamm 2584 ? abb*t1*t11*t21*t24*t29*t30*t4+2.5096759093268284d-2*gamma 2585 @ bb*t1*t21*t22*t23*t29*t30*t4+2.2259819709672812d-3*gammaa 2586 1 a*gammabb*t1*t11*t19*t20*t24*t29*t30-7.252169568026529d-4 2587 2 *gammaaa*gammabb*t1*t19*t20*t22*t23*t29*t30)*wght+8.33616 2588 3 8033553906d-2*rhoa*rhob*t27*t70*wght+8.336168033553906d-2 2589 4 *rhob*t17*t70*wght+8.336168033553906d-2*rhoa*rhob*t26*t65 2590 5 *wght+8.336168033553906d-2*rhoa*rhob*t35*t63*wght+8.33616 2591 6 8033553906d-2*rhoa*t17*t63*wght+8.336168033553906d-2*rhob 2592 7 *t26*t35*wght+8.336168033553906d-2*rhoa*t26*t27*wght+8.33 2593 8 6168033553906d-2*t17*t26*wght-t28*t70-t26*t66-t34*t60)+t1 2594 9 4*t16*(-8.336168033553906d-2*rhoa*rhob*(1.053877609069299 2595 : 3d+1*t1*t32*t4*t5*t52*t58*t8*t9+1.17097512118811d+0*t1*t2 2596 ; 3*t32*t4*t57*t8*t9-1.5226864744792862d-1*gammaaa*t1*t19*t 2597 < 23*t32*t56*t8*t9+1.2161642581134076d-3*t1*t23*t32*t53*t54 2598 = *t55*t8*t9+7.025850727128662d+0*t1*t21*t22*t32*t4*t52*t8* 2599 > t9-2.0302486326390484d-1*gammaaa*t1*t19*t20*t22*t32*t52*t 2600 ? 8*t9-3.161632827207898d+1*t1*t152*t32*t4*t5*t51*t8*t9-1.7 2601 @ 564626817821655d+0*t1*t23*t31*t4*t5*t58*t8-3.903250403960 2602 1 3666d-1*t1*t11*t31*t4*t57*t8+5.07562158159762d-2*gammaaa* 2603 2 t1*t11*t19*t31*t56*t8-4.053880860378026d-4*t1*t11*t31*t53 2604 3 *t54*t55*t8+3.512925363564331d+0*t1*t31*t4*t5*t51*t52*t8- 2605 4 1.17097512118811d+0*t1*t21*t22*t23*t31*t4*t8+3.3837477210 2606 5 650807d-2*gammaaa*t1*t19*t20*t22*t23*t31*t8+5.07562158159 2607 6 7621d-2*gammabb*t1*t23*t29*t30*t4*t5*t58+1.12791590702169 2608 7 33d-2*gammabb*t1*t11*t29*t30*t4*t57-1.4666940952847696d-3 2609 8 *gammaaa*gammabb*t1*t11*t19*t29*t30*t56+1.171443344488434 2610 9 d-5*gammabb*t1*t11*t29*t30*t53*t54*t55-1.0151243163195242 2611 : d-1*gammabb*t1*t29*t30*t4*t5*t51*t52+3.3837477210650807d- 2612 ; 2*gammabb*t1*t21*t22*t23*t29*t30*t4-9.777960635231797d-4* 2613 < gammaaa*gammabb*t1*t19*t20*t22*t23*t29*t30)*wght-1.667233 2614 = 6067107812d-1*rhob*t65*wght-8.336168033553906d-2*rhoa*t59 2615 > *wght-1.6672336067107812d-1*t27*wght)+t14*t47*(-3.3344672 2616 ? 134215625d-1*rhoa*rhob*t17*t26*t70*wght-1.667233606710781 2617 @ 2d-1*rhoa*rhob*t35*t48*wght-1.6672336067107812d-1*rhoa*t1 2618 1 7*t48*wght-2*t34*t64)+t18*t25*(-3.3344672134215625d-1*rho 2619 2 a*rhob*t17*t24*t70*wght-3.3344672134215625d-1*rhoa*rhob*t 2620 3 17*t26*t68*wght-3.3344672134215625d-1*rhoa*rhob*t24*t26*t 2621 4 35*wght-3.3344672134215625d-1*rhoa*t17*t24*t26*wght-2.0d+ 2622 5 0*t33*t64-t34*t62)+t16*t18*(1.6672336067107812d-1*rhoa*rh 2623 6 ob*t27*t68*wght+1.6672336067107812d-1*rhob*t17*t68*wght+1 2624 7 .6672336067107812d-1*rhoa*rhob*t24*t65*wght+1.66723360671 2625 8 07812d-1*rhoa*rhob*t35*t61*wght+1.6672336067107812d-1*rho 2626 9 a*t17*t61*wght+1.6672336067107812d-1*rhob*t24*t35*wght+1. 2627 : 6672336067107812d-1*rhoa*t24*t27*wght+1.6672336067107812d 2628 ; -1*t17*t24*wght+1.6672336067107812d-1*rhoa*rhob*t159*t17* 2629 < wght-2.0d+0*t28*t68-2.0d+0*t24*t66-2.0d+0*t33*t60)+t16*t4 2630 = 9*(-1.0003401640264689d+0*rhoa*rhob*t17*t24*t68*wght-5.00 2631 > 1700820132344d-1*rhoa*rhob*t35*t50*wght-5.001700820132344 2632 ? d-1*rhoa*t17*t50*wght-3.0d+0*t33*t62)+t25*t49*(5.00170082 2633 @ 0132344d-1*rhoa*rhob*t17*t34*t50*wght+1.0003401640264689d 2634 1 +0*rhoa*rhob*t17*t24*t26*t33*wght)+t18*t47*(3.33446721342 2635 2 15625d-1*rhoa*rhob*t17*t33*t48*wght+6.668934426843125d-1* 2636 3 rhoa*rhob*t17*t24*t26*t34*wght)+2.0006803280529378d+0*rho 2637 4 a*rhob*t150*t16*t17*t33*t50*wght+5.001700820132344d-1*rho 2638 5 a*rhob*t14*t149*t17*t34*t48*wght+Amat3(iq,D3_RA_RA_RB) 2639 Amat3(iq,D3_RA_RB_RB) = t14*t16*(-8.336168033553906d-2*rhoa* 2640 1 rhob*(1.0538776090692993d+1*t1*t22*t4*t5*t52*t8*t80*t9-1. 2641 2 7564626817821655d+0*t1*t21*t23*t4*t8*t80*t9+5.07562158159 2642 3 7621d-2*gammaaa*t1*t19*t20*t23*t8*t80*t9+3.51292536356433 2643 4 1d+0*t1*t21*t4*t52*t79*t8*t9-1.0151243163195242d-1*gammaa 2644 5 a*t1*t19*t20*t52*t79*t8*t9-3.161632827207898d+1*t1*t152*t 2645 6 22*t4*t5*t79*t8*t9+1.17097512118811d+0*t1*t22*t23*t4*t5*t 2646 7 78*t8-3.9032504039603666d-1*t1*t11*t21*t4*t78*t8+1.127915 2647 8 9070216935d-2*gammaaa*t1*t11*t19*t20*t78*t8+7.02585072712 2648 9 8662d+0*t1*t22*t31*t32*t4*t5*t52*t8-1.17097512118811d+0*t 2649 : 1*t21*t23*t31*t32*t4*t8+3.3837477210650807d-2*gammaaa*t1* 2650 ; t19*t20*t23*t31*t32*t8-1.5226864744792862d-1*gammabb*t1*t 2651 < 22*t23*t29*t4*t5*t77+5.075621581597621d-2*gammabb*t1*t11* 2652 = t21*t29*t4*t77-1.4666940952847698d-3*gammaaa*gammabb*t1*t 2653 > 11*t19*t20*t29*t77+1.2161642581134076d-3*t1*t22*t23*t4*t5 2654 ? *t74*t75*t76-4.053880860378026d-4*t1*t11*t21*t4*t74*t75*t 2655 @ 76+1.171443344488434d-5*gammaaa*t1*t11*t19*t20*t74*t75*t7 2656 1 6-2.0302486326390484d-1*gammabb*t1*t22*t29*t30*t32*t4*t5* 2657 2 t52+3.3837477210650807d-2*gammabb*t1*t21*t23*t29*t30*t32* 2658 3 t4-9.777960635231797d-4*gammaaa*gammabb*t1*t19*t20*t23*t2 2659 4 9*t30*t32)*wght-8.336168033553906d-2*rhob*t81*wght-1.6672 2660 5 336067107812d-1*rhoa*t65*wght-1.6672336067107812d-1*t35*w 2661 6 ght)+t14*t25*(8.336168033553906d-2*rhoa*rhob*t17*(7.81645 2662 7 5199643731d+0*t1*t22*t4*t5*t52*t8*t80*t9-2.39918388394979 2663 8 67d+1*t1*t23*t24*t4*t5*t8*t80*t9-1.302742533273955d+0*t1* 2664 9 t21*t23*t4*t8*t80*t9+3.7645138639902426d-2*gammaaa*t1*t19 2665 : *t20*t23*t8*t80*t9+4.7983677678995934d+1*t1*t24*t4*t5*t52 2666 ; *t79*t8*t9+2.60548506654791d+0*t1*t21*t4*t52*t79*t8*t9-7. 2667 < 529027727980485d-2*gammaaa*t1*t19*t20*t52*t79*t8*t9-2.344 2668 = 9365598931193d+1*t1*t152*t22*t4*t5*t79*t8*t9-4.7983677678 2669 > 995934d+1*t1*t23*t32*t4*t5*t68*t8*t9+2.3991838839497967d+ 2670 ? 1*t1*t11*t160*t4*t5*t8*t9-5.331519742110659d+0*t1*t11*t24 2671 @ *t4*t5*t78*t8+8.684950221826366d-1*t1*t22*t23*t4*t5*t78*t 2672 1 8-2.8949834072754554d-1*t1*t11*t21*t4*t78*t8+8.3655863644 2673 2 2276d-3*gammaaa*t1*t11*t19*t20*t78*t8+1.5994559226331975d 2674 3 +1*t1*t11*t31*t4*t5*t68*t8+5.21097013309582d+0*t1*t22*t31 2675 4 *t32*t4*t5*t52*t8-1.5994559226331975d+1*t1*t23*t24*t31*t3 2676 5 2*t4*t5*t8-8.684950221826366d-1*t1*t21*t23*t31*t32*t4*t8+ 2677 6 2.5096759093268284d-2*gammaaa*t1*t19*t20*t23*t31*t32*t8+6 2678 7 .932882563289786d-1*gammabb*t1*t11*t24*t29*t4*t5*t77-1.12 2679 8 93541591970728d-1*gammabb*t1*t22*t23*t29*t4*t5*t77+3.7645 2680 9 138639902426d-2*gammabb*t1*t11*t21*t29*t4*t77-1.087825435 2681 : 2039793d-3*gammaaa*gammabb*t1*t11*t19*t20*t29*t77-5.53726 2682 ; 8584495724d-3*t1*t11*t24*t4*t5*t74*t75*t76+9.020111403018 2683 < 07d-4*t1*t22*t23*t4*t5*t74*t75*t76-3.006703801006023d-4*t 2684 = 1*t11*t21*t4*t74*t75*t76+8.688422965168586d-6*gammaaa*t1* 2685 > t11*t19*t20*t74*t75*t76-4.621921708859857d-1*gammabb*t1*t 2686 ? 11*t29*t30*t4*t5*t68-1.505805545596097d-1*gammabb*t1*t22* 2687 @ t29*t30*t32*t4*t5*t52+4.621921708859857d-1*gammabb*t1*t23 2688 1 *t24*t29*t30*t32*t4*t5+2.5096759093268284d-2*gammabb*t1*t 2689 2 21*t23*t29*t30*t32*t4-7.252169568026529d-4*gammaaa*gammab 2690 3 b*t1*t19*t20*t23*t29*t30*t32)*wght+8.336168033553906d-2*r 2691 4 hoa*rhob*t26*t81*wght+1.6672336067107812d-1*rhoa*rhob*t35 2692 5 *t70*wght+1.6672336067107812d-1*rhoa*t17*t70*wght+1.66723 2693 6 36067107812d-1*rhoa*t26*t35*wght-t28*t85-2*t34*t66)+t14*t 2694 7 47*(-1.6672336067107812d-1*rhoa*rhob*t17*t26*t85*wght-1.6 2695 8 672336067107812d-1*rhoa*rhob*t17*t34*t70*wght-1.667233606 2696 9 7107812d-1*rhoa*rhob*t26*t34*t35*wght-1.6672336067107812d 2697 : -1*rhoa*t17*t26*t34*wght-2*t34*t71)+t18*t25*(-1.667233606 2698 ; 7107812d-1*rhoa*rhob*t17*t24*t85*wght-1.6672336067107812d 2699 < -1*rhoa*rhob*t17*t26*t83*wght-1.6672336067107812d-1*rhoa* 2700 = rhob*t17*t33*t70*wght-1.6672336067107812d-1*rhoa*rhob*t17 2701 > *t34*t68*wght-1.6672336067107812d-1*rhoa*rhob*t24*t34*t35 2702 ? *wght-1.6672336067107812d-1*rhoa*rhob*t26*t33*t35*wght-1. 2703 @ 6672336067107812d-1*rhoa*t17*t24*t34*wght-1.6672336067107 2704 1 812d-1*rhoa*t17*t26*t33*wght-2.0d+0*t33*t71-t34*t69)+t16* 2705 2 t49*(-5.001700820132344d-1*rhoa*rhob*t17*t24*t83*wght-5.0 2706 3 01700820132344d-1*rhoa*rhob*t17*t33*t68*wght-5.0017008201 2707 4 32344d-1*rhoa*rhob*t24*t33*t35*wght-5.001700820132344d-1* 2708 5 rhoa*t17*t24*t33*wght-3.0d+0*t33*t69)+t16*t18*(1.66723360 2709 6 67107812d-1*rhoa*rhob*t24*t81*wght+3.3344672134215625d-1* 2710 7 rhoa*rhob*t35*t68*wght+3.3344672134215625d-1*rhoa*t17*t68 2711 8 *wght+3.3344672134215625d-1*rhoa*t24*t35*wght+1.667233606 2712 9 7107812d-1*rhoa*rhob*t160*t17*wght-2.0d+0*t28*t83-4.0d+0* 2713 : t33*t66)+t18*t47*(3.3344672134215625d-1*rhoa*rhob*t17*t26 2714 ; *t33*t34*wght-2*t34*t67)+t25*t49*(5.001700820132344d-1*rh 2715 < oa*rhob*t17*t24*t33*t34*wght-3.0d+0*t33*t67)+2.0006803280 2716 = 529378d+0*rhoa*rhob*t150*t16*t17*t24*t73*wght+5.001700820 2717 > 132344d-1*rhoa*rhob*t14*t149*t17*t26*t72*wght+Amat3(iq,D3 2718 ? _RA_RB_RB) 2719 Amat3(iq,D3_RB_RB_RB) = t14*t25*(8.336168033553906d-2*rhoa*r 2720 1 hob*t17*(-4.7983677678995934d+1*t1*t23*t32*t4*t5*t8*t83*t 2721 2 9+2.3449365598931193d+1*t1*t32*t4*t5*t52*t8*t80*t9-2.3991 2722 3 838839497967d+1*t1*t23*t33*t4*t5*t8*t80*t9+4.798367767899 2723 4 5934d+1*t1*t33*t4*t5*t52*t79*t8*t9-3.908227599821866d+0*t 2724 5 1*t166*t23*t4*t5*t8*t9+2.3991838839497967d+1*t1*t11*t167* 2725 6 t4*t5*t8*t9-2.3449365598931193d+1*t1*t152*t165*t4*t5*t8*t 2726 7 9+1.5994559226331975d+1*t1*t11*t31*t4*t5*t8*t83-4.6219217 2727 8 08859857d-1*gammabb*t1*t11*t29*t30*t4*t5*t83-3.9082275998 2728 9 21865d+0*t1*t23*t31*t4*t5*t8*t80+1.1293541591970727d-1*ga 2729 : mmabb*t1*t23*t29*t30*t4*t5*t80+7.81645519964373d+0*t1*t31 2730 ; *t4*t5*t52*t79*t8-5.331519742110659d+0*t1*t11*t33*t4*t5*t 2731 < 78*t8+2.60548506654791d+0*t1*t23*t32*t4*t5*t78*t8+1.44749 2732 = 17036377277d+0*t1*t11*t4*t5*t6*t8-1.5994559226331975d+1*t 2733 > 1*t23*t31*t32*t33*t4*t5*t8-2.2587083183941453d-1*gammabb* 2734 ? t1*t29*t30*t4*t5*t52*t79+6.932882563289786d-1*gammabb*t1* 2735 @ t11*t29*t33*t4*t5*t77-3.388062477591218d-1*gammabb*t1*t23 2736 1 *t29*t32*t4*t5*t77-5.537268584495724d-3*t1*t11*t33*t4*t5* 2737 2 t74*t75*t76+2.706033420905421d-3*t1*t23*t32*t4*t5*t74*t75 2738 3 *t76+9.02011140301807d-3*t1*t11*t163*t4*t5*t74*t75+4.6219 2739 4 21708859857d-1*gammabb*t1*t23*t29*t30*t32*t33*t4*t5-4.810 2740 5 2121595430875d-1*gammabb*t1*t11*t164*t29*t4*t5-3.24194886 2741 6 76002184d-5*t1*t11*t114*t161*t162*t4*t5)*wght+1.667233606 2742 7 7107812d-1*rhoa*rhob*t35*t85*wght+1.6672336067107812d-1*r 2743 8 hoa*t17*t85*wght+8.336168033553906d-2*rhoa*rhob*t34*t81*w 2744 9 ght+1.6672336067107812d-1*rhoa*t34*t35*wght-t36*t85-2*t34 2745 : *t82)+t14*t16*(-8.336168033553906d-2*rhoa*rhob*(3.1616328 2746 ; 27207898d+1*t1*t32*t4*t5*t52*t8*t80*t9-5.269388045346497d 2747 < +0*t1*t166*t23*t4*t5*t8*t9-3.161632827207898d+1*t1*t152*t 2748 = 165*t4*t5*t8*t9-5.269388045346496d+0*t1*t23*t31*t4*t5*t8* 2749 > t80+1.5226864744792862d-1*gammabb*t1*t23*t29*t30*t4*t5*t8 2750 ? 0+1.0538776090692992d+1*t1*t31*t4*t5*t52*t79*t8+3.5129253 2751 @ 635643304d+0*t1*t23*t32*t4*t5*t78*t8+1.9516252019801836d+ 2752 1 0*t1*t11*t4*t5*t6*t8-3.0453729489585724d-1*gammabb*t1*t29 2753 2 *t30*t4*t5*t52*t79-4.568059423437859d-1*gammabb*t1*t23*t2 2754 3 9*t32*t4*t5*t77+3.648492774340223d-3*t1*t23*t32*t4*t5*t74 2755 4 *t75*t76+1.2161642581134074d-2*t1*t11*t163*t4*t5*t74*t75- 2756 5 6.485516465374737d-1*gammabb*t1*t11*t164*t29*t4*t5-4.3710 2757 6 57255553858d-5*t1*t11*t114*t161*t162*t4*t5)*wght-2.500850 2758 7 410066172d-1*rhoa*t81*wght)+t14*t47*(-3.3344672134215625d 2759 8 -1*rhoa*rhob*t17*t34*t85*wght-1.6672336067107812d-1*rhoa* 2760 9 rhob*t35*t72*wght-1.6672336067107812d-1*rhoa*t17*t72*wght 2761 : -2*t34*t86)+t18*t25*(-3.3344672134215625d-1*rhoa*rhob*t17 2762 ; *t33*t85*wght-3.3344672134215625d-1*rhoa*rhob*t17*t34*t83 2763 < *wght-3.3344672134215625d-1*rhoa*rhob*t33*t34*t35*wght-3. 2764 = 3344672134215625d-1*rhoa*t17*t33*t34*wght-2.0d+0*t33*t86- 2765 > t34*t84)+t16*t18*(3.3344672134215625d-1*rhoa*rhob*t35*t83 2766 ? *wght+3.3344672134215625d-1*rhoa*t17*t83*wght+1.667233606 2767 @ 7107812d-1*rhoa*rhob*t33*t81*wght+3.3344672134215625d-1*r 2768 1 hoa*t33*t35*wght+1.6672336067107812d-1*rhoa*rhob*t167*t17 2769 2 *wght-2.0d+0*t36*t83-4.0d+0*t33*t82)+t16*t49*(-1.00034016 2770 3 40264689d+0*rhoa*rhob*t17*t33*t83*wght-5.001700820132344d 2771 4 -1*rhoa*rhob*t35*t73*wght-5.001700820132344d-1*rhoa*t17*t 2772 5 73*wght-3.0d+0*t33*t84)+1.5005102460397032d+0*rhoa*rhob*t 2773 6 17*t25*t34*t49*t73*wght+1.0003401640264689d+0*rhoa*rhob*t 2774 7 17*t18*t33*t47*t72*wght+5.001700820132344d-1*rhoa*rhob*t1 2775 8 4*t149*t17*t34**3*wght+2.0006803280529378d+0*rhoa*rhob*t1 2776 9 50*t16*t17*t33**3*wght+Amat3(iq,D3_RB_RB_RB) 2777 Cmat3(iq,D3_RA_RA_GAA) = t14*t25*(8.336168033553906d-2*rhoa* 2778 1 rhob*t27*t97*wght+8.336168033553906d-2*rhob*t17*t97*wght+ 2779 2 8.336168033553906d-2*rhoa*rhob*t17*(-2.3991838839497967d+ 2780 3 1*t1*t22*t23*t4*t5*t8*t9*t95+7.997279613165988d+0*t1*t11* 2781 4 t21*t4*t8*t9*t95-2.3109608544299284d-1*gammaaa*t1*t11*t19 2782 5 *t20*t8*t9*t95+1.563291039928746d+1*t1*t22*t4*t5*t52*t8*t 2783 6 9*t91-2.3991838839497967d+1*t1*t23*t24*t4*t5*t8*t9*t91-2. 2784 7 60548506654791d+0*t1*t21*t23*t4*t8*t9*t91+7.5290277279804 2785 8 85d-2*gammaaa*t1*t19*t20*t23*t8*t9*t91+2.0764757191858965 2786 9 d-3*gammaaa*t1*t11*t24*t54*t8*t9*t90-6.765083552263552d-4 2787 : *gammaaa*t1*t22*t23*t54*t8*t9*t90+3.502977035285916d-2*t1 2788 ; *t19*t22*t4*t52*t8*t89*t9-5.376021376855886d-2*t1*t19*t23 2789 < *t24*t4*t8*t89*t9-1.0122495641124629d-3*gammaaa*t1*t22*t5 2790 = 2*t8*t87*t88*t9+1.5535001344756127d-3*gammaaa*t1*t23*t24* 2791 > t8*t87*t88*t9+1.2157308253500822d-5*t1*t11*t172*t53*t8*t8 2792 ? 7*t9-7.591871730843472d-4*gammaaa*t1*t170*t23*t8*t87*t9-1 2793 @ .612806413056766d-1*t1*t19*t23*t37*t4*t61*t8*t9+8.6661032 2794 1 04112231d-2*t1*t11*t19*t38*t61*t8*t9+5.254465552928875d-2 2795 2 *t1*t19*t37*t4*t52*t58*t8*t9-1.4116926989963413d-2*t1*t19 2796 3 *t23*t38*t58*t8*t9+1.0979832103304875d-1*t1*t11*t19*t56*t 2797 4 8*t9-2.8187848134431465d-3*gammaaa*t1*t11*t54*t55*t8*t9+6 2798 5 .063600883031948d-6*t1*t168*t169*t23*t53*t8*t9+2.82338539 2799 6 79926826d-2*t1*t19*t38*t51*t52*t8*t9+3.225612826113532d-1 2800 7 *t1*t19*t22*t24*t37*t4*t52*t8*t9-1.5763396658786624d-1*t1 2801 8 *t152*t19*t37*t4*t51*t8*t9-3.908227599821866d+0*t1*t173*t 2802 9 23*t4*t5*t8*t9+2.3991838839497967d+1*t1*t11*t174*t4*t5*t8 2803 : *t9+5.83829505880986d-3*t1*t171*t19*t23*t4*t8*t9-8.666103 2804 ; 204112231d-2*t1*t19*t22*t23*t24*t38*t8*t9-2.0220907476261 2805 < 873d-1*t1*t11*t19*t20*t24*t8*t9+6.587899261982924d-2*t1*t 2806 = 19*t20*t22*t23*t8*t9)*wght+8.336168033553906d-2*rhoa*rhob 2807 > *t26*t92*wght+8.336168033553906d-2*rhoa*rhob*t39*t63*wght 2808 ? +8.336168033553906d-2*rhob*t26*t39*wght-t28*t97-t26*t93-t 2809 @ 41*t60)+t14*t47*(-3.3344672134215625d-1*rhoa*rhob*t17*t26 2810 1 *t97*wght-1.6672336067107812d-1*rhoa*rhob*t39*t48*wght-2* 2811 2 t41*t64)+t18*t25*(-3.3344672134215625d-1*rhoa*rhob*t17*t2 2812 3 4*t97*wght-3.3344672134215625d-1*rhoa*rhob*t17*t26*t95*wg 2813 4 ht-3.3344672134215625d-1*rhoa*rhob*t24*t26*t39*wght-2.0d+ 2814 5 0*t40*t64-t41*t62)+t16*t18*(1.6672336067107812d-1*rhoa*rh 2815 6 ob*t27*t95*wght+1.6672336067107812d-1*rhob*t17*t95*wght+1 2816 7 .6672336067107812d-1*rhoa*rhob*t24*t92*wght+1.66723360671 2817 8 07812d-1*rhoa*rhob*t39*t61*wght+1.6672336067107812d-1*rho 2818 9 b*t24*t39*wght+1.6672336067107812d-1*rhoa*rhob*t17*t174*w 2819 : ght-2.0d+0*t28*t95-2.0d+0*t24*t93-2.0d+0*t40*t60)+t16*t49 2820 ; *(-1.0003401640264689d+0*rhoa*rhob*t17*t24*t95*wght-5.001 2821 < 700820132344d-1*rhoa*rhob*t39*t50*wght-3.0d+0*t40*t62)+t1 2822 = 4*t16*(-1.6672336067107812d-1*rhob*t92*wght-8.33616803355 2823 > 3906d-2*rhoa*rhob*(2.1077552181385986d+1*t1*t22*t4*t5*t52 2824 ? *t8*t9*t91-3.512925363564331d+0*t1*t21*t23*t4*t8*t9*t91+1 2825 @ .0151243163195242d-1*gammaaa*t1*t19*t20*t23*t8*t9*t91-9.1 2826 1 21231935850558d-4*gammaaa*t1*t22*t23*t54*t8*t9*t90+4.7229 2827 2 9650964551d-2*t1*t19*t22*t4*t52*t8*t89*t9-1.3647966030137 2828 3 373d-3*gammaaa*t1*t22*t52*t8*t87*t88*t9+1.639146470832696 2829 4 7d-5*t1*t11*t172*t53*t8*t87*t9-1.023597452260303d-3*gamma 2830 5 aa*t1*t170*t23*t8*t87*t9+7.084494764468265d-2*t1*t19*t37* 2831 6 t4*t52*t58*t8*t9-1.9033580930991081d-2*t1*t19*t23*t38*t58 2832 7 *t8*t9+1.4803896279659726d-1*t1*t11*t19*t56*t8*t9-3.80051 2833 8 3306604399d-3*gammaaa*t1*t11*t54*t55*t8*t9+8.175436355410 2834 9 144d-6*t1*t168*t169*t23*t53*t8*t9+3.8067161861982163d-2*t 2835 : 1*t19*t38*t51*t52*t8*t9-2.1253484293404795d-1*t1*t152*t19 2836 ; *t37*t4*t51*t8*t9-5.269388045346497d+0*t1*t173*t23*t4*t5* 2837 < t8*t9+7.871660849409182d-3*t1*t171*t19*t23*t4*t8*t9+8.882 2838 = 337767795836d-2*t1*t19*t20*t22*t23*t8*t9)*wght)+t25*t49*( 2839 > 5.001700820132344d-1*rhoa*rhob*t17*t41*t50*wght+1.0003401 2840 ? 640264689d+0*rhoa*rhob*t17*t24*t26*t40*wght)+t18*t47*(3.3 2841 @ 344672134215625d-1*rhoa*rhob*t17*t40*t48*wght+6.668934426 2842 1 843125d-1*rhoa*rhob*t17*t24*t26*t41*wght)+2.0006803280529 2843 2 378d+0*rhoa*rhob*t150*t16*t17*t40*t50*wght+5.001700820132 2844 3 344d-1*rhoa*rhob*t14*t149*t17*t41*t48*wght+Cmat3(iq,D3_RA 2845 4 _RA_GAA) 2846 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 2847 Cmat3(iq,D3_RA_RA_GBB) = t14*t25*(8.336168033553906d-2*rhoa* 2848 1 rhob*t26*t99*wght+8.336168033553906d-2*rhoa*rhob*t17*(-2. 2849 2 3991838839497967d+1*t1*t102*t22*t23*t4*t5*t8*t9+2.3991838 2850 3 839497967d+1*t1*t11*t175*t4*t5*t8*t9+7.997279613165988d+0 2851 4 *t1*t102*t11*t21*t4*t8*t9-2.3109608544299284d-1*gammaaa*t 2852 5 1*t102*t11*t19*t20*t8*t9-1.612806413056766d-1*t1*t23*t29* 2853 6 t4*t43*t5*t61*t8+5.254465552928875d-2*t1*t29*t4*t43*t5*t5 2854 7 2*t58*t8+5.83829505880986d-3*t1*t23*t29*t4*t43*t57*t8-7.5 2855 8 91871730843472d-4*gammaaa*t1*t19*t23*t29*t43*t56*t8+6.063 2856 9 600883031948d-6*t1*t23*t29*t43*t53*t54*t55*t8+3.225612826 2857 : 113532d-1*t1*t22*t24*t29*t4*t43*t5*t52*t8+3.5029770352859 2858 ; 16d-2*t1*t21*t22*t29*t4*t43*t52*t8-1.0122495641124629d-3* 2859 < gammaaa*t1*t19*t20*t22*t29*t43*t52*t8-1.5763396658786624d 2860 = -1*t1*t152*t29*t4*t43*t5*t51*t8-5.376021376855886d-2*t1*t 2861 > 21*t23*t24*t29*t4*t43*t8+1.5535001344756127d-3*gammaaa*t1 2862 ? *t19*t20*t23*t24*t29*t43*t8+8.666103204112231d-2*t1*t11*t 2863 @ 29*t4*t42*t5*t61-1.4116926989963413d-2*t1*t23*t29*t4*t42* 2864 1 t5*t58-3.137094886658535d-3*t1*t11*t29*t4*t42*t57+4.07934 2865 2 5382014923d-4*gammaaa*t1*t11*t19*t29*t42*t56-3.2581586119 2866 3 3822d-6*t1*t11*t29*t42*t53*t54*t55+2.8233853979926826d-2* 2867 4 t1*t29*t4*t42*t5*t51*t52-8.666103204112231d-2*t1*t22*t23* 2868 5 t24*t29*t4*t42*t5+2.8887010680374103d-2*t1*t11*t21*t24*t2 2869 6 9*t4*t42-9.411284659975606d-3*t1*t21*t22*t23*t29*t4*t42-8 2870 7 .347432391127305d-4*gammaaa*t1*t11*t19*t20*t24*t29*t42+2. 2871 8 7195635880099484d-4*gammaaa*t1*t19*t20*t22*t23*t29*t42)*w 2872 9 ght+8.336168033553906d-2*rhoa*rhob*t44*t63*wght+8.3361680 2873 : 33553906d-2*rhob*t26*t44*wght+8.336168033553906d-2*rhoa*r 2874 ; hob*t104*t27*wght+8.336168033553906d-2*rhob*t104*t17*wght 2875 < -t46*t60-t104*t28-t100*t26)+t16*t18*(1.6672336067107812d- 2876 = 1*rhoa*rhob*t24*t99*wght+1.6672336067107812d-1*rhoa*rhob* 2877 > t44*t61*wght+1.6672336067107812d-1*rhob*t24*t44*wght+1.66 2878 ? 72336067107812d-1*rhoa*rhob*t102*t27*wght+1.6672336067107 2879 @ 812d-1*rhoa*rhob*t17*t175*wght+1.6672336067107812d-1*rhob 2880 1 *t102*t17*wght-2.0d+0*t45*t60-2.0d+0*t102*t28-2.0d+0*t100 2881 2 *t24)+t14*t16*(-1.6672336067107812d-1*rhob*t99*wght-8.336 2882 3 168033553906d-2*rhoa*rhob*(7.084494764468265d-2*t1*t29*t4 2883 4 *t43*t5*t52*t58*t8+7.871660849409182d-3*t1*t23*t29*t4*t43 2884 5 *t57*t8-1.023597452260303d-3*gammaaa*t1*t19*t23*t29*t43*t 2885 6 56*t8+8.175436355410144d-6*t1*t23*t29*t43*t53*t54*t55*t8+ 2886 7 4.72299650964551d-2*t1*t21*t22*t29*t4*t43*t52*t8-1.364796 2887 8 6030137373d-3*gammaaa*t1*t19*t20*t22*t29*t43*t52*t8-2.125 2888 9 3484293404795d-1*t1*t152*t29*t4*t43*t5*t51*t8-1.903358093 2889 : 0991081d-2*t1*t23*t29*t4*t42*t5*t58-4.22968465133135d-3*t 2890 ; 1*t11*t29*t4*t42*t57+5.500102857317887d-4*gammaaa*t1*t11* 2891 < t19*t29*t42*t56-4.392912541831627d-6*t1*t11*t29*t42*t53*t 2892 = 54*t55+3.8067161861982163d-2*t1*t29*t4*t42*t5*t51*t52-1.2 2893 > 689053953994053d-2*t1*t21*t22*t23*t29*t4*t42+3.6667352382 2894 ? 119245d-4*gammaaa*t1*t19*t20*t22*t23*t29*t42)*wght)+t25*t 2895 @ 49*(5.001700820132344d-1*rhoa*rhob*t17*t46*t50*wght+1.000 2896 1 3401640264689d+0*rhoa*rhob*t17*t24*t26*t45*wght)+t16*t49* 2897 2 (-5.001700820132344d-1*rhoa*rhob*t44*t50*wght-1.000340164 2898 3 0264689d+0*rhoa*rhob*t102*t17*t24*wght-3.0d+0*t45*t62)+t1 2899 4 8*t47*(3.3344672134215625d-1*rhoa*rhob*t17*t45*t48*wght+6 2900 5 .668934426843125d-1*rhoa*rhob*t17*t24*t26*t46*wght)+t14*t 2901 6 47*(-1.6672336067107812d-1*rhoa*rhob*t44*t48*wght-3.33446 2902 7 72134215625d-1*rhoa*rhob*t104*t17*t26*wght-2*t46*t64)+t18 2903 8 *t25*(-3.3344672134215625d-1*rhoa*rhob*t24*t26*t44*wght-3 2904 9 .3344672134215625d-1*rhoa*rhob*t102*t17*t26*wght-3.334467 2905 : 2134215625d-1*rhoa*rhob*t104*t17*t24*wght-2.0d+0*t45*t64- 2906 ; t46*t62)+2.0006803280529378d+0*rhoa*rhob*t150*t16*t17*t45 2907 < *t50*wght+5.001700820132344d-1*rhoa*rhob*t14*t149*t17*t46 2908 = *t48*wght+Cmat3(iq,D3_RA_RA_GBB) 2909 Cmat3(iq,D3_RA_RB_GAA) = t14*t25*(8.336168033553906d-2*rhoa* 2910 1 rhob*t35*t97*wght+8.336168033553906d-2*rhoa*t17*t97*wght+ 2911 2 8.336168033553906d-2*rhoa*rhob*t17*(-2.3991838839497967d+ 2912 3 1*t1*t23*t32*t4*t5*t8*t9*t95+7.997279613165988d+0*t1*t11* 2913 4 t31*t4*t5*t8*t95-2.3109608544299284d-1*gammabb*t1*t11*t29 2914 5 *t30*t4*t5*t95+7.816455199643731d+0*t1*t32*t4*t5*t52*t8*t 2915 6 9*t91-1.302742533273955d+0*t1*t23*t31*t4*t5*t8*t91+3.7645 2916 7 138639902426d-2*gammabb*t1*t23*t29*t30*t4*t5*t91-3.382541 2917 8 776131776d-4*gammaaa*t1*t23*t32*t54*t8*t9*t90+1.127513925 2918 9 3772587d-4*gammaaa*t1*t11*t31*t54*t8*t90-3.25815861193822 2919 : d-6*gammaaa*gammabb*t1*t11*t29*t30*t54*t90+1.751488517642 2920 ; 958d-2*t1*t19*t32*t4*t52*t8*t89*t9-5.061247820562315d-4*g 2921 < ammaaa*t1*t32*t52*t8*t87*t88*t9-1.612806413056766d-1*t1*t 2922 = 19*t23*t37*t4*t68*t8*t9+8.666103204112231d-2*t1*t11*t19*t 2923 > 38*t68*t8*t9+3.225612826113532d-1*t1*t19*t24*t32*t37*t4*t 2924 ? 52*t8*t9+2.8233853979926826d-2*t1*t19*t22*t32*t38*t52*t8* 2925 @ t9+2.3991838839497967d+1*t1*t11*t176*t4*t5*t8*t9-1.576339 2926 1 6658786624d-1*t1*t152*t19*t22*t32*t37*t4*t8*t9-8.66610320 2927 2 4112231d-2*t1*t19*t23*t24*t32*t38*t8*t9+3.293949630991462 2928 3 d-2*t1*t19*t20*t23*t32*t8*t9-2.91914752940493d-3*t1*t19*t 2929 4 23*t31*t4*t8*t89+8.435413034270525d-5*gammabb*t1*t19*t23* 2930 5 t29*t30*t4*t89+8.435413034270525d-5*gammaaa*t1*t23*t31*t8 2931 6 *t87*t88-2.437567554978843d-6*gammaaa*gammabb*t1*t23*t29* 2932 7 t30*t87*t88+1.751488517642958d-2*t1*t19*t22*t31*t37*t4*t5 2933 8 2*t8-5.376021376855886d-2*t1*t19*t23*t24*t31*t37*t4*t8+2. 2934 9 8887010680374103d-2*t1*t11*t19*t24*t31*t38*t8-4.705642329 2935 : 987803d-3*t1*t19*t22*t23*t31*t38*t8-1.0979832103304873d-2 2936 ; *t1*t11*t19*t20*t31*t8-5.061247820562315d-4*gammabb*t1*t1 2937 < 9*t22*t29*t30*t37*t4*t52+1.5535001344756127d-3*gammabb*t1 2938 = *t19*t23*t24*t29*t30*t37*t4-8.347432391127305d-4*gammabb* 2939 > t1*t11*t19*t24*t29*t30*t38+1.3597817940049742d-4*gammabb* 2940 ? t1*t19*t22*t23*t29*t30*t38+3.1728241860116063d-4*gammabb* 2941 @ t1*t11*t19*t20*t29*t30)*wght+8.336168033553906d-2*rhoa*rh 2942 1 ob*t39*t70*wght+8.336168033553906d-2*rhoa*t26*t39*wght+8. 2943 2 336168033553906d-2*rhoa*rhob*t106*t26*wght-t34*t93-t41*t6 2944 3 6-t111*t28)+t14*t47*(-1.6672336067107812d-1*rhoa*rhob*t17 2945 4 *t34*t97*wght-1.6672336067107812d-1*rhoa*rhob*t26*t34*t39 2946 5 *wght-1.6672336067107812d-1*rhoa*rhob*t111*t17*t26*wght-2 2947 6 *t41*t71)+t18*t25*(-1.6672336067107812d-1*rhoa*rhob*t17*t 2948 7 33*t97*wght-1.6672336067107812d-1*rhoa*rhob*t17*t34*t95*w 2949 8 ght-1.6672336067107812d-1*rhoa*rhob*t24*t34*t39*wght-1.66 2950 9 72336067107812d-1*rhoa*rhob*t26*t33*t39*wght-1.6672336067 2951 : 107812d-1*rhoa*rhob*t109*t17*t26*wght-1.6672336067107812d 2952 ; -1*rhoa*rhob*t111*t17*t24*wght-2.0d+0*t40*t71-t41*t69)+t1 2953 < 6*t18*(1.6672336067107812d-1*rhoa*rhob*t35*t95*wght+1.667 2954 = 2336067107812d-1*rhoa*t17*t95*wght+1.6672336067107812d-1* 2955 > rhoa*rhob*t39*t68*wght+1.6672336067107812d-1*rhoa*t24*t39 2956 ? *wght+1.6672336067107812d-1*rhoa*rhob*t106*t24*wght+1.667 2957 @ 2336067107812d-1*rhoa*rhob*t17*t176*wght-2.0d+0*t33*t93-2 2958 1 .0d+0*t40*t66-2.0d+0*t109*t28)+t16*t49*(-5.00170082013234 2959 2 4d-1*rhoa*rhob*t17*t33*t95*wght-5.001700820132344d-1*rhoa 2960 3 *rhob*t24*t33*t39*wght-5.001700820132344d-1*rhoa*rhob*t10 2961 4 9*t17*t24*wght-3.0d+0*t40*t69)+t14*t16*(-8.33616803355390 2962 5 6d-2*rhoa*t92*wght-8.336168033553906d-2*rhoa*rhob*(1.0538 2963 6 776090692993d+1*t1*t32*t4*t5*t52*t8*t9*t91-1.756462681782 2964 7 1655d+0*t1*t23*t31*t4*t5*t8*t91+5.075621581597621d-2*gamm 2965 8 abb*t1*t23*t29*t30*t4*t5*t91-4.560615967925279d-4*gammaaa 2966 9 *t1*t23*t32*t54*t8*t9*t90+1.5202053226417594d-4*gammaaa*t 2967 : 1*t11*t31*t54*t8*t90-4.392912541831627d-6*gammaaa*gammabb 2968 ; *t1*t11*t29*t30*t54*t90+2.361498254822755d-2*t1*t19*t32*t 2969 < 4*t52*t8*t89*t9-6.823983015068688d-4*gammaaa*t1*t32*t52*t 2970 = 8*t87*t88*t9+3.8067161861982163d-2*t1*t19*t22*t32*t38*t52 2971 > *t8*t9-2.1253484293404795d-1*t1*t152*t19*t22*t32*t37*t4*t 2972 ? 8*t9+4.441168883897918d-2*t1*t19*t20*t23*t32*t8*t9-3.9358 2973 @ 30424704591d-3*t1*t19*t23*t31*t4*t8*t89+1.137330502511447 2974 1 9d-4*gammabb*t1*t19*t23*t29*t30*t4*t89+1.1373305025114479 2975 2 d-4*gammaaa*t1*t23*t31*t8*t87*t88-3.286525414874878d-6*ga 2976 3 mmaaa*gammabb*t1*t23*t29*t30*t87*t88+2.361498254822755d-2 2977 4 *t1*t19*t22*t31*t37*t4*t52*t8-6.344526976997026d-3*t1*t19 2978 5 *t22*t23*t31*t38*t8-1.4803896279659728d-2*t1*t11*t19*t20* 2979 6 t31*t8-6.823983015068688d-4*gammabb*t1*t19*t22*t29*t30*t3 2980 7 7*t4*t52+1.8333676191059622d-4*gammabb*t1*t19*t22*t23*t29 2981 8 *t30*t38+4.277857777913911d-4*gammabb*t1*t11*t19*t20*t29* 2982 9 t30)*wght-8.336168033553906d-2*t39*wght-8.336168033553906 2983 : d-2*rhob*t106*wght)+t25*t49*(5.001700820132344d-1*rhoa*rh 2984 ; ob*t17*t24*t33*t41*wght-3.0d+0*t40*t67)+t18*t47*(3.334467 2985 < 2134215625d-1*rhoa*rhob*t17*t26*t34*t40*wght-2*t41*t67)+5 2986 = .001700820132344d-1*rhoa*rhob*t14*t149*t17*t26*t34*t41*wg 2987 > ht+2.0006803280529378d+0*rhoa*rhob*t150*t16*t17*t24*t33*t 2988 ? 40*wght+Cmat3(iq,D3_RA_RB_GAA) 2989 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 2990 Cmat3(iq,D3_RA_RB_GBB) = t14*t16*(-8.336168033553906d-2*rhoa 2991 1 *t99*wght-8.336168033553906d-2*rhoa*rhob*(1.0538776090692 2992 2 993d+1*t1*t117*t22*t4*t5*t52*t8*t9-1.7564626817821655d+0* 2993 3 t1*t117*t21*t23*t4*t8*t9+5.075621581597621d-2*gammaaa*t1* 2994 4 t117*t19*t20*t23*t8*t9+2.361498254822755d-2*t1*t116*t22*t 2995 5 29*t4*t5*t52*t8+2.361498254822755d-2*t1*t21*t29*t32*t4*t4 2996 6 3*t52*t8-6.823983015068688d-4*gammaaa*t1*t19*t20*t29*t32* 2997 7 t43*t52*t8-2.1253484293404795d-1*t1*t152*t22*t29*t32*t4*t 2998 8 43*t5*t8-3.935830424704591d-3*t1*t116*t21*t23*t29*t4*t8+1 2999 9 .1373305025114479d-4*gammaaa*t1*t116*t19*t20*t23*t29*t8-4 3000 : .560615967925279d-4*gammabb*t1*t113*t22*t23*t4*t5*t75+1.5 3001 ; 202053226417594d-4*gammabb*t1*t11*t113*t21*t4*t75-4.39291 3002 < 2541831627d-6*gammaaa*gammabb*t1*t11*t113*t19*t20*t75+3.8 3003 = 067161861982163d-2*t1*t22*t29*t32*t4*t42*t5*t52-6.8239830 3004 > 15068688d-4*gammabb*t1*t114*t115*t22*t4*t5*t52+4.44116888 3005 ? 3897918d-2*t1*t22*t23*t29*t30*t4*t5-6.344526976997026d-3* 3006 @ t1*t21*t23*t29*t32*t4*t42+1.8333676191059622d-4*gammaaa*t 3007 1 1*t19*t20*t23*t29*t32*t42-1.4803896279659728d-2*t1*t11*t2 3008 2 1*t29*t30*t4+1.1373305025114479d-4*gammabb*t1*t114*t115*t 3009 3 21*t23*t4+4.277857777913911d-4*gammaaa*t1*t11*t19*t20*t29 3010 4 *t30-3.286525414874878d-6*gammaaa*gammabb*t1*t114*t115*t1 3011 5 9*t20*t23)*wght-8.336168033553906d-2*t44*wght-8.336168033 3012 6 553906d-2*rhob*t118*wght)+t14*t25*(8.336168033553906d-2*r 3013 7 hoa*rhob*t17*(7.816455199643731d+0*t1*t117*t22*t4*t5*t52* 3014 8 t8*t9-2.3991838839497967d+1*t1*t102*t23*t32*t4*t5*t8*t9-2 3015 9 .3991838839497967d+1*t1*t117*t23*t24*t4*t5*t8*t9+2.399183 3016 : 8839497967d+1*t1*t11*t177*t4*t5*t8*t9-1.302742533273955d+ 3017 ; 0*t1*t117*t21*t23*t4*t8*t9+3.7645138639902426d-2*gammaaa* 3018 < t1*t117*t19*t20*t23*t8*t9-1.612806413056766d-1*t1*t23*t29 3019 = *t4*t43*t5*t68*t8+3.225612826113532d-1*t1*t24*t29*t32*t4* 3020 > t43*t5*t52*t8+1.751488517642958d-2*t1*t116*t22*t29*t4*t5* 3021 ? t52*t8+1.751488517642958d-2*t1*t21*t29*t32*t4*t43*t52*t8- 3022 @ 5.061247820562315d-4*gammaaa*t1*t19*t20*t29*t32*t43*t52*t 3023 1 8-1.5763396658786624d-1*t1*t152*t22*t29*t32*t4*t43*t5*t8+ 3024 2 7.997279613165988d+0*t1*t102*t11*t31*t4*t5*t8-5.376021376 3025 3 855886d-2*t1*t116*t23*t24*t29*t4*t5*t8-2.91914752940493d- 3026 4 3*t1*t116*t21*t23*t29*t4*t8+8.435413034270525d-5*gammaaa* 3027 5 t1*t116*t19*t20*t23*t29*t8+2.0764757191858965d-3*gammabb* 3028 6 t1*t11*t113*t24*t4*t5*t75-3.382541776131776d-4*gammabb*t1 3029 7 *t113*t22*t23*t4*t5*t75+1.1275139253772587d-4*gammabb*t1* 3030 8 t11*t113*t21*t4*t75-3.25815861193822d-6*gammaaa*gammabb*t 3031 9 1*t11*t113*t19*t20*t75+8.666103204112231d-2*t1*t11*t29*t4 3032 : *t42*t5*t68+2.8233853979926826d-2*t1*t22*t29*t32*t4*t42*t 3033 ; 5*t52-5.061247820562315d-4*gammabb*t1*t114*t115*t22*t4*t5 3034 < *t52-8.666103204112231d-2*t1*t23*t24*t29*t32*t4*t42*t5-2. 3035 = 0220907476261873d-1*t1*t11*t24*t29*t30*t4*t5+3.2939496309 3036 > 91462d-2*t1*t22*t23*t29*t30*t4*t5-2.3109608544299284d-1*g 3037 ? ammabb*t1*t102*t11*t29*t30*t4*t5+1.5535001344756127d-3*ga 3038 @ mmabb*t1*t114*t115*t23*t24*t4*t5-4.705642329987803d-3*t1* 3039 1 t21*t23*t29*t32*t4*t42+1.3597817940049742d-4*gammaaa*t1*t 3040 2 19*t20*t23*t29*t32*t42-1.0979832103304873d-2*t1*t11*t21*t 3041 3 29*t30*t4+8.435413034270525d-5*gammabb*t1*t114*t115*t21*t 3042 4 23*t4+3.1728241860116063d-4*gammaaa*t1*t11*t19*t20*t29*t3 3043 5 0-2.437567554978843d-6*gammaaa*gammabb*t1*t114*t115*t19*t 3044 6 20*t23)*wght+8.336168033553906d-2*rhoa*rhob*t44*t70*wght+ 3045 7 8.336168033553906d-2*rhoa*t26*t44*wght+8.336168033553906d 3046 8 -2*rhoa*rhob*t104*t35*wght+8.336168033553906d-2*rhoa*rhob 3047 9 *t118*t26*wght+8.336168033553906d-2*rhoa*t104*t17*wght-t4 3048 : 6*t66-t100*t34-t123*t28)+t16*t18*(1.6672336067107812d-1*r 3049 ; hoa*rhob*t44*t68*wght+1.6672336067107812d-1*rhoa*t24*t44* 3050 < wght+1.6672336067107812d-1*rhoa*rhob*t102*t35*wght+1.6672 3051 = 336067107812d-1*rhoa*rhob*t118*t24*wght+1.667233606710781 3052 > 2d-1*rhoa*rhob*t17*t177*wght+1.6672336067107812d-1*rhoa*t 3053 ? 102*t17*wght-2.0d+0*t45*t66-2.0d+0*t100*t33-2.0d+0*t121*t 3054 @ 28)+t25*t49*(5.001700820132344d-1*rhoa*rhob*t17*t24*t33*t 3055 1 46*wght-3.0d+0*t45*t67)+t18*t47*(3.3344672134215625d-1*rh 3056 2 oa*rhob*t17*t26*t34*t45*wght-2*t46*t67)+t14*t47*(-1.66723 3057 3 36067107812d-1*rhoa*rhob*t26*t34*t44*wght-1.6672336067107 3058 4 812d-1*rhoa*rhob*t104*t17*t34*wght-1.6672336067107812d-1* 3059 5 rhoa*rhob*t123*t17*t26*wght-2*t46*t71)+t18*t25*(-1.667233 3060 6 6067107812d-1*rhoa*rhob*t24*t34*t44*wght-1.66723360671078 3061 7 12d-1*rhoa*rhob*t26*t33*t44*wght-1.6672336067107812d-1*rh 3062 8 oa*rhob*t102*t17*t34*wght-1.6672336067107812d-1*rhoa*rhob 3063 9 *t104*t17*t33*wght-1.6672336067107812d-1*rhoa*rhob*t121*t 3064 : 17*t26*wght-1.6672336067107812d-1*rhoa*rhob*t123*t17*t24* 3065 ; wght-2.0d+0*t45*t71-t46*t69)+t16*t49*(-5.001700820132344d 3066 < -1*rhoa*rhob*t24*t33*t44*wght-5.001700820132344d-1*rhoa*r 3067 = hob*t102*t17*t33*wght-5.001700820132344d-1*rhoa*rhob*t121 3068 > *t17*t24*wght-3.0d+0*t45*t69)+5.001700820132344d-1*rhoa*r 3069 ? hob*t14*t149*t17*t26*t34*t46*wght+2.0006803280529378d+0*r 3070 @ hoa*rhob*t150*t16*t17*t24*t33*t45*wght+Cmat3(iq,D3_RA_RB_ 3071 1 GBB) 3072 Cmat3(iq,D3_RB_RB_GAA) = t14*t25*(8.336168033553906d-2*rhoa* 3073 1 rhob*t17*(-1.612806413056766d-1*t1*t19*t23*t37*t4*t8*t83* 3074 2 t9+8.666103204112231d-2*t1*t11*t19*t38*t8*t83*t9+5.254465 3075 3 552928875d-2*t1*t19*t37*t4*t52*t8*t80*t9-1.41169269899634 3076 4 13d-2*t1*t19*t23*t38*t8*t80*t9+2.8233853979926826d-2*t1*t 3077 5 19*t38*t52*t79*t8*t9-1.5763396658786624d-1*t1*t152*t19*t3 3078 6 7*t4*t79*t8*t9+3.225612826113532d-1*t1*t19*t32*t33*t37*t4 3079 7 *t52*t8*t9-2.3991838839497967d+1*t1*t109*t23*t32*t4*t5*t8 3080 8 *t9+2.3991838839497967d+1*t1*t11*t178*t4*t5*t8*t9-8.66610 3081 9 3204112231d-2*t1*t19*t23*t32*t33*t38*t8*t9+5.838295058809 3082 : 86d-3*t1*t19*t23*t37*t4*t78*t8-3.137094886658535d-3*t1*t1 3083 ; 1*t19*t38*t78*t8+3.502977035285916d-2*t1*t19*t31*t32*t37* 3084 < t4*t52*t8+7.997279613165988d+0*t1*t109*t11*t31*t4*t5*t8-5 3085 = .376021376855886d-2*t1*t19*t23*t31*t33*t37*t4*t8+2.888701 3086 > 0680374103d-2*t1*t11*t19*t31*t33*t38*t8-9.411284659975606 3087 ? d-3*t1*t19*t23*t31*t32*t38*t8-7.591871730843472d-4*gammab 3088 @ b*t1*t19*t23*t29*t37*t4*t77+4.079345382014923d-4*gammabb* 3089 1 t1*t11*t19*t29*t38*t77+6.063600883031948d-6*t1*t19*t23*t3 3090 2 7*t4*t74*t75*t76-3.25815861193822d-6*t1*t11*t19*t38*t74*t 3091 3 75*t76-1.0122495641124629d-3*gammabb*t1*t19*t29*t30*t32*t 3092 4 37*t4*t52-2.3109608544299284d-1*gammabb*t1*t109*t11*t29*t 3093 5 30*t4*t5+1.5535001344756127d-3*gammabb*t1*t19*t23*t29*t30 3094 6 *t33*t37*t4-8.347432391127305d-4*gammabb*t1*t11*t19*t29*t 3095 7 30*t33*t38+2.7195635880099484d-4*gammabb*t1*t19*t23*t29*t 3096 8 30*t32*t38)*wght+8.336168033553906d-2*rhoa*rhob*t39*t85*w 3097 9 ght+8.336168033553906d-2*rhoa*t34*t39*wght+8.336168033553 3098 : 906d-2*rhoa*rhob*t111*t35*wght+8.336168033553906d-2*rhoa* 3099 ; rhob*t106*t34*wght+8.336168033553906d-2*rhoa*t111*t17*wgh 3100 < t-t41*t82-t111*t36-t107*t34)+t14*t16*(-8.336168033553906d 3101 = -2*rhoa*rhob*(7.084494764468265d-2*t1*t19*t37*t4*t52*t8*t 3102 > 80*t9-1.9033580930991081d-2*t1*t19*t23*t38*t8*t80*t9+3.80 3103 ? 67161861982163d-2*t1*t19*t38*t52*t79*t8*t9-2.125348429340 3104 @ 4795d-1*t1*t152*t19*t37*t4*t79*t8*t9+7.871660849409182d-3 3105 1 *t1*t19*t23*t37*t4*t78*t8-4.22968465133135d-3*t1*t11*t19* 3106 2 t38*t78*t8+4.72299650964551d-2*t1*t19*t31*t32*t37*t4*t52* 3107 3 t8-1.2689053953994053d-2*t1*t19*t23*t31*t32*t38*t8-1.0235 3108 4 97452260303d-3*gammabb*t1*t19*t23*t29*t37*t4*t77+5.500102 3109 5 857317887d-4*gammabb*t1*t11*t19*t29*t38*t77+8.17543635541 3110 6 0144d-6*t1*t19*t23*t37*t4*t74*t75*t76-4.392912541831627d- 3111 7 6*t1*t11*t19*t38*t74*t75*t76-1.3647966030137373d-3*gammab 3112 8 b*t1*t19*t29*t30*t32*t37*t4*t52+3.6667352382119245d-4*gam 3113 9 mabb*t1*t19*t23*t29*t30*t32*t38)*wght-1.6672336067107812d 3114 : -1*rhoa*t106*wght)+t16*t18*(1.6672336067107812d-1*rhoa*rh 3115 ; ob*t39*t83*wght+1.6672336067107812d-1*rhoa*t33*t39*wght+1 3116 < .6672336067107812d-1*rhoa*rhob*t109*t35*wght+1.6672336067 3117 = 107812d-1*rhoa*rhob*t106*t33*wght+1.6672336067107812d-1*r 3118 > hoa*rhob*t17*t178*wght+1.6672336067107812d-1*rhoa*t109*t1 3119 ? 7*wght-2.0d+0*t40*t82-2.0d+0*t109*t36-2.0d+0*t107*t33)+t2 3120 @ 5*t49*(5.001700820132344d-1*rhoa*rhob*t17*t41*t73*wght+1. 3121 1 0003401640264689d+0*rhoa*rhob*t17*t33*t34*t40*wght)+t16*t 3122 2 49*(-5.001700820132344d-1*rhoa*rhob*t39*t73*wght-1.000340 3123 3 1640264689d+0*rhoa*rhob*t109*t17*t33*wght-3.0d+0*t40*t84) 3124 4 +t18*t47*(3.3344672134215625d-1*rhoa*rhob*t17*t40*t72*wgh 3125 5 t+6.668934426843125d-1*rhoa*rhob*t17*t33*t34*t41*wght)+t1 3126 6 4*t47*(-1.6672336067107812d-1*rhoa*rhob*t39*t72*wght-3.33 3127 7 44672134215625d-1*rhoa*rhob*t111*t17*t34*wght-2*t41*t86)+ 3128 8 t18*t25*(-3.3344672134215625d-1*rhoa*rhob*t33*t34*t39*wgh 3129 9 t-3.3344672134215625d-1*rhoa*rhob*t109*t17*t34*wght-3.334 3130 : 4672134215625d-1*rhoa*rhob*t111*t17*t33*wght-2.0d+0*t40*t 3131 ; 86-t41*t84)+2.0006803280529378d+0*rhoa*rhob*t150*t16*t17* 3132 < t40*t73*wght+5.001700820132344d-1*rhoa*rhob*t14*t149*t17* 3133 = t41*t72*wght+Cmat3(iq,D3_RB_RB_GAA) 3134 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 3135 Cmat3(iq,D3_RB_RB_GBB) = t14*t16*(-8.336168033553906d-2*rhoa 3136 1 *rhob*(2.1077552181385986d+1*t1*t117*t32*t4*t5*t52*t8*t9- 3137 2 5.269388045346497d+0*t1*t184*t23*t4*t5*t8*t9+7.0844947644 3138 3 68265d-2*t1*t29*t4*t43*t5*t52*t8*t80-1.9033580930991081d- 3139 4 2*t1*t23*t29*t4*t42*t5*t80-2.1253484293404795d-1*t1*t152* 3140 5 t29*t4*t43*t5*t79*t8+4.72299650964551d-2*t1*t116*t29*t32* 3141 6 t4*t5*t52*t8-3.512925363564331d+0*t1*t117*t23*t31*t4*t5*t 3142 7 8+7.871660849409182d-3*t1*t183*t23*t29*t4*t5*t8+3.8067161 3143 8 861982163d-2*t1*t29*t4*t42*t5*t52*t79+1.4803896279659726d 3144 9 -1*t1*t11*t29*t4*t5*t77-3.800513306604399d-3*gammabb*t1*t 3145 : 11*t4*t5*t75*t76-9.121231935850558d-4*gammabb*t1*t113*t23 3146 ; *t32*t4*t5*t75+8.175436355410144d-6*t1*t180*t181*t23*t4*t 3147 < 5*t74+1.6391464708326967d-5*t1*t11*t114*t179*t4*t5*t74-1. 3148 = 3647966030137373d-3*gammabb*t1*t114*t115*t32*t4*t5*t52+8. 3149 > 882337767795836d-2*t1*t23*t29*t30*t32*t4*t5+1.01512431631 3150 ? 95242d-1*gammabb*t1*t117*t23*t29*t30*t4*t5-1.023597452260 3151 @ 303d-3*gammabb*t1*t114*t182*t23*t4*t5)*wght-1.66723360671 3152 1 07812d-1*rhoa*t118*wght)+t14*t25*(8.336168033553906d-2*rh 3153 2 oa*rhob*t17*(1.563291039928746d+1*t1*t117*t32*t4*t5*t52*t 3154 3 8*t9-2.3991838839497967d+1*t1*t117*t23*t33*t4*t5*t8*t9-2. 3155 4 3991838839497967d+1*t1*t121*t23*t32*t4*t5*t8*t9-3.9082275 3156 5 99821866d+0*t1*t184*t23*t4*t5*t8*t9+2.3991838839497967d+1 3157 6 *t1*t11*t185*t4*t5*t8*t9-1.612806413056766d-1*t1*t23*t29* 3158 7 t4*t43*t5*t8*t83+8.666103204112231d-2*t1*t11*t29*t4*t42*t 3159 8 5*t83+5.254465552928875d-2*t1*t29*t4*t43*t5*t52*t8*t80-1. 3160 9 4116926989963413d-2*t1*t23*t29*t4*t42*t5*t80-1.5763396658 3161 : 786624d-1*t1*t152*t29*t4*t43*t5*t79*t8+3.225612826113532d 3162 ; -1*t1*t29*t32*t33*t4*t43*t5*t52*t8+3.502977035285916d-2*t 3163 < 1*t116*t29*t32*t4*t5*t52*t8-5.376021376855886d-2*t1*t116* 3164 = t23*t29*t33*t4*t5*t8-2.60548506654791d+0*t1*t117*t23*t31* 3165 > t4*t5*t8+7.997279613165988d+0*t1*t11*t121*t31*t4*t5*t8+5. 3166 ? 83829505880986d-3*t1*t183*t23*t29*t4*t5*t8+2.823385397992 3167 @ 6826d-2*t1*t29*t4*t42*t5*t52*t79+1.0979832103304875d-1*t1 3168 1 *t11*t29*t4*t5*t77-2.8187848134431465d-3*gammabb*t1*t11*t 3169 2 4*t5*t75*t76+2.0764757191858965d-3*gammabb*t1*t11*t113*t3 3170 3 3*t4*t5*t75-6.765083552263552d-4*gammabb*t1*t113*t23*t32* 3171 4 t4*t5*t75+6.063600883031948d-6*t1*t180*t181*t23*t4*t5*t74 3172 5 +1.2157308253500822d-5*t1*t11*t114*t179*t4*t5*t74-1.01224 3173 6 95641124629d-3*gammabb*t1*t114*t115*t32*t4*t5*t52-8.66610 3174 7 3204112231d-2*t1*t23*t29*t32*t33*t4*t42*t5-2.022090747626 3175 8 1873d-1*t1*t11*t29*t30*t33*t4*t5+1.5535001344756127d-3*ga 3176 9 mmabb*t1*t114*t115*t23*t33*t4*t5+6.587899261982924d-2*t1* 3177 : t23*t29*t30*t32*t4*t5+7.529027727980485d-2*gammabb*t1*t11 3178 ; 7*t23*t29*t30*t4*t5-2.3109608544299284d-1*gammabb*t1*t11* 3179 < t121*t29*t30*t4*t5-7.591871730843472d-4*gammabb*t1*t114*t 3180 = 182*t23*t4*t5)*wght+8.336168033553906d-2*rhoa*rhob*t44*t8 3181 > 5*wght+8.336168033553906d-2*rhoa*t34*t44*wght+8.336168033 3182 ? 553906d-2*rhoa*rhob*t123*t35*wght+8.336168033553906d-2*rh 3183 @ oa*rhob*t118*t34*wght+8.336168033553906d-2*rhoa*t123*t17* 3184 1 wght-t46*t82-t123*t36-t119*t34)+t16*t18*(1.66723360671078 3185 2 12d-1*rhoa*rhob*t44*t83*wght+1.6672336067107812d-1*rhoa*t 3186 3 33*t44*wght+1.6672336067107812d-1*rhoa*rhob*t121*t35*wght 3187 4 +1.6672336067107812d-1*rhoa*rhob*t118*t33*wght+1.66723360 3188 5 67107812d-1*rhoa*rhob*t17*t185*wght+1.6672336067107812d-1 3189 6 *rhoa*t121*t17*wght-2.0d+0*t45*t82-2.0d+0*t121*t36-2.0d+0 3190 7 *t119*t33)+t25*t49*(5.001700820132344d-1*rhoa*rhob*t17*t4 3191 8 6*t73*wght+1.0003401640264689d+0*rhoa*rhob*t17*t33*t34*t4 3192 9 5*wght)+t16*t49*(-5.001700820132344d-1*rhoa*rhob*t44*t73* 3193 : wght-1.0003401640264689d+0*rhoa*rhob*t121*t17*t33*wght-3. 3194 ; 0d+0*t45*t84)+t18*t47*(3.3344672134215625d-1*rhoa*rhob*t1 3195 < 7*t45*t72*wght+6.668934426843125d-1*rhoa*rhob*t17*t33*t34 3196 = *t46*wght)+t14*t47*(-1.6672336067107812d-1*rhoa*rhob*t44* 3197 > t72*wght-3.3344672134215625d-1*rhoa*rhob*t123*t17*t34*wgh 3198 ? t-2*t46*t86)+t18*t25*(-3.3344672134215625d-1*rhoa*rhob*t3 3199 @ 3*t34*t44*wght-3.3344672134215625d-1*rhoa*rhob*t121*t17*t 3200 1 34*wght-3.3344672134215625d-1*rhoa*rhob*t123*t17*t33*wght 3201 2 -2.0d+0*t45*t86-t46*t84)+2.0006803280529378d+0*rhoa*rhob* 3202 3 t150*t16*t17*t45*t73*wght+5.001700820132344d-1*rhoa*rhob* 3203 4 t14*t149*t17*t46*t72*wght+Cmat3(iq,D3_RB_RB_GBB) 3204 Cmat3(iq,D3_RA_GAA_GAA) = t14*t47*(-1.6672336067107812d-1*rh 3205 1 oa*rhob*t17*t41*t97*wght-1.6672336067107812d-1*rhoa*rhob* 3206 2 t26*t39*t41*wght-1.6672336067107812d-1*rhoa*rhob*t132*t17 3207 3 *t26*wght-2*t41*t98)+t18*t25*(-1.6672336067107812d-1*rhoa 3208 4 *rhob*t17*t40*t97*wght-1.6672336067107812d-1*rhoa*rhob*t1 3209 5 7*t41*t95*wght-1.6672336067107812d-1*rhoa*rhob*t24*t39*t4 3210 6 1*wght-1.6672336067107812d-1*rhoa*rhob*t26*t39*t40*wght-1 3211 7 .6672336067107812d-1*rhoa*rhob*t130*t17*t26*wght-1.667233 3212 8 6067107812d-1*rhoa*rhob*t132*t17*t24*wght-2.0d+0*t40*t98- 3213 9 t41*t96)+t14*t25*(1.6672336067107812d-1*rhoa*rhob*t39*t97 3214 : *wght+8.336168033553906d-2*rhoa*rhob*t17*(-3.225612826113 3215 ; 532d-1*t1*t19*t23*t37*t4*t8*t9*t95+1.7332206408224463d-1* 3216 < t1*t11*t19*t38*t8*t9*t95+1.050893110585775d-1*t1*t19*t37* 3217 = t4*t52*t8*t9*t91-2.8233853979926826d-2*t1*t19*t23*t38*t8* 3218 > t9*t91+6.34226583024708d-4*t1*t11*t54*t8*t9*t90+4.4285918 3219 ? 42992025d-4*t1*t23*t8*t87*t88*t9+7.868855442416534d-5*t1* 3220 @ t23*t4*t54*t8*t88*t9+2.168357784827018d-3*t1*t24*t4*t52*t 3221 1 56*t8*t87*t9-1.0596648048916558d-3*t1*t152*t22*t4*t56*t8* 3222 2 t87*t9+1.1774053387685064d-4*t1*t156*t4*t52*t8*t87*t9+3.7 3223 3 95935865421737d-4*t1*t125*t22*t52*t8*t87*t9-1.16512510085 3224 4 67096d-3*t1*t125*t23*t24*t8*t87*t9-4.558990595062808d-6*g 3225 5 ammaaa*t1*t11*t188*t8*t87*t9-4.7213132654499207d-4*t1*t12 3226 6 5*t22*t4*t52*t54*t8*t9+1.4491605732048626d-3*t1*t125*t23* 3227 7 t24*t4*t54*t8*t9-7.786783946947111d-4*t1*t11*t126*t24*t54 3228 8 *t8*t9+1.268453166049416d-4*t1*t126*t22*t23*t54*t8*t9-3.4 3229 9 02329015996045d-6*gammaaa*t1*t155*t186*t52*t8*t9-3.908227 3230 : 599821866d+0*t1*t189*t23*t4*t5*t8*t9+2.3991838839497967d+ 3231 ; 1*t1*t11*t190*t4*t5*t8*t9-6.821550993410941d-6*gammaaa*t1 3232 < *t168*t187*t23*t8*t9)*wght+8.336168033553906d-2*rhoa*rhob 3233 = *t127*t26*wght-2*t41*t93-t132*t28)+t16*t49*(-5.0017008201 3234 > 32344d-1*rhoa*rhob*t17*t40*t95*wght-5.001700820132344d-1* 3235 ? rhoa*rhob*t24*t39*t40*wght-5.001700820132344d-1*rhoa*rhob 3236 @ *t130*t17*t24*wght-3.0d+0*t40*t96)+t16*t18*(3.33446721342 3237 1 15625d-1*rhoa*rhob*t39*t95*wght+1.6672336067107812d-1*rho 3238 2 a*rhob*t127*t24*wght+1.6672336067107812d-1*rhoa*rhob*t17* 3239 3 t190*wght-4.0d+0*t40*t93-2.0d+0*t130*t28)+t14*t16*(-8.336 3240 4 168033553906d-2*rhoa*rhob*(1.4168989528936532d-1*t1*t19*t 3241 5 37*t4*t52*t8*t9*t91-3.8067161861982163d-2*t1*t19*t23*t38* 3242 6 t8*t9*t91+8.551154939859897d-4*t1*t11*t54*t8*t9*t90+5.970 3243 7 985138185101d-4*t1*t23*t8*t87*t88*t9+1.0609426329397834d- 3244 8 4*t1*t23*t4*t54*t8*t88*t9-1.4287256594843722d-3*t1*t152*t 3245 9 22*t4*t56*t8*t87*t9+1.5874729549826355d-4*t1*t156*t4*t52* 3246 : t8*t87*t9+5.117987261301516d-4*t1*t125*t22*t52*t8*t87*t9- 3247 ; 6.146799265622613d-6*gammaaa*t1*t11*t188*t8*t87*t9-6.3656 3248 < 55797638701d-4*t1*t125*t22*t4*t52*t54*t8*t9+1.71023098797 3249 = 198d-4*t1*t126*t22*t23*t54*t8*t9-4.587294722559716d-6*gam 3250 > maaa*t1*t155*t186*t52*t8*t9-5.269388045346497d+0*t1*t189* 3251 ? t23*t4*t5*t8*t9-9.197365899836413d-6*gammaaa*t1*t168*t187 3252 @ *t23*t8*t9)*wght-8.336168033553906d-2*rhob*t127*wght)+t18 3253 1 *t47*(3.3344672134215625d-1*rhoa*rhob*t17*t26*t40*t41*wgh 3254 2 t-2*t41*t94)+t25*t49*(5.001700820132344d-1*rhoa*rhob*t17* 3255 3 t24*t40*t41*wght-3.0d+0*t40*t94)+5.001700820132344d-1*rho 3256 4 a*rhob*t128*t14*t149*t17*t26*wght+2.0006803280529378d+0*r 3257 5 hoa*rhob*t129*t150*t16*t17*t24*wght+Cmat3(iq,D3_RA_GAA_GA 3258 6 A) 3259 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 3260 Cmat3(iq,D3_RA_GAA_GBB) = t14*t25*(8.336168033553906d-2*rhoa 3261 1 *rhob*t44*t97*wght+8.336168033553906d-2*rhoa*rhob*t17*(-1 3262 2 .612806413056766d-1*t1*t23*t29*t4*t43*t5*t8*t95+8.6661032 3263 3 04112231d-2*t1*t11*t29*t4*t42*t5*t95+5.254465552928875d-2 3264 4 *t1*t29*t4*t43*t5*t52*t8*t91-1.4116926989963413d-2*t1*t23 3265 5 *t29*t4*t42*t5*t91-2.2738503311369804d-6*gammaaa*t1*t23*t 3266 6 29*t43*t54*t8*t90+1.2218094794768326d-6*gammaaa*t1*t11*t2 3267 7 9*t42*t54*t90+2.3991838839497967d+1*t1*t11*t191*t4*t5*t8* 3268 8 t9-1.612806413056766d-1*t1*t102*t19*t23*t37*t4*t8*t9+8.66 3269 9 6103204112231d-2*t1*t102*t11*t19*t38*t8*t9+1.177405338768 3270 : 5064d-4*t1*t19*t29*t4*t43*t52*t8*t89-3.163279887851447d-5 3271 ; *t1*t19*t23*t29*t4*t42*t89-3.402329015996045d-6*gammaaa*t 3272 < 1*t29*t43*t52*t8*t87*t88+9.140878331170662d-7*gammaaa*t1* 3273 = t23*t29*t42*t87*t88+2.168357784827018d-3*t1*t19*t24*t29*t 3274 > 37*t4*t43*t52*t8+1.8979679327108684d-4*t1*t19*t22*t29*t38 3275 ? *t43*t52*t8-1.0596648048916558d-3*t1*t152*t19*t22*t29*t37 3276 @ *t4*t43*t8-5.825625504283547d-4*t1*t19*t23*t24*t29*t38*t4 3277 1 3*t8+2.2142959214960128d-4*t1*t19*t20*t23*t29*t43*t8+1.89 3278 2 79679327108684d-4*t1*t19*t22*t29*t37*t4*t42*t52-5.8256255 3279 3 04283548d-4*t1*t19*t23*t24*t29*t37*t4*t42+3.1302871466727 3280 4 39d-4*t1*t11*t19*t24*t29*t38*t42-5.099181727518654d-5*t1* 3281 5 t19*t22*t23*t29*t38*t42-1.1898090697543523d-4*t1*t11*t19* 3282 6 t20*t29*t42)*wght+8.336168033553906d-2*rhoa*rhob*t104*t39 3283 7 *wght+8.336168033553906d-2*rhoa*rhob*t134*t26*wght-t46*t9 3284 8 3-t100*t41-t137*t28)+t16*t18*(1.6672336067107812d-1*rhoa* 3285 9 rhob*t44*t95*wght+1.6672336067107812d-1*rhoa*rhob*t102*t3 3286 : 9*wght+1.6672336067107812d-1*rhoa*rhob*t134*t24*wght+1.66 3287 ; 72336067107812d-1*rhoa*rhob*t17*t191*wght-2.0d+0*t45*t93- 3288 < 2.0d+0*t100*t40-2.0d+0*t135*t28)+t14*t16*(-8.336168033553 3289 = 906d-2*rhoa*rhob*(7.084494764468265d-2*t1*t29*t4*t43*t5*t 3290 > 52*t8*t91-1.9033580930991081d-2*t1*t23*t29*t4*t42*t5*t91- 3291 ? 3.0657886332788037d-6*gammaaa*t1*t23*t29*t43*t54*t8*t90+1 3292 @ .6473422031868606d-6*gammaaa*t1*t11*t29*t42*t54*t90+1.587 3293 1 4729549826355d-4*t1*t19*t29*t4*t43*t52*t8*t89-4.264989384 3294 2 4179293d-5*t1*t19*t23*t29*t4*t42*t89-4.587294722559716d-6 3295 3 *gammaaa*t1*t29*t43*t52*t8*t87*t88+1.2324470305780792d-6* 3296 4 gammaaa*t1*t23*t29*t42*t87*t88+2.558993630650758d-4*t1*t1 3297 5 9*t22*t29*t38*t43*t52*t8-1.4287256594843722d-3*t1*t152*t1 3298 6 9*t22*t29*t37*t4*t43*t8+2.9854925690925505d-4*t1*t19*t20* 3299 7 t23*t29*t43*t8+2.558993630650758d-4*t1*t19*t22*t29*t37*t4 3300 8 *t42*t52-6.875128571647359d-5*t1*t19*t22*t23*t29*t38*t42- 3301 9 1.6041966667177168d-4*t1*t11*t19*t20*t29*t42)*wght-8.3361 3302 : 68033553906d-2*rhob*t134*wght)+t25*t49*(5.001700820132344 3303 ; d-1*rhoa*rhob*t17*t24*t40*t46*wght-3.0d+0*t45*t94)+t18*t4 3304 < 7*(3.3344672134215625d-1*rhoa*rhob*t17*t26*t41*t45*wght-2 3305 = *t46*t94)+t14*t47*(-1.6672336067107812d-1*rhoa*rhob*t26*t 3306 > 41*t44*wght-1.6672336067107812d-1*rhoa*rhob*t104*t17*t41* 3307 ? wght-1.6672336067107812d-1*rhoa*rhob*t137*t17*t26*wght-2* 3308 @ t46*t98)+t18*t25*(-1.6672336067107812d-1*rhoa*rhob*t24*t4 3309 1 1*t44*wght-1.6672336067107812d-1*rhoa*rhob*t26*t40*t44*wg 3310 2 ht-1.6672336067107812d-1*rhoa*rhob*t102*t17*t41*wght-1.66 3311 3 72336067107812d-1*rhoa*rhob*t104*t17*t40*wght-1.667233606 3312 4 7107812d-1*rhoa*rhob*t135*t17*t26*wght-1.6672336067107812 3313 5 d-1*rhoa*rhob*t137*t17*t24*wght-2.0d+0*t45*t98-t46*t96)+t 3314 6 16*t49*(-5.001700820132344d-1*rhoa*rhob*t24*t40*t44*wght- 3315 7 5.001700820132344d-1*rhoa*rhob*t102*t17*t40*wght-5.001700 3316 8 820132344d-1*rhoa*rhob*t135*t17*t24*wght-3.0d+0*t45*t96)+ 3317 9 5.001700820132344d-1*rhoa*rhob*t14*t149*t17*t26*t41*t46*w 3318 : ght+2.0006803280529378d+0*rhoa*rhob*t150*t16*t17*t24*t40* 3319 ; t45*wght+Cmat3(iq,D3_RA_GAA_GBB) 3320 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 3321 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 3322 Cmat3(iq,D3_RA_GBB_GBB) = t14*t25*(8.336168033553906d-2*rhoa 3323 1 *rhob*t17*(2.3991838839497967d+1*t1*t11*t192*t4*t5*t8*t9+ 3324 2 2.168357784827018d-3*t1*t114*t24*t4*t5*t52*t77*t8+1.17740 3325 3 53387685064d-4*t1*t114*t21*t4*t52*t77*t8-3.40232901599604 3326 4 5d-6*gammaaa*t1*t114*t19*t20*t52*t77*t8-1.059664804891655 3327 5 8d-3*t1*t114*t152*t22*t4*t5*t77*t8-4.7213132654499207d-4* 3328 6 t1*t141*t22*t4*t5*t52*t75*t8+1.4491605732048626d-3*t1*t14 3329 7 1*t23*t24*t4*t5*t75*t8+7.868855442416534d-5*t1*t141*t21*t 3330 8 23*t4*t75*t8-2.2738503311369804d-6*gammaaa*t1*t141*t19*t2 3331 9 0*t23*t75*t8-3.225612826113532d-1*t1*t102*t23*t29*t4*t43* 3332 : t5*t8-7.786783946947111d-4*t1*t11*t140*t24*t4*t5*t75+1.26 3333 ; 8453166049416d-4*t1*t140*t22*t23*t4*t5*t75-4.228177220164 3334 < 72d-5*t1*t11*t140*t21*t4*t75+1.2218094794768326d-6*gammaa 3335 = a*t1*t11*t140*t19*t20*t75+3.795935865421737d-4*t1*t114*t1 3336 > 41*t22*t4*t5*t52+1.7332206408224463d-1*t1*t102*t11*t29*t4 3337 ? *t42*t5-1.1651251008567096d-3*t1*t114*t141*t23*t24*t4*t5- 3338 @ 6.326559775702894d-5*t1*t114*t141*t21*t23*t4+1.8281756662 3339 1 341322d-6*gammaaa*t1*t114*t141*t19*t20*t23)*wght+1.667233 3340 2 6067107812d-1*rhoa*rhob*t104*t44*wght+8.336168033553906d- 3341 3 2*rhoa*rhob*t142*t26*wght-2*t100*t46-t147*t28)+t14*t16*(- 3342 4 8.336168033553906d-2*rhoa*rhob*(1.5874729549826355d-4*t1* 3343 5 t114*t21*t4*t52*t77*t8-4.587294722559716d-6*gammaaa*t1*t1 3344 6 14*t19*t20*t52*t77*t8-1.4287256594843722d-3*t1*t114*t152* 3345 7 t22*t4*t5*t77*t8-6.365655797638701d-4*t1*t141*t22*t4*t5*t 3346 8 52*t75*t8+1.0609426329397834d-4*t1*t141*t21*t23*t4*t75*t8 3347 9 -3.0657886332788037d-6*gammaaa*t1*t141*t19*t20*t23*t75*t8 3348 : +1.71023098797198d-4*t1*t140*t22*t23*t4*t5*t75-5.70076995 3349 ; 9906599d-5*t1*t11*t140*t21*t4*t75+1.6473422031868606d-6*g 3350 < ammaaa*t1*t11*t140*t19*t20*t75+5.117987261301516d-4*t1*t1 3351 = 14*t141*t22*t4*t5*t52-8.529978768835859d-5*t1*t114*t141*t 3352 > 21*t23*t4+2.4648940611561584d-6*gammaaa*t1*t114*t141*t19* 3353 ? t20*t23)*wght-8.336168033553906d-2*rhob*t142*wght)+t18*t4 3354 @ 7*(3.3344672134215625d-1*rhoa*rhob*t17*t26*t45*t46*wght-2 3355 1 *t101*t46)+t25*t49*(5.001700820132344d-1*rhoa*rhob*t17*t2 3356 2 4*t45*t46*wght-3.0d+0*t101*t45)+t14*t47*(-1.6672336067107 3357 3 812d-1*rhoa*rhob*t26*t44*t46*wght-1.6672336067107812d-1*r 3358 4 hoa*rhob*t104*t17*t46*wght-1.6672336067107812d-1*rhoa*rho 3359 5 b*t147*t17*t26*wght-2*t105*t46)+t18*t25*(-1.6672336067107 3360 6 812d-1*rhoa*rhob*t24*t44*t46*wght-1.6672336067107812d-1*r 3361 7 hoa*rhob*t102*t17*t46*wght-1.6672336067107812d-1*rhoa*rho 3362 8 b*t26*t44*t45*wght-1.6672336067107812d-1*rhoa*rhob*t104*t 3363 9 17*t45*wght-1.6672336067107812d-1*rhoa*rhob*t145*t17*t26* 3364 : wght-1.6672336067107812d-1*rhoa*rhob*t147*t17*t24*wght-t1 3365 ; 03*t46-2.0d+0*t105*t45)+t16*t49*(-5.001700820132344d-1*rh 3366 < oa*rhob*t24*t44*t45*wght-5.001700820132344d-1*rhoa*rhob*t 3367 = 102*t17*t45*wght-5.001700820132344d-1*rhoa*rhob*t145*t17* 3368 > t24*wght-3.0d+0*t103*t45)+t16*t18*(3.3344672134215625d-1* 3369 ? rhoa*rhob*t102*t44*wght+1.6672336067107812d-1*rhoa*rhob*t 3370 @ 142*t24*wght+1.6672336067107812d-1*rhoa*rhob*t17*t192*wgh 3371 1 t-4.0d+0*t100*t45-2.0d+0*t145*t28)+5.001700820132344d-1*r 3372 2 hoa*rhob*t14*t143*t149*t17*t26*wght+2.0006803280529378d+0 3373 3 *rhoa*rhob*t144*t150*t16*t17*t24*wght+Cmat3(iq,D3_RA_GBB_ 3374 4 GBB) 3375 Cmat3(iq,D3_RB_GAA_GAA) = t14*t25*(8.336168033553906d-2*rhoa 3376 1 *rhob*t17*(2.168357784827018d-3*t1*t33*t4*t52*t56*t8*t87* 3377 2 t9-1.0596648048916558d-3*t1*t152*t32*t4*t56*t8*t87*t9+3.7 3378 3 95935865421737d-4*t1*t125*t32*t52*t8*t87*t9-1.16512510085 3379 4 67096d-3*t1*t125*t23*t33*t8*t87*t9-4.7213132654499207d-4* 3380 5 t1*t125*t32*t4*t52*t54*t8*t9+1.4491605732048626d-3*t1*t12 3381 6 5*t23*t33*t4*t54*t8*t9-7.786783946947111d-4*t1*t11*t126*t 3382 7 33*t54*t8*t9+1.268453166049416d-4*t1*t126*t23*t32*t54*t8* 3383 8 t9+2.3991838839497967d+1*t1*t11*t193*t4*t5*t8*t9-3.225612 3384 9 826113532d-1*t1*t109*t19*t23*t37*t4*t8*t9+1.7332206408224 3385 : 463d-1*t1*t109*t11*t19*t38*t8*t9+1.1774053387685064d-4*t1 3386 ; *t31*t4*t52*t56*t8*t87-6.326559775702894d-5*t1*t125*t23*t 3387 < 31*t8*t87-3.402329015996045d-6*gammabb*t1*t29*t30*t4*t52* 3388 = t56*t87+1.8281756662341322d-6*gammabb*t1*t125*t23*t29*t30 3389 > *t87+7.868855442416534d-5*t1*t125*t23*t31*t4*t54*t8-4.228 3390 ? 17722016472d-5*t1*t11*t126*t31*t54*t8-2.2738503311369804d 3391 @ -6*gammabb*t1*t125*t23*t29*t30*t4*t54+1.2218094794768326d 3392 1 -6*gammabb*t1*t11*t126*t29*t30*t54)*wght+1.66723360671078 3393 2 12d-1*rhoa*rhob*t111*t39*wght+8.336168033553906d-2*rhoa*r 3394 3 hob*t127*t34*wght-2*t107*t41-t132*t36)+t14*t16*(-8.336168 3395 4 033553906d-2*rhoa*rhob*(-1.4287256594843722d-3*t1*t152*t3 3396 5 2*t4*t56*t8*t87*t9+5.117987261301516d-4*t1*t125*t32*t52*t 3397 6 8*t87*t9-6.365655797638701d-4*t1*t125*t32*t4*t52*t54*t8*t 3398 7 9+1.71023098797198d-4*t1*t126*t23*t32*t54*t8*t9+1.5874729 3399 8 549826355d-4*t1*t31*t4*t52*t56*t8*t87-8.529978768835859d- 3400 9 5*t1*t125*t23*t31*t8*t87-4.587294722559716d-6*gammabb*t1* 3401 : t29*t30*t4*t52*t56*t87+2.4648940611561584d-6*gammabb*t1*t 3402 ; 125*t23*t29*t30*t87+1.0609426329397834d-4*t1*t125*t23*t31 3403 < *t4*t54*t8-5.700769959906599d-5*t1*t11*t126*t31*t54*t8-3. 3404 = 0657886332788037d-6*gammabb*t1*t125*t23*t29*t30*t4*t54+1. 3405 > 6473422031868606d-6*gammabb*t1*t11*t126*t29*t30*t54)*wght 3406 ? -8.336168033553906d-2*rhoa*t127*wght)+t18*t47*(3.33446721 3407 @ 34215625d-1*rhoa*rhob*t17*t34*t40*t41*wght-2*t108*t41)+t2 3408 1 5*t49*(5.001700820132344d-1*rhoa*rhob*t17*t33*t40*t41*wgh 3409 2 t-3.0d+0*t108*t40)+t14*t47*(-1.6672336067107812d-1*rhoa*r 3410 3 hob*t34*t39*t41*wght-1.6672336067107812d-1*rhoa*rhob*t111 3411 4 *t17*t41*wght-1.6672336067107812d-1*rhoa*rhob*t132*t17*t3 3412 5 4*wght-2*t112*t41)+t18*t25*(-1.6672336067107812d-1*rhoa*r 3413 6 hob*t33*t39*t41*wght-1.6672336067107812d-1*rhoa*rhob*t109 3414 7 *t17*t41*wght-1.6672336067107812d-1*rhoa*rhob*t34*t39*t40 3415 8 *wght-1.6672336067107812d-1*rhoa*rhob*t111*t17*t40*wght-1 3416 9 .6672336067107812d-1*rhoa*rhob*t130*t17*t34*wght-1.667233 3417 : 6067107812d-1*rhoa*rhob*t132*t17*t33*wght-t110*t41-2.0d+0 3418 ; *t112*t40)+t16*t49*(-5.001700820132344d-1*rhoa*rhob*t33*t 3419 < 39*t40*wght-5.001700820132344d-1*rhoa*rhob*t109*t17*t40*w 3420 = ght-5.001700820132344d-1*rhoa*rhob*t130*t17*t33*wght-3.0d 3421 > +0*t110*t40)+t16*t18*(3.3344672134215625d-1*rhoa*rhob*t10 3422 ? 9*t39*wght+1.6672336067107812d-1*rhoa*rhob*t127*t33*wght+ 3423 @ 1.6672336067107812d-1*rhoa*rhob*t17*t193*wght-4.0d+0*t107 3424 1 *t40-2.0d+0*t130*t36)+5.001700820132344d-1*rhoa*rhob*t128 3425 2 *t14*t149*t17*t34*wght+2.0006803280529378d+0*rhoa*rhob*t1 3426 3 29*t150*t16*t17*t33*wght+Cmat3(iq,D3_RB_GAA_GAA) 3427 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 3428 Cmat3(iq,D3_RB_GAA_GBB) = t14*t16*(-8.336168033553906d-2*rho 3429 1 a*rhob*(7.084494764468265d-2*t1*t117*t19*t37*t4*t52*t8*t9 3430 2 -1.9033580930991081d-2*t1*t117*t19*t23*t38*t8*t9+2.558993 3431 3 630650758d-4*t1*t19*t29*t32*t38*t43*t52*t8+1.587472954982 3432 4 6355d-4*t1*t116*t19*t29*t37*t4*t52*t8-1.4287256594843722d 3433 5 -3*t1*t152*t19*t29*t32*t37*t4*t43*t8-4.2649893844179293d- 3434 6 5*t1*t116*t19*t23*t29*t38*t8-3.0657886332788037d-6*gammab 3435 7 b*t1*t113*t19*t23*t37*t4*t75+1.6473422031868606d-6*gammab 3436 8 b*t1*t11*t113*t19*t38*t75+2.558993630650758d-4*t1*t19*t29 3437 9 *t32*t37*t4*t42*t52-4.587294722559716d-6*gammabb*t1*t114* 3438 : t115*t19*t37*t4*t52-6.875128571647359d-5*t1*t19*t23*t29*t 3439 ; 32*t38*t42+2.9854925690925505d-4*t1*t19*t23*t29*t30*t37*t 3440 < 4-1.6041966667177168d-4*t1*t11*t19*t29*t30*t38+1.23244703 3441 = 05780794d-6*gammabb*t1*t114*t115*t19*t23*t38)*wght-8.3361 3442 > 68033553906d-2*rhoa*t134*wght)+t14*t25*(8.336168033553906 3443 ? d-2*rhoa*rhob*t17*(5.254465552928875d-2*t1*t117*t19*t37*t 3444 @ 4*t52*t8*t9+2.3991838839497967d+1*t1*t11*t194*t4*t5*t8*t9 3445 1 -1.612806413056766d-1*t1*t121*t19*t23*t37*t4*t8*t9-1.4116 3446 2 926989963413d-2*t1*t117*t19*t23*t38*t8*t9+8.6661032041122 3447 3 31d-2*t1*t11*t121*t19*t38*t8*t9+2.168357784827018d-3*t1*t 3448 4 19*t29*t33*t37*t4*t43*t52*t8+1.8979679327108684d-4*t1*t19 3449 5 *t29*t32*t38*t43*t52*t8+1.1774053387685064d-4*t1*t116*t19 3450 6 *t29*t37*t4*t52*t8-1.612806413056766d-1*t1*t109*t23*t29*t 3451 7 4*t43*t5*t8-1.0596648048916558d-3*t1*t152*t19*t29*t32*t37 3452 8 *t4*t43*t8-5.825625504283547d-4*t1*t19*t23*t29*t33*t38*t4 3453 9 3*t8-3.163279887851447d-5*t1*t116*t19*t23*t29*t38*t8-2.27 3454 : 38503311369804d-6*gammabb*t1*t113*t19*t23*t37*t4*t75+1.22 3455 ; 18094794768326d-6*gammabb*t1*t11*t113*t19*t38*t75+1.89796 3456 < 79327108684d-4*t1*t19*t29*t32*t37*t4*t42*t52-3.4023290159 3457 = 96045d-6*gammabb*t1*t114*t115*t19*t37*t4*t52+8.6661032041 3458 > 12231d-2*t1*t109*t11*t29*t4*t42*t5-5.825625504283548d-4*t 3459 ? 1*t19*t23*t29*t33*t37*t4*t42+3.130287146672739d-4*t1*t11* 3460 @ t19*t29*t33*t38*t42-5.099181727518654d-5*t1*t19*t23*t29*t 3461 1 32*t38*t42+2.2142959214960126d-4*t1*t19*t23*t29*t30*t37*t 3462 2 4-1.1898090697543524d-4*t1*t11*t19*t29*t30*t38+9.14087833 3463 3 1170663d-7*gammabb*t1*t114*t115*t19*t23*t38)*wght+8.33616 3464 4 8033553906d-2*rhoa*rhob*t111*t44*wght+8.336168033553906d- 3465 5 2*rhoa*rhob*t123*t39*wght+8.336168033553906d-2*rhoa*rhob* 3466 6 t134*t34*wght-t107*t46-t119*t41-t137*t36)+t25*t49*(5.0017 3467 7 00820132344d-1*rhoa*rhob*t17*t33*t40*t46*wght-3.0d+0*t108 3468 8 *t45)+t18*t47*(3.3344672134215625d-1*rhoa*rhob*t17*t34*t4 3469 9 1*t45*wght-2*t108*t46)+t14*t47*(-1.6672336067107812d-1*rh 3470 : oa*rhob*t34*t41*t44*wght-1.6672336067107812d-1*rhoa*rhob* 3471 ; t123*t17*t41*wght-1.6672336067107812d-1*rhoa*rhob*t137*t1 3472 < 7*t34*wght-2*t112*t46)+t18*t25*(-1.6672336067107812d-1*rh 3473 = oa*rhob*t33*t41*t44*wght-1.6672336067107812d-1*rhoa*rhob* 3474 > t34*t40*t44*wght-1.6672336067107812d-1*rhoa*rhob*t121*t17 3475 ? *t41*wght-1.6672336067107812d-1*rhoa*rhob*t123*t17*t40*wg 3476 @ ht-1.6672336067107812d-1*rhoa*rhob*t135*t17*t34*wght-1.66 3477 1 72336067107812d-1*rhoa*rhob*t137*t17*t33*wght-t110*t46-2. 3478 2 0d+0*t112*t45)+t16*t49*(-5.001700820132344d-1*rhoa*rhob*t 3479 3 33*t40*t44*wght-5.001700820132344d-1*rhoa*rhob*t121*t17*t 3480 4 40*wght-5.001700820132344d-1*rhoa*rhob*t135*t17*t33*wght- 3481 5 3.0d+0*t110*t45)+t16*t18*(1.6672336067107812d-1*rhoa*rhob 3482 6 *t109*t44*wght+1.6672336067107812d-1*rhoa*rhob*t121*t39*w 3483 7 ght+1.6672336067107812d-1*rhoa*rhob*t134*t33*wght+1.66723 3484 8 36067107812d-1*rhoa*rhob*t17*t194*wght-2.0d+0*t107*t45-2. 3485 9 0d+0*t119*t40-2.0d+0*t135*t36)+5.001700820132344d-1*rhoa* 3486 : rhob*t14*t149*t17*t34*t41*t46*wght+2.0006803280529378d+0* 3487 ; rhoa*rhob*t150*t16*t17*t33*t40*t45*wght+Cmat3(iq,D3_RB_GA 3488 < A_GBB) 3489 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 3490 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 3491 Cmat3(iq,D3_RB_GBB_GBB) = t14*t25*(8.336168033553906d-2*rhoa 3492 1 *rhob*t17*(-3.908227599821866d+0*t1*t198*t23*t4*t5*t8*t9+ 3493 2 2.3991838839497967d+1*t1*t11*t199*t4*t5*t8*t9+2.168357784 3494 3 827018d-3*t1*t114*t33*t4*t5*t52*t77*t8-1.0596648048916558 3495 4 d-3*t1*t114*t152*t32*t4*t5*t77*t8-4.7213132654499207d-4*t 3496 5 1*t141*t32*t4*t5*t52*t75*t8+1.4491605732048626d-3*t1*t141 3497 6 *t23*t33*t4*t5*t75*t8+7.868855442416534d-5*t1*t115*t23*t4 3498 7 *t5*t75*t8+1.050893110585775d-1*t1*t117*t29*t4*t43*t5*t52 3499 8 *t8+1.1774053387685064d-4*t1*t114*t164*t4*t5*t52*t8-3.225 3500 9 612826113532d-1*t1*t121*t23*t29*t4*t43*t5*t8-7.7867839469 3501 : 47111d-4*t1*t11*t140*t33*t4*t5*t75+1.268453166049416d-4*t 3502 ; 1*t140*t23*t32*t4*t5*t75+6.34226583024708d-4*t1*t11*t113* 3503 < t4*t5*t75+3.795935865421737d-4*t1*t114*t141*t32*t4*t5*t52 3504 = -3.402329015996045d-6*gammabb*t1*t163*t197*t4*t5*t52-2.82 3505 > 33853979926826d-2*t1*t117*t23*t29*t4*t42*t5+1.73322064082 3506 ? 24463d-1*t1*t11*t121*t29*t4*t42*t5-1.1651251008567096d-3* 3507 @ t1*t114*t141*t23*t33*t4*t5-6.821550993410941d-6*gammabb*t 3508 1 1*t180*t196*t23*t4*t5+4.4285918429920257d-4*t1*t114*t115* 3509 2 t23*t4*t5-4.558990595062808d-6*gammabb*t1*t11*t114*t195*t 3510 3 4*t5)*wght+1.6672336067107812d-1*rhoa*rhob*t123*t44*wght+ 3511 4 8.336168033553906d-2*rhoa*rhob*t142*t34*wght-2*t119*t46-t 3512 5 147*t36)+t14*t16*(-8.336168033553906d-2*rhoa*rhob*(-5.269 3513 6 388045346497d+0*t1*t198*t23*t4*t5*t8*t9-1.428725659484372 3514 7 2d-3*t1*t114*t152*t32*t4*t5*t77*t8-6.365655797638701d-4*t 3515 8 1*t141*t32*t4*t5*t52*t75*t8+1.0609426329397834d-4*t1*t115 3516 9 *t23*t4*t5*t75*t8+1.4168989528936532d-1*t1*t117*t29*t4*t4 3517 : 3*t5*t52*t8+1.5874729549826355d-4*t1*t114*t164*t4*t5*t52* 3518 ; t8+1.71023098797198d-4*t1*t140*t23*t32*t4*t5*t75+8.551154 3519 < 939859897d-4*t1*t11*t113*t4*t5*t75+5.117987261301516d-4*t 3520 = 1*t114*t141*t32*t4*t5*t52-4.587294722559716d-6*gammabb*t1 3521 > *t163*t197*t4*t5*t52-3.8067161861982163d-2*t1*t117*t23*t2 3522 ? 9*t4*t42*t5-9.197365899836413d-6*gammabb*t1*t180*t196*t23 3523 @ *t4*t5+5.970985138185101d-4*t1*t114*t115*t23*t4*t5-6.1467 3524 1 99265622613d-6*gammabb*t1*t11*t114*t195*t4*t5)*wght-8.336 3525 2 168033553906d-2*rhoa*t142*wght)+t18*t47*(3.33446721342156 3526 3 25d-1*rhoa*rhob*t17*t34*t45*t46*wght-2*t120*t46)+t25*t49* 3527 4 (5.001700820132344d-1*rhoa*rhob*t17*t33*t45*t46*wght-3.0d 3528 5 +0*t120*t45)+t14*t47*(-1.6672336067107812d-1*rhoa*rhob*t3 3529 6 4*t44*t46*wght-1.6672336067107812d-1*rhoa*rhob*t123*t17*t 3530 7 46*wght-1.6672336067107812d-1*rhoa*rhob*t147*t17*t34*wght 3531 8 -2*t124*t46)+t18*t25*(-1.6672336067107812d-1*rhoa*rhob*t3 3532 9 3*t44*t46*wght-1.6672336067107812d-1*rhoa*rhob*t121*t17*t 3533 : 46*wght-1.6672336067107812d-1*rhoa*rhob*t34*t44*t45*wght- 3534 ; 1.6672336067107812d-1*rhoa*rhob*t123*t17*t45*wght-1.66723 3535 < 36067107812d-1*rhoa*rhob*t145*t17*t34*wght-1.667233606710 3536 = 7812d-1*rhoa*rhob*t147*t17*t33*wght-t122*t46-2.0d+0*t124* 3537 > t45)+t16*t49*(-5.001700820132344d-1*rhoa*rhob*t33*t44*t45 3538 ? *wght-5.001700820132344d-1*rhoa*rhob*t121*t17*t45*wght-5. 3539 @ 001700820132344d-1*rhoa*rhob*t145*t17*t33*wght-3.0d+0*t12 3540 1 2*t45)+t16*t18*(3.3344672134215625d-1*rhoa*rhob*t121*t44* 3541 2 wght+1.6672336067107812d-1*rhoa*rhob*t142*t33*wght+1.6672 3542 3 336067107812d-1*rhoa*rhob*t17*t199*wght-4.0d+0*t119*t45-2 3543 4 .0d+0*t145*t36)+5.001700820132344d-1*rhoa*rhob*t14*t143*t 3544 5 149*t17*t34*wght+2.0006803280529378d+0*rhoa*rhob*t144*t15 3545 6 0*t16*t17*t33*wght+Cmat3(iq,D3_RB_GBB_GBB) 3546 Cmat3(iq,D3_GAA_GAA_GAA) = t14*t25*(8.336168033553906d-2*rho 3547 1 a*rhob*t17*(2.168357784827018d-3*t1*t4*t40*t52*t56*t8*t87 3548 2 *t9-1.1651251008567096d-3*t1*t125*t23*t40*t8*t87*t9-3.181 3549 3 693560359581d-6*t1*t200*t23*t4*t8*t87*t9+1.70962147314855 3550 4 32d-6*t1*t11*t201*t8*t87*t9-9.521443141779977d-6*t1*t168* 3551 5 t4*t52*t55*t8*t9+3.827620142995552d-6*t1*t186*t52*t55*t8* 3552 6 t9+1.4491605732048626d-3*t1*t125*t23*t4*t40*t54*t8*t9-7.7 3553 7 86783946947111d-4*t1*t11*t126*t40*t54*t8*t9+2.39918388394 3554 8 97967d+1*t1*t11*t202*t4*t5*t8*t9-3.225612826113532d-1*t1* 3555 9 t130*t19*t23*t37*t4*t8*t9-7.123398104051166d-6*t1*t152*t1 3556 : 70*t186*t4*t8*t9+1.7332206408224463d-1*t1*t11*t130*t19*t3 3557 ; 8*t8*t9+5.116163245058206d-6*t1*t168*t200*t23*t8*t9)*wght 3558 < +2.500850410066172d-1*rhoa*rhob*t127*t41*wght+2.500850410 3559 = 066172d-1*rhoa*rhob*t132*t39*wght)+t18*t25*(-3.3344672134 3560 > 215625d-1*rhoa*rhob*t39*t40*t41*wght-3.3344672134215625d- 3561 ? 1*rhoa*rhob*t130*t17*t41*wght-3.3344672134215625d-1*rhoa* 3562 @ rhob*t132*t17*t40*wght-t131*t41-2.0d+0*t133*t40)+t14*t47* 3563 1 (-3.3344672134215625d-1*rhoa*rhob*t132*t17*t41*wght-1.667 3564 2 2336067107812d-1*rhoa*rhob*t128*t39*wght-2*t133*t41)+t16* 3565 3 t49*(-1.0003401640264689d+0*rhoa*rhob*t130*t17*t40*wght-5 3566 4 .001700820132344d-1*rhoa*rhob*t129*t39*wght-3.0d+0*t131*t 3567 5 40)+t16*t18*(5.001700820132344d-1*rhoa*rhob*t127*t40*wght 3568 6 +5.001700820132344d-1*rhoa*rhob*t130*t39*wght+1.667233606 3569 7 7107812d-1*rhoa*rhob*t17*t202*wght)-8.336168033553906d-2* 3570 8 rhoa*rhob*t14*t16*(-4.2898161846251925d-6*t1*t200*t23*t4* 3571 9 t8*t87*t9+2.3050497246084803d-6*t1*t11*t201*t8*t87*t9-1.2 3572 : 837578514626072d-5*t1*t168*t4*t52*t55*t8*t9+5.16070656287 3573 ; 9681d-6*t1*t186*t52*t55*t8*t9-9.604340549010496d-6*t1*t15 3574 < 2*t170*t186*t4*t8*t9+6.898024424877311d-6*t1*t168*t200*t2 3575 = 3*t8*t9)*wght+1.5005102460397032d+0*rhoa*rhob*t129*t17*t2 3576 > 5*t41*t49*wght+1.0003401640264689d+0*rhoa*rhob*t128*t17*t 3577 ? 18*t40*t47*wght+5.001700820132344d-1*rhoa*rhob*t14*t149*t 3578 @ 17*t41**3*wght+2.0006803280529378d+0*rhoa*rhob*t150*t16*t 3579 1 17*t40**3*wght+Cmat3(iq,D3_GAA_GAA_GAA) 3580 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 3581 Cmat3(iq,D3_GAA_GAA_GBB) = t14*t25*(8.336168033553906d-2*rho 3582 1 a*rhob*t17*(2.3991838839497967d+1*t1*t11*t203*t4*t5*t8*t9 3583 2 -1.612806413056766d-1*t1*t135*t19*t23*t37*t4*t8*t9+8.6661 3584 3 03204112231d-2*t1*t11*t135*t19*t38*t8*t9-7.12339810405116 3585 4 6d-6*t1*t152*t29*t4*t43*t56*t8*t87+2.551746761997034d-6*t 3586 5 1*t125*t29*t43*t52*t8*t87+1.275873380998517d-6*t1*t29*t4* 3587 6 t42*t52*t56*t87-6.855658748377997d-7*t1*t125*t23*t29*t42* 3588 7 t87-3.173814380593326d-6*t1*t125*t29*t4*t43*t52*t54*t8+8. 3589 8 526938741763678d-7*t1*t126*t23*t29*t43*t54*t8+2.168357784 3590 9 827018d-3*t1*t19*t29*t37*t4*t40*t43*t52*t8-1.612806413056 3591 : 766d-1*t1*t130*t23*t29*t4*t43*t5*t8-5.825625504283547d-4* 3592 ; t1*t19*t23*t29*t38*t40*t43*t8+8.526938741763678d-7*t1*t12 3593 < 5*t23*t29*t4*t42*t54-4.581785548038123d-7*t1*t11*t126*t29 3594 = *t42*t54+8.666103204112231d-2*t1*t11*t130*t29*t4*t42*t5-5 3595 > .825625504283548d-4*t1*t19*t23*t29*t37*t4*t40*t42+3.13028 3596 ? 7146672739d-4*t1*t11*t19*t29*t38*t40*t42)*wght+8.33616803 3597 @ 3553906d-2*rhoa*rhob*t127*t46*wght+8.336168033553906d-2*r 3598 1 hoa*rhob*t132*t44*wght+1.6672336067107812d-1*rhoa*rhob*t1 3599 2 34*t41*wght+1.6672336067107812d-1*rhoa*rhob*t137*t39*wght 3600 3 )+t18*t47*(6.668934426843125d-1*rhoa*rhob*t17*t40*t41*t46 3601 4 *wght+3.3344672134215625d-1*rhoa*rhob*t128*t17*t45*wght)+ 3602 5 t25*t49*(5.001700820132344d-1*rhoa*rhob*t129*t17*t46*wght 3603 6 +1.0003401640264689d+0*rhoa*rhob*t17*t40*t41*t45*wght)+t1 3604 7 6*t18*(1.6672336067107812d-1*rhoa*rhob*t127*t45*wght+1.66 3605 8 72336067107812d-1*rhoa*rhob*t130*t44*wght+3.3344672134215 3606 9 625d-1*rhoa*rhob*t134*t40*wght+3.3344672134215625d-1*rhoa 3607 : *rhob*t135*t39*wght+1.6672336067107812d-1*rhoa*rhob*t17*t 3608 ; 203*wght)+t18*t25*(-3.3344672134215625d-1*rhoa*rhob*t40*t 3609 < 41*t44*wght-3.3344672134215625d-1*rhoa*rhob*t135*t17*t41* 3610 = wght-3.3344672134215625d-1*rhoa*rhob*t137*t17*t40*wght-t1 3611 > 31*t46-2.0d+0*t133*t45)+t16*t49*(-5.001700820132344d-1*rh 3612 ? oa*rhob*t129*t44*wght-1.0003401640264689d+0*rhoa*rhob*t13 3613 @ 5*t17*t40*wght-3.0d+0*t131*t45)+t14*t47*(-1.6672336067107 3614 1 812d-1*rhoa*rhob*t128*t44*wght-3.3344672134215625d-1*rhoa 3615 2 *rhob*t137*t17*t41*wght-2*t133*t46)-8.336168033553906d-2* 3616 3 rhoa*rhob*t14*t16*(-9.604340549010496d-6*t1*t152*t29*t4*t 3617 4 43*t56*t8*t87+3.4404710419197876d-6*t1*t125*t29*t43*t52*t 3618 5 8*t87+1.7202355209598938d-6*t1*t29*t4*t42*t52*t56*t87-9.2 3619 6 43352729335597d-7*t1*t125*t23*t29*t42*t87-4.2791928382086 3620 7 9d-6*t1*t125*t29*t4*t43*t52*t54*t8+1.1496707374795517d-6* 3621 8 t1*t126*t23*t29*t43*t54*t8+1.1496707374795517d-6*t1*t125* 3622 9 t23*t29*t4*t42*t54-6.177533261950727d-7*t1*t11*t126*t29*t 3623 : 42*t54)*wght+5.001700820132344d-1*rhoa*rhob*t128*t14*t149 3624 ; *t17*t46*wght+2.0006803280529378d+0*rhoa*rhob*t129*t150*t 3625 < 16*t17*t45*wght+Cmat3(iq,D3_GAA_GAA_GBB) 3626 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 3627 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 3628 Cmat3(iq,D3_GAA_GBB_GBB) = t14*t25*(8.336168033553906d-2*rho 3629 1 a*rhob*t17*(2.3991838839497967d+1*t1*t11*t204*t4*t5*t8*t9 3630 2 +2.168357784827018d-3*t1*t114*t4*t40*t5*t52*t77*t8+1.2758 3631 3 73380998517d-6*t1*t114*t19*t38*t52*t77*t8-7.1233981040511 3632 4 66d-6*t1*t114*t152*t19*t37*t4*t77*t8-3.173814380593326d-6 3633 5 *t1*t141*t19*t37*t4*t52*t75*t8+1.4491605732048626d-3*t1*t 3634 6 141*t23*t4*t40*t5*t75*t8+8.526938741763679d-7*t1*t141*t19 3635 7 *t23*t38*t75*t8-3.225612826113532d-1*t1*t135*t23*t29*t4*t 3636 8 43*t5*t8-7.786783946947111d-4*t1*t11*t140*t4*t40*t5*t75+8 3637 9 .526938741763679d-7*t1*t140*t19*t23*t37*t4*t75-4.58178554 3638 : 8038123d-7*t1*t11*t140*t19*t38*t75+2.551746761997034d-6*t 3639 ; 1*t114*t141*t19*t37*t4*t52+1.7332206408224463d-1*t1*t11*t 3640 < 135*t29*t4*t42*t5-1.1651251008567096d-3*t1*t114*t141*t23* 3641 = t4*t40*t5-6.855658748377997d-7*t1*t114*t141*t19*t23*t38)* 3642 > wght+1.6672336067107812d-1*rhoa*rhob*t134*t46*wght+1.6672 3643 ? 336067107812d-1*rhoa*rhob*t137*t44*wght+8.336168033553906 3644 @ d-2*rhoa*rhob*t142*t41*wght+8.336168033553906d-2*rhoa*rho 3645 1 b*t147*t39*wght)+t18*t47*(3.3344672134215625d-1*rhoa*rhob 3646 2 *t17*t41*t45*t46*wght-2*t139*t46)+t25*t49*(5.001700820132 3647 3 344d-1*rhoa*rhob*t17*t40*t45*t46*wght-3.0d+0*t139*t45)+t1 3648 4 4*t47*(-1.6672336067107812d-1*rhoa*rhob*t41*t44*t46*wght- 3649 5 1.6672336067107812d-1*rhoa*rhob*t137*t17*t46*wght-1.66723 3650 6 36067107812d-1*rhoa*rhob*t147*t17*t41*wght-2*t138*t46)+t1 3651 7 8*t25*(-1.6672336067107812d-1*rhoa*rhob*t40*t44*t46*wght- 3652 8 1.6672336067107812d-1*rhoa*rhob*t135*t17*t46*wght-1.66723 3653 9 36067107812d-1*rhoa*rhob*t41*t44*t45*wght-1.6672336067107 3654 : 812d-1*rhoa*rhob*t137*t17*t45*wght-1.6672336067107812d-1* 3655 ; rhoa*rhob*t145*t17*t41*wght-1.6672336067107812d-1*rhoa*rh 3656 < ob*t147*t17*t40*wght-t136*t46-2.0d+0*t138*t45)+t16*t49*(- 3657 = 5.001700820132344d-1*rhoa*rhob*t40*t44*t45*wght-5.0017008 3658 > 20132344d-1*rhoa*rhob*t135*t17*t45*wght-5.001700820132344 3659 ? d-1*rhoa*rhob*t145*t17*t40*wght-3.0d+0*t136*t45)+t16*t18* 3660 @ (3.3344672134215625d-1*rhoa*rhob*t134*t45*wght+3.33446721 3661 1 34215625d-1*rhoa*rhob*t135*t44*wght+1.6672336067107812d-1 3662 2 *rhoa*rhob*t142*t40*wght+1.6672336067107812d-1*rhoa*rhob* 3663 3 t145*t39*wght+1.6672336067107812d-1*rhoa*rhob*t17*t204*wg 3664 4 ht)-8.336168033553906d-2*rhoa*rhob*t14*t16*(1.72023552095 3665 5 98938d-6*t1*t114*t19*t38*t52*t77*t8-9.604340549010496d-6* 3666 6 t1*t114*t152*t19*t37*t4*t77*t8-4.2791928382086913d-6*t1*t 3667 7 141*t19*t37*t4*t52*t75*t8+1.1496707374795517d-6*t1*t141*t 3668 8 19*t23*t38*t75*t8+1.1496707374795517d-6*t1*t140*t19*t23*t 3669 9 37*t4*t75-6.177533261950726d-7*t1*t11*t140*t19*t38*t75+3. 3670 : 4404710419197876d-6*t1*t114*t141*t19*t37*t4*t52-9.2433527 3671 ; 29335595d-7*t1*t114*t141*t19*t23*t38)*wght+5.001700820132 3672 < 344d-1*rhoa*rhob*t14*t143*t149*t17*t41*wght+2.00068032805 3673 = 29378d+0*rhoa*rhob*t144*t150*t16*t17*t40*wght+Cmat3(iq,D3 3674 > _GAA_GBB_GBB) 3675 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 3676 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 3677 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 3678 Cmat3(iq,D3_GBB_GBB_GBB) = t14*t25*(8.336168033553906d-2*rho 3679 1 a*rhob*t17*(2.3991838839497967d+1*t1*t11*t207*t4*t5*t8*t9 3680 2 +2.168357784827018d-3*t1*t114*t4*t45*t5*t52*t77*t8-9.5214 3681 3 43141779977d-6*t1*t180*t4*t5*t52*t76*t8+1.449160573204862 3682 4 6d-3*t1*t141*t23*t4*t45*t5*t75*t8-3.225612826113532d-1*t1 3683 5 *t145*t23*t29*t4*t43*t5*t8-3.181693560359581d-6*t1*t114*t 3684 6 206*t23*t4*t5*t8-7.123398104051166d-6*t1*t152*t182*t197*t 3685 7 4*t5*t8+3.827620142995552d-6*t1*t197*t4*t5*t52*t76-7.7867 3686 8 83946947111d-4*t1*t11*t140*t4*t45*t5*t75-1.16512510085670 3687 9 96d-3*t1*t114*t141*t23*t4*t45*t5+1.7332206408224463d-1*t1 3688 : *t11*t145*t29*t4*t42*t5+5.116163245058206d-6*t1*t180*t206 3689 ; *t23*t4*t5+1.7096214731485532d-6*t1*t11*t114*t205*t4*t5)* 3690 < wght+2.500850410066172d-1*rhoa*rhob*t142*t46*wght+2.50085 3691 = 0410066172d-1*rhoa*rhob*t147*t44*wght)+t18*t25*(-3.334467 3692 > 2134215625d-1*rhoa*rhob*t44*t45*t46*wght-3.33446721342156 3693 ? 25d-1*rhoa*rhob*t145*t17*t46*wght-3.3344672134215625d-1*r 3694 @ hoa*rhob*t147*t17*t45*wght-t146*t46-2.0d+0*t148*t45)+t14* 3695 1 t47*(-3.3344672134215625d-1*rhoa*rhob*t147*t17*t46*wght-1 3696 2 .6672336067107812d-1*rhoa*rhob*t143*t44*wght-2*t148*t46)+ 3697 3 t16*t49*(-1.0003401640264689d+0*rhoa*rhob*t145*t17*t45*wg 3698 4 ht-5.001700820132344d-1*rhoa*rhob*t144*t44*wght-3.0d+0*t1 3699 5 46*t45)+t16*t18*(5.001700820132344d-1*rhoa*rhob*t142*t45* 3700 6 wght+5.001700820132344d-1*rhoa*rhob*t145*t44*wght+1.66723 3701 7 36067107812d-1*rhoa*rhob*t17*t207*wght)-8.336168033553906 3702 8 d-2*rhoa*rhob*t14*t16*(-1.2837578514626072d-5*t1*t180*t4* 3703 9 t5*t52*t76*t8-4.2898161846251925d-6*t1*t114*t206*t23*t4*t 3704 : 5*t8-9.604340549010496d-6*t1*t152*t182*t197*t4*t5*t8+5.16 3705 ; 0706562879681d-6*t1*t197*t4*t5*t52*t76+6.898024424877311d 3706 < -6*t1*t180*t206*t23*t4*t5+2.3050497246084803d-6*t1*t11*t1 3707 = 14*t205*t4*t5)*wght+1.5005102460397032d+0*rhoa*rhob*t144* 3708 > t17*t25*t46*t49*wght+1.0003401640264689d+0*rhoa*rhob*t143 3709 ? *t17*t18*t45*t47*wght+5.001700820132344d-1*rhoa*rhob*t14* 3710 @ t149*t17*t46**3*wght+2.0006803280529378d+0*rhoa*rhob*t150 3711 1 *t16*t17*t45**3*wght+Cmat3(iq,D3_GBB_GBB_GBB) 3712 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 3713 fnc(iq) = fnc(iq) 3714 Amat(iq,D1_RA) = Amat(iq,D1_RA) 3715 Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA) 3716 Amat2(iq,D2_RA_RA) = Amat2(iq,D2_RA_RA) 3717 Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA) 3718 Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA) 3719 Amat3(iq,D3_RA_RA_RA) = Amat3(iq,D3_RA_RA_RA) 3720 Cmat3(iq,D3_RA_RA_GAA) = Cmat3(iq,D3_RA_RA_GAA) 3721 Cmat3(iq,D3_RA_GAA_GAA) = Cmat3(iq,D3_RA_GAA_GAA) 3722 Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA) 3723 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 3724 fnc(iq) = fnc(iq) 3725 Amat(iq,D1_RB) = Amat(iq,D1_RB) 3726 Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB) 3727 Amat2(iq,D2_RB_RB) = Amat2(iq,D2_RB_RB) 3728 Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB) 3729 Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB) 3730 Amat3(iq,D3_RB_RB_RB) = Amat3(iq,D3_RB_RB_RB) 3731 Cmat3(iq,D3_RB_RB_GBB) = Cmat3(iq,D3_RB_RB_GBB) 3732 Cmat3(iq,D3_RB_GBB_GBB) = Cmat3(iq,D3_RB_GBB_GBB) 3733 Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB) 3734 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 3735 endif ! ipol.eq.1 3736 enddo ! iq 3737 end 3738C> @} 3739