1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_c_p91_vwn5.F 5C> The nwxcm_c_p91_vwn5 functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_c_p91_vwn5 functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& \rho_\beta+\rho_\alpha\\\\ 16C> {\it t_2} &=& \rho_\alpha-\rho_\beta\\\\ 17C> {\it t_3} &=& {{1}\over{{\it t_1}}}\\\\ 18C> {\it t_4} &=& 1.0-{\it t_2}\,{\it t_3}\\\\ 19C> {\it t_5} &=& {\it t_2}\,{\it t_3}+1.0\\\\ 20C> {\it t_6} &=& 0.5\,{\it t_5}^{{{2}\over{3}}}+0.5\,{ 21C> \it t_4}^{{{2}\over{3}}}\\\\ 22C> {\it t_7} &=& {\it t_6}^{3.0}\\\\ 23C> {\it t_8} &=& {\it t_1}^{1.166666666666667}\\\\ 24C> {\it t_9} &=& {{1}\over{{\it t_8}^{2.0}}}\\\\ 25C> {\it t_{10}} &=& {{1}\over{{\it t_6}^{2.0}}}\\\\ 26C> {\it t_{11}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 27C> +\sigma_{\alpha\alpha}\\\\ 28C> {\it t_{12}} &=& {\it t_1}^{0.3333333333333333}\\\\ 29C> {\it t_{13}} &=& {{1}\over{\sqrt{{\it t_{12}}}}}\\\\ 30C> {\it t_{14}} &=& 1.575246635799487\,{\it t_{13}}\\\\ 31C> {\it t_{15}} &=& \arctan \left({{6.15199081975908}\over{{ 32C> \it t_{14}}+3.72744}}\right)\\\\ 33C> {\it t_{16}} &=& 0.7876233178997433\,{\it t_{13}}\\\\ 34C> {\it t_{17}} &=& {{1}\over{{\it t_{12}}}}\\\\ 35C> {\it t_{18}} &=& 0.6203504908994001\,{\it t_{17}}\\\\ 36C> {\it t_{19}} &=& {{1}\over{\left| 2.935818660072219\,{\it t_{13}} 37C> +{\it t_{18}}+12.9352\right| }}\\\\ 38C> {\it t_{20}} &=& \log \left(1.0\,\left({\it t_{16}} 39C> +0.10498\right)^2\,{\it t_{19}}\right)\\\\ 40C> {\it t_{21}} &=& \left| {\it t_{17}}\right| \\\\ 41C> {\it t_{22}} &=& \log \left(0.6203504908994001\,{\it t_{21}} 42C> \,{\it t_{19}}\right)\\\\ 43C> {\it t_{23}} &=& \arctan \left({{7.123108917818118}\over{{ 44C> \it t_{14}}+1.13107}}\right)\\\\ 45C> {\it t_{24}} &=& {{1}\over{\left| 0.8908571061768626\,{ 46C> \it t_{13}}+{\it t_{18}}+13.0045\right| }}\\\\ 47C> {\it t_{25}} &=& \log \left(1.0\,\left({\it t_{16}} 48C> +0.0047584\right)^2\,{\it t_{24}}\right)\\\\ 49C> {\it t_{26}} &=& \log \left(0.6203504908994001\,{\it t_{21}} 50C> \,{\it t_{24}}\right)\\\\ 51C> {\it t_{27}} &=& {{1}\over{\left| 5.560951426165705\,{\it t_{13}} 52C> +{\it t_{18}}+18.0578\right| }}\\\\ 53C> {\it t_{28}} &=& {{1}\over{e^{{{40.4276151175637\,\left(1.125 54C> \,\left({\it t_5}^{{{4}\over{3}}}+{\it t_4}^{{{4}\over{3}}} 55C> -2.0\right)\,\left({{{\it t_2}^4\,\left(1.709920934161365 56C> \,\left(0.01554535\,\log \left(0.6203504908994001\,{ 57C> \it t_{21}}\,{\it t_{27}}\right)+0.002247867095542611 58C> \,\log \left(1.0\,\left({\it t_{16}}+0.325\right)^2\,{ 59C> \it t_{27}}\right)-0.0310907\,{\it t_{22}} 60C> -9.690227711544375 \times 10^{-4}\,{\it t_{20}} 61C> +0.05249139316978092\,\arctan \left({{4.730926909560114} 62C> \over{{\it t_{14}}+7.06042}}\right)-0.03878329487811301\,{ 63C> \it t_{15}}\right)+0.01688686394038963\,{\it t_{26}} 64C> +6.991732350764465 \times 10^{-6}\,{\it t_{25}} 65C> +0.005365091848883603\,{\it t_{23}}\right)}\over{{\it t_1}^4}} 66C> -0.01688686394038963\,{\it t_{26}}-6.991732350764465 \times 10^{ 67C> -6}\,{\it t_{25}}-0.005365091848883603\,{\it t_{23}}\right) 68C> +0.0310907\,{\it t_{22}}+9.690227711544375 \times 10^{-4}\,{ 69C> \it t_{20}}+0.03878329487811301\,{\it t_{15}}\right)}\over{{ 70C> \it t_7}}}}}}-1.0\\\\ 71C> {\it t_{29}} &=& {{0.1712109500228823\,{\it t_9}\,{\it t_{10}} 72C> \,{\it t_{11}}}\over{{\it t_{28}}}}\\\\ 73C> {\it t_{30}} &=& \rho_s^{1.166666666666667}\\\\ 74C> {\it t_{31}} &=& {{1}\over{{\it t_{30}}^{2.0}}}\\\\ 75C> {\it t_{32}} &=& \rho_s^{0.3333333333333333}\\\\ 76C> {\it t_{33}} &=& {{1}\over{\sqrt{{\it t_{32}}}}}\\\\ 77C> {\it t_{34}} &=& {{1}\over{{\it t_{32}}}}\\\\ 78C> {\it t_{35}} &=& 0.6203504908994001\,{\it t_{34}}\\\\ 79C> {\it t_{36}} &=& {{1}\over{\left| {\it t_{35}} 80C> +2.935818660072219\,{\it t_{33}}+12.9352\right| }}\\\\ 81C> {\it t_{37}} &=& \left| {\it t_{34}}\right| \\\\ 82C> {\it t_{38}} &=& \log \left(0.6203504908994001\,{\it t_{36}} 83C> \,{\it t_{37}}\right)\\\\ 84C> {\it t_{39}} &=& 0.7876233178997433\,{\it t_{33}}\\\\ 85C> {\it t_{40}} &=& \log \left(1.0\,{\it t_{36}}\,\left({\it t_{39}} 86C> +0.10498\right)^2\right)\\\\ 87C> {\it t_{41}} &=& 1.575246635799487\,{\it t_{33}}\\\\ 88C> {\it t_{42}} &=& \arctan \left({{6.15199081975908}\over{{ 89C> \it t_{41}}+3.72744}}\right)\\\\ 90C> {\it t_{43}} &=& {{1}\over{\left| {\it t_{35}} 91C> +0.8908571061768626\,{\it t_{33}}+13.0045\right| }}\\\\ 92C> {\it t_{44}} &=& \log \left(0.6203504908994001\,{\it t_{43}} 93C> \,{\it t_{37}}\right)\\\\ 94C> {\it t_{45}} &=& \log \left(1.0\,{\it t_{43}}\,\left({\it t_{39}} 95C> +0.0047584\right)^2\right)\\\\ 96C> {\it t_{46}} &=& \arctan \left({{7.123108917818118}\over{{ 97C> \it t_{41}}+1.13107}}\right)\\\\ 98C> {\it t_{47}} &=& {{1}\over{\left| {\it t_{35}} 99C> +5.560951426165705\,{\it t_{33}}+18.0578\right| }}\\\\ 100C> {\it t_{48}} &=& {{1}\over{e^{80.85523023512742\, 101C> \left(0.5848223622634643\,\left(1.0\,\left(1.709920934161365 102C> \,\left(0.05249139316978092\,\arctan 103C> \left({{4.730926909560114}\over{{\it t_{41}}+7.06042}}\right) 104C> -0.03878329487811301\,{\it t_{42}}+0.002247867095542611 105C> \,\log \left(1.0\,{\it t_{47}}\,\left({\it t_{39}} 106C> +0.325\right)^2\right)-9.690227711544375 \times 10^{-4}\,{ 107C> \it t_{40}}+0.01554535\,\log \left(0.6203504908994001\,{ 108C> \it t_{47}}\,{\it t_{37}}\right)-0.0310907\,{\it t_{38}}\right) 109C> +0.005365091848883603\,{\it t_{46}} 110C> +6.991732350764465 \times 10^{-6}\,{\it t_{45}} 111C> +0.01688686394038963\,{\it t_{44}}\right)-0.005365091848883603 112C> \,{\it t_{46}}-6.991732350764465 \times 10^{-6}\,{\it t_{45}} 113C> -0.01688686394038963\,{\it t_{44}}\right)+0.03878329487811301 114C> \,{\it t_{42}}+9.690227711544375 \times 10^{-4}\,{\it t_{40}} 115C> +0.0310907\,{\it t_{38}}\right)}}}-1.0\\\\ 116C> {\it t_{49}} &=& {{0.2717804421747982\,{\it t_{31}}\, 117C> \sigma_{ss}}\over{{\it t_{48}}}}\\\\ 118C> f &=& 0.02473556743557577\,{\it t_1}\,{\it t_7}\,\log 119C> \left({{0.1712109500228823\,{\it t_9}\,{\it t_{10}}\,{ 120C> \it t_{11}}\,\left({\it t_{29}}+1.0\right)} 121C> \over{{{0.02931318940773791\,{\it t_{11}}^{2.0}}\over{{ 122C> \it t_8}^{4.0}\,{\it t_6}^{4.0}\,{\it t_{28}}^{2.0}}}+{ 123C> \it t_{29}}+1.0}}+1.0\right)\\\\ 124C> g &=& 0\\\\ 125C> G &=& 0.01236778371778788\,\rho_s\,\log 126C> \left({{0.2717804421747982\,{\it t_{31}}\,\sigma_{ss}\, 127C> \left({\it t_{49}}+1.0\right)}\over{{{0.07386460874872887 128C> \,\sigma_{ss}^{2.0}}\over{{\it t_{30}}^{4.0}\,{ 129C> \it t_{48}}^{2.0}}}+{\it t_{49}}+1.0}}+1.0\right)\\\\ 130C> \f} 131C> 132C> Code generated with Maxima 5.34.0 [2] 133C> driven by autoxc [3]. 134C> 135C> ### References ### 136C> 137C> [1] unpublished , DOI: 138C> <a href="https://doi.org/unpublished "> 139C> unpublished </a> 140C> 141C> [2] Maxima, a computer algebra system, 142C> <a href="http://maxima.sourceforge.net/"> 143C> http://maxima.sourceforge.net/</a> 144C> 145C> [3] autoxc, revision 27097 2015-05-08 146C> 147 subroutine nwxcm_c_p91_vwn5(param,tol_rho,ipol,nq,wght, 148 +rho,rgamma,fnc,Amat,Cmat) 149c $Id: $ 150#ifdef NWXC_QUAD_PREC 151 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 152 integer, parameter :: rk=selected_real_kind(30) 153#else 154 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 155 integer, parameter :: rk=selected_real_kind(15) 156#endif 157#include "nwxc_param.fh" 158 double precision param(*) !< [Input] Parameters of functional 159 double precision tol_rho !< [Input] The lower limit on the density 160 integer ipol !< [Input] The number of spin channels 161 integer nq !< [Input] The number of points 162 double precision wght !< [Input] The weight of the functional 163 double precision rho(nq,*) !< [Input] The density 164 double precision rgamma(nq,*) !< [Input] The norm of the density 165 !< gradients 166 double precision fnc(nq) !< [Output] The value of the functional 167c 168c Sampling Matrices for the XC Kernel 169c 170 double precision Amat(nq,*) !< [Output] The derivative wrt rho 171 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 172 integer iq 173 double precision tmp 174 double precision rhoa,rhob 175 double precision gammaaa,gammaab,gammabb 176 double precision taua,taub 177 double precision nwxcm_heaviside 178 external nwxcm_heaviside 179CDIR$ NOVECTOR 180 do iq = 1, nq 181 if (ipol.eq.1) then 182 rhoa = 0.5d0*rho(iq,R_T) 183 gammaaa = 0.25d0*rgamma(iq,G_TT) 184 if (rhoa.gt.tol_rho) then 185 t1 = rhoa**1.1666666666666667d+0 186 t2 = 1/t1**2.0d+0 187 t3 = rhoa**3.333333333333333d-1 188 t4 = t3**5.0d-1 189 t5 = 1/t4 190 t6 = 1/t3 191 t7 = 4.9237251092134837d-1*t6 192 t8 = 1/abs(t7+2.615517080950829d+0*t5+1.29352d+1) 193 t9 = abs(t6) 194 t10 = exp(-4.0427615117563703d+1*(3.10907d-2*log(4.923725109 195 1 2134837d-1*t8*t9)+9.690227711544375d-4*log(1.0d+0*(7.0169 196 2 26042943223d-1*t5+1.0498d-1)**2*t8)+3.8783294878113006d-2 197 3 *atan(6.15199081975908d+0/(1.4033852085886447d+0*t5+3.727 198 4 44d+0))))-1.0d+0 199 t11 = 1.358902210873991d-1*gammaaa*t2/t10 200 t12 = gammaaa**2.0d+0 201 t13 = 1/t1**4.0d+0 202 t14 = t7+2.615517080950828d+0*t5+1.29352d+1 203 t15 = abs(t14) 204 t16 = 1/t15 205 t17 = 7.016926042943222d-1*t5+1.0498d-1 206 t18 = t17**2 207 t19 = 1.4033852085886445d+0*t5+3.72744d+0 208 t20 = exp(-4.0427615117563703d+1*(3.10907d-2*log(4.923725109 209 1 2134837d-1*t16*t9)+3.8783294878113006d-2*atan(6.151990819 210 2 75908d+0/t19)+9.690227711544375d-4*log(1.0d+0*t16*t18))) 211 t21 = t20-1.0d+0 212 t22 = 1/t21 213 t23 = 1.3589022108739912d-1*gammaaa*t2*t22 214 t24 = t23+1.0d+0 215 t25 = 1/t21**2.0d+0 216 t26 = 1.846615218718221d-2*t12*t13*t25+t23+1.0d+0 217 t27 = 1/t26 218 t28 = 1.3589022108739912d-1*gammaaa*t2*t24*t27+1.0d+0 219 t29 = 1/t28 220 t30 = rhoa**1.6666666666666674d-1 221 t31 = 1/t1**3.0d+0 222 t32 = -1.585385912686323d-1*gammaaa*t22*t30*t31 223 t33 = 1/t9 224 t34 = 1/t4**3 225 t35 = 1/rhoa**6.666666666666667d-1 226 t36 = -2.1795975674590234d-1*t34*t35-8.206208515355806d-2/rh 227 1 oa**1.3333333333333333d+0 228 t37 = 1/t14 229 t38 = 1/t19**2 230 t39 = 6.314467057030004d-2*t15*t33*(-4.9237251092134837d-1*t 231 1 16*t36*t37*t9-8.206208515355806d-2*t16*t33/rhoa**1.666666 232 2 6666666666d+0)+2.790332964441521d-2*t34*t35*t38/(3.784699 233 3 104639999d+1*t38+1)+9.690227711544375d-4*t15*(-1.0d+0*t16 234 4 *t18*t36*t37-1.1694876738238703d-1*t16*t17*t34*t35)/t18 235 t40 = 5.493717556362011d+0*gammaaa*t2*t20*t39/t21**2 236 t41 = 1/t26**2 237 fnc(iq) = 4.947113487115154d-2*rhoa*log(1.358902210873991d-1 238 1 *gammaaa*(t11+1.0d+0)*t2/(1.8466152187182203d-2*t12*t13/t 239 2 10**2.0d+0+t11+1.0d+0)+1.0d+0)*wght+fnc(iq) 240 Amat(iq,D1_RA) = 4.947113487115154d-2*rhoa*t29*(-1.358902210 241 1 8739912d-1*gammaaa*t2*t24*(t40+1.4930849866515192d+0*t12* 242 2 t13*t20*t39/t21**3.0d+0+t32-4.30876884367585d-2*t12*t25*t 243 3 30/t1**5.0d+0)*t41+1.3589022108739912d-1*gammaaa*t2*t27*( 244 4 t40+t32)-1.585385912686323d-1*gammaaa*t24*t27*t30*t31)*wg 245 5 ht+2.473556743557577d-2*log(t28)*wght+Amat(iq,D1_RA) 246 Cmat(iq,D1_GAA) = 4.947113487115154d-2*rhoa*t29*(-1.35890221 247 1 08739912d-1*gammaaa*t2*t24*(9.233076093591105d-3*gammaaa* 248 2 t13*t25+3.397255527184978d-2*t2*t22)*t41+3.39725552718497 249 3 8d-2*t2*t24*t27+4.6165380467955525d-3*gammaaa*t13*t22*t27 250 4 )*wght+Cmat(iq,D1_GAA) 251 Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t29*(-1.35890221 252 1 08739912d-1*gammaaa*t2*t24*(1.846615218718221d-2*gammaaa* 253 2 t13*t25+6.794511054369956d-2*t2*t22)*t41+6.79451105436995 254 3 6d-2*t2*t24*t27+9.233076093591105d-3*gammaaa*t13*t22*t27) 255 4 *wght+Cmat(iq,D1_GAB) 256 endif ! rhoa.gt.tol_rho 257 else ! ipol.eq.1 258 rhoa = rho(iq,R_A) 259 rhob = rho(iq,R_B) 260 gammaaa = rgamma(iq,G_AA) 261 gammaab = rgamma(iq,G_AB) 262 gammabb = rgamma(iq,G_BB) 263 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 264 t1 = rhob+rhoa 265 t2 = rhoa-rhob 266 t3 = 1/t1 267 t4 = 1.0d+0-t2*t3 268 t5 = t2*t3+1.0d+0 269 t6 = 5.0d-1*t5**6.666666666666666d-1+5.0d-1*t4**6.6666666666 270 1 66666d-1 271 t7 = t6**3.0d+0 272 t8 = gammabb+2.0d+0*gammaab+gammaaa 273 t9 = t1**1.1666666666666667d+0 274 t10 = 1/t9**2.0d+0 275 t11 = t6**2.0d+0 276 t12 = 1/t11 277 t13 = 1/t7 278 t14 = t1**3.333333333333333d-1 279 t15 = t14**5.0d-1 280 t16 = 1/t15 281 t17 = 1.5752466357994865d+0*t16 282 t18 = t17+3.72744d+0 283 t19 = atan(6.15199081975908d+0/t18) 284 t20 = 7.876233178997433d-1*t16 285 t21 = t20+1.0498d-1 286 t22 = t21**2 287 t23 = 1/t14 288 t24 = 6.203504908994001d-1*t23 289 t25 = t24+2.935818660072219d+0*t16+1.29352d+1 290 t26 = abs(t25) 291 t27 = 1/t26 292 t28 = log(1.0d+0*t22*t27) 293 t29 = abs(t23) 294 t30 = log(6.203504908994001d-1*t27*t29) 295 t31 = t5**1.3333333333333333d+0+t4**1.3333333333333333d+0-2. 296 1 0d+0 297 t32 = t17+1.13107d+0 298 t33 = atan(7.123108917818117d+0/t32) 299 t34 = t20+4.7584000000000004d-3 300 t35 = t34**2 301 t36 = t24+8.908571061768626d-1*t16+1.30045d+1 302 t37 = abs(t36) 303 t38 = 1/t37 304 t39 = log(1.0d+0*t35*t38) 305 t40 = log(6.203504908994001d-1*t29*t38) 306 t41 = t2**4 307 t42 = 1/t1**4 308 t43 = t17+7.06042d+0 309 t44 = t20+3.25d-1 310 t45 = t44**2 311 t46 = t24+5.560951426165704d+0*t16+1.8057800000000002d+1 312 t47 = abs(t46) 313 t48 = 1/t47 314 t49 = 1.709920934161365d+0*(2.2478670955426108d-3*log(1.0d+0 315 1 *t45*t48)+1.554535d-2*log(6.203504908994001d-1*t29*t48)+5 316 2 .249139316978092d-2*atan(4.7309269095601136d+0/t43)-3.109 317 3 07d-2*t30-9.690227711544375d-4*t28-3.8783294878113006d-2* 318 4 t19)+1.688686394038963d-2*t40+6.991732350764465d-6*t39+5. 319 5 365091848883603d-3*t33 320 t50 = t41*t42*t49-1.688686394038963d-2*t40-6.991732350764465 321 1 d-6*t39-5.365091848883603d-3*t33 322 t51 = 1.1250000000000002d+0*t31*t50+3.10907d-2*t30+9.6902277 323 1 11544375d-4*t28+3.8783294878113006d-2*t19 324 t52 = exp(-4.0427615117563703d+1*t13*t51) 325 t53 = t52-1.0d+0 326 t54 = 1/t53 327 t55 = 1.7121095002288234d-1*t10*t12*t54*t8 328 t56 = t55+1.0d+0 329 t57 = t8**2.0d+0 330 t58 = 1/t9**4.0d+0 331 t59 = 1/t6**4.0d+0 332 t60 = 1/t53**2.0d+0 333 t61 = 2.931318940773791d-2*t57*t58*t59*t60+t55+1.0d+0 334 t62 = 1/t61 335 t63 = 1.7121095002288234d-1*t10*t12*t56*t62*t8+1.0d+0 336 t64 = log(t63) 337 t65 = 1/t1**2 338 t66 = t2*t65 339 t67 = -t3 340 t68 = t67+t66 341 t69 = t4**3.333333333333333d-1 342 t70 = 1/t69 343 t71 = -t2*t65 344 t72 = t71+t3 345 t73 = t5**3.333333333333333d-1 346 t74 = 1/t73 347 t75 = 3.333333333333333d-1*t72*t74+3.333333333333333d-1*t68* 348 1 t70 349 t76 = 2.473556743557577d-2*t64*t7*wght 350 t77 = 1/t63 351 t78 = t1**1.6666666666666674d-1 352 t79 = 1/t9**3.0d+0 353 t80 = -3.994922167200588d-1*t12*t56*t62*t78*t79*t8 354 t81 = -3.4242190004576467d-1*t10*t13*t54*t75*t8 355 t82 = -3.994922167200588d-1*t12*t54*t78*t79*t8 356 t83 = 1/t53**2 357 t84 = 1/t1**6.666666666666667d-1 358 t85 = 1/t15**3 359 t86 = 1/t18**2 360 t87 = 1/(3.784699104639999d+1*t86+1) 361 t88 = 6.264085709464389d-2*t84*t85*t86*t87 362 t89 = 1/t22 363 t90 = -2.067834969664667d-1/t1**1.3333333333333333d+0 364 t91 = t90-4.8930311001203647d-1*t84*t85 365 t92 = 1/t25 366 t93 = -1.0d+0*t22*t27*t91*t92-2.625411059665811d-1*t21*t27*t 367 1 84*t85 368 t94 = 9.690227711544375d-4*t26*t89*t93 369 t95 = 1/t29 370 t96 = 1/t1**1.6666666666666666d+0 371 t97 = -2.067834969664667d-1*t27*t95*t96-6.203504908994001d-1 372 1 *t27*t29*t91*t92 373 t98 = 5.011795824473985d-2*t26*t95*t97 374 t99 = 1/t32**2 375 t100 = 1/(5.07386806551d+1*t99+1) 376 t101 = -1.0033305979455584d-2*t100*t84*t85*t99 377 t102 = 1/t35 378 t103 = t90-1.4847618436281043d-1*t84*t85 379 t104 = 1/t36 380 t105 = -2.625411059665811d-1*t34*t38*t84*t85-1.0d+0*t103*t10 381 1 4*t35*t38 382 t106 = -6.991732350764465d-6*t102*t105*t37 383 t107 = -2.067834969664667d-1*t38*t95*t96-6.203504908994001d- 384 1 1*t103*t104*t29*t38 385 t108 = -2.722148880047894d-2*t107*t37*t95 386 t109 = 1/t43**2 387 t110 = t90-9.26825237694284d-1*t84*t85 388 t111 = 1/t46 389 t112 = t41*t42*(1.0033305979455584d-2*t100*t84*t85*t99+1.709 390 1 920934161365d+0*(-5.011795824473985d-2*t26*t95*t97+2.5058 391 2 979122369923d-2*t47*t95*(-2.067834969664667d-1*t48*t95*t9 392 3 6-6.203504908994001d-1*t110*t111*t29*t48)-9.6902277115443 393 4 75d-4*t26*t89*t93-6.264085709464389d-2*t84*t85*t86*t87+2. 394 5 2478670955426108d-3*t47*(-2.625411059665811d-1*t44*t48*t8 395 6 4*t85-1.0d+0*t110*t111*t45*t48)/t45+6.519760588836059d-2* 396 7 t109*t84*t85/(2.238166942360001d+1*t109+1))+2.72214888004 397 8 7894d-2*t107*t37*t95+6.991732350764465d-6*t102*t105*t37) 398 t113 = -4*t41*t49/t1**5 399 t114 = t2**3 400 t115 = 1.2128284535269111d+2*t51*t59*t75-4.0427615117563703d 401 1 +1*t13*(t98+t94+t88+1.1250000000000002d+0*t50*(1.33333333 402 2 33333333d+0*t72*t73+1.3333333333333333d+0*t68*t69)+1.1250 403 3 000000000002d+0*t31*(4*t114*t42*t49+t113+t112+t108+t106+t 404 4 101)) 405 t116 = -1.7121095002288234d-1*t10*t115*t12*t52*t8*t83 406 t117 = 1/t61**2 407 t118 = 1/t6**5.0d+0 408 t119 = -1.3679488390277694d-1*t57*t59*t60*t78/t9**5.0d+0 409 t120 = 1/t53**3.0d+0 410 t121 = t66+t3 411 t122 = t71+t67 412 t123 = 3.333333333333333d-1*t122*t74+3.333333333333333d-1*t1 413 1 21*t70 414 t124 = -3.4242190004576467d-1*t10*t123*t13*t54*t8 415 t125 = 1.2128284535269111d+2*t123*t51*t59-4.0427615117563703 416 1 d+1*t13*(t98+t94+t88+1.1250000000000002d+0*t50*(1.3333333 417 2 333333333d+0*t122*t73+1.3333333333333333d+0*t121*t69)+1.1 418 3 250000000000002d+0*t31*(-4*t114*t42*t49+t113+t112+t108+t1 419 4 06+t101)) 420 t126 = -1.7121095002288234d-1*t10*t12*t125*t52*t8*t83 421 t127 = 2.473556743557577d-2*t1*t7*t77*(-1.7121095002288234d- 422 1 1*t10*t117*t12*t56*t8*(5.862637881547582d-2*t58*t59*t60*t 423 2 8+1.7121095002288234d-1*t10*t12*t54)+2.931318940773791d-2 424 3 *t54*t58*t59*t62*t8+1.7121095002288234d-1*t10*t12*t56*t62 425 4 )*wght 426 fnc(iq) = 2.473556743557577d-2*t1*t64*t7*wght+fnc(iq) 427 Amat(iq,D1_RA) = 2.473556743557577d-2*t1*t7*t77*(-1.71210950 428 1 02288234d-1*t10*t117*t12*t56*t8*(t82+t81-1.17252757630951 429 2 65d-1*t118*t57*t58*t60*t75-5.862637881547582d-2*t115*t120 430 3 *t52*t57*t58*t59+t119+t116)+1.7121095002288234d-1*t10*t12 431 4 *t62*t8*(t82+t81+t116)+t80-3.4242190004576467d-1*t10*t13* 432 5 t56*t62*t75*t8)*wght+7.420670230672731d-2*t1*t11*t64*t75* 433 6 wght+t76+Amat(iq,D1_RA) 434 Amat(iq,D1_RB) = 2.473556743557577d-2*t1*t7*t77*(-1.71210950 435 1 02288234d-1*t10*t117*t12*t56*t8*(t82-1.1725275763095165d- 436 2 1*t118*t123*t57*t58*t60-5.862637881547582d-2*t120*t125*t5 437 3 2*t57*t58*t59+t126+t124+t119)+1.7121095002288234d-1*t10*t 438 4 12*t62*t8*(t82+t126+t124)+t80-3.4242190004576467d-1*t10*t 439 5 123*t13*t56*t62*t8)*wght+7.420670230672731d-2*t1*t11*t123 440 6 *t64*wght+t76+Amat(iq,D1_RB) 441 Cmat(iq,D1_GAA) = t127+Cmat(iq,D1_GAA) 442 Cmat(iq,D1_GAB) = 2.473556743557577d-2*t1*t7*t77*(-1.7121095 443 1 002288234d-1*t10*t117*t12*t56*t8*(1.1725275763095165d-1*t 444 2 58*t59*t60*t8+3.4242190004576467d-1*t10*t12*t54)+5.862637 445 3 881547582d-2*t54*t58*t59*t62*t8+3.4242190004576467d-1*t10 446 4 *t12*t56*t62)*wght+Cmat(iq,D1_GAB) 447 Cmat(iq,D1_GBB) = t127+Cmat(iq,D1_GBB) 448 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 449 t1 = rhoa**1.1666666666666667d+0 450 t2 = 1/t1**2.0d+0 451 t3 = rhoa**3.333333333333333d-1 452 t4 = t3**5.0d-1 453 t5 = 1/t4 454 t6 = 1/t3 455 t7 = 6.203504908994001d-1*t6 456 t8 = t7+2.935818660072219d+0*t5+1.29352d+1 457 t9 = abs(t8) 458 t10 = 1/t9 459 t11 = abs(t6) 460 t12 = log(6.203504908994001d-1*t10*t11) 461 t13 = 7.876233178997433d-1*t5 462 t14 = t13+1.0498d-1 463 t15 = t14**2 464 t16 = log(1.0d+0*t10*t15) 465 t17 = 1.5752466357994865d+0*t5 466 t18 = t17+3.72744d+0 467 t19 = atan(6.15199081975908d+0/t18) 468 t20 = t7+8.908571061768626d-1*t5+1.30045d+1 469 t21 = abs(t20) 470 t22 = 1/t21 471 t23 = log(6.203504908994001d-1*t11*t22) 472 t24 = t13+4.7584000000000004d-3 473 t25 = t24**2 474 t26 = log(1.0d+0*t22*t25) 475 t27 = t17+1.13107d+0 476 t28 = atan(7.123108917818117d+0/t27) 477 t29 = t7+5.560951426165704d+0*t5+1.8057800000000002d+1 478 t30 = abs(t29) 479 t31 = 1/t30 480 t32 = t13+3.25d-1 481 t33 = t32**2 482 t34 = t17+7.06042d+0 483 t35 = exp(-8.085523023512742d+1*(5.848223622634643d-1*(1.0d+ 484 1 0*(1.709920934161365d+0*(5.249139316978092d-2*atan(4.7309 485 2 269095601136d+0/t34)+2.2478670955426108d-3*log(1.0d+0*t31 486 3 *t33)+1.554535d-2*log(6.203504908994001d-1*t11*t31)-3.878 487 4 3294878113006d-2*t19-9.690227711544375d-4*t16-3.10907d-2* 488 5 t12)+5.365091848883603d-3*t28+6.991732350764465d-6*t26+1. 489 6 688686394038963d-2*t23)-5.365091848883603d-3*t28-6.991732 490 7 350764465d-6*t26-1.688686394038963d-2*t23)+3.878329487811 491 8 3006d-2*t19+9.690227711544375d-4*t16+3.10907d-2*t12)) 492 t36 = t35-1.0d+0 493 t37 = 1/t36 494 t38 = 2.7178044217479824d-1*gammaaa*t2*t37 495 t39 = t38+1.0d+0 496 t40 = gammaaa**2.0d+0 497 t41 = 1/t1**4.0d+0 498 t42 = 1/t36**2.0d+0 499 t43 = 7.386460874872887d-2*t40*t41*t42+t38+1.0d+0 500 t44 = 1/t43 501 t45 = 2.7178044217479824d-1*gammaaa*t2*t39*t44+1.0d+0 502 t46 = log(t45) 503 t47 = 1/t45 504 t48 = rhoa**1.6666666666666674d-1 505 t49 = 1/t1**3.0d+0 506 t50 = -6.341543650745293d-1*gammaaa*t37*t48*t49 507 t51 = 1/t11 508 t52 = -2.067834969664667d-1/rhoa**1.3333333333333333d+0 509 t53 = 1/t4**3 510 t54 = 1/rhoa**6.666666666666667d-1 511 t55 = t52-4.8930311001203647d-1*t53*t54 512 t56 = 1/t8 513 t57 = 1/rhoa**1.6666666666666666d+0 514 t58 = -2.067834969664667d-1*t10*t51*t57-6.203504908994001d-1 515 1 *t10*t11*t55*t56 516 t59 = 1/t18**2 517 t60 = 1/(3.784699104639999d+1*t59+1) 518 t61 = 1/t15 519 t62 = -1.0d+0*t10*t15*t55*t56-2.625411059665811d-1*t10*t14*t 520 1 53*t54 521 t63 = t52-1.4847618436281043d-1*t53*t54 522 t64 = 1/t20 523 t65 = -6.203504908994001d-1*t11*t22*t63*t64-2.06783496966466 524 1 7d-1*t22*t51*t57 525 t66 = 1/t27**2 526 t67 = 1/(5.07386806551d+1*t66+1) 527 t68 = 1/t25 528 t69 = -1.0d+0*t22*t25*t63*t64-2.625411059665811d-1*t22*t24*t 529 1 53*t54 530 t70 = t52-9.26825237694284d-1*t53*t54 531 t71 = 1/t29 532 t72 = 1/t34**2 533 t73 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-9 534 1 .690227711544375d-4*t61*t62*t9-5.011795824473985d-2*t51*t 535 2 58*t9+6.519760588836059d-2*t53*t54*t72/(2.238166942360001 536 3 d+1*t72+1)+2.2478670955426108d-3*t30*(-1.0d+0*t31*t33*t70 537 4 *t71-2.625411059665811d-1*t31*t32*t53*t54)/t33+2.50589791 538 5 22369923d-2*t30*t51*(-6.203504908994001d-1*t11*t31*t70*t7 539 6 1-2.067834969664667d-1*t31*t51*t57)-6.264085709464389d-2* 540 7 t53*t54*t59*t60)+6.991732350764465d-6*t21*t68*t69+1.00333 541 8 05979455584d-2*t53*t54*t66*t67+2.722148880047894d-2*t21*t 542 9 51*t65)-6.991732350764465d-6*t21*t68*t69-1.00333059794555 543 : 84d-2*t53*t54*t66*t67-2.722148880047894d-2*t21*t51*t65)+9 544 ; .690227711544375d-4*t61*t62*t9+5.011795824473985d-2*t51*t 545 < 58*t9+6.264085709464389d-2*t53*t54*t59*t60 546 t74 = 2.1974870225448048d+1*gammaaa*t2*t35*t73/t36**2 547 t75 = 1/t43**2 548 fnc(iq) = 1.2367783717787881d-2*rhoa*t46*wght+fnc(iq) 549 Amat(iq,D1_RA) = 1.2367783717787881d-2*rhoa*t47*(-2.71780442 550 1 17479824d-1*gammaaa*t2*t39*(t74+1.194467989321216d+1*t35* 551 2 t40*t41*t73/t36**3.0d+0+t50-3.447015074940681d-1*t40*t42* 552 3 t48/t1**5.0d+0)*t75+2.7178044217479824d-1*gammaaa*t2*t44* 553 4 (t74+t50)-6.341543650745293d-1*gammaaa*t39*t44*t48*t49)*w 554 5 ght+1.2367783717787881d-2*t46*wght+Amat(iq,D1_RA) 555 Cmat(iq,D1_GAA) = 1.2367783717787881d-2*rhoa*t47*(-2.7178044 556 1 217479824d-1*gammaaa*t2*t39*(1.4772921749745774d-1*gammaa 557 2 a*t41*t42+2.7178044217479824d-1*t2*t37)*t75+7.38646087487 558 3 2885d-2*gammaaa*t37*t41*t44+2.7178044217479824d-1*t2*t39* 559 4 t44)*wght+Cmat(iq,D1_GAA) 560 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 561 t1 = rhob**1.1666666666666667d+0 562 t2 = 1/t1**2.0d+0 563 t3 = rhob**3.333333333333333d-1 564 t4 = t3**5.0d-1 565 t5 = 1/t4 566 t6 = 1/t3 567 t7 = 6.203504908994001d-1*t6 568 t8 = t7+2.935818660072219d+0*t5+1.29352d+1 569 t9 = abs(t8) 570 t10 = 1/t9 571 t11 = abs(t6) 572 t12 = log(6.203504908994001d-1*t10*t11) 573 t13 = 7.876233178997433d-1*t5 574 t14 = t13+1.0498d-1 575 t15 = t14**2 576 t16 = log(1.0d+0*t10*t15) 577 t17 = 1.5752466357994865d+0*t5 578 t18 = t17+3.72744d+0 579 t19 = atan(6.15199081975908d+0/t18) 580 t20 = t7+8.908571061768626d-1*t5+1.30045d+1 581 t21 = abs(t20) 582 t22 = 1/t21 583 t23 = log(6.203504908994001d-1*t11*t22) 584 t24 = t13+4.7584000000000004d-3 585 t25 = t24**2 586 t26 = log(1.0d+0*t22*t25) 587 t27 = t17+1.13107d+0 588 t28 = atan(7.123108917818117d+0/t27) 589 t29 = t7+5.560951426165704d+0*t5+1.8057800000000002d+1 590 t30 = abs(t29) 591 t31 = 1/t30 592 t32 = t13+3.25d-1 593 t33 = t32**2 594 t34 = t17+7.06042d+0 595 t35 = exp(-8.085523023512742d+1*(5.848223622634643d-1*(1.0d+ 596 1 0*(1.709920934161365d+0*(5.249139316978092d-2*atan(4.7309 597 2 269095601136d+0/t34)+2.2478670955426108d-3*log(1.0d+0*t31 598 3 *t33)+1.554535d-2*log(6.203504908994001d-1*t11*t31)-3.878 599 4 3294878113006d-2*t19-9.690227711544375d-4*t16-3.10907d-2* 600 5 t12)+5.365091848883603d-3*t28+6.991732350764465d-6*t26+1. 601 6 688686394038963d-2*t23)-5.365091848883603d-3*t28-6.991732 602 7 350764465d-6*t26-1.688686394038963d-2*t23)+3.878329487811 603 8 3006d-2*t19+9.690227711544375d-4*t16+3.10907d-2*t12)) 604 t36 = t35-1.0d+0 605 t37 = 1/t36 606 t38 = 2.7178044217479824d-1*gammabb*t2*t37 607 t39 = t38+1.0d+0 608 t40 = gammabb**2.0d+0 609 t41 = 1/t1**4.0d+0 610 t42 = 1/t36**2.0d+0 611 t43 = 7.386460874872887d-2*t40*t41*t42+t38+1.0d+0 612 t44 = 1/t43 613 t45 = 2.7178044217479824d-1*gammabb*t2*t39*t44+1.0d+0 614 t46 = log(t45) 615 t47 = 1/t45 616 t48 = rhob**1.6666666666666674d-1 617 t49 = 1/t1**3.0d+0 618 t50 = -6.341543650745293d-1*gammabb*t37*t48*t49 619 t51 = 1/t11 620 t52 = -2.067834969664667d-1/rhob**1.3333333333333333d+0 621 t53 = 1/t4**3 622 t54 = 1/rhob**6.666666666666667d-1 623 t55 = t52-4.8930311001203647d-1*t53*t54 624 t56 = 1/t8 625 t57 = 1/rhob**1.6666666666666666d+0 626 t58 = -2.067834969664667d-1*t10*t51*t57-6.203504908994001d-1 627 1 *t10*t11*t55*t56 628 t59 = 1/t18**2 629 t60 = 1/(3.784699104639999d+1*t59+1) 630 t61 = 1/t15 631 t62 = -1.0d+0*t10*t15*t55*t56-2.625411059665811d-1*t10*t14*t 632 1 53*t54 633 t63 = t52-1.4847618436281043d-1*t53*t54 634 t64 = 1/t20 635 t65 = -6.203504908994001d-1*t11*t22*t63*t64-2.06783496966466 636 1 7d-1*t22*t51*t57 637 t66 = 1/t27**2 638 t67 = 1/(5.07386806551d+1*t66+1) 639 t68 = 1/t25 640 t69 = -1.0d+0*t22*t25*t63*t64-2.625411059665811d-1*t22*t24*t 641 1 53*t54 642 t70 = t52-9.26825237694284d-1*t53*t54 643 t71 = 1/t29 644 t72 = 1/t34**2 645 t73 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-9 646 1 .690227711544375d-4*t61*t62*t9-5.011795824473985d-2*t51*t 647 2 58*t9+6.519760588836059d-2*t53*t54*t72/(2.238166942360001 648 3 d+1*t72+1)+2.2478670955426108d-3*t30*(-1.0d+0*t31*t33*t70 649 4 *t71-2.625411059665811d-1*t31*t32*t53*t54)/t33+2.50589791 650 5 22369923d-2*t30*t51*(-6.203504908994001d-1*t11*t31*t70*t7 651 6 1-2.067834969664667d-1*t31*t51*t57)-6.264085709464389d-2* 652 7 t53*t54*t59*t60)+6.991732350764465d-6*t21*t68*t69+1.00333 653 8 05979455584d-2*t53*t54*t66*t67+2.722148880047894d-2*t21*t 654 9 51*t65)-6.991732350764465d-6*t21*t68*t69-1.00333059794555 655 : 84d-2*t53*t54*t66*t67-2.722148880047894d-2*t21*t51*t65)+9 656 ; .690227711544375d-4*t61*t62*t9+5.011795824473985d-2*t51*t 657 < 58*t9+6.264085709464389d-2*t53*t54*t59*t60 658 t74 = 2.1974870225448048d+1*gammabb*t2*t35*t73/t36**2 659 t75 = 1/t43**2 660 fnc(iq) = 1.2367783717787881d-2*rhob*t46*wght+fnc(iq) 661 Amat(iq,D1_RB) = 1.2367783717787881d-2*rhob*t47*(-2.71780442 662 1 17479824d-1*gammabb*t2*t39*(t74+1.194467989321216d+1*t35* 663 2 t40*t41*t73/t36**3.0d+0+t50-3.447015074940681d-1*t40*t42* 664 3 t48/t1**5.0d+0)*t75+2.7178044217479824d-1*gammabb*t2*t44* 665 4 (t74+t50)-6.341543650745293d-1*gammabb*t39*t44*t48*t49)*w 666 5 ght+1.2367783717787881d-2*t46*wght+Amat(iq,D1_RB) 667 Cmat(iq,D1_GBB) = 1.2367783717787881d-2*rhob*t47*(-2.7178044 668 1 217479824d-1*gammabb*t2*t39*(1.4772921749745774d-1*gammab 669 2 b*t41*t42+2.7178044217479824d-1*t2*t37)*t75+7.38646087487 670 3 2885d-2*gammabb*t37*t41*t44+2.7178044217479824d-1*t2*t39* 671 4 t44)*wght+Cmat(iq,D1_GBB) 672 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 673 endif ! ipol.eq.1 674 enddo ! iq 675 end 676C> 677C> \brief Evaluate the nwxcm_c_p91_vwn5 functional [1] 678C> 679C> \f{eqnarray*}{ 680C> {\it t_1} &=& \rho_\beta+\rho_\alpha\\\\ 681C> {\it t_2} &=& \rho_\alpha-\rho_\beta\\\\ 682C> {\it t_3} &=& {{1}\over{{\it t_1}}}\\\\ 683C> {\it t_4} &=& 1.0-{\it t_2}\,{\it t_3}\\\\ 684C> {\it t_5} &=& {\it t_2}\,{\it t_3}+1.0\\\\ 685C> {\it t_6} &=& 0.5\,{\it t_5}^{{{2}\over{3}}}+0.5\,{ 686C> \it t_4}^{{{2}\over{3}}}\\\\ 687C> {\it t_7} &=& {\it t_6}^{3.0}\\\\ 688C> {\it t_8} &=& {\it t_1}^{1.166666666666667}\\\\ 689C> {\it t_9} &=& {{1}\over{{\it t_8}^{2.0}}}\\\\ 690C> {\it t_{10}} &=& {{1}\over{{\it t_6}^{2.0}}}\\\\ 691C> {\it t_{11}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 692C> +\sigma_{\alpha\alpha}\\\\ 693C> {\it t_{12}} &=& {\it t_1}^{0.3333333333333333}\\\\ 694C> {\it t_{13}} &=& {{1}\over{\sqrt{{\it t_{12}}}}}\\\\ 695C> {\it t_{14}} &=& 1.575246635799487\,{\it t_{13}}\\\\ 696C> {\it t_{15}} &=& \arctan \left({{6.15199081975908}\over{{ 697C> \it t_{14}}+3.72744}}\right)\\\\ 698C> {\it t_{16}} &=& 0.7876233178997433\,{\it t_{13}}\\\\ 699C> {\it t_{17}} &=& {{1}\over{{\it t_{12}}}}\\\\ 700C> {\it t_{18}} &=& 0.6203504908994001\,{\it t_{17}}\\\\ 701C> {\it t_{19}} &=& {{1}\over{\left| 2.935818660072219\,{\it t_{13}} 702C> +{\it t_{18}}+12.9352\right| }}\\\\ 703C> {\it t_{20}} &=& \log \left(1.0\,\left({\it t_{16}} 704C> +0.10498\right)^2\,{\it t_{19}}\right)\\\\ 705C> {\it t_{21}} &=& \left| {\it t_{17}}\right| \\\\ 706C> {\it t_{22}} &=& \log \left(0.6203504908994001\,{\it t_{21}} 707C> \,{\it t_{19}}\right)\\\\ 708C> {\it t_{23}} &=& \arctan \left({{7.123108917818118}\over{{ 709C> \it t_{14}}+1.13107}}\right)\\\\ 710C> {\it t_{24}} &=& {{1}\over{\left| 0.8908571061768626\,{ 711C> \it t_{13}}+{\it t_{18}}+13.0045\right| }}\\\\ 712C> {\it t_{25}} &=& \log \left(1.0\,\left({\it t_{16}} 713C> +0.0047584\right)^2\,{\it t_{24}}\right)\\\\ 714C> {\it t_{26}} &=& \log \left(0.6203504908994001\,{\it t_{21}} 715C> \,{\it t_{24}}\right)\\\\ 716C> {\it t_{27}} &=& {{1}\over{\left| 5.560951426165705\,{\it t_{13}} 717C> +{\it t_{18}}+18.0578\right| }}\\\\ 718C> {\it t_{28}} &=& {{1}\over{e^{{{40.4276151175637\,\left(1.125 719C> \,\left({\it t_5}^{{{4}\over{3}}}+{\it t_4}^{{{4}\over{3}}} 720C> -2.0\right)\,\left({{{\it t_2}^4\,\left(1.709920934161365 721C> \,\left(0.01554535\,\log \left(0.6203504908994001\,{ 722C> \it t_{21}}\,{\it t_{27}}\right)+0.002247867095542611 723C> \,\log \left(1.0\,\left({\it t_{16}}+0.325\right)^2\,{ 724C> \it t_{27}}\right)-0.0310907\,{\it t_{22}} 725C> -9.690227711544375 \times 10^{-4}\,{\it t_{20}} 726C> +0.05249139316978092\,\arctan \left({{4.730926909560114} 727C> \over{{\it t_{14}}+7.06042}}\right)-0.03878329487811301\,{ 728C> \it t_{15}}\right)+0.01688686394038963\,{\it t_{26}} 729C> +6.991732350764465 \times 10^{-6}\,{\it t_{25}} 730C> +0.005365091848883603\,{\it t_{23}}\right)}\over{{\it t_1}^4}} 731C> -0.01688686394038963\,{\it t_{26}}-6.991732350764465 \times 10^{ 732C> -6}\,{\it t_{25}}-0.005365091848883603\,{\it t_{23}}\right) 733C> +0.0310907\,{\it t_{22}}+9.690227711544375 \times 10^{-4}\,{ 734C> \it t_{20}}+0.03878329487811301\,{\it t_{15}}\right)}\over{{ 735C> \it t_7}}}}}}-1.0\\\\ 736C> {\it t_{29}} &=& {{0.1712109500228823\,{\it t_9}\,{\it t_{10}} 737C> \,{\it t_{11}}}\over{{\it t_{28}}}}\\\\ 738C> {\it t_{30}} &=& \rho_s^{1.166666666666667}\\\\ 739C> {\it t_{31}} &=& {{1}\over{{\it t_{30}}^{2.0}}}\\\\ 740C> {\it t_{32}} &=& \rho_s^{0.3333333333333333}\\\\ 741C> {\it t_{33}} &=& {{1}\over{\sqrt{{\it t_{32}}}}}\\\\ 742C> {\it t_{34}} &=& {{1}\over{{\it t_{32}}}}\\\\ 743C> {\it t_{35}} &=& 0.6203504908994001\,{\it t_{34}}\\\\ 744C> {\it t_{36}} &=& {{1}\over{\left| {\it t_{35}} 745C> +2.935818660072219\,{\it t_{33}}+12.9352\right| }}\\\\ 746C> {\it t_{37}} &=& \left| {\it t_{34}}\right| \\\\ 747C> {\it t_{38}} &=& \log \left(0.6203504908994001\,{\it t_{36}} 748C> \,{\it t_{37}}\right)\\\\ 749C> {\it t_{39}} &=& 0.7876233178997433\,{\it t_{33}}\\\\ 750C> {\it t_{40}} &=& \log \left(1.0\,{\it t_{36}}\,\left({\it t_{39}} 751C> +0.10498\right)^2\right)\\\\ 752C> {\it t_{41}} &=& 1.575246635799487\,{\it t_{33}}\\\\ 753C> {\it t_{42}} &=& \arctan \left({{6.15199081975908}\over{{ 754C> \it t_{41}}+3.72744}}\right)\\\\ 755C> {\it t_{43}} &=& {{1}\over{\left| {\it t_{35}} 756C> +0.8908571061768626\,{\it t_{33}}+13.0045\right| }}\\\\ 757C> {\it t_{44}} &=& \log \left(0.6203504908994001\,{\it t_{43}} 758C> \,{\it t_{37}}\right)\\\\ 759C> {\it t_{45}} &=& \log \left(1.0\,{\it t_{43}}\,\left({\it t_{39}} 760C> +0.0047584\right)^2\right)\\\\ 761C> {\it t_{46}} &=& \arctan \left({{7.123108917818118}\over{{ 762C> \it t_{41}}+1.13107}}\right)\\\\ 763C> {\it t_{47}} &=& {{1}\over{\left| {\it t_{35}} 764C> +5.560951426165705\,{\it t_{33}}+18.0578\right| }}\\\\ 765C> {\it t_{48}} &=& {{1}\over{e^{80.85523023512742\, 766C> \left(0.5848223622634643\,\left(1.0\,\left(1.709920934161365 767C> \,\left(0.05249139316978092\,\arctan 768C> \left({{4.730926909560114}\over{{\it t_{41}}+7.06042}}\right) 769C> -0.03878329487811301\,{\it t_{42}}+0.002247867095542611 770C> \,\log \left(1.0\,{\it t_{47}}\,\left({\it t_{39}} 771C> +0.325\right)^2\right)-9.690227711544375 \times 10^{-4}\,{ 772C> \it t_{40}}+0.01554535\,\log \left(0.6203504908994001\,{ 773C> \it t_{47}}\,{\it t_{37}}\right)-0.0310907\,{\it t_{38}}\right) 774C> +0.005365091848883603\,{\it t_{46}} 775C> +6.991732350764465 \times 10^{-6}\,{\it t_{45}} 776C> +0.01688686394038963\,{\it t_{44}}\right)-0.005365091848883603 777C> \,{\it t_{46}}-6.991732350764465 \times 10^{-6}\,{\it t_{45}} 778C> -0.01688686394038963\,{\it t_{44}}\right)+0.03878329487811301 779C> \,{\it t_{42}}+9.690227711544375 \times 10^{-4}\,{\it t_{40}} 780C> +0.0310907\,{\it t_{38}}\right)}}}-1.0\\\\ 781C> {\it t_{49}} &=& {{0.2717804421747982\,{\it t_{31}}\, 782C> \sigma_{ss}}\over{{\it t_{48}}}}\\\\ 783C> f &=& 0.02473556743557577\,{\it t_1}\,{\it t_7}\,\log 784C> \left({{0.1712109500228823\,{\it t_9}\,{\it t_{10}}\,{ 785C> \it t_{11}}\,\left({\it t_{29}}+1.0\right)} 786C> \over{{{0.02931318940773791\,{\it t_{11}}^{2.0}}\over{{ 787C> \it t_8}^{4.0}\,{\it t_6}^{4.0}\,{\it t_{28}}^{2.0}}}+{ 788C> \it t_{29}}+1.0}}+1.0\right)\\\\ 789C> g &=& 0\\\\ 790C> G &=& 0.01236778371778788\,\rho_s\,\log 791C> \left({{0.2717804421747982\,{\it t_{31}}\,\sigma_{ss}\, 792C> \left({\it t_{49}}+1.0\right)}\over{{{0.07386460874872887 793C> \,\sigma_{ss}^{2.0}}\over{{\it t_{30}}^{4.0}\,{ 794C> \it t_{48}}^{2.0}}}+{\it t_{49}}+1.0}}+1.0\right)\\\\ 795C> \f} 796C> 797C> Code generated with Maxima 5.34.0 [2] 798C> driven by autoxc [3]. 799C> 800C> ### References ### 801C> 802C> [1] unpublished , DOI: 803C> <a href="https://doi.org/unpublished "> 804C> unpublished </a> 805C> 806C> [2] Maxima, a computer algebra system, 807C> <a href="http://maxima.sourceforge.net/"> 808C> http://maxima.sourceforge.net/</a> 809C> 810C> [3] autoxc, revision 27097 2015-05-08 811C> 812 subroutine nwxcm_c_p91_vwn5_d2(param,tol_rho,ipol,nq,wght, 813 +rho,rgamma,fnc,Amat,Amat2,Cmat,Cmat2) 814c $Id: $ 815#ifdef NWXC_QUAD_PREC 816 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 817 integer, parameter :: rk=selected_real_kind(30) 818#else 819 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 820 integer, parameter :: rk=selected_real_kind(15) 821#endif 822#include "nwxc_param.fh" 823 double precision param(*) !< [Input] Parameters of functional 824 double precision tol_rho !< [Input] The lower limit on the density 825 integer ipol !< [Input] The number of spin channels 826 integer nq !< [Input] The number of points 827 double precision wght !< [Input] The weight of the functional 828 double precision rho(nq,*) !< [Input] The density 829 double precision rgamma(nq,*) !< [Input] The norm of the density 830 !< gradients 831 double precision fnc(nq) !< [Output] The value of the functional 832c 833c Sampling Matrices for the XC Kernel 834c 835 double precision Amat(nq,*) !< [Output] The derivative wrt rho 836 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 837c 838c Sampling Matrices for the XC Kernel 839c 840 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 841 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 842 !< and possibly rho 843 integer iq 844 double precision tmp 845 double precision rhoa,rhob 846 double precision gammaaa,gammaab,gammabb 847 double precision taua,taub 848 double precision nwxcm_heaviside 849 external nwxcm_heaviside 850CDIR$ NOVECTOR 851 do iq = 1, nq 852 if (ipol.eq.1) then 853 rhoa = 0.5d0*rho(iq,R_T) 854 gammaaa = 0.25d0*rgamma(iq,G_TT) 855 if (rhoa.gt.tol_rho) then 856 t1 = rhoa**1.1666666666666667d+0 857 t2 = 1/t1**2.0d+0 858 t3 = rhoa**3.333333333333333d-1 859 t4 = t3**5.0d-1 860 t5 = 1/t4 861 t6 = 1/t3 862 t7 = 4.9237251092134837d-1*t6 863 t8 = 1/abs(t7+2.615517080950829d+0*t5+1.29352d+1) 864 t9 = abs(t6) 865 t10 = exp(-4.0427615117563703d+1*(3.10907d-2*log(4.923725109 866 1 2134837d-1*t8*t9)+9.690227711544375d-4*log(1.0d+0*(7.0169 867 2 26042943223d-1*t5+1.0498d-1)**2*t8)+3.8783294878113006d-2 868 3 *atan(6.15199081975908d+0/(1.4033852085886447d+0*t5+3.727 869 4 44d+0))))-1.0d+0 870 t11 = 1.358902210873991d-1*gammaaa*t2/t10 871 t12 = gammaaa**2.0d+0 872 t13 = 1/t1**4.0d+0 873 t14 = t7+2.615517080950828d+0*t5+1.29352d+1 874 t15 = abs(t14) 875 t16 = 1/t15 876 t17 = 7.016926042943222d-1*t5 877 t18 = t17+1.0498d-1 878 t19 = t18**2 879 t20 = 1.4033852085886445d+0*t5 880 t21 = t20+3.72744d+0 881 t22 = 3.10907d-2*log(4.9237251092134837d-1*t16*t9)+3.8783294 882 1 878113006d-2*atan(6.15199081975908d+0/t21)+9.690227711544 883 2 375d-4*log(1.0d+0*t16*t19) 884 t23 = exp(-4.0427615117563703d+1*t22) 885 t24 = t23-1.0d+0 886 t25 = 1/t24 887 t26 = 1.3589022108739912d-1*gammaaa*t2*t25 888 t27 = t26+1.0d+0 889 t28 = 1/t24**2.0d+0 890 t29 = 1.846615218718221d-2*t12*t13*t28+t26+1.0d+0 891 t30 = 1/t29 892 t31 = 1.3589022108739912d-1*gammaaa*t2*t27*t30+1.0d+0 893 t32 = 1/t31 894 t33 = rhoa**1.6666666666666674d-1 895 t34 = 1/t1**3.0d+0 896 t35 = -1.585385912686323d-1*gammaaa*t25*t33*t34 897 t36 = 1/t9 898 t37 = 1/t4**3 899 t38 = 1/rhoa**6.666666666666667d-1 900 t39 = -2.1795975674590234d-1*t37*t38-8.206208515355806d-2/rh 901 1 oa**1.3333333333333333d+0 902 t40 = 1/t14 903 t41 = 1/rhoa**1.6666666666666666d+0 904 t42 = -4.9237251092134837d-1*t16*t39*t40*t9-8.20620851535580 905 1 6d-2*t16*t36*t41 906 t43 = 1/t21**2 907 t44 = 3.784699104639999d+1*t43+1 908 t45 = 1/t44 909 t46 = 1/t19 910 t47 = -1.0d+0*t16*t19*t39*t40-1.1694876738238703d-1*t16*t18* 911 1 t37*t38 912 t48 = 9.690227711544375d-4*t15*t46*t47+2.790332964441521d-2* 913 1 t37*t38*t43*t45+6.314467057030004d-2*t15*t36*t42 914 t49 = 1/t24**2 915 t50 = 5.493717556362011d+0*gammaaa*t2*t23*t48*t49 916 t51 = t50+t35 917 t52 = 1/t29**2 918 t53 = 1/t1**5.0d+0 919 t54 = 1/t24**3.0d+0 920 t55 = 1.4930849866515192d+0*t12*t13*t23*t48*t54-4.3087688436 921 1 7585d-2*t12*t28*t33*t53+t50+t35 922 t56 = -1.3589022108739912d-1*gammaaa*t2*t27*t52*t55+1.358902 923 1 2108739912d-1*gammaaa*t2*t30*t51-1.585385912686323d-1*gam 924 2 maaa*t27*t30*t33*t34 925 t57 = log(t31) 926 t58 = 9.233076093591105d-3*gammaaa*t13*t28+3.397255527184978 927 1 d-2*t2*t25 928 t59 = -1.3589022108739912d-1*gammaaa*t2*t27*t52*t58+3.397255 929 1 527184978d-2*t2*t27*t30+4.6165380467955525d-3*gammaaa*t13 930 2 *t25*t30 931 t60 = 1.846615218718221d-2*gammaaa*t13*t28+6.794511054369956 932 1 d-2*t2*t25 933 t61 = -1.3589022108739912d-1*gammaaa*t2*t27*t52*t60+6.794511 934 1 054369956d-2*t2*t27*t30+9.233076093591105d-3*gammaaa*t13* 935 2 t25*t30 936 t62 = 1/t31**2 937 t63 = -4.947113487115154d-2*rhoa*t56**2*t62*wght 938 t64 = 1/rhoa 939 t65 = 4.947113487115154d-2*t56*wght 940 t66 = rhoa**3.333333333333335d-1 941 t67 = 2.774425347201065d-1*gammaaa*t13*t27*t30*t66 942 t68 = 1/rhoa**8.333333333333333d-1 943 t69 = -1.3211549272386033d-2*gammaaa*t27*t30*t34*t68 944 t70 = 1/rhoa**2 945 t71 = -3.170771825372646d-1*gammaaa*t30*t33*t34*t51 946 t72 = 3.170771825372646d-1*gammaaa*t27*t33*t34*t52*t55 947 t73 = -2.7178044217479824d-1*gammaaa*t2*t51*t52*t55 948 t74 = t48**2 949 t75 = exp(-8.085523023512741d+1*t22) 950 t76 = 4.441957978664119d+2*gammaaa*t2*t74*t75/t24**3 951 t77 = 2.774425347201065d-1*gammaaa*t13*t25*t66 952 t78 = -1.3211549272386033d-2*gammaaa*t25*t34*t68 953 t79 = 1.5098913454155452d-2*gammaaa*t2*t25*t70 954 t80 = -1.2818674298178023d+1*gammaaa*t23*t33*t34*t48*t49 955 t81 = -2.2209789893320595d+2*gammaaa*t2*t23*t49*t74 956 t82 = 1/rhoa**2.3333333333333334d+0 957 t83 = -2.470091445929572d-1*t82/(t21**5*t44**2) 958 t84 = 6.526520015557556d-3*t45*t82/t21**3 959 t85 = 1/abs(t7+7.93663453939179d-1*t5+1.30045d+1) 960 t86 = -1.688686394038963d-2*log(4.9237251092134837d-1*t85*t9 961 1 )-6.991732350764465d-6*log(1.0d+0*(t17+4.7584000000000004 962 2 d-3)**2*t85)-5.365091848883603d-3*atan(7.123108917818117d 963 3 +0/(t20+1.13107d+0)) 964 t87 = 1/rhoa**1.6666666666666669d+0 965 t88 = -9.301109881471736d-3*t37*t43*t45*t87 966 t89 = t39**2 967 t90 = 1/t14**2 968 t91 = 1/t4**5 969 t92 = 1/rhoa**1.3333333333333336d+0 970 t93 = 5.448993918647558d-2*t91*t92+7.265325224863413d-2*t37* 971 1 t87+5.470805676903872d-2/rhoa**2.333333333333333d+0 972 t94 = 6.314467057030004d-2*t15*t36*(-4.9237251092134837d-1*t 973 1 16*t40*t9*t93+9.847450218426967d-1*t16*t89*t9*t90+1.64124 974 2 17030711612d-1*t16*t36*t39*t40*t41+5.470805676903869d-2*t 975 3 16*t36/rhoa**2.6666666666666666d+0) 976 t95 = -6.975832411103801d-3*t43*t45*t91*t92 977 t96 = 1.0524111761716676d-2*t15*t36*t42/rhoa**9.999999999999 978 1 999d-1 979 t97 = 1.1332601865197636d-4*t15*t37*t38*t47/t18**3 980 t98 = 9.690227711544375d-4*t15*t46*(-1.0d+0*t16*t19*t40*t93+ 981 1 2.923719184559675d-2*t16*t18*t91*t92+2.0d+0*t16*t19*t89*t 982 2 90+3.898292246079568d-2*t16*t18*t37*t87+6.838507096129838 983 3 d-3*t16*t82+2.3389753476477407d-1*t16*t18*t37*t38*t39*t40 984 4 ) 985 t99 = 6.314467057030004d-2*t14*t16*t36*t39*t42 986 t100 = 9.690227711544375d-4*t14*t16*t39*t46*t47 987 t101 = -4.0427615117563703d+1*(t99+t98+t97+t96+t95+t94+t88+2 988 1 .5000000000000006d-1*t70*t86+t84+t83+t100)-6.737935852927 989 2 281d+0*t22*t70 990 t102 = -1.3589022108739912d-1*gammaaa*t101*t2*t23*t49 991 t103 = 1.8108559553448106d+2*t12*t13*t74*t75/t24**4.0d+0 992 t104 = 1/t1**6.0d+0 993 t105 = 1.256724246072123d-1*t104*t12*t28*t66 994 t106 = -3.59064070306321d-3*t12*t28*t53*t68 995 t107 = -6.96772993770709d+0*t12*t23*t33*t48*t53*t54 996 t108 = -6.036186517816036d+1*t12*t13*t23*t54*t74 997 t109 = 1/t29**3 998 t110 = 2.7178044217479824d-1*gammaaa*t109*t2*t27*t55**2 999 t111 = -1.5098913454155458d-2*gammaaa*t2*t25*t70 1000 t112 = 6.737935852927284d+0*t22*t70-4.0427615117563703d+1*(t 1001 1 99+t98+t97+t96+t95+t94+t88-2.5000000000000006d-1*t70*t86+ 1002 2 t84+t83+t100) 1003 t113 = -1.3589022108739912d-1*gammaaa*t112*t2*t23*t49 1004 t114 = -3.9634647817158075d-2*t25*t33*t34 1005 t115 = 1.3734293890905028d+0*t2*t23*t48*t49 1006 t116 = t32*(2.473556743557577d-2*t59*wght+4.947113487115154d 1007 1 -2*rhoa*(2.7178044217479824d-1*gammaaa*t109*t2*t27*t55*t5 1008 2 8-1.3589022108739912d-1*gammaaa*t2*t51*t52*t58+1.58538591 1009 3 2686323d-1*gammaaa*t27*t33*t34*t52*t58-3.397255527184978d 1010 4 -2*t2*t27*t52*t55-4.6165380467955525d-3*gammaaa*t13*t25*t 1011 5 52*t55-1.3589022108739912d-1*gammaaa*t2*t27*t52*(7.465424 1012 6 933257596d-1*gammaaa*t13*t23*t48*t54-2.154384421837925d-2 1013 7 *gammaaa*t28*t33*t53+t115+t114)-5.385961054594812d-3*gamm 1014 8 aaa*t25*t30*t33*t53+3.397255527184978d-2*t2*t30*t51-3.963 1015 9 4647817158075d-2*t27*t30*t33*t34+1.3589022108739912d-1*ga 1016 : mmaaa*(t115+t114)*t2*t30)*wght)-4.947113487115154d-2*rhoa 1017 ; *t56*t59*t62*wght 1018 t117 = -7.926929563431615d-2*t25*t33*t34 1019 t118 = 2.7468587781810055d+0*t2*t23*t48*t49 1020 t119 = -6.794511054369956d-2*t2*t27*t52*t58 1021 t120 = -9.233076093591105d-3*gammaaa*t13*t25*t52*t58 1022 t121 = 4.947113487115154d-2*rhoa*t32*(2.7178044217479824d-1* 1023 1 gammaaa*t109*t2*t27*t58**2-3.1367118791871873d-4*gammaaa* 1024 2 t104*t27*t28*t52+2.3082690233977762d-3*t13*t25*t30+t120+t 1025 3 119)*wght-4.947113487115154d-2*rhoa*t59**2*t62*wght 1026 fnc(iq) = 4.947113487115154d-2*rhoa*log(1.358902210873991d-1 1027 1 *gammaaa*(t11+1.0d+0)*t2/(1.8466152187182203d-2*t12*t13/t 1028 2 10**2.0d+0+t11+1.0d+0)+1.0d+0)*wght+fnc(iq) 1029 Amat(iq,D1_RA) = 2.473556743557577d-2*t57*wght+4.94711348711 1030 1 5154d-2*rhoa*t32*t56*wght+Amat(iq,D1_RA) 1031 Cmat(iq,D1_GAA) = 4.947113487115154d-2*rhoa*t32*t59*wght+Cma 1032 1 t(iq,D1_GAA) 1033 Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t32*t61*wght+Cma 1034 1 t(iq,D1_GAB) 1035 Amat2(iq,D2_RA_RA) = t32*(4.947113487115154d-2*rhoa*(-1.3589 1036 1 022108739912d-1*gammaaa*t2*t27*t52*(t81+t80+t79+t78+t77+t 1037 2 76+4.103589374929379d-3*t12*t13*t28*t70-3.693230437436442 1038 3 d-2*t101*t12*t13*t23*t54+t108+t107+t106+t105+t103+t102)+1 1039 4 .3589022108739912d-1*gammaaa*t2*t30*(t81+t80+t79+t78+t77+ 1040 5 t76+t102)+t73+t72+t71+1.5098913454155452d-2*gammaaa*t2*t2 1041 6 7*t30*t70+t69+t67+t110)*wght+t65)-8.245189145191921d-3*t5 1042 7 7*t64*wght+t63+Amat2(iq,D2_RA_RA) 1043 Amat2(iq,D2_RA_RB) = t32*(4.947113487115154d-2*rhoa*(-1.3589 1044 1 022108739912d-1*gammaaa*t2*t27*t52*(t81+t80+t78+t77+t76-4 1045 2 .1035893749293795d-3*t12*t13*t28*t70-3.693230437436442d-2 1046 3 *t112*t12*t13*t23*t54+t113+t111+t108+t107+t106+t105+t103) 1047 4 +1.3589022108739912d-1*gammaaa*t2*t30*(t81+t80+t78+t77+t7 1048 5 6+t113+t111)+t73+t72+t71-1.5098913454155458d-2*gammaaa*t2 1049 6 *t27*t30*t70+t69+t67+t110)*wght+t65)+8.245189145191922d-3 1050 7 *t57*t64*wght+t63+Amat2(iq,D2_RA_RB) 1051 Cmat2(iq,D2_RA_GAA) = t116+Cmat2(iq,D2_RA_GAA) 1052 Cmat2(iq,D2_RA_GAB) = t32*(2.473556743557577d-2*t61*wght+4.9 1053 1 47113487115154d-2*rhoa*(2.7178044217479824d-1*gammaaa*t10 1054 2 9*t2*t27*t55*t60-1.3589022108739912d-1*gammaaa*t2*t51*t52 1055 3 *t60+1.585385912686323d-1*gammaaa*t27*t33*t34*t52*t60-6.7 1056 4 94511054369956d-2*t2*t27*t52*t55-9.233076093591105d-3*gam 1057 5 maaa*t13*t25*t52*t55-1.3589022108739912d-1*gammaaa*t2*t27 1058 6 *t52*(1.4930849866515192d+0*gammaaa*t13*t23*t48*t54-4.308 1059 7 76884367585d-2*gammaaa*t28*t33*t53+t118+t117)-1.077192210 1060 8 9189624d-2*gammaaa*t25*t30*t33*t53+6.794511054369956d-2*t 1061 9 2*t30*t51-7.926929563431615d-2*t27*t30*t33*t34+1.35890221 1062 : 08739912d-1*gammaaa*(t118+t117)*t2*t30)*wght)-4.947113487 1063 ; 115154d-2*rhoa*t56*t61*t62*wght+Cmat2(iq,D2_RA_GAB) 1064 Cmat2(iq,D2_RA_GBB) = t116+Cmat2(iq,D2_RA_GBB) 1065 Cmat2(iq,D2_GAA_GAA) = t121+Cmat2(iq,D2_GAA_GAA) 1066 Cmat2(iq,D2_GAA_GAB) = -4.947113487115154d-2*rhoa*t59*t61*t6 1067 1 2*wght+4.947113487115154d-2*rhoa*t32*(2.7178044217479824d 1068 2 -1*gammaaa*t109*t2*t27*t58*t60-3.397255527184978d-2*t2*t2 1069 3 7*t52*t60-4.6165380467955525d-3*gammaaa*t13*t25*t52*t60-6 1070 4 .273423758374375d-4*gammaaa*t104*t27*t28*t52+4.6165380467 1071 5 955525d-3*t13*t25*t30+t120+t119)*wght+Cmat2(iq,D2_GAA_GAB 1072 6 ) 1073 Cmat2(iq,D2_GAA_GBB) = t121+Cmat2(iq,D2_GAA_GBB) 1074 Cmat2(iq,D2_GAB_GAB) = -4.947113487115154d-2*rhoa*t61**2*t62 1075 1 *wght+4.947113487115154d-2*rhoa*t32*(2.7178044217479824d- 1076 2 1*gammaaa*t109*t2*t27*t60**2-1.3589022108739912d-1*t2*t27 1077 3 *t52*t60-1.846615218718221d-2*gammaaa*t13*t25*t52*t60-1.2 1078 4 54684751674875d-3*gammaaa*t104*t27*t28*t52+9.233076093591 1079 5 105d-3*t13*t25*t30)*wght+Cmat2(iq,D2_GAB_GAB) 1080 endif ! rhoa.gt.tol_rho 1081 else ! ipol.eq.1 1082 rhoa = rho(iq,R_A) 1083 rhob = rho(iq,R_B) 1084 gammaaa = rgamma(iq,G_AA) 1085 gammaab = rgamma(iq,G_AB) 1086 gammabb = rgamma(iq,G_BB) 1087 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 1088 t1 = rhob+rhoa 1089 t2 = rhoa-rhob 1090 t3 = 1/t1 1091 t4 = 1.0d+0-t2*t3 1092 t5 = t4**6.666666666666666d-1 1093 t6 = t2*t3+1.0d+0 1094 t7 = t6**6.666666666666666d-1 1095 t8 = 5.0d-1*t7+5.0d-1*t5 1096 t9 = t8**3.0d+0 1097 t10 = gammabb+2.0d+0*gammaab+gammaaa 1098 t11 = t1**1.1666666666666667d+0 1099 t12 = 1/t11**2.0d+0 1100 t13 = t8**2.0d+0 1101 t14 = 1/t13 1102 t15 = 1/t9 1103 t16 = t1**3.333333333333333d-1 1104 t17 = t16**5.0d-1 1105 t18 = 1/t17 1106 t19 = 1.5752466357994865d+0*t18 1107 t20 = t19+3.72744d+0 1108 t21 = atan(6.15199081975908d+0/t20) 1109 t22 = 7.876233178997433d-1*t18 1110 t23 = t22+1.0498d-1 1111 t24 = t23**2 1112 t25 = 1/t16 1113 t26 = 6.203504908994001d-1*t25 1114 t27 = t26+2.935818660072219d+0*t18+1.29352d+1 1115 t28 = abs(t27) 1116 t29 = 1/t28 1117 t30 = log(1.0d+0*t24*t29) 1118 t31 = abs(t25) 1119 t32 = log(6.203504908994001d-1*t29*t31) 1120 t33 = t4**1.3333333333333333d+0 1121 t34 = t6**1.3333333333333333d+0 1122 t35 = t34+t33-2.0d+0 1123 t36 = t19+1.13107d+0 1124 t37 = atan(7.123108917818117d+0/t36) 1125 t38 = t22+4.7584000000000004d-3 1126 t39 = t38**2 1127 t40 = t26+8.908571061768626d-1*t18+1.30045d+1 1128 t41 = abs(t40) 1129 t42 = 1/t41 1130 t43 = log(1.0d+0*t39*t42) 1131 t44 = log(6.203504908994001d-1*t31*t42) 1132 t45 = t2**4 1133 t46 = 1/t1**4 1134 t47 = t19+7.06042d+0 1135 t48 = t22+3.25d-1 1136 t49 = t48**2 1137 t50 = t26+5.560951426165704d+0*t18+1.8057800000000002d+1 1138 t51 = abs(t50) 1139 t52 = 1/t51 1140 t53 = 1.709920934161365d+0*(2.2478670955426108d-3*log(1.0d+0 1141 1 *t49*t52)+1.554535d-2*log(6.203504908994001d-1*t31*t52)+5 1142 2 .249139316978092d-2*atan(4.7309269095601136d+0/t47)-3.109 1143 3 07d-2*t32-9.690227711544375d-4*t30-3.8783294878113006d-2* 1144 4 t21)+1.688686394038963d-2*t44+6.991732350764465d-6*t43+5. 1145 5 365091848883603d-3*t37 1146 t54 = t45*t46*t53-1.688686394038963d-2*t44-6.991732350764465 1147 1 d-6*t43-5.365091848883603d-3*t37 1148 t55 = 1.1250000000000002d+0*t35*t54+3.10907d-2*t32+9.6902277 1149 1 11544375d-4*t30+3.8783294878113006d-2*t21 1150 t56 = exp(-4.0427615117563703d+1*t15*t55) 1151 t57 = t56-1.0d+0 1152 t58 = 1/t57 1153 t59 = 1.7121095002288234d-1*t10*t12*t14*t58 1154 t60 = t59+1.0d+0 1155 t61 = t10**2.0d+0 1156 t62 = 1/t11**4.0d+0 1157 t63 = 1/t8**4.0d+0 1158 t64 = 1/t57**2.0d+0 1159 t65 = 2.931318940773791d-2*t61*t62*t63*t64+t59+1.0d+0 1160 t66 = 1/t65 1161 t67 = 1.7121095002288234d-1*t10*t12*t14*t60*t66+1.0d+0 1162 t68 = log(t67) 1163 t69 = 1/t1**2 1164 t70 = t2*t69 1165 t71 = -t3 1166 t72 = t71+t70 1167 t73 = t4**3.333333333333333d-1 1168 t74 = 1/t73 1169 t75 = -t2*t69 1170 t76 = t75+t3 1171 t77 = t6**3.333333333333333d-1 1172 t78 = 1/t77 1173 t79 = 3.333333333333333d-1*t76*t78+3.333333333333333d-1*t72* 1174 1 t74 1175 t80 = 2.473556743557577d-2*t68*t9*wght 1176 t81 = 1/t67 1177 t82 = t1**1.6666666666666674d-1 1178 t83 = 1/t11**3.0d+0 1179 t84 = -3.994922167200588d-1*t10*t14*t60*t66*t82*t83 1180 t85 = -3.4242190004576467d-1*t10*t12*t15*t58*t79 1181 t86 = -3.994922167200588d-1*t10*t14*t58*t82*t83 1182 t87 = 1/t57**2 1183 t88 = 1/t1**6.666666666666667d-1 1184 t89 = 1/t17**3 1185 t90 = 1/t20**2 1186 t91 = 3.784699104639999d+1*t90+1 1187 t92 = 1/t91 1188 t93 = 6.264085709464389d-2*t88*t89*t90*t92 1189 t94 = 1/t24 1190 t95 = -2.067834969664667d-1/t1**1.3333333333333333d+0 1191 t96 = t95-4.8930311001203647d-1*t88*t89 1192 t97 = 1/t27 1193 t98 = -1.0d+0*t24*t29*t96*t97-2.625411059665811d-1*t23*t29*t 1194 1 88*t89 1195 t99 = 9.690227711544375d-4*t28*t94*t98 1196 t100 = 1/t31 1197 t101 = 1/t1**1.6666666666666666d+0 1198 t102 = -6.203504908994001d-1*t29*t31*t96*t97-2.0678349696646 1199 1 67d-1*t100*t101*t29 1200 t103 = 5.011795824473985d-2*t100*t102*t28 1201 t104 = 1/t36**2 1202 t105 = 5.07386806551d+1*t104+1 1203 t106 = 1/t105 1204 t107 = -1.0033305979455584d-2*t104*t106*t88*t89 1205 t108 = 1/t39 1206 t109 = t95-1.4847618436281043d-1*t88*t89 1207 t110 = 1/t40 1208 t111 = -2.625411059665811d-1*t38*t42*t88*t89-1.0d+0*t109*t11 1209 1 0*t39*t42 1210 t112 = -6.991732350764465d-6*t108*t111*t41 1211 t113 = -6.203504908994001d-1*t109*t110*t31*t42-2.06783496966 1212 1 4667d-1*t100*t101*t42 1213 t114 = -2.722148880047894d-2*t100*t113*t41 1214 t115 = 1/t47**2 1215 t116 = 2.238166942360001d+1*t115+1 1216 t117 = 1/t116 1217 t118 = 1/t49 1218 t119 = t95-9.26825237694284d-1*t88*t89 1219 t120 = 1/t50 1220 t121 = -2.625411059665811d-1*t48*t52*t88*t89-1.0d+0*t119*t12 1221 1 0*t49*t52 1222 t122 = -6.203504908994001d-1*t119*t120*t31*t52-2.06783496966 1223 1 4667d-1*t100*t101*t52 1224 t123 = 1.709920934161365d+0*(-9.690227711544375d-4*t28*t94*t 1225 1 98-6.264085709464389d-2*t88*t89*t90*t92+6.519760588836059 1226 2 d-2*t115*t117*t88*t89+2.5058979122369923d-2*t100*t122*t51 1227 3 +2.2478670955426108d-3*t118*t121*t51-5.011795824473985d-2 1228 4 *t100*t102*t28)+1.0033305979455584d-2*t104*t106*t88*t89+2 1229 5 .722148880047894d-2*t100*t113*t41+6.991732350764465d-6*t1 1230 6 08*t111*t41 1231 t124 = t123*t45*t46 1232 t125 = 1/t1**5 1233 t126 = -4*t125*t45*t53 1234 t127 = t2**3 1235 t128 = 4*t127*t46*t53+t126+t124+t114+t112+t107 1236 t129 = 1.3333333333333333d+0*t76*t77+1.3333333333333333d+0*t 1237 1 72*t73 1238 t130 = t99+t93+1.1250000000000002d+0*t129*t54+1.125000000000 1239 1 0002d+0*t128*t35+t103 1240 t131 = 1.2128284535269111d+2*t55*t63*t79-4.0427615117563703d 1241 1 +1*t130*t15 1242 t132 = -1.7121095002288234d-1*t10*t12*t131*t14*t56*t87 1243 t133 = t86+t85+t132 1244 t134 = 1/t65**2 1245 t135 = 1/t8**5.0d+0 1246 t136 = 1/t11**5.0d+0 1247 t137 = -1.3679488390277694d-1*t136*t61*t63*t64*t82 1248 t138 = 1/t57**3.0d+0 1249 t139 = t86+t85-1.1725275763095165d-1*t135*t61*t62*t64*t79-5. 1250 1 862637881547582d-2*t131*t138*t56*t61*t62*t63+t137+t132 1251 t140 = t84-3.4242190004576467d-1*t10*t12*t15*t60*t66*t79+1.7 1252 1 121095002288234d-1*t10*t12*t133*t14*t66-1.712109500228823 1253 2 4d-1*t10*t12*t134*t139*t14*t60 1254 t141 = t70+t3 1255 t142 = t75+t71 1256 t143 = 3.333333333333333d-1*t142*t78+3.333333333333333d-1*t1 1257 1 41*t74 1258 t144 = -3.4242190004576467d-1*t10*t12*t143*t15*t58 1259 t145 = -4*t127*t46*t53+t126+t124+t114+t112+t107 1260 t146 = 1.3333333333333333d+0*t142*t77+1.3333333333333333d+0* 1261 1 t141*t73 1262 t147 = t99+t93+1.1250000000000002d+0*t146*t54+1.125000000000 1263 1 0002d+0*t145*t35+t103 1264 t148 = 1.2128284535269111d+2*t143*t55*t63-4.0427615117563703 1265 1 d+1*t147*t15 1266 t149 = -1.7121095002288234d-1*t10*t12*t14*t148*t56*t87 1267 t150 = t86+t149+t144 1268 t151 = t86-1.1725275763095165d-1*t135*t143*t61*t62*t64-5.862 1269 1 637881547582d-2*t138*t148*t56*t61*t62*t63+t149+t144+t137 1270 t152 = t84-3.4242190004576467d-1*t10*t12*t143*t15*t60*t66+1. 1271 1 7121095002288234d-1*t10*t12*t14*t150*t66-1.71210950022882 1272 2 34d-1*t10*t12*t134*t14*t151*t60 1273 t153 = 5.862637881547582d-2*t10*t62*t63*t64+1.71210950022882 1274 1 34d-1*t12*t14*t58 1275 t154 = 2.931318940773791d-2*t10*t58*t62*t63*t66+1.7121095002 1276 1 288234d-1*t12*t14*t60*t66-1.7121095002288234d-1*t10*t12*t 1277 2 134*t14*t153*t60 1278 t155 = 2.473556743557577d-2*t1*t154*t81*t9*wght 1279 t156 = 1.1725275763095165d-1*t10*t62*t63*t64+3.4242190004576 1280 1 467d-1*t12*t14*t58 1281 t157 = 5.862637881547582d-2*t10*t58*t62*t63*t66+3.4242190004 1282 1 576467d-1*t12*t14*t60*t66-1.7121095002288234d-1*t10*t12*t 1283 2 134*t14*t156*t60 1284 t158 = t79**2 1285 t159 = t72**2 1286 t160 = 1/t33 1287 t161 = 1/t1**3 1288 t162 = -2*t161*t2 1289 t163 = 2*t69 1290 t164 = t163+t162 1291 t165 = t76**2 1292 t166 = 1/t34 1293 t167 = 2*t161*t2 1294 t168 = -2*t69 1295 t169 = t168+t167 1296 t170 = 3.333333333333333d-1*t169*t78+3.333333333333333d-1*t1 1297 1 64*t74-1.111111111111111d-1*t165*t166-1.111111111111111d- 1298 2 1*t159*t160 1299 t171 = 1/t67**2 1300 t172 = t1**3.333333333333335d-1 1301 t173 = 1.398222758520206d+0*t10*t14*t172*t60*t62*t66 1302 t174 = 1/t1**8.333333333333333d-1 1303 t175 = -6.658203612000984d-2*t10*t14*t174*t60*t66*t83 1304 t176 = 1/t65**3 1305 t177 = 1.027265700137294d+0*t10*t12*t158*t58*t63 1306 t178 = -3.4242190004576467d-1*t10*t12*t15*t170*t58 1307 t179 = 1.5979688668802353d+0*t10*t15*t58*t79*t82*t83 1308 t180 = 1.398222758520206d+0*t10*t14*t172*t58*t62 1309 t181 = -6.658203612000984d-2*t10*t14*t174*t58*t83 1310 t182 = exp(-8.085523023512741d+1*t15*t55) 1311 t183 = 1/t57**3 1312 t184 = t131**2 1313 t185 = 3.4242190004576467d-1*t10*t12*t14*t182*t183*t184 1314 t186 = -1.7121095002288234d-1*t10*t12*t14*t184*t56*t87 1315 t187 = 1/t1**2.3333333333333334d+0 1316 t188 = 1/t20**5 1317 t189 = 1/t91**2 1318 t190 = -1.2448480831567728d+0*t187*t188*t189 1319 t191 = 1/t20**3 1320 t192 = 3.289159980064472d-2*t187*t191*t92 1321 t193 = 1/t1**1.3333333333333336d+0 1322 t194 = 1/t17**5 1323 t195 = -3.1320428547321943d-2*t193*t194*t90*t92 1324 t196 = 1/t1**1.6666666666666669d+0 1325 t197 = -4.176057139642926d-2*t196*t89*t90*t92 1326 t198 = 9.690227711544375d-4*t27*t29*t94*t96*t98 1327 t199 = 5.011795824473985d-2*t100*t102*t27*t29*t96 1328 t200 = t96**2 1329 t201 = 1/t27**2 1330 t202 = 2.7571132928862224d-1/t1**2.333333333333333d+0 1331 t203 = 3.262020733413577d-1*t196*t89+t202+2.4465155500601823 1332 1 d-1*t193*t194 1333 t204 = 5.250822119331622d-1*t23*t29*t88*t89*t96*t97-1.0d+0*t 1334 1 203*t24*t29*t97+1.7502740397772074d-1*t196*t23*t29*t89+2. 1335 2 0d+0*t200*t201*t24*t29+1.3127055298329054d-1*t193*t194*t2 1336 3 3*t29+3.446391616107778d-2*t187*t29 1337 t205 = 9.690227711544375d-4*t204*t28*t94 1338 t206 = 1/t23**3 1339 t207 = 2.544083100456872d-4*t206*t28*t88*t89*t98 1340 t208 = 1/t1**2.6666666666666666d+0 1341 t209 = 4.135669939329334d-1*t100*t101*t29*t96*t97-6.20350490 1342 1 8994001d-1*t203*t29*t31*t97+1.2407009817988002d+0*t200*t2 1343 2 01*t29*t31+2.7571132928862224d-1*t100*t208*t29 1344 t210 = 5.011795824473985d-2*t100*t209*t28 1345 t211 = 1/t1**9.999999999999999d-1 1346 t212 = 1.670598608157995d-2*t100*t102*t211*t28 1347 t213 = 1/t36**5 1348 t214 = 1/t105**2 1349 t215 = 2.6730712388370664d-1*t187*t213*t214 1350 t216 = 1/t36**3 1351 t217 = -5.26831049669476d-3*t106*t187*t216 1352 t218 = 5.016652989727792d-3*t104*t106*t193*t194 1353 t219 = 6.68887065297039d-3*t104*t106*t196*t89 1354 t220 = -6.991732350764465d-6*t108*t109*t111*t40*t42 1355 t221 = -2.722148880047894d-2*t100*t109*t113*t40*t42 1356 t222 = t109**2 1357 t223 = 1/t40**2 1358 t224 = 9.89841229085403d-2*t196*t89+t202+7.423809218140521d- 1359 1 2*t193*t194 1360 t225 = 5.250822119331622d-1*t109*t110*t38*t42*t88*t89+1.7502 1361 1 740397772074d-1*t196*t38*t42*t89-1.0d+0*t110*t224*t39*t42 1362 2 +2.0d+0*t222*t223*t39*t42+1.3127055298329054d-1*t193*t194 1363 3 *t38*t42+3.446391616107778d-2*t187*t42 1364 t226 = -6.991732350764465d-6*t108*t225*t41 1365 t227 = 1/t38**3 1366 t228 = -1.8356171439920266d-6*t111*t227*t41*t88*t89 1367 t229 = -6.203504908994001d-1*t110*t224*t31*t42+1.24070098179 1368 1 88002d+0*t222*t223*t31*t42+2.7571132928862224d-1*t100*t20 1369 2 8*t42+4.135669939329334d-1*t100*t101*t109*t110*t42 1370 t230 = -2.722148880047894d-2*t100*t229*t41 1371 t231 = -9.073829600159646d-3*t100*t113*t211*t41 1372 t232 = -8*t123*t125*t45 1373 t233 = t119**2 1374 t234 = 1/t50**2 1375 t235 = 6.178834917961894d-1*t196*t89+t202+4.63412618847142d- 1376 1 1*t193*t194 1377 t236 = t45*t46*(1.709920934161365d+0*(-9.690227711544375d-4* 1378 1 t27*t29*t94*t96*t98-2.544083100456872d-4*t206*t28*t88*t89 1379 2 *t98-5.011795824473985d-2*t100*t102*t27*t29*t96-9.6902277 1380 3 11544375d-4*t204*t28*t94+4.176057139642926d-2*t196*t89*t9 1381 4 0*t92+3.1320428547321943d-2*t193*t194*t90*t92-3.289159980 1382 5 064472d-2*t187*t191*t92+2.2478670955426108d-3*t118*t51*(5 1383 6 .250822119331622d-1*t119*t120*t48*t52*t88*t89+1.750274039 1384 7 7772074d-1*t196*t48*t52*t89-1.0d+0*t120*t235*t49*t52+2.0d 1385 8 +0*t233*t234*t49*t52+1.3127055298329054d-1*t193*t194*t48* 1386 9 t52+3.446391616107778d-2*t187*t52)+5.901575133296435d-4*t 1387 : 121*t51*t88*t89/t48**3-4.3465070592240396d-2*t115*t117*t1 1388 ; 96*t89+2.5058979122369923d-2*t100*t51*(-6.203504908994001 1389 < d-1*t120*t235*t31*t52+1.2407009817988002d+0*t233*t234*t31 1390 = *t52+2.7571132928862224d-1*t100*t208*t52+4.13566993932933 1391 > 4d-1*t100*t101*t119*t120*t52)+2.5058979122369923d-2*t100* 1392 ? t119*t122*t50*t52+2.2478670955426108d-3*t118*t119*t121*t5 1393 @ 0*t52+8.352993040789976d-3*t100*t122*t211*t51+3.423410311 1394 1 2606934d-2*t117*t187/t47**3-7.662163788798045d-1*t187/(t1 1395 2 16**2*t47**5)-1.670598608157995d-2*t100*t102*t211*t28-5.0 1396 3 11795824473985d-2*t100*t209*t28-3.2598802944180294d-2*t11 1397 4 5*t117*t193*t194+1.2448480831567728d+0*t187*t188*t189)+1. 1398 5 8356171439920266d-6*t111*t227*t41*t88*t89-6.6888706529703 1399 6 9d-3*t104*t106*t196*t89+2.722148880047894d-2*t100*t109*t1 1400 7 13*t40*t42+6.991732350764465d-6*t108*t109*t111*t40*t42+2. 1401 8 722148880047894d-2*t100*t229*t41+6.991732350764465d-6*t10 1402 9 8*t225*t41+9.073829600159646d-3*t100*t113*t211*t41+5.2683 1403 : 1049669476d-3*t106*t187*t216-2.6730712388370664d-1*t187*t 1404 ; 213*t214-5.016652989727792d-3*t104*t106*t193*t194) 1405 t237 = 20*t45*t53/t1**6 1406 t238 = t2**2 1407 t239 = 12*t238*t46*t53 1408 t240 = 1/t5 1409 t241 = 1/t7 1410 t242 = 2.4256569070538223d+2*t130*t63*t79-4.0427615117563703 1411 1 d+1*t15*(1.1250000000000002d+0*t54*(1.3333333333333333d+0 1412 2 *t169*t77+1.3333333333333333d+0*t164*t73+4.44444444444444 1413 3 4d-1*t165*t241+4.444444444444444d-1*t159*t240)+1.12500000 1414 4 00000002d+0*t35*(-32*t125*t127*t53+8*t123*t127*t46+t239+t 1415 5 237+t236+t232+t231+t230+t228+t226+t221+t220+t219+t218+t21 1416 6 7+t215)+t212+t210+t207+t205+t199+t198+t197+t195+t192+t190 1417 7 +2.2500000000000003d+0*t128*t129)+1.2128284535269111d+2*t 1418 8 170*t55*t63-4.8513138141076445d+2*t135*t158*t55 1419 t243 = -1.7121095002288234d-1*t10*t12*t14*t242*t56*t87 1420 t244 = 6.848438000915293d-1*t10*t12*t131*t15*t56*t79*t87 1421 t245 = 7.989844334401176d-1*t10*t131*t14*t56*t82*t83*t87 1422 t246 = 1/t8**6.0d+0 1423 t247 = 1/t11**6.0d+0 1424 t248 = 7.979701560995323d-1*t172*t247*t61*t63*t64 1425 t249 = -2.2799147317129503d-2*t136*t174*t61*t63*t64 1426 t250 = 1/t57**4.0d+0 1427 t251 = 6.666666666666666d-1*t161*t2*t78-1.111111111111111d-1 1428 1 *t142*t166*t76-6.666666666666666d-1*t161*t2*t74-1.1111111 1429 2 11111111d-1*t141*t160*t72 1430 t252 = 1.027265700137294d+0*t10*t12*t143*t58*t63*t79 1431 t253 = -3.4242190004576467d-1*t10*t12*t15*t251*t58 1432 t254 = 7.989844334401176d-1*t10*t143*t15*t58*t82*t83 1433 t255 = 7.989844334401176d-1*t10*t15*t58*t79*t82*t83 1434 t256 = 1.2128284535269111d+2*t147*t63*t79-4.8513138141076445 1435 1 d+2*t135*t143*t55*t79-4.0427615117563703d+1*t15*(1.125000 1436 2 0000000002d+0*t54*(2.6666666666666666d+0*t161*t2*t77+4.44 1437 3 4444444444444d-1*t142*t241*t76-2.6666666666666666d+0*t161 1438 4 *t2*t73+4.444444444444444d-1*t141*t240*t72)+1.12500000000 1439 5 00002d+0*t35*(-12*t238*t46*t53+t237+t236+t232+t231+t230+t 1440 6 228+t226+t221+t220+t219+t218+t217+t215)+t212+t210+t207+t2 1441 7 05+t199+t198+t197+t195+t192+t190+1.1250000000000002d+0*t1 1442 8 28*t146+1.1250000000000002d+0*t129*t145)+1.21282845352691 1443 9 11d+2*t251*t55*t63+1.2128284535269111d+2*t130*t143*t63 1444 t257 = -1.7121095002288234d-1*t10*t12*t14*t256*t56*t87 1445 t258 = 3.4242190004576467d-1*t10*t12*t148*t15*t56*t79*t87 1446 t259 = 3.994922167200588d-1*t10*t14*t148*t56*t82*t83*t87 1447 t260 = 3.4242190004576467d-1*t10*t12*t131*t143*t15*t56*t87 1448 t261 = 3.994922167200588d-1*t10*t131*t14*t56*t82*t83*t87 1449 t262 = 3.4242190004576467d-1*t10*t12*t131*t14*t148*t182*t183 1450 t263 = -1.7121095002288234d-1*t10*t12*t131*t14*t148*t56*t87 1451 t264 = t143**2 1452 t265 = t141**2 1453 t266 = t168+t162 1454 t267 = t142**2 1455 t268 = t167+t163 1456 t269 = 3.333333333333333d-1*t268*t78+3.333333333333333d-1*t2 1457 1 66*t74-1.111111111111111d-1*t166*t267-1.111111111111111d- 1458 2 1*t160*t265 1459 t270 = 1.027265700137294d+0*t10*t12*t264*t58*t63 1460 t271 = -3.4242190004576467d-1*t10*t12*t15*t269*t58 1461 t272 = 1.5979688668802353d+0*t10*t143*t15*t58*t82*t83 1462 t273 = t148**2 1463 t274 = 3.4242190004576467d-1*t10*t12*t14*t182*t183*t273 1464 t275 = -1.7121095002288234d-1*t10*t12*t14*t273*t56*t87 1465 t276 = -4.0427615117563703d+1*t15*(1.1250000000000002d+0*t54 1466 1 *(1.3333333333333333d+0*t268*t77+1.3333333333333333d+0*t2 1467 2 66*t73+4.444444444444444d-1*t241*t267+4.444444444444444d- 1468 3 1*t240*t265)+1.1250000000000002d+0*t35*(32*t125*t127*t53- 1469 4 8*t123*t127*t46+t239+t237+t236+t232+t231+t230+t228+t226+t 1470 5 221+t220+t219+t218+t217+t215)+t212+t210+t207+t205+t199+t1 1471 6 98+t197+t195+t192+t190+2.2500000000000003d+0*t145*t146)+1 1472 7 .2128284535269111d+2*t269*t55*t63+2.4256569070538223d+2*t 1473 8 143*t147*t63-4.8513138141076445d+2*t135*t264*t55 1474 t277 = -1.7121095002288234d-1*t10*t12*t14*t276*t56*t87 1475 t278 = 6.848438000915293d-1*t10*t12*t143*t148*t15*t56*t87 1476 t279 = 7.989844334401176d-1*t10*t14*t148*t56*t82*t83*t87 1477 t280 = 2.473556743557577d-2*t154*t9*wght 1478 t281 = 3.994922167200588d-1*t10*t134*t14*t153*t60*t82*t83 1479 t282 = -3.994922167200588d-1*t14*t60*t66*t82*t83 1480 t283 = -6.839744195138847d-2*t10*t136*t58*t63*t66*t82 1481 t284 = -3.4242190004576467d-1*t12*t15*t58*t79 1482 t285 = -3.994922167200588d-1*t14*t58*t82*t83 1483 t286 = -1.7121095002288234d-1*t12*t131*t14*t56*t87 1484 t287 = -2.735897678055539d-1*t10*t136*t63*t64*t82 1485 t288 = t81*(2.473556743557577d-2*t1*(-1.7121095002288234d-1* 1486 1 t10*t12*t134*t14*t60*(-2.345055152619033d-1*t10*t135*t62* 1487 2 t64*t79-1.1725275763095165d-1*t10*t131*t138*t56*t62*t63+t 1488 3 287+t286+t285+t284)-5.862637881547582d-2*t10*t135*t58*t62 1489 4 *t66*t79-3.4242190004576467d-1*t12*t15*t60*t66*t79+3.4242 1490 5 190004576467d-1*t10*t12*t134*t15*t153*t60*t79+1.712109500 1491 6 2288234d-1*t10*t12*t14*(t286+t285+t284)*t66+1.71210950022 1492 7 88234d-1*t12*t133*t14*t66-2.931318940773791d-2*t10*t134*t 1493 8 139*t58*t62*t63+3.4242190004576467d-1*t10*t12*t139*t14*t1 1494 9 53*t176*t60-1.7121095002288234d-1*t12*t134*t139*t14*t60+t 1495 : 283+t282+t281-1.7121095002288234d-1*t10*t12*t133*t134*t14 1496 ; *t153)*t9*wght+7.420670230672731d-2*t1*t13*t154*t79*wght+ 1497 < t280)-2.473556743557577d-2*t1*t140*t154*t171*t9*wght 1498 t289 = 2.473556743557577d-2*t157*t9*wght 1499 t290 = 3.994922167200588d-1*t10*t134*t14*t156*t60*t82*t83 1500 t291 = -7.989844334401176d-1*t14*t60*t66*t82*t83 1501 t292 = -1.3679488390277694d-1*t10*t136*t58*t63*t66*t82 1502 t293 = -6.848438000915293d-1*t12*t15*t58*t79 1503 t294 = -7.989844334401176d-1*t14*t58*t82*t83 1504 t295 = -3.4242190004576467d-1*t12*t131*t14*t56*t87 1505 t296 = -5.471795356111078d-1*t10*t136*t63*t64*t82 1506 t297 = -3.4242190004576467d-1*t12*t143*t15*t58 1507 t298 = -1.7121095002288234d-1*t12*t14*t148*t56*t87 1508 t299 = t81*(2.473556743557577d-2*t1*(-5.862637881547582d-2*t 1509 1 10*t135*t143*t58*t62*t66-3.4242190004576467d-1*t12*t143*t 1510 2 15*t60*t66+1.7121095002288234d-1*t10*t12*t14*(t298+t297+t 1511 3 285)*t66+1.7121095002288234d-1*t12*t14*t150*t66-1.7121095 1512 4 002288234d-1*t10*t12*t134*t14*t60*(-2.345055152619033d-1* 1513 5 t10*t135*t143*t62*t64-1.1725275763095165d-1*t10*t138*t148 1514 6 *t56*t62*t63+t298+t297+t287+t285)-2.931318940773791d-2*t1 1515 7 0*t134*t151*t58*t62*t63+3.4242190004576467d-1*t10*t12*t14 1516 8 *t151*t153*t176*t60+3.4242190004576467d-1*t10*t12*t134*t1 1517 9 43*t15*t153*t60-1.7121095002288234d-1*t12*t134*t14*t151*t 1518 : 60+t283+t282+t281-1.7121095002288234d-1*t10*t12*t134*t14* 1519 ; t150*t153)*t9*wght+7.420670230672731d-2*t1*t13*t143*t154* 1520 < wght+t280)-2.473556743557577d-2*t1*t152*t154*t171*t9*wght 1521 t300 = -6.848438000915293d-1*t12*t143*t15*t58 1522 t301 = -3.4242190004576467d-1*t12*t14*t148*t56*t87 1523 t302 = -3.4242190004576467d-1*t12*t134*t14*t153*t60 1524 t303 = -5.862637881547582d-2*t10*t134*t153*t58*t62*t63 1525 t304 = 2.473556743557577d-2*t1*(5.862637881547582d-2*t58*t62 1526 1 *t63*t66-1.0037478013399d-2*t10*t134*t246*t247*t60*t64+3. 1527 2 4242190004576467d-1*t10*t12*t14*t153**2*t176*t60+t303+t30 1528 3 2)*t81*t9*wght-2.473556743557577d-2*t1*t154**2*t171*t9*wg 1529 4 ht 1530 t305 = 2.473556743557577d-2*t1*(1.1725275763095165d-1*t58*t6 1531 1 2*t63*t66-2.0074956026798d-2*t10*t134*t246*t247*t60*t64-2 1532 2 .931318940773791d-2*t10*t134*t156*t58*t62*t63+3.424219000 1533 3 4576467d-1*t10*t12*t14*t153*t156*t176*t60-1.7121095002288 1534 4 234d-1*t12*t134*t14*t156*t60+t303+t302)*t81*t9*wght-2.473 1535 5 556743557577d-2*t1*t154*t157*t171*t9*wght 1536 fnc(iq) = 2.473556743557577d-2*t1*t68*t9*wght+fnc(iq) 1537 Amat(iq,D1_RA) = 2.473556743557577d-2*t1*t140*t81*t9*wght+7. 1538 1 420670230672731d-2*t1*t13*t68*t79*wght+t80+Amat(iq,D1_RA) 1539 Amat(iq,D1_RB) = 2.473556743557577d-2*t1*t152*t81*t9*wght+7. 1540 1 420670230672731d-2*t1*t13*t143*t68*wght+t80+Amat(iq,D1_RB 1541 2 ) 1542 Cmat(iq,D1_GAA) = t155+Cmat(iq,D1_GAA) 1543 Cmat(iq,D1_GAB) = 2.473556743557577d-2*t1*t157*t81*t9*wght+C 1544 1 mat(iq,D1_GAB) 1545 Cmat(iq,D1_GBB) = t155+Cmat(iq,D1_GBB) 1546 Amat2(iq,D2_RA_RA) = t81*(2.473556743557577d-2*t1*(1.5979688 1547 1 668802353d+0*t10*t15*t60*t66*t79*t82*t83-7.98984433440117 1548 2 6d-1*t10*t133*t14*t66*t82*t83+7.989844334401176d-1*t10*t1 1549 3 34*t139*t14*t60*t82*t83-1.7121095002288234d-1*t10*t12*t13 1550 4 4*t14*t60*(1.0943590712222155d+0*t135*t136*t61*t64*t79*t8 1551 5 2+5.471795356111078d-1*t131*t136*t138*t56*t61*t63*t82+4.6 1552 6 90110305238066d-1*t131*t135*t138*t56*t61*t62*t79+5.862637 1553 7 881547582d-1*t158*t246*t61*t62*t64-1.1725275763095165d-1* 1554 8 t135*t170*t61*t62*t64-5.862637881547582d-2*t138*t242*t56* 1555 9 t61*t62*t63-5.862637881547582d-2*t138*t184*t56*t61*t62*t6 1556 : 3+1.7587913644642747d-1*t182*t184*t250*t61*t62*t63+t249+t 1557 ; 248+t245+t244+t243+t186+t185+t181+t180+t179+t178+t177)-6. 1558 < 848438000915293d-1*t10*t12*t133*t15*t66*t79+6.84843800091 1559 = 5293d-1*t10*t12*t134*t139*t15*t60*t79+1.027265700137294d+ 1560 > 0*t10*t12*t158*t60*t63*t66-3.4242190004576467d-1*t10*t12* 1561 ? t15*t170*t60*t66+1.7121095002288234d-1*t10*t12*t14*(t245+ 1562 @ t244+t243+t186+t185+t181+t180+t179+t178+t177)*t66+3.42421 1563 1 90004576467d-1*t10*t12*t139**2*t14*t176*t60+t175+t173-3.4 1564 2 242190004576467d-1*t10*t12*t133*t134*t139*t14)*t9*wght+4. 1565 3 947113487115154d-2*t140*t9*wght+1.4841340461345462d-1*t1* 1566 4 t13*t140*t79*wght)-2.473556743557577d-2*t1*t140**2*t171*t 1567 5 9*wght+1.4841340461345462d-1*t1*t158*t68*t8*wght+1.484134 1568 6 0461345462d-1*t13*t68*t79*wght+7.420670230672731d-2*t1*t1 1569 7 3*t170*t68*wght+Amat2(iq,D2_RA_RA) 1570 Amat2(iq,D2_RA_RB) = t81*(2.473556743557577d-2*t1*(7.9898443 1571 1 34401176d-1*t10*t15*t60*t66*t79*t82*t83+7.989844334401176 1572 2 d-1*t10*t143*t15*t60*t66*t82*t83-3.994922167200588d-1*t10 1573 3 *t14*t150*t66*t82*t83-3.994922167200588d-1*t10*t133*t14*t 1574 4 66*t82*t83+3.994922167200588d-1*t10*t134*t14*t151*t60*t82 1575 5 *t83+3.994922167200588d-1*t10*t134*t139*t14*t60*t82*t83-1 1576 6 .7121095002288234d-1*t10*t12*t134*t14*t60*(5.471795356111 1577 7 078d-1*t135*t136*t61*t64*t79*t82+5.471795356111078d-1*t13 1578 8 5*t136*t143*t61*t64*t82+2.735897678055539d-1*t136*t138*t1 1579 9 48*t56*t61*t63*t82+2.735897678055539d-1*t131*t136*t138*t5 1580 : 6*t61*t63*t82+5.862637881547582d-1*t143*t246*t61*t62*t64* 1581 ; t79+2.345055152619033d-1*t135*t138*t148*t56*t61*t62*t79-1 1582 < .1725275763095165d-1*t135*t251*t61*t62*t64-5.862637881547 1583 = 582d-2*t138*t256*t56*t61*t62*t63-5.862637881547582d-2*t13 1584 > 1*t138*t148*t56*t61*t62*t63+1.7587913644642747d-1*t131*t1 1585 ? 48*t182*t250*t61*t62*t63+2.345055152619033d-1*t131*t135*t 1586 @ 138*t143*t56*t61*t62+t263+t262+t261+t260+t259+t258+t257+t 1587 1 255+t254+t253+t252+t249+t248+t181+t180)+1.027265700137294 1588 2 d+0*t10*t12*t143*t60*t63*t66*t79-3.4242190004576467d-1*t1 1589 3 0*t12*t15*t150*t66*t79+3.4242190004576467d-1*t10*t12*t134 1590 4 *t15*t151*t60*t79-3.4242190004576467d-1*t10*t12*t15*t251* 1591 5 t60*t66+1.7121095002288234d-1*t10*t12*t14*(t263+t262+t261 1592 6 +t260+t259+t258+t257+t255+t254+t253+t252+t181+t180)*t66-3 1593 7 .4242190004576467d-1*t10*t12*t133*t143*t15*t66+3.42421900 1594 8 04576467d-1*t10*t12*t139*t14*t151*t176*t60+3.424219000457 1595 9 6467d-1*t10*t12*t134*t139*t143*t15*t60+t175+t173-1.712109 1596 : 5002288234d-1*t10*t12*t133*t134*t14*t151-1.71210950022882 1597 ; 34d-1*t10*t12*t134*t139*t14*t150)*t9*wght+2.4735567435575 1598 < 77d-2*t152*t9*wght+2.473556743557577d-2*t140*t9*wght+7.42 1599 = 0670230672731d-2*t1*t13*t152*t79*wght+7.420670230672731d- 1600 > 2*t1*t13*t140*t143*wght)-2.473556743557577d-2*t1*t140*t15 1601 ? 2*t171*t9*wght+1.4841340461345462d-1*t1*t143*t68*t79*t8*w 1602 @ ght+7.420670230672731d-2*t13*t68*t79*wght+7.4206702306727 1603 1 31d-2*t1*t13*t251*t68*wght+7.420670230672731d-2*t13*t143* 1604 2 t68*wght+Amat2(iq,D2_RA_RB) 1605 Amat2(iq,D2_RB_RB) = t81*(2.473556743557577d-2*t1*(1.5979688 1606 1 668802353d+0*t10*t143*t15*t60*t66*t82*t83-7.9898443344011 1607 2 76d-1*t10*t14*t150*t66*t82*t83+7.989844334401176d-1*t10*t 1608 3 134*t14*t151*t60*t82*t83-1.7121095002288234d-1*t10*t12*t1 1609 4 34*t14*t60*(1.0943590712222155d+0*t135*t136*t143*t61*t64* 1610 5 t82+5.471795356111078d-1*t136*t138*t148*t56*t61*t63*t82-1 1611 6 .1725275763095165d-1*t135*t269*t61*t62*t64+5.862637881547 1612 7 582d-1*t246*t264*t61*t62*t64-5.862637881547582d-2*t138*t2 1613 8 76*t56*t61*t62*t63-5.862637881547582d-2*t138*t273*t56*t61 1614 9 *t62*t63+1.7587913644642747d-1*t182*t250*t273*t61*t62*t63 1615 : +4.690110305238066d-1*t135*t138*t143*t148*t56*t61*t62+t27 1616 ; 9+t278+t277+t275+t274+t272+t271+t270+t249+t248+t181+t180) 1617 < +1.027265700137294d+0*t10*t12*t264*t60*t63*t66-3.42421900 1618 = 04576467d-1*t10*t12*t15*t269*t60*t66+1.7121095002288234d- 1619 > 1*t10*t12*t14*(t279+t278+t277+t275+t274+t272+t271+t270+t1 1620 ? 81+t180)*t66-6.848438000915293d-1*t10*t12*t143*t15*t150*t 1621 @ 66+3.4242190004576467d-1*t10*t12*t14*t151**2*t176*t60+6.8 1622 1 48438000915293d-1*t10*t12*t134*t143*t15*t151*t60+t175+t17 1623 2 3-3.4242190004576467d-1*t10*t12*t134*t14*t150*t151)*t9*wg 1624 3 ht+4.947113487115154d-2*t152*t9*wght+1.4841340461345462d- 1625 4 1*t1*t13*t143*t152*wght)-2.473556743557577d-2*t1*t152**2* 1626 5 t171*t9*wght+1.4841340461345462d-1*t1*t264*t68*t8*wght+7. 1627 6 420670230672731d-2*t1*t13*t269*t68*wght+1.484134046134546 1628 7 2d-1*t13*t143*t68*wght+Amat2(iq,D2_RB_RB) 1629 Cmat2(iq,D2_RA_GAA) = t288+Cmat2(iq,D2_RA_GAA) 1630 Cmat2(iq,D2_RA_GAB) = t81*(2.473556743557577d-2*t1*(-1.71210 1631 1 95002288234d-1*t10*t12*t134*t14*t60*(-4.690110305238066d- 1632 2 1*t10*t135*t62*t64*t79-2.345055152619033d-1*t10*t131*t138 1633 3 *t56*t62*t63+t296+t295+t294+t293)-1.1725275763095165d-1*t 1634 4 10*t135*t58*t62*t66*t79-6.848438000915293d-1*t12*t15*t60* 1635 5 t66*t79+3.4242190004576467d-1*t10*t12*t134*t15*t156*t60*t 1636 6 79+1.7121095002288234d-1*t10*t12*t14*(t295+t294+t293)*t66 1637 7 +3.4242190004576467d-1*t12*t133*t14*t66-5.862637881547582 1638 8 d-2*t10*t134*t139*t58*t62*t63+3.4242190004576467d-1*t10*t 1639 9 12*t139*t14*t156*t176*t60-3.4242190004576467d-1*t12*t134* 1640 : t139*t14*t60+t292+t291+t290-1.7121095002288234d-1*t10*t12 1641 ; *t133*t134*t14*t156)*t9*wght+7.420670230672731d-2*t1*t13* 1642 < t157*t79*wght+t289)-2.473556743557577d-2*t1*t140*t157*t17 1643 = 1*t9*wght+Cmat2(iq,D2_RA_GAB) 1644 Cmat2(iq,D2_RA_GBB) = t288+Cmat2(iq,D2_RA_GBB) 1645 Cmat2(iq,D2_RB_GAA) = t299+Cmat2(iq,D2_RB_GAA) 1646 Cmat2(iq,D2_RB_GAB) = t81*(2.473556743557577d-2*t1*(-1.17252 1647 1 75763095165d-1*t10*t135*t143*t58*t62*t66-6.84843800091529 1648 2 3d-1*t12*t143*t15*t60*t66+1.7121095002288234d-1*t10*t12*t 1649 3 14*(t301+t300+t294)*t66+3.4242190004576467d-1*t12*t14*t15 1650 4 0*t66-1.7121095002288234d-1*t10*t12*t134*t14*t60*(-4.6901 1651 5 10305238066d-1*t10*t135*t143*t62*t64-2.345055152619033d-1 1652 6 *t10*t138*t148*t56*t62*t63+t301+t300+t296+t294)-5.8626378 1653 7 81547582d-2*t10*t134*t151*t58*t62*t63+3.4242190004576467d 1654 8 -1*t10*t12*t14*t151*t156*t176*t60+3.4242190004576467d-1*t 1655 9 10*t12*t134*t143*t15*t156*t60-3.4242190004576467d-1*t12*t 1656 : 134*t14*t151*t60+t292+t291+t290-1.7121095002288234d-1*t10 1657 ; *t12*t134*t14*t150*t156)*t9*wght+7.420670230672731d-2*t1* 1658 < t13*t143*t157*wght+t289)-2.473556743557577d-2*t1*t152*t15 1659 = 7*t171*t9*wght+Cmat2(iq,D2_RB_GAB) 1660 Cmat2(iq,D2_RB_GBB) = t299+Cmat2(iq,D2_RB_GBB) 1661 Cmat2(iq,D2_GAA_GAA) = t304+Cmat2(iq,D2_GAA_GAA) 1662 Cmat2(iq,D2_GAA_GAB) = t305+Cmat2(iq,D2_GAA_GAB) 1663 Cmat2(iq,D2_GAA_GBB) = t304+Cmat2(iq,D2_GAA_GBB) 1664 Cmat2(iq,D2_GAB_GAB) = 2.473556743557577d-2*t1*(2.3450551526 1665 1 19033d-1*t58*t62*t63*t66-4.0149912053596d-2*t10*t134*t246 1666 2 *t247*t60*t64-1.1725275763095165d-1*t10*t134*t156*t58*t62 1667 3 *t63+3.4242190004576467d-1*t10*t12*t14*t156**2*t176*t60-6 1668 4 .848438000915293d-1*t12*t134*t14*t156*t60)*t81*t9*wght-2. 1669 5 473556743557577d-2*t1*t157**2*t171*t9*wght+Cmat2(iq,D2_GA 1670 6 B_GAB) 1671 Cmat2(iq,D2_GAB_GBB) = t305+Cmat2(iq,D2_GAB_GBB) 1672 Cmat2(iq,D2_GBB_GBB) = t304+Cmat2(iq,D2_GBB_GBB) 1673 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 1674 t1 = rhoa**1.1666666666666667d+0 1675 t2 = 1/t1**2.0d+0 1676 t3 = rhoa**3.333333333333333d-1 1677 t4 = t3**5.0d-1 1678 t5 = 1/t4 1679 t6 = 1/t3 1680 t7 = 6.203504908994001d-1*t6 1681 t8 = t7+2.935818660072219d+0*t5+1.29352d+1 1682 t9 = abs(t8) 1683 t10 = 1/t9 1684 t11 = abs(t6) 1685 t12 = log(6.203504908994001d-1*t10*t11) 1686 t13 = 7.876233178997433d-1*t5 1687 t14 = t13+1.0498d-1 1688 t15 = t14**2 1689 t16 = log(1.0d+0*t10*t15) 1690 t17 = 1.5752466357994865d+0*t5 1691 t18 = t17+3.72744d+0 1692 t19 = atan(6.15199081975908d+0/t18) 1693 t20 = t7+8.908571061768626d-1*t5+1.30045d+1 1694 t21 = abs(t20) 1695 t22 = 1/t21 1696 t23 = log(6.203504908994001d-1*t11*t22) 1697 t24 = t13+4.7584000000000004d-3 1698 t25 = t24**2 1699 t26 = log(1.0d+0*t22*t25) 1700 t27 = t17+1.13107d+0 1701 t28 = atan(7.123108917818117d+0/t27) 1702 t29 = t7+5.560951426165704d+0*t5+1.8057800000000002d+1 1703 t30 = abs(t29) 1704 t31 = 1/t30 1705 t32 = t13+3.25d-1 1706 t33 = t32**2 1707 t34 = t17+7.06042d+0 1708 t35 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(5. 1709 1 249139316978092d-2*atan(4.7309269095601136d+0/t34)+2.2478 1710 2 670955426108d-3*log(1.0d+0*t31*t33)+1.554535d-2*log(6.203 1711 3 504908994001d-1*t11*t31)-3.8783294878113006d-2*t19-9.6902 1712 4 27711544375d-4*t16-3.10907d-2*t12)+5.365091848883603d-3*t 1713 5 28+6.991732350764465d-6*t26+1.688686394038963d-2*t23)-5.3 1714 6 65091848883603d-3*t28-6.991732350764465d-6*t26-1.68868639 1715 7 4038963d-2*t23)+3.8783294878113006d-2*t19+9.6902277115443 1716 8 75d-4*t16+3.10907d-2*t12 1717 t36 = exp(-8.085523023512742d+1*t35) 1718 t37 = t36-1.0d+0 1719 t38 = 1/t37 1720 t39 = 2.7178044217479824d-1*gammaaa*t2*t38 1721 t40 = t39+1.0d+0 1722 t41 = gammaaa**2.0d+0 1723 t42 = 1/t1**4.0d+0 1724 t43 = 1/t37**2.0d+0 1725 t44 = 7.386460874872887d-2*t41*t42*t43+t39+1.0d+0 1726 t45 = 1/t44 1727 t46 = 2.7178044217479824d-1*gammaaa*t2*t40*t45+1.0d+0 1728 t47 = log(t46) 1729 t48 = 1/t46 1730 t49 = rhoa**1.6666666666666674d-1 1731 t50 = 1/t1**3.0d+0 1732 t51 = -6.341543650745293d-1*gammaaa*t38*t49*t50 1733 t52 = 1/t11 1734 t53 = -2.067834969664667d-1/rhoa**1.3333333333333333d+0 1735 t54 = 1/t4**3 1736 t55 = 1/rhoa**6.666666666666667d-1 1737 t56 = t53-4.8930311001203647d-1*t54*t55 1738 t57 = 1/t8 1739 t58 = 1/rhoa**1.6666666666666666d+0 1740 t59 = -2.067834969664667d-1*t10*t52*t58-6.203504908994001d-1 1741 1 *t10*t11*t56*t57 1742 t60 = 1/t18**2 1743 t61 = 3.784699104639999d+1*t60+1 1744 t62 = 1/t61 1745 t63 = 1/t15 1746 t64 = -1.0d+0*t10*t15*t56*t57-2.625411059665811d-1*t10*t14*t 1747 1 54*t55 1748 t65 = t53-1.4847618436281043d-1*t54*t55 1749 t66 = 1/t20 1750 t67 = -6.203504908994001d-1*t11*t22*t65*t66-2.06783496966466 1751 1 7d-1*t22*t52*t58 1752 t68 = 1/t27**2 1753 t69 = 5.07386806551d+1*t68+1 1754 t70 = 1/t69 1755 t71 = 1/t25 1756 t72 = -1.0d+0*t22*t25*t65*t66-2.625411059665811d-1*t22*t24*t 1757 1 54*t55 1758 t73 = t53-9.26825237694284d-1*t54*t55 1759 t74 = 1/t29 1760 t75 = -6.203504908994001d-1*t11*t31*t73*t74-2.06783496966466 1761 1 7d-1*t31*t52*t58 1762 t76 = 1/t34**2 1763 t77 = 2.238166942360001d+1*t76+1 1764 t78 = 1/t77 1765 t79 = 1/t33 1766 t80 = -1.0d+0*t31*t33*t73*t74-2.625411059665811d-1*t31*t32*t 1767 1 54*t55 1768 t81 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-9 1769 1 .690227711544375d-4*t63*t64*t9-5.011795824473985d-2*t52*t 1770 2 59*t9+2.2478670955426108d-3*t30*t79*t80+6.519760588836059 1771 3 d-2*t54*t55*t76*t78+2.5058979122369923d-2*t30*t52*t75-6.2 1772 4 64085709464389d-2*t54*t55*t60*t62)+6.991732350764465d-6*t 1773 5 21*t71*t72+1.0033305979455584d-2*t54*t55*t68*t70+2.722148 1774 6 880047894d-2*t21*t52*t67)-6.991732350764465d-6*t21*t71*t7 1775 7 2-1.0033305979455584d-2*t54*t55*t68*t70-2.722148880047894 1776 8 d-2*t21*t52*t67)+9.690227711544375d-4*t63*t64*t9+5.011795 1777 9 824473985d-2*t52*t59*t9+6.264085709464389d-2*t54*t55*t60* 1778 : t62 1779 t82 = 1/t37**2 1780 t83 = 2.1974870225448048d+1*gammaaa*t2*t36*t81*t82 1781 t84 = t83+t51 1782 t85 = 1/t44**2 1783 t86 = 1/t1**5.0d+0 1784 t87 = 1/t37**3.0d+0 1785 t88 = 1.194467989321216d+1*t36*t41*t42*t81*t87-3.44701507494 1786 1 0681d-1*t41*t43*t49*t86+t83+t51 1787 t89 = -2.7178044217479824d-1*gammaaa*t2*t40*t85*t88+2.717804 1788 1 4217479824d-1*gammaaa*t2*t45*t84-6.341543650745293d-1*gam 1789 2 maaa*t40*t45*t49*t50 1790 t90 = 1.4772921749745774d-1*gammaaa*t42*t43+2.71780442174798 1791 1 24d-1*t2*t38 1792 t91 = -2.7178044217479824d-1*gammaaa*t2*t40*t85*t90+7.386460 1793 1 874872885d-2*gammaaa*t38*t42*t45+2.7178044217479824d-1*t2 1794 2 *t40*t45 1795 t92 = 1/t46**2 1796 t93 = rhoa**3.333333333333335d-1 1797 t94 = 1/rhoa**8.333333333333333d-1 1798 t95 = t81**2 1799 t96 = exp(-1.6171046047025484d+2*t35) 1800 t97 = 3.553566382931297d+3*gammaaa*t2*t95*t96/t37**3 1801 t98 = 2.2195402777608525d+0*gammaaa*t38*t42*t93 1802 t99 = -1.0569239417908825d-1*gammaaa*t38*t50*t94 1803 t100 = -1.0254939438542422d+2*gammaaa*t36*t49*t50*t81*t82 1804 t101 = -1.7767831914656484d+3*gammaaa*t2*t36*t82*t95 1805 t102 = 1/t61**2 1806 t103 = 1/t18**5 1807 t104 = 1/rhoa**2.3333333333333334d+0 1808 t105 = 1/t18**3 1809 t106 = 1/rhoa**1.6666666666666669d+0 1810 t107 = t56**2 1811 t108 = 1/t8**2 1812 t109 = 2.7571132928862224d-1/rhoa**2.333333333333333d+0 1813 t110 = 1/t4**5 1814 t111 = 1/rhoa**1.3333333333333336d+0 1815 t112 = 3.262020733413577d-1*t106*t54+2.4465155500601823d-1*t 1816 1 110*t111+t109 1817 t113 = 1/rhoa**2.6666666666666666d+0 1818 t114 = 4.135669939329334d-1*t10*t52*t56*t57*t58-6.2035049089 1819 1 94001d-1*t10*t11*t112*t57+2.7571132928862224d-1*t10*t113* 1820 2 t52+1.2407009817988002d+0*t10*t107*t108*t11 1821 t115 = 1/rhoa**9.999999999999999d-1 1822 t116 = 1/t14**3 1823 t117 = 5.250822119331622d-1*t10*t14*t54*t55*t56*t57-1.0d+0*t 1824 1 10*t112*t15*t57+1.7502740397772074d-1*t10*t106*t14*t54+2. 1825 2 0d+0*t10*t107*t108*t15+1.3127055298329054d-1*t10*t110*t11 1826 3 1*t14+3.446391616107778d-2*t10*t104 1827 t118 = 1/t69**2 1828 t119 = 1/t27**5 1829 t120 = 1/t27**3 1830 t121 = t65**2 1831 t122 = 1/t20**2 1832 t123 = 9.89841229085403d-2*t106*t54+7.423809218140521d-2*t11 1833 1 0*t111+t109 1834 t124 = 4.135669939329334d-1*t22*t52*t58*t65*t66-6.2035049089 1835 1 94001d-1*t11*t123*t22*t66+2.7571132928862224d-1*t113*t22* 1836 2 t52+1.2407009817988002d+0*t11*t121*t122*t22 1837 t125 = 1/t24**3 1838 t126 = 5.250822119331622d-1*t22*t24*t54*t55*t65*t66-1.0d+0*t 1839 1 123*t22*t25*t66+1.7502740397772074d-1*t106*t22*t24*t54+2. 1840 2 0d+0*t121*t122*t22*t25+1.3127055298329054d-1*t110*t111*t2 1841 3 2*t24+3.446391616107778d-2*t104*t22 1842 t127 = t73**2 1843 t128 = 1/t29**2 1844 t129 = 6.178834917961894d-1*t106*t54+4.63412618847142d-1*t11 1845 1 0*t111+t109 1846 t130 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(- 1847 1 2.544083100456872d-4*t116*t54*t55*t64*t9-9.69022771154437 1848 2 5d-4*t117*t63*t9-1.670598608157995d-2*t115*t52*t59*t9-5.0 1849 3 11795824473985d-2*t114*t52*t9+2.2478670955426108d-3*t29*t 1850 4 31*t73*t79*t80+5.901575133296435d-4*t30*t54*t55*t80/t32** 1851 5 3-9.690227711544375d-4*t10*t56*t63*t64*t8-5.0117958244739 1852 6 85d-2*t10*t52*t56*t59*t8+2.2478670955426108d-3*t30*(5.250 1853 7 822119331622d-1*t31*t32*t54*t55*t73*t74-1.0d+0*t129*t31*t 1854 8 33*t74+1.7502740397772074d-1*t106*t31*t32*t54+2.0d+0*t127 1855 9 *t128*t31*t33+1.3127055298329054d-1*t110*t111*t31*t32+3.4 1856 : 46391616107778d-2*t104*t31)*t79-4.3465070592240396d-2*t10 1857 ; 6*t54*t76*t78-3.2598802944180294d-2*t110*t111*t76*t78+3.4 1858 < 234103112606934d-2*t104*t78/t34**3-7.662163788798045d-1*t 1859 = 104/(t34**5*t77**2)+2.5058979122369923d-2*t29*t31*t52*t73 1860 > *t75+8.352993040789976d-3*t115*t30*t52*t75+2.505897912236 1861 ? 9923d-2*t30*t52*(4.135669939329334d-1*t31*t52*t58*t73*t74 1862 @ -6.203504908994001d-1*t11*t129*t31*t74+2.7571132928862224 1863 1 d-1*t113*t31*t52+1.2407009817988002d+0*t11*t127*t128*t31) 1864 2 +4.176057139642926d-2*t106*t54*t60*t62+3.1320428547321943 1865 3 d-2*t110*t111*t60*t62-3.289159980064472d-2*t104*t105*t62+ 1866 4 1.2448480831567728d+0*t102*t103*t104)+6.991732350764465d- 1867 5 6*t20*t22*t65*t71*t72+1.8356171439920266d-6*t125*t21*t54* 1868 6 t55*t72+6.991732350764465d-6*t126*t21*t71-6.6888706529703 1869 7 9d-3*t106*t54*t68*t70-5.016652989727792d-3*t110*t111*t68* 1870 8 t70+5.26831049669476d-3*t104*t120*t70+2.722148880047894d- 1871 9 2*t20*t22*t52*t65*t67+9.073829600159646d-3*t115*t21*t52*t 1872 : 67+2.722148880047894d-2*t124*t21*t52-2.6730712388370664d- 1873 ; 1*t104*t118*t119)-6.991732350764465d-6*t20*t22*t65*t71*t7 1874 < 2-1.8356171439920266d-6*t125*t21*t54*t55*t72-6.9917323507 1875 = 64465d-6*t126*t21*t71+6.68887065297039d-3*t106*t54*t68*t7 1876 > 0+5.016652989727792d-3*t110*t111*t68*t70-5.26831049669476 1877 ? d-3*t104*t120*t70-2.722148880047894d-2*t20*t22*t52*t65*t6 1878 @ 7-9.073829600159646d-3*t115*t21*t52*t67-2.722148880047894 1879 1 d-2*t124*t21*t52+2.6730712388370664d-1*t104*t118*t119)+2. 1880 2 544083100456872d-4*t116*t54*t55*t64*t9+9.690227711544375d 1881 3 -4*t117*t63*t9+1.670598608157995d-2*t115*t52*t59*t9+5.011 1882 4 795824473985d-2*t114*t52*t9+9.690227711544375d-4*t10*t56* 1883 5 t63*t64*t8+5.011795824473985d-2*t10*t52*t56*t59*t8-4.1760 1884 6 57139642926d-2*t106*t54*t60*t62-3.1320428547321943d-2*t11 1885 7 0*t111*t60*t62+3.289159980064472d-2*t104*t105*t62-1.24484 1886 8 80831567728d+0*t102*t103*t104 1887 t131 = 2.1974870225448048d+1*gammaaa*t130*t2*t36*t82 1888 t132 = 1/t1**6.0d+0 1889 t133 = 1/t44**3 1890 t134 = -6.341543650745293d-1*t38*t49*t50 1891 t135 = 2.1974870225448048d+1*t2*t36*t81*t82 1892 fnc(iq) = 1.2367783717787881d-2*rhoa*t47*wght+fnc(iq) 1893 Amat(iq,D1_RA) = 1.2367783717787881d-2*rhoa*t48*t89*wght+1.2 1894 1 367783717787881d-2*t47*wght+Amat(iq,D1_RA) 1895 Cmat(iq,D1_GAA) = 1.2367783717787881d-2*rhoa*t48*t91*wght+Cm 1896 1 at(iq,D1_GAA) 1897 Amat2(iq,D2_RA_RA) = t48*(1.2367783717787881d-2*rhoa*(-2.717 1898 1 8044217479824d-1*gammaaa*t2*t40*t85*(t99+t98+t97+2.897369 1899 2 528551699d+3*t41*t42*t95*t96/t37**4.0d+0-9.65789842850566 1900 3 3d+2*t36*t41*t42*t87*t95-5.745025124901137d-2*t41*t43*t86 1901 4 *t94+2.0107587937153976d+0*t132*t41*t43*t93-1.11483679003 1902 5 31349d+2*t36*t41*t49*t81*t86*t87+1.194467989321216d+1*t13 1903 6 0*t36*t41*t42*t87+t131+t101+t100)+2.7178044217479824d-1*g 1904 7 ammaaa*t2*t45*(t99+t98+t97+t131+t101+t100)-1.056923941790 1905 8 8825d-1*gammaaa*t40*t45*t50*t94+2.2195402777608525d+0*gam 1906 9 maaa*t40*t42*t45*t93+5.435608843495965d-1*gammaaa*t133*t2 1907 : *t40*t88**2-5.435608843495965d-1*gammaaa*t2*t84*t85*t88+1 1908 ; .2683087301490586d+0*gammaaa*t40*t49*t50*t85*t88-1.268308 1909 < 7301490586d+0*gammaaa*t45*t49*t50*t84)*wght+2.47355674355 1910 = 75762d-2*t89*wght)-1.2367783717787881d-2*rhoa*t89**2*t92* 1911 > wght+Amat2(iq,D2_RA_RA) 1912 Cmat2(iq,D2_RA_GAA) = t48*(1.2367783717787881d-2*t91*wght+1. 1913 1 2367783717787881d-2*rhoa*(5.435608843495965d-1*gammaaa*t1 1914 2 33*t2*t40*t88*t90-2.7178044217479824d-1*gammaaa*t2*t84*t8 1915 3 5*t90+6.341543650745293d-1*gammaaa*t40*t49*t50*t85*t90-7. 1916 4 386460874872885d-2*gammaaa*t38*t42*t85*t88-2.717804421747 1917 5 9824d-1*t2*t40*t85*t88-2.7178044217479824d-1*gammaaa*t2*t 1918 6 40*t85*(2.388935978642432d+1*gammaaa*t36*t42*t81*t87-6.89 1919 7 4030149881362d-1*gammaaa*t43*t49*t86+t135+t134)-1.7235075 1920 8 374703399d-1*gammaaa*t38*t45*t49*t86+2.7178044217479824d- 1921 9 1*t2*t45*t84-6.341543650745293d-1*t40*t45*t49*t50+2.71780 1922 : 44217479824d-1*gammaaa*(t135+t134)*t2*t45)*wght)-1.236778 1923 ; 3717787881d-2*rhoa*t89*t91*t92*wght+Cmat2(iq,D2_RA_GAA) 1924 Cmat2(iq,D2_GAA_GAA) = -1.2367783717787881d-2*rhoa*t91**2*t9 1925 1 2*wght+1.2367783717787881d-2*rhoa*t48*(5.435608843495965d 1926 2 -1*gammaaa*t133*t2*t40*t90**2-1.477292174974577d-1*gammaa 1927 3 a*t38*t42*t85*t90-5.435608843495965d-1*t2*t40*t85*t90-4.0 1928 4 149912053596004d-2*gammaaa*t132*t40*t43*t85+1.47729217497 1929 5 4577d-1*t38*t42*t45)*wght+Cmat2(iq,D2_GAA_GAA) 1930 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 1931 t1 = rhob**1.1666666666666667d+0 1932 t2 = 1/t1**2.0d+0 1933 t3 = rhob**3.333333333333333d-1 1934 t4 = t3**5.0d-1 1935 t5 = 1/t4 1936 t6 = 1/t3 1937 t7 = 6.203504908994001d-1*t6 1938 t8 = t7+2.935818660072219d+0*t5+1.29352d+1 1939 t9 = abs(t8) 1940 t10 = 1/t9 1941 t11 = abs(t6) 1942 t12 = log(6.203504908994001d-1*t10*t11) 1943 t13 = 7.876233178997433d-1*t5 1944 t14 = t13+1.0498d-1 1945 t15 = t14**2 1946 t16 = log(1.0d+0*t10*t15) 1947 t17 = 1.5752466357994865d+0*t5 1948 t18 = t17+3.72744d+0 1949 t19 = atan(6.15199081975908d+0/t18) 1950 t20 = t7+8.908571061768626d-1*t5+1.30045d+1 1951 t21 = abs(t20) 1952 t22 = 1/t21 1953 t23 = log(6.203504908994001d-1*t11*t22) 1954 t24 = t13+4.7584000000000004d-3 1955 t25 = t24**2 1956 t26 = log(1.0d+0*t22*t25) 1957 t27 = t17+1.13107d+0 1958 t28 = atan(7.123108917818117d+0/t27) 1959 t29 = t7+5.560951426165704d+0*t5+1.8057800000000002d+1 1960 t30 = abs(t29) 1961 t31 = 1/t30 1962 t32 = t13+3.25d-1 1963 t33 = t32**2 1964 t34 = t17+7.06042d+0 1965 t35 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(5. 1966 1 249139316978092d-2*atan(4.7309269095601136d+0/t34)+2.2478 1967 2 670955426108d-3*log(1.0d+0*t31*t33)+1.554535d-2*log(6.203 1968 3 504908994001d-1*t11*t31)-3.8783294878113006d-2*t19-9.6902 1969 4 27711544375d-4*t16-3.10907d-2*t12)+5.365091848883603d-3*t 1970 5 28+6.991732350764465d-6*t26+1.688686394038963d-2*t23)-5.3 1971 6 65091848883603d-3*t28-6.991732350764465d-6*t26-1.68868639 1972 7 4038963d-2*t23)+3.8783294878113006d-2*t19+9.6902277115443 1973 8 75d-4*t16+3.10907d-2*t12 1974 t36 = exp(-8.085523023512742d+1*t35) 1975 t37 = t36-1.0d+0 1976 t38 = 1/t37 1977 t39 = 2.7178044217479824d-1*gammabb*t2*t38 1978 t40 = t39+1.0d+0 1979 t41 = gammabb**2.0d+0 1980 t42 = 1/t1**4.0d+0 1981 t43 = 1/t37**2.0d+0 1982 t44 = 7.386460874872887d-2*t41*t42*t43+t39+1.0d+0 1983 t45 = 1/t44 1984 t46 = 2.7178044217479824d-1*gammabb*t2*t40*t45+1.0d+0 1985 t47 = log(t46) 1986 t48 = 1/t46 1987 t49 = rhob**1.6666666666666674d-1 1988 t50 = 1/t1**3.0d+0 1989 t51 = -6.341543650745293d-1*gammabb*t38*t49*t50 1990 t52 = 1/t11 1991 t53 = -2.067834969664667d-1/rhob**1.3333333333333333d+0 1992 t54 = 1/t4**3 1993 t55 = 1/rhob**6.666666666666667d-1 1994 t56 = t53-4.8930311001203647d-1*t54*t55 1995 t57 = 1/t8 1996 t58 = 1/rhob**1.6666666666666666d+0 1997 t59 = -2.067834969664667d-1*t10*t52*t58-6.203504908994001d-1 1998 1 *t10*t11*t56*t57 1999 t60 = 1/t18**2 2000 t61 = 3.784699104639999d+1*t60+1 2001 t62 = 1/t61 2002 t63 = 1/t15 2003 t64 = -1.0d+0*t10*t15*t56*t57-2.625411059665811d-1*t10*t14*t 2004 1 54*t55 2005 t65 = t53-1.4847618436281043d-1*t54*t55 2006 t66 = 1/t20 2007 t67 = -6.203504908994001d-1*t11*t22*t65*t66-2.06783496966466 2008 1 7d-1*t22*t52*t58 2009 t68 = 1/t27**2 2010 t69 = 5.07386806551d+1*t68+1 2011 t70 = 1/t69 2012 t71 = 1/t25 2013 t72 = -1.0d+0*t22*t25*t65*t66-2.625411059665811d-1*t22*t24*t 2014 1 54*t55 2015 t73 = t53-9.26825237694284d-1*t54*t55 2016 t74 = 1/t29 2017 t75 = -6.203504908994001d-1*t11*t31*t73*t74-2.06783496966466 2018 1 7d-1*t31*t52*t58 2019 t76 = 1/t34**2 2020 t77 = 2.238166942360001d+1*t76+1 2021 t78 = 1/t77 2022 t79 = 1/t33 2023 t80 = -1.0d+0*t31*t33*t73*t74-2.625411059665811d-1*t31*t32*t 2024 1 54*t55 2025 t81 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-9 2026 1 .690227711544375d-4*t63*t64*t9-5.011795824473985d-2*t52*t 2027 2 59*t9+2.2478670955426108d-3*t30*t79*t80+6.519760588836059 2028 3 d-2*t54*t55*t76*t78+2.5058979122369923d-2*t30*t52*t75-6.2 2029 4 64085709464389d-2*t54*t55*t60*t62)+6.991732350764465d-6*t 2030 5 21*t71*t72+1.0033305979455584d-2*t54*t55*t68*t70+2.722148 2031 6 880047894d-2*t21*t52*t67)-6.991732350764465d-6*t21*t71*t7 2032 7 2-1.0033305979455584d-2*t54*t55*t68*t70-2.722148880047894 2033 8 d-2*t21*t52*t67)+9.690227711544375d-4*t63*t64*t9+5.011795 2034 9 824473985d-2*t52*t59*t9+6.264085709464389d-2*t54*t55*t60* 2035 : t62 2036 t82 = 1/t37**2 2037 t83 = 2.1974870225448048d+1*gammabb*t2*t36*t81*t82 2038 t84 = t83+t51 2039 t85 = 1/t44**2 2040 t86 = 1/t1**5.0d+0 2041 t87 = 1/t37**3.0d+0 2042 t88 = 1.194467989321216d+1*t36*t41*t42*t81*t87-3.44701507494 2043 1 0681d-1*t41*t43*t49*t86+t83+t51 2044 t89 = -2.7178044217479824d-1*gammabb*t2*t40*t85*t88+2.717804 2045 1 4217479824d-1*gammabb*t2*t45*t84-6.341543650745293d-1*gam 2046 2 mabb*t40*t45*t49*t50 2047 t90 = 1.4772921749745774d-1*gammabb*t42*t43+2.71780442174798 2048 1 24d-1*t2*t38 2049 t91 = -2.7178044217479824d-1*gammabb*t2*t40*t85*t90+7.386460 2050 1 874872885d-2*gammabb*t38*t42*t45+2.7178044217479824d-1*t2 2051 2 *t40*t45 2052 t92 = 1/t46**2 2053 t93 = rhob**3.333333333333335d-1 2054 t94 = 1/rhob**8.333333333333333d-1 2055 t95 = t81**2 2056 t96 = exp(-1.6171046047025484d+2*t35) 2057 t97 = 3.553566382931297d+3*gammabb*t2*t95*t96/t37**3 2058 t98 = 2.2195402777608525d+0*gammabb*t38*t42*t93 2059 t99 = -1.0569239417908825d-1*gammabb*t38*t50*t94 2060 t100 = -1.0254939438542422d+2*gammabb*t36*t49*t50*t81*t82 2061 t101 = -1.7767831914656484d+3*gammabb*t2*t36*t82*t95 2062 t102 = 1/t61**2 2063 t103 = 1/t18**5 2064 t104 = 1/rhob**2.3333333333333334d+0 2065 t105 = 1/t18**3 2066 t106 = 1/rhob**1.6666666666666669d+0 2067 t107 = t56**2 2068 t108 = 1/t8**2 2069 t109 = 2.7571132928862224d-1/rhob**2.333333333333333d+0 2070 t110 = 1/t4**5 2071 t111 = 1/rhob**1.3333333333333336d+0 2072 t112 = 3.262020733413577d-1*t106*t54+2.4465155500601823d-1*t 2073 1 110*t111+t109 2074 t113 = 1/rhob**2.6666666666666666d+0 2075 t114 = 4.135669939329334d-1*t10*t52*t56*t57*t58-6.2035049089 2076 1 94001d-1*t10*t11*t112*t57+2.7571132928862224d-1*t10*t113* 2077 2 t52+1.2407009817988002d+0*t10*t107*t108*t11 2078 t115 = 1/rhob**9.999999999999999d-1 2079 t116 = 1/t14**3 2080 t117 = 5.250822119331622d-1*t10*t14*t54*t55*t56*t57-1.0d+0*t 2081 1 10*t112*t15*t57+1.7502740397772074d-1*t10*t106*t14*t54+2. 2082 2 0d+0*t10*t107*t108*t15+1.3127055298329054d-1*t10*t110*t11 2083 3 1*t14+3.446391616107778d-2*t10*t104 2084 t118 = 1/t69**2 2085 t119 = 1/t27**5 2086 t120 = 1/t27**3 2087 t121 = t65**2 2088 t122 = 1/t20**2 2089 t123 = 9.89841229085403d-2*t106*t54+7.423809218140521d-2*t11 2090 1 0*t111+t109 2091 t124 = 4.135669939329334d-1*t22*t52*t58*t65*t66-6.2035049089 2092 1 94001d-1*t11*t123*t22*t66+2.7571132928862224d-1*t113*t22* 2093 2 t52+1.2407009817988002d+0*t11*t121*t122*t22 2094 t125 = 1/t24**3 2095 t126 = 5.250822119331622d-1*t22*t24*t54*t55*t65*t66-1.0d+0*t 2096 1 123*t22*t25*t66+1.7502740397772074d-1*t106*t22*t24*t54+2. 2097 2 0d+0*t121*t122*t22*t25+1.3127055298329054d-1*t110*t111*t2 2098 3 2*t24+3.446391616107778d-2*t104*t22 2099 t127 = t73**2 2100 t128 = 1/t29**2 2101 t129 = 6.178834917961894d-1*t106*t54+4.63412618847142d-1*t11 2102 1 0*t111+t109 2103 t130 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(- 2104 1 2.544083100456872d-4*t116*t54*t55*t64*t9-9.69022771154437 2105 2 5d-4*t117*t63*t9-1.670598608157995d-2*t115*t52*t59*t9-5.0 2106 3 11795824473985d-2*t114*t52*t9+2.2478670955426108d-3*t29*t 2107 4 31*t73*t79*t80+5.901575133296435d-4*t30*t54*t55*t80/t32** 2108 5 3-9.690227711544375d-4*t10*t56*t63*t64*t8-5.0117958244739 2109 6 85d-2*t10*t52*t56*t59*t8+2.2478670955426108d-3*t30*(5.250 2110 7 822119331622d-1*t31*t32*t54*t55*t73*t74-1.0d+0*t129*t31*t 2111 8 33*t74+1.7502740397772074d-1*t106*t31*t32*t54+2.0d+0*t127 2112 9 *t128*t31*t33+1.3127055298329054d-1*t110*t111*t31*t32+3.4 2113 : 46391616107778d-2*t104*t31)*t79-4.3465070592240396d-2*t10 2114 ; 6*t54*t76*t78-3.2598802944180294d-2*t110*t111*t76*t78+3.4 2115 < 234103112606934d-2*t104*t78/t34**3-7.662163788798045d-1*t 2116 = 104/(t34**5*t77**2)+2.5058979122369923d-2*t29*t31*t52*t73 2117 > *t75+8.352993040789976d-3*t115*t30*t52*t75+2.505897912236 2118 ? 9923d-2*t30*t52*(4.135669939329334d-1*t31*t52*t58*t73*t74 2119 @ -6.203504908994001d-1*t11*t129*t31*t74+2.7571132928862224 2120 1 d-1*t113*t31*t52+1.2407009817988002d+0*t11*t127*t128*t31) 2121 2 +4.176057139642926d-2*t106*t54*t60*t62+3.1320428547321943 2122 3 d-2*t110*t111*t60*t62-3.289159980064472d-2*t104*t105*t62+ 2123 4 1.2448480831567728d+0*t102*t103*t104)+6.991732350764465d- 2124 5 6*t20*t22*t65*t71*t72+1.8356171439920266d-6*t125*t21*t54* 2125 6 t55*t72+6.991732350764465d-6*t126*t21*t71-6.6888706529703 2126 7 9d-3*t106*t54*t68*t70-5.016652989727792d-3*t110*t111*t68* 2127 8 t70+5.26831049669476d-3*t104*t120*t70+2.722148880047894d- 2128 9 2*t20*t22*t52*t65*t67+9.073829600159646d-3*t115*t21*t52*t 2129 : 67+2.722148880047894d-2*t124*t21*t52-2.6730712388370664d- 2130 ; 1*t104*t118*t119)-6.991732350764465d-6*t20*t22*t65*t71*t7 2131 < 2-1.8356171439920266d-6*t125*t21*t54*t55*t72-6.9917323507 2132 = 64465d-6*t126*t21*t71+6.68887065297039d-3*t106*t54*t68*t7 2133 > 0+5.016652989727792d-3*t110*t111*t68*t70-5.26831049669476 2134 ? d-3*t104*t120*t70-2.722148880047894d-2*t20*t22*t52*t65*t6 2135 @ 7-9.073829600159646d-3*t115*t21*t52*t67-2.722148880047894 2136 1 d-2*t124*t21*t52+2.6730712388370664d-1*t104*t118*t119)+2. 2137 2 544083100456872d-4*t116*t54*t55*t64*t9+9.690227711544375d 2138 3 -4*t117*t63*t9+1.670598608157995d-2*t115*t52*t59*t9+5.011 2139 4 795824473985d-2*t114*t52*t9+9.690227711544375d-4*t10*t56* 2140 5 t63*t64*t8+5.011795824473985d-2*t10*t52*t56*t59*t8-4.1760 2141 6 57139642926d-2*t106*t54*t60*t62-3.1320428547321943d-2*t11 2142 7 0*t111*t60*t62+3.289159980064472d-2*t104*t105*t62-1.24484 2143 8 80831567728d+0*t102*t103*t104 2144 t131 = 2.1974870225448048d+1*gammabb*t130*t2*t36*t82 2145 t132 = 1/t1**6.0d+0 2146 t133 = 1/t44**3 2147 t134 = -6.341543650745293d-1*t38*t49*t50 2148 t135 = 2.1974870225448048d+1*t2*t36*t81*t82 2149 fnc(iq) = 1.2367783717787881d-2*rhob*t47*wght+fnc(iq) 2150 Amat(iq,D1_RB) = 1.2367783717787881d-2*rhob*t48*t89*wght+1.2 2151 1 367783717787881d-2*t47*wght+Amat(iq,D1_RB) 2152 Cmat(iq,D1_GBB) = 1.2367783717787881d-2*rhob*t48*t91*wght+Cm 2153 1 at(iq,D1_GBB) 2154 Amat2(iq,D2_RB_RB) = t48*(1.2367783717787881d-2*rhob*(-2.717 2155 1 8044217479824d-1*gammabb*t2*t40*t85*(t99+t98+t97+2.897369 2156 2 528551699d+3*t41*t42*t95*t96/t37**4.0d+0-9.65789842850566 2157 3 3d+2*t36*t41*t42*t87*t95-5.745025124901137d-2*t41*t43*t86 2158 4 *t94+2.0107587937153976d+0*t132*t41*t43*t93-1.11483679003 2159 5 31349d+2*t36*t41*t49*t81*t86*t87+1.194467989321216d+1*t13 2160 6 0*t36*t41*t42*t87+t131+t101+t100)+2.7178044217479824d-1*g 2161 7 ammabb*t2*t45*(t99+t98+t97+t131+t101+t100)-1.056923941790 2162 8 8825d-1*gammabb*t40*t45*t50*t94+2.2195402777608525d+0*gam 2163 9 mabb*t40*t42*t45*t93+5.435608843495965d-1*gammabb*t133*t2 2164 : *t40*t88**2-5.435608843495965d-1*gammabb*t2*t84*t85*t88+1 2165 ; .2683087301490586d+0*gammabb*t40*t49*t50*t85*t88-1.268308 2166 < 7301490586d+0*gammabb*t45*t49*t50*t84)*wght+2.47355674355 2167 = 75762d-2*t89*wght)-1.2367783717787881d-2*rhob*t89**2*t92* 2168 > wght+Amat2(iq,D2_RB_RB) 2169 Cmat2(iq,D2_RB_GBB) = t48*(1.2367783717787881d-2*t91*wght+1. 2170 1 2367783717787881d-2*rhob*(5.435608843495965d-1*gammabb*t1 2171 2 33*t2*t40*t88*t90-2.7178044217479824d-1*gammabb*t2*t84*t8 2172 3 5*t90+6.341543650745293d-1*gammabb*t40*t49*t50*t85*t90-7. 2173 4 386460874872885d-2*gammabb*t38*t42*t85*t88-2.717804421747 2174 5 9824d-1*t2*t40*t85*t88-2.7178044217479824d-1*gammabb*t2*t 2175 6 40*t85*(2.388935978642432d+1*gammabb*t36*t42*t81*t87-6.89 2176 7 4030149881362d-1*gammabb*t43*t49*t86+t135+t134)-1.7235075 2177 8 374703399d-1*gammabb*t38*t45*t49*t86+2.7178044217479824d- 2178 9 1*t2*t45*t84-6.341543650745293d-1*t40*t45*t49*t50+2.71780 2179 : 44217479824d-1*gammabb*(t135+t134)*t2*t45)*wght)-1.236778 2180 ; 3717787881d-2*rhob*t89*t91*t92*wght+Cmat2(iq,D2_RB_GBB) 2181 Cmat2(iq,D2_GBB_GBB) = -1.2367783717787881d-2*rhob*t91**2*t9 2182 1 2*wght+1.2367783717787881d-2*rhob*t48*(5.435608843495965d 2183 2 -1*gammabb*t133*t2*t40*t90**2-1.477292174974577d-1*gammab 2184 3 b*t38*t42*t85*t90-5.435608843495965d-1*t2*t40*t85*t90-4.0 2185 4 149912053596004d-2*gammabb*t132*t40*t43*t85+1.47729217497 2186 5 4577d-1*t38*t42*t45)*wght+Cmat2(iq,D2_GBB_GBB) 2187 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 2188 endif ! ipol.eq.1 2189 enddo ! iq 2190 end 2191C> 2192C> \brief Evaluate the nwxcm_c_p91_vwn5 functional [1] 2193C> 2194C> \f{eqnarray*}{ 2195C> {\it t_1} &=& \rho_\beta+\rho_\alpha\\\\ 2196C> {\it t_2} &=& \rho_\alpha-\rho_\beta\\\\ 2197C> {\it t_3} &=& {{1}\over{{\it t_1}}}\\\\ 2198C> {\it t_4} &=& 1.0-{\it t_2}\,{\it t_3}\\\\ 2199C> {\it t_5} &=& {\it t_2}\,{\it t_3}+1.0\\\\ 2200C> {\it t_6} &=& 0.5\,{\it t_5}^{{{2}\over{3}}}+0.5\,{ 2201C> \it t_4}^{{{2}\over{3}}}\\\\ 2202C> {\it t_7} &=& {\it t_6}^{3.0}\\\\ 2203C> {\it t_8} &=& {\it t_1}^{1.166666666666667}\\\\ 2204C> {\it t_9} &=& {{1}\over{{\it t_8}^{2.0}}}\\\\ 2205C> {\it t_{10}} &=& {{1}\over{{\it t_6}^{2.0}}}\\\\ 2206C> {\it t_{11}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 2207C> +\sigma_{\alpha\alpha}\\\\ 2208C> {\it t_{12}} &=& {\it t_1}^{0.3333333333333333}\\\\ 2209C> {\it t_{13}} &=& {{1}\over{\sqrt{{\it t_{12}}}}}\\\\ 2210C> {\it t_{14}} &=& 1.575246635799487\,{\it t_{13}}\\\\ 2211C> {\it t_{15}} &=& \arctan \left({{6.15199081975908}\over{{ 2212C> \it t_{14}}+3.72744}}\right)\\\\ 2213C> {\it t_{16}} &=& 0.7876233178997433\,{\it t_{13}}\\\\ 2214C> {\it t_{17}} &=& {{1}\over{{\it t_{12}}}}\\\\ 2215C> {\it t_{18}} &=& 0.6203504908994001\,{\it t_{17}}\\\\ 2216C> {\it t_{19}} &=& {{1}\over{\left| 2.935818660072219\,{\it t_{13}} 2217C> +{\it t_{18}}+12.9352\right| }}\\\\ 2218C> {\it t_{20}} &=& \log \left(1.0\,\left({\it t_{16}} 2219C> +0.10498\right)^2\,{\it t_{19}}\right)\\\\ 2220C> {\it t_{21}} &=& \left| {\it t_{17}}\right| \\\\ 2221C> {\it t_{22}} &=& \log \left(0.6203504908994001\,{\it t_{21}} 2222C> \,{\it t_{19}}\right)\\\\ 2223C> {\it t_{23}} &=& \arctan \left({{7.123108917818118}\over{{ 2224C> \it t_{14}}+1.13107}}\right)\\\\ 2225C> {\it t_{24}} &=& {{1}\over{\left| 0.8908571061768626\,{ 2226C> \it t_{13}}+{\it t_{18}}+13.0045\right| }}\\\\ 2227C> {\it t_{25}} &=& \log \left(1.0\,\left({\it t_{16}} 2228C> +0.0047584\right)^2\,{\it t_{24}}\right)\\\\ 2229C> {\it t_{26}} &=& \log \left(0.6203504908994001\,{\it t_{21}} 2230C> \,{\it t_{24}}\right)\\\\ 2231C> {\it t_{27}} &=& {{1}\over{\left| 5.560951426165705\,{\it t_{13}} 2232C> +{\it t_{18}}+18.0578\right| }}\\\\ 2233C> {\it t_{28}} &=& {{1}\over{e^{{{40.4276151175637\,\left(1.125 2234C> \,\left({\it t_5}^{{{4}\over{3}}}+{\it t_4}^{{{4}\over{3}}} 2235C> -2.0\right)\,\left({{{\it t_2}^4\,\left(1.709920934161365 2236C> \,\left(0.01554535\,\log \left(0.6203504908994001\,{ 2237C> \it t_{21}}\,{\it t_{27}}\right)+0.002247867095542611 2238C> \,\log \left(1.0\,\left({\it t_{16}}+0.325\right)^2\,{ 2239C> \it t_{27}}\right)-0.0310907\,{\it t_{22}} 2240C> -9.690227711544375 \times 10^{-4}\,{\it t_{20}} 2241C> +0.05249139316978092\,\arctan \left({{4.730926909560114} 2242C> \over{{\it t_{14}}+7.06042}}\right)-0.03878329487811301\,{ 2243C> \it t_{15}}\right)+0.01688686394038963\,{\it t_{26}} 2244C> +6.991732350764465 \times 10^{-6}\,{\it t_{25}} 2245C> +0.005365091848883603\,{\it t_{23}}\right)}\over{{\it t_1}^4}} 2246C> -0.01688686394038963\,{\it t_{26}}-6.991732350764465 \times 10^{ 2247C> -6}\,{\it t_{25}}-0.005365091848883603\,{\it t_{23}}\right) 2248C> +0.0310907\,{\it t_{22}}+9.690227711544375 \times 10^{-4}\,{ 2249C> \it t_{20}}+0.03878329487811301\,{\it t_{15}}\right)}\over{{ 2250C> \it t_7}}}}}}-1.0\\\\ 2251C> {\it t_{29}} &=& {{0.1712109500228823\,{\it t_9}\,{\it t_{10}} 2252C> \,{\it t_{11}}}\over{{\it t_{28}}}}\\\\ 2253C> {\it t_{30}} &=& \rho_s^{1.166666666666667}\\\\ 2254C> {\it t_{31}} &=& {{1}\over{{\it t_{30}}^{2.0}}}\\\\ 2255C> {\it t_{32}} &=& \rho_s^{0.3333333333333333}\\\\ 2256C> {\it t_{33}} &=& {{1}\over{\sqrt{{\it t_{32}}}}}\\\\ 2257C> {\it t_{34}} &=& {{1}\over{{\it t_{32}}}}\\\\ 2258C> {\it t_{35}} &=& 0.6203504908994001\,{\it t_{34}}\\\\ 2259C> {\it t_{36}} &=& {{1}\over{\left| {\it t_{35}} 2260C> +2.935818660072219\,{\it t_{33}}+12.9352\right| }}\\\\ 2261C> {\it t_{37}} &=& \left| {\it t_{34}}\right| \\\\ 2262C> {\it t_{38}} &=& \log \left(0.6203504908994001\,{\it t_{36}} 2263C> \,{\it t_{37}}\right)\\\\ 2264C> {\it t_{39}} &=& 0.7876233178997433\,{\it t_{33}}\\\\ 2265C> {\it t_{40}} &=& \log \left(1.0\,{\it t_{36}}\,\left({\it t_{39}} 2266C> +0.10498\right)^2\right)\\\\ 2267C> {\it t_{41}} &=& 1.575246635799487\,{\it t_{33}}\\\\ 2268C> {\it t_{42}} &=& \arctan \left({{6.15199081975908}\over{{ 2269C> \it t_{41}}+3.72744}}\right)\\\\ 2270C> {\it t_{43}} &=& {{1}\over{\left| {\it t_{35}} 2271C> +0.8908571061768626\,{\it t_{33}}+13.0045\right| }}\\\\ 2272C> {\it t_{44}} &=& \log \left(0.6203504908994001\,{\it t_{43}} 2273C> \,{\it t_{37}}\right)\\\\ 2274C> {\it t_{45}} &=& \log \left(1.0\,{\it t_{43}}\,\left({\it t_{39}} 2275C> +0.0047584\right)^2\right)\\\\ 2276C> {\it t_{46}} &=& \arctan \left({{7.123108917818118}\over{{ 2277C> \it t_{41}}+1.13107}}\right)\\\\ 2278C> {\it t_{47}} &=& {{1}\over{\left| {\it t_{35}} 2279C> +5.560951426165705\,{\it t_{33}}+18.0578\right| }}\\\\ 2280C> {\it t_{48}} &=& {{1}\over{e^{80.85523023512742\, 2281C> \left(0.5848223622634643\,\left(1.0\,\left(1.709920934161365 2282C> \,\left(0.05249139316978092\,\arctan 2283C> \left({{4.730926909560114}\over{{\it t_{41}}+7.06042}}\right) 2284C> -0.03878329487811301\,{\it t_{42}}+0.002247867095542611 2285C> \,\log \left(1.0\,{\it t_{47}}\,\left({\it t_{39}} 2286C> +0.325\right)^2\right)-9.690227711544375 \times 10^{-4}\,{ 2287C> \it t_{40}}+0.01554535\,\log \left(0.6203504908994001\,{ 2288C> \it t_{47}}\,{\it t_{37}}\right)-0.0310907\,{\it t_{38}}\right) 2289C> +0.005365091848883603\,{\it t_{46}} 2290C> +6.991732350764465 \times 10^{-6}\,{\it t_{45}} 2291C> +0.01688686394038963\,{\it t_{44}}\right)-0.005365091848883603 2292C> \,{\it t_{46}}-6.991732350764465 \times 10^{-6}\,{\it t_{45}} 2293C> -0.01688686394038963\,{\it t_{44}}\right)+0.03878329487811301 2294C> \,{\it t_{42}}+9.690227711544375 \times 10^{-4}\,{\it t_{40}} 2295C> +0.0310907\,{\it t_{38}}\right)}}}-1.0\\\\ 2296C> {\it t_{49}} &=& {{0.2717804421747982\,{\it t_{31}}\, 2297C> \sigma_{ss}}\over{{\it t_{48}}}}\\\\ 2298C> f &=& 0.02473556743557577\,{\it t_1}\,{\it t_7}\,\log 2299C> \left({{0.1712109500228823\,{\it t_9}\,{\it t_{10}}\,{ 2300C> \it t_{11}}\,\left({\it t_{29}}+1.0\right)} 2301C> \over{{{0.02931318940773791\,{\it t_{11}}^{2.0}}\over{{ 2302C> \it t_8}^{4.0}\,{\it t_6}^{4.0}\,{\it t_{28}}^{2.0}}}+{ 2303C> \it t_{29}}+1.0}}+1.0\right)\\\\ 2304C> g &=& 0\\\\ 2305C> G &=& 0.01236778371778788\,\rho_s\,\log 2306C> \left({{0.2717804421747982\,{\it t_{31}}\,\sigma_{ss}\, 2307C> \left({\it t_{49}}+1.0\right)}\over{{{0.07386460874872887 2308C> \,\sigma_{ss}^{2.0}}\over{{\it t_{30}}^{4.0}\,{ 2309C> \it t_{48}}^{2.0}}}+{\it t_{49}}+1.0}}+1.0\right)\\\\ 2310C> \f} 2311C> 2312C> Code generated with Maxima 5.34.0 [2] 2313C> driven by autoxc [3]. 2314C> 2315C> ### References ### 2316C> 2317C> [1] unpublished , DOI: 2318C> <a href="https://doi.org/unpublished "> 2319C> unpublished </a> 2320C> 2321C> [2] Maxima, a computer algebra system, 2322C> <a href="http://maxima.sourceforge.net/"> 2323C> http://maxima.sourceforge.net/</a> 2324C> 2325C> [3] autoxc, revision 27097 2015-05-08 2326C> 2327 subroutine nwxcm_c_p91_vwn5_d3(param,tol_rho,ipol,nq,wght, 2328 +rho,rgamma,fnc,Amat,Amat2,Amat3, 2329 +Cmat,Cmat2,Cmat3) 2330c $Id: $ 2331#ifdef NWXC_QUAD_PREC 2332 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 2333 integer, parameter :: rk=selected_real_kind(30) 2334#else 2335 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 2336 integer, parameter :: rk=selected_real_kind(15) 2337#endif 2338#include "nwxc_param.fh" 2339 double precision param(*) !< [Input] Parameters of functional 2340 double precision tol_rho !< [Input] The lower limit on the density 2341 integer ipol !< [Input] The number of spin channels 2342 integer nq !< [Input] The number of points 2343 double precision wght !< [Input] The weight of the functional 2344 double precision rho(nq,*) !< [Input] The density 2345 double precision rgamma(nq,*) !< [Input] The norm of the density 2346 !< gradients 2347 double precision fnc(nq) !< [Output] The value of the functional 2348c 2349c Sampling Matrices for the XC Kernel 2350c 2351 double precision Amat(nq,*) !< [Output] The derivative wrt rho 2352 double precision Cmat(nq,*) !< [Output] The derivative wrt rgamma 2353c 2354c Sampling Matrices for the XC Kernel 2355c 2356 double precision Amat2(nq,*) !< [Output] The 2nd derivative wrt rho 2357 double precision Cmat2(nq,*) !< [Output] The 2nd derivative wrt rgamma 2358 !< and possibly rho 2359c 2360c Sampling Matrices for the XC Kernel 2361c 2362 double precision Amat3(nq,*) !< [Output] The 3rd derivative wrt rho 2363 double precision Cmat3(nq,*) !< [Output] The 3rd derivative wrt rgamma 2364 !< and possibly rho 2365 integer iq 2366 double precision tmp 2367 double precision rhoa,rhob 2368 double precision gammaaa,gammaab,gammabb 2369 double precision taua,taub 2370 double precision nwxcm_heaviside 2371 external nwxcm_heaviside 2372CDIR$ NOVECTOR 2373 do iq = 1, nq 2374 if (ipol.eq.1) then 2375 rhoa = 0.5d0*rho(iq,R_T) 2376 gammaaa = 0.25d0*rgamma(iq,G_TT) 2377 if (rhoa.gt.tol_rho) then 2378 t1 = rhoa**1.1666666666666667d+0 2379 t2 = 1/t1**2.0d+0 2380 t3 = rhoa**3.333333333333333d-1 2381 t4 = t3**5.0d-1 2382 t5 = 1/t4 2383 t6 = 1/t3 2384 t7 = 4.9237251092134837d-1*t6 2385 t8 = 1/abs(t7+2.615517080950829d+0*t5+1.29352d+1) 2386 t9 = abs(t6) 2387 t10 = exp(-4.0427615117563703d+1*(3.10907d-2*log(4.923725109 2388 1 2134837d-1*t8*t9)+9.690227711544375d-4*log(1.0d+0*(7.0169 2389 2 26042943223d-1*t5+1.0498d-1)**2*t8)+3.8783294878113006d-2 2390 3 *atan(6.15199081975908d+0/(1.4033852085886447d+0*t5+3.727 2391 4 44d+0))))-1.0d+0 2392 t11 = 1.358902210873991d-1*gammaaa*t2/t10 2393 t12 = gammaaa**2.0d+0 2394 t13 = 1/t1**4.0d+0 2395 t14 = t7+2.615517080950828d+0*t5+1.29352d+1 2396 t15 = abs(t14) 2397 t16 = 1/t15 2398 t17 = 7.016926042943222d-1*t5 2399 t18 = t17+1.0498d-1 2400 t19 = t18**2 2401 t20 = 1.4033852085886445d+0*t5 2402 t21 = t20+3.72744d+0 2403 t22 = 3.10907d-2*log(4.9237251092134837d-1*t16*t9)+3.8783294 2404 1 878113006d-2*atan(6.15199081975908d+0/t21)+9.690227711544 2405 2 375d-4*log(1.0d+0*t16*t19) 2406 t23 = exp(-4.0427615117563703d+1*t22) 2407 t24 = t23-1.0d+0 2408 t25 = 1/t24 2409 t26 = 1.3589022108739912d-1*gammaaa*t2*t25 2410 t27 = t26+1.0d+0 2411 t28 = 1/t24**2.0d+0 2412 t29 = 1.846615218718221d-2*t12*t13*t28+t26+1.0d+0 2413 t30 = 1/t29 2414 t31 = 1.3589022108739912d-1*gammaaa*t2*t27*t30+1.0d+0 2415 t32 = 1/t31 2416 t33 = rhoa**1.6666666666666674d-1 2417 t34 = 1/t1**3.0d+0 2418 t35 = -1.585385912686323d-1*gammaaa*t25*t33*t34 2419 t36 = 1/t9 2420 t37 = -8.206208515355806d-2/rhoa**1.3333333333333333d+0 2421 t38 = 1/t4**3 2422 t39 = 1/rhoa**6.666666666666667d-1 2423 t40 = t37-2.1795975674590234d-1*t38*t39 2424 t41 = 1/t14 2425 t42 = 1/rhoa**1.6666666666666666d+0 2426 t43 = -4.9237251092134837d-1*t16*t40*t41*t9-8.20620851535580 2427 1 6d-2*t16*t36*t42 2428 t44 = 1/t21**2 2429 t45 = 3.784699104639999d+1*t44+1 2430 t46 = 1/t45 2431 t47 = 1/t19 2432 t48 = -1.0d+0*t16*t19*t40*t41-1.1694876738238703d-1*t16*t18* 2433 1 t38*t39 2434 t49 = 9.690227711544375d-4*t15*t47*t48+2.790332964441521d-2* 2435 1 t38*t39*t44*t46+6.314467057030004d-2*t15*t36*t43 2436 t50 = 1/t24**2 2437 t51 = 5.493717556362011d+0*gammaaa*t2*t23*t49*t50 2438 t52 = t51+t35 2439 t53 = 1/t29**2 2440 t54 = 1/t1**5.0d+0 2441 t55 = 1/t24**3.0d+0 2442 t56 = 1.4930849866515192d+0*t12*t13*t23*t49*t55-4.3087688436 2443 1 7585d-2*t12*t28*t33*t54+t51+t35 2444 t57 = -1.3589022108739912d-1*gammaaa*t2*t27*t53*t56+1.358902 2445 1 2108739912d-1*gammaaa*t2*t30*t52-1.585385912686323d-1*gam 2446 2 maaa*t27*t30*t33*t34 2447 t58 = log(t31) 2448 t59 = 9.233076093591105d-3*gammaaa*t13*t28+3.397255527184978 2449 1 d-2*t2*t25 2450 t60 = -1.3589022108739912d-1*gammaaa*t2*t27*t53*t59+3.397255 2451 1 527184978d-2*t2*t27*t30+4.6165380467955525d-3*gammaaa*t13 2452 2 *t25*t30 2453 t61 = 1.846615218718221d-2*gammaaa*t13*t28+6.794511054369956 2454 1 d-2*t2*t25 2455 t62 = -1.3589022108739912d-1*gammaaa*t2*t27*t53*t61+6.794511 2456 1 054369956d-2*t2*t27*t30+9.233076093591105d-3*gammaaa*t13* 2457 2 t25*t30 2458 t63 = 1/t31**2 2459 t64 = t57**2 2460 t65 = -4.947113487115154d-2*rhoa*t63*t64*wght 2461 t66 = 1/rhoa 2462 t67 = 4.947113487115154d-2*t57*wght 2463 t68 = rhoa**3.333333333333335d-1 2464 t69 = 2.774425347201065d-1*gammaaa*t13*t27*t30*t68 2465 t70 = 1/rhoa**8.333333333333333d-1 2466 t71 = -1.3211549272386033d-2*gammaaa*t27*t30*t34*t70 2467 t72 = 1/rhoa**2 2468 t73 = -3.170771825372646d-1*gammaaa*t30*t33*t34*t52 2469 t74 = 3.170771825372646d-1*gammaaa*t27*t33*t34*t53*t56 2470 t75 = -2.7178044217479824d-1*gammaaa*t2*t52*t53*t56 2471 t76 = t49**2 2472 t77 = exp(-8.085523023512741d+1*t22) 2473 t78 = 1/t24**3 2474 t79 = 4.441957978664119d+2*gammaaa*t2*t76*t77*t78 2475 t80 = 2.774425347201065d-1*gammaaa*t13*t25*t68 2476 t81 = -1.3211549272386033d-2*gammaaa*t25*t34*t70 2477 t82 = 1.5098913454155452d-2*gammaaa*t2*t25*t72 2478 t83 = -1.2818674298178023d+1*gammaaa*t23*t33*t34*t49*t50 2479 t84 = -2.2209789893320595d+2*gammaaa*t2*t23*t50*t76 2480 t85 = 1/t45**2 2481 t86 = 1/t21**5 2482 t87 = 1/rhoa**2.3333333333333334d+0 2483 t88 = -2.470091445929572d-1*t85*t86*t87 2484 t89 = 1/t21**3 2485 t90 = 6.526520015557556d-3*t46*t87*t89 2486 t91 = t7+7.93663453939179d-1*t5+1.30045d+1 2487 t92 = abs(t91) 2488 t93 = 1/t92 2489 t94 = t17+4.7584000000000004d-3 2490 t95 = t94**2 2491 t96 = t20+1.13107d+0 2492 t97 = -5.365091848883603d-3*atan(7.123108917818117d+0/t96)-6 2493 1 .991732350764465d-6*log(1.0d+0*t93*t95)-1.688686394038963 2494 2 d-2*log(4.9237251092134837d-1*t9*t93) 2495 t98 = 1/rhoa**1.6666666666666669d+0 2496 t99 = -9.301109881471736d-3*t38*t44*t46*t98 2497 t100 = t40**2 2498 t101 = 1/t14**2 2499 t102 = 1/t4**5 2500 t103 = 1/rhoa**1.3333333333333336d+0 2501 t104 = 7.265325224863413d-2*t38*t98+5.448993918647558d-2*t10 2502 1 2*t103+5.470805676903872d-2/rhoa**2.333333333333333d+0 2503 t105 = 1/rhoa**2.6666666666666666d+0 2504 t106 = -4.9237251092134837d-1*t104*t16*t41*t9+9.847450218426 2505 1 967d-1*t100*t101*t16*t9+1.6412417030711612d-1*t16*t36*t40 2506 2 *t41*t42+5.470805676903869d-2*t105*t16*t36 2507 t107 = 6.314467057030004d-2*t106*t15*t36 2508 t108 = -6.975832411103801d-3*t102*t103*t44*t46 2509 t109 = 1/rhoa**9.999999999999999d-1 2510 t110 = 1.0524111761716676d-2*t109*t15*t36*t43 2511 t111 = 1/t18**3 2512 t112 = 1.1332601865197636d-4*t111*t15*t38*t39*t48 2513 t113 = 3.898292246079568d-2*t16*t18*t38*t98+6.83850709612983 2514 1 8d-3*t16*t87+2.3389753476477407d-1*t16*t18*t38*t39*t40*t4 2515 2 1-1.0d+0*t104*t16*t19*t41+2.0d+0*t100*t101*t16*t19+2.9237 2516 3 19184559675d-2*t102*t103*t16*t18 2517 t114 = 9.690227711544375d-4*t113*t15*t47 2518 t115 = 6.314467057030004d-2*t14*t16*t36*t40*t43 2519 t116 = 9.690227711544375d-4*t14*t16*t40*t47*t48 2520 t117 = -4.0427615117563703d+1*(t99+2.5000000000000006d-1*t72 2521 1 *t97+t90+t88+t116+t115+t114+t112+t110+t108+t107)-6.737935 2522 2 852927281d+0*t22*t72 2523 t118 = -1.3589022108739912d-1*gammaaa*t117*t2*t23*t50 2524 t119 = t84+t83+t82+t81+t80+t79+t118 2525 t120 = 1/t24**4.0d+0 2526 t121 = 1.8108559553448106d+2*t12*t120*t13*t76*t77 2527 t122 = 1/t1**6.0d+0 2528 t123 = 1.256724246072123d-1*t12*t122*t28*t68 2529 t124 = -3.59064070306321d-3*t12*t28*t54*t70 2530 t125 = -6.96772993770709d+0*t12*t23*t33*t49*t54*t55 2531 t126 = -6.036186517816036d+1*t12*t13*t23*t55*t76 2532 t127 = t84+t83+t82+t81+t80+t79+4.103589374929379d-3*t12*t13* 2533 1 t28*t72-3.693230437436442d-2*t117*t12*t13*t23*t55+t126+t1 2534 2 25+t124+t123+t121+t118 2535 t128 = 1/t29**3 2536 t129 = t56**2 2537 t130 = 2.7178044217479824d-1*gammaaa*t128*t129*t2*t27 2538 t131 = t75+t74+t73+1.5098913454155452d-2*gammaaa*t2*t27*t30* 2539 1 t72+t71+t69-1.3589022108739912d-1*gammaaa*t127*t2*t27*t53 2540 2 +1.3589022108739912d-1*gammaaa*t119*t2*t30+t130 2541 t132 = 4.947113487115154d-2*rhoa*t131*wght+t67 2542 t133 = -1.5098913454155458d-2*gammaaa*t2*t25*t72 2543 t134 = 6.737935852927284d+0*t22*t72-4.0427615117563703d+1*(t 2544 1 99-2.5000000000000006d-1*t72*t97+t90+t88+t116+t115+t114+t 2545 2 112+t110+t108+t107) 2546 t135 = -1.3589022108739912d-1*gammaaa*t134*t2*t23*t50 2547 t136 = t84+t83+t81+t80+t79+t135+t133 2548 t137 = t84+t83+t81+t80+t79-4.1035893749293795d-3*t12*t13*t28 2549 1 *t72-3.693230437436442d-2*t12*t13*t134*t23*t55+t135+t133+ 2550 2 t126+t125+t124+t123+t121 2551 t138 = t75+t74+t73-1.5098913454155458d-2*gammaaa*t2*t27*t30* 2552 1 t72+t71+t69-1.3589022108739912d-1*gammaaa*t137*t2*t27*t53 2553 2 +1.3589022108739912d-1*gammaaa*t136*t2*t30+t130 2554 t139 = 4.947113487115154d-2*rhoa*t138*wght+t67 2555 t140 = -3.9634647817158075d-2*t25*t33*t34 2556 t141 = 1.3734293890905028d+0*t2*t23*t49*t50 2557 t142 = t141+t140 2558 t143 = 7.465424933257596d-1*gammaaa*t13*t23*t49*t55-2.154384 2559 1 421837925d-2*gammaaa*t28*t33*t54+t141+t140 2560 t144 = 2.7178044217479824d-1*gammaaa*t128*t2*t27*t56*t59-1.3 2561 1 589022108739912d-1*gammaaa*t2*t52*t53*t59+1.5853859126863 2562 2 23d-1*gammaaa*t27*t33*t34*t53*t59-3.397255527184978d-2*t2 2563 3 *t27*t53*t56-4.6165380467955525d-3*gammaaa*t13*t25*t53*t5 2564 4 6-5.385961054594812d-3*gammaaa*t25*t30*t33*t54-1.35890221 2565 5 08739912d-1*gammaaa*t143*t2*t27*t53+3.397255527184978d-2* 2566 6 t2*t30*t52-3.9634647817158075d-2*t27*t30*t33*t34+1.358902 2567 7 2108739912d-1*gammaaa*t142*t2*t30 2568 t145 = 2.473556743557577d-2*t60*wght+4.947113487115154d-2*rh 2569 1 oa*t144*wght 2570 t146 = t145*t32-4.947113487115154d-2*rhoa*t57*t60*t63*wght 2571 t147 = -7.926929563431615d-2*t25*t33*t34 2572 t148 = 2.7468587781810055d+0*t2*t23*t49*t50 2573 t149 = t148+t147 2574 t150 = 1.4930849866515192d+0*gammaaa*t13*t23*t49*t55-4.30876 2575 1 884367585d-2*gammaaa*t28*t33*t54+t148+t147 2576 t151 = 2.7178044217479824d-1*gammaaa*t128*t2*t27*t56*t61-1.3 2577 1 589022108739912d-1*gammaaa*t2*t52*t53*t61+1.5853859126863 2578 2 23d-1*gammaaa*t27*t33*t34*t53*t61-6.794511054369956d-2*t2 2579 3 *t27*t53*t56-9.233076093591105d-3*gammaaa*t13*t25*t53*t56 2580 4 -1.0771922109189624d-2*gammaaa*t25*t30*t33*t54-1.35890221 2581 5 08739912d-1*gammaaa*t150*t2*t27*t53+6.794511054369956d-2* 2582 6 t2*t30*t52-7.926929563431615d-2*t27*t30*t33*t34+1.3589022 2583 7 108739912d-1*gammaaa*t149*t2*t30 2584 t152 = 2.473556743557577d-2*t62*wght+4.947113487115154d-2*rh 2585 1 oa*t151*wght 2586 t153 = t60**2 2587 t154 = t59**2 2588 t155 = -6.794511054369956d-2*t2*t27*t53*t59 2589 t156 = -9.233076093591105d-3*gammaaa*t13*t25*t53*t59 2590 t157 = -3.1367118791871873d-4*gammaaa*t122*t27*t28*t53+2.308 2591 1 2690233977762d-3*t13*t25*t30+2.7178044217479824d-1*gammaa 2592 2 a*t128*t154*t2*t27+t156+t155 2593 t158 = 4.947113487115154d-2*rhoa*t157*t32*wght-4.94711348711 2594 1 5154d-2*rhoa*t153*t63*wght 2595 t159 = 2.7178044217479824d-1*gammaaa*t128*t2*t27*t59*t61-3.3 2596 1 97255527184978d-2*t2*t27*t53*t61-4.6165380467955525d-3*ga 2597 2 mmaaa*t13*t25*t53*t61-6.273423758374375d-4*gammaaa*t122*t 2598 3 27*t28*t53+4.6165380467955525d-3*t13*t25*t30+t156+t155 2599 t160 = t62**2 2600 t161 = t61**2 2601 t162 = -1.3589022108739912d-1*t2*t27*t53*t61-1.8466152187182 2602 1 21d-2*gammaaa*t13*t25*t53*t61-1.254684751674875d-3*gammaa 2603 2 a*t122*t27*t28*t53+9.233076093591105d-3*t13*t25*t30+2.717 2604 3 8044217479824d-1*gammaaa*t128*t161*t2*t27 2605 t163 = 1/t31**3 2606 t164 = 9.894226974230308d-2*rhoa*t163*t57**3*wght 2607 t165 = rhoa**5.000000000000002d-1 2608 t166 = -6.473659143469154d-1*gammaaa*t165*t27*t30*t54 2609 t167 = 1/rhoa**6.666666666666665d-1 2610 t168 = 6.936063368002667d-2*gammaaa*t13*t167*t27*t30 2611 t169 = 1/rhoa**1.8333333333333332d+0 2612 t170 = 1/rhoa**3 2613 t171 = t49**3 2614 t172 = exp(-1.2128284535269111d+2*t22) 2615 t173 = 1/t24**4 2616 t174 = 5.387333025894727d+4*gammaaa*t171*t172*t173*t2 2617 t175 = -1.5546852925324417d+3*gammaaa*t33*t34*t76*t77*t78 2618 t176 = -5.387333025894727d+4*gammaaa*t171*t2*t77*t78 2619 t177 = -3.2962305338172065d+1*gammaaa*t117*t2*t49*t77*t78 2620 t178 = -6.473659143469154d-1*gammaaa*t165*t25*t54 2621 t179 = 6.936063368002667d-2*gammaaa*t13*t167*t25 2622 t180 = -4.7341384892716565d-2*gammaaa*t169*t25*t34 2623 t181 = -4.529674036246638d-2*gammaaa*t170*t2*t25 2624 t182 = 3.364902003271732d+1*gammaaa*t13*t23*t49*t50*t68 2625 t183 = -1.6023342872722537d+0*gammaaa*t23*t34*t49*t50*t70 2626 t184 = 7.773426462662208d+2*gammaaa*t23*t33*t34*t50*t76 2627 t185 = 4.756157738058969d-1*gammaaa*t117*t23*t33*t34*t50 2628 t186 = 8.978888376491212d+3*gammaaa*t171*t2*t23*t50 2629 t187 = 1.8312391854540028d+0*gammaaa*t2*t23*t49*t50*t72 2630 t188 = 1/rhoa**3.3333333333333337d+0 2631 t189 = 4.3226600303767515d-1*t188*t85*t86 2632 t190 = -1.1421410027225727d-2*t188*t46*t89 2633 t191 = 1/rhoa**3.0d+0 2634 t192 = 4.3732069462725337d+0*t191*t38/(t21**8*t45**3) 2635 t193 = -2.022119049462691d-1*t191*t38*t85/t21**6 2636 t194 = 2.289805413347801d-3*t191*t38*t46/t21**4 2637 t195 = 1/rhoa**2.666666666666667d+0 2638 t196 = 7.750924901226445d-3*t195*t38*t44*t46 2639 t197 = 6.975832411103802d-3*t102*t44*t46*t87 2640 t198 = 1.988000729055306d-5*t15*t48*t87/t18**4 2641 t199 = t37-6.613862116159824d-2*t38*t39 2642 t200 = 1/t91 2643 t201 = 1/t96**2 2644 t202 = -6.991732350764465d-6*t92*(-1.0d+0*t199*t200*t93*t95- 2645 1 1.1694876738238703d-1*t38*t39*t93*t94)/t95-3.429692674920 2646 2 095d-2*t36*t92*(-4.9237251092134837d-1*t199*t200*t9*t93-8 2647 3 .206208515355806d-2*t36*t42*t93)-4.469329717903391d-3*t20 2648 4 1*t38*t39/(5.07386806551d+1*t201+1) 2649 t203 = 1/t4**7 2650 t204 = 1/rhoa**2.0d+0 2651 t205 = 2.906596837959916d-3*t203*t204*t44*t46 2652 t206 = -5.262055880858336d-3*t15*t204*t36*t43 2653 t207 = 1.7540186269527788d-3*t15*t36*t43/rhoa**1.99999999999 2654 1 99998d+0 2655 t208 = -3.7775339550658793d-5*t111*t15*t38*t48*t98 2656 t209 = t40**3 2657 t210 = 1/t14**3 2658 t211 = -5.448993918647558d-2*t102*t87-6.054437687386176d-2*t 2659 1 195*t38-2.2704141327698155d-2*t203*t204-6.382606623054516 2660 2 d-2/rhoa**3.333333333333333d+0 2661 t212 = 6.314467057030004d-2*t15*t36*(-4.9237251092134837d-1* 2662 1 t16*t211*t41*t9+2.95423506552809d+0*t101*t104*t16*t40*t9- 2663 2 2.95423506552809d+0*t16*t209*t210*t9+2.4618625546067416d- 2664 3 1*t104*t16*t36*t41*t42-4.923725109213483d-1*t100*t101*t16 2665 4 *t36*t42-1.6412417030711612d-1*t105*t16*t36*t40*t41-6.382 2666 5 606623054515d-2*t16*t36/rhoa**3.6666666666666664d+0) 2667 t213 = -2.833150466299409d-5*t102*t103*t111*t15*t48 2668 t214 = 2.1048223523433351d-2*t106*t109*t15*t36 2669 t215 = 2.1048223523433351d-2*t109*t14*t16*t36*t40*t43 2670 t216 = 2.2665203730395272d-4*t111*t113*t15*t38*t39 2671 t217 = 2.2665203730395272d-4*t111*t14*t16*t38*t39*t40*t48 2672 t218 = 9.690227711544375d-4*t15*t47*(-1.1694876738238703d-1* 2673 1 t16*t18*t38*t40*t41*t98-2.0515521288389513d-2*t16*t40*t41 2674 2 *t87-2.923719184559675d-2*t102*t16*t18*t87-8.771157553679 2675 3 026d-2*t102*t103*t16*t18*t40*t41+3.508463021471611d-1*t10 2676 4 4*t16*t18*t38*t39*t41-1.0d+0*t16*t19*t211*t41+6.0d+0*t101 2677 5 *t104*t16*t19*t40-7.016926042943222d-1*t100*t101*t16*t18* 2678 6 t38*t39-3.2485768717329727d-2*t16*t18*t195*t38-6.0d+0*t16 2679 7 *t19*t209*t210-1.2182163268998646d-2*t16*t18*t203*t204-1. 2680 8 1967387418227218d-2*t16*t188) 2681 t219 = 6.314467057030004d-2*t104*t14*t16*t36*t43 2682 t220 = 1.262893411406001d-1*t106*t14*t16*t36*t40 2683 t221 = 1.938045542308875d-3*t113*t14*t16*t40*t47 2684 t222 = 9.690227711544375d-4*t104*t14*t16*t47*t48 2685 t223 = -4.0427615117563703d+1*(-7.5d-1*t170*t97+7.5000000000 2686 1 00001d-1*t202*t72+t222+t221+t220+t219+t218+t217+t216+t215 2687 2 +t214+t213+t212+t208+t207+t206+t205+t198+t197+t196+t194+t 2688 3 193+t192+t190+t189)-2.021380755878185d+1*t49*t72+2.021380 2689 4 7558781854d+1*t170*t22 2690 t224 = -1.3589022108739912d-1*gammaaa*t2*t223*t23*t50 2691 t225 = 1.6481152669086033d+1*gammaaa*t117*t2*t23*t49*t50 2692 t226 = 2.9283435038411254d+4*t12*t13*t171*t172/t24**5.0d+0 2693 t227 = -1.2675991687413676d+3*t12*t120*t33*t54*t76*t77 2694 t228 = -2.196257627880844d+4*t12*t120*t13*t171*t77 2695 t229 = 1/t1**7.0d+0 2696 t230 = -4.39853486125243d-1*t12*t165*t229*t28 2697 t231 = 3.14181061518031d-2*t12*t122*t167*t28 2698 t232 = 3.0483818477468533d+1*t12*t122*t23*t49*t55*t68 2699 t233 = 4.2253305624712256d+2*t12*t23*t33*t54*t55*t76 2700 t234 = 8.153413265243947d-1*gammaaa*t128*t129*t2*t52 2701 t235 = 1/t29**4 2702 t236 = -8.153413265243947d-1*gammaaa*t2*t235*t27*t56**3 2703 t237 = -2.473556743557577d-2*t64*wght 2704 t238 = -t132*t57 2705 t239 = 5.387333025894728d+4*gammaaa*t171*t172*t173*t2 2706 t240 = -1.5546852925324414d+3*gammaaa*t33*t34*t76*t77*t78 2707 t241 = -5.387333025894728d+4*gammaaa*t171*t2*t77*t78 2708 t242 = -2.1974870225448043d+1*gammaaa*t134*t2*t49*t77*t78 2709 t243 = -1.0987435112724021d+1*gammaaa*t117*t2*t49*t77*t78 2710 t244 = 2.3120211226675547d-2*gammaaa*t169*t25*t34 2711 t245 = 1.509891345415546d-2*gammaaa*t170*t2*t25 2712 t246 = 3.364902003271731d+1*gammaaa*t13*t23*t49*t50*t68 2713 t247 = -1.602334287272254d+0*gammaaa*t23*t34*t49*t50*t70 2714 t248 = 7.773426462662207d+2*gammaaa*t23*t33*t34*t50*t76 2715 t249 = 3.170771825372646d-1*gammaaa*t134*t23*t33*t34*t50 2716 t250 = 1.585385912686323d-1*gammaaa*t117*t23*t33*t34*t50 2717 t251 = 8.978888376491213d+3*gammaaa*t171*t2*t23*t50 2718 t252 = -6.104130618180013d-1*gammaaa*t2*t23*t49*t50*t72 2719 t253 = -4.0427615117563703d+1*(2.5000000000000006d-1*t170*t9 2720 1 7-2.5000000000000006d-1*t202*t72+t222+t221+t220+t219+t218 2721 2 +t217+t216+t215+t214+t213+t212+t208+t207+t206+t205+t198+t 2722 3 197+t196+t194+t193+t192+t190+t189)+6.737935852927286d+0*t 2723 4 49*t72-6.737935852927286d+0*t170*t22 2724 t254 = -1.3589022108739912d-1*gammaaa*t2*t23*t253*t50 2725 t255 = 1.0987435112724021d+1*gammaaa*t134*t2*t23*t49*t50 2726 t256 = 5.493717556362011d+0*gammaaa*t117*t2*t23*t49*t50 2727 t257 = 9.894226974230308d-2*rhoa*t163*t60*t64*wght 2728 t258 = 4.947113487115154d-2*t144*wght 2729 t259 = -2.774425347201065d-1*gammaaa*t13*t27*t53*t59*t68 2730 t260 = 1.3211549272386033d-2*gammaaa*t27*t34*t53*t59*t70 2731 t261 = 6.936063368002663d-2*t13*t27*t30*t68 2732 t262 = -3.3028873180965085d-3*t27*t30*t34*t70 2733 t263 = 9.425431845540924d-3*gammaaa*t122*t25*t30*t68 2734 t264 = -4.4883008788290113d-4*gammaaa*t25*t30*t54*t70 2735 t265 = -3.170771825372646d-1*gammaaa*t142*t30*t33*t34 2736 t266 = 3.170771825372646d-1*gammaaa*t143*t27*t33*t34*t53 2737 t267 = 3.170771825372646d-1*gammaaa*t33*t34*t52*t53*t59 2738 t268 = -7.926929563431615d-2*t30*t33*t34*t52 2739 t269 = -2.7178044217479824d-1*gammaaa*t143*t2*t52*t53 2740 t270 = -6.341543650745292d-1*gammaaa*t128*t27*t33*t34*t56*t5 2741 1 9 2742 t271 = 7.926929563431615d-2*t27*t33*t34*t53*t56 2743 t272 = 1.0771922109189624d-2*gammaaa*t25*t33*t53*t54*t56 2744 t273 = -2.7178044217479824d-1*gammaaa*t142*t2*t53*t56 2745 t274 = 5.435608843495965d-1*gammaaa*t128*t143*t2*t27*t56 2746 t275 = 5.435608843495965d-1*gammaaa*t128*t2*t52*t56*t59 2747 t276 = -6.794511054369956d-2*t2*t52*t53*t56 2748 t277 = 1.1104894946660297d+2*t2*t76*t77*t78 2749 t278 = 6.936063368002663d-2*t13*t25*t68 2750 t279 = -3.3028873180965085d-3*t25*t34*t70 2751 t280 = 3.7747283635388634d-3*t2*t25*t72 2752 t281 = -3.204668574544506d+0*t23*t33*t34*t49*t50 2753 t282 = -5.552447473330149d+1*t2*t23*t50*t76 2754 t283 = -3.397255527184978d-2*t117*t2*t23*t50 2755 t284 = 9.054279776724052d+1*gammaaa*t120*t13*t76*t77 2756 t285 = 6.283621230360615d-2*gammaaa*t122*t28*t68 2757 t286 = -1.795320351531605d-3*gammaaa*t28*t54*t70 2758 t287 = -3.483864968853545d+0*gammaaa*t23*t33*t49*t54*t55 2759 t288 = -3.018093258908018d+1*gammaaa*t13*t23*t55*t76 2760 t289 = -8.153413265243947d-1*gammaaa*t129*t2*t235*t27*t59 2761 t290 = 6.794511054369956d-2*t128*t129*t2*t27 2762 t291 = 9.233076093591105d-3*gammaaa*t128*t129*t13*t25 2763 t292 = -9.894226974230308d-2*rhoa*t144*t57*wght 2764 t293 = t32*(4.947113487115154d-2*rhoa*(-1.3589022108739912d- 2765 1 1*gammaaa*t2*t27*t53*(2.0517946874646895d-3*gammaaa*t13*t 2766 2 28*t72-1.846615218718221d-2*gammaaa*t117*t13*t23*t55+t288 2767 3 +t287+t286+t285+t284+t283+t282+t281+t280+t279+t278+t277)- 2768 4 1.5098913454155452d-2*gammaaa*t2*t27*t53*t59*t72+3.774728 2769 5 3635388634d-3*t2*t27*t30*t72+5.129486718661723d-4*gammaaa 2770 6 *t13*t25*t30*t72-1.3589022108739912d-1*gammaaa*t119*t2*t5 2771 7 3*t59+2.7178044217479824d-1*gammaaa*t127*t128*t2*t27*t59- 2772 8 3.397255527184978d-2*t127*t2*t27*t53-4.6165380467955525d- 2773 9 3*gammaaa*t127*t13*t25*t53+1.3589022108739912d-1*gammaaa* 2774 : t2*(t283+t282+t281+t280+t279+t278+t277)*t30+3.39725552718 2775 ; 4978d-2*t119*t2*t30+t291+t290+t289+t276+t275+t274+t273+t2 2776 < 72+t271+t270+t269+t268+t267+t266+t265+t264+t263+t262+t261 2777 = +t260+t259)*wght-8.245189145191921d-3*t60*t66*wght+t258)+ 2778 > (t292-t132*t60)*t63+t257 2779 t294 = 9.894226974230308d-2*rhoa*t163*t62*t64*wght 2780 t295 = 4.947113487115154d-2*t151*wght 2781 t296 = -2.774425347201065d-1*gammaaa*t13*t27*t53*t61*t68 2782 t297 = 1.3211549272386033d-2*gammaaa*t27*t34*t53*t61*t70 2783 t298 = 1.3872126736005325d-1*t13*t27*t30*t68 2784 t299 = -6.605774636193017d-3*t27*t30*t34*t70 2785 t300 = 1.8850863691081848d-2*gammaaa*t122*t25*t30*t68 2786 t301 = -8.976601757658023d-4*gammaaa*t25*t30*t54*t70 2787 t302 = -3.170771825372646d-1*gammaaa*t149*t30*t33*t34 2788 t303 = 3.170771825372646d-1*gammaaa*t150*t27*t33*t34*t53 2789 t304 = 3.170771825372646d-1*gammaaa*t33*t34*t52*t53*t61 2790 t305 = -1.585385912686323d-1*t30*t33*t34*t52 2791 t306 = -2.7178044217479824d-1*gammaaa*t150*t2*t52*t53 2792 t307 = -6.341543650745292d-1*gammaaa*t128*t27*t33*t34*t56*t6 2793 1 1 2794 t308 = 1.585385912686323d-1*t27*t33*t34*t53*t56 2795 t309 = 2.154384421837925d-2*gammaaa*t25*t33*t53*t54*t56 2796 t310 = -2.7178044217479824d-1*gammaaa*t149*t2*t53*t56 2797 t311 = 5.435608843495965d-1*gammaaa*t128*t150*t2*t27*t56 2798 t312 = 5.435608843495965d-1*gammaaa*t128*t2*t52*t56*t61 2799 t313 = -1.3589022108739912d-1*t2*t52*t53*t56 2800 t314 = 2.2209789893320595d+2*t2*t76*t77*t78 2801 t315 = 1.3872126736005325d-1*t13*t25*t68 2802 t316 = -6.605774636193017d-3*t25*t34*t70 2803 t317 = 7.549456727077727d-3*t2*t25*t72 2804 t318 = -6.409337149089012d+0*t23*t33*t34*t49*t50 2805 t319 = -1.1104894946660297d+2*t2*t23*t50*t76 2806 t320 = -6.794511054369956d-2*t117*t2*t23*t50 2807 t321 = 1.8108559553448106d+2*gammaaa*t120*t13*t76*t77 2808 t322 = 1.256724246072123d-1*gammaaa*t122*t28*t68 2809 t323 = -3.59064070306321d-3*gammaaa*t28*t54*t70 2810 t324 = -6.96772993770709d+0*gammaaa*t23*t33*t49*t54*t55 2811 t325 = -6.036186517816036d+1*gammaaa*t13*t23*t55*t76 2812 t326 = -8.153413265243947d-1*gammaaa*t129*t2*t235*t27*t61 2813 t327 = 1.3589022108739912d-1*t128*t129*t2*t27 2814 t328 = 1.846615218718221d-2*gammaaa*t128*t129*t13*t25 2815 t329 = -9.894226974230308d-2*rhoa*t151*t57*wght 2816 t330 = -3.774728363538864d-3*t2*t25*t72 2817 t331 = -3.397255527184978d-2*t134*t2*t23*t50 2818 t332 = -7.549456727077728d-3*t2*t25*t72 2819 t333 = -6.794511054369956d-2*t134*t2*t23*t50 2820 t334 = 7.926929563431615d-2*t27*t33*t34*t53*t59 2821 t335 = 1.0771922109189624d-2*gammaaa*t25*t33*t53*t54*t59 2822 t336 = 6.794511054369956d-2*t142*t2*t30 2823 t337 = -6.794511054369956d-2*t143*t2*t27*t53 2824 t338 = -9.233076093591105d-3*gammaaa*t13*t143*t25*t53 2825 t339 = -6.794511054369956d-2*t2*t52*t53*t59 2826 t340 = 1.3589022108739912d-1*t128*t2*t27*t56*t59 2827 t341 = 1.846615218718221d-2*gammaaa*t128*t13*t25*t56*t59 2828 t342 = t63*(-4.947113487115154d-2*rhoa*t144*t60*wght-4.94711 2829 1 3487115154d-2*rhoa*t157*t57*wght-t145*t60)+t32*(4.9471134 2830 2 87115154d-2*rhoa*(-2.7178044217479824d-1*gammaaa*t142*t2* 2831 3 t53*t59+5.435608843495965d-1*gammaaa*t128*t143*t2*t27*t59 2832 4 -2.3082690233977762d-3*t13*t25*t53*t56+6.273423758374375d 2833 5 -4*gammaaa*t122*t128*t27*t28*t56-8.153413265243947d-1*gam 2834 6 maaa*t154*t2*t235*t27*t56-1.3589022108739912d-1*gammaaa*t 2835 7 2*t27*t53*(1.866356233314399d-1*t13*t23*t49*t55-5.3859610 2836 8 54594812d-3*t28*t33*t54)-2.692980527297406d-3*t25*t30*t33 2837 9 *t54-3.1367118791871873d-4*gammaaa*t122*t28*t52*t53+3.659 2838 : 497192385051d-4*gammaaa*t229*t27*t28*t33*t53+2.7178044217 2839 ; 479824d-1*gammaaa*t128*t154*t2*t52+t341+t340-3.1707718253 2840 < 72646d-1*gammaaa*t128*t154*t27*t33*t34+t339+t338+t337+t33 2841 = 6+t335+t334)*wght+2.473556743557577d-2*t157*wght)+9.89422 2842 > 6974230308d-2*rhoa*t153*t163*t57*wght 2843 t343 = 9.894226974230308d-2*rhoa*t163*t57*t60*t62*wght 2844 t344 = t32*(4.947113487115154d-2*rhoa*(-8.153413265243947d-1 2845 1 *gammaaa*t2*t235*t27*t56*t59*t61+2.7178044217479824d-1*ga 2846 2 mmaaa*t128*t2*t52*t59*t61-3.170771825372646d-1*gammaaa*t1 2847 3 28*t27*t33*t34*t59*t61+6.794511054369956d-2*t128*t2*t27*t 2848 4 56*t61+9.233076093591105d-3*gammaaa*t128*t13*t25*t56*t61+ 2849 5 5.385961054594812d-3*gammaaa*t25*t33*t53*t54*t61-3.397255 2850 6 527184978d-2*t2*t52*t53*t61+3.9634647817158075d-2*t27*t33 2851 7 *t34*t53*t61-1.3589022108739912d-1*gammaaa*t142*t2*t53*t6 2852 8 1+2.7178044217479824d-1*gammaaa*t128*t143*t2*t27*t61-1.35 2853 9 89022108739912d-1*gammaaa*t149*t2*t53*t59+2.7178044217479 2854 : 824d-1*gammaaa*t128*t150*t2*t27*t59-4.6165380467955525d-3 2855 ; *t13*t25*t53*t56+1.254684751674875d-3*gammaaa*t122*t128*t 2856 < 27*t28*t56-1.3589022108739912d-1*gammaaa*t2*t27*t53*(3.73 2857 = 2712466628798d-1*t13*t23*t49*t55-1.0771922109189624d-2*t2 2858 > 8*t33*t54)-5.385961054594812d-3*t25*t30*t33*t54-6.2734237 2859 ? 58374375d-4*gammaaa*t122*t28*t52*t53+7.318994384770102d-4 2860 @ *gammaaa*t229*t27*t28*t33*t53-3.397255527184978d-2*t150*t 2861 1 2*t27*t53-4.6165380467955525d-3*gammaaa*t13*t150*t25*t53+ 2862 2 t341+t340+t339+t338+t337+t336+t335+t334+3.397255527184978 2863 3 d-2*t149*t2*t30)*wght+2.473556743557577d-2*t159*wght) 2864 t345 = -4.947113487115154d-2*rhoa*t159*t57*wght 2865 t346 = 1/t1**8.0d+0 2866 t347 = -1.4841340461345462d-1*rhoa*t157*t60*t63*wght+9.89422 2867 1 6974230308d-2*rhoa*t163*t60**3*wght+4.947113487115154d-2* 2868 2 rhoa*t32*(-8.153413265243947d-1*gammaaa*t2*t235*t27*t59** 2869 3 3-6.924807070193328d-3*t13*t25*t53*t59+1.8820271275123124 2870 4 d-3*gammaaa*t122*t128*t27*t28*t59-3.1968635306266346d-5*g 2871 5 ammaaa*t346*t53*t55-2.3525339093903905d-4*t122*t27*t28*t5 2872 6 3+2.0383533163109868d-1*t128*t154*t2*t27+2.76992282807733 2873 7 14d-2*gammaaa*t128*t13*t154*t25)*wght 2874 t348 = 2.50936950334975d-3*gammaaa*t122*t128*t27*t28*t59 2875 t349 = -9.233076093591105d-3*t13*t25*t53*t59 2876 t350 = t63*(-4.947113487115154d-2*rhoa*t157*t62*wght-9.89422 2877 1 6974230308d-2*rhoa*t159*t60*wght)+9.894226974230308d-2*rh 2878 2 oa*t153*t163*t62*wght+4.947113487115154d-2*rhoa*t32*(1.35 2879 3 89022108739912d-1*t128*t2*t27*t59*t61+1.846615218718221d- 2880 4 2*gammaaa*t128*t13*t25*t59*t61-2.3082690233977762d-3*t13* 2881 5 t25*t53*t61+6.273423758374375d-4*gammaaa*t122*t128*t27*t2 2882 6 8*t61-8.153413265243947d-1*gammaaa*t154*t2*t235*t27*t61-6 2883 7 .393727061253269d-5*gammaaa*t346*t53*t55-4.70506781878078 2884 8 1d-4*t122*t27*t28*t53+t349+t348+1.3589022108739912d-1*t12 2885 9 8*t154*t2*t27+1.846615218718221d-2*gammaaa*t128*t13*t154* 2886 : t25)*wght 2887 fnc(iq) = 4.947113487115154d-2*rhoa*log(1.358902210873991d-1 2888 1 *gammaaa*(t11+1.0d+0)*t2/(1.8466152187182203d-2*t12*t13/t 2889 2 10**2.0d+0+t11+1.0d+0)+1.0d+0)*wght+fnc(iq) 2890 Amat(iq,D1_RA) = 2.473556743557577d-2*t58*wght+4.94711348711 2891 1 5154d-2*rhoa*t32*t57*wght+Amat(iq,D1_RA) 2892 Cmat(iq,D1_GAA) = 4.947113487115154d-2*rhoa*t32*t60*wght+Cma 2893 1 t(iq,D1_GAA) 2894 Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t32*t62*wght+Cma 2895 1 t(iq,D1_GAB) 2896 Amat2(iq,D2_RA_RA) = -8.245189145191921d-3*t58*t66*wght+t65+ 2897 1 t132*t32+Amat2(iq,D2_RA_RA) 2898 Amat2(iq,D2_RA_RB) = 8.245189145191922d-3*t58*t66*wght+t65+t 2899 1 139*t32+Amat2(iq,D2_RA_RB) 2900 Cmat2(iq,D2_RA_GAA) = t146+Cmat2(iq,D2_RA_GAA) 2901 Cmat2(iq,D2_RA_GAB) = -4.947113487115154d-2*rhoa*t57*t62*t63 2902 1 *wght+t152*t32+Cmat2(iq,D2_RA_GAB) 2903 Cmat2(iq,D2_RA_GBB) = t146+Cmat2(iq,D2_RA_GBB) 2904 Cmat2(iq,D2_GAA_GAA) = t158+Cmat2(iq,D2_GAA_GAA) 2905 Cmat2(iq,D2_GAA_GAB) = -4.947113487115154d-2*rhoa*t60*t62*t6 2906 1 3*wght+4.947113487115154d-2*rhoa*t159*t32*wght+Cmat2(iq,D 2907 2 2_GAA_GAB) 2908 Cmat2(iq,D2_GAA_GBB) = t158+Cmat2(iq,D2_GAA_GBB) 2909 Cmat2(iq,D2_GAB_GAB) = -4.947113487115154d-2*rhoa*t160*t63*w 2910 1 ght+4.947113487115154d-2*rhoa*t162*t32*wght+Cmat2(iq,D2_G 2911 2 AB_GAB) 2912 Amat3(iq,D3_RA_RA_RA) = t32*(4.947113487115154d-2*rhoa*(-1.3 2913 1 589022108739912d-1*gammaaa*t2*t27*t53*(-1.343776487986367 2914 2 d+1*t117*t12*t120*t13*t49*t77+9.953899911010125d-1*t12*t1 2915 3 3*t23*t49*t55*t72-8.709662422133866d-1*t12*t23*t49*t54*t5 2916 4 5*t70+2.5852613062055096d-1*t117*t12*t23*t33*t54*t55+4.47 2917 5 92549599545567d+0*t117*t12*t13*t23*t49*t55-3.693230437436 2918 6 442d-2*t12*t13*t223*t23*t55+2.4402862532009376d+3*t12*t13 2919 7 *t171*t23*t55-2.722902533156265d-2*t12*t169*t28*t54-1.231 2920 8 076812478814d-2*t12*t13*t170*t28+t233+t232+t231+t230+t228 2921 9 +t227+t226+t225+t224+t187+t186+t185+t184+t183+t182+t181+t 2922 : 180+t179+t178+t177+t176+t175+t174)-4.529674036246636d-2*g 2923 ; ammaaa*t2*t27*t53*t56*t72+4.529674036246636d-2*gammaaa*t2 2924 < *t30*t52*t72+3.963464781715809d-2*gammaaa*t27*t34*t53*t56 2925 = *t70-3.963464781715809d-2*gammaaa*t30*t34*t52*t70-8.32327 2926 > 6041603197d-1*gammaaa*t13*t27*t53*t56*t68+8.3232760416031 2927 ? 97d-1*gammaaa*t13*t30*t52*t68+9.512315476117938d-1*gammaa 2928 @ a*t33*t34*t52*t53*t56-4.0767066326219736d-1*gammaaa*t119* 2929 1 t2*t53*t56+8.153413265243947d-1*gammaaa*t127*t128*t2*t27* 2930 2 t56-4.0767066326219736d-1*gammaaa*t127*t2*t52*t53+4.75615 2931 3 7738058969d-1*gammaaa*t127*t27*t33*t34*t53-4.756157738058 2932 4 969d-1*gammaaa*t119*t30*t33*t34-9.512315476117938d-1*gamm 2933 5 aaa*t128*t129*t27*t33*t34-4.7341384892716565d-2*gammaaa*t 2934 6 169*t27*t30*t34-4.529674036246638d-2*gammaaa*t170*t2*t27* 2935 7 t30+1.3589022108739912d-1*gammaaa*t2*(t225+t224+t187+t186 2936 8 +t185+t184+t183+t182+t181+t180+t179+t178+t177+t176+t175+t 2937 9 174)*t30+t236+t234+t168+t166)*wght-2.473556743557576d-2*t 2938 : 57*t66*wght+7.420670230672731d-2*t131*wght)+t63*(-9.89422 2939 ; 6974230308d-2*rhoa*t131*t57*wght+t238+t237)+1.23677837177 2940 < 87893d-2*t58*t72*wght+t164+Amat3(iq,D3_RA_RA_RA) 2941 Amat3(iq,D3_RA_RA_RB) = t32*(4.947113487115154d-2*rhoa*(-1.3 2942 1 589022108739912d-1*gammaaa*t2*t27*t53*(-8.958509919909113 2943 2 d+0*t12*t120*t13*t134*t49*t77-4.4792549599545567d+0*t117* 2944 3 t12*t120*t13*t49*t77-3.317966637003376d-1*t12*t13*t23*t49 2945 4 *t55*t72-8.709662422133868d-1*t12*t23*t49*t54*t55*t70+1.7 2946 5 235075374703399d-1*t12*t134*t23*t33*t54*t55+8.61753768735 2947 6 17d-2*t117*t12*t23*t33*t54*t55+2.9861699733030383d+0*t12* 2948 7 t13*t134*t23*t49*t55+1.4930849866515192d+0*t117*t12*t13*t 2949 8 23*t49*t55-3.693230437436442d-2*t12*t13*t23*t253*t55+2.44 2950 9 0286253200938d+3*t12*t13*t171*t23*t55+1.1071142167778228d 2951 : -2*t12*t169*t28*t54+4.1035893749293806d-3*t12*t13*t170*t2 2952 ; 8+t256+t255+t254+t252+t251+t250+t249+t248+t247+t246+t245+ 2953 < t244+t243+t242+t241+t240+t239+t233+t232+t231+t230+t228+t2 2954 = 27+t226+t179+t178)+1.509891345415546d-2*gammaaa*t2*t27*t5 2955 > 3*t56*t72-1.509891345415546d-2*gammaaa*t2*t30*t52*t72+3.9 2956 ? 6346478171581d-2*gammaaa*t27*t34*t53*t56*t70-3.9634647817 2957 @ 1581d-2*gammaaa*t30*t34*t52*t70-8.323276041603195d-1*gamm 2958 1 aaa*t13*t27*t53*t56*t68+8.323276041603195d-1*gammaaa*t13* 2959 2 t30*t52*t68+9.512315476117937d-1*gammaaa*t33*t34*t52*t53* 2960 3 t56-2.7178044217479824d-1*gammaaa*t136*t2*t53*t56-1.35890 2961 4 22108739912d-1*gammaaa*t119*t2*t53*t56+5.435608843495965d 2962 5 -1*gammaaa*t128*t137*t2*t27*t56+2.7178044217479824d-1*gam 2963 6 maaa*t127*t128*t2*t27*t56-2.7178044217479824d-1*gammaaa*t 2964 7 137*t2*t52*t53-1.3589022108739912d-1*gammaaa*t127*t2*t52* 2965 8 t53+3.170771825372646d-1*gammaaa*t137*t27*t33*t34*t53+1.5 2966 9 85385912686323d-1*gammaaa*t127*t27*t33*t34*t53-3.17077182 2967 : 5372646d-1*gammaaa*t136*t30*t33*t34-1.585385912686323d-1* 2968 ; gammaaa*t119*t30*t33*t34-9.512315476117937d-1*gammaaa*t12 2969 < 8*t129*t27*t33*t34+2.3120211226675547d-2*gammaaa*t169*t27 2970 = *t30*t34+1.509891345415546d-2*gammaaa*t170*t2*t27*t30+1.3 2971 > 589022108739912d-1*gammaaa*t2*(t256+t255+t254+t252+t251+t 2972 ? 250+t249+t248+t247+t246+t245+t244+t243+t242+t241+t240+t23 2973 @ 9+t179+t178)*t30+t236+t234+t168+t166)*wght+8.245189145191 2974 1 925d-3*t57*t66*wght+4.947113487115154d-2*t138*wght+2.4735 2975 2 56743557577d-2*t131*wght)+t63*(-9.894226974230308d-2*rhoa 2976 3 *t138*t57*wght+t238+t237)-4.1225945725959623d-3*t58*t72*w 2977 4 ght+t164+Amat3(iq,D3_RA_RA_RB) 2978 Cmat3(iq,D3_RA_RA_GAA) = t293+Cmat3(iq,D3_RA_RA_GAA) 2979 Cmat3(iq,D3_RA_RA_GAB) = t32*(4.947113487115154d-2*rhoa*(-1. 2980 1 3589022108739912d-1*gammaaa*t2*t27*t53*(4.103589374929379 2981 2 d-3*gammaaa*t13*t28*t72-3.693230437436442d-2*gammaaa*t117 2982 3 *t13*t23*t55+t325+t324+t323+t322+t321+t320+t319+t318+t317 2983 4 +t316+t315+t314)-1.5098913454155452d-2*gammaaa*t2*t27*t53 2984 5 *t61*t72+7.549456727077727d-3*t2*t27*t30*t72+1.0258973437 2985 6 323447d-3*gammaaa*t13*t25*t30*t72-1.3589022108739912d-1*g 2986 7 ammaaa*t119*t2*t53*t61+2.7178044217479824d-1*gammaaa*t127 2987 8 *t128*t2*t27*t61-6.794511054369956d-2*t127*t2*t27*t53-9.2 2988 9 33076093591105d-3*gammaaa*t127*t13*t25*t53+t328+t327+t326 2989 : +1.3589022108739912d-1*gammaaa*t2*t30*(t320+t319+t318+t31 2990 ; 7+t316+t315+t314)+t313+t312+t311+t310+t309+t308+t307+t306 2991 < +t305+t304+t303+t302+t301+t300+6.794511054369956d-2*t119* 2992 = t2*t30+t299+t298+t297+t296)*wght-8.245189145191921d-3*t62 2993 > *t66*wght+t295)+(t329-t132*t62)*t63+t294+Cmat3(iq,D3_RA_R 2994 ? A_GAB) 2995 Cmat3(iq,D3_RA_RA_GBB) = t293+Cmat3(iq,D3_RA_RA_GBB) 2996 Cmat3(iq,D3_RA_RB_GAA) = t32*(4.947113487115154d-2*rhoa*(-1. 2997 1 3589022108739912d-1*gammaaa*t2*t27*t53*(-2.05179468746468 2998 2 97d-3*gammaaa*t13*t28*t72-1.846615218718221d-2*gammaaa*t1 2999 3 3*t134*t23*t55+t331+t330+t288+t287+t286+t285+t284+t282+t2 3000 4 81+t279+t278+t277)+1.5098913454155458d-2*gammaaa*t2*t27*t 3001 5 53*t59*t72-3.774728363538864d-3*t2*t27*t30*t72-5.12948671 3002 6 8661724d-4*gammaaa*t13*t25*t30*t72-1.3589022108739912d-1* 3003 7 gammaaa*t136*t2*t53*t59+2.7178044217479824d-1*gammaaa*t12 3004 8 8*t137*t2*t27*t59-3.397255527184978d-2*t137*t2*t27*t53-4. 3005 9 6165380467955525d-3*gammaaa*t13*t137*t25*t53+1.3589022108 3006 : 739912d-1*gammaaa*t2*t30*(t331+t330+t282+t281+t279+t278+t 3007 ; 277)+3.397255527184978d-2*t136*t2*t30+t291+t290+t289+t276 3008 < +t275+t274+t273+t272+t271+t270+t269+t268+t267+t266+t265+t 3009 = 264+t263+t262+t261+t260+t259)*wght+8.245189145191922d-3*t 3010 > 60*t66*wght+t258)+(t292-t139*t60)*t63+t257+Cmat3(iq,D3_RA 3011 ? _RB_GAA) 3012 Cmat3(iq,D3_RA_RB_GAB) = t32*(4.947113487115154d-2*rhoa*(-1. 3013 1 3589022108739912d-1*gammaaa*t2*t27*t53*(-4.10358937492937 3014 2 95d-3*gammaaa*t13*t28*t72-3.693230437436442d-2*gammaaa*t1 3015 3 3*t134*t23*t55+t333+t332+t325+t324+t323+t322+t321+t319+t3 3016 4 18+t316+t315+t314)+1.5098913454155458d-2*gammaaa*t2*t27*t 3017 5 53*t61*t72-7.549456727077728d-3*t2*t27*t30*t72-1.02589734 3018 6 37323449d-3*gammaaa*t13*t25*t30*t72-1.3589022108739912d-1 3019 7 *gammaaa*t136*t2*t53*t61+2.7178044217479824d-1*gammaaa*t1 3020 8 28*t137*t2*t27*t61-6.794511054369956d-2*t137*t2*t27*t53-9 3021 9 .233076093591105d-3*gammaaa*t13*t137*t25*t53+1.3589022108 3022 : 739912d-1*gammaaa*t2*t30*(t333+t332+t319+t318+t316+t315+t 3023 ; 314)+t328+t327+t326+t313+t312+t311+t310+t309+t308+t307+t3 3024 < 06+t305+t304+t303+t302+t301+t300+6.794511054369956d-2*t13 3025 = 6*t2*t30+t299+t298+t297+t296)*wght+8.245189145191922d-3*t 3026 > 62*t66*wght+t295)+(t329-t139*t62)*t63+t294+Cmat3(iq,D3_RA 3027 ? _RB_GAB) 3028 Cmat3(iq,D3_RA_GAA_GAA) = t342+Cmat3(iq,D3_RA_GAA_GAA) 3029 Cmat3(iq,D3_RA_GAA_GAB) = t63*(-4.947113487115154d-2*rhoa*t1 3030 1 51*t60*wght-t145*t62+t345)+t344+t343+Cmat3(iq,D3_RA_GAA_G 3031 2 AB) 3032 Cmat3(iq,D3_RA_GAA_GBB) = t342+Cmat3(iq,D3_RA_GAA_GBB) 3033 Cmat3(iq,D3_RA_GAB_GAB) = t63*(-4.947113487115154d-2*rhoa*t1 3034 1 51*t62*wght-4.947113487115154d-2*rhoa*t162*t57*wght-t152* 3035 2 t62)+t32*(4.947113487115154d-2*rhoa*(2.7178044217479824d- 3036 3 1*t128*t2*t27*t56*t61+3.693230437436442d-2*gammaaa*t128*t 3037 4 13*t25*t56*t61+2.154384421837925d-2*gammaaa*t25*t33*t53*t 3038 5 54*t61-1.3589022108739912d-1*t2*t52*t53*t61+1.58538591268 3039 6 6323d-1*t27*t33*t34*t53*t61-2.7178044217479824d-1*gammaaa 3040 7 *t149*t2*t53*t61+5.435608843495965d-1*gammaaa*t128*t150*t 3041 8 2*t27*t61-9.233076093591105d-3*t13*t25*t53*t56+2.50936950 3042 9 334975d-3*gammaaa*t122*t128*t27*t28*t56-8.153413265243947 3043 : d-1*gammaaa*t161*t2*t235*t27*t56-1.3589022108739912d-1*ga 3044 ; mmaaa*t2*t27*t53*(7.465424933257596d-1*t13*t23*t49*t55-2. 3045 < 154384421837925d-2*t28*t33*t54)-1.0771922109189624d-2*t25 3046 = *t30*t33*t54-1.254684751674875d-3*gammaaa*t122*t28*t52*t5 3047 > 3+1.4637988769540203d-3*gammaaa*t229*t27*t28*t33*t53-1.35 3048 ? 89022108739912d-1*t150*t2*t27*t53-1.846615218718221d-2*ga 3049 @ mmaaa*t13*t150*t25*t53+2.7178044217479824d-1*gammaaa*t128 3050 1 *t161*t2*t52-3.170771825372646d-1*gammaaa*t128*t161*t27*t 3051 2 33*t34+1.3589022108739912d-1*t149*t2*t30)*wght+2.47355674 3052 3 3557577d-2*t162*wght)+9.894226974230308d-2*rhoa*t160*t163 3053 4 *t57*wght+Cmat3(iq,D3_RA_GAB_GAB) 3054 Cmat3(iq,D3_RA_GAB_GBB) = t63*(-4.947113487115154d-2*rhoa*t1 3055 1 44*t62*wght-t152*t60+t345)+t344+t343+Cmat3(iq,D3_RA_GAB_G 3056 2 BB) 3057 Cmat3(iq,D3_RA_GBB_GBB) = t342+Cmat3(iq,D3_RA_GBB_GBB) 3058 Cmat3(iq,D3_GAA_GAA_GAA) = t347+Cmat3(iq,D3_GAA_GAA_GAA) 3059 Cmat3(iq,D3_GAA_GAA_GAB) = t350+Cmat3(iq,D3_GAA_GAA_GAB) 3060 Cmat3(iq,D3_GAA_GAA_GBB) = t347+Cmat3(iq,D3_GAA_GAA_GBB) 3061 Cmat3(iq,D3_GAA_GAB_GAB) = t63*(-9.894226974230308d-2*rhoa*t 3062 1 159*t62*wght-4.947113487115154d-2*rhoa*t162*t60*wght)+4.9 3063 2 47113487115154d-2*rhoa*t32*(2.7178044217479824d-1*t128*t2 3064 3 *t27*t59*t61+3.693230437436442d-2*gammaaa*t128*t13*t25*t5 3065 4 9*t61-9.233076093591105d-3*t13*t25*t53*t61+2.509369503349 3066 5 75d-3*gammaaa*t122*t128*t27*t28*t61-8.153413265243947d-1* 3067 6 gammaaa*t161*t2*t235*t27*t59-1.278745412250654d-4*gammaaa 3068 7 *t346*t53*t55-9.410135637561562d-4*t122*t27*t28*t53+t349+ 3069 8 t348+6.794511054369956d-2*t128*t161*t2*t27+9.233076093591 3070 9 105d-3*gammaaa*t128*t13*t161*t25)*wght+9.894226974230308d 3071 : -2*rhoa*t160*t163*t60*wght+Cmat3(iq,D3_GAA_GAB_GAB) 3072 Cmat3(iq,D3_GAA_GAB_GBB) = t350+Cmat3(iq,D3_GAA_GAB_GBB) 3073 Cmat3(iq,D3_GAB_GAB_GAB) = -1.4841340461345462d-1*rhoa*t162* 3074 1 t62*t63*wght+9.894226974230308d-2*rhoa*t163*t62**3*wght+4 3075 2 .947113487115154d-2*rhoa*t32*(-8.153413265243947d-1*gamma 3076 3 aa*t2*t235*t27*t61**3-2.7699228280773314d-2*t13*t25*t53*t 3077 4 61+7.52810851004925d-3*gammaaa*t122*t128*t27*t28*t61-2.55 3078 5 7490824501308d-4*gammaaa*t346*t53*t55-1.8820271275123124d 3079 6 -3*t122*t27*t28*t53+4.0767066326219736d-1*t128*t161*t2*t2 3080 7 7+5.539845656154663d-2*gammaaa*t128*t13*t161*t25)*wght+Cm 3081 8 at3(iq,D3_GAB_GAB_GAB) 3082 endif ! rhoa.gt.tol_rho 3083 else ! ipol.eq.1 3084 rhoa = rho(iq,R_A) 3085 rhob = rho(iq,R_B) 3086 gammaaa = rgamma(iq,G_AA) 3087 gammaab = rgamma(iq,G_AB) 3088 gammabb = rgamma(iq,G_BB) 3089 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 3090 t1 = rhob+rhoa 3091 t2 = rhoa-rhob 3092 t3 = 1/t1 3093 t4 = 1.0d+0-t2*t3 3094 t5 = t4**6.666666666666666d-1 3095 t6 = t2*t3+1.0d+0 3096 t7 = t6**6.666666666666666d-1 3097 t8 = 5.0d-1*t7+5.0d-1*t5 3098 t9 = t8**3.0d+0 3099 t10 = gammabb+2.0d+0*gammaab+gammaaa 3100 t11 = t1**1.1666666666666667d+0 3101 t12 = 1/t11**2.0d+0 3102 t13 = t8**2.0d+0 3103 t14 = 1/t13 3104 t15 = 1/t9 3105 t16 = t1**3.333333333333333d-1 3106 t17 = t16**5.0d-1 3107 t18 = 1/t17 3108 t19 = 1.5752466357994865d+0*t18 3109 t20 = t19+3.72744d+0 3110 t21 = atan(6.15199081975908d+0/t20) 3111 t22 = 7.876233178997433d-1*t18 3112 t23 = t22+1.0498d-1 3113 t24 = t23**2 3114 t25 = 1/t16 3115 t26 = 6.203504908994001d-1*t25 3116 t27 = t26+2.935818660072219d+0*t18+1.29352d+1 3117 t28 = abs(t27) 3118 t29 = 1/t28 3119 t30 = log(1.0d+0*t24*t29) 3120 t31 = abs(t25) 3121 t32 = log(6.203504908994001d-1*t29*t31) 3122 t33 = t4**1.3333333333333333d+0 3123 t34 = t6**1.3333333333333333d+0 3124 t35 = t34+t33-2.0d+0 3125 t36 = t19+1.13107d+0 3126 t37 = atan(7.123108917818117d+0/t36) 3127 t38 = t22+4.7584000000000004d-3 3128 t39 = t38**2 3129 t40 = t26+8.908571061768626d-1*t18+1.30045d+1 3130 t41 = abs(t40) 3131 t42 = 1/t41 3132 t43 = log(1.0d+0*t39*t42) 3133 t44 = log(6.203504908994001d-1*t31*t42) 3134 t45 = t2**4 3135 t46 = 1/t1**4 3136 t47 = t19+7.06042d+0 3137 t48 = t22+3.25d-1 3138 t49 = t48**2 3139 t50 = t26+5.560951426165704d+0*t18+1.8057800000000002d+1 3140 t51 = abs(t50) 3141 t52 = 1/t51 3142 t53 = 1.709920934161365d+0*(2.2478670955426108d-3*log(1.0d+0 3143 1 *t49*t52)+1.554535d-2*log(6.203504908994001d-1*t31*t52)+5 3144 2 .249139316978092d-2*atan(4.7309269095601136d+0/t47)-3.109 3145 3 07d-2*t32-9.690227711544375d-4*t30-3.8783294878113006d-2* 3146 4 t21)+1.688686394038963d-2*t44+6.991732350764465d-6*t43+5. 3147 5 365091848883603d-3*t37 3148 t54 = t45*t46*t53-1.688686394038963d-2*t44-6.991732350764465 3149 1 d-6*t43-5.365091848883603d-3*t37 3150 t55 = 1.1250000000000002d+0*t35*t54+3.10907d-2*t32+9.6902277 3151 1 11544375d-4*t30+3.8783294878113006d-2*t21 3152 t56 = exp(-4.0427615117563703d+1*t15*t55) 3153 t57 = t56-1.0d+0 3154 t58 = 1/t57 3155 t59 = 1.7121095002288234d-1*t10*t12*t14*t58 3156 t60 = t59+1.0d+0 3157 t61 = t10**2.0d+0 3158 t62 = 1/t11**4.0d+0 3159 t63 = 1/t8**4.0d+0 3160 t64 = 1/t57**2.0d+0 3161 t65 = 2.931318940773791d-2*t61*t62*t63*t64+t59+1.0d+0 3162 t66 = 1/t65 3163 t67 = 1.7121095002288234d-1*t10*t12*t14*t60*t66+1.0d+0 3164 t68 = log(t67) 3165 t69 = 1/t1**2 3166 t70 = t2*t69 3167 t71 = -t3 3168 t72 = t71+t70 3169 t73 = t4**3.333333333333333d-1 3170 t74 = 1/t73 3171 t75 = -t2*t69 3172 t76 = t75+t3 3173 t77 = t6**3.333333333333333d-1 3174 t78 = 1/t77 3175 t79 = 3.333333333333333d-1*t76*t78+3.333333333333333d-1*t72* 3176 1 t74 3177 t80 = 2.473556743557577d-2*t68*t9*wght 3178 t81 = 1/t67 3179 t82 = t1**1.6666666666666674d-1 3180 t83 = 1/t11**3.0d+0 3181 t84 = -3.994922167200588d-1*t10*t14*t60*t66*t82*t83 3182 t85 = -3.4242190004576467d-1*t10*t12*t15*t58*t79 3183 t86 = -3.994922167200588d-1*t10*t14*t58*t82*t83 3184 t87 = 1/t57**2 3185 t88 = 1/t1**6.666666666666667d-1 3186 t89 = 1/t17**3 3187 t90 = 1/t20**2 3188 t91 = 3.784699104639999d+1*t90+1 3189 t92 = 1/t91 3190 t93 = 6.264085709464389d-2*t88*t89*t90*t92 3191 t94 = 1/t24 3192 t95 = -2.067834969664667d-1/t1**1.3333333333333333d+0 3193 t96 = t95-4.8930311001203647d-1*t88*t89 3194 t97 = 1/t27 3195 t98 = -1.0d+0*t24*t29*t96*t97-2.625411059665811d-1*t23*t29*t 3196 1 88*t89 3197 t99 = 9.690227711544375d-4*t28*t94*t98 3198 t100 = 1/t31 3199 t101 = 1/t1**1.6666666666666666d+0 3200 t102 = -6.203504908994001d-1*t29*t31*t96*t97-2.0678349696646 3201 1 67d-1*t100*t101*t29 3202 t103 = 5.011795824473985d-2*t100*t102*t28 3203 t104 = 1/t36**2 3204 t105 = 5.07386806551d+1*t104+1 3205 t106 = 1/t105 3206 t107 = -1.0033305979455584d-2*t104*t106*t88*t89 3207 t108 = 1/t39 3208 t109 = t95-1.4847618436281043d-1*t88*t89 3209 t110 = 1/t40 3210 t111 = -2.625411059665811d-1*t38*t42*t88*t89-1.0d+0*t109*t11 3211 1 0*t39*t42 3212 t112 = -6.991732350764465d-6*t108*t111*t41 3213 t113 = -6.203504908994001d-1*t109*t110*t31*t42-2.06783496966 3214 1 4667d-1*t100*t101*t42 3215 t114 = -2.722148880047894d-2*t100*t113*t41 3216 t115 = 1/t47**2 3217 t116 = 2.238166942360001d+1*t115+1 3218 t117 = 1/t116 3219 t118 = 1/t49 3220 t119 = t95-9.26825237694284d-1*t88*t89 3221 t120 = 1/t50 3222 t121 = -2.625411059665811d-1*t48*t52*t88*t89-1.0d+0*t119*t12 3223 1 0*t49*t52 3224 t122 = -6.203504908994001d-1*t119*t120*t31*t52-2.06783496966 3225 1 4667d-1*t100*t101*t52 3226 t123 = 1.709920934161365d+0*(-9.690227711544375d-4*t28*t94*t 3227 1 98-6.264085709464389d-2*t88*t89*t90*t92+6.519760588836059 3228 2 d-2*t115*t117*t88*t89+2.5058979122369923d-2*t100*t122*t51 3229 3 +2.2478670955426108d-3*t118*t121*t51-5.011795824473985d-2 3230 4 *t100*t102*t28)+1.0033305979455584d-2*t104*t106*t88*t89+2 3231 5 .722148880047894d-2*t100*t113*t41+6.991732350764465d-6*t1 3232 6 08*t111*t41 3233 t124 = t123*t45*t46 3234 t125 = 1/t1**5 3235 t126 = -4*t125*t45*t53 3236 t127 = t2**3 3237 t128 = 4*t127*t46*t53+t126+t124+t114+t112+t107 3238 t129 = 1.3333333333333333d+0*t76*t77+1.3333333333333333d+0*t 3239 1 72*t73 3240 t130 = t99+t93+1.1250000000000002d+0*t129*t54+1.125000000000 3241 1 0002d+0*t128*t35+t103 3242 t131 = 1.2128284535269111d+2*t55*t63*t79-4.0427615117563703d 3243 1 +1*t130*t15 3244 t132 = -1.7121095002288234d-1*t10*t12*t131*t14*t56*t87 3245 t133 = t86+t85+t132 3246 t134 = 1/t65**2 3247 t135 = 1/t8**5.0d+0 3248 t136 = 1/t11**5.0d+0 3249 t137 = -1.3679488390277694d-1*t136*t61*t63*t64*t82 3250 t138 = 1/t57**3.0d+0 3251 t139 = t86+t85-1.1725275763095165d-1*t135*t61*t62*t64*t79-5. 3252 1 862637881547582d-2*t131*t138*t56*t61*t62*t63+t137+t132 3253 t140 = t84-3.4242190004576467d-1*t10*t12*t15*t60*t66*t79+1.7 3254 1 121095002288234d-1*t10*t12*t133*t14*t66-1.712109500228823 3255 2 4d-1*t10*t12*t134*t139*t14*t60 3256 t141 = t70+t3 3257 t142 = t75+t71 3258 t143 = 3.333333333333333d-1*t142*t78+3.333333333333333d-1*t1 3259 1 41*t74 3260 t144 = -3.4242190004576467d-1*t10*t12*t143*t15*t58 3261 t145 = -4*t127*t46*t53+t126+t124+t114+t112+t107 3262 t146 = 1.3333333333333333d+0*t142*t77+1.3333333333333333d+0* 3263 1 t141*t73 3264 t147 = t99+t93+1.1250000000000002d+0*t146*t54+1.125000000000 3265 1 0002d+0*t145*t35+t103 3266 t148 = 1.2128284535269111d+2*t143*t55*t63-4.0427615117563703 3267 1 d+1*t147*t15 3268 t149 = -1.7121095002288234d-1*t10*t12*t14*t148*t56*t87 3269 t150 = t86+t149+t144 3270 t151 = t86-1.1725275763095165d-1*t135*t143*t61*t62*t64-5.862 3271 1 637881547582d-2*t138*t148*t56*t61*t62*t63+t149+t144+t137 3272 t152 = t84-3.4242190004576467d-1*t10*t12*t143*t15*t60*t66+1. 3273 1 7121095002288234d-1*t10*t12*t14*t150*t66-1.71210950022882 3274 2 34d-1*t10*t12*t134*t14*t151*t60 3275 t153 = 5.862637881547582d-2*t10*t62*t63*t64+1.71210950022882 3276 1 34d-1*t12*t14*t58 3277 t154 = 2.931318940773791d-2*t10*t58*t62*t63*t66+1.7121095002 3278 1 288234d-1*t12*t14*t60*t66-1.7121095002288234d-1*t10*t12*t 3279 2 134*t14*t153*t60 3280 t155 = 2.473556743557577d-2*t1*t154*t81*t9*wght 3281 t156 = 1.1725275763095165d-1*t10*t62*t63*t64+3.4242190004576 3282 1 467d-1*t12*t14*t58 3283 t157 = 5.862637881547582d-2*t10*t58*t62*t63*t66+3.4242190004 3284 1 576467d-1*t12*t14*t60*t66-1.7121095002288234d-1*t10*t12*t 3285 2 134*t14*t156*t60 3286 t158 = t79**2 3287 t159 = t72**2 3288 t160 = 1/t33 3289 t161 = 1/t1**3 3290 t162 = -2*t161*t2 3291 t163 = 2*t69 3292 t164 = t163+t162 3293 t165 = t76**2 3294 t166 = 1/t34 3295 t167 = 2*t161*t2 3296 t168 = -2*t69 3297 t169 = t168+t167 3298 t170 = 3.333333333333333d-1*t169*t78+3.333333333333333d-1*t1 3299 1 64*t74-1.111111111111111d-1*t165*t166-1.111111111111111d- 3300 2 1*t159*t160 3301 t171 = 1/t67**2 3302 t172 = t140**2 3303 t173 = t1**3.333333333333335d-1 3304 t174 = 1.398222758520206d+0*t10*t14*t173*t60*t62*t66 3305 t175 = 1/t1**8.333333333333333d-1 3306 t176 = -6.658203612000984d-2*t10*t14*t175*t60*t66*t83 3307 t177 = 1/t65**3 3308 t178 = t139**2 3309 t179 = 1.027265700137294d+0*t10*t12*t158*t58*t63 3310 t180 = -3.4242190004576467d-1*t10*t12*t15*t170*t58 3311 t181 = 1.5979688668802353d+0*t10*t15*t58*t79*t82*t83 3312 t182 = 1.398222758520206d+0*t10*t14*t173*t58*t62 3313 t183 = -6.658203612000984d-2*t10*t14*t175*t58*t83 3314 t184 = exp(-8.085523023512741d+1*t15*t55) 3315 t185 = 1/t57**3 3316 t186 = t131**2 3317 t187 = 3.4242190004576467d-1*t10*t12*t14*t184*t185*t186 3318 t188 = -1.7121095002288234d-1*t10*t12*t14*t186*t56*t87 3319 t189 = 1/t1**2.3333333333333334d+0 3320 t190 = 1/t20**5 3321 t191 = 1/t91**2 3322 t192 = -1.2448480831567728d+0*t189*t190*t191 3323 t193 = 1/t20**3 3324 t194 = 3.289159980064472d-2*t189*t193*t92 3325 t195 = 1/t1**1.3333333333333336d+0 3326 t196 = 1/t17**5 3327 t197 = -3.1320428547321943d-2*t195*t196*t90*t92 3328 t198 = 1/t1**1.6666666666666669d+0 3329 t199 = -4.176057139642926d-2*t198*t89*t90*t92 3330 t200 = 9.690227711544375d-4*t27*t29*t94*t96*t98 3331 t201 = 5.011795824473985d-2*t100*t102*t27*t29*t96 3332 t202 = t96**2 3333 t203 = 1/t27**2 3334 t204 = 2.7571132928862224d-1/t1**2.333333333333333d+0 3335 t205 = 3.262020733413577d-1*t198*t89+t204+2.4465155500601823 3336 1 d-1*t195*t196 3337 t206 = 5.250822119331622d-1*t23*t29*t88*t89*t96*t97-1.0d+0*t 3338 1 205*t24*t29*t97+1.7502740397772074d-1*t198*t23*t29*t89+2. 3339 2 0d+0*t202*t203*t24*t29+1.3127055298329054d-1*t195*t196*t2 3340 3 3*t29+3.446391616107778d-2*t189*t29 3341 t207 = 9.690227711544375d-4*t206*t28*t94 3342 t208 = 1/t23**3 3343 t209 = 2.544083100456872d-4*t208*t28*t88*t89*t98 3344 t210 = 1/t1**2.6666666666666666d+0 3345 t211 = 4.135669939329334d-1*t100*t101*t29*t96*t97-6.20350490 3346 1 8994001d-1*t205*t29*t31*t97+1.2407009817988002d+0*t202*t2 3347 2 03*t29*t31+2.7571132928862224d-1*t100*t210*t29 3348 t212 = 5.011795824473985d-2*t100*t211*t28 3349 t213 = 1/t1**9.999999999999999d-1 3350 t214 = 1.670598608157995d-2*t100*t102*t213*t28 3351 t215 = 1/t36**5 3352 t216 = 1/t105**2 3353 t217 = 2.6730712388370664d-1*t189*t215*t216 3354 t218 = 1/t36**3 3355 t219 = -5.26831049669476d-3*t106*t189*t218 3356 t220 = 5.016652989727792d-3*t104*t106*t195*t196 3357 t221 = 6.68887065297039d-3*t104*t106*t198*t89 3358 t222 = -6.991732350764465d-6*t108*t109*t111*t40*t42 3359 t223 = -2.722148880047894d-2*t100*t109*t113*t40*t42 3360 t224 = t109**2 3361 t225 = 1/t40**2 3362 t226 = 9.89841229085403d-2*t198*t89+t204+7.423809218140521d- 3363 1 2*t195*t196 3364 t227 = 5.250822119331622d-1*t109*t110*t38*t42*t88*t89+1.7502 3365 1 740397772074d-1*t198*t38*t42*t89-1.0d+0*t110*t226*t39*t42 3366 2 +2.0d+0*t224*t225*t39*t42+1.3127055298329054d-1*t195*t196 3367 3 *t38*t42+3.446391616107778d-2*t189*t42 3368 t228 = -6.991732350764465d-6*t108*t227*t41 3369 t229 = 1/t38**3 3370 t230 = -1.8356171439920266d-6*t111*t229*t41*t88*t89 3371 t231 = -6.203504908994001d-1*t110*t226*t31*t42+1.24070098179 3372 1 88002d+0*t224*t225*t31*t42+2.7571132928862224d-1*t100*t21 3373 2 0*t42+4.135669939329334d-1*t100*t101*t109*t110*t42 3374 t232 = -2.722148880047894d-2*t100*t231*t41 3375 t233 = -9.073829600159646d-3*t100*t113*t213*t41 3376 t234 = -8*t123*t125*t45 3377 t235 = 1/t47**5 3378 t236 = 1/t116**2 3379 t237 = 1/t47**3 3380 t238 = t119**2 3381 t239 = 1/t50**2 3382 t240 = 6.178834917961894d-1*t198*t89+t204+4.63412618847142d- 3383 1 1*t195*t196 3384 t241 = 5.250822119331622d-1*t119*t120*t48*t52*t88*t89+1.7502 3385 1 740397772074d-1*t198*t48*t52*t89-1.0d+0*t120*t240*t49*t52 3386 2 +2.0d+0*t238*t239*t49*t52+1.3127055298329054d-1*t195*t196 3387 3 *t48*t52+3.446391616107778d-2*t189*t52 3388 t242 = 1/t48**3 3389 t243 = -6.203504908994001d-1*t120*t240*t31*t52+1.24070098179 3390 1 88002d+0*t238*t239*t31*t52+2.7571132928862224d-1*t100*t21 3391 2 0*t52+4.135669939329334d-1*t100*t101*t119*t120*t52 3392 t244 = 1.709920934161365d+0*(-9.690227711544375d-4*t27*t29*t 3393 1 94*t96*t98-2.544083100456872d-4*t208*t28*t88*t89*t98-5.01 3394 2 1795824473985d-2*t100*t102*t27*t29*t96-9.690227711544375d 3395 3 -4*t206*t28*t94+4.176057139642926d-2*t198*t89*t90*t92+3.1 3396 4 320428547321943d-2*t195*t196*t90*t92-3.289159980064472d-2 3397 5 *t189*t193*t92+5.901575133296435d-4*t121*t242*t51*t88*t89 3398 6 -4.3465070592240396d-2*t115*t117*t198*t89+2.5058979122369 3399 7 923d-2*t100*t119*t122*t50*t52+2.2478670955426108d-3*t118* 3400 8 t119*t121*t50*t52+2.5058979122369923d-2*t100*t243*t51+2.2 3401 9 478670955426108d-3*t118*t241*t51+8.352993040789976d-3*t10 3402 : 0*t122*t213*t51-1.670598608157995d-2*t100*t102*t213*t28-5 3403 ; .011795824473985d-2*t100*t211*t28+3.4234103112606934d-2*t 3404 < 117*t189*t237-7.662163788798045d-1*t189*t235*t236-3.25988 3405 = 02944180294d-2*t115*t117*t195*t196+1.2448480831567728d+0* 3406 > t189*t190*t191)+1.8356171439920266d-6*t111*t229*t41*t88*t 3407 ? 89-6.68887065297039d-3*t104*t106*t198*t89+2.7221488800478 3408 @ 94d-2*t100*t109*t113*t40*t42+6.991732350764465d-6*t108*t1 3409 1 09*t111*t40*t42+2.722148880047894d-2*t100*t231*t41+6.9917 3410 2 32350764465d-6*t108*t227*t41+9.073829600159646d-3*t100*t1 3411 3 13*t213*t41+5.26831049669476d-3*t106*t189*t218-2.67307123 3412 4 88370664d-1*t189*t215*t216-5.016652989727792d-3*t104*t106 3413 5 *t195*t196 3414 t245 = t244*t45*t46 3415 t246 = 1/t1**6 3416 t247 = 20*t246*t45*t53 3417 t248 = t2**2 3418 t249 = 12*t248*t46*t53 3419 t250 = -32*t125*t127*t53+8*t123*t127*t46+t249+t247+t245+t234 3420 1 +t233+t232+t230+t228+t223+t222+t221+t220+t219+t217 3421 t251 = 1/t5 3422 t252 = 1/t7 3423 t253 = 1.3333333333333333d+0*t169*t77+1.3333333333333333d+0* 3424 1 t164*t73+4.444444444444444d-1*t165*t252+4.444444444444444 3425 2 d-1*t159*t251 3426 t254 = 1.1250000000000002d+0*t253*t54+1.1250000000000002d+0* 3427 1 t250*t35+t214+t212+t209+t207+t201+t200+t199+t197+t194+t19 3428 2 2+2.2500000000000003d+0*t128*t129 3429 t255 = 2.4256569070538223d+2*t130*t63*t79+1.2128284535269111 3430 1 d+2*t170*t55*t63-4.8513138141076445d+2*t135*t158*t55-4.04 3431 2 27615117563703d+1*t15*t254 3432 t256 = -1.7121095002288234d-1*t10*t12*t14*t255*t56*t87 3433 t257 = 6.848438000915293d-1*t10*t12*t131*t15*t56*t79*t87 3434 t258 = 7.989844334401176d-1*t10*t131*t14*t56*t82*t83*t87 3435 t259 = t258+t257+t256+t188+t187+t183+t182+t181+t180+t179 3436 t260 = 1/t8**6.0d+0 3437 t261 = 1/t11**6.0d+0 3438 t262 = 7.979701560995323d-1*t173*t261*t61*t63*t64 3439 t263 = -2.2799147317129503d-2*t136*t175*t61*t63*t64 3440 t264 = 1/t57**4.0d+0 3441 t265 = 1.0943590712222155d+0*t135*t136*t61*t64*t79*t82+5.471 3442 1 795356111078d-1*t131*t136*t138*t56*t61*t63*t82+4.69011030 3443 2 5238066d-1*t131*t135*t138*t56*t61*t62*t79+5.8626378815475 3444 3 82d-1*t158*t260*t61*t62*t64-1.1725275763095165d-1*t135*t1 3445 4 70*t61*t62*t64-5.862637881547582d-2*t138*t255*t56*t61*t62 3446 5 *t63-5.862637881547582d-2*t138*t186*t56*t61*t62*t63+1.758 3447 6 7913644642747d-1*t184*t186*t264*t61*t62*t63+t263+t262+t25 3448 7 8+t257+t256+t188+t187+t183+t182+t181+t180+t179 3449 t266 = 1.5979688668802353d+0*t10*t15*t60*t66*t79*t82*t83-7.9 3450 1 89844334401176d-1*t10*t133*t14*t66*t82*t83+7.989844334401 3451 2 176d-1*t10*t134*t139*t14*t60*t82*t83-6.848438000915293d-1 3452 3 *t10*t12*t133*t15*t66*t79+6.848438000915293d-1*t10*t12*t1 3453 4 34*t139*t15*t60*t79+1.027265700137294d+0*t10*t12*t158*t60 3454 5 *t63*t66-3.4242190004576467d-1*t10*t12*t15*t170*t60*t66+1 3455 6 .7121095002288234d-1*t10*t12*t14*t259*t66-1.7121095002288 3456 7 234d-1*t10*t12*t134*t14*t265*t60+3.4242190004576467d-1*t1 3457 8 0*t12*t14*t177*t178*t60+t176+t174-3.4242190004576467d-1*t 3458 9 10*t12*t133*t134*t139*t14 3459 t267 = 2.473556743557577d-2*t1*t266*t9*wght+4.94711348711515 3460 1 4d-2*t140*t9*wght+1.4841340461345462d-1*t1*t13*t140*t79*w 3461 2 ght 3462 t268 = 6.666666666666666d-1*t161*t2*t78-1.111111111111111d-1 3463 1 *t142*t166*t76-6.666666666666666d-1*t161*t2*t74-1.1111111 3464 2 11111111d-1*t141*t160*t72 3465 t269 = 1.027265700137294d+0*t10*t12*t143*t58*t63*t79 3466 t270 = -3.4242190004576467d-1*t10*t12*t15*t268*t58 3467 t271 = 7.989844334401176d-1*t10*t143*t15*t58*t82*t83 3468 t272 = 7.989844334401176d-1*t10*t15*t58*t79*t82*t83 3469 t273 = -12*t248*t46*t53+t247+t245+t234+t233+t232+t230+t228+t 3470 1 223+t222+t221+t220+t219+t217 3471 t274 = 2.6666666666666666d+0*t161*t2*t77+4.444444444444444d- 3472 1 1*t142*t252*t76-2.6666666666666666d+0*t161*t2*t73+4.44444 3473 2 4444444444d-1*t141*t251*t72 3474 t275 = 1.1250000000000002d+0*t274*t54+1.1250000000000002d+0* 3475 1 t273*t35+t214+t212+t209+t207+t201+t200+t199+t197+t194+t19 3476 2 2+1.1250000000000002d+0*t128*t146+1.1250000000000002d+0*t 3477 3 129*t145 3478 t276 = 1.2128284535269111d+2*t147*t63*t79-4.8513138141076445 3479 1 d+2*t135*t143*t55*t79+1.2128284535269111d+2*t268*t55*t63+ 3480 2 1.2128284535269111d+2*t130*t143*t63-4.0427615117563703d+1 3481 3 *t15*t275 3482 t277 = -1.7121095002288234d-1*t10*t12*t14*t276*t56*t87 3483 t278 = 3.4242190004576467d-1*t10*t12*t148*t15*t56*t79*t87 3484 t279 = 3.994922167200588d-1*t10*t14*t148*t56*t82*t83*t87 3485 t280 = 3.4242190004576467d-1*t10*t12*t131*t143*t15*t56*t87 3486 t281 = 3.994922167200588d-1*t10*t131*t14*t56*t82*t83*t87 3487 t282 = 3.4242190004576467d-1*t10*t12*t131*t14*t148*t184*t185 3488 t283 = -1.7121095002288234d-1*t10*t12*t131*t14*t148*t56*t87 3489 t284 = t283+t282+t281+t280+t279+t278+t277+t272+t271+t270+t26 3490 1 9+t183+t182 3491 t285 = 5.471795356111078d-1*t135*t136*t61*t64*t79*t82+5.4717 3492 1 95356111078d-1*t135*t136*t143*t61*t64*t82+2.7358976780555 3493 2 39d-1*t136*t138*t148*t56*t61*t63*t82+2.735897678055539d-1 3494 3 *t131*t136*t138*t56*t61*t63*t82+5.862637881547582d-1*t143 3495 4 *t260*t61*t62*t64*t79+2.345055152619033d-1*t135*t138*t148 3496 5 *t56*t61*t62*t79-1.1725275763095165d-1*t135*t268*t61*t62* 3497 6 t64-5.862637881547582d-2*t138*t276*t56*t61*t62*t63-5.8626 3498 7 37881547582d-2*t131*t138*t148*t56*t61*t62*t63+1.758791364 3499 8 4642747d-1*t131*t148*t184*t264*t61*t62*t63+2.345055152619 3500 9 033d-1*t131*t135*t138*t143*t56*t61*t62+t283+t282+t281+t28 3501 : 0+t279+t278+t277+t272+t271+t270+t269+t263+t262+t183+t182 3502 t286 = 7.989844334401176d-1*t10*t15*t60*t66*t79*t82*t83+7.98 3503 1 9844334401176d-1*t10*t143*t15*t60*t66*t82*t83-3.994922167 3504 2 200588d-1*t10*t14*t150*t66*t82*t83-3.994922167200588d-1*t 3505 3 10*t133*t14*t66*t82*t83+3.994922167200588d-1*t10*t134*t14 3506 4 *t151*t60*t82*t83+3.994922167200588d-1*t10*t134*t139*t14* 3507 5 t60*t82*t83+1.027265700137294d+0*t10*t12*t143*t60*t63*t66 3508 6 *t79-3.4242190004576467d-1*t10*t12*t15*t150*t66*t79+3.424 3509 7 2190004576467d-1*t10*t12*t134*t15*t151*t60*t79-3.42421900 3510 8 04576467d-1*t10*t12*t15*t268*t60*t66+1.7121095002288234d- 3511 9 1*t10*t12*t14*t284*t66-3.4242190004576467d-1*t10*t12*t133 3512 : *t143*t15*t66-1.7121095002288234d-1*t10*t12*t134*t14*t285 3513 ; *t60+3.4242190004576467d-1*t10*t12*t139*t14*t151*t177*t60 3514 < +3.4242190004576467d-1*t10*t12*t134*t139*t143*t15*t60+t17 3515 = 6+t174-1.7121095002288234d-1*t10*t12*t133*t134*t14*t151-1 3516 > .7121095002288234d-1*t10*t12*t134*t139*t14*t150 3517 t287 = 2.473556743557577d-2*t1*t286*t9*wght+2.47355674355757 3518 1 7d-2*t152*t9*wght+2.473556743557577d-2*t140*t9*wght+7.420 3519 2 670230672731d-2*t1*t13*t152*t79*wght+7.420670230672731d-2 3520 3 *t1*t13*t140*t143*wght 3521 t288 = t143**2 3522 t289 = t141**2 3523 t290 = t168+t162 3524 t291 = t142**2 3525 t292 = t167+t163 3526 t293 = 3.333333333333333d-1*t292*t78+3.333333333333333d-1*t2 3527 1 90*t74-1.111111111111111d-1*t166*t291-1.111111111111111d- 3528 2 1*t160*t289 3529 t294 = t152**2 3530 t295 = t151**2 3531 t296 = 1.027265700137294d+0*t10*t12*t288*t58*t63 3532 t297 = -3.4242190004576467d-1*t10*t12*t15*t293*t58 3533 t298 = 1.5979688668802353d+0*t10*t143*t15*t58*t82*t83 3534 t299 = t148**2 3535 t300 = 3.4242190004576467d-1*t10*t12*t14*t184*t185*t299 3536 t301 = -1.7121095002288234d-1*t10*t12*t14*t299*t56*t87 3537 t302 = 32*t125*t127*t53-8*t123*t127*t46+t249+t247+t245+t234+ 3538 1 t233+t232+t230+t228+t223+t222+t221+t220+t219+t217 3539 t303 = 1.3333333333333333d+0*t292*t77+1.3333333333333333d+0* 3540 1 t290*t73+4.444444444444444d-1*t252*t291+4.444444444444444 3541 2 d-1*t251*t289 3542 t304 = 1.1250000000000002d+0*t303*t54+1.1250000000000002d+0* 3543 1 t302*t35+t214+t212+t209+t207+t201+t200+t199+t197+t194+t19 3544 2 2+2.2500000000000003d+0*t145*t146 3545 t305 = 1.2128284535269111d+2*t293*t55*t63+2.4256569070538223 3546 1 d+2*t143*t147*t63-4.8513138141076445d+2*t135*t288*t55-4.0 3547 2 427615117563703d+1*t15*t304 3548 t306 = -1.7121095002288234d-1*t10*t12*t14*t305*t56*t87 3549 t307 = 6.848438000915293d-1*t10*t12*t143*t148*t15*t56*t87 3550 t308 = 7.989844334401176d-1*t10*t14*t148*t56*t82*t83*t87 3551 t309 = t308+t307+t306+t301+t300+t298+t297+t296+t183+t182 3552 t310 = 1.0943590712222155d+0*t135*t136*t143*t61*t64*t82+5.47 3553 1 1795356111078d-1*t136*t138*t148*t56*t61*t63*t82-1.1725275 3554 2 763095165d-1*t135*t293*t61*t62*t64+5.862637881547582d-1*t 3555 3 260*t288*t61*t62*t64-5.862637881547582d-2*t138*t305*t56*t 3556 4 61*t62*t63-5.862637881547582d-2*t138*t299*t56*t61*t62*t63 3557 5 +1.7587913644642747d-1*t184*t264*t299*t61*t62*t63+4.69011 3558 6 0305238066d-1*t135*t138*t143*t148*t56*t61*t62+t308+t307+t 3559 7 306+t301+t300+t298+t297+t296+t263+t262+t183+t182 3560 t311 = 1.5979688668802353d+0*t10*t143*t15*t60*t66*t82*t83-7. 3561 1 989844334401176d-1*t10*t14*t150*t66*t82*t83+7.98984433440 3562 2 1176d-1*t10*t134*t14*t151*t60*t82*t83+1.027265700137294d+ 3563 3 0*t10*t12*t288*t60*t63*t66-3.4242190004576467d-1*t10*t12* 3564 4 t15*t293*t60*t66+1.7121095002288234d-1*t10*t12*t14*t309*t 3565 5 66-6.848438000915293d-1*t10*t12*t143*t15*t150*t66-1.71210 3566 6 95002288234d-1*t10*t12*t134*t14*t310*t60+3.42421900045764 3567 7 67d-1*t10*t12*t14*t177*t295*t60+6.848438000915293d-1*t10* 3568 8 t12*t134*t143*t15*t151*t60+t176+t174-3.4242190004576467d- 3569 9 1*t10*t12*t134*t14*t150*t151 3570 t312 = 2.473556743557577d-2*t1*t311*t9*wght+4.94711348711515 3571 1 4d-2*t152*t9*wght+1.4841340461345462d-1*t1*t13*t143*t152* 3572 2 wght 3573 t313 = 2.473556743557577d-2*t154*t9*wght 3574 t314 = 3.994922167200588d-1*t10*t134*t14*t153*t60*t82*t83 3575 t315 = -3.994922167200588d-1*t14*t60*t66*t82*t83 3576 t316 = -6.839744195138847d-2*t10*t136*t58*t63*t66*t82 3577 t317 = -3.4242190004576467d-1*t12*t15*t58*t79 3578 t318 = -3.994922167200588d-1*t14*t58*t82*t83 3579 t319 = -1.7121095002288234d-1*t12*t131*t14*t56*t87 3580 t320 = t319+t318+t317 3581 t321 = -2.735897678055539d-1*t10*t136*t63*t64*t82 3582 t322 = -2.345055152619033d-1*t10*t135*t62*t64*t79-1.17252757 3583 1 63095165d-1*t10*t131*t138*t56*t62*t63+t321+t319+t318+t317 3584 t323 = -5.862637881547582d-2*t10*t135*t58*t62*t66*t79-3.4242 3585 1 190004576467d-1*t12*t15*t60*t66*t79+3.4242190004576467d-1 3586 2 *t10*t12*t134*t15*t153*t60*t79+1.7121095002288234d-1*t10* 3587 3 t12*t14*t320*t66+1.7121095002288234d-1*t12*t133*t14*t66-2 3588 4 .931318940773791d-2*t10*t134*t139*t58*t62*t63-1.712109500 3589 5 2288234d-1*t10*t12*t134*t14*t322*t60+3.4242190004576467d- 3590 6 1*t10*t12*t139*t14*t153*t177*t60-1.7121095002288234d-1*t1 3591 7 2*t134*t139*t14*t60+t316+t315+t314-1.7121095002288234d-1* 3592 8 t10*t12*t133*t134*t14*t153 3593 t324 = 2.473556743557577d-2*t1*t323*t9*wght+7.42067023067273 3594 1 1d-2*t1*t13*t154*t79*wght+t313 3595 t325 = t324*t81-2.473556743557577d-2*t1*t140*t154*t171*t9*wg 3596 1 ht 3597 t326 = 2.473556743557577d-2*t157*t9*wght 3598 t327 = 3.994922167200588d-1*t10*t134*t14*t156*t60*t82*t83 3599 t328 = -7.989844334401176d-1*t14*t60*t66*t82*t83 3600 t329 = -1.3679488390277694d-1*t10*t136*t58*t63*t66*t82 3601 t330 = -6.848438000915293d-1*t12*t15*t58*t79 3602 t331 = -7.989844334401176d-1*t14*t58*t82*t83 3603 t332 = -3.4242190004576467d-1*t12*t131*t14*t56*t87 3604 t333 = t332+t331+t330 3605 t334 = -5.471795356111078d-1*t10*t136*t63*t64*t82 3606 t335 = -4.690110305238066d-1*t10*t135*t62*t64*t79-2.34505515 3607 1 2619033d-1*t10*t131*t138*t56*t62*t63+t334+t332+t331+t330 3608 t336 = -1.1725275763095165d-1*t10*t135*t58*t62*t66*t79-6.848 3609 1 438000915293d-1*t12*t15*t60*t66*t79+3.4242190004576467d-1 3610 2 *t10*t12*t134*t15*t156*t60*t79+1.7121095002288234d-1*t10* 3611 3 t12*t14*t333*t66+3.4242190004576467d-1*t12*t133*t14*t66-5 3612 4 .862637881547582d-2*t10*t134*t139*t58*t62*t63-1.712109500 3613 5 2288234d-1*t10*t12*t134*t14*t335*t60+3.4242190004576467d- 3614 6 1*t10*t12*t139*t14*t156*t177*t60-3.4242190004576467d-1*t1 3615 7 2*t134*t139*t14*t60+t329+t328+t327-1.7121095002288234d-1* 3616 8 t10*t12*t133*t134*t14*t156 3617 t337 = 2.473556743557577d-2*t1*t336*t9*wght+7.42067023067273 3618 1 1d-2*t1*t13*t157*t79*wght+t326 3619 t338 = -3.4242190004576467d-1*t12*t143*t15*t58 3620 t339 = -1.7121095002288234d-1*t12*t14*t148*t56*t87 3621 t340 = t339+t338+t318 3622 t341 = -2.345055152619033d-1*t10*t135*t143*t62*t64-1.1725275 3623 1 763095165d-1*t10*t138*t148*t56*t62*t63+t339+t338+t321+t31 3624 2 8 3625 t342 = -5.862637881547582d-2*t10*t135*t143*t58*t62*t66-3.424 3626 1 2190004576467d-1*t12*t143*t15*t60*t66+1.7121095002288234d 3627 2 -1*t10*t12*t14*t340*t66+1.7121095002288234d-1*t12*t14*t15 3628 3 0*t66-2.931318940773791d-2*t10*t134*t151*t58*t62*t63-1.71 3629 4 21095002288234d-1*t10*t12*t134*t14*t341*t60+3.42421900045 3630 5 76467d-1*t10*t12*t14*t151*t153*t177*t60+3.424219000457646 3631 6 7d-1*t10*t12*t134*t143*t15*t153*t60-1.7121095002288234d-1 3632 7 *t12*t134*t14*t151*t60+t316+t315+t314-1.7121095002288234d 3633 8 -1*t10*t12*t134*t14*t150*t153 3634 t343 = 2.473556743557577d-2*t1*t342*t9*wght+7.42067023067273 3635 1 1d-2*t1*t13*t143*t154*wght+t313 3636 t344 = t343*t81-2.473556743557577d-2*t1*t152*t154*t171*t9*wg 3637 1 ht 3638 t345 = -6.848438000915293d-1*t12*t143*t15*t58 3639 t346 = -3.4242190004576467d-1*t12*t14*t148*t56*t87 3640 t347 = t346+t345+t331 3641 t348 = -4.690110305238066d-1*t10*t135*t143*t62*t64-2.3450551 3642 1 52619033d-1*t10*t138*t148*t56*t62*t63+t346+t345+t334+t331 3643 t349 = -1.1725275763095165d-1*t10*t135*t143*t58*t62*t66-6.84 3644 1 8438000915293d-1*t12*t143*t15*t60*t66+1.7121095002288234d 3645 2 -1*t10*t12*t14*t347*t66+3.4242190004576467d-1*t12*t14*t15 3646 3 0*t66-5.862637881547582d-2*t10*t134*t151*t58*t62*t63-1.71 3647 4 21095002288234d-1*t10*t12*t134*t14*t348*t60+3.42421900045 3648 5 76467d-1*t10*t12*t14*t151*t156*t177*t60+3.424219000457646 3649 6 7d-1*t10*t12*t134*t143*t15*t156*t60-3.4242190004576467d-1 3650 7 *t12*t134*t14*t151*t60+t329+t328+t327-1.7121095002288234d 3651 8 -1*t10*t12*t134*t14*t150*t156 3652 t350 = 2.473556743557577d-2*t1*t349*t9*wght+7.42067023067273 3653 1 1d-2*t1*t13*t143*t157*wght+t326 3654 t351 = t154**2 3655 t352 = t153**2 3656 t353 = -3.4242190004576467d-1*t12*t134*t14*t153*t60 3657 t354 = -5.862637881547582d-2*t10*t134*t153*t58*t62*t63 3658 t355 = 5.862637881547582d-2*t58*t62*t63*t66-1.0037478013399d 3659 1 -2*t10*t134*t260*t261*t60*t64+3.4242190004576467d-1*t10*t 3660 2 12*t14*t177*t352*t60+t354+t353 3661 t356 = 2.473556743557577d-2*t1*t355*t81*t9*wght-2.4735567435 3662 1 57577d-2*t1*t171*t351*t9*wght 3663 t357 = 1.1725275763095165d-1*t58*t62*t63*t66-2.0074956026798 3664 1 d-2*t10*t134*t260*t261*t60*t64-2.931318940773791d-2*t10*t 3665 2 134*t156*t58*t62*t63+3.4242190004576467d-1*t10*t12*t14*t1 3666 3 53*t156*t177*t60-1.7121095002288234d-1*t12*t134*t14*t156* 3667 4 t60+t354+t353 3668 t358 = 2.473556743557577d-2*t1*t357*t81*t9*wght-2.4735567435 3669 1 57577d-2*t1*t154*t157*t171*t9*wght 3670 t359 = t157**2 3671 t360 = t156**2 3672 t361 = 2.345055152619033d-1*t58*t62*t63*t66-4.0149912053596d 3673 1 -2*t10*t134*t260*t261*t60*t64-1.1725275763095165d-1*t10*t 3674 2 134*t156*t58*t62*t63+3.4242190004576467d-1*t10*t12*t14*t1 3675 3 77*t360*t60-6.848438000915293d-1*t12*t134*t14*t156*t60 3676 t362 = t79**3 3677 t363 = t72**3 3678 t364 = 1/t4**2.3333333333333334d+0 3679 t365 = 6*t2*t46 3680 t366 = -6*t161 3681 t367 = t366+t365 3682 t368 = t76**3 3683 t369 = 1/t6**2.3333333333333334d+0 3684 t370 = -6*t2*t46 3685 t371 = 6*t161 3686 t372 = t371+t370 3687 t373 = 3.333333333333333d-1*t372*t78-3.333333333333333d-1*t1 3688 1 66*t169*t76+3.333333333333333d-1*t367*t74-3.3333333333333 3689 2 33d-1*t160*t164*t72+1.4814814814814814d-1*t368*t369+1.481 3690 3 4814814814814d-1*t363*t364 3691 t374 = 1/t67**3 3692 t375 = t1**5.000000000000002d-1 3693 t376 = -6.525039539760961d+0*t10*t136*t14*t375*t60*t66 3694 t377 = 1/t1**6.666666666666665d-1 3695 t378 = 6.991113792601032d-1*t10*t14*t377*t60*t62*t66 3696 t379 = 1/t1**1.8333333333333332d+0 3697 t380 = 5.548503010000818d-2*t10*t14*t379*t60*t66*t83 3698 t381 = 1/t65**4 3699 t382 = -4.109062800549176d+0*t10*t12*t135*t362*t58 3700 t383 = 3.081797100411882d+0*t10*t12*t170*t58*t63*t79 3701 t384 = -7.190859900961059d+0*t10*t158*t58*t63*t82*t83 3702 t385 = -3.4242190004576467d-1*t10*t12*t15*t373*t58 3703 t386 = 2.396953300320353d+0*t10*t15*t170*t58*t82*t83 3704 t387 = -8.389336551121236d+0*t10*t15*t173*t58*t62*t79 3705 t388 = 3.9949221672005897d-1*t10*t15*t175*t58*t79*t83 3706 t389 = -6.525039539760961d+0*t10*t136*t14*t375*t58 3707 t390 = 6.991113792601032d-1*t10*t14*t377*t58*t62 3708 t391 = 5.548503010000818d-2*t10*t14*t379*t58*t83 3709 t392 = -2.054531400274588d+0*t10*t12*t15*t184*t185*t186*t79 3710 t393 = -2.396953300320353d+0*t10*t14*t184*t185*t186*t82*t83 3711 t394 = 1.027265700137294d+0*t10*t12*t15*t186*t56*t79*t87 3712 t395 = 1.1984766501601765d+0*t10*t14*t186*t56*t82*t83*t87 3713 t396 = exp(-1.2128284535269111d+2*t15*t55) 3714 t397 = 1/t57**4 3715 t398 = t131**3 3716 t399 = -1.027265700137294d+0*t10*t12*t14*t396*t397*t398 3717 t400 = 3.4242190004576467d-1*t10*t12*t14*t184*t185*t398 3718 t401 = -1.7121095002288234d-1*t10*t12*t14*t398*t56*t87 3719 t402 = 1.027265700137294d+0*t10*t12*t15*t255*t56*t79*t87 3720 t403 = 1.1984766501601765d+0*t10*t14*t255*t56*t82*t83*t87 3721 t404 = -3.081797100411882d+0*t10*t12*t131*t158*t56*t63*t87 3722 t405 = 1.027265700137294d+0*t10*t12*t131*t15*t170*t56*t87 3723 t406 = -4.793906600640706d+0*t10*t131*t15*t56*t79*t82*t83*t8 3724 1 7 3725 t407 = -4.194668275560618d+0*t10*t131*t14*t173*t56*t62*t87 3726 t408 = 1.9974610836002948d-1*t10*t131*t14*t175*t56*t83*t87 3727 t409 = 1.027265700137294d+0*t10*t12*t131*t14*t184*t185*t255 3728 t410 = -5.13632850068647d-1*t10*t12*t131*t14*t255*t56*t87 3729 t411 = 2.4256569070538223d+2*t55*t63*t79-8.085523023512741d+ 3730 1 1*t130*t15 3731 t412 = 3.4242190004576467d-1*t10*t12*t14*t184*t185*t186*t411 3732 t413 = 1/t1**3.0d+0 3733 t414 = 1/t20**8 3734 t415 = 1/t91**3 3735 t416 = 4.947718859586276d+1*t413*t414*t415*t89 3736 t417 = 1/t20**6 3737 t418 = -2.2877665475865033d+0*t191*t413*t417*t89 3738 t419 = 1/t1**3.3333333333333337d+0 3739 t420 = 4.3569682910487045d+0*t190*t191*t419 3740 t421 = 1/t20**4 3741 t422 = 2.590619096601433d-2*t413*t421*t89*t92 3742 t423 = -1.1512059930225654d-1*t193*t419*t92 3743 t424 = 1/t1**2.0d+0 3744 t425 = 1/t17**7 3745 t426 = 2.610035712276828d-2*t424*t425*t90*t92 3746 t427 = 6.26408570946439d-2*t189*t196*t90*t92 3747 t428 = 1/t1**2.666666666666667d+0 3748 t429 = 6.96009523273821d-2*t428*t89*t90*t92 3749 t430 = 1.938045542308875d-3*t206*t27*t29*t94*t96 3750 t431 = 5.088166200913744d-4*t208*t27*t29*t88*t89*t96*t98 3751 t432 = 9.690227711544375d-4*t205*t27*t29*t94*t98 3752 t433 = 1.002359164894797d-1*t100*t211*t27*t29*t96 3753 t434 = 5.011795824473985d-2*t100*t102*t205*t27*t29 3754 t435 = 3.34119721631599d-2*t100*t102*t213*t27*t29*t96 3755 t436 = t96**3 3756 t437 = 1/t27**3 3757 t438 = -6.433264350067851d-1/t1**3.333333333333333d+0 3758 t439 = -5.436701222355962d-1*t428*t89+t438-2.038762958383485 3759 1 1d-1*t424*t425-4.893031100120365d-1*t189*t196 3760 t440 = -5.250822119331622d-1*t198*t23*t29*t89*t96*t97-3.9381 3761 1 165894987163d-1*t195*t196*t23*t29*t96*t97-1.0339174848323 3762 2 335d-1*t189*t29*t96*t97+7.876233178997433d-1*t205*t23*t29 3763 3 *t88*t89*t97-1.0d+0*t24*t29*t439*t97+6.0d+0*t203*t205*t24 3764 4 *t29*t96-1.5752466357994865d+0*t202*t203*t23*t29*t88*t89- 3765 5 2.917123399628679d-1*t23*t29*t428*t89-6.0d+0*t24*t29*t436 3766 6 *t437-1.0939212748607545d-1*t23*t29*t424*t425-1.206237065 3767 7 6377225d-1*t29*t419-2.625411059665811d-1*t189*t196*t23*t2 3768 8 9 3769 t441 = 9.690227711544375d-4*t28*t440*t94 3770 t442 = 5.088166200913744d-4*t206*t208*t28*t88*t89 3771 t443 = 1/t23**4 3772 t444 = 1.0018895862972538d-4*t189*t28*t443*t98 3773 t445 = -1.272041550228436d-4*t195*t196*t208*t28*t98 3774 t446 = -1.696055400304582d-4*t198*t208*t28*t89*t98 3775 t447 = 1/t1**3.6666666666666664d+0 3776 t448 = -8.271339878658668d-1*t100*t210*t29*t96*t97-6.2035049 3777 1 08994001d-1*t29*t31*t439*t97+6.203504908994001d-1*t100*t1 3778 2 01*t205*t29*t97+3.7221029453964005d+0*t203*t205*t29*t31*t 3779 3 96-6.433264350067852d-1*t100*t29*t447-3.7221029453964005d 3780 4 +0*t29*t31*t436*t437-1.2407009817988002d+0*t100*t101*t202 3781 5 *t203*t29 3782 t449 = 5.011795824473985d-2*t100*t28*t448 3783 t450 = 3.34119721631599d-2*t100*t211*t213*t28 3784 t451 = -1.6705986081579946d-2*t100*t102*t28*t424 3785 t452 = 1/t1**1.9999999999999998d+0 3786 t453 = 5.568662027193316d-3*t100*t102*t28*t452 3787 t454 = 1/t4**1.6666666666666669d+0 3788 t455 = 1/t6**1.6666666666666669d+0 3789 t456 = 1/t36**8 3790 t457 = 1/t105**3 3791 t458 = -1.424318138513631d+1*t413*t456*t457*t89 3792 t459 = 1/t36**6 3793 t460 = 4.9125375556021966d-1*t216*t413*t459*t89 3794 t461 = -9.355749335929733d-1*t215*t216*t419 3795 t462 = 1/t36**4 3796 t463 = -4.1494441931327714d-3*t106*t413*t462*t89 3797 t464 = 1.8439086738431665d-2*t106*t218*t419 3798 t465 = -4.180544158106493d-3*t104*t106*t424*t425 3799 t466 = -1.0033305979455585d-2*t104*t106*t189*t196 3800 t467 = -1.114811775495065d-2*t104*t106*t428*t89 3801 t468 = -1.3983464701528928d-5*t108*t109*t227*t40*t42 3802 t469 = -3.671234287984053d-6*t109*t111*t229*t40*t42*t88*t89 3803 t470 = -6.991732350764465d-6*t108*t111*t226*t40*t42 3804 t471 = -5.444297760095788d-2*t100*t109*t231*t40*t42 3805 t472 = -2.722148880047894d-2*t100*t113*t226*t40*t42 3806 t473 = -1.8147659200319294d-2*t100*t109*t113*t213*t40*t42 3807 t474 = t109**3 3808 t475 = 1/t40**3 3809 t476 = -1.649735381809005d-1*t428*t89+t438-6.186507681783768 3810 1 d-2*t424*t425-1.4847618436281043d-1*t189*t196 3811 t477 = 7.876233178997433d-1*t110*t226*t38*t42*t88*t89-1.5752 3812 1 466357994865d+0*t224*t225*t38*t42*t88*t89-2.9171233996286 3813 2 79d-1*t38*t42*t428*t89-5.250822119331622d-1*t109*t110*t19 3814 3 8*t38*t42*t89-1.0d+0*t110*t39*t42*t476-6.0d+0*t39*t42*t47 3815 4 4*t475-1.0939212748607545d-1*t38*t42*t424*t425-1.20623706 3816 5 56377225d-1*t419*t42+6.0d+0*t109*t225*t226*t39*t42-3.9381 3817 6 165894987163d-1*t109*t110*t195*t196*t38*t42-2.62541105966 3818 7 5811d-1*t189*t196*t38*t42-1.0339174848323335d-1*t109*t110 3819 8 *t189*t42 3820 t478 = -6.991732350764465d-6*t108*t41*t477 3821 t479 = -3.671234287984053d-6*t227*t229*t41*t88*t89 3822 t480 = 1/t38**4 3823 t481 = -7.228874326723254d-7*t111*t189*t41*t480 3824 t482 = 9.178085719960132d-7*t111*t195*t196*t229*t41 3825 t483 = 1.2237447626613511d-6*t111*t198*t229*t41*t89 3826 t484 = -6.203504908994001d-1*t110*t31*t42*t476-3.72210294539 3827 1 64005d+0*t31*t42*t474*t475-6.433264350067852d-1*t100*t42* 3828 2 t447+3.7221029453964005d+0*t109*t225*t226*t31*t42+6.20350 3829 3 4908994001d-1*t100*t101*t110*t226*t42-1.2407009817988002d 3830 4 +0*t100*t101*t224*t225*t42-8.271339878658668d-1*t100*t109 3831 5 *t110*t210*t42 3832 t485 = -2.722148880047894d-2*t100*t41*t484 3833 t486 = -1.8147659200319294d-2*t100*t213*t231*t41 3834 t487 = 9.073829600159644d-3*t100*t113*t41*t424 3835 t488 = -3.024609866719882d-3*t100*t113*t41*t452 3836 t489 = 60*t123*t246*t45 3837 t490 = 36*t123*t248*t46 3838 t491 = t119**3 3839 t492 = 1/t50**3 3840 t493 = -1.0298058196603158d+0*t428*t89+t438-3.86177182372618 3841 1 33d-1*t424*t425-9.26825237694284d-1*t189*t196 3842 t494 = t45*t46*(1.709920934161365d+0*(-5.088166200913744d-4* 3843 1 t208*t27*t29*t88*t89*t96*t98-9.690227711544375d-4*t205*t2 3844 2 7*t29*t94*t98+1.696055400304582d-4*t198*t208*t28*t89*t98- 3845 3 1.0018895862972538d-4*t189*t28*t443*t98+1.272041550228436 3846 4 d-4*t195*t196*t208*t28*t98-1.938045542308875d-3*t206*t27* 3847 5 t29*t94*t96-3.34119721631599d-2*t100*t102*t213*t27*t29*t9 3848 6 6-1.002359164894797d-1*t100*t211*t27*t29*t96-9.6902277115 3849 7 44375d-4*t28*t440*t94-6.96009523273821d-2*t428*t89*t90*t9 3850 8 2-2.610035712276828d-2*t424*t425*t90*t92-6.26408570946439 3851 9 d-2*t189*t196*t90*t92-2.590619096601433d-2*t413*t421*t89* 3852 : t92+1.1512059930225654d-1*t193*t419*t92+2.247867095542610 3853 ; 8d-3*t118*t51*(7.876233178997433d-1*t120*t240*t48*t52*t88 3854 < *t89-1.5752466357994865d+0*t238*t239*t48*t52*t88*t89-2.91 3855 = 7123399628679d-1*t428*t48*t52*t89-5.250822119331622d-1*t1 3856 > 19*t120*t198*t48*t52*t89-1.0d+0*t120*t49*t493*t52-6.0d+0* 3857 ? t49*t491*t492*t52+6.0d+0*t119*t239*t240*t49*t52-1.0939212 3858 @ 748607545d-1*t424*t425*t48*t52-3.9381165894987163d-1*t119 3859 1 *t120*t195*t196*t48*t52-2.625411059665811d-1*t189*t196*t4 3860 2 8*t52-1.2062370656377225d-1*t419*t52-1.0339174848323335d- 3861 3 1*t119*t120*t189*t52)+1.1803150266592868d-3*t119*t121*t24 3862 4 2*t50*t52*t88*t89+1.1803150266592868d-3*t241*t242*t51*t88 3863 5 *t89-5.088166200913744d-4*t206*t208*t28*t88*t89-3.9343834 3864 6 22197623d-4*t121*t198*t242*t51*t89+2.69635778788734d-2*t1 3865 7 17*t413*t89/t47**4-1.4081430686456894d+0*t236*t413*t89/t4 3866 8 7**6+1.8009481522035156d+1*t413*t89/(t116**3*t47**8)+7.24 3867 9 4178432040066d-2*t115*t117*t428*t89+2.2877665475865033d+0 3868 : *t191*t413*t417*t89-4.947718859586276d+1*t413*t414*t415*t 3869 ; 89+2.5058979122369923d-2*t100*t51*(-6.203504908994001d-1* 3870 < t120*t31*t493*t52-3.7221029453964005d+0*t31*t491*t492*t52 3871 = -6.433264350067852d-1*t100*t447*t52+3.7221029453964005d+0 3872 > *t119*t239*t240*t31*t52+6.203504908994001d-1*t100*t101*t1 3873 ? 20*t240*t52-1.2407009817988002d+0*t100*t101*t238*t239*t52 3874 @ -8.271339878658668d-1*t100*t119*t120*t210*t52)+5.01179582 3875 1 4473985d-2*t100*t119*t243*t50*t52+4.4957341910852217d-3*t 3876 2 118*t119*t241*t50*t52+2.5058979122369923d-2*t100*t122*t24 3877 3 0*t50*t52+2.2478670955426108d-3*t118*t121*t240*t50*t52+1. 3878 4 670598608157995d-2*t100*t119*t122*t213*t50*t52+2.32410909 3879 5 36607786d-4*t121*t189*t51/t48**4+2.784331013596658d-3*t10 3880 6 0*t122*t452*t51-8.352993040789973d-3*t100*t122*t424*t51+1 3881 7 .670598608157995d-2*t100*t213*t243*t51-2.9507875666482175 3882 8 d-4*t121*t195*t196*t242*t51-5.568662027193316d-3*t100*t10 3883 9 2*t28*t452-5.011795824473985d-2*t100*t28*t448+2.716566912 3884 : 015024d-2*t115*t117*t424*t425+1.6705986081579946d-2*t100* 3885 ; t102*t28*t424-1.1981936089412427d-1*t117*t237*t419+2.6817 3886 < 57326079316d+0*t235*t236*t419-4.3569682910487045d+0*t190* 3887 = t191*t419-5.011795824473985d-2*t100*t102*t205*t27*t29-3.3 3888 > 4119721631599d-2*t100*t211*t213*t28+6.51976058883606d-2*t 3889 ? 115*t117*t189*t196)+3.671234287984053d-6*t109*t111*t229*t 3890 @ 40*t42*t88*t89+3.671234287984053d-6*t227*t229*t41*t88*t89 3891 1 +4.1494441931327714d-3*t106*t413*t462*t89-4.9125375556021 3892 2 966d-1*t216*t413*t459*t89+1.424318138513631d+1*t413*t456* 3893 3 t457*t89+1.114811775495065d-2*t104*t106*t428*t89-1.223744 3894 4 7626613511d-6*t111*t198*t229*t41*t89+2.722148880047894d-2 3895 5 *t100*t41*t484+7.228874326723254d-7*t111*t189*t41*t480+6. 3896 6 991732350764465d-6*t108*t41*t477+3.024609866719882d-3*t10 3897 7 0*t113*t41*t452+4.180544158106493d-3*t104*t106*t424*t425- 3898 8 9.073829600159644d-3*t100*t113*t41*t424+5.444297760095788 3899 9 d-2*t100*t109*t231*t40*t42+1.3983464701528928d-5*t108*t10 3900 : 9*t227*t40*t42+2.722148880047894d-2*t100*t113*t226*t40*t4 3901 ; 2+6.991732350764465d-6*t108*t111*t226*t40*t42+1.814765920 3902 < 0319294d-2*t100*t109*t113*t213*t40*t42-1.8439086738431665 3903 = d-2*t106*t218*t419+9.355749335929733d-1*t215*t216*t419+1. 3904 > 8147659200319294d-2*t100*t213*t231*t41-9.178085719960132d 3905 ? -7*t111*t195*t196*t229*t41+1.0033305979455585d-2*t104*t10 3906 @ 6*t189*t196) 3907 t495 = -12*t125*t244*t45 3908 t496 = -120*t45*t53/t1**7 3909 t497 = -144*t125*t248*t53 3910 t498 = 24*t2*t46*t53 3911 t499 = 3.638485360580734d+2*t254*t63*t79-1.4553941442322935d 3912 1 +3*t135*t170*t55*t79-4.0427615117563703d+1*t15*(1.1250000 3913 2 000000002d+0*t54*(1.3333333333333333d+0*t372*t77+1.333333 3914 3 3333333333d+0*t169*t252*t76+1.3333333333333333d+0*t367*t7 3915 4 3+1.3333333333333333d+0*t164*t251*t72-2.962962962962963d- 3916 5 1*t368*t455-2.962962962962963d-1*t363*t454)+1.12500000000 3917 6 00002d+0*t35*(240*t127*t246*t53+t498+t497+t496+t495+t494+ 3918 7 t490+t489+t488+t487+t486+t485+t483+t482+t481+t479+t478+t4 3919 8 73+t472+t471+t470+t469+t468+t467+t466+t465+t464+t463+t461 3920 9 +t460+12*t127*t244*t46+t458-96*t123*t125*t127)+t453+t451+ 3921 : t450+t449+t446+t445+t444+t442+t441+t435+t434+t433+t432+t4 3922 ; 31+t430+t429+t427+t426+t423+t422+t420+t418+t416+3.3750000 3923 < 00000001d+0*t128*t253+3.375000000000001d+0*t129*t250)+1.2 3924 = 128284535269111d+2*t373*t55*t63+3.638485360580734d+2*t130 3925 > *t170*t63+2.4256569070538223d+3*t260*t362*t55-1.455394144 3926 ? 2322935d+3*t130*t135*t158 3927 t500 = -1.7121095002288234d-1*t10*t12*t14*t499*t56*t87 3928 t501 = 1/t8**7.0d+0 3929 t502 = 1/t11**7.0d+0 3930 t503 = -5.585791092696726d+0*t375*t502*t61*t63*t64 3931 t504 = 3.9898507804976635d-1*t261*t377*t61*t63*t64 3932 t505 = 1.8999289430941252d-2*t136*t379*t61*t63*t64 3933 t506 = 1/t57**5.0d+0 3934 t507 = -2.473556743557577d-2*t172*t9*wght 3935 t508 = 2.9682680922690924d-1*t143*t68*t79*t8*wght 3936 t509 = 1.4841340461345462d-1*t13*t268*t68*wght 3937 t510 = t365-2*t161 3938 t511 = t370+2*t161 3939 t512 = 3.333333333333333d-1*t511*t78-4.444444444444444d-1*t1 3940 1 61*t166*t2*t76+3.333333333333333d-1*t510*t74+4.4444444444 3941 2 44444d-1*t160*t161*t2*t72+1.4814814814814814d-1*t142*t165 3942 3 *t369+1.4814814814814814d-1*t141*t159*t364-1.111111111111 3943 4 111d-1*t142*t166*t169-1.111111111111111d-1*t141*t160*t164 3944 t513 = 1.4841340461345462d-1*t13*t152*t79*wght 3945 t514 = 1.4841340461345462d-1*t13*t140*t143*wght 3946 t515 = 4.947113487115154d-2*t286*t9*wght 3947 t516 = -4.793906600640706d+0*t10*t143*t60*t63*t66*t79*t82*t8 3948 1 3 3949 t517 = 1.5979688668802353d+0*t10*t15*t268*t60*t66*t82*t83 3950 t518 = 1.5979688668802353d+0*t10*t15*t150*t66*t79*t82*t83 3951 t519 = -1.5979688668802353d+0*t10*t134*t15*t151*t60*t79*t82* 3952 1 t83 3953 t520 = 1.5979688668802353d+0*t10*t133*t143*t15*t66*t82*t83 3954 t521 = 7.989844334401176d-1*t10*t133*t134*t14*t151*t82*t83 3955 t522 = -1.5979688668802353d+0*t10*t134*t139*t143*t15*t60*t82 3956 1 *t83 3957 t523 = 7.989844334401176d-1*t10*t134*t139*t14*t150*t82*t83 3958 t524 = -1.5979688668802353d+0*t10*t139*t14*t151*t177*t60*t82 3959 1 *t83 3960 t525 = -7.989844334401176d-1*t10*t14*t284*t66*t82*t83 3961 t526 = 7.989844334401176d-1*t10*t134*t14*t285*t60*t82*t83 3962 t527 = -4.109062800549176d+0*t10*t12*t135*t143*t158*t58 3963 t528 = 1.027265700137294d+0*t10*t12*t143*t170*t58*t63 3964 t529 = 2.054531400274588d+0*t10*t12*t268*t58*t63*t79 3965 t530 = -4.793906600640706d+0*t10*t143*t58*t63*t79*t82*t83 3966 t531 = -2.396953300320353d+0*t10*t158*t58*t63*t82*t83 3967 t532 = 1.5979688668802353d+0*t10*t15*t268*t58*t82*t83 3968 t533 = -3.4242190004576467d-1*t10*t12*t15*t512*t58 3969 t534 = 7.989844334401176d-1*t10*t15*t170*t58*t82*t83 3970 t535 = -2.796445517040412d+0*t10*t143*t15*t173*t58*t62 3971 t536 = 1.3316407224001967d-1*t10*t143*t15*t175*t58*t83 3972 t537 = -5.592891034080824d+0*t10*t15*t173*t58*t62*t79 3973 t538 = 2.6632814448003933d-1*t10*t15*t175*t58*t79*t83 3974 t539 = -6.848438000915293d-1*t10*t12*t143*t15*t184*t185*t186 3975 t540 = -7.989844334401176d-1*t10*t14*t184*t185*t186*t82*t83 3976 t541 = 3.4242190004576467d-1*t10*t12*t143*t15*t186*t56*t87 3977 t542 = 3.994922167200588d-1*t10*t14*t186*t56*t82*t83*t87 3978 t543 = -1.027265700137294d+0*t10*t12*t14*t148*t186*t396*t397 3979 t544 = 3.4242190004576467d-1*t10*t12*t14*t148*t184*t185*t186 3980 t545 = -1.7121095002288234d-1*t10*t12*t14*t148*t186*t56*t87 3981 t546 = 2.4256569070538223d+2*t143*t55*t63-8.085523023512741d 3982 1 +1*t147*t15 3983 t547 = 3.4242190004576467d-1*t10*t12*t14*t184*t185*t186*t546 3984 t548 = 6.848438000915293d-1*t10*t12*t15*t276*t56*t79*t87 3985 t549 = 7.989844334401176d-1*t10*t14*t276*t56*t82*t83*t87 3986 t550 = 3.4242190004576467d-1*t10*t12*t143*t15*t255*t56*t87 3987 t551 = 3.994922167200588d-1*t10*t14*t255*t56*t82*t83*t87 3988 t552 = -1.027265700137294d+0*t10*t12*t148*t158*t56*t63*t87 3989 t553 = 3.4242190004576467d-1*t10*t12*t148*t15*t170*t56*t87 3990 t554 = -1.5979688668802353d+0*t10*t148*t15*t56*t79*t82*t83*t 3991 1 87 3992 t555 = -1.398222758520206d+0*t10*t14*t148*t173*t56*t62*t87 3993 t556 = 6.658203612000984d-2*t10*t14*t148*t175*t56*t83*t87 3994 t557 = 3.4242190004576467d-1*t10*t12*t14*t148*t184*t185*t255 3995 t558 = -1.7121095002288234d-1*t10*t12*t14*t148*t255*t56*t87 3996 t559 = -2.054531400274588d+0*t10*t12*t131*t143*t56*t63*t79*t 3997 1 87 3998 t560 = 6.848438000915293d-1*t10*t12*t131*t15*t268*t56*t87 3999 t561 = -1.5979688668802353d+0*t10*t131*t143*t15*t56*t82*t83* 4000 1 t87 4001 t562 = -1.5979688668802353d+0*t10*t131*t15*t56*t79*t82*t83*t 4002 1 87 4003 t563 = -2.796445517040412d+0*t10*t131*t14*t173*t56*t62*t87 4004 t564 = 1.3316407224001967d-1*t10*t131*t14*t175*t56*t83*t87 4005 t565 = 6.848438000915293d-1*t10*t12*t131*t14*t184*t185*t276 4006 t566 = -3.4242190004576467d-1*t10*t12*t131*t14*t276*t56*t87 4007 t567 = -1.3696876001830588d+0*t10*t12*t131*t148*t15*t184*t18 4008 1 5*t79 4009 t568 = -1.5979688668802353d+0*t10*t131*t14*t148*t184*t185*t8 4010 1 2*t83 4011 t569 = 6.848438000915293d-1*t10*t12*t131*t148*t15*t56*t79*t8 4012 1 7 4013 t570 = 7.989844334401176d-1*t10*t131*t14*t148*t56*t82*t83*t8 4014 1 7 4015 t571 = -12*t123*t248*t46 4016 t572 = 48*t125*t248*t53 4017 t573 = -24*t2*t46*t53 4018 t574 = 2.4256569070538223d+2*t275*t63*t79-9.702627628215289d 4019 1 +2*t135*t268*t55*t79-9.702627628215289d+2*t130*t135*t143* 4020 2 t79-4.0427615117563703d+1*t15*(1.1250000000000002d+0*t54* 4021 3 (1.3333333333333333d+0*t511*t77+1.7777777777777776d+0*t16 4022 4 1*t2*t252*t76+1.3333333333333333d+0*t510*t73-1.7777777777 4023 5 777776d+0*t161*t2*t251*t72-2.962962962962963d-1*t142*t165 4024 6 *t455-2.962962962962963d-1*t141*t159*t454+4.4444444444444 4025 7 44d-1*t142*t169*t252+4.444444444444444d-1*t141*t164*t251) 4026 8 +1.1250000000000002d+0*t35*(t573+t572+t571+80*t127*t246*t 4027 9 53+t496+t495+t494+t489+t488+t487+t486+t485+t483+t482+t481 4028 : +t479+t478+t473+t472+t471+t470+t469+t468+t467+t466+t465+t 4029 ; 464+t463+t461+t460+4*t127*t244*t46+t458-32*t123*t125*t127 4030 < )+t453+t451+t450+t449+t446+t445+t444+t442+t441+t435+t434+ 4031 = t433+t432+t431+t430+t429+t427+t426+t423+t422+t420+t418+t4 4032 > 16+2.2500000000000003d+0*t128*t274+2.2500000000000003d+0* 4033 ? t129*t273+1.1250000000000002d+0*t145*t253+1.1250000000000 4034 @ 002d+0*t146*t250)+1.2128284535269111d+2*t512*t55*t63+2.42 4035 1 56569070538223d+2*t130*t268*t63+1.2128284535269111d+2*t14 4036 2 3*t254*t63+1.2128284535269111d+2*t147*t170*t63+2.42565690 4037 3 70538223d+3*t143*t158*t260*t55-4.8513138141076445d+2*t135 4038 4 *t143*t170*t55-4.8513138141076445d+2*t135*t147*t158 4039 t575 = -1.7121095002288234d-1*t10*t12*t14*t56*t574*t87 4040 t576 = 1.0943590712222155d+0*t135*t136*t268*t61*t64*t82 4041 t577 = 5.471795356111078d-1*t136*t138*t276*t56*t61*t63*t82 4042 t578 = -2.188718142444431d+0*t135*t136*t138*t148*t56*t61*t79 4043 1 *t82 4044 t579 = -2.188718142444431d+0*t131*t135*t136*t138*t143*t56*t6 4045 1 1*t82 4046 t580 = -1.6415386068333232d+0*t131*t136*t148*t184*t264*t61*t 4047 1 63*t82 4048 t581 = 5.471795356111078d-1*t131*t136*t138*t148*t56*t61*t63* 4049 1 t82 4050 t582 = -2.0d+0*t2*t46*t78-6.666666666666666d-1*t161*t78+1.48 4051 1 14814814814814d-1*t291*t369*t76-1.111111111111111d-1*t166 4052 2 *t292*t76+2.0d+0*t2*t46*t74+6.666666666666666d-1*t161*t74 4053 3 +1.4814814814814814d-1*t289*t364*t72-1.111111111111111d-1 4054 4 *t160*t290*t72-4.444444444444444d-1*t142*t161*t166*t2+4.4 4055 5 44444444444444d-1*t141*t160*t161*t2 4056 t583 = -4.109062800549176d+0*t10*t12*t135*t288*t58*t79 4057 t584 = 2.054531400274588d+0*t10*t12*t143*t268*t58*t63 4058 t585 = 1.027265700137294d+0*t10*t12*t293*t58*t63*t79 4059 t586 = -2.396953300320353d+0*t10*t288*t58*t63*t82*t83 4060 t587 = -3.4242190004576467d-1*t10*t12*t15*t58*t582 4061 t588 = 7.989844334401176d-1*t10*t15*t293*t58*t82*t83 4062 t589 = -5.592891034080824d+0*t10*t143*t15*t173*t58*t62 4063 t590 = 2.6632814448003933d-1*t10*t143*t15*t175*t58*t83 4064 t591 = -2.796445517040412d+0*t10*t15*t173*t58*t62*t79 4065 t592 = 1.3316407224001967d-1*t10*t15*t175*t58*t79*t83 4066 t593 = -6.848438000915293d-1*t10*t12*t15*t184*t185*t299*t79 4067 t594 = -7.989844334401176d-1*t10*t14*t184*t185*t299*t82*t83 4068 t595 = 3.4242190004576467d-1*t10*t12*t15*t299*t56*t79*t87 4069 t596 = 3.994922167200588d-1*t10*t14*t299*t56*t82*t83*t87 4070 t597 = 6.848438000915293d-1*t10*t12*t143*t15*t276*t56*t87 4071 t598 = 3.4242190004576467d-1*t10*t12*t15*t305*t56*t79*t87 4072 t599 = 3.994922167200588d-1*t10*t14*t305*t56*t82*t83*t87 4073 t600 = -2.054531400274588d+0*t10*t12*t143*t148*t56*t63*t79*t 4074 1 87 4075 t601 = 6.848438000915293d-1*t10*t12*t148*t15*t268*t56*t87 4076 t602 = -1.5979688668802353d+0*t10*t143*t148*t15*t56*t82*t83* 4077 1 t87 4078 t603 = -2.796445517040412d+0*t10*t14*t148*t173*t56*t62*t87 4079 t604 = 1.3316407224001967d-1*t10*t14*t148*t175*t56*t83*t87 4080 t605 = 6.848438000915293d-1*t10*t12*t14*t148*t184*t185*t276 4081 t606 = -3.4242190004576467d-1*t10*t12*t14*t148*t276*t56*t87 4082 t607 = -1.027265700137294d+0*t10*t12*t131*t288*t56*t63*t87 4083 t608 = 3.4242190004576467d-1*t10*t12*t131*t15*t293*t56*t87 4084 t609 = -1.398222758520206d+0*t10*t131*t14*t173*t56*t62*t87 4085 t610 = 6.658203612000984d-2*t10*t131*t14*t175*t56*t83*t87 4086 t611 = -1.027265700137294d+0*t10*t12*t131*t14*t299*t396*t397 4087 t612 = 3.4242190004576467d-1*t10*t12*t131*t14*t184*t185*t299 4088 t613 = -1.7121095002288234d-1*t10*t12*t131*t14*t299*t56*t87 4089 t614 = 3.4242190004576467d-1*t10*t12*t131*t14*t184*t185*t305 4090 t615 = -1.7121095002288234d-1*t10*t12*t131*t14*t305*t56*t87 4091 t616 = -1.3696876001830588d+0*t10*t12*t131*t143*t148*t15*t18 4092 1 4*t185 4093 t617 = 6.848438000915293d-1*t10*t12*t131*t143*t148*t15*t56*t 4094 1 87 4095 t618 = 3.4242190004576467d-1*t10*t12*t131*t14*t148*t184*t185 4096 1 *t546 4097 t619 = 1.2128284535269111d+2*t304*t63*t79-4.8513138141076445 4098 1 d+2*t135*t293*t55*t79+2.4256569070538223d+3*t260*t288*t55 4099 2 *t79-9.702627628215289d+2*t135*t143*t147*t79-4.0427615117 4100 3 563703d+1*t15*(1.1250000000000002d+0*t54*(-8*t2*t46*t77-2 4101 4 .6666666666666666d+0*t161*t77-2.962962962962963d-1*t291*t 4102 5 455*t76+4.444444444444444d-1*t252*t292*t76+8*t2*t46*t73+2 4103 6 .6666666666666666d+0*t161*t73-2.962962962962963d-1*t289*t 4104 7 454*t72+4.444444444444444d-1*t251*t290*t72+1.777777777777 4105 8 7776d+0*t142*t161*t2*t252-1.7777777777777776d+0*t141*t161 4106 9 *t2*t251)+1.1250000000000002d+0*t35*(t572+t571-80*t127*t2 4107 : 46*t53+t498+t496+t495+t494+t489+t488+t487+t486+t485+t483+ 4108 ; t482+t481+t479+t478+t473+t472+t471+t470+t469+t468+t467+t4 4109 < 66+t465+t464+t463+t461+t460-4*t127*t244*t46+t458+32*t123* 4110 = t125*t127)+t453+t451+t450+t449+t446+t445+t444+t442+t441+t 4111 > 435+t434+t433+t432+t431+t430+t429+t427+t426+t423+t422+t42 4112 ? 0+t418+t416+1.1250000000000002d+0*t128*t303+1.12500000000 4113 @ 00002d+0*t129*t302+2.2500000000000003d+0*t145*t274+2.2500 4114 1 000000000003d+0*t146*t273)+1.2128284535269111d+2*t55*t582 4115 2 *t63+1.2128284535269111d+2*t130*t293*t63+2.42565690705382 4116 3 23d+2*t143*t275*t63+2.4256569070538223d+2*t147*t268*t63-9 4117 4 .702627628215289d+2*t135*t143*t268*t55-4.8513138141076445 4118 5 d+2*t130*t135*t288 4119 t620 = -1.7121095002288234d-1*t10*t12*t14*t56*t619*t87 4120 t621 = t143**3 4121 t622 = t141**3 4122 t623 = t371+t365 4123 t624 = t142**3 4124 t625 = t370+t366 4125 t626 = 3.333333333333333d-1*t625*t78+3.333333333333333d-1*t6 4126 1 23*t74+1.4814814814814814d-1*t369*t624+1.4814814814814814 4127 2 d-1*t364*t622-3.333333333333333d-1*t142*t166*t292-3.33333 4128 3 3333333333d-1*t141*t160*t290 4129 t627 = -4.109062800549176d+0*t10*t12*t135*t58*t621 4130 t628 = 3.081797100411882d+0*t10*t12*t143*t293*t58*t63 4131 t629 = -7.190859900961059d+0*t10*t288*t58*t63*t82*t83 4132 t630 = -3.4242190004576467d-1*t10*t12*t15*t58*t626 4133 t631 = 2.396953300320353d+0*t10*t15*t293*t58*t82*t83 4134 t632 = -8.389336551121236d+0*t10*t143*t15*t173*t58*t62 4135 t633 = 3.9949221672005897d-1*t10*t143*t15*t175*t58*t83 4136 t634 = -2.054531400274588d+0*t10*t12*t143*t15*t184*t185*t299 4137 t635 = -2.396953300320353d+0*t10*t14*t184*t185*t299*t82*t83 4138 t636 = 1.027265700137294d+0*t10*t12*t143*t15*t299*t56*t87 4139 t637 = 1.1984766501601765d+0*t10*t14*t299*t56*t82*t83*t87 4140 t638 = t148**3 4141 t639 = -1.027265700137294d+0*t10*t12*t14*t396*t397*t638 4142 t640 = 3.4242190004576467d-1*t10*t12*t14*t184*t185*t638 4143 t641 = -1.7121095002288234d-1*t10*t12*t14*t56*t638*t87 4144 t642 = 1.027265700137294d+0*t10*t12*t143*t15*t305*t56*t87 4145 t643 = 1.1984766501601765d+0*t10*t14*t305*t56*t82*t83*t87 4146 t644 = -3.081797100411882d+0*t10*t12*t148*t288*t56*t63*t87 4147 t645 = 1.027265700137294d+0*t10*t12*t148*t15*t293*t56*t87 4148 t646 = -4.793906600640706d+0*t10*t143*t148*t15*t56*t82*t83*t 4149 1 87 4150 t647 = -4.194668275560618d+0*t10*t14*t148*t173*t56*t62*t87 4151 t648 = 1.9974610836002948d-1*t10*t14*t148*t175*t56*t83*t87 4152 t649 = 1.027265700137294d+0*t10*t12*t14*t148*t184*t185*t305 4153 t650 = -5.13632850068647d-1*t10*t12*t14*t148*t305*t56*t87 4154 t651 = 3.4242190004576467d-1*t10*t12*t14*t184*t185*t299*t546 4155 t652 = -4.0427615117563703d+1*t15*(1.1250000000000002d+0*t54 4156 1 *(1.3333333333333333d+0*t625*t77+1.3333333333333333d+0*t6 4157 2 23*t73-2.962962962962963d-1*t455*t624-2.962962962962963d- 4158 3 1*t454*t622+1.3333333333333333d+0*t142*t252*t292+1.333333 4159 4 3333333333d+0*t141*t251*t290)+1.1250000000000002d+0*t35*( 4160 5 t573-240*t127*t246*t53+t497+t496+t495+t494+t490+t489+t488 4161 6 +t487+t486+t485+t483+t482+t481+t479+t478+t473+t472+t471+t 4162 7 470+t469+t468+t467+t466+t465+t464+t463+t461+t460-12*t127* 4163 8 t244*t46+t458+96*t123*t125*t127)+t453+t451+t450+t449+t446 4164 9 +t445+t444+t442+t441+t435+t434+t433+t432+t431+t430+t429+t 4165 : 427+t426+t423+t422+t420+t418+t416+3.375000000000001d+0*t1 4166 ; 45*t303+3.375000000000001d+0*t146*t302)+1.212828453526911 4167 < 1d+2*t55*t626*t63+3.638485360580734d+2*t143*t304*t63+3.63 4168 = 8485360580734d+2*t147*t293*t63+2.4256569070538223d+3*t260 4169 > *t55*t621-1.4553941442322935d+3*t135*t143*t293*t55-1.4553 4170 ? 941442322935d+3*t135*t147*t288 4171 t653 = -1.7121095002288234d-1*t10*t12*t14*t56*t652*t87 4172 t654 = -1.398222758520206d+0*t10*t134*t14*t153*t173*t60*t62 4173 t655 = 6.658203612000984d-2*t10*t134*t14*t153*t175*t60*t83 4174 t656 = 1.5979688668802353d+0*t15*t60*t66*t79*t82*t83 4175 t657 = 1.398222758520206d+0*t14*t173*t60*t62*t66 4176 t658 = -6.658203612000984d-2*t14*t175*t60*t66*t83 4177 t659 = 2.735897678055539d-1*t10*t135*t136*t58*t66*t79*t82 4178 t660 = 2.3939104682985965d-1*t10*t173*t261*t58*t63*t66 4179 t661 = -1.1399573658564749d-2*t10*t136*t175*t58*t63*t66 4180 t662 = 1.027265700137294d+0*t12*t158*t58*t63 4181 t663 = -3.4242190004576467d-1*t12*t15*t170*t58 4182 t664 = 1.5979688668802353d+0*t15*t58*t79*t82*t83 4183 t665 = 1.398222758520206d+0*t14*t173*t58*t62 4184 t666 = -6.658203612000984d-2*t14*t175*t58*t83 4185 t667 = 3.4242190004576467d-1*t12*t14*t184*t185*t186 4186 t668 = -1.7121095002288234d-1*t12*t14*t186*t56*t87 4187 t669 = -1.7121095002288234d-1*t12*t14*t255*t56*t87 4188 t670 = 6.848438000915293d-1*t12*t131*t15*t56*t79*t87 4189 t671 = 7.989844334401176d-1*t131*t14*t56*t82*t83*t87 4190 t672 = 2.188718142444431d+0*t10*t135*t136*t64*t79*t82 4191 t673 = 1.5959403121990645d+0*t10*t173*t261*t63*t64 4192 t674 = -4.5598294634259007d-2*t10*t136*t175*t63*t64 4193 t675 = 1.0943590712222155d+0*t10*t131*t136*t138*t56*t63*t82 4194 t676 = -7.989844334401176d-1*t133*t14*t66*t82*t83 4195 t677 = 7.989844334401176d-1*t134*t139*t14*t60*t82*t83 4196 t678 = 1.3679488390277694d-1*t10*t134*t136*t139*t58*t63*t82 4197 t679 = t81*(2.473556743557577d-2*t1*(-1.5979688668802353d+0* 4198 1 t10*t134*t15*t153*t60*t79*t82*t83-7.989844334401176d-1*t1 4199 2 0*t14*t320*t66*t82*t83+7.989844334401176d-1*t10*t134*t14* 4200 3 t322*t60*t82*t83-1.5979688668802353d+0*t10*t139*t14*t153* 4201 4 t177*t60*t82*t83+7.989844334401176d-1*t10*t133*t134*t14*t 4202 5 153*t82*t83-1.7121095002288234d-1*t10*t12*t134*t14*t60*(9 4203 6 .380220610476132d-1*t10*t131*t135*t138*t56*t62*t79+t675+t 4204 7 674+t673+t672+t671+t670+t669+t668+t667+t666+t665+t664+t66 4205 8 3+t662+1.1725275763095164d+0*t10*t158*t260*t62*t64-2.3450 4206 9 55152619033d-1*t10*t135*t170*t62*t64-1.1725275763095165d- 4207 : 1*t10*t138*t255*t56*t62*t63-1.1725275763095165d-1*t10*t13 4208 ; 8*t186*t56*t62*t63+3.5175827289285494d-1*t10*t184*t186*t2 4209 < 64*t62*t63)-6.848438000915293d-1*t10*t12*t15*t320*t66*t79 4210 = -6.848438000915293d-1*t12*t133*t15*t66*t79+1.172527576309 4211 > 5165d-1*t10*t134*t135*t139*t58*t62*t79+6.848438000915293d 4212 ? -1*t10*t12*t134*t15*t322*t60*t79-1.3696876001830588d+0*t1 4213 @ 0*t12*t139*t15*t153*t177*t60*t79+6.848438000915293d-1*t12 4214 1 *t134*t139*t15*t60*t79+6.848438000915293d-1*t10*t12*t133* 4215 2 t134*t15*t153*t79+t678+t677+t676+1.7121095002288234d-1*t1 4216 3 0*t12*t14*t66*(t671+t670+t669+t668+t667+t666+t665+t664+t6 4217 4 63+t662)+t661+t660+1.027265700137294d+0*t12*t158*t60*t63* 4218 5 t66+1.7587913644642747d-1*t10*t158*t260*t58*t62*t66-5.862 4219 6 637881547582d-2*t10*t135*t170*t58*t62*t66-3.4242190004576 4220 7 467d-1*t12*t15*t170*t60*t66+1.7121095002288234d-1*t12*t14 4221 8 *t259*t66+t659+t658+t657+t656+t655+t654-2.931318940773791 4222 9 d-2*t10*t134*t265*t58*t62*t63+5.862637881547582d-2*t10*t1 4223 : 77*t178*t58*t62*t63-1.027265700137294d+0*t10*t12*t134*t15 4224 ; 3*t158*t60*t63-1.027265700137294d+0*t10*t12*t14*t153*t178 4225 < *t381*t60+6.848438000915293d-1*t10*t12*t139*t14*t177*t322 4226 = *t60+3.4242190004576467d-1*t10*t12*t14*t153*t177*t265*t60 4227 > -1.7121095002288234d-1*t12*t134*t14*t265*t60+3.4242190004 4228 ? 576467d-1*t12*t14*t177*t178*t60+3.4242190004576467d-1*t10 4229 @ *t12*t134*t15*t153*t170*t60-3.4242190004576467d-1*t10*t12 4230 1 *t133*t134*t14*t322-3.4242190004576467d-1*t10*t12*t134*t1 4231 2 39*t14*t320-1.7121095002288234d-1*t10*t12*t134*t14*t153*t 4232 3 259+6.848438000915293d-1*t10*t12*t133*t139*t14*t153*t177- 4233 4 3.4242190004576467d-1*t12*t133*t134*t139*t14)*t9*wght+4.9 4234 5 47113487115154d-2*t323*t9*wght+1.4841340461345462d-1*t1*t 4235 6 154*t158*t8*wght+1.4841340461345462d-1*t1*t13*t323*t79*wg 4236 7 ht+1.4841340461345462d-1*t13*t154*t79*wght+7.420670230672 4237 8 731d-2*t1*t13*t154*t170*wght)+t171*(-4.947113487115154d-2 4238 9 *t1*t140*t323*t9*wght-t154*t267)+4.947113487115154d-2*t1* 4239 : t154*t172*t374*t9*wght 4240 t680 = -1.398222758520206d+0*t10*t134*t14*t156*t173*t60*t62 4241 t681 = 6.658203612000984d-2*t10*t134*t14*t156*t175*t60*t83 4242 t682 = 2.796445517040412d+0*t14*t173*t60*t62*t66 4243 t683 = -1.3316407224001967d-1*t14*t175*t60*t66*t83 4244 t684 = 4.787820936597193d-1*t10*t173*t261*t58*t63*t66 4245 t685 = -2.2799147317129498d-2*t10*t136*t175*t58*t63*t66 4246 t686 = 2.054531400274588d+0*t12*t158*t58*t63 4247 t687 = -6.848438000915293d-1*t12*t15*t170*t58 4248 t688 = 3.1959377337604705d+0*t15*t58*t79*t82*t83 4249 t689 = 2.796445517040412d+0*t14*t173*t58*t62 4250 t690 = -1.3316407224001967d-1*t14*t175*t58*t83 4251 t691 = 6.848438000915293d-1*t12*t14*t184*t185*t186 4252 t692 = -3.4242190004576467d-1*t12*t14*t186*t56*t87 4253 t693 = -3.4242190004576467d-1*t12*t14*t255*t56*t87 4254 t694 = 1.3696876001830588d+0*t12*t131*t15*t56*t79*t87 4255 t695 = 1.5979688668802353d+0*t131*t14*t56*t82*t83*t87 4256 t696 = 3.191880624398129d+0*t10*t173*t261*t63*t64 4257 t697 = -9.119658926851801d-2*t10*t136*t175*t63*t64 4258 t698 = 1.027265700137294d+0*t12*t143*t58*t63*t79 4259 t699 = -3.4242190004576467d-1*t12*t15*t268*t58 4260 t700 = 7.989844334401176d-1*t143*t15*t58*t82*t83 4261 t701 = 7.989844334401176d-1*t15*t58*t79*t82*t83 4262 t702 = -1.7121095002288234d-1*t12*t14*t276*t56*t87 4263 t703 = 3.4242190004576467d-1*t12*t148*t15*t56*t79*t87 4264 t704 = 3.994922167200588d-1*t14*t148*t56*t82*t83*t87 4265 t705 = 3.4242190004576467d-1*t12*t131*t143*t15*t56*t87 4266 t706 = 3.994922167200588d-1*t131*t14*t56*t82*t83*t87 4267 t707 = 3.4242190004576467d-1*t12*t131*t14*t148*t184*t185 4268 t708 = -1.7121095002288234d-1*t12*t131*t14*t148*t56*t87 4269 t709 = t81*(2.473556743557577d-2*t1*(7.989844334401176d-1*t1 4270 1 5*t60*t66*t79*t82*t83-7.989844334401176d-1*t10*t134*t15*t 4271 2 153*t60*t79*t82*t83+7.989844334401176d-1*t143*t15*t60*t66 4272 3 *t82*t83-3.994922167200588d-1*t10*t14*t340*t66*t82*t83-3. 4273 4 994922167200588d-1*t10*t14*t320*t66*t82*t83-3.99492216720 4274 5 0588d-1*t14*t150*t66*t82*t83-3.994922167200588d-1*t133*t1 4275 6 4*t66*t82*t83+3.994922167200588d-1*t10*t134*t14*t341*t60* 4276 7 t82*t83+3.994922167200588d-1*t10*t134*t14*t322*t60*t82*t8 4277 8 3-7.989844334401176d-1*t10*t14*t151*t153*t177*t60*t82*t83 4278 9 -7.989844334401176d-1*t10*t139*t14*t153*t177*t60*t82*t83- 4279 : 7.989844334401176d-1*t10*t134*t143*t15*t153*t60*t82*t83+3 4280 ; .994922167200588d-1*t134*t14*t151*t60*t82*t83+3.994922167 4281 < 200588d-1*t134*t139*t14*t60*t82*t83+3.994922167200588d-1* 4282 = t10*t134*t14*t150*t153*t82*t83+3.994922167200588d-1*t10*t 4283 > 133*t134*t14*t153*t82*t83-1.7121095002288234d-1*t10*t12*t 4284 ? 134*t14*t60*(1.0943590712222155d+0*t10*t135*t136*t64*t79* 4285 @ t82+1.0943590712222155d+0*t10*t135*t136*t143*t64*t82+5.47 4286 1 1795356111078d-1*t10*t136*t138*t148*t56*t63*t82+5.4717953 4287 2 56111078d-1*t10*t131*t136*t138*t56*t63*t82+1.172527576309 4288 3 5164d+0*t10*t143*t260*t62*t64*t79+4.690110305238066d-1*t1 4289 4 0*t135*t138*t148*t56*t62*t79+t708+t707+t706+t705+t704+t70 4290 5 3+t702+t701+t700+t699+t698+t674+t673+t666+t665-2.34505515 4291 6 2619033d-1*t10*t135*t268*t62*t64-1.1725275763095165d-1*t1 4292 7 0*t138*t276*t56*t62*t63-1.1725275763095165d-1*t10*t131*t1 4293 8 38*t148*t56*t62*t63+3.5175827289285494d-1*t10*t131*t148*t 4294 9 184*t264*t62*t63+4.690110305238066d-1*t10*t131*t135*t138* 4295 : t143*t56*t62)+1.3679488390277694d-1*t10*t135*t136*t58*t66 4296 ; *t79*t82+1.3679488390277694d-1*t10*t135*t136*t143*t58*t66 4297 < *t82+6.839744195138847d-2*t10*t134*t136*t151*t58*t63*t82+ 4298 = 6.839744195138847d-2*t10*t134*t136*t139*t58*t63*t82+1.027 4299 > 265700137294d+0*t12*t143*t60*t63*t66*t79+1.75879136446427 4300 ? 47d-1*t10*t143*t260*t58*t62*t66*t79-3.4242190004576467d-1 4301 @ *t10*t12*t15*t340*t66*t79-3.4242190004576467d-1*t12*t15*t 4302 1 150*t66*t79-1.027265700137294d+0*t10*t12*t134*t143*t153*t 4303 2 60*t63*t79+5.862637881547582d-2*t10*t134*t135*t151*t58*t6 4304 3 2*t79+3.4242190004576467d-1*t10*t12*t134*t15*t341*t60*t79 4305 4 -6.848438000915293d-1*t10*t12*t15*t151*t153*t177*t60*t79+ 4306 5 3.4242190004576467d-1*t12*t134*t15*t151*t60*t79+3.4242190 4307 6 004576467d-1*t10*t12*t134*t15*t150*t153*t79+1.71210950022 4308 7 88234d-1*t10*t12*t14*t66*(t708+t707+t706+t705+t704+t703+t 4309 8 702+t701+t700+t699+t698+t666+t665)+t661+t660-5.8626378815 4310 9 47582d-2*t10*t135*t268*t58*t62*t66-3.4242190004576467d-1* 4311 : t12*t15*t268*t60*t66-3.4242190004576467d-1*t10*t12*t143*t 4312 ; 15*t320*t66+1.7121095002288234d-1*t12*t14*t284*t66-3.4242 4313 < 190004576467d-1*t12*t133*t143*t15*t66+t658+t657+t655+t654 4314 = -2.931318940773791d-2*t10*t134*t285*t58*t62*t63+5.8626378 4315 > 81547582d-2*t10*t139*t151*t177*t58*t62*t63+5.862637881547 4316 ? 582d-2*t10*t134*t135*t139*t143*t58*t62-1.027265700137294d 4317 @ +0*t10*t12*t139*t14*t151*t153*t381*t60+3.4242190004576467 4318 1 d-1*t10*t12*t139*t14*t177*t341*t60+3.4242190004576467d-1* 4319 2 t10*t12*t14*t151*t177*t322*t60+3.4242190004576467d-1*t10* 4320 3 t12*t134*t143*t15*t322*t60+3.4242190004576467d-1*t10*t12* 4321 4 t14*t153*t177*t285*t60-1.7121095002288234d-1*t12*t134*t14 4322 5 *t285*t60+3.4242190004576467d-1*t10*t12*t134*t15*t153*t26 4323 6 8*t60-6.848438000915293d-1*t10*t12*t139*t143*t15*t153*t17 4324 7 7*t60+3.4242190004576467d-1*t12*t139*t14*t151*t177*t60+3. 4325 8 4242190004576467d-1*t12*t134*t139*t143*t15*t60-1.71210950 4326 9 02288234d-1*t10*t12*t133*t134*t14*t341-1.7121095002288234 4327 : d-1*t10*t12*t134*t139*t14*t340-1.7121095002288234d-1*t10* 4328 ; t12*t134*t14*t150*t322-1.7121095002288234d-1*t10*t12*t134 4329 < *t14*t151*t320-1.7121095002288234d-1*t10*t12*t134*t14*t15 4330 = 3*t284+3.4242190004576467d-1*t10*t12*t133*t14*t151*t153*t 4331 > 177+3.4242190004576467d-1*t10*t12*t139*t14*t150*t153*t177 4332 ? +3.4242190004576467d-1*t10*t12*t133*t134*t143*t15*t153-1. 4333 @ 7121095002288234d-1*t12*t133*t134*t14*t151-1.712109500228 4334 1 8234d-1*t12*t134*t139*t14*t150)*t9*wght+2.473556743557577 4335 2 d-2*t342*t9*wght+2.473556743557577d-2*t323*t9*wght+1.4841 4336 3 340461345462d-1*t1*t143*t154*t79*t8*wght+7.42067023067273 4337 4 1d-2*t1*t13*t342*t79*wght+7.420670230672731d-2*t13*t154*t 4338 5 79*wght+7.420670230672731d-2*t1*t13*t143*t323*wght+7.4206 4339 6 70230672731d-2*t1*t13*t154*t268*wght+7.420670230672731d-2 4340 7 *t13*t143*t154*wght)+t171*(-2.473556743557577d-2*t1*t140* 4341 8 t342*t9*wght-2.473556743557577d-2*t1*t152*t323*t9*wght-t1 4342 9 54*t287)+4.947113487115154d-2*t1*t140*t152*t154*t374*t9*w 4343 : ght 4344 t710 = 1.5979688668802353d+0*t143*t15*t60*t66*t82*t83 4345 t711 = 2.735897678055539d-1*t10*t135*t136*t143*t58*t66*t82 4346 t712 = -7.989844334401176d-1*t14*t150*t66*t82*t83 4347 t713 = 7.989844334401176d-1*t134*t14*t151*t60*t82*t83 4348 t714 = 1.3679488390277694d-1*t10*t134*t136*t151*t58*t63*t82 4349 t715 = 2.054531400274588d+0*t12*t143*t58*t63*t79 4350 t716 = -6.848438000915293d-1*t12*t15*t268*t58 4351 t717 = 1.5979688668802353d+0*t143*t15*t58*t82*t83 4352 t718 = -3.4242190004576467d-1*t12*t14*t276*t56*t87 4353 t719 = 6.848438000915293d-1*t12*t148*t15*t56*t79*t87 4354 t720 = 7.989844334401176d-1*t14*t148*t56*t82*t83*t87 4355 t721 = 6.848438000915293d-1*t12*t131*t143*t15*t56*t87 4356 t722 = 6.848438000915293d-1*t12*t131*t14*t148*t184*t185 4357 t723 = -3.4242190004576467d-1*t12*t131*t14*t148*t56*t87 4358 t724 = 2.188718142444431d+0*t10*t135*t136*t143*t64*t82 4359 t725 = 1.0943590712222155d+0*t10*t136*t138*t148*t56*t63*t82 4360 t726 = 1.027265700137294d+0*t12*t288*t58*t63 4361 t727 = -3.4242190004576467d-1*t12*t15*t293*t58 4362 t728 = 3.4242190004576467d-1*t12*t14*t184*t185*t299 4363 t729 = -1.7121095002288234d-1*t12*t14*t299*t56*t87 4364 t730 = -1.7121095002288234d-1*t12*t14*t305*t56*t87 4365 t731 = 6.848438000915293d-1*t12*t143*t148*t15*t56*t87 4366 t732 = t81*(2.473556743557577d-2*t1*(-7.989844334401176d-1*t 4367 1 10*t14*t340*t66*t82*t83+7.989844334401176d-1*t10*t134*t14 4368 2 *t341*t60*t82*t83-1.5979688668802353d+0*t10*t14*t151*t153 4369 3 *t177*t60*t82*t83-1.5979688668802353d+0*t10*t134*t143*t15 4370 4 *t153*t60*t82*t83+7.989844334401176d-1*t10*t134*t14*t150* 4371 5 t153*t82*t83-1.7121095002288234d-1*t10*t12*t134*t14*t60*( 4372 6 t731+t730+t729+t728+t727+t726+t725+t724+t720+t717+t674+t6 4373 7 73+t666+t665-2.345055152619033d-1*t10*t135*t293*t62*t64+1 4374 8 .1725275763095164d+0*t10*t260*t288*t62*t64-1.172527576309 4375 9 5165d-1*t10*t138*t305*t56*t62*t63-1.1725275763095165d-1*t 4376 : 10*t138*t299*t56*t62*t63+3.5175827289285494d-1*t10*t184*t 4377 ; 264*t299*t62*t63+9.380220610476132d-1*t10*t135*t138*t143* 4378 < t148*t56*t62)+1.7121095002288234d-1*t10*t12*t14*t66*(t731 4379 = +t730+t729+t728+t727+t726+t720+t717+t666+t665)+t714+t713+ 4380 > t712+t711+t710+t661+t660+1.027265700137294d+0*t12*t288*t6 4381 ? 0*t63*t66-5.862637881547582d-2*t10*t135*t293*t58*t62*t66+ 4382 @ 1.7587913644642747d-1*t10*t260*t288*t58*t62*t66-3.4242190 4383 1 004576467d-1*t12*t15*t293*t60*t66-6.848438000915293d-1*t1 4384 2 0*t12*t143*t15*t340*t66+1.7121095002288234d-1*t12*t14*t30 4385 3 9*t66-6.848438000915293d-1*t12*t143*t15*t150*t66+t658+t65 4386 4 7+t655+t654-2.931318940773791d-2*t10*t134*t310*t58*t62*t6 4387 5 3+5.862637881547582d-2*t10*t177*t295*t58*t62*t63-1.027265 4388 6 700137294d+0*t10*t12*t134*t153*t288*t60*t63+1.17252757630 4389 7 95165d-1*t10*t134*t135*t143*t151*t58*t62-1.02726570013729 4390 8 4d+0*t10*t12*t14*t153*t295*t381*t60+6.848438000915293d-1* 4391 9 t10*t12*t14*t151*t177*t341*t60+6.848438000915293d-1*t10*t 4392 : 12*t134*t143*t15*t341*t60+3.4242190004576467d-1*t10*t12*t 4393 ; 14*t153*t177*t310*t60-1.7121095002288234d-1*t12*t134*t14* 4394 < t310*t60+3.4242190004576467d-1*t12*t14*t177*t295*t60+3.42 4395 = 42190004576467d-1*t10*t12*t134*t15*t153*t293*t60-1.369687 4396 > 6001830588d+0*t10*t12*t143*t15*t151*t153*t177*t60+6.84843 4397 ? 8000915293d-1*t12*t134*t143*t15*t151*t60-3.42421900045764 4398 @ 67d-1*t10*t12*t134*t14*t150*t341-3.4242190004576467d-1*t1 4399 1 0*t12*t134*t14*t151*t340-1.7121095002288234d-1*t10*t12*t1 4400 2 34*t14*t153*t309+6.848438000915293d-1*t10*t12*t14*t150*t1 4401 3 51*t153*t177+6.848438000915293d-1*t10*t12*t134*t143*t15*t 4402 4 150*t153-3.4242190004576467d-1*t12*t134*t14*t150*t151)*t9 4403 5 *wght+4.947113487115154d-2*t342*t9*wght+1.484134046134546 4404 6 2d-1*t1*t154*t288*t8*wght+1.4841340461345462d-1*t1*t13*t1 4405 7 43*t342*wght+7.420670230672731d-2*t1*t13*t154*t293*wght+1 4406 8 .4841340461345462d-1*t13*t143*t154*wght)+t171*(-4.9471134 4407 9 87115154d-2*t1*t152*t342*t9*wght-t154*t312)+4.94711348711 4408 : 5154d-2*t1*t154*t294*t374*t9*wght 4409 t733 = 2.054531400274588d+0*t12*t288*t58*t63 4410 t734 = -6.848438000915293d-1*t12*t15*t293*t58 4411 t735 = 3.1959377337604705d+0*t143*t15*t58*t82*t83 4412 t736 = 6.848438000915293d-1*t12*t14*t184*t185*t299 4413 t737 = -3.4242190004576467d-1*t12*t14*t299*t56*t87 4414 t738 = -3.4242190004576467d-1*t12*t14*t305*t56*t87 4415 t739 = 1.3696876001830588d+0*t12*t143*t148*t15*t56*t87 4416 t740 = 1.5979688668802353d+0*t14*t148*t56*t82*t83*t87 4417 t741 = 2.473556743557577d-2*t355*t9*wght 4418 t742 = -7.989844334401176d-1*t10*t14*t177*t352*t60*t82*t83 4419 t743 = 6.848438000915293d-1*t12*t134*t15*t153*t60*t79 4420 t744 = 7.989844334401176d-1*t134*t14*t153*t60*t82*t83 4421 t745 = 2.342078203126433d-2*t10*t134*t260*t502*t60*t64*t82 4422 t746 = 1.1725275763095165d-1*t10*t134*t135*t153*t58*t62*t79 4423 t747 = 1.3679488390277694d-1*t10*t134*t136*t153*t58*t63*t82 4424 t748 = -1.3679488390277694d-1*t136*t58*t63*t66*t82 4425 t749 = -2.735897678055539d-1*t136*t63*t64*t82 4426 t750 = 3.4242190004576467d-1*t12*t14*t320*t66 4427 t751 = -3.4242190004576467d-1*t12*t134*t14*t322*t60 4428 t752 = -5.862637881547582d-2*t10*t134*t322*t58*t62*t63 4429 t753 = -3.4242190004576467d-1*t12*t133*t134*t14*t153 4430 t754 = 6.848438000915293d-1*t12*t139*t14*t153*t177*t60 4431 t755 = 1.1725275763095165d-1*t10*t139*t153*t177*t58*t62*t63 4432 t756 = t81*(2.473556743557577d-2*t1*(-1.7121095002288234d-1* 4433 1 t10*t12*t134*t14*t60*(-2.345055152619033d-1*t135*t62*t64* 4434 2 t79+t749-1.1725275763095165d-1*t131*t138*t56*t62*t63)-1.1 4435 3 725275763095165d-1*t135*t58*t62*t66*t79+2.0074956026798d- 4436 4 2*t10*t134*t261*t501*t60*t64*t79-6.848438000915293d-1*t10 4437 5 *t12*t15*t177*t352*t60*t79+t755+t754+t753+t752+t751+t750+ 4438 6 t748+t747+t746+t745+t744+t743+t742+2.0074956026798d-2*t10 4439 7 *t139*t177*t260*t261*t60*t64-1.0037478013399d-2*t10*t133* 4440 8 t134*t260*t261*t64-5.862637881547582d-2*t134*t139*t58*t62 4441 9 *t63-1.027265700137294d+0*t10*t12*t139*t14*t352*t381*t60+ 4442 : 6.848438000915293d-1*t10*t12*t14*t153*t177*t322*t60+3.424 4443 ; 2190004576467d-1*t10*t12*t133*t14*t177*t352-3.42421900045 4444 < 76467d-1*t10*t12*t134*t14*t153*t320)*t9*wght+7.4206702306 4445 = 72731d-2*t1*t13*t355*t79*wght+t741)+t171*(-2.473556743557 4446 > 577d-2*t1*t140*t355*t9*wght-2.473556743557577d-2*t1*t154* 4447 ? t323*t9*wght-t154*t324)+4.947113487115154d-2*t1*t140*t351 4448 @ *t374*t9*wght 4449 t757 = 4.947113487115154d-2*t1*t140*t154*t157*t374*t9*wght 4450 t758 = 2.473556743557577d-2*t357*t9*wght 4451 t759 = -7.989844334401176d-1*t10*t14*t153*t156*t177*t60*t82* 4452 1 t83 4453 t760 = 3.994922167200588d-1*t134*t14*t156*t60*t82*t83 4454 t761 = 4.684156406252866d-2*t10*t134*t260*t502*t60*t64*t82 4455 t762 = 6.839744195138847d-2*t10*t134*t136*t156*t58*t63*t82 4456 t763 = -2.735897678055539d-1*t136*t58*t63*t66*t82 4457 t764 = -5.471795356111078d-1*t136*t63*t64*t82 4458 t765 = t81*(2.473556743557577d-2*t1*(-1.7121095002288234d-1* 4459 1 t10*t12*t134*t14*t60*(-4.690110305238066d-1*t135*t62*t64* 4460 2 t79+t764-2.345055152619033d-1*t131*t138*t56*t62*t63)-2.34 4461 3 5055152619033d-1*t135*t58*t62*t66*t79+4.0149912053596d-2* 4462 4 t10*t134*t261*t501*t60*t64*t79+5.862637881547582d-2*t10*t 4463 5 134*t135*t156*t58*t62*t79-6.848438000915293d-1*t10*t12*t1 4464 6 5*t153*t156*t177*t60*t79+3.4242190004576467d-1*t12*t134*t 4465 7 15*t156*t60*t79+t763+t762+t761+t760+t759+t755+t754+t753+t 4466 8 752+t751+t750+t747+t746+t744+t743+1.7121095002288234d-1*t 4467 9 12*t14*t333*t66+4.0149912053596d-2*t10*t139*t177*t260*t26 4468 : 1*t60*t64-2.0074956026798d-2*t10*t133*t134*t260*t261*t64- 4469 ; 2.931318940773791d-2*t10*t134*t335*t58*t62*t63+5.86263788 4470 < 1547582d-2*t10*t139*t156*t177*t58*t62*t63-1.1725275763095 4471 = 165d-1*t134*t139*t58*t62*t63-1.027265700137294d+0*t10*t12 4472 > *t139*t14*t153*t156*t381*t60+3.4242190004576467d-1*t10*t1 4473 ? 2*t14*t153*t177*t335*t60-1.7121095002288234d-1*t12*t134*t 4474 @ 14*t335*t60+3.4242190004576467d-1*t10*t12*t14*t156*t177*t 4475 1 322*t60+3.4242190004576467d-1*t12*t139*t14*t156*t177*t60- 4476 2 1.7121095002288234d-1*t10*t12*t134*t14*t153*t333-1.712109 4477 3 5002288234d-1*t10*t12*t134*t14*t156*t320+3.42421900045764 4478 4 67d-1*t10*t12*t133*t14*t153*t156*t177-1.7121095002288234d 4479 5 -1*t12*t133*t134*t14*t156)*t9*wght+7.420670230672731d-2*t 4480 6 1*t13*t357*t79*wght+t758) 4481 t766 = -2.473556743557577d-2*t1*t140*t357*t9*wght 4482 t767 = 2.473556743557577d-2*t361*t9*wght 4483 t768 = -7.989844334401176d-1*t10*t14*t177*t360*t60*t82*t83 4484 t769 = 1.5979688668802353d+0*t134*t14*t156*t60*t82*t83 4485 t770 = 9.368312812505732d-2*t10*t134*t260*t502*t60*t64*t82 4486 t771 = 2.735897678055539d-1*t10*t134*t136*t156*t58*t63*t82 4487 t772 = -5.471795356111078d-1*t136*t58*t63*t66*t82 4488 t773 = -1.0943590712222155d+0*t136*t63*t64*t82 4489 t774 = 6.848438000915293d-1*t12*t134*t143*t15*t153*t60 4490 t775 = 1.1725275763095165d-1*t10*t134*t135*t143*t153*t58*t62 4491 t776 = 3.4242190004576467d-1*t12*t14*t340*t66 4492 t777 = -3.4242190004576467d-1*t12*t134*t14*t341*t60 4493 t778 = -5.862637881547582d-2*t10*t134*t341*t58*t62*t63 4494 t779 = -3.4242190004576467d-1*t12*t134*t14*t150*t153 4495 t780 = 6.848438000915293d-1*t12*t14*t151*t153*t177*t60 4496 t781 = 1.1725275763095165d-1*t10*t151*t153*t177*t58*t62*t63 4497 t782 = t81*(2.473556743557577d-2*t1*(t781+t780+t779+t778+t77 4498 1 7+t776+t775+t774-1.7121095002288234d-1*t10*t12*t134*t14*t 4499 2 60*(t749-2.345055152619033d-1*t135*t143*t62*t64-1.1725275 4500 3 763095165d-1*t138*t148*t56*t62*t63)+t748+t747+t745+t744+t 4501 4 742-1.1725275763095165d-1*t135*t143*t58*t62*t66+2.0074956 4502 5 026798d-2*t10*t134*t143*t261*t501*t60*t64+2.0074956026798 4503 6 d-2*t10*t151*t177*t260*t261*t60*t64-1.0037478013399d-2*t1 4504 7 0*t134*t150*t260*t261*t64-5.862637881547582d-2*t134*t151* 4505 8 t58*t62*t63-1.027265700137294d+0*t10*t12*t14*t151*t352*t3 4506 9 81*t60-6.848438000915293d-1*t10*t12*t143*t15*t177*t352*t6 4507 : 0+6.848438000915293d-1*t10*t12*t14*t153*t177*t341*t60+3.4 4508 ; 242190004576467d-1*t10*t12*t14*t150*t177*t352-3.424219000 4509 < 4576467d-1*t10*t12*t134*t14*t153*t340)*t9*wght+7.42067023 4510 = 0672731d-2*t1*t13*t143*t355*wght+t741)+t171*(-2.473556743 4511 > 557577d-2*t1*t152*t355*t9*wght-2.473556743557577d-2*t1*t1 4512 ? 54*t342*t9*wght-t154*t343)+4.947113487115154d-2*t1*t152*t 4513 @ 351*t374*t9*wght 4514 t783 = 4.947113487115154d-2*t1*t152*t154*t157*t374*t9*wght 4515 t784 = t81*(2.473556743557577d-2*t1*(t781+t780+t779+t778+t77 4516 1 7+t776+t775+t774-1.7121095002288234d-1*t10*t12*t134*t14*t 4517 2 60*(t764-4.690110305238066d-1*t135*t143*t62*t64-2.3450551 4518 3 52619033d-1*t138*t148*t56*t62*t63)+t763+t762+t761+t760+t7 4519 4 59+t747+t744-2.345055152619033d-1*t135*t143*t58*t62*t66+1 4520 5 .7121095002288234d-1*t12*t14*t347*t66+4.0149912053596d-2* 4521 6 t10*t134*t143*t261*t501*t60*t64+4.0149912053596d-2*t10*t1 4522 7 51*t177*t260*t261*t60*t64-2.0074956026798d-2*t10*t134*t15 4523 8 0*t260*t261*t64-2.931318940773791d-2*t10*t134*t348*t58*t6 4524 9 2*t63+5.862637881547582d-2*t10*t151*t156*t177*t58*t62*t63 4525 : -1.1725275763095165d-1*t134*t151*t58*t62*t63+5.8626378815 4526 ; 47582d-2*t10*t134*t135*t143*t156*t58*t62-1.02726570013729 4527 < 4d+0*t10*t12*t14*t151*t153*t156*t381*t60+3.42421900045764 4528 = 67d-1*t10*t12*t14*t153*t177*t348*t60-1.7121095002288234d- 4529 > 1*t12*t134*t14*t348*t60+3.4242190004576467d-1*t10*t12*t14 4530 ? *t156*t177*t341*t60-6.848438000915293d-1*t10*t12*t143*t15 4531 @ *t153*t156*t177*t60+3.4242190004576467d-1*t12*t14*t151*t1 4532 1 56*t177*t60+3.4242190004576467d-1*t12*t134*t143*t15*t156* 4533 2 t60-1.7121095002288234d-1*t10*t12*t134*t14*t153*t347-1.71 4534 3 21095002288234d-1*t10*t12*t134*t14*t156*t340+3.4242190004 4535 4 576467d-1*t10*t12*t14*t150*t153*t156*t177-1.7121095002288 4536 5 234d-1*t12*t134*t14*t150*t156)*t9*wght+7.420670230672731d 4537 6 -2*t1*t13*t143*t357*wght+t758) 4538 t785 = -2.473556743557577d-2*t1*t152*t357*t9*wght 4539 t786 = 1/t11**8.0d+0 4540 t787 = 1/t8**8.0d+0 4541 t788 = 2.473556743557577d-2*t1*(-5.155578439523509d-3*t10*t1 4542 1 34*t138*t786*t787+6.0224868080394d-2*t10*t153*t177*t260*t 4543 2 261*t60*t64-3.0112434040197d-2*t134*t260*t261*t60*t64+1.7 4544 3 587913644642747d-1*t10*t177*t352*t58*t62*t63-1.7587913644 4545 4 642747d-1*t134*t153*t58*t62*t63-1.027265700137294d+0*t10* 4546 5 t12*t14*t153**3*t381*t60+1.027265700137294d+0*t12*t14*t17 4547 6 7*t352*t60)*t81*t9*wght+4.947113487115154d-2*t1*t154**3*t 4548 7 374*t9*wght-7.420670230672731d-2*t1*t154*t171*t355*t9*wgh 4549 8 t 4550 t789 = 8.0299824107192d-2*t10*t153*t177*t260*t261*t60*t64 4551 t790 = -2.345055152619033d-1*t134*t153*t58*t62*t63 4552 t791 = t171*(-4.947113487115154d-2*t1*t154*t357*t9*wght-2.47 4553 1 3556743557577d-2*t1*t157*t355*t9*wght)+2.473556743557577d 4554 2 -2*t1*(t790+t789-1.0311156879047018d-2*t10*t134*t138*t786 4555 3 *t787+2.0074956026798d-2*t10*t156*t177*t260*t261*t60*t64- 4556 4 6.0224868080394d-2*t134*t260*t261*t60*t64+1.1725275763095 4557 5 165d-1*t10*t177*t352*t58*t62*t63+1.1725275763095165d-1*t1 4558 6 0*t153*t156*t177*t58*t62*t63-5.862637881547582d-2*t134*t1 4559 7 56*t58*t62*t63-1.027265700137294d+0*t10*t12*t14*t156*t352 4560 8 *t381*t60+6.848438000915293d-1*t12*t14*t177*t352*t60+6.84 4561 9 8438000915293d-1*t12*t14*t153*t156*t177*t60)*t81*t9*wght+ 4562 : 4.947113487115154d-2*t1*t157*t351*t374*t9*wght 4563 t792 = t171*(-2.473556743557577d-2*t1*t154*t361*t9*wght-4.94 4564 1 7113487115154d-2*t1*t157*t357*t9*wght)+2.473556743557577d 4565 2 -2*t1*(t790+t789-2.0622313758094035d-2*t10*t134*t138*t786 4566 3 *t787+8.0299824107192d-2*t10*t156*t177*t260*t261*t60*t64- 4567 4 1.20449736160788d-1*t134*t260*t261*t60*t64+5.862637881547 4568 5 582d-2*t10*t177*t360*t58*t62*t63+2.345055152619033d-1*t10 4569 6 *t153*t156*t177*t58*t62*t63-2.345055152619033d-1*t134*t15 4570 7 6*t58*t62*t63-1.027265700137294d+0*t10*t12*t14*t153*t360* 4571 8 t381*t60+3.4242190004576467d-1*t12*t14*t177*t360*t60+1.36 4572 9 96876001830588d+0*t12*t14*t153*t156*t177*t60)*t81*t9*wght 4573 : +4.947113487115154d-2*t1*t154*t359*t374*t9*wght 4574 fnc(iq) = 2.473556743557577d-2*t1*t68*t9*wght+fnc(iq) 4575 Amat(iq,D1_RA) = 2.473556743557577d-2*t1*t140*t81*t9*wght+7. 4576 1 420670230672731d-2*t1*t13*t68*t79*wght+t80+Amat(iq,D1_RA) 4577 Amat(iq,D1_RB) = 2.473556743557577d-2*t1*t152*t81*t9*wght+7. 4578 1 420670230672731d-2*t1*t13*t143*t68*wght+t80+Amat(iq,D1_RB 4579 2 ) 4580 Cmat(iq,D1_GAA) = t155+Cmat(iq,D1_GAA) 4581 Cmat(iq,D1_GAB) = 2.473556743557577d-2*t1*t157*t81*t9*wght+C 4582 1 mat(iq,D1_GAB) 4583 Cmat(iq,D1_GBB) = t155+Cmat(iq,D1_GBB) 4584 Amat2(iq,D2_RA_RA) = -2.473556743557577d-2*t1*t171*t172*t9*w 4585 1 ght+1.4841340461345462d-1*t1*t158*t68*t8*wght+1.484134046 4586 2 1345462d-1*t13*t68*t79*wght+7.420670230672731d-2*t1*t13*t 4587 3 170*t68*wght+t267*t81+Amat2(iq,D2_RA_RA) 4588 Amat2(iq,D2_RA_RB) = -2.473556743557577d-2*t1*t140*t152*t171 4589 1 *t9*wght+1.4841340461345462d-1*t1*t143*t68*t79*t8*wght+7. 4590 2 420670230672731d-2*t13*t68*t79*wght+7.420670230672731d-2* 4591 3 t1*t13*t268*t68*wght+7.420670230672731d-2*t13*t143*t68*wg 4592 4 ht+t287*t81+Amat2(iq,D2_RA_RB) 4593 Amat2(iq,D2_RB_RB) = -2.473556743557577d-2*t1*t171*t294*t9*w 4594 1 ght+1.4841340461345462d-1*t1*t288*t68*t8*wght+7.420670230 4595 2 672731d-2*t1*t13*t293*t68*wght+1.4841340461345462d-1*t13* 4596 3 t143*t68*wght+t312*t81+Amat2(iq,D2_RB_RB) 4597 Cmat2(iq,D2_RA_GAA) = t325+Cmat2(iq,D2_RA_GAA) 4598 Cmat2(iq,D2_RA_GAB) = -2.473556743557577d-2*t1*t140*t157*t17 4599 1 1*t9*wght+t337*t81+Cmat2(iq,D2_RA_GAB) 4600 Cmat2(iq,D2_RA_GBB) = t325+Cmat2(iq,D2_RA_GBB) 4601 Cmat2(iq,D2_RB_GAA) = t344+Cmat2(iq,D2_RB_GAA) 4602 Cmat2(iq,D2_RB_GAB) = -2.473556743557577d-2*t1*t152*t157*t17 4603 1 1*t9*wght+t350*t81+Cmat2(iq,D2_RB_GAB) 4604 Cmat2(iq,D2_RB_GBB) = t344+Cmat2(iq,D2_RB_GBB) 4605 Cmat2(iq,D2_GAA_GAA) = t356+Cmat2(iq,D2_GAA_GAA) 4606 Cmat2(iq,D2_GAA_GAB) = t358+Cmat2(iq,D2_GAA_GAB) 4607 Cmat2(iq,D2_GAA_GBB) = t356+Cmat2(iq,D2_GAA_GBB) 4608 Cmat2(iq,D2_GAB_GAB) = 2.473556743557577d-2*t1*t361*t81*t9*w 4609 1 ght-2.473556743557577d-2*t1*t171*t359*t9*wght+Cmat2(iq,D2 4610 2 _GAB_GAB) 4611 Cmat2(iq,D2_GAB_GBB) = t358+Cmat2(iq,D2_GAB_GBB) 4612 Cmat2(iq,D2_GBB_GBB) = t356+Cmat2(iq,D2_GBB_GBB) 4613 Amat3(iq,D3_RA_RA_RA) = t81*(2.473556743557577d-2*t1*(4.7939 4614 1 06600640706d+0*t10*t133*t15*t66*t79*t82*t83-4.79390660064 4615 2 0706d+0*t10*t134*t139*t15*t60*t79*t82*t83-7.1908599009610 4616 3 59d+0*t10*t158*t60*t63*t66*t82*t83+2.396953300320353d+0*t 4617 4 10*t15*t170*t60*t66*t82*t83-1.1984766501601765d+0*t10*t14 4618 5 *t259*t66*t82*t83+1.1984766501601765d+0*t10*t134*t14*t265 4619 6 *t60*t82*t83-2.396953300320353d+0*t10*t14*t177*t178*t60*t 4620 7 82*t83+2.396953300320353d+0*t10*t133*t134*t139*t14*t82*t8 4621 8 3+3.9949221672005897d-1*t10*t15*t175*t60*t66*t79*t83-1.99 4622 9 74610836002948d-1*t10*t133*t14*t175*t66*t83+1.99746108360 4623 : 02948d-1*t10*t134*t139*t14*t175*t60*t83-1.712109500228823 4624 ; 4d-1*t10*t12*t134*t14*t60*(-6.566154427333293d+0*t131*t13 4625 < 5*t136*t138*t56*t61*t79*t82-8.207693034166617d+0*t136*t15 4626 = 8*t260*t61*t64*t82+1.6415386068333232d+0*t135*t136*t170*t 4627 > 61*t64*t82+8.207693034166617d-1*t136*t138*t255*t56*t61*t6 4628 ? 3*t82+8.207693034166617d-1*t136*t138*t186*t56*t61*t63*t82 4629 @ -2.4623079102499848d+0*t136*t184*t186*t264*t61*t63*t82+1. 4630 1 7587913644642747d+0*t170*t260*t61*t62*t64*t79-9.575641873 4631 2 194387d+0*t135*t173*t261*t61*t64*t79+2.73589767805554d-1* 4632 3 t135*t136*t175*t61*t64*t79+7.035165457857099d-1*t135*t138 4633 4 *t255*t56*t61*t62*t79+7.035165457857099d-1*t135*t138*t186 4634 5 *t56*t61*t62*t79-2.1105496373571295d+0*t135*t184*t186*t26 4635 6 4*t61*t62*t79-3.5175827289285494d+0*t362*t501*t61*t62*t64 4636 7 -1.1725275763095165d-1*t135*t373*t61*t62*t64-5.8626378815 4637 8 47582d-2*t138*t499*t56*t61*t62*t63-5.862637881547582d-2*t 4638 9 138*t398*t56*t61*t62*t63-1.7587913644642747d-1*t131*t138* 4639 : t255*t56*t61*t62*t63-7.035165457857099d-1*t396*t398*t506* 4640 ; t61*t62*t63+1.7587913644642747d-1*t184*t186*t264*t411*t61 4641 < *t62*t63+1.7587913644642747d-1*t184*t264*t398*t61*t62*t63 4642 = +5.276374093392824d-1*t131*t184*t255*t264*t61*t62*t63-4.7 4643 > 878209365971935d+0*t131*t138*t173*t261*t56*t61*t63+1.3679 4644 ? 4883902777d-1*t131*t136*t138*t175*t56*t61*t63-3.517582728 4645 @ 9285494d+0*t131*t138*t158*t260*t56*t61*t62+7.035165457857 4646 1 099d-1*t131*t135*t138*t170*t56*t61*t62+t505+t504+t503+t50 4647 2 0+t412+t410+t409+t408+t407+t406+t405+t404+t403+t402+t401+ 4648 3 t400+t399+t395+t394+t393+t392+t391+t390+t389+t388+t387+t3 4649 4 86+t385+t384+t383+t382)+3.081797100411882d+0*t10*t12*t170 4650 5 *t60*t63*t66*t79-8.389336551121236d+0*t10*t15*t173*t60*t6 4651 6 2*t66*t79-1.027265700137294d+0*t10*t12*t15*t259*t66*t79+1 4652 7 .027265700137294d+0*t10*t12*t134*t15*t265*t60*t79-2.05453 4653 8 1400274588d+0*t10*t12*t15*t177*t178*t60*t79+2.05453140027 4654 9 4588d+0*t10*t12*t133*t134*t139*t15*t79+3.081797100411882d 4655 : +0*t10*t12*t133*t158*t63*t66+4.194668275560618d+0*t10*t13 4656 ; 3*t14*t173*t62*t66-3.4242190004576467d-1*t10*t12*t15*t373 4657 < *t60*t66-4.109062800549176d+0*t10*t12*t135*t362*t60*t66+1 4658 = .7121095002288234d-1*t10*t12*t14*(t500+t412+t410+t409+t40 4659 > 8+t407+t406+t405+t404+t403+t402+t401+t400+t399+t395+t394+ 4660 ? t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+t383+t3 4661 @ 82)*t66-1.027265700137294d+0*t10*t12*t133*t15*t170*t66-3. 4662 1 081797100411882d+0*t10*t12*t134*t139*t158*t60*t63-4.19466 4663 2 8275560618d+0*t10*t134*t139*t14*t173*t60*t62-1.0272657001 4664 3 37294d+0*t10*t12*t139**3*t14*t381*t60+1.027265700137294d+ 4665 4 0*t10*t12*t139*t14*t177*t265*t60+1.027265700137294d+0*t10 4666 5 *t12*t134*t139*t15*t170*t60+t380+t378+t376-5.136328500686 4667 6 47d-1*t10*t12*t133*t134*t14*t265-5.13632850068647d-1*t10* 4668 7 t12*t134*t139*t14*t259+1.027265700137294d+0*t10*t12*t133* 4669 8 t14*t177*t178)*t9*wght+7.420670230672731d-2*t266*t9*wght+ 4670 9 4.4524021384036383d-1*t1*t140*t158*t8*wght+2.226201069201 4671 : 8191d-1*t1*t13*t266*t79*wght+4.4524021384036383d-1*t13*t1 4672 ; 40*t79*wght+2.2262010692018191d-1*t1*t13*t140*t170*wght)+ 4673 < t171*(-4.947113487115154d-2*t1*t140*t266*t9*wght-7.420670 4674 = 230672731d-2*t1*t13*t172*t79*wght+t507-t140*t267)+4.94711 4675 > 3487115154d-2*t1*t140**3*t374*t9*wght+4.4524021384036383d 4676 ? -1*t1*t170*t68*t79*t8*wght+4.4524021384036383d-1*t158*t68 4677 @ *t8*wght+7.420670230672731d-2*t1*t13*t373*t68*wght+1.4841 4678 1 340461345462d-1*t1*t362*t68*wght+2.2262010692018191d-1*t1 4679 2 3*t170*t68*wght+Amat3(iq,D3_RA_RA_RA) 4680 Amat3(iq,D3_RA_RA_RB) = t81*(2.473556743557577d-2*t1*(1.5979 4681 1 688668802353d+0*t10*t133*t15*t66*t79*t82*t83-1.5979688668 4682 2 802353d+0*t10*t134*t139*t15*t60*t79*t82*t83-2.39695330032 4683 3 0353d+0*t10*t158*t60*t63*t66*t82*t83+7.989844334401176d-1 4684 4 *t10*t15*t170*t60*t66*t82*t83-3.994922167200588d-1*t10*t1 4685 5 4*t259*t66*t82*t83+3.994922167200588d-1*t10*t134*t14*t265 4686 6 *t60*t82*t83-7.989844334401176d-1*t10*t14*t177*t178*t60*t 4687 7 82*t83+7.989844334401176d-1*t10*t133*t134*t139*t14*t82*t8 4688 8 3+2.6632814448003933d-1*t10*t15*t175*t60*t66*t79*t83+1.33 4689 9 16407224001967d-1*t10*t143*t15*t175*t60*t66*t83-6.6582036 4690 : 12000984d-2*t10*t14*t150*t175*t66*t83-1.3316407224001967d 4691 ; -1*t10*t133*t14*t175*t66*t83+6.658203612000984d-2*t10*t13 4692 < 4*t14*t151*t175*t60*t83+1.3316407224001967d-1*t10*t134*t1 4693 = 39*t14*t175*t60*t83-1.7121095002288234d-1*t10*t12*t134*t1 4694 > 4*t60*(-5.471795356111078d+0*t136*t143*t260*t61*t64*t79*t 4695 ? 82-2.188718142444431d+0*t131*t135*t136*t138*t56*t61*t79*t 4696 @ 82-2.7358976780555383d+0*t136*t158*t260*t61*t64*t82+5.471 4697 1 795356111078d-1*t135*t136*t170*t61*t64*t82+2.735897678055 4698 2 539d-1*t136*t138*t255*t56*t61*t63*t82+2.735897678055539d- 4699 3 1*t136*t138*t186*t56*t61*t63*t82-8.207693034166615d-1*t13 4700 4 6*t184*t186*t264*t61*t63*t82+1.1725275763095164d+0*t260*t 4701 5 268*t61*t62*t64*t79-6.383761248796258d+0*t135*t173*t261*t 4702 6 61*t64*t79+1.8239317853703602d-1*t135*t136*t175*t61*t64*t 4703 7 79+4.690110305238066d-1*t135*t138*t276*t56*t61*t62*t79-2. 4704 8 3450551526190327d+0*t131*t138*t143*t260*t56*t61*t62*t79+4 4705 9 .690110305238066d-1*t131*t135*t138*t148*t56*t61*t62*t79-1 4706 : .4070330915714196d+0*t131*t135*t148*t184*t264*t61*t62*t79 4707 ; -1.1725275763095165d-1*t135*t512*t61*t62*t64-3.5175827289 4708 < 285494d+0*t143*t158*t501*t61*t62*t64+5.862637881547582d-1 4709 = *t143*t170*t260*t61*t62*t64-3.191880624398129d+0*t135*t14 4710 > 3*t173*t261*t61*t64+9.119658926851801d-2*t135*t136*t143*t 4711 ? 175*t61*t64-5.862637881547582d-2*t138*t56*t574*t61*t62*t6 4712 @ 3-1.1725275763095165d-1*t131*t138*t276*t56*t61*t62*t63-5. 4713 1 862637881547582d-2*t138*t148*t255*t56*t61*t62*t63-5.86263 4714 2 7881547582d-2*t138*t148*t186*t56*t61*t62*t63+1.7587913644 4715 3 642747d-1*t184*t186*t264*t546*t61*t62*t63-7.0351654578570 4716 4 99d-1*t148*t186*t396*t506*t61*t62*t63+3.5175827289285494d 4717 5 -1*t131*t184*t264*t276*t61*t62*t63+1.7587913644642747d-1* 4718 6 t148*t184*t255*t264*t61*t62*t63+1.7587913644642747d-1*t14 4719 7 8*t184*t186*t264*t61*t62*t63-1.5959403121990645d+0*t138*t 4720 8 148*t173*t261*t56*t61*t63-3.191880624398129d+0*t131*t138* 4721 9 t173*t261*t56*t61*t63+4.5598294634259007d-2*t136*t138*t14 4722 : 8*t175*t56*t61*t63+9.119658926851801d-2*t131*t136*t138*t1 4723 ; 75*t56*t61*t63+4.690110305238066d-1*t131*t135*t138*t268*t 4724 < 56*t61*t62-1.1725275763095164d+0*t138*t148*t158*t260*t56* 4725 = t61*t62+2.345055152619033d-1*t135*t138*t143*t255*t56*t61* 4726 > t62+2.345055152619033d-1*t135*t138*t143*t186*t56*t61*t62+ 4727 ? 2.345055152619033d-1*t135*t138*t148*t170*t56*t61*t62-7.03 4728 @ 5165457857099d-1*t135*t143*t184*t186*t264*t61*t62+t581+t5 4729 1 80+t579+t578+t577+t576+t575+t570+t569+t568+t567+t566+t565 4730 2 +t564+t563+t562+t561+t560+t559+t558+t557+t556+t555+t554+t 4731 3 553+t552+t551+t550+t549+t548+t547+t545+t544+t543+t542+t54 4732 4 1+t540+t539+t538+t537+t536+t535+t534+t533+t532+t531+t530+ 4733 5 t529+t528+t527+t505+t504+t503+t391+t390+t389)+2.054531400 4734 6 274588d+0*t10*t12*t268*t60*t63*t66*t79+2.054531400274588d 4735 7 +0*t10*t12*t133*t143*t63*t66*t79-5.592891034080824d+0*t10 4736 8 *t15*t173*t60*t62*t66*t79-6.848438000915293d-1*t10*t12*t1 4737 9 5*t284*t66*t79-2.054531400274588d+0*t10*t12*t134*t139*t14 4738 : 3*t60*t63*t79+6.848438000915293d-1*t10*t12*t134*t15*t285* 4739 ; t60*t79-1.3696876001830588d+0*t10*t12*t139*t15*t151*t177* 4740 < t60*t79+6.848438000915293d-1*t10*t12*t133*t134*t15*t151*t 4741 = 79+6.848438000915293d-1*t10*t12*t134*t139*t15*t150*t79+1. 4742 > 027265700137294d+0*t10*t12*t143*t170*t60*t63*t66+1.027265 4743 ? 700137294d+0*t10*t12*t150*t158*t63*t66-2.796445517040412d 4744 @ +0*t10*t143*t15*t173*t60*t62*t66+1.398222758520206d+0*t10 4745 1 *t14*t150*t173*t62*t66+2.796445517040412d+0*t10*t133*t14* 4746 2 t173*t62*t66-3.4242190004576467d-1*t10*t12*t15*t512*t60*t 4747 3 66-4.109062800549176d+0*t10*t12*t135*t143*t158*t60*t66+1. 4748 4 7121095002288234d-1*t10*t12*t14*(t575+t570+t569+t568+t567 4749 5 +t566+t565+t564+t563+t562+t561+t560+t559+t558+t557+t556+t 4750 6 555+t554+t553+t552+t551+t550+t549+t548+t547+t545+t544+t54 4751 7 3+t542+t541+t540+t539+t538+t537+t536+t535+t534+t533+t532+ 4752 8 t531+t530+t529+t528+t527+t391+t390+t389)*t66-6.8484380009 4753 9 15293d-1*t10*t12*t133*t15*t268*t66-3.4242190004576467d-1* 4754 : t10*t12*t143*t15*t259*t66-3.4242190004576467d-1*t10*t12*t 4755 ; 15*t150*t170*t66-1.027265700137294d+0*t10*t12*t134*t151*t 4756 < 158*t60*t63-1.398222758520206d+0*t10*t134*t14*t151*t173*t 4757 = 60*t62-2.796445517040412d+0*t10*t134*t139*t14*t173*t60*t6 4758 > 2-1.027265700137294d+0*t10*t12*t14*t151*t178*t381*t60+6.8 4759 ? 48438000915293d-1*t10*t12*t139*t14*t177*t285*t60+6.848438 4760 @ 000915293d-1*t10*t12*t134*t139*t15*t268*t60+3.42421900045 4761 1 76467d-1*t10*t12*t14*t151*t177*t265*t60+3.424219000457646 4762 2 7d-1*t10*t12*t134*t143*t15*t265*t60-6.848438000915293d-1* 4763 3 t10*t12*t143*t15*t177*t178*t60+3.4242190004576467d-1*t10* 4764 4 t12*t134*t15*t151*t170*t60+t526+t525+t524+t523+t522+t521+ 4765 5 t520+t519+t518+t517+t516+t380+t378+t376-3.424219000457646 4766 6 7d-1*t10*t12*t133*t134*t14*t285-3.4242190004576467d-1*t10 4767 7 *t12*t134*t139*t14*t284-1.7121095002288234d-1*t10*t12*t13 4768 8 4*t14*t150*t265-1.7121095002288234d-1*t10*t12*t134*t14*t1 4769 9 51*t259+3.4242190004576467d-1*t10*t12*t14*t150*t177*t178+ 4770 : 6.848438000915293d-1*t10*t12*t133*t139*t14*t151*t177+6.84 4771 ; 8438000915293d-1*t10*t12*t133*t134*t139*t143*t15)*t9*wght 4772 < +2.473556743557577d-2*t266*t9*wght+2.9682680922690924d-1* 4773 = t1*t140*t143*t79*t8*wght+1.4841340461345462d-1*t1*t152*t1 4774 > 58*t8*wght+1.4841340461345462d-1*t1*t13*t286*t79*wght+1.4 4775 ? 841340461345462d-1*t13*t140*t79*wght+1.4841340461345462d- 4776 @ 1*t1*t13*t140*t268*wght+7.420670230672731d-2*t1*t13*t143* 4777 1 t266*wght+7.420670230672731d-2*t1*t13*t152*t170*wght+t515 4778 2 +t514+t513)+t171*(-4.947113487115154d-2*t1*t140*t286*t9*w 4779 3 ght-7.420670230672731d-2*t1*t13*t143*t172*wght+t507-t152* 4780 4 t267)+4.947113487115154d-2*t1*t152*t172*t374*t9*wght+2.96 4781 5 82680922690924d-1*t1*t268*t68*t79*t8*wght+1.4841340461345 4782 6 462d-1*t1*t143*t170*t68*t8*wght+1.4841340461345462d-1*t15 4783 7 8*t68*t8*wght+7.420670230672731d-2*t1*t13*t512*t68*wght+7 4784 8 .420670230672731d-2*t13*t170*t68*wght+1.4841340461345462d 4785 9 -1*t1*t143*t158*t68*wght+t509+t508+Amat3(iq,D3_RA_RA_RB) 4786 Amat3(iq,D3_RA_RB_RB) = t81*(2.473556743557577d-2*t1*(-2.396 4787 1 953300320353d+0*t10*t288*t60*t63*t66*t82*t83+7.9898443344 4788 2 01176d-1*t10*t15*t293*t60*t66*t82*t83-3.994922167200588d- 4789 3 1*t10*t14*t309*t66*t82*t83+1.5979688668802353d+0*t10*t143 4790 4 *t15*t150*t66*t82*t83+3.994922167200588d-1*t10*t134*t14*t 4791 5 310*t60*t82*t83-7.989844334401176d-1*t10*t14*t177*t295*t6 4792 6 0*t82*t83-1.5979688668802353d+0*t10*t134*t143*t15*t151*t6 4793 7 0*t82*t83+7.989844334401176d-1*t10*t134*t14*t150*t151*t82 4794 8 *t83+1.3316407224001967d-1*t10*t15*t175*t60*t66*t79*t83+2 4795 9 .6632814448003933d-1*t10*t143*t15*t175*t60*t66*t83-1.3316 4796 : 407224001967d-1*t10*t14*t150*t175*t66*t83-6.6582036120009 4797 ; 84d-2*t10*t133*t14*t175*t66*t83+1.3316407224001967d-1*t10 4798 < *t134*t14*t151*t175*t60*t83+6.658203612000984d-2*t10*t134 4799 = *t139*t14*t175*t60*t83-1.7121095002288234d-1*t10*t12*t134 4800 > *t14*t60*(-5.471795356111077d+0*t136*t143*t260*t61*t64*t7 4801 ? 9*t82+5.471795356111078d-1*t135*t136*t293*t61*t64*t82-2.7 4802 @ 35897678055539d+0*t136*t260*t288*t61*t64*t82+2.7358976780 4803 1 55539d-1*t136*t138*t305*t56*t61*t63*t82+2.735897678055539 4804 2 d-1*t136*t138*t299*t56*t61*t63*t82-8.207693034166617d-1*t 4805 3 136*t184*t264*t299*t61*t63*t82-2.188718142444431d+0*t135* 4806 4 t136*t138*t143*t148*t56*t61*t82-3.5175827289285494d+0*t28 4807 5 8*t501*t61*t62*t64*t79+5.862637881547582d-1*t260*t293*t61 4808 6 *t62*t64*t79-3.191880624398129d+0*t135*t173*t261*t61*t64* 4809 7 t79+9.119658926851801d-2*t135*t136*t175*t61*t64*t79+2.345 4810 8 055152619033d-1*t135*t138*t305*t56*t61*t62*t79+2.34505515 4811 9 2619033d-1*t135*t138*t299*t56*t61*t62*t79-2.3450551526190 4812 : 327d+0*t138*t143*t148*t260*t56*t61*t62*t79-7.035165457857 4813 ; 099d-1*t135*t184*t264*t299*t61*t62*t79-1.1725275763095165 4814 < d-1*t135*t582*t61*t62*t64+1.1725275763095164d+0*t143*t260 4815 = *t268*t61*t62*t64-6.383761248796258d+0*t135*t143*t173*t26 4816 > 1*t61*t64+1.8239317853703602d-1*t135*t136*t143*t175*t61*t 4817 ? 64-5.862637881547582d-2*t138*t56*t61*t619*t62*t63-5.86263 4818 @ 7881547582d-2*t131*t138*t305*t56*t61*t62*t63-5.8626378815 4819 1 47582d-2*t131*t138*t299*t56*t61*t62*t63-1.172527576309516 4820 2 5d-1*t138*t148*t276*t56*t61*t62*t63+1.7587913644642747d-1 4821 3 *t131*t148*t184*t264*t546*t61*t62*t63-7.035165457857099d- 4822 4 1*t131*t299*t396*t506*t61*t62*t63+1.7587913644642747d-1*t 4823 5 131*t184*t264*t305*t61*t62*t63+1.7587913644642747d-1*t131 4824 6 *t184*t264*t299*t61*t62*t63+3.5175827289285494d-1*t148*t1 4825 7 84*t264*t276*t61*t62*t63-3.191880624398129d+0*t138*t148*t 4826 8 173*t261*t56*t61*t63-1.5959403121990645d+0*t131*t138*t173 4827 9 *t261*t56*t61*t63+9.119658926851801d-2*t136*t138*t148*t17 4828 : 5*t56*t61*t63+4.5598294634259007d-2*t131*t136*t138*t175*t 4829 ; 56*t61*t63+t620+2.345055152619033d-1*t131*t135*t138*t293* 4830 < t56*t61*t62-1.1725275763095164d+0*t131*t138*t260*t288*t56 4831 = *t61*t62+4.690110305238066d-1*t135*t138*t143*t276*t56*t61 4832 > *t62+4.690110305238066d-1*t135*t138*t148*t268*t56*t61*t62 4833 ? +4.690110305238066d-1*t131*t135*t138*t143*t148*t56*t61*t6 4834 @ 2-1.4070330915714196d+0*t131*t135*t143*t148*t184*t264*t61 4835 1 *t62+t618+t617+t616+t615+t614+t613+t612+t611+t610+t609+t6 4836 2 08+t607+t606+t605+t604+t603+t602+t601+t600+t599+t598+t597 4837 3 +t596+t595+t594+t593+t592+t591+t590+t589+t588+t587+t586+t 4838 4 585+t584+t583+t581+t580+t579+t578+t577+t576+t570+t568+t56 4839 5 1+t554+t549+t532+t530+t505+t504+t503+t391+t390+t389)+1.02 4840 6 7265700137294d+0*t10*t12*t293*t60*t63*t66*t79+2.054531400 4841 7 274588d+0*t10*t12*t143*t150*t63*t66*t79-2.796445517040412 4842 8 d+0*t10*t15*t173*t60*t62*t66*t79-4.109062800549176d+0*t10 4843 9 *t12*t135*t288*t60*t66*t79-3.4242190004576467d-1*t10*t12* 4844 : t15*t309*t66*t79-2.054531400274588d+0*t10*t12*t134*t143*t 4845 ; 151*t60*t63*t79+3.4242190004576467d-1*t10*t12*t134*t15*t3 4846 < 10*t60*t79-6.848438000915293d-1*t10*t12*t15*t177*t295*t60 4847 = *t79+6.848438000915293d-1*t10*t12*t134*t15*t150*t151*t79+ 4848 > 2.054531400274588d+0*t10*t12*t143*t268*t60*t63*t66+1.0272 4849 ? 65700137294d+0*t10*t12*t133*t288*t63*t66+1.71210950022882 4850 @ 34d-1*t10*t12*t14*(t620+t618+t617+t616+t615+t614+t613+t61 4851 1 2+t611+t610+t609+t608+t607+t606+t605+t604+t603+t602+t601+ 4852 2 t600+t599+t598+t597+t596+t595+t594+t593+t592+t591+t590+t5 4853 3 89+t588+t587+t586+t585+t584+t583+t570+t568+t561+t554+t549 4854 4 +t532+t530+t391+t390+t389)*t66-5.592891034080824d+0*t10*t 4855 5 143*t15*t173*t60*t62*t66+2.796445517040412d+0*t10*t14*t15 4856 6 0*t173*t62*t66+1.398222758520206d+0*t10*t133*t14*t173*t62 4857 7 *t66-3.4242190004576467d-1*t10*t12*t15*t582*t60*t66-3.424 4858 8 2190004576467d-1*t10*t12*t133*t15*t293*t66-6.848438000915 4859 9 293d-1*t10*t12*t143*t15*t284*t66-6.848438000915293d-1*t10 4860 : *t12*t15*t150*t268*t66-1.027265700137294d+0*t10*t12*t134* 4861 ; t139*t288*t60*t63-2.796445517040412d+0*t10*t134*t14*t151* 4862 < t173*t60*t62-1.398222758520206d+0*t10*t134*t139*t14*t173* 4863 = t60*t62-1.027265700137294d+0*t10*t12*t139*t14*t295*t381*t 4864 > 60+3.4242190004576467d-1*t10*t12*t139*t14*t177*t310*t60+3 4865 ? .4242190004576467d-1*t10*t12*t134*t139*t15*t293*t60+6.848 4866 @ 438000915293d-1*t10*t12*t14*t151*t177*t285*t60+6.84843800 4867 1 0915293d-1*t10*t12*t134*t143*t15*t285*t60+6.8484380009152 4868 2 93d-1*t10*t12*t134*t15*t151*t268*t60-1.3696876001830588d+ 4869 3 0*t10*t12*t139*t143*t15*t151*t177*t60+t526+t525+t524+t523 4870 4 +t522+t521+t520+t519+t518+t517+t516+t380+t378+t376-1.7121 4871 5 095002288234d-1*t10*t12*t133*t134*t14*t310-1.712109500228 4872 6 8234d-1*t10*t12*t134*t139*t14*t309+3.4242190004576467d-1* 4873 7 t10*t12*t133*t14*t177*t295-3.4242190004576467d-1*t10*t12* 4874 8 t134*t14*t150*t285-3.4242190004576467d-1*t10*t12*t134*t14 4875 9 *t151*t284+6.848438000915293d-1*t10*t12*t139*t14*t150*t15 4876 : 1*t177+6.848438000915293d-1*t10*t12*t133*t134*t143*t15*t1 4877 ; 51+6.848438000915293d-1*t10*t12*t134*t139*t143*t15*t150)* 4878 < t9*wght+2.473556743557577d-2*t311*t9*wght+2.9682680922690 4879 = 924d-1*t1*t143*t152*t79*t8*wght+1.4841340461345462d-1*t1* 4880 > t140*t288*t8*wght+7.420670230672731d-2*t1*t13*t311*t79*wg 4881 ? ht+7.420670230672731d-2*t1*t13*t140*t293*wght+1.484134046 4882 @ 1345462d-1*t1*t13*t143*t286*wght+1.4841340461345462d-1*t1 4883 1 *t13*t152*t268*wght+1.4841340461345462d-1*t13*t143*t152*w 4884 2 ght+t515+t514+t513)+t171*(-2.473556743557577d-2*t1*t140*t 4885 3 311*t9*wght-2.473556743557577d-2*t1*t152*t286*t9*wght-2.4 4886 4 73556743557577d-2*t140*t152*t9*wght-7.420670230672731d-2* 4887 5 t1*t13*t140*t143*t152*wght-t152*t287)+4.947113487115154d- 4888 6 2*t1*t140*t294*t374*t9*wght+1.4841340461345462d-1*t1*t293 4889 7 *t68*t79*t8*wght+1.4841340461345462d-1*t288*t68*t8*wght+2 4890 8 .9682680922690924d-1*t1*t143*t268*t68*t8*wght+1.484134046 4891 9 1345462d-1*t1*t288*t68*t79*wght+7.420670230672731d-2*t1*t 4892 : 13*t582*t68*wght+7.420670230672731d-2*t13*t293*t68*wght+t 4893 ; 509+t508+Amat3(iq,D3_RA_RB_RB) 4894 Amat3(iq,D3_RB_RB_RB) = t81*(2.473556743557577d-2*t1*(-7.190 4895 1 859900961059d+0*t10*t288*t60*t63*t66*t82*t83+2.3969533003 4896 2 20353d+0*t10*t15*t293*t60*t66*t82*t83-1.1984766501601765d 4897 3 +0*t10*t14*t309*t66*t82*t83+4.793906600640706d+0*t10*t143 4898 4 *t15*t150*t66*t82*t83+1.1984766501601765d+0*t10*t134*t14* 4899 5 t310*t60*t82*t83-2.396953300320353d+0*t10*t14*t177*t295*t 4900 6 60*t82*t83-4.793906600640706d+0*t10*t134*t143*t15*t151*t6 4901 7 0*t82*t83+2.396953300320353d+0*t10*t134*t14*t150*t151*t82 4902 8 *t83+3.9949221672005897d-1*t10*t143*t15*t175*t60*t66*t83- 4903 9 1.9974610836002948d-1*t10*t14*t150*t175*t66*t83+1.9974610 4904 : 836002948d-1*t10*t134*t14*t151*t175*t60*t83-1.71210950022 4905 ; 88234d-1*t10*t12*t134*t14*t60*(1.6415386068333232d+0*t135 4906 < *t136*t293*t61*t64*t82-8.207693034166617d+0*t136*t260*t28 4907 = 8*t61*t64*t82+8.207693034166617d-1*t136*t138*t305*t56*t61 4908 > *t63*t82+8.207693034166617d-1*t136*t138*t299*t56*t61*t63* 4909 ? t82-2.4623079102499848d+0*t136*t184*t264*t299*t61*t63*t82 4910 @ -6.566154427333293d+0*t135*t136*t138*t143*t148*t56*t61*t8 4911 1 2+t653-5.862637881547582d-2*t138*t56*t61*t62*t63*t652+t65 4912 2 1+t650+t649+t648+t647+t646+t645+t644+t643+t642+t641+t640- 4913 3 1.1725275763095165d-1*t135*t61*t62*t626*t64-3.51758272892 4914 4 85494d+0*t501*t61*t62*t621*t64+1.7587913644642747d+0*t143 4915 5 *t260*t293*t61*t62*t64-9.575641873194387d+0*t135*t143*t17 4916 6 3*t261*t61*t64+2.73589767805554d-1*t135*t136*t143*t175*t6 4917 7 1*t64+t639-5.862637881547582d-2*t138*t56*t61*t62*t63*t638 4918 8 -7.035165457857099d-1*t396*t506*t61*t62*t63*t638+1.758791 4919 9 3644642747d-1*t184*t264*t61*t62*t63*t638+t637+t636+t635+t 4920 : 634+t633+t632+t631+t630-1.7587913644642747d-1*t138*t148*t 4921 ; 305*t56*t61*t62*t63+1.7587913644642747d-1*t184*t264*t299* 4922 < t546*t61*t62*t63+5.276374093392824d-1*t148*t184*t264*t305 4923 = *t61*t62*t63-4.7878209365971935d+0*t138*t148*t173*t261*t5 4924 > 6*t61*t63+1.36794883902777d-1*t136*t138*t148*t175*t56*t61 4925 ? *t63+t629+t628+t627+7.035165457857099d-1*t135*t138*t143*t 4926 @ 305*t56*t61*t62+7.035165457857099d-1*t135*t138*t143*t299* 4927 1 t56*t61*t62+7.035165457857099d-1*t135*t138*t148*t293*t56* 4928 2 t61*t62-3.5175827289285494d+0*t138*t148*t260*t288*t56*t61 4929 3 *t62-2.1105496373571295d+0*t135*t143*t184*t264*t299*t61*t 4930 4 62+t505+t504+t503+t391+t390+t389)+1.7121095002288234d-1*t 4931 5 10*t12*t14*(t653+t651+t650+t649+t648+t647+t646+t645+t644+ 4932 6 t643+t642+t641+t640+t639+t637+t636+t635+t634+t633+t632+t6 4933 7 31+t630+t629+t628+t627+t391+t390+t389)*t66+3.081797100411 4934 8 882d+0*t10*t12*t143*t293*t60*t63*t66+3.081797100411882d+0 4935 9 *t10*t12*t150*t288*t63*t66-3.4242190004576467d-1*t10*t12* 4936 : t15*t60*t626*t66-4.109062800549176d+0*t10*t12*t135*t60*t6 4937 ; 21*t66-8.389336551121236d+0*t10*t143*t15*t173*t60*t62*t66 4938 < +4.194668275560618d+0*t10*t14*t150*t173*t62*t66-1.0272657 4939 = 00137294d+0*t10*t12*t143*t15*t309*t66-1.027265700137294d+ 4940 > 0*t10*t12*t15*t150*t293*t66-3.081797100411882d+0*t10*t12* 4941 ? t134*t151*t288*t60*t63-4.194668275560618d+0*t10*t134*t14* 4942 @ t151*t173*t60*t62-1.027265700137294d+0*t10*t12*t14*t151** 4943 1 3*t381*t60+1.027265700137294d+0*t10*t12*t14*t151*t177*t31 4944 2 0*t60+1.027265700137294d+0*t10*t12*t134*t143*t15*t310*t60 4945 3 -2.054531400274588d+0*t10*t12*t143*t15*t177*t295*t60+1.02 4946 4 7265700137294d+0*t10*t12*t134*t15*t151*t293*t60+t380+t378 4947 5 +t376-5.13632850068647d-1*t10*t12*t134*t14*t150*t310-5.13 4948 6 632850068647d-1*t10*t12*t134*t14*t151*t309+1.027265700137 4949 7 294d+0*t10*t12*t14*t150*t177*t295+2.054531400274588d+0*t1 4950 8 0*t12*t134*t143*t15*t150*t151)*t9*wght+7.420670230672731d 4951 9 -2*t311*t9*wght+4.4524021384036383d-1*t1*t152*t288*t8*wgh 4952 : t+2.2262010692018191d-1*t1*t13*t143*t311*wght+2.226201069 4953 ; 2018191d-1*t1*t13*t152*t293*wght+4.4524021384036383d-1*t1 4954 < 3*t143*t152*wght)+t171*(-4.947113487115154d-2*t1*t152*t31 4955 = 1*t9*wght-2.473556743557577d-2*t294*t9*wght-7.42067023067 4956 > 2731d-2*t1*t13*t143*t294*wght-t152*t312)+4.94711348711515 4957 ? 4d-2*t1*t152**3*t374*t9*wght+4.4524021384036383d-1*t1*t14 4958 @ 3*t293*t68*t8*wght+4.4524021384036383d-1*t288*t68*t8*wght 4959 1 +7.420670230672731d-2*t1*t13*t626*t68*wght+1.484134046134 4960 2 5462d-1*t1*t621*t68*wght+2.2262010692018191d-1*t13*t293*t 4961 3 68*wght+Amat3(iq,D3_RB_RB_RB) 4962 Cmat3(iq,D3_RA_RA_GAA) = t679+Cmat3(iq,D3_RA_RA_GAA) 4963 Cmat3(iq,D3_RA_RA_GAB) = t81*(2.473556743557577d-2*t1*(3.195 4964 1 9377337604705d+0*t15*t60*t66*t79*t82*t83-1.59796886688023 4965 2 53d+0*t10*t134*t15*t156*t60*t79*t82*t83-7.989844334401176 4966 3 d-1*t10*t14*t333*t66*t82*t83-1.5979688668802353d+0*t133*t 4967 4 14*t66*t82*t83+7.989844334401176d-1*t10*t134*t14*t335*t60 4968 5 *t82*t83-1.5979688668802353d+0*t10*t139*t14*t156*t177*t60 4969 6 *t82*t83+1.5979688668802353d+0*t134*t139*t14*t60*t82*t83+ 4970 7 7.989844334401176d-1*t10*t133*t134*t14*t156*t82*t83-1.712 4971 8 1095002288234d-1*t10*t12*t134*t14*t60*(4.377436284888862d 4972 9 +0*t10*t135*t136*t64*t79*t82+2.188718142444431d+0*t10*t13 4973 : 1*t136*t138*t56*t63*t82+1.8760441220952265d+0*t10*t131*t1 4974 ; 35*t138*t56*t62*t79+t697+t696+t695+t694+t693+t692+t691+t6 4975 < 90+t689+t688+t687+t686+2.3450551526190327d+0*t10*t158*t26 4976 = 0*t62*t64-4.690110305238066d-1*t10*t135*t170*t62*t64-2.34 4977 > 5055152619033d-1*t10*t138*t255*t56*t62*t63-2.345055152619 4978 ? 033d-1*t10*t138*t186*t56*t62*t63+7.035165457857099d-1*t10 4979 @ *t184*t186*t264*t62*t63)+5.471795356111078d-1*t10*t135*t1 4980 1 36*t58*t66*t79*t82+2.735897678055539d-1*t10*t134*t136*t13 4981 2 9*t58*t63*t82-6.848438000915293d-1*t10*t12*t15*t333*t66*t 4982 3 79-1.3696876001830588d+0*t12*t133*t15*t66*t79+2.345055152 4983 4 619033d-1*t10*t134*t135*t139*t58*t62*t79+6.84843800091529 4984 5 3d-1*t10*t12*t134*t15*t335*t60*t79-1.3696876001830588d+0* 4985 6 t10*t12*t139*t15*t156*t177*t60*t79+1.3696876001830588d+0* 4986 7 t12*t134*t139*t15*t60*t79+6.848438000915293d-1*t10*t12*t1 4987 8 33*t134*t15*t156*t79+1.7121095002288234d-1*t10*t12*t14*t6 4988 9 6*(t695+t694+t693+t692+t691+t690+t689+t688+t687+t686)+t68 4989 : 5+t684+t683+t682+t681+t680+2.054531400274588d+0*t12*t158* 4990 ; t60*t63*t66+3.5175827289285494d-1*t10*t158*t260*t58*t62*t 4991 < 66-1.1725275763095165d-1*t10*t135*t170*t58*t62*t66-6.8484 4992 = 38000915293d-1*t12*t15*t170*t60*t66+3.4242190004576467d-1 4993 > *t12*t14*t259*t66-5.862637881547582d-2*t10*t134*t265*t58* 4994 ? t62*t63+1.1725275763095165d-1*t10*t177*t178*t58*t62*t63-1 4995 @ .027265700137294d+0*t10*t12*t134*t156*t158*t60*t63-1.0272 4996 1 65700137294d+0*t10*t12*t14*t156*t178*t381*t60+6.848438000 4997 2 915293d-1*t10*t12*t139*t14*t177*t335*t60+3.42421900045764 4998 3 67d-1*t10*t12*t14*t156*t177*t265*t60-3.4242190004576467d- 4999 4 1*t12*t134*t14*t265*t60+6.848438000915293d-1*t12*t14*t177 5000 5 *t178*t60+3.4242190004576467d-1*t10*t12*t134*t15*t156*t17 5001 6 0*t60-3.4242190004576467d-1*t10*t12*t133*t134*t14*t335-3. 5002 7 4242190004576467d-1*t10*t12*t134*t139*t14*t333-1.71210950 5003 8 02288234d-1*t10*t12*t134*t14*t156*t259+6.848438000915293d 5004 9 -1*t10*t12*t133*t139*t14*t156*t177-6.848438000915293d-1*t 5005 : 12*t133*t134*t139*t14)*t9*wght+4.947113487115154d-2*t336* 5006 ; t9*wght+1.4841340461345462d-1*t1*t157*t158*t8*wght+1.4841 5007 < 340461345462d-1*t1*t13*t336*t79*wght+1.4841340461345462d- 5008 = 1*t13*t157*t79*wght+7.420670230672731d-2*t1*t13*t157*t170 5009 > *wght)+t171*(-4.947113487115154d-2*t1*t140*t336*t9*wght-t 5010 ? 157*t267)+4.947113487115154d-2*t1*t157*t172*t374*t9*wght+ 5011 @ Cmat3(iq,D3_RA_RA_GAB) 5012 Cmat3(iq,D3_RA_RA_GBB) = t679+Cmat3(iq,D3_RA_RA_GBB) 5013 Cmat3(iq,D3_RA_RB_GAA) = t709+Cmat3(iq,D3_RA_RB_GAA) 5014 Cmat3(iq,D3_RA_RB_GAB) = t81*(2.473556743557577d-2*t1*(-7.98 5015 1 9844334401176d-1*t10*t134*t15*t156*t60*t79*t82*t83-3.9949 5016 2 22167200588d-1*t10*t14*t347*t66*t82*t83-3.994922167200588 5017 3 d-1*t10*t14*t333*t66*t82*t83+3.994922167200588d-1*t10*t13 5018 4 4*t14*t348*t60*t82*t83+3.994922167200588d-1*t10*t134*t14* 5019 5 t335*t60*t82*t83-7.989844334401176d-1*t10*t14*t151*t156*t 5020 6 177*t60*t82*t83-7.989844334401176d-1*t10*t139*t14*t156*t1 5021 7 77*t60*t82*t83-7.989844334401176d-1*t10*t134*t143*t15*t15 5022 8 6*t60*t82*t83+3.994922167200588d-1*t10*t134*t14*t150*t156 5023 9 *t82*t83+3.994922167200588d-1*t10*t133*t134*t14*t156*t82* 5024 : t83-1.7121095002288234d-1*t10*t12*t134*t14*t60*(2.3450551 5025 ; 526190327d+0*t10*t143*t260*t62*t64*t79+9.380220610476132d 5026 < -1*t10*t135*t138*t148*t56*t62*t79+t725+t724+t723+t722+t72 5027 = 1+t720+t719+t718+t717+t716+t715+t697+t696+t690+t689+t675+ 5028 > t672+t671+t664-4.690110305238066d-1*t10*t135*t268*t62*t64 5029 ? -2.345055152619033d-1*t10*t138*t276*t56*t62*t63-2.3450551 5030 @ 52619033d-1*t10*t131*t138*t148*t56*t62*t63+7.035165457857 5031 1 099d-1*t10*t131*t148*t184*t264*t62*t63+9.380220610476132d 5032 2 -1*t10*t131*t135*t138*t143*t56*t62)+2.054531400274588d+0* 5033 3 t12*t143*t60*t63*t66*t79+3.5175827289285494d-1*t10*t143*t 5034 4 260*t58*t62*t66*t79-3.4242190004576467d-1*t10*t12*t15*t34 5035 5 7*t66*t79-6.848438000915293d-1*t12*t15*t150*t66*t79-1.027 5036 6 265700137294d+0*t10*t12*t134*t143*t156*t60*t63*t79+1.1725 5037 7 275763095165d-1*t10*t134*t135*t151*t58*t62*t79+3.42421900 5038 8 04576467d-1*t10*t12*t134*t15*t348*t60*t79-6.8484380009152 5039 9 93d-1*t10*t12*t15*t151*t156*t177*t60*t79+6.84843800091529 5040 : 3d-1*t12*t134*t15*t151*t60*t79+3.4242190004576467d-1*t10* 5041 ; t12*t134*t15*t150*t156*t79+1.7121095002288234d-1*t10*t12* 5042 < t14*t66*(t723+t722+t721+t720+t719+t718+t717+t716+t715+t69 5043 = 0+t689+t671+t664)+t714+t713+t712+t711+t710+t685+t684+t683 5044 > +t682+t681+t680+t678+t677+t676-1.1725275763095165d-1*t10* 5045 ? t135*t268*t58*t62*t66-6.848438000915293d-1*t12*t15*t268*t 5046 @ 60*t66-3.4242190004576467d-1*t10*t12*t143*t15*t333*t66+3. 5047 1 4242190004576467d-1*t12*t14*t284*t66-6.848438000915293d-1 5048 2 *t12*t133*t143*t15*t66+t659+t656-5.862637881547582d-2*t10 5049 3 *t134*t285*t58*t62*t63+1.1725275763095165d-1*t10*t139*t15 5050 4 1*t177*t58*t62*t63+1.1725275763095165d-1*t10*t134*t135*t1 5051 5 39*t143*t58*t62-1.027265700137294d+0*t10*t12*t139*t14*t15 5052 6 1*t156*t381*t60+3.4242190004576467d-1*t10*t12*t139*t14*t1 5053 7 77*t348*t60+3.4242190004576467d-1*t10*t12*t14*t151*t177*t 5054 8 335*t60+3.4242190004576467d-1*t10*t12*t134*t143*t15*t335* 5055 9 t60+3.4242190004576467d-1*t10*t12*t14*t156*t177*t285*t60- 5056 : 3.4242190004576467d-1*t12*t134*t14*t285*t60+3.42421900045 5057 ; 76467d-1*t10*t12*t134*t15*t156*t268*t60-6.848438000915293 5058 < d-1*t10*t12*t139*t143*t15*t156*t177*t60+6.848438000915293 5059 = d-1*t12*t139*t14*t151*t177*t60+6.848438000915293d-1*t12*t 5060 > 134*t139*t143*t15*t60-1.7121095002288234d-1*t10*t12*t133* 5061 ? t134*t14*t348-1.7121095002288234d-1*t10*t12*t134*t139*t14 5062 @ *t347-1.7121095002288234d-1*t10*t12*t134*t14*t150*t335-1. 5063 1 7121095002288234d-1*t10*t12*t134*t14*t151*t333-1.71210950 5064 2 02288234d-1*t10*t12*t134*t14*t156*t284+3.4242190004576467 5065 3 d-1*t10*t12*t133*t14*t151*t156*t177+3.4242190004576467d-1 5066 4 *t10*t12*t139*t14*t150*t156*t177+3.4242190004576467d-1*t1 5067 5 0*t12*t133*t134*t143*t15*t156-3.4242190004576467d-1*t12*t 5068 6 133*t134*t14*t151-3.4242190004576467d-1*t12*t134*t139*t14 5069 7 *t150)*t9*wght+2.473556743557577d-2*t349*t9*wght+2.473556 5070 8 743557577d-2*t336*t9*wght+1.4841340461345462d-1*t1*t143*t 5071 9 157*t79*t8*wght+7.420670230672731d-2*t1*t13*t349*t79*wght 5072 : +7.420670230672731d-2*t13*t157*t79*wght+7.420670230672731 5073 ; d-2*t1*t13*t143*t336*wght+7.420670230672731d-2*t1*t13*t15 5074 < 7*t268*wght+7.420670230672731d-2*t13*t143*t157*wght)+t171 5075 = *(-2.473556743557577d-2*t1*t140*t349*t9*wght-2.4735567435 5076 > 57577d-2*t1*t152*t336*t9*wght-t157*t287)+4.94711348711515 5077 ? 4d-2*t1*t140*t152*t157*t374*t9*wght+Cmat3(iq,D3_RA_RB_GAB 5078 @ ) 5079 Cmat3(iq,D3_RA_RB_GBB) = t709+Cmat3(iq,D3_RA_RB_GBB) 5080 Cmat3(iq,D3_RB_RB_GAA) = t732+Cmat3(iq,D3_RB_RB_GAA) 5081 Cmat3(iq,D3_RB_RB_GAB) = t81*(2.473556743557577d-2*t1*(3.195 5082 1 9377337604705d+0*t143*t15*t60*t66*t82*t83-7.9898443344011 5083 2 76d-1*t10*t14*t347*t66*t82*t83-1.5979688668802353d+0*t14* 5084 3 t150*t66*t82*t83+7.989844334401176d-1*t10*t134*t14*t348*t 5085 4 60*t82*t83-1.5979688668802353d+0*t10*t14*t151*t156*t177*t 5086 5 60*t82*t83-1.5979688668802353d+0*t10*t134*t143*t15*t156*t 5087 6 60*t82*t83+1.5979688668802353d+0*t134*t14*t151*t60*t82*t8 5088 7 3+7.989844334401176d-1*t10*t134*t14*t150*t156*t82*t83-1.7 5089 8 121095002288234d-1*t10*t12*t134*t14*t60*(4.37743628488886 5090 9 2d+0*t10*t135*t136*t143*t64*t82+2.188718142444431d+0*t10* 5091 : t136*t138*t148*t56*t63*t82+t740+t739+t738+t737+t736+t735+ 5092 ; t734+t733+t697+t696+t690+t689-4.690110305238066d-1*t10*t1 5093 < 35*t293*t62*t64+2.3450551526190327d+0*t10*t260*t288*t62*t 5094 = 64-2.345055152619033d-1*t10*t138*t305*t56*t62*t63-2.34505 5095 > 5152619033d-1*t10*t138*t299*t56*t62*t63+7.035165457857099 5096 ? d-1*t10*t184*t264*t299*t62*t63+1.8760441220952265d+0*t10* 5097 @ t135*t138*t143*t148*t56*t62)+5.471795356111078d-1*t10*t13 5098 1 5*t136*t143*t58*t66*t82+2.735897678055539d-1*t10*t134*t13 5099 2 6*t151*t58*t63*t82+1.7121095002288234d-1*t10*t12*t14*t66* 5100 3 (t740+t739+t738+t737+t736+t735+t734+t733+t690+t689)+t685+ 5101 4 t684+t683+t682+t681+t680+2.054531400274588d+0*t12*t288*t6 5102 5 0*t63*t66-1.1725275763095165d-1*t10*t135*t293*t58*t62*t66 5103 6 +3.5175827289285494d-1*t10*t260*t288*t58*t62*t66-6.848438 5104 7 000915293d-1*t12*t15*t293*t60*t66-6.848438000915293d-1*t1 5105 8 0*t12*t143*t15*t347*t66+3.4242190004576467d-1*t12*t14*t30 5106 9 9*t66-1.3696876001830588d+0*t12*t143*t15*t150*t66-5.86263 5107 : 7881547582d-2*t10*t134*t310*t58*t62*t63+1.172527576309516 5108 ; 5d-1*t10*t177*t295*t58*t62*t63-1.027265700137294d+0*t10*t 5109 < 12*t134*t156*t288*t60*t63+2.345055152619033d-1*t10*t134*t 5110 = 135*t143*t151*t58*t62-1.027265700137294d+0*t10*t12*t14*t1 5111 > 56*t295*t381*t60+6.848438000915293d-1*t10*t12*t14*t151*t1 5112 ? 77*t348*t60+6.848438000915293d-1*t10*t12*t134*t143*t15*t3 5113 @ 48*t60+3.4242190004576467d-1*t10*t12*t14*t156*t177*t310*t 5114 1 60-3.4242190004576467d-1*t12*t134*t14*t310*t60+6.84843800 5115 2 0915293d-1*t12*t14*t177*t295*t60+3.4242190004576467d-1*t1 5116 3 0*t12*t134*t15*t156*t293*t60-1.3696876001830588d+0*t10*t1 5117 4 2*t143*t15*t151*t156*t177*t60+1.3696876001830588d+0*t12*t 5118 5 134*t143*t15*t151*t60-3.4242190004576467d-1*t10*t12*t134* 5119 6 t14*t150*t348-3.4242190004576467d-1*t10*t12*t134*t14*t151 5120 7 *t347-1.7121095002288234d-1*t10*t12*t134*t14*t156*t309+6. 5121 8 848438000915293d-1*t10*t12*t14*t150*t151*t156*t177+6.8484 5122 9 38000915293d-1*t10*t12*t134*t143*t15*t150*t156-6.84843800 5123 : 0915293d-1*t12*t134*t14*t150*t151)*t9*wght+4.947113487115 5124 ; 154d-2*t349*t9*wght+1.4841340461345462d-1*t1*t157*t288*t8 5125 < *wght+1.4841340461345462d-1*t1*t13*t143*t349*wght+7.42067 5126 = 0230672731d-2*t1*t13*t157*t293*wght+1.4841340461345462d-1 5127 > *t13*t143*t157*wght)+t171*(-4.947113487115154d-2*t1*t152* 5128 ? t349*t9*wght-t157*t312)+4.947113487115154d-2*t1*t157*t294 5129 @ *t374*t9*wght+Cmat3(iq,D3_RB_RB_GAB) 5130 Cmat3(iq,D3_RB_RB_GBB) = t732+Cmat3(iq,D3_RB_RB_GBB) 5131 Cmat3(iq,D3_RA_GAA_GAA) = t756+Cmat3(iq,D3_RA_GAA_GAA) 5132 Cmat3(iq,D3_RA_GAA_GAB) = t171*(-2.473556743557577d-2*t1*t15 5133 1 4*t336*t9*wght+t766-t157*t324)+t765+t757+Cmat3(iq,D3_RA_G 5134 2 AA_GAB) 5135 Cmat3(iq,D3_RA_GAA_GBB) = t756+Cmat3(iq,D3_RA_GAA_GBB) 5136 Cmat3(iq,D3_RA_GAB_GAB) = t81*(2.473556743557577d-2*t1*(-1.7 5137 1 121095002288234d-1*t10*t12*t134*t14*t60*(-9.3802206104761 5138 2 32d-1*t135*t62*t64*t79+t773-4.690110305238066d-1*t131*t13 5139 3 8*t56*t62*t63)-4.690110305238066d-1*t135*t58*t62*t66*t79+ 5140 4 8.0299824107192d-2*t10*t134*t261*t501*t60*t64*t79+2.34505 5141 5 5152619033d-1*t10*t134*t135*t156*t58*t62*t79-6.8484380009 5142 6 15293d-1*t10*t12*t15*t177*t360*t60*t79+1.3696876001830588 5143 7 d+0*t12*t134*t15*t156*t60*t79+t772+t771+t770+t769+t768+6. 5144 8 848438000915293d-1*t12*t14*t333*t66+8.0299824107192d-2*t1 5145 9 0*t139*t177*t260*t261*t60*t64-4.0149912053596d-2*t10*t133 5146 : *t134*t260*t261*t64-1.1725275763095165d-1*t10*t134*t335*t 5147 ; 58*t62*t63+2.345055152619033d-1*t10*t139*t156*t177*t58*t6 5148 < 2*t63-2.345055152619033d-1*t134*t139*t58*t62*t63-1.027265 5149 = 700137294d+0*t10*t12*t139*t14*t360*t381*t60+6.84843800091 5150 > 5293d-1*t10*t12*t14*t156*t177*t335*t60-6.848438000915293d 5151 ? -1*t12*t134*t14*t335*t60+1.3696876001830588d+0*t12*t139*t 5152 @ 14*t156*t177*t60+3.4242190004576467d-1*t10*t12*t133*t14*t 5153 1 177*t360-3.4242190004576467d-1*t10*t12*t134*t14*t156*t333 5154 2 -6.848438000915293d-1*t12*t133*t134*t14*t156)*t9*wght+7.4 5155 3 20670230672731d-2*t1*t13*t361*t79*wght+t767)+t171*(-2.473 5156 4 556743557577d-2*t1*t140*t361*t9*wght-2.473556743557577d-2 5157 5 *t1*t157*t336*t9*wght-t157*t337)+4.947113487115154d-2*t1* 5158 6 t140*t359*t374*t9*wght+Cmat3(iq,D3_RA_GAB_GAB) 5159 Cmat3(iq,D3_RA_GAB_GBB) = t171*(-2.473556743557577d-2*t1*t15 5160 1 7*t323*t9*wght+t766-t154*t337)+t765+t757+Cmat3(iq,D3_RA_G 5161 2 AB_GBB) 5162 Cmat3(iq,D3_RA_GBB_GBB) = t756+Cmat3(iq,D3_RA_GBB_GBB) 5163 Cmat3(iq,D3_RB_GAA_GAA) = t782+Cmat3(iq,D3_RB_GAA_GAA) 5164 Cmat3(iq,D3_RB_GAA_GAB) = t171*(-2.473556743557577d-2*t1*t15 5165 1 4*t349*t9*wght+t785-t157*t343)+t784+t783+Cmat3(iq,D3_RB_G 5166 2 AA_GAB) 5167 Cmat3(iq,D3_RB_GAA_GBB) = t782+Cmat3(iq,D3_RB_GAA_GBB) 5168 Cmat3(iq,D3_RB_GAB_GAB) = t81*(2.473556743557577d-2*t1*(-1.7 5169 1 121095002288234d-1*t10*t12*t134*t14*t60*(t773-9.380220610 5170 2 476132d-1*t135*t143*t62*t64-4.690110305238066d-1*t138*t14 5171 3 8*t56*t62*t63)+t772+t771+t770+t769+t768-4.690110305238066 5172 4 d-1*t135*t143*t58*t62*t66+6.848438000915293d-1*t12*t14*t3 5173 5 47*t66+8.0299824107192d-2*t10*t134*t143*t261*t501*t60*t64 5174 6 +8.0299824107192d-2*t10*t151*t177*t260*t261*t60*t64-4.014 5175 7 9912053596d-2*t10*t134*t150*t260*t261*t64-1.1725275763095 5176 8 165d-1*t10*t134*t348*t58*t62*t63+2.345055152619033d-1*t10 5177 9 *t151*t156*t177*t58*t62*t63-2.345055152619033d-1*t134*t15 5178 : 1*t58*t62*t63+2.345055152619033d-1*t10*t134*t135*t143*t15 5179 ; 6*t58*t62-1.027265700137294d+0*t10*t12*t14*t151*t360*t381 5180 < *t60-6.848438000915293d-1*t10*t12*t143*t15*t177*t360*t60+ 5181 = 6.848438000915293d-1*t10*t12*t14*t156*t177*t348*t60-6.848 5182 > 438000915293d-1*t12*t134*t14*t348*t60+1.3696876001830588d 5183 ? +0*t12*t14*t151*t156*t177*t60+1.3696876001830588d+0*t12*t 5184 @ 134*t143*t15*t156*t60+3.4242190004576467d-1*t10*t12*t14*t 5185 1 150*t177*t360-3.4242190004576467d-1*t10*t12*t134*t14*t156 5186 2 *t347-6.848438000915293d-1*t12*t134*t14*t150*t156)*t9*wgh 5187 3 t+7.420670230672731d-2*t1*t13*t143*t361*wght+t767)+t171*( 5188 4 -2.473556743557577d-2*t1*t152*t361*t9*wght-2.473556743557 5189 5 577d-2*t1*t157*t349*t9*wght-t157*t350)+4.947113487115154d 5190 6 -2*t1*t152*t359*t374*t9*wght+Cmat3(iq,D3_RB_GAB_GAB) 5191 Cmat3(iq,D3_RB_GAB_GBB) = t171*(-2.473556743557577d-2*t1*t15 5192 1 7*t342*t9*wght+t785-t154*t350)+t784+t783+Cmat3(iq,D3_RB_G 5193 2 AB_GBB) 5194 Cmat3(iq,D3_RB_GBB_GBB) = t782+Cmat3(iq,D3_RB_GBB_GBB) 5195 Cmat3(iq,D3_GAA_GAA_GAA) = t788+Cmat3(iq,D3_GAA_GAA_GAA) 5196 Cmat3(iq,D3_GAA_GAA_GAB) = t791+Cmat3(iq,D3_GAA_GAA_GAB) 5197 Cmat3(iq,D3_GAA_GAA_GBB) = t788+Cmat3(iq,D3_GAA_GAA_GBB) 5198 Cmat3(iq,D3_GAA_GAB_GAB) = t792+Cmat3(iq,D3_GAA_GAB_GAB) 5199 Cmat3(iq,D3_GAA_GAB_GBB) = t791+Cmat3(iq,D3_GAA_GAB_GBB) 5200 Cmat3(iq,D3_GAA_GBB_GBB) = t788+Cmat3(iq,D3_GAA_GBB_GBB) 5201 Cmat3(iq,D3_GAB_GAB_GAB) = 2.473556743557577d-2*t1*(-4.12446 5202 1 2751618807d-2*t10*t134*t138*t786*t787+2.40899472321576d-1 5203 2 *t10*t156*t177*t260*t261*t60*t64-2.40899472321576d-1*t134 5204 3 *t260*t261*t60*t64+3.5175827289285494d-1*t10*t177*t360*t5 5205 4 8*t62*t63-7.035165457857099d-1*t134*t156*t58*t62*t63-1.02 5206 5 7265700137294d+0*t10*t12*t14*t156**3*t381*t60+2.054531400 5207 6 274588d+0*t12*t14*t177*t360*t60)*t81*t9*wght+4.9471134871 5208 7 15154d-2*t1*t157**3*t374*t9*wght-7.420670230672731d-2*t1* 5209 8 t157*t171*t361*t9*wght+Cmat3(iq,D3_GAB_GAB_GAB) 5210 Cmat3(iq,D3_GAB_GAB_GBB) = t792+Cmat3(iq,D3_GAB_GAB_GBB) 5211 Cmat3(iq,D3_GAB_GBB_GBB) = t791+Cmat3(iq,D3_GAB_GBB_GBB) 5212 Cmat3(iq,D3_GBB_GBB_GBB) = t788+Cmat3(iq,D3_GBB_GBB_GBB) 5213 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 5214 t1 = rhoa**1.1666666666666667d+0 5215 t2 = 1/t1**2.0d+0 5216 t3 = rhoa**3.333333333333333d-1 5217 t4 = t3**5.0d-1 5218 t5 = 1/t4 5219 t6 = 1/t3 5220 t7 = 6.203504908994001d-1*t6 5221 t8 = t7+2.935818660072219d+0*t5+1.29352d+1 5222 t9 = abs(t8) 5223 t10 = 1/t9 5224 t11 = abs(t6) 5225 t12 = log(6.203504908994001d-1*t10*t11) 5226 t13 = 7.876233178997433d-1*t5 5227 t14 = t13+1.0498d-1 5228 t15 = t14**2 5229 t16 = log(1.0d+0*t10*t15) 5230 t17 = 1.5752466357994865d+0*t5 5231 t18 = t17+3.72744d+0 5232 t19 = atan(6.15199081975908d+0/t18) 5233 t20 = t7+8.908571061768626d-1*t5+1.30045d+1 5234 t21 = abs(t20) 5235 t22 = 1/t21 5236 t23 = log(6.203504908994001d-1*t11*t22) 5237 t24 = t13+4.7584000000000004d-3 5238 t25 = t24**2 5239 t26 = log(1.0d+0*t22*t25) 5240 t27 = t17+1.13107d+0 5241 t28 = atan(7.123108917818117d+0/t27) 5242 t29 = t7+5.560951426165704d+0*t5+1.8057800000000002d+1 5243 t30 = abs(t29) 5244 t31 = 1/t30 5245 t32 = t13+3.25d-1 5246 t33 = t32**2 5247 t34 = t17+7.06042d+0 5248 t35 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(5. 5249 1 249139316978092d-2*atan(4.7309269095601136d+0/t34)+2.2478 5250 2 670955426108d-3*log(1.0d+0*t31*t33)+1.554535d-2*log(6.203 5251 3 504908994001d-1*t11*t31)-3.8783294878113006d-2*t19-9.6902 5252 4 27711544375d-4*t16-3.10907d-2*t12)+5.365091848883603d-3*t 5253 5 28+6.991732350764465d-6*t26+1.688686394038963d-2*t23)-5.3 5254 6 65091848883603d-3*t28-6.991732350764465d-6*t26-1.68868639 5255 7 4038963d-2*t23)+3.8783294878113006d-2*t19+9.6902277115443 5256 8 75d-4*t16+3.10907d-2*t12 5257 t36 = exp(-8.085523023512742d+1*t35) 5258 t37 = t36-1.0d+0 5259 t38 = 1/t37 5260 t39 = 2.7178044217479824d-1*gammaaa*t2*t38 5261 t40 = t39+1.0d+0 5262 t41 = gammaaa**2.0d+0 5263 t42 = 1/t1**4.0d+0 5264 t43 = 1/t37**2.0d+0 5265 t44 = 7.386460874872887d-2*t41*t42*t43+t39+1.0d+0 5266 t45 = 1/t44 5267 t46 = 2.7178044217479824d-1*gammaaa*t2*t40*t45+1.0d+0 5268 t47 = log(t46) 5269 t48 = 1/t46 5270 t49 = rhoa**1.6666666666666674d-1 5271 t50 = 1/t1**3.0d+0 5272 t51 = -6.341543650745293d-1*gammaaa*t38*t49*t50 5273 t52 = 1/t11 5274 t53 = -2.067834969664667d-1/rhoa**1.3333333333333333d+0 5275 t54 = 1/t4**3 5276 t55 = 1/rhoa**6.666666666666667d-1 5277 t56 = t53-4.8930311001203647d-1*t54*t55 5278 t57 = 1/t8 5279 t58 = 1/rhoa**1.6666666666666666d+0 5280 t59 = -2.067834969664667d-1*t10*t52*t58-6.203504908994001d-1 5281 1 *t10*t11*t56*t57 5282 t60 = 1/t18**2 5283 t61 = 3.784699104639999d+1*t60+1 5284 t62 = 1/t61 5285 t63 = 1/t15 5286 t64 = -1.0d+0*t10*t15*t56*t57-2.625411059665811d-1*t10*t14*t 5287 1 54*t55 5288 t65 = t53-1.4847618436281043d-1*t54*t55 5289 t66 = 1/t20 5290 t67 = -6.203504908994001d-1*t11*t22*t65*t66-2.06783496966466 5291 1 7d-1*t22*t52*t58 5292 t68 = 1/t27**2 5293 t69 = 5.07386806551d+1*t68+1 5294 t70 = 1/t69 5295 t71 = 1/t25 5296 t72 = -1.0d+0*t22*t25*t65*t66-2.625411059665811d-1*t22*t24*t 5297 1 54*t55 5298 t73 = t53-9.26825237694284d-1*t54*t55 5299 t74 = 1/t29 5300 t75 = -6.203504908994001d-1*t11*t31*t73*t74-2.06783496966466 5301 1 7d-1*t31*t52*t58 5302 t76 = 1/t34**2 5303 t77 = 2.238166942360001d+1*t76+1 5304 t78 = 1/t77 5305 t79 = 1/t33 5306 t80 = -1.0d+0*t31*t33*t73*t74-2.625411059665811d-1*t31*t32*t 5307 1 54*t55 5308 t81 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-9 5309 1 .690227711544375d-4*t63*t64*t9-5.011795824473985d-2*t52*t 5310 2 59*t9+2.2478670955426108d-3*t30*t79*t80+6.519760588836059 5311 3 d-2*t54*t55*t76*t78+2.5058979122369923d-2*t30*t52*t75-6.2 5312 4 64085709464389d-2*t54*t55*t60*t62)+6.991732350764465d-6*t 5313 5 21*t71*t72+1.0033305979455584d-2*t54*t55*t68*t70+2.722148 5314 6 880047894d-2*t21*t52*t67)-6.991732350764465d-6*t21*t71*t7 5315 7 2-1.0033305979455584d-2*t54*t55*t68*t70-2.722148880047894 5316 8 d-2*t21*t52*t67)+9.690227711544375d-4*t63*t64*t9+5.011795 5317 9 824473985d-2*t52*t59*t9+6.264085709464389d-2*t54*t55*t60* 5318 : t62 5319 t82 = 1/t37**2 5320 t83 = 2.1974870225448048d+1*gammaaa*t2*t36*t81*t82 5321 t84 = t83+t51 5322 t85 = 1/t44**2 5323 t86 = 1/t1**5.0d+0 5324 t87 = 1/t37**3.0d+0 5325 t88 = 1.194467989321216d+1*t36*t41*t42*t81*t87-3.44701507494 5326 1 0681d-1*t41*t43*t49*t86+t83+t51 5327 t89 = -2.7178044217479824d-1*gammaaa*t2*t40*t85*t88+2.717804 5328 1 4217479824d-1*gammaaa*t2*t45*t84-6.341543650745293d-1*gam 5329 2 maaa*t40*t45*t49*t50 5330 t90 = 1.4772921749745774d-1*gammaaa*t42*t43+2.71780442174798 5331 1 24d-1*t2*t38 5332 t91 = -2.7178044217479824d-1*gammaaa*t2*t40*t85*t90+7.386460 5333 1 874872885d-2*gammaaa*t38*t42*t45+2.7178044217479824d-1*t2 5334 2 *t40*t45 5335 t92 = 1/t46**2 5336 t93 = t89**2 5337 t94 = rhoa**3.333333333333335d-1 5338 t95 = 1/rhoa**8.333333333333333d-1 5339 t96 = t81**2 5340 t97 = exp(-1.6171046047025484d+2*t35) 5341 t98 = 1/t37**3 5342 t99 = 3.553566382931297d+3*gammaaa*t2*t96*t97*t98 5343 t100 = 2.2195402777608525d+0*gammaaa*t38*t42*t94 5344 t101 = -1.0569239417908825d-1*gammaaa*t38*t50*t95 5345 t102 = -1.0254939438542422d+2*gammaaa*t36*t49*t50*t81*t82 5346 t103 = -1.7767831914656484d+3*gammaaa*t2*t36*t82*t96 5347 t104 = 1/t61**2 5348 t105 = 1/t18**5 5349 t106 = 1/rhoa**2.3333333333333334d+0 5350 t107 = 1/t18**3 5351 t108 = 1/rhoa**1.6666666666666669d+0 5352 t109 = t56**2 5353 t110 = 1/t8**2 5354 t111 = 2.7571132928862224d-1/rhoa**2.333333333333333d+0 5355 t112 = 1/t4**5 5356 t113 = 1/rhoa**1.3333333333333336d+0 5357 t114 = 3.262020733413577d-1*t108*t54+2.4465155500601823d-1*t 5358 1 112*t113+t111 5359 t115 = 1/rhoa**2.6666666666666666d+0 5360 t116 = 4.135669939329334d-1*t10*t52*t56*t57*t58-6.2035049089 5361 1 94001d-1*t10*t11*t114*t57+2.7571132928862224d-1*t10*t115* 5362 2 t52+1.2407009817988002d+0*t10*t109*t11*t110 5363 t117 = 1/rhoa**9.999999999999999d-1 5364 t118 = 1/t14**3 5365 t119 = 5.250822119331622d-1*t10*t14*t54*t55*t56*t57-1.0d+0*t 5366 1 10*t114*t15*t57+1.7502740397772074d-1*t10*t108*t14*t54+2. 5367 2 0d+0*t10*t109*t110*t15+1.3127055298329054d-1*t10*t112*t11 5368 3 3*t14+3.446391616107778d-2*t10*t106 5369 t120 = 1/t69**2 5370 t121 = 1/t27**5 5371 t122 = 1/t27**3 5372 t123 = t65**2 5373 t124 = 1/t20**2 5374 t125 = 9.89841229085403d-2*t108*t54+7.423809218140521d-2*t11 5375 1 2*t113+t111 5376 t126 = 4.135669939329334d-1*t22*t52*t58*t65*t66-6.2035049089 5377 1 94001d-1*t11*t125*t22*t66+2.7571132928862224d-1*t115*t22* 5378 2 t52+1.2407009817988002d+0*t11*t123*t124*t22 5379 t127 = 1/t24**3 5380 t128 = 5.250822119331622d-1*t22*t24*t54*t55*t65*t66-1.0d+0*t 5381 1 125*t22*t25*t66+1.7502740397772074d-1*t108*t22*t24*t54+2. 5382 2 0d+0*t123*t124*t22*t25+1.3127055298329054d-1*t112*t113*t2 5383 3 2*t24+3.446391616107778d-2*t106*t22 5384 t129 = 1/t77**2 5385 t130 = 1/t34**5 5386 t131 = 1/t34**3 5387 t132 = t73**2 5388 t133 = 1/t29**2 5389 t134 = 6.178834917961894d-1*t108*t54+4.63412618847142d-1*t11 5390 1 2*t113+t111 5391 t135 = 4.135669939329334d-1*t31*t52*t58*t73*t74-6.2035049089 5392 1 94001d-1*t11*t134*t31*t74+2.7571132928862224d-1*t115*t31* 5393 2 t52+1.2407009817988002d+0*t11*t132*t133*t31 5394 t136 = 1/t32**3 5395 t137 = 5.250822119331622d-1*t31*t32*t54*t55*t73*t74-1.0d+0*t 5396 1 134*t31*t33*t74+1.7502740397772074d-1*t108*t31*t32*t54+2. 5397 2 0d+0*t132*t133*t31*t33+1.3127055298329054d-1*t112*t113*t3 5398 3 1*t32+3.446391616107778d-2*t106*t31 5399 t138 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(- 5400 1 2.544083100456872d-4*t118*t54*t55*t64*t9-9.69022771154437 5401 2 5d-4*t119*t63*t9-1.670598608157995d-2*t117*t52*t59*t9-5.0 5402 3 11795824473985d-2*t116*t52*t9+2.2478670955426108d-3*t29*t 5403 4 31*t73*t79*t80+5.901575133296435d-4*t136*t30*t54*t55*t80- 5404 5 9.690227711544375d-4*t10*t56*t63*t64*t8-5.011795824473985 5405 6 d-2*t10*t52*t56*t59*t8+2.2478670955426108d-3*t137*t30*t79 5406 7 -4.3465070592240396d-2*t108*t54*t76*t78-3.259880294418029 5407 8 4d-2*t112*t113*t76*t78+3.4234103112606934d-2*t106*t131*t7 5408 9 8+2.5058979122369923d-2*t29*t31*t52*t73*t75+8.35299304078 5409 : 9976d-3*t117*t30*t52*t75+4.176057139642926d-2*t108*t54*t6 5410 ; 0*t62+3.1320428547321943d-2*t112*t113*t60*t62-3.289159980 5411 < 064472d-2*t106*t107*t62+2.5058979122369923d-2*t135*t30*t5 5412 = 2-7.662163788798045d-1*t106*t129*t130+1.2448480831567728d 5413 > +0*t104*t105*t106)+6.991732350764465d-6*t20*t22*t65*t71*t 5414 ? 72+1.8356171439920266d-6*t127*t21*t54*t55*t72+6.991732350 5415 @ 764465d-6*t128*t21*t71-6.68887065297039d-3*t108*t54*t68*t 5416 1 70-5.016652989727792d-3*t112*t113*t68*t70+5.2683104966947 5417 2 6d-3*t106*t122*t70+2.722148880047894d-2*t20*t22*t52*t65*t 5418 3 67+9.073829600159646d-3*t117*t21*t52*t67+2.72214888004789 5419 4 4d-2*t126*t21*t52-2.6730712388370664d-1*t106*t120*t121)-6 5420 5 .991732350764465d-6*t20*t22*t65*t71*t72-1.835617143992026 5421 6 6d-6*t127*t21*t54*t55*t72-6.991732350764465d-6*t128*t21*t 5422 7 71+6.68887065297039d-3*t108*t54*t68*t70+5.016652989727792 5423 8 d-3*t112*t113*t68*t70-5.26831049669476d-3*t106*t122*t70-2 5424 9 .722148880047894d-2*t20*t22*t52*t65*t67-9.073829600159646 5425 : d-3*t117*t21*t52*t67-2.722148880047894d-2*t126*t21*t52+2. 5426 ; 6730712388370664d-1*t106*t120*t121)+2.544083100456872d-4* 5427 < t118*t54*t55*t64*t9+9.690227711544375d-4*t119*t63*t9+1.67 5428 = 0598608157995d-2*t117*t52*t59*t9+5.011795824473985d-2*t11 5429 > 6*t52*t9+9.690227711544375d-4*t10*t56*t63*t64*t8+5.011795 5430 ? 824473985d-2*t10*t52*t56*t59*t8-4.176057139642926d-2*t108 5431 @ *t54*t60*t62-3.1320428547321943d-2*t112*t113*t60*t62+3.28 5432 1 9159980064472d-2*t106*t107*t62-1.2448480831567728d+0*t104 5433 2 *t105*t106 5434 t139 = 2.1974870225448048d+1*gammaaa*t138*t2*t36*t82 5435 t140 = t99+t139+t103+t102+t101+t100 5436 t141 = 1/t37**4.0d+0 5437 t142 = 1/t1**6.0d+0 5438 t143 = t99+2.897369528551699d+3*t141*t41*t42*t96*t97-9.65789 5439 1 8428505663d+2*t36*t41*t42*t87*t96-5.745025124901137d-2*t4 5440 2 1*t43*t86*t95+2.0107587937153976d+0*t142*t41*t43*t94-1.11 5441 3 48367900331349d+2*t36*t41*t49*t81*t86*t87+1.1944679893212 5442 4 16d+1*t138*t36*t41*t42*t87+t139+t103+t102+t101+t100 5443 t144 = 1/t44**3 5444 t145 = t88**2 5445 t146 = -1.0569239417908825d-1*gammaaa*t40*t45*t50*t95+2.2195 5446 1 402777608525d+0*gammaaa*t40*t42*t45*t94-5.435608843495965 5447 2 d-1*gammaaa*t2*t84*t85*t88+1.2683087301490586d+0*gammaaa* 5448 3 t40*t49*t50*t85*t88-2.7178044217479824d-1*gammaaa*t143*t2 5449 4 *t40*t85-1.2683087301490586d+0*gammaaa*t45*t49*t50*t84+2. 5450 5 7178044217479824d-1*gammaaa*t140*t2*t45+5.435608843495965 5451 6 d-1*gammaaa*t144*t145*t2*t40 5452 t147 = 2.4735567435575762d-2*t89*wght+1.2367783717787881d-2* 5453 1 rhoa*t146*wght 5454 t148 = -6.341543650745293d-1*t38*t49*t50 5455 t149 = 2.1974870225448048d+1*t2*t36*t81*t82 5456 t150 = t149+t148 5457 t151 = 2.388935978642432d+1*gammaaa*t36*t42*t81*t87-6.894030 5458 1 149881362d-1*gammaaa*t43*t49*t86+t149+t148 5459 t152 = 5.435608843495965d-1*gammaaa*t144*t2*t40*t88*t90-2.71 5460 1 78044217479824d-1*gammaaa*t2*t84*t85*t90+6.34154365074529 5461 2 3d-1*gammaaa*t40*t49*t50*t85*t90-7.386460874872885d-2*gam 5462 3 maaa*t38*t42*t85*t88-2.7178044217479824d-1*t2*t40*t85*t88 5463 4 -1.7235075374703399d-1*gammaaa*t38*t45*t49*t86-2.71780442 5464 5 17479824d-1*gammaaa*t151*t2*t40*t85+2.7178044217479824d-1 5465 6 *t2*t45*t84-6.341543650745293d-1*t40*t45*t49*t50+2.717804 5466 7 4217479824d-1*gammaaa*t150*t2*t45 5467 t153 = 1.2367783717787881d-2*t91*wght+1.2367783717787881d-2* 5468 1 rhoa*t152*wght 5469 t154 = t91**2 5470 t155 = t90**2 5471 t156 = -1.477292174974577d-1*gammaaa*t38*t42*t85*t90-5.43560 5472 1 8843495965d-1*t2*t40*t85*t90-4.0149912053596004d-2*gammaa 5473 2 a*t142*t40*t43*t85+1.477292174974577d-1*t38*t42*t45+5.435 5474 3 608843495965d-1*gammaaa*t144*t155*t2*t40 5475 t157 = 1/t46**3 5476 t158 = rhoa**5.000000000000002d-1 5477 t159 = 1/rhoa**6.666666666666665d-1 5478 t160 = 1/rhoa**1.8333333333333332d+0 5479 t161 = t81**3 5480 t162 = exp(-2.4256569070538228d+2*t35) 5481 t163 = 8.61973284143157d+5*gammaaa*t161*t162*t2/t37**4 5482 t164 = -2.487496468051908d+4*gammaaa*t49*t50*t96*t97*t98 5483 t165 = -8.619732841431569d+5*gammaaa*t161*t2*t97*t98 5484 t166 = 1.0660699148793891d+4*gammaaa*t138*t2*t81*t97*t98 5485 t167 = -1.0357854629550646d+1*gammaaa*t158*t38*t86 5486 t168 = 1.1097701388804267d+0*gammaaa*t159*t38*t42 5487 t169 = 8.807699514924021d-2*gammaaa*t160*t38*t50 5488 t170 = 5.383843205234772d+2*gammaaa*t36*t42*t81*t82*t94 5489 t171 = -2.563734859635607d+1*gammaaa*t36*t50*t81*t82*t95 5490 t172 = 1.243748234025954d+4*gammaaa*t36*t49*t50*t82*t96 5491 t173 = -1.5382409157813634d+2*gammaaa*t138*t36*t49*t50*t82 5492 t174 = 1.4366221402385948d+5*gammaaa*t161*t2*t36*t82 5493 t175 = 1/rhoa**3.3333333333333337d+0 5494 t176 = 1/t61**3 5495 t177 = 1/t18**8 5496 t178 = 1/rhoa**3.0d+0 5497 t179 = 1/t18**6 5498 t180 = 1/t18**4 5499 t181 = 1/rhoa**2.666666666666667d+0 5500 t182 = 1/t14**4 5501 t183 = 1/t4**7 5502 t184 = 1/rhoa**2.0d+0 5503 t185 = 1/rhoa**1.9999999999999998d+0 5504 t186 = t56**3 5505 t187 = 1/t8**3 5506 t188 = -6.433264350067851d-1/rhoa**3.333333333333333d+0 5507 t189 = -5.436701222355962d-1*t181*t54+t188-2.038762958383485 5508 1 1d-1*t183*t184-4.893031100120365d-1*t106*t112 5509 t190 = 1/rhoa**3.6666666666666664d+0 5510 t191 = 6.203504908994001d-1*t10*t114*t52*t57*t58-1.240700981 5511 1 7988002d+0*t10*t109*t110*t52*t58-8.271339878658668d-1*t10 5512 2 *t115*t52*t56*t57-6.203504908994001d-1*t10*t11*t189*t57+3 5513 3 .7221029453964005d+0*t10*t11*t110*t114*t56-6.433264350067 5514 4 852d-1*t10*t190*t52-3.7221029453964005d+0*t10*t11*t186*t1 5515 5 87 5516 t192 = -5.250822119331622d-1*t10*t108*t14*t54*t56*t57-3.9381 5517 1 165894987163d-1*t10*t112*t113*t14*t56*t57-1.0339174848323 5518 2 335d-1*t10*t106*t56*t57+7.876233178997433d-1*t10*t114*t14 5519 3 *t54*t55*t57-1.0d+0*t10*t15*t189*t57+6.0d+0*t10*t110*t114 5520 4 *t15*t56-1.5752466357994865d+0*t10*t109*t110*t14*t54*t55- 5521 5 2.917123399628679d-1*t10*t14*t181*t54-6.0d+0*t10*t15*t186 5522 6 *t187-1.0939212748607545d-1*t10*t14*t183*t184-1.206237065 5523 7 6377223d-1*t10*t175-2.625411059665811d-1*t10*t106*t112*t1 5524 8 4 5525 t193 = 1/t69**3 5526 t194 = 1/t27**8 5527 t195 = 1/t27**6 5528 t196 = 1/t27**4 5529 t197 = 1/t24**4 5530 t198 = t65**3 5531 t199 = 1/t20**3 5532 t200 = -1.649735381809005d-1*t181*t54+t188-6.186507681783768 5533 1 d-2*t183*t184-1.4847618436281043d-1*t106*t112 5534 t201 = -8.271339878658668d-1*t115*t22*t52*t65*t66+6.20350490 5535 1 8994001d-1*t125*t22*t52*t58*t66-6.203504908994001d-1*t11* 5536 2 t200*t22*t66+3.7221029453964005d+0*t11*t124*t125*t22*t65- 5537 3 1.2407009817988002d+0*t123*t124*t22*t52*t58-6.43326435006 5538 4 7852d-1*t190*t22*t52-3.7221029453964005d+0*t11*t198*t199* 5539 5 t22 5540 t202 = -5.250822119331622d-1*t108*t22*t24*t54*t65*t66-3.9381 5541 1 165894987163d-1*t112*t113*t22*t24*t65*t66-1.0339174848323 5542 2 335d-1*t106*t22*t65*t66+7.876233178997433d-1*t125*t22*t24 5543 3 *t54*t55*t66-1.0d+0*t200*t22*t25*t66+6.0d+0*t124*t125*t22 5544 4 *t25*t65-1.5752466357994865d+0*t123*t124*t22*t24*t54*t55- 5545 5 2.917123399628679d-1*t181*t22*t24*t54-6.0d+0*t198*t199*t2 5546 6 2*t25-1.0939212748607545d-1*t183*t184*t22*t24-2.625411059 5547 7 665811d-1*t106*t112*t22*t24-1.2062370656377223d-1*t175*t2 5548 8 2 5549 t203 = t73**3 5550 t204 = 1/t29**3 5551 t205 = -1.0298058196603158d+0*t181*t54+t188-3.86177182372618 5552 1 33d-1*t183*t184-9.26825237694284d-1*t106*t112 5553 t206 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1 5554 1 .696055400304582d-4*t108*t118*t54*t64*t9-1.00188958629725 5555 2 38d-4*t106*t182*t64*t9+1.272041550228436d-4*t112*t113*t11 5556 3 8*t64*t9-9.690227711544375d-4*t192*t63*t9-5.5686620271933 5557 4 16d-3*t185*t52*t59*t9+1.6705986081579946d-2*t184*t52*t59* 5558 5 t9-5.088166200913744d-4*t118*t119*t54*t55*t9-5.0117958244 5559 6 73985d-2*t191*t52*t9-3.34119721631599d-2*t116*t117*t52*t9 5560 7 +2.2478670955426108d-3*t134*t29*t31*t79*t80+1.18031502665 5561 8 92868d-3*t136*t29*t31*t54*t55*t73*t80-3.934383422197623d- 5562 9 4*t108*t136*t30*t54*t80+2.3241090936607786d-4*t106*t30*t8 5563 : 0/t32**4-2.9507875666482175d-4*t112*t113*t136*t30*t80-9.6 5564 ; 90227711544375d-4*t10*t114*t63*t64*t8-5.088166200913744d- 5565 < 4*t10*t118*t54*t55*t56*t64*t8-1.938045542308875d-3*t10*t1 5566 = 19*t56*t63*t8-3.34119721631599d-2*t10*t117*t52*t56*t59*t8 5567 > -5.011795824473985d-2*t10*t114*t52*t59*t8-1.0023591648947 5568 ? 97d-1*t10*t116*t52*t56*t8+2.2478670955426108d-3*t30*(-5.2 5569 @ 50822119331622d-1*t108*t31*t32*t54*t73*t74-3.938116589498 5570 1 7163d-1*t112*t113*t31*t32*t73*t74-1.0339174848323335d-1*t 5571 2 106*t31*t73*t74+7.876233178997433d-1*t134*t31*t32*t54*t55 5572 3 *t74-1.0d+0*t205*t31*t33*t74+6.0d+0*t133*t134*t31*t33*t73 5573 4 -1.5752466357994865d+0*t132*t133*t31*t32*t54*t55-2.917123 5574 5 399628679d-1*t181*t31*t32*t54-6.0d+0*t203*t204*t31*t33-1. 5575 6 0939212748607545d-1*t183*t184*t31*t32-2.625411059665811d- 5576 7 1*t106*t112*t31*t32-1.2062370656377223d-1*t175*t31)*t79+4 5577 8 .4957341910852217d-3*t137*t29*t31*t73*t79+7.2441784320400 5578 9 66d-2*t181*t54*t76*t78+2.716566912015024d-2*t183*t184*t76 5579 : *t78+6.51976058883606d-2*t106*t112*t76*t78+2.696357787887 5580 ; 34d-2*t178*t54*t78/t34**4-1.1981936089412427d-1*t131*t175 5581 < *t78+1.8009481522035156d+1*t178*t54/(t34**8*t77**3)+1.670 5582 = 598608157995d-2*t117*t29*t31*t52*t73*t75+2.50589791223699 5583 > 23d-2*t134*t29*t31*t52*t75+2.784331013596658d-3*t185*t30* 5584 ? t52*t75-8.352993040789973d-3*t184*t30*t52*t75+2.505897912 5585 @ 2369923d-2*t30*t52*(-8.271339878658668d-1*t115*t31*t52*t7 5586 1 3*t74+6.203504908994001d-1*t134*t31*t52*t58*t74-6.2035049 5587 2 08994001d-1*t11*t205*t31*t74+3.7221029453964005d+0*t11*t1 5588 3 33*t134*t31*t73-1.2407009817988002d+0*t132*t133*t31*t52*t 5589 4 58-6.433264350067852d-1*t190*t31*t52-3.7221029453964005d+ 5590 5 0*t11*t203*t204*t31)+5.011795824473985d-2*t135*t29*t31*t5 5591 6 2*t73-6.96009523273821d-2*t181*t54*t60*t62-2.610035712276 5592 7 828d-2*t183*t184*t60*t62-6.26408570946439d-2*t106*t112*t6 5593 8 0*t62-2.590619096601433d-2*t178*t180*t54*t62+1.1512059930 5594 9 225654d-1*t107*t175*t62+1.1803150266592868d-3*t136*t137*t 5595 : 30*t54*t55-1.4081430686456894d+0*t129*t178*t54/t34**6+2.2 5596 ; 877665475865033d+0*t104*t178*t179*t54-4.947718859586276d+ 5597 < 1*t176*t177*t178*t54+1.670598608157995d-2*t117*t135*t30*t 5598 = 52+2.681757326079316d+0*t129*t130*t175-4.356968291048705d 5599 > +0*t104*t105*t175)+6.991732350764465d-6*t125*t20*t22*t71* 5600 ? t72+3.671234287984053d-6*t127*t20*t22*t54*t55*t65*t72-1.2 5601 @ 237447626613511d-6*t108*t127*t21*t54*t72+7.22887432672325 5602 1 4d-7*t106*t197*t21*t72-9.178085719960132d-7*t112*t113*t12 5603 2 7*t21*t72+1.3983464701528928d-5*t128*t20*t22*t65*t71+6.99 5604 3 1732350764465d-6*t202*t21*t71+1.114811775495065d-2*t181*t 5605 4 54*t68*t70+4.180544158106493d-3*t183*t184*t68*t70+1.00333 5606 5 05979455585d-2*t106*t112*t68*t70+4.1494441931327714d-3*t1 5607 6 78*t196*t54*t70-1.843908673843166d-2*t122*t175*t70+1.8147 5608 7 659200319294d-2*t117*t20*t22*t52*t65*t67+2.72214888004789 5609 8 4d-2*t125*t20*t22*t52*t67+3.024609866719882d-3*t185*t21*t 5610 9 52*t67-9.073829600159644d-3*t184*t21*t52*t67+5.4442977600 5611 : 95788d-2*t126*t20*t22*t52*t65+3.671234287984053d-6*t127*t 5612 ; 128*t21*t54*t55-4.9125375556021966d-1*t120*t178*t195*t54+ 5613 < 1.424318138513631d+1*t178*t193*t194*t54+2.722148880047894 5614 = d-2*t201*t21*t52+1.8147659200319294d-2*t117*t126*t21*t52+ 5615 > 9.355749335929733d-1*t120*t121*t175)-6.991732350764465d-6 5616 ? *t125*t20*t22*t71*t72-3.671234287984053d-6*t127*t20*t22*t 5617 @ 54*t55*t65*t72+1.2237447626613511d-6*t108*t127*t21*t54*t7 5618 1 2-7.228874326723254d-7*t106*t197*t21*t72+9.17808571996013 5619 2 2d-7*t112*t113*t127*t21*t72-1.3983464701528928d-5*t128*t2 5620 3 0*t22*t65*t71-6.991732350764465d-6*t202*t21*t71-1.1148117 5621 4 75495065d-2*t181*t54*t68*t70-4.180544158106493d-3*t183*t1 5622 5 84*t68*t70-1.0033305979455585d-2*t106*t112*t68*t70-4.1494 5623 6 441931327714d-3*t178*t196*t54*t70+1.843908673843166d-2*t1 5624 7 22*t175*t70-1.8147659200319294d-2*t117*t20*t22*t52*t65*t6 5625 8 7-2.722148880047894d-2*t125*t20*t22*t52*t67-3.02460986671 5626 9 9882d-3*t185*t21*t52*t67+9.073829600159644d-3*t184*t21*t5 5627 : 2*t67-5.444297760095788d-2*t126*t20*t22*t52*t65-3.6712342 5628 ; 87984053d-6*t127*t128*t21*t54*t55+4.9125375556021966d-1*t 5629 < 120*t178*t195*t54-1.424318138513631d+1*t178*t193*t194*t54 5630 = -2.722148880047894d-2*t201*t21*t52-1.8147659200319294d-2* 5631 > t117*t126*t21*t52-9.355749335929733d-1*t120*t121*t175)-1. 5632 ? 696055400304582d-4*t108*t118*t54*t64*t9+1.001889586297253 5633 @ 8d-4*t106*t182*t64*t9-1.272041550228436d-4*t112*t113*t118 5634 1 *t64*t9+9.690227711544375d-4*t192*t63*t9+5.56866202719331 5635 2 6d-3*t185*t52*t59*t9-1.6705986081579946d-2*t184*t52*t59*t 5636 3 9+5.088166200913744d-4*t118*t119*t54*t55*t9+5.01179582447 5637 4 3985d-2*t191*t52*t9+3.34119721631599d-2*t116*t117*t52*t9+ 5638 5 9.690227711544375d-4*t10*t114*t63*t64*t8+5.08816620091374 5639 6 4d-4*t10*t118*t54*t55*t56*t64*t8+1.938045542308875d-3*t10 5640 7 *t119*t56*t63*t8+3.34119721631599d-2*t10*t117*t52*t56*t59 5641 8 *t8+5.011795824473985d-2*t10*t114*t52*t59*t8+1.0023591648 5642 9 94797d-1*t10*t116*t52*t56*t8+6.96009523273821d-2*t181*t54 5643 : *t60*t62+2.610035712276828d-2*t183*t184*t60*t62+6.2640857 5644 ; 0946439d-2*t106*t112*t60*t62+2.590619096601433d-2*t178*t1 5645 < 80*t54*t62-1.1512059930225654d-1*t107*t175*t62-2.28776654 5646 = 75865033d+0*t104*t178*t179*t54+4.947718859586276d+1*t176* 5647 > t177*t178*t54+4.356968291048705d+0*t104*t105*t175 5648 t207 = 2.1974870225448048d+1*gammaaa*t2*t206*t36*t82 5649 t208 = -5.330349574396945d+3*gammaaa*t138*t2*t36*t81*t82 5650 t209 = 1/t1**7.0d+0 5651 t210 = 1/t44**4 5652 t211 = 3.553566382931297d+3*t2*t96*t97*t98 5653 t212 = 2.2195402777608525d+0*t38*t42*t94 5654 t213 = -1.0569239417908825d-1*t38*t50*t95 5655 t214 = -1.0254939438542422d+2*t36*t49*t50*t81*t82 5656 t215 = -1.7767831914656484d+3*t2*t36*t82*t96 5657 t216 = 2.1974870225448048d+1*t138*t2*t36*t82 5658 fnc(iq) = 1.2367783717787881d-2*rhoa*t47*wght+fnc(iq) 5659 Amat(iq,D1_RA) = 1.2367783717787881d-2*rhoa*t48*t89*wght+1.2 5660 1 367783717787881d-2*t47*wght+Amat(iq,D1_RA) 5661 Cmat(iq,D1_GAA) = 1.2367783717787881d-2*rhoa*t48*t91*wght+Cm 5662 1 at(iq,D1_GAA) 5663 Amat2(iq,D2_RA_RA) = -1.2367783717787881d-2*rhoa*t92*t93*wgh 5664 1 t+t147*t48+Amat2(iq,D2_RA_RA) 5665 Cmat2(iq,D2_RA_GAA) = -1.2367783717787881d-2*rhoa*t89*t91*t9 5666 1 2*wght+t153*t48+Cmat2(iq,D2_RA_GAA) 5667 Cmat2(iq,D2_GAA_GAA) = -1.2367783717787881d-2*rhoa*t154*t92* 5668 1 wght+1.2367783717787881d-2*rhoa*t156*t48*wght+Cmat2(iq,D2 5669 2 _GAA_GAA) 5670 Amat3(iq,D3_RA_RA_RA) = t48*(1.2367783717787881d-2*rhoa*(-2. 5671 1 7178044217479824d-1*gammaaa*t2*t40*t85*(-4.05631733997237 5672 2 9d+4*t141*t41*t49*t86*t96*t97+8.692108585655098d+3*t138*t 5673 3 141*t41*t42*t81*t97-7.028024409218707d+5*t141*t161*t41*t4 5674 4 2*t97+1.3521057799907932d+4*t36*t41*t49*t86*t87*t96-2.787 5675 5 091975082838d+1*t36*t41*t81*t86*t87*t95+9.754821912789933 5676 6 d+2*t142*t36*t41*t81*t87*t94-1.6722551850497025d+2*t138*t 5677 7 36*t41*t49*t86*t87-2.897369528551699d+3*t138*t36*t41*t42* 5678 8 t81*t87+1.194467989321216d+1*t206*t36*t41*t42*t87+7.80891 5679 9 6010243008d+4*t161*t36*t41*t42*t87+4.787520937417614d-2*t 5680 : 160*t41*t43*t86-1.4075311556007783d+1*t158*t209*t41*t43+1 5681 ; .0053793968576992d+0*t142*t159*t41*t43+9.37069921229161d+ 5682 < 5*t161*t162*t41*t42/t37**5.0d+0+t208+t207+t174+t173+t172+ 5683 = t171+t170+t169+t168+t167+t166+t165+t164+t163)+3.170771825 5684 > 3726475d-1*gammaaa*t40*t50*t85*t88*t95-3.1707718253726475 5685 ? d-1*gammaaa*t45*t50*t84*t95-6.658620833282557d+0*gammaaa* 5686 @ t40*t42*t85*t88*t94+6.658620833282557d+0*gammaaa*t42*t45* 5687 1 t84*t94-1.6306826530487895d+0*gammaaa*t2*t210*t40*t88**3+ 5688 2 3.8049261904471754d+0*gammaaa*t49*t50*t84*t85*t88-8.15341 5689 3 3265243947d-1*gammaaa*t140*t2*t85*t88+1.6306826530487895d 5690 4 +0*gammaaa*t143*t144*t2*t40*t88-1.0357854629550646d+1*gam 5691 5 maaa*t158*t40*t45*t86-8.153413265243947d-1*gammaaa*t143*t 5692 6 2*t84*t85+1.9024630952235877d+0*gammaaa*t143*t40*t49*t50* 5693 7 t85+1.6306826530487895d+0*gammaaa*t144*t145*t2*t84-1.9024 5694 8 630952235877d+0*gammaaa*t140*t45*t49*t50-3.80492619044717 5695 9 54d+0*gammaaa*t144*t145*t40*t49*t50+8.807699514924021d-2* 5696 : gammaaa*t160*t40*t45*t50+1.1097701388804267d+0*gammaaa*t1 5697 ; 59*t40*t42*t45+2.7178044217479824d-1*gammaaa*t2*(t208+t20 5698 < 7+t174+t173+t172+t171+t170+t169+t168+t167+t166+t165+t164+ 5699 = t163)*t45)*wght+3.710335115336365d-2*t146*wght)+t92*(-1.2 5700 > 367783717787881d-2*t93*wght-2.4735567435575762d-2*rhoa*t1 5701 ? 46*t89*wght-t147*t89)+2.4735567435575762d-2*rhoa*t157*t89 5702 @ **3*wght+Amat3(iq,D3_RA_RA_RA) 5703 Cmat3(iq,D3_RA_RA_GAA) = t48*(1.2367783717787881d-2*rhoa*(-2 5704 1 .7178044217479824d-1*gammaaa*t2*t40*t85*(5.79473905710339 5705 2 9d+3*gammaaa*t141*t42*t96*t97-1.9315796857011328d+3*gamma 5706 3 aa*t36*t42*t87*t96-1.1490050249802275d-1*gammaaa*t43*t86* 5707 4 t95+4.021517587430795d+0*gammaaa*t142*t43*t94-2.229673580 5708 5 0662698d+2*gammaaa*t36*t49*t81*t86*t87+2.388935978642432d 5709 6 +1*gammaaa*t138*t36*t42*t87+t216+t215+t214+t213+t212+t211 5710 7 )+1.0569239417908825d-1*gammaaa*t40*t50*t85*t90*t95-2.872 5711 8 5125624505676d-2*gammaaa*t38*t45*t86*t95-1.05692394179088 5712 9 25d-1*t40*t45*t50*t95-2.2195402777608525d+0*gammaaa*t40*t 5713 : 42*t85*t90*t94+2.2195402777608525d+0*t40*t42*t45*t94+6.03 5714 ; 227638114619d-1*gammaaa*t142*t38*t45*t94+1.08712176869919 5715 < 3d+0*gammaaa*t144*t2*t84*t88*t90-2.5366174602981173d+0*ga 5716 = mmaaa*t144*t40*t49*t50*t88*t90+1.2683087301490586d+0*gamm 5717 > aaa*t49*t50*t84*t85*t90-2.7178044217479824d-1*gammaaa*t14 5718 ? 0*t2*t85*t90-1.6306826530487895d+0*gammaaa*t145*t2*t210*t 5719 @ 40*t90+5.435608843495965d-1*gammaaa*t143*t144*t2*t40*t90+ 5720 1 3.4470150749406797d-1*gammaaa*t38*t49*t85*t86*t88-5.43560 5721 2 8843495965d-1*t2*t84*t85*t88+1.2683087301490586d+0*t40*t4 5722 3 9*t50*t85*t88-5.435608843495965d-1*gammaaa*t150*t2*t85*t8 5723 4 8+1.087121768699193d+0*gammaaa*t144*t151*t2*t40*t88-5.435 5724 5 608843495965d-1*gammaaa*t151*t2*t84*t85+1.268308730149058 5725 6 6d+0*gammaaa*t151*t40*t49*t50*t85-7.386460874872885d-2*ga 5726 7 mmaaa*t143*t38*t42*t85-2.7178044217479824d-1*t143*t2*t40* 5727 8 t85-1.2683087301490586d+0*t45*t49*t50*t84-1.2683087301490 5728 9 586d+0*gammaaa*t150*t45*t49*t50+2.7178044217479824d-1*gam 5729 : maaa*t2*(t216+t215+t214+t213+t212+t211)*t45+2.71780442174 5730 ; 79824d-1*t140*t2*t45+1.477292174974577d-1*gammaaa*t144*t1 5731 < 45*t38*t42+5.435608843495965d-1*t144*t145*t2*t40)*wght+2. 5732 = 4735567435575762d-2*t152*wght)+t92*(-2.4735567435575762d- 5733 > 2*rhoa*t152*t89*wght-t147*t91)+2.4735567435575762d-2*rhoa 5734 ? *t157*t91*t93*wght+Cmat3(iq,D3_RA_RA_GAA) 5735 Cmat3(iq,D3_RA_GAA_GAA) = t92*(-1.2367783717787881d-2*rhoa*t 5736 1 152*t91*wght-1.2367783717787881d-2*rhoa*t156*t89*wght-t15 5737 2 3*t91)+t48*(1.2367783717787881d-2*rhoa*(2.954584349949154 5738 3 d-1*gammaaa*t144*t38*t42*t88*t90+1.087121768699193d+0*t14 5739 4 4*t2*t40*t88*t90+3.4470150749406797d-1*gammaaa*t38*t49*t8 5740 5 5*t86*t90-5.435608843495965d-1*t2*t84*t85*t90+1.268308730 5741 6 1490586d+0*t40*t49*t50*t85*t90-5.435608843495965d-1*gamma 5742 7 aa*t150*t2*t85*t90+1.087121768699193d+0*gammaaa*t144*t151 5743 8 *t2*t40*t90-1.477292174974577d-1*t38*t42*t85*t88+8.029982 5744 9 410719201d-2*gammaaa*t142*t144*t40*t43*t88-1.630682653048 5745 : 7895d+0*gammaaa*t155*t2*t210*t40*t88-2.7178044217479824d- 5746 ; 1*gammaaa*t2*t40*t85*(2.388935978642432d+1*t36*t42*t81*t8 5747 < 7-6.894030149881362d-1*t43*t49*t86)-3.4470150749406797d-1 5748 = *t38*t45*t49*t86-4.0149912053596004d-2*gammaaa*t142*t43*t 5749 > 84*t85+9.368312812505736d-2*gammaaa*t209*t40*t43*t49*t85- 5750 ? 1.477292174974577d-1*gammaaa*t151*t38*t42*t85-5.435608843 5751 @ 495965d-1*t151*t2*t40*t85+5.435608843495965d-1*gammaaa*t1 5752 1 44*t155*t2*t84-1.2683087301490586d+0*gammaaa*t144*t155*t4 5753 2 0*t49*t50+5.435608843495965d-1*t150*t2*t45)*wght+1.236778 5754 3 3717787881d-2*t156*wght)+2.4735567435575762d-2*rhoa*t154* 5755 4 t157*t89*wght+Cmat3(iq,D3_RA_GAA_GAA) 5756 Cmat3(iq,D3_GAA_GAA_GAA) = -3.710335115336365d-2*rhoa*t156*t 5757 1 91*t92*wght+2.4735567435575762d-2*rhoa*t157*t91**3*wght+1 5758 2 .2367783717787881d-2*rhoa*t48*(-1.6306826530487895d+0*gam 5759 3 maaa*t2*t210*t40*t90**3-4.4318765249237313d-1*t38*t42*t85 5760 4 *t90+2.4089947232157605d-1*gammaaa*t142*t144*t40*t43*t90- 5761 5 3.273588255361676d-2*gammaaa*t85*t87/t1**8.0d+0-1.2044973 5762 6 616078802d-1*t142*t40*t43*t85+4.4318765249237313d-1*gamma 5763 7 aa*t144*t155*t38*t42+1.6306826530487895d+0*t144*t155*t2*t 5764 8 40)*wght+Cmat3(iq,D3_GAA_GAA_GAA) 5765 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 5766 t1 = rhob**1.1666666666666667d+0 5767 t2 = 1/t1**2.0d+0 5768 t3 = rhob**3.333333333333333d-1 5769 t4 = t3**5.0d-1 5770 t5 = 1/t4 5771 t6 = 1/t3 5772 t7 = 6.203504908994001d-1*t6 5773 t8 = t7+2.935818660072219d+0*t5+1.29352d+1 5774 t9 = abs(t8) 5775 t10 = 1/t9 5776 t11 = abs(t6) 5777 t12 = log(6.203504908994001d-1*t10*t11) 5778 t13 = 7.876233178997433d-1*t5 5779 t14 = t13+1.0498d-1 5780 t15 = t14**2 5781 t16 = log(1.0d+0*t10*t15) 5782 t17 = 1.5752466357994865d+0*t5 5783 t18 = t17+3.72744d+0 5784 t19 = atan(6.15199081975908d+0/t18) 5785 t20 = t7+8.908571061768626d-1*t5+1.30045d+1 5786 t21 = abs(t20) 5787 t22 = 1/t21 5788 t23 = log(6.203504908994001d-1*t11*t22) 5789 t24 = t13+4.7584000000000004d-3 5790 t25 = t24**2 5791 t26 = log(1.0d+0*t22*t25) 5792 t27 = t17+1.13107d+0 5793 t28 = atan(7.123108917818117d+0/t27) 5794 t29 = t7+5.560951426165704d+0*t5+1.8057800000000002d+1 5795 t30 = abs(t29) 5796 t31 = 1/t30 5797 t32 = t13+3.25d-1 5798 t33 = t32**2 5799 t34 = t17+7.06042d+0 5800 t35 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(5. 5801 1 249139316978092d-2*atan(4.7309269095601136d+0/t34)+2.2478 5802 2 670955426108d-3*log(1.0d+0*t31*t33)+1.554535d-2*log(6.203 5803 3 504908994001d-1*t11*t31)-3.8783294878113006d-2*t19-9.6902 5804 4 27711544375d-4*t16-3.10907d-2*t12)+5.365091848883603d-3*t 5805 5 28+6.991732350764465d-6*t26+1.688686394038963d-2*t23)-5.3 5806 6 65091848883603d-3*t28-6.991732350764465d-6*t26-1.68868639 5807 7 4038963d-2*t23)+3.8783294878113006d-2*t19+9.6902277115443 5808 8 75d-4*t16+3.10907d-2*t12 5809 t36 = exp(-8.085523023512742d+1*t35) 5810 t37 = t36-1.0d+0 5811 t38 = 1/t37 5812 t39 = 2.7178044217479824d-1*gammabb*t2*t38 5813 t40 = t39+1.0d+0 5814 t41 = gammabb**2.0d+0 5815 t42 = 1/t1**4.0d+0 5816 t43 = 1/t37**2.0d+0 5817 t44 = 7.386460874872887d-2*t41*t42*t43+t39+1.0d+0 5818 t45 = 1/t44 5819 t46 = 2.7178044217479824d-1*gammabb*t2*t40*t45+1.0d+0 5820 t47 = log(t46) 5821 t48 = 1/t46 5822 t49 = rhob**1.6666666666666674d-1 5823 t50 = 1/t1**3.0d+0 5824 t51 = -6.341543650745293d-1*gammabb*t38*t49*t50 5825 t52 = 1/t11 5826 t53 = -2.067834969664667d-1/rhob**1.3333333333333333d+0 5827 t54 = 1/t4**3 5828 t55 = 1/rhob**6.666666666666667d-1 5829 t56 = t53-4.8930311001203647d-1*t54*t55 5830 t57 = 1/t8 5831 t58 = 1/rhob**1.6666666666666666d+0 5832 t59 = -2.067834969664667d-1*t10*t52*t58-6.203504908994001d-1 5833 1 *t10*t11*t56*t57 5834 t60 = 1/t18**2 5835 t61 = 3.784699104639999d+1*t60+1 5836 t62 = 1/t61 5837 t63 = 1/t15 5838 t64 = -1.0d+0*t10*t15*t56*t57-2.625411059665811d-1*t10*t14*t 5839 1 54*t55 5840 t65 = t53-1.4847618436281043d-1*t54*t55 5841 t66 = 1/t20 5842 t67 = -6.203504908994001d-1*t11*t22*t65*t66-2.06783496966466 5843 1 7d-1*t22*t52*t58 5844 t68 = 1/t27**2 5845 t69 = 5.07386806551d+1*t68+1 5846 t70 = 1/t69 5847 t71 = 1/t25 5848 t72 = -1.0d+0*t22*t25*t65*t66-2.625411059665811d-1*t22*t24*t 5849 1 54*t55 5850 t73 = t53-9.26825237694284d-1*t54*t55 5851 t74 = 1/t29 5852 t75 = -6.203504908994001d-1*t11*t31*t73*t74-2.06783496966466 5853 1 7d-1*t31*t52*t58 5854 t76 = 1/t34**2 5855 t77 = 2.238166942360001d+1*t76+1 5856 t78 = 1/t77 5857 t79 = 1/t33 5858 t80 = -1.0d+0*t31*t33*t73*t74-2.625411059665811d-1*t31*t32*t 5859 1 54*t55 5860 t81 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-9 5861 1 .690227711544375d-4*t63*t64*t9-5.011795824473985d-2*t52*t 5862 2 59*t9+2.2478670955426108d-3*t30*t79*t80+6.519760588836059 5863 3 d-2*t54*t55*t76*t78+2.5058979122369923d-2*t30*t52*t75-6.2 5864 4 64085709464389d-2*t54*t55*t60*t62)+6.991732350764465d-6*t 5865 5 21*t71*t72+1.0033305979455584d-2*t54*t55*t68*t70+2.722148 5866 6 880047894d-2*t21*t52*t67)-6.991732350764465d-6*t21*t71*t7 5867 7 2-1.0033305979455584d-2*t54*t55*t68*t70-2.722148880047894 5868 8 d-2*t21*t52*t67)+9.690227711544375d-4*t63*t64*t9+5.011795 5869 9 824473985d-2*t52*t59*t9+6.264085709464389d-2*t54*t55*t60* 5870 : t62 5871 t82 = 1/t37**2 5872 t83 = 2.1974870225448048d+1*gammabb*t2*t36*t81*t82 5873 t84 = t83+t51 5874 t85 = 1/t44**2 5875 t86 = 1/t1**5.0d+0 5876 t87 = 1/t37**3.0d+0 5877 t88 = 1.194467989321216d+1*t36*t41*t42*t81*t87-3.44701507494 5878 1 0681d-1*t41*t43*t49*t86+t83+t51 5879 t89 = -2.7178044217479824d-1*gammabb*t2*t40*t85*t88+2.717804 5880 1 4217479824d-1*gammabb*t2*t45*t84-6.341543650745293d-1*gam 5881 2 mabb*t40*t45*t49*t50 5882 t90 = 1.4772921749745774d-1*gammabb*t42*t43+2.71780442174798 5883 1 24d-1*t2*t38 5884 t91 = -2.7178044217479824d-1*gammabb*t2*t40*t85*t90+7.386460 5885 1 874872885d-2*gammabb*t38*t42*t45+2.7178044217479824d-1*t2 5886 2 *t40*t45 5887 t92 = 1/t46**2 5888 t93 = t89**2 5889 t94 = rhob**3.333333333333335d-1 5890 t95 = 1/rhob**8.333333333333333d-1 5891 t96 = t81**2 5892 t97 = exp(-1.6171046047025484d+2*t35) 5893 t98 = 1/t37**3 5894 t99 = 3.553566382931297d+3*gammabb*t2*t96*t97*t98 5895 t100 = 2.2195402777608525d+0*gammabb*t38*t42*t94 5896 t101 = -1.0569239417908825d-1*gammabb*t38*t50*t95 5897 t102 = -1.0254939438542422d+2*gammabb*t36*t49*t50*t81*t82 5898 t103 = -1.7767831914656484d+3*gammabb*t2*t36*t82*t96 5899 t104 = 1/t61**2 5900 t105 = 1/t18**5 5901 t106 = 1/rhob**2.3333333333333334d+0 5902 t107 = 1/t18**3 5903 t108 = 1/rhob**1.6666666666666669d+0 5904 t109 = t56**2 5905 t110 = 1/t8**2 5906 t111 = 2.7571132928862224d-1/rhob**2.333333333333333d+0 5907 t112 = 1/t4**5 5908 t113 = 1/rhob**1.3333333333333336d+0 5909 t114 = 3.262020733413577d-1*t108*t54+2.4465155500601823d-1*t 5910 1 112*t113+t111 5911 t115 = 1/rhob**2.6666666666666666d+0 5912 t116 = 4.135669939329334d-1*t10*t52*t56*t57*t58-6.2035049089 5913 1 94001d-1*t10*t11*t114*t57+2.7571132928862224d-1*t10*t115* 5914 2 t52+1.2407009817988002d+0*t10*t109*t11*t110 5915 t117 = 1/rhob**9.999999999999999d-1 5916 t118 = 1/t14**3 5917 t119 = 5.250822119331622d-1*t10*t14*t54*t55*t56*t57-1.0d+0*t 5918 1 10*t114*t15*t57+1.7502740397772074d-1*t10*t108*t14*t54+2. 5919 2 0d+0*t10*t109*t110*t15+1.3127055298329054d-1*t10*t112*t11 5920 3 3*t14+3.446391616107778d-2*t10*t106 5921 t120 = 1/t69**2 5922 t121 = 1/t27**5 5923 t122 = 1/t27**3 5924 t123 = t65**2 5925 t124 = 1/t20**2 5926 t125 = 9.89841229085403d-2*t108*t54+7.423809218140521d-2*t11 5927 1 2*t113+t111 5928 t126 = 4.135669939329334d-1*t22*t52*t58*t65*t66-6.2035049089 5929 1 94001d-1*t11*t125*t22*t66+2.7571132928862224d-1*t115*t22* 5930 2 t52+1.2407009817988002d+0*t11*t123*t124*t22 5931 t127 = 1/t24**3 5932 t128 = 5.250822119331622d-1*t22*t24*t54*t55*t65*t66-1.0d+0*t 5933 1 125*t22*t25*t66+1.7502740397772074d-1*t108*t22*t24*t54+2. 5934 2 0d+0*t123*t124*t22*t25+1.3127055298329054d-1*t112*t113*t2 5935 3 2*t24+3.446391616107778d-2*t106*t22 5936 t129 = 1/t77**2 5937 t130 = 1/t34**5 5938 t131 = 1/t34**3 5939 t132 = t73**2 5940 t133 = 1/t29**2 5941 t134 = 6.178834917961894d-1*t108*t54+4.63412618847142d-1*t11 5942 1 2*t113+t111 5943 t135 = 4.135669939329334d-1*t31*t52*t58*t73*t74-6.2035049089 5944 1 94001d-1*t11*t134*t31*t74+2.7571132928862224d-1*t115*t31* 5945 2 t52+1.2407009817988002d+0*t11*t132*t133*t31 5946 t136 = 1/t32**3 5947 t137 = 5.250822119331622d-1*t31*t32*t54*t55*t73*t74-1.0d+0*t 5948 1 134*t31*t33*t74+1.7502740397772074d-1*t108*t31*t32*t54+2. 5949 2 0d+0*t132*t133*t31*t33+1.3127055298329054d-1*t112*t113*t3 5950 3 1*t32+3.446391616107778d-2*t106*t31 5951 t138 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(- 5952 1 2.544083100456872d-4*t118*t54*t55*t64*t9-9.69022771154437 5953 2 5d-4*t119*t63*t9-1.670598608157995d-2*t117*t52*t59*t9-5.0 5954 3 11795824473985d-2*t116*t52*t9+2.2478670955426108d-3*t29*t 5955 4 31*t73*t79*t80+5.901575133296435d-4*t136*t30*t54*t55*t80- 5956 5 9.690227711544375d-4*t10*t56*t63*t64*t8-5.011795824473985 5957 6 d-2*t10*t52*t56*t59*t8+2.2478670955426108d-3*t137*t30*t79 5958 7 -4.3465070592240396d-2*t108*t54*t76*t78-3.259880294418029 5959 8 4d-2*t112*t113*t76*t78+3.4234103112606934d-2*t106*t131*t7 5960 9 8+2.5058979122369923d-2*t29*t31*t52*t73*t75+8.35299304078 5961 : 9976d-3*t117*t30*t52*t75+4.176057139642926d-2*t108*t54*t6 5962 ; 0*t62+3.1320428547321943d-2*t112*t113*t60*t62-3.289159980 5963 < 064472d-2*t106*t107*t62+2.5058979122369923d-2*t135*t30*t5 5964 = 2-7.662163788798045d-1*t106*t129*t130+1.2448480831567728d 5965 > +0*t104*t105*t106)+6.991732350764465d-6*t20*t22*t65*t71*t 5966 ? 72+1.8356171439920266d-6*t127*t21*t54*t55*t72+6.991732350 5967 @ 764465d-6*t128*t21*t71-6.68887065297039d-3*t108*t54*t68*t 5968 1 70-5.016652989727792d-3*t112*t113*t68*t70+5.2683104966947 5969 2 6d-3*t106*t122*t70+2.722148880047894d-2*t20*t22*t52*t65*t 5970 3 67+9.073829600159646d-3*t117*t21*t52*t67+2.72214888004789 5971 4 4d-2*t126*t21*t52-2.6730712388370664d-1*t106*t120*t121)-6 5972 5 .991732350764465d-6*t20*t22*t65*t71*t72-1.835617143992026 5973 6 6d-6*t127*t21*t54*t55*t72-6.991732350764465d-6*t128*t21*t 5974 7 71+6.68887065297039d-3*t108*t54*t68*t70+5.016652989727792 5975 8 d-3*t112*t113*t68*t70-5.26831049669476d-3*t106*t122*t70-2 5976 9 .722148880047894d-2*t20*t22*t52*t65*t67-9.073829600159646 5977 : d-3*t117*t21*t52*t67-2.722148880047894d-2*t126*t21*t52+2. 5978 ; 6730712388370664d-1*t106*t120*t121)+2.544083100456872d-4* 5979 < t118*t54*t55*t64*t9+9.690227711544375d-4*t119*t63*t9+1.67 5980 = 0598608157995d-2*t117*t52*t59*t9+5.011795824473985d-2*t11 5981 > 6*t52*t9+9.690227711544375d-4*t10*t56*t63*t64*t8+5.011795 5982 ? 824473985d-2*t10*t52*t56*t59*t8-4.176057139642926d-2*t108 5983 @ *t54*t60*t62-3.1320428547321943d-2*t112*t113*t60*t62+3.28 5984 1 9159980064472d-2*t106*t107*t62-1.2448480831567728d+0*t104 5985 2 *t105*t106 5986 t139 = 2.1974870225448048d+1*gammabb*t138*t2*t36*t82 5987 t140 = t99+t139+t103+t102+t101+t100 5988 t141 = 1/t37**4.0d+0 5989 t142 = 1/t1**6.0d+0 5990 t143 = t99+2.897369528551699d+3*t141*t41*t42*t96*t97-9.65789 5991 1 8428505663d+2*t36*t41*t42*t87*t96-5.745025124901137d-2*t4 5992 2 1*t43*t86*t95+2.0107587937153976d+0*t142*t41*t43*t94-1.11 5993 3 48367900331349d+2*t36*t41*t49*t81*t86*t87+1.1944679893212 5994 4 16d+1*t138*t36*t41*t42*t87+t139+t103+t102+t101+t100 5995 t144 = 1/t44**3 5996 t145 = t88**2 5997 t146 = -1.0569239417908825d-1*gammabb*t40*t45*t50*t95+2.2195 5998 1 402777608525d+0*gammabb*t40*t42*t45*t94-5.435608843495965 5999 2 d-1*gammabb*t2*t84*t85*t88+1.2683087301490586d+0*gammabb* 6000 3 t40*t49*t50*t85*t88-2.7178044217479824d-1*gammabb*t143*t2 6001 4 *t40*t85-1.2683087301490586d+0*gammabb*t45*t49*t50*t84+2. 6002 5 7178044217479824d-1*gammabb*t140*t2*t45+5.435608843495965 6003 6 d-1*gammabb*t144*t145*t2*t40 6004 t147 = 2.4735567435575762d-2*t89*wght+1.2367783717787881d-2* 6005 1 rhob*t146*wght 6006 t148 = -6.341543650745293d-1*t38*t49*t50 6007 t149 = 2.1974870225448048d+1*t2*t36*t81*t82 6008 t150 = t149+t148 6009 t151 = 2.388935978642432d+1*gammabb*t36*t42*t81*t87-6.894030 6010 1 149881362d-1*gammabb*t43*t49*t86+t149+t148 6011 t152 = 5.435608843495965d-1*gammabb*t144*t2*t40*t88*t90-2.71 6012 1 78044217479824d-1*gammabb*t2*t84*t85*t90+6.34154365074529 6013 2 3d-1*gammabb*t40*t49*t50*t85*t90-7.386460874872885d-2*gam 6014 3 mabb*t38*t42*t85*t88-2.7178044217479824d-1*t2*t40*t85*t88 6015 4 -1.7235075374703399d-1*gammabb*t38*t45*t49*t86-2.71780442 6016 5 17479824d-1*gammabb*t151*t2*t40*t85+2.7178044217479824d-1 6017 6 *t2*t45*t84-6.341543650745293d-1*t40*t45*t49*t50+2.717804 6018 7 4217479824d-1*gammabb*t150*t2*t45 6019 t153 = 1.2367783717787881d-2*t91*wght+1.2367783717787881d-2* 6020 1 rhob*t152*wght 6021 t154 = t91**2 6022 t155 = t90**2 6023 t156 = -1.477292174974577d-1*gammabb*t38*t42*t85*t90-5.43560 6024 1 8843495965d-1*t2*t40*t85*t90-4.0149912053596004d-2*gammab 6025 2 b*t142*t40*t43*t85+1.477292174974577d-1*t38*t42*t45+5.435 6026 3 608843495965d-1*gammabb*t144*t155*t2*t40 6027 t157 = 1/t46**3 6028 t158 = rhob**5.000000000000002d-1 6029 t159 = 1/rhob**6.666666666666665d-1 6030 t160 = 1/rhob**1.8333333333333332d+0 6031 t161 = t81**3 6032 t162 = exp(-2.4256569070538228d+2*t35) 6033 t163 = 8.61973284143157d+5*gammabb*t161*t162*t2/t37**4 6034 t164 = -2.487496468051908d+4*gammabb*t49*t50*t96*t97*t98 6035 t165 = -8.619732841431569d+5*gammabb*t161*t2*t97*t98 6036 t166 = 1.0660699148793891d+4*gammabb*t138*t2*t81*t97*t98 6037 t167 = -1.0357854629550646d+1*gammabb*t158*t38*t86 6038 t168 = 1.1097701388804267d+0*gammabb*t159*t38*t42 6039 t169 = 8.807699514924021d-2*gammabb*t160*t38*t50 6040 t170 = 5.383843205234772d+2*gammabb*t36*t42*t81*t82*t94 6041 t171 = -2.563734859635607d+1*gammabb*t36*t50*t81*t82*t95 6042 t172 = 1.243748234025954d+4*gammabb*t36*t49*t50*t82*t96 6043 t173 = -1.5382409157813634d+2*gammabb*t138*t36*t49*t50*t82 6044 t174 = 1.4366221402385948d+5*gammabb*t161*t2*t36*t82 6045 t175 = 1/rhob**3.3333333333333337d+0 6046 t176 = 1/t61**3 6047 t177 = 1/t18**8 6048 t178 = 1/rhob**3.0d+0 6049 t179 = 1/t18**6 6050 t180 = 1/t18**4 6051 t181 = 1/rhob**2.666666666666667d+0 6052 t182 = 1/t14**4 6053 t183 = 1/t4**7 6054 t184 = 1/rhob**2.0d+0 6055 t185 = 1/rhob**1.9999999999999998d+0 6056 t186 = t56**3 6057 t187 = 1/t8**3 6058 t188 = -6.433264350067851d-1/rhob**3.333333333333333d+0 6059 t189 = -5.436701222355962d-1*t181*t54+t188-2.038762958383485 6060 1 1d-1*t183*t184-4.893031100120365d-1*t106*t112 6061 t190 = 1/rhob**3.6666666666666664d+0 6062 t191 = 6.203504908994001d-1*t10*t114*t52*t57*t58-1.240700981 6063 1 7988002d+0*t10*t109*t110*t52*t58-8.271339878658668d-1*t10 6064 2 *t115*t52*t56*t57-6.203504908994001d-1*t10*t11*t189*t57+3 6065 3 .7221029453964005d+0*t10*t11*t110*t114*t56-6.433264350067 6066 4 852d-1*t10*t190*t52-3.7221029453964005d+0*t10*t11*t186*t1 6067 5 87 6068 t192 = -5.250822119331622d-1*t10*t108*t14*t54*t56*t57-3.9381 6069 1 165894987163d-1*t10*t112*t113*t14*t56*t57-1.0339174848323 6070 2 335d-1*t10*t106*t56*t57+7.876233178997433d-1*t10*t114*t14 6071 3 *t54*t55*t57-1.0d+0*t10*t15*t189*t57+6.0d+0*t10*t110*t114 6072 4 *t15*t56-1.5752466357994865d+0*t10*t109*t110*t14*t54*t55- 6073 5 2.917123399628679d-1*t10*t14*t181*t54-6.0d+0*t10*t15*t186 6074 6 *t187-1.0939212748607545d-1*t10*t14*t183*t184-1.206237065 6075 7 6377223d-1*t10*t175-2.625411059665811d-1*t10*t106*t112*t1 6076 8 4 6077 t193 = 1/t69**3 6078 t194 = 1/t27**8 6079 t195 = 1/t27**6 6080 t196 = 1/t27**4 6081 t197 = 1/t24**4 6082 t198 = t65**3 6083 t199 = 1/t20**3 6084 t200 = -1.649735381809005d-1*t181*t54+t188-6.186507681783768 6085 1 d-2*t183*t184-1.4847618436281043d-1*t106*t112 6086 t201 = -8.271339878658668d-1*t115*t22*t52*t65*t66+6.20350490 6087 1 8994001d-1*t125*t22*t52*t58*t66-6.203504908994001d-1*t11* 6088 2 t200*t22*t66+3.7221029453964005d+0*t11*t124*t125*t22*t65- 6089 3 1.2407009817988002d+0*t123*t124*t22*t52*t58-6.43326435006 6090 4 7852d-1*t190*t22*t52-3.7221029453964005d+0*t11*t198*t199* 6091 5 t22 6092 t202 = -5.250822119331622d-1*t108*t22*t24*t54*t65*t66-3.9381 6093 1 165894987163d-1*t112*t113*t22*t24*t65*t66-1.0339174848323 6094 2 335d-1*t106*t22*t65*t66+7.876233178997433d-1*t125*t22*t24 6095 3 *t54*t55*t66-1.0d+0*t200*t22*t25*t66+6.0d+0*t124*t125*t22 6096 4 *t25*t65-1.5752466357994865d+0*t123*t124*t22*t24*t54*t55- 6097 5 2.917123399628679d-1*t181*t22*t24*t54-6.0d+0*t198*t199*t2 6098 6 2*t25-1.0939212748607545d-1*t183*t184*t22*t24-2.625411059 6099 7 665811d-1*t106*t112*t22*t24-1.2062370656377223d-1*t175*t2 6100 8 2 6101 t203 = t73**3 6102 t204 = 1/t29**3 6103 t205 = -1.0298058196603158d+0*t181*t54+t188-3.86177182372618 6104 1 33d-1*t183*t184-9.26825237694284d-1*t106*t112 6105 t206 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1 6106 1 .696055400304582d-4*t108*t118*t54*t64*t9-1.00188958629725 6107 2 38d-4*t106*t182*t64*t9+1.272041550228436d-4*t112*t113*t11 6108 3 8*t64*t9-9.690227711544375d-4*t192*t63*t9-5.5686620271933 6109 4 16d-3*t185*t52*t59*t9+1.6705986081579946d-2*t184*t52*t59* 6110 5 t9-5.088166200913744d-4*t118*t119*t54*t55*t9-5.0117958244 6111 6 73985d-2*t191*t52*t9-3.34119721631599d-2*t116*t117*t52*t9 6112 7 +2.2478670955426108d-3*t134*t29*t31*t79*t80+1.18031502665 6113 8 92868d-3*t136*t29*t31*t54*t55*t73*t80-3.934383422197623d- 6114 9 4*t108*t136*t30*t54*t80+2.3241090936607786d-4*t106*t30*t8 6115 : 0/t32**4-2.9507875666482175d-4*t112*t113*t136*t30*t80-9.6 6116 ; 90227711544375d-4*t10*t114*t63*t64*t8-5.088166200913744d- 6117 < 4*t10*t118*t54*t55*t56*t64*t8-1.938045542308875d-3*t10*t1 6118 = 19*t56*t63*t8-3.34119721631599d-2*t10*t117*t52*t56*t59*t8 6119 > -5.011795824473985d-2*t10*t114*t52*t59*t8-1.0023591648947 6120 ? 97d-1*t10*t116*t52*t56*t8+2.2478670955426108d-3*t30*(-5.2 6121 @ 50822119331622d-1*t108*t31*t32*t54*t73*t74-3.938116589498 6122 1 7163d-1*t112*t113*t31*t32*t73*t74-1.0339174848323335d-1*t 6123 2 106*t31*t73*t74+7.876233178997433d-1*t134*t31*t32*t54*t55 6124 3 *t74-1.0d+0*t205*t31*t33*t74+6.0d+0*t133*t134*t31*t33*t73 6125 4 -1.5752466357994865d+0*t132*t133*t31*t32*t54*t55-2.917123 6126 5 399628679d-1*t181*t31*t32*t54-6.0d+0*t203*t204*t31*t33-1. 6127 6 0939212748607545d-1*t183*t184*t31*t32-2.625411059665811d- 6128 7 1*t106*t112*t31*t32-1.2062370656377223d-1*t175*t31)*t79+4 6129 8 .4957341910852217d-3*t137*t29*t31*t73*t79+7.2441784320400 6130 9 66d-2*t181*t54*t76*t78+2.716566912015024d-2*t183*t184*t76 6131 : *t78+6.51976058883606d-2*t106*t112*t76*t78+2.696357787887 6132 ; 34d-2*t178*t54*t78/t34**4-1.1981936089412427d-1*t131*t175 6133 < *t78+1.8009481522035156d+1*t178*t54/(t34**8*t77**3)+1.670 6134 = 598608157995d-2*t117*t29*t31*t52*t73*t75+2.50589791223699 6135 > 23d-2*t134*t29*t31*t52*t75+2.784331013596658d-3*t185*t30* 6136 ? t52*t75-8.352993040789973d-3*t184*t30*t52*t75+2.505897912 6137 @ 2369923d-2*t30*t52*(-8.271339878658668d-1*t115*t31*t52*t7 6138 1 3*t74+6.203504908994001d-1*t134*t31*t52*t58*t74-6.2035049 6139 2 08994001d-1*t11*t205*t31*t74+3.7221029453964005d+0*t11*t1 6140 3 33*t134*t31*t73-1.2407009817988002d+0*t132*t133*t31*t52*t 6141 4 58-6.433264350067852d-1*t190*t31*t52-3.7221029453964005d+ 6142 5 0*t11*t203*t204*t31)+5.011795824473985d-2*t135*t29*t31*t5 6143 6 2*t73-6.96009523273821d-2*t181*t54*t60*t62-2.610035712276 6144 7 828d-2*t183*t184*t60*t62-6.26408570946439d-2*t106*t112*t6 6145 8 0*t62-2.590619096601433d-2*t178*t180*t54*t62+1.1512059930 6146 9 225654d-1*t107*t175*t62+1.1803150266592868d-3*t136*t137*t 6147 : 30*t54*t55-1.4081430686456894d+0*t129*t178*t54/t34**6+2.2 6148 ; 877665475865033d+0*t104*t178*t179*t54-4.947718859586276d+ 6149 < 1*t176*t177*t178*t54+1.670598608157995d-2*t117*t135*t30*t 6150 = 52+2.681757326079316d+0*t129*t130*t175-4.356968291048705d 6151 > +0*t104*t105*t175)+6.991732350764465d-6*t125*t20*t22*t71* 6152 ? t72+3.671234287984053d-6*t127*t20*t22*t54*t55*t65*t72-1.2 6153 @ 237447626613511d-6*t108*t127*t21*t54*t72+7.22887432672325 6154 1 4d-7*t106*t197*t21*t72-9.178085719960132d-7*t112*t113*t12 6155 2 7*t21*t72+1.3983464701528928d-5*t128*t20*t22*t65*t71+6.99 6156 3 1732350764465d-6*t202*t21*t71+1.114811775495065d-2*t181*t 6157 4 54*t68*t70+4.180544158106493d-3*t183*t184*t68*t70+1.00333 6158 5 05979455585d-2*t106*t112*t68*t70+4.1494441931327714d-3*t1 6159 6 78*t196*t54*t70-1.843908673843166d-2*t122*t175*t70+1.8147 6160 7 659200319294d-2*t117*t20*t22*t52*t65*t67+2.72214888004789 6161 8 4d-2*t125*t20*t22*t52*t67+3.024609866719882d-3*t185*t21*t 6162 9 52*t67-9.073829600159644d-3*t184*t21*t52*t67+5.4442977600 6163 : 95788d-2*t126*t20*t22*t52*t65+3.671234287984053d-6*t127*t 6164 ; 128*t21*t54*t55-4.9125375556021966d-1*t120*t178*t195*t54+ 6165 < 1.424318138513631d+1*t178*t193*t194*t54+2.722148880047894 6166 = d-2*t201*t21*t52+1.8147659200319294d-2*t117*t126*t21*t52+ 6167 > 9.355749335929733d-1*t120*t121*t175)-6.991732350764465d-6 6168 ? *t125*t20*t22*t71*t72-3.671234287984053d-6*t127*t20*t22*t 6169 @ 54*t55*t65*t72+1.2237447626613511d-6*t108*t127*t21*t54*t7 6170 1 2-7.228874326723254d-7*t106*t197*t21*t72+9.17808571996013 6171 2 2d-7*t112*t113*t127*t21*t72-1.3983464701528928d-5*t128*t2 6172 3 0*t22*t65*t71-6.991732350764465d-6*t202*t21*t71-1.1148117 6173 4 75495065d-2*t181*t54*t68*t70-4.180544158106493d-3*t183*t1 6174 5 84*t68*t70-1.0033305979455585d-2*t106*t112*t68*t70-4.1494 6175 6 441931327714d-3*t178*t196*t54*t70+1.843908673843166d-2*t1 6176 7 22*t175*t70-1.8147659200319294d-2*t117*t20*t22*t52*t65*t6 6177 8 7-2.722148880047894d-2*t125*t20*t22*t52*t67-3.02460986671 6178 9 9882d-3*t185*t21*t52*t67+9.073829600159644d-3*t184*t21*t5 6179 : 2*t67-5.444297760095788d-2*t126*t20*t22*t52*t65-3.6712342 6180 ; 87984053d-6*t127*t128*t21*t54*t55+4.9125375556021966d-1*t 6181 < 120*t178*t195*t54-1.424318138513631d+1*t178*t193*t194*t54 6182 = -2.722148880047894d-2*t201*t21*t52-1.8147659200319294d-2* 6183 > t117*t126*t21*t52-9.355749335929733d-1*t120*t121*t175)-1. 6184 ? 696055400304582d-4*t108*t118*t54*t64*t9+1.001889586297253 6185 @ 8d-4*t106*t182*t64*t9-1.272041550228436d-4*t112*t113*t118 6186 1 *t64*t9+9.690227711544375d-4*t192*t63*t9+5.56866202719331 6187 2 6d-3*t185*t52*t59*t9-1.6705986081579946d-2*t184*t52*t59*t 6188 3 9+5.088166200913744d-4*t118*t119*t54*t55*t9+5.01179582447 6189 4 3985d-2*t191*t52*t9+3.34119721631599d-2*t116*t117*t52*t9+ 6190 5 9.690227711544375d-4*t10*t114*t63*t64*t8+5.08816620091374 6191 6 4d-4*t10*t118*t54*t55*t56*t64*t8+1.938045542308875d-3*t10 6192 7 *t119*t56*t63*t8+3.34119721631599d-2*t10*t117*t52*t56*t59 6193 8 *t8+5.011795824473985d-2*t10*t114*t52*t59*t8+1.0023591648 6194 9 94797d-1*t10*t116*t52*t56*t8+6.96009523273821d-2*t181*t54 6195 : *t60*t62+2.610035712276828d-2*t183*t184*t60*t62+6.2640857 6196 ; 0946439d-2*t106*t112*t60*t62+2.590619096601433d-2*t178*t1 6197 < 80*t54*t62-1.1512059930225654d-1*t107*t175*t62-2.28776654 6198 = 75865033d+0*t104*t178*t179*t54+4.947718859586276d+1*t176* 6199 > t177*t178*t54+4.356968291048705d+0*t104*t105*t175 6200 t207 = 2.1974870225448048d+1*gammabb*t2*t206*t36*t82 6201 t208 = -5.330349574396945d+3*gammabb*t138*t2*t36*t81*t82 6202 t209 = 1/t1**7.0d+0 6203 t210 = 1/t44**4 6204 t211 = 3.553566382931297d+3*t2*t96*t97*t98 6205 t212 = 2.2195402777608525d+0*t38*t42*t94 6206 t213 = -1.0569239417908825d-1*t38*t50*t95 6207 t214 = -1.0254939438542422d+2*t36*t49*t50*t81*t82 6208 t215 = -1.7767831914656484d+3*t2*t36*t82*t96 6209 t216 = 2.1974870225448048d+1*t138*t2*t36*t82 6210 fnc(iq) = 1.2367783717787881d-2*rhob*t47*wght+fnc(iq) 6211 Amat(iq,D1_RB) = 1.2367783717787881d-2*rhob*t48*t89*wght+1.2 6212 1 367783717787881d-2*t47*wght+Amat(iq,D1_RB) 6213 Cmat(iq,D1_GBB) = 1.2367783717787881d-2*rhob*t48*t91*wght+Cm 6214 1 at(iq,D1_GBB) 6215 Amat2(iq,D2_RB_RB) = -1.2367783717787881d-2*rhob*t92*t93*wgh 6216 1 t+t147*t48+Amat2(iq,D2_RB_RB) 6217 Cmat2(iq,D2_RB_GBB) = -1.2367783717787881d-2*rhob*t89*t91*t9 6218 1 2*wght+t153*t48+Cmat2(iq,D2_RB_GBB) 6219 Cmat2(iq,D2_GBB_GBB) = -1.2367783717787881d-2*rhob*t154*t92* 6220 1 wght+1.2367783717787881d-2*rhob*t156*t48*wght+Cmat2(iq,D2 6221 2 _GBB_GBB) 6222 Amat3(iq,D3_RB_RB_RB) = t48*(1.2367783717787881d-2*rhob*(-2. 6223 1 7178044217479824d-1*gammabb*t2*t40*t85*(-4.05631733997237 6224 2 9d+4*t141*t41*t49*t86*t96*t97+8.692108585655098d+3*t138*t 6225 3 141*t41*t42*t81*t97-7.028024409218707d+5*t141*t161*t41*t4 6226 4 2*t97+1.3521057799907932d+4*t36*t41*t49*t86*t87*t96-2.787 6227 5 091975082838d+1*t36*t41*t81*t86*t87*t95+9.754821912789933 6228 6 d+2*t142*t36*t41*t81*t87*t94-1.6722551850497025d+2*t138*t 6229 7 36*t41*t49*t86*t87-2.897369528551699d+3*t138*t36*t41*t42* 6230 8 t81*t87+1.194467989321216d+1*t206*t36*t41*t42*t87+7.80891 6231 9 6010243008d+4*t161*t36*t41*t42*t87+4.787520937417614d-2*t 6232 : 160*t41*t43*t86-1.4075311556007783d+1*t158*t209*t41*t43+1 6233 ; .0053793968576992d+0*t142*t159*t41*t43+9.37069921229161d+ 6234 < 5*t161*t162*t41*t42/t37**5.0d+0+t208+t207+t174+t173+t172+ 6235 = t171+t170+t169+t168+t167+t166+t165+t164+t163)+3.170771825 6236 > 3726475d-1*gammabb*t40*t50*t85*t88*t95-3.1707718253726475 6237 ? d-1*gammabb*t45*t50*t84*t95-6.658620833282557d+0*gammabb* 6238 @ t40*t42*t85*t88*t94+6.658620833282557d+0*gammabb*t42*t45* 6239 1 t84*t94-1.6306826530487895d+0*gammabb*t2*t210*t40*t88**3+ 6240 2 3.8049261904471754d+0*gammabb*t49*t50*t84*t85*t88-8.15341 6241 3 3265243947d-1*gammabb*t140*t2*t85*t88+1.6306826530487895d 6242 4 +0*gammabb*t143*t144*t2*t40*t88-1.0357854629550646d+1*gam 6243 5 mabb*t158*t40*t45*t86-8.153413265243947d-1*gammabb*t143*t 6244 6 2*t84*t85+1.9024630952235877d+0*gammabb*t143*t40*t49*t50* 6245 7 t85+1.6306826530487895d+0*gammabb*t144*t145*t2*t84-1.9024 6246 8 630952235877d+0*gammabb*t140*t45*t49*t50-3.80492619044717 6247 9 54d+0*gammabb*t144*t145*t40*t49*t50+8.807699514924021d-2* 6248 : gammabb*t160*t40*t45*t50+1.1097701388804267d+0*gammabb*t1 6249 ; 59*t40*t42*t45+2.7178044217479824d-1*gammabb*t2*(t208+t20 6250 < 7+t174+t173+t172+t171+t170+t169+t168+t167+t166+t165+t164+ 6251 = t163)*t45)*wght+3.710335115336365d-2*t146*wght)+t92*(-1.2 6252 > 367783717787881d-2*t93*wght-2.4735567435575762d-2*rhob*t1 6253 ? 46*t89*wght-t147*t89)+2.4735567435575762d-2*rhob*t157*t89 6254 @ **3*wght+Amat3(iq,D3_RB_RB_RB) 6255 Cmat3(iq,D3_RB_RB_GBB) = t48*(1.2367783717787881d-2*rhob*(-2 6256 1 .7178044217479824d-1*gammabb*t2*t40*t85*(5.79473905710339 6257 2 9d+3*gammabb*t141*t42*t96*t97-1.9315796857011328d+3*gamma 6258 3 bb*t36*t42*t87*t96-1.1490050249802275d-1*gammabb*t43*t86* 6259 4 t95+4.021517587430795d+0*gammabb*t142*t43*t94-2.229673580 6260 5 0662698d+2*gammabb*t36*t49*t81*t86*t87+2.388935978642432d 6261 6 +1*gammabb*t138*t36*t42*t87+t216+t215+t214+t213+t212+t211 6262 7 )+1.0569239417908825d-1*gammabb*t40*t50*t85*t90*t95-2.872 6263 8 5125624505676d-2*gammabb*t38*t45*t86*t95-1.05692394179088 6264 9 25d-1*t40*t45*t50*t95-2.2195402777608525d+0*gammabb*t40*t 6265 : 42*t85*t90*t94+2.2195402777608525d+0*t40*t42*t45*t94+6.03 6266 ; 227638114619d-1*gammabb*t142*t38*t45*t94+1.08712176869919 6267 < 3d+0*gammabb*t144*t2*t84*t88*t90-2.5366174602981173d+0*ga 6268 = mmabb*t144*t40*t49*t50*t88*t90+1.2683087301490586d+0*gamm 6269 > abb*t49*t50*t84*t85*t90-2.7178044217479824d-1*gammabb*t14 6270 ? 0*t2*t85*t90-1.6306826530487895d+0*gammabb*t145*t2*t210*t 6271 @ 40*t90+5.435608843495965d-1*gammabb*t143*t144*t2*t40*t90+ 6272 1 3.4470150749406797d-1*gammabb*t38*t49*t85*t86*t88-5.43560 6273 2 8843495965d-1*t2*t84*t85*t88+1.2683087301490586d+0*t40*t4 6274 3 9*t50*t85*t88-5.435608843495965d-1*gammabb*t150*t2*t85*t8 6275 4 8+1.087121768699193d+0*gammabb*t144*t151*t2*t40*t88-5.435 6276 5 608843495965d-1*gammabb*t151*t2*t84*t85+1.268308730149058 6277 6 6d+0*gammabb*t151*t40*t49*t50*t85-7.386460874872885d-2*ga 6278 7 mmabb*t143*t38*t42*t85-2.7178044217479824d-1*t143*t2*t40* 6279 8 t85-1.2683087301490586d+0*t45*t49*t50*t84-1.2683087301490 6280 9 586d+0*gammabb*t150*t45*t49*t50+2.7178044217479824d-1*gam 6281 : mabb*t2*(t216+t215+t214+t213+t212+t211)*t45+2.71780442174 6282 ; 79824d-1*t140*t2*t45+1.477292174974577d-1*gammabb*t144*t1 6283 < 45*t38*t42+5.435608843495965d-1*t144*t145*t2*t40)*wght+2. 6284 = 4735567435575762d-2*t152*wght)+t92*(-2.4735567435575762d- 6285 > 2*rhob*t152*t89*wght-t147*t91)+2.4735567435575762d-2*rhob 6286 ? *t157*t91*t93*wght+Cmat3(iq,D3_RB_RB_GBB) 6287 Cmat3(iq,D3_RB_GBB_GBB) = t92*(-1.2367783717787881d-2*rhob*t 6288 1 152*t91*wght-1.2367783717787881d-2*rhob*t156*t89*wght-t15 6289 2 3*t91)+t48*(1.2367783717787881d-2*rhob*(2.954584349949154 6290 3 d-1*gammabb*t144*t38*t42*t88*t90+1.087121768699193d+0*t14 6291 4 4*t2*t40*t88*t90+3.4470150749406797d-1*gammabb*t38*t49*t8 6292 5 5*t86*t90-5.435608843495965d-1*t2*t84*t85*t90+1.268308730 6293 6 1490586d+0*t40*t49*t50*t85*t90-5.435608843495965d-1*gamma 6294 7 bb*t150*t2*t85*t90+1.087121768699193d+0*gammabb*t144*t151 6295 8 *t2*t40*t90-1.477292174974577d-1*t38*t42*t85*t88+8.029982 6296 9 410719201d-2*gammabb*t142*t144*t40*t43*t88-1.630682653048 6297 : 7895d+0*gammabb*t155*t2*t210*t40*t88-2.7178044217479824d- 6298 ; 1*gammabb*t2*t40*t85*(2.388935978642432d+1*t36*t42*t81*t8 6299 < 7-6.894030149881362d-1*t43*t49*t86)-3.4470150749406797d-1 6300 = *t38*t45*t49*t86-4.0149912053596004d-2*gammabb*t142*t43*t 6301 > 84*t85+9.368312812505736d-2*gammabb*t209*t40*t43*t49*t85- 6302 ? 1.477292174974577d-1*gammabb*t151*t38*t42*t85-5.435608843 6303 @ 495965d-1*t151*t2*t40*t85+5.435608843495965d-1*gammabb*t1 6304 1 44*t155*t2*t84-1.2683087301490586d+0*gammabb*t144*t155*t4 6305 2 0*t49*t50+5.435608843495965d-1*t150*t2*t45)*wght+1.236778 6306 3 3717787881d-2*t156*wght)+2.4735567435575762d-2*rhob*t154* 6307 4 t157*t89*wght+Cmat3(iq,D3_RB_GBB_GBB) 6308 Cmat3(iq,D3_GBB_GBB_GBB) = -3.710335115336365d-2*rhob*t156*t 6309 1 91*t92*wght+2.4735567435575762d-2*rhob*t157*t91**3*wght+1 6310 2 .2367783717787881d-2*rhob*t48*(-1.6306826530487895d+0*gam 6311 3 mabb*t2*t210*t40*t90**3-4.4318765249237313d-1*t38*t42*t85 6312 4 *t90+2.4089947232157605d-1*gammabb*t142*t144*t40*t43*t90- 6313 5 3.273588255361676d-2*gammabb*t85*t87/t1**8.0d+0-1.2044973 6314 6 616078802d-1*t142*t40*t43*t85+4.4318765249237313d-1*gamma 6315 7 bb*t144*t155*t38*t42+1.6306826530487895d+0*t144*t155*t2*t 6316 8 40)*wght+Cmat3(iq,D3_GBB_GBB_GBB) 6317 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 6318 endif ! ipol.eq.1 6319 enddo ! iq 6320 end 6321C> @} 6322