1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_x_campbe.F 5C> The nwxcm_x_campbe functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_x_campbe functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 16C> {\it t_2} &=& {\it param}\left(1\right)\\\\ 17C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 18C> {\it t_4} &=& {\it param}\left(2\right)\\\\ 19C> {\it t_5} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{\it t_3} 20C> \,{\it t_4}\,\sigma_{\alpha\alpha}} 21C> \over{\rho_\alpha^{{{8}\over{3}}}}}+1.0}}\\\\ 22C> {\it t_6} &=& -{\it param}\left(3\right)\\\\ 23C> {\it t_7} &=& {\it param}\left(4\right)\\\\ 24C> {\it t_8} &=& {\it param}\left(5\right)\\\\ 25C> {\it t_9} &=& {{1}\over{\rho_\alpha}}\\\\ 26C> {\it t_{10}} &=& 0.9305257363491\,{\it t_2}\,{\it t_1}\,{\it t_5} 27C> +0.9305257363491\,{\it t_1}\\\\ 28C> {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\ 29C> {\it t_{12}} &=& {\it t_8}^2\\\\ 30C> {\it t_{13}} &=& \rho_\alpha^2\\\\ 31C> {\it t_{14}} &=& {{1}\over{{\it t_{12}}}}\\\\ 32C> {\it t_{15}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 33C> \it t_{14}}}\over{{\it t_{10}}}} }\\\\ 34C> {\it t_{16}} &=& {{1}\over{{\it t_8}}}\\\\ 35C> {\it t_{17}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 36C> {\it t_{18}} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{ 37C> \it t_3}\,{\it t_4}\,\sigma_{\beta\beta}} 38C> \over{\rho_\beta^{{{8}\over{3}}}}}+1.0}}\\\\ 39C> {\it t_{19}} &=& {{1}\over{\rho_\beta}}\\\\ 40C> {\it t_{20}} &=& 0.9305257363491\,{\it t_2}\,{\it t_{17}}\,{ 41C> \it t_{18}}+0.9305257363491\,{\it t_{17}}\\\\ 42C> {\it t_{21}} &=& \sqrt{{\it t_{20}}}\\\\ 43C> {\it t_{22}} &=& \rho_\beta^2\\\\ 44C> {\it t_{23}} &=& e^ {- {{14.13716694115413\,{\it t_{14}}\,{ 45C> \it t_{22}}}\over{{\it t_{20}}}} }\\\\ 46C> {\it t_{24}} &=& \rho_s^{{{4}\over{3}}}\\\\ 47C> {\it t_{25}} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{ 48C> \it t_3}\,{\it t_4}\,\sigma_{ss}}\over{\rho_s^{{{8}\over{3}}}}} 49C> +1.0}}\\\\ 50C> {\it t_{26}} &=& {{1}\over{\rho_s}}\\\\ 51C> {\it t_{27}} &=& 0.9305257363491\,{\it t_2}\,{\it t_{24}}\,{ 52C> \it t_{25}}+0.9305257363491\,{\it t_{24}}\\\\ 53C> {\it t_{28}} &=& \sqrt{{\it t_{27}}}\\\\ 54C> {\it t_{29}} &=& \rho_s^2\\\\ 55C> {\it t_{30}} &=& e^ {- {{14.13716694115413\,{\it t_{14}}\,{ 56C> \it t_{29}}}\over{{\it t_{27}}}} }\\\\ 57C> f &=& 1.0\,\left(-0.9305257363491\,{\it t_2}\,{\it t_{17}}\,{ 58C> \it t_{18}}-0.9305257363491\,{\it t_{17}}\right)\,\left( 59C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_{19}}\,{ 60C> \it t_{21}}\,\left(1.77245385090552\,\mathrm{erf} 61C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_\beta}\over{{ 62C> \it t_{21}}}}\right)+0.2659615202676212\,{\it t_8}\,{ 63C> \it t_{19}}\,{\it t_{21}}\,\left({\it t_{23}} 64C> -{{0.03536776513153214\,{\it t_{12}}\,{\it t_{20}}\,\left({ 65C> \it t_{23}}-1.0\right)}\over{{\it t_{22}}}}-1.5\right)\right) 66C> +{\it t_6}+1.0\right)+1.0\,\left(-0.9305257363491\,{\it t_2} 67C> \,{\it t_1}\,{\it t_5}-0.9305257363491\,{\it t_1}\right)\,\left( 68C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_9}\,{ 69C> \it t_{11}}\,\left(1.77245385090552\,\mathrm{erf} 70C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_\alpha}\over{{ 71C> \it t_{11}}}}\right)+0.2659615202676212\,{\it t_8}\,{\it t_9} 72C> \,{\it t_{11}}\,\left({\it t_{15}}-{{0.03536776513153214\,{ 73C> \it t_{12}}\,{\it t_{10}}\,\left({\it t_{15}} 74C> -1.0\right)}\over{{\it t_{13}}}}-1.5\right)\right)+{\it t_6} 75C> +1.0\right)\\\\ 76C> g &=& 0\\\\ 77C> G &=& 1.0\,\left(-0.9305257363491\,{\it t_2}\,{\it t_{24}}\,{ 78C> \it t_{25}}-0.9305257363491\,{\it t_{24}}\right)\,\left( 79C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_{26}}\,{ 80C> \it t_{28}}\,\left(1.77245385090552\,\mathrm{erf} 81C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_s}\over{{ 82C> \it t_{28}}}}\right)+0.2659615202676212\,{\it t_8}\,{ 83C> \it t_{26}}\,{\it t_{28}}\,\left({\it t_{30}} 84C> -{{0.03536776513153214\,{\it t_{12}}\,{\it t_{27}}\,\left({ 85C> \it t_{30}}-1.0\right)}\over{{\it t_{29}}}}-1.5\right)\right) 86C> +{\it t_6}+1.0\right)\\\\ 87C> \f} 88C> 89C> Code generated with Maxima 5.34.0 [2] 90C> driven by autoxc [3]. 91C> 92C> ### References ### 93C> 94C> [1] OA Vydrov, GE Scuseria, JP Perdew, J.Chem.Phys. 126 95C> , 154109 (2007) , DOI: 96C> <a href="https://doi.org/10.1063/1.2723119 "> 97C> 10.1063/1.2723119 </a> 98C> 99C> [2] Maxima, a computer algebra system, 100C> <a href="http://maxima.sourceforge.net/"> 101C> http://maxima.sourceforge.net/</a> 102C> 103C> [3] autoxc, revision 27097 2015-05-08 104C> 105 subroutine nwxcm_x_campbe(param,tol_rho,ipol,nq,wght, 106 +rho,rgamma,fnc,Amat,Cmat) 107c $Id: $ 108#ifdef NWXC_QUAD_PREC 109 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 110 integer, parameter :: rk=selected_real_kind(30) 111#else 112 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 113 integer, parameter :: rk=selected_real_kind(15) 114#endif 115#include "nwxc_param.fh" 116 double precision param(*) !< [Input] Parameters of functional 117 double precision tol_rho !< [Input] The lower limit on the density 118 integer ipol !< [Input] The number of spin channels 119 integer nq !< [Input] The number of points 120 double precision wght !< [Input] The weight of the functional 121 double precision rho(nq,*) !< [Input] The density 122 double precision rgamma(nq,*) !< [Input] The norm of the density 123 !< gradients 124 double precision fnc(nq) !< [Output] The value of the functional 125c 126c Sampling Matrices for the XC Kernel 127c 128 double precision Amat(nq,*) !< [Output] The derivative wrt rho 129 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 130 integer iq 131 double precision tmp 132 double precision rhoa,rhob 133 double precision gammaaa,gammaab,gammabb 134 double precision taua,taub 135 double precision nwxcm_heaviside 136 external nwxcm_heaviside 137CDIR$ NOVECTOR 138 do iq = 1, nq 139 if (ipol.eq.1) then 140 rhoa = 0.5d0*rho(iq,R_T) 141 gammaaa = 0.25d0*rgamma(iq,G_TT) 142 if (rhoa.gt.tol_rho) then 143 t1 = rhoa**1.3333333333333333d+0 144 t2 = param(1) 145 t3 = param(2) 146 t4 = 1.6455307846020564d-2*gammaaa*t3/(rhoa**2.6666666666666 147 1 666d+0*t2)+1.0d+0 148 t5 = 1.0d+0-1.0d+0/t4 149 t6 = -9.305257363491d-1*t1*t2*t5-9.305257363491d-1*t1 150 t7 = param(4) 151 t8 = param(5) 152 t9 = 1/rhoa 153 t10 = 9.305257363491d-1*t1*t2*t5+9.305257363491d-1*t1 154 t11 = t10**5.0d-1 155 t12 = t8**2 156 t13 = rhoa**2 157 t14 = 1/t13 158 t15 = 1/t12 159 t16 = 1/t10 160 t17 = exp(-1.413716694115413d+1*t13*t15*t16) 161 t18 = t17-1.0d+0 162 t19 = -3.536776513153214d-2*t10*t12*t14*t18+t17-1.5d+0 163 t20 = 1/t8 164 t21 = 1/t11 165 t22 = 2.659615202676212d-1*t11*t19*t8*t9+1.7724538509055202d 166 1 +0*erf(3.759942411946509d+0*rhoa*t20*t21) 167 t23 = -3.5461536035682834d-1*t11*t22*t7*t8*t9-param(3)+1.0d+ 168 1 0 169 t24 = 5.641895835477563d-1 170 t25 = 1/t4**2 171 t26 = 1/rhoa**2.3333333333333334d+0 172 t27 = rhoa**3.333333333333333d-1 173 t28 = 1.2407009817987999d+0*t2*t27*t5-4.0832233200718415d-2* 174 1 gammaaa*t25*t26*t3+1.2407009817987999d+0*t27 175 t29 = 1/t11**3 176 t30 = 1/t10**2 177 t31 = 1.413716694115413d+1*t13*t15*t28*t30-2.827433388230826 178 1 d+1*rhoa*t15*t16 179 t32 = 1/t1 180 fnc(iq) = 2.0d+0*t23*t6*wght+fnc(iq) 181 Amat(iq,D1_RA) = (1.0d+0*t6*(-3.5461536035682834d-1*t11*t7*t 182 1 8*t9*(2.659615202676212d-1*t11*(-3.536776513153214d-2*t10 183 2 *t12*t14*t17*t31+t17*t31-3.536776513153214d-2*t12*t14*t18 184 3 *t28+7.073553026306428d-2*t10*t12*t18/rhoa**3)*t8*t9+1.32 185 4 9807601338106d-1*t19*t21*t28*t8*t9-2.659615202676212d-1*t 186 5 11*t14*t19*t8+3.5449077018110403d+0*t17*t24*(3.7599424119 187 6 46509d+0*t20*t21-1.8799712059732546d+0*rhoa*t20*t28*t29)) 188 7 -1.7730768017841417d-1*t21*t22*t28*t7*t8*t9+3.54615360356 189 8 82834d-1*t11*t14*t22*t7*t8)+1.0d+0*t23*(-1.24070098179879 190 9 99d+0*t2*t27*t5+4.0832233200718415d-2*gammaaa*t25*t26*t3- 191 : 1.2407009817987999d+0*t27))*wght+Amat(iq,D1_RA) 192 Cmat(iq,D1_GAA) = (1.0d+0*t6*(-3.5461536035682834d-1*t11*t7* 193 1 t8*t9*(2.659615202676212d-1*t11*(-7.656043725134704d-3*t1 194 2 6*t17*t25*t3*t32+2.1646953650200973d-1*rhoa**6.6666666666 195 3 66666d-1*t15*t17*t25*t3*t30-5.415543126146093d-4*t12*t18* 196 4 t25*t3/rhoa**3.3333333333333337d+0)*t8*t9+2.0362130283722 197 5 08d-3*t19*t21*t25*t26*t3*t8-1.0204471812058666d-1*t17*t20 198 6 *t24*t25*t29*t3/t27)-2.7149507044962773d-3*t21*t22*t25*t2 199 7 6*t3*t7*t8)-1.531208745026941d-2*t23*t25*t3*t32)*wght+Cma 200 8 t(iq,D1_GAA) 201 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 202 endif ! rhoa.gt.tol_rho 203 else ! ipol.eq.1 204 rhoa = rho(iq,R_A) 205 rhob = rho(iq,R_B) 206 gammaaa = rgamma(iq,G_AA) 207 gammaab = rgamma(iq,G_AB) 208 gammabb = rgamma(iq,G_BB) 209 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 210 t1 = rhoa**1.3333333333333333d+0 211 t2 = param(1) 212 t3 = 1/t2 213 t4 = param(2) 214 t5 = 1.6455307846020564d-2*gammaaa*t3*t4/rhoa**2.66666666666 215 1 66666d+0+1.0d+0 216 t6 = 1.0d+0-1.0d+0/t5 217 t7 = -9.305257363491d-1*t1*t2*t6-9.305257363491d-1*t1 218 t8 = -param(3) 219 t9 = param(4) 220 t10 = param(5) 221 t11 = 1/rhoa 222 t12 = 9.305257363491d-1*t1*t2*t6+9.305257363491d-1*t1 223 t13 = t12**5.0d-1 224 t14 = t10**2 225 t15 = rhoa**2 226 t16 = 1/t15 227 t17 = 1/t14 228 t18 = 1/t12 229 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 230 t20 = t19-1.0d+0 231 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 232 t22 = 1/t10 233 t23 = 1/t13 234 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 235 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 236 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9+t8+1.0d+0 237 t26 = rhob**1.3333333333333333d+0 238 t27 = 1.6455307846020564d-2*gammabb*t3*t4/rhob**2.6666666666 239 1 666666d+0+1.0d+0 240 t28 = 1.0d+0-1.0d+0/t27 241 t29 = -9.305257363491d-1*t2*t26*t28-9.305257363491d-1*t26 242 t30 = 1/rhob 243 t31 = 9.305257363491d-1*t2*t26*t28+9.305257363491d-1*t26 244 t32 = t31**5.0d-1 245 t33 = rhob**2 246 t34 = 1/t33 247 t35 = 1/t31 248 t36 = exp(-1.413716694115413d+1*t17*t33*t35) 249 t37 = t36-1.0d+0 250 t38 = -3.536776513153214d-2*t14*t31*t34*t37+t36-1.5d+0 251 t39 = 1/t32 252 t40 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 253 1 2*t39)+2.659615202676212d-1*t10*t30*t32*t38 254 t41 = -3.5461536035682834d-1*t10*t30*t32*t40*t9+t8+1.0d+0 255 t42 = 5.641895835477563d-1 256 t43 = 1/t5**2 257 t44 = 1/rhoa**2.3333333333333334d+0 258 t45 = rhoa**3.333333333333333d-1 259 t46 = 1.2407009817987999d+0*t2*t45*t6+1.2407009817987999d+0* 260 1 t45-4.0832233200718415d-2*gammaaa*t4*t43*t44 261 t47 = 1/t13**3 262 t48 = 1/t12**2 263 t49 = 1.413716694115413d+1*t15*t17*t46*t48-2.827433388230826 264 1 d+1*rhoa*t17*t18 265 t50 = 1/t27**2 266 t51 = 1/rhob**2.3333333333333334d+0 267 t52 = rhob**3.333333333333333d-1 268 t53 = 1.2407009817987999d+0*t2*t28*t52+1.2407009817987999d+0 269 1 *t52-4.0832233200718415d-2*gammabb*t4*t50*t51 270 t54 = 1/t32**3 271 t55 = 1/t31**2 272 t56 = 1.413716694115413d+1*t17*t33*t53*t55-2.827433388230826 273 1 d+1*rhob*t17*t35 274 t57 = 1/t1 275 t58 = 1/t26 276 fnc(iq) = (1.0d+0*t25*t7+1.0d+0*t29*t41)*wght+fnc(iq) 277 Amat(iq,D1_RA) = (1.0d+0*t7*(-3.5461536035682834d-1*t10*t11* 278 1 t13*(2.659615202676212d-1*t10*t11*t13*(-3.536776513153214 279 2 d-2*t12*t14*t16*t19*t49+t19*t49-3.536776513153214d-2*t14* 280 3 t16*t20*t46+7.073553026306428d-2*t12*t14*t20/rhoa**3)+3.5 281 4 449077018110403d+0*t19*t42*(3.759942411946509d+0*t22*t23- 282 5 1.8799712059732546d+0*rhoa*t22*t46*t47)+1.329807601338106 283 6 d-1*t10*t11*t21*t23*t46-2.659615202676212d-1*t10*t13*t16* 284 7 t21)*t9-1.7730768017841417d-1*t10*t11*t23*t24*t46*t9+3.54 285 8 61536035682834d-1*t10*t13*t16*t24*t9)+1.0d+0*t25*(-1.2407 286 9 009817987999d+0*t2*t45*t6-1.2407009817987999d+0*t45+4.083 287 : 2233200718415d-2*gammaaa*t4*t43*t44))*wght+Amat(iq,D1_RA) 288 Amat(iq,D1_RB) = (1.0d+0*t29*(-3.5461536035682834d-1*t10*t30 289 1 *t32*(2.659615202676212d-1*t10*t30*t32*(-3.53677651315321 290 2 4d-2*t14*t31*t34*t36*t56+t36*t56-3.536776513153214d-2*t14 291 3 *t34*t37*t53+7.073553026306428d-2*t14*t31*t37/rhob**3)+3. 292 4 5449077018110403d+0*t36*t42*(3.759942411946509d+0*t22*t39 293 5 -1.8799712059732546d+0*rhob*t22*t53*t54)+1.32980760133810 294 6 6d-1*t10*t30*t38*t39*t53-2.659615202676212d-1*t10*t32*t34 295 7 *t38)*t9-1.7730768017841417d-1*t10*t30*t39*t40*t53*t9+3.5 296 8 461536035682834d-1*t10*t32*t34*t40*t9)+1.0d+0*t41*(-1.240 297 9 7009817987999d+0*t2*t28*t52-1.2407009817987999d+0*t52+4.0 298 : 832233200718415d-2*gammabb*t4*t50*t51))*wght+Amat(iq,D1_R 299 ; B) 300 Cmat(iq,D1_GAA) = (1.0d+0*t7*(-3.5461536035682834d-1*t10*t11 301 1 *t13*(2.659615202676212d-1*t10*t11*t13*(-7.65604372513470 302 2 4d-3*t18*t19*t4*t43*t57+2.1646953650200973d-1*rhoa**6.666 303 3 666666666666d-1*t17*t19*t4*t43*t48-5.415543126146093d-4*t 304 4 14*t20*t4*t43/rhoa**3.3333333333333337d+0)-1.020447181205 305 5 8666d-1*t19*t22*t4*t42*t43*t47/t45+2.036213028372208d-3*t 306 6 10*t21*t23*t4*t43*t44)*t9-2.7149507044962773d-3*t10*t23*t 307 7 24*t4*t43*t44*t9)-1.531208745026941d-2*t25*t4*t43*t57)*wg 308 8 ht+Cmat(iq,D1_GAA) 309 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 310 Cmat(iq,D1_GBB) = (1.0d+0*t29*(-3.5461536035682834d-1*t10*t3 311 1 0*t32*(2.659615202676212d-1*t10*t30*t32*(-7.6560437251347 312 2 04d-3*t35*t36*t4*t50*t58+2.1646953650200973d-1*rhob**6.66 313 3 6666666666666d-1*t17*t36*t4*t50*t55-5.415543126146093d-4* 314 4 t14*t37*t4*t50/rhob**3.3333333333333337d+0)-1.02044718120 315 5 58666d-1*t22*t36*t4*t42*t50*t54/t52+2.036213028372208d-3* 316 6 t10*t38*t39*t4*t50*t51)*t9-2.7149507044962773d-3*t10*t39* 317 7 t4*t40*t50*t51*t9)-1.531208745026941d-2*t4*t41*t50*t58)*w 318 8 ght+Cmat(iq,D1_GBB) 319 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 320 t1 = rhoa**1.3333333333333333d+0 321 t2 = param(1) 322 t3 = param(2) 323 t4 = 1.6455307846020564d-2*gammaaa*t3/(rhoa**2.6666666666666 324 1 666d+0*t2)+1.0d+0 325 t5 = 1.0d+0-1.0d+0/t4 326 t6 = -9.305257363491d-1*t1*t2*t5-9.305257363491d-1*t1 327 t7 = param(4) 328 t8 = param(5) 329 t9 = 1/rhoa 330 t10 = 9.305257363491d-1*t1*t2*t5+9.305257363491d-1*t1 331 t11 = t10**5.0d-1 332 t12 = t8**2 333 t13 = rhoa**2 334 t14 = 1/t13 335 t15 = 1/t12 336 t16 = 1/t10 337 t17 = exp(-1.413716694115413d+1*t13*t15*t16) 338 t18 = t17-1.0d+0 339 t19 = -3.536776513153214d-2*t10*t12*t14*t18+t17-1.5d+0 340 t20 = 1/t8 341 t21 = 1/t11 342 t22 = 2.659615202676212d-1*t11*t19*t8*t9+1.7724538509055202d 343 1 +0*erf(3.759942411946509d+0*rhoa*t20*t21) 344 t23 = -3.5461536035682834d-1*t11*t22*t7*t8*t9-param(3)+1.0d+ 345 1 0 346 t24 = 5.641895835477563d-1 347 t25 = 1/t4**2 348 t26 = 1/rhoa**2.3333333333333334d+0 349 t27 = rhoa**3.333333333333333d-1 350 t28 = 1.2407009817987999d+0*t2*t27*t5-4.0832233200718415d-2* 351 1 gammaaa*t25*t26*t3+1.2407009817987999d+0*t27 352 t29 = 1/t11**3 353 t30 = 1/t10**2 354 t31 = 1.413716694115413d+1*t13*t15*t28*t30-2.827433388230826 355 1 d+1*rhoa*t15*t16 356 t32 = 1/t1 357 fnc(iq) = 1.0d+0*t23*t6*wght+fnc(iq) 358 Amat(iq,D1_RA) = 1.0d+0*t6*(-3.5461536035682834d-1*t11*t7*t8 359 1 *t9*(2.659615202676212d-1*t11*(-3.536776513153214d-2*t10* 360 2 t12*t14*t17*t31+t17*t31-3.536776513153214d-2*t12*t14*t18* 361 3 t28+7.073553026306428d-2*t10*t12*t18/rhoa**3)*t8*t9+1.329 362 4 807601338106d-1*t19*t21*t28*t8*t9-2.659615202676212d-1*t1 363 5 1*t14*t19*t8+3.5449077018110403d+0*t17*t24*(3.75994241194 364 6 6509d+0*t20*t21-1.8799712059732546d+0*rhoa*t20*t28*t29))- 365 7 1.7730768017841417d-1*t21*t22*t28*t7*t8*t9+3.546153603568 366 8 2834d-1*t11*t14*t22*t7*t8)*wght+1.0d+0*t23*(-1.2407009817 367 9 987999d+0*t2*t27*t5+4.0832233200718415d-2*gammaaa*t25*t26 368 : *t3-1.2407009817987999d+0*t27)*wght+Amat(iq,D1_RA) 369 Cmat(iq,D1_GAA) = 1.0d+0*t6*(-3.5461536035682834d-1*t11*t7*t 370 1 8*t9*(2.659615202676212d-1*t11*(-7.656043725134704d-3*t16 371 2 *t17*t25*t3*t32+2.1646953650200973d-1*rhoa**6.66666666666 372 3 6666d-1*t15*t17*t25*t3*t30-5.415543126146093d-4*t12*t18*t 373 4 25*t3/rhoa**3.3333333333333337d+0)*t8*t9+2.03621302837220 374 5 8d-3*t19*t21*t25*t26*t3*t8-1.0204471812058666d-1*t17*t20* 375 6 t24*t25*t29*t3/t27)-2.7149507044962773d-3*t21*t22*t25*t26 376 7 *t3*t7*t8)*wght-1.531208745026941d-2*t23*t25*t3*t32*wght+ 377 8 Cmat(iq,D1_GAA) 378 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 379 t1 = rhob**1.3333333333333333d+0 380 t2 = param(1) 381 t3 = param(2) 382 t4 = 1.6455307846020564d-2*gammabb*t3/(rhob**2.6666666666666 383 1 666d+0*t2)+1.0d+0 384 t5 = 1.0d+0-1.0d+0/t4 385 t6 = -9.305257363491d-1*t1*t2*t5-9.305257363491d-1*t1 386 t7 = param(4) 387 t8 = param(5) 388 t9 = 1/rhob 389 t10 = 9.305257363491d-1*t1*t2*t5+9.305257363491d-1*t1 390 t11 = t10**5.0d-1 391 t12 = t8**2 392 t13 = rhob**2 393 t14 = 1/t13 394 t15 = 1/t12 395 t16 = 1/t10 396 t17 = exp(-1.413716694115413d+1*t13*t15*t16) 397 t18 = t17-1.0d+0 398 t19 = -3.536776513153214d-2*t10*t12*t14*t18+t17-1.5d+0 399 t20 = 1/t8 400 t21 = 1/t11 401 t22 = 2.659615202676212d-1*t11*t19*t8*t9+1.7724538509055202d 402 1 +0*erf(3.759942411946509d+0*rhob*t20*t21) 403 t23 = -3.5461536035682834d-1*t11*t22*t7*t8*t9-param(3)+1.0d+ 404 1 0 405 t24 = 5.641895835477563d-1 406 t25 = 1/t4**2 407 t26 = 1/rhob**2.3333333333333334d+0 408 t27 = rhob**3.333333333333333d-1 409 t28 = 1.2407009817987999d+0*t2*t27*t5-4.0832233200718415d-2* 410 1 gammabb*t25*t26*t3+1.2407009817987999d+0*t27 411 t29 = 1/t11**3 412 t30 = 1/t10**2 413 t31 = 1.413716694115413d+1*t13*t15*t28*t30-2.827433388230826 414 1 d+1*rhob*t15*t16 415 t32 = 1/t1 416 fnc(iq) = 1.0d+0*t23*t6*wght+fnc(iq) 417 Amat(iq,D1_RB) = 1.0d+0*t6*(-3.5461536035682834d-1*t11*t7*t8 418 1 *t9*(2.659615202676212d-1*t11*(-3.536776513153214d-2*t10* 419 2 t12*t14*t17*t31+t17*t31-3.536776513153214d-2*t12*t14*t18* 420 3 t28+7.073553026306428d-2*t10*t12*t18/rhob**3)*t8*t9+1.329 421 4 807601338106d-1*t19*t21*t28*t8*t9-2.659615202676212d-1*t1 422 5 1*t14*t19*t8+3.5449077018110403d+0*t17*t24*(3.75994241194 423 6 6509d+0*t20*t21-1.8799712059732546d+0*rhob*t20*t28*t29))- 424 7 1.7730768017841417d-1*t21*t22*t28*t7*t8*t9+3.546153603568 425 8 2834d-1*t11*t14*t22*t7*t8)*wght+1.0d+0*t23*(-1.2407009817 426 9 987999d+0*t2*t27*t5+4.0832233200718415d-2*gammabb*t25*t26 427 : *t3-1.2407009817987999d+0*t27)*wght+Amat(iq,D1_RB) 428 Cmat(iq,D1_GBB) = 1.0d+0*t6*(-3.5461536035682834d-1*t11*t7*t 429 1 8*t9*(2.659615202676212d-1*t11*(-7.656043725134704d-3*t16 430 2 *t17*t25*t3*t32+2.1646953650200973d-1*rhob**6.66666666666 431 3 6666d-1*t15*t17*t25*t3*t30-5.415543126146093d-4*t12*t18*t 432 4 25*t3/rhob**3.3333333333333337d+0)*t8*t9+2.03621302837220 433 5 8d-3*t19*t21*t25*t26*t3*t8-1.0204471812058666d-1*t17*t20* 434 6 t24*t25*t29*t3/t27)-2.7149507044962773d-3*t21*t22*t25*t26 435 7 *t3*t7*t8)*wght-1.531208745026941d-2*t23*t25*t3*t32*wght+ 436 8 Cmat(iq,D1_GBB) 437 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 438 endif ! ipol.eq.1 439 enddo ! iq 440 end 441C> 442C> \brief Evaluate the nwxcm_x_campbe functional [1] 443C> 444C> \f{eqnarray*}{ 445C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 446C> {\it t_2} &=& {\it param}\left(1\right)\\\\ 447C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 448C> {\it t_4} &=& {\it param}\left(2\right)\\\\ 449C> {\it t_5} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{\it t_3} 450C> \,{\it t_4}\,\sigma_{\alpha\alpha}} 451C> \over{\rho_\alpha^{{{8}\over{3}}}}}+1.0}}\\\\ 452C> {\it t_6} &=& -{\it param}\left(3\right)\\\\ 453C> {\it t_7} &=& {\it param}\left(4\right)\\\\ 454C> {\it t_8} &=& {\it param}\left(5\right)\\\\ 455C> {\it t_9} &=& {{1}\over{\rho_\alpha}}\\\\ 456C> {\it t_{10}} &=& 0.9305257363491\,{\it t_2}\,{\it t_1}\,{\it t_5} 457C> +0.9305257363491\,{\it t_1}\\\\ 458C> {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\ 459C> {\it t_{12}} &=& {\it t_8}^2\\\\ 460C> {\it t_{13}} &=& \rho_\alpha^2\\\\ 461C> {\it t_{14}} &=& {{1}\over{{\it t_{12}}}}\\\\ 462C> {\it t_{15}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 463C> \it t_{14}}}\over{{\it t_{10}}}} }\\\\ 464C> {\it t_{16}} &=& {{1}\over{{\it t_8}}}\\\\ 465C> {\it t_{17}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 466C> {\it t_{18}} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{ 467C> \it t_3}\,{\it t_4}\,\sigma_{\beta\beta}} 468C> \over{\rho_\beta^{{{8}\over{3}}}}}+1.0}}\\\\ 469C> {\it t_{19}} &=& {{1}\over{\rho_\beta}}\\\\ 470C> {\it t_{20}} &=& 0.9305257363491\,{\it t_2}\,{\it t_{17}}\,{ 471C> \it t_{18}}+0.9305257363491\,{\it t_{17}}\\\\ 472C> {\it t_{21}} &=& \sqrt{{\it t_{20}}}\\\\ 473C> {\it t_{22}} &=& \rho_\beta^2\\\\ 474C> {\it t_{23}} &=& e^ {- {{14.13716694115413\,{\it t_{14}}\,{ 475C> \it t_{22}}}\over{{\it t_{20}}}} }\\\\ 476C> {\it t_{24}} &=& \rho_s^{{{4}\over{3}}}\\\\ 477C> {\it t_{25}} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{ 478C> \it t_3}\,{\it t_4}\,\sigma_{ss}}\over{\rho_s^{{{8}\over{3}}}}} 479C> +1.0}}\\\\ 480C> {\it t_{26}} &=& {{1}\over{\rho_s}}\\\\ 481C> {\it t_{27}} &=& 0.9305257363491\,{\it t_2}\,{\it t_{24}}\,{ 482C> \it t_{25}}+0.9305257363491\,{\it t_{24}}\\\\ 483C> {\it t_{28}} &=& \sqrt{{\it t_{27}}}\\\\ 484C> {\it t_{29}} &=& \rho_s^2\\\\ 485C> {\it t_{30}} &=& e^ {- {{14.13716694115413\,{\it t_{14}}\,{ 486C> \it t_{29}}}\over{{\it t_{27}}}} }\\\\ 487C> f &=& 1.0\,\left(-0.9305257363491\,{\it t_2}\,{\it t_{17}}\,{ 488C> \it t_{18}}-0.9305257363491\,{\it t_{17}}\right)\,\left( 489C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_{19}}\,{ 490C> \it t_{21}}\,\left(1.77245385090552\,\mathrm{erf} 491C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_\beta}\over{{ 492C> \it t_{21}}}}\right)+0.2659615202676212\,{\it t_8}\,{ 493C> \it t_{19}}\,{\it t_{21}}\,\left({\it t_{23}} 494C> -{{0.03536776513153214\,{\it t_{12}}\,{\it t_{20}}\,\left({ 495C> \it t_{23}}-1.0\right)}\over{{\it t_{22}}}}-1.5\right)\right) 496C> +{\it t_6}+1.0\right)+1.0\,\left(-0.9305257363491\,{\it t_2} 497C> \,{\it t_1}\,{\it t_5}-0.9305257363491\,{\it t_1}\right)\,\left( 498C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_9}\,{ 499C> \it t_{11}}\,\left(1.77245385090552\,\mathrm{erf} 500C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_\alpha}\over{{ 501C> \it t_{11}}}}\right)+0.2659615202676212\,{\it t_8}\,{\it t_9} 502C> \,{\it t_{11}}\,\left({\it t_{15}}-{{0.03536776513153214\,{ 503C> \it t_{12}}\,{\it t_{10}}\,\left({\it t_{15}} 504C> -1.0\right)}\over{{\it t_{13}}}}-1.5\right)\right)+{\it t_6} 505C> +1.0\right)\\\\ 506C> g &=& 0\\\\ 507C> G &=& 1.0\,\left(-0.9305257363491\,{\it t_2}\,{\it t_{24}}\,{ 508C> \it t_{25}}-0.9305257363491\,{\it t_{24}}\right)\,\left( 509C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_{26}}\,{ 510C> \it t_{28}}\,\left(1.77245385090552\,\mathrm{erf} 511C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_s}\over{{ 512C> \it t_{28}}}}\right)+0.2659615202676212\,{\it t_8}\,{ 513C> \it t_{26}}\,{\it t_{28}}\,\left({\it t_{30}} 514C> -{{0.03536776513153214\,{\it t_{12}}\,{\it t_{27}}\,\left({ 515C> \it t_{30}}-1.0\right)}\over{{\it t_{29}}}}-1.5\right)\right) 516C> +{\it t_6}+1.0\right)\\\\ 517C> \f} 518C> 519C> Code generated with Maxima 5.34.0 [2] 520C> driven by autoxc [3]. 521C> 522C> ### References ### 523C> 524C> [1] OA Vydrov, GE Scuseria, JP Perdew, J.Chem.Phys. 126 525C> , 154109 (2007) , DOI: 526C> <a href="https://doi.org/10.1063/1.2723119 "> 527C> 10.1063/1.2723119 </a> 528C> 529C> [2] Maxima, a computer algebra system, 530C> <a href="http://maxima.sourceforge.net/"> 531C> http://maxima.sourceforge.net/</a> 532C> 533C> [3] autoxc, revision 27097 2015-05-08 534C> 535 subroutine nwxcm_x_campbe_d2(param,tol_rho,ipol,nq,wght, 536 +rho,rgamma,fnc,Amat,Amat2,Cmat,Cmat2) 537c $Id: $ 538#ifdef NWXC_QUAD_PREC 539 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 540 integer, parameter :: rk=selected_real_kind(30) 541#else 542 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 543 integer, parameter :: rk=selected_real_kind(15) 544#endif 545#include "nwxc_param.fh" 546 double precision param(*) !< [Input] Parameters of functional 547 double precision tol_rho !< [Input] The lower limit on the density 548 integer ipol !< [Input] The number of spin channels 549 integer nq !< [Input] The number of points 550 double precision wght !< [Input] The weight of the functional 551 double precision rho(nq,*) !< [Input] The density 552 double precision rgamma(nq,*) !< [Input] The norm of the density 553 !< gradients 554 double precision fnc(nq) !< [Output] The value of the functional 555c 556c Sampling Matrices for the XC Kernel 557c 558 double precision Amat(nq,*) !< [Output] The derivative wrt rho 559 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 560c 561c Sampling Matrices for the XC Kernel 562c 563 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 564 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 565 !< and possibly rho 566 integer iq 567 double precision tmp 568 double precision rhoa,rhob 569 double precision gammaaa,gammaab,gammabb 570 double precision taua,taub 571 double precision nwxcm_heaviside 572 external nwxcm_heaviside 573CDIR$ NOVECTOR 574 do iq = 1, nq 575 if (ipol.eq.1) then 576 rhoa = 0.5d0*rho(iq,R_T) 577 gammaaa = 0.25d0*rgamma(iq,G_TT) 578 if (rhoa.gt.tol_rho) then 579 t1 = rhoa**1.3333333333333333d+0 580 t2 = param(1) 581 t3 = 1/t2 582 t4 = param(2) 583 t5 = 1/rhoa**2.6666666666666666d+0 584 t6 = 1.6455307846020564d-2*gammaaa*t3*t4*t5+1.0d+0 585 t7 = 1.0d+0-1.0d+0/t6 586 t8 = -9.305257363491d-1*t1*t2*t7-9.305257363491d-1*t1 587 t9 = param(4) 588 t10 = param(5) 589 t11 = 1/rhoa 590 t12 = 9.305257363491d-1*t1*t2*t7+9.305257363491d-1*t1 591 t13 = t12**5.0d-1 592 t14 = t10**2 593 t15 = rhoa**2 594 t16 = 1/t15 595 t17 = 1/t14 596 t18 = 1/t12 597 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 598 t20 = t19-1.0d+0 599 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 600 t22 = 1/t10 601 t23 = 1/t13 602 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 603 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 604 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9-param(3)+1.0 605 1 d+0 606 t26 = 5.641895835477563d-1 607 t27 = 1/t6**2 608 t28 = 1/rhoa**2.3333333333333334d+0 609 t29 = rhoa**3.333333333333333d-1 610 t30 = 1.2407009817987999d+0*t2*t29*t7-4.0832233200718415d-2* 611 1 gammaaa*t27*t28*t4+1.2407009817987999d+0*t29 612 t31 = 1/t13**3 613 t32 = 3.759942411946509d+0*t22*t23-1.8799712059732546d+0*rho 614 1 a*t22*t30*t31 615 t33 = 1/rhoa**3 616 t34 = 1/t12**2 617 t35 = 1.413716694115413d+1*t15*t17*t30*t34-2.827433388230826 618 1 d+1*rhoa*t17*t18 619 t36 = -3.536776513153214d-2*t12*t14*t16*t19*t35+t19*t35+7.07 620 1 3553026306428d-2*t12*t14*t20*t33-3.536776513153214d-2*t14 621 2 *t16*t20*t30 622 t37 = 2.659615202676212d-1*t10*t11*t13*t36+3.544907701811040 623 1 3d+0*t19*t26*t32+1.329807601338106d-1*t10*t11*t21*t23*t30 624 2 -2.659615202676212d-1*t10*t13*t16*t21 625 t38 = -3.5461536035682834d-1*t10*t11*t13*t37*t9-1.7730768017 626 1 841417d-1*t10*t11*t23*t24*t30*t9+3.5461536035682834d-1*t1 627 2 0*t13*t16*t24*t9 628 t39 = -1.2407009817987999d+0*t2*t29*t7+4.0832233200718415d-2 629 1 *gammaaa*t27*t28*t4-1.2407009817987999d+0*t29 630 t40 = 1/t29 631 t41 = 1/rhoa**3.3333333333333337d+0 632 t42 = rhoa**6.666666666666666d-1 633 t43 = 1/t1 634 t44 = -7.656043725134704d-3*t18*t19*t27*t4*t43+2.16469536502 635 1 00973d-1*t17*t19*t27*t34*t4*t42-5.415543126146093d-4*t14* 636 2 t20*t27*t4*t41 637 t45 = 2.659615202676212d-1*t10*t11*t13*t44-1.020447181205866 638 1 6d-1*t19*t22*t26*t27*t31*t4*t40+2.036213028372208d-3*t10* 639 2 t21*t23*t27*t28*t4 640 t46 = -3.5461536035682834d-1*t10*t11*t13*t45*t9-2.7149507044 641 1 962773d-3*t10*t23*t24*t27*t28*t4*t9 642 t47 = t30**2 643 t48 = 1/t13**5 644 t49 = t4**2 645 t50 = gammaaa**2 646 t51 = 1/t6**3 647 t52 = 1/rhoa**6 648 t53 = 1/t42 649 t54 = 4.135669939329333d-1*t2*t53*t7+4.135669939329333d-1*t5 650 1 3-3.5835038259110563d-3*t3*t49*t50*t51*t52+4.083223320071 651 2 8415d-2*gammaaa*t27*t4*t41 652 t55 = 1/rhoa**4 653 t56 = 1/t12**3 654 t57 = -2.827433388230826d+1*t15*t17*t47*t56+1.41371669411541 655 1 3d+1*t15*t17*t34*t54+5.654866776461652d+1*rhoa*t17*t30*t3 656 2 4-2.827433388230826d+1*t17*t18 657 t58 = t35**2 658 t59 = 1/rhoa**5 659 t60 = 1.3438139347166464d-3*gammaaa*t3*t49*t51*t59-2.0416116 660 1 600359205d-2*t27*t28*t4 661 t61 = 1.413716694115413d+1*t15*t17*t34*t60-4.329390730040194 662 1 6d-1*t17*t27*t30*t4*t42*t56+4.3293907300401946d-1*t17*t27 663 2 *t34*t4*t40 664 t62 = 1/t6**4 665 t63 = 1/rhoa**3.6666666666666664d+0 666 fnc(iq) = 2.0d+0*t25*t8*wght+fnc(iq) 667 Amat(iq,D1_RA) = (1.0d+0*t38*t8+1.0d+0*t25*t39)*wght+Amat(iq 668 1 ,D1_RA) 669 Cmat(iq,D1_GAA) = (1.0d+0*t46*t8-1.531208745026941d-2*t25*t2 670 1 7*t4*t43)*wght+Cmat(iq,D1_GAA) 671 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 672 Amat2(iq,D2_RA_RA) = (1.0d+0*t8*(-3.5461536035682834d-1*t10* 673 1 t11*t13*(2.659615202676212d-1*t10*t11*t13*(-3.53677651315 674 2 3214d-2*t12*t14*t16*t19*t58+t19*t58-3.536776513153214d-2* 675 3 t12*t14*t16*t19*t57+t19*t57-2.1220659078919285d-1*t12*t14 676 4 *t20*t55-3.536776513153214d-2*t14*t16*t20*t54+1.414710605 677 5 2612857d-1*t12*t14*t19*t33*t35-7.073553026306428d-2*t14*t 678 6 16*t19*t30*t35+1.4147106052612857d-1*t14*t20*t30*t33)+3.5 679 7 449077018110403d+0*t19*t26*(-1.8799712059732546d+0*rhoa*t 680 8 22*t31*t54+2.8199568089598814d+0*rhoa*t22*t47*t48-3.75994 681 9 2411946509d+0*t22*t30*t31)+1.329807601338106d-1*t10*t11*t 682 : 21*t23*t54-6.649038006690531d-2*t10*t11*t21*t31*t47+2.659 683 ; 615202676212d-1*t10*t11*t23*t30*t36-5.319230405352424d-1* 684 < t10*t13*t16*t36+3.5449077018110403d+0*t19*t26*t32*t35+5.3 685 = 19230405352424d-1*t10*t13*t21*t33-2.659615202676212d-1*t1 686 > 0*t16*t21*t23*t30)*t9-1.7730768017841417d-1*t10*t11*t23*t 687 ? 24*t54*t9+8.865384008920708d-2*t10*t11*t24*t31*t47*t9-3.5 688 @ 461536035682834d-1*t10*t11*t23*t30*t37*t9+7.0923072071365 689 1 67d-1*t10*t13*t16*t37*t9-7.092307207136567d-1*t10*t13*t24 690 2 *t33*t9+3.5461536035682834d-1*t10*t16*t23*t24*t30*t9)+1.0 691 3 d+0*t25*(-4.135669939329333d-1*t2*t53*t7-4.13566993932933 692 4 3d-1*t53+3.5835038259110563d-3*t3*t49*t50*t51*t52-4.08322 693 5 33200718415d-2*gammaaa*t27*t4*t41)+2.0d+0*t38*t39)*wght+A 694 6 mat2(iq,D2_RA_RA) 695 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 696 Cmat2(iq,D2_RA_GAA) = (1.0d+0*t8*(-3.5461536035682834d-1*t10 697 1 *t11*t13*(2.659615202676212d-1*t10*t11*t13*(-3.5367765131 698 2 53214d-2*t12*t14*t16*t19*t61+t19*t61-3.536776513153214d-2 699 3 *t14*t16*t20*t60-7.656043725134704d-3*t18*t19*t27*t35*t4* 700 4 t43-7.656043725134704d-3*t19*t27*t30*t34*t4*t43+2.1646953 701 5 650200973d-1*t17*t19*t27*t34*t35*t4*t42-5.415543126146093 702 6 d-4*t14*t19*t27*t35*t4*t41+1.5312087450269407d-2*t18*t19* 703 7 t27*t28*t4+1.0831086252292187d-3*t14*t20*t27*t4/rhoa**4.3 704 8 33333333333333d+0)+3.5449077018110403d+0*t19*t26*(-1.8799 705 9 712059732546d+0*rhoa*t22*t31*t60+4.317942526477637d-2*t22 706 : *t27*t30*t4*t40*t48-2.878628350985092d-2*t22*t27*t31*t4*t 707 ; 43)+1.329807601338106d-1*t10*t11*t21*t23*t60+1.3298076013 708 < 38106d-1*t10*t11*t23*t30*t44-2.659615202676212d-1*t10*t13 709 = *t16*t44+7.673645271534404d-1*t17*t19*t26*t27*t32*t34*t4* 710 > t42-2.036213028372208d-3*t10*t21*t23*t27*t4*t41+2.0362130 711 ? 28372208d-3*t10*t23*t27*t28*t36*t4-1.018106514186104d-3*t 712 @ 10*t21*t27*t28*t30*t31*t4)*t9-1.7730768017841417d-1*t10*t 713 1 11*t23*t24*t60*t9-1.7730768017841417d-1*t10*t11*t23*t30*t 714 2 45*t9+3.5461536035682834d-1*t10*t13*t16*t45*t9+2.71495070 715 3 44962773d-3*t10*t23*t24*t27*t4*t41*t9-2.7149507044962773d 716 4 -3*t10*t23*t27*t28*t37*t4*t9+1.3574753522481386d-3*t10*t2 717 5 4*t27*t28*t30*t31*t4*t9)+1.0d+0*t25*(2.0416116600359205d- 718 6 2*t27*t28*t4-1.3438139347166464d-3*gammaaa*t3*t49*t51*t59 719 7 )+1.0d+0*t39*t46-1.531208745026941d-2*t27*t38*t4*t43)*wgh 720 8 t+Cmat2(iq,D2_RA_GAA) 721 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 722 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 723 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t8*(-3.5461536035682834d-1*t1 724 1 0*t11*t13*(-1.5589335978906577d-5*t10*t21*t31*t49*t62*t63 725 2 +2.659615202676212d-1*t10*t11*t13*(-8.286501183095146d-3* 726 3 t17*t19*t49*t53*t56*t62-1.3552527156068805d-20*t19*t34*t4 727 4 9*t5*t62+4.685906023339492d-2*t1*t19*t49*t62/(t10**4*t12* 728 5 *4)+2.519651127593712d-4*t18*t19*t3*t49*t51*t55+1.7822885 729 6 85882691d-5*t14*t20*t3*t49*t51*t52-7.124145724851911d-3*t 730 7 16*t17*t19*t3*t34*t49*t51)+2.3437764715507717d-3*t19*t22* 731 8 t26*t48*t49*t62/rhoa**1.6666666666666669d+0-2.20895728340 732 9 41626d-2*t19*t26*t29*t49*t62/(t10**3*t13**7)-6.7013024443 733 : 88497d-5*t10*t21*t23*t3*t49*t51*t59+3.3583545014692934d-3 734 ; *t19*t22*t26*t3*t31*t33*t49*t51+4.072426056744416d-3*t10* 735 < t23*t27*t28*t4*t44)*t9+2.078578130520877d-5*t10*t24*t31*t 736 = 49*t62*t63*t9+8.935069925851332d-5*t10*t23*t24*t3*t49*t51 737 > *t59*t9-5.429901408992555d-3*t10*t23*t27*t28*t4*t45*t9)+5 738 ? .039302255187424d-4*t25*t3*t49*t51*t55-3.062417490053882d 739 @ -2*t27*t4*t43*t46)*wght+Cmat2(iq,D2_GAA_GAA) 740 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 741 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 742 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 743 endif ! rhoa.gt.tol_rho 744 else ! ipol.eq.1 745 rhoa = rho(iq,R_A) 746 rhob = rho(iq,R_B) 747 gammaaa = rgamma(iq,G_AA) 748 gammaab = rgamma(iq,G_AB) 749 gammabb = rgamma(iq,G_BB) 750 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 751 t1 = rhoa**1.3333333333333333d+0 752 t2 = param(1) 753 t3 = 1/t2 754 t4 = param(2) 755 t5 = 1/rhoa**2.6666666666666666d+0 756 t6 = 1.6455307846020564d-2*gammaaa*t3*t4*t5+1.0d+0 757 t7 = 1.0d+0-1.0d+0/t6 758 t8 = -9.305257363491d-1*t1*t2*t7-9.305257363491d-1*t1 759 t9 = -param(3) 760 t10 = param(4) 761 t11 = param(5) 762 t12 = 1/rhoa 763 t13 = 9.305257363491d-1*t1*t2*t7+9.305257363491d-1*t1 764 t14 = t13**5.0d-1 765 t15 = t11**2 766 t16 = rhoa**2 767 t17 = 1/t16 768 t18 = 1/t15 769 t19 = 1/t13 770 t20 = exp(-1.413716694115413d+1*t16*t18*t19) 771 t21 = t20-1.0d+0 772 t22 = -3.536776513153214d-2*t13*t15*t17*t21+t20-1.5d+0 773 t23 = 1/t11 774 t24 = 1/t14 775 t25 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 776 1 3*t24)+2.659615202676212d-1*t11*t12*t14*t22 777 t26 = t9-3.5461536035682834d-1*t10*t11*t12*t14*t25+1.0d+0 778 t27 = rhob**1.3333333333333333d+0 779 t28 = 1/rhob**2.6666666666666666d+0 780 t29 = 1.6455307846020564d-2*gammabb*t28*t3*t4+1.0d+0 781 t30 = 1.0d+0-1.0d+0/t29 782 t31 = -9.305257363491d-1*t2*t27*t30-9.305257363491d-1*t27 783 t32 = 1/rhob 784 t33 = 9.305257363491d-1*t2*t27*t30+9.305257363491d-1*t27 785 t34 = t33**5.0d-1 786 t35 = rhob**2 787 t36 = 1/t35 788 t37 = 1/t33 789 t38 = exp(-1.413716694115413d+1*t18*t35*t37) 790 t39 = t38-1.0d+0 791 t40 = -3.536776513153214d-2*t15*t33*t36*t39+t38-1.5d+0 792 t41 = 1/t34 793 t42 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 794 1 3*t41)+2.659615202676212d-1*t11*t32*t34*t40 795 t43 = t9-3.5461536035682834d-1*t10*t11*t32*t34*t42+1.0d+0 796 t44 = 5.641895835477563d-1 797 t45 = 1/t6**2 798 t46 = 1/rhoa**2.3333333333333334d+0 799 t47 = rhoa**3.333333333333333d-1 800 t48 = 1.2407009817987999d+0*t2*t47*t7+1.2407009817987999d+0* 801 1 t47-4.0832233200718415d-2*gammaaa*t4*t45*t46 802 t49 = 1/t14**3 803 t50 = 3.759942411946509d+0*t23*t24-1.8799712059732546d+0*rho 804 1 a*t23*t48*t49 805 t51 = 1/rhoa**3 806 t52 = 1/t13**2 807 t53 = 1.413716694115413d+1*t16*t18*t48*t52-2.827433388230826 808 1 d+1*rhoa*t18*t19 809 t54 = -3.536776513153214d-2*t13*t15*t17*t20*t53+t20*t53+7.07 810 1 3553026306428d-2*t13*t15*t21*t51-3.536776513153214d-2*t15 811 2 *t17*t21*t48 812 t55 = 2.659615202676212d-1*t11*t12*t14*t54+3.544907701811040 813 1 3d+0*t20*t44*t50+1.329807601338106d-1*t11*t12*t22*t24*t48 814 2 -2.659615202676212d-1*t11*t14*t17*t22 815 t56 = -3.5461536035682834d-1*t10*t11*t12*t14*t55-1.773076801 816 1 7841417d-1*t10*t11*t12*t24*t25*t48+3.5461536035682834d-1* 817 2 t10*t11*t14*t17*t25 818 t57 = -1.2407009817987999d+0*t2*t47*t7-1.2407009817987999d+0 819 1 *t47+4.0832233200718415d-2*gammaaa*t4*t45*t46 820 t58 = 1/t29**2 821 t59 = 1/rhob**2.3333333333333334d+0 822 t60 = rhob**3.333333333333333d-1 823 t61 = 1.2407009817987999d+0*t2*t30*t60+1.2407009817987999d+0 824 1 *t60-4.0832233200718415d-2*gammabb*t4*t58*t59 825 t62 = 1/t34**3 826 t63 = 3.759942411946509d+0*t23*t41-1.8799712059732546d+0*rho 827 1 b*t23*t61*t62 828 t64 = 1/rhob**3 829 t65 = 1/t33**2 830 t66 = 1.413716694115413d+1*t18*t35*t61*t65-2.827433388230826 831 1 d+1*rhob*t18*t37 832 t67 = -3.536776513153214d-2*t15*t33*t36*t38*t66+t38*t66+7.07 833 1 3553026306428d-2*t15*t33*t39*t64-3.536776513153214d-2*t15 834 2 *t36*t39*t61 835 t68 = 2.659615202676212d-1*t11*t32*t34*t67+3.544907701811040 836 1 3d+0*t38*t44*t63+1.329807601338106d-1*t11*t32*t40*t41*t61 837 2 -2.659615202676212d-1*t11*t34*t36*t40 838 t69 = -3.5461536035682834d-1*t10*t11*t32*t34*t68-1.773076801 839 1 7841417d-1*t10*t11*t32*t41*t42*t61+3.5461536035682834d-1* 840 2 t10*t11*t34*t36*t42 841 t70 = -1.2407009817987999d+0*t2*t30*t60-1.2407009817987999d+ 842 1 0*t60+4.0832233200718415d-2*gammabb*t4*t58*t59 843 t71 = 1/t47 844 t72 = 1/rhoa**3.3333333333333337d+0 845 t73 = rhoa**6.666666666666666d-1 846 t74 = 1/t1 847 t75 = -7.656043725134704d-3*t19*t20*t4*t45*t74+2.16469536502 848 1 00973d-1*t18*t20*t4*t45*t52*t73-5.415543126146093d-4*t15* 849 2 t21*t4*t45*t72 850 t76 = 2.659615202676212d-1*t11*t12*t14*t75-1.020447181205866 851 1 6d-1*t20*t23*t4*t44*t45*t49*t71+2.036213028372208d-3*t11* 852 2 t22*t24*t4*t45*t46 853 t77 = -3.5461536035682834d-1*t10*t11*t12*t14*t76-2.714950704 854 1 4962773d-3*t10*t11*t24*t25*t4*t45*t46 855 t78 = 1/t60 856 t79 = 1/rhob**3.3333333333333337d+0 857 t80 = rhob**6.666666666666666d-1 858 t81 = 1/t27 859 t82 = -7.656043725134704d-3*t37*t38*t4*t58*t81+2.16469536502 860 1 00973d-1*t18*t38*t4*t58*t65*t80-5.415543126146093d-4*t15* 861 2 t39*t4*t58*t79 862 t83 = 2.659615202676212d-1*t11*t32*t34*t82-1.020447181205866 863 1 6d-1*t23*t38*t4*t44*t58*t62*t78+2.036213028372208d-3*t11* 864 2 t4*t40*t41*t58*t59 865 t84 = -3.5461536035682834d-1*t10*t11*t32*t34*t83-2.714950704 866 1 4962773d-3*t10*t11*t4*t41*t42*t58*t59 867 t85 = t48**2 868 t86 = 1/t14**5 869 t87 = t4**2 870 t88 = gammaaa**2 871 t89 = 1/t6**3 872 t90 = 1/rhoa**6 873 t91 = 1/t73 874 t92 = 4.135669939329333d-1*t2*t7*t91+4.135669939329333d-1*t9 875 1 1-3.5835038259110563d-3*t3*t87*t88*t89*t90+4.083223320071 876 2 8415d-2*gammaaa*t4*t45*t72 877 t93 = 1/rhoa**4 878 t94 = 1/t13**3 879 t95 = -2.827433388230826d+1*t16*t18*t85*t94+1.41371669411541 880 1 3d+1*t16*t18*t52*t92+5.654866776461652d+1*rhoa*t18*t48*t5 881 2 2-2.827433388230826d+1*t18*t19 882 t96 = t53**2 883 t97 = t61**2 884 t98 = 1/t34**5 885 t99 = gammabb**2 886 t100 = 1/t29**3 887 t101 = 1/rhob**6 888 t102 = 1/t80 889 t103 = -3.5835038259110563d-3*t100*t101*t3*t87*t99+4.0832233 890 1 200718415d-2*gammabb*t4*t58*t79+4.135669939329333d-1*t102 891 2 *t2*t30+4.135669939329333d-1*t102 892 t104 = 1/rhob**4 893 t105 = 1/t33**3 894 t106 = -2.827433388230826d+1*t105*t18*t35*t97+5.654866776461 895 1 652d+1*rhob*t18*t61*t65+1.413716694115413d+1*t103*t18*t35 896 2 *t65-2.827433388230826d+1*t18*t37 897 t107 = t66**2 898 t108 = 1/rhoa**5 899 t109 = 1.3438139347166464d-3*gammaaa*t108*t3*t87*t89-2.04161 900 1 16600359205d-2*t4*t45*t46 901 t110 = -4.3293907300401946d-1*t18*t4*t45*t48*t73*t94+4.32939 902 1 07300401946d-1*t18*t4*t45*t52*t71+1.413716694115413d+1*t1 903 2 09*t16*t18*t52 904 t111 = 1/rhob**5 905 t112 = 1.3438139347166464d-3*gammabb*t100*t111*t3*t87-2.0416 906 1 116600359205d-2*t4*t58*t59 907 t113 = -4.3293907300401946d-1*t105*t18*t4*t58*t61*t80+4.3293 908 1 907300401946d-1*t18*t4*t58*t65*t78+1.413716694115413d+1*t 909 2 112*t18*t35*t65 910 t114 = 1/t11**3 911 t115 = 1/t6**4 912 t116 = 1/rhoa**3.6666666666666664d+0 913 t117 = 1/t11**4 914 t118 = 1/t29**4 915 t119 = 1/rhob**3.6666666666666664d+0 916 fnc(iq) = (1.0d+0*t26*t8+1.0d+0*t31*t43)*wght+fnc(iq) 917 Amat(iq,D1_RA) = (1.0d+0*t56*t8+1.0d+0*t26*t57)*wght+Amat(iq 918 1 ,D1_RA) 919 Amat(iq,D1_RB) = (1.0d+0*t43*t70+1.0d+0*t31*t69)*wght+Amat(i 920 1 q,D1_RB) 921 Cmat(iq,D1_GAA) = (1.0d+0*t77*t8-1.531208745026941d-2*t26*t4 922 1 *t45*t74)*wght+Cmat(iq,D1_GAA) 923 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 924 Cmat(iq,D1_GBB) = (1.0d+0*t31*t84-1.531208745026941d-2*t4*t4 925 1 3*t58*t81)*wght+Cmat(iq,D1_GBB) 926 Amat2(iq,D2_RA_RA) = (1.0d+0*t8*(-3.5461536035682834d-1*t10* 927 1 t11*t12*t14*(2.659615202676212d-1*t11*t12*t14*(-3.5367765 928 2 13153214d-2*t13*t15*t17*t20*t96+t20*t96-3.536776513153214 929 3 d-2*t13*t15*t17*t20*t95+t20*t95-2.1220659078919285d-1*t13 930 4 *t15*t21*t93-3.536776513153214d-2*t15*t17*t21*t92+1.41471 931 5 06052612857d-1*t13*t15*t20*t51*t53-7.073553026306428d-2*t 932 6 15*t17*t20*t48*t53+1.4147106052612857d-1*t15*t21*t48*t51) 933 7 +3.5449077018110403d+0*t20*t44*(-1.8799712059732546d+0*rh 934 8 oa*t23*t49*t92+2.8199568089598814d+0*rhoa*t23*t85*t86-3.7 935 9 59942411946509d+0*t23*t48*t49)+1.329807601338106d-1*t11*t 936 : 12*t22*t24*t92-6.649038006690531d-2*t11*t12*t22*t49*t85+2 937 ; .659615202676212d-1*t11*t12*t24*t48*t54-5.319230405352424 938 < d-1*t11*t14*t17*t54+3.5449077018110403d+0*t20*t44*t50*t53 939 = +5.319230405352424d-1*t11*t14*t22*t51-2.659615202676212d- 940 > 1*t11*t17*t22*t24*t48)-1.7730768017841417d-1*t10*t11*t12* 941 ? t24*t25*t92+8.865384008920708d-2*t10*t11*t12*t25*t49*t85- 942 @ 3.5461536035682834d-1*t10*t11*t12*t24*t48*t55+7.092307207 943 1 136567d-1*t10*t11*t14*t17*t55-7.092307207136567d-1*t10*t1 944 2 1*t14*t25*t51+3.5461536035682834d-1*t10*t11*t17*t24*t25*t 945 3 48)+1.0d+0*t26*(-4.135669939329333d-1*t2*t7*t91-4.1356699 946 4 39329333d-1*t91+3.5835038259110563d-3*t3*t87*t88*t89*t90- 947 5 4.0832233200718415d-2*gammaaa*t4*t45*t72)+2.0d+0*t56*t57) 948 6 *wght+Amat2(iq,D2_RA_RA) 949 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 950 Amat2(iq,D2_RB_RB) = (1.0d+0*t43*(3.5835038259110563d-3*t100 951 1 *t101*t3*t87*t99-4.0832233200718415d-2*gammabb*t4*t58*t79 952 2 -4.135669939329333d-1*t102*t2*t30-4.135669939329333d-1*t1 953 3 02)+1.0d+0*t31*(-3.5461536035682834d-1*t10*t11*t32*t34*(3 954 4 .5449077018110403d+0*t38*t44*(2.8199568089598814d+0*rhob* 955 5 t23*t97*t98-3.759942411946509d+0*t23*t61*t62-1.8799712059 956 6 732546d+0*rhob*t103*t23*t62)-6.649038006690531d-2*t11*t32 957 7 *t40*t62*t97+2.659615202676212d-1*t11*t32*t41*t61*t67-5.3 958 8 19230405352424d-1*t11*t34*t36*t67+2.659615202676212d-1*t1 959 9 1*t32*t34*(1.4147106052612857d-1*t15*t33*t38*t64*t66-7.07 960 : 3553026306428d-2*t15*t36*t38*t61*t66+1.4147106052612857d- 961 ; 1*t15*t39*t61*t64-3.536776513153214d-2*t103*t15*t36*t39-2 962 < .1220659078919285d-1*t104*t15*t33*t39-3.536776513153214d- 963 = 2*t107*t15*t33*t36*t38-3.536776513153214d-2*t106*t15*t33* 964 > t36*t38+t107*t38+t106*t38)+3.5449077018110403d+0*t38*t44* 965 ? t63*t66+5.319230405352424d-1*t11*t34*t40*t64-2.6596152026 966 @ 76212d-1*t11*t36*t40*t41*t61+1.329807601338106d-1*t103*t1 967 1 1*t32*t40*t41)+8.865384008920708d-2*t10*t11*t32*t42*t62*t 968 2 97-3.5461536035682834d-1*t10*t11*t32*t41*t61*t68+7.092307 969 3 207136567d-1*t10*t11*t34*t36*t68-7.092307207136567d-1*t10 970 4 *t11*t34*t42*t64+3.5461536035682834d-1*t10*t11*t36*t41*t4 971 5 2*t61-1.7730768017841417d-1*t10*t103*t11*t32*t41*t42)+2.0 972 6 d+0*t69*t70)*wght+Amat2(iq,D2_RB_RB) 973 Cmat2(iq,D2_RA_GAA) = (1.0d+0*t26*(2.0416116600359205d-2*t4* 974 1 t45*t46-1.3438139347166464d-3*gammaaa*t108*t3*t87*t89)+1. 975 2 0d+0*t8*(-3.5461536035682834d-1*t10*t11*t12*t14*(3.544907 976 3 7018110403d+0*t20*t44*(4.317942526477637d-2*t23*t4*t45*t4 977 4 8*t71*t86-2.878628350985092d-2*t23*t4*t45*t49*t74-1.87997 978 5 12059732546d+0*rhoa*t109*t23*t49)+1.329807601338106d-1*t1 979 6 1*t12*t24*t48*t75-2.659615202676212d-1*t11*t14*t17*t75+2. 980 7 659615202676212d-1*t11*t12*t14*(-7.656043725134704d-3*t19 981 8 *t20*t4*t45*t53*t74-7.656043725134704d-3*t20*t4*t45*t48*t 982 9 52*t74+2.1646953650200973d-1*t18*t20*t4*t45*t52*t53*t73-5 983 : .415543126146093d-4*t15*t20*t4*t45*t53*t72+1.531208745026 984 ; 9407d-2*t19*t20*t4*t45*t46+1.0831086252292187d-3*t15*t21* 985 < t4*t45/rhoa**4.333333333333333d+0-3.536776513153214d-2*t1 986 = 09*t15*t17*t21-3.536776513153214d-2*t110*t13*t15*t17*t20+ 987 > t110*t20)+7.673645271534404d-1*t18*t20*t4*t44*t45*t50*t52 988 ? *t73-2.036213028372208d-3*t11*t22*t24*t4*t45*t72+2.036213 989 @ 028372208d-3*t11*t24*t4*t45*t46*t54-1.018106514186104d-3* 990 1 t11*t22*t4*t45*t46*t48*t49+1.329807601338106d-1*t109*t11* 991 2 t12*t22*t24)-1.7730768017841417d-1*t10*t11*t12*t24*t48*t7 992 3 6+3.5461536035682834d-1*t10*t11*t14*t17*t76+2.71495070449 993 4 62773d-3*t10*t11*t24*t25*t4*t45*t72-2.7149507044962773d-3 994 5 *t10*t11*t24*t4*t45*t46*t55+1.3574753522481386d-3*t10*t11 995 6 *t25*t4*t45*t46*t48*t49-1.7730768017841417d-1*t10*t109*t1 996 7 1*t12*t24*t25)+1.0d+0*t57*t77-1.531208745026941d-2*t4*t45 997 8 *t56*t74)*wght+Cmat2(iq,D2_RA_GAA) 998 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 999 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 1000 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 1001 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 1002 Cmat2(iq,D2_RB_GBB) = (1.0d+0*t31*(-3.5461536035682834d-1*t1 1003 1 0*t11*t32*t34*(3.5449077018110403d+0*t38*t44*(4.317942526 1004 2 477637d-2*t23*t4*t58*t61*t78*t98-2.878628350985092d-2*t23 1005 3 *t4*t58*t62*t81-1.8799712059732546d+0*rhob*t112*t23*t62)+ 1006 4 1.329807601338106d-1*t11*t32*t41*t61*t82-2.65961520267621 1007 5 2d-1*t11*t34*t36*t82+2.659615202676212d-1*t11*t32*t34*(-7 1008 6 .656043725134704d-3*t37*t38*t4*t58*t66*t81-7.656043725134 1009 7 704d-3*t38*t4*t58*t61*t65*t81+2.1646953650200973d-1*t18*t 1010 8 38*t4*t58*t65*t66*t80-5.415543126146093d-4*t15*t38*t4*t58 1011 9 *t66*t79+1.5312087450269407d-2*t37*t38*t4*t58*t59+1.08310 1012 : 86252292187d-3*t15*t39*t4*t58/rhob**4.333333333333333d+0- 1013 ; 3.536776513153214d-2*t112*t15*t36*t39-3.536776513153214d- 1014 < 2*t113*t15*t33*t36*t38+t113*t38)+7.673645271534404d-1*t18 1015 = *t38*t4*t44*t58*t63*t65*t80-2.036213028372208d-3*t11*t4*t 1016 > 40*t41*t58*t79+2.036213028372208d-3*t11*t4*t41*t58*t59*t6 1017 ? 7-1.018106514186104d-3*t11*t4*t40*t58*t59*t61*t62+1.32980 1018 @ 7601338106d-1*t11*t112*t32*t40*t41)-1.7730768017841417d-1 1019 1 *t10*t11*t32*t41*t61*t83+3.5461536035682834d-1*t10*t11*t3 1020 2 4*t36*t83+2.7149507044962773d-3*t10*t11*t4*t41*t42*t58*t7 1021 3 9-2.7149507044962773d-3*t10*t11*t4*t41*t58*t59*t68+1.3574 1022 4 753522481386d-3*t10*t11*t4*t42*t58*t59*t61*t62-1.77307680 1023 5 17841417d-1*t10*t11*t112*t32*t41*t42)+1.0d+0*t43*(2.04161 1024 6 16600359205d-2*t4*t58*t59-1.3438139347166464d-3*gammabb*t 1025 7 100*t111*t3*t87)+1.0d+0*t70*t84-1.531208745026941d-2*t4*t 1026 8 58*t69*t81)*wght+Cmat2(iq,D2_RB_GBB) 1027 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t8*(-3.5461536035682834d-1*t1 1028 1 0*t11*t12*t14*(2.659615202676212d-1*t11*t12*t14*(-8.28650 1029 2 1183095146d-3*t115*t18*t20*t87*t91*t94+2.519651127593712d 1030 3 -4*t19*t20*t3*t87*t89*t93+1.782288585882691d-5*t15*t21*t3 1031 4 *t87*t89*t90-7.124145724851911d-3*t17*t18*t20*t3*t52*t87* 1032 5 t89-1.3552527156068805d-20*t115*t20*t5*t52*t87+4.68590602 1033 6 3339492d-2*t1*t115*t117*t20*t87/t13**4)+3.358354501469293 1034 7 4d-3*t20*t23*t3*t44*t49*t51*t87*t89-6.701302444388497d-5* 1035 8 t108*t11*t22*t24*t3*t87*t89+2.3437764715507717d-3*t115*t2 1036 9 0*t23*t44*t86*t87/rhoa**1.6666666666666669d+0-1.558933597 1037 : 8906577d-5*t11*t115*t116*t22*t49*t87-2.2089572834041626d- 1038 ; 2*t114*t115*t20*t44*t47*t87/t14**7+4.072426056744416d-3*t 1039 < 11*t24*t4*t45*t46*t75)+8.935069925851332d-5*t10*t108*t11* 1040 = t24*t25*t3*t87*t89+2.078578130520877d-5*t10*t11*t115*t116 1041 > *t25*t49*t87-5.429901408992555d-3*t10*t11*t24*t4*t45*t46* 1042 ? t76)+5.039302255187424d-4*t26*t3*t87*t89*t93-3.0624174900 1043 @ 53882d-2*t4*t45*t74*t77)*wght+Cmat2(iq,D2_GAA_GAA) 1044 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 1045 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 1046 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 1047 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 1048 Cmat2(iq,D2_GBB_GBB) = (1.0d+0*t31*(-3.5461536035682834d-1*t 1049 1 10*t11*t32*t34*(2.3437764715507717d-3*t118*t23*t38*t44*t8 1050 2 7*t98/rhob**1.6666666666666669d+0+2.659615202676212d-1*t1 1051 3 1*t32*t34*(-7.124145724851911d-3*t100*t18*t3*t36*t38*t65* 1052 4 t87-1.3552527156068805d-20*t118*t28*t38*t65*t87+1.7822885 1053 5 85882691d-5*t100*t101*t15*t3*t39*t87+2.519651127593712d-4 1054 6 *t100*t104*t3*t37*t38*t87+4.685906023339492d-2*t117*t118* 1055 7 t27*t38*t87/t33**4-8.286501183095146d-3*t102*t105*t118*t1 1056 8 8*t38*t87)+3.3583545014692934d-3*t100*t23*t3*t38*t44*t62* 1057 9 t64*t87-1.5589335978906577d-5*t11*t118*t119*t40*t62*t87-2 1058 : .2089572834041626d-2*t114*t118*t38*t44*t60*t87/t34**7-6.7 1059 ; 01302444388497d-5*t100*t11*t111*t3*t40*t41*t87+4.07242605 1060 < 6744416d-3*t11*t4*t41*t58*t59*t82)+2.078578130520877d-5*t 1061 = 10*t11*t118*t119*t42*t62*t87+8.935069925851332d-5*t10*t10 1062 > 0*t11*t111*t3*t41*t42*t87-5.429901408992555d-3*t10*t11*t4 1063 ? *t41*t58*t59*t83)+5.039302255187424d-4*t100*t104*t3*t43*t 1064 @ 87-3.062417490053882d-2*t4*t58*t81*t84)*wght+Cmat2(iq,D2_ 1065 1 GBB_GBB) 1066 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 1067 t1 = rhoa**1.3333333333333333d+0 1068 t2 = param(1) 1069 t3 = 1/t2 1070 t4 = param(2) 1071 t5 = 1/rhoa**2.6666666666666666d+0 1072 t6 = 1.6455307846020564d-2*gammaaa*t3*t4*t5+1.0d+0 1073 t7 = 1.0d+0-1.0d+0/t6 1074 t8 = -9.305257363491d-1*t1*t2*t7-9.305257363491d-1*t1 1075 t9 = param(4) 1076 t10 = param(5) 1077 t11 = 1/rhoa 1078 t12 = 9.305257363491d-1*t1*t2*t7+9.305257363491d-1*t1 1079 t13 = t12**5.0d-1 1080 t14 = t10**2 1081 t15 = rhoa**2 1082 t16 = 1/t15 1083 t17 = 1/t14 1084 t18 = 1/t12 1085 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 1086 t20 = t19-1.0d+0 1087 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 1088 t22 = 1/t10 1089 t23 = 1/t13 1090 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 1091 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 1092 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9-param(3)+1.0 1093 1 d+0 1094 t26 = 5.641895835477563d-1 1095 t27 = 1/t6**2 1096 t28 = 1/rhoa**2.3333333333333334d+0 1097 t29 = rhoa**3.333333333333333d-1 1098 t30 = 1.2407009817987999d+0*t2*t29*t7-4.0832233200718415d-2* 1099 1 gammaaa*t27*t28*t4+1.2407009817987999d+0*t29 1100 t31 = 1/t13**3 1101 t32 = 3.759942411946509d+0*t22*t23-1.8799712059732546d+0*rho 1102 1 a*t22*t30*t31 1103 t33 = 1/rhoa**3 1104 t34 = 1/t12**2 1105 t35 = 1.413716694115413d+1*t15*t17*t30*t34-2.827433388230826 1106 1 d+1*rhoa*t17*t18 1107 t36 = -3.536776513153214d-2*t12*t14*t16*t19*t35+t19*t35+7.07 1108 1 3553026306428d-2*t12*t14*t20*t33-3.536776513153214d-2*t14 1109 2 *t16*t20*t30 1110 t37 = 2.659615202676212d-1*t10*t11*t13*t36+3.544907701811040 1111 1 3d+0*t19*t26*t32+1.329807601338106d-1*t10*t11*t21*t23*t30 1112 2 -2.659615202676212d-1*t10*t13*t16*t21 1113 t38 = -3.5461536035682834d-1*t10*t11*t13*t37*t9-1.7730768017 1114 1 841417d-1*t10*t11*t23*t24*t30*t9+3.5461536035682834d-1*t1 1115 2 0*t13*t16*t24*t9 1116 t39 = -1.2407009817987999d+0*t2*t29*t7+4.0832233200718415d-2 1117 1 *gammaaa*t27*t28*t4-1.2407009817987999d+0*t29 1118 t40 = 1/t29 1119 t41 = 1/rhoa**3.3333333333333337d+0 1120 t42 = rhoa**6.666666666666666d-1 1121 t43 = 1/t1 1122 t44 = -7.656043725134704d-3*t18*t19*t27*t4*t43+2.16469536502 1123 1 00973d-1*t17*t19*t27*t34*t4*t42-5.415543126146093d-4*t14* 1124 2 t20*t27*t4*t41 1125 t45 = 2.659615202676212d-1*t10*t11*t13*t44-1.020447181205866 1126 1 6d-1*t19*t22*t26*t27*t31*t4*t40+2.036213028372208d-3*t10* 1127 2 t21*t23*t27*t28*t4 1128 t46 = -3.5461536035682834d-1*t10*t11*t13*t45*t9-2.7149507044 1129 1 962773d-3*t10*t23*t24*t27*t28*t4*t9 1130 t47 = t30**2 1131 t48 = 1/t13**5 1132 t49 = t4**2 1133 t50 = gammaaa**2 1134 t51 = 1/t6**3 1135 t52 = 1/rhoa**6 1136 t53 = 1/t42 1137 t54 = 4.135669939329333d-1*t2*t53*t7+4.135669939329333d-1*t5 1138 1 3-3.5835038259110563d-3*t3*t49*t50*t51*t52+4.083223320071 1139 2 8415d-2*gammaaa*t27*t4*t41 1140 t55 = 1/rhoa**4 1141 t56 = 1/t12**3 1142 t57 = -2.827433388230826d+1*t15*t17*t47*t56+1.41371669411541 1143 1 3d+1*t15*t17*t34*t54+5.654866776461652d+1*rhoa*t17*t30*t3 1144 2 4-2.827433388230826d+1*t17*t18 1145 t58 = t35**2 1146 t59 = 1/rhoa**5 1147 t60 = 1.3438139347166464d-3*gammaaa*t3*t49*t51*t59-2.0416116 1148 1 600359205d-2*t27*t28*t4 1149 t61 = 1.413716694115413d+1*t15*t17*t34*t60-4.329390730040194 1150 1 6d-1*t17*t27*t30*t4*t42*t56+4.3293907300401946d-1*t17*t27 1151 2 *t34*t4*t40 1152 t62 = 1/t6**4 1153 t63 = 1/rhoa**3.6666666666666664d+0 1154 fnc(iq) = 1.0d+0*t25*t8*wght+fnc(iq) 1155 Amat(iq,D1_RA) = 1.0d+0*t38*t8*wght+1.0d+0*t25*t39*wght+Amat 1156 1 (iq,D1_RA) 1157 Cmat(iq,D1_GAA) = 1.0d+0*t46*t8*wght-1.531208745026941d-2*t2 1158 1 5*t27*t4*t43*wght+Cmat(iq,D1_GAA) 1159 Amat2(iq,D2_RA_RA) = 1.0d+0*t8*(-3.5461536035682834d-1*t10*t 1160 1 11*t13*(2.659615202676212d-1*t10*t11*t13*(-3.536776513153 1161 2 214d-2*t12*t14*t16*t19*t58+t19*t58-3.536776513153214d-2*t 1162 3 12*t14*t16*t19*t57+t19*t57-2.1220659078919285d-1*t12*t14* 1163 4 t20*t55-3.536776513153214d-2*t14*t16*t20*t54+1.4147106052 1164 5 612857d-1*t12*t14*t19*t33*t35-7.073553026306428d-2*t14*t1 1165 6 6*t19*t30*t35+1.4147106052612857d-1*t14*t20*t30*t33)+3.54 1166 7 49077018110403d+0*t19*t26*(-1.8799712059732546d+0*rhoa*t2 1167 8 2*t31*t54+2.8199568089598814d+0*rhoa*t22*t47*t48-3.759942 1168 9 411946509d+0*t22*t30*t31)+1.329807601338106d-1*t10*t11*t2 1169 : 1*t23*t54-6.649038006690531d-2*t10*t11*t21*t31*t47+2.6596 1170 ; 15202676212d-1*t10*t11*t23*t30*t36-5.319230405352424d-1*t 1171 < 10*t13*t16*t36+3.5449077018110403d+0*t19*t26*t32*t35+5.31 1172 = 9230405352424d-1*t10*t13*t21*t33-2.659615202676212d-1*t10 1173 > *t16*t21*t23*t30)*t9-1.7730768017841417d-1*t10*t11*t23*t2 1174 ? 4*t54*t9+8.865384008920708d-2*t10*t11*t24*t31*t47*t9-3.54 1175 @ 61536035682834d-1*t10*t11*t23*t30*t37*t9+7.09230720713656 1176 1 7d-1*t10*t13*t16*t37*t9-7.092307207136567d-1*t10*t13*t24* 1177 2 t33*t9+3.5461536035682834d-1*t10*t16*t23*t24*t30*t9)*wght 1178 3 +1.0d+0*t25*(-4.135669939329333d-1*t2*t53*t7-4.1356699393 1179 4 29333d-1*t53+3.5835038259110563d-3*t3*t49*t50*t51*t52-4.0 1180 5 832233200718415d-2*gammaaa*t27*t4*t41)*wght+2.0d+0*t38*t3 1181 6 9*wght+Amat2(iq,D2_RA_RA) 1182 Cmat2(iq,D2_RA_GAA) = 1.0d+0*t8*(-3.5461536035682834d-1*t10* 1183 1 t11*t13*(2.659615202676212d-1*t10*t11*t13*(-3.53677651315 1184 2 3214d-2*t12*t14*t16*t19*t61+t19*t61-3.536776513153214d-2* 1185 3 t14*t16*t20*t60-7.656043725134704d-3*t18*t19*t27*t35*t4*t 1186 4 43-7.656043725134704d-3*t19*t27*t30*t34*t4*t43+2.16469536 1187 5 50200973d-1*t17*t19*t27*t34*t35*t4*t42-5.415543126146093d 1188 6 -4*t14*t19*t27*t35*t4*t41+1.5312087450269407d-2*t18*t19*t 1189 7 27*t28*t4+1.0831086252292187d-3*t14*t20*t27*t4/rhoa**4.33 1190 8 3333333333333d+0)+3.5449077018110403d+0*t19*t26*(-1.87997 1191 9 12059732546d+0*rhoa*t22*t31*t60+4.317942526477637d-2*t22* 1192 : t27*t30*t4*t40*t48-2.878628350985092d-2*t22*t27*t31*t4*t4 1193 ; 3)+1.329807601338106d-1*t10*t11*t21*t23*t60+1.32980760133 1194 < 8106d-1*t10*t11*t23*t30*t44-2.659615202676212d-1*t10*t13* 1195 = t16*t44+7.673645271534404d-1*t17*t19*t26*t27*t32*t34*t4*t 1196 > 42-2.036213028372208d-3*t10*t21*t23*t27*t4*t41+2.03621302 1197 ? 8372208d-3*t10*t23*t27*t28*t36*t4-1.018106514186104d-3*t1 1198 @ 0*t21*t27*t28*t30*t31*t4)*t9-1.7730768017841417d-1*t10*t1 1199 1 1*t23*t24*t60*t9-1.7730768017841417d-1*t10*t11*t23*t30*t4 1200 2 5*t9+3.5461536035682834d-1*t10*t13*t16*t45*t9+2.714950704 1201 3 4962773d-3*t10*t23*t24*t27*t4*t41*t9-2.7149507044962773d- 1202 4 3*t10*t23*t27*t28*t37*t4*t9+1.3574753522481386d-3*t10*t24 1203 5 *t27*t28*t30*t31*t4*t9)*wght+1.0d+0*t25*(2.04161166003592 1204 6 05d-2*t27*t28*t4-1.3438139347166464d-3*gammaaa*t3*t49*t51 1205 7 *t59)*wght+1.0d+0*t39*t46*wght-1.531208745026941d-2*t27*t 1206 8 38*t4*t43*wght+Cmat2(iq,D2_RA_GAA) 1207 Cmat2(iq,D2_GAA_GAA) = 1.0d+0*t8*(-3.5461536035682834d-1*t10 1208 1 *t11*t13*(-1.5589335978906577d-5*t10*t21*t31*t49*t62*t63+ 1209 2 2.659615202676212d-1*t10*t11*t13*(-8.286501183095146d-3*t 1210 3 17*t19*t49*t53*t56*t62-1.3552527156068805d-20*t19*t34*t49 1211 4 *t5*t62+4.685906023339492d-2*t1*t19*t49*t62/(t10**4*t12** 1212 5 4)+2.519651127593712d-4*t18*t19*t3*t49*t51*t55+1.78228858 1213 6 5882691d-5*t14*t20*t3*t49*t51*t52-7.124145724851911d-3*t1 1214 7 6*t17*t19*t3*t34*t49*t51)+2.3437764715507717d-3*t19*t22*t 1215 8 26*t48*t49*t62/rhoa**1.6666666666666669d+0-2.208957283404 1216 9 1626d-2*t19*t26*t29*t49*t62/(t10**3*t13**7)-6.70130244438 1217 : 8497d-5*t10*t21*t23*t3*t49*t51*t59+3.3583545014692934d-3* 1218 ; t19*t22*t26*t3*t31*t33*t49*t51+4.072426056744416d-3*t10*t 1219 < 23*t27*t28*t4*t44)*t9+2.078578130520877d-5*t10*t24*t31*t4 1220 = 9*t62*t63*t9+8.935069925851332d-5*t10*t23*t24*t3*t49*t51* 1221 > t59*t9-5.429901408992555d-3*t10*t23*t27*t28*t4*t45*t9)*wg 1222 ? ht+5.039302255187424d-4*t25*t3*t49*t51*t55*wght-3.0624174 1223 @ 90053882d-2*t27*t4*t43*t46*wght+Cmat2(iq,D2_GAA_GAA) 1224 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 1225 t1 = rhob**1.3333333333333333d+0 1226 t2 = param(1) 1227 t3 = 1/t2 1228 t4 = param(2) 1229 t5 = 1/rhob**2.6666666666666666d+0 1230 t6 = 1.6455307846020564d-2*gammabb*t3*t4*t5+1.0d+0 1231 t7 = 1.0d+0-1.0d+0/t6 1232 t8 = -9.305257363491d-1*t1*t2*t7-9.305257363491d-1*t1 1233 t9 = param(4) 1234 t10 = param(5) 1235 t11 = 1/rhob 1236 t12 = 9.305257363491d-1*t1*t2*t7+9.305257363491d-1*t1 1237 t13 = t12**5.0d-1 1238 t14 = t10**2 1239 t15 = rhob**2 1240 t16 = 1/t15 1241 t17 = 1/t14 1242 t18 = 1/t12 1243 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 1244 t20 = t19-1.0d+0 1245 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 1246 t22 = 1/t10 1247 t23 = 1/t13 1248 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 1249 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 1250 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9-param(3)+1.0 1251 1 d+0 1252 t26 = 5.641895835477563d-1 1253 t27 = 1/t6**2 1254 t28 = 1/rhob**2.3333333333333334d+0 1255 t29 = rhob**3.333333333333333d-1 1256 t30 = 1.2407009817987999d+0*t2*t29*t7-4.0832233200718415d-2* 1257 1 gammabb*t27*t28*t4+1.2407009817987999d+0*t29 1258 t31 = 1/t13**3 1259 t32 = 3.759942411946509d+0*t22*t23-1.8799712059732546d+0*rho 1260 1 b*t22*t30*t31 1261 t33 = 1/rhob**3 1262 t34 = 1/t12**2 1263 t35 = 1.413716694115413d+1*t15*t17*t30*t34-2.827433388230826 1264 1 d+1*rhob*t17*t18 1265 t36 = -3.536776513153214d-2*t12*t14*t16*t19*t35+t19*t35+7.07 1266 1 3553026306428d-2*t12*t14*t20*t33-3.536776513153214d-2*t14 1267 2 *t16*t20*t30 1268 t37 = 2.659615202676212d-1*t10*t11*t13*t36+3.544907701811040 1269 1 3d+0*t19*t26*t32+1.329807601338106d-1*t10*t11*t21*t23*t30 1270 2 -2.659615202676212d-1*t10*t13*t16*t21 1271 t38 = -3.5461536035682834d-1*t10*t11*t13*t37*t9-1.7730768017 1272 1 841417d-1*t10*t11*t23*t24*t30*t9+3.5461536035682834d-1*t1 1273 2 0*t13*t16*t24*t9 1274 t39 = -1.2407009817987999d+0*t2*t29*t7+4.0832233200718415d-2 1275 1 *gammabb*t27*t28*t4-1.2407009817987999d+0*t29 1276 t40 = 1/t29 1277 t41 = 1/rhob**3.3333333333333337d+0 1278 t42 = rhob**6.666666666666666d-1 1279 t43 = 1/t1 1280 t44 = -7.656043725134704d-3*t18*t19*t27*t4*t43+2.16469536502 1281 1 00973d-1*t17*t19*t27*t34*t4*t42-5.415543126146093d-4*t14* 1282 2 t20*t27*t4*t41 1283 t45 = 2.659615202676212d-1*t10*t11*t13*t44-1.020447181205866 1284 1 6d-1*t19*t22*t26*t27*t31*t4*t40+2.036213028372208d-3*t10* 1285 2 t21*t23*t27*t28*t4 1286 t46 = -3.5461536035682834d-1*t10*t11*t13*t45*t9-2.7149507044 1287 1 962773d-3*t10*t23*t24*t27*t28*t4*t9 1288 t47 = t30**2 1289 t48 = 1/t13**5 1290 t49 = t4**2 1291 t50 = gammabb**2 1292 t51 = 1/t6**3 1293 t52 = 1/rhob**6 1294 t53 = 1/t42 1295 t54 = 4.135669939329333d-1*t2*t53*t7+4.135669939329333d-1*t5 1296 1 3-3.5835038259110563d-3*t3*t49*t50*t51*t52+4.083223320071 1297 2 8415d-2*gammabb*t27*t4*t41 1298 t55 = 1/rhob**4 1299 t56 = 1/t12**3 1300 t57 = -2.827433388230826d+1*t15*t17*t47*t56+1.41371669411541 1301 1 3d+1*t15*t17*t34*t54+5.654866776461652d+1*rhob*t17*t30*t3 1302 2 4-2.827433388230826d+1*t17*t18 1303 t58 = t35**2 1304 t59 = 1/rhob**5 1305 t60 = 1.3438139347166464d-3*gammabb*t3*t49*t51*t59-2.0416116 1306 1 600359205d-2*t27*t28*t4 1307 t61 = 1.413716694115413d+1*t15*t17*t34*t60-4.329390730040194 1308 1 6d-1*t17*t27*t30*t4*t42*t56+4.3293907300401946d-1*t17*t27 1309 2 *t34*t4*t40 1310 t62 = 1/t6**4 1311 t63 = 1/rhob**3.6666666666666664d+0 1312 fnc(iq) = 1.0d+0*t25*t8*wght+fnc(iq) 1313 Amat(iq,D1_RB) = 1.0d+0*t38*t8*wght+1.0d+0*t25*t39*wght+Amat 1314 1 (iq,D1_RB) 1315 Cmat(iq,D1_GBB) = 1.0d+0*t46*t8*wght-1.531208745026941d-2*t2 1316 1 5*t27*t4*t43*wght+Cmat(iq,D1_GBB) 1317 Amat2(iq,D2_RB_RB) = 1.0d+0*t8*(-3.5461536035682834d-1*t10*t 1318 1 11*t13*(2.659615202676212d-1*t10*t11*t13*(-3.536776513153 1319 2 214d-2*t12*t14*t16*t19*t58+t19*t58-3.536776513153214d-2*t 1320 3 12*t14*t16*t19*t57+t19*t57-2.1220659078919285d-1*t12*t14* 1321 4 t20*t55-3.536776513153214d-2*t14*t16*t20*t54+1.4147106052 1322 5 612857d-1*t12*t14*t19*t33*t35-7.073553026306428d-2*t14*t1 1323 6 6*t19*t30*t35+1.4147106052612857d-1*t14*t20*t30*t33)+3.54 1324 7 49077018110403d+0*t19*t26*(-1.8799712059732546d+0*rhob*t2 1325 8 2*t31*t54+2.8199568089598814d+0*rhob*t22*t47*t48-3.759942 1326 9 411946509d+0*t22*t30*t31)+1.329807601338106d-1*t10*t11*t2 1327 : 1*t23*t54-6.649038006690531d-2*t10*t11*t21*t31*t47+2.6596 1328 ; 15202676212d-1*t10*t11*t23*t30*t36-5.319230405352424d-1*t 1329 < 10*t13*t16*t36+3.5449077018110403d+0*t19*t26*t32*t35+5.31 1330 = 9230405352424d-1*t10*t13*t21*t33-2.659615202676212d-1*t10 1331 > *t16*t21*t23*t30)*t9-1.7730768017841417d-1*t10*t11*t23*t2 1332 ? 4*t54*t9+8.865384008920708d-2*t10*t11*t24*t31*t47*t9-3.54 1333 @ 61536035682834d-1*t10*t11*t23*t30*t37*t9+7.09230720713656 1334 1 7d-1*t10*t13*t16*t37*t9-7.092307207136567d-1*t10*t13*t24* 1335 2 t33*t9+3.5461536035682834d-1*t10*t16*t23*t24*t30*t9)*wght 1336 3 +1.0d+0*t25*(-4.135669939329333d-1*t2*t53*t7-4.1356699393 1337 4 29333d-1*t53+3.5835038259110563d-3*t3*t49*t50*t51*t52-4.0 1338 5 832233200718415d-2*gammabb*t27*t4*t41)*wght+2.0d+0*t38*t3 1339 6 9*wght+Amat2(iq,D2_RB_RB) 1340 Cmat2(iq,D2_RB_GBB) = 1.0d+0*t8*(-3.5461536035682834d-1*t10* 1341 1 t11*t13*(2.659615202676212d-1*t10*t11*t13*(-3.53677651315 1342 2 3214d-2*t12*t14*t16*t19*t61+t19*t61-3.536776513153214d-2* 1343 3 t14*t16*t20*t60-7.656043725134704d-3*t18*t19*t27*t35*t4*t 1344 4 43-7.656043725134704d-3*t19*t27*t30*t34*t4*t43+2.16469536 1345 5 50200973d-1*t17*t19*t27*t34*t35*t4*t42-5.415543126146093d 1346 6 -4*t14*t19*t27*t35*t4*t41+1.5312087450269407d-2*t18*t19*t 1347 7 27*t28*t4+1.0831086252292187d-3*t14*t20*t27*t4/rhob**4.33 1348 8 3333333333333d+0)+3.5449077018110403d+0*t19*t26*(-1.87997 1349 9 12059732546d+0*rhob*t22*t31*t60+4.317942526477637d-2*t22* 1350 : t27*t30*t4*t40*t48-2.878628350985092d-2*t22*t27*t31*t4*t4 1351 ; 3)+1.329807601338106d-1*t10*t11*t21*t23*t60+1.32980760133 1352 < 8106d-1*t10*t11*t23*t30*t44-2.659615202676212d-1*t10*t13* 1353 = t16*t44+7.673645271534404d-1*t17*t19*t26*t27*t32*t34*t4*t 1354 > 42-2.036213028372208d-3*t10*t21*t23*t27*t4*t41+2.03621302 1355 ? 8372208d-3*t10*t23*t27*t28*t36*t4-1.018106514186104d-3*t1 1356 @ 0*t21*t27*t28*t30*t31*t4)*t9-1.7730768017841417d-1*t10*t1 1357 1 1*t23*t24*t60*t9-1.7730768017841417d-1*t10*t11*t23*t30*t4 1358 2 5*t9+3.5461536035682834d-1*t10*t13*t16*t45*t9+2.714950704 1359 3 4962773d-3*t10*t23*t24*t27*t4*t41*t9-2.7149507044962773d- 1360 4 3*t10*t23*t27*t28*t37*t4*t9+1.3574753522481386d-3*t10*t24 1361 5 *t27*t28*t30*t31*t4*t9)*wght+1.0d+0*t25*(2.04161166003592 1362 6 05d-2*t27*t28*t4-1.3438139347166464d-3*gammabb*t3*t49*t51 1363 7 *t59)*wght+1.0d+0*t39*t46*wght-1.531208745026941d-2*t27*t 1364 8 38*t4*t43*wght+Cmat2(iq,D2_RB_GBB) 1365 Cmat2(iq,D2_GBB_GBB) = 1.0d+0*t8*(-3.5461536035682834d-1*t10 1366 1 *t11*t13*(-1.5589335978906577d-5*t10*t21*t31*t49*t62*t63+ 1367 2 2.659615202676212d-1*t10*t11*t13*(-8.286501183095146d-3*t 1368 3 17*t19*t49*t53*t56*t62-1.3552527156068805d-20*t19*t34*t49 1369 4 *t5*t62+4.685906023339492d-2*t1*t19*t49*t62/(t10**4*t12** 1370 5 4)+2.519651127593712d-4*t18*t19*t3*t49*t51*t55+1.78228858 1371 6 5882691d-5*t14*t20*t3*t49*t51*t52-7.124145724851911d-3*t1 1372 7 6*t17*t19*t3*t34*t49*t51)+2.3437764715507717d-3*t19*t22*t 1373 8 26*t48*t49*t62/rhob**1.6666666666666669d+0-2.208957283404 1374 9 1626d-2*t19*t26*t29*t49*t62/(t10**3*t13**7)-6.70130244438 1375 : 8497d-5*t10*t21*t23*t3*t49*t51*t59+3.3583545014692934d-3* 1376 ; t19*t22*t26*t3*t31*t33*t49*t51+4.072426056744416d-3*t10*t 1377 < 23*t27*t28*t4*t44)*t9+2.078578130520877d-5*t10*t24*t31*t4 1378 = 9*t62*t63*t9+8.935069925851332d-5*t10*t23*t24*t3*t49*t51* 1379 > t59*t9-5.429901408992555d-3*t10*t23*t27*t28*t4*t45*t9)*wg 1380 ? ht+5.039302255187424d-4*t25*t3*t49*t51*t55*wght-3.0624174 1381 @ 90053882d-2*t27*t4*t43*t46*wght+Cmat2(iq,D2_GBB_GBB) 1382 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 1383 endif ! ipol.eq.1 1384 enddo ! iq 1385 end 1386C> 1387C> \brief Evaluate the nwxcm_x_campbe functional [1] 1388C> 1389C> \f{eqnarray*}{ 1390C> {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\ 1391C> {\it t_2} &=& {\it param}\left(1\right)\\\\ 1392C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 1393C> {\it t_4} &=& {\it param}\left(2\right)\\\\ 1394C> {\it t_5} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{\it t_3} 1395C> \,{\it t_4}\,\sigma_{\alpha\alpha}} 1396C> \over{\rho_\alpha^{{{8}\over{3}}}}}+1.0}}\\\\ 1397C> {\it t_6} &=& -{\it param}\left(3\right)\\\\ 1398C> {\it t_7} &=& {\it param}\left(4\right)\\\\ 1399C> {\it t_8} &=& {\it param}\left(5\right)\\\\ 1400C> {\it t_9} &=& {{1}\over{\rho_\alpha}}\\\\ 1401C> {\it t_{10}} &=& 0.9305257363491\,{\it t_2}\,{\it t_1}\,{\it t_5} 1402C> +0.9305257363491\,{\it t_1}\\\\ 1403C> {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\ 1404C> {\it t_{12}} &=& {\it t_8}^2\\\\ 1405C> {\it t_{13}} &=& \rho_\alpha^2\\\\ 1406C> {\it t_{14}} &=& {{1}\over{{\it t_{12}}}}\\\\ 1407C> {\it t_{15}} &=& e^ {- {{14.13716694115413\,{\it t_{13}}\,{ 1408C> \it t_{14}}}\over{{\it t_{10}}}} }\\\\ 1409C> {\it t_{16}} &=& {{1}\over{{\it t_8}}}\\\\ 1410C> {\it t_{17}} &=& \rho_\beta^{{{4}\over{3}}}\\\\ 1411C> {\it t_{18}} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{ 1412C> \it t_3}\,{\it t_4}\,\sigma_{\beta\beta}} 1413C> \over{\rho_\beta^{{{8}\over{3}}}}}+1.0}}\\\\ 1414C> {\it t_{19}} &=& {{1}\over{\rho_\beta}}\\\\ 1415C> {\it t_{20}} &=& 0.9305257363491\,{\it t_2}\,{\it t_{17}}\,{ 1416C> \it t_{18}}+0.9305257363491\,{\it t_{17}}\\\\ 1417C> {\it t_{21}} &=& \sqrt{{\it t_{20}}}\\\\ 1418C> {\it t_{22}} &=& \rho_\beta^2\\\\ 1419C> {\it t_{23}} &=& e^ {- {{14.13716694115413\,{\it t_{14}}\,{ 1420C> \it t_{22}}}\over{{\it t_{20}}}} }\\\\ 1421C> {\it t_{24}} &=& \rho_s^{{{4}\over{3}}}\\\\ 1422C> {\it t_{25}} &=& 1.0-{{1.0}\over{{{0.01645530784602056\,{ 1423C> \it t_3}\,{\it t_4}\,\sigma_{ss}}\over{\rho_s^{{{8}\over{3}}}}} 1424C> +1.0}}\\\\ 1425C> {\it t_{26}} &=& {{1}\over{\rho_s}}\\\\ 1426C> {\it t_{27}} &=& 0.9305257363491\,{\it t_2}\,{\it t_{24}}\,{ 1427C> \it t_{25}}+0.9305257363491\,{\it t_{24}}\\\\ 1428C> {\it t_{28}} &=& \sqrt{{\it t_{27}}}\\\\ 1429C> {\it t_{29}} &=& \rho_s^2\\\\ 1430C> {\it t_{30}} &=& e^ {- {{14.13716694115413\,{\it t_{14}}\,{ 1431C> \it t_{29}}}\over{{\it t_{27}}}} }\\\\ 1432C> f &=& 1.0\,\left(-0.9305257363491\,{\it t_2}\,{\it t_{17}}\,{ 1433C> \it t_{18}}-0.9305257363491\,{\it t_{17}}\right)\,\left( 1434C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_{19}}\,{ 1435C> \it t_{21}}\,\left(1.77245385090552\,\mathrm{erf} 1436C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_\beta}\over{{ 1437C> \it t_{21}}}}\right)+0.2659615202676212\,{\it t_8}\,{ 1438C> \it t_{19}}\,{\it t_{21}}\,\left({\it t_{23}} 1439C> -{{0.03536776513153214\,{\it t_{12}}\,{\it t_{20}}\,\left({ 1440C> \it t_{23}}-1.0\right)}\over{{\it t_{22}}}}-1.5\right)\right) 1441C> +{\it t_6}+1.0\right)+1.0\,\left(-0.9305257363491\,{\it t_2} 1442C> \,{\it t_1}\,{\it t_5}-0.9305257363491\,{\it t_1}\right)\,\left( 1443C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_9}\,{ 1444C> \it t_{11}}\,\left(1.77245385090552\,\mathrm{erf} 1445C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_\alpha}\over{{ 1446C> \it t_{11}}}}\right)+0.2659615202676212\,{\it t_8}\,{\it t_9} 1447C> \,{\it t_{11}}\,\left({\it t_{15}}-{{0.03536776513153214\,{ 1448C> \it t_{12}}\,{\it t_{10}}\,\left({\it t_{15}} 1449C> -1.0\right)}\over{{\it t_{13}}}}-1.5\right)\right)+{\it t_6} 1450C> +1.0\right)\\\\ 1451C> g &=& 0\\\\ 1452C> G &=& 1.0\,\left(-0.9305257363491\,{\it t_2}\,{\it t_{24}}\,{ 1453C> \it t_{25}}-0.9305257363491\,{\it t_{24}}\right)\,\left( 1454C> -0.3546153603568283\,{\it t_7}\,{\it t_8}\,{\it t_{26}}\,{ 1455C> \it t_{28}}\,\left(1.77245385090552\,\mathrm{erf} 1456C> \left({{3.759942411946509\,{\it t_{16}}\,\rho_s}\over{{ 1457C> \it t_{28}}}}\right)+0.2659615202676212\,{\it t_8}\,{ 1458C> \it t_{26}}\,{\it t_{28}}\,\left({\it t_{30}} 1459C> -{{0.03536776513153214\,{\it t_{12}}\,{\it t_{27}}\,\left({ 1460C> \it t_{30}}-1.0\right)}\over{{\it t_{29}}}}-1.5\right)\right) 1461C> +{\it t_6}+1.0\right)\\\\ 1462C> \f} 1463C> 1464C> Code generated with Maxima 5.34.0 [2] 1465C> driven by autoxc [3]. 1466C> 1467C> ### References ### 1468C> 1469C> [1] OA Vydrov, GE Scuseria, JP Perdew, J.Chem.Phys. 126 1470C> , 154109 (2007) , DOI: 1471C> <a href="https://doi.org/10.1063/1.2723119 "> 1472C> 10.1063/1.2723119 </a> 1473C> 1474C> [2] Maxima, a computer algebra system, 1475C> <a href="http://maxima.sourceforge.net/"> 1476C> http://maxima.sourceforge.net/</a> 1477C> 1478C> [3] autoxc, revision 27097 2015-05-08 1479C> 1480 subroutine nwxcm_x_campbe_d3(param,tol_rho,ipol,nq,wght, 1481 +rho,rgamma,fnc,Amat,Amat2,Amat3, 1482 +Cmat,Cmat2,Cmat3) 1483c $Id: $ 1484#ifdef NWXC_QUAD_PREC 1485 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 1486 integer, parameter :: rk=selected_real_kind(30) 1487#else 1488 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 1489 integer, parameter :: rk=selected_real_kind(15) 1490#endif 1491#include "nwxc_param.fh" 1492 double precision param(*) !< [Input] Parameters of functional 1493 double precision tol_rho !< [Input] The lower limit on the density 1494 integer ipol !< [Input] The number of spin channels 1495 integer nq !< [Input] The number of points 1496 double precision wght !< [Input] The weight of the functional 1497 double precision rho(nq,*) !< [Input] The density 1498 double precision rgamma(nq,*) !< [Input] The norm of the density 1499 !< gradients 1500 double precision fnc(nq) !< [Output] The value of the functional 1501c 1502c Sampling Matrices for the XC Kernel 1503c 1504 double precision Amat(nq,*) !< [Output] The derivative wrt rho 1505 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 1506c 1507c Sampling Matrices for the XC Kernel 1508c 1509 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 1510 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 1511 !< and possibly rho 1512c 1513c Sampling Matrices for the XC Kernel 1514c 1515 double precision Amat3(nq,*) !< [Output] The 3rd derivative wrt rho 1516 double precision Cmat3(nq,*) !< [Output] The 3rd derivative wrt rgamma 1517 !< and possibly rho 1518 integer iq 1519 double precision tmp 1520 double precision rhoa,rhob 1521 double precision gammaaa,gammaab,gammabb 1522 double precision taua,taub 1523 double precision nwxcm_heaviside 1524 external nwxcm_heaviside 1525CDIR$ NOVECTOR 1526 do iq = 1, nq 1527 if (ipol.eq.1) then 1528 rhoa = 0.5d0*rho(iq,R_T) 1529 gammaaa = 0.25d0*rgamma(iq,G_TT) 1530 if (rhoa.gt.tol_rho) then 1531 t1 = rhoa**1.3333333333333333d+0 1532 t2 = param(1) 1533 t3 = 1/t2 1534 t4 = param(2) 1535 t5 = 1/rhoa**2.6666666666666666d+0 1536 t6 = 1.6455307846020564d-2*gammaaa*t3*t4*t5+1.0d+0 1537 t7 = 1.0d+0-1.0d+0/t6 1538 t8 = -9.305257363491d-1*t1*t2*t7-9.305257363491d-1*t1 1539 t9 = param(4) 1540 t10 = param(5) 1541 t11 = 1/rhoa 1542 t12 = 9.305257363491d-1*t1*t2*t7+9.305257363491d-1*t1 1543 t13 = t12**5.0d-1 1544 t14 = t10**2 1545 t15 = rhoa**2 1546 t16 = 1/t15 1547 t17 = 1/t14 1548 t18 = 1/t12 1549 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 1550 t20 = t19-1.0d+0 1551 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 1552 t22 = 1/t10 1553 t23 = 1/t13 1554 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 1555 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 1556 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9-param(3)+1.0 1557 1 d+0 1558 t26 = 5.641895835477563d-1 1559 t27 = 1/t6**2 1560 t28 = 1/rhoa**2.3333333333333334d+0 1561 t29 = rhoa**3.333333333333333d-1 1562 t30 = 1.2407009817987999d+0*t2*t29*t7-4.0832233200718415d-2* 1563 1 gammaaa*t27*t28*t4+1.2407009817987999d+0*t29 1564 t31 = 1/t13**3 1565 t32 = 3.759942411946509d+0*t22*t23-1.8799712059732546d+0*rho 1566 1 a*t22*t30*t31 1567 t33 = 1/rhoa**3 1568 t34 = 1/t12**2 1569 t35 = 1.413716694115413d+1*t15*t17*t30*t34-2.827433388230826 1570 1 d+1*rhoa*t17*t18 1571 t36 = -3.536776513153214d-2*t12*t14*t16*t19*t35+t19*t35+7.07 1572 1 3553026306428d-2*t12*t14*t20*t33-3.536776513153214d-2*t14 1573 2 *t16*t20*t30 1574 t37 = 2.659615202676212d-1*t10*t11*t13*t36+3.544907701811040 1575 1 3d+0*t19*t26*t32+1.329807601338106d-1*t10*t11*t21*t23*t30 1576 2 -2.659615202676212d-1*t10*t13*t16*t21 1577 t38 = -3.5461536035682834d-1*t10*t11*t13*t37*t9-1.7730768017 1578 1 841417d-1*t10*t11*t23*t24*t30*t9+3.5461536035682834d-1*t1 1579 2 0*t13*t16*t24*t9 1580 t39 = -1.2407009817987999d+0*t2*t29*t7+4.0832233200718415d-2 1581 1 *gammaaa*t27*t28*t4-1.2407009817987999d+0*t29 1582 t40 = 1/t29 1583 t41 = 1/rhoa**3.3333333333333337d+0 1584 t42 = rhoa**6.666666666666666d-1 1585 t43 = 1/t1 1586 t44 = -7.656043725134704d-3*t18*t19*t27*t4*t43+2.16469536502 1587 1 00973d-1*t17*t19*t27*t34*t4*t42-5.415543126146093d-4*t14* 1588 2 t20*t27*t4*t41 1589 t45 = 2.659615202676212d-1*t10*t11*t13*t44-1.020447181205866 1590 1 6d-1*t19*t22*t26*t27*t31*t4*t40+2.036213028372208d-3*t10* 1591 2 t21*t23*t27*t28*t4 1592 t46 = -3.5461536035682834d-1*t10*t11*t13*t45*t9-2.7149507044 1593 1 962773d-3*t10*t23*t24*t27*t28*t4*t9 1594 t47 = t30**2 1595 t48 = 1/t13**5 1596 t49 = t4**2 1597 t50 = gammaaa**2 1598 t51 = 1/t6**3 1599 t52 = 1/rhoa**6 1600 t53 = 1/t42 1601 t54 = 4.135669939329333d-1*t2*t53*t7+4.135669939329333d-1*t5 1602 1 3-3.5835038259110563d-3*t3*t49*t50*t51*t52+4.083223320071 1603 2 8415d-2*gammaaa*t27*t4*t41 1604 t55 = -1.8799712059732546d+0*rhoa*t22*t31*t54+2.819956808959 1605 1 8814d+0*rhoa*t22*t47*t48-3.759942411946509d+0*t22*t30*t31 1606 t56 = 1/rhoa**4 1607 t57 = 1/t12**3 1608 t58 = -2.827433388230826d+1*t15*t17*t47*t57+1.41371669411541 1609 1 3d+1*t15*t17*t34*t54+5.654866776461652d+1*rhoa*t17*t30*t3 1610 2 4-2.827433388230826d+1*t17*t18 1611 t59 = t35**2 1612 t60 = -3.536776513153214d-2*t12*t14*t16*t19*t59+t19*t59-3.53 1613 1 6776513153214d-2*t12*t14*t16*t19*t58+t19*t58-2.1220659078 1614 2 919285d-1*t12*t14*t20*t56-3.536776513153214d-2*t14*t16*t2 1615 3 0*t54+1.4147106052612857d-1*t12*t14*t19*t33*t35-7.0735530 1616 4 26306428d-2*t14*t16*t19*t30*t35+1.4147106052612857d-1*t14 1617 5 *t20*t30*t33 1618 t61 = 2.659615202676212d-1*t10*t11*t13*t60+3.544907701811040 1619 1 3d+0*t19*t26*t55+1.329807601338106d-1*t10*t11*t21*t23*t54 1620 2 -6.649038006690531d-2*t10*t11*t21*t31*t47+2.6596152026762 1621 3 12d-1*t10*t11*t23*t30*t36-5.319230405352424d-1*t10*t13*t1 1622 4 6*t36+3.5449077018110403d+0*t19*t26*t32*t35+5.31923040535 1623 5 2424d-1*t10*t13*t21*t33-2.659615202676212d-1*t10*t16*t21* 1624 6 t23*t30 1625 t62 = -3.5461536035682834d-1*t10*t11*t13*t61*t9-1.7730768017 1626 1 841417d-1*t10*t11*t23*t24*t54*t9+8.865384008920708d-2*t10 1627 2 *t11*t24*t31*t47*t9-3.5461536035682834d-1*t10*t11*t23*t30 1628 3 *t37*t9+7.092307207136567d-1*t10*t13*t16*t37*t9-7.0923072 1629 4 07136567d-1*t10*t13*t24*t33*t9+3.5461536035682834d-1*t10* 1630 5 t16*t23*t24*t30*t9 1631 t63 = -4.135669939329333d-1*t2*t53*t7-4.135669939329333d-1*t 1632 1 53+3.5835038259110563d-3*t3*t49*t50*t51*t52-4.08322332007 1633 2 18415d-2*gammaaa*t27*t4*t41 1634 t64 = 1/rhoa**5 1635 t65 = 1.3438139347166464d-3*gammaaa*t3*t49*t51*t64-2.0416116 1636 1 600359205d-2*t27*t28*t4 1637 t66 = -1.8799712059732546d+0*rhoa*t22*t31*t65+4.317942526477 1638 1 637d-2*t22*t27*t30*t4*t40*t48-2.878628350985092d-2*t22*t2 1639 2 7*t31*t4*t43 1640 t67 = 1/rhoa**4.333333333333333d+0 1641 t68 = 1.413716694115413d+1*t15*t17*t34*t65-4.329390730040194 1642 1 6d-1*t17*t27*t30*t4*t42*t57+4.3293907300401946d-1*t17*t27 1643 2 *t34*t4*t40 1644 t69 = -3.536776513153214d-2*t12*t14*t16*t19*t68+t19*t68+1.08 1645 1 31086252292187d-3*t14*t20*t27*t4*t67-3.536776513153214d-2 1646 2 *t14*t16*t20*t65-7.656043725134704d-3*t18*t19*t27*t35*t4* 1647 3 t43-7.656043725134704d-3*t19*t27*t30*t34*t4*t43+2.1646953 1648 4 650200973d-1*t17*t19*t27*t34*t35*t4*t42-5.415543126146093 1649 5 d-4*t14*t19*t27*t35*t4*t41+1.5312087450269407d-2*t18*t19* 1650 6 t27*t28*t4 1651 t70 = 2.659615202676212d-1*t10*t11*t13*t69+3.544907701811040 1652 1 3d+0*t19*t26*t66+1.329807601338106d-1*t10*t11*t21*t23*t65 1653 2 +1.329807601338106d-1*t10*t11*t23*t30*t44-2.6596152026762 1654 3 12d-1*t10*t13*t16*t44+7.673645271534404d-1*t17*t19*t26*t2 1655 4 7*t32*t34*t4*t42-2.036213028372208d-3*t10*t21*t23*t27*t4* 1656 5 t41+2.036213028372208d-3*t10*t23*t27*t28*t36*t4-1.0181065 1657 6 14186104d-3*t10*t21*t27*t28*t30*t31*t4 1658 t71 = -3.5461536035682834d-1*t10*t11*t13*t70*t9-1.7730768017 1659 1 841417d-1*t10*t11*t23*t24*t65*t9-1.7730768017841417d-1*t1 1660 2 0*t11*t23*t30*t45*t9+3.5461536035682834d-1*t10*t13*t16*t4 1661 3 5*t9+2.7149507044962773d-3*t10*t23*t24*t27*t4*t41*t9-2.71 1662 4 49507044962773d-3*t10*t23*t27*t28*t37*t4*t9+1.35747535224 1663 5 81386d-3*t10*t24*t27*t28*t30*t31*t4*t9 1664 t72 = 2.0416116600359205d-2*t27*t28*t4-1.3438139347166464d-3 1665 1 *gammaaa*t3*t49*t51*t64 1666 t73 = 1/t10**3 1667 t74 = 1/t6**4 1668 t75 = 1/t13**7 1669 t76 = 1/rhoa**1.6666666666666669d+0 1670 t77 = 1/rhoa**3.6666666666666664d+0 1671 t78 = 1/t10**4 1672 t79 = 1/t12**4 1673 t80 = 4.685906023339492d-2*t1*t19*t49*t74*t78*t79-8.28650118 1674 1 3095146d-3*t17*t19*t49*t53*t57*t74-1.3552527156068805d-20 1675 2 *t19*t34*t49*t5*t74+2.519651127593712d-4*t18*t19*t3*t49*t 1676 3 51*t56+1.782288585882691d-5*t14*t20*t3*t49*t51*t52-7.1241 1677 4 45724851911d-3*t16*t17*t19*t3*t34*t49*t51 1678 t81 = 2.659615202676212d-1*t10*t11*t13*t80-1.558933597890657 1679 1 7d-5*t10*t21*t31*t49*t74*t77+2.3437764715507717d-3*t19*t2 1680 2 2*t26*t48*t49*t74*t76-2.2089572834041626d-2*t19*t26*t29*t 1681 3 49*t73*t74*t75-6.701302444388497d-5*t10*t21*t23*t3*t49*t5 1682 4 1*t64+3.3583545014692934d-3*t19*t22*t26*t3*t31*t33*t49*t5 1683 5 1+4.072426056744416d-3*t10*t23*t27*t28*t4*t44 1684 t82 = -3.5461536035682834d-1*t10*t11*t13*t81*t9+2.0785781305 1685 1 20877d-5*t10*t24*t31*t49*t74*t77*t9+8.935069925851332d-5* 1686 2 t10*t23*t24*t3*t49*t51*t64*t9-5.429901408992555d-3*t10*t2 1687 3 3*t27*t28*t4*t45*t9 1688 t83 = t30**3 1689 t84 = 1/t2**2 1690 t85 = t4**3 1691 t86 = gammaaa**3 1692 t87 = 1/rhoa**9.666666666666666d+0 1693 t88 = 1/rhoa**7 1694 t89 = 2.50845267813774d-2*t3*t49*t50*t51*t88-4.7174126898207 1695 1 14d-4*t74*t84*t85*t86*t87-2.757113292886222d-1*t2*t7*t76- 1696 2 2.757113292886222d-1*t76-1.5425510320271402d-1*gammaaa*t2 1697 3 7*t4*t67 1698 t90 = 1.413716694115413d+1*t15*t17*t34*t89+8.482300164692478 1699 1 d+1*t15*t17*t79*t83-8.482300164692478d+1*t15*t17*t30*t54* 1700 2 t57-1.6964600329384957d+2*rhoa*t17*t47*t57+8.482300164692 1701 3 478d+1*rhoa*t17*t34*t54+8.482300164692478d+1*t17*t30*t34 1702 t91 = t35**3 1703 t92 = 1/rhoa**8.666666666666666d+0 1704 t93 = 1.7690297586827677d-4*t50*t74*t84*t85*t92-8.5108215865 1705 1 3876d-3*gammaaa*t3*t49*t51*t52+4.7637605400838157d-2*t27* 1706 2 t4*t41 1707 t94 = 1/rhoa**5.333333333333333d+0 1708 t95 = 1.413716694115413d+1*t15*t17*t34*t93+1.298817219012058 1709 1 4d+0*t17*t27*t4*t42*t47*t79-5.654866776461652d+1*t15*t17* 1710 2 t30*t57*t65+5.654866776461652d+1*rhoa*t17*t34*t65-4.32939 1711 3 07300401946d-1*t17*t27*t4*t42*t54*t57-1.7317562920160778d 1712 4 +0*t17*t27*t30*t4*t40*t57+4.3293907300401946d-1*t17*t27*t 1713 5 34*t4*t43 1714 t96 = 1/rhoa**7.666666666666667d+0 1715 t97 = 2.0157209020749695d-3*t3*t49*t51*t64-6.633861595060381 1716 1 d-5*gammaaa*t74*t84*t85*t96 1717 t98 = 1/rhoa**4.666666666666667d+0 1718 t99 = 1.413716694115413d+1*t15*t17*t34*t97+1.988760283942835 1719 1 3d-2*t17*t30*t49*t53*t74*t79-1.3258401892952237d-2*t17*t4 1720 2 9*t57*t74*t76-8.658781460080389d-1*t17*t27*t4*t42*t57*t65 1721 3 +1.4248291449703823d-2*t16*t17*t3*t30*t49*t51*t57-1.42482 1722 4 91449703823d-2*t17*t3*t33*t34*t49*t51 1723 t100 = 1/t6**6 1724 t101 = 1/t6**5 1725 t102 = 1/rhoa**6.333333333333333d+0 1726 t103 = 1/rhoa**6.666666666666667d+0 1727 fnc(iq) = 2.0d+0*t25*t8*wght+fnc(iq) 1728 Amat(iq,D1_RA) = (1.0d+0*t38*t8+1.0d+0*t25*t39)*wght+Amat(iq 1729 1 ,D1_RA) 1730 Cmat(iq,D1_GAA) = (1.0d+0*t46*t8-1.531208745026941d-2*t25*t2 1731 1 7*t4*t43)*wght+Cmat(iq,D1_GAA) 1732 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 1733 Amat2(iq,D2_RA_RA) = (1.0d+0*t62*t8+1.0d+0*t25*t63+2.0d+0*t3 1734 1 8*t39)*wght+Amat2(iq,D2_RA_RA) 1735 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 1736 Cmat2(iq,D2_RA_GAA) = (1.0d+0*t71*t8+1.0d+0*t25*t72+1.0d+0*t 1737 1 39*t46-1.531208745026941d-2*t27*t38*t4*t43)*wght+Cmat2(iq 1738 2 ,D2_RA_GAA) 1739 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 1740 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 1741 Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t8*t82+5.039302255187424d-4*t 1742 1 25*t3*t49*t51*t56-3.062417490053882d-2*t27*t4*t43*t46)*wg 1743 2 ht+Cmat2(iq,D2_GAA_GAA) 1744 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 1745 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 1746 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 1747 Amat3(iq,D3_RA_RA_RA) = (1.0d+0*t8*(-3.5461536035682834d-1*t 1748 1 10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.53677 1749 2 6513153214d-2*t12*t14*t16*t19*t91+t19*t91-3.5367765131532 1750 3 14d-2*t12*t14*t16*t19*t90+t19*t90-3.536776513153214d-2*t1 1751 4 4*t16*t20*t89+8.488263631567714d-1*t12*t14*t20*t64+2.1220 1752 5 659078919285d-1*t12*t14*t19*t33*t59-1.0610329539459643d-1 1753 6 *t14*t16*t19*t30*t59-1.0610329539459643d-1*t12*t14*t16*t1 1754 7 9*t35*t58+3*t19*t35*t58+2.1220659078919285d-1*t12*t14*t19 1755 8 *t33*t58-1.0610329539459643d-1*t14*t16*t19*t30*t58-6.3661 1756 9 97723675786d-1*t12*t14*t19*t35*t56-6.366197723675786d-1*t 1757 : 14*t20*t30*t56-1.0610329539459643d-1*t14*t16*t19*t35*t54+ 1758 ; 2.1220659078919285d-1*t14*t20*t33*t54+4.244131815783857d- 1759 < 1*t14*t19*t30*t33*t35)+3.5449077018110403d+0*t19*t26*(-1. 1760 = 8799712059732546d+0*rhoa*t22*t31*t89-7.049892022399704d+0 1761 > *rhoa*t22*t75*t83+8.459870426879645d+0*rhoa*t22*t30*t48*t 1762 ? 54-5.639913617919763d+0*t22*t31*t54+8.459870426879645d+0* 1763 @ t22*t47*t48)+1.329807601338106d-1*t10*t11*t21*t23*t89+9.9 1764 1 73557010035795d-2*t10*t11*t21*t48*t83+3.989422804014318d- 1765 2 1*t10*t11*t23*t30*t60-7.978845608028636d-1*t10*t13*t16*t6 1766 3 0+3.5449077018110403d+0*t19*t26*t32*t59+3.544907701811040 1767 4 3d+0*t19*t26*t32*t58-1.5957691216057274d+0*t10*t13*t21*t5 1768 5 6+7.089815403622081d+0*t19*t26*t35*t55+3.989422804014318d 1769 6 -1*t10*t11*t23*t36*t54-1.994711402007159d-1*t10*t11*t21*t 1770 7 30*t31*t54-3.989422804014318d-1*t10*t16*t21*t23*t54-1.994 1771 8 711402007159d-1*t10*t11*t31*t36*t47+1.994711402007159d-1* 1772 9 t10*t16*t21*t31*t47+1.5957691216057274d+0*t10*t13*t33*t36 1773 : -7.978845608028636d-1*t10*t16*t23*t30*t36+7.9788456080286 1774 ; 36d-1*t10*t21*t23*t30*t33)-1.7730768017841417d-1*t10*t11* 1775 < t23*t24*t89*t9-1.3298076013381063d-1*t10*t11*t24*t48*t83* 1776 = t9-5.319230405352425d-1*t10*t11*t23*t30*t61*t9+1.06384608 1777 > 1070485d+0*t10*t13*t16*t61*t9+2.12769216214097d+0*t10*t13 1778 ? *t24*t56*t9-5.319230405352425d-1*t10*t11*t23*t37*t54*t9+2 1779 @ .6596152026762127d-1*t10*t11*t24*t30*t31*t54*t9+5.3192304 1780 1 05352425d-1*t10*t16*t23*t24*t54*t9+2.6596152026762127d-1* 1781 2 t10*t11*t31*t37*t47*t9-2.6596152026762127d-1*t10*t16*t24* 1782 3 t31*t47*t9-2.12769216214097d+0*t10*t13*t33*t37*t9+1.06384 1783 4 6081070485d+0*t10*t16*t23*t30*t37*t9-1.063846081070485d+0 1784 5 *t10*t23*t24*t30*t33*t9)+1.0d+0*t25*(-2.50845267813774d-2 1785 6 *t3*t49*t50*t51*t88+4.717412689820714d-4*t74*t84*t85*t86* 1786 7 t87+2.757113292886222d-1*t2*t7*t76+2.757113292886222d-1*t 1787 8 76+1.5425510320271402d-1*gammaaa*t27*t4*t67)+3.0d+0*t38*t 1788 9 63+3.0d+0*t39*t62)*wght+Amat3(iq,D3_RA_RA_RA) 1789 Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB) 1790 Cmat3(iq,D3_RA_RA_GAA) = (1.0d+0*t8*(-3.5461536035682834d-1* 1791 1 t10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.5367 1792 2 76513153214d-2*t12*t14*t16*t19*t95+t19*t95-3.249325875687 1793 3 656d-3*t14*t20*t27*t4*t94-3.536776513153214d-2*t14*t16*t2 1794 4 0*t93-7.073553026306428d-2*t12*t14*t16*t19*t35*t68+2*t19* 1795 5 t35*t68+1.4147106052612857d-1*t12*t14*t19*t33*t68-7.07355 1796 6 3026306428d-2*t14*t16*t19*t30*t68+2.1662172504584373d-3*t 1797 7 14*t19*t27*t35*t4*t67-7.073553026306428d-2*t14*t16*t19*t3 1798 8 5*t65+1.4147106052612857d-1*t14*t20*t33*t65-7.65604372513 1799 9 4704d-3*t18*t19*t27*t4*t43*t59+2.1646953650200973d-1*t17* 1800 : t19*t27*t34*t4*t42*t59-5.415543126146093d-4*t14*t19*t27*t 1801 ; 4*t41*t59-7.656043725134704d-3*t18*t19*t27*t4*t43*t58+2.1 1802 < 646953650200973d-1*t17*t19*t27*t34*t4*t42*t58-5.415543126 1803 = 146093d-4*t14*t19*t27*t4*t41*t58-7.656043725134704d-3*t19 1804 > *t27*t34*t4*t43*t54-1.5312087450269407d-2*t19*t27*t30*t34 1805 ? *t35*t4*t43-4.593626235080822d-2*t18*t19*t27*t4*t41+3.062 1806 @ 4174900538814d-2*t18*t19*t27*t28*t35*t4+3.062417490053881 1807 1 4d-2*t19*t27*t28*t30*t34*t4)+3.5449077018110403d+0*t19*t2 1808 2 6*(-1.8799712059732546d+0*rhoa*t22*t31*t93-1.079485631619 1809 3 4094d-1*t22*t27*t4*t40*t47*t75+5.639913617919763d+0*rhoa* 1810 4 t22*t30*t48*t65-3.759942411946509d+0*t22*t31*t65+4.317942 1811 5 526477637d-2*t22*t27*t4*t40*t48*t54+8.635885052955274d-2* 1812 6 t22*t27*t30*t4*t43*t48)+1.329807601338106d-1*t10*t11*t21* 1813 7 t23*t93+2.659615202676212d-1*t10*t11*t23*t30*t69-5.319230 1814 8 405352424d-1*t10*t13*t16*t69+3.5449077018110403d+0*t19*t2 1815 9 6*t32*t68+4.072426056744416d-3*t10*t21*t23*t27*t4*t67+3.5 1816 : 449077018110403d+0*t19*t26*t35*t66+2.659615202676212d-1*t 1817 ; 10*t11*t23*t36*t65-1.329807601338106d-1*t10*t11*t21*t30*t 1818 < 31*t65-2.659615202676212d-1*t10*t16*t21*t23*t65+2.0362130 1819 = 28372208d-3*t10*t23*t27*t28*t4*t60+7.673645271534404d-1*t 1820 > 17*t19*t26*t27*t34*t4*t42*t55+1.329807601338106d-1*t10*t1 1821 ? 1*t23*t44*t54-1.018106514186104d-3*t10*t21*t27*t28*t31*t4 1822 @ *t54+1.527159771279156d-3*t10*t21*t27*t28*t4*t47*t48-6.64 1823 1 9038006690531d-2*t10*t11*t31*t44*t47+5.319230405352424d-1 1824 2 *t10*t13*t33*t44-2.659615202676212d-1*t10*t16*t23*t30*t44 1825 3 +7.673645271534404d-1*t17*t19*t26*t27*t32*t34*t35*t4*t42- 1826 4 4.072426056744416d-3*t10*t23*t27*t36*t4*t41+2.03621302837 1827 5 2208d-3*t10*t21*t27*t30*t31*t4*t41-2.036213028372208d-3*t 1828 6 10*t27*t28*t30*t31*t36*t4)-1.7730768017841417d-1*t10*t11* 1829 7 t23*t24*t9*t93-3.5461536035682834d-1*t10*t11*t23*t30*t70* 1830 8 t9+7.092307207136567d-1*t10*t13*t16*t70*t9-5.429901408992 1831 9 555d-3*t10*t23*t24*t27*t4*t67*t9-3.5461536035682834d-1*t1 1832 : 0*t11*t23*t37*t65*t9+1.7730768017841417d-1*t10*t11*t24*t3 1833 ; 0*t31*t65*t9+3.5461536035682834d-1*t10*t16*t23*t24*t65*t9 1834 < -2.7149507044962773d-3*t10*t23*t27*t28*t4*t61*t9-1.773076 1835 = 8017841417d-1*t10*t11*t23*t45*t54*t9+1.3574753522481386d- 1836 > 3*t10*t24*t27*t28*t31*t4*t54*t9-2.036213028372208d-3*t10* 1837 ? t24*t27*t28*t4*t47*t48*t9+8.865384008920708d-2*t10*t11*t3 1838 @ 1*t45*t47*t9-7.092307207136567d-1*t10*t13*t33*t45*t9+3.54 1839 1 61536035682834d-1*t10*t16*t23*t30*t45*t9+5.42990140899255 1840 2 5d-3*t10*t23*t27*t37*t4*t41*t9-2.7149507044962773d-3*t10* 1841 3 t24*t27*t30*t31*t4*t41*t9+2.7149507044962773d-3*t10*t27*t 1842 4 28*t30*t31*t37*t4*t9)+1.0d+0*t25*(-1.7690297586827677d-4* 1843 5 t50*t74*t84*t85*t92+8.51082158653876d-3*gammaaa*t3*t49*t5 1844 6 1*t52-4.7637605400838157d-2*t27*t4*t41)+2.0d+0*t38*t72+2. 1845 7 0d+0*t39*t71+1.0d+0*t46*t63-1.531208745026941d-2*t27*t4*t 1846 8 43*t62)*wght+Cmat3(iq,D3_RA_RA_GAA) 1847 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 1848 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 1849 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 1850 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 1851 Cmat3(iq,D3_RA_GAA_GAA) = (1.0d+0*t8*(-3.5461536035682834d-1 1852 1 *t10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.536 1853 2 776513153214d-2*t12*t14*t16*t19*t99+t19*t99-3.53677651315 1854 3 3214d-2*t14*t16*t20*t97-3.564577171765382d-5*t14*t20*t3*t 1855 4 49*t51*t88+4.685906023339492d-2*t1*t19*t35*t49*t74*t78*t7 1856 5 9-1.6573002366190293d-3*t17*t19*t30*t49*t53*t74*t79+2.710 1857 6 505431213761d-20*t19*t34*t49*t74*t77+3.3146004732380585d- 1858 7 3*t17*t19*t49*t57*t74*t76-8.286501183095146d-3*t17*t19*t3 1859 8 5*t49*t53*t57*t74+2.344600220846979d-4*t19*t30*t49*t5*t57 1860 9 *t74-1.3552527156068805d-20*t19*t34*t35*t49*t5*t74-1.5312 1861 : 087450269407d-2*t18*t19*t27*t4*t43*t68+4.3293907300401946 1862 ; d-1*t17*t19*t27*t34*t4*t42*t68-1.0831086252292187d-3*t14* 1863 < t19*t27*t4*t41*t68-1.5312087450269407d-2*t19*t27*t34*t4*t 1864 = 43*t65-5.039302255187424d-4*t18*t19*t3*t49*t51*t64+2.5196 1865 > 51127593712d-4*t18*t19*t3*t35*t49*t51*t56+2.5196511275937 1866 ? 12d-4*t19*t3*t30*t34*t49*t51*t56+1.782288585882691d-5*t14 1867 @ *t19*t3*t35*t49*t51*t52-7.124145724851911d-3*t16*t17*t19* 1868 1 t3*t34*t35*t49*t51)+1.5589335978906577d-5*t10*t21*t31*t49 1869 2 *t74*t98+3.5449077018110403d+0*t19*t26*(-1.87997120597325 1870 3 46d+0*rhoa*t22*t31*t97-1.6529178392665705d-3*t22*t30*t49* 1871 4 t74*t75*t76+6.611671357066283d-4*t22*t48*t49*t5*t74+8.635 1872 5 885052955274d-2*t22*t27*t4*t40*t48*t65+9.473743137948445d 1873 6 -4*t22*t3*t31*t49*t51*t56-1.4210614706922667d-3*t22*t3*t3 1874 7 0*t33*t48*t49*t51)+1.329807601338106d-1*t10*t11*t21*t23*t 1875 8 97+1.329807601338106d-1*t10*t11*t23*t30*t80-2.65961520267 1876 9 6212d-1*t10*t13*t16*t80+1.661110435209891d-1*t1*t19*t26*t 1877 : 32*t49*t74*t78*t79+2.3384003968359865d-5*t10*t21*t30*t48* 1878 ; t49*t74*t77-1.5589335978906577d-5*t10*t31*t36*t49*t74*t77 1879 < -2.3499905492016226d-2*t17*t19*t26*t32*t49*t53*t57*t74+4. 1880 = 072426056744416d-3*t10*t23*t27*t28*t4*t69+1.5347290543068 1881 > 81d+0*t17*t19*t26*t27*t34*t4*t42*t66+2.659615202676212d-1 1882 ? *t10*t11*t23*t44*t65-2.036213028372208d-3*t10*t21*t27*t28 1883 @ *t31*t4*t65-6.701302444388497d-5*t10*t23*t3*t36*t49*t51*t 1884 1 64+3.3506512221942486d-5*t10*t21*t3*t30*t31*t49*t51*t64+6 1885 2 .701302444388497d-5*t10*t21*t23*t3*t49*t51*t52-2.52544390 1886 3 4885174d-2*t16*t17*t19*t26*t3*t32*t34*t49*t51-4.072426056 1887 4 744416d-3*t10*t23*t27*t4*t41*t44-2.036213028372208d-3*t10 1888 5 *t27*t28*t30*t31*t4*t44)-2.078578130520877d-5*t10*t24*t31 1889 6 *t49*t74*t9*t98-1.7730768017841417d-1*t10*t11*t23*t24*t9* 1890 7 t97-1.7730768017841417d-1*t10*t11*t23*t30*t81*t9+3.546153 1891 8 6035682834d-1*t10*t13*t16*t81*t9-3.1178671957813153d-5*t1 1892 9 0*t24*t30*t48*t49*t74*t77*t9+2.078578130520877d-5*t10*t31 1893 : *t37*t49*t74*t77*t9-5.429901408992555d-3*t10*t23*t27*t28* 1894 ; t4*t70*t9-3.5461536035682834d-1*t10*t11*t23*t45*t65*t9+2. 1895 < 7149507044962773d-3*t10*t24*t27*t28*t31*t4*t65*t9+8.93506 1896 = 9925851332d-5*t10*t23*t3*t37*t49*t51*t64*t9-4.46753496292 1897 > 5666d-5*t10*t24*t3*t30*t31*t49*t51*t64*t9-8.9350699258513 1898 ? 32d-5*t10*t23*t24*t3*t49*t51*t52*t9+5.429901408992555d-3* 1899 @ t10*t23*t27*t4*t41*t45*t9+2.7149507044962773d-3*t10*t27*t 1900 1 28*t30*t31*t4*t45*t9)+1.0d+0*t25*(6.633861595060381d-5*ga 1901 2 mmaaa*t74*t84*t85*t96-2.0157209020749695d-3*t3*t49*t51*t6 1902 3 4)+1.0d+0*t39*t82+2.0d+0*t46*t72-3.062417490053882d-2*t27 1903 4 *t4*t43*t71+5.039302255187424d-4*t3*t38*t49*t51*t56)*wght 1904 5 +Cmat3(iq,D3_RA_GAA_GAA) 1905 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 1906 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 1907 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 1908 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 1909 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 1910 Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*t8*(-3.5461536035682834d- 1911 1 1*t10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(3.516 1912 2 9003312704855d-4*t17*t19*t34*t74*t84*t85*t98+1.6940658945 1913 3 086007d-21*t101*t19*t3*t34*t85*t94-8.798432205344503d-7*t 1914 4 14*t20*t74*t84*t85*t92-1.2438490490738213d-5*t103*t18*t19 1915 5 *t74*t84*t85-4.6264815690944017d-3*t101*t19*t3*t43*t78*t7 1916 6 9*t85+3.8065089231694144d-4*t100*t16*t17*t19*t79*t85-4.66 1917 7 3815182852701d-3*t100*t19*t78*t85/t12**5+4.15034961971753 1918 8 05d-22*t100*t19*t56*t57*t85+8.181415676054655d-4*t101*t17 1919 9 *t19*t3*t41*t57*t85+1.0143559049642756d-2*t100*t15*t19*t8 1920 : 5/(t10**6*t12**6))+3.3081598407510854d-6*t10*t21*t23*t74* 1921 ; t84*t85*t96-1.6578827153323844d-4*t19*t22*t26*t31*t74*t84 1922 < *t85/rhoa**5.666666666666667d+0+2.1809443270274873d-3*t10 1923 = 1*t19*t26*t28*t3*t73*t75*t85-8.972027574067322d-5*t100*t1 1924 > 9*t22*t26*t33*t75*t85+1.6911873548697043d-3*t100*t11*t19* 1925 ? t26*t73*t85/t13**9-2.3140538016976683d-4*t101*t19*t22*t26 1926 @ *t3*t48*t67*t85+3.580579137009732d-7*t10*t100*t21*t48*t64 1927 1 *t85+1.5391639358877124d-6*t10*t101*t102*t21*t3*t31*t85-4 1928 2 .781719592912377d-3*rhoa*t100*t19*t26*t85/(t10**5*t13**11 1929 3 )+6.108639085116625d-3*t10*t23*t27*t28*t4*t80-4.676800793 1930 4 671973d-5*t10*t31*t44*t49*t74*t77-2.0103907333165494d-4*t 1931 5 10*t23*t3*t44*t49*t51*t64)-4.4108797876681144d-6*t10*t23* 1932 6 t24*t74*t84*t85*t9*t96-4.774105516012976d-7*t10*t100*t24* 1933 7 t48*t64*t85*t9-2.052218581183617d-6*t10*t101*t102*t24*t3* 1934 8 t31*t85*t9-8.144852113488832d-3*t10*t23*t27*t28*t4*t81*t9 1935 9 +6.235734391562631d-5*t10*t31*t45*t49*t74*t77*t9+2.680520 1936 : 9777553995d-4*t10*t23*t3*t45*t49*t51*t64*t9)-2.4876980981 1937 ; 476426d-5*t103*t25*t74*t84*t85-4.5936262350808227d-2*t27* 1938 < t4*t43*t82+1.5117906765562272d-3*t3*t46*t49*t51*t56)*wght 1939 = +Cmat3(iq,D3_GAA_GAA_GAA) 1940 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 1941 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 1942 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 1943 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 1944 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 1945 endif ! rhoa.gt.tol_rho 1946 else ! ipol.eq.1 1947 rhoa = rho(iq,R_A) 1948 rhob = rho(iq,R_B) 1949 gammaaa = rgamma(iq,G_AA) 1950 gammaab = rgamma(iq,G_AB) 1951 gammabb = rgamma(iq,G_BB) 1952 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 1953 t1 = rhoa**1.3333333333333333d+0 1954 t2 = param(1) 1955 t3 = 1/t2 1956 t4 = param(2) 1957 t5 = 1/rhoa**2.6666666666666666d+0 1958 t6 = 1.6455307846020564d-2*gammaaa*t3*t4*t5+1.0d+0 1959 t7 = 1.0d+0-1.0d+0/t6 1960 t8 = -9.305257363491d-1*t1*t2*t7-9.305257363491d-1*t1 1961 t9 = -param(3) 1962 t10 = param(4) 1963 t11 = param(5) 1964 t12 = 1/rhoa 1965 t13 = 9.305257363491d-1*t1*t2*t7+9.305257363491d-1*t1 1966 t14 = t13**5.0d-1 1967 t15 = t11**2 1968 t16 = rhoa**2 1969 t17 = 1/t16 1970 t18 = 1/t15 1971 t19 = 1/t13 1972 t20 = exp(-1.413716694115413d+1*t16*t18*t19) 1973 t21 = t20-1.0d+0 1974 t22 = -3.536776513153214d-2*t13*t15*t17*t21+t20-1.5d+0 1975 t23 = 1/t11 1976 t24 = 1/t14 1977 t25 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 1978 1 3*t24)+2.659615202676212d-1*t11*t12*t14*t22 1979 t26 = t9-3.5461536035682834d-1*t10*t11*t12*t14*t25+1.0d+0 1980 t27 = rhob**1.3333333333333333d+0 1981 t28 = 1/rhob**2.6666666666666666d+0 1982 t29 = 1.6455307846020564d-2*gammabb*t28*t3*t4+1.0d+0 1983 t30 = 1.0d+0-1.0d+0/t29 1984 t31 = -9.305257363491d-1*t2*t27*t30-9.305257363491d-1*t27 1985 t32 = 1/rhob 1986 t33 = 9.305257363491d-1*t2*t27*t30+9.305257363491d-1*t27 1987 t34 = t33**5.0d-1 1988 t35 = rhob**2 1989 t36 = 1/t35 1990 t37 = 1/t33 1991 t38 = exp(-1.413716694115413d+1*t18*t35*t37) 1992 t39 = t38-1.0d+0 1993 t40 = -3.536776513153214d-2*t15*t33*t36*t39+t38-1.5d+0 1994 t41 = 1/t34 1995 t42 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 1996 1 3*t41)+2.659615202676212d-1*t11*t32*t34*t40 1997 t43 = t9-3.5461536035682834d-1*t10*t11*t32*t34*t42+1.0d+0 1998 t44 = 5.641895835477563d-1 1999 t45 = 1/t6**2 2000 t46 = 1/rhoa**2.3333333333333334d+0 2001 t47 = rhoa**3.333333333333333d-1 2002 t48 = 1.2407009817987999d+0*t2*t47*t7+1.2407009817987999d+0* 2003 1 t47-4.0832233200718415d-2*gammaaa*t4*t45*t46 2004 t49 = 1/t14**3 2005 t50 = 3.759942411946509d+0*t23*t24-1.8799712059732546d+0*rho 2006 1 a*t23*t48*t49 2007 t51 = 1/rhoa**3 2008 t52 = 1/t13**2 2009 t53 = 1.413716694115413d+1*t16*t18*t48*t52-2.827433388230826 2010 1 d+1*rhoa*t18*t19 2011 t54 = -3.536776513153214d-2*t13*t15*t17*t20*t53+t20*t53+7.07 2012 1 3553026306428d-2*t13*t15*t21*t51-3.536776513153214d-2*t15 2013 2 *t17*t21*t48 2014 t55 = 2.659615202676212d-1*t11*t12*t14*t54+3.544907701811040 2015 1 3d+0*t20*t44*t50+1.329807601338106d-1*t11*t12*t22*t24*t48 2016 2 -2.659615202676212d-1*t11*t14*t17*t22 2017 t56 = -3.5461536035682834d-1*t10*t11*t12*t14*t55-1.773076801 2018 1 7841417d-1*t10*t11*t12*t24*t25*t48+3.5461536035682834d-1* 2019 2 t10*t11*t14*t17*t25 2020 t57 = -1.2407009817987999d+0*t2*t47*t7-1.2407009817987999d+0 2021 1 *t47+4.0832233200718415d-2*gammaaa*t4*t45*t46 2022 t58 = 1/t29**2 2023 t59 = 1/rhob**2.3333333333333334d+0 2024 t60 = rhob**3.333333333333333d-1 2025 t61 = 1.2407009817987999d+0*t2*t30*t60+1.2407009817987999d+0 2026 1 *t60-4.0832233200718415d-2*gammabb*t4*t58*t59 2027 t62 = 1/t34**3 2028 t63 = 3.759942411946509d+0*t23*t41-1.8799712059732546d+0*rho 2029 1 b*t23*t61*t62 2030 t64 = 1/rhob**3 2031 t65 = 1/t33**2 2032 t66 = 1.413716694115413d+1*t18*t35*t61*t65-2.827433388230826 2033 1 d+1*rhob*t18*t37 2034 t67 = -3.536776513153214d-2*t15*t33*t36*t38*t66+t38*t66+7.07 2035 1 3553026306428d-2*t15*t33*t39*t64-3.536776513153214d-2*t15 2036 2 *t36*t39*t61 2037 t68 = 2.659615202676212d-1*t11*t32*t34*t67+3.544907701811040 2038 1 3d+0*t38*t44*t63+1.329807601338106d-1*t11*t32*t40*t41*t61 2039 2 -2.659615202676212d-1*t11*t34*t36*t40 2040 t69 = -3.5461536035682834d-1*t10*t11*t32*t34*t68-1.773076801 2041 1 7841417d-1*t10*t11*t32*t41*t42*t61+3.5461536035682834d-1* 2042 2 t10*t11*t34*t36*t42 2043 t70 = -1.2407009817987999d+0*t2*t30*t60-1.2407009817987999d+ 2044 1 0*t60+4.0832233200718415d-2*gammabb*t4*t58*t59 2045 t71 = 1/t47 2046 t72 = 1/rhoa**3.3333333333333337d+0 2047 t73 = rhoa**6.666666666666666d-1 2048 t74 = 1/t1 2049 t75 = -7.656043725134704d-3*t19*t20*t4*t45*t74+2.16469536502 2050 1 00973d-1*t18*t20*t4*t45*t52*t73-5.415543126146093d-4*t15* 2051 2 t21*t4*t45*t72 2052 t76 = 2.659615202676212d-1*t11*t12*t14*t75-1.020447181205866 2053 1 6d-1*t20*t23*t4*t44*t45*t49*t71+2.036213028372208d-3*t11* 2054 2 t22*t24*t4*t45*t46 2055 t77 = -3.5461536035682834d-1*t10*t11*t12*t14*t76-2.714950704 2056 1 4962773d-3*t10*t11*t24*t25*t4*t45*t46 2057 t78 = 1/t60 2058 t79 = 1/rhob**3.3333333333333337d+0 2059 t80 = rhob**6.666666666666666d-1 2060 t81 = 1/t27 2061 t82 = -7.656043725134704d-3*t37*t38*t4*t58*t81+2.16469536502 2062 1 00973d-1*t18*t38*t4*t58*t65*t80-5.415543126146093d-4*t15* 2063 2 t39*t4*t58*t79 2064 t83 = 2.659615202676212d-1*t11*t32*t34*t82-1.020447181205866 2065 1 6d-1*t23*t38*t4*t44*t58*t62*t78+2.036213028372208d-3*t11* 2066 2 t4*t40*t41*t58*t59 2067 t84 = -3.5461536035682834d-1*t10*t11*t32*t34*t83-2.714950704 2068 1 4962773d-3*t10*t11*t4*t41*t42*t58*t59 2069 t85 = t48**2 2070 t86 = 1/t14**5 2071 t87 = t4**2 2072 t88 = gammaaa**2 2073 t89 = 1/t6**3 2074 t90 = 1/rhoa**6 2075 t91 = 1/t73 2076 t92 = 4.135669939329333d-1*t2*t7*t91+4.135669939329333d-1*t9 2077 1 1-3.5835038259110563d-3*t3*t87*t88*t89*t90+4.083223320071 2078 2 8415d-2*gammaaa*t4*t45*t72 2079 t93 = -1.8799712059732546d+0*rhoa*t23*t49*t92+2.819956808959 2080 1 8814d+0*rhoa*t23*t85*t86-3.759942411946509d+0*t23*t48*t49 2081 t94 = 1/rhoa**4 2082 t95 = 1/t13**3 2083 t96 = -2.827433388230826d+1*t16*t18*t85*t95+1.41371669411541 2084 1 3d+1*t16*t18*t52*t92+5.654866776461652d+1*rhoa*t18*t48*t5 2085 2 2-2.827433388230826d+1*t18*t19 2086 t97 = t53**2 2087 t98 = -3.536776513153214d-2*t13*t15*t17*t20*t97+t20*t97-3.53 2088 1 6776513153214d-2*t13*t15*t17*t20*t96+t20*t96-2.1220659078 2089 2 919285d-1*t13*t15*t21*t94-3.536776513153214d-2*t15*t17*t2 2090 3 1*t92+1.4147106052612857d-1*t13*t15*t20*t51*t53-7.0735530 2091 4 26306428d-2*t15*t17*t20*t48*t53+1.4147106052612857d-1*t15 2092 5 *t21*t48*t51 2093 t99 = 2.659615202676212d-1*t11*t12*t14*t98+3.544907701811040 2094 1 3d+0*t20*t44*t93+1.329807601338106d-1*t11*t12*t22*t24*t92 2095 2 -6.649038006690531d-2*t11*t12*t22*t49*t85+2.6596152026762 2096 3 12d-1*t11*t12*t24*t48*t54-5.319230405352424d-1*t11*t14*t1 2097 4 7*t54+3.5449077018110403d+0*t20*t44*t50*t53+5.31923040535 2098 5 2424d-1*t11*t14*t22*t51-2.659615202676212d-1*t11*t17*t22* 2099 6 t24*t48 2100 t100 = -3.5461536035682834d-1*t10*t11*t12*t14*t99-1.77307680 2101 1 17841417d-1*t10*t11*t12*t24*t25*t92+8.865384008920708d-2* 2102 2 t10*t11*t12*t25*t49*t85-3.5461536035682834d-1*t10*t11*t12 2103 3 *t24*t48*t55+7.092307207136567d-1*t10*t11*t14*t17*t55-7.0 2104 4 92307207136567d-1*t10*t11*t14*t25*t51+3.5461536035682834d 2105 5 -1*t10*t11*t17*t24*t25*t48 2106 t101 = -4.135669939329333d-1*t2*t7*t91-4.135669939329333d-1* 2107 1 t91+3.5835038259110563d-3*t3*t87*t88*t89*t90-4.0832233200 2108 2 718415d-2*gammaaa*t4*t45*t72 2109 t102 = t61**2 2110 t103 = 1/t34**5 2111 t104 = gammabb**2 2112 t105 = 1/t29**3 2113 t106 = 1/rhob**6 2114 t107 = 1/t80 2115 t108 = -3.5835038259110563d-3*t104*t105*t106*t3*t87+4.083223 2116 1 3200718415d-2*gammabb*t4*t58*t79+4.135669939329333d-1*t10 2117 2 7*t2*t30+4.135669939329333d-1*t107 2118 t109 = -3.759942411946509d+0*t23*t61*t62-1.8799712059732546d 2119 1 +0*rhob*t108*t23*t62+2.8199568089598814d+0*rhob*t102*t103 2120 2 *t23 2121 t110 = 1/rhob**4 2122 t111 = 1/t33**3 2123 t112 = 5.654866776461652d+1*rhob*t18*t61*t65+1.4137166941154 2124 1 13d+1*t108*t18*t35*t65-2.827433388230826d+1*t18*t37-2.827 2125 2 433388230826d+1*t102*t111*t18*t35 2126 t113 = t66**2 2127 t114 = 1.4147106052612857d-1*t15*t33*t38*t64*t66-7.073553026 2128 1 306428d-2*t15*t36*t38*t61*t66+1.4147106052612857d-1*t15*t 2129 2 39*t61*t64-3.536776513153214d-2*t108*t15*t36*t39-2.122065 2130 3 9078919285d-1*t110*t15*t33*t39-3.536776513153214d-2*t113* 2131 4 t15*t33*t36*t38-3.536776513153214d-2*t112*t15*t33*t36*t38 2132 5 +t113*t38+t112*t38 2133 t115 = 2.659615202676212d-1*t11*t32*t41*t61*t67-5.3192304053 2134 1 52424d-1*t11*t34*t36*t67+3.5449077018110403d+0*t38*t44*t6 2135 2 3*t66+5.319230405352424d-1*t11*t34*t40*t64-6.649038006690 2136 3 531d-2*t102*t11*t32*t40*t62-2.659615202676212d-1*t11*t36* 2137 4 t40*t41*t61+3.5449077018110403d+0*t109*t38*t44+1.32980760 2138 5 1338106d-1*t108*t11*t32*t40*t41+2.659615202676212d-1*t11* 2139 6 t114*t32*t34 2140 t116 = -3.5461536035682834d-1*t10*t11*t32*t41*t61*t68+7.0923 2141 1 07207136567d-1*t10*t11*t34*t36*t68-7.092307207136567d-1*t 2142 2 10*t11*t34*t42*t64+8.865384008920708d-2*t10*t102*t11*t32* 2143 3 t42*t62+3.5461536035682834d-1*t10*t11*t36*t41*t42*t61-1.7 2144 4 730768017841417d-1*t10*t108*t11*t32*t41*t42-3.54615360356 2145 5 82834d-1*t10*t11*t115*t32*t34 2146 t117 = 3.5835038259110563d-3*t104*t105*t106*t3*t87-4.0832233 2147 1 200718415d-2*gammabb*t4*t58*t79-4.135669939329333d-1*t107 2148 2 *t2*t30-4.135669939329333d-1*t107 2149 t118 = 1/rhoa**5 2150 t119 = 1.3438139347166464d-3*gammaaa*t118*t3*t87*t89-2.04161 2151 1 16600359205d-2*t4*t45*t46 2152 t120 = 4.317942526477637d-2*t23*t4*t45*t48*t71*t86-2.8786283 2153 1 50985092d-2*t23*t4*t45*t49*t74-1.8799712059732546d+0*rhoa 2154 2 *t119*t23*t49 2155 t121 = 1/rhoa**4.333333333333333d+0 2156 t122 = -4.3293907300401946d-1*t18*t4*t45*t48*t73*t95+4.32939 2157 1 07300401946d-1*t18*t4*t45*t52*t71+1.413716694115413d+1*t1 2158 2 19*t16*t18*t52 2159 t123 = -7.656043725134704d-3*t19*t20*t4*t45*t53*t74-7.656043 2160 1 725134704d-3*t20*t4*t45*t48*t52*t74+2.1646953650200973d-1 2161 2 *t18*t20*t4*t45*t52*t53*t73-5.415543126146093d-4*t15*t20* 2162 3 t4*t45*t53*t72+1.5312087450269407d-2*t19*t20*t4*t45*t46+1 2163 4 .0831086252292187d-3*t121*t15*t21*t4*t45-3.53677651315321 2164 5 4d-2*t119*t15*t17*t21-3.536776513153214d-2*t122*t13*t15*t 2165 6 17*t20+t122*t20 2166 t124 = 1.329807601338106d-1*t11*t12*t24*t48*t75-2.6596152026 2167 1 76212d-1*t11*t14*t17*t75+7.673645271534404d-1*t18*t20*t4* 2168 2 t44*t45*t50*t52*t73-2.036213028372208d-3*t11*t22*t24*t4*t 2169 3 45*t72+2.036213028372208d-3*t11*t24*t4*t45*t46*t54-1.0181 2170 4 06514186104d-3*t11*t22*t4*t45*t46*t48*t49+3.5449077018110 2171 5 403d+0*t120*t20*t44+1.329807601338106d-1*t11*t119*t12*t22 2172 6 *t24+2.659615202676212d-1*t11*t12*t123*t14 2173 t125 = -1.7730768017841417d-1*t10*t11*t12*t24*t48*t76+3.5461 2174 1 536035682834d-1*t10*t11*t14*t17*t76+2.7149507044962773d-3 2175 2 *t10*t11*t24*t25*t4*t45*t72-2.7149507044962773d-3*t10*t11 2176 3 *t24*t4*t45*t46*t55+1.3574753522481386d-3*t10*t11*t25*t4* 2177 4 t45*t46*t48*t49-1.7730768017841417d-1*t10*t11*t119*t12*t2 2178 5 4*t25-3.5461536035682834d-1*t10*t11*t12*t124*t14 2179 t126 = 2.0416116600359205d-2*t4*t45*t46-1.3438139347166464d- 2180 1 3*gammaaa*t118*t3*t87*t89 2181 t127 = 1/rhob**5 2182 t128 = 1.3438139347166464d-3*gammabb*t105*t127*t3*t87-2.0416 2183 1 116600359205d-2*t4*t58*t59 2184 t129 = -2.878628350985092d-2*t23*t4*t58*t62*t81+4.3179425264 2185 1 77637d-2*t103*t23*t4*t58*t61*t78-1.8799712059732546d+0*rh 2186 2 ob*t128*t23*t62 2187 t130 = 1/rhob**4.333333333333333d+0 2188 t131 = -4.3293907300401946d-1*t111*t18*t4*t58*t61*t80+4.3293 2189 1 907300401946d-1*t18*t4*t58*t65*t78+1.413716694115413d+1*t 2190 2 128*t18*t35*t65 2191 t132 = -7.656043725134704d-3*t37*t38*t4*t58*t66*t81-7.656043 2192 1 725134704d-3*t38*t4*t58*t61*t65*t81+2.1646953650200973d-1 2193 2 *t18*t38*t4*t58*t65*t66*t80-5.415543126146093d-4*t15*t38* 2194 3 t4*t58*t66*t79+1.5312087450269407d-2*t37*t38*t4*t58*t59+1 2195 4 .0831086252292187d-3*t130*t15*t39*t4*t58-3.53677651315321 2196 5 4d-2*t128*t15*t36*t39-3.536776513153214d-2*t131*t15*t33*t 2197 6 36*t38+t131*t38 2198 t133 = 1.329807601338106d-1*t11*t32*t41*t61*t82-2.6596152026 2199 1 76212d-1*t11*t34*t36*t82+7.673645271534404d-1*t18*t38*t4* 2200 2 t44*t58*t63*t65*t80-2.036213028372208d-3*t11*t4*t40*t41*t 2201 3 58*t79+2.036213028372208d-3*t11*t4*t41*t58*t59*t67-1.0181 2202 4 06514186104d-3*t11*t4*t40*t58*t59*t61*t62+3.5449077018110 2203 5 403d+0*t129*t38*t44+1.329807601338106d-1*t11*t128*t32*t40 2204 6 *t41+2.659615202676212d-1*t11*t132*t32*t34 2205 t134 = -1.7730768017841417d-1*t10*t11*t32*t41*t61*t83+3.5461 2206 1 536035682834d-1*t10*t11*t34*t36*t83+2.7149507044962773d-3 2207 2 *t10*t11*t4*t41*t42*t58*t79-2.7149507044962773d-3*t10*t11 2208 3 *t4*t41*t58*t59*t68+1.3574753522481386d-3*t10*t11*t4*t42* 2209 4 t58*t59*t61*t62-1.7730768017841417d-1*t10*t11*t128*t32*t4 2210 5 1*t42-3.5461536035682834d-1*t10*t11*t133*t32*t34 2211 t135 = 2.0416116600359205d-2*t4*t58*t59-1.3438139347166464d- 2212 1 3*gammabb*t105*t127*t3*t87 2213 t136 = 1/t11**3 2214 t137 = 1/t6**4 2215 t138 = 1/t14**7 2216 t139 = 1/rhoa**1.6666666666666669d+0 2217 t140 = 1/rhoa**3.6666666666666664d+0 2218 t141 = 1/t11**4 2219 t142 = 1/t13**4 2220 t143 = -8.286501183095146d-3*t137*t18*t20*t87*t91*t95+2.5196 2221 1 51127593712d-4*t19*t20*t3*t87*t89*t94+1.782288585882691d- 2222 2 5*t15*t21*t3*t87*t89*t90-7.124145724851911d-3*t17*t18*t20 2223 3 *t3*t52*t87*t89-1.3552527156068805d-20*t137*t20*t5*t52*t8 2224 4 7+4.685906023339492d-2*t1*t137*t141*t142*t20*t87 2225 t144 = 3.3583545014692934d-3*t20*t23*t3*t44*t49*t51*t87*t89- 2226 1 6.701302444388497d-5*t11*t118*t22*t24*t3*t87*t89+2.343776 2227 2 4715507717d-3*t137*t139*t20*t23*t44*t86*t87-1.55893359789 2228 3 06577d-5*t11*t137*t140*t22*t49*t87-2.2089572834041626d-2* 2229 4 t136*t137*t138*t20*t44*t47*t87+4.072426056744416d-3*t11*t 2230 5 24*t4*t45*t46*t75+2.659615202676212d-1*t11*t12*t14*t143 2231 t145 = 8.935069925851332d-5*t10*t11*t118*t24*t25*t3*t87*t89+ 2232 1 2.078578130520877d-5*t10*t11*t137*t140*t25*t49*t87-5.4299 2233 2 01408992555d-3*t10*t11*t24*t4*t45*t46*t76-3.5461536035682 2234 3 834d-1*t10*t11*t12*t14*t144 2235 t146 = 1/t29**4 2236 t147 = 1/t34**7 2237 t148 = 1/rhob**1.6666666666666669d+0 2238 t149 = 1/rhob**3.6666666666666664d+0 2239 t150 = 1/t33**4 2240 t151 = -7.124145724851911d-3*t105*t18*t3*t36*t38*t65*t87-1.3 2241 1 552527156068805d-20*t146*t28*t38*t65*t87+1.78228858588269 2242 2 1d-5*t105*t106*t15*t3*t39*t87+2.519651127593712d-4*t105*t 2243 3 110*t3*t37*t38*t87+4.685906023339492d-2*t141*t146*t150*t2 2244 4 7*t38*t87-8.286501183095146d-3*t107*t111*t146*t18*t38*t87 2245 t152 = 3.3583545014692934d-3*t105*t23*t3*t38*t44*t62*t64*t87 2246 1 -1.5589335978906577d-5*t11*t146*t149*t40*t62*t87-2.208957 2247 2 2834041626d-2*t136*t146*t147*t38*t44*t60*t87+2.3437764715 2248 3 507717d-3*t103*t146*t148*t23*t38*t44*t87-6.70130244438849 2249 4 7d-5*t105*t11*t127*t3*t40*t41*t87+4.072426056744416d-3*t1 2250 5 1*t4*t41*t58*t59*t82+2.659615202676212d-1*t11*t151*t32*t3 2251 6 4 2252 t153 = 2.078578130520877d-5*t10*t11*t146*t149*t42*t62*t87+8. 2253 1 935069925851332d-5*t10*t105*t11*t127*t3*t41*t42*t87-5.429 2254 2 901408992555d-3*t10*t11*t4*t41*t58*t59*t83-3.546153603568 2255 3 2834d-1*t10*t11*t152*t32*t34 2256 t154 = t48**3 2257 t155 = 1/t2**2 2258 t156 = t4**3 2259 t157 = gammaaa**3 2260 t158 = 1/rhoa**9.666666666666666d+0 2261 t159 = 1/rhoa**7 2262 t160 = 2.50845267813774d-2*t159*t3*t87*t88*t89-2.75711329288 2263 1 6222d-1*t139*t2*t7-1.5425510320271402d-1*gammaaa*t121*t4* 2264 2 t45-4.717412689820714d-4*t137*t155*t156*t157*t158-2.75711 2265 3 3292886222d-1*t139 2266 t161 = -8.482300164692478d+1*t16*t18*t48*t92*t95-1.696460032 2267 1 9384957d+2*rhoa*t18*t85*t95+8.482300164692478d+1*rhoa*t18 2268 2 *t52*t92+8.482300164692478d+1*t18*t48*t52+1.4137166941154 2269 3 13d+1*t16*t160*t18*t52+8.482300164692478d+1*t142*t154*t16 2270 4 *t18 2271 t162 = t53**3 2272 t163 = t61**3 2273 t164 = gammabb**3 2274 t165 = 1/rhob**9.666666666666666d+0 2275 t166 = 1/rhob**7 2276 t167 = 2.50845267813774d-2*t104*t105*t166*t3*t87-1.542551032 2277 1 0271402d-1*gammabb*t130*t4*t58-2.757113292886222d-1*t148* 2278 2 t2*t30-4.717412689820714d-4*t146*t155*t156*t164*t165-2.75 2279 3 7113292886222d-1*t148 2280 t168 = 8.482300164692478d+1*t18*t61*t65+1.413716694115413d+1 2281 1 *t167*t18*t35*t65+8.482300164692478d+1*rhob*t108*t18*t65- 2282 2 8.482300164692478d+1*t108*t111*t18*t35*t61+8.482300164692 2283 3 478d+1*t150*t163*t18*t35-1.6964600329384957d+2*rhob*t102* 2284 4 t111*t18 2285 t169 = t66**3 2286 t170 = 1/rhoa**8.666666666666666d+0 2287 t171 = -8.51082158653876d-3*gammaaa*t3*t87*t89*t90+1.7690297 2288 1 586827677d-4*t137*t155*t156*t170*t88+4.7637605400838157d- 2289 2 2*t4*t45*t72 2290 t172 = 1/rhoa**5.333333333333333d+0 2291 t173 = -4.3293907300401946d-1*t18*t4*t45*t73*t92*t95-1.73175 2292 1 62920160778d+0*t18*t4*t45*t48*t71*t95-5.654866776461652d+ 2293 2 1*t119*t16*t18*t48*t95+1.2988172190120584d+0*t142*t18*t4* 2294 3 t45*t73*t85+4.3293907300401946d-1*t18*t4*t45*t52*t74+1.41 2295 4 3716694115413d+1*t16*t171*t18*t52+5.654866776461652d+1*rh 2296 5 oa*t119*t18*t52 2297 t174 = 1/rhob**8.666666666666666d+0 2298 t175 = -8.51082158653876d-3*gammabb*t105*t106*t3*t87+4.76376 2299 1 05400838157d-2*t4*t58*t79+1.7690297586827677d-4*t104*t146 2300 2 *t155*t156*t174 2301 t176 = 1/rhob**5.333333333333333d+0 2302 t177 = 4.3293907300401946d-1*t18*t4*t58*t65*t81+1.2988172190 2303 1 120584d+0*t102*t150*t18*t4*t58*t80-4.3293907300401946d-1* 2304 2 t108*t111*t18*t4*t58*t80-1.7317562920160778d+0*t111*t18*t 2305 3 4*t58*t61*t78+1.413716694115413d+1*t175*t18*t35*t65+5.654 2306 4 866776461652d+1*rhob*t128*t18*t65-5.654866776461652d+1*t1 2307 5 11*t128*t18*t35*t61 2308 t178 = 1/rhoa**7.666666666666667d+0 2309 t179 = 2.0157209020749695d-3*t118*t3*t87*t89-6.6338615950603 2310 1 81d-5*gammaaa*t137*t155*t156*t178 2311 t180 = 1/rhoa**4.666666666666667d+0 2312 t181 = 1.4248291449703823d-2*t17*t18*t3*t48*t87*t89*t95-1.32 2313 1 58401892952237d-2*t137*t139*t18*t87*t95-8.658781460080389 2314 2 d-1*t119*t18*t4*t45*t73*t95+1.9887602839428353d-2*t137*t1 2315 3 42*t18*t48*t87*t91-1.4248291449703823d-2*t18*t3*t51*t52*t 2316 4 87*t89+1.413716694115413d+1*t16*t179*t18*t52 2317 t182 = 1/rhob**7.666666666666667d+0 2318 t183 = 2.0157209020749695d-3*t105*t127*t3*t87-6.633861595060 2319 1 381d-5*gammabb*t146*t155*t156*t182 2320 t184 = 1/rhob**4.666666666666667d+0 2321 t185 = -1.4248291449703823d-2*t105*t18*t3*t64*t65*t87+1.4248 2322 1 291449703823d-2*t105*t111*t18*t3*t36*t61*t87+1.9887602839 2323 2 428353d-2*t107*t146*t150*t18*t61*t87-1.3258401892952237d- 2324 3 2*t111*t146*t148*t18*t87-8.658781460080389d-1*t111*t128*t 2325 4 18*t4*t58*t80+1.413716694115413d+1*t18*t183*t35*t65 2326 t186 = 1/t11**5 2327 t187 = 1/t6**6 2328 t188 = 1/t6**5 2329 t189 = 1/rhoa**6.333333333333333d+0 2330 t190 = 1/t11**6 2331 t191 = 1/rhoa**6.666666666666667d+0 2332 t192 = 1/t29**6 2333 t193 = 1/t29**5 2334 t194 = 1/rhob**6.333333333333333d+0 2335 t195 = 1/rhob**6.666666666666667d+0 2336 fnc(iq) = (1.0d+0*t26*t8+1.0d+0*t31*t43)*wght+fnc(iq) 2337 Amat(iq,D1_RA) = (1.0d+0*t56*t8+1.0d+0*t26*t57)*wght+Amat(iq 2338 1 ,D1_RA) 2339 Amat(iq,D1_RB) = (1.0d+0*t43*t70+1.0d+0*t31*t69)*wght+Amat(i 2340 1 q,D1_RB) 2341 Cmat(iq,D1_GAA) = (1.0d+0*t77*t8-1.531208745026941d-2*t26*t4 2342 1 *t45*t74)*wght+Cmat(iq,D1_GAA) 2343 Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB) 2344 Cmat(iq,D1_GBB) = (1.0d+0*t31*t84-1.531208745026941d-2*t4*t4 2345 1 3*t58*t81)*wght+Cmat(iq,D1_GBB) 2346 Amat2(iq,D2_RA_RA) = (1.0d+0*t100*t8+2.0d+0*t56*t57+1.0d+0*t 2347 1 101*t26)*wght+Amat2(iq,D2_RA_RA) 2348 Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB) 2349 Amat2(iq,D2_RB_RB) = (2.0d+0*t69*t70+1.0d+0*t117*t43+1.0d+0* 2350 1 t116*t31)*wght+Amat2(iq,D2_RB_RB) 2351 Cmat2(iq,D2_RA_GAA) = (1.0d+0*t125*t8+1.0d+0*t57*t77-1.53120 2352 1 8745026941d-2*t4*t45*t56*t74+1.0d+0*t126*t26)*wght+Cmat2( 2353 2 iq,D2_RA_GAA) 2354 Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB) 2355 Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB) 2356 Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA) 2357 Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB) 2358 Cmat2(iq,D2_RB_GBB) = (1.0d+0*t70*t84-1.531208745026941d-2*t 2359 1 4*t58*t69*t81+1.0d+0*t135*t43+1.0d+0*t134*t31)*wght+Cmat2 2360 2 (iq,D2_RB_GBB) 2361 Cmat2(iq,D2_GAA_GAA) = (5.039302255187424d-4*t26*t3*t87*t89* 2362 1 t94+1.0d+0*t145*t8-3.062417490053882d-2*t4*t45*t74*t77)*w 2363 2 ght+Cmat2(iq,D2_GAA_GAA) 2364 Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB) 2365 Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB) 2366 Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB) 2367 Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB) 2368 Cmat2(iq,D2_GBB_GBB) = (5.039302255187424d-4*t105*t110*t3*t4 2369 1 3*t87-3.062417490053882d-2*t4*t58*t81*t84+1.0d+0*t153*t31 2370 2 )*wght+Cmat2(iq,D2_GBB_GBB) 2371 Amat3(iq,D3_RA_RA_RA) = (1.0d+0*t8*(-5.319230405352425d-1*t1 2372 1 0*t11*t12*t24*t48*t99+1.063846081070485d+0*t10*t11*t14*t1 2373 2 7*t99-3.5461536035682834d-1*t10*t11*t12*t14*(3.9894228040 2374 3 14318d-1*t11*t12*t24*t48*t98-7.978845608028636d-1*t11*t14 2375 4 *t17*t98+2.659615202676212d-1*t11*t12*t14*(2.122065907891 2376 5 9285d-1*t13*t15*t20*t51*t97-1.0610329539459643d-1*t15*t17 2377 6 *t20*t48*t97-1.0610329539459643d-1*t13*t15*t17*t20*t53*t9 2378 7 6+3*t20*t53*t96+2.1220659078919285d-1*t13*t15*t20*t51*t96 2379 8 -1.0610329539459643d-1*t15*t17*t20*t48*t96-6.366197723675 2380 9 786d-1*t13*t15*t20*t53*t94-6.366197723675786d-1*t15*t21*t 2381 : 48*t94-1.0610329539459643d-1*t15*t17*t20*t53*t92+2.122065 2382 ; 9078919285d-1*t15*t21*t51*t92+4.244131815783857d-1*t15*t2 2383 < 0*t48*t51*t53-3.536776513153214d-2*t15*t160*t17*t21+8.488 2384 = 263631567714d-1*t118*t13*t15*t21-3.536776513153214d-2*t13 2385 > *t15*t162*t17*t20-3.536776513153214d-2*t13*t15*t161*t17*t 2386 ? 20+t162*t20+t161*t20)+3.5449077018110403d+0*t20*t44*t50*t 2387 @ 97+3.5449077018110403d+0*t20*t44*t50*t96-1.59576912160572 2388 1 74d+0*t11*t14*t22*t94+7.089815403622081d+0*t20*t44*t53*t9 2389 2 3+3.5449077018110403d+0*t20*t44*(8.459870426879645d+0*rho 2390 3 a*t23*t48*t86*t92-5.639913617919763d+0*t23*t49*t92+8.4598 2391 4 70426879645d+0*t23*t85*t86-1.8799712059732546d+0*rhoa*t16 2392 5 0*t23*t49-7.049892022399704d+0*rhoa*t138*t154*t23)+3.9894 2393 6 22804014318d-1*t11*t12*t24*t54*t92-1.994711402007159d-1*t 2394 7 11*t12*t22*t48*t49*t92-3.989422804014318d-1*t11*t17*t22*t 2395 8 24*t92+9.973557010035795d-2*t11*t12*t154*t22*t86-1.994711 2396 9 402007159d-1*t11*t12*t49*t54*t85+1.994711402007159d-1*t11 2397 : *t17*t22*t49*t85+1.5957691216057274d+0*t11*t14*t51*t54-7. 2398 ; 978845608028636d-1*t11*t17*t24*t48*t54+7.978845608028636d 2399 < -1*t11*t22*t24*t48*t51+1.329807601338106d-1*t11*t12*t160* 2400 = t22*t24)+2.12769216214097d+0*t10*t11*t14*t25*t94-5.319230 2401 > 405352425d-1*t10*t11*t12*t24*t55*t92+2.6596152026762127d- 2402 ? 1*t10*t11*t12*t25*t48*t49*t92+5.319230405352425d-1*t10*t1 2403 @ 1*t17*t24*t25*t92-1.3298076013381063d-1*t10*t11*t12*t154* 2404 1 t25*t86+2.6596152026762127d-1*t10*t11*t12*t49*t55*t85-2.6 2405 2 596152026762127d-1*t10*t11*t17*t25*t49*t85-2.127692162140 2406 3 97d+0*t10*t11*t14*t51*t55+1.063846081070485d+0*t10*t11*t1 2407 4 7*t24*t48*t55-1.063846081070485d+0*t10*t11*t24*t25*t48*t5 2408 5 1-1.7730768017841417d-1*t10*t11*t12*t160*t24*t25)+1.0d+0* 2409 6 t26*(-2.50845267813774d-2*t159*t3*t87*t88*t89+2.757113292 2410 7 886222d-1*t139*t2*t7+1.5425510320271402d-1*gammaaa*t121*t 2411 8 4*t45+4.717412689820714d-4*t137*t155*t156*t157*t158+2.757 2412 9 113292886222d-1*t139)+3.0d+0*t100*t57+3.0d+0*t101*t56)*wg 2413 : ht+Amat3(iq,D3_RA_RA_RA) 2414 Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB) 2415 Amat3(iq,D3_RA_RB_RB) = Amat3(iq,D3_RA_RB_RB) 2416 Amat3(iq,D3_RB_RB_RB) = (1.0d+0*t43*(-2.50845267813774d-2*t1 2417 1 04*t105*t166*t3*t87+1.5425510320271402d-1*gammabb*t130*t4 2418 2 *t58+2.757113292886222d-1*t148*t2*t30+4.717412689820714d- 2419 3 4*t146*t155*t156*t164*t165+2.757113292886222d-1*t148)+3.0 2420 4 d+0*t116*t70+3.0d+0*t117*t69+1.0d+0*t31*(-2.1276921621409 2421 5 7d+0*t10*t11*t34*t64*t68+2.6596152026762127d-1*t10*t102*t 2422 6 11*t32*t62*t68+1.063846081070485d+0*t10*t11*t36*t41*t61*t 2423 7 68-5.319230405352425d-1*t10*t108*t11*t32*t41*t68-3.546153 2424 8 6035682834d-1*t10*t11*t32*t34*(1.5957691216057274d+0*t11* 2425 9 t34*t64*t67-1.994711402007159d-1*t102*t11*t32*t62*t67-7.9 2426 : 78845608028636d-1*t11*t36*t41*t61*t67+3.989422804014318d- 2427 ; 1*t108*t11*t32*t41*t67+2.659615202676212d-1*t11*t32*t34*( 2428 < 4.244131815783857d-1*t15*t38*t61*t64*t66-1.06103295394596 2429 = 43d-1*t112*t15*t33*t36*t38*t66-1.0610329539459643d-1*t108 2430 > *t15*t36*t38*t66-6.366197723675786d-1*t110*t15*t33*t38*t6 2431 ? 6+3*t112*t38*t66+2.1220659078919285d-1*t108*t15*t39*t64+2 2432 @ .1220659078919285d-1*t113*t15*t33*t38*t64+2.1220659078919 2433 1 285d-1*t112*t15*t33*t38*t64-6.366197723675786d-1*t110*t15 2434 2 *t39*t61-1.0610329539459643d-1*t113*t15*t36*t38*t61-1.061 2435 3 0329539459643d-1*t112*t15*t36*t38*t61-3.536776513153214d- 2436 4 2*t15*t167*t36*t39+8.488263631567714d-1*t127*t15*t33*t39- 2437 5 3.536776513153214d-2*t15*t169*t33*t36*t38-3.5367765131532 2438 6 14d-2*t15*t168*t33*t36*t38+t169*t38+t168*t38)+7.089815403 2439 7 622081d+0*t109*t38*t44*t66+7.978845608028636d-1*t11*t40*t 2440 8 41*t61*t64+3.5449077018110403d+0*t113*t38*t44*t63+3.54490 2441 9 77018110403d+0*t112*t38*t44*t63+3.5449077018110403d+0*t38 2442 : *t44*(-1.8799712059732546d+0*rhob*t167*t23*t62-5.63991361 2443 ; 7919763d+0*t108*t23*t62+8.459870426879645d+0*rhob*t103*t1 2444 < 08*t23*t61-7.049892022399704d+0*rhob*t147*t163*t23+8.4598 2445 = 70426879645d+0*t102*t103*t23)-1.994711402007159d-1*t108*t 2446 > 11*t32*t40*t61*t62+1.994711402007159d-1*t102*t11*t36*t40* 2447 ? t62+3.989422804014318d-1*t11*t114*t32*t41*t61-3.989422804 2448 @ 014318d-1*t108*t11*t36*t40*t41+1.329807601338106d-1*t11*t 2449 1 167*t32*t40*t41-1.5957691216057274d+0*t11*t110*t34*t40+9. 2450 2 973557010035795d-2*t103*t11*t163*t32*t40-7.97884560802863 2451 3 6d-1*t11*t114*t34*t36)-1.063846081070485d+0*t10*t11*t41*t 2452 4 42*t61*t64+2.6596152026762127d-1*t10*t108*t11*t32*t42*t61 2453 5 *t62-2.6596152026762127d-1*t10*t102*t11*t36*t42*t62-5.319 2454 6 230405352425d-1*t10*t11*t115*t32*t41*t61+5.31923040535242 2455 7 5d-1*t10*t108*t11*t36*t41*t42-1.7730768017841417d-1*t10*t 2456 8 11*t167*t32*t41*t42+2.12769216214097d+0*t10*t11*t110*t34* 2457 9 t42-1.3298076013381063d-1*t10*t103*t11*t163*t32*t42+1.063 2458 : 846081070485d+0*t10*t11*t115*t34*t36))*wght+Amat3(iq,D3_R 2459 ; B_RB_RB) 2460 Cmat3(iq,D3_RA_RA_GAA) = (1.0d+0*t8*(-2.7149507044962773d-3* 2461 1 t10*t11*t24*t4*t45*t46*t99-3.5461536035682834d-1*t10*t11* 2462 2 t12*t14*(2.036213028372208d-3*t11*t24*t4*t45*t46*t98+2.65 2463 3 9615202676212d-1*t11*t12*t14*(-7.656043725134704d-3*t19*t 2464 4 20*t4*t45*t74*t97+2.1646953650200973d-1*t18*t20*t4*t45*t5 2465 5 2*t73*t97-5.415543126146093d-4*t15*t20*t4*t45*t72*t97-7.6 2466 6 56043725134704d-3*t19*t20*t4*t45*t74*t96+2.16469536502009 2467 7 73d-1*t18*t20*t4*t45*t52*t73*t96-5.415543126146093d-4*t15 2468 8 *t20*t4*t45*t72*t96-7.656043725134704d-3*t20*t4*t45*t52*t 2469 9 74*t92-1.5312087450269407d-2*t20*t4*t45*t48*t52*t53*t74-4 2470 : .593626235080822d-2*t19*t20*t4*t45*t72+3.0624174900538814 2471 ; d-2*t19*t20*t4*t45*t46*t53+2.1662172504584373d-3*t121*t15 2472 < *t20*t4*t45*t53-7.073553026306428d-2*t122*t13*t15*t17*t20 2473 = *t53-7.073553026306428d-2*t119*t15*t17*t20*t53+2*t122*t20 2474 > *t53+3.0624174900538814d-2*t20*t4*t45*t46*t48*t52+1.41471 2475 ? 06052612857d-1*t119*t15*t21*t51+1.4147106052612857d-1*t12 2476 @ 2*t13*t15*t20*t51-7.073553026306428d-2*t122*t15*t17*t20*t 2477 1 48-3.249325875687656d-3*t15*t172*t21*t4*t45-3.53677651315 2478 2 3214d-2*t15*t17*t171*t21-3.536776513153214d-2*t13*t15*t17 2479 3 *t173*t20+t173*t20)+7.673645271534404d-1*t18*t20*t4*t44*t 2480 4 45*t52*t73*t93+3.5449077018110403d+0*t20*t44*(4.317942526 2481 5 477637d-2*t23*t4*t45*t71*t86*t92+8.635885052955274d-2*t23 2482 6 *t4*t45*t48*t74*t86+5.639913617919763d+0*rhoa*t119*t23*t4 2483 7 8*t86-1.0794856316194094d-1*t138*t23*t4*t45*t71*t85-1.879 2484 8 9712059732546d+0*rhoa*t171*t23*t49-3.759942411946509d+0*t 2485 9 119*t23*t49)+1.329807601338106d-1*t11*t12*t24*t75*t92-1.0 2486 : 18106514186104d-3*t11*t22*t4*t45*t46*t49*t92+1.5271597712 2487 ; 79156d-3*t11*t22*t4*t45*t46*t85*t86-6.649038006690531d-2* 2488 < t11*t12*t49*t75*t85+5.319230405352424d-1*t11*t14*t51*t75- 2489 = 2.659615202676212d-1*t11*t17*t24*t48*t75+7.67364527153440 2490 > 4d-1*t18*t20*t4*t44*t45*t50*t52*t53*t73-4.072426056744416 2491 ? d-3*t11*t24*t4*t45*t54*t72+2.036213028372208d-3*t11*t22*t 2492 @ 4*t45*t48*t49*t72-2.036213028372208d-3*t11*t4*t45*t46*t48 2493 1 *t49*t54+2.659615202676212d-1*t11*t119*t12*t24*t54+3.5449 2494 2 077018110403d+0*t120*t20*t44*t53+3.5449077018110403d+0*t1 2495 3 22*t20*t44*t50-1.329807601338106d-1*t11*t119*t12*t22*t48* 2496 4 t49+2.659615202676212d-1*t11*t12*t123*t24*t48+4.072426056 2497 5 744416d-3*t11*t121*t22*t24*t4*t45+1.329807601338106d-1*t1 2498 6 1*t12*t171*t22*t24-2.659615202676212d-1*t11*t119*t17*t22* 2499 7 t24-5.319230405352424d-1*t11*t123*t14*t17)-1.773076801784 2500 8 1417d-1*t10*t11*t12*t24*t76*t92+1.3574753522481386d-3*t10 2501 9 *t11*t25*t4*t45*t46*t49*t92-2.036213028372208d-3*t10*t11* 2502 : t25*t4*t45*t46*t85*t86+8.865384008920708d-2*t10*t11*t12*t 2503 ; 49*t76*t85-7.092307207136567d-1*t10*t11*t14*t51*t76+3.546 2504 < 1536035682834d-1*t10*t11*t17*t24*t48*t76+5.42990140899255 2505 = 5d-3*t10*t11*t24*t4*t45*t55*t72-2.7149507044962773d-3*t10 2506 > *t11*t25*t4*t45*t48*t49*t72+2.7149507044962773d-3*t10*t11 2507 ? *t4*t45*t46*t48*t49*t55-3.5461536035682834d-1*t10*t11*t11 2508 @ 9*t12*t24*t55+1.7730768017841417d-1*t10*t11*t119*t12*t25* 2509 1 t48*t49-3.5461536035682834d-1*t10*t11*t12*t124*t24*t48-5. 2510 2 429901408992555d-3*t10*t11*t121*t24*t25*t4*t45-1.77307680 2511 3 17841417d-1*t10*t11*t12*t171*t24*t25+3.5461536035682834d- 2512 4 1*t10*t11*t119*t17*t24*t25+7.092307207136567d-1*t10*t11*t 2513 5 124*t14*t17)+1.0d+0*t26*(8.51082158653876d-3*gammaaa*t3*t 2514 6 87*t89*t90-1.7690297586827677d-4*t137*t155*t156*t170*t88- 2515 7 4.7637605400838157d-2*t4*t45*t72)+1.0d+0*t101*t77-1.53120 2516 8 8745026941d-2*t100*t4*t45*t74+2.0d+0*t125*t57+2.0d+0*t126 2517 9 *t56)*wght+Cmat3(iq,D3_RA_RA_GAA) 2518 Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB) 2519 Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB) 2520 Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA) 2521 Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB) 2522 Cmat3(iq,D3_RA_RB_GBB) = Cmat3(iq,D3_RA_RB_GBB) 2523 Cmat3(iq,D3_RB_RB_GAA) = Cmat3(iq,D3_RB_RB_GAA) 2524 Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB) 2525 Cmat3(iq,D3_RB_RB_GBB) = (1.0d+0*t43*(8.51082158653876d-3*ga 2526 1 mmabb*t105*t106*t3*t87-4.7637605400838157d-2*t4*t58*t79-1 2527 2 .7690297586827677d-4*t104*t146*t155*t156*t174)+1.0d+0*t11 2528 3 7*t84+1.0d+0*t31*(-7.092307207136567d-1*t10*t11*t34*t64*t 2529 4 83+8.865384008920708d-2*t10*t102*t11*t32*t62*t83+3.546153 2530 5 6035682834d-1*t10*t11*t36*t41*t61*t83-1.7730768017841417d 2531 6 -1*t10*t108*t11*t32*t41*t83-3.5461536035682834d-1*t10*t11 2532 7 *t32*t34*(5.319230405352424d-1*t11*t34*t64*t82-6.64903800 2533 8 6690531d-2*t102*t11*t32*t62*t82-2.659615202676212d-1*t11* 2534 9 t36*t41*t61*t82+1.329807601338106d-1*t108*t11*t32*t41*t82 2535 : +2.659615202676212d-1*t11*t32*t34*(-1.5312087450269407d-2 2536 ; *t38*t4*t58*t61*t65*t66*t81-7.656043725134704d-3*t108*t38 2537 < *t4*t58*t65*t81-7.656043725134704d-3*t113*t37*t38*t4*t58* 2538 = t81-7.656043725134704d-3*t112*t37*t38*t4*t58*t81+2.164695 2539 > 3650200973d-1*t113*t18*t38*t4*t58*t65*t80+2.1646953650200 2540 ? 973d-1*t112*t18*t38*t4*t58*t65*t80-4.593626235080822d-2*t 2541 @ 37*t38*t4*t58*t79-5.415543126146093d-4*t113*t15*t38*t4*t5 2542 1 8*t79-5.415543126146093d-4*t112*t15*t38*t4*t58*t79+3.0624 2543 2 174900538814d-2*t37*t38*t4*t58*t59*t66+2.1662172504584373 2544 3 d-3*t130*t15*t38*t4*t58*t66-7.073553026306428d-2*t131*t15 2545 4 *t33*t36*t38*t66-7.073553026306428d-2*t128*t15*t36*t38*t6 2546 5 6+2*t131*t38*t66+3.0624174900538814d-2*t38*t4*t58*t59*t61 2547 6 *t65+1.4147106052612857d-1*t128*t15*t39*t64+1.41471060526 2548 7 12857d-1*t131*t15*t33*t38*t64-7.073553026306428d-2*t131*t 2549 8 15*t36*t38*t61-3.249325875687656d-3*t15*t176*t39*t4*t58-3 2550 9 .536776513153214d-2*t15*t175*t36*t39-3.536776513153214d-2 2551 : *t15*t177*t33*t36*t38+t177*t38)+3.5449077018110403d+0*t38 2552 ; *t44*(8.635885052955274d-2*t103*t23*t4*t58*t61*t81-1.0794 2553 < 856316194094d-1*t102*t147*t23*t4*t58*t78+4.31794252647763 2554 = 7d-2*t103*t108*t23*t4*t58*t78-1.8799712059732546d+0*rhob* 2555 > t175*t23*t62-3.759942411946509d+0*t128*t23*t62+5.63991361 2556 ? 7919763d+0*rhob*t103*t128*t23*t61)+7.673645271534404d-1*t 2557 @ 18*t38*t4*t44*t58*t63*t65*t66*t80+7.673645271534404d-1*t1 2558 1 09*t18*t38*t4*t44*t58*t65*t80-4.072426056744416d-3*t11*t4 2559 2 *t41*t58*t67*t79+2.036213028372208d-3*t11*t4*t40*t58*t61* 2560 3 t62*t79-2.036213028372208d-3*t11*t4*t58*t59*t61*t62*t67+2 2561 4 .659615202676212d-1*t11*t128*t32*t41*t67+3.54490770181104 2562 5 03d+0*t129*t38*t44*t66+3.5449077018110403d+0*t131*t38*t44 2563 6 *t63-1.329807601338106d-1*t11*t128*t32*t40*t61*t62-1.0181 2564 7 06514186104d-3*t108*t11*t4*t40*t58*t59*t62+2.659615202676 2565 8 212d-1*t11*t132*t32*t41*t61+2.036213028372208d-3*t11*t114 2566 9 *t4*t41*t58*t59+1.527159771279156d-3*t102*t103*t11*t4*t40 2567 : *t58*t59+4.072426056744416d-3*t11*t130*t4*t40*t41*t58-2.6 2568 ; 59615202676212d-1*t11*t128*t36*t40*t41+1.329807601338106d 2569 < -1*t11*t175*t32*t40*t41-5.319230405352424d-1*t11*t132*t34 2570 = *t36)+5.429901408992555d-3*t10*t11*t4*t41*t58*t68*t79-2.7 2571 > 149507044962773d-3*t10*t11*t4*t42*t58*t61*t62*t79+2.71495 2572 ? 07044962773d-3*t10*t11*t4*t58*t59*t61*t62*t68-3.546153603 2573 @ 5682834d-1*t10*t11*t128*t32*t41*t68+1.7730768017841417d-1 2574 1 *t10*t11*t128*t32*t42*t61*t62+1.3574753522481386d-3*t10*t 2575 2 108*t11*t4*t42*t58*t59*t62-3.5461536035682834d-1*t10*t11* 2576 3 t133*t32*t41*t61-2.036213028372208d-3*t10*t102*t103*t11*t 2577 4 4*t42*t58*t59-2.7149507044962773d-3*t10*t11*t115*t4*t41*t 2578 5 58*t59-5.429901408992555d-3*t10*t11*t130*t4*t41*t42*t58+3 2579 6 .5461536035682834d-1*t10*t11*t128*t36*t41*t42-1.773076801 2580 7 7841417d-1*t10*t11*t175*t32*t41*t42+7.092307207136567d-1* 2581 8 t10*t11*t133*t34*t36)-1.531208745026941d-2*t116*t4*t58*t8 2582 9 1+2.0d+0*t134*t70+2.0d+0*t135*t69)*wght+Cmat3(iq,D3_RB_RB 2583 : _GBB) 2584 Cmat3(iq,D3_RA_GAA_GAA) = (1.0d+0*t8*(-3.5461536035682834d-1 2585 1 *t10*t11*t12*t14*(2.659615202676212d-1*t11*t12*t14*(-8.28 2586 2 6501183095146d-3*t137*t18*t20*t53*t87*t91*t95+2.344600220 2587 3 846979d-4*t137*t20*t48*t5*t87*t95+3.3146004732380585d-3*t 2588 4 137*t139*t18*t20*t87*t95+2.519651127593712d-4*t19*t20*t3* 2589 5 t53*t87*t89*t94+2.519651127593712d-4*t20*t3*t48*t52*t87*t 2590 6 89*t94-1.6573002366190293d-3*t137*t142*t18*t20*t48*t87*t9 2591 7 1+1.782288585882691d-5*t15*t20*t3*t53*t87*t89*t90-7.12414 2592 8 5724851911d-3*t17*t18*t20*t3*t52*t53*t87*t89-3.5645771717 2593 9 65382d-5*t15*t159*t21*t3*t87*t89-5.039302255187424d-4*t11 2594 : 8*t19*t20*t3*t87*t89-1.3552527156068805d-20*t137*t20*t5*t 2595 ; 52*t53*t87+4.685906023339492d-2*t1*t137*t141*t142*t20*t53 2596 < *t87+2.710505431213761d-20*t137*t140*t20*t52*t87-1.531208 2597 = 7450269407d-2*t119*t20*t4*t45*t52*t74-1.5312087450269407d 2598 > -2*t122*t19*t20*t4*t45*t74+4.3293907300401946d-1*t122*t18 2599 ? *t20*t4*t45*t52*t73-1.0831086252292187d-3*t122*t15*t20*t4 2600 @ *t45*t72-3.536776513153214d-2*t15*t17*t179*t21-3.53677651 2601 1 3153214d-2*t13*t15*t17*t181*t20+t181*t20)-2.3499905492016 2602 2 226d-2*t137*t18*t20*t44*t50*t87*t91*t95+3.544907701811040 2603 3 3d+0*t20*t44*(9.473743137948445d-4*t23*t3*t49*t87*t89*t94 2604 4 -1.4210614706922667d-3*t23*t3*t48*t51*t86*t87*t89+6.61167 2605 5 1357066283d-4*t137*t23*t5*t86*t87-1.6529178392665705d-3*t 2606 6 137*t138*t139*t23*t48*t87+8.635885052955274d-2*t119*t23*t 2607 7 4*t45*t71*t86-1.8799712059732546d+0*rhoa*t179*t23*t49)+6. 2608 8 701302444388497d-5*t11*t22*t24*t3*t87*t89*t90-6.701302444 2609 9 388497d-5*t11*t118*t24*t3*t54*t87*t89-2.525443904885174d- 2610 : 2*t17*t18*t20*t3*t44*t50*t52*t87*t89+3.3506512221942486d- 2611 ; 5*t11*t118*t22*t3*t48*t49*t87*t89+2.3384003968359865d-5*t 2612 < 11*t137*t140*t22*t48*t86*t87-1.5589335978906577d-5*t11*t1 2613 = 37*t140*t49*t54*t87+1.661110435209891d-1*t1*t137*t141*t14 2614 > 2*t20*t44*t50*t87+1.5589335978906577d-5*t11*t137*t180*t22 2615 ? *t49*t87-4.072426056744416d-3*t11*t24*t4*t45*t72*t75-2.03 2616 @ 6213028372208d-3*t11*t4*t45*t46*t48*t49*t75+2.65961520267 2617 1 6212d-1*t11*t119*t12*t24*t75+1.534729054306881d+0*t120*t1 2618 2 8*t20*t4*t44*t45*t52*t73-2.036213028372208d-3*t11*t119*t2 2619 3 2*t4*t45*t46*t49+1.329807601338106d-1*t11*t12*t143*t24*t4 2620 4 8+4.072426056744416d-3*t11*t123*t24*t4*t45*t46+1.32980760 2621 5 1338106d-1*t11*t12*t179*t22*t24-2.659615202676212d-1*t11* 2622 6 t14*t143*t17)-8.935069925851332d-5*t10*t11*t24*t25*t3*t87 2623 7 *t89*t90+8.935069925851332d-5*t10*t11*t118*t24*t3*t55*t87 2624 8 *t89-4.467534962925666d-5*t10*t11*t118*t25*t3*t48*t49*t87 2625 9 *t89-3.1178671957813153d-5*t10*t11*t137*t140*t25*t48*t86* 2626 : t87+2.078578130520877d-5*t10*t11*t137*t140*t49*t55*t87-2. 2627 ; 078578130520877d-5*t10*t11*t137*t180*t25*t49*t87+5.429901 2628 < 408992555d-3*t10*t11*t24*t4*t45*t72*t76+2.714950704496277 2629 = 3d-3*t10*t11*t4*t45*t46*t48*t49*t76-3.5461536035682834d-1 2630 > *t10*t11*t119*t12*t24*t76+2.7149507044962773d-3*t10*t11*t 2631 ? 119*t25*t4*t45*t46*t49-1.7730768017841417d-1*t10*t11*t12* 2632 @ t144*t24*t48-5.429901408992555d-3*t10*t11*t124*t24*t4*t45 2633 1 *t46-1.7730768017841417d-1*t10*t11*t12*t179*t24*t25+3.546 2634 2 1536035682834d-1*t10*t11*t14*t144*t17)+5.039302255187424d 2635 3 -4*t3*t56*t87*t89*t94+1.0d+0*t26*(6.633861595060381d-5*ga 2636 4 mmaaa*t137*t155*t156*t178-2.0157209020749695d-3*t118*t3*t 2637 5 87*t89)+2.0d+0*t126*t77-3.062417490053882d-2*t125*t4*t45* 2638 6 t74+1.0d+0*t145*t57)*wght+Cmat3(iq,D3_RA_GAA_GAA) 2639 Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB) 2640 Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB) 2641 Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB) 2642 Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB) 2643 Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB) 2644 Cmat3(iq,D3_RB_GAA_GAA) = Cmat3(iq,D3_RB_GAA_GAA) 2645 Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB) 2646 Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB) 2647 Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB) 2648 Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB) 2649 Cmat3(iq,D3_RB_GBB_GBB) = (1.0d+0*t31*(-3.5461536035682834d- 2650 1 1*t10*t11*t32*t34*(2.659615202676212d-1*t11*t32*t34*(-7.1 2651 2 24145724851911d-3*t105*t18*t3*t36*t38*t65*t66*t87-1.35525 2652 3 27156068805d-20*t146*t28*t38*t65*t66*t87+2.51965112759371 2653 4 2d-4*t105*t110*t3*t37*t38*t66*t87+1.782288585882691d-5*t1 2654 5 05*t106*t15*t3*t38*t66*t87+4.685906023339492d-2*t141*t146 2655 6 *t150*t27*t38*t66*t87-8.286501183095146d-3*t107*t111*t146 2656 7 *t18*t38*t66*t87+2.519651127593712d-4*t105*t110*t3*t38*t6 2657 8 1*t65*t87+2.710505431213761d-20*t146*t149*t38*t65*t87+2.3 2658 9 44600220846979d-4*t111*t146*t28*t38*t61*t87-1.65730023661 2659 : 90293d-3*t107*t146*t150*t18*t38*t61*t87-3.564577171765382 2660 ; d-5*t105*t15*t166*t3*t39*t87-5.039302255187424d-4*t105*t1 2661 < 27*t3*t37*t38*t87+3.3146004732380585d-3*t111*t146*t148*t1 2662 = 8*t38*t87-1.5312087450269407d-2*t128*t38*t4*t58*t65*t81-1 2663 > .5312087450269407d-2*t131*t37*t38*t4*t58*t81+4.3293907300 2664 ? 401946d-1*t131*t18*t38*t4*t58*t65*t80-1.0831086252292187d 2665 @ -3*t131*t15*t38*t4*t58*t79-3.536776513153214d-2*t15*t183* 2666 1 t36*t39-3.536776513153214d-2*t15*t185*t33*t36*t38+t185*t3 2667 2 8)+3.5449077018110403d+0*t38*t44*(-1.4210614706922667d-3* 2668 3 t103*t105*t23*t3*t61*t64*t87+9.473743137948445d-4*t105*t1 2669 4 10*t23*t3*t62*t87-1.6529178392665705d-3*t146*t147*t148*t2 2670 5 3*t61*t87+6.611671357066283d-4*t103*t146*t23*t28*t87+8.63 2671 6 5885052955274d-2*t103*t128*t23*t4*t58*t78-1.8799712059732 2672 7 546d+0*rhob*t183*t23*t62)-1.5589335978906577d-5*t11*t146* 2673 8 t149*t62*t67*t87-6.701302444388497d-5*t105*t11*t127*t3*t4 2674 9 1*t67*t87-2.525443904885174d-2*t105*t18*t3*t36*t38*t44*t6 2675 : 3*t65*t87+1.661110435209891d-1*t141*t146*t150*t27*t38*t44 2676 ; *t63*t87-2.3499905492016226d-2*t107*t111*t146*t18*t38*t44 2677 < *t63*t87+3.3506512221942486d-5*t105*t11*t127*t3*t40*t61*t 2678 = 62*t87+1.5589335978906577d-5*t11*t146*t184*t40*t62*t87+2. 2679 > 3384003968359865d-5*t103*t11*t146*t149*t40*t61*t87+6.7013 2680 ? 02444388497d-5*t105*t106*t11*t3*t40*t41*t87-4.07242605674 2681 @ 4416d-3*t11*t4*t41*t58*t79*t82-2.036213028372208d-3*t11*t 2682 1 4*t58*t59*t61*t62*t82+2.659615202676212d-1*t11*t128*t32*t 2683 2 41*t82+1.534729054306881d+0*t129*t18*t38*t4*t44*t58*t65*t 2684 3 80-2.036213028372208d-3*t11*t128*t4*t40*t58*t59*t62+1.329 2685 4 807601338106d-1*t11*t151*t32*t41*t61+4.072426056744416d-3 2686 5 *t11*t132*t4*t41*t58*t59+1.329807601338106d-1*t11*t183*t3 2687 6 2*t40*t41-2.659615202676212d-1*t11*t151*t34*t36)+2.078578 2688 7 130520877d-5*t10*t11*t146*t149*t62*t68*t87+8.935069925851 2689 8 332d-5*t10*t105*t11*t127*t3*t41*t68*t87-4.467534962925666 2690 9 d-5*t10*t105*t11*t127*t3*t42*t61*t62*t87-2.07857813052087 2691 : 7d-5*t10*t11*t146*t184*t42*t62*t87-3.1178671957813153d-5* 2692 ; t10*t103*t11*t146*t149*t42*t61*t87-8.935069925851332d-5*t 2693 < 10*t105*t106*t11*t3*t41*t42*t87+5.429901408992555d-3*t10* 2694 = t11*t4*t41*t58*t79*t83+2.7149507044962773d-3*t10*t11*t4*t 2695 > 58*t59*t61*t62*t83-3.5461536035682834d-1*t10*t11*t128*t32 2696 ? *t41*t83+2.7149507044962773d-3*t10*t11*t128*t4*t42*t58*t5 2697 @ 9*t62-1.7730768017841417d-1*t10*t11*t152*t32*t41*t61-5.42 2698 1 9901408992555d-3*t10*t11*t133*t4*t41*t58*t59-1.7730768017 2699 2 841417d-1*t10*t11*t183*t32*t41*t42+3.5461536035682834d-1* 2700 3 t10*t11*t152*t34*t36)+1.0d+0*t43*(6.633861595060381d-5*ga 2701 4 mmabb*t146*t155*t156*t182-2.0157209020749695d-3*t105*t127 2702 5 *t3*t87)+5.039302255187424d-4*t105*t110*t3*t69*t87+2.0d+0 2703 6 *t135*t84-3.062417490053882d-2*t134*t4*t58*t81+1.0d+0*t15 2704 7 3*t70)*wght+Cmat3(iq,D3_RB_GBB_GBB) 2705 Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*t8*(-3.5461536035682834d- 2706 1 1*t10*t11*t12*t14*(2.659615202676212d-1*t11*t12*t14*(4.15 2707 2 03496197175305d-22*t156*t187*t20*t94*t95+8.18141567605465 2708 3 5d-4*t156*t18*t188*t20*t3*t72*t95-4.6264815690944017d-3*t 2709 4 141*t142*t156*t188*t20*t3*t74+1.6940658945086007d-21*t156 2710 5 *t172*t188*t20*t3*t52+3.5169003312704855d-4*t137*t155*t15 2711 6 6*t18*t180*t20*t52-8.798432205344503d-7*t137*t15*t155*t15 2712 7 6*t170*t21-1.2438490490738213d-5*t137*t155*t156*t19*t191* 2713 8 t20+1.0143559049642756d-2*t156*t16*t187*t190*t20/t13**6+3 2714 9 .8065089231694144d-4*t142*t156*t17*t18*t187*t20-4.6638151 2715 : 82852701d-3*t141*t156*t187*t20/t13**5)-2.0103907333165494 2716 ; d-4*t11*t118*t24*t3*t75*t87*t89-4.676800793671973d-5*t11* 2717 < t137*t140*t49*t75*t87-2.3140538016976683d-4*t121*t156*t18 2718 = 8*t20*t23*t3*t44*t86+3.580579137009732d-7*t11*t118*t156*t 2719 > 187*t22*t86-8.972027574067322d-5*t138*t156*t187*t20*t23*t 2720 ? 44*t51-1.6578827153323844d-4*t137*t155*t156*t20*t23*t44*t 2721 @ 49/rhoa**5.666666666666667d+0+1.5391639358877124d-6*t11*t 2722 1 156*t188*t189*t22*t3*t49+6.108639085116625d-3*t11*t143*t2 2723 2 4*t4*t45*t46+2.1809443270274873d-3*t136*t138*t156*t188*t2 2724 3 0*t3*t44*t46-4.781719592912377d-3*rhoa*t156*t186*t187*t20 2725 4 *t44/t14**11+1.6911873548697043d-3*t12*t136*t156*t187*t20 2726 5 *t44/t14**9+3.3081598407510854d-6*t11*t137*t155*t156*t178 2727 6 *t22*t24)+2.6805209777553995d-4*t10*t11*t118*t24*t3*t76*t 2728 7 87*t89+6.235734391562631d-5*t10*t11*t137*t140*t49*t76*t87 2729 8 -4.774105516012976d-7*t10*t11*t118*t156*t187*t25*t86-2.05 2730 9 2218581183617d-6*t10*t11*t156*t188*t189*t25*t3*t49-8.1448 2731 : 52113488832d-3*t10*t11*t144*t24*t4*t45*t46-4.410879787668 2732 ; 1144d-6*t10*t11*t137*t155*t156*t178*t24*t25)+1.5117906765 2733 < 562272d-3*t3*t77*t87*t89*t94-4.5936262350808227d-2*t145*t 2734 = 4*t45*t74-2.4876980981476426d-5*t137*t155*t156*t191*t26)* 2735 > wght+Cmat3(iq,D3_GAA_GAA_GAA) 2736 Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB) 2737 Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB) 2738 Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB) 2739 Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB) 2740 Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB) 2741 Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB) 2742 Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB) 2743 Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB) 2744 Cmat3(iq,D3_GBB_GBB_GBB) = (1.0d+0*t31*(-3.5461536035682834d 2745 1 -1*t10*t11*t32*t34*(-4.676800793671973d-5*t11*t146*t149*t 2746 2 62*t82*t87-2.0103907333165494d-4*t105*t11*t127*t3*t41*t82 2747 3 *t87+2.659615202676212d-1*t11*t32*t34*(-4.626481569094401 2748 4 7d-3*t141*t150*t156*t193*t3*t38*t81+8.181415676054655d-4* 2749 5 t111*t156*t18*t193*t3*t38*t79+1.6940658945086007d-21*t156 2750 6 *t176*t193*t3*t38*t65+3.5169003312704855d-4*t146*t155*t15 2751 7 6*t18*t184*t38*t65-8.798432205344503d-7*t146*t15*t155*t15 2752 8 6*t174*t39-1.2438490490738213d-5*t146*t155*t156*t195*t37* 2753 9 t38+3.8065089231694144d-4*t150*t156*t18*t192*t36*t38+1.01 2754 : 43559049642756d-2*t156*t190*t192*t35*t38/t33**6-4.6638151 2755 ; 82852701d-3*t141*t156*t192*t38/t33**5+4.1503496197175305d 2756 < -22*t110*t111*t156*t192*t38)-8.972027574067322d-5*t147*t1 2757 = 56*t192*t23*t38*t44*t64-1.6578827153323844d-4*t146*t155*t 2758 > 156*t23*t38*t44*t62/rhob**5.666666666666667d+0+1.53916393 2759 ? 58877124d-6*t11*t156*t193*t194*t3*t40*t62+6.1086390851166 2760 @ 25d-3*t11*t151*t4*t41*t58*t59+2.1809443270274873d-3*t136* 2761 1 t147*t156*t193*t3*t38*t44*t59+1.6911873548697043d-3*t136* 2762 2 t156*t192*t32*t38*t44/t34**9-4.781719592912377d-3*rhob*t1 2763 3 56*t186*t192*t38*t44/t34**11-2.3140538016976683d-4*t103*t 2764 4 130*t156*t193*t23*t3*t38*t44+3.3081598407510854d-6*t11*t1 2765 5 46*t155*t156*t182*t40*t41+3.580579137009732d-7*t103*t11*t 2766 6 127*t156*t192*t40)+6.235734391562631d-5*t10*t11*t146*t149 2767 7 *t62*t83*t87+2.6805209777553995d-4*t10*t105*t11*t127*t3*t 2768 8 41*t83*t87-2.052218581183617d-6*t10*t11*t156*t193*t194*t3 2769 9 *t42*t62-8.144852113488832d-3*t10*t11*t152*t4*t41*t58*t59 2770 : -4.4108797876681144d-6*t10*t11*t146*t155*t156*t182*t41*t4 2771 ; 2-4.774105516012976d-7*t10*t103*t11*t127*t156*t192*t42)+1 2772 < .5117906765562272d-3*t105*t110*t3*t84*t87-4.5936262350808 2773 = 227d-2*t153*t4*t58*t81-2.4876980981476426d-5*t146*t155*t1 2774 > 56*t195*t43)*wght+Cmat3(iq,D3_GBB_GBB_GBB) 2775 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 2776 t1 = rhoa**1.3333333333333333d+0 2777 t2 = param(1) 2778 t3 = 1/t2 2779 t4 = param(2) 2780 t5 = 1/rhoa**2.6666666666666666d+0 2781 t6 = 1.6455307846020564d-2*gammaaa*t3*t4*t5+1.0d+0 2782 t7 = 1.0d+0-1.0d+0/t6 2783 t8 = -9.305257363491d-1*t1*t2*t7-9.305257363491d-1*t1 2784 t9 = param(4) 2785 t10 = param(5) 2786 t11 = 1/rhoa 2787 t12 = 9.305257363491d-1*t1*t2*t7+9.305257363491d-1*t1 2788 t13 = t12**5.0d-1 2789 t14 = t10**2 2790 t15 = rhoa**2 2791 t16 = 1/t15 2792 t17 = 1/t14 2793 t18 = 1/t12 2794 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 2795 t20 = t19-1.0d+0 2796 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 2797 t22 = 1/t10 2798 t23 = 1/t13 2799 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhoa*t2 2800 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 2801 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9-param(3)+1.0 2802 1 d+0 2803 t26 = 5.641895835477563d-1 2804 t27 = 1/t6**2 2805 t28 = 1/rhoa**2.3333333333333334d+0 2806 t29 = rhoa**3.333333333333333d-1 2807 t30 = 1.2407009817987999d+0*t2*t29*t7-4.0832233200718415d-2* 2808 1 gammaaa*t27*t28*t4+1.2407009817987999d+0*t29 2809 t31 = 1/t13**3 2810 t32 = 3.759942411946509d+0*t22*t23-1.8799712059732546d+0*rho 2811 1 a*t22*t30*t31 2812 t33 = 1/rhoa**3 2813 t34 = 1/t12**2 2814 t35 = 1.413716694115413d+1*t15*t17*t30*t34-2.827433388230826 2815 1 d+1*rhoa*t17*t18 2816 t36 = -3.536776513153214d-2*t12*t14*t16*t19*t35+t19*t35+7.07 2817 1 3553026306428d-2*t12*t14*t20*t33-3.536776513153214d-2*t14 2818 2 *t16*t20*t30 2819 t37 = 2.659615202676212d-1*t10*t11*t13*t36+3.544907701811040 2820 1 3d+0*t19*t26*t32+1.329807601338106d-1*t10*t11*t21*t23*t30 2821 2 -2.659615202676212d-1*t10*t13*t16*t21 2822 t38 = -3.5461536035682834d-1*t10*t11*t13*t37*t9-1.7730768017 2823 1 841417d-1*t10*t11*t23*t24*t30*t9+3.5461536035682834d-1*t1 2824 2 0*t13*t16*t24*t9 2825 t39 = -1.2407009817987999d+0*t2*t29*t7+4.0832233200718415d-2 2826 1 *gammaaa*t27*t28*t4-1.2407009817987999d+0*t29 2827 t40 = 1/t29 2828 t41 = 1/rhoa**3.3333333333333337d+0 2829 t42 = rhoa**6.666666666666666d-1 2830 t43 = 1/t1 2831 t44 = -7.656043725134704d-3*t18*t19*t27*t4*t43+2.16469536502 2832 1 00973d-1*t17*t19*t27*t34*t4*t42-5.415543126146093d-4*t14* 2833 2 t20*t27*t4*t41 2834 t45 = 2.659615202676212d-1*t10*t11*t13*t44-1.020447181205866 2835 1 6d-1*t19*t22*t26*t27*t31*t4*t40+2.036213028372208d-3*t10* 2836 2 t21*t23*t27*t28*t4 2837 t46 = -3.5461536035682834d-1*t10*t11*t13*t45*t9-2.7149507044 2838 1 962773d-3*t10*t23*t24*t27*t28*t4*t9 2839 t47 = t30**2 2840 t48 = 1/t13**5 2841 t49 = t4**2 2842 t50 = gammaaa**2 2843 t51 = 1/t6**3 2844 t52 = 1/rhoa**6 2845 t53 = 1/t42 2846 t54 = 4.135669939329333d-1*t2*t53*t7+4.135669939329333d-1*t5 2847 1 3-3.5835038259110563d-3*t3*t49*t50*t51*t52+4.083223320071 2848 2 8415d-2*gammaaa*t27*t4*t41 2849 t55 = -1.8799712059732546d+0*rhoa*t22*t31*t54+2.819956808959 2850 1 8814d+0*rhoa*t22*t47*t48-3.759942411946509d+0*t22*t30*t31 2851 t56 = 1/rhoa**4 2852 t57 = 1/t12**3 2853 t58 = -2.827433388230826d+1*t15*t17*t47*t57+1.41371669411541 2854 1 3d+1*t15*t17*t34*t54+5.654866776461652d+1*rhoa*t17*t30*t3 2855 2 4-2.827433388230826d+1*t17*t18 2856 t59 = t35**2 2857 t60 = -3.536776513153214d-2*t12*t14*t16*t19*t59+t19*t59-3.53 2858 1 6776513153214d-2*t12*t14*t16*t19*t58+t19*t58-2.1220659078 2859 2 919285d-1*t12*t14*t20*t56-3.536776513153214d-2*t14*t16*t2 2860 3 0*t54+1.4147106052612857d-1*t12*t14*t19*t33*t35-7.0735530 2861 4 26306428d-2*t14*t16*t19*t30*t35+1.4147106052612857d-1*t14 2862 5 *t20*t30*t33 2863 t61 = 2.659615202676212d-1*t10*t11*t13*t60+3.544907701811040 2864 1 3d+0*t19*t26*t55+1.329807601338106d-1*t10*t11*t21*t23*t54 2865 2 -6.649038006690531d-2*t10*t11*t21*t31*t47+2.6596152026762 2866 3 12d-1*t10*t11*t23*t30*t36-5.319230405352424d-1*t10*t13*t1 2867 4 6*t36+3.5449077018110403d+0*t19*t26*t32*t35+5.31923040535 2868 5 2424d-1*t10*t13*t21*t33-2.659615202676212d-1*t10*t16*t21* 2869 6 t23*t30 2870 t62 = -3.5461536035682834d-1*t10*t11*t13*t61*t9-1.7730768017 2871 1 841417d-1*t10*t11*t23*t24*t54*t9+8.865384008920708d-2*t10 2872 2 *t11*t24*t31*t47*t9-3.5461536035682834d-1*t10*t11*t23*t30 2873 3 *t37*t9+7.092307207136567d-1*t10*t13*t16*t37*t9-7.0923072 2874 4 07136567d-1*t10*t13*t24*t33*t9+3.5461536035682834d-1*t10* 2875 5 t16*t23*t24*t30*t9 2876 t63 = -4.135669939329333d-1*t2*t53*t7-4.135669939329333d-1*t 2877 1 53+3.5835038259110563d-3*t3*t49*t50*t51*t52-4.08322332007 2878 2 18415d-2*gammaaa*t27*t4*t41 2879 t64 = 1/rhoa**5 2880 t65 = 1.3438139347166464d-3*gammaaa*t3*t49*t51*t64-2.0416116 2881 1 600359205d-2*t27*t28*t4 2882 t66 = -1.8799712059732546d+0*rhoa*t22*t31*t65+4.317942526477 2883 1 637d-2*t22*t27*t30*t4*t40*t48-2.878628350985092d-2*t22*t2 2884 2 7*t31*t4*t43 2885 t67 = 1/rhoa**4.333333333333333d+0 2886 t68 = 1.413716694115413d+1*t15*t17*t34*t65-4.329390730040194 2887 1 6d-1*t17*t27*t30*t4*t42*t57+4.3293907300401946d-1*t17*t27 2888 2 *t34*t4*t40 2889 t69 = -3.536776513153214d-2*t12*t14*t16*t19*t68+t19*t68+1.08 2890 1 31086252292187d-3*t14*t20*t27*t4*t67-3.536776513153214d-2 2891 2 *t14*t16*t20*t65-7.656043725134704d-3*t18*t19*t27*t35*t4* 2892 3 t43-7.656043725134704d-3*t19*t27*t30*t34*t4*t43+2.1646953 2893 4 650200973d-1*t17*t19*t27*t34*t35*t4*t42-5.415543126146093 2894 5 d-4*t14*t19*t27*t35*t4*t41+1.5312087450269407d-2*t18*t19* 2895 6 t27*t28*t4 2896 t70 = 2.659615202676212d-1*t10*t11*t13*t69+3.544907701811040 2897 1 3d+0*t19*t26*t66+1.329807601338106d-1*t10*t11*t21*t23*t65 2898 2 +1.329807601338106d-1*t10*t11*t23*t30*t44-2.6596152026762 2899 3 12d-1*t10*t13*t16*t44+7.673645271534404d-1*t17*t19*t26*t2 2900 4 7*t32*t34*t4*t42-2.036213028372208d-3*t10*t21*t23*t27*t4* 2901 5 t41+2.036213028372208d-3*t10*t23*t27*t28*t36*t4-1.0181065 2902 6 14186104d-3*t10*t21*t27*t28*t30*t31*t4 2903 t71 = -3.5461536035682834d-1*t10*t11*t13*t70*t9-1.7730768017 2904 1 841417d-1*t10*t11*t23*t24*t65*t9-1.7730768017841417d-1*t1 2905 2 0*t11*t23*t30*t45*t9+3.5461536035682834d-1*t10*t13*t16*t4 2906 3 5*t9+2.7149507044962773d-3*t10*t23*t24*t27*t4*t41*t9-2.71 2907 4 49507044962773d-3*t10*t23*t27*t28*t37*t4*t9+1.35747535224 2908 5 81386d-3*t10*t24*t27*t28*t30*t31*t4*t9 2909 t72 = 2.0416116600359205d-2*t27*t28*t4-1.3438139347166464d-3 2910 1 *gammaaa*t3*t49*t51*t64 2911 t73 = 1/t10**3 2912 t74 = 1/t6**4 2913 t75 = 1/t13**7 2914 t76 = 1/rhoa**1.6666666666666669d+0 2915 t77 = 1/rhoa**3.6666666666666664d+0 2916 t78 = 1/t10**4 2917 t79 = 1/t12**4 2918 t80 = 4.685906023339492d-2*t1*t19*t49*t74*t78*t79-8.28650118 2919 1 3095146d-3*t17*t19*t49*t53*t57*t74-1.3552527156068805d-20 2920 2 *t19*t34*t49*t5*t74+2.519651127593712d-4*t18*t19*t3*t49*t 2921 3 51*t56+1.782288585882691d-5*t14*t20*t3*t49*t51*t52-7.1241 2922 4 45724851911d-3*t16*t17*t19*t3*t34*t49*t51 2923 t81 = 2.659615202676212d-1*t10*t11*t13*t80-1.558933597890657 2924 1 7d-5*t10*t21*t31*t49*t74*t77+2.3437764715507717d-3*t19*t2 2925 2 2*t26*t48*t49*t74*t76-2.2089572834041626d-2*t19*t26*t29*t 2926 3 49*t73*t74*t75-6.701302444388497d-5*t10*t21*t23*t3*t49*t5 2927 4 1*t64+3.3583545014692934d-3*t19*t22*t26*t3*t31*t33*t49*t5 2928 5 1+4.072426056744416d-3*t10*t23*t27*t28*t4*t44 2929 t82 = -3.5461536035682834d-1*t10*t11*t13*t81*t9+2.0785781305 2930 1 20877d-5*t10*t24*t31*t49*t74*t77*t9+8.935069925851332d-5* 2931 2 t10*t23*t24*t3*t49*t51*t64*t9-5.429901408992555d-3*t10*t2 2932 3 3*t27*t28*t4*t45*t9 2933 t83 = t30**3 2934 t84 = 1/t2**2 2935 t85 = t4**3 2936 t86 = gammaaa**3 2937 t87 = 1/rhoa**9.666666666666666d+0 2938 t88 = 1/rhoa**7 2939 t89 = 2.50845267813774d-2*t3*t49*t50*t51*t88-4.7174126898207 2940 1 14d-4*t74*t84*t85*t86*t87-2.757113292886222d-1*t2*t7*t76- 2941 2 2.757113292886222d-1*t76-1.5425510320271402d-1*gammaaa*t2 2942 3 7*t4*t67 2943 t90 = 1.413716694115413d+1*t15*t17*t34*t89+8.482300164692478 2944 1 d+1*t15*t17*t79*t83-8.482300164692478d+1*t15*t17*t30*t54* 2945 2 t57-1.6964600329384957d+2*rhoa*t17*t47*t57+8.482300164692 2946 3 478d+1*rhoa*t17*t34*t54+8.482300164692478d+1*t17*t30*t34 2947 t91 = t35**3 2948 t92 = 1/rhoa**8.666666666666666d+0 2949 t93 = 1.7690297586827677d-4*t50*t74*t84*t85*t92-8.5108215865 2950 1 3876d-3*gammaaa*t3*t49*t51*t52+4.7637605400838157d-2*t27* 2951 2 t4*t41 2952 t94 = 1/rhoa**5.333333333333333d+0 2953 t95 = 1.413716694115413d+1*t15*t17*t34*t93+1.298817219012058 2954 1 4d+0*t17*t27*t4*t42*t47*t79-5.654866776461652d+1*t15*t17* 2955 2 t30*t57*t65+5.654866776461652d+1*rhoa*t17*t34*t65-4.32939 2956 3 07300401946d-1*t17*t27*t4*t42*t54*t57-1.7317562920160778d 2957 4 +0*t17*t27*t30*t4*t40*t57+4.3293907300401946d-1*t17*t27*t 2958 5 34*t4*t43 2959 t96 = 1/rhoa**7.666666666666667d+0 2960 t97 = 2.0157209020749695d-3*t3*t49*t51*t64-6.633861595060381 2961 1 d-5*gammaaa*t74*t84*t85*t96 2962 t98 = 1/rhoa**4.666666666666667d+0 2963 t99 = 1.413716694115413d+1*t15*t17*t34*t97+1.988760283942835 2964 1 3d-2*t17*t30*t49*t53*t74*t79-1.3258401892952237d-2*t17*t4 2965 2 9*t57*t74*t76-8.658781460080389d-1*t17*t27*t4*t42*t57*t65 2966 3 +1.4248291449703823d-2*t16*t17*t3*t30*t49*t51*t57-1.42482 2967 4 91449703823d-2*t17*t3*t33*t34*t49*t51 2968 t100 = 1/t6**6 2969 t101 = 1/t6**5 2970 t102 = 1/rhoa**6.333333333333333d+0 2971 t103 = 1/rhoa**6.666666666666667d+0 2972 fnc(iq) = 1.0d+0*t25*t8*wght+fnc(iq) 2973 Amat(iq,D1_RA) = 1.0d+0*t38*t8*wght+1.0d+0*t25*t39*wght+Amat 2974 1 (iq,D1_RA) 2975 Cmat(iq,D1_GAA) = 1.0d+0*t46*t8*wght-1.531208745026941d-2*t2 2976 1 5*t27*t4*t43*wght+Cmat(iq,D1_GAA) 2977 Amat2(iq,D2_RA_RA) = 1.0d+0*t62*t8*wght+1.0d+0*t25*t63*wght+ 2978 1 2.0d+0*t38*t39*wght+Amat2(iq,D2_RA_RA) 2979 Cmat2(iq,D2_RA_GAA) = 1.0d+0*t71*t8*wght+1.0d+0*t25*t72*wght 2980 1 +1.0d+0*t39*t46*wght-1.531208745026941d-2*t27*t38*t4*t43* 2981 2 wght+Cmat2(iq,D2_RA_GAA) 2982 Cmat2(iq,D2_GAA_GAA) = 1.0d+0*t8*t82*wght+5.039302255187424d 2983 1 -4*t25*t3*t49*t51*t56*wght-3.062417490053882d-2*t27*t4*t4 2984 2 3*t46*wght+Cmat2(iq,D2_GAA_GAA) 2985 Amat3(iq,D3_RA_RA_RA) = 1.0d+0*t8*(-3.5461536035682834d-1*t1 2986 1 0*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.536776 2987 2 513153214d-2*t12*t14*t16*t19*t91+t19*t91-3.53677651315321 2988 3 4d-2*t12*t14*t16*t19*t90+t19*t90-3.536776513153214d-2*t14 2989 4 *t16*t20*t89+8.488263631567714d-1*t12*t14*t20*t64+2.12206 2990 5 59078919285d-1*t12*t14*t19*t33*t59-1.0610329539459643d-1* 2991 6 t14*t16*t19*t30*t59-1.0610329539459643d-1*t12*t14*t16*t19 2992 7 *t35*t58+3*t19*t35*t58+2.1220659078919285d-1*t12*t14*t19* 2993 8 t33*t58-1.0610329539459643d-1*t14*t16*t19*t30*t58-6.36619 2994 9 7723675786d-1*t12*t14*t19*t35*t56-6.366197723675786d-1*t1 2995 : 4*t20*t30*t56-1.0610329539459643d-1*t14*t16*t19*t35*t54+2 2996 ; .1220659078919285d-1*t14*t20*t33*t54+4.244131815783857d-1 2997 < *t14*t19*t30*t33*t35)+3.5449077018110403d+0*t19*t26*(-1.8 2998 = 799712059732546d+0*rhoa*t22*t31*t89-7.049892022399704d+0* 2999 > rhoa*t22*t75*t83+8.459870426879645d+0*rhoa*t22*t30*t48*t5 3000 ? 4-5.639913617919763d+0*t22*t31*t54+8.459870426879645d+0*t 3001 @ 22*t47*t48)+1.329807601338106d-1*t10*t11*t21*t23*t89+9.97 3002 1 3557010035795d-2*t10*t11*t21*t48*t83+3.989422804014318d-1 3003 2 *t10*t11*t23*t30*t60-7.978845608028636d-1*t10*t13*t16*t60 3004 3 +3.5449077018110403d+0*t19*t26*t32*t59+3.5449077018110403 3005 4 d+0*t19*t26*t32*t58-1.5957691216057274d+0*t10*t13*t21*t56 3006 5 +7.089815403622081d+0*t19*t26*t35*t55+3.989422804014318d- 3007 6 1*t10*t11*t23*t36*t54-1.994711402007159d-1*t10*t11*t21*t3 3008 7 0*t31*t54-3.989422804014318d-1*t10*t16*t21*t23*t54-1.9947 3009 8 11402007159d-1*t10*t11*t31*t36*t47+1.994711402007159d-1*t 3010 9 10*t16*t21*t31*t47+1.5957691216057274d+0*t10*t13*t33*t36- 3011 : 7.978845608028636d-1*t10*t16*t23*t30*t36+7.97884560802863 3012 ; 6d-1*t10*t21*t23*t30*t33)-1.7730768017841417d-1*t10*t11*t 3013 < 23*t24*t89*t9-1.3298076013381063d-1*t10*t11*t24*t48*t83*t 3014 = 9-5.319230405352425d-1*t10*t11*t23*t30*t61*t9+1.063846081 3015 > 070485d+0*t10*t13*t16*t61*t9+2.12769216214097d+0*t10*t13* 3016 ? t24*t56*t9-5.319230405352425d-1*t10*t11*t23*t37*t54*t9+2. 3017 @ 6596152026762127d-1*t10*t11*t24*t30*t31*t54*t9+5.31923040 3018 1 5352425d-1*t10*t16*t23*t24*t54*t9+2.6596152026762127d-1*t 3019 2 10*t11*t31*t37*t47*t9-2.6596152026762127d-1*t10*t16*t24*t 3020 3 31*t47*t9-2.12769216214097d+0*t10*t13*t33*t37*t9+1.063846 3021 4 081070485d+0*t10*t16*t23*t30*t37*t9-1.063846081070485d+0* 3022 5 t10*t23*t24*t30*t33*t9)*wght+1.0d+0*t25*(-2.5084526781377 3023 6 4d-2*t3*t49*t50*t51*t88+4.717412689820714d-4*t74*t84*t85* 3024 7 t86*t87+2.757113292886222d-1*t2*t7*t76+2.757113292886222d 3025 8 -1*t76+1.5425510320271402d-1*gammaaa*t27*t4*t67)*wght+3.0 3026 9 d+0*t38*t63*wght+3.0d+0*t39*t62*wght+Amat3(iq,D3_RA_RA_RA 3027 : ) 3028 Cmat3(iq,D3_RA_RA_GAA) = 1.0d+0*t8*(-3.5461536035682834d-1*t 3029 1 10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.53677 3030 2 6513153214d-2*t12*t14*t16*t19*t95+t19*t95-3.2493258756876 3031 3 56d-3*t14*t20*t27*t4*t94-3.536776513153214d-2*t14*t16*t20 3032 4 *t93-7.073553026306428d-2*t12*t14*t16*t19*t35*t68+2*t19*t 3033 5 35*t68+1.4147106052612857d-1*t12*t14*t19*t33*t68-7.073553 3034 6 026306428d-2*t14*t16*t19*t30*t68+2.1662172504584373d-3*t1 3035 7 4*t19*t27*t35*t4*t67-7.073553026306428d-2*t14*t16*t19*t35 3036 8 *t65+1.4147106052612857d-1*t14*t20*t33*t65-7.656043725134 3037 9 704d-3*t18*t19*t27*t4*t43*t59+2.1646953650200973d-1*t17*t 3038 : 19*t27*t34*t4*t42*t59-5.415543126146093d-4*t14*t19*t27*t4 3039 ; *t41*t59-7.656043725134704d-3*t18*t19*t27*t4*t43*t58+2.16 3040 < 46953650200973d-1*t17*t19*t27*t34*t4*t42*t58-5.4155431261 3041 = 46093d-4*t14*t19*t27*t4*t41*t58-7.656043725134704d-3*t19* 3042 > t27*t34*t4*t43*t54-1.5312087450269407d-2*t19*t27*t30*t34* 3043 ? t35*t4*t43-4.593626235080822d-2*t18*t19*t27*t4*t41+3.0624 3044 @ 174900538814d-2*t18*t19*t27*t28*t35*t4+3.0624174900538814 3045 1 d-2*t19*t27*t28*t30*t34*t4)+3.5449077018110403d+0*t19*t26 3046 2 *(-1.8799712059732546d+0*rhoa*t22*t31*t93-1.0794856316194 3047 3 094d-1*t22*t27*t4*t40*t47*t75+5.639913617919763d+0*rhoa*t 3048 4 22*t30*t48*t65-3.759942411946509d+0*t22*t31*t65+4.3179425 3049 5 26477637d-2*t22*t27*t4*t40*t48*t54+8.635885052955274d-2*t 3050 6 22*t27*t30*t4*t43*t48)+1.329807601338106d-1*t10*t11*t21*t 3051 7 23*t93+2.659615202676212d-1*t10*t11*t23*t30*t69-5.3192304 3052 8 05352424d-1*t10*t13*t16*t69+3.5449077018110403d+0*t19*t26 3053 9 *t32*t68+4.072426056744416d-3*t10*t21*t23*t27*t4*t67+3.54 3054 : 49077018110403d+0*t19*t26*t35*t66+2.659615202676212d-1*t1 3055 ; 0*t11*t23*t36*t65-1.329807601338106d-1*t10*t11*t21*t30*t3 3056 < 1*t65-2.659615202676212d-1*t10*t16*t21*t23*t65+2.03621302 3057 = 8372208d-3*t10*t23*t27*t28*t4*t60+7.673645271534404d-1*t1 3058 > 7*t19*t26*t27*t34*t4*t42*t55+1.329807601338106d-1*t10*t11 3059 ? *t23*t44*t54-1.018106514186104d-3*t10*t21*t27*t28*t31*t4* 3060 @ t54+1.527159771279156d-3*t10*t21*t27*t28*t4*t47*t48-6.649 3061 1 038006690531d-2*t10*t11*t31*t44*t47+5.319230405352424d-1* 3062 2 t10*t13*t33*t44-2.659615202676212d-1*t10*t16*t23*t30*t44+ 3063 3 7.673645271534404d-1*t17*t19*t26*t27*t32*t34*t35*t4*t42-4 3064 4 .072426056744416d-3*t10*t23*t27*t36*t4*t41+2.036213028372 3065 5 208d-3*t10*t21*t27*t30*t31*t4*t41-2.036213028372208d-3*t1 3066 6 0*t27*t28*t30*t31*t36*t4)-1.7730768017841417d-1*t10*t11*t 3067 7 23*t24*t9*t93-3.5461536035682834d-1*t10*t11*t23*t30*t70*t 3068 8 9+7.092307207136567d-1*t10*t13*t16*t70*t9-5.4299014089925 3069 9 55d-3*t10*t23*t24*t27*t4*t67*t9-3.5461536035682834d-1*t10 3070 : *t11*t23*t37*t65*t9+1.7730768017841417d-1*t10*t11*t24*t30 3071 ; *t31*t65*t9+3.5461536035682834d-1*t10*t16*t23*t24*t65*t9- 3072 < 2.7149507044962773d-3*t10*t23*t27*t28*t4*t61*t9-1.7730768 3073 = 017841417d-1*t10*t11*t23*t45*t54*t9+1.3574753522481386d-3 3074 > *t10*t24*t27*t28*t31*t4*t54*t9-2.036213028372208d-3*t10*t 3075 ? 24*t27*t28*t4*t47*t48*t9+8.865384008920708d-2*t10*t11*t31 3076 @ *t45*t47*t9-7.092307207136567d-1*t10*t13*t33*t45*t9+3.546 3077 1 1536035682834d-1*t10*t16*t23*t30*t45*t9+5.429901408992555 3078 2 d-3*t10*t23*t27*t37*t4*t41*t9-2.7149507044962773d-3*t10*t 3079 3 24*t27*t30*t31*t4*t41*t9+2.7149507044962773d-3*t10*t27*t2 3080 4 8*t30*t31*t37*t4*t9)*wght+1.0d+0*t25*(-1.7690297586827677 3081 5 d-4*t50*t74*t84*t85*t92+8.51082158653876d-3*gammaaa*t3*t4 3082 6 9*t51*t52-4.7637605400838157d-2*t27*t4*t41)*wght+2.0d+0*t 3083 7 38*t72*wght+2.0d+0*t39*t71*wght+1.0d+0*t46*t63*wght-1.531 3084 8 208745026941d-2*t27*t4*t43*t62*wght+Cmat3(iq,D3_RA_RA_GAA 3085 9 ) 3086 Cmat3(iq,D3_RA_GAA_GAA) = 1.0d+0*t8*(-3.5461536035682834d-1* 3087 1 t10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.5367 3088 2 76513153214d-2*t12*t14*t16*t19*t99+t19*t99-3.536776513153 3089 3 214d-2*t14*t16*t20*t97-3.564577171765382d-5*t14*t20*t3*t4 3090 4 9*t51*t88+4.685906023339492d-2*t1*t19*t35*t49*t74*t78*t79 3091 5 -1.6573002366190293d-3*t17*t19*t30*t49*t53*t74*t79+2.7105 3092 6 05431213761d-20*t19*t34*t49*t74*t77+3.3146004732380585d-3 3093 7 *t17*t19*t49*t57*t74*t76-8.286501183095146d-3*t17*t19*t35 3094 8 *t49*t53*t57*t74+2.344600220846979d-4*t19*t30*t49*t5*t57* 3095 9 t74-1.3552527156068805d-20*t19*t34*t35*t49*t5*t74-1.53120 3096 : 87450269407d-2*t18*t19*t27*t4*t43*t68+4.3293907300401946d 3097 ; -1*t17*t19*t27*t34*t4*t42*t68-1.0831086252292187d-3*t14*t 3098 < 19*t27*t4*t41*t68-1.5312087450269407d-2*t19*t27*t34*t4*t4 3099 = 3*t65-5.039302255187424d-4*t18*t19*t3*t49*t51*t64+2.51965 3100 > 1127593712d-4*t18*t19*t3*t35*t49*t51*t56+2.51965112759371 3101 ? 2d-4*t19*t3*t30*t34*t49*t51*t56+1.782288585882691d-5*t14* 3102 @ t19*t3*t35*t49*t51*t52-7.124145724851911d-3*t16*t17*t19*t 3103 1 3*t34*t35*t49*t51)+1.5589335978906577d-5*t10*t21*t31*t49* 3104 2 t74*t98+3.5449077018110403d+0*t19*t26*(-1.879971205973254 3105 3 6d+0*rhoa*t22*t31*t97-1.6529178392665705d-3*t22*t30*t49*t 3106 4 74*t75*t76+6.611671357066283d-4*t22*t48*t49*t5*t74+8.6358 3107 5 85052955274d-2*t22*t27*t4*t40*t48*t65+9.473743137948445d- 3108 6 4*t22*t3*t31*t49*t51*t56-1.4210614706922667d-3*t22*t3*t30 3109 7 *t33*t48*t49*t51)+1.329807601338106d-1*t10*t11*t21*t23*t9 3110 8 7+1.329807601338106d-1*t10*t11*t23*t30*t80-2.659615202676 3111 9 212d-1*t10*t13*t16*t80+1.661110435209891d-1*t1*t19*t26*t3 3112 : 2*t49*t74*t78*t79+2.3384003968359865d-5*t10*t21*t30*t48*t 3113 ; 49*t74*t77-1.5589335978906577d-5*t10*t31*t36*t49*t74*t77- 3114 < 2.3499905492016226d-2*t17*t19*t26*t32*t49*t53*t57*t74+4.0 3115 = 72426056744416d-3*t10*t23*t27*t28*t4*t69+1.53472905430688 3116 > 1d+0*t17*t19*t26*t27*t34*t4*t42*t66+2.659615202676212d-1* 3117 ? t10*t11*t23*t44*t65-2.036213028372208d-3*t10*t21*t27*t28* 3118 @ t31*t4*t65-6.701302444388497d-5*t10*t23*t3*t36*t49*t51*t6 3119 1 4+3.3506512221942486d-5*t10*t21*t3*t30*t31*t49*t51*t64+6. 3120 2 701302444388497d-5*t10*t21*t23*t3*t49*t51*t52-2.525443904 3121 3 885174d-2*t16*t17*t19*t26*t3*t32*t34*t49*t51-4.0724260567 3122 4 44416d-3*t10*t23*t27*t4*t41*t44-2.036213028372208d-3*t10* 3123 5 t27*t28*t30*t31*t4*t44)-2.078578130520877d-5*t10*t24*t31* 3124 6 t49*t74*t9*t98-1.7730768017841417d-1*t10*t11*t23*t24*t9*t 3125 7 97-1.7730768017841417d-1*t10*t11*t23*t30*t81*t9+3.5461536 3126 8 035682834d-1*t10*t13*t16*t81*t9-3.1178671957813153d-5*t10 3127 9 *t24*t30*t48*t49*t74*t77*t9+2.078578130520877d-5*t10*t31* 3128 : t37*t49*t74*t77*t9-5.429901408992555d-3*t10*t23*t27*t28*t 3129 ; 4*t70*t9-3.5461536035682834d-1*t10*t11*t23*t45*t65*t9+2.7 3130 < 149507044962773d-3*t10*t24*t27*t28*t31*t4*t65*t9+8.935069 3131 = 925851332d-5*t10*t23*t3*t37*t49*t51*t64*t9-4.467534962925 3132 > 666d-5*t10*t24*t3*t30*t31*t49*t51*t64*t9-8.93506992585133 3133 ? 2d-5*t10*t23*t24*t3*t49*t51*t52*t9+5.429901408992555d-3*t 3134 @ 10*t23*t27*t4*t41*t45*t9+2.7149507044962773d-3*t10*t27*t2 3135 1 8*t30*t31*t4*t45*t9)*wght+1.0d+0*t25*(6.633861595060381d- 3136 2 5*gammaaa*t74*t84*t85*t96-2.0157209020749695d-3*t3*t49*t5 3137 3 1*t64)*wght+1.0d+0*t39*t82*wght+2.0d+0*t46*t72*wght-3.062 3138 4 417490053882d-2*t27*t4*t43*t71*wght+5.039302255187424d-4* 3139 5 t3*t38*t49*t51*t56*wght+Cmat3(iq,D3_RA_GAA_GAA) 3140 Cmat3(iq,D3_GAA_GAA_GAA) = 1.0d+0*t8*(-3.5461536035682834d-1 3141 1 *t10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(3.5169 3142 2 003312704855d-4*t17*t19*t34*t74*t84*t85*t98+1.69406589450 3143 3 86007d-21*t101*t19*t3*t34*t85*t94-8.798432205344503d-7*t1 3144 4 4*t20*t74*t84*t85*t92-1.2438490490738213d-5*t103*t18*t19* 3145 5 t74*t84*t85-4.6264815690944017d-3*t101*t19*t3*t43*t78*t79 3146 6 *t85+3.8065089231694144d-4*t100*t16*t17*t19*t79*t85-4.663 3147 7 815182852701d-3*t100*t19*t78*t85/t12**5+4.150349619717530 3148 8 5d-22*t100*t19*t56*t57*t85+8.181415676054655d-4*t101*t17* 3149 9 t19*t3*t41*t57*t85+1.0143559049642756d-2*t100*t15*t19*t85 3150 : /(t10**6*t12**6))+3.3081598407510854d-6*t10*t21*t23*t74*t 3151 ; 84*t85*t96-1.6578827153323844d-4*t19*t22*t26*t31*t74*t84* 3152 < t85/rhoa**5.666666666666667d+0+2.1809443270274873d-3*t101 3153 = *t19*t26*t28*t3*t73*t75*t85-8.972027574067322d-5*t100*t19 3154 > *t22*t26*t33*t75*t85+1.6911873548697043d-3*t100*t11*t19*t 3155 ? 26*t73*t85/t13**9-2.3140538016976683d-4*t101*t19*t22*t26* 3156 @ t3*t48*t67*t85+3.580579137009732d-7*t10*t100*t21*t48*t64* 3157 1 t85+1.5391639358877124d-6*t10*t101*t102*t21*t3*t31*t85-4. 3158 2 781719592912377d-3*rhoa*t100*t19*t26*t85/(t10**5*t13**11) 3159 3 +6.108639085116625d-3*t10*t23*t27*t28*t4*t80-4.6768007936 3160 4 71973d-5*t10*t31*t44*t49*t74*t77-2.0103907333165494d-4*t1 3161 5 0*t23*t3*t44*t49*t51*t64)-4.4108797876681144d-6*t10*t23*t 3162 6 24*t74*t84*t85*t9*t96-4.774105516012976d-7*t10*t100*t24*t 3163 7 48*t64*t85*t9-2.052218581183617d-6*t10*t101*t102*t24*t3*t 3164 8 31*t85*t9-8.144852113488832d-3*t10*t23*t27*t28*t4*t81*t9+ 3165 9 6.235734391562631d-5*t10*t31*t45*t49*t74*t77*t9+2.6805209 3166 : 777553995d-4*t10*t23*t3*t45*t49*t51*t64*t9)*wght-2.487698 3167 ; 0981476426d-5*t103*t25*t74*t84*t85*wght-4.593626235080822 3168 < 7d-2*t27*t4*t43*t82*wght+1.5117906765562272d-3*t3*t46*t49 3169 = *t51*t56*wght+Cmat3(iq,D3_GAA_GAA_GAA) 3170 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 3171 t1 = rhob**1.3333333333333333d+0 3172 t2 = param(1) 3173 t3 = 1/t2 3174 t4 = param(2) 3175 t5 = 1/rhob**2.6666666666666666d+0 3176 t6 = 1.6455307846020564d-2*gammabb*t3*t4*t5+1.0d+0 3177 t7 = 1.0d+0-1.0d+0/t6 3178 t8 = -9.305257363491d-1*t1*t2*t7-9.305257363491d-1*t1 3179 t9 = param(4) 3180 t10 = param(5) 3181 t11 = 1/rhob 3182 t12 = 9.305257363491d-1*t1*t2*t7+9.305257363491d-1*t1 3183 t13 = t12**5.0d-1 3184 t14 = t10**2 3185 t15 = rhob**2 3186 t16 = 1/t15 3187 t17 = 1/t14 3188 t18 = 1/t12 3189 t19 = exp(-1.413716694115413d+1*t15*t17*t18) 3190 t20 = t19-1.0d+0 3191 t21 = -3.536776513153214d-2*t12*t14*t16*t20+t19-1.5d+0 3192 t22 = 1/t10 3193 t23 = 1/t13 3194 t24 = 1.7724538509055202d+0*erf(3.759942411946509d+0*rhob*t2 3195 1 2*t23)+2.659615202676212d-1*t10*t11*t13*t21 3196 t25 = -3.5461536035682834d-1*t10*t11*t13*t24*t9-param(3)+1.0 3197 1 d+0 3198 t26 = 5.641895835477563d-1 3199 t27 = 1/t6**2 3200 t28 = 1/rhob**2.3333333333333334d+0 3201 t29 = rhob**3.333333333333333d-1 3202 t30 = 1.2407009817987999d+0*t2*t29*t7-4.0832233200718415d-2* 3203 1 gammabb*t27*t28*t4+1.2407009817987999d+0*t29 3204 t31 = 1/t13**3 3205 t32 = 3.759942411946509d+0*t22*t23-1.8799712059732546d+0*rho 3206 1 b*t22*t30*t31 3207 t33 = 1/rhob**3 3208 t34 = 1/t12**2 3209 t35 = 1.413716694115413d+1*t15*t17*t30*t34-2.827433388230826 3210 1 d+1*rhob*t17*t18 3211 t36 = -3.536776513153214d-2*t12*t14*t16*t19*t35+t19*t35+7.07 3212 1 3553026306428d-2*t12*t14*t20*t33-3.536776513153214d-2*t14 3213 2 *t16*t20*t30 3214 t37 = 2.659615202676212d-1*t10*t11*t13*t36+3.544907701811040 3215 1 3d+0*t19*t26*t32+1.329807601338106d-1*t10*t11*t21*t23*t30 3216 2 -2.659615202676212d-1*t10*t13*t16*t21 3217 t38 = -3.5461536035682834d-1*t10*t11*t13*t37*t9-1.7730768017 3218 1 841417d-1*t10*t11*t23*t24*t30*t9+3.5461536035682834d-1*t1 3219 2 0*t13*t16*t24*t9 3220 t39 = -1.2407009817987999d+0*t2*t29*t7+4.0832233200718415d-2 3221 1 *gammabb*t27*t28*t4-1.2407009817987999d+0*t29 3222 t40 = 1/t29 3223 t41 = 1/rhob**3.3333333333333337d+0 3224 t42 = rhob**6.666666666666666d-1 3225 t43 = 1/t1 3226 t44 = -7.656043725134704d-3*t18*t19*t27*t4*t43+2.16469536502 3227 1 00973d-1*t17*t19*t27*t34*t4*t42-5.415543126146093d-4*t14* 3228 2 t20*t27*t4*t41 3229 t45 = 2.659615202676212d-1*t10*t11*t13*t44-1.020447181205866 3230 1 6d-1*t19*t22*t26*t27*t31*t4*t40+2.036213028372208d-3*t10* 3231 2 t21*t23*t27*t28*t4 3232 t46 = -3.5461536035682834d-1*t10*t11*t13*t45*t9-2.7149507044 3233 1 962773d-3*t10*t23*t24*t27*t28*t4*t9 3234 t47 = t30**2 3235 t48 = 1/t13**5 3236 t49 = t4**2 3237 t50 = gammabb**2 3238 t51 = 1/t6**3 3239 t52 = 1/rhob**6 3240 t53 = 1/t42 3241 t54 = 4.135669939329333d-1*t2*t53*t7+4.135669939329333d-1*t5 3242 1 3-3.5835038259110563d-3*t3*t49*t50*t51*t52+4.083223320071 3243 2 8415d-2*gammabb*t27*t4*t41 3244 t55 = -1.8799712059732546d+0*rhob*t22*t31*t54+2.819956808959 3245 1 8814d+0*rhob*t22*t47*t48-3.759942411946509d+0*t22*t30*t31 3246 t56 = 1/rhob**4 3247 t57 = 1/t12**3 3248 t58 = -2.827433388230826d+1*t15*t17*t47*t57+1.41371669411541 3249 1 3d+1*t15*t17*t34*t54+5.654866776461652d+1*rhob*t17*t30*t3 3250 2 4-2.827433388230826d+1*t17*t18 3251 t59 = t35**2 3252 t60 = -3.536776513153214d-2*t12*t14*t16*t19*t59+t19*t59-3.53 3253 1 6776513153214d-2*t12*t14*t16*t19*t58+t19*t58-2.1220659078 3254 2 919285d-1*t12*t14*t20*t56-3.536776513153214d-2*t14*t16*t2 3255 3 0*t54+1.4147106052612857d-1*t12*t14*t19*t33*t35-7.0735530 3256 4 26306428d-2*t14*t16*t19*t30*t35+1.4147106052612857d-1*t14 3257 5 *t20*t30*t33 3258 t61 = 2.659615202676212d-1*t10*t11*t13*t60+3.544907701811040 3259 1 3d+0*t19*t26*t55+1.329807601338106d-1*t10*t11*t21*t23*t54 3260 2 -6.649038006690531d-2*t10*t11*t21*t31*t47+2.6596152026762 3261 3 12d-1*t10*t11*t23*t30*t36-5.319230405352424d-1*t10*t13*t1 3262 4 6*t36+3.5449077018110403d+0*t19*t26*t32*t35+5.31923040535 3263 5 2424d-1*t10*t13*t21*t33-2.659615202676212d-1*t10*t16*t21* 3264 6 t23*t30 3265 t62 = -3.5461536035682834d-1*t10*t11*t13*t61*t9-1.7730768017 3266 1 841417d-1*t10*t11*t23*t24*t54*t9+8.865384008920708d-2*t10 3267 2 *t11*t24*t31*t47*t9-3.5461536035682834d-1*t10*t11*t23*t30 3268 3 *t37*t9+7.092307207136567d-1*t10*t13*t16*t37*t9-7.0923072 3269 4 07136567d-1*t10*t13*t24*t33*t9+3.5461536035682834d-1*t10* 3270 5 t16*t23*t24*t30*t9 3271 t63 = -4.135669939329333d-1*t2*t53*t7-4.135669939329333d-1*t 3272 1 53+3.5835038259110563d-3*t3*t49*t50*t51*t52-4.08322332007 3273 2 18415d-2*gammabb*t27*t4*t41 3274 t64 = 1/rhob**5 3275 t65 = 1.3438139347166464d-3*gammabb*t3*t49*t51*t64-2.0416116 3276 1 600359205d-2*t27*t28*t4 3277 t66 = -1.8799712059732546d+0*rhob*t22*t31*t65+4.317942526477 3278 1 637d-2*t22*t27*t30*t4*t40*t48-2.878628350985092d-2*t22*t2 3279 2 7*t31*t4*t43 3280 t67 = 1/rhob**4.333333333333333d+0 3281 t68 = 1.413716694115413d+1*t15*t17*t34*t65-4.329390730040194 3282 1 6d-1*t17*t27*t30*t4*t42*t57+4.3293907300401946d-1*t17*t27 3283 2 *t34*t4*t40 3284 t69 = -3.536776513153214d-2*t12*t14*t16*t19*t68+t19*t68+1.08 3285 1 31086252292187d-3*t14*t20*t27*t4*t67-3.536776513153214d-2 3286 2 *t14*t16*t20*t65-7.656043725134704d-3*t18*t19*t27*t35*t4* 3287 3 t43-7.656043725134704d-3*t19*t27*t30*t34*t4*t43+2.1646953 3288 4 650200973d-1*t17*t19*t27*t34*t35*t4*t42-5.415543126146093 3289 5 d-4*t14*t19*t27*t35*t4*t41+1.5312087450269407d-2*t18*t19* 3290 6 t27*t28*t4 3291 t70 = 2.659615202676212d-1*t10*t11*t13*t69+3.544907701811040 3292 1 3d+0*t19*t26*t66+1.329807601338106d-1*t10*t11*t21*t23*t65 3293 2 +1.329807601338106d-1*t10*t11*t23*t30*t44-2.6596152026762 3294 3 12d-1*t10*t13*t16*t44+7.673645271534404d-1*t17*t19*t26*t2 3295 4 7*t32*t34*t4*t42-2.036213028372208d-3*t10*t21*t23*t27*t4* 3296 5 t41+2.036213028372208d-3*t10*t23*t27*t28*t36*t4-1.0181065 3297 6 14186104d-3*t10*t21*t27*t28*t30*t31*t4 3298 t71 = -3.5461536035682834d-1*t10*t11*t13*t70*t9-1.7730768017 3299 1 841417d-1*t10*t11*t23*t24*t65*t9-1.7730768017841417d-1*t1 3300 2 0*t11*t23*t30*t45*t9+3.5461536035682834d-1*t10*t13*t16*t4 3301 3 5*t9+2.7149507044962773d-3*t10*t23*t24*t27*t4*t41*t9-2.71 3302 4 49507044962773d-3*t10*t23*t27*t28*t37*t4*t9+1.35747535224 3303 5 81386d-3*t10*t24*t27*t28*t30*t31*t4*t9 3304 t72 = 2.0416116600359205d-2*t27*t28*t4-1.3438139347166464d-3 3305 1 *gammabb*t3*t49*t51*t64 3306 t73 = 1/t10**3 3307 t74 = 1/t6**4 3308 t75 = 1/t13**7 3309 t76 = 1/rhob**1.6666666666666669d+0 3310 t77 = 1/rhob**3.6666666666666664d+0 3311 t78 = 1/t10**4 3312 t79 = 1/t12**4 3313 t80 = 4.685906023339492d-2*t1*t19*t49*t74*t78*t79-8.28650118 3314 1 3095146d-3*t17*t19*t49*t53*t57*t74-1.3552527156068805d-20 3315 2 *t19*t34*t49*t5*t74+2.519651127593712d-4*t18*t19*t3*t49*t 3316 3 51*t56+1.782288585882691d-5*t14*t20*t3*t49*t51*t52-7.1241 3317 4 45724851911d-3*t16*t17*t19*t3*t34*t49*t51 3318 t81 = 2.659615202676212d-1*t10*t11*t13*t80-1.558933597890657 3319 1 7d-5*t10*t21*t31*t49*t74*t77+2.3437764715507717d-3*t19*t2 3320 2 2*t26*t48*t49*t74*t76-2.2089572834041626d-2*t19*t26*t29*t 3321 3 49*t73*t74*t75-6.701302444388497d-5*t10*t21*t23*t3*t49*t5 3322 4 1*t64+3.3583545014692934d-3*t19*t22*t26*t3*t31*t33*t49*t5 3323 5 1+4.072426056744416d-3*t10*t23*t27*t28*t4*t44 3324 t82 = -3.5461536035682834d-1*t10*t11*t13*t81*t9+2.0785781305 3325 1 20877d-5*t10*t24*t31*t49*t74*t77*t9+8.935069925851332d-5* 3326 2 t10*t23*t24*t3*t49*t51*t64*t9-5.429901408992555d-3*t10*t2 3327 3 3*t27*t28*t4*t45*t9 3328 t83 = t30**3 3329 t84 = 1/t2**2 3330 t85 = t4**3 3331 t86 = gammabb**3 3332 t87 = 1/rhob**9.666666666666666d+0 3333 t88 = 1/rhob**7 3334 t89 = 2.50845267813774d-2*t3*t49*t50*t51*t88-4.7174126898207 3335 1 14d-4*t74*t84*t85*t86*t87-2.757113292886222d-1*t2*t7*t76- 3336 2 2.757113292886222d-1*t76-1.5425510320271402d-1*gammabb*t2 3337 3 7*t4*t67 3338 t90 = 1.413716694115413d+1*t15*t17*t34*t89+8.482300164692478 3339 1 d+1*t15*t17*t79*t83-8.482300164692478d+1*t15*t17*t30*t54* 3340 2 t57-1.6964600329384957d+2*rhob*t17*t47*t57+8.482300164692 3341 3 478d+1*rhob*t17*t34*t54+8.482300164692478d+1*t17*t30*t34 3342 t91 = t35**3 3343 t92 = 1/rhob**8.666666666666666d+0 3344 t93 = 1.7690297586827677d-4*t50*t74*t84*t85*t92-8.5108215865 3345 1 3876d-3*gammabb*t3*t49*t51*t52+4.7637605400838157d-2*t27* 3346 2 t4*t41 3347 t94 = 1/rhob**5.333333333333333d+0 3348 t95 = 1.413716694115413d+1*t15*t17*t34*t93+1.298817219012058 3349 1 4d+0*t17*t27*t4*t42*t47*t79-5.654866776461652d+1*t15*t17* 3350 2 t30*t57*t65+5.654866776461652d+1*rhob*t17*t34*t65-4.32939 3351 3 07300401946d-1*t17*t27*t4*t42*t54*t57-1.7317562920160778d 3352 4 +0*t17*t27*t30*t4*t40*t57+4.3293907300401946d-1*t17*t27*t 3353 5 34*t4*t43 3354 t96 = 1/rhob**7.666666666666667d+0 3355 t97 = 2.0157209020749695d-3*t3*t49*t51*t64-6.633861595060381 3356 1 d-5*gammabb*t74*t84*t85*t96 3357 t98 = 1/rhob**4.666666666666667d+0 3358 t99 = 1.413716694115413d+1*t15*t17*t34*t97+1.988760283942835 3359 1 3d-2*t17*t30*t49*t53*t74*t79-1.3258401892952237d-2*t17*t4 3360 2 9*t57*t74*t76-8.658781460080389d-1*t17*t27*t4*t42*t57*t65 3361 3 +1.4248291449703823d-2*t16*t17*t3*t30*t49*t51*t57-1.42482 3362 4 91449703823d-2*t17*t3*t33*t34*t49*t51 3363 t100 = 1/t6**6 3364 t101 = 1/t6**5 3365 t102 = 1/rhob**6.333333333333333d+0 3366 t103 = 1/rhob**6.666666666666667d+0 3367 fnc(iq) = 1.0d+0*t25*t8*wght+fnc(iq) 3368 Amat(iq,D1_RB) = 1.0d+0*t38*t8*wght+1.0d+0*t25*t39*wght+Amat 3369 1 (iq,D1_RB) 3370 Cmat(iq,D1_GBB) = 1.0d+0*t46*t8*wght-1.531208745026941d-2*t2 3371 1 5*t27*t4*t43*wght+Cmat(iq,D1_GBB) 3372 Amat2(iq,D2_RB_RB) = 1.0d+0*t62*t8*wght+1.0d+0*t25*t63*wght+ 3373 1 2.0d+0*t38*t39*wght+Amat2(iq,D2_RB_RB) 3374 Cmat2(iq,D2_RB_GBB) = 1.0d+0*t71*t8*wght+1.0d+0*t25*t72*wght 3375 1 +1.0d+0*t39*t46*wght-1.531208745026941d-2*t27*t38*t4*t43* 3376 2 wght+Cmat2(iq,D2_RB_GBB) 3377 Cmat2(iq,D2_GBB_GBB) = 1.0d+0*t8*t82*wght+5.039302255187424d 3378 1 -4*t25*t3*t49*t51*t56*wght-3.062417490053882d-2*t27*t4*t4 3379 2 3*t46*wght+Cmat2(iq,D2_GBB_GBB) 3380 Amat3(iq,D3_RB_RB_RB) = 1.0d+0*t8*(-3.5461536035682834d-1*t1 3381 1 0*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.536776 3382 2 513153214d-2*t12*t14*t16*t19*t91+t19*t91-3.53677651315321 3383 3 4d-2*t12*t14*t16*t19*t90+t19*t90-3.536776513153214d-2*t14 3384 4 *t16*t20*t89+8.488263631567714d-1*t12*t14*t20*t64+2.12206 3385 5 59078919285d-1*t12*t14*t19*t33*t59-1.0610329539459643d-1* 3386 6 t14*t16*t19*t30*t59-1.0610329539459643d-1*t12*t14*t16*t19 3387 7 *t35*t58+3*t19*t35*t58+2.1220659078919285d-1*t12*t14*t19* 3388 8 t33*t58-1.0610329539459643d-1*t14*t16*t19*t30*t58-6.36619 3389 9 7723675786d-1*t12*t14*t19*t35*t56-6.366197723675786d-1*t1 3390 : 4*t20*t30*t56-1.0610329539459643d-1*t14*t16*t19*t35*t54+2 3391 ; .1220659078919285d-1*t14*t20*t33*t54+4.244131815783857d-1 3392 < *t14*t19*t30*t33*t35)+3.5449077018110403d+0*t19*t26*(-1.8 3393 = 799712059732546d+0*rhob*t22*t31*t89-7.049892022399704d+0* 3394 > rhob*t22*t75*t83+8.459870426879645d+0*rhob*t22*t30*t48*t5 3395 ? 4-5.639913617919763d+0*t22*t31*t54+8.459870426879645d+0*t 3396 @ 22*t47*t48)+1.329807601338106d-1*t10*t11*t21*t23*t89+9.97 3397 1 3557010035795d-2*t10*t11*t21*t48*t83+3.989422804014318d-1 3398 2 *t10*t11*t23*t30*t60-7.978845608028636d-1*t10*t13*t16*t60 3399 3 +3.5449077018110403d+0*t19*t26*t32*t59+3.5449077018110403 3400 4 d+0*t19*t26*t32*t58-1.5957691216057274d+0*t10*t13*t21*t56 3401 5 +7.089815403622081d+0*t19*t26*t35*t55+3.989422804014318d- 3402 6 1*t10*t11*t23*t36*t54-1.994711402007159d-1*t10*t11*t21*t3 3403 7 0*t31*t54-3.989422804014318d-1*t10*t16*t21*t23*t54-1.9947 3404 8 11402007159d-1*t10*t11*t31*t36*t47+1.994711402007159d-1*t 3405 9 10*t16*t21*t31*t47+1.5957691216057274d+0*t10*t13*t33*t36- 3406 : 7.978845608028636d-1*t10*t16*t23*t30*t36+7.97884560802863 3407 ; 6d-1*t10*t21*t23*t30*t33)-1.7730768017841417d-1*t10*t11*t 3408 < 23*t24*t89*t9-1.3298076013381063d-1*t10*t11*t24*t48*t83*t 3409 = 9-5.319230405352425d-1*t10*t11*t23*t30*t61*t9+1.063846081 3410 > 070485d+0*t10*t13*t16*t61*t9+2.12769216214097d+0*t10*t13* 3411 ? t24*t56*t9-5.319230405352425d-1*t10*t11*t23*t37*t54*t9+2. 3412 @ 6596152026762127d-1*t10*t11*t24*t30*t31*t54*t9+5.31923040 3413 1 5352425d-1*t10*t16*t23*t24*t54*t9+2.6596152026762127d-1*t 3414 2 10*t11*t31*t37*t47*t9-2.6596152026762127d-1*t10*t16*t24*t 3415 3 31*t47*t9-2.12769216214097d+0*t10*t13*t33*t37*t9+1.063846 3416 4 081070485d+0*t10*t16*t23*t30*t37*t9-1.063846081070485d+0* 3417 5 t10*t23*t24*t30*t33*t9)*wght+1.0d+0*t25*(-2.5084526781377 3418 6 4d-2*t3*t49*t50*t51*t88+4.717412689820714d-4*t74*t84*t85* 3419 7 t86*t87+2.757113292886222d-1*t2*t7*t76+2.757113292886222d 3420 8 -1*t76+1.5425510320271402d-1*gammabb*t27*t4*t67)*wght+3.0 3421 9 d+0*t38*t63*wght+3.0d+0*t39*t62*wght+Amat3(iq,D3_RB_RB_RB 3422 : ) 3423 Cmat3(iq,D3_RB_RB_GBB) = 1.0d+0*t8*(-3.5461536035682834d-1*t 3424 1 10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.53677 3425 2 6513153214d-2*t12*t14*t16*t19*t95+t19*t95-3.2493258756876 3426 3 56d-3*t14*t20*t27*t4*t94-3.536776513153214d-2*t14*t16*t20 3427 4 *t93-7.073553026306428d-2*t12*t14*t16*t19*t35*t68+2*t19*t 3428 5 35*t68+1.4147106052612857d-1*t12*t14*t19*t33*t68-7.073553 3429 6 026306428d-2*t14*t16*t19*t30*t68+2.1662172504584373d-3*t1 3430 7 4*t19*t27*t35*t4*t67-7.073553026306428d-2*t14*t16*t19*t35 3431 8 *t65+1.4147106052612857d-1*t14*t20*t33*t65-7.656043725134 3432 9 704d-3*t18*t19*t27*t4*t43*t59+2.1646953650200973d-1*t17*t 3433 : 19*t27*t34*t4*t42*t59-5.415543126146093d-4*t14*t19*t27*t4 3434 ; *t41*t59-7.656043725134704d-3*t18*t19*t27*t4*t43*t58+2.16 3435 < 46953650200973d-1*t17*t19*t27*t34*t4*t42*t58-5.4155431261 3436 = 46093d-4*t14*t19*t27*t4*t41*t58-7.656043725134704d-3*t19* 3437 > t27*t34*t4*t43*t54-1.5312087450269407d-2*t19*t27*t30*t34* 3438 ? t35*t4*t43-4.593626235080822d-2*t18*t19*t27*t4*t41+3.0624 3439 @ 174900538814d-2*t18*t19*t27*t28*t35*t4+3.0624174900538814 3440 1 d-2*t19*t27*t28*t30*t34*t4)+3.5449077018110403d+0*t19*t26 3441 2 *(-1.8799712059732546d+0*rhob*t22*t31*t93-1.0794856316194 3442 3 094d-1*t22*t27*t4*t40*t47*t75+5.639913617919763d+0*rhob*t 3443 4 22*t30*t48*t65-3.759942411946509d+0*t22*t31*t65+4.3179425 3444 5 26477637d-2*t22*t27*t4*t40*t48*t54+8.635885052955274d-2*t 3445 6 22*t27*t30*t4*t43*t48)+1.329807601338106d-1*t10*t11*t21*t 3446 7 23*t93+2.659615202676212d-1*t10*t11*t23*t30*t69-5.3192304 3447 8 05352424d-1*t10*t13*t16*t69+3.5449077018110403d+0*t19*t26 3448 9 *t32*t68+4.072426056744416d-3*t10*t21*t23*t27*t4*t67+3.54 3449 : 49077018110403d+0*t19*t26*t35*t66+2.659615202676212d-1*t1 3450 ; 0*t11*t23*t36*t65-1.329807601338106d-1*t10*t11*t21*t30*t3 3451 < 1*t65-2.659615202676212d-1*t10*t16*t21*t23*t65+2.03621302 3452 = 8372208d-3*t10*t23*t27*t28*t4*t60+7.673645271534404d-1*t1 3453 > 7*t19*t26*t27*t34*t4*t42*t55+1.329807601338106d-1*t10*t11 3454 ? *t23*t44*t54-1.018106514186104d-3*t10*t21*t27*t28*t31*t4* 3455 @ t54+1.527159771279156d-3*t10*t21*t27*t28*t4*t47*t48-6.649 3456 1 038006690531d-2*t10*t11*t31*t44*t47+5.319230405352424d-1* 3457 2 t10*t13*t33*t44-2.659615202676212d-1*t10*t16*t23*t30*t44+ 3458 3 7.673645271534404d-1*t17*t19*t26*t27*t32*t34*t35*t4*t42-4 3459 4 .072426056744416d-3*t10*t23*t27*t36*t4*t41+2.036213028372 3460 5 208d-3*t10*t21*t27*t30*t31*t4*t41-2.036213028372208d-3*t1 3461 6 0*t27*t28*t30*t31*t36*t4)-1.7730768017841417d-1*t10*t11*t 3462 7 23*t24*t9*t93-3.5461536035682834d-1*t10*t11*t23*t30*t70*t 3463 8 9+7.092307207136567d-1*t10*t13*t16*t70*t9-5.4299014089925 3464 9 55d-3*t10*t23*t24*t27*t4*t67*t9-3.5461536035682834d-1*t10 3465 : *t11*t23*t37*t65*t9+1.7730768017841417d-1*t10*t11*t24*t30 3466 ; *t31*t65*t9+3.5461536035682834d-1*t10*t16*t23*t24*t65*t9- 3467 < 2.7149507044962773d-3*t10*t23*t27*t28*t4*t61*t9-1.7730768 3468 = 017841417d-1*t10*t11*t23*t45*t54*t9+1.3574753522481386d-3 3469 > *t10*t24*t27*t28*t31*t4*t54*t9-2.036213028372208d-3*t10*t 3470 ? 24*t27*t28*t4*t47*t48*t9+8.865384008920708d-2*t10*t11*t31 3471 @ *t45*t47*t9-7.092307207136567d-1*t10*t13*t33*t45*t9+3.546 3472 1 1536035682834d-1*t10*t16*t23*t30*t45*t9+5.429901408992555 3473 2 d-3*t10*t23*t27*t37*t4*t41*t9-2.7149507044962773d-3*t10*t 3474 3 24*t27*t30*t31*t4*t41*t9+2.7149507044962773d-3*t10*t27*t2 3475 4 8*t30*t31*t37*t4*t9)*wght+1.0d+0*t25*(-1.7690297586827677 3476 5 d-4*t50*t74*t84*t85*t92+8.51082158653876d-3*gammabb*t3*t4 3477 6 9*t51*t52-4.7637605400838157d-2*t27*t4*t41)*wght+2.0d+0*t 3478 7 38*t72*wght+2.0d+0*t39*t71*wght+1.0d+0*t46*t63*wght-1.531 3479 8 208745026941d-2*t27*t4*t43*t62*wght+Cmat3(iq,D3_RB_RB_GBB 3480 9 ) 3481 Cmat3(iq,D3_RB_GBB_GBB) = 1.0d+0*t8*(-3.5461536035682834d-1* 3482 1 t10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(-3.5367 3483 2 76513153214d-2*t12*t14*t16*t19*t99+t19*t99-3.536776513153 3484 3 214d-2*t14*t16*t20*t97-3.564577171765382d-5*t14*t20*t3*t4 3485 4 9*t51*t88+4.685906023339492d-2*t1*t19*t35*t49*t74*t78*t79 3486 5 -1.6573002366190293d-3*t17*t19*t30*t49*t53*t74*t79+2.7105 3487 6 05431213761d-20*t19*t34*t49*t74*t77+3.3146004732380585d-3 3488 7 *t17*t19*t49*t57*t74*t76-8.286501183095146d-3*t17*t19*t35 3489 8 *t49*t53*t57*t74+2.344600220846979d-4*t19*t30*t49*t5*t57* 3490 9 t74-1.3552527156068805d-20*t19*t34*t35*t49*t5*t74-1.53120 3491 : 87450269407d-2*t18*t19*t27*t4*t43*t68+4.3293907300401946d 3492 ; -1*t17*t19*t27*t34*t4*t42*t68-1.0831086252292187d-3*t14*t 3493 < 19*t27*t4*t41*t68-1.5312087450269407d-2*t19*t27*t34*t4*t4 3494 = 3*t65-5.039302255187424d-4*t18*t19*t3*t49*t51*t64+2.51965 3495 > 1127593712d-4*t18*t19*t3*t35*t49*t51*t56+2.51965112759371 3496 ? 2d-4*t19*t3*t30*t34*t49*t51*t56+1.782288585882691d-5*t14* 3497 @ t19*t3*t35*t49*t51*t52-7.124145724851911d-3*t16*t17*t19*t 3498 1 3*t34*t35*t49*t51)+1.5589335978906577d-5*t10*t21*t31*t49* 3499 2 t74*t98+3.5449077018110403d+0*t19*t26*(-1.879971205973254 3500 3 6d+0*rhob*t22*t31*t97-1.6529178392665705d-3*t22*t30*t49*t 3501 4 74*t75*t76+6.611671357066283d-4*t22*t48*t49*t5*t74+8.6358 3502 5 85052955274d-2*t22*t27*t4*t40*t48*t65+9.473743137948445d- 3503 6 4*t22*t3*t31*t49*t51*t56-1.4210614706922667d-3*t22*t3*t30 3504 7 *t33*t48*t49*t51)+1.329807601338106d-1*t10*t11*t21*t23*t9 3505 8 7+1.329807601338106d-1*t10*t11*t23*t30*t80-2.659615202676 3506 9 212d-1*t10*t13*t16*t80+1.661110435209891d-1*t1*t19*t26*t3 3507 : 2*t49*t74*t78*t79+2.3384003968359865d-5*t10*t21*t30*t48*t 3508 ; 49*t74*t77-1.5589335978906577d-5*t10*t31*t36*t49*t74*t77- 3509 < 2.3499905492016226d-2*t17*t19*t26*t32*t49*t53*t57*t74+4.0 3510 = 72426056744416d-3*t10*t23*t27*t28*t4*t69+1.53472905430688 3511 > 1d+0*t17*t19*t26*t27*t34*t4*t42*t66+2.659615202676212d-1* 3512 ? t10*t11*t23*t44*t65-2.036213028372208d-3*t10*t21*t27*t28* 3513 @ t31*t4*t65-6.701302444388497d-5*t10*t23*t3*t36*t49*t51*t6 3514 1 4+3.3506512221942486d-5*t10*t21*t3*t30*t31*t49*t51*t64+6. 3515 2 701302444388497d-5*t10*t21*t23*t3*t49*t51*t52-2.525443904 3516 3 885174d-2*t16*t17*t19*t26*t3*t32*t34*t49*t51-4.0724260567 3517 4 44416d-3*t10*t23*t27*t4*t41*t44-2.036213028372208d-3*t10* 3518 5 t27*t28*t30*t31*t4*t44)-2.078578130520877d-5*t10*t24*t31* 3519 6 t49*t74*t9*t98-1.7730768017841417d-1*t10*t11*t23*t24*t9*t 3520 7 97-1.7730768017841417d-1*t10*t11*t23*t30*t81*t9+3.5461536 3521 8 035682834d-1*t10*t13*t16*t81*t9-3.1178671957813153d-5*t10 3522 9 *t24*t30*t48*t49*t74*t77*t9+2.078578130520877d-5*t10*t31* 3523 : t37*t49*t74*t77*t9-5.429901408992555d-3*t10*t23*t27*t28*t 3524 ; 4*t70*t9-3.5461536035682834d-1*t10*t11*t23*t45*t65*t9+2.7 3525 < 149507044962773d-3*t10*t24*t27*t28*t31*t4*t65*t9+8.935069 3526 = 925851332d-5*t10*t23*t3*t37*t49*t51*t64*t9-4.467534962925 3527 > 666d-5*t10*t24*t3*t30*t31*t49*t51*t64*t9-8.93506992585133 3528 ? 2d-5*t10*t23*t24*t3*t49*t51*t52*t9+5.429901408992555d-3*t 3529 @ 10*t23*t27*t4*t41*t45*t9+2.7149507044962773d-3*t10*t27*t2 3530 1 8*t30*t31*t4*t45*t9)*wght+1.0d+0*t25*(6.633861595060381d- 3531 2 5*gammabb*t74*t84*t85*t96-2.0157209020749695d-3*t3*t49*t5 3532 3 1*t64)*wght+1.0d+0*t39*t82*wght+2.0d+0*t46*t72*wght-3.062 3533 4 417490053882d-2*t27*t4*t43*t71*wght+5.039302255187424d-4* 3534 5 t3*t38*t49*t51*t56*wght+Cmat3(iq,D3_RB_GBB_GBB) 3535 Cmat3(iq,D3_GBB_GBB_GBB) = 1.0d+0*t8*(-3.5461536035682834d-1 3536 1 *t10*t11*t13*t9*(2.659615202676212d-1*t10*t11*t13*(3.5169 3537 2 003312704855d-4*t17*t19*t34*t74*t84*t85*t98+1.69406589450 3538 3 86007d-21*t101*t19*t3*t34*t85*t94-8.798432205344503d-7*t1 3539 4 4*t20*t74*t84*t85*t92-1.2438490490738213d-5*t103*t18*t19* 3540 5 t74*t84*t85-4.6264815690944017d-3*t101*t19*t3*t43*t78*t79 3541 6 *t85+3.8065089231694144d-4*t100*t16*t17*t19*t79*t85-4.663 3542 7 815182852701d-3*t100*t19*t78*t85/t12**5+4.150349619717530 3543 8 5d-22*t100*t19*t56*t57*t85+8.181415676054655d-4*t101*t17* 3544 9 t19*t3*t41*t57*t85+1.0143559049642756d-2*t100*t15*t19*t85 3545 : /(t10**6*t12**6))+3.3081598407510854d-6*t10*t21*t23*t74*t 3546 ; 84*t85*t96-1.6578827153323844d-4*t19*t22*t26*t31*t74*t84* 3547 < t85/rhob**5.666666666666667d+0+2.1809443270274873d-3*t101 3548 = *t19*t26*t28*t3*t73*t75*t85-8.972027574067322d-5*t100*t19 3549 > *t22*t26*t33*t75*t85+1.6911873548697043d-3*t100*t11*t19*t 3550 ? 26*t73*t85/t13**9-2.3140538016976683d-4*t101*t19*t22*t26* 3551 @ t3*t48*t67*t85+3.580579137009732d-7*t10*t100*t21*t48*t64* 3552 1 t85+1.5391639358877124d-6*t10*t101*t102*t21*t3*t31*t85-4. 3553 2 781719592912377d-3*rhob*t100*t19*t26*t85/(t10**5*t13**11) 3554 3 +6.108639085116625d-3*t10*t23*t27*t28*t4*t80-4.6768007936 3555 4 71973d-5*t10*t31*t44*t49*t74*t77-2.0103907333165494d-4*t1 3556 5 0*t23*t3*t44*t49*t51*t64)-4.4108797876681144d-6*t10*t23*t 3557 6 24*t74*t84*t85*t9*t96-4.774105516012976d-7*t10*t100*t24*t 3558 7 48*t64*t85*t9-2.052218581183617d-6*t10*t101*t102*t24*t3*t 3559 8 31*t85*t9-8.144852113488832d-3*t10*t23*t27*t28*t4*t81*t9+ 3560 9 6.235734391562631d-5*t10*t31*t45*t49*t74*t77*t9+2.6805209 3561 : 777553995d-4*t10*t23*t3*t45*t49*t51*t64*t9)*wght-2.487698 3562 ; 0981476426d-5*t103*t25*t74*t84*t85*wght-4.593626235080822 3563 < 7d-2*t27*t4*t43*t82*wght+1.5117906765562272d-3*t3*t46*t49 3564 = *t51*t56*wght+Cmat3(iq,D3_GBB_GBB_GBB) 3565 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 3566 endif ! ipol.eq.1 3567 enddo ! iq 3568 end 3569C> @} 3570