1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_x_camb88.F 5C> The nwxcm_x_camb88 functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_x_camb88 functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 16C> {\it t_2} &=& {{1}\over{{\it t_1}}}\\\\ 17C> {\it t_3} &=& \sqrt{\sigma_{\alpha\alpha}}\\\\ 18C> {\it t_4} &=& {{1}\over{0.0252\,{\it t_2}\,{\rm asinh}\; 19C> \left({\it t_2}\,{\it t_3}\right)\,{\it t_3}+1.0}}\\\\ 20C> {\it t_5} &=& -{\it param}\left(1\right)\\\\ 21C> {\it t_6} &=& {\it param}\left(2\right)\\\\ 22C> {\it t_7} &=& {\it param}\left(3\right)\\\\ 23C> {\it t_8} &=& {{1}\over{\rho_\alpha}}\\\\ 24C> {\it t_9} &=& 0.0042\,{\it t_2}\,{\it t_4}\,\sigma_{\alpha\alpha} 25C> +0.9305257363491002\,{\it t_1}\\\\ 26C> {\it t_{10}} &=& \sqrt{{\it t_9}}\\\\ 27C> {\it t_{11}} &=& {\it t_7}^2\\\\ 28C> {\it t_{12}} &=& \rho_\alpha^2\\\\ 29C> {\it t_{13}} &=& {{1}\over{{\it t_{11}}}}\\\\ 30C> {\it t_{14}} &=& e^ {- {{14.13716694115413\,{\it t_{12}}\,{ 31C> \it t_{13}}}\over{{\it t_9}}} }\\\\ 32C> {\it t_{15}} &=& {{1}\over{{\it t_7}}}\\\\ 33C> {\it t_{16}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 34C> {\it t_{17}} &=& {{1}\over{{\it t_{16}}}}\\\\ 35C> {\it t_{18}} &=& \sqrt{\sigma_{\beta\beta}}\\\\ 36C> {\it t_{19}} &=& {{1}\over{0.0252\,{\it t_{17}} 37C> \,{\rm asinh}\; \left({\it t_{17}}\,{\it t_{18}}\right)\,{ 38C> \it t_{18}}+1.0}}\\\\ 39C> {\it t_{20}} &=& {{1}\over{\rho_\beta}}\\\\ 40C> {\it t_{21}} &=& 0.0042\,{\it t_{17}}\,{\it t_{19}}\, 41C> \sigma_{\beta\beta}+0.9305257363491002\,{\it t_{16}}\\\\ 42C> {\it t_{22}} &=& \sqrt{{\it t_{21}}}\\\\ 43C> {\it t_{23}} &=& \rho_\beta^2\\\\ 44C> {\it t_{24}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 45C> \it t_{23}}}\over{{\it t_{21}}}} }\\\\ 46C> {\it t_{25}} &=& \rho_s^{{{4}\over{3}}}\\\\ 47C> {\it t_{26}} &=& {{1}\over{{\it t_{25}}}}\\\\ 48C> {\it t_{27}} &=& \sqrt{\sigma_{ss}}\\\\ 49C> {\it t_{28}} &=& {{1}\over{0.0252\,{\it t_{26}} 50C> \,{\rm asinh}\; \left({\it t_{26}}\,{\it t_{27}}\right)\,{ 51C> \it t_{27}}+1.0}}\\\\ 52C> {\it t_{29}} &=& {{1}\over{\rho_s}}\\\\ 53C> {\it t_{30}} &=& 0.0042\,{\it t_{26}}\,{\it t_{28}}\,\sigma_{ss} 54C> +0.9305257363491002\,{\it t_{25}}\\\\ 55C> {\it t_{31}} &=& \sqrt{{\it t_{30}}}\\\\ 56C> {\it t_{32}} &=& \rho_s^2\\\\ 57C> {\it t_{33}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 58C> \it t_{32}}}\over{{\it t_{30}}}} }\\\\ 59C> f &=& \left(-0.0042\,{\it t_{17}}\,{\it t_{19}}\, 60C> \sigma_{\beta\beta}-0.9305257363491002\,{\it t_{16}}\right) 61C> \,\left(-0.3546153603568283\,{\it t_6}\,{\it t_7}\,{ 62C> \it t_{20}}\,{\it t_{22}}\,\left(1.77245385090552 63C> \,\mathrm{erf}\left({{3.759942411946509\,{\it t_{15}} 64C> \,\rho_\beta}\over{{\it t_{22}}}}\right)+0.2659615202676212 65C> \,{\it t_7}\,{\it t_{20}}\,{\it t_{22}}\,\left({\it t_{24}} 66C> -{{0.03536776513153214\,{\it t_{11}}\,{\it t_{21}}\,\left({ 67C> \it t_{24}}-1.0\right)}\over{{\it t_{23}}}}-1.5\right)\right) 68C> +{\it t_5}+1.0\right)+\left(-0.0042\,{\it t_2}\,{\it t_4} 69C> \,\sigma_{\alpha\alpha}-0.9305257363491002\,{\it t_1}\right) 70C> \,\left(-0.3546153603568283\,{\it t_6}\,{\it t_7}\,{\it t_8} 71C> \,{\it t_{10}}\,\left(1.77245385090552\,\mathrm{erf} 72C> \left({{3.759942411946509\,{\it t_{15}}\,\rho_\alpha}\over{{ 73C> \it t_{10}}}}\right)+0.2659615202676212\,{\it t_7}\,{\it t_8} 74C> \,{\it t_{10}}\,\left({\it t_{14}}-{{0.03536776513153214\,{ 75C> \it t_{11}}\,{\it t_9}\,\left({\it t_{14}}-1.0\right)} 76C> \over{{\it t_{12}}}}-1.5\right)\right)+{\it t_5}+1.0\right)\\\\ 77C> g &=& 0\\\\ 78C> G &=& \left(-0.0042\,{\it t_{26}}\,{\it t_{28}}\,\sigma_{ss} 79C> -0.9305257363491002\,{\it t_{25}}\right)\,\left( 80C> -0.3546153603568283\,{\it t_6}\,{\it t_7}\,{\it t_{29}}\,{ 81C> \it t_{31}}\,\left(1.77245385090552\,\mathrm{erf} 82C> \left({{3.759942411946509\,{\it t_{15}}\,\rho_s}\over{{ 83C> \it t_{31}}}}\right)+0.2659615202676212\,{\it t_7}\,{ 84C> \it t_{29}}\,{\it t_{31}}\,\left({\it t_{33}} 85C> -{{0.03536776513153214\,{\it t_{11}}\,{\it t_{30}}\,\left({ 86C> \it t_{33}}-1.0\right)}\over{{\it t_{32}}}}-1.5\right)\right) 87C> +{\it t_5}+1.0\right)\\\\ 88C> \f} 89C> 90C> Code generated with Maxima 5.34.0 [2] 91C> driven by autoxc [3]. 92C> 93C> ### References ### 94C> 95C> [1] T Yanai, DP Tew, NC Handy, Chem.Phys.Lett. 393, 51 (2004) 96C> , DOI: 97C> <a href="https://doi.org/10.1016/j.cplett.2004.06.011 "> 98C> 10.1016/j.cplett.2004.06.011 </a> 99C> 100C> [2] Maxima, a computer algebra system, 101C> <a href="http://maxima.sourceforge.net/"> 102C> http://maxima.sourceforge.net/</a> 103C> 104C> [3] autoxc, revision 27097 2015-05-08 105C> 106 subroutine nwxcm_x_camb88(param,tol_rho,ipol,nq,wght, 107 +rho,rgamma,fnc,Amat,Cmat) 108c $Id: $ 109#ifdef NWXC_QUAD_PREC 110 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 111 integer, parameter :: rk=selected_real_kind(30) 112#else 113 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 114 integer, parameter :: rk=selected_real_kind(15) 115#endif 116#include "nwxc_param.fh" 117 double precision param(*) !< [Input] Parameters of functional 118 double precision tol_rho !< [Input] The lower limit on the density 119 integer ipol !< [Input] The number of spin channels 120 integer nq !< [Input] The number of points 121 double precision wght !< [Input] The weight of the functional 122 double precision rho(nq,*) !< [Input] The density 123 double precision rgamma(nq,*) !< [Input] The norm of the density 124 !< gradients 125 double precision fnc(nq) !< [Output] The value of the functional 126c 127c Sampling Matrices for the XC Kernel 128c 129 double precision Amat(nq,*) !< [Output] The derivative wrt rho 130 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 131 integer iq 132 double precision tmp 133 double precision rhoa,rhob 134 double precision gammaaa,gammaab,gammabb 135 double precision taua,taub 136 double precision nwxcm_heaviside 137 external nwxcm_heaviside 138CDIR$ NOVECTOR 139 do iq = 1, nq 140 if (ipol.eq.1) then 141 rhoa = 0.5d0*rho(iq,R_T) 142 gammaaa = 0.25d0*rgamma(iq,G_TT) 143 if (rhoa.gt.tol_rho) then 144 t1 = gammaaa**5.0d-1 145 t2 = rhoa**1.3333333333333333d+0 146 t3 = 1/t2 147 t4 = asinh(t1*t3) 148 t5 = 2.52d-2*t1*t3*t4+1.0d+0 149 t6 = 1/t5 150 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 151 t8 = param(2) 152 t9 = param(3) 153 t10 = 1/rhoa 154 t11 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 155 t12 = t11**5.0d-1 156 t13 = t9**2 157 t14 = rhoa**2 158 t15 = 1/t14 159 t16 = 1/t13 160 t17 = 1/t11 161 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 162 t19 = t18-1.0d+0 163 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 164 t21 = 1/t9 165 t22 = 1/t12 166 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 167 1 d+0*erf(3.759942411946509d+0*rhoa*t21*t22) 168 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 169 1 +0 170 t25 = 5.641895835477563d-1 171 t26 = 1/rhoa**2.3333333333333334d+0 172 t27 = 1/rhoa**2.6666666666666666d+0 173 t28 = 1/(gammaaa*t27+1)**5.0d-1 174 t29 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 175 1 *gammaaa*t28/rhoa**3.6666666666666664d+0 176 t30 = 1/t5**2 177 t31 = rhoa**3.333333333333333d-1 178 t32 = -5.599999999999999d-3*gammaaa*t26*t6+1.240700981798800 179 1 2d+0*t31-4.2d-3*gammaaa*t29*t3*t30 180 t33 = 1/t12**3 181 t34 = 1/t11**2 182 t35 = 1.413716694115413d+1*t14*t16*t32*t34-2.827433388230826 183 1 d+1*rhoa*t16*t17 184 t36 = 1.26d-2*t3*t4/t1+1.26d-2*t27*t28 185 t37 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t30*t36 186 fnc(iq) = 2*t24*t7*wght+fnc(iq) 187 Amat(iq,D1_RA) = (t7*(-3.5461536035682834d-1*t10*t12*t8*t9*( 188 1 2.659615202676212d-1*t10*t12*(-3.536776513153214d-2*t11*t 189 2 13*t15*t18*t35+t18*t35-3.536776513153214d-2*t13*t15*t19*t 190 3 32+7.073553026306428d-2*t11*t13*t19/rhoa**3)*t9+1.3298076 191 4 01338106d-1*t10*t20*t22*t32*t9-2.659615202676212d-1*t12*t 192 5 15*t20*t9+3.5449077018110403d+0*t18*t25*(3.75994241194650 193 6 9d+0*t21*t22-1.8799712059732546d+0*rhoa*t21*t32*t33))-1.7 194 7 730768017841417d-1*t10*t22*t23*t32*t8*t9+3.54615360356828 195 8 34d-1*t12*t15*t23*t8*t9)+t24*(5.599999999999999d-3*gammaa 196 9 a*t26*t6-1.2407009817988002d+0*t31+4.2d-3*gammaaa*t29*t3* 197 : t30))*wght+Amat(iq,D1_RA) 198 Cmat(iq,D1_GAA) = (t7*(-3.5461536035682834d-1*t10*t12*t8*t9* 199 1 (2.659615202676212d-1*t10*t12*(1.413716694115413d+1*t14*t 200 2 16*t18*t34*t37-3.536776513153214d-2*t13*t15*t19*t37-5.0d- 201 3 1*t17*t18*t37)*t9+1.329807601338106d-1*t10*t20*t22*t37*t9 202 4 -6.66432440723758d+0*rhoa*t18*t21*t25*t33*t37)-1.77307680 203 5 17841417d-1*t10*t22*t23*t37*t8*t9)+t24*(4.2d-3*gammaaa*t3 204 6 *t30*t36-4.2d-3*t3*t6))*wght+Cmat(iq,D1_GAA) 205 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 206 endif ! rhoa.gt.tol_rho 207 else ! ipol.eq.1 208 rhoa = rho(iq,R_A) 209 rhob = rho(iq,R_B) 210 gammaaa = rgamma(iq,G_AA) 211 gammaab = rgamma(iq,G_AB) 212 gammabb = rgamma(iq,G_BB) 213 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 214 t1 = gammaaa**5.0d-1 215 t2 = rhoa**1.3333333333333333d+0 216 t3 = 1/t2 217 t4 = asinh(t1*t3) 218 t5 = 2.52d-2*t1*t3*t4+1.0d+0 219 t6 = 1/t5 220 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 221 t8 = -param(1) 222 t9 = param(2) 223 t10 = param(3) 224 t11 = 1/rhoa 225 t12 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 226 t13 = t12**5.0d-1 227 t14 = t10**2 228 t15 = rhoa**2 229 t16 = 1/t15 230 t17 = 1/t14 231 t18 = 1/t12 232 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 233 t20 = t19-1.0d+0 234 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 235 t22 = 1/t10 236 t23 = 1/t13 237 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 238 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 239 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9+t8+1.0d+0 240 t26 = gammabb**5.0d-1 241 t27 = rhob**1.3333333333333333d+0 242 t28 = 1/t27 243 t29 = asinh(t26*t28) 244 t30 = 2.52d-2*t26*t28*t29+1.0d+0 245 t31 = 1/t30 246 t32 = -4.2d-3*gammabb*t28*t31-9.305257363491002d-1*t27 247 t33 = 1/rhob 248 t34 = 4.2d-3*gammabb*t28*t31+9.305257363491002d-1*t27 249 t35 = t34**5.0d-1 250 t36 = rhob**2 251 t37 = 1/t36 252 t38 = 1/t34 253 t39 = exp(-1.413716694115413d+1*t17*t36*t38) 254 t40 = t39-1.0d+0 255 t41 = -3.536776513153214d-2*t14*t34*t37*t40+t39-1.5d+0 256 t42 = 1/t35 257 t43 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 258 1 2*t42)+2.659615202676212d-1*t10*t33*t35*t41 259 t44 = -3.5461536035682834d-1*t10*t33*t35*t43*t9+t8+1.0d+0 260 t45 = 5.641895835477563d-1 261 t46 = 1/rhoa**2.3333333333333334d+0 262 t47 = 1/rhoa**2.6666666666666666d+0 263 t48 = 1/(gammaaa*t47+1)**5.0d-1 264 t49 = -3.3599999999999997d-2*gammaaa*t48/rhoa**3.66666666666 265 1 66664d+0-3.3599999999999997d-2*t1*t4*t46 266 t50 = 1/t5**2 267 t51 = rhoa**3.333333333333333d-1 268 t52 = -5.599999999999999d-3*gammaaa*t46*t6+1.240700981798800 269 1 2d+0*t51-4.2d-3*gammaaa*t3*t49*t50 270 t53 = 1/t13**3 271 t54 = 1/t12**2 272 t55 = 1.413716694115413d+1*t15*t17*t52*t54-2.827433388230826 273 1 d+1*rhoa*t17*t18 274 t56 = 1/rhob**2.3333333333333334d+0 275 t57 = 1/rhob**2.6666666666666666d+0 276 t58 = 1/(gammabb*t57+1)**5.0d-1 277 t59 = -3.3599999999999997d-2*gammabb*t58/rhob**3.66666666666 278 1 66664d+0-3.3599999999999997d-2*t26*t29*t56 279 t60 = 1/t30**2 280 t61 = rhob**3.333333333333333d-1 281 t62 = 1.2407009817988002d+0*t61-4.2d-3*gammabb*t28*t59*t60-5 282 1 .599999999999999d-3*gammabb*t31*t56 283 t63 = 1/t35**3 284 t64 = 1/t34**2 285 t65 = 1.413716694115413d+1*t17*t36*t62*t64-2.827433388230826 286 1 d+1*rhob*t17*t38 287 t66 = 1.26d-2*t47*t48+1.26d-2*t3*t4/t1 288 t67 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t50*t66 289 t68 = 1.26d-2*t57*t58+1.26d-2*t28*t29/t26 290 t69 = 4.2d-3*t28*t31-4.2d-3*gammabb*t28*t60*t68 291 fnc(iq) = (t25*t7+t32*t44)*wght+fnc(iq) 292 Amat(iq,D1_RA) = (t7*(-3.5461536035682834d-1*t10*t11*t13*(2. 293 1 659615202676212d-1*t10*t11*t13*(-3.536776513153214d-2*t12 294 2 *t14*t16*t19*t55+t19*t55-3.536776513153214d-2*t14*t16*t20 295 3 *t52+7.073553026306428d-2*t12*t14*t20/rhoa**3)+3.54490770 296 4 18110403d+0*t19*t45*(3.759942411946509d+0*t22*t23-1.87997 297 5 12059732546d+0*rhoa*t22*t52*t53)+1.329807601338106d-1*t10 298 6 *t11*t21*t23*t52-2.659615202676212d-1*t10*t13*t16*t21)*t9 299 7 -1.7730768017841417d-1*t10*t11*t23*t24*t52*t9+3.546153603 300 8 5682834d-1*t10*t13*t16*t24*t9)+t25*(5.599999999999999d-3* 301 9 gammaaa*t46*t6-1.2407009817988002d+0*t51+4.2d-3*gammaaa*t 302 : 3*t49*t50))*wght+Amat(iq,D1_RA) 303 Amat(iq,D1_RB) = (t32*(-3.5461536035682834d-1*t10*t33*t35*(2 304 1 .659615202676212d-1*t10*t33*t35*(-3.536776513153214d-2*t1 305 2 4*t34*t37*t39*t65+t39*t65-3.536776513153214d-2*t14*t37*t4 306 3 0*t62+7.073553026306428d-2*t14*t34*t40/rhob**3)+3.5449077 307 4 018110403d+0*t39*t45*(3.759942411946509d+0*t22*t42-1.8799 308 5 712059732546d+0*rhob*t22*t62*t63)+1.329807601338106d-1*t1 309 6 0*t33*t41*t42*t62-2.659615202676212d-1*t10*t35*t37*t41)*t 310 7 9-1.7730768017841417d-1*t10*t33*t42*t43*t62*t9+3.54615360 311 8 35682834d-1*t10*t35*t37*t43*t9)+t44*(-1.2407009817988002d 312 9 +0*t61+4.2d-3*gammabb*t28*t59*t60+5.599999999999999d-3*ga 313 : mmabb*t31*t56))*wght+Amat(iq,D1_RB) 314 Cmat(iq,D1_GAA) = (t7*(-3.5461536035682834d-1*t10*t11*t13*(2 315 1 .659615202676212d-1*t10*t11*t13*(1.413716694115413d+1*t15 316 2 *t17*t19*t54*t67-3.536776513153214d-2*t14*t16*t20*t67-5.0 317 3 d-1*t18*t19*t67)-6.66432440723758d+0*rhoa*t19*t22*t45*t53 318 4 *t67+1.329807601338106d-1*t10*t11*t21*t23*t67)*t9-1.77307 319 5 68017841417d-1*t10*t11*t23*t24*t67*t9)+t25*(4.2d-3*gammaa 320 6 a*t3*t50*t66-4.2d-3*t3*t6))*wght+Cmat(iq,D1_GAA) 321 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 322 Cmat(iq,D1_GBB) = (t32*(-3.5461536035682834d-1*t10*t33*t35*( 323 1 2.659615202676212d-1*t10*t33*t35*(1.413716694115413d+1*t1 324 2 7*t36*t39*t64*t69-3.536776513153214d-2*t14*t37*t40*t69-5. 325 3 0d-1*t38*t39*t69)-6.66432440723758d+0*rhob*t22*t39*t45*t6 326 4 3*t69+1.329807601338106d-1*t10*t33*t41*t42*t69)*t9-1.7730 327 5 768017841417d-1*t10*t33*t42*t43*t69*t9)+t44*(4.2d-3*gamma 328 6 bb*t28*t60*t68-4.2d-3*t28*t31))*wght+Cmat(iq,D1_GBB) 329 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 330 t1 = gammaaa**5.0d-1 331 t2 = rhoa**1.3333333333333333d+0 332 t3 = 1/t2 333 t4 = asinh(t1*t3) 334 t5 = 2.52d-2*t1*t3*t4+1.0d+0 335 t6 = 1/t5 336 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 337 t8 = param(2) 338 t9 = param(3) 339 t10 = 1/rhoa 340 t11 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 341 t12 = t11**5.0d-1 342 t13 = t9**2 343 t14 = rhoa**2 344 t15 = 1/t14 345 t16 = 1/t13 346 t17 = 1/t11 347 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 348 t19 = t18-1.0d+0 349 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 350 t21 = 1/t9 351 t22 = 1/t12 352 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 353 1 d+0*erf(3.759942411946509d+0*rhoa*t21*t22) 354 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 355 1 +0 356 t25 = 5.641895835477563d-1 357 t26 = 1/rhoa**2.3333333333333334d+0 358 t27 = 1/rhoa**2.6666666666666666d+0 359 t28 = 1/(gammaaa*t27+1)**5.0d-1 360 t29 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 361 1 *gammaaa*t28/rhoa**3.6666666666666664d+0 362 t30 = 1/t5**2 363 t31 = rhoa**3.333333333333333d-1 364 t32 = -5.599999999999999d-3*gammaaa*t26*t6+1.240700981798800 365 1 2d+0*t31-4.2d-3*gammaaa*t29*t3*t30 366 t33 = 1/t12**3 367 t34 = 1/t11**2 368 t35 = 1.413716694115413d+1*t14*t16*t32*t34-2.827433388230826 369 1 d+1*rhoa*t16*t17 370 t36 = 1.26d-2*t3*t4/t1+1.26d-2*t27*t28 371 t37 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t30*t36 372 fnc(iq) = t24*t7*wght+fnc(iq) 373 Amat(iq,D1_RA) = t7*(-3.5461536035682834d-1*t10*t12*t8*t9*(2 374 1 .659615202676212d-1*t10*t12*(-3.536776513153214d-2*t11*t1 375 2 3*t15*t18*t35+t18*t35-3.536776513153214d-2*t13*t15*t19*t3 376 3 2+7.073553026306428d-2*t11*t13*t19/rhoa**3)*t9+1.32980760 377 4 1338106d-1*t10*t20*t22*t32*t9-2.659615202676212d-1*t12*t1 378 5 5*t20*t9+3.5449077018110403d+0*t18*t25*(3.759942411946509 379 6 d+0*t21*t22-1.8799712059732546d+0*rhoa*t21*t32*t33))-1.77 380 7 30768017841417d-1*t10*t22*t23*t32*t8*t9+3.546153603568283 381 8 4d-1*t12*t15*t23*t8*t9)*wght+t24*(5.599999999999999d-3*ga 382 9 mmaaa*t26*t6-1.2407009817988002d+0*t31+4.2d-3*gammaaa*t29 383 : *t3*t30)*wght+Amat(iq,D1_RA) 384 Cmat(iq,D1_GAA) = t7*(-3.5461536035682834d-1*t10*t12*t8*t9*( 385 1 2.659615202676212d-1*t10*t12*(1.413716694115413d+1*t14*t1 386 2 6*t18*t34*t37-3.536776513153214d-2*t13*t15*t19*t37-5.0d-1 387 3 *t17*t18*t37)*t9+1.329807601338106d-1*t10*t20*t22*t37*t9- 388 4 6.66432440723758d+0*rhoa*t18*t21*t25*t33*t37)-1.773076801 389 5 7841417d-1*t10*t22*t23*t37*t8*t9)*wght+t24*(4.2d-3*gammaa 390 6 a*t3*t30*t36-4.2d-3*t3*t6)*wght+Cmat(iq,D1_GAA) 391 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 392 t1 = gammabb**5.0d-1 393 t2 = rhob**1.3333333333333333d+0 394 t3 = 1/t2 395 t4 = asinh(t1*t3) 396 t5 = 2.52d-2*t1*t3*t4+1.0d+0 397 t6 = 1/t5 398 t7 = -4.2d-3*gammabb*t3*t6-9.305257363491002d-1*t2 399 t8 = param(2) 400 t9 = param(3) 401 t10 = 1/rhob 402 t11 = 4.2d-3*gammabb*t3*t6+9.305257363491002d-1*t2 403 t12 = t11**5.0d-1 404 t13 = t9**2 405 t14 = rhob**2 406 t15 = 1/t14 407 t16 = 1/t13 408 t17 = 1/t11 409 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 410 t19 = t18-1.0d+0 411 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 412 t21 = 1/t9 413 t22 = 1/t12 414 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 415 1 d+0*erf(3.759942411946509d+0*rhob*t21*t22) 416 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 417 1 +0 418 t25 = 5.641895835477563d-1 419 t26 = 1/rhob**2.3333333333333334d+0 420 t27 = 1/rhob**2.6666666666666666d+0 421 t28 = 1/(gammabb*t27+1)**5.0d-1 422 t29 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 423 1 *gammabb*t28/rhob**3.6666666666666664d+0 424 t30 = 1/t5**2 425 t31 = rhob**3.333333333333333d-1 426 t32 = -5.599999999999999d-3*gammabb*t26*t6+1.240700981798800 427 1 2d+0*t31-4.2d-3*gammabb*t29*t3*t30 428 t33 = 1/t12**3 429 t34 = 1/t11**2 430 t35 = 1.413716694115413d+1*t14*t16*t32*t34-2.827433388230826 431 1 d+1*rhob*t16*t17 432 t36 = 1.26d-2*t3*t4/t1+1.26d-2*t27*t28 433 t37 = 4.2d-3*t3*t6-4.2d-3*gammabb*t3*t30*t36 434 fnc(iq) = t24*t7*wght+fnc(iq) 435 Amat(iq,D1_RB) = t7*(-3.5461536035682834d-1*t10*t12*t8*t9*(2 436 1 .659615202676212d-1*t10*t12*(-3.536776513153214d-2*t11*t1 437 2 3*t15*t18*t35+t18*t35-3.536776513153214d-2*t13*t15*t19*t3 438 3 2+7.073553026306428d-2*t11*t13*t19/rhob**3)*t9+1.32980760 439 4 1338106d-1*t10*t20*t22*t32*t9-2.659615202676212d-1*t12*t1 440 5 5*t20*t9+3.5449077018110403d+0*t18*t25*(3.759942411946509 441 6 d+0*t21*t22-1.8799712059732546d+0*rhob*t21*t32*t33))-1.77 442 7 30768017841417d-1*t10*t22*t23*t32*t8*t9+3.546153603568283 443 8 4d-1*t12*t15*t23*t8*t9)*wght+t24*(5.599999999999999d-3*ga 444 9 mmabb*t26*t6-1.2407009817988002d+0*t31+4.2d-3*gammabb*t29 445 : *t3*t30)*wght+Amat(iq,D1_RB) 446 Cmat(iq,D1_GBB) = t7*(-3.5461536035682834d-1*t10*t12*t8*t9*( 447 1 2.659615202676212d-1*t10*t12*(1.413716694115413d+1*t14*t1 448 2 6*t18*t34*t37-3.536776513153214d-2*t13*t15*t19*t37-5.0d-1 449 3 *t17*t18*t37)*t9+1.329807601338106d-1*t10*t20*t22*t37*t9- 450 4 6.66432440723758d+0*rhob*t18*t21*t25*t33*t37)-1.773076801 451 5 7841417d-1*t10*t22*t23*t37*t8*t9)*wght+t24*(4.2d-3*gammab 452 6 b*t3*t30*t36-4.2d-3*t3*t6)*wght+Cmat(iq,D1_GBB) 453 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 454 endif ! ipol.eq.1 455 enddo ! iq 456 end 457C> 458C> \brief Evaluate the nwxcm_x_camb88 functional [1] 459C> 460C> \f{eqnarray*}{ 461C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 462C> {\it t_2} &=& {{1}\over{{\it t_1}}}\\\\ 463C> {\it t_3} &=& \sqrt{\sigma_{\alpha\alpha}}\\\\ 464C> {\it t_4} &=& {{1}\over{0.0252\,{\it t_2}\,{\rm asinh}\; 465C> \left({\it t_2}\,{\it t_3}\right)\,{\it t_3}+1.0}}\\\\ 466C> {\it t_5} &=& -{\it param}\left(1\right)\\\\ 467C> {\it t_6} &=& {\it param}\left(2\right)\\\\ 468C> {\it t_7} &=& {\it param}\left(3\right)\\\\ 469C> {\it t_8} &=& {{1}\over{\rho_\alpha}}\\\\ 470C> {\it t_9} &=& 0.0042\,{\it t_2}\,{\it t_4}\,\sigma_{\alpha\alpha} 471C> +0.9305257363491002\,{\it t_1}\\\\ 472C> {\it t_{10}} &=& \sqrt{{\it t_9}}\\\\ 473C> {\it t_{11}} &=& {\it t_7}^2\\\\ 474C> {\it t_{12}} &=& \rho_\alpha^2\\\\ 475C> {\it t_{13}} &=& {{1}\over{{\it t_{11}}}}\\\\ 476C> {\it t_{14}} &=& e^ {- {{14.13716694115413\,{\it t_{12}}\,{ 477C> \it t_{13}}}\over{{\it t_9}}} }\\\\ 478C> {\it t_{15}} &=& {{1}\over{{\it t_7}}}\\\\ 479C> {\it t_{16}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 480C> {\it t_{17}} &=& {{1}\over{{\it t_{16}}}}\\\\ 481C> {\it t_{18}} &=& \sqrt{\sigma_{\beta\beta}}\\\\ 482C> {\it t_{19}} &=& {{1}\over{0.0252\,{\it t_{17}} 483C> \,{\rm asinh}\; \left({\it t_{17}}\,{\it t_{18}}\right)\,{ 484C> \it t_{18}}+1.0}}\\\\ 485C> {\it t_{20}} &=& {{1}\over{\rho_\beta}}\\\\ 486C> {\it t_{21}} &=& 0.0042\,{\it t_{17}}\,{\it t_{19}}\, 487C> \sigma_{\beta\beta}+0.9305257363491002\,{\it t_{16}}\\\\ 488C> {\it t_{22}} &=& \sqrt{{\it t_{21}}}\\\\ 489C> {\it t_{23}} &=& \rho_\beta^2\\\\ 490C> {\it t_{24}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 491C> \it t_{23}}}\over{{\it t_{21}}}} }\\\\ 492C> {\it t_{25}} &=& \rho_s^{{{4}\over{3}}}\\\\ 493C> {\it t_{26}} &=& {{1}\over{{\it t_{25}}}}\\\\ 494C> {\it t_{27}} &=& \sqrt{\sigma_{ss}}\\\\ 495C> {\it t_{28}} &=& {{1}\over{0.0252\,{\it t_{26}} 496C> \,{\rm asinh}\; \left({\it t_{26}}\,{\it t_{27}}\right)\,{ 497C> \it t_{27}}+1.0}}\\\\ 498C> {\it t_{29}} &=& {{1}\over{\rho_s}}\\\\ 499C> {\it t_{30}} &=& 0.0042\,{\it t_{26}}\,{\it t_{28}}\,\sigma_{ss} 500C> +0.9305257363491002\,{\it t_{25}}\\\\ 501C> {\it t_{31}} &=& \sqrt{{\it t_{30}}}\\\\ 502C> {\it t_{32}} &=& \rho_s^2\\\\ 503C> {\it t_{33}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 504C> \it t_{32}}}\over{{\it t_{30}}}} }\\\\ 505C> f &=& \left(-0.0042\,{\it t_{17}}\,{\it t_{19}}\, 506C> \sigma_{\beta\beta}-0.9305257363491002\,{\it t_{16}}\right) 507C> \,\left(-0.3546153603568283\,{\it t_6}\,{\it t_7}\,{ 508C> \it t_{20}}\,{\it t_{22}}\,\left(1.77245385090552 509C> \,\mathrm{erf}\left({{3.759942411946509\,{\it t_{15}} 510C> \,\rho_\beta}\over{{\it t_{22}}}}\right)+0.2659615202676212 511C> \,{\it t_7}\,{\it t_{20}}\,{\it t_{22}}\,\left({\it t_{24}} 512C> -{{0.03536776513153214\,{\it t_{11}}\,{\it t_{21}}\,\left({ 513C> \it t_{24}}-1.0\right)}\over{{\it t_{23}}}}-1.5\right)\right) 514C> +{\it t_5}+1.0\right)+\left(-0.0042\,{\it t_2}\,{\it t_4} 515C> \,\sigma_{\alpha\alpha}-0.9305257363491002\,{\it t_1}\right) 516C> \,\left(-0.3546153603568283\,{\it t_6}\,{\it t_7}\,{\it t_8} 517C> \,{\it t_{10}}\,\left(1.77245385090552\,\mathrm{erf} 518C> \left({{3.759942411946509\,{\it t_{15}}\,\rho_\alpha}\over{{ 519C> \it t_{10}}}}\right)+0.2659615202676212\,{\it t_7}\,{\it t_8} 520C> \,{\it t_{10}}\,\left({\it t_{14}}-{{0.03536776513153214\,{ 521C> \it t_{11}}\,{\it t_9}\,\left({\it t_{14}}-1.0\right)} 522C> \over{{\it t_{12}}}}-1.5\right)\right)+{\it t_5}+1.0\right)\\\\ 523C> g &=& 0\\\\ 524C> G &=& \left(-0.0042\,{\it t_{26}}\,{\it t_{28}}\,\sigma_{ss} 525C> -0.9305257363491002\,{\it t_{25}}\right)\,\left( 526C> -0.3546153603568283\,{\it t_6}\,{\it t_7}\,{\it t_{29}}\,{ 527C> \it t_{31}}\,\left(1.77245385090552\,\mathrm{erf} 528C> \left({{3.759942411946509\,{\it t_{15}}\,\rho_s}\over{{ 529C> \it t_{31}}}}\right)+0.2659615202676212\,{\it t_7}\,{ 530C> \it t_{29}}\,{\it t_{31}}\,\left({\it t_{33}} 531C> -{{0.03536776513153214\,{\it t_{11}}\,{\it t_{30}}\,\left({ 532C> \it t_{33}}-1.0\right)}\over{{\it t_{32}}}}-1.5\right)\right) 533C> +{\it t_5}+1.0\right)\\\\ 534C> \f} 535C> 536C> Code generated with Maxima 5.34.0 [2] 537C> driven by autoxc [3]. 538C> 539C> ### References ### 540C> 541C> [1] T Yanai, DP Tew, NC Handy, Chem.Phys.Lett. 393, 51 (2004) 542C> , DOI: 543C> <a href="https://doi.org/10.1016/j.cplett.2004.06.011 "> 544C> 10.1016/j.cplett.2004.06.011 </a> 545C> 546C> [2] Maxima, a computer algebra system, 547C> <a href="http://maxima.sourceforge.net/"> 548C> http://maxima.sourceforge.net/</a> 549C> 550C> [3] autoxc, revision 27097 2015-05-08 551C> 552 subroutine nwxcm_x_camb88_d2(param,tol_rho,ipol,nq,wght, 553 +rho,rgamma,fnc,Amat,Amat2,Cmat,Cmat2) 554c $Id: $ 555#ifdef NWXC_QUAD_PREC 556 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 557 integer, parameter :: rk=selected_real_kind(30) 558#else 559 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 560 integer, parameter :: rk=selected_real_kind(15) 561#endif 562#include "nwxc_param.fh" 563 double precision param(*) !< [Input] Parameters of functional 564 double precision tol_rho !< [Input] The lower limit on the density 565 integer ipol !< [Input] The number of spin channels 566 integer nq !< [Input] The number of points 567 double precision wght !< [Input] The weight of the functional 568 double precision rho(nq,*) !< [Input] The density 569 double precision rgamma(nq,*) !< [Input] The norm of the density 570 !< gradients 571 double precision fnc(nq) !< [Output] The value of the functional 572c 573c Sampling Matrices for the XC Kernel 574c 575 double precision Amat(nq,*) !< [Output] The derivative wrt rho 576 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 577c 578c Sampling Matrices for the XC Kernel 579c 580 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 581 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 582 !< and possibly rho 583 integer iq 584 double precision tmp 585 double precision rhoa,rhob 586 double precision gammaaa,gammaab,gammabb 587 double precision taua,taub 588 double precision nwxcm_heaviside 589 external nwxcm_heaviside 590CDIR$ NOVECTOR 591 do iq = 1, nq 592 if (ipol.eq.1) then 593 rhoa = 0.5d0*rho(iq,R_T) 594 gammaaa = 0.25d0*rgamma(iq,G_TT) 595 if (rhoa.gt.tol_rho) then 596 t1 = gammaaa**5.0d-1 597 t2 = rhoa**1.3333333333333333d+0 598 t3 = 1/t2 599 t4 = asinh(t1*t3) 600 t5 = 2.52d-2*t1*t3*t4+1.0d+0 601 t6 = 1/t5 602 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 603 t8 = param(2) 604 t9 = param(3) 605 t10 = 1/rhoa 606 t11 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 607 t12 = t11**5.0d-1 608 t13 = t9**2 609 t14 = rhoa**2 610 t15 = 1/t14 611 t16 = 1/t13 612 t17 = 1/t11 613 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 614 t19 = t18-1.0d+0 615 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 616 t21 = 1/t9 617 t22 = 1/t12 618 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 619 1 d+0*erf(3.759942411946509d+0*rhoa*t21*t22) 620 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 621 1 +0 622 t25 = 5.641895835477563d-1 623 t26 = 1/rhoa**2.3333333333333334d+0 624 t27 = 1/rhoa**2.6666666666666666d+0 625 t28 = (gammaaa*t27+1)**5.0d-1 626 t29 = 1/t28 627 t30 = 1/rhoa**3.6666666666666664d+0 628 t31 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 629 1 *gammaaa*t29*t30 630 t32 = 1/t5**2 631 t33 = rhoa**3.333333333333333d-1 632 t34 = -5.599999999999999d-3*gammaaa*t26*t6+1.240700981798800 633 1 2d+0*t33-4.2d-3*gammaaa*t3*t31*t32 634 t35 = 1/t12**3 635 t36 = 3.759942411946509d+0*t21*t22-1.8799712059732546d+0*rho 636 1 a*t21*t34*t35 637 t37 = rhoa**3 638 t38 = 1/t37 639 t39 = 1/t11**2 640 t40 = 1.413716694115413d+1*t14*t16*t34*t39-2.827433388230826 641 1 d+1*rhoa*t16*t17 642 t41 = -3.536776513153214d-2*t11*t13*t15*t18*t40+t18*t40+7.07 643 1 3553026306428d-2*t11*t13*t19*t38-3.536776513153214d-2*t13 644 2 *t15*t19*t34 645 t42 = 2.659615202676212d-1*t10*t12*t41*t9+1.329807601338106d 646 1 -1*t10*t20*t22*t34*t9-2.659615202676212d-1*t12*t15*t20*t9 647 2 +3.5449077018110403d+0*t18*t25*t36 648 t43 = -3.5461536035682834d-1*t10*t12*t42*t8*t9-1.77307680178 649 1 41417d-1*t10*t22*t23*t34*t8*t9+3.5461536035682834d-1*t12* 650 2 t15*t23*t8*t9 651 t44 = 5.599999999999999d-3*gammaaa*t26*t6-1.2407009817988002 652 1 d+0*t33+4.2d-3*gammaaa*t3*t31*t32 653 t45 = 1/t1 654 t46 = 1.26d-2*t3*t4*t45+1.26d-2*t27*t29 655 t47 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t32*t46 656 t48 = 1.413716694115413d+1*t14*t16*t18*t39*t47-3.53677651315 657 1 3214d-2*t13*t15*t19*t47-5.0d-1*t17*t18*t47 658 t49 = 2.659615202676212d-1*t10*t12*t48*t9+1.329807601338106d 659 1 -1*t10*t20*t22*t47*t9-6.66432440723758d+0*rhoa*t18*t21*t2 660 2 5*t35*t47 661 t50 = -3.5461536035682834d-1*t10*t12*t49*t8*t9-1.77307680178 662 1 41417d-1*t10*t22*t23*t47*t8*t9 663 t51 = 4.2d-3*gammaaa*t3*t32*t46-4.2d-3*t3*t6 664 t52 = t34**2 665 t53 = 1/t12**5 666 t54 = 1/rhoa**3.3333333333333337d+0 667 t55 = t31**2 668 t56 = 1/t5**3 669 t57 = 1/t28**3 670 t58 = -4.4799999999999995d-2*gammaaa**2*t57/rhoa**7.33333333 671 1 3333333d+0+7.84d-2*t1*t4*t54+1.6799999999999998d-1*gammaa 672 2 a*t29/rhoa**4.666666666666667d+0 673 t59 = 1/rhoa**6.666666666666666d-1 674 t60 = 1.3066666666666665d-2*gammaaa*t54*t6+4.135669939329334 675 1 d-1*t59-4.2d-3*gammaaa*t3*t32*t58+8.4d-3*gammaaa*t3*t55*t 676 2 56+1.1199999999999999d-2*gammaaa*t26*t31*t32 677 t61 = rhoa**4 678 t62 = 1/t11**3 679 t63 = -2.827433388230826d+1*t14*t16*t52*t62+1.41371669411541 680 1 3d+1*t14*t16*t39*t60+5.654866776461652d+1*rhoa*t16*t34*t3 681 2 9-2.827433388230826d+1*t16*t17 682 t64 = t40**2 683 t65 = 1.6799999999999998d-2*gammaaa*t57/rhoa**6.333333333333 684 1 333d+0-1.6799999999999998d-2*t26*t4*t45-5.04d-2*t29*t30 685 t66 = -4.2d-3*gammaaa*t3*t32*t65-5.599999999999999d-3*t26*t6 686 1 +8.4d-3*gammaaa*t3*t31*t46*t56+5.599999999999999d-3*gamma 687 2 aa*t26*t32*t46-4.2d-3*t3*t31*t32 688 t67 = 1.413716694115413d+1*t14*t16*t39*t66-2.827433388230826 689 1 d+1*t14*t16*t34*t47*t62+2.827433388230826d+1*rhoa*t16*t39 690 2 *t47 691 t68 = t47**2 692 t69 = t46**2 693 t70 = -6.3d-3*t57/rhoa**5.333333333333333d+0-6.3d-3*t3*t4/t1 694 1 **3+6.3d-3*t27*t29/gammaaa 695 t71 = -4.2d-3*gammaaa*t3*t32*t70+8.4d-3*gammaaa*t3*t56*t69-8 696 1 .4d-3*t3*t32*t46 697 fnc(iq) = 2*t24*t7*wght+fnc(iq) 698 Amat(iq,D1_RA) = (t43*t7+t24*t44)*wght+Amat(iq,D1_RA) 699 Cmat(iq,D1_GAA) = (t50*t7+t24*t51)*wght+Cmat(iq,D1_GAA) 700 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 701 Amat2(iq,D2_RA_RA) = (t7*(-3.5461536035682834d-1*t10*t12*t8* 702 1 t9*(2.659615202676212d-1*t10*t12*(-3.536776513153214d-2*t 703 2 11*t13*t15*t18*t64+t18*t64-3.536776513153214d-2*t11*t13*t 704 3 15*t18*t63+t18*t63-2.1220659078919285d-1*t11*t13*t19/t61- 705 4 3.536776513153214d-2*t13*t15*t19*t60+1.4147106052612857d- 706 5 1*t11*t13*t18*t38*t40-7.073553026306428d-2*t13*t15*t18*t3 707 6 4*t40+1.4147106052612857d-1*t13*t19*t34*t38)*t9+1.3298076 708 7 01338106d-1*t10*t20*t22*t60*t9-6.649038006690531d-2*t10*t 709 8 20*t35*t52*t9+2.659615202676212d-1*t10*t22*t34*t41*t9-5.3 710 9 19230405352424d-1*t12*t15*t41*t9+5.319230405352424d-1*t12 711 : *t20*t38*t9-2.659615202676212d-1*t15*t20*t22*t34*t9+3.544 712 ; 9077018110403d+0*t18*t25*(-1.8799712059732546d+0*rhoa*t21 713 < *t35*t60+2.8199568089598814d+0*rhoa*t21*t52*t53-3.7599424 714 = 11946509d+0*t21*t34*t35)+3.5449077018110403d+0*t18*t25*t3 715 > 6*t40)-1.7730768017841417d-1*t10*t22*t23*t60*t8*t9+8.8653 716 ? 84008920708d-2*t10*t23*t35*t52*t8*t9-3.5461536035682834d- 717 @ 1*t10*t22*t34*t42*t8*t9+7.092307207136567d-1*t12*t15*t42* 718 1 t8*t9-7.092307207136567d-1*t12*t23*t38*t8*t9+3.5461536035 719 2 682834d-1*t15*t22*t23*t34*t8*t9)+t24*(-1.3066666666666665 720 3 d-2*gammaaa*t54*t6-4.135669939329334d-1*t59+4.2d-3*gammaa 721 4 a*t3*t32*t58-8.4d-3*gammaaa*t3*t55*t56-1.1199999999999999 722 5 d-2*gammaaa*t26*t31*t32)+2*t43*t44)*wght+Amat2(iq,D2_RA_R 723 6 A) 724 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 725 Cmat2(iq,D2_RA_GAA) = (t7*(-3.5461536035682834d-1*t10*t12*t8 726 1 *t9*(2.659615202676212d-1*t10*t12*(-3.536776513153214d-2* 727 2 t11*t13*t15*t18*t67+t18*t67-3.536776513153214d-2*t13*t15* 728 3 t19*t66+1.413716694115413d+1*t14*t16*t18*t39*t40*t47-5.0d 729 4 -1*t17*t18*t40*t47-3.536776513153214d-2*t13*t15*t18*t40*t 730 5 47-5.0d-1*t18*t34*t39*t47+7.073553026306428d-2*t13*t19*t3 731 6 8*t47+1.0d+0*t10*t17*t18*t47)*t9+1.329807601338106d-1*t10 732 7 *t20*t22*t66*t9+1.329807601338106d-1*t10*t22*t34*t48*t9-2 733 8 .659615202676212d-1*t12*t15*t48*t9+1.329807601338106d-1*t 734 9 10*t22*t41*t47*t9-6.649038006690531d-2*t10*t20*t34*t35*t4 735 : 7*t9-1.329807601338106d-1*t15*t20*t22*t47*t9+3.5449077018 736 ; 110403d+0*t18*t25*(-1.8799712059732546d+0*rhoa*t21*t35*t6 737 < 6+2.8199568089598814d+0*rhoa*t21*t34*t47*t53-1.8799712059 738 = 732546d+0*t21*t35*t47)+5.01149519714857d+1*t14*t16*t18*t2 739 > 5*t36*t39*t47)-1.7730768017841417d-1*t10*t22*t23*t66*t8*t 740 ? 9-1.7730768017841417d-1*t10*t22*t34*t49*t8*t9+3.546153603 741 @ 5682834d-1*t12*t15*t49*t8*t9-1.7730768017841417d-1*t10*t2 742 1 2*t42*t47*t8*t9+8.865384008920708d-2*t10*t23*t34*t35*t47* 743 2 t8*t9+1.7730768017841417d-1*t15*t22*t23*t47*t8*t9)+t24*(4 744 3 .2d-3*gammaaa*t3*t32*t65+5.599999999999999d-3*t26*t6-8.4d 745 4 -3*gammaaa*t3*t31*t46*t56-5.599999999999999d-3*gammaaa*t2 746 5 6*t32*t46+4.2d-3*t3*t31*t32)+t43*t51+t44*t50)*wght+Cmat2( 747 6 iq,D2_RA_GAA) 748 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 749 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 750 Cmat2(iq,D2_GAA_GAA) = (t7*(-3.5461536035682834d-1*t10*t12*t 751 1 8*t9*(2.659615202676212d-1*t10*t12*(1.9985948912206125d+2 752 2 *t18*t61*t68/(t11**4*t9**4)+1.413716694115413d+1*t14*t16* 753 3 t18*t39*t71-3.536776513153214d-2*t13*t15*t19*t71-5.0d-1*t 754 4 17*t18*t71-3.534291735288533d+1*t14*t16*t18*t62*t68)*t9+1 755 5 .329807601338106d-1*t10*t20*t22*t71*t9-6.649038006690531d 756 6 -2*t10*t20*t35*t68*t9+2.659615202676212d-1*t10*t22*t47*t4 757 7 8*t9-9.421466669512572d+1*t18*t25*t37*t68/(t12**7*t9**3)- 758 8 6.66432440723758d+0*rhoa*t18*t21*t25*t35*t71+9.9964866108 759 9 56369d+0*rhoa*t18*t21*t25*t53*t68)-1.7730768017841417d-1* 760 : t10*t22*t23*t71*t8*t9+8.865384008920708d-2*t10*t23*t35*t6 761 ; 8*t8*t9-3.5461536035682834d-1*t10*t22*t47*t49*t8*t9)+t24* 762 < (4.2d-3*gammaaa*t3*t32*t70-8.4d-3*gammaaa*t3*t56*t69+8.4d 763 = -3*t3*t32*t46)+2*t50*t51)*wght+Cmat2(iq,D2_GAA_GAA) 764 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 765 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 766 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 767 endif ! rhoa.gt.tol_rho 768 else ! ipol.eq.1 769 rhoa = rho(iq,R_A) 770 rhob = rho(iq,R_B) 771 gammaaa = rgamma(iq,G_AA) 772 gammaab = rgamma(iq,G_AB) 773 gammabb = rgamma(iq,G_BB) 774 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 775 t1 = gammaaa**5.0d-1 776 t2 = rhoa**1.3333333333333333d+0 777 t3 = 1/t2 778 t4 = asinh(t1*t3) 779 t5 = 2.52d-2*t1*t3*t4+1.0d+0 780 t6 = 1/t5 781 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 782 t8 = -param(1) 783 t9 = param(2) 784 t10 = param(3) 785 t11 = 1/rhoa 786 t12 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 787 t13 = t12**5.0d-1 788 t14 = t10**2 789 t15 = rhoa**2 790 t16 = 1/t15 791 t17 = 1/t14 792 t18 = 1/t12 793 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 794 t20 = t19-1.0d+0 795 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 796 t22 = 1/t10 797 t23 = 1/t13 798 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 799 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 800 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9+t8+1.0d+0 801 t26 = gammabb**5.0d-1 802 t27 = rhob**1.3333333333333333d+0 803 t28 = 1/t27 804 t29 = asinh(t26*t28) 805 t30 = 2.52d-2*t26*t28*t29+1.0d+0 806 t31 = 1/t30 807 t32 = -4.2d-3*gammabb*t28*t31-9.305257363491002d-1*t27 808 t33 = 1/rhob 809 t34 = 4.2d-3*gammabb*t28*t31+9.305257363491002d-1*t27 810 t35 = t34**5.0d-1 811 t36 = rhob**2 812 t37 = 1/t36 813 t38 = 1/t34 814 t39 = exp(-1.413716694115413d+1*t17*t36*t38) 815 t40 = t39-1.0d+0 816 t41 = -3.536776513153214d-2*t14*t34*t37*t40+t39-1.5d+0 817 t42 = 1/t35 818 t43 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 819 1 2*t42)+2.659615202676212d-1*t10*t33*t35*t41 820 t44 = -3.5461536035682834d-1*t10*t33*t35*t43*t9+t8+1.0d+0 821 t45 = 5.641895835477563d-1 822 t46 = 1/rhoa**2.3333333333333334d+0 823 t47 = 1/rhoa**2.6666666666666666d+0 824 t48 = (gammaaa*t47+1)**5.0d-1 825 t49 = 1/t48 826 t50 = 1/rhoa**3.6666666666666664d+0 827 t51 = -3.3599999999999997d-2*gammaaa*t49*t50-3.3599999999999 828 1 997d-2*t1*t4*t46 829 t52 = 1/t5**2 830 t53 = rhoa**3.333333333333333d-1 831 t54 = -5.599999999999999d-3*gammaaa*t46*t6+1.240700981798800 832 1 2d+0*t53-4.2d-3*gammaaa*t3*t51*t52 833 t55 = 1/t13**3 834 t56 = 3.759942411946509d+0*t22*t23-1.8799712059732546d+0*rho 835 1 a*t22*t54*t55 836 t57 = rhoa**3 837 t58 = 1/t57 838 t59 = 1/t12**2 839 t60 = 1.413716694115413d+1*t15*t17*t54*t59-2.827433388230826 840 1 d+1*rhoa*t17*t18 841 t61 = -3.536776513153214d-2*t12*t14*t16*t19*t60+t19*t60+7.07 842 1 3553026306428d-2*t12*t14*t20*t58-3.536776513153214d-2*t14 843 2 *t16*t20*t54 844 t62 = 2.659615202676212d-1*t10*t11*t13*t61+3.544907701811040 845 1 3d+0*t19*t45*t56+1.329807601338106d-1*t10*t11*t21*t23*t54 846 2 -2.659615202676212d-1*t10*t13*t16*t21 847 t63 = -3.5461536035682834d-1*t10*t11*t13*t62*t9-1.7730768017 848 1 841417d-1*t10*t11*t23*t24*t54*t9+3.5461536035682834d-1*t1 849 2 0*t13*t16*t24*t9 850 t64 = 5.599999999999999d-3*gammaaa*t46*t6-1.2407009817988002 851 1 d+0*t53+4.2d-3*gammaaa*t3*t51*t52 852 t65 = 1/rhob**2.3333333333333334d+0 853 t66 = 1/rhob**2.6666666666666666d+0 854 t67 = (gammabb*t66+1)**5.0d-1 855 t68 = 1/t67 856 t69 = 1/rhob**3.6666666666666664d+0 857 t70 = -3.3599999999999997d-2*gammabb*t68*t69-3.3599999999999 858 1 997d-2*t26*t29*t65 859 t71 = 1/t30**2 860 t72 = rhob**3.333333333333333d-1 861 t73 = 1.2407009817988002d+0*t72-4.2d-3*gammabb*t28*t70*t71-5 862 1 .599999999999999d-3*gammabb*t31*t65 863 t74 = 1/t35**3 864 t75 = 3.759942411946509d+0*t22*t42-1.8799712059732546d+0*rho 865 1 b*t22*t73*t74 866 t76 = rhob**3 867 t77 = 1/t76 868 t78 = 1/t34**2 869 t79 = 1.413716694115413d+1*t17*t36*t73*t78-2.827433388230826 870 1 d+1*rhob*t17*t38 871 t80 = -3.536776513153214d-2*t14*t34*t37*t39*t79+t39*t79+7.07 872 1 3553026306428d-2*t14*t34*t40*t77-3.536776513153214d-2*t14 873 2 *t37*t40*t73 874 t81 = 2.659615202676212d-1*t10*t33*t35*t80+3.544907701811040 875 1 3d+0*t39*t45*t75+1.329807601338106d-1*t10*t33*t41*t42*t73 876 2 -2.659615202676212d-1*t10*t35*t37*t41 877 t82 = -3.5461536035682834d-1*t10*t33*t35*t81*t9-1.7730768017 878 1 841417d-1*t10*t33*t42*t43*t73*t9+3.5461536035682834d-1*t1 879 2 0*t35*t37*t43*t9 880 t83 = -1.2407009817988002d+0*t72+4.2d-3*gammabb*t28*t70*t71+ 881 1 5.599999999999999d-3*gammabb*t31*t65 882 t84 = 1/t1 883 t85 = 1.26d-2*t3*t4*t84+1.26d-2*t47*t49 884 t86 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t52*t85 885 t87 = 1.413716694115413d+1*t15*t17*t19*t59*t86-3.53677651315 886 1 3214d-2*t14*t16*t20*t86-5.0d-1*t18*t19*t86 887 t88 = 2.659615202676212d-1*t10*t11*t13*t87-6.66432440723758d 888 1 +0*rhoa*t19*t22*t45*t55*t86+1.329807601338106d-1*t10*t11* 889 2 t21*t23*t86 890 t89 = -3.5461536035682834d-1*t10*t11*t13*t88*t9-1.7730768017 891 1 841417d-1*t10*t11*t23*t24*t86*t9 892 t90 = 4.2d-3*gammaaa*t3*t52*t85-4.2d-3*t3*t6 893 t91 = 1/t26 894 t92 = 1.26d-2*t28*t29*t91+1.26d-2*t66*t68 895 t93 = 4.2d-3*t28*t31-4.2d-3*gammabb*t28*t71*t92 896 t94 = 1.413716694115413d+1*t17*t36*t39*t78*t93-3.53677651315 897 1 3214d-2*t14*t37*t40*t93-5.0d-1*t38*t39*t93 898 t95 = 2.659615202676212d-1*t10*t33*t35*t94-6.66432440723758d 899 1 +0*rhob*t22*t39*t45*t74*t93+1.329807601338106d-1*t10*t33* 900 2 t41*t42*t93 901 t96 = -3.5461536035682834d-1*t10*t33*t35*t9*t95-1.7730768017 902 1 841417d-1*t10*t33*t42*t43*t9*t93 903 t97 = 4.2d-3*gammabb*t28*t71*t92-4.2d-3*t28*t31 904 t98 = t54**2 905 t99 = 1/t13**5 906 t100 = 1/rhoa**3.3333333333333337d+0 907 t101 = t51**2 908 t102 = 1/t5**3 909 t103 = 1/t48**3 910 t104 = 1.6799999999999998d-1*gammaaa*t49/rhoa**4.66666666666 911 1 6667d+0+7.84d-2*t1*t100*t4-4.4799999999999995d-2*gammaaa* 912 2 *2*t103/rhoa**7.333333333333333d+0 913 t105 = 1/rhoa**6.666666666666666d-1 914 t106 = 1.3066666666666665d-2*gammaaa*t100*t6+1.1199999999999 915 1 999d-2*gammaaa*t46*t51*t52-4.2d-3*gammaaa*t104*t3*t52+8.4 916 2 d-3*gammaaa*t101*t102*t3+4.135669939329334d-1*t105 917 t107 = rhoa**4 918 t108 = 1/t12**3 919 t109 = -2.827433388230826d+1*t108*t15*t17*t98+5.654866776461 920 1 652d+1*rhoa*t17*t54*t59+1.413716694115413d+1*t106*t15*t17 921 2 *t59-2.827433388230826d+1*t17*t18 922 t110 = t60**2 923 t111 = t73**2 924 t112 = 1/t35**5 925 t113 = 1/rhob**3.3333333333333337d+0 926 t114 = t70**2 927 t115 = 1/t30**3 928 t116 = 1/t67**3 929 t117 = 1.6799999999999998d-1*gammabb*t68/rhob**4.66666666666 930 1 6667d+0+7.84d-2*t113*t26*t29-4.4799999999999995d-2*gammab 931 2 b**2*t116/rhob**7.333333333333333d+0 932 t118 = 1/rhob**6.666666666666666d-1 933 t119 = 1.1199999999999999d-2*gammabb*t65*t70*t71-4.2d-3*gamm 934 1 abb*t117*t28*t71+1.3066666666666665d-2*gammabb*t113*t31+8 935 2 .4d-3*gammabb*t114*t115*t28+4.135669939329334d-1*t118 936 t120 = rhob**4 937 t121 = 1/t34**3 938 t122 = 5.654866776461652d+1*rhob*t17*t73*t78+1.4137166941154 939 1 13d+1*t119*t17*t36*t78-2.827433388230826d+1*t17*t38-2.827 940 2 433388230826d+1*t111*t121*t17*t36 941 t123 = t79**2 942 t124 = -1.6799999999999998d-2*t4*t46*t84-5.04d-2*t49*t50+1.6 943 1 799999999999998d-2*gammaaa*t103/rhoa**6.333333333333333d+ 944 2 0 945 t125 = 5.599999999999999d-3*gammaaa*t46*t52*t85+8.4d-3*gamma 946 1 aa*t102*t3*t51*t85-5.599999999999999d-3*t46*t6-4.2d-3*t3* 947 2 t51*t52-4.2d-3*gammaaa*t124*t3*t52 948 t126 = 2.827433388230826d+1*rhoa*t17*t59*t86-2.8274333882308 949 1 26d+1*t108*t15*t17*t54*t86+1.413716694115413d+1*t125*t15* 950 2 t17*t59 951 t127 = -1.6799999999999998d-2*t29*t65*t91-5.04d-2*t68*t69+1. 952 1 6799999999999998d-2*gammabb*t116/rhob**6.333333333333333d 953 2 +0 954 t128 = 5.599999999999999d-3*gammabb*t65*t71*t92+8.4d-3*gamma 955 1 bb*t115*t28*t70*t92-4.2d-3*t28*t70*t71-4.2d-3*gammabb*t12 956 2 7*t28*t71-5.599999999999999d-3*t31*t65 957 t129 = 2.827433388230826d+1*rhob*t17*t78*t93-2.8274333882308 958 1 26d+1*t121*t17*t36*t73*t93+1.413716694115413d+1*t128*t17* 959 2 t36*t78 960 t130 = 1/t10**3 961 t131 = t86**2 962 t132 = t85**2 963 t133 = 6.3d-3*t47*t49/gammaaa-6.3d-3*t3*t4/t1**3-6.3d-3*t103 964 1 /rhoa**5.333333333333333d+0 965 t134 = -8.4d-3*t3*t52*t85-4.2d-3*gammaaa*t133*t3*t52+8.4d-3* 966 1 gammaaa*t102*t132*t3 967 t135 = 1/t10**4 968 t136 = t93**2 969 t137 = t92**2 970 t138 = 6.3d-3*t66*t68/gammabb-6.3d-3*t28*t29/t26**3-6.3d-3*t 971 1 116/rhob**5.333333333333333d+0 972 t139 = -8.4d-3*t28*t71*t92-4.2d-3*gammabb*t138*t28*t71+8.4d- 973 1 3*gammabb*t115*t137*t28 974 fnc(iq) = (t25*t7+t32*t44)*wght+fnc(iq) 975 Amat(iq,D1_RA) = (t63*t7+t25*t64)*wght+Amat(iq,D1_RA) 976 Amat(iq,D1_RB) = (t44*t83+t32*t82)*wght+Amat(iq,D1_RB) 977 Cmat(iq,D1_GAA) = (t25*t90+t7*t89)*wght+Cmat(iq,D1_GAA) 978 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 979 Cmat(iq,D1_GBB) = (t44*t97+t32*t96)*wght+Cmat(iq,D1_GBB) 980 Amat2(iq,D2_RA_RA) = (t7*(-3.5461536035682834d-1*t10*t11*t13 981 1 *t9*(3.5449077018110403d+0*t19*t45*(2.8199568089598814d+0 982 2 *rhoa*t22*t98*t99-3.759942411946509d+0*t22*t54*t55-1.8799 983 3 712059732546d+0*rhoa*t106*t22*t55)-6.649038006690531d-2*t 984 4 10*t11*t21*t55*t98+2.659615202676212d-1*t10*t11*t23*t54*t 985 5 61-5.319230405352424d-1*t10*t13*t16*t61+2.659615202676212 986 6 d-1*t10*t11*t13*(1.4147106052612857d-1*t12*t14*t19*t58*t6 987 7 0-7.073553026306428d-2*t14*t16*t19*t54*t60+1.414710605261 988 8 2857d-1*t14*t20*t54*t58-3.536776513153214d-2*t106*t14*t16 989 9 *t20-2.1220659078919285d-1*t12*t14*t20/t107-3.53677651315 990 : 3214d-2*t110*t12*t14*t16*t19-3.536776513153214d-2*t109*t1 991 ; 2*t14*t16*t19+t110*t19+t109*t19)+3.5449077018110403d+0*t1 992 < 9*t45*t56*t60+5.319230405352424d-1*t10*t13*t21*t58-2.6596 993 = 15202676212d-1*t10*t16*t21*t23*t54+1.329807601338106d-1*t 994 > 10*t106*t11*t21*t23)+8.865384008920708d-2*t10*t11*t24*t55 995 ? *t9*t98-3.5461536035682834d-1*t10*t11*t23*t54*t62*t9+7.09 996 @ 2307207136567d-1*t10*t13*t16*t62*t9-7.092307207136567d-1* 997 1 t10*t13*t24*t58*t9+3.5461536035682834d-1*t10*t16*t23*t24* 998 2 t54*t9-1.7730768017841417d-1*t10*t106*t11*t23*t24*t9)+2*t 999 3 63*t64+t25*(-1.3066666666666665d-2*gammaaa*t100*t6-1.1199 1000 4 999999999999d-2*gammaaa*t46*t51*t52+4.2d-3*gammaaa*t104*t 1001 5 3*t52-8.4d-3*gammaaa*t101*t102*t3-4.135669939329334d-1*t1 1002 6 05))*wght+Amat2(iq,D2_RA_RA) 1003 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 1004 Amat2(iq,D2_RB_RB) = (t32*(-3.5461536035682834d-1*t10*t33*t4 1005 1 2*t73*t81*t9+7.092307207136567d-1*t10*t35*t37*t81*t9-3.54 1006 2 61536035682834d-1*t10*t33*t35*(2.659615202676212d-1*t10*t 1007 3 33*t42*t73*t80-5.319230405352424d-1*t10*t35*t37*t80+2.659 1008 4 615202676212d-1*t10*t33*t35*(1.4147106052612857d-1*t14*t3 1009 5 4*t39*t77*t79-7.073553026306428d-2*t14*t37*t39*t73*t79+1. 1010 6 4147106052612857d-1*t14*t40*t73*t77-3.536776513153214d-2* 1011 7 t119*t14*t37*t40-2.1220659078919285d-1*t14*t34*t40/t120-3 1012 8 .536776513153214d-2*t123*t14*t34*t37*t39-3.53677651315321 1013 9 4d-2*t122*t14*t34*t37*t39+t123*t39+t122*t39)+3.5449077018 1014 : 110403d+0*t39*t45*t75*t79+5.319230405352424d-1*t10*t35*t4 1015 ; 1*t77+3.5449077018110403d+0*t39*t45*(-3.759942411946509d+ 1016 < 0*t22*t73*t74-1.8799712059732546d+0*rhob*t119*t22*t74+2.8 1017 = 199568089598814d+0*rhob*t111*t112*t22)-6.649038006690531d 1018 > -2*t10*t111*t33*t41*t74-2.659615202676212d-1*t10*t37*t41* 1019 ? t42*t73+1.329807601338106d-1*t10*t119*t33*t41*t42)*t9-7.0 1020 @ 92307207136567d-1*t10*t35*t43*t77*t9+8.865384008920708d-2 1021 1 *t10*t111*t33*t43*t74*t9+3.5461536035682834d-1*t10*t37*t4 1022 2 2*t43*t73*t9-1.7730768017841417d-1*t10*t119*t33*t42*t43*t 1023 3 9)+2*t82*t83+t44*(-1.1199999999999999d-2*gammabb*t65*t70* 1024 4 t71+4.2d-3*gammabb*t117*t28*t71-1.3066666666666665d-2*gam 1025 5 mabb*t113*t31-8.4d-3*gammabb*t114*t115*t28-4.135669939329 1026 6 334d-1*t118))*wght+Amat2(iq,D2_RB_RB) 1027 Cmat2(iq,D2_RA_GAA) = (t7*(-3.5461536035682834d-1*t10*t11*t1 1028 1 3*t9*(3.5449077018110403d+0*t19*t45*(2.8199568089598814d+ 1029 2 0*rhoa*t22*t54*t86*t99-1.8799712059732546d+0*t22*t55*t86- 1030 3 1.8799712059732546d+0*rhoa*t125*t22*t55)+1.32980760133810 1031 4 6d-1*t10*t11*t23*t54*t87-2.659615202676212d-1*t10*t13*t16 1032 5 *t87+2.659615202676212d-1*t10*t11*t13*(1.413716694115413d 1033 6 +1*t15*t17*t19*t59*t60*t86-5.0d-1*t18*t19*t60*t86-3.53677 1034 7 6513153214d-2*t14*t16*t19*t60*t86-5.0d-1*t19*t54*t59*t86+ 1035 8 7.073553026306428d-2*t14*t20*t58*t86+1.0d+0*t11*t18*t19*t 1036 9 86-3.536776513153214d-2*t125*t14*t16*t20-3.53677651315321 1037 : 4d-2*t12*t126*t14*t16*t19+t126*t19)+1.329807601338106d-1* 1038 ; t10*t11*t23*t61*t86+5.01149519714857d+1*t15*t17*t19*t45*t 1039 < 56*t59*t86-6.649038006690531d-2*t10*t11*t21*t54*t55*t86-1 1040 = .329807601338106d-1*t10*t16*t21*t23*t86+1.329807601338106 1041 > d-1*t10*t11*t125*t21*t23)-1.7730768017841417d-1*t10*t11*t 1042 ? 23*t54*t88*t9+3.5461536035682834d-1*t10*t13*t16*t88*t9-1. 1043 @ 7730768017841417d-1*t10*t11*t23*t62*t86*t9+8.865384008920 1044 1 708d-2*t10*t11*t24*t54*t55*t86*t9+1.7730768017841417d-1*t 1045 2 10*t16*t23*t24*t86*t9-1.7730768017841417d-1*t10*t11*t125* 1046 3 t23*t24*t9)+t63*t90+t64*t89+t25*(-5.599999999999999d-3*ga 1047 4 mmaaa*t46*t52*t85-8.4d-3*gammaaa*t102*t3*t51*t85+5.599999 1048 5 999999999d-3*t46*t6+4.2d-3*t3*t51*t52+4.2d-3*gammaaa*t124 1049 6 *t3*t52))*wght+Cmat2(iq,D2_RA_GAA) 1050 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 1051 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 1052 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 1053 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 1054 Cmat2(iq,D2_RB_GBB) = (t82*t97+t83*t96+t32*(-1.7730768017841 1055 1 417d-1*t10*t33*t42*t73*t9*t95+3.5461536035682834d-1*t10*t 1056 2 35*t37*t9*t95-3.5461536035682834d-1*t10*t33*t35*t9*(1.329 1057 3 807601338106d-1*t10*t33*t42*t73*t94-2.659615202676212d-1* 1058 4 t10*t35*t37*t94+2.659615202676212d-1*t10*t33*t35*(1.41371 1059 5 6694115413d+1*t17*t36*t39*t78*t79*t93-5.0d-1*t38*t39*t79* 1060 6 t93-3.536776513153214d-2*t14*t37*t39*t79*t93-5.0d-1*t39*t 1061 7 73*t78*t93+7.073553026306428d-2*t14*t40*t77*t93+1.0d+0*t3 1062 8 3*t38*t39*t93-3.536776513153214d-2*t128*t14*t37*t40-3.536 1063 9 776513153214d-2*t129*t14*t34*t37*t39+t129*t39)+3.54490770 1064 : 18110403d+0*t39*t45*(-1.8799712059732546d+0*t22*t74*t93+2 1065 ; .8199568089598814d+0*rhob*t112*t22*t73*t93-1.879971205973 1066 < 2546d+0*rhob*t128*t22*t74)+1.329807601338106d-1*t10*t33*t 1067 = 42*t80*t93+5.01149519714857d+1*t17*t36*t39*t45*t75*t78*t9 1068 > 3-6.649038006690531d-2*t10*t33*t41*t73*t74*t93-1.32980760 1069 ? 1338106d-1*t10*t37*t41*t42*t93+1.329807601338106d-1*t10*t 1070 @ 128*t33*t41*t42)-1.7730768017841417d-1*t10*t33*t42*t81*t9 1071 1 *t93+8.865384008920708d-2*t10*t33*t43*t73*t74*t9*t93+1.77 1072 2 30768017841417d-1*t10*t37*t42*t43*t9*t93-1.77307680178414 1073 3 17d-1*t10*t128*t33*t42*t43*t9)+t44*(-5.599999999999999d-3 1074 4 *gammabb*t65*t71*t92-8.4d-3*gammabb*t115*t28*t70*t92+4.2d 1075 5 -3*t28*t70*t71+4.2d-3*gammabb*t127*t28*t71+5.599999999999 1076 6 999d-3*t31*t65))*wght+Cmat2(iq,D2_RB_GBB) 1077 Cmat2(iq,D2_GAA_GAA) = (t7*(-3.5461536035682834d-1*t10*t11*t 1078 1 13*t9*(9.996486610856369d+0*rhoa*t131*t19*t22*t45*t99+2.6 1079 2 59615202676212d-1*t10*t11*t23*t86*t87+2.659615202676212d- 1080 3 1*t10*t11*t13*(1.413716694115413d+1*t134*t15*t17*t19*t59- 1081 4 3.536776513153214d-2*t134*t14*t16*t20-5.0d-1*t134*t18*t19 1082 5 -3.534291735288533d+1*t108*t131*t15*t17*t19+1.99859489122 1083 6 06125d+2*t107*t131*t135*t19/t12**4)-9.421466669512572d+1* 1084 7 t130*t131*t19*t45*t57/t13**7-6.66432440723758d+0*rhoa*t13 1085 8 4*t19*t22*t45*t55-6.649038006690531d-2*t10*t11*t131*t21*t 1086 9 55+1.329807601338106d-1*t10*t11*t134*t21*t23)-3.546153603 1087 : 5682834d-1*t10*t11*t23*t86*t88*t9+8.865384008920708d-2*t1 1088 ; 0*t11*t131*t24*t55*t9-1.7730768017841417d-1*t10*t11*t134* 1089 < t23*t24*t9)+2*t89*t90+t25*(8.4d-3*t3*t52*t85+4.2d-3*gamma 1090 = aa*t133*t3*t52-8.4d-3*gammaaa*t102*t132*t3))*wght+Cmat2(i 1091 > q,D2_GAA_GAA) 1092 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 1093 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 1094 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 1095 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 1096 Cmat2(iq,D2_GBB_GBB) = (2*t96*t97+t32*(-3.5461536035682834d- 1097 1 1*t10*t33*t42*t9*t93*t95-3.5461536035682834d-1*t10*t33*t3 1098 2 5*t9*(2.659615202676212d-1*t10*t33*t42*t93*t94+2.65961520 1099 3 2676212d-1*t10*t33*t35*(1.413716694115413d+1*t139*t17*t36 1100 4 *t39*t78-3.536776513153214d-2*t139*t14*t37*t40-5.0d-1*t13 1101 5 9*t38*t39-3.534291735288533d+1*t121*t136*t17*t36*t39+1.99 1102 6 85948912206125d+2*t120*t135*t136*t39/t34**4)-9.4214666695 1103 7 12572d+1*t130*t136*t39*t45*t76/t35**7-6.66432440723758d+0 1104 8 *rhob*t139*t22*t39*t45*t74-6.649038006690531d-2*t10*t136* 1105 9 t33*t41*t74+9.996486610856369d+0*rhob*t112*t136*t22*t39*t 1106 : 45+1.329807601338106d-1*t10*t139*t33*t41*t42)+8.865384008 1107 ; 920708d-2*t10*t136*t33*t43*t74*t9-1.7730768017841417d-1*t 1108 < 10*t139*t33*t42*t43*t9)+t44*(8.4d-3*t28*t71*t92+4.2d-3*ga 1109 = mmabb*t138*t28*t71-8.4d-3*gammabb*t115*t137*t28))*wght+Cm 1110 > at2(iq,D2_GBB_GBB) 1111 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 1112 t1 = gammaaa**5.0d-1 1113 t2 = rhoa**1.3333333333333333d+0 1114 t3 = 1/t2 1115 t4 = asinh(t1*t3) 1116 t5 = 2.52d-2*t1*t3*t4+1.0d+0 1117 t6 = 1/t5 1118 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 1119 t8 = param(2) 1120 t9 = param(3) 1121 t10 = 1/rhoa 1122 t11 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 1123 t12 = t11**5.0d-1 1124 t13 = t9**2 1125 t14 = rhoa**2 1126 t15 = 1/t14 1127 t16 = 1/t13 1128 t17 = 1/t11 1129 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 1130 t19 = t18-1.0d+0 1131 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 1132 t21 = 1/t9 1133 t22 = 1/t12 1134 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 1135 1 d+0*erf(3.759942411946509d+0*rhoa*t21*t22) 1136 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 1137 1 +0 1138 t25 = 5.641895835477563d-1 1139 t26 = 1/rhoa**2.3333333333333334d+0 1140 t27 = 1/rhoa**2.6666666666666666d+0 1141 t28 = (gammaaa*t27+1)**5.0d-1 1142 t29 = 1/t28 1143 t30 = 1/rhoa**3.6666666666666664d+0 1144 t31 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 1145 1 *gammaaa*t29*t30 1146 t32 = 1/t5**2 1147 t33 = rhoa**3.333333333333333d-1 1148 t34 = -5.599999999999999d-3*gammaaa*t26*t6+1.240700981798800 1149 1 2d+0*t33-4.2d-3*gammaaa*t3*t31*t32 1150 t35 = 1/t12**3 1151 t36 = 3.759942411946509d+0*t21*t22-1.8799712059732546d+0*rho 1152 1 a*t21*t34*t35 1153 t37 = rhoa**3 1154 t38 = 1/t37 1155 t39 = 1/t11**2 1156 t40 = 1.413716694115413d+1*t14*t16*t34*t39-2.827433388230826 1157 1 d+1*rhoa*t16*t17 1158 t41 = -3.536776513153214d-2*t11*t13*t15*t18*t40+t18*t40+7.07 1159 1 3553026306428d-2*t11*t13*t19*t38-3.536776513153214d-2*t13 1160 2 *t15*t19*t34 1161 t42 = 2.659615202676212d-1*t10*t12*t41*t9+1.329807601338106d 1162 1 -1*t10*t20*t22*t34*t9-2.659615202676212d-1*t12*t15*t20*t9 1163 2 +3.5449077018110403d+0*t18*t25*t36 1164 t43 = -3.5461536035682834d-1*t10*t12*t42*t8*t9-1.77307680178 1165 1 41417d-1*t10*t22*t23*t34*t8*t9+3.5461536035682834d-1*t12* 1166 2 t15*t23*t8*t9 1167 t44 = 5.599999999999999d-3*gammaaa*t26*t6-1.2407009817988002 1168 1 d+0*t33+4.2d-3*gammaaa*t3*t31*t32 1169 t45 = 1/t1 1170 t46 = 1.26d-2*t3*t4*t45+1.26d-2*t27*t29 1171 t47 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t32*t46 1172 t48 = 1.413716694115413d+1*t14*t16*t18*t39*t47-3.53677651315 1173 1 3214d-2*t13*t15*t19*t47-5.0d-1*t17*t18*t47 1174 t49 = 2.659615202676212d-1*t10*t12*t48*t9+1.329807601338106d 1175 1 -1*t10*t20*t22*t47*t9-6.66432440723758d+0*rhoa*t18*t21*t2 1176 2 5*t35*t47 1177 t50 = -3.5461536035682834d-1*t10*t12*t49*t8*t9-1.77307680178 1178 1 41417d-1*t10*t22*t23*t47*t8*t9 1179 t51 = 4.2d-3*gammaaa*t3*t32*t46-4.2d-3*t3*t6 1180 t52 = t34**2 1181 t53 = 1/t12**5 1182 t54 = 1/rhoa**3.3333333333333337d+0 1183 t55 = t31**2 1184 t56 = 1/t5**3 1185 t57 = 1/t28**3 1186 t58 = -4.4799999999999995d-2*gammaaa**2*t57/rhoa**7.33333333 1187 1 3333333d+0+7.84d-2*t1*t4*t54+1.6799999999999998d-1*gammaa 1188 2 a*t29/rhoa**4.666666666666667d+0 1189 t59 = 1/rhoa**6.666666666666666d-1 1190 t60 = 1.3066666666666665d-2*gammaaa*t54*t6+4.135669939329334 1191 1 d-1*t59-4.2d-3*gammaaa*t3*t32*t58+8.4d-3*gammaaa*t3*t55*t 1192 2 56+1.1199999999999999d-2*gammaaa*t26*t31*t32 1193 t61 = rhoa**4 1194 t62 = 1/t11**3 1195 t63 = -2.827433388230826d+1*t14*t16*t52*t62+1.41371669411541 1196 1 3d+1*t14*t16*t39*t60+5.654866776461652d+1*rhoa*t16*t34*t3 1197 2 9-2.827433388230826d+1*t16*t17 1198 t64 = t40**2 1199 t65 = 1.6799999999999998d-2*gammaaa*t57/rhoa**6.333333333333 1200 1 333d+0-1.6799999999999998d-2*t26*t4*t45-5.04d-2*t29*t30 1201 t66 = -4.2d-3*gammaaa*t3*t32*t65-5.599999999999999d-3*t26*t6 1202 1 +8.4d-3*gammaaa*t3*t31*t46*t56+5.599999999999999d-3*gamma 1203 2 aa*t26*t32*t46-4.2d-3*t3*t31*t32 1204 t67 = 1.413716694115413d+1*t14*t16*t39*t66-2.827433388230826 1205 1 d+1*t14*t16*t34*t47*t62+2.827433388230826d+1*rhoa*t16*t39 1206 2 *t47 1207 t68 = t47**2 1208 t69 = t46**2 1209 t70 = -6.3d-3*t57/rhoa**5.333333333333333d+0-6.3d-3*t3*t4/t1 1210 1 **3+6.3d-3*t27*t29/gammaaa 1211 t71 = -4.2d-3*gammaaa*t3*t32*t70+8.4d-3*gammaaa*t3*t56*t69-8 1212 1 .4d-3*t3*t32*t46 1213 fnc(iq) = t24*t7*wght+fnc(iq) 1214 Amat(iq,D1_RA) = t43*t7*wght+t24*t44*wght+Amat(iq,D1_RA) 1215 Cmat(iq,D1_GAA) = t50*t7*wght+t24*t51*wght+Cmat(iq,D1_GAA) 1216 Amat2(iq,D2_RA_RA) = t7*(-3.5461536035682834d-1*t10*t12*t8*t 1217 1 9*(2.659615202676212d-1*t10*t12*(-3.536776513153214d-2*t1 1218 2 1*t13*t15*t18*t64+t18*t64-3.536776513153214d-2*t11*t13*t1 1219 3 5*t18*t63+t18*t63-2.1220659078919285d-1*t11*t13*t19/t61-3 1220 4 .536776513153214d-2*t13*t15*t19*t60+1.4147106052612857d-1 1221 5 *t11*t13*t18*t38*t40-7.073553026306428d-2*t13*t15*t18*t34 1222 6 *t40+1.4147106052612857d-1*t13*t19*t34*t38)*t9+1.32980760 1223 7 1338106d-1*t10*t20*t22*t60*t9-6.649038006690531d-2*t10*t2 1224 8 0*t35*t52*t9+2.659615202676212d-1*t10*t22*t34*t41*t9-5.31 1225 9 9230405352424d-1*t12*t15*t41*t9+5.319230405352424d-1*t12* 1226 : t20*t38*t9-2.659615202676212d-1*t15*t20*t22*t34*t9+3.5449 1227 ; 077018110403d+0*t18*t25*(-1.8799712059732546d+0*rhoa*t21* 1228 < t35*t60+2.8199568089598814d+0*rhoa*t21*t52*t53-3.75994241 1229 = 1946509d+0*t21*t34*t35)+3.5449077018110403d+0*t18*t25*t36 1230 > *t40)-1.7730768017841417d-1*t10*t22*t23*t60*t8*t9+8.86538 1231 ? 4008920708d-2*t10*t23*t35*t52*t8*t9-3.5461536035682834d-1 1232 @ *t10*t22*t34*t42*t8*t9+7.092307207136567d-1*t12*t15*t42*t 1233 1 8*t9-7.092307207136567d-1*t12*t23*t38*t8*t9+3.54615360356 1234 2 82834d-1*t15*t22*t23*t34*t8*t9)*wght+t24*(-1.306666666666 1235 3 6665d-2*gammaaa*t54*t6-4.135669939329334d-1*t59+4.2d-3*ga 1236 4 mmaaa*t3*t32*t58-8.4d-3*gammaaa*t3*t55*t56-1.119999999999 1237 5 9999d-2*gammaaa*t26*t31*t32)*wght+2*t43*t44*wght+Amat2(iq 1238 6 ,D2_RA_RA) 1239 Cmat2(iq,D2_RA_GAA) = t7*(-3.5461536035682834d-1*t10*t12*t8* 1240 1 t9*(2.659615202676212d-1*t10*t12*(-3.536776513153214d-2*t 1241 2 11*t13*t15*t18*t67+t18*t67-3.536776513153214d-2*t13*t15*t 1242 3 19*t66+1.413716694115413d+1*t14*t16*t18*t39*t40*t47-5.0d- 1243 4 1*t17*t18*t40*t47-3.536776513153214d-2*t13*t15*t18*t40*t4 1244 5 7-5.0d-1*t18*t34*t39*t47+7.073553026306428d-2*t13*t19*t38 1245 6 *t47+1.0d+0*t10*t17*t18*t47)*t9+1.329807601338106d-1*t10* 1246 7 t20*t22*t66*t9+1.329807601338106d-1*t10*t22*t34*t48*t9-2. 1247 8 659615202676212d-1*t12*t15*t48*t9+1.329807601338106d-1*t1 1248 9 0*t22*t41*t47*t9-6.649038006690531d-2*t10*t20*t34*t35*t47 1249 : *t9-1.329807601338106d-1*t15*t20*t22*t47*t9+3.54490770181 1250 ; 10403d+0*t18*t25*(-1.8799712059732546d+0*rhoa*t21*t35*t66 1251 < +2.8199568089598814d+0*rhoa*t21*t34*t47*t53-1.87997120597 1252 = 32546d+0*t21*t35*t47)+5.01149519714857d+1*t14*t16*t18*t25 1253 > *t36*t39*t47)-1.7730768017841417d-1*t10*t22*t23*t66*t8*t9 1254 ? -1.7730768017841417d-1*t10*t22*t34*t49*t8*t9+3.5461536035 1255 @ 682834d-1*t12*t15*t49*t8*t9-1.7730768017841417d-1*t10*t22 1256 1 *t42*t47*t8*t9+8.865384008920708d-2*t10*t23*t34*t35*t47*t 1257 2 8*t9+1.7730768017841417d-1*t15*t22*t23*t47*t8*t9)*wght+t2 1258 3 4*(4.2d-3*gammaaa*t3*t32*t65+5.599999999999999d-3*t26*t6- 1259 4 8.4d-3*gammaaa*t3*t31*t46*t56-5.599999999999999d-3*gammaa 1260 5 a*t26*t32*t46+4.2d-3*t3*t31*t32)*wght+t43*t51*wght+t44*t5 1261 6 0*wght+Cmat2(iq,D2_RA_GAA) 1262 Cmat2(iq,D2_GAA_GAA) = t7*(-3.5461536035682834d-1*t10*t12*t8 1263 1 *t9*(2.659615202676212d-1*t10*t12*(1.9985948912206125d+2* 1264 2 t18*t61*t68/(t11**4*t9**4)+1.413716694115413d+1*t14*t16*t 1265 3 18*t39*t71-3.536776513153214d-2*t13*t15*t19*t71-5.0d-1*t1 1266 4 7*t18*t71-3.534291735288533d+1*t14*t16*t18*t62*t68)*t9+1. 1267 5 329807601338106d-1*t10*t20*t22*t71*t9-6.649038006690531d- 1268 6 2*t10*t20*t35*t68*t9+2.659615202676212d-1*t10*t22*t47*t48 1269 7 *t9-9.421466669512572d+1*t18*t25*t37*t68/(t12**7*t9**3)-6 1270 8 .66432440723758d+0*rhoa*t18*t21*t25*t35*t71+9.99648661085 1271 9 6369d+0*rhoa*t18*t21*t25*t53*t68)-1.7730768017841417d-1*t 1272 : 10*t22*t23*t71*t8*t9+8.865384008920708d-2*t10*t23*t35*t68 1273 ; *t8*t9-3.5461536035682834d-1*t10*t22*t47*t49*t8*t9)*wght+ 1274 < t24*(4.2d-3*gammaaa*t3*t32*t70-8.4d-3*gammaaa*t3*t56*t69+ 1275 = 8.4d-3*t3*t32*t46)*wght+2*t50*t51*wght+Cmat2(iq,D2_GAA_GA 1276 > A) 1277 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 1278 t1 = gammabb**5.0d-1 1279 t2 = rhob**1.3333333333333333d+0 1280 t3 = 1/t2 1281 t4 = asinh(t1*t3) 1282 t5 = 2.52d-2*t1*t3*t4+1.0d+0 1283 t6 = 1/t5 1284 t7 = -4.2d-3*gammabb*t3*t6-9.305257363491002d-1*t2 1285 t8 = param(2) 1286 t9 = param(3) 1287 t10 = 1/rhob 1288 t11 = 4.2d-3*gammabb*t3*t6+9.305257363491002d-1*t2 1289 t12 = t11**5.0d-1 1290 t13 = t9**2 1291 t14 = rhob**2 1292 t15 = 1/t14 1293 t16 = 1/t13 1294 t17 = 1/t11 1295 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 1296 t19 = t18-1.0d+0 1297 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 1298 t21 = 1/t9 1299 t22 = 1/t12 1300 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 1301 1 d+0*erf(3.759942411946509d+0*rhob*t21*t22) 1302 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 1303 1 +0 1304 t25 = 5.641895835477563d-1 1305 t26 = 1/rhob**2.3333333333333334d+0 1306 t27 = 1/rhob**2.6666666666666666d+0 1307 t28 = (gammabb*t27+1)**5.0d-1 1308 t29 = 1/t28 1309 t30 = 1/rhob**3.6666666666666664d+0 1310 t31 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 1311 1 *gammabb*t29*t30 1312 t32 = 1/t5**2 1313 t33 = rhob**3.333333333333333d-1 1314 t34 = -5.599999999999999d-3*gammabb*t26*t6+1.240700981798800 1315 1 2d+0*t33-4.2d-3*gammabb*t3*t31*t32 1316 t35 = 1/t12**3 1317 t36 = 3.759942411946509d+0*t21*t22-1.8799712059732546d+0*rho 1318 1 b*t21*t34*t35 1319 t37 = rhob**3 1320 t38 = 1/t37 1321 t39 = 1/t11**2 1322 t40 = 1.413716694115413d+1*t14*t16*t34*t39-2.827433388230826 1323 1 d+1*rhob*t16*t17 1324 t41 = -3.536776513153214d-2*t11*t13*t15*t18*t40+t18*t40+7.07 1325 1 3553026306428d-2*t11*t13*t19*t38-3.536776513153214d-2*t13 1326 2 *t15*t19*t34 1327 t42 = 2.659615202676212d-1*t10*t12*t41*t9+1.329807601338106d 1328 1 -1*t10*t20*t22*t34*t9-2.659615202676212d-1*t12*t15*t20*t9 1329 2 +3.5449077018110403d+0*t18*t25*t36 1330 t43 = -3.5461536035682834d-1*t10*t12*t42*t8*t9-1.77307680178 1331 1 41417d-1*t10*t22*t23*t34*t8*t9+3.5461536035682834d-1*t12* 1332 2 t15*t23*t8*t9 1333 t44 = 5.599999999999999d-3*gammabb*t26*t6-1.2407009817988002 1334 1 d+0*t33+4.2d-3*gammabb*t3*t31*t32 1335 t45 = 1/t1 1336 t46 = 1.26d-2*t3*t4*t45+1.26d-2*t27*t29 1337 t47 = 4.2d-3*t3*t6-4.2d-3*gammabb*t3*t32*t46 1338 t48 = 1.413716694115413d+1*t14*t16*t18*t39*t47-3.53677651315 1339 1 3214d-2*t13*t15*t19*t47-5.0d-1*t17*t18*t47 1340 t49 = 2.659615202676212d-1*t10*t12*t48*t9+1.329807601338106d 1341 1 -1*t10*t20*t22*t47*t9-6.66432440723758d+0*rhob*t18*t21*t2 1342 2 5*t35*t47 1343 t50 = -3.5461536035682834d-1*t10*t12*t49*t8*t9-1.77307680178 1344 1 41417d-1*t10*t22*t23*t47*t8*t9 1345 t51 = 4.2d-3*gammabb*t3*t32*t46-4.2d-3*t3*t6 1346 t52 = t34**2 1347 t53 = 1/t12**5 1348 t54 = 1/rhob**3.3333333333333337d+0 1349 t55 = t31**2 1350 t56 = 1/t5**3 1351 t57 = 1/t28**3 1352 t58 = -4.4799999999999995d-2*gammabb**2*t57/rhob**7.33333333 1353 1 3333333d+0+7.84d-2*t1*t4*t54+1.6799999999999998d-1*gammab 1354 2 b*t29/rhob**4.666666666666667d+0 1355 t59 = 1/rhob**6.666666666666666d-1 1356 t60 = 1.3066666666666665d-2*gammabb*t54*t6+4.135669939329334 1357 1 d-1*t59-4.2d-3*gammabb*t3*t32*t58+8.4d-3*gammabb*t3*t55*t 1358 2 56+1.1199999999999999d-2*gammabb*t26*t31*t32 1359 t61 = rhob**4 1360 t62 = 1/t11**3 1361 t63 = -2.827433388230826d+1*t14*t16*t52*t62+1.41371669411541 1362 1 3d+1*t14*t16*t39*t60+5.654866776461652d+1*rhob*t16*t34*t3 1363 2 9-2.827433388230826d+1*t16*t17 1364 t64 = t40**2 1365 t65 = 1.6799999999999998d-2*gammabb*t57/rhob**6.333333333333 1366 1 333d+0-1.6799999999999998d-2*t26*t4*t45-5.04d-2*t29*t30 1367 t66 = -4.2d-3*gammabb*t3*t32*t65-5.599999999999999d-3*t26*t6 1368 1 +8.4d-3*gammabb*t3*t31*t46*t56+5.599999999999999d-3*gamma 1369 2 bb*t26*t32*t46-4.2d-3*t3*t31*t32 1370 t67 = 1.413716694115413d+1*t14*t16*t39*t66-2.827433388230826 1371 1 d+1*t14*t16*t34*t47*t62+2.827433388230826d+1*rhob*t16*t39 1372 2 *t47 1373 t68 = t47**2 1374 t69 = t46**2 1375 t70 = -6.3d-3*t57/rhob**5.333333333333333d+0-6.3d-3*t3*t4/t1 1376 1 **3+6.3d-3*t27*t29/gammabb 1377 t71 = -4.2d-3*gammabb*t3*t32*t70+8.4d-3*gammabb*t3*t56*t69-8 1378 1 .4d-3*t3*t32*t46 1379 fnc(iq) = t24*t7*wght+fnc(iq) 1380 Amat(iq,D1_RB) = t43*t7*wght+t24*t44*wght+Amat(iq,D1_RB) 1381 Cmat(iq,D1_GBB) = t50*t7*wght+t24*t51*wght+Cmat(iq,D1_GBB) 1382 Amat2(iq,D2_RB_RB) = t7*(-3.5461536035682834d-1*t10*t12*t8*t 1383 1 9*(2.659615202676212d-1*t10*t12*(-3.536776513153214d-2*t1 1384 2 1*t13*t15*t18*t64+t18*t64-3.536776513153214d-2*t11*t13*t1 1385 3 5*t18*t63+t18*t63-2.1220659078919285d-1*t11*t13*t19/t61-3 1386 4 .536776513153214d-2*t13*t15*t19*t60+1.4147106052612857d-1 1387 5 *t11*t13*t18*t38*t40-7.073553026306428d-2*t13*t15*t18*t34 1388 6 *t40+1.4147106052612857d-1*t13*t19*t34*t38)*t9+1.32980760 1389 7 1338106d-1*t10*t20*t22*t60*t9-6.649038006690531d-2*t10*t2 1390 8 0*t35*t52*t9+2.659615202676212d-1*t10*t22*t34*t41*t9-5.31 1391 9 9230405352424d-1*t12*t15*t41*t9+5.319230405352424d-1*t12* 1392 : t20*t38*t9-2.659615202676212d-1*t15*t20*t22*t34*t9+3.5449 1393 ; 077018110403d+0*t18*t25*(-1.8799712059732546d+0*rhob*t21* 1394 < t35*t60+2.8199568089598814d+0*rhob*t21*t52*t53-3.75994241 1395 = 1946509d+0*t21*t34*t35)+3.5449077018110403d+0*t18*t25*t36 1396 > *t40)-1.7730768017841417d-1*t10*t22*t23*t60*t8*t9+8.86538 1397 ? 4008920708d-2*t10*t23*t35*t52*t8*t9-3.5461536035682834d-1 1398 @ *t10*t22*t34*t42*t8*t9+7.092307207136567d-1*t12*t15*t42*t 1399 1 8*t9-7.092307207136567d-1*t12*t23*t38*t8*t9+3.54615360356 1400 2 82834d-1*t15*t22*t23*t34*t8*t9)*wght+t24*(-1.306666666666 1401 3 6665d-2*gammabb*t54*t6-4.135669939329334d-1*t59+4.2d-3*ga 1402 4 mmabb*t3*t32*t58-8.4d-3*gammabb*t3*t55*t56-1.119999999999 1403 5 9999d-2*gammabb*t26*t31*t32)*wght+2*t43*t44*wght+Amat2(iq 1404 6 ,D2_RB_RB) 1405 Cmat2(iq,D2_RB_GBB) = t7*(-3.5461536035682834d-1*t10*t12*t8* 1406 1 t9*(2.659615202676212d-1*t10*t12*(-3.536776513153214d-2*t 1407 2 11*t13*t15*t18*t67+t18*t67-3.536776513153214d-2*t13*t15*t 1408 3 19*t66+1.413716694115413d+1*t14*t16*t18*t39*t40*t47-5.0d- 1409 4 1*t17*t18*t40*t47-3.536776513153214d-2*t13*t15*t18*t40*t4 1410 5 7-5.0d-1*t18*t34*t39*t47+7.073553026306428d-2*t13*t19*t38 1411 6 *t47+1.0d+0*t10*t17*t18*t47)*t9+1.329807601338106d-1*t10* 1412 7 t20*t22*t66*t9+1.329807601338106d-1*t10*t22*t34*t48*t9-2. 1413 8 659615202676212d-1*t12*t15*t48*t9+1.329807601338106d-1*t1 1414 9 0*t22*t41*t47*t9-6.649038006690531d-2*t10*t20*t34*t35*t47 1415 : *t9-1.329807601338106d-1*t15*t20*t22*t47*t9+3.54490770181 1416 ; 10403d+0*t18*t25*(-1.8799712059732546d+0*rhob*t21*t35*t66 1417 < +2.8199568089598814d+0*rhob*t21*t34*t47*t53-1.87997120597 1418 = 32546d+0*t21*t35*t47)+5.01149519714857d+1*t14*t16*t18*t25 1419 > *t36*t39*t47)-1.7730768017841417d-1*t10*t22*t23*t66*t8*t9 1420 ? -1.7730768017841417d-1*t10*t22*t34*t49*t8*t9+3.5461536035 1421 @ 682834d-1*t12*t15*t49*t8*t9-1.7730768017841417d-1*t10*t22 1422 1 *t42*t47*t8*t9+8.865384008920708d-2*t10*t23*t34*t35*t47*t 1423 2 8*t9+1.7730768017841417d-1*t15*t22*t23*t47*t8*t9)*wght+t2 1424 3 4*(4.2d-3*gammabb*t3*t32*t65+5.599999999999999d-3*t26*t6- 1425 4 8.4d-3*gammabb*t3*t31*t46*t56-5.599999999999999d-3*gammab 1426 5 b*t26*t32*t46+4.2d-3*t3*t31*t32)*wght+t43*t51*wght+t44*t5 1427 6 0*wght+Cmat2(iq,D2_RB_GBB) 1428 Cmat2(iq,D2_GBB_GBB) = t7*(-3.5461536035682834d-1*t10*t12*t8 1429 1 *t9*(2.659615202676212d-1*t10*t12*(1.9985948912206125d+2* 1430 2 t18*t61*t68/(t11**4*t9**4)+1.413716694115413d+1*t14*t16*t 1431 3 18*t39*t71-3.536776513153214d-2*t13*t15*t19*t71-5.0d-1*t1 1432 4 7*t18*t71-3.534291735288533d+1*t14*t16*t18*t62*t68)*t9+1. 1433 5 329807601338106d-1*t10*t20*t22*t71*t9-6.649038006690531d- 1434 6 2*t10*t20*t35*t68*t9+2.659615202676212d-1*t10*t22*t47*t48 1435 7 *t9-9.421466669512572d+1*t18*t25*t37*t68/(t12**7*t9**3)-6 1436 8 .66432440723758d+0*rhob*t18*t21*t25*t35*t71+9.99648661085 1437 9 6369d+0*rhob*t18*t21*t25*t53*t68)-1.7730768017841417d-1*t 1438 : 10*t22*t23*t71*t8*t9+8.865384008920708d-2*t10*t23*t35*t68 1439 ; *t8*t9-3.5461536035682834d-1*t10*t22*t47*t49*t8*t9)*wght+ 1440 < t24*(4.2d-3*gammabb*t3*t32*t70-8.4d-3*gammabb*t3*t56*t69+ 1441 = 8.4d-3*t3*t32*t46)*wght+2*t50*t51*wght+Cmat2(iq,D2_GBB_GB 1442 > B) 1443 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 1444 endif ! ipol.eq.1 1445 enddo ! iq 1446 end 1447C> 1448C> \brief Evaluate the nwxcm_x_camb88 functional [1] 1449C> 1450C> \f{eqnarray*}{ 1451C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 1452C> {\it t_2} &=& {{1}\over{{\it t_1}}}\\\\ 1453C> {\it t_3} &=& \sqrt{\sigma_{\alpha\alpha}}\\\\ 1454C> {\it t_4} &=& {{1}\over{0.0252\,{\it t_2}\,{\rm asinh}\; 1455C> \left({\it t_2}\,{\it t_3}\right)\,{\it t_3}+1.0}}\\\\ 1456C> {\it t_5} &=& -{\it param}\left(1\right)\\\\ 1457C> {\it t_6} &=& {\it param}\left(2\right)\\\\ 1458C> {\it t_7} &=& {\it param}\left(3\right)\\\\ 1459C> {\it t_8} &=& {{1}\over{\rho_\alpha}}\\\\ 1460C> {\it t_9} &=& 0.0042\,{\it t_2}\,{\it t_4}\,\sigma_{\alpha\alpha} 1461C> +0.9305257363491002\,{\it t_1}\\\\ 1462C> {\it t_{10}} &=& \sqrt{{\it t_9}}\\\\ 1463C> {\it t_{11}} &=& {\it t_7}^2\\\\ 1464C> {\it t_{12}} &=& \rho_\alpha^2\\\\ 1465C> {\it t_{13}} &=& {{1}\over{{\it t_{11}}}}\\\\ 1466C> {\it t_{14}} &=& e^ {- {{14.13716694115413\,{\it t_{12}}\,{ 1467C> \it t_{13}}}\over{{\it t_9}}} }\\\\ 1468C> {\it t_{15}} &=& {{1}\over{{\it t_7}}}\\\\ 1469C> {\it t_{16}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 1470C> {\it t_{17}} &=& {{1}\over{{\it t_{16}}}}\\\\ 1471C> {\it t_{18}} &=& \sqrt{\sigma_{\beta\beta}}\\\\ 1472C> {\it t_{19}} &=& {{1}\over{0.0252\,{\it t_{17}} 1473C> \,{\rm asinh}\; \left({\it t_{17}}\,{\it t_{18}}\right)\,{ 1474C> \it t_{18}}+1.0}}\\\\ 1475C> {\it t_{20}} &=& {{1}\over{\rho_\beta}}\\\\ 1476C> {\it t_{21}} &=& 0.0042\,{\it t_{17}}\,{\it t_{19}}\, 1477C> \sigma_{\beta\beta}+0.9305257363491002\,{\it t_{16}}\\\\ 1478C> {\it t_{22}} &=& \sqrt{{\it t_{21}}}\\\\ 1479C> {\it t_{23}} &=& \rho_\beta^2\\\\ 1480C> {\it t_{24}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 1481C> \it t_{23}}}\over{{\it t_{21}}}} }\\\\ 1482C> {\it t_{25}} &=& \rho_s^{{{4}\over{3}}}\\\\ 1483C> {\it t_{26}} &=& {{1}\over{{\it t_{25}}}}\\\\ 1484C> {\it t_{27}} &=& \sqrt{\sigma_{ss}}\\\\ 1485C> {\it t_{28}} &=& {{1}\over{0.0252\,{\it t_{26}} 1486C> \,{\rm asinh}\; \left({\it t_{26}}\,{\it t_{27}}\right)\,{ 1487C> \it t_{27}}+1.0}}\\\\ 1488C> {\it t_{29}} &=& {{1}\over{\rho_s}}\\\\ 1489C> {\it t_{30}} &=& 0.0042\,{\it t_{26}}\,{\it t_{28}}\,\sigma_{ss} 1490C> +0.9305257363491002\,{\it t_{25}}\\\\ 1491C> {\it t_{31}} &=& \sqrt{{\it t_{30}}}\\\\ 1492C> {\it t_{32}} &=& \rho_s^2\\\\ 1493C> {\it t_{33}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 1494C> \it t_{32}}}\over{{\it t_{30}}}} }\\\\ 1495C> f &=& \left(-0.0042\,{\it t_{17}}\,{\it t_{19}}\, 1496C> \sigma_{\beta\beta}-0.9305257363491002\,{\it t_{16}}\right) 1497C> \,\left(-0.3546153603568283\,{\it t_6}\,{\it t_7}\,{ 1498C> \it t_{20}}\,{\it t_{22}}\,\left(1.77245385090552 1499C> \,\mathrm{erf}\left({{3.759942411946509\,{\it t_{15}} 1500C> \,\rho_\beta}\over{{\it t_{22}}}}\right)+0.2659615202676212 1501C> \,{\it t_7}\,{\it t_{20}}\,{\it t_{22}}\,\left({\it t_{24}} 1502C> -{{0.03536776513153214\,{\it t_{11}}\,{\it t_{21}}\,\left({ 1503C> \it t_{24}}-1.0\right)}\over{{\it t_{23}}}}-1.5\right)\right) 1504C> +{\it t_5}+1.0\right)+\left(-0.0042\,{\it t_2}\,{\it t_4} 1505C> \,\sigma_{\alpha\alpha}-0.9305257363491002\,{\it t_1}\right) 1506C> \,\left(-0.3546153603568283\,{\it t_6}\,{\it t_7}\,{\it t_8} 1507C> \,{\it t_{10}}\,\left(1.77245385090552\,\mathrm{erf} 1508C> \left({{3.759942411946509\,{\it t_{15}}\,\rho_\alpha}\over{{ 1509C> \it t_{10}}}}\right)+0.2659615202676212\,{\it t_7}\,{\it t_8} 1510C> \,{\it t_{10}}\,\left({\it t_{14}}-{{0.03536776513153214\,{ 1511C> \it t_{11}}\,{\it t_9}\,\left({\it t_{14}}-1.0\right)} 1512C> \over{{\it t_{12}}}}-1.5\right)\right)+{\it t_5}+1.0\right)\\\\ 1513C> g &=& 0\\\\ 1514C> G &=& \left(-0.0042\,{\it t_{26}}\,{\it t_{28}}\,\sigma_{ss} 1515C> -0.9305257363491002\,{\it t_{25}}\right)\,\left( 1516C> -0.3546153603568283\,{\it t_6}\,{\it t_7}\,{\it t_{29}}\,{ 1517C> \it t_{31}}\,\left(1.77245385090552\,\mathrm{erf} 1518C> \left({{3.759942411946509\,{\it t_{15}}\,\rho_s}\over{{ 1519C> \it t_{31}}}}\right)+0.2659615202676212\,{\it t_7}\,{ 1520C> \it t_{29}}\,{\it t_{31}}\,\left({\it t_{33}} 1521C> -{{0.03536776513153214\,{\it t_{11}}\,{\it t_{30}}\,\left({ 1522C> \it t_{33}}-1.0\right)}\over{{\it t_{32}}}}-1.5\right)\right) 1523C> +{\it t_5}+1.0\right)\\\\ 1524C> \f} 1525C> 1526C> Code generated with Maxima 5.34.0 [2] 1527C> driven by autoxc [3]. 1528C> 1529C> ### References ### 1530C> 1531C> [1] T Yanai, DP Tew, NC Handy, Chem.Phys.Lett. 393, 51 (2004) 1532C> , DOI: 1533C> <a href="https://doi.org/10.1016/j.cplett.2004.06.011 "> 1534C> 10.1016/j.cplett.2004.06.011 </a> 1535C> 1536C> [2] Maxima, a computer algebra system, 1537C> <a href="http://maxima.sourceforge.net/"> 1538C> http://maxima.sourceforge.net/</a> 1539C> 1540C> [3] autoxc, revision 27097 2015-05-08 1541C> 1542 subroutine nwxcm_x_camb88_d3(param,tol_rho,ipol,nq,wght, 1543 +rho,rgamma,fnc,Amat,Amat2,Amat3, 1544 +Cmat,Cmat2,Cmat3) 1545c $Id: $ 1546#ifdef NWXC_QUAD_PREC 1547 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 1548 integer, parameter :: rk=selected_real_kind(30) 1549#else 1550 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 1551 integer, parameter :: rk=selected_real_kind(15) 1552#endif 1553#include "nwxc_param.fh" 1554 double precision param(*) !< [Input] Parameters of functional 1555 double precision tol_rho !< [Input] The lower limit on the density 1556 integer ipol !< [Input] The number of spin channels 1557 integer nq !< [Input] The number of points 1558 double precision wght !< [Input] The weight of the functional 1559 double precision rho(nq,*) !< [Input] The density 1560 double precision rgamma(nq,*) !< [Input] The norm of the density 1561 !< gradients 1562 double precision fnc(nq) !< [Output] The value of the functional 1563c 1564c Sampling Matrices for the XC Kernel 1565c 1566 double precision Amat(nq,*) !< [Output] The derivative wrt rho 1567 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 1568c 1569c Sampling Matrices for the XC Kernel 1570c 1571 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 1572 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 1573 !< and possibly rho 1574c 1575c Sampling Matrices for the XC Kernel 1576c 1577 double precision Amat3(nq,*) !< [Output] The 3rd derivative wrt rho 1578 double precision Cmat3(nq,*) !< [Output] The 3rd derivative wrt rgamma 1579 !< and possibly rho 1580 integer iq 1581 double precision tmp 1582 double precision rhoa,rhob 1583 double precision gammaaa,gammaab,gammabb 1584 double precision taua,taub 1585 double precision nwxcm_heaviside 1586 external nwxcm_heaviside 1587CDIR$ NOVECTOR 1588 do iq = 1, nq 1589 if (ipol.eq.1) then 1590 rhoa = 0.5d0*rho(iq,R_T) 1591 gammaaa = 0.25d0*rgamma(iq,G_TT) 1592 if (rhoa.gt.tol_rho) then 1593 t1 = gammaaa**5.0d-1 1594 t2 = rhoa**1.3333333333333333d+0 1595 t3 = 1/t2 1596 t4 = asinh(t1*t3) 1597 t5 = 2.52d-2*t1*t3*t4+1.0d+0 1598 t6 = 1/t5 1599 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 1600 t8 = param(2) 1601 t9 = param(3) 1602 t10 = 1/rhoa 1603 t11 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 1604 t12 = t11**5.0d-1 1605 t13 = t9**2 1606 t14 = rhoa**2 1607 t15 = 1/t14 1608 t16 = 1/t13 1609 t17 = 1/t11 1610 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 1611 t19 = t18-1.0d+0 1612 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 1613 t21 = 1/t9 1614 t22 = 1/t12 1615 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 1616 1 d+0*erf(3.759942411946509d+0*rhoa*t21*t22) 1617 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 1618 1 +0 1619 t25 = 5.641895835477563d-1 1620 t26 = 1/rhoa**2.3333333333333334d+0 1621 t27 = 1/rhoa**2.6666666666666666d+0 1622 t28 = (gammaaa*t27+1)**5.0d-1 1623 t29 = 1/t28 1624 t30 = 1/rhoa**3.6666666666666664d+0 1625 t31 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 1626 1 *gammaaa*t29*t30 1627 t32 = 1/t5**2 1628 t33 = rhoa**3.333333333333333d-1 1629 t34 = -5.599999999999999d-3*gammaaa*t26*t6+1.240700981798800 1630 1 2d+0*t33-4.2d-3*gammaaa*t3*t31*t32 1631 t35 = 1/t12**3 1632 t36 = 3.759942411946509d+0*t21*t22-1.8799712059732546d+0*rho 1633 1 a*t21*t34*t35 1634 t37 = rhoa**3 1635 t38 = 1/t37 1636 t39 = 1/t11**2 1637 t40 = 1.413716694115413d+1*t14*t16*t34*t39-2.827433388230826 1638 1 d+1*rhoa*t16*t17 1639 t41 = -3.536776513153214d-2*t11*t13*t15*t18*t40+t18*t40+7.07 1640 1 3553026306428d-2*t11*t13*t19*t38-3.536776513153214d-2*t13 1641 2 *t15*t19*t34 1642 t42 = 2.659615202676212d-1*t10*t12*t41*t9+1.329807601338106d 1643 1 -1*t10*t20*t22*t34*t9-2.659615202676212d-1*t12*t15*t20*t9 1644 2 +3.5449077018110403d+0*t18*t25*t36 1645 t43 = -3.5461536035682834d-1*t10*t12*t42*t8*t9-1.77307680178 1646 1 41417d-1*t10*t22*t23*t34*t8*t9+3.5461536035682834d-1*t12* 1647 2 t15*t23*t8*t9 1648 t44 = 5.599999999999999d-3*gammaaa*t26*t6-1.2407009817988002 1649 1 d+0*t33+4.2d-3*gammaaa*t3*t31*t32 1650 t45 = 1/t1 1651 t46 = 1.26d-2*t3*t4*t45+1.26d-2*t27*t29 1652 t47 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t32*t46 1653 t48 = 1.413716694115413d+1*t14*t16*t18*t39*t47-3.53677651315 1654 1 3214d-2*t13*t15*t19*t47-5.0d-1*t17*t18*t47 1655 t49 = 2.659615202676212d-1*t10*t12*t48*t9+1.329807601338106d 1656 1 -1*t10*t20*t22*t47*t9-6.66432440723758d+0*rhoa*t18*t21*t2 1657 2 5*t35*t47 1658 t50 = -3.5461536035682834d-1*t10*t12*t49*t8*t9-1.77307680178 1659 1 41417d-1*t10*t22*t23*t47*t8*t9 1660 t51 = 4.2d-3*gammaaa*t3*t32*t46-4.2d-3*t3*t6 1661 t52 = t34**2 1662 t53 = 1/t12**5 1663 t54 = 1/rhoa**3.3333333333333337d+0 1664 t55 = t31**2 1665 t56 = 1/t5**3 1666 t57 = gammaaa**2 1667 t58 = 1/t28**3 1668 t59 = 1/rhoa**7.333333333333333d+0 1669 t60 = 1/rhoa**4.666666666666667d+0 1670 t61 = 1.6799999999999998d-1*gammaaa*t29*t60-4.47999999999999 1671 1 95d-2*t57*t58*t59+7.84d-2*t1*t4*t54 1672 t62 = 1/rhoa**6.666666666666666d-1 1673 t63 = 4.135669939329334d-1*t62-4.2d-3*gammaaa*t3*t32*t61+1.3 1674 1 066666666666665d-2*gammaaa*t54*t6+8.4d-3*gammaaa*t3*t55*t 1675 2 56+1.1199999999999999d-2*gammaaa*t26*t31*t32 1676 t64 = -1.8799712059732546d+0*rhoa*t21*t35*t63+2.819956808959 1677 1 8814d+0*rhoa*t21*t52*t53-3.759942411946509d+0*t21*t34*t35 1678 t65 = rhoa**4 1679 t66 = 1/t65 1680 t67 = 1/t11**3 1681 t68 = -2.827433388230826d+1*t14*t16*t52*t67+1.41371669411541 1682 1 3d+1*t14*t16*t39*t63+5.654866776461652d+1*rhoa*t16*t34*t3 1683 2 9-2.827433388230826d+1*t16*t17 1684 t69 = t40**2 1685 t70 = -3.536776513153214d-2*t11*t13*t15*t18*t69+t18*t69-3.53 1686 1 6776513153214d-2*t11*t13*t15*t18*t68+t18*t68-2.1220659078 1687 2 919285d-1*t11*t13*t19*t66-3.536776513153214d-2*t13*t15*t1 1688 3 9*t63+1.4147106052612857d-1*t11*t13*t18*t38*t40-7.0735530 1689 4 26306428d-2*t13*t15*t18*t34*t40+1.4147106052612857d-1*t13 1690 5 *t19*t34*t38 1691 t71 = 2.659615202676212d-1*t10*t12*t70*t9+1.329807601338106d 1692 1 -1*t10*t20*t22*t63*t9-6.649038006690531d-2*t10*t20*t35*t5 1693 2 2*t9+2.659615202676212d-1*t10*t22*t34*t41*t9-5.3192304053 1694 3 52424d-1*t12*t15*t41*t9+5.319230405352424d-1*t12*t20*t38* 1695 4 t9-2.659615202676212d-1*t15*t20*t22*t34*t9+3.544907701811 1696 5 0403d+0*t18*t25*t64+3.5449077018110403d+0*t18*t25*t36*t40 1697 t72 = -3.5461536035682834d-1*t10*t12*t71*t8*t9-1.77307680178 1698 1 41417d-1*t10*t22*t23*t63*t8*t9+8.865384008920708d-2*t10*t 1699 2 23*t35*t52*t8*t9-3.5461536035682834d-1*t10*t22*t34*t42*t8 1700 3 *t9+7.092307207136567d-1*t12*t15*t42*t8*t9-7.092307207136 1701 4 567d-1*t12*t23*t38*t8*t9+3.5461536035682834d-1*t15*t22*t2 1702 5 3*t34*t8*t9 1703 t73 = -4.135669939329334d-1*t62+4.2d-3*gammaaa*t3*t32*t61-1. 1704 1 3066666666666665d-2*gammaaa*t54*t6-8.4d-3*gammaaa*t3*t55* 1705 2 t56-1.1199999999999999d-2*gammaaa*t26*t31*t32 1706 t74 = 1/rhoa**6.333333333333333d+0 1707 t75 = 1.6799999999999998d-2*gammaaa*t58*t74-1.67999999999999 1708 1 98d-2*t26*t4*t45-5.04d-2*t29*t30 1709 t76 = -4.2d-3*gammaaa*t3*t32*t75-5.599999999999999d-3*t26*t6 1710 1 +8.4d-3*gammaaa*t3*t31*t46*t56+5.599999999999999d-3*gamma 1711 2 aa*t26*t32*t46-4.2d-3*t3*t31*t32 1712 t77 = -1.8799712059732546d+0*rhoa*t21*t35*t76+2.819956808959 1713 1 8814d+0*rhoa*t21*t34*t47*t53-1.8799712059732546d+0*t21*t3 1714 2 5*t47 1715 t78 = 1.413716694115413d+1*t14*t16*t39*t76-2.827433388230826 1716 1 d+1*t14*t16*t34*t47*t67+2.827433388230826d+1*rhoa*t16*t39 1717 2 *t47 1718 t79 = -3.536776513153214d-2*t11*t13*t15*t18*t78+t18*t78-3.53 1719 1 6776513153214d-2*t13*t15*t19*t76+1.413716694115413d+1*t14 1720 2 *t16*t18*t39*t40*t47-5.0d-1*t17*t18*t40*t47-3.53677651315 1721 3 3214d-2*t13*t15*t18*t40*t47-5.0d-1*t18*t34*t39*t47+7.0735 1722 4 53026306428d-2*t13*t19*t38*t47+1.0d+0*t10*t17*t18*t47 1723 t80 = 2.659615202676212d-1*t10*t12*t79*t9+1.329807601338106d 1724 1 -1*t10*t20*t22*t76*t9+1.329807601338106d-1*t10*t22*t34*t4 1725 2 8*t9-2.659615202676212d-1*t12*t15*t48*t9+1.32980760133810 1726 3 6d-1*t10*t22*t41*t47*t9-6.649038006690531d-2*t10*t20*t34* 1727 4 t35*t47*t9-1.329807601338106d-1*t15*t20*t22*t47*t9+3.5449 1728 5 077018110403d+0*t18*t25*t77+5.01149519714857d+1*t14*t16*t 1729 6 18*t25*t36*t39*t47 1730 t81 = -3.5461536035682834d-1*t10*t12*t8*t80*t9-1.77307680178 1731 1 41417d-1*t10*t22*t23*t76*t8*t9-1.7730768017841417d-1*t10* 1732 2 t22*t34*t49*t8*t9+3.5461536035682834d-1*t12*t15*t49*t8*t9 1733 3 -1.7730768017841417d-1*t10*t22*t42*t47*t8*t9+8.8653840089 1734 4 20708d-2*t10*t23*t34*t35*t47*t8*t9+1.7730768017841417d-1* 1735 5 t15*t22*t23*t47*t8*t9 1736 t82 = 4.2d-3*gammaaa*t3*t32*t75+5.599999999999999d-3*t26*t6- 1737 1 8.4d-3*gammaaa*t3*t31*t46*t56-5.599999999999999d-3*gammaa 1738 2 a*t26*t32*t46+4.2d-3*t3*t31*t32 1739 t83 = 1/t9**3 1740 t84 = t47**2 1741 t85 = 1/t12**7 1742 t86 = t46**2 1743 t87 = 1/rhoa**5.333333333333333d+0 1744 t88 = 1/gammaaa 1745 t89 = 1/t1**3 1746 t90 = -6.3d-3*t3*t4*t89+6.3d-3*t27*t29*t88-6.3d-3*t58*t87 1747 t91 = -4.2d-3*gammaaa*t3*t32*t90+8.4d-3*gammaaa*t3*t56*t86-8 1748 1 .4d-3*t3*t32*t46 1749 t92 = 1/t9**4 1750 t93 = 1/t11**4 1751 t94 = 1.9985948912206125d+2*t18*t65*t84*t92*t93+1.4137166941 1752 1 15413d+1*t14*t16*t18*t39*t91-3.536776513153214d-2*t13*t15 1753 2 *t19*t91-5.0d-1*t17*t18*t91-3.534291735288533d+1*t14*t16* 1754 3 t18*t67*t84 1755 t95 = 2.659615202676212d-1*t10*t12*t9*t94+1.329807601338106d 1756 1 -1*t10*t20*t22*t9*t91-6.66432440723758d+0*rhoa*t18*t21*t2 1757 2 5*t35*t91-6.649038006690531d-2*t10*t20*t35*t84*t9+2.65961 1758 3 5202676212d-1*t10*t22*t47*t48*t9-9.421466669512572d+1*t18 1759 4 *t25*t37*t83*t84*t85+9.996486610856369d+0*rhoa*t18*t21*t2 1760 5 5*t53*t84 1761 t96 = -3.5461536035682834d-1*t10*t12*t8*t9*t95-1.77307680178 1762 1 41417d-1*t10*t22*t23*t8*t9*t91+8.865384008920708d-2*t10*t 1763 2 23*t35*t8*t84*t9-3.5461536035682834d-1*t10*t22*t47*t49*t8 1764 3 *t9 1765 t97 = 4.2d-3*gammaaa*t3*t32*t90-8.4d-3*gammaaa*t3*t56*t86+8. 1766 1 4d-3*t3*t32*t46 1767 t98 = t34**3 1768 t99 = 1/rhoa**4.333333333333333d+0 1769 t100 = 1/rhoa**1.6666666666666669d+0 1770 t101 = t31**3 1771 t102 = 1/t5**4 1772 t103 = 1/t28**5 1773 t104 = -2.6133333333333336d-1*t1*t4*t99+5.525333333333333d-1 1774 1 *t57*t58/rhoa**8.333333333333334d+0-8.885333333333333d-1* 1775 2 gammaaa*t29/rhoa**5.666666666666667d+0-1.7919999999999997 1776 3 d-1*gammaaa**3*t103/rhoa**11 1777 t105 = -4.355555555555556d-2*gammaaa*t6*t99+2.52d-2*gammaaa* 1778 1 t3*t31*t56*t61+1.6799999999999995d-2*gammaaa*t26*t32*t61- 1779 2 3.359999999999999d-2*gammaaa*t26*t55*t56-3.92d-2*gammaaa* 1780 3 t31*t32*t54-4.2d-3*gammaaa*t104*t3*t32-2.52d-2*gammaaa*t1 1781 4 01*t102*t3-2.7571132928862224d-1*t100 1782 t106 = rhoa**5 1783 t107 = 8.482300164692478d+1*t14*t16*t93*t98-8.48230016469247 1784 1 8d+1*t14*t16*t34*t63*t67-1.6964600329384957d+2*rhoa*t16*t 1785 2 52*t67+8.482300164692478d+1*rhoa*t16*t39*t63+8.4823001646 1786 3 92478d+1*t16*t34*t39+1.413716694115413d+1*t105*t14*t16*t3 1787 4 9 1788 t108 = t40**3 1789 t109 = 2.072d-1*t29*t60-1.7359999999999998d-1*gammaaa*t58*t5 1790 1 9+6.719999999999998d-2*t103*t57/rhoa**10+3.92d-2*t4*t45*t 1791 2 54 1792 t110 = 1.6799999999999998d-2*gammaaa*t3*t31*t56*t75+1.119999 1793 1 9999999999d-2*gammaaa*t26*t32*t75+8.4d-3*gammaaa*t3*t46*t 1794 2 56*t61-4.2d-3*t3*t32*t61+1.3066666666666665d-2*t54*t6+8.4 1795 3 d-3*t3*t55*t56-2.2399999999999998d-2*gammaaa*t26*t31*t46* 1796 4 t56-2.52d-2*gammaaa*t102*t3*t46*t55-1.3066666666666665d-2 1797 5 *gammaaa*t32*t46*t54+1.1199999999999999d-2*t26*t31*t32-4. 1798 6 2d-3*gammaaa*t109*t3*t32 1799 t111 = 8.482300164692478d+1*t14*t16*t47*t52*t93-5.6548667764 1800 1 61652d+1*t14*t16*t34*t67*t76+5.654866776461652d+1*rhoa*t1 1801 2 6*t39*t76-2.827433388230826d+1*t14*t16*t47*t63*t67-1.1309 1802 3 733552923305d+2*rhoa*t16*t34*t47*t67+2.827433388230826d+1 1803 4 *t16*t39*t47+1.413716694115413d+1*t110*t14*t16*t39 1804 t112 = 8.4d-3*t26*t4*t89-8.4d-3*t29*t30*t88+4.19999999999999 1805 1 93d-2*t58*t74-2.52d-2*gammaaa*t103/rhoa**9 1806 t113 = 8.4d-3*gammaaa*t3*t31*t56*t90+5.599999999999999d-3*ga 1807 1 mmaaa*t26*t32*t90-1.1199999999999999d-2*gammaaa*t26*t56*t 1808 2 86-2.52d-2*gammaaa*t102*t3*t31*t86+1.6799999999999998d-2* 1809 3 gammaaa*t3*t46*t56*t75-8.4d-3*t3*t32*t75+1.67999999999999 1810 4 98d-2*t3*t31*t46*t56+1.1199999999999999d-2*t26*t32*t46-4. 1811 5 2d-3*gammaaa*t112*t3*t32 1812 t114 = 8.482300164692478d+1*t14*t16*t34*t84*t93-2.8274333882 1813 1 30826d+1*t14*t16*t34*t67*t91+2.827433388230826d+1*rhoa*t1 1814 2 6*t39*t91-5.654866776461652d+1*rhoa*t16*t67*t84-5.6548667 1815 3 76461652d+1*t14*t16*t47*t67*t76+1.413716694115413d+1*t113 1816 4 *t14*t16*t39 1817 t115 = t47**3 1818 t116 = t46**3 1819 t117 = -3.15d-3*t58*t87*t88-9.450000000000001d-3*t27*t29/t57 1820 1 +9.450000000000001d-3*t3*t4/t1**5+9.450000000000001d-3*t1 1821 2 03/rhoa**8 1822 t118 = 2.52d-2*gammaaa*t3*t46*t56*t90-1.26d-2*t3*t32*t90+2.5 1823 1 2d-2*t3*t56*t86-4.2d-3*gammaaa*t117*t3*t32-2.52d-2*gammaa 1824 2 a*t102*t116*t3 1825 fnc(iq) = 2*t24*t7*wght+fnc(iq) 1826 Amat(iq,D1_RA) = (t43*t7+t24*t44)*wght+Amat(iq,D1_RA) 1827 Cmat(iq,D1_GAA) = (t50*t7+t24*t51)*wght+Cmat(iq,D1_GAA) 1828 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 1829 Amat2(iq,D2_RA_RA) = (t24*t73+t7*t72+2*t43*t44)*wght+Amat2(i 1830 1 q,D2_RA_RA) 1831 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 1832 Cmat2(iq,D2_RA_GAA) = (t24*t82+t7*t81+t43*t51+t44*t50)*wght+ 1833 1 Cmat2(iq,D2_RA_GAA) 1834 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 1835 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 1836 Cmat2(iq,D2_GAA_GAA) = (t24*t97+t7*t96+2*t50*t51)*wght+Cmat2 1837 1 (iq,D2_GAA_GAA) 1838 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 1839 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 1840 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 1841 Amat3(iq,D3_RA_RA_RA) = (t24*(4.355555555555556d-2*gammaaa*t 1842 1 6*t99-2.52d-2*gammaaa*t3*t31*t56*t61-1.6799999999999995d- 1843 2 2*gammaaa*t26*t32*t61+3.359999999999999d-2*gammaaa*t26*t5 1844 3 5*t56+3.92d-2*gammaaa*t31*t32*t54+4.2d-3*gammaaa*t104*t3* 1845 4 t32+2.52d-2*gammaaa*t101*t102*t3+2.7571132928862224d-1*t1 1846 5 00)+t7*(-3.5461536035682834d-1*t10*t12*t8*t9*(3.544907701 1847 6 8110403d+0*t18*t25*(-7.049892022399704d+0*rhoa*t21*t85*t9 1848 7 8+8.459870426879645d+0*rhoa*t21*t34*t53*t63-5.63991361791 1849 8 9763d+0*t21*t35*t63+8.459870426879645d+0*t21*t52*t53-1.87 1850 9 99712059732546d+0*rhoa*t105*t21*t35)+9.973557010035795d-2 1851 : *t10*t20*t53*t9*t98+3.989422804014318d-1*t10*t22*t34*t70* 1852 ; t9-7.978845608028636d-1*t12*t15*t70*t9+2.659615202676212d 1853 < -1*t10*t12*(2.1220659078919285d-1*t11*t13*t18*t38*t69-1.0 1854 = 610329539459643d-1*t13*t15*t18*t34*t69-1.0610329539459643 1855 > d-1*t11*t13*t15*t18*t40*t68+3*t18*t40*t68+2.1220659078919 1856 ? 285d-1*t11*t13*t18*t38*t68-1.0610329539459643d-1*t13*t15* 1857 @ t18*t34*t68-6.366197723675786d-1*t11*t13*t18*t40*t66-6.36 1858 1 6197723675786d-1*t13*t19*t34*t66-1.0610329539459643d-1*t1 1859 2 3*t15*t18*t40*t63+2.1220659078919285d-1*t13*t19*t38*t63+4 1860 3 .244131815783857d-1*t13*t18*t34*t38*t40-3.536776513153214 1861 4 d-2*t105*t13*t15*t19+8.488263631567714d-1*t11*t13*t19/t10 1862 5 6-3.536776513153214d-2*t108*t11*t13*t15*t18-3.53677651315 1863 6 3214d-2*t107*t11*t13*t15*t18+t108*t18+t107*t18)*t9-1.5957 1864 7 691216057274d+0*t12*t20*t66*t9+3.989422804014318d-1*t10*t 1865 8 22*t41*t63*t9-1.994711402007159d-1*t10*t20*t34*t35*t63*t9 1866 9 -3.989422804014318d-1*t15*t20*t22*t63*t9-1.99471140200715 1867 : 9d-1*t10*t35*t41*t52*t9+1.994711402007159d-1*t15*t20*t35* 1868 ; t52*t9+1.5957691216057274d+0*t12*t38*t41*t9-7.97884560802 1869 < 8636d-1*t15*t22*t34*t41*t9+7.978845608028636d-1*t20*t22*t 1870 = 34*t38*t9+1.329807601338106d-1*t10*t105*t20*t22*t9+3.5449 1871 > 077018110403d+0*t18*t25*t36*t69+3.5449077018110403d+0*t18 1872 ? *t25*t36*t68+7.089815403622081d+0*t18*t25*t40*t64)-1.3298 1873 @ 076013381063d-1*t10*t23*t53*t8*t9*t98-5.319230405352425d- 1874 1 1*t10*t22*t34*t71*t8*t9+1.063846081070485d+0*t12*t15*t71* 1875 2 t8*t9+2.12769216214097d+0*t12*t23*t66*t8*t9-5.31923040535 1876 3 2425d-1*t10*t22*t42*t63*t8*t9+2.6596152026762127d-1*t10*t 1877 4 23*t34*t35*t63*t8*t9+5.319230405352425d-1*t15*t22*t23*t63 1878 5 *t8*t9+2.6596152026762127d-1*t10*t35*t42*t52*t8*t9-2.6596 1879 6 152026762127d-1*t15*t23*t35*t52*t8*t9-2.12769216214097d+0 1880 7 *t12*t38*t42*t8*t9+1.063846081070485d+0*t15*t22*t34*t42*t 1881 8 8*t9-1.063846081070485d+0*t22*t23*t34*t38*t8*t9-1.7730768 1882 9 017841417d-1*t10*t105*t22*t23*t8*t9)+3*t43*t73+3*t44*t72) 1883 : *wght+Amat3(iq,D3_RA_RA_RA) 1884 Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB) 1885 Cmat3(iq,D3_RA_RA_GAA) = (t7*(-3.5461536035682834d-1*t10*t12 1886 1 *t8*t9*(2.659615202676212d-1*t10*t22*t34*t79*t9-5.3192304 1887 2 05352424d-1*t12*t15*t79*t9+2.659615202676212d-1*t10*t12*( 1888 3 -7.073553026306428d-2*t11*t13*t15*t18*t40*t78+2*t18*t40*t 1889 4 78+1.4147106052612857d-1*t11*t13*t18*t38*t78-7.0735530263 1890 5 06428d-2*t13*t15*t18*t34*t78-7.073553026306428d-2*t13*t15 1891 6 *t18*t40*t76+1.4147106052612857d-1*t13*t19*t38*t76+1.4137 1892 7 16694115413d+1*t14*t16*t18*t39*t47*t69-5.0d-1*t17*t18*t47 1893 8 *t69-3.536776513153214d-2*t13*t15*t18*t47*t69+1.413716694 1894 9 115413d+1*t14*t16*t18*t39*t47*t68-5.0d-1*t17*t18*t47*t68- 1895 : 3.536776513153214d-2*t13*t15*t18*t47*t68-2.12206590789192 1896 ; 85d-1*t13*t19*t47*t66-5.0d-1*t18*t39*t47*t63-1.0d+0*t18*t 1897 < 34*t39*t40*t47+1.4147106052612857d-1*t13*t18*t38*t40*t47+ 1898 = 2.0d+0*t10*t17*t18*t40*t47+2.0d+0*t10*t18*t34*t39*t47-3.0 1899 > d+0*t15*t17*t18*t47-3.536776513153214d-2*t110*t13*t15*t19 1900 ? -3.536776513153214d-2*t11*t111*t13*t15*t18+t111*t18)*t9+2 1901 @ .659615202676212d-1*t10*t22*t41*t76*t9-1.329807601338106d 1902 1 -1*t10*t20*t34*t35*t76*t9-2.659615202676212d-1*t15*t20*t2 1903 2 2*t76*t9+1.329807601338106d-1*t10*t22*t47*t70*t9+1.329807 1904 3 601338106d-1*t10*t22*t48*t63*t9-6.649038006690531d-2*t10* 1905 4 t20*t35*t47*t63*t9+9.973557010035795d-2*t10*t20*t47*t52*t 1906 5 53*t9-6.649038006690531d-2*t10*t35*t48*t52*t9+5.319230405 1907 6 352424d-1*t12*t38*t48*t9-2.659615202676212d-1*t15*t22*t34 1908 7 *t48*t9-1.329807601338106d-1*t10*t34*t35*t41*t47*t9-2.659 1909 8 615202676212d-1*t15*t22*t41*t47*t9+2.659615202676212d-1*t 1910 9 20*t22*t38*t47*t9+1.329807601338106d-1*t15*t20*t34*t35*t4 1911 : 7*t9+1.329807601338106d-1*t10*t110*t20*t22*t9+3.544907701 1912 ; 8110403d+0*t18*t25*(-7.049892022399704d+0*rhoa*t21*t47*t5 1913 < 2*t85+5.639913617919763d+0*rhoa*t21*t34*t53*t76-3.7599424 1914 = 11946509d+0*t21*t35*t76+2.8199568089598814d+0*rhoa*t21*t4 1915 > 7*t53*t63+5.639913617919763d+0*t21*t34*t47*t53-1.87997120 1916 ? 59732546d+0*rhoa*t110*t21*t35)+3.5449077018110403d+0*t18* 1917 @ t25*t36*t78+3.5449077018110403d+0*t18*t25*t40*t77+5.01149 1918 1 519714857d+1*t14*t16*t18*t25*t39*t47*t64+5.01149519714857 1919 2 d+1*t14*t16*t18*t25*t36*t39*t40*t47)-3.5461536035682834d- 1920 3 1*t10*t22*t34*t8*t80*t9+7.092307207136567d-1*t12*t15*t8*t 1921 4 80*t9-3.5461536035682834d-1*t10*t22*t42*t76*t8*t9+1.77307 1922 5 68017841417d-1*t10*t23*t34*t35*t76*t8*t9+3.54615360356828 1923 6 34d-1*t15*t22*t23*t76*t8*t9-1.7730768017841417d-1*t10*t22 1924 7 *t47*t71*t8*t9-1.7730768017841417d-1*t10*t22*t49*t63*t8*t 1925 8 9+8.865384008920708d-2*t10*t23*t35*t47*t63*t8*t9-1.329807 1926 9 6013381063d-1*t10*t23*t47*t52*t53*t8*t9+8.865384008920708 1927 : d-2*t10*t35*t49*t52*t8*t9-7.092307207136567d-1*t12*t38*t4 1928 ; 9*t8*t9+3.5461536035682834d-1*t15*t22*t34*t49*t8*t9+1.773 1929 < 0768017841417d-1*t10*t34*t35*t42*t47*t8*t9+3.546153603568 1930 = 2834d-1*t15*t22*t42*t47*t8*t9-3.5461536035682834d-1*t22*t 1931 > 23*t38*t47*t8*t9-1.7730768017841417d-1*t15*t23*t34*t35*t4 1932 ? 7*t8*t9-1.7730768017841417d-1*t10*t110*t22*t23*t8*t9)+2*t 1933 @ 43*t82+2*t44*t81+t24*(-1.6799999999999998d-2*gammaaa*t3*t 1934 1 31*t56*t75-1.1199999999999999d-2*gammaaa*t26*t32*t75-8.4d 1935 2 -3*gammaaa*t3*t46*t56*t61+4.2d-3*t3*t32*t61-1.30666666666 1936 3 66665d-2*t54*t6-8.4d-3*t3*t55*t56+2.2399999999999998d-2*g 1937 4 ammaaa*t26*t31*t46*t56+2.52d-2*gammaaa*t102*t3*t46*t55+1. 1938 5 3066666666666665d-2*gammaaa*t32*t46*t54-1.119999999999999 1939 6 9d-2*t26*t31*t32+4.2d-3*gammaaa*t109*t3*t32)+t50*t73+t51* 1940 7 t72)*wght+Cmat3(iq,D3_RA_RA_GAA) 1941 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 1942 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 1943 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 1944 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 1945 Cmat3(iq,D3_RA_GAA_GAA) = (t43*t97+t44*t96+t7*(-1.7730768017 1946 1 841417d-1*t10*t22*t34*t8*t9*t95+3.5461536035682834d-1*t12 1947 2 *t15*t8*t9*t95-3.5461536035682834d-1*t10*t12*t8*t9*(1.329 1948 3 807601338106d-1*t10*t22*t34*t9*t94-2.659615202676212d-1*t 1949 4 12*t15*t9*t94+2.659615202676212d-1*t10*t12*t9*(1.99859489 1950 5 12206125d+2*t18*t40*t65*t84*t92*t93-7.068583470577066d+0* 1951 6 t14*t16*t18*t34*t84*t93+1.413716694115413d+1*t14*t16*t18* 1952 7 t39*t40*t91-5.0d-1*t17*t18*t40*t91-3.536776513153214d-2*t 1953 8 13*t15*t18*t40*t91-5.0d-1*t18*t34*t39*t91+7.0735530263064 1954 9 28d-2*t13*t19*t38*t91+1.0d+0*t10*t17*t18*t91-3.5342917352 1955 : 88533d+1*t14*t16*t18*t40*t67*t84+1.0d+0*t18*t34*t67*t84+1 1956 ; .413716694115413d+1*rhoa*t16*t18*t67*t84+2.82743338823082 1957 < 6d+1*t14*t16*t18*t39*t47*t78-1.0d+0*t17*t18*t47*t78-7.073 1958 = 553026306428d-2*t13*t15*t18*t47*t78-1.0d+0*t18*t39*t47*t7 1959 > 6-3.536776513153214d-2*t113*t13*t15*t19-3.536776513153214 1960 ? d-2*t11*t114*t13*t15*t18+t114*t18)+7.084834422688148d+2*t 1961 @ 18*t25*t36*t65*t84*t92*t93+3.5449077018110403d+0*t18*t25* 1962 1 (2.8199568089598814d+0*rhoa*t21*t34*t53*t91-1.87997120597 1963 2 32546d+0*t21*t35*t91-7.049892022399704d+0*rhoa*t21*t34*t8 1964 3 4*t85+2.8199568089598814d+0*t21*t53*t84+5.639913617919763 1965 4 d+0*rhoa*t21*t47*t53*t76-1.8799712059732546d+0*rhoa*t113* 1966 5 t21*t35)+1.329807601338106d-1*t10*t22*t41*t9*t91-6.649038 1967 6 006690531d-2*t10*t20*t34*t35*t9*t91-1.329807601338106d-1* 1968 7 t15*t20*t22*t9*t91+5.01149519714857d+1*t14*t16*t18*t25*t3 1969 8 6*t39*t91+9.973557010035795d-2*t10*t20*t34*t53*t84*t9-6.6 1970 9 49038006690531d-2*t10*t35*t41*t84*t9+6.649038006690531d-2 1971 : *t15*t20*t35*t84*t9+2.659615202676212d-1*t10*t22*t47*t79* 1972 ; t9+2.659615202676212d-1*t10*t22*t48*t76*t9-1.329807601338 1973 < 106d-1*t10*t20*t35*t47*t76*t9-1.329807601338106d-1*t10*t3 1974 = 4*t35*t47*t48*t9-2.659615202676212d-1*t15*t22*t47*t48*t9+ 1975 > 1.329807601338106d-1*t10*t113*t20*t22*t9-1.00229903942971 1976 ? 4d+2*t14*t16*t18*t25*t36*t67*t84+1.002299039429714d+2*t14 1977 @ *t16*t18*t25*t39*t47*t77)-1.7730768017841417d-1*t10*t22*t 1978 1 42*t8*t9*t91+8.865384008920708d-2*t10*t23*t34*t35*t8*t9*t 1979 2 91+1.7730768017841417d-1*t15*t22*t23*t8*t9*t91-1.32980760 1980 3 13381063d-1*t10*t23*t34*t53*t8*t84*t9+8.865384008920708d- 1981 4 2*t10*t35*t42*t8*t84*t9-8.865384008920708d-2*t15*t23*t35* 1982 5 t8*t84*t9-3.5461536035682834d-1*t10*t22*t47*t8*t80*t9-3.5 1983 6 461536035682834d-1*t10*t22*t49*t76*t8*t9+1.77307680178414 1984 7 17d-1*t10*t23*t35*t47*t76*t8*t9+1.7730768017841417d-1*t10 1985 8 *t34*t35*t47*t49*t8*t9+3.5461536035682834d-1*t15*t22*t47* 1986 9 t49*t8*t9-1.7730768017841417d-1*t10*t113*t22*t23*t8*t9)+t 1987 : 24*(-8.4d-3*gammaaa*t3*t31*t56*t90-5.599999999999999d-3*g 1988 ; ammaaa*t26*t32*t90+1.1199999999999999d-2*gammaaa*t26*t56* 1989 < t86+2.52d-2*gammaaa*t102*t3*t31*t86-1.6799999999999998d-2 1990 = *gammaaa*t3*t46*t56*t75+8.4d-3*t3*t32*t75-1.6799999999999 1991 > 998d-2*t3*t31*t46*t56-1.1199999999999999d-2*t26*t32*t46+4 1992 ? .2d-3*gammaaa*t112*t3*t32)+2*t50*t82+2*t51*t81)*wght+Cmat 1993 @ 3(iq,D3_RA_GAA_GAA) 1994 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 1995 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 1996 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 1997 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 1998 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 1999 Cmat3(iq,D3_GAA_GAA_GAA) = (3*t50*t97+3*t51*t96+t7*(-5.31923 2000 1 0405352425d-1*t10*t22*t47*t8*t9*t95-3.5461536035682834d-1 2001 2 *t10*t12*t8*t9*(3.989422804014318d-1*t10*t22*t47*t9*t94+2 2002 3 .659615202676212d-1*t10*t12*t9*(5.995784673661838d+2*t18* 2003 4 t47*t65*t91*t92*t93+1.0602875205865599d+2*t115*t14*t16*t1 2004 5 8*t93-1.2990866792933983d+3*t115*t18*t65*t92/t11**5-1.060 2005 6 2875205865599d+2*t14*t16*t18*t47*t67*t91+2.82544696249235 2006 7 84d+3*rhoa**6*t115*t18/(t11**6*t9**6)+1.413716694115413d+ 2007 8 1*t118*t14*t16*t18*t39-3.536776513153214d-2*t118*t13*t15* 2008 9 t19-5.0d-1*t118*t17*t18)+3.989422804014318d-1*t10*t22*t48 2009 : *t9*t91-1.994711402007159d-1*t10*t20*t35*t47*t9*t91-2.826 2010 ; 440000853771d+2*t18*t25*t37*t47*t83*t85*t91+2.99894598325 2011 < 6911d+1*rhoa*t18*t21*t25*t47*t53*t91-1.994711402007159d-1 2012 = *t10*t35*t48*t84*t9+9.973557010035795d-2*t10*t115*t20*t53 2013 > *t9+1.329807601338106d-1*t10*t118*t20*t22*t9-1.3319284713 2014 ? 741864d+3*t106*t115*t18*t25/(t12**11*t9**5)-2.49912165271 2015 @ 40922d+1*rhoa*t115*t18*t21*t25*t85+4.710733334756285d+2*t 2016 1 115*t18*t25*t37*t83/t12**9-6.66432440723758d+0*rhoa*t118* 2017 2 t18*t21*t25*t35)-5.319230405352425d-1*t10*t22*t49*t8*t9*t 2018 3 91+2.6596152026762127d-1*t10*t23*t35*t47*t8*t9*t91+2.6596 2019 4 152026762127d-1*t10*t35*t49*t8*t84*t9-1.3298076013381063d 2020 5 -1*t10*t115*t23*t53*t8*t9-1.7730768017841417d-1*t10*t118* 2021 6 t22*t23*t8*t9)+t24*(-2.52d-2*gammaaa*t3*t46*t56*t90+1.26d 2022 7 -2*t3*t32*t90-2.52d-2*t3*t56*t86+4.2d-3*gammaaa*t117*t3*t 2023 8 32+2.52d-2*gammaaa*t102*t116*t3))*wght+Cmat3(iq,D3_GAA_GA 2024 9 A_GAA) 2025 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 2026 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 2027 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 2028 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 2029 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 2030 endif ! rhoa.gt.tol_rho 2031 else ! ipol.eq.1 2032 rhoa = rho(iq,R_A) 2033 rhob = rho(iq,R_B) 2034 gammaaa = rgamma(iq,G_AA) 2035 gammaab = rgamma(iq,G_AB) 2036 gammabb = rgamma(iq,G_BB) 2037 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 2038 t1 = gammaaa**5.0d-1 2039 t2 = rhoa**1.3333333333333333d+0 2040 t3 = 1/t2 2041 t4 = asinh(t1*t3) 2042 t5 = 2.52d-2*t1*t3*t4+1.0d+0 2043 t6 = 1/t5 2044 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 2045 t8 = -param(1) 2046 t9 = param(2) 2047 t10 = param(3) 2048 t11 = 1/rhoa 2049 t12 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 2050 t13 = t12**5.0d-1 2051 t14 = t10**2 2052 t15 = rhoa**2 2053 t16 = 1/t15 2054 t17 = 1/t14 2055 t18 = 1/t12 2056 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 2057 t20 = t19-1.0d+0 2058 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 2059 t22 = 1/t10 2060 t23 = 1/t13 2061 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 2062 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 2063 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9+t8+1.0d+0 2064 t26 = gammabb**5.0d-1 2065 t27 = rhob**1.3333333333333333d+0 2066 t28 = 1/t27 2067 t29 = asinh(t26*t28) 2068 t30 = 2.52d-2*t26*t28*t29+1.0d+0 2069 t31 = 1/t30 2070 t32 = -4.2d-3*gammabb*t28*t31-9.305257363491002d-1*t27 2071 t33 = 1/rhob 2072 t34 = 4.2d-3*gammabb*t28*t31+9.305257363491002d-1*t27 2073 t35 = t34**5.0d-1 2074 t36 = rhob**2 2075 t37 = 1/t36 2076 t38 = 1/t34 2077 t39 = exp(-1.413716694115413d+1*t17*t36*t38) 2078 t40 = t39-1.0d+0 2079 t41 = -3.536776513153214d-2*t14*t34*t37*t40+t39-1.5d+0 2080 t42 = 1/t35 2081 t43 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 2082 1 2*t42)+2.659615202676212d-1*t10*t33*t35*t41 2083 t44 = -3.5461536035682834d-1*t10*t33*t35*t43*t9+t8+1.0d+0 2084 t45 = 5.641895835477563d-1 2085 t46 = 1/rhoa**2.3333333333333334d+0 2086 t47 = 1/rhoa**2.6666666666666666d+0 2087 t48 = (gammaaa*t47+1)**5.0d-1 2088 t49 = 1/t48 2089 t50 = 1/rhoa**3.6666666666666664d+0 2090 t51 = -3.3599999999999997d-2*gammaaa*t49*t50-3.3599999999999 2091 1 997d-2*t1*t4*t46 2092 t52 = 1/t5**2 2093 t53 = rhoa**3.333333333333333d-1 2094 t54 = -5.599999999999999d-3*gammaaa*t46*t6+1.240700981798800 2095 1 2d+0*t53-4.2d-3*gammaaa*t3*t51*t52 2096 t55 = 1/t13**3 2097 t56 = 3.759942411946509d+0*t22*t23-1.8799712059732546d+0*rho 2098 1 a*t22*t54*t55 2099 t57 = rhoa**3 2100 t58 = 1/t57 2101 t59 = 1/t12**2 2102 t60 = 1.413716694115413d+1*t15*t17*t54*t59-2.827433388230826 2103 1 d+1*rhoa*t17*t18 2104 t61 = -3.536776513153214d-2*t12*t14*t16*t19*t60+t19*t60+7.07 2105 1 3553026306428d-2*t12*t14*t20*t58-3.536776513153214d-2*t14 2106 2 *t16*t20*t54 2107 t62 = 2.659615202676212d-1*t10*t11*t13*t61+3.544907701811040 2108 1 3d+0*t19*t45*t56+1.329807601338106d-1*t10*t11*t21*t23*t54 2109 2 -2.659615202676212d-1*t10*t13*t16*t21 2110 t63 = -3.5461536035682834d-1*t10*t11*t13*t62*t9-1.7730768017 2111 1 841417d-1*t10*t11*t23*t24*t54*t9+3.5461536035682834d-1*t1 2112 2 0*t13*t16*t24*t9 2113 t64 = 5.599999999999999d-3*gammaaa*t46*t6-1.2407009817988002 2114 1 d+0*t53+4.2d-3*gammaaa*t3*t51*t52 2115 t65 = 1/rhob**2.3333333333333334d+0 2116 t66 = 1/rhob**2.6666666666666666d+0 2117 t67 = (gammabb*t66+1)**5.0d-1 2118 t68 = 1/t67 2119 t69 = 1/rhob**3.6666666666666664d+0 2120 t70 = -3.3599999999999997d-2*gammabb*t68*t69-3.3599999999999 2121 1 997d-2*t26*t29*t65 2122 t71 = 1/t30**2 2123 t72 = rhob**3.333333333333333d-1 2124 t73 = 1.2407009817988002d+0*t72-4.2d-3*gammabb*t28*t70*t71-5 2125 1 .599999999999999d-3*gammabb*t31*t65 2126 t74 = 1/t35**3 2127 t75 = 3.759942411946509d+0*t22*t42-1.8799712059732546d+0*rho 2128 1 b*t22*t73*t74 2129 t76 = rhob**3 2130 t77 = 1/t76 2131 t78 = 1/t34**2 2132 t79 = 1.413716694115413d+1*t17*t36*t73*t78-2.827433388230826 2133 1 d+1*rhob*t17*t38 2134 t80 = -3.536776513153214d-2*t14*t34*t37*t39*t79+t39*t79+7.07 2135 1 3553026306428d-2*t14*t34*t40*t77-3.536776513153214d-2*t14 2136 2 *t37*t40*t73 2137 t81 = 2.659615202676212d-1*t10*t33*t35*t80+3.544907701811040 2138 1 3d+0*t39*t45*t75+1.329807601338106d-1*t10*t33*t41*t42*t73 2139 2 -2.659615202676212d-1*t10*t35*t37*t41 2140 t82 = -3.5461536035682834d-1*t10*t33*t35*t81*t9-1.7730768017 2141 1 841417d-1*t10*t33*t42*t43*t73*t9+3.5461536035682834d-1*t1 2142 2 0*t35*t37*t43*t9 2143 t83 = -1.2407009817988002d+0*t72+4.2d-3*gammabb*t28*t70*t71+ 2144 1 5.599999999999999d-3*gammabb*t31*t65 2145 t84 = 1/t1 2146 t85 = 1.26d-2*t3*t4*t84+1.26d-2*t47*t49 2147 t86 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t52*t85 2148 t87 = 1.413716694115413d+1*t15*t17*t19*t59*t86-3.53677651315 2149 1 3214d-2*t14*t16*t20*t86-5.0d-1*t18*t19*t86 2150 t88 = 2.659615202676212d-1*t10*t11*t13*t87-6.66432440723758d 2151 1 +0*rhoa*t19*t22*t45*t55*t86+1.329807601338106d-1*t10*t11* 2152 2 t21*t23*t86 2153 t89 = -3.5461536035682834d-1*t10*t11*t13*t88*t9-1.7730768017 2154 1 841417d-1*t10*t11*t23*t24*t86*t9 2155 t90 = 4.2d-3*gammaaa*t3*t52*t85-4.2d-3*t3*t6 2156 t91 = 1/t26 2157 t92 = 1.26d-2*t28*t29*t91+1.26d-2*t66*t68 2158 t93 = 4.2d-3*t28*t31-4.2d-3*gammabb*t28*t71*t92 2159 t94 = 1.413716694115413d+1*t17*t36*t39*t78*t93-3.53677651315 2160 1 3214d-2*t14*t37*t40*t93-5.0d-1*t38*t39*t93 2161 t95 = 2.659615202676212d-1*t10*t33*t35*t94-6.66432440723758d 2162 1 +0*rhob*t22*t39*t45*t74*t93+1.329807601338106d-1*t10*t33* 2163 2 t41*t42*t93 2164 t96 = -3.5461536035682834d-1*t10*t33*t35*t9*t95-1.7730768017 2165 1 841417d-1*t10*t33*t42*t43*t9*t93 2166 t97 = 4.2d-3*gammabb*t28*t71*t92-4.2d-3*t28*t31 2167 t98 = t54**2 2168 t99 = 1/t13**5 2169 t100 = 1/rhoa**3.3333333333333337d+0 2170 t101 = t51**2 2171 t102 = 1/t5**3 2172 t103 = gammaaa**2 2173 t104 = 1/t48**3 2174 t105 = 1/rhoa**7.333333333333333d+0 2175 t106 = 1/rhoa**4.666666666666667d+0 2176 t107 = 1.6799999999999998d-1*gammaaa*t106*t49+7.84d-2*t1*t10 2177 1 0*t4-4.4799999999999995d-2*t103*t104*t105 2178 t108 = 1/rhoa**6.666666666666666d-1 2179 t109 = 1.3066666666666665d-2*gammaaa*t100*t6+1.1199999999999 2180 1 999d-2*gammaaa*t46*t51*t52-4.2d-3*gammaaa*t107*t3*t52+8.4 2181 2 d-3*gammaaa*t101*t102*t3+4.135669939329334d-1*t108 2182 t110 = 2.8199568089598814d+0*rhoa*t22*t98*t99-3.759942411946 2183 1 509d+0*t22*t54*t55-1.8799712059732546d+0*rhoa*t109*t22*t5 2184 2 5 2185 t111 = rhoa**4 2186 t112 = 1/t111 2187 t113 = 1/t12**3 2188 t114 = -2.827433388230826d+1*t113*t15*t17*t98+5.654866776461 2189 1 652d+1*rhoa*t17*t54*t59+1.413716694115413d+1*t109*t15*t17 2190 2 *t59-2.827433388230826d+1*t17*t18 2191 t115 = t60**2 2192 t116 = 1.4147106052612857d-1*t12*t14*t19*t58*t60-7.073553026 2193 1 306428d-2*t14*t16*t19*t54*t60+1.4147106052612857d-1*t14*t 2194 2 20*t54*t58-3.536776513153214d-2*t109*t14*t16*t20-2.122065 2195 3 9078919285d-1*t112*t12*t14*t20-3.536776513153214d-2*t115* 2196 4 t12*t14*t16*t19-3.536776513153214d-2*t114*t12*t14*t16*t19 2197 5 +t115*t19+t114*t19 2198 t117 = -6.649038006690531d-2*t10*t11*t21*t55*t98+2.659615202 2199 1 676212d-1*t10*t11*t23*t54*t61-5.319230405352424d-1*t10*t1 2200 2 3*t16*t61+3.5449077018110403d+0*t19*t45*t56*t60+5.3192304 2201 3 05352424d-1*t10*t13*t21*t58-2.659615202676212d-1*t10*t16* 2202 4 t21*t23*t54+3.5449077018110403d+0*t110*t19*t45+1.32980760 2203 5 1338106d-1*t10*t109*t11*t21*t23+2.659615202676212d-1*t10* 2204 6 t11*t116*t13 2205 t118 = 8.865384008920708d-2*t10*t11*t24*t55*t9*t98-3.5461536 2206 1 035682834d-1*t10*t11*t23*t54*t62*t9+7.092307207136567d-1* 2207 2 t10*t13*t16*t62*t9-7.092307207136567d-1*t10*t13*t24*t58*t 2208 3 9+3.5461536035682834d-1*t10*t16*t23*t24*t54*t9-1.77307680 2209 4 17841417d-1*t10*t109*t11*t23*t24*t9-3.5461536035682834d-1 2210 5 *t10*t11*t117*t13*t9 2211 t119 = -1.3066666666666665d-2*gammaaa*t100*t6-1.119999999999 2212 1 9999d-2*gammaaa*t46*t51*t52+4.2d-3*gammaaa*t107*t3*t52-8. 2213 2 4d-3*gammaaa*t101*t102*t3-4.135669939329334d-1*t108 2214 t120 = t73**2 2215 t121 = 1/t35**5 2216 t122 = 1/rhob**3.3333333333333337d+0 2217 t123 = t70**2 2218 t124 = 1/t30**3 2219 t125 = gammabb**2 2220 t126 = 1/t67**3 2221 t127 = 1/rhob**7.333333333333333d+0 2222 t128 = 1/rhob**4.666666666666667d+0 2223 t129 = 1.6799999999999998d-1*gammabb*t128*t68+7.84d-2*t122*t 2224 1 26*t29-4.4799999999999995d-2*t125*t126*t127 2225 t130 = 1/rhob**6.666666666666666d-1 2226 t131 = 1.1199999999999999d-2*gammabb*t65*t70*t71-4.2d-3*gamm 2227 1 abb*t129*t28*t71+1.3066666666666665d-2*gammabb*t122*t31+8 2228 2 .4d-3*gammabb*t123*t124*t28+4.135669939329334d-1*t130 2229 t132 = -3.759942411946509d+0*t22*t73*t74-1.8799712059732546d 2230 1 +0*rhob*t131*t22*t74+2.8199568089598814d+0*rhob*t120*t121 2231 2 *t22 2232 t133 = rhob**4 2233 t134 = 1/t133 2234 t135 = 1/t34**3 2235 t136 = 5.654866776461652d+1*rhob*t17*t73*t78+1.4137166941154 2236 1 13d+1*t131*t17*t36*t78-2.827433388230826d+1*t17*t38-2.827 2237 2 433388230826d+1*t120*t135*t17*t36 2238 t137 = t79**2 2239 t138 = 1.4147106052612857d-1*t14*t34*t39*t77*t79-7.073553026 2240 1 306428d-2*t14*t37*t39*t73*t79+1.4147106052612857d-1*t14*t 2241 2 40*t73*t77-3.536776513153214d-2*t131*t14*t37*t40-2.122065 2242 3 9078919285d-1*t134*t14*t34*t40-3.536776513153214d-2*t137* 2243 4 t14*t34*t37*t39-3.536776513153214d-2*t136*t14*t34*t37*t39 2244 5 +t137*t39+t136*t39 2245 t139 = 2.659615202676212d-1*t10*t33*t42*t73*t80-5.3192304053 2246 1 52424d-1*t10*t35*t37*t80+3.5449077018110403d+0*t39*t45*t7 2247 2 5*t79+5.319230405352424d-1*t10*t35*t41*t77-6.649038006690 2248 3 531d-2*t10*t120*t33*t41*t74-2.659615202676212d-1*t10*t37* 2249 4 t41*t42*t73+3.5449077018110403d+0*t132*t39*t45+1.32980760 2250 5 1338106d-1*t10*t131*t33*t41*t42+2.659615202676212d-1*t10* 2251 6 t138*t33*t35 2252 t140 = -3.5461536035682834d-1*t10*t33*t42*t73*t81*t9+7.09230 2253 1 7207136567d-1*t10*t35*t37*t81*t9-7.092307207136567d-1*t10 2254 2 *t35*t43*t77*t9+8.865384008920708d-2*t10*t120*t33*t43*t74 2255 3 *t9+3.5461536035682834d-1*t10*t37*t42*t43*t73*t9-1.773076 2256 4 8017841417d-1*t10*t131*t33*t42*t43*t9-3.5461536035682834d 2257 5 -1*t10*t139*t33*t35*t9 2258 t141 = -1.1199999999999999d-2*gammabb*t65*t70*t71+4.2d-3*gam 2259 1 mabb*t129*t28*t71-1.3066666666666665d-2*gammabb*t122*t31- 2260 2 8.4d-3*gammabb*t123*t124*t28-4.135669939329334d-1*t130 2261 t142 = 1/rhoa**6.333333333333333d+0 2262 t143 = -1.6799999999999998d-2*t4*t46*t84-5.04d-2*t49*t50+1.6 2263 1 799999999999998d-2*gammaaa*t104*t142 2264 t144 = 5.599999999999999d-3*gammaaa*t46*t52*t85+8.4d-3*gamma 2265 1 aa*t102*t3*t51*t85-5.599999999999999d-3*t46*t6-4.2d-3*t3* 2266 2 t51*t52-4.2d-3*gammaaa*t143*t3*t52 2267 t145 = 2.8199568089598814d+0*rhoa*t22*t54*t86*t99-1.87997120 2268 1 59732546d+0*t22*t55*t86-1.8799712059732546d+0*rhoa*t144*t 2269 2 22*t55 2270 t146 = 2.827433388230826d+1*rhoa*t17*t59*t86-2.8274333882308 2271 1 26d+1*t113*t15*t17*t54*t86+1.413716694115413d+1*t144*t15* 2272 2 t17*t59 2273 t147 = 1.413716694115413d+1*t15*t17*t19*t59*t60*t86-5.0d-1*t 2274 1 18*t19*t60*t86-3.536776513153214d-2*t14*t16*t19*t60*t86-5 2275 2 .0d-1*t19*t54*t59*t86+7.073553026306428d-2*t14*t20*t58*t8 2276 3 6+1.0d+0*t11*t18*t19*t86-3.536776513153214d-2*t14*t144*t1 2277 4 6*t20-3.536776513153214d-2*t12*t14*t146*t16*t19+t146*t19 2278 t148 = 1.329807601338106d-1*t10*t11*t23*t54*t87-2.6596152026 2279 1 76212d-1*t10*t13*t16*t87+1.329807601338106d-1*t10*t11*t23 2280 2 *t61*t86+5.01149519714857d+1*t15*t17*t19*t45*t56*t59*t86- 2281 3 6.649038006690531d-2*t10*t11*t21*t54*t55*t86-1.3298076013 2282 4 38106d-1*t10*t16*t21*t23*t86+3.5449077018110403d+0*t145*t 2283 5 19*t45+1.329807601338106d-1*t10*t11*t144*t21*t23+2.659615 2284 6 202676212d-1*t10*t11*t13*t147 2285 t149 = -1.7730768017841417d-1*t10*t11*t23*t54*t88*t9+3.54615 2286 1 36035682834d-1*t10*t13*t16*t88*t9-1.7730768017841417d-1*t 2287 2 10*t11*t23*t62*t86*t9+8.865384008920708d-2*t10*t11*t24*t5 2288 3 4*t55*t86*t9+1.7730768017841417d-1*t10*t16*t23*t24*t86*t9 2289 4 -1.7730768017841417d-1*t10*t11*t144*t23*t24*t9-3.54615360 2290 5 35682834d-1*t10*t11*t13*t148*t9 2291 t150 = -5.599999999999999d-3*gammaaa*t46*t52*t85-8.4d-3*gamm 2292 1 aaa*t102*t3*t51*t85+5.599999999999999d-3*t46*t6+4.2d-3*t3 2293 2 *t51*t52+4.2d-3*gammaaa*t143*t3*t52 2294 t151 = 1/rhob**6.333333333333333d+0 2295 t152 = -1.6799999999999998d-2*t29*t65*t91-5.04d-2*t68*t69+1. 2296 1 6799999999999998d-2*gammabb*t126*t151 2297 t153 = 5.599999999999999d-3*gammabb*t65*t71*t92+8.4d-3*gamma 2298 1 bb*t124*t28*t70*t92-4.2d-3*t28*t70*t71-4.2d-3*gammabb*t15 2299 2 2*t28*t71-5.599999999999999d-3*t31*t65 2300 t154 = -1.8799712059732546d+0*t22*t74*t93+2.8199568089598814 2301 1 d+0*rhob*t121*t22*t73*t93-1.8799712059732546d+0*rhob*t153 2302 2 *t22*t74 2303 t155 = 2.827433388230826d+1*rhob*t17*t78*t93-2.8274333882308 2304 1 26d+1*t135*t17*t36*t73*t93+1.413716694115413d+1*t153*t17* 2305 2 t36*t78 2306 t156 = 1.413716694115413d+1*t17*t36*t39*t78*t79*t93-5.0d-1*t 2307 1 38*t39*t79*t93-3.536776513153214d-2*t14*t37*t39*t79*t93-5 2308 2 .0d-1*t39*t73*t78*t93+7.073553026306428d-2*t14*t40*t77*t9 2309 3 3+1.0d+0*t33*t38*t39*t93-3.536776513153214d-2*t14*t153*t3 2310 4 7*t40-3.536776513153214d-2*t14*t155*t34*t37*t39+t155*t39 2311 t157 = 1.329807601338106d-1*t10*t33*t42*t73*t94-2.6596152026 2312 1 76212d-1*t10*t35*t37*t94+1.329807601338106d-1*t10*t33*t42 2313 2 *t80*t93+5.01149519714857d+1*t17*t36*t39*t45*t75*t78*t93- 2314 3 6.649038006690531d-2*t10*t33*t41*t73*t74*t93-1.3298076013 2315 4 38106d-1*t10*t37*t41*t42*t93+3.5449077018110403d+0*t154*t 2316 5 39*t45+1.329807601338106d-1*t10*t153*t33*t41*t42+2.659615 2317 6 202676212d-1*t10*t156*t33*t35 2318 t158 = -1.7730768017841417d-1*t10*t33*t42*t73*t9*t95+3.54615 2319 1 36035682834d-1*t10*t35*t37*t9*t95-1.7730768017841417d-1*t 2320 2 10*t33*t42*t81*t9*t93+8.865384008920708d-2*t10*t33*t43*t7 2321 3 3*t74*t9*t93+1.7730768017841417d-1*t10*t37*t42*t43*t9*t93 2322 4 -1.7730768017841417d-1*t10*t153*t33*t42*t43*t9-3.54615360 2323 5 35682834d-1*t10*t157*t33*t35*t9 2324 t159 = -5.599999999999999d-3*gammabb*t65*t71*t92-8.4d-3*gamm 2325 1 abb*t124*t28*t70*t92+4.2d-3*t28*t70*t71+4.2d-3*gammabb*t1 2326 2 52*t28*t71+5.599999999999999d-3*t31*t65 2327 t160 = 1/t10**3 2328 t161 = t86**2 2329 t162 = 1/t13**7 2330 t163 = t85**2 2331 t164 = 1/rhoa**5.333333333333333d+0 2332 t165 = 1/gammaaa 2333 t166 = 1/t1**3 2334 t167 = 6.3d-3*t165*t47*t49-6.3d-3*t166*t3*t4-6.3d-3*t104*t16 2335 1 4 2336 t168 = -8.4d-3*t3*t52*t85-4.2d-3*gammaaa*t167*t3*t52+8.4d-3* 2337 1 gammaaa*t102*t163*t3 2338 t169 = 1/t10**4 2339 t170 = 1/t12**4 2340 t171 = 1.413716694115413d+1*t15*t168*t17*t19*t59-3.536776513 2341 1 153214d-2*t14*t16*t168*t20-5.0d-1*t168*t18*t19+1.99859489 2342 2 12206125d+2*t111*t161*t169*t170*t19-3.534291735288533d+1* 2343 3 t113*t15*t161*t17*t19 2344 t172 = 9.996486610856369d+0*rhoa*t161*t19*t22*t45*t99+2.6596 2345 1 15202676212d-1*t10*t11*t23*t86*t87-9.421466669512572d+1*t 2346 2 160*t161*t162*t19*t45*t57-6.66432440723758d+0*rhoa*t168*t 2347 3 19*t22*t45*t55-6.649038006690531d-2*t10*t11*t161*t21*t55+ 2348 4 1.329807601338106d-1*t10*t11*t168*t21*t23+2.6596152026762 2349 5 12d-1*t10*t11*t13*t171 2350 t173 = -3.5461536035682834d-1*t10*t11*t23*t86*t88*t9+8.86538 2351 1 4008920708d-2*t10*t11*t161*t24*t55*t9-1.7730768017841417d 2352 2 -1*t10*t11*t168*t23*t24*t9-3.5461536035682834d-1*t10*t11* 2353 3 t13*t172*t9 2354 t174 = 8.4d-3*t3*t52*t85+4.2d-3*gammaaa*t167*t3*t52-8.4d-3*g 2355 1 ammaaa*t102*t163*t3 2356 t175 = t93**2 2357 t176 = 1/t35**7 2358 t177 = t92**2 2359 t178 = 1/rhob**5.333333333333333d+0 2360 t179 = 1/gammabb 2361 t180 = 1/t26**3 2362 t181 = 6.3d-3*t179*t66*t68-6.3d-3*t180*t28*t29-6.3d-3*t126*t 2363 1 178 2364 t182 = -8.4d-3*t28*t71*t92-4.2d-3*gammabb*t181*t28*t71+8.4d- 2365 1 3*gammabb*t124*t177*t28 2366 t183 = 1/t34**4 2367 t184 = 1.413716694115413d+1*t17*t182*t36*t39*t78-3.536776513 2368 1 153214d-2*t14*t182*t37*t40-5.0d-1*t182*t38*t39-3.53429173 2369 2 5288533d+1*t135*t17*t175*t36*t39+1.9985948912206125d+2*t1 2370 3 33*t169*t175*t183*t39 2371 t185 = 2.659615202676212d-1*t10*t33*t42*t93*t94-9.4214666695 2372 1 12572d+1*t160*t175*t176*t39*t45*t76-6.66432440723758d+0*r 2373 2 hob*t182*t22*t39*t45*t74-6.649038006690531d-2*t10*t175*t3 2374 3 3*t41*t74+9.996486610856369d+0*rhob*t121*t175*t22*t39*t45 2375 4 +1.329807601338106d-1*t10*t182*t33*t41*t42+2.659615202676 2376 5 212d-1*t10*t184*t33*t35 2377 t186 = -3.5461536035682834d-1*t10*t33*t42*t9*t93*t95+8.86538 2378 1 4008920708d-2*t10*t175*t33*t43*t74*t9-1.7730768017841417d 2379 2 -1*t10*t182*t33*t42*t43*t9-3.5461536035682834d-1*t10*t185 2380 3 *t33*t35*t9 2381 t187 = 8.4d-3*t28*t71*t92+4.2d-3*gammabb*t181*t28*t71-8.4d-3 2382 1 *gammabb*t124*t177*t28 2383 t188 = t54**3 2384 t189 = 1/rhoa**4.333333333333333d+0 2385 t190 = 1/rhoa**1.6666666666666669d+0 2386 t191 = t51**3 2387 t192 = 1/t5**4 2388 t193 = 1/t48**5 2389 t194 = -8.885333333333333d-1*gammaaa*t49/rhoa**5.66666666666 2390 1 6667d+0-2.6133333333333336d-1*t1*t189*t4-1.79199999999999 2391 2 97d-1*gammaaa**3*t193/rhoa**11+5.525333333333333d-1*t103* 2392 3 t104/rhoa**8.333333333333334d+0 2393 t195 = -4.355555555555556d-2*gammaaa*t189*t6-3.92d-2*gammaaa 2394 1 *t100*t51*t52+1.6799999999999995d-2*gammaaa*t107*t46*t52- 2395 2 4.2d-3*gammaaa*t194*t3*t52+2.52d-2*gammaaa*t102*t107*t3*t 2396 3 51-3.359999999999999d-2*gammaaa*t101*t102*t46-2.52d-2*gam 2397 4 maaa*t191*t192*t3-2.7571132928862224d-1*t190 2398 t196 = rhoa**5 2399 t197 = -1.6964600329384957d+2*rhoa*t113*t17*t98+8.4823001646 2400 1 92478d+1*t17*t54*t59+1.413716694115413d+1*t15*t17*t195*t5 2401 2 9+8.482300164692478d+1*rhoa*t109*t17*t59-8.48230016469247 2402 3 8d+1*t109*t113*t15*t17*t54+8.482300164692478d+1*t15*t17*t 2403 4 170*t188 2404 t198 = t60**3 2405 t199 = t73**3 2406 t200 = 1/rhob**4.333333333333333d+0 2407 t201 = 1/rhob**1.6666666666666669d+0 2408 t202 = t70**3 2409 t203 = 1/t30**4 2410 t204 = 1/t67**5 2411 t205 = -8.885333333333333d-1*gammabb*t68/rhob**5.66666666666 2412 1 6667d+0-2.6133333333333336d-1*t200*t26*t29-1.791999999999 2413 2 9997d-1*gammabb**3*t204/rhob**11+5.525333333333333d-1*t12 2414 3 5*t126/rhob**8.333333333333334d+0 2415 t206 = -3.92d-2*gammabb*t122*t70*t71+1.6799999999999995d-2*g 2416 1 ammabb*t129*t65*t71-4.2d-3*gammabb*t205*t28*t71+2.52d-2*g 2417 2 ammabb*t124*t129*t28*t70-3.359999999999999d-2*gammabb*t12 2418 3 3*t124*t65-4.355555555555556d-2*gammabb*t200*t31-2.52d-2* 2419 4 gammabb*t202*t203*t28-2.7571132928862224d-1*t201 2420 t207 = rhob**5 2421 t208 = 8.482300164692478d+1*t17*t73*t78+1.413716694115413d+1 2422 1 *t17*t206*t36*t78+8.482300164692478d+1*rhob*t131*t17*t78- 2423 2 8.482300164692478d+1*t131*t135*t17*t36*t73+8.482300164692 2424 3 478d+1*t17*t183*t199*t36-1.6964600329384957d+2*rhob*t120* 2425 4 t135*t17 2426 t209 = t79**3 2427 t210 = 3.92d-2*t100*t4*t84+2.072d-1*t106*t49+6.7199999999999 2428 1 98d-2*t103*t193/rhoa**10-1.7359999999999998d-1*gammaaa*t1 2429 2 04*t105 2430 t211 = -1.3066666666666665d-2*gammaaa*t100*t52*t85-2.2399999 2431 1 999999998d-2*gammaaa*t102*t46*t51*t85-2.52d-2*gammaaa*t10 2432 2 1*t192*t3*t85+8.4d-3*gammaaa*t102*t107*t3*t85+1.306666666 2433 3 6666665d-2*t100*t6+1.1199999999999999d-2*t46*t51*t52+1.11 2434 4 99999999999999d-2*gammaaa*t143*t46*t52-4.2d-3*gammaaa*t21 2435 5 0*t3*t52-4.2d-3*t107*t3*t52+1.6799999999999998d-2*gammaaa 2436 6 *t102*t143*t3*t51+8.4d-3*t101*t102*t3 2437 t212 = 8.482300164692478d+1*t15*t17*t170*t86*t98+2.827433388 2438 1 230826d+1*t17*t59*t86-1.1309733552923305d+2*rhoa*t113*t17 2439 2 *t54*t86-2.827433388230826d+1*t109*t113*t15*t17*t86+1.413 2440 3 716694115413d+1*t15*t17*t211*t59+5.654866776461652d+1*rho 2441 4 a*t144*t17*t59-5.654866776461652d+1*t113*t144*t15*t17*t54 2442 t213 = 3.92d-2*t122*t29*t91+2.072d-1*t128*t68+6.719999999999 2443 1 998d-2*t125*t204/rhob**10-1.7359999999999998d-1*gammabb*t 2444 2 126*t127 2445 t214 = -1.3066666666666665d-2*gammabb*t122*t71*t92-2.2399999 2446 1 999999998d-2*gammabb*t124*t65*t70*t92-2.52d-2*gammabb*t12 2447 2 3*t203*t28*t92+8.4d-3*gammabb*t124*t129*t28*t92+1.1199999 2448 3 999999999d-2*t65*t70*t71+1.1199999999999999d-2*gammabb*t1 2449 4 52*t65*t71-4.2d-3*gammabb*t213*t28*t71-4.2d-3*t129*t28*t7 2450 5 1+1.6799999999999998d-2*gammabb*t124*t152*t28*t70+1.30666 2451 6 66666666665d-2*t122*t31+8.4d-3*t123*t124*t28 2452 t215 = 2.827433388230826d+1*t17*t78*t93-1.1309733552923305d+ 2453 1 2*rhob*t135*t17*t73*t93+8.482300164692478d+1*t120*t17*t18 2454 2 3*t36*t93-2.827433388230826d+1*t131*t135*t17*t36*t93+1.41 2455 3 3716694115413d+1*t17*t214*t36*t78+5.654866776461652d+1*rh 2456 4 ob*t153*t17*t78-5.654866776461652d+1*t135*t153*t17*t36*t7 2457 5 3 2458 t216 = -8.4d-3*t165*t49*t50+8.4d-3*t166*t4*t46-2.52d-2*gamma 2459 1 aa*t193/rhoa**9+4.1999999999999993d-2*t104*t142 2460 t217 = 1.1199999999999999d-2*t46*t52*t85+1.6799999999999998d 2461 1 -2*t102*t3*t51*t85+1.6799999999999998d-2*gammaaa*t102*t14 2462 2 3*t3*t85+5.599999999999999d-3*gammaaa*t167*t46*t52-4.2d-3 2463 3 *gammaaa*t216*t3*t52-8.4d-3*t143*t3*t52-2.52d-2*gammaaa*t 2464 4 163*t192*t3*t51+8.4d-3*gammaaa*t102*t167*t3*t51-1.1199999 2465 5 999999999d-2*gammaaa*t102*t163*t46 2466 t218 = -5.654866776461652d+1*t113*t144*t15*t17*t86+1.4137166 2467 1 94115413d+1*t15*t17*t217*t59+2.827433388230826d+1*rhoa*t1 2468 2 68*t17*t59+8.482300164692478d+1*t15*t161*t17*t170*t54-2.8 2469 3 27433388230826d+1*t113*t15*t168*t17*t54-5.654866776461652 2470 4 d+1*rhoa*t113*t161*t17 2471 t219 = -8.4d-3*t179*t68*t69+8.4d-3*t180*t29*t65-2.52d-2*gamm 2472 1 abb*t204/rhob**9+4.1999999999999993d-2*t126*t151 2473 t220 = 1.1199999999999999d-2*t65*t71*t92+1.6799999999999998d 2474 1 -2*t124*t28*t70*t92+1.6799999999999998d-2*gammabb*t124*t1 2475 2 52*t28*t92+5.599999999999999d-3*gammabb*t181*t65*t71-4.2d 2476 3 -3*gammabb*t219*t28*t71-8.4d-3*t152*t28*t71-2.52d-2*gamma 2477 4 bb*t177*t203*t28*t70+8.4d-3*gammabb*t124*t181*t28*t70-1.1 2478 5 199999999999999d-2*gammabb*t124*t177*t65 2479 t221 = -5.654866776461652d+1*t135*t153*t17*t36*t93+1.4137166 2480 1 94115413d+1*t17*t220*t36*t78+2.827433388230826d+1*rhob*t1 2481 2 7*t182*t78+8.482300164692478d+1*t17*t175*t183*t36*t73-2.8 2482 3 27433388230826d+1*t135*t17*t182*t36*t73-5.654866776461652 2483 4 d+1*rhob*t135*t17*t175 2484 t222 = 1/t10**5 2485 t223 = t86**3 2486 t224 = t85**3 2487 t225 = -9.450000000000001d-3*t47*t49/t103+9.450000000000001d 2488 1 -3*t3*t4/t1**5+9.450000000000001d-3*t193/rhoa**8-3.15d-3* 2489 2 t104*t164*t165 2490 t226 = 2.52d-2*gammaaa*t102*t167*t3*t85-4.2d-3*gammaaa*t225* 2491 1 t3*t52-1.26d-2*t167*t3*t52-2.52d-2*gammaaa*t192*t224*t3+2 2492 2 .52d-2*t102*t163*t3 2493 t227 = 1/t10**6 2494 t228 = t93**3 2495 t229 = t92**3 2496 t230 = -9.450000000000001d-3*t66*t68/t125+9.450000000000001d 2497 1 -3*t28*t29/t26**5+9.450000000000001d-3*t204/rhob**8-3.15d 2498 2 -3*t126*t178*t179 2499 t231 = 2.52d-2*gammabb*t124*t181*t28*t92-4.2d-3*gammabb*t230 2500 1 *t28*t71-1.26d-2*t181*t28*t71-2.52d-2*gammabb*t203*t229*t 2501 2 28+2.52d-2*t124*t177*t28 2502 fnc(iq) = (t25*t7+t32*t44)*wght+fnc(iq) 2503 Amat(iq,D1_RA) = (t63*t7+t25*t64)*wght+Amat(iq,D1_RA) 2504 Amat(iq,D1_RB) = (t44*t83+t32*t82)*wght+Amat(iq,D1_RB) 2505 Cmat(iq,D1_GAA) = (t25*t90+t7*t89)*wght+Cmat(iq,D1_GAA) 2506 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 2507 Cmat(iq,D1_GBB) = (t44*t97+t32*t96)*wght+Cmat(iq,D1_GBB) 2508 Amat2(iq,D2_RA_RA) = (t118*t7+2*t63*t64+t119*t25)*wght+Amat2 2509 1 (iq,D2_RA_RA) 2510 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 2511 Amat2(iq,D2_RB_RB) = (2*t82*t83+t141*t44+t140*t32)*wght+Amat 2512 1 2(iq,D2_RB_RB) 2513 Cmat2(iq,D2_RA_GAA) = (t63*t90+t64*t89+t149*t7+t150*t25)*wgh 2514 1 t+Cmat2(iq,D2_RA_GAA) 2515 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 2516 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 2517 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 2518 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 2519 Cmat2(iq,D2_RB_GBB) = (t82*t97+t83*t96+t159*t44+t158*t32)*wg 2520 1 ht+Cmat2(iq,D2_RB_GBB) 2521 Cmat2(iq,D2_GAA_GAA) = (2*t89*t90+t173*t7+t174*t25)*wght+Cma 2522 1 t2(iq,D2_GAA_GAA) 2523 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 2524 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 2525 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 2526 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 2527 Cmat2(iq,D2_GBB_GBB) = (2*t96*t97+t187*t44+t186*t32)*wght+Cm 2528 1 at2(iq,D2_GBB_GBB) 2529 Amat3(iq,D3_RA_RA_RA) = (t7*(-3.5461536035682834d-1*t10*t11* 2530 1 t13*t9*(3.5449077018110403d+0*t19*t45*(8.459870426879645d 2531 2 +0*t22*t98*t99+8.459870426879645d+0*rhoa*t109*t22*t54*t99 2532 3 -1.8799712059732546d+0*rhoa*t195*t22*t55-5.63991361791976 2533 4 3d+0*t109*t22*t55-7.049892022399704d+0*rhoa*t162*t188*t22 2534 5 )+9.973557010035795d-2*t10*t11*t188*t21*t99-1.99471140200 2535 6 7159d-1*t10*t11*t55*t61*t98+1.994711402007159d-1*t10*t16* 2536 7 t21*t55*t98+1.5957691216057274d+0*t10*t13*t58*t61-7.97884 2537 8 5608028636d-1*t10*t16*t23*t54*t61+3.989422804014318d-1*t1 2538 9 0*t109*t11*t23*t61+2.659615202676212d-1*t10*t11*t13*(4.24 2539 : 4131815783857d-1*t14*t19*t54*t58*t60-1.0610329539459643d- 2540 ; 1*t114*t12*t14*t16*t19*t60-1.0610329539459643d-1*t109*t14 2541 < *t16*t19*t60-6.366197723675786d-1*t112*t12*t14*t19*t60+3* 2542 = t114*t19*t60+2.1220659078919285d-1*t109*t14*t20*t58+2.122 2543 > 0659078919285d-1*t115*t12*t14*t19*t58+2.1220659078919285d 2544 ? -1*t114*t12*t14*t19*t58-6.366197723675786d-1*t112*t14*t20 2545 @ *t54-1.0610329539459643d-1*t115*t14*t16*t19*t54-1.0610329 2546 1 539459643d-1*t114*t14*t16*t19*t54+8.488263631567714d-1*t1 2547 2 2*t14*t20/t196-3.536776513153214d-2*t14*t16*t195*t20-3.53 2548 3 6776513153214d-2*t12*t14*t16*t19*t198+t19*t198-3.53677651 2549 4 3153214d-2*t12*t14*t16*t19*t197+t19*t197)+7.0898154036220 2550 5 81d+0*t110*t19*t45*t60+7.978845608028636d-1*t10*t21*t23*t 2551 6 54*t58+3.5449077018110403d+0*t115*t19*t45*t56+3.544907701 2552 7 8110403d+0*t114*t19*t45*t56-1.994711402007159d-1*t10*t109 2553 8 *t11*t21*t54*t55+3.989422804014318d-1*t10*t11*t116*t23*t5 2554 9 4+1.329807601338106d-1*t10*t11*t195*t21*t23-3.98942280401 2555 : 4318d-1*t10*t109*t16*t21*t23-1.5957691216057274d+0*t10*t1 2556 ; 12*t13*t21-7.978845608028636d-1*t10*t116*t13*t16)-1.32980 2557 < 76013381063d-1*t10*t11*t188*t24*t9*t99+2.6596152026762127 2558 = d-1*t10*t11*t55*t62*t9*t98-2.6596152026762127d-1*t10*t16* 2559 > t24*t55*t9*t98-2.12769216214097d+0*t10*t13*t58*t62*t9+1.0 2560 ? 63846081070485d+0*t10*t16*t23*t54*t62*t9-5.31923040535242 2561 @ 5d-1*t10*t109*t11*t23*t62*t9-1.063846081070485d+0*t10*t23 2562 1 *t24*t54*t58*t9+2.6596152026762127d-1*t10*t109*t11*t24*t5 2563 2 4*t55*t9-5.319230405352425d-1*t10*t11*t117*t23*t54*t9-1.7 2564 3 730768017841417d-1*t10*t11*t195*t23*t24*t9+5.319230405352 2565 4 425d-1*t10*t109*t16*t23*t24*t9+2.12769216214097d+0*t10*t1 2566 5 12*t13*t24*t9+1.063846081070485d+0*t10*t117*t13*t16*t9)+3 2567 6 *t118*t64+3*t119*t63+t25*(4.355555555555556d-2*gammaaa*t1 2568 7 89*t6+3.92d-2*gammaaa*t100*t51*t52-1.6799999999999995d-2* 2569 8 gammaaa*t107*t46*t52+4.2d-3*gammaaa*t194*t3*t52-2.52d-2*g 2570 9 ammaaa*t102*t107*t3*t51+3.359999999999999d-2*gammaaa*t101 2571 : *t102*t46+2.52d-2*gammaaa*t191*t192*t3+2.7571132928862224 2572 ; d-1*t190))*wght+Amat3(iq,D3_RA_RA_RA) 2573 Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB) 2574 Amat3(iq,D3_RA_RB_RB) = Amat3(iq,D3_RA_RB_RB) 2575 Amat3(iq,D3_RB_RB_RB) = (t32*(-2.12769216214097d+0*t10*t35*t 2576 1 77*t81*t9+2.6596152026762127d-1*t10*t120*t33*t74*t81*t9+1 2577 2 .063846081070485d+0*t10*t37*t42*t73*t81*t9-5.319230405352 2578 3 425d-1*t10*t131*t33*t42*t81*t9-3.5461536035682834d-1*t10* 2579 4 t33*t35*(1.5957691216057274d+0*t10*t35*t77*t80-1.99471140 2580 5 2007159d-1*t10*t120*t33*t74*t80-7.978845608028636d-1*t10* 2581 6 t37*t42*t73*t80+3.989422804014318d-1*t10*t131*t33*t42*t80 2582 7 +2.659615202676212d-1*t10*t33*t35*(4.244131815783857d-1*t 2583 8 14*t39*t73*t77*t79-1.0610329539459643d-1*t136*t14*t34*t37 2584 9 *t39*t79-1.0610329539459643d-1*t131*t14*t37*t39*t79-6.366 2585 : 197723675786d-1*t134*t14*t34*t39*t79+3*t136*t39*t79+2.122 2586 ; 0659078919285d-1*t131*t14*t40*t77+2.1220659078919285d-1*t 2587 < 137*t14*t34*t39*t77+2.1220659078919285d-1*t136*t14*t34*t3 2588 = 9*t77-6.366197723675786d-1*t134*t14*t40*t73-1.06103295394 2589 > 59643d-1*t137*t14*t37*t39*t73-1.0610329539459643d-1*t136* 2590 ? t14*t37*t39*t73-3.536776513153214d-2*t14*t206*t37*t40+8.4 2591 @ 88263631567714d-1*t14*t34*t40/t207-3.536776513153214d-2*t 2592 1 14*t209*t34*t37*t39-3.536776513153214d-2*t14*t208*t34*t37 2593 2 *t39+t209*t39+t208*t39)+7.089815403622081d+0*t132*t39*t45 2594 3 *t79+7.978845608028636d-1*t10*t41*t42*t73*t77+3.544907701 2595 4 8110403d+0*t137*t39*t45*t75+3.5449077018110403d+0*t136*t3 2596 5 9*t45*t75+3.5449077018110403d+0*t39*t45*(-1.8799712059732 2597 6 546d+0*rhob*t206*t22*t74-5.639913617919763d+0*t131*t22*t7 2598 7 4+8.459870426879645d+0*rhob*t121*t131*t22*t73-7.049892022 2599 8 399704d+0*rhob*t176*t199*t22+8.459870426879645d+0*t120*t1 2600 9 21*t22)-1.994711402007159d-1*t10*t131*t33*t41*t73*t74+1.9 2601 : 94711402007159d-1*t10*t120*t37*t41*t74+3.989422804014318d 2602 ; -1*t10*t138*t33*t42*t73-3.989422804014318d-1*t10*t131*t37 2603 < *t41*t42+1.329807601338106d-1*t10*t206*t33*t41*t42-1.5957 2604 = 691216057274d+0*t10*t134*t35*t41+9.973557010035795d-2*t10 2605 > *t121*t199*t33*t41-7.978845608028636d-1*t10*t138*t35*t37) 2606 ? *t9-1.063846081070485d+0*t10*t42*t43*t73*t77*t9+2.6596152 2607 @ 026762127d-1*t10*t131*t33*t43*t73*t74*t9-2.65961520267621 2608 1 27d-1*t10*t120*t37*t43*t74*t9-5.319230405352425d-1*t10*t1 2609 2 39*t33*t42*t73*t9+5.319230405352425d-1*t10*t131*t37*t42*t 2610 3 43*t9-1.7730768017841417d-1*t10*t206*t33*t42*t43*t9+2.127 2611 4 69216214097d+0*t10*t134*t35*t43*t9-1.3298076013381063d-1* 2612 5 t10*t121*t199*t33*t43*t9+1.063846081070485d+0*t10*t139*t3 2613 6 5*t37*t9)+3*t140*t83+3*t141*t82+t44*(3.92d-2*gammabb*t122 2614 7 *t70*t71-1.6799999999999995d-2*gammabb*t129*t65*t71+4.2d- 2615 8 3*gammabb*t205*t28*t71-2.52d-2*gammabb*t124*t129*t28*t70+ 2616 9 3.359999999999999d-2*gammabb*t123*t124*t65+4.355555555555 2617 : 556d-2*gammabb*t200*t31+2.52d-2*gammabb*t202*t203*t28+2.7 2618 ; 571132928862224d-1*t201))*wght+Amat3(iq,D3_RB_RB_RB) 2619 Cmat3(iq,D3_RA_RA_GAA) = (t7*(-3.5461536035682834d-1*t10*t11 2620 1 *t13*t9*(3.5449077018110403d+0*t19*t45*(5.639913617919763 2621 2 d+0*t22*t54*t86*t99+2.8199568089598814d+0*rhoa*t109*t22*t 2622 3 86*t99+5.639913617919763d+0*rhoa*t144*t22*t54*t99-7.04989 2623 4 2022399704d+0*rhoa*t162*t22*t86*t98-1.8799712059732546d+0 2624 5 *rhoa*t211*t22*t55-3.759942411946509d+0*t144*t22*t55)+9.9 2625 6 73557010035795d-2*t10*t11*t21*t86*t98*t99-6.6490380066905 2626 7 31d-2*t10*t11*t55*t87*t98+5.319230405352424d-1*t10*t13*t5 2627 8 8*t87-2.659615202676212d-1*t10*t16*t23*t54*t87+1.32980760 2628 9 1338106d-1*t10*t109*t11*t23*t87+2.659615202676212d-1*t10* 2629 : t11*t13*(-1.0d+0*t19*t54*t59*t60*t86+1.4147106052612857d- 2630 ; 1*t14*t19*t58*t60*t86+2.0d+0*t11*t18*t19*t60*t86+2.0d+0*t 2631 < 11*t19*t54*t59*t86+1.413716694115413d+1*t115*t15*t17*t19* 2632 = t59*t86+1.413716694115413d+1*t114*t15*t17*t19*t59*t86-5.0 2633 > d-1*t109*t19*t59*t86-2.1220659078919285d-1*t112*t14*t20*t 2634 ? 86-3.0d+0*t16*t18*t19*t86-5.0d-1*t115*t18*t19*t86-5.0d-1* 2635 @ t114*t18*t19*t86-3.536776513153214d-2*t115*t14*t16*t19*t8 2636 1 6-3.536776513153214d-2*t114*t14*t16*t19*t86-7.07355302630 2637 2 6428d-2*t12*t14*t146*t16*t19*t60-7.073553026306428d-2*t14 2638 3 *t144*t16*t19*t60+2*t146*t19*t60+1.4147106052612857d-1*t1 2639 4 4*t144*t20*t58+1.4147106052612857d-1*t12*t14*t146*t19*t58 2640 5 -7.073553026306428d-2*t14*t146*t16*t19*t54-3.536776513153 2641 6 214d-2*t12*t14*t16*t19*t212+t19*t212-3.536776513153214d-2 2642 7 *t14*t16*t20*t211)-1.329807601338106d-1*t10*t11*t54*t55*t 2643 8 61*t86-2.659615202676212d-1*t10*t16*t23*t61*t86+5.0114951 2644 9 9714857d+1*t15*t17*t19*t45*t56*t59*t60*t86+5.011495197148 2645 : 57d+1*t110*t15*t17*t19*t45*t59*t86+2.659615202676212d-1*t 2646 ; 10*t21*t23*t58*t86+1.329807601338106d-1*t10*t16*t21*t54*t 2647 < 55*t86-6.649038006690531d-2*t10*t109*t11*t21*t55*t86+1.32 2648 = 9807601338106d-1*t10*t11*t116*t23*t86+2.659615202676212d- 2649 > 1*t10*t11*t144*t23*t61+3.5449077018110403d+0*t145*t19*t45 2650 ? *t60+3.5449077018110403d+0*t146*t19*t45*t56-1.32980760133 2651 @ 8106d-1*t10*t11*t144*t21*t54*t55+2.659615202676212d-1*t10 2652 1 *t11*t147*t23*t54+1.329807601338106d-1*t10*t11*t21*t211*t 2653 2 23-2.659615202676212d-1*t10*t144*t16*t21*t23-5.3192304053 2654 3 52424d-1*t10*t13*t147*t16)-1.3298076013381063d-1*t10*t11* 2655 4 t24*t86*t9*t98*t99+8.865384008920708d-2*t10*t11*t55*t88*t 2656 5 9*t98-7.092307207136567d-1*t10*t13*t58*t88*t9+3.546153603 2657 6 5682834d-1*t10*t16*t23*t54*t88*t9-1.7730768017841417d-1*t 2658 7 10*t109*t11*t23*t88*t9+1.7730768017841417d-1*t10*t11*t54* 2659 8 t55*t62*t86*t9+3.5461536035682834d-1*t10*t16*t23*t62*t86* 2660 9 t9-3.5461536035682834d-1*t10*t23*t24*t58*t86*t9-1.7730768 2661 : 017841417d-1*t10*t16*t24*t54*t55*t86*t9+8.865384008920708 2662 ; d-2*t10*t109*t11*t24*t55*t86*t9-1.7730768017841417d-1*t10 2663 < *t11*t117*t23*t86*t9-3.5461536035682834d-1*t10*t11*t144*t 2664 = 23*t62*t9+1.7730768017841417d-1*t10*t11*t144*t24*t54*t55* 2665 > t9-3.5461536035682834d-1*t10*t11*t148*t23*t54*t9-1.773076 2666 ? 8017841417d-1*t10*t11*t211*t23*t24*t9+3.5461536035682834d 2667 @ -1*t10*t144*t16*t23*t24*t9+7.092307207136567d-1*t10*t13*t 2668 1 148*t16*t9)+t118*t90+t119*t89+t25*(1.3066666666666665d-2* 2669 2 gammaaa*t100*t52*t85+2.2399999999999998d-2*gammaaa*t102*t 2670 3 46*t51*t85+2.52d-2*gammaaa*t101*t192*t3*t85-8.4d-3*gammaa 2671 4 a*t102*t107*t3*t85-1.3066666666666665d-2*t100*t6-1.119999 2672 5 9999999999d-2*t46*t51*t52-1.1199999999999999d-2*gammaaa*t 2673 6 143*t46*t52+4.2d-3*gammaaa*t210*t3*t52+4.2d-3*t107*t3*t52 2674 7 -1.6799999999999998d-2*gammaaa*t102*t143*t3*t51-8.4d-3*t1 2675 8 01*t102*t3)+2*t149*t64+2*t150*t63)*wght+Cmat3(iq,D3_RA_RA 2676 9 _GAA) 2677 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 2678 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 2679 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 2680 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 2681 Cmat3(iq,D3_RA_RB_GBB) = Cmat3(iq,D3_RA_RB_GBB) 2682 Cmat3(iq,D3_RB_RB_GAA) = Cmat3(iq,D3_RB_RB_GAA) 2683 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 2684 Cmat3(iq,D3_RB_RB_GBB) = (t140*t97+t141*t96+t32*(-7.09230720 2685 1 7136567d-1*t10*t35*t77*t9*t95+8.865384008920708d-2*t10*t1 2686 2 20*t33*t74*t9*t95+3.5461536035682834d-1*t10*t37*t42*t73*t 2687 3 9*t95-1.7730768017841417d-1*t10*t131*t33*t42*t9*t95-3.546 2688 4 1536035682834d-1*t10*t33*t35*t9*(5.319230405352424d-1*t10 2689 5 *t35*t77*t94-6.649038006690531d-2*t10*t120*t33*t74*t94-2. 2690 6 659615202676212d-1*t10*t37*t42*t73*t94+1.329807601338106d 2691 7 -1*t10*t131*t33*t42*t94+2.659615202676212d-1*t10*t33*t35* 2692 8 (-1.0d+0*t39*t73*t78*t79*t93+1.4147106052612857d-1*t14*t3 2693 9 9*t77*t79*t93+2.0d+0*t33*t38*t39*t79*t93+2.0d+0*t33*t39*t 2694 : 73*t78*t93+1.413716694115413d+1*t137*t17*t36*t39*t78*t93+ 2695 ; 1.413716694115413d+1*t136*t17*t36*t39*t78*t93-5.0d-1*t131 2696 < *t39*t78*t93-2.1220659078919285d-1*t134*t14*t40*t93-3.0d+ 2697 = 0*t37*t38*t39*t93-5.0d-1*t137*t38*t39*t93-5.0d-1*t136*t38 2698 > *t39*t93-3.536776513153214d-2*t137*t14*t37*t39*t93-3.5367 2699 ? 76513153214d-2*t136*t14*t37*t39*t93-7.073553026306428d-2* 2700 @ t14*t155*t34*t37*t39*t79-7.073553026306428d-2*t14*t153*t3 2701 1 7*t39*t79+2*t155*t39*t79+1.4147106052612857d-1*t14*t153*t 2702 2 40*t77+1.4147106052612857d-1*t14*t155*t34*t39*t77-7.07355 2703 3 3026306428d-2*t14*t155*t37*t39*t73-3.536776513153214d-2*t 2704 4 14*t214*t37*t40-3.536776513153214d-2*t14*t215*t34*t37*t39 2705 5 +t215*t39)+3.5449077018110403d+0*t39*t45*(5.6399136179197 2706 6 63d+0*t121*t22*t73*t93-7.049892022399704d+0*rhob*t120*t17 2707 7 6*t22*t93+2.8199568089598814d+0*rhob*t121*t131*t22*t93-1. 2708 8 8799712059732546d+0*rhob*t214*t22*t74-3.759942411946509d+ 2709 9 0*t153*t22*t74+5.639913617919763d+0*rhob*t121*t153*t22*t7 2710 : 3)-1.329807601338106d-1*t10*t33*t73*t74*t80*t93-2.6596152 2711 ; 02676212d-1*t10*t37*t42*t80*t93+5.01149519714857d+1*t17*t 2712 < 36*t39*t45*t75*t78*t79*t93+5.01149519714857d+1*t132*t17*t 2713 = 36*t39*t45*t78*t93+2.659615202676212d-1*t10*t41*t42*t77*t 2714 > 93+1.329807601338106d-1*t10*t37*t41*t73*t74*t93-6.6490380 2715 ? 06690531d-2*t10*t131*t33*t41*t74*t93+1.329807601338106d-1 2716 @ *t10*t138*t33*t42*t93+9.973557010035795d-2*t10*t120*t121* 2717 1 t33*t41*t93+2.659615202676212d-1*t10*t153*t33*t42*t80+3.5 2718 2 449077018110403d+0*t154*t39*t45*t79+3.5449077018110403d+0 2719 3 *t155*t39*t45*t75-1.329807601338106d-1*t10*t153*t33*t41*t 2720 4 73*t74+2.659615202676212d-1*t10*t156*t33*t42*t73-2.659615 2721 5 202676212d-1*t10*t153*t37*t41*t42+1.329807601338106d-1*t1 2722 6 0*t214*t33*t41*t42-5.319230405352424d-1*t10*t156*t35*t37) 2723 7 +1.7730768017841417d-1*t10*t33*t73*t74*t81*t9*t93+3.54615 2724 8 36035682834d-1*t10*t37*t42*t81*t9*t93-3.5461536035682834d 2725 9 -1*t10*t42*t43*t77*t9*t93-1.7730768017841417d-1*t10*t37*t 2726 : 43*t73*t74*t9*t93+8.865384008920708d-2*t10*t131*t33*t43*t 2727 ; 74*t9*t93-1.3298076013381063d-1*t10*t120*t121*t33*t43*t9* 2728 < t93-1.7730768017841417d-1*t10*t139*t33*t42*t9*t93-3.54615 2729 = 36035682834d-1*t10*t153*t33*t42*t81*t9+1.7730768017841417 2730 > d-1*t10*t153*t33*t43*t73*t74*t9-3.5461536035682834d-1*t10 2731 ? *t157*t33*t42*t73*t9+3.5461536035682834d-1*t10*t153*t37*t 2732 @ 42*t43*t9-1.7730768017841417d-1*t10*t214*t33*t42*t43*t9+7 2733 1 .092307207136567d-1*t10*t157*t35*t37*t9)+t44*(1.306666666 2734 2 6666665d-2*gammabb*t122*t71*t92+2.2399999999999998d-2*gam 2735 3 mabb*t124*t65*t70*t92+2.52d-2*gammabb*t123*t203*t28*t92-8 2736 4 .4d-3*gammabb*t124*t129*t28*t92-1.1199999999999999d-2*t65 2737 5 *t70*t71-1.1199999999999999d-2*gammabb*t152*t65*t71+4.2d- 2738 6 3*gammabb*t213*t28*t71+4.2d-3*t129*t28*t71-1.679999999999 2739 7 9998d-2*gammabb*t124*t152*t28*t70-1.3066666666666665d-2*t 2740 8 122*t31-8.4d-3*t123*t124*t28)+2*t158*t83+2*t159*t82)*wght 2741 9 +Cmat3(iq,D3_RB_RB_GBB) 2742 Cmat3(iq,D3_RA_GAA_GAA) = (t7*(-3.5461536035682834d-1*t10*t1 2743 1 1*t13*t9*(3.5449077018110403d+0*t19*t45*(5.63991361791976 2744 2 3d+0*rhoa*t144*t22*t86*t99+2.8199568089598814d+0*rhoa*t16 2745 3 8*t22*t54*t99+2.8199568089598814d+0*t161*t22*t99-1.879971 2746 4 2059732546d+0*rhoa*t217*t22*t55-1.8799712059732546d+0*t16 2747 5 8*t22*t55-7.049892022399704d+0*rhoa*t161*t162*t22*t54)+9. 2748 6 973557010035795d-2*t10*t11*t161*t21*t54*t99-1.32980760133 2749 7 8106d-1*t10*t11*t54*t55*t86*t87-2.659615202676212d-1*t10* 2750 8 t16*t23*t86*t87+2.659615202676212d-1*t10*t11*t144*t23*t87 2751 9 +2.659615202676212d-1*t10*t11*t13*(2.827433388230826d+1*t 2752 : 146*t15*t17*t19*t59*t86-1.0d+0*t144*t19*t59*t86-1.0d+0*t1 2753 ; 46*t18*t19*t86-7.073553026306428d-2*t14*t146*t16*t19*t86+ 2754 < 1.413716694115413d+1*t15*t168*t17*t19*t59*t60-5.0d-1*t168 2755 = *t18*t19*t60+1.9985948912206125d+2*t111*t161*t169*t170*t1 2756 > 9*t60-3.534291735288533d+1*t113*t15*t161*t17*t19*t60-3.53 2757 ? 6776513153214d-2*t14*t16*t168*t19*t60-5.0d-1*t168*t19*t54 2758 @ *t59+7.073553026306428d-2*t14*t168*t20*t58-7.068583470577 2759 1 066d+0*t15*t161*t17*t170*t19*t54+1.0d+0*t113*t161*t19*t54 2760 2 -3.536776513153214d-2*t12*t14*t16*t19*t218+t19*t218-3.536 2761 3 776513153214d-2*t14*t16*t20*t217+1.0d+0*t11*t168*t18*t19+ 2762 4 1.413716694115413d+1*rhoa*t113*t161*t17*t19)+1.0022990394 2763 5 29714d+2*t145*t15*t17*t19*t45*t59*t86-1.329807601338106d- 2764 6 1*t10*t11*t144*t21*t55*t86+2.659615202676212d-1*t10*t11*t 2765 7 147*t23*t86-6.649038006690531d-2*t10*t11*t161*t55*t61+1.3 2766 8 29807601338106d-1*t10*t11*t168*t23*t61+5.01149519714857d+ 2767 9 1*t15*t168*t17*t19*t45*t56*t59+7.084834422688148d+2*t111* 2768 : t161*t169*t170*t19*t45*t56-1.002299039429714d+2*t113*t15* 2769 ; t161*t17*t19*t45*t56-6.649038006690531d-2*t10*t11*t168*t2 2770 < 1*t54*t55+6.649038006690531d-2*t10*t16*t161*t21*t55+1.329 2771 = 807601338106d-1*t10*t11*t171*t23*t54+1.329807601338106d-1 2772 > *t10*t11*t21*t217*t23-1.329807601338106d-1*t10*t16*t168*t 2773 ? 21*t23-2.659615202676212d-1*t10*t13*t16*t171)-1.329807601 2774 @ 3381063d-1*t10*t11*t161*t24*t54*t9*t99+1.7730768017841417 2775 1 d-1*t10*t11*t54*t55*t86*t88*t9+3.5461536035682834d-1*t10* 2776 2 t16*t23*t86*t88*t9-3.5461536035682834d-1*t10*t11*t144*t23 2777 3 *t88*t9+1.7730768017841417d-1*t10*t11*t144*t24*t55*t86*t9 2778 4 -3.5461536035682834d-1*t10*t11*t148*t23*t86*t9+8.86538400 2779 5 8920708d-2*t10*t11*t161*t55*t62*t9-1.7730768017841417d-1* 2780 6 t10*t11*t168*t23*t62*t9+8.865384008920708d-2*t10*t11*t168 2781 7 *t24*t54*t55*t9-8.865384008920708d-2*t10*t16*t161*t24*t55 2782 8 *t9-1.7730768017841417d-1*t10*t11*t172*t23*t54*t9-1.77307 2783 9 68017841417d-1*t10*t11*t217*t23*t24*t9+1.7730768017841417 2784 : d-1*t10*t16*t168*t23*t24*t9+3.5461536035682834d-1*t10*t13 2785 ; *t16*t172*t9)+2*t149*t90+2*t150*t89+t25*(-1.1199999999999 2786 < 999d-2*t46*t52*t85-1.6799999999999998d-2*t102*t3*t51*t85- 2787 = 1.6799999999999998d-2*gammaaa*t102*t143*t3*t85-5.59999999 2788 > 9999999d-3*gammaaa*t167*t46*t52+4.2d-3*gammaaa*t216*t3*t5 2789 ? 2+8.4d-3*t143*t3*t52+2.52d-2*gammaaa*t163*t192*t3*t51-8.4 2790 @ d-3*gammaaa*t102*t167*t3*t51+1.1199999999999999d-2*gammaa 2791 1 a*t102*t163*t46)+t173*t64+t174*t63)*wght+Cmat3(iq,D3_RA_G 2792 2 AA_GAA) 2793 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 2794 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 2795 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 2796 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 2797 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 2798 Cmat3(iq,D3_RB_GAA_GAA) = Cmat3(iq,D3_RB_GAA_GAA) 2799 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 2800 Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB) 2801 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 2802 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 2803 Cmat3(iq,D3_RB_GBB_GBB) = (2*t158*t97+2*t159*t96+t32*(1.7730 2804 1 768017841417d-1*t10*t33*t73*t74*t9*t93*t95+3.546153603568 2805 2 2834d-1*t10*t37*t42*t9*t93*t95-3.5461536035682834d-1*t10* 2806 3 t153*t33*t42*t9*t95-3.5461536035682834d-1*t10*t33*t35*t9* 2807 4 (-1.329807601338106d-1*t10*t33*t73*t74*t93*t94-2.65961520 2808 5 2676212d-1*t10*t37*t42*t93*t94+2.659615202676212d-1*t10*t 2809 6 153*t33*t42*t94+2.659615202676212d-1*t10*t33*t35*(2.82743 2810 7 3388230826d+1*t155*t17*t36*t39*t78*t93-1.0d+0*t153*t39*t7 2811 8 8*t93-1.0d+0*t155*t38*t39*t93-7.073553026306428d-2*t14*t1 2812 9 55*t37*t39*t93+1.413716694115413d+1*t17*t182*t36*t39*t78* 2813 : t79-5.0d-1*t182*t38*t39*t79-3.536776513153214d-2*t14*t182 2814 ; *t37*t39*t79-3.534291735288533d+1*t135*t17*t175*t36*t39*t 2815 < 79+1.9985948912206125d+2*t133*t169*t175*t183*t39*t79-5.0d 2816 = -1*t182*t39*t73*t78+7.073553026306428d-2*t14*t182*t40*t77 2817 > -7.068583470577066d+0*t17*t175*t183*t36*t39*t73+1.0d+0*t1 2818 ? 35*t175*t39*t73-3.536776513153214d-2*t14*t220*t37*t40+1.0 2819 @ d+0*t182*t33*t38*t39-3.536776513153214d-2*t14*t221*t34*t3 2820 1 7*t39+t221*t39+1.413716694115413d+1*rhob*t135*t17*t175*t3 2821 2 9)+3.5449077018110403d+0*t39*t45*(5.639913617919763d+0*rh 2822 3 ob*t121*t153*t22*t93-1.8799712059732546d+0*rhob*t22*t220* 2823 4 t74-1.8799712059732546d+0*t182*t22*t74+2.8199568089598814 2824 5 d+0*rhob*t121*t182*t22*t73-7.049892022399704d+0*rhob*t175 2825 6 *t176*t22*t73+2.8199568089598814d+0*t121*t175*t22)+1.0022 2826 7 99039429714d+2*t154*t17*t36*t39*t45*t78*t93-1.32980760133 2827 8 8106d-1*t10*t153*t33*t41*t74*t93+2.659615202676212d-1*t10 2828 9 *t156*t33*t42*t93-6.649038006690531d-2*t10*t175*t33*t74*t 2829 : 80+1.329807601338106d-1*t10*t182*t33*t42*t80+5.0114951971 2830 ; 4857d+1*t17*t182*t36*t39*t45*t75*t78-1.002299039429714d+2 2831 < *t135*t17*t175*t36*t39*t45*t75+7.084834422688148d+2*t133* 2832 = t169*t175*t183*t39*t45*t75-6.649038006690531d-2*t10*t182* 2833 > t33*t41*t73*t74+6.649038006690531d-2*t10*t175*t37*t41*t74 2834 ? +1.329807601338106d-1*t10*t184*t33*t42*t73+9.973557010035 2835 @ 795d-2*t10*t121*t175*t33*t41*t73-1.329807601338106d-1*t10 2836 1 *t182*t37*t41*t42+1.329807601338106d-1*t10*t220*t33*t41*t 2837 2 42-2.659615202676212d-1*t10*t184*t35*t37)+1.7730768017841 2838 3 417d-1*t10*t153*t33*t43*t74*t9*t93-3.5461536035682834d-1* 2839 4 t10*t157*t33*t42*t9*t93+8.865384008920708d-2*t10*t175*t33 2840 5 *t74*t81*t9-1.7730768017841417d-1*t10*t182*t33*t42*t81*t9 2841 6 +8.865384008920708d-2*t10*t182*t33*t43*t73*t74*t9-8.86538 2842 7 4008920708d-2*t10*t175*t37*t43*t74*t9-1.3298076013381063d 2843 8 -1*t10*t121*t175*t33*t43*t73*t9-1.7730768017841417d-1*t10 2844 9 *t185*t33*t42*t73*t9+1.7730768017841417d-1*t10*t182*t37*t 2845 : 42*t43*t9-1.7730768017841417d-1*t10*t220*t33*t42*t43*t9+3 2846 ; .5461536035682834d-1*t10*t185*t35*t37*t9)+t44*(-1.1199999 2847 < 999999999d-2*t65*t71*t92-1.6799999999999998d-2*t124*t28*t 2848 = 70*t92-1.6799999999999998d-2*gammabb*t124*t152*t28*t92-5. 2849 > 599999999999999d-3*gammabb*t181*t65*t71+4.2d-3*gammabb*t2 2850 ? 19*t28*t71+8.4d-3*t152*t28*t71+2.52d-2*gammabb*t177*t203* 2851 @ t28*t70-8.4d-3*gammabb*t124*t181*t28*t70+1.11999999999999 2852 1 99d-2*gammabb*t124*t177*t65)+t186*t83+t187*t82)*wght+Cmat 2853 2 3(iq,D3_RB_GBB_GBB) 2854 Cmat3(iq,D3_GAA_GAA_GAA) = (t7*(-3.5461536035682834d-1*t10*t 2855 1 11*t13*t9*(2.998945983256911d+1*rhoa*t168*t19*t22*t45*t86 2856 2 *t99+9.973557010035795d-2*t10*t11*t21*t223*t99-1.99471140 2857 3 2007159d-1*t10*t11*t161*t55*t87+3.989422804014318d-1*t10* 2858 4 t11*t168*t23*t87+2.659615202676212d-1*t10*t11*t13*(5.9957 2859 5 84673661838d+2*t111*t168*t169*t170*t19*t86-1.060287520586 2860 6 5599d+2*t113*t15*t168*t17*t19*t86+1.413716694115413d+1*t1 2861 7 5*t17*t19*t226*t59+2.8254469624923584d+3*rhoa**6*t19*t223 2862 8 *t227/t12**6-3.536776513153214d-2*t14*t16*t20*t226-5.0d-1 2863 9 *t18*t19*t226+1.0602875205865599d+2*t15*t17*t170*t19*t223 2864 : -1.2990866792933983d+3*t111*t169*t19*t223/t12**5)-2.82644 2865 ; 0000853771d+2*t160*t162*t168*t19*t45*t57*t86-1.9947114020 2866 < 07159d-1*t10*t11*t168*t21*t55*t86+3.989422804014318d-1*t1 2867 = 0*t11*t171*t23*t86+4.710733334756285d+2*t160*t19*t223*t45 2868 > *t57/t13**9-6.66432440723758d+0*rhoa*t19*t22*t226*t45*t55 2869 ? -1.3319284713741864d+3*t19*t196*t222*t223*t45/t13**11-2.4 2870 @ 991216527140922d+1*rhoa*t162*t19*t22*t223*t45+1.329807601 2871 1 338106d-1*t10*t11*t21*t226*t23)-1.3298076013381063d-1*t10 2872 2 *t11*t223*t24*t9*t99+2.6596152026762127d-1*t10*t11*t161*t 2873 3 55*t88*t9-5.319230405352425d-1*t10*t11*t168*t23*t88*t9+2. 2874 4 6596152026762127d-1*t10*t11*t168*t24*t55*t86*t9-5.3192304 2875 5 05352425d-1*t10*t11*t172*t23*t86*t9-1.7730768017841417d-1 2876 6 *t10*t11*t226*t23*t24*t9)+3*t173*t90+3*t174*t89+t25*(-2.5 2877 7 2d-2*gammaaa*t102*t167*t3*t85+4.2d-3*gammaaa*t225*t3*t52+ 2878 8 1.26d-2*t167*t3*t52+2.52d-2*gammaaa*t192*t224*t3-2.52d-2* 2879 9 t102*t163*t3))*wght+Cmat3(iq,D3_GAA_GAA_GAA) 2880 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 2881 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 2882 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 2883 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 2884 Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB) 2885 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 2886 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 2887 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 2888 Cmat3(iq,D3_GBB_GBB_GBB) = (3*t186*t97+3*t187*t96+t32*(2.659 2889 1 6152026762127d-1*t10*t175*t33*t74*t9*t95-5.31923040535242 2890 2 5d-1*t10*t182*t33*t42*t9*t95-3.5461536035682834d-1*t10*t3 2891 3 3*t35*t9*(-1.994711402007159d-1*t10*t175*t33*t74*t94+3.98 2892 4 9422804014318d-1*t10*t182*t33*t42*t94+2.659615202676212d- 2893 5 1*t10*t33*t35*(-1.0602875205865599d+2*t135*t17*t182*t36*t 2894 6 39*t93+5.995784673661838d+2*t133*t169*t182*t183*t39*t93+1 2895 7 .413716694115413d+1*t17*t231*t36*t39*t78-3.53677651315321 2896 8 4d-2*t14*t231*t37*t40-5.0d-1*t231*t38*t39+1.0602875205865 2897 9 599d+2*t17*t183*t228*t36*t39-1.2990866792933983d+3*t133*t 2898 : 169*t228*t39/t34**5+2.8254469624923584d+3*rhob**6*t227*t2 2899 ; 28*t39/t34**6)-2.826440000853771d+2*t160*t176*t182*t39*t4 2900 < 5*t76*t93-1.994711402007159d-1*t10*t182*t33*t41*t74*t93+2 2901 = .998945983256911d+1*rhob*t121*t182*t22*t39*t45*t93+3.9894 2902 > 22804014318d-1*t10*t184*t33*t42*t93+4.710733334756285d+2* 2903 ? t160*t228*t39*t45*t76/t35**9-6.66432440723758d+0*rhob*t22 2904 @ *t231*t39*t45*t74-1.3319284713741864d+3*t207*t222*t228*t3 2905 1 9*t45/t35**11-2.4991216527140922d+1*rhob*t176*t22*t228*t3 2906 2 9*t45+1.329807601338106d-1*t10*t231*t33*t41*t42+9.9735570 2907 3 10035795d-2*t10*t121*t228*t33*t41)+2.6596152026762127d-1* 2908 4 t10*t182*t33*t43*t74*t9*t93-5.319230405352425d-1*t10*t185 2909 5 *t33*t42*t9*t93-1.7730768017841417d-1*t10*t231*t33*t42*t4 2910 6 3*t9-1.3298076013381063d-1*t10*t121*t228*t33*t43*t9)+t44* 2911 7 (-2.52d-2*gammabb*t124*t181*t28*t92+4.2d-3*gammabb*t230*t 2912 8 28*t71+1.26d-2*t181*t28*t71+2.52d-2*gammabb*t203*t229*t28 2913 9 -2.52d-2*t124*t177*t28))*wght+Cmat3(iq,D3_GBB_GBB_GBB) 2914 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 2915 t1 = gammaaa**5.0d-1 2916 t2 = rhoa**1.3333333333333333d+0 2917 t3 = 1/t2 2918 t4 = asinh(t1*t3) 2919 t5 = 2.52d-2*t1*t3*t4+1.0d+0 2920 t6 = 1/t5 2921 t7 = -4.2d-3*gammaaa*t3*t6-9.305257363491002d-1*t2 2922 t8 = param(2) 2923 t9 = param(3) 2924 t10 = 1/rhoa 2925 t11 = 4.2d-3*gammaaa*t3*t6+9.305257363491002d-1*t2 2926 t12 = t11**5.0d-1 2927 t13 = t9**2 2928 t14 = rhoa**2 2929 t15 = 1/t14 2930 t16 = 1/t13 2931 t17 = 1/t11 2932 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 2933 t19 = t18-1.0d+0 2934 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 2935 t21 = 1/t9 2936 t22 = 1/t12 2937 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 2938 1 d+0*erf(3.759942411946509d+0*rhoa*t21*t22) 2939 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 2940 1 +0 2941 t25 = 5.641895835477563d-1 2942 t26 = 1/rhoa**2.3333333333333334d+0 2943 t27 = 1/rhoa**2.6666666666666666d+0 2944 t28 = (gammaaa*t27+1)**5.0d-1 2945 t29 = 1/t28 2946 t30 = 1/rhoa**3.6666666666666664d+0 2947 t31 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 2948 1 *gammaaa*t29*t30 2949 t32 = 1/t5**2 2950 t33 = rhoa**3.333333333333333d-1 2951 t34 = -5.599999999999999d-3*gammaaa*t26*t6+1.240700981798800 2952 1 2d+0*t33-4.2d-3*gammaaa*t3*t31*t32 2953 t35 = 1/t12**3 2954 t36 = 3.759942411946509d+0*t21*t22-1.8799712059732546d+0*rho 2955 1 a*t21*t34*t35 2956 t37 = rhoa**3 2957 t38 = 1/t37 2958 t39 = 1/t11**2 2959 t40 = 1.413716694115413d+1*t14*t16*t34*t39-2.827433388230826 2960 1 d+1*rhoa*t16*t17 2961 t41 = -3.536776513153214d-2*t11*t13*t15*t18*t40+t18*t40+7.07 2962 1 3553026306428d-2*t11*t13*t19*t38-3.536776513153214d-2*t13 2963 2 *t15*t19*t34 2964 t42 = 2.659615202676212d-1*t10*t12*t41*t9+1.329807601338106d 2965 1 -1*t10*t20*t22*t34*t9-2.659615202676212d-1*t12*t15*t20*t9 2966 2 +3.5449077018110403d+0*t18*t25*t36 2967 t43 = -3.5461536035682834d-1*t10*t12*t42*t8*t9-1.77307680178 2968 1 41417d-1*t10*t22*t23*t34*t8*t9+3.5461536035682834d-1*t12* 2969 2 t15*t23*t8*t9 2970 t44 = 5.599999999999999d-3*gammaaa*t26*t6-1.2407009817988002 2971 1 d+0*t33+4.2d-3*gammaaa*t3*t31*t32 2972 t45 = 1/t1 2973 t46 = 1.26d-2*t3*t4*t45+1.26d-2*t27*t29 2974 t47 = 4.2d-3*t3*t6-4.2d-3*gammaaa*t3*t32*t46 2975 t48 = 1.413716694115413d+1*t14*t16*t18*t39*t47-3.53677651315 2976 1 3214d-2*t13*t15*t19*t47-5.0d-1*t17*t18*t47 2977 t49 = 2.659615202676212d-1*t10*t12*t48*t9+1.329807601338106d 2978 1 -1*t10*t20*t22*t47*t9-6.66432440723758d+0*rhoa*t18*t21*t2 2979 2 5*t35*t47 2980 t50 = -3.5461536035682834d-1*t10*t12*t49*t8*t9-1.77307680178 2981 1 41417d-1*t10*t22*t23*t47*t8*t9 2982 t51 = 4.2d-3*gammaaa*t3*t32*t46-4.2d-3*t3*t6 2983 t52 = t34**2 2984 t53 = 1/t12**5 2985 t54 = 1/rhoa**3.3333333333333337d+0 2986 t55 = t31**2 2987 t56 = 1/t5**3 2988 t57 = gammaaa**2 2989 t58 = 1/t28**3 2990 t59 = 1/rhoa**7.333333333333333d+0 2991 t60 = 1/rhoa**4.666666666666667d+0 2992 t61 = 1.6799999999999998d-1*gammaaa*t29*t60-4.47999999999999 2993 1 95d-2*t57*t58*t59+7.84d-2*t1*t4*t54 2994 t62 = 1/rhoa**6.666666666666666d-1 2995 t63 = 4.135669939329334d-1*t62-4.2d-3*gammaaa*t3*t32*t61+1.3 2996 1 066666666666665d-2*gammaaa*t54*t6+8.4d-3*gammaaa*t3*t55*t 2997 2 56+1.1199999999999999d-2*gammaaa*t26*t31*t32 2998 t64 = -1.8799712059732546d+0*rhoa*t21*t35*t63+2.819956808959 2999 1 8814d+0*rhoa*t21*t52*t53-3.759942411946509d+0*t21*t34*t35 3000 t65 = rhoa**4 3001 t66 = 1/t65 3002 t67 = 1/t11**3 3003 t68 = -2.827433388230826d+1*t14*t16*t52*t67+1.41371669411541 3004 1 3d+1*t14*t16*t39*t63+5.654866776461652d+1*rhoa*t16*t34*t3 3005 2 9-2.827433388230826d+1*t16*t17 3006 t69 = t40**2 3007 t70 = -3.536776513153214d-2*t11*t13*t15*t18*t69+t18*t69-3.53 3008 1 6776513153214d-2*t11*t13*t15*t18*t68+t18*t68-2.1220659078 3009 2 919285d-1*t11*t13*t19*t66-3.536776513153214d-2*t13*t15*t1 3010 3 9*t63+1.4147106052612857d-1*t11*t13*t18*t38*t40-7.0735530 3011 4 26306428d-2*t13*t15*t18*t34*t40+1.4147106052612857d-1*t13 3012 5 *t19*t34*t38 3013 t71 = 2.659615202676212d-1*t10*t12*t70*t9+1.329807601338106d 3014 1 -1*t10*t20*t22*t63*t9-6.649038006690531d-2*t10*t20*t35*t5 3015 2 2*t9+2.659615202676212d-1*t10*t22*t34*t41*t9-5.3192304053 3016 3 52424d-1*t12*t15*t41*t9+5.319230405352424d-1*t12*t20*t38* 3017 4 t9-2.659615202676212d-1*t15*t20*t22*t34*t9+3.544907701811 3018 5 0403d+0*t18*t25*t64+3.5449077018110403d+0*t18*t25*t36*t40 3019 t72 = -3.5461536035682834d-1*t10*t12*t71*t8*t9-1.77307680178 3020 1 41417d-1*t10*t22*t23*t63*t8*t9+8.865384008920708d-2*t10*t 3021 2 23*t35*t52*t8*t9-3.5461536035682834d-1*t10*t22*t34*t42*t8 3022 3 *t9+7.092307207136567d-1*t12*t15*t42*t8*t9-7.092307207136 3023 4 567d-1*t12*t23*t38*t8*t9+3.5461536035682834d-1*t15*t22*t2 3024 5 3*t34*t8*t9 3025 t73 = -4.135669939329334d-1*t62+4.2d-3*gammaaa*t3*t32*t61-1. 3026 1 3066666666666665d-2*gammaaa*t54*t6-8.4d-3*gammaaa*t3*t55* 3027 2 t56-1.1199999999999999d-2*gammaaa*t26*t31*t32 3028 t74 = 1/rhoa**6.333333333333333d+0 3029 t75 = 1.6799999999999998d-2*gammaaa*t58*t74-1.67999999999999 3030 1 98d-2*t26*t4*t45-5.04d-2*t29*t30 3031 t76 = -4.2d-3*gammaaa*t3*t32*t75-5.599999999999999d-3*t26*t6 3032 1 +8.4d-3*gammaaa*t3*t31*t46*t56+5.599999999999999d-3*gamma 3033 2 aa*t26*t32*t46-4.2d-3*t3*t31*t32 3034 t77 = -1.8799712059732546d+0*rhoa*t21*t35*t76+2.819956808959 3035 1 8814d+0*rhoa*t21*t34*t47*t53-1.8799712059732546d+0*t21*t3 3036 2 5*t47 3037 t78 = 1.413716694115413d+1*t14*t16*t39*t76-2.827433388230826 3038 1 d+1*t14*t16*t34*t47*t67+2.827433388230826d+1*rhoa*t16*t39 3039 2 *t47 3040 t79 = -3.536776513153214d-2*t11*t13*t15*t18*t78+t18*t78-3.53 3041 1 6776513153214d-2*t13*t15*t19*t76+1.413716694115413d+1*t14 3042 2 *t16*t18*t39*t40*t47-5.0d-1*t17*t18*t40*t47-3.53677651315 3043 3 3214d-2*t13*t15*t18*t40*t47-5.0d-1*t18*t34*t39*t47+7.0735 3044 4 53026306428d-2*t13*t19*t38*t47+1.0d+0*t10*t17*t18*t47 3045 t80 = 2.659615202676212d-1*t10*t12*t79*t9+1.329807601338106d 3046 1 -1*t10*t20*t22*t76*t9+1.329807601338106d-1*t10*t22*t34*t4 3047 2 8*t9-2.659615202676212d-1*t12*t15*t48*t9+1.32980760133810 3048 3 6d-1*t10*t22*t41*t47*t9-6.649038006690531d-2*t10*t20*t34* 3049 4 t35*t47*t9-1.329807601338106d-1*t15*t20*t22*t47*t9+3.5449 3050 5 077018110403d+0*t18*t25*t77+5.01149519714857d+1*t14*t16*t 3051 6 18*t25*t36*t39*t47 3052 t81 = -3.5461536035682834d-1*t10*t12*t8*t80*t9-1.77307680178 3053 1 41417d-1*t10*t22*t23*t76*t8*t9-1.7730768017841417d-1*t10* 3054 2 t22*t34*t49*t8*t9+3.5461536035682834d-1*t12*t15*t49*t8*t9 3055 3 -1.7730768017841417d-1*t10*t22*t42*t47*t8*t9+8.8653840089 3056 4 20708d-2*t10*t23*t34*t35*t47*t8*t9+1.7730768017841417d-1* 3057 5 t15*t22*t23*t47*t8*t9 3058 t82 = 4.2d-3*gammaaa*t3*t32*t75+5.599999999999999d-3*t26*t6- 3059 1 8.4d-3*gammaaa*t3*t31*t46*t56-5.599999999999999d-3*gammaa 3060 2 a*t26*t32*t46+4.2d-3*t3*t31*t32 3061 t83 = 1/t9**3 3062 t84 = t47**2 3063 t85 = 1/t12**7 3064 t86 = t46**2 3065 t87 = 1/rhoa**5.333333333333333d+0 3066 t88 = 1/gammaaa 3067 t89 = 1/t1**3 3068 t90 = -6.3d-3*t3*t4*t89+6.3d-3*t27*t29*t88-6.3d-3*t58*t87 3069 t91 = -4.2d-3*gammaaa*t3*t32*t90+8.4d-3*gammaaa*t3*t56*t86-8 3070 1 .4d-3*t3*t32*t46 3071 t92 = 1/t9**4 3072 t93 = 1/t11**4 3073 t94 = 1.9985948912206125d+2*t18*t65*t84*t92*t93+1.4137166941 3074 1 15413d+1*t14*t16*t18*t39*t91-3.536776513153214d-2*t13*t15 3075 2 *t19*t91-5.0d-1*t17*t18*t91-3.534291735288533d+1*t14*t16* 3076 3 t18*t67*t84 3077 t95 = 2.659615202676212d-1*t10*t12*t9*t94+1.329807601338106d 3078 1 -1*t10*t20*t22*t9*t91-6.66432440723758d+0*rhoa*t18*t21*t2 3079 2 5*t35*t91-6.649038006690531d-2*t10*t20*t35*t84*t9+2.65961 3080 3 5202676212d-1*t10*t22*t47*t48*t9-9.421466669512572d+1*t18 3081 4 *t25*t37*t83*t84*t85+9.996486610856369d+0*rhoa*t18*t21*t2 3082 5 5*t53*t84 3083 t96 = -3.5461536035682834d-1*t10*t12*t8*t9*t95-1.77307680178 3084 1 41417d-1*t10*t22*t23*t8*t9*t91+8.865384008920708d-2*t10*t 3085 2 23*t35*t8*t84*t9-3.5461536035682834d-1*t10*t22*t47*t49*t8 3086 3 *t9 3087 t97 = 4.2d-3*gammaaa*t3*t32*t90-8.4d-3*gammaaa*t3*t56*t86+8. 3088 1 4d-3*t3*t32*t46 3089 t98 = t34**3 3090 t99 = 1/rhoa**4.333333333333333d+0 3091 t100 = 1/rhoa**1.6666666666666669d+0 3092 t101 = t31**3 3093 t102 = 1/t5**4 3094 t103 = 1/t28**5 3095 t104 = -2.6133333333333336d-1*t1*t4*t99+5.525333333333333d-1 3096 1 *t57*t58/rhoa**8.333333333333334d+0-8.885333333333333d-1* 3097 2 gammaaa*t29/rhoa**5.666666666666667d+0-1.7919999999999997 3098 3 d-1*gammaaa**3*t103/rhoa**11 3099 t105 = -4.355555555555556d-2*gammaaa*t6*t99+2.52d-2*gammaaa* 3100 1 t3*t31*t56*t61+1.6799999999999995d-2*gammaaa*t26*t32*t61- 3101 2 3.359999999999999d-2*gammaaa*t26*t55*t56-3.92d-2*gammaaa* 3102 3 t31*t32*t54-4.2d-3*gammaaa*t104*t3*t32-2.52d-2*gammaaa*t1 3103 4 01*t102*t3-2.7571132928862224d-1*t100 3104 t106 = rhoa**5 3105 t107 = 8.482300164692478d+1*t14*t16*t93*t98-8.48230016469247 3106 1 8d+1*t14*t16*t34*t63*t67-1.6964600329384957d+2*rhoa*t16*t 3107 2 52*t67+8.482300164692478d+1*rhoa*t16*t39*t63+8.4823001646 3108 3 92478d+1*t16*t34*t39+1.413716694115413d+1*t105*t14*t16*t3 3109 4 9 3110 t108 = t40**3 3111 t109 = 2.072d-1*t29*t60-1.7359999999999998d-1*gammaaa*t58*t5 3112 1 9+6.719999999999998d-2*t103*t57/rhoa**10+3.92d-2*t4*t45*t 3113 2 54 3114 t110 = 1.6799999999999998d-2*gammaaa*t3*t31*t56*t75+1.119999 3115 1 9999999999d-2*gammaaa*t26*t32*t75+8.4d-3*gammaaa*t3*t46*t 3116 2 56*t61-4.2d-3*t3*t32*t61+1.3066666666666665d-2*t54*t6+8.4 3117 3 d-3*t3*t55*t56-2.2399999999999998d-2*gammaaa*t26*t31*t46* 3118 4 t56-2.52d-2*gammaaa*t102*t3*t46*t55-1.3066666666666665d-2 3119 5 *gammaaa*t32*t46*t54+1.1199999999999999d-2*t26*t31*t32-4. 3120 6 2d-3*gammaaa*t109*t3*t32 3121 t111 = 8.482300164692478d+1*t14*t16*t47*t52*t93-5.6548667764 3122 1 61652d+1*t14*t16*t34*t67*t76+5.654866776461652d+1*rhoa*t1 3123 2 6*t39*t76-2.827433388230826d+1*t14*t16*t47*t63*t67-1.1309 3124 3 733552923305d+2*rhoa*t16*t34*t47*t67+2.827433388230826d+1 3125 4 *t16*t39*t47+1.413716694115413d+1*t110*t14*t16*t39 3126 t112 = 8.4d-3*t26*t4*t89-8.4d-3*t29*t30*t88+4.19999999999999 3127 1 93d-2*t58*t74-2.52d-2*gammaaa*t103/rhoa**9 3128 t113 = 8.4d-3*gammaaa*t3*t31*t56*t90+5.599999999999999d-3*ga 3129 1 mmaaa*t26*t32*t90-1.1199999999999999d-2*gammaaa*t26*t56*t 3130 2 86-2.52d-2*gammaaa*t102*t3*t31*t86+1.6799999999999998d-2* 3131 3 gammaaa*t3*t46*t56*t75-8.4d-3*t3*t32*t75+1.67999999999999 3132 4 98d-2*t3*t31*t46*t56+1.1199999999999999d-2*t26*t32*t46-4. 3133 5 2d-3*gammaaa*t112*t3*t32 3134 t114 = 8.482300164692478d+1*t14*t16*t34*t84*t93-2.8274333882 3135 1 30826d+1*t14*t16*t34*t67*t91+2.827433388230826d+1*rhoa*t1 3136 2 6*t39*t91-5.654866776461652d+1*rhoa*t16*t67*t84-5.6548667 3137 3 76461652d+1*t14*t16*t47*t67*t76+1.413716694115413d+1*t113 3138 4 *t14*t16*t39 3139 t115 = t47**3 3140 t116 = t46**3 3141 t117 = -3.15d-3*t58*t87*t88-9.450000000000001d-3*t27*t29/t57 3142 1 +9.450000000000001d-3*t3*t4/t1**5+9.450000000000001d-3*t1 3143 2 03/rhoa**8 3144 t118 = 2.52d-2*gammaaa*t3*t46*t56*t90-1.26d-2*t3*t32*t90+2.5 3145 1 2d-2*t3*t56*t86-4.2d-3*gammaaa*t117*t3*t32-2.52d-2*gammaa 3146 2 a*t102*t116*t3 3147 fnc(iq) = t24*t7*wght+fnc(iq) 3148 Amat(iq,D1_RA) = t43*t7*wght+t24*t44*wght+Amat(iq,D1_RA) 3149 Cmat(iq,D1_GAA) = t50*t7*wght+t24*t51*wght+Cmat(iq,D1_GAA) 3150 Amat2(iq,D2_RA_RA) = t24*t73*wght+t7*t72*wght+2*t43*t44*wght 3151 1 +Amat2(iq,D2_RA_RA) 3152 Cmat2(iq,D2_RA_GAA) = t24*t82*wght+t7*t81*wght+t43*t51*wght+ 3153 1 t44*t50*wght+Cmat2(iq,D2_RA_GAA) 3154 Cmat2(iq,D2_GAA_GAA) = t24*t97*wght+t7*t96*wght+2*t50*t51*wg 3155 1 ht+Cmat2(iq,D2_GAA_GAA) 3156 Amat3(iq,D3_RA_RA_RA) = t24*(4.355555555555556d-2*gammaaa*t6 3157 1 *t99-2.52d-2*gammaaa*t3*t31*t56*t61-1.6799999999999995d-2 3158 2 *gammaaa*t26*t32*t61+3.359999999999999d-2*gammaaa*t26*t55 3159 3 *t56+3.92d-2*gammaaa*t31*t32*t54+4.2d-3*gammaaa*t104*t3*t 3160 4 32+2.52d-2*gammaaa*t101*t102*t3+2.7571132928862224d-1*t10 3161 5 0)*wght+t7*(-3.5461536035682834d-1*t10*t12*t8*t9*(3.54490 3162 6 77018110403d+0*t18*t25*(-7.049892022399704d+0*rhoa*t21*t8 3163 7 5*t98+8.459870426879645d+0*rhoa*t21*t34*t53*t63-5.6399136 3164 8 17919763d+0*t21*t35*t63+8.459870426879645d+0*t21*t52*t53- 3165 9 1.8799712059732546d+0*rhoa*t105*t21*t35)+9.97355701003579 3166 : 5d-2*t10*t20*t53*t9*t98+3.989422804014318d-1*t10*t22*t34* 3167 ; t70*t9-7.978845608028636d-1*t12*t15*t70*t9+2.659615202676 3168 < 212d-1*t10*t12*(2.1220659078919285d-1*t11*t13*t18*t38*t69 3169 = -1.0610329539459643d-1*t13*t15*t18*t34*t69-1.061032953945 3170 > 9643d-1*t11*t13*t15*t18*t40*t68+3*t18*t40*t68+2.122065907 3171 ? 8919285d-1*t11*t13*t18*t38*t68-1.0610329539459643d-1*t13* 3172 @ t15*t18*t34*t68-6.366197723675786d-1*t11*t13*t18*t40*t66- 3173 1 6.366197723675786d-1*t13*t19*t34*t66-1.0610329539459643d- 3174 2 1*t13*t15*t18*t40*t63+2.1220659078919285d-1*t13*t19*t38*t 3175 3 63+4.244131815783857d-1*t13*t18*t34*t38*t40-3.53677651315 3176 4 3214d-2*t105*t13*t15*t19+8.488263631567714d-1*t11*t13*t19 3177 5 /t106-3.536776513153214d-2*t108*t11*t13*t15*t18-3.5367765 3178 6 13153214d-2*t107*t11*t13*t15*t18+t108*t18+t107*t18)*t9-1. 3179 7 5957691216057274d+0*t12*t20*t66*t9+3.989422804014318d-1*t 3180 8 10*t22*t41*t63*t9-1.994711402007159d-1*t10*t20*t34*t35*t6 3181 9 3*t9-3.989422804014318d-1*t15*t20*t22*t63*t9-1.9947114020 3182 : 07159d-1*t10*t35*t41*t52*t9+1.994711402007159d-1*t15*t20* 3183 ; t35*t52*t9+1.5957691216057274d+0*t12*t38*t41*t9-7.9788456 3184 < 08028636d-1*t15*t22*t34*t41*t9+7.978845608028636d-1*t20*t 3185 = 22*t34*t38*t9+1.329807601338106d-1*t10*t105*t20*t22*t9+3. 3186 > 5449077018110403d+0*t18*t25*t36*t69+3.5449077018110403d+0 3187 ? *t18*t25*t36*t68+7.089815403622081d+0*t18*t25*t40*t64)-1. 3188 @ 3298076013381063d-1*t10*t23*t53*t8*t9*t98-5.3192304053524 3189 1 25d-1*t10*t22*t34*t71*t8*t9+1.063846081070485d+0*t12*t15* 3190 2 t71*t8*t9+2.12769216214097d+0*t12*t23*t66*t8*t9-5.3192304 3191 3 05352425d-1*t10*t22*t42*t63*t8*t9+2.6596152026762127d-1*t 3192 4 10*t23*t34*t35*t63*t8*t9+5.319230405352425d-1*t15*t22*t23 3193 5 *t63*t8*t9+2.6596152026762127d-1*t10*t35*t42*t52*t8*t9-2. 3194 6 6596152026762127d-1*t15*t23*t35*t52*t8*t9-2.1276921621409 3195 7 7d+0*t12*t38*t42*t8*t9+1.063846081070485d+0*t15*t22*t34*t 3196 8 42*t8*t9-1.063846081070485d+0*t22*t23*t34*t38*t8*t9-1.773 3197 9 0768017841417d-1*t10*t105*t22*t23*t8*t9)*wght+3*t43*t73*w 3198 : ght+3*t44*t72*wght+Amat3(iq,D3_RA_RA_RA) 3199 Cmat3(iq,D3_RA_RA_GAA) = t7*(-3.5461536035682834d-1*t10*t12* 3200 1 t8*t9*(2.659615202676212d-1*t10*t22*t34*t79*t9-5.31923040 3201 2 5352424d-1*t12*t15*t79*t9+2.659615202676212d-1*t10*t12*(- 3202 3 7.073553026306428d-2*t11*t13*t15*t18*t40*t78+2*t18*t40*t7 3203 4 8+1.4147106052612857d-1*t11*t13*t18*t38*t78-7.07355302630 3204 5 6428d-2*t13*t15*t18*t34*t78-7.073553026306428d-2*t13*t15* 3205 6 t18*t40*t76+1.4147106052612857d-1*t13*t19*t38*t76+1.41371 3206 7 6694115413d+1*t14*t16*t18*t39*t47*t69-5.0d-1*t17*t18*t47* 3207 8 t69-3.536776513153214d-2*t13*t15*t18*t47*t69+1.4137166941 3208 9 15413d+1*t14*t16*t18*t39*t47*t68-5.0d-1*t17*t18*t47*t68-3 3209 : .536776513153214d-2*t13*t15*t18*t47*t68-2.122065907891928 3210 ; 5d-1*t13*t19*t47*t66-5.0d-1*t18*t39*t47*t63-1.0d+0*t18*t3 3211 < 4*t39*t40*t47+1.4147106052612857d-1*t13*t18*t38*t40*t47+2 3212 = .0d+0*t10*t17*t18*t40*t47+2.0d+0*t10*t18*t34*t39*t47-3.0d 3213 > +0*t15*t17*t18*t47-3.536776513153214d-2*t110*t13*t15*t19- 3214 ? 3.536776513153214d-2*t11*t111*t13*t15*t18+t111*t18)*t9+2. 3215 @ 659615202676212d-1*t10*t22*t41*t76*t9-1.329807601338106d- 3216 1 1*t10*t20*t34*t35*t76*t9-2.659615202676212d-1*t15*t20*t22 3217 2 *t76*t9+1.329807601338106d-1*t10*t22*t47*t70*t9+1.3298076 3218 3 01338106d-1*t10*t22*t48*t63*t9-6.649038006690531d-2*t10*t 3219 4 20*t35*t47*t63*t9+9.973557010035795d-2*t10*t20*t47*t52*t5 3220 5 3*t9-6.649038006690531d-2*t10*t35*t48*t52*t9+5.3192304053 3221 6 52424d-1*t12*t38*t48*t9-2.659615202676212d-1*t15*t22*t34* 3222 7 t48*t9-1.329807601338106d-1*t10*t34*t35*t41*t47*t9-2.6596 3223 8 15202676212d-1*t15*t22*t41*t47*t9+2.659615202676212d-1*t2 3224 9 0*t22*t38*t47*t9+1.329807601338106d-1*t15*t20*t34*t35*t47 3225 : *t9+1.329807601338106d-1*t10*t110*t20*t22*t9+3.5449077018 3226 ; 110403d+0*t18*t25*(-7.049892022399704d+0*rhoa*t21*t47*t52 3227 < *t85+5.639913617919763d+0*rhoa*t21*t34*t53*t76-3.75994241 3228 = 1946509d+0*t21*t35*t76+2.8199568089598814d+0*rhoa*t21*t47 3229 > *t53*t63+5.639913617919763d+0*t21*t34*t47*t53-1.879971205 3230 ? 9732546d+0*rhoa*t110*t21*t35)+3.5449077018110403d+0*t18*t 3231 @ 25*t36*t78+3.5449077018110403d+0*t18*t25*t40*t77+5.011495 3232 1 19714857d+1*t14*t16*t18*t25*t39*t47*t64+5.01149519714857d 3233 2 +1*t14*t16*t18*t25*t36*t39*t40*t47)-3.5461536035682834d-1 3234 3 *t10*t22*t34*t8*t80*t9+7.092307207136567d-1*t12*t15*t8*t8 3235 4 0*t9-3.5461536035682834d-1*t10*t22*t42*t76*t8*t9+1.773076 3236 5 8017841417d-1*t10*t23*t34*t35*t76*t8*t9+3.546153603568283 3237 6 4d-1*t15*t22*t23*t76*t8*t9-1.7730768017841417d-1*t10*t22* 3238 7 t47*t71*t8*t9-1.7730768017841417d-1*t10*t22*t49*t63*t8*t9 3239 8 +8.865384008920708d-2*t10*t23*t35*t47*t63*t8*t9-1.3298076 3240 9 013381063d-1*t10*t23*t47*t52*t53*t8*t9+8.865384008920708d 3241 : -2*t10*t35*t49*t52*t8*t9-7.092307207136567d-1*t12*t38*t49 3242 ; *t8*t9+3.5461536035682834d-1*t15*t22*t34*t49*t8*t9+1.7730 3243 < 768017841417d-1*t10*t34*t35*t42*t47*t8*t9+3.5461536035682 3244 = 834d-1*t15*t22*t42*t47*t8*t9-3.5461536035682834d-1*t22*t2 3245 > 3*t38*t47*t8*t9-1.7730768017841417d-1*t15*t23*t34*t35*t47 3246 ? *t8*t9-1.7730768017841417d-1*t10*t110*t22*t23*t8*t9)*wght 3247 @ +2*t43*t82*wght+2*t44*t81*wght+t24*(-1.6799999999999998d- 3248 1 2*gammaaa*t3*t31*t56*t75-1.1199999999999999d-2*gammaaa*t2 3249 2 6*t32*t75-8.4d-3*gammaaa*t3*t46*t56*t61+4.2d-3*t3*t32*t61 3250 3 -1.3066666666666665d-2*t54*t6-8.4d-3*t3*t55*t56+2.2399999 3251 4 999999998d-2*gammaaa*t26*t31*t46*t56+2.52d-2*gammaaa*t102 3252 5 *t3*t46*t55+1.3066666666666665d-2*gammaaa*t32*t46*t54-1.1 3253 6 199999999999999d-2*t26*t31*t32+4.2d-3*gammaaa*t109*t3*t32 3254 7 )*wght+t50*t73*wght+t51*t72*wght+Cmat3(iq,D3_RA_RA_GAA) 3255 Cmat3(iq,D3_RA_GAA_GAA) = t43*t97*wght+t44*t96*wght+t7*(-1.7 3256 1 730768017841417d-1*t10*t22*t34*t8*t9*t95+3.54615360356828 3257 2 34d-1*t12*t15*t8*t9*t95-3.5461536035682834d-1*t10*t12*t8* 3258 3 t9*(1.329807601338106d-1*t10*t22*t34*t9*t94-2.65961520267 3259 4 6212d-1*t12*t15*t9*t94+2.659615202676212d-1*t10*t12*t9*(1 3260 5 .9985948912206125d+2*t18*t40*t65*t84*t92*t93-7.0685834705 3261 6 77066d+0*t14*t16*t18*t34*t84*t93+1.413716694115413d+1*t14 3262 7 *t16*t18*t39*t40*t91-5.0d-1*t17*t18*t40*t91-3.53677651315 3263 8 3214d-2*t13*t15*t18*t40*t91-5.0d-1*t18*t34*t39*t91+7.0735 3264 9 53026306428d-2*t13*t19*t38*t91+1.0d+0*t10*t17*t18*t91-3.5 3265 : 34291735288533d+1*t14*t16*t18*t40*t67*t84+1.0d+0*t18*t34* 3266 ; t67*t84+1.413716694115413d+1*rhoa*t16*t18*t67*t84+2.82743 3267 < 3388230826d+1*t14*t16*t18*t39*t47*t78-1.0d+0*t17*t18*t47* 3268 = t78-7.073553026306428d-2*t13*t15*t18*t47*t78-1.0d+0*t18*t 3269 > 39*t47*t76-3.536776513153214d-2*t113*t13*t15*t19-3.536776 3270 ? 513153214d-2*t11*t114*t13*t15*t18+t114*t18)+7.08483442268 3271 @ 8148d+2*t18*t25*t36*t65*t84*t92*t93+3.5449077018110403d+0 3272 1 *t18*t25*(2.8199568089598814d+0*rhoa*t21*t34*t53*t91-1.87 3273 2 99712059732546d+0*t21*t35*t91-7.049892022399704d+0*rhoa*t 3274 3 21*t34*t84*t85+2.8199568089598814d+0*t21*t53*t84+5.639913 3275 4 617919763d+0*rhoa*t21*t47*t53*t76-1.8799712059732546d+0*r 3276 5 hoa*t113*t21*t35)+1.329807601338106d-1*t10*t22*t41*t9*t91 3277 6 -6.649038006690531d-2*t10*t20*t34*t35*t9*t91-1.3298076013 3278 7 38106d-1*t15*t20*t22*t9*t91+5.01149519714857d+1*t14*t16*t 3279 8 18*t25*t36*t39*t91+9.973557010035795d-2*t10*t20*t34*t53*t 3280 9 84*t9-6.649038006690531d-2*t10*t35*t41*t84*t9+6.649038006 3281 : 690531d-2*t15*t20*t35*t84*t9+2.659615202676212d-1*t10*t22 3282 ; *t47*t79*t9+2.659615202676212d-1*t10*t22*t48*t76*t9-1.329 3283 < 807601338106d-1*t10*t20*t35*t47*t76*t9-1.329807601338106d 3284 = -1*t10*t34*t35*t47*t48*t9-2.659615202676212d-1*t15*t22*t4 3285 > 7*t48*t9+1.329807601338106d-1*t10*t113*t20*t22*t9-1.00229 3286 ? 9039429714d+2*t14*t16*t18*t25*t36*t67*t84+1.0022990394297 3287 @ 14d+2*t14*t16*t18*t25*t39*t47*t77)-1.7730768017841417d-1* 3288 1 t10*t22*t42*t8*t9*t91+8.865384008920708d-2*t10*t23*t34*t3 3289 2 5*t8*t9*t91+1.7730768017841417d-1*t15*t22*t23*t8*t9*t91-1 3290 3 .3298076013381063d-1*t10*t23*t34*t53*t8*t84*t9+8.86538400 3291 4 8920708d-2*t10*t35*t42*t8*t84*t9-8.865384008920708d-2*t15 3292 5 *t23*t35*t8*t84*t9-3.5461536035682834d-1*t10*t22*t47*t8*t 3293 6 80*t9-3.5461536035682834d-1*t10*t22*t49*t76*t8*t9+1.77307 3294 7 68017841417d-1*t10*t23*t35*t47*t76*t8*t9+1.77307680178414 3295 8 17d-1*t10*t34*t35*t47*t49*t8*t9+3.5461536035682834d-1*t15 3296 9 *t22*t47*t49*t8*t9-1.7730768017841417d-1*t10*t113*t22*t23 3297 : *t8*t9)*wght+t24*(-8.4d-3*gammaaa*t3*t31*t56*t90-5.599999 3298 ; 999999999d-3*gammaaa*t26*t32*t90+1.1199999999999999d-2*ga 3299 < mmaaa*t26*t56*t86+2.52d-2*gammaaa*t102*t3*t31*t86-1.67999 3300 = 99999999998d-2*gammaaa*t3*t46*t56*t75+8.4d-3*t3*t32*t75-1 3301 > .6799999999999998d-2*t3*t31*t46*t56-1.1199999999999999d-2 3302 ? *t26*t32*t46+4.2d-3*gammaaa*t112*t3*t32)*wght+2*t50*t82*w 3303 @ ght+2*t51*t81*wght+Cmat3(iq,D3_RA_GAA_GAA) 3304 Cmat3(iq,D3_GAA_GAA_GAA) = 3*t50*t97*wght+3*t51*t96*wght+t7* 3305 1 (-5.319230405352425d-1*t10*t22*t47*t8*t9*t95-3.5461536035 3306 2 682834d-1*t10*t12*t8*t9*(3.989422804014318d-1*t10*t22*t47 3307 3 *t9*t94+2.659615202676212d-1*t10*t12*t9*(5.99578467366183 3308 4 8d+2*t18*t47*t65*t91*t92*t93+1.0602875205865599d+2*t115*t 3309 5 14*t16*t18*t93-1.2990866792933983d+3*t115*t18*t65*t92/t11 3310 6 **5-1.0602875205865599d+2*t14*t16*t18*t47*t67*t91+2.82544 3311 7 69624923584d+3*rhoa**6*t115*t18/(t11**6*t9**6)+1.41371669 3312 8 4115413d+1*t118*t14*t16*t18*t39-3.536776513153214d-2*t118 3313 9 *t13*t15*t19-5.0d-1*t118*t17*t18)+3.989422804014318d-1*t1 3314 : 0*t22*t48*t9*t91-1.994711402007159d-1*t10*t20*t35*t47*t9* 3315 ; t91-2.826440000853771d+2*t18*t25*t37*t47*t83*t85*t91+2.99 3316 < 8945983256911d+1*rhoa*t18*t21*t25*t47*t53*t91-1.994711402 3317 = 007159d-1*t10*t35*t48*t84*t9+9.973557010035795d-2*t10*t11 3318 > 5*t20*t53*t9+1.329807601338106d-1*t10*t118*t20*t22*t9-1.3 3319 ? 319284713741864d+3*t106*t115*t18*t25/(t12**11*t9**5)-2.49 3320 @ 91216527140922d+1*rhoa*t115*t18*t21*t25*t85+4.71073333475 3321 1 6285d+2*t115*t18*t25*t37*t83/t12**9-6.66432440723758d+0*r 3322 2 hoa*t118*t18*t21*t25*t35)-5.319230405352425d-1*t10*t22*t4 3323 3 9*t8*t9*t91+2.6596152026762127d-1*t10*t23*t35*t47*t8*t9*t 3324 4 91+2.6596152026762127d-1*t10*t35*t49*t8*t84*t9-1.32980760 3325 5 13381063d-1*t10*t115*t23*t53*t8*t9-1.7730768017841417d-1* 3326 6 t10*t118*t22*t23*t8*t9)*wght+t24*(-2.52d-2*gammaaa*t3*t46 3327 7 *t56*t90+1.26d-2*t3*t32*t90-2.52d-2*t3*t56*t86+4.2d-3*gam 3328 8 maaa*t117*t3*t32+2.52d-2*gammaaa*t102*t116*t3)*wght+Cmat3 3329 9 (iq,D3_GAA_GAA_GAA) 3330 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 3331 t1 = gammabb**5.0d-1 3332 t2 = rhob**1.3333333333333333d+0 3333 t3 = 1/t2 3334 t4 = asinh(t1*t3) 3335 t5 = 2.52d-2*t1*t3*t4+1.0d+0 3336 t6 = 1/t5 3337 t7 = -4.2d-3*gammabb*t3*t6-9.305257363491002d-1*t2 3338 t8 = param(2) 3339 t9 = param(3) 3340 t10 = 1/rhob 3341 t11 = 4.2d-3*gammabb*t3*t6+9.305257363491002d-1*t2 3342 t12 = t11**5.0d-1 3343 t13 = t9**2 3344 t14 = rhob**2 3345 t15 = 1/t14 3346 t16 = 1/t13 3347 t17 = 1/t11 3348 t18 = exp(-1.413716694115413d+1*t14*t16*t17) 3349 t19 = t18-1.0d+0 3350 t20 = -3.536776513153214d-2*t11*t13*t15*t19+t18-1.5d+0 3351 t21 = 1/t9 3352 t22 = 1/t12 3353 t23 = 2.659615202676212d-1*t10*t12*t20*t9+1.7724538509055202 3354 1 d+0*erf(3.759942411946509d+0*rhob*t21*t22) 3355 t24 = -3.5461536035682834d-1*t10*t12*t23*t8*t9-param(1)+1.0d 3356 1 +0 3357 t25 = 5.641895835477563d-1 3358 t26 = 1/rhob**2.3333333333333334d+0 3359 t27 = 1/rhob**2.6666666666666666d+0 3360 t28 = (gammabb*t27+1)**5.0d-1 3361 t29 = 1/t28 3362 t30 = 1/rhob**3.6666666666666664d+0 3363 t31 = -3.3599999999999997d-2*t1*t26*t4-3.3599999999999997d-2 3364 1 *gammabb*t29*t30 3365 t32 = 1/t5**2 3366 t33 = rhob**3.333333333333333d-1 3367 t34 = -5.599999999999999d-3*gammabb*t26*t6+1.240700981798800 3368 1 2d+0*t33-4.2d-3*gammabb*t3*t31*t32 3369 t35 = 1/t12**3 3370 t36 = 3.759942411946509d+0*t21*t22-1.8799712059732546d+0*rho 3371 1 b*t21*t34*t35 3372 t37 = rhob**3 3373 t38 = 1/t37 3374 t39 = 1/t11**2 3375 t40 = 1.413716694115413d+1*t14*t16*t34*t39-2.827433388230826 3376 1 d+1*rhob*t16*t17 3377 t41 = -3.536776513153214d-2*t11*t13*t15*t18*t40+t18*t40+7.07 3378 1 3553026306428d-2*t11*t13*t19*t38-3.536776513153214d-2*t13 3379 2 *t15*t19*t34 3380 t42 = 2.659615202676212d-1*t10*t12*t41*t9+1.329807601338106d 3381 1 -1*t10*t20*t22*t34*t9-2.659615202676212d-1*t12*t15*t20*t9 3382 2 +3.5449077018110403d+0*t18*t25*t36 3383 t43 = -3.5461536035682834d-1*t10*t12*t42*t8*t9-1.77307680178 3384 1 41417d-1*t10*t22*t23*t34*t8*t9+3.5461536035682834d-1*t12* 3385 2 t15*t23*t8*t9 3386 t44 = 5.599999999999999d-3*gammabb*t26*t6-1.2407009817988002 3387 1 d+0*t33+4.2d-3*gammabb*t3*t31*t32 3388 t45 = 1/t1 3389 t46 = 1.26d-2*t3*t4*t45+1.26d-2*t27*t29 3390 t47 = 4.2d-3*t3*t6-4.2d-3*gammabb*t3*t32*t46 3391 t48 = 1.413716694115413d+1*t14*t16*t18*t39*t47-3.53677651315 3392 1 3214d-2*t13*t15*t19*t47-5.0d-1*t17*t18*t47 3393 t49 = 2.659615202676212d-1*t10*t12*t48*t9+1.329807601338106d 3394 1 -1*t10*t20*t22*t47*t9-6.66432440723758d+0*rhob*t18*t21*t2 3395 2 5*t35*t47 3396 t50 = -3.5461536035682834d-1*t10*t12*t49*t8*t9-1.77307680178 3397 1 41417d-1*t10*t22*t23*t47*t8*t9 3398 t51 = 4.2d-3*gammabb*t3*t32*t46-4.2d-3*t3*t6 3399 t52 = t34**2 3400 t53 = 1/t12**5 3401 t54 = 1/rhob**3.3333333333333337d+0 3402 t55 = t31**2 3403 t56 = 1/t5**3 3404 t57 = gammabb**2 3405 t58 = 1/t28**3 3406 t59 = 1/rhob**7.333333333333333d+0 3407 t60 = 1/rhob**4.666666666666667d+0 3408 t61 = 1.6799999999999998d-1*gammabb*t29*t60-4.47999999999999 3409 1 95d-2*t57*t58*t59+7.84d-2*t1*t4*t54 3410 t62 = 1/rhob**6.666666666666666d-1 3411 t63 = 4.135669939329334d-1*t62-4.2d-3*gammabb*t3*t32*t61+1.3 3412 1 066666666666665d-2*gammabb*t54*t6+8.4d-3*gammabb*t3*t55*t 3413 2 56+1.1199999999999999d-2*gammabb*t26*t31*t32 3414 t64 = -1.8799712059732546d+0*rhob*t21*t35*t63+2.819956808959 3415 1 8814d+0*rhob*t21*t52*t53-3.759942411946509d+0*t21*t34*t35 3416 t65 = rhob**4 3417 t66 = 1/t65 3418 t67 = 1/t11**3 3419 t68 = -2.827433388230826d+1*t14*t16*t52*t67+1.41371669411541 3420 1 3d+1*t14*t16*t39*t63+5.654866776461652d+1*rhob*t16*t34*t3 3421 2 9-2.827433388230826d+1*t16*t17 3422 t69 = t40**2 3423 t70 = -3.536776513153214d-2*t11*t13*t15*t18*t69+t18*t69-3.53 3424 1 6776513153214d-2*t11*t13*t15*t18*t68+t18*t68-2.1220659078 3425 2 919285d-1*t11*t13*t19*t66-3.536776513153214d-2*t13*t15*t1 3426 3 9*t63+1.4147106052612857d-1*t11*t13*t18*t38*t40-7.0735530 3427 4 26306428d-2*t13*t15*t18*t34*t40+1.4147106052612857d-1*t13 3428 5 *t19*t34*t38 3429 t71 = 2.659615202676212d-1*t10*t12*t70*t9+1.329807601338106d 3430 1 -1*t10*t20*t22*t63*t9-6.649038006690531d-2*t10*t20*t35*t5 3431 2 2*t9+2.659615202676212d-1*t10*t22*t34*t41*t9-5.3192304053 3432 3 52424d-1*t12*t15*t41*t9+5.319230405352424d-1*t12*t20*t38* 3433 4 t9-2.659615202676212d-1*t15*t20*t22*t34*t9+3.544907701811 3434 5 0403d+0*t18*t25*t64+3.5449077018110403d+0*t18*t25*t36*t40 3435 t72 = -3.5461536035682834d-1*t10*t12*t71*t8*t9-1.77307680178 3436 1 41417d-1*t10*t22*t23*t63*t8*t9+8.865384008920708d-2*t10*t 3437 2 23*t35*t52*t8*t9-3.5461536035682834d-1*t10*t22*t34*t42*t8 3438 3 *t9+7.092307207136567d-1*t12*t15*t42*t8*t9-7.092307207136 3439 4 567d-1*t12*t23*t38*t8*t9+3.5461536035682834d-1*t15*t22*t2 3440 5 3*t34*t8*t9 3441 t73 = -4.135669939329334d-1*t62+4.2d-3*gammabb*t3*t32*t61-1. 3442 1 3066666666666665d-2*gammabb*t54*t6-8.4d-3*gammabb*t3*t55* 3443 2 t56-1.1199999999999999d-2*gammabb*t26*t31*t32 3444 t74 = 1/rhob**6.333333333333333d+0 3445 t75 = 1.6799999999999998d-2*gammabb*t58*t74-1.67999999999999 3446 1 98d-2*t26*t4*t45-5.04d-2*t29*t30 3447 t76 = -4.2d-3*gammabb*t3*t32*t75-5.599999999999999d-3*t26*t6 3448 1 +8.4d-3*gammabb*t3*t31*t46*t56+5.599999999999999d-3*gamma 3449 2 bb*t26*t32*t46-4.2d-3*t3*t31*t32 3450 t77 = -1.8799712059732546d+0*rhob*t21*t35*t76+2.819956808959 3451 1 8814d+0*rhob*t21*t34*t47*t53-1.8799712059732546d+0*t21*t3 3452 2 5*t47 3453 t78 = 1.413716694115413d+1*t14*t16*t39*t76-2.827433388230826 3454 1 d+1*t14*t16*t34*t47*t67+2.827433388230826d+1*rhob*t16*t39 3455 2 *t47 3456 t79 = -3.536776513153214d-2*t11*t13*t15*t18*t78+t18*t78-3.53 3457 1 6776513153214d-2*t13*t15*t19*t76+1.413716694115413d+1*t14 3458 2 *t16*t18*t39*t40*t47-5.0d-1*t17*t18*t40*t47-3.53677651315 3459 3 3214d-2*t13*t15*t18*t40*t47-5.0d-1*t18*t34*t39*t47+7.0735 3460 4 53026306428d-2*t13*t19*t38*t47+1.0d+0*t10*t17*t18*t47 3461 t80 = 2.659615202676212d-1*t10*t12*t79*t9+1.329807601338106d 3462 1 -1*t10*t20*t22*t76*t9+1.329807601338106d-1*t10*t22*t34*t4 3463 2 8*t9-2.659615202676212d-1*t12*t15*t48*t9+1.32980760133810 3464 3 6d-1*t10*t22*t41*t47*t9-6.649038006690531d-2*t10*t20*t34* 3465 4 t35*t47*t9-1.329807601338106d-1*t15*t20*t22*t47*t9+3.5449 3466 5 077018110403d+0*t18*t25*t77+5.01149519714857d+1*t14*t16*t 3467 6 18*t25*t36*t39*t47 3468 t81 = -3.5461536035682834d-1*t10*t12*t8*t80*t9-1.77307680178 3469 1 41417d-1*t10*t22*t23*t76*t8*t9-1.7730768017841417d-1*t10* 3470 2 t22*t34*t49*t8*t9+3.5461536035682834d-1*t12*t15*t49*t8*t9 3471 3 -1.7730768017841417d-1*t10*t22*t42*t47*t8*t9+8.8653840089 3472 4 20708d-2*t10*t23*t34*t35*t47*t8*t9+1.7730768017841417d-1* 3473 5 t15*t22*t23*t47*t8*t9 3474 t82 = 4.2d-3*gammabb*t3*t32*t75+5.599999999999999d-3*t26*t6- 3475 1 8.4d-3*gammabb*t3*t31*t46*t56-5.599999999999999d-3*gammab 3476 2 b*t26*t32*t46+4.2d-3*t3*t31*t32 3477 t83 = 1/t9**3 3478 t84 = t47**2 3479 t85 = 1/t12**7 3480 t86 = t46**2 3481 t87 = 1/rhob**5.333333333333333d+0 3482 t88 = 1/gammabb 3483 t89 = 1/t1**3 3484 t90 = -6.3d-3*t3*t4*t89+6.3d-3*t27*t29*t88-6.3d-3*t58*t87 3485 t91 = -4.2d-3*gammabb*t3*t32*t90+8.4d-3*gammabb*t3*t56*t86-8 3486 1 .4d-3*t3*t32*t46 3487 t92 = 1/t9**4 3488 t93 = 1/t11**4 3489 t94 = 1.9985948912206125d+2*t18*t65*t84*t92*t93+1.4137166941 3490 1 15413d+1*t14*t16*t18*t39*t91-3.536776513153214d-2*t13*t15 3491 2 *t19*t91-5.0d-1*t17*t18*t91-3.534291735288533d+1*t14*t16* 3492 3 t18*t67*t84 3493 t95 = 2.659615202676212d-1*t10*t12*t9*t94+1.329807601338106d 3494 1 -1*t10*t20*t22*t9*t91-6.66432440723758d+0*rhob*t18*t21*t2 3495 2 5*t35*t91-6.649038006690531d-2*t10*t20*t35*t84*t9+2.65961 3496 3 5202676212d-1*t10*t22*t47*t48*t9-9.421466669512572d+1*t18 3497 4 *t25*t37*t83*t84*t85+9.996486610856369d+0*rhob*t18*t21*t2 3498 5 5*t53*t84 3499 t96 = -3.5461536035682834d-1*t10*t12*t8*t9*t95-1.77307680178 3500 1 41417d-1*t10*t22*t23*t8*t9*t91+8.865384008920708d-2*t10*t 3501 2 23*t35*t8*t84*t9-3.5461536035682834d-1*t10*t22*t47*t49*t8 3502 3 *t9 3503 t97 = 4.2d-3*gammabb*t3*t32*t90-8.4d-3*gammabb*t3*t56*t86+8. 3504 1 4d-3*t3*t32*t46 3505 t98 = t34**3 3506 t99 = 1/rhob**4.333333333333333d+0 3507 t100 = 1/rhob**1.6666666666666669d+0 3508 t101 = t31**3 3509 t102 = 1/t5**4 3510 t103 = 1/t28**5 3511 t104 = -2.6133333333333336d-1*t1*t4*t99+5.525333333333333d-1 3512 1 *t57*t58/rhob**8.333333333333334d+0-8.885333333333333d-1* 3513 2 gammabb*t29/rhob**5.666666666666667d+0-1.7919999999999997 3514 3 d-1*gammabb**3*t103/rhob**11 3515 t105 = -4.355555555555556d-2*gammabb*t6*t99+2.52d-2*gammabb* 3516 1 t3*t31*t56*t61+1.6799999999999995d-2*gammabb*t26*t32*t61- 3517 2 3.359999999999999d-2*gammabb*t26*t55*t56-3.92d-2*gammabb* 3518 3 t31*t32*t54-4.2d-3*gammabb*t104*t3*t32-2.52d-2*gammabb*t1 3519 4 01*t102*t3-2.7571132928862224d-1*t100 3520 t106 = rhob**5 3521 t107 = 8.482300164692478d+1*t14*t16*t93*t98-8.48230016469247 3522 1 8d+1*t14*t16*t34*t63*t67-1.6964600329384957d+2*rhob*t16*t 3523 2 52*t67+8.482300164692478d+1*rhob*t16*t39*t63+8.4823001646 3524 3 92478d+1*t16*t34*t39+1.413716694115413d+1*t105*t14*t16*t3 3525 4 9 3526 t108 = t40**3 3527 t109 = 2.072d-1*t29*t60-1.7359999999999998d-1*gammabb*t58*t5 3528 1 9+6.719999999999998d-2*t103*t57/rhob**10+3.92d-2*t4*t45*t 3529 2 54 3530 t110 = 1.6799999999999998d-2*gammabb*t3*t31*t56*t75+1.119999 3531 1 9999999999d-2*gammabb*t26*t32*t75+8.4d-3*gammabb*t3*t46*t 3532 2 56*t61-4.2d-3*t3*t32*t61+1.3066666666666665d-2*t54*t6+8.4 3533 3 d-3*t3*t55*t56-2.2399999999999998d-2*gammabb*t26*t31*t46* 3534 4 t56-2.52d-2*gammabb*t102*t3*t46*t55-1.3066666666666665d-2 3535 5 *gammabb*t32*t46*t54+1.1199999999999999d-2*t26*t31*t32-4. 3536 6 2d-3*gammabb*t109*t3*t32 3537 t111 = 8.482300164692478d+1*t14*t16*t47*t52*t93-5.6548667764 3538 1 61652d+1*t14*t16*t34*t67*t76+5.654866776461652d+1*rhob*t1 3539 2 6*t39*t76-2.827433388230826d+1*t14*t16*t47*t63*t67-1.1309 3540 3 733552923305d+2*rhob*t16*t34*t47*t67+2.827433388230826d+1 3541 4 *t16*t39*t47+1.413716694115413d+1*t110*t14*t16*t39 3542 t112 = 8.4d-3*t26*t4*t89-8.4d-3*t29*t30*t88+4.19999999999999 3543 1 93d-2*t58*t74-2.52d-2*gammabb*t103/rhob**9 3544 t113 = 8.4d-3*gammabb*t3*t31*t56*t90+5.599999999999999d-3*ga 3545 1 mmabb*t26*t32*t90-1.1199999999999999d-2*gammabb*t26*t56*t 3546 2 86-2.52d-2*gammabb*t102*t3*t31*t86+1.6799999999999998d-2* 3547 3 gammabb*t3*t46*t56*t75-8.4d-3*t3*t32*t75+1.67999999999999 3548 4 98d-2*t3*t31*t46*t56+1.1199999999999999d-2*t26*t32*t46-4. 3549 5 2d-3*gammabb*t112*t3*t32 3550 t114 = 8.482300164692478d+1*t14*t16*t34*t84*t93-2.8274333882 3551 1 30826d+1*t14*t16*t34*t67*t91+2.827433388230826d+1*rhob*t1 3552 2 6*t39*t91-5.654866776461652d+1*rhob*t16*t67*t84-5.6548667 3553 3 76461652d+1*t14*t16*t47*t67*t76+1.413716694115413d+1*t113 3554 4 *t14*t16*t39 3555 t115 = t47**3 3556 t116 = t46**3 3557 t117 = -3.15d-3*t58*t87*t88-9.450000000000001d-3*t27*t29/t57 3558 1 +9.450000000000001d-3*t3*t4/t1**5+9.450000000000001d-3*t1 3559 2 03/rhob**8 3560 t118 = 2.52d-2*gammabb*t3*t46*t56*t90-1.26d-2*t3*t32*t90+2.5 3561 1 2d-2*t3*t56*t86-4.2d-3*gammabb*t117*t3*t32-2.52d-2*gammab 3562 2 b*t102*t116*t3 3563 fnc(iq) = t24*t7*wght+fnc(iq) 3564 Amat(iq,D1_RB) = t43*t7*wght+t24*t44*wght+Amat(iq,D1_RB) 3565 Cmat(iq,D1_GBB) = t50*t7*wght+t24*t51*wght+Cmat(iq,D1_GBB) 3566 Amat2(iq,D2_RB_RB) = t24*t73*wght+t7*t72*wght+2*t43*t44*wght 3567 1 +Amat2(iq,D2_RB_RB) 3568 Cmat2(iq,D2_RB_GBB) = t24*t82*wght+t7*t81*wght+t43*t51*wght+ 3569 1 t44*t50*wght+Cmat2(iq,D2_RB_GBB) 3570 Cmat2(iq,D2_GBB_GBB) = t24*t97*wght+t7*t96*wght+2*t50*t51*wg 3571 1 ht+Cmat2(iq,D2_GBB_GBB) 3572 Amat3(iq,D3_RB_RB_RB) = t24*(4.355555555555556d-2*gammabb*t6 3573 1 *t99-2.52d-2*gammabb*t3*t31*t56*t61-1.6799999999999995d-2 3574 2 *gammabb*t26*t32*t61+3.359999999999999d-2*gammabb*t26*t55 3575 3 *t56+3.92d-2*gammabb*t31*t32*t54+4.2d-3*gammabb*t104*t3*t 3576 4 32+2.52d-2*gammabb*t101*t102*t3+2.7571132928862224d-1*t10 3577 5 0)*wght+t7*(-3.5461536035682834d-1*t10*t12*t8*t9*(3.54490 3578 6 77018110403d+0*t18*t25*(-7.049892022399704d+0*rhob*t21*t8 3579 7 5*t98+8.459870426879645d+0*rhob*t21*t34*t53*t63-5.6399136 3580 8 17919763d+0*t21*t35*t63+8.459870426879645d+0*t21*t52*t53- 3581 9 1.8799712059732546d+0*rhob*t105*t21*t35)+9.97355701003579 3582 : 5d-2*t10*t20*t53*t9*t98+3.989422804014318d-1*t10*t22*t34* 3583 ; t70*t9-7.978845608028636d-1*t12*t15*t70*t9+2.659615202676 3584 < 212d-1*t10*t12*(2.1220659078919285d-1*t11*t13*t18*t38*t69 3585 = -1.0610329539459643d-1*t13*t15*t18*t34*t69-1.061032953945 3586 > 9643d-1*t11*t13*t15*t18*t40*t68+3*t18*t40*t68+2.122065907 3587 ? 8919285d-1*t11*t13*t18*t38*t68-1.0610329539459643d-1*t13* 3588 @ t15*t18*t34*t68-6.366197723675786d-1*t11*t13*t18*t40*t66- 3589 1 6.366197723675786d-1*t13*t19*t34*t66-1.0610329539459643d- 3590 2 1*t13*t15*t18*t40*t63+2.1220659078919285d-1*t13*t19*t38*t 3591 3 63+4.244131815783857d-1*t13*t18*t34*t38*t40-3.53677651315 3592 4 3214d-2*t105*t13*t15*t19+8.488263631567714d-1*t11*t13*t19 3593 5 /t106-3.536776513153214d-2*t108*t11*t13*t15*t18-3.5367765 3594 6 13153214d-2*t107*t11*t13*t15*t18+t108*t18+t107*t18)*t9-1. 3595 7 5957691216057274d+0*t12*t20*t66*t9+3.989422804014318d-1*t 3596 8 10*t22*t41*t63*t9-1.994711402007159d-1*t10*t20*t34*t35*t6 3597 9 3*t9-3.989422804014318d-1*t15*t20*t22*t63*t9-1.9947114020 3598 : 07159d-1*t10*t35*t41*t52*t9+1.994711402007159d-1*t15*t20* 3599 ; t35*t52*t9+1.5957691216057274d+0*t12*t38*t41*t9-7.9788456 3600 < 08028636d-1*t15*t22*t34*t41*t9+7.978845608028636d-1*t20*t 3601 = 22*t34*t38*t9+1.329807601338106d-1*t10*t105*t20*t22*t9+3. 3602 > 5449077018110403d+0*t18*t25*t36*t69+3.5449077018110403d+0 3603 ? *t18*t25*t36*t68+7.089815403622081d+0*t18*t25*t40*t64)-1. 3604 @ 3298076013381063d-1*t10*t23*t53*t8*t9*t98-5.3192304053524 3605 1 25d-1*t10*t22*t34*t71*t8*t9+1.063846081070485d+0*t12*t15* 3606 2 t71*t8*t9+2.12769216214097d+0*t12*t23*t66*t8*t9-5.3192304 3607 3 05352425d-1*t10*t22*t42*t63*t8*t9+2.6596152026762127d-1*t 3608 4 10*t23*t34*t35*t63*t8*t9+5.319230405352425d-1*t15*t22*t23 3609 5 *t63*t8*t9+2.6596152026762127d-1*t10*t35*t42*t52*t8*t9-2. 3610 6 6596152026762127d-1*t15*t23*t35*t52*t8*t9-2.1276921621409 3611 7 7d+0*t12*t38*t42*t8*t9+1.063846081070485d+0*t15*t22*t34*t 3612 8 42*t8*t9-1.063846081070485d+0*t22*t23*t34*t38*t8*t9-1.773 3613 9 0768017841417d-1*t10*t105*t22*t23*t8*t9)*wght+3*t43*t73*w 3614 : ght+3*t44*t72*wght+Amat3(iq,D3_RB_RB_RB) 3615 Cmat3(iq,D3_RB_RB_GBB) = t7*(-3.5461536035682834d-1*t10*t12* 3616 1 t8*t9*(2.659615202676212d-1*t10*t22*t34*t79*t9-5.31923040 3617 2 5352424d-1*t12*t15*t79*t9+2.659615202676212d-1*t10*t12*(- 3618 3 7.073553026306428d-2*t11*t13*t15*t18*t40*t78+2*t18*t40*t7 3619 4 8+1.4147106052612857d-1*t11*t13*t18*t38*t78-7.07355302630 3620 5 6428d-2*t13*t15*t18*t34*t78-7.073553026306428d-2*t13*t15* 3621 6 t18*t40*t76+1.4147106052612857d-1*t13*t19*t38*t76+1.41371 3622 7 6694115413d+1*t14*t16*t18*t39*t47*t69-5.0d-1*t17*t18*t47* 3623 8 t69-3.536776513153214d-2*t13*t15*t18*t47*t69+1.4137166941 3624 9 15413d+1*t14*t16*t18*t39*t47*t68-5.0d-1*t17*t18*t47*t68-3 3625 : .536776513153214d-2*t13*t15*t18*t47*t68-2.122065907891928 3626 ; 5d-1*t13*t19*t47*t66-5.0d-1*t18*t39*t47*t63-1.0d+0*t18*t3 3627 < 4*t39*t40*t47+1.4147106052612857d-1*t13*t18*t38*t40*t47+2 3628 = .0d+0*t10*t17*t18*t40*t47+2.0d+0*t10*t18*t34*t39*t47-3.0d 3629 > +0*t15*t17*t18*t47-3.536776513153214d-2*t110*t13*t15*t19- 3630 ? 3.536776513153214d-2*t11*t111*t13*t15*t18+t111*t18)*t9+2. 3631 @ 659615202676212d-1*t10*t22*t41*t76*t9-1.329807601338106d- 3632 1 1*t10*t20*t34*t35*t76*t9-2.659615202676212d-1*t15*t20*t22 3633 2 *t76*t9+1.329807601338106d-1*t10*t22*t47*t70*t9+1.3298076 3634 3 01338106d-1*t10*t22*t48*t63*t9-6.649038006690531d-2*t10*t 3635 4 20*t35*t47*t63*t9+9.973557010035795d-2*t10*t20*t47*t52*t5 3636 5 3*t9-6.649038006690531d-2*t10*t35*t48*t52*t9+5.3192304053 3637 6 52424d-1*t12*t38*t48*t9-2.659615202676212d-1*t15*t22*t34* 3638 7 t48*t9-1.329807601338106d-1*t10*t34*t35*t41*t47*t9-2.6596 3639 8 15202676212d-1*t15*t22*t41*t47*t9+2.659615202676212d-1*t2 3640 9 0*t22*t38*t47*t9+1.329807601338106d-1*t15*t20*t34*t35*t47 3641 : *t9+1.329807601338106d-1*t10*t110*t20*t22*t9+3.5449077018 3642 ; 110403d+0*t18*t25*(-7.049892022399704d+0*rhob*t21*t47*t52 3643 < *t85+5.639913617919763d+0*rhob*t21*t34*t53*t76-3.75994241 3644 = 1946509d+0*t21*t35*t76+2.8199568089598814d+0*rhob*t21*t47 3645 > *t53*t63+5.639913617919763d+0*t21*t34*t47*t53-1.879971205 3646 ? 9732546d+0*rhob*t110*t21*t35)+3.5449077018110403d+0*t18*t 3647 @ 25*t36*t78+3.5449077018110403d+0*t18*t25*t40*t77+5.011495 3648 1 19714857d+1*t14*t16*t18*t25*t39*t47*t64+5.01149519714857d 3649 2 +1*t14*t16*t18*t25*t36*t39*t40*t47)-3.5461536035682834d-1 3650 3 *t10*t22*t34*t8*t80*t9+7.092307207136567d-1*t12*t15*t8*t8 3651 4 0*t9-3.5461536035682834d-1*t10*t22*t42*t76*t8*t9+1.773076 3652 5 8017841417d-1*t10*t23*t34*t35*t76*t8*t9+3.546153603568283 3653 6 4d-1*t15*t22*t23*t76*t8*t9-1.7730768017841417d-1*t10*t22* 3654 7 t47*t71*t8*t9-1.7730768017841417d-1*t10*t22*t49*t63*t8*t9 3655 8 +8.865384008920708d-2*t10*t23*t35*t47*t63*t8*t9-1.3298076 3656 9 013381063d-1*t10*t23*t47*t52*t53*t8*t9+8.865384008920708d 3657 : -2*t10*t35*t49*t52*t8*t9-7.092307207136567d-1*t12*t38*t49 3658 ; *t8*t9+3.5461536035682834d-1*t15*t22*t34*t49*t8*t9+1.7730 3659 < 768017841417d-1*t10*t34*t35*t42*t47*t8*t9+3.5461536035682 3660 = 834d-1*t15*t22*t42*t47*t8*t9-3.5461536035682834d-1*t22*t2 3661 > 3*t38*t47*t8*t9-1.7730768017841417d-1*t15*t23*t34*t35*t47 3662 ? *t8*t9-1.7730768017841417d-1*t10*t110*t22*t23*t8*t9)*wght 3663 @ +2*t43*t82*wght+2*t44*t81*wght+t24*(-1.6799999999999998d- 3664 1 2*gammabb*t3*t31*t56*t75-1.1199999999999999d-2*gammabb*t2 3665 2 6*t32*t75-8.4d-3*gammabb*t3*t46*t56*t61+4.2d-3*t3*t32*t61 3666 3 -1.3066666666666665d-2*t54*t6-8.4d-3*t3*t55*t56+2.2399999 3667 4 999999998d-2*gammabb*t26*t31*t46*t56+2.52d-2*gammabb*t102 3668 5 *t3*t46*t55+1.3066666666666665d-2*gammabb*t32*t46*t54-1.1 3669 6 199999999999999d-2*t26*t31*t32+4.2d-3*gammabb*t109*t3*t32 3670 7 )*wght+t50*t73*wght+t51*t72*wght+Cmat3(iq,D3_RB_RB_GBB) 3671 Cmat3(iq,D3_RB_GBB_GBB) = t43*t97*wght+t44*t96*wght+t7*(-1.7 3672 1 730768017841417d-1*t10*t22*t34*t8*t9*t95+3.54615360356828 3673 2 34d-1*t12*t15*t8*t9*t95-3.5461536035682834d-1*t10*t12*t8* 3674 3 t9*(1.329807601338106d-1*t10*t22*t34*t9*t94-2.65961520267 3675 4 6212d-1*t12*t15*t9*t94+2.659615202676212d-1*t10*t12*t9*(1 3676 5 .9985948912206125d+2*t18*t40*t65*t84*t92*t93-7.0685834705 3677 6 77066d+0*t14*t16*t18*t34*t84*t93+1.413716694115413d+1*t14 3678 7 *t16*t18*t39*t40*t91-5.0d-1*t17*t18*t40*t91-3.53677651315 3679 8 3214d-2*t13*t15*t18*t40*t91-5.0d-1*t18*t34*t39*t91+7.0735 3680 9 53026306428d-2*t13*t19*t38*t91+1.0d+0*t10*t17*t18*t91-3.5 3681 : 34291735288533d+1*t14*t16*t18*t40*t67*t84+1.0d+0*t18*t34* 3682 ; t67*t84+1.413716694115413d+1*rhob*t16*t18*t67*t84+2.82743 3683 < 3388230826d+1*t14*t16*t18*t39*t47*t78-1.0d+0*t17*t18*t47* 3684 = t78-7.073553026306428d-2*t13*t15*t18*t47*t78-1.0d+0*t18*t 3685 > 39*t47*t76-3.536776513153214d-2*t113*t13*t15*t19-3.536776 3686 ? 513153214d-2*t11*t114*t13*t15*t18+t114*t18)+7.08483442268 3687 @ 8148d+2*t18*t25*t36*t65*t84*t92*t93+3.5449077018110403d+0 3688 1 *t18*t25*(2.8199568089598814d+0*rhob*t21*t34*t53*t91-1.87 3689 2 99712059732546d+0*t21*t35*t91-7.049892022399704d+0*rhob*t 3690 3 21*t34*t84*t85+2.8199568089598814d+0*t21*t53*t84+5.639913 3691 4 617919763d+0*rhob*t21*t47*t53*t76-1.8799712059732546d+0*r 3692 5 hob*t113*t21*t35)+1.329807601338106d-1*t10*t22*t41*t9*t91 3693 6 -6.649038006690531d-2*t10*t20*t34*t35*t9*t91-1.3298076013 3694 7 38106d-1*t15*t20*t22*t9*t91+5.01149519714857d+1*t14*t16*t 3695 8 18*t25*t36*t39*t91+9.973557010035795d-2*t10*t20*t34*t53*t 3696 9 84*t9-6.649038006690531d-2*t10*t35*t41*t84*t9+6.649038006 3697 : 690531d-2*t15*t20*t35*t84*t9+2.659615202676212d-1*t10*t22 3698 ; *t47*t79*t9+2.659615202676212d-1*t10*t22*t48*t76*t9-1.329 3699 < 807601338106d-1*t10*t20*t35*t47*t76*t9-1.329807601338106d 3700 = -1*t10*t34*t35*t47*t48*t9-2.659615202676212d-1*t15*t22*t4 3701 > 7*t48*t9+1.329807601338106d-1*t10*t113*t20*t22*t9-1.00229 3702 ? 9039429714d+2*t14*t16*t18*t25*t36*t67*t84+1.0022990394297 3703 @ 14d+2*t14*t16*t18*t25*t39*t47*t77)-1.7730768017841417d-1* 3704 1 t10*t22*t42*t8*t9*t91+8.865384008920708d-2*t10*t23*t34*t3 3705 2 5*t8*t9*t91+1.7730768017841417d-1*t15*t22*t23*t8*t9*t91-1 3706 3 .3298076013381063d-1*t10*t23*t34*t53*t8*t84*t9+8.86538400 3707 4 8920708d-2*t10*t35*t42*t8*t84*t9-8.865384008920708d-2*t15 3708 5 *t23*t35*t8*t84*t9-3.5461536035682834d-1*t10*t22*t47*t8*t 3709 6 80*t9-3.5461536035682834d-1*t10*t22*t49*t76*t8*t9+1.77307 3710 7 68017841417d-1*t10*t23*t35*t47*t76*t8*t9+1.77307680178414 3711 8 17d-1*t10*t34*t35*t47*t49*t8*t9+3.5461536035682834d-1*t15 3712 9 *t22*t47*t49*t8*t9-1.7730768017841417d-1*t10*t113*t22*t23 3713 : *t8*t9)*wght+t24*(-8.4d-3*gammabb*t3*t31*t56*t90-5.599999 3714 ; 999999999d-3*gammabb*t26*t32*t90+1.1199999999999999d-2*ga 3715 < mmabb*t26*t56*t86+2.52d-2*gammabb*t102*t3*t31*t86-1.67999 3716 = 99999999998d-2*gammabb*t3*t46*t56*t75+8.4d-3*t3*t32*t75-1 3717 > .6799999999999998d-2*t3*t31*t46*t56-1.1199999999999999d-2 3718 ? *t26*t32*t46+4.2d-3*gammabb*t112*t3*t32)*wght+2*t50*t82*w 3719 @ ght+2*t51*t81*wght+Cmat3(iq,D3_RB_GBB_GBB) 3720 Cmat3(iq,D3_GBB_GBB_GBB) = 3*t50*t97*wght+3*t51*t96*wght+t7* 3721 1 (-5.319230405352425d-1*t10*t22*t47*t8*t9*t95-3.5461536035 3722 2 682834d-1*t10*t12*t8*t9*(3.989422804014318d-1*t10*t22*t47 3723 3 *t9*t94+2.659615202676212d-1*t10*t12*t9*(5.99578467366183 3724 4 8d+2*t18*t47*t65*t91*t92*t93+1.0602875205865599d+2*t115*t 3725 5 14*t16*t18*t93-1.2990866792933983d+3*t115*t18*t65*t92/t11 3726 6 **5-1.0602875205865599d+2*t14*t16*t18*t47*t67*t91+2.82544 3727 7 69624923584d+3*rhob**6*t115*t18/(t11**6*t9**6)+1.41371669 3728 8 4115413d+1*t118*t14*t16*t18*t39-3.536776513153214d-2*t118 3729 9 *t13*t15*t19-5.0d-1*t118*t17*t18)+3.989422804014318d-1*t1 3730 : 0*t22*t48*t9*t91-1.994711402007159d-1*t10*t20*t35*t47*t9* 3731 ; t91-2.826440000853771d+2*t18*t25*t37*t47*t83*t85*t91+2.99 3732 < 8945983256911d+1*rhob*t18*t21*t25*t47*t53*t91-1.994711402 3733 = 007159d-1*t10*t35*t48*t84*t9+9.973557010035795d-2*t10*t11 3734 > 5*t20*t53*t9+1.329807601338106d-1*t10*t118*t20*t22*t9-1.3 3735 ? 319284713741864d+3*t106*t115*t18*t25/(t12**11*t9**5)-2.49 3736 @ 91216527140922d+1*rhob*t115*t18*t21*t25*t85+4.71073333475 3737 1 6285d+2*t115*t18*t25*t37*t83/t12**9-6.66432440723758d+0*r 3738 2 hob*t118*t18*t21*t25*t35)-5.319230405352425d-1*t10*t22*t4 3739 3 9*t8*t9*t91+2.6596152026762127d-1*t10*t23*t35*t47*t8*t9*t 3740 4 91+2.6596152026762127d-1*t10*t35*t49*t8*t84*t9-1.32980760 3741 5 13381063d-1*t10*t115*t23*t53*t8*t9-1.7730768017841417d-1* 3742 6 t10*t118*t22*t23*t8*t9)*wght+t24*(-2.52d-2*gammabb*t3*t46 3743 7 *t56*t90+1.26d-2*t3*t32*t90-2.52d-2*t3*t56*t86+4.2d-3*gam 3744 8 mabb*t117*t3*t32+2.52d-2*gammabb*t102*t116*t3)*wght+Cmat3 3745 9 (iq,D3_GBB_GBB_GBB) 3746 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 3747 endif ! ipol.eq.1 3748 enddo ! iq 3749 end 3750C> @} 3751