1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_x_cams12.F 5C> The nwxcm_x_cams12 functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_x_cams12 functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& {\it param}\left(1\right)\\\\ 16C> {\it t_2} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 17C> {\it t_3} &=& {\it param}\left(2\right)-{\it t_1}+1.0\\\\ 18C> {\it t_4} &=& {\it param}\left(5\right)\\\\ 19C> {\it t_5} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 20C> {\it t_6} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_5}\, 21C> \sigma_{\alpha\alpha}+1.0}}\\\\ 22C> {\it t_7} &=& {\it param}\left(3\right)\\\\ 23C> {\it t_8} &=& {\it param}\left(4\right)\\\\ 24C> {\it t_9} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 25C> \sigma_{\alpha\alpha}^2}\over{\rho_\alpha^{{{16}\over{3}}}}} 26C> +{\it t_7}\,{\it t_5}\,\sigma_{\alpha\alpha}+1.0}}\\\\ 27C> {\it t_{10}} &=& -{\it param}\left(6\right)\\\\ 28C> {\it t_{11}} &=& {\it param}\left(7\right)\\\\ 29C> {\it t_{12}} &=& {\it param}\left(8\right)\\\\ 30C> {\it t_{13}} &=& {{1}\over{\rho_\alpha}}\\\\ 31C> {\it t_{14}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_2}\,{ 32C> \it t_6}\,{\it t_9}+0.9305257363491002\,{\it t_1}\,{\it t_2}\\\\ 33C> {\it t_{15}} &=& \sqrt{{\it t_{14}}}\\\\ 34C> {\it t_{16}} &=& {\it t_{12}}^2\\\\ 35C> {\it t_{17}} &=& \rho_\alpha^2\\\\ 36C> {\it t_{18}} &=& {{1}\over{{\it t_{16}}}}\\\\ 37C> {\it t_{19}} &=& e^ {- {{14.13716694115413\,{\it t_{17}}\,{ 38C> \it t_{18}}}\over{{\it t_{14}}}} }\\\\ 39C> {\it t_{20}} &=& {{1}\over{{\it t_{12}}}}\\\\ 40C> {\it t_{21}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 41C> {\it t_{22}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 42C> {\it t_{23}} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_{22}} 43C> \,\sigma_{\beta\beta}+1.0}}\\\\ 44C> {\it t_{24}} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 45C> \sigma_{\beta\beta}^2}\over{\rho_\beta^{{{16}\over{3}}}}}+{ 46C> \it t_7}\,{\it t_{22}}\,\sigma_{\beta\beta}+1.0}}\\\\ 47C> {\it t_{25}} &=& {{1}\over{\rho_\beta}}\\\\ 48C> {\it t_{26}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_{21}} 49C> \,{\it t_{23}}\,{\it t_{24}}+0.9305257363491002\,{\it t_1} 50C> \,{\it t_{21}}\\\\ 51C> {\it t_{27}} &=& \sqrt{{\it t_{26}}}\\\\ 52C> {\it t_{28}} &=& \rho_\beta^2\\\\ 53C> {\it t_{29}} &=& e^ {- {{14.13716694115413\,{\it t_{18}}\,{ 54C> \it t_{28}}}\over{{\it t_{26}}}} }\\\\ 55C> {\it t_{30}} &=& \rho_s^{{{4}\over{3}}}\\\\ 56C> {\it t_{31}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 57C> {\it t_{32}} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_{31}} 58C> \,\sigma_{ss}+1.0}}\\\\ 59C> {\it t_{33}} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 60C> \sigma_{ss}^2}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_7}\,{ 61C> \it t_{31}}\,\sigma_{ss}+1.0}}\\\\ 62C> {\it t_{34}} &=& {{1}\over{\rho_s}}\\\\ 63C> {\it t_{35}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_{30}} 64C> \,{\it t_{32}}\,{\it t_{33}}+0.9305257363491002\,{\it t_1} 65C> \,{\it t_{30}}\\\\ 66C> {\it t_{36}} &=& \sqrt{{\it t_{35}}}\\\\ 67C> {\it t_{37}} &=& \rho_s^2\\\\ 68C> {\it t_{38}} &=& e^ {- {{14.13716694115413\,{\it t_{18}}\,{ 69C> \it t_{37}}}\over{{\it t_{35}}}} }\\\\ 70C> f &=& \left(-0.9305257363491002\,{\it t_3}\,{\it t_{21}}\,{ 71C> \it t_{23}}\,{\it t_{24}}-0.9305257363491002\,{\it t_1}\,{ 72C> \it t_{21}}\right)\,\left(-0.3546153603568283\,{\it t_{11}} 73C> \,{\it t_{12}}\,{\it t_{25}}\,{\it t_{27}}\, 74C> \left(1.77245385090552\,\mathrm{erf}\left({{3.759942411946509 75C> \,{\it t_{20}}\,\rho_\beta}\over{{\it t_{27}}}}\right) 76C> +0.2659615202676212\,{\it t_{12}}\,{\it t_{25}}\,{\it t_{27}} 77C> \,\left({\it t_{29}}-{{0.03536776513153214\,{\it t_{16}}\,{ 78C> \it t_{26}}\,\left({\it t_{29}}-1.0\right)}\over{{\it t_{28}}}} 79C> -1.5\right)\right)+{\it t_{10}}+1.0\right)+\left( 80C> -0.9305257363491002\,{\it t_3}\,{\it t_2}\,{\it t_6}\,{\it t_9} 81C> -0.9305257363491002\,{\it t_1}\,{\it t_2}\right)\,\left( 82C> -0.3546153603568283\,{\it t_{11}}\,{\it t_{12}}\,{\it t_{13}} 83C> \,{\it t_{15}}\,\left(1.77245385090552\,\mathrm{erf} 84C> \left({{3.759942411946509\,{\it t_{20}}\,\rho_\alpha}\over{{ 85C> \it t_{15}}}}\right)+0.2659615202676212\,{\it t_{12}}\,{ 86C> \it t_{13}}\,{\it t_{15}}\,\left({\it t_{19}} 87C> -{{0.03536776513153214\,{\it t_{16}}\,{\it t_{14}}\,\left({ 88C> \it t_{19}}-1.0\right)}\over{{\it t_{17}}}}-1.5\right)\right) 89C> +{\it t_{10}}+1.0\right)\\\\ 90C> g &=& 0\\\\ 91C> G &=& \left(-0.9305257363491002\,{\it t_3}\,{\it t_{30}}\,{ 92C> \it t_{32}}\,{\it t_{33}}-0.9305257363491002\,{\it t_1}\,{ 93C> \it t_{30}}\right)\,\left(-0.3546153603568283\,{\it t_{11}} 94C> \,{\it t_{12}}\,{\it t_{34}}\,{\it t_{36}}\, 95C> \left(1.77245385090552\,\mathrm{erf}\left({{3.759942411946509 96C> \,{\it t_{20}}\,\rho_s}\over{{\it t_{36}}}}\right) 97C> +0.2659615202676212\,{\it t_{12}}\,{\it t_{34}}\,{\it t_{36}} 98C> \,\left({\it t_{38}}-{{0.03536776513153214\,{\it t_{16}}\,{ 99C> \it t_{35}}\,\left({\it t_{38}}-1.0\right)}\over{{\it t_{37}}}} 100C> -1.5\right)\right)+{\it t_{10}}+1.0\right)\\\\ 101C> \f} 102C> 103C> Code generated with Maxima 5.34.0 [2] 104C> driven by autoxc [3]. 105C> 106C> ### References ### 107C> 108C> [1] M Swart, Chem.Phys.Lett. 580, 166 (2013) , DOI: 109C> <a href="https://doi.org/10.1016/j.cplett.2013.06.045 "> 110C> 10.1016/j.cplett.2013.06.045 </a> 111C> 112C> [2] Maxima, a computer algebra system, 113C> <a href="http://maxima.sourceforge.net/"> 114C> http://maxima.sourceforge.net/</a> 115C> 116C> [3] autoxc, revision 27097 2015-05-08 117C> 118 subroutine nwxcm_x_cams12(param,tol_rho,ipol,nq,wght, 119 +rho,rgamma,fnc,Amat,Cmat) 120c $Id: $ 121#ifdef NWXC_QUAD_PREC 122 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 123 integer, parameter :: rk=selected_real_kind(30) 124#else 125 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 126 integer, parameter :: rk=selected_real_kind(15) 127#endif 128#include "nwxc_param.fh" 129 double precision param(*) !< [Input] Parameters of functional 130 double precision tol_rho !< [Input] The lower limit on the density 131 integer ipol !< [Input] The number of spin channels 132 integer nq !< [Input] The number of points 133 double precision wght !< [Input] The weight of the functional 134 double precision rho(nq,*) !< [Input] The density 135 double precision rgamma(nq,*) !< [Input] The norm of the density 136 !< gradients 137 double precision fnc(nq) !< [Output] The value of the functional 138c 139c Sampling Matrices for the XC Kernel 140c 141 double precision Amat(nq,*) !< [Output] The derivative wrt rho 142 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 143 integer iq 144 double precision tmp 145 double precision rhoa,rhob 146 double precision gammaaa,gammaab,gammabb 147 double precision taua,taub 148 double precision nwxcm_heaviside 149 external nwxcm_heaviside 150CDIR$ NOVECTOR 151 do iq = 1, nq 152 if (ipol.eq.1) then 153 rhoa = 0.5d0*rho(iq,R_T) 154 gammaaa = 0.25d0*rgamma(iq,G_TT) 155 if (rhoa.gt.tol_rho) then 156 t1 = param(1) 157 t2 = rhoa**1.3333333333333333d+0 158 t3 = -t1+param(2)+1.0d+0 159 t4 = param(4) 160 t5 = gammaaa**2 161 t6 = 1/rhoa**5.333333333333333d+0 162 t7 = param(3) 163 t8 = 1/rhoa**2.6666666666666666d+0 164 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 165 t10 = 1.0d+0-1.0d+0/t9 166 t11 = param(5) 167 t12 = gammaaa*t11*t8+1.0d+0 168 t13 = 1.0d+0-1.0d+0/t12 169 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 170 1 -1*t1*t2 171 t15 = param(7) 172 t16 = param(8) 173 t17 = 1/rhoa 174 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 175 1 1*t1*t2 176 t19 = t18**5.0d-1 177 t20 = t16**2 178 t21 = rhoa**2 179 t22 = 1/t21 180 t23 = 1/t20 181 t24 = 1/t18 182 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 183 t26 = t25-1.0d+0 184 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 185 t28 = 1/t16 186 t29 = 1/t19 187 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 188 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 189 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 190 1 0d+0 191 t32 = 5.641895835477563d-1 192 t33 = 1/t12**2 193 t34 = 1/rhoa**2.3333333333333334d+0 194 t35 = rhoa**3.333333333333333d-1 195 t36 = -2.6666666666666666d+0*gammaaa*t7/rhoa**3.666666666666 196 1 6664d+0-5.333333333333333d+0*t4*t5/rhoa**6.33333333333333 197 2 3d+0 198 t37 = 1/t9**2 199 t38 = 9.305257363491002d-1*t13*t2*t3*t36*t37+1.2407009817988 200 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 201 2 019635976003d+0*gammaaa*t10*t11*t3*t33*t34 202 t39 = 1/t19**3 203 t40 = 1/t18**2 204 t41 = 1.413716694115413d+1*t21*t23*t38*t40-2.827433388230826 205 1 d+1*rhoa*t23*t24 206 t42 = 1/t2 207 t43 = t7*t8+2*gammaaa*t4*t6 208 t44 = 9.305257363491002d-1*t13*t2*t3*t37*t43+9.3052573634910 209 1 02d-1*t10*t11*t3*t33*t42 210 fnc(iq) = 2*t14*t31*wght+fnc(iq) 211 Amat(iq,D1_RA) = (t14*(-3.5461536035682834d-1*t15*t16*t17*t1 212 1 9*(2.659615202676212d-1*t16*t17*t19*(-3.536776513153214d- 213 2 2*t18*t20*t22*t25*t41+t25*t41-3.536776513153214d-2*t20*t2 214 3 2*t26*t38+7.073553026306428d-2*t18*t20*t26/rhoa**3)+3.544 215 4 9077018110403d+0*t25*t32*(3.759942411946509d+0*t28*t29-1. 216 5 8799712059732546d+0*rhoa*t28*t38*t39)+1.329807601338106d- 217 6 1*t16*t17*t27*t29*t38-2.659615202676212d-1*t16*t19*t22*t2 218 7 7)-1.7730768017841417d-1*t15*t16*t17*t29*t30*t38+3.546153 219 8 6035682834d-1*t15*t16*t19*t22*t30)+t31*(-9.30525736349100 220 9 2d-1*t13*t2*t3*t36*t37-1.2407009817988002d+0*t10*t13*t3*t 221 : 35-1.2407009817988002d+0*t1*t35+2.4814019635976003d+0*gam 222 ; maaa*t10*t11*t3*t33*t34))*wght+Amat(iq,D1_RA) 223 Cmat(iq,D1_GAA) = (t14*(-3.5461536035682834d-1*t15*t16*t17*t 224 1 19*(2.659615202676212d-1*t16*t17*t19*(1.413716694115413d+ 225 2 1*t21*t23*t25*t40*t44-3.536776513153214d-2*t20*t22*t26*t4 226 3 4-5.0d-1*t24*t25*t44)-6.66432440723758d+0*rhoa*t25*t28*t3 227 4 2*t39*t44+1.329807601338106d-1*t16*t17*t27*t29*t44)-1.773 228 5 0768017841417d-1*t15*t16*t17*t29*t30*t44)+t31*(-9.3052573 229 6 63491002d-1*t13*t2*t3*t37*t43-9.305257363491002d-1*t10*t1 230 7 1*t3*t33*t42))*wght+Cmat(iq,D1_GAA) 231 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 232 endif ! rhoa.gt.tol_rho 233 else ! ipol.eq.1 234 rhoa = rho(iq,R_A) 235 rhob = rho(iq,R_B) 236 gammaaa = rgamma(iq,G_AA) 237 gammaab = rgamma(iq,G_AB) 238 gammabb = rgamma(iq,G_BB) 239 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 240 t1 = param(1) 241 t2 = rhoa**1.3333333333333333d+0 242 t3 = -t1+param(2)+1.0d+0 243 t4 = param(4) 244 t5 = gammaaa**2 245 t6 = 1/rhoa**5.333333333333333d+0 246 t7 = param(3) 247 t8 = 1/rhoa**2.6666666666666666d+0 248 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 249 t10 = 1.0d+0-1.0d+0/t9 250 t11 = param(5) 251 t12 = gammaaa*t11*t8+1.0d+0 252 t13 = 1.0d+0-1.0d+0/t12 253 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 254 1 -1*t1*t2 255 t15 = -param(6) 256 t16 = param(7) 257 t17 = param(8) 258 t18 = 1/rhoa 259 t19 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 260 1 1*t1*t2 261 t20 = t19**5.0d-1 262 t21 = t17**2 263 t22 = rhoa**2 264 t23 = 1/t22 265 t24 = 1/t21 266 t25 = 1/t19 267 t26 = exp(-1.413716694115413d+1*t22*t24*t25) 268 t27 = t26-1.0d+0 269 t28 = -3.536776513153214d-2*t19*t21*t23*t27+t26-1.5d+0 270 t29 = 1/t17 271 t30 = 1/t20 272 t31 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 273 1 9*t30)+2.659615202676212d-1*t17*t18*t20*t28 274 t32 = -3.5461536035682834d-1*t16*t17*t18*t20*t31+t15+1.0d+0 275 t33 = rhob**1.3333333333333333d+0 276 t34 = gammabb**2 277 t35 = 1/rhob**5.333333333333333d+0 278 t36 = 1/rhob**2.6666666666666666d+0 279 t37 = gammabb*t36*t7+t34*t35*t4+1.0d+0 280 t38 = 1.0d+0-1.0d+0/t37 281 t39 = gammabb*t11*t36+1.0d+0 282 t40 = 1.0d+0-1.0d+0/t39 283 t41 = -9.305257363491002d-1*t3*t33*t38*t40-9.305257363491002 284 1 d-1*t1*t33 285 t42 = 1/rhob 286 t43 = 9.305257363491002d-1*t3*t33*t38*t40+9.305257363491002d 287 1 -1*t1*t33 288 t44 = t43**5.0d-1 289 t45 = rhob**2 290 t46 = 1/t45 291 t47 = 1/t43 292 t48 = exp(-1.413716694115413d+1*t24*t45*t47) 293 t49 = t48-1.0d+0 294 t50 = -3.536776513153214d-2*t21*t43*t46*t49+t48-1.5d+0 295 t51 = 1/t44 296 t52 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 297 1 9*t51)+2.659615202676212d-1*t17*t42*t44*t50 298 t53 = -3.5461536035682834d-1*t16*t17*t42*t44*t52+t15+1.0d+0 299 t54 = 5.641895835477563d-1 300 t55 = 1/t12**2 301 t56 = 1/rhoa**2.3333333333333334d+0 302 t57 = rhoa**3.333333333333333d-1 303 t58 = -2.6666666666666666d+0*gammaaa*t7/rhoa**3.666666666666 304 1 6664d+0-5.333333333333333d+0*t4*t5/rhoa**6.33333333333333 305 2 3d+0 306 t59 = 1/t9**2 307 t60 = 9.305257363491002d-1*t13*t2*t3*t58*t59+1.2407009817988 308 1 002d+0*t10*t13*t3*t57+1.2407009817988002d+0*t1*t57-2.4814 309 2 019635976003d+0*gammaaa*t10*t11*t3*t55*t56 310 t61 = 1/t20**3 311 t62 = 1/t19**2 312 t63 = 1.413716694115413d+1*t22*t24*t60*t62-2.827433388230826 313 1 d+1*rhoa*t24*t25 314 t64 = 1/t39**2 315 t65 = 1/rhob**2.3333333333333334d+0 316 t66 = rhob**3.333333333333333d-1 317 t67 = -2.6666666666666666d+0*gammabb*t7/rhob**3.666666666666 318 1 6664d+0-5.333333333333333d+0*t34*t4/rhob**6.3333333333333 319 2 33d+0 320 t68 = 1/t37**2 321 t69 = 9.305257363491002d-1*t3*t33*t40*t67*t68+1.240700981798 322 1 8002d+0*t3*t38*t40*t66+1.2407009817988002d+0*t1*t66-2.481 323 2 4019635976003d+0*gammabb*t11*t3*t38*t64*t65 324 t70 = 1/t44**3 325 t71 = 1/t43**2 326 t72 = 1.413716694115413d+1*t24*t45*t69*t71-2.827433388230826 327 1 d+1*rhob*t24*t47 328 t73 = 1/t2 329 t74 = t7*t8+2*gammaaa*t4*t6 330 t75 = 9.305257363491002d-1*t13*t2*t3*t59*t74+9.3052573634910 331 1 02d-1*t10*t11*t3*t55*t73 332 t76 = 1/t33 333 t77 = t36*t7+2*gammabb*t35*t4 334 t78 = 9.305257363491002d-1*t3*t33*t40*t68*t77+9.305257363491 335 1 002d-1*t11*t3*t38*t64*t76 336 fnc(iq) = (t41*t53+t14*t32)*wght+fnc(iq) 337 Amat(iq,D1_RA) = (t14*(-3.5461536035682834d-1*t16*t17*t18*t2 338 1 0*(2.659615202676212d-1*t17*t18*t20*(-3.536776513153214d- 339 2 2*t19*t21*t23*t26*t63+t26*t63-3.536776513153214d-2*t21*t2 340 3 3*t27*t60+7.073553026306428d-2*t19*t21*t27/rhoa**3)+3.544 341 4 9077018110403d+0*t26*t54*(3.759942411946509d+0*t29*t30-1. 342 5 8799712059732546d+0*rhoa*t29*t60*t61)+1.329807601338106d- 343 6 1*t17*t18*t28*t30*t60-2.659615202676212d-1*t17*t20*t23*t2 344 7 8)-1.7730768017841417d-1*t16*t17*t18*t30*t31*t60+3.546153 345 8 6035682834d-1*t16*t17*t20*t23*t31)+t32*(-9.30525736349100 346 9 2d-1*t13*t2*t3*t58*t59-1.2407009817988002d+0*t10*t13*t3*t 347 : 57-1.2407009817988002d+0*t1*t57+2.4814019635976003d+0*gam 348 ; maaa*t10*t11*t3*t55*t56))*wght+Amat(iq,D1_RA) 349 Amat(iq,D1_RB) = (t41*(-3.5461536035682834d-1*t16*t17*t42*t4 350 1 4*(2.659615202676212d-1*t17*t42*t44*(-3.536776513153214d- 351 2 2*t21*t43*t46*t48*t72+t48*t72-3.536776513153214d-2*t21*t4 352 3 6*t49*t69+7.073553026306428d-2*t21*t43*t49/rhob**3)+3.544 353 4 9077018110403d+0*t48*t54*(3.759942411946509d+0*t29*t51-1. 354 5 8799712059732546d+0*rhob*t29*t69*t70)+1.329807601338106d- 355 6 1*t17*t42*t50*t51*t69-2.659615202676212d-1*t17*t44*t46*t5 356 7 0)-1.7730768017841417d-1*t16*t17*t42*t51*t52*t69+3.546153 357 8 6035682834d-1*t16*t17*t44*t46*t52)+t53*(-9.30525736349100 358 9 2d-1*t3*t33*t40*t67*t68-1.2407009817988002d+0*t3*t38*t40* 359 : t66-1.2407009817988002d+0*t1*t66+2.4814019635976003d+0*ga 360 ; mmabb*t11*t3*t38*t64*t65))*wght+Amat(iq,D1_RB) 361 Cmat(iq,D1_GAA) = (t14*(-3.5461536035682834d-1*t16*t17*t18*t 362 1 20*(2.659615202676212d-1*t17*t18*t20*(1.413716694115413d+ 363 2 1*t22*t24*t26*t62*t75-3.536776513153214d-2*t21*t23*t27*t7 364 3 5-5.0d-1*t25*t26*t75)-6.66432440723758d+0*rhoa*t26*t29*t5 365 4 4*t61*t75+1.329807601338106d-1*t17*t18*t28*t30*t75)-1.773 366 5 0768017841417d-1*t16*t17*t18*t30*t31*t75)+t32*(-9.3052573 367 6 63491002d-1*t13*t2*t3*t59*t74-9.305257363491002d-1*t10*t1 368 7 1*t3*t55*t73))*wght+Cmat(iq,D1_GAA) 369 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 370 Cmat(iq,D1_GBB) = (t41*(-3.5461536035682834d-1*t16*t17*t42*t 371 1 44*(2.659615202676212d-1*t17*t42*t44*(1.413716694115413d+ 372 2 1*t24*t45*t48*t71*t78-3.536776513153214d-2*t21*t46*t49*t7 373 3 8-5.0d-1*t47*t48*t78)-6.66432440723758d+0*rhob*t29*t48*t5 374 4 4*t70*t78+1.329807601338106d-1*t17*t42*t50*t51*t78)-1.773 375 5 0768017841417d-1*t16*t17*t42*t51*t52*t78)+t53*(-9.3052573 376 6 63491002d-1*t3*t33*t40*t68*t77-9.305257363491002d-1*t11*t 377 7 3*t38*t64*t76))*wght+Cmat(iq,D1_GBB) 378 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 379 t1 = param(1) 380 t2 = rhoa**1.3333333333333333d+0 381 t3 = -t1+param(2)+1.0d+0 382 t4 = param(4) 383 t5 = gammaaa**2 384 t6 = 1/rhoa**5.333333333333333d+0 385 t7 = param(3) 386 t8 = 1/rhoa**2.6666666666666666d+0 387 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 388 t10 = 1.0d+0-1.0d+0/t9 389 t11 = param(5) 390 t12 = gammaaa*t11*t8+1.0d+0 391 t13 = 1.0d+0-1.0d+0/t12 392 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 393 1 -1*t1*t2 394 t15 = param(7) 395 t16 = param(8) 396 t17 = 1/rhoa 397 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 398 1 1*t1*t2 399 t19 = t18**5.0d-1 400 t20 = t16**2 401 t21 = rhoa**2 402 t22 = 1/t21 403 t23 = 1/t20 404 t24 = 1/t18 405 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 406 t26 = t25-1.0d+0 407 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 408 t28 = 1/t16 409 t29 = 1/t19 410 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 411 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 412 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 413 1 0d+0 414 t32 = 5.641895835477563d-1 415 t33 = 1/t12**2 416 t34 = 1/rhoa**2.3333333333333334d+0 417 t35 = rhoa**3.333333333333333d-1 418 t36 = -2.6666666666666666d+0*gammaaa*t7/rhoa**3.666666666666 419 1 6664d+0-5.333333333333333d+0*t4*t5/rhoa**6.33333333333333 420 2 3d+0 421 t37 = 1/t9**2 422 t38 = 9.305257363491002d-1*t13*t2*t3*t36*t37+1.2407009817988 423 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 424 2 019635976003d+0*gammaaa*t10*t11*t3*t33*t34 425 t39 = 1/t19**3 426 t40 = 1/t18**2 427 t41 = 1.413716694115413d+1*t21*t23*t38*t40-2.827433388230826 428 1 d+1*rhoa*t23*t24 429 t42 = 1/t2 430 t43 = t7*t8+2*gammaaa*t4*t6 431 t44 = 9.305257363491002d-1*t13*t2*t3*t37*t43+9.3052573634910 432 1 02d-1*t10*t11*t3*t33*t42 433 fnc(iq) = t14*t31*wght+fnc(iq) 434 Amat(iq,D1_RA) = t14*(-3.5461536035682834d-1*t15*t16*t17*t19 435 1 *(2.659615202676212d-1*t16*t17*t19*(-3.536776513153214d-2 436 2 *t18*t20*t22*t25*t41+t25*t41-3.536776513153214d-2*t20*t22 437 3 *t26*t38+7.073553026306428d-2*t18*t20*t26/rhoa**3)+3.5449 438 4 077018110403d+0*t25*t32*(3.759942411946509d+0*t28*t29-1.8 439 5 799712059732546d+0*rhoa*t28*t38*t39)+1.329807601338106d-1 440 6 *t16*t17*t27*t29*t38-2.659615202676212d-1*t16*t19*t22*t27 441 7 )-1.7730768017841417d-1*t15*t16*t17*t29*t30*t38+3.5461536 442 8 035682834d-1*t15*t16*t19*t22*t30)*wght+t31*(-9.3052573634 443 9 91002d-1*t13*t2*t3*t36*t37-1.2407009817988002d+0*t10*t13* 444 : t3*t35-1.2407009817988002d+0*t1*t35+2.4814019635976003d+0 445 ; *gammaaa*t10*t11*t3*t33*t34)*wght+Amat(iq,D1_RA) 446 Cmat(iq,D1_GAA) = t14*(-3.5461536035682834d-1*t15*t16*t17*t1 447 1 9*(2.659615202676212d-1*t16*t17*t19*(1.413716694115413d+1 448 2 *t21*t23*t25*t40*t44-3.536776513153214d-2*t20*t22*t26*t44 449 3 -5.0d-1*t24*t25*t44)-6.66432440723758d+0*rhoa*t25*t28*t32 450 4 *t39*t44+1.329807601338106d-1*t16*t17*t27*t29*t44)-1.7730 451 5 768017841417d-1*t15*t16*t17*t29*t30*t44)*wght+t31*(-9.305 452 6 257363491002d-1*t13*t2*t3*t37*t43-9.305257363491002d-1*t1 453 7 0*t11*t3*t33*t42)*wght+Cmat(iq,D1_GAA) 454 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 455 t1 = param(1) 456 t2 = rhob**1.3333333333333333d+0 457 t3 = -t1+param(2)+1.0d+0 458 t4 = param(4) 459 t5 = gammabb**2 460 t6 = 1/rhob**5.333333333333333d+0 461 t7 = param(3) 462 t8 = 1/rhob**2.6666666666666666d+0 463 t9 = gammabb*t7*t8+t4*t5*t6+1.0d+0 464 t10 = 1.0d+0-1.0d+0/t9 465 t11 = param(5) 466 t12 = gammabb*t11*t8+1.0d+0 467 t13 = 1.0d+0-1.0d+0/t12 468 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 469 1 -1*t1*t2 470 t15 = param(7) 471 t16 = param(8) 472 t17 = 1/rhob 473 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 474 1 1*t1*t2 475 t19 = t18**5.0d-1 476 t20 = t16**2 477 t21 = rhob**2 478 t22 = 1/t21 479 t23 = 1/t20 480 t24 = 1/t18 481 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 482 t26 = t25-1.0d+0 483 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 484 t28 = 1/t16 485 t29 = 1/t19 486 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 487 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 488 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 489 1 0d+0 490 t32 = 5.641895835477563d-1 491 t33 = 1/t12**2 492 t34 = 1/rhob**2.3333333333333334d+0 493 t35 = rhob**3.333333333333333d-1 494 t36 = -2.6666666666666666d+0*gammabb*t7/rhob**3.666666666666 495 1 6664d+0-5.333333333333333d+0*t4*t5/rhob**6.33333333333333 496 2 3d+0 497 t37 = 1/t9**2 498 t38 = 9.305257363491002d-1*t13*t2*t3*t36*t37+1.2407009817988 499 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 500 2 019635976003d+0*gammabb*t10*t11*t3*t33*t34 501 t39 = 1/t19**3 502 t40 = 1/t18**2 503 t41 = 1.413716694115413d+1*t21*t23*t38*t40-2.827433388230826 504 1 d+1*rhob*t23*t24 505 t42 = 1/t2 506 t43 = t7*t8+2*gammabb*t4*t6 507 t44 = 9.305257363491002d-1*t13*t2*t3*t37*t43+9.3052573634910 508 1 02d-1*t10*t11*t3*t33*t42 509 fnc(iq) = t14*t31*wght+fnc(iq) 510 Amat(iq,D1_RB) = t14*(-3.5461536035682834d-1*t15*t16*t17*t19 511 1 *(2.659615202676212d-1*t16*t17*t19*(-3.536776513153214d-2 512 2 *t18*t20*t22*t25*t41+t25*t41-3.536776513153214d-2*t20*t22 513 3 *t26*t38+7.073553026306428d-2*t18*t20*t26/rhob**3)+3.5449 514 4 077018110403d+0*t25*t32*(3.759942411946509d+0*t28*t29-1.8 515 5 799712059732546d+0*rhob*t28*t38*t39)+1.329807601338106d-1 516 6 *t16*t17*t27*t29*t38-2.659615202676212d-1*t16*t19*t22*t27 517 7 )-1.7730768017841417d-1*t15*t16*t17*t29*t30*t38+3.5461536 518 8 035682834d-1*t15*t16*t19*t22*t30)*wght+t31*(-9.3052573634 519 9 91002d-1*t13*t2*t3*t36*t37-1.2407009817988002d+0*t10*t13* 520 : t3*t35-1.2407009817988002d+0*t1*t35+2.4814019635976003d+0 521 ; *gammabb*t10*t11*t3*t33*t34)*wght+Amat(iq,D1_RB) 522 Cmat(iq,D1_GBB) = t14*(-3.5461536035682834d-1*t15*t16*t17*t1 523 1 9*(2.659615202676212d-1*t16*t17*t19*(1.413716694115413d+1 524 2 *t21*t23*t25*t40*t44-3.536776513153214d-2*t20*t22*t26*t44 525 3 -5.0d-1*t24*t25*t44)-6.66432440723758d+0*rhob*t25*t28*t32 526 4 *t39*t44+1.329807601338106d-1*t16*t17*t27*t29*t44)-1.7730 527 5 768017841417d-1*t15*t16*t17*t29*t30*t44)*wght+t31*(-9.305 528 6 257363491002d-1*t13*t2*t3*t37*t43-9.305257363491002d-1*t1 529 7 0*t11*t3*t33*t42)*wght+Cmat(iq,D1_GBB) 530 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 531 endif ! ipol.eq.1 532 enddo ! iq 533 end 534C> 535C> \brief Evaluate the nwxcm_x_cams12 functional [1] 536C> 537C> \f{eqnarray*}{ 538C> {\it t_1} &=& {\it param}\left(1\right)\\\\ 539C> {\it t_2} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 540C> {\it t_3} &=& {\it param}\left(2\right)-{\it t_1}+1.0\\\\ 541C> {\it t_4} &=& {\it param}\left(5\right)\\\\ 542C> {\it t_5} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 543C> {\it t_6} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_5}\, 544C> \sigma_{\alpha\alpha}+1.0}}\\\\ 545C> {\it t_7} &=& {\it param}\left(3\right)\\\\ 546C> {\it t_8} &=& {\it param}\left(4\right)\\\\ 547C> {\it t_9} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 548C> \sigma_{\alpha\alpha}^2}\over{\rho_\alpha^{{{16}\over{3}}}}} 549C> +{\it t_7}\,{\it t_5}\,\sigma_{\alpha\alpha}+1.0}}\\\\ 550C> {\it t_{10}} &=& -{\it param}\left(6\right)\\\\ 551C> {\it t_{11}} &=& {\it param}\left(7\right)\\\\ 552C> {\it t_{12}} &=& {\it param}\left(8\right)\\\\ 553C> {\it t_{13}} &=& {{1}\over{\rho_\alpha}}\\\\ 554C> {\it t_{14}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_2}\,{ 555C> \it t_6}\,{\it t_9}+0.9305257363491002\,{\it t_1}\,{\it t_2}\\\\ 556C> {\it t_{15}} &=& \sqrt{{\it t_{14}}}\\\\ 557C> {\it t_{16}} &=& {\it t_{12}}^2\\\\ 558C> {\it t_{17}} &=& \rho_\alpha^2\\\\ 559C> {\it t_{18}} &=& {{1}\over{{\it t_{16}}}}\\\\ 560C> {\it t_{19}} &=& e^ {- {{14.13716694115413\,{\it t_{17}}\,{ 561C> \it t_{18}}}\over{{\it t_{14}}}} }\\\\ 562C> {\it t_{20}} &=& {{1}\over{{\it t_{12}}}}\\\\ 563C> {\it t_{21}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 564C> {\it t_{22}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 565C> {\it t_{23}} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_{22}} 566C> \,\sigma_{\beta\beta}+1.0}}\\\\ 567C> {\it t_{24}} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 568C> \sigma_{\beta\beta}^2}\over{\rho_\beta^{{{16}\over{3}}}}}+{ 569C> \it t_7}\,{\it t_{22}}\,\sigma_{\beta\beta}+1.0}}\\\\ 570C> {\it t_{25}} &=& {{1}\over{\rho_\beta}}\\\\ 571C> {\it t_{26}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_{21}} 572C> \,{\it t_{23}}\,{\it t_{24}}+0.9305257363491002\,{\it t_1} 573C> \,{\it t_{21}}\\\\ 574C> {\it t_{27}} &=& \sqrt{{\it t_{26}}}\\\\ 575C> {\it t_{28}} &=& \rho_\beta^2\\\\ 576C> {\it t_{29}} &=& e^ {- {{14.13716694115413\,{\it t_{18}}\,{ 577C> \it t_{28}}}\over{{\it t_{26}}}} }\\\\ 578C> {\it t_{30}} &=& \rho_s^{{{4}\over{3}}}\\\\ 579C> {\it t_{31}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 580C> {\it t_{32}} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_{31}} 581C> \,\sigma_{ss}+1.0}}\\\\ 582C> {\it t_{33}} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 583C> \sigma_{ss}^2}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_7}\,{ 584C> \it t_{31}}\,\sigma_{ss}+1.0}}\\\\ 585C> {\it t_{34}} &=& {{1}\over{\rho_s}}\\\\ 586C> {\it t_{35}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_{30}} 587C> \,{\it t_{32}}\,{\it t_{33}}+0.9305257363491002\,{\it t_1} 588C> \,{\it t_{30}}\\\\ 589C> {\it t_{36}} &=& \sqrt{{\it t_{35}}}\\\\ 590C> {\it t_{37}} &=& \rho_s^2\\\\ 591C> {\it t_{38}} &=& e^ {- {{14.13716694115413\,{\it t_{18}}\,{ 592C> \it t_{37}}}\over{{\it t_{35}}}} }\\\\ 593C> f &=& \left(-0.9305257363491002\,{\it t_3}\,{\it t_{21}}\,{ 594C> \it t_{23}}\,{\it t_{24}}-0.9305257363491002\,{\it t_1}\,{ 595C> \it t_{21}}\right)\,\left(-0.3546153603568283\,{\it t_{11}} 596C> \,{\it t_{12}}\,{\it t_{25}}\,{\it t_{27}}\, 597C> \left(1.77245385090552\,\mathrm{erf}\left({{3.759942411946509 598C> \,{\it t_{20}}\,\rho_\beta}\over{{\it t_{27}}}}\right) 599C> +0.2659615202676212\,{\it t_{12}}\,{\it t_{25}}\,{\it t_{27}} 600C> \,\left({\it t_{29}}-{{0.03536776513153214\,{\it t_{16}}\,{ 601C> \it t_{26}}\,\left({\it t_{29}}-1.0\right)}\over{{\it t_{28}}}} 602C> -1.5\right)\right)+{\it t_{10}}+1.0\right)+\left( 603C> -0.9305257363491002\,{\it t_3}\,{\it t_2}\,{\it t_6}\,{\it t_9} 604C> -0.9305257363491002\,{\it t_1}\,{\it t_2}\right)\,\left( 605C> -0.3546153603568283\,{\it t_{11}}\,{\it t_{12}}\,{\it t_{13}} 606C> \,{\it t_{15}}\,\left(1.77245385090552\,\mathrm{erf} 607C> \left({{3.759942411946509\,{\it t_{20}}\,\rho_\alpha}\over{{ 608C> \it t_{15}}}}\right)+0.2659615202676212\,{\it t_{12}}\,{ 609C> \it t_{13}}\,{\it t_{15}}\,\left({\it t_{19}} 610C> -{{0.03536776513153214\,{\it t_{16}}\,{\it t_{14}}\,\left({ 611C> \it t_{19}}-1.0\right)}\over{{\it t_{17}}}}-1.5\right)\right) 612C> +{\it t_{10}}+1.0\right)\\\\ 613C> g &=& 0\\\\ 614C> G &=& \left(-0.9305257363491002\,{\it t_3}\,{\it t_{30}}\,{ 615C> \it t_{32}}\,{\it t_{33}}-0.9305257363491002\,{\it t_1}\,{ 616C> \it t_{30}}\right)\,\left(-0.3546153603568283\,{\it t_{11}} 617C> \,{\it t_{12}}\,{\it t_{34}}\,{\it t_{36}}\, 618C> \left(1.77245385090552\,\mathrm{erf}\left({{3.759942411946509 619C> \,{\it t_{20}}\,\rho_s}\over{{\it t_{36}}}}\right) 620C> +0.2659615202676212\,{\it t_{12}}\,{\it t_{34}}\,{\it t_{36}} 621C> \,\left({\it t_{38}}-{{0.03536776513153214\,{\it t_{16}}\,{ 622C> \it t_{35}}\,\left({\it t_{38}}-1.0\right)}\over{{\it t_{37}}}} 623C> -1.5\right)\right)+{\it t_{10}}+1.0\right)\\\\ 624C> \f} 625C> 626C> Code generated with Maxima 5.34.0 [2] 627C> driven by autoxc [3]. 628C> 629C> ### References ### 630C> 631C> [1] M Swart, Chem.Phys.Lett. 580, 166 (2013) , DOI: 632C> <a href="https://doi.org/10.1016/j.cplett.2013.06.045 "> 633C> 10.1016/j.cplett.2013.06.045 </a> 634C> 635C> [2] Maxima, a computer algebra system, 636C> <a href="http://maxima.sourceforge.net/"> 637C> http://maxima.sourceforge.net/</a> 638C> 639C> [3] autoxc, revision 27097 2015-05-08 640C> 641 subroutine nwxcm_x_cams12_d2(param,tol_rho,ipol,nq,wght, 642 +rho,rgamma,fnc,Amat,Amat2,Cmat,Cmat2) 643c $Id: $ 644#ifdef NWXC_QUAD_PREC 645 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 646 integer, parameter :: rk=selected_real_kind(30) 647#else 648 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 649 integer, parameter :: rk=selected_real_kind(15) 650#endif 651#include "nwxc_param.fh" 652 double precision param(*) !< [Input] Parameters of functional 653 double precision tol_rho !< [Input] The lower limit on the density 654 integer ipol !< [Input] The number of spin channels 655 integer nq !< [Input] The number of points 656 double precision wght !< [Input] The weight of the functional 657 double precision rho(nq,*) !< [Input] The density 658 double precision rgamma(nq,*) !< [Input] The norm of the density 659 !< gradients 660 double precision fnc(nq) !< [Output] The value of the functional 661c 662c Sampling Matrices for the XC Kernel 663c 664 double precision Amat(nq,*) !< [Output] The derivative wrt rho 665 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 666c 667c Sampling Matrices for the XC Kernel 668c 669 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 670 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 671 !< and possibly rho 672 integer iq 673 double precision tmp 674 double precision rhoa,rhob 675 double precision gammaaa,gammaab,gammabb 676 double precision taua,taub 677 double precision nwxcm_heaviside 678 external nwxcm_heaviside 679CDIR$ NOVECTOR 680 do iq = 1, nq 681 if (ipol.eq.1) then 682 rhoa = 0.5d0*rho(iq,R_T) 683 gammaaa = 0.25d0*rgamma(iq,G_TT) 684 if (rhoa.gt.tol_rho) then 685 t1 = param(1) 686 t2 = rhoa**1.3333333333333333d+0 687 t3 = -t1+param(2)+1.0d+0 688 t4 = param(4) 689 t5 = gammaaa**2 690 t6 = 1/rhoa**5.333333333333333d+0 691 t7 = param(3) 692 t8 = 1/rhoa**2.6666666666666666d+0 693 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 694 t10 = 1.0d+0-1.0d+0/t9 695 t11 = param(5) 696 t12 = gammaaa*t11*t8+1.0d+0 697 t13 = 1.0d+0-1.0d+0/t12 698 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 699 1 -1*t1*t2 700 t15 = param(7) 701 t16 = param(8) 702 t17 = 1/rhoa 703 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 704 1 1*t1*t2 705 t19 = t18**5.0d-1 706 t20 = t16**2 707 t21 = rhoa**2 708 t22 = 1/t21 709 t23 = 1/t20 710 t24 = 1/t18 711 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 712 t26 = t25-1.0d+0 713 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 714 t28 = 1/t16 715 t29 = 1/t19 716 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 717 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 718 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 719 1 0d+0 720 t32 = 5.641895835477563d-1 721 t33 = 1/t12**2 722 t34 = 1/rhoa**2.3333333333333334d+0 723 t35 = rhoa**3.333333333333333d-1 724 t36 = 1/rhoa**6.333333333333333d+0 725 t37 = 1/rhoa**3.6666666666666664d+0 726 t38 = -2.6666666666666666d+0*gammaaa*t37*t7-5.33333333333333 727 1 3d+0*t36*t4*t5 728 t39 = 1/t9**2 729 t40 = 9.305257363491002d-1*t13*t2*t3*t38*t39+1.2407009817988 730 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 731 2 019635976003d+0*gammaaa*t10*t11*t3*t33*t34 732 t41 = 1/t19**3 733 t42 = 3.759942411946509d+0*t28*t29-1.8799712059732546d+0*rho 734 1 a*t28*t40*t41 735 t43 = rhoa**3 736 t44 = 1/t43 737 t45 = 1/t18**2 738 t46 = 1.413716694115413d+1*t21*t23*t40*t45-2.827433388230826 739 1 d+1*rhoa*t23*t24 740 t47 = -3.536776513153214d-2*t18*t20*t22*t25*t46+t25*t46+7.07 741 1 3553026306428d-2*t18*t20*t26*t44-3.536776513153214d-2*t20 742 2 *t22*t26*t40 743 t48 = 2.659615202676212d-1*t16*t17*t19*t47+3.544907701811040 744 1 3d+0*t25*t32*t42+1.329807601338106d-1*t16*t17*t27*t29*t40 745 2 -2.659615202676212d-1*t16*t19*t22*t27 746 t49 = -3.5461536035682834d-1*t15*t16*t17*t19*t48-1.773076801 747 1 7841417d-1*t15*t16*t17*t29*t30*t40+3.5461536035682834d-1* 748 2 t15*t16*t19*t22*t30 749 t50 = -9.305257363491002d-1*t13*t2*t3*t38*t39-1.240700981798 750 1 8002d+0*t10*t13*t3*t35-1.2407009817988002d+0*t1*t35+2.481 751 2 4019635976003d+0*gammaaa*t10*t11*t3*t33*t34 752 t51 = 1/t2 753 t52 = t7*t8+2*gammaaa*t4*t6 754 t53 = 9.305257363491002d-1*t13*t2*t3*t39*t52+9.3052573634910 755 1 02d-1*t10*t11*t3*t33*t51 756 t54 = 1.413716694115413d+1*t21*t23*t25*t45*t53-3.53677651315 757 1 3214d-2*t20*t22*t26*t53-5.0d-1*t24*t25*t53 758 t55 = 2.659615202676212d-1*t16*t17*t19*t54-6.66432440723758d 759 1 +0*rhoa*t25*t28*t32*t41*t53+1.329807601338106d-1*t16*t17* 760 2 t27*t29*t53 761 t56 = -3.5461536035682834d-1*t15*t16*t17*t19*t55-1.773076801 762 1 7841417d-1*t15*t16*t17*t29*t30*t53 763 t57 = -9.305257363491002d-1*t13*t2*t3*t39*t52-9.305257363491 764 1 002d-1*t10*t11*t3*t33*t51 765 t58 = t40**2 766 t59 = 1/t19**5 767 t60 = t11**2 768 t61 = 1/t12**3 769 t62 = 1/rhoa**6 770 t63 = 1/rhoa**3.3333333333333337d+0 771 t64 = 1/rhoa**6.666666666666666d-1 772 t65 = t38**2 773 t66 = 1/t9**3 774 t67 = 9.777777777777779d+0*gammaaa*t7/rhoa**4.66666666666666 775 1 7d+0+3.377777777777778d+1*t4*t5/rhoa**7.333333333333333d+ 776 2 0 777 t68 = 9.305257363491002d-1*t13*t2*t3*t39*t67-1.8610514726982 778 1 003d+0*t13*t2*t3*t65*t66+4.135669939329334d-1*t10*t13*t3* 779 2 t64+4.135669939329334d-1*t1*t64+2.481401963597601d+0*gamm 780 3 aaa*t10*t11*t3*t33*t63-1.3234143805853868d+1*t10*t3*t5*t6 781 4 0*t61*t62+2.4814019635976003d+0*t13*t3*t35*t38*t39-4.9628 782 5 039271952007d+0*gammaaa*t11*t3*t33*t34*t38*t39 783 t69 = rhoa**4 784 t70 = 1/t69 785 t71 = 1/t18**3 786 t72 = -2.827433388230826d+1*t21*t23*t58*t71+1.41371669411541 787 1 3d+1*t21*t23*t45*t68+5.654866776461652d+1*rhoa*t23*t40*t4 788 2 5-2.827433388230826d+1*t23*t24 789 t73 = t46**2 790 t74 = 1/rhoa**5 791 t75 = -2.6666666666666666d+0*t37*t7-1.0666666666666666d+1*ga 792 1 mmaaa*t36*t4 793 t76 = 9.305257363491002d-1*t13*t2*t3*t39*t75+4.9628039271952 794 1 007d+0*gammaaa*t10*t3*t60*t61*t74-1.8610514726982003d+0*t 795 2 13*t2*t3*t38*t52*t66+1.2407009817988002d+0*t13*t3*t35*t39 796 3 *t52-2.4814019635976003d+0*gammaaa*t11*t3*t33*t34*t39*t52 797 4 +9.305257363491002d-1*t11*t3*t33*t38*t39*t51-1.2407009817 798 5 988002d+0*t10*t11*t3*t33*t34 799 t77 = 1.413716694115413d+1*t21*t23*t45*t76-2.827433388230826 800 1 d+1*t21*t23*t40*t53*t71+2.827433388230826d+1*rhoa*t23*t45 801 2 *t53 802 t78 = t53**2 803 t79 = t52**2 804 t80 = -1.8610514726982003d+0*t13*t2*t3*t66*t79-1.86105147269 805 1 82003d+0*t10*t3*t60*t61*t70+1.8610514726982003d+0*t13*t3* 806 2 t39*t4*t70+1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 807 fnc(iq) = 2*t14*t31*wght+fnc(iq) 808 Amat(iq,D1_RA) = (t31*t50+t14*t49)*wght+Amat(iq,D1_RA) 809 Cmat(iq,D1_GAA) = (t31*t57+t14*t56)*wght+Cmat(iq,D1_GAA) 810 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 811 Amat2(iq,D2_RA_RA) = (t14*(-3.5461536035682834d-1*t15*t16*t1 812 1 7*t19*(2.659615202676212d-1*t16*t17*t19*(-3.5367765131532 813 2 14d-2*t18*t20*t22*t25*t73+t25*t73-3.536776513153214d-2*t1 814 3 8*t20*t22*t25*t72+t25*t72-2.1220659078919285d-1*t18*t20*t 815 4 26*t70-3.536776513153214d-2*t20*t22*t26*t68+1.41471060526 816 5 12857d-1*t18*t20*t25*t44*t46-7.073553026306428d-2*t20*t22 817 6 *t25*t40*t46+1.4147106052612857d-1*t20*t26*t40*t44)+3.544 818 7 9077018110403d+0*t25*t32*(-1.8799712059732546d+0*rhoa*t28 819 8 *t41*t68+2.8199568089598814d+0*rhoa*t28*t58*t59-3.7599424 820 9 11946509d+0*t28*t40*t41)+1.329807601338106d-1*t16*t17*t27 821 : *t29*t68-6.649038006690531d-2*t16*t17*t27*t41*t58+2.65961 822 ; 5202676212d-1*t16*t17*t29*t40*t47-5.319230405352424d-1*t1 823 < 6*t19*t22*t47+3.5449077018110403d+0*t25*t32*t42*t46+5.319 824 = 230405352424d-1*t16*t19*t27*t44-2.659615202676212d-1*t16* 825 > t22*t27*t29*t40)-1.7730768017841417d-1*t15*t16*t17*t29*t3 826 ? 0*t68+8.865384008920708d-2*t15*t16*t17*t30*t41*t58-3.5461 827 @ 536035682834d-1*t15*t16*t17*t29*t40*t48+7.092307207136567 828 1 d-1*t15*t16*t19*t22*t48-7.092307207136567d-1*t15*t16*t19* 829 2 t30*t44+3.5461536035682834d-1*t15*t16*t22*t29*t30*t40)+t3 830 3 1*(-9.305257363491002d-1*t13*t2*t3*t39*t67+1.861051472698 831 4 2003d+0*t13*t2*t3*t65*t66-4.135669939329334d-1*t10*t13*t3 832 5 *t64-4.135669939329334d-1*t1*t64-2.481401963597601d+0*gam 833 6 maaa*t10*t11*t3*t33*t63+1.3234143805853868d+1*t10*t3*t5*t 834 7 60*t61*t62-2.4814019635976003d+0*t13*t3*t35*t38*t39+4.962 835 8 8039271952007d+0*gammaaa*t11*t3*t33*t34*t38*t39)+2*t49*t5 836 9 0)*wght+Amat2(iq,D2_RA_RA) 837 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 838 Cmat2(iq,D2_RA_GAA) = (t14*(-3.5461536035682834d-1*t15*t16*t 839 1 17*t19*(2.659615202676212d-1*t16*t17*t19*(-3.536776513153 840 2 214d-2*t18*t20*t22*t25*t77+t25*t77-3.536776513153214d-2*t 841 3 20*t22*t26*t76+1.413716694115413d+1*t21*t23*t25*t45*t46*t 842 4 53-5.0d-1*t24*t25*t46*t53-3.536776513153214d-2*t20*t22*t2 843 5 5*t46*t53-5.0d-1*t25*t40*t45*t53+7.073553026306428d-2*t20 844 6 *t26*t44*t53+1.0d+0*t17*t24*t25*t53)+3.5449077018110403d+ 845 7 0*t25*t32*(-1.8799712059732546d+0*rhoa*t28*t41*t76+2.8199 846 8 568089598814d+0*rhoa*t28*t40*t53*t59-1.8799712059732546d+ 847 9 0*t28*t41*t53)+1.329807601338106d-1*t16*t17*t27*t29*t76+1 848 : .329807601338106d-1*t16*t17*t29*t40*t54-2.659615202676212 849 ; d-1*t16*t19*t22*t54+1.329807601338106d-1*t16*t17*t29*t47* 850 < t53+5.01149519714857d+1*t21*t23*t25*t32*t42*t45*t53-6.649 851 = 038006690531d-2*t16*t17*t27*t40*t41*t53-1.329807601338106 852 > d-1*t16*t22*t27*t29*t53)-1.7730768017841417d-1*t15*t16*t1 853 ? 7*t29*t30*t76-1.7730768017841417d-1*t15*t16*t17*t29*t40*t 854 @ 55+3.5461536035682834d-1*t15*t16*t19*t22*t55-1.7730768017 855 1 841417d-1*t15*t16*t17*t29*t48*t53+8.865384008920708d-2*t1 856 2 5*t16*t17*t30*t40*t41*t53+1.7730768017841417d-1*t15*t16*t 857 3 22*t29*t30*t53)+t31*(-9.305257363491002d-1*t13*t2*t3*t39* 858 4 t75-4.9628039271952007d+0*gammaaa*t10*t3*t60*t61*t74+1.86 859 5 10514726982003d+0*t13*t2*t3*t38*t52*t66-1.240700981798800 860 6 2d+0*t13*t3*t35*t39*t52+2.4814019635976003d+0*gammaaa*t11 861 7 *t3*t33*t34*t39*t52-9.305257363491002d-1*t11*t3*t33*t38*t 862 8 39*t51+1.2407009817988002d+0*t10*t11*t3*t33*t34)+t49*t57+ 863 9 t50*t56)*wght+Cmat2(iq,D2_RA_GAA) 864 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 865 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 866 Cmat2(iq,D2_GAA_GAA) = (t14*(-3.5461536035682834d-1*t15*t16* 867 1 t17*t19*(2.659615202676212d-1*t16*t17*t19*(1.413716694115 868 2 413d+1*t21*t23*t25*t45*t80-3.536776513153214d-2*t20*t22*t 869 3 26*t80-5.0d-1*t24*t25*t80-3.534291735288533d+1*t21*t23*t2 870 4 5*t71*t78+1.9985948912206125d+2*t25*t69*t78/(t16**4*t18** 871 5 4))-6.66432440723758d+0*rhoa*t25*t28*t32*t41*t80+1.329807 872 6 601338106d-1*t16*t17*t27*t29*t80+9.996486610856369d+0*rho 873 7 a*t25*t28*t32*t59*t78-9.421466669512572d+1*t25*t32*t43*t7 874 8 8/(t16**3*t19**7)-6.649038006690531d-2*t16*t17*t27*t41*t7 875 9 8+2.659615202676212d-1*t16*t17*t29*t53*t54)-1.77307680178 876 : 41417d-1*t15*t16*t17*t29*t30*t80+8.865384008920708d-2*t15 877 ; *t16*t17*t30*t41*t78-3.5461536035682834d-1*t15*t16*t17*t2 878 < 9*t53*t55)+t31*(1.8610514726982003d+0*t13*t2*t3*t66*t79+1 879 = .8610514726982003d+0*t10*t3*t60*t61*t70-1.861051472698200 880 > 3d+0*t13*t3*t39*t4*t70-1.8610514726982003d+0*t11*t3*t33*t 881 ? 39*t51*t52)+2*t56*t57)*wght+Cmat2(iq,D2_GAA_GAA) 882 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 883 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 884 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 885 endif ! rhoa.gt.tol_rho 886 else ! ipol.eq.1 887 rhoa = rho(iq,R_A) 888 rhob = rho(iq,R_B) 889 gammaaa = rgamma(iq,G_AA) 890 gammaab = rgamma(iq,G_AB) 891 gammabb = rgamma(iq,G_BB) 892 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 893 t1 = param(1) 894 t2 = rhoa**1.3333333333333333d+0 895 t3 = -t1+param(2)+1.0d+0 896 t4 = param(4) 897 t5 = gammaaa**2 898 t6 = 1/rhoa**5.333333333333333d+0 899 t7 = param(3) 900 t8 = 1/rhoa**2.6666666666666666d+0 901 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 902 t10 = 1.0d+0-1.0d+0/t9 903 t11 = param(5) 904 t12 = gammaaa*t11*t8+1.0d+0 905 t13 = 1.0d+0-1.0d+0/t12 906 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 907 1 -1*t1*t2 908 t15 = -param(6) 909 t16 = param(7) 910 t17 = param(8) 911 t18 = 1/rhoa 912 t19 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 913 1 1*t1*t2 914 t20 = t19**5.0d-1 915 t21 = t17**2 916 t22 = rhoa**2 917 t23 = 1/t22 918 t24 = 1/t21 919 t25 = 1/t19 920 t26 = exp(-1.413716694115413d+1*t22*t24*t25) 921 t27 = t26-1.0d+0 922 t28 = -3.536776513153214d-2*t19*t21*t23*t27+t26-1.5d+0 923 t29 = 1/t17 924 t30 = 1/t20 925 t31 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 926 1 9*t30)+2.659615202676212d-1*t17*t18*t20*t28 927 t32 = -3.5461536035682834d-1*t16*t17*t18*t20*t31+t15+1.0d+0 928 t33 = rhob**1.3333333333333333d+0 929 t34 = gammabb**2 930 t35 = 1/rhob**5.333333333333333d+0 931 t36 = 1/rhob**2.6666666666666666d+0 932 t37 = gammabb*t36*t7+t34*t35*t4+1.0d+0 933 t38 = 1.0d+0-1.0d+0/t37 934 t39 = gammabb*t11*t36+1.0d+0 935 t40 = 1.0d+0-1.0d+0/t39 936 t41 = -9.305257363491002d-1*t3*t33*t38*t40-9.305257363491002 937 1 d-1*t1*t33 938 t42 = 1/rhob 939 t43 = 9.305257363491002d-1*t3*t33*t38*t40+9.305257363491002d 940 1 -1*t1*t33 941 t44 = t43**5.0d-1 942 t45 = rhob**2 943 t46 = 1/t45 944 t47 = 1/t43 945 t48 = exp(-1.413716694115413d+1*t24*t45*t47) 946 t49 = t48-1.0d+0 947 t50 = -3.536776513153214d-2*t21*t43*t46*t49+t48-1.5d+0 948 t51 = 1/t44 949 t52 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 950 1 9*t51)+2.659615202676212d-1*t17*t42*t44*t50 951 t53 = -3.5461536035682834d-1*t16*t17*t42*t44*t52+t15+1.0d+0 952 t54 = 5.641895835477563d-1 953 t55 = 1/t12**2 954 t56 = 1/rhoa**2.3333333333333334d+0 955 t57 = rhoa**3.333333333333333d-1 956 t58 = 1/rhoa**6.333333333333333d+0 957 t59 = 1/rhoa**3.6666666666666664d+0 958 t60 = -2.6666666666666666d+0*gammaaa*t59*t7-5.33333333333333 959 1 3d+0*t4*t5*t58 960 t61 = 1/t9**2 961 t62 = 9.305257363491002d-1*t13*t2*t3*t60*t61+1.2407009817988 962 1 002d+0*t10*t13*t3*t57+1.2407009817988002d+0*t1*t57-2.4814 963 2 019635976003d+0*gammaaa*t10*t11*t3*t55*t56 964 t63 = 1/t20**3 965 t64 = 3.759942411946509d+0*t29*t30-1.8799712059732546d+0*rho 966 1 a*t29*t62*t63 967 t65 = rhoa**3 968 t66 = 1/t65 969 t67 = 1/t19**2 970 t68 = 1.413716694115413d+1*t22*t24*t62*t67-2.827433388230826 971 1 d+1*rhoa*t24*t25 972 t69 = -3.536776513153214d-2*t19*t21*t23*t26*t68+t26*t68+7.07 973 1 3553026306428d-2*t19*t21*t27*t66-3.536776513153214d-2*t21 974 2 *t23*t27*t62 975 t70 = 2.659615202676212d-1*t17*t18*t20*t69+3.544907701811040 976 1 3d+0*t26*t54*t64+1.329807601338106d-1*t17*t18*t28*t30*t62 977 2 -2.659615202676212d-1*t17*t20*t23*t28 978 t71 = -3.5461536035682834d-1*t16*t17*t18*t20*t70-1.773076801 979 1 7841417d-1*t16*t17*t18*t30*t31*t62+3.5461536035682834d-1* 980 2 t16*t17*t20*t23*t31 981 t72 = -9.305257363491002d-1*t13*t2*t3*t60*t61-1.240700981798 982 1 8002d+0*t10*t13*t3*t57-1.2407009817988002d+0*t1*t57+2.481 983 2 4019635976003d+0*gammaaa*t10*t11*t3*t55*t56 984 t73 = 1/t39**2 985 t74 = 1/rhob**2.3333333333333334d+0 986 t75 = rhob**3.333333333333333d-1 987 t76 = 1/rhob**6.333333333333333d+0 988 t77 = 1/rhob**3.6666666666666664d+0 989 t78 = -2.6666666666666666d+0*gammabb*t7*t77-5.33333333333333 990 1 3d+0*t34*t4*t76 991 t79 = 1/t37**2 992 t80 = 9.305257363491002d-1*t3*t33*t40*t78*t79+1.240700981798 993 1 8002d+0*t3*t38*t40*t75+1.2407009817988002d+0*t1*t75-2.481 994 2 4019635976003d+0*gammabb*t11*t3*t38*t73*t74 995 t81 = 1/t44**3 996 t82 = 3.759942411946509d+0*t29*t51-1.8799712059732546d+0*rho 997 1 b*t29*t80*t81 998 t83 = rhob**3 999 t84 = 1/t83 1000 t85 = 1/t43**2 1001 t86 = 1.413716694115413d+1*t24*t45*t80*t85-2.827433388230826 1002 1 d+1*rhob*t24*t47 1003 t87 = -3.536776513153214d-2*t21*t43*t46*t48*t86+t48*t86+7.07 1004 1 3553026306428d-2*t21*t43*t49*t84-3.536776513153214d-2*t21 1005 2 *t46*t49*t80 1006 t88 = 2.659615202676212d-1*t17*t42*t44*t87+3.544907701811040 1007 1 3d+0*t48*t54*t82+1.329807601338106d-1*t17*t42*t50*t51*t80 1008 2 -2.659615202676212d-1*t17*t44*t46*t50 1009 t89 = -3.5461536035682834d-1*t16*t17*t42*t44*t88-1.773076801 1010 1 7841417d-1*t16*t17*t42*t51*t52*t80+3.5461536035682834d-1* 1011 2 t16*t17*t44*t46*t52 1012 t90 = -9.305257363491002d-1*t3*t33*t40*t78*t79-1.24070098179 1013 1 88002d+0*t3*t38*t40*t75-1.2407009817988002d+0*t1*t75+2.48 1014 2 14019635976003d+0*gammabb*t11*t3*t38*t73*t74 1015 t91 = 1/t2 1016 t92 = t7*t8+2*gammaaa*t4*t6 1017 t93 = 9.305257363491002d-1*t13*t2*t3*t61*t92+9.3052573634910 1018 1 02d-1*t10*t11*t3*t55*t91 1019 t94 = 1.413716694115413d+1*t22*t24*t26*t67*t93-3.53677651315 1020 1 3214d-2*t21*t23*t27*t93-5.0d-1*t25*t26*t93 1021 t95 = 2.659615202676212d-1*t17*t18*t20*t94-6.66432440723758d 1022 1 +0*rhoa*t26*t29*t54*t63*t93+1.329807601338106d-1*t17*t18* 1023 2 t28*t30*t93 1024 t96 = -3.5461536035682834d-1*t16*t17*t18*t20*t95-1.773076801 1025 1 7841417d-1*t16*t17*t18*t30*t31*t93 1026 t97 = -9.305257363491002d-1*t13*t2*t3*t61*t92-9.305257363491 1027 1 002d-1*t10*t11*t3*t55*t91 1028 t98 = 1/t33 1029 t99 = t36*t7+2*gammabb*t35*t4 1030 t100 = 9.305257363491002d-1*t3*t33*t40*t79*t99+9.30525736349 1031 1 1002d-1*t11*t3*t38*t73*t98 1032 t101 = 1.413716694115413d+1*t100*t24*t45*t48*t85-3.536776513 1033 1 153214d-2*t100*t21*t46*t49-5.0d-1*t100*t47*t48 1034 t102 = -6.66432440723758d+0*rhob*t100*t29*t48*t54*t81+1.3298 1035 1 07601338106d-1*t100*t17*t42*t50*t51+2.659615202676212d-1* 1036 2 t101*t17*t42*t44 1037 t103 = -1.7730768017841417d-1*t100*t16*t17*t42*t51*t52-3.546 1038 1 1536035682834d-1*t102*t16*t17*t42*t44 1039 t104 = -9.305257363491002d-1*t3*t33*t40*t79*t99-9.3052573634 1040 1 91002d-1*t11*t3*t38*t73*t98 1041 t105 = t62**2 1042 t106 = 1/t20**5 1043 t107 = t11**2 1044 t108 = 1/t12**3 1045 t109 = 1/rhoa**6 1046 t110 = 1/rhoa**3.3333333333333337d+0 1047 t111 = 1/rhoa**6.666666666666666d-1 1048 t112 = t60**2 1049 t113 = 1/t9**3 1050 t114 = 9.777777777777779d+0*gammaaa*t7/rhoa**4.6666666666666 1051 1 67d+0+3.377777777777778d+1*t4*t5/rhoa**7.333333333333333d 1052 2 +0 1053 t115 = 2.4814019635976003d+0*t13*t3*t57*t60*t61-4.9628039271 1054 1 952007d+0*gammaaa*t11*t3*t55*t56*t60*t61+9.30525736349100 1055 2 2d-1*t114*t13*t2*t3*t61+2.481401963597601d+0*gammaaa*t10* 1056 3 t11*t110*t3*t55-1.3234143805853868d+1*t10*t107*t108*t109* 1057 4 t3*t5-1.8610514726982003d+0*t112*t113*t13*t2*t3+4.1356699 1058 5 39329334d-1*t10*t111*t13*t3+4.135669939329334d-1*t1*t111 1059 t116 = rhoa**4 1060 t117 = 1/t116 1061 t118 = 1/t19**3 1062 t119 = 5.654866776461652d+1*rhoa*t24*t62*t67+1.4137166941154 1063 1 13d+1*t115*t22*t24*t67-2.827433388230826d+1*t24*t25-2.827 1064 2 433388230826d+1*t105*t118*t22*t24 1065 t120 = t68**2 1066 t121 = t80**2 1067 t122 = 1/t44**5 1068 t123 = 1/t39**3 1069 t124 = 1/rhob**6 1070 t125 = 1/rhob**3.3333333333333337d+0 1071 t126 = 1/rhob**6.666666666666666d-1 1072 t127 = t78**2 1073 t128 = 1/t37**3 1074 t129 = 9.777777777777779d+0*gammabb*t7/rhob**4.6666666666666 1075 1 67d+0+3.377777777777778d+1*t34*t4/rhob**7.333333333333333 1076 2 d+0 1077 t130 = 2.4814019635976003d+0*t3*t40*t75*t78*t79-4.9628039271 1078 1 952007d+0*gammabb*t11*t3*t73*t74*t78*t79+9.30525736349100 1079 2 2d-1*t129*t3*t33*t40*t79+2.481401963597601d+0*gammabb*t11 1080 3 *t125*t3*t38*t73+4.135669939329334d-1*t126*t3*t38*t40-1.8 1081 4 610514726982003d+0*t127*t128*t3*t33*t40-1.323414380585386 1082 5 8d+1*t107*t123*t124*t3*t34*t38+4.135669939329334d-1*t1*t1 1083 6 26 1084 t131 = rhob**4 1085 t132 = 1/t131 1086 t133 = 1/t43**3 1087 t134 = 5.654866776461652d+1*rhob*t24*t80*t85+1.4137166941154 1088 1 13d+1*t130*t24*t45*t85-2.827433388230826d+1*t24*t47-2.827 1089 2 433388230826d+1*t121*t133*t24*t45 1090 t135 = t86**2 1091 t136 = 1/rhoa**5 1092 t137 = -2.6666666666666666d+0*t59*t7-1.0666666666666666d+1*g 1093 1 ammaaa*t4*t58 1094 t138 = 1.2407009817988002d+0*t13*t3*t57*t61*t92-2.4814019635 1095 1 976003d+0*gammaaa*t11*t3*t55*t56*t61*t92-1.86105147269820 1096 2 03d+0*t113*t13*t2*t3*t60*t92+9.305257363491002d-1*t11*t3* 1097 3 t55*t60*t61*t91+9.305257363491002d-1*t13*t137*t2*t3*t61-1 1098 4 .2407009817988002d+0*t10*t11*t3*t55*t56+4.962803927195200 1099 5 7d+0*gammaaa*t10*t107*t108*t136*t3 1100 t139 = 2.827433388230826d+1*rhoa*t24*t67*t93-2.8274333882308 1101 1 26d+1*t118*t22*t24*t62*t93+1.413716694115413d+1*t138*t22* 1102 2 t24*t67 1103 t140 = 1/rhob**5 1104 t141 = -2.6666666666666666d+0*t7*t77-1.0666666666666666d+1*g 1105 1 ammabb*t4*t76 1106 t142 = 1.2407009817988002d+0*t3*t40*t75*t79*t99-2.4814019635 1107 1 976003d+0*gammabb*t11*t3*t73*t74*t79*t99-1.86105147269820 1108 2 03d+0*t128*t3*t33*t40*t78*t99+9.305257363491002d-1*t11*t3 1109 3 *t73*t78*t79*t98+9.305257363491002d-1*t141*t3*t33*t40*t79 1110 4 -1.2407009817988002d+0*t11*t3*t38*t73*t74+4.9628039271952 1111 5 007d+0*gammabb*t107*t123*t140*t3*t38 1112 t143 = 1.413716694115413d+1*t142*t24*t45*t85+2.8274333882308 1113 1 26d+1*rhob*t100*t24*t85-2.827433388230826d+1*t100*t133*t2 1114 2 4*t45*t80 1115 t144 = 1/t17**3 1116 t145 = t93**2 1117 t146 = t92**2 1118 t147 = 1.8610514726982003d+0*t11*t3*t55*t61*t91*t92+1.861051 1119 1 4726982003d+0*t117*t13*t3*t4*t61-1.8610514726982003d+0*t1 1120 2 13*t13*t146*t2*t3-1.8610514726982003d+0*t10*t107*t108*t11 1121 3 7*t3 1122 t148 = 1/t17**4 1123 t149 = t100**2 1124 t150 = t99**2 1125 t151 = 1.8610514726982003d+0*t11*t3*t73*t79*t98*t99+1.861051 1126 1 4726982003d+0*t132*t3*t4*t40*t79-1.8610514726982003d+0*t1 1127 2 28*t150*t3*t33*t40-1.8610514726982003d+0*t107*t123*t132*t 1128 3 3*t38 1129 fnc(iq) = (t41*t53+t14*t32)*wght+fnc(iq) 1130 Amat(iq,D1_RA) = (t32*t72+t14*t71)*wght+Amat(iq,D1_RA) 1131 Amat(iq,D1_RB) = (t53*t90+t41*t89)*wght+Amat(iq,D1_RB) 1132 Cmat(iq,D1_GAA) = (t32*t97+t14*t96)*wght+Cmat(iq,D1_GAA) 1133 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 1134 Cmat(iq,D1_GBB) = (t104*t53+t103*t41)*wght+Cmat(iq,D1_GBB) 1135 Amat2(iq,D2_RA_RA) = (2*t71*t72+t14*(-3.5461536035682834d-1* 1136 1 t16*t17*t18*t30*t62*t70+7.092307207136567d-1*t16*t17*t20* 1137 2 t23*t70-3.5461536035682834d-1*t16*t17*t18*t20*(2.65961520 1138 3 2676212d-1*t17*t18*t30*t62*t69-5.319230405352424d-1*t17*t 1139 4 20*t23*t69+2.659615202676212d-1*t17*t18*t20*(1.4147106052 1140 5 612857d-1*t19*t21*t26*t66*t68-7.073553026306428d-2*t21*t2 1141 6 3*t26*t62*t68+1.4147106052612857d-1*t21*t27*t62*t66-3.536 1142 7 776513153214d-2*t115*t21*t23*t27-2.1220659078919285d-1*t1 1143 8 17*t19*t21*t27-3.536776513153214d-2*t120*t19*t21*t23*t26- 1144 9 3.536776513153214d-2*t119*t19*t21*t23*t26+t120*t26+t119*t 1145 : 26)+3.5449077018110403d+0*t26*t54*t64*t68+5.3192304053524 1146 ; 24d-1*t17*t20*t28*t66+3.5449077018110403d+0*t26*t54*(-3.7 1147 < 59942411946509d+0*t29*t62*t63-1.8799712059732546d+0*rhoa* 1148 = t115*t29*t63+2.8199568089598814d+0*rhoa*t105*t106*t29)-6. 1149 > 649038006690531d-2*t105*t17*t18*t28*t63-2.659615202676212 1150 ? d-1*t17*t23*t28*t30*t62+1.329807601338106d-1*t115*t17*t18 1151 @ *t28*t30)-7.092307207136567d-1*t16*t17*t20*t31*t66+8.8653 1152 1 84008920708d-2*t105*t16*t17*t18*t31*t63+3.546153603568283 1153 2 4d-1*t16*t17*t23*t30*t31*t62-1.7730768017841417d-1*t115*t 1154 3 16*t17*t18*t30*t31)+t32*(-2.4814019635976003d+0*t13*t3*t5 1155 4 7*t60*t61+4.9628039271952007d+0*gammaaa*t11*t3*t55*t56*t6 1156 5 0*t61-9.305257363491002d-1*t114*t13*t2*t3*t61-2.481401963 1157 6 597601d+0*gammaaa*t10*t11*t110*t3*t55+1.3234143805853868d 1158 7 +1*t10*t107*t108*t109*t3*t5+1.8610514726982003d+0*t112*t1 1159 8 13*t13*t2*t3-4.135669939329334d-1*t10*t111*t13*t3-4.13566 1160 9 9939329334d-1*t1*t111))*wght+Amat2(iq,D2_RA_RA) 1161 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 1162 Amat2(iq,D2_RB_RB) = (2*t89*t90+t41*(-3.5461536035682834d-1* 1163 1 t16*t17*t42*t51*t80*t88+7.092307207136567d-1*t16*t17*t44* 1164 2 t46*t88-3.5461536035682834d-1*t16*t17*t42*t44*(2.65961520 1165 3 2676212d-1*t17*t42*t51*t80*t87-5.319230405352424d-1*t17*t 1166 4 44*t46*t87+2.659615202676212d-1*t17*t42*t44*(1.4147106052 1167 5 612857d-1*t21*t43*t48*t84*t86-7.073553026306428d-2*t21*t4 1168 6 6*t48*t80*t86+1.4147106052612857d-1*t21*t49*t80*t84-3.536 1169 7 776513153214d-2*t130*t21*t46*t49-2.1220659078919285d-1*t1 1170 8 32*t21*t43*t49-3.536776513153214d-2*t135*t21*t43*t46*t48- 1171 9 3.536776513153214d-2*t134*t21*t43*t46*t48+t135*t48+t134*t 1172 : 48)+3.5449077018110403d+0*t48*t54*t82*t86+5.3192304053524 1173 ; 24d-1*t17*t44*t50*t84+3.5449077018110403d+0*t48*t54*(-3.7 1174 < 59942411946509d+0*t29*t80*t81-1.8799712059732546d+0*rhob* 1175 = t130*t29*t81+2.8199568089598814d+0*rhob*t121*t122*t29)-6. 1176 > 649038006690531d-2*t121*t17*t42*t50*t81-2.659615202676212 1177 ? d-1*t17*t46*t50*t51*t80+1.329807601338106d-1*t130*t17*t42 1178 @ *t50*t51)-7.092307207136567d-1*t16*t17*t44*t52*t84+8.8653 1179 1 84008920708d-2*t121*t16*t17*t42*t52*t81+3.546153603568283 1180 2 4d-1*t16*t17*t46*t51*t52*t80-1.7730768017841417d-1*t130*t 1181 3 16*t17*t42*t51*t52)+t53*(-2.4814019635976003d+0*t3*t40*t7 1182 4 5*t78*t79+4.9628039271952007d+0*gammabb*t11*t3*t73*t74*t7 1183 5 8*t79-9.305257363491002d-1*t129*t3*t33*t40*t79-2.48140196 1184 6 3597601d+0*gammabb*t11*t125*t3*t38*t73-4.135669939329334d 1185 7 -1*t126*t3*t38*t40+1.8610514726982003d+0*t127*t128*t3*t33 1186 8 *t40+1.3234143805853868d+1*t107*t123*t124*t3*t34*t38-4.13 1187 9 5669939329334d-1*t1*t126))*wght+Amat2(iq,D2_RB_RB) 1188 Cmat2(iq,D2_RA_GAA) = (t71*t97+t72*t96+t14*(-1.7730768017841 1189 1 417d-1*t16*t17*t18*t30*t62*t95+3.5461536035682834d-1*t16* 1190 2 t17*t20*t23*t95-3.5461536035682834d-1*t16*t17*t18*t20*(1. 1191 3 329807601338106d-1*t17*t18*t30*t62*t94-2.659615202676212d 1192 4 -1*t17*t20*t23*t94+2.659615202676212d-1*t17*t18*t20*(1.41 1193 5 3716694115413d+1*t22*t24*t26*t67*t68*t93-5.0d-1*t25*t26*t 1194 6 68*t93-3.536776513153214d-2*t21*t23*t26*t68*t93-5.0d-1*t2 1195 7 6*t62*t67*t93+7.073553026306428d-2*t21*t27*t66*t93+1.0d+0 1196 8 *t18*t25*t26*t93-3.536776513153214d-2*t138*t21*t23*t27-3. 1197 9 536776513153214d-2*t139*t19*t21*t23*t26+t139*t26)+3.54490 1198 : 77018110403d+0*t26*t54*(-1.8799712059732546d+0*t29*t63*t9 1199 ; 3+2.8199568089598814d+0*rhoa*t106*t29*t62*t93-1.879971205 1200 < 9732546d+0*rhoa*t138*t29*t63)+1.329807601338106d-1*t17*t1 1201 = 8*t30*t69*t93+5.01149519714857d+1*t22*t24*t26*t54*t64*t67 1202 > *t93-6.649038006690531d-2*t17*t18*t28*t62*t63*t93-1.32980 1203 ? 7601338106d-1*t17*t23*t28*t30*t93+1.329807601338106d-1*t1 1204 @ 38*t17*t18*t28*t30)-1.7730768017841417d-1*t16*t17*t18*t30 1205 1 *t70*t93+8.865384008920708d-2*t16*t17*t18*t31*t62*t63*t93 1206 2 +1.7730768017841417d-1*t16*t17*t23*t30*t31*t93-1.77307680 1207 3 17841417d-1*t138*t16*t17*t18*t30*t31)+t32*(-1.24070098179 1208 4 88002d+0*t13*t3*t57*t61*t92+2.4814019635976003d+0*gammaaa 1209 5 *t11*t3*t55*t56*t61*t92+1.8610514726982003d+0*t113*t13*t2 1210 6 *t3*t60*t92-9.305257363491002d-1*t11*t3*t55*t60*t61*t91-9 1211 7 .305257363491002d-1*t13*t137*t2*t3*t61+1.2407009817988002 1212 8 d+0*t10*t11*t3*t55*t56-4.9628039271952007d+0*gammaaa*t10* 1213 9 t107*t108*t136*t3))*wght+Cmat2(iq,D2_RA_GAA) 1214 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 1215 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 1216 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 1217 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 1218 Cmat2(iq,D2_RB_GBB) = (t53*(-1.2407009817988002d+0*t3*t40*t7 1219 1 5*t79*t99+2.4814019635976003d+0*gammabb*t11*t3*t73*t74*t7 1220 2 9*t99+1.8610514726982003d+0*t128*t3*t33*t40*t78*t99-9.305 1221 3 257363491002d-1*t11*t3*t73*t78*t79*t98-9.305257363491002d 1222 4 -1*t141*t3*t33*t40*t79+1.2407009817988002d+0*t11*t3*t38*t 1223 5 73*t74-4.9628039271952007d+0*gammabb*t107*t123*t140*t3*t3 1224 6 8)+t103*t90+t104*t89+t41*(-1.7730768017841417d-1*t100*t16 1225 7 *t17*t42*t51*t88-3.5461536035682834d-1*t16*t17*t42*t44*(1 1226 8 .329807601338106d-1*t100*t17*t42*t51*t87+2.65961520267621 1227 9 2d-1*t17*t42*t44*(1.413716694115413d+1*t100*t24*t45*t48*t 1228 : 85*t86-5.0d-1*t100*t47*t48*t86-3.536776513153214d-2*t100* 1229 ; t21*t46*t48*t86-5.0d-1*t100*t48*t80*t85+7.073553026306428 1230 < d-2*t100*t21*t49*t84-3.536776513153214d-2*t142*t21*t46*t4 1231 = 9+1.0d+0*t100*t42*t47*t48-3.536776513153214d-2*t143*t21*t 1232 > 43*t46*t48+t143*t48)+5.01149519714857d+1*t100*t24*t45*t48 1233 ? *t54*t82*t85+3.5449077018110403d+0*t48*t54*(-1.8799712059 1234 @ 732546d+0*rhob*t142*t29*t81-1.8799712059732546d+0*t100*t2 1235 1 9*t81+2.8199568089598814d+0*rhob*t100*t122*t29*t80)-6.649 1236 2 038006690531d-2*t100*t17*t42*t50*t80*t81+1.32980760133810 1237 3 6d-1*t101*t17*t42*t51*t80-1.329807601338106d-1*t100*t17*t 1238 4 46*t50*t51+1.329807601338106d-1*t142*t17*t42*t50*t51-2.65 1239 5 9615202676212d-1*t101*t17*t44*t46)+8.865384008920708d-2*t 1240 6 100*t16*t17*t42*t52*t80*t81-1.7730768017841417d-1*t102*t1 1241 7 6*t17*t42*t51*t80+1.7730768017841417d-1*t100*t16*t17*t46* 1242 8 t51*t52-1.7730768017841417d-1*t142*t16*t17*t42*t51*t52+3. 1243 9 5461536035682834d-1*t102*t16*t17*t44*t46))*wght+Cmat2(iq, 1244 : D2_RB_GBB) 1245 Cmat2(iq,D2_GAA_GAA) = (2*t96*t97+t14*(-3.5461536035682834d- 1246 1 1*t16*t17*t18*t30*t93*t95-3.5461536035682834d-1*t16*t17*t 1247 2 18*t20*(2.659615202676212d-1*t17*t18*t30*t93*t94+2.659615 1248 3 202676212d-1*t17*t18*t20*(1.413716694115413d+1*t147*t22*t 1249 4 24*t26*t67-3.536776513153214d-2*t147*t21*t23*t27-5.0d-1*t 1250 5 147*t25*t26-3.534291735288533d+1*t118*t145*t22*t24*t26+1. 1251 6 9985948912206125d+2*t116*t145*t148*t26/t19**4)-9.42146666 1252 7 9512572d+1*t144*t145*t26*t54*t65/t20**7-6.66432440723758d 1253 8 +0*rhoa*t147*t26*t29*t54*t63-6.649038006690531d-2*t145*t1 1254 9 7*t18*t28*t63+9.996486610856369d+0*rhoa*t106*t145*t26*t29 1255 : *t54+1.329807601338106d-1*t147*t17*t18*t28*t30)+8.8653840 1256 ; 08920708d-2*t145*t16*t17*t18*t31*t63-1.7730768017841417d- 1257 < 1*t147*t16*t17*t18*t30*t31)+t32*(-1.8610514726982003d+0*t 1258 = 11*t3*t55*t61*t91*t92-1.8610514726982003d+0*t117*t13*t3*t 1259 > 4*t61+1.8610514726982003d+0*t113*t13*t146*t2*t3+1.8610514 1260 ? 726982003d+0*t10*t107*t108*t117*t3))*wght+Cmat2(iq,D2_GAA 1261 @ _GAA) 1262 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 1263 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 1264 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 1265 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 1266 Cmat2(iq,D2_GBB_GBB) = (t53*(-1.8610514726982003d+0*t11*t3*t 1267 1 73*t79*t98*t99-1.8610514726982003d+0*t132*t3*t4*t40*t79+1 1268 2 .8610514726982003d+0*t128*t150*t3*t33*t40+1.8610514726982 1269 3 003d+0*t107*t123*t132*t3*t38)+t41*(-3.5461536035682834d-1 1270 4 *t16*t17*t42*t44*(2.659615202676212d-1*t17*t42*t44*(1.413 1271 5 716694115413d+1*t151*t24*t45*t48*t85-3.536776513153214d-2 1272 6 *t151*t21*t46*t49-5.0d-1*t151*t47*t48-3.534291735288533d+ 1273 7 1*t133*t149*t24*t45*t48+1.9985948912206125d+2*t131*t148*t 1274 8 149*t48/t43**4)-9.421466669512572d+1*t144*t149*t48*t54*t8 1275 9 3/t44**7-6.66432440723758d+0*rhob*t151*t29*t48*t54*t81-6. 1276 : 649038006690531d-2*t149*t17*t42*t50*t81+9.996486610856369 1277 ; d+0*rhob*t122*t149*t29*t48*t54+1.329807601338106d-1*t151* 1278 < t17*t42*t50*t51+2.659615202676212d-1*t100*t101*t17*t42*t5 1279 = 1)+8.865384008920708d-2*t149*t16*t17*t42*t52*t81-1.773076 1280 > 8017841417d-1*t151*t16*t17*t42*t51*t52-3.5461536035682834 1281 ? d-1*t100*t102*t16*t17*t42*t51)+2*t103*t104)*wght+Cmat2(iq 1282 @ ,D2_GBB_GBB) 1283 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 1284 t1 = param(1) 1285 t2 = rhoa**1.3333333333333333d+0 1286 t3 = -t1+param(2)+1.0d+0 1287 t4 = param(4) 1288 t5 = gammaaa**2 1289 t6 = 1/rhoa**5.333333333333333d+0 1290 t7 = param(3) 1291 t8 = 1/rhoa**2.6666666666666666d+0 1292 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 1293 t10 = 1.0d+0-1.0d+0/t9 1294 t11 = param(5) 1295 t12 = gammaaa*t11*t8+1.0d+0 1296 t13 = 1.0d+0-1.0d+0/t12 1297 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 1298 1 -1*t1*t2 1299 t15 = param(7) 1300 t16 = param(8) 1301 t17 = 1/rhoa 1302 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 1303 1 1*t1*t2 1304 t19 = t18**5.0d-1 1305 t20 = t16**2 1306 t21 = rhoa**2 1307 t22 = 1/t21 1308 t23 = 1/t20 1309 t24 = 1/t18 1310 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 1311 t26 = t25-1.0d+0 1312 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 1313 t28 = 1/t16 1314 t29 = 1/t19 1315 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 1316 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 1317 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 1318 1 0d+0 1319 t32 = 5.641895835477563d-1 1320 t33 = 1/t12**2 1321 t34 = 1/rhoa**2.3333333333333334d+0 1322 t35 = rhoa**3.333333333333333d-1 1323 t36 = 1/rhoa**6.333333333333333d+0 1324 t37 = 1/rhoa**3.6666666666666664d+0 1325 t38 = -2.6666666666666666d+0*gammaaa*t37*t7-5.33333333333333 1326 1 3d+0*t36*t4*t5 1327 t39 = 1/t9**2 1328 t40 = 9.305257363491002d-1*t13*t2*t3*t38*t39+1.2407009817988 1329 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 1330 2 019635976003d+0*gammaaa*t10*t11*t3*t33*t34 1331 t41 = 1/t19**3 1332 t42 = 3.759942411946509d+0*t28*t29-1.8799712059732546d+0*rho 1333 1 a*t28*t40*t41 1334 t43 = rhoa**3 1335 t44 = 1/t43 1336 t45 = 1/t18**2 1337 t46 = 1.413716694115413d+1*t21*t23*t40*t45-2.827433388230826 1338 1 d+1*rhoa*t23*t24 1339 t47 = -3.536776513153214d-2*t18*t20*t22*t25*t46+t25*t46+7.07 1340 1 3553026306428d-2*t18*t20*t26*t44-3.536776513153214d-2*t20 1341 2 *t22*t26*t40 1342 t48 = 2.659615202676212d-1*t16*t17*t19*t47+3.544907701811040 1343 1 3d+0*t25*t32*t42+1.329807601338106d-1*t16*t17*t27*t29*t40 1344 2 -2.659615202676212d-1*t16*t19*t22*t27 1345 t49 = -3.5461536035682834d-1*t15*t16*t17*t19*t48-1.773076801 1346 1 7841417d-1*t15*t16*t17*t29*t30*t40+3.5461536035682834d-1* 1347 2 t15*t16*t19*t22*t30 1348 t50 = -9.305257363491002d-1*t13*t2*t3*t38*t39-1.240700981798 1349 1 8002d+0*t10*t13*t3*t35-1.2407009817988002d+0*t1*t35+2.481 1350 2 4019635976003d+0*gammaaa*t10*t11*t3*t33*t34 1351 t51 = 1/t2 1352 t52 = t7*t8+2*gammaaa*t4*t6 1353 t53 = 9.305257363491002d-1*t13*t2*t3*t39*t52+9.3052573634910 1354 1 02d-1*t10*t11*t3*t33*t51 1355 t54 = 1.413716694115413d+1*t21*t23*t25*t45*t53-3.53677651315 1356 1 3214d-2*t20*t22*t26*t53-5.0d-1*t24*t25*t53 1357 t55 = 2.659615202676212d-1*t16*t17*t19*t54-6.66432440723758d 1358 1 +0*rhoa*t25*t28*t32*t41*t53+1.329807601338106d-1*t16*t17* 1359 2 t27*t29*t53 1360 t56 = -3.5461536035682834d-1*t15*t16*t17*t19*t55-1.773076801 1361 1 7841417d-1*t15*t16*t17*t29*t30*t53 1362 t57 = -9.305257363491002d-1*t13*t2*t3*t39*t52-9.305257363491 1363 1 002d-1*t10*t11*t3*t33*t51 1364 t58 = t40**2 1365 t59 = 1/t19**5 1366 t60 = t11**2 1367 t61 = 1/t12**3 1368 t62 = 1/rhoa**6 1369 t63 = 1/rhoa**3.3333333333333337d+0 1370 t64 = 1/rhoa**6.666666666666666d-1 1371 t65 = t38**2 1372 t66 = 1/t9**3 1373 t67 = 9.777777777777779d+0*gammaaa*t7/rhoa**4.66666666666666 1374 1 7d+0+3.377777777777778d+1*t4*t5/rhoa**7.333333333333333d+ 1375 2 0 1376 t68 = 9.305257363491002d-1*t13*t2*t3*t39*t67-1.8610514726982 1377 1 003d+0*t13*t2*t3*t65*t66+4.135669939329334d-1*t10*t13*t3* 1378 2 t64+4.135669939329334d-1*t1*t64+2.481401963597601d+0*gamm 1379 3 aaa*t10*t11*t3*t33*t63-1.3234143805853868d+1*t10*t3*t5*t6 1380 4 0*t61*t62+2.4814019635976003d+0*t13*t3*t35*t38*t39-4.9628 1381 5 039271952007d+0*gammaaa*t11*t3*t33*t34*t38*t39 1382 t69 = rhoa**4 1383 t70 = 1/t69 1384 t71 = 1/t18**3 1385 t72 = -2.827433388230826d+1*t21*t23*t58*t71+1.41371669411541 1386 1 3d+1*t21*t23*t45*t68+5.654866776461652d+1*rhoa*t23*t40*t4 1387 2 5-2.827433388230826d+1*t23*t24 1388 t73 = t46**2 1389 t74 = 1/rhoa**5 1390 t75 = -2.6666666666666666d+0*t37*t7-1.0666666666666666d+1*ga 1391 1 mmaaa*t36*t4 1392 t76 = 9.305257363491002d-1*t13*t2*t3*t39*t75+4.9628039271952 1393 1 007d+0*gammaaa*t10*t3*t60*t61*t74-1.8610514726982003d+0*t 1394 2 13*t2*t3*t38*t52*t66+1.2407009817988002d+0*t13*t3*t35*t39 1395 3 *t52-2.4814019635976003d+0*gammaaa*t11*t3*t33*t34*t39*t52 1396 4 +9.305257363491002d-1*t11*t3*t33*t38*t39*t51-1.2407009817 1397 5 988002d+0*t10*t11*t3*t33*t34 1398 t77 = 1.413716694115413d+1*t21*t23*t45*t76-2.827433388230826 1399 1 d+1*t21*t23*t40*t53*t71+2.827433388230826d+1*rhoa*t23*t45 1400 2 *t53 1401 t78 = t53**2 1402 t79 = t52**2 1403 t80 = -1.8610514726982003d+0*t13*t2*t3*t66*t79-1.86105147269 1404 1 82003d+0*t10*t3*t60*t61*t70+1.8610514726982003d+0*t13*t3* 1405 2 t39*t4*t70+1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 1406 fnc(iq) = t14*t31*wght+fnc(iq) 1407 Amat(iq,D1_RA) = t31*t50*wght+t14*t49*wght+Amat(iq,D1_RA) 1408 Cmat(iq,D1_GAA) = t31*t57*wght+t14*t56*wght+Cmat(iq,D1_GAA) 1409 Amat2(iq,D2_RA_RA) = t14*(-3.5461536035682834d-1*t15*t16*t17 1410 1 *t19*(2.659615202676212d-1*t16*t17*t19*(-3.53677651315321 1411 2 4d-2*t18*t20*t22*t25*t73+t25*t73-3.536776513153214d-2*t18 1412 3 *t20*t22*t25*t72+t25*t72-2.1220659078919285d-1*t18*t20*t2 1413 4 6*t70-3.536776513153214d-2*t20*t22*t26*t68+1.414710605261 1414 5 2857d-1*t18*t20*t25*t44*t46-7.073553026306428d-2*t20*t22* 1415 6 t25*t40*t46+1.4147106052612857d-1*t20*t26*t40*t44)+3.5449 1416 7 077018110403d+0*t25*t32*(-1.8799712059732546d+0*rhoa*t28* 1417 8 t41*t68+2.8199568089598814d+0*rhoa*t28*t58*t59-3.75994241 1418 9 1946509d+0*t28*t40*t41)+1.329807601338106d-1*t16*t17*t27* 1419 : t29*t68-6.649038006690531d-2*t16*t17*t27*t41*t58+2.659615 1420 ; 202676212d-1*t16*t17*t29*t40*t47-5.319230405352424d-1*t16 1421 < *t19*t22*t47+3.5449077018110403d+0*t25*t32*t42*t46+5.3192 1422 = 30405352424d-1*t16*t19*t27*t44-2.659615202676212d-1*t16*t 1423 > 22*t27*t29*t40)-1.7730768017841417d-1*t15*t16*t17*t29*t30 1424 ? *t68+8.865384008920708d-2*t15*t16*t17*t30*t41*t58-3.54615 1425 @ 36035682834d-1*t15*t16*t17*t29*t40*t48+7.092307207136567d 1426 1 -1*t15*t16*t19*t22*t48-7.092307207136567d-1*t15*t16*t19*t 1427 2 30*t44+3.5461536035682834d-1*t15*t16*t22*t29*t30*t40)*wgh 1428 3 t+t31*(-9.305257363491002d-1*t13*t2*t3*t39*t67+1.86105147 1429 4 26982003d+0*t13*t2*t3*t65*t66-4.135669939329334d-1*t10*t1 1430 5 3*t3*t64-4.135669939329334d-1*t1*t64-2.481401963597601d+0 1431 6 *gammaaa*t10*t11*t3*t33*t63+1.3234143805853868d+1*t10*t3* 1432 7 t5*t60*t61*t62-2.4814019635976003d+0*t13*t3*t35*t38*t39+4 1433 8 .9628039271952007d+0*gammaaa*t11*t3*t33*t34*t38*t39)*wght 1434 9 +2*t49*t50*wght+Amat2(iq,D2_RA_RA) 1435 Cmat2(iq,D2_RA_GAA) = t14*(-3.5461536035682834d-1*t15*t16*t1 1436 1 7*t19*(2.659615202676212d-1*t16*t17*t19*(-3.5367765131532 1437 2 14d-2*t18*t20*t22*t25*t77+t25*t77-3.536776513153214d-2*t2 1438 3 0*t22*t26*t76+1.413716694115413d+1*t21*t23*t25*t45*t46*t5 1439 4 3-5.0d-1*t24*t25*t46*t53-3.536776513153214d-2*t20*t22*t25 1440 5 *t46*t53-5.0d-1*t25*t40*t45*t53+7.073553026306428d-2*t20* 1441 6 t26*t44*t53+1.0d+0*t17*t24*t25*t53)+3.5449077018110403d+0 1442 7 *t25*t32*(-1.8799712059732546d+0*rhoa*t28*t41*t76+2.81995 1443 8 68089598814d+0*rhoa*t28*t40*t53*t59-1.8799712059732546d+0 1444 9 *t28*t41*t53)+1.329807601338106d-1*t16*t17*t27*t29*t76+1. 1445 : 329807601338106d-1*t16*t17*t29*t40*t54-2.659615202676212d 1446 ; -1*t16*t19*t22*t54+1.329807601338106d-1*t16*t17*t29*t47*t 1447 < 53+5.01149519714857d+1*t21*t23*t25*t32*t42*t45*t53-6.6490 1448 = 38006690531d-2*t16*t17*t27*t40*t41*t53-1.329807601338106d 1449 > -1*t16*t22*t27*t29*t53)-1.7730768017841417d-1*t15*t16*t17 1450 ? *t29*t30*t76-1.7730768017841417d-1*t15*t16*t17*t29*t40*t5 1451 @ 5+3.5461536035682834d-1*t15*t16*t19*t22*t55-1.77307680178 1452 1 41417d-1*t15*t16*t17*t29*t48*t53+8.865384008920708d-2*t15 1453 2 *t16*t17*t30*t40*t41*t53+1.7730768017841417d-1*t15*t16*t2 1454 3 2*t29*t30*t53)*wght+t31*(-9.305257363491002d-1*t13*t2*t3* 1455 4 t39*t75-4.9628039271952007d+0*gammaaa*t10*t3*t60*t61*t74+ 1456 5 1.8610514726982003d+0*t13*t2*t3*t38*t52*t66-1.24070098179 1457 6 88002d+0*t13*t3*t35*t39*t52+2.4814019635976003d+0*gammaaa 1458 7 *t11*t3*t33*t34*t39*t52-9.305257363491002d-1*t11*t3*t33*t 1459 8 38*t39*t51+1.2407009817988002d+0*t10*t11*t3*t33*t34)*wght 1460 9 +t49*t57*wght+t50*t56*wght+Cmat2(iq,D2_RA_GAA) 1461 Cmat2(iq,D2_GAA_GAA) = t14*(-3.5461536035682834d-1*t15*t16*t 1462 1 17*t19*(2.659615202676212d-1*t16*t17*t19*(1.4137166941154 1463 2 13d+1*t21*t23*t25*t45*t80-3.536776513153214d-2*t20*t22*t2 1464 3 6*t80-5.0d-1*t24*t25*t80-3.534291735288533d+1*t21*t23*t25 1465 4 *t71*t78+1.9985948912206125d+2*t25*t69*t78/(t16**4*t18**4 1466 5 ))-6.66432440723758d+0*rhoa*t25*t28*t32*t41*t80+1.3298076 1467 6 01338106d-1*t16*t17*t27*t29*t80+9.996486610856369d+0*rhoa 1468 7 *t25*t28*t32*t59*t78-9.421466669512572d+1*t25*t32*t43*t78 1469 8 /(t16**3*t19**7)-6.649038006690531d-2*t16*t17*t27*t41*t78 1470 9 +2.659615202676212d-1*t16*t17*t29*t53*t54)-1.773076801784 1471 : 1417d-1*t15*t16*t17*t29*t30*t80+8.865384008920708d-2*t15* 1472 ; t16*t17*t30*t41*t78-3.5461536035682834d-1*t15*t16*t17*t29 1473 < *t53*t55)*wght+t31*(1.8610514726982003d+0*t13*t2*t3*t66*t 1474 = 79+1.8610514726982003d+0*t10*t3*t60*t61*t70-1.86105147269 1475 > 82003d+0*t13*t3*t39*t4*t70-1.8610514726982003d+0*t11*t3*t 1476 ? 33*t39*t51*t52)*wght+2*t56*t57*wght+Cmat2(iq,D2_GAA_GAA) 1477 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 1478 t1 = param(1) 1479 t2 = rhob**1.3333333333333333d+0 1480 t3 = -t1+param(2)+1.0d+0 1481 t4 = param(4) 1482 t5 = gammabb**2 1483 t6 = 1/rhob**5.333333333333333d+0 1484 t7 = param(3) 1485 t8 = 1/rhob**2.6666666666666666d+0 1486 t9 = gammabb*t7*t8+t4*t5*t6+1.0d+0 1487 t10 = 1.0d+0-1.0d+0/t9 1488 t11 = param(5) 1489 t12 = gammabb*t11*t8+1.0d+0 1490 t13 = 1.0d+0-1.0d+0/t12 1491 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 1492 1 -1*t1*t2 1493 t15 = param(7) 1494 t16 = param(8) 1495 t17 = 1/rhob 1496 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 1497 1 1*t1*t2 1498 t19 = t18**5.0d-1 1499 t20 = t16**2 1500 t21 = rhob**2 1501 t22 = 1/t21 1502 t23 = 1/t20 1503 t24 = 1/t18 1504 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 1505 t26 = t25-1.0d+0 1506 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 1507 t28 = 1/t16 1508 t29 = 1/t19 1509 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 1510 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 1511 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 1512 1 0d+0 1513 t32 = 5.641895835477563d-1 1514 t33 = 1/t12**2 1515 t34 = 1/rhob**2.3333333333333334d+0 1516 t35 = rhob**3.333333333333333d-1 1517 t36 = 1/rhob**6.333333333333333d+0 1518 t37 = 1/rhob**3.6666666666666664d+0 1519 t38 = -2.6666666666666666d+0*gammabb*t37*t7-5.33333333333333 1520 1 3d+0*t36*t4*t5 1521 t39 = 1/t9**2 1522 t40 = 9.305257363491002d-1*t13*t2*t3*t38*t39+1.2407009817988 1523 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 1524 2 019635976003d+0*gammabb*t10*t11*t3*t33*t34 1525 t41 = 1/t19**3 1526 t42 = 3.759942411946509d+0*t28*t29-1.8799712059732546d+0*rho 1527 1 b*t28*t40*t41 1528 t43 = rhob**3 1529 t44 = 1/t43 1530 t45 = 1/t18**2 1531 t46 = 1.413716694115413d+1*t21*t23*t40*t45-2.827433388230826 1532 1 d+1*rhob*t23*t24 1533 t47 = -3.536776513153214d-2*t18*t20*t22*t25*t46+t25*t46+7.07 1534 1 3553026306428d-2*t18*t20*t26*t44-3.536776513153214d-2*t20 1535 2 *t22*t26*t40 1536 t48 = 2.659615202676212d-1*t16*t17*t19*t47+3.544907701811040 1537 1 3d+0*t25*t32*t42+1.329807601338106d-1*t16*t17*t27*t29*t40 1538 2 -2.659615202676212d-1*t16*t19*t22*t27 1539 t49 = -3.5461536035682834d-1*t15*t16*t17*t19*t48-1.773076801 1540 1 7841417d-1*t15*t16*t17*t29*t30*t40+3.5461536035682834d-1* 1541 2 t15*t16*t19*t22*t30 1542 t50 = -9.305257363491002d-1*t13*t2*t3*t38*t39-1.240700981798 1543 1 8002d+0*t10*t13*t3*t35-1.2407009817988002d+0*t1*t35+2.481 1544 2 4019635976003d+0*gammabb*t10*t11*t3*t33*t34 1545 t51 = 1/t2 1546 t52 = t7*t8+2*gammabb*t4*t6 1547 t53 = 9.305257363491002d-1*t13*t2*t3*t39*t52+9.3052573634910 1548 1 02d-1*t10*t11*t3*t33*t51 1549 t54 = 1.413716694115413d+1*t21*t23*t25*t45*t53-3.53677651315 1550 1 3214d-2*t20*t22*t26*t53-5.0d-1*t24*t25*t53 1551 t55 = 2.659615202676212d-1*t16*t17*t19*t54-6.66432440723758d 1552 1 +0*rhob*t25*t28*t32*t41*t53+1.329807601338106d-1*t16*t17* 1553 2 t27*t29*t53 1554 t56 = -3.5461536035682834d-1*t15*t16*t17*t19*t55-1.773076801 1555 1 7841417d-1*t15*t16*t17*t29*t30*t53 1556 t57 = -9.305257363491002d-1*t13*t2*t3*t39*t52-9.305257363491 1557 1 002d-1*t10*t11*t3*t33*t51 1558 t58 = t40**2 1559 t59 = 1/t19**5 1560 t60 = t11**2 1561 t61 = 1/t12**3 1562 t62 = 1/rhob**6 1563 t63 = 1/rhob**3.3333333333333337d+0 1564 t64 = 1/rhob**6.666666666666666d-1 1565 t65 = t38**2 1566 t66 = 1/t9**3 1567 t67 = 9.777777777777779d+0*gammabb*t7/rhob**4.66666666666666 1568 1 7d+0+3.377777777777778d+1*t4*t5/rhob**7.333333333333333d+ 1569 2 0 1570 t68 = 9.305257363491002d-1*t13*t2*t3*t39*t67-1.8610514726982 1571 1 003d+0*t13*t2*t3*t65*t66+4.135669939329334d-1*t10*t13*t3* 1572 2 t64+4.135669939329334d-1*t1*t64+2.481401963597601d+0*gamm 1573 3 abb*t10*t11*t3*t33*t63-1.3234143805853868d+1*t10*t3*t5*t6 1574 4 0*t61*t62+2.4814019635976003d+0*t13*t3*t35*t38*t39-4.9628 1575 5 039271952007d+0*gammabb*t11*t3*t33*t34*t38*t39 1576 t69 = rhob**4 1577 t70 = 1/t69 1578 t71 = 1/t18**3 1579 t72 = -2.827433388230826d+1*t21*t23*t58*t71+1.41371669411541 1580 1 3d+1*t21*t23*t45*t68+5.654866776461652d+1*rhob*t23*t40*t4 1581 2 5-2.827433388230826d+1*t23*t24 1582 t73 = t46**2 1583 t74 = 1/rhob**5 1584 t75 = -2.6666666666666666d+0*t37*t7-1.0666666666666666d+1*ga 1585 1 mmabb*t36*t4 1586 t76 = 9.305257363491002d-1*t13*t2*t3*t39*t75+4.9628039271952 1587 1 007d+0*gammabb*t10*t3*t60*t61*t74-1.8610514726982003d+0*t 1588 2 13*t2*t3*t38*t52*t66+1.2407009817988002d+0*t13*t3*t35*t39 1589 3 *t52-2.4814019635976003d+0*gammabb*t11*t3*t33*t34*t39*t52 1590 4 +9.305257363491002d-1*t11*t3*t33*t38*t39*t51-1.2407009817 1591 5 988002d+0*t10*t11*t3*t33*t34 1592 t77 = 1.413716694115413d+1*t21*t23*t45*t76-2.827433388230826 1593 1 d+1*t21*t23*t40*t53*t71+2.827433388230826d+1*rhob*t23*t45 1594 2 *t53 1595 t78 = t53**2 1596 t79 = t52**2 1597 t80 = -1.8610514726982003d+0*t13*t2*t3*t66*t79-1.86105147269 1598 1 82003d+0*t10*t3*t60*t61*t70+1.8610514726982003d+0*t13*t3* 1599 2 t39*t4*t70+1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 1600 fnc(iq) = t14*t31*wght+fnc(iq) 1601 Amat(iq,D1_RB) = t31*t50*wght+t14*t49*wght+Amat(iq,D1_RB) 1602 Cmat(iq,D1_GBB) = t31*t57*wght+t14*t56*wght+Cmat(iq,D1_GBB) 1603 Amat2(iq,D2_RB_RB) = t14*(-3.5461536035682834d-1*t15*t16*t17 1604 1 *t19*(2.659615202676212d-1*t16*t17*t19*(-3.53677651315321 1605 2 4d-2*t18*t20*t22*t25*t73+t25*t73-3.536776513153214d-2*t18 1606 3 *t20*t22*t25*t72+t25*t72-2.1220659078919285d-1*t18*t20*t2 1607 4 6*t70-3.536776513153214d-2*t20*t22*t26*t68+1.414710605261 1608 5 2857d-1*t18*t20*t25*t44*t46-7.073553026306428d-2*t20*t22* 1609 6 t25*t40*t46+1.4147106052612857d-1*t20*t26*t40*t44)+3.5449 1610 7 077018110403d+0*t25*t32*(-1.8799712059732546d+0*rhob*t28* 1611 8 t41*t68+2.8199568089598814d+0*rhob*t28*t58*t59-3.75994241 1612 9 1946509d+0*t28*t40*t41)+1.329807601338106d-1*t16*t17*t27* 1613 : t29*t68-6.649038006690531d-2*t16*t17*t27*t41*t58+2.659615 1614 ; 202676212d-1*t16*t17*t29*t40*t47-5.319230405352424d-1*t16 1615 < *t19*t22*t47+3.5449077018110403d+0*t25*t32*t42*t46+5.3192 1616 = 30405352424d-1*t16*t19*t27*t44-2.659615202676212d-1*t16*t 1617 > 22*t27*t29*t40)-1.7730768017841417d-1*t15*t16*t17*t29*t30 1618 ? *t68+8.865384008920708d-2*t15*t16*t17*t30*t41*t58-3.54615 1619 @ 36035682834d-1*t15*t16*t17*t29*t40*t48+7.092307207136567d 1620 1 -1*t15*t16*t19*t22*t48-7.092307207136567d-1*t15*t16*t19*t 1621 2 30*t44+3.5461536035682834d-1*t15*t16*t22*t29*t30*t40)*wgh 1622 3 t+t31*(-9.305257363491002d-1*t13*t2*t3*t39*t67+1.86105147 1623 4 26982003d+0*t13*t2*t3*t65*t66-4.135669939329334d-1*t10*t1 1624 5 3*t3*t64-4.135669939329334d-1*t1*t64-2.481401963597601d+0 1625 6 *gammabb*t10*t11*t3*t33*t63+1.3234143805853868d+1*t10*t3* 1626 7 t5*t60*t61*t62-2.4814019635976003d+0*t13*t3*t35*t38*t39+4 1627 8 .9628039271952007d+0*gammabb*t11*t3*t33*t34*t38*t39)*wght 1628 9 +2*t49*t50*wght+Amat2(iq,D2_RB_RB) 1629 Cmat2(iq,D2_RB_GBB) = t14*(-3.5461536035682834d-1*t15*t16*t1 1630 1 7*t19*(2.659615202676212d-1*t16*t17*t19*(-3.5367765131532 1631 2 14d-2*t18*t20*t22*t25*t77+t25*t77-3.536776513153214d-2*t2 1632 3 0*t22*t26*t76+1.413716694115413d+1*t21*t23*t25*t45*t46*t5 1633 4 3-5.0d-1*t24*t25*t46*t53-3.536776513153214d-2*t20*t22*t25 1634 5 *t46*t53-5.0d-1*t25*t40*t45*t53+7.073553026306428d-2*t20* 1635 6 t26*t44*t53+1.0d+0*t17*t24*t25*t53)+3.5449077018110403d+0 1636 7 *t25*t32*(-1.8799712059732546d+0*rhob*t28*t41*t76+2.81995 1637 8 68089598814d+0*rhob*t28*t40*t53*t59-1.8799712059732546d+0 1638 9 *t28*t41*t53)+1.329807601338106d-1*t16*t17*t27*t29*t76+1. 1639 : 329807601338106d-1*t16*t17*t29*t40*t54-2.659615202676212d 1640 ; -1*t16*t19*t22*t54+1.329807601338106d-1*t16*t17*t29*t47*t 1641 < 53+5.01149519714857d+1*t21*t23*t25*t32*t42*t45*t53-6.6490 1642 = 38006690531d-2*t16*t17*t27*t40*t41*t53-1.329807601338106d 1643 > -1*t16*t22*t27*t29*t53)-1.7730768017841417d-1*t15*t16*t17 1644 ? *t29*t30*t76-1.7730768017841417d-1*t15*t16*t17*t29*t40*t5 1645 @ 5+3.5461536035682834d-1*t15*t16*t19*t22*t55-1.77307680178 1646 1 41417d-1*t15*t16*t17*t29*t48*t53+8.865384008920708d-2*t15 1647 2 *t16*t17*t30*t40*t41*t53+1.7730768017841417d-1*t15*t16*t2 1648 3 2*t29*t30*t53)*wght+t31*(-9.305257363491002d-1*t13*t2*t3* 1649 4 t39*t75-4.9628039271952007d+0*gammabb*t10*t3*t60*t61*t74+ 1650 5 1.8610514726982003d+0*t13*t2*t3*t38*t52*t66-1.24070098179 1651 6 88002d+0*t13*t3*t35*t39*t52+2.4814019635976003d+0*gammabb 1652 7 *t11*t3*t33*t34*t39*t52-9.305257363491002d-1*t11*t3*t33*t 1653 8 38*t39*t51+1.2407009817988002d+0*t10*t11*t3*t33*t34)*wght 1654 9 +t49*t57*wght+t50*t56*wght+Cmat2(iq,D2_RB_GBB) 1655 Cmat2(iq,D2_GBB_GBB) = t14*(-3.5461536035682834d-1*t15*t16*t 1656 1 17*t19*(2.659615202676212d-1*t16*t17*t19*(1.4137166941154 1657 2 13d+1*t21*t23*t25*t45*t80-3.536776513153214d-2*t20*t22*t2 1658 3 6*t80-5.0d-1*t24*t25*t80-3.534291735288533d+1*t21*t23*t25 1659 4 *t71*t78+1.9985948912206125d+2*t25*t69*t78/(t16**4*t18**4 1660 5 ))-6.66432440723758d+0*rhob*t25*t28*t32*t41*t80+1.3298076 1661 6 01338106d-1*t16*t17*t27*t29*t80+9.996486610856369d+0*rhob 1662 7 *t25*t28*t32*t59*t78-9.421466669512572d+1*t25*t32*t43*t78 1663 8 /(t16**3*t19**7)-6.649038006690531d-2*t16*t17*t27*t41*t78 1664 9 +2.659615202676212d-1*t16*t17*t29*t53*t54)-1.773076801784 1665 : 1417d-1*t15*t16*t17*t29*t30*t80+8.865384008920708d-2*t15* 1666 ; t16*t17*t30*t41*t78-3.5461536035682834d-1*t15*t16*t17*t29 1667 < *t53*t55)*wght+t31*(1.8610514726982003d+0*t13*t2*t3*t66*t 1668 = 79+1.8610514726982003d+0*t10*t3*t60*t61*t70-1.86105147269 1669 > 82003d+0*t13*t3*t39*t4*t70-1.8610514726982003d+0*t11*t3*t 1670 ? 33*t39*t51*t52)*wght+2*t56*t57*wght+Cmat2(iq,D2_GBB_GBB) 1671 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 1672 endif ! ipol.eq.1 1673 enddo ! iq 1674 end 1675C> 1676C> \brief Evaluate the nwxcm_x_cams12 functional [1] 1677C> 1678C> \f{eqnarray*}{ 1679C> {\it t_1} &=& {\it param}\left(1\right)\\\\ 1680C> {\it t_2} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 1681C> {\it t_3} &=& {\it param}\left(2\right)-{\it t_1}+1.0\\\\ 1682C> {\it t_4} &=& {\it param}\left(5\right)\\\\ 1683C> {\it t_5} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\ 1684C> {\it t_6} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_5}\, 1685C> \sigma_{\alpha\alpha}+1.0}}\\\\ 1686C> {\it t_7} &=& {\it param}\left(3\right)\\\\ 1687C> {\it t_8} &=& {\it param}\left(4\right)\\\\ 1688C> {\it t_9} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 1689C> \sigma_{\alpha\alpha}^2}\over{\rho_\alpha^{{{16}\over{3}}}}} 1690C> +{\it t_7}\,{\it t_5}\,\sigma_{\alpha\alpha}+1.0}}\\\\ 1691C> {\it t_{10}} &=& -{\it param}\left(6\right)\\\\ 1692C> {\it t_{11}} &=& {\it param}\left(7\right)\\\\ 1693C> {\it t_{12}} &=& {\it param}\left(8\right)\\\\ 1694C> {\it t_{13}} &=& {{1}\over{\rho_\alpha}}\\\\ 1695C> {\it t_{14}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_2}\,{ 1696C> \it t_6}\,{\it t_9}+0.9305257363491002\,{\it t_1}\,{\it t_2}\\\\ 1697C> {\it t_{15}} &=& \sqrt{{\it t_{14}}}\\\\ 1698C> {\it t_{16}} &=& {\it t_{12}}^2\\\\ 1699C> {\it t_{17}} &=& \rho_\alpha^2\\\\ 1700C> {\it t_{18}} &=& {{1}\over{{\it t_{16}}}}\\\\ 1701C> {\it t_{19}} &=& e^ {- {{14.13716694115413\,{\it t_{17}}\,{ 1702C> \it t_{18}}}\over{{\it t_{14}}}} }\\\\ 1703C> {\it t_{20}} &=& {{1}\over{{\it t_{12}}}}\\\\ 1704C> {\it t_{21}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 1705C> {\it t_{22}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\ 1706C> {\it t_{23}} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_{22}} 1707C> \,\sigma_{\beta\beta}+1.0}}\\\\ 1708C> {\it t_{24}} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 1709C> \sigma_{\beta\beta}^2}\over{\rho_\beta^{{{16}\over{3}}}}}+{ 1710C> \it t_7}\,{\it t_{22}}\,\sigma_{\beta\beta}+1.0}}\\\\ 1711C> {\it t_{25}} &=& {{1}\over{\rho_\beta}}\\\\ 1712C> {\it t_{26}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_{21}} 1713C> \,{\it t_{23}}\,{\it t_{24}}+0.9305257363491002\,{\it t_1} 1714C> \,{\it t_{21}}\\\\ 1715C> {\it t_{27}} &=& \sqrt{{\it t_{26}}}\\\\ 1716C> {\it t_{28}} &=& \rho_\beta^2\\\\ 1717C> {\it t_{29}} &=& e^ {- {{14.13716694115413\,{\it t_{18}}\,{ 1718C> \it t_{28}}}\over{{\it t_{26}}}} }\\\\ 1719C> {\it t_{30}} &=& \rho_s^{{{4}\over{3}}}\\\\ 1720C> {\it t_{31}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\ 1721C> {\it t_{32}} &=& 1.0-{{1.0}\over{{\it t_4}\,{\it t_{31}} 1722C> \,\sigma_{ss}+1.0}}\\\\ 1723C> {\it t_{33}} &=& 1.0-{{1.0}\over{{{{\it t_8}\, 1724C> \sigma_{ss}^2}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_7}\,{ 1725C> \it t_{31}}\,\sigma_{ss}+1.0}}\\\\ 1726C> {\it t_{34}} &=& {{1}\over{\rho_s}}\\\\ 1727C> {\it t_{35}} &=& 0.9305257363491002\,{\it t_3}\,{\it t_{30}} 1728C> \,{\it t_{32}}\,{\it t_{33}}+0.9305257363491002\,{\it t_1} 1729C> \,{\it t_{30}}\\\\ 1730C> {\it t_{36}} &=& \sqrt{{\it t_{35}}}\\\\ 1731C> {\it t_{37}} &=& \rho_s^2\\\\ 1732C> {\it t_{38}} &=& e^ {- {{14.13716694115413\,{\it t_{18}}\,{ 1733C> \it t_{37}}}\over{{\it t_{35}}}} }\\\\ 1734C> f &=& \left(-0.9305257363491002\,{\it t_3}\,{\it t_{21}}\,{ 1735C> \it t_{23}}\,{\it t_{24}}-0.9305257363491002\,{\it t_1}\,{ 1736C> \it t_{21}}\right)\,\left(-0.3546153603568283\,{\it t_{11}} 1737C> \,{\it t_{12}}\,{\it t_{25}}\,{\it t_{27}}\, 1738C> \left(1.77245385090552\,\mathrm{erf}\left({{3.759942411946509 1739C> \,{\it t_{20}}\,\rho_\beta}\over{{\it t_{27}}}}\right) 1740C> +0.2659615202676212\,{\it t_{12}}\,{\it t_{25}}\,{\it t_{27}} 1741C> \,\left({\it t_{29}}-{{0.03536776513153214\,{\it t_{16}}\,{ 1742C> \it t_{26}}\,\left({\it t_{29}}-1.0\right)}\over{{\it t_{28}}}} 1743C> -1.5\right)\right)+{\it t_{10}}+1.0\right)+\left( 1744C> -0.9305257363491002\,{\it t_3}\,{\it t_2}\,{\it t_6}\,{\it t_9} 1745C> -0.9305257363491002\,{\it t_1}\,{\it t_2}\right)\,\left( 1746C> -0.3546153603568283\,{\it t_{11}}\,{\it t_{12}}\,{\it t_{13}} 1747C> \,{\it t_{15}}\,\left(1.77245385090552\,\mathrm{erf} 1748C> \left({{3.759942411946509\,{\it t_{20}}\,\rho_\alpha}\over{{ 1749C> \it t_{15}}}}\right)+0.2659615202676212\,{\it t_{12}}\,{ 1750C> \it t_{13}}\,{\it t_{15}}\,\left({\it t_{19}} 1751C> -{{0.03536776513153214\,{\it t_{16}}\,{\it t_{14}}\,\left({ 1752C> \it t_{19}}-1.0\right)}\over{{\it t_{17}}}}-1.5\right)\right) 1753C> +{\it t_{10}}+1.0\right)\\\\ 1754C> g &=& 0\\\\ 1755C> G &=& \left(-0.9305257363491002\,{\it t_3}\,{\it t_{30}}\,{ 1756C> \it t_{32}}\,{\it t_{33}}-0.9305257363491002\,{\it t_1}\,{ 1757C> \it t_{30}}\right)\,\left(-0.3546153603568283\,{\it t_{11}} 1758C> \,{\it t_{12}}\,{\it t_{34}}\,{\it t_{36}}\, 1759C> \left(1.77245385090552\,\mathrm{erf}\left({{3.759942411946509 1760C> \,{\it t_{20}}\,\rho_s}\over{{\it t_{36}}}}\right) 1761C> +0.2659615202676212\,{\it t_{12}}\,{\it t_{34}}\,{\it t_{36}} 1762C> \,\left({\it t_{38}}-{{0.03536776513153214\,{\it t_{16}}\,{ 1763C> \it t_{35}}\,\left({\it t_{38}}-1.0\right)}\over{{\it t_{37}}}} 1764C> -1.5\right)\right)+{\it t_{10}}+1.0\right)\\\\ 1765C> \f} 1766C> 1767C> Code generated with Maxima 5.34.0 [2] 1768C> driven by autoxc [3]. 1769C> 1770C> ### References ### 1771C> 1772C> [1] M Swart, Chem.Phys.Lett. 580, 166 (2013) , DOI: 1773C> <a href="https://doi.org/10.1016/j.cplett.2013.06.045 "> 1774C> 10.1016/j.cplett.2013.06.045 </a> 1775C> 1776C> [2] Maxima, a computer algebra system, 1777C> <a href="http://maxima.sourceforge.net/"> 1778C> http://maxima.sourceforge.net/</a> 1779C> 1780C> [3] autoxc, revision 27097 2015-05-08 1781C> 1782 subroutine nwxcm_x_cams12_d3(param,tol_rho,ipol,nq,wght, 1783 +rho,rgamma,fnc,Amat,Amat2,Amat3, 1784 +Cmat,Cmat2,Cmat3) 1785c $Id: $ 1786#ifdef NWXC_QUAD_PREC 1787 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 1788 integer, parameter :: rk=selected_real_kind(30) 1789#else 1790 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 1791 integer, parameter :: rk=selected_real_kind(15) 1792#endif 1793#include "nwxc_param.fh" 1794 double precision param(*) !< [Input] Parameters of functional 1795 double precision tol_rho !< [Input] The lower limit on the density 1796 integer ipol !< [Input] The number of spin channels 1797 integer nq !< [Input] The number of points 1798 double precision wght !< [Input] The weight of the functional 1799 double precision rho(nq,*) !< [Input] The density 1800 double precision rgamma(nq,*) !< [Input] The norm of the density 1801 !< gradients 1802 double precision fnc(nq) !< [Output] The value of the functional 1803c 1804c Sampling Matrices for the XC Kernel 1805c 1806 double precision Amat(nq,*) !< [Output] The derivative wrt rho 1807 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 1808c 1809c Sampling Matrices for the XC Kernel 1810c 1811 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 1812 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 1813 !< and possibly rho 1814c 1815c Sampling Matrices for the XC Kernel 1816c 1817 double precision Amat3(nq,*) !< [Output] The 3rd derivative wrt rho 1818 double precision Cmat3(nq,*) !< [Output] The 3rd derivative wrt rgamma 1819 !< and possibly rho 1820 integer iq 1821 double precision tmp 1822 double precision rhoa,rhob 1823 double precision gammaaa,gammaab,gammabb 1824 double precision taua,taub 1825 double precision nwxcm_heaviside 1826 external nwxcm_heaviside 1827CDIR$ NOVECTOR 1828 do iq = 1, nq 1829 if (ipol.eq.1) then 1830 rhoa = 0.5d0*rho(iq,R_T) 1831 gammaaa = 0.25d0*rgamma(iq,G_TT) 1832 if (rhoa.gt.tol_rho) then 1833 t1 = param(1) 1834 t2 = rhoa**1.3333333333333333d+0 1835 t3 = -t1+param(2)+1.0d+0 1836 t4 = param(4) 1837 t5 = gammaaa**2 1838 t6 = 1/rhoa**5.333333333333333d+0 1839 t7 = param(3) 1840 t8 = 1/rhoa**2.6666666666666666d+0 1841 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 1842 t10 = 1.0d+0-1.0d+0/t9 1843 t11 = param(5) 1844 t12 = gammaaa*t11*t8+1.0d+0 1845 t13 = 1.0d+0-1.0d+0/t12 1846 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 1847 1 -1*t1*t2 1848 t15 = param(7) 1849 t16 = param(8) 1850 t17 = 1/rhoa 1851 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 1852 1 1*t1*t2 1853 t19 = t18**5.0d-1 1854 t20 = t16**2 1855 t21 = rhoa**2 1856 t22 = 1/t21 1857 t23 = 1/t20 1858 t24 = 1/t18 1859 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 1860 t26 = t25-1.0d+0 1861 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 1862 t28 = 1/t16 1863 t29 = 1/t19 1864 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 1865 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 1866 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 1867 1 0d+0 1868 t32 = 5.641895835477563d-1 1869 t33 = 1/t12**2 1870 t34 = 1/rhoa**2.3333333333333334d+0 1871 t35 = rhoa**3.333333333333333d-1 1872 t36 = 1/rhoa**6.333333333333333d+0 1873 t37 = 1/rhoa**3.6666666666666664d+0 1874 t38 = -2.6666666666666666d+0*gammaaa*t37*t7-5.33333333333333 1875 1 3d+0*t36*t4*t5 1876 t39 = 1/t9**2 1877 t40 = 9.305257363491002d-1*t13*t2*t3*t38*t39+1.2407009817988 1878 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 1879 2 019635976003d+0*gammaaa*t10*t11*t3*t33*t34 1880 t41 = 1/t19**3 1881 t42 = 3.759942411946509d+0*t28*t29-1.8799712059732546d+0*rho 1882 1 a*t28*t40*t41 1883 t43 = rhoa**3 1884 t44 = 1/t43 1885 t45 = 1/t18**2 1886 t46 = 1.413716694115413d+1*t21*t23*t40*t45-2.827433388230826 1887 1 d+1*rhoa*t23*t24 1888 t47 = -3.536776513153214d-2*t18*t20*t22*t25*t46+t25*t46+7.07 1889 1 3553026306428d-2*t18*t20*t26*t44-3.536776513153214d-2*t20 1890 2 *t22*t26*t40 1891 t48 = 2.659615202676212d-1*t16*t17*t19*t47+3.544907701811040 1892 1 3d+0*t25*t32*t42+1.329807601338106d-1*t16*t17*t27*t29*t40 1893 2 -2.659615202676212d-1*t16*t19*t22*t27 1894 t49 = -3.5461536035682834d-1*t15*t16*t17*t19*t48-1.773076801 1895 1 7841417d-1*t15*t16*t17*t29*t30*t40+3.5461536035682834d-1* 1896 2 t15*t16*t19*t22*t30 1897 t50 = -9.305257363491002d-1*t13*t2*t3*t38*t39-1.240700981798 1898 1 8002d+0*t10*t13*t3*t35-1.2407009817988002d+0*t1*t35+2.481 1899 2 4019635976003d+0*gammaaa*t10*t11*t3*t33*t34 1900 t51 = 1/t2 1901 t52 = t7*t8+2*gammaaa*t4*t6 1902 t53 = 9.305257363491002d-1*t13*t2*t3*t39*t52+9.3052573634910 1903 1 02d-1*t10*t11*t3*t33*t51 1904 t54 = 1.413716694115413d+1*t21*t23*t25*t45*t53-3.53677651315 1905 1 3214d-2*t20*t22*t26*t53-5.0d-1*t24*t25*t53 1906 t55 = 2.659615202676212d-1*t16*t17*t19*t54-6.66432440723758d 1907 1 +0*rhoa*t25*t28*t32*t41*t53+1.329807601338106d-1*t16*t17* 1908 2 t27*t29*t53 1909 t56 = -3.5461536035682834d-1*t15*t16*t17*t19*t55-1.773076801 1910 1 7841417d-1*t15*t16*t17*t29*t30*t53 1911 t57 = -9.305257363491002d-1*t13*t2*t3*t39*t52-9.305257363491 1912 1 002d-1*t10*t11*t3*t33*t51 1913 t58 = t40**2 1914 t59 = 1/t19**5 1915 t60 = t11**2 1916 t61 = 1/t12**3 1917 t62 = rhoa**6 1918 t63 = 1/t62 1919 t64 = 1/rhoa**3.3333333333333337d+0 1920 t65 = 1/rhoa**6.666666666666666d-1 1921 t66 = t38**2 1922 t67 = 1/t9**3 1923 t68 = 1/rhoa**7.333333333333333d+0 1924 t69 = 1/rhoa**4.666666666666667d+0 1925 t70 = 9.777777777777779d+0*gammaaa*t69*t7+3.377777777777778d 1926 1 +1*t4*t5*t68 1927 t71 = 9.305257363491002d-1*t13*t2*t3*t39*t70-1.8610514726982 1928 1 003d+0*t13*t2*t3*t66*t67+4.135669939329334d-1*t10*t13*t3* 1929 2 t65+4.135669939329334d-1*t1*t65+2.481401963597601d+0*gamm 1930 3 aaa*t10*t11*t3*t33*t64-1.3234143805853868d+1*t10*t3*t5*t6 1931 4 0*t61*t63+2.4814019635976003d+0*t13*t3*t35*t38*t39-4.9628 1932 5 039271952007d+0*gammaaa*t11*t3*t33*t34*t38*t39 1933 t72 = -1.8799712059732546d+0*rhoa*t28*t41*t71+2.819956808959 1934 1 8814d+0*rhoa*t28*t58*t59-3.759942411946509d+0*t28*t40*t41 1935 t73 = rhoa**4 1936 t74 = 1/t73 1937 t75 = 1/t18**3 1938 t76 = -2.827433388230826d+1*t21*t23*t58*t75+1.41371669411541 1939 1 3d+1*t21*t23*t45*t71+5.654866776461652d+1*rhoa*t23*t40*t4 1940 2 5-2.827433388230826d+1*t23*t24 1941 t77 = t46**2 1942 t78 = -3.536776513153214d-2*t18*t20*t22*t25*t77+t25*t77-3.53 1943 1 6776513153214d-2*t18*t20*t22*t25*t76+t25*t76-2.1220659078 1944 2 919285d-1*t18*t20*t26*t74-3.536776513153214d-2*t20*t22*t2 1945 3 6*t71+1.4147106052612857d-1*t18*t20*t25*t44*t46-7.0735530 1946 4 26306428d-2*t20*t22*t25*t40*t46+1.4147106052612857d-1*t20 1947 5 *t26*t40*t44 1948 t79 = 2.659615202676212d-1*t16*t17*t19*t78+3.544907701811040 1949 1 3d+0*t25*t32*t72+1.329807601338106d-1*t16*t17*t27*t29*t71 1950 2 -6.649038006690531d-2*t16*t17*t27*t41*t58+2.6596152026762 1951 3 12d-1*t16*t17*t29*t40*t47-5.319230405352424d-1*t16*t19*t2 1952 4 2*t47+3.5449077018110403d+0*t25*t32*t42*t46+5.31923040535 1953 5 2424d-1*t16*t19*t27*t44-2.659615202676212d-1*t16*t22*t27* 1954 6 t29*t40 1955 t80 = -3.5461536035682834d-1*t15*t16*t17*t19*t79-1.773076801 1956 1 7841417d-1*t15*t16*t17*t29*t30*t71+8.865384008920708d-2*t 1957 2 15*t16*t17*t30*t41*t58-3.5461536035682834d-1*t15*t16*t17* 1958 3 t29*t40*t48+7.092307207136567d-1*t15*t16*t19*t22*t48-7.09 1959 4 2307207136567d-1*t15*t16*t19*t30*t44+3.5461536035682834d- 1960 5 1*t15*t16*t22*t29*t30*t40 1961 t81 = -9.305257363491002d-1*t13*t2*t3*t39*t70+1.861051472698 1962 1 2003d+0*t13*t2*t3*t66*t67-4.135669939329334d-1*t10*t13*t3 1963 2 *t65-4.135669939329334d-1*t1*t65-2.481401963597601d+0*gam 1964 3 maaa*t10*t11*t3*t33*t64+1.3234143805853868d+1*t10*t3*t5*t 1965 4 60*t61*t63-2.4814019635976003d+0*t13*t3*t35*t38*t39+4.962 1966 5 8039271952007d+0*gammaaa*t11*t3*t33*t34*t38*t39 1967 t82 = rhoa**5 1968 t83 = 1/t82 1969 t84 = -2.6666666666666666d+0*t37*t7-1.0666666666666666d+1*ga 1970 1 mmaaa*t36*t4 1971 t85 = 9.305257363491002d-1*t13*t2*t3*t39*t84+4.9628039271952 1972 1 007d+0*gammaaa*t10*t3*t60*t61*t83-1.8610514726982003d+0*t 1973 2 13*t2*t3*t38*t52*t67+1.2407009817988002d+0*t13*t3*t35*t39 1974 3 *t52-2.4814019635976003d+0*gammaaa*t11*t3*t33*t34*t39*t52 1975 4 +9.305257363491002d-1*t11*t3*t33*t38*t39*t51-1.2407009817 1976 5 988002d+0*t10*t11*t3*t33*t34 1977 t86 = -1.8799712059732546d+0*rhoa*t28*t41*t85+2.819956808959 1978 1 8814d+0*rhoa*t28*t40*t53*t59-1.8799712059732546d+0*t28*t4 1979 2 1*t53 1980 t87 = 1.413716694115413d+1*t21*t23*t45*t85-2.827433388230826 1981 1 d+1*t21*t23*t40*t53*t75+2.827433388230826d+1*rhoa*t23*t45 1982 2 *t53 1983 t88 = -3.536776513153214d-2*t18*t20*t22*t25*t87+t25*t87-3.53 1984 1 6776513153214d-2*t20*t22*t26*t85+1.413716694115413d+1*t21 1985 2 *t23*t25*t45*t46*t53-5.0d-1*t24*t25*t46*t53-3.53677651315 1986 3 3214d-2*t20*t22*t25*t46*t53-5.0d-1*t25*t40*t45*t53+7.0735 1987 4 53026306428d-2*t20*t26*t44*t53+1.0d+0*t17*t24*t25*t53 1988 t89 = 2.659615202676212d-1*t16*t17*t19*t88+3.544907701811040 1989 1 3d+0*t25*t32*t86+1.329807601338106d-1*t16*t17*t27*t29*t85 1990 2 +1.329807601338106d-1*t16*t17*t29*t40*t54-2.6596152026762 1991 3 12d-1*t16*t19*t22*t54+1.329807601338106d-1*t16*t17*t29*t4 1992 4 7*t53+5.01149519714857d+1*t21*t23*t25*t32*t42*t45*t53-6.6 1993 5 49038006690531d-2*t16*t17*t27*t40*t41*t53-1.3298076013381 1994 6 06d-1*t16*t22*t27*t29*t53 1995 t90 = -3.5461536035682834d-1*t15*t16*t17*t19*t89-1.773076801 1996 1 7841417d-1*t15*t16*t17*t29*t30*t85-1.7730768017841417d-1* 1997 2 t15*t16*t17*t29*t40*t55+3.5461536035682834d-1*t15*t16*t19 1998 3 *t22*t55-1.7730768017841417d-1*t15*t16*t17*t29*t48*t53+8. 1999 4 865384008920708d-2*t15*t16*t17*t30*t40*t41*t53+1.77307680 2000 5 17841417d-1*t15*t16*t22*t29*t30*t53 2001 t91 = -9.305257363491002d-1*t13*t2*t3*t39*t84-4.962803927195 2002 1 2007d+0*gammaaa*t10*t3*t60*t61*t83+1.8610514726982003d+0* 2003 2 t13*t2*t3*t38*t52*t67-1.2407009817988002d+0*t13*t3*t35*t3 2004 3 9*t52+2.4814019635976003d+0*gammaaa*t11*t3*t33*t34*t39*t5 2005 4 2-9.305257363491002d-1*t11*t3*t33*t38*t39*t51+1.240700981 2006 5 7988002d+0*t10*t11*t3*t33*t34 2007 t92 = 1/t16**3 2008 t93 = t53**2 2009 t94 = 1/t19**7 2010 t95 = t52**2 2011 t96 = -1.8610514726982003d+0*t13*t2*t3*t67*t95-1.86105147269 2012 1 82003d+0*t10*t3*t60*t61*t74+1.8610514726982003d+0*t13*t3* 2013 2 t39*t4*t74+1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 2014 t97 = 1/t16**4 2015 t98 = 1/t18**4 2016 t99 = 1.9985948912206125d+2*t25*t73*t93*t97*t98+1.4137166941 2017 1 15413d+1*t21*t23*t25*t45*t96-3.536776513153214d-2*t20*t22 2018 2 *t26*t96-5.0d-1*t24*t25*t96-3.534291735288533d+1*t21*t23* 2019 3 t25*t75*t93 2020 t100 = 2.659615202676212d-1*t16*t17*t19*t99-6.66432440723758 2021 1 d+0*rhoa*t25*t28*t32*t41*t96+1.329807601338106d-1*t16*t17 2022 2 *t27*t29*t96-9.421466669512572d+1*t25*t32*t43*t92*t93*t94 2023 3 +9.996486610856369d+0*rhoa*t25*t28*t32*t59*t93-6.64903800 2024 4 6690531d-2*t16*t17*t27*t41*t93+2.659615202676212d-1*t16*t 2025 5 17*t29*t53*t54 2026 t101 = -1.7730768017841417d-1*t15*t16*t17*t29*t30*t96+8.8653 2027 1 84008920708d-2*t15*t16*t17*t30*t41*t93-3.5461536035682834 2028 2 d-1*t15*t16*t17*t29*t53*t55-3.5461536035682834d-1*t100*t1 2029 3 5*t16*t17*t19 2030 t102 = 1.8610514726982003d+0*t13*t2*t3*t67*t95+1.86105147269 2031 1 82003d+0*t10*t3*t60*t61*t74-1.8610514726982003d+0*t13*t3* 2032 2 t39*t4*t74-1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 2033 t103 = t40**3 2034 t104 = t11**3 2035 t105 = gammaaa**3 2036 t106 = 1/t12**4 2037 t107 = 1/rhoa**9.666666666666666d+0 2038 t108 = 1/rhoa**7 2039 t109 = 1/rhoa**4.333333333333333d+0 2040 t110 = 1/rhoa**1.6666666666666669d+0 2041 t111 = t38**3 2042 t112 = 1/t9**4 2043 t113 = -4.5629629629629626d+1*gammaaa*t7/rhoa**5.66666666666 2044 1 6667d+0-2.477037037037037d+2*t4*t5/rhoa**8.33333333333333 2045 2 4d+0 2046 t114 = -5.583154418094601d+0*t13*t2*t3*t38*t67*t70+3.7221029 2047 1 453964005d+0*t13*t3*t35*t39*t70-7.444205890792801d+0*gamm 2048 2 aaa*t11*t3*t33*t34*t39*t70-7.444205890792801d+0*t13*t3*t3 2049 3 5*t66*t67+1.4888411781585603d+1*gammaaa*t11*t3*t33*t34*t6 2050 4 6*t67+1.2407009817988002d+0*t13*t3*t38*t39*t65+7.44420589 2051 5 0792801d+0*gammaaa*t11*t3*t33*t38*t39*t64-3.9702431417561 2052 6 607d+1*t3*t38*t39*t5*t60*t61*t63+9.263900664097708d+1*t10 2053 7 *t108*t3*t5*t60*t61+9.305257363491002d-1*t113*t13*t2*t3*t 2054 8 39-9.374185195813161d+0*gammaaa*t10*t109*t11*t3*t33+5.583 2055 9 154418094601d+0*t111*t112*t13*t2*t3-2.7571132928862224d-1 2056 : *t10*t110*t13*t3-1.0587315044683095d+2*t10*t104*t105*t106 2057 ; *t107*t3-2.7571132928862224d-1*t1*t110 2058 t115 = 8.482300164692478d+1*t103*t21*t23*t98-8.4823001646924 2059 1 78d+1*t21*t23*t40*t71*t75-1.6964600329384957d+2*rhoa*t23* 2060 2 t58*t75+8.482300164692478d+1*rhoa*t23*t45*t71+8.482300164 2061 3 692478d+1*t23*t40*t45+1.413716694115413d+1*t114*t21*t23*t 2062 4 45 2063 t116 = t46**3 2064 t117 = 1/rhoa**8.666666666666666d+0 2065 t118 = 9.777777777777779d+0*t69*t7+6.755555555555556d+1*gamm 2066 1 aaa*t4*t68 2067 t119 = -3.7221029453964005d+0*t13*t2*t3*t38*t67*t84+2.481401 2068 1 9635976003d+0*t13*t3*t35*t39*t84-4.9628039271952007d+0*ga 2069 2 mmaaa*t11*t3*t33*t34*t39*t84+9.925607854390401d+0*gammaaa 2070 3 *t3*t38*t39*t60*t61*t83-1.8610514726982003d+0*t13*t2*t3*t 2071 4 52*t67*t70+9.305257363491002d-1*t11*t3*t33*t39*t51*t70-1. 2072 5 8610514726982003d+0*t11*t3*t33*t51*t66*t67-4.962803927195 2073 6 2007d+0*t13*t3*t35*t38*t52*t67+9.925607854390401d+0*gamma 2074 7 aa*t11*t3*t33*t34*t38*t52*t67+5.583154418094601d+0*t112*t 2075 8 13*t2*t3*t52*t66+4.135669939329334d-1*t13*t3*t39*t52*t65+ 2076 9 2.481401963597601d+0*gammaaa*t11*t3*t33*t39*t52*t64+2.894 2077 : 9689575305343d+0*t10*t11*t3*t33*t64-1.3234143805853868d+1 2078 ; *t3*t39*t5*t52*t60*t61*t63-3.143109153890294d+1*gammaaa*t 2079 < 10*t3*t60*t61*t63+3.9702431417561607d+1*t10*t104*t106*t11 2080 = 7*t3*t5-2.4814019635976003d+0*t11*t3*t33*t34*t38*t39+9.30 2081 > 5257363491002d-1*t118*t13*t2*t3*t39 2082 t120 = 8.482300164692478d+1*t21*t23*t53*t58*t98-5.6548667764 2083 1 61652d+1*t21*t23*t40*t75*t85+5.654866776461652d+1*rhoa*t2 2084 2 3*t45*t85-2.827433388230826d+1*t21*t23*t53*t71*t75-1.1309 2085 3 733552923305d+2*rhoa*t23*t40*t53*t75+2.827433388230826d+1 2086 4 *t23*t45*t53+1.413716694115413d+1*t119*t21*t23*t45 2087 t121 = 1/rhoa**7.666666666666667d+0 2088 t122 = -2.4814019635976003d+0*t13*t3*t35*t67*t95+4.962803927 2089 1 1952007d+0*gammaaa*t11*t3*t33*t34*t67*t95+5.5831544180946 2090 2 01d+0*t112*t13*t2*t3*t38*t95-3.7221029453964005d+0*t13*t2 2091 3 *t3*t52*t67*t84+1.8610514726982003d+0*t11*t3*t33*t39*t51* 2092 4 t84+9.925607854390401d+0*gammaaa*t3*t39*t52*t60*t61*t83+7 2093 5 .444205890792801d+0*t10*t3*t60*t61*t83-7.444205890792801d 2094 6 +0*t13*t3*t39*t4*t83-3.7221029453964005d+0*t13*t3*t38*t4* 2095 7 t67*t74-1.8610514726982003d+0*t3*t38*t39*t60*t61*t74-3.72 2096 8 21029453964005d+0*t11*t3*t33*t38*t51*t52*t67-2.4814019635 2097 9 97601d+0*t11*t3*t33*t34*t39*t52-4.9628039271952007d+0*gam 2098 : maaa*t11*t121*t3*t33*t39*t4-1.4888411781585603d+1*gammaaa 2099 ; *t10*t104*t106*t121*t3 2100 t123 = 8.482300164692478d+1*t21*t23*t40*t93*t98-2.8274333882 2101 1 30826d+1*t21*t23*t40*t75*t96+2.827433388230826d+1*rhoa*t2 2102 2 3*t45*t96-5.654866776461652d+1*rhoa*t23*t75*t93-5.6548667 2103 3 76461652d+1*t21*t23*t53*t75*t85+1.413716694115413d+1*t122 2104 4 *t21*t23*t45 2105 t124 = t53**3 2106 t125 = 1/rhoa**6.666666666666667d+0 2107 t126 = t52**3 2108 t127 = -5.583154418094601d+0*t11*t3*t33*t51*t67*t95-1.116630 2109 1 8836189202d+1*t13*t3*t4*t52*t67*t74-5.583154418094601d+0* 2110 2 t3*t39*t52*t60*t61*t74+5.583154418094601d+0*t11*t125*t3*t 2111 3 33*t39*t4+5.583154418094601d+0*t112*t126*t13*t2*t3+5.5831 2112 4 54418094601d+0*t10*t104*t106*t125*t3 2113 fnc(iq) = 2*t14*t31*wght+fnc(iq) 2114 Amat(iq,D1_RA) = (t31*t50+t14*t49)*wght+Amat(iq,D1_RA) 2115 Cmat(iq,D1_GAA) = (t31*t57+t14*t56)*wght+Cmat(iq,D1_GAA) 2116 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 2117 Amat2(iq,D2_RA_RA) = (t31*t81+t14*t80+2*t49*t50)*wght+Amat2( 2118 1 iq,D2_RA_RA) 2119 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 2120 Cmat2(iq,D2_RA_GAA) = (t31*t91+t14*t90+t49*t57+t50*t56)*wght 2121 1 +Cmat2(iq,D2_RA_GAA) 2122 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 2123 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 2124 Cmat2(iq,D2_GAA_GAA) = (2*t56*t57+t102*t31+t101*t14)*wght+Cm 2125 1 at2(iq,D2_GAA_GAA) 2126 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 2127 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 2128 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 2129 Amat3(iq,D3_RA_RA_RA) = (t14*(-3.5461536035682834d-1*t15*t16 2130 1 *t17*t19*(3.5449077018110403d+0*t25*t32*(-7.0498920223997 2131 2 04d+0*rhoa*t103*t28*t94+8.459870426879645d+0*rhoa*t28*t40 2132 3 *t59*t71-5.639913617919763d+0*t28*t41*t71+8.4598704268796 2133 4 45d+0*t28*t58*t59-1.8799712059732546d+0*rhoa*t114*t28*t41 2134 5 )+2.659615202676212d-1*t16*t17*t19*(8.488263631567714d-1* 2135 6 t18*t20*t26*t83+2.1220659078919285d-1*t18*t20*t25*t44*t77 2136 7 -1.0610329539459643d-1*t20*t22*t25*t40*t77-1.061032953945 2137 8 9643d-1*t18*t20*t22*t25*t46*t76+3*t25*t46*t76+2.122065907 2138 9 8919285d-1*t18*t20*t25*t44*t76-1.0610329539459643d-1*t20* 2139 : t22*t25*t40*t76-6.366197723675786d-1*t18*t20*t25*t46*t74- 2140 ; 6.366197723675786d-1*t20*t26*t40*t74-1.0610329539459643d- 2141 < 1*t20*t22*t25*t46*t71+2.1220659078919285d-1*t20*t26*t44*t 2142 = 71+4.244131815783857d-1*t20*t25*t40*t44*t46-3.53677651315 2143 > 3214d-2*t114*t20*t22*t26-3.536776513153214d-2*t116*t18*t2 2144 ? 0*t22*t25-3.536776513153214d-2*t115*t18*t20*t22*t25+t116* 2145 @ t25+t115*t25)+3.989422804014318d-1*t16*t17*t29*t40*t78-7. 2146 1 978845608028636d-1*t16*t19*t22*t78+3.5449077018110403d+0* 2147 2 t25*t32*t42*t77+3.5449077018110403d+0*t25*t32*t42*t76-1.5 2148 3 957691216057274d+0*t16*t19*t27*t74+7.089815403622081d+0*t 2149 4 25*t32*t46*t72+3.989422804014318d-1*t16*t17*t29*t47*t71-1 2150 5 .994711402007159d-1*t16*t17*t27*t40*t41*t71-3.98942280401 2151 6 4318d-1*t16*t22*t27*t29*t71+9.973557010035795d-2*t103*t16 2152 7 *t17*t27*t59-1.994711402007159d-1*t16*t17*t41*t47*t58+1.9 2153 8 94711402007159d-1*t16*t22*t27*t41*t58+1.5957691216057274d 2154 9 +0*t16*t19*t44*t47-7.978845608028636d-1*t16*t22*t29*t40*t 2155 : 47+7.978845608028636d-1*t16*t27*t29*t40*t44+1.32980760133 2156 ; 8106d-1*t114*t16*t17*t27*t29)-5.319230405352425d-1*t15*t1 2157 < 6*t17*t29*t40*t79+1.063846081070485d+0*t15*t16*t19*t22*t7 2158 = 9+2.12769216214097d+0*t15*t16*t19*t30*t74-5.3192304053524 2159 > 25d-1*t15*t16*t17*t29*t48*t71+2.6596152026762127d-1*t15*t 2160 ? 16*t17*t30*t40*t41*t71+5.319230405352425d-1*t15*t16*t22*t 2161 @ 29*t30*t71-1.3298076013381063d-1*t103*t15*t16*t17*t30*t59 2162 1 +2.6596152026762127d-1*t15*t16*t17*t41*t48*t58-2.65961520 2163 2 26762127d-1*t15*t16*t22*t30*t41*t58-2.12769216214097d+0*t 2164 3 15*t16*t19*t44*t48+1.063846081070485d+0*t15*t16*t22*t29*t 2165 4 40*t48-1.063846081070485d+0*t15*t16*t29*t30*t40*t44-1.773 2166 5 0768017841417d-1*t114*t15*t16*t17*t29*t30)+3*t49*t81+3*t5 2167 6 0*t80+t31*(5.583154418094601d+0*t13*t2*t3*t38*t67*t70-3.7 2168 7 221029453964005d+0*t13*t3*t35*t39*t70+7.444205890792801d+ 2169 8 0*gammaaa*t11*t3*t33*t34*t39*t70+7.444205890792801d+0*t13 2170 9 *t3*t35*t66*t67-1.4888411781585603d+1*gammaaa*t11*t3*t33* 2171 : t34*t66*t67-1.2407009817988002d+0*t13*t3*t38*t39*t65-7.44 2172 ; 4205890792801d+0*gammaaa*t11*t3*t33*t38*t39*t64+3.9702431 2173 < 417561607d+1*t3*t38*t39*t5*t60*t61*t63-9.263900664097708d 2174 = +1*t10*t108*t3*t5*t60*t61-9.305257363491002d-1*t113*t13*t 2175 > 2*t3*t39+9.374185195813161d+0*gammaaa*t10*t109*t11*t3*t33 2176 ? -5.583154418094601d+0*t111*t112*t13*t2*t3+2.7571132928862 2177 @ 224d-1*t10*t110*t13*t3+1.0587315044683095d+2*t10*t104*t10 2178 1 5*t106*t107*t3+2.7571132928862224d-1*t1*t110))*wght+Amat3 2179 2 (iq,D3_RA_RA_RA) 2180 Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB) 2181 Cmat3(iq,D3_RA_RA_GAA) = (t14*(-3.5461536035682834d-1*t15*t1 2182 1 6*t17*t19*(3.5449077018110403d+0*t25*t32*(-7.049892022399 2183 2 704d+0*rhoa*t28*t53*t58*t94+5.639913617919763d+0*rhoa*t28 2184 3 *t40*t59*t85-3.759942411946509d+0*t28*t41*t85+2.819956808 2185 4 9598814d+0*rhoa*t28*t53*t59*t71+5.639913617919763d+0*t28* 2186 5 t40*t53*t59-1.8799712059732546d+0*rhoa*t119*t28*t41)+2.65 2187 6 9615202676212d-1*t16*t17*t29*t40*t88-5.319230405352424d-1 2188 7 *t16*t19*t22*t88+2.659615202676212d-1*t16*t17*t19*(-7.073 2189 8 553026306428d-2*t18*t20*t22*t25*t46*t87+2*t25*t46*t87+1.4 2190 9 147106052612857d-1*t18*t20*t25*t44*t87-7.073553026306428d 2191 : -2*t20*t22*t25*t40*t87-7.073553026306428d-2*t20*t22*t25*t 2192 ; 46*t85+1.4147106052612857d-1*t20*t26*t44*t85+1.4137166941 2193 < 15413d+1*t21*t23*t25*t45*t53*t77-5.0d-1*t24*t25*t53*t77-3 2194 = .536776513153214d-2*t20*t22*t25*t53*t77+1.413716694115413 2195 > d+1*t21*t23*t25*t45*t53*t76-5.0d-1*t24*t25*t53*t76-3.5367 2196 ? 76513153214d-2*t20*t22*t25*t53*t76-2.1220659078919285d-1* 2197 @ t20*t26*t53*t74-5.0d-1*t25*t45*t53*t71-1.0d+0*t25*t40*t45 2198 1 *t46*t53+1.4147106052612857d-1*t20*t25*t44*t46*t53+2.0d+0 2199 2 *t17*t24*t25*t46*t53+2.0d+0*t17*t25*t40*t45*t53-3.0d+0*t2 2200 3 2*t24*t25*t53-3.536776513153214d-2*t119*t20*t22*t26-3.536 2201 4 776513153214d-2*t120*t18*t20*t22*t25+t120*t25)+3.54490770 2202 5 18110403d+0*t25*t32*t42*t87+3.5449077018110403d+0*t25*t32 2203 6 *t46*t86+2.659615202676212d-1*t16*t17*t29*t47*t85-1.32980 2204 7 7601338106d-1*t16*t17*t27*t40*t41*t85-2.659615202676212d- 2205 8 1*t16*t22*t27*t29*t85+1.329807601338106d-1*t16*t17*t29*t5 2206 9 3*t78+5.01149519714857d+1*t21*t23*t25*t32*t45*t53*t72+1.3 2207 : 29807601338106d-1*t16*t17*t29*t54*t71-6.649038006690531d- 2208 ; 2*t16*t17*t27*t41*t53*t71+9.973557010035795d-2*t16*t17*t2 2209 < 7*t53*t58*t59-6.649038006690531d-2*t16*t17*t41*t54*t58+5. 2210 = 319230405352424d-1*t16*t19*t44*t54-2.659615202676212d-1*t 2211 > 16*t22*t29*t40*t54-1.329807601338106d-1*t16*t17*t40*t41*t 2212 ? 47*t53-2.659615202676212d-1*t16*t22*t29*t47*t53+5.0114951 2213 @ 9714857d+1*t21*t23*t25*t32*t42*t45*t46*t53+2.659615202676 2214 1 212d-1*t16*t27*t29*t44*t53+1.329807601338106d-1*t16*t22*t 2215 2 27*t40*t41*t53+1.329807601338106d-1*t119*t16*t17*t27*t29) 2216 3 -3.5461536035682834d-1*t15*t16*t17*t29*t40*t89+7.09230720 2217 4 7136567d-1*t15*t16*t19*t22*t89-3.5461536035682834d-1*t15* 2218 5 t16*t17*t29*t48*t85+1.7730768017841417d-1*t15*t16*t17*t30 2219 6 *t40*t41*t85+3.5461536035682834d-1*t15*t16*t22*t29*t30*t8 2220 7 5-1.7730768017841417d-1*t15*t16*t17*t29*t53*t79-1.7730768 2221 8 017841417d-1*t15*t16*t17*t29*t55*t71+8.865384008920708d-2 2222 9 *t15*t16*t17*t30*t41*t53*t71-1.3298076013381063d-1*t15*t1 2223 : 6*t17*t30*t53*t58*t59+8.865384008920708d-2*t15*t16*t17*t4 2224 ; 1*t55*t58-7.092307207136567d-1*t15*t16*t19*t44*t55+3.5461 2225 < 536035682834d-1*t15*t16*t22*t29*t40*t55+1.773076801784141 2226 = 7d-1*t15*t16*t17*t40*t41*t48*t53+3.5461536035682834d-1*t1 2227 > 5*t16*t22*t29*t48*t53-3.5461536035682834d-1*t15*t16*t29*t 2228 ? 30*t44*t53-1.7730768017841417d-1*t15*t16*t22*t30*t40*t41* 2229 @ t53-1.7730768017841417d-1*t119*t15*t16*t17*t29*t30)+2*t49 2230 1 *t91+2*t50*t90+t31*(3.7221029453964005d+0*t13*t2*t3*t38*t 2231 2 67*t84-2.4814019635976003d+0*t13*t3*t35*t39*t84+4.9628039 2232 3 271952007d+0*gammaaa*t11*t3*t33*t34*t39*t84-9.92560785439 2233 4 0401d+0*gammaaa*t3*t38*t39*t60*t61*t83+1.8610514726982003 2234 5 d+0*t13*t2*t3*t52*t67*t70-9.305257363491002d-1*t11*t3*t33 2235 6 *t39*t51*t70+1.8610514726982003d+0*t11*t3*t33*t51*t66*t67 2236 7 +4.9628039271952007d+0*t13*t3*t35*t38*t52*t67-9.925607854 2237 8 390401d+0*gammaaa*t11*t3*t33*t34*t38*t52*t67-5.5831544180 2238 9 94601d+0*t112*t13*t2*t3*t52*t66-4.135669939329334d-1*t13* 2239 : t3*t39*t52*t65-2.481401963597601d+0*gammaaa*t11*t3*t33*t3 2240 ; 9*t52*t64-2.8949689575305343d+0*t10*t11*t3*t33*t64+1.3234 2241 < 143805853868d+1*t3*t39*t5*t52*t60*t61*t63+3.1431091538902 2242 = 94d+1*gammaaa*t10*t3*t60*t61*t63-3.9702431417561607d+1*t1 2243 > 0*t104*t106*t117*t3*t5+2.4814019635976003d+0*t11*t3*t33*t 2244 ? 34*t38*t39-9.305257363491002d-1*t118*t13*t2*t3*t39)+t56*t 2245 @ 81+t57*t80)*wght+Cmat3(iq,D3_RA_RA_GAA) 2246 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 2247 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 2248 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 2249 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 2250 Cmat3(iq,D3_RA_GAA_GAA) = (t14*(-3.5461536035682834d-1*t15*t 2251 1 16*t17*t19*(1.329807601338106d-1*t16*t17*t29*t40*t99-2.65 2252 2 9615202676212d-1*t16*t19*t22*t99+2.659615202676212d-1*t16 2253 3 *t17*t19*(1.9985948912206125d+2*t25*t46*t73*t93*t97*t98-7 2254 4 .068583470577066d+0*t21*t23*t25*t40*t93*t98+1.41371669411 2255 5 5413d+1*t21*t23*t25*t45*t46*t96-5.0d-1*t24*t25*t46*t96-3. 2256 6 536776513153214d-2*t20*t22*t25*t46*t96-5.0d-1*t25*t40*t45 2257 7 *t96+7.073553026306428d-2*t20*t26*t44*t96+1.0d+0*t17*t24* 2258 8 t25*t96-3.534291735288533d+1*t21*t23*t25*t46*t75*t93+1.0d 2259 9 +0*t25*t40*t75*t93+1.413716694115413d+1*rhoa*t23*t25*t75* 2260 : t93+2.827433388230826d+1*t21*t23*t25*t45*t53*t87-1.0d+0*t 2261 ; 24*t25*t53*t87-7.073553026306428d-2*t20*t22*t25*t53*t87-1 2262 < .0d+0*t25*t45*t53*t85-3.536776513153214d-2*t122*t20*t22*t 2263 = 26-3.536776513153214d-2*t123*t18*t20*t22*t25+t123*t25)+7. 2264 > 084834422688148d+2*t25*t32*t42*t73*t93*t97*t98+3.54490770 2265 ? 18110403d+0*t25*t32*(2.8199568089598814d+0*rhoa*t28*t40*t 2266 @ 59*t96-1.8799712059732546d+0*t28*t41*t96-7.04989202239970 2267 1 4d+0*rhoa*t28*t40*t93*t94+2.8199568089598814d+0*t28*t59*t 2268 2 93+5.639913617919763d+0*rhoa*t28*t53*t59*t85-1.8799712059 2269 3 732546d+0*rhoa*t122*t28*t41)+1.329807601338106d-1*t16*t17 2270 4 *t29*t47*t96+5.01149519714857d+1*t21*t23*t25*t32*t42*t45* 2271 5 t96-6.649038006690531d-2*t16*t17*t27*t40*t41*t96-1.329807 2272 6 601338106d-1*t16*t22*t27*t29*t96-1.002299039429714d+2*t21 2273 7 *t23*t25*t32*t42*t75*t93+9.973557010035795d-2*t16*t17*t27 2274 8 *t40*t59*t93-6.649038006690531d-2*t16*t17*t41*t47*t93+6.6 2275 9 49038006690531d-2*t16*t22*t27*t41*t93+2.659615202676212d- 2276 : 1*t16*t17*t29*t53*t88+1.002299039429714d+2*t21*t23*t25*t3 2277 ; 2*t45*t53*t86+2.659615202676212d-1*t16*t17*t29*t54*t85-1. 2278 < 329807601338106d-1*t16*t17*t27*t41*t53*t85-1.329807601338 2279 = 106d-1*t16*t17*t40*t41*t53*t54-2.659615202676212d-1*t16*t 2280 > 22*t29*t53*t54+1.329807601338106d-1*t122*t16*t17*t27*t29) 2281 ? -1.7730768017841417d-1*t15*t16*t17*t29*t48*t96+8.86538400 2282 @ 8920708d-2*t15*t16*t17*t30*t40*t41*t96+1.7730768017841417 2283 1 d-1*t15*t16*t22*t29*t30*t96-1.3298076013381063d-1*t15*t16 2284 2 *t17*t30*t40*t59*t93+8.865384008920708d-2*t15*t16*t17*t41 2285 3 *t48*t93-8.865384008920708d-2*t15*t16*t22*t30*t41*t93-3.5 2286 4 461536035682834d-1*t15*t16*t17*t29*t53*t89-3.546153603568 2287 5 2834d-1*t15*t16*t17*t29*t55*t85+1.7730768017841417d-1*t15 2288 6 *t16*t17*t30*t41*t53*t85+1.7730768017841417d-1*t15*t16*t1 2289 7 7*t40*t41*t53*t55+3.5461536035682834d-1*t15*t16*t22*t29*t 2290 8 53*t55-1.7730768017841417d-1*t100*t15*t16*t17*t29*t40-1.7 2291 9 730768017841417d-1*t122*t15*t16*t17*t29*t30+3.54615360356 2292 : 82834d-1*t100*t15*t16*t19*t22)+t31*(2.4814019635976003d+0 2293 ; *t13*t3*t35*t67*t95-4.9628039271952007d+0*gammaaa*t11*t3* 2294 < t33*t34*t67*t95-5.583154418094601d+0*t112*t13*t2*t3*t38*t 2295 = 95+3.7221029453964005d+0*t13*t2*t3*t52*t67*t84-1.86105147 2296 > 26982003d+0*t11*t3*t33*t39*t51*t84-9.925607854390401d+0*g 2297 ? ammaaa*t3*t39*t52*t60*t61*t83-7.444205890792801d+0*t10*t3 2298 @ *t60*t61*t83+7.444205890792801d+0*t13*t3*t39*t4*t83+3.722 2299 1 1029453964005d+0*t13*t3*t38*t4*t67*t74+1.8610514726982003 2300 2 d+0*t3*t38*t39*t60*t61*t74+3.7221029453964005d+0*t11*t3*t 2301 3 33*t38*t51*t52*t67+2.481401963597601d+0*t11*t3*t33*t34*t3 2302 4 9*t52+4.9628039271952007d+0*gammaaa*t11*t121*t3*t33*t39*t 2303 5 4+1.4888411781585603d+1*gammaaa*t10*t104*t106*t121*t3)+2* 2304 6 t56*t91+2*t57*t90+t101*t50+t102*t49)*wght+Cmat3(iq,D3_RA_ 2305 7 GAA_GAA) 2306 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 2307 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 2308 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 2309 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 2310 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 2311 Cmat3(iq,D3_GAA_GAA_GAA) = (t14*(-3.5461536035682834d-1*t15* 2312 1 t16*t17*t19*(3.989422804014318d-1*t16*t17*t29*t53*t99+2.6 2313 2 59615202676212d-1*t16*t17*t19*(5.995784673661838d+2*t25*t 2314 3 53*t73*t96*t97*t98+1.0602875205865599d+2*t124*t21*t23*t25 2315 4 *t98-1.2990866792933983d+3*t124*t25*t73*t97/t18**5-1.0602 2316 5 875205865599d+2*t21*t23*t25*t53*t75*t96+2.825446962492358 2317 6 4d+3*t124*t25*t62/(t16**6*t18**6)+1.413716694115413d+1*t1 2318 7 27*t21*t23*t25*t45-3.536776513153214d-2*t127*t20*t22*t26- 2319 8 5.0d-1*t127*t24*t25)-2.826440000853771d+2*t25*t32*t43*t53 2320 9 *t92*t94*t96+2.998945983256911d+1*rhoa*t25*t28*t32*t53*t5 2321 : 9*t96+3.989422804014318d-1*t16*t17*t29*t54*t96-1.99471140 2322 ; 2007159d-1*t16*t17*t27*t41*t53*t96-2.4991216527140922d+1* 2323 < rhoa*t124*t25*t28*t32*t94-1.994711402007159d-1*t16*t17*t4 2324 = 1*t54*t93+4.710733334756285d+2*t124*t25*t32*t43*t92/t19** 2325 > 9-1.3319284713741864d+3*t124*t25*t32*t82/(t16**5*t19**11) 2326 ? +9.973557010035795d-2*t124*t16*t17*t27*t59-6.664324407237 2327 @ 58d+0*rhoa*t127*t25*t28*t32*t41+1.329807601338106d-1*t127 2328 1 *t16*t17*t27*t29)-5.319230405352425d-1*t15*t16*t17*t29*t5 2329 2 5*t96+2.6596152026762127d-1*t15*t16*t17*t30*t41*t53*t96+2 2330 3 .6596152026762127d-1*t15*t16*t17*t41*t55*t93-1.3298076013 2331 4 381063d-1*t124*t15*t16*t17*t30*t59-5.319230405352425d-1*t 2332 5 100*t15*t16*t17*t29*t53-1.7730768017841417d-1*t127*t15*t1 2333 6 6*t17*t29*t30)+t31*(5.583154418094601d+0*t11*t3*t33*t51*t 2334 7 67*t95+1.1166308836189202d+1*t13*t3*t4*t52*t67*t74+5.5831 2335 8 54418094601d+0*t3*t39*t52*t60*t61*t74-5.583154418094601d+ 2336 9 0*t11*t125*t3*t33*t39*t4-5.583154418094601d+0*t112*t126*t 2337 : 13*t2*t3-5.583154418094601d+0*t10*t104*t106*t125*t3)+3*t1 2338 ; 01*t57+3*t102*t56)*wght+Cmat3(iq,D3_GAA_GAA_GAA) 2339 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 2340 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 2341 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 2342 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 2343 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 2344 endif ! rhoa.gt.tol_rho 2345 else ! ipol.eq.1 2346 rhoa = rho(iq,R_A) 2347 rhob = rho(iq,R_B) 2348 gammaaa = rgamma(iq,G_AA) 2349 gammaab = rgamma(iq,G_AB) 2350 gammabb = rgamma(iq,G_BB) 2351 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 2352 t1 = param(1) 2353 t2 = rhoa**1.3333333333333333d+0 2354 t3 = -t1+param(2)+1.0d+0 2355 t4 = param(4) 2356 t5 = gammaaa**2 2357 t6 = 1/rhoa**5.333333333333333d+0 2358 t7 = param(3) 2359 t8 = 1/rhoa**2.6666666666666666d+0 2360 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 2361 t10 = 1.0d+0-1.0d+0/t9 2362 t11 = param(5) 2363 t12 = gammaaa*t11*t8+1.0d+0 2364 t13 = 1.0d+0-1.0d+0/t12 2365 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 2366 1 -1*t1*t2 2367 t15 = -param(6) 2368 t16 = param(7) 2369 t17 = param(8) 2370 t18 = 1/rhoa 2371 t19 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 2372 1 1*t1*t2 2373 t20 = t19**5.0d-1 2374 t21 = t17**2 2375 t22 = rhoa**2 2376 t23 = 1/t22 2377 t24 = 1/t21 2378 t25 = 1/t19 2379 t26 = exp(-1.413716694115413d+1*t22*t24*t25) 2380 t27 = t26-1.0d+0 2381 t28 = -3.536776513153214d-2*t19*t21*t23*t27+t26-1.5d+0 2382 t29 = 1/t17 2383 t30 = 1/t20 2384 t31 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 2385 1 9*t30)+2.659615202676212d-1*t17*t18*t20*t28 2386 t32 = -3.5461536035682834d-1*t16*t17*t18*t20*t31+t15+1.0d+0 2387 t33 = rhob**1.3333333333333333d+0 2388 t34 = gammabb**2 2389 t35 = 1/rhob**5.333333333333333d+0 2390 t36 = 1/rhob**2.6666666666666666d+0 2391 t37 = gammabb*t36*t7+t34*t35*t4+1.0d+0 2392 t38 = 1.0d+0-1.0d+0/t37 2393 t39 = gammabb*t11*t36+1.0d+0 2394 t40 = 1.0d+0-1.0d+0/t39 2395 t41 = -9.305257363491002d-1*t3*t33*t38*t40-9.305257363491002 2396 1 d-1*t1*t33 2397 t42 = 1/rhob 2398 t43 = 9.305257363491002d-1*t3*t33*t38*t40+9.305257363491002d 2399 1 -1*t1*t33 2400 t44 = t43**5.0d-1 2401 t45 = rhob**2 2402 t46 = 1/t45 2403 t47 = 1/t43 2404 t48 = exp(-1.413716694115413d+1*t24*t45*t47) 2405 t49 = t48-1.0d+0 2406 t50 = -3.536776513153214d-2*t21*t43*t46*t49+t48-1.5d+0 2407 t51 = 1/t44 2408 t52 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 2409 1 9*t51)+2.659615202676212d-1*t17*t42*t44*t50 2410 t53 = -3.5461536035682834d-1*t16*t17*t42*t44*t52+t15+1.0d+0 2411 t54 = 5.641895835477563d-1 2412 t55 = 1/t12**2 2413 t56 = 1/rhoa**2.3333333333333334d+0 2414 t57 = rhoa**3.333333333333333d-1 2415 t58 = 1/rhoa**6.333333333333333d+0 2416 t59 = 1/rhoa**3.6666666666666664d+0 2417 t60 = -2.6666666666666666d+0*gammaaa*t59*t7-5.33333333333333 2418 1 3d+0*t4*t5*t58 2419 t61 = 1/t9**2 2420 t62 = 9.305257363491002d-1*t13*t2*t3*t60*t61+1.2407009817988 2421 1 002d+0*t10*t13*t3*t57+1.2407009817988002d+0*t1*t57-2.4814 2422 2 019635976003d+0*gammaaa*t10*t11*t3*t55*t56 2423 t63 = 1/t20**3 2424 t64 = 3.759942411946509d+0*t29*t30-1.8799712059732546d+0*rho 2425 1 a*t29*t62*t63 2426 t65 = rhoa**3 2427 t66 = 1/t65 2428 t67 = 1/t19**2 2429 t68 = 1.413716694115413d+1*t22*t24*t62*t67-2.827433388230826 2430 1 d+1*rhoa*t24*t25 2431 t69 = -3.536776513153214d-2*t19*t21*t23*t26*t68+t26*t68+7.07 2432 1 3553026306428d-2*t19*t21*t27*t66-3.536776513153214d-2*t21 2433 2 *t23*t27*t62 2434 t70 = 2.659615202676212d-1*t17*t18*t20*t69+3.544907701811040 2435 1 3d+0*t26*t54*t64+1.329807601338106d-1*t17*t18*t28*t30*t62 2436 2 -2.659615202676212d-1*t17*t20*t23*t28 2437 t71 = -3.5461536035682834d-1*t16*t17*t18*t20*t70-1.773076801 2438 1 7841417d-1*t16*t17*t18*t30*t31*t62+3.5461536035682834d-1* 2439 2 t16*t17*t20*t23*t31 2440 t72 = -9.305257363491002d-1*t13*t2*t3*t60*t61-1.240700981798 2441 1 8002d+0*t10*t13*t3*t57-1.2407009817988002d+0*t1*t57+2.481 2442 2 4019635976003d+0*gammaaa*t10*t11*t3*t55*t56 2443 t73 = 1/t39**2 2444 t74 = 1/rhob**2.3333333333333334d+0 2445 t75 = rhob**3.333333333333333d-1 2446 t76 = 1/rhob**6.333333333333333d+0 2447 t77 = 1/rhob**3.6666666666666664d+0 2448 t78 = -2.6666666666666666d+0*gammabb*t7*t77-5.33333333333333 2449 1 3d+0*t34*t4*t76 2450 t79 = 1/t37**2 2451 t80 = 9.305257363491002d-1*t3*t33*t40*t78*t79+1.240700981798 2452 1 8002d+0*t3*t38*t40*t75+1.2407009817988002d+0*t1*t75-2.481 2453 2 4019635976003d+0*gammabb*t11*t3*t38*t73*t74 2454 t81 = 1/t44**3 2455 t82 = 3.759942411946509d+0*t29*t51-1.8799712059732546d+0*rho 2456 1 b*t29*t80*t81 2457 t83 = rhob**3 2458 t84 = 1/t83 2459 t85 = 1/t43**2 2460 t86 = 1.413716694115413d+1*t24*t45*t80*t85-2.827433388230826 2461 1 d+1*rhob*t24*t47 2462 t87 = -3.536776513153214d-2*t21*t43*t46*t48*t86+t48*t86+7.07 2463 1 3553026306428d-2*t21*t43*t49*t84-3.536776513153214d-2*t21 2464 2 *t46*t49*t80 2465 t88 = 2.659615202676212d-1*t17*t42*t44*t87+3.544907701811040 2466 1 3d+0*t48*t54*t82+1.329807601338106d-1*t17*t42*t50*t51*t80 2467 2 -2.659615202676212d-1*t17*t44*t46*t50 2468 t89 = -3.5461536035682834d-1*t16*t17*t42*t44*t88-1.773076801 2469 1 7841417d-1*t16*t17*t42*t51*t52*t80+3.5461536035682834d-1* 2470 2 t16*t17*t44*t46*t52 2471 t90 = -9.305257363491002d-1*t3*t33*t40*t78*t79-1.24070098179 2472 1 88002d+0*t3*t38*t40*t75-1.2407009817988002d+0*t1*t75+2.48 2473 2 14019635976003d+0*gammabb*t11*t3*t38*t73*t74 2474 t91 = 1/t2 2475 t92 = t7*t8+2*gammaaa*t4*t6 2476 t93 = 9.305257363491002d-1*t13*t2*t3*t61*t92+9.3052573634910 2477 1 02d-1*t10*t11*t3*t55*t91 2478 t94 = 1.413716694115413d+1*t22*t24*t26*t67*t93-3.53677651315 2479 1 3214d-2*t21*t23*t27*t93-5.0d-1*t25*t26*t93 2480 t95 = 2.659615202676212d-1*t17*t18*t20*t94-6.66432440723758d 2481 1 +0*rhoa*t26*t29*t54*t63*t93+1.329807601338106d-1*t17*t18* 2482 2 t28*t30*t93 2483 t96 = -3.5461536035682834d-1*t16*t17*t18*t20*t95-1.773076801 2484 1 7841417d-1*t16*t17*t18*t30*t31*t93 2485 t97 = -9.305257363491002d-1*t13*t2*t3*t61*t92-9.305257363491 2486 1 002d-1*t10*t11*t3*t55*t91 2487 t98 = 1/t33 2488 t99 = t36*t7+2*gammabb*t35*t4 2489 t100 = 9.305257363491002d-1*t3*t33*t40*t79*t99+9.30525736349 2490 1 1002d-1*t11*t3*t38*t73*t98 2491 t101 = 1.413716694115413d+1*t100*t24*t45*t48*t85-3.536776513 2492 1 153214d-2*t100*t21*t46*t49-5.0d-1*t100*t47*t48 2493 t102 = -6.66432440723758d+0*rhob*t100*t29*t48*t54*t81+1.3298 2494 1 07601338106d-1*t100*t17*t42*t50*t51+2.659615202676212d-1* 2495 2 t101*t17*t42*t44 2496 t103 = -1.7730768017841417d-1*t100*t16*t17*t42*t51*t52-3.546 2497 1 1536035682834d-1*t102*t16*t17*t42*t44 2498 t104 = -9.305257363491002d-1*t3*t33*t40*t79*t99-9.3052573634 2499 1 91002d-1*t11*t3*t38*t73*t98 2500 t105 = t62**2 2501 t106 = 1/t20**5 2502 t107 = t11**2 2503 t108 = 1/t12**3 2504 t109 = rhoa**6 2505 t110 = 1/t109 2506 t111 = 1/rhoa**3.3333333333333337d+0 2507 t112 = 1/rhoa**6.666666666666666d-1 2508 t113 = t60**2 2509 t114 = 1/t9**3 2510 t115 = 1/rhoa**7.333333333333333d+0 2511 t116 = 1/rhoa**4.666666666666667d+0 2512 t117 = 9.777777777777779d+0*gammaaa*t116*t7+3.37777777777777 2513 1 8d+1*t115*t4*t5 2514 t118 = 2.4814019635976003d+0*t13*t3*t57*t60*t61-4.9628039271 2515 1 952007d+0*gammaaa*t11*t3*t55*t56*t60*t61+9.30525736349100 2516 2 2d-1*t117*t13*t2*t3*t61+2.481401963597601d+0*gammaaa*t10* 2517 3 t11*t111*t3*t55-1.3234143805853868d+1*t10*t107*t108*t110* 2518 4 t3*t5-1.8610514726982003d+0*t113*t114*t13*t2*t3+4.1356699 2519 5 39329334d-1*t10*t112*t13*t3+4.135669939329334d-1*t1*t112 2520 t119 = -3.759942411946509d+0*t29*t62*t63-1.8799712059732546d 2521 1 +0*rhoa*t118*t29*t63+2.8199568089598814d+0*rhoa*t105*t106 2522 2 *t29 2523 t120 = rhoa**4 2524 t121 = 1/t120 2525 t122 = 1/t19**3 2526 t123 = 5.654866776461652d+1*rhoa*t24*t62*t67+1.4137166941154 2527 1 13d+1*t118*t22*t24*t67-2.827433388230826d+1*t24*t25-2.827 2528 2 433388230826d+1*t105*t122*t22*t24 2529 t124 = t68**2 2530 t125 = 1.4147106052612857d-1*t19*t21*t26*t66*t68-7.073553026 2531 1 306428d-2*t21*t23*t26*t62*t68+1.4147106052612857d-1*t21*t 2532 2 27*t62*t66-3.536776513153214d-2*t118*t21*t23*t27-2.122065 2533 3 9078919285d-1*t121*t19*t21*t27-3.536776513153214d-2*t124* 2534 4 t19*t21*t23*t26-3.536776513153214d-2*t123*t19*t21*t23*t26 2535 5 +t124*t26+t123*t26 2536 t126 = 2.659615202676212d-1*t17*t18*t30*t62*t69-5.3192304053 2537 1 52424d-1*t17*t20*t23*t69+3.5449077018110403d+0*t26*t54*t6 2538 2 4*t68+5.319230405352424d-1*t17*t20*t28*t66-6.649038006690 2539 3 531d-2*t105*t17*t18*t28*t63-2.659615202676212d-1*t17*t23* 2540 4 t28*t30*t62+3.5449077018110403d+0*t119*t26*t54+1.32980760 2541 5 1338106d-1*t118*t17*t18*t28*t30+2.659615202676212d-1*t125 2542 6 *t17*t18*t20 2543 t127 = -3.5461536035682834d-1*t16*t17*t18*t30*t62*t70+7.0923 2544 1 07207136567d-1*t16*t17*t20*t23*t70-7.092307207136567d-1*t 2545 2 16*t17*t20*t31*t66+8.865384008920708d-2*t105*t16*t17*t18* 2546 3 t31*t63+3.5461536035682834d-1*t16*t17*t23*t30*t31*t62-1.7 2547 4 730768017841417d-1*t118*t16*t17*t18*t30*t31-3.54615360356 2548 5 82834d-1*t126*t16*t17*t18*t20 2549 t128 = -2.4814019635976003d+0*t13*t3*t57*t60*t61+4.962803927 2550 1 1952007d+0*gammaaa*t11*t3*t55*t56*t60*t61-9.3052573634910 2551 2 02d-1*t117*t13*t2*t3*t61-2.481401963597601d+0*gammaaa*t10 2552 3 *t11*t111*t3*t55+1.3234143805853868d+1*t10*t107*t108*t110 2553 4 *t3*t5+1.8610514726982003d+0*t113*t114*t13*t2*t3-4.135669 2554 5 939329334d-1*t10*t112*t13*t3-4.135669939329334d-1*t1*t112 2555 t129 = t80**2 2556 t130 = 1/t44**5 2557 t131 = 1/t39**3 2558 t132 = rhob**6 2559 t133 = 1/t132 2560 t134 = 1/rhob**3.3333333333333337d+0 2561 t135 = 1/rhob**6.666666666666666d-1 2562 t136 = t78**2 2563 t137 = 1/t37**3 2564 t138 = 1/rhob**7.333333333333333d+0 2565 t139 = 1/rhob**4.666666666666667d+0 2566 t140 = 9.777777777777779d+0*gammabb*t139*t7+3.37777777777777 2567 1 8d+1*t138*t34*t4 2568 t141 = 2.4814019635976003d+0*t3*t40*t75*t78*t79-4.9628039271 2569 1 952007d+0*gammabb*t11*t3*t73*t74*t78*t79+9.30525736349100 2570 2 2d-1*t140*t3*t33*t40*t79+2.481401963597601d+0*gammabb*t11 2571 3 *t134*t3*t38*t73+4.135669939329334d-1*t135*t3*t38*t40-1.8 2572 4 610514726982003d+0*t136*t137*t3*t33*t40-1.323414380585386 2573 5 8d+1*t107*t131*t133*t3*t34*t38+4.135669939329334d-1*t1*t1 2574 6 35 2575 t142 = -3.759942411946509d+0*t29*t80*t81-1.8799712059732546d 2576 1 +0*rhob*t141*t29*t81+2.8199568089598814d+0*rhob*t129*t130 2577 2 *t29 2578 t143 = rhob**4 2579 t144 = 1/t143 2580 t145 = 1/t43**3 2581 t146 = 5.654866776461652d+1*rhob*t24*t80*t85+1.4137166941154 2582 1 13d+1*t141*t24*t45*t85-2.827433388230826d+1*t24*t47-2.827 2583 2 433388230826d+1*t129*t145*t24*t45 2584 t147 = t86**2 2585 t148 = 1.4147106052612857d-1*t21*t43*t48*t84*t86-7.073553026 2586 1 306428d-2*t21*t46*t48*t80*t86+1.4147106052612857d-1*t21*t 2587 2 49*t80*t84-3.536776513153214d-2*t141*t21*t46*t49-2.122065 2588 3 9078919285d-1*t144*t21*t43*t49-3.536776513153214d-2*t147* 2589 4 t21*t43*t46*t48-3.536776513153214d-2*t146*t21*t43*t46*t48 2590 5 +t147*t48+t146*t48 2591 t149 = 2.659615202676212d-1*t17*t42*t51*t80*t87-5.3192304053 2592 1 52424d-1*t17*t44*t46*t87+3.5449077018110403d+0*t48*t54*t8 2593 2 2*t86+5.319230405352424d-1*t17*t44*t50*t84-6.649038006690 2594 3 531d-2*t129*t17*t42*t50*t81-2.659615202676212d-1*t17*t46* 2595 4 t50*t51*t80+3.5449077018110403d+0*t142*t48*t54+1.32980760 2596 5 1338106d-1*t141*t17*t42*t50*t51+2.659615202676212d-1*t148 2597 6 *t17*t42*t44 2598 t150 = -3.5461536035682834d-1*t16*t17*t42*t51*t80*t88+7.0923 2599 1 07207136567d-1*t16*t17*t44*t46*t88-7.092307207136567d-1*t 2600 2 16*t17*t44*t52*t84+8.865384008920708d-2*t129*t16*t17*t42* 2601 3 t52*t81+3.5461536035682834d-1*t16*t17*t46*t51*t52*t80-1.7 2602 4 730768017841417d-1*t141*t16*t17*t42*t51*t52-3.54615360356 2603 5 82834d-1*t149*t16*t17*t42*t44 2604 t151 = -2.4814019635976003d+0*t3*t40*t75*t78*t79+4.962803927 2605 1 1952007d+0*gammabb*t11*t3*t73*t74*t78*t79-9.3052573634910 2606 2 02d-1*t140*t3*t33*t40*t79-2.481401963597601d+0*gammabb*t1 2607 3 1*t134*t3*t38*t73-4.135669939329334d-1*t135*t3*t38*t40+1. 2608 4 8610514726982003d+0*t136*t137*t3*t33*t40+1.32341438058538 2609 5 68d+1*t107*t131*t133*t3*t34*t38-4.135669939329334d-1*t1*t 2610 6 135 2611 t152 = rhoa**5 2612 t153 = 1/t152 2613 t154 = -2.6666666666666666d+0*t59*t7-1.0666666666666666d+1*g 2614 1 ammaaa*t4*t58 2615 t155 = 1.2407009817988002d+0*t13*t3*t57*t61*t92-2.4814019635 2616 1 976003d+0*gammaaa*t11*t3*t55*t56*t61*t92-1.86105147269820 2617 2 03d+0*t114*t13*t2*t3*t60*t92+9.305257363491002d-1*t11*t3* 2618 3 t55*t60*t61*t91+9.305257363491002d-1*t13*t154*t2*t3*t61-1 2619 4 .2407009817988002d+0*t10*t11*t3*t55*t56+4.962803927195200 2620 5 7d+0*gammaaa*t10*t107*t108*t153*t3 2621 t156 = -1.8799712059732546d+0*t29*t63*t93+2.8199568089598814 2622 1 d+0*rhoa*t106*t29*t62*t93-1.8799712059732546d+0*rhoa*t155 2623 2 *t29*t63 2624 t157 = 2.827433388230826d+1*rhoa*t24*t67*t93-2.8274333882308 2625 1 26d+1*t122*t22*t24*t62*t93+1.413716694115413d+1*t155*t22* 2626 2 t24*t67 2627 t158 = 1.413716694115413d+1*t22*t24*t26*t67*t68*t93-5.0d-1*t 2628 1 25*t26*t68*t93-3.536776513153214d-2*t21*t23*t26*t68*t93-5 2629 2 .0d-1*t26*t62*t67*t93+7.073553026306428d-2*t21*t27*t66*t9 2630 3 3+1.0d+0*t18*t25*t26*t93-3.536776513153214d-2*t155*t21*t2 2631 4 3*t27-3.536776513153214d-2*t157*t19*t21*t23*t26+t157*t26 2632 t159 = 1.329807601338106d-1*t17*t18*t30*t62*t94-2.6596152026 2633 1 76212d-1*t17*t20*t23*t94+1.329807601338106d-1*t17*t18*t30 2634 2 *t69*t93+5.01149519714857d+1*t22*t24*t26*t54*t64*t67*t93- 2635 3 6.649038006690531d-2*t17*t18*t28*t62*t63*t93-1.3298076013 2636 4 38106d-1*t17*t23*t28*t30*t93+3.5449077018110403d+0*t156*t 2637 5 26*t54+1.329807601338106d-1*t155*t17*t18*t28*t30+2.659615 2638 6 202676212d-1*t158*t17*t18*t20 2639 t160 = -1.7730768017841417d-1*t16*t17*t18*t30*t62*t95+3.5461 2640 1 536035682834d-1*t16*t17*t20*t23*t95-1.7730768017841417d-1 2641 2 *t16*t17*t18*t30*t70*t93+8.865384008920708d-2*t16*t17*t18 2642 3 *t31*t62*t63*t93+1.7730768017841417d-1*t16*t17*t23*t30*t3 2643 4 1*t93-1.7730768017841417d-1*t155*t16*t17*t18*t30*t31-3.54 2644 5 61536035682834d-1*t159*t16*t17*t18*t20 2645 t161 = -1.2407009817988002d+0*t13*t3*t57*t61*t92+2.481401963 2646 1 5976003d+0*gammaaa*t11*t3*t55*t56*t61*t92+1.8610514726982 2647 2 003d+0*t114*t13*t2*t3*t60*t92-9.305257363491002d-1*t11*t3 2648 3 *t55*t60*t61*t91-9.305257363491002d-1*t13*t154*t2*t3*t61+ 2649 4 1.2407009817988002d+0*t10*t11*t3*t55*t56-4.96280392719520 2650 5 07d+0*gammaaa*t10*t107*t108*t153*t3 2651 t162 = rhob**5 2652 t163 = 1/t162 2653 t164 = -2.6666666666666666d+0*t7*t77-1.0666666666666666d+1*g 2654 1 ammabb*t4*t76 2655 t165 = 1.2407009817988002d+0*t3*t40*t75*t79*t99-2.4814019635 2656 1 976003d+0*gammabb*t11*t3*t73*t74*t79*t99-1.86105147269820 2657 2 03d+0*t137*t3*t33*t40*t78*t99+9.305257363491002d-1*t11*t3 2658 3 *t73*t78*t79*t98+9.305257363491002d-1*t164*t3*t33*t40*t79 2659 4 -1.2407009817988002d+0*t11*t3*t38*t73*t74+4.9628039271952 2660 5 007d+0*gammabb*t107*t131*t163*t3*t38 2661 t166 = -1.8799712059732546d+0*rhob*t165*t29*t81-1.8799712059 2662 1 732546d+0*t100*t29*t81+2.8199568089598814d+0*rhob*t100*t1 2663 2 30*t29*t80 2664 t167 = 1.413716694115413d+1*t165*t24*t45*t85+2.8274333882308 2665 1 26d+1*rhob*t100*t24*t85-2.827433388230826d+1*t100*t145*t2 2666 2 4*t45*t80 2667 t168 = 1.413716694115413d+1*t100*t24*t45*t48*t85*t86-5.0d-1* 2668 1 t100*t47*t48*t86-3.536776513153214d-2*t100*t21*t46*t48*t8 2669 2 6-5.0d-1*t100*t48*t80*t85+7.073553026306428d-2*t100*t21*t 2670 3 49*t84-3.536776513153214d-2*t165*t21*t46*t49+1.0d+0*t100* 2671 4 t42*t47*t48-3.536776513153214d-2*t167*t21*t43*t46*t48+t16 2672 5 7*t48 2673 t169 = 1.329807601338106d-1*t100*t17*t42*t51*t87+5.011495197 2674 1 14857d+1*t100*t24*t45*t48*t54*t82*t85-6.649038006690531d- 2675 2 2*t100*t17*t42*t50*t80*t81+1.329807601338106d-1*t101*t17* 2676 3 t42*t51*t80+3.5449077018110403d+0*t166*t48*t54-1.32980760 2677 4 1338106d-1*t100*t17*t46*t50*t51+1.329807601338106d-1*t165 2678 5 *t17*t42*t50*t51-2.659615202676212d-1*t101*t17*t44*t46+2. 2679 6 659615202676212d-1*t168*t17*t42*t44 2680 t170 = -1.7730768017841417d-1*t100*t16*t17*t42*t51*t88+8.865 2681 1 384008920708d-2*t100*t16*t17*t42*t52*t80*t81-1.7730768017 2682 2 841417d-1*t102*t16*t17*t42*t51*t80+1.7730768017841417d-1* 2683 3 t100*t16*t17*t46*t51*t52-1.7730768017841417d-1*t16*t165*t 2684 4 17*t42*t51*t52+3.5461536035682834d-1*t102*t16*t17*t44*t46 2685 5 -3.5461536035682834d-1*t16*t169*t17*t42*t44 2686 t171 = -1.2407009817988002d+0*t3*t40*t75*t79*t99+2.481401963 2687 1 5976003d+0*gammabb*t11*t3*t73*t74*t79*t99+1.8610514726982 2688 2 003d+0*t137*t3*t33*t40*t78*t99-9.305257363491002d-1*t11*t 2689 3 3*t73*t78*t79*t98-9.305257363491002d-1*t164*t3*t33*t40*t7 2690 4 9+1.2407009817988002d+0*t11*t3*t38*t73*t74-4.962803927195 2691 5 2007d+0*gammabb*t107*t131*t163*t3*t38 2692 t172 = 1/t17**3 2693 t173 = t93**2 2694 t174 = 1/t20**7 2695 t175 = t92**2 2696 t176 = 1.8610514726982003d+0*t11*t3*t55*t61*t91*t92+1.861051 2697 1 4726982003d+0*t121*t13*t3*t4*t61-1.8610514726982003d+0*t1 2698 2 14*t13*t175*t2*t3-1.8610514726982003d+0*t10*t107*t108*t12 2699 3 1*t3 2700 t177 = 1/t17**4 2701 t178 = 1/t19**4 2702 t179 = 1.413716694115413d+1*t176*t22*t24*t26*t67-3.536776513 2703 1 153214d-2*t176*t21*t23*t27-5.0d-1*t176*t25*t26-3.53429173 2704 2 5288533d+1*t122*t173*t22*t24*t26+1.9985948912206125d+2*t1 2705 3 20*t173*t177*t178*t26 2706 t180 = 2.659615202676212d-1*t17*t18*t30*t93*t94-9.4214666695 2707 1 12572d+1*t172*t173*t174*t26*t54*t65-6.66432440723758d+0*r 2708 2 hoa*t176*t26*t29*t54*t63-6.649038006690531d-2*t17*t173*t1 2709 3 8*t28*t63+9.996486610856369d+0*rhoa*t106*t173*t26*t29*t54 2710 4 +1.329807601338106d-1*t17*t176*t18*t28*t30+2.659615202676 2711 5 212d-1*t17*t179*t18*t20 2712 t181 = -3.5461536035682834d-1*t16*t17*t18*t30*t93*t95+8.8653 2713 1 84008920708d-2*t16*t17*t173*t18*t31*t63-1.773076801784141 2714 2 7d-1*t16*t17*t176*t18*t30*t31-3.5461536035682834d-1*t16*t 2715 3 17*t18*t180*t20 2716 t182 = -1.8610514726982003d+0*t11*t3*t55*t61*t91*t92-1.86105 2717 1 14726982003d+0*t121*t13*t3*t4*t61+1.8610514726982003d+0*t 2718 2 114*t13*t175*t2*t3+1.8610514726982003d+0*t10*t107*t108*t1 2719 3 21*t3 2720 t183 = t100**2 2721 t184 = 1/t44**7 2722 t185 = t99**2 2723 t186 = 1.8610514726982003d+0*t11*t3*t73*t79*t98*t99+1.861051 2724 1 4726982003d+0*t144*t3*t4*t40*t79-1.8610514726982003d+0*t1 2725 2 37*t185*t3*t33*t40-1.8610514726982003d+0*t107*t131*t144*t 2726 3 3*t38 2727 t187 = 1/t43**4 2728 t188 = 1.413716694115413d+1*t186*t24*t45*t48*t85-3.536776513 2729 1 153214d-2*t186*t21*t46*t49-5.0d-1*t186*t47*t48-3.53429173 2730 2 5288533d+1*t145*t183*t24*t45*t48+1.9985948912206125d+2*t1 2731 3 43*t177*t183*t187*t48 2732 t189 = -9.421466669512572d+1*t172*t183*t184*t48*t54*t83-6.66 2733 1 432440723758d+0*rhob*t186*t29*t48*t54*t81-6.6490380066905 2734 2 31d-2*t17*t183*t42*t50*t81+9.996486610856369d+0*rhob*t130 2735 3 *t183*t29*t48*t54+1.329807601338106d-1*t17*t186*t42*t50*t 2736 4 51+2.659615202676212d-1*t100*t101*t17*t42*t51+2.659615202 2737 5 676212d-1*t17*t188*t42*t44 2738 t190 = 8.865384008920708d-2*t16*t17*t183*t42*t52*t81-1.77307 2739 1 68017841417d-1*t16*t17*t186*t42*t51*t52-3.546153603568283 2740 2 4d-1*t100*t102*t16*t17*t42*t51-3.5461536035682834d-1*t16* 2741 3 t17*t189*t42*t44 2742 t191 = -1.8610514726982003d+0*t11*t3*t73*t79*t98*t99-1.86105 2743 1 14726982003d+0*t144*t3*t4*t40*t79+1.8610514726982003d+0*t 2744 2 137*t185*t3*t33*t40+1.8610514726982003d+0*t107*t131*t144* 2745 3 t3*t38 2746 t192 = t62**3 2747 t193 = t11**3 2748 t194 = gammaaa**3 2749 t195 = 1/t12**4 2750 t196 = 1/rhoa**9.666666666666666d+0 2751 t197 = 1/rhoa**7 2752 t198 = 1/rhoa**4.333333333333333d+0 2753 t199 = 1/rhoa**1.6666666666666669d+0 2754 t200 = t60**3 2755 t201 = 1/t9**4 2756 t202 = -4.5629629629629626d+1*gammaaa*t7/rhoa**5.66666666666 2757 1 6667d+0-2.477037037037037d+2*t4*t5/rhoa**8.33333333333333 2758 2 4d+0 2759 t203 = 7.444205890792801d+0*gammaaa*t11*t111*t3*t55*t60*t61- 2760 1 3.9702431417561607d+1*t107*t108*t110*t3*t5*t60*t61+1.2407 2761 2 009817988002d+0*t112*t13*t3*t60*t61+3.7221029453964005d+0 2762 3 *t117*t13*t3*t57*t61-7.444205890792801d+0*gammaaa*t11*t11 2763 4 7*t3*t55*t56*t61+9.305257363491002d-1*t13*t2*t202*t3*t61- 2764 5 5.583154418094601d+0*t114*t117*t13*t2*t3*t60-7.4442058907 2765 6 92801d+0*t113*t114*t13*t3*t57+1.4888411781585603d+1*gamma 2766 7 aa*t11*t113*t114*t3*t55*t56-9.374185195813161d+0*gammaaa* 2767 8 t10*t11*t198*t3*t55+9.263900664097708d+1*t10*t107*t108*t1 2768 9 97*t3*t5+5.583154418094601d+0*t13*t2*t200*t201*t3-2.75711 2769 : 32928862224d-1*t10*t13*t199*t3-1.0587315044683095d+2*t10* 2770 ; t193*t194*t195*t196*t3-2.7571132928862224d-1*t1*t199 2771 t204 = 8.482300164692478d+1*t24*t62*t67+1.413716694115413d+1 2772 1 *t203*t22*t24*t67+8.482300164692478d+1*rhoa*t118*t24*t67- 2773 2 8.482300164692478d+1*t118*t122*t22*t24*t62+8.482300164692 2774 3 478d+1*t178*t192*t22*t24-1.6964600329384957d+2*rhoa*t105* 2775 4 t122*t24 2776 t205 = t68**3 2777 t206 = t80**3 2778 t207 = gammabb**3 2779 t208 = 1/t39**4 2780 t209 = 1/rhob**9.666666666666666d+0 2781 t210 = 1/rhob**7 2782 t211 = 1/rhob**4.333333333333333d+0 2783 t212 = 1/rhob**1.6666666666666669d+0 2784 t213 = t78**3 2785 t214 = 1/t37**4 2786 t215 = -4.5629629629629626d+1*gammabb*t7/rhob**5.66666666666 2787 1 6667d+0-2.477037037037037d+2*t34*t4/rhob**8.3333333333333 2788 2 34d+0 2789 t216 = 7.444205890792801d+0*gammabb*t11*t134*t3*t73*t78*t79+ 2790 1 1.2407009817988002d+0*t135*t3*t40*t78*t79-3.9702431417561 2791 2 607d+1*t107*t131*t133*t3*t34*t78*t79+3.7221029453964005d+ 2792 3 0*t140*t3*t40*t75*t79-7.444205890792801d+0*gammabb*t11*t1 2793 4 40*t3*t73*t74*t79+9.305257363491002d-1*t215*t3*t33*t40*t7 2794 5 9-5.583154418094601d+0*t137*t140*t3*t33*t40*t78-7.4442058 2795 6 90792801d+0*t136*t137*t3*t40*t75+1.4888411781585603d+1*ga 2796 7 mmabb*t11*t136*t137*t3*t73*t74-9.374185195813161d+0*gamma 2797 8 bb*t11*t211*t3*t38*t73-2.7571132928862224d-1*t212*t3*t38* 2798 9 t40+5.583154418094601d+0*t213*t214*t3*t33*t40+9.263900664 2799 : 097708d+1*t107*t131*t210*t3*t34*t38-1.0587315044683095d+2 2800 ; *t193*t207*t208*t209*t3*t38-2.7571132928862224d-1*t1*t212 2801 t217 = 8.482300164692478d+1*t24*t80*t85+1.413716694115413d+1 2802 1 *t216*t24*t45*t85+8.482300164692478d+1*rhob*t141*t24*t85- 2803 2 8.482300164692478d+1*t141*t145*t24*t45*t80+8.482300164692 2804 3 478d+1*t187*t206*t24*t45-1.6964600329384957d+2*rhob*t129* 2805 4 t145*t24 2806 t218 = t86**3 2807 t219 = 1/rhoa**8.666666666666666d+0 2808 t220 = 9.777777777777779d+0*t116*t7+6.755555555555556d+1*gam 2809 1 maaa*t115*t4 2810 t221 = 2.481401963597601d+0*gammaaa*t11*t111*t3*t55*t61*t92- 2811 1 1.3234143805853868d+1*t107*t108*t110*t3*t5*t61*t92+4.1356 2812 2 69939329334d-1*t112*t13*t3*t61*t92-4.9628039271952007d+0* 2813 3 t114*t13*t3*t57*t60*t92+9.925607854390401d+0*gammaaa*t11* 2814 4 t114*t3*t55*t56*t60*t92+5.583154418094601d+0*t113*t13*t2* 2815 5 t201*t3*t92-1.8610514726982003d+0*t114*t117*t13*t2*t3*t92 2816 6 +9.305257363491002d-1*t11*t117*t3*t55*t61*t91-1.861051472 2817 7 6982003d+0*t11*t113*t114*t3*t55*t91-2.4814019635976003d+0 2818 8 *t11*t3*t55*t56*t60*t61+9.925607854390401d+0*gammaaa*t107 2819 9 *t108*t153*t3*t60*t61+2.4814019635976003d+0*t13*t154*t3*t 2820 : 57*t61-4.9628039271952007d+0*gammaaa*t11*t154*t3*t55*t56* 2821 ; t61+9.305257363491002d-1*t13*t2*t220*t3*t61-3.72210294539 2822 < 64005d+0*t114*t13*t154*t2*t3*t60+2.8949689575305343d+0*t1 2823 = 0*t11*t111*t3*t55+3.9702431417561607d+1*t10*t193*t195*t21 2824 > 9*t3*t5-3.143109153890294d+1*gammaaa*t10*t107*t108*t110*t 2825 ? 3 2826 t222 = 2.827433388230826d+1*t24*t67*t93-1.1309733552923305d+ 2827 1 2*rhoa*t122*t24*t62*t93+8.482300164692478d+1*t105*t178*t2 2828 2 2*t24*t93-2.827433388230826d+1*t118*t122*t22*t24*t93+1.41 2829 3 3716694115413d+1*t22*t221*t24*t67+5.654866776461652d+1*rh 2830 4 oa*t155*t24*t67-5.654866776461652d+1*t122*t155*t22*t24*t6 2831 5 2 2832 t223 = 1/rhob**8.666666666666666d+0 2833 t224 = 9.777777777777779d+0*t139*t7+6.755555555555556d+1*gam 2834 1 mabb*t138*t4 2835 t225 = 2.481401963597601d+0*gammabb*t11*t134*t3*t73*t79*t99+ 2836 1 4.135669939329334d-1*t135*t3*t40*t79*t99-1.32341438058538 2837 2 68d+1*t107*t131*t133*t3*t34*t79*t99-4.9628039271952007d+0 2838 3 *t137*t3*t40*t75*t78*t99+9.925607854390401d+0*gammabb*t11 2839 4 *t137*t3*t73*t74*t78*t99+5.583154418094601d+0*t136*t214*t 2840 5 3*t33*t40*t99-1.8610514726982003d+0*t137*t140*t3*t33*t40* 2841 6 t99+9.305257363491002d-1*t11*t140*t3*t73*t79*t98-1.861051 2842 7 4726982003d+0*t11*t136*t137*t3*t73*t98-2.4814019635976003 2843 8 d+0*t11*t3*t73*t74*t78*t79+9.925607854390401d+0*gammabb*t 2844 9 107*t131*t163*t3*t78*t79+2.4814019635976003d+0*t164*t3*t4 2845 : 0*t75*t79-4.9628039271952007d+0*gammabb*t11*t164*t3*t73*t 2846 ; 74*t79+9.305257363491002d-1*t224*t3*t33*t40*t79-3.7221029 2847 < 453964005d+0*t137*t164*t3*t33*t40*t78+2.8949689575305343d 2848 = +0*t11*t134*t3*t38*t73+3.9702431417561607d+1*t193*t208*t2 2849 > 23*t3*t34*t38-3.143109153890294d+1*gammabb*t107*t131*t133 2850 ? *t3*t38 2851 t226 = 1.413716694115413d+1*t225*t24*t45*t85+5.6548667764616 2852 1 52d+1*rhob*t165*t24*t85+2.827433388230826d+1*t100*t24*t85 2853 2 -5.654866776461652d+1*t145*t165*t24*t45*t80-1.13097335529 2854 3 23305d+2*rhob*t100*t145*t24*t80+8.482300164692478d+1*t100 2855 4 *t129*t187*t24*t45-2.827433388230826d+1*t100*t141*t145*t2 2856 5 4*t45 2857 t227 = 1/rhoa**7.666666666666667d+0 2858 t228 = -3.7221029453964005d+0*t11*t114*t3*t55*t60*t91*t92-2. 2859 1 481401963597601d+0*t11*t3*t55*t56*t61*t92+9.9256078543904 2860 2 01d+0*gammaaa*t107*t108*t153*t3*t61*t92-3.722102945396400 2861 3 5d+0*t114*t13*t154*t2*t3*t92+1.8610514726982003d+0*t11*t1 2862 4 54*t3*t55*t61*t91-1.8610514726982003d+0*t107*t108*t121*t3 2863 5 *t60*t61-4.9628039271952007d+0*gammaaa*t11*t227*t3*t4*t55 2864 6 *t61-7.444205890792801d+0*t13*t153*t3*t4*t61-3.7221029453 2865 7 964005d+0*t114*t121*t13*t3*t4*t60+5.583154418094601d+0*t1 2866 8 3*t175*t2*t201*t3*t60-2.4814019635976003d+0*t114*t13*t175 2867 9 *t3*t57+4.9628039271952007d+0*gammaaa*t11*t114*t175*t3*t5 2868 : 5*t56-1.4888411781585603d+1*gammaaa*t10*t193*t195*t227*t3 2869 ; +7.444205890792801d+0*t10*t107*t108*t153*t3 2870 t229 = -5.654866776461652d+1*t122*t155*t22*t24*t93+1.4137166 2871 1 94115413d+1*t22*t228*t24*t67+2.827433388230826d+1*rhoa*t1 2872 2 76*t24*t67+8.482300164692478d+1*t173*t178*t22*t24*t62-2.8 2873 3 27433388230826d+1*t122*t176*t22*t24*t62-5.654866776461652 2874 4 d+1*rhoa*t122*t173*t24 2875 t230 = 1/rhob**7.666666666666667d+0 2876 t231 = -3.7221029453964005d+0*t11*t137*t3*t73*t78*t98*t99-2. 2877 1 481401963597601d+0*t11*t3*t73*t74*t79*t99+9.9256078543904 2878 2 01d+0*gammabb*t107*t131*t163*t3*t79*t99-3.722102945396400 2879 3 5d+0*t137*t164*t3*t33*t40*t99+1.8610514726982003d+0*t11*t 2880 4 164*t3*t73*t79*t98-1.8610514726982003d+0*t107*t131*t144*t 2881 5 3*t78*t79-4.9628039271952007d+0*gammabb*t11*t230*t3*t4*t7 2882 6 3*t79-7.444205890792801d+0*t163*t3*t4*t40*t79-3.722102945 2883 7 3964005d+0*t137*t144*t3*t4*t40*t78+5.583154418094601d+0*t 2884 8 185*t214*t3*t33*t40*t78-2.4814019635976003d+0*t137*t185*t 2885 9 3*t40*t75+4.9628039271952007d+0*gammabb*t11*t137*t185*t3* 2886 : t73*t74-1.4888411781585603d+1*gammabb*t193*t208*t230*t3*t 2887 ; 38+7.444205890792801d+0*t107*t131*t163*t3*t38 2888 t232 = 1.413716694115413d+1*t231*t24*t45*t85+2.8274333882308 2889 1 26d+1*rhob*t186*t24*t85+8.482300164692478d+1*t183*t187*t2 2890 2 4*t45*t80-2.827433388230826d+1*t145*t186*t24*t45*t80-5.65 2891 3 4866776461652d+1*t100*t145*t165*t24*t45-5.654866776461652 2892 4 d+1*rhob*t145*t183*t24 2893 t233 = 1/t17**5 2894 t234 = t93**3 2895 t235 = 1/rhoa**6.666666666666667d+0 2896 t236 = t92**3 2897 t237 = -5.583154418094601d+0*t107*t108*t121*t3*t61*t92-1.116 2898 1 6308836189202d+1*t114*t121*t13*t3*t4*t92-5.58315441809460 2899 2 1d+0*t11*t114*t175*t3*t55*t91+5.583154418094601d+0*t11*t2 2900 3 35*t3*t4*t55*t61+5.583154418094601d+0*t13*t2*t201*t236*t3 2901 4 +5.583154418094601d+0*t10*t193*t195*t235*t3 2902 t238 = 1/t17**6 2903 t239 = t100**3 2904 t240 = 1/rhob**6.666666666666667d+0 2905 t241 = t99**3 2906 t242 = -5.583154418094601d+0*t107*t131*t144*t3*t79*t99-1.116 2907 1 6308836189202d+1*t137*t144*t3*t4*t40*t99-5.58315441809460 2908 2 1d+0*t11*t137*t185*t3*t73*t98+5.583154418094601d+0*t11*t2 2909 3 40*t3*t4*t73*t79+5.583154418094601d+0*t214*t241*t3*t33*t4 2910 4 0+5.583154418094601d+0*t193*t208*t240*t3*t38 2911 fnc(iq) = (t41*t53+t14*t32)*wght+fnc(iq) 2912 Amat(iq,D1_RA) = (t32*t72+t14*t71)*wght+Amat(iq,D1_RA) 2913 Amat(iq,D1_RB) = (t53*t90+t41*t89)*wght+Amat(iq,D1_RB) 2914 Cmat(iq,D1_GAA) = (t32*t97+t14*t96)*wght+Cmat(iq,D1_GAA) 2915 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 2916 Cmat(iq,D1_GBB) = (t104*t53+t103*t41)*wght+Cmat(iq,D1_GBB) 2917 Amat2(iq,D2_RA_RA) = (2*t71*t72+t128*t32+t127*t14)*wght+Amat 2918 1 2(iq,D2_RA_RA) 2919 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 2920 Amat2(iq,D2_RB_RB) = (2*t89*t90+t151*t53+t150*t41)*wght+Amat 2921 1 2(iq,D2_RB_RB) 2922 Cmat2(iq,D2_RA_GAA) = (t71*t97+t72*t96+t161*t32+t14*t160)*wg 2923 1 ht+Cmat2(iq,D2_RA_GAA) 2924 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 2925 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 2926 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 2927 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 2928 Cmat2(iq,D2_RB_GBB) = (t103*t90+t104*t89+t171*t53+t170*t41)* 2929 1 wght+Cmat2(iq,D2_RB_GBB) 2930 Cmat2(iq,D2_GAA_GAA) = (2*t96*t97+t182*t32+t14*t181)*wght+Cm 2931 1 at2(iq,D2_GAA_GAA) 2932 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 2933 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 2934 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 2935 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 2936 Cmat2(iq,D2_GBB_GBB) = (t191*t53+t190*t41+2*t103*t104)*wght+ 2937 1 Cmat2(iq,D2_GBB_GBB) 2938 Amat3(iq,D3_RA_RA_RA) = (3*t127*t72+3*t128*t71+t14*(-2.12769 2939 1 216214097d+0*t16*t17*t20*t66*t70+2.6596152026762127d-1*t1 2940 2 05*t16*t17*t18*t63*t70+1.063846081070485d+0*t16*t17*t23*t 2941 3 30*t62*t70-5.319230405352425d-1*t118*t16*t17*t18*t30*t70- 2942 4 3.5461536035682834d-1*t16*t17*t18*t20*(1.5957691216057274 2943 5 d+0*t17*t20*t66*t69-1.994711402007159d-1*t105*t17*t18*t63 2944 6 *t69-7.978845608028636d-1*t17*t23*t30*t62*t69+3.989422804 2945 7 014318d-1*t118*t17*t18*t30*t69+2.659615202676212d-1*t17*t 2946 8 18*t20*(4.244131815783857d-1*t21*t26*t62*t66*t68-1.061032 2947 9 9539459643d-1*t123*t19*t21*t23*t26*t68-1.0610329539459643 2948 : d-1*t118*t21*t23*t26*t68-6.366197723675786d-1*t121*t19*t2 2949 ; 1*t26*t68+3*t123*t26*t68+2.1220659078919285d-1*t118*t21*t 2950 < 27*t66+2.1220659078919285d-1*t124*t19*t21*t26*t66+2.12206 2951 = 59078919285d-1*t123*t19*t21*t26*t66-6.366197723675786d-1* 2952 > t121*t21*t27*t62-1.0610329539459643d-1*t124*t21*t23*t26*t 2953 ? 62-1.0610329539459643d-1*t123*t21*t23*t26*t62-3.536776513 2954 @ 153214d-2*t203*t21*t23*t27+8.488263631567714d-1*t153*t19* 2955 1 t21*t27-3.536776513153214d-2*t19*t205*t21*t23*t26-3.53677 2956 2 6513153214d-2*t19*t204*t21*t23*t26+t205*t26+t204*t26)+7.0 2957 3 89815403622081d+0*t119*t26*t54*t68+7.978845608028636d-1*t 2958 4 17*t28*t30*t62*t66+3.5449077018110403d+0*t124*t26*t54*t64 2959 5 +3.5449077018110403d+0*t123*t26*t54*t64+3.544907701811040 2960 6 3d+0*t26*t54*(-1.8799712059732546d+0*rhoa*t203*t29*t63-5. 2961 7 639913617919763d+0*t118*t29*t63+8.459870426879645d+0*rhoa 2962 8 *t106*t118*t29*t62-7.049892022399704d+0*rhoa*t174*t192*t2 2963 9 9+8.459870426879645d+0*t105*t106*t29)-1.994711402007159d- 2964 : 1*t118*t17*t18*t28*t62*t63+1.994711402007159d-1*t105*t17* 2965 ; t23*t28*t63+3.989422804014318d-1*t125*t17*t18*t30*t62-3.9 2966 < 89422804014318d-1*t118*t17*t23*t28*t30+1.329807601338106d 2967 = -1*t17*t18*t203*t28*t30-1.5957691216057274d+0*t121*t17*t2 2968 > 0*t28+9.973557010035795d-2*t106*t17*t18*t192*t28-7.978845 2969 ? 608028636d-1*t125*t17*t20*t23)-1.063846081070485d+0*t16*t 2970 @ 17*t30*t31*t62*t66+2.6596152026762127d-1*t118*t16*t17*t18 2971 1 *t31*t62*t63-2.6596152026762127d-1*t105*t16*t17*t23*t31*t 2972 2 63-5.319230405352425d-1*t126*t16*t17*t18*t30*t62+5.319230 2973 3 405352425d-1*t118*t16*t17*t23*t30*t31-1.7730768017841417d 2974 4 -1*t16*t17*t18*t203*t30*t31+2.12769216214097d+0*t121*t16* 2975 5 t17*t20*t31-1.3298076013381063d-1*t106*t16*t17*t18*t192*t 2976 6 31+1.063846081070485d+0*t126*t16*t17*t20*t23)+t32*(-7.444 2977 7 205890792801d+0*gammaaa*t11*t111*t3*t55*t60*t61+3.9702431 2978 8 417561607d+1*t107*t108*t110*t3*t5*t60*t61-1.2407009817988 2979 9 002d+0*t112*t13*t3*t60*t61-3.7221029453964005d+0*t117*t13 2980 : *t3*t57*t61+7.444205890792801d+0*gammaaa*t11*t117*t3*t55* 2981 ; t56*t61-9.305257363491002d-1*t13*t2*t202*t3*t61+5.5831544 2982 < 18094601d+0*t114*t117*t13*t2*t3*t60+7.444205890792801d+0* 2983 = t113*t114*t13*t3*t57-1.4888411781585603d+1*gammaaa*t11*t1 2984 > 13*t114*t3*t55*t56+9.374185195813161d+0*gammaaa*t10*t11*t 2985 ? 198*t3*t55-9.263900664097708d+1*t10*t107*t108*t197*t3*t5- 2986 @ 5.583154418094601d+0*t13*t2*t200*t201*t3+2.75711329288622 2987 1 24d-1*t10*t13*t199*t3+1.0587315044683095d+2*t10*t193*t194 2988 2 *t195*t196*t3+2.7571132928862224d-1*t1*t199))*wght+Amat3( 2989 3 iq,D3_RA_RA_RA) 2990 Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB) 2991 Amat3(iq,D3_RA_RB_RB) = Amat3(iq,D3_RA_RB_RB) 2992 Amat3(iq,D3_RB_RB_RB) = (3*t150*t90+3*t151*t89+t41*(-2.12769 2993 1 216214097d+0*t16*t17*t44*t84*t88+2.6596152026762127d-1*t1 2994 2 29*t16*t17*t42*t81*t88+1.063846081070485d+0*t16*t17*t46*t 2995 3 51*t80*t88-5.319230405352425d-1*t141*t16*t17*t42*t51*t88- 2996 4 3.5461536035682834d-1*t16*t17*t42*t44*(1.5957691216057274 2997 5 d+0*t17*t44*t84*t87-1.994711402007159d-1*t129*t17*t42*t81 2998 6 *t87-7.978845608028636d-1*t17*t46*t51*t80*t87+3.989422804 2999 7 014318d-1*t141*t17*t42*t51*t87+2.659615202676212d-1*t17*t 3000 8 42*t44*(4.244131815783857d-1*t21*t48*t80*t84*t86-1.061032 3001 9 9539459643d-1*t146*t21*t43*t46*t48*t86-1.0610329539459643 3002 : d-1*t141*t21*t46*t48*t86-6.366197723675786d-1*t144*t21*t4 3003 ; 3*t48*t86+3*t146*t48*t86+2.1220659078919285d-1*t141*t21*t 3004 < 49*t84+2.1220659078919285d-1*t147*t21*t43*t48*t84+2.12206 3005 = 59078919285d-1*t146*t21*t43*t48*t84-6.366197723675786d-1* 3006 > t144*t21*t49*t80-1.0610329539459643d-1*t147*t21*t46*t48*t 3007 ? 80-1.0610329539459643d-1*t146*t21*t46*t48*t80-3.536776513 3008 @ 153214d-2*t21*t216*t46*t49+8.488263631567714d-1*t163*t21* 3009 1 t43*t49-3.536776513153214d-2*t21*t218*t43*t46*t48-3.53677 3010 2 6513153214d-2*t21*t217*t43*t46*t48+t218*t48+t217*t48)+7.0 3011 3 89815403622081d+0*t142*t48*t54*t86+7.978845608028636d-1*t 3012 4 17*t50*t51*t80*t84+3.5449077018110403d+0*t147*t48*t54*t82 3013 5 +3.5449077018110403d+0*t146*t48*t54*t82+3.544907701811040 3014 6 3d+0*t48*t54*(-1.8799712059732546d+0*rhob*t216*t29*t81-5. 3015 7 639913617919763d+0*t141*t29*t81+8.459870426879645d+0*rhob 3016 8 *t130*t141*t29*t80-7.049892022399704d+0*rhob*t184*t206*t2 3017 9 9+8.459870426879645d+0*t129*t130*t29)-1.994711402007159d- 3018 : 1*t141*t17*t42*t50*t80*t81+1.994711402007159d-1*t129*t17* 3019 ; t46*t50*t81+3.989422804014318d-1*t148*t17*t42*t51*t80-3.9 3020 < 89422804014318d-1*t141*t17*t46*t50*t51+1.329807601338106d 3021 = -1*t17*t216*t42*t50*t51-1.5957691216057274d+0*t144*t17*t4 3022 > 4*t50+9.973557010035795d-2*t130*t17*t206*t42*t50-7.978845 3023 ? 608028636d-1*t148*t17*t44*t46)-1.063846081070485d+0*t16*t 3024 @ 17*t51*t52*t80*t84+2.6596152026762127d-1*t141*t16*t17*t42 3025 1 *t52*t80*t81-2.6596152026762127d-1*t129*t16*t17*t46*t52*t 3026 2 81-5.319230405352425d-1*t149*t16*t17*t42*t51*t80+5.319230 3027 3 405352425d-1*t141*t16*t17*t46*t51*t52-1.7730768017841417d 3028 4 -1*t16*t17*t216*t42*t51*t52+2.12769216214097d+0*t144*t16* 3029 5 t17*t44*t52-1.3298076013381063d-1*t130*t16*t17*t206*t42*t 3030 6 52+1.063846081070485d+0*t149*t16*t17*t44*t46)+t53*(-7.444 3031 7 205890792801d+0*gammabb*t11*t134*t3*t73*t78*t79-1.2407009 3032 8 817988002d+0*t135*t3*t40*t78*t79+3.9702431417561607d+1*t1 3033 9 07*t131*t133*t3*t34*t78*t79-3.7221029453964005d+0*t140*t3 3034 : *t40*t75*t79+7.444205890792801d+0*gammabb*t11*t140*t3*t73 3035 ; *t74*t79-9.305257363491002d-1*t215*t3*t33*t40*t79+5.58315 3036 < 4418094601d+0*t137*t140*t3*t33*t40*t78+7.444205890792801d 3037 = +0*t136*t137*t3*t40*t75-1.4888411781585603d+1*gammabb*t11 3038 > *t136*t137*t3*t73*t74+9.374185195813161d+0*gammabb*t11*t2 3039 ? 11*t3*t38*t73+2.7571132928862224d-1*t212*t3*t38*t40-5.583 3040 @ 154418094601d+0*t213*t214*t3*t33*t40-9.263900664097708d+1 3041 1 *t107*t131*t210*t3*t34*t38+1.0587315044683095d+2*t193*t20 3042 2 7*t208*t209*t3*t38+2.7571132928862224d-1*t1*t212))*wght+A 3043 3 mat3(iq,D3_RB_RB_RB) 3044 Cmat3(iq,D3_RA_RA_GAA) = (t127*t97+t128*t96+t14*(-7.09230720 3045 1 7136567d-1*t16*t17*t20*t66*t95+8.865384008920708d-2*t105* 3046 2 t16*t17*t18*t63*t95+3.5461536035682834d-1*t16*t17*t23*t30 3047 3 *t62*t95-1.7730768017841417d-1*t118*t16*t17*t18*t30*t95-3 3048 4 .5461536035682834d-1*t16*t17*t18*t20*(5.319230405352424d- 3049 5 1*t17*t20*t66*t94-6.649038006690531d-2*t105*t17*t18*t63*t 3050 6 94-2.659615202676212d-1*t17*t23*t30*t62*t94+1.32980760133 3051 7 8106d-1*t118*t17*t18*t30*t94+2.659615202676212d-1*t17*t18 3052 8 *t20*(-1.0d+0*t26*t62*t67*t68*t93+1.4147106052612857d-1*t 3053 9 21*t26*t66*t68*t93+2.0d+0*t18*t25*t26*t68*t93+2.0d+0*t18* 3054 : t26*t62*t67*t93+1.413716694115413d+1*t124*t22*t24*t26*t67 3055 ; *t93+1.413716694115413d+1*t123*t22*t24*t26*t67*t93-5.0d-1 3056 < *t118*t26*t67*t93-2.1220659078919285d-1*t121*t21*t27*t93- 3057 = 3.0d+0*t23*t25*t26*t93-5.0d-1*t124*t25*t26*t93-5.0d-1*t12 3058 > 3*t25*t26*t93-3.536776513153214d-2*t124*t21*t23*t26*t93-3 3059 ? .536776513153214d-2*t123*t21*t23*t26*t93-7.07355302630642 3060 @ 8d-2*t157*t19*t21*t23*t26*t68-7.073553026306428d-2*t155*t 3061 1 21*t23*t26*t68+2*t157*t26*t68+1.4147106052612857d-1*t155* 3062 2 t21*t27*t66+1.4147106052612857d-1*t157*t19*t21*t26*t66-7. 3063 3 073553026306428d-2*t157*t21*t23*t26*t62-3.536776513153214 3064 4 d-2*t21*t221*t23*t27-3.536776513153214d-2*t19*t21*t222*t2 3065 5 3*t26+t222*t26)+3.5449077018110403d+0*t26*t54*(5.63991361 3066 6 7919763d+0*t106*t29*t62*t93-7.049892022399704d+0*rhoa*t10 3067 7 5*t174*t29*t93+2.8199568089598814d+0*rhoa*t106*t118*t29*t 3068 8 93-1.8799712059732546d+0*rhoa*t221*t29*t63-3.759942411946 3069 9 509d+0*t155*t29*t63+5.639913617919763d+0*rhoa*t106*t155*t 3070 : 29*t62)-1.329807601338106d-1*t17*t18*t62*t63*t69*t93-2.65 3071 ; 9615202676212d-1*t17*t23*t30*t69*t93+5.01149519714857d+1* 3072 < t22*t24*t26*t54*t64*t67*t68*t93+5.01149519714857d+1*t119* 3073 = t22*t24*t26*t54*t67*t93+2.659615202676212d-1*t17*t28*t30* 3074 > t66*t93+1.329807601338106d-1*t17*t23*t28*t62*t63*t93-6.64 3075 ? 9038006690531d-2*t118*t17*t18*t28*t63*t93+1.3298076013381 3076 @ 06d-1*t125*t17*t18*t30*t93+9.973557010035795d-2*t105*t106 3077 1 *t17*t18*t28*t93+2.659615202676212d-1*t155*t17*t18*t30*t6 3078 2 9+3.5449077018110403d+0*t156*t26*t54*t68+3.54490770181104 3079 3 03d+0*t157*t26*t54*t64-1.329807601338106d-1*t155*t17*t18* 3080 4 t28*t62*t63+2.659615202676212d-1*t158*t17*t18*t30*t62-2.6 3081 5 59615202676212d-1*t155*t17*t23*t28*t30+1.329807601338106d 3082 6 -1*t17*t18*t221*t28*t30-5.319230405352424d-1*t158*t17*t20 3083 7 *t23)+1.7730768017841417d-1*t16*t17*t18*t62*t63*t70*t93+3 3084 8 .5461536035682834d-1*t16*t17*t23*t30*t70*t93-3.5461536035 3085 9 682834d-1*t16*t17*t30*t31*t66*t93-1.7730768017841417d-1*t 3086 : 16*t17*t23*t31*t62*t63*t93+8.865384008920708d-2*t118*t16* 3087 ; t17*t18*t31*t63*t93-1.3298076013381063d-1*t105*t106*t16*t 3088 < 17*t18*t31*t93-1.7730768017841417d-1*t126*t16*t17*t18*t30 3089 = *t93-3.5461536035682834d-1*t155*t16*t17*t18*t30*t70+1.773 3090 > 0768017841417d-1*t155*t16*t17*t18*t31*t62*t63-3.546153603 3091 ? 5682834d-1*t159*t16*t17*t18*t30*t62+3.5461536035682834d-1 3092 @ *t155*t16*t17*t23*t30*t31-1.7730768017841417d-1*t16*t17*t 3093 1 18*t221*t30*t31+7.092307207136567d-1*t159*t16*t17*t20*t23 3094 2 )+t32*(-2.481401963597601d+0*gammaaa*t11*t111*t3*t55*t61* 3095 3 t92+1.3234143805853868d+1*t107*t108*t110*t3*t5*t61*t92-4. 3096 4 135669939329334d-1*t112*t13*t3*t61*t92+4.9628039271952007 3097 5 d+0*t114*t13*t3*t57*t60*t92-9.925607854390401d+0*gammaaa* 3098 6 t11*t114*t3*t55*t56*t60*t92-5.583154418094601d+0*t113*t13 3099 7 *t2*t201*t3*t92+1.8610514726982003d+0*t114*t117*t13*t2*t3 3100 8 *t92-9.305257363491002d-1*t11*t117*t3*t55*t61*t91+1.86105 3101 9 14726982003d+0*t11*t113*t114*t3*t55*t91+2.481401963597600 3102 : 3d+0*t11*t3*t55*t56*t60*t61-9.925607854390401d+0*gammaaa* 3103 ; t107*t108*t153*t3*t60*t61-2.4814019635976003d+0*t13*t154* 3104 < t3*t57*t61+4.9628039271952007d+0*gammaaa*t11*t154*t3*t55* 3105 = t56*t61-9.305257363491002d-1*t13*t2*t220*t3*t61+3.7221029 3106 > 453964005d+0*t114*t13*t154*t2*t3*t60-2.8949689575305343d+ 3107 ? 0*t10*t11*t111*t3*t55-3.9702431417561607d+1*t10*t193*t195 3108 @ *t219*t3*t5+3.143109153890294d+1*gammaaa*t10*t107*t108*t1 3109 1 10*t3)+2*t160*t72+2*t161*t71)*wght+Cmat3(iq,D3_RA_RA_GAA) 3110 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 3111 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 3112 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 3113 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 3114 Cmat3(iq,D3_RA_RB_GBB) = Cmat3(iq,D3_RA_RB_GBB) 3115 Cmat3(iq,D3_RB_RB_GAA) = Cmat3(iq,D3_RB_RB_GAA) 3116 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 3117 Cmat3(iq,D3_RB_RB_GBB) = (t53*(-2.481401963597601d+0*gammabb 3118 1 *t11*t134*t3*t73*t79*t99-4.135669939329334d-1*t135*t3*t40 3119 2 *t79*t99+1.3234143805853868d+1*t107*t131*t133*t3*t34*t79* 3120 3 t99+4.9628039271952007d+0*t137*t3*t40*t75*t78*t99-9.92560 3121 4 7854390401d+0*gammabb*t11*t137*t3*t73*t74*t78*t99-5.58315 3122 5 4418094601d+0*t136*t214*t3*t33*t40*t99+1.8610514726982003 3123 6 d+0*t137*t140*t3*t33*t40*t99-9.305257363491002d-1*t11*t14 3124 7 0*t3*t73*t79*t98+1.8610514726982003d+0*t11*t136*t137*t3*t 3125 8 73*t98+2.4814019635976003d+0*t11*t3*t73*t74*t78*t79-9.925 3126 9 607854390401d+0*gammabb*t107*t131*t163*t3*t78*t79-2.48140 3127 : 19635976003d+0*t164*t3*t40*t75*t79+4.9628039271952007d+0* 3128 ; gammabb*t11*t164*t3*t73*t74*t79-9.305257363491002d-1*t224 3129 < *t3*t33*t40*t79+3.7221029453964005d+0*t137*t164*t3*t33*t4 3130 = 0*t78-2.8949689575305343d+0*t11*t134*t3*t38*t73-3.9702431 3131 > 417561607d+1*t193*t208*t223*t3*t34*t38+3.143109153890294d 3132 ? +1*gammabb*t107*t131*t133*t3*t38)+2*t170*t90+2*t171*t89+t 3133 @ 41*(1.7730768017841417d-1*t100*t16*t17*t42*t80*t81*t88+3. 3134 1 5461536035682834d-1*t100*t16*t17*t46*t51*t88-3.5461536035 3135 2 682834d-1*t16*t165*t17*t42*t51*t88-3.5461536035682834d-1* 3136 3 t16*t17*t42*t44*(-1.329807601338106d-1*t100*t17*t42*t80*t 3137 4 81*t87-2.659615202676212d-1*t100*t17*t46*t51*t87+2.659615 3138 5 202676212d-1*t165*t17*t42*t51*t87+2.659615202676212d-1*t1 3139 6 7*t42*t44*(-1.0d+0*t100*t48*t80*t85*t86+1.414710605261285 3140 7 7d-1*t100*t21*t48*t84*t86+2.0d+0*t100*t42*t47*t48*t86-7.0 3141 8 73553026306428d-2*t167*t21*t43*t46*t48*t86-7.073553026306 3142 9 428d-2*t165*t21*t46*t48*t86+2*t167*t48*t86+2.0d+0*t100*t4 3143 : 2*t48*t80*t85+1.413716694115413d+1*t100*t147*t24*t45*t48* 3144 ; t85+1.413716694115413d+1*t100*t146*t24*t45*t48*t85-5.0d-1 3145 < *t100*t141*t48*t85+1.4147106052612857d-1*t165*t21*t49*t84 3146 = +1.4147106052612857d-1*t167*t21*t43*t48*t84-7.07355302630 3147 > 6428d-2*t167*t21*t46*t48*t80-3.536776513153214d-2*t21*t22 3148 ? 5*t46*t49-2.1220659078919285d-1*t100*t144*t21*t49-3.0d+0* 3149 @ t100*t46*t47*t48-5.0d-1*t100*t147*t47*t48-5.0d-1*t100*t14 3150 1 6*t47*t48-3.536776513153214d-2*t21*t226*t43*t46*t48-3.536 3151 2 776513153214d-2*t100*t147*t21*t46*t48-3.536776513153214d- 3152 3 2*t100*t146*t21*t46*t48+t226*t48)+5.01149519714857d+1*t10 3153 4 0*t24*t45*t48*t54*t82*t85*t86+3.5449077018110403d+0*t166* 3154 5 t48*t54*t86+5.01149519714857d+1*t100*t142*t24*t45*t48*t54 3155 6 *t85+2.659615202676212d-1*t100*t17*t50*t51*t84+5.31923040 3156 7 5352424d-1*t101*t17*t44*t84+3.5449077018110403d+0*t167*t4 3157 8 8*t54*t82+3.5449077018110403d+0*t48*t54*(-1.8799712059732 3158 9 546d+0*rhob*t225*t29*t81-3.759942411946509d+0*t165*t29*t8 3159 : 1+5.639913617919763d+0*rhob*t130*t165*t29*t80+5.639913617 3160 ; 919763d+0*t100*t130*t29*t80-7.049892022399704d+0*rhob*t10 3161 < 0*t129*t184*t29+2.8199568089598814d+0*rhob*t100*t130*t141 3162 = *t29)+1.329807601338106d-1*t100*t17*t46*t50*t80*t81-1.329 3163 > 807601338106d-1*t165*t17*t42*t50*t80*t81-6.64903800669053 3164 ? 1d-2*t100*t141*t17*t42*t50*t81-6.649038006690531d-2*t101* 3165 @ t129*t17*t42*t81-2.659615202676212d-1*t101*t17*t46*t51*t8 3166 1 0+2.659615202676212d-1*t168*t17*t42*t51*t80-2.65961520267 3167 2 6212d-1*t165*t17*t46*t50*t51+1.329807601338106d-1*t17*t22 3168 3 5*t42*t50*t51+1.329807601338106d-1*t100*t148*t17*t42*t51+ 3169 4 1.329807601338106d-1*t101*t141*t17*t42*t51+9.973557010035 3170 5 795d-2*t100*t129*t130*t17*t42*t50-5.319230405352424d-1*t1 3171 6 68*t17*t44*t46)-3.5461536035682834d-1*t100*t16*t17*t51*t5 3172 7 2*t84-7.092307207136567d-1*t102*t16*t17*t44*t84-1.7730768 3173 8 017841417d-1*t100*t16*t17*t46*t52*t80*t81+1.7730768017841 3174 9 417d-1*t16*t165*t17*t42*t52*t80*t81+8.865384008920708d-2* 3175 : t100*t141*t16*t17*t42*t52*t81+8.865384008920708d-2*t102*t 3176 ; 129*t16*t17*t42*t81+3.5461536035682834d-1*t102*t16*t17*t4 3177 < 6*t51*t80-3.5461536035682834d-1*t16*t169*t17*t42*t51*t80+ 3178 = 3.5461536035682834d-1*t16*t165*t17*t46*t51*t52-1.77307680 3179 > 17841417d-1*t16*t17*t225*t42*t51*t52-1.3298076013381063d- 3180 ? 1*t100*t129*t130*t16*t17*t42*t52-1.7730768017841417d-1*t1 3181 @ 00*t149*t16*t17*t42*t51-1.7730768017841417d-1*t102*t141*t 3182 1 16*t17*t42*t51+7.092307207136567d-1*t16*t169*t17*t44*t46) 3183 2 +t103*t151+t104*t150)*wght+Cmat3(iq,D3_RB_RB_GBB) 3184 Cmat3(iq,D3_RA_GAA_GAA) = (2*t160*t97+2*t161*t96+t14*(1.7730 3185 1 768017841417d-1*t16*t17*t18*t62*t63*t93*t95+3.54615360356 3186 2 82834d-1*t16*t17*t23*t30*t93*t95-3.5461536035682834d-1*t1 3187 3 55*t16*t17*t18*t30*t95-3.5461536035682834d-1*t16*t17*t18* 3188 4 t20*(-1.329807601338106d-1*t17*t18*t62*t63*t93*t94-2.6596 3189 5 15202676212d-1*t17*t23*t30*t93*t94+2.659615202676212d-1*t 3190 6 155*t17*t18*t30*t94+2.659615202676212d-1*t17*t18*t20*(2.8 3191 7 27433388230826d+1*t157*t22*t24*t26*t67*t93-1.0d+0*t155*t2 3192 8 6*t67*t93-1.0d+0*t157*t25*t26*t93-7.073553026306428d-2*t1 3193 9 57*t21*t23*t26*t93+1.413716694115413d+1*t176*t22*t24*t26* 3194 : t67*t68-5.0d-1*t176*t25*t26*t68-3.534291735288533d+1*t122 3195 ; *t173*t22*t24*t26*t68-3.536776513153214d-2*t176*t21*t23*t 3196 < 26*t68+1.9985948912206125d+2*t120*t173*t177*t178*t26*t68- 3197 = 5.0d-1*t176*t26*t62*t67+7.073553026306428d-2*t176*t21*t27 3198 > *t66-7.068583470577066d+0*t173*t178*t22*t24*t26*t62+1.0d+ 3199 ? 0*t122*t173*t26*t62-3.536776513153214d-2*t21*t228*t23*t27 3200 @ +1.0d+0*t176*t18*t25*t26+1.413716694115413d+1*rhoa*t122*t 3201 1 173*t24*t26-3.536776513153214d-2*t19*t21*t229*t23*t26+t22 3202 2 9*t26)+3.5449077018110403d+0*t26*t54*(5.639913617919763d+ 3203 3 0*rhoa*t106*t155*t29*t93-1.8799712059732546d+0*rhoa*t228* 3204 4 t29*t63-1.8799712059732546d+0*t176*t29*t63+2.819956808959 3205 5 8814d+0*rhoa*t106*t176*t29*t62-7.049892022399704d+0*rhoa* 3206 6 t173*t174*t29*t62+2.8199568089598814d+0*t106*t173*t29)+1. 3207 7 002299039429714d+2*t156*t22*t24*t26*t54*t67*t93-1.3298076 3208 8 01338106d-1*t155*t17*t18*t28*t63*t93+2.659615202676212d-1 3209 9 *t158*t17*t18*t30*t93-6.649038006690531d-2*t17*t173*t18*t 3210 : 63*t69+1.329807601338106d-1*t17*t176*t18*t30*t69+5.011495 3211 ; 19714857d+1*t176*t22*t24*t26*t54*t64*t67-1.00229903942971 3212 < 4d+2*t122*t173*t22*t24*t26*t54*t64+7.084834422688148d+2*t 3213 = 120*t173*t177*t178*t26*t54*t64-6.649038006690531d-2*t17*t 3214 > 176*t18*t28*t62*t63+6.649038006690531d-2*t17*t173*t23*t28 3215 ? *t63+1.329807601338106d-1*t17*t179*t18*t30*t62+9.97355701 3216 @ 0035795d-2*t106*t17*t173*t18*t28*t62-1.329807601338106d-1 3217 1 *t17*t176*t23*t28*t30+1.329807601338106d-1*t17*t18*t228*t 3218 2 28*t30-2.659615202676212d-1*t17*t179*t20*t23)+1.773076801 3219 3 7841417d-1*t155*t16*t17*t18*t31*t63*t93-3.546153603568283 3220 4 4d-1*t159*t16*t17*t18*t30*t93+8.865384008920708d-2*t16*t1 3221 5 7*t173*t18*t63*t70-1.7730768017841417d-1*t16*t17*t176*t18 3222 6 *t30*t70+8.865384008920708d-2*t16*t17*t176*t18*t31*t62*t6 3223 7 3-8.865384008920708d-2*t16*t17*t173*t23*t31*t63-1.3298076 3224 8 013381063d-1*t106*t16*t17*t173*t18*t31*t62-1.773076801784 3225 9 1417d-1*t16*t17*t18*t180*t30*t62+1.7730768017841417d-1*t1 3226 : 6*t17*t176*t23*t30*t31-1.7730768017841417d-1*t16*t17*t18* 3227 ; t228*t30*t31+3.5461536035682834d-1*t16*t17*t180*t20*t23)+ 3228 < t32*(3.7221029453964005d+0*t11*t114*t3*t55*t60*t91*t92+2. 3229 = 481401963597601d+0*t11*t3*t55*t56*t61*t92-9.9256078543904 3230 > 01d+0*gammaaa*t107*t108*t153*t3*t61*t92+3.722102945396400 3231 ? 5d+0*t114*t13*t154*t2*t3*t92-1.8610514726982003d+0*t11*t1 3232 @ 54*t3*t55*t61*t91+1.8610514726982003d+0*t107*t108*t121*t3 3233 1 *t60*t61+4.9628039271952007d+0*gammaaa*t11*t227*t3*t4*t55 3234 2 *t61+7.444205890792801d+0*t13*t153*t3*t4*t61+3.7221029453 3235 3 964005d+0*t114*t121*t13*t3*t4*t60-5.583154418094601d+0*t1 3236 4 3*t175*t2*t201*t3*t60+2.4814019635976003d+0*t114*t13*t175 3237 5 *t3*t57-4.9628039271952007d+0*gammaaa*t11*t114*t175*t3*t5 3238 6 5*t56+1.4888411781585603d+1*gammaaa*t10*t193*t195*t227*t3 3239 7 -7.444205890792801d+0*t10*t107*t108*t153*t3)+t181*t72+t18 3240 8 2*t71)*wght+Cmat3(iq,D3_RA_GAA_GAA) 3241 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 3242 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 3243 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 3244 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 3245 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 3246 Cmat3(iq,D3_RB_GAA_GAA) = Cmat3(iq,D3_RB_GAA_GAA) 3247 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 3248 Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB) 3249 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 3250 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 3251 Cmat3(iq,D3_RB_GBB_GBB) = (t53*(3.7221029453964005d+0*t11*t1 3252 1 37*t3*t73*t78*t98*t99+2.481401963597601d+0*t11*t3*t73*t74 3253 2 *t79*t99-9.925607854390401d+0*gammabb*t107*t131*t163*t3*t 3254 3 79*t99+3.7221029453964005d+0*t137*t164*t3*t33*t40*t99-1.8 3255 4 610514726982003d+0*t11*t164*t3*t73*t79*t98+1.861051472698 3256 5 2003d+0*t107*t131*t144*t3*t78*t79+4.9628039271952007d+0*g 3257 6 ammabb*t11*t230*t3*t4*t73*t79+7.444205890792801d+0*t163*t 3258 7 3*t4*t40*t79+3.7221029453964005d+0*t137*t144*t3*t4*t40*t7 3259 8 8-5.583154418094601d+0*t185*t214*t3*t33*t40*t78+2.4814019 3260 9 635976003d+0*t137*t185*t3*t40*t75-4.9628039271952007d+0*g 3261 : ammabb*t11*t137*t185*t3*t73*t74+1.4888411781585603d+1*gam 3262 ; mabb*t193*t208*t230*t3*t38-7.444205890792801d+0*t107*t131 3263 < *t163*t3*t38)+t190*t90+t191*t89+t41*(8.865384008920708d-2 3264 = *t16*t17*t183*t42*t81*t88-1.7730768017841417d-1*t16*t17*t 3265 > 186*t42*t51*t88-3.5461536035682834d-1*t16*t17*t42*t44*(-6 3266 ? .649038006690531d-2*t17*t183*t42*t81*t87+1.32980760133810 3267 @ 6d-1*t17*t186*t42*t51*t87+2.659615202676212d-1*t17*t42*t4 3268 1 4*(1.413716694115413d+1*t186*t24*t45*t48*t85*t86-5.0d-1*t 3269 2 186*t47*t48*t86-3.536776513153214d-2*t186*t21*t46*t48*t86 3270 3 -3.534291735288533d+1*t145*t183*t24*t45*t48*t86+1.9985948 3271 4 912206125d+2*t143*t177*t183*t187*t48*t86-5.0d-1*t186*t48* 3272 5 t80*t85+2.827433388230826d+1*t100*t167*t24*t45*t48*t85-1. 3273 6 0d+0*t100*t165*t48*t85+7.073553026306428d-2*t186*t21*t49* 3274 7 t84-7.068583470577066d+0*t183*t187*t24*t45*t48*t80+1.0d+0 3275 8 *t145*t183*t48*t80-3.536776513153214d-2*t21*t231*t46*t49+ 3276 9 1.0d+0*t186*t42*t47*t48-1.0d+0*t100*t167*t47*t48-3.536776 3277 : 513153214d-2*t21*t232*t43*t46*t48-7.073553026306428d-2*t1 3278 ; 00*t167*t21*t46*t48+1.413716694115413d+1*rhob*t145*t183*t 3279 < 24*t48+t232*t48)+5.01149519714857d+1*t186*t24*t45*t48*t54 3280 = *t82*t85+1.002299039429714d+2*t100*t166*t24*t45*t48*t54*t 3281 > 85-1.002299039429714d+2*t145*t183*t24*t45*t48*t54*t82+7.0 3282 ? 84834422688148d+2*t143*t177*t183*t187*t48*t54*t82+3.54490 3283 @ 77018110403d+0*t48*t54*(-1.8799712059732546d+0*rhob*t231* 3284 1 t29*t81-1.8799712059732546d+0*t186*t29*t81+2.819956808959 3285 2 8814d+0*rhob*t130*t186*t29*t80-7.049892022399704d+0*rhob* 3286 3 t183*t184*t29*t80+2.8199568089598814d+0*t130*t183*t29+5.6 3287 4 39913617919763d+0*rhob*t100*t130*t165*t29)-6.649038006690 3288 5 531d-2*t17*t186*t42*t50*t80*t81-1.329807601338106d-1*t100 3289 6 *t101*t17*t42*t80*t81+6.649038006690531d-2*t17*t183*t46*t 3290 7 50*t81-1.329807601338106d-1*t100*t165*t17*t42*t50*t81+1.3 3291 8 29807601338106d-1*t17*t188*t42*t51*t80+9.973557010035795d 3292 9 -2*t130*t17*t183*t42*t50*t80-1.329807601338106d-1*t17*t18 3293 : 6*t46*t50*t51+1.329807601338106d-1*t17*t231*t42*t50*t51-2 3294 ; .659615202676212d-1*t100*t101*t17*t46*t51+2.6596152026762 3295 < 12d-1*t100*t168*t17*t42*t51+2.659615202676212d-1*t101*t16 3296 = 5*t17*t42*t51-2.659615202676212d-1*t17*t188*t44*t46)+8.86 3297 > 5384008920708d-2*t16*t17*t186*t42*t52*t80*t81+1.773076801 3298 ? 7841417d-1*t100*t102*t16*t17*t42*t80*t81-8.86538400892070 3299 @ 8d-2*t16*t17*t183*t46*t52*t81+1.7730768017841417d-1*t100* 3300 1 t16*t165*t17*t42*t52*t81-1.3298076013381063d-1*t130*t16*t 3301 2 17*t183*t42*t52*t80-1.7730768017841417d-1*t16*t17*t189*t4 3302 3 2*t51*t80+1.7730768017841417d-1*t16*t17*t186*t46*t51*t52- 3303 4 1.7730768017841417d-1*t16*t17*t231*t42*t51*t52+3.54615360 3304 5 35682834d-1*t100*t102*t16*t17*t46*t51-3.5461536035682834d 3305 6 -1*t100*t16*t169*t17*t42*t51-3.5461536035682834d-1*t102*t 3306 7 16*t165*t17*t42*t51+3.5461536035682834d-1*t16*t17*t189*t4 3307 8 4*t46)+2*t103*t171+2*t104*t170)*wght+Cmat3(iq,D3_RB_GBB_G 3308 9 BB) 3309 Cmat3(iq,D3_GAA_GAA_GAA) = (3*t181*t97+3*t182*t96+t14*(2.659 3310 1 6152026762127d-1*t16*t17*t173*t18*t63*t95-5.3192304053524 3311 2 25d-1*t16*t17*t176*t18*t30*t95-3.5461536035682834d-1*t16* 3312 3 t17*t18*t20*(-1.994711402007159d-1*t17*t173*t18*t63*t94+3 3313 4 .989422804014318d-1*t17*t176*t18*t30*t94+2.65961520267621 3314 5 2d-1*t17*t18*t20*(-1.0602875205865599d+2*t122*t176*t22*t2 3315 6 4*t26*t93+5.995784673661838d+2*t120*t176*t177*t178*t26*t9 3316 7 3+1.413716694115413d+1*t22*t237*t24*t26*t67-3.53677651315 3317 8 3214d-2*t21*t23*t237*t27-5.0d-1*t237*t25*t26+1.0602875205 3318 9 865599d+2*t178*t22*t234*t24*t26+2.8254469624923584d+3*t10 3319 : 9*t234*t238*t26/t19**6-1.2990866792933983d+3*t120*t177*t2 3320 ; 34*t26/t19**5)-2.826440000853771d+2*t172*t174*t176*t26*t5 3321 < 4*t65*t93-1.994711402007159d-1*t17*t176*t18*t28*t63*t93+2 3322 = .998945983256911d+1*rhoa*t106*t176*t26*t29*t54*t93+3.9894 3323 > 22804014318d-1*t17*t179*t18*t30*t93+4.710733334756285d+2* 3324 ? t172*t234*t26*t54*t65/t20**9-6.66432440723758d+0*rhoa*t23 3325 @ 7*t26*t29*t54*t63-2.4991216527140922d+1*rhoa*t174*t234*t2 3326 1 6*t29*t54-1.3319284713741864d+3*t152*t233*t234*t26*t54/t2 3327 2 0**11+1.329807601338106d-1*t17*t18*t237*t28*t30+9.9735570 3328 3 10035795d-2*t106*t17*t18*t234*t28)+2.6596152026762127d-1* 3329 4 t16*t17*t176*t18*t31*t63*t93-5.319230405352425d-1*t16*t17 3330 5 *t18*t180*t30*t93-1.7730768017841417d-1*t16*t17*t18*t237* 3331 6 t30*t31-1.3298076013381063d-1*t106*t16*t17*t18*t234*t31)+ 3332 7 t32*(5.583154418094601d+0*t107*t108*t121*t3*t61*t92+1.116 3333 8 6308836189202d+1*t114*t121*t13*t3*t4*t92+5.58315441809460 3334 9 1d+0*t11*t114*t175*t3*t55*t91-5.583154418094601d+0*t11*t2 3335 : 35*t3*t4*t55*t61-5.583154418094601d+0*t13*t2*t201*t236*t3 3336 ; -5.583154418094601d+0*t10*t193*t195*t235*t3))*wght+Cmat3( 3337 < iq,D3_GAA_GAA_GAA) 3338 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 3339 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 3340 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 3341 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 3342 Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB) 3343 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 3344 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 3345 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 3346 Cmat3(iq,D3_GBB_GBB_GBB) = (t53*(5.583154418094601d+0*t107*t 3347 1 131*t144*t3*t79*t99+1.1166308836189202d+1*t137*t144*t3*t4 3348 2 *t40*t99+5.583154418094601d+0*t11*t137*t185*t3*t73*t98-5. 3349 3 583154418094601d+0*t11*t240*t3*t4*t73*t79-5.5831544180946 3350 4 01d+0*t214*t241*t3*t33*t40-5.583154418094601d+0*t193*t208 3351 5 *t240*t3*t38)+t41*(-3.5461536035682834d-1*t16*t17*t42*t44 3352 6 *(2.659615202676212d-1*t17*t42*t44*(1.413716694115413d+1* 3353 7 t24*t242*t45*t48*t85-3.536776513153214d-2*t21*t242*t46*t4 3354 8 9-5.0d-1*t242*t47*t48+1.0602875205865599d+2*t187*t239*t24 3355 9 *t45*t48-1.0602875205865599d+2*t100*t145*t186*t24*t45*t48 3356 : -1.2990866792933983d+3*t143*t177*t239*t48/t43**5+2.825446 3357 ; 9624923584d+3*t132*t238*t239*t48/t43**6+5.995784673661838 3358 < d+2*t100*t143*t177*t186*t187*t48)+4.710733334756285d+2*t1 3359 = 72*t239*t48*t54*t83/t44**9-2.826440000853771d+2*t100*t172 3360 > *t184*t186*t48*t54*t83-6.66432440723758d+0*rhob*t242*t29* 3361 ? t48*t54*t81-1.994711402007159d-1*t100*t17*t186*t42*t50*t8 3362 @ 1-1.994711402007159d-1*t101*t17*t183*t42*t81-1.3319284713 3363 1 741864d+3*t162*t233*t239*t48*t54/t44**11-2.49912165271409 3364 2 22d+1*rhob*t184*t239*t29*t48*t54+2.998945983256911d+1*rho 3365 3 b*t100*t130*t186*t29*t48*t54+1.329807601338106d-1*t17*t24 3366 4 2*t42*t50*t51+3.989422804014318d-1*t100*t17*t188*t42*t51+ 3367 5 3.989422804014318d-1*t101*t17*t186*t42*t51+9.973557010035 3368 6 795d-2*t130*t17*t239*t42*t50)+2.6596152026762127d-1*t100* 3369 7 t16*t17*t186*t42*t52*t81+2.6596152026762127d-1*t102*t16*t 3370 8 17*t183*t42*t81-1.7730768017841417d-1*t16*t17*t242*t42*t5 3371 9 1*t52-1.3298076013381063d-1*t130*t16*t17*t239*t42*t52-5.3 3372 : 19230405352425d-1*t100*t16*t17*t189*t42*t51-5.31923040535 3373 ; 2425d-1*t102*t16*t17*t186*t42*t51)+3*t103*t191+3*t104*t19 3374 < 0)*wght+Cmat3(iq,D3_GBB_GBB_GBB) 3375 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 3376 t1 = param(1) 3377 t2 = rhoa**1.3333333333333333d+0 3378 t3 = -t1+param(2)+1.0d+0 3379 t4 = param(4) 3380 t5 = gammaaa**2 3381 t6 = 1/rhoa**5.333333333333333d+0 3382 t7 = param(3) 3383 t8 = 1/rhoa**2.6666666666666666d+0 3384 t9 = gammaaa*t7*t8+t4*t5*t6+1.0d+0 3385 t10 = 1.0d+0-1.0d+0/t9 3386 t11 = param(5) 3387 t12 = gammaaa*t11*t8+1.0d+0 3388 t13 = 1.0d+0-1.0d+0/t12 3389 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 3390 1 -1*t1*t2 3391 t15 = param(7) 3392 t16 = param(8) 3393 t17 = 1/rhoa 3394 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 3395 1 1*t1*t2 3396 t19 = t18**5.0d-1 3397 t20 = t16**2 3398 t21 = rhoa**2 3399 t22 = 1/t21 3400 t23 = 1/t20 3401 t24 = 1/t18 3402 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 3403 t26 = t25-1.0d+0 3404 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 3405 t28 = 1/t16 3406 t29 = 1/t19 3407 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 3408 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 3409 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 3410 1 0d+0 3411 t32 = 5.641895835477563d-1 3412 t33 = 1/t12**2 3413 t34 = 1/rhoa**2.3333333333333334d+0 3414 t35 = rhoa**3.333333333333333d-1 3415 t36 = 1/rhoa**6.333333333333333d+0 3416 t37 = 1/rhoa**3.6666666666666664d+0 3417 t38 = -2.6666666666666666d+0*gammaaa*t37*t7-5.33333333333333 3418 1 3d+0*t36*t4*t5 3419 t39 = 1/t9**2 3420 t40 = 9.305257363491002d-1*t13*t2*t3*t38*t39+1.2407009817988 3421 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 3422 2 019635976003d+0*gammaaa*t10*t11*t3*t33*t34 3423 t41 = 1/t19**3 3424 t42 = 3.759942411946509d+0*t28*t29-1.8799712059732546d+0*rho 3425 1 a*t28*t40*t41 3426 t43 = rhoa**3 3427 t44 = 1/t43 3428 t45 = 1/t18**2 3429 t46 = 1.413716694115413d+1*t21*t23*t40*t45-2.827433388230826 3430 1 d+1*rhoa*t23*t24 3431 t47 = -3.536776513153214d-2*t18*t20*t22*t25*t46+t25*t46+7.07 3432 1 3553026306428d-2*t18*t20*t26*t44-3.536776513153214d-2*t20 3433 2 *t22*t26*t40 3434 t48 = 2.659615202676212d-1*t16*t17*t19*t47+3.544907701811040 3435 1 3d+0*t25*t32*t42+1.329807601338106d-1*t16*t17*t27*t29*t40 3436 2 -2.659615202676212d-1*t16*t19*t22*t27 3437 t49 = -3.5461536035682834d-1*t15*t16*t17*t19*t48-1.773076801 3438 1 7841417d-1*t15*t16*t17*t29*t30*t40+3.5461536035682834d-1* 3439 2 t15*t16*t19*t22*t30 3440 t50 = -9.305257363491002d-1*t13*t2*t3*t38*t39-1.240700981798 3441 1 8002d+0*t10*t13*t3*t35-1.2407009817988002d+0*t1*t35+2.481 3442 2 4019635976003d+0*gammaaa*t10*t11*t3*t33*t34 3443 t51 = 1/t2 3444 t52 = t7*t8+2*gammaaa*t4*t6 3445 t53 = 9.305257363491002d-1*t13*t2*t3*t39*t52+9.3052573634910 3446 1 02d-1*t10*t11*t3*t33*t51 3447 t54 = 1.413716694115413d+1*t21*t23*t25*t45*t53-3.53677651315 3448 1 3214d-2*t20*t22*t26*t53-5.0d-1*t24*t25*t53 3449 t55 = 2.659615202676212d-1*t16*t17*t19*t54-6.66432440723758d 3450 1 +0*rhoa*t25*t28*t32*t41*t53+1.329807601338106d-1*t16*t17* 3451 2 t27*t29*t53 3452 t56 = -3.5461536035682834d-1*t15*t16*t17*t19*t55-1.773076801 3453 1 7841417d-1*t15*t16*t17*t29*t30*t53 3454 t57 = -9.305257363491002d-1*t13*t2*t3*t39*t52-9.305257363491 3455 1 002d-1*t10*t11*t3*t33*t51 3456 t58 = t40**2 3457 t59 = 1/t19**5 3458 t60 = t11**2 3459 t61 = 1/t12**3 3460 t62 = rhoa**6 3461 t63 = 1/t62 3462 t64 = 1/rhoa**3.3333333333333337d+0 3463 t65 = 1/rhoa**6.666666666666666d-1 3464 t66 = t38**2 3465 t67 = 1/t9**3 3466 t68 = 1/rhoa**7.333333333333333d+0 3467 t69 = 1/rhoa**4.666666666666667d+0 3468 t70 = 9.777777777777779d+0*gammaaa*t69*t7+3.377777777777778d 3469 1 +1*t4*t5*t68 3470 t71 = 9.305257363491002d-1*t13*t2*t3*t39*t70-1.8610514726982 3471 1 003d+0*t13*t2*t3*t66*t67+4.135669939329334d-1*t10*t13*t3* 3472 2 t65+4.135669939329334d-1*t1*t65+2.481401963597601d+0*gamm 3473 3 aaa*t10*t11*t3*t33*t64-1.3234143805853868d+1*t10*t3*t5*t6 3474 4 0*t61*t63+2.4814019635976003d+0*t13*t3*t35*t38*t39-4.9628 3475 5 039271952007d+0*gammaaa*t11*t3*t33*t34*t38*t39 3476 t72 = -1.8799712059732546d+0*rhoa*t28*t41*t71+2.819956808959 3477 1 8814d+0*rhoa*t28*t58*t59-3.759942411946509d+0*t28*t40*t41 3478 t73 = rhoa**4 3479 t74 = 1/t73 3480 t75 = 1/t18**3 3481 t76 = -2.827433388230826d+1*t21*t23*t58*t75+1.41371669411541 3482 1 3d+1*t21*t23*t45*t71+5.654866776461652d+1*rhoa*t23*t40*t4 3483 2 5-2.827433388230826d+1*t23*t24 3484 t77 = t46**2 3485 t78 = -3.536776513153214d-2*t18*t20*t22*t25*t77+t25*t77-3.53 3486 1 6776513153214d-2*t18*t20*t22*t25*t76+t25*t76-2.1220659078 3487 2 919285d-1*t18*t20*t26*t74-3.536776513153214d-2*t20*t22*t2 3488 3 6*t71+1.4147106052612857d-1*t18*t20*t25*t44*t46-7.0735530 3489 4 26306428d-2*t20*t22*t25*t40*t46+1.4147106052612857d-1*t20 3490 5 *t26*t40*t44 3491 t79 = 2.659615202676212d-1*t16*t17*t19*t78+3.544907701811040 3492 1 3d+0*t25*t32*t72+1.329807601338106d-1*t16*t17*t27*t29*t71 3493 2 -6.649038006690531d-2*t16*t17*t27*t41*t58+2.6596152026762 3494 3 12d-1*t16*t17*t29*t40*t47-5.319230405352424d-1*t16*t19*t2 3495 4 2*t47+3.5449077018110403d+0*t25*t32*t42*t46+5.31923040535 3496 5 2424d-1*t16*t19*t27*t44-2.659615202676212d-1*t16*t22*t27* 3497 6 t29*t40 3498 t80 = -3.5461536035682834d-1*t15*t16*t17*t19*t79-1.773076801 3499 1 7841417d-1*t15*t16*t17*t29*t30*t71+8.865384008920708d-2*t 3500 2 15*t16*t17*t30*t41*t58-3.5461536035682834d-1*t15*t16*t17* 3501 3 t29*t40*t48+7.092307207136567d-1*t15*t16*t19*t22*t48-7.09 3502 4 2307207136567d-1*t15*t16*t19*t30*t44+3.5461536035682834d- 3503 5 1*t15*t16*t22*t29*t30*t40 3504 t81 = -9.305257363491002d-1*t13*t2*t3*t39*t70+1.861051472698 3505 1 2003d+0*t13*t2*t3*t66*t67-4.135669939329334d-1*t10*t13*t3 3506 2 *t65-4.135669939329334d-1*t1*t65-2.481401963597601d+0*gam 3507 3 maaa*t10*t11*t3*t33*t64+1.3234143805853868d+1*t10*t3*t5*t 3508 4 60*t61*t63-2.4814019635976003d+0*t13*t3*t35*t38*t39+4.962 3509 5 8039271952007d+0*gammaaa*t11*t3*t33*t34*t38*t39 3510 t82 = rhoa**5 3511 t83 = 1/t82 3512 t84 = -2.6666666666666666d+0*t37*t7-1.0666666666666666d+1*ga 3513 1 mmaaa*t36*t4 3514 t85 = 9.305257363491002d-1*t13*t2*t3*t39*t84+4.9628039271952 3515 1 007d+0*gammaaa*t10*t3*t60*t61*t83-1.8610514726982003d+0*t 3516 2 13*t2*t3*t38*t52*t67+1.2407009817988002d+0*t13*t3*t35*t39 3517 3 *t52-2.4814019635976003d+0*gammaaa*t11*t3*t33*t34*t39*t52 3518 4 +9.305257363491002d-1*t11*t3*t33*t38*t39*t51-1.2407009817 3519 5 988002d+0*t10*t11*t3*t33*t34 3520 t86 = -1.8799712059732546d+0*rhoa*t28*t41*t85+2.819956808959 3521 1 8814d+0*rhoa*t28*t40*t53*t59-1.8799712059732546d+0*t28*t4 3522 2 1*t53 3523 t87 = 1.413716694115413d+1*t21*t23*t45*t85-2.827433388230826 3524 1 d+1*t21*t23*t40*t53*t75+2.827433388230826d+1*rhoa*t23*t45 3525 2 *t53 3526 t88 = -3.536776513153214d-2*t18*t20*t22*t25*t87+t25*t87-3.53 3527 1 6776513153214d-2*t20*t22*t26*t85+1.413716694115413d+1*t21 3528 2 *t23*t25*t45*t46*t53-5.0d-1*t24*t25*t46*t53-3.53677651315 3529 3 3214d-2*t20*t22*t25*t46*t53-5.0d-1*t25*t40*t45*t53+7.0735 3530 4 53026306428d-2*t20*t26*t44*t53+1.0d+0*t17*t24*t25*t53 3531 t89 = 2.659615202676212d-1*t16*t17*t19*t88+3.544907701811040 3532 1 3d+0*t25*t32*t86+1.329807601338106d-1*t16*t17*t27*t29*t85 3533 2 +1.329807601338106d-1*t16*t17*t29*t40*t54-2.6596152026762 3534 3 12d-1*t16*t19*t22*t54+1.329807601338106d-1*t16*t17*t29*t4 3535 4 7*t53+5.01149519714857d+1*t21*t23*t25*t32*t42*t45*t53-6.6 3536 5 49038006690531d-2*t16*t17*t27*t40*t41*t53-1.3298076013381 3537 6 06d-1*t16*t22*t27*t29*t53 3538 t90 = -3.5461536035682834d-1*t15*t16*t17*t19*t89-1.773076801 3539 1 7841417d-1*t15*t16*t17*t29*t30*t85-1.7730768017841417d-1* 3540 2 t15*t16*t17*t29*t40*t55+3.5461536035682834d-1*t15*t16*t19 3541 3 *t22*t55-1.7730768017841417d-1*t15*t16*t17*t29*t48*t53+8. 3542 4 865384008920708d-2*t15*t16*t17*t30*t40*t41*t53+1.77307680 3543 5 17841417d-1*t15*t16*t22*t29*t30*t53 3544 t91 = -9.305257363491002d-1*t13*t2*t3*t39*t84-4.962803927195 3545 1 2007d+0*gammaaa*t10*t3*t60*t61*t83+1.8610514726982003d+0* 3546 2 t13*t2*t3*t38*t52*t67-1.2407009817988002d+0*t13*t3*t35*t3 3547 3 9*t52+2.4814019635976003d+0*gammaaa*t11*t3*t33*t34*t39*t5 3548 4 2-9.305257363491002d-1*t11*t3*t33*t38*t39*t51+1.240700981 3549 5 7988002d+0*t10*t11*t3*t33*t34 3550 t92 = 1/t16**3 3551 t93 = t53**2 3552 t94 = 1/t19**7 3553 t95 = t52**2 3554 t96 = -1.8610514726982003d+0*t13*t2*t3*t67*t95-1.86105147269 3555 1 82003d+0*t10*t3*t60*t61*t74+1.8610514726982003d+0*t13*t3* 3556 2 t39*t4*t74+1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 3557 t97 = 1/t16**4 3558 t98 = 1/t18**4 3559 t99 = 1.9985948912206125d+2*t25*t73*t93*t97*t98+1.4137166941 3560 1 15413d+1*t21*t23*t25*t45*t96-3.536776513153214d-2*t20*t22 3561 2 *t26*t96-5.0d-1*t24*t25*t96-3.534291735288533d+1*t21*t23* 3562 3 t25*t75*t93 3563 t100 = 2.659615202676212d-1*t16*t17*t19*t99-6.66432440723758 3564 1 d+0*rhoa*t25*t28*t32*t41*t96+1.329807601338106d-1*t16*t17 3565 2 *t27*t29*t96-9.421466669512572d+1*t25*t32*t43*t92*t93*t94 3566 3 +9.996486610856369d+0*rhoa*t25*t28*t32*t59*t93-6.64903800 3567 4 6690531d-2*t16*t17*t27*t41*t93+2.659615202676212d-1*t16*t 3568 5 17*t29*t53*t54 3569 t101 = -1.7730768017841417d-1*t15*t16*t17*t29*t30*t96+8.8653 3570 1 84008920708d-2*t15*t16*t17*t30*t41*t93-3.5461536035682834 3571 2 d-1*t15*t16*t17*t29*t53*t55-3.5461536035682834d-1*t100*t1 3572 3 5*t16*t17*t19 3573 t102 = 1.8610514726982003d+0*t13*t2*t3*t67*t95+1.86105147269 3574 1 82003d+0*t10*t3*t60*t61*t74-1.8610514726982003d+0*t13*t3* 3575 2 t39*t4*t74-1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 3576 t103 = t40**3 3577 t104 = t11**3 3578 t105 = gammaaa**3 3579 t106 = 1/t12**4 3580 t107 = 1/rhoa**9.666666666666666d+0 3581 t108 = 1/rhoa**7 3582 t109 = 1/rhoa**4.333333333333333d+0 3583 t110 = 1/rhoa**1.6666666666666669d+0 3584 t111 = t38**3 3585 t112 = 1/t9**4 3586 t113 = -4.5629629629629626d+1*gammaaa*t7/rhoa**5.66666666666 3587 1 6667d+0-2.477037037037037d+2*t4*t5/rhoa**8.33333333333333 3588 2 4d+0 3589 t114 = -5.583154418094601d+0*t13*t2*t3*t38*t67*t70+3.7221029 3590 1 453964005d+0*t13*t3*t35*t39*t70-7.444205890792801d+0*gamm 3591 2 aaa*t11*t3*t33*t34*t39*t70-7.444205890792801d+0*t13*t3*t3 3592 3 5*t66*t67+1.4888411781585603d+1*gammaaa*t11*t3*t33*t34*t6 3593 4 6*t67+1.2407009817988002d+0*t13*t3*t38*t39*t65+7.44420589 3594 5 0792801d+0*gammaaa*t11*t3*t33*t38*t39*t64-3.9702431417561 3595 6 607d+1*t3*t38*t39*t5*t60*t61*t63+9.263900664097708d+1*t10 3596 7 *t108*t3*t5*t60*t61+9.305257363491002d-1*t113*t13*t2*t3*t 3597 8 39-9.374185195813161d+0*gammaaa*t10*t109*t11*t3*t33+5.583 3598 9 154418094601d+0*t111*t112*t13*t2*t3-2.7571132928862224d-1 3599 : *t10*t110*t13*t3-1.0587315044683095d+2*t10*t104*t105*t106 3600 ; *t107*t3-2.7571132928862224d-1*t1*t110 3601 t115 = 8.482300164692478d+1*t103*t21*t23*t98-8.4823001646924 3602 1 78d+1*t21*t23*t40*t71*t75-1.6964600329384957d+2*rhoa*t23* 3603 2 t58*t75+8.482300164692478d+1*rhoa*t23*t45*t71+8.482300164 3604 3 692478d+1*t23*t40*t45+1.413716694115413d+1*t114*t21*t23*t 3605 4 45 3606 t116 = t46**3 3607 t117 = 1/rhoa**8.666666666666666d+0 3608 t118 = 9.777777777777779d+0*t69*t7+6.755555555555556d+1*gamm 3609 1 aaa*t4*t68 3610 t119 = -3.7221029453964005d+0*t13*t2*t3*t38*t67*t84+2.481401 3611 1 9635976003d+0*t13*t3*t35*t39*t84-4.9628039271952007d+0*ga 3612 2 mmaaa*t11*t3*t33*t34*t39*t84+9.925607854390401d+0*gammaaa 3613 3 *t3*t38*t39*t60*t61*t83-1.8610514726982003d+0*t13*t2*t3*t 3614 4 52*t67*t70+9.305257363491002d-1*t11*t3*t33*t39*t51*t70-1. 3615 5 8610514726982003d+0*t11*t3*t33*t51*t66*t67-4.962803927195 3616 6 2007d+0*t13*t3*t35*t38*t52*t67+9.925607854390401d+0*gamma 3617 7 aa*t11*t3*t33*t34*t38*t52*t67+5.583154418094601d+0*t112*t 3618 8 13*t2*t3*t52*t66+4.135669939329334d-1*t13*t3*t39*t52*t65+ 3619 9 2.481401963597601d+0*gammaaa*t11*t3*t33*t39*t52*t64+2.894 3620 : 9689575305343d+0*t10*t11*t3*t33*t64-1.3234143805853868d+1 3621 ; *t3*t39*t5*t52*t60*t61*t63-3.143109153890294d+1*gammaaa*t 3622 < 10*t3*t60*t61*t63+3.9702431417561607d+1*t10*t104*t106*t11 3623 = 7*t3*t5-2.4814019635976003d+0*t11*t3*t33*t34*t38*t39+9.30 3624 > 5257363491002d-1*t118*t13*t2*t3*t39 3625 t120 = 8.482300164692478d+1*t21*t23*t53*t58*t98-5.6548667764 3626 1 61652d+1*t21*t23*t40*t75*t85+5.654866776461652d+1*rhoa*t2 3627 2 3*t45*t85-2.827433388230826d+1*t21*t23*t53*t71*t75-1.1309 3628 3 733552923305d+2*rhoa*t23*t40*t53*t75+2.827433388230826d+1 3629 4 *t23*t45*t53+1.413716694115413d+1*t119*t21*t23*t45 3630 t121 = 1/rhoa**7.666666666666667d+0 3631 t122 = -2.4814019635976003d+0*t13*t3*t35*t67*t95+4.962803927 3632 1 1952007d+0*gammaaa*t11*t3*t33*t34*t67*t95+5.5831544180946 3633 2 01d+0*t112*t13*t2*t3*t38*t95-3.7221029453964005d+0*t13*t2 3634 3 *t3*t52*t67*t84+1.8610514726982003d+0*t11*t3*t33*t39*t51* 3635 4 t84+9.925607854390401d+0*gammaaa*t3*t39*t52*t60*t61*t83+7 3636 5 .444205890792801d+0*t10*t3*t60*t61*t83-7.444205890792801d 3637 6 +0*t13*t3*t39*t4*t83-3.7221029453964005d+0*t13*t3*t38*t4* 3638 7 t67*t74-1.8610514726982003d+0*t3*t38*t39*t60*t61*t74-3.72 3639 8 21029453964005d+0*t11*t3*t33*t38*t51*t52*t67-2.4814019635 3640 9 97601d+0*t11*t3*t33*t34*t39*t52-4.9628039271952007d+0*gam 3641 : maaa*t11*t121*t3*t33*t39*t4-1.4888411781585603d+1*gammaaa 3642 ; *t10*t104*t106*t121*t3 3643 t123 = 8.482300164692478d+1*t21*t23*t40*t93*t98-2.8274333882 3644 1 30826d+1*t21*t23*t40*t75*t96+2.827433388230826d+1*rhoa*t2 3645 2 3*t45*t96-5.654866776461652d+1*rhoa*t23*t75*t93-5.6548667 3646 3 76461652d+1*t21*t23*t53*t75*t85+1.413716694115413d+1*t122 3647 4 *t21*t23*t45 3648 t124 = t53**3 3649 t125 = 1/rhoa**6.666666666666667d+0 3650 t126 = t52**3 3651 t127 = -5.583154418094601d+0*t11*t3*t33*t51*t67*t95-1.116630 3652 1 8836189202d+1*t13*t3*t4*t52*t67*t74-5.583154418094601d+0* 3653 2 t3*t39*t52*t60*t61*t74+5.583154418094601d+0*t11*t125*t3*t 3654 3 33*t39*t4+5.583154418094601d+0*t112*t126*t13*t2*t3+5.5831 3655 4 54418094601d+0*t10*t104*t106*t125*t3 3656 fnc(iq) = t14*t31*wght+fnc(iq) 3657 Amat(iq,D1_RA) = t31*t50*wght+t14*t49*wght+Amat(iq,D1_RA) 3658 Cmat(iq,D1_GAA) = t31*t57*wght+t14*t56*wght+Cmat(iq,D1_GAA) 3659 Amat2(iq,D2_RA_RA) = t31*t81*wght+t14*t80*wght+2*t49*t50*wgh 3660 1 t+Amat2(iq,D2_RA_RA) 3661 Cmat2(iq,D2_RA_GAA) = t31*t91*wght+t14*t90*wght+t49*t57*wght 3662 1 +t50*t56*wght+Cmat2(iq,D2_RA_GAA) 3663 Cmat2(iq,D2_GAA_GAA) = 2*t56*t57*wght+t102*t31*wght+t101*t14 3664 1 *wght+Cmat2(iq,D2_GAA_GAA) 3665 Amat3(iq,D3_RA_RA_RA) = t14*(-3.5461536035682834d-1*t15*t16* 3666 1 t17*t19*(3.5449077018110403d+0*t25*t32*(-7.04989202239970 3667 2 4d+0*rhoa*t103*t28*t94+8.459870426879645d+0*rhoa*t28*t40* 3668 3 t59*t71-5.639913617919763d+0*t28*t41*t71+8.45987042687964 3669 4 5d+0*t28*t58*t59-1.8799712059732546d+0*rhoa*t114*t28*t41) 3670 5 +2.659615202676212d-1*t16*t17*t19*(8.488263631567714d-1*t 3671 6 18*t20*t26*t83+2.1220659078919285d-1*t18*t20*t25*t44*t77- 3672 7 1.0610329539459643d-1*t20*t22*t25*t40*t77-1.0610329539459 3673 8 643d-1*t18*t20*t22*t25*t46*t76+3*t25*t46*t76+2.1220659078 3674 9 919285d-1*t18*t20*t25*t44*t76-1.0610329539459643d-1*t20*t 3675 : 22*t25*t40*t76-6.366197723675786d-1*t18*t20*t25*t46*t74-6 3676 ; .366197723675786d-1*t20*t26*t40*t74-1.0610329539459643d-1 3677 < *t20*t22*t25*t46*t71+2.1220659078919285d-1*t20*t26*t44*t7 3678 = 1+4.244131815783857d-1*t20*t25*t40*t44*t46-3.536776513153 3679 > 214d-2*t114*t20*t22*t26-3.536776513153214d-2*t116*t18*t20 3680 ? *t22*t25-3.536776513153214d-2*t115*t18*t20*t22*t25+t116*t 3681 @ 25+t115*t25)+3.989422804014318d-1*t16*t17*t29*t40*t78-7.9 3682 1 78845608028636d-1*t16*t19*t22*t78+3.5449077018110403d+0*t 3683 2 25*t32*t42*t77+3.5449077018110403d+0*t25*t32*t42*t76-1.59 3684 3 57691216057274d+0*t16*t19*t27*t74+7.089815403622081d+0*t2 3685 4 5*t32*t46*t72+3.989422804014318d-1*t16*t17*t29*t47*t71-1. 3686 5 994711402007159d-1*t16*t17*t27*t40*t41*t71-3.989422804014 3687 6 318d-1*t16*t22*t27*t29*t71+9.973557010035795d-2*t103*t16* 3688 7 t17*t27*t59-1.994711402007159d-1*t16*t17*t41*t47*t58+1.99 3689 8 4711402007159d-1*t16*t22*t27*t41*t58+1.5957691216057274d+ 3690 9 0*t16*t19*t44*t47-7.978845608028636d-1*t16*t22*t29*t40*t4 3691 : 7+7.978845608028636d-1*t16*t27*t29*t40*t44+1.329807601338 3692 ; 106d-1*t114*t16*t17*t27*t29)-5.319230405352425d-1*t15*t16 3693 < *t17*t29*t40*t79+1.063846081070485d+0*t15*t16*t19*t22*t79 3694 = +2.12769216214097d+0*t15*t16*t19*t30*t74-5.31923040535242 3695 > 5d-1*t15*t16*t17*t29*t48*t71+2.6596152026762127d-1*t15*t1 3696 ? 6*t17*t30*t40*t41*t71+5.319230405352425d-1*t15*t16*t22*t2 3697 @ 9*t30*t71-1.3298076013381063d-1*t103*t15*t16*t17*t30*t59+ 3698 1 2.6596152026762127d-1*t15*t16*t17*t41*t48*t58-2.659615202 3699 2 6762127d-1*t15*t16*t22*t30*t41*t58-2.12769216214097d+0*t1 3700 3 5*t16*t19*t44*t48+1.063846081070485d+0*t15*t16*t22*t29*t4 3701 4 0*t48-1.063846081070485d+0*t15*t16*t29*t30*t40*t44-1.7730 3702 5 768017841417d-1*t114*t15*t16*t17*t29*t30)*wght+3*t49*t81* 3703 6 wght+3*t50*t80*wght+t31*(5.583154418094601d+0*t13*t2*t3*t 3704 7 38*t67*t70-3.7221029453964005d+0*t13*t3*t35*t39*t70+7.444 3705 8 205890792801d+0*gammaaa*t11*t3*t33*t34*t39*t70+7.44420589 3706 9 0792801d+0*t13*t3*t35*t66*t67-1.4888411781585603d+1*gamma 3707 : aa*t11*t3*t33*t34*t66*t67-1.2407009817988002d+0*t13*t3*t3 3708 ; 8*t39*t65-7.444205890792801d+0*gammaaa*t11*t3*t33*t38*t39 3709 < *t64+3.9702431417561607d+1*t3*t38*t39*t5*t60*t61*t63-9.26 3710 = 3900664097708d+1*t10*t108*t3*t5*t60*t61-9.305257363491002 3711 > d-1*t113*t13*t2*t3*t39+9.374185195813161d+0*gammaaa*t10*t 3712 ? 109*t11*t3*t33-5.583154418094601d+0*t111*t112*t13*t2*t3+2 3713 @ .7571132928862224d-1*t10*t110*t13*t3+1.0587315044683095d+ 3714 1 2*t10*t104*t105*t106*t107*t3+2.7571132928862224d-1*t1*t11 3715 2 0)*wght+Amat3(iq,D3_RA_RA_RA) 3716 Cmat3(iq,D3_RA_RA_GAA) = t14*(-3.5461536035682834d-1*t15*t16 3717 1 *t17*t19*(3.5449077018110403d+0*t25*t32*(-7.0498920223997 3718 2 04d+0*rhoa*t28*t53*t58*t94+5.639913617919763d+0*rhoa*t28* 3719 3 t40*t59*t85-3.759942411946509d+0*t28*t41*t85+2.8199568089 3720 4 598814d+0*rhoa*t28*t53*t59*t71+5.639913617919763d+0*t28*t 3721 5 40*t53*t59-1.8799712059732546d+0*rhoa*t119*t28*t41)+2.659 3722 6 615202676212d-1*t16*t17*t29*t40*t88-5.319230405352424d-1* 3723 7 t16*t19*t22*t88+2.659615202676212d-1*t16*t17*t19*(-7.0735 3724 8 53026306428d-2*t18*t20*t22*t25*t46*t87+2*t25*t46*t87+1.41 3725 9 47106052612857d-1*t18*t20*t25*t44*t87-7.073553026306428d- 3726 : 2*t20*t22*t25*t40*t87-7.073553026306428d-2*t20*t22*t25*t4 3727 ; 6*t85+1.4147106052612857d-1*t20*t26*t44*t85+1.41371669411 3728 < 5413d+1*t21*t23*t25*t45*t53*t77-5.0d-1*t24*t25*t53*t77-3. 3729 = 536776513153214d-2*t20*t22*t25*t53*t77+1.413716694115413d 3730 > +1*t21*t23*t25*t45*t53*t76-5.0d-1*t24*t25*t53*t76-3.53677 3731 ? 6513153214d-2*t20*t22*t25*t53*t76-2.1220659078919285d-1*t 3732 @ 20*t26*t53*t74-5.0d-1*t25*t45*t53*t71-1.0d+0*t25*t40*t45* 3733 1 t46*t53+1.4147106052612857d-1*t20*t25*t44*t46*t53+2.0d+0* 3734 2 t17*t24*t25*t46*t53+2.0d+0*t17*t25*t40*t45*t53-3.0d+0*t22 3735 3 *t24*t25*t53-3.536776513153214d-2*t119*t20*t22*t26-3.5367 3736 4 76513153214d-2*t120*t18*t20*t22*t25+t120*t25)+3.544907701 3737 5 8110403d+0*t25*t32*t42*t87+3.5449077018110403d+0*t25*t32* 3738 6 t46*t86+2.659615202676212d-1*t16*t17*t29*t47*t85-1.329807 3739 7 601338106d-1*t16*t17*t27*t40*t41*t85-2.659615202676212d-1 3740 8 *t16*t22*t27*t29*t85+1.329807601338106d-1*t16*t17*t29*t53 3741 9 *t78+5.01149519714857d+1*t21*t23*t25*t32*t45*t53*t72+1.32 3742 : 9807601338106d-1*t16*t17*t29*t54*t71-6.649038006690531d-2 3743 ; *t16*t17*t27*t41*t53*t71+9.973557010035795d-2*t16*t17*t27 3744 < *t53*t58*t59-6.649038006690531d-2*t16*t17*t41*t54*t58+5.3 3745 = 19230405352424d-1*t16*t19*t44*t54-2.659615202676212d-1*t1 3746 > 6*t22*t29*t40*t54-1.329807601338106d-1*t16*t17*t40*t41*t4 3747 ? 7*t53-2.659615202676212d-1*t16*t22*t29*t47*t53+5.01149519 3748 @ 714857d+1*t21*t23*t25*t32*t42*t45*t46*t53+2.6596152026762 3749 1 12d-1*t16*t27*t29*t44*t53+1.329807601338106d-1*t16*t22*t2 3750 2 7*t40*t41*t53+1.329807601338106d-1*t119*t16*t17*t27*t29)- 3751 3 3.5461536035682834d-1*t15*t16*t17*t29*t40*t89+7.092307207 3752 4 136567d-1*t15*t16*t19*t22*t89-3.5461536035682834d-1*t15*t 3753 5 16*t17*t29*t48*t85+1.7730768017841417d-1*t15*t16*t17*t30* 3754 6 t40*t41*t85+3.5461536035682834d-1*t15*t16*t22*t29*t30*t85 3755 7 -1.7730768017841417d-1*t15*t16*t17*t29*t53*t79-1.77307680 3756 8 17841417d-1*t15*t16*t17*t29*t55*t71+8.865384008920708d-2* 3757 9 t15*t16*t17*t30*t41*t53*t71-1.3298076013381063d-1*t15*t16 3758 : *t17*t30*t53*t58*t59+8.865384008920708d-2*t15*t16*t17*t41 3759 ; *t55*t58-7.092307207136567d-1*t15*t16*t19*t44*t55+3.54615 3760 < 36035682834d-1*t15*t16*t22*t29*t40*t55+1.7730768017841417 3761 = d-1*t15*t16*t17*t40*t41*t48*t53+3.5461536035682834d-1*t15 3762 > *t16*t22*t29*t48*t53-3.5461536035682834d-1*t15*t16*t29*t3 3763 ? 0*t44*t53-1.7730768017841417d-1*t15*t16*t22*t30*t40*t41*t 3764 @ 53-1.7730768017841417d-1*t119*t15*t16*t17*t29*t30)*wght+2 3765 1 *t49*t91*wght+2*t50*t90*wght+t31*(3.7221029453964005d+0*t 3766 2 13*t2*t3*t38*t67*t84-2.4814019635976003d+0*t13*t3*t35*t39 3767 3 *t84+4.9628039271952007d+0*gammaaa*t11*t3*t33*t34*t39*t84 3768 4 -9.925607854390401d+0*gammaaa*t3*t38*t39*t60*t61*t83+1.86 3769 5 10514726982003d+0*t13*t2*t3*t52*t67*t70-9.305257363491002 3770 6 d-1*t11*t3*t33*t39*t51*t70+1.8610514726982003d+0*t11*t3*t 3771 7 33*t51*t66*t67+4.9628039271952007d+0*t13*t3*t35*t38*t52*t 3772 8 67-9.925607854390401d+0*gammaaa*t11*t3*t33*t34*t38*t52*t6 3773 9 7-5.583154418094601d+0*t112*t13*t2*t3*t52*t66-4.135669939 3774 : 329334d-1*t13*t3*t39*t52*t65-2.481401963597601d+0*gammaaa 3775 ; *t11*t3*t33*t39*t52*t64-2.8949689575305343d+0*t10*t11*t3* 3776 < t33*t64+1.3234143805853868d+1*t3*t39*t5*t52*t60*t61*t63+3 3777 = .143109153890294d+1*gammaaa*t10*t3*t60*t61*t63-3.97024314 3778 > 17561607d+1*t10*t104*t106*t117*t3*t5+2.4814019635976003d+ 3779 ? 0*t11*t3*t33*t34*t38*t39-9.305257363491002d-1*t118*t13*t2 3780 @ *t3*t39)*wght+t56*t81*wght+t57*t80*wght+Cmat3(iq,D3_RA_RA 3781 1 _GAA) 3782 Cmat3(iq,D3_RA_GAA_GAA) = t14*(-3.5461536035682834d-1*t15*t1 3783 1 6*t17*t19*(1.329807601338106d-1*t16*t17*t29*t40*t99-2.659 3784 2 615202676212d-1*t16*t19*t22*t99+2.659615202676212d-1*t16* 3785 3 t17*t19*(1.9985948912206125d+2*t25*t46*t73*t93*t97*t98-7. 3786 4 068583470577066d+0*t21*t23*t25*t40*t93*t98+1.413716694115 3787 5 413d+1*t21*t23*t25*t45*t46*t96-5.0d-1*t24*t25*t46*t96-3.5 3788 6 36776513153214d-2*t20*t22*t25*t46*t96-5.0d-1*t25*t40*t45* 3789 7 t96+7.073553026306428d-2*t20*t26*t44*t96+1.0d+0*t17*t24*t 3790 8 25*t96-3.534291735288533d+1*t21*t23*t25*t46*t75*t93+1.0d+ 3791 9 0*t25*t40*t75*t93+1.413716694115413d+1*rhoa*t23*t25*t75*t 3792 : 93+2.827433388230826d+1*t21*t23*t25*t45*t53*t87-1.0d+0*t2 3793 ; 4*t25*t53*t87-7.073553026306428d-2*t20*t22*t25*t53*t87-1. 3794 < 0d+0*t25*t45*t53*t85-3.536776513153214d-2*t122*t20*t22*t2 3795 = 6-3.536776513153214d-2*t123*t18*t20*t22*t25+t123*t25)+7.0 3796 > 84834422688148d+2*t25*t32*t42*t73*t93*t97*t98+3.544907701 3797 ? 8110403d+0*t25*t32*(2.8199568089598814d+0*rhoa*t28*t40*t5 3798 @ 9*t96-1.8799712059732546d+0*t28*t41*t96-7.049892022399704 3799 1 d+0*rhoa*t28*t40*t93*t94+2.8199568089598814d+0*t28*t59*t9 3800 2 3+5.639913617919763d+0*rhoa*t28*t53*t59*t85-1.87997120597 3801 3 32546d+0*rhoa*t122*t28*t41)+1.329807601338106d-1*t16*t17* 3802 4 t29*t47*t96+5.01149519714857d+1*t21*t23*t25*t32*t42*t45*t 3803 5 96-6.649038006690531d-2*t16*t17*t27*t40*t41*t96-1.3298076 3804 6 01338106d-1*t16*t22*t27*t29*t96-1.002299039429714d+2*t21* 3805 7 t23*t25*t32*t42*t75*t93+9.973557010035795d-2*t16*t17*t27* 3806 8 t40*t59*t93-6.649038006690531d-2*t16*t17*t41*t47*t93+6.64 3807 9 9038006690531d-2*t16*t22*t27*t41*t93+2.659615202676212d-1 3808 : *t16*t17*t29*t53*t88+1.002299039429714d+2*t21*t23*t25*t32 3809 ; *t45*t53*t86+2.659615202676212d-1*t16*t17*t29*t54*t85-1.3 3810 < 29807601338106d-1*t16*t17*t27*t41*t53*t85-1.3298076013381 3811 = 06d-1*t16*t17*t40*t41*t53*t54-2.659615202676212d-1*t16*t2 3812 > 2*t29*t53*t54+1.329807601338106d-1*t122*t16*t17*t27*t29)- 3813 ? 1.7730768017841417d-1*t15*t16*t17*t29*t48*t96+8.865384008 3814 @ 920708d-2*t15*t16*t17*t30*t40*t41*t96+1.7730768017841417d 3815 1 -1*t15*t16*t22*t29*t30*t96-1.3298076013381063d-1*t15*t16* 3816 2 t17*t30*t40*t59*t93+8.865384008920708d-2*t15*t16*t17*t41* 3817 3 t48*t93-8.865384008920708d-2*t15*t16*t22*t30*t41*t93-3.54 3818 4 61536035682834d-1*t15*t16*t17*t29*t53*t89-3.5461536035682 3819 5 834d-1*t15*t16*t17*t29*t55*t85+1.7730768017841417d-1*t15* 3820 6 t16*t17*t30*t41*t53*t85+1.7730768017841417d-1*t15*t16*t17 3821 7 *t40*t41*t53*t55+3.5461536035682834d-1*t15*t16*t22*t29*t5 3822 8 3*t55-1.7730768017841417d-1*t100*t15*t16*t17*t29*t40-1.77 3823 9 30768017841417d-1*t122*t15*t16*t17*t29*t30+3.546153603568 3824 : 2834d-1*t100*t15*t16*t19*t22)*wght+t31*(2.481401963597600 3825 ; 3d+0*t13*t3*t35*t67*t95-4.9628039271952007d+0*gammaaa*t11 3826 < *t3*t33*t34*t67*t95-5.583154418094601d+0*t112*t13*t2*t3*t 3827 = 38*t95+3.7221029453964005d+0*t13*t2*t3*t52*t67*t84-1.8610 3828 > 514726982003d+0*t11*t3*t33*t39*t51*t84-9.925607854390401d 3829 ? +0*gammaaa*t3*t39*t52*t60*t61*t83-7.444205890792801d+0*t1 3830 @ 0*t3*t60*t61*t83+7.444205890792801d+0*t13*t3*t39*t4*t83+3 3831 1 .7221029453964005d+0*t13*t3*t38*t4*t67*t74+1.861051472698 3832 2 2003d+0*t3*t38*t39*t60*t61*t74+3.7221029453964005d+0*t11* 3833 3 t3*t33*t38*t51*t52*t67+2.481401963597601d+0*t11*t3*t33*t3 3834 4 4*t39*t52+4.9628039271952007d+0*gammaaa*t11*t121*t3*t33*t 3835 5 39*t4+1.4888411781585603d+1*gammaaa*t10*t104*t106*t121*t3 3836 6 )*wght+2*t56*t91*wght+2*t57*t90*wght+t101*t50*wght+t102*t 3837 7 49*wght+Cmat3(iq,D3_RA_GAA_GAA) 3838 Cmat3(iq,D3_GAA_GAA_GAA) = t14*(-3.5461536035682834d-1*t15*t 3839 1 16*t17*t19*(3.989422804014318d-1*t16*t17*t29*t53*t99+2.65 3840 2 9615202676212d-1*t16*t17*t19*(5.995784673661838d+2*t25*t5 3841 3 3*t73*t96*t97*t98+1.0602875205865599d+2*t124*t21*t23*t25* 3842 4 t98-1.2990866792933983d+3*t124*t25*t73*t97/t18**5-1.06028 3843 5 75205865599d+2*t21*t23*t25*t53*t75*t96+2.8254469624923584 3844 6 d+3*t124*t25*t62/(t16**6*t18**6)+1.413716694115413d+1*t12 3845 7 7*t21*t23*t25*t45-3.536776513153214d-2*t127*t20*t22*t26-5 3846 8 .0d-1*t127*t24*t25)-2.826440000853771d+2*t25*t32*t43*t53* 3847 9 t92*t94*t96+2.998945983256911d+1*rhoa*t25*t28*t32*t53*t59 3848 : *t96+3.989422804014318d-1*t16*t17*t29*t54*t96-1.994711402 3849 ; 007159d-1*t16*t17*t27*t41*t53*t96-2.4991216527140922d+1*r 3850 < hoa*t124*t25*t28*t32*t94-1.994711402007159d-1*t16*t17*t41 3851 = *t54*t93+4.710733334756285d+2*t124*t25*t32*t43*t92/t19**9 3852 > -1.3319284713741864d+3*t124*t25*t32*t82/(t16**5*t19**11)+ 3853 ? 9.973557010035795d-2*t124*t16*t17*t27*t59-6.6643244072375 3854 @ 8d+0*rhoa*t127*t25*t28*t32*t41+1.329807601338106d-1*t127* 3855 1 t16*t17*t27*t29)-5.319230405352425d-1*t15*t16*t17*t29*t55 3856 2 *t96+2.6596152026762127d-1*t15*t16*t17*t30*t41*t53*t96+2. 3857 3 6596152026762127d-1*t15*t16*t17*t41*t55*t93-1.32980760133 3858 4 81063d-1*t124*t15*t16*t17*t30*t59-5.319230405352425d-1*t1 3859 5 00*t15*t16*t17*t29*t53-1.7730768017841417d-1*t127*t15*t16 3860 6 *t17*t29*t30)*wght+t31*(5.583154418094601d+0*t11*t3*t33*t 3861 7 51*t67*t95+1.1166308836189202d+1*t13*t3*t4*t52*t67*t74+5. 3862 8 583154418094601d+0*t3*t39*t52*t60*t61*t74-5.5831544180946 3863 9 01d+0*t11*t125*t3*t33*t39*t4-5.583154418094601d+0*t112*t1 3864 : 26*t13*t2*t3-5.583154418094601d+0*t10*t104*t106*t125*t3)* 3865 ; wght+3*t101*t57*wght+3*t102*t56*wght+Cmat3(iq,D3_GAA_GAA_ 3866 < GAA) 3867 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 3868 t1 = param(1) 3869 t2 = rhob**1.3333333333333333d+0 3870 t3 = -t1+param(2)+1.0d+0 3871 t4 = param(4) 3872 t5 = gammabb**2 3873 t6 = 1/rhob**5.333333333333333d+0 3874 t7 = param(3) 3875 t8 = 1/rhob**2.6666666666666666d+0 3876 t9 = gammabb*t7*t8+t4*t5*t6+1.0d+0 3877 t10 = 1.0d+0-1.0d+0/t9 3878 t11 = param(5) 3879 t12 = gammabb*t11*t8+1.0d+0 3880 t13 = 1.0d+0-1.0d+0/t12 3881 t14 = -9.305257363491002d-1*t10*t13*t2*t3-9.305257363491002d 3882 1 -1*t1*t2 3883 t15 = param(7) 3884 t16 = param(8) 3885 t17 = 1/rhob 3886 t18 = 9.305257363491002d-1*t10*t13*t2*t3+9.305257363491002d- 3887 1 1*t1*t2 3888 t19 = t18**5.0d-1 3889 t20 = t16**2 3890 t21 = rhob**2 3891 t22 = 1/t21 3892 t23 = 1/t20 3893 t24 = 1/t18 3894 t25 = exp(-1.413716694115413d+1*t21*t23*t24) 3895 t26 = t25-1.0d+0 3896 t27 = -3.536776513153214d-2*t18*t20*t22*t26+t25-1.5d+0 3897 t28 = 1/t16 3898 t29 = 1/t19 3899 t30 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 3900 1 8*t29)+2.659615202676212d-1*t16*t17*t19*t27 3901 t31 = -3.5461536035682834d-1*t15*t16*t17*t19*t30-param(6)+1. 3902 1 0d+0 3903 t32 = 5.641895835477563d-1 3904 t33 = 1/t12**2 3905 t34 = 1/rhob**2.3333333333333334d+0 3906 t35 = rhob**3.333333333333333d-1 3907 t36 = 1/rhob**6.333333333333333d+0 3908 t37 = 1/rhob**3.6666666666666664d+0 3909 t38 = -2.6666666666666666d+0*gammabb*t37*t7-5.33333333333333 3910 1 3d+0*t36*t4*t5 3911 t39 = 1/t9**2 3912 t40 = 9.305257363491002d-1*t13*t2*t3*t38*t39+1.2407009817988 3913 1 002d+0*t10*t13*t3*t35+1.2407009817988002d+0*t1*t35-2.4814 3914 2 019635976003d+0*gammabb*t10*t11*t3*t33*t34 3915 t41 = 1/t19**3 3916 t42 = 3.759942411946509d+0*t28*t29-1.8799712059732546d+0*rho 3917 1 b*t28*t40*t41 3918 t43 = rhob**3 3919 t44 = 1/t43 3920 t45 = 1/t18**2 3921 t46 = 1.413716694115413d+1*t21*t23*t40*t45-2.827433388230826 3922 1 d+1*rhob*t23*t24 3923 t47 = -3.536776513153214d-2*t18*t20*t22*t25*t46+t25*t46+7.07 3924 1 3553026306428d-2*t18*t20*t26*t44-3.536776513153214d-2*t20 3925 2 *t22*t26*t40 3926 t48 = 2.659615202676212d-1*t16*t17*t19*t47+3.544907701811040 3927 1 3d+0*t25*t32*t42+1.329807601338106d-1*t16*t17*t27*t29*t40 3928 2 -2.659615202676212d-1*t16*t19*t22*t27 3929 t49 = -3.5461536035682834d-1*t15*t16*t17*t19*t48-1.773076801 3930 1 7841417d-1*t15*t16*t17*t29*t30*t40+3.5461536035682834d-1* 3931 2 t15*t16*t19*t22*t30 3932 t50 = -9.305257363491002d-1*t13*t2*t3*t38*t39-1.240700981798 3933 1 8002d+0*t10*t13*t3*t35-1.2407009817988002d+0*t1*t35+2.481 3934 2 4019635976003d+0*gammabb*t10*t11*t3*t33*t34 3935 t51 = 1/t2 3936 t52 = t7*t8+2*gammabb*t4*t6 3937 t53 = 9.305257363491002d-1*t13*t2*t3*t39*t52+9.3052573634910 3938 1 02d-1*t10*t11*t3*t33*t51 3939 t54 = 1.413716694115413d+1*t21*t23*t25*t45*t53-3.53677651315 3940 1 3214d-2*t20*t22*t26*t53-5.0d-1*t24*t25*t53 3941 t55 = 2.659615202676212d-1*t16*t17*t19*t54-6.66432440723758d 3942 1 +0*rhob*t25*t28*t32*t41*t53+1.329807601338106d-1*t16*t17* 3943 2 t27*t29*t53 3944 t56 = -3.5461536035682834d-1*t15*t16*t17*t19*t55-1.773076801 3945 1 7841417d-1*t15*t16*t17*t29*t30*t53 3946 t57 = -9.305257363491002d-1*t13*t2*t3*t39*t52-9.305257363491 3947 1 002d-1*t10*t11*t3*t33*t51 3948 t58 = t40**2 3949 t59 = 1/t19**5 3950 t60 = t11**2 3951 t61 = 1/t12**3 3952 t62 = rhob**6 3953 t63 = 1/t62 3954 t64 = 1/rhob**3.3333333333333337d+0 3955 t65 = 1/rhob**6.666666666666666d-1 3956 t66 = t38**2 3957 t67 = 1/t9**3 3958 t68 = 1/rhob**7.333333333333333d+0 3959 t69 = 1/rhob**4.666666666666667d+0 3960 t70 = 9.777777777777779d+0*gammabb*t69*t7+3.377777777777778d 3961 1 +1*t4*t5*t68 3962 t71 = 9.305257363491002d-1*t13*t2*t3*t39*t70-1.8610514726982 3963 1 003d+0*t13*t2*t3*t66*t67+4.135669939329334d-1*t10*t13*t3* 3964 2 t65+4.135669939329334d-1*t1*t65+2.481401963597601d+0*gamm 3965 3 abb*t10*t11*t3*t33*t64-1.3234143805853868d+1*t10*t3*t5*t6 3966 4 0*t61*t63+2.4814019635976003d+0*t13*t3*t35*t38*t39-4.9628 3967 5 039271952007d+0*gammabb*t11*t3*t33*t34*t38*t39 3968 t72 = -1.8799712059732546d+0*rhob*t28*t41*t71+2.819956808959 3969 1 8814d+0*rhob*t28*t58*t59-3.759942411946509d+0*t28*t40*t41 3970 t73 = rhob**4 3971 t74 = 1/t73 3972 t75 = 1/t18**3 3973 t76 = -2.827433388230826d+1*t21*t23*t58*t75+1.41371669411541 3974 1 3d+1*t21*t23*t45*t71+5.654866776461652d+1*rhob*t23*t40*t4 3975 2 5-2.827433388230826d+1*t23*t24 3976 t77 = t46**2 3977 t78 = -3.536776513153214d-2*t18*t20*t22*t25*t77+t25*t77-3.53 3978 1 6776513153214d-2*t18*t20*t22*t25*t76+t25*t76-2.1220659078 3979 2 919285d-1*t18*t20*t26*t74-3.536776513153214d-2*t20*t22*t2 3980 3 6*t71+1.4147106052612857d-1*t18*t20*t25*t44*t46-7.0735530 3981 4 26306428d-2*t20*t22*t25*t40*t46+1.4147106052612857d-1*t20 3982 5 *t26*t40*t44 3983 t79 = 2.659615202676212d-1*t16*t17*t19*t78+3.544907701811040 3984 1 3d+0*t25*t32*t72+1.329807601338106d-1*t16*t17*t27*t29*t71 3985 2 -6.649038006690531d-2*t16*t17*t27*t41*t58+2.6596152026762 3986 3 12d-1*t16*t17*t29*t40*t47-5.319230405352424d-1*t16*t19*t2 3987 4 2*t47+3.5449077018110403d+0*t25*t32*t42*t46+5.31923040535 3988 5 2424d-1*t16*t19*t27*t44-2.659615202676212d-1*t16*t22*t27* 3989 6 t29*t40 3990 t80 = -3.5461536035682834d-1*t15*t16*t17*t19*t79-1.773076801 3991 1 7841417d-1*t15*t16*t17*t29*t30*t71+8.865384008920708d-2*t 3992 2 15*t16*t17*t30*t41*t58-3.5461536035682834d-1*t15*t16*t17* 3993 3 t29*t40*t48+7.092307207136567d-1*t15*t16*t19*t22*t48-7.09 3994 4 2307207136567d-1*t15*t16*t19*t30*t44+3.5461536035682834d- 3995 5 1*t15*t16*t22*t29*t30*t40 3996 t81 = -9.305257363491002d-1*t13*t2*t3*t39*t70+1.861051472698 3997 1 2003d+0*t13*t2*t3*t66*t67-4.135669939329334d-1*t10*t13*t3 3998 2 *t65-4.135669939329334d-1*t1*t65-2.481401963597601d+0*gam 3999 3 mabb*t10*t11*t3*t33*t64+1.3234143805853868d+1*t10*t3*t5*t 4000 4 60*t61*t63-2.4814019635976003d+0*t13*t3*t35*t38*t39+4.962 4001 5 8039271952007d+0*gammabb*t11*t3*t33*t34*t38*t39 4002 t82 = rhob**5 4003 t83 = 1/t82 4004 t84 = -2.6666666666666666d+0*t37*t7-1.0666666666666666d+1*ga 4005 1 mmabb*t36*t4 4006 t85 = 9.305257363491002d-1*t13*t2*t3*t39*t84+4.9628039271952 4007 1 007d+0*gammabb*t10*t3*t60*t61*t83-1.8610514726982003d+0*t 4008 2 13*t2*t3*t38*t52*t67+1.2407009817988002d+0*t13*t3*t35*t39 4009 3 *t52-2.4814019635976003d+0*gammabb*t11*t3*t33*t34*t39*t52 4010 4 +9.305257363491002d-1*t11*t3*t33*t38*t39*t51-1.2407009817 4011 5 988002d+0*t10*t11*t3*t33*t34 4012 t86 = -1.8799712059732546d+0*rhob*t28*t41*t85+2.819956808959 4013 1 8814d+0*rhob*t28*t40*t53*t59-1.8799712059732546d+0*t28*t4 4014 2 1*t53 4015 t87 = 1.413716694115413d+1*t21*t23*t45*t85-2.827433388230826 4016 1 d+1*t21*t23*t40*t53*t75+2.827433388230826d+1*rhob*t23*t45 4017 2 *t53 4018 t88 = -3.536776513153214d-2*t18*t20*t22*t25*t87+t25*t87-3.53 4019 1 6776513153214d-2*t20*t22*t26*t85+1.413716694115413d+1*t21 4020 2 *t23*t25*t45*t46*t53-5.0d-1*t24*t25*t46*t53-3.53677651315 4021 3 3214d-2*t20*t22*t25*t46*t53-5.0d-1*t25*t40*t45*t53+7.0735 4022 4 53026306428d-2*t20*t26*t44*t53+1.0d+0*t17*t24*t25*t53 4023 t89 = 2.659615202676212d-1*t16*t17*t19*t88+3.544907701811040 4024 1 3d+0*t25*t32*t86+1.329807601338106d-1*t16*t17*t27*t29*t85 4025 2 +1.329807601338106d-1*t16*t17*t29*t40*t54-2.6596152026762 4026 3 12d-1*t16*t19*t22*t54+1.329807601338106d-1*t16*t17*t29*t4 4027 4 7*t53+5.01149519714857d+1*t21*t23*t25*t32*t42*t45*t53-6.6 4028 5 49038006690531d-2*t16*t17*t27*t40*t41*t53-1.3298076013381 4029 6 06d-1*t16*t22*t27*t29*t53 4030 t90 = -3.5461536035682834d-1*t15*t16*t17*t19*t89-1.773076801 4031 1 7841417d-1*t15*t16*t17*t29*t30*t85-1.7730768017841417d-1* 4032 2 t15*t16*t17*t29*t40*t55+3.5461536035682834d-1*t15*t16*t19 4033 3 *t22*t55-1.7730768017841417d-1*t15*t16*t17*t29*t48*t53+8. 4034 4 865384008920708d-2*t15*t16*t17*t30*t40*t41*t53+1.77307680 4035 5 17841417d-1*t15*t16*t22*t29*t30*t53 4036 t91 = -9.305257363491002d-1*t13*t2*t3*t39*t84-4.962803927195 4037 1 2007d+0*gammabb*t10*t3*t60*t61*t83+1.8610514726982003d+0* 4038 2 t13*t2*t3*t38*t52*t67-1.2407009817988002d+0*t13*t3*t35*t3 4039 3 9*t52+2.4814019635976003d+0*gammabb*t11*t3*t33*t34*t39*t5 4040 4 2-9.305257363491002d-1*t11*t3*t33*t38*t39*t51+1.240700981 4041 5 7988002d+0*t10*t11*t3*t33*t34 4042 t92 = 1/t16**3 4043 t93 = t53**2 4044 t94 = 1/t19**7 4045 t95 = t52**2 4046 t96 = -1.8610514726982003d+0*t13*t2*t3*t67*t95-1.86105147269 4047 1 82003d+0*t10*t3*t60*t61*t74+1.8610514726982003d+0*t13*t3* 4048 2 t39*t4*t74+1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 4049 t97 = 1/t16**4 4050 t98 = 1/t18**4 4051 t99 = 1.9985948912206125d+2*t25*t73*t93*t97*t98+1.4137166941 4052 1 15413d+1*t21*t23*t25*t45*t96-3.536776513153214d-2*t20*t22 4053 2 *t26*t96-5.0d-1*t24*t25*t96-3.534291735288533d+1*t21*t23* 4054 3 t25*t75*t93 4055 t100 = 2.659615202676212d-1*t16*t17*t19*t99-6.66432440723758 4056 1 d+0*rhob*t25*t28*t32*t41*t96+1.329807601338106d-1*t16*t17 4057 2 *t27*t29*t96-9.421466669512572d+1*t25*t32*t43*t92*t93*t94 4058 3 +9.996486610856369d+0*rhob*t25*t28*t32*t59*t93-6.64903800 4059 4 6690531d-2*t16*t17*t27*t41*t93+2.659615202676212d-1*t16*t 4060 5 17*t29*t53*t54 4061 t101 = -1.7730768017841417d-1*t15*t16*t17*t29*t30*t96+8.8653 4062 1 84008920708d-2*t15*t16*t17*t30*t41*t93-3.5461536035682834 4063 2 d-1*t15*t16*t17*t29*t53*t55-3.5461536035682834d-1*t100*t1 4064 3 5*t16*t17*t19 4065 t102 = 1.8610514726982003d+0*t13*t2*t3*t67*t95+1.86105147269 4066 1 82003d+0*t10*t3*t60*t61*t74-1.8610514726982003d+0*t13*t3* 4067 2 t39*t4*t74-1.8610514726982003d+0*t11*t3*t33*t39*t51*t52 4068 t103 = t40**3 4069 t104 = t11**3 4070 t105 = gammabb**3 4071 t106 = 1/t12**4 4072 t107 = 1/rhob**9.666666666666666d+0 4073 t108 = 1/rhob**7 4074 t109 = 1/rhob**4.333333333333333d+0 4075 t110 = 1/rhob**1.6666666666666669d+0 4076 t111 = t38**3 4077 t112 = 1/t9**4 4078 t113 = -4.5629629629629626d+1*gammabb*t7/rhob**5.66666666666 4079 1 6667d+0-2.477037037037037d+2*t4*t5/rhob**8.33333333333333 4080 2 4d+0 4081 t114 = -5.583154418094601d+0*t13*t2*t3*t38*t67*t70+3.7221029 4082 1 453964005d+0*t13*t3*t35*t39*t70-7.444205890792801d+0*gamm 4083 2 abb*t11*t3*t33*t34*t39*t70-7.444205890792801d+0*t13*t3*t3 4084 3 5*t66*t67+1.4888411781585603d+1*gammabb*t11*t3*t33*t34*t6 4085 4 6*t67+1.2407009817988002d+0*t13*t3*t38*t39*t65+7.44420589 4086 5 0792801d+0*gammabb*t11*t3*t33*t38*t39*t64-3.9702431417561 4087 6 607d+1*t3*t38*t39*t5*t60*t61*t63+9.263900664097708d+1*t10 4088 7 *t108*t3*t5*t60*t61+9.305257363491002d-1*t113*t13*t2*t3*t 4089 8 39-9.374185195813161d+0*gammabb*t10*t109*t11*t3*t33+5.583 4090 9 154418094601d+0*t111*t112*t13*t2*t3-2.7571132928862224d-1 4091 : *t10*t110*t13*t3-1.0587315044683095d+2*t10*t104*t105*t106 4092 ; *t107*t3-2.7571132928862224d-1*t1*t110 4093 t115 = 8.482300164692478d+1*t103*t21*t23*t98-8.4823001646924 4094 1 78d+1*t21*t23*t40*t71*t75-1.6964600329384957d+2*rhob*t23* 4095 2 t58*t75+8.482300164692478d+1*rhob*t23*t45*t71+8.482300164 4096 3 692478d+1*t23*t40*t45+1.413716694115413d+1*t114*t21*t23*t 4097 4 45 4098 t116 = t46**3 4099 t117 = 1/rhob**8.666666666666666d+0 4100 t118 = 9.777777777777779d+0*t69*t7+6.755555555555556d+1*gamm 4101 1 abb*t4*t68 4102 t119 = -3.7221029453964005d+0*t13*t2*t3*t38*t67*t84+2.481401 4103 1 9635976003d+0*t13*t3*t35*t39*t84-4.9628039271952007d+0*ga 4104 2 mmabb*t11*t3*t33*t34*t39*t84+9.925607854390401d+0*gammabb 4105 3 *t3*t38*t39*t60*t61*t83-1.8610514726982003d+0*t13*t2*t3*t 4106 4 52*t67*t70+9.305257363491002d-1*t11*t3*t33*t39*t51*t70-1. 4107 5 8610514726982003d+0*t11*t3*t33*t51*t66*t67-4.962803927195 4108 6 2007d+0*t13*t3*t35*t38*t52*t67+9.925607854390401d+0*gamma 4109 7 bb*t11*t3*t33*t34*t38*t52*t67+5.583154418094601d+0*t112*t 4110 8 13*t2*t3*t52*t66+4.135669939329334d-1*t13*t3*t39*t52*t65+ 4111 9 2.481401963597601d+0*gammabb*t11*t3*t33*t39*t52*t64+2.894 4112 : 9689575305343d+0*t10*t11*t3*t33*t64-1.3234143805853868d+1 4113 ; *t3*t39*t5*t52*t60*t61*t63-3.143109153890294d+1*gammabb*t 4114 < 10*t3*t60*t61*t63+3.9702431417561607d+1*t10*t104*t106*t11 4115 = 7*t3*t5-2.4814019635976003d+0*t11*t3*t33*t34*t38*t39+9.30 4116 > 5257363491002d-1*t118*t13*t2*t3*t39 4117 t120 = 8.482300164692478d+1*t21*t23*t53*t58*t98-5.6548667764 4118 1 61652d+1*t21*t23*t40*t75*t85+5.654866776461652d+1*rhob*t2 4119 2 3*t45*t85-2.827433388230826d+1*t21*t23*t53*t71*t75-1.1309 4120 3 733552923305d+2*rhob*t23*t40*t53*t75+2.827433388230826d+1 4121 4 *t23*t45*t53+1.413716694115413d+1*t119*t21*t23*t45 4122 t121 = 1/rhob**7.666666666666667d+0 4123 t122 = -2.4814019635976003d+0*t13*t3*t35*t67*t95+4.962803927 4124 1 1952007d+0*gammabb*t11*t3*t33*t34*t67*t95+5.5831544180946 4125 2 01d+0*t112*t13*t2*t3*t38*t95-3.7221029453964005d+0*t13*t2 4126 3 *t3*t52*t67*t84+1.8610514726982003d+0*t11*t3*t33*t39*t51* 4127 4 t84+9.925607854390401d+0*gammabb*t3*t39*t52*t60*t61*t83+7 4128 5 .444205890792801d+0*t10*t3*t60*t61*t83-7.444205890792801d 4129 6 +0*t13*t3*t39*t4*t83-3.7221029453964005d+0*t13*t3*t38*t4* 4130 7 t67*t74-1.8610514726982003d+0*t3*t38*t39*t60*t61*t74-3.72 4131 8 21029453964005d+0*t11*t3*t33*t38*t51*t52*t67-2.4814019635 4132 9 97601d+0*t11*t3*t33*t34*t39*t52-4.9628039271952007d+0*gam 4133 : mabb*t11*t121*t3*t33*t39*t4-1.4888411781585603d+1*gammabb 4134 ; *t10*t104*t106*t121*t3 4135 t123 = 8.482300164692478d+1*t21*t23*t40*t93*t98-2.8274333882 4136 1 30826d+1*t21*t23*t40*t75*t96+2.827433388230826d+1*rhob*t2 4137 2 3*t45*t96-5.654866776461652d+1*rhob*t23*t75*t93-5.6548667 4138 3 76461652d+1*t21*t23*t53*t75*t85+1.413716694115413d+1*t122 4139 4 *t21*t23*t45 4140 t124 = t53**3 4141 t125 = 1/rhob**6.666666666666667d+0 4142 t126 = t52**3 4143 t127 = -5.583154418094601d+0*t11*t3*t33*t51*t67*t95-1.116630 4144 1 8836189202d+1*t13*t3*t4*t52*t67*t74-5.583154418094601d+0* 4145 2 t3*t39*t52*t60*t61*t74+5.583154418094601d+0*t11*t125*t3*t 4146 3 33*t39*t4+5.583154418094601d+0*t112*t126*t13*t2*t3+5.5831 4147 4 54418094601d+0*t10*t104*t106*t125*t3 4148 fnc(iq) = t14*t31*wght+fnc(iq) 4149 Amat(iq,D1_RB) = t31*t50*wght+t14*t49*wght+Amat(iq,D1_RB) 4150 Cmat(iq,D1_GBB) = t31*t57*wght+t14*t56*wght+Cmat(iq,D1_GBB) 4151 Amat2(iq,D2_RB_RB) = t31*t81*wght+t14*t80*wght+2*t49*t50*wgh 4152 1 t+Amat2(iq,D2_RB_RB) 4153 Cmat2(iq,D2_RB_GBB) = t31*t91*wght+t14*t90*wght+t49*t57*wght 4154 1 +t50*t56*wght+Cmat2(iq,D2_RB_GBB) 4155 Cmat2(iq,D2_GBB_GBB) = 2*t56*t57*wght+t102*t31*wght+t101*t14 4156 1 *wght+Cmat2(iq,D2_GBB_GBB) 4157 Amat3(iq,D3_RB_RB_RB) = t14*(-3.5461536035682834d-1*t15*t16* 4158 1 t17*t19*(3.5449077018110403d+0*t25*t32*(-7.04989202239970 4159 2 4d+0*rhob*t103*t28*t94+8.459870426879645d+0*rhob*t28*t40* 4160 3 t59*t71-5.639913617919763d+0*t28*t41*t71+8.45987042687964 4161 4 5d+0*t28*t58*t59-1.8799712059732546d+0*rhob*t114*t28*t41) 4162 5 +2.659615202676212d-1*t16*t17*t19*(8.488263631567714d-1*t 4163 6 18*t20*t26*t83+2.1220659078919285d-1*t18*t20*t25*t44*t77- 4164 7 1.0610329539459643d-1*t20*t22*t25*t40*t77-1.0610329539459 4165 8 643d-1*t18*t20*t22*t25*t46*t76+3*t25*t46*t76+2.1220659078 4166 9 919285d-1*t18*t20*t25*t44*t76-1.0610329539459643d-1*t20*t 4167 : 22*t25*t40*t76-6.366197723675786d-1*t18*t20*t25*t46*t74-6 4168 ; .366197723675786d-1*t20*t26*t40*t74-1.0610329539459643d-1 4169 < *t20*t22*t25*t46*t71+2.1220659078919285d-1*t20*t26*t44*t7 4170 = 1+4.244131815783857d-1*t20*t25*t40*t44*t46-3.536776513153 4171 > 214d-2*t114*t20*t22*t26-3.536776513153214d-2*t116*t18*t20 4172 ? *t22*t25-3.536776513153214d-2*t115*t18*t20*t22*t25+t116*t 4173 @ 25+t115*t25)+3.989422804014318d-1*t16*t17*t29*t40*t78-7.9 4174 1 78845608028636d-1*t16*t19*t22*t78+3.5449077018110403d+0*t 4175 2 25*t32*t42*t77+3.5449077018110403d+0*t25*t32*t42*t76-1.59 4176 3 57691216057274d+0*t16*t19*t27*t74+7.089815403622081d+0*t2 4177 4 5*t32*t46*t72+3.989422804014318d-1*t16*t17*t29*t47*t71-1. 4178 5 994711402007159d-1*t16*t17*t27*t40*t41*t71-3.989422804014 4179 6 318d-1*t16*t22*t27*t29*t71+9.973557010035795d-2*t103*t16* 4180 7 t17*t27*t59-1.994711402007159d-1*t16*t17*t41*t47*t58+1.99 4181 8 4711402007159d-1*t16*t22*t27*t41*t58+1.5957691216057274d+ 4182 9 0*t16*t19*t44*t47-7.978845608028636d-1*t16*t22*t29*t40*t4 4183 : 7+7.978845608028636d-1*t16*t27*t29*t40*t44+1.329807601338 4184 ; 106d-1*t114*t16*t17*t27*t29)-5.319230405352425d-1*t15*t16 4185 < *t17*t29*t40*t79+1.063846081070485d+0*t15*t16*t19*t22*t79 4186 = +2.12769216214097d+0*t15*t16*t19*t30*t74-5.31923040535242 4187 > 5d-1*t15*t16*t17*t29*t48*t71+2.6596152026762127d-1*t15*t1 4188 ? 6*t17*t30*t40*t41*t71+5.319230405352425d-1*t15*t16*t22*t2 4189 @ 9*t30*t71-1.3298076013381063d-1*t103*t15*t16*t17*t30*t59+ 4190 1 2.6596152026762127d-1*t15*t16*t17*t41*t48*t58-2.659615202 4191 2 6762127d-1*t15*t16*t22*t30*t41*t58-2.12769216214097d+0*t1 4192 3 5*t16*t19*t44*t48+1.063846081070485d+0*t15*t16*t22*t29*t4 4193 4 0*t48-1.063846081070485d+0*t15*t16*t29*t30*t40*t44-1.7730 4194 5 768017841417d-1*t114*t15*t16*t17*t29*t30)*wght+3*t49*t81* 4195 6 wght+3*t50*t80*wght+t31*(5.583154418094601d+0*t13*t2*t3*t 4196 7 38*t67*t70-3.7221029453964005d+0*t13*t3*t35*t39*t70+7.444 4197 8 205890792801d+0*gammabb*t11*t3*t33*t34*t39*t70+7.44420589 4198 9 0792801d+0*t13*t3*t35*t66*t67-1.4888411781585603d+1*gamma 4199 : bb*t11*t3*t33*t34*t66*t67-1.2407009817988002d+0*t13*t3*t3 4200 ; 8*t39*t65-7.444205890792801d+0*gammabb*t11*t3*t33*t38*t39 4201 < *t64+3.9702431417561607d+1*t3*t38*t39*t5*t60*t61*t63-9.26 4202 = 3900664097708d+1*t10*t108*t3*t5*t60*t61-9.305257363491002 4203 > d-1*t113*t13*t2*t3*t39+9.374185195813161d+0*gammabb*t10*t 4204 ? 109*t11*t3*t33-5.583154418094601d+0*t111*t112*t13*t2*t3+2 4205 @ .7571132928862224d-1*t10*t110*t13*t3+1.0587315044683095d+ 4206 1 2*t10*t104*t105*t106*t107*t3+2.7571132928862224d-1*t1*t11 4207 2 0)*wght+Amat3(iq,D3_RB_RB_RB) 4208 Cmat3(iq,D3_RB_RB_GBB) = t14*(-3.5461536035682834d-1*t15*t16 4209 1 *t17*t19*(3.5449077018110403d+0*t25*t32*(-7.0498920223997 4210 2 04d+0*rhob*t28*t53*t58*t94+5.639913617919763d+0*rhob*t28* 4211 3 t40*t59*t85-3.759942411946509d+0*t28*t41*t85+2.8199568089 4212 4 598814d+0*rhob*t28*t53*t59*t71+5.639913617919763d+0*t28*t 4213 5 40*t53*t59-1.8799712059732546d+0*rhob*t119*t28*t41)+2.659 4214 6 615202676212d-1*t16*t17*t29*t40*t88-5.319230405352424d-1* 4215 7 t16*t19*t22*t88+2.659615202676212d-1*t16*t17*t19*(-7.0735 4216 8 53026306428d-2*t18*t20*t22*t25*t46*t87+2*t25*t46*t87+1.41 4217 9 47106052612857d-1*t18*t20*t25*t44*t87-7.073553026306428d- 4218 : 2*t20*t22*t25*t40*t87-7.073553026306428d-2*t20*t22*t25*t4 4219 ; 6*t85+1.4147106052612857d-1*t20*t26*t44*t85+1.41371669411 4220 < 5413d+1*t21*t23*t25*t45*t53*t77-5.0d-1*t24*t25*t53*t77-3. 4221 = 536776513153214d-2*t20*t22*t25*t53*t77+1.413716694115413d 4222 > +1*t21*t23*t25*t45*t53*t76-5.0d-1*t24*t25*t53*t76-3.53677 4223 ? 6513153214d-2*t20*t22*t25*t53*t76-2.1220659078919285d-1*t 4224 @ 20*t26*t53*t74-5.0d-1*t25*t45*t53*t71-1.0d+0*t25*t40*t45* 4225 1 t46*t53+1.4147106052612857d-1*t20*t25*t44*t46*t53+2.0d+0* 4226 2 t17*t24*t25*t46*t53+2.0d+0*t17*t25*t40*t45*t53-3.0d+0*t22 4227 3 *t24*t25*t53-3.536776513153214d-2*t119*t20*t22*t26-3.5367 4228 4 76513153214d-2*t120*t18*t20*t22*t25+t120*t25)+3.544907701 4229 5 8110403d+0*t25*t32*t42*t87+3.5449077018110403d+0*t25*t32* 4230 6 t46*t86+2.659615202676212d-1*t16*t17*t29*t47*t85-1.329807 4231 7 601338106d-1*t16*t17*t27*t40*t41*t85-2.659615202676212d-1 4232 8 *t16*t22*t27*t29*t85+1.329807601338106d-1*t16*t17*t29*t53 4233 9 *t78+5.01149519714857d+1*t21*t23*t25*t32*t45*t53*t72+1.32 4234 : 9807601338106d-1*t16*t17*t29*t54*t71-6.649038006690531d-2 4235 ; *t16*t17*t27*t41*t53*t71+9.973557010035795d-2*t16*t17*t27 4236 < *t53*t58*t59-6.649038006690531d-2*t16*t17*t41*t54*t58+5.3 4237 = 19230405352424d-1*t16*t19*t44*t54-2.659615202676212d-1*t1 4238 > 6*t22*t29*t40*t54-1.329807601338106d-1*t16*t17*t40*t41*t4 4239 ? 7*t53-2.659615202676212d-1*t16*t22*t29*t47*t53+5.01149519 4240 @ 714857d+1*t21*t23*t25*t32*t42*t45*t46*t53+2.6596152026762 4241 1 12d-1*t16*t27*t29*t44*t53+1.329807601338106d-1*t16*t22*t2 4242 2 7*t40*t41*t53+1.329807601338106d-1*t119*t16*t17*t27*t29)- 4243 3 3.5461536035682834d-1*t15*t16*t17*t29*t40*t89+7.092307207 4244 4 136567d-1*t15*t16*t19*t22*t89-3.5461536035682834d-1*t15*t 4245 5 16*t17*t29*t48*t85+1.7730768017841417d-1*t15*t16*t17*t30* 4246 6 t40*t41*t85+3.5461536035682834d-1*t15*t16*t22*t29*t30*t85 4247 7 -1.7730768017841417d-1*t15*t16*t17*t29*t53*t79-1.77307680 4248 8 17841417d-1*t15*t16*t17*t29*t55*t71+8.865384008920708d-2* 4249 9 t15*t16*t17*t30*t41*t53*t71-1.3298076013381063d-1*t15*t16 4250 : *t17*t30*t53*t58*t59+8.865384008920708d-2*t15*t16*t17*t41 4251 ; *t55*t58-7.092307207136567d-1*t15*t16*t19*t44*t55+3.54615 4252 < 36035682834d-1*t15*t16*t22*t29*t40*t55+1.7730768017841417 4253 = d-1*t15*t16*t17*t40*t41*t48*t53+3.5461536035682834d-1*t15 4254 > *t16*t22*t29*t48*t53-3.5461536035682834d-1*t15*t16*t29*t3 4255 ? 0*t44*t53-1.7730768017841417d-1*t15*t16*t22*t30*t40*t41*t 4256 @ 53-1.7730768017841417d-1*t119*t15*t16*t17*t29*t30)*wght+2 4257 1 *t49*t91*wght+2*t50*t90*wght+t31*(3.7221029453964005d+0*t 4258 2 13*t2*t3*t38*t67*t84-2.4814019635976003d+0*t13*t3*t35*t39 4259 3 *t84+4.9628039271952007d+0*gammabb*t11*t3*t33*t34*t39*t84 4260 4 -9.925607854390401d+0*gammabb*t3*t38*t39*t60*t61*t83+1.86 4261 5 10514726982003d+0*t13*t2*t3*t52*t67*t70-9.305257363491002 4262 6 d-1*t11*t3*t33*t39*t51*t70+1.8610514726982003d+0*t11*t3*t 4263 7 33*t51*t66*t67+4.9628039271952007d+0*t13*t3*t35*t38*t52*t 4264 8 67-9.925607854390401d+0*gammabb*t11*t3*t33*t34*t38*t52*t6 4265 9 7-5.583154418094601d+0*t112*t13*t2*t3*t52*t66-4.135669939 4266 : 329334d-1*t13*t3*t39*t52*t65-2.481401963597601d+0*gammabb 4267 ; *t11*t3*t33*t39*t52*t64-2.8949689575305343d+0*t10*t11*t3* 4268 < t33*t64+1.3234143805853868d+1*t3*t39*t5*t52*t60*t61*t63+3 4269 = .143109153890294d+1*gammabb*t10*t3*t60*t61*t63-3.97024314 4270 > 17561607d+1*t10*t104*t106*t117*t3*t5+2.4814019635976003d+ 4271 ? 0*t11*t3*t33*t34*t38*t39-9.305257363491002d-1*t118*t13*t2 4272 @ *t3*t39)*wght+t56*t81*wght+t57*t80*wght+Cmat3(iq,D3_RB_RB 4273 1 _GBB) 4274 Cmat3(iq,D3_RB_GBB_GBB) = t14*(-3.5461536035682834d-1*t15*t1 4275 1 6*t17*t19*(1.329807601338106d-1*t16*t17*t29*t40*t99-2.659 4276 2 615202676212d-1*t16*t19*t22*t99+2.659615202676212d-1*t16* 4277 3 t17*t19*(1.9985948912206125d+2*t25*t46*t73*t93*t97*t98-7. 4278 4 068583470577066d+0*t21*t23*t25*t40*t93*t98+1.413716694115 4279 5 413d+1*t21*t23*t25*t45*t46*t96-5.0d-1*t24*t25*t46*t96-3.5 4280 6 36776513153214d-2*t20*t22*t25*t46*t96-5.0d-1*t25*t40*t45* 4281 7 t96+7.073553026306428d-2*t20*t26*t44*t96+1.0d+0*t17*t24*t 4282 8 25*t96-3.534291735288533d+1*t21*t23*t25*t46*t75*t93+1.0d+ 4283 9 0*t25*t40*t75*t93+1.413716694115413d+1*rhob*t23*t25*t75*t 4284 : 93+2.827433388230826d+1*t21*t23*t25*t45*t53*t87-1.0d+0*t2 4285 ; 4*t25*t53*t87-7.073553026306428d-2*t20*t22*t25*t53*t87-1. 4286 < 0d+0*t25*t45*t53*t85-3.536776513153214d-2*t122*t20*t22*t2 4287 = 6-3.536776513153214d-2*t123*t18*t20*t22*t25+t123*t25)+7.0 4288 > 84834422688148d+2*t25*t32*t42*t73*t93*t97*t98+3.544907701 4289 ? 8110403d+0*t25*t32*(2.8199568089598814d+0*rhob*t28*t40*t5 4290 @ 9*t96-1.8799712059732546d+0*t28*t41*t96-7.049892022399704 4291 1 d+0*rhob*t28*t40*t93*t94+2.8199568089598814d+0*t28*t59*t9 4292 2 3+5.639913617919763d+0*rhob*t28*t53*t59*t85-1.87997120597 4293 3 32546d+0*rhob*t122*t28*t41)+1.329807601338106d-1*t16*t17* 4294 4 t29*t47*t96+5.01149519714857d+1*t21*t23*t25*t32*t42*t45*t 4295 5 96-6.649038006690531d-2*t16*t17*t27*t40*t41*t96-1.3298076 4296 6 01338106d-1*t16*t22*t27*t29*t96-1.002299039429714d+2*t21* 4297 7 t23*t25*t32*t42*t75*t93+9.973557010035795d-2*t16*t17*t27* 4298 8 t40*t59*t93-6.649038006690531d-2*t16*t17*t41*t47*t93+6.64 4299 9 9038006690531d-2*t16*t22*t27*t41*t93+2.659615202676212d-1 4300 : *t16*t17*t29*t53*t88+1.002299039429714d+2*t21*t23*t25*t32 4301 ; *t45*t53*t86+2.659615202676212d-1*t16*t17*t29*t54*t85-1.3 4302 < 29807601338106d-1*t16*t17*t27*t41*t53*t85-1.3298076013381 4303 = 06d-1*t16*t17*t40*t41*t53*t54-2.659615202676212d-1*t16*t2 4304 > 2*t29*t53*t54+1.329807601338106d-1*t122*t16*t17*t27*t29)- 4305 ? 1.7730768017841417d-1*t15*t16*t17*t29*t48*t96+8.865384008 4306 @ 920708d-2*t15*t16*t17*t30*t40*t41*t96+1.7730768017841417d 4307 1 -1*t15*t16*t22*t29*t30*t96-1.3298076013381063d-1*t15*t16* 4308 2 t17*t30*t40*t59*t93+8.865384008920708d-2*t15*t16*t17*t41* 4309 3 t48*t93-8.865384008920708d-2*t15*t16*t22*t30*t41*t93-3.54 4310 4 61536035682834d-1*t15*t16*t17*t29*t53*t89-3.5461536035682 4311 5 834d-1*t15*t16*t17*t29*t55*t85+1.7730768017841417d-1*t15* 4312 6 t16*t17*t30*t41*t53*t85+1.7730768017841417d-1*t15*t16*t17 4313 7 *t40*t41*t53*t55+3.5461536035682834d-1*t15*t16*t22*t29*t5 4314 8 3*t55-1.7730768017841417d-1*t100*t15*t16*t17*t29*t40-1.77 4315 9 30768017841417d-1*t122*t15*t16*t17*t29*t30+3.546153603568 4316 : 2834d-1*t100*t15*t16*t19*t22)*wght+t31*(2.481401963597600 4317 ; 3d+0*t13*t3*t35*t67*t95-4.9628039271952007d+0*gammabb*t11 4318 < *t3*t33*t34*t67*t95-5.583154418094601d+0*t112*t13*t2*t3*t 4319 = 38*t95+3.7221029453964005d+0*t13*t2*t3*t52*t67*t84-1.8610 4320 > 514726982003d+0*t11*t3*t33*t39*t51*t84-9.925607854390401d 4321 ? +0*gammabb*t3*t39*t52*t60*t61*t83-7.444205890792801d+0*t1 4322 @ 0*t3*t60*t61*t83+7.444205890792801d+0*t13*t3*t39*t4*t83+3 4323 1 .7221029453964005d+0*t13*t3*t38*t4*t67*t74+1.861051472698 4324 2 2003d+0*t3*t38*t39*t60*t61*t74+3.7221029453964005d+0*t11* 4325 3 t3*t33*t38*t51*t52*t67+2.481401963597601d+0*t11*t3*t33*t3 4326 4 4*t39*t52+4.9628039271952007d+0*gammabb*t11*t121*t3*t33*t 4327 5 39*t4+1.4888411781585603d+1*gammabb*t10*t104*t106*t121*t3 4328 6 )*wght+2*t56*t91*wght+2*t57*t90*wght+t101*t50*wght+t102*t 4329 7 49*wght+Cmat3(iq,D3_RB_GBB_GBB) 4330 Cmat3(iq,D3_GBB_GBB_GBB) = t14*(-3.5461536035682834d-1*t15*t 4331 1 16*t17*t19*(3.989422804014318d-1*t16*t17*t29*t53*t99+2.65 4332 2 9615202676212d-1*t16*t17*t19*(5.995784673661838d+2*t25*t5 4333 3 3*t73*t96*t97*t98+1.0602875205865599d+2*t124*t21*t23*t25* 4334 4 t98-1.2990866792933983d+3*t124*t25*t73*t97/t18**5-1.06028 4335 5 75205865599d+2*t21*t23*t25*t53*t75*t96+2.8254469624923584 4336 6 d+3*t124*t25*t62/(t16**6*t18**6)+1.413716694115413d+1*t12 4337 7 7*t21*t23*t25*t45-3.536776513153214d-2*t127*t20*t22*t26-5 4338 8 .0d-1*t127*t24*t25)-2.826440000853771d+2*t25*t32*t43*t53* 4339 9 t92*t94*t96+2.998945983256911d+1*rhob*t25*t28*t32*t53*t59 4340 : *t96+3.989422804014318d-1*t16*t17*t29*t54*t96-1.994711402 4341 ; 007159d-1*t16*t17*t27*t41*t53*t96-2.4991216527140922d+1*r 4342 < hob*t124*t25*t28*t32*t94-1.994711402007159d-1*t16*t17*t41 4343 = *t54*t93+4.710733334756285d+2*t124*t25*t32*t43*t92/t19**9 4344 > -1.3319284713741864d+3*t124*t25*t32*t82/(t16**5*t19**11)+ 4345 ? 9.973557010035795d-2*t124*t16*t17*t27*t59-6.6643244072375 4346 @ 8d+0*rhob*t127*t25*t28*t32*t41+1.329807601338106d-1*t127* 4347 1 t16*t17*t27*t29)-5.319230405352425d-1*t15*t16*t17*t29*t55 4348 2 *t96+2.6596152026762127d-1*t15*t16*t17*t30*t41*t53*t96+2. 4349 3 6596152026762127d-1*t15*t16*t17*t41*t55*t93-1.32980760133 4350 4 81063d-1*t124*t15*t16*t17*t30*t59-5.319230405352425d-1*t1 4351 5 00*t15*t16*t17*t29*t53-1.7730768017841417d-1*t127*t15*t16 4352 6 *t17*t29*t30)*wght+t31*(5.583154418094601d+0*t11*t3*t33*t 4353 7 51*t67*t95+1.1166308836189202d+1*t13*t3*t4*t52*t67*t74+5. 4354 8 583154418094601d+0*t3*t39*t52*t60*t61*t74-5.5831544180946 4355 9 01d+0*t11*t125*t3*t33*t39*t4-5.583154418094601d+0*t112*t1 4356 : 26*t13*t2*t3-5.583154418094601d+0*t10*t104*t106*t125*t3)* 4357 ; wght+3*t101*t57*wght+3*t102*t56*wght+Cmat3(iq,D3_GBB_GBB_ 4358 < GBB) 4359 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 4360 endif ! ipol.eq.1 4361 enddo ! iq 4362 end 4363C> @} 4364