1C> \ingroup nwxc 2C> @{ 3C> 4C> \file nwxcm_c_m11.F 5C> The nwxcm_c_m11 functional 6C> 7C> @} 8C> 9C> \ingroup nwxc_priv 10C> @{ 11C> 12C> \brief Evaluate the nwxcm_c_m11 functional [1] 13C> 14C> \f{eqnarray*}{ 15C> {\it t_1} &=& \rho_\beta+\rho_\alpha\\\\ 16C> {\it t_2} &=& {\it t_1}^{0.3333333333333333}\\\\ 17C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 18C> {\it t_4} &=& 0.1325688999052018\,{\it t_3}+1.0\\\\ 19C> {\it t_5} &=& \sqrt{{\it t_2}}\\\\ 20C> {\it t_6} &=& {{1}\over{{\it t_5}}}\\\\ 21C> {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_5}} 22C> \over{0.7876233178997433\,{\it t_6}\,\left(0.7876233178997433 23C> \,{\it t_6}\,\left(0.02414199311453321\,{\it t_6} 24C> +0.10186556948\right)+0.22308199064\right)+0.47231125998}} 25C> +1.0\right)\\\\ 26C> {\it t_8} &=& \rho_\alpha-\rho_\beta\\\\ 27C> {\it t_9} &=& {{1}\over{{\it t_1}}}\\\\ 28C> {\it t_{10}} &=& 1.0-{\it t_8}\,{\it t_9}\\\\ 29C> {\it t_{11}} &=& {\it t_8}\,{\it t_9}+1.0\\\\ 30C> {\it t_{12}} &=& 0.06901399211255826\,{\it t_3}+1.0\\\\ 31C> {\it t_{13}} &=& \log \left({{1.269642451250142\,{ 32C> \it t_5}}\over{0.7876233178997433\,{\it t_6}\, 33C> \left(0.7876233178997433\,{\it t_6}\,\left(0.01321299881039884 34C> \,{\it t_6}+0.029729725188\right)+0.12236585478\right) 35C> +0.3497952466}}+1.0\right)\\\\ 36C> {\it t_{14}} &=& 0.5848223622634648\,\left(1.923661050931536 37C> \,{\it t_{11}}^{{{4}\over{3}}}+1.923661050931536\,{ 38C> \it t_{10}}^{{{4}\over{3}}}-3.847322101863072\right)\, 39C> \left({{{\it t_8}^4\,\left(1.709920934161365\,\left(0.0621814 40C> \,{\it t_4}\,{\it t_7}-0.0310907\,\left(0.1274696188700087 41C> \,{\it t_3}+1.0\right)\,\log \left({{1.269642451250142\,{ 42C> \it t_5}}\over{0.7876233178997433\,{\it t_6}\, 43C> \left(0.7876233178997433\,{\it t_6}\,\left(0.01530901310039024 44C> \,{\it t_6}+0.10465751434\right)+0.19269083139\right) 45C> +0.43896648423}}+1.0\right)\right)-0.0337738\,{\it t_{12}} 46C> \,{\it t_{13}}\right)}\over{{\it t_1}^4}}+0.0337738\,{ 47C> \it t_{12}}\,{\it t_{13}}\right)-0.0621814\,{\it t_4}\,{ 48C> \it t_7}\\\\ 49C> {\it t_{15}} &=& {\it param}\left(1\right)\\\\ 50C> {\it t_{16}} &=& 2.871234000188191\,{\it t_1}^{{{5}\over{3}}}\\\\ 51C> {\it t_{17}} &=& -\tau_\beta-\tau_\alpha+{\it t_{16}}\\\\ 52C> {\it t_{18}} &=& {{1}\over{\tau_\beta+\tau_\alpha+{ 53C> \it t_{16}}}}\\\\ 54C> {\it t_{19}} &=& {\it param}\left(2\right)\\\\ 55C> {\it t_{20}} &=& {\it param}\left(3\right)\\\\ 56C> {\it t_{21}} &=& {\it param}\left(4\right)\\\\ 57C> {\it t_{22}} &=& {\it param}\left(5\right)\\\\ 58C> {\it t_{23}} &=& {\it param}\left(6\right)\\\\ 59C> {\it t_{24}} &=& {\it param}\left(7\right)\\\\ 60C> {\it t_{25}} &=& {\it param}\left(8\right)\\\\ 61C> {\it t_{26}} &=& {\it param}\left(9\right)\\\\ 62C> {\it t_{27}} &=& {\it param}\left(10\right)\\\\ 63C> {\it t_{28}} &=& {\it param}\left(11\right)\\\\ 64C> {\it t_{29}} &=& {\it param}\left(12\right)\\\\ 65C> {\it t_{30}} &=& 0.5\,{\it t_{11}}^{{{2}\over{3}}}+0.5\,{ 66C> \it t_{10}}^{{{2}\over{3}}}\\\\ 67C> {\it t_{31}} &=& {\it t_{30}}^{3.0}\\\\ 68C> {\it t_{32}} &=& {{1}\over{\left({ 69C> \it t_1}^{1.166666666666667}\right)^{2.0}}}\\\\ 70C> {\it t_{33}} &=& {{1}\over{{\it t_{30}}^{2.0}}}\\\\ 71C> {\it t_{34}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 72C> +\sigma_{\alpha\alpha}\\\\ 73C> {\it t_{35}} &=& {{1}\over{e^{{{32.16396844291483\,{ 74C> \it t_{14}}}\over{{\it t_{31}}}}}}}-1.0\\\\ 75C> {\it t_{36}} &=& {{0.1362107888567592\,{\it t_{32}}\,{ 76C> \it t_{33}}\,{\it t_{34}}}\over{{\it t_{35}}}}\\\\ 77C> {\it t_{37}} &=& {\it param}\left(13\right)\\\\ 78C> {\it t_{38}} &=& {\it param}\left(14\right)\\\\ 79C> {\it t_{39}} &=& {\it param}\left(15\right)\\\\ 80C> {\it t_{40}} &=& {\it param}\left(16\right)\\\\ 81C> {\it t_{41}} &=& {\it param}\left(17\right)\\\\ 82C> {\it t_{42}} &=& {\it param}\left(18\right)\\\\ 83C> {\it t_{43}} &=& {\it param}\left(19\right)\\\\ 84C> {\it t_{44}} &=& {\it param}\left(20\right)\\\\ 85C> {\it t_{45}} &=& {\it param}\left(21\right)\\\\ 86C> {\it t_{46}} &=& {\it param}\left(22\right)\\\\ 87C> {\it t_{47}} &=& {\it param}\left(23\right)\\\\ 88C> {\it t_{48}} &=& {\it param}\left(24\right)\\\\ 89C> {\it t_{49}} &=& \rho_s^{0.3333333333333333}\\\\ 90C> {\it t_{50}} &=& \sqrt{{\it t_{49}}}\\\\ 91C> {\it t_{51}} &=& {{1}\over{{\it t_{50}}}}\\\\ 92C> {\it t_{52}} &=& {{1}\over{{\it t_{49}}}}\\\\ 93C> {\it t_{53}} &=& \log \left({{1.269642451250142\,{ 94C> \it t_{50}}}\over{0.7876233178997433\,\left(0.7876233178997433 95C> \,\left(0.02414199311453321\,{\it t_{51}}+0.10186556948\right) 96C> \,{\it t_{51}}+0.22308199064\right)\,{\it t_{51}} 97C> +0.47231125998}}+1.0\right)\\\\ 98C> {\it t_{54}} &=& 0.1325688999052018\,{\it t_{52}}+1.0\\\\ 99C> {\it t_{55}} &=& 0.9999999999999991\,\left(0.0621814\,{ 100C> \it t_{53}}\,{\it t_{54}}-0.0310907\,\log 101C> \left({{1.269642451250142\,{\it t_{50}}} 102C> \over{0.7876233178997433\,\left(0.7876233178997433\, 103C> \left(0.01530901310039024\,{\it t_{51}}+0.10465751434\right) 104C> \,{\it t_{51}}+0.19269083139\right)\,{\it t_{51}} 105C> +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{ 106C> \it t_{52}}+1.0\right)\right)-0.0621814\,{\it t_{53}}\,{ 107C> \it t_{54}}\\\\ 108C> {\it t_{56}} &=& 2.871234000188191\,\rho_s^{{{5}\over{3}}}\\\\ 109C> {\it t_{57}} &=& -\tau_{\bar s}-\tau_s+{\it t_{56}}\\\\ 110C> {\it t_{58}} &=& {{1}\over{\tau_{\bar s}+\tau_s+{\it t_{56}}}}\\\\ 111C> {\it t_{59}} &=& {{1}\over{ 112C> \left(\rho_s^{1.166666666666667}\right)^{2.0}}}\\\\ 113C> {\it t_{60}} &=& {{1}\over{e^{64.32793688582967\,{\it t_{55}}}}} 114C> -1.0\\\\ 115C> {\it t_{61}} &=& {{0.2162211495206379\,{\it t_{59}}\, 116C> \sigma_{ss}}\over{{\it t_{60}}}}\\\\ 117C> f &=& 1.0\,\left(0.03109069086965489\,{\it t_1}\,{\it t_{31}} 118C> \,\log \left({{0.1362107888567592\,{\it t_{32}}\,{\it t_{33}} 119C> \,{\it t_{34}}\,\left({\it t_{36}}+1.0\right)} 120C> \over{{{0.01855337900098064\,\left({\it t_{32}}\,{ 121C> \it t_{34}}\right)^{2.0}}\over{{\it t_{30}}^{4.0}\,{ 122C> \it t_{35}}^{2.0}}}+{\it t_{36}}+1.0}}+1.0\right)\,\left({ 123C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 124C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 125C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 126C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 127C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 128C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 129C> \it t_{48}}\,{\it t_{17}}\,{\it t_{18}}+{\it t_{47}}\right) 130C> +{\it t_{46}}\right)+{\it t_{45}}\right)+{\it t_{44}}\right) 131C> +{\it t_{43}}\right)+{\it t_{42}}\right)+{\it t_{41}}\right) 132C> +{\it t_{40}}\right)+{\it t_{39}}\right)+{\it t_{38}}\right) 133C> +{\it t_{37}}\right)+1.0\,{\it t_1}\,{\it t_{14}}\,\left({ 134C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 135C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 136C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 137C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 138C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 139C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 140C> \it t_{29}}\,{\it t_{17}}\,{\it t_{18}}+{\it t_{28}}\right) 141C> +{\it t_{27}}\right)+{\it t_{26}}\right)+{\it t_{25}}\right) 142C> +{\it t_{24}}\right)+{\it t_{23}}\right)+{\it t_{22}}\right) 143C> +{\it t_{21}}\right)+{\it t_{20}}\right)+{\it t_{19}}\right) 144C> +{\it t_{15}}\right)\right)\\\\ 145C> g &=& 0\\\\ 146C> G &=& 1.0\,\left(0.01554534543482744\,\rho_s\,\log 147C> \left({{0.2162211495206379\,{\it t_{59}}\,\sigma_{ss}\, 148C> \left({\it t_{61}}+1.0\right)}\over{{{0.04675158550002606 149C> \,\left({\it t_{59}}\,\sigma_{ss}\right)^{2.0}}\over{{ 150C> \it t_{60}}^{2.0}}}+{\it t_{61}}+1.0}}+1.0\right)\,\left({ 151C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 152C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 153C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 154C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 155C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 156C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 157C> \it t_{48}}\,{\it t_{57}}\,{\it t_{58}}+{\it t_{47}}\right) 158C> +{\it t_{46}}\right)+{\it t_{45}}\right)+{\it t_{44}}\right) 159C> +{\it t_{43}}\right)+{\it t_{42}}\right)+{\it t_{41}}\right) 160C> +{\it t_{40}}\right)+{\it t_{39}}\right)+{\it t_{38}}\right) 161C> +{\it t_{37}}\right)+1.0\,{\it t_{55}}\,\rho_s\,\left({ 162C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 163C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 164C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 165C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 166C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 167C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 168C> \it t_{29}}\,{\it t_{57}}\,{\it t_{58}}+{\it t_{28}}\right) 169C> +{\it t_{27}}\right)+{\it t_{26}}\right)+{\it t_{25}}\right) 170C> +{\it t_{24}}\right)+{\it t_{23}}\right)+{\it t_{22}}\right) 171C> +{\it t_{21}}\right)+{\it t_{20}}\right)+{\it t_{19}}\right) 172C> +{\it t_{15}}\right)\right)\\\\ 173C> \f} 174C> 175C> Code generated with Maxima 5.34.0 [2] 176C> driven by autoxc [3]. 177C> 178C> ### References ### 179C> 180C> [1] R Peverati, DG Truhlar, J.Phys.Chem.Lett. 2, 2810 (2011) , DOI: 181C> <a href="https://doi.org/10.1021/jz201170d "> 182C> 10.1021/jz201170d </a> 183C> 184C> [2] Maxima, a computer algebra system, 185C> <a href="http://maxima.sourceforge.net/"> 186C> http://maxima.sourceforge.net/</a> 187C> 188C> [3] autoxc, revision 27097 2015-05-08 189C> 190 subroutine nwxcm_c_m11(param,tol_rho,ipol,nq,wght, 191 +rho,rgamma,tau,fnc,Amat,Cmat,Mmat) 192c $Id: $ 193#ifdef NWXC_QUAD_PREC 194 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 195 integer, parameter :: rk=selected_real_kind(30) 196#else 197 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 198 integer, parameter :: rk=selected_real_kind(15) 199#endif 200#include "nwxc_param.fh" 201 double precision param(*) !< [Input] Parameters of functional 202 double precision tol_rho !< [Input] The lower limit on the density 203 integer ipol !< [Input] The number of spin channels 204 integer nq !< [Input] The number of points 205 double precision wght !< [Input] The weight of the functional 206 double precision rho(nq,NCOL_RHO) !< [Input] The density 207 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 208 !< gradients 209 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 210 double precision fnc(nq) !< [Output] The value of the functional 211c 212c Sampling Matrices for the XC Kernel 213c 214 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 215 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 216 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 217 integer iq 218 double precision tmp 219 double precision rhoa,rhob 220 double precision gammaaa,gammaab,gammabb 221 double precision taua,taub 222 double precision nwxcm_heaviside 223 external nwxcm_heaviside 224!DIR$ NOVECTOR 225 do iq = 1, nq 226 if (ipol.eq.1) then 227 rhoa = 0.5d0*rho(iq,R_T) 228 gammaaa = 0.25d0*rgamma(iq,G_TT) 229 taua = 0.5d0*tau(iq,T_T) 230 if (rhoa.gt.tol_rho) then 231 t1 = rhoa**3.333333333333333d-1 232 t2 = t1**5.0d-1 233 t3 = 1/t2 234 t4 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3*( 235 1 7.016926042943223d-1*(2.150807071909054d-2*t3+1.018655694 236 2 8d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0) 237 t5 = 1/t1 238 t6 = 1.0522000558389215d-1*t5+1.0d+0 239 t7 = 9.115599744691192d+0*rhoa**1.6666666666666669d+0 240 t8 = t7-2*taua 241 t9 = 2*taua+t7 242 t10 = 1/t9 243 t11 = param(12) 244 t12 = t10*t11*t8+param(11) 245 t13 = t10*t12*t8+param(10) 246 t14 = t10*t13*t8+param(9) 247 t15 = t10*t14*t8+param(8) 248 t16 = t10*t15*t8+param(7) 249 t17 = t10*t16*t8+param(6) 250 t18 = t10*t17*t8+param(5) 251 t19 = t10*t18*t8+param(4) 252 t20 = t10*t19*t8+param(3) 253 t21 = t10*t20*t8+param(2) 254 t22 = t10*t21*t8+param(1) 255 t23 = rhoa**1.1666666666666667d+0 256 t24 = 1/t23**2.0d+0 257 t25 = exp(2.0000005873362642d+0*t4*t6)-1.0d+0 258 t26 = 1.0811057476031892d-1*gammaaa*t24/t25 259 t27 = (gammaaa*t24)**2.0d+0 260 t28 = param(24) 261 t29 = t10*t28*t8+param(23) 262 t30 = t10*t29*t8+param(22) 263 t31 = t10*t30*t8+param(21) 264 t32 = t10*t31*t8+param(20) 265 t33 = t10*t32*t8+param(19) 266 t34 = t10*t33*t8+param(18) 267 t35 = t10*t34*t8+param(17) 268 t36 = t10*t35*t8+param(16) 269 t37 = t10*t36*t8+param(15) 270 t38 = t10*t37*t8+param(14) 271 t39 = t10*t38*t8+param(13) 272 t40 = 2.1508070719090538d-2*t3+1.0186556948d-1 273 t41 = 7.016926042943222d-1*t3*t40+2.2308199064d-1 274 t42 = 7.016926042943222d-1*t3*t41+4.7231125998d-1 275 t43 = 1/t42 276 t44 = 1.425125466450768d+0*t2*t43+1.0d+0 277 t45 = log(t44) 278 t46 = 1.0522000558389213d-1*t5+1.0d+0 279 t47 = 1.5874010519681994d+0 280 t48 = rhoa**6.666666666666666d-1 281 t49 = 1/t9**2 282 t50 = 1/t2**3 283 t51 = 1/rhoa**6.666666666666667d-1 284 t52 = 1.090454542535705d-3*t45/rhoa**1.3333333333333333d+0-6 285 1 .21814d-2*t46*(1.1876045553756398d-1*t3*t43*t51-1.4251254 286 2 66450768d+0*t2*(7.016926042943222d-1*t3*(-5.8474383691193 287 3 52d-2*t40*t50*t51-1.2576711796854242d-3/rhoa**1.333333333 288 4 3333336d+0)-5.847438369119352d-2*t41*t50*t51)/t42**2)/t44 289 t53 = exp(2.0000005873362642d+0*t45*t46) 290 t54 = t53-1.0d+0 291 t55 = 1/t54 292 t56 = 1.0811057476031893d-1*gammaaa*t24*t55 293 t57 = t56+1.0d+0 294 t58 = 1/t54**2.0d+0 295 t59 = 1.168789637500651d-2*t27*t58+t56+1.0d+0 296 t60 = 1/t59 297 t61 = 1.0811057476031893d-1*gammaaa*t24*t57*t60+1.0d+0 298 t62 = log(t61) 299 t63 = 1/t61 300 t64 = rhoa**1.6666666666666674d-1 301 t65 = 1/t23**3.0d+0 302 t66 = -1.2612900388703877d-1*gammaaa*t55*t64*t65 303 t67 = 3.4772651149362827d+0*gammaaa*t24*t52*t53/t54**2 304 t68 = 1/t59**2 305 t69 = 1/t23**4.0d+0 306 fnc(iq) = 1.0d+0*(6.218138173930978d-2*rhoa*log(1.0811057476 307 1 031892d-1*gammaaa*t24*(t26+1.0d+0)/(1.1687896375006504d-2 308 2 *t27/t25**2.0d+0+t26+1.0d+0)+1.0d+0)*t39-1.243628d-1*rhoa 309 3 *t22*t4*t6)*wght+fnc(iq) 310 Amat(iq,D1_RA) = 1.0d+0*(6.218138173930978d-2*rhoa*t62*(t10* 311 1 t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t 312 2 8*(t10*t8*(t10*t8*(4.785390000313652d+0*t10*t28*t47*t48-4 313 3 .785390000313652d+0*t28*t47*t48*t49*t8)-4.785390000313652 314 4 d+0*t29*t47*t48*t49*t8+4.785390000313652d+0*t10*t29*t47*t 315 5 48)-4.785390000313652d+0*t30*t47*t48*t49*t8+4.78539000031 316 6 3652d+0*t10*t30*t47*t48)-4.785390000313652d+0*t31*t47*t48 317 7 *t49*t8+4.785390000313652d+0*t10*t31*t47*t48)-4.785390000 318 8 313652d+0*t32*t47*t48*t49*t8+4.785390000313652d+0*t10*t32 319 9 *t47*t48)-4.785390000313652d+0*t33*t47*t48*t49*t8+4.78539 320 : 0000313652d+0*t10*t33*t47*t48)-4.785390000313652d+0*t34*t 321 ; 47*t48*t49*t8+4.785390000313652d+0*t10*t34*t47*t48)-4.785 322 < 390000313652d+0*t35*t47*t48*t49*t8+4.785390000313652d+0*t 323 = 10*t35*t47*t48)-4.785390000313652d+0*t36*t47*t48*t49*t8+4 324 > .785390000313652d+0*t10*t36*t47*t48)-4.785390000313652d+0 325 ? *t37*t47*t48*t49*t8+4.785390000313652d+0*t10*t37*t47*t48) 326 @ -4.785390000313652d+0*t38*t47*t48*t49*t8+4.78539000031365 327 1 2d+0*t10*t38*t47*t48)-1.243628d-1*rhoa*t45*t46*(t10*t8*(t 328 2 10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t1 329 3 0*t8*(t10*t8*(4.785390000313652d+0*t10*t11*t47*t48-4.7853 330 4 90000313652d+0*t11*t47*t48*t49*t8)-4.785390000313652d+0*t 331 5 12*t47*t48*t49*t8+4.785390000313652d+0*t10*t12*t47*t48)-4 332 6 .785390000313652d+0*t13*t47*t48*t49*t8+4.785390000313652d 333 7 +0*t10*t13*t47*t48)-4.785390000313652d+0*t14*t47*t48*t49* 334 8 t8+4.785390000313652d+0*t10*t14*t47*t48)-4.78539000031365 335 9 2d+0*t15*t47*t48*t49*t8+4.785390000313652d+0*t10*t15*t47* 336 : t48)-4.785390000313652d+0*t16*t47*t48*t49*t8+4.7853900003 337 ; 13652d+0*t10*t16*t47*t48)-4.785390000313652d+0*t17*t47*t4 338 < 8*t49*t8+4.785390000313652d+0*t10*t17*t47*t48)-4.78539000 339 = 0313652d+0*t18*t47*t48*t49*t8+4.785390000313652d+0*t10*t1 340 > 8*t47*t48)-4.785390000313652d+0*t19*t47*t48*t49*t8+4.7853 341 ? 90000313652d+0*t10*t19*t47*t48)-4.785390000313652d+0*t20* 342 @ t47*t48*t49*t8+4.785390000313652d+0*t10*t20*t47*t48)-4.78 343 1 5390000313652d+0*t21*t47*t48*t49*t8+4.785390000313652d+0* 344 2 t10*t21*t47*t48)+6.218138173930978d-2*rhoa*t39*t63*(-1.08 345 3 11057476031893d-1*gammaaa*t24*t57*(t67+t66-2.727175820834 346 4 852d-2*gammaaa**2*t58*t64/t23**5.0d+0+7.518582603395361d- 347 5 1*t27*t52*t53/t54**3.0d+0)*t68+1.0811057476031893d-1*gamm 348 6 aaa*t24*t60*(t67+t66)-1.2612900388703877d-1*gammaaa*t57*t 349 7 60*t64*t65)+3.109069086965489d-2*t39*t62+2.0d+0*rhoa*t22* 350 8 t52-6.21814d-2*t22*t45*t46)*wght+Amat(iq,D1_RA) 351 Cmat(iq,D1_GAA) = 6.218138173930978d-2*rhoa*t39*t63*(-1.0811 352 1 057476031893d-1*gammaaa*t24*t57*t68*(5.843948187503255d-3 353 2 *gammaaa*t58*t69+2.7027643690079733d-2*t24*t55)+2.9219740 354 3 937516275d-3*gammaaa*t55*t60*t69+2.7027643690079733d-2*t2 355 4 4*t57*t60)*wght+Cmat(iq,D1_GAA) 356 Cmat(iq,D1_GAB) = 6.218138173930978d-2*rhoa*t39*t63*(-1.0811 357 1 057476031893d-1*gammaaa*t24*t57*t68*(1.168789637500651d-2 358 2 *gammaaa*t58*t69+5.405528738015947d-2*t24*t55)+5.84394818 359 3 7503255d-3*gammaaa*t55*t60*t69+5.405528738015947d-2*t24*t 360 4 57*t60)*wght+Cmat(iq,D1_GAB) 361 Mmat(iq,D1_TA) = 1.0d+0*(6.218138173930978d-2*rhoa*t62*(t10* 362 1 t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t 363 2 8*(t10*t8*(t10*t8*(-t28*t49*t8-t10*t28)-t29*t49*t8-t10*t2 364 3 9)-t30*t49*t8-t10*t30)-t31*t49*t8-t10*t31)-t32*t49*t8-t10 365 4 *t32)-t33*t49*t8-t10*t33)-t34*t49*t8-t10*t34)-t35*t49*t8- 366 5 t10*t35)-t36*t49*t8-t10*t36)-t37*t49*t8-t10*t37)-t38*t49* 367 6 t8-t10*t38)-1.243628d-1*rhoa*t45*t46*(t10*t8*(t10*t8*(t10 368 7 *t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10* 369 8 t8*(-t11*t49*t8-t10*t11)-t12*t49*t8-t10*t12)-t13*t49*t8-t 370 9 10*t13)-t14*t49*t8-t10*t14)-t15*t49*t8-t10*t15)-t16*t49*t 371 : 8-t10*t16)-t17*t49*t8-t10*t17)-t18*t49*t8-t10*t18)-t19*t4 372 ; 9*t8-t10*t19)-t20*t49*t8-t10*t20)-t21*t49*t8-t10*t21))*wg 373 < ht+Mmat(iq,D1_TA) 374 endif ! rhoa.gt.tol_rho 375 else ! ipol.eq.1 376 rhoa = rho(iq,R_A) 377 rhob = rho(iq,R_B) 378 gammaaa = rgamma(iq,G_AA) 379 gammaab = rgamma(iq,G_AB) 380 gammabb = rgamma(iq,G_BB) 381 taua = tau(iq,T_A) 382 taub = tau(iq,T_B) 383 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 384 t1 = rhob+rhoa 385 t2 = t1**3.333333333333333d-1 386 t3 = 1/t2 387 t4 = 1.325688999052018d-1*t3+1.0d+0 388 t5 = t2**5.0d-1 389 t6 = 1/t5 390 t7 = 2.4141993114533214d-2*t6+1.0186556948d-1 391 t8 = 7.876233178997433d-1*t6*t7+2.2308199064d-1 392 t9 = 7.876233178997433d-1*t6*t8+4.7231125998d-1 393 t10 = 1/t9 394 t11 = 1.269642451250142d+0*t10*t5+1.0d+0 395 t12 = log(t11) 396 t13 = rhoa-rhob 397 t14 = 1/t1 398 t15 = 1.0d+0-t13*t14 399 t16 = t13*t14+1.0d+0 400 t17 = 1.923661050931536d+0*t16**1.3333333333333333d+0+1.9236 401 1 61050931536d+0*t15**1.3333333333333333d+0-3.8473221018630 402 2 72d+0 403 t18 = 6.901399211255826d-2*t3+1.0d+0 404 t19 = 1.3212998810398843d-2*t6+2.9729725188d-2 405 t20 = 7.876233178997433d-1*t19*t6+1.2236585478d-1 406 t21 = 7.876233178997433d-1*t20*t6+3.497952466d-1 407 t22 = 1/t21 408 t23 = 1.269642451250142d+0*t22*t5+1.0d+0 409 t24 = log(t23) 410 t25 = t13**4 411 t26 = 1/t1**4 412 t27 = 1.2746961887000874d-1*t3+1.0d+0 413 t28 = 1.530901310039024d-2*t6+1.0465751434d-1 414 t29 = 7.876233178997433d-1*t28*t6+1.9269083139d-1 415 t30 = 7.876233178997433d-1*t29*t6+4.3896648423d-1 416 t31 = 1/t30 417 t32 = 1.269642451250142d+0*t31*t5+1.0d+0 418 t33 = log(t32) 419 t34 = 1.709920934161365d+0*(6.21814d-2*t12*t4-3.10907d-2*t27 420 1 *t33)-3.37738d-2*t18*t24 421 t35 = t25*t26*t34+3.37738d-2*t18*t24 422 t36 = 5.848223622634648d-1*t17*t35-6.21814d-2*t12*t4 423 t37 = 2.871234000188191d+0*t1**1.6666666666666669d+0 424 t38 = -taub-taua+t37 425 t39 = taub+taua+t37 426 t40 = 1/t39 427 t41 = param(12) 428 t42 = t38*t40*t41+param(11) 429 t43 = t38*t40*t42+param(10) 430 t44 = t38*t40*t43+param(9) 431 t45 = t38*t40*t44+param(8) 432 t46 = t38*t40*t45+param(7) 433 t47 = t38*t40*t46+param(6) 434 t48 = t38*t40*t47+param(5) 435 t49 = t38*t40*t48+param(4) 436 t50 = t38*t40*t49+param(3) 437 t51 = t38*t40*t50+param(2) 438 t52 = t38*t40*t51+param(1) 439 t53 = 5.0d-1*t16**6.666666666666666d-1+5.0d-1*t15**6.6666666 440 1 66666666d-1 441 t54 = t53**3.0d+0 442 t55 = gammabb+2.0d+0*gammaab+gammaaa 443 t56 = t1**1.1666666666666667d+0 444 t57 = 1/t56**2.0d+0 445 t58 = t53**2.0d+0 446 t59 = 1/t58 447 t60 = 1/t54 448 t61 = exp(-3.216396844291483d+1*t36*t60) 449 t62 = t61-1.0d+0 450 t63 = 1/t62 451 t64 = 1.3621078885675922d-1*t55*t57*t59*t63 452 t65 = t64+1.0d+0 453 t66 = 1/t53**4.0d+0 454 t67 = (t55*t57)**2.0d+0 455 t68 = 1/t62**2.0d+0 456 t69 = 1.855337900098064d-2*t66*t67*t68+t64+1.0d+0 457 t70 = 1/t69 458 t71 = 1.3621078885675922d-1*t55*t57*t59*t65*t70+1.0d+0 459 t72 = log(t71) 460 t73 = param(24) 461 t74 = t38*t40*t73+param(23) 462 t75 = t38*t40*t74+param(22) 463 t76 = t38*t40*t75+param(21) 464 t77 = t38*t40*t76+param(20) 465 t78 = t38*t40*t77+param(19) 466 t79 = t38*t40*t78+param(18) 467 t80 = t38*t40*t79+param(17) 468 t81 = t38*t40*t80+param(16) 469 t82 = t38*t40*t81+param(15) 470 t83 = t38*t40*t82+param(14) 471 t84 = t38*t40*t83+param(13) 472 t85 = t1**6.666666666666666d-1 473 t86 = 1/t39**2 474 t87 = 1.0d+0*t1*t36*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(t38 475 1 *t40*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(4.7853 476 2 90000313652d+0*t40*t41*t85-4.785390000313652d+0*t38*t41*t 477 3 85*t86)-4.785390000313652d+0*t38*t42*t85*t86+4.7853900003 478 4 13652d+0*t40*t42*t85)-4.785390000313652d+0*t38*t43*t85*t8 479 5 6+4.785390000313652d+0*t40*t43*t85)-4.785390000313652d+0* 480 6 t38*t44*t85*t86+4.785390000313652d+0*t40*t44*t85)-4.78539 481 7 0000313652d+0*t38*t45*t85*t86+4.785390000313652d+0*t40*t4 482 8 5*t85)-4.785390000313652d+0*t38*t46*t85*t86+4.78539000031 483 9 3652d+0*t40*t46*t85)-4.785390000313652d+0*t38*t47*t85*t86 484 : +4.785390000313652d+0*t40*t47*t85)-4.785390000313652d+0*t 485 ; 38*t48*t85*t86+4.785390000313652d+0*t40*t48*t85)-4.785390 486 < 000313652d+0*t38*t49*t85*t86+4.785390000313652d+0*t40*t49 487 = *t85)-4.785390000313652d+0*t38*t50*t85*t86+4.785390000313 488 > 652d+0*t40*t50*t85)-4.785390000313652d+0*t38*t51*t85*t86+ 489 ? 4.785390000313652d+0*t40*t51*t85) 490 t88 = 1/t1**1.3333333333333336d+0 491 t89 = 1/t1**6.666666666666667d-1 492 t90 = 1/t5**3 493 t91 = 2.11607075208357d-1*t10*t6*t89-1.269642451250142d+0*t5 494 1 *(7.876233178997433d-1*t6*(-1.3127055298329054d-1*t7*t89* 495 2 t90-3.169132786263567d-3*t88)-1.3127055298329054d-1*t8*t8 496 3 9*t90)/t9**2 497 t92 = 1/t11 498 t93 = -6.21814d-2*t4*t91*t92 499 t94 = 1/t1**1.3333333333333333d+0 500 t95 = 2.747773264188438d-3*t12*t94 501 t96 = 2.11607075208357d-1*t22*t6*t89-1.269642451250142d+0*t5 502 1 *(7.876233178997433d-1*t6*(-1.3127055298329054d-1*t19*t89 503 2 *t90-1.7344776604086162d-3*t88)-1.3127055298329054d-1*t20 504 3 *t89*t90)/t21**2 505 t97 = 1/t23 506 t98 = 3.37738d-2*t18*t96*t97 507 t99 = -7.769549222703733d-4*t24*t94 508 t100 = t25*t26*(-3.37738d-2*t18*t96*t97+1.709920934161365d+0 509 1 *(1.3210398931339265d-3*t33*t94-2.747773264188438d-3*t12* 510 2 t94+6.21814d-2*t4*t91*t92-3.10907d-2*t27*(2.1160707520835 511 3 7d-1*t31*t6*t89-1.269642451250142d+0*t5*(7.87623317899743 512 4 3d-1*t6*(-1.3127055298329054d-1*t28*t89*t90-2.00962261531 513 5 66658d-3*t88)-1.3127055298329054d-1*t29*t89*t90)/t30**2)/ 514 6 t32)+7.769549222703733d-4*t24*t94) 515 t101 = -4*t25*t34/t1**5 516 t102 = t13**3 517 t103 = 1/t1**2 518 t104 = t103*t13 519 t105 = -t14 520 t106 = t105+t104 521 t107 = t15**3.333333333333333d-1 522 t108 = -t103*t13 523 t109 = t14+t108 524 t110 = t16**3.333333333333333d-1 525 t111 = 5.848223622634648d-1*t17*(t99+t98+4*t102*t26*t34+t101 526 1 +t100)+t95+t93+5.848223622634648d-1*(2.564881401242048d+0 527 2 *t109*t110+2.564881401242048d+0*t106*t107)*t35 528 t112 = 1.0d+0*t36*t52 529 t113 = 3.109069086965489d-2*t1*t54*t72*(t38*t40*(t38*t40*(t3 530 1 8*t40*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(t38*t 531 2 40*(t38*t40*(4.785390000313652d+0*t40*t73*t85-4.785390000 532 3 313652d+0*t38*t73*t85*t86)-4.785390000313652d+0*t38*t74*t 533 4 85*t86+4.785390000313652d+0*t40*t74*t85)-4.78539000031365 534 5 2d+0*t38*t75*t85*t86+4.785390000313652d+0*t40*t75*t85)-4. 535 6 785390000313652d+0*t38*t76*t85*t86+4.785390000313652d+0*t 536 7 40*t76*t85)-4.785390000313652d+0*t38*t77*t85*t86+4.785390 537 8 000313652d+0*t40*t77*t85)-4.785390000313652d+0*t38*t78*t8 538 9 5*t86+4.785390000313652d+0*t40*t78*t85)-4.785390000313652 539 : d+0*t38*t79*t85*t86+4.785390000313652d+0*t40*t79*t85)-4.7 540 ; 85390000313652d+0*t38*t80*t85*t86+4.785390000313652d+0*t4 541 < 0*t80*t85)-4.785390000313652d+0*t38*t81*t85*t86+4.7853900 542 = 00313652d+0*t40*t81*t85)-4.785390000313652d+0*t38*t82*t85 543 > *t86+4.785390000313652d+0*t40*t82*t85)-4.785390000313652d 544 ? +0*t38*t83*t85*t86+4.785390000313652d+0*t40*t83*t85) 545 t114 = 1/t71 546 t115 = 1/t107 547 t116 = 1/t110 548 t117 = 3.333333333333333d-1*t109*t116+3.333333333333333d-1*t 549 1 106*t115 550 t118 = t1**1.6666666666666674d-1 551 t119 = 1/t56**3.0d+0 552 t120 = -3.1782517399910487d-1*t118*t119*t55*t59*t65*t70 553 t121 = -2.7242157771351844d-1*t117*t55*t57*t60*t63 554 t122 = -3.1782517399910487d-1*t118*t119*t55*t59*t63 555 t123 = 1/t62**2 556 t124 = 9.649190532874448d+1*t117*t36*t66-3.216396844291483d+ 557 1 1*t111*t60 558 t125 = -1.3621078885675922d-1*t123*t124*t55*t57*t59*t61 559 t126 = 1/t69**2 560 t127 = -8.658243533790966d-2*t118*t55**2*t66*t68/t56**5.0d+0 561 t128 = 1/t53**5.0d+0 562 t129 = 1/t62**3.0d+0 563 t130 = 3.109069086965489d-2*t54*t72*t84 564 t131 = t14+t104 565 t132 = t108+t105 566 t133 = 5.848223622634648d-1*t17*(t99+t98-4*t102*t26*t34+t101 567 1 +t100)+t95+t93+5.848223622634648d-1*(2.564881401242048d+0 568 2 *t110*t132+2.564881401242048d+0*t107*t131)*t35 569 t134 = 3.333333333333333d-1*t116*t132+3.333333333333333d-1*t 570 1 115*t131 571 t135 = -2.7242157771351844d-1*t134*t55*t57*t60*t63 572 t136 = 9.649190532874448d+1*t134*t36*t66-3.216396844291483d+ 573 1 1*t133*t60 574 t137 = -1.3621078885675922d-1*t123*t136*t55*t57*t59*t61 575 t138 = 1/t56**4.0d+0 576 t139 = 3.109069086965489d-2*t1*t114*t54*(1.855337900098064d- 577 1 2*t138*t55*t63*t66*t70+1.3621078885675922d-1*t57*t59*t65* 578 2 t70-1.3621078885675922d-1*t126*t55*t57*t59*t65*(3.7106758 579 3 00196128d-2*t138*t55*t66*t68+1.3621078885675922d-1*t57*t5 580 4 9*t63))*t84*wght 581 t140 = 1.0d+0*(3.109069086965489d-2*t1*t54*t72*(t38*t40*(t38 582 1 *t40*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(t38*t4 583 2 0*(t38*t40*(t38*t40*(-t38*t73*t86-t40*t73)-t38*t74*t86-t4 584 3 0*t74)-t38*t75*t86-t40*t75)-t38*t76*t86-t40*t76)-t38*t77* 585 4 t86-t40*t77)-t38*t78*t86-t40*t78)-t38*t79*t86-t40*t79)-t3 586 5 8*t80*t86-t40*t80)-t38*t81*t86-t40*t81)-t38*t82*t86-t40*t 587 6 82)-t38*t83*t86-t40*t83)+1.0d+0*t1*t36*(t38*t40*(t38*t40* 588 7 (t38*t40*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(t38*t40*(t3 589 8 8*t40*(t38*t40*(-t38*t41*t86-t40*t41)-t38*t42*t86-t40*t42 590 9 )-t38*t43*t86-t40*t43)-t38*t44*t86-t40*t44)-t38*t45*t86-t 591 : 40*t45)-t38*t46*t86-t40*t46)-t38*t47*t86-t40*t47)-t38*t48 592 ; *t86-t40*t48)-t38*t49*t86-t40*t49)-t38*t50*t86-t40*t50)-t 593 < 38*t51*t86-t40*t51))*wght 594 fnc(iq) = 1.0d+0*(3.109069086965489d-2*t1*t54*t72*t84+1.0d+0 595 1 *t1*t36*t52)*wght+fnc(iq) 596 Amat(iq,D1_RA) = 1.0d+0*(t87+9.327207260896466d-2*t1*t117*t5 597 1 8*t72*t84+3.109069086965489d-2*t1*t114*t54*(-2.7242157771 598 2 351844d-1*t117*t55*t57*t60*t65*t70+1.3621078885675922d-1* 599 3 (t125+t122+t121)*t55*t57*t59*t70-1.3621078885675922d-1*t1 600 4 26*t55*t57*t59*t65*(-7.421351600392256d-2*t117*t128*t67*t 601 5 68-3.710675800196128d-2*t124*t129*t61*t66*t67+t127+t125+t 602 6 122+t121)+t120)*t84+1.0d+0*t1*t111*t52+t130+t113+t112)*wg 603 7 ht+Amat(iq,D1_RA) 604 Amat(iq,D1_RB) = 1.0d+0*(t87+9.327207260896466d-2*t1*t134*t5 605 1 8*t72*t84+3.109069086965489d-2*t1*t114*t54*(-2.7242157771 606 2 351844d-1*t134*t55*t57*t60*t65*t70+1.3621078885675922d-1* 607 3 (t137+t135+t122)*t55*t57*t59*t70-1.3621078885675922d-1*t1 608 4 26*t55*t57*t59*t65*(-7.421351600392256d-2*t128*t134*t67*t 609 5 68-3.710675800196128d-2*t129*t136*t61*t66*t67+t137+t135+t 610 6 127+t122)+t120)*t84+1.0d+0*t1*t133*t52+t130+t113+t112)*wg 611 7 ht+Amat(iq,D1_RB) 612 Cmat(iq,D1_GAA) = t139+Cmat(iq,D1_GAA) 613 Cmat(iq,D1_GAB) = 3.109069086965489d-2*t1*t114*t54*(3.710675 614 1 800196128d-2*t138*t55*t63*t66*t70+2.7242157771351844d-1*t 615 2 57*t59*t65*t70-1.3621078885675922d-1*t126*t55*t57*t59*t65 616 3 *(7.421351600392256d-2*t138*t55*t66*t68+2.724215777135184 617 4 4d-1*t57*t59*t63))*t84*wght+Cmat(iq,D1_GAB) 618 Cmat(iq,D1_GBB) = t139+Cmat(iq,D1_GBB) 619 Mmat(iq,D1_TA) = t140+Mmat(iq,D1_TA) 620 Mmat(iq,D1_TB) = t140+Mmat(iq,D1_TB) 621 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 622 t1 = rhoa**3.333333333333333d-1 623 t2 = t1**5.0d-1 624 t3 = 1/t2 625 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 626 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 627 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 628 t7 = 1/t6 629 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 630 t9 = log(t8) 631 t10 = 1/t1 632 t11 = 1.2746961887000874d-1*t10+1.0d+0 633 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 634 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 635 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 636 t15 = 1/t14 637 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 638 t17 = log(t16) 639 t18 = 1.325688999052018d-1*t10+1.0d+0 640 t19 = 9.999999999999991d-1*(6.21814d-2*t17*t18-3.10907d-2*t1 641 1 1*t9)-6.21814d-2*t17*t18 642 t20 = 2.871234000188191d+0*rhoa**1.6666666666666669d+0 643 t21 = -taub-taua+t20 644 t22 = taub+taua+t20 645 t23 = 1/t22 646 t24 = param(12) 647 t25 = t21*t23*t24+param(11) 648 t26 = t21*t23*t25+param(10) 649 t27 = t21*t23*t26+param(9) 650 t28 = t21*t23*t27+param(8) 651 t29 = t21*t23*t28+param(7) 652 t30 = t21*t23*t29+param(6) 653 t31 = t21*t23*t30+param(5) 654 t32 = t21*t23*t31+param(4) 655 t33 = t21*t23*t32+param(3) 656 t34 = t21*t23*t33+param(2) 657 t35 = t21*t23*t34+param(1) 658 t36 = rhoa**1.1666666666666667d+0 659 t37 = 1/t36**2.0d+0 660 t38 = exp(-6.432793688582967d+1*t19) 661 t39 = t38-1.0d+0 662 t40 = 1/t39 663 t41 = 2.1622114952063792d-1*gammaaa*t37*t40 664 t42 = t41+1.0d+0 665 t43 = (gammaaa*t37)**2.0d+0 666 t44 = 1/t39**2.0d+0 667 t45 = 4.675158550002606d-2*t43*t44+t41+1.0d+0 668 t46 = 1/t45 669 t47 = 2.1622114952063792d-1*gammaaa*t37*t42*t46+1.0d+0 670 t48 = log(t47) 671 t49 = param(24) 672 t50 = t21*t23*t49+param(23) 673 t51 = t21*t23*t50+param(22) 674 t52 = t21*t23*t51+param(21) 675 t53 = t21*t23*t52+param(20) 676 t54 = t21*t23*t53+param(19) 677 t55 = t21*t23*t54+param(18) 678 t56 = t21*t23*t55+param(17) 679 t57 = t21*t23*t56+param(16) 680 t58 = t21*t23*t57+param(15) 681 t59 = t21*t23*t58+param(14) 682 t60 = t21*t23*t59+param(13) 683 t61 = rhoa**6.666666666666666d-1 684 t62 = 1/t22**2 685 t63 = 1/rhoa**1.3333333333333333d+0 686 t64 = 1/rhoa**1.3333333333333336d+0 687 t65 = 1/t2**3 688 t66 = 1/rhoa**6.666666666666667d-1 689 t67 = 1/t16 690 t68 = 2.11607075208357d-1*t15*t3*t66-1.269642451250142d+0*t2 691 1 *(7.876233178997433d-1*t3*(-1.3127055298329054d-1*t12*t65 692 2 *t66-3.169132786263567d-3*t64)-1.3127055298329054d-1*t13* 693 3 t65*t66)/t14**2 694 t69 = 9.999999999999991d-1*(1.3210398931339265d-3*t63*t9-3.1 695 1 0907d-2*t11*(2.11607075208357d-1*t3*t66*t7-1.269642451250 696 2 142d+0*t2*(7.876233178997433d-1*t3*(-1.3127055298329054d- 697 3 1*t4*t65*t66-2.0096226153166658d-3*t64)-1.312705529832905 698 4 4d-1*t5*t65*t66)/t6**2)/t8+6.21814d-2*t18*t67*t68-2.74777 699 5 3264188438d-3*t17*t63)-6.21814d-2*t18*t67*t68+2.747773264 700 6 188438d-3*t17*t63 701 t70 = 1/t47 702 t71 = rhoa**1.6666666666666674d-1 703 t72 = 1/t36**3.0d+0 704 t73 = -5.045160155481552d-1*gammaaa*t40*t71*t72 705 t74 = 1.3909060459745137d+1*gammaaa*t37*t38*t69/t39**2 706 t75 = 1/t45**2 707 t76 = 1/t36**4.0d+0 708 t77 = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*(t21*t23*(t21*t 709 1 23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23* 710 2 (t21*t23*(t21*t23*(-t21*t49*t62-t23*t49)-t21*t50*t62-t23* 711 3 t50)-t21*t51*t62-t23*t51)-t21*t52*t62-t23*t52)-t21*t53*t6 712 4 2-t23*t53)-t21*t54*t62-t23*t54)-t21*t55*t62-t23*t55)-t21* 713 5 t56*t62-t23*t56)-t21*t57*t62-t23*t57)-t21*t58*t62-t23*t58 714 6 )-t21*t59*t62-t23*t59)+1.0d+0*rhoa*t19*(t21*t23*(t21*t23* 715 7 (t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t2 716 8 1*t23*(t21*t23*(-t21*t24*t62-t23*t24)-t21*t25*t62-t23*t25 717 9 )-t21*t26*t62-t23*t26)-t21*t27*t62-t23*t27)-t21*t28*t62-t 718 : 23*t28)-t21*t29*t62-t23*t29)-t21*t30*t62-t23*t30)-t21*t31 719 ; *t62-t23*t31)-t21*t32*t62-t23*t32)-t21*t33*t62-t23*t33)-t 720 < 21*t34*t62-t23*t34))*wght 721 fnc(iq) = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*t60+1.0d+0* 722 1 rhoa*t19*t35)*wght+fnc(iq) 723 Amat(iq,D1_RA) = 1.0d+0*(1.5545345434827443d-2*rhoa*t60*t70* 724 1 (-2.1622114952063792d-1*gammaaa*t37*t42*(t74+t73-2.181740 725 2 656667883d-1*gammaaa**2*t44*t71/t36**5.0d+0+6.01486608271 726 3 6293d+0*t38*t43*t69/t39**3.0d+0)*t75+2.1622114952063792d- 727 4 1*gammaaa*t37*t46*(t74+t73)-5.045160155481552d-1*gammaaa* 728 5 t42*t46*t71*t72)+1.0d+0*rhoa*t35*t69+1.5545345434827443d- 729 6 2*rhoa*t48*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*( 730 7 t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(4.7853900003 731 8 13652d+0*t23*t49*t61-4.785390000313652d+0*t21*t49*t61*t62 732 9 )-4.785390000313652d+0*t21*t50*t61*t62+4.785390000313652d 733 : +0*t23*t50*t61)-4.785390000313652d+0*t21*t51*t61*t62+4.78 734 ; 5390000313652d+0*t23*t51*t61)-4.785390000313652d+0*t21*t5 735 < 2*t61*t62+4.785390000313652d+0*t23*t52*t61)-4.78539000031 736 = 3652d+0*t21*t53*t61*t62+4.785390000313652d+0*t23*t53*t61) 737 > -4.785390000313652d+0*t21*t54*t61*t62+4.785390000313652d+ 738 ? 0*t23*t54*t61)-4.785390000313652d+0*t21*t55*t61*t62+4.785 739 @ 390000313652d+0*t23*t55*t61)-4.785390000313652d+0*t21*t56 740 1 *t61*t62+4.785390000313652d+0*t23*t56*t61)-4.785390000313 741 2 652d+0*t21*t57*t61*t62+4.785390000313652d+0*t23*t57*t61)- 742 3 4.785390000313652d+0*t21*t58*t61*t62+4.785390000313652d+0 743 4 *t23*t58*t61)-4.785390000313652d+0*t21*t59*t61*t62+4.7853 744 5 90000313652d+0*t23*t59*t61)+1.0d+0*rhoa*t19*(t21*t23*(t21 745 6 *t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t2 746 7 3*(t21*t23*(t21*t23*(4.785390000313652d+0*t23*t24*t61-4.7 747 8 85390000313652d+0*t21*t24*t61*t62)-4.785390000313652d+0*t 748 9 21*t25*t61*t62+4.785390000313652d+0*t23*t25*t61)-4.785390 749 : 000313652d+0*t21*t26*t61*t62+4.785390000313652d+0*t23*t26 750 ; *t61)-4.785390000313652d+0*t21*t27*t61*t62+4.785390000313 751 < 652d+0*t23*t27*t61)-4.785390000313652d+0*t21*t28*t61*t62+ 752 = 4.785390000313652d+0*t23*t28*t61)-4.785390000313652d+0*t2 753 > 1*t29*t61*t62+4.785390000313652d+0*t23*t29*t61)-4.7853900 754 ? 00313652d+0*t21*t30*t61*t62+4.785390000313652d+0*t23*t30* 755 @ t61)-4.785390000313652d+0*t21*t31*t61*t62+4.7853900003136 756 1 52d+0*t23*t31*t61)-4.785390000313652d+0*t21*t32*t61*t62+4 757 2 .785390000313652d+0*t23*t32*t61)-4.785390000313652d+0*t21 758 3 *t33*t61*t62+4.785390000313652d+0*t23*t33*t61)-4.78539000 759 4 0313652d+0*t21*t34*t61*t62+4.785390000313652d+0*t23*t34*t 760 5 61)+1.5545345434827443d-2*t48*t60+1.0d+0*t19*t35)*wght+Am 761 6 at(iq,D1_RA) 762 Cmat(iq,D1_GAA) = 1.5545345434827443d-2*rhoa*t60*t70*(-2.162 763 1 2114952063792d-1*gammaaa*t37*t42*t75*(9.350317100005212d- 764 2 2*gammaaa*t44*t76+2.1622114952063792d-1*t37*t40)+4.675158 765 3 550002606d-2*gammaaa*t40*t46*t76+2.1622114952063792d-1*t3 766 4 7*t42*t46)*wght+Cmat(iq,D1_GAA) 767 Mmat(iq,D1_TA) = t77+Mmat(iq,D1_TA) 768 Mmat(iq,D1_TB) = t77+Mmat(iq,D1_TB) 769 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 770 t1 = rhob**3.333333333333333d-1 771 t2 = t1**5.0d-1 772 t3 = 1/t2 773 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 774 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 775 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 776 t7 = 1/t6 777 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 778 t9 = log(t8) 779 t10 = 1/t1 780 t11 = 1.2746961887000874d-1*t10+1.0d+0 781 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 782 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 783 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 784 t15 = 1/t14 785 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 786 t17 = log(t16) 787 t18 = 1.325688999052018d-1*t10+1.0d+0 788 t19 = 9.999999999999991d-1*(6.21814d-2*t17*t18-3.10907d-2*t1 789 1 1*t9)-6.21814d-2*t17*t18 790 t20 = 2.871234000188191d+0*rhob**1.6666666666666669d+0 791 t21 = -taub-taua+t20 792 t22 = taub+taua+t20 793 t23 = 1/t22 794 t24 = param(12) 795 t25 = t21*t23*t24+param(11) 796 t26 = t21*t23*t25+param(10) 797 t27 = t21*t23*t26+param(9) 798 t28 = t21*t23*t27+param(8) 799 t29 = t21*t23*t28+param(7) 800 t30 = t21*t23*t29+param(6) 801 t31 = t21*t23*t30+param(5) 802 t32 = t21*t23*t31+param(4) 803 t33 = t21*t23*t32+param(3) 804 t34 = t21*t23*t33+param(2) 805 t35 = t21*t23*t34+param(1) 806 t36 = rhob**1.1666666666666667d+0 807 t37 = 1/t36**2.0d+0 808 t38 = exp(-6.432793688582967d+1*t19) 809 t39 = t38-1.0d+0 810 t40 = 1/t39 811 t41 = 2.1622114952063792d-1*gammabb*t37*t40 812 t42 = t41+1.0d+0 813 t43 = (gammabb*t37)**2.0d+0 814 t44 = 1/t39**2.0d+0 815 t45 = 4.675158550002606d-2*t43*t44+t41+1.0d+0 816 t46 = 1/t45 817 t47 = 2.1622114952063792d-1*gammabb*t37*t42*t46+1.0d+0 818 t48 = log(t47) 819 t49 = param(24) 820 t50 = t21*t23*t49+param(23) 821 t51 = t21*t23*t50+param(22) 822 t52 = t21*t23*t51+param(21) 823 t53 = t21*t23*t52+param(20) 824 t54 = t21*t23*t53+param(19) 825 t55 = t21*t23*t54+param(18) 826 t56 = t21*t23*t55+param(17) 827 t57 = t21*t23*t56+param(16) 828 t58 = t21*t23*t57+param(15) 829 t59 = t21*t23*t58+param(14) 830 t60 = t21*t23*t59+param(13) 831 t61 = rhob**6.666666666666666d-1 832 t62 = 1/t22**2 833 t63 = 1/rhob**1.3333333333333333d+0 834 t64 = 1/rhob**1.3333333333333336d+0 835 t65 = 1/t2**3 836 t66 = 1/rhob**6.666666666666667d-1 837 t67 = 1/t16 838 t68 = 2.11607075208357d-1*t15*t3*t66-1.269642451250142d+0*t2 839 1 *(7.876233178997433d-1*t3*(-1.3127055298329054d-1*t12*t65 840 2 *t66-3.169132786263567d-3*t64)-1.3127055298329054d-1*t13* 841 3 t65*t66)/t14**2 842 t69 = 9.999999999999991d-1*(1.3210398931339265d-3*t63*t9-3.1 843 1 0907d-2*t11*(2.11607075208357d-1*t3*t66*t7-1.269642451250 844 2 142d+0*t2*(7.876233178997433d-1*t3*(-1.3127055298329054d- 845 3 1*t4*t65*t66-2.0096226153166658d-3*t64)-1.312705529832905 846 4 4d-1*t5*t65*t66)/t6**2)/t8+6.21814d-2*t18*t67*t68-2.74777 847 5 3264188438d-3*t17*t63)-6.21814d-2*t18*t67*t68+2.747773264 848 6 188438d-3*t17*t63 849 t70 = 1/t47 850 t71 = rhob**1.6666666666666674d-1 851 t72 = 1/t36**3.0d+0 852 t73 = -5.045160155481552d-1*gammabb*t40*t71*t72 853 t74 = 1.3909060459745137d+1*gammabb*t37*t38*t69/t39**2 854 t75 = 1/t45**2 855 t76 = 1/t36**4.0d+0 856 t77 = 1.0d+0*(1.5545345434827443d-2*rhob*t48*(t21*t23*(t21*t 857 1 23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23* 858 2 (t21*t23*(t21*t23*(-t21*t49*t62-t23*t49)-t21*t50*t62-t23* 859 3 t50)-t21*t51*t62-t23*t51)-t21*t52*t62-t23*t52)-t21*t53*t6 860 4 2-t23*t53)-t21*t54*t62-t23*t54)-t21*t55*t62-t23*t55)-t21* 861 5 t56*t62-t23*t56)-t21*t57*t62-t23*t57)-t21*t58*t62-t23*t58 862 6 )-t21*t59*t62-t23*t59)+1.0d+0*rhob*t19*(t21*t23*(t21*t23* 863 7 (t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t2 864 8 1*t23*(t21*t23*(-t21*t24*t62-t23*t24)-t21*t25*t62-t23*t25 865 9 )-t21*t26*t62-t23*t26)-t21*t27*t62-t23*t27)-t21*t28*t62-t 866 : 23*t28)-t21*t29*t62-t23*t29)-t21*t30*t62-t23*t30)-t21*t31 867 ; *t62-t23*t31)-t21*t32*t62-t23*t32)-t21*t33*t62-t23*t33)-t 868 < 21*t34*t62-t23*t34))*wght 869 fnc(iq) = 1.0d+0*(1.5545345434827443d-2*rhob*t48*t60+1.0d+0* 870 1 rhob*t19*t35)*wght+fnc(iq) 871 Amat(iq,D1_RB) = 1.0d+0*(1.5545345434827443d-2*rhob*t60*t70* 872 1 (-2.1622114952063792d-1*gammabb*t37*t42*(t74+t73-2.181740 873 2 656667883d-1*gammabb**2*t44*t71/t36**5.0d+0+6.01486608271 874 3 6293d+0*t38*t43*t69/t39**3.0d+0)*t75+2.1622114952063792d- 875 4 1*gammabb*t37*t46*(t74+t73)-5.045160155481552d-1*gammabb* 876 5 t42*t46*t71*t72)+1.0d+0*rhob*t35*t69+1.5545345434827443d- 877 6 2*rhob*t48*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*( 878 7 t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(4.7853900003 879 8 13652d+0*t23*t49*t61-4.785390000313652d+0*t21*t49*t61*t62 880 9 )-4.785390000313652d+0*t21*t50*t61*t62+4.785390000313652d 881 : +0*t23*t50*t61)-4.785390000313652d+0*t21*t51*t61*t62+4.78 882 ; 5390000313652d+0*t23*t51*t61)-4.785390000313652d+0*t21*t5 883 < 2*t61*t62+4.785390000313652d+0*t23*t52*t61)-4.78539000031 884 = 3652d+0*t21*t53*t61*t62+4.785390000313652d+0*t23*t53*t61) 885 > -4.785390000313652d+0*t21*t54*t61*t62+4.785390000313652d+ 886 ? 0*t23*t54*t61)-4.785390000313652d+0*t21*t55*t61*t62+4.785 887 @ 390000313652d+0*t23*t55*t61)-4.785390000313652d+0*t21*t56 888 1 *t61*t62+4.785390000313652d+0*t23*t56*t61)-4.785390000313 889 2 652d+0*t21*t57*t61*t62+4.785390000313652d+0*t23*t57*t61)- 890 3 4.785390000313652d+0*t21*t58*t61*t62+4.785390000313652d+0 891 4 *t23*t58*t61)-4.785390000313652d+0*t21*t59*t61*t62+4.7853 892 5 90000313652d+0*t23*t59*t61)+1.0d+0*rhob*t19*(t21*t23*(t21 893 6 *t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t2 894 7 3*(t21*t23*(t21*t23*(4.785390000313652d+0*t23*t24*t61-4.7 895 8 85390000313652d+0*t21*t24*t61*t62)-4.785390000313652d+0*t 896 9 21*t25*t61*t62+4.785390000313652d+0*t23*t25*t61)-4.785390 897 : 000313652d+0*t21*t26*t61*t62+4.785390000313652d+0*t23*t26 898 ; *t61)-4.785390000313652d+0*t21*t27*t61*t62+4.785390000313 899 < 652d+0*t23*t27*t61)-4.785390000313652d+0*t21*t28*t61*t62+ 900 = 4.785390000313652d+0*t23*t28*t61)-4.785390000313652d+0*t2 901 > 1*t29*t61*t62+4.785390000313652d+0*t23*t29*t61)-4.7853900 902 ? 00313652d+0*t21*t30*t61*t62+4.785390000313652d+0*t23*t30* 903 @ t61)-4.785390000313652d+0*t21*t31*t61*t62+4.7853900003136 904 1 52d+0*t23*t31*t61)-4.785390000313652d+0*t21*t32*t61*t62+4 905 2 .785390000313652d+0*t23*t32*t61)-4.785390000313652d+0*t21 906 3 *t33*t61*t62+4.785390000313652d+0*t23*t33*t61)-4.78539000 907 4 0313652d+0*t21*t34*t61*t62+4.785390000313652d+0*t23*t34*t 908 5 61)+1.5545345434827443d-2*t48*t60+1.0d+0*t19*t35)*wght+Am 909 6 at(iq,D1_RB) 910 Cmat(iq,D1_GBB) = 1.5545345434827443d-2*rhob*t60*t70*(-2.162 911 1 2114952063792d-1*gammabb*t37*t42*t75*(9.350317100005212d- 912 2 2*gammabb*t44*t76+2.1622114952063792d-1*t37*t40)+4.675158 913 3 550002606d-2*gammabb*t40*t46*t76+2.1622114952063792d-1*t3 914 4 7*t42*t46)*wght+Cmat(iq,D1_GBB) 915 Mmat(iq,D1_TB) = t77+Mmat(iq,D1_TB) 916 Mmat(iq,D1_TA) = t77+Mmat(iq,D1_TA) 917 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 918 endif ! ipol.eq.1 919 enddo ! iq 920 end 921C> 922C> \brief Evaluate the nwxcm_c_m11 functional [1] 923C> 924C> \f{eqnarray*}{ 925C> {\it t_1} &=& \rho_\beta+\rho_\alpha\\\\ 926C> {\it t_2} &=& {\it t_1}^{0.3333333333333333}\\\\ 927C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 928C> {\it t_4} &=& 0.1325688999052018\,{\it t_3}+1.0\\\\ 929C> {\it t_5} &=& \sqrt{{\it t_2}}\\\\ 930C> {\it t_6} &=& {{1}\over{{\it t_5}}}\\\\ 931C> {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_5}} 932C> \over{0.7876233178997433\,{\it t_6}\,\left(0.7876233178997433 933C> \,{\it t_6}\,\left(0.02414199311453321\,{\it t_6} 934C> +0.10186556948\right)+0.22308199064\right)+0.47231125998}} 935C> +1.0\right)\\\\ 936C> {\it t_8} &=& \rho_\alpha-\rho_\beta\\\\ 937C> {\it t_9} &=& {{1}\over{{\it t_1}}}\\\\ 938C> {\it t_{10}} &=& 1.0-{\it t_8}\,{\it t_9}\\\\ 939C> {\it t_{11}} &=& {\it t_8}\,{\it t_9}+1.0\\\\ 940C> {\it t_{12}} &=& 0.06901399211255826\,{\it t_3}+1.0\\\\ 941C> {\it t_{13}} &=& \log \left({{1.269642451250142\,{ 942C> \it t_5}}\over{0.7876233178997433\,{\it t_6}\, 943C> \left(0.7876233178997433\,{\it t_6}\,\left(0.01321299881039884 944C> \,{\it t_6}+0.029729725188\right)+0.12236585478\right) 945C> +0.3497952466}}+1.0\right)\\\\ 946C> {\it t_{14}} &=& 0.5848223622634648\,\left(1.923661050931536 947C> \,{\it t_{11}}^{{{4}\over{3}}}+1.923661050931536\,{ 948C> \it t_{10}}^{{{4}\over{3}}}-3.847322101863072\right)\, 949C> \left({{{\it t_8}^4\,\left(1.709920934161365\,\left(0.0621814 950C> \,{\it t_4}\,{\it t_7}-0.0310907\,\left(0.1274696188700087 951C> \,{\it t_3}+1.0\right)\,\log \left({{1.269642451250142\,{ 952C> \it t_5}}\over{0.7876233178997433\,{\it t_6}\, 953C> \left(0.7876233178997433\,{\it t_6}\,\left(0.01530901310039024 954C> \,{\it t_6}+0.10465751434\right)+0.19269083139\right) 955C> +0.43896648423}}+1.0\right)\right)-0.0337738\,{\it t_{12}} 956C> \,{\it t_{13}}\right)}\over{{\it t_1}^4}}+0.0337738\,{ 957C> \it t_{12}}\,{\it t_{13}}\right)-0.0621814\,{\it t_4}\,{ 958C> \it t_7}\\\\ 959C> {\it t_{15}} &=& {\it param}\left(1\right)\\\\ 960C> {\it t_{16}} &=& 2.871234000188191\,{\it t_1}^{{{5}\over{3}}}\\\\ 961C> {\it t_{17}} &=& -\tau_\beta-\tau_\alpha+{\it t_{16}}\\\\ 962C> {\it t_{18}} &=& {{1}\over{\tau_\beta+\tau_\alpha+{ 963C> \it t_{16}}}}\\\\ 964C> {\it t_{19}} &=& {\it param}\left(2\right)\\\\ 965C> {\it t_{20}} &=& {\it param}\left(3\right)\\\\ 966C> {\it t_{21}} &=& {\it param}\left(4\right)\\\\ 967C> {\it t_{22}} &=& {\it param}\left(5\right)\\\\ 968C> {\it t_{23}} &=& {\it param}\left(6\right)\\\\ 969C> {\it t_{24}} &=& {\it param}\left(7\right)\\\\ 970C> {\it t_{25}} &=& {\it param}\left(8\right)\\\\ 971C> {\it t_{26}} &=& {\it param}\left(9\right)\\\\ 972C> {\it t_{27}} &=& {\it param}\left(10\right)\\\\ 973C> {\it t_{28}} &=& {\it param}\left(11\right)\\\\ 974C> {\it t_{29}} &=& {\it param}\left(12\right)\\\\ 975C> {\it t_{30}} &=& 0.5\,{\it t_{11}}^{{{2}\over{3}}}+0.5\,{ 976C> \it t_{10}}^{{{2}\over{3}}}\\\\ 977C> {\it t_{31}} &=& {\it t_{30}}^{3.0}\\\\ 978C> {\it t_{32}} &=& {{1}\over{\left({ 979C> \it t_1}^{1.166666666666667}\right)^{2.0}}}\\\\ 980C> {\it t_{33}} &=& {{1}\over{{\it t_{30}}^{2.0}}}\\\\ 981C> {\it t_{34}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 982C> +\sigma_{\alpha\alpha}\\\\ 983C> {\it t_{35}} &=& {{1}\over{e^{{{32.16396844291483\,{ 984C> \it t_{14}}}\over{{\it t_{31}}}}}}}-1.0\\\\ 985C> {\it t_{36}} &=& {{0.1362107888567592\,{\it t_{32}}\,{ 986C> \it t_{33}}\,{\it t_{34}}}\over{{\it t_{35}}}}\\\\ 987C> {\it t_{37}} &=& {\it param}\left(13\right)\\\\ 988C> {\it t_{38}} &=& {\it param}\left(14\right)\\\\ 989C> {\it t_{39}} &=& {\it param}\left(15\right)\\\\ 990C> {\it t_{40}} &=& {\it param}\left(16\right)\\\\ 991C> {\it t_{41}} &=& {\it param}\left(17\right)\\\\ 992C> {\it t_{42}} &=& {\it param}\left(18\right)\\\\ 993C> {\it t_{43}} &=& {\it param}\left(19\right)\\\\ 994C> {\it t_{44}} &=& {\it param}\left(20\right)\\\\ 995C> {\it t_{45}} &=& {\it param}\left(21\right)\\\\ 996C> {\it t_{46}} &=& {\it param}\left(22\right)\\\\ 997C> {\it t_{47}} &=& {\it param}\left(23\right)\\\\ 998C> {\it t_{48}} &=& {\it param}\left(24\right)\\\\ 999C> {\it t_{49}} &=& \rho_s^{0.3333333333333333}\\\\ 1000C> {\it t_{50}} &=& \sqrt{{\it t_{49}}}\\\\ 1001C> {\it t_{51}} &=& {{1}\over{{\it t_{50}}}}\\\\ 1002C> {\it t_{52}} &=& {{1}\over{{\it t_{49}}}}\\\\ 1003C> {\it t_{53}} &=& \log \left({{1.269642451250142\,{ 1004C> \it t_{50}}}\over{0.7876233178997433\,\left(0.7876233178997433 1005C> \,\left(0.02414199311453321\,{\it t_{51}}+0.10186556948\right) 1006C> \,{\it t_{51}}+0.22308199064\right)\,{\it t_{51}} 1007C> +0.47231125998}}+1.0\right)\\\\ 1008C> {\it t_{54}} &=& 0.1325688999052018\,{\it t_{52}}+1.0\\\\ 1009C> {\it t_{55}} &=& 0.9999999999999991\,\left(0.0621814\,{ 1010C> \it t_{53}}\,{\it t_{54}}-0.0310907\,\log 1011C> \left({{1.269642451250142\,{\it t_{50}}} 1012C> \over{0.7876233178997433\,\left(0.7876233178997433\, 1013C> \left(0.01530901310039024\,{\it t_{51}}+0.10465751434\right) 1014C> \,{\it t_{51}}+0.19269083139\right)\,{\it t_{51}} 1015C> +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{ 1016C> \it t_{52}}+1.0\right)\right)-0.0621814\,{\it t_{53}}\,{ 1017C> \it t_{54}}\\\\ 1018C> {\it t_{56}} &=& 2.871234000188191\,\rho_s^{{{5}\over{3}}}\\\\ 1019C> {\it t_{57}} &=& -\tau_{\bar s}-\tau_s+{\it t_{56}}\\\\ 1020C> {\it t_{58}} &=& {{1}\over{\tau_{\bar s}+\tau_s+{\it t_{56}}}}\\\\ 1021C> {\it t_{59}} &=& {{1}\over{ 1022C> \left(\rho_s^{1.166666666666667}\right)^{2.0}}}\\\\ 1023C> {\it t_{60}} &=& {{1}\over{e^{64.32793688582967\,{\it t_{55}}}}} 1024C> -1.0\\\\ 1025C> {\it t_{61}} &=& {{0.2162211495206379\,{\it t_{59}}\, 1026C> \sigma_{ss}}\over{{\it t_{60}}}}\\\\ 1027C> f &=& 1.0\,\left(0.03109069086965489\,{\it t_1}\,{\it t_{31}} 1028C> \,\log \left({{0.1362107888567592\,{\it t_{32}}\,{\it t_{33}} 1029C> \,{\it t_{34}}\,\left({\it t_{36}}+1.0\right)} 1030C> \over{{{0.01855337900098064\,\left({\it t_{32}}\,{ 1031C> \it t_{34}}\right)^{2.0}}\over{{\it t_{30}}^{4.0}\,{ 1032C> \it t_{35}}^{2.0}}}+{\it t_{36}}+1.0}}+1.0\right)\,\left({ 1033C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 1034C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 1035C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 1036C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 1037C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 1038C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 1039C> \it t_{48}}\,{\it t_{17}}\,{\it t_{18}}+{\it t_{47}}\right) 1040C> +{\it t_{46}}\right)+{\it t_{45}}\right)+{\it t_{44}}\right) 1041C> +{\it t_{43}}\right)+{\it t_{42}}\right)+{\it t_{41}}\right) 1042C> +{\it t_{40}}\right)+{\it t_{39}}\right)+{\it t_{38}}\right) 1043C> +{\it t_{37}}\right)+1.0\,{\it t_1}\,{\it t_{14}}\,\left({ 1044C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 1045C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 1046C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 1047C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 1048C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 1049C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 1050C> \it t_{29}}\,{\it t_{17}}\,{\it t_{18}}+{\it t_{28}}\right) 1051C> +{\it t_{27}}\right)+{\it t_{26}}\right)+{\it t_{25}}\right) 1052C> +{\it t_{24}}\right)+{\it t_{23}}\right)+{\it t_{22}}\right) 1053C> +{\it t_{21}}\right)+{\it t_{20}}\right)+{\it t_{19}}\right) 1054C> +{\it t_{15}}\right)\right)\\\\ 1055C> g &=& 0\\\\ 1056C> G &=& 1.0\,\left(0.01554534543482744\,\rho_s\,\log 1057C> \left({{0.2162211495206379\,{\it t_{59}}\,\sigma_{ss}\, 1058C> \left({\it t_{61}}+1.0\right)}\over{{{0.04675158550002606 1059C> \,\left({\it t_{59}}\,\sigma_{ss}\right)^{2.0}}\over{{ 1060C> \it t_{60}}^{2.0}}}+{\it t_{61}}+1.0}}+1.0\right)\,\left({ 1061C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 1062C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 1063C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 1064C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 1065C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 1066C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 1067C> \it t_{48}}\,{\it t_{57}}\,{\it t_{58}}+{\it t_{47}}\right) 1068C> +{\it t_{46}}\right)+{\it t_{45}}\right)+{\it t_{44}}\right) 1069C> +{\it t_{43}}\right)+{\it t_{42}}\right)+{\it t_{41}}\right) 1070C> +{\it t_{40}}\right)+{\it t_{39}}\right)+{\it t_{38}}\right) 1071C> +{\it t_{37}}\right)+1.0\,{\it t_{55}}\,\rho_s\,\left({ 1072C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 1073C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 1074C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 1075C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 1076C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 1077C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 1078C> \it t_{29}}\,{\it t_{57}}\,{\it t_{58}}+{\it t_{28}}\right) 1079C> +{\it t_{27}}\right)+{\it t_{26}}\right)+{\it t_{25}}\right) 1080C> +{\it t_{24}}\right)+{\it t_{23}}\right)+{\it t_{22}}\right) 1081C> +{\it t_{21}}\right)+{\it t_{20}}\right)+{\it t_{19}}\right) 1082C> +{\it t_{15}}\right)\right)\\\\ 1083C> \f} 1084C> 1085C> Code generated with Maxima 5.34.0 [2] 1086C> driven by autoxc [3]. 1087C> 1088C> ### References ### 1089C> 1090C> [1] R Peverati, DG Truhlar, J.Phys.Chem.Lett. 2, 2810 (2011) , DOI: 1091C> <a href="https://doi.org/10.1021/jz201170d "> 1092C> 10.1021/jz201170d </a> 1093C> 1094C> [2] Maxima, a computer algebra system, 1095C> <a href="http://maxima.sourceforge.net/"> 1096C> http://maxima.sourceforge.net/</a> 1097C> 1098C> [3] autoxc, revision 27097 2015-05-08 1099C> 1100 subroutine nwxcm_c_m11_d2(param,tol_rho,ipol,nq,wght, 1101 +rho,rgamma,tau,fnc,Amat,Amat2,Cmat,Cmat2,Mmat,Mmat2) 1102c $Id: $ 1103#ifdef NWXC_QUAD_PREC 1104 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 1105 integer, parameter :: rk=selected_real_kind(30) 1106#else 1107 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 1108 integer, parameter :: rk=selected_real_kind(15) 1109#endif 1110#include "nwxc_param.fh" 1111 double precision param(*) !< [Input] Parameters of functional 1112 double precision tol_rho !< [Input] The lower limit on the density 1113 integer ipol !< [Input] The number of spin channels 1114 integer nq !< [Input] The number of points 1115 double precision wght !< [Input] The weight of the functional 1116 double precision rho(nq,NCOL_RHO) !< [Input] The density 1117 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 1118 !< gradients 1119 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 1120 double precision fnc(nq) !< [Output] The value of the functional 1121c 1122c Sampling Matrices for the XC Kernel 1123c 1124 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 1125 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 1126 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 1127c 1128c Sampling Matrices for the XC Kernel 1129c 1130 double precision Amat2(nq,NCOL_AMAT2) !< [Output] The 2nd derivative wrt rho 1131 double precision Cmat2(nq,NCOL_CMAT2) !< [Output] The 2nd derivative wrt rgamma 1132 !< and possibly rho 1133 double precision Mmat2(nq,NCOL_MMAT2) !< [Output] The 2nd derivative wrt tau 1134 !< and possibly rho 1135 integer iq 1136 double precision tmp 1137 double precision rhoa,rhob 1138 double precision gammaaa,gammaab,gammabb 1139 double precision taua,taub 1140 double precision nwxcm_heaviside 1141 external nwxcm_heaviside 1142!DIR$ NOVECTOR 1143 do iq = 1, nq 1144 if (ipol.eq.1) then 1145 rhoa = 0.5d0*rho(iq,R_T) 1146 gammaaa = 0.25d0*rgamma(iq,G_TT) 1147 taua = 0.5d0*tau(iq,T_T) 1148 if (rhoa.gt.tol_rho) then 1149 t1 = rhoa**3.333333333333333d-1 1150 t2 = t1**5.0d-1 1151 t3 = 1/t2 1152 t4 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3*( 1153 1 7.016926042943223d-1*(2.150807071909054d-2*t3+1.018655694 1154 2 8d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0) 1155 t5 = 1/t1 1156 t6 = 1.0522000558389215d-1*t5+1.0d+0 1157 t7 = 9.115599744691192d+0*rhoa**1.6666666666666669d+0 1158 t8 = t7-2*taua 1159 t9 = 2*taua+t7 1160 t10 = 1/t9 1161 t11 = param(12) 1162 t12 = t10*t11*t8+param(11) 1163 t13 = t10*t12*t8+param(10) 1164 t14 = t10*t13*t8+param(9) 1165 t15 = t10*t14*t8+param(8) 1166 t16 = t10*t15*t8+param(7) 1167 t17 = t10*t16*t8+param(6) 1168 t18 = t10*t17*t8+param(5) 1169 t19 = t10*t18*t8+param(4) 1170 t20 = t10*t19*t8+param(3) 1171 t21 = t10*t20*t8+param(2) 1172 t22 = t10*t21*t8+param(1) 1173 t23 = rhoa**1.1666666666666667d+0 1174 t24 = 1/t23**2.0d+0 1175 t25 = exp(2.0000005873362642d+0*t4*t6)-1.0d+0 1176 t26 = 1.0811057476031892d-1*gammaaa*t24/t25 1177 t27 = (gammaaa*t24)**2.0d+0 1178 t28 = param(14) 1179 t29 = param(24) 1180 t30 = t10*t29*t8+param(23) 1181 t31 = t10*t30*t8+param(22) 1182 t32 = t10*t31*t8+param(21) 1183 t33 = t10*t32*t8+param(20) 1184 t34 = t10*t33*t8+param(19) 1185 t35 = t10*t34*t8+param(18) 1186 t36 = t10*t35*t8+param(17) 1187 t37 = t10*t36*t8+param(16) 1188 t38 = t10*t37*t8+param(15) 1189 t39 = t10*t38*t8+t28 1190 t40 = t10*t39*t8+param(13) 1191 t41 = 2.1508070719090538d-2*t3+1.0186556948d-1 1192 t42 = 7.016926042943222d-1*t3*t41+2.2308199064d-1 1193 t43 = 7.016926042943222d-1*t3*t42+4.7231125998d-1 1194 t44 = 1/t43 1195 t45 = 1.425125466450768d+0*t2*t44+1.0d+0 1196 t46 = log(t45) 1197 t47 = 1.0522000558389213d-1*t5+1.0d+0 1198 t48 = 1.5874010519681994d+0 1199 t49 = rhoa**6.666666666666666d-1 1200 t50 = 1/t9**2 1201 t51 = 4.785390000313652d+0*t10*t11*t48*t49-4.785390000313652 1202 1 d+0*t11*t48*t49*t50*t8 1203 t52 = t10*t51*t8-4.785390000313652d+0*t12*t48*t49*t50*t8+4.7 1204 1 85390000313652d+0*t10*t12*t48*t49 1205 t53 = t10*t52*t8-4.785390000313652d+0*t13*t48*t49*t50*t8+4.7 1206 1 85390000313652d+0*t10*t13*t48*t49 1207 t54 = t10*t53*t8-4.785390000313652d+0*t14*t48*t49*t50*t8+4.7 1208 1 85390000313652d+0*t10*t14*t48*t49 1209 t55 = t10*t54*t8-4.785390000313652d+0*t15*t48*t49*t50*t8+4.7 1210 1 85390000313652d+0*t10*t15*t48*t49 1211 t56 = t10*t55*t8-4.785390000313652d+0*t16*t48*t49*t50*t8+4.7 1212 1 85390000313652d+0*t10*t16*t48*t49 1213 t57 = t10*t56*t8-4.785390000313652d+0*t17*t48*t49*t50*t8+4.7 1214 1 85390000313652d+0*t10*t17*t48*t49 1215 t58 = t10*t57*t8-4.785390000313652d+0*t18*t48*t49*t50*t8+4.7 1216 1 85390000313652d+0*t10*t18*t48*t49 1217 t59 = t10*t58*t8-4.785390000313652d+0*t19*t48*t49*t50*t8+4.7 1218 1 85390000313652d+0*t10*t19*t48*t49 1219 t60 = t10*t59*t8-4.785390000313652d+0*t20*t48*t49*t50*t8+4.7 1220 1 85390000313652d+0*t10*t20*t48*t49 1221 t61 = t10*t60*t8-4.785390000313652d+0*t21*t48*t49*t50*t8+4.7 1222 1 85390000313652d+0*t10*t21*t48*t49 1223 t62 = 1/rhoa**1.3333333333333333d+0 1224 t63 = 1/t45 1225 t64 = 1/t43**2 1226 t65 = 1/rhoa**1.3333333333333336d+0 1227 t66 = 1/t2**3 1228 t67 = 1/rhoa**6.666666666666667d-1 1229 t68 = -5.847438369119352d-2*t41*t66*t67-1.2576711796854242d- 1230 1 3*t65 1231 t69 = 7.016926042943222d-1*t3*t68-5.847438369119352d-2*t42*t 1232 1 66*t67 1233 t70 = 1.1876045553756398d-1*t3*t44*t67-1.425125466450768d+0* 1234 1 t2*t64*t69 1235 t71 = 1.090454542535705d-3*t46*t62-6.21814d-2*t47*t63*t70 1236 t72 = exp(2.0000005873362642d+0*t46*t47) 1237 t73 = t72-1.0d+0 1238 t74 = 1/t73 1239 t75 = 1.0811057476031893d-1*gammaaa*t24*t74 1240 t76 = t75+1.0d+0 1241 t77 = 1/t73**2.0d+0 1242 t78 = 1.168789637500651d-2*t27*t77+t75+1.0d+0 1243 t79 = 1/t78 1244 t80 = 1.0811057476031893d-1*gammaaa*t24*t76*t79+1.0d+0 1245 t81 = log(t80) 1246 t82 = 4.785390000313652d+0*t10*t29*t48*t49-4.785390000313652 1247 1 d+0*t29*t48*t49*t50*t8 1248 t83 = t10*t8*t82-4.785390000313652d+0*t30*t48*t49*t50*t8+4.7 1249 1 85390000313652d+0*t10*t30*t48*t49 1250 t84 = t10*t8*t83-4.785390000313652d+0*t31*t48*t49*t50*t8+4.7 1251 1 85390000313652d+0*t10*t31*t48*t49 1252 t85 = t10*t8*t84-4.785390000313652d+0*t32*t48*t49*t50*t8+4.7 1253 1 85390000313652d+0*t10*t32*t48*t49 1254 t86 = t10*t8*t85-4.785390000313652d+0*t33*t48*t49*t50*t8+4.7 1255 1 85390000313652d+0*t10*t33*t48*t49 1256 t87 = t10*t8*t86-4.785390000313652d+0*t34*t48*t49*t50*t8+4.7 1257 1 85390000313652d+0*t10*t34*t48*t49 1258 t88 = t10*t8*t87-4.785390000313652d+0*t35*t48*t49*t50*t8+4.7 1259 1 85390000313652d+0*t10*t35*t48*t49 1260 t89 = t10*t8*t88-4.785390000313652d+0*t36*t48*t49*t50*t8+4.7 1261 1 85390000313652d+0*t10*t36*t48*t49 1262 t90 = t10*t8*t89-4.785390000313652d+0*t37*t48*t49*t50*t8+4.7 1263 1 85390000313652d+0*t10*t37*t48*t49 1264 t91 = t10*t8*t90-4.785390000313652d+0*t38*t48*t49*t50*t8+4.7 1265 1 85390000313652d+0*t10*t38*t48*t49 1266 t92 = t10*t8*t91-4.785390000313652d+0*t39*t48*t49*t50*t8+4.7 1267 1 85390000313652d+0*t10*t39*t48*t49 1268 t93 = 1/t80 1269 t94 = rhoa**1.6666666666666674d-1 1270 t95 = 1/t23**3.0d+0 1271 t96 = -1.2612900388703877d-1*gammaaa*t74*t94*t95 1272 t97 = 1/t73**2 1273 t98 = 3.4772651149362827d+0*gammaaa*t24*t71*t72*t97 1274 t99 = t98+t96 1275 t100 = 1/t78**2 1276 t101 = gammaaa**2 1277 t102 = 1/t23**5.0d+0 1278 t103 = 1/t73**3.0d+0 1279 t104 = t98+t96-2.727175820834852d-2*t101*t102*t77*t94+7.5185 1280 1 82603395361d-1*t103*t27*t71*t72 1281 t105 = 1.0811057476031893d-1*gammaaa*t24*t79*t99-1.261290038 1282 1 8703877d-1*gammaaa*t76*t79*t94*t95-1.0811057476031893d-1* 1283 2 gammaaa*t100*t104*t24*t76 1284 t106 = 1/t23**4.0d+0 1285 t107 = 5.843948187503255d-3*gammaaa*t106*t77+2.7027643690079 1286 1 733d-2*t24*t74 1287 t108 = 2.7027643690079733d-2*t24*t76*t79+2.9219740937516275d 1288 1 -3*gammaaa*t106*t74*t79-1.0811057476031893d-1*gammaaa*t10 1289 2 0*t107*t24*t76 1290 t109 = 1.168789637500651d-2*gammaaa*t106*t77+5.4055287380159 1291 1 47d-2*t24*t74 1292 t110 = 5.405528738015947d-2*t24*t76*t79+5.843948187503255d-3 1293 1 *gammaaa*t106*t74*t79-1.0811057476031893d-1*gammaaa*t100* 1294 2 t109*t24*t76 1295 t111 = -t11*t50*t8-t10*t11 1296 t112 = -t12*t50*t8+t10*t111*t8-t10*t12 1297 t113 = -t13*t50*t8+t10*t112*t8-t10*t13 1298 t114 = -t14*t50*t8+t10*t113*t8-t10*t14 1299 t115 = -t15*t50*t8+t10*t114*t8-t10*t15 1300 t116 = -t16*t50*t8+t10*t115*t8-t10*t16 1301 t117 = -t17*t50*t8+t10*t116*t8-t10*t17 1302 t118 = -t18*t50*t8+t10*t117*t8-t10*t18 1303 t119 = -t19*t50*t8+t10*t118*t8-t10*t19 1304 t120 = -t20*t50*t8+t10*t119*t8-t10*t20 1305 t121 = -t21*t50*t8+t10*t120*t8-t10*t21 1306 t122 = -t29*t50*t8-t10*t29 1307 t123 = -t30*t50*t8+t10*t122*t8-t10*t30 1308 t124 = -t31*t50*t8+t10*t123*t8-t10*t31 1309 t125 = -t32*t50*t8+t10*t124*t8-t10*t32 1310 t126 = -t33*t50*t8+t10*t125*t8-t10*t33 1311 t127 = -t34*t50*t8+t10*t126*t8-t10*t34 1312 t128 = -t35*t50*t8+t10*t127*t8-t10*t35 1313 t129 = -t36*t50*t8+t10*t128*t8-t10*t36 1314 t130 = -t37*t50*t8+t10*t129*t8-t10*t37 1315 t131 = -t38*t50*t8+t10*t130*t8-t10*t38 1316 t132 = -t39*t50*t8 1317 t133 = t10*t131*t8-t10*t39+t132 1318 t134 = 2.519842099789746d+0 1319 t135 = rhoa**1.3333333333333333d+0 1320 t136 = 1/t9**3 1321 t137 = 7.937005259840998d-1 1322 t138 = 1/rhoa**3.333333333333333d-1 1323 t139 = -1.243628d-1*rhoa*t46*t47*(t10*t8*(t10*t8*(t10*t8*(t1 1324 1 0*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(-3. 1325 2 190260000209101d+0*t11*t137*t138*t50*t8+4.579991491020378 1326 3 d+1*t11*t134*t135*t136*t8-4.579991491020378d+1*t11*t134*t 1327 4 135*t50+3.190260000209101d+0*t10*t11*t137*t138)-9.5707800 1328 5 00627304d+0*t48*t49*t50*t51*t8-3.190260000209101d+0*t12*t 1329 6 137*t138*t50*t8+4.579991491020378d+1*t12*t134*t135*t136*t 1330 7 8+9.570780000627304d+0*t10*t48*t49*t51-4.579991491020378d 1331 8 +1*t12*t134*t135*t50+3.190260000209101d+0*t10*t12*t137*t1 1332 9 38)-9.570780000627304d+0*t48*t49*t50*t52*t8-3.19026000020 1333 : 9101d+0*t13*t137*t138*t50*t8+4.579991491020378d+1*t13*t13 1334 ; 4*t135*t136*t8+9.570780000627304d+0*t10*t48*t49*t52-4.579 1335 < 991491020378d+1*t13*t134*t135*t50+3.190260000209101d+0*t1 1336 = 0*t13*t137*t138)-9.570780000627304d+0*t48*t49*t50*t53*t8- 1337 > 3.190260000209101d+0*t137*t138*t14*t50*t8+4.5799914910203 1338 ? 78d+1*t134*t135*t136*t14*t8+9.570780000627304d+0*t10*t48* 1339 @ t49*t53-4.579991491020378d+1*t134*t135*t14*t50+3.19026000 1340 1 0209101d+0*t10*t137*t138*t14)-9.570780000627304d+0*t48*t4 1341 2 9*t50*t54*t8-3.190260000209101d+0*t137*t138*t15*t50*t8+4. 1342 3 579991491020378d+1*t134*t135*t136*t15*t8+9.57078000062730 1343 4 4d+0*t10*t48*t49*t54-4.579991491020378d+1*t134*t135*t15*t 1344 5 50+3.190260000209101d+0*t10*t137*t138*t15)-9.570780000627 1345 6 304d+0*t48*t49*t50*t55*t8-3.190260000209101d+0*t137*t138* 1346 7 t16*t50*t8+4.579991491020378d+1*t134*t135*t136*t16*t8+9.5 1347 8 70780000627304d+0*t10*t48*t49*t55-4.579991491020378d+1*t1 1348 9 34*t135*t16*t50+3.190260000209101d+0*t10*t137*t138*t16)-9 1349 : .570780000627304d+0*t48*t49*t50*t56*t8-3.190260000209101d 1350 ; +0*t137*t138*t17*t50*t8+4.579991491020378d+1*t134*t135*t1 1351 < 36*t17*t8+9.570780000627304d+0*t10*t48*t49*t56-4.57999149 1352 = 1020378d+1*t134*t135*t17*t50+3.190260000209101d+0*t10*t13 1353 > 7*t138*t17)-9.570780000627304d+0*t48*t49*t50*t57*t8-3.190 1354 ? 260000209101d+0*t137*t138*t18*t50*t8+4.579991491020378d+1 1355 @ *t134*t135*t136*t18*t8+9.570780000627304d+0*t10*t48*t49*t 1356 1 57-4.579991491020378d+1*t134*t135*t18*t50+3.1902600002091 1357 2 01d+0*t10*t137*t138*t18)-9.570780000627304d+0*t48*t49*t50 1358 3 *t58*t8-3.190260000209101d+0*t137*t138*t19*t50*t8+4.57999 1359 4 1491020378d+1*t134*t135*t136*t19*t8+9.570780000627304d+0* 1360 5 t10*t48*t49*t58-4.579991491020378d+1*t134*t135*t19*t50+3. 1361 6 190260000209101d+0*t10*t137*t138*t19)-9.570780000627304d+ 1362 7 0*t48*t49*t50*t59*t8-3.190260000209101d+0*t137*t138*t20*t 1363 8 50*t8+4.579991491020378d+1*t134*t135*t136*t20*t8+9.570780 1364 9 000627304d+0*t10*t48*t49*t59-4.579991491020378d+1*t134*t1 1365 : 35*t20*t50+3.190260000209101d+0*t10*t137*t138*t20)-9.5707 1366 ; 80000627304d+0*t48*t49*t50*t60*t8-3.190260000209101d+0*t1 1367 < 37*t138*t21*t50*t8+4.579991491020378d+1*t134*t135*t136*t2 1368 = 1*t8+9.570780000627304d+0*t10*t48*t49*t60-4.5799914910203 1369 > 78d+1*t134*t135*t21*t50+3.190260000209101d+0*t10*t137*t13 1370 ? 8*t21) 1371 t140 = -1.243628d-1*t46*t47*t61 1372 t141 = 4.0d+0*rhoa*t61*t71 1373 t142 = 2.0d+0*t22*t71 1374 t143 = -7.269696950238034d-4*t46/rhoa**2.333333333333333d+0 1375 t144 = log(1.425125466450768d+0*t2/(7.016926042943222d-1*t3* 1376 1 (7.016926042943222d-1*(1.1771443702974158d-2*t3+2.9729725 1377 2 188d-2)*t3+1.2236585478d-1)+3.497952466d-1)+1.0d+0) 1378 t145 = 5.477644184000001d-2*t5+1.0d+0 1379 t146 = 1/rhoa**2 1380 t147 = 2.18090908507141d-3*t62*t63*t70 1381 t148 = 6.21814d-2*t47*t70**2/t45**2 1382 t149 = 1/rhoa**1.6666666666666669d+0 1383 t150 = 1/t2**5 1384 t151 = -6.21814d-2*t47*t63*(2.850250932901536d+0*t2*t69**2/t 1385 1 43**3-2.3752091107512796d-1*t3*t64*t67*t69-1.425125466450 1386 2 768d+0*t2*t64*(-1.1694876738238703d-1*t66*t67*t68+7.01692 1387 3 6042943222d-1*t3*(1.949146123039784d-2*t149*t41*t66+1.461 1388 4 8595922798375d-2*t150*t41*t65+9.432533847640683d-4/rhoa** 1389 5 2.3333333333333334d+0)+1.949146123039784d-2*t149*t42*t66+ 1390 6 1.4618595922798375d-2*t150*t42*t65)-9.896704628130328d-3* 1391 7 t44*t65*t66-3.9586818512521327d-2*t149*t3*t44) 1392 t152 = t151+t148+t147+8.443450000000001d-3*t144*t145*t146+t1 1393 1 43 1394 t153 = 6.218138173930978d-2*rhoa*t81*(-9.570780000627304d+0* 1395 1 t48*t49*t50*t8*t91+9.570780000627304d+0*t10*t48*t49*t91+t 1396 2 10*t8*(-9.570780000627304d+0*t48*t49*t50*t8*t90+9.5707800 1397 3 00627304d+0*t10*t48*t49*t90+t10*t8*(-9.570780000627304d+0 1398 4 *t48*t49*t50*t8*t89+9.570780000627304d+0*t10*t48*t49*t89+ 1399 5 t10*t8*(-9.570780000627304d+0*t48*t49*t50*t8*t88+9.570780 1400 6 000627304d+0*t10*t48*t49*t88+t10*t8*(-9.570780000627304d+ 1401 7 0*t48*t49*t50*t8*t87+9.570780000627304d+0*t10*t48*t49*t87 1402 8 +t10*t8*(-9.570780000627304d+0*t48*t49*t50*t8*t86+9.57078 1403 9 0000627304d+0*t10*t48*t49*t86+t10*t8*(-9.570780000627304d 1404 : +0*t48*t49*t50*t8*t85+9.570780000627304d+0*t10*t48*t49*t8 1405 ; 5+t10*t8*(-9.570780000627304d+0*t48*t49*t50*t8*t84+9.5707 1406 < 80000627304d+0*t10*t48*t49*t84+t10*t8*(-9.570780000627304 1407 = d+0*t48*t49*t50*t8*t83+9.570780000627304d+0*t10*t48*t49*t 1408 > 83+t10*t8*(-9.570780000627304d+0*t48*t49*t50*t8*t82+9.570 1409 ? 780000627304d+0*t10*t48*t49*t82+t10*t8*(-3.19026000020910 1410 @ 1d+0*t137*t138*t29*t50*t8+4.579991491020378d+1*t134*t135* 1411 1 t136*t29*t8-4.579991491020378d+1*t134*t135*t29*t50+3.1902 1412 2 60000209101d+0*t10*t137*t138*t29)-3.190260000209101d+0*t1 1413 3 37*t138*t30*t50*t8+4.579991491020378d+1*t134*t135*t136*t3 1414 4 0*t8-4.579991491020378d+1*t134*t135*t30*t50+3.19026000020 1415 5 9101d+0*t10*t137*t138*t30)-3.190260000209101d+0*t137*t138 1416 6 *t31*t50*t8+4.579991491020378d+1*t134*t135*t136*t31*t8-4. 1417 7 579991491020378d+1*t134*t135*t31*t50+3.190260000209101d+0 1418 8 *t10*t137*t138*t31)-3.190260000209101d+0*t137*t138*t32*t5 1419 9 0*t8+4.579991491020378d+1*t134*t135*t136*t32*t8-4.5799914 1420 : 91020378d+1*t134*t135*t32*t50+3.190260000209101d+0*t10*t1 1421 ; 37*t138*t32)-3.190260000209101d+0*t137*t138*t33*t50*t8+4. 1422 < 579991491020378d+1*t134*t135*t136*t33*t8-4.57999149102037 1423 = 8d+1*t134*t135*t33*t50+3.190260000209101d+0*t10*t137*t138 1424 > *t33)-3.190260000209101d+0*t137*t138*t34*t50*t8+4.5799914 1425 ? 91020378d+1*t134*t135*t136*t34*t8-4.579991491020378d+1*t1 1426 @ 34*t135*t34*t50+3.190260000209101d+0*t10*t137*t138*t34)-3 1427 1 .190260000209101d+0*t137*t138*t35*t50*t8+4.57999149102037 1428 2 8d+1*t134*t135*t136*t35*t8-4.579991491020378d+1*t134*t135 1429 3 *t35*t50+3.190260000209101d+0*t10*t137*t138*t35)-3.190260 1430 4 000209101d+0*t137*t138*t36*t50*t8+4.579991491020378d+1*t1 1431 5 34*t135*t136*t36*t8-4.579991491020378d+1*t134*t135*t36*t5 1432 6 0+3.190260000209101d+0*t10*t137*t138*t36)-3.1902600002091 1433 7 01d+0*t137*t138*t37*t50*t8+4.579991491020378d+1*t134*t135 1434 8 *t136*t37*t8-4.579991491020378d+1*t134*t135*t37*t50+3.190 1435 9 260000209101d+0*t10*t137*t138*t37)-3.190260000209101d+0*t 1436 : 137*t138*t38*t50*t8+4.579991491020378d+1*t134*t135*t136*t 1437 ; 38*t8-4.579991491020378d+1*t134*t135*t38*t50+3.1902600002 1438 < 09101d+0*t10*t137*t138*t38)-3.190260000209101d+0*t137*t13 1439 = 8*t39*t50*t8+4.579991491020378d+1*t134*t135*t136*t39*t8-4 1440 > .579991491020378d+1*t134*t135*t39*t50+3.190260000209101d+ 1441 ? 0*t10*t137*t138*t39) 1442 t154 = 6.218138173930978d-2*t81*t92 1443 t155 = 1/t80**2 1444 t156 = -6.218138173930978d-2*rhoa*t105**2*t155*t40 1445 t157 = 1/rhoa 1446 t158 = 1.2436276347861956d-1*rhoa*t105*t92 1447 t159 = 6.218138173930978d-2*t105*t40 1448 t160 = rhoa**3.333333333333335d-1 1449 t161 = 2.2072575680231782d-1*gammaaa*t106*t160*t76*t79 1450 t162 = 1/rhoa**8.333333333333333d-1 1451 t163 = -1.0510750323919903d-2*gammaaa*t162*t76*t79*t95 1452 t164 = -2.5225800777407753d-1*gammaaa*t79*t94*t95*t99 1453 t165 = 2.5225800777407753d-1*gammaaa*t100*t104*t76*t94*t95 1454 t166 = -2.1622114952063787d-1*gammaaa*t100*t104*t24*t99 1455 t167 = 1/t78**3 1456 t168 = 2.1622114952063787d-1*gammaaa*t104**2*t167*t24*t76 1457 t169 = 2.2072575680231782d-1*gammaaa*t106*t160*t74 1458 t170 = -1.0510750323919903d-2*gammaaa*t162*t74*t95 1459 t171 = 1.2012286084479878d-2*gammaaa*t146*t24*t74 1460 t172 = -8.113618601517993d+0*gammaaa*t71*t72*t94*t95*t97 1461 t173 = t71**2 1462 t174 = -1.118426454244592d+2*gammaaa*t173*t24*t72*t97 1463 t175 = 3.3333343122271053d-1*t146*t46*t47-3.216396844291483d 1464 1 +1*t152 1465 t176 = -1.0811057476031893d-1*gammaaa*t175*t24*t72*t97 1466 t177 = 1/t73**3 1467 t178 = exp(4.0000011746725284d+0*t46*t47) 1468 t179 = 2.236852908489184d+2*gammaaa*t173*t177*t178*t24 1469 t180 = 1/t23**6.0d+0 1470 t181 = 7.95426281076832d-2*t101*t160*t180*t77 1471 t182 = -2.2726465173623778d-3*t101*t102*t162*t77 1472 t183 = -3.508671881584501d+0*t101*t102*t103*t71*t72*t94 1473 t184 = 7.254823607731703d+1*t173*t178*t27/t73**4.0d+0 1474 t185 = t151+t148+t147-8.44345d-3*t144*t145*t146+t143 1475 t186 = -1.201228608447988d-2*gammaaa*t146*t24*t74 1476 t187 = -1.1184264542445921d+2*gammaaa*t173*t24*t72*t97 1477 t188 = -3.3333343122271064d-1*t146*t46*t47-3.216396844291483 1478 1 d+1*t185 1479 t189 = -1.0811057476031893d-1*gammaaa*t188*t24*t72*t97 1480 t190 = 2.2368529084891842d+2*gammaaa*t173*t177*t178*t24 1481 t191 = -3.153225097175969d-2*t74*t94*t95 1482 t192 = 8.693162787340707d-1*t24*t71*t72*t97 1483 t193 = 1.0d+0*(t93*(6.218138173930978d-2*rhoa*t40*(2.7027643 1484 1 690079733d-2*t24*t79*t99-1.0811057476031893d-1*gammaaa*t1 1485 2 00*t107*t24*t99-3.153225097175969d-2*t76*t79*t94*t95+1.26 1486 3 12900388703877d-1*gammaaa*t100*t107*t76*t94*t95-1.0811057 1487 4 476031893d-1*gammaaa*t100*t24*t76*(-1.363587910417426d-2* 1488 5 gammaaa*t102*t77*t94+3.7592913016976803d-1*gammaaa*t103*t 1489 6 106*t71*t72+t192+t191)-3.408969776043566d-3*gammaaa*t102* 1490 7 t74*t79*t94+1.0811057476031893d-1*gammaaa*(t192+t191)*t24 1491 8 *t79+2.1622114952063787d-1*gammaaa*t104*t107*t167*t24*t76 1492 9 -2.7027643690079733d-2*t100*t104*t24*t76-2.92197409375162 1493 : 75d-3*gammaaa*t100*t104*t106*t74)+6.218138173930978d-2*rh 1494 ; oa*t108*t92+3.109069086965489d-2*t108*t40)-6.218138173930 1495 < 978d-2*rhoa*t105*t108*t155*t40)*wght 1496 t194 = -6.306450194351938d-2*t74*t94*t95 1497 t195 = 1.7386325574681413d+0*t24*t71*t72*t97 1498 t196 = -5.405528738015947d-2*t100*t107*t24*t76 1499 t197 = -5.843948187503255d-3*gammaaa*t100*t106*t107*t74 1500 t198 = 6.218138173930978d-2*rhoa*t40*(1.4609870468758138d-3* 1501 1 t106*t74*t79-1.5794814935512527d-4*gammaaa*t100*t180*t76* 1502 2 t77+2.1622114952063787d-1*gammaaa*t107**2*t167*t24*t76+t1 1503 3 97+t196)*t93*wght-6.218138173930978d-2*rhoa*t108**2*t155* 1504 4 t40*wght 1505 t199 = t8**2 1506 t200 = 1/t9**4 1507 t201 = 1.0d+0*(6.218138173930978d-2*rhoa*t105*t133*t93+6.218 1508 1 138173930978d-2*rhoa*t81*(-t50*t8*t91-t10*t91+t10*t8*(-t5 1509 2 0*t8*t90-t10*t90+t10*t8*(-t50*t8*t89-t10*t89+t10*t8*(-t50 1510 3 *t8*t88-t10*t88+t10*t8*(-t50*t8*t87-t10*t87+t10*t8*(-t50* 1511 4 t8*t86-t10*t86+t10*t8*(-t50*t8*t85-t10*t85+t10*t8*(-t50*t 1512 5 8*t84-t10*t84+t10*t8*(-t50*t8*t83-t10*t83+t10*t8*(-t50*t8 1513 6 *t82-t10*t82-4.785390000313652d+0*t122*t48*t49*t50*t8+9.5 1514 7 70780000627304d+0*t136*t30*t48*t49*t8+9.570780000627304d+ 1515 8 0*t199*t200*t29*t48*t49+4.785390000313652d+0*t10*t122*t48 1516 9 *t49)-4.785390000313652d+0*t123*t48*t49*t50*t8+9.57078000 1517 : 0627304d+0*t136*t31*t48*t49*t8+4.785390000313652d+0*t10*t 1518 ; 123*t48*t49)-4.785390000313652d+0*t124*t48*t49*t50*t8+9.5 1519 < 70780000627304d+0*t136*t32*t48*t49*t8+4.785390000313652d+ 1520 = 0*t10*t124*t48*t49)-4.785390000313652d+0*t125*t48*t49*t50 1521 > *t8+9.570780000627304d+0*t136*t33*t48*t49*t8+4.7853900003 1522 ? 13652d+0*t10*t125*t48*t49)-4.785390000313652d+0*t126*t48* 1523 @ t49*t50*t8+9.570780000627304d+0*t136*t34*t48*t49*t8+4.785 1524 1 390000313652d+0*t10*t126*t48*t49)-4.785390000313652d+0*t1 1525 2 27*t48*t49*t50*t8+9.570780000627304d+0*t136*t35*t48*t49*t 1526 3 8+4.785390000313652d+0*t10*t127*t48*t49)-4.78539000031365 1527 4 2d+0*t128*t48*t49*t50*t8+9.570780000627304d+0*t136*t36*t4 1528 5 8*t49*t8+4.785390000313652d+0*t10*t128*t48*t49)-4.7853900 1529 6 00313652d+0*t129*t48*t49*t50*t8+9.570780000627304d+0*t136 1530 7 *t37*t48*t49*t8+4.785390000313652d+0*t10*t129*t48*t49)-4. 1531 8 785390000313652d+0*t130*t48*t49*t50*t8+9.570780000627304d 1532 9 +0*t136*t38*t48*t49*t8+4.785390000313652d+0*t10*t130*t48* 1533 : t49)-4.785390000313652d+0*t131*t48*t49*t50*t8+9.570780000 1534 ; 627304d+0*t136*t39*t48*t49*t8+4.785390000313652d+0*t10*t1 1535 < 31*t48*t49)+3.109069086965489d-2*t133*t81-1.243628d-1*rho 1536 = a*t46*t47*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8 1537 > *(t10*t8*(t10*t8*(t10*t8*(-t50*t51*t8-4.785390000313652d+ 1538 ? 0*t111*t48*t49*t50*t8+9.570780000627304d+0*t12*t136*t48*t 1539 @ 49*t8-t10*t51+9.570780000627304d+0*t11*t199*t200*t48*t49+ 1540 1 4.785390000313652d+0*t10*t111*t48*t49)-t50*t52*t8-4.78539 1541 2 0000313652d+0*t112*t48*t49*t50*t8+9.570780000627304d+0*t1 1542 3 3*t136*t48*t49*t8-t10*t52+4.785390000313652d+0*t10*t112*t 1543 4 48*t49)-t50*t53*t8-4.785390000313652d+0*t113*t48*t49*t50* 1544 5 t8+9.570780000627304d+0*t136*t14*t48*t49*t8-t10*t53+4.785 1545 6 390000313652d+0*t10*t113*t48*t49)-t50*t54*t8-4.7853900003 1546 7 13652d+0*t114*t48*t49*t50*t8+9.570780000627304d+0*t136*t1 1547 8 5*t48*t49*t8-t10*t54+4.785390000313652d+0*t10*t114*t48*t4 1548 9 9)-t50*t55*t8-4.785390000313652d+0*t115*t48*t49*t50*t8+9. 1549 : 570780000627304d+0*t136*t16*t48*t49*t8-t10*t55+4.78539000 1550 ; 0313652d+0*t10*t115*t48*t49)-t50*t56*t8-4.785390000313652 1551 < d+0*t116*t48*t49*t50*t8+9.570780000627304d+0*t136*t17*t48 1552 = *t49*t8-t10*t56+4.785390000313652d+0*t10*t116*t48*t49)-t5 1553 > 0*t57*t8-4.785390000313652d+0*t117*t48*t49*t50*t8+9.57078 1554 ? 0000627304d+0*t136*t18*t48*t49*t8-t10*t57+4.7853900003136 1555 @ 52d+0*t10*t117*t48*t49)-t50*t58*t8-4.785390000313652d+0*t 1556 1 118*t48*t49*t50*t8+9.570780000627304d+0*t136*t19*t48*t49* 1557 2 t8-t10*t58+4.785390000313652d+0*t10*t118*t48*t49)-t50*t59 1558 3 *t8-4.785390000313652d+0*t119*t48*t49*t50*t8+9.5707800006 1559 4 27304d+0*t136*t20*t48*t49*t8-t10*t59+4.785390000313652d+0 1560 5 *t10*t119*t48*t49)-t50*t60*t8-4.785390000313652d+0*t120*t 1561 6 48*t49*t50*t8+9.570780000627304d+0*t136*t21*t48*t49*t8-t1 1562 7 0*t60+4.785390000313652d+0*t10*t120*t48*t49)+2.0d+0*rhoa* 1563 8 t121*t71-6.21814d-2*t121*t46*t47)*wght 1564 t202 = t10*(-t10*t38*t8+t131*t8-t28)+t132 1565 t203 = 6.218138173930978d-2*rhoa*t108*t202*t93*wght 1566 t204 = 1.0d+0*(6.218138173930978d-2*rhoa*(t10*t8*(t10*t8*(t1 1567 1 0*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10 1568 2 *t8*(2*t136*t29*t8+2*t29*t50)-2*t122*t50*t8+2*t136*t30*t8 1569 3 +2*t30*t50-2*t10*t122)-2*t123*t50*t8+2*t136*t31*t8+2*t31* 1570 4 t50-2*t10*t123)-2*t124*t50*t8+2*t136*t32*t8+2*t32*t50-2*t 1571 5 10*t124)-2*t125*t50*t8+2*t136*t33*t8+2*t33*t50-2*t10*t125 1572 6 )-2*t126*t50*t8+2*t136*t34*t8+2*t34*t50-2*t10*t126)-2*t12 1573 7 7*t50*t8+2*t136*t35*t8+2*t35*t50-2*t10*t127)-2*t128*t50*t 1574 8 8+2*t136*t36*t8+2*t36*t50-2*t10*t128)-2*t129*t50*t8+2*t13 1575 9 6*t37*t8+2*t37*t50-2*t10*t129)-2*t130*t50*t8+2*t136*t38*t 1576 : 8+2*t38*t50-2*t10*t130)-2*t131*t50*t8+2*t136*t39*t8+2*t39 1577 ; *t50-2*t10*t131)*t81-1.243628d-1*rhoa*t46*t47*(t10*t8*(t1 1578 < 0*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10 1579 = *t8*(t10*t8*(2*t11*t136*t8+2*t11*t50)-2*t111*t50*t8+2*t12 1580 > *t136*t8+2*t12*t50-2*t10*t111)-2*t112*t50*t8+2*t13*t136*t 1581 ? 8+2*t13*t50-2*t10*t112)-2*t113*t50*t8+2*t136*t14*t8+2*t14 1582 @ *t50-2*t10*t113)-2*t114*t50*t8+2*t136*t15*t8+2*t15*t50-2* 1583 1 t10*t114)-2*t115*t50*t8+2*t136*t16*t8+2*t16*t50-2*t10*t11 1584 2 5)-2*t116*t50*t8+2*t136*t17*t8+2*t17*t50-2*t10*t116)-2*t1 1585 3 17*t50*t8+2*t136*t18*t8+2*t18*t50-2*t10*t117)-2*t118*t50* 1586 4 t8+2*t136*t19*t8+2*t19*t50-2*t10*t118)-2*t119*t50*t8+2*t1 1587 5 36*t20*t8+2*t20*t50-2*t10*t119)-2*t120*t50*t8+2*t136*t21* 1588 6 t8+2*t21*t50-2*t10*t120))*wght 1589 fnc(iq) = 1.0d+0*(6.218138173930978d-2*rhoa*log(1.0811057476 1590 1 031892d-1*gammaaa*t24*(t26+1.0d+0)/(1.1687896375006504d-2 1591 2 *t27/t25**2.0d+0+t26+1.0d+0)+1.0d+0)*t40-1.243628d-1*rhoa 1592 3 *t22*t4*t6)*wght+fnc(iq) 1593 Amat(iq,D1_RA) = 1.0d+0*(6.218138173930978d-2*rhoa*t105*t40* 1594 1 t93+6.218138173930978d-2*rhoa*t81*t92+3.109069086965489d- 1595 2 2*t40*t81+2.0d+0*rhoa*t22*t71-1.243628d-1*rhoa*t46*t47*t6 1596 3 1-6.21814d-2*t22*t46*t47)*wght+Amat(iq,D1_RA) 1597 Cmat(iq,D1_GAA) = 6.218138173930978d-2*rhoa*t108*t40*t93*wgh 1598 1 t+Cmat(iq,D1_GAA) 1599 Cmat(iq,D1_GAB) = 6.218138173930978d-2*rhoa*t110*t40*t93*wgh 1600 1 t+Cmat(iq,D1_GAB) 1601 Mmat(iq,D1_TA) = 1.0d+0*(6.218138173930978d-2*rhoa*t133*t81- 1602 1 1.243628d-1*rhoa*t121*t46*t47)*wght+Mmat(iq,D1_TA) 1603 Amat2(iq,D2_RA_RA) = 1.0d+0*((6.218138173930978d-2*rhoa*t40* 1604 1 (1.2012286084479878d-2*gammaaa*t146*t24*t76*t79+1.0811057 1605 2 476031893d-1*gammaaa*(t179+t176+t174+t172+t171+t170+t169) 1606 3 *t24*t79-1.0811057476031893d-1*gammaaa*t100*t24*t76*(2.59 1607 4 7310305557001d-3*t146*t27*t77-2.337579275001302d-2*t103*t 1608 5 175*t27*t72-2.4182745359105678d+1*t103*t173*t27*t72+t184+ 1609 6 t183+t182+t181+t179+t176+t174+t172+t171+t170+t169)+t168+t 1610 7 166+t165+t164+t163+t161)+t159+t158)*t93-1.036356362321829 1611 8 4d-2*t157*t40*t81+2.0d+0*rhoa*t152*t22+t156+t154+t153+t14 1612 9 2+t141+t140+t139)*wght+Amat2(iq,D2_RA_RA) 1613 Amat2(iq,D2_RA_RB) = 1.0d+0*((6.218138173930978d-2*rhoa*t40* 1614 1 (-1.201228608447988d-2*gammaaa*t146*t24*t76*t79+1.0811057 1615 2 476031893d-1*gammaaa*(t190+t189+t187+t186+t172+t170+t169) 1616 3 *t24*t79-1.0811057476031893d-1*gammaaa*t100*t24*t76*(-2.5 1617 4 973103055570024d-3*t146*t27*t77-2.337579275001302d-2*t103 1618 5 *t188*t27*t72-2.418274535910568d+1*t103*t173*t27*t72+t190 1619 6 +t189+t187+t186+t184+t183+t182+t181+t172+t170+t169)+t168+ 1620 7 t166+t165+t164+t163+t161)+t159+t158)*t93+1.03635636232182 1621 8 96d-2*t157*t40*t81+2.0d+0*rhoa*t185*t22+t156+t154+t153+t1 1622 9 42+t141+t140+t139)*wght+Amat2(iq,D2_RA_RB) 1623 Cmat2(iq,D2_RA_GAA) = t193+Cmat2(iq,D2_RA_GAA) 1624 Cmat2(iq,D2_RA_GAB) = 1.0d+0*(t93*(6.218138173930978d-2*rhoa 1625 1 *t40*(5.405528738015947d-2*t24*t79*t99-1.0811057476031893 1626 2 d-1*gammaaa*t100*t109*t24*t99-6.306450194351938d-2*t76*t7 1627 3 9*t94*t95+1.2612900388703877d-1*gammaaa*t100*t109*t76*t94 1628 4 *t95-1.0811057476031893d-1*gammaaa*t100*t24*t76*(-2.72717 1629 5 5820834852d-2*gammaaa*t102*t77*t94+7.518582603395361d-1*g 1630 6 ammaaa*t103*t106*t71*t72+t195+t194)-6.817939552087132d-3* 1631 7 gammaaa*t102*t74*t79*t94+1.0811057476031893d-1*gammaaa*(t 1632 8 195+t194)*t24*t79+2.1622114952063787d-1*gammaaa*t104*t109 1633 9 *t167*t24*t76-5.405528738015947d-2*t100*t104*t24*t76-5.84 1634 : 3948187503255d-3*gammaaa*t100*t104*t106*t74)+6.2181381739 1635 ; 30978d-2*rhoa*t110*t92+3.109069086965489d-2*t110*t40)-6.2 1636 < 18138173930978d-2*rhoa*t105*t110*t155*t40)*wght+Cmat2(iq, 1637 = D2_RA_GAB) 1638 Cmat2(iq,D2_RA_GBB) = t193+Cmat2(iq,D2_RA_GBB) 1639 Cmat2(iq,D2_GAA_GAA) = t198+Cmat2(iq,D2_GAA_GAA) 1640 Cmat2(iq,D2_GAA_GAB) = 6.218138173930978d-2*rhoa*t40*(2.9219 1641 1 740937516275d-3*t106*t74*t79-3.1589629871025054d-4*gammaa 1642 2 a*t100*t180*t76*t77+2.1622114952063787d-1*gammaaa*t107*t1 1643 3 09*t167*t24*t76-2.7027643690079733d-2*t100*t109*t24*t76-2 1644 4 .9219740937516275d-3*gammaaa*t100*t106*t109*t74+t197+t196 1645 5 )*t93*wght-6.218138173930978d-2*rhoa*t108*t110*t155*t40*w 1646 6 ght+Cmat2(iq,D2_GAA_GAB) 1647 Cmat2(iq,D2_GAA_GBB) = t198+Cmat2(iq,D2_GAA_GBB) 1648 Cmat2(iq,D2_GAB_GAB) = 6.218138173930978d-2*rhoa*t40*(5.8439 1649 1 48187503255d-3*t106*t74*t79-6.317925974205011d-4*gammaaa* 1650 2 t100*t180*t76*t77+2.1622114952063787d-1*gammaaa*t109**2*t 1651 3 167*t24*t76-1.0811057476031893d-1*t100*t109*t24*t76-1.168 1652 4 789637500651d-2*gammaaa*t100*t106*t109*t74)*t93*wght-6.21 1653 5 8138173930978d-2*rhoa*t110**2*t155*t40*wght+Cmat2(iq,D2_G 1654 6 AB_GAB) 1655 Mmat2(iq,D2_RA_TA) = t201+Mmat2(iq,D2_RA_TA) 1656 Mmat2(iq,D2_RA_TB) = t201+Mmat2(iq,D2_RA_TB) 1657 Mmat2(iq,D2_GAA_TA) = t203+Mmat2(iq,D2_GAA_TA) 1658 Mmat2(iq,D2_GAA_TB) = t203+Mmat2(iq,D2_GAA_TB) 1659 Mmat2(iq,D2_GAB_TA) = 6.218138173930978d-2*rhoa*t110*t202*t9 1660 1 3*wght+Mmat2(iq,D2_GAB_TA) 1661 Mmat2(iq,D2_TA_TA) = t204+Mmat2(iq,D2_TA_TA) 1662 Mmat2(iq,D2_TA_TB) = t204+Mmat2(iq,D2_TA_TB) 1663 endif ! rhoa.gt.tol_rho 1664 else ! ipol.eq.1 1665 rhoa = rho(iq,R_A) 1666 rhob = rho(iq,R_B) 1667 gammaaa = rgamma(iq,G_AA) 1668 gammaab = rgamma(iq,G_AB) 1669 gammabb = rgamma(iq,G_BB) 1670 taua = tau(iq,T_A) 1671 taub = tau(iq,T_B) 1672 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 1673 t1 = rhob+rhoa 1674 t2 = t1**3.333333333333333d-1 1675 t3 = 1/t2 1676 t4 = 1.325688999052018d-1*t3+1.0d+0 1677 t5 = t2**5.0d-1 1678 t6 = 1/t5 1679 t7 = 2.4141993114533214d-2*t6+1.0186556948d-1 1680 t8 = 7.876233178997433d-1*t6*t7+2.2308199064d-1 1681 t9 = 7.876233178997433d-1*t6*t8+4.7231125998d-1 1682 t10 = 1/t9 1683 t11 = 1.269642451250142d+0*t10*t5+1.0d+0 1684 t12 = log(t11) 1685 t13 = rhoa-rhob 1686 t14 = 1/t1 1687 t15 = 1.0d+0-t13*t14 1688 t16 = t15**1.3333333333333333d+0 1689 t17 = t13*t14+1.0d+0 1690 t18 = t17**1.3333333333333333d+0 1691 t19 = 1.923661050931536d+0*t18+1.923661050931536d+0*t16-3.84 1692 1 7322101863072d+0 1693 t20 = 6.901399211255826d-2*t3+1.0d+0 1694 t21 = 1.3212998810398843d-2*t6+2.9729725188d-2 1695 t22 = 7.876233178997433d-1*t21*t6+1.2236585478d-1 1696 t23 = 7.876233178997433d-1*t22*t6+3.497952466d-1 1697 t24 = 1/t23 1698 t25 = 1.269642451250142d+0*t24*t5+1.0d+0 1699 t26 = log(t25) 1700 t27 = t13**4 1701 t28 = 1/t1**4 1702 t29 = 1.2746961887000874d-1*t3+1.0d+0 1703 t30 = 1.530901310039024d-2*t6+1.0465751434d-1 1704 t31 = 7.876233178997433d-1*t30*t6+1.9269083139d-1 1705 t32 = 7.876233178997433d-1*t31*t6+4.3896648423d-1 1706 t33 = 1/t32 1707 t34 = 1.269642451250142d+0*t33*t5+1.0d+0 1708 t35 = log(t34) 1709 t36 = 1.709920934161365d+0*(6.21814d-2*t12*t4-3.10907d-2*t29 1710 1 *t35)-3.37738d-2*t20*t26 1711 t37 = t27*t28*t36+3.37738d-2*t20*t26 1712 t38 = 5.848223622634648d-1*t19*t37-6.21814d-2*t12*t4 1713 t39 = 2.871234000188191d+0*t1**1.6666666666666669d+0 1714 t40 = -taub-taua+t39 1715 t41 = taub+taua+t39 1716 t42 = 1/t41 1717 t43 = param(12) 1718 t44 = t40*t42*t43+param(11) 1719 t45 = t40*t42*t44+param(10) 1720 t46 = t40*t42*t45+param(9) 1721 t47 = t40*t42*t46+param(8) 1722 t48 = t40*t42*t47+param(7) 1723 t49 = t40*t42*t48+param(6) 1724 t50 = t40*t42*t49+param(5) 1725 t51 = t40*t42*t50+param(4) 1726 t52 = t40*t42*t51+param(3) 1727 t53 = t40*t42*t52+param(2) 1728 t54 = t40*t42*t53+param(1) 1729 t55 = t15**6.666666666666666d-1 1730 t56 = t17**6.666666666666666d-1 1731 t57 = 5.0d-1*t56+5.0d-1*t55 1732 t58 = t57**3.0d+0 1733 t59 = gammabb+2.0d+0*gammaab+gammaaa 1734 t60 = t1**1.1666666666666667d+0 1735 t61 = 1/t60**2.0d+0 1736 t62 = t57**2.0d+0 1737 t63 = 1/t62 1738 t64 = 1/t58 1739 t65 = exp(-3.216396844291483d+1*t38*t64) 1740 t66 = t65-1.0d+0 1741 t67 = 1/t66 1742 t68 = 1.3621078885675922d-1*t59*t61*t63*t67 1743 t69 = t68+1.0d+0 1744 t70 = 1/t57**4.0d+0 1745 t71 = (t59*t61)**2.0d+0 1746 t72 = 1/t66**2.0d+0 1747 t73 = 1.855337900098064d-2*t70*t71*t72+t68+1.0d+0 1748 t74 = 1/t73 1749 t75 = 1.3621078885675922d-1*t59*t61*t63*t69*t74+1.0d+0 1750 t76 = log(t75) 1751 t77 = param(14) 1752 t78 = param(24) 1753 t79 = t40*t42*t78+param(23) 1754 t80 = t40*t42*t79+param(22) 1755 t81 = t40*t42*t80+param(21) 1756 t82 = t40*t42*t81+param(20) 1757 t83 = t40*t42*t82+param(19) 1758 t84 = t40*t42*t83+param(18) 1759 t85 = t40*t42*t84+param(17) 1760 t86 = t40*t42*t85+param(16) 1761 t87 = t40*t42*t86+param(15) 1762 t88 = t40*t42*t87+t77 1763 t89 = t40*t42*t88+param(13) 1764 t90 = t1**6.666666666666666d-1 1765 t91 = 1/t41**2 1766 t92 = 4.785390000313652d+0*t42*t43*t90-4.785390000313652d+0* 1767 1 t40*t43*t90*t91 1768 t93 = t40*t42*t92-4.785390000313652d+0*t40*t44*t90*t91+4.785 1769 1 390000313652d+0*t42*t44*t90 1770 t94 = t40*t42*t93-4.785390000313652d+0*t40*t45*t90*t91+4.785 1771 1 390000313652d+0*t42*t45*t90 1772 t95 = t40*t42*t94-4.785390000313652d+0*t40*t46*t90*t91+4.785 1773 1 390000313652d+0*t42*t46*t90 1774 t96 = t40*t42*t95-4.785390000313652d+0*t40*t47*t90*t91+4.785 1775 1 390000313652d+0*t42*t47*t90 1776 t97 = t40*t42*t96-4.785390000313652d+0*t40*t48*t90*t91+4.785 1777 1 390000313652d+0*t42*t48*t90 1778 t98 = t40*t42*t97-4.785390000313652d+0*t40*t49*t90*t91+4.785 1779 1 390000313652d+0*t42*t49*t90 1780 t99 = t40*t42*t98-4.785390000313652d+0*t40*t50*t90*t91+4.785 1781 1 390000313652d+0*t42*t50*t90 1782 t100 = t40*t42*t99-4.785390000313652d+0*t40*t51*t90*t91+4.78 1783 1 5390000313652d+0*t42*t51*t90 1784 t101 = -4.785390000313652d+0*t40*t52*t90*t91+4.7853900003136 1785 1 52d+0*t42*t52*t90+t100*t40*t42 1786 t102 = -4.785390000313652d+0*t40*t53*t90*t91+4.7853900003136 1787 1 52d+0*t42*t53*t90+t101*t40*t42 1788 t103 = 1.0d+0*t1*t102*t38 1789 t104 = 1/t1**1.3333333333333336d+0 1790 t105 = 1/t1**6.666666666666667d-1 1791 t106 = 1/t5**3 1792 t107 = -1.3127055298329054d-1*t105*t106*t7-3.169132786263567 1793 1 d-3*t104 1794 t108 = 7.876233178997433d-1*t107*t6-1.3127055298329054d-1*t1 1795 1 05*t106*t8 1796 t109 = 1/t9**2 1797 t110 = 2.11607075208357d-1*t10*t105*t6-1.269642451250142d+0* 1798 1 t108*t109*t5 1799 t111 = 1/t11 1800 t112 = -6.21814d-2*t110*t111*t4 1801 t113 = 1/t1**1.3333333333333333d+0 1802 t114 = 2.747773264188438d-3*t113*t12 1803 t115 = -1.3127055298329054d-1*t105*t106*t21-1.73447766040861 1804 1 62d-3*t104 1805 t116 = 7.876233178997433d-1*t115*t6-1.3127055298329054d-1*t1 1806 1 05*t106*t22 1807 t117 = 1/t23**2 1808 t118 = 2.11607075208357d-1*t105*t24*t6-1.269642451250142d+0* 1809 1 t116*t117*t5 1810 t119 = 1/t25 1811 t120 = 3.37738d-2*t118*t119*t20 1812 t121 = -7.769549222703733d-4*t113*t26 1813 t122 = -1.3127055298329054d-1*t105*t106*t30-2.00962261531666 1814 1 58d-3*t104 1815 t123 = 7.876233178997433d-1*t122*t6-1.3127055298329054d-1*t1 1816 1 05*t106*t31 1817 t124 = 1/t32**2 1818 t125 = 2.11607075208357d-1*t105*t33*t6-1.269642451250142d+0* 1819 1 t123*t124*t5 1820 t126 = 1/t34 1821 t127 = 1.709920934161365d+0*(6.21814d-2*t110*t111*t4+1.32103 1822 1 98931339265d-3*t113*t35-3.10907d-2*t125*t126*t29-2.747773 1823 2 264188438d-3*t113*t12)+7.769549222703733d-4*t113*t26-3.37 1824 3 738d-2*t118*t119*t20 1825 t128 = t127*t27*t28 1826 t129 = 1/t1**5 1827 t130 = -4*t129*t27*t36 1828 t131 = t13**3 1829 t132 = 4*t131*t28*t36+t130+t128+t121+t120 1830 t133 = 1/t1**2 1831 t134 = t13*t133 1832 t135 = -t14 1833 t136 = t135+t134 1834 t137 = t15**3.333333333333333d-1 1835 t138 = -t13*t133 1836 t139 = t14+t138 1837 t140 = t17**3.333333333333333d-1 1838 t141 = 2.564881401242048d+0*t139*t140+2.564881401242048d+0*t 1839 1 136*t137 1840 t142 = 5.848223622634648d-1*t141*t37+5.848223622634648d-1*t1 1841 1 32*t19+t114+t112 1842 t143 = 1.0d+0*t38*t54 1843 t144 = 4.785390000313652d+0*t42*t78*t90-4.785390000313652d+0 1844 1 *t40*t78*t90*t91 1845 t145 = -4.785390000313652d+0*t40*t79*t90*t91+4.7853900003136 1846 1 52d+0*t42*t79*t90+t144*t40*t42 1847 t146 = -4.785390000313652d+0*t40*t80*t90*t91+4.7853900003136 1848 1 52d+0*t42*t80*t90+t145*t40*t42 1849 t147 = -4.785390000313652d+0*t40*t81*t90*t91+4.7853900003136 1850 1 52d+0*t42*t81*t90+t146*t40*t42 1851 t148 = -4.785390000313652d+0*t40*t82*t90*t91+4.7853900003136 1852 1 52d+0*t42*t82*t90+t147*t40*t42 1853 t149 = -4.785390000313652d+0*t40*t83*t90*t91+4.7853900003136 1854 1 52d+0*t42*t83*t90+t148*t40*t42 1855 t150 = -4.785390000313652d+0*t40*t84*t90*t91+4.7853900003136 1856 1 52d+0*t42*t84*t90+t149*t40*t42 1857 t151 = -4.785390000313652d+0*t40*t85*t90*t91+4.7853900003136 1858 1 52d+0*t42*t85*t90+t150*t40*t42 1859 t152 = -4.785390000313652d+0*t40*t86*t90*t91+4.7853900003136 1860 1 52d+0*t42*t86*t90+t151*t40*t42 1861 t153 = -4.785390000313652d+0*t40*t87*t90*t91+4.7853900003136 1862 1 52d+0*t42*t87*t90+t152*t40*t42 1863 t154 = -4.785390000313652d+0*t40*t88*t90*t91+4.7853900003136 1864 1 52d+0*t42*t88*t90+t153*t40*t42 1865 t155 = 3.109069086965489d-2*t1*t154*t58*t76 1866 t156 = 1/t75 1867 t157 = 1/t137 1868 t158 = 1/t140 1869 t159 = 3.333333333333333d-1*t139*t158+3.333333333333333d-1*t 1870 1 136*t157 1871 t160 = t1**1.6666666666666674d-1 1872 t161 = 1/t60**3.0d+0 1873 t162 = -3.1782517399910487d-1*t160*t161*t59*t63*t69*t74 1874 t163 = -2.7242157771351844d-1*t159*t59*t61*t64*t67 1875 t164 = -3.1782517399910487d-1*t160*t161*t59*t63*t67 1876 t165 = 1/t66**2 1877 t166 = 9.649190532874448d+1*t159*t38*t70-3.216396844291483d+ 1878 1 1*t142*t64 1879 t167 = -1.3621078885675922d-1*t165*t166*t59*t61*t63*t65 1880 t168 = t167+t164+t163 1881 t169 = 1/t73**2 1882 t170 = t59**2 1883 t171 = 1/t60**5.0d+0 1884 t172 = -8.658243533790966d-2*t160*t170*t171*t70*t72 1885 t173 = 1/t57**5.0d+0 1886 t174 = 1/t66**3.0d+0 1887 t175 = -7.421351600392256d-2*t159*t173*t71*t72-3.71067580019 1888 1 6128d-2*t166*t174*t65*t70*t71+t172+t167+t164+t163 1889 t176 = -2.7242157771351844d-1*t159*t59*t61*t64*t69*t74+1.362 1890 1 1078885675922d-1*t168*t59*t61*t63*t74-1.3621078885675922d 1891 2 -1*t169*t175*t59*t61*t63*t69+t162 1892 t177 = 3.109069086965489d-2*t58*t76*t89 1893 t178 = -4*t131*t28*t36+t130+t128+t121+t120 1894 t179 = t14+t134 1895 t180 = t138+t135 1896 t181 = 2.564881401242048d+0*t140*t180+2.564881401242048d+0*t 1897 1 137*t179 1898 t182 = 5.848223622634648d-1*t181*t37+5.848223622634648d-1*t1 1899 1 78*t19+t114+t112 1900 t183 = 3.333333333333333d-1*t158*t180+3.333333333333333d-1*t 1901 1 157*t179 1902 t184 = -2.7242157771351844d-1*t183*t59*t61*t64*t67 1903 t185 = 9.649190532874448d+1*t183*t38*t70-3.216396844291483d+ 1904 1 1*t182*t64 1905 t186 = -1.3621078885675922d-1*t165*t185*t59*t61*t63*t65 1906 t187 = t186+t184+t164 1907 t188 = -7.421351600392256d-2*t173*t183*t71*t72-3.71067580019 1908 1 6128d-2*t174*t185*t65*t70*t71+t186+t184+t172+t164 1909 t189 = -2.7242157771351844d-1*t183*t59*t61*t64*t69*t74+1.362 1910 1 1078885675922d-1*t187*t59*t61*t63*t74-1.3621078885675922d 1911 2 -1*t169*t188*t59*t61*t63*t69+t162 1912 t190 = 1/t60**4.0d+0 1913 t191 = 3.710675800196128d-2*t190*t59*t70*t72+1.3621078885675 1914 1 922d-1*t61*t63*t67 1915 t192 = 1.855337900098064d-2*t190*t59*t67*t70*t74+1.362107888 1916 1 5675922d-1*t61*t63*t69*t74-1.3621078885675922d-1*t169*t19 1917 2 1*t59*t61*t63*t69 1918 t193 = 3.109069086965489d-2*t1*t156*t192*t58*t89*wght 1919 t194 = 7.421351600392256d-2*t190*t59*t70*t72+2.7242157771351 1920 1 844d-1*t61*t63*t67 1921 t195 = 3.710675800196128d-2*t190*t59*t67*t70*t74+2.724215777 1922 1 1351844d-1*t61*t63*t69*t74-1.3621078885675922d-1*t169*t19 1923 2 4*t59*t61*t63*t69 1924 t196 = -t40*t43*t91-t42*t43 1925 t197 = -t40*t44*t91-t42*t44+t196*t40*t42 1926 t198 = -t40*t45*t91-t42*t45+t197*t40*t42 1927 t199 = -t40*t46*t91-t42*t46+t198*t40*t42 1928 t200 = -t40*t47*t91-t42*t47+t199*t40*t42 1929 t201 = -t40*t48*t91-t42*t48+t200*t40*t42 1930 t202 = -t40*t49*t91-t42*t49+t201*t40*t42 1931 t203 = -t40*t50*t91-t42*t50+t202*t40*t42 1932 t204 = -t40*t51*t91-t42*t51+t203*t40*t42 1933 t205 = -t40*t52*t91-t42*t52+t204*t40*t42 1934 t206 = -t40*t53*t91-t42*t53+t205*t40*t42 1935 t207 = -t40*t78*t91-t42*t78 1936 t208 = -t40*t79*t91-t42*t79+t207*t40*t42 1937 t209 = -t40*t80*t91-t42*t80+t208*t40*t42 1938 t210 = -t40*t81*t91-t42*t81+t209*t40*t42 1939 t211 = -t40*t82*t91-t42*t82+t210*t40*t42 1940 t212 = -t40*t83*t91-t42*t83+t211*t40*t42 1941 t213 = -t40*t84*t91-t42*t84+t212*t40*t42 1942 t214 = -t40*t85*t91-t42*t85+t213*t40*t42 1943 t215 = -t40*t86*t91-t42*t86+t214*t40*t42 1944 t216 = -t40*t87*t91-t42*t87+t215*t40*t42 1945 t217 = -t40*t88*t91 1946 t218 = -t42*t88+t216*t40*t42+t217 1947 t219 = 1.0d+0*(3.109069086965489d-2*t1*t218*t58*t76+1.0d+0*t 1948 1 1*t206*t38)*wght 1949 t220 = t1**1.3333333333333333d+0 1950 t221 = 1/t41**3 1951 t222 = 1/t1**3.333333333333333d-1 1952 t223 = 1.0d+0*t1*t38*(t40*t42*(t40*t42*(-9.570780000627304d+ 1953 1 0*t40*t90*t91*t99+9.570780000627304d+0*t42*t90*t99+t40*t4 1954 2 2*(-9.570780000627304d+0*t40*t90*t91*t98+9.57078000062730 1955 3 4d+0*t42*t90*t98+t40*t42*(-9.570780000627304d+0*t40*t90*t 1956 4 91*t97+9.570780000627304d+0*t42*t90*t97+t40*t42*(-9.57078 1957 5 0000627304d+0*t40*t90*t91*t96+9.570780000627304d+0*t42*t9 1958 6 0*t96+t40*t42*(-9.570780000627304d+0*t40*t90*t91*t95+9.57 1959 7 0780000627304d+0*t42*t90*t95+t40*t42*(-9.570780000627304d 1960 8 +0*t40*t90*t91*t94+9.570780000627304d+0*t42*t90*t94+t40*t 1961 9 42*(-9.570780000627304d+0*t40*t90*t91*t93+9.5707800006273 1962 : 04d+0*t42*t90*t93+t40*t42*(-9.570780000627304d+0*t40*t90* 1963 ; t91*t92+9.570780000627304d+0*t42*t90*t92+t40*t42*(-3.1902 1964 < 60000209101d+0*t222*t40*t43*t91-4.579991491020378d+1*t220 1965 = *t43*t91+3.190260000209101d+0*t222*t42*t43+4.579991491020 1966 > 378d+1*t220*t221*t40*t43)-3.190260000209101d+0*t222*t40*t 1967 ? 44*t91-4.579991491020378d+1*t220*t44*t91+3.19026000020910 1968 @ 1d+0*t222*t42*t44+4.579991491020378d+1*t220*t221*t40*t44) 1969 1 -3.190260000209101d+0*t222*t40*t45*t91-4.579991491020378d 1970 2 +1*t220*t45*t91+3.190260000209101d+0*t222*t42*t45+4.57999 1971 3 1491020378d+1*t220*t221*t40*t45)-3.190260000209101d+0*t22 1972 4 2*t40*t46*t91-4.579991491020378d+1*t220*t46*t91+3.1902600 1973 5 00209101d+0*t222*t42*t46+4.579991491020378d+1*t220*t221*t 1974 6 40*t46)-3.190260000209101d+0*t222*t40*t47*t91-4.579991491 1975 7 020378d+1*t220*t47*t91+3.190260000209101d+0*t222*t42*t47+ 1976 8 4.579991491020378d+1*t220*t221*t40*t47)-3.190260000209101 1977 9 d+0*t222*t40*t48*t91-4.579991491020378d+1*t220*t48*t91+3. 1978 : 190260000209101d+0*t222*t42*t48+4.579991491020378d+1*t220 1979 ; *t221*t40*t48)-3.190260000209101d+0*t222*t40*t49*t91-4.57 1980 < 9991491020378d+1*t220*t49*t91+3.190260000209101d+0*t222*t 1981 = 42*t49+4.579991491020378d+1*t220*t221*t40*t49)-3.19026000 1982 > 0209101d+0*t222*t40*t50*t91-4.579991491020378d+1*t220*t50 1983 ? *t91+3.190260000209101d+0*t222*t42*t50+4.579991491020378d 1984 @ +1*t220*t221*t40*t50)-3.190260000209101d+0*t222*t40*t51*t 1985 1 91-4.579991491020378d+1*t220*t51*t91+3.190260000209101d+0 1986 2 *t222*t42*t51+4.579991491020378d+1*t220*t221*t40*t51)-9.5 1987 3 70780000627304d+0*t100*t40*t90*t91-3.190260000209101d+0*t 1988 4 222*t40*t52*t91-4.579991491020378d+1*t220*t52*t91+9.57078 1989 5 0000627304d+0*t100*t42*t90+3.190260000209101d+0*t222*t42* 1990 6 t52+4.579991491020378d+1*t220*t221*t40*t52)-9.57078000062 1991 7 7304d+0*t101*t40*t90*t91-3.190260000209101d+0*t222*t40*t5 1992 8 3*t91-4.579991491020378d+1*t220*t53*t91+9.570780000627304 1993 9 d+0*t101*t42*t90+3.190260000209101d+0*t222*t42*t53+4.5799 1994 : 91491020378d+1*t220*t221*t40*t53) 1995 t224 = 2.0d+0*t102*t38 1996 t225 = t110**2 1997 t226 = 1/t11**2 1998 t227 = 6.21814d-2*t225*t226*t4 1999 t228 = 1/t1**2.3333333333333334d+0 2000 t229 = 1/t5**5 2001 t230 = 1/t1**1.6666666666666669d+0 2002 t231 = 2.539284902500284d+0*t108**2*t5/t9**3-1.2696424512501 2003 1 42d+0*t109*t5*(8.751370198886037d-2*t106*t230*t8+6.563527 2004 2 649164527d-2*t104*t229*t8+7.876233178997433d-1*t6*(8.7513 2005 3 70198886037d-2*t106*t230*t7+6.563527649164527d-2*t104*t22 2006 4 9*t7+4.753699179395351d-3*t228)-2.625411059665811d-1*t105 2007 5 *t106*t107)-1.4107138347223802d-1*t10*t230*t6-4.232141504 2008 6 16714d-1*t105*t108*t109*t6-3.52678458680595d-2*t10*t104*t 2009 7 106 2010 t232 = -6.21814d-2*t111*t231*t4 2011 t233 = 5.495546528376876d-3*t110*t111*t113 2012 t234 = 1/t1**2.333333333333333d+0 2013 t235 = -3.663697685584584d-3*t12*t234 2014 t236 = t118**2 2015 t237 = 1/t25**2 2016 t238 = -3.37738d-2*t20*t236*t237 2017 t239 = -1.269642451250142d+0*t117*t5*(7.876233178997433d-1*( 2018 1 8.751370198886037d-2*t106*t21*t230+6.563527649164527d-2*t 2019 2 104*t21*t229+2.601716490612924d-3*t228)*t6+8.751370198886 2020 3 037d-2*t106*t22*t230+6.563527649164527d-2*t104*t22*t229-2 2021 4 .625411059665811d-1*t105*t106*t115)-1.4107138347223802d-1 2022 5 *t230*t24*t6-4.23214150416714d-1*t105*t116*t117*t6+2.5392 2023 6 84902500284d+0*t116**2*t5/t23**3-3.52678458680595d-2*t104 2024 7 *t106*t24 2025 t240 = 3.37738d-2*t119*t20*t239 2026 t241 = -1.5539098445407465d-3*t113*t118*t119 2027 t242 = 1.0359398963604977d-3*t234*t26 2028 t243 = t27*t28*(1.709920934161365d+0*(-3.10907d-2*t126*t29*( 2029 1 -1.269642451250142d+0*t124*t5*(7.876233178997433d-1*(8.75 2030 2 1370198886037d-2*t106*t230*t30+6.563527649164527d-2*t104* 2031 3 t229*t30+3.0144339229749983d-3*t228)*t6+8.751370198886037 2032 4 d-2*t106*t230*t31+6.563527649164527d-2*t104*t229*t31-2.62 2033 5 5411059665811d-1*t105*t106*t122)-1.4107138347223802d-1*t2 2034 6 30*t33*t6-4.23214150416714d-1*t105*t123*t124*t6+2.5392849 2035 7 02500284d+0*t123**2*t5/t32**3-3.52678458680595d-2*t104*t1 2036 8 06*t33)+6.21814d-2*t111*t231*t4-6.21814d-2*t225*t226*t4-1 2037 9 .7613865241785687d-3*t234*t35+3.10907d-2*t125**2*t29/t34* 2038 : *2+3.663697685584584d-3*t12*t234+2.642079786267853d-3*t11 2039 ; 3*t125*t126-5.495546528376876d-3*t110*t111*t113)-1.035939 2040 < 8963604977d-3*t234*t26-3.37738d-2*t119*t20*t239+3.37738d- 2041 = 2*t20*t236*t237+1.5539098445407465d-3*t113*t118*t119) 2042 t244 = -8*t127*t129*t27 2043 t245 = 20*t27*t36/t1**6 2044 t246 = t13**2 2045 t247 = 12*t246*t28*t36 2046 t248 = t136**2 2047 t249 = 1/t55 2048 t250 = 1/t1**3 2049 t251 = -2*t13*t250 2050 t252 = 2*t133 2051 t253 = t252+t251 2052 t254 = t139**2 2053 t255 = 1/t56 2054 t256 = 2*t13*t250 2055 t257 = -2*t133 2056 t258 = t257+t256 2057 t259 = 5.848223622634648d-1*(2.564881401242048d+0*t140*t258+ 2058 1 8.549604670806825d-1*t254*t255+2.564881401242048d+0*t137* 2059 2 t253+8.549604670806825d-1*t248*t249)*t37+5.84822362263464 2060 3 8d-1*t19*(-32*t129*t131*t36+8*t127*t131*t28+t247+t245+t24 2061 4 4+t243+t242+t241+t240+t238)+t235+t233+t232+t227+1.1696447 2062 5 245269297d+0*t132*t141 2063 t260 = 3.109069086965489d-2*t1*t58*t76*(t40*t42*(t40*t42*(t4 2064 1 0*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t 2065 2 42*(t40*t42*(-3.190260000209101d+0*t222*t40*t78*t91-4.579 2066 3 991491020378d+1*t220*t78*t91+3.190260000209101d+0*t222*t4 2067 4 2*t78+4.579991491020378d+1*t220*t221*t40*t78)-9.570780000 2068 5 627304d+0*t144*t40*t90*t91-3.190260000209101d+0*t222*t40* 2069 6 t79*t91-4.579991491020378d+1*t220*t79*t91+9.5707800006273 2070 7 04d+0*t144*t42*t90+3.190260000209101d+0*t222*t42*t79+4.57 2071 8 9991491020378d+1*t220*t221*t40*t79)-9.570780000627304d+0* 2072 9 t145*t40*t90*t91-3.190260000209101d+0*t222*t40*t80*t91-4. 2073 : 579991491020378d+1*t220*t80*t91+9.570780000627304d+0*t145 2074 ; *t42*t90+3.190260000209101d+0*t222*t42*t80+4.579991491020 2075 < 378d+1*t220*t221*t40*t80)-9.570780000627304d+0*t146*t40*t 2076 = 90*t91-3.190260000209101d+0*t222*t40*t81*t91-4.5799914910 2077 > 20378d+1*t220*t81*t91+9.570780000627304d+0*t146*t42*t90+3 2078 ? .190260000209101d+0*t222*t42*t81+4.579991491020378d+1*t22 2079 @ 0*t221*t40*t81)-9.570780000627304d+0*t147*t40*t90*t91-3.1 2080 1 90260000209101d+0*t222*t40*t82*t91-4.579991491020378d+1*t 2081 2 220*t82*t91+9.570780000627304d+0*t147*t42*t90+3.190260000 2082 3 209101d+0*t222*t42*t82+4.579991491020378d+1*t220*t221*t40 2083 4 *t82)-9.570780000627304d+0*t148*t40*t90*t91-3.19026000020 2084 5 9101d+0*t222*t40*t83*t91-4.579991491020378d+1*t220*t83*t9 2085 6 1+9.570780000627304d+0*t148*t42*t90+3.190260000209101d+0* 2086 7 t222*t42*t83+4.579991491020378d+1*t220*t221*t40*t83)-9.57 2087 8 0780000627304d+0*t149*t40*t90*t91-3.190260000209101d+0*t2 2088 9 22*t40*t84*t91-4.579991491020378d+1*t220*t84*t91+9.570780 2089 : 000627304d+0*t149*t42*t90+3.190260000209101d+0*t222*t42*t 2090 ; 84+4.579991491020378d+1*t220*t221*t40*t84)-9.570780000627 2091 < 304d+0*t150*t40*t90*t91-3.190260000209101d+0*t222*t40*t85 2092 = *t91-4.579991491020378d+1*t220*t85*t91+9.570780000627304d 2093 > +0*t150*t42*t90+3.190260000209101d+0*t222*t42*t85+4.57999 2094 ? 1491020378d+1*t220*t221*t40*t85)-9.570780000627304d+0*t15 2095 @ 1*t40*t90*t91-3.190260000209101d+0*t222*t40*t86*t91-4.579 2096 1 991491020378d+1*t220*t86*t91+9.570780000627304d+0*t151*t4 2097 2 2*t90+3.190260000209101d+0*t222*t42*t86+4.579991491020378 2098 3 d+1*t220*t221*t40*t86)-9.570780000627304d+0*t152*t40*t90* 2099 4 t91-3.190260000209101d+0*t222*t40*t87*t91-4.5799914910203 2100 5 78d+1*t220*t87*t91+9.570780000627304d+0*t152*t42*t90+3.19 2101 6 0260000209101d+0*t222*t42*t87+4.579991491020378d+1*t220*t 2102 7 221*t40*t87)-9.570780000627304d+0*t153*t40*t90*t91-3.1902 2103 8 60000209101d+0*t222*t40*t88*t91-4.579991491020378d+1*t220 2104 9 *t88*t91+9.570780000627304d+0*t153*t42*t90+3.190260000209 2105 : 101d+0*t222*t42*t88+4.579991491020378d+1*t220*t221*t40*t8 2106 ; 8) 2107 t261 = 6.218138173930978d-2*t154*t58*t76 2108 t262 = 1/t75**2 2109 t263 = t159**2 2110 t264 = 1/t16 2111 t265 = 1/t18 2112 t266 = -1.111111111111111d-1*t254*t265-1.111111111111111d-1* 2113 1 t248*t264+3.333333333333333d-1*t158*t258+3.33333333333333 2114 2 3d-1*t157*t253 2115 t267 = t1**3.333333333333335d-1 2116 t268 = 1.1123881089968671d+0*t190*t267*t59*t63*t69*t74 2117 t269 = 1/t1**8.333333333333333d-1 2118 t270 = -5.297086233318417d-2*t161*t269*t59*t63*t69*t74 2119 t271 = 8.172647331405554d-1*t263*t59*t61*t67*t70 2120 t272 = -2.7242157771351844d-1*t266*t59*t61*t64*t67 2121 t273 = 1.2713006959964196d+0*t159*t160*t161*t59*t64*t67 2122 t274 = 1.1123881089968671d+0*t190*t267*t59*t63*t67 2123 t275 = -5.297086233318417d-2*t161*t269*t59*t63*t67 2124 t276 = 9.649190532874448d+1*t266*t38*t70+1.9298381065748896d 2125 1 +2*t142*t159*t70-3.216396844291483d+1*t259*t64-3.85967621 2126 2 3149779d+2*t173*t263*t38 2127 t277 = -1.3621078885675922d-1*t165*t276*t59*t61*t63*t65 2128 t278 = 5.448431554270369d-1*t159*t165*t166*t59*t61*t64*t65 2129 t279 = 6.356503479982097d-1*t160*t161*t165*t166*t59*t63*t65 2130 t280 = exp(-6.432793688582966d+1*t38*t64) 2131 t281 = 1/t66**3 2132 t282 = t166**2 2133 t283 = 2.7242157771351844d-1*t280*t281*t282*t59*t61*t63 2134 t284 = -1.3621078885675922d-1*t165*t282*t59*t61*t63*t65 2135 t285 = 1/t60**6.0d+0 2136 t286 = 5.050642061378063d-1*t170*t267*t285*t70*t72 2137 t287 = -1.4430405889651615d-2*t170*t171*t269*t70*t72 2138 t288 = 1/t57**6.0d+0 2139 t289 = 1/t66**4.0d+0 2140 t290 = 1/t73**3 2141 t291 = 5.848223622634648d-1*(8.549604670806825d-1*t139*t180* 2142 1 t255+5.129762802484096d+0*t13*t140*t250-5.129762802484096 2143 2 d+0*t13*t137*t250+8.549604670806825d-1*t136*t179*t249)*t3 2144 3 7+5.848223622634648d-1*t19*(-12*t246*t28*t36+t245+t244+t2 2145 4 43+t242+t241+t240+t238)+t235+t233+t232+t227+5.84822362263 2146 5 4648d-1*t132*t181+5.848223622634648d-1*t141*t178 2147 t292 = -1.111111111111111d-1*t139*t180*t265-1.11111111111111 2148 1 1d-1*t136*t179*t264+6.666666666666666d-1*t13*t158*t250-6. 2149 2 666666666666666d-1*t13*t157*t250 2150 t293 = 8.172647331405554d-1*t159*t183*t59*t61*t67*t70 2151 t294 = -2.7242157771351844d-1*t292*t59*t61*t64*t67 2152 t295 = 6.356503479982097d-1*t160*t161*t183*t59*t64*t67 2153 t296 = 6.356503479982097d-1*t159*t160*t161*t59*t64*t67 2154 t297 = 9.649190532874448d+1*t292*t38*t70+9.649190532874448d+ 2155 1 1*t142*t183*t70+9.649190532874448d+1*t159*t182*t70-3.2163 2156 2 96844291483d+1*t291*t64-3.859676213149779d+2*t159*t173*t1 2157 3 83*t38 2158 t298 = -1.3621078885675922d-1*t165*t297*t59*t61*t63*t65 2159 t299 = 2.7242157771351844d-1*t159*t165*t185*t59*t61*t64*t65 2160 t300 = 3.1782517399910487d-1*t160*t161*t165*t185*t59*t63*t65 2161 t301 = 2.7242157771351844d-1*t165*t166*t183*t59*t61*t64*t65 2162 t302 = 3.1782517399910487d-1*t160*t161*t165*t166*t59*t63*t65 2163 t303 = 2.7242157771351844d-1*t166*t185*t280*t281*t59*t61*t63 2164 t304 = -1.3621078885675922d-1*t165*t166*t185*t59*t61*t63*t65 2165 t305 = t179**2 2166 t306 = t257+t251 2167 t307 = t180**2 2168 t308 = t256+t252 2169 t309 = 5.848223622634648d-1*(2.564881401242048d+0*t140*t308+ 2170 1 8.549604670806825d-1*t255*t307+2.564881401242048d+0*t137* 2171 2 t306+8.549604670806825d-1*t249*t305)*t37+5.84822362263464 2172 3 8d-1*t19*(32*t129*t131*t36-8*t127*t131*t28+t247+t245+t244 2173 4 +t243+t242+t241+t240+t238)+t235+t233+t232+t227+1.16964472 2174 5 45269297d+0*t178*t181 2175 t310 = t183**2 2176 t311 = 3.333333333333333d-1*t158*t308-1.111111111111111d-1*t 2177 1 265*t307+3.333333333333333d-1*t157*t306-1.111111111111111 2178 2 d-1*t264*t305 2179 t312 = 8.172647331405554d-1*t310*t59*t61*t67*t70 2180 t313 = -2.7242157771351844d-1*t311*t59*t61*t64*t67 2181 t314 = 1.2713006959964196d+0*t160*t161*t183*t59*t64*t67 2182 t315 = 9.649190532874448d+1*t311*t38*t70+1.9298381065748896d 2183 1 +2*t182*t183*t70-3.216396844291483d+1*t309*t64-3.85967621 2184 2 3149779d+2*t173*t310*t38 2185 t316 = -1.3621078885675922d-1*t165*t315*t59*t61*t63*t65 2186 t317 = 5.448431554270369d-1*t165*t183*t185*t59*t61*t64*t65 2187 t318 = 6.356503479982097d-1*t160*t161*t165*t185*t59*t63*t65 2188 t319 = t185**2 2189 t320 = 2.7242157771351844d-1*t280*t281*t319*t59*t61*t63 2190 t321 = -1.3621078885675922d-1*t165*t319*t59*t61*t63*t65 2191 t322 = 3.109069086965489d-2*t1*t154*t192*t58 2192 t323 = 3.109069086965489d-2*t192*t58*t89 2193 t324 = 3.1782517399910487d-1*t160*t161*t169*t191*t59*t63*t69 2194 t325 = -3.1782517399910487d-1*t160*t161*t63*t69*t74 2195 t326 = -4.3291217668954834d-2*t160*t171*t59*t67*t70*t74 2196 t327 = -2.7242157771351844d-1*t159*t61*t64*t67 2197 t328 = -3.1782517399910487d-1*t160*t161*t63*t67 2198 t329 = -1.3621078885675922d-1*t165*t166*t61*t63*t65 2199 t330 = -1.7316487067581932d-1*t160*t171*t59*t70*t72 2200 t331 = 1.0d+0*(t156*(3.109069086965489d-2*t1*t58*(-2.7242157 2201 1 771351844d-1*t159*t61*t64*t69*t74-3.710675800196128d-2*t1 2202 2 59*t173*t190*t59*t67*t74+1.3621078885675922d-1*(t329+t328 2203 3 +t327)*t59*t61*t63*t74+1.3621078885675922d-1*t168*t61*t63 2204 4 *t74-1.3621078885675922d-1*t169*t59*t61*t63*t69*(-1.48427 2205 5 03200784513d-1*t159*t173*t190*t59*t72-7.421351600392256d- 2206 6 2*t166*t174*t190*t59*t65*t70+t330+t329+t328+t327)-1.85533 2207 7 7900098064d-2*t169*t175*t190*t59*t67*t70+2.72421577713518 2208 8 44d-1*t159*t169*t191*t59*t61*t64*t69+2.7242157771351844d- 2209 9 1*t175*t191*t290*t59*t61*t63*t69-1.3621078885675922d-1*t1 2210 : 69*t175*t61*t63*t69-1.3621078885675922d-1*t168*t169*t191* 2211 ; t59*t61*t63+t326+t325+t324)*t89+9.327207260896466d-2*t1*t 2212 < 159*t192*t62*t89+t323+t322)-3.109069086965489d-2*t1*t176* 2213 = t192*t262*t58*t89)*wght 2214 t332 = 3.109069086965489d-2*t1*t154*t195*t58 2215 t333 = 3.109069086965489d-2*t195*t58*t89 2216 t334 = 3.1782517399910487d-1*t160*t161*t169*t194*t59*t63*t69 2217 t335 = -6.356503479982097d-1*t160*t161*t63*t69*t74 2218 t336 = -8.658243533790967d-2*t160*t171*t59*t67*t70*t74 2219 t337 = -5.448431554270369d-1*t159*t61*t64*t67 2220 t338 = -6.356503479982097d-1*t160*t161*t63*t67 2221 t339 = -2.7242157771351844d-1*t165*t166*t61*t63*t65 2222 t340 = -3.4632974135163863d-1*t160*t171*t59*t70*t72 2223 t341 = -2.7242157771351844d-1*t183*t61*t64*t67 2224 t342 = -1.3621078885675922d-1*t165*t185*t61*t63*t65 2225 t343 = 1.0d+0*(t156*(3.109069086965489d-2*t1*t58*(-2.7242157 2226 1 771351844d-1*t183*t61*t64*t69*t74-3.710675800196128d-2*t1 2227 2 73*t183*t190*t59*t67*t74+1.3621078885675922d-1*(t342+t341 2228 3 +t328)*t59*t61*t63*t74+1.3621078885675922d-1*t187*t61*t63 2229 4 *t74-1.3621078885675922d-1*t169*t59*t61*t63*t69*(-1.48427 2230 5 03200784513d-1*t173*t183*t190*t59*t72-7.421351600392256d- 2231 6 2*t174*t185*t190*t59*t65*t70+t342+t341+t330+t328)-1.85533 2232 7 7900098064d-2*t169*t188*t190*t59*t67*t70+2.72421577713518 2233 8 44d-1*t169*t183*t191*t59*t61*t64*t69+2.7242157771351844d- 2234 9 1*t188*t191*t290*t59*t61*t63*t69-1.3621078885675922d-1*t1 2235 : 69*t188*t61*t63*t69-1.3621078885675922d-1*t169*t187*t191* 2236 ; t59*t61*t63+t326+t325+t324)*t89+9.327207260896466d-2*t1*t 2237 < 183*t192*t62*t89+t323+t322)-3.109069086965489d-2*t1*t189* 2238 = t192*t262*t58*t89)*wght 2239 t344 = -5.448431554270369d-1*t183*t61*t64*t67 2240 t345 = -2.7242157771351844d-1*t165*t185*t61*t63*t65 2241 t346 = -2.7242157771351844d-1*t169*t191*t61*t63*t69 2242 t347 = -3.710675800196128d-2*t169*t190*t191*t59*t67*t70 2243 t348 = 3.109069086965489d-2*t1*t156*t58*(3.710675800196128d- 2244 1 2*t190*t67*t70*t74-5.054340779364009d-3*t169*t285*t288*t5 2245 2 9*t69*t72+2.7242157771351844d-1*t191**2*t290*t59*t61*t63* 2246 3 t69+t347+t346)*t89*wght-3.109069086965489d-2*t1*t192**2*t 2247 4 262*t58*t89*wght 2248 t349 = 3.109069086965489d-2*t1*t156*t58*(7.421351600392256d- 2249 1 2*t190*t67*t70*t74-1.0108681558728018d-2*t169*t285*t288*t 2250 2 59*t69*t72-1.855337900098064d-2*t169*t190*t194*t59*t67*t7 2251 3 0+2.7242157771351844d-1*t191*t194*t290*t59*t61*t63*t69-1. 2252 4 3621078885675922d-1*t169*t194*t61*t63*t69+t347+t346)*t89* 2253 5 wght-3.109069086965489d-2*t1*t192*t195*t262*t58*t89*wght 2254 t350 = t40**2 2255 t351 = 1/t41**4 2256 t352 = 1.0d+0*t1*t38*(t40*t42*(t40*t42*(-t40*t91*t99-t42*t99 2257 1 +t40*t42*(-t40*t91*t98-t42*t98+t40*t42*(-t40*t91*t97-t42* 2258 2 t97+t40*t42*(-t40*t91*t96-t42*t96+t40*t42*(-t40*t91*t95-t 2259 3 42*t95+t40*t42*(-t40*t91*t94-t42*t94+t40*t42*(-t40*t91*t9 2260 4 3-t42*t93+t40*t42*(-t40*t91*t92-t42*t92-4.785390000313652 2261 5 d+0*t196*t40*t90*t91+9.570780000627304d+0*t221*t40*t44*t9 2262 6 0+9.570780000627304d+0*t350*t351*t43*t90+4.78539000031365 2263 7 2d+0*t196*t42*t90)-4.785390000313652d+0*t197*t40*t90*t91+ 2264 8 9.570780000627304d+0*t221*t40*t45*t90+4.785390000313652d+ 2265 9 0*t197*t42*t90)-4.785390000313652d+0*t198*t40*t90*t91+9.5 2266 : 70780000627304d+0*t221*t40*t46*t90+4.785390000313652d+0*t 2267 ; 198*t42*t90)-4.785390000313652d+0*t199*t40*t90*t91+9.5707 2268 < 80000627304d+0*t221*t40*t47*t90+4.785390000313652d+0*t199 2269 = *t42*t90)-4.785390000313652d+0*t200*t40*t90*t91+9.5707800 2270 > 00627304d+0*t221*t40*t48*t90+4.785390000313652d+0*t200*t4 2271 ? 2*t90)-4.785390000313652d+0*t201*t40*t90*t91+9.5707800006 2272 @ 27304d+0*t221*t40*t49*t90+4.785390000313652d+0*t201*t42*t 2273 1 90)-4.785390000313652d+0*t202*t40*t90*t91+9.5707800006273 2274 2 04d+0*t221*t40*t50*t90+4.785390000313652d+0*t202*t42*t90) 2275 3 -4.785390000313652d+0*t203*t40*t90*t91+9.570780000627304d 2276 4 +0*t221*t40*t51*t90+4.785390000313652d+0*t203*t42*t90)-4. 2277 5 785390000313652d+0*t204*t40*t90*t91-t100*t40*t91+9.570780 2278 6 000627304d+0*t221*t40*t52*t90+4.785390000313652d+0*t204*t 2279 7 42*t90-t100*t42)-4.785390000313652d+0*t205*t40*t90*t91-t1 2280 8 01*t40*t91+9.570780000627304d+0*t221*t40*t53*t90+4.785390 2281 9 000313652d+0*t205*t42*t90-t101*t42) 2282 t353 = 1.0d+0*t206*t38 2283 t354 = 3.109069086965489d-2*t1*t58*t76*(t40*t42*(t40*t42*(t4 2284 1 0*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t 2285 2 42*(-4.785390000313652d+0*t207*t40*t90*t91-t144*t40*t91+9 2286 3 .570780000627304d+0*t221*t40*t79*t90+9.570780000627304d+0 2287 4 *t350*t351*t78*t90+4.785390000313652d+0*t207*t42*t90-t144 2288 5 *t42)-4.785390000313652d+0*t208*t40*t90*t91-t145*t40*t91+ 2289 6 9.570780000627304d+0*t221*t40*t80*t90+4.785390000313652d+ 2290 7 0*t208*t42*t90-t145*t42)-4.785390000313652d+0*t209*t40*t9 2291 8 0*t91-t146*t40*t91+9.570780000627304d+0*t221*t40*t81*t90+ 2292 9 4.785390000313652d+0*t209*t42*t90-t146*t42)-4.78539000031 2293 : 3652d+0*t210*t40*t90*t91-t147*t40*t91+9.570780000627304d+ 2294 ; 0*t221*t40*t82*t90+4.785390000313652d+0*t210*t42*t90-t147 2295 < *t42)-4.785390000313652d+0*t211*t40*t90*t91-t148*t40*t91+ 2296 = 9.570780000627304d+0*t221*t40*t83*t90+4.785390000313652d+ 2297 > 0*t211*t42*t90-t148*t42)-4.785390000313652d+0*t212*t40*t9 2298 ? 0*t91-t149*t40*t91+9.570780000627304d+0*t221*t40*t84*t90+ 2299 @ 4.785390000313652d+0*t212*t42*t90-t149*t42)-4.78539000031 2300 1 3652d+0*t213*t40*t90*t91-t150*t40*t91+9.570780000627304d+ 2301 2 0*t221*t40*t85*t90+4.785390000313652d+0*t213*t42*t90-t150 2302 3 *t42)-4.785390000313652d+0*t214*t40*t90*t91-t151*t40*t91+ 2303 4 9.570780000627304d+0*t221*t40*t86*t90+4.785390000313652d+ 2304 5 0*t214*t42*t90-t151*t42)-4.785390000313652d+0*t215*t40*t9 2305 6 0*t91-t152*t40*t91+9.570780000627304d+0*t221*t40*t87*t90+ 2306 7 4.785390000313652d+0*t215*t42*t90-t152*t42)-4.78539000031 2307 8 3652d+0*t216*t40*t90*t91-t153*t40*t91+9.570780000627304d+ 2308 9 0*t221*t40*t88*t90+4.785390000313652d+0*t216*t42*t90-t153 2309 : *t42) 2310 t355 = 3.109069086965489d-2*t218*t58*t76 2311 t356 = 1.0d+0*(9.327207260896466d-2*t1*t159*t218*t62*t76+3.1 2312 1 09069086965489d-2*t1*t156*t176*t218*t58+t355+t354+t353+t3 2313 2 52+1.0d+0*t1*t142*t206)*wght 2314 t357 = 1.0d+0*(9.327207260896466d-2*t1*t183*t218*t62*t76+3.1 2315 1 09069086965489d-2*t1*t156*t189*t218*t58+t355+t354+t353+t3 2316 2 52+1.0d+0*t1*t182*t206)*wght 2317 t358 = t42*(-t40*t42*t87-t77+t216*t40)+t217 2318 t359 = 3.109069086965489d-2*t1*t156*t192*t358*t58*wght 2319 t360 = 3.109069086965489d-2*t1*t156*t195*t358*t58*wght 2320 t361 = 1.0d+0*(3.109069086965489d-2*t1*t58*t76*(t40*t42*(t40 2321 1 *t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t4 2322 2 2*(t40*t42*(t40*t42*(2*t78*t91+2*t221*t40*t78)+2*t79*t91- 2323 3 2*t207*t40*t91+2*t221*t40*t79-2*t207*t42)+2*t80*t91-2*t20 2324 4 8*t40*t91+2*t221*t40*t80-2*t208*t42)+2*t81*t91-2*t209*t40 2325 5 *t91+2*t221*t40*t81-2*t209*t42)+2*t82*t91-2*t210*t40*t91+ 2326 6 2*t221*t40*t82-2*t210*t42)+2*t83*t91-2*t211*t40*t91+2*t22 2327 7 1*t40*t83-2*t211*t42)+2*t84*t91-2*t212*t40*t91+2*t221*t40 2328 8 *t84-2*t212*t42)+2*t85*t91-2*t213*t40*t91+2*t221*t40*t85- 2329 9 2*t213*t42)+2*t86*t91-2*t214*t40*t91+2*t221*t40*t86-2*t21 2330 : 4*t42)+2*t87*t91-2*t215*t40*t91+2*t221*t40*t87-2*t215*t42 2331 ; )+2*t88*t91-2*t216*t40*t91+2*t221*t40*t88-2*t216*t42)+1.0 2332 < d+0*t1*t38*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*( 2333 = t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(2*t43*t91+2* 2334 > t221*t40*t43)+2*t44*t91-2*t196*t40*t91+2*t221*t40*t44-2*t 2335 ? 196*t42)+2*t45*t91-2*t197*t40*t91+2*t221*t40*t45-2*t197*t 2336 @ 42)+2*t46*t91-2*t198*t40*t91+2*t221*t40*t46-2*t198*t42)+2 2337 1 *t47*t91-2*t199*t40*t91+2*t221*t40*t47-2*t199*t42)+2*t48* 2338 2 t91-2*t200*t40*t91+2*t221*t40*t48-2*t200*t42)+2*t49*t91-2 2339 3 *t201*t40*t91+2*t221*t40*t49-2*t201*t42)+2*t50*t91-2*t202 2340 4 *t40*t91+2*t221*t40*t50-2*t202*t42)+2*t51*t91-2*t203*t40* 2341 5 t91+2*t221*t40*t51-2*t203*t42)+2*t52*t91-2*t204*t40*t91+2 2342 6 *t221*t40*t52-2*t204*t42)+2*t53*t91-2*t205*t40*t91+2*t221 2343 7 *t40*t53-2*t205*t42))*wght 2344 fnc(iq) = 1.0d+0*(3.109069086965489d-2*t1*t58*t76*t89+1.0d+0 2345 1 *t1*t38*t54)*wght+fnc(iq) 2346 Amat(iq,D1_RA) = 1.0d+0*(9.327207260896466d-2*t1*t159*t62*t7 2347 1 6*t89+3.109069086965489d-2*t1*t156*t176*t58*t89+1.0d+0*t1 2348 2 *t142*t54+t177+t155+t143+t103)*wght+Amat(iq,D1_RA) 2349 Amat(iq,D1_RB) = 1.0d+0*(9.327207260896466d-2*t1*t183*t62*t7 2350 1 6*t89+3.109069086965489d-2*t1*t156*t189*t58*t89+1.0d+0*t1 2351 2 *t182*t54+t177+t155+t143+t103)*wght+Amat(iq,D1_RB) 2352 Cmat(iq,D1_GAA) = t193+Cmat(iq,D1_GAA) 2353 Cmat(iq,D1_GAB) = 3.109069086965489d-2*t1*t156*t195*t58*t89* 2354 1 wght+Cmat(iq,D1_GAB) 2355 Cmat(iq,D1_GBB) = t193+Cmat(iq,D1_GBB) 2356 Mmat(iq,D1_TA) = t219+Mmat(iq,D1_TA) 2357 Mmat(iq,D1_TB) = t219+Mmat(iq,D1_TB) 2358 Amat2(iq,D2_RA_RA) = 1.0d+0*(t156*(3.109069086965489d-2*t1*t 2359 1 58*(8.172647331405554d-1*t263*t59*t61*t69*t70*t74-2.72421 2360 2 57771351844d-1*t266*t59*t61*t64*t69*t74+1.271300695996419 2361 3 6d+0*t159*t160*t161*t59*t64*t69*t74-5.448431554270369d-1* 2362 4 t159*t168*t59*t61*t64*t74+1.3621078885675922d-1*(t284+t28 2363 5 3+t279+t278+t277+t275+t274+t273+t272+t271)*t59*t61*t63*t7 2364 6 4-6.356503479982097d-1*t160*t161*t168*t59*t63*t74-1.36210 2365 7 78885675922d-1*t169*t59*t61*t63*t69*(3.710675800196128d-1 2366 8 *t263*t288*t71*t72-7.421351600392256d-2*t173*t266*t71*t72 2367 9 +6.926594827032773d-1*t159*t160*t170*t171*t173*t72-3.7106 2368 : 75800196128d-2*t174*t282*t65*t70*t71-3.710675800196128d-2 2369 ; *t174*t276*t65*t70*t71+1.1132027400588385d-1*t280*t282*t2 2370 < 89*t70*t71+2.9685406401569026d-1*t159*t166*t173*t174*t65* 2371 = t71+3.4632974135163863d-1*t160*t166*t170*t171*t174*t65*t7 2372 > 0+t287+t286+t284+t283+t279+t278+t277+t275+t274+t273+t272+ 2373 ? t271)+5.448431554270369d-1*t159*t169*t175*t59*t61*t64*t69 2374 @ +2.7242157771351844d-1*t175**2*t290*t59*t61*t63*t69+6.356 2375 1 503479982097d-1*t160*t161*t169*t175*t59*t63*t69-2.7242157 2376 2 771351844d-1*t168*t169*t175*t59*t61*t63+t270+t268)*t89+1. 2377 3 8654414521792934d-1*t1*t159*t176*t62*t89+6.21813817393097 2378 4 8d-2*t176*t58*t89+6.218138173930978d-2*t1*t154*t176*t58)+ 2379 5 9.327207260896466d-2*t1*t266*t62*t76*t89+1.86544145217929 2380 6 34d-1*t159*t62*t76*t89+1.8654414521792934d-1*t1*t263*t57* 2381 7 t76*t89-3.109069086965489d-2*t1*t176**2*t262*t58*t89+1.86 2382 8 54414521792934d-1*t1*t154*t159*t62*t76+1.0d+0*t1*t259*t54 2383 9 +2.0d+0*t142*t54+t261+t260+t224+t223+2.0d+0*t1*t102*t142) 2384 : *wght+Amat2(iq,D2_RA_RA) 2385 Amat2(iq,D2_RA_RB) = 1.0d+0*(t156*(3.109069086965489d-2*t1*t 2386 1 58*(8.172647331405554d-1*t159*t183*t59*t61*t69*t70*t74-2. 2387 2 7242157771351844d-1*t292*t59*t61*t64*t69*t74+6.3565034799 2388 3 82097d-1*t160*t161*t183*t59*t64*t69*t74+6.356503479982097 2389 4 d-1*t159*t160*t161*t59*t64*t69*t74-2.7242157771351844d-1* 2390 5 t159*t187*t59*t61*t64*t74-2.7242157771351844d-1*t168*t183 2391 6 *t59*t61*t64*t74+1.3621078885675922d-1*(t304+t303+t302+t3 2392 7 01+t300+t299+t298+t296+t295+t294+t293+t275+t274)*t59*t61* 2393 8 t63*t74-3.1782517399910487d-1*t160*t161*t187*t59*t63*t74- 2394 9 3.1782517399910487d-1*t160*t161*t168*t59*t63*t74-1.362107 2395 : 8885675922d-1*t169*t59*t61*t63*t69*(-7.421351600392256d-2 2396 ; *t173*t292*t71*t72+3.710675800196128d-1*t159*t183*t288*t7 2397 < 1*t72+3.4632974135163863d-1*t160*t170*t171*t173*t183*t72+ 2398 = 3.4632974135163863d-1*t159*t160*t170*t171*t173*t72-3.7106 2399 > 75800196128d-2*t174*t297*t65*t70*t71-3.710675800196128d-2 2400 ? *t166*t174*t185*t65*t70*t71+1.1132027400588385d-1*t166*t1 2401 @ 85*t280*t289*t70*t71+1.4842703200784513d-1*t159*t173*t174 2402 1 *t185*t65*t71+1.4842703200784513d-1*t166*t173*t174*t183*t 2403 2 65*t71+1.7316487067581932d-1*t160*t170*t171*t174*t185*t65 2404 3 *t70+1.7316487067581932d-1*t160*t166*t170*t171*t174*t65*t 2405 4 70+t304+t303+t302+t301+t300+t299+t298+t296+t295+t294+t293 2406 5 +t287+t286+t275+t274)+2.7242157771351844d-1*t159*t169*t18 2407 6 8*t59*t61*t64*t69+2.7242157771351844d-1*t169*t175*t183*t5 2408 7 9*t61*t64*t69+2.7242157771351844d-1*t175*t188*t290*t59*t6 2409 8 1*t63*t69+3.1782517399910487d-1*t160*t161*t169*t188*t59*t 2410 9 63*t69+3.1782517399910487d-1*t160*t161*t169*t175*t59*t63* 2411 : t69-1.3621078885675922d-1*t168*t169*t188*t59*t61*t63-1.36 2412 ; 21078885675922d-1*t169*t175*t187*t59*t61*t63+t270+t268)*t 2413 < 89+9.327207260896466d-2*t1*t159*t189*t62*t89+9.3272072608 2414 = 96466d-2*t1*t176*t183*t62*t89+3.109069086965489d-2*t189*t 2415 > 58*t89+3.109069086965489d-2*t176*t58*t89+3.10906908696548 2416 ? 9d-2*t1*t154*t189*t58+3.109069086965489d-2*t1*t154*t176*t 2417 @ 58)+9.327207260896466d-2*t1*t292*t62*t76*t89+9.3272072608 2418 1 96466d-2*t183*t62*t76*t89+9.327207260896466d-2*t159*t62*t 2419 2 76*t89+1.8654414521792934d-1*t1*t159*t183*t57*t76*t89-3.1 2420 3 09069086965489d-2*t1*t176*t189*t262*t58*t89+9.32720726089 2421 4 6466d-2*t1*t154*t183*t62*t76+9.327207260896466d-2*t1*t154 2422 5 *t159*t62*t76+1.0d+0*t1*t291*t54+1.0d+0*t182*t54+1.0d+0*t 2423 6 142*t54+t261+t260+t224+t223+1.0d+0*t1*t102*t182+1.0d+0*t1 2424 7 *t102*t142)*wght+Amat2(iq,D2_RA_RB) 2425 Amat2(iq,D2_RB_RB) = 1.0d+0*(t156*(3.109069086965489d-2*t1*t 2426 1 58*(8.172647331405554d-1*t310*t59*t61*t69*t70*t74-2.72421 2427 2 57771351844d-1*t311*t59*t61*t64*t69*t74+1.271300695996419 2428 3 6d+0*t160*t161*t183*t59*t64*t69*t74-5.448431554270369d-1* 2429 4 t183*t187*t59*t61*t64*t74+1.3621078885675922d-1*(t321+t32 2430 5 0+t318+t317+t316+t314+t313+t312+t275+t274)*t59*t61*t63*t7 2431 6 4-6.356503479982097d-1*t160*t161*t187*t59*t63*t74-1.36210 2432 7 78885675922d-1*t169*t59*t61*t63*t69*(-7.421351600392256d- 2433 8 2*t173*t311*t71*t72+3.710675800196128d-1*t288*t310*t71*t7 2434 9 2+6.926594827032773d-1*t160*t170*t171*t173*t183*t72-3.710 2435 : 675800196128d-2*t174*t319*t65*t70*t71-3.710675800196128d- 2436 ; 2*t174*t315*t65*t70*t71+1.1132027400588385d-1*t280*t289*t 2437 < 319*t70*t71+2.9685406401569026d-1*t173*t174*t183*t185*t65 2438 = *t71+3.4632974135163863d-1*t160*t170*t171*t174*t185*t65*t 2439 > 70+t321+t320+t318+t317+t316+t314+t313+t312+t287+t286+t275 2440 ? +t274)+5.448431554270369d-1*t169*t183*t188*t59*t61*t64*t6 2441 @ 9+2.7242157771351844d-1*t188**2*t290*t59*t61*t63*t69+6.35 2442 1 6503479982097d-1*t160*t161*t169*t188*t59*t63*t69-2.724215 2443 2 7771351844d-1*t169*t187*t188*t59*t61*t63+t270+t268)*t89+1 2444 3 .8654414521792934d-1*t1*t183*t189*t62*t89+6.2181381739309 2445 4 78d-2*t189*t58*t89+6.218138173930978d-2*t1*t154*t189*t58) 2446 5 +9.327207260896466d-2*t1*t311*t62*t76*t89+1.8654414521792 2447 6 934d-1*t183*t62*t76*t89+1.8654414521792934d-1*t1*t310*t57 2448 7 *t76*t89-3.109069086965489d-2*t1*t189**2*t262*t58*t89+1.8 2449 8 654414521792934d-1*t1*t154*t183*t62*t76+1.0d+0*t1*t309*t5 2450 9 4+2.0d+0*t182*t54+t261+t260+t224+t223+2.0d+0*t1*t102*t182 2451 : )*wght+Amat2(iq,D2_RB_RB) 2452 Cmat2(iq,D2_RA_GAA) = t331+Cmat2(iq,D2_RA_GAA) 2453 Cmat2(iq,D2_RA_GAB) = 1.0d+0*(t156*(3.109069086965489d-2*t1* 2454 1 t58*(-5.448431554270369d-1*t159*t61*t64*t69*t74-7.4213516 2455 2 00392256d-2*t159*t173*t190*t59*t67*t74+1.3621078885675922 2456 3 d-1*(t339+t338+t337)*t59*t61*t63*t74+2.7242157771351844d- 2457 4 1*t168*t61*t63*t74-1.3621078885675922d-1*t169*t59*t61*t63 2458 5 *t69*(-2.9685406401569026d-1*t159*t173*t190*t59*t72-1.484 2459 6 2703200784513d-1*t166*t174*t190*t59*t65*t70+t340+t339+t33 2460 7 8+t337)-3.710675800196128d-2*t169*t175*t190*t59*t67*t70+2 2461 8 .7242157771351844d-1*t159*t169*t194*t59*t61*t64*t69+2.724 2462 9 2157771351844d-1*t175*t194*t290*t59*t61*t63*t69-2.7242157 2463 : 771351844d-1*t169*t175*t61*t63*t69-1.3621078885675922d-1* 2464 ; t168*t169*t194*t59*t61*t63+t336+t335+t334)*t89+9.32720726 2465 < 0896466d-2*t1*t159*t195*t62*t89+t333+t332)-3.109069086965 2466 = 489d-2*t1*t176*t195*t262*t58*t89)*wght+Cmat2(iq,D2_RA_GAB 2467 > ) 2468 Cmat2(iq,D2_RA_GBB) = t331+Cmat2(iq,D2_RA_GBB) 2469 Cmat2(iq,D2_RB_GAA) = t343+Cmat2(iq,D2_RB_GAA) 2470 Cmat2(iq,D2_RB_GAB) = 1.0d+0*(t156*(3.109069086965489d-2*t1* 2471 1 t58*(-5.448431554270369d-1*t183*t61*t64*t69*t74-7.4213516 2472 2 00392256d-2*t173*t183*t190*t59*t67*t74+1.3621078885675922 2473 3 d-1*(t345+t344+t338)*t59*t61*t63*t74+2.7242157771351844d- 2474 4 1*t187*t61*t63*t74-1.3621078885675922d-1*t169*t59*t61*t63 2475 5 *t69*(-2.9685406401569026d-1*t173*t183*t190*t59*t72-1.484 2476 6 2703200784513d-1*t174*t185*t190*t59*t65*t70+t345+t344+t34 2477 7 0+t338)-3.710675800196128d-2*t169*t188*t190*t59*t67*t70+2 2478 8 .7242157771351844d-1*t169*t183*t194*t59*t61*t64*t69+2.724 2479 9 2157771351844d-1*t188*t194*t290*t59*t61*t63*t69-2.7242157 2480 : 771351844d-1*t169*t188*t61*t63*t69-1.3621078885675922d-1* 2481 ; t169*t187*t194*t59*t61*t63+t336+t335+t334)*t89+9.32720726 2482 < 0896466d-2*t1*t183*t195*t62*t89+t333+t332)-3.109069086965 2483 = 489d-2*t1*t189*t195*t262*t58*t89)*wght+Cmat2(iq,D2_RB_GAB 2484 > ) 2485 Cmat2(iq,D2_RB_GBB) = t343+Cmat2(iq,D2_RB_GBB) 2486 Cmat2(iq,D2_GAA_GAA) = t348+Cmat2(iq,D2_GAA_GAA) 2487 Cmat2(iq,D2_GAA_GAB) = t349+Cmat2(iq,D2_GAA_GAB) 2488 Cmat2(iq,D2_GAA_GBB) = t348+Cmat2(iq,D2_GAA_GBB) 2489 Cmat2(iq,D2_GAB_GAB) = 3.109069086965489d-2*t1*t156*t58*(1.4 2490 1 842703200784513d-1*t190*t67*t70*t74-2.0217363117456036d-2 2491 2 *t169*t285*t288*t59*t69*t72-7.421351600392256d-2*t169*t19 2492 3 0*t194*t59*t67*t70+2.7242157771351844d-1*t194**2*t290*t59 2493 4 *t61*t63*t69-5.448431554270369d-1*t169*t194*t61*t63*t69)* 2494 5 t89*wght-3.109069086965489d-2*t1*t195**2*t262*t58*t89*wgh 2495 6 t+Cmat2(iq,D2_GAB_GAB) 2496 Cmat2(iq,D2_GAB_GBB) = t349+Cmat2(iq,D2_GAB_GBB) 2497 Cmat2(iq,D2_GBB_GBB) = t348+Cmat2(iq,D2_GBB_GBB) 2498 Mmat2(iq,D2_RA_TA) = t356+Mmat2(iq,D2_RA_TA) 2499 Mmat2(iq,D2_RA_TB) = t356+Mmat2(iq,D2_RA_TB) 2500 Mmat2(iq,D2_RB_TA) = t357+Mmat2(iq,D2_RB_TA) 2501 Mmat2(iq,D2_RB_TB) = t357+Mmat2(iq,D2_RB_TB) 2502 Mmat2(iq,D2_GAA_TA) = t359+Mmat2(iq,D2_GAA_TA) 2503 Mmat2(iq,D2_GAA_TB) = t359+Mmat2(iq,D2_GAA_TB) 2504 Mmat2(iq,D2_GAB_TA) = t360+Mmat2(iq,D2_GAB_TA) 2505 Mmat2(iq,D2_GAB_TB) = t360+Mmat2(iq,D2_GAB_TB) 2506 Mmat2(iq,D2_GBB_TA) = t359+Mmat2(iq,D2_GBB_TA) 2507 Mmat2(iq,D2_GBB_TB) = t359+Mmat2(iq,D2_GBB_TB) 2508 Mmat2(iq,D2_TA_TA) = t361+Mmat2(iq,D2_TA_TA) 2509 Mmat2(iq,D2_TA_TB) = t361+Mmat2(iq,D2_TA_TB) 2510 Mmat2(iq,D2_TB_TB) = t361+Mmat2(iq,D2_TB_TB) 2511 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 2512 t1 = rhoa**3.333333333333333d-1 2513 t2 = t1**5.0d-1 2514 t3 = 1/t2 2515 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 2516 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 2517 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 2518 t7 = 1/t6 2519 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 2520 t9 = log(t8) 2521 t10 = 1/t1 2522 t11 = 1.2746961887000874d-1*t10+1.0d+0 2523 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 2524 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 2525 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 2526 t15 = 1/t14 2527 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 2528 t17 = log(t16) 2529 t18 = 1.325688999052018d-1*t10+1.0d+0 2530 t19 = 9.999999999999991d-1*(6.21814d-2*t17*t18-3.10907d-2*t1 2531 1 1*t9)-6.21814d-2*t17*t18 2532 t20 = 2.871234000188191d+0*rhoa**1.6666666666666669d+0 2533 t21 = -taub-taua+t20 2534 t22 = taub+taua+t20 2535 t23 = 1/t22 2536 t24 = param(12) 2537 t25 = t21*t23*t24+param(11) 2538 t26 = t21*t23*t25+param(10) 2539 t27 = t21*t23*t26+param(9) 2540 t28 = t21*t23*t27+param(8) 2541 t29 = t21*t23*t28+param(7) 2542 t30 = t21*t23*t29+param(6) 2543 t31 = t21*t23*t30+param(5) 2544 t32 = t21*t23*t31+param(4) 2545 t33 = t21*t23*t32+param(3) 2546 t34 = t21*t23*t33+param(2) 2547 t35 = t21*t23*t34+param(1) 2548 t36 = rhoa**1.1666666666666667d+0 2549 t37 = 1/t36**2.0d+0 2550 t38 = exp(-6.432793688582967d+1*t19) 2551 t39 = t38-1.0d+0 2552 t40 = 1/t39 2553 t41 = 2.1622114952063792d-1*gammaaa*t37*t40 2554 t42 = t41+1.0d+0 2555 t43 = (gammaaa*t37)**2.0d+0 2556 t44 = 1/t39**2.0d+0 2557 t45 = 4.675158550002606d-2*t43*t44+t41+1.0d+0 2558 t46 = 1/t45 2559 t47 = 2.1622114952063792d-1*gammaaa*t37*t42*t46+1.0d+0 2560 t48 = log(t47) 2561 t49 = param(14) 2562 t50 = param(24) 2563 t51 = t21*t23*t50+param(23) 2564 t52 = t21*t23*t51+param(22) 2565 t53 = t21*t23*t52+param(21) 2566 t54 = t21*t23*t53+param(20) 2567 t55 = t21*t23*t54+param(19) 2568 t56 = t21*t23*t55+param(18) 2569 t57 = t21*t23*t56+param(17) 2570 t58 = t21*t23*t57+param(16) 2571 t59 = t21*t23*t58+param(15) 2572 t60 = t21*t23*t59+t49 2573 t61 = t21*t23*t60+param(13) 2574 t62 = rhoa**6.666666666666666d-1 2575 t63 = 1/t22**2 2576 t64 = 4.785390000313652d+0*t23*t24*t62-4.785390000313652d+0* 2577 1 t21*t24*t62*t63 2578 t65 = t21*t23*t64-4.785390000313652d+0*t21*t25*t62*t63+4.785 2579 1 390000313652d+0*t23*t25*t62 2580 t66 = t21*t23*t65-4.785390000313652d+0*t21*t26*t62*t63+4.785 2581 1 390000313652d+0*t23*t26*t62 2582 t67 = t21*t23*t66-4.785390000313652d+0*t21*t27*t62*t63+4.785 2583 1 390000313652d+0*t23*t27*t62 2584 t68 = t21*t23*t67-4.785390000313652d+0*t21*t28*t62*t63+4.785 2585 1 390000313652d+0*t23*t28*t62 2586 t69 = t21*t23*t68-4.785390000313652d+0*t21*t29*t62*t63+4.785 2587 1 390000313652d+0*t23*t29*t62 2588 t70 = t21*t23*t69-4.785390000313652d+0*t21*t30*t62*t63+4.785 2589 1 390000313652d+0*t23*t30*t62 2590 t71 = t21*t23*t70-4.785390000313652d+0*t21*t31*t62*t63+4.785 2591 1 390000313652d+0*t23*t31*t62 2592 t72 = t21*t23*t71-4.785390000313652d+0*t21*t32*t62*t63+4.785 2593 1 390000313652d+0*t23*t32*t62 2594 t73 = t21*t23*t72-4.785390000313652d+0*t21*t33*t62*t63+4.785 2595 1 390000313652d+0*t23*t33*t62 2596 t74 = t21*t23*t73-4.785390000313652d+0*t21*t34*t62*t63+4.785 2597 1 390000313652d+0*t23*t34*t62 2598 t75 = 1/rhoa**1.3333333333333333d+0 2599 t76 = 1/t8 2600 t77 = 1/t6**2 2601 t78 = 1/rhoa**1.3333333333333336d+0 2602 t79 = 1/t2**3 2603 t80 = 1/rhoa**6.666666666666667d-1 2604 t81 = -1.3127055298329054d-1*t4*t79*t80-2.0096226153166658d- 2605 1 3*t78 2606 t82 = 7.876233178997433d-1*t3*t81-1.3127055298329054d-1*t5*t 2607 1 79*t80 2608 t83 = 2.11607075208357d-1*t3*t7*t80-1.269642451250142d+0*t2* 2609 1 t77*t82 2610 t84 = 1/t16 2611 t85 = 1/t14**2 2612 t86 = -1.3127055298329054d-1*t12*t79*t80-3.169132786263567d- 2613 1 3*t78 2614 t87 = 7.876233178997433d-1*t3*t86-1.3127055298329054d-1*t13* 2615 1 t79*t80 2616 t88 = 2.11607075208357d-1*t15*t3*t80-1.269642451250142d+0*t2 2617 1 *t85*t87 2618 t89 = 9.999999999999991d-1*(1.3210398931339265d-3*t75*t9+6.2 2619 1 1814d-2*t18*t84*t88-3.10907d-2*t11*t76*t83-2.747773264188 2620 2 438d-3*t17*t75)-6.21814d-2*t18*t84*t88+2.747773264188438d 2621 3 -3*t17*t75 2622 t90 = 4.785390000313652d+0*t23*t50*t62-4.785390000313652d+0* 2623 1 t21*t50*t62*t63 2624 t91 = t21*t23*t90-4.785390000313652d+0*t21*t51*t62*t63+4.785 2625 1 390000313652d+0*t23*t51*t62 2626 t92 = t21*t23*t91-4.785390000313652d+0*t21*t52*t62*t63+4.785 2627 1 390000313652d+0*t23*t52*t62 2628 t93 = t21*t23*t92-4.785390000313652d+0*t21*t53*t62*t63+4.785 2629 1 390000313652d+0*t23*t53*t62 2630 t94 = t21*t23*t93-4.785390000313652d+0*t21*t54*t62*t63+4.785 2631 1 390000313652d+0*t23*t54*t62 2632 t95 = t21*t23*t94-4.785390000313652d+0*t21*t55*t62*t63+4.785 2633 1 390000313652d+0*t23*t55*t62 2634 t96 = t21*t23*t95-4.785390000313652d+0*t21*t56*t62*t63+4.785 2635 1 390000313652d+0*t23*t56*t62 2636 t97 = t21*t23*t96-4.785390000313652d+0*t21*t57*t62*t63+4.785 2637 1 390000313652d+0*t23*t57*t62 2638 t98 = t21*t23*t97-4.785390000313652d+0*t21*t58*t62*t63+4.785 2639 1 390000313652d+0*t23*t58*t62 2640 t99 = t21*t23*t98-4.785390000313652d+0*t21*t59*t62*t63+4.785 2641 1 390000313652d+0*t23*t59*t62 2642 t100 = t21*t23*t99-4.785390000313652d+0*t21*t60*t62*t63+4.78 2643 1 5390000313652d+0*t23*t60*t62 2644 t101 = 1/t47 2645 t102 = rhoa**1.6666666666666674d-1 2646 t103 = 1/t36**3.0d+0 2647 t104 = -5.045160155481552d-1*gammaaa*t102*t103*t40 2648 t105 = 1/t39**2 2649 t106 = 1.3909060459745137d+1*gammaaa*t105*t37*t38*t89 2650 t107 = t106+t104 2651 t108 = 1/t45**2 2652 t109 = gammaaa**2 2653 t110 = 1/t36**5.0d+0 2654 t111 = 1/t39**3.0d+0 2655 t112 = 6.014866082716293d+0*t111*t38*t43*t89-2.1817406566678 2656 1 83d-1*t102*t109*t110*t44+t106+t104 2657 t113 = -5.045160155481552d-1*gammaaa*t102*t103*t42*t46+2.162 2658 1 2114952063792d-1*gammaaa*t107*t37*t46-2.1622114952063792d 2659 2 -1*gammaaa*t108*t112*t37*t42 2660 t114 = 1/t36**4.0d+0 2661 t115 = 9.350317100005212d-2*gammaaa*t114*t44+2.1622114952063 2662 1 792d-1*t37*t40 2663 t116 = 2.1622114952063792d-1*t37*t42*t46+4.675158550002606d- 2664 1 2*gammaaa*t114*t40*t46-2.1622114952063792d-1*gammaaa*t108 2665 2 *t115*t37*t42 2666 t117 = -t21*t24*t63-t23*t24 2667 t118 = -t21*t25*t63-t23*t25+t117*t21*t23 2668 t119 = -t21*t26*t63-t23*t26+t118*t21*t23 2669 t120 = -t21*t27*t63-t23*t27+t119*t21*t23 2670 t121 = -t21*t28*t63-t23*t28+t120*t21*t23 2671 t122 = -t21*t29*t63-t23*t29+t121*t21*t23 2672 t123 = -t21*t30*t63-t23*t30+t122*t21*t23 2673 t124 = -t21*t31*t63-t23*t31+t123*t21*t23 2674 t125 = -t21*t32*t63-t23*t32+t124*t21*t23 2675 t126 = -t21*t33*t63-t23*t33+t125*t21*t23 2676 t127 = -t21*t34*t63-t23*t34+t126*t21*t23 2677 t128 = -t21*t50*t63-t23*t50 2678 t129 = -t21*t51*t63-t23*t51+t128*t21*t23 2679 t130 = -t21*t52*t63-t23*t52+t129*t21*t23 2680 t131 = -t21*t53*t63-t23*t53+t130*t21*t23 2681 t132 = -t21*t54*t63-t23*t54+t131*t21*t23 2682 t133 = -t21*t55*t63-t23*t55+t132*t21*t23 2683 t134 = -t21*t56*t63-t23*t56+t133*t21*t23 2684 t135 = -t21*t57*t63-t23*t57+t134*t21*t23 2685 t136 = -t21*t58*t63-t23*t58+t135*t21*t23 2686 t137 = -t21*t59*t63-t23*t59+t136*t21*t23 2687 t138 = -t21*t60*t63 2688 t139 = -t23*t60+t137*t21*t23+t138 2689 t140 = 1.0d+0*(1.5545345434827443d-2*rhoa*t139*t48+1.0d+0*rh 2690 1 oa*t127*t19)*wght 2691 t141 = rhoa**1.3333333333333333d+0 2692 t142 = 1/t22**3 2693 t143 = 1/rhoa**3.333333333333333d-1 2694 t144 = 1/rhoa**2.333333333333333d+0 2695 t145 = 1/rhoa**2.3333333333333334d+0 2696 t146 = 1/rhoa**1.6666666666666669d+0 2697 t147 = 1/t2**5 2698 t148 = 1/t16**2 2699 t149 = t88**2 2700 t150 = 2.539284902500284d+0*t2*t87**2/t14**3-4.2321415041671 2701 1 4d-1*t3*t80*t85*t87-1.269642451250142d+0*t2*t85*(-2.62541 2702 2 1059665811d-1*t79*t80*t86+7.876233178997433d-1*t3*(8.7513 2703 3 70198886037d-2*t12*t146*t79+6.563527649164527d-2*t12*t147 2704 4 *t78+4.753699179395351d-3*t145)+8.751370198886037d-2*t13* 2705 5 t146*t79+6.563527649164527d-2*t13*t147*t78)-3.52678458680 2706 6 595d-2*t15*t78*t79-1.4107138347223802d-1*t146*t15*t3 2707 t151 = 9.999999999999991d-1*(-1.7613865241785687d-3*t144*t9- 2708 1 5.495546528376876d-3*t75*t84*t88+6.21814d-2*t150*t18*t84+ 2709 2 3.10907d-2*t11*t83**2/t8**2+2.642079786267853d-3*t75*t76* 2710 3 t83-3.10907d-2*t11*t76*(2.539284902500284d+0*t2*t82**2/t6 2711 4 **3-4.23214150416714d-1*t3*t77*t80*t82-1.269642451250142d 2712 5 +0*t2*t77*(-2.625411059665811d-1*t79*t80*t81+7.8762331789 2713 6 97433d-1*t3*(8.751370198886037d-2*t146*t4*t79+6.563527649 2714 7 164527d-2*t147*t4*t78+3.0144339229749983d-3*t145)+8.75137 2715 8 0198886037d-2*t146*t5*t79+6.563527649164527d-2*t147*t5*t7 2716 9 8)-3.52678458680595d-2*t7*t78*t79-1.4107138347223802d-1*t 2717 : 146*t3*t7)-6.21814d-2*t148*t149*t18+3.663697685584584d-3* 2718 ; t144*t17)+5.495546528376876d-3*t75*t84*t88-6.21814d-2*t15 2719 < 0*t18*t84+6.21814d-2*t148*t149*t18-3.663697685584584d-3*t 2720 = 144*t17 2721 t152 = 1/t47**2 2722 t153 = rhoa**3.333333333333335d-1 2723 t154 = 1/rhoa**8.333333333333333d-1 2724 t155 = t89**2 2725 t156 = exp(-1.2865587377165935d+2*t19) 2726 t157 = 1.7894823267913484d+3*gammaaa*t155*t156*t37/t39**3 2727 t158 = 1.765806054418543d+0*gammaaa*t114*t153*t40 2728 t159 = -8.408600259135923d-2*gammaaa*t103*t154*t40 2729 t160 = -6.490894881214397d+1*gammaaa*t102*t103*t105*t38*t89 2730 t161 = -8.947411633956742d+2*gammaaa*t105*t155*t37*t38 2731 t162 = 1.3909060459745137d+1*gammaaa*t105*t151*t37*t38 2732 t163 = 1/t36**6.0d+0 2733 t164 = 1/t45**3 2734 t165 = -5.045160155481552d-1*t102*t103*t40 2735 t166 = 1.3909060459745137d+1*t105*t37*t38*t89 2736 t167 = t21**2 2737 t168 = 1/t22**4 2738 t169 = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*(-t21*t63*t99- 2739 1 t23*t99+t21*t23*(-t21*t63*t98-t23*t98+t21*t23*(-t21*t63*t 2740 2 97-t23*t97+t21*t23*(-t21*t63*t96-t23*t96+t21*t23*(-t21*t6 2741 3 3*t95-t23*t95+t21*t23*(-t21*t63*t94-t23*t94+t21*t23*(-t21 2742 4 *t63*t93-t23*t93+t21*t23*(-t21*t63*t92-t23*t92+t21*t23*(- 2743 5 t21*t63*t91-t23*t91+t21*t23*(-t21*t63*t90-t23*t90-4.78539 2744 6 0000313652d+0*t128*t21*t62*t63+9.570780000627304d+0*t142* 2745 7 t21*t51*t62+9.570780000627304d+0*t167*t168*t50*t62+4.7853 2746 8 90000313652d+0*t128*t23*t62)-4.785390000313652d+0*t129*t2 2747 9 1*t62*t63+9.570780000627304d+0*t142*t21*t52*t62+4.7853900 2748 : 00313652d+0*t129*t23*t62)-4.785390000313652d+0*t130*t21*t 2749 ; 62*t63+9.570780000627304d+0*t142*t21*t53*t62+4.7853900003 2750 < 13652d+0*t130*t23*t62)-4.785390000313652d+0*t131*t21*t62* 2751 = t63+9.570780000627304d+0*t142*t21*t54*t62+4.7853900003136 2752 > 52d+0*t131*t23*t62)-4.785390000313652d+0*t132*t21*t62*t63 2753 ? +9.570780000627304d+0*t142*t21*t55*t62+4.785390000313652d 2754 @ +0*t132*t23*t62)-4.785390000313652d+0*t133*t21*t62*t63+9. 2755 1 570780000627304d+0*t142*t21*t56*t62+4.785390000313652d+0* 2756 2 t133*t23*t62)-4.785390000313652d+0*t134*t21*t62*t63+9.570 2757 3 780000627304d+0*t142*t21*t57*t62+4.785390000313652d+0*t13 2758 4 4*t23*t62)-4.785390000313652d+0*t135*t21*t62*t63+9.570780 2759 5 000627304d+0*t142*t21*t58*t62+4.785390000313652d+0*t135*t 2760 6 23*t62)-4.785390000313652d+0*t136*t21*t62*t63+9.570780000 2761 7 627304d+0*t142*t21*t59*t62+4.785390000313652d+0*t136*t23* 2762 8 t62)-4.785390000313652d+0*t137*t21*t62*t63+9.570780000627 2763 9 304d+0*t142*t21*t60*t62+4.785390000313652d+0*t137*t23*t62 2764 : )+1.0d+0*rhoa*t127*t89+1.0d+0*rhoa*t19*(-t21*t63*t73-t23* 2765 ; t73+t21*t23*(-t21*t63*t72-t23*t72+t21*t23*(-t21*t63*t71-t 2766 < 23*t71+t21*t23*(-t21*t63*t70-t23*t70+t21*t23*(-t21*t63*t6 2767 = 9-t23*t69+t21*t23*(-t21*t63*t68-t23*t68+t21*t23*(-t21*t63 2768 > *t67-t23*t67+t21*t23*(-t21*t63*t66-t23*t66+t21*t23*(-t21* 2769 ? t63*t65-t23*t65+t21*t23*(-t21*t63*t64-t23*t64-4.785390000 2770 @ 313652d+0*t117*t21*t62*t63+9.570780000627304d+0*t142*t21* 2771 1 t25*t62+9.570780000627304d+0*t167*t168*t24*t62+4.78539000 2772 2 0313652d+0*t117*t23*t62)-4.785390000313652d+0*t118*t21*t6 2773 3 2*t63+9.570780000627304d+0*t142*t21*t26*t62+4.78539000031 2774 4 3652d+0*t118*t23*t62)-4.785390000313652d+0*t119*t21*t62*t 2775 5 63+9.570780000627304d+0*t142*t21*t27*t62+4.78539000031365 2776 6 2d+0*t119*t23*t62)-4.785390000313652d+0*t120*t21*t62*t63+ 2777 7 9.570780000627304d+0*t142*t21*t28*t62+4.785390000313652d+ 2778 8 0*t120*t23*t62)-4.785390000313652d+0*t121*t21*t62*t63+9.5 2779 9 70780000627304d+0*t142*t21*t29*t62+4.785390000313652d+0*t 2780 : 121*t23*t62)-4.785390000313652d+0*t122*t21*t62*t63+9.5707 2781 ; 80000627304d+0*t142*t21*t30*t62+4.785390000313652d+0*t122 2782 < *t23*t62)-4.785390000313652d+0*t123*t21*t62*t63+9.5707800 2783 = 00627304d+0*t142*t21*t31*t62+4.785390000313652d+0*t123*t2 2784 > 3*t62)-4.785390000313652d+0*t124*t21*t62*t63+9.5707800006 2785 ? 27304d+0*t142*t21*t32*t62+4.785390000313652d+0*t124*t23*t 2786 @ 62)-4.785390000313652d+0*t125*t21*t62*t63+9.5707800006273 2787 1 04d+0*t142*t21*t33*t62+4.785390000313652d+0*t125*t23*t62) 2788 2 -4.785390000313652d+0*t126*t21*t62*t63+9.570780000627304d 2789 3 +0*t142*t21*t34*t62+4.785390000313652d+0*t126*t23*t62)+1. 2790 4 5545345434827443d-2*t139*t48+1.0d+0*t127*t19+1.5545345434 2791 5 827443d-2*rhoa*t101*t113*t139)*wght 2792 t170 = 1.5545345434827443d-2*rhoa*t101*t116*(t23*(-t21*t23*t 2793 1 59-t49+t137*t21)+t138)*wght 2794 t171 = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*(t21*t23*(t21* 2795 1 t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23 2796 2 *(t21*t23*(t21*t23*(2*t50*t63+2*t142*t21*t50)+2*t51*t63-2 2797 3 *t128*t21*t63+2*t142*t21*t51-2*t128*t23)+2*t52*t63-2*t129 2798 4 *t21*t63+2*t142*t21*t52-2*t129*t23)+2*t53*t63-2*t130*t21* 2799 5 t63+2*t142*t21*t53-2*t130*t23)+2*t54*t63-2*t131*t21*t63+2 2800 6 *t142*t21*t54-2*t131*t23)+2*t55*t63-2*t132*t21*t63+2*t142 2801 7 *t21*t55-2*t132*t23)+2*t56*t63-2*t133*t21*t63+2*t142*t21* 2802 8 t56-2*t133*t23)+2*t57*t63-2*t134*t21*t63+2*t142*t21*t57-2 2803 9 *t134*t23)+2*t58*t63-2*t135*t21*t63+2*t142*t21*t58-2*t135 2804 : *t23)+2*t59*t63-2*t136*t21*t63+2*t142*t21*t59-2*t136*t23) 2805 ; +2*t60*t63-2*t137*t21*t63+2*t142*t21*t60-2*t137*t23)+1.0d 2806 < +0*rhoa*t19*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23* 2807 = (t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(2*t24*t63+2 2808 > *t142*t21*t24)+2*t25*t63-2*t117*t21*t63+2*t142*t21*t25-2* 2809 ? t117*t23)+2*t26*t63-2*t118*t21*t63+2*t142*t21*t26-2*t118* 2810 @ t23)+2*t27*t63-2*t119*t21*t63+2*t142*t21*t27-2*t119*t23)+ 2811 1 2*t28*t63-2*t120*t21*t63+2*t142*t21*t28-2*t120*t23)+2*t29 2812 2 *t63-2*t121*t21*t63+2*t142*t21*t29-2*t121*t23)+2*t30*t63- 2813 3 2*t122*t21*t63+2*t142*t21*t30-2*t122*t23)+2*t31*t63-2*t12 2814 4 3*t21*t63+2*t142*t21*t31-2*t123*t23)+2*t32*t63-2*t124*t21 2815 5 *t63+2*t142*t21*t32-2*t124*t23)+2*t33*t63-2*t125*t21*t63+ 2816 6 2*t142*t21*t33-2*t125*t23)+2*t34*t63-2*t126*t21*t63+2*t14 2817 7 2*t21*t34-2*t126*t23))*wght 2818 fnc(iq) = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*t61+1.0d+0* 2819 1 rhoa*t19*t35)*wght+fnc(iq) 2820 Amat(iq,D1_RA) = 1.0d+0*(1.0d+0*rhoa*t35*t89+1.0d+0*rhoa*t19 2821 1 *t74+1.5545345434827443d-2*t48*t61+1.5545345434827443d-2* 2822 2 rhoa*t101*t113*t61+1.5545345434827443d-2*rhoa*t100*t48+1. 2823 3 0d+0*t19*t35)*wght+Amat(iq,D1_RA) 2824 Cmat(iq,D1_GAA) = 1.5545345434827443d-2*rhoa*t101*t116*t61*w 2825 1 ght+Cmat(iq,D1_GAA) 2826 Mmat(iq,D1_TA) = t140+Mmat(iq,D1_TA) 2827 Mmat(iq,D1_TB) = t140+Mmat(iq,D1_TB) 2828 Amat2(iq,D2_RA_RA) = 1.0d+0*(1.5545345434827443d-2*rhoa*t48* 2829 1 (-9.570780000627304d+0*t21*t62*t63*t99+9.570780000627304d 2830 2 +0*t23*t62*t99+t21*t23*(-9.570780000627304d+0*t21*t62*t63 2831 3 *t98+9.570780000627304d+0*t23*t62*t98+t21*t23*(-9.5707800 2832 4 00627304d+0*t21*t62*t63*t97+9.570780000627304d+0*t23*t62* 2833 5 t97+t21*t23*(-9.570780000627304d+0*t21*t62*t63*t96+9.5707 2834 6 80000627304d+0*t23*t62*t96+t21*t23*(-9.570780000627304d+0 2835 7 *t21*t62*t63*t95+9.570780000627304d+0*t23*t62*t95+t21*t23 2836 8 *(-9.570780000627304d+0*t21*t62*t63*t94+9.570780000627304 2837 9 d+0*t23*t62*t94+t21*t23*(-9.570780000627304d+0*t21*t62*t6 2838 : 3*t93+9.570780000627304d+0*t23*t62*t93+t21*t23*(-9.570780 2839 ; 000627304d+0*t21*t62*t63*t92+9.570780000627304d+0*t23*t62 2840 < *t92+t21*t23*(-9.570780000627304d+0*t21*t62*t63*t91+9.570 2841 = 780000627304d+0*t23*t62*t91+t21*t23*(-9.570780000627304d+ 2842 > 0*t21*t62*t63*t90+9.570780000627304d+0*t23*t62*t90+t21*t2 2843 ? 3*(-3.190260000209101d+0*t143*t21*t50*t63-4.5799914910203 2844 @ 78d+1*t141*t50*t63+3.190260000209101d+0*t143*t23*t50+4.57 2845 1 9991491020378d+1*t141*t142*t21*t50)-3.190260000209101d+0* 2846 2 t143*t21*t51*t63-4.579991491020378d+1*t141*t51*t63+3.1902 2847 3 60000209101d+0*t143*t23*t51+4.579991491020378d+1*t141*t14 2848 4 2*t21*t51)-3.190260000209101d+0*t143*t21*t52*t63-4.579991 2849 5 491020378d+1*t141*t52*t63+3.190260000209101d+0*t143*t23*t 2850 6 52+4.579991491020378d+1*t141*t142*t21*t52)-3.190260000209 2851 7 101d+0*t143*t21*t53*t63-4.579991491020378d+1*t141*t53*t63 2852 8 +3.190260000209101d+0*t143*t23*t53+4.579991491020378d+1*t 2853 9 141*t142*t21*t53)-3.190260000209101d+0*t143*t21*t54*t63-4 2854 : .579991491020378d+1*t141*t54*t63+3.190260000209101d+0*t14 2855 ; 3*t23*t54+4.579991491020378d+1*t141*t142*t21*t54)-3.19026 2856 < 0000209101d+0*t143*t21*t55*t63-4.579991491020378d+1*t141* 2857 = t55*t63+3.190260000209101d+0*t143*t23*t55+4.5799914910203 2858 > 78d+1*t141*t142*t21*t55)-3.190260000209101d+0*t143*t21*t5 2859 ? 6*t63-4.579991491020378d+1*t141*t56*t63+3.190260000209101 2860 @ d+0*t143*t23*t56+4.579991491020378d+1*t141*t142*t21*t56)- 2861 1 3.190260000209101d+0*t143*t21*t57*t63-4.579991491020378d+ 2862 2 1*t141*t57*t63+3.190260000209101d+0*t143*t23*t57+4.579991 2863 3 491020378d+1*t141*t142*t21*t57)-3.190260000209101d+0*t143 2864 4 *t21*t58*t63-4.579991491020378d+1*t141*t58*t63+3.19026000 2865 5 0209101d+0*t143*t23*t58+4.579991491020378d+1*t141*t142*t2 2866 6 1*t58)-3.190260000209101d+0*t143*t21*t59*t63-4.5799914910 2867 7 20378d+1*t141*t59*t63+3.190260000209101d+0*t143*t23*t59+4 2868 8 .579991491020378d+1*t141*t142*t21*t59)-3.190260000209101d 2869 9 +0*t143*t21*t60*t63-4.579991491020378d+1*t141*t60*t63+3.1 2870 : 90260000209101d+0*t143*t23*t60+4.579991491020378d+1*t141* 2871 ; t142*t21*t60)+t101*(1.5545345434827443d-2*rhoa*t61*(-2.16 2872 < 22114952063792d-1*gammaaa*t108*t37*t42*(-5.61387501053520 2873 = 6d+1*t102*t109*t110*t111*t38*t89+1.272682049722932d+0*t10 2874 > 9*t153*t163*t44-3.6362344277798064d-2*t109*t110*t154*t44+ 2875 ? 1.1607717772370736d+3*t155*t156*t43/t39**4.0d+0-3.8692392 2876 @ 57456912d+2*t111*t155*t38*t43+6.014866082716293d+0*t111*t 2877 1 151*t38*t43+t162+t161+t160+t159+t158+t157)-8.408600259135 2878 2 923d-2*gammaaa*t103*t154*t42*t46+1.765806054418543d+0*gam 2879 3 maaa*t114*t153*t42*t46+2.1622114952063792d-1*gammaaa*(t16 2880 4 2+t161+t160+t159+t158+t157)*t37*t46-1.0090320310963104d+0 2881 5 *gammaaa*t102*t103*t107*t46+4.3244229904127585d-1*gammaaa 2882 6 *t112**2*t164*t37*t42+1.0090320310963104d+0*gammaaa*t102* 2883 7 t103*t108*t112*t42-4.3244229904127585d-1*gammaaa*t107*t10 2884 8 8*t112*t37)+3.1090690869654886d-2*t113*t61+3.109069086965 2885 9 4886d-2*rhoa*t100*t113)+2.0d+0*rhoa*t74*t89+2.0d+0*t35*t8 2886 : 9+2.0d+0*t19*t74+1.0d+0*rhoa*t19*(-9.570780000627304d+0*t 2887 ; 21*t62*t63*t73+9.570780000627304d+0*t23*t62*t73+t21*t23*( 2888 < -9.570780000627304d+0*t21*t62*t63*t72+9.570780000627304d+ 2889 = 0*t23*t62*t72+t21*t23*(-9.570780000627304d+0*t21*t62*t63* 2890 > t71+9.570780000627304d+0*t23*t62*t71+t21*t23*(-9.57078000 2891 ? 0627304d+0*t21*t62*t63*t70+9.570780000627304d+0*t23*t62*t 2892 @ 70+t21*t23*(-9.570780000627304d+0*t21*t62*t63*t69+9.57078 2893 1 0000627304d+0*t23*t62*t69+t21*t23*(-9.570780000627304d+0* 2894 2 t21*t62*t63*t68+9.570780000627304d+0*t23*t62*t68+t21*t23* 2895 3 (-9.570780000627304d+0*t21*t62*t63*t67+9.570780000627304d 2896 4 +0*t23*t62*t67+t21*t23*(-9.570780000627304d+0*t21*t62*t63 2897 5 *t66+9.570780000627304d+0*t23*t62*t66+t21*t23*(-9.5707800 2898 6 00627304d+0*t21*t62*t63*t65+9.570780000627304d+0*t23*t62* 2899 7 t65+t21*t23*(-9.570780000627304d+0*t21*t62*t63*t64+9.5707 2900 8 80000627304d+0*t23*t62*t64+t21*t23*(-3.190260000209101d+0 2901 9 *t143*t21*t24*t63-4.579991491020378d+1*t141*t24*t63+3.190 2902 : 260000209101d+0*t143*t23*t24+4.579991491020378d+1*t141*t1 2903 ; 42*t21*t24)-3.190260000209101d+0*t143*t21*t25*t63-4.57999 2904 < 1491020378d+1*t141*t25*t63+3.190260000209101d+0*t143*t23* 2905 = t25+4.579991491020378d+1*t141*t142*t21*t25)-3.19026000020 2906 > 9101d+0*t143*t21*t26*t63-4.579991491020378d+1*t141*t26*t6 2907 ? 3+3.190260000209101d+0*t143*t23*t26+4.579991491020378d+1* 2908 @ t141*t142*t21*t26)-3.190260000209101d+0*t143*t21*t27*t63- 2909 1 4.579991491020378d+1*t141*t27*t63+3.190260000209101d+0*t1 2910 2 43*t23*t27+4.579991491020378d+1*t141*t142*t21*t27)-3.1902 2911 3 60000209101d+0*t143*t21*t28*t63-4.579991491020378d+1*t141 2912 4 *t28*t63+3.190260000209101d+0*t143*t23*t28+4.579991491020 2913 5 378d+1*t141*t142*t21*t28)-3.190260000209101d+0*t143*t21*t 2914 6 29*t63-4.579991491020378d+1*t141*t29*t63+3.19026000020910 2915 7 1d+0*t143*t23*t29+4.579991491020378d+1*t141*t142*t21*t29) 2916 8 -3.190260000209101d+0*t143*t21*t30*t63-4.579991491020378d 2917 9 +1*t141*t30*t63+3.190260000209101d+0*t143*t23*t30+4.57999 2918 : 1491020378d+1*t141*t142*t21*t30)-3.190260000209101d+0*t14 2919 ; 3*t21*t31*t63-4.579991491020378d+1*t141*t31*t63+3.1902600 2920 < 00209101d+0*t143*t23*t31+4.579991491020378d+1*t141*t142*t 2921 = 21*t31)-3.190260000209101d+0*t143*t21*t32*t63-4.579991491 2922 > 020378d+1*t141*t32*t63+3.190260000209101d+0*t143*t23*t32+ 2923 ? 4.579991491020378d+1*t141*t142*t21*t32)-3.190260000209101 2924 @ d+0*t143*t21*t33*t63-4.579991491020378d+1*t141*t33*t63+3. 2925 1 190260000209101d+0*t143*t23*t33+4.579991491020378d+1*t141 2926 2 *t142*t21*t33)-3.190260000209101d+0*t143*t21*t34*t63-4.57 2927 3 9991491020378d+1*t141*t34*t63+3.190260000209101d+0*t143*t 2928 4 23*t34+4.579991491020378d+1*t141*t142*t21*t34)-1.55453454 2929 5 34827443d-2*rhoa*t113**2*t152*t61+3.1090690869654886d-2*t 2930 6 100*t48+1.0d+0*rhoa*t151*t35)*wght+Amat2(iq,D2_RA_RA) 2931 Cmat2(iq,D2_RA_GAA) = 1.0d+0*(t101*(1.5545345434827443d-2*rh 2932 1 oa*t61*(-2.1622114952063792d-1*gammaaa*t108*t37*t42*(1.20 2933 2 29732165432584d+1*gammaaa*t111*t114*t38*t89-4.36348131333 2934 3 5766d-1*gammaaa*t102*t110*t44+t166+t165)-5.04516015548155 2935 4 2d-1*t102*t103*t42*t46-1.0908703283339415d-1*gammaaa*t102 2936 5 *t110*t40*t46+2.1622114952063792d-1*gammaaa*(t166+t165)*t 2937 6 37*t46+2.1622114952063792d-1*t107*t37*t46+4.3244229904127 2938 7 585d-1*gammaaa*t112*t115*t164*t37*t42-2.1622114952063792d 2939 8 -1*t108*t112*t37*t42+5.045160155481552d-1*gammaaa*t102*t1 2940 9 03*t108*t115*t42-4.675158550002606d-2*gammaaa*t108*t112*t 2941 : 114*t40-2.1622114952063792d-1*gammaaa*t107*t108*t115*t37) 2942 ; +1.5545345434827443d-2*t116*t61+1.5545345434827443d-2*rho 2943 < a*t100*t116)-1.5545345434827443d-2*rhoa*t113*t116*t152*t6 2944 = 1)*wght+Cmat2(iq,D2_RA_GAA) 2945 Cmat2(iq,D2_GAA_GAA) = 1.5545345434827443d-2*rhoa*t101*(9.35 2946 1 0317100005212d-2*t114*t40*t46-2.0217363117456047d-2*gamma 2947 2 aa*t108*t163*t42*t44+4.3244229904127585d-1*gammaaa*t115** 2948 3 2*t164*t37*t42-4.3244229904127585d-1*t108*t115*t37*t42-9. 2949 4 350317100005212d-2*gammaaa*t108*t114*t115*t40)*t61*wght-1 2950 5 .5545345434827443d-2*rhoa*t116**2*t152*t61*wght+Cmat2(iq, 2951 6 D2_GAA_GAA) 2952 Mmat2(iq,D2_RA_TA) = t169+Mmat2(iq,D2_RA_TA) 2953 Mmat2(iq,D2_RA_TB) = t169+Mmat2(iq,D2_RA_TB) 2954 Mmat2(iq,D2_GAA_TA) = t170+Mmat2(iq,D2_GAA_TA) 2955 Mmat2(iq,D2_GAA_TB) = t170+Mmat2(iq,D2_GAA_TB) 2956 Mmat2(iq,D2_TA_TA) = t171+Mmat2(iq,D2_TA_TA) 2957 Mmat2(iq,D2_TA_TB) = t171+Mmat2(iq,D2_TA_TB) 2958 Mmat2(iq,D2_TB_TB) = t171+Mmat2(iq,D2_TB_TB) 2959 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 2960 t1 = rhob**3.333333333333333d-1 2961 t2 = t1**5.0d-1 2962 t3 = 1/t2 2963 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 2964 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 2965 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 2966 t7 = 1/t6 2967 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 2968 t9 = log(t8) 2969 t10 = 1/t1 2970 t11 = 1.2746961887000874d-1*t10+1.0d+0 2971 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 2972 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 2973 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 2974 t15 = 1/t14 2975 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 2976 t17 = log(t16) 2977 t18 = 1.325688999052018d-1*t10+1.0d+0 2978 t19 = 9.999999999999991d-1*(6.21814d-2*t17*t18-3.10907d-2*t1 2979 1 1*t9)-6.21814d-2*t17*t18 2980 t20 = 2.871234000188191d+0*rhob**1.6666666666666669d+0 2981 t21 = -taub-taua+t20 2982 t22 = taub+taua+t20 2983 t23 = 1/t22 2984 t24 = param(12) 2985 t25 = t21*t23*t24+param(11) 2986 t26 = t21*t23*t25+param(10) 2987 t27 = t21*t23*t26+param(9) 2988 t28 = t21*t23*t27+param(8) 2989 t29 = t21*t23*t28+param(7) 2990 t30 = t21*t23*t29+param(6) 2991 t31 = t21*t23*t30+param(5) 2992 t32 = t21*t23*t31+param(4) 2993 t33 = t21*t23*t32+param(3) 2994 t34 = t21*t23*t33+param(2) 2995 t35 = t21*t23*t34+param(1) 2996 t36 = rhob**1.1666666666666667d+0 2997 t37 = 1/t36**2.0d+0 2998 t38 = exp(-6.432793688582967d+1*t19) 2999 t39 = t38-1.0d+0 3000 t40 = 1/t39 3001 t41 = 2.1622114952063792d-1*gammabb*t37*t40 3002 t42 = t41+1.0d+0 3003 t43 = (gammabb*t37)**2.0d+0 3004 t44 = 1/t39**2.0d+0 3005 t45 = 4.675158550002606d-2*t43*t44+t41+1.0d+0 3006 t46 = 1/t45 3007 t47 = 2.1622114952063792d-1*gammabb*t37*t42*t46+1.0d+0 3008 t48 = log(t47) 3009 t49 = param(14) 3010 t50 = param(24) 3011 t51 = t21*t23*t50+param(23) 3012 t52 = t21*t23*t51+param(22) 3013 t53 = t21*t23*t52+param(21) 3014 t54 = t21*t23*t53+param(20) 3015 t55 = t21*t23*t54+param(19) 3016 t56 = t21*t23*t55+param(18) 3017 t57 = t21*t23*t56+param(17) 3018 t58 = t21*t23*t57+param(16) 3019 t59 = t21*t23*t58+param(15) 3020 t60 = t21*t23*t59+t49 3021 t61 = t21*t23*t60+param(13) 3022 t62 = rhob**6.666666666666666d-1 3023 t63 = 1/t22**2 3024 t64 = 4.785390000313652d+0*t23*t24*t62-4.785390000313652d+0* 3025 1 t21*t24*t62*t63 3026 t65 = t21*t23*t64-4.785390000313652d+0*t21*t25*t62*t63+4.785 3027 1 390000313652d+0*t23*t25*t62 3028 t66 = t21*t23*t65-4.785390000313652d+0*t21*t26*t62*t63+4.785 3029 1 390000313652d+0*t23*t26*t62 3030 t67 = t21*t23*t66-4.785390000313652d+0*t21*t27*t62*t63+4.785 3031 1 390000313652d+0*t23*t27*t62 3032 t68 = t21*t23*t67-4.785390000313652d+0*t21*t28*t62*t63+4.785 3033 1 390000313652d+0*t23*t28*t62 3034 t69 = t21*t23*t68-4.785390000313652d+0*t21*t29*t62*t63+4.785 3035 1 390000313652d+0*t23*t29*t62 3036 t70 = t21*t23*t69-4.785390000313652d+0*t21*t30*t62*t63+4.785 3037 1 390000313652d+0*t23*t30*t62 3038 t71 = t21*t23*t70-4.785390000313652d+0*t21*t31*t62*t63+4.785 3039 1 390000313652d+0*t23*t31*t62 3040 t72 = t21*t23*t71-4.785390000313652d+0*t21*t32*t62*t63+4.785 3041 1 390000313652d+0*t23*t32*t62 3042 t73 = t21*t23*t72-4.785390000313652d+0*t21*t33*t62*t63+4.785 3043 1 390000313652d+0*t23*t33*t62 3044 t74 = t21*t23*t73-4.785390000313652d+0*t21*t34*t62*t63+4.785 3045 1 390000313652d+0*t23*t34*t62 3046 t75 = 1/rhob**1.3333333333333333d+0 3047 t76 = 1/t8 3048 t77 = 1/t6**2 3049 t78 = 1/rhob**1.3333333333333336d+0 3050 t79 = 1/t2**3 3051 t80 = 1/rhob**6.666666666666667d-1 3052 t81 = -1.3127055298329054d-1*t4*t79*t80-2.0096226153166658d- 3053 1 3*t78 3054 t82 = 7.876233178997433d-1*t3*t81-1.3127055298329054d-1*t5*t 3055 1 79*t80 3056 t83 = 2.11607075208357d-1*t3*t7*t80-1.269642451250142d+0*t2* 3057 1 t77*t82 3058 t84 = 1/t16 3059 t85 = 1/t14**2 3060 t86 = -1.3127055298329054d-1*t12*t79*t80-3.169132786263567d- 3061 1 3*t78 3062 t87 = 7.876233178997433d-1*t3*t86-1.3127055298329054d-1*t13* 3063 1 t79*t80 3064 t88 = 2.11607075208357d-1*t15*t3*t80-1.269642451250142d+0*t2 3065 1 *t85*t87 3066 t89 = 9.999999999999991d-1*(1.3210398931339265d-3*t75*t9+6.2 3067 1 1814d-2*t18*t84*t88-3.10907d-2*t11*t76*t83-2.747773264188 3068 2 438d-3*t17*t75)-6.21814d-2*t18*t84*t88+2.747773264188438d 3069 3 -3*t17*t75 3070 t90 = 4.785390000313652d+0*t23*t50*t62-4.785390000313652d+0* 3071 1 t21*t50*t62*t63 3072 t91 = t21*t23*t90-4.785390000313652d+0*t21*t51*t62*t63+4.785 3073 1 390000313652d+0*t23*t51*t62 3074 t92 = t21*t23*t91-4.785390000313652d+0*t21*t52*t62*t63+4.785 3075 1 390000313652d+0*t23*t52*t62 3076 t93 = t21*t23*t92-4.785390000313652d+0*t21*t53*t62*t63+4.785 3077 1 390000313652d+0*t23*t53*t62 3078 t94 = t21*t23*t93-4.785390000313652d+0*t21*t54*t62*t63+4.785 3079 1 390000313652d+0*t23*t54*t62 3080 t95 = t21*t23*t94-4.785390000313652d+0*t21*t55*t62*t63+4.785 3081 1 390000313652d+0*t23*t55*t62 3082 t96 = t21*t23*t95-4.785390000313652d+0*t21*t56*t62*t63+4.785 3083 1 390000313652d+0*t23*t56*t62 3084 t97 = t21*t23*t96-4.785390000313652d+0*t21*t57*t62*t63+4.785 3085 1 390000313652d+0*t23*t57*t62 3086 t98 = t21*t23*t97-4.785390000313652d+0*t21*t58*t62*t63+4.785 3087 1 390000313652d+0*t23*t58*t62 3088 t99 = t21*t23*t98-4.785390000313652d+0*t21*t59*t62*t63+4.785 3089 1 390000313652d+0*t23*t59*t62 3090 t100 = t21*t23*t99-4.785390000313652d+0*t21*t60*t62*t63+4.78 3091 1 5390000313652d+0*t23*t60*t62 3092 t101 = 1/t47 3093 t102 = rhob**1.6666666666666674d-1 3094 t103 = 1/t36**3.0d+0 3095 t104 = -5.045160155481552d-1*gammabb*t102*t103*t40 3096 t105 = 1/t39**2 3097 t106 = 1.3909060459745137d+1*gammabb*t105*t37*t38*t89 3098 t107 = t106+t104 3099 t108 = 1/t45**2 3100 t109 = gammabb**2 3101 t110 = 1/t36**5.0d+0 3102 t111 = 1/t39**3.0d+0 3103 t112 = 6.014866082716293d+0*t111*t38*t43*t89-2.1817406566678 3104 1 83d-1*t102*t109*t110*t44+t106+t104 3105 t113 = -5.045160155481552d-1*gammabb*t102*t103*t42*t46+2.162 3106 1 2114952063792d-1*gammabb*t107*t37*t46-2.1622114952063792d 3107 2 -1*gammabb*t108*t112*t37*t42 3108 t114 = 1/t36**4.0d+0 3109 t115 = 9.350317100005212d-2*gammabb*t114*t44+2.1622114952063 3110 1 792d-1*t37*t40 3111 t116 = 2.1622114952063792d-1*t37*t42*t46+4.675158550002606d- 3112 1 2*gammabb*t114*t40*t46-2.1622114952063792d-1*gammabb*t108 3113 2 *t115*t37*t42 3114 t117 = -t21*t24*t63-t23*t24 3115 t118 = -t21*t25*t63-t23*t25+t117*t21*t23 3116 t119 = -t21*t26*t63-t23*t26+t118*t21*t23 3117 t120 = -t21*t27*t63-t23*t27+t119*t21*t23 3118 t121 = -t21*t28*t63-t23*t28+t120*t21*t23 3119 t122 = -t21*t29*t63-t23*t29+t121*t21*t23 3120 t123 = -t21*t30*t63-t23*t30+t122*t21*t23 3121 t124 = -t21*t31*t63-t23*t31+t123*t21*t23 3122 t125 = -t21*t32*t63-t23*t32+t124*t21*t23 3123 t126 = -t21*t33*t63-t23*t33+t125*t21*t23 3124 t127 = -t21*t34*t63-t23*t34+t126*t21*t23 3125 t128 = -t21*t50*t63-t23*t50 3126 t129 = -t21*t51*t63-t23*t51+t128*t21*t23 3127 t130 = -t21*t52*t63-t23*t52+t129*t21*t23 3128 t131 = -t21*t53*t63-t23*t53+t130*t21*t23 3129 t132 = -t21*t54*t63-t23*t54+t131*t21*t23 3130 t133 = -t21*t55*t63-t23*t55+t132*t21*t23 3131 t134 = -t21*t56*t63-t23*t56+t133*t21*t23 3132 t135 = -t21*t57*t63-t23*t57+t134*t21*t23 3133 t136 = -t21*t58*t63-t23*t58+t135*t21*t23 3134 t137 = -t21*t59*t63-t23*t59+t136*t21*t23 3135 t138 = -t21*t60*t63 3136 t139 = -t23*t60+t137*t21*t23+t138 3137 t140 = 1.0d+0*(1.5545345434827443d-2*rhob*t139*t48+1.0d+0*rh 3138 1 ob*t127*t19)*wght 3139 t141 = rhob**1.3333333333333333d+0 3140 t142 = 1/t22**3 3141 t143 = 1/rhob**3.333333333333333d-1 3142 t144 = 1/rhob**2.333333333333333d+0 3143 t145 = 1/rhob**2.3333333333333334d+0 3144 t146 = 1/rhob**1.6666666666666669d+0 3145 t147 = 1/t2**5 3146 t148 = 1/t16**2 3147 t149 = t88**2 3148 t150 = 2.539284902500284d+0*t2*t87**2/t14**3-4.2321415041671 3149 1 4d-1*t3*t80*t85*t87-1.269642451250142d+0*t2*t85*(-2.62541 3150 2 1059665811d-1*t79*t80*t86+7.876233178997433d-1*t3*(8.7513 3151 3 70198886037d-2*t12*t146*t79+6.563527649164527d-2*t12*t147 3152 4 *t78+4.753699179395351d-3*t145)+8.751370198886037d-2*t13* 3153 5 t146*t79+6.563527649164527d-2*t13*t147*t78)-3.52678458680 3154 6 595d-2*t15*t78*t79-1.4107138347223802d-1*t146*t15*t3 3155 t151 = 9.999999999999991d-1*(-1.7613865241785687d-3*t144*t9- 3156 1 5.495546528376876d-3*t75*t84*t88+6.21814d-2*t150*t18*t84+ 3157 2 3.10907d-2*t11*t83**2/t8**2+2.642079786267853d-3*t75*t76* 3158 3 t83-3.10907d-2*t11*t76*(2.539284902500284d+0*t2*t82**2/t6 3159 4 **3-4.23214150416714d-1*t3*t77*t80*t82-1.269642451250142d 3160 5 +0*t2*t77*(-2.625411059665811d-1*t79*t80*t81+7.8762331789 3161 6 97433d-1*t3*(8.751370198886037d-2*t146*t4*t79+6.563527649 3162 7 164527d-2*t147*t4*t78+3.0144339229749983d-3*t145)+8.75137 3163 8 0198886037d-2*t146*t5*t79+6.563527649164527d-2*t147*t5*t7 3164 9 8)-3.52678458680595d-2*t7*t78*t79-1.4107138347223802d-1*t 3165 : 146*t3*t7)-6.21814d-2*t148*t149*t18+3.663697685584584d-3* 3166 ; t144*t17)+5.495546528376876d-3*t75*t84*t88-6.21814d-2*t15 3167 < 0*t18*t84+6.21814d-2*t148*t149*t18-3.663697685584584d-3*t 3168 = 144*t17 3169 t152 = 1/t47**2 3170 t153 = rhob**3.333333333333335d-1 3171 t154 = 1/rhob**8.333333333333333d-1 3172 t155 = t89**2 3173 t156 = exp(-1.2865587377165935d+2*t19) 3174 t157 = 1.7894823267913484d+3*gammabb*t155*t156*t37/t39**3 3175 t158 = 1.765806054418543d+0*gammabb*t114*t153*t40 3176 t159 = -8.408600259135923d-2*gammabb*t103*t154*t40 3177 t160 = -6.490894881214397d+1*gammabb*t102*t103*t105*t38*t89 3178 t161 = -8.947411633956742d+2*gammabb*t105*t155*t37*t38 3179 t162 = 1.3909060459745137d+1*gammabb*t105*t151*t37*t38 3180 t163 = 1/t36**6.0d+0 3181 t164 = 1/t45**3 3182 t165 = -5.045160155481552d-1*t102*t103*t40 3183 t166 = 1.3909060459745137d+1*t105*t37*t38*t89 3184 t167 = t21**2 3185 t168 = 1/t22**4 3186 t169 = 1.0d+0*(1.5545345434827443d-2*rhob*t48*(-t21*t63*t99- 3187 1 t23*t99+t21*t23*(-t21*t63*t98-t23*t98+t21*t23*(-t21*t63*t 3188 2 97-t23*t97+t21*t23*(-t21*t63*t96-t23*t96+t21*t23*(-t21*t6 3189 3 3*t95-t23*t95+t21*t23*(-t21*t63*t94-t23*t94+t21*t23*(-t21 3190 4 *t63*t93-t23*t93+t21*t23*(-t21*t63*t92-t23*t92+t21*t23*(- 3191 5 t21*t63*t91-t23*t91+t21*t23*(-t21*t63*t90-t23*t90-4.78539 3192 6 0000313652d+0*t128*t21*t62*t63+9.570780000627304d+0*t142* 3193 7 t21*t51*t62+9.570780000627304d+0*t167*t168*t50*t62+4.7853 3194 8 90000313652d+0*t128*t23*t62)-4.785390000313652d+0*t129*t2 3195 9 1*t62*t63+9.570780000627304d+0*t142*t21*t52*t62+4.7853900 3196 : 00313652d+0*t129*t23*t62)-4.785390000313652d+0*t130*t21*t 3197 ; 62*t63+9.570780000627304d+0*t142*t21*t53*t62+4.7853900003 3198 < 13652d+0*t130*t23*t62)-4.785390000313652d+0*t131*t21*t62* 3199 = t63+9.570780000627304d+0*t142*t21*t54*t62+4.7853900003136 3200 > 52d+0*t131*t23*t62)-4.785390000313652d+0*t132*t21*t62*t63 3201 ? +9.570780000627304d+0*t142*t21*t55*t62+4.785390000313652d 3202 @ +0*t132*t23*t62)-4.785390000313652d+0*t133*t21*t62*t63+9. 3203 1 570780000627304d+0*t142*t21*t56*t62+4.785390000313652d+0* 3204 2 t133*t23*t62)-4.785390000313652d+0*t134*t21*t62*t63+9.570 3205 3 780000627304d+0*t142*t21*t57*t62+4.785390000313652d+0*t13 3206 4 4*t23*t62)-4.785390000313652d+0*t135*t21*t62*t63+9.570780 3207 5 000627304d+0*t142*t21*t58*t62+4.785390000313652d+0*t135*t 3208 6 23*t62)-4.785390000313652d+0*t136*t21*t62*t63+9.570780000 3209 7 627304d+0*t142*t21*t59*t62+4.785390000313652d+0*t136*t23* 3210 8 t62)-4.785390000313652d+0*t137*t21*t62*t63+9.570780000627 3211 9 304d+0*t142*t21*t60*t62+4.785390000313652d+0*t137*t23*t62 3212 : )+1.0d+0*rhob*t127*t89+1.0d+0*rhob*t19*(-t21*t63*t73-t23* 3213 ; t73+t21*t23*(-t21*t63*t72-t23*t72+t21*t23*(-t21*t63*t71-t 3214 < 23*t71+t21*t23*(-t21*t63*t70-t23*t70+t21*t23*(-t21*t63*t6 3215 = 9-t23*t69+t21*t23*(-t21*t63*t68-t23*t68+t21*t23*(-t21*t63 3216 > *t67-t23*t67+t21*t23*(-t21*t63*t66-t23*t66+t21*t23*(-t21* 3217 ? t63*t65-t23*t65+t21*t23*(-t21*t63*t64-t23*t64-4.785390000 3218 @ 313652d+0*t117*t21*t62*t63+9.570780000627304d+0*t142*t21* 3219 1 t25*t62+9.570780000627304d+0*t167*t168*t24*t62+4.78539000 3220 2 0313652d+0*t117*t23*t62)-4.785390000313652d+0*t118*t21*t6 3221 3 2*t63+9.570780000627304d+0*t142*t21*t26*t62+4.78539000031 3222 4 3652d+0*t118*t23*t62)-4.785390000313652d+0*t119*t21*t62*t 3223 5 63+9.570780000627304d+0*t142*t21*t27*t62+4.78539000031365 3224 6 2d+0*t119*t23*t62)-4.785390000313652d+0*t120*t21*t62*t63+ 3225 7 9.570780000627304d+0*t142*t21*t28*t62+4.785390000313652d+ 3226 8 0*t120*t23*t62)-4.785390000313652d+0*t121*t21*t62*t63+9.5 3227 9 70780000627304d+0*t142*t21*t29*t62+4.785390000313652d+0*t 3228 : 121*t23*t62)-4.785390000313652d+0*t122*t21*t62*t63+9.5707 3229 ; 80000627304d+0*t142*t21*t30*t62+4.785390000313652d+0*t122 3230 < *t23*t62)-4.785390000313652d+0*t123*t21*t62*t63+9.5707800 3231 = 00627304d+0*t142*t21*t31*t62+4.785390000313652d+0*t123*t2 3232 > 3*t62)-4.785390000313652d+0*t124*t21*t62*t63+9.5707800006 3233 ? 27304d+0*t142*t21*t32*t62+4.785390000313652d+0*t124*t23*t 3234 @ 62)-4.785390000313652d+0*t125*t21*t62*t63+9.5707800006273 3235 1 04d+0*t142*t21*t33*t62+4.785390000313652d+0*t125*t23*t62) 3236 2 -4.785390000313652d+0*t126*t21*t62*t63+9.570780000627304d 3237 3 +0*t142*t21*t34*t62+4.785390000313652d+0*t126*t23*t62)+1. 3238 4 5545345434827443d-2*t139*t48+1.0d+0*t127*t19+1.5545345434 3239 5 827443d-2*rhob*t101*t113*t139)*wght 3240 t170 = 1.5545345434827443d-2*rhob*t101*t116*(t23*(-t21*t23*t 3241 1 59-t49+t137*t21)+t138)*wght 3242 t171 = 1.0d+0*(1.5545345434827443d-2*rhob*t48*(t21*t23*(t21* 3243 1 t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23 3244 2 *(t21*t23*(t21*t23*(2*t50*t63+2*t142*t21*t50)+2*t51*t63-2 3245 3 *t128*t21*t63+2*t142*t21*t51-2*t128*t23)+2*t52*t63-2*t129 3246 4 *t21*t63+2*t142*t21*t52-2*t129*t23)+2*t53*t63-2*t130*t21* 3247 5 t63+2*t142*t21*t53-2*t130*t23)+2*t54*t63-2*t131*t21*t63+2 3248 6 *t142*t21*t54-2*t131*t23)+2*t55*t63-2*t132*t21*t63+2*t142 3249 7 *t21*t55-2*t132*t23)+2*t56*t63-2*t133*t21*t63+2*t142*t21* 3250 8 t56-2*t133*t23)+2*t57*t63-2*t134*t21*t63+2*t142*t21*t57-2 3251 9 *t134*t23)+2*t58*t63-2*t135*t21*t63+2*t142*t21*t58-2*t135 3252 : *t23)+2*t59*t63-2*t136*t21*t63+2*t142*t21*t59-2*t136*t23) 3253 ; +2*t60*t63-2*t137*t21*t63+2*t142*t21*t60-2*t137*t23)+1.0d 3254 < +0*rhob*t19*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23* 3255 = (t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(2*t24*t63+2 3256 > *t142*t21*t24)+2*t25*t63-2*t117*t21*t63+2*t142*t21*t25-2* 3257 ? t117*t23)+2*t26*t63-2*t118*t21*t63+2*t142*t21*t26-2*t118* 3258 @ t23)+2*t27*t63-2*t119*t21*t63+2*t142*t21*t27-2*t119*t23)+ 3259 1 2*t28*t63-2*t120*t21*t63+2*t142*t21*t28-2*t120*t23)+2*t29 3260 2 *t63-2*t121*t21*t63+2*t142*t21*t29-2*t121*t23)+2*t30*t63- 3261 3 2*t122*t21*t63+2*t142*t21*t30-2*t122*t23)+2*t31*t63-2*t12 3262 4 3*t21*t63+2*t142*t21*t31-2*t123*t23)+2*t32*t63-2*t124*t21 3263 5 *t63+2*t142*t21*t32-2*t124*t23)+2*t33*t63-2*t125*t21*t63+ 3264 6 2*t142*t21*t33-2*t125*t23)+2*t34*t63-2*t126*t21*t63+2*t14 3265 7 2*t21*t34-2*t126*t23))*wght 3266 fnc(iq) = 1.0d+0*(1.5545345434827443d-2*rhob*t48*t61+1.0d+0* 3267 1 rhob*t19*t35)*wght+fnc(iq) 3268 Amat(iq,D1_RB) = 1.0d+0*(1.0d+0*rhob*t35*t89+1.0d+0*rhob*t19 3269 1 *t74+1.5545345434827443d-2*t48*t61+1.5545345434827443d-2* 3270 2 rhob*t101*t113*t61+1.5545345434827443d-2*rhob*t100*t48+1. 3271 3 0d+0*t19*t35)*wght+Amat(iq,D1_RB) 3272 Cmat(iq,D1_GBB) = 1.5545345434827443d-2*rhob*t101*t116*t61*w 3273 1 ght+Cmat(iq,D1_GBB) 3274 Mmat(iq,D1_TB) = t140+Mmat(iq,D1_TB) 3275 Mmat(iq,D1_TA) = t140+Mmat(iq,D1_TA) 3276 Amat2(iq,D2_RB_RB) = 1.0d+0*(1.5545345434827443d-2*rhob*t48* 3277 1 (-9.570780000627304d+0*t21*t62*t63*t99+9.570780000627304d 3278 2 +0*t23*t62*t99+t21*t23*(-9.570780000627304d+0*t21*t62*t63 3279 3 *t98+9.570780000627304d+0*t23*t62*t98+t21*t23*(-9.5707800 3280 4 00627304d+0*t21*t62*t63*t97+9.570780000627304d+0*t23*t62* 3281 5 t97+t21*t23*(-9.570780000627304d+0*t21*t62*t63*t96+9.5707 3282 6 80000627304d+0*t23*t62*t96+t21*t23*(-9.570780000627304d+0 3283 7 *t21*t62*t63*t95+9.570780000627304d+0*t23*t62*t95+t21*t23 3284 8 *(-9.570780000627304d+0*t21*t62*t63*t94+9.570780000627304 3285 9 d+0*t23*t62*t94+t21*t23*(-9.570780000627304d+0*t21*t62*t6 3286 : 3*t93+9.570780000627304d+0*t23*t62*t93+t21*t23*(-9.570780 3287 ; 000627304d+0*t21*t62*t63*t92+9.570780000627304d+0*t23*t62 3288 < *t92+t21*t23*(-9.570780000627304d+0*t21*t62*t63*t91+9.570 3289 = 780000627304d+0*t23*t62*t91+t21*t23*(-9.570780000627304d+ 3290 > 0*t21*t62*t63*t90+9.570780000627304d+0*t23*t62*t90+t21*t2 3291 ? 3*(-3.190260000209101d+0*t143*t21*t50*t63-4.5799914910203 3292 @ 78d+1*t141*t50*t63+3.190260000209101d+0*t143*t23*t50+4.57 3293 1 9991491020378d+1*t141*t142*t21*t50)-3.190260000209101d+0* 3294 2 t143*t21*t51*t63-4.579991491020378d+1*t141*t51*t63+3.1902 3295 3 60000209101d+0*t143*t23*t51+4.579991491020378d+1*t141*t14 3296 4 2*t21*t51)-3.190260000209101d+0*t143*t21*t52*t63-4.579991 3297 5 491020378d+1*t141*t52*t63+3.190260000209101d+0*t143*t23*t 3298 6 52+4.579991491020378d+1*t141*t142*t21*t52)-3.190260000209 3299 7 101d+0*t143*t21*t53*t63-4.579991491020378d+1*t141*t53*t63 3300 8 +3.190260000209101d+0*t143*t23*t53+4.579991491020378d+1*t 3301 9 141*t142*t21*t53)-3.190260000209101d+0*t143*t21*t54*t63-4 3302 : .579991491020378d+1*t141*t54*t63+3.190260000209101d+0*t14 3303 ; 3*t23*t54+4.579991491020378d+1*t141*t142*t21*t54)-3.19026 3304 < 0000209101d+0*t143*t21*t55*t63-4.579991491020378d+1*t141* 3305 = t55*t63+3.190260000209101d+0*t143*t23*t55+4.5799914910203 3306 > 78d+1*t141*t142*t21*t55)-3.190260000209101d+0*t143*t21*t5 3307 ? 6*t63-4.579991491020378d+1*t141*t56*t63+3.190260000209101 3308 @ d+0*t143*t23*t56+4.579991491020378d+1*t141*t142*t21*t56)- 3309 1 3.190260000209101d+0*t143*t21*t57*t63-4.579991491020378d+ 3310 2 1*t141*t57*t63+3.190260000209101d+0*t143*t23*t57+4.579991 3311 3 491020378d+1*t141*t142*t21*t57)-3.190260000209101d+0*t143 3312 4 *t21*t58*t63-4.579991491020378d+1*t141*t58*t63+3.19026000 3313 5 0209101d+0*t143*t23*t58+4.579991491020378d+1*t141*t142*t2 3314 6 1*t58)-3.190260000209101d+0*t143*t21*t59*t63-4.5799914910 3315 7 20378d+1*t141*t59*t63+3.190260000209101d+0*t143*t23*t59+4 3316 8 .579991491020378d+1*t141*t142*t21*t59)-3.190260000209101d 3317 9 +0*t143*t21*t60*t63-4.579991491020378d+1*t141*t60*t63+3.1 3318 : 90260000209101d+0*t143*t23*t60+4.579991491020378d+1*t141* 3319 ; t142*t21*t60)+t101*(1.5545345434827443d-2*rhob*t61*(-2.16 3320 < 22114952063792d-1*gammabb*t108*t37*t42*(-5.61387501053520 3321 = 6d+1*t102*t109*t110*t111*t38*t89+1.272682049722932d+0*t10 3322 > 9*t153*t163*t44-3.6362344277798064d-2*t109*t110*t154*t44+ 3323 ? 1.1607717772370736d+3*t155*t156*t43/t39**4.0d+0-3.8692392 3324 @ 57456912d+2*t111*t155*t38*t43+6.014866082716293d+0*t111*t 3325 1 151*t38*t43+t162+t161+t160+t159+t158+t157)-8.408600259135 3326 2 923d-2*gammabb*t103*t154*t42*t46+1.765806054418543d+0*gam 3327 3 mabb*t114*t153*t42*t46+2.1622114952063792d-1*gammabb*(t16 3328 4 2+t161+t160+t159+t158+t157)*t37*t46-1.0090320310963104d+0 3329 5 *gammabb*t102*t103*t107*t46+4.3244229904127585d-1*gammabb 3330 6 *t112**2*t164*t37*t42+1.0090320310963104d+0*gammabb*t102* 3331 7 t103*t108*t112*t42-4.3244229904127585d-1*gammabb*t107*t10 3332 8 8*t112*t37)+3.1090690869654886d-2*t113*t61+3.109069086965 3333 9 4886d-2*rhob*t100*t113)+2.0d+0*rhob*t74*t89+2.0d+0*t35*t8 3334 : 9+2.0d+0*t19*t74+1.0d+0*rhob*t19*(-9.570780000627304d+0*t 3335 ; 21*t62*t63*t73+9.570780000627304d+0*t23*t62*t73+t21*t23*( 3336 < -9.570780000627304d+0*t21*t62*t63*t72+9.570780000627304d+ 3337 = 0*t23*t62*t72+t21*t23*(-9.570780000627304d+0*t21*t62*t63* 3338 > t71+9.570780000627304d+0*t23*t62*t71+t21*t23*(-9.57078000 3339 ? 0627304d+0*t21*t62*t63*t70+9.570780000627304d+0*t23*t62*t 3340 @ 70+t21*t23*(-9.570780000627304d+0*t21*t62*t63*t69+9.57078 3341 1 0000627304d+0*t23*t62*t69+t21*t23*(-9.570780000627304d+0* 3342 2 t21*t62*t63*t68+9.570780000627304d+0*t23*t62*t68+t21*t23* 3343 3 (-9.570780000627304d+0*t21*t62*t63*t67+9.570780000627304d 3344 4 +0*t23*t62*t67+t21*t23*(-9.570780000627304d+0*t21*t62*t63 3345 5 *t66+9.570780000627304d+0*t23*t62*t66+t21*t23*(-9.5707800 3346 6 00627304d+0*t21*t62*t63*t65+9.570780000627304d+0*t23*t62* 3347 7 t65+t21*t23*(-9.570780000627304d+0*t21*t62*t63*t64+9.5707 3348 8 80000627304d+0*t23*t62*t64+t21*t23*(-3.190260000209101d+0 3349 9 *t143*t21*t24*t63-4.579991491020378d+1*t141*t24*t63+3.190 3350 : 260000209101d+0*t143*t23*t24+4.579991491020378d+1*t141*t1 3351 ; 42*t21*t24)-3.190260000209101d+0*t143*t21*t25*t63-4.57999 3352 < 1491020378d+1*t141*t25*t63+3.190260000209101d+0*t143*t23* 3353 = t25+4.579991491020378d+1*t141*t142*t21*t25)-3.19026000020 3354 > 9101d+0*t143*t21*t26*t63-4.579991491020378d+1*t141*t26*t6 3355 ? 3+3.190260000209101d+0*t143*t23*t26+4.579991491020378d+1* 3356 @ t141*t142*t21*t26)-3.190260000209101d+0*t143*t21*t27*t63- 3357 1 4.579991491020378d+1*t141*t27*t63+3.190260000209101d+0*t1 3358 2 43*t23*t27+4.579991491020378d+1*t141*t142*t21*t27)-3.1902 3359 3 60000209101d+0*t143*t21*t28*t63-4.579991491020378d+1*t141 3360 4 *t28*t63+3.190260000209101d+0*t143*t23*t28+4.579991491020 3361 5 378d+1*t141*t142*t21*t28)-3.190260000209101d+0*t143*t21*t 3362 6 29*t63-4.579991491020378d+1*t141*t29*t63+3.19026000020910 3363 7 1d+0*t143*t23*t29+4.579991491020378d+1*t141*t142*t21*t29) 3364 8 -3.190260000209101d+0*t143*t21*t30*t63-4.579991491020378d 3365 9 +1*t141*t30*t63+3.190260000209101d+0*t143*t23*t30+4.57999 3366 : 1491020378d+1*t141*t142*t21*t30)-3.190260000209101d+0*t14 3367 ; 3*t21*t31*t63-4.579991491020378d+1*t141*t31*t63+3.1902600 3368 < 00209101d+0*t143*t23*t31+4.579991491020378d+1*t141*t142*t 3369 = 21*t31)-3.190260000209101d+0*t143*t21*t32*t63-4.579991491 3370 > 020378d+1*t141*t32*t63+3.190260000209101d+0*t143*t23*t32+ 3371 ? 4.579991491020378d+1*t141*t142*t21*t32)-3.190260000209101 3372 @ d+0*t143*t21*t33*t63-4.579991491020378d+1*t141*t33*t63+3. 3373 1 190260000209101d+0*t143*t23*t33+4.579991491020378d+1*t141 3374 2 *t142*t21*t33)-3.190260000209101d+0*t143*t21*t34*t63-4.57 3375 3 9991491020378d+1*t141*t34*t63+3.190260000209101d+0*t143*t 3376 4 23*t34+4.579991491020378d+1*t141*t142*t21*t34)-1.55453454 3377 5 34827443d-2*rhob*t113**2*t152*t61+3.1090690869654886d-2*t 3378 6 100*t48+1.0d+0*rhob*t151*t35)*wght+Amat2(iq,D2_RB_RB) 3379 Cmat2(iq,D2_RB_GBB) = 1.0d+0*(t101*(1.5545345434827443d-2*rh 3380 1 ob*t61*(-2.1622114952063792d-1*gammabb*t108*t37*t42*(1.20 3381 2 29732165432584d+1*gammabb*t111*t114*t38*t89-4.36348131333 3382 3 5766d-1*gammabb*t102*t110*t44+t166+t165)-5.04516015548155 3383 4 2d-1*t102*t103*t42*t46-1.0908703283339415d-1*gammabb*t102 3384 5 *t110*t40*t46+2.1622114952063792d-1*gammabb*(t166+t165)*t 3385 6 37*t46+2.1622114952063792d-1*t107*t37*t46+4.3244229904127 3386 7 585d-1*gammabb*t112*t115*t164*t37*t42-2.1622114952063792d 3387 8 -1*t108*t112*t37*t42+5.045160155481552d-1*gammabb*t102*t1 3388 9 03*t108*t115*t42-4.675158550002606d-2*gammabb*t108*t112*t 3389 : 114*t40-2.1622114952063792d-1*gammabb*t107*t108*t115*t37) 3390 ; +1.5545345434827443d-2*t116*t61+1.5545345434827443d-2*rho 3391 < b*t100*t116)-1.5545345434827443d-2*rhob*t113*t116*t152*t6 3392 = 1)*wght+Cmat2(iq,D2_RB_GBB) 3393 Cmat2(iq,D2_GBB_GBB) = 1.5545345434827443d-2*rhob*t101*(9.35 3394 1 0317100005212d-2*t114*t40*t46-2.0217363117456047d-2*gamma 3395 2 bb*t108*t163*t42*t44+4.3244229904127585d-1*gammabb*t115** 3396 3 2*t164*t37*t42-4.3244229904127585d-1*t108*t115*t37*t42-9. 3397 4 350317100005212d-2*gammabb*t108*t114*t115*t40)*t61*wght-1 3398 5 .5545345434827443d-2*rhob*t116**2*t152*t61*wght+Cmat2(iq, 3399 6 D2_GBB_GBB) 3400 Mmat2(iq,D2_RB_TA) = t169+Mmat2(iq,D2_RB_TA) 3401 Mmat2(iq,D2_RB_TB) = t169+Mmat2(iq,D2_RB_TB) 3402 Mmat2(iq,D2_GBB_TA) = t170+Mmat2(iq,D2_GBB_TA) 3403 Mmat2(iq,D2_GBB_TB) = t170+Mmat2(iq,D2_GBB_TB) 3404 Mmat2(iq,D2_TA_TA) = t171+Mmat2(iq,D2_TA_TA) 3405 Mmat2(iq,D2_TA_TB) = t171+Mmat2(iq,D2_TA_TB) 3406 Mmat2(iq,D2_TB_TB) = t171+Mmat2(iq,D2_TB_TB) 3407 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 3408 endif ! ipol.eq.1 3409 enddo ! iq 3410 end 3411C> 3412C> \brief Evaluate the nwxcm_c_m11 functional [1] 3413C> 3414C> \f{eqnarray*}{ 3415C> {\it t_1} &=& \rho_\beta+\rho_\alpha\\\\ 3416C> {\it t_2} &=& {\it t_1}^{0.3333333333333333}\\\\ 3417C> {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\ 3418C> {\it t_4} &=& 0.1325688999052018\,{\it t_3}+1.0\\\\ 3419C> {\it t_5} &=& \sqrt{{\it t_2}}\\\\ 3420C> {\it t_6} &=& {{1}\over{{\it t_5}}}\\\\ 3421C> {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_5}} 3422C> \over{0.7876233178997433\,{\it t_6}\,\left(0.7876233178997433 3423C> \,{\it t_6}\,\left(0.02414199311453321\,{\it t_6} 3424C> +0.10186556948\right)+0.22308199064\right)+0.47231125998}} 3425C> +1.0\right)\\\\ 3426C> {\it t_8} &=& \rho_\alpha-\rho_\beta\\\\ 3427C> {\it t_9} &=& {{1}\over{{\it t_1}}}\\\\ 3428C> {\it t_{10}} &=& 1.0-{\it t_8}\,{\it t_9}\\\\ 3429C> {\it t_{11}} &=& {\it t_8}\,{\it t_9}+1.0\\\\ 3430C> {\it t_{12}} &=& 0.06901399211255826\,{\it t_3}+1.0\\\\ 3431C> {\it t_{13}} &=& \log \left({{1.269642451250142\,{ 3432C> \it t_5}}\over{0.7876233178997433\,{\it t_6}\, 3433C> \left(0.7876233178997433\,{\it t_6}\,\left(0.01321299881039884 3434C> \,{\it t_6}+0.029729725188\right)+0.12236585478\right) 3435C> +0.3497952466}}+1.0\right)\\\\ 3436C> {\it t_{14}} &=& 0.5848223622634648\,\left(1.923661050931536 3437C> \,{\it t_{11}}^{{{4}\over{3}}}+1.923661050931536\,{ 3438C> \it t_{10}}^{{{4}\over{3}}}-3.847322101863072\right)\, 3439C> \left({{{\it t_8}^4\,\left(1.709920934161365\,\left(0.0621814 3440C> \,{\it t_4}\,{\it t_7}-0.0310907\,\left(0.1274696188700087 3441C> \,{\it t_3}+1.0\right)\,\log \left({{1.269642451250142\,{ 3442C> \it t_5}}\over{0.7876233178997433\,{\it t_6}\, 3443C> \left(0.7876233178997433\,{\it t_6}\,\left(0.01530901310039024 3444C> \,{\it t_6}+0.10465751434\right)+0.19269083139\right) 3445C> +0.43896648423}}+1.0\right)\right)-0.0337738\,{\it t_{12}} 3446C> \,{\it t_{13}}\right)}\over{{\it t_1}^4}}+0.0337738\,{ 3447C> \it t_{12}}\,{\it t_{13}}\right)-0.0621814\,{\it t_4}\,{ 3448C> \it t_7}\\\\ 3449C> {\it t_{15}} &=& {\it param}\left(1\right)\\\\ 3450C> {\it t_{16}} &=& 2.871234000188191\,{\it t_1}^{{{5}\over{3}}}\\\\ 3451C> {\it t_{17}} &=& -\tau_\beta-\tau_\alpha+{\it t_{16}}\\\\ 3452C> {\it t_{18}} &=& {{1}\over{\tau_\beta+\tau_\alpha+{ 3453C> \it t_{16}}}}\\\\ 3454C> {\it t_{19}} &=& {\it param}\left(2\right)\\\\ 3455C> {\it t_{20}} &=& {\it param}\left(3\right)\\\\ 3456C> {\it t_{21}} &=& {\it param}\left(4\right)\\\\ 3457C> {\it t_{22}} &=& {\it param}\left(5\right)\\\\ 3458C> {\it t_{23}} &=& {\it param}\left(6\right)\\\\ 3459C> {\it t_{24}} &=& {\it param}\left(7\right)\\\\ 3460C> {\it t_{25}} &=& {\it param}\left(8\right)\\\\ 3461C> {\it t_{26}} &=& {\it param}\left(9\right)\\\\ 3462C> {\it t_{27}} &=& {\it param}\left(10\right)\\\\ 3463C> {\it t_{28}} &=& {\it param}\left(11\right)\\\\ 3464C> {\it t_{29}} &=& {\it param}\left(12\right)\\\\ 3465C> {\it t_{30}} &=& 0.5\,{\it t_{11}}^{{{2}\over{3}}}+0.5\,{ 3466C> \it t_{10}}^{{{2}\over{3}}}\\\\ 3467C> {\it t_{31}} &=& {\it t_{30}}^{3.0}\\\\ 3468C> {\it t_{32}} &=& {{1}\over{\left({ 3469C> \it t_1}^{1.166666666666667}\right)^{2.0}}}\\\\ 3470C> {\it t_{33}} &=& {{1}\over{{\it t_{30}}^{2.0}}}\\\\ 3471C> {\it t_{34}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta} 3472C> +\sigma_{\alpha\alpha}\\\\ 3473C> {\it t_{35}} &=& {{1}\over{e^{{{32.16396844291483\,{ 3474C> \it t_{14}}}\over{{\it t_{31}}}}}}}-1.0\\\\ 3475C> {\it t_{36}} &=& {{0.1362107888567592\,{\it t_{32}}\,{ 3476C> \it t_{33}}\,{\it t_{34}}}\over{{\it t_{35}}}}\\\\ 3477C> {\it t_{37}} &=& {\it param}\left(13\right)\\\\ 3478C> {\it t_{38}} &=& {\it param}\left(14\right)\\\\ 3479C> {\it t_{39}} &=& {\it param}\left(15\right)\\\\ 3480C> {\it t_{40}} &=& {\it param}\left(16\right)\\\\ 3481C> {\it t_{41}} &=& {\it param}\left(17\right)\\\\ 3482C> {\it t_{42}} &=& {\it param}\left(18\right)\\\\ 3483C> {\it t_{43}} &=& {\it param}\left(19\right)\\\\ 3484C> {\it t_{44}} &=& {\it param}\left(20\right)\\\\ 3485C> {\it t_{45}} &=& {\it param}\left(21\right)\\\\ 3486C> {\it t_{46}} &=& {\it param}\left(22\right)\\\\ 3487C> {\it t_{47}} &=& {\it param}\left(23\right)\\\\ 3488C> {\it t_{48}} &=& {\it param}\left(24\right)\\\\ 3489C> {\it t_{49}} &=& \rho_s^{0.3333333333333333}\\\\ 3490C> {\it t_{50}} &=& \sqrt{{\it t_{49}}}\\\\ 3491C> {\it t_{51}} &=& {{1}\over{{\it t_{50}}}}\\\\ 3492C> {\it t_{52}} &=& {{1}\over{{\it t_{49}}}}\\\\ 3493C> {\it t_{53}} &=& \log \left({{1.269642451250142\,{ 3494C> \it t_{50}}}\over{0.7876233178997433\,\left(0.7876233178997433 3495C> \,\left(0.02414199311453321\,{\it t_{51}}+0.10186556948\right) 3496C> \,{\it t_{51}}+0.22308199064\right)\,{\it t_{51}} 3497C> +0.47231125998}}+1.0\right)\\\\ 3498C> {\it t_{54}} &=& 0.1325688999052018\,{\it t_{52}}+1.0\\\\ 3499C> {\it t_{55}} &=& 0.9999999999999991\,\left(0.0621814\,{ 3500C> \it t_{53}}\,{\it t_{54}}-0.0310907\,\log 3501C> \left({{1.269642451250142\,{\it t_{50}}} 3502C> \over{0.7876233178997433\,\left(0.7876233178997433\, 3503C> \left(0.01530901310039024\,{\it t_{51}}+0.10465751434\right) 3504C> \,{\it t_{51}}+0.19269083139\right)\,{\it t_{51}} 3505C> +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{ 3506C> \it t_{52}}+1.0\right)\right)-0.0621814\,{\it t_{53}}\,{ 3507C> \it t_{54}}\\\\ 3508C> {\it t_{56}} &=& 2.871234000188191\,\rho_s^{{{5}\over{3}}}\\\\ 3509C> {\it t_{57}} &=& -\tau_{\bar s}-\tau_s+{\it t_{56}}\\\\ 3510C> {\it t_{58}} &=& {{1}\over{\tau_{\bar s}+\tau_s+{\it t_{56}}}}\\\\ 3511C> {\it t_{59}} &=& {{1}\over{ 3512C> \left(\rho_s^{1.166666666666667}\right)^{2.0}}}\\\\ 3513C> {\it t_{60}} &=& {{1}\over{e^{64.32793688582967\,{\it t_{55}}}}} 3514C> -1.0\\\\ 3515C> {\it t_{61}} &=& {{0.2162211495206379\,{\it t_{59}}\, 3516C> \sigma_{ss}}\over{{\it t_{60}}}}\\\\ 3517C> f &=& 1.0\,\left(0.03109069086965489\,{\it t_1}\,{\it t_{31}} 3518C> \,\log \left({{0.1362107888567592\,{\it t_{32}}\,{\it t_{33}} 3519C> \,{\it t_{34}}\,\left({\it t_{36}}+1.0\right)} 3520C> \over{{{0.01855337900098064\,\left({\it t_{32}}\,{ 3521C> \it t_{34}}\right)^{2.0}}\over{{\it t_{30}}^{4.0}\,{ 3522C> \it t_{35}}^{2.0}}}+{\it t_{36}}+1.0}}+1.0\right)\,\left({ 3523C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 3524C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 3525C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 3526C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 3527C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 3528C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 3529C> \it t_{48}}\,{\it t_{17}}\,{\it t_{18}}+{\it t_{47}}\right) 3530C> +{\it t_{46}}\right)+{\it t_{45}}\right)+{\it t_{44}}\right) 3531C> +{\it t_{43}}\right)+{\it t_{42}}\right)+{\it t_{41}}\right) 3532C> +{\it t_{40}}\right)+{\it t_{39}}\right)+{\it t_{38}}\right) 3533C> +{\it t_{37}}\right)+1.0\,{\it t_1}\,{\it t_{14}}\,\left({ 3534C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 3535C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 3536C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 3537C> \it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}} 3538C> \,\left({\it t_{17}}\,{\it t_{18}}\,\left({\it t_{17}}\,{ 3539C> \it t_{18}}\,\left({\it t_{17}}\,{\it t_{18}}\,\left({ 3540C> \it t_{29}}\,{\it t_{17}}\,{\it t_{18}}+{\it t_{28}}\right) 3541C> +{\it t_{27}}\right)+{\it t_{26}}\right)+{\it t_{25}}\right) 3542C> +{\it t_{24}}\right)+{\it t_{23}}\right)+{\it t_{22}}\right) 3543C> +{\it t_{21}}\right)+{\it t_{20}}\right)+{\it t_{19}}\right) 3544C> +{\it t_{15}}\right)\right)\\\\ 3545C> g &=& 0\\\\ 3546C> G &=& 1.0\,\left(0.01554534543482744\,\rho_s\,\log 3547C> \left({{0.2162211495206379\,{\it t_{59}}\,\sigma_{ss}\, 3548C> \left({\it t_{61}}+1.0\right)}\over{{{0.04675158550002606 3549C> \,\left({\it t_{59}}\,\sigma_{ss}\right)^{2.0}}\over{{ 3550C> \it t_{60}}^{2.0}}}+{\it t_{61}}+1.0}}+1.0\right)\,\left({ 3551C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 3552C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 3553C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 3554C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 3555C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 3556C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 3557C> \it t_{48}}\,{\it t_{57}}\,{\it t_{58}}+{\it t_{47}}\right) 3558C> +{\it t_{46}}\right)+{\it t_{45}}\right)+{\it t_{44}}\right) 3559C> +{\it t_{43}}\right)+{\it t_{42}}\right)+{\it t_{41}}\right) 3560C> +{\it t_{40}}\right)+{\it t_{39}}\right)+{\it t_{38}}\right) 3561C> +{\it t_{37}}\right)+1.0\,{\it t_{55}}\,\rho_s\,\left({ 3562C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 3563C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 3564C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 3565C> \it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}} 3566C> \,\left({\it t_{57}}\,{\it t_{58}}\,\left({\it t_{57}}\,{ 3567C> \it t_{58}}\,\left({\it t_{57}}\,{\it t_{58}}\,\left({ 3568C> \it t_{29}}\,{\it t_{57}}\,{\it t_{58}}+{\it t_{28}}\right) 3569C> +{\it t_{27}}\right)+{\it t_{26}}\right)+{\it t_{25}}\right) 3570C> +{\it t_{24}}\right)+{\it t_{23}}\right)+{\it t_{22}}\right) 3571C> +{\it t_{21}}\right)+{\it t_{20}}\right)+{\it t_{19}}\right) 3572C> +{\it t_{15}}\right)\right)\\\\ 3573C> \f} 3574C> 3575C> Code generated with Maxima 5.34.0 [2] 3576C> driven by autoxc [3]. 3577C> 3578C> ### References ### 3579C> 3580C> [1] R Peverati, DG Truhlar, J.Phys.Chem.Lett. 2, 2810 (2011) , DOI: 3581C> <a href="https://doi.org/10.1021/jz201170d "> 3582C> 10.1021/jz201170d </a> 3583C> 3584C> [2] Maxima, a computer algebra system, 3585C> <a href="http://maxima.sourceforge.net/"> 3586C> http://maxima.sourceforge.net/</a> 3587C> 3588C> [3] autoxc, revision 27097 2015-05-08 3589C> 3590 subroutine nwxcm_c_m11_d3(param,tol_rho,ipol,nq,wght, 3591 +rho,rgamma,tau,fnc,Amat,Amat2,Amat3, 3592 +Cmat,Cmat2,Cmat3,Mmat,Mmat2,Mmat3) 3593c $Id: $ 3594#ifdef NWXC_QUAD_PREC 3595 implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n) 3596 integer, parameter :: rk=selected_real_kind(30) 3597#else 3598 implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n) 3599 integer, parameter :: rk=selected_real_kind(15) 3600#endif 3601#include "nwxc_param.fh" 3602 double precision param(*) !< [Input] Parameters of functional 3603 double precision tol_rho !< [Input] The lower limit on the density 3604 integer ipol !< [Input] The number of spin channels 3605 integer nq !< [Input] The number of points 3606 double precision wght !< [Input] The weight of the functional 3607 double precision rho(nq,NCOL_RHO) !< [Input] The density 3608 double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density 3609 !< gradients 3610 double precision tau(nq,NCOL_TAU) !< [Input] The kinetic energy density 3611 double precision fnc(nq) !< [Output] The value of the functional 3612c 3613c Sampling Matrices for the XC Kernel 3614c 3615 double precision Amat(nq,NCOL_AMAT) !< [Output] The derivative wrt rho 3616 double precision Cmat(nq,NCOL_CMAT) !< [Output] The derivative wrt rgamma 3617 double precision Mmat(nq,NCOL_MMAT) !< [Output] The derivative wrt tau 3618c 3619c Sampling Matrices for the XC Kernel 3620c 3621 double precision Amat2(nq,NCOL_AMAT2) !< [Output] The 2nd derivative wrt rho 3622 double precision Cmat2(nq,NCOL_CMAT2) !< [Output] The 2nd derivative wrt rgamma 3623 !< and possibly rho 3624 double precision Mmat2(nq,NCOL_MMAT2) !< [Output] The 2nd derivative wrt tau 3625 !< and possibly rho 3626c 3627c Sampling Matrices for the XC Kernel 3628c 3629 double precision Amat3(nq,NCOL_AMAT3) !< [Output] The 3rd derivative wrt rho 3630 double precision Cmat3(nq,NCOL_CMAT3) !< [Output] The 3rd derivative wrt rgamma 3631 !< and possibly rho 3632 double precision Mmat3(nq,NCOL_MMAT3) !< [Output] The 3rd derivative wrt tau 3633 !< and possibly rho 3634 integer iq 3635 double precision tmp 3636 double precision rhoa,rhob 3637 double precision gammaaa,gammaab,gammabb 3638 double precision taua,taub 3639 double precision nwxcm_heaviside 3640 external nwxcm_heaviside 3641!DIR$ NOVECTOR 3642 do iq = 1, nq 3643 if (ipol.eq.1) then 3644 rhoa = 0.5d0*rho(iq,R_T) 3645 gammaaa = 0.25d0*rgamma(iq,G_TT) 3646 taua = 0.5d0*tau(iq,T_T) 3647 if (rhoa.gt.tol_rho) then 3648 t1 = rhoa**3.333333333333333d-1 3649 t2 = t1**5.0d-1 3650 t3 = 1/t2 3651 t4 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3*( 3652 1 7.016926042943223d-1*(2.150807071909054d-2*t3+1.018655694 3653 2 8d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0) 3654 t5 = 1/t1 3655 t6 = 1.0522000558389215d-1*t5+1.0d+0 3656 t7 = 9.115599744691192d+0*rhoa**1.6666666666666669d+0 3657 t8 = t7-2*taua 3658 t9 = 2*taua+t7 3659 t10 = 1/t9 3660 t11 = param(12) 3661 t12 = t10*t11*t8+param(11) 3662 t13 = t10*t12*t8+param(10) 3663 t14 = t10*t13*t8+param(9) 3664 t15 = t10*t14*t8+param(8) 3665 t16 = t10*t15*t8+param(7) 3666 t17 = t10*t16*t8+param(6) 3667 t18 = t10*t17*t8+param(5) 3668 t19 = t10*t18*t8+param(4) 3669 t20 = t10*t19*t8+param(3) 3670 t21 = t10*t20*t8+param(2) 3671 t22 = t10*t21*t8+param(1) 3672 t23 = rhoa**1.1666666666666667d+0 3673 t24 = 1/t23**2.0d+0 3674 t25 = exp(2.0000005873362642d+0*t4*t6)-1.0d+0 3675 t26 = 1.0811057476031892d-1*gammaaa*t24/t25 3676 t27 = (gammaaa*t24)**2.0d+0 3677 t28 = param(14) 3678 t29 = param(24) 3679 t30 = t10*t29*t8+param(23) 3680 t31 = t10*t30*t8+param(22) 3681 t32 = t10*t31*t8+param(21) 3682 t33 = t10*t32*t8+param(20) 3683 t34 = t10*t33*t8+param(19) 3684 t35 = t10*t34*t8+param(18) 3685 t36 = t10*t35*t8+param(17) 3686 t37 = t10*t36*t8+param(16) 3687 t38 = t10*t37*t8+param(15) 3688 t39 = t10*t38*t8+t28 3689 t40 = t10*t39*t8+param(13) 3690 t41 = 2.1508070719090538d-2*t3+1.0186556948d-1 3691 t42 = 7.016926042943222d-1*t3*t41+2.2308199064d-1 3692 t43 = 7.016926042943222d-1*t3*t42+4.7231125998d-1 3693 t44 = 1/t43 3694 t45 = 1.425125466450768d+0*t2*t44+1.0d+0 3695 t46 = log(t45) 3696 t47 = 1.0522000558389213d-1*t5+1.0d+0 3697 t48 = 1.5874010519681994d+0 3698 t49 = rhoa**6.666666666666666d-1 3699 t50 = 1/t9**2 3700 t51 = 4.785390000313652d+0*t10*t11*t48*t49-4.785390000313652 3701 1 d+0*t11*t48*t49*t50*t8 3702 t52 = t10*t51*t8-4.785390000313652d+0*t12*t48*t49*t50*t8+4.7 3703 1 85390000313652d+0*t10*t12*t48*t49 3704 t53 = t10*t52*t8-4.785390000313652d+0*t13*t48*t49*t50*t8+4.7 3705 1 85390000313652d+0*t10*t13*t48*t49 3706 t54 = t10*t53*t8-4.785390000313652d+0*t14*t48*t49*t50*t8+4.7 3707 1 85390000313652d+0*t10*t14*t48*t49 3708 t55 = t10*t54*t8-4.785390000313652d+0*t15*t48*t49*t50*t8+4.7 3709 1 85390000313652d+0*t10*t15*t48*t49 3710 t56 = t10*t55*t8-4.785390000313652d+0*t16*t48*t49*t50*t8+4.7 3711 1 85390000313652d+0*t10*t16*t48*t49 3712 t57 = t10*t56*t8-4.785390000313652d+0*t17*t48*t49*t50*t8+4.7 3713 1 85390000313652d+0*t10*t17*t48*t49 3714 t58 = t10*t57*t8-4.785390000313652d+0*t18*t48*t49*t50*t8+4.7 3715 1 85390000313652d+0*t10*t18*t48*t49 3716 t59 = t10*t58*t8-4.785390000313652d+0*t19*t48*t49*t50*t8+4.7 3717 1 85390000313652d+0*t10*t19*t48*t49 3718 t60 = t10*t59*t8-4.785390000313652d+0*t20*t48*t49*t50*t8+4.7 3719 1 85390000313652d+0*t10*t20*t48*t49 3720 t61 = t10*t60*t8-4.785390000313652d+0*t21*t48*t49*t50*t8+4.7 3721 1 85390000313652d+0*t10*t21*t48*t49 3722 t62 = 1/rhoa**1.3333333333333333d+0 3723 t63 = 1/t45 3724 t64 = 1/t43**2 3725 t65 = 1/rhoa**1.3333333333333336d+0 3726 t66 = 1/t2**3 3727 t67 = 1/rhoa**6.666666666666667d-1 3728 t68 = -5.847438369119352d-2*t41*t66*t67-1.2576711796854242d- 3729 1 3*t65 3730 t69 = 7.016926042943222d-1*t3*t68-5.847438369119352d-2*t42*t 3731 1 66*t67 3732 t70 = 1.1876045553756398d-1*t3*t44*t67-1.425125466450768d+0* 3733 1 t2*t64*t69 3734 t71 = 1.090454542535705d-3*t46*t62-6.21814d-2*t47*t63*t70 3735 t72 = exp(2.0000005873362642d+0*t46*t47) 3736 t73 = t72-1.0d+0 3737 t74 = 1/t73 3738 t75 = 1.0811057476031893d-1*gammaaa*t24*t74 3739 t76 = t75+1.0d+0 3740 t77 = 1/t73**2.0d+0 3741 t78 = 1.168789637500651d-2*t27*t77+t75+1.0d+0 3742 t79 = 1/t78 3743 t80 = 1.0811057476031893d-1*gammaaa*t24*t76*t79+1.0d+0 3744 t81 = log(t80) 3745 t82 = 4.785390000313652d+0*t10*t29*t48*t49-4.785390000313652 3746 1 d+0*t29*t48*t49*t50*t8 3747 t83 = t10*t8*t82-4.785390000313652d+0*t30*t48*t49*t50*t8+4.7 3748 1 85390000313652d+0*t10*t30*t48*t49 3749 t84 = t10*t8*t83-4.785390000313652d+0*t31*t48*t49*t50*t8+4.7 3750 1 85390000313652d+0*t10*t31*t48*t49 3751 t85 = t10*t8*t84-4.785390000313652d+0*t32*t48*t49*t50*t8+4.7 3752 1 85390000313652d+0*t10*t32*t48*t49 3753 t86 = t10*t8*t85-4.785390000313652d+0*t33*t48*t49*t50*t8+4.7 3754 1 85390000313652d+0*t10*t33*t48*t49 3755 t87 = t10*t8*t86-4.785390000313652d+0*t34*t48*t49*t50*t8+4.7 3756 1 85390000313652d+0*t10*t34*t48*t49 3757 t88 = t10*t8*t87-4.785390000313652d+0*t35*t48*t49*t50*t8+4.7 3758 1 85390000313652d+0*t10*t35*t48*t49 3759 t89 = t10*t8*t88-4.785390000313652d+0*t36*t48*t49*t50*t8+4.7 3760 1 85390000313652d+0*t10*t36*t48*t49 3761 t90 = t10*t8*t89-4.785390000313652d+0*t37*t48*t49*t50*t8+4.7 3762 1 85390000313652d+0*t10*t37*t48*t49 3763 t91 = t10*t8*t90-4.785390000313652d+0*t38*t48*t49*t50*t8+4.7 3764 1 85390000313652d+0*t10*t38*t48*t49 3765 t92 = t10*t8*t91-4.785390000313652d+0*t39*t48*t49*t50*t8+4.7 3766 1 85390000313652d+0*t10*t39*t48*t49 3767 t93 = 1/t80 3768 t94 = rhoa**1.6666666666666674d-1 3769 t95 = 1/t23**3.0d+0 3770 t96 = -1.2612900388703877d-1*gammaaa*t74*t94*t95 3771 t97 = 1/t73**2 3772 t98 = 3.4772651149362827d+0*gammaaa*t24*t71*t72*t97 3773 t99 = t98+t96 3774 t100 = 1/t78**2 3775 t101 = gammaaa**2 3776 t102 = 1/t23**5.0d+0 3777 t103 = 1/t73**3.0d+0 3778 t104 = t98+t96-2.727175820834852d-2*t101*t102*t77*t94+7.5185 3779 1 82603395361d-1*t103*t27*t71*t72 3780 t105 = 1.0811057476031893d-1*gammaaa*t24*t79*t99-1.261290038 3781 1 8703877d-1*gammaaa*t76*t79*t94*t95-1.0811057476031893d-1* 3782 2 gammaaa*t100*t104*t24*t76 3783 t106 = 1/t23**4.0d+0 3784 t107 = 5.843948187503255d-3*gammaaa*t106*t77+2.7027643690079 3785 1 733d-2*t24*t74 3786 t108 = 2.7027643690079733d-2*t24*t76*t79+2.9219740937516275d 3787 1 -3*gammaaa*t106*t74*t79-1.0811057476031893d-1*gammaaa*t10 3788 2 0*t107*t24*t76 3789 t109 = 1.168789637500651d-2*gammaaa*t106*t77+5.4055287380159 3790 1 47d-2*t24*t74 3791 t110 = 5.405528738015947d-2*t24*t76*t79+5.843948187503255d-3 3792 1 *gammaaa*t106*t74*t79-1.0811057476031893d-1*gammaaa*t100* 3793 2 t109*t24*t76 3794 t111 = -t11*t50*t8-t10*t11 3795 t112 = -t12*t50*t8+t10*t111*t8-t10*t12 3796 t113 = -t13*t50*t8+t10*t112*t8-t10*t13 3797 t114 = -t14*t50*t8+t10*t113*t8-t10*t14 3798 t115 = -t15*t50*t8+t10*t114*t8-t10*t15 3799 t116 = -t16*t50*t8+t10*t115*t8-t10*t16 3800 t117 = -t17*t50*t8+t10*t116*t8-t10*t17 3801 t118 = -t18*t50*t8+t10*t117*t8-t10*t18 3802 t119 = -t19*t50*t8+t10*t118*t8-t10*t19 3803 t120 = -t20*t50*t8+t10*t119*t8-t10*t20 3804 t121 = -t21*t50*t8+t10*t120*t8-t10*t21 3805 t122 = -t29*t50*t8-t10*t29 3806 t123 = -t30*t50*t8+t10*t122*t8-t10*t30 3807 t124 = -t31*t50*t8+t10*t123*t8-t10*t31 3808 t125 = -t32*t50*t8+t10*t124*t8-t10*t32 3809 t126 = -t33*t50*t8+t10*t125*t8-t10*t33 3810 t127 = -t34*t50*t8+t10*t126*t8-t10*t34 3811 t128 = -t35*t50*t8+t10*t127*t8-t10*t35 3812 t129 = -t36*t50*t8+t10*t128*t8-t10*t36 3813 t130 = -t37*t50*t8+t10*t129*t8-t10*t37 3814 t131 = -t38*t50*t8+t10*t130*t8-t10*t38 3815 t132 = -t39*t50*t8 3816 t133 = t10*t131*t8-t10*t39+t132 3817 t134 = 2.519842099789746d+0 3818 t135 = rhoa**1.3333333333333333d+0 3819 t136 = 1/t9**3 3820 t137 = 1.2599210498948732d+0 3821 t138 = 1/t137 3822 t139 = rhoa**3.333333333333333d-1 3823 t140 = 1/t139 3824 t141 = -3.190260000209101d+0*t11*t138*t140*t50*t8+4.57999149 3825 1 1020378d+1*t11*t134*t135*t136*t8-4.579991491020378d+1*t11 3826 2 *t134*t135*t50+3.190260000209101d+0*t10*t11*t138*t140 3827 t142 = -9.570780000627304d+0*t48*t49*t50*t51*t8-3.1902600002 3828 1 09101d+0*t12*t138*t140*t50*t8+t10*t141*t8+4.5799914910203 3829 2 78d+1*t12*t134*t135*t136*t8+9.570780000627304d+0*t10*t48* 3830 3 t49*t51-4.579991491020378d+1*t12*t134*t135*t50+3.19026000 3831 4 0209101d+0*t10*t12*t138*t140 3832 t143 = -9.570780000627304d+0*t48*t49*t50*t52*t8-3.1902600002 3833 1 09101d+0*t13*t138*t140*t50*t8+t10*t142*t8+4.5799914910203 3834 2 78d+1*t13*t134*t135*t136*t8+9.570780000627304d+0*t10*t48* 3835 3 t49*t52-4.579991491020378d+1*t13*t134*t135*t50+3.19026000 3836 4 0209101d+0*t10*t13*t138*t140 3837 t144 = -9.570780000627304d+0*t48*t49*t50*t53*t8-3.1902600002 3838 1 09101d+0*t138*t14*t140*t50*t8+t10*t143*t8+4.5799914910203 3839 2 78d+1*t134*t135*t136*t14*t8+9.570780000627304d+0*t10*t48* 3840 3 t49*t53-4.579991491020378d+1*t134*t135*t14*t50+3.19026000 3841 4 0209101d+0*t10*t138*t14*t140 3842 t145 = -9.570780000627304d+0*t48*t49*t50*t54*t8-3.1902600002 3843 1 09101d+0*t138*t140*t15*t50*t8+4.579991491020378d+1*t134*t 3844 2 135*t136*t15*t8+t10*t144*t8+9.570780000627304d+0*t10*t48* 3845 3 t49*t54-4.579991491020378d+1*t134*t135*t15*t50+3.19026000 3846 4 0209101d+0*t10*t138*t140*t15 3847 t146 = -9.570780000627304d+0*t48*t49*t50*t55*t8-3.1902600002 3848 1 09101d+0*t138*t140*t16*t50*t8+4.579991491020378d+1*t134*t 3849 2 135*t136*t16*t8+t10*t145*t8+9.570780000627304d+0*t10*t48* 3850 3 t49*t55-4.579991491020378d+1*t134*t135*t16*t50+3.19026000 3851 4 0209101d+0*t10*t138*t140*t16 3852 t147 = -9.570780000627304d+0*t48*t49*t50*t56*t8-3.1902600002 3853 1 09101d+0*t138*t140*t17*t50*t8+4.579991491020378d+1*t134*t 3854 2 135*t136*t17*t8+t10*t146*t8+9.570780000627304d+0*t10*t48* 3855 3 t49*t56-4.579991491020378d+1*t134*t135*t17*t50+3.19026000 3856 4 0209101d+0*t10*t138*t140*t17 3857 t148 = -9.570780000627304d+0*t48*t49*t50*t57*t8-3.1902600002 3858 1 09101d+0*t138*t140*t18*t50*t8+4.579991491020378d+1*t134*t 3859 2 135*t136*t18*t8+t10*t147*t8+9.570780000627304d+0*t10*t48* 3860 3 t49*t57-4.579991491020378d+1*t134*t135*t18*t50+3.19026000 3861 4 0209101d+0*t10*t138*t140*t18 3862 t149 = -9.570780000627304d+0*t48*t49*t50*t58*t8-3.1902600002 3863 1 09101d+0*t138*t140*t19*t50*t8+4.579991491020378d+1*t134*t 3864 2 135*t136*t19*t8+t10*t148*t8+9.570780000627304d+0*t10*t48* 3865 3 t49*t58-4.579991491020378d+1*t134*t135*t19*t50+3.19026000 3866 4 0209101d+0*t10*t138*t140*t19 3867 t150 = -9.570780000627304d+0*t48*t49*t50*t59*t8-3.1902600002 3868 1 09101d+0*t138*t140*t20*t50*t8+4.579991491020378d+1*t134*t 3869 2 135*t136*t20*t8+t10*t149*t8+9.570780000627304d+0*t10*t48* 3870 3 t49*t59-4.579991491020378d+1*t134*t135*t20*t50+3.19026000 3871 4 0209101d+0*t10*t138*t140*t20 3872 t151 = -9.570780000627304d+0*t48*t49*t50*t60*t8-3.1902600002 3873 1 09101d+0*t138*t140*t21*t50*t8+4.579991491020378d+1*t134*t 3874 2 135*t136*t21*t8+t10*t150*t8+9.570780000627304d+0*t10*t48* 3875 3 t49*t60-4.579991491020378d+1*t134*t135*t21*t50+3.19026000 3876 4 0209101d+0*t10*t138*t140*t21 3877 t152 = -1.243628d-1*rhoa*t151*t46*t47 3878 t153 = -1.243628d-1*t46*t47*t61 3879 t154 = 4.0d+0*rhoa*t61*t71 3880 t155 = 2.0d+0*t22*t71 3881 t156 = 1/rhoa**2.333333333333333d+0 3882 t157 = -7.269696950238034d-4*t156*t46 3883 t158 = 1.1771443702974158d-2*t3+2.9729725188d-2 3884 t159 = 7.016926042943222d-1*t158*t3+1.2236585478d-1 3885 t160 = 7.016926042943222d-1*t159*t3+3.497952466d-1 3886 t161 = 1/t160 3887 t162 = 1.425125466450768d+0*t161*t2+1.0d+0 3888 t163 = log(t162) 3889 t164 = 5.477644184000001d-2*t5+1.0d+0 3890 t165 = rhoa**2 3891 t166 = 1/t165 3892 t167 = 2.18090908507141d-3*t62*t63*t70 3893 t168 = 1/t45**2 3894 t169 = t70**2 3895 t170 = 6.21814d-2*t168*t169*t47 3896 t171 = 1/t43**3 3897 t172 = t69**2 3898 t173 = 1/rhoa**2.3333333333333334d+0 3899 t174 = 1/rhoa**1.6666666666666669d+0 3900 t175 = 1/t2**5 3901 t176 = 1.949146123039784d-2*t174*t41*t66+1.4618595922798375d 3902 1 -2*t175*t41*t65+9.432533847640683d-4*t173 3903 t177 = -1.1694876738238703d-1*t66*t67*t68+1.949146123039784d 3904 1 -2*t174*t42*t66+1.4618595922798375d-2*t175*t42*t65+7.0169 3905 2 26042943222d-1*t176*t3 3906 t178 = -2.3752091107512796d-1*t3*t64*t67*t69-9.8967046281303 3907 1 28d-3*t44*t65*t66-1.425125466450768d+0*t177*t2*t64-3.9586 3908 2 818512521327d-2*t174*t3*t44+2.850250932901536d+0*t171*t17 3909 3 2*t2 3910 t179 = -6.21814d-2*t178*t47*t63 3911 t180 = t179+t170+t167+8.443450000000001d-3*t163*t164*t166+t1 3912 1 57 3913 t181 = -3.190260000209101d+0*t138*t140*t29*t50*t8+4.57999149 3914 1 1020378d+1*t134*t135*t136*t29*t8-4.579991491020378d+1*t13 3915 2 4*t135*t29*t50+3.190260000209101d+0*t10*t138*t140*t29 3916 t182 = -9.570780000627304d+0*t48*t49*t50*t8*t82+9.5707800006 3917 1 27304d+0*t10*t48*t49*t82-3.190260000209101d+0*t138*t140*t 3918 2 30*t50*t8+4.579991491020378d+1*t134*t135*t136*t30*t8+t10* 3919 3 t181*t8-4.579991491020378d+1*t134*t135*t30*t50+3.19026000 3920 4 0209101d+0*t10*t138*t140*t30 3921 t183 = -9.570780000627304d+0*t48*t49*t50*t8*t83+9.5707800006 3922 1 27304d+0*t10*t48*t49*t83-3.190260000209101d+0*t138*t140*t 3923 2 31*t50*t8+4.579991491020378d+1*t134*t135*t136*t31*t8+t10* 3924 3 t182*t8-4.579991491020378d+1*t134*t135*t31*t50+3.19026000 3925 4 0209101d+0*t10*t138*t140*t31 3926 t184 = -9.570780000627304d+0*t48*t49*t50*t8*t84+9.5707800006 3927 1 27304d+0*t10*t48*t49*t84-3.190260000209101d+0*t138*t140*t 3928 2 32*t50*t8+4.579991491020378d+1*t134*t135*t136*t32*t8+t10* 3929 3 t183*t8-4.579991491020378d+1*t134*t135*t32*t50+3.19026000 3930 4 0209101d+0*t10*t138*t140*t32 3931 t185 = -9.570780000627304d+0*t48*t49*t50*t8*t85+9.5707800006 3932 1 27304d+0*t10*t48*t49*t85-3.190260000209101d+0*t138*t140*t 3933 2 33*t50*t8+4.579991491020378d+1*t134*t135*t136*t33*t8+t10* 3934 3 t184*t8-4.579991491020378d+1*t134*t135*t33*t50+3.19026000 3935 4 0209101d+0*t10*t138*t140*t33 3936 t186 = -9.570780000627304d+0*t48*t49*t50*t8*t86+9.5707800006 3937 1 27304d+0*t10*t48*t49*t86-3.190260000209101d+0*t138*t140*t 3938 2 34*t50*t8+4.579991491020378d+1*t134*t135*t136*t34*t8+t10* 3939 3 t185*t8-4.579991491020378d+1*t134*t135*t34*t50+3.19026000 3940 4 0209101d+0*t10*t138*t140*t34 3941 t187 = -9.570780000627304d+0*t48*t49*t50*t8*t87+9.5707800006 3942 1 27304d+0*t10*t48*t49*t87-3.190260000209101d+0*t138*t140*t 3943 2 35*t50*t8+4.579991491020378d+1*t134*t135*t136*t35*t8+t10* 3944 3 t186*t8-4.579991491020378d+1*t134*t135*t35*t50+3.19026000 3945 4 0209101d+0*t10*t138*t140*t35 3946 t188 = -9.570780000627304d+0*t48*t49*t50*t8*t88+9.5707800006 3947 1 27304d+0*t10*t48*t49*t88-3.190260000209101d+0*t138*t140*t 3948 2 36*t50*t8+4.579991491020378d+1*t134*t135*t136*t36*t8+t10* 3949 3 t187*t8-4.579991491020378d+1*t134*t135*t36*t50+3.19026000 3950 4 0209101d+0*t10*t138*t140*t36 3951 t189 = -9.570780000627304d+0*t48*t49*t50*t8*t89+9.5707800006 3952 1 27304d+0*t10*t48*t49*t89-3.190260000209101d+0*t138*t140*t 3953 2 37*t50*t8+4.579991491020378d+1*t134*t135*t136*t37*t8+t10* 3954 3 t188*t8-4.579991491020378d+1*t134*t135*t37*t50+3.19026000 3955 4 0209101d+0*t10*t138*t140*t37 3956 t190 = -9.570780000627304d+0*t48*t49*t50*t8*t90+9.5707800006 3957 1 27304d+0*t10*t48*t49*t90-3.190260000209101d+0*t138*t140*t 3958 2 38*t50*t8+4.579991491020378d+1*t134*t135*t136*t38*t8+t10* 3959 3 t189*t8-4.579991491020378d+1*t134*t135*t38*t50+3.19026000 3960 4 0209101d+0*t10*t138*t140*t38 3961 t191 = -9.570780000627304d+0*t48*t49*t50*t8*t91+9.5707800006 3962 1 27304d+0*t10*t48*t49*t91-3.190260000209101d+0*t138*t140*t 3963 2 39*t50*t8+4.579991491020378d+1*t134*t135*t136*t39*t8+t10* 3964 3 t190*t8-4.579991491020378d+1*t134*t135*t39*t50+3.19026000 3965 4 0209101d+0*t10*t138*t140*t39 3966 t192 = 6.218138173930978d-2*rhoa*t191*t81 3967 t193 = 6.218138173930978d-2*t81*t92 3968 t194 = 1/t80**2 3969 t195 = t105**2 3970 t196 = -6.218138173930978d-2*rhoa*t194*t195*t40 3971 t197 = 1/rhoa 3972 t198 = 1.2436276347861956d-1*rhoa*t105*t92 3973 t199 = 6.218138173930978d-2*t105*t40 3974 t200 = rhoa**3.333333333333335d-1 3975 t201 = 2.2072575680231782d-1*gammaaa*t106*t200*t76*t79 3976 t202 = 1/rhoa**8.333333333333333d-1 3977 t203 = -1.0510750323919903d-2*gammaaa*t202*t76*t79*t95 3978 t204 = -2.5225800777407753d-1*gammaaa*t79*t94*t95*t99 3979 t205 = 2.5225800777407753d-1*gammaaa*t100*t104*t76*t94*t95 3980 t206 = -2.1622114952063787d-1*gammaaa*t100*t104*t24*t99 3981 t207 = 1/t78**3 3982 t208 = t104**2 3983 t209 = 2.1622114952063787d-1*gammaaa*t207*t208*t24*t76 3984 t210 = 2.2072575680231782d-1*gammaaa*t106*t200*t74 3985 t211 = -1.0510750323919903d-2*gammaaa*t202*t74*t95 3986 t212 = 1.2012286084479878d-2*gammaaa*t166*t24*t74 3987 t213 = -8.113618601517993d+0*gammaaa*t71*t72*t94*t95*t97 3988 t214 = t71**2 3989 t215 = -1.118426454244592d+2*gammaaa*t214*t24*t72*t97 3990 t216 = 3.3333343122271053d-1*t166*t46*t47-3.216396844291483d 3991 1 +1*t180 3992 t217 = -1.0811057476031893d-1*gammaaa*t216*t24*t72*t97 3993 t218 = 1/t73**3 3994 t219 = exp(4.0000011746725284d+0*t46*t47) 3995 t220 = 2.236852908489184d+2*gammaaa*t214*t218*t219*t24 3996 t221 = t220+t217+t215+t213+t212+t211+t210 3997 t222 = 1/t23**6.0d+0 3998 t223 = 7.95426281076832d-2*t101*t200*t222*t77 3999 t224 = -2.2726465173623778d-3*t101*t102*t202*t77 4000 t225 = -3.508671881584501d+0*t101*t102*t103*t71*t72*t94 4001 t226 = 1/t73**4.0d+0 4002 t227 = 7.254823607731703d+1*t214*t219*t226*t27 4003 t228 = 2.597310305557001d-3*t166*t27*t77-2.337579275001302d- 4004 1 2*t103*t216*t27*t72-2.4182745359105678d+1*t103*t214*t27*t 4005 2 72+t227+t225+t224+t223+t220+t217+t215+t213+t212+t211+t210 4006 t229 = 1.2012286084479878d-2*gammaaa*t166*t24*t76*t79+1.0811 4007 1 057476031893d-1*gammaaa*t221*t24*t79-1.0811057476031893d- 4008 2 1*gammaaa*t100*t228*t24*t76+t209+t206+t205+t204+t203+t201 4009 t230 = 6.218138173930978d-2*rhoa*t229*t40+t199+t198 4010 t231 = t179+t170+t167-8.44345d-3*t163*t164*t166+t157 4011 t232 = -1.201228608447988d-2*gammaaa*t166*t24*t74 4012 t233 = -1.1184264542445921d+2*gammaaa*t214*t24*t72*t97 4013 t234 = -3.3333343122271064d-1*t166*t46*t47-3.216396844291483 4014 1 d+1*t231 4015 t235 = -1.0811057476031893d-1*gammaaa*t234*t24*t72*t97 4016 t236 = 2.2368529084891842d+2*gammaaa*t214*t218*t219*t24 4017 t237 = t236+t235+t233+t232+t213+t211+t210 4018 t238 = -2.5973103055570024d-3*t166*t27*t77-2.337579275001302 4019 1 d-2*t103*t234*t27*t72-2.418274535910568d+1*t103*t214*t27* 4020 2 t72+t236+t235+t233+t232+t227+t225+t224+t223+t213+t211+t21 4021 3 0 4022 t239 = -1.201228608447988d-2*gammaaa*t166*t24*t76*t79+1.0811 4023 1 057476031893d-1*gammaaa*t237*t24*t79-1.0811057476031893d- 4024 2 1*gammaaa*t100*t238*t24*t76+t209+t206+t205+t204+t203+t201 4025 t240 = 6.218138173930978d-2*rhoa*t239*t40+t199+t198 4026 t241 = -3.153225097175969d-2*t74*t94*t95 4027 t242 = 8.693162787340707d-1*t24*t71*t72*t97 4028 t243 = t242+t241 4029 t244 = -1.363587910417426d-2*gammaaa*t102*t77*t94+3.75929130 4030 1 16976803d-1*gammaaa*t103*t106*t71*t72+t242+t241 4031 t245 = 2.7027643690079733d-2*t24*t79*t99-1.0811057476031893d 4032 1 -1*gammaaa*t100*t107*t24*t99-3.153225097175969d-2*t76*t79 4033 2 *t94*t95+1.2612900388703877d-1*gammaaa*t100*t107*t76*t94* 4034 3 t95-3.408969776043566d-3*gammaaa*t102*t74*t79*t94+1.08110 4035 4 57476031893d-1*gammaaa*t24*t243*t79-1.0811057476031893d-1 4036 5 *gammaaa*t100*t24*t244*t76+2.1622114952063787d-1*gammaaa* 4037 6 t104*t107*t207*t24*t76-2.7027643690079733d-2*t100*t104*t2 4038 7 4*t76-2.9219740937516275d-3*gammaaa*t100*t104*t106*t74 4039 t246 = 6.218138173930978d-2*rhoa*t108*t92+6.218138173930978d 4040 1 -2*rhoa*t245*t40+3.109069086965489d-2*t108*t40 4041 t247 = 1.0d+0*(t246*t93-6.218138173930978d-2*rhoa*t105*t108* 4042 1 t194*t40)*wght 4043 t248 = -6.306450194351938d-2*t74*t94*t95 4044 t249 = 1.7386325574681413d+0*t24*t71*t72*t97 4045 t250 = t249+t248 4046 t251 = -2.727175820834852d-2*gammaaa*t102*t77*t94+7.51858260 4047 1 3395361d-1*gammaaa*t103*t106*t71*t72+t249+t248 4048 t252 = 5.405528738015947d-2*t24*t79*t99-1.0811057476031893d- 4049 1 1*gammaaa*t100*t109*t24*t99-6.306450194351938d-2*t76*t79* 4050 2 t94*t95+1.2612900388703877d-1*gammaaa*t100*t109*t76*t94*t 4051 3 95-6.817939552087132d-3*gammaaa*t102*t74*t79*t94+1.081105 4052 4 7476031893d-1*gammaaa*t24*t250*t79-1.0811057476031893d-1* 4053 5 gammaaa*t100*t24*t251*t76+2.1622114952063787d-1*gammaaa*t 4054 6 104*t109*t207*t24*t76-5.405528738015947d-2*t100*t104*t24* 4055 7 t76-5.843948187503255d-3*gammaaa*t100*t104*t106*t74 4056 t253 = 6.218138173930978d-2*rhoa*t110*t92+6.218138173930978d 4057 1 -2*rhoa*t252*t40+3.109069086965489d-2*t110*t40 4058 t254 = t108**2 4059 t255 = t107**2 4060 t256 = -5.405528738015947d-2*t100*t107*t24*t76 4061 t257 = -5.843948187503255d-3*gammaaa*t100*t106*t107*t74 4062 t258 = 1.4609870468758138d-3*t106*t74*t79-1.5794814935512527 4063 1 d-4*gammaaa*t100*t222*t76*t77+2.1622114952063787d-1*gamma 4064 2 aa*t207*t24*t255*t76+t257+t256 4065 t259 = 6.218138173930978d-2*rhoa*t258*t40*t93*wght-6.2181381 4066 1 73930978d-2*rhoa*t194*t254*t40*wght 4067 t260 = 2.9219740937516275d-3*t106*t74*t79-3.1589629871025054 4068 1 d-4*gammaaa*t100*t222*t76*t77+2.1622114952063787d-1*gamma 4069 2 aa*t107*t109*t207*t24*t76-2.7027643690079733d-2*t100*t109 4070 3 *t24*t76-2.9219740937516275d-3*gammaaa*t100*t106*t109*t74 4071 4 +t257+t256 4072 t261 = t110**2 4073 t262 = t109**2 4074 t263 = 5.843948187503255d-3*t106*t74*t79-6.317925974205011d- 4075 1 4*gammaaa*t100*t222*t76*t77+2.1622114952063787d-1*gammaaa 4076 2 *t207*t24*t262*t76-1.0811057476031893d-1*t100*t109*t24*t7 4077 3 6-1.168789637500651d-2*gammaaa*t100*t106*t109*t74 4078 t264 = t8**2 4079 t265 = 1/t9**4 4080 t266 = -t50*t51*t8-4.785390000313652d+0*t111*t48*t49*t50*t8+ 4081 1 9.570780000627304d+0*t12*t136*t48*t49*t8-t10*t51+9.570780 4082 2 000627304d+0*t11*t264*t265*t48*t49+4.785390000313652d+0*t 4083 3 10*t111*t48*t49 4084 t267 = -t50*t52*t8-4.785390000313652d+0*t112*t48*t49*t50*t8+ 4085 1 9.570780000627304d+0*t13*t136*t48*t49*t8+t10*t266*t8-t10* 4086 2 t52+4.785390000313652d+0*t10*t112*t48*t49 4087 t268 = -t50*t53*t8-4.785390000313652d+0*t113*t48*t49*t50*t8+ 4088 1 9.570780000627304d+0*t136*t14*t48*t49*t8+t10*t267*t8-t10* 4089 2 t53+4.785390000313652d+0*t10*t113*t48*t49 4090 t269 = -t50*t54*t8-4.785390000313652d+0*t114*t48*t49*t50*t8+ 4091 1 9.570780000627304d+0*t136*t15*t48*t49*t8+t10*t268*t8-t10* 4092 2 t54+4.785390000313652d+0*t10*t114*t48*t49 4093 t270 = -t50*t55*t8-4.785390000313652d+0*t115*t48*t49*t50*t8+ 4094 1 9.570780000627304d+0*t136*t16*t48*t49*t8+t10*t269*t8-t10* 4095 2 t55+4.785390000313652d+0*t10*t115*t48*t49 4096 t271 = -t50*t56*t8-4.785390000313652d+0*t116*t48*t49*t50*t8+ 4097 1 9.570780000627304d+0*t136*t17*t48*t49*t8+t10*t270*t8-t10* 4098 2 t56+4.785390000313652d+0*t10*t116*t48*t49 4099 t272 = -t50*t57*t8-4.785390000313652d+0*t117*t48*t49*t50*t8+ 4100 1 9.570780000627304d+0*t136*t18*t48*t49*t8+t10*t271*t8-t10* 4101 2 t57+4.785390000313652d+0*t10*t117*t48*t49 4102 t273 = -t50*t58*t8-4.785390000313652d+0*t118*t48*t49*t50*t8+ 4103 1 9.570780000627304d+0*t136*t19*t48*t49*t8+t10*t272*t8-t10* 4104 2 t58+4.785390000313652d+0*t10*t118*t48*t49 4105 t274 = -t50*t59*t8-4.785390000313652d+0*t119*t48*t49*t50*t8+ 4106 1 9.570780000627304d+0*t136*t20*t48*t49*t8+t10*t273*t8-t10* 4107 2 t59+4.785390000313652d+0*t10*t119*t48*t49 4108 t275 = -t50*t60*t8-4.785390000313652d+0*t120*t48*t49*t50*t8+ 4109 1 9.570780000627304d+0*t136*t21*t48*t49*t8+t10*t274*t8-t10* 4110 2 t60+4.785390000313652d+0*t10*t120*t48*t49 4111 t276 = -t50*t8*t82-t10*t82-4.785390000313652d+0*t122*t48*t49 4112 1 *t50*t8+9.570780000627304d+0*t136*t30*t48*t49*t8+9.570780 4113 2 000627304d+0*t264*t265*t29*t48*t49+4.785390000313652d+0*t 4114 3 10*t122*t48*t49 4115 t277 = -t50*t8*t83-t10*t83-4.785390000313652d+0*t123*t48*t49 4116 1 *t50*t8+9.570780000627304d+0*t136*t31*t48*t49*t8+t10*t276 4117 2 *t8+4.785390000313652d+0*t10*t123*t48*t49 4118 t278 = -t50*t8*t84-t10*t84-4.785390000313652d+0*t124*t48*t49 4119 1 *t50*t8+9.570780000627304d+0*t136*t32*t48*t49*t8+t10*t277 4120 2 *t8+4.785390000313652d+0*t10*t124*t48*t49 4121 t279 = -t50*t8*t85-t10*t85-4.785390000313652d+0*t125*t48*t49 4122 1 *t50*t8+9.570780000627304d+0*t136*t33*t48*t49*t8+t10*t278 4123 2 *t8+4.785390000313652d+0*t10*t125*t48*t49 4124 t280 = -t50*t8*t86-t10*t86-4.785390000313652d+0*t126*t48*t49 4125 1 *t50*t8+9.570780000627304d+0*t136*t34*t48*t49*t8+t10*t279 4126 2 *t8+4.785390000313652d+0*t10*t126*t48*t49 4127 t281 = -t50*t8*t87-t10*t87-4.785390000313652d+0*t127*t48*t49 4128 1 *t50*t8+9.570780000627304d+0*t136*t35*t48*t49*t8+t10*t280 4129 2 *t8+4.785390000313652d+0*t10*t127*t48*t49 4130 t282 = -t50*t8*t88-t10*t88-4.785390000313652d+0*t128*t48*t49 4131 1 *t50*t8+9.570780000627304d+0*t136*t36*t48*t49*t8+t10*t281 4132 2 *t8+4.785390000313652d+0*t10*t128*t48*t49 4133 t283 = -t50*t8*t89-t10*t89-4.785390000313652d+0*t129*t48*t49 4134 1 *t50*t8+9.570780000627304d+0*t136*t37*t48*t49*t8+t10*t282 4135 2 *t8+4.785390000313652d+0*t10*t129*t48*t49 4136 t284 = -t50*t8*t90-t10*t90-4.785390000313652d+0*t130*t48*t49 4137 1 *t50*t8+9.570780000627304d+0*t136*t38*t48*t49*t8+t10*t283 4138 2 *t8+4.785390000313652d+0*t10*t130*t48*t49 4139 t285 = -t50*t8*t91-t10*t91-4.785390000313652d+0*t131*t48*t49 4140 1 *t50*t8+9.570780000627304d+0*t136*t39*t48*t49*t8+t10*t284 4141 2 *t8+4.785390000313652d+0*t10*t131*t48*t49 4142 t286 = 1.0d+0*(6.218138173930978d-2*rhoa*t105*t133*t93+6.218 4143 1 138173930978d-2*rhoa*t285*t81+3.109069086965489d-2*t133*t 4144 2 81+2.0d+0*rhoa*t121*t71-1.243628d-1*rhoa*t275*t46*t47-6.2 4145 3 1814d-2*t121*t46*t47)*wght 4146 t287 = t10*(-t10*t38*t8+t131*t8-t28)+t132 4147 t288 = 6.218138173930978d-2*rhoa*t108*t287*t93*wght 4148 t289 = 2*t11*t136*t8+2*t11*t50 4149 t290 = -2*t111*t50*t8+t10*t289*t8+2*t12*t136*t8+2*t12*t50-2* 4150 1 t10*t111 4151 t291 = -2*t112*t50*t8+t10*t290*t8+2*t13*t136*t8+2*t13*t50-2* 4152 1 t10*t112 4153 t292 = -2*t113*t50*t8+t10*t291*t8+2*t136*t14*t8+2*t14*t50-2* 4154 1 t10*t113 4155 t293 = -2*t114*t50*t8+t10*t292*t8+2*t136*t15*t8+2*t15*t50-2* 4156 1 t10*t114 4157 t294 = -2*t115*t50*t8+t10*t293*t8+2*t136*t16*t8+2*t16*t50-2* 4158 1 t10*t115 4159 t295 = -2*t116*t50*t8+t10*t294*t8+2*t136*t17*t8+2*t17*t50-2* 4160 1 t10*t116 4161 t296 = -2*t117*t50*t8+t10*t295*t8+2*t136*t18*t8+2*t18*t50-2* 4162 1 t10*t117 4163 t297 = -2*t118*t50*t8+t10*t296*t8+2*t136*t19*t8+2*t19*t50-2* 4164 1 t10*t118 4165 t298 = -2*t119*t50*t8+t10*t297*t8+2*t136*t20*t8+2*t20*t50-2* 4166 1 t10*t119 4167 t299 = 2*t136*t29*t8+2*t29*t50 4168 t300 = -2*t122*t50*t8+2*t136*t30*t8+t10*t299*t8+2*t30*t50-2* 4169 1 t10*t122 4170 t301 = -2*t123*t50*t8+2*t136*t31*t8+t10*t300*t8+2*t31*t50-2* 4171 1 t10*t123 4172 t302 = -2*t124*t50*t8+2*t136*t32*t8+t10*t301*t8+2*t32*t50-2* 4173 1 t10*t124 4174 t303 = -2*t125*t50*t8+2*t136*t33*t8+t10*t302*t8+2*t33*t50-2* 4175 1 t10*t125 4176 t304 = -2*t126*t50*t8+2*t136*t34*t8+t10*t303*t8+2*t34*t50-2* 4177 1 t10*t126 4178 t305 = -2*t127*t50*t8+2*t136*t35*t8+t10*t304*t8+2*t35*t50-2* 4179 1 t10*t127 4180 t306 = -2*t128*t50*t8+2*t136*t36*t8+t10*t305*t8+2*t36*t50-2* 4181 1 t10*t128 4182 t307 = -2*t129*t50*t8+2*t136*t37*t8+t10*t306*t8+2*t37*t50-2* 4183 1 t10*t129 4184 t308 = -2*t130*t50*t8+2*t136*t38*t8+t10*t307*t8+2*t38*t50-2* 4185 1 t10*t130 4186 t309 = 1.0d+0*(6.218138173930978d-2*rhoa*(-2*t131*t50*t8+2*t 4187 1 136*t39*t8+t10*t308*t8+2*t39*t50-2*t10*t131)*t81-1.243628 4188 2 d-1*rhoa*t46*t47*(-2*t120*t50*t8+t10*t298*t8+2*t136*t21*t 4189 3 8+2*t21*t50-2*t10*t120))*wght 4190 t310 = 1/t134 4191 t311 = 1/t135 4192 t312 = -1.243628d-1*rhoa*t46*t47*(t10*t8*(t10*t8*(t10*t8*(t1 4193 1 0*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(1.0 4194 2 634200000697003d+0*t11*t310*t311*t50*t8-2.630045457918064 4195 3 d+3*t11*t165*t265*t8+9.159982982040756d+1*t11*t136*t137*t 4196 4 139*t8-9.159982982040756d+1*t11*t137*t139*t50-1.063420000 4197 5 0697003d+0*t10*t11*t310*t311+2.630045457918064d+3*t11*t13 4198 6 6*t165)-9.570780000627304d+0*t138*t140*t50*t51*t8+1.37399 4199 7 74473061137d+2*t134*t135*t136*t51*t8-1.4356170000940957d+ 4200 8 1*t141*t48*t49*t50*t8+1.0634200000697003d+0*t12*t310*t311 4201 9 *t50*t8-2.630045457918064d+3*t12*t165*t265*t8+9.159982982 4202 : 040756d+1*t12*t136*t137*t139*t8-1.3739974473061137d+2*t13 4203 ; 4*t135*t50*t51+9.570780000627304d+0*t10*t138*t140*t51-9.1 4204 < 59982982040756d+1*t12*t137*t139*t50+1.4356170000940957d+1 4205 = *t10*t141*t48*t49-1.0634200000697003d+0*t10*t12*t310*t311 4206 > +2.630045457918064d+3*t12*t136*t165)-9.570780000627304d+0 4207 ? *t138*t140*t50*t52*t8+1.3739974473061137d+2*t134*t135*t13 4208 @ 6*t52*t8-1.4356170000940957d+1*t142*t48*t49*t50*t8+1.0634 4209 1 200000697003d+0*t13*t310*t311*t50*t8-2.630045457918064d+3 4210 2 *t13*t165*t265*t8+9.159982982040756d+1*t13*t136*t137*t139 4211 3 *t8-1.3739974473061137d+2*t134*t135*t50*t52+9.57078000062 4212 4 7304d+0*t10*t138*t140*t52-9.159982982040756d+1*t13*t137*t 4213 5 139*t50+1.4356170000940957d+1*t10*t142*t48*t49-1.06342000 4214 6 00697003d+0*t10*t13*t310*t311+2.630045457918064d+3*t13*t1 4215 7 36*t165)-9.570780000627304d+0*t138*t140*t50*t53*t8+1.3739 4216 8 974473061137d+2*t134*t135*t136*t53*t8-1.4356170000940957d 4217 9 +1*t143*t48*t49*t50*t8+1.0634200000697003d+0*t14*t310*t31 4218 : 1*t50*t8-2.630045457918064d+3*t14*t165*t265*t8+9.15998298 4219 ; 2040756d+1*t136*t137*t139*t14*t8-1.3739974473061137d+2*t1 4220 < 34*t135*t50*t53+9.570780000627304d+0*t10*t138*t140*t53-9. 4221 = 159982982040756d+1*t137*t139*t14*t50+1.4356170000940957d+ 4222 > 1*t10*t143*t48*t49-1.0634200000697003d+0*t10*t14*t310*t31 4223 ? 1+2.630045457918064d+3*t136*t14*t165)-9.570780000627304d+ 4224 @ 0*t138*t140*t50*t54*t8+1.3739974473061137d+2*t134*t135*t1 4225 1 36*t54*t8-1.4356170000940957d+1*t144*t48*t49*t50*t8+1.063 4226 2 4200000697003d+0*t15*t310*t311*t50*t8-2.630045457918064d+ 4227 3 3*t15*t165*t265*t8+9.159982982040756d+1*t136*t137*t139*t1 4228 4 5*t8-1.3739974473061137d+2*t134*t135*t50*t54+9.5707800006 4229 5 27304d+0*t10*t138*t140*t54-9.159982982040756d+1*t137*t139 4230 6 *t15*t50+1.4356170000940957d+1*t10*t144*t48*t49-1.0634200 4231 7 000697003d+0*t10*t15*t310*t311+2.630045457918064d+3*t136* 4232 8 t15*t165)-9.570780000627304d+0*t138*t140*t50*t55*t8+1.373 4233 9 9974473061137d+2*t134*t135*t136*t55*t8-1.4356170000940957 4234 : d+1*t145*t48*t49*t50*t8+1.0634200000697003d+0*t16*t310*t3 4235 ; 11*t50*t8-2.630045457918064d+3*t16*t165*t265*t8+9.1599829 4236 < 82040756d+1*t136*t137*t139*t16*t8-1.3739974473061137d+2*t 4237 = 134*t135*t50*t55+9.570780000627304d+0*t10*t138*t140*t55-9 4238 > .159982982040756d+1*t137*t139*t16*t50+1.4356170000940957d 4239 ? +1*t10*t145*t48*t49-1.0634200000697003d+0*t10*t16*t310*t3 4240 @ 11+2.630045457918064d+3*t136*t16*t165)-9.570780000627304d 4241 1 +0*t138*t140*t50*t56*t8+1.3739974473061137d+2*t134*t135*t 4242 2 136*t56*t8-1.4356170000940957d+1*t146*t48*t49*t50*t8+1.06 4243 3 34200000697003d+0*t17*t310*t311*t50*t8-2.630045457918064d 4244 4 +3*t165*t17*t265*t8+9.159982982040756d+1*t136*t137*t139*t 4245 5 17*t8-1.3739974473061137d+2*t134*t135*t50*t56+9.570780000 4246 6 627304d+0*t10*t138*t140*t56-9.159982982040756d+1*t137*t13 4247 7 9*t17*t50+1.4356170000940957d+1*t10*t146*t48*t49-1.063420 4248 8 0000697003d+0*t10*t17*t310*t311+2.630045457918064d+3*t136 4249 9 *t165*t17)-9.570780000627304d+0*t138*t140*t50*t57*t8+1.37 4250 : 39974473061137d+2*t134*t135*t136*t57*t8-1.435617000094095 4251 ; 7d+1*t147*t48*t49*t50*t8+1.0634200000697003d+0*t18*t310*t 4252 < 311*t50*t8-2.630045457918064d+3*t165*t18*t265*t8+9.159982 4253 = 982040756d+1*t136*t137*t139*t18*t8-1.3739974473061137d+2* 4254 > t134*t135*t50*t57+9.570780000627304d+0*t10*t138*t140*t57- 4255 ? 9.159982982040756d+1*t137*t139*t18*t50+1.4356170000940957 4256 @ d+1*t10*t147*t48*t49-1.0634200000697003d+0*t10*t18*t310*t 4257 1 311+2.630045457918064d+3*t136*t165*t18)-9.570780000627304 4258 2 d+0*t138*t140*t50*t58*t8+1.3739974473061137d+2*t134*t135* 4259 3 t136*t58*t8-1.4356170000940957d+1*t148*t48*t49*t50*t8+1.0 4260 4 634200000697003d+0*t19*t310*t311*t50*t8-2.630045457918064 4261 5 d+3*t165*t19*t265*t8+9.159982982040756d+1*t136*t137*t139* 4262 6 t19*t8-1.3739974473061137d+2*t134*t135*t50*t58+9.57078000 4263 7 0627304d+0*t10*t138*t140*t58-9.159982982040756d+1*t137*t1 4264 8 39*t19*t50+1.4356170000940957d+1*t10*t148*t48*t49-1.06342 4265 9 00000697003d+0*t10*t19*t310*t311+2.630045457918064d+3*t13 4266 : 6*t165*t19)-9.570780000627304d+0*t138*t140*t50*t59*t8+1.3 4267 ; 739974473061137d+2*t134*t135*t136*t59*t8-1.43561700009409 4268 < 57d+1*t149*t48*t49*t50*t8+1.0634200000697003d+0*t20*t310* 4269 = t311*t50*t8-2.630045457918064d+3*t165*t20*t265*t8+9.15998 4270 > 2982040756d+1*t136*t137*t139*t20*t8-1.3739974473061137d+2 4271 ? *t134*t135*t50*t59+9.570780000627304d+0*t10*t138*t140*t59 4272 @ -9.159982982040756d+1*t137*t139*t20*t50+1.435617000094095 4273 1 7d+1*t10*t149*t48*t49-1.0634200000697003d+0*t10*t20*t310* 4274 2 t311+2.630045457918064d+3*t136*t165*t20)-9.57078000062730 4275 3 4d+0*t138*t140*t50*t60*t8+1.3739974473061137d+2*t134*t135 4276 4 *t136*t60*t8-1.4356170000940957d+1*t150*t48*t49*t50*t8+1. 4277 5 0634200000697003d+0*t21*t310*t311*t50*t8-2.63004545791806 4278 6 4d+3*t165*t21*t265*t8+9.159982982040756d+1*t136*t137*t139 4279 7 *t21*t8-1.3739974473061137d+2*t134*t135*t50*t60+9.5707800 4280 8 00627304d+0*t10*t138*t140*t60-9.159982982040756d+1*t137*t 4281 9 139*t21*t50+1.4356170000940957d+1*t10*t150*t48*t49-1.0634 4282 : 200000697003d+0*t10*t21*t310*t311+2.630045457918064d+3*t1 4283 ; 36*t165*t21) 4284 t313 = -1.865442d-1*t151*t46*t47 4285 t314 = 6.0d+0*rhoa*t151*t71 4286 t315 = 6.0d+0*t61*t71 4287 t316 = 8.48131310861104d-4*t46/rhoa**3.333333333333333d+0 4288 t317 = 1/rhoa**3 4289 t318 = -2.1809090850714105d-3*t156*t63*t70 4290 t319 = 3.37738d-2*t164*(1.1876045553756398d-1*t161*t3*t67-1. 4291 1 425125466450768d+0*t2*(7.016926042943222d-1*t3*(-5.847438 4292 2 369119352d-2*t158*t66*t67-6.883279156869946d-4*t65)-5.847 4293 3 438369119352d-2*t159*t66*t67)/t160**2)/t162-3.08334765235 4294 4 9653d-4*t163*t62 4295 t320 = -3.2713636276071156d-3*t168*t169*t62 4296 t321 = 3.2713636276071156d-3*t178*t62*t63 4297 t322 = -1.243628d-1*t47*t70**3/t45**3 4298 t323 = 1.865442d-1*t168*t178*t47*t70 4299 t324 = 1/rhoa**2.666666666666667d+0 4300 t325 = 1/t2**7 4301 t326 = 1/rhoa**2.0d+0 4302 t327 = -6.21814d-2*t47*t63*(-8.550752798704606d+0*t2*t69**3/ 4303 1 t43**4+2.969011388439098d-2*t64*t65*t66*t69+1.18760455537 4304 2 56398d-1*t174*t3*t64*t69+8.550752798704606d+0*t171*t177*t 4305 3 2*t69-1.425125466450768d+0*t2*t64*(5.847438369119352d-2*t 4306 4 174*t66*t68+4.385578776839513d-2*t175*t65*t68-1.754231510 4307 5 7358056d-1*t176*t66*t67+7.016926042943222d-1*t3*(-1.62428 4308 6 84358664864d-2*t324*t41*t66-6.091081634499322d-3*t325*t32 4309 7 6*t41-1.4618595922798375d-2*t173*t175*t41-1.1615990756816 4310 8 77d-3/rhoa**3.3333333333333337d+0)-1.6242884358664864d-2* 4311 9 t324*t42*t66-6.091081634499322d-3*t325*t326*t42-1.4618595 4312 : 922798375d-2*t173*t175*t42)-3.5628136661269194d-1*t177*t3 4313 ; *t64*t67+7.125627332253839d-1*t171*t172*t3*t67+9.89670462 4314 < 813033d-3*t173*t44*t66+2.474176157032582d-3*t175*t326*t44 4315 = +3.29890154271011d-2*t3*t324*t44) 4316 t328 = t327+t323+t322+t321+t320+7.500000000000002d-1*t166*t3 4317 1 19+t318-2.533035d-2*t163*t164*t317+t316 4318 t329 = 6.218138173930978d-2*rhoa*t81*(-9.570780000627304d+0* 4319 1 t138*t140*t50*t8*t91+1.3739974473061137d+2*t134*t135*t136 4320 2 *t8*t91-1.3739974473061137d+2*t134*t135*t50*t91+9.5707800 4321 3 00627304d+0*t10*t138*t140*t91+t10*t8*(-9.570780000627304d 4322 4 +0*t138*t140*t50*t8*t90+1.3739974473061137d+2*t134*t135*t 4323 5 136*t8*t90-1.3739974473061137d+2*t134*t135*t50*t90+9.5707 4324 6 80000627304d+0*t10*t138*t140*t90+t10*t8*(-9.5707800006273 4325 7 04d+0*t138*t140*t50*t8*t89+1.3739974473061137d+2*t134*t13 4326 8 5*t136*t8*t89-1.3739974473061137d+2*t134*t135*t50*t89+9.5 4327 9 70780000627304d+0*t10*t138*t140*t89+t10*t8*(-9.5707800006 4328 : 27304d+0*t138*t140*t50*t8*t88+1.3739974473061137d+2*t134* 4329 ; t135*t136*t8*t88-1.3739974473061137d+2*t134*t135*t50*t88+ 4330 < 9.570780000627304d+0*t10*t138*t140*t88+t10*t8*(-9.5707800 4331 = 00627304d+0*t138*t140*t50*t8*t87+1.3739974473061137d+2*t1 4332 > 34*t135*t136*t8*t87-1.3739974473061137d+2*t134*t135*t50*t 4333 ? 87+9.570780000627304d+0*t10*t138*t140*t87+t10*t8*(-9.5707 4334 @ 80000627304d+0*t138*t140*t50*t8*t86+1.3739974473061137d+2 4335 1 *t134*t135*t136*t8*t86-1.3739974473061137d+2*t134*t135*t5 4336 2 0*t86+9.570780000627304d+0*t10*t138*t140*t86+t10*t8*(-9.5 4337 3 70780000627304d+0*t138*t140*t50*t8*t85+1.3739974473061137 4338 4 d+2*t134*t135*t136*t8*t85-1.3739974473061137d+2*t134*t135 4339 5 *t50*t85+9.570780000627304d+0*t10*t138*t140*t85+t10*t8*(- 4340 6 9.570780000627304d+0*t138*t140*t50*t8*t84+1.3739974473061 4341 7 137d+2*t134*t135*t136*t8*t84-1.3739974473061137d+2*t134*t 4342 8 135*t50*t84+9.570780000627304d+0*t10*t138*t140*t84+t10*t8 4343 9 *(-9.570780000627304d+0*t138*t140*t50*t8*t83+1.3739974473 4344 : 061137d+2*t134*t135*t136*t8*t83-1.3739974473061137d+2*t13 4345 ; 4*t135*t50*t83+9.570780000627304d+0*t10*t138*t140*t83+t10 4346 < *t8*(-9.570780000627304d+0*t138*t140*t50*t8*t82+1.3739974 4347 = 473061137d+2*t134*t135*t136*t8*t82-1.3739974473061137d+2* 4348 > t134*t135*t50*t82+9.570780000627304d+0*t10*t138*t140*t82+ 4349 ? t10*t8*(1.0634200000697003d+0*t29*t310*t311*t50*t8-2.6300 4350 @ 45457918064d+3*t165*t265*t29*t8+9.159982982040756d+1*t136 4351 1 *t137*t139*t29*t8-9.159982982040756d+1*t137*t139*t29*t50- 4352 2 1.0634200000697003d+0*t10*t29*t310*t311+2.630045457918064 4353 3 d+3*t136*t165*t29)-1.4356170000940957d+1*t181*t48*t49*t50 4354 4 *t8+1.0634200000697003d+0*t30*t310*t311*t50*t8-2.63004545 4355 5 7918064d+3*t165*t265*t30*t8+9.159982982040756d+1*t136*t13 4356 6 7*t139*t30*t8-9.159982982040756d+1*t137*t139*t30*t50+1.43 4357 7 56170000940957d+1*t10*t181*t48*t49-1.0634200000697003d+0* 4358 8 t10*t30*t310*t311+2.630045457918064d+3*t136*t165*t30)-1.4 4359 9 356170000940957d+1*t182*t48*t49*t50*t8+1.0634200000697003 4360 : d+0*t31*t310*t311*t50*t8-2.630045457918064d+3*t165*t265*t 4361 ; 31*t8+9.159982982040756d+1*t136*t137*t139*t31*t8-9.159982 4362 < 982040756d+1*t137*t139*t31*t50+1.4356170000940957d+1*t10* 4363 = t182*t48*t49-1.0634200000697003d+0*t10*t31*t310*t311+2.63 4364 > 0045457918064d+3*t136*t165*t31)-1.4356170000940957d+1*t18 4365 ? 3*t48*t49*t50*t8+1.0634200000697003d+0*t310*t311*t32*t50* 4366 @ t8-2.630045457918064d+3*t165*t265*t32*t8+9.15998298204075 4367 1 6d+1*t136*t137*t139*t32*t8-9.159982982040756d+1*t137*t139 4368 2 *t32*t50+1.4356170000940957d+1*t10*t183*t48*t49-1.0634200 4369 3 000697003d+0*t10*t310*t311*t32+2.630045457918064d+3*t136* 4370 4 t165*t32)-1.4356170000940957d+1*t184*t48*t49*t50*t8+1.063 4371 5 4200000697003d+0*t310*t311*t33*t50*t8-2.630045457918064d+ 4372 6 3*t165*t265*t33*t8+9.159982982040756d+1*t136*t137*t139*t3 4373 7 3*t8-9.159982982040756d+1*t137*t139*t33*t50+1.43561700009 4374 8 40957d+1*t10*t184*t48*t49-1.0634200000697003d+0*t10*t310* 4375 9 t311*t33+2.630045457918064d+3*t136*t165*t33)-1.4356170000 4376 : 940957d+1*t185*t48*t49*t50*t8+1.0634200000697003d+0*t310* 4377 ; t311*t34*t50*t8-2.630045457918064d+3*t165*t265*t34*t8+9.1 4378 < 59982982040756d+1*t136*t137*t139*t34*t8-9.159982982040756 4379 = d+1*t137*t139*t34*t50+1.4356170000940957d+1*t10*t185*t48* 4380 > t49-1.0634200000697003d+0*t10*t310*t311*t34+2.63004545791 4381 ? 8064d+3*t136*t165*t34)-1.4356170000940957d+1*t186*t48*t49 4382 @ *t50*t8+1.0634200000697003d+0*t310*t311*t35*t50*t8-2.6300 4383 1 45457918064d+3*t165*t265*t35*t8+9.159982982040756d+1*t136 4384 2 *t137*t139*t35*t8-9.159982982040756d+1*t137*t139*t35*t50+ 4385 3 1.4356170000940957d+1*t10*t186*t48*t49-1.0634200000697003 4386 4 d+0*t10*t310*t311*t35+2.630045457918064d+3*t136*t165*t35) 4387 5 -1.4356170000940957d+1*t187*t48*t49*t50*t8+1.063420000069 4388 6 7003d+0*t310*t311*t36*t50*t8-2.630045457918064d+3*t165*t2 4389 7 65*t36*t8+9.159982982040756d+1*t136*t137*t139*t36*t8-9.15 4390 8 9982982040756d+1*t137*t139*t36*t50+1.4356170000940957d+1* 4391 9 t10*t187*t48*t49-1.0634200000697003d+0*t10*t310*t311*t36+ 4392 : 2.630045457918064d+3*t136*t165*t36)-1.4356170000940957d+1 4393 ; *t188*t48*t49*t50*t8+1.0634200000697003d+0*t310*t311*t37* 4394 < t50*t8-2.630045457918064d+3*t165*t265*t37*t8+9.1599829820 4395 = 40756d+1*t136*t137*t139*t37*t8-9.159982982040756d+1*t137* 4396 > t139*t37*t50+1.4356170000940957d+1*t10*t188*t48*t49-1.063 4397 ? 4200000697003d+0*t10*t310*t311*t37+2.630045457918064d+3*t 4398 @ 136*t165*t37)-1.4356170000940957d+1*t189*t48*t49*t50*t8+1 4399 1 .0634200000697003d+0*t310*t311*t38*t50*t8-2.6300454579180 4400 2 64d+3*t165*t265*t38*t8+9.159982982040756d+1*t136*t137*t13 4401 3 9*t38*t8-9.159982982040756d+1*t137*t139*t38*t50+1.4356170 4402 4 000940957d+1*t10*t189*t48*t49-1.0634200000697003d+0*t10*t 4403 5 310*t311*t38+2.630045457918064d+3*t136*t165*t38)-1.435617 4404 6 0000940957d+1*t190*t48*t49*t50*t8+1.0634200000697003d+0*t 4405 7 310*t311*t39*t50*t8-2.630045457918064d+3*t165*t265*t39*t8 4406 8 +9.159982982040756d+1*t136*t137*t139*t39*t8-9.15998298204 4407 9 0756d+1*t137*t139*t39*t50+1.4356170000940957d+1*t10*t190* 4408 : t48*t49-1.0634200000697003d+0*t10*t310*t311*t39+2.6300454 4409 ; 57918064d+3*t136*t165*t39) 4410 t330 = 9.327207260896466d-2*t191*t81 4411 t331 = 1/t80**3 4412 t332 = 1.2436276347861956d-1*rhoa*t105**3*t331*t40 4413 t333 = 1.8654414521792934d-1*rhoa*t105*t191 4414 t334 = 1.8654414521792934d-1*t105*t92 4415 t335 = rhoa**5.000000000000002d-1 4416 t336 = -5.150267658720751d-1*gammaaa*t102*t335*t76*t79 4417 t337 = 1/rhoa**6.666666666666665d-1 4418 t338 = 5.518143920057951d-2*gammaaa*t106*t337*t76*t79 4419 t339 = 1/rhoa**1.8333333333333332d+0 4420 t340 = 7.567740233222326d-1*gammaaa*t100*t104*t94*t95*t99 4421 t341 = -7.567740233222326d-1*gammaaa*t207*t208*t76*t94*t95 4422 t342 = 6.486634485619136d-1*gammaaa*t207*t208*t24*t99 4423 t343 = 1/t78**4 4424 t344 = -6.486634485619136d-1*gammaaa*t104**3*t24*t343*t76 4425 t345 = -5.150267658720751d-1*gammaaa*t102*t335*t74 4426 t346 = 5.518143920057951d-2*gammaaa*t106*t337*t74 4427 t347 = -3.766352199404629d-2*gammaaa*t339*t74*t95 4428 t348 = -3.603685825343965d-2*gammaaa*t24*t317*t74 4429 t349 = 2.1298248828984737d+1*gammaaa*t106*t200*t71*t72*t97 4430 t350 = -1.0142023251897499d+0*gammaaa*t202*t71*t72*t95*t97 4431 t351 = 3.9144925898560723d+2*gammaaa*t214*t72*t94*t95*t97 4432 t352 = 3.783870116611163d-1*gammaaa*t216*t72*t94*t95*t97 4433 t353 = t71**3 4434 t354 = 3.597303318004418d+3*gammaaa*t24*t353*t72*t97 4435 t355 = 1.1590883716454273d+0*gammaaa*t166*t24*t71*t72*t97 4436 t356 = -1.608198422145741d+1*t166*t71-1.0000002936681321d+0* 4437 1 t317*t46*t47-3.216396844291483d+1*t328 4438 t357 = -1.0811057476031893d-1*gammaaa*t24*t356*t72*t97 4439 t358 = 1.0431795344808847d+1*gammaaa*t216*t24*t71*t72*t97 4440 t359 = -7.828985179712145d+2*gammaaa*t214*t218*t219*t94*t95 4441 t360 = -2.1583819908026508d+4*gammaaa*t218*t219*t24*t353 4442 t361 = -2.0863590689617695d+1*gammaaa*t216*t218*t219*t24*t71 4443 t362 = exp(6.000001762008792d+0*t46*t47) 4444 t363 = 2.1583819908026508d+4*gammaaa*t24*t353*t362/t73**4 4445 t364 = 1/t23**7.0d+0 4446 t365 = -2.783991983768912d-1*t101*t335*t364*t77 4447 t366 = 1.9885657026920814d-2*t101*t222*t337*t77 4448 t367 = 1.5350439481932196d+1*t101*t103*t200*t222*t71*t72 4449 t368 = 1.6927921751373973d+2*t101*t102*t103*t214*t72*t94 4450 t369 = 7.778130585933201d+2*t103*t27*t353*t72 4451 t370 = -5.078376525412192d+2*t101*t102*t214*t219*t226*t94 4452 t371 = -7.000317527339879d+3*t219*t226*t27*t353 4453 t372 = 9.33375670311984d+3*t27*t353*t362/t73**5.0d+0 4454 t373 = -6.218138173930978d-2*rhoa*t195*t92 4455 t374 = -3.109069086965489d-2*t195*t40 4456 t375 = -t105*t230 4457 t376 = t327+t323+t322+t321+t320-2.4999999999999994d-1*t166*t 4458 1 319+t318+8.44345d-3*t163*t164*t317+t316 4459 t377 = 1.8393813066859827d-2*gammaaa*t339*t74*t95 4460 t378 = 1.2012286084479884d-2*gammaaa*t24*t317*t74 4461 t379 = 2.1298248828984734d+1*gammaaa*t106*t200*t71*t72*t97 4462 t380 = -1.0142023251897496d+0*gammaaa*t202*t71*t72*t95*t97 4463 t381 = 2.5225800777407753d-1*gammaaa*t234*t72*t94*t95*t97 4464 t382 = 1.2612900388703877d-1*gammaaa*t216*t72*t94*t95*t97 4465 t383 = -3.8636279054847583d-1*gammaaa*t166*t24*t71*t72*t97 4466 t384 = 5.360661407152473d+0*t166*t71+3.333334312227107d-1*t3 4467 1 17*t46*t47-3.216396844291483d+1*t376 4468 t385 = -1.0811057476031893d-1*gammaaa*t24*t384*t72*t97 4469 t386 = 6.954530229872565d+0*gammaaa*t234*t24*t71*t72*t97 4470 t387 = 3.4772651149362827d+0*gammaaa*t216*t24*t71*t72*t97 4471 t388 = -1.3909060459745132d+1*gammaaa*t218*t219*t234*t24*t71 4472 t389 = -6.954530229872565d+0*gammaaa*t216*t218*t219*t24*t71 4473 t390 = 1.2436276347861956d-1*rhoa*t108*t195*t331*t40 4474 t391 = 6.218138173930978d-2*rhoa*t108*t191 4475 t392 = 6.218138173930978d-2*t108*t92 4476 t393 = 1.2436276347861956d-1*rhoa*t245*t92 4477 t394 = 6.218138173930978d-2*t245*t40 4478 t395 = -2.2072575680231782d-1*gammaaa*t100*t106*t107*t200*t7 4479 1 6 4480 t396 = 1.0510750323919903d-2*gammaaa*t100*t107*t202*t76*t95 4481 t397 = 5.518143920057945d-2*t106*t200*t76*t79 4482 t398 = -2.6276875809799755d-3*t202*t76*t79*t95 4483 t399 = 5.96569710807624d-3*gammaaa*t200*t222*t74*t79 4484 t400 = -2.840808146702972d-4*gammaaa*t102*t202*t74*t79 4485 t401 = -2.5225800777407753d-1*gammaaa*t243*t79*t94*t95 4486 t402 = 2.5225800777407753d-1*gammaaa*t100*t244*t76*t94*t95 4487 t403 = 2.5225800777407753d-1*gammaaa*t100*t107*t94*t95*t99 4488 t404 = -6.306450194351938d-2*t79*t94*t95*t99 4489 t405 = -2.1622114952063787d-1*gammaaa*t100*t24*t244*t99 4490 t406 = -5.045160155481551d-1*gammaaa*t104*t107*t207*t76*t94* 4491 1 t95 4492 t407 = 6.306450194351938d-2*t100*t104*t76*t94*t95 4493 t408 = 6.817939552087132d-3*gammaaa*t100*t102*t104*t74*t94 4494 t409 = -2.1622114952063787d-1*gammaaa*t100*t104*t24*t243 4495 t410 = 4.3244229904127574d-1*gammaaa*t104*t207*t24*t244*t76 4496 t411 = 4.3244229904127574d-1*gammaaa*t104*t107*t207*t24*t99 4497 t412 = -5.405528738015947d-2*t100*t104*t24*t99 4498 t413 = -6.486634485619136d-1*gammaaa*t107*t208*t24*t343*t76 4499 t414 = 5.405528738015947d-2*t207*t208*t24*t76 4500 t415 = 5.843948187503255d-3*gammaaa*t106*t207*t208*t74 4501 t416 = 5.518143920057945d-2*t106*t200*t74 4502 t417 = -2.6276875809799755d-3*t202*t74*t95 4503 t418 = 3.00307152111997d-3*t166*t24*t74 4504 t419 = -2.0284046503794984d+0*t71*t72*t94*t95*t97 4505 t420 = -2.7960661356114797d+1*t214*t24*t72*t97 4506 t421 = -2.7027643690079733d-2*t216*t24*t72*t97 4507 t422 = 5.592132271222959d+1*t214*t218*t219*t24 4508 t423 = 3.97713140538416d-2*gammaaa*t200*t222*t77 4509 t424 = -1.1363232586811889d-3*gammaaa*t102*t202*t77 4510 t425 = -1.7543359407922504d+0*gammaaa*t102*t103*t71*t72*t94 4511 t426 = 3.6274118038658515d+1*gammaaa*t106*t214*t219*t226 4512 t427 = -1.2436276347861956d-1*rhoa*t105*t245*t40 4513 t428 = 1.0d+0*((6.218138173930978d-2*rhoa*t40*(3.00307152111 4514 1 997d-3*t166*t24*t76*t79+3.2466378819462516d-4*gammaaa*t10 4515 2 6*t166*t74*t79+1.0811057476031893d-1*gammaaa*t24*(t422+t4 4516 3 21+t420+t419+t418+t417+t416)*t79+2.7027643690079733d-2*t2 4517 4 21*t24*t79-1.0811057476031893d-1*gammaaa*t100*t24*t76*(1. 4518 5 2986551527785006d-3*gammaaa*t106*t166*t77-1.1687896375006 4519 6 51d-2*gammaaa*t103*t106*t216*t72-1.2091372679552839d+1*ga 4520 7 mmaaa*t103*t106*t214*t72+t426+t425+t424+t423+t422+t421+t4 4521 8 20+t419+t418+t417+t416)+2.1622114952063787d-1*gammaaa*t10 4522 9 7*t207*t228*t24*t76-2.7027643690079733d-2*t100*t228*t24*t 4523 : 76-1.2012286084479878d-2*gammaaa*t100*t107*t166*t24*t76-2 4524 ; .9219740937516275d-3*gammaaa*t100*t106*t228*t74+t415+t414 4525 < +t413+t412+t411+t410+t409+t408+t407+t406+t405+t404+t403+t 4526 = 402+t401+t400+t399+t398+t397+t396+t395-1.0811057476031893 4527 > d-1*gammaaa*t100*t107*t221*t24)-1.0363563623218294d-2*t10 4528 ? 8*t197*t40+t394+t393+t392+t391)*t93+t194*(t427-t108*t230) 4529 @ +t390)*wght 4530 t429 = 1.2436276347861956d-1*rhoa*t110*t195*t331*t40 4531 t430 = 6.218138173930978d-2*rhoa*t110*t191 4532 t431 = 6.218138173930978d-2*t110*t92 4533 t432 = 1.2436276347861956d-1*rhoa*t252*t92 4534 t433 = 6.218138173930978d-2*t252*t40 4535 t434 = -2.2072575680231782d-1*gammaaa*t100*t106*t109*t200*t7 4536 1 6 4537 t435 = 1.0510750323919903d-2*gammaaa*t100*t109*t202*t76*t95 4538 t436 = 1.1036287840115891d-1*t106*t200*t76*t79 4539 t437 = -5.255375161959951d-3*t202*t76*t79*t95 4540 t438 = 1.1931394216152481d-2*gammaaa*t200*t222*t74*t79 4541 t439 = -5.681616293405944d-4*gammaaa*t102*t202*t74*t79 4542 t440 = -2.5225800777407753d-1*gammaaa*t250*t79*t94*t95 4543 t441 = 2.5225800777407753d-1*gammaaa*t100*t251*t76*t94*t95 4544 t442 = 2.5225800777407753d-1*gammaaa*t100*t109*t94*t95*t99 4545 t443 = -1.2612900388703877d-1*t79*t94*t95*t99 4546 t444 = -2.1622114952063787d-1*gammaaa*t100*t24*t251*t99 4547 t445 = -5.045160155481551d-1*gammaaa*t104*t109*t207*t76*t94* 4548 1 t95 4549 t446 = 1.2612900388703877d-1*t100*t104*t76*t94*t95 4550 t447 = 1.3635879104174264d-2*gammaaa*t100*t102*t104*t74*t94 4551 t448 = -2.1622114952063787d-1*gammaaa*t100*t104*t24*t250 4552 t449 = 4.3244229904127574d-1*gammaaa*t104*t207*t24*t251*t76 4553 t450 = 4.3244229904127574d-1*gammaaa*t104*t109*t207*t24*t99 4554 t451 = -1.0811057476031893d-1*t100*t104*t24*t99 4555 t452 = -6.486634485619136d-1*gammaaa*t109*t208*t24*t343*t76 4556 t453 = 1.0811057476031893d-1*t207*t208*t24*t76 4557 t454 = 1.168789637500651d-2*gammaaa*t106*t207*t208*t74 4558 t455 = 1.1036287840115891d-1*t106*t200*t74 4559 t456 = -5.255375161959951d-3*t202*t74*t95 4560 t457 = 6.00614304223994d-3*t166*t24*t74 4561 t458 = -4.0568093007589967d+0*t71*t72*t94*t95*t97 4562 t459 = -5.592132271222959d+1*t214*t24*t72*t97 4563 t460 = -5.405528738015947d-2*t216*t24*t72*t97 4564 t461 = 1.118426454244592d+2*t214*t218*t219*t24 4565 t462 = 7.95426281076832d-2*gammaaa*t200*t222*t77 4566 t463 = -2.2726465173623778d-3*gammaaa*t102*t202*t77 4567 t464 = -3.508671881584501d+0*gammaaa*t102*t103*t71*t72*t94 4568 t465 = 7.254823607731703d+1*gammaaa*t106*t214*t219*t226 4569 t466 = -1.2436276347861956d-1*rhoa*t105*t252*t40 4570 t467 = -3.00307152111997d-3*t166*t24*t74 4571 t468 = -2.79606613561148d+1*t214*t24*t72*t97 4572 t469 = -2.7027643690079733d-2*t234*t24*t72*t97 4573 t470 = 5.59213227122296d+1*t214*t218*t219*t24 4574 t471 = -6.00614304223994d-3*t166*t24*t74 4575 t472 = -5.59213227122296d+1*t214*t24*t72*t97 4576 t473 = -5.405528738015947d-2*t234*t24*t72*t97 4577 t474 = 1.1184264542445921d+2*t214*t218*t219*t24 4578 t475 = 6.306450194351938d-2*t100*t107*t76*t94*t95 4579 t476 = 6.817939552087132d-3*gammaaa*t100*t102*t107*t74*t94 4580 t477 = 5.405528738015947d-2*t24*t243*t79 4581 t478 = -5.405528738015947d-2*t100*t24*t244*t76 4582 t479 = -5.843948187503255d-3*gammaaa*t100*t106*t244*t74 4583 t480 = -5.405528738015947d-2*t100*t107*t24*t99 4584 t481 = 1.0811057476031893d-1*t104*t107*t207*t24*t76 4585 t482 = 1.168789637500651d-2*gammaaa*t104*t106*t107*t207*t74 4586 t483 = 1.0d+0*(t93*(6.218138173930978d-2*rhoa*t40*(-1.579481 4587 1 4935512527d-4*gammaaa*t100*t222*t77*t99+2.162211495206378 4588 2 7d-1*gammaaa*t207*t24*t255*t99-2.5225800777407753d-1*gamm 4589 3 aaa*t207*t255*t76*t94*t95-1.0811057476031893d-1*gammaaa*t 4590 4 100*t24*t76*(9.398228254244201d-2*t103*t106*t71*t72-3.408 4591 5 969776043565d-3*t102*t77*t94)-1.704484888021783d-3*t102*t 4592 6 74*t79*t94+1.8427284091431279d-4*gammaaa*t100*t364*t76*t7 4593 7 7*t94+3.1589629871025054d-4*gammaaa*t104*t207*t222*t76*t7 4594 8 7-6.486634485619136d-1*gammaaa*t104*t24*t255*t343*t76+4.3 4595 9 244229904127574d-1*gammaaa*t107*t207*t24*t244*t76-1.46098 4596 : 70468758138d-3*t100*t104*t106*t74+t482+t481+t480+t479+t47 4597 ; 8+t477+t476+t475-2.1622114952063787d-1*gammaaa*t100*t107* 4598 < t24*t243)+6.218138173930978d-2*rhoa*t258*t92+3.1090690869 4599 = 65489d-2*t258*t40)+t194*(-6.218138173930978d-2*rhoa*t105* 4600 > t258*t40-6.218138173930978d-2*rhoa*t108*t245*t40-t108*t24 4601 ? 6)+1.2436276347861956d-1*rhoa*t105*t254*t331*t40)*wght 4602 t484 = 1.2436276347861956d-1*rhoa*t105*t108*t110*t331*t40 4603 t485 = t93*(6.218138173930978d-2*rhoa*t40*(-3.15896298710250 4604 1 54d-4*gammaaa*t100*t222*t77*t99+2.1622114952063787d-1*gam 4605 2 maaa*t107*t109*t207*t24*t99-2.7027643690079733d-2*t100*t1 4606 3 09*t24*t99-2.5225800777407753d-1*gammaaa*t107*t109*t207*t 4607 4 76*t94*t95+3.153225097175969d-2*t100*t109*t76*t94*t95-1.0 4608 5 811057476031893d-1*gammaaa*t100*t24*t76*(1.87964565084884 4609 6 02d-1*t103*t106*t71*t72-6.81793955208713d-3*t102*t77*t94) 4610 7 -3.408969776043566d-3*t102*t74*t79*t94+3.6854568182862557 4611 8 d-4*gammaaa*t100*t364*t76*t77*t94+3.408969776043566d-3*ga 4612 9 mmaaa*t100*t102*t109*t74*t94+2.7027643690079733d-2*t24*t2 4613 : 50*t79+6.317925974205011d-4*gammaaa*t104*t207*t222*t76*t7 4614 ; 7-6.486634485619136d-1*gammaaa*t104*t107*t109*t24*t343*t7 4615 < 6+2.1622114952063787d-1*gammaaa*t107*t207*t24*t251*t76-2. 4616 = 7027643690079733d-2*t100*t24*t251*t76+2.1622114952063787d 4617 > -1*gammaaa*t109*t207*t24*t244*t76+5.405528738015947d-2*t1 4618 ? 04*t109*t207*t24*t76-2.9219740937516275d-3*gammaaa*t100*t 4619 @ 106*t251*t74+5.843948187503255d-3*gammaaa*t104*t106*t109* 4620 1 t207*t74-2.9219740937516275d-3*t100*t104*t106*t74+t482+t4 4621 2 81+t480+t479+t478+t477+t476+t475-1.0811057476031893d-1*ga 4622 3 mmaaa*t100*t107*t24*t250-1.0811057476031893d-1*gammaaa*t1 4623 4 00*t109*t24*t243)+6.218138173930978d-2*rhoa*t260*t92+3.10 4624 5 9069086965489d-2*t260*t40) 4625 t486 = -6.218138173930978d-2*rhoa*t105*t260*t40 4626 t487 = 1/t23**8.0d+0 4627 t488 = 6.218138173930978d-2*rhoa*t40*(9.476888961307518d-4*g 4628 1 ammaaa*t107*t207*t222*t76*t77-1.1846111201634398d-4*t100* 4629 2 t222*t76*t77-6.486634485619136d-1*gammaaa*t107**3*t24*t34 4630 3 3*t76+1.621658621404784d-1*t207*t24*t255*t76+1.7531844562 4631 4 509763d-2*gammaaa*t106*t207*t255*t74-4.3829611406274405d- 4632 5 3*t100*t106*t107*t74-1.2806898906833467d-5*gammaaa*t100*t 4633 6 103*t487)*t93*wght+1.2436276347861956d-1*rhoa*t108**3*t33 4634 7 1*t40*wght-1.8654414521792934d-1*rhoa*t108*t194*t258*t40* 4635 8 wght 4636 t489 = 1.2635851948410023d-3*gammaaa*t107*t207*t222*t76*t77 4637 t490 = -5.843948187503255d-3*t100*t106*t107*t74 4638 t491 = t194*(-1.2436276347861956d-1*rhoa*t108*t260*t40*wght- 4639 1 6.218138173930978d-2*rhoa*t110*t258*t40*wght)+6.218138173 4640 2 930978d-2*rhoa*t40*(3.1589629871025054d-4*gammaaa*t109*t2 4641 3 07*t222*t76*t77-2.3692222403268795d-4*t100*t222*t76*t77-6 4642 4 .486634485619136d-1*gammaaa*t109*t24*t255*t343*t76+1.0811 4643 5 057476031893d-1*t207*t24*t255*t76+1.0811057476031893d-1*t 4644 6 107*t109*t207*t24*t76+1.168789637500651d-2*gammaaa*t106*t 4645 7 207*t255*t74+1.168789637500651d-2*gammaaa*t106*t107*t109* 4646 8 t207*t74-1.4609870468758138d-3*t100*t106*t109*t74+t490+t4 4647 9 89-2.5613797813666933d-5*gammaaa*t100*t103*t487)*t93*wght 4648 : +1.2436276347861956d-1*rhoa*t110*t254*t331*t40*wght 4649 t492 = 1/t9**5 4650 t493 = -1.243628d-1*rhoa*t46*t47*(t10*t8*(t10*t8*(t10*t8*(t1 4651 1 0*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(-1. 4652 2 3739974473061137d+2*t11*t134*t135*t265*t8+6.3805200004182 4653 3 02d+0*t11*t136*t138*t140*t8+4.579991491020378d+1*t11*t134 4654 4 *t135*t136)+1.9141560001254607d+1*t136*t48*t49*t51*t8-t14 4655 5 1*t50*t8-3.190260000209101d+0*t111*t138*t140*t50*t8-1.373 4656 6 9974473061137d+2*t12*t134*t135*t265*t8+9.159982982040756d 4657 7 +1*t11*t134*t135*t265*t8+6.380520000418202d+0*t12*t136*t1 4658 8 38*t140*t8+4.579991491020378d+1*t111*t134*t135*t136*t8-4. 4659 9 579991491020378d+1*t111*t134*t135*t50-9.159982982040756d+ 4660 : 1*t11*t134*t135*t264*t492-t10*t141+3.190260000209101d+0*t 4661 ; 10*t111*t138*t140+4.579991491020378d+1*t12*t134*t135*t136 4662 < )+1.9141560001254607d+1*t136*t48*t49*t52*t8-9.57078000062 4663 = 7304d+0*t266*t48*t49*t50*t8-t142*t50*t8-3.190260000209101 4664 > d+0*t112*t138*t140*t50*t8-1.3739974473061137d+2*t13*t134* 4665 ? t135*t265*t8+6.380520000418202d+0*t13*t136*t138*t140*t8+4 4666 @ .579991491020378d+1*t112*t134*t135*t136*t8-4.579991491020 4667 1 378d+1*t112*t134*t135*t50+9.570780000627304d+0*t10*t266*t 4668 2 48*t49-t10*t142+3.190260000209101d+0*t10*t112*t138*t140+4 4669 3 .579991491020378d+1*t13*t134*t135*t136)+1.914156000125460 4670 4 7d+1*t136*t48*t49*t53*t8-9.570780000627304d+0*t267*t48*t4 4671 5 9*t50*t8-t143*t50*t8-3.190260000209101d+0*t113*t138*t140* 4672 6 t50*t8-1.3739974473061137d+2*t134*t135*t14*t265*t8+6.3805 4673 7 20000418202d+0*t136*t138*t14*t140*t8+4.579991491020378d+1 4674 8 *t113*t134*t135*t136*t8-4.579991491020378d+1*t113*t134*t1 4675 9 35*t50+9.570780000627304d+0*t10*t267*t48*t49-t10*t143+3.1 4676 : 90260000209101d+0*t10*t113*t138*t140+4.579991491020378d+1 4677 ; *t134*t135*t136*t14)+1.9141560001254607d+1*t136*t48*t49*t 4678 < 54*t8-9.570780000627304d+0*t268*t48*t49*t50*t8-t144*t50*t 4679 = 8-3.190260000209101d+0*t114*t138*t140*t50*t8-1.3739974473 4680 > 061137d+2*t134*t135*t15*t265*t8+6.380520000418202d+0*t136 4681 ? *t138*t140*t15*t8+4.579991491020378d+1*t114*t134*t135*t13 4682 @ 6*t8-4.579991491020378d+1*t114*t134*t135*t50+9.5707800006 4683 1 27304d+0*t10*t268*t48*t49+4.579991491020378d+1*t134*t135* 4684 2 t136*t15-t10*t144+3.190260000209101d+0*t10*t114*t138*t140 4685 3 )+1.9141560001254607d+1*t136*t48*t49*t55*t8-9.57078000062 4686 4 7304d+0*t269*t48*t49*t50*t8-t145*t50*t8-3.190260000209101 4687 5 d+0*t115*t138*t140*t50*t8-1.3739974473061137d+2*t134*t135 4688 6 *t16*t265*t8+6.380520000418202d+0*t136*t138*t140*t16*t8+4 4689 7 .579991491020378d+1*t115*t134*t135*t136*t8-4.579991491020 4690 8 378d+1*t115*t134*t135*t50+9.570780000627304d+0*t10*t269*t 4691 9 48*t49+4.579991491020378d+1*t134*t135*t136*t16-t10*t145+3 4692 : .190260000209101d+0*t10*t115*t138*t140)+1.914156000125460 4693 ; 7d+1*t136*t48*t49*t56*t8-9.570780000627304d+0*t270*t48*t4 4694 < 9*t50*t8-t146*t50*t8-3.190260000209101d+0*t116*t138*t140* 4695 = t50*t8-1.3739974473061137d+2*t134*t135*t17*t265*t8+6.3805 4696 > 20000418202d+0*t136*t138*t140*t17*t8+4.579991491020378d+1 4697 ? *t116*t134*t135*t136*t8-4.579991491020378d+1*t116*t134*t1 4698 @ 35*t50+9.570780000627304d+0*t10*t270*t48*t49+4.5799914910 4699 1 20378d+1*t134*t135*t136*t17-t10*t146+3.190260000209101d+0 4700 2 *t10*t116*t138*t140)+1.9141560001254607d+1*t136*t48*t49*t 4701 3 57*t8-9.570780000627304d+0*t271*t48*t49*t50*t8-t147*t50*t 4702 4 8-3.190260000209101d+0*t117*t138*t140*t50*t8-1.3739974473 4703 5 061137d+2*t134*t135*t18*t265*t8+6.380520000418202d+0*t136 4704 6 *t138*t140*t18*t8+4.579991491020378d+1*t117*t134*t135*t13 4705 7 6*t8-4.579991491020378d+1*t117*t134*t135*t50+9.5707800006 4706 8 27304d+0*t10*t271*t48*t49+4.579991491020378d+1*t134*t135* 4707 9 t136*t18-t10*t147+3.190260000209101d+0*t10*t117*t138*t140 4708 : )+1.9141560001254607d+1*t136*t48*t49*t58*t8-9.57078000062 4709 ; 7304d+0*t272*t48*t49*t50*t8-t148*t50*t8-3.190260000209101 4710 < d+0*t118*t138*t140*t50*t8-1.3739974473061137d+2*t134*t135 4711 = *t19*t265*t8+6.380520000418202d+0*t136*t138*t140*t19*t8+4 4712 > .579991491020378d+1*t118*t134*t135*t136*t8-4.579991491020 4713 ? 378d+1*t118*t134*t135*t50+9.570780000627304d+0*t10*t272*t 4714 @ 48*t49+4.579991491020378d+1*t134*t135*t136*t19-t10*t148+3 4715 1 .190260000209101d+0*t10*t118*t138*t140)+1.914156000125460 4716 2 7d+1*t136*t48*t49*t59*t8-9.570780000627304d+0*t273*t48*t4 4717 3 9*t50*t8-t149*t50*t8-3.190260000209101d+0*t119*t138*t140* 4718 4 t50*t8-1.3739974473061137d+2*t134*t135*t20*t265*t8+6.3805 4719 5 20000418202d+0*t136*t138*t140*t20*t8+4.579991491020378d+1 4720 6 *t119*t134*t135*t136*t8-4.579991491020378d+1*t119*t134*t1 4721 7 35*t50+9.570780000627304d+0*t10*t273*t48*t49+4.5799914910 4722 8 20378d+1*t134*t135*t136*t20-t10*t149+3.190260000209101d+0 4723 9 *t10*t119*t138*t140)+1.9141560001254607d+1*t136*t48*t49*t 4724 : 60*t8-9.570780000627304d+0*t274*t48*t49*t50*t8-t150*t50*t 4725 ; 8-3.190260000209101d+0*t120*t138*t140*t50*t8-1.3739974473 4726 < 061137d+2*t134*t135*t21*t265*t8+6.380520000418202d+0*t136 4727 = *t138*t140*t21*t8+4.579991491020378d+1*t120*t134*t135*t13 4728 > 6*t8-4.579991491020378d+1*t120*t134*t135*t50+9.5707800006 4729 ? 27304d+0*t10*t274*t48*t49+4.579991491020378d+1*t134*t135* 4730 @ t136*t21-t10*t150+3.190260000209101d+0*t10*t120*t138*t140 4731 1 ) 4732 t494 = -1.243628d-1*t275*t46*t47 4733 t495 = 4.0d+0*rhoa*t275*t71 4734 t496 = 2.0d+0*t121*t71 4735 t497 = 6.218138173930978d-2*rhoa*t81*(1.9141560001254607d+1* 4736 1 t136*t48*t49*t8*t91+t10*t8*(1.9141560001254607d+1*t136*t4 4737 2 8*t49*t8*t90+t10*t8*(1.9141560001254607d+1*t136*t48*t49*t 4738 3 8*t89+t10*t8*(1.9141560001254607d+1*t136*t48*t49*t8*t88+t 4739 4 10*t8*(1.9141560001254607d+1*t136*t48*t49*t8*t87+t10*t8*( 4740 5 1.9141560001254607d+1*t136*t48*t49*t8*t86+t10*t8*(1.91415 4741 6 60001254607d+1*t136*t48*t49*t8*t85+t10*t8*(1.914156000125 4742 7 4607d+1*t136*t48*t49*t8*t84+t10*t8*(1.9141560001254607d+1 4743 8 *t136*t48*t49*t8*t83+t10*t8*(1.9141560001254607d+1*t136*t 4744 9 48*t49*t8*t82+t10*t8*(-1.3739974473061137d+2*t134*t135*t2 4745 : 65*t29*t8+6.380520000418202d+0*t136*t138*t140*t29*t8+4.57 4746 ; 9991491020378d+1*t134*t135*t136*t29)-t181*t50*t8-3.190260 4747 < 000209101d+0*t122*t138*t140*t50*t8-1.3739974473061137d+2* 4748 = t134*t135*t265*t30*t8+6.380520000418202d+0*t136*t138*t140 4749 > *t30*t8+9.159982982040756d+1*t134*t135*t265*t29*t8+4.5799 4750 ? 91491020378d+1*t122*t134*t135*t136*t8-4.579991491020378d+ 4751 @ 1*t122*t134*t135*t50-9.159982982040756d+1*t134*t135*t264* 4752 1 t29*t492+4.579991491020378d+1*t134*t135*t136*t30-t10*t181 4753 2 +3.190260000209101d+0*t10*t122*t138*t140)-9.5707800006273 4754 3 04d+0*t276*t48*t49*t50*t8-t182*t50*t8-3.190260000209101d+ 4755 4 0*t123*t138*t140*t50*t8-1.3739974473061137d+2*t134*t135*t 4756 5 265*t31*t8+6.380520000418202d+0*t136*t138*t140*t31*t8+4.5 4757 6 79991491020378d+1*t123*t134*t135*t136*t8-4.57999149102037 4758 7 8d+1*t123*t134*t135*t50+9.570780000627304d+0*t10*t276*t48 4759 8 *t49+4.579991491020378d+1*t134*t135*t136*t31-t10*t182+3.1 4760 9 90260000209101d+0*t10*t123*t138*t140)-9.570780000627304d+ 4761 : 0*t277*t48*t49*t50*t8-t183*t50*t8-3.190260000209101d+0*t1 4762 ; 24*t138*t140*t50*t8-1.3739974473061137d+2*t134*t135*t265* 4763 < t32*t8+6.380520000418202d+0*t136*t138*t140*t32*t8+4.57999 4764 = 1491020378d+1*t124*t134*t135*t136*t8-4.579991491020378d+1 4765 > *t124*t134*t135*t50+9.570780000627304d+0*t10*t277*t48*t49 4766 ? +4.579991491020378d+1*t134*t135*t136*t32-t10*t183+3.19026 4767 @ 0000209101d+0*t10*t124*t138*t140)-9.570780000627304d+0*t2 4768 1 78*t48*t49*t50*t8-t184*t50*t8-3.190260000209101d+0*t125*t 4769 2 138*t140*t50*t8-1.3739974473061137d+2*t134*t135*t265*t33* 4770 3 t8+6.380520000418202d+0*t136*t138*t140*t33*t8+4.579991491 4771 4 020378d+1*t125*t134*t135*t136*t8-4.579991491020378d+1*t12 4772 5 5*t134*t135*t50+9.570780000627304d+0*t10*t278*t48*t49+4.5 4773 6 79991491020378d+1*t134*t135*t136*t33-t10*t184+3.190260000 4774 7 209101d+0*t10*t125*t138*t140)-9.570780000627304d+0*t279*t 4775 8 48*t49*t50*t8-t185*t50*t8-3.190260000209101d+0*t126*t138* 4776 9 t140*t50*t8-1.3739974473061137d+2*t134*t135*t265*t34*t8+6 4777 : .380520000418202d+0*t136*t138*t140*t34*t8+4.5799914910203 4778 ; 78d+1*t126*t134*t135*t136*t8-4.579991491020378d+1*t126*t1 4779 < 34*t135*t50+9.570780000627304d+0*t10*t279*t48*t49+4.57999 4780 = 1491020378d+1*t134*t135*t136*t34-t10*t185+3.1902600002091 4781 > 01d+0*t10*t126*t138*t140)-9.570780000627304d+0*t280*t48*t 4782 ? 49*t50*t8-t186*t50*t8-3.190260000209101d+0*t127*t138*t140 4783 @ *t50*t8-1.3739974473061137d+2*t134*t135*t265*t35*t8+6.380 4784 1 520000418202d+0*t136*t138*t140*t35*t8+4.579991491020378d+ 4785 2 1*t127*t134*t135*t136*t8-4.579991491020378d+1*t127*t134*t 4786 3 135*t50+9.570780000627304d+0*t10*t280*t48*t49+4.579991491 4787 4 020378d+1*t134*t135*t136*t35-t10*t186+3.190260000209101d+ 4788 5 0*t10*t127*t138*t140)-9.570780000627304d+0*t281*t48*t49*t 4789 6 50*t8-t187*t50*t8-3.190260000209101d+0*t128*t138*t140*t50 4790 7 *t8-1.3739974473061137d+2*t134*t135*t265*t36*t8+6.3805200 4791 8 00418202d+0*t136*t138*t140*t36*t8+4.579991491020378d+1*t1 4792 9 28*t134*t135*t136*t8-4.579991491020378d+1*t128*t134*t135* 4793 : t50+9.570780000627304d+0*t10*t281*t48*t49+4.5799914910203 4794 ; 78d+1*t134*t135*t136*t36-t10*t187+3.190260000209101d+0*t1 4795 < 0*t128*t138*t140)-9.570780000627304d+0*t282*t48*t49*t50*t 4796 = 8-t188*t50*t8-3.190260000209101d+0*t129*t138*t140*t50*t8- 4797 > 1.3739974473061137d+2*t134*t135*t265*t37*t8+6.38052000041 4798 ? 8202d+0*t136*t138*t140*t37*t8+4.579991491020378d+1*t129*t 4799 @ 134*t135*t136*t8-4.579991491020378d+1*t129*t134*t135*t50+ 4800 1 9.570780000627304d+0*t10*t282*t48*t49+4.579991491020378d+ 4801 2 1*t134*t135*t136*t37-t10*t188+3.190260000209101d+0*t10*t1 4802 3 29*t138*t140)-9.570780000627304d+0*t283*t48*t49*t50*t8-t1 4803 4 89*t50*t8-3.190260000209101d+0*t130*t138*t140*t50*t8-1.37 4804 5 39974473061137d+2*t134*t135*t265*t38*t8+6.380520000418202 4805 6 d+0*t136*t138*t140*t38*t8+4.579991491020378d+1*t130*t134* 4806 7 t135*t136*t8-4.579991491020378d+1*t130*t134*t135*t50+9.57 4807 8 0780000627304d+0*t10*t283*t48*t49+4.579991491020378d+1*t1 4808 9 34*t135*t136*t38-t10*t189+3.190260000209101d+0*t10*t130*t 4809 : 138*t140)-9.570780000627304d+0*t284*t48*t49*t50*t8-t190*t 4810 ; 50*t8-3.190260000209101d+0*t131*t138*t140*t50*t8-1.373997 4811 < 4473061137d+2*t134*t135*t265*t39*t8+6.380520000418202d+0* 4812 = t136*t138*t140*t39*t8+4.579991491020378d+1*t131*t134*t135 4813 > *t136*t8-4.579991491020378d+1*t131*t134*t135*t50+9.570780 4814 ? 000627304d+0*t10*t284*t48*t49+4.579991491020378d+1*t134*t 4815 @ 135*t136*t39-t10*t190+3.190260000209101d+0*t10*t131*t138* 4816 1 t140) 4817 t498 = 6.218138173930978d-2*t285*t81 4818 t499 = -6.218138173930978d-2*rhoa*t133*t194*t195 4819 t500 = 1.2436276347861956d-1*rhoa*t105*t285 4820 t501 = 6.218138173930978d-2*t105*t133 4821 t502 = 1.0d+0*((t501+t500+6.218138173930978d-2*rhoa*t133*t22 4822 1 9)*t93-1.0363563623218294d-2*t133*t197*t81+t499+t498+t497 4823 2 +t496+t495+t494+t493+2.0d+0*rhoa*t121*t180)*wght 4824 t503 = 1.0d+0*((6.218138173930978d-2*rhoa*t108*t285+6.218138 4825 1 173930978d-2*rhoa*t133*t245+3.109069086965489d-2*t108*t13 4826 2 3)*t93-6.218138173930978d-2*rhoa*t105*t108*t133*t194)*wgh 4827 3 t 4828 t504 = 1.0d+0*((6.218138173930978d-2*rhoa*t110*t285+6.218138 4829 1 173930978d-2*rhoa*t133*t252+3.109069086965489d-2*t110*t13 4830 2 3)*t93-6.218138173930978d-2*rhoa*t105*t110*t133*t194)*wgh 4831 3 t 4832 t505 = 6.218138173930978d-2*rhoa*t133*t258*t93*wght-6.218138 4833 1 173930978d-2*rhoa*t133*t194*t254*wght 4834 t506 = 6.218138173930978d-2*rhoa*t133*t260*t93*wght-6.218138 4835 1 173930978d-2*rhoa*t108*t110*t133*t194*wght 4836 t507 = 1.0d+0*(6.218138173930978d-2*rhoa*(t10*t8*(t10*t8*(t1 4837 1 0*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10 4838 2 *t8*(-6*t265*t29*t8-6*t136*t29)-3*t299*t50*t8-6*t265*t30* 4839 3 t8+6*t122*t136*t8+6*t122*t50-6*t136*t30-3*t10*t299)-3*t30 4840 4 0*t50*t8-6*t265*t31*t8+6*t123*t136*t8+6*t123*t50-6*t136*t 4841 5 31-3*t10*t300)-3*t301*t50*t8-6*t265*t32*t8+6*t124*t136*t8 4842 6 +6*t124*t50-6*t136*t32-3*t10*t301)-3*t302*t50*t8-6*t265*t 4843 7 33*t8+6*t125*t136*t8+6*t125*t50-6*t136*t33-3*t10*t302)-3* 4844 8 t303*t50*t8-6*t265*t34*t8+6*t126*t136*t8+6*t126*t50-6*t13 4845 9 6*t34-3*t10*t303)-3*t304*t50*t8-6*t265*t35*t8+6*t127*t136 4846 : *t8+6*t127*t50-6*t136*t35-3*t10*t304)-3*t305*t50*t8-6*t26 4847 ; 5*t36*t8+6*t128*t136*t8+6*t128*t50-6*t136*t36-3*t10*t305) 4848 < -3*t306*t50*t8-6*t265*t37*t8+6*t129*t136*t8+6*t129*t50-6* 4849 = t136*t37-3*t10*t306)-3*t307*t50*t8-6*t265*t38*t8+6*t130*t 4850 > 136*t8+6*t130*t50-6*t136*t38-3*t10*t307)-3*t308*t50*t8-6* 4851 ? t265*t39*t8+6*t131*t136*t8+6*t131*t50-6*t136*t39-3*t10*t3 4852 @ 08)*t81-1.243628d-1*rhoa*t46*t47*(t10*t8*(t10*t8*(t10*t8* 4853 1 (t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*(t10*t8*( 4854 2 -6*t11*t265*t8-6*t11*t136)-3*t289*t50*t8-6*t12*t265*t8+6* 4855 3 t111*t136*t8+6*t111*t50-3*t10*t289-6*t12*t136)-3*t290*t50 4856 4 *t8-6*t13*t265*t8+6*t112*t136*t8+6*t112*t50-3*t10*t290-6* 4857 5 t13*t136)-3*t291*t50*t8-6*t14*t265*t8+6*t113*t136*t8+6*t1 4858 6 13*t50-3*t10*t291-6*t136*t14)-3*t292*t50*t8-6*t15*t265*t8 4859 7 +6*t114*t136*t8+6*t114*t50-3*t10*t292-6*t136*t15)-3*t293* 4860 8 t50*t8-6*t16*t265*t8+6*t115*t136*t8+6*t115*t50-3*t10*t293 4861 9 -6*t136*t16)-3*t294*t50*t8-6*t17*t265*t8+6*t116*t136*t8+6 4862 : *t116*t50-3*t10*t294-6*t136*t17)-3*t295*t50*t8-6*t18*t265 4863 ; *t8+6*t117*t136*t8+6*t117*t50-3*t10*t295-6*t136*t18)-3*t2 4864 < 96*t50*t8-6*t19*t265*t8+6*t118*t136*t8+6*t118*t50-3*t10*t 4865 = 296-6*t136*t19)-3*t297*t50*t8-6*t20*t265*t8+6*t119*t136*t 4866 > 8+6*t119*t50-3*t10*t297-6*t136*t20)-3*t298*t50*t8-6*t21*t 4867 ? 265*t8+6*t120*t136*t8+6*t120*t50-3*t10*t298-6*t136*t21))* 4868 @ wght 4869 fnc(iq) = 1.0d+0*(6.218138173930978d-2*rhoa*log(1.0811057476 4870 1 031892d-1*gammaaa*t24*(t26+1.0d+0)/(1.1687896375006504d-2 4871 2 *t27/t25**2.0d+0+t26+1.0d+0)+1.0d+0)*t40-1.243628d-1*rhoa 4872 3 *t22*t4*t6)*wght+fnc(iq) 4873 Amat(iq,D1_RA) = 1.0d+0*(6.218138173930978d-2*rhoa*t105*t40* 4874 1 t93+6.218138173930978d-2*rhoa*t81*t92+3.109069086965489d- 4875 2 2*t40*t81+2.0d+0*rhoa*t22*t71-1.243628d-1*rhoa*t46*t47*t6 4876 3 1-6.21814d-2*t22*t46*t47)*wght+Amat(iq,D1_RA) 4877 Cmat(iq,D1_GAA) = 6.218138173930978d-2*rhoa*t108*t40*t93*wgh 4878 1 t+Cmat(iq,D1_GAA) 4879 Cmat(iq,D1_GAB) = 6.218138173930978d-2*rhoa*t110*t40*t93*wgh 4880 1 t+Cmat(iq,D1_GAB) 4881 Mmat(iq,D1_TA) = 1.0d+0*(6.218138173930978d-2*rhoa*t133*t81- 4882 1 1.243628d-1*rhoa*t121*t46*t47)*wght+Mmat(iq,D1_TA) 4883 Amat2(iq,D2_RA_RA) = 1.0d+0*(t230*t93-1.0363563623218294d-2* 4884 1 t197*t40*t81+2.0d+0*rhoa*t180*t22+t196+t193+t192+t155+t15 4885 2 4+t153+t152)*wght+Amat2(iq,D2_RA_RA) 4886 Amat2(iq,D2_RA_RB) = 1.0d+0*(t240*t93+1.0363563623218296d-2* 4887 1 t197*t40*t81+2.0d+0*rhoa*t22*t231+t196+t193+t192+t155+t15 4888 2 4+t153+t152)*wght+Amat2(iq,D2_RA_RB) 4889 Cmat2(iq,D2_RA_GAA) = t247+Cmat2(iq,D2_RA_GAA) 4890 Cmat2(iq,D2_RA_GAB) = 1.0d+0*(t253*t93-6.218138173930978d-2* 4891 1 rhoa*t105*t110*t194*t40)*wght+Cmat2(iq,D2_RA_GAB) 4892 Cmat2(iq,D2_RA_GBB) = t247+Cmat2(iq,D2_RA_GBB) 4893 Cmat2(iq,D2_GAA_GAA) = t259+Cmat2(iq,D2_GAA_GAA) 4894 Cmat2(iq,D2_GAA_GAB) = 6.218138173930978d-2*rhoa*t260*t40*t9 4895 1 3*wght-6.218138173930978d-2*rhoa*t108*t110*t194*t40*wght+ 4896 2 Cmat2(iq,D2_GAA_GAB) 4897 Cmat2(iq,D2_GAA_GBB) = t259+Cmat2(iq,D2_GAA_GBB) 4898 Cmat2(iq,D2_GAB_GAB) = 6.218138173930978d-2*rhoa*t263*t40*t9 4899 1 3*wght-6.218138173930978d-2*rhoa*t194*t261*t40*wght+Cmat2 4900 2 (iq,D2_GAB_GAB) 4901 Mmat2(iq,D2_RA_TA) = t286+Mmat2(iq,D2_RA_TA) 4902 Mmat2(iq,D2_RA_TB) = t286+Mmat2(iq,D2_RA_TB) 4903 Mmat2(iq,D2_GAA_TA) = t288+Mmat2(iq,D2_GAA_TA) 4904 Mmat2(iq,D2_GAA_TB) = t288+Mmat2(iq,D2_GAA_TB) 4905 Mmat2(iq,D2_GAB_TA) = 6.218138173930978d-2*rhoa*t110*t287*t9 4906 1 3*wght+Mmat2(iq,D2_GAB_TA) 4907 Mmat2(iq,D2_TA_TA) = t309+Mmat2(iq,D2_TA_TA) 4908 Mmat2(iq,D2_TA_TB) = t309+Mmat2(iq,D2_TA_TB) 4909 Amat3(iq,D3_RA_RA_RA) = 1.0d+0*(t93*(6.218138173930978d-2*rh 4910 1 oa*t40*(-3.153225097175971d-2*gammaaa*t202*t79*t95*t99+3. 4911 2 6036858253439635d-2*gammaaa*t166*t24*t79*t99+6.6217727040 4912 3 69536d-1*gammaaa*t106*t200*t79*t99-3.243317242809568d-1*g 4913 4 ammaaa*t100*t228*t24*t99-3.783870116611163d-1*gammaaa*t22 4914 5 1*t79*t94*t95+3.783870116611163d-1*gammaaa*t100*t228*t76* 4915 6 t94*t95-3.766352199404629d-2*gammaaa*t339*t76*t79*t95+3.1 4916 7 53225097175971d-2*gammaaa*t100*t104*t202*t76*t95-1.081105 4917 8 7476031893d-1*gammaaa*t100*t24*t76*(1.6363054925009113d-1 4918 9 *t101*t102*t103*t216*t72*t94-1.723423608999802d-2*t101*t1 4919 : 02*t339*t77-7.791930916671007d-3*t27*t317*t77+2.255574781 4920 ; 0186078d+0*t103*t216*t27*t71*t72+5.012388402263571d-1*t10 4921 < 3*t166*t27*t71*t72-4.385839851980629d-1*t101*t102*t103*t2 4922 = 02*t71*t72-2.337579275001302d-2*t103*t27*t356*t72-6.76672 4923 > 4343055823d+0*t216*t219*t226*t27*t71+t372+t371+t370+t369+ 4924 ? t368+t367+t366+t365+t363+t361+t360+t359+t358+t357+t355+t3 4925 @ 54+t352+t351+t350+t349+t348+t347+t346+t345)-3.60368582534 4926 1 3965d-2*gammaaa*t24*t317*t76*t79+1.0811057476031893d-1*ga 4927 2 mmaaa*t24*(t363+t361+t360+t359+t358+t357+t355+t354+t352+t 4928 3 351+t350+t349+t348+t347+t346+t345)*t79+6.486634485619136d 4929 4 -1*gammaaa*t104*t207*t228*t24*t76-3.6036858253439635d-2*g 4930 5 ammaaa*t100*t104*t166*t24*t76-6.621772704069536d-1*gammaa 4931 6 a*t100*t104*t106*t200*t76+t344+t342+t341+t340+t338+t336-3 4932 7 .243317242809568d-1*gammaaa*t100*t104*t221*t24)+1.8654414 4933 8 521792934d-1*rhoa*t229*t92+9.327207260896466d-2*t229*t40- 4934 9 3.1090690869654886d-2*t105*t197*t40+t334+t333)-3.10906908 4935 : 69654886d-2*t197*t81*t92+1.554534543482745d-2*t166*t40*t8 4936 ; 1+6.0d+0*rhoa*t180*t61+t194*(-1.2436276347861956d-1*rhoa* 4937 < t105*t229*t40+t375+t374+t373)+t332+t330+t329+2.0d+0*rhoa* 4938 = t22*t328+t315+t314+t313+t312+3.0d+0*t180*t22)*wght+Amat3( 4939 > iq,D3_RA_RA_RA) 4940 Amat3(iq,D3_RA_RA_RB) = 1.0d+0*(t93*(6.218138173930978d-2*rh 4941 1 oa*t40*(-3.1532250971759707d-2*gammaaa*t202*t79*t95*t99-1 4942 2 .2012286084479881d-2*gammaaa*t166*t24*t79*t99+6.621772704 4943 3 069535d-1*gammaaa*t106*t200*t79*t99-2.1622114952063787d-1 4944 4 *gammaaa*t100*t238*t24*t99-1.0811057476031893d-1*gammaaa* 4945 5 t100*t228*t24*t99-2.5225800777407753d-1*gammaaa*t237*t79* 4946 6 t94*t95-1.2612900388703877d-1*gammaaa*t221*t79*t94*t95+2. 4947 7 5225800777407753d-1*gammaaa*t100*t238*t76*t94*t95+1.26129 4948 8 00388703877d-1*gammaaa*t100*t228*t76*t94*t95+1.8393813066 4949 9 859827d-2*gammaaa*t339*t76*t79*t95+3.1532250971759707d-2* 4950 : gammaaa*t100*t104*t202*t76*t95-1.0811057476031893d-1*gamm 4951 ; aaa*t100*t24*t76*(1.0908703283339408d-1*t101*t102*t103*t2 4952 < 34*t72*t94+5.454351641669704d-2*t101*t102*t103*t216*t72*t 4953 = 94+7.00732676186733d-3*t101*t102*t339*t77+2.5973103055570 4954 > 03d-3*t27*t317*t77+1.503716520679072d+0*t103*t234*t27*t71 4955 ? *t72+7.518582603395361d-1*t103*t216*t27*t71*t72-1.6707961 4956 @ 340878583d-1*t103*t166*t27*t71*t72-4.3858398519806285d-1* 4957 1 t101*t102*t103*t202*t71*t72-2.337579275001302d-2*t103*t27 4958 2 *t384*t72-4.5111495620372155d+0*t219*t226*t234*t27*t71-2. 4959 3 2555747810186078d+0*t216*t219*t226*t27*t71+t389+t388+t387 4960 4 +t386+t385+t383+t382+t381+t380+t379+t378+t377+t372+t371+t 4961 5 370+t369+t368+t367+t366+t365+t363+t360+t359+t354+t351+t34 4962 6 6+t345)+1.2012286084479884d-2*gammaaa*t24*t317*t76*t79+1. 4963 7 0811057476031893d-1*gammaaa*t24*(t389+t388+t387+t386+t385 4964 8 +t383+t382+t381+t380+t379+t378+t377+t363+t360+t359+t354+t 4965 9 351+t346+t345)*t79+4.3244229904127574d-1*gammaaa*t104*t20 4966 : 7*t238*t24*t76+2.1622114952063787d-1*gammaaa*t104*t207*t2 4967 ; 28*t24*t76+1.2012286084479881d-2*gammaaa*t100*t104*t166*t 4968 < 24*t76-6.621772704069535d-1*gammaaa*t100*t104*t106*t200*t 4969 = 76+t344+t342+t341+t340+t338+t336-2.1622114952063787d-1*ga 4970 > mmaaa*t100*t104*t237*t24-1.0811057476031893d-1*gammaaa*t1 4971 ? 00*t104*t221*t24)+1.2436276347861956d-1*rhoa*t239*t92+6.2 4972 @ 18138173930978d-2*rhoa*t229*t92+6.218138173930978d-2*t239 4973 1 *t40+3.109069086965489d-2*t229*t40+1.0363563623218297d-2* 4974 2 t105*t197*t40+t334+t333)+1.0363563623218297d-2*t197*t81*t 4975 3 92-5.181781811609151d-3*t166*t40*t81+4.0d+0*rhoa*t231*t61 4976 4 +2.0d+0*rhoa*t180*t61+t194*(-1.2436276347861956d-1*rhoa*t 4977 5 105*t239*t40+t375+t374+t373)+2.0d+0*rhoa*t22*t376+t332+t3 4978 6 30+t329+t315+t314+t313+t312+2.0d+0*t22*t231+1.0d+0*t180*t 4979 7 22)*wght+Amat3(iq,D3_RA_RA_RB) 4980 Cmat3(iq,D3_RA_RA_GAA) = t428+Cmat3(iq,D3_RA_RA_GAA) 4981 Cmat3(iq,D3_RA_RA_GAB) = 1.0d+0*((6.218138173930978d-2*rhoa* 4982 1 t40*(6.00614304223994d-3*t166*t24*t76*t79+6.4932757638925 4983 2 03d-4*gammaaa*t106*t166*t74*t79+1.0811057476031893d-1*gam 4984 3 maaa*t24*(t461+t460+t459+t458+t457+t456+t455)*t79+5.40552 4985 4 8738015947d-2*t221*t24*t79-1.0811057476031893d-1*gammaaa* 4986 5 t100*t24*t76*(2.597310305557001d-3*gammaaa*t106*t166*t77- 4987 6 2.337579275001302d-2*gammaaa*t103*t106*t216*t72-2.4182745 4988 7 359105678d+1*gammaaa*t103*t106*t214*t72+t465+t464+t463+t4 4989 8 62+t461+t460+t459+t458+t457+t456+t455)+2.1622114952063787 4990 9 d-1*gammaaa*t109*t207*t228*t24*t76-5.405528738015947d-2*t 4991 : 100*t228*t24*t76-1.2012286084479878d-2*gammaaa*t100*t109* 4992 ; t166*t24*t76-5.843948187503255d-3*gammaaa*t100*t106*t228* 4993 < t74+t454+t453+t452+t451+t450+t449+t448+t447+t446+t445+t44 4994 = 4+t443+t442+t441+t440+t439+t438+t437+t436+t435+t434-1.081 4995 > 1057476031893d-1*gammaaa*t100*t109*t221*t24)+t433+t432+t4 4996 ? 31+t430-1.0363563623218294d-2*t110*t197*t40)*t93+t194*(t4 4997 @ 66-t110*t230)+t429)*wght+Cmat3(iq,D3_RA_RA_GAB) 4998 Cmat3(iq,D3_RA_RA_GBB) = t428+Cmat3(iq,D3_RA_RA_GBB) 4999 Cmat3(iq,D3_RA_RB_GAA) = 1.0d+0*((6.218138173930978d-2*rhoa* 5000 1 t40*(-3.00307152111997d-3*t166*t24*t76*t79-3.246637881946 5001 2 2527d-4*gammaaa*t106*t166*t74*t79+1.0811057476031893d-1*g 5002 3 ammaaa*t24*(t470+t469+t468+t467+t419+t417+t416)*t79+2.702 5003 4 7643690079733d-2*t237*t24*t79-1.0811057476031893d-1*gamma 5004 5 aa*t100*t24*t76*(-1.2986551527785012d-3*gammaaa*t106*t166 5005 6 *t77-1.168789637500651d-2*gammaaa*t103*t106*t234*t72-1.20 5006 7 9137267955284d+1*gammaaa*t103*t106*t214*t72+t470+t469+t46 5007 8 8+t467+t426+t425+t424+t423+t419+t417+t416)+2.162211495206 5008 9 3787d-1*gammaaa*t107*t207*t238*t24*t76-2.7027643690079733 5009 : d-2*t100*t238*t24*t76+1.201228608447988d-2*gammaaa*t100*t 5010 ; 107*t166*t24*t76-2.9219740937516275d-3*gammaaa*t100*t106* 5011 < t238*t74+t415+t414+t413+t412+t411+t410+t409+t408+t407+t40 5012 = 6+t405+t404+t403+t402+t401+t400+t399+t398+t397+t396+t395- 5013 > 1.0811057476031893d-1*gammaaa*t100*t107*t237*t24)+1.03635 5014 ? 63623218296d-2*t108*t197*t40+t394+t393+t392+t391)*t93+t19 5015 @ 4*(t427-t108*t240)+t390)*wght+Cmat3(iq,D3_RA_RB_GAA) 5016 Cmat3(iq,D3_RA_RB_GAB) = 1.0d+0*((6.218138173930978d-2*rhoa* 5017 1 t40*(-6.00614304223994d-3*t166*t24*t76*t79-6.493275763892 5018 2 505d-4*gammaaa*t106*t166*t74*t79+1.0811057476031893d-1*ga 5019 3 mmaaa*t24*(t474+t473+t472+t471+t458+t456+t455)*t79+5.4055 5020 4 28738015947d-2*t237*t24*t79-1.0811057476031893d-1*gammaaa 5021 5 *t100*t24*t76*(-2.5973103055570024d-3*gammaaa*t106*t166*t 5022 6 77-2.337579275001302d-2*gammaaa*t103*t106*t234*t72-2.4182 5023 7 74535910568d+1*gammaaa*t103*t106*t214*t72+t474+t473+t472+ 5024 8 t471+t465+t464+t463+t462+t458+t456+t455)+2.16221149520637 5025 9 87d-1*gammaaa*t109*t207*t238*t24*t76-5.405528738015947d-2 5026 : *t100*t238*t24*t76+1.201228608447988d-2*gammaaa*t100*t109 5027 ; *t166*t24*t76-5.843948187503255d-3*gammaaa*t100*t106*t238 5028 < *t74+t454+t453+t452+t451+t450+t449+t448+t447+t446+t445+t4 5029 = 44+t443+t442+t441+t440+t439+t438+t437+t436+t435+t434-1.08 5030 > 11057476031893d-1*gammaaa*t100*t109*t237*t24)+t433+t432+t 5031 ? 431+t430+1.0363563623218296d-2*t110*t197*t40)*t93+t194*(t 5032 @ 466-t110*t240)+t429)*wght+Cmat3(iq,D3_RA_RB_GAB) 5033 Cmat3(iq,D3_RA_GAA_GAA) = t483+Cmat3(iq,D3_RA_GAA_GAA) 5034 Cmat3(iq,D3_RA_GAA_GAB) = 1.0d+0*(t194*(t486-6.2181381739309 5035 1 78d-2*rhoa*t108*t252*t40-t110*t246)+t485+t484)*wght+Cmat3 5036 2 (iq,D3_RA_GAA_GAB) 5037 Cmat3(iq,D3_RA_GAA_GBB) = t483+Cmat3(iq,D3_RA_GAA_GBB) 5038 Cmat3(iq,D3_RA_GAB_GAB) = 1.0d+0*(t93*(6.218138173930978d-2* 5039 1 rhoa*t40*(-6.317925974205011d-4*gammaaa*t100*t222*t77*t99 5040 2 +2.1622114952063787d-1*gammaaa*t207*t24*t262*t99-1.081105 5041 3 7476031893d-1*t100*t109*t24*t99-2.5225800777407753d-1*gam 5042 4 maaa*t207*t262*t76*t94*t95+1.2612900388703877d-1*t100*t10 5043 5 9*t76*t94*t95-1.0811057476031893d-1*gammaaa*t100*t24*t76* 5044 6 (3.7592913016976803d-1*t103*t106*t71*t72-1.36358791041742 5045 7 6d-2*t102*t77*t94)-6.817939552087132d-3*t102*t74*t79*t94+ 5046 8 7.370913636572511d-4*gammaaa*t100*t364*t76*t77*t94+1.3635 5047 9 879104174264d-2*gammaaa*t100*t102*t109*t74*t94+1.08110574 5048 : 76031893d-1*t24*t250*t79+1.2635851948410023d-3*gammaaa*t1 5049 ; 04*t207*t222*t76*t77-6.486634485619136d-1*gammaaa*t104*t2 5050 < 4*t262*t343*t76+4.3244229904127574d-1*gammaaa*t109*t207*t 5051 = 24*t251*t76-1.0811057476031893d-1*t100*t24*t251*t76+2.162 5052 > 2114952063787d-1*t104*t109*t207*t24*t76-1.168789637500651 5053 ? d-2*gammaaa*t100*t106*t251*t74+2.337579275001302d-2*gamma 5054 @ aa*t104*t106*t109*t207*t74-5.843948187503255d-3*t100*t104 5055 1 *t106*t74-2.1622114952063787d-1*gammaaa*t100*t109*t24*t25 5056 2 0)+6.218138173930978d-2*rhoa*t263*t92+3.109069086965489d- 5057 3 2*t263*t40)+t194*(-6.218138173930978d-2*rhoa*t105*t263*t4 5058 4 0-6.218138173930978d-2*rhoa*t110*t252*t40-t110*t253)+1.24 5059 5 36276347861956d-1*rhoa*t105*t261*t331*t40)*wght+Cmat3(iq, 5060 6 D3_RA_GAB_GAB) 5061 Cmat3(iq,D3_RA_GAB_GBB) = 1.0d+0*(t194*(t486-6.2181381739309 5062 1 78d-2*rhoa*t110*t245*t40-t108*t253)+t485+t484)*wght+Cmat3 5063 2 (iq,D3_RA_GAB_GBB) 5064 Cmat3(iq,D3_RA_GBB_GBB) = t483+Cmat3(iq,D3_RA_GBB_GBB) 5065 Cmat3(iq,D3_GAA_GAA_GAA) = t488+Cmat3(iq,D3_GAA_GAA_GAA) 5066 Cmat3(iq,D3_GAA_GAA_GAB) = t491+Cmat3(iq,D3_GAA_GAA_GAB) 5067 Cmat3(iq,D3_GAA_GAA_GBB) = t488+Cmat3(iq,D3_GAA_GAA_GBB) 5068 Cmat3(iq,D3_GAA_GAB_GAB) = t194*(-6.218138173930978d-2*rhoa* 5069 1 t108*t263*t40*wght-1.2436276347861956d-1*rhoa*t110*t260*t 5070 2 40*wght)+6.218138173930978d-2*rhoa*t40*(1.263585194841002 5071 3 3d-3*gammaaa*t109*t207*t222*t76*t77-4.738444480653759d-4* 5072 4 t100*t222*t76*t77-6.486634485619136d-1*gammaaa*t107*t24*t 5073 5 262*t343*t76+5.405528738015947d-2*t207*t24*t262*t76+2.162 5074 6 2114952063787d-1*t107*t109*t207*t24*t76+5.843948187503255 5075 7 d-3*gammaaa*t106*t207*t262*t74+2.337579275001302d-2*gamma 5076 8 aa*t106*t107*t109*t207*t74-5.843948187503255d-3*t100*t106 5077 9 *t109*t74+t490+t489-5.122759562733387d-5*gammaaa*t100*t10 5078 : 3*t487)*t93*wght+1.2436276347861956d-1*rhoa*t108*t261*t33 5079 ; 1*t40*wght+Cmat3(iq,D3_GAA_GAB_GAB) 5080 Cmat3(iq,D3_GAA_GAB_GBB) = t491+Cmat3(iq,D3_GAA_GAB_GBB) 5081 Cmat3(iq,D3_GAB_GAB_GAB) = 6.218138173930978d-2*rhoa*t40*(3. 5082 1 7907555845230073d-3*gammaaa*t109*t207*t222*t76*t77-9.4768 5083 2 88961307518d-4*t100*t222*t76*t77-6.486634485619136d-1*gam 5084 3 maaa*t109**3*t24*t343*t76+3.243317242809568d-1*t207*t24*t 5085 4 262*t76+3.5063689125019526d-2*gammaaa*t106*t207*t262*t74- 5086 5 1.7531844562509763d-2*t100*t106*t109*t74-1.02455191254667 5087 6 73d-4*gammaaa*t100*t103*t487)*t93*wght+1.2436276347861956 5088 7 d-1*rhoa*t110**3*t331*t40*wght-1.8654414521792934d-1*rhoa 5089 8 *t110*t194*t263*t40*wght+Cmat3(iq,D3_GAB_GAB_GAB) 5090 Mmat3(iq,D3_RA_RA_TA) = t502+Mmat3(iq,D3_RA_RA_TA) 5091 Mmat3(iq,D3_RA_RA_TB) = t502+Mmat3(iq,D3_RA_RA_TB) 5092 Mmat3(iq,D3_RA_RB_TA) = 1.0d+0*((t501+t500+6.218138173930978 5093 1 d-2*rhoa*t133*t239)*t93+1.0363563623218296d-2*t133*t197*t 5094 2 81+t499+t498+t497+t496+t495+t494+t493+2.0d+0*rhoa*t121*t2 5095 3 31)*wght+Mmat3(iq,D3_RA_RB_TA) 5096 Mmat3(iq,D3_RA_GAA_TA) = t503+Mmat3(iq,D3_RA_GAA_TA) 5097 Mmat3(iq,D3_RA_GAA_TB) = t503+Mmat3(iq,D3_RA_GAA_TB) 5098 Mmat3(iq,D3_RA_GAB_TA) = t504+Mmat3(iq,D3_RA_GAB_TA) 5099 Mmat3(iq,D3_RA_GAB_TB) = t504+Mmat3(iq,D3_RA_GAB_TB) 5100 Mmat3(iq,D3_RA_GBB_TA) = t503+Mmat3(iq,D3_RA_GBB_TA) 5101 Mmat3(iq,D3_RA_GBB_TB) = t503+Mmat3(iq,D3_RA_GBB_TB) 5102 Mmat3(iq,D3_GAA_GAA_TA) = t505+Mmat3(iq,D3_GAA_GAA_TA) 5103 Mmat3(iq,D3_GAA_GAA_TB) = t505+Mmat3(iq,D3_GAA_GAA_TB) 5104 Mmat3(iq,D3_GAA_GAB_TA) = t506+Mmat3(iq,D3_GAA_GAB_TA) 5105 Mmat3(iq,D3_GAA_GAB_TB) = t506+Mmat3(iq,D3_GAA_GAB_TB) 5106 Mmat3(iq,D3_GAA_GBB_TA) = t505+Mmat3(iq,D3_GAA_GBB_TA) 5107 Mmat3(iq,D3_GAB_GAB_TA) = 6.218138173930978d-2*rhoa*t133*t26 5108 1 3*t93*wght-6.218138173930978d-2*rhoa*t133*t194*t261*wght+ 5109 2 Mmat3(iq,D3_GAB_GAB_TA) 5110 Mmat3(iq,D3_TA_TA_TA) = t507+Mmat3(iq,D3_TA_TA_TA) 5111 Mmat3(iq,D3_TA_TA_TB) = t507+Mmat3(iq,D3_TA_TA_TB) 5112 endif ! rhoa.gt.tol_rho 5113 else ! ipol.eq.1 5114 rhoa = rho(iq,R_A) 5115 rhob = rho(iq,R_B) 5116 gammaaa = rgamma(iq,G_AA) 5117 gammaab = rgamma(iq,G_AB) 5118 gammabb = rgamma(iq,G_BB) 5119 taua = tau(iq,T_A) 5120 taub = tau(iq,T_B) 5121 if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then 5122 t1 = rhob+rhoa 5123 t2 = t1**3.333333333333333d-1 5124 t3 = 1/t2 5125 t4 = 1.325688999052018d-1*t3+1.0d+0 5126 t5 = t2**5.0d-1 5127 t6 = 1/t5 5128 t7 = 2.4141993114533214d-2*t6+1.0186556948d-1 5129 t8 = 7.876233178997433d-1*t6*t7+2.2308199064d-1 5130 t9 = 7.876233178997433d-1*t6*t8+4.7231125998d-1 5131 t10 = 1/t9 5132 t11 = 1.269642451250142d+0*t10*t5+1.0d+0 5133 t12 = log(t11) 5134 t13 = rhoa-rhob 5135 t14 = 1/t1 5136 t15 = 1.0d+0-t13*t14 5137 t16 = t15**1.3333333333333333d+0 5138 t17 = t13*t14+1.0d+0 5139 t18 = t17**1.3333333333333333d+0 5140 t19 = 1.923661050931536d+0*t18+1.923661050931536d+0*t16-3.84 5141 1 7322101863072d+0 5142 t20 = 6.901399211255826d-2*t3+1.0d+0 5143 t21 = 1.3212998810398843d-2*t6+2.9729725188d-2 5144 t22 = 7.876233178997433d-1*t21*t6+1.2236585478d-1 5145 t23 = 7.876233178997433d-1*t22*t6+3.497952466d-1 5146 t24 = 1/t23 5147 t25 = 1.269642451250142d+0*t24*t5+1.0d+0 5148 t26 = log(t25) 5149 t27 = t13**4 5150 t28 = 1/t1**4 5151 t29 = 1.2746961887000874d-1*t3+1.0d+0 5152 t30 = 1.530901310039024d-2*t6+1.0465751434d-1 5153 t31 = 7.876233178997433d-1*t30*t6+1.9269083139d-1 5154 t32 = 7.876233178997433d-1*t31*t6+4.3896648423d-1 5155 t33 = 1/t32 5156 t34 = 1.269642451250142d+0*t33*t5+1.0d+0 5157 t35 = log(t34) 5158 t36 = 1.709920934161365d+0*(6.21814d-2*t12*t4-3.10907d-2*t29 5159 1 *t35)-3.37738d-2*t20*t26 5160 t37 = t27*t28*t36+3.37738d-2*t20*t26 5161 t38 = 5.848223622634648d-1*t19*t37-6.21814d-2*t12*t4 5162 t39 = 2.871234000188191d+0*t1**1.6666666666666669d+0 5163 t40 = -taub-taua+t39 5164 t41 = taub+taua+t39 5165 t42 = 1/t41 5166 t43 = param(12) 5167 t44 = t40*t42*t43+param(11) 5168 t45 = t40*t42*t44+param(10) 5169 t46 = t40*t42*t45+param(9) 5170 t47 = t40*t42*t46+param(8) 5171 t48 = t40*t42*t47+param(7) 5172 t49 = t40*t42*t48+param(6) 5173 t50 = t40*t42*t49+param(5) 5174 t51 = t40*t42*t50+param(4) 5175 t52 = t40*t42*t51+param(3) 5176 t53 = t40*t42*t52+param(2) 5177 t54 = t40*t42*t53+param(1) 5178 t55 = t15**6.666666666666666d-1 5179 t56 = t17**6.666666666666666d-1 5180 t57 = 5.0d-1*t56+5.0d-1*t55 5181 t58 = t57**3.0d+0 5182 t59 = gammabb+2.0d+0*gammaab+gammaaa 5183 t60 = t1**1.1666666666666667d+0 5184 t61 = 1/t60**2.0d+0 5185 t62 = t57**2.0d+0 5186 t63 = 1/t62 5187 t64 = 1/t58 5188 t65 = exp(-3.216396844291483d+1*t38*t64) 5189 t66 = t65-1.0d+0 5190 t67 = 1/t66 5191 t68 = 1.3621078885675922d-1*t59*t61*t63*t67 5192 t69 = t68+1.0d+0 5193 t70 = 1/t57**4.0d+0 5194 t71 = (t59*t61)**2.0d+0 5195 t72 = 1/t66**2.0d+0 5196 t73 = 1.855337900098064d-2*t70*t71*t72+t68+1.0d+0 5197 t74 = 1/t73 5198 t75 = 1.3621078885675922d-1*t59*t61*t63*t69*t74+1.0d+0 5199 t76 = log(t75) 5200 t77 = param(14) 5201 t78 = param(24) 5202 t79 = t40*t42*t78+param(23) 5203 t80 = t40*t42*t79+param(22) 5204 t81 = t40*t42*t80+param(21) 5205 t82 = t40*t42*t81+param(20) 5206 t83 = t40*t42*t82+param(19) 5207 t84 = t40*t42*t83+param(18) 5208 t85 = t40*t42*t84+param(17) 5209 t86 = t40*t42*t85+param(16) 5210 t87 = t40*t42*t86+param(15) 5211 t88 = t40*t42*t87+t77 5212 t89 = t40*t42*t88+param(13) 5213 t90 = t1**6.666666666666666d-1 5214 t91 = 1/t41**2 5215 t92 = 4.785390000313652d+0*t42*t43*t90-4.785390000313652d+0* 5216 1 t40*t43*t90*t91 5217 t93 = t40*t42*t92-4.785390000313652d+0*t40*t44*t90*t91+4.785 5218 1 390000313652d+0*t42*t44*t90 5219 t94 = t40*t42*t93-4.785390000313652d+0*t40*t45*t90*t91+4.785 5220 1 390000313652d+0*t42*t45*t90 5221 t95 = t40*t42*t94-4.785390000313652d+0*t40*t46*t90*t91+4.785 5222 1 390000313652d+0*t42*t46*t90 5223 t96 = t40*t42*t95-4.785390000313652d+0*t40*t47*t90*t91+4.785 5224 1 390000313652d+0*t42*t47*t90 5225 t97 = t40*t42*t96-4.785390000313652d+0*t40*t48*t90*t91+4.785 5226 1 390000313652d+0*t42*t48*t90 5227 t98 = t40*t42*t97-4.785390000313652d+0*t40*t49*t90*t91+4.785 5228 1 390000313652d+0*t42*t49*t90 5229 t99 = t40*t42*t98-4.785390000313652d+0*t40*t50*t90*t91+4.785 5230 1 390000313652d+0*t42*t50*t90 5231 t100 = t40*t42*t99-4.785390000313652d+0*t40*t51*t90*t91+4.78 5232 1 5390000313652d+0*t42*t51*t90 5233 t101 = -4.785390000313652d+0*t40*t52*t90*t91+4.7853900003136 5234 1 52d+0*t42*t52*t90+t100*t40*t42 5235 t102 = -4.785390000313652d+0*t40*t53*t90*t91+4.7853900003136 5236 1 52d+0*t42*t53*t90+t101*t40*t42 5237 t103 = 1.0d+0*t1*t102*t38 5238 t104 = 1/t1**1.3333333333333336d+0 5239 t105 = 1/t1**6.666666666666667d-1 5240 t106 = 1/t5**3 5241 t107 = -1.3127055298329054d-1*t105*t106*t7-3.169132786263567 5242 1 d-3*t104 5243 t108 = 7.876233178997433d-1*t107*t6-1.3127055298329054d-1*t1 5244 1 05*t106*t8 5245 t109 = 1/t9**2 5246 t110 = 2.11607075208357d-1*t10*t105*t6-1.269642451250142d+0* 5247 1 t108*t109*t5 5248 t111 = 1/t11 5249 t112 = -6.21814d-2*t110*t111*t4 5250 t113 = 1/t1**1.3333333333333333d+0 5251 t114 = 2.747773264188438d-3*t113*t12 5252 t115 = -1.3127055298329054d-1*t105*t106*t21-1.73447766040861 5253 1 62d-3*t104 5254 t116 = 7.876233178997433d-1*t115*t6-1.3127055298329054d-1*t1 5255 1 05*t106*t22 5256 t117 = 1/t23**2 5257 t118 = 2.11607075208357d-1*t105*t24*t6-1.269642451250142d+0* 5258 1 t116*t117*t5 5259 t119 = 1/t25 5260 t120 = 3.37738d-2*t118*t119*t20 5261 t121 = -7.769549222703733d-4*t113*t26 5262 t122 = -1.3127055298329054d-1*t105*t106*t30-2.00962261531666 5263 1 58d-3*t104 5264 t123 = 7.876233178997433d-1*t122*t6-1.3127055298329054d-1*t1 5265 1 05*t106*t31 5266 t124 = 1/t32**2 5267 t125 = 2.11607075208357d-1*t105*t33*t6-1.269642451250142d+0* 5268 1 t123*t124*t5 5269 t126 = 1/t34 5270 t127 = 1.709920934161365d+0*(6.21814d-2*t110*t111*t4+1.32103 5271 1 98931339265d-3*t113*t35-3.10907d-2*t125*t126*t29-2.747773 5272 2 264188438d-3*t113*t12)+7.769549222703733d-4*t113*t26-3.37 5273 3 738d-2*t118*t119*t20 5274 t128 = t127*t27*t28 5275 t129 = 1/t1**5 5276 t130 = -4*t129*t27*t36 5277 t131 = t13**3 5278 t132 = 4*t131*t28*t36+t130+t128+t121+t120 5279 t133 = t1**2 5280 t134 = 1/t133 5281 t135 = t13*t134 5282 t136 = -t14 5283 t137 = t136+t135 5284 t138 = t15**3.333333333333333d-1 5285 t139 = -t13*t134 5286 t140 = t14+t139 5287 t141 = t17**3.333333333333333d-1 5288 t142 = 2.564881401242048d+0*t140*t141+2.564881401242048d+0*t 5289 1 137*t138 5290 t143 = 5.848223622634648d-1*t142*t37+5.848223622634648d-1*t1 5291 1 32*t19+t114+t112 5292 t144 = 1.0d+0*t38*t54 5293 t145 = 4.785390000313652d+0*t42*t78*t90-4.785390000313652d+0 5294 1 *t40*t78*t90*t91 5295 t146 = -4.785390000313652d+0*t40*t79*t90*t91+4.7853900003136 5296 1 52d+0*t42*t79*t90+t145*t40*t42 5297 t147 = -4.785390000313652d+0*t40*t80*t90*t91+4.7853900003136 5298 1 52d+0*t42*t80*t90+t146*t40*t42 5299 t148 = -4.785390000313652d+0*t40*t81*t90*t91+4.7853900003136 5300 1 52d+0*t42*t81*t90+t147*t40*t42 5301 t149 = -4.785390000313652d+0*t40*t82*t90*t91+4.7853900003136 5302 1 52d+0*t42*t82*t90+t148*t40*t42 5303 t150 = -4.785390000313652d+0*t40*t83*t90*t91+4.7853900003136 5304 1 52d+0*t42*t83*t90+t149*t40*t42 5305 t151 = -4.785390000313652d+0*t40*t84*t90*t91+4.7853900003136 5306 1 52d+0*t42*t84*t90+t150*t40*t42 5307 t152 = -4.785390000313652d+0*t40*t85*t90*t91+4.7853900003136 5308 1 52d+0*t42*t85*t90+t151*t40*t42 5309 t153 = -4.785390000313652d+0*t40*t86*t90*t91+4.7853900003136 5310 1 52d+0*t42*t86*t90+t152*t40*t42 5311 t154 = -4.785390000313652d+0*t40*t87*t90*t91+4.7853900003136 5312 1 52d+0*t42*t87*t90+t153*t40*t42 5313 t155 = -4.785390000313652d+0*t40*t88*t90*t91+4.7853900003136 5314 1 52d+0*t42*t88*t90+t154*t40*t42 5315 t156 = 3.109069086965489d-2*t1*t155*t58*t76 5316 t157 = 1/t75 5317 t158 = 1/t138 5318 t159 = 1/t141 5319 t160 = 3.333333333333333d-1*t140*t159+3.333333333333333d-1*t 5320 1 137*t158 5321 t161 = t1**1.6666666666666674d-1 5322 t162 = 1/t60**3.0d+0 5323 t163 = -3.1782517399910487d-1*t161*t162*t59*t63*t69*t74 5324 t164 = -2.7242157771351844d-1*t160*t59*t61*t64*t67 5325 t165 = -3.1782517399910487d-1*t161*t162*t59*t63*t67 5326 t166 = 1/t66**2 5327 t167 = 9.649190532874448d+1*t160*t38*t70-3.216396844291483d+ 5328 1 1*t143*t64 5329 t168 = -1.3621078885675922d-1*t166*t167*t59*t61*t63*t65 5330 t169 = t168+t165+t164 5331 t170 = 1/t73**2 5332 t171 = t59**2 5333 t172 = 1/t60**5.0d+0 5334 t173 = -8.658243533790966d-2*t161*t171*t172*t70*t72 5335 t174 = 1/t57**5.0d+0 5336 t175 = 1/t66**3.0d+0 5337 t176 = -7.421351600392256d-2*t160*t174*t71*t72-3.71067580019 5338 1 6128d-2*t167*t175*t65*t70*t71+t173+t168+t165+t164 5339 t177 = -2.7242157771351844d-1*t160*t59*t61*t64*t69*t74+1.362 5340 1 1078885675922d-1*t169*t59*t61*t63*t74-1.3621078885675922d 5341 2 -1*t170*t176*t59*t61*t63*t69+t163 5342 t178 = 3.109069086965489d-2*t58*t76*t89 5343 t179 = -4*t131*t28*t36+t130+t128+t121+t120 5344 t180 = t14+t135 5345 t181 = t139+t136 5346 t182 = 2.564881401242048d+0*t141*t181+2.564881401242048d+0*t 5347 1 138*t180 5348 t183 = 5.848223622634648d-1*t182*t37+5.848223622634648d-1*t1 5349 1 79*t19+t114+t112 5350 t184 = 3.333333333333333d-1*t159*t181+3.333333333333333d-1*t 5351 1 158*t180 5352 t185 = -2.7242157771351844d-1*t184*t59*t61*t64*t67 5353 t186 = 9.649190532874448d+1*t184*t38*t70-3.216396844291483d+ 5354 1 1*t183*t64 5355 t187 = -1.3621078885675922d-1*t166*t186*t59*t61*t63*t65 5356 t188 = t187+t185+t165 5357 t189 = -7.421351600392256d-2*t174*t184*t71*t72-3.71067580019 5358 1 6128d-2*t175*t186*t65*t70*t71+t187+t185+t173+t165 5359 t190 = -2.7242157771351844d-1*t184*t59*t61*t64*t69*t74+1.362 5360 1 1078885675922d-1*t188*t59*t61*t63*t74-1.3621078885675922d 5361 2 -1*t170*t189*t59*t61*t63*t69+t163 5362 t191 = 1/t60**4.0d+0 5363 t192 = 3.710675800196128d-2*t191*t59*t70*t72+1.3621078885675 5364 1 922d-1*t61*t63*t67 5365 t193 = 1.855337900098064d-2*t191*t59*t67*t70*t74+1.362107888 5366 1 5675922d-1*t61*t63*t69*t74-1.3621078885675922d-1*t170*t19 5367 2 2*t59*t61*t63*t69 5368 t194 = 3.109069086965489d-2*t1*t157*t193*t58*t89*wght 5369 t195 = 7.421351600392256d-2*t191*t59*t70*t72+2.7242157771351 5370 1 844d-1*t61*t63*t67 5371 t196 = 3.710675800196128d-2*t191*t59*t67*t70*t74+2.724215777 5372 1 1351844d-1*t61*t63*t69*t74-1.3621078885675922d-1*t170*t19 5373 2 5*t59*t61*t63*t69 5374 t197 = -t40*t43*t91-t42*t43 5375 t198 = -t40*t44*t91-t42*t44+t197*t40*t42 5376 t199 = -t40*t45*t91-t42*t45+t198*t40*t42 5377 t200 = -t40*t46*t91-t42*t46+t199*t40*t42 5378 t201 = -t40*t47*t91-t42*t47+t200*t40*t42 5379 t202 = -t40*t48*t91-t42*t48+t201*t40*t42 5380 t203 = -t40*t49*t91-t42*t49+t202*t40*t42 5381 t204 = -t40*t50*t91-t42*t50+t203*t40*t42 5382 t205 = -t40*t51*t91-t42*t51+t204*t40*t42 5383 t206 = -t40*t52*t91-t42*t52+t205*t40*t42 5384 t207 = -t40*t53*t91-t42*t53+t206*t40*t42 5385 t208 = -t40*t78*t91-t42*t78 5386 t209 = -t40*t79*t91-t42*t79+t208*t40*t42 5387 t210 = -t40*t80*t91-t42*t80+t209*t40*t42 5388 t211 = -t40*t81*t91-t42*t81+t210*t40*t42 5389 t212 = -t40*t82*t91-t42*t82+t211*t40*t42 5390 t213 = -t40*t83*t91-t42*t83+t212*t40*t42 5391 t214 = -t40*t84*t91-t42*t84+t213*t40*t42 5392 t215 = -t40*t85*t91-t42*t85+t214*t40*t42 5393 t216 = -t40*t86*t91-t42*t86+t215*t40*t42 5394 t217 = -t40*t87*t91-t42*t87+t216*t40*t42 5395 t218 = -t40*t88*t91 5396 t219 = -t42*t88+t217*t40*t42+t218 5397 t220 = 1.0d+0*(3.109069086965489d-2*t1*t219*t58*t76+1.0d+0*t 5398 1 1*t207*t38)*wght 5399 t221 = t1**1.3333333333333333d+0 5400 t222 = 1/t41**3 5401 t223 = t1**3.333333333333333d-1 5402 t224 = 1/t223 5403 t225 = -3.190260000209101d+0*t224*t40*t43*t91-4.579991491020 5404 1 378d+1*t221*t43*t91+3.190260000209101d+0*t224*t42*t43+4.5 5405 2 79991491020378d+1*t221*t222*t40*t43 5406 t226 = -9.570780000627304d+0*t40*t90*t91*t92+9.5707800006273 5407 1 04d+0*t42*t90*t92-3.190260000209101d+0*t224*t40*t44*t91-4 5408 2 .579991491020378d+1*t221*t44*t91+3.190260000209101d+0*t22 5409 3 4*t42*t44+4.579991491020378d+1*t221*t222*t40*t44+t225*t40 5410 4 *t42 5411 t227 = -9.570780000627304d+0*t40*t90*t91*t93+9.5707800006273 5412 1 04d+0*t42*t90*t93-3.190260000209101d+0*t224*t40*t45*t91-4 5413 2 .579991491020378d+1*t221*t45*t91+3.190260000209101d+0*t22 5414 3 4*t42*t45+4.579991491020378d+1*t221*t222*t40*t45+t226*t40 5415 4 *t42 5416 t228 = -9.570780000627304d+0*t40*t90*t91*t94+9.5707800006273 5417 1 04d+0*t42*t90*t94-3.190260000209101d+0*t224*t40*t46*t91-4 5418 2 .579991491020378d+1*t221*t46*t91+3.190260000209101d+0*t22 5419 3 4*t42*t46+4.579991491020378d+1*t221*t222*t40*t46+t227*t40 5420 4 *t42 5421 t229 = -9.570780000627304d+0*t40*t90*t91*t95+9.5707800006273 5422 1 04d+0*t42*t90*t95-3.190260000209101d+0*t224*t40*t47*t91-4 5423 2 .579991491020378d+1*t221*t47*t91+3.190260000209101d+0*t22 5424 3 4*t42*t47+4.579991491020378d+1*t221*t222*t40*t47+t228*t40 5425 4 *t42 5426 t230 = -9.570780000627304d+0*t40*t90*t91*t96+9.5707800006273 5427 1 04d+0*t42*t90*t96-3.190260000209101d+0*t224*t40*t48*t91-4 5428 2 .579991491020378d+1*t221*t48*t91+3.190260000209101d+0*t22 5429 3 4*t42*t48+4.579991491020378d+1*t221*t222*t40*t48+t229*t40 5430 4 *t42 5431 t231 = -9.570780000627304d+0*t40*t90*t91*t97+9.5707800006273 5432 1 04d+0*t42*t90*t97-3.190260000209101d+0*t224*t40*t49*t91-4 5433 2 .579991491020378d+1*t221*t49*t91+3.190260000209101d+0*t22 5434 3 4*t42*t49+4.579991491020378d+1*t221*t222*t40*t49+t230*t40 5435 4 *t42 5436 t232 = -9.570780000627304d+0*t40*t90*t91*t98+9.5707800006273 5437 1 04d+0*t42*t90*t98-3.190260000209101d+0*t224*t40*t50*t91-4 5438 2 .579991491020378d+1*t221*t50*t91+3.190260000209101d+0*t22 5439 3 4*t42*t50+4.579991491020378d+1*t221*t222*t40*t50+t231*t40 5440 4 *t42 5441 t233 = -9.570780000627304d+0*t40*t90*t91*t99+9.5707800006273 5442 1 04d+0*t42*t90*t99-3.190260000209101d+0*t224*t40*t51*t91-4 5443 2 .579991491020378d+1*t221*t51*t91+3.190260000209101d+0*t22 5444 3 4*t42*t51+4.579991491020378d+1*t221*t222*t40*t51+t232*t40 5445 4 *t42 5446 t234 = -9.570780000627304d+0*t100*t40*t90*t91-3.190260000209 5447 1 101d+0*t224*t40*t52*t91-4.579991491020378d+1*t221*t52*t91 5448 2 +9.570780000627304d+0*t100*t42*t90+3.190260000209101d+0*t 5449 3 224*t42*t52+4.579991491020378d+1*t221*t222*t40*t52+t233*t 5450 4 40*t42 5451 t235 = -9.570780000627304d+0*t101*t40*t90*t91-3.190260000209 5452 1 101d+0*t224*t40*t53*t91-4.579991491020378d+1*t221*t53*t91 5453 2 +9.570780000627304d+0*t101*t42*t90+3.190260000209101d+0*t 5454 3 224*t42*t53+4.579991491020378d+1*t221*t222*t40*t53+t234*t 5455 4 40*t42 5456 t236 = 1.0d+0*t1*t235*t38 5457 t237 = 2.0d+0*t102*t38 5458 t238 = t110**2 5459 t239 = 1/t11**2 5460 t240 = 6.21814d-2*t238*t239*t4 5461 t241 = t108**2 5462 t242 = 1/t9**3 5463 t243 = 1/t1**2.3333333333333334d+0 5464 t244 = 1/t5**5 5465 t245 = 1/t1**1.6666666666666669d+0 5466 t246 = 8.751370198886037d-2*t106*t245*t7+6.563527649164527d- 5467 1 2*t104*t244*t7+4.753699179395351d-3*t243 5468 t247 = 8.751370198886037d-2*t106*t245*t8+6.563527649164527d- 5469 1 2*t104*t244*t8+7.876233178997433d-1*t246*t6-2.62541105966 5470 2 5811d-1*t105*t106*t107 5471 t248 = -1.4107138347223802d-1*t10*t245*t6-4.23214150416714d- 5472 1 1*t105*t108*t109*t6-1.269642451250142d+0*t109*t247*t5+2.5 5473 2 39284902500284d+0*t241*t242*t5-3.52678458680595d-2*t10*t1 5474 3 04*t106 5475 t249 = -6.21814d-2*t111*t248*t4 5476 t250 = 5.495546528376876d-3*t110*t111*t113 5477 t251 = 1/t1**2.333333333333333d+0 5478 t252 = -3.663697685584584d-3*t12*t251 5479 t253 = t118**2 5480 t254 = 1/t25**2 5481 t255 = -3.37738d-2*t20*t253*t254 5482 t256 = t116**2 5483 t257 = 1/t23**3 5484 t258 = 8.751370198886037d-2*t106*t21*t245+6.563527649164527d 5485 1 -2*t104*t21*t244+2.601716490612924d-3*t243 5486 t259 = 7.876233178997433d-1*t258*t6+8.751370198886037d-2*t10 5487 1 6*t22*t245+6.563527649164527d-2*t104*t22*t244-2.625411059 5488 2 665811d-1*t105*t106*t115 5489 t260 = -1.4107138347223802d-1*t24*t245*t6-4.23214150416714d- 5490 1 1*t105*t116*t117*t6-1.269642451250142d+0*t117*t259*t5+2.5 5491 2 39284902500284d+0*t256*t257*t5-3.52678458680595d-2*t104*t 5492 3 106*t24 5493 t261 = 3.37738d-2*t119*t20*t260 5494 t262 = -1.5539098445407465d-3*t113*t118*t119 5495 t263 = 1.0359398963604977d-3*t251*t26 5496 t264 = t125**2 5497 t265 = 1/t34**2 5498 t266 = t123**2 5499 t267 = 1/t32**3 5500 t268 = 8.751370198886037d-2*t106*t245*t30+6.563527649164527d 5501 1 -2*t104*t244*t30+3.0144339229749983d-3*t243 5502 t269 = 7.876233178997433d-1*t268*t6+8.751370198886037d-2*t10 5503 1 6*t245*t31+6.563527649164527d-2*t104*t244*t31-2.625411059 5504 2 665811d-1*t105*t106*t122 5505 t270 = -1.4107138347223802d-1*t245*t33*t6-4.23214150416714d- 5506 1 1*t105*t123*t124*t6-1.269642451250142d+0*t124*t269*t5+2.5 5507 2 39284902500284d+0*t266*t267*t5-3.52678458680595d-2*t104*t 5508 3 106*t33 5509 t271 = 1.709920934161365d+0*(6.21814d-2*t111*t248*t4-6.21814 5510 1 d-2*t238*t239*t4-1.7613865241785687d-3*t251*t35-3.10907d- 5511 2 2*t126*t270*t29+3.10907d-2*t264*t265*t29+3.66369768558458 5512 3 4d-3*t12*t251+2.642079786267853d-3*t113*t125*t126-5.49554 5513 4 6528376876d-3*t110*t111*t113)-3.37738d-2*t119*t20*t260-1. 5514 5 0359398963604977d-3*t251*t26+3.37738d-2*t20*t253*t254+1.5 5515 6 539098445407465d-3*t113*t118*t119 5516 t272 = t27*t271*t28 5517 t273 = -8*t127*t129*t27 5518 t274 = 1/t1**6 5519 t275 = 20*t27*t274*t36 5520 t276 = t13**2 5521 t277 = 12*t276*t28*t36 5522 t278 = -32*t129*t131*t36+8*t127*t131*t28+t277+t275+t273+t272 5523 1 +t263+t262+t261+t255 5524 t279 = t137**2 5525 t280 = 1/t55 5526 t281 = 1/t1**3 5527 t282 = -2*t13*t281 5528 t283 = 2*t134 5529 t284 = t283+t282 5530 t285 = t140**2 5531 t286 = 1/t56 5532 t287 = 2*t13*t281 5533 t288 = -2*t134 5534 t289 = t288+t287 5535 t290 = 2.564881401242048d+0*t141*t289+8.549604670806825d-1*t 5536 1 285*t286+2.564881401242048d+0*t138*t284+8.549604670806825 5537 2 d-1*t279*t280 5538 t291 = 5.848223622634648d-1*t290*t37+5.848223622634648d-1*t1 5539 1 9*t278+t252+t250+t249+t240+1.1696447245269297d+0*t132*t14 5540 2 2 5541 t292 = -3.190260000209101d+0*t224*t40*t78*t91-4.579991491020 5542 1 378d+1*t221*t78*t91+3.190260000209101d+0*t224*t42*t78+4.5 5543 2 79991491020378d+1*t221*t222*t40*t78 5544 t293 = -9.570780000627304d+0*t145*t40*t90*t91-3.190260000209 5545 1 101d+0*t224*t40*t79*t91-4.579991491020378d+1*t221*t79*t91 5546 2 +9.570780000627304d+0*t145*t42*t90+3.190260000209101d+0*t 5547 3 224*t42*t79+4.579991491020378d+1*t221*t222*t40*t79+t292*t 5548 4 40*t42 5549 t294 = -9.570780000627304d+0*t146*t40*t90*t91-3.190260000209 5550 1 101d+0*t224*t40*t80*t91-4.579991491020378d+1*t221*t80*t91 5551 2 +9.570780000627304d+0*t146*t42*t90+3.190260000209101d+0*t 5552 3 224*t42*t80+4.579991491020378d+1*t221*t222*t40*t80+t293*t 5553 4 40*t42 5554 t295 = -9.570780000627304d+0*t147*t40*t90*t91-3.190260000209 5555 1 101d+0*t224*t40*t81*t91-4.579991491020378d+1*t221*t81*t91 5556 2 +9.570780000627304d+0*t147*t42*t90+3.190260000209101d+0*t 5557 3 224*t42*t81+4.579991491020378d+1*t221*t222*t40*t81+t294*t 5558 4 40*t42 5559 t296 = -9.570780000627304d+0*t148*t40*t90*t91-3.190260000209 5560 1 101d+0*t224*t40*t82*t91-4.579991491020378d+1*t221*t82*t91 5561 2 +9.570780000627304d+0*t148*t42*t90+3.190260000209101d+0*t 5562 3 224*t42*t82+4.579991491020378d+1*t221*t222*t40*t82+t295*t 5563 4 40*t42 5564 t297 = -9.570780000627304d+0*t149*t40*t90*t91-3.190260000209 5565 1 101d+0*t224*t40*t83*t91-4.579991491020378d+1*t221*t83*t91 5566 2 +9.570780000627304d+0*t149*t42*t90+3.190260000209101d+0*t 5567 3 224*t42*t83+4.579991491020378d+1*t221*t222*t40*t83+t296*t 5568 4 40*t42 5569 t298 = -9.570780000627304d+0*t150*t40*t90*t91-3.190260000209 5570 1 101d+0*t224*t40*t84*t91-4.579991491020378d+1*t221*t84*t91 5571 2 +9.570780000627304d+0*t150*t42*t90+3.190260000209101d+0*t 5572 3 224*t42*t84+4.579991491020378d+1*t221*t222*t40*t84+t297*t 5573 4 40*t42 5574 t299 = -9.570780000627304d+0*t151*t40*t90*t91-3.190260000209 5575 1 101d+0*t224*t40*t85*t91-4.579991491020378d+1*t221*t85*t91 5576 2 +9.570780000627304d+0*t151*t42*t90+3.190260000209101d+0*t 5577 3 224*t42*t85+4.579991491020378d+1*t221*t222*t40*t85+t298*t 5578 4 40*t42 5579 t300 = -9.570780000627304d+0*t152*t40*t90*t91-3.190260000209 5580 1 101d+0*t224*t40*t86*t91-4.579991491020378d+1*t221*t86*t91 5581 2 +9.570780000627304d+0*t152*t42*t90+3.190260000209101d+0*t 5582 3 224*t42*t86+4.579991491020378d+1*t221*t222*t40*t86+t299*t 5583 4 40*t42 5584 t301 = -9.570780000627304d+0*t153*t40*t90*t91-3.190260000209 5585 1 101d+0*t224*t40*t87*t91-4.579991491020378d+1*t221*t87*t91 5586 2 +9.570780000627304d+0*t153*t42*t90+3.190260000209101d+0*t 5587 3 224*t42*t87+4.579991491020378d+1*t221*t222*t40*t87+t300*t 5588 4 40*t42 5589 t302 = -9.570780000627304d+0*t154*t40*t90*t91-3.190260000209 5590 1 101d+0*t224*t40*t88*t91-4.579991491020378d+1*t221*t88*t91 5591 2 +9.570780000627304d+0*t154*t42*t90+3.190260000209101d+0*t 5592 3 224*t42*t88+4.579991491020378d+1*t221*t222*t40*t88+t301*t 5593 4 40*t42 5594 t303 = 3.109069086965489d-2*t1*t302*t58*t76 5595 t304 = 6.218138173930978d-2*t155*t58*t76 5596 t305 = 1/t75**2 5597 t306 = t177**2 5598 t307 = t160**2 5599 t308 = 1/t16 5600 t309 = 1/t18 5601 t310 = -1.111111111111111d-1*t285*t309-1.111111111111111d-1* 5602 1 t279*t308+3.333333333333333d-1*t159*t289+3.33333333333333 5603 2 3d-1*t158*t284 5604 t311 = t1**3.333333333333335d-1 5605 t312 = 1.1123881089968671d+0*t191*t311*t59*t63*t69*t74 5606 t313 = 1/t1**8.333333333333333d-1 5607 t314 = -5.297086233318417d-2*t162*t313*t59*t63*t69*t74 5608 t315 = 8.172647331405554d-1*t307*t59*t61*t67*t70 5609 t316 = -2.7242157771351844d-1*t310*t59*t61*t64*t67 5610 t317 = 1.2713006959964196d+0*t160*t161*t162*t59*t64*t67 5611 t318 = 1.1123881089968671d+0*t191*t311*t59*t63*t67 5612 t319 = -5.297086233318417d-2*t162*t313*t59*t63*t67 5613 t320 = 9.649190532874448d+1*t310*t38*t70+1.9298381065748896d 5614 1 +2*t143*t160*t70-3.216396844291483d+1*t291*t64-3.85967621 5615 2 3149779d+2*t174*t307*t38 5616 t321 = -1.3621078885675922d-1*t166*t320*t59*t61*t63*t65 5617 t322 = 5.448431554270369d-1*t160*t166*t167*t59*t61*t64*t65 5618 t323 = 6.356503479982097d-1*t161*t162*t166*t167*t59*t63*t65 5619 t324 = exp(-6.432793688582966d+1*t38*t64) 5620 t325 = 1/t66**3 5621 t326 = t167**2 5622 t327 = 2.7242157771351844d-1*t324*t325*t326*t59*t61*t63 5623 t328 = -1.3621078885675922d-1*t166*t326*t59*t61*t63*t65 5624 t329 = t328+t327+t323+t322+t321+t319+t318+t317+t316+t315 5625 t330 = 1/t60**6.0d+0 5626 t331 = 5.050642061378063d-1*t171*t311*t330*t70*t72 5627 t332 = -1.4430405889651615d-2*t171*t172*t313*t70*t72 5628 t333 = 1/t57**6.0d+0 5629 t334 = 1/t66**4.0d+0 5630 t335 = 3.710675800196128d-1*t307*t333*t71*t72-7.421351600392 5631 1 256d-2*t174*t310*t71*t72+6.926594827032773d-1*t160*t161*t 5632 2 171*t172*t174*t72-3.710675800196128d-2*t175*t326*t65*t70* 5633 3 t71-3.710675800196128d-2*t175*t320*t65*t70*t71+1.11320274 5634 4 00588385d-1*t324*t326*t334*t70*t71+2.9685406401569026d-1* 5635 5 t160*t167*t174*t175*t65*t71+3.4632974135163863d-1*t161*t1 5636 6 67*t171*t172*t175*t65*t70+t332+t331+t328+t327+t323+t322+t 5637 7 321+t319+t318+t317+t316+t315 5638 t336 = 1/t73**3 5639 t337 = t176**2 5640 t338 = 8.172647331405554d-1*t307*t59*t61*t69*t70*t74-2.72421 5641 1 57771351844d-1*t310*t59*t61*t64*t69*t74+1.271300695996419 5642 2 6d+0*t160*t161*t162*t59*t64*t69*t74-5.448431554270369d-1* 5643 3 t160*t169*t59*t61*t64*t74+1.3621078885675922d-1*t329*t59* 5644 4 t61*t63*t74-6.356503479982097d-1*t161*t162*t169*t59*t63*t 5645 5 74+5.448431554270369d-1*t160*t170*t176*t59*t61*t64*t69+2. 5646 6 7242157771351844d-1*t336*t337*t59*t61*t63*t69-1.362107888 5647 7 5675922d-1*t170*t335*t59*t61*t63*t69+6.356503479982097d-1 5648 8 *t161*t162*t170*t176*t59*t63*t69-2.7242157771351844d-1*t1 5649 9 69*t170*t176*t59*t61*t63+t314+t312 5650 t339 = 1.8654414521792934d-1*t1*t160*t177*t62*t89+3.10906908 5651 1 6965489d-2*t1*t338*t58*t89+6.218138173930978d-2*t177*t58* 5652 2 t89+6.218138173930978d-2*t1*t155*t177*t58 5653 t340 = -12*t276*t28*t36+t275+t273+t272+t263+t262+t261+t255 5654 t341 = 8.549604670806825d-1*t140*t181*t286+5.129762802484096 5655 1 d+0*t13*t141*t281-5.129762802484096d+0*t13*t138*t281+8.54 5656 2 9604670806825d-1*t137*t180*t280 5657 t342 = 5.848223622634648d-1*t341*t37+5.848223622634648d-1*t1 5658 1 9*t340+t252+t250+t249+t240+5.848223622634648d-1*t132*t182 5659 2 +5.848223622634648d-1*t142*t179 5660 t343 = -1.111111111111111d-1*t140*t181*t309-1.11111111111111 5661 1 1d-1*t137*t180*t308+6.666666666666666d-1*t13*t159*t281-6. 5662 2 666666666666666d-1*t13*t158*t281 5663 t344 = 8.172647331405554d-1*t160*t184*t59*t61*t67*t70 5664 t345 = -2.7242157771351844d-1*t343*t59*t61*t64*t67 5665 t346 = 6.356503479982097d-1*t161*t162*t184*t59*t64*t67 5666 t347 = 6.356503479982097d-1*t160*t161*t162*t59*t64*t67 5667 t348 = 9.649190532874448d+1*t343*t38*t70+9.649190532874448d+ 5668 1 1*t143*t184*t70+9.649190532874448d+1*t160*t183*t70-3.2163 5669 2 96844291483d+1*t342*t64-3.859676213149779d+2*t160*t174*t1 5670 3 84*t38 5671 t349 = -1.3621078885675922d-1*t166*t348*t59*t61*t63*t65 5672 t350 = 2.7242157771351844d-1*t160*t166*t186*t59*t61*t64*t65 5673 t351 = 3.1782517399910487d-1*t161*t162*t166*t186*t59*t63*t65 5674 t352 = 2.7242157771351844d-1*t166*t167*t184*t59*t61*t64*t65 5675 t353 = 3.1782517399910487d-1*t161*t162*t166*t167*t59*t63*t65 5676 t354 = 2.7242157771351844d-1*t167*t186*t324*t325*t59*t61*t63 5677 t355 = -1.3621078885675922d-1*t166*t167*t186*t59*t61*t63*t65 5678 t356 = t355+t354+t353+t352+t351+t350+t349+t347+t346+t345+t34 5679 1 4+t319+t318 5680 t357 = -7.421351600392256d-2*t174*t343*t71*t72+3.71067580019 5681 1 6128d-1*t160*t184*t333*t71*t72+3.4632974135163863d-1*t161 5682 2 *t171*t172*t174*t184*t72+3.4632974135163863d-1*t160*t161* 5683 3 t171*t172*t174*t72-3.710675800196128d-2*t175*t348*t65*t70 5684 4 *t71-3.710675800196128d-2*t167*t175*t186*t65*t70*t71+1.11 5685 5 32027400588385d-1*t167*t186*t324*t334*t70*t71+1.484270320 5686 6 0784513d-1*t160*t174*t175*t186*t65*t71+1.4842703200784513 5687 7 d-1*t167*t174*t175*t184*t65*t71+1.7316487067581932d-1*t16 5688 8 1*t171*t172*t175*t186*t65*t70+1.7316487067581932d-1*t161* 5689 9 t167*t171*t172*t175*t65*t70+t355+t354+t353+t352+t351+t350 5690 : +t349+t347+t346+t345+t344+t332+t331+t319+t318 5691 t358 = 8.172647331405554d-1*t160*t184*t59*t61*t69*t70*t74-2. 5692 1 7242157771351844d-1*t343*t59*t61*t64*t69*t74+6.3565034799 5693 2 82097d-1*t161*t162*t184*t59*t64*t69*t74+6.356503479982097 5694 3 d-1*t160*t161*t162*t59*t64*t69*t74-2.7242157771351844d-1* 5695 4 t160*t188*t59*t61*t64*t74-2.7242157771351844d-1*t169*t184 5696 5 *t59*t61*t64*t74+1.3621078885675922d-1*t356*t59*t61*t63*t 5697 6 74-3.1782517399910487d-1*t161*t162*t188*t59*t63*t74-3.178 5698 7 2517399910487d-1*t161*t162*t169*t59*t63*t74+2.72421577713 5699 8 51844d-1*t160*t170*t189*t59*t61*t64*t69+2.724215777135184 5700 9 4d-1*t170*t176*t184*t59*t61*t64*t69-1.3621078885675922d-1 5701 : *t170*t357*t59*t61*t63*t69+2.7242157771351844d-1*t176*t18 5702 ; 9*t336*t59*t61*t63*t69+3.1782517399910487d-1*t161*t162*t1 5703 < 70*t189*t59*t63*t69+3.1782517399910487d-1*t161*t162*t170* 5704 = t176*t59*t63*t69-1.3621078885675922d-1*t169*t170*t189*t59 5705 > *t61*t63-1.3621078885675922d-1*t170*t176*t188*t59*t61*t63 5706 ? +t314+t312 5707 t359 = 9.327207260896466d-2*t1*t160*t190*t62*t89+9.327207260 5708 1 896466d-2*t1*t177*t184*t62*t89+3.109069086965489d-2*t1*t3 5709 2 58*t58*t89+3.109069086965489d-2*t190*t58*t89+3.1090690869 5710 3 65489d-2*t177*t58*t89+3.109069086965489d-2*t1*t155*t190*t 5711 4 58+3.109069086965489d-2*t1*t155*t177*t58 5712 t360 = 32*t129*t131*t36-8*t127*t131*t28+t277+t275+t273+t272+ 5713 1 t263+t262+t261+t255 5714 t361 = t180**2 5715 t362 = t288+t282 5716 t363 = t181**2 5717 t364 = t287+t283 5718 t365 = 2.564881401242048d+0*t141*t364+8.549604670806825d-1*t 5719 1 286*t363+2.564881401242048d+0*t138*t362+8.549604670806825 5720 2 d-1*t280*t361 5721 t366 = 5.848223622634648d-1*t365*t37+5.848223622634648d-1*t1 5722 1 9*t360+t252+t250+t249+t240+1.1696447245269297d+0*t179*t18 5723 2 2 5724 t367 = t190**2 5725 t368 = t184**2 5726 t369 = 3.333333333333333d-1*t159*t364-1.111111111111111d-1*t 5727 1 309*t363+3.333333333333333d-1*t158*t362-1.111111111111111 5728 2 d-1*t308*t361 5729 t370 = 8.172647331405554d-1*t368*t59*t61*t67*t70 5730 t371 = -2.7242157771351844d-1*t369*t59*t61*t64*t67 5731 t372 = 1.2713006959964196d+0*t161*t162*t184*t59*t64*t67 5732 t373 = 9.649190532874448d+1*t369*t38*t70+1.9298381065748896d 5733 1 +2*t183*t184*t70-3.216396844291483d+1*t366*t64-3.85967621 5734 2 3149779d+2*t174*t368*t38 5735 t374 = -1.3621078885675922d-1*t166*t373*t59*t61*t63*t65 5736 t375 = 5.448431554270369d-1*t166*t184*t186*t59*t61*t64*t65 5737 t376 = 6.356503479982097d-1*t161*t162*t166*t186*t59*t63*t65 5738 t377 = t186**2 5739 t378 = 2.7242157771351844d-1*t324*t325*t377*t59*t61*t63 5740 t379 = -1.3621078885675922d-1*t166*t377*t59*t61*t63*t65 5741 t380 = t379+t378+t376+t375+t374+t372+t371+t370+t319+t318 5742 t381 = -7.421351600392256d-2*t174*t369*t71*t72+3.71067580019 5743 1 6128d-1*t333*t368*t71*t72+6.926594827032773d-1*t161*t171* 5744 2 t172*t174*t184*t72-3.710675800196128d-2*t175*t377*t65*t70 5745 3 *t71-3.710675800196128d-2*t175*t373*t65*t70*t71+1.1132027 5746 4 400588385d-1*t324*t334*t377*t70*t71+2.9685406401569026d-1 5747 5 *t174*t175*t184*t186*t65*t71+3.4632974135163863d-1*t161*t 5748 6 171*t172*t175*t186*t65*t70+t379+t378+t376+t375+t374+t372+ 5749 7 t371+t370+t332+t331+t319+t318 5750 t382 = t189**2 5751 t383 = 8.172647331405554d-1*t368*t59*t61*t69*t70*t74-2.72421 5752 1 57771351844d-1*t369*t59*t61*t64*t69*t74+1.271300695996419 5753 2 6d+0*t161*t162*t184*t59*t64*t69*t74-5.448431554270369d-1* 5754 3 t184*t188*t59*t61*t64*t74+1.3621078885675922d-1*t380*t59* 5755 4 t61*t63*t74-6.356503479982097d-1*t161*t162*t188*t59*t63*t 5756 5 74+5.448431554270369d-1*t170*t184*t189*t59*t61*t64*t69+2. 5757 6 7242157771351844d-1*t336*t382*t59*t61*t63*t69-1.362107888 5758 7 5675922d-1*t170*t381*t59*t61*t63*t69+6.356503479982097d-1 5759 8 *t161*t162*t170*t189*t59*t63*t69-2.7242157771351844d-1*t1 5760 9 70*t188*t189*t59*t61*t63+t314+t312 5761 t384 = 1.8654414521792934d-1*t1*t184*t190*t62*t89+3.10906908 5762 1 6965489d-2*t1*t383*t58*t89+6.218138173930978d-2*t190*t58* 5763 2 t89+6.218138173930978d-2*t1*t155*t190*t58 5764 t385 = 3.109069086965489d-2*t1*t155*t193*t58 5765 t386 = 3.109069086965489d-2*t193*t58*t89 5766 t387 = 3.1782517399910487d-1*t161*t162*t170*t192*t59*t63*t69 5767 t388 = -3.1782517399910487d-1*t161*t162*t63*t69*t74 5768 t389 = -4.3291217668954834d-2*t161*t172*t59*t67*t70*t74 5769 t390 = -2.7242157771351844d-1*t160*t61*t64*t67 5770 t391 = -3.1782517399910487d-1*t161*t162*t63*t67 5771 t392 = -1.3621078885675922d-1*t166*t167*t61*t63*t65 5772 t393 = t392+t391+t390 5773 t394 = -1.7316487067581932d-1*t161*t172*t59*t70*t72 5774 t395 = -1.4842703200784513d-1*t160*t174*t191*t59*t72-7.42135 5775 1 1600392256d-2*t167*t175*t191*t59*t65*t70+t394+t392+t391+t 5776 2 390 5777 t396 = -2.7242157771351844d-1*t160*t61*t64*t69*t74-3.7106758 5778 1 00196128d-2*t160*t174*t191*t59*t67*t74+1.3621078885675922 5779 2 d-1*t393*t59*t61*t63*t74+1.3621078885675922d-1*t169*t61*t 5780 3 63*t74-1.855337900098064d-2*t170*t176*t191*t59*t67*t70+2. 5781 4 7242157771351844d-1*t160*t170*t192*t59*t61*t64*t69-1.3621 5782 5 078885675922d-1*t170*t395*t59*t61*t63*t69+2.7242157771351 5783 6 844d-1*t176*t192*t336*t59*t61*t63*t69-1.3621078885675922d 5784 7 -1*t170*t176*t61*t63*t69-1.3621078885675922d-1*t169*t170* 5785 8 t192*t59*t61*t63+t389+t388+t387 5786 t397 = 9.327207260896466d-2*t1*t160*t193*t62*t89+3.109069086 5787 1 965489d-2*t1*t396*t58*t89+t386+t385 5788 t398 = 1.0d+0*(t157*t397-3.109069086965489d-2*t1*t177*t193*t 5789 1 305*t58*t89)*wght 5790 t399 = 3.109069086965489d-2*t1*t155*t196*t58 5791 t400 = 3.109069086965489d-2*t196*t58*t89 5792 t401 = 3.1782517399910487d-1*t161*t162*t170*t195*t59*t63*t69 5793 t402 = -6.356503479982097d-1*t161*t162*t63*t69*t74 5794 t403 = -8.658243533790967d-2*t161*t172*t59*t67*t70*t74 5795 t404 = -5.448431554270369d-1*t160*t61*t64*t67 5796 t405 = -6.356503479982097d-1*t161*t162*t63*t67 5797 t406 = -2.7242157771351844d-1*t166*t167*t61*t63*t65 5798 t407 = t406+t405+t404 5799 t408 = -3.4632974135163863d-1*t161*t172*t59*t70*t72 5800 t409 = -2.9685406401569026d-1*t160*t174*t191*t59*t72-1.48427 5801 1 03200784513d-1*t167*t175*t191*t59*t65*t70+t408+t406+t405+ 5802 2 t404 5803 t410 = -5.448431554270369d-1*t160*t61*t64*t69*t74-7.42135160 5804 1 0392256d-2*t160*t174*t191*t59*t67*t74+1.3621078885675922d 5805 2 -1*t407*t59*t61*t63*t74+2.7242157771351844d-1*t169*t61*t6 5806 3 3*t74-3.710675800196128d-2*t170*t176*t191*t59*t67*t70+2.7 5807 4 242157771351844d-1*t160*t170*t195*t59*t61*t64*t69-1.36210 5808 5 78885675922d-1*t170*t409*t59*t61*t63*t69+2.72421577713518 5809 6 44d-1*t176*t195*t336*t59*t61*t63*t69-2.7242157771351844d- 5810 7 1*t170*t176*t61*t63*t69-1.3621078885675922d-1*t169*t170*t 5811 8 195*t59*t61*t63+t403+t402+t401 5812 t411 = 9.327207260896466d-2*t1*t160*t196*t62*t89+3.109069086 5813 1 965489d-2*t1*t410*t58*t89+t400+t399 5814 t412 = -2.7242157771351844d-1*t184*t61*t64*t67 5815 t413 = -1.3621078885675922d-1*t166*t186*t61*t63*t65 5816 t414 = t413+t412+t391 5817 t415 = -1.4842703200784513d-1*t174*t184*t191*t59*t72-7.42135 5818 1 1600392256d-2*t175*t186*t191*t59*t65*t70+t413+t412+t394+t 5819 2 391 5820 t416 = -2.7242157771351844d-1*t184*t61*t64*t69*t74-3.7106758 5821 1 00196128d-2*t174*t184*t191*t59*t67*t74+1.3621078885675922 5822 2 d-1*t414*t59*t61*t63*t74+1.3621078885675922d-1*t188*t61*t 5823 3 63*t74-1.855337900098064d-2*t170*t189*t191*t59*t67*t70+2. 5824 4 7242157771351844d-1*t170*t184*t192*t59*t61*t64*t69-1.3621 5825 5 078885675922d-1*t170*t415*t59*t61*t63*t69+2.7242157771351 5826 6 844d-1*t189*t192*t336*t59*t61*t63*t69-1.3621078885675922d 5827 7 -1*t170*t189*t61*t63*t69-1.3621078885675922d-1*t170*t188* 5828 8 t192*t59*t61*t63+t389+t388+t387 5829 t417 = 9.327207260896466d-2*t1*t184*t193*t62*t89+3.109069086 5830 1 965489d-2*t1*t416*t58*t89+t386+t385 5831 t418 = 1.0d+0*(t157*t417-3.109069086965489d-2*t1*t190*t193*t 5832 1 305*t58*t89)*wght 5833 t419 = -5.448431554270369d-1*t184*t61*t64*t67 5834 t420 = -2.7242157771351844d-1*t166*t186*t61*t63*t65 5835 t421 = t420+t419+t405 5836 t422 = -2.9685406401569026d-1*t174*t184*t191*t59*t72-1.48427 5837 1 03200784513d-1*t175*t186*t191*t59*t65*t70+t420+t419+t408+ 5838 2 t405 5839 t423 = -5.448431554270369d-1*t184*t61*t64*t69*t74-7.42135160 5840 1 0392256d-2*t174*t184*t191*t59*t67*t74+1.3621078885675922d 5841 2 -1*t421*t59*t61*t63*t74+2.7242157771351844d-1*t188*t61*t6 5842 3 3*t74-3.710675800196128d-2*t170*t189*t191*t59*t67*t70+2.7 5843 4 242157771351844d-1*t170*t184*t195*t59*t61*t64*t69-1.36210 5844 5 78885675922d-1*t170*t422*t59*t61*t63*t69+2.72421577713518 5845 6 44d-1*t189*t195*t336*t59*t61*t63*t69-2.7242157771351844d- 5846 7 1*t170*t189*t61*t63*t69-1.3621078885675922d-1*t170*t188*t 5847 8 195*t59*t61*t63+t403+t402+t401 5848 t424 = 9.327207260896466d-2*t1*t184*t196*t62*t89+3.109069086 5849 1 965489d-2*t1*t423*t58*t89+t400+t399 5850 t425 = t193**2 5851 t426 = t192**2 5852 t427 = -2.7242157771351844d-1*t170*t192*t61*t63*t69 5853 t428 = -3.710675800196128d-2*t170*t191*t192*t59*t67*t70 5854 t429 = 3.710675800196128d-2*t191*t67*t70*t74-5.0543407793640 5855 1 09d-3*t170*t330*t333*t59*t69*t72+2.7242157771351844d-1*t3 5856 2 36*t426*t59*t61*t63*t69+t428+t427 5857 t430 = 3.109069086965489d-2*t1*t157*t429*t58*t89*wght-3.1090 5858 1 69086965489d-2*t1*t305*t425*t58*t89*wght 5859 t431 = 7.421351600392256d-2*t191*t67*t70*t74-1.0108681558728 5860 1 018d-2*t170*t330*t333*t59*t69*t72-1.855337900098064d-2*t1 5861 2 70*t191*t195*t59*t67*t70+2.7242157771351844d-1*t192*t195* 5862 3 t336*t59*t61*t63*t69-1.3621078885675922d-1*t170*t195*t61* 5863 4 t63*t69+t428+t427 5864 t432 = 3.109069086965489d-2*t1*t157*t431*t58*t89*wght-3.1090 5865 1 69086965489d-2*t1*t193*t196*t305*t58*t89*wght 5866 t433 = t196**2 5867 t434 = t195**2 5868 t435 = 1.4842703200784513d-1*t191*t67*t70*t74-2.021736311745 5869 1 6036d-2*t170*t330*t333*t59*t69*t72-7.421351600392256d-2*t 5870 2 170*t191*t195*t59*t67*t70+2.7242157771351844d-1*t336*t434 5871 3 *t59*t61*t63*t69-5.448431554270369d-1*t170*t195*t61*t63*t 5872 4 69 5873 t436 = t40**2 5874 t437 = 1/t41**4 5875 t438 = -t40*t91*t92-t42*t92-4.785390000313652d+0*t197*t40*t9 5876 1 0*t91+9.570780000627304d+0*t222*t40*t44*t90+9.57078000062 5877 2 7304d+0*t43*t436*t437*t90+4.785390000313652d+0*t197*t42*t 5878 3 90 5879 t439 = -t40*t91*t93-t42*t93-4.785390000313652d+0*t198*t40*t9 5880 1 0*t91+9.570780000627304d+0*t222*t40*t45*t90+4.78539000031 5881 2 3652d+0*t198*t42*t90+t40*t42*t438 5882 t440 = -t40*t91*t94-t42*t94-4.785390000313652d+0*t199*t40*t9 5883 1 0*t91+9.570780000627304d+0*t222*t40*t46*t90+4.78539000031 5884 2 3652d+0*t199*t42*t90+t40*t42*t439 5885 t441 = -t40*t91*t95-t42*t95-4.785390000313652d+0*t200*t40*t9 5886 1 0*t91+9.570780000627304d+0*t222*t40*t47*t90+4.78539000031 5887 2 3652d+0*t200*t42*t90+t40*t42*t440 5888 t442 = -t40*t91*t96-t42*t96-4.785390000313652d+0*t201*t40*t9 5889 1 0*t91+9.570780000627304d+0*t222*t40*t48*t90+4.78539000031 5890 2 3652d+0*t201*t42*t90+t40*t42*t441 5891 t443 = -t40*t91*t97-t42*t97-4.785390000313652d+0*t202*t40*t9 5892 1 0*t91+9.570780000627304d+0*t222*t40*t49*t90+4.78539000031 5893 2 3652d+0*t202*t42*t90+t40*t42*t442 5894 t444 = -t40*t91*t98-t42*t98-4.785390000313652d+0*t203*t40*t9 5895 1 0*t91+9.570780000627304d+0*t222*t40*t50*t90+4.78539000031 5896 2 3652d+0*t203*t42*t90+t40*t42*t443 5897 t445 = -t40*t91*t99-t42*t99-4.785390000313652d+0*t204*t40*t9 5898 1 0*t91+9.570780000627304d+0*t222*t40*t51*t90+4.78539000031 5899 2 3652d+0*t204*t42*t90+t40*t42*t444 5900 t446 = -4.785390000313652d+0*t205*t40*t90*t91-t100*t40*t91+9 5901 1 .570780000627304d+0*t222*t40*t52*t90+4.785390000313652d+0 5902 2 *t205*t42*t90+t40*t42*t445-t100*t42 5903 t447 = -4.785390000313652d+0*t206*t40*t90*t91-t101*t40*t91+9 5904 1 .570780000627304d+0*t222*t40*t53*t90+4.785390000313652d+0 5905 2 *t206*t42*t90+t40*t42*t446-t101*t42 5906 t448 = 1.0d+0*t1*t38*t447 5907 t449 = 1.0d+0*t207*t38 5908 t450 = -4.785390000313652d+0*t208*t40*t90*t91-t145*t40*t91+9 5909 1 .570780000627304d+0*t222*t40*t79*t90+9.570780000627304d+0 5910 2 *t436*t437*t78*t90+4.785390000313652d+0*t208*t42*t90-t145 5911 3 *t42 5912 t451 = -4.785390000313652d+0*t209*t40*t90*t91-t146*t40*t91+9 5913 1 .570780000627304d+0*t222*t40*t80*t90+4.785390000313652d+0 5914 2 *t209*t42*t90+t40*t42*t450-t146*t42 5915 t452 = -4.785390000313652d+0*t210*t40*t90*t91-t147*t40*t91+9 5916 1 .570780000627304d+0*t222*t40*t81*t90+4.785390000313652d+0 5917 2 *t210*t42*t90+t40*t42*t451-t147*t42 5918 t453 = -4.785390000313652d+0*t211*t40*t90*t91-t148*t40*t91+9 5919 1 .570780000627304d+0*t222*t40*t82*t90+4.785390000313652d+0 5920 2 *t211*t42*t90+t40*t42*t452-t148*t42 5921 t454 = -4.785390000313652d+0*t212*t40*t90*t91-t149*t40*t91+9 5922 1 .570780000627304d+0*t222*t40*t83*t90+4.785390000313652d+0 5923 2 *t212*t42*t90+t40*t42*t453-t149*t42 5924 t455 = -4.785390000313652d+0*t213*t40*t90*t91-t150*t40*t91+9 5925 1 .570780000627304d+0*t222*t40*t84*t90+4.785390000313652d+0 5926 2 *t213*t42*t90+t40*t42*t454-t150*t42 5927 t456 = -4.785390000313652d+0*t214*t40*t90*t91-t151*t40*t91+9 5928 1 .570780000627304d+0*t222*t40*t85*t90+4.785390000313652d+0 5929 2 *t214*t42*t90+t40*t42*t455-t151*t42 5930 t457 = -4.785390000313652d+0*t215*t40*t90*t91-t152*t40*t91+9 5931 1 .570780000627304d+0*t222*t40*t86*t90+4.785390000313652d+0 5932 2 *t215*t42*t90+t40*t42*t456-t152*t42 5933 t458 = -4.785390000313652d+0*t216*t40*t90*t91-t153*t40*t91+9 5934 1 .570780000627304d+0*t222*t40*t87*t90+4.785390000313652d+0 5935 2 *t216*t42*t90+t40*t42*t457-t153*t42 5936 t459 = -4.785390000313652d+0*t217*t40*t90*t91-t154*t40*t91+9 5937 1 .570780000627304d+0*t222*t40*t88*t90+4.785390000313652d+0 5938 2 *t217*t42*t90+t40*t42*t458-t154*t42 5939 t460 = 3.109069086965489d-2*t1*t459*t58*t76 5940 t461 = 3.109069086965489d-2*t219*t58*t76 5941 t462 = 1.0d+0*(9.327207260896466d-2*t1*t160*t219*t62*t76+3.1 5942 1 09069086965489d-2*t1*t157*t177*t219*t58+t461+t460+t449+t4 5943 2 48+1.0d+0*t1*t143*t207)*wght 5944 t463 = 1.0d+0*(9.327207260896466d-2*t1*t184*t219*t62*t76+3.1 5945 1 09069086965489d-2*t1*t157*t190*t219*t58+t461+t460+t449+t4 5946 2 48+1.0d+0*t1*t183*t207)*wght 5947 t464 = t42*(-t40*t42*t87-t77+t217*t40)+t218 5948 t465 = 3.109069086965489d-2*t1*t157*t193*t464*t58*wght 5949 t466 = 3.109069086965489d-2*t1*t157*t196*t464*t58*wght 5950 t467 = 2*t43*t91+2*t222*t40*t43 5951 t468 = 2*t44*t91-2*t197*t40*t91+t40*t42*t467+2*t222*t40*t44- 5952 1 2*t197*t42 5953 t469 = 2*t45*t91-2*t198*t40*t91+t40*t42*t468+2*t222*t40*t45- 5954 1 2*t198*t42 5955 t470 = 2*t46*t91-2*t199*t40*t91+t40*t42*t469+2*t222*t40*t46- 5956 1 2*t199*t42 5957 t471 = 2*t47*t91-2*t200*t40*t91+t40*t42*t470+2*t222*t40*t47- 5958 1 2*t200*t42 5959 t472 = 2*t48*t91-2*t201*t40*t91+2*t222*t40*t48+t40*t42*t471- 5960 1 2*t201*t42 5961 t473 = 2*t49*t91-2*t202*t40*t91+2*t222*t40*t49+t40*t42*t472- 5962 1 2*t202*t42 5963 t474 = 2*t50*t91-2*t203*t40*t91+2*t222*t40*t50+t40*t42*t473- 5964 1 2*t203*t42 5965 t475 = 2*t51*t91-2*t204*t40*t91+2*t222*t40*t51+t40*t42*t474- 5966 1 2*t204*t42 5967 t476 = 2*t52*t91-2*t205*t40*t91+2*t222*t40*t52+t40*t42*t475- 5968 1 2*t205*t42 5969 t477 = 2*t78*t91+2*t222*t40*t78 5970 t478 = 2*t79*t91-2*t208*t40*t91+2*t222*t40*t79+t40*t42*t477- 5971 1 2*t208*t42 5972 t479 = 2*t80*t91-2*t209*t40*t91+2*t222*t40*t80+t40*t42*t478- 5973 1 2*t209*t42 5974 t480 = 2*t81*t91-2*t210*t40*t91+2*t222*t40*t81+t40*t42*t479- 5975 1 2*t210*t42 5976 t481 = 2*t82*t91-2*t211*t40*t91+2*t222*t40*t82+t40*t42*t480- 5977 1 2*t211*t42 5978 t482 = 2*t83*t91-2*t212*t40*t91+2*t222*t40*t83+t40*t42*t481- 5979 1 2*t212*t42 5980 t483 = 2*t84*t91-2*t213*t40*t91+2*t222*t40*t84+t40*t42*t482- 5981 1 2*t213*t42 5982 t484 = 2*t85*t91-2*t214*t40*t91+2*t222*t40*t85+t40*t42*t483- 5983 1 2*t214*t42 5984 t485 = 2*t86*t91-2*t215*t40*t91+2*t222*t40*t86+t40*t42*t484- 5985 1 2*t215*t42 5986 t486 = 2*t87*t91-2*t216*t40*t91+2*t222*t40*t87+t40*t42*t485- 5987 1 2*t216*t42 5988 t487 = 2*t222*t40*t88 5989 t488 = 1.0d+0*(3.109069086965489d-2*t1*t58*t76*(2*t88*t91-2* 5990 1 t217*t40*t91+t487+t40*t42*t486-2*t217*t42)+1.0d+0*t1*t38* 5991 2 (2*t53*t91-2*t206*t40*t91+2*t222*t40*t53+t40*t42*t476-2*t 5992 3 206*t42))*wght 5993 t489 = 1/t221 5994 t490 = 1.0d+0*t1*t38*(t40*t42*(t40*t42*(-9.570780000627304d+ 5995 1 0*t224*t40*t91*t99-1.3739974473061137d+2*t221*t91*t99+9.5 5996 2 70780000627304d+0*t224*t42*t99+1.3739974473061137d+2*t221 5997 3 *t222*t40*t99+t40*t42*(-9.570780000627304d+0*t224*t40*t91 5998 4 *t98-1.3739974473061137d+2*t221*t91*t98+9.570780000627304 5999 5 d+0*t224*t42*t98+1.3739974473061137d+2*t221*t222*t40*t98+ 6000 6 t40*t42*(-9.570780000627304d+0*t224*t40*t91*t97-1.3739974 6001 7 473061137d+2*t221*t91*t97+9.570780000627304d+0*t224*t42*t 6002 8 97+1.3739974473061137d+2*t221*t222*t40*t97+t40*t42*(-9.57 6003 9 0780000627304d+0*t224*t40*t91*t96-1.3739974473061137d+2*t 6004 : 221*t91*t96+9.570780000627304d+0*t224*t42*t96+1.373997447 6005 ; 3061137d+2*t221*t222*t40*t96+t40*t42*(-9.570780000627304d 6006 < +0*t224*t40*t91*t95-1.3739974473061137d+2*t221*t91*t95+9. 6007 = 570780000627304d+0*t224*t42*t95+1.3739974473061137d+2*t22 6008 > 1*t222*t40*t95+t40*t42*(-9.570780000627304d+0*t224*t40*t9 6009 ? 1*t94-1.3739974473061137d+2*t221*t91*t94+9.57078000062730 6010 @ 4d+0*t224*t42*t94+1.3739974473061137d+2*t221*t222*t40*t94 6011 1 +t40*t42*(-9.570780000627304d+0*t224*t40*t91*t93-1.373997 6012 2 4473061137d+2*t221*t91*t93+9.570780000627304d+0*t224*t42* 6013 3 t93+1.3739974473061137d+2*t221*t222*t40*t93+t40*t42*(-9.5 6014 4 70780000627304d+0*t224*t40*t91*t92-1.3739974473061137d+2* 6015 5 t221*t91*t92+9.570780000627304d+0*t224*t42*t92+1.37399744 6016 6 73061137d+2*t221*t222*t40*t92+t40*t42*(1.0634200000697003 6017 7 d+0*t40*t43*t489*t91-9.159982982040756d+1*t223*t43*t91-1. 6018 8 0634200000697003d+0*t42*t43*t489-6.57511364479516d+2*t133 6019 9 *t40*t43*t437+9.159982982040756d+1*t222*t223*t40*t43+6.57 6020 : 511364479516d+2*t133*t222*t43)-1.4356170000940957d+1*t225 6021 ; *t40*t90*t91+1.0634200000697003d+0*t40*t44*t489*t91-9.159 6022 < 982982040756d+1*t223*t44*t91+1.4356170000940957d+1*t225*t 6023 = 42*t90-1.0634200000697003d+0*t42*t44*t489-6.5751136447951 6024 > 6d+2*t133*t40*t437*t44+9.159982982040756d+1*t222*t223*t40 6025 ? *t44+6.57511364479516d+2*t133*t222*t44)-1.435617000094095 6026 @ 7d+1*t226*t40*t90*t91+1.0634200000697003d+0*t40*t45*t489* 6027 1 t91-9.159982982040756d+1*t223*t45*t91+1.4356170000940957d 6028 2 +1*t226*t42*t90-1.0634200000697003d+0*t42*t45*t489-6.5751 6029 3 1364479516d+2*t133*t40*t437*t45+9.159982982040756d+1*t222 6030 4 *t223*t40*t45+6.57511364479516d+2*t133*t222*t45)-1.435617 6031 5 0000940957d+1*t227*t40*t90*t91+1.0634200000697003d+0*t40* 6032 6 t46*t489*t91-9.159982982040756d+1*t223*t46*t91+1.43561700 6033 7 00940957d+1*t227*t42*t90-1.0634200000697003d+0*t42*t46*t4 6034 8 89-6.57511364479516d+2*t133*t40*t437*t46+9.15998298204075 6035 9 6d+1*t222*t223*t40*t46+6.57511364479516d+2*t133*t222*t46) 6036 : -1.4356170000940957d+1*t228*t40*t90*t91+1.063420000069700 6037 ; 3d+0*t40*t47*t489*t91-9.159982982040756d+1*t223*t47*t91+1 6038 < .4356170000940957d+1*t228*t42*t90-1.0634200000697003d+0*t 6039 = 42*t47*t489-6.57511364479516d+2*t133*t40*t437*t47+9.15998 6040 > 2982040756d+1*t222*t223*t40*t47+6.57511364479516d+2*t133* 6041 ? t222*t47)-1.4356170000940957d+1*t229*t40*t90*t91+1.063420 6042 @ 0000697003d+0*t40*t48*t489*t91-9.159982982040756d+1*t223* 6043 1 t48*t91+1.4356170000940957d+1*t229*t42*t90-1.063420000069 6044 2 7003d+0*t42*t48*t489-6.57511364479516d+2*t133*t40*t437*t4 6045 3 8+9.159982982040756d+1*t222*t223*t40*t48+6.57511364479516 6046 4 d+2*t133*t222*t48)-1.4356170000940957d+1*t230*t40*t90*t91 6047 5 +1.0634200000697003d+0*t40*t489*t49*t91-9.159982982040756 6048 6 d+1*t223*t49*t91+1.4356170000940957d+1*t230*t42*t90-1.063 6049 7 4200000697003d+0*t42*t489*t49-6.57511364479516d+2*t133*t4 6050 8 0*t437*t49+9.159982982040756d+1*t222*t223*t40*t49+6.57511 6051 9 364479516d+2*t133*t222*t49)-1.4356170000940957d+1*t231*t4 6052 : 0*t90*t91+1.0634200000697003d+0*t40*t489*t50*t91-9.159982 6053 ; 982040756d+1*t223*t50*t91+1.4356170000940957d+1*t231*t42* 6054 < t90-1.0634200000697003d+0*t42*t489*t50-6.57511364479516d+ 6055 = 2*t133*t40*t437*t50+9.159982982040756d+1*t222*t223*t40*t5 6056 > 0+6.57511364479516d+2*t133*t222*t50)-1.4356170000940957d+ 6057 ? 1*t232*t40*t90*t91+1.0634200000697003d+0*t40*t489*t51*t91 6058 @ -9.159982982040756d+1*t223*t51*t91+1.4356170000940957d+1* 6059 1 t232*t42*t90-1.0634200000697003d+0*t42*t489*t51-6.5751136 6060 2 4479516d+2*t133*t40*t437*t51+9.159982982040756d+1*t222*t2 6061 3 23*t40*t51+6.57511364479516d+2*t133*t222*t51)-1.435617000 6062 4 0940957d+1*t233*t40*t90*t91+1.0634200000697003d+0*t40*t48 6063 5 9*t52*t91-9.159982982040756d+1*t223*t52*t91-9.57078000062 6064 6 7304d+0*t100*t224*t40*t91-1.3739974473061137d+2*t100*t221 6065 7 *t91+1.4356170000940957d+1*t233*t42*t90-1.063420000069700 6066 8 3d+0*t42*t489*t52-6.57511364479516d+2*t133*t40*t437*t52+9 6067 9 .159982982040756d+1*t222*t223*t40*t52+6.57511364479516d+2 6068 : *t133*t222*t52+9.570780000627304d+0*t100*t224*t42+1.37399 6069 ; 74473061137d+2*t100*t221*t222*t40)-1.4356170000940957d+1* 6070 < t234*t40*t90*t91+1.0634200000697003d+0*t40*t489*t53*t91-9 6071 = .159982982040756d+1*t223*t53*t91-9.570780000627304d+0*t10 6072 > 1*t224*t40*t91-1.3739974473061137d+2*t101*t221*t91+1.4356 6073 ? 170000940957d+1*t234*t42*t90-1.0634200000697003d+0*t42*t4 6074 @ 89*t53-6.57511364479516d+2*t133*t40*t437*t53+9.1599829820 6075 1 40756d+1*t222*t223*t40*t53+6.57511364479516d+2*t133*t222* 6076 2 t53+9.570780000627304d+0*t101*t224*t42+1.3739974473061137 6077 3 d+2*t101*t221*t222*t40) 6078 t491 = 3.0d+0*t235*t38 6079 t492 = t110**3 6080 t493 = 1/t11**3 6081 t494 = -1.243628d-1*t4*t492*t493 6082 t495 = 1.865442d-1*t110*t239*t248*t4 6083 t496 = -8.243319792565315d-3*t113*t238*t239 6084 t497 = 1/t1**3.3333333333333337d+0 6085 t498 = 1/t1**2.0d+0 6086 t499 = 1/t5**7 6087 t500 = 1/t1**2.666666666666667d+0 6088 t501 = -7.617854707500852d+0*t108**3*t5/t9**4-1.269642451250 6089 1 142d+0*t109*t5*(-1.4585616998143394d-1*t106*t500*t8-5.469 6090 2 606374303773d-2*t498*t499*t8-1.3127055298329054d-1*t243*t 6091 3 244*t8+7.876233178997433d-1*t6*(-1.4585616998143394d-1*t1 6092 4 06*t500*t7-5.469606374303773d-2*t498*t499*t7-1.3127055298 6093 5 329054d-1*t243*t244*t7-1.1708185015918181d-2*t497)-3.9381 6094 6 165894987163d-1*t105*t106*t246+2.625411059665811d-1*t106* 6095 7 t107*t245+1.9690582947493582d-1*t104*t107*t244)+2.3511897 6096 8 245373004d-1*t10*t500*t6-6.34821225625071d-1*t105*t109*t2 6097 9 47*t6+4.2321415041671406d-1*t108*t109*t245*t6+1.269642451 6098 : 250142d+0*t105*t241*t242*t6+7.617854707500852d+0*t108*t24 6099 ; 2*t247*t5+1.763392293402975d-2*t10*t244*t498+7.0535691736 6100 < 11901d-2*t10*t106*t243+1.0580353760417849d-1*t104*t106*t1 6101 = 08*t109 6102 t502 = -6.21814d-2*t111*t4*t501 6103 t503 = 8.243319792565315d-3*t111*t113*t248 6104 t504 = -1.0991093056753751d-2*t110*t111*t251 6105 t505 = 1/t1**3.333333333333333d+0 6106 t506 = 8.548627933030694d-3*t12*t505 6107 t507 = t137**3 6108 t508 = 1/t15**1.6666666666666669d+0 6109 t509 = 6*t13*t28 6110 t510 = -6*t281 6111 t511 = t510+t509 6112 t512 = t140**3 6113 t513 = 1/t17**1.6666666666666669d+0 6114 t514 = -6*t13*t28 6115 t515 = 6*t281 6116 t516 = t515+t514 6117 t517 = t118**3 6118 t518 = 1/t25**3 6119 t519 = 6.75476d-2*t20*t517*t518 6120 t520 = -1.013214d-1*t118*t20*t254*t260 6121 t521 = 2.33086476681112d-3*t113*t253*t254 6122 t522 = -1.269642451250142d+0*t117*t5*(7.876233178997433d-1*( 6123 1 -1.4585616998143394d-1*t106*t21*t500-5.469606374303773d-2 6124 2 *t21*t498*t499-6.407931356509611d-3*t497-1.31270552983290 6125 3 54d-1*t21*t243*t244)*t6-1.4585616998143394d-1*t106*t22*t5 6126 4 00-5.469606374303773d-2*t22*t498*t499-3.9381165894987163d 6127 5 -1*t105*t106*t258+2.625411059665811d-1*t106*t115*t245-1.3 6128 6 127055298329054d-1*t22*t243*t244+1.9690582947493582d-1*t1 6129 7 04*t115*t244)+2.3511897245373004d-1*t24*t500*t6-6.3482122 6130 8 5625071d-1*t105*t117*t259*t6+1.269642451250142d+0*t105*t2 6131 9 56*t257*t6+4.2321415041671406d-1*t116*t117*t245*t6+7.6178 6132 : 54707500852d+0*t116*t257*t259*t5-7.617854707500852d+0*t11 6133 ; 6**3*t5/t23**4+1.763392293402975d-2*t24*t244*t498+7.05356 6134 < 9173611901d-2*t106*t24*t243+1.0580353760417849d-1*t104*t1 6135 = 06*t116*t117 6136 t523 = 3.37738d-2*t119*t20*t522 6137 t524 = -2.33086476681112d-3*t113*t119*t260 6138 t525 = 3.107819689081493d-3*t118*t119*t251 6139 t526 = -2.4171930915078277d-3*t26*t505 6140 t527 = t27*t28*(1.709920934161365d+0*(-3.10907d-2*t126*t29*( 6141 1 -1.269642451250142d+0*t124*t5*(7.876233178997433d-1*(-1.4 6142 2 585616998143394d-1*t106*t30*t500-5.469606374303773d-2*t30 6143 3 *t498*t499-7.424439106586571d-3*t497-1.3127055298329054d- 6144 4 1*t243*t244*t30)*t6-1.4585616998143394d-1*t106*t31*t500-5 6145 5 .469606374303773d-2*t31*t498*t499-1.3127055298329054d-1*t 6146 6 243*t244*t31-3.9381165894987163d-1*t105*t106*t268+2.62541 6147 7 1059665811d-1*t106*t122*t245+1.9690582947493582d-1*t104*t 6148 8 122*t244)+2.3511897245373004d-1*t33*t500*t6-6.34821225625 6149 9 071d-1*t105*t124*t269*t6+1.269642451250142d+0*t105*t266*t 6150 : 267*t6+4.2321415041671406d-1*t123*t124*t245*t6-7.61785470 6151 ; 7500852d+0*t123**3*t5/t32**4+7.617854707500852d+0*t123*t2 6152 < 67*t269*t5+1.763392293402975d-2*t244*t33*t498+7.053569173 6153 = 611901d-2*t106*t243*t33+1.0580353760417849d-1*t104*t106*t 6154 > 123*t124)+4.1099018897499934d-3*t35*t505-8.54862793303069 6155 ? 4d-3*t12*t505+6.21814d-2*t111*t4*t501+1.243628d-1*t4*t492 6156 @ *t493-1.865442d-1*t110*t239*t248*t4-6.21814d-2*t125**3*t2 6157 1 9/t34**3+9.327209999999999d-2*t125*t265*t270*t29+3.963119 6158 2 67940178d-3*t113*t126*t270-3.96311967940178d-3*t113*t264* 6159 3 t265-5.284159572535706d-3*t125*t126*t251+1.09910930567537 6160 4 51d-2*t110*t111*t251-8.243319792565315d-3*t111*t113*t248+ 6161 5 8.243319792565315d-3*t113*t238*t239)-3.37738d-2*t119*t20* 6162 6 t522-6.75476d-2*t20*t517*t518+2.4171930915078277d-3*t26*t 6163 7 505+1.013214d-1*t118*t20*t254*t260+2.33086476681112d-3*t1 6164 8 13*t119*t260-2.33086476681112d-3*t113*t253*t254-3.1078196 6165 9 89081493d-3*t118*t119*t251) 6166 t528 = -12*t129*t27*t271 6167 t529 = 60*t127*t27*t274 6168 t530 = 36*t127*t276*t28 6169 t531 = -120*t27*t36/t1**7 6170 t532 = -144*t129*t276*t36 6171 t533 = 24*t13*t28*t36 6172 t534 = 5.848223622634648d-1*t19*(t533+t532+t531+t530+t529+t5 6173 1 28+t527+t526+t525+t524+t523+t521+t520+t519+240*t131*t274* 6174 2 t36+12*t131*t271*t28-96*t127*t129*t131)+5.848223622634648 6175 3 d-1*t37*(2.564881401242048d+0*t141*t516-5.69973644720455d 6176 4 -1*t512*t513+2.564881401242048d+0*t138*t511-5.69973644720 6177 5 455d-1*t507*t508+2.5648814012420473d+0*t140*t286*t289+2.5 6178 6 648814012420473d+0*t137*t280*t284)+t506+t504+t503+t502+t4 6179 7 96+t495+t494+1.7544670867903944d+0*t132*t290+1.7544670867 6180 8 903944d+0*t142*t278 6181 t535 = 3.109069086965489d-2*t1*t58*t76*(t40*t42*(t40*t42*(t4 6182 1 0*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t 6183 2 42*(t40*t42*(1.0634200000697003d+0*t40*t489*t78*t91-9.159 6184 3 982982040756d+1*t223*t78*t91-1.0634200000697003d+0*t42*t4 6185 4 89*t78-6.57511364479516d+2*t133*t40*t437*t78+9.1599829820 6186 5 40756d+1*t222*t223*t40*t78+6.57511364479516d+2*t133*t222* 6187 6 t78)-1.4356170000940957d+1*t292*t40*t90*t91+1.06342000006 6188 7 97003d+0*t40*t489*t79*t91-9.159982982040756d+1*t223*t79*t 6189 8 91-9.570780000627304d+0*t145*t224*t40*t91-1.3739974473061 6190 9 137d+2*t145*t221*t91+1.4356170000940957d+1*t292*t42*t90-1 6191 : .0634200000697003d+0*t42*t489*t79-6.57511364479516d+2*t13 6192 ; 3*t40*t437*t79+9.159982982040756d+1*t222*t223*t40*t79+6.5 6193 < 7511364479516d+2*t133*t222*t79+9.570780000627304d+0*t145* 6194 = t224*t42+1.3739974473061137d+2*t145*t221*t222*t40)-1.4356 6195 > 170000940957d+1*t293*t40*t90*t91+1.0634200000697003d+0*t4 6196 ? 0*t489*t80*t91-9.159982982040756d+1*t223*t80*t91-9.570780 6197 @ 000627304d+0*t146*t224*t40*t91-1.3739974473061137d+2*t146 6198 1 *t221*t91+1.4356170000940957d+1*t293*t42*t90-1.0634200000 6199 2 697003d+0*t42*t489*t80-6.57511364479516d+2*t133*t40*t437* 6200 3 t80+9.159982982040756d+1*t222*t223*t40*t80+6.575113644795 6201 4 16d+2*t133*t222*t80+9.570780000627304d+0*t146*t224*t42+1. 6202 5 3739974473061137d+2*t146*t221*t222*t40)-1.435617000094095 6203 6 7d+1*t294*t40*t90*t91+1.0634200000697003d+0*t40*t489*t81* 6204 7 t91-9.159982982040756d+1*t223*t81*t91-9.570780000627304d+ 6205 8 0*t147*t224*t40*t91-1.3739974473061137d+2*t147*t221*t91+1 6206 9 .4356170000940957d+1*t294*t42*t90-1.0634200000697003d+0*t 6207 : 42*t489*t81-6.57511364479516d+2*t133*t40*t437*t81+9.15998 6208 ; 2982040756d+1*t222*t223*t40*t81+6.57511364479516d+2*t133* 6209 < t222*t81+9.570780000627304d+0*t147*t224*t42+1.37399744730 6210 = 61137d+2*t147*t221*t222*t40)-1.4356170000940957d+1*t295*t 6211 > 40*t90*t91+1.0634200000697003d+0*t40*t489*t82*t91-9.15998 6212 ? 2982040756d+1*t223*t82*t91-9.570780000627304d+0*t148*t224 6213 @ *t40*t91-1.3739974473061137d+2*t148*t221*t91+1.4356170000 6214 1 940957d+1*t295*t42*t90-1.0634200000697003d+0*t42*t489*t82 6215 2 -6.57511364479516d+2*t133*t40*t437*t82+9.159982982040756d 6216 3 +1*t222*t223*t40*t82+6.57511364479516d+2*t133*t222*t82+9. 6217 4 570780000627304d+0*t148*t224*t42+1.3739974473061137d+2*t1 6218 5 48*t221*t222*t40)-1.4356170000940957d+1*t296*t40*t90*t91+ 6219 6 1.0634200000697003d+0*t40*t489*t83*t91-9.159982982040756d 6220 7 +1*t223*t83*t91-9.570780000627304d+0*t149*t224*t40*t91-1. 6221 8 3739974473061137d+2*t149*t221*t91+1.4356170000940957d+1*t 6222 9 296*t42*t90-1.0634200000697003d+0*t42*t489*t83-6.57511364 6223 : 479516d+2*t133*t40*t437*t83+9.159982982040756d+1*t222*t22 6224 ; 3*t40*t83+6.57511364479516d+2*t133*t222*t83+9.57078000062 6225 < 7304d+0*t149*t224*t42+1.3739974473061137d+2*t149*t221*t22 6226 = 2*t40)-1.4356170000940957d+1*t297*t40*t90*t91+1.063420000 6227 > 0697003d+0*t40*t489*t84*t91-9.159982982040756d+1*t223*t84 6228 ? *t91-9.570780000627304d+0*t150*t224*t40*t91-1.37399744730 6229 @ 61137d+2*t150*t221*t91+1.4356170000940957d+1*t297*t42*t90 6230 1 -1.0634200000697003d+0*t42*t489*t84-6.57511364479516d+2*t 6231 2 133*t40*t437*t84+9.159982982040756d+1*t222*t223*t40*t84+6 6232 3 .57511364479516d+2*t133*t222*t84+9.570780000627304d+0*t15 6233 4 0*t224*t42+1.3739974473061137d+2*t150*t221*t222*t40)-1.43 6234 5 56170000940957d+1*t298*t40*t90*t91+1.0634200000697003d+0* 6235 6 t40*t489*t85*t91-9.159982982040756d+1*t223*t85*t91-9.5707 6236 7 80000627304d+0*t151*t224*t40*t91-1.3739974473061137d+2*t1 6237 8 51*t221*t91+1.4356170000940957d+1*t298*t42*t90-1.06342000 6238 9 00697003d+0*t42*t489*t85-6.57511364479516d+2*t133*t40*t43 6239 : 7*t85+9.159982982040756d+1*t222*t223*t40*t85+6.5751136447 6240 ; 9516d+2*t133*t222*t85+9.570780000627304d+0*t151*t224*t42+ 6241 < 1.3739974473061137d+2*t151*t221*t222*t40)-1.4356170000940 6242 = 957d+1*t299*t40*t90*t91+1.0634200000697003d+0*t40*t489*t8 6243 > 6*t91-9.159982982040756d+1*t223*t86*t91-9.570780000627304 6244 ? d+0*t152*t224*t40*t91-1.3739974473061137d+2*t152*t221*t91 6245 @ +1.4356170000940957d+1*t299*t42*t90-1.0634200000697003d+0 6246 1 *t42*t489*t86-6.57511364479516d+2*t133*t40*t437*t86+9.159 6247 2 982982040756d+1*t222*t223*t40*t86+6.57511364479516d+2*t13 6248 3 3*t222*t86+9.570780000627304d+0*t152*t224*t42+1.373997447 6249 4 3061137d+2*t152*t221*t222*t40)-1.4356170000940957d+1*t300 6250 5 *t40*t90*t91+1.0634200000697003d+0*t40*t489*t87*t91-9.159 6251 6 982982040756d+1*t223*t87*t91-9.570780000627304d+0*t153*t2 6252 7 24*t40*t91-1.3739974473061137d+2*t153*t221*t91+1.43561700 6253 8 00940957d+1*t300*t42*t90-1.0634200000697003d+0*t42*t489*t 6254 9 87-6.57511364479516d+2*t133*t40*t437*t87+9.15998298204075 6255 : 6d+1*t222*t223*t40*t87+6.57511364479516d+2*t133*t222*t87+ 6256 ; 9.570780000627304d+0*t153*t224*t42+1.3739974473061137d+2* 6257 < t153*t221*t222*t40)-1.4356170000940957d+1*t301*t40*t90*t9 6258 = 1+1.0634200000697003d+0*t40*t489*t88*t91-9.15998298204075 6259 > 6d+1*t223*t88*t91-9.570780000627304d+0*t154*t224*t40*t91- 6260 ? 1.3739974473061137d+2*t154*t221*t91+1.4356170000940957d+1 6261 @ *t301*t42*t90-1.0634200000697003d+0*t42*t489*t88-6.575113 6262 1 64479516d+2*t133*t40*t437*t88+9.159982982040756d+1*t222*t 6263 2 223*t40*t88+6.57511364479516d+2*t133*t222*t88+9.570780000 6264 3 627304d+0*t154*t224*t42+1.3739974473061137d+2*t154*t221*t 6265 4 222*t40) 6266 t536 = 9.327207260896466d-2*t302*t58*t76 6267 t537 = 1/t75**3 6268 t538 = t160**3 6269 t539 = 1/t15**2.3333333333333334d+0 6270 t540 = 1/t17**2.3333333333333334d+0 6271 t541 = 1.4814814814814814d-1*t512*t540+1.4814814814814814d-1 6272 1 *t507*t539+3.333333333333333d-1*t159*t516+3.3333333333333 6273 2 33d-1*t158*t511-3.333333333333333d-1*t140*t289*t309-3.333 6274 3 333333333333d-1*t137*t284*t308 6275 t542 = t1**5.000000000000002d-1 6276 t543 = -5.191144508652046d+0*t172*t542*t59*t63*t69*t74 6277 t544 = 1/t1**6.666666666666665d-1 6278 t545 = 5.561940544984338d-1*t191*t544*t59*t63*t69*t74 6279 t546 = 1/t1**1.8333333333333332d+0 6280 t547 = 4.414238527765347d-2*t162*t546*t59*t63*t69*t74 6281 t548 = -3.2690589325622216d+0*t174*t538*t59*t61*t67 6282 t549 = 2.4517941994216663d+0*t160*t310*t59*t61*t67*t70 6283 t550 = -5.720853131983887d+0*t161*t162*t307*t59*t67*t70 6284 t551 = -2.7242157771351844d-1*t541*t59*t61*t64*t67 6285 t552 = 1.906951043994629d+0*t161*t162*t310*t59*t64*t67 6286 t553 = -6.674328653981203d+0*t160*t191*t311*t59*t64*t67 6287 t554 = 3.1782517399910504d-1*t160*t162*t313*t59*t64*t67 6288 t555 = -5.191144508652046d+0*t172*t542*t59*t63*t67 6289 t556 = 5.561940544984338d-1*t191*t544*t59*t63*t67 6290 t557 = 4.414238527765347d-2*t162*t546*t59*t63*t67 6291 t558 = 8.172647331405554d-1*t160*t166*t320*t59*t61*t64*t65 6292 t559 = 9.534755219973146d-1*t161*t162*t166*t320*t59*t63*t65 6293 t560 = -2.4517941994216663d+0*t166*t167*t307*t59*t61*t65*t70 6294 t561 = 8.172647331405554d-1*t166*t167*t310*t59*t61*t64*t65 6295 t562 = -3.813902087989258d+0*t160*t161*t162*t166*t167*t59*t6 6296 1 4*t65 6297 t563 = -3.3371643269906015d+0*t166*t167*t191*t311*t59*t63*t6 6298 1 5 6299 t564 = 1.5891258699955252d-1*t162*t166*t167*t313*t59*t63*t65 6300 t565 = 8.172647331405554d-1*t167*t320*t324*t325*t59*t61*t63 6301 t566 = -4.086323665702777d-1*t166*t167*t320*t59*t61*t63*t65 6302 t567 = 1.9298381065748896d+2*t160*t38*t70-6.432793688582966d 6303 1 +1*t143*t64 6304 t568 = 2.7242157771351844d-1*t324*t325*t326*t567*t59*t61*t63 6305 t569 = 9.649190532874448d+1*t38*t541*t70+2.8947571598623345d 6306 1 +2*t143*t310*t70+2.8947571598623345d+2*t160*t291*t70-3.21 6307 2 6396844291483d+1*t534*t64+1.9298381065748896d+3*t333*t38* 6308 3 t538-1.1579028639449339d+3*t160*t174*t310*t38-1.157902863 6309 4 9449339d+3*t143*t174*t307 6310 t570 = -1.3621078885675922d-1*t166*t569*t59*t61*t63*t65 6311 t571 = -1.6345294662811108d+0*t160*t324*t325*t326*t59*t61*t6 6312 1 4 6313 t572 = -1.906951043994629d+0*t161*t162*t324*t325*t326*t59*t6 6314 1 3 6315 t573 = 8.172647331405554d-1*t160*t166*t326*t59*t61*t64*t65 6316 t574 = 9.534755219973146d-1*t161*t162*t166*t326*t59*t63*t65 6317 t575 = exp(-9.649190532874448d+1*t38*t64) 6318 t576 = 1/t66**4 6319 t577 = t167**3 6320 t578 = -8.172647331405554d-1*t575*t576*t577*t59*t61*t63 6321 t579 = 2.7242157771351844d-1*t324*t325*t577*t59*t61*t63 6322 t580 = -1.3621078885675922d-1*t166*t577*t59*t61*t63*t65 6323 t581 = 1/t60**7.0d+0 6324 t582 = -3.5354494429646444d+0*t171*t542*t581*t70*t72 6325 t583 = 2.525321030689033d-1*t171*t330*t544*t70*t72 6326 t584 = 1.2025338241376346d-2*t171*t172*t546*t70*t72 6327 t585 = 1/t57**7.0d+0 6328 t586 = 1/t66**5.0d+0 6329 t587 = 1/t73**4 6330 t588 = -3.109069086965489d-2*t1*t155*t306*t58 6331 t589 = -3.109069086965489d-2*t306*t58*t89 6332 t590 = 2.0d+0*t1*t102*t342 6333 t591 = 2.0d+0*t342*t54 6334 t592 = t509-2*t281 6335 t593 = t514+2*t281 6336 t594 = -12*t127*t276*t28 6337 t595 = 48*t129*t276*t36 6338 t596 = -24*t13*t28*t36 6339 t597 = 5.848223622634648d-1*t19*(t596+t595+t594+t531+t529+t5 6340 1 28+t527+t526+t525+t524+t523+t521+t520+t519+80*t131*t274*t 6341 2 36+4*t131*t271*t28-32*t127*t129*t131)+5.848223622634648d- 6342 3 1*t37*(2.564881401242048d+0*t141*t593+2.564881401242048d+ 6343 4 0*t138*t592-5.69973644720455d-1*t181*t285*t513-5.69973644 6344 5 720455d-1*t180*t279*t508+8.549604670806825d-1*t181*t286*t 6345 6 289+3.41984186832273d+0*t13*t140*t281*t286+8.549604670806 6346 7 825d-1*t180*t280*t284-3.41984186832273d+0*t13*t137*t280*t 6347 8 281)+t506+t504+t503+t502+t496+t495+t494+1.169644724526929 6348 9 7d+0*t132*t341+1.1696447245269297d+0*t142*t340+5.84822362 6349 : 2634648d-1*t179*t290+5.848223622634648d-1*t182*t278 6350 t598 = 3.7308829043585867d-1*t1*t155*t160*t184*t57*t76 6351 t599 = 1.8654414521792934d-1*t1*t155*t343*t62*t76 6352 t600 = 3.7308829043585867d-1*t160*t184*t57*t76*t89 6353 t601 = 1.8654414521792934d-1*t343*t62*t76*t89 6354 t602 = 3.333333333333333d-1*t159*t593+3.333333333333333d-1*t 6355 1 158*t592+1.4814814814814814d-1*t181*t285*t540+1.481481481 6356 2 4814814d-1*t180*t279*t539-1.111111111111111d-1*t181*t289* 6357 3 t309-4.444444444444444d-1*t13*t140*t281*t309-1.1111111111 6358 4 11111d-1*t180*t284*t308+4.444444444444444d-1*t13*t137*t28 6359 5 1*t308 6360 t603 = 1.8654414521792934d-1*t1*t155*t160*t190*t62 6361 t604 = 1.8654414521792934d-1*t1*t155*t177*t184*t62 6362 t605 = 6.218138173930978d-2*t1*t155*t358*t58 6363 t606 = 1.8654414521792934d-1*t160*t190*t62*t89 6364 t607 = 1.8654414521792934d-1*t177*t184*t62*t89 6365 t608 = 6.218138173930978d-2*t358*t58*t89 6366 t609 = -3.813902087989258d+0*t160*t161*t162*t184*t59*t69*t70 6367 1 *t74 6368 t610 = 1.2713006959964196d+0*t161*t162*t343*t59*t64*t69*t74 6369 t611 = 1.2713006959964196d+0*t160*t161*t162*t188*t59*t64*t74 6370 t612 = -1.2713006959964196d+0*t160*t161*t162*t170*t189*t59*t 6371 1 64*t69 6372 t613 = 1.2713006959964196d+0*t161*t162*t169*t184*t59*t64*t74 6373 t614 = 6.356503479982097d-1*t161*t162*t169*t170*t189*t59*t63 6374 t615 = -1.2713006959964196d+0*t161*t162*t170*t176*t184*t59*t 6375 1 64*t69 6376 t616 = 6.356503479982097d-1*t161*t162*t170*t176*t188*t59*t63 6377 t617 = -1.2713006959964196d+0*t161*t162*t176*t189*t336*t59*t 6378 1 63*t69 6379 t618 = -6.356503479982097d-1*t161*t162*t356*t59*t63*t74 6380 t619 = 6.356503479982097d-1*t161*t162*t170*t357*t59*t63*t69 6381 t620 = -3.2690589325622216d+0*t174*t184*t307*t59*t61*t67 6382 t621 = 8.172647331405554d-1*t184*t310*t59*t61*t67*t70 6383 t622 = 1.6345294662811108d+0*t160*t343*t59*t61*t67*t70 6384 t623 = -3.813902087989258d+0*t160*t161*t162*t184*t59*t67*t70 6385 t624 = -1.9069510439946294d+0*t161*t162*t307*t59*t67*t70 6386 t625 = 1.2713006959964196d+0*t161*t162*t343*t59*t64*t67 6387 t626 = -2.7242157771351844d-1*t59*t602*t61*t64*t67 6388 t627 = 6.356503479982097d-1*t161*t162*t310*t59*t64*t67 6389 t628 = -2.2247762179937342d+0*t184*t191*t311*t59*t64*t67 6390 t629 = 1.0594172466636834d-1*t162*t184*t313*t59*t64*t67 6391 t630 = -4.4495524359874683d+0*t160*t191*t311*t59*t64*t67 6392 t631 = 2.1188344933273667d-1*t160*t162*t313*t59*t64*t67 6393 t632 = 5.448431554270369d-1*t160*t166*t348*t59*t61*t64*t65 6394 t633 = 6.356503479982097d-1*t161*t162*t166*t348*t59*t63*t65 6395 t634 = 2.7242157771351844d-1*t166*t184*t320*t59*t61*t64*t65 6396 t635 = 3.1782517399910487d-1*t161*t162*t166*t320*t59*t63*t65 6397 t636 = -8.172647331405554d-1*t166*t186*t307*t59*t61*t65*t70 6398 t637 = 2.7242157771351844d-1*t166*t186*t310*t59*t61*t64*t65 6399 t638 = -1.2713006959964196d+0*t160*t161*t162*t166*t186*t59*t 6400 1 64*t65 6401 t639 = -1.1123881089968671d+0*t166*t186*t191*t311*t59*t63*t6 6402 1 5 6403 t640 = 5.297086233318417d-2*t162*t166*t186*t313*t59*t63*t65 6404 t641 = 2.7242157771351844d-1*t186*t320*t324*t325*t59*t61*t63 6405 t642 = -1.3621078885675922d-1*t166*t186*t320*t59*t61*t63*t65 6406 t643 = -1.6345294662811108d+0*t160*t166*t167*t184*t59*t61*t6 6407 1 5*t70 6408 t644 = 5.448431554270369d-1*t166*t167*t343*t59*t61*t64*t65 6409 t645 = -1.2713006959964196d+0*t161*t162*t166*t167*t184*t59*t 6410 1 64*t65 6411 t646 = -1.2713006959964196d+0*t160*t161*t162*t166*t167*t59*t 6412 1 64*t65 6413 t647 = -2.2247762179937342d+0*t166*t167*t191*t311*t59*t63*t6 6414 1 5 6415 t648 = 1.0594172466636834d-1*t162*t166*t167*t313*t59*t63*t65 6416 t649 = 5.448431554270369d-1*t167*t324*t325*t348*t59*t61*t63 6417 t650 = -2.7242157771351844d-1*t166*t167*t348*t59*t61*t63*t65 6418 t651 = -1.0896863108540737d+0*t160*t167*t186*t324*t325*t59*t 6419 1 61*t64 6420 t652 = -1.2713006959964196d+0*t161*t162*t167*t186*t324*t325* 6421 1 t59*t63 6422 t653 = 5.448431554270369d-1*t160*t166*t167*t186*t59*t61*t64* 6423 1 t65 6424 t654 = 6.356503479982097d-1*t161*t162*t166*t167*t186*t59*t63 6425 1 *t65 6426 t655 = 9.649190532874448d+1*t38*t602*t70+1.9298381065748896d 6427 1 +2*t143*t343*t70+1.9298381065748896d+2*t160*t342*t70+9.64 6428 2 9190532874448d+1*t183*t310*t70+9.649190532874448d+1*t184* 6429 3 t291*t70-3.216396844291483d+1*t597*t64-7.719352426299558d 6430 4 +2*t160*t174*t343*t38+1.9298381065748896d+3*t184*t307*t33 6431 5 3*t38-3.859676213149779d+2*t174*t184*t310*t38-3.859676213 6432 6 149779d+2*t174*t183*t307-7.719352426299558d+2*t143*t160*t 6433 7 174*t184 6434 t656 = -1.3621078885675922d-1*t166*t59*t61*t63*t65*t655 6435 t657 = -5.448431554270369d-1*t184*t324*t325*t326*t59*t61*t64 6436 t658 = -6.356503479982097d-1*t161*t162*t324*t325*t326*t59*t6 6437 1 3 6438 t659 = 2.7242157771351844d-1*t166*t184*t326*t59*t61*t64*t65 6439 t660 = 3.1782517399910487d-1*t161*t162*t166*t326*t59*t63*t65 6440 t661 = -8.172647331405554d-1*t186*t326*t575*t576*t59*t61*t63 6441 t662 = 2.7242157771351844d-1*t186*t324*t325*t326*t59*t61*t63 6442 t663 = -1.3621078885675922d-1*t166*t186*t326*t59*t61*t63*t65 6443 t664 = 1.9298381065748896d+2*t184*t38*t70-6.432793688582966d 6444 1 +1*t183*t64 6445 t665 = 2.7242157771351844d-1*t324*t325*t326*t59*t61*t63*t664 6446 t666 = -3.4632974135163863d+0*t160*t161*t171*t172*t184*t333* 6447 1 t72 6448 t667 = 6.926594827032773d-1*t161*t171*t172*t174*t343*t72 6449 t668 = 3.4632974135163863d-1*t161*t171*t172*t175*t348*t65*t7 6450 1 0 6451 t669 = -1.3853189654065545d+0*t160*t161*t171*t172*t174*t175* 6452 1 t186*t65 6453 t670 = -1.3853189654065545d+0*t161*t167*t171*t172*t174*t175* 6454 1 t184*t65 6455 t671 = -1.0389892240549159d+0*t161*t167*t171*t172*t186*t324* 6456 1 t334*t70 6457 t672 = 3.4632974135163863d-1*t161*t167*t171*t172*t175*t186*t 6458 1 65*t70 6459 t673 = 5.848223622634648d-1*t19*(t595+t594+t533+t531+t529+t5 6460 1 28+t527+t526+t525+t524+t523+t521+t520+t519-80*t131*t274*t 6461 2 36-4*t131*t271*t28+32*t127*t129*t131)+5.848223622634648d- 6462 3 1*t37*(-5.69973644720455d-1*t140*t363*t513-5.699736447204 6463 4 55d-1*t137*t361*t508+8.549604670806825d-1*t140*t286*t364+ 6464 5 8.549604670806825d-1*t137*t280*t362+3.41984186832273d+0*t 6465 6 13*t181*t281*t286-3.41984186832273d+0*t13*t180*t280*t281- 6466 7 5.129762802484096d+0*t141*t281+5.129762802484096d+0*t138* 6467 8 t281-1.5389288407452287d+1*t13*t141*t28+1.538928840745228 6468 9 7d+1*t13*t138*t28)+t506+t504+t503+t502+t496+t495+t494+5.8 6469 : 48223622634648d-1*t132*t365+5.848223622634648d-1*t142*t36 6470 ; 0+1.1696447245269297d+0*t179*t341+1.1696447245269297d+0*t 6471 < 182*t340 6472 t674 = 1.4814814814814814d-1*t140*t363*t540+1.48148148148148 6473 1 14d-1*t137*t361*t539-1.111111111111111d-1*t140*t309*t364- 6474 2 1.111111111111111d-1*t137*t308*t362-4.444444444444444d-1* 6475 3 t13*t181*t281*t309+4.444444444444444d-1*t13*t180*t281*t30 6476 4 8-6.666666666666666d-1*t159*t281+6.666666666666666d-1*t15 6477 5 8*t281-2.0d+0*t13*t159*t28+2.0d+0*t13*t158*t28 6478 t675 = -3.2690589325622216d+0*t160*t174*t368*t59*t61*t67 6479 t676 = 1.6345294662811108d+0*t184*t343*t59*t61*t67*t70 6480 t677 = 8.172647331405554d-1*t160*t369*t59*t61*t67*t70 6481 t678 = -1.906951043994629d+0*t161*t162*t368*t59*t67*t70 6482 t679 = -2.7242157771351844d-1*t59*t61*t64*t67*t674 6483 t680 = 6.356503479982097d-1*t161*t162*t369*t59*t64*t67 6484 t681 = -4.4495524359874683d+0*t184*t191*t311*t59*t64*t67 6485 t682 = 2.1188344933273667d-1*t162*t184*t313*t59*t64*t67 6486 t683 = -2.2247762179937342d+0*t160*t191*t311*t59*t64*t67 6487 t684 = 1.0594172466636834d-1*t160*t162*t313*t59*t64*t67 6488 t685 = 5.448431554270369d-1*t166*t184*t348*t59*t61*t64*t65 6489 t686 = 2.7242157771351844d-1*t160*t166*t373*t59*t61*t64*t65 6490 t687 = 3.1782517399910487d-1*t161*t162*t166*t373*t59*t63*t65 6491 t688 = -1.6345294662811108d+0*t160*t166*t184*t186*t59*t61*t6 6492 1 5*t70 6493 t689 = 5.448431554270369d-1*t166*t186*t343*t59*t61*t64*t65 6494 t690 = -1.2713006959964196d+0*t161*t162*t166*t184*t186*t59*t 6495 1 64*t65 6496 t691 = -2.2247762179937342d+0*t166*t186*t191*t311*t59*t63*t6 6497 1 5 6498 t692 = 1.0594172466636834d-1*t162*t166*t186*t313*t59*t63*t65 6499 t693 = 5.448431554270369d-1*t186*t324*t325*t348*t59*t61*t63 6500 t694 = -2.7242157771351844d-1*t166*t186*t348*t59*t61*t63*t65 6501 t695 = -8.172647331405554d-1*t166*t167*t368*t59*t61*t65*t70 6502 t696 = 2.7242157771351844d-1*t166*t167*t369*t59*t61*t64*t65 6503 t697 = -1.1123881089968671d+0*t166*t167*t191*t311*t59*t63*t6 6504 1 5 6505 t698 = 5.297086233318417d-2*t162*t166*t167*t313*t59*t63*t65 6506 t699 = 2.7242157771351844d-1*t167*t324*t325*t373*t59*t61*t63 6507 t700 = -1.3621078885675922d-1*t166*t167*t373*t59*t61*t63*t65 6508 t701 = -1.0896863108540737d+0*t167*t184*t186*t324*t325*t59*t 6509 1 61*t64 6510 t702 = 5.448431554270369d-1*t166*t167*t184*t186*t59*t61*t64* 6511 1 t65 6512 t703 = 2.7242157771351844d-1*t167*t186*t324*t325*t59*t61*t63 6513 1 *t664 6514 t704 = -8.172647331405554d-1*t167*t377*t575*t576*t59*t61*t63 6515 t705 = 2.7242157771351844d-1*t167*t324*t325*t377*t59*t61*t63 6516 t706 = -1.3621078885675922d-1*t166*t167*t377*t59*t61*t63*t65 6517 t707 = 9.649190532874448d+1*t38*t674*t70+9.649190532874448d+ 6518 1 1*t143*t369*t70+9.649190532874448d+1*t160*t366*t70+1.9298 6519 2 381065748896d+2*t183*t343*t70+1.9298381065748896d+2*t184* 6520 3 t342*t70-3.216396844291483d+1*t64*t673-3.859676213149779d 6521 4 +2*t160*t174*t369*t38+1.9298381065748896d+3*t160*t333*t36 6522 5 8*t38-7.719352426299558d+2*t174*t184*t343*t38-3.859676213 6523 6 149779d+2*t143*t174*t368-7.719352426299558d+2*t160*t174*t 6524 7 183*t184 6525 t708 = -1.3621078885675922d-1*t166*t59*t61*t63*t65*t707 6526 t709 = -5.448431554270369d-1*t160*t324*t325*t377*t59*t61*t64 6527 t710 = -6.356503479982097d-1*t161*t162*t324*t325*t377*t59*t6 6528 1 3 6529 t711 = 2.7242157771351844d-1*t160*t166*t377*t59*t61*t64*t65 6530 t712 = 3.1782517399910487d-1*t161*t162*t166*t377*t59*t63*t65 6531 t713 = t180**3 6532 t714 = t515+t509 6533 t715 = t181**3 6534 t716 = t514+t510 6535 t717 = 5.848223622634648d-1*t37*(2.564881401242048d+0*t141*t 6536 1 716-5.69973644720455d-1*t513*t715+2.564881401242048d+0*t1 6537 2 38*t714-5.69973644720455d-1*t508*t713+2.5648814012420473d 6538 3 +0*t181*t286*t364+2.5648814012420473d+0*t180*t280*t362)+5 6539 4 .848223622634648d-1*t19*(t596+t532+t531+t530+t529+t528+t5 6540 5 27+t526+t525+t524+t523+t521+t520+t519-240*t131*t274*t36-1 6541 6 2*t131*t271*t28+96*t127*t129*t131)+t506+t504+t503+t502+t4 6542 7 96+t495+t494+1.7544670867903944d+0*t179*t365+1.7544670867 6543 8 903944d+0*t182*t360 6544 t718 = t184**3 6545 t719 = 3.333333333333333d-1*t159*t716+1.4814814814814814d-1* 6546 1 t540*t715+3.333333333333333d-1*t158*t714+1.48148148148148 6547 2 14d-1*t539*t713-3.333333333333333d-1*t181*t309*t364-3.333 6548 3 333333333333d-1*t180*t308*t362 6549 t720 = -3.2690589325622216d+0*t174*t59*t61*t67*t718 6550 t721 = 2.4517941994216663d+0*t184*t369*t59*t61*t67*t70 6551 t722 = -5.720853131983887d+0*t161*t162*t368*t59*t67*t70 6552 t723 = -2.7242157771351844d-1*t59*t61*t64*t67*t719 6553 t724 = 1.906951043994629d+0*t161*t162*t369*t59*t64*t67 6554 t725 = -6.674328653981203d+0*t184*t191*t311*t59*t64*t67 6555 t726 = 3.1782517399910504d-1*t162*t184*t313*t59*t64*t67 6556 t727 = 8.172647331405554d-1*t166*t184*t373*t59*t61*t64*t65 6557 t728 = 9.534755219973146d-1*t161*t162*t166*t373*t59*t63*t65 6558 t729 = -2.4517941994216663d+0*t166*t186*t368*t59*t61*t65*t70 6559 t730 = 8.172647331405554d-1*t166*t186*t369*t59*t61*t64*t65 6560 t731 = -3.813902087989258d+0*t161*t162*t166*t184*t186*t59*t6 6561 1 4*t65 6562 t732 = -3.3371643269906015d+0*t166*t186*t191*t311*t59*t63*t6 6563 1 5 6564 t733 = 1.5891258699955252d-1*t162*t166*t186*t313*t59*t63*t65 6565 t734 = 8.172647331405554d-1*t186*t324*t325*t373*t59*t61*t63 6566 t735 = -4.086323665702777d-1*t166*t186*t373*t59*t61*t63*t65 6567 t736 = 2.7242157771351844d-1*t324*t325*t377*t59*t61*t63*t664 6568 t737 = 9.649190532874448d+1*t38*t70*t719+1.9298381065748896d 6569 1 +3*t333*t38*t718-3.216396844291483d+1*t64*t717+2.89475715 6570 2 98623345d+2*t183*t369*t70+2.8947571598623345d+2*t184*t366 6571 3 *t70-1.1579028639449339d+3*t174*t184*t369*t38-1.157902863 6572 4 9449339d+3*t174*t183*t368 6573 t738 = -1.3621078885675922d-1*t166*t59*t61*t63*t65*t737 6574 t739 = -1.6345294662811108d+0*t184*t324*t325*t377*t59*t61*t6 6575 1 4 6576 t740 = -1.906951043994629d+0*t161*t162*t324*t325*t377*t59*t6 6577 1 3 6578 t741 = 8.172647331405554d-1*t166*t184*t377*t59*t61*t64*t65 6579 t742 = 9.534755219973146d-1*t161*t162*t166*t377*t59*t63*t65 6580 t743 = t186**3 6581 t744 = -8.172647331405554d-1*t575*t576*t59*t61*t63*t743 6582 t745 = 2.7242157771351844d-1*t324*t325*t59*t61*t63*t743 6583 t746 = -1.3621078885675922d-1*t166*t59*t61*t63*t65*t743 6584 t747 = 3.109069086965489d-2*t1*t193*t302*t58 6585 t748 = 6.218138173930978d-2*t155*t193*t58 6586 t749 = -1.1123881089968671d+0*t170*t191*t192*t311*t59*t63*t6 6587 1 9 6588 t750 = 5.297086233318417d-2*t162*t170*t192*t313*t59*t63*t69 6589 t751 = 1.2713006959964196d+0*t160*t161*t162*t64*t69*t74 6590 t752 = 1.1123881089968671d+0*t191*t311*t63*t69*t74 6591 t753 = -5.297086233318417d-2*t162*t313*t63*t69*t74 6592 t754 = 1.7316487067581934d-1*t160*t161*t172*t174*t59*t67*t74 6593 t755 = 1.515192618413419d-1*t311*t330*t59*t67*t70*t74 6594 t756 = -7.215202944825808d-3*t172*t313*t59*t67*t70*t74 6595 t757 = -6.356503479982097d-1*t161*t162*t169*t63*t74 6596 t758 = 6.356503479982097d-1*t161*t162*t170*t176*t63*t69 6597 t759 = 8.658243533790967d-2*t161*t170*t172*t176*t59*t67*t70 6598 t760 = 8.172647331405554d-1*t307*t61*t67*t70 6599 t761 = -2.7242157771351844d-1*t310*t61*t64*t67 6600 t762 = 1.2713006959964196d+0*t160*t161*t162*t64*t67 6601 t763 = 1.1123881089968671d+0*t191*t311*t63*t67 6602 t764 = -5.297086233318417d-2*t162*t313*t63*t67 6603 t765 = -1.3621078885675922d-1*t166*t320*t61*t63*t65 6604 t766 = 5.448431554270369d-1*t160*t166*t167*t61*t64*t65 6605 t767 = 6.356503479982097d-1*t161*t162*t166*t167*t63*t65 6606 t768 = 2.7242157771351844d-1*t324*t325*t326*t61*t63 6607 t769 = -1.3621078885675922d-1*t166*t326*t61*t63*t65 6608 t770 = 1.3853189654065545d+0*t160*t161*t172*t174*t59*t72 6609 t771 = 1.0101284122756127d+0*t311*t330*t59*t70*t72 6610 t772 = -2.886081177930323d-2*t172*t313*t59*t70*t72 6611 t773 = 6.926594827032773d-1*t161*t167*t172*t175*t59*t65*t70 6612 t774 = 1.0d+0*(t157*(3.109069086965489d-2*t1*t58*(-1.3621078 6613 1 885675922d-1*t170*t59*t61*t63*t69*(t773+t772+t771+t770+t7 6614 2 69+t768+t767+t766+t765+t764+t763+t762+t761+t760+7.4213516 6615 3 00392256d-1*t191*t307*t333*t59*t72-1.4842703200784513d-1* 6616 4 t174*t191*t310*t59*t72-7.421351600392256d-2*t175*t191*t32 6617 5 6*t59*t65*t70-7.421351600392256d-2*t175*t191*t320*t59*t65 6618 6 *t70+2.226405480117677d-1*t191*t324*t326*t334*t59*t70+5.9 6619 7 37081280313805d-1*t160*t167*t174*t175*t191*t59*t65)+1.362 6620 8 1078885675922d-1*t59*t61*t63*t74*(t769+t768+t767+t766+t76 6621 9 5+t764+t763+t762+t761+t760)+t759+t758+t757+t756+t755+t754 6622 : +t753+t752+t751+t750+t749+8.172647331405554d-1*t307*t61*t 6623 ; 69*t70*t74-2.7242157771351844d-1*t310*t61*t64*t69*t74+1.1 6624 < 132027400588386d-1*t191*t307*t333*t59*t67*t74-3.710675800 6625 = 196128d-2*t174*t191*t310*t59*t67*t74-5.448431554270369d-1 6626 > *t160*t393*t59*t61*t64*t74-5.448431554270369d-1*t160*t169 6627 ? *t61*t64*t74+1.3621078885675922d-1*t329*t61*t63*t74-6.356 6628 @ 503479982097d-1*t161*t162*t393*t59*t63*t74-8.172647331405 6629 1 554d-1*t170*t192*t307*t59*t61*t69*t70+3.710675800196128d- 6630 2 2*t191*t336*t337*t59*t67*t70-1.855337900098064d-2*t170*t1 6631 3 91*t335*t59*t67*t70+5.448431554270369d-1*t160*t170*t395*t 6632 4 59*t61*t64*t69-1.0896863108540737d+0*t160*t176*t192*t336* 6633 5 t59*t61*t64*t69+2.7242157771351844d-1*t170*t192*t310*t59* 6634 6 t61*t64*t69+5.448431554270369d-1*t160*t170*t176*t61*t64*t 6635 7 69-1.2713006959964196d+0*t160*t161*t162*t170*t192*t59*t64 6636 8 *t69-8.172647331405554d-1*t192*t337*t587*t59*t61*t63*t69+ 6637 9 5.448431554270369d-1*t176*t336*t395*t59*t61*t63*t69+2.724 6638 : 2157771351844d-1*t192*t335*t336*t59*t61*t63*t69+2.7242157 6639 ; 771351844d-1*t336*t337*t61*t63*t69-1.3621078885675922d-1* 6640 < t170*t335*t61*t63*t69+6.356503479982097d-1*t161*t162*t170 6641 = *t395*t59*t63*t69-1.2713006959964196d+0*t161*t162*t176*t1 6642 > 92*t336*t59*t63*t69+7.421351600392256d-2*t160*t170*t174*t 6643 ? 176*t191*t59*t67+5.448431554270369d-1*t160*t169*t170*t192 6644 @ *t59*t61*t64-2.7242157771351844d-1*t169*t170*t395*t59*t61 6645 1 *t63-2.7242157771351844d-1*t170*t176*t393*t59*t61*t63+5.4 6646 2 48431554270369d-1*t169*t176*t192*t336*t59*t61*t63-1.36210 6647 3 78885675922d-1*t170*t192*t329*t59*t61*t63-2.7242157771351 6648 4 844d-1*t169*t170*t176*t61*t63+6.356503479982097d-1*t161*t 6649 5 162*t169*t170*t192*t59*t63)*t89+1.8654414521792934d-1*t1* 6650 6 t160*t396*t62*t89+9.327207260896466d-2*t1*t193*t310*t62*t 6651 7 89+1.8654414521792934d-1*t160*t193*t62*t89+6.218138173930 6652 8 978d-2*t396*t58*t89+1.8654414521792934d-1*t1*t193*t307*t5 6653 9 7*t89+t748+t747+1.8654414521792934d-1*t1*t155*t160*t193*t 6654 : 62+6.218138173930978d-2*t1*t155*t396*t58)+t305*(-6.218138 6655 ; 173930978d-2*t1*t177*t396*t58*t89-t193*t339)+6.2181381739 6656 < 30978d-2*t1*t193*t306*t537*t58*t89)*wght 6657 t775 = 3.109069086965489d-2*t1*t196*t302*t58 6658 t776 = 6.218138173930978d-2*t155*t196*t58 6659 t777 = -1.1123881089968671d+0*t170*t191*t195*t311*t59*t63*t6 6660 1 9 6661 t778 = 5.297086233318417d-2*t162*t170*t195*t313*t59*t63*t69 6662 t779 = 2.2247762179937342d+0*t191*t311*t63*t69*t74 6663 t780 = -1.0594172466636834d-1*t162*t313*t63*t69*t74 6664 t781 = 3.030385236826838d-1*t311*t330*t59*t67*t70*t74 6665 t782 = -1.4430405889651615d-2*t172*t313*t59*t67*t70*t74 6666 t783 = 1.6345294662811108d+0*t307*t61*t67*t70 6667 t784 = -5.448431554270369d-1*t310*t61*t64*t67 6668 t785 = 2.542601391992839d+0*t160*t161*t162*t64*t67 6669 t786 = 2.2247762179937342d+0*t191*t311*t63*t67 6670 t787 = -1.0594172466636834d-1*t162*t313*t63*t67 6671 t788 = -2.7242157771351844d-1*t166*t320*t61*t63*t65 6672 t789 = 1.0896863108540737d+0*t160*t166*t167*t61*t64*t65 6673 t790 = 1.2713006959964196d+0*t161*t162*t166*t167*t63*t65 6674 t791 = 5.448431554270369d-1*t324*t325*t326*t61*t63 6675 t792 = -2.7242157771351844d-1*t166*t326*t61*t63*t65 6676 t793 = 2.0202568245512253d+0*t311*t330*t59*t70*t72 6677 t794 = -5.772162355860646d-2*t172*t313*t59*t70*t72 6678 t795 = 8.172647331405554d-1*t160*t184*t61*t67*t70 6679 t796 = -2.7242157771351844d-1*t343*t61*t64*t67 6680 t797 = 6.356503479982097d-1*t161*t162*t184*t64*t67 6681 t798 = 6.356503479982097d-1*t160*t161*t162*t64*t67 6682 t799 = -1.3621078885675922d-1*t166*t348*t61*t63*t65 6683 t800 = 2.7242157771351844d-1*t160*t166*t186*t61*t64*t65 6684 t801 = 3.1782517399910487d-1*t161*t162*t166*t186*t63*t65 6685 t802 = 2.7242157771351844d-1*t166*t167*t184*t61*t64*t65 6686 t803 = 3.1782517399910487d-1*t161*t162*t166*t167*t63*t65 6687 t804 = 2.7242157771351844d-1*t167*t186*t324*t325*t61*t63 6688 t805 = -1.3621078885675922d-1*t166*t167*t186*t61*t63*t65 6689 t806 = 1.0d+0*(t157*(3.109069086965489d-2*t1*t58*(-1.3621078 6690 1 885675922d-1*t170*t59*t61*t63*t69*(t805+t804+t803+t802+t8 6691 2 01+t800+t799+t798+t797+t796+t795+t772+t771+t764+t763-1.48 6692 3 42703200784513d-1*t174*t191*t343*t59*t72+7.42135160039225 6693 4 6d-1*t160*t184*t191*t333*t59*t72+6.926594827032773d-1*t16 6694 5 1*t172*t174*t184*t59*t72+6.926594827032773d-1*t160*t161*t 6695 6 172*t174*t59*t72-7.421351600392256d-2*t175*t191*t348*t59* 6696 7 t65*t70-7.421351600392256d-2*t167*t175*t186*t191*t59*t65* 6697 8 t70+3.4632974135163863d-1*t161*t172*t175*t186*t59*t65*t70 6698 9 +3.4632974135163863d-1*t161*t167*t172*t175*t59*t65*t70+2. 6699 : 226405480117677d-1*t167*t186*t191*t324*t334*t59*t70+2.968 6700 ; 5406401569026d-1*t160*t174*t175*t186*t191*t59*t65+2.96854 6701 < 06401569026d-1*t167*t174*t175*t184*t191*t59*t65)+1.362107 6702 = 8885675922d-1*t59*t61*t63*t74*(t805+t804+t803+t802+t801+t 6703 > 800+t799+t798+t797+t796+t795+t764+t763)+t756+t755+t753+t7 6704 ? 52+t750+t749+8.172647331405554d-1*t160*t184*t61*t69*t70*t 6705 @ 74-2.7242157771351844d-1*t343*t61*t64*t69*t74+6.356503479 6706 1 982097d-1*t161*t162*t184*t64*t69*t74+6.356503479982097d-1 6707 2 *t160*t161*t162*t64*t69*t74-3.710675800196128d-2*t174*t19 6708 3 1*t343*t59*t67*t74+1.1132027400588386d-1*t160*t184*t191*t 6709 4 333*t59*t67*t74+8.658243533790967d-2*t161*t172*t174*t184* 6710 5 t59*t67*t74+8.658243533790967d-2*t160*t161*t172*t174*t59* 6711 6 t67*t74-2.7242157771351844d-1*t160*t414*t59*t61*t64*t74-2 6712 7 .7242157771351844d-1*t184*t393*t59*t61*t64*t74-2.72421577 6713 8 71351844d-1*t160*t188*t61*t64*t74-2.7242157771351844d-1*t 6714 9 169*t184*t61*t64*t74+1.3621078885675922d-1*t356*t61*t63*t 6715 : 74-3.1782517399910487d-1*t161*t162*t414*t59*t63*t74-3.178 6716 ; 2517399910487d-1*t161*t162*t393*t59*t63*t74-3.17825173999 6717 < 10487d-1*t161*t162*t188*t63*t74-3.1782517399910487d-1*t16 6718 = 1*t162*t169*t63*t74-8.172647331405554d-1*t160*t170*t184*t 6719 > 192*t59*t61*t69*t70-1.855337900098064d-2*t170*t191*t357*t 6720 ? 59*t67*t70+3.710675800196128d-2*t176*t189*t191*t336*t59*t 6721 @ 67*t70+4.3291217668954834d-2*t161*t170*t172*t189*t59*t67* 6722 1 t70+4.3291217668954834d-2*t161*t170*t172*t176*t59*t67*t70 6723 2 +2.7242157771351844d-1*t160*t170*t415*t59*t61*t64*t69+2.7 6724 3 242157771351844d-1*t170*t184*t395*t59*t61*t64*t69+2.72421 6725 4 57771351844d-1*t170*t192*t343*t59*t61*t64*t69-5.448431554 6726 5 270369d-1*t160*t189*t192*t336*t59*t61*t64*t69-5.448431554 6727 6 270369d-1*t176*t184*t192*t336*t59*t61*t64*t69+2.724215777 6728 7 1351844d-1*t160*t170*t189*t61*t64*t69+2.7242157771351844d 6729 8 -1*t170*t176*t184*t61*t64*t69-6.356503479982097d-1*t161*t 6730 9 162*t170*t184*t192*t59*t64*t69-6.356503479982097d-1*t160* 6731 : t161*t162*t170*t192*t59*t64*t69-8.172647331405554d-1*t176 6732 ; *t189*t192*t587*t59*t61*t63*t69+2.7242157771351844d-1*t17 6733 < 6*t336*t415*t59*t61*t63*t69+2.7242157771351844d-1*t189*t3 6734 = 36*t395*t59*t61*t63*t69+2.7242157771351844d-1*t192*t336*t 6735 > 357*t59*t61*t63*t69-1.3621078885675922d-1*t170*t357*t61*t 6736 ? 63*t69+2.7242157771351844d-1*t176*t189*t336*t61*t63*t69+3 6737 @ .1782517399910487d-1*t161*t162*t170*t415*t59*t63*t69+3.17 6738 1 82517399910487d-1*t161*t162*t170*t395*t59*t63*t69-6.35650 6739 2 3479982097d-1*t161*t162*t189*t192*t336*t59*t63*t69-6.3565 6740 3 03479982097d-1*t161*t162*t176*t192*t336*t59*t63*t69+3.178 6741 4 2517399910487d-1*t161*t162*t170*t189*t63*t69+3.1782517399 6742 5 910487d-1*t161*t162*t170*t176*t63*t69+3.710675800196128d- 6743 6 2*t160*t170*t174*t189*t191*t59*t67+3.710675800196128d-2*t 6744 7 170*t174*t176*t184*t191*t59*t67+2.7242157771351844d-1*t16 6745 8 0*t170*t188*t192*t59*t61*t64+2.7242157771351844d-1*t169*t 6746 9 170*t184*t192*t59*t61*t64-1.3621078885675922d-1*t169*t170 6747 : *t415*t59*t61*t63-1.3621078885675922d-1*t170*t176*t414*t5 6748 ; 9*t61*t63-1.3621078885675922d-1*t170*t188*t395*t59*t61*t6 6749 < 3-1.3621078885675922d-1*t170*t189*t393*t59*t61*t63-1.3621 6750 = 078885675922d-1*t170*t192*t356*t59*t61*t63+2.724215777135 6751 > 1844d-1*t169*t189*t192*t336*t59*t61*t63+2.724215777135184 6752 ? 4d-1*t176*t188*t192*t336*t59*t61*t63-1.3621078885675922d- 6753 @ 1*t169*t170*t189*t61*t63-1.3621078885675922d-1*t170*t176* 6754 1 t188*t61*t63+3.1782517399910487d-1*t161*t162*t170*t188*t1 6755 2 92*t59*t63+3.1782517399910487d-1*t161*t162*t169*t170*t192 6756 3 *t59*t63)*t89+9.327207260896466d-2*t1*t160*t416*t62*t89+9 6757 4 .327207260896466d-2*t1*t184*t396*t62*t89+9.32720726089646 6758 5 6d-2*t1*t193*t343*t62*t89+9.327207260896466d-2*t184*t193* 6759 6 t62*t89+9.327207260896466d-2*t160*t193*t62*t89+3.10906908 6760 7 6965489d-2*t416*t58*t89+3.109069086965489d-2*t396*t58*t89 6761 8 +1.8654414521792934d-1*t1*t160*t184*t193*t57*t89+t748+t74 6762 9 7+9.327207260896466d-2*t1*t155*t184*t193*t62+9.3272072608 6763 : 96466d-2*t1*t155*t160*t193*t62+3.109069086965489d-2*t1*t1 6764 ; 55*t416*t58+3.109069086965489d-2*t1*t155*t396*t58)+t305*( 6765 < -3.109069086965489d-2*t1*t177*t416*t58*t89-3.109069086965 6766 = 489d-2*t1*t190*t396*t58*t89-t193*t359)+6.218138173930978d 6767 > -2*t1*t177*t190*t193*t537*t58*t89)*wght 6768 t807 = 1.2713006959964196d+0*t161*t162*t184*t64*t69*t74 6769 t808 = 1.7316487067581934d-1*t161*t172*t174*t184*t59*t67*t74 6770 t809 = -6.356503479982097d-1*t161*t162*t188*t63*t74 6771 t810 = 6.356503479982097d-1*t161*t162*t170*t189*t63*t69 6772 t811 = 8.658243533790967d-2*t161*t170*t172*t189*t59*t67*t70 6773 t812 = 1.6345294662811108d+0*t160*t184*t61*t67*t70 6774 t813 = -5.448431554270369d-1*t343*t61*t64*t67 6775 t814 = 1.2713006959964196d+0*t161*t162*t184*t64*t67 6776 t815 = -2.7242157771351844d-1*t166*t348*t61*t63*t65 6777 t816 = 5.448431554270369d-1*t160*t166*t186*t61*t64*t65 6778 t817 = 6.356503479982097d-1*t161*t162*t166*t186*t63*t65 6779 t818 = 5.448431554270369d-1*t166*t167*t184*t61*t64*t65 6780 t819 = 5.448431554270369d-1*t167*t186*t324*t325*t61*t63 6781 t820 = -2.7242157771351844d-1*t166*t167*t186*t61*t63*t65 6782 t821 = 1.3853189654065545d+0*t161*t172*t174*t184*t59*t72 6783 t822 = 6.926594827032773d-1*t161*t172*t175*t186*t59*t65*t70 6784 t823 = 8.172647331405554d-1*t368*t61*t67*t70 6785 t824 = -2.7242157771351844d-1*t369*t61*t64*t67 6786 t825 = -1.3621078885675922d-1*t166*t373*t61*t63*t65 6787 t826 = 5.448431554270369d-1*t166*t184*t186*t61*t64*t65 6788 t827 = 2.7242157771351844d-1*t324*t325*t377*t61*t63 6789 t828 = -1.3621078885675922d-1*t166*t377*t61*t63*t65 6790 t829 = 1.0d+0*(t157*(3.109069086965489d-2*t1*t58*(-1.3621078 6791 1 885675922d-1*t170*t59*t61*t63*t69*(t828+t827+t826+t825+t8 6792 2 24+t823+t822+t821+t817+t814+t772+t771+t764+t763-1.4842703 6793 3 200784513d-1*t174*t191*t369*t59*t72+7.421351600392256d-1* 6794 4 t191*t333*t368*t59*t72-7.421351600392256d-2*t175*t191*t37 6795 5 7*t59*t65*t70-7.421351600392256d-2*t175*t191*t373*t59*t65 6796 6 *t70+2.226405480117677d-1*t191*t324*t334*t377*t59*t70+5.9 6797 7 37081280313805d-1*t174*t175*t184*t186*t191*t59*t65)+1.362 6798 8 1078885675922d-1*t59*t61*t63*t74*(t828+t827+t826+t825+t82 6799 9 4+t823+t817+t814+t764+t763)+t811+t810+t809+t808+t807+t756 6800 : +t755+t753+t752+t750+t749+8.172647331405554d-1*t368*t61*t 6801 ; 69*t70*t74-2.7242157771351844d-1*t369*t61*t64*t69*t74-3.7 6802 < 10675800196128d-2*t174*t191*t369*t59*t67*t74+1.1132027400 6803 = 588386d-1*t191*t333*t368*t59*t67*t74-5.448431554270369d-1 6804 > *t184*t414*t59*t61*t64*t74-5.448431554270369d-1*t184*t188 6805 ? *t61*t64*t74+1.3621078885675922d-1*t380*t61*t63*t74-6.356 6806 @ 503479982097d-1*t161*t162*t414*t59*t63*t74-8.172647331405 6807 1 554d-1*t170*t192*t368*t59*t61*t69*t70+3.710675800196128d- 6808 2 2*t191*t336*t382*t59*t67*t70-1.855337900098064d-2*t170*t1 6809 3 91*t381*t59*t67*t70+5.448431554270369d-1*t170*t184*t415*t 6810 4 59*t61*t64*t69+2.7242157771351844d-1*t170*t192*t369*t59*t 6811 5 61*t64*t69-1.0896863108540737d+0*t184*t189*t192*t336*t59* 6812 6 t61*t64*t69+5.448431554270369d-1*t170*t184*t189*t61*t64*t 6813 7 69-1.2713006959964196d+0*t161*t162*t170*t184*t192*t59*t64 6814 8 *t69-8.172647331405554d-1*t192*t382*t587*t59*t61*t63*t69+ 6815 9 5.448431554270369d-1*t189*t336*t415*t59*t61*t63*t69+2.724 6816 : 2157771351844d-1*t192*t336*t381*t59*t61*t63*t69+2.7242157 6817 ; 771351844d-1*t336*t382*t61*t63*t69-1.3621078885675922d-1* 6818 < t170*t381*t61*t63*t69+6.356503479982097d-1*t161*t162*t170 6819 = *t415*t59*t63*t69-1.2713006959964196d+0*t161*t162*t189*t1 6820 > 92*t336*t59*t63*t69+7.421351600392256d-2*t170*t174*t184*t 6821 ? 189*t191*t59*t67+5.448431554270369d-1*t170*t184*t188*t192 6822 @ *t59*t61*t64-2.7242157771351844d-1*t170*t188*t415*t59*t61 6823 1 *t63-2.7242157771351844d-1*t170*t189*t414*t59*t61*t63-1.3 6824 2 621078885675922d-1*t170*t192*t380*t59*t61*t63+5.448431554 6825 3 270369d-1*t188*t189*t192*t336*t59*t61*t63-2.7242157771351 6826 4 844d-1*t170*t188*t189*t61*t63+6.356503479982097d-1*t161*t 6827 5 162*t170*t188*t192*t59*t63)*t89+1.8654414521792934d-1*t1* 6828 6 t184*t416*t62*t89+9.327207260896466d-2*t1*t193*t369*t62*t 6829 7 89+1.8654414521792934d-1*t184*t193*t62*t89+6.218138173930 6830 8 978d-2*t416*t58*t89+1.8654414521792934d-1*t1*t193*t368*t5 6831 9 7*t89+t748+t747+1.8654414521792934d-1*t1*t155*t184*t193*t 6832 : 62+6.218138173930978d-2*t1*t155*t416*t58)+t305*(-6.218138 6833 ; 173930978d-2*t1*t190*t416*t58*t89-t193*t384)+6.2181381739 6834 < 30978d-2*t1*t193*t367*t537*t58*t89)*wght 6835 t830 = 1.6345294662811108d+0*t368*t61*t67*t70 6836 t831 = -5.448431554270369d-1*t369*t61*t64*t67 6837 t832 = 2.542601391992839d+0*t161*t162*t184*t64*t67 6838 t833 = -2.7242157771351844d-1*t166*t373*t61*t63*t65 6839 t834 = 1.0896863108540737d+0*t166*t184*t186*t61*t64*t65 6840 t835 = 1.2713006959964196d+0*t161*t162*t166*t186*t63*t65 6841 t836 = 5.448431554270369d-1*t324*t325*t377*t61*t63 6842 t837 = -2.7242157771351844d-1*t166*t377*t61*t63*t65 6843 t838 = 3.109069086965489d-2*t1*t155*t429*t58 6844 t839 = 3.109069086965489d-2*t429*t58*t89 6845 t840 = -6.356503479982097d-1*t161*t162*t336*t426*t59*t63*t69 6846 t841 = 5.448431554270369d-1*t160*t170*t192*t61*t64*t69 6847 t842 = 6.356503479982097d-1*t161*t162*t170*t192*t63*t69 6848 t843 = 1.1793461818516023d-2*t161*t170*t333*t581*t59*t69*t72 6849 t844 = 7.421351600392256d-2*t160*t170*t174*t191*t192*t59*t67 6850 t845 = 8.658243533790967d-2*t161*t170*t172*t192*t59*t67*t70 6851 t846 = -8.658243533790967d-2*t161*t172*t67*t70*t74 6852 t847 = -1.7316487067581932d-1*t161*t172*t70*t72 6853 t848 = 2.7242157771351844d-1*t393*t61*t63*t74 6854 t849 = -2.7242157771351844d-1*t170*t395*t61*t63*t69 6855 t850 = -3.710675800196128d-2*t170*t191*t395*t59*t67*t70 6856 t851 = -2.7242157771351844d-1*t169*t170*t192*t61*t63 6857 t852 = 5.448431554270369d-1*t176*t192*t336*t61*t63*t69 6858 t853 = 7.421351600392256d-2*t176*t191*t192*t336*t59*t67*t70 6859 t854 = 1.0d+0*(t157*(3.109069086965489d-2*t1*t58*(t853+t852+ 6860 1 t851+t850+t849+t848-1.3621078885675922d-1*t170*t59*t61*t6 6861 2 3*t69*(t847-1.4842703200784513d-1*t160*t174*t191*t72-7.42 6862 3 1351600392256d-2*t167*t175*t191*t65*t70)+t846+t845+t844+t 6863 4 843+t842+t841+t840-7.421351600392256d-2*t160*t174*t191*t6 6864 5 7*t74+1.0108681558728018d-2*t160*t170*t330*t585*t59*t69*t 6865 6 72+1.0108681558728018d-2*t176*t330*t333*t336*t59*t69*t72- 6866 7 5.054340779364009d-3*t169*t170*t330*t333*t59*t72-3.710675 6867 8 800196128d-2*t170*t176*t191*t67*t70-5.448431554270369d-1* 6868 9 t160*t336*t426*t59*t61*t64*t69-8.172647331405554d-1*t176* 6869 : t426*t587*t59*t61*t63*t69+5.448431554270369d-1*t192*t336* 6870 ; t395*t59*t61*t63*t69+2.7242157771351844d-1*t169*t336*t426 6871 < *t59*t61*t63-2.7242157771351844d-1*t170*t192*t393*t59*t61 6872 = *t63)*t89+9.327207260896466d-2*t1*t160*t429*t62*t89+t839+ 6873 > t838)+t305*(-3.109069086965489d-2*t1*t177*t429*t58*t89-3. 6874 ? 109069086965489d-2*t1*t193*t396*t58*t89-t193*t397)+6.2181 6875 @ 38173930978d-2*t1*t177*t425*t537*t58*t89)*wght 6876 t855 = 6.218138173930978d-2*t1*t177*t193*t196*t537*t58*t89 6877 t856 = 3.109069086965489d-2*t1*t155*t431*t58 6878 t857 = 3.109069086965489d-2*t431*t58*t89 6879 t858 = -6.356503479982097d-1*t161*t162*t192*t195*t336*t59*t6 6880 1 3*t69 6881 t859 = 3.1782517399910487d-1*t161*t162*t170*t195*t63*t69 6882 t860 = 2.3586923637032045d-2*t161*t170*t333*t581*t59*t69*t72 6883 t861 = 4.3291217668954834d-2*t161*t170*t172*t195*t59*t67*t70 6884 t862 = -1.7316487067581934d-1*t161*t172*t67*t70*t74 6885 t863 = -3.4632974135163863d-1*t161*t172*t70*t72 6886 t864 = t157*(3.109069086965489d-2*t1*t58*(-1.362107888567592 6887 1 2d-1*t170*t59*t61*t63*t69*(t863-2.9685406401569026d-1*t16 6888 2 0*t174*t191*t72-1.4842703200784513d-1*t167*t175*t191*t65* 6889 3 t70)+t862+t861+t860+t859+t858+t853+t852+t851+t850+t849+t8 6890 4 48+t845+t844+t842+t841-1.4842703200784513d-1*t160*t174*t1 6891 5 91*t67*t74+1.3621078885675922d-1*t407*t61*t63*t74+2.02173 6892 6 63117456036d-2*t160*t170*t330*t585*t59*t69*t72+2.02173631 6893 7 17456036d-2*t176*t330*t333*t336*t59*t69*t72-1.01086815587 6894 8 28018d-2*t169*t170*t330*t333*t59*t72-1.855337900098064d-2 6895 9 *t170*t191*t409*t59*t67*t70+3.710675800196128d-2*t176*t19 6896 : 1*t195*t336*t59*t67*t70-7.421351600392256d-2*t170*t176*t1 6897 ; 91*t67*t70-5.448431554270369d-1*t160*t192*t195*t336*t59*t 6898 < 61*t64*t69+2.7242157771351844d-1*t160*t170*t195*t61*t64*t 6899 = 69-8.172647331405554d-1*t176*t192*t195*t587*t59*t61*t63*t 6900 > 69+2.7242157771351844d-1*t192*t336*t409*t59*t61*t63*t69+2 6901 ? .7242157771351844d-1*t195*t336*t395*t59*t61*t63*t69-1.362 6902 @ 1078885675922d-1*t170*t409*t61*t63*t69+2.7242157771351844 6903 1 d-1*t176*t195*t336*t61*t63*t69+3.710675800196128d-2*t160* 6904 2 t170*t174*t191*t195*t59*t67-1.3621078885675922d-1*t170*t1 6905 3 92*t407*t59*t61*t63-1.3621078885675922d-1*t170*t195*t393* 6906 4 t59*t61*t63+2.7242157771351844d-1*t169*t192*t195*t336*t59 6907 5 *t61*t63-1.3621078885675922d-1*t169*t170*t195*t61*t63)*t8 6908 6 9+9.327207260896466d-2*t1*t160*t431*t62*t89+t857+t856) 6909 t865 = -3.109069086965489d-2*t1*t177*t431*t58*t89 6910 t866 = 3.109069086965489d-2*t1*t155*t435*t58 6911 t867 = 3.109069086965489d-2*t435*t58*t89 6912 t868 = -6.356503479982097d-1*t161*t162*t336*t434*t59*t63*t69 6913 t869 = 1.2713006959964196d+0*t161*t162*t170*t195*t63*t69 6914 t870 = 4.717384727406409d-2*t161*t170*t333*t581*t59*t69*t72 6915 t871 = 1.7316487067581934d-1*t161*t170*t172*t195*t59*t67*t70 6916 t872 = -3.463297413516387d-1*t161*t172*t67*t70*t74 6917 t873 = -6.926594827032773d-1*t161*t172*t70*t72 6918 t874 = 5.448431554270369d-1*t170*t184*t192*t61*t64*t69 6919 t875 = 7.421351600392256d-2*t170*t174*t184*t191*t192*t59*t67 6920 t876 = 2.7242157771351844d-1*t414*t61*t63*t74 6921 t877 = -2.7242157771351844d-1*t170*t415*t61*t63*t69 6922 t878 = -3.710675800196128d-2*t170*t191*t415*t59*t67*t70 6923 t879 = -2.7242157771351844d-1*t170*t188*t192*t61*t63 6924 t880 = 5.448431554270369d-1*t189*t192*t336*t61*t63*t69 6925 t881 = 7.421351600392256d-2*t189*t191*t192*t336*t59*t67*t70 6926 t882 = 1.0d+0*(t157*(3.109069086965489d-2*t1*t58*(t881+t880+ 6927 1 t879+t878+t877+t876+t875+t874-1.3621078885675922d-1*t170* 6928 2 t59*t61*t63*t69*(t847-1.4842703200784513d-1*t174*t184*t19 6929 3 1*t72-7.421351600392256d-2*t175*t186*t191*t65*t70)+t846+t 6930 4 845+t843+t842+t840-7.421351600392256d-2*t174*t184*t191*t6 6931 5 7*t74+1.0108681558728018d-2*t170*t184*t330*t585*t59*t69*t 6932 6 72+1.0108681558728018d-2*t189*t330*t333*t336*t59*t69*t72- 6933 7 5.054340779364009d-3*t170*t188*t330*t333*t59*t72-3.710675 6934 8 800196128d-2*t170*t189*t191*t67*t70-5.448431554270369d-1* 6935 9 t184*t336*t426*t59*t61*t64*t69-8.172647331405554d-1*t189* 6936 : t426*t587*t59*t61*t63*t69+5.448431554270369d-1*t192*t336* 6937 ; t415*t59*t61*t63*t69+2.7242157771351844d-1*t188*t336*t426 6938 < *t59*t61*t63-2.7242157771351844d-1*t170*t192*t414*t59*t61 6939 = *t63)*t89+9.327207260896466d-2*t1*t184*t429*t62*t89+t839+ 6940 > t838)+t305*(-3.109069086965489d-2*t1*t190*t429*t58*t89-3. 6941 ? 109069086965489d-2*t1*t193*t416*t58*t89-t193*t417)+6.2181 6942 @ 38173930978d-2*t1*t190*t425*t537*t58*t89)*wght 6943 t883 = 6.218138173930978d-2*t1*t190*t193*t196*t537*t58*t89 6944 t884 = t157*(3.109069086965489d-2*t1*t58*(t881+t880+t879+t87 6945 1 8+t877+t876+t875+t874-1.3621078885675922d-1*t170*t59*t61* 6946 2 t63*t69*(t863-2.9685406401569026d-1*t174*t184*t191*t72-1. 6947 3 4842703200784513d-1*t175*t186*t191*t65*t70)+t862+t861+t86 6948 4 0+t859+t858+t845+t842-1.4842703200784513d-1*t174*t184*t19 6949 5 1*t67*t74+1.3621078885675922d-1*t421*t61*t63*t74+2.021736 6950 6 3117456036d-2*t170*t184*t330*t585*t59*t69*t72+2.021736311 6951 7 7456036d-2*t189*t330*t333*t336*t59*t69*t72-1.010868155872 6952 8 8018d-2*t170*t188*t330*t333*t59*t72-1.855337900098064d-2* 6953 9 t170*t191*t422*t59*t67*t70+3.710675800196128d-2*t189*t191 6954 : *t195*t336*t59*t67*t70-7.421351600392256d-2*t170*t189*t19 6955 ; 1*t67*t70-5.448431554270369d-1*t184*t192*t195*t336*t59*t6 6956 < 1*t64*t69+2.7242157771351844d-1*t170*t184*t195*t61*t64*t6 6957 = 9-8.172647331405554d-1*t189*t192*t195*t587*t59*t61*t63*t6 6958 > 9+2.7242157771351844d-1*t192*t336*t422*t59*t61*t63*t69+2. 6959 ? 7242157771351844d-1*t195*t336*t415*t59*t61*t63*t69-1.3621 6960 @ 078885675922d-1*t170*t422*t61*t63*t69+2.7242157771351844d 6961 1 -1*t189*t195*t336*t61*t63*t69+3.710675800196128d-2*t170*t 6962 2 174*t184*t191*t195*t59*t67-1.3621078885675922d-1*t170*t19 6963 3 2*t421*t59*t61*t63-1.3621078885675922d-1*t170*t195*t414*t 6964 4 59*t61*t63+2.7242157771351844d-1*t188*t192*t195*t336*t59* 6965 5 t61*t63-1.3621078885675922d-1*t170*t188*t195*t61*t63)*t89 6966 6 +9.327207260896466d-2*t1*t184*t431*t62*t89+t857+t856) 6967 t885 = -3.109069086965489d-2*t1*t190*t431*t58*t89 6968 t886 = 1/t60**8.0d+0 6969 t887 = 1/t57**8.0d+0 6970 t888 = 3.109069086965489d-2*t1*t157*t58*(-2.0653672341241763 6971 1 d-3*t170*t175*t59*t886*t887+3.0326044676184055d-2*t192*t3 6972 2 30*t333*t336*t59*t69*t72-1.5163022338092028d-2*t170*t330* 6973 3 t333*t69*t72+1.1132027400588385d-1*t191*t336*t426*t59*t67 6974 4 *t70-1.1132027400588385d-1*t170*t191*t192*t67*t70-8.17264 6975 5 7331405554d-1*t192**3*t587*t59*t61*t63*t69+8.172647331405 6976 6 554d-1*t336*t426*t61*t63*t69)*t89*wght+6.218138173930978d 6977 7 -2*t1*t193**3*t537*t58*t89*wght-9.327207260896466d-2*t1*t 6978 8 193*t305*t429*t58*t89*wght 6979 t889 = 4.043472623491207d-2*t192*t330*t333*t336*t59*t69*t72 6980 t890 = -1.4842703200784513d-1*t170*t191*t192*t67*t70 6981 t891 = t305*(-6.218138173930978d-2*t1*t193*t431*t58*t89*wght 6982 1 -3.109069086965489d-2*t1*t196*t429*t58*t89*wght)+3.109069 6983 2 086965489d-2*t1*t157*t58*t89*(t890+t889-4.130734468248352 6984 3 7d-3*t170*t175*t59*t886*t887+1.0108681558728018d-2*t195*t 6985 4 330*t333*t336*t59*t69*t72-3.0326044676184055d-2*t170*t330 6986 5 *t333*t69*t72+7.421351600392256d-2*t191*t336*t426*t59*t67 6987 6 *t70+7.421351600392256d-2*t191*t192*t195*t336*t59*t67*t70 6988 7 -3.710675800196128d-2*t170*t191*t195*t67*t70-8.1726473314 6989 8 05554d-1*t195*t426*t587*t59*t61*t63*t69+5.448431554270369 6990 9 d-1*t336*t426*t61*t63*t69+5.448431554270369d-1*t192*t195* 6991 : t336*t61*t63*t69)*wght+6.218138173930978d-2*t1*t196*t425* 6992 ; t537*t58*t89*wght 6993 t892 = t305*(-3.109069086965489d-2*t1*t193*t435*t58*t89*wght 6994 1 -6.218138173930978d-2*t1*t196*t431*t58*t89*wght)+3.109069 6995 2 086965489d-2*t1*t157*t58*t89*(t890+t889-8.261468936496705 6996 3 d-3*t170*t175*t59*t886*t887+4.043472623491207d-2*t195*t33 6997 4 0*t333*t336*t59*t69*t72-6.065208935236811d-2*t170*t330*t3 6998 5 33*t69*t72+3.710675800196128d-2*t191*t336*t434*t59*t67*t7 6999 6 0+1.4842703200784513d-1*t191*t192*t195*t336*t59*t67*t70-1 7000 7 .4842703200784513d-1*t170*t191*t195*t67*t70-8.17264733140 7001 8 5554d-1*t192*t434*t587*t59*t61*t63*t69+2.7242157771351844 7002 9 d-1*t336*t434*t61*t63*t69+1.0896863108540737d+0*t192*t195 7003 : *t336*t61*t63*t69)*wght+6.218138173930978d-2*t1*t193*t433 7004 ; *t537*t58*t89*wght 7005 t893 = 1/t41**5 7006 t894 = 1.0d+0*t1*t38*(t40*t42*(t40*t42*(1.9141560001254607d+ 7007 1 1*t222*t40*t90*t99+t40*t42*(1.9141560001254607d+1*t222*t4 7008 2 0*t90*t98+t40*t42*(1.9141560001254607d+1*t222*t40*t90*t97 7009 3 +t40*t42*(1.9141560001254607d+1*t222*t40*t90*t96+t40*t42* 7010 4 (1.9141560001254607d+1*t222*t40*t90*t95+t40*t42*(1.914156 7011 5 0001254607d+1*t222*t40*t90*t94+t40*t42*(1.914156000125460 7012 6 7d+1*t222*t40*t90*t93+t40*t42*(1.9141560001254607d+1*t222 7013 7 *t40*t90*t92-t225*t40*t91-3.190260000209101d+0*t197*t224* 7014 8 t40*t91-4.579991491020378d+1*t197*t221*t91-9.159982982040 7015 9 756d+1*t221*t43*t436*t893-1.3739974473061137d+2*t221*t40* 7016 : t437*t44+6.380520000418202d+0*t222*t224*t40*t44+4.5799914 7017 ; 91020378d+1*t221*t222*t44+t40*t42*(-1.3739974473061137d+2 7018 < *t221*t40*t43*t437+6.380520000418202d+0*t222*t224*t40*t43 7019 = +4.579991491020378d+1*t221*t222*t43)+9.159982982040756d+1 7020 > *t221*t40*t43*t437-t225*t42+3.190260000209101d+0*t197*t22 7021 ? 4*t42+4.579991491020378d+1*t197*t221*t222*t40)-9.57078000 7022 @ 0627304d+0*t40*t438*t90*t91-t226*t40*t91-3.19026000020910 7023 1 1d+0*t198*t224*t40*t91-4.579991491020378d+1*t198*t221*t91 7024 2 +9.570780000627304d+0*t42*t438*t90-1.3739974473061137d+2* 7025 3 t221*t40*t437*t45+6.380520000418202d+0*t222*t224*t40*t45+ 7026 4 4.579991491020378d+1*t221*t222*t45-t226*t42+3.19026000020 7027 5 9101d+0*t198*t224*t42+4.579991491020378d+1*t198*t221*t222 7028 6 *t40)-9.570780000627304d+0*t40*t439*t90*t91-t227*t40*t91- 7029 7 3.190260000209101d+0*t199*t224*t40*t91-4.579991491020378d 7030 8 +1*t199*t221*t91+9.570780000627304d+0*t42*t439*t90-1.3739 7031 9 974473061137d+2*t221*t40*t437*t46+6.380520000418202d+0*t2 7032 : 22*t224*t40*t46+4.579991491020378d+1*t221*t222*t46-t227*t 7033 ; 42+3.190260000209101d+0*t199*t224*t42+4.579991491020378d+ 7034 < 1*t199*t221*t222*t40)-9.570780000627304d+0*t40*t440*t90*t 7035 = 91-t228*t40*t91-3.190260000209101d+0*t200*t224*t40*t91-4. 7036 > 579991491020378d+1*t200*t221*t91+9.570780000627304d+0*t42 7037 ? *t440*t90-1.3739974473061137d+2*t221*t40*t437*t47+6.38052 7038 @ 0000418202d+0*t222*t224*t40*t47+4.579991491020378d+1*t221 7039 1 *t222*t47-t228*t42+3.190260000209101d+0*t200*t224*t42+4.5 7040 2 79991491020378d+1*t200*t221*t222*t40)-9.570780000627304d+ 7041 3 0*t40*t441*t90*t91-t229*t40*t91-3.190260000209101d+0*t201 7042 4 *t224*t40*t91-4.579991491020378d+1*t201*t221*t91+9.570780 7043 5 000627304d+0*t42*t441*t90-1.3739974473061137d+2*t221*t40* 7044 6 t437*t48+6.380520000418202d+0*t222*t224*t40*t48+4.5799914 7045 7 91020378d+1*t221*t222*t48-t229*t42+3.190260000209101d+0*t 7046 8 201*t224*t42+4.579991491020378d+1*t201*t221*t222*t40)-9.5 7047 9 70780000627304d+0*t40*t442*t90*t91-t230*t40*t91-3.1902600 7048 : 00209101d+0*t202*t224*t40*t91-4.579991491020378d+1*t202*t 7049 ; 221*t91+9.570780000627304d+0*t42*t442*t90-1.3739974473061 7050 < 137d+2*t221*t40*t437*t49+6.380520000418202d+0*t222*t224*t 7051 = 40*t49+4.579991491020378d+1*t221*t222*t49-t230*t42+3.1902 7052 > 60000209101d+0*t202*t224*t42+4.579991491020378d+1*t202*t2 7053 ? 21*t222*t40)-9.570780000627304d+0*t40*t443*t90*t91-t231*t 7054 @ 40*t91-3.190260000209101d+0*t203*t224*t40*t91-4.579991491 7055 1 020378d+1*t203*t221*t91+9.570780000627304d+0*t42*t443*t90 7056 2 -1.3739974473061137d+2*t221*t40*t437*t50+6.38052000041820 7057 3 2d+0*t222*t224*t40*t50+4.579991491020378d+1*t221*t222*t50 7058 4 -t231*t42+3.190260000209101d+0*t203*t224*t42+4.5799914910 7059 5 20378d+1*t203*t221*t222*t40)-9.570780000627304d+0*t40*t44 7060 6 4*t90*t91-t232*t40*t91-3.190260000209101d+0*t204*t224*t40 7061 7 *t91-4.579991491020378d+1*t204*t221*t91+9.570780000627304 7062 8 d+0*t42*t444*t90-1.3739974473061137d+2*t221*t40*t437*t51+ 7063 9 6.380520000418202d+0*t222*t224*t40*t51+4.579991491020378d 7064 : +1*t221*t222*t51-t232*t42+3.190260000209101d+0*t204*t224* 7065 ; t42+4.579991491020378d+1*t204*t221*t222*t40)-9.5707800006 7066 < 27304d+0*t40*t445*t90*t91-t233*t40*t91-3.190260000209101d 7067 = +0*t205*t224*t40*t91-4.579991491020378d+1*t205*t221*t91+9 7068 > .570780000627304d+0*t42*t445*t90+1.9141560001254607d+1*t1 7069 ? 00*t222*t40*t90-1.3739974473061137d+2*t221*t40*t437*t52+6 7070 @ .380520000418202d+0*t222*t224*t40*t52+4.579991491020378d+ 7071 1 1*t221*t222*t52-t233*t42+3.190260000209101d+0*t205*t224*t 7072 2 42+4.579991491020378d+1*t205*t221*t222*t40)-9.57078000062 7073 3 7304d+0*t40*t446*t90*t91-t234*t40*t91-3.190260000209101d+ 7074 4 0*t206*t224*t40*t91-4.579991491020378d+1*t206*t221*t91+9. 7075 5 570780000627304d+0*t42*t446*t90+1.9141560001254607d+1*t10 7076 6 1*t222*t40*t90-1.3739974473061137d+2*t221*t40*t437*t53+6. 7077 7 380520000418202d+0*t222*t224*t40*t53+4.579991491020378d+1 7078 8 *t221*t222*t53-t234*t42+3.190260000209101d+0*t206*t224*t4 7079 9 2+4.579991491020378d+1*t206*t221*t222*t40) 7080 t895 = 2.0d+0*t38*t447 7081 t896 = 3.109069086965489d-2*t1*t58*t76*(t40*t42*(t40*t42*(t4 7082 1 0*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t 7083 2 42*(-t292*t40*t91-3.190260000209101d+0*t208*t224*t40*t91- 7084 3 4.579991491020378d+1*t208*t221*t91+1.9141560001254607d+1* 7085 4 t145*t222*t40*t90-9.159982982040756d+1*t221*t436*t78*t893 7086 5 -1.3739974473061137d+2*t221*t40*t437*t79+6.38052000041820 7087 6 2d+0*t222*t224*t40*t79+4.579991491020378d+1*t221*t222*t79 7088 7 +t40*t42*(-1.3739974473061137d+2*t221*t40*t437*t78+6.3805 7089 8 20000418202d+0*t222*t224*t40*t78+4.579991491020378d+1*t22 7090 9 1*t222*t78)+9.159982982040756d+1*t221*t40*t437*t78-t292*t 7091 : 42+3.190260000209101d+0*t208*t224*t42+4.579991491020378d+ 7092 ; 1*t208*t221*t222*t40)-9.570780000627304d+0*t40*t450*t90*t 7093 < 91-t293*t40*t91-3.190260000209101d+0*t209*t224*t40*t91-4. 7094 = 579991491020378d+1*t209*t221*t91+9.570780000627304d+0*t42 7095 > *t450*t90+1.9141560001254607d+1*t146*t222*t40*t90-1.37399 7096 ? 74473061137d+2*t221*t40*t437*t80+6.380520000418202d+0*t22 7097 @ 2*t224*t40*t80+4.579991491020378d+1*t221*t222*t80-t293*t4 7098 1 2+3.190260000209101d+0*t209*t224*t42+4.579991491020378d+1 7099 2 *t209*t221*t222*t40)-9.570780000627304d+0*t40*t451*t90*t9 7100 3 1-t294*t40*t91-3.190260000209101d+0*t210*t224*t40*t91-4.5 7101 4 79991491020378d+1*t210*t221*t91+9.570780000627304d+0*t42* 7102 5 t451*t90+1.9141560001254607d+1*t147*t222*t40*t90-1.373997 7103 6 4473061137d+2*t221*t40*t437*t81+6.380520000418202d+0*t222 7104 7 *t224*t40*t81+4.579991491020378d+1*t221*t222*t81-t294*t42 7105 8 +3.190260000209101d+0*t210*t224*t42+4.579991491020378d+1* 7106 9 t210*t221*t222*t40)-9.570780000627304d+0*t40*t452*t90*t91 7107 : -t295*t40*t91-3.190260000209101d+0*t211*t224*t40*t91-4.57 7108 ; 9991491020378d+1*t211*t221*t91+9.570780000627304d+0*t42*t 7109 < 452*t90+1.9141560001254607d+1*t148*t222*t40*t90-1.3739974 7110 = 473061137d+2*t221*t40*t437*t82+6.380520000418202d+0*t222* 7111 > t224*t40*t82+4.579991491020378d+1*t221*t222*t82-t295*t42+ 7112 ? 3.190260000209101d+0*t211*t224*t42+4.579991491020378d+1*t 7113 @ 211*t221*t222*t40)-9.570780000627304d+0*t40*t453*t90*t91- 7114 1 t296*t40*t91-3.190260000209101d+0*t212*t224*t40*t91-4.579 7115 2 991491020378d+1*t212*t221*t91+9.570780000627304d+0*t42*t4 7116 3 53*t90+1.9141560001254607d+1*t149*t222*t40*t90-1.37399744 7117 4 73061137d+2*t221*t40*t437*t83+6.380520000418202d+0*t222*t 7118 5 224*t40*t83+4.579991491020378d+1*t221*t222*t83-t296*t42+3 7119 6 .190260000209101d+0*t212*t224*t42+4.579991491020378d+1*t2 7120 7 12*t221*t222*t40)-9.570780000627304d+0*t40*t454*t90*t91-t 7121 8 297*t40*t91-3.190260000209101d+0*t213*t224*t40*t91-4.5799 7122 9 91491020378d+1*t213*t221*t91+9.570780000627304d+0*t42*t45 7123 : 4*t90+1.9141560001254607d+1*t150*t222*t40*t90-1.373997447 7124 ; 3061137d+2*t221*t40*t437*t84+6.380520000418202d+0*t222*t2 7125 < 24*t40*t84+4.579991491020378d+1*t221*t222*t84-t297*t42+3. 7126 = 190260000209101d+0*t213*t224*t42+4.579991491020378d+1*t21 7127 > 3*t221*t222*t40)-9.570780000627304d+0*t40*t455*t90*t91-t2 7128 ? 98*t40*t91-3.190260000209101d+0*t214*t224*t40*t91-4.57999 7129 @ 1491020378d+1*t214*t221*t91+9.570780000627304d+0*t42*t455 7130 1 *t90+1.9141560001254607d+1*t151*t222*t40*t90-1.3739974473 7131 2 061137d+2*t221*t40*t437*t85+6.380520000418202d+0*t222*t22 7132 3 4*t40*t85+4.579991491020378d+1*t221*t222*t85-t298*t42+3.1 7133 4 90260000209101d+0*t214*t224*t42+4.579991491020378d+1*t214 7134 5 *t221*t222*t40)-9.570780000627304d+0*t40*t456*t90*t91-t29 7135 6 9*t40*t91-3.190260000209101d+0*t215*t224*t40*t91-4.579991 7136 7 491020378d+1*t215*t221*t91+9.570780000627304d+0*t42*t456* 7137 8 t90+1.9141560001254607d+1*t152*t222*t40*t90-1.37399744730 7138 9 61137d+2*t221*t40*t437*t86+6.380520000418202d+0*t222*t224 7139 : *t40*t86+4.579991491020378d+1*t221*t222*t86-t299*t42+3.19 7140 ; 0260000209101d+0*t215*t224*t42+4.579991491020378d+1*t215* 7141 < t221*t222*t40)-9.570780000627304d+0*t40*t457*t90*t91-t300 7142 = *t40*t91-3.190260000209101d+0*t216*t224*t40*t91-4.5799914 7143 > 91020378d+1*t216*t221*t91+9.570780000627304d+0*t42*t457*t 7144 ? 90+1.9141560001254607d+1*t153*t222*t40*t90-1.373997447306 7145 @ 1137d+2*t221*t40*t437*t87+6.380520000418202d+0*t222*t224* 7146 1 t40*t87+4.579991491020378d+1*t221*t222*t87-t300*t42+3.190 7147 2 260000209101d+0*t216*t224*t42+4.579991491020378d+1*t216*t 7148 3 221*t222*t40)-9.570780000627304d+0*t40*t458*t90*t91-t301* 7149 4 t40*t91-3.190260000209101d+0*t217*t224*t40*t91-4.57999149 7150 5 1020378d+1*t217*t221*t91+9.570780000627304d+0*t42*t458*t9 7151 6 0+1.9141560001254607d+1*t154*t222*t40*t90-1.3739974473061 7152 7 137d+2*t221*t40*t437*t88+6.380520000418202d+0*t222*t224*t 7153 8 40*t88+4.579991491020378d+1*t221*t222*t88-t301*t42+3.1902 7154 9 60000209101d+0*t217*t224*t42+4.579991491020378d+1*t217*t2 7155 : 21*t222*t40) 7156 t897 = 6.218138173930978d-2*t459*t58*t76 7157 t898 = 1.0d+0*(t897+t896+t895+t894+1.8654414521792934d-1*t1* 7158 1 t160*t459*t62*t76+9.327207260896466d-2*t1*t219*t310*t62*t 7159 2 76+1.8654414521792934d-1*t160*t219*t62*t76+1.865441452179 7160 3 2934d-1*t1*t219*t307*t57*t76+t157*(1.8654414521792934d-1* 7161 4 t1*t160*t177*t219*t62+6.218138173930978d-2*t1*t177*t459*t 7162 5 58+3.109069086965489d-2*t1*t219*t338*t58+6.21813817393097 7163 6 8d-2*t177*t219*t58)-3.109069086965489d-2*t1*t219*t305*t30 7164 7 6*t58+2.0d+0*t1*t143*t447+1.0d+0*t1*t207*t291+2.0d+0*t143 7165 8 *t207)*wght 7166 t899 = 1.0d+0*(t897+t896+t895+t894+9.327207260896466d-2*t1*t 7167 1 184*t459*t62*t76+9.327207260896466d-2*t1*t160*t459*t62*t7 7168 2 6+9.327207260896466d-2*t1*t219*t343*t62*t76+9.32720726089 7169 3 6466d-2*t184*t219*t62*t76+9.327207260896466d-2*t160*t219* 7170 4 t62*t76+1.8654414521792934d-1*t1*t160*t184*t219*t57*t76+t 7171 5 157*(9.327207260896466d-2*t1*t160*t190*t219*t62+9.3272072 7172 6 60896466d-2*t1*t177*t184*t219*t62+3.109069086965489d-2*t1 7173 7 *t190*t459*t58+3.109069086965489d-2*t1*t177*t459*t58+3.10 7174 8 9069086965489d-2*t1*t219*t358*t58+3.109069086965489d-2*t1 7175 9 90*t219*t58+3.109069086965489d-2*t177*t219*t58)-3.1090690 7176 : 86965489d-2*t1*t177*t190*t219*t305*t58+1.0d+0*t1*t183*t44 7177 ; 7+1.0d+0*t1*t143*t447+1.0d+0*t1*t207*t342+1.0d+0*t183*t20 7178 < 7+1.0d+0*t143*t207)*wght 7179 t900 = 1.0d+0*(t897+t896+t895+t894+1.8654414521792934d-1*t1* 7180 1 t184*t459*t62*t76+9.327207260896466d-2*t1*t219*t369*t62*t 7181 2 76+1.8654414521792934d-1*t184*t219*t62*t76+1.865441452179 7182 3 2934d-1*t1*t219*t368*t57*t76+t157*(1.8654414521792934d-1* 7183 4 t1*t184*t190*t219*t62+6.218138173930978d-2*t1*t190*t459*t 7184 5 58+3.109069086965489d-2*t1*t219*t383*t58+6.21813817393097 7185 6 8d-2*t190*t219*t58)-3.109069086965489d-2*t1*t219*t305*t36 7186 7 7*t58+2.0d+0*t1*t183*t447+1.0d+0*t1*t207*t366+2.0d+0*t183 7187 8 *t207)*wght 7188 t901 = 3.109069086965489d-2*t1*t193*t459*t58 7189 t902 = 3.109069086965489d-2*t193*t219*t58 7190 t903 = 1.0d+0*(t157*(t902+t901+9.327207260896466d-2*t1*t160* 7191 1 t193*t219*t62+3.109069086965489d-2*t1*t219*t396*t58)-3.10 7192 2 9069086965489d-2*t1*t177*t193*t219*t305*t58)*wght 7193 t904 = 3.109069086965489d-2*t1*t196*t459*t58 7194 t905 = 3.109069086965489d-2*t196*t219*t58 7195 t906 = 1.0d+0*(t157*(t905+t904+9.327207260896466d-2*t1*t160* 7196 1 t196*t219*t62+3.109069086965489d-2*t1*t219*t410*t58)-3.10 7197 2 9069086965489d-2*t1*t177*t196*t219*t305*t58)*wght 7198 t907 = 1.0d+0*(t157*(t902+t901+9.327207260896466d-2*t1*t184* 7199 1 t193*t219*t62+3.109069086965489d-2*t1*t219*t416*t58)-3.10 7200 2 9069086965489d-2*t1*t190*t193*t219*t305*t58)*wght 7201 t908 = 1.0d+0*(t157*(t905+t904+9.327207260896466d-2*t1*t184* 7202 1 t196*t219*t62+3.109069086965489d-2*t1*t219*t423*t58)-3.10 7203 2 9069086965489d-2*t1*t190*t196*t219*t305*t58)*wght 7204 t909 = 3.109069086965489d-2*t1*t157*t219*t429*t58*wght-3.109 7205 1 069086965489d-2*t1*t219*t305*t425*t58*wght 7206 t910 = 3.109069086965489d-2*t1*t157*t219*t431*t58*wght-3.109 7207 1 069086965489d-2*t1*t193*t196*t219*t305*t58*wght 7208 t911 = 3.109069086965489d-2*t1*t157*t219*t435*t58*wght-3.109 7209 1 069086965489d-2*t1*t219*t305*t433*t58*wght 7210 t912 = t42*(2*t40*t87*t91+2*t42*t87+t40*t486-2*t216*t40*t42) 7211 1 +(2*t40*t42*t87+2*t77-2*t217*t40)*t91+t487 7212 t913 = 3.109069086965489d-2*t1*t157*t193*t58*t912*wght 7213 t914 = 3.109069086965489d-2*t1*t157*t196*t58*t912*wght 7214 t915 = 1.0d+0*(3.109069086965489d-2*t1*t58*t76*(t40*t42*(t40 7215 1 *t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t4 7216 2 2*(t40*t42*(-3*t40*t477*t91+6*t208*t91-6*t40*t437*t79-6*t 7217 3 222*t79+t40*t42*(-6*t40*t437*t78-6*t222*t78)-3*t42*t477+6 7218 4 *t208*t222*t40)-3*t40*t478*t91+6*t209*t91-6*t40*t437*t80- 7219 5 6*t222*t80-3*t42*t478+6*t209*t222*t40)-3*t40*t479*t91+6*t 7220 6 210*t91-6*t40*t437*t81-6*t222*t81-3*t42*t479+6*t210*t222* 7221 7 t40)-3*t40*t480*t91+6*t211*t91-6*t40*t437*t82-6*t222*t82- 7222 8 3*t42*t480+6*t211*t222*t40)-3*t40*t481*t91+6*t212*t91-6*t 7223 9 40*t437*t83-6*t222*t83-3*t42*t481+6*t212*t222*t40)-3*t40* 7224 : t482*t91+6*t213*t91-6*t40*t437*t84-6*t222*t84-3*t42*t482+ 7225 ; 6*t213*t222*t40)-3*t40*t483*t91+6*t214*t91-6*t40*t437*t85 7226 < -6*t222*t85-3*t42*t483+6*t214*t222*t40)-3*t40*t484*t91+6* 7227 = t215*t91-6*t40*t437*t86-6*t222*t86-3*t42*t484+6*t215*t222 7228 > *t40)-3*t40*t485*t91+6*t216*t91-6*t40*t437*t87-6*t222*t87 7229 ? -3*t42*t485+6*t216*t222*t40)-3*t40*t486*t91+6*t217*t91-6* 7230 @ t40*t437*t88-6*t222*t88-3*t42*t486+6*t217*t222*t40)+1.0d+ 7231 1 0*t1*t38*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t40*t42*(t4 7232 2 0*t42*(t40*t42*(t40*t42*(t40*t42*(-3*t40*t467*t91+6*t197* 7233 3 t91-3*t42*t467-6*t40*t437*t44-6*t222*t44+t40*t42*(-6*t40* 7234 4 t43*t437-6*t222*t43)+6*t197*t222*t40)-3*t40*t468*t91+6*t1 7235 5 98*t91-3*t42*t468-6*t40*t437*t45-6*t222*t45+6*t198*t222*t 7236 6 40)-3*t40*t469*t91+6*t199*t91-3*t42*t469-6*t40*t437*t46-6 7237 7 *t222*t46+6*t199*t222*t40)-3*t40*t470*t91+6*t200*t91-3*t4 7238 8 2*t470-6*t40*t437*t47-6*t222*t47+6*t200*t222*t40)-3*t40*t 7239 9 471*t91+6*t201*t91-6*t40*t437*t48-6*t222*t48-3*t42*t471+6 7240 : *t201*t222*t40)-3*t40*t472*t91+6*t202*t91-6*t40*t437*t49- 7241 ; 6*t222*t49-3*t42*t472+6*t202*t222*t40)-3*t40*t473*t91+6*t 7242 < 203*t91-6*t40*t437*t50-6*t222*t50-3*t42*t473+6*t203*t222* 7243 = t40)-3*t40*t474*t91+6*t204*t91-6*t40*t437*t51-6*t222*t51- 7244 > 3*t42*t474+6*t204*t222*t40)-3*t40*t475*t91+6*t205*t91-6*t 7245 ? 40*t437*t52-6*t222*t52-3*t42*t475+6*t205*t222*t40)-3*t40* 7246 @ t476*t91+6*t206*t91-6*t40*t437*t53-6*t222*t53-3*t42*t476+ 7247 1 6*t206*t222*t40))*wght 7248 fnc(iq) = 1.0d+0*(3.109069086965489d-2*t1*t58*t76*t89+1.0d+0 7249 1 *t1*t38*t54)*wght+fnc(iq) 7250 Amat(iq,D1_RA) = 1.0d+0*(9.327207260896466d-2*t1*t160*t62*t7 7251 1 6*t89+3.109069086965489d-2*t1*t157*t177*t58*t89+1.0d+0*t1 7252 2 *t143*t54+t178+t156+t144+t103)*wght+Amat(iq,D1_RA) 7253 Amat(iq,D1_RB) = 1.0d+0*(9.327207260896466d-2*t1*t184*t62*t7 7254 1 6*t89+3.109069086965489d-2*t1*t157*t190*t58*t89+1.0d+0*t1 7255 2 *t183*t54+t178+t156+t144+t103)*wght+Amat(iq,D1_RB) 7256 Cmat(iq,D1_GAA) = t194+Cmat(iq,D1_GAA) 7257 Cmat(iq,D1_GAB) = 3.109069086965489d-2*t1*t157*t196*t58*t89* 7258 1 wght+Cmat(iq,D1_GAB) 7259 Cmat(iq,D1_GBB) = t194+Cmat(iq,D1_GBB) 7260 Mmat(iq,D1_TA) = t220+Mmat(iq,D1_TA) 7261 Mmat(iq,D1_TB) = t220+Mmat(iq,D1_TB) 7262 Amat2(iq,D2_RA_RA) = 1.0d+0*(9.327207260896466d-2*t1*t310*t6 7263 1 2*t76*t89+1.8654414521792934d-1*t160*t62*t76*t89+1.865441 7264 2 4521792934d-1*t1*t307*t57*t76*t89-3.109069086965489d-2*t1 7265 3 *t305*t306*t58*t89+1.8654414521792934d-1*t1*t155*t160*t62 7266 4 *t76+1.0d+0*t1*t291*t54+2.0d+0*t143*t54+t157*t339+t304+t3 7267 5 03+t237+t236+2.0d+0*t1*t102*t143)*wght+Amat2(iq,D2_RA_RA) 7268 Amat2(iq,D2_RA_RB) = 1.0d+0*(9.327207260896466d-2*t1*t343*t6 7269 1 2*t76*t89+9.327207260896466d-2*t184*t62*t76*t89+9.3272072 7270 2 60896466d-2*t160*t62*t76*t89+1.8654414521792934d-1*t1*t16 7271 3 0*t184*t57*t76*t89-3.109069086965489d-2*t1*t177*t190*t305 7272 4 *t58*t89+9.327207260896466d-2*t1*t155*t184*t62*t76+9.3272 7273 5 07260896466d-2*t1*t155*t160*t62*t76+1.0d+0*t1*t342*t54+1. 7274 6 0d+0*t183*t54+1.0d+0*t143*t54+t157*t359+t304+t303+t237+t2 7275 7 36+1.0d+0*t1*t102*t183+1.0d+0*t1*t102*t143)*wght+Amat2(iq 7276 8 ,D2_RA_RB) 7277 Amat2(iq,D2_RB_RB) = 1.0d+0*(9.327207260896466d-2*t1*t369*t6 7278 1 2*t76*t89+1.8654414521792934d-1*t184*t62*t76*t89+1.865441 7279 2 4521792934d-1*t1*t368*t57*t76*t89-3.109069086965489d-2*t1 7280 3 *t305*t367*t58*t89+1.8654414521792934d-1*t1*t155*t184*t62 7281 4 *t76+1.0d+0*t1*t366*t54+2.0d+0*t183*t54+t157*t384+t304+t3 7282 5 03+t237+t236+2.0d+0*t1*t102*t183)*wght+Amat2(iq,D2_RB_RB) 7283 Cmat2(iq,D2_RA_GAA) = t398+Cmat2(iq,D2_RA_GAA) 7284 Cmat2(iq,D2_RA_GAB) = 1.0d+0*(t157*t411-3.109069086965489d-2 7285 1 *t1*t177*t196*t305*t58*t89)*wght+Cmat2(iq,D2_RA_GAB) 7286 Cmat2(iq,D2_RA_GBB) = t398+Cmat2(iq,D2_RA_GBB) 7287 Cmat2(iq,D2_RB_GAA) = t418+Cmat2(iq,D2_RB_GAA) 7288 Cmat2(iq,D2_RB_GAB) = 1.0d+0*(t157*t424-3.109069086965489d-2 7289 1 *t1*t190*t196*t305*t58*t89)*wght+Cmat2(iq,D2_RB_GAB) 7290 Cmat2(iq,D2_RB_GBB) = t418+Cmat2(iq,D2_RB_GBB) 7291 Cmat2(iq,D2_GAA_GAA) = t430+Cmat2(iq,D2_GAA_GAA) 7292 Cmat2(iq,D2_GAA_GAB) = t432+Cmat2(iq,D2_GAA_GAB) 7293 Cmat2(iq,D2_GAA_GBB) = t430+Cmat2(iq,D2_GAA_GBB) 7294 Cmat2(iq,D2_GAB_GAB) = 3.109069086965489d-2*t1*t157*t435*t58 7295 1 *t89*wght-3.109069086965489d-2*t1*t305*t433*t58*t89*wght+ 7296 2 Cmat2(iq,D2_GAB_GAB) 7297 Cmat2(iq,D2_GAB_GBB) = t432+Cmat2(iq,D2_GAB_GBB) 7298 Cmat2(iq,D2_GBB_GBB) = t430+Cmat2(iq,D2_GBB_GBB) 7299 Mmat2(iq,D2_RA_TA) = t462+Mmat2(iq,D2_RA_TA) 7300 Mmat2(iq,D2_RA_TB) = t462+Mmat2(iq,D2_RA_TB) 7301 Mmat2(iq,D2_RB_TA) = t463+Mmat2(iq,D2_RB_TA) 7302 Mmat2(iq,D2_RB_TB) = t463+Mmat2(iq,D2_RB_TB) 7303 Mmat2(iq,D2_GAA_TA) = t465+Mmat2(iq,D2_GAA_TA) 7304 Mmat2(iq,D2_GAA_TB) = t465+Mmat2(iq,D2_GAA_TB) 7305 Mmat2(iq,D2_GAB_TA) = t466+Mmat2(iq,D2_GAB_TA) 7306 Mmat2(iq,D2_GAB_TB) = t466+Mmat2(iq,D2_GAB_TB) 7307 Mmat2(iq,D2_GBB_TA) = t465+Mmat2(iq,D2_GBB_TA) 7308 Mmat2(iq,D2_GBB_TB) = t465+Mmat2(iq,D2_GBB_TB) 7309 Mmat2(iq,D2_TA_TA) = t488+Mmat2(iq,D2_TA_TA) 7310 Mmat2(iq,D2_TA_TB) = t488+Mmat2(iq,D2_TA_TB) 7311 Mmat2(iq,D2_TB_TB) = t488+Mmat2(iq,D2_TB_TB) 7312 Amat3(iq,D3_RA_RA_RA) = 1.0d+0*(t157*(3.109069086965489d-2*t 7313 1 1*t58*(2.4517941994216663d+0*t160*t310*t59*t61*t69*t70*t7 7314 2 4-5.720853131983887d+0*t161*t162*t307*t59*t69*t70*t74+2.4 7315 3 517941994216663d+0*t169*t307*t59*t61*t70*t74-2.7242157771 7316 4 351844d-1*t541*t59*t61*t64*t69*t74+3.1782517399910504d-1* 7317 5 t160*t162*t313*t59*t64*t69*t74-6.674328653981203d+0*t160* 7318 6 t191*t311*t59*t64*t69*t74+1.906951043994629d+0*t161*t162* 7319 7 t310*t59*t64*t69*t74-3.2690589325622216d+0*t174*t538*t59* 7320 8 t61*t69*t74-8.172647331405554d-1*t160*t329*t59*t61*t64*t7 7321 9 4-8.172647331405554d-1*t169*t310*t59*t61*t64*t74+3.813902 7322 : 087989258d+0*t160*t161*t162*t169*t59*t64*t74+1.3621078885 7323 ; 675922d-1*(t580+t579+t578+t574+t573+t572+t571+t570+t568+t 7324 < 566+t565+t564+t563+t562+t561+t560+t559+t558+t557+t556+t55 7325 = 5+t554+t553+t552+t551+t550+t549+t548)*t59*t61*t63*t74-9.5 7326 > 34755219973146d-1*t161*t162*t329*t59*t63*t74-1.5891258699 7327 ? 955252d-1*t162*t169*t313*t59*t63*t74+3.3371643269906015d+ 7328 @ 0*t169*t191*t311*t59*t63*t74-1.3621078885675922d-1*t170*t 7329 1 59*t61*t63*t69*(-2.226405480117677d+0*t538*t585*t71*t72-7 7330 2 .421351600392256d-2*t174*t541*t71*t72+1.1132027400588385d 7331 3 +0*t160*t310*t333*t71*t72-5.19494612027458d+0*t161*t171*t 7332 4 172*t307*t333*t72-6.060770473653676d+0*t160*t171*t174*t31 7333 5 1*t330*t72+1.731648706758194d-1*t160*t171*t172*t174*t313* 7334 6 t72+1.0389892240549159d+0*t161*t171*t172*t174*t310*t72-3. 7335 7 710675800196128d-2*t175*t577*t65*t70*t71-3.71067580019612 7336 8 8d-2*t175*t569*t65*t70*t71-1.1132027400588385d-1*t167*t17 7337 9 5*t320*t65*t70*t71-4.452810960235354d-1*t575*t577*t586*t7 7338 : 0*t71+1.1132027400588385d-1*t324*t334*t577*t70*t71+1.1132 7339 ; 027400588385d-1*t324*t326*t334*t567*t70*t71+3.33960822017 7340 < 65154d-1*t167*t320*t324*t334*t70*t71-2.226405480117677d+0 7341 = *t167*t175*t307*t333*t65*t71+4.452810960235354d-1*t160*t1 7342 > 74*t175*t326*t65*t71+4.452810960235354d-1*t160*t174*t175* 7343 ? t320*t65*t71+4.452810960235354d-1*t167*t174*t175*t310*t65 7344 @ *t71-1.3358432880706061d+0*t160*t174*t324*t326*t334*t71-3 7345 1 .030385236826838d+0*t167*t171*t175*t311*t330*t65*t70+5.19 7346 2 494612027458d-1*t161*t171*t172*t175*t326*t65*t70+5.194946 7347 3 12027458d-1*t161*t171*t172*t175*t320*t65*t70+8.6582435337 7348 4 9097d-2*t167*t171*t172*t175*t313*t65*t70-1.55848383608237 7349 5 38d+0*t161*t171*t172*t324*t326*t334*t70-4.155956896219663 7350 6 6d+0*t160*t161*t167*t171*t172*t174*t175*t65+t584+t583+t58 7351 7 2+t580+t579+t578+t574+t573+t572+t571+t570+t568+t566+t565+ 7352 8 t564+t563+t562+t561+t560+t559+t558+t557+t556+t555+t554+t5 7353 9 53+t552+t551+t550+t549+t548)-2.4517941994216663d+0*t170*t 7354 : 176*t307*t59*t61*t69*t70-1.6345294662811108d+0*t160*t336* 7355 ; t337*t59*t61*t64*t69+8.172647331405554d-1*t160*t170*t335* 7356 < t59*t61*t64*t69+8.172647331405554d-1*t170*t176*t310*t59*t 7357 = 61*t64*t69-3.813902087989258d+0*t160*t161*t162*t170*t176* 7358 > t59*t64*t69-8.172647331405554d-1*t176**3*t587*t59*t61*t63 7359 ? *t69+8.172647331405554d-1*t176*t335*t336*t59*t61*t63*t69- 7360 @ 1.906951043994629d+0*t161*t162*t336*t337*t59*t63*t69+9.53 7361 1 4755219973146d-1*t161*t162*t170*t335*t59*t63*t69+1.589125 7362 2 8699955252d-1*t162*t170*t176*t313*t59*t63*t69-3.337164326 7363 3 9906015d+0*t170*t176*t191*t311*t59*t63*t69+1.634529466281 7364 4 1108d+0*t160*t169*t170*t176*t59*t61*t64+8.172647331405554 7365 5 d-1*t169*t336*t337*t59*t61*t63-4.086323665702777d-1*t169* 7366 6 t170*t335*t59*t61*t63-4.086323665702777d-1*t170*t176*t329 7367 7 *t59*t61*t63+1.906951043994629d+0*t161*t162*t169*t170*t17 7368 8 6*t59*t63+t547+t545+t543)*t89+2.7981621782689403d-1*t1*t1 7369 9 60*t338*t62*t89+2.7981621782689403d-1*t1*t177*t310*t62*t8 7370 : 9+5.596324356537881d-1*t160*t177*t62*t89+9.32720726089646 7371 ; 6d-2*t338*t58*t89+5.596324356537881d-1*t1*t177*t307*t57*t 7372 < 89+5.596324356537881d-1*t1*t155*t160*t177*t62+9.327207260 7373 = 896466d-2*t1*t155*t338*t58+9.327207260896466d-2*t1*t177*t 7374 > 302*t58+1.8654414521792934d-1*t155*t177*t58)+t305*(-9.327 7375 ? 207260896466d-2*t1*t160*t306*t62*t89-6.218138173930978d-2 7376 @ *t1*t177*t338*t58*t89+t589+t588-t177*t339)+9.327207260896 7377 1 466d-2*t1*t541*t62*t76*t89+2.7981621782689403d-1*t310*t62 7378 2 *t76*t89+5.596324356537881d-1*t1*t160*t310*t57*t76*t89+5. 7379 3 596324356537881d-1*t307*t57*t76*t89+1.8654414521792934d-1 7380 4 *t1*t538*t76*t89+6.218138173930978d-2*t1*t177**3*t537*t58 7381 5 *t89+2.7981621782689403d-1*t1*t155*t310*t62*t76+2.7981621 7382 6 782689403d-1*t1*t160*t302*t62*t76+5.596324356537881d-1*t1 7383 7 55*t160*t62*t76+5.596324356537881d-1*t1*t155*t307*t57*t76 7384 8 +1.0d+0*t1*t534*t54+3.0d+0*t291*t54+t536+t535+t491+t490+3 7385 9 .0d+0*t1*t102*t291+3.0d+0*t1*t143*t235+6.0d+0*t102*t143)* 7386 : wght+Amat3(iq,D3_RA_RA_RA) 7387 Amat3(iq,D3_RA_RA_RB) = 1.0d+0*(t157*(3.109069086965489d-2*t 7388 1 1*t58*(1.6345294662811108d+0*t160*t343*t59*t61*t69*t70*t7 7389 2 4+8.172647331405554d-1*t184*t310*t59*t61*t69*t70*t74-1.90 7390 3 69510439946294d+0*t161*t162*t307*t59*t69*t70*t74+8.172647 7391 4 331405554d-1*t188*t307*t59*t61*t70*t74+1.6345294662811108 7392 5 d+0*t160*t169*t184*t59*t61*t70*t74-2.7242157771351844d-1* 7393 6 t59*t602*t61*t64*t69*t74+1.0594172466636834d-1*t162*t184* 7394 7 t313*t59*t64*t69*t74+2.1188344933273667d-1*t160*t162*t313 7395 8 *t59*t64*t69*t74-2.2247762179937342d+0*t184*t191*t311*t59 7396 9 *t64*t69*t74-4.4495524359874683d+0*t160*t191*t311*t59*t64 7397 : *t69*t74+6.356503479982097d-1*t161*t162*t310*t59*t64*t69* 7398 ; t74-3.2690589325622216d+0*t174*t184*t307*t59*t61*t69*t74+ 7399 < 1.3621078885675922d-1*t59*t61*t63*(t665+t663+t662+t661+t6 7400 = 60+t659+t658+t657+t656+t654+t653+t652+t651+t650+t649+t648 7401 > +t647+t646+t645+t644+t643+t642+t641+t640+t639+t638+t637+t 7402 ? 636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t62 7403 @ 5+t624+t623+t622+t621+t620+t557+t556+t555)*t74-5.44843155 7404 1 4270369d-1*t160*t356*t59*t61*t64*t74-5.448431554270369d-1 7405 2 *t169*t343*t59*t61*t64*t74-2.7242157771351844d-1*t184*t32 7406 3 9*t59*t61*t64*t74-2.7242157771351844d-1*t188*t310*t59*t61 7407 4 *t64*t74+1.2713006959964196d+0*t160*t161*t162*t169*t59*t6 7408 5 4*t74-3.1782517399910487d-1*t161*t162*t329*t59*t63*t74-5. 7409 6 297086233318417d-2*t162*t188*t313*t59*t63*t74-1.059417246 7410 7 6636834d-1*t162*t169*t313*t59*t63*t74+1.1123881089968671d 7411 8 +0*t188*t191*t311*t59*t63*t74+2.2247762179937342d+0*t169* 7412 9 t191*t311*t59*t63*t74-1.3621078885675922d-1*t170*t59*t61* 7413 : t63*t69*(-7.421351600392256d-2*t174*t602*t71*t72-2.226405 7414 ; 480117677d+0*t184*t307*t585*t71*t72+7.421351600392256d-1* 7415 < t160*t333*t343*t71*t72+3.710675800196128d-1*t184*t310*t33 7416 = 3*t71*t72-1.7316487067581932d+0*t161*t171*t172*t307*t333* 7417 > t72-2.0202568245512253d+0*t171*t174*t184*t311*t330*t72-4. 7418 ? 0405136491024507d+0*t160*t171*t174*t311*t330*t72+5.772162 7419 @ 355860646d-2*t171*t172*t174*t184*t313*t72+1.1544324711721 7420 1 293d-1*t160*t171*t172*t174*t313*t72+3.4632974135163863d-1 7421 2 *t161*t171*t172*t174*t310*t72+1.1132027400588385d-1*t324* 7422 3 t326*t334*t664*t70*t71-3.710675800196128d-2*t175*t65*t655 7423 4 *t70*t71-7.421351600392256d-2*t167*t175*t348*t65*t70*t71- 7424 5 3.710675800196128d-2*t175*t186*t326*t65*t70*t71-3.7106758 7425 6 00196128d-2*t175*t186*t320*t65*t70*t71-4.452810960235354d 7426 7 -1*t186*t326*t575*t586*t70*t71+2.226405480117677d-1*t167* 7427 8 t324*t334*t348*t70*t71+1.1132027400588385d-1*t186*t324*t3 7428 9 26*t334*t70*t71+1.1132027400588385d-1*t186*t320*t324*t334 7429 : *t70*t71+2.9685406401569026d-1*t160*t174*t175*t348*t65*t7 7430 ; 1+2.9685406401569026d-1*t167*t174*t175*t343*t65*t71-7.421 7431 < 351600392256d-1*t175*t186*t307*t333*t65*t71-1.48427032007 7432 = 84513d+0*t160*t167*t175*t184*t333*t65*t71+1.4842703200784 7433 > 513d-1*t174*t175*t184*t326*t65*t71+1.4842703200784513d-1* 7434 ? t174*t175*t184*t320*t65*t71+1.4842703200784513d-1*t174*t1 7435 @ 75*t186*t310*t65*t71+2.9685406401569026d-1*t160*t167*t174 7436 1 *t175*t186*t65*t71-4.452810960235354d-1*t174*t184*t324*t3 7437 2 26*t334*t71-8.905621920470708d-1*t160*t167*t174*t186*t324 7438 3 *t334*t71-1.0101284122756127d+0*t171*t175*t186*t311*t330* 7439 4 t65*t70-2.0202568245512253d+0*t167*t171*t175*t311*t330*t6 7440 5 5*t70+1.7316487067581932d-1*t161*t171*t172*t175*t326*t65* 7441 6 t70+1.7316487067581932d-1*t161*t171*t172*t175*t320*t65*t7 7442 7 0+2.886081177930323d-2*t171*t172*t175*t186*t313*t65*t70+5 7443 8 .772162355860646d-2*t167*t171*t172*t175*t313*t65*t70-5.19 7444 9 494612027458d-1*t161*t171*t172*t324*t326*t334*t70+t672+t6 7445 : 71+t670+t669+t668+t667+t666+t665+t663+t662+t661+t660+t659 7446 ; +t658+t657+t656+t654+t653+t652+t651+t650-1.38531896540655 7447 < 45d+0*t160*t161*t167*t171*t172*t174*t175*t65+t649+t648+t6 7448 = 47+t646+t645+t644+t643+t642+t641+t640+t639+t638+t637+t636 7449 > +t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+t 7450 ? 624+t623+t622+t621+t620+t584+t583+t582+t557+t556+t555)-8. 7451 @ 172647331405554d-1*t170*t189*t307*t59*t61*t69*t70-1.63452 7452 1 94662811108d+0*t160*t170*t176*t184*t59*t61*t69*t70+5.4484 7453 2 31554270369d-1*t160*t170*t357*t59*t61*t64*t69+5.448431554 7454 3 270369d-1*t170*t176*t343*t59*t61*t64*t69-5.44843155427036 7455 4 9d-1*t184*t336*t337*t59*t61*t64*t69-1.0896863108540737d+0 7456 5 *t160*t176*t189*t336*t59*t61*t64*t69+2.7242157771351844d- 7457 6 1*t170*t184*t335*t59*t61*t64*t69+2.7242157771351844d-1*t1 7458 7 70*t189*t310*t59*t61*t64*t69-1.2713006959964196d+0*t160*t 7459 8 161*t162*t170*t176*t59*t64*t69-8.172647331405554d-1*t189* 7460 9 t337*t587*t59*t61*t63*t69+5.448431554270369d-1*t176*t336* 7461 : t357*t59*t61*t63*t69+2.7242157771351844d-1*t189*t335*t336 7462 ; *t59*t61*t63*t69-6.356503479982097d-1*t161*t162*t336*t337 7463 < *t59*t63*t69+3.1782517399910487d-1*t161*t162*t170*t335*t5 7464 = 9*t63*t69+5.297086233318417d-2*t162*t170*t189*t313*t59*t6 7465 > 3*t69+1.0594172466636834d-1*t162*t170*t176*t313*t59*t63*t 7466 ? 69-1.1123881089968671d+0*t170*t189*t191*t311*t59*t63*t69- 7467 @ 2.2247762179937342d+0*t170*t176*t191*t311*t59*t63*t69+5.4 7468 1 48431554270369d-1*t160*t169*t170*t189*t59*t61*t64+5.44843 7469 2 1554270369d-1*t160*t170*t176*t188*t59*t61*t64+5.448431554 7470 3 270369d-1*t169*t170*t176*t184*t59*t61*t64-2.7242157771351 7471 4 844d-1*t169*t170*t357*t59*t61*t63-2.7242157771351844d-1*t 7472 5 170*t176*t356*t59*t61*t63+2.7242157771351844d-1*t188*t336 7473 6 *t337*t59*t61*t63+5.448431554270369d-1*t169*t176*t189*t33 7474 7 6*t59*t61*t63-1.3621078885675922d-1*t170*t188*t335*t59*t6 7475 8 1*t63-1.3621078885675922d-1*t170*t189*t329*t59*t61*t63+6. 7476 9 356503479982097d-1*t161*t162*t169*t170*t176*t59*t63+t619+ 7477 : t618+t617+t616+t615+t614+t613+t612+t611+t610+t609+t547+t5 7478 ; 45+t543)*t89+1.8654414521792934d-1*t1*t160*t358*t62*t89+1 7479 < .8654414521792934d-1*t1*t177*t343*t62*t89+9.3272072608964 7480 = 66d-2*t1*t184*t338*t62*t89+9.327207260896466d-2*t1*t190*t 7481 > 310*t62*t89+1.8654414521792934d-1*t160*t177*t62*t89+3.109 7482 ? 069086965489d-2*t338*t58*t89+1.8654414521792934d-1*t1*t19 7483 @ 0*t307*t57*t89+3.7308829043585867d-1*t1*t160*t177*t184*t5 7484 1 7*t89+1.8654414521792934d-1*t1*t155*t160*t177*t62+t608+t6 7485 2 07+t606+t605+t604+t603+3.109069086965489d-2*t1*t155*t338* 7486 3 t58+3.109069086965489d-2*t1*t190*t302*t58+6.2181381739309 7487 4 78d-2*t1*t177*t302*t58+6.218138173930978d-2*t155*t190*t58 7488 5 +1.2436276347861956d-1*t155*t177*t58)+t305*(-9.3272072608 7489 6 96466d-2*t1*t184*t306*t62*t89-6.218138173930978d-2*t1*t17 7490 7 7*t358*t58*t89+t589+t588-t190*t339)+9.327207260896466d-2* 7491 8 t1*t602*t62*t76*t89+9.327207260896466d-2*t310*t62*t76*t89 7492 9 +3.7308829043585867d-1*t1*t160*t343*t57*t76*t89+1.8654414 7493 : 521792934d-1*t1*t184*t310*t57*t76*t89+1.8654414521792934d 7494 ; -1*t307*t57*t76*t89+1.8654414521792934d-1*t1*t184*t307*t7 7495 < 6*t89+6.218138173930978d-2*t1*t190*t306*t537*t58*t89+9.32 7496 = 7207260896466d-2*t1*t155*t310*t62*t76+9.327207260896466d- 7497 > 2*t1*t184*t302*t62*t76+1.8654414521792934d-1*t1*t160*t302 7498 ? *t62*t76+1.8654414521792934d-1*t155*t184*t62*t76+3.730882 7499 @ 9043585867d-1*t155*t160*t62*t76+1.8654414521792934d-1*t1* 7500 1 t155*t307*t57*t76+t601+t600+t599+t598+1.0d+0*t1*t54*t597+ 7501 2 t591+t590+1.0d+0*t291*t54+t536+t535+t491+t490+1.0d+0*t1*t 7502 3 102*t291+1.0d+0*t1*t183*t235+2.0d+0*t1*t143*t235+2.0d+0*t 7503 4 102*t183+4.0d+0*t102*t143)*wght+Amat3(iq,D3_RA_RA_RB) 7504 Amat3(iq,D3_RA_RB_RB) = 1.0d+0*(t157*(3.109069086965489d-2*t 7505 1 1*t58*(1.3621078885675922d-1*t59*t61*t63*(t712+t711+t710+ 7506 2 t709+t708+t706+t705+t704+t703+t702+t701+t700+t699+t698+t6 7507 3 97+t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686 7508 4 +t685+t684+t683+t682+t681+t680+t679+t678+t677+t676+t675+t 7509 5 654+t652+t645+t638+t633+t625+t623+t557+t556+t555)*t74+8.1 7510 6 72647331405554d-1*t160*t369*t59*t61*t69*t70*t74+1.6345294 7511 7 662811108d+0*t184*t343*t59*t61*t69*t70*t74-1.906951043994 7512 8 629d+0*t161*t162*t368*t59*t69*t70*t74+8.172647331405554d- 7513 9 1*t169*t368*t59*t61*t70*t74+1.6345294662811108d+0*t160*t1 7514 : 84*t188*t59*t61*t70*t74-2.7242157771351844d-1*t59*t61*t64 7515 ; *t674*t69*t74+6.356503479982097d-1*t161*t162*t369*t59*t64 7516 < *t69*t74+2.1188344933273667d-1*t162*t184*t313*t59*t64*t69 7517 = *t74+1.0594172466636834d-1*t160*t162*t313*t59*t64*t69*t74 7518 > -4.4495524359874683d+0*t184*t191*t311*t59*t64*t69*t74-2.2 7519 ? 247762179937342d+0*t160*t191*t311*t59*t64*t69*t74-3.26905 7520 @ 89325622216d+0*t160*t174*t368*t59*t61*t69*t74-2.724215777 7521 1 1351844d-1*t160*t380*t59*t61*t64*t74-2.7242157771351844d- 7522 2 1*t169*t369*t59*t61*t64*t74-5.448431554270369d-1*t184*t35 7523 3 6*t59*t61*t64*t74-5.448431554270369d-1*t188*t343*t59*t61* 7524 4 t64*t74+1.2713006959964196d+0*t161*t162*t184*t188*t59*t64 7525 5 *t74-3.1782517399910487d-1*t161*t162*t380*t59*t63*t74-1.0 7526 6 594172466636834d-1*t162*t188*t313*t59*t63*t74-5.297086233 7527 7 318417d-2*t162*t169*t313*t59*t63*t74+2.2247762179937342d+ 7528 8 0*t188*t191*t311*t59*t63*t74+1.1123881089968671d+0*t169*t 7529 9 191*t311*t59*t63*t74-1.3621078885675922d-1*t170*t59*t61*t 7530 : 63*t69*(-7.421351600392256d-2*t174*t674*t71*t72-2.2264054 7531 ; 80117677d+0*t160*t368*t585*t71*t72+3.710675800196128d-1*t 7532 < 160*t333*t369*t71*t72+7.421351600392256d-1*t184*t333*t343 7533 = *t71*t72+3.4632974135163863d-1*t161*t171*t172*t174*t369*t 7534 > 72-1.7316487067581932d+0*t161*t171*t172*t333*t368*t72-4.0 7535 ? 405136491024507d+0*t171*t174*t184*t311*t330*t72-2.0202568 7536 @ 245512253d+0*t160*t171*t174*t311*t330*t72+1.1544324711721 7537 1 293d-1*t171*t172*t174*t184*t313*t72+5.772162355860646d-2* 7538 2 t160*t171*t172*t174*t313*t72+t712+t711+t710-3.71067580019 7539 3 6128d-2*t175*t65*t70*t707*t71+1.1132027400588385d-1*t167* 7540 4 t186*t324*t334*t664*t70*t71-3.710675800196128d-2*t167*t17 7541 5 5*t377*t65*t70*t71-3.710675800196128d-2*t167*t175*t373*t6 7542 6 5*t70*t71-7.421351600392256d-2*t175*t186*t348*t65*t70*t71 7543 7 -4.452810960235354d-1*t167*t377*t575*t586*t70*t71+1.11320 7544 8 27400588385d-1*t167*t324*t334*t377*t70*t71+1.113202740058 7545 9 8385d-1*t167*t324*t334*t373*t70*t71+2.226405480117677d-1* 7546 : t186*t324*t334*t348*t70*t71+1.4842703200784513d-1*t160*t1 7547 ; 74*t175*t377*t65*t71+1.4842703200784513d-1*t160*t174*t175 7548 < *t373*t65*t71+1.4842703200784513d-1*t167*t174*t175*t369*t 7549 = 65*t71-7.421351600392256d-1*t167*t175*t333*t368*t65*t71+2 7550 > .9685406401569026d-1*t174*t175*t184*t348*t65*t71+2.968540 7551 ? 6401569026d-1*t174*t175*t186*t343*t65*t71-1.4842703200784 7552 @ 513d+0*t160*t175*t184*t186*t333*t65*t71+2.968540640156902 7553 1 6d-1*t167*t174*t175*t184*t186*t65*t71-4.452810960235354d- 7554 2 1*t160*t174*t324*t334*t377*t71-8.905621920470708d-1*t167* 7555 3 t174*t184*t186*t324*t334*t71+t709+t708+t706+t705+t704+t70 7556 4 3+t702+t701+t700+1.7316487067581932d-1*t161*t171*t172*t17 7557 5 5*t377*t65*t70+1.7316487067581932d-1*t161*t171*t172*t175* 7558 6 t373*t65*t70-2.0202568245512253d+0*t171*t175*t186*t311*t3 7559 7 30*t65*t70-1.0101284122756127d+0*t167*t171*t175*t311*t330 7560 8 *t65*t70+5.772162355860646d-2*t171*t172*t175*t186*t313*t6 7561 9 5*t70+2.886081177930323d-2*t167*t171*t172*t175*t313*t65*t 7562 : 70-5.19494612027458d-1*t161*t171*t172*t324*t334*t377*t70+ 7563 ; t699+t698+t697+t696+t695+t694+t693+t692+t691+t690+t689+t6 7564 < 88+t687+t686+t685+t684+t683+t682+t681+t680+t679+t678+t677 7565 = +t676+t675+t672+t671+t670+t669+t668+t667+t666+t654+t652-1 7566 > .3853189654065545d+0*t161*t171*t172*t174*t175*t184*t186*t 7567 ? 65+t645+t638+t633+t625+t623+t584+t583+t582+t557+t556+t555 7568 @ )-8.172647331405554d-1*t170*t176*t368*t59*t61*t69*t70-1.6 7569 1 345294662811108d+0*t160*t170*t184*t189*t59*t61*t69*t70-5. 7570 2 448431554270369d-1*t160*t336*t382*t59*t61*t64*t69+2.72421 7571 3 57771351844d-1*t160*t170*t381*t59*t61*t64*t69+2.724215777 7572 4 1351844d-1*t170*t176*t369*t59*t61*t64*t69+5.4484315542703 7573 5 69d-1*t170*t184*t357*t59*t61*t64*t69+5.448431554270369d-1 7574 6 *t170*t189*t343*t59*t61*t64*t69-1.0896863108540737d+0*t17 7575 7 6*t184*t189*t336*t59*t61*t64*t69-1.2713006959964196d+0*t1 7576 8 61*t162*t170*t184*t189*t59*t64*t69-8.172647331405554d-1*t 7577 9 176*t382*t587*t59*t61*t63*t69+2.7242157771351844d-1*t176* 7578 : t336*t381*t59*t61*t63*t69+5.448431554270369d-1*t189*t336* 7579 ; t357*t59*t61*t63*t69-6.356503479982097d-1*t161*t162*t336* 7580 < t382*t59*t63*t69+3.1782517399910487d-1*t161*t162*t170*t38 7581 = 1*t59*t63*t69+1.0594172466636834d-1*t162*t170*t189*t313*t 7582 > 59*t63*t69+5.297086233318417d-2*t162*t170*t176*t313*t59*t 7583 ? 63*t69-2.2247762179937342d+0*t170*t189*t191*t311*t59*t63* 7584 @ t69-1.1123881089968671d+0*t170*t176*t191*t311*t59*t63*t69 7585 1 +5.448431554270369d-1*t160*t170*t188*t189*t59*t61*t64+5.4 7586 2 48431554270369d-1*t169*t170*t184*t189*t59*t61*t64+5.44843 7587 3 1554270369d-1*t170*t176*t184*t188*t59*t61*t64+2.724215777 7588 4 1351844d-1*t169*t336*t382*t59*t61*t63-1.3621078885675922d 7589 5 -1*t169*t170*t381*t59*t61*t63-1.3621078885675922d-1*t170* 7590 6 t176*t380*t59*t61*t63-2.7242157771351844d-1*t170*t188*t35 7591 7 7*t59*t61*t63-2.7242157771351844d-1*t170*t189*t356*t59*t6 7592 8 1*t63+5.448431554270369d-1*t176*t188*t189*t336*t59*t61*t6 7593 9 3+6.356503479982097d-1*t161*t162*t170*t188*t189*t59*t63+t 7594 : 619+t618+t617+t616+t615+t614+t613+t612+t611+t610+t609+t54 7595 ; 7+t545+t543)*t89+9.327207260896466d-2*t1*t160*t383*t62*t8 7596 < 9+9.327207260896466d-2*t1*t177*t369*t62*t89+1.86544145217 7597 = 92934d-1*t1*t184*t358*t62*t89+1.8654414521792934d-1*t1*t1 7598 > 90*t343*t62*t89+1.8654414521792934d-1*t184*t190*t62*t89+3 7599 ? .109069086965489d-2*t383*t58*t89+1.8654414521792934d-1*t1 7600 @ *t177*t368*t57*t89+3.7308829043585867d-1*t1*t160*t184*t19 7601 1 0*t57*t89+1.8654414521792934d-1*t1*t155*t184*t190*t62+t60 7602 2 8+t607+t606+t605+t604+t603+3.109069086965489d-2*t1*t155*t 7603 3 383*t58+6.218138173930978d-2*t1*t190*t302*t58+3.109069086 7604 4 965489d-2*t1*t177*t302*t58+1.2436276347861956d-1*t155*t19 7605 5 0*t58+6.218138173930978d-2*t155*t177*t58)+t305*(-9.327207 7606 6 260896466d-2*t1*t177*t184*t190*t62*t89-3.109069086965489d 7607 7 -2*t1*t177*t383*t58*t89-3.109069086965489d-2*t1*t190*t358 7608 8 *t58*t89-3.109069086965489d-2*t177*t190*t58*t89-3.1090690 7609 9 86965489d-2*t1*t155*t177*t190*t58-t190*t359)+9.3272072608 7610 : 96466d-2*t1*t62*t674*t76*t89+9.327207260896466d-2*t369*t6 7611 ; 2*t76*t89+1.8654414521792934d-1*t1*t160*t369*t57*t76*t89+ 7612 < 1.8654414521792934d-1*t368*t57*t76*t89+3.7308829043585867 7613 = d-1*t1*t184*t343*t57*t76*t89+1.8654414521792934d-1*t1*t16 7614 > 0*t368*t76*t89+6.218138173930978d-2*t1*t177*t367*t537*t58 7615 ? *t89+9.327207260896466d-2*t1*t155*t369*t62*t76+1.86544145 7616 @ 21792934d-1*t1*t184*t302*t62*t76+9.327207260896466d-2*t1* 7617 1 t160*t302*t62*t76+3.7308829043585867d-1*t155*t184*t62*t76 7618 2 +1.8654414521792934d-1*t155*t160*t62*t76+1.86544145217929 7619 3 34d-1*t1*t155*t368*t57*t76+1.0d+0*t1*t54*t673+t601+t600+t 7620 4 599+t598+t591+t590+1.0d+0*t366*t54+t536+t535+t491+t490+1. 7621 5 0d+0*t1*t102*t366+2.0d+0*t1*t183*t235+1.0d+0*t1*t143*t235 7622 6 +4.0d+0*t102*t183+2.0d+0*t102*t143)*wght+Amat3(iq,D3_RA_R 7623 7 B_RB) 7624 Amat3(iq,D3_RB_RB_RB) = 1.0d+0*(t157*(3.109069086965489d-2*t 7625 1 1*t58*(-1.3621078885675922d-1*t170*t59*t61*t63*t69*(t746+ 7626 2 t745+t744-3.710675800196128d-2*t175*t65*t70*t71*t743-4.45 7627 3 2810960235354d-1*t575*t586*t70*t71*t743+1.113202740058838 7628 4 5d-1*t324*t334*t70*t71*t743+t742+t741+t740+t739+t738-3.71 7629 5 0675800196128d-2*t175*t65*t70*t71*t737+t736+t735+t734+t73 7630 6 3+t732+t731+t730+t729+t728+t727+t726+t725+t724+t723+t722+ 7631 7 t721+t720-7.421351600392256d-2*t174*t71*t719*t72-2.226405 7632 8 480117677d+0*t585*t71*t718*t72+1.1132027400588385d+0*t184 7633 9 *t333*t369*t71*t72+1.0389892240549159d+0*t161*t171*t172*t 7634 : 174*t369*t72-5.19494612027458d+0*t161*t171*t172*t333*t368 7635 ; *t72-6.060770473653676d+0*t171*t174*t184*t311*t330*t72+1. 7636 < 731648706758194d-1*t171*t172*t174*t184*t313*t72+1.1132027 7637 = 400588385d-1*t324*t334*t377*t664*t70*t71-1.11320274005883 7638 > 85d-1*t175*t186*t373*t65*t70*t71+3.3396082201765154d-1*t1 7639 ? 86*t324*t334*t373*t70*t71+4.452810960235354d-1*t174*t175* 7640 @ t184*t377*t65*t71+4.452810960235354d-1*t174*t175*t184*t37 7641 1 3*t65*t71+4.452810960235354d-1*t174*t175*t186*t369*t65*t7 7642 2 1-2.226405480117677d+0*t175*t186*t333*t368*t65*t71-1.3358 7643 3 432880706061d+0*t174*t184*t324*t334*t377*t71+5.1949461202 7644 4 7458d-1*t161*t171*t172*t175*t377*t65*t70+5.19494612027458 7645 5 d-1*t161*t171*t172*t175*t373*t65*t70-3.030385236826838d+0 7646 6 *t171*t175*t186*t311*t330*t65*t70+8.65824353379097d-2*t17 7647 7 1*t172*t175*t186*t313*t65*t70-1.5584838360823738d+0*t161* 7648 8 t171*t172*t324*t334*t377*t70-4.1559568962196636d+0*t161*t 7649 9 171*t172*t174*t175*t184*t186*t65+t584+t583+t582+t557+t556 7650 : +t555)+1.3621078885675922d-1*t59*t61*t63*t74*(t746+t745+t 7651 ; 744+t742+t741+t740+t739+t738+t736+t735+t734+t733+t732+t73 7652 < 1+t730+t729+t728+t727+t726+t725+t724+t723+t722+t721+t720+ 7653 = t557+t556+t555)-2.7242157771351844d-1*t59*t61*t64*t69*t71 7654 > 9*t74-3.2690589325622216d+0*t174*t59*t61*t69*t718*t74+2.4 7655 ? 517941994216663d+0*t184*t369*t59*t61*t69*t70*t74-5.720853 7656 @ 131983887d+0*t161*t162*t368*t59*t69*t70*t74+2.45179419942 7657 1 16663d+0*t188*t368*t59*t61*t70*t74+1.906951043994629d+0*t 7658 2 161*t162*t369*t59*t64*t69*t74+3.1782517399910504d-1*t162* 7659 3 t184*t313*t59*t64*t69*t74-6.674328653981203d+0*t184*t191* 7660 4 t311*t59*t64*t69*t74-8.172647331405554d-1*t184*t380*t59*t 7661 5 61*t64*t74-8.172647331405554d-1*t188*t369*t59*t61*t64*t74 7662 6 +3.813902087989258d+0*t161*t162*t184*t188*t59*t64*t74-9.5 7663 7 34755219973146d-1*t161*t162*t380*t59*t63*t74-1.5891258699 7664 8 955252d-1*t162*t188*t313*t59*t63*t74+3.3371643269906015d+ 7665 9 0*t188*t191*t311*t59*t63*t74-2.4517941994216663d+0*t170*t 7666 : 189*t368*t59*t61*t69*t70-1.6345294662811108d+0*t184*t336* 7667 ; t382*t59*t61*t64*t69+8.172647331405554d-1*t170*t184*t381* 7668 < t59*t61*t64*t69+8.172647331405554d-1*t170*t189*t369*t59*t 7669 = 61*t64*t69-3.813902087989258d+0*t161*t162*t170*t184*t189* 7670 > t59*t64*t69-8.172647331405554d-1*t189**3*t587*t59*t61*t63 7671 ? *t69+8.172647331405554d-1*t189*t336*t381*t59*t61*t63*t69- 7672 @ 1.906951043994629d+0*t161*t162*t336*t382*t59*t63*t69+9.53 7673 1 4755219973146d-1*t161*t162*t170*t381*t59*t63*t69+1.589125 7674 2 8699955252d-1*t162*t170*t189*t313*t59*t63*t69-3.337164326 7675 3 9906015d+0*t170*t189*t191*t311*t59*t63*t69+1.634529466281 7676 4 1108d+0*t170*t184*t188*t189*t59*t61*t64+8.172647331405554 7677 5 d-1*t188*t336*t382*t59*t61*t63-4.086323665702777d-1*t170* 7678 6 t188*t381*t59*t61*t63-4.086323665702777d-1*t170*t189*t380 7679 7 *t59*t61*t63+1.906951043994629d+0*t161*t162*t170*t188*t18 7680 8 9*t59*t63+t547+t545+t543)*t89+2.7981621782689403d-1*t1*t1 7681 9 84*t383*t62*t89+2.7981621782689403d-1*t1*t190*t369*t62*t8 7682 : 9+5.596324356537881d-1*t184*t190*t62*t89+9.32720726089646 7683 ; 6d-2*t383*t58*t89+5.596324356537881d-1*t1*t190*t368*t57*t 7684 < 89+5.596324356537881d-1*t1*t155*t184*t190*t62+9.327207260 7685 = 896466d-2*t1*t155*t383*t58+9.327207260896466d-2*t1*t190*t 7686 > 302*t58+1.8654414521792934d-1*t155*t190*t58)+t305*(-9.327 7687 ? 207260896466d-2*t1*t184*t367*t62*t89-6.218138173930978d-2 7688 @ *t1*t190*t383*t58*t89-3.109069086965489d-2*t367*t58*t89-3 7689 1 .109069086965489d-2*t1*t155*t367*t58-t190*t384)+9.3272072 7690 2 60896466d-2*t1*t62*t719*t76*t89+1.8654414521792934d-1*t1* 7691 3 t718*t76*t89+2.7981621782689403d-1*t369*t62*t76*t89+5.596 7692 4 324356537881d-1*t1*t184*t369*t57*t76*t89+5.59632435653788 7693 5 1d-1*t368*t57*t76*t89+6.218138173930978d-2*t1*t190**3*t53 7694 6 7*t58*t89+2.7981621782689403d-1*t1*t155*t369*t62*t76+2.79 7695 7 81621782689403d-1*t1*t184*t302*t62*t76+5.596324356537881d 7696 8 -1*t155*t184*t62*t76+5.596324356537881d-1*t1*t155*t368*t5 7697 9 7*t76+1.0d+0*t1*t54*t717+3.0d+0*t366*t54+t536+t535+t491+t 7698 : 490+3.0d+0*t1*t102*t366+3.0d+0*t1*t183*t235+6.0d+0*t102*t 7699 ; 183)*wght+Amat3(iq,D3_RB_RB_RB) 7700 Cmat3(iq,D3_RA_RA_GAA) = t774+Cmat3(iq,D3_RA_RA_GAA) 7701 Cmat3(iq,D3_RA_RA_GAB) = 1.0d+0*(t157*(3.109069086965489d-2* 7702 1 t1*t58*(-1.3621078885675922d-1*t170*t59*t61*t63*t69*(t794 7703 2 +t793+t792+t791+t790+t789+t788+t787+t786+t785+t784+t783+1 7704 3 .4842703200784513d+0*t191*t307*t333*t59*t72-2.96854064015 7705 4 69026d-1*t174*t191*t310*t59*t72+2.770637930813109d+0*t160 7706 5 *t161*t172*t174*t59*t72-1.4842703200784513d-1*t175*t191*t 7707 6 326*t59*t65*t70-1.4842703200784513d-1*t175*t191*t320*t59* 7708 7 t65*t70+1.3853189654065545d+0*t161*t167*t172*t175*t59*t65 7709 8 *t70+4.452810960235354d-1*t191*t324*t326*t334*t59*t70+1.1 7710 9 87416256062761d+0*t160*t167*t174*t175*t191*t59*t65)+1.362 7711 : 1078885675922d-1*t59*t61*t63*t74*(t792+t791+t790+t789+t78 7712 ; 8+t787+t786+t785+t784+t783)+t782+t781+t780+t779+t778+t777 7713 < +1.6345294662811108d+0*t307*t61*t69*t70*t74-5.44843155427 7714 = 0369d-1*t310*t61*t64*t69*t74+2.542601391992839d+0*t160*t1 7715 > 61*t162*t64*t69*t74+2.2264054801176772d-1*t191*t307*t333* 7716 ? t59*t67*t74-7.421351600392256d-2*t174*t191*t310*t59*t67*t 7717 @ 74+3.463297413516387d-1*t160*t161*t172*t174*t59*t67*t74-5 7718 1 .448431554270369d-1*t160*t407*t59*t61*t64*t74-1.089686310 7719 2 8540737d+0*t160*t169*t61*t64*t74+2.7242157771351844d-1*t3 7720 3 29*t61*t63*t74-6.356503479982097d-1*t161*t162*t407*t59*t6 7721 4 3*t74-1.2713006959964196d+0*t161*t162*t169*t63*t74-8.1726 7722 5 47331405554d-1*t170*t195*t307*t59*t61*t69*t70+7.421351600 7723 6 392256d-2*t191*t336*t337*t59*t67*t70-3.710675800196128d-2 7724 7 *t170*t191*t335*t59*t67*t70+1.7316487067581934d-1*t161*t1 7725 8 70*t172*t176*t59*t67*t70+5.448431554270369d-1*t160*t170*t 7726 9 409*t59*t61*t64*t69-1.0896863108540737d+0*t160*t176*t195* 7727 : t336*t59*t61*t64*t69+2.7242157771351844d-1*t170*t195*t310 7728 ; *t59*t61*t64*t69+1.0896863108540737d+0*t160*t170*t176*t61 7729 < *t64*t69-1.2713006959964196d+0*t160*t161*t162*t170*t195*t 7730 = 59*t64*t69-8.172647331405554d-1*t195*t337*t587*t59*t61*t6 7731 > 3*t69+5.448431554270369d-1*t176*t336*t409*t59*t61*t63*t69 7732 ? +2.7242157771351844d-1*t195*t335*t336*t59*t61*t63*t69+5.4 7733 @ 48431554270369d-1*t336*t337*t61*t63*t69-2.724215777135184 7734 1 4d-1*t170*t335*t61*t63*t69+6.356503479982097d-1*t161*t162 7735 2 *t170*t409*t59*t63*t69-1.2713006959964196d+0*t161*t162*t1 7736 3 76*t195*t336*t59*t63*t69+1.2713006959964196d+0*t161*t162* 7737 4 t170*t176*t63*t69+1.4842703200784513d-1*t160*t170*t174*t1 7738 5 76*t191*t59*t67+5.448431554270369d-1*t160*t169*t170*t195* 7739 6 t59*t61*t64-2.7242157771351844d-1*t169*t170*t409*t59*t61* 7740 7 t63-2.7242157771351844d-1*t170*t176*t407*t59*t61*t63+5.44 7741 8 8431554270369d-1*t169*t176*t195*t336*t59*t61*t63-1.362107 7742 9 8885675922d-1*t170*t195*t329*t59*t61*t63-5.44843155427036 7743 : 9d-1*t169*t170*t176*t61*t63+6.356503479982097d-1*t161*t16 7744 ; 2*t169*t170*t195*t59*t63)*t89+1.8654414521792934d-1*t1*t1 7745 < 60*t410*t62*t89+9.327207260896466d-2*t1*t196*t310*t62*t89 7746 = +1.8654414521792934d-1*t160*t196*t62*t89+6.21813817393097 7747 > 8d-2*t410*t58*t89+1.8654414521792934d-1*t1*t196*t307*t57* 7748 ? t89+t776+t775+1.8654414521792934d-1*t1*t155*t160*t196*t62 7749 @ +6.218138173930978d-2*t1*t155*t410*t58)+t305*(-6.21813817 7750 1 3930978d-2*t1*t177*t410*t58*t89-t196*t339)+6.218138173930 7751 2 978d-2*t1*t196*t306*t537*t58*t89)*wght+Cmat3(iq,D3_RA_RA_ 7752 3 GAB) 7753 Cmat3(iq,D3_RA_RA_GBB) = t774+Cmat3(iq,D3_RA_RA_GBB) 7754 Cmat3(iq,D3_RA_RB_GAA) = t806+Cmat3(iq,D3_RA_RB_GAA) 7755 Cmat3(iq,D3_RA_RB_GAB) = 1.0d+0*(t157*(3.109069086965489d-2* 7756 1 t1*t58*(-1.3621078885675922d-1*t170*t59*t61*t63*t69*(t822 7757 2 +t821+t820+t819+t818+t817+t816+t815+t814+t813+t812+t794+t 7758 3 793+t787+t786+t773+t770+t767+t762-2.9685406401569026d-1*t 7759 4 174*t191*t343*t59*t72+1.4842703200784513d+0*t160*t184*t19 7760 5 1*t333*t59*t72-1.4842703200784513d-1*t175*t191*t348*t59*t 7761 6 65*t70-1.4842703200784513d-1*t167*t175*t186*t191*t59*t65* 7762 7 t70+4.452810960235354d-1*t167*t186*t191*t324*t334*t59*t70 7763 8 +5.937081280313805d-1*t160*t174*t175*t186*t191*t59*t65+5. 7764 9 937081280313805d-1*t167*t174*t175*t184*t191*t59*t65)+1.36 7765 : 21078885675922d-1*t59*t61*t63*t74*(t820+t819+t818+t817+t8 7766 ; 16+t815+t814+t813+t812+t787+t786+t767+t762)+t811+t810+t80 7767 < 9+t808+t807+t782+t781+t780+t779+t778+t777+t759+t758+t757+ 7768 = t754+t751+1.6345294662811108d+0*t160*t184*t61*t69*t70*t74 7769 > -5.448431554270369d-1*t343*t61*t64*t69*t74-7.421351600392 7770 ? 256d-2*t174*t191*t343*t59*t67*t74+2.2264054801176772d-1*t 7771 @ 160*t184*t191*t333*t59*t67*t74-2.7242157771351844d-1*t160 7772 1 *t421*t59*t61*t64*t74-2.7242157771351844d-1*t184*t407*t59 7773 2 *t61*t64*t74-5.448431554270369d-1*t160*t188*t61*t64*t74-5 7774 3 .448431554270369d-1*t169*t184*t61*t64*t74+2.7242157771351 7775 4 844d-1*t356*t61*t63*t74-3.1782517399910487d-1*t161*t162*t 7776 5 421*t59*t63*t74-3.1782517399910487d-1*t161*t162*t407*t59* 7777 6 t63*t74-8.172647331405554d-1*t160*t170*t184*t195*t59*t61* 7778 7 t69*t70-3.710675800196128d-2*t170*t191*t357*t59*t67*t70+7 7779 8 .421351600392256d-2*t176*t189*t191*t336*t59*t67*t70+2.724 7780 9 2157771351844d-1*t160*t170*t422*t59*t61*t64*t69+2.7242157 7781 : 771351844d-1*t170*t184*t409*t59*t61*t64*t69+2.72421577713 7782 ; 51844d-1*t170*t195*t343*t59*t61*t64*t69-5.448431554270369 7783 < d-1*t160*t189*t195*t336*t59*t61*t64*t69-5.448431554270369 7784 = d-1*t176*t184*t195*t336*t59*t61*t64*t69+5.448431554270369 7785 > d-1*t160*t170*t189*t61*t64*t69+5.448431554270369d-1*t170* 7786 ? t176*t184*t61*t64*t69-6.356503479982097d-1*t161*t162*t170 7787 @ *t184*t195*t59*t64*t69-6.356503479982097d-1*t160*t161*t16 7788 1 2*t170*t195*t59*t64*t69-8.172647331405554d-1*t176*t189*t1 7789 2 95*t587*t59*t61*t63*t69+2.7242157771351844d-1*t176*t336*t 7790 3 422*t59*t61*t63*t69+2.7242157771351844d-1*t189*t336*t409* 7791 4 t59*t61*t63*t69+2.7242157771351844d-1*t195*t336*t357*t59* 7792 5 t61*t63*t69-2.7242157771351844d-1*t170*t357*t61*t63*t69+5 7793 6 .448431554270369d-1*t176*t189*t336*t61*t63*t69+3.17825173 7794 7 99910487d-1*t161*t162*t170*t422*t59*t63*t69+3.17825173999 7795 8 10487d-1*t161*t162*t170*t409*t59*t63*t69-6.35650347998209 7796 9 7d-1*t161*t162*t189*t195*t336*t59*t63*t69-6.3565034799820 7797 : 97d-1*t161*t162*t176*t195*t336*t59*t63*t69+7.421351600392 7798 ; 256d-2*t160*t170*t174*t189*t191*t59*t67+7.421351600392256 7799 < d-2*t170*t174*t176*t184*t191*t59*t67+2.7242157771351844d- 7800 = 1*t160*t170*t188*t195*t59*t61*t64+2.7242157771351844d-1*t 7801 > 169*t170*t184*t195*t59*t61*t64-1.3621078885675922d-1*t169 7802 ? *t170*t422*t59*t61*t63-1.3621078885675922d-1*t170*t176*t4 7803 @ 21*t59*t61*t63-1.3621078885675922d-1*t170*t188*t409*t59*t 7804 1 61*t63-1.3621078885675922d-1*t170*t189*t407*t59*t61*t63-1 7805 2 .3621078885675922d-1*t170*t195*t356*t59*t61*t63+2.7242157 7806 3 771351844d-1*t169*t189*t195*t336*t59*t61*t63+2.7242157771 7807 4 351844d-1*t176*t188*t195*t336*t59*t61*t63-2.7242157771351 7808 5 844d-1*t169*t170*t189*t61*t63-2.7242157771351844d-1*t170* 7809 6 t176*t188*t61*t63+3.1782517399910487d-1*t161*t162*t170*t1 7810 7 88*t195*t59*t63+3.1782517399910487d-1*t161*t162*t169*t170 7811 8 *t195*t59*t63)*t89+9.327207260896466d-2*t1*t160*t423*t62* 7812 9 t89+9.327207260896466d-2*t1*t184*t410*t62*t89+9.327207260 7813 : 896466d-2*t1*t196*t343*t62*t89+9.327207260896466d-2*t184* 7814 ; t196*t62*t89+9.327207260896466d-2*t160*t196*t62*t89+3.109 7815 < 069086965489d-2*t423*t58*t89+3.109069086965489d-2*t410*t5 7816 = 8*t89+1.8654414521792934d-1*t1*t160*t184*t196*t57*t89+t77 7817 > 6+t775+9.327207260896466d-2*t1*t155*t184*t196*t62+9.32720 7818 ? 7260896466d-2*t1*t155*t160*t196*t62+3.109069086965489d-2* 7819 @ t1*t155*t423*t58+3.109069086965489d-2*t1*t155*t410*t58)+t 7820 1 305*(-3.109069086965489d-2*t1*t177*t423*t58*t89-3.1090690 7821 2 86965489d-2*t1*t190*t410*t58*t89-t196*t359)+6.21813817393 7822 3 0978d-2*t1*t177*t190*t196*t537*t58*t89)*wght+Cmat3(iq,D3_ 7823 4 RA_RB_GAB) 7824 Cmat3(iq,D3_RA_RB_GBB) = t806+Cmat3(iq,D3_RA_RB_GBB) 7825 Cmat3(iq,D3_RB_RB_GAA) = t829+Cmat3(iq,D3_RB_RB_GAA) 7826 Cmat3(iq,D3_RB_RB_GAB) = 1.0d+0*(t157*(3.109069086965489d-2* 7827 1 t1*t58*(-1.3621078885675922d-1*t170*t59*t61*t63*t69*(t837 7828 2 +t836+t835+t834+t833+t832+t831+t830+t794+t793+t787+t786-2 7829 3 .9685406401569026d-1*t174*t191*t369*t59*t72+1.48427032007 7830 4 84513d+0*t191*t333*t368*t59*t72+2.770637930813109d+0*t161 7831 5 *t172*t174*t184*t59*t72-1.4842703200784513d-1*t175*t191*t 7832 6 377*t59*t65*t70-1.4842703200784513d-1*t175*t191*t373*t59* 7833 7 t65*t70+1.3853189654065545d+0*t161*t172*t175*t186*t59*t65 7834 8 *t70+4.452810960235354d-1*t191*t324*t334*t377*t59*t70+1.1 7835 9 87416256062761d+0*t174*t175*t184*t186*t191*t59*t65)+1.362 7836 : 1078885675922d-1*t59*t61*t63*t74*(t837+t836+t835+t834+t83 7837 ; 3+t832+t831+t830+t787+t786)+t782+t781+t780+t779+t778+t777 7838 < +1.6345294662811108d+0*t368*t61*t69*t70*t74-5.44843155427 7839 = 0369d-1*t369*t61*t64*t69*t74+2.542601391992839d+0*t161*t1 7840 > 62*t184*t64*t69*t74-7.421351600392256d-2*t174*t191*t369*t 7841 ? 59*t67*t74+2.2264054801176772d-1*t191*t333*t368*t59*t67*t 7842 @ 74+3.463297413516387d-1*t161*t172*t174*t184*t59*t67*t74-5 7843 1 .448431554270369d-1*t184*t421*t59*t61*t64*t74-1.089686310 7844 2 8540737d+0*t184*t188*t61*t64*t74+2.7242157771351844d-1*t3 7845 3 80*t61*t63*t74-6.356503479982097d-1*t161*t162*t421*t59*t6 7846 4 3*t74-1.2713006959964196d+0*t161*t162*t188*t63*t74-8.1726 7847 5 47331405554d-1*t170*t195*t368*t59*t61*t69*t70+7.421351600 7848 6 392256d-2*t191*t336*t382*t59*t67*t70-3.710675800196128d-2 7849 7 *t170*t191*t381*t59*t67*t70+1.7316487067581934d-1*t161*t1 7850 8 70*t172*t189*t59*t67*t70+5.448431554270369d-1*t170*t184*t 7851 9 422*t59*t61*t64*t69+2.7242157771351844d-1*t170*t195*t369* 7852 : t59*t61*t64*t69-1.0896863108540737d+0*t184*t189*t195*t336 7853 ; *t59*t61*t64*t69+1.0896863108540737d+0*t170*t184*t189*t61 7854 < *t64*t69-1.2713006959964196d+0*t161*t162*t170*t184*t195*t 7855 = 59*t64*t69-8.172647331405554d-1*t195*t382*t587*t59*t61*t6 7856 > 3*t69+5.448431554270369d-1*t189*t336*t422*t59*t61*t63*t69 7857 ? +2.7242157771351844d-1*t195*t336*t381*t59*t61*t63*t69+5.4 7858 @ 48431554270369d-1*t336*t382*t61*t63*t69-2.724215777135184 7859 1 4d-1*t170*t381*t61*t63*t69+6.356503479982097d-1*t161*t162 7860 2 *t170*t422*t59*t63*t69-1.2713006959964196d+0*t161*t162*t1 7861 3 89*t195*t336*t59*t63*t69+1.2713006959964196d+0*t161*t162* 7862 4 t170*t189*t63*t69+1.4842703200784513d-1*t170*t174*t184*t1 7863 5 89*t191*t59*t67+5.448431554270369d-1*t170*t184*t188*t195* 7864 6 t59*t61*t64-2.7242157771351844d-1*t170*t188*t422*t59*t61* 7865 7 t63-2.7242157771351844d-1*t170*t189*t421*t59*t61*t63-1.36 7866 8 21078885675922d-1*t170*t195*t380*t59*t61*t63+5.4484315542 7867 9 70369d-1*t188*t189*t195*t336*t59*t61*t63-5.44843155427036 7868 : 9d-1*t170*t188*t189*t61*t63+6.356503479982097d-1*t161*t16 7869 ; 2*t170*t188*t195*t59*t63)*t89+1.8654414521792934d-1*t1*t1 7870 < 84*t423*t62*t89+9.327207260896466d-2*t1*t196*t369*t62*t89 7871 = +1.8654414521792934d-1*t184*t196*t62*t89+6.21813817393097 7872 > 8d-2*t423*t58*t89+1.8654414521792934d-1*t1*t196*t368*t57* 7873 ? t89+t776+t775+1.8654414521792934d-1*t1*t155*t184*t196*t62 7874 @ +6.218138173930978d-2*t1*t155*t423*t58)+t305*(-6.21813817 7875 1 3930978d-2*t1*t190*t423*t58*t89-t196*t384)+6.218138173930 7876 2 978d-2*t1*t196*t367*t537*t58*t89)*wght+Cmat3(iq,D3_RB_RB_ 7877 3 GAB) 7878 Cmat3(iq,D3_RB_RB_GBB) = t829+Cmat3(iq,D3_RB_RB_GBB) 7879 Cmat3(iq,D3_RA_GAA_GAA) = t854+Cmat3(iq,D3_RA_GAA_GAA) 7880 Cmat3(iq,D3_RA_GAA_GAB) = 1.0d+0*(t305*(-3.109069086965489d- 7881 1 2*t1*t193*t410*t58*t89+t865-t196*t397)+t864+t855)*wght+Cm 7882 2 at3(iq,D3_RA_GAA_GAB) 7883 Cmat3(iq,D3_RA_GAA_GBB) = t854+Cmat3(iq,D3_RA_GAA_GBB) 7884 Cmat3(iq,D3_RA_GAB_GAB) = 1.0d+0*(t157*(3.109069086965489d-2 7885 1 *t1*t58*(-1.3621078885675922d-1*t170*t59*t61*t63*t69*(t87 7886 2 3-5.937081280313805d-1*t160*t174*t191*t72-2.9685406401569 7887 3 026d-1*t167*t175*t191*t65*t70)+t872+t871+t870+t869+t868-2 7888 4 .9685406401569026d-1*t160*t174*t191*t67*t74+5.44843155427 7889 5 0369d-1*t407*t61*t63*t74+4.043472623491207d-2*t160*t170*t 7890 6 330*t585*t59*t69*t72+4.043472623491207d-2*t176*t330*t333* 7891 7 t336*t59*t69*t72-2.0217363117456036d-2*t169*t170*t330*t33 7892 8 3*t59*t72-7.421351600392256d-2*t170*t191*t409*t59*t67*t70 7893 9 +1.4842703200784513d-1*t176*t191*t195*t336*t59*t67*t70-1. 7894 : 4842703200784513d-1*t170*t176*t191*t67*t70-5.448431554270 7895 ; 369d-1*t160*t336*t434*t59*t61*t64*t69+1.0896863108540737d 7896 < +0*t160*t170*t195*t61*t64*t69-8.172647331405554d-1*t176*t 7897 = 434*t587*t59*t61*t63*t69+5.448431554270369d-1*t195*t336*t 7898 > 409*t59*t61*t63*t69-5.448431554270369d-1*t170*t409*t61*t6 7899 ? 3*t69+1.0896863108540737d+0*t176*t195*t336*t61*t63*t69+1. 7900 @ 4842703200784513d-1*t160*t170*t174*t191*t195*t59*t67+2.72 7901 1 42157771351844d-1*t169*t336*t434*t59*t61*t63-2.7242157771 7902 2 351844d-1*t170*t195*t407*t59*t61*t63-5.448431554270369d-1 7903 3 *t169*t170*t195*t61*t63)*t89+9.327207260896466d-2*t1*t160 7904 4 *t435*t62*t89+t867+t866)+t305*(-3.109069086965489d-2*t1*t 7905 5 177*t435*t58*t89-3.109069086965489d-2*t1*t196*t410*t58*t8 7906 6 9-t196*t411)+6.218138173930978d-2*t1*t177*t433*t537*t58*t 7907 7 89)*wght+Cmat3(iq,D3_RA_GAB_GAB) 7908 Cmat3(iq,D3_RA_GAB_GBB) = 1.0d+0*(t305*(-3.109069086965489d- 7909 1 2*t1*t196*t396*t58*t89+t865-t193*t411)+t864+t855)*wght+Cm 7910 2 at3(iq,D3_RA_GAB_GBB) 7911 Cmat3(iq,D3_RA_GBB_GBB) = t854+Cmat3(iq,D3_RA_GBB_GBB) 7912 Cmat3(iq,D3_RB_GAA_GAA) = t882+Cmat3(iq,D3_RB_GAA_GAA) 7913 Cmat3(iq,D3_RB_GAA_GAB) = 1.0d+0*(t305*(-3.109069086965489d- 7914 1 2*t1*t193*t423*t58*t89+t885-t196*t417)+t884+t883)*wght+Cm 7915 2 at3(iq,D3_RB_GAA_GAB) 7916 Cmat3(iq,D3_RB_GAA_GBB) = t882+Cmat3(iq,D3_RB_GAA_GBB) 7917 Cmat3(iq,D3_RB_GAB_GAB) = 1.0d+0*(t157*(3.109069086965489d-2 7918 1 *t1*t58*(-1.3621078885675922d-1*t170*t59*t61*t63*t69*(t87 7919 2 3-5.937081280313805d-1*t174*t184*t191*t72-2.9685406401569 7920 3 026d-1*t175*t186*t191*t65*t70)+t872+t871+t870+t869+t868-2 7921 4 .9685406401569026d-1*t174*t184*t191*t67*t74+5.44843155427 7922 5 0369d-1*t421*t61*t63*t74+4.043472623491207d-2*t170*t184*t 7923 6 330*t585*t59*t69*t72+4.043472623491207d-2*t189*t330*t333* 7924 7 t336*t59*t69*t72-2.0217363117456036d-2*t170*t188*t330*t33 7925 8 3*t59*t72-7.421351600392256d-2*t170*t191*t422*t59*t67*t70 7926 9 +1.4842703200784513d-1*t189*t191*t195*t336*t59*t67*t70-1. 7927 : 4842703200784513d-1*t170*t189*t191*t67*t70-5.448431554270 7928 ; 369d-1*t184*t336*t434*t59*t61*t64*t69+1.0896863108540737d 7929 < +0*t170*t184*t195*t61*t64*t69-8.172647331405554d-1*t189*t 7930 = 434*t587*t59*t61*t63*t69+5.448431554270369d-1*t195*t336*t 7931 > 422*t59*t61*t63*t69-5.448431554270369d-1*t170*t422*t61*t6 7932 ? 3*t69+1.0896863108540737d+0*t189*t195*t336*t61*t63*t69+1. 7933 @ 4842703200784513d-1*t170*t174*t184*t191*t195*t59*t67+2.72 7934 1 42157771351844d-1*t188*t336*t434*t59*t61*t63-2.7242157771 7935 2 351844d-1*t170*t195*t421*t59*t61*t63-5.448431554270369d-1 7936 3 *t170*t188*t195*t61*t63)*t89+9.327207260896466d-2*t1*t184 7937 4 *t435*t62*t89+t867+t866)+t305*(-3.109069086965489d-2*t1*t 7938 5 190*t435*t58*t89-3.109069086965489d-2*t1*t196*t423*t58*t8 7939 6 9-t196*t424)+6.218138173930978d-2*t1*t190*t433*t537*t58*t 7940 7 89)*wght+Cmat3(iq,D3_RB_GAB_GAB) 7941 Cmat3(iq,D3_RB_GAB_GBB) = 1.0d+0*(t305*(-3.109069086965489d- 7942 1 2*t1*t196*t416*t58*t89+t885-t193*t424)+t884+t883)*wght+Cm 7943 2 at3(iq,D3_RB_GAB_GBB) 7944 Cmat3(iq,D3_RB_GBB_GBB) = t882+Cmat3(iq,D3_RB_GBB_GBB) 7945 Cmat3(iq,D3_GAA_GAA_GAA) = t888+Cmat3(iq,D3_GAA_GAA_GAA) 7946 Cmat3(iq,D3_GAA_GAA_GAB) = t891+Cmat3(iq,D3_GAA_GAA_GAB) 7947 Cmat3(iq,D3_GAA_GAA_GBB) = t888+Cmat3(iq,D3_GAA_GAA_GBB) 7948 Cmat3(iq,D3_GAA_GAB_GAB) = t892+Cmat3(iq,D3_GAA_GAB_GAB) 7949 Cmat3(iq,D3_GAA_GAB_GBB) = t891+Cmat3(iq,D3_GAA_GAB_GBB) 7950 Cmat3(iq,D3_GAA_GBB_GBB) = t888+Cmat3(iq,D3_GAA_GBB_GBB) 7951 Cmat3(iq,D3_GAB_GAB_GAB) = 3.109069086965489d-2*t1*t157*t58* 7952 1 (-1.6522937872993412d-2*t170*t175*t59*t886*t887+1.2130417 7953 2 870473623d-1*t195*t330*t333*t336*t59*t69*t72-1.2130417870 7954 3 473623d-1*t170*t330*t333*t69*t72+2.226405480117677d-1*t19 7955 4 1*t336*t434*t59*t67*t70-4.452810960235354d-1*t170*t191*t1 7956 5 95*t67*t70-8.172647331405554d-1*t195**3*t587*t59*t61*t63* 7957 6 t69+1.6345294662811108d+0*t336*t434*t61*t63*t69)*t89*wght 7958 7 +6.218138173930978d-2*t1*t196**3*t537*t58*t89*wght-9.3272 7959 8 07260896466d-2*t1*t196*t305*t435*t58*t89*wght+Cmat3(iq,D3 7960 9 _GAB_GAB_GAB) 7961 Cmat3(iq,D3_GAB_GAB_GBB) = t892+Cmat3(iq,D3_GAB_GAB_GBB) 7962 Cmat3(iq,D3_GAB_GBB_GBB) = t891+Cmat3(iq,D3_GAB_GBB_GBB) 7963 Cmat3(iq,D3_GBB_GBB_GBB) = t888+Cmat3(iq,D3_GBB_GBB_GBB) 7964 Mmat3(iq,D3_RA_RA_TA) = t898+Mmat3(iq,D3_RA_RA_TA) 7965 Mmat3(iq,D3_RA_RA_TB) = t898+Mmat3(iq,D3_RA_RA_TB) 7966 Mmat3(iq,D3_RA_RB_TA) = t899+Mmat3(iq,D3_RA_RB_TA) 7967 Mmat3(iq,D3_RA_RB_TB) = t899+Mmat3(iq,D3_RA_RB_TB) 7968 Mmat3(iq,D3_RB_RB_TA) = t900+Mmat3(iq,D3_RB_RB_TA) 7969 Mmat3(iq,D3_RB_RB_TB) = t900+Mmat3(iq,D3_RB_RB_TB) 7970 Mmat3(iq,D3_RA_GAA_TA) = t903+Mmat3(iq,D3_RA_GAA_TA) 7971 Mmat3(iq,D3_RA_GAA_TB) = t903+Mmat3(iq,D3_RA_GAA_TB) 7972 Mmat3(iq,D3_RA_GAB_TA) = t906+Mmat3(iq,D3_RA_GAB_TA) 7973 Mmat3(iq,D3_RA_GAB_TB) = t906+Mmat3(iq,D3_RA_GAB_TB) 7974 Mmat3(iq,D3_RA_GBB_TA) = t903+Mmat3(iq,D3_RA_GBB_TA) 7975 Mmat3(iq,D3_RA_GBB_TB) = t903+Mmat3(iq,D3_RA_GBB_TB) 7976 Mmat3(iq,D3_RB_GAA_TA) = t907+Mmat3(iq,D3_RB_GAA_TA) 7977 Mmat3(iq,D3_RB_GAA_TB) = t907+Mmat3(iq,D3_RB_GAA_TB) 7978 Mmat3(iq,D3_RB_GAB_TA) = t908+Mmat3(iq,D3_RB_GAB_TA) 7979 Mmat3(iq,D3_RB_GAB_TB) = t908+Mmat3(iq,D3_RB_GAB_TB) 7980 Mmat3(iq,D3_RB_GBB_TA) = t907+Mmat3(iq,D3_RB_GBB_TA) 7981 Mmat3(iq,D3_RB_GBB_TB) = t907+Mmat3(iq,D3_RB_GBB_TB) 7982 Mmat3(iq,D3_RA_TA_TA) = t909+Mmat3(iq,D3_RA_TA_TA) 7983 Mmat3(iq,D3_RA_TA_TB) = t909+Mmat3(iq,D3_RA_TA_TB) 7984 Mmat3(iq,D3_RA_TB_TB) = t910+Mmat3(iq,D3_RA_TB_TB) 7985 Mmat3(iq,D3_RB_TA_TA) = t910+Mmat3(iq,D3_RB_TA_TA) 7986 Mmat3(iq,D3_RB_TA_TB) = t909+Mmat3(iq,D3_RB_TA_TB) 7987 Mmat3(iq,D3_RB_TB_TB) = t909+Mmat3(iq,D3_RB_TB_TB) 7988 Mmat3(iq,D3_GAA_GAA_TA) = t911+Mmat3(iq,D3_GAA_GAA_TA) 7989 Mmat3(iq,D3_GAA_GAA_TB) = t911+Mmat3(iq,D3_GAA_GAA_TB) 7990 Mmat3(iq,D3_GAA_GAB_TA) = t910+Mmat3(iq,D3_GAA_GAB_TA) 7991 Mmat3(iq,D3_GAA_GAB_TB) = t910+Mmat3(iq,D3_GAA_GAB_TB) 7992 Mmat3(iq,D3_GAA_GBB_TA) = t909+Mmat3(iq,D3_GAA_GBB_TA) 7993 Mmat3(iq,D3_GAA_GBB_TB) = t909+Mmat3(iq,D3_GAA_GBB_TB) 7994 Mmat3(iq,D3_GAB_GAB_TA) = t913+Mmat3(iq,D3_GAB_GAB_TA) 7995 Mmat3(iq,D3_GAB_GAB_TB) = t913+Mmat3(iq,D3_GAB_GAB_TB) 7996 Mmat3(iq,D3_GAB_GBB_TA) = t913+Mmat3(iq,D3_GAB_GBB_TA) 7997 Mmat3(iq,D3_GAB_GBB_TB) = t914+Mmat3(iq,D3_GAB_GBB_TB) 7998 Mmat3(iq,D3_GBB_GBB_TA) = t914+Mmat3(iq,D3_GBB_GBB_TA) 7999 Mmat3(iq,D3_GBB_GBB_TB) = t914+Mmat3(iq,D3_GBB_GBB_TB) 8000 Mmat3(iq,D3_GAA_TA_TA) = t913+Mmat3(iq,D3_GAA_TA_TA) 8001 Mmat3(iq,D3_GAA_TA_TB) = t913+Mmat3(iq,D3_GAA_TA_TB) 8002 Mmat3(iq,D3_GAA_TB_TB) = t913+Mmat3(iq,D3_GAA_TB_TB) 8003 Mmat3(iq,D3_GAB_TA_TA) = t915+Mmat3(iq,D3_GAB_TA_TA) 8004 Mmat3(iq,D3_GAB_TA_TB) = t915+Mmat3(iq,D3_GAB_TA_TB) 8005 Mmat3(iq,D3_GAB_TB_TB) = t915+Mmat3(iq,D3_GAB_TB_TB) 8006 Mmat3(iq,D3_GBB_TA_TA) = t915+Mmat3(iq,D3_GBB_TA_TA) 8007 elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then 8008 t1 = rhoa**3.333333333333333d-1 8009 t2 = t1**5.0d-1 8010 t3 = 1/t2 8011 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 8012 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 8013 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 8014 t7 = 1/t6 8015 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 8016 t9 = log(t8) 8017 t10 = 1/t1 8018 t11 = 1.2746961887000874d-1*t10+1.0d+0 8019 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 8020 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 8021 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 8022 t15 = 1/t14 8023 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 8024 t17 = log(t16) 8025 t18 = 1.325688999052018d-1*t10+1.0d+0 8026 t19 = 9.999999999999991d-1*(6.21814d-2*t17*t18-3.10907d-2*t1 8027 1 1*t9)-6.21814d-2*t17*t18 8028 t20 = 2.871234000188191d+0*rhoa**1.6666666666666669d+0 8029 t21 = -taub-taua+t20 8030 t22 = taub+taua+t20 8031 t23 = 1/t22 8032 t24 = param(12) 8033 t25 = t21*t23*t24+param(11) 8034 t26 = t21*t23*t25+param(10) 8035 t27 = t21*t23*t26+param(9) 8036 t28 = t21*t23*t27+param(8) 8037 t29 = t21*t23*t28+param(7) 8038 t30 = t21*t23*t29+param(6) 8039 t31 = t21*t23*t30+param(5) 8040 t32 = t21*t23*t31+param(4) 8041 t33 = t21*t23*t32+param(3) 8042 t34 = t21*t23*t33+param(2) 8043 t35 = t21*t23*t34+param(1) 8044 t36 = rhoa**1.1666666666666667d+0 8045 t37 = 1/t36**2.0d+0 8046 t38 = exp(-6.432793688582967d+1*t19) 8047 t39 = t38-1.0d+0 8048 t40 = 1/t39 8049 t41 = 2.1622114952063792d-1*gammaaa*t37*t40 8050 t42 = t41+1.0d+0 8051 t43 = (gammaaa*t37)**2.0d+0 8052 t44 = 1/t39**2.0d+0 8053 t45 = 4.675158550002606d-2*t43*t44+t41+1.0d+0 8054 t46 = 1/t45 8055 t47 = 2.1622114952063792d-1*gammaaa*t37*t42*t46+1.0d+0 8056 t48 = log(t47) 8057 t49 = param(14) 8058 t50 = param(24) 8059 t51 = t21*t23*t50+param(23) 8060 t52 = t21*t23*t51+param(22) 8061 t53 = t21*t23*t52+param(21) 8062 t54 = t21*t23*t53+param(20) 8063 t55 = t21*t23*t54+param(19) 8064 t56 = t21*t23*t55+param(18) 8065 t57 = t21*t23*t56+param(17) 8066 t58 = t21*t23*t57+param(16) 8067 t59 = t21*t23*t58+param(15) 8068 t60 = t21*t23*t59+t49 8069 t61 = t21*t23*t60+param(13) 8070 t62 = rhoa**6.666666666666666d-1 8071 t63 = 1/t22**2 8072 t64 = 4.785390000313652d+0*t23*t24*t62-4.785390000313652d+0* 8073 1 t21*t24*t62*t63 8074 t65 = t21*t23*t64-4.785390000313652d+0*t21*t25*t62*t63+4.785 8075 1 390000313652d+0*t23*t25*t62 8076 t66 = t21*t23*t65-4.785390000313652d+0*t21*t26*t62*t63+4.785 8077 1 390000313652d+0*t23*t26*t62 8078 t67 = t21*t23*t66-4.785390000313652d+0*t21*t27*t62*t63+4.785 8079 1 390000313652d+0*t23*t27*t62 8080 t68 = t21*t23*t67-4.785390000313652d+0*t21*t28*t62*t63+4.785 8081 1 390000313652d+0*t23*t28*t62 8082 t69 = t21*t23*t68-4.785390000313652d+0*t21*t29*t62*t63+4.785 8083 1 390000313652d+0*t23*t29*t62 8084 t70 = t21*t23*t69-4.785390000313652d+0*t21*t30*t62*t63+4.785 8085 1 390000313652d+0*t23*t30*t62 8086 t71 = t21*t23*t70-4.785390000313652d+0*t21*t31*t62*t63+4.785 8087 1 390000313652d+0*t23*t31*t62 8088 t72 = t21*t23*t71-4.785390000313652d+0*t21*t32*t62*t63+4.785 8089 1 390000313652d+0*t23*t32*t62 8090 t73 = t21*t23*t72-4.785390000313652d+0*t21*t33*t62*t63+4.785 8091 1 390000313652d+0*t23*t33*t62 8092 t74 = t21*t23*t73-4.785390000313652d+0*t21*t34*t62*t63+4.785 8093 1 390000313652d+0*t23*t34*t62 8094 t75 = 1/rhoa**1.3333333333333333d+0 8095 t76 = 1/t8 8096 t77 = 1/t6**2 8097 t78 = 1/rhoa**1.3333333333333336d+0 8098 t79 = 1/t2**3 8099 t80 = 1/rhoa**6.666666666666667d-1 8100 t81 = -1.3127055298329054d-1*t4*t79*t80-2.0096226153166658d- 8101 1 3*t78 8102 t82 = 7.876233178997433d-1*t3*t81-1.3127055298329054d-1*t5*t 8103 1 79*t80 8104 t83 = 2.11607075208357d-1*t3*t7*t80-1.269642451250142d+0*t2* 8105 1 t77*t82 8106 t84 = 1/t16 8107 t85 = 1/t14**2 8108 t86 = -1.3127055298329054d-1*t12*t79*t80-3.169132786263567d- 8109 1 3*t78 8110 t87 = 7.876233178997433d-1*t3*t86-1.3127055298329054d-1*t13* 8111 1 t79*t80 8112 t88 = 2.11607075208357d-1*t15*t3*t80-1.269642451250142d+0*t2 8113 1 *t85*t87 8114 t89 = 9.999999999999991d-1*(1.3210398931339265d-3*t75*t9+6.2 8115 1 1814d-2*t18*t84*t88-3.10907d-2*t11*t76*t83-2.747773264188 8116 2 438d-3*t17*t75)-6.21814d-2*t18*t84*t88+2.747773264188438d 8117 3 -3*t17*t75 8118 t90 = 4.785390000313652d+0*t23*t50*t62-4.785390000313652d+0* 8119 1 t21*t50*t62*t63 8120 t91 = t21*t23*t90-4.785390000313652d+0*t21*t51*t62*t63+4.785 8121 1 390000313652d+0*t23*t51*t62 8122 t92 = t21*t23*t91-4.785390000313652d+0*t21*t52*t62*t63+4.785 8123 1 390000313652d+0*t23*t52*t62 8124 t93 = t21*t23*t92-4.785390000313652d+0*t21*t53*t62*t63+4.785 8125 1 390000313652d+0*t23*t53*t62 8126 t94 = t21*t23*t93-4.785390000313652d+0*t21*t54*t62*t63+4.785 8127 1 390000313652d+0*t23*t54*t62 8128 t95 = t21*t23*t94-4.785390000313652d+0*t21*t55*t62*t63+4.785 8129 1 390000313652d+0*t23*t55*t62 8130 t96 = t21*t23*t95-4.785390000313652d+0*t21*t56*t62*t63+4.785 8131 1 390000313652d+0*t23*t56*t62 8132 t97 = t21*t23*t96-4.785390000313652d+0*t21*t57*t62*t63+4.785 8133 1 390000313652d+0*t23*t57*t62 8134 t98 = t21*t23*t97-4.785390000313652d+0*t21*t58*t62*t63+4.785 8135 1 390000313652d+0*t23*t58*t62 8136 t99 = t21*t23*t98-4.785390000313652d+0*t21*t59*t62*t63+4.785 8137 1 390000313652d+0*t23*t59*t62 8138 t100 = t21*t23*t99-4.785390000313652d+0*t21*t60*t62*t63+4.78 8139 1 5390000313652d+0*t23*t60*t62 8140 t101 = 1/t47 8141 t102 = rhoa**1.6666666666666674d-1 8142 t103 = 1/t36**3.0d+0 8143 t104 = -5.045160155481552d-1*gammaaa*t102*t103*t40 8144 t105 = 1/t39**2 8145 t106 = 1.3909060459745137d+1*gammaaa*t105*t37*t38*t89 8146 t107 = t106+t104 8147 t108 = 1/t45**2 8148 t109 = gammaaa**2 8149 t110 = 1/t36**5.0d+0 8150 t111 = 1/t39**3.0d+0 8151 t112 = 6.014866082716293d+0*t111*t38*t43*t89-2.1817406566678 8152 1 83d-1*t102*t109*t110*t44+t106+t104 8153 t113 = -5.045160155481552d-1*gammaaa*t102*t103*t42*t46+2.162 8154 1 2114952063792d-1*gammaaa*t107*t37*t46-2.1622114952063792d 8155 2 -1*gammaaa*t108*t112*t37*t42 8156 t114 = 1/t36**4.0d+0 8157 t115 = 9.350317100005212d-2*gammaaa*t114*t44+2.1622114952063 8158 1 792d-1*t37*t40 8159 t116 = 2.1622114952063792d-1*t37*t42*t46+4.675158550002606d- 8160 1 2*gammaaa*t114*t40*t46-2.1622114952063792d-1*gammaaa*t108 8161 2 *t115*t37*t42 8162 t117 = -t21*t24*t63-t23*t24 8163 t118 = -t21*t25*t63-t23*t25+t117*t21*t23 8164 t119 = -t21*t26*t63-t23*t26+t118*t21*t23 8165 t120 = -t21*t27*t63-t23*t27+t119*t21*t23 8166 t121 = -t21*t28*t63-t23*t28+t120*t21*t23 8167 t122 = -t21*t29*t63-t23*t29+t121*t21*t23 8168 t123 = -t21*t30*t63-t23*t30+t122*t21*t23 8169 t124 = -t21*t31*t63-t23*t31+t123*t21*t23 8170 t125 = -t21*t32*t63-t23*t32+t124*t21*t23 8171 t126 = -t21*t33*t63-t23*t33+t125*t21*t23 8172 t127 = -t21*t34*t63-t23*t34+t126*t21*t23 8173 t128 = -t21*t50*t63-t23*t50 8174 t129 = -t21*t51*t63-t23*t51+t128*t21*t23 8175 t130 = -t21*t52*t63-t23*t52+t129*t21*t23 8176 t131 = -t21*t53*t63-t23*t53+t130*t21*t23 8177 t132 = -t21*t54*t63-t23*t54+t131*t21*t23 8178 t133 = -t21*t55*t63-t23*t55+t132*t21*t23 8179 t134 = -t21*t56*t63-t23*t56+t133*t21*t23 8180 t135 = -t21*t57*t63-t23*t57+t134*t21*t23 8181 t136 = -t21*t58*t63-t23*t58+t135*t21*t23 8182 t137 = -t21*t59*t63-t23*t59+t136*t21*t23 8183 t138 = -t21*t60*t63 8184 t139 = -t23*t60+t137*t21*t23+t138 8185 t140 = 1.0d+0*(1.5545345434827443d-2*rhoa*t139*t48+1.0d+0*rh 8186 1 oa*t127*t19)*wght 8187 t141 = rhoa**1.3333333333333333d+0 8188 t142 = 1/t22**3 8189 t143 = rhoa**3.333333333333333d-1 8190 t144 = 1/t143 8191 t145 = -3.190260000209101d+0*t144*t21*t24*t63-4.579991491020 8192 1 378d+1*t141*t24*t63+3.190260000209101d+0*t144*t23*t24+4.5 8193 2 79991491020378d+1*t141*t142*t21*t24 8194 t146 = -9.570780000627304d+0*t21*t62*t63*t64+9.5707800006273 8195 1 04d+0*t23*t62*t64-3.190260000209101d+0*t144*t21*t25*t63-4 8196 2 .579991491020378d+1*t141*t25*t63+3.190260000209101d+0*t14 8197 3 4*t23*t25+4.579991491020378d+1*t141*t142*t21*t25+t145*t21 8198 4 *t23 8199 t147 = -9.570780000627304d+0*t21*t62*t63*t65+9.5707800006273 8200 1 04d+0*t23*t62*t65-3.190260000209101d+0*t144*t21*t26*t63-4 8201 2 .579991491020378d+1*t141*t26*t63+3.190260000209101d+0*t14 8202 3 4*t23*t26+4.579991491020378d+1*t141*t142*t21*t26+t146*t21 8203 4 *t23 8204 t148 = -9.570780000627304d+0*t21*t62*t63*t66+9.5707800006273 8205 1 04d+0*t23*t62*t66-3.190260000209101d+0*t144*t21*t27*t63-4 8206 2 .579991491020378d+1*t141*t27*t63+3.190260000209101d+0*t14 8207 3 4*t23*t27+4.579991491020378d+1*t141*t142*t21*t27+t147*t21 8208 4 *t23 8209 t149 = -9.570780000627304d+0*t21*t62*t63*t67+9.5707800006273 8210 1 04d+0*t23*t62*t67-3.190260000209101d+0*t144*t21*t28*t63-4 8211 2 .579991491020378d+1*t141*t28*t63+3.190260000209101d+0*t14 8212 3 4*t23*t28+4.579991491020378d+1*t141*t142*t21*t28+t148*t21 8213 4 *t23 8214 t150 = -9.570780000627304d+0*t21*t62*t63*t68+9.5707800006273 8215 1 04d+0*t23*t62*t68-3.190260000209101d+0*t144*t21*t29*t63-4 8216 2 .579991491020378d+1*t141*t29*t63+3.190260000209101d+0*t14 8217 3 4*t23*t29+4.579991491020378d+1*t141*t142*t21*t29+t149*t21 8218 4 *t23 8219 t151 = -9.570780000627304d+0*t21*t62*t63*t69+9.5707800006273 8220 1 04d+0*t23*t62*t69-3.190260000209101d+0*t144*t21*t30*t63-4 8221 2 .579991491020378d+1*t141*t30*t63+3.190260000209101d+0*t14 8222 3 4*t23*t30+4.579991491020378d+1*t141*t142*t21*t30+t150*t21 8223 4 *t23 8224 t152 = -9.570780000627304d+0*t21*t62*t63*t70+9.5707800006273 8225 1 04d+0*t23*t62*t70-3.190260000209101d+0*t144*t21*t31*t63-4 8226 2 .579991491020378d+1*t141*t31*t63+3.190260000209101d+0*t14 8227 3 4*t23*t31+4.579991491020378d+1*t141*t142*t21*t31+t151*t21 8228 4 *t23 8229 t153 = -9.570780000627304d+0*t21*t62*t63*t71+9.5707800006273 8230 1 04d+0*t23*t62*t71-3.190260000209101d+0*t144*t21*t32*t63-4 8231 2 .579991491020378d+1*t141*t32*t63+3.190260000209101d+0*t14 8232 3 4*t23*t32+4.579991491020378d+1*t141*t142*t21*t32+t152*t21 8233 4 *t23 8234 t154 = -9.570780000627304d+0*t21*t62*t63*t72+9.5707800006273 8235 1 04d+0*t23*t62*t72-3.190260000209101d+0*t144*t21*t33*t63-4 8236 2 .579991491020378d+1*t141*t33*t63+3.190260000209101d+0*t14 8237 3 4*t23*t33+4.579991491020378d+1*t141*t142*t21*t33+t153*t21 8238 4 *t23 8239 t155 = -9.570780000627304d+0*t21*t62*t63*t73+9.5707800006273 8240 1 04d+0*t23*t62*t73-3.190260000209101d+0*t144*t21*t34*t63-4 8241 2 .579991491020378d+1*t141*t34*t63+3.190260000209101d+0*t14 8242 3 4*t23*t34+4.579991491020378d+1*t141*t142*t21*t34+t154*t21 8243 4 *t23 8244 t156 = 1/rhoa**2.333333333333333d+0 8245 t157 = 1/t8**2 8246 t158 = t83**2 8247 t159 = 1/t6**3 8248 t160 = t82**2 8249 t161 = 1/rhoa**2.3333333333333334d+0 8250 t162 = 1/rhoa**1.6666666666666669d+0 8251 t163 = 1/t2**5 8252 t164 = 8.751370198886037d-2*t162*t4*t79+6.563527649164527d-2 8253 1 *t163*t4*t78+3.0144339229749983d-3*t161 8254 t165 = -2.625411059665811d-1*t79*t80*t81+8.751370198886037d- 8255 1 2*t162*t5*t79+6.563527649164527d-2*t163*t5*t78+7.87623317 8256 2 8997433d-1*t164*t3 8257 t166 = -4.23214150416714d-1*t3*t77*t80*t82-3.52678458680595d 8258 1 -2*t7*t78*t79-1.269642451250142d+0*t165*t2*t77-1.41071383 8259 2 47223802d-1*t162*t3*t7+2.539284902500284d+0*t159*t160*t2 8260 t167 = 1/t16**2 8261 t168 = t88**2 8262 t169 = 1/t14**3 8263 t170 = t87**2 8264 t171 = 8.751370198886037d-2*t12*t162*t79+6.563527649164527d- 8265 1 2*t12*t163*t78+4.753699179395351d-3*t161 8266 t172 = -2.625411059665811d-1*t79*t80*t86+8.751370198886037d- 8267 1 2*t13*t162*t79+6.563527649164527d-2*t13*t163*t78+7.876233 8268 2 178997433d-1*t171*t3 8269 t173 = -4.23214150416714d-1*t3*t80*t85*t87-1.269642451250142 8270 1 d+0*t172*t2*t85-3.52678458680595d-2*t15*t78*t79-1.4107138 8271 2 347223802d-1*t15*t162*t3+2.539284902500284d+0*t169*t170*t 8272 3 2 8273 t174 = 9.999999999999991d-1*(-1.7613865241785687d-3*t156*t9- 8274 1 5.495546528376876d-3*t75*t84*t88+6.21814d-2*t173*t18*t84+ 8275 2 2.642079786267853d-3*t75*t76*t83-3.10907d-2*t11*t166*t76- 8276 3 6.21814d-2*t167*t168*t18+3.663697685584584d-3*t156*t17+3. 8277 4 10907d-2*t11*t157*t158)+5.495546528376876d-3*t75*t84*t88- 8278 5 6.21814d-2*t173*t18*t84+6.21814d-2*t167*t168*t18-3.663697 8279 6 685584584d-3*t156*t17 8280 t175 = -3.190260000209101d+0*t144*t21*t50*t63-4.579991491020 8281 1 378d+1*t141*t50*t63+3.190260000209101d+0*t144*t23*t50+4.5 8282 2 79991491020378d+1*t141*t142*t21*t50 8283 t176 = -9.570780000627304d+0*t21*t62*t63*t90+9.5707800006273 8284 1 04d+0*t23*t62*t90-3.190260000209101d+0*t144*t21*t51*t63-4 8285 2 .579991491020378d+1*t141*t51*t63+3.190260000209101d+0*t14 8286 3 4*t23*t51+4.579991491020378d+1*t141*t142*t21*t51+t175*t21 8287 4 *t23 8288 t177 = -9.570780000627304d+0*t21*t62*t63*t91+9.5707800006273 8289 1 04d+0*t23*t62*t91-3.190260000209101d+0*t144*t21*t52*t63-4 8290 2 .579991491020378d+1*t141*t52*t63+3.190260000209101d+0*t14 8291 3 4*t23*t52+4.579991491020378d+1*t141*t142*t21*t52+t176*t21 8292 4 *t23 8293 t178 = -9.570780000627304d+0*t21*t62*t63*t92+9.5707800006273 8294 1 04d+0*t23*t62*t92-3.190260000209101d+0*t144*t21*t53*t63-4 8295 2 .579991491020378d+1*t141*t53*t63+3.190260000209101d+0*t14 8296 3 4*t23*t53+4.579991491020378d+1*t141*t142*t21*t53+t177*t21 8297 4 *t23 8298 t179 = -9.570780000627304d+0*t21*t62*t63*t93+9.5707800006273 8299 1 04d+0*t23*t62*t93-3.190260000209101d+0*t144*t21*t54*t63-4 8300 2 .579991491020378d+1*t141*t54*t63+3.190260000209101d+0*t14 8301 3 4*t23*t54+4.579991491020378d+1*t141*t142*t21*t54+t178*t21 8302 4 *t23 8303 t180 = -9.570780000627304d+0*t21*t62*t63*t94+9.5707800006273 8304 1 04d+0*t23*t62*t94-3.190260000209101d+0*t144*t21*t55*t63-4 8305 2 .579991491020378d+1*t141*t55*t63+3.190260000209101d+0*t14 8306 3 4*t23*t55+4.579991491020378d+1*t141*t142*t21*t55+t179*t21 8307 4 *t23 8308 t181 = -9.570780000627304d+0*t21*t62*t63*t95+9.5707800006273 8309 1 04d+0*t23*t62*t95-3.190260000209101d+0*t144*t21*t56*t63-4 8310 2 .579991491020378d+1*t141*t56*t63+3.190260000209101d+0*t14 8311 3 4*t23*t56+4.579991491020378d+1*t141*t142*t21*t56+t180*t21 8312 4 *t23 8313 t182 = -9.570780000627304d+0*t21*t62*t63*t96+9.5707800006273 8314 1 04d+0*t23*t62*t96-3.190260000209101d+0*t144*t21*t57*t63-4 8315 2 .579991491020378d+1*t141*t57*t63+3.190260000209101d+0*t14 8316 3 4*t23*t57+4.579991491020378d+1*t141*t142*t21*t57+t181*t21 8317 4 *t23 8318 t183 = -9.570780000627304d+0*t21*t62*t63*t97+9.5707800006273 8319 1 04d+0*t23*t62*t97-3.190260000209101d+0*t144*t21*t58*t63-4 8320 2 .579991491020378d+1*t141*t58*t63+3.190260000209101d+0*t14 8321 3 4*t23*t58+4.579991491020378d+1*t141*t142*t21*t58+t182*t21 8322 4 *t23 8323 t184 = -9.570780000627304d+0*t21*t62*t63*t98+9.5707800006273 8324 1 04d+0*t23*t62*t98-3.190260000209101d+0*t144*t21*t59*t63-4 8325 2 .579991491020378d+1*t141*t59*t63+3.190260000209101d+0*t14 8326 3 4*t23*t59+4.579991491020378d+1*t141*t142*t21*t59+t183*t21 8327 4 *t23 8328 t185 = -9.570780000627304d+0*t21*t62*t63*t99+9.5707800006273 8329 1 04d+0*t23*t62*t99-3.190260000209101d+0*t144*t21*t60*t63-4 8330 2 .579991491020378d+1*t141*t60*t63+3.190260000209101d+0*t14 8331 3 4*t23*t60+4.579991491020378d+1*t141*t142*t21*t60+t184*t21 8332 4 *t23 8333 t186 = 1/t47**2 8334 t187 = t113**2 8335 t188 = rhoa**3.333333333333335d-1 8336 t189 = 1/rhoa**8.333333333333333d-1 8337 t190 = t89**2 8338 t191 = exp(-1.2865587377165935d+2*t19) 8339 t192 = 1/t39**3 8340 t193 = 1.7894823267913484d+3*gammaaa*t190*t191*t192*t37 8341 t194 = 1.765806054418543d+0*gammaaa*t114*t188*t40 8342 t195 = -8.408600259135923d-2*gammaaa*t103*t189*t40 8343 t196 = -6.490894881214397d+1*gammaaa*t102*t103*t105*t38*t89 8344 t197 = -8.947411633956742d+2*gammaaa*t105*t190*t37*t38 8345 t198 = 1.3909060459745137d+1*gammaaa*t105*t174*t37*t38 8346 t199 = t198+t197+t196+t195+t194+t193 8347 t200 = 1/t39**4.0d+0 8348 t201 = 1/t36**6.0d+0 8349 t202 = -5.613875010535206d+1*t102*t109*t110*t111*t38*t89+1.2 8350 1 72682049722932d+0*t109*t188*t201*t44-3.6362344277798064d- 8351 2 2*t109*t110*t189*t44-3.869239257456912d+2*t111*t190*t38*t 8352 3 43+6.014866082716293d+0*t111*t174*t38*t43+1.1607717772370 8353 4 736d+3*t190*t191*t200*t43+t198+t197+t196+t195+t194+t193 8354 t203 = 1/t45**3 8355 t204 = t112**2 8356 t205 = -8.408600259135923d-2*gammaaa*t103*t189*t42*t46+1.765 8357 1 806054418543d+0*gammaaa*t114*t188*t42*t46+2.1622114952063 8358 2 792d-1*gammaaa*t199*t37*t46-1.0090320310963104d+0*gammaaa 8359 3 *t102*t103*t107*t46+4.3244229904127585d-1*gammaaa*t203*t2 8360 4 04*t37*t42-2.1622114952063792d-1*gammaaa*t108*t202*t37*t4 8361 5 2+1.0090320310963104d+0*gammaaa*t102*t103*t108*t112*t42-4 8362 6 .3244229904127585d-1*gammaaa*t107*t108*t112*t37 8363 t206 = 1.5545345434827443d-2*rhoa*t205*t61+3.109069086965488 8364 1 6d-2*t113*t61+3.1090690869654886d-2*rhoa*t100*t113 8365 t207 = -5.045160155481552d-1*t102*t103*t40 8366 t208 = 1.3909060459745137d+1*t105*t37*t38*t89 8367 t209 = t208+t207 8368 t210 = 1.2029732165432584d+1*gammaaa*t111*t114*t38*t89-4.363 8369 1 481313335766d-1*gammaaa*t102*t110*t44+t208+t207 8370 t211 = -5.045160155481552d-1*t102*t103*t42*t46-1.09087032833 8371 1 39415d-1*gammaaa*t102*t110*t40*t46+2.1622114952063792d-1* 8372 2 gammaaa*t209*t37*t46+2.1622114952063792d-1*t107*t37*t46-2 8373 3 .1622114952063792d-1*gammaaa*t108*t210*t37*t42+4.32442299 8374 4 04127585d-1*gammaaa*t112*t115*t203*t37*t42-2.162211495206 8375 5 3792d-1*t108*t112*t37*t42+5.045160155481552d-1*gammaaa*t1 8376 6 02*t103*t108*t115*t42-4.675158550002606d-2*gammaaa*t108*t 8377 7 112*t114*t40-2.1622114952063792d-1*gammaaa*t107*t108*t115 8378 8 *t37 8379 t212 = 1.5545345434827443d-2*rhoa*t211*t61+1.554534543482744 8380 1 3d-2*t116*t61+1.5545345434827443d-2*rhoa*t100*t116 8381 t213 = t116**2 8382 t214 = t115**2 8383 t215 = 9.350317100005212d-2*t114*t40*t46-2.0217363117456047d 8384 1 -2*gammaaa*t108*t201*t42*t44+4.3244229904127585d-1*gammaa 8385 2 a*t203*t214*t37*t42-4.3244229904127585d-1*t108*t115*t37*t 8386 3 42-9.350317100005212d-2*gammaaa*t108*t114*t115*t40 8387 t216 = t21**2 8388 t217 = 1/t22**4 8389 t218 = -t21*t63*t64-t23*t64-4.785390000313652d+0*t117*t21*t6 8390 1 2*t63+9.570780000627304d+0*t142*t21*t25*t62+9.57078000062 8391 2 7304d+0*t216*t217*t24*t62+4.785390000313652d+0*t117*t23*t 8392 3 62 8393 t219 = -t21*t63*t65-t23*t65-4.785390000313652d+0*t118*t21*t6 8394 1 2*t63+9.570780000627304d+0*t142*t21*t26*t62+4.78539000031 8395 2 3652d+0*t118*t23*t62+t21*t218*t23 8396 t220 = -t21*t63*t66-t23*t66-4.785390000313652d+0*t119*t21*t6 8397 1 2*t63+9.570780000627304d+0*t142*t21*t27*t62+4.78539000031 8398 2 3652d+0*t119*t23*t62+t21*t219*t23 8399 t221 = -t21*t63*t67-t23*t67-4.785390000313652d+0*t120*t21*t6 8400 1 2*t63+9.570780000627304d+0*t142*t21*t28*t62+4.78539000031 8401 2 3652d+0*t120*t23*t62+t21*t220*t23 8402 t222 = -t21*t63*t68-t23*t68-4.785390000313652d+0*t121*t21*t6 8403 1 2*t63+9.570780000627304d+0*t142*t21*t29*t62+4.78539000031 8404 2 3652d+0*t121*t23*t62+t21*t221*t23 8405 t223 = -t21*t63*t69-t23*t69-4.785390000313652d+0*t122*t21*t6 8406 1 2*t63+9.570780000627304d+0*t142*t21*t30*t62+4.78539000031 8407 2 3652d+0*t122*t23*t62+t21*t222*t23 8408 t224 = -t21*t63*t70-t23*t70-4.785390000313652d+0*t123*t21*t6 8409 1 2*t63+9.570780000627304d+0*t142*t21*t31*t62+4.78539000031 8410 2 3652d+0*t123*t23*t62+t21*t223*t23 8411 t225 = -t21*t63*t71-t23*t71-4.785390000313652d+0*t124*t21*t6 8412 1 2*t63+9.570780000627304d+0*t142*t21*t32*t62+4.78539000031 8413 2 3652d+0*t124*t23*t62+t21*t224*t23 8414 t226 = -t21*t63*t72-t23*t72-4.785390000313652d+0*t125*t21*t6 8415 1 2*t63+9.570780000627304d+0*t142*t21*t33*t62+4.78539000031 8416 2 3652d+0*t125*t23*t62+t21*t225*t23 8417 t227 = -t21*t63*t73-t23*t73-4.785390000313652d+0*t126*t21*t6 8418 1 2*t63+9.570780000627304d+0*t142*t21*t34*t62+4.78539000031 8419 2 3652d+0*t126*t23*t62+t21*t226*t23 8420 t228 = -t21*t63*t90-t23*t90-4.785390000313652d+0*t128*t21*t6 8421 1 2*t63+9.570780000627304d+0*t142*t21*t51*t62+9.57078000062 8422 2 7304d+0*t216*t217*t50*t62+4.785390000313652d+0*t128*t23*t 8423 3 62 8424 t229 = -t21*t63*t91-t23*t91-4.785390000313652d+0*t129*t21*t6 8425 1 2*t63+9.570780000627304d+0*t142*t21*t52*t62+4.78539000031 8426 2 3652d+0*t129*t23*t62+t21*t228*t23 8427 t230 = -t21*t63*t92-t23*t92-4.785390000313652d+0*t130*t21*t6 8428 1 2*t63+9.570780000627304d+0*t142*t21*t53*t62+4.78539000031 8429 2 3652d+0*t130*t23*t62+t21*t229*t23 8430 t231 = -t21*t63*t93-t23*t93-4.785390000313652d+0*t131*t21*t6 8431 1 2*t63+9.570780000627304d+0*t142*t21*t54*t62+4.78539000031 8432 2 3652d+0*t131*t23*t62+t21*t23*t230 8433 t232 = -t21*t63*t94-t23*t94-4.785390000313652d+0*t132*t21*t6 8434 1 2*t63+9.570780000627304d+0*t142*t21*t55*t62+4.78539000031 8435 2 3652d+0*t132*t23*t62+t21*t23*t231 8436 t233 = -t21*t63*t95-t23*t95-4.785390000313652d+0*t133*t21*t6 8437 1 2*t63+9.570780000627304d+0*t142*t21*t56*t62+4.78539000031 8438 2 3652d+0*t133*t23*t62+t21*t23*t232 8439 t234 = -t21*t63*t96-t23*t96-4.785390000313652d+0*t134*t21*t6 8440 1 2*t63+9.570780000627304d+0*t142*t21*t57*t62+4.78539000031 8441 2 3652d+0*t134*t23*t62+t21*t23*t233 8442 t235 = -t21*t63*t97-t23*t97-4.785390000313652d+0*t135*t21*t6 8443 1 2*t63+9.570780000627304d+0*t142*t21*t58*t62+4.78539000031 8444 2 3652d+0*t135*t23*t62+t21*t23*t234 8445 t236 = -t21*t63*t98-t23*t98-4.785390000313652d+0*t136*t21*t6 8446 1 2*t63+9.570780000627304d+0*t142*t21*t59*t62+4.78539000031 8447 2 3652d+0*t136*t23*t62+t21*t23*t235 8448 t237 = -t21*t63*t99-t23*t99-4.785390000313652d+0*t137*t21*t6 8449 1 2*t63+9.570780000627304d+0*t142*t21*t60*t62+4.78539000031 8450 2 3652d+0*t137*t23*t62+t21*t23*t236 8451 t238 = 1.0d+0*(1.0d+0*rhoa*t127*t89+1.5545345434827443d-2*rh 8452 1 oa*t237*t48+1.5545345434827443d-2*t139*t48+1.0d+0*rhoa*t1 8453 2 9*t227+1.0d+0*t127*t19+1.5545345434827443d-2*rhoa*t101*t1 8454 3 13*t139)*wght 8455 t239 = 1.5545345434827443d-2*rhoa*t101*t116*(t23*(-t21*t23*t 8456 1 59-t49+t137*t21)+t138)*wght 8457 t240 = 2*t24*t63+2*t142*t21*t24 8458 t241 = 2*t25*t63-2*t117*t21*t63+2*t142*t21*t25+t21*t23*t240- 8459 1 2*t117*t23 8460 t242 = 2*t26*t63-2*t118*t21*t63+2*t142*t21*t26+t21*t23*t241- 8461 1 2*t118*t23 8462 t243 = 2*t27*t63-2*t119*t21*t63+2*t142*t21*t27+t21*t23*t242- 8463 1 2*t119*t23 8464 t244 = 2*t28*t63-2*t120*t21*t63+2*t142*t21*t28+t21*t23*t243- 8465 1 2*t120*t23 8466 t245 = 2*t29*t63-2*t121*t21*t63+2*t142*t21*t29+t21*t23*t244- 8467 1 2*t121*t23 8468 t246 = 2*t30*t63-2*t122*t21*t63+2*t142*t21*t30+t21*t23*t245- 8469 1 2*t122*t23 8470 t247 = 2*t31*t63-2*t123*t21*t63+2*t142*t21*t31+t21*t23*t246- 8471 1 2*t123*t23 8472 t248 = 2*t32*t63-2*t124*t21*t63+2*t142*t21*t32+t21*t23*t247- 8473 1 2*t124*t23 8474 t249 = 2*t33*t63-2*t125*t21*t63+2*t142*t21*t33+t21*t23*t248- 8475 1 2*t125*t23 8476 t250 = 2*t34*t63-2*t126*t21*t63+2*t142*t21*t34+t21*t23*t249- 8477 1 2*t126*t23 8478 t251 = 2*t50*t63+2*t142*t21*t50 8479 t252 = 2*t51*t63-2*t128*t21*t63+2*t142*t21*t51+t21*t23*t251- 8480 1 2*t128*t23 8481 t253 = 2*t52*t63-2*t129*t21*t63+2*t142*t21*t52+t21*t23*t252- 8482 1 2*t129*t23 8483 t254 = 2*t53*t63-2*t130*t21*t63+2*t142*t21*t53+t21*t23*t253- 8484 1 2*t130*t23 8485 t255 = 2*t54*t63-2*t131*t21*t63+2*t142*t21*t54+t21*t23*t254- 8486 1 2*t131*t23 8487 t256 = 2*t55*t63-2*t132*t21*t63+2*t142*t21*t55+t21*t23*t255- 8488 1 2*t132*t23 8489 t257 = 2*t56*t63-2*t133*t21*t63+2*t142*t21*t56+t21*t23*t256- 8490 1 2*t133*t23 8491 t258 = 2*t57*t63-2*t134*t21*t63+2*t142*t21*t57+t21*t23*t257- 8492 1 2*t134*t23 8493 t259 = 2*t58*t63-2*t135*t21*t63+2*t142*t21*t58+t21*t23*t258- 8494 1 2*t135*t23 8495 t260 = 2*t59*t63-2*t136*t21*t63+2*t142*t21*t59+t21*t23*t259- 8496 1 2*t136*t23 8497 t261 = 2*t142*t21*t60 8498 t262 = 2*t60*t63-2*t137*t21*t63+t261+t21*t23*t260-2*t137*t23 8499 t263 = 1.0d+0*(1.5545345434827443d-2*rhoa*t262*t48+1.0d+0*rh 8500 1 oa*t19*t250)*wght 8501 t264 = rhoa**2 8502 t265 = 1/t141 8503 t266 = 1/rhoa**3.333333333333333d+0 8504 t267 = 1/rhoa**3.3333333333333337d+0 8505 t268 = 1/rhoa**2.666666666666667d+0 8506 t269 = 1/t2**7 8507 t270 = 1/rhoa**2.0d+0 8508 t271 = 1/t16**3 8509 t272 = t88**3 8510 t273 = -7.617854707500852d+0*t2*t87**3/t14**4+1.058035376041 8511 1 7849d-1*t78*t79*t85*t87+4.2321415041671406d-1*t162*t3*t85 8512 2 *t87+7.617854707500852d+0*t169*t172*t2*t87-1.269642451250 8513 3 142d+0*t2*t85*(2.625411059665811d-1*t162*t79*t86+1.969058 8514 4 2947493582d-1*t163*t78*t86-3.9381165894987163d-1*t171*t79 8515 5 *t80+7.876233178997433d-1*t3*(-1.4585616998143394d-1*t12* 8516 6 t268*t79-5.469606374303773d-2*t12*t269*t270-1.17081850159 8517 7 18181d-2*t267-1.3127055298329054d-1*t12*t161*t163)-1.4585 8518 8 616998143394d-1*t13*t268*t79-5.469606374303773d-2*t13*t26 8519 9 9*t270-1.3127055298329054d-1*t13*t161*t163)-6.34821225625 8520 : 071d-1*t172*t3*t80*t85+1.269642451250142d+0*t169*t170*t3* 8521 ; t80+7.053569173611901d-2*t15*t161*t79+2.3511897245373004d 8522 < -1*t15*t268*t3+1.763392293402975d-2*t15*t163*t270 8523 t274 = 9.999999999999991d-1*(4.1099018897499934d-3*t266*t9+1 8524 1 .0991093056753751d-2*t156*t84*t88-1.865442d-1*t167*t173*t 8525 2 18*t88-8.243319792565315d-3*t173*t75*t84+6.21814d-2*t18*t 8526 3 273*t84-6.21814d-2*t11*t83**3/t8**3-5.284159572535706d-3* 8527 4 t156*t76*t83+9.327209999999999d-2*t11*t157*t166*t83-3.109 8528 5 07d-2*t11*t76*(-7.617854707500852d+0*t2*t82**3/t6**4+1.05 8529 6 80353760417849d-1*t77*t78*t79*t82+4.2321415041671406d-1*t 8530 7 162*t3*t77*t82+7.617854707500852d+0*t159*t165*t2*t82-1.26 8531 8 9642451250142d+0*t2*t77*(2.625411059665811d-1*t162*t79*t8 8532 9 1+1.9690582947493582d-1*t163*t78*t81-3.9381165894987163d- 8533 : 1*t164*t79*t80+7.876233178997433d-1*t3*(-1.45856169981433 8534 ; 94d-1*t268*t4*t79-5.469606374303773d-2*t269*t270*t4-1.312 8535 < 7055298329054d-1*t161*t163*t4-7.424439106586571d-3*t267)- 8536 = 1.4585616998143394d-1*t268*t5*t79-5.469606374303773d-2*t2 8537 > 69*t270*t5-1.3127055298329054d-1*t161*t163*t5)-6.34821225 8538 ? 625071d-1*t165*t3*t77*t80+1.269642451250142d+0*t159*t160* 8539 @ t3*t80+7.053569173611901d-2*t161*t7*t79+2.351189724537300 8540 1 4d-1*t268*t3*t7+1.763392293402975d-2*t163*t270*t7)+3.9631 8541 2 1967940178d-3*t166*t75*t76+8.243319792565315d-3*t167*t168 8542 3 *t75-3.96311967940178d-3*t157*t158*t75+1.243628d-1*t18*t2 8543 4 71*t272-8.548627933030694d-3*t17*t266)-1.0991093056753751 8544 5 d-2*t156*t84*t88+1.865442d-1*t167*t173*t18*t88+8.24331979 8545 6 2565315d-3*t173*t75*t84-6.21814d-2*t18*t273*t84-8.2433197 8546 7 92565315d-3*t167*t168*t75-1.243628d-1*t18*t271*t272+8.548 8547 8 627933030694d-3*t17*t266 8548 t275 = 1/t47**3 8549 t276 = rhoa**5.000000000000002d-1 8550 t277 = 1/rhoa**6.666666666666665d-1 8551 t278 = 1/rhoa**1.8333333333333332d+0 8552 t279 = t89**3 8553 t280 = exp(-1.92983810657489d+2*t19) 8554 t281 = 3.453411185284245d+5*gammaaa*t279*t280*t37/t39**4 8555 t282 = -1.252637628753944d+4*gammaaa*t102*t103*t190*t191*t19 8556 1 2 8557 t283 = -3.453411185284245d+5*gammaaa*t191*t192*t279*t37 8558 t284 = 5.368446980374045d+3*gammaaa*t174*t191*t192*t37*t89 8559 t285 = -8.240428253953201d+0*gammaaa*t110*t276*t40 8560 t286 = 8.829030272092719d-1*gammaaa*t114*t277*t40 8561 t287 = 7.007166882613269d-2*gammaaa*t103*t278*t40 8562 t288 = 3.4077198126375585d+2*gammaaa*t105*t114*t188*t38*t89 8563 t289 = -1.6227237203036002d+1*gammaaa*t103*t105*t189*t38*t89 8564 t290 = 6.263188143769719d+3*gammaaa*t102*t103*t105*t190*t38 8565 t291 = -9.736342321821596d+1*gammaaa*t102*t103*t105*t174*t38 8566 t292 = 5.755685308807075d+4*gammaaa*t105*t279*t37*t38 8567 t293 = -2.6842234901870227d+3*gammaaa*t105*t174*t37*t38*t89 8568 t294 = 1.3909060459745137d+1*gammaaa*t105*t274*t37*t38 8569 t295 = 1/t36**7.0d+0 8570 t296 = 1/t45**4 8571 t297 = 1.7894823267913484d+3*t190*t191*t192*t37 8572 t298 = 1.765806054418543d+0*t114*t188*t40 8573 t299 = -8.408600259135923d-2*t103*t189*t40 8574 t300 = -6.490894881214397d+1*t102*t103*t105*t38*t89 8575 t301 = -8.947411633956742d+2*t105*t190*t37*t38 8576 t302 = 1.3909060459745137d+1*t105*t174*t37*t38 8577 t303 = 1/t22**5 8578 t304 = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*(1.91415600012 8579 1 54607d+1*t142*t21*t62*t99+t21*t23*(1.9141560001254607d+1* 8580 2 t142*t21*t62*t98+t21*t23*(1.9141560001254607d+1*t142*t21* 8581 3 t62*t97+t21*t23*(1.9141560001254607d+1*t142*t21*t62*t96+t 8582 4 21*t23*(1.9141560001254607d+1*t142*t21*t62*t95+t21*t23*(1 8583 5 .9141560001254607d+1*t142*t21*t62*t94+t21*t23*(1.91415600 8584 6 01254607d+1*t142*t21*t62*t93+t21*t23*(1.9141560001254607d 8585 7 +1*t142*t21*t62*t92+t21*t23*(1.9141560001254607d+1*t142*t 8586 8 21*t62*t91+t21*t23*(1.9141560001254607d+1*t142*t21*t62*t9 8587 9 0-t175*t21*t63-3.190260000209101d+0*t128*t144*t21*t63-4.5 8588 : 79991491020378d+1*t128*t141*t63-1.3739974473061137d+2*t14 8589 ; 1*t21*t217*t51+6.380520000418202d+0*t142*t144*t21*t51+4.5 8590 < 79991491020378d+1*t141*t142*t51+t21*t23*(-1.3739974473061 8591 = 137d+2*t141*t21*t217*t50+6.380520000418202d+0*t142*t144*t 8592 > 21*t50+4.579991491020378d+1*t141*t142*t50)-9.159982982040 8593 ? 756d+1*t141*t216*t303*t50+9.159982982040756d+1*t141*t21*t 8594 @ 217*t50-t175*t23+3.190260000209101d+0*t128*t144*t23+4.579 8595 1 991491020378d+1*t128*t141*t142*t21)-9.570780000627304d+0* 8596 2 t21*t228*t62*t63-t176*t21*t63-3.190260000209101d+0*t129*t 8597 3 144*t21*t63-4.579991491020378d+1*t129*t141*t63+9.57078000 8598 4 0627304d+0*t228*t23*t62-1.3739974473061137d+2*t141*t21*t2 8599 5 17*t52+6.380520000418202d+0*t142*t144*t21*t52+4.579991491 8600 6 020378d+1*t141*t142*t52-t176*t23+3.190260000209101d+0*t12 8601 7 9*t144*t23+4.579991491020378d+1*t129*t141*t142*t21)-9.570 8602 8 780000627304d+0*t21*t229*t62*t63-t177*t21*t63-3.190260000 8603 9 209101d+0*t130*t144*t21*t63-4.579991491020378d+1*t130*t14 8604 : 1*t63+9.570780000627304d+0*t229*t23*t62-1.373997447306113 8605 ; 7d+2*t141*t21*t217*t53+6.380520000418202d+0*t142*t144*t21 8606 < *t53+4.579991491020378d+1*t141*t142*t53-t177*t23+3.190260 8607 = 000209101d+0*t130*t144*t23+4.579991491020378d+1*t130*t141 8608 > *t142*t21)-9.570780000627304d+0*t21*t230*t62*t63-t178*t21 8609 ? *t63-3.190260000209101d+0*t131*t144*t21*t63-4.57999149102 8610 @ 0378d+1*t131*t141*t63+9.570780000627304d+0*t23*t230*t62-1 8611 1 .3739974473061137d+2*t141*t21*t217*t54+6.380520000418202d 8612 2 +0*t142*t144*t21*t54+4.579991491020378d+1*t141*t142*t54-t 8613 3 178*t23+3.190260000209101d+0*t131*t144*t23+4.579991491020 8614 4 378d+1*t131*t141*t142*t21)-9.570780000627304d+0*t21*t231* 8615 5 t62*t63-t179*t21*t63-3.190260000209101d+0*t132*t144*t21*t 8616 6 63-4.579991491020378d+1*t132*t141*t63+9.570780000627304d+ 8617 7 0*t23*t231*t62-1.3739974473061137d+2*t141*t21*t217*t55+6. 8618 8 380520000418202d+0*t142*t144*t21*t55+4.579991491020378d+1 8619 9 *t141*t142*t55-t179*t23+3.190260000209101d+0*t132*t144*t2 8620 : 3+4.579991491020378d+1*t132*t141*t142*t21)-9.570780000627 8621 ; 304d+0*t21*t232*t62*t63-t180*t21*t63-3.190260000209101d+0 8622 < *t133*t144*t21*t63-4.579991491020378d+1*t133*t141*t63+9.5 8623 = 70780000627304d+0*t23*t232*t62-1.3739974473061137d+2*t141 8624 > *t21*t217*t56+6.380520000418202d+0*t142*t144*t21*t56+4.57 8625 ? 9991491020378d+1*t141*t142*t56-t180*t23+3.190260000209101 8626 @ d+0*t133*t144*t23+4.579991491020378d+1*t133*t141*t142*t21 8627 1 )-9.570780000627304d+0*t21*t233*t62*t63-t181*t21*t63-3.19 8628 2 0260000209101d+0*t134*t144*t21*t63-4.579991491020378d+1*t 8629 3 134*t141*t63+9.570780000627304d+0*t23*t233*t62-1.37399744 8630 4 73061137d+2*t141*t21*t217*t57+6.380520000418202d+0*t142*t 8631 5 144*t21*t57+4.579991491020378d+1*t141*t142*t57-t181*t23+3 8632 6 .190260000209101d+0*t134*t144*t23+4.579991491020378d+1*t1 8633 7 34*t141*t142*t21)-9.570780000627304d+0*t21*t234*t62*t63-t 8634 8 182*t21*t63-3.190260000209101d+0*t135*t144*t21*t63-4.5799 8635 9 91491020378d+1*t135*t141*t63+9.570780000627304d+0*t23*t23 8636 : 4*t62-1.3739974473061137d+2*t141*t21*t217*t58+6.380520000 8637 ; 418202d+0*t142*t144*t21*t58+4.579991491020378d+1*t141*t14 8638 < 2*t58-t182*t23+3.190260000209101d+0*t135*t144*t23+4.57999 8639 = 1491020378d+1*t135*t141*t142*t21)-9.570780000627304d+0*t2 8640 > 1*t235*t62*t63-t183*t21*t63-3.190260000209101d+0*t136*t14 8641 ? 4*t21*t63-4.579991491020378d+1*t136*t141*t63+9.5707800006 8642 @ 27304d+0*t23*t235*t62-1.3739974473061137d+2*t141*t21*t217 8643 1 *t59+6.380520000418202d+0*t142*t144*t21*t59+4.57999149102 8644 2 0378d+1*t141*t142*t59-t183*t23+3.190260000209101d+0*t136* 8645 3 t144*t23+4.579991491020378d+1*t136*t141*t142*t21)-9.57078 8646 4 0000627304d+0*t21*t236*t62*t63-t184*t21*t63-3.19026000020 8647 5 9101d+0*t137*t144*t21*t63-4.579991491020378d+1*t137*t141* 8648 6 t63+9.570780000627304d+0*t23*t236*t62-1.3739974473061137d 8649 7 +2*t141*t21*t217*t60+6.380520000418202d+0*t142*t144*t21*t 8650 8 60+4.579991491020378d+1*t141*t142*t60-t184*t23+3.19026000 8651 9 0209101d+0*t137*t144*t23+4.579991491020378d+1*t137*t141*t 8652 : 142*t21)+2.0d+0*rhoa*t227*t89+2.0d+0*t127*t89+1.0d+0*rhoa 8653 ; *t19*(1.9141560001254607d+1*t142*t21*t62*t73+t21*t23*(1.9 8654 < 141560001254607d+1*t142*t21*t62*t72+t21*t23*(1.9141560001 8655 = 254607d+1*t142*t21*t62*t71+t21*t23*(1.9141560001254607d+1 8656 > *t142*t21*t62*t70+t21*t23*(1.9141560001254607d+1*t142*t21 8657 ? *t62*t69+t21*t23*(1.9141560001254607d+1*t142*t21*t62*t68+ 8658 @ t21*t23*(1.9141560001254607d+1*t142*t21*t62*t67+t21*t23*( 8659 1 1.9141560001254607d+1*t142*t21*t62*t66+t21*t23*(1.9141560 8660 2 001254607d+1*t142*t21*t62*t65+t21*t23*(1.9141560001254607 8661 3 d+1*t142*t21*t62*t64-t145*t21*t63-3.190260000209101d+0*t1 8662 4 17*t144*t21*t63-4.579991491020378d+1*t117*t141*t63-9.1599 8663 5 82982040756d+1*t141*t216*t24*t303-1.3739974473061137d+2*t 8664 6 141*t21*t217*t25+6.380520000418202d+0*t142*t144*t21*t25+4 8665 7 .579991491020378d+1*t141*t142*t25+t21*t23*(-1.37399744730 8666 8 61137d+2*t141*t21*t217*t24+6.380520000418202d+0*t142*t144 8667 9 *t21*t24+4.579991491020378d+1*t141*t142*t24)+9.1599829820 8668 : 40756d+1*t141*t21*t217*t24-t145*t23+3.190260000209101d+0* 8669 ; t117*t144*t23+4.579991491020378d+1*t117*t141*t142*t21)-9. 8670 < 570780000627304d+0*t21*t218*t62*t63-t146*t21*t63-3.190260 8671 = 000209101d+0*t118*t144*t21*t63-4.579991491020378d+1*t118* 8672 > t141*t63+9.570780000627304d+0*t218*t23*t62-1.373997447306 8673 ? 1137d+2*t141*t21*t217*t26+6.380520000418202d+0*t142*t144* 8674 @ t21*t26+4.579991491020378d+1*t141*t142*t26-t146*t23+3.190 8675 1 260000209101d+0*t118*t144*t23+4.579991491020378d+1*t118*t 8676 2 141*t142*t21)-9.570780000627304d+0*t21*t219*t62*t63-t147* 8677 3 t21*t63-3.190260000209101d+0*t119*t144*t21*t63-4.57999149 8678 4 1020378d+1*t119*t141*t63+9.570780000627304d+0*t219*t23*t6 8679 5 2-1.3739974473061137d+2*t141*t21*t217*t27+6.3805200004182 8680 6 02d+0*t142*t144*t21*t27+4.579991491020378d+1*t141*t142*t2 8681 7 7-t147*t23+3.190260000209101d+0*t119*t144*t23+4.579991491 8682 8 020378d+1*t119*t141*t142*t21)-9.570780000627304d+0*t21*t2 8683 9 20*t62*t63-t148*t21*t63-3.190260000209101d+0*t120*t144*t2 8684 : 1*t63-4.579991491020378d+1*t120*t141*t63+9.57078000062730 8685 ; 4d+0*t220*t23*t62-1.3739974473061137d+2*t141*t21*t217*t28 8686 < +6.380520000418202d+0*t142*t144*t21*t28+4.579991491020378 8687 = d+1*t141*t142*t28-t148*t23+3.190260000209101d+0*t120*t144 8688 > *t23+4.579991491020378d+1*t120*t141*t142*t21)-9.570780000 8689 ? 627304d+0*t21*t221*t62*t63-t149*t21*t63-3.190260000209101 8690 @ d+0*t121*t144*t21*t63-4.579991491020378d+1*t121*t141*t63+ 8691 1 9.570780000627304d+0*t221*t23*t62-1.3739974473061137d+2*t 8692 2 141*t21*t217*t29+6.380520000418202d+0*t142*t144*t21*t29+4 8693 3 .579991491020378d+1*t141*t142*t29-t149*t23+3.190260000209 8694 4 101d+0*t121*t144*t23+4.579991491020378d+1*t121*t141*t142* 8695 5 t21)-9.570780000627304d+0*t21*t222*t62*t63-t150*t21*t63-3 8696 6 .190260000209101d+0*t122*t144*t21*t63-4.579991491020378d+ 8697 7 1*t122*t141*t63+9.570780000627304d+0*t222*t23*t62-1.37399 8698 8 74473061137d+2*t141*t21*t217*t30+6.380520000418202d+0*t14 8699 9 2*t144*t21*t30+4.579991491020378d+1*t141*t142*t30-t150*t2 8700 : 3+3.190260000209101d+0*t122*t144*t23+4.579991491020378d+1 8701 ; *t122*t141*t142*t21)-9.570780000627304d+0*t21*t223*t62*t6 8702 < 3-t151*t21*t63-3.190260000209101d+0*t123*t144*t21*t63-4.5 8703 = 79991491020378d+1*t123*t141*t63+9.570780000627304d+0*t223 8704 > *t23*t62-1.3739974473061137d+2*t141*t21*t217*t31+6.380520 8705 ? 000418202d+0*t142*t144*t21*t31+4.579991491020378d+1*t141* 8706 @ t142*t31-t151*t23+3.190260000209101d+0*t123*t144*t23+4.57 8707 1 9991491020378d+1*t123*t141*t142*t21)-9.570780000627304d+0 8708 2 *t21*t224*t62*t63-t152*t21*t63-3.190260000209101d+0*t124* 8709 3 t144*t21*t63-4.579991491020378d+1*t124*t141*t63+9.5707800 8710 4 00627304d+0*t224*t23*t62-1.3739974473061137d+2*t141*t21*t 8711 5 217*t32+6.380520000418202d+0*t142*t144*t21*t32+4.57999149 8712 6 1020378d+1*t141*t142*t32-t152*t23+3.190260000209101d+0*t1 8713 7 24*t144*t23+4.579991491020378d+1*t124*t141*t142*t21)-9.57 8714 8 0780000627304d+0*t21*t225*t62*t63-t153*t21*t63-3.19026000 8715 9 0209101d+0*t125*t144*t21*t63-4.579991491020378d+1*t125*t1 8716 : 41*t63+9.570780000627304d+0*t225*t23*t62-1.37399744730611 8717 ; 37d+2*t141*t21*t217*t33+6.380520000418202d+0*t142*t144*t2 8718 < 1*t33+4.579991491020378d+1*t141*t142*t33-t153*t23+3.19026 8719 = 0000209101d+0*t125*t144*t23+4.579991491020378d+1*t125*t14 8720 > 1*t142*t21)-9.570780000627304d+0*t21*t226*t62*t63-t154*t2 8721 ? 1*t63-3.190260000209101d+0*t126*t144*t21*t63-4.5799914910 8722 @ 20378d+1*t126*t141*t63+9.570780000627304d+0*t226*t23*t62- 8723 1 1.3739974473061137d+2*t141*t21*t217*t34+6.380520000418202 8724 2 d+0*t142*t144*t21*t34+4.579991491020378d+1*t141*t142*t34- 8725 3 t154*t23+3.190260000209101d+0*t126*t144*t23+4.57999149102 8726 4 0378d+1*t126*t141*t142*t21)+3.1090690869654886d-2*t237*t4 8727 5 8+t101*(3.1090690869654886d-2*rhoa*t113*t237+1.5545345434 8728 6 827443d-2*rhoa*t139*t205+3.1090690869654886d-2*t113*t139) 8729 7 +2.0d+0*t19*t227-1.5545345434827443d-2*rhoa*t139*t186*t18 8730 8 7+1.0d+0*rhoa*t127*t174)*wght 8731 t305 = 1.0d+0*(t101*(1.5545345434827443d-2*rhoa*t116*t237+1. 8732 1 5545345434827443d-2*rhoa*t139*t211+1.5545345434827443d-2* 8733 2 t116*t139)-1.5545345434827443d-2*rhoa*t113*t116*t139*t186 8734 3 )*wght 8735 t306 = 1.5545345434827443d-2*rhoa*t101*t139*t215*wght-1.5545 8736 1 345434827443d-2*rhoa*t139*t186*t213*wght 8737 t307 = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*(2*t63*t99+2*t 8738 1 142*t21*t99+t21*t23*(2*t63*t98+2*t142*t21*t98+t21*t23*(2* 8739 2 t63*t97+2*t142*t21*t97+t21*t23*(2*t63*t96+2*t142*t21*t96+ 8740 3 t21*t23*(2*t63*t95+2*t142*t21*t95+t21*t23*(2*t63*t94+2*t1 8741 4 42*t21*t94+t21*t23*(2*t63*t93+2*t142*t21*t93+t21*t23*(2*t 8742 5 63*t92+2*t142*t21*t92+t21*t23*(2*t63*t91+2*t142*t21*t91+t 8743 6 21*t23*(2*t63*t90+2*t142*t21*t90-4.785390000313652d+0*t21 8744 7 *t251*t62*t63-2.8712340001881914d+1*t21*t217*t51*t62-9.57 8745 8 0780000627304d+0*t142*t51*t62-4.785390000313652d+1*t216*t 8746 9 303*t50*t62-2.8712340001881914d+1*t21*t217*t50*t62+4.7853 8747 : 90000313652d+0*t23*t251*t62+1.9141560001254607d+1*t128*t1 8748 ; 42*t21*t62)-4.785390000313652d+0*t21*t252*t62*t63-2*t21*t 8749 < 228*t63-2.8712340001881914d+1*t21*t217*t52*t62-9.57078000 8750 = 0627304d+0*t142*t52*t62+4.785390000313652d+0*t23*t252*t62 8751 > +1.9141560001254607d+1*t129*t142*t21*t62-2*t228*t23)-4.78 8752 ? 5390000313652d+0*t21*t253*t62*t63-2*t21*t229*t63-2.871234 8753 @ 0001881914d+1*t21*t217*t53*t62-9.570780000627304d+0*t142* 8754 1 t53*t62+4.785390000313652d+0*t23*t253*t62+1.9141560001254 8755 2 607d+1*t130*t142*t21*t62-2*t229*t23)-4.785390000313652d+0 8756 3 *t21*t254*t62*t63-2*t21*t230*t63-2.8712340001881914d+1*t2 8757 4 1*t217*t54*t62-9.570780000627304d+0*t142*t54*t62+4.785390 8758 5 000313652d+0*t23*t254*t62+1.9141560001254607d+1*t131*t142 8759 6 *t21*t62-2*t23*t230)-4.785390000313652d+0*t21*t255*t62*t6 8760 7 3-2*t21*t231*t63-2.8712340001881914d+1*t21*t217*t55*t62-9 8761 8 .570780000627304d+0*t142*t55*t62+4.785390000313652d+0*t23 8762 9 *t255*t62+1.9141560001254607d+1*t132*t142*t21*t62-2*t23*t 8763 : 231)-4.785390000313652d+0*t21*t256*t62*t63-2*t21*t232*t63 8764 ; -2.8712340001881914d+1*t21*t217*t56*t62-9.570780000627304 8765 < d+0*t142*t56*t62+4.785390000313652d+0*t23*t256*t62+1.9141 8766 = 560001254607d+1*t133*t142*t21*t62-2*t23*t232)-4.785390000 8767 > 313652d+0*t21*t257*t62*t63-2*t21*t233*t63-2.8712340001881 8768 ? 914d+1*t21*t217*t57*t62-9.570780000627304d+0*t142*t57*t62 8769 @ +4.785390000313652d+0*t23*t257*t62+1.9141560001254607d+1* 8770 1 t134*t142*t21*t62-2*t23*t233)-4.785390000313652d+0*t21*t2 8771 2 58*t62*t63-2*t21*t234*t63-2.8712340001881914d+1*t21*t217* 8772 3 t58*t62-9.570780000627304d+0*t142*t58*t62+4.7853900003136 8773 4 52d+0*t23*t258*t62+1.9141560001254607d+1*t135*t142*t21*t6 8774 5 2-2*t23*t234)-4.785390000313652d+0*t21*t259*t62*t63-2*t21 8775 6 *t235*t63-2.8712340001881914d+1*t21*t217*t59*t62-9.570780 8776 7 000627304d+0*t142*t59*t62+4.785390000313652d+0*t23*t259*t 8777 8 62+1.9141560001254607d+1*t136*t142*t21*t62-2*t23*t235)-4. 8778 9 785390000313652d+0*t21*t260*t62*t63-2*t21*t236*t63-2.8712 8779 : 340001881914d+1*t21*t217*t60*t62-9.570780000627304d+0*t14 8780 ; 2*t60*t62+4.785390000313652d+0*t23*t260*t62+1.91415600012 8781 < 54607d+1*t137*t142*t21*t62-2*t23*t236)+1.0d+0*rhoa*t250*t 8782 = 89+1.0d+0*rhoa*t19*(2*t63*t73+2*t142*t21*t73+t21*t23*(2*t 8783 > 63*t72+2*t142*t21*t72+t21*t23*(2*t63*t71+2*t142*t21*t71+t 8784 ? 21*t23*(2*t63*t70+2*t142*t21*t70+t21*t23*(2*t63*t69+2*t14 8785 @ 2*t21*t69+t21*t23*(2*t63*t68+2*t142*t21*t68+t21*t23*(2*t6 8786 1 3*t67+2*t142*t21*t67+t21*t23*(2*t63*t66+2*t142*t21*t66+t2 8787 2 1*t23*(2*t63*t65+2*t142*t21*t65+t21*t23*(2*t63*t64+2*t142 8788 3 *t21*t64-4.785390000313652d+0*t21*t240*t62*t63-4.78539000 8789 4 0313652d+1*t216*t24*t303*t62-2.8712340001881914d+1*t21*t2 8790 5 17*t25*t62-9.570780000627304d+0*t142*t25*t62+4.7853900003 8791 6 13652d+0*t23*t240*t62-2.8712340001881914d+1*t21*t217*t24* 8792 7 t62+1.9141560001254607d+1*t117*t142*t21*t62)-4.7853900003 8793 8 13652d+0*t21*t241*t62*t63-2*t21*t218*t63-2.87123400018819 8794 9 14d+1*t21*t217*t26*t62-9.570780000627304d+0*t142*t26*t62+ 8795 : 4.785390000313652d+0*t23*t241*t62+1.9141560001254607d+1*t 8796 ; 118*t142*t21*t62-2*t218*t23)-4.785390000313652d+0*t21*t24 8797 < 2*t62*t63-2*t21*t219*t63-2.8712340001881914d+1*t21*t217*t 8798 = 27*t62-9.570780000627304d+0*t142*t27*t62+4.78539000031365 8799 > 2d+0*t23*t242*t62+1.9141560001254607d+1*t119*t142*t21*t62 8800 ? -2*t219*t23)-4.785390000313652d+0*t21*t243*t62*t63-2*t21* 8801 @ t220*t63-2.8712340001881914d+1*t21*t217*t28*t62-9.5707800 8802 1 00627304d+0*t142*t28*t62+4.785390000313652d+0*t23*t243*t6 8803 2 2+1.9141560001254607d+1*t120*t142*t21*t62-2*t220*t23)-4.7 8804 3 85390000313652d+0*t21*t244*t62*t63-2*t21*t221*t63-2.87123 8805 4 40001881914d+1*t21*t217*t29*t62-9.570780000627304d+0*t142 8806 5 *t29*t62+4.785390000313652d+0*t23*t244*t62+1.914156000125 8807 6 4607d+1*t121*t142*t21*t62-2*t221*t23)-4.785390000313652d+ 8808 7 0*t21*t245*t62*t63-2*t21*t222*t63-2.8712340001881914d+1*t 8809 8 21*t217*t30*t62-9.570780000627304d+0*t142*t30*t62+4.78539 8810 9 0000313652d+0*t23*t245*t62+1.9141560001254607d+1*t122*t14 8811 : 2*t21*t62-2*t222*t23)-4.785390000313652d+0*t21*t246*t62*t 8812 ; 63-2*t21*t223*t63-2.8712340001881914d+1*t21*t217*t31*t62- 8813 < 9.570780000627304d+0*t142*t31*t62+4.785390000313652d+0*t2 8814 = 3*t246*t62+1.9141560001254607d+1*t123*t142*t21*t62-2*t223 8815 > *t23)-4.785390000313652d+0*t21*t247*t62*t63-2*t21*t224*t6 8816 ? 3-2.8712340001881914d+1*t21*t217*t32*t62-9.57078000062730 8817 @ 4d+0*t142*t32*t62+4.785390000313652d+0*t23*t247*t62+1.914 8818 1 1560001254607d+1*t124*t142*t21*t62-2*t224*t23)-4.78539000 8819 2 0313652d+0*t21*t248*t62*t63-2*t21*t225*t63-2.871234000188 8820 3 1914d+1*t21*t217*t33*t62-9.570780000627304d+0*t142*t33*t6 8821 4 2+4.785390000313652d+0*t23*t248*t62+1.9141560001254607d+1 8822 5 *t125*t142*t21*t62-2*t225*t23)-4.785390000313652d+0*t21*t 8823 6 249*t62*t63-2*t21*t226*t63-2.8712340001881914d+1*t21*t217 8824 7 *t34*t62-9.570780000627304d+0*t142*t34*t62+4.785390000313 8825 8 652d+0*t23*t249*t62+1.9141560001254607d+1*t126*t142*t21*t 8826 9 62-2*t226*t23)+1.5545345434827443d-2*t262*t48+1.554534543 8827 : 4827443d-2*rhoa*t101*t113*t262+1.0d+0*t19*t250)*wght 8828 t308 = 1.5545345434827443d-2*rhoa*t101*t116*(t23*(2*t21*t59* 8829 1 t63+2*t23*t59+t21*t260-2*t136*t21*t23)+(2*t21*t23*t59+2*t 8830 2 49-2*t137*t21)*t63+t261)*wght 8831 t309 = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*(t21*t23*(t21* 8832 1 t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23 8833 2 *(t21*t23*(-3*t21*t251*t63+6*t128*t63-6*t21*t217*t51-6*t1 8834 3 42*t51+t21*t23*(-6*t21*t217*t50-6*t142*t50)-3*t23*t251+6* 8835 4 t128*t142*t21)-3*t21*t252*t63+6*t129*t63-6*t21*t217*t52-6 8836 5 *t142*t52-3*t23*t252+6*t129*t142*t21)-3*t21*t253*t63+6*t1 8837 6 30*t63-6*t21*t217*t53-6*t142*t53-3*t23*t253+6*t130*t142*t 8838 7 21)-3*t21*t254*t63+6*t131*t63-6*t21*t217*t54-6*t142*t54-3 8839 8 *t23*t254+6*t131*t142*t21)-3*t21*t255*t63+6*t132*t63-6*t2 8840 9 1*t217*t55-6*t142*t55-3*t23*t255+6*t132*t142*t21)-3*t21*t 8841 : 256*t63+6*t133*t63-6*t21*t217*t56-6*t142*t56-3*t23*t256+6 8842 ; *t133*t142*t21)-3*t21*t257*t63+6*t134*t63-6*t21*t217*t57- 8843 < 6*t142*t57-3*t23*t257+6*t134*t142*t21)-3*t21*t258*t63+6*t 8844 = 135*t63-6*t21*t217*t58-6*t142*t58-3*t23*t258+6*t135*t142* 8845 > t21)-3*t21*t259*t63+6*t136*t63-6*t21*t217*t59-6*t142*t59- 8846 ? 3*t23*t259+6*t136*t142*t21)-3*t21*t260*t63+6*t137*t63-6*t 8847 @ 21*t217*t60-6*t142*t60-3*t23*t260+6*t137*t142*t21)+1.0d+0 8848 1 *rhoa*t19*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t 8849 2 21*t23*(t21*t23*(t21*t23*(t21*t23*(-3*t21*t240*t63+6*t117 8850 3 *t63-6*t21*t217*t25-6*t142*t25-3*t23*t240+t21*t23*(-6*t21 8851 4 *t217*t24-6*t142*t24)+6*t117*t142*t21)-3*t21*t241*t63+6*t 8852 5 118*t63-6*t21*t217*t26-6*t142*t26-3*t23*t241+6*t118*t142* 8853 6 t21)-3*t21*t242*t63+6*t119*t63-6*t21*t217*t27-6*t142*t27- 8854 7 3*t23*t242+6*t119*t142*t21)-3*t21*t243*t63+6*t120*t63-6*t 8855 8 21*t217*t28-6*t142*t28-3*t23*t243+6*t120*t142*t21)-3*t21* 8856 9 t244*t63+6*t121*t63-6*t21*t217*t29-6*t142*t29-3*t23*t244+ 8857 : 6*t121*t142*t21)-3*t21*t245*t63+6*t122*t63-6*t21*t217*t30 8858 ; -6*t142*t30-3*t23*t245+6*t122*t142*t21)-3*t21*t246*t63+6* 8859 < t123*t63-6*t21*t217*t31-6*t142*t31-3*t23*t246+6*t123*t142 8860 = *t21)-3*t21*t247*t63+6*t124*t63-6*t21*t217*t32-6*t142*t32 8861 > -3*t23*t247+6*t124*t142*t21)-3*t21*t248*t63+6*t125*t63-6* 8862 ? t21*t217*t33-6*t142*t33-3*t23*t248+6*t125*t142*t21)-3*t21 8863 @ *t249*t63+6*t126*t63-6*t21*t217*t34-6*t142*t34-3*t23*t249 8864 1 +6*t126*t142*t21))*wght 8865 fnc(iq) = 1.0d+0*(1.5545345434827443d-2*rhoa*t48*t61+1.0d+0* 8866 1 rhoa*t19*t35)*wght+fnc(iq) 8867 Amat(iq,D1_RA) = 1.0d+0*(1.0d+0*rhoa*t35*t89+1.0d+0*rhoa*t19 8868 1 *t74+1.5545345434827443d-2*t48*t61+1.5545345434827443d-2* 8869 2 rhoa*t101*t113*t61+1.5545345434827443d-2*rhoa*t100*t48+1. 8870 3 0d+0*t19*t35)*wght+Amat(iq,D1_RA) 8871 Cmat(iq,D1_GAA) = 1.5545345434827443d-2*rhoa*t101*t116*t61*w 8872 1 ght+Cmat(iq,D1_GAA) 8873 Mmat(iq,D1_TA) = t140+Mmat(iq,D1_TA) 8874 Mmat(iq,D1_TB) = t140+Mmat(iq,D1_TB) 8875 Amat2(iq,D2_RA_RA) = 1.0d+0*(2.0d+0*rhoa*t74*t89+2.0d+0*t35* 8876 1 t89+2.0d+0*t19*t74-1.5545345434827443d-2*rhoa*t186*t187*t 8877 2 61+1.5545345434827443d-2*rhoa*t185*t48+3.1090690869654886 8878 3 d-2*t100*t48+1.0d+0*rhoa*t174*t35+t101*t206+1.0d+0*rhoa*t 8879 4 155*t19)*wght+Amat2(iq,D2_RA_RA) 8880 Cmat2(iq,D2_RA_GAA) = 1.0d+0*(t101*t212-1.5545345434827443d- 8881 1 2*rhoa*t113*t116*t186*t61)*wght+Cmat2(iq,D2_RA_GAA) 8882 Cmat2(iq,D2_GAA_GAA) = 1.5545345434827443d-2*rhoa*t101*t215* 8883 1 t61*wght-1.5545345434827443d-2*rhoa*t186*t213*t61*wght+Cm 8884 2 at2(iq,D2_GAA_GAA) 8885 Mmat2(iq,D2_RA_TA) = t238+Mmat2(iq,D2_RA_TA) 8886 Mmat2(iq,D2_RA_TB) = t238+Mmat2(iq,D2_RA_TB) 8887 Mmat2(iq,D2_GAA_TA) = t239+Mmat2(iq,D2_GAA_TA) 8888 Mmat2(iq,D2_GAA_TB) = t239+Mmat2(iq,D2_GAA_TB) 8889 Mmat2(iq,D2_TA_TA) = t263+Mmat2(iq,D2_TA_TA) 8890 Mmat2(iq,D2_TA_TB) = t263+Mmat2(iq,D2_TA_TB) 8891 Mmat2(iq,D2_TB_TB) = t263+Mmat2(iq,D2_TB_TB) 8892 Amat3(iq,D3_RA_RA_RA) = 1.0d+0*(1.5545345434827443d-2*rhoa*t 8893 1 48*(-9.570780000627304d+0*t144*t21*t63*t99-1.373997447306 8894 2 1137d+2*t141*t63*t99+9.570780000627304d+0*t144*t23*t99+1. 8895 3 3739974473061137d+2*t141*t142*t21*t99+t21*t23*(-9.5707800 8896 4 00627304d+0*t144*t21*t63*t98-1.3739974473061137d+2*t141*t 8897 5 63*t98+9.570780000627304d+0*t144*t23*t98+1.37399744730611 8898 6 37d+2*t141*t142*t21*t98+t21*t23*(-9.570780000627304d+0*t1 8899 7 44*t21*t63*t97-1.3739974473061137d+2*t141*t63*t97+9.57078 8900 8 0000627304d+0*t144*t23*t97+1.3739974473061137d+2*t141*t14 8901 9 2*t21*t97+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t96 8902 : -1.3739974473061137d+2*t141*t63*t96+9.570780000627304d+0* 8903 ; t144*t23*t96+1.3739974473061137d+2*t141*t142*t21*t96+t21* 8904 < t23*(-9.570780000627304d+0*t144*t21*t63*t95-1.37399744730 8905 = 61137d+2*t141*t63*t95+9.570780000627304d+0*t144*t23*t95+1 8906 > .3739974473061137d+2*t141*t142*t21*t95+t21*t23*(-9.570780 8907 ? 000627304d+0*t144*t21*t63*t94-1.3739974473061137d+2*t141* 8908 @ t63*t94+9.570780000627304d+0*t144*t23*t94+1.3739974473061 8909 1 137d+2*t141*t142*t21*t94+t21*t23*(-9.570780000627304d+0*t 8910 2 144*t21*t63*t93-1.3739974473061137d+2*t141*t63*t93+9.5707 8911 3 80000627304d+0*t144*t23*t93+1.3739974473061137d+2*t141*t1 8912 4 42*t21*t93+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t9 8913 5 2-1.3739974473061137d+2*t141*t63*t92+9.570780000627304d+0 8914 6 *t144*t23*t92+1.3739974473061137d+2*t141*t142*t21*t92+t21 8915 7 *t23*(-9.570780000627304d+0*t144*t21*t63*t91-1.3739974473 8916 8 061137d+2*t141*t63*t91+9.570780000627304d+0*t144*t23*t91+ 8917 9 1.3739974473061137d+2*t141*t142*t21*t91+t21*t23*(-9.57078 8918 : 0000627304d+0*t144*t21*t63*t90-1.3739974473061137d+2*t141 8919 ; *t63*t90+9.570780000627304d+0*t144*t23*t90+1.373997447306 8920 < 1137d+2*t141*t142*t21*t90+t21*t23*(1.0634200000697003d+0* 8921 = t21*t265*t50*t63-9.159982982040756d+1*t143*t50*t63-1.0634 8922 > 200000697003d+0*t23*t265*t50-6.57511364479516d+2*t21*t217 8923 ? *t264*t50+6.57511364479516d+2*t142*t264*t50+9.15998298204 8924 @ 0756d+1*t142*t143*t21*t50)-1.4356170000940957d+1*t175*t21 8925 1 *t62*t63+1.0634200000697003d+0*t21*t265*t51*t63-9.1599829 8926 2 82040756d+1*t143*t51*t63+1.4356170000940957d+1*t175*t23*t 8927 3 62-1.0634200000697003d+0*t23*t265*t51-6.57511364479516d+2 8928 4 *t21*t217*t264*t51+6.57511364479516d+2*t142*t264*t51+9.15 8929 5 9982982040756d+1*t142*t143*t21*t51)-1.4356170000940957d+1 8930 6 *t176*t21*t62*t63+1.0634200000697003d+0*t21*t265*t52*t63- 8931 7 9.159982982040756d+1*t143*t52*t63+1.4356170000940957d+1*t 8932 8 176*t23*t62-1.0634200000697003d+0*t23*t265*t52-6.57511364 8933 9 479516d+2*t21*t217*t264*t52+6.57511364479516d+2*t142*t264 8934 : *t52+9.159982982040756d+1*t142*t143*t21*t52)-1.4356170000 8935 ; 940957d+1*t177*t21*t62*t63+1.0634200000697003d+0*t21*t265 8936 < *t53*t63-9.159982982040756d+1*t143*t53*t63+1.435617000094 8937 = 0957d+1*t177*t23*t62-1.0634200000697003d+0*t23*t265*t53-6 8938 > .57511364479516d+2*t21*t217*t264*t53+6.57511364479516d+2* 8939 ? t142*t264*t53+9.159982982040756d+1*t142*t143*t21*t53)-1.4 8940 @ 356170000940957d+1*t178*t21*t62*t63+1.0634200000697003d+0 8941 1 *t21*t265*t54*t63-9.159982982040756d+1*t143*t54*t63+1.435 8942 2 6170000940957d+1*t178*t23*t62-1.0634200000697003d+0*t23*t 8943 3 265*t54-6.57511364479516d+2*t21*t217*t264*t54+6.575113644 8944 4 79516d+2*t142*t264*t54+9.159982982040756d+1*t142*t143*t21 8945 5 *t54)-1.4356170000940957d+1*t179*t21*t62*t63+1.0634200000 8946 6 697003d+0*t21*t265*t55*t63-9.159982982040756d+1*t143*t55* 8947 7 t63+1.4356170000940957d+1*t179*t23*t62-1.0634200000697003 8948 8 d+0*t23*t265*t55-6.57511364479516d+2*t21*t217*t264*t55+6. 8949 9 57511364479516d+2*t142*t264*t55+9.159982982040756d+1*t142 8950 : *t143*t21*t55)-1.4356170000940957d+1*t180*t21*t62*t63+1.0 8951 ; 634200000697003d+0*t21*t265*t56*t63-9.159982982040756d+1* 8952 < t143*t56*t63+1.4356170000940957d+1*t180*t23*t62-1.0634200 8953 = 000697003d+0*t23*t265*t56-6.57511364479516d+2*t21*t217*t2 8954 > 64*t56+6.57511364479516d+2*t142*t264*t56+9.15998298204075 8955 ? 6d+1*t142*t143*t21*t56)-1.4356170000940957d+1*t181*t21*t6 8956 @ 2*t63+1.0634200000697003d+0*t21*t265*t57*t63-9.1599829820 8957 1 40756d+1*t143*t57*t63+1.4356170000940957d+1*t181*t23*t62- 8958 2 1.0634200000697003d+0*t23*t265*t57-6.57511364479516d+2*t2 8959 3 1*t217*t264*t57+6.57511364479516d+2*t142*t264*t57+9.15998 8960 4 2982040756d+1*t142*t143*t21*t57)-1.4356170000940957d+1*t1 8961 5 82*t21*t62*t63+1.0634200000697003d+0*t21*t265*t58*t63-9.1 8962 6 59982982040756d+1*t143*t58*t63+1.4356170000940957d+1*t182 8963 7 *t23*t62-1.0634200000697003d+0*t23*t265*t58-6.57511364479 8964 8 516d+2*t21*t217*t264*t58+6.57511364479516d+2*t142*t264*t5 8965 9 8+9.159982982040756d+1*t142*t143*t21*t58)-1.4356170000940 8966 : 957d+1*t183*t21*t62*t63+1.0634200000697003d+0*t21*t265*t5 8967 ; 9*t63-9.159982982040756d+1*t143*t59*t63+1.435617000094095 8968 < 7d+1*t183*t23*t62-1.0634200000697003d+0*t23*t265*t59-6.57 8969 = 511364479516d+2*t21*t217*t264*t59+6.57511364479516d+2*t14 8970 > 2*t264*t59+9.159982982040756d+1*t142*t143*t21*t59)-1.4356 8971 ? 170000940957d+1*t184*t21*t62*t63+1.0634200000697003d+0*t2 8972 @ 1*t265*t60*t63-9.159982982040756d+1*t143*t60*t63+1.435617 8973 1 0000940957d+1*t184*t23*t62-1.0634200000697003d+0*t23*t265 8974 2 *t60-6.57511364479516d+2*t21*t217*t264*t60+6.575113644795 8975 3 16d+2*t142*t264*t60+9.159982982040756d+1*t142*t143*t21*t6 8976 4 0)+t101*(1.5545345434827443d-2*rhoa*t61*(-2.1622114952063 8977 5 792d-1*gammaaa*t108*t37*t42*(-1.1607717772370736d+3*t111* 8978 6 t174*t38*t43*t89+3.482315331711221d+3*t174*t191*t200*t43* 8979 7 t89+4.912140634218306d+2*t109*t111*t188*t201*t38*t89-1.40 8980 8 34687526338022d+1*t109*t110*t111*t189*t38*t89-8.908774348 8981 9 060524d+0*t109*t276*t295*t44+3.030195356483172d-2*t109*t1 8982 : 10*t278*t44+6.363410248614663d-1*t109*t201*t277*t44+2.986 8983 ; 8021449983523d+5*t279*t280*t43/t39**5.0d+0+2.489001787498 8984 < 6267d+4*t111*t279*t38*t43+6.014866082716293d+0*t111*t274* 8985 = t38*t43-2.2401016087487644d+5*t191*t200*t279*t43+5.416934 8986 > 960439677d+3*t102*t109*t110*t111*t190*t38-8.4208125158028 8987 ? 09d+1*t102*t109*t110*t111*t174*t38+t294+t293+t292+t291+t2 8988 @ 90+t289+t288+t287+t286+t285+t284+t283+t282+t281-1.6250804 8989 1 88131903d+4*t102*t109*t110*t190*t191*t200)+7.007166882613 8990 2 269d-2*gammaaa*t103*t278*t42*t46+8.829030272092719d-1*gam 8991 3 maaa*t114*t277*t42*t46-8.240428253953201d+0*gammaaa*t110* 8992 4 t276*t42*t46+2.1622114952063792d-1*gammaaa*(t294+t293+t29 8993 5 2+t291+t290+t289+t288+t287+t286+t285+t284+t283+t282+t281) 8994 6 *t37*t46-1.5135480466444656d+0*gammaaa*t102*t103*t199*t46 8995 7 -2.522580077740777d-1*gammaaa*t103*t107*t189*t46+5.297418 8996 8 163255629d+0*gammaaa*t107*t114*t188*t46-1.297326897123827 8997 9 8d+0*gammaaa*t112**3*t296*t37*t42+1.2973268971238278d+0*g 8998 : ammaaa*t112*t202*t203*t37*t42-3.027096093288931d+0*gammaa 8999 ; a*t102*t103*t203*t204*t42+1.5135480466444656d+0*gammaaa*t 9000 < 102*t103*t108*t202*t42+2.522580077740777d-1*gammaaa*t103* 9001 = t108*t112*t189*t42-5.297418163255629d+0*gammaaa*t108*t112 9002 > *t114*t188*t42+1.2973268971238278d+0*gammaaa*t107*t203*t2 9003 ? 04*t37-6.486634485619138d-1*gammaaa*t107*t108*t202*t37-6. 9004 @ 486634485619138d-1*gammaaa*t108*t112*t199*t37+3.027096093 9005 1 288931d+0*gammaaa*t102*t103*t107*t108*t112)+4.66360363044 9006 2 82326d-2*t205*t61+4.6636036304482326d-2*rhoa*t100*t205+4. 9007 3 6636036304482326d-2*rhoa*t113*t185+9.327207260896465d-2*t 9008 4 100*t113)+6.0d+0*t74*t89+3.0d+0*rhoa*t155*t89+3.0d+0*rhoa 9009 5 *t174*t74+1.0d+0*rhoa*t19*(-9.570780000627304d+0*t144*t21 9010 6 *t63*t73-1.3739974473061137d+2*t141*t63*t73+9.57078000062 9011 7 7304d+0*t144*t23*t73+1.3739974473061137d+2*t141*t142*t21* 9012 8 t73+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t72-1.373 9013 9 9974473061137d+2*t141*t63*t72+9.570780000627304d+0*t144*t 9014 : 23*t72+1.3739974473061137d+2*t141*t142*t21*t72+t21*t23*(- 9015 ; 9.570780000627304d+0*t144*t21*t63*t71-1.3739974473061137d 9016 < +2*t141*t63*t71+9.570780000627304d+0*t144*t23*t71+1.37399 9017 = 74473061137d+2*t141*t142*t21*t71+t21*t23*(-9.570780000627 9018 > 304d+0*t144*t21*t63*t70-1.3739974473061137d+2*t141*t63*t7 9019 ? 0+9.570780000627304d+0*t144*t23*t70+1.3739974473061137d+2 9020 @ *t141*t142*t21*t70+t21*t23*(-9.570780000627304d+0*t144*t2 9021 1 1*t63*t69-1.3739974473061137d+2*t141*t63*t69+9.5707800006 9022 2 27304d+0*t144*t23*t69+1.3739974473061137d+2*t141*t142*t21 9023 3 *t69+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t68-1.37 9024 4 39974473061137d+2*t141*t63*t68+9.570780000627304d+0*t144* 9025 5 t23*t68+1.3739974473061137d+2*t141*t142*t21*t68+t21*t23*( 9026 6 -9.570780000627304d+0*t144*t21*t63*t67-1.3739974473061137 9027 7 d+2*t141*t63*t67+9.570780000627304d+0*t144*t23*t67+1.3739 9028 8 974473061137d+2*t141*t142*t21*t67+t21*t23*(-9.57078000062 9029 9 7304d+0*t144*t21*t63*t66-1.3739974473061137d+2*t141*t63*t 9030 : 66+9.570780000627304d+0*t144*t23*t66+1.3739974473061137d+ 9031 ; 2*t141*t142*t21*t66+t21*t23*(-9.570780000627304d+0*t144*t 9032 < 21*t63*t65-1.3739974473061137d+2*t141*t63*t65+9.570780000 9033 = 627304d+0*t144*t23*t65+1.3739974473061137d+2*t141*t142*t2 9034 > 1*t65+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t64-1.3 9035 ? 739974473061137d+2*t141*t63*t64+9.570780000627304d+0*t144 9036 @ *t23*t64+1.3739974473061137d+2*t141*t142*t21*t64+t21*t23* 9037 1 (1.0634200000697003d+0*t21*t24*t265*t63-9.159982982040756 9038 2 d+1*t143*t24*t63-1.0634200000697003d+0*t23*t24*t265-6.575 9039 3 11364479516d+2*t21*t217*t24*t264+6.57511364479516d+2*t142 9040 4 *t24*t264+9.159982982040756d+1*t142*t143*t21*t24)-1.43561 9041 5 70000940957d+1*t145*t21*t62*t63+1.0634200000697003d+0*t21 9042 6 *t25*t265*t63-9.159982982040756d+1*t143*t25*t63+1.4356170 9043 7 000940957d+1*t145*t23*t62-1.0634200000697003d+0*t23*t25*t 9044 8 265-6.57511364479516d+2*t21*t217*t25*t264+6.5751136447951 9045 9 6d+2*t142*t25*t264+9.159982982040756d+1*t142*t143*t21*t25 9046 : )-1.4356170000940957d+1*t146*t21*t62*t63+1.06342000006970 9047 ; 03d+0*t21*t26*t265*t63-9.159982982040756d+1*t143*t26*t63+ 9048 < 1.4356170000940957d+1*t146*t23*t62-1.0634200000697003d+0* 9049 = t23*t26*t265-6.57511364479516d+2*t21*t217*t26*t264+6.5751 9050 > 1364479516d+2*t142*t26*t264+9.159982982040756d+1*t142*t14 9051 ? 3*t21*t26)-1.4356170000940957d+1*t147*t21*t62*t63+1.06342 9052 @ 00000697003d+0*t21*t265*t27*t63-9.159982982040756d+1*t143 9053 1 *t27*t63+1.4356170000940957d+1*t147*t23*t62-1.06342000006 9054 2 97003d+0*t23*t265*t27-6.57511364479516d+2*t21*t217*t264*t 9055 3 27+6.57511364479516d+2*t142*t264*t27+9.159982982040756d+1 9056 4 *t142*t143*t21*t27)-1.4356170000940957d+1*t148*t21*t62*t6 9057 5 3+1.0634200000697003d+0*t21*t265*t28*t63-9.15998298204075 9058 6 6d+1*t143*t28*t63+1.4356170000940957d+1*t148*t23*t62-1.06 9059 7 34200000697003d+0*t23*t265*t28-6.57511364479516d+2*t21*t2 9060 8 17*t264*t28+6.57511364479516d+2*t142*t264*t28+9.159982982 9061 9 040756d+1*t142*t143*t21*t28)-1.4356170000940957d+1*t149*t 9062 : 21*t62*t63+1.0634200000697003d+0*t21*t265*t29*t63-9.15998 9063 ; 2982040756d+1*t143*t29*t63+1.4356170000940957d+1*t149*t23 9064 < *t62-1.0634200000697003d+0*t23*t265*t29-6.57511364479516d 9065 = +2*t21*t217*t264*t29+6.57511364479516d+2*t142*t264*t29+9. 9066 > 159982982040756d+1*t142*t143*t21*t29)-1.4356170000940957d 9067 ? +1*t150*t21*t62*t63+1.0634200000697003d+0*t21*t265*t30*t6 9068 @ 3-9.159982982040756d+1*t143*t30*t63+1.4356170000940957d+1 9069 1 *t150*t23*t62-1.0634200000697003d+0*t23*t265*t30-6.575113 9070 2 64479516d+2*t21*t217*t264*t30+6.57511364479516d+2*t142*t2 9071 3 64*t30+9.159982982040756d+1*t142*t143*t21*t30)-1.43561700 9072 4 00940957d+1*t151*t21*t62*t63+1.0634200000697003d+0*t21*t2 9073 5 65*t31*t63-9.159982982040756d+1*t143*t31*t63+1.4356170000 9074 6 940957d+1*t151*t23*t62-1.0634200000697003d+0*t23*t265*t31 9075 7 -6.57511364479516d+2*t21*t217*t264*t31+6.57511364479516d+ 9076 8 2*t142*t264*t31+9.159982982040756d+1*t142*t143*t21*t31)-1 9077 9 .4356170000940957d+1*t152*t21*t62*t63+1.0634200000697003d 9078 : +0*t21*t265*t32*t63-9.159982982040756d+1*t143*t32*t63+1.4 9079 ; 356170000940957d+1*t152*t23*t62-1.0634200000697003d+0*t23 9080 < *t265*t32-6.57511364479516d+2*t21*t217*t264*t32+6.5751136 9081 = 4479516d+2*t142*t264*t32+9.159982982040756d+1*t142*t143*t 9082 > 21*t32)-1.4356170000940957d+1*t153*t21*t62*t63+1.06342000 9083 ? 00697003d+0*t21*t265*t33*t63-9.159982982040756d+1*t143*t3 9084 @ 3*t63+1.4356170000940957d+1*t153*t23*t62-1.06342000006970 9085 1 03d+0*t23*t265*t33-6.57511364479516d+2*t21*t217*t264*t33+ 9086 2 6.57511364479516d+2*t142*t264*t33+9.159982982040756d+1*t1 9087 3 42*t143*t21*t33)-1.4356170000940957d+1*t154*t21*t62*t63+1 9088 4 .0634200000697003d+0*t21*t265*t34*t63-9.159982982040756d+ 9089 5 1*t143*t34*t63+1.4356170000940957d+1*t154*t23*t62-1.06342 9090 6 00000697003d+0*t23*t265*t34-6.57511364479516d+2*t21*t217* 9091 7 t264*t34+6.57511364479516d+2*t142*t264*t34+9.159982982040 9092 8 756d+1*t142*t143*t21*t34)+t186*(-3.1090690869654886d-2*rh 9093 9 oa*t113*t205*t61-1.5545345434827443d-2*t187*t61-t113*t206 9094 : -1.5545345434827443d-2*rhoa*t100*t187)+3.1090690869654886 9095 ; d-2*rhoa*t113**3*t275*t61+4.6636036304482326d-2*t185*t48+ 9096 < 1.0d+0*rhoa*t274*t35+3.0d+0*t174*t35+3.0d+0*t155*t19)*wgh 9097 = t+Amat3(iq,D3_RA_RA_RA) 9098 Cmat3(iq,D3_RA_RA_GAA) = 1.0d+0*(t101*(1.5545345434827443d-2 9099 1 *rhoa*t61*(-2.1622114952063792d-1*gammaaa*t108*t37*t42*(- 9100 2 1.1227750021070412d+2*gammaaa*t102*t110*t111*t38*t89+2.54 9101 3 5364099445864d+0*gammaaa*t188*t201*t44-7.272468855559613d 9102 4 -2*gammaaa*t110*t189*t44-7.738478514913824d+2*gammaaa*t11 9103 5 1*t114*t190*t38+1.2029732165432584d+1*gammaaa*t111*t114*t 9104 6 174*t38+t302+t301+t300+t299+t298+t297+2.3215435544741472d 9105 7 +3*gammaaa*t114*t190*t191*t200)-8.408600259135923d-2*t103 9106 8 *t189*t42*t46+1.765806054418543d+0*t114*t188*t42*t46+3.81 9107 9 8046149168795d-1*gammaaa*t188*t201*t40*t46-1.818117213889 9108 : 9032d-2*gammaaa*t110*t189*t40*t46+2.1622114952063792d-1*g 9109 ; ammaaa*(t302+t301+t300+t299+t298+t297)*t37*t46+2.16221149 9110 < 52063792d-1*t199*t37*t46-1.0090320310963104d+0*gammaaa*t1 9111 = 02*t103*t209*t46-1.0090320310963104d+0*t102*t103*t107*t46 9112 > -1.2973268971238278d+0*gammaaa*t115*t204*t296*t37*t42+8.6 9113 ? 48845980825517d-1*gammaaa*t112*t203*t210*t37*t42+4.324422 9114 @ 9904127585d-1*t203*t204*t37*t42+4.3244229904127585d-1*gam 9115 1 maaa*t115*t202*t203*t37*t42-2.1622114952063792d-1*t108*t2 9116 2 02*t37*t42+1.0090320310963104d+0*gammaaa*t102*t103*t108*t 9117 3 210*t42-2.0180640621926207d+0*gammaaa*t102*t103*t112*t115 9118 4 *t203*t42+8.408600259135923d-2*gammaaa*t103*t108*t115*t18 9119 5 9*t42-1.765806054418543d+0*gammaaa*t108*t114*t115*t188*t4 9120 6 2+1.0090320310963104d+0*t102*t103*t108*t112*t42+9.3503171 9121 7 00005212d-2*gammaaa*t114*t203*t204*t40-4.675158550002606d 9122 8 -2*gammaaa*t108*t114*t202*t40+2.181740656667883d-1*gammaa 9123 9 a*t102*t108*t110*t112*t40-4.3244229904127585d-1*gammaaa*t 9124 : 107*t108*t210*t37-4.3244229904127585d-1*gammaaa*t108*t112 9125 ; *t209*t37+8.648845980825517d-1*gammaaa*t107*t112*t115*t20 9126 < 3*t37-2.1622114952063792d-1*gammaaa*t108*t115*t199*t37-4. 9127 = 3244229904127585d-1*t107*t108*t112*t37+1.0090320310963104 9128 > d+0*gammaaa*t102*t103*t107*t108*t115)+3.1090690869654886d 9129 ? -2*t211*t61+3.1090690869654886d-2*rhoa*t100*t211+1.554534 9130 @ 5434827443d-2*rhoa*t116*t185+3.1090690869654886d-2*t100*t 9131 1 116)+t186*(-3.1090690869654886d-2*rhoa*t113*t211*t61-t116 9132 2 *t206)+3.1090690869654886d-2*rhoa*t116*t187*t275*t61)*wgh 9133 3 t+Cmat3(iq,D3_RA_RA_GAA) 9134 Cmat3(iq,D3_RA_GAA_GAA) = 1.0d+0*(t101*(1.5545345434827443d- 9135 1 2*rhoa*t61*(-2.1622114952063792d-1*gammaaa*t108*t37*t42*( 9136 2 1.2029732165432584d+1*t111*t114*t38*t89-4.363481313335766 9137 3 d-1*t102*t110*t44)-2.181740656667883d-1*t102*t110*t40*t46 9138 4 +4.3244229904127585d-1*t209*t37*t46+4.7173847274064107d-2 9139 5 *gammaaa*t102*t108*t295*t42*t44+4.0434726234912094d-2*gam 9140 6 maaa*t112*t201*t203*t42*t44-2.0217363117456047d-2*gammaaa 9141 7 *t107*t108*t201*t44-1.2973268971238278d+0*gammaaa*t112*t2 9142 8 14*t296*t37*t42+8.648845980825517d-1*gammaaa*t115*t203*t2 9143 9 10*t37*t42-4.3244229904127585d-1*t108*t210*t37*t42+8.6488 9144 : 45980825517d-1*t112*t115*t203*t37*t42-1.0090320310963104d 9145 ; +0*gammaaa*t102*t103*t203*t214*t42+1.0090320310963104d+0* 9146 < t102*t103*t108*t115*t42-9.350317100005212d-2*gammaaa*t108 9147 = *t114*t210*t40+1.8700634200010424d-1*gammaaa*t112*t114*t1 9148 > 15*t203*t40+2.181740656667883d-1*gammaaa*t102*t108*t110*t 9149 ? 115*t40-9.350317100005212d-2*t108*t112*t114*t40+4.3244229 9150 @ 904127585d-1*gammaaa*t107*t203*t214*t37-4.324422990412758 9151 1 5d-1*gammaaa*t108*t115*t209*t37-4.3244229904127585d-1*t10 9152 2 7*t108*t115*t37)+1.5545345434827443d-2*t215*t61+1.5545345 9153 3 434827443d-2*rhoa*t100*t215)+t186*(-1.5545345434827443d-2 9154 4 *rhoa*t113*t215*t61-1.5545345434827443d-2*rhoa*t116*t211* 9155 5 t61-t116*t212)+3.1090690869654886d-2*rhoa*t113*t213*t275* 9156 6 t61)*wght+Cmat3(iq,D3_RA_GAA_GAA) 9157 Cmat3(iq,D3_GAA_GAA_GAA) = 1.5545345434827443d-2*rhoa*t101*( 9158 1 1.2130417870473628d-1*gammaaa*t115*t201*t203*t42*t44-6.06 9159 2 5208935236814d-2*t108*t201*t42*t44-1.2973268971238278d+0* 9160 3 gammaaa*t115**3*t296*t37*t42+1.2973268971238278d+0*t203*t 9161 4 214*t37*t42+2.8050951300015636d-1*gammaaa*t114*t203*t214* 9162 5 t40-2.8050951300015636d-1*t108*t114*t115*t40-1.3114264480 9163 6 597482d-2*gammaaa*t108*t111/t36**8.0d+0)*t61*wght+3.10906 9164 7 90869654886d-2*rhoa*t116**3*t275*t61*wght-4.6636036304482 9165 8 326d-2*rhoa*t116*t186*t215*t61*wght+Cmat3(iq,D3_GAA_GAA_G 9166 9 AA) 9167 Mmat3(iq,D3_RA_RA_TA) = t304+Mmat3(iq,D3_RA_RA_TA) 9168 Mmat3(iq,D3_RA_RA_TB) = t304+Mmat3(iq,D3_RA_RA_TB) 9169 Mmat3(iq,D3_RA_GAA_TA) = t305+Mmat3(iq,D3_RA_GAA_TA) 9170 Mmat3(iq,D3_RA_GAA_TB) = t305+Mmat3(iq,D3_RA_GAA_TB) 9171 Mmat3(iq,D3_GAA_GAA_TA) = t306+Mmat3(iq,D3_GAA_GAA_TA) 9172 Mmat3(iq,D3_GAA_GAA_TB) = t306+Mmat3(iq,D3_GAA_GAA_TB) 9173 Mmat3(iq,D3_RA_TA_TA) = t307+Mmat3(iq,D3_RA_TA_TA) 9174 Mmat3(iq,D3_RA_TA_TB) = t307+Mmat3(iq,D3_RA_TA_TB) 9175 Mmat3(iq,D3_RA_TB_TB) = t307+Mmat3(iq,D3_RA_TB_TB) 9176 Mmat3(iq,D3_GAA_TA_TA) = t308+Mmat3(iq,D3_GAA_TA_TA) 9177 Mmat3(iq,D3_GAA_TA_TB) = t308+Mmat3(iq,D3_GAA_TA_TB) 9178 Mmat3(iq,D3_GAA_TB_TB) = t308+Mmat3(iq,D3_GAA_TB_TB) 9179 Mmat3(iq,D3_TA_TA_TA) = t309+Mmat3(iq,D3_TA_TA_TA) 9180 Mmat3(iq,D3_TA_TA_TB) = t309+Mmat3(iq,D3_TA_TA_TB) 9181 Mmat3(iq,D3_TA_TB_TB) = t309+Mmat3(iq,D3_TA_TB_TB) 9182 Mmat3(iq,D3_TB_TB_TB) = t309+Mmat3(iq,D3_TB_TB_TB) 9183 elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then 9184 t1 = rhob**3.333333333333333d-1 9185 t2 = t1**5.0d-1 9186 t3 = 1/t2 9187 t4 = 1.530901310039024d-2*t3+1.0465751434d-1 9188 t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1 9189 t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1 9190 t7 = 1/t6 9191 t8 = 1.269642451250142d+0*t2*t7+1.0d+0 9192 t9 = log(t8) 9193 t10 = 1/t1 9194 t11 = 1.2746961887000874d-1*t10+1.0d+0 9195 t12 = 2.4141993114533214d-2*t3+1.0186556948d-1 9196 t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1 9197 t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1 9198 t15 = 1/t14 9199 t16 = 1.269642451250142d+0*t15*t2+1.0d+0 9200 t17 = log(t16) 9201 t18 = 1.325688999052018d-1*t10+1.0d+0 9202 t19 = 9.999999999999991d-1*(6.21814d-2*t17*t18-3.10907d-2*t1 9203 1 1*t9)-6.21814d-2*t17*t18 9204 t20 = 2.871234000188191d+0*rhob**1.6666666666666669d+0 9205 t21 = -taub-taua+t20 9206 t22 = taub+taua+t20 9207 t23 = 1/t22 9208 t24 = param(12) 9209 t25 = t21*t23*t24+param(11) 9210 t26 = t21*t23*t25+param(10) 9211 t27 = t21*t23*t26+param(9) 9212 t28 = t21*t23*t27+param(8) 9213 t29 = t21*t23*t28+param(7) 9214 t30 = t21*t23*t29+param(6) 9215 t31 = t21*t23*t30+param(5) 9216 t32 = t21*t23*t31+param(4) 9217 t33 = t21*t23*t32+param(3) 9218 t34 = t21*t23*t33+param(2) 9219 t35 = t21*t23*t34+param(1) 9220 t36 = rhob**1.1666666666666667d+0 9221 t37 = 1/t36**2.0d+0 9222 t38 = exp(-6.432793688582967d+1*t19) 9223 t39 = t38-1.0d+0 9224 t40 = 1/t39 9225 t41 = 2.1622114952063792d-1*gammabb*t37*t40 9226 t42 = t41+1.0d+0 9227 t43 = (gammabb*t37)**2.0d+0 9228 t44 = 1/t39**2.0d+0 9229 t45 = 4.675158550002606d-2*t43*t44+t41+1.0d+0 9230 t46 = 1/t45 9231 t47 = 2.1622114952063792d-1*gammabb*t37*t42*t46+1.0d+0 9232 t48 = log(t47) 9233 t49 = param(14) 9234 t50 = param(24) 9235 t51 = t21*t23*t50+param(23) 9236 t52 = t21*t23*t51+param(22) 9237 t53 = t21*t23*t52+param(21) 9238 t54 = t21*t23*t53+param(20) 9239 t55 = t21*t23*t54+param(19) 9240 t56 = t21*t23*t55+param(18) 9241 t57 = t21*t23*t56+param(17) 9242 t58 = t21*t23*t57+param(16) 9243 t59 = t21*t23*t58+param(15) 9244 t60 = t21*t23*t59+t49 9245 t61 = t21*t23*t60+param(13) 9246 t62 = rhob**6.666666666666666d-1 9247 t63 = 1/t22**2 9248 t64 = 4.785390000313652d+0*t23*t24*t62-4.785390000313652d+0* 9249 1 t21*t24*t62*t63 9250 t65 = t21*t23*t64-4.785390000313652d+0*t21*t25*t62*t63+4.785 9251 1 390000313652d+0*t23*t25*t62 9252 t66 = t21*t23*t65-4.785390000313652d+0*t21*t26*t62*t63+4.785 9253 1 390000313652d+0*t23*t26*t62 9254 t67 = t21*t23*t66-4.785390000313652d+0*t21*t27*t62*t63+4.785 9255 1 390000313652d+0*t23*t27*t62 9256 t68 = t21*t23*t67-4.785390000313652d+0*t21*t28*t62*t63+4.785 9257 1 390000313652d+0*t23*t28*t62 9258 t69 = t21*t23*t68-4.785390000313652d+0*t21*t29*t62*t63+4.785 9259 1 390000313652d+0*t23*t29*t62 9260 t70 = t21*t23*t69-4.785390000313652d+0*t21*t30*t62*t63+4.785 9261 1 390000313652d+0*t23*t30*t62 9262 t71 = t21*t23*t70-4.785390000313652d+0*t21*t31*t62*t63+4.785 9263 1 390000313652d+0*t23*t31*t62 9264 t72 = t21*t23*t71-4.785390000313652d+0*t21*t32*t62*t63+4.785 9265 1 390000313652d+0*t23*t32*t62 9266 t73 = t21*t23*t72-4.785390000313652d+0*t21*t33*t62*t63+4.785 9267 1 390000313652d+0*t23*t33*t62 9268 t74 = t21*t23*t73-4.785390000313652d+0*t21*t34*t62*t63+4.785 9269 1 390000313652d+0*t23*t34*t62 9270 t75 = 1/rhob**1.3333333333333333d+0 9271 t76 = 1/t8 9272 t77 = 1/t6**2 9273 t78 = 1/rhob**1.3333333333333336d+0 9274 t79 = 1/t2**3 9275 t80 = 1/rhob**6.666666666666667d-1 9276 t81 = -1.3127055298329054d-1*t4*t79*t80-2.0096226153166658d- 9277 1 3*t78 9278 t82 = 7.876233178997433d-1*t3*t81-1.3127055298329054d-1*t5*t 9279 1 79*t80 9280 t83 = 2.11607075208357d-1*t3*t7*t80-1.269642451250142d+0*t2* 9281 1 t77*t82 9282 t84 = 1/t16 9283 t85 = 1/t14**2 9284 t86 = -1.3127055298329054d-1*t12*t79*t80-3.169132786263567d- 9285 1 3*t78 9286 t87 = 7.876233178997433d-1*t3*t86-1.3127055298329054d-1*t13* 9287 1 t79*t80 9288 t88 = 2.11607075208357d-1*t15*t3*t80-1.269642451250142d+0*t2 9289 1 *t85*t87 9290 t89 = 9.999999999999991d-1*(1.3210398931339265d-3*t75*t9+6.2 9291 1 1814d-2*t18*t84*t88-3.10907d-2*t11*t76*t83-2.747773264188 9292 2 438d-3*t17*t75)-6.21814d-2*t18*t84*t88+2.747773264188438d 9293 3 -3*t17*t75 9294 t90 = 4.785390000313652d+0*t23*t50*t62-4.785390000313652d+0* 9295 1 t21*t50*t62*t63 9296 t91 = t21*t23*t90-4.785390000313652d+0*t21*t51*t62*t63+4.785 9297 1 390000313652d+0*t23*t51*t62 9298 t92 = t21*t23*t91-4.785390000313652d+0*t21*t52*t62*t63+4.785 9299 1 390000313652d+0*t23*t52*t62 9300 t93 = t21*t23*t92-4.785390000313652d+0*t21*t53*t62*t63+4.785 9301 1 390000313652d+0*t23*t53*t62 9302 t94 = t21*t23*t93-4.785390000313652d+0*t21*t54*t62*t63+4.785 9303 1 390000313652d+0*t23*t54*t62 9304 t95 = t21*t23*t94-4.785390000313652d+0*t21*t55*t62*t63+4.785 9305 1 390000313652d+0*t23*t55*t62 9306 t96 = t21*t23*t95-4.785390000313652d+0*t21*t56*t62*t63+4.785 9307 1 390000313652d+0*t23*t56*t62 9308 t97 = t21*t23*t96-4.785390000313652d+0*t21*t57*t62*t63+4.785 9309 1 390000313652d+0*t23*t57*t62 9310 t98 = t21*t23*t97-4.785390000313652d+0*t21*t58*t62*t63+4.785 9311 1 390000313652d+0*t23*t58*t62 9312 t99 = t21*t23*t98-4.785390000313652d+0*t21*t59*t62*t63+4.785 9313 1 390000313652d+0*t23*t59*t62 9314 t100 = t21*t23*t99-4.785390000313652d+0*t21*t60*t62*t63+4.78 9315 1 5390000313652d+0*t23*t60*t62 9316 t101 = 1/t47 9317 t102 = rhob**1.6666666666666674d-1 9318 t103 = 1/t36**3.0d+0 9319 t104 = -5.045160155481552d-1*gammabb*t102*t103*t40 9320 t105 = 1/t39**2 9321 t106 = 1.3909060459745137d+1*gammabb*t105*t37*t38*t89 9322 t107 = t106+t104 9323 t108 = 1/t45**2 9324 t109 = gammabb**2 9325 t110 = 1/t36**5.0d+0 9326 t111 = 1/t39**3.0d+0 9327 t112 = 6.014866082716293d+0*t111*t38*t43*t89-2.1817406566678 9328 1 83d-1*t102*t109*t110*t44+t106+t104 9329 t113 = -5.045160155481552d-1*gammabb*t102*t103*t42*t46+2.162 9330 1 2114952063792d-1*gammabb*t107*t37*t46-2.1622114952063792d 9331 2 -1*gammabb*t108*t112*t37*t42 9332 t114 = 1/t36**4.0d+0 9333 t115 = 9.350317100005212d-2*gammabb*t114*t44+2.1622114952063 9334 1 792d-1*t37*t40 9335 t116 = 2.1622114952063792d-1*t37*t42*t46+4.675158550002606d- 9336 1 2*gammabb*t114*t40*t46-2.1622114952063792d-1*gammabb*t108 9337 2 *t115*t37*t42 9338 t117 = -t21*t24*t63-t23*t24 9339 t118 = -t21*t25*t63-t23*t25+t117*t21*t23 9340 t119 = -t21*t26*t63-t23*t26+t118*t21*t23 9341 t120 = -t21*t27*t63-t23*t27+t119*t21*t23 9342 t121 = -t21*t28*t63-t23*t28+t120*t21*t23 9343 t122 = -t21*t29*t63-t23*t29+t121*t21*t23 9344 t123 = -t21*t30*t63-t23*t30+t122*t21*t23 9345 t124 = -t21*t31*t63-t23*t31+t123*t21*t23 9346 t125 = -t21*t32*t63-t23*t32+t124*t21*t23 9347 t126 = -t21*t33*t63-t23*t33+t125*t21*t23 9348 t127 = -t21*t34*t63-t23*t34+t126*t21*t23 9349 t128 = -t21*t50*t63-t23*t50 9350 t129 = -t21*t51*t63-t23*t51+t128*t21*t23 9351 t130 = -t21*t52*t63-t23*t52+t129*t21*t23 9352 t131 = -t21*t53*t63-t23*t53+t130*t21*t23 9353 t132 = -t21*t54*t63-t23*t54+t131*t21*t23 9354 t133 = -t21*t55*t63-t23*t55+t132*t21*t23 9355 t134 = -t21*t56*t63-t23*t56+t133*t21*t23 9356 t135 = -t21*t57*t63-t23*t57+t134*t21*t23 9357 t136 = -t21*t58*t63-t23*t58+t135*t21*t23 9358 t137 = -t21*t59*t63-t23*t59+t136*t21*t23 9359 t138 = -t21*t60*t63 9360 t139 = -t23*t60+t137*t21*t23+t138 9361 t140 = 1.0d+0*(1.5545345434827443d-2*rhob*t139*t48+1.0d+0*rh 9362 1 ob*t127*t19)*wght 9363 t141 = rhob**1.3333333333333333d+0 9364 t142 = 1/t22**3 9365 t143 = rhob**3.333333333333333d-1 9366 t144 = 1/t143 9367 t145 = -3.190260000209101d+0*t144*t21*t24*t63-4.579991491020 9368 1 378d+1*t141*t24*t63+3.190260000209101d+0*t144*t23*t24+4.5 9369 2 79991491020378d+1*t141*t142*t21*t24 9370 t146 = -9.570780000627304d+0*t21*t62*t63*t64+9.5707800006273 9371 1 04d+0*t23*t62*t64-3.190260000209101d+0*t144*t21*t25*t63-4 9372 2 .579991491020378d+1*t141*t25*t63+3.190260000209101d+0*t14 9373 3 4*t23*t25+4.579991491020378d+1*t141*t142*t21*t25+t145*t21 9374 4 *t23 9375 t147 = -9.570780000627304d+0*t21*t62*t63*t65+9.5707800006273 9376 1 04d+0*t23*t62*t65-3.190260000209101d+0*t144*t21*t26*t63-4 9377 2 .579991491020378d+1*t141*t26*t63+3.190260000209101d+0*t14 9378 3 4*t23*t26+4.579991491020378d+1*t141*t142*t21*t26+t146*t21 9379 4 *t23 9380 t148 = -9.570780000627304d+0*t21*t62*t63*t66+9.5707800006273 9381 1 04d+0*t23*t62*t66-3.190260000209101d+0*t144*t21*t27*t63-4 9382 2 .579991491020378d+1*t141*t27*t63+3.190260000209101d+0*t14 9383 3 4*t23*t27+4.579991491020378d+1*t141*t142*t21*t27+t147*t21 9384 4 *t23 9385 t149 = -9.570780000627304d+0*t21*t62*t63*t67+9.5707800006273 9386 1 04d+0*t23*t62*t67-3.190260000209101d+0*t144*t21*t28*t63-4 9387 2 .579991491020378d+1*t141*t28*t63+3.190260000209101d+0*t14 9388 3 4*t23*t28+4.579991491020378d+1*t141*t142*t21*t28+t148*t21 9389 4 *t23 9390 t150 = -9.570780000627304d+0*t21*t62*t63*t68+9.5707800006273 9391 1 04d+0*t23*t62*t68-3.190260000209101d+0*t144*t21*t29*t63-4 9392 2 .579991491020378d+1*t141*t29*t63+3.190260000209101d+0*t14 9393 3 4*t23*t29+4.579991491020378d+1*t141*t142*t21*t29+t149*t21 9394 4 *t23 9395 t151 = -9.570780000627304d+0*t21*t62*t63*t69+9.5707800006273 9396 1 04d+0*t23*t62*t69-3.190260000209101d+0*t144*t21*t30*t63-4 9397 2 .579991491020378d+1*t141*t30*t63+3.190260000209101d+0*t14 9398 3 4*t23*t30+4.579991491020378d+1*t141*t142*t21*t30+t150*t21 9399 4 *t23 9400 t152 = -9.570780000627304d+0*t21*t62*t63*t70+9.5707800006273 9401 1 04d+0*t23*t62*t70-3.190260000209101d+0*t144*t21*t31*t63-4 9402 2 .579991491020378d+1*t141*t31*t63+3.190260000209101d+0*t14 9403 3 4*t23*t31+4.579991491020378d+1*t141*t142*t21*t31+t151*t21 9404 4 *t23 9405 t153 = -9.570780000627304d+0*t21*t62*t63*t71+9.5707800006273 9406 1 04d+0*t23*t62*t71-3.190260000209101d+0*t144*t21*t32*t63-4 9407 2 .579991491020378d+1*t141*t32*t63+3.190260000209101d+0*t14 9408 3 4*t23*t32+4.579991491020378d+1*t141*t142*t21*t32+t152*t21 9409 4 *t23 9410 t154 = -9.570780000627304d+0*t21*t62*t63*t72+9.5707800006273 9411 1 04d+0*t23*t62*t72-3.190260000209101d+0*t144*t21*t33*t63-4 9412 2 .579991491020378d+1*t141*t33*t63+3.190260000209101d+0*t14 9413 3 4*t23*t33+4.579991491020378d+1*t141*t142*t21*t33+t153*t21 9414 4 *t23 9415 t155 = -9.570780000627304d+0*t21*t62*t63*t73+9.5707800006273 9416 1 04d+0*t23*t62*t73-3.190260000209101d+0*t144*t21*t34*t63-4 9417 2 .579991491020378d+1*t141*t34*t63+3.190260000209101d+0*t14 9418 3 4*t23*t34+4.579991491020378d+1*t141*t142*t21*t34+t154*t21 9419 4 *t23 9420 t156 = 1/rhob**2.333333333333333d+0 9421 t157 = 1/t8**2 9422 t158 = t83**2 9423 t159 = 1/t6**3 9424 t160 = t82**2 9425 t161 = 1/rhob**2.3333333333333334d+0 9426 t162 = 1/rhob**1.6666666666666669d+0 9427 t163 = 1/t2**5 9428 t164 = 8.751370198886037d-2*t162*t4*t79+6.563527649164527d-2 9429 1 *t163*t4*t78+3.0144339229749983d-3*t161 9430 t165 = -2.625411059665811d-1*t79*t80*t81+8.751370198886037d- 9431 1 2*t162*t5*t79+6.563527649164527d-2*t163*t5*t78+7.87623317 9432 2 8997433d-1*t164*t3 9433 t166 = -4.23214150416714d-1*t3*t77*t80*t82-3.52678458680595d 9434 1 -2*t7*t78*t79-1.269642451250142d+0*t165*t2*t77-1.41071383 9435 2 47223802d-1*t162*t3*t7+2.539284902500284d+0*t159*t160*t2 9436 t167 = 1/t16**2 9437 t168 = t88**2 9438 t169 = 1/t14**3 9439 t170 = t87**2 9440 t171 = 8.751370198886037d-2*t12*t162*t79+6.563527649164527d- 9441 1 2*t12*t163*t78+4.753699179395351d-3*t161 9442 t172 = -2.625411059665811d-1*t79*t80*t86+8.751370198886037d- 9443 1 2*t13*t162*t79+6.563527649164527d-2*t13*t163*t78+7.876233 9444 2 178997433d-1*t171*t3 9445 t173 = -4.23214150416714d-1*t3*t80*t85*t87-1.269642451250142 9446 1 d+0*t172*t2*t85-3.52678458680595d-2*t15*t78*t79-1.4107138 9447 2 347223802d-1*t15*t162*t3+2.539284902500284d+0*t169*t170*t 9448 3 2 9449 t174 = 9.999999999999991d-1*(-1.7613865241785687d-3*t156*t9- 9450 1 5.495546528376876d-3*t75*t84*t88+6.21814d-2*t173*t18*t84+ 9451 2 2.642079786267853d-3*t75*t76*t83-3.10907d-2*t11*t166*t76- 9452 3 6.21814d-2*t167*t168*t18+3.663697685584584d-3*t156*t17+3. 9453 4 10907d-2*t11*t157*t158)+5.495546528376876d-3*t75*t84*t88- 9454 5 6.21814d-2*t173*t18*t84+6.21814d-2*t167*t168*t18-3.663697 9455 6 685584584d-3*t156*t17 9456 t175 = -3.190260000209101d+0*t144*t21*t50*t63-4.579991491020 9457 1 378d+1*t141*t50*t63+3.190260000209101d+0*t144*t23*t50+4.5 9458 2 79991491020378d+1*t141*t142*t21*t50 9459 t176 = -9.570780000627304d+0*t21*t62*t63*t90+9.5707800006273 9460 1 04d+0*t23*t62*t90-3.190260000209101d+0*t144*t21*t51*t63-4 9461 2 .579991491020378d+1*t141*t51*t63+3.190260000209101d+0*t14 9462 3 4*t23*t51+4.579991491020378d+1*t141*t142*t21*t51+t175*t21 9463 4 *t23 9464 t177 = -9.570780000627304d+0*t21*t62*t63*t91+9.5707800006273 9465 1 04d+0*t23*t62*t91-3.190260000209101d+0*t144*t21*t52*t63-4 9466 2 .579991491020378d+1*t141*t52*t63+3.190260000209101d+0*t14 9467 3 4*t23*t52+4.579991491020378d+1*t141*t142*t21*t52+t176*t21 9468 4 *t23 9469 t178 = -9.570780000627304d+0*t21*t62*t63*t92+9.5707800006273 9470 1 04d+0*t23*t62*t92-3.190260000209101d+0*t144*t21*t53*t63-4 9471 2 .579991491020378d+1*t141*t53*t63+3.190260000209101d+0*t14 9472 3 4*t23*t53+4.579991491020378d+1*t141*t142*t21*t53+t177*t21 9473 4 *t23 9474 t179 = -9.570780000627304d+0*t21*t62*t63*t93+9.5707800006273 9475 1 04d+0*t23*t62*t93-3.190260000209101d+0*t144*t21*t54*t63-4 9476 2 .579991491020378d+1*t141*t54*t63+3.190260000209101d+0*t14 9477 3 4*t23*t54+4.579991491020378d+1*t141*t142*t21*t54+t178*t21 9478 4 *t23 9479 t180 = -9.570780000627304d+0*t21*t62*t63*t94+9.5707800006273 9480 1 04d+0*t23*t62*t94-3.190260000209101d+0*t144*t21*t55*t63-4 9481 2 .579991491020378d+1*t141*t55*t63+3.190260000209101d+0*t14 9482 3 4*t23*t55+4.579991491020378d+1*t141*t142*t21*t55+t179*t21 9483 4 *t23 9484 t181 = -9.570780000627304d+0*t21*t62*t63*t95+9.5707800006273 9485 1 04d+0*t23*t62*t95-3.190260000209101d+0*t144*t21*t56*t63-4 9486 2 .579991491020378d+1*t141*t56*t63+3.190260000209101d+0*t14 9487 3 4*t23*t56+4.579991491020378d+1*t141*t142*t21*t56+t180*t21 9488 4 *t23 9489 t182 = -9.570780000627304d+0*t21*t62*t63*t96+9.5707800006273 9490 1 04d+0*t23*t62*t96-3.190260000209101d+0*t144*t21*t57*t63-4 9491 2 .579991491020378d+1*t141*t57*t63+3.190260000209101d+0*t14 9492 3 4*t23*t57+4.579991491020378d+1*t141*t142*t21*t57+t181*t21 9493 4 *t23 9494 t183 = -9.570780000627304d+0*t21*t62*t63*t97+9.5707800006273 9495 1 04d+0*t23*t62*t97-3.190260000209101d+0*t144*t21*t58*t63-4 9496 2 .579991491020378d+1*t141*t58*t63+3.190260000209101d+0*t14 9497 3 4*t23*t58+4.579991491020378d+1*t141*t142*t21*t58+t182*t21 9498 4 *t23 9499 t184 = -9.570780000627304d+0*t21*t62*t63*t98+9.5707800006273 9500 1 04d+0*t23*t62*t98-3.190260000209101d+0*t144*t21*t59*t63-4 9501 2 .579991491020378d+1*t141*t59*t63+3.190260000209101d+0*t14 9502 3 4*t23*t59+4.579991491020378d+1*t141*t142*t21*t59+t183*t21 9503 4 *t23 9504 t185 = -9.570780000627304d+0*t21*t62*t63*t99+9.5707800006273 9505 1 04d+0*t23*t62*t99-3.190260000209101d+0*t144*t21*t60*t63-4 9506 2 .579991491020378d+1*t141*t60*t63+3.190260000209101d+0*t14 9507 3 4*t23*t60+4.579991491020378d+1*t141*t142*t21*t60+t184*t21 9508 4 *t23 9509 t186 = 1/t47**2 9510 t187 = t113**2 9511 t188 = rhob**3.333333333333335d-1 9512 t189 = 1/rhob**8.333333333333333d-1 9513 t190 = t89**2 9514 t191 = exp(-1.2865587377165935d+2*t19) 9515 t192 = 1/t39**3 9516 t193 = 1.7894823267913484d+3*gammabb*t190*t191*t192*t37 9517 t194 = 1.765806054418543d+0*gammabb*t114*t188*t40 9518 t195 = -8.408600259135923d-2*gammabb*t103*t189*t40 9519 t196 = -6.490894881214397d+1*gammabb*t102*t103*t105*t38*t89 9520 t197 = -8.947411633956742d+2*gammabb*t105*t190*t37*t38 9521 t198 = 1.3909060459745137d+1*gammabb*t105*t174*t37*t38 9522 t199 = t198+t197+t196+t195+t194+t193 9523 t200 = 1/t39**4.0d+0 9524 t201 = 1/t36**6.0d+0 9525 t202 = -5.613875010535206d+1*t102*t109*t110*t111*t38*t89+1.2 9526 1 72682049722932d+0*t109*t188*t201*t44-3.6362344277798064d- 9527 2 2*t109*t110*t189*t44-3.869239257456912d+2*t111*t190*t38*t 9528 3 43+6.014866082716293d+0*t111*t174*t38*t43+1.1607717772370 9529 4 736d+3*t190*t191*t200*t43+t198+t197+t196+t195+t194+t193 9530 t203 = 1/t45**3 9531 t204 = t112**2 9532 t205 = -8.408600259135923d-2*gammabb*t103*t189*t42*t46+1.765 9533 1 806054418543d+0*gammabb*t114*t188*t42*t46+2.1622114952063 9534 2 792d-1*gammabb*t199*t37*t46-1.0090320310963104d+0*gammabb 9535 3 *t102*t103*t107*t46+4.3244229904127585d-1*gammabb*t203*t2 9536 4 04*t37*t42-2.1622114952063792d-1*gammabb*t108*t202*t37*t4 9537 5 2+1.0090320310963104d+0*gammabb*t102*t103*t108*t112*t42-4 9538 6 .3244229904127585d-1*gammabb*t107*t108*t112*t37 9539 t206 = 1.5545345434827443d-2*rhob*t205*t61+3.109069086965488 9540 1 6d-2*t113*t61+3.1090690869654886d-2*rhob*t100*t113 9541 t207 = -5.045160155481552d-1*t102*t103*t40 9542 t208 = 1.3909060459745137d+1*t105*t37*t38*t89 9543 t209 = t208+t207 9544 t210 = 1.2029732165432584d+1*gammabb*t111*t114*t38*t89-4.363 9545 1 481313335766d-1*gammabb*t102*t110*t44+t208+t207 9546 t211 = -5.045160155481552d-1*t102*t103*t42*t46-1.09087032833 9547 1 39415d-1*gammabb*t102*t110*t40*t46+2.1622114952063792d-1* 9548 2 gammabb*t209*t37*t46+2.1622114952063792d-1*t107*t37*t46-2 9549 3 .1622114952063792d-1*gammabb*t108*t210*t37*t42+4.32442299 9550 4 04127585d-1*gammabb*t112*t115*t203*t37*t42-2.162211495206 9551 5 3792d-1*t108*t112*t37*t42+5.045160155481552d-1*gammabb*t1 9552 6 02*t103*t108*t115*t42-4.675158550002606d-2*gammabb*t108*t 9553 7 112*t114*t40-2.1622114952063792d-1*gammabb*t107*t108*t115 9554 8 *t37 9555 t212 = 1.5545345434827443d-2*rhob*t211*t61+1.554534543482744 9556 1 3d-2*t116*t61+1.5545345434827443d-2*rhob*t100*t116 9557 t213 = t116**2 9558 t214 = t115**2 9559 t215 = 9.350317100005212d-2*t114*t40*t46-2.0217363117456047d 9560 1 -2*gammabb*t108*t201*t42*t44+4.3244229904127585d-1*gammab 9561 2 b*t203*t214*t37*t42-4.3244229904127585d-1*t108*t115*t37*t 9562 3 42-9.350317100005212d-2*gammabb*t108*t114*t115*t40 9563 t216 = t21**2 9564 t217 = 1/t22**4 9565 t218 = -t21*t63*t64-t23*t64-4.785390000313652d+0*t117*t21*t6 9566 1 2*t63+9.570780000627304d+0*t142*t21*t25*t62+9.57078000062 9567 2 7304d+0*t216*t217*t24*t62+4.785390000313652d+0*t117*t23*t 9568 3 62 9569 t219 = -t21*t63*t65-t23*t65-4.785390000313652d+0*t118*t21*t6 9570 1 2*t63+9.570780000627304d+0*t142*t21*t26*t62+4.78539000031 9571 2 3652d+0*t118*t23*t62+t21*t218*t23 9572 t220 = -t21*t63*t66-t23*t66-4.785390000313652d+0*t119*t21*t6 9573 1 2*t63+9.570780000627304d+0*t142*t21*t27*t62+4.78539000031 9574 2 3652d+0*t119*t23*t62+t21*t219*t23 9575 t221 = -t21*t63*t67-t23*t67-4.785390000313652d+0*t120*t21*t6 9576 1 2*t63+9.570780000627304d+0*t142*t21*t28*t62+4.78539000031 9577 2 3652d+0*t120*t23*t62+t21*t220*t23 9578 t222 = -t21*t63*t68-t23*t68-4.785390000313652d+0*t121*t21*t6 9579 1 2*t63+9.570780000627304d+0*t142*t21*t29*t62+4.78539000031 9580 2 3652d+0*t121*t23*t62+t21*t221*t23 9581 t223 = -t21*t63*t69-t23*t69-4.785390000313652d+0*t122*t21*t6 9582 1 2*t63+9.570780000627304d+0*t142*t21*t30*t62+4.78539000031 9583 2 3652d+0*t122*t23*t62+t21*t222*t23 9584 t224 = -t21*t63*t70-t23*t70-4.785390000313652d+0*t123*t21*t6 9585 1 2*t63+9.570780000627304d+0*t142*t21*t31*t62+4.78539000031 9586 2 3652d+0*t123*t23*t62+t21*t223*t23 9587 t225 = -t21*t63*t71-t23*t71-4.785390000313652d+0*t124*t21*t6 9588 1 2*t63+9.570780000627304d+0*t142*t21*t32*t62+4.78539000031 9589 2 3652d+0*t124*t23*t62+t21*t224*t23 9590 t226 = -t21*t63*t72-t23*t72-4.785390000313652d+0*t125*t21*t6 9591 1 2*t63+9.570780000627304d+0*t142*t21*t33*t62+4.78539000031 9592 2 3652d+0*t125*t23*t62+t21*t225*t23 9593 t227 = -t21*t63*t73-t23*t73-4.785390000313652d+0*t126*t21*t6 9594 1 2*t63+9.570780000627304d+0*t142*t21*t34*t62+4.78539000031 9595 2 3652d+0*t126*t23*t62+t21*t226*t23 9596 t228 = -t21*t63*t90-t23*t90-4.785390000313652d+0*t128*t21*t6 9597 1 2*t63+9.570780000627304d+0*t142*t21*t51*t62+9.57078000062 9598 2 7304d+0*t216*t217*t50*t62+4.785390000313652d+0*t128*t23*t 9599 3 62 9600 t229 = -t21*t63*t91-t23*t91-4.785390000313652d+0*t129*t21*t6 9601 1 2*t63+9.570780000627304d+0*t142*t21*t52*t62+4.78539000031 9602 2 3652d+0*t129*t23*t62+t21*t228*t23 9603 t230 = -t21*t63*t92-t23*t92-4.785390000313652d+0*t130*t21*t6 9604 1 2*t63+9.570780000627304d+0*t142*t21*t53*t62+4.78539000031 9605 2 3652d+0*t130*t23*t62+t21*t229*t23 9606 t231 = -t21*t63*t93-t23*t93-4.785390000313652d+0*t131*t21*t6 9607 1 2*t63+9.570780000627304d+0*t142*t21*t54*t62+4.78539000031 9608 2 3652d+0*t131*t23*t62+t21*t23*t230 9609 t232 = -t21*t63*t94-t23*t94-4.785390000313652d+0*t132*t21*t6 9610 1 2*t63+9.570780000627304d+0*t142*t21*t55*t62+4.78539000031 9611 2 3652d+0*t132*t23*t62+t21*t23*t231 9612 t233 = -t21*t63*t95-t23*t95-4.785390000313652d+0*t133*t21*t6 9613 1 2*t63+9.570780000627304d+0*t142*t21*t56*t62+4.78539000031 9614 2 3652d+0*t133*t23*t62+t21*t23*t232 9615 t234 = -t21*t63*t96-t23*t96-4.785390000313652d+0*t134*t21*t6 9616 1 2*t63+9.570780000627304d+0*t142*t21*t57*t62+4.78539000031 9617 2 3652d+0*t134*t23*t62+t21*t23*t233 9618 t235 = -t21*t63*t97-t23*t97-4.785390000313652d+0*t135*t21*t6 9619 1 2*t63+9.570780000627304d+0*t142*t21*t58*t62+4.78539000031 9620 2 3652d+0*t135*t23*t62+t21*t23*t234 9621 t236 = -t21*t63*t98-t23*t98-4.785390000313652d+0*t136*t21*t6 9622 1 2*t63+9.570780000627304d+0*t142*t21*t59*t62+4.78539000031 9623 2 3652d+0*t136*t23*t62+t21*t23*t235 9624 t237 = -t21*t63*t99-t23*t99-4.785390000313652d+0*t137*t21*t6 9625 1 2*t63+9.570780000627304d+0*t142*t21*t60*t62+4.78539000031 9626 2 3652d+0*t137*t23*t62+t21*t23*t236 9627 t238 = 1.0d+0*(1.0d+0*rhob*t127*t89+1.5545345434827443d-2*rh 9628 1 ob*t237*t48+1.5545345434827443d-2*t139*t48+1.0d+0*rhob*t1 9629 2 9*t227+1.0d+0*t127*t19+1.5545345434827443d-2*rhob*t101*t1 9630 3 13*t139)*wght 9631 t239 = 1.5545345434827443d-2*rhob*t101*t116*(t23*(-t21*t23*t 9632 1 59-t49+t137*t21)+t138)*wght 9633 t240 = 2*t24*t63+2*t142*t21*t24 9634 t241 = 2*t25*t63-2*t117*t21*t63+2*t142*t21*t25+t21*t23*t240- 9635 1 2*t117*t23 9636 t242 = 2*t26*t63-2*t118*t21*t63+2*t142*t21*t26+t21*t23*t241- 9637 1 2*t118*t23 9638 t243 = 2*t27*t63-2*t119*t21*t63+2*t142*t21*t27+t21*t23*t242- 9639 1 2*t119*t23 9640 t244 = 2*t28*t63-2*t120*t21*t63+2*t142*t21*t28+t21*t23*t243- 9641 1 2*t120*t23 9642 t245 = 2*t29*t63-2*t121*t21*t63+2*t142*t21*t29+t21*t23*t244- 9643 1 2*t121*t23 9644 t246 = 2*t30*t63-2*t122*t21*t63+2*t142*t21*t30+t21*t23*t245- 9645 1 2*t122*t23 9646 t247 = 2*t31*t63-2*t123*t21*t63+2*t142*t21*t31+t21*t23*t246- 9647 1 2*t123*t23 9648 t248 = 2*t32*t63-2*t124*t21*t63+2*t142*t21*t32+t21*t23*t247- 9649 1 2*t124*t23 9650 t249 = 2*t33*t63-2*t125*t21*t63+2*t142*t21*t33+t21*t23*t248- 9651 1 2*t125*t23 9652 t250 = 2*t34*t63-2*t126*t21*t63+2*t142*t21*t34+t21*t23*t249- 9653 1 2*t126*t23 9654 t251 = 2*t50*t63+2*t142*t21*t50 9655 t252 = 2*t51*t63-2*t128*t21*t63+2*t142*t21*t51+t21*t23*t251- 9656 1 2*t128*t23 9657 t253 = 2*t52*t63-2*t129*t21*t63+2*t142*t21*t52+t21*t23*t252- 9658 1 2*t129*t23 9659 t254 = 2*t53*t63-2*t130*t21*t63+2*t142*t21*t53+t21*t23*t253- 9660 1 2*t130*t23 9661 t255 = 2*t54*t63-2*t131*t21*t63+2*t142*t21*t54+t21*t23*t254- 9662 1 2*t131*t23 9663 t256 = 2*t55*t63-2*t132*t21*t63+2*t142*t21*t55+t21*t23*t255- 9664 1 2*t132*t23 9665 t257 = 2*t56*t63-2*t133*t21*t63+2*t142*t21*t56+t21*t23*t256- 9666 1 2*t133*t23 9667 t258 = 2*t57*t63-2*t134*t21*t63+2*t142*t21*t57+t21*t23*t257- 9668 1 2*t134*t23 9669 t259 = 2*t58*t63-2*t135*t21*t63+2*t142*t21*t58+t21*t23*t258- 9670 1 2*t135*t23 9671 t260 = 2*t59*t63-2*t136*t21*t63+2*t142*t21*t59+t21*t23*t259- 9672 1 2*t136*t23 9673 t261 = 2*t142*t21*t60 9674 t262 = 2*t60*t63-2*t137*t21*t63+t261+t21*t23*t260-2*t137*t23 9675 t263 = 1.0d+0*(1.5545345434827443d-2*rhob*t262*t48+1.0d+0*rh 9676 1 ob*t19*t250)*wght 9677 t264 = rhob**2 9678 t265 = 1/t141 9679 t266 = 1/rhob**3.333333333333333d+0 9680 t267 = 1/rhob**3.3333333333333337d+0 9681 t268 = 1/rhob**2.666666666666667d+0 9682 t269 = 1/t2**7 9683 t270 = 1/rhob**2.0d+0 9684 t271 = 1/t16**3 9685 t272 = t88**3 9686 t273 = -7.617854707500852d+0*t2*t87**3/t14**4+1.058035376041 9687 1 7849d-1*t78*t79*t85*t87+4.2321415041671406d-1*t162*t3*t85 9688 2 *t87+7.617854707500852d+0*t169*t172*t2*t87-1.269642451250 9689 3 142d+0*t2*t85*(2.625411059665811d-1*t162*t79*t86+1.969058 9690 4 2947493582d-1*t163*t78*t86-3.9381165894987163d-1*t171*t79 9691 5 *t80+7.876233178997433d-1*t3*(-1.4585616998143394d-1*t12* 9692 6 t268*t79-5.469606374303773d-2*t12*t269*t270-1.17081850159 9693 7 18181d-2*t267-1.3127055298329054d-1*t12*t161*t163)-1.4585 9694 8 616998143394d-1*t13*t268*t79-5.469606374303773d-2*t13*t26 9695 9 9*t270-1.3127055298329054d-1*t13*t161*t163)-6.34821225625 9696 : 071d-1*t172*t3*t80*t85+1.269642451250142d+0*t169*t170*t3* 9697 ; t80+7.053569173611901d-2*t15*t161*t79+2.3511897245373004d 9698 < -1*t15*t268*t3+1.763392293402975d-2*t15*t163*t270 9699 t274 = 9.999999999999991d-1*(4.1099018897499934d-3*t266*t9+1 9700 1 .0991093056753751d-2*t156*t84*t88-1.865442d-1*t167*t173*t 9701 2 18*t88-8.243319792565315d-3*t173*t75*t84+6.21814d-2*t18*t 9702 3 273*t84-6.21814d-2*t11*t83**3/t8**3-5.284159572535706d-3* 9703 4 t156*t76*t83+9.327209999999999d-2*t11*t157*t166*t83-3.109 9704 5 07d-2*t11*t76*(-7.617854707500852d+0*t2*t82**3/t6**4+1.05 9705 6 80353760417849d-1*t77*t78*t79*t82+4.2321415041671406d-1*t 9706 7 162*t3*t77*t82+7.617854707500852d+0*t159*t165*t2*t82-1.26 9707 8 9642451250142d+0*t2*t77*(2.625411059665811d-1*t162*t79*t8 9708 9 1+1.9690582947493582d-1*t163*t78*t81-3.9381165894987163d- 9709 : 1*t164*t79*t80+7.876233178997433d-1*t3*(-1.45856169981433 9710 ; 94d-1*t268*t4*t79-5.469606374303773d-2*t269*t270*t4-1.312 9711 < 7055298329054d-1*t161*t163*t4-7.424439106586571d-3*t267)- 9712 = 1.4585616998143394d-1*t268*t5*t79-5.469606374303773d-2*t2 9713 > 69*t270*t5-1.3127055298329054d-1*t161*t163*t5)-6.34821225 9714 ? 625071d-1*t165*t3*t77*t80+1.269642451250142d+0*t159*t160* 9715 @ t3*t80+7.053569173611901d-2*t161*t7*t79+2.351189724537300 9716 1 4d-1*t268*t3*t7+1.763392293402975d-2*t163*t270*t7)+3.9631 9717 2 1967940178d-3*t166*t75*t76+8.243319792565315d-3*t167*t168 9718 3 *t75-3.96311967940178d-3*t157*t158*t75+1.243628d-1*t18*t2 9719 4 71*t272-8.548627933030694d-3*t17*t266)-1.0991093056753751 9720 5 d-2*t156*t84*t88+1.865442d-1*t167*t173*t18*t88+8.24331979 9721 6 2565315d-3*t173*t75*t84-6.21814d-2*t18*t273*t84-8.2433197 9722 7 92565315d-3*t167*t168*t75-1.243628d-1*t18*t271*t272+8.548 9723 8 627933030694d-3*t17*t266 9724 t275 = 1/t47**3 9725 t276 = rhob**5.000000000000002d-1 9726 t277 = 1/rhob**6.666666666666665d-1 9727 t278 = 1/rhob**1.8333333333333332d+0 9728 t279 = t89**3 9729 t280 = exp(-1.92983810657489d+2*t19) 9730 t281 = 3.453411185284245d+5*gammabb*t279*t280*t37/t39**4 9731 t282 = -1.252637628753944d+4*gammabb*t102*t103*t190*t191*t19 9732 1 2 9733 t283 = -3.453411185284245d+5*gammabb*t191*t192*t279*t37 9734 t284 = 5.368446980374045d+3*gammabb*t174*t191*t192*t37*t89 9735 t285 = -8.240428253953201d+0*gammabb*t110*t276*t40 9736 t286 = 8.829030272092719d-1*gammabb*t114*t277*t40 9737 t287 = 7.007166882613269d-2*gammabb*t103*t278*t40 9738 t288 = 3.4077198126375585d+2*gammabb*t105*t114*t188*t38*t89 9739 t289 = -1.6227237203036002d+1*gammabb*t103*t105*t189*t38*t89 9740 t290 = 6.263188143769719d+3*gammabb*t102*t103*t105*t190*t38 9741 t291 = -9.736342321821596d+1*gammabb*t102*t103*t105*t174*t38 9742 t292 = 5.755685308807075d+4*gammabb*t105*t279*t37*t38 9743 t293 = -2.6842234901870227d+3*gammabb*t105*t174*t37*t38*t89 9744 t294 = 1.3909060459745137d+1*gammabb*t105*t274*t37*t38 9745 t295 = 1/t36**7.0d+0 9746 t296 = 1/t45**4 9747 t297 = 1.7894823267913484d+3*t190*t191*t192*t37 9748 t298 = 1.765806054418543d+0*t114*t188*t40 9749 t299 = -8.408600259135923d-2*t103*t189*t40 9750 t300 = -6.490894881214397d+1*t102*t103*t105*t38*t89 9751 t301 = -8.947411633956742d+2*t105*t190*t37*t38 9752 t302 = 1.3909060459745137d+1*t105*t174*t37*t38 9753 t303 = 1/t22**5 9754 t304 = 1.0d+0*(1.5545345434827443d-2*rhob*t48*(1.91415600012 9755 1 54607d+1*t142*t21*t62*t99+t21*t23*(1.9141560001254607d+1* 9756 2 t142*t21*t62*t98+t21*t23*(1.9141560001254607d+1*t142*t21* 9757 3 t62*t97+t21*t23*(1.9141560001254607d+1*t142*t21*t62*t96+t 9758 4 21*t23*(1.9141560001254607d+1*t142*t21*t62*t95+t21*t23*(1 9759 5 .9141560001254607d+1*t142*t21*t62*t94+t21*t23*(1.91415600 9760 6 01254607d+1*t142*t21*t62*t93+t21*t23*(1.9141560001254607d 9761 7 +1*t142*t21*t62*t92+t21*t23*(1.9141560001254607d+1*t142*t 9762 8 21*t62*t91+t21*t23*(1.9141560001254607d+1*t142*t21*t62*t9 9763 9 0-t175*t21*t63-3.190260000209101d+0*t128*t144*t21*t63-4.5 9764 : 79991491020378d+1*t128*t141*t63-1.3739974473061137d+2*t14 9765 ; 1*t21*t217*t51+6.380520000418202d+0*t142*t144*t21*t51+4.5 9766 < 79991491020378d+1*t141*t142*t51+t21*t23*(-1.3739974473061 9767 = 137d+2*t141*t21*t217*t50+6.380520000418202d+0*t142*t144*t 9768 > 21*t50+4.579991491020378d+1*t141*t142*t50)-9.159982982040 9769 ? 756d+1*t141*t216*t303*t50+9.159982982040756d+1*t141*t21*t 9770 @ 217*t50-t175*t23+3.190260000209101d+0*t128*t144*t23+4.579 9771 1 991491020378d+1*t128*t141*t142*t21)-9.570780000627304d+0* 9772 2 t21*t228*t62*t63-t176*t21*t63-3.190260000209101d+0*t129*t 9773 3 144*t21*t63-4.579991491020378d+1*t129*t141*t63+9.57078000 9774 4 0627304d+0*t228*t23*t62-1.3739974473061137d+2*t141*t21*t2 9775 5 17*t52+6.380520000418202d+0*t142*t144*t21*t52+4.579991491 9776 6 020378d+1*t141*t142*t52-t176*t23+3.190260000209101d+0*t12 9777 7 9*t144*t23+4.579991491020378d+1*t129*t141*t142*t21)-9.570 9778 8 780000627304d+0*t21*t229*t62*t63-t177*t21*t63-3.190260000 9779 9 209101d+0*t130*t144*t21*t63-4.579991491020378d+1*t130*t14 9780 : 1*t63+9.570780000627304d+0*t229*t23*t62-1.373997447306113 9781 ; 7d+2*t141*t21*t217*t53+6.380520000418202d+0*t142*t144*t21 9782 < *t53+4.579991491020378d+1*t141*t142*t53-t177*t23+3.190260 9783 = 000209101d+0*t130*t144*t23+4.579991491020378d+1*t130*t141 9784 > *t142*t21)-9.570780000627304d+0*t21*t230*t62*t63-t178*t21 9785 ? *t63-3.190260000209101d+0*t131*t144*t21*t63-4.57999149102 9786 @ 0378d+1*t131*t141*t63+9.570780000627304d+0*t23*t230*t62-1 9787 1 .3739974473061137d+2*t141*t21*t217*t54+6.380520000418202d 9788 2 +0*t142*t144*t21*t54+4.579991491020378d+1*t141*t142*t54-t 9789 3 178*t23+3.190260000209101d+0*t131*t144*t23+4.579991491020 9790 4 378d+1*t131*t141*t142*t21)-9.570780000627304d+0*t21*t231* 9791 5 t62*t63-t179*t21*t63-3.190260000209101d+0*t132*t144*t21*t 9792 6 63-4.579991491020378d+1*t132*t141*t63+9.570780000627304d+ 9793 7 0*t23*t231*t62-1.3739974473061137d+2*t141*t21*t217*t55+6. 9794 8 380520000418202d+0*t142*t144*t21*t55+4.579991491020378d+1 9795 9 *t141*t142*t55-t179*t23+3.190260000209101d+0*t132*t144*t2 9796 : 3+4.579991491020378d+1*t132*t141*t142*t21)-9.570780000627 9797 ; 304d+0*t21*t232*t62*t63-t180*t21*t63-3.190260000209101d+0 9798 < *t133*t144*t21*t63-4.579991491020378d+1*t133*t141*t63+9.5 9799 = 70780000627304d+0*t23*t232*t62-1.3739974473061137d+2*t141 9800 > *t21*t217*t56+6.380520000418202d+0*t142*t144*t21*t56+4.57 9801 ? 9991491020378d+1*t141*t142*t56-t180*t23+3.190260000209101 9802 @ d+0*t133*t144*t23+4.579991491020378d+1*t133*t141*t142*t21 9803 1 )-9.570780000627304d+0*t21*t233*t62*t63-t181*t21*t63-3.19 9804 2 0260000209101d+0*t134*t144*t21*t63-4.579991491020378d+1*t 9805 3 134*t141*t63+9.570780000627304d+0*t23*t233*t62-1.37399744 9806 4 73061137d+2*t141*t21*t217*t57+6.380520000418202d+0*t142*t 9807 5 144*t21*t57+4.579991491020378d+1*t141*t142*t57-t181*t23+3 9808 6 .190260000209101d+0*t134*t144*t23+4.579991491020378d+1*t1 9809 7 34*t141*t142*t21)-9.570780000627304d+0*t21*t234*t62*t63-t 9810 8 182*t21*t63-3.190260000209101d+0*t135*t144*t21*t63-4.5799 9811 9 91491020378d+1*t135*t141*t63+9.570780000627304d+0*t23*t23 9812 : 4*t62-1.3739974473061137d+2*t141*t21*t217*t58+6.380520000 9813 ; 418202d+0*t142*t144*t21*t58+4.579991491020378d+1*t141*t14 9814 < 2*t58-t182*t23+3.190260000209101d+0*t135*t144*t23+4.57999 9815 = 1491020378d+1*t135*t141*t142*t21)-9.570780000627304d+0*t2 9816 > 1*t235*t62*t63-t183*t21*t63-3.190260000209101d+0*t136*t14 9817 ? 4*t21*t63-4.579991491020378d+1*t136*t141*t63+9.5707800006 9818 @ 27304d+0*t23*t235*t62-1.3739974473061137d+2*t141*t21*t217 9819 1 *t59+6.380520000418202d+0*t142*t144*t21*t59+4.57999149102 9820 2 0378d+1*t141*t142*t59-t183*t23+3.190260000209101d+0*t136* 9821 3 t144*t23+4.579991491020378d+1*t136*t141*t142*t21)-9.57078 9822 4 0000627304d+0*t21*t236*t62*t63-t184*t21*t63-3.19026000020 9823 5 9101d+0*t137*t144*t21*t63-4.579991491020378d+1*t137*t141* 9824 6 t63+9.570780000627304d+0*t23*t236*t62-1.3739974473061137d 9825 7 +2*t141*t21*t217*t60+6.380520000418202d+0*t142*t144*t21*t 9826 8 60+4.579991491020378d+1*t141*t142*t60-t184*t23+3.19026000 9827 9 0209101d+0*t137*t144*t23+4.579991491020378d+1*t137*t141*t 9828 : 142*t21)+2.0d+0*rhob*t227*t89+2.0d+0*t127*t89+1.0d+0*rhob 9829 ; *t19*(1.9141560001254607d+1*t142*t21*t62*t73+t21*t23*(1.9 9830 < 141560001254607d+1*t142*t21*t62*t72+t21*t23*(1.9141560001 9831 = 254607d+1*t142*t21*t62*t71+t21*t23*(1.9141560001254607d+1 9832 > *t142*t21*t62*t70+t21*t23*(1.9141560001254607d+1*t142*t21 9833 ? *t62*t69+t21*t23*(1.9141560001254607d+1*t142*t21*t62*t68+ 9834 @ t21*t23*(1.9141560001254607d+1*t142*t21*t62*t67+t21*t23*( 9835 1 1.9141560001254607d+1*t142*t21*t62*t66+t21*t23*(1.9141560 9836 2 001254607d+1*t142*t21*t62*t65+t21*t23*(1.9141560001254607 9837 3 d+1*t142*t21*t62*t64-t145*t21*t63-3.190260000209101d+0*t1 9838 4 17*t144*t21*t63-4.579991491020378d+1*t117*t141*t63-9.1599 9839 5 82982040756d+1*t141*t216*t24*t303-1.3739974473061137d+2*t 9840 6 141*t21*t217*t25+6.380520000418202d+0*t142*t144*t21*t25+4 9841 7 .579991491020378d+1*t141*t142*t25+t21*t23*(-1.37399744730 9842 8 61137d+2*t141*t21*t217*t24+6.380520000418202d+0*t142*t144 9843 9 *t21*t24+4.579991491020378d+1*t141*t142*t24)+9.1599829820 9844 : 40756d+1*t141*t21*t217*t24-t145*t23+3.190260000209101d+0* 9845 ; t117*t144*t23+4.579991491020378d+1*t117*t141*t142*t21)-9. 9846 < 570780000627304d+0*t21*t218*t62*t63-t146*t21*t63-3.190260 9847 = 000209101d+0*t118*t144*t21*t63-4.579991491020378d+1*t118* 9848 > t141*t63+9.570780000627304d+0*t218*t23*t62-1.373997447306 9849 ? 1137d+2*t141*t21*t217*t26+6.380520000418202d+0*t142*t144* 9850 @ t21*t26+4.579991491020378d+1*t141*t142*t26-t146*t23+3.190 9851 1 260000209101d+0*t118*t144*t23+4.579991491020378d+1*t118*t 9852 2 141*t142*t21)-9.570780000627304d+0*t21*t219*t62*t63-t147* 9853 3 t21*t63-3.190260000209101d+0*t119*t144*t21*t63-4.57999149 9854 4 1020378d+1*t119*t141*t63+9.570780000627304d+0*t219*t23*t6 9855 5 2-1.3739974473061137d+2*t141*t21*t217*t27+6.3805200004182 9856 6 02d+0*t142*t144*t21*t27+4.579991491020378d+1*t141*t142*t2 9857 7 7-t147*t23+3.190260000209101d+0*t119*t144*t23+4.579991491 9858 8 020378d+1*t119*t141*t142*t21)-9.570780000627304d+0*t21*t2 9859 9 20*t62*t63-t148*t21*t63-3.190260000209101d+0*t120*t144*t2 9860 : 1*t63-4.579991491020378d+1*t120*t141*t63+9.57078000062730 9861 ; 4d+0*t220*t23*t62-1.3739974473061137d+2*t141*t21*t217*t28 9862 < +6.380520000418202d+0*t142*t144*t21*t28+4.579991491020378 9863 = d+1*t141*t142*t28-t148*t23+3.190260000209101d+0*t120*t144 9864 > *t23+4.579991491020378d+1*t120*t141*t142*t21)-9.570780000 9865 ? 627304d+0*t21*t221*t62*t63-t149*t21*t63-3.190260000209101 9866 @ d+0*t121*t144*t21*t63-4.579991491020378d+1*t121*t141*t63+ 9867 1 9.570780000627304d+0*t221*t23*t62-1.3739974473061137d+2*t 9868 2 141*t21*t217*t29+6.380520000418202d+0*t142*t144*t21*t29+4 9869 3 .579991491020378d+1*t141*t142*t29-t149*t23+3.190260000209 9870 4 101d+0*t121*t144*t23+4.579991491020378d+1*t121*t141*t142* 9871 5 t21)-9.570780000627304d+0*t21*t222*t62*t63-t150*t21*t63-3 9872 6 .190260000209101d+0*t122*t144*t21*t63-4.579991491020378d+ 9873 7 1*t122*t141*t63+9.570780000627304d+0*t222*t23*t62-1.37399 9874 8 74473061137d+2*t141*t21*t217*t30+6.380520000418202d+0*t14 9875 9 2*t144*t21*t30+4.579991491020378d+1*t141*t142*t30-t150*t2 9876 : 3+3.190260000209101d+0*t122*t144*t23+4.579991491020378d+1 9877 ; *t122*t141*t142*t21)-9.570780000627304d+0*t21*t223*t62*t6 9878 < 3-t151*t21*t63-3.190260000209101d+0*t123*t144*t21*t63-4.5 9879 = 79991491020378d+1*t123*t141*t63+9.570780000627304d+0*t223 9880 > *t23*t62-1.3739974473061137d+2*t141*t21*t217*t31+6.380520 9881 ? 000418202d+0*t142*t144*t21*t31+4.579991491020378d+1*t141* 9882 @ t142*t31-t151*t23+3.190260000209101d+0*t123*t144*t23+4.57 9883 1 9991491020378d+1*t123*t141*t142*t21)-9.570780000627304d+0 9884 2 *t21*t224*t62*t63-t152*t21*t63-3.190260000209101d+0*t124* 9885 3 t144*t21*t63-4.579991491020378d+1*t124*t141*t63+9.5707800 9886 4 00627304d+0*t224*t23*t62-1.3739974473061137d+2*t141*t21*t 9887 5 217*t32+6.380520000418202d+0*t142*t144*t21*t32+4.57999149 9888 6 1020378d+1*t141*t142*t32-t152*t23+3.190260000209101d+0*t1 9889 7 24*t144*t23+4.579991491020378d+1*t124*t141*t142*t21)-9.57 9890 8 0780000627304d+0*t21*t225*t62*t63-t153*t21*t63-3.19026000 9891 9 0209101d+0*t125*t144*t21*t63-4.579991491020378d+1*t125*t1 9892 : 41*t63+9.570780000627304d+0*t225*t23*t62-1.37399744730611 9893 ; 37d+2*t141*t21*t217*t33+6.380520000418202d+0*t142*t144*t2 9894 < 1*t33+4.579991491020378d+1*t141*t142*t33-t153*t23+3.19026 9895 = 0000209101d+0*t125*t144*t23+4.579991491020378d+1*t125*t14 9896 > 1*t142*t21)-9.570780000627304d+0*t21*t226*t62*t63-t154*t2 9897 ? 1*t63-3.190260000209101d+0*t126*t144*t21*t63-4.5799914910 9898 @ 20378d+1*t126*t141*t63+9.570780000627304d+0*t226*t23*t62- 9899 1 1.3739974473061137d+2*t141*t21*t217*t34+6.380520000418202 9900 2 d+0*t142*t144*t21*t34+4.579991491020378d+1*t141*t142*t34- 9901 3 t154*t23+3.190260000209101d+0*t126*t144*t23+4.57999149102 9902 4 0378d+1*t126*t141*t142*t21)+3.1090690869654886d-2*t237*t4 9903 5 8+t101*(3.1090690869654886d-2*rhob*t113*t237+1.5545345434 9904 6 827443d-2*rhob*t139*t205+3.1090690869654886d-2*t113*t139) 9905 7 +2.0d+0*t19*t227-1.5545345434827443d-2*rhob*t139*t186*t18 9906 8 7+1.0d+0*rhob*t127*t174)*wght 9907 t305 = 1.0d+0*(t101*(1.5545345434827443d-2*rhob*t116*t237+1. 9908 1 5545345434827443d-2*rhob*t139*t211+1.5545345434827443d-2* 9909 2 t116*t139)-1.5545345434827443d-2*rhob*t113*t116*t139*t186 9910 3 )*wght 9911 t306 = 1.5545345434827443d-2*rhob*t101*t139*t215*wght-1.5545 9912 1 345434827443d-2*rhob*t139*t186*t213*wght 9913 t307 = 1.0d+0*(1.5545345434827443d-2*rhob*t48*(2*t63*t99+2*t 9914 1 142*t21*t99+t21*t23*(2*t63*t98+2*t142*t21*t98+t21*t23*(2* 9915 2 t63*t97+2*t142*t21*t97+t21*t23*(2*t63*t96+2*t142*t21*t96+ 9916 3 t21*t23*(2*t63*t95+2*t142*t21*t95+t21*t23*(2*t63*t94+2*t1 9917 4 42*t21*t94+t21*t23*(2*t63*t93+2*t142*t21*t93+t21*t23*(2*t 9918 5 63*t92+2*t142*t21*t92+t21*t23*(2*t63*t91+2*t142*t21*t91+t 9919 6 21*t23*(2*t63*t90+2*t142*t21*t90-4.785390000313652d+0*t21 9920 7 *t251*t62*t63-2.8712340001881914d+1*t21*t217*t51*t62-9.57 9921 8 0780000627304d+0*t142*t51*t62-4.785390000313652d+1*t216*t 9922 9 303*t50*t62-2.8712340001881914d+1*t21*t217*t50*t62+4.7853 9923 : 90000313652d+0*t23*t251*t62+1.9141560001254607d+1*t128*t1 9924 ; 42*t21*t62)-4.785390000313652d+0*t21*t252*t62*t63-2*t21*t 9925 < 228*t63-2.8712340001881914d+1*t21*t217*t52*t62-9.57078000 9926 = 0627304d+0*t142*t52*t62+4.785390000313652d+0*t23*t252*t62 9927 > +1.9141560001254607d+1*t129*t142*t21*t62-2*t228*t23)-4.78 9928 ? 5390000313652d+0*t21*t253*t62*t63-2*t21*t229*t63-2.871234 9929 @ 0001881914d+1*t21*t217*t53*t62-9.570780000627304d+0*t142* 9930 1 t53*t62+4.785390000313652d+0*t23*t253*t62+1.9141560001254 9931 2 607d+1*t130*t142*t21*t62-2*t229*t23)-4.785390000313652d+0 9932 3 *t21*t254*t62*t63-2*t21*t230*t63-2.8712340001881914d+1*t2 9933 4 1*t217*t54*t62-9.570780000627304d+0*t142*t54*t62+4.785390 9934 5 000313652d+0*t23*t254*t62+1.9141560001254607d+1*t131*t142 9935 6 *t21*t62-2*t23*t230)-4.785390000313652d+0*t21*t255*t62*t6 9936 7 3-2*t21*t231*t63-2.8712340001881914d+1*t21*t217*t55*t62-9 9937 8 .570780000627304d+0*t142*t55*t62+4.785390000313652d+0*t23 9938 9 *t255*t62+1.9141560001254607d+1*t132*t142*t21*t62-2*t23*t 9939 : 231)-4.785390000313652d+0*t21*t256*t62*t63-2*t21*t232*t63 9940 ; -2.8712340001881914d+1*t21*t217*t56*t62-9.570780000627304 9941 < d+0*t142*t56*t62+4.785390000313652d+0*t23*t256*t62+1.9141 9942 = 560001254607d+1*t133*t142*t21*t62-2*t23*t232)-4.785390000 9943 > 313652d+0*t21*t257*t62*t63-2*t21*t233*t63-2.8712340001881 9944 ? 914d+1*t21*t217*t57*t62-9.570780000627304d+0*t142*t57*t62 9945 @ +4.785390000313652d+0*t23*t257*t62+1.9141560001254607d+1* 9946 1 t134*t142*t21*t62-2*t23*t233)-4.785390000313652d+0*t21*t2 9947 2 58*t62*t63-2*t21*t234*t63-2.8712340001881914d+1*t21*t217* 9948 3 t58*t62-9.570780000627304d+0*t142*t58*t62+4.7853900003136 9949 4 52d+0*t23*t258*t62+1.9141560001254607d+1*t135*t142*t21*t6 9950 5 2-2*t23*t234)-4.785390000313652d+0*t21*t259*t62*t63-2*t21 9951 6 *t235*t63-2.8712340001881914d+1*t21*t217*t59*t62-9.570780 9952 7 000627304d+0*t142*t59*t62+4.785390000313652d+0*t23*t259*t 9953 8 62+1.9141560001254607d+1*t136*t142*t21*t62-2*t23*t235)-4. 9954 9 785390000313652d+0*t21*t260*t62*t63-2*t21*t236*t63-2.8712 9955 : 340001881914d+1*t21*t217*t60*t62-9.570780000627304d+0*t14 9956 ; 2*t60*t62+4.785390000313652d+0*t23*t260*t62+1.91415600012 9957 < 54607d+1*t137*t142*t21*t62-2*t23*t236)+1.0d+0*rhob*t250*t 9958 = 89+1.0d+0*rhob*t19*(2*t63*t73+2*t142*t21*t73+t21*t23*(2*t 9959 > 63*t72+2*t142*t21*t72+t21*t23*(2*t63*t71+2*t142*t21*t71+t 9960 ? 21*t23*(2*t63*t70+2*t142*t21*t70+t21*t23*(2*t63*t69+2*t14 9961 @ 2*t21*t69+t21*t23*(2*t63*t68+2*t142*t21*t68+t21*t23*(2*t6 9962 1 3*t67+2*t142*t21*t67+t21*t23*(2*t63*t66+2*t142*t21*t66+t2 9963 2 1*t23*(2*t63*t65+2*t142*t21*t65+t21*t23*(2*t63*t64+2*t142 9964 3 *t21*t64-4.785390000313652d+0*t21*t240*t62*t63-4.78539000 9965 4 0313652d+1*t216*t24*t303*t62-2.8712340001881914d+1*t21*t2 9966 5 17*t25*t62-9.570780000627304d+0*t142*t25*t62+4.7853900003 9967 6 13652d+0*t23*t240*t62-2.8712340001881914d+1*t21*t217*t24* 9968 7 t62+1.9141560001254607d+1*t117*t142*t21*t62)-4.7853900003 9969 8 13652d+0*t21*t241*t62*t63-2*t21*t218*t63-2.87123400018819 9970 9 14d+1*t21*t217*t26*t62-9.570780000627304d+0*t142*t26*t62+ 9971 : 4.785390000313652d+0*t23*t241*t62+1.9141560001254607d+1*t 9972 ; 118*t142*t21*t62-2*t218*t23)-4.785390000313652d+0*t21*t24 9973 < 2*t62*t63-2*t21*t219*t63-2.8712340001881914d+1*t21*t217*t 9974 = 27*t62-9.570780000627304d+0*t142*t27*t62+4.78539000031365 9975 > 2d+0*t23*t242*t62+1.9141560001254607d+1*t119*t142*t21*t62 9976 ? -2*t219*t23)-4.785390000313652d+0*t21*t243*t62*t63-2*t21* 9977 @ t220*t63-2.8712340001881914d+1*t21*t217*t28*t62-9.5707800 9978 1 00627304d+0*t142*t28*t62+4.785390000313652d+0*t23*t243*t6 9979 2 2+1.9141560001254607d+1*t120*t142*t21*t62-2*t220*t23)-4.7 9980 3 85390000313652d+0*t21*t244*t62*t63-2*t21*t221*t63-2.87123 9981 4 40001881914d+1*t21*t217*t29*t62-9.570780000627304d+0*t142 9982 5 *t29*t62+4.785390000313652d+0*t23*t244*t62+1.914156000125 9983 6 4607d+1*t121*t142*t21*t62-2*t221*t23)-4.785390000313652d+ 9984 7 0*t21*t245*t62*t63-2*t21*t222*t63-2.8712340001881914d+1*t 9985 8 21*t217*t30*t62-9.570780000627304d+0*t142*t30*t62+4.78539 9986 9 0000313652d+0*t23*t245*t62+1.9141560001254607d+1*t122*t14 9987 : 2*t21*t62-2*t222*t23)-4.785390000313652d+0*t21*t246*t62*t 9988 ; 63-2*t21*t223*t63-2.8712340001881914d+1*t21*t217*t31*t62- 9989 < 9.570780000627304d+0*t142*t31*t62+4.785390000313652d+0*t2 9990 = 3*t246*t62+1.9141560001254607d+1*t123*t142*t21*t62-2*t223 9991 > *t23)-4.785390000313652d+0*t21*t247*t62*t63-2*t21*t224*t6 9992 ? 3-2.8712340001881914d+1*t21*t217*t32*t62-9.57078000062730 9993 @ 4d+0*t142*t32*t62+4.785390000313652d+0*t23*t247*t62+1.914 9994 1 1560001254607d+1*t124*t142*t21*t62-2*t224*t23)-4.78539000 9995 2 0313652d+0*t21*t248*t62*t63-2*t21*t225*t63-2.871234000188 9996 3 1914d+1*t21*t217*t33*t62-9.570780000627304d+0*t142*t33*t6 9997 4 2+4.785390000313652d+0*t23*t248*t62+1.9141560001254607d+1 9998 5 *t125*t142*t21*t62-2*t225*t23)-4.785390000313652d+0*t21*t 9999 6 249*t62*t63-2*t21*t226*t63-2.8712340001881914d+1*t21*t217 10000 7 *t34*t62-9.570780000627304d+0*t142*t34*t62+4.785390000313 10001 8 652d+0*t23*t249*t62+1.9141560001254607d+1*t126*t142*t21*t 10002 9 62-2*t226*t23)+1.5545345434827443d-2*t262*t48+1.554534543 10003 : 4827443d-2*rhob*t101*t113*t262+1.0d+0*t19*t250)*wght 10004 t308 = 1.5545345434827443d-2*rhob*t101*t116*(t23*(2*t21*t59* 10005 1 t63+2*t23*t59+t21*t260-2*t136*t21*t23)+(2*t21*t23*t59+2*t 10006 2 49-2*t137*t21)*t63+t261)*wght 10007 t309 = 1.0d+0*(1.5545345434827443d-2*rhob*t48*(t21*t23*(t21* 10008 1 t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23 10009 2 *(t21*t23*(-3*t21*t251*t63+6*t128*t63-6*t21*t217*t51-6*t1 10010 3 42*t51+t21*t23*(-6*t21*t217*t50-6*t142*t50)-3*t23*t251+6* 10011 4 t128*t142*t21)-3*t21*t252*t63+6*t129*t63-6*t21*t217*t52-6 10012 5 *t142*t52-3*t23*t252+6*t129*t142*t21)-3*t21*t253*t63+6*t1 10013 6 30*t63-6*t21*t217*t53-6*t142*t53-3*t23*t253+6*t130*t142*t 10014 7 21)-3*t21*t254*t63+6*t131*t63-6*t21*t217*t54-6*t142*t54-3 10015 8 *t23*t254+6*t131*t142*t21)-3*t21*t255*t63+6*t132*t63-6*t2 10016 9 1*t217*t55-6*t142*t55-3*t23*t255+6*t132*t142*t21)-3*t21*t 10017 : 256*t63+6*t133*t63-6*t21*t217*t56-6*t142*t56-3*t23*t256+6 10018 ; *t133*t142*t21)-3*t21*t257*t63+6*t134*t63-6*t21*t217*t57- 10019 < 6*t142*t57-3*t23*t257+6*t134*t142*t21)-3*t21*t258*t63+6*t 10020 = 135*t63-6*t21*t217*t58-6*t142*t58-3*t23*t258+6*t135*t142* 10021 > t21)-3*t21*t259*t63+6*t136*t63-6*t21*t217*t59-6*t142*t59- 10022 ? 3*t23*t259+6*t136*t142*t21)-3*t21*t260*t63+6*t137*t63-6*t 10023 @ 21*t217*t60-6*t142*t60-3*t23*t260+6*t137*t142*t21)+1.0d+0 10024 1 *rhob*t19*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t21*t23*(t 10025 2 21*t23*(t21*t23*(t21*t23*(t21*t23*(-3*t21*t240*t63+6*t117 10026 3 *t63-6*t21*t217*t25-6*t142*t25-3*t23*t240+t21*t23*(-6*t21 10027 4 *t217*t24-6*t142*t24)+6*t117*t142*t21)-3*t21*t241*t63+6*t 10028 5 118*t63-6*t21*t217*t26-6*t142*t26-3*t23*t241+6*t118*t142* 10029 6 t21)-3*t21*t242*t63+6*t119*t63-6*t21*t217*t27-6*t142*t27- 10030 7 3*t23*t242+6*t119*t142*t21)-3*t21*t243*t63+6*t120*t63-6*t 10031 8 21*t217*t28-6*t142*t28-3*t23*t243+6*t120*t142*t21)-3*t21* 10032 9 t244*t63+6*t121*t63-6*t21*t217*t29-6*t142*t29-3*t23*t244+ 10033 : 6*t121*t142*t21)-3*t21*t245*t63+6*t122*t63-6*t21*t217*t30 10034 ; -6*t142*t30-3*t23*t245+6*t122*t142*t21)-3*t21*t246*t63+6* 10035 < t123*t63-6*t21*t217*t31-6*t142*t31-3*t23*t246+6*t123*t142 10036 = *t21)-3*t21*t247*t63+6*t124*t63-6*t21*t217*t32-6*t142*t32 10037 > -3*t23*t247+6*t124*t142*t21)-3*t21*t248*t63+6*t125*t63-6* 10038 ? t21*t217*t33-6*t142*t33-3*t23*t248+6*t125*t142*t21)-3*t21 10039 @ *t249*t63+6*t126*t63-6*t21*t217*t34-6*t142*t34-3*t23*t249 10040 1 +6*t126*t142*t21))*wght 10041 fnc(iq) = 1.0d+0*(1.5545345434827443d-2*rhob*t48*t61+1.0d+0* 10042 1 rhob*t19*t35)*wght+fnc(iq) 10043 Amat(iq,D1_RB) = 1.0d+0*(1.0d+0*rhob*t35*t89+1.0d+0*rhob*t19 10044 1 *t74+1.5545345434827443d-2*t48*t61+1.5545345434827443d-2* 10045 2 rhob*t101*t113*t61+1.5545345434827443d-2*rhob*t100*t48+1. 10046 3 0d+0*t19*t35)*wght+Amat(iq,D1_RB) 10047 Cmat(iq,D1_GBB) = 1.5545345434827443d-2*rhob*t101*t116*t61*w 10048 1 ght+Cmat(iq,D1_GBB) 10049 Mmat(iq,D1_TB) = t140+Mmat(iq,D1_TB) 10050 Mmat(iq,D1_TA) = t140+Mmat(iq,D1_TA) 10051 Amat2(iq,D2_RB_RB) = 1.0d+0*(2.0d+0*rhob*t74*t89+2.0d+0*t35* 10052 1 t89+2.0d+0*t19*t74-1.5545345434827443d-2*rhob*t186*t187*t 10053 2 61+1.5545345434827443d-2*rhob*t185*t48+3.1090690869654886 10054 3 d-2*t100*t48+1.0d+0*rhob*t174*t35+t101*t206+1.0d+0*rhob*t 10055 4 155*t19)*wght+Amat2(iq,D2_RB_RB) 10056 Cmat2(iq,D2_RB_GBB) = 1.0d+0*(t101*t212-1.5545345434827443d- 10057 1 2*rhob*t113*t116*t186*t61)*wght+Cmat2(iq,D2_RB_GBB) 10058 Cmat2(iq,D2_GBB_GBB) = 1.5545345434827443d-2*rhob*t101*t215* 10059 1 t61*wght-1.5545345434827443d-2*rhob*t186*t213*t61*wght+Cm 10060 2 at2(iq,D2_GBB_GBB) 10061 Mmat2(iq,D2_RB_TA) = t238+Mmat2(iq,D2_RB_TA) 10062 Mmat2(iq,D2_RB_TB) = t238+Mmat2(iq,D2_RB_TB) 10063 Mmat2(iq,D2_GBB_TA) = t239+Mmat2(iq,D2_GBB_TA) 10064 Mmat2(iq,D2_GBB_TB) = t239+Mmat2(iq,D2_GBB_TB) 10065 Mmat2(iq,D2_TA_TA) = t263+Mmat2(iq,D2_TA_TA) 10066 Mmat2(iq,D2_TA_TB) = t263+Mmat2(iq,D2_TA_TB) 10067 Mmat2(iq,D2_TB_TB) = t263+Mmat2(iq,D2_TB_TB) 10068 Amat3(iq,D3_RB_RB_RB) = 1.0d+0*(1.5545345434827443d-2*rhob*t 10069 1 48*(-9.570780000627304d+0*t144*t21*t63*t99-1.373997447306 10070 2 1137d+2*t141*t63*t99+9.570780000627304d+0*t144*t23*t99+1. 10071 3 3739974473061137d+2*t141*t142*t21*t99+t21*t23*(-9.5707800 10072 4 00627304d+0*t144*t21*t63*t98-1.3739974473061137d+2*t141*t 10073 5 63*t98+9.570780000627304d+0*t144*t23*t98+1.37399744730611 10074 6 37d+2*t141*t142*t21*t98+t21*t23*(-9.570780000627304d+0*t1 10075 7 44*t21*t63*t97-1.3739974473061137d+2*t141*t63*t97+9.57078 10076 8 0000627304d+0*t144*t23*t97+1.3739974473061137d+2*t141*t14 10077 9 2*t21*t97+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t96 10078 : -1.3739974473061137d+2*t141*t63*t96+9.570780000627304d+0* 10079 ; t144*t23*t96+1.3739974473061137d+2*t141*t142*t21*t96+t21* 10080 < t23*(-9.570780000627304d+0*t144*t21*t63*t95-1.37399744730 10081 = 61137d+2*t141*t63*t95+9.570780000627304d+0*t144*t23*t95+1 10082 > .3739974473061137d+2*t141*t142*t21*t95+t21*t23*(-9.570780 10083 ? 000627304d+0*t144*t21*t63*t94-1.3739974473061137d+2*t141* 10084 @ t63*t94+9.570780000627304d+0*t144*t23*t94+1.3739974473061 10085 1 137d+2*t141*t142*t21*t94+t21*t23*(-9.570780000627304d+0*t 10086 2 144*t21*t63*t93-1.3739974473061137d+2*t141*t63*t93+9.5707 10087 3 80000627304d+0*t144*t23*t93+1.3739974473061137d+2*t141*t1 10088 4 42*t21*t93+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t9 10089 5 2-1.3739974473061137d+2*t141*t63*t92+9.570780000627304d+0 10090 6 *t144*t23*t92+1.3739974473061137d+2*t141*t142*t21*t92+t21 10091 7 *t23*(-9.570780000627304d+0*t144*t21*t63*t91-1.3739974473 10092 8 061137d+2*t141*t63*t91+9.570780000627304d+0*t144*t23*t91+ 10093 9 1.3739974473061137d+2*t141*t142*t21*t91+t21*t23*(-9.57078 10094 : 0000627304d+0*t144*t21*t63*t90-1.3739974473061137d+2*t141 10095 ; *t63*t90+9.570780000627304d+0*t144*t23*t90+1.373997447306 10096 < 1137d+2*t141*t142*t21*t90+t21*t23*(1.0634200000697003d+0* 10097 = t21*t265*t50*t63-9.159982982040756d+1*t143*t50*t63-1.0634 10098 > 200000697003d+0*t23*t265*t50-6.57511364479516d+2*t21*t217 10099 ? *t264*t50+6.57511364479516d+2*t142*t264*t50+9.15998298204 10100 @ 0756d+1*t142*t143*t21*t50)-1.4356170000940957d+1*t175*t21 10101 1 *t62*t63+1.0634200000697003d+0*t21*t265*t51*t63-9.1599829 10102 2 82040756d+1*t143*t51*t63+1.4356170000940957d+1*t175*t23*t 10103 3 62-1.0634200000697003d+0*t23*t265*t51-6.57511364479516d+2 10104 4 *t21*t217*t264*t51+6.57511364479516d+2*t142*t264*t51+9.15 10105 5 9982982040756d+1*t142*t143*t21*t51)-1.4356170000940957d+1 10106 6 *t176*t21*t62*t63+1.0634200000697003d+0*t21*t265*t52*t63- 10107 7 9.159982982040756d+1*t143*t52*t63+1.4356170000940957d+1*t 10108 8 176*t23*t62-1.0634200000697003d+0*t23*t265*t52-6.57511364 10109 9 479516d+2*t21*t217*t264*t52+6.57511364479516d+2*t142*t264 10110 : *t52+9.159982982040756d+1*t142*t143*t21*t52)-1.4356170000 10111 ; 940957d+1*t177*t21*t62*t63+1.0634200000697003d+0*t21*t265 10112 < *t53*t63-9.159982982040756d+1*t143*t53*t63+1.435617000094 10113 = 0957d+1*t177*t23*t62-1.0634200000697003d+0*t23*t265*t53-6 10114 > .57511364479516d+2*t21*t217*t264*t53+6.57511364479516d+2* 10115 ? t142*t264*t53+9.159982982040756d+1*t142*t143*t21*t53)-1.4 10116 @ 356170000940957d+1*t178*t21*t62*t63+1.0634200000697003d+0 10117 1 *t21*t265*t54*t63-9.159982982040756d+1*t143*t54*t63+1.435 10118 2 6170000940957d+1*t178*t23*t62-1.0634200000697003d+0*t23*t 10119 3 265*t54-6.57511364479516d+2*t21*t217*t264*t54+6.575113644 10120 4 79516d+2*t142*t264*t54+9.159982982040756d+1*t142*t143*t21 10121 5 *t54)-1.4356170000940957d+1*t179*t21*t62*t63+1.0634200000 10122 6 697003d+0*t21*t265*t55*t63-9.159982982040756d+1*t143*t55* 10123 7 t63+1.4356170000940957d+1*t179*t23*t62-1.0634200000697003 10124 8 d+0*t23*t265*t55-6.57511364479516d+2*t21*t217*t264*t55+6. 10125 9 57511364479516d+2*t142*t264*t55+9.159982982040756d+1*t142 10126 : *t143*t21*t55)-1.4356170000940957d+1*t180*t21*t62*t63+1.0 10127 ; 634200000697003d+0*t21*t265*t56*t63-9.159982982040756d+1* 10128 < t143*t56*t63+1.4356170000940957d+1*t180*t23*t62-1.0634200 10129 = 000697003d+0*t23*t265*t56-6.57511364479516d+2*t21*t217*t2 10130 > 64*t56+6.57511364479516d+2*t142*t264*t56+9.15998298204075 10131 ? 6d+1*t142*t143*t21*t56)-1.4356170000940957d+1*t181*t21*t6 10132 @ 2*t63+1.0634200000697003d+0*t21*t265*t57*t63-9.1599829820 10133 1 40756d+1*t143*t57*t63+1.4356170000940957d+1*t181*t23*t62- 10134 2 1.0634200000697003d+0*t23*t265*t57-6.57511364479516d+2*t2 10135 3 1*t217*t264*t57+6.57511364479516d+2*t142*t264*t57+9.15998 10136 4 2982040756d+1*t142*t143*t21*t57)-1.4356170000940957d+1*t1 10137 5 82*t21*t62*t63+1.0634200000697003d+0*t21*t265*t58*t63-9.1 10138 6 59982982040756d+1*t143*t58*t63+1.4356170000940957d+1*t182 10139 7 *t23*t62-1.0634200000697003d+0*t23*t265*t58-6.57511364479 10140 8 516d+2*t21*t217*t264*t58+6.57511364479516d+2*t142*t264*t5 10141 9 8+9.159982982040756d+1*t142*t143*t21*t58)-1.4356170000940 10142 : 957d+1*t183*t21*t62*t63+1.0634200000697003d+0*t21*t265*t5 10143 ; 9*t63-9.159982982040756d+1*t143*t59*t63+1.435617000094095 10144 < 7d+1*t183*t23*t62-1.0634200000697003d+0*t23*t265*t59-6.57 10145 = 511364479516d+2*t21*t217*t264*t59+6.57511364479516d+2*t14 10146 > 2*t264*t59+9.159982982040756d+1*t142*t143*t21*t59)-1.4356 10147 ? 170000940957d+1*t184*t21*t62*t63+1.0634200000697003d+0*t2 10148 @ 1*t265*t60*t63-9.159982982040756d+1*t143*t60*t63+1.435617 10149 1 0000940957d+1*t184*t23*t62-1.0634200000697003d+0*t23*t265 10150 2 *t60-6.57511364479516d+2*t21*t217*t264*t60+6.575113644795 10151 3 16d+2*t142*t264*t60+9.159982982040756d+1*t142*t143*t21*t6 10152 4 0)+t101*(1.5545345434827443d-2*rhob*t61*(-2.1622114952063 10153 5 792d-1*gammabb*t108*t37*t42*(-1.1607717772370736d+3*t111* 10154 6 t174*t38*t43*t89+3.482315331711221d+3*t174*t191*t200*t43* 10155 7 t89+4.912140634218306d+2*t109*t111*t188*t201*t38*t89-1.40 10156 8 34687526338022d+1*t109*t110*t111*t189*t38*t89-8.908774348 10157 9 060524d+0*t109*t276*t295*t44+3.030195356483172d-2*t109*t1 10158 : 10*t278*t44+6.363410248614663d-1*t109*t201*t277*t44+2.986 10159 ; 8021449983523d+5*t279*t280*t43/t39**5.0d+0+2.489001787498 10160 < 6267d+4*t111*t279*t38*t43+6.014866082716293d+0*t111*t274* 10161 = t38*t43-2.2401016087487644d+5*t191*t200*t279*t43+5.416934 10162 > 960439677d+3*t102*t109*t110*t111*t190*t38-8.4208125158028 10163 ? 09d+1*t102*t109*t110*t111*t174*t38+t294+t293+t292+t291+t2 10164 @ 90+t289+t288+t287+t286+t285+t284+t283+t282+t281-1.6250804 10165 1 88131903d+4*t102*t109*t110*t190*t191*t200)+7.007166882613 10166 2 269d-2*gammabb*t103*t278*t42*t46+8.829030272092719d-1*gam 10167 3 mabb*t114*t277*t42*t46-8.240428253953201d+0*gammabb*t110* 10168 4 t276*t42*t46+2.1622114952063792d-1*gammabb*(t294+t293+t29 10169 5 2+t291+t290+t289+t288+t287+t286+t285+t284+t283+t282+t281) 10170 6 *t37*t46-1.5135480466444656d+0*gammabb*t102*t103*t199*t46 10171 7 -2.522580077740777d-1*gammabb*t103*t107*t189*t46+5.297418 10172 8 163255629d+0*gammabb*t107*t114*t188*t46-1.297326897123827 10173 9 8d+0*gammabb*t112**3*t296*t37*t42+1.2973268971238278d+0*g 10174 : ammabb*t112*t202*t203*t37*t42-3.027096093288931d+0*gammab 10175 ; b*t102*t103*t203*t204*t42+1.5135480466444656d+0*gammabb*t 10176 < 102*t103*t108*t202*t42+2.522580077740777d-1*gammabb*t103* 10177 = t108*t112*t189*t42-5.297418163255629d+0*gammabb*t108*t112 10178 > *t114*t188*t42+1.2973268971238278d+0*gammabb*t107*t203*t2 10179 ? 04*t37-6.486634485619138d-1*gammabb*t107*t108*t202*t37-6. 10180 @ 486634485619138d-1*gammabb*t108*t112*t199*t37+3.027096093 10181 1 288931d+0*gammabb*t102*t103*t107*t108*t112)+4.66360363044 10182 2 82326d-2*t205*t61+4.6636036304482326d-2*rhob*t100*t205+4. 10183 3 6636036304482326d-2*rhob*t113*t185+9.327207260896465d-2*t 10184 4 100*t113)+6.0d+0*t74*t89+3.0d+0*rhob*t155*t89+3.0d+0*rhob 10185 5 *t174*t74+1.0d+0*rhob*t19*(-9.570780000627304d+0*t144*t21 10186 6 *t63*t73-1.3739974473061137d+2*t141*t63*t73+9.57078000062 10187 7 7304d+0*t144*t23*t73+1.3739974473061137d+2*t141*t142*t21* 10188 8 t73+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t72-1.373 10189 9 9974473061137d+2*t141*t63*t72+9.570780000627304d+0*t144*t 10190 : 23*t72+1.3739974473061137d+2*t141*t142*t21*t72+t21*t23*(- 10191 ; 9.570780000627304d+0*t144*t21*t63*t71-1.3739974473061137d 10192 < +2*t141*t63*t71+9.570780000627304d+0*t144*t23*t71+1.37399 10193 = 74473061137d+2*t141*t142*t21*t71+t21*t23*(-9.570780000627 10194 > 304d+0*t144*t21*t63*t70-1.3739974473061137d+2*t141*t63*t7 10195 ? 0+9.570780000627304d+0*t144*t23*t70+1.3739974473061137d+2 10196 @ *t141*t142*t21*t70+t21*t23*(-9.570780000627304d+0*t144*t2 10197 1 1*t63*t69-1.3739974473061137d+2*t141*t63*t69+9.5707800006 10198 2 27304d+0*t144*t23*t69+1.3739974473061137d+2*t141*t142*t21 10199 3 *t69+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t68-1.37 10200 4 39974473061137d+2*t141*t63*t68+9.570780000627304d+0*t144* 10201 5 t23*t68+1.3739974473061137d+2*t141*t142*t21*t68+t21*t23*( 10202 6 -9.570780000627304d+0*t144*t21*t63*t67-1.3739974473061137 10203 7 d+2*t141*t63*t67+9.570780000627304d+0*t144*t23*t67+1.3739 10204 8 974473061137d+2*t141*t142*t21*t67+t21*t23*(-9.57078000062 10205 9 7304d+0*t144*t21*t63*t66-1.3739974473061137d+2*t141*t63*t 10206 : 66+9.570780000627304d+0*t144*t23*t66+1.3739974473061137d+ 10207 ; 2*t141*t142*t21*t66+t21*t23*(-9.570780000627304d+0*t144*t 10208 < 21*t63*t65-1.3739974473061137d+2*t141*t63*t65+9.570780000 10209 = 627304d+0*t144*t23*t65+1.3739974473061137d+2*t141*t142*t2 10210 > 1*t65+t21*t23*(-9.570780000627304d+0*t144*t21*t63*t64-1.3 10211 ? 739974473061137d+2*t141*t63*t64+9.570780000627304d+0*t144 10212 @ *t23*t64+1.3739974473061137d+2*t141*t142*t21*t64+t21*t23* 10213 1 (1.0634200000697003d+0*t21*t24*t265*t63-9.159982982040756 10214 2 d+1*t143*t24*t63-1.0634200000697003d+0*t23*t24*t265-6.575 10215 3 11364479516d+2*t21*t217*t24*t264+6.57511364479516d+2*t142 10216 4 *t24*t264+9.159982982040756d+1*t142*t143*t21*t24)-1.43561 10217 5 70000940957d+1*t145*t21*t62*t63+1.0634200000697003d+0*t21 10218 6 *t25*t265*t63-9.159982982040756d+1*t143*t25*t63+1.4356170 10219 7 000940957d+1*t145*t23*t62-1.0634200000697003d+0*t23*t25*t 10220 8 265-6.57511364479516d+2*t21*t217*t25*t264+6.5751136447951 10221 9 6d+2*t142*t25*t264+9.159982982040756d+1*t142*t143*t21*t25 10222 : )-1.4356170000940957d+1*t146*t21*t62*t63+1.06342000006970 10223 ; 03d+0*t21*t26*t265*t63-9.159982982040756d+1*t143*t26*t63+ 10224 < 1.4356170000940957d+1*t146*t23*t62-1.0634200000697003d+0* 10225 = t23*t26*t265-6.57511364479516d+2*t21*t217*t26*t264+6.5751 10226 > 1364479516d+2*t142*t26*t264+9.159982982040756d+1*t142*t14 10227 ? 3*t21*t26)-1.4356170000940957d+1*t147*t21*t62*t63+1.06342 10228 @ 00000697003d+0*t21*t265*t27*t63-9.159982982040756d+1*t143 10229 1 *t27*t63+1.4356170000940957d+1*t147*t23*t62-1.06342000006 10230 2 97003d+0*t23*t265*t27-6.57511364479516d+2*t21*t217*t264*t 10231 3 27+6.57511364479516d+2*t142*t264*t27+9.159982982040756d+1 10232 4 *t142*t143*t21*t27)-1.4356170000940957d+1*t148*t21*t62*t6 10233 5 3+1.0634200000697003d+0*t21*t265*t28*t63-9.15998298204075 10234 6 6d+1*t143*t28*t63+1.4356170000940957d+1*t148*t23*t62-1.06 10235 7 34200000697003d+0*t23*t265*t28-6.57511364479516d+2*t21*t2 10236 8 17*t264*t28+6.57511364479516d+2*t142*t264*t28+9.159982982 10237 9 040756d+1*t142*t143*t21*t28)-1.4356170000940957d+1*t149*t 10238 : 21*t62*t63+1.0634200000697003d+0*t21*t265*t29*t63-9.15998 10239 ; 2982040756d+1*t143*t29*t63+1.4356170000940957d+1*t149*t23 10240 < *t62-1.0634200000697003d+0*t23*t265*t29-6.57511364479516d 10241 = +2*t21*t217*t264*t29+6.57511364479516d+2*t142*t264*t29+9. 10242 > 159982982040756d+1*t142*t143*t21*t29)-1.4356170000940957d 10243 ? +1*t150*t21*t62*t63+1.0634200000697003d+0*t21*t265*t30*t6 10244 @ 3-9.159982982040756d+1*t143*t30*t63+1.4356170000940957d+1 10245 1 *t150*t23*t62-1.0634200000697003d+0*t23*t265*t30-6.575113 10246 2 64479516d+2*t21*t217*t264*t30+6.57511364479516d+2*t142*t2 10247 3 64*t30+9.159982982040756d+1*t142*t143*t21*t30)-1.43561700 10248 4 00940957d+1*t151*t21*t62*t63+1.0634200000697003d+0*t21*t2 10249 5 65*t31*t63-9.159982982040756d+1*t143*t31*t63+1.4356170000 10250 6 940957d+1*t151*t23*t62-1.0634200000697003d+0*t23*t265*t31 10251 7 -6.57511364479516d+2*t21*t217*t264*t31+6.57511364479516d+ 10252 8 2*t142*t264*t31+9.159982982040756d+1*t142*t143*t21*t31)-1 10253 9 .4356170000940957d+1*t152*t21*t62*t63+1.0634200000697003d 10254 : +0*t21*t265*t32*t63-9.159982982040756d+1*t143*t32*t63+1.4 10255 ; 356170000940957d+1*t152*t23*t62-1.0634200000697003d+0*t23 10256 < *t265*t32-6.57511364479516d+2*t21*t217*t264*t32+6.5751136 10257 = 4479516d+2*t142*t264*t32+9.159982982040756d+1*t142*t143*t 10258 > 21*t32)-1.4356170000940957d+1*t153*t21*t62*t63+1.06342000 10259 ? 00697003d+0*t21*t265*t33*t63-9.159982982040756d+1*t143*t3 10260 @ 3*t63+1.4356170000940957d+1*t153*t23*t62-1.06342000006970 10261 1 03d+0*t23*t265*t33-6.57511364479516d+2*t21*t217*t264*t33+ 10262 2 6.57511364479516d+2*t142*t264*t33+9.159982982040756d+1*t1 10263 3 42*t143*t21*t33)-1.4356170000940957d+1*t154*t21*t62*t63+1 10264 4 .0634200000697003d+0*t21*t265*t34*t63-9.159982982040756d+ 10265 5 1*t143*t34*t63+1.4356170000940957d+1*t154*t23*t62-1.06342 10266 6 00000697003d+0*t23*t265*t34-6.57511364479516d+2*t21*t217* 10267 7 t264*t34+6.57511364479516d+2*t142*t264*t34+9.159982982040 10268 8 756d+1*t142*t143*t21*t34)+t186*(-3.1090690869654886d-2*rh 10269 9 ob*t113*t205*t61-1.5545345434827443d-2*t187*t61-t113*t206 10270 : -1.5545345434827443d-2*rhob*t100*t187)+3.1090690869654886 10271 ; d-2*rhob*t113**3*t275*t61+4.6636036304482326d-2*t185*t48+ 10272 < 1.0d+0*rhob*t274*t35+3.0d+0*t174*t35+3.0d+0*t155*t19)*wgh 10273 = t+Amat3(iq,D3_RB_RB_RB) 10274 Cmat3(iq,D3_RB_RB_GBB) = 1.0d+0*(t101*(1.5545345434827443d-2 10275 1 *rhob*t61*(-2.1622114952063792d-1*gammabb*t108*t37*t42*(- 10276 2 1.1227750021070412d+2*gammabb*t102*t110*t111*t38*t89+2.54 10277 3 5364099445864d+0*gammabb*t188*t201*t44-7.272468855559613d 10278 4 -2*gammabb*t110*t189*t44-7.738478514913824d+2*gammabb*t11 10279 5 1*t114*t190*t38+1.2029732165432584d+1*gammabb*t111*t114*t 10280 6 174*t38+t302+t301+t300+t299+t298+t297+2.3215435544741472d 10281 7 +3*gammabb*t114*t190*t191*t200)-8.408600259135923d-2*t103 10282 8 *t189*t42*t46+1.765806054418543d+0*t114*t188*t42*t46+3.81 10283 9 8046149168795d-1*gammabb*t188*t201*t40*t46-1.818117213889 10284 : 9032d-2*gammabb*t110*t189*t40*t46+2.1622114952063792d-1*g 10285 ; ammabb*(t302+t301+t300+t299+t298+t297)*t37*t46+2.16221149 10286 < 52063792d-1*t199*t37*t46-1.0090320310963104d+0*gammabb*t1 10287 = 02*t103*t209*t46-1.0090320310963104d+0*t102*t103*t107*t46 10288 > -1.2973268971238278d+0*gammabb*t115*t204*t296*t37*t42+8.6 10289 ? 48845980825517d-1*gammabb*t112*t203*t210*t37*t42+4.324422 10290 @ 9904127585d-1*t203*t204*t37*t42+4.3244229904127585d-1*gam 10291 1 mabb*t115*t202*t203*t37*t42-2.1622114952063792d-1*t108*t2 10292 2 02*t37*t42+1.0090320310963104d+0*gammabb*t102*t103*t108*t 10293 3 210*t42-2.0180640621926207d+0*gammabb*t102*t103*t112*t115 10294 4 *t203*t42+8.408600259135923d-2*gammabb*t103*t108*t115*t18 10295 5 9*t42-1.765806054418543d+0*gammabb*t108*t114*t115*t188*t4 10296 6 2+1.0090320310963104d+0*t102*t103*t108*t112*t42+9.3503171 10297 7 00005212d-2*gammabb*t114*t203*t204*t40-4.675158550002606d 10298 8 -2*gammabb*t108*t114*t202*t40+2.181740656667883d-1*gammab 10299 9 b*t102*t108*t110*t112*t40-4.3244229904127585d-1*gammabb*t 10300 : 107*t108*t210*t37-4.3244229904127585d-1*gammabb*t108*t112 10301 ; *t209*t37+8.648845980825517d-1*gammabb*t107*t112*t115*t20 10302 < 3*t37-2.1622114952063792d-1*gammabb*t108*t115*t199*t37-4. 10303 = 3244229904127585d-1*t107*t108*t112*t37+1.0090320310963104 10304 > d+0*gammabb*t102*t103*t107*t108*t115)+3.1090690869654886d 10305 ? -2*t211*t61+3.1090690869654886d-2*rhob*t100*t211+1.554534 10306 @ 5434827443d-2*rhob*t116*t185+3.1090690869654886d-2*t100*t 10307 1 116)+t186*(-3.1090690869654886d-2*rhob*t113*t211*t61-t116 10308 2 *t206)+3.1090690869654886d-2*rhob*t116*t187*t275*t61)*wgh 10309 3 t+Cmat3(iq,D3_RB_RB_GBB) 10310 Cmat3(iq,D3_RB_GBB_GBB) = 1.0d+0*(t101*(1.5545345434827443d- 10311 1 2*rhob*t61*(-2.1622114952063792d-1*gammabb*t108*t37*t42*( 10312 2 1.2029732165432584d+1*t111*t114*t38*t89-4.363481313335766 10313 3 d-1*t102*t110*t44)-2.181740656667883d-1*t102*t110*t40*t46 10314 4 +4.3244229904127585d-1*t209*t37*t46+4.7173847274064107d-2 10315 5 *gammabb*t102*t108*t295*t42*t44+4.0434726234912094d-2*gam 10316 6 mabb*t112*t201*t203*t42*t44-2.0217363117456047d-2*gammabb 10317 7 *t107*t108*t201*t44-1.2973268971238278d+0*gammabb*t112*t2 10318 8 14*t296*t37*t42+8.648845980825517d-1*gammabb*t115*t203*t2 10319 9 10*t37*t42-4.3244229904127585d-1*t108*t210*t37*t42+8.6488 10320 : 45980825517d-1*t112*t115*t203*t37*t42-1.0090320310963104d 10321 ; +0*gammabb*t102*t103*t203*t214*t42+1.0090320310963104d+0* 10322 < t102*t103*t108*t115*t42-9.350317100005212d-2*gammabb*t108 10323 = *t114*t210*t40+1.8700634200010424d-1*gammabb*t112*t114*t1 10324 > 15*t203*t40+2.181740656667883d-1*gammabb*t102*t108*t110*t 10325 ? 115*t40-9.350317100005212d-2*t108*t112*t114*t40+4.3244229 10326 @ 904127585d-1*gammabb*t107*t203*t214*t37-4.324422990412758 10327 1 5d-1*gammabb*t108*t115*t209*t37-4.3244229904127585d-1*t10 10328 2 7*t108*t115*t37)+1.5545345434827443d-2*t215*t61+1.5545345 10329 3 434827443d-2*rhob*t100*t215)+t186*(-1.5545345434827443d-2 10330 4 *rhob*t113*t215*t61-1.5545345434827443d-2*rhob*t116*t211* 10331 5 t61-t116*t212)+3.1090690869654886d-2*rhob*t113*t213*t275* 10332 6 t61)*wght+Cmat3(iq,D3_RB_GBB_GBB) 10333 Cmat3(iq,D3_GBB_GBB_GBB) = 1.5545345434827443d-2*rhob*t101*( 10334 1 1.2130417870473628d-1*gammabb*t115*t201*t203*t42*t44-6.06 10335 2 5208935236814d-2*t108*t201*t42*t44-1.2973268971238278d+0* 10336 3 gammabb*t115**3*t296*t37*t42+1.2973268971238278d+0*t203*t 10337 4 214*t37*t42+2.8050951300015636d-1*gammabb*t114*t203*t214* 10338 5 t40-2.8050951300015636d-1*t108*t114*t115*t40-1.3114264480 10339 6 597482d-2*gammabb*t108*t111/t36**8.0d+0)*t61*wght+3.10906 10340 7 90869654886d-2*rhob*t116**3*t275*t61*wght-4.6636036304482 10341 8 326d-2*rhob*t116*t186*t215*t61*wght+Cmat3(iq,D3_GBB_GBB_G 10342 9 BB) 10343 Mmat3(iq,D3_RB_RB_TA) = t304+Mmat3(iq,D3_RB_RB_TA) 10344 Mmat3(iq,D3_RB_RB_TB) = t304+Mmat3(iq,D3_RB_RB_TB) 10345 Mmat3(iq,D3_RB_GBB_TA) = t305+Mmat3(iq,D3_RB_GBB_TA) 10346 Mmat3(iq,D3_RB_GBB_TB) = t305+Mmat3(iq,D3_RB_GBB_TB) 10347 Mmat3(iq,D3_GBB_GBB_TA) = t306+Mmat3(iq,D3_GBB_GBB_TA) 10348 Mmat3(iq,D3_GBB_GBB_TB) = t306+Mmat3(iq,D3_GBB_GBB_TB) 10349 Mmat3(iq,D3_RB_TA_TA) = t307+Mmat3(iq,D3_RB_TA_TA) 10350 Mmat3(iq,D3_RB_TA_TB) = t307+Mmat3(iq,D3_RB_TA_TB) 10351 Mmat3(iq,D3_RB_TB_TB) = t307+Mmat3(iq,D3_RB_TB_TB) 10352 Mmat3(iq,D3_GBB_TA_TA) = t308+Mmat3(iq,D3_GBB_TA_TA) 10353 Mmat3(iq,D3_GBB_TA_TB) = t308+Mmat3(iq,D3_GBB_TA_TB) 10354 Mmat3(iq,D3_GBB_TB_TB) = t308+Mmat3(iq,D3_GBB_TB_TB) 10355 Mmat3(iq,D3_TA_TA_TA) = t309+Mmat3(iq,D3_TA_TA_TA) 10356 Mmat3(iq,D3_TA_TA_TB) = t309+Mmat3(iq,D3_TA_TA_TB) 10357 Mmat3(iq,D3_TA_TB_TB) = t309+Mmat3(iq,D3_TA_TB_TB) 10358 Mmat3(iq,D3_TB_TB_TB) = t309+Mmat3(iq,D3_TB_TB_TB) 10359 endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho 10360 endif ! ipol.eq.1 10361 enddo ! iq 10362 end 10363C> @} 10364