1C> \ingroup nwxc
2C> @{
3C>
4C> \file nwxcm_x_m06.F
5C> The nwxcm_x_m06 functional
6C>
7C> @}
8C>
9C> \ingroup nwxc_priv
10C> @{
11C>
12C> \brief Evaluate the nwxcm_x_m06 functional [1]
13C>
14C> \f{eqnarray*}{
15C>   {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\
16C>   {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\
17C>   {\it t_3} &=& {\it param}\left(7\right)\\\\
18C>   {\it t_4} &=& {\it param}\left(18\right)\\\\
19C>   {\it t_5} &=& \rho_\alpha^{{{5}\over{3}}}\\\\
20C>   {\it t_6} &=& 9.115599744691192\,{\it t_5}\\\\
21C>   {\it t_7} &=& {\it t_6}-2.0\,\tau_\alpha\\\\
22C>   {\it t_8} &=& 2.0\,\tau_\alpha+{\it t_6}\\\\
23C>   {\it t_9} &=& {\it param}\left(17\right)\\\\
24C>   {\it t_{10}} &=& {\it param}\left(16\right)\\\\
25C>   {\it t_{11}} &=& {\it param}\left(15\right)\\\\
26C>   {\it t_{12}} &=& {\it param}\left(14\right)\\\\
27C>   {\it t_{13}} &=& {\it param}\left(13\right)\\\\
28C>   {\it t_{14}} &=& {\it param}\left(12\right)\\\\
29C>   {\it t_{15}} &=& {\it param}\left(11\right)\\\\
30C>   {\it t_{16}} &=& {\it param}\left(10\right)\\\\
31C>   {\it t_{17}} &=& {\it param}\left(9\right)\\\\
32C>   {\it t_{18}} &=& {\it param}\left(8\right)\\\\
33C>   {\it t_{19}} &=& {{2.0\,\tau_\alpha}\over{{\it t_5}}}
34C>    -9.11559972\\\\
35C>   {\it t_{20}} &=& 0.00186726\,{\it t_{19}}+0.00186726\,{\it t_2}
36C>    \,\sigma_{\alpha\alpha}+1.0\\\\
37C>   {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\
38C>   {\it t_{22}} &=& {\it param}\left(1\right)\\\\
39C>   {\it t_{23}} &=& {\it param}\left(4\right)\\\\
40C>   {\it t_{24}} &=& {{1}\over{{\it t_{20}}^2}}\\\\
41C>   {\it t_{25}} &=& {\it param}\left(5\right)\\\\
42C>   {\it t_{26}} &=& {\it param}\left(6\right)\\\\
43C>   {\it t_{27}} &=& {\it param}\left(2\right)\\\\
44C>   {\it t_{28}} &=& {\it param}\left(3\right)\\\\
45C>   {\it t_{29}} &=& \rho_\beta^{{{4}\over{3}}}\\\\
46C>   {\it t_{30}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\
47C>   {\it t_{31}} &=& \rho_\beta^{{{5}\over{3}}}\\\\
48C>   {\it t_{32}} &=& 9.115599744691192\,{\it t_{31}}\\\\
49C>   {\it t_{33}} &=& {\it t_{32}}-2.0\,\tau_\beta\\\\
50C>   {\it t_{34}} &=& 2.0\,\tau_\beta+{\it t_{32}}\\\\
51C>   {\it t_{35}} &=& {{2.0\,\tau_\beta}\over{{\it t_{31}}}}
52C>    -9.11559972\\\\
53C>   {\it t_{36}} &=& 0.00186726\,{\it t_{35}}+0.00186726\,{
54C>    \it t_{30}}\,\sigma_{\beta\beta}+1.0\\\\
55C>   {\it t_{37}} &=& {{1}\over{{\it t_{36}}}}\\\\
56C>   {\it t_{38}} &=& {{1}\over{{\it t_{36}}^2}}\\\\
57C>   {\it t_{39}} &=& \rho_s^{{{4}\over{3}}}\\\\
58C>   {\it t_{40}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\
59C>   {\it t_{41}} &=& \rho_s^{{{5}\over{3}}}\\\\
60C>   {\it t_{42}} &=& 9.115599744691192\,{\it t_{41}}\\\\
61C>   {\it t_{43}} &=& {\it t_{42}}-2.0\,\tau_s\\\\
62C>   {\it t_{44}} &=& 2.0\,\tau_s+{\it t_{42}}\\\\
63C>   {\it t_{45}} &=& {{2.0\,\tau_s}\over{{\it t_{41}}}}-9.11559972\\\\
64C>   {\it t_{46}} &=& 0.00186726\,{\it t_{45}}+0.00186726\,{
65C>    \it t_{40}}\,\sigma_{ss}+1.0\\\\
66C>   {\it t_{47}} &=& {{1}\over{{\it t_{46}}}}\\\\
67C>   {\it t_{48}} &=& {{1}\over{{\it t_{46}}^2}}\\\\
68C>   f &=& 1.0\,{\it t_{29}}\,{\it t_{37}}\,\left({\it t_{28}}\,{
69C>    \it t_{35}}\,{\it t_{37}}+{\it t_{27}}\,{\it t_{30}}\,
70C>    \sigma_{\beta\beta}\,{\it t_{37}}+{\it t_{26}}\,{\it t_{35}}^2
71C>    \,{\it t_{38}}+{\it t_{25}}\,{\it t_{30}}\,\sigma_{\beta\beta}
72C>    \,{\it t_{35}}\,{\it t_{38}}+{{{\it t_{23}}\,
73C>    \sigma_{\beta\beta}^2\,{\it t_{38}}}
74C>    \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{22}}\right)
75C>    -0.9305257363490997\,{\it t_{29}}\,
76C>    \left({{0.003612186453650949\,{\it t_{30}}\,
77C>    \sigma_{\beta\beta}}\over{0.00449276922095889\,{\it t_{30}}
78C>    \,\sigma_{\beta\beta}+1.0}}+1.0\right)\,\left({{{\it t_{18}}
79C>    \,{\it t_{33}}}\over{{\it t_{34}}}}+{{{\it t_{17}}\,{
80C>    \it t_{33}}^2}\over{{\it t_{34}}^2}}+{{{\it t_{16}}\,{
81C>    \it t_{33}}^3}\over{{\it t_{34}}^3}}+{{{\it t_{15}}\,{
82C>    \it t_{33}}^4}\over{{\it t_{34}}^4}}+{{{\it t_{14}}\,{
83C>    \it t_{33}}^5}\over{{\it t_{34}}^5}}+{{{\it t_{13}}\,{
84C>    \it t_{33}}^6}\over{{\it t_{34}}^6}}+{{{\it t_{12}}\,{
85C>    \it t_{33}}^7}\over{{\it t_{34}}^7}}+{{{\it t_{11}}\,{
86C>    \it t_{33}}^8}\over{{\it t_{34}}^8}}+{{{\it t_{10}}\,{
87C>    \it t_{33}}^9}\over{{\it t_{34}}^9}}+{{{\it t_9}\,{
88C>    \it t_{33}}^{10}}\over{{\it t_{34}}^{10}}}+{{{\it t_4}\,{
89C>    \it t_{33}}^{11}}\over{{\it t_{34}}^{11}}}+{\it t_3}\right)
90C>    +1.0\,{\it t_1}\,{\it t_{21}}\,\left({\it t_{28}}\,{
91C>    \it t_{19}}\,{\it t_{21}}+{\it t_{27}}\,{\it t_2}\,
92C>    \sigma_{\alpha\alpha}\,{\it t_{21}}+{\it t_{26}}\,{
93C>    \it t_{19}}^2\,{\it t_{24}}+{\it t_{25}}\,{\it t_2}\,
94C>    \sigma_{\alpha\alpha}\,{\it t_{19}}\,{\it t_{24}}+{{{
95C>    \it t_{23}}\,\sigma_{\alpha\alpha}^2\,{\it t_{24}}}
96C>    \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{22}}\right)
97C>    -0.9305257363490997\,{\it t_1}\,\left({{0.003612186453650949
98C>    \,{\it t_2}\,\sigma_{\alpha\alpha}}\over{0.00449276922095889
99C>    \,{\it t_2}\,\sigma_{\alpha\alpha}+1.0}}+1.0\right)\,
100C>    \left({{{\it t_{18}}\,{\it t_7}}\over{{\it t_8}}}+{{{
101C>    \it t_{17}}\,{\it t_7}^2}\over{{\it t_8}^2}}+{{{\it t_{16}}
102C>    \,{\it t_7}^3}\over{{\it t_8}^3}}+{{{\it t_{15}}\,{
103C>    \it t_7}^4}\over{{\it t_8}^4}}+{{{\it t_{14}}\,{
104C>    \it t_7}^5}\over{{\it t_8}^5}}+{{{\it t_{13}}\,{
105C>    \it t_7}^6}\over{{\it t_8}^6}}+{{{\it t_{12}}\,{
106C>    \it t_7}^7}\over{{\it t_8}^7}}+{{{\it t_{11}}\,{
107C>    \it t_7}^8}\over{{\it t_8}^8}}+{{{\it t_{10}}\,{
108C>    \it t_7}^9}\over{{\it t_8}^9}}+{{{\it t_9}\,{
109C>    \it t_7}^{10}}\over{{\it t_8}^{10}}}+{{{\it t_4}\,{
110C>    \it t_7}^{11}}\over{{\it t_8}^{11}}}+{\it t_3}\right)\\\\
111C>   g &=& 0\\\\
112C>   G &=& 1.0\,{\it t_{39}}\,{\it t_{47}}\,\left({\it t_{28}}\,{
113C>    \it t_{45}}\,{\it t_{47}}+{\it t_{27}}\,{\it t_{40}}\,
114C>    \sigma_{ss}\,{\it t_{47}}+{\it t_{26}}\,{\it t_{45}}^2\,{
115C>    \it t_{48}}+{\it t_{25}}\,{\it t_{40}}\,\sigma_{ss}\,{
116C>    \it t_{45}}\,{\it t_{48}}+{{{\it t_{23}}\,\sigma_{ss}^2\,{
117C>    \it t_{48}}}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_{22}}\right)
118C>    -0.9305257363490997\,{\it t_{39}}\,
119C>    \left({{0.003612186453650949\,{\it t_{40}}\,\sigma_{ss}}
120C>    \over{0.00449276922095889\,{\it t_{40}}\,\sigma_{ss}+1.0}}
121C>    +1.0\right)\,\left({{{\it t_{18}}\,{\it t_{43}}}\over{{
122C>    \it t_{44}}}}+{{{\it t_{17}}\,{\it t_{43}}^2}\over{{
123C>    \it t_{44}}^2}}+{{{\it t_{16}}\,{\it t_{43}}^3}\over{{
124C>    \it t_{44}}^3}}+{{{\it t_{15}}\,{\it t_{43}}^4}\over{{
125C>    \it t_{44}}^4}}+{{{\it t_{14}}\,{\it t_{43}}^5}\over{{
126C>    \it t_{44}}^5}}+{{{\it t_{13}}\,{\it t_{43}}^6}\over{{
127C>    \it t_{44}}^6}}+{{{\it t_{12}}\,{\it t_{43}}^7}\over{{
128C>    \it t_{44}}^7}}+{{{\it t_{11}}\,{\it t_{43}}^8}\over{{
129C>    \it t_{44}}^8}}+{{{\it t_{10}}\,{\it t_{43}}^9}\over{{
130C>    \it t_{44}}^9}}+{{{\it t_9}\,{\it t_{43}}^{10}}\over{{
131C>    \it t_{44}}^{10}}}+{{{\it t_4}\,{\it t_{43}}^{11}}\over{{
132C>    \it t_{44}}^{11}}}+{\it t_3}\right)\\\\
133C> \f}
134C>
135C> Code generated with Maxima 5.34.0 [2]
136C> driven by autoxc [3].
137C>
138C> ### References ###
139C>
140C> [1] Y Zhao, DG Truhlar, J.Chem.Phys. 123, 194101 (2006)  , DOI:
141C> <a href="https://doi.org/10.1063/1.2370993 ">
142C> 10.1063/1.2370993 </a>
143C>
144C> [2] Maxima, a computer algebra system,
145C> <a href="http://maxima.sourceforge.net/">
146C> http://maxima.sourceforge.net/</a>
147C>
148C> [3] autoxc, revision 27097 2015-05-08
149C>
150      subroutine nwxcm_x_m06(param,tol_rho,ipol,nq,wght,
151     +rho,rgamma,tau,fnc,Amat,Cmat,Mmat)
152c $Id: $
153#ifdef NWXC_QUAD_PREC
154      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
155      integer, parameter :: rk=selected_real_kind(30)
156#else
157      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
158      integer, parameter :: rk=selected_real_kind(15)
159#endif
160#include "nwxc_param.fh"
161      double precision param(*)     !< [Input] Parameters of functional
162      double precision tol_rho      !< [Input] The lower limit on the density
163      integer ipol                  !< [Input] The number of spin channels
164      integer nq                    !< [Input] The number of points
165      double precision wght         !< [Input] The weight of the functional
166      double precision rho(nq,NCOL_RHO)      !< [Input] The density
167      double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density
168                                             !< gradients
169      double precision tau(nq,NCOL_TAU)      !< [Input] The kinetic energy density
170      double precision fnc(nq)      !< [Output] The value of the functional
171c
172c     Sampling Matrices for the XC Kernel
173c
174      double precision Amat(nq,NCOL_AMAT)   !< [Output] The derivative wrt rho
175      double precision Cmat(nq,NCOL_CMAT)   !< [Output] The derivative wrt rgamma
176      double precision Mmat(nq,NCOL_MMAT)   !< [Output] The derivative wrt tau
177      integer iq
178      double precision tmp
179      double precision rhoa,rhob
180      double precision gammaaa,gammaab,gammabb
181      double precision taua,taub
182      double precision nwxcm_heaviside
183      external         nwxcm_heaviside
184CDIR$ NOVECTOR
185      do iq = 1, nq
186        if (ipol.eq.1) then
187          rhoa    = 0.5d0*rho(iq,R_T)
188          gammaaa = 0.25d0*rgamma(iq,G_TT)
189          taua    = 0.5d0*tau(iq,T_T)
190          if (rhoa.gt.tol_rho) then
191            t1 = 1/rhoa**2.6666666666666666d+0
192            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
193            t3 = 1/t2
194            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
195            t5 = rhoa**1.3333333333333333d+0
196            t6 = param(18)
197            t7 = rhoa**1.6666666666666669d+0
198            t8 = 9.115599744691192d+0*t7
199            t9 = t8-2.0d+0*taua
200            t10 = t9**11
201            t11 = 2.0d+0*taua+t8
202            t12 = 1/t11**11
203            t13 = param(17)
204            t14 = t9**10
205            t15 = 1/t11**10
206            t16 = param(16)
207            t17 = t9**9
208            t18 = 1/t11**9
209            t19 = param(15)
210            t20 = t9**8
211            t21 = 1/t11**8
212            t22 = param(14)
213            t23 = t9**7
214            t24 = 1/t11**7
215            t25 = param(13)
216            t26 = t9**6
217            t27 = 1/t11**6
218            t28 = param(12)
219            t29 = t9**5
220            t30 = 1/t11**5
221            t31 = param(11)
222            t32 = t9**4
223            t33 = 1/t11**4
224            t34 = param(10)
225            t35 = t9**3
226            t36 = 1/t11**3
227            t37 = param(9)
228            t38 = t9**2
229            t39 = 1/t11**2
230            t40 = param(8)
231            t41 = 1/t11
232            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
233     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
234     2         17*t18+t13*t14*t15+param(7)
235            t43 = 1/t7
236            t44 = 2.0d+0*t43*taua-9.11559972d+0
237            t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0
238            t46 = 1/t45
239            t47 = param(4)
240            t48 = gammaaa**2
241            t49 = 1/rhoa**5.333333333333333d+0
242            t50 = 1/t45**2
243            t51 = param(5)
244            t52 = param(6)
245            t53 = t44**2
246            t54 = param(2)
247            t55 = param(3)
248            t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1*
249     1         t44*t50*t51+t47*t48*t49*t50+param(1)
250            t57 = rhoa**6.666666666666666d-1
251            t58 = 1/t11**12
252            t59 = rhoa**3.333333333333333d-1
253            t60 = 1/t2**2
254            t61 = 1/rhoa**6.333333333333333d+0
255            t62 = 1/rhoa**3.6666666666666664d+0
256            t63 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t62
257            t64 = 1/t45**3
258            t65 = 1/rhoa**4.333333333333333d+0
259            fnc(iq) = (2.0d+0*t46*t5*t56-1.8610514726981994d+0*t4*t42*t5
260     1         )*wght+fnc(iq)
261            Amat(iq,D1_RA) = (t46*(1.0d+0*t5*(-3.3333333333333337d+0*t1*
262     1         t46*t55*taua-6.666666666666667d+0*t1*t44*t50*t52*taua-3.3
263     2         333333333333337d+0*gammaaa*t49*t50*t51*taua-2*t52*t53*t63
264     3         *t64-2*gammaaa*t1*t44*t51*t63*t64-2*t47*t48*t49*t63*t64-t
265     4         44*t50*t55*t63-gammaaa*t1*t50*t54*t63-2.6666666666666666d
266     5         +0*gammaaa*t46*t54*t62-2.6666666666666666d+0*gammaaa*t44*
267     6         t50*t51*t62-5.333333333333333d+0*t47*t48*t50*t61)+1.33333
268     7         33333333333d+0*t56*t59)-9.305257363490997d-1*t4*t5*(-1.51
269     8         92666241151986d+1*t39*t40*t57*t9+3.038533248230397d+1*t37
270     9         *t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+1.671193
271     :         2865267184d+2*t12*t14*t57*t6+1.5192666241151986d+1*t40*t4
272     ;         1*t57-3.038533248230397d+1*t36*t37*t38*t57+4.557799872345
273     <         5965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33*t34*t35
274     =         *t57+6.077066496460795d+1*t31*t33*t35*t57-6.0770664964607
275     >         95d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t30*t32*t5
276     ?         7-7.596333120575993d+1*t27*t28*t29*t57+9.115599744691193d
277     @         +1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t26*t57+1
278     1         .0634866368806391d+2*t22*t24*t26*t57-1.0634866368806391d+
279     2         2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t23*t57-1
280     3         .2154132992921589d+2*t18*t19*t20*t57+1.3673399617036788d+
281     4         2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t17*t57+1
282     5         .5192666241151986d+2*t13*t15*t17*t57-1.5192666241151986d+
283     6         2*t12*t13*t14*t57)-1.0d+0*t5*t50*t56*t63-9.30525736349099
284     7         7d-1*t42*t5*(4.327658698487368d-5*t48*t60*t61-9.632497209
285     8         735863d-3*gammaaa*t3*t62)-1.2407009817987995d+0*t4*t42*t5
286     9         9)*wght+Amat(iq,D1_RA)
287            Cmat(iq,D1_GAA) = (1.0d+0*t46*t5*(-3.73452d-3*t1*t52*t53*t64
288     1         -3.73452d-3*gammaaa*t44*t49*t51*t64-3.73452d-3*t47*t48*t6
289     2         4/rhoa**8-1.86726d-3*t1*t44*t50*t55-1.86726d-3*gammaaa*t4
290     3         9*t50*t54+t1*t46*t54+t1*t44*t50*t51+2*gammaaa*t47*t49*t50
291     4         )-9.305257363490997d-1*t42*t5*(3.6121864536509485d-3*t1*t
292     5         3-1.6228720119327628d-5*gammaaa*t49*t60)-1.86726d-3*t50*t
293     6         56/t5)*wght+Cmat(iq,D1_GAA)
294            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
295            Mmat(iq,D1_TA) = (-9.305257363490997d-1*t4*t5*(-2.0d+0*t39*t
296     1         40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6-2.2d+1*t12*t14*
297     2         t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d+0*t34*t36*t38-6
298     3         .0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d+0*t30*t31*t32-1
299     4         .0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d+1*t25*t27*t29-1
300     5         .2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d+1*t21*t22*t23-1
301     6         .6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d+1*t16*t18*t20-1
302     7         .8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d+1*t12*t13*t14)+
303     8         1.0d+0*t46*t5*(-7.46904d-3*gammaaa*t44*t51*t64*t65-3.7345
304     9         2d-3*gammaaa*t50*t54*t65+2.0d+0*gammaaa*t50*t51*t65-7.469
305     :         04d-3*t43*t52*t53*t64-7.46904d-3*t47*t48*t64/rhoa**7-3.73
306     ;         452d-3*t43*t44*t50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*
307     <         t50*t52)-3.73452d-3*t50*t56/t59)*wght+Mmat(iq,D1_TA)
308          endif ! rhoa.gt.tol_rho
309        else  ! ipol.eq.1
310          rhoa    = rho(iq,R_A)
311          rhob    = rho(iq,R_B)
312          gammaaa = rgamma(iq,G_AA)
313          gammaab = rgamma(iq,G_AB)
314          gammabb = rgamma(iq,G_BB)
315          taua    = tau(iq,T_A)
316          taub    = tau(iq,T_B)
317          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
318            t1 = 1/rhoa**2.6666666666666666d+0
319            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
320            t3 = 1/t2
321            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
322            t5 = rhoa**1.3333333333333333d+0
323            t6 = param(7)
324            t7 = param(18)
325            t8 = rhoa**1.6666666666666669d+0
326            t9 = 9.115599744691192d+0*t8
327            t10 = t9-2.0d+0*taua
328            t11 = t10**11
329            t12 = 2.0d+0*taua+t9
330            t13 = 1/t12**11
331            t14 = param(17)
332            t15 = t10**10
333            t16 = 1/t12**10
334            t17 = param(16)
335            t18 = t10**9
336            t19 = 1/t12**9
337            t20 = param(15)
338            t21 = t10**8
339            t22 = 1/t12**8
340            t23 = param(14)
341            t24 = t10**7
342            t25 = 1/t12**7
343            t26 = param(13)
344            t27 = t10**6
345            t28 = 1/t12**6
346            t29 = param(12)
347            t30 = t10**5
348            t31 = 1/t12**5
349            t32 = param(11)
350            t33 = t10**4
351            t34 = 1/t12**4
352            t35 = param(10)
353            t36 = t10**3
354            t37 = 1/t12**3
355            t38 = param(9)
356            t39 = t10**2
357            t40 = 1/t12**2
358            t41 = param(8)
359            t42 = 1/t12
360            t43 = t11*t13*t7+t6+t10*t41*t42+t38*t39*t40+t35*t36*t37+t32*
361     1         t33*t34+t29*t30*t31+t26*t27*t28+t23*t24*t25+t20*t21*t22+t
362     2         17*t18*t19+t14*t15*t16
363            t44 = 1/t8
364            t45 = 2.0d+0*t44*taua-9.11559972d+0
365            t46 = 1.86726d-3*t45+1.86726d-3*gammaaa*t1+1.0d+0
366            t47 = 1/t46
367            t48 = param(1)
368            t49 = param(4)
369            t50 = gammaaa**2
370            t51 = 1/rhoa**5.333333333333333d+0
371            t52 = 1/t46**2
372            t53 = param(5)
373            t54 = param(6)
374            t55 = t45**2
375            t56 = param(2)
376            t57 = param(3)
377            t58 = t45*t47*t57+gammaaa*t1*t47*t56+t52*t54*t55+gammaaa*t1*
378     1         t45*t52*t53+t49*t50*t51*t52+t48
379            t59 = 1/rhob**2.6666666666666666d+0
380            t60 = 4.49276922095889d-3*gammabb*t59+1.0d+0
381            t61 = 1/t60
382            t62 = 3.6121864536509485d-3*gammabb*t59*t61+1.0d+0
383            t63 = rhob**1.3333333333333333d+0
384            t64 = rhob**1.6666666666666669d+0
385            t65 = 9.115599744691192d+0*t64
386            t66 = t65-2.0d+0*taub
387            t67 = t66**11
388            t68 = 2.0d+0*taub+t65
389            t69 = 1/t68**11
390            t70 = t66**10
391            t71 = 1/t68**10
392            t72 = t66**9
393            t73 = 1/t68**9
394            t74 = t66**8
395            t75 = 1/t68**8
396            t76 = t66**7
397            t77 = 1/t68**7
398            t78 = t66**6
399            t79 = 1/t68**6
400            t80 = t66**5
401            t81 = 1/t68**5
402            t82 = t66**4
403            t83 = 1/t68**4
404            t84 = t66**3
405            t85 = 1/t68**3
406            t86 = t66**2
407            t87 = 1/t68**2
408            t88 = 1/t68
409            t89 = t41*t66*t88+t38*t86*t87+t35*t84*t85+t32*t82*t83+t29*t8
410     1         0*t81+t26*t78*t79+t23*t76*t77+t20*t74*t75+t17*t72*t73+t14
411     2         *t70*t71+t67*t69*t7+t6
412            t90 = 1/t64
413            t91 = 2.0d+0*t90*taub-9.11559972d+0
414            t92 = 1.86726d-3*t91+1.86726d-3*gammabb*t59+1.0d+0
415            t93 = 1/t92
416            t94 = gammabb**2
417            t95 = 1/rhob**5.333333333333333d+0
418            t96 = 1/t92**2
419            t97 = t91**2
420            t98 = t54*t96*t97+t49*t94*t95*t96+gammabb*t53*t59*t91*t96+t5
421     1         7*t91*t93+gammabb*t56*t59*t93+t48
422            t99 = rhoa**6.666666666666666d-1
423            t100 = 1/t12**12
424            t101 = rhoa**3.333333333333333d-1
425            t102 = 1/t2**2
426            t103 = 1/rhoa**6.333333333333333d+0
427            t104 = 1/rhoa**3.6666666666666664d+0
428            t105 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t104
429            t106 = 1/t46**3
430            t107 = rhob**6.666666666666666d-1
431            t108 = 1/t68**12
432            t109 = rhob**3.333333333333333d-1
433            t110 = 1/t60**2
434            t111 = 1/rhob**6.333333333333333d+0
435            t112 = 1/rhob**3.6666666666666664d+0
436            t113 = -6.2242d-3*t59*taub-4.9793599999999993d-3*gammabb*t11
437     1         2
438            t114 = 1/t92**3
439            t115 = 1/rhoa**4.333333333333333d+0
440            t116 = 1/rhob**4.333333333333333d+0
441            fnc(iq) = (1.0d+0*t63*t93*t98-9.305257363490997d-1*t62*t63*t
442     1         89+1.0d+0*t47*t5*t58-9.305257363490997d-1*t4*t43*t5)*wght
443     2         +fnc(iq)
444            Amat(iq,D1_RA) = (t47*(1.0d+0*t5*(-3.3333333333333337d+0*t1*
445     1         t47*t57*taua-6.666666666666667d+0*t1*t45*t52*t54*taua-3.3
446     2         333333333333337d+0*gammaaa*t51*t52*t53*taua-t105*t45*t52*
447     3         t57-gammaaa*t1*t105*t52*t56-2.6666666666666666d+0*gammaaa
448     4         *t104*t47*t56-2*t105*t106*t54*t55-2.6666666666666666d+0*g
449     5         ammaaa*t104*t45*t52*t53-2*gammaaa*t1*t105*t106*t45*t53-5.
450     6         333333333333333d+0*t103*t49*t50*t52-2*t105*t106*t49*t50*t
451     7         51)+1.3333333333333333d+0*t101*t58)-9.305257363490997d-1*
452     8         t4*t5*(1.6711932865267184d+2*t13*t15*t7*t99-1.67119328652
453     9         67184d+2*t100*t11*t7*t99+1.5192666241151986d+1*t41*t42*t9
454     :         9-1.5192666241151986d+1*t10*t40*t41*t99+3.038533248230397
455     ;         d+1*t10*t38*t40*t99-3.038533248230397d+1*t37*t38*t39*t99+
456     <         4.5577998723455965d+1*t35*t37*t39*t99-4.5577998723455965d
457     =         +1*t34*t35*t36*t99+6.077066496460795d+1*t32*t34*t36*t99-6
458     >         .077066496460795d+1*t31*t32*t33*t99+7.596333120575993d+1*
459     ?         t29*t31*t33*t99-7.596333120575993d+1*t28*t29*t30*t99+9.11
460     @         5599744691193d+1*t26*t28*t30*t99-9.115599744691193d+1*t25
461     1         *t26*t27*t99+1.0634866368806391d+2*t23*t25*t27*t99-1.0634
462     2         866368806391d+2*t22*t23*t24*t99+1.2154132992921589d+2*t20
463     3         *t22*t24*t99-1.2154132992921589d+2*t19*t20*t21*t99+1.3673
464     4         399617036788d+2*t17*t19*t21*t99-1.3673399617036788d+2*t16
465     5         *t17*t18*t99+1.5192666241151986d+2*t14*t16*t18*t99-1.5192
466     6         666241151986d+2*t13*t14*t15*t99)-1.0d+0*t105*t5*t52*t58-9
467     7         .305257363490997d-1*t43*t5*(4.327658698487368d-5*t102*t10
468     8         3*t50-9.632497209735863d-3*gammaaa*t104*t3)-1.24070098179
469     9         87995d+0*t101*t4*t43)*wght+Amat(iq,D1_RA)
470            Amat(iq,D1_RB) = (t93*(1.0d+0*t63*(-3.3333333333333337d+0*ga
471     1         mmabb*t53*t95*t96*taub-6.666666666666667d+0*t54*t59*t91*t
472     2         96*taub-3.3333333333333337d+0*t57*t59*t93*taub-2*t113*t11
473     3         4*t54*t97-5.333333333333333d+0*t111*t49*t94*t96-t113*t57*
474     4         t91*t96-2.6666666666666666d+0*gammabb*t112*t53*t91*t96-ga
475     5         mmabb*t113*t56*t59*t96-2*t113*t114*t49*t94*t95-2.66666666
476     6         66666666d+0*gammabb*t112*t56*t93-2*gammabb*t113*t114*t53*
477     7         t59*t91)+1.3333333333333333d+0*t109*t98)-1.0d+0*t113*t63*
478     8         t96*t98-9.305257363490997d-1*t63*t89*(4.327658698487368d-
479     9         5*t110*t111*t94-9.632497209735863d-3*gammabb*t112*t61)-1.
480     :         2407009817987995d+0*t109*t62*t89-9.305257363490997d-1*t62
481     ;         *t63*(1.5192666241151986d+1*t107*t41*t88-1.51926662411519
482     <         86d+1*t107*t41*t66*t87+3.038533248230397d+1*t107*t38*t66*
483     =         t87-3.038533248230397d+1*t107*t38*t85*t86+4.5577998723455
484     >         965d+1*t107*t35*t85*t86-4.5577998723455965d+1*t107*t35*t8
485     ?         3*t84+6.077066496460795d+1*t107*t32*t83*t84-6.07706649646
486     @         0795d+1*t107*t32*t81*t82+7.596333120575993d+1*t107*t29*t8
487     1         1*t82-7.596333120575993d+1*t107*t29*t79*t80+9.11559974469
488     2         1193d+1*t107*t26*t79*t80-9.115599744691193d+1*t107*t26*t7
489     3         7*t78+1.0634866368806391d+2*t107*t23*t77*t78-1.0634866368
490     4         806391d+2*t107*t23*t75*t76+1.2154132992921589d+2*t107*t20
491     5         *t75*t76-1.2154132992921589d+2*t107*t20*t73*t74+1.3673399
492     6         617036788d+2*t107*t17*t73*t74-1.3673399617036788d+2*t107*
493     7         t17*t71*t72+1.5192666241151986d+2*t107*t14*t71*t72+1.6711
494     8         932865267184d+2*t107*t69*t7*t70-1.5192666241151986d+2*t10
495     9         7*t14*t69*t70-1.6711932865267184d+2*t107*t108*t67*t7))*wg
496     :         ht+Amat(iq,D1_RB)
497            Cmat(iq,D1_GAA) = (-1.86726d-3*t52*t58/t5+1.0d+0*t47*t5*(-1.
498     1         86726d-3*t1*t45*t52*t57-1.86726d-3*gammaaa*t51*t52*t56+t1
499     2         *t47*t56-3.73452d-3*t1*t106*t54*t55+t1*t45*t52*t53-3.7345
500     3         2d-3*gammaaa*t106*t45*t51*t53+2*gammaaa*t49*t51*t52-3.734
501     4         52d-3*t106*t49*t50/rhoa**8)-9.305257363490997d-1*t43*t5*(
502     5         3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gammaaa
503     6         *t102*t51))*wght+Cmat(iq,D1_GAA)
504            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
505            Cmat(iq,D1_GBB) = (-1.86726d-3*t96*t98/t63+1.0d+0*t63*t93*(-
506     1         3.73452d-3*t114*t54*t59*t97-1.86726d-3*gammabb*t56*t95*t9
507     2         6+2*gammabb*t49*t95*t96-1.86726d-3*t57*t59*t91*t96+t53*t5
508     3         9*t91*t96-3.73452d-3*gammabb*t114*t53*t91*t95-3.73452d-3*
509     4         t114*t49*t94/rhob**8+t56*t59*t93)-9.305257363490997d-1*t6
510     5         3*t89*(3.6121864536509485d-3*t59*t61-1.6228720119327628d-
511     6         5*gammabb*t110*t95))*wght+Cmat(iq,D1_GBB)
512            Mmat(iq,D1_TA) = (-9.305257363490997d-1*t4*t5*(-2.2d+1*t13*t
513     1         15*t7-2.2d+1*t100*t11*t7-2.0d+0*t41*t42-2.0d+0*t10*t40*t4
514     2         1-4.0d+0*t10*t38*t40-4.0d+0*t37*t38*t39-6.0d+0*t35*t37*t3
515     3         9-6.0d+0*t34*t35*t36-8.0d+0*t32*t34*t36-8.0d+0*t31*t32*t3
516     4         3-1.0d+1*t29*t31*t33-1.0d+1*t28*t29*t30-1.2d+1*t26*t28*t3
517     5         0-1.2d+1*t25*t26*t27-1.4d+1*t23*t25*t27-1.4d+1*t22*t23*t2
518     6         4-1.6d+1*t20*t22*t24-1.6d+1*t19*t20*t21-1.8d+1*t17*t19*t2
519     7         1-1.8d+1*t16*t17*t18-2.0d+1*t14*t16*t18-2.0d+1*t13*t14*t1
520     8         5)-3.73452d-3*t52*t58/t101+1.0d+0*t47*t5*(-3.73452d-3*t44
521     9         *t45*t52*t57+2.0d+0*t44*t47*t57-3.73452d-3*gammaaa*t115*t
522     :         52*t56-7.46904d-3*t106*t44*t54*t55+4.0d+0*t44*t45*t52*t54
523     ;         +2.0d+0*gammaaa*t115*t52*t53-7.46904d-3*gammaaa*t106*t115
524     <         *t45*t53-7.46904d-3*t106*t49*t50/rhoa**7))*wght+Mmat(iq,D
525     =         1_TA)
526            Mmat(iq,D1_TB) = (-3.73452d-3*t96*t98/t109+1.0d+0*t63*t93*(-
527     1         7.46904d-3*t114*t54*t90*t97-3.73452d-3*t57*t90*t91*t96+4.
528     2         0d+0*t54*t90*t91*t96-3.73452d-3*gammabb*t116*t56*t96+2.0d
529     3         +0*gammabb*t116*t53*t96-7.46904d-3*t114*t49*t94/rhob**7+2
530     4         .0d+0*t57*t90*t93-7.46904d-3*gammabb*t114*t116*t53*t91)-9
531     5         .305257363490997d-1*t62*t63*(-2.0d+0*t41*t88-2.0d+0*t41*t
532     6         66*t87-4.0d+0*t38*t66*t87-4.0d+0*t38*t85*t86-6.0d+0*t35*t
533     7         85*t86-6.0d+0*t35*t83*t84-8.0d+0*t32*t83*t84-8.0d+0*t32*t
534     8         81*t82-1.0d+1*t29*t81*t82-1.0d+1*t29*t79*t80-1.2d+1*t26*t
535     9         79*t80-1.2d+1*t26*t77*t78-1.4d+1*t23*t77*t78-1.4d+1*t23*t
536     :         75*t76-1.6d+1*t20*t75*t76-1.6d+1*t20*t73*t74-1.8d+1*t17*t
537     ;         73*t74-1.8d+1*t17*t71*t72-2.0d+1*t14*t71*t72-2.2d+1*t69*t
538     <         7*t70-2.0d+1*t14*t69*t70-2.2d+1*t108*t67*t7))*wght+Mmat(i
539     =         q,D1_TB)
540          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
541            t1 = 1/rhoa**2.6666666666666666d+0
542            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
543            t3 = 1/t2
544            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
545            t5 = rhoa**1.3333333333333333d+0
546            t6 = param(18)
547            t7 = rhoa**1.6666666666666669d+0
548            t8 = 9.115599744691192d+0*t7
549            t9 = t8-2.0d+0*taua
550            t10 = t9**11
551            t11 = 2.0d+0*taua+t8
552            t12 = 1/t11**11
553            t13 = param(17)
554            t14 = t9**10
555            t15 = 1/t11**10
556            t16 = param(16)
557            t17 = t9**9
558            t18 = 1/t11**9
559            t19 = param(15)
560            t20 = t9**8
561            t21 = 1/t11**8
562            t22 = param(14)
563            t23 = t9**7
564            t24 = 1/t11**7
565            t25 = param(13)
566            t26 = t9**6
567            t27 = 1/t11**6
568            t28 = param(12)
569            t29 = t9**5
570            t30 = 1/t11**5
571            t31 = param(11)
572            t32 = t9**4
573            t33 = 1/t11**4
574            t34 = param(10)
575            t35 = t9**3
576            t36 = 1/t11**3
577            t37 = param(9)
578            t38 = t9**2
579            t39 = 1/t11**2
580            t40 = param(8)
581            t41 = 1/t11
582            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
583     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
584     2         17*t18+t13*t14*t15+param(7)
585            t43 = 1/t7
586            t44 = 2.0d+0*t43*taua-9.11559972d+0
587            t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0
588            t46 = 1/t45
589            t47 = param(4)
590            t48 = gammaaa**2
591            t49 = 1/rhoa**5.333333333333333d+0
592            t50 = 1/t45**2
593            t51 = param(5)
594            t52 = param(6)
595            t53 = t44**2
596            t54 = param(2)
597            t55 = param(3)
598            t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1*
599     1         t44*t50*t51+t47*t48*t49*t50+param(1)
600            t57 = rhoa**6.666666666666666d-1
601            t58 = 1/t11**12
602            t59 = rhoa**3.333333333333333d-1
603            t60 = 1/t2**2
604            t61 = 1/rhoa**6.333333333333333d+0
605            t62 = 1/rhoa**3.6666666666666664d+0
606            t63 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t62
607            t64 = 1/t45**3
608            t65 = 1/rhoa**4.333333333333333d+0
609            fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5)
610     1         *wght+fnc(iq)
611            Amat(iq,D1_RA) = (t46*(1.0d+0*t5*(-3.3333333333333337d+0*t1*
612     1         t46*t55*taua-6.666666666666667d+0*t1*t44*t50*t52*taua-3.3
613     2         333333333333337d+0*gammaaa*t49*t50*t51*taua-2*t52*t53*t63
614     3         *t64-2*gammaaa*t1*t44*t51*t63*t64-2*t47*t48*t49*t63*t64-t
615     4         44*t50*t55*t63-gammaaa*t1*t50*t54*t63-2.6666666666666666d
616     5         +0*gammaaa*t46*t54*t62-2.6666666666666666d+0*gammaaa*t44*
617     6         t50*t51*t62-5.333333333333333d+0*t47*t48*t50*t61)+1.33333
618     7         33333333333d+0*t56*t59)-9.305257363490997d-1*t4*t5*(-1.51
619     8         92666241151986d+1*t39*t40*t57*t9+3.038533248230397d+1*t37
620     9         *t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+1.671193
621     :         2865267184d+2*t12*t14*t57*t6+1.5192666241151986d+1*t40*t4
622     ;         1*t57-3.038533248230397d+1*t36*t37*t38*t57+4.557799872345
623     <         5965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33*t34*t35
624     =         *t57+6.077066496460795d+1*t31*t33*t35*t57-6.0770664964607
625     >         95d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t30*t32*t5
626     ?         7-7.596333120575993d+1*t27*t28*t29*t57+9.115599744691193d
627     @         +1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t26*t57+1
628     1         .0634866368806391d+2*t22*t24*t26*t57-1.0634866368806391d+
629     2         2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t23*t57-1
630     3         .2154132992921589d+2*t18*t19*t20*t57+1.3673399617036788d+
631     4         2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t17*t57+1
632     5         .5192666241151986d+2*t13*t15*t17*t57-1.5192666241151986d+
633     6         2*t12*t13*t14*t57)-1.0d+0*t5*t50*t56*t63-9.30525736349099
634     7         7d-1*t42*t5*(4.327658698487368d-5*t48*t60*t61-9.632497209
635     8         735863d-3*gammaaa*t3*t62)-1.2407009817987995d+0*t4*t42*t5
636     9         9)*wght+Amat(iq,D1_RA)
637            Cmat(iq,D1_GAA) = (1.0d+0*t46*t5*(-3.73452d-3*t1*t52*t53*t64
638     1         -3.73452d-3*gammaaa*t44*t49*t51*t64-3.73452d-3*t47*t48*t6
639     2         4/rhoa**8-1.86726d-3*t1*t44*t50*t55-1.86726d-3*gammaaa*t4
640     3         9*t50*t54+t1*t46*t54+t1*t44*t50*t51+2*gammaaa*t47*t49*t50
641     4         )-9.305257363490997d-1*t42*t5*(3.6121864536509485d-3*t1*t
642     5         3-1.6228720119327628d-5*gammaaa*t49*t60)-1.86726d-3*t50*t
643     6         56/t5)*wght+Cmat(iq,D1_GAA)
644            Mmat(iq,D1_TA) = (-9.305257363490997d-1*t4*t5*(-2.0d+0*t39*t
645     1         40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6-2.2d+1*t12*t14*
646     2         t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d+0*t34*t36*t38-6
647     3         .0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d+0*t30*t31*t32-1
648     4         .0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d+1*t25*t27*t29-1
649     5         .2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d+1*t21*t22*t23-1
650     6         .6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d+1*t16*t18*t20-1
651     7         .8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d+1*t12*t13*t14)+
652     8         1.0d+0*t46*t5*(-7.46904d-3*gammaaa*t44*t51*t64*t65-3.7345
653     9         2d-3*gammaaa*t50*t54*t65+2.0d+0*gammaaa*t50*t51*t65-7.469
654     :         04d-3*t43*t52*t53*t64-7.46904d-3*t47*t48*t64/rhoa**7-3.73
655     ;         452d-3*t43*t44*t50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*
656     <         t50*t52)-3.73452d-3*t50*t56/t59)*wght+Mmat(iq,D1_TA)
657            Mmat(iq,D1_TB) = Mmat(iq,D1_TB)
658          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
659            t1 = 1/rhob**2.6666666666666666d+0
660            t2 = 4.49276922095889d-3*gammabb*t1+1.0d+0
661            t3 = 1/t2
662            t4 = 3.6121864536509485d-3*gammabb*t1*t3+1.0d+0
663            t5 = rhob**1.3333333333333333d+0
664            t6 = param(18)
665            t7 = rhob**1.6666666666666669d+0
666            t8 = 9.115599744691192d+0*t7
667            t9 = t8-2.0d+0*taub
668            t10 = t9**11
669            t11 = 2.0d+0*taub+t8
670            t12 = 1/t11**11
671            t13 = param(17)
672            t14 = t9**10
673            t15 = 1/t11**10
674            t16 = param(16)
675            t17 = t9**9
676            t18 = 1/t11**9
677            t19 = param(15)
678            t20 = t9**8
679            t21 = 1/t11**8
680            t22 = param(14)
681            t23 = t9**7
682            t24 = 1/t11**7
683            t25 = param(13)
684            t26 = t9**6
685            t27 = 1/t11**6
686            t28 = param(12)
687            t29 = t9**5
688            t30 = 1/t11**5
689            t31 = param(11)
690            t32 = t9**4
691            t33 = 1/t11**4
692            t34 = param(10)
693            t35 = t9**3
694            t36 = 1/t11**3
695            t37 = param(9)
696            t38 = t9**2
697            t39 = 1/t11**2
698            t40 = param(8)
699            t41 = 1/t11
700            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
701     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
702     2         17*t18+t13*t14*t15+param(7)
703            t43 = 1/t7
704            t44 = 2.0d+0*t43*taub-9.11559972d+0
705            t45 = 1.86726d-3*t44+1.86726d-3*gammabb*t1+1.0d+0
706            t46 = 1/t45
707            t47 = param(4)
708            t48 = gammabb**2
709            t49 = 1/rhob**5.333333333333333d+0
710            t50 = 1/t45**2
711            t51 = param(5)
712            t52 = param(6)
713            t53 = t44**2
714            t54 = param(2)
715            t55 = param(3)
716            t56 = t44*t46*t55+gammabb*t1*t46*t54+t50*t52*t53+gammabb*t1*
717     1         t44*t50*t51+t47*t48*t49*t50+param(1)
718            t57 = rhob**6.666666666666666d-1
719            t58 = 1/t11**12
720            t59 = rhob**3.333333333333333d-1
721            t60 = 1/t2**2
722            t61 = 1/rhob**6.333333333333333d+0
723            t62 = 1/rhob**3.6666666666666664d+0
724            t63 = -6.2242d-3*t1*taub-4.9793599999999993d-3*gammabb*t62
725            t64 = 1/t45**3
726            t65 = 1/rhob**4.333333333333333d+0
727            fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5)
728     1         *wght+fnc(iq)
729            Amat(iq,D1_RB) = (t46*(1.0d+0*t5*(-3.3333333333333337d+0*t1*
730     1         t46*t55*taub-6.666666666666667d+0*t1*t44*t50*t52*taub-3.3
731     2         333333333333337d+0*gammabb*t49*t50*t51*taub-2*t52*t53*t63
732     3         *t64-2*gammabb*t1*t44*t51*t63*t64-2*t47*t48*t49*t63*t64-t
733     4         44*t50*t55*t63-gammabb*t1*t50*t54*t63-2.6666666666666666d
734     5         +0*gammabb*t46*t54*t62-2.6666666666666666d+0*gammabb*t44*
735     6         t50*t51*t62-5.333333333333333d+0*t47*t48*t50*t61)+1.33333
736     7         33333333333d+0*t56*t59)-9.305257363490997d-1*t4*t5*(-1.51
737     8         92666241151986d+1*t39*t40*t57*t9+3.038533248230397d+1*t37
738     9         *t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+1.671193
739     :         2865267184d+2*t12*t14*t57*t6+1.5192666241151986d+1*t40*t4
740     ;         1*t57-3.038533248230397d+1*t36*t37*t38*t57+4.557799872345
741     <         5965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33*t34*t35
742     =         *t57+6.077066496460795d+1*t31*t33*t35*t57-6.0770664964607
743     >         95d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t30*t32*t5
744     ?         7-7.596333120575993d+1*t27*t28*t29*t57+9.115599744691193d
745     @         +1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t26*t57+1
746     1         .0634866368806391d+2*t22*t24*t26*t57-1.0634866368806391d+
747     2         2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t23*t57-1
748     3         .2154132992921589d+2*t18*t19*t20*t57+1.3673399617036788d+
749     4         2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t17*t57+1
750     5         .5192666241151986d+2*t13*t15*t17*t57-1.5192666241151986d+
751     6         2*t12*t13*t14*t57)-1.0d+0*t5*t50*t56*t63-9.30525736349099
752     7         7d-1*t42*t5*(4.327658698487368d-5*t48*t60*t61-9.632497209
753     8         735863d-3*gammabb*t3*t62)-1.2407009817987995d+0*t4*t42*t5
754     9         9)*wght+Amat(iq,D1_RB)
755            Cmat(iq,D1_GBB) = (1.0d+0*t46*t5*(-3.73452d-3*t1*t52*t53*t64
756     1         -3.73452d-3*gammabb*t44*t49*t51*t64-3.73452d-3*t47*t48*t6
757     2         4/rhob**8-1.86726d-3*t1*t44*t50*t55-1.86726d-3*gammabb*t4
758     3         9*t50*t54+t1*t46*t54+t1*t44*t50*t51+2*gammabb*t47*t49*t50
759     4         )-9.305257363490997d-1*t42*t5*(3.6121864536509485d-3*t1*t
760     5         3-1.6228720119327628d-5*gammabb*t49*t60)-1.86726d-3*t50*t
761     6         56/t5)*wght+Cmat(iq,D1_GBB)
762            Mmat(iq,D1_TB) = (-9.305257363490997d-1*t4*t5*(-2.0d+0*t39*t
763     1         40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6-2.2d+1*t12*t14*
764     2         t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d+0*t34*t36*t38-6
765     3         .0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d+0*t30*t31*t32-1
766     4         .0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d+1*t25*t27*t29-1
767     5         .2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d+1*t21*t22*t23-1
768     6         .6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d+1*t16*t18*t20-1
769     7         .8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d+1*t12*t13*t14)+
770     8         1.0d+0*t46*t5*(-7.46904d-3*gammabb*t44*t51*t64*t65-3.7345
771     9         2d-3*gammabb*t50*t54*t65+2.0d+0*gammabb*t50*t51*t65-7.469
772     :         04d-3*t43*t52*t53*t64-7.46904d-3*t47*t48*t64/rhob**7-3.73
773     ;         452d-3*t43*t44*t50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*
774     <         t50*t52)-3.73452d-3*t50*t56/t59)*wght+Mmat(iq,D1_TB)
775            Mmat(iq,D1_TA) = Mmat(iq,D1_TA)
776          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
777        endif ! ipol.eq.1
778      enddo ! iq
779      end
780C>
781C> \brief Evaluate the nwxcm_x_m06 functional [1]
782C>
783C> \f{eqnarray*}{
784C>   {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\
785C>   {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\
786C>   {\it t_3} &=& {\it param}\left(7\right)\\\\
787C>   {\it t_4} &=& {\it param}\left(18\right)\\\\
788C>   {\it t_5} &=& \rho_\alpha^{{{5}\over{3}}}\\\\
789C>   {\it t_6} &=& 9.115599744691192\,{\it t_5}\\\\
790C>   {\it t_7} &=& {\it t_6}-2.0\,\tau_\alpha\\\\
791C>   {\it t_8} &=& 2.0\,\tau_\alpha+{\it t_6}\\\\
792C>   {\it t_9} &=& {\it param}\left(17\right)\\\\
793C>   {\it t_{10}} &=& {\it param}\left(16\right)\\\\
794C>   {\it t_{11}} &=& {\it param}\left(15\right)\\\\
795C>   {\it t_{12}} &=& {\it param}\left(14\right)\\\\
796C>   {\it t_{13}} &=& {\it param}\left(13\right)\\\\
797C>   {\it t_{14}} &=& {\it param}\left(12\right)\\\\
798C>   {\it t_{15}} &=& {\it param}\left(11\right)\\\\
799C>   {\it t_{16}} &=& {\it param}\left(10\right)\\\\
800C>   {\it t_{17}} &=& {\it param}\left(9\right)\\\\
801C>   {\it t_{18}} &=& {\it param}\left(8\right)\\\\
802C>   {\it t_{19}} &=& {{2.0\,\tau_\alpha}\over{{\it t_5}}}
803C>    -9.11559972\\\\
804C>   {\it t_{20}} &=& 0.00186726\,{\it t_{19}}+0.00186726\,{\it t_2}
805C>    \,\sigma_{\alpha\alpha}+1.0\\\\
806C>   {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\
807C>   {\it t_{22}} &=& {\it param}\left(1\right)\\\\
808C>   {\it t_{23}} &=& {\it param}\left(4\right)\\\\
809C>   {\it t_{24}} &=& {{1}\over{{\it t_{20}}^2}}\\\\
810C>   {\it t_{25}} &=& {\it param}\left(5\right)\\\\
811C>   {\it t_{26}} &=& {\it param}\left(6\right)\\\\
812C>   {\it t_{27}} &=& {\it param}\left(2\right)\\\\
813C>   {\it t_{28}} &=& {\it param}\left(3\right)\\\\
814C>   {\it t_{29}} &=& \rho_\beta^{{{4}\over{3}}}\\\\
815C>   {\it t_{30}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\
816C>   {\it t_{31}} &=& \rho_\beta^{{{5}\over{3}}}\\\\
817C>   {\it t_{32}} &=& 9.115599744691192\,{\it t_{31}}\\\\
818C>   {\it t_{33}} &=& {\it t_{32}}-2.0\,\tau_\beta\\\\
819C>   {\it t_{34}} &=& 2.0\,\tau_\beta+{\it t_{32}}\\\\
820C>   {\it t_{35}} &=& {{2.0\,\tau_\beta}\over{{\it t_{31}}}}
821C>    -9.11559972\\\\
822C>   {\it t_{36}} &=& 0.00186726\,{\it t_{35}}+0.00186726\,{
823C>    \it t_{30}}\,\sigma_{\beta\beta}+1.0\\\\
824C>   {\it t_{37}} &=& {{1}\over{{\it t_{36}}}}\\\\
825C>   {\it t_{38}} &=& {{1}\over{{\it t_{36}}^2}}\\\\
826C>   {\it t_{39}} &=& \rho_s^{{{4}\over{3}}}\\\\
827C>   {\it t_{40}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\
828C>   {\it t_{41}} &=& \rho_s^{{{5}\over{3}}}\\\\
829C>   {\it t_{42}} &=& 9.115599744691192\,{\it t_{41}}\\\\
830C>   {\it t_{43}} &=& {\it t_{42}}-2.0\,\tau_s\\\\
831C>   {\it t_{44}} &=& 2.0\,\tau_s+{\it t_{42}}\\\\
832C>   {\it t_{45}} &=& {{2.0\,\tau_s}\over{{\it t_{41}}}}-9.11559972\\\\
833C>   {\it t_{46}} &=& 0.00186726\,{\it t_{45}}+0.00186726\,{
834C>    \it t_{40}}\,\sigma_{ss}+1.0\\\\
835C>   {\it t_{47}} &=& {{1}\over{{\it t_{46}}}}\\\\
836C>   {\it t_{48}} &=& {{1}\over{{\it t_{46}}^2}}\\\\
837C>   f &=& 1.0\,{\it t_{29}}\,{\it t_{37}}\,\left({\it t_{28}}\,{
838C>    \it t_{35}}\,{\it t_{37}}+{\it t_{27}}\,{\it t_{30}}\,
839C>    \sigma_{\beta\beta}\,{\it t_{37}}+{\it t_{26}}\,{\it t_{35}}^2
840C>    \,{\it t_{38}}+{\it t_{25}}\,{\it t_{30}}\,\sigma_{\beta\beta}
841C>    \,{\it t_{35}}\,{\it t_{38}}+{{{\it t_{23}}\,
842C>    \sigma_{\beta\beta}^2\,{\it t_{38}}}
843C>    \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{22}}\right)
844C>    -0.9305257363490997\,{\it t_{29}}\,
845C>    \left({{0.003612186453650949\,{\it t_{30}}\,
846C>    \sigma_{\beta\beta}}\over{0.00449276922095889\,{\it t_{30}}
847C>    \,\sigma_{\beta\beta}+1.0}}+1.0\right)\,\left({{{\it t_{18}}
848C>    \,{\it t_{33}}}\over{{\it t_{34}}}}+{{{\it t_{17}}\,{
849C>    \it t_{33}}^2}\over{{\it t_{34}}^2}}+{{{\it t_{16}}\,{
850C>    \it t_{33}}^3}\over{{\it t_{34}}^3}}+{{{\it t_{15}}\,{
851C>    \it t_{33}}^4}\over{{\it t_{34}}^4}}+{{{\it t_{14}}\,{
852C>    \it t_{33}}^5}\over{{\it t_{34}}^5}}+{{{\it t_{13}}\,{
853C>    \it t_{33}}^6}\over{{\it t_{34}}^6}}+{{{\it t_{12}}\,{
854C>    \it t_{33}}^7}\over{{\it t_{34}}^7}}+{{{\it t_{11}}\,{
855C>    \it t_{33}}^8}\over{{\it t_{34}}^8}}+{{{\it t_{10}}\,{
856C>    \it t_{33}}^9}\over{{\it t_{34}}^9}}+{{{\it t_9}\,{
857C>    \it t_{33}}^{10}}\over{{\it t_{34}}^{10}}}+{{{\it t_4}\,{
858C>    \it t_{33}}^{11}}\over{{\it t_{34}}^{11}}}+{\it t_3}\right)
859C>    +1.0\,{\it t_1}\,{\it t_{21}}\,\left({\it t_{28}}\,{
860C>    \it t_{19}}\,{\it t_{21}}+{\it t_{27}}\,{\it t_2}\,
861C>    \sigma_{\alpha\alpha}\,{\it t_{21}}+{\it t_{26}}\,{
862C>    \it t_{19}}^2\,{\it t_{24}}+{\it t_{25}}\,{\it t_2}\,
863C>    \sigma_{\alpha\alpha}\,{\it t_{19}}\,{\it t_{24}}+{{{
864C>    \it t_{23}}\,\sigma_{\alpha\alpha}^2\,{\it t_{24}}}
865C>    \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{22}}\right)
866C>    -0.9305257363490997\,{\it t_1}\,\left({{0.003612186453650949
867C>    \,{\it t_2}\,\sigma_{\alpha\alpha}}\over{0.00449276922095889
868C>    \,{\it t_2}\,\sigma_{\alpha\alpha}+1.0}}+1.0\right)\,
869C>    \left({{{\it t_{18}}\,{\it t_7}}\over{{\it t_8}}}+{{{
870C>    \it t_{17}}\,{\it t_7}^2}\over{{\it t_8}^2}}+{{{\it t_{16}}
871C>    \,{\it t_7}^3}\over{{\it t_8}^3}}+{{{\it t_{15}}\,{
872C>    \it t_7}^4}\over{{\it t_8}^4}}+{{{\it t_{14}}\,{
873C>    \it t_7}^5}\over{{\it t_8}^5}}+{{{\it t_{13}}\,{
874C>    \it t_7}^6}\over{{\it t_8}^6}}+{{{\it t_{12}}\,{
875C>    \it t_7}^7}\over{{\it t_8}^7}}+{{{\it t_{11}}\,{
876C>    \it t_7}^8}\over{{\it t_8}^8}}+{{{\it t_{10}}\,{
877C>    \it t_7}^9}\over{{\it t_8}^9}}+{{{\it t_9}\,{
878C>    \it t_7}^{10}}\over{{\it t_8}^{10}}}+{{{\it t_4}\,{
879C>    \it t_7}^{11}}\over{{\it t_8}^{11}}}+{\it t_3}\right)\\\\
880C>   g &=& 0\\\\
881C>   G &=& 1.0\,{\it t_{39}}\,{\it t_{47}}\,\left({\it t_{28}}\,{
882C>    \it t_{45}}\,{\it t_{47}}+{\it t_{27}}\,{\it t_{40}}\,
883C>    \sigma_{ss}\,{\it t_{47}}+{\it t_{26}}\,{\it t_{45}}^2\,{
884C>    \it t_{48}}+{\it t_{25}}\,{\it t_{40}}\,\sigma_{ss}\,{
885C>    \it t_{45}}\,{\it t_{48}}+{{{\it t_{23}}\,\sigma_{ss}^2\,{
886C>    \it t_{48}}}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_{22}}\right)
887C>    -0.9305257363490997\,{\it t_{39}}\,
888C>    \left({{0.003612186453650949\,{\it t_{40}}\,\sigma_{ss}}
889C>    \over{0.00449276922095889\,{\it t_{40}}\,\sigma_{ss}+1.0}}
890C>    +1.0\right)\,\left({{{\it t_{18}}\,{\it t_{43}}}\over{{
891C>    \it t_{44}}}}+{{{\it t_{17}}\,{\it t_{43}}^2}\over{{
892C>    \it t_{44}}^2}}+{{{\it t_{16}}\,{\it t_{43}}^3}\over{{
893C>    \it t_{44}}^3}}+{{{\it t_{15}}\,{\it t_{43}}^4}\over{{
894C>    \it t_{44}}^4}}+{{{\it t_{14}}\,{\it t_{43}}^5}\over{{
895C>    \it t_{44}}^5}}+{{{\it t_{13}}\,{\it t_{43}}^6}\over{{
896C>    \it t_{44}}^6}}+{{{\it t_{12}}\,{\it t_{43}}^7}\over{{
897C>    \it t_{44}}^7}}+{{{\it t_{11}}\,{\it t_{43}}^8}\over{{
898C>    \it t_{44}}^8}}+{{{\it t_{10}}\,{\it t_{43}}^9}\over{{
899C>    \it t_{44}}^9}}+{{{\it t_9}\,{\it t_{43}}^{10}}\over{{
900C>    \it t_{44}}^{10}}}+{{{\it t_4}\,{\it t_{43}}^{11}}\over{{
901C>    \it t_{44}}^{11}}}+{\it t_3}\right)\\\\
902C> \f}
903C>
904C> Code generated with Maxima 5.34.0 [2]
905C> driven by autoxc [3].
906C>
907C> ### References ###
908C>
909C> [1] Y Zhao, DG Truhlar, J.Chem.Phys. 123, 194101 (2006)  , DOI:
910C> <a href="https://doi.org/10.1063/1.2370993 ">
911C> 10.1063/1.2370993 </a>
912C>
913C> [2] Maxima, a computer algebra system,
914C> <a href="http://maxima.sourceforge.net/">
915C> http://maxima.sourceforge.net/</a>
916C>
917C> [3] autoxc, revision 27097 2015-05-08
918C>
919      subroutine nwxcm_x_m06_d2(param,tol_rho,ipol,nq,wght,
920     +rho,rgamma,tau,fnc,Amat,Amat2,Cmat,Cmat2,Mmat,Mmat2)
921c $Id: $
922#ifdef NWXC_QUAD_PREC
923      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
924      integer, parameter :: rk=selected_real_kind(30)
925#else
926      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
927      integer, parameter :: rk=selected_real_kind(15)
928#endif
929#include "nwxc_param.fh"
930      double precision param(*)     !< [Input] Parameters of functional
931      double precision tol_rho      !< [Input] The lower limit on the density
932      integer ipol                  !< [Input] The number of spin channels
933      integer nq                    !< [Input] The number of points
934      double precision wght         !< [Input] The weight of the functional
935      double precision rho(nq,NCOL_RHO)      !< [Input] The density
936      double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density
937                                             !< gradients
938      double precision tau(nq,NCOL_TAU)      !< [Input] The kinetic energy density
939      double precision fnc(nq)      !< [Output] The value of the functional
940c
941c     Sampling Matrices for the XC Kernel
942c
943      double precision Amat(nq,NCOL_AMAT)   !< [Output] The derivative wrt rho
944      double precision Cmat(nq,NCOL_CMAT)   !< [Output] The derivative wrt rgamma
945      double precision Mmat(nq,NCOL_MMAT)   !< [Output] The derivative wrt tau
946c
947c     Sampling Matrices for the XC Kernel
948c
949      double precision Amat2(nq,NCOL_AMAT2)  !< [Output] The 2nd derivative wrt rho
950      double precision Cmat2(nq,NCOL_CMAT2)  !< [Output] The 2nd derivative wrt rgamma
951                                             !< and possibly rho
952      double precision Mmat2(nq,NCOL_MMAT2)  !< [Output] The 2nd derivative wrt tau
953                                             !< and possibly rho
954      integer iq
955      double precision tmp
956      double precision rhoa,rhob
957      double precision gammaaa,gammaab,gammabb
958      double precision taua,taub
959      double precision nwxcm_heaviside
960      external         nwxcm_heaviside
961CDIR$ NOVECTOR
962      do iq = 1, nq
963        if (ipol.eq.1) then
964          rhoa    = 0.5d0*rho(iq,R_T)
965          gammaaa = 0.25d0*rgamma(iq,G_TT)
966          taua    = 0.5d0*tau(iq,T_T)
967          if (rhoa.gt.tol_rho) then
968            t1 = 1/rhoa**2.6666666666666666d+0
969            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
970            t3 = 1/t2
971            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
972            t5 = rhoa**1.3333333333333333d+0
973            t6 = param(18)
974            t7 = rhoa**1.6666666666666669d+0
975            t8 = 9.115599744691192d+0*t7
976            t9 = t8-2.0d+0*taua
977            t10 = t9**11
978            t11 = 2.0d+0*taua+t8
979            t12 = 1/t11**11
980            t13 = param(17)
981            t14 = t9**10
982            t15 = 1/t11**10
983            t16 = param(16)
984            t17 = t9**9
985            t18 = 1/t11**9
986            t19 = param(15)
987            t20 = t9**8
988            t21 = 1/t11**8
989            t22 = param(14)
990            t23 = t9**7
991            t24 = 1/t11**7
992            t25 = param(13)
993            t26 = t9**6
994            t27 = 1/t11**6
995            t28 = param(12)
996            t29 = t9**5
997            t30 = 1/t11**5
998            t31 = param(11)
999            t32 = t9**4
1000            t33 = 1/t11**4
1001            t34 = param(10)
1002            t35 = t9**3
1003            t36 = 1/t11**3
1004            t37 = param(9)
1005            t38 = t9**2
1006            t39 = 1/t11**2
1007            t40 = param(8)
1008            t41 = 1/t11
1009            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
1010     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
1011     2         17*t18+t13*t14*t15+param(7)
1012            t43 = 1/t7
1013            t44 = 2.0d+0*t43*taua-9.11559972d+0
1014            t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0
1015            t46 = 1/t45
1016            t47 = param(4)
1017            t48 = gammaaa**2
1018            t49 = 1/rhoa**5.333333333333333d+0
1019            t50 = 1/t45**2
1020            t51 = param(5)
1021            t52 = param(6)
1022            t53 = t44**2
1023            t54 = param(2)
1024            t55 = param(3)
1025            t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1*
1026     1         t44*t50*t51+t47*t48*t49*t50+param(1)
1027            t57 = rhoa**6.666666666666666d-1
1028            t58 = 1/t11**12
1029            t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039
1030     1         7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+
1031     2         1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+
1032     3         1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577
1033     4         998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33
1034     5         *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706
1035     6         6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3
1036     7         0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974
1037     8         4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t
1038     9         26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368
1039     :         806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t
1040     ;         23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617
1041     <         036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t
1042     =         17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241
1043     >         151986d+2*t12*t13*t14*t57
1044            t60 = rhoa**3.333333333333333d-1
1045            t61 = 1/t2**2
1046            t62 = 1/rhoa**6.333333333333333d+0
1047            t63 = 1/rhoa**3.6666666666666664d+0
1048            t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3*
1049     1         gammaaa*t3*t63
1050            t65 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t63
1051            t66 = 1/t45**3
1052            t67 = -3.3333333333333337d+0*t1*t46*t55*taua-6.6666666666666
1053     1         67d+0*t1*t44*t50*t52*taua-3.3333333333333337d+0*gammaaa*t
1054     2         49*t50*t51*taua-2*t52*t53*t65*t66-2*gammaaa*t1*t44*t51*t6
1055     3         5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammaaa*t1*t5
1056     4         0*t54*t65-2.6666666666666666d+0*gammaaa*t46*t54*t63-2.666
1057     5         6666666666666d+0*gammaaa*t44*t50*t51*t63-5.33333333333333
1058     6         3d+0*t47*t48*t50*t62
1059            t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60
1060            t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm
1061     1         aaa*t49*t61
1062            t70 = 1/rhoa**8
1063            t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66-
1064     1         3.73452d-3*gammaaa*t44*t49*t51*t66-1.86726d-3*t1*t44*t50*
1065     2         t55-1.86726d-3*gammaaa*t49*t50*t54+t1*t46*t54+t1*t44*t50*
1066     3         t51+2*gammaaa*t47*t49*t50
1067            t72 = 1/t5
1068            t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6
1069     1         -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d
1070     2         +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d
1071     3         +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d
1072     4         +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d
1073     5         +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d
1074     6         +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d
1075     7         +1*t12*t13*t14
1076            t74 = 1/rhoa**7
1077            t75 = 1/rhoa**4.333333333333333d+0
1078            t76 = -7.46904d-3*gammaaa*t44*t51*t66*t75-3.73452d-3*gammaaa
1079     1         *t50*t54*t75+2.0d+0*gammaaa*t50*t51*t75-7.46904d-3*t47*t4
1080     2         8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t
1081     3         50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52
1082            t77 = 1/t60
1083            t78 = 1/t11**13
1084            t79 = 1/t57
1085            t80 = 1/t2**3
1086            t81 = 1/rhoa**7.333333333333333d+0
1087            t82 = 1/rhoa**4.666666666666667d+0
1088            t83 = t65**2
1089            t84 = 1/t45**4
1090            t85 = 1.6597866666666666d-2*t63*taua+1.8257653333333332d-2*g
1091     1         ammaaa*t82
1092            t86 = 1/rhoa**9
1093            t87 = 1/rhoa**6
1094            t88 = 1/rhoa**3.3333333333333337d+0
1095            fnc(iq) = (2.0d+0*t46*t5*t56-1.8610514726981994d+0*t4*t42*t5
1096     1         )*wght+fnc(iq)
1097            Amat(iq,D1_RA) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634
1098     1         90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30
1099     2         5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RA)
1100            Cmat(iq,D1_GAA) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71
1101     1         -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GAA)
1102            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
1103            Mmat(iq,D1_TA) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76-
1104     1         9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TA)
1105            Amat2(iq,D2_RA_RA) = (t46*(1.0d+0*t5*(2.2222222222222224d+1*
1106     1         t49*t50*t52*taua**2+2.6666666666666666d+1*t1*t44*t52*t65*
1107     2         t66*taua+1.3333333333333333d+1*gammaaa*t49*t51*t65*t66*ta
1108     3         ua+6.666666666666667d+0*t1*t50*t55*t65*taua+8.88888888888
1109     4         889d+0*t46*t55*t63*taua+1.7777777777777778d+1*t44*t50*t52
1110     5         *t63*taua+2.6666666666666666d+1*gammaaa*t50*t51*t62*taua-
1111     6         2*t52*t53*t66*t85-2*gammaaa*t1*t44*t51*t66*t85-2*t47*t48*
1112     7         t49*t66*t85-t44*t50*t55*t85-gammaaa*t1*t50*t54*t85+6*t52*
1113     8         t53*t83*t84+6*gammaaa*t1*t44*t51*t83*t84+6*t47*t48*t49*t8
1114     9         3*t84+2*t44*t55*t66*t83+2*gammaaa*t1*t54*t66*t83+9.777777
1115     :         777777779d+0*gammaaa*t46*t54*t82+9.777777777777779d+0*gam
1116     ;         maaa*t44*t50*t51*t82+3.377777777777778d+1*t47*t48*t50*t81
1117     <         +1.0666666666666666d+1*gammaaa*t44*t51*t63*t65*t66+2.1333
1118     =         333333333332d+1*t47*t48*t62*t65*t66+5.333333333333333d+0*
1119     >         gammaaa*t50*t54*t63*t65)+4.444444444444444d-1*t56*t79+2.6
1120     ?         666666666666666d+0*t60*t67)-9.305257363490997d-1*t4*t5*(-
1121     @         1.0128444160767991d+1*t39*t40*t77*t9+2.0256888321535982d+
1122     1         1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-1.84
1123     2         6536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*t34*
1124     3         t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.1141288576
1125     4         844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t14*t6
1126     5         *t77+1.0128444160767991d+1*t40*t41*t77-2.0256888321535982
1127     6         d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*t77-
1128     7         3.038533248230397d+1*t33*t34*t35*t77+4.0513776643071964d+
1129     8         1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t77+5
1130     9         .064222080383994d+1*t28*t30*t32*t77-5.064222080383994d+1*
1131     :         t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-6.07
1132     ;         7066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1*t22
1133     <         *t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.10275
1134     =         5328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t18*t1
1135     >         9*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.11559974
1136     ?         4691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t15*t
1137     @         17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.58577400186
1138     1         3949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t5*t6
1139     2         +2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007845d
1140     3         +2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.38490264
1141     4         50902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*t34*
1142     5         t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.769805290180
1143     6         471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t35*t5
1144     7         +4.616342150300784d+3*t28*t30*t35*t5+4.616342150300784d+3
1145     8         *t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6.924
1146     9         513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t24*t
1147     :         28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.694318515
1148     ;         631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25*t26
1149     <         *t5-2.2620076536473846d+4*t21*t22*t26*t5+1.29257580208421
1150     =         96d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t23*t5
1151     >         -2.954458976192502d+4*t18*t19*t23*t5+1.6618831741082823d+
1152     ?         4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5-3.7
1153     @         392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d+4*t
1154     1         13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.6163
1155     2         42150300784d+4*t12*t13*t17*t5)+t50*(-1.0d+0*t5*t56*t85-t6
1156     3         5*t68-1.0d+0*t5*t65*t67-1.3333333333333333d+0*t56*t60*t65
1157     4         )+2.0d+0*t5*t56*t66*t83-9.305257363490997d-1*t42*t5*(3.53
1158     5         1915643569816d-2*gammaaa*t3*t82-3.8948928286386303d-4*t48
1159     6         *t61*t81+1.0369691626335495d-6*gammaaa**3*t80/rhoa**10)-4
1160     7         .1356699393293317d-1*t4*t42*t79-2.481401963597599d+0*t42*
1161     8         t60*t64-1.8610514726981994d+0*t5*t59*t64-2.48140196359759
1162     9         9d+0*t4*t59*t60)*wght+Amat2(iq,D2_RA_RA)
1163            Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB)
1164            Cmat2(iq,D2_RA_GAA) = (t46*(1.0d+0*t5*(1.24484d-2*gammaaa*t5
1165     1         1*t66*t70*taua+2.48968d-2*t44*t49*t52*t66*taua+6.2242d-3*
1166     2         t49*t50*t55*taua-3.3333333333333337d+0*t49*t50*t51*taua+2
1167     3         .9876159999999996d-2*t47*t48*t66*t86+1.120356d-2*t47*t48*
1168     4         t65*t70*t84+1.120356d-2*t1*t52*t53*t65*t84+1.120356d-2*ga
1169     5         mmaaa*t44*t49*t51*t65*t84+3.73452d-3*t1*t44*t55*t65*t66+3
1170     6         .73452d-3*gammaaa*t49*t54*t65*t66-2*t1*t44*t51*t65*t66-4*
1171     7         gammaaa*t47*t49*t65*t66+9.958719999999999d-3*t52*t53*t63*
1172     8         t66+1.9917439999999997d-2*gammaaa*t44*t51*t62*t66-t1*t50*
1173     9         t54*t65+4.9793599999999993d-3*t44*t50*t55*t63-2.666666666
1174     :         6666666d+0*t46*t54*t63-2.6666666666666666d+0*t44*t50*t51*
1175     ;         t63+9.958719999999999d-3*gammaaa*t50*t54*t62-1.0666666666
1176     <         666666d+1*gammaaa*t47*t50*t62)+1.3333333333333333d+0*t60*
1177     =         t71)-9.305257363490997d-1*t42*t5*(-3.8886343598758105d-7*
1178     >         t48*t80*t86-9.632497209735863d-3*t3*t63+1.29829760954621d
1179     ?         -4*gammaaa*t61*t62)+3.73452d-3*t56*t65*t66*t72-1.0d+0*t5*
1180     @         t50*t65*t71-1.2407009817987995d+0*t42*t60*t69-9.305257363
1181     1         490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t68+4.979359999999
1182     2         9993d-3*t50*t56/rhoa**2.3333333333333334d+0)*wght+Cmat2(i
1183     3         q,D2_RA_GAA)
1184            Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB)
1185            Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB)
1186            Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t46*t5*(2.0919959445599998d-5
1187     1         *gammaaa*t44*t51*t70*t84+2.0919959445599998d-5*t49*t52*t5
1188     2         3*t84+2.0919959445599998d-5*t47*t48*t84/rhoa**1.066666666
1189     3         6666666d+1+6.973319815199999d-6*gammaaa*t54*t66*t70-1.493
1190     4         8079999999998d-2*gammaaa*t47*t66*t70+6.973319815199999d-6
1191     5         *t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*t4
1192     6         9*t50*t54+2*t47*t49*t50)-9.305257363490997d-1*t42*t5*(1.4
1193     7         582378849534292d-7*gammaaa*t70*t80-3.2457440238655255d-5*
1194     8         t49*t61)-3.73452d-3*t50*t71*t72+6.973319815199999d-6*t56*
1195     9         t66/rhoa**4)*wght+Cmat2(iq,D2_GAA_GAA)
1196            Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB)
1197            Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB)
1198            Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB)
1199            Mmat2(iq,D2_RA_TA) = (t46*(1.0d+0*t5*(4.97936d-2*t44*t52*t66
1200     1         *t75*taua+1.24484d-2*t50*t55*t75*taua-1.3333333333333333d
1201     2         +1*t50*t52*t75*taua+2.48968d-2*gammaaa*t51*t66*t74*taua+2
1202     3         .240712d-2*gammaaa*t44*t51*t65*t75*t84+2.240712d-2*t47*t4
1203     4         8*t65*t74*t84+2.240712d-2*t43*t52*t53*t65*t84+7.46904d-3*
1204     5         gammaaa*t54*t65*t66*t75-4.0d+0*gammaaa*t51*t65*t66*t75+5.
1205     6         228328d-2*t47*t48*t66*t70+7.46904d-3*t43*t44*t55*t65*t66-
1206     7         8.0d+0*t43*t44*t52*t65*t66+1.24484d-2*t1*t52*t53*t66+3.23
1207     8         6584d-2*gammaaa*t44*t49*t51*t66-2.0d+0*t43*t50*t55*t65+6.
1208     9         2242d-3*t1*t44*t50*t55-3.3333333333333337d+0*t1*t46*t55+1
1209     :         .618292d-2*gammaaa*t49*t50*t54-6.666666666666667d+0*t1*t4
1210     ;         4*t50*t52-8.666666666666666d+0*gammaaa*t49*t50*t51)+1.333
1211     <         3333333333333d+0*t60*t76)-9.305257363490997d-1*t4*t5*(6.0
1212     =         77066496460795d+1*t36*t40*t57*t9-1.8231199489382385d+2*t3
1213     >         4*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-3.34238
1214     ?         6573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*t13*t14
1215     @         *t57*t58-6.077066496460795d+1*t37*t39*t57+1.8231199489382
1216     1         385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t33*t38*t
1217     2         57+3.646239897876477d+2*t30*t34*t35*t57-6.077066496460795
1218     3         d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t32*t57-
1219     4         9.115599744691192d+2*t25*t27*t32*t57+9.115599744691192d+2
1220     5         *t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*t57+1.2
1221     6         76183964256767d+3*t21*t25*t26*t57-1.7015786190090226d+3*t
1222     7         19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t57-2.18
1223     8         7743938725886d+3*t16*t18*t23*t57+2.187743938725886d+3*t15
1224     9         *t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+2.73467
1225     :         9923407357d+3*t12*t16*t17*t57)+7.46904d-3*t56*t65*t66*t77
1226     ;         -1.0d+0*t5*t50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.
1227     <         2407009817987995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73
1228     =         452d-3*t43*t50*t68)*wght+Mmat2(iq,D2_RA_TA)
1229            Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB)
1230            Mmat2(iq,D2_GAA_TA) = (1.0d+0*t46*t5*(4.1839918891199995d-5*
1231     1         t52*t53*t75*t84+4.1839918891199995d-5*gammaaa*t44*t51*t74
1232     2         *t84+4.1839918891199995d-5*t47*t48*t84/rhoa**9.6666666666
1233     3         66666d+0+1.3946639630399998d-5*t44*t55*t66*t75-1.49380799
1234     4         99999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t75-3.
1235     5         73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t50*t5
1236     6         1*t75+1.3946639630399998d-5*gammaaa*t54*t66*t74-7.46904d-
1237     7         3*gammaaa*t51*t66*t74-1.4938079999999998d-2*gammaaa*t47*t
1238     8         66*t74)-3.73452d-3*t50*t71*t77-1.86726d-3*t50*t72*t76-9.3
1239     9         05257363490997d-1*t5*t69*t73+1.3946639630399998d-5*t56*t6
1240     :         6/rhoa**3)*wght+Mmat2(iq,D2_GAA_TA)
1241            Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB)
1242            Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA)
1243            Mmat2(iq,D2_TA_TA) = (-9.305257363490997d-1*t4*t5*(8.0d+0*t3
1244     1         6*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9+5.28d+2*t10*
1245     2         t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+4.4d+2*t13*t1
1246     3         4*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t33*t37*t38+7.
1247     4         2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t30*t34*t35+1.
1248     5         28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*t27*t31*t32+2
1249     6         .0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*t24*t28*t29+2
1250     7         .88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d+2*t21*t25*t2
1251     8         6+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.24d+2*t18*t22
1252     9         *t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23+2.88d+2*t15*
1253     :         t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t20+3.6d+2*t12
1254     ;         *t16*t17+8.0d+2*t12*t13*t17)+1.0d+0*t46*t5*(8.36798377823
1255     <         9999d-5*t52*t53*t84*t88+2.7893279260799997d-5*t44*t55*t66
1256     =         *t88-5.975231999999999d-2*t44*t52*t66*t88-1.4938079999999
1257     >         998d-2*t50*t55*t88+8.0d+0*t50*t52*t88+8.367983778239999d-
1258     ?         5*gammaaa*t44*t51*t84*t87+2.7893279260799997d-5*gammaaa*t
1259     @         54*t66*t87-2.9876159999999996d-2*gammaaa*t51*t66*t87+8.36
1260     1         7983778239999d-5*t47*t48*t84/rhoa**8.666666666666666d+0)-
1261     2         7.46904d-3*t50*t76*t77+2.7893279260799997d-5*t56*t66/rhoa
1262     3         **2)*wght+Mmat2(iq,D2_TA_TA)
1263            Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB)
1264          endif ! rhoa.gt.tol_rho
1265        else  ! ipol.eq.1
1266          rhoa    = rho(iq,R_A)
1267          rhob    = rho(iq,R_B)
1268          gammaaa = rgamma(iq,G_AA)
1269          gammaab = rgamma(iq,G_AB)
1270          gammabb = rgamma(iq,G_BB)
1271          taua    = tau(iq,T_A)
1272          taub    = tau(iq,T_B)
1273          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
1274            t1 = 1/rhoa**2.6666666666666666d+0
1275            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
1276            t3 = 1/t2
1277            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
1278            t5 = rhoa**1.3333333333333333d+0
1279            t6 = param(7)
1280            t7 = param(18)
1281            t8 = rhoa**1.6666666666666669d+0
1282            t9 = 9.115599744691192d+0*t8
1283            t10 = t9-2.0d+0*taua
1284            t11 = t10**11
1285            t12 = 2.0d+0*taua+t9
1286            t13 = 1/t12**11
1287            t14 = param(17)
1288            t15 = t10**10
1289            t16 = 1/t12**10
1290            t17 = param(16)
1291            t18 = t10**9
1292            t19 = 1/t12**9
1293            t20 = param(15)
1294            t21 = t10**8
1295            t22 = 1/t12**8
1296            t23 = param(14)
1297            t24 = t10**7
1298            t25 = 1/t12**7
1299            t26 = param(13)
1300            t27 = t10**6
1301            t28 = 1/t12**6
1302            t29 = param(12)
1303            t30 = t10**5
1304            t31 = 1/t12**5
1305            t32 = param(11)
1306            t33 = t10**4
1307            t34 = 1/t12**4
1308            t35 = param(10)
1309            t36 = t10**3
1310            t37 = 1/t12**3
1311            t38 = param(9)
1312            t39 = t10**2
1313            t40 = 1/t12**2
1314            t41 = param(8)
1315            t42 = 1/t12
1316            t43 = t11*t13*t7+t6+t10*t41*t42+t38*t39*t40+t35*t36*t37+t32*
1317     1         t33*t34+t29*t30*t31+t26*t27*t28+t23*t24*t25+t20*t21*t22+t
1318     2         17*t18*t19+t14*t15*t16
1319            t44 = 1/t8
1320            t45 = 2.0d+0*t44*taua-9.11559972d+0
1321            t46 = 1.86726d-3*t45+1.86726d-3*gammaaa*t1+1.0d+0
1322            t47 = 1/t46
1323            t48 = param(1)
1324            t49 = param(4)
1325            t50 = gammaaa**2
1326            t51 = 1/rhoa**5.333333333333333d+0
1327            t52 = 1/t46**2
1328            t53 = param(5)
1329            t54 = param(6)
1330            t55 = t45**2
1331            t56 = param(2)
1332            t57 = param(3)
1333            t58 = t45*t47*t57+gammaaa*t1*t47*t56+t52*t54*t55+gammaaa*t1*
1334     1         t45*t52*t53+t49*t50*t51*t52+t48
1335            t59 = 1/rhob**2.6666666666666666d+0
1336            t60 = 4.49276922095889d-3*gammabb*t59+1.0d+0
1337            t61 = 1/t60
1338            t62 = 3.6121864536509485d-3*gammabb*t59*t61+1.0d+0
1339            t63 = rhob**1.3333333333333333d+0
1340            t64 = rhob**1.6666666666666669d+0
1341            t65 = 9.115599744691192d+0*t64
1342            t66 = t65-2.0d+0*taub
1343            t67 = t66**11
1344            t68 = 2.0d+0*taub+t65
1345            t69 = 1/t68**11
1346            t70 = t66**10
1347            t71 = 1/t68**10
1348            t72 = t66**9
1349            t73 = 1/t68**9
1350            t74 = t66**8
1351            t75 = 1/t68**8
1352            t76 = t66**7
1353            t77 = 1/t68**7
1354            t78 = t66**6
1355            t79 = 1/t68**6
1356            t80 = t66**5
1357            t81 = 1/t68**5
1358            t82 = t66**4
1359            t83 = 1/t68**4
1360            t84 = t66**3
1361            t85 = 1/t68**3
1362            t86 = t66**2
1363            t87 = 1/t68**2
1364            t88 = 1/t68
1365            t89 = t41*t66*t88+t38*t86*t87+t35*t84*t85+t32*t82*t83+t29*t8
1366     1         0*t81+t26*t78*t79+t23*t76*t77+t20*t74*t75+t17*t72*t73+t14
1367     2         *t70*t71+t67*t69*t7+t6
1368            t90 = 1/t64
1369            t91 = 2.0d+0*t90*taub-9.11559972d+0
1370            t92 = 1.86726d-3*t91+1.86726d-3*gammabb*t59+1.0d+0
1371            t93 = 1/t92
1372            t94 = gammabb**2
1373            t95 = 1/rhob**5.333333333333333d+0
1374            t96 = 1/t92**2
1375            t97 = t91**2
1376            t98 = t54*t96*t97+t49*t94*t95*t96+gammabb*t53*t59*t91*t96+t5
1377     1         7*t91*t93+gammabb*t56*t59*t93+t48
1378            t99 = rhoa**6.666666666666666d-1
1379            t100 = 1/t12**12
1380            t101 = 1.6711932865267184d+2*t13*t15*t7*t99-1.67119328652671
1381     1         84d+2*t100*t11*t7*t99+1.5192666241151986d+1*t41*t42*t99-1
1382     2         .5192666241151986d+1*t10*t40*t41*t99+3.038533248230397d+1
1383     3         *t10*t38*t40*t99-3.038533248230397d+1*t37*t38*t39*t99+4.5
1384     4         577998723455965d+1*t35*t37*t39*t99-4.5577998723455965d+1*
1385     5         t34*t35*t36*t99+6.077066496460795d+1*t32*t34*t36*t99-6.07
1386     6         7066496460795d+1*t31*t32*t33*t99+7.596333120575993d+1*t29
1387     7         *t31*t33*t99-7.596333120575993d+1*t28*t29*t30*t99+9.11559
1388     8         9744691193d+1*t26*t28*t30*t99-9.115599744691193d+1*t25*t2
1389     9         6*t27*t99+1.0634866368806391d+2*t23*t25*t27*t99-1.0634866
1390     :         368806391d+2*t22*t23*t24*t99+1.2154132992921589d+2*t20*t2
1391     ;         2*t24*t99-1.2154132992921589d+2*t19*t20*t21*t99+1.3673399
1392     <         617036788d+2*t17*t19*t21*t99-1.3673399617036788d+2*t16*t1
1393     =         7*t18*t99+1.5192666241151986d+2*t14*t16*t18*t99-1.5192666
1394     >         241151986d+2*t13*t14*t15*t99
1395            t102 = rhoa**3.333333333333333d-1
1396            t103 = 1/t2**2
1397            t104 = 1/rhoa**6.333333333333333d+0
1398            t105 = 1/rhoa**3.6666666666666664d+0
1399            t106 = 4.327658698487368d-5*t103*t104*t50-9.632497209735863d
1400     1         -3*gammaaa*t105*t3
1401            t107 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t105
1402            t108 = 1/t46**3
1403            t109 = -3.3333333333333337d+0*t1*t47*t57*taua-6.666666666666
1404     1         667d+0*t1*t45*t52*t54*taua-3.3333333333333337d+0*gammaaa*
1405     2         t51*t52*t53*taua-t107*t45*t52*t57-gammaaa*t1*t107*t52*t56
1406     3         -2.6666666666666666d+0*gammaaa*t105*t47*t56-2*t107*t108*t
1407     4         54*t55-2.6666666666666666d+0*gammaaa*t105*t45*t52*t53-2*g
1408     5         ammaaa*t1*t107*t108*t45*t53-5.333333333333333d+0*t104*t49
1409     6         *t50*t52-2*t107*t108*t49*t50*t51
1410            t110 = 1.3333333333333333d+0*t102*t58+1.0d+0*t109*t5
1411            t111 = rhob**6.666666666666666d-1
1412            t112 = 1/t68**12
1413            t113 = 1.5192666241151986d+1*t111*t41*t88-1.5192666241151986
1414     1         d+1*t111*t41*t66*t87+3.038533248230397d+1*t111*t38*t66*t8
1415     2         7-3.038533248230397d+1*t111*t38*t85*t86+4.557799872345596
1416     3         5d+1*t111*t35*t85*t86-4.5577998723455965d+1*t111*t35*t83*
1417     4         t84+6.077066496460795d+1*t111*t32*t83*t84-6.0770664964607
1418     5         95d+1*t111*t32*t81*t82+7.596333120575993d+1*t111*t29*t81*
1419     6         t82-7.596333120575993d+1*t111*t29*t79*t80+9.1155997446911
1420     7         93d+1*t111*t26*t79*t80-9.115599744691193d+1*t111*t26*t77*
1421     8         t78+1.0634866368806391d+2*t111*t23*t77*t78-1.063486636880
1422     9         6391d+2*t111*t23*t75*t76+1.2154132992921589d+2*t111*t20*t
1423     :         75*t76-1.2154132992921589d+2*t111*t20*t73*t74+1.367339961
1424     ;         7036788d+2*t111*t17*t73*t74-1.3673399617036788d+2*t111*t1
1425     <         7*t71*t72+1.5192666241151986d+2*t111*t14*t71*t72+1.671193
1426     =         2865267184d+2*t111*t69*t7*t70-1.5192666241151986d+2*t111*
1427     >         t14*t69*t70-1.6711932865267184d+2*t111*t112*t67*t7
1428            t114 = rhob**3.333333333333333d-1
1429            t115 = 1/t60**2
1430            t116 = 1/rhob**6.333333333333333d+0
1431            t117 = 1/rhob**3.6666666666666664d+0
1432            t118 = 4.327658698487368d-5*t115*t116*t94-9.632497209735863d
1433     1         -3*gammabb*t117*t61
1434            t119 = -6.2242d-3*t59*taub-4.9793599999999993d-3*gammabb*t11
1435     1         7
1436            t120 = 1/t92**3
1437            t121 = -3.3333333333333337d+0*gammabb*t53*t95*t96*taub-6.666
1438     1         666666666667d+0*t54*t59*t91*t96*taub-3.3333333333333337d+
1439     2         0*t57*t59*t93*taub-2*t119*t120*t54*t97-5.333333333333333d
1440     3         +0*t116*t49*t94*t96-t119*t57*t91*t96-2.6666666666666666d+
1441     4         0*gammabb*t117*t53*t91*t96-gammabb*t119*t56*t59*t96-2*t11
1442     5         9*t120*t49*t94*t95-2.6666666666666666d+0*gammabb*t117*t56
1443     6         *t93-2*gammabb*t119*t120*t53*t59*t91
1444            t122 = 1.3333333333333333d+0*t114*t98+1.0d+0*t121*t63
1445            t123 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gam
1446     1         maaa*t103*t51
1447            t124 = 1/rhoa**8
1448            t125 = -1.86726d-3*t1*t45*t52*t57-1.86726d-3*gammaaa*t51*t52
1449     1         *t56+t1*t47*t56-3.73452d-3*t1*t108*t54*t55+t1*t45*t52*t53
1450     2         -3.73452d-3*gammaaa*t108*t45*t51*t53+2*gammaaa*t49*t51*t5
1451     3         2-3.73452d-3*t108*t124*t49*t50
1452            t126 = 1/t5
1453            t127 = 3.6121864536509485d-3*t59*t61-1.6228720119327628d-5*g
1454     1         ammabb*t115*t95
1455            t128 = 1/rhob**8
1456            t129 = -3.73452d-3*t120*t54*t59*t97-1.86726d-3*gammabb*t56*t
1457     1         95*t96+2*gammabb*t49*t95*t96-1.86726d-3*t57*t59*t91*t96+t
1458     2         53*t59*t91*t96-3.73452d-3*gammabb*t120*t53*t91*t95-3.7345
1459     3         2d-3*t120*t128*t49*t94+t56*t59*t93
1460            t130 = 1/t63
1461            t131 = -2.2d+1*t13*t15*t7-2.2d+1*t100*t11*t7-2.0d+0*t41*t42-
1462     1         2.0d+0*t10*t40*t41-4.0d+0*t10*t38*t40-4.0d+0*t37*t38*t39-
1463     2         6.0d+0*t35*t37*t39-6.0d+0*t34*t35*t36-8.0d+0*t32*t34*t36-
1464     3         8.0d+0*t31*t32*t33-1.0d+1*t29*t31*t33-1.0d+1*t28*t29*t30-
1465     4         1.2d+1*t26*t28*t30-1.2d+1*t25*t26*t27-1.4d+1*t23*t25*t27-
1466     5         1.4d+1*t22*t23*t24-1.6d+1*t20*t22*t24-1.6d+1*t19*t20*t21-
1467     6         1.8d+1*t17*t19*t21-1.8d+1*t16*t17*t18-2.0d+1*t14*t16*t18-
1468     7         2.0d+1*t13*t14*t15
1469            t132 = 1/rhoa**7
1470            t133 = 1/rhoa**4.333333333333333d+0
1471            t134 = -3.73452d-3*t44*t45*t52*t57+2.0d+0*t44*t47*t57-3.7345
1472     1         2d-3*gammaaa*t133*t52*t56-7.46904d-3*t108*t44*t54*t55+4.0
1473     2         d+0*t44*t45*t52*t54+2.0d+0*gammaaa*t133*t52*t53-7.46904d-
1474     3         3*gammaaa*t108*t133*t45*t53-7.46904d-3*t108*t132*t49*t50
1475            t135 = 1/t102
1476            t136 = -2.0d+0*t41*t88-2.0d+0*t41*t66*t87-4.0d+0*t38*t66*t87
1477     1         -4.0d+0*t38*t85*t86-6.0d+0*t35*t85*t86-6.0d+0*t35*t83*t84
1478     2         -8.0d+0*t32*t83*t84-8.0d+0*t32*t81*t82-1.0d+1*t29*t81*t82
1479     3         -1.0d+1*t29*t79*t80-1.2d+1*t26*t79*t80-1.2d+1*t26*t77*t78
1480     4         -1.4d+1*t23*t77*t78-1.4d+1*t23*t75*t76-1.6d+1*t20*t75*t76
1481     5         -1.6d+1*t20*t73*t74-1.8d+1*t17*t73*t74-1.8d+1*t17*t71*t72
1482     6         -2.0d+1*t14*t71*t72-2.2d+1*t69*t7*t70-2.0d+1*t14*t69*t70-
1483     7         2.2d+1*t112*t67*t7
1484            t137 = 1/rhob**7
1485            t138 = 1/rhob**4.333333333333333d+0
1486            t139 = -7.46904d-3*t120*t54*t90*t97-3.73452d-3*t57*t90*t91*t
1487     1         96+4.0d+0*t54*t90*t91*t96-3.73452d-3*gammabb*t138*t56*t96
1488     2         +2.0d+0*gammabb*t138*t53*t96-7.46904d-3*t120*t137*t49*t94
1489     3         +2.0d+0*t57*t90*t93-7.46904d-3*gammabb*t120*t138*t53*t91
1490            t140 = 1/t114
1491            t141 = 1/t12**13
1492            t142 = 1/t99
1493            t143 = 1/t2**3
1494            t144 = 1/rhoa**7.333333333333333d+0
1495            t145 = 1/rhoa**4.666666666666667d+0
1496            t146 = t107**2
1497            t147 = 1/t46**4
1498            t148 = 1.6597866666666666d-2*t105*taua+1.8257653333333332d-2
1499     1         *gammaaa*t145
1500            t149 = 1/t68**13
1501            t150 = 1/t111
1502            t151 = 1/t60**3
1503            t152 = 1/rhob**7.333333333333333d+0
1504            t153 = 1/rhob**4.666666666666667d+0
1505            t154 = t119**2
1506            t155 = 1/t92**4
1507            t156 = 1.6597866666666666d-2*t117*taub+1.8257653333333332d-2
1508     1         *gammabb*t153
1509            t157 = 1/rhoa**9
1510            t158 = 1/rhob**9
1511            t159 = 1/rhoa**6
1512            t160 = 1/rhoa**3.3333333333333337d+0
1513            t161 = 1/rhob**6
1514            t162 = 1/rhob**3.3333333333333337d+0
1515            fnc(iq) = (1.0d+0*t63*t93*t98-9.305257363490997d-1*t62*t63*t
1516     1         89+1.0d+0*t47*t5*t58-9.305257363490997d-1*t4*t43*t5)*wght
1517     2         +fnc(iq)
1518            Amat(iq,D1_RA) = (-1.0d+0*t107*t5*t52*t58-9.305257363490997d
1519     1         -1*t106*t43*t5-9.305257363490997d-1*t101*t4*t5+t110*t47-1
1520     2         .2407009817987995d+0*t102*t4*t43)*wght+Amat(iq,D1_RA)
1521            Amat(iq,D1_RB) = (-1.0d+0*t119*t63*t96*t98+t122*t93-9.305257
1522     1         363490997d-1*t118*t63*t89-1.2407009817987995d+0*t114*t62*
1523     2         t89-9.305257363490997d-1*t113*t62*t63)*wght+Amat(iq,D1_RB
1524     3         )
1525            Cmat(iq,D1_GAA) = (-1.86726d-3*t126*t52*t58+1.0d+0*t125*t47*
1526     1         t5-9.305257363490997d-1*t123*t43*t5)*wght+Cmat(iq,D1_GAA)
1527            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
1528            Cmat(iq,D1_GBB) = (-1.86726d-3*t130*t96*t98+1.0d+0*t129*t63*
1529     1         t93-9.305257363490997d-1*t127*t63*t89)*wght+Cmat(iq,D1_GB
1530     2         B)
1531            Mmat(iq,D1_TA) = (-3.73452d-3*t135*t52*t58+1.0d+0*t134*t47*t
1532     1         5-9.305257363490997d-1*t131*t4*t5)*wght+Mmat(iq,D1_TA)
1533            Mmat(iq,D1_TB) = (-3.73452d-3*t140*t96*t98+1.0d+0*t139*t63*t
1534     1         93-9.305257363490997d-1*t136*t62*t63)*wght+Mmat(iq,D1_TB)
1535            Amat2(iq,D2_RA_RA) = (t47*(1.0d+0*t5*(2.2222222222222224d+1*
1536     1         t51*t52*t54*taua**2+6.666666666666667d+0*t1*t107*t52*t57*
1537     2         taua+8.88888888888889d+0*t105*t47*t57*taua+1.777777777777
1538     3         7778d+1*t105*t45*t52*t54*taua+2.6666666666666666d+1*t1*t1
1539     4         07*t108*t45*t54*taua+2.6666666666666666d+1*gammaaa*t104*t
1540     5         52*t53*taua+1.3333333333333333d+1*gammaaa*t107*t108*t51*t
1541     6         53*taua-t148*t45*t52*t57+2*t108*t146*t45*t57-gammaaa*t1*t
1542     7         148*t52*t56+5.333333333333333d+0*gammaaa*t105*t107*t52*t5
1543     8         6+9.777777777777779d+0*gammaaa*t145*t47*t56+2*gammaaa*t1*
1544     9         t108*t146*t56-2*t108*t148*t54*t55+6*t146*t147*t54*t55+9.7
1545     :         77777777777779d+0*gammaaa*t145*t45*t52*t53-2*gammaaa*t1*t
1546     ;         108*t148*t45*t53+6*gammaaa*t1*t146*t147*t45*t53+1.0666666
1547     <         666666666d+1*gammaaa*t105*t107*t108*t45*t53+3.37777777777
1548     =         7778d+1*t144*t49*t50*t52-2*t108*t148*t49*t50*t51+6*t146*t
1549     >         147*t49*t50*t51+2.1333333333333332d+1*t104*t107*t108*t49*
1550     ?         t50)+4.444444444444444d-1*t142*t58+2.6666666666666666d+0*
1551     @         t102*t109)-9.305257363490997d-1*t4*t5*(2.5389881826654315
1552     1         d+4*t13*t18*t5*t7-5.585774001863949d+4*t100*t15*t5*t7+3.0
1553     2         46785819198518d+4*t11*t141*t5*t7+1.1141288576844789d+2*t1
1554     3         3*t135*t15*t7-1.1141288576844789d+2*t100*t11*t135*t7-4.61
1555     4         63421503007845d+2*t40*t41*t5+4.6163421503007845d+2*t10*t3
1556     5         7*t41*t5+4.6163421503007845d+2*t38*t40*t5+1.3849026450902
1557     6         355d+3*t34*t38*t39*t5-4.1547079352707067d+3*t34*t35*t39*t
1558     7         5+2.769805290180471d+3*t32*t34*t39*t5-1.846536860120314d+
1559     8         3*t10*t37*t38*t5+1.3849026450902355d+3*t10*t35*t37*t5+2.7
1560     9         69805290180471d+3*t31*t35*t36*t5-7.386147440481255d+3*t31
1561     :         *t32*t36*t5+4.616342150300784d+3*t29*t31*t36*t5+4.6163421
1562     ;         50300784d+3*t28*t32*t33*t5-1.154085537575196d+4*t28*t29*t
1563     <         33*t5+6.924513225451178d+3*t26*t28*t33*t5+6.9245132254511
1564     =         78d+3*t25*t29*t30*t5-1.661883174108283d+4*t25*t26*t30*t5+
1565     >         9.694318515631648d+3*t23*t25*t30*t5+9.694318515631648d+3*
1566     ?         t22*t26*t27*t5-2.2620076536473846d+4*t22*t23*t27*t5+1.292
1567     @         5758020842196d+4*t20*t22*t27*t5+1.2925758020842196d+4*t19
1568     1         *t23*t24*t5-2.954458976192502d+4*t19*t20*t24*t5+1.6618831
1569     2         741082823d+4*t17*t19*t24*t5+1.6618831741082823d+4*t16*t20
1570     3         *t21*t5-3.7392371417436354d+4*t16*t17*t21*t5+2.0773539676
1571     4         353528d+4*t14*t16*t21*t5+2.0773539676353528d+4*t13*t17*t1
1572     5         8*t5-4.616342150300784d+4*t13*t14*t18*t5+2.53898818266543
1573     6         15d+4*t100*t14*t15*t5+1.0128444160767991d+1*t135*t41*t42-
1574     7         1.0128444160767991d+1*t10*t135*t40*t41+2.0256888321535982
1575     8         d+1*t10*t135*t38*t40-2.0256888321535982d+1*t135*t37*t38*t
1576     9         39+3.038533248230397d+1*t135*t35*t37*t39-3.03853324823039
1577     :         7d+1*t135*t34*t35*t36+4.0513776643071964d+1*t135*t32*t34*
1578     ;         t36-4.0513776643071964d+1*t135*t31*t32*t33+5.064222080383
1579     <         994d+1*t135*t29*t31*t33-5.064222080383994d+1*t135*t28*t29
1580     =         *t30+6.077066496460795d+1*t135*t26*t28*t30-6.077066496460
1581     >         795d+1*t135*t25*t26*t27+7.089910912537593d+1*t135*t23*t25
1582     ?         *t27-7.089910912537593d+1*t135*t22*t23*t24+8.102755328614
1583     @         393d+1*t135*t20*t22*t24-8.102755328614393d+1*t135*t19*t20
1584     1         *t21+9.115599744691191d+1*t135*t17*t19*t21-9.115599744691
1585     2         191d+1*t135*t16*t17*t18+1.012844416076799d+2*t135*t14*t16
1586     3         *t18-1.012844416076799d+2*t13*t135*t14*t15)+t52*(-1.0d+0*
1587     4         t148*t5*t58-1.3333333333333333d+0*t102*t107*t58-1.0d+0*t1
1588     5         07*t109*t5-t107*t110)+2.0d+0*t108*t146*t5*t58-9.305257363
1589     6         490997d-1*t43*t5*(-3.8948928286386303d-4*t103*t144*t50+3.
1590     7         531915643569816d-2*gammaaa*t145*t3+1.0369691626335495d-6*
1591     8         gammaaa**3*t143/rhoa**10)-1.8610514726981994d+0*t101*t106
1592     9         *t5-4.1356699393293317d-1*t142*t4*t43-2.481401963597599d+
1593     :         0*t102*t106*t43-2.481401963597599d+0*t101*t102*t4)*wght+A
1594     ;         mat2(iq,D2_RA_RA)
1595            Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB)
1596            Amat2(iq,D2_RB_RB) = (t93*(1.0d+0*t63*(2.2222222222222224d+1
1597     1         *t54*t95*t96*taub**2+1.7777777777777778d+1*t117*t54*t91*t
1598     2         96*taub+6.666666666666667d+0*t119*t57*t59*t96*taub+2.6666
1599     3         666666666666d+1*gammabb*t116*t53*t96*taub+1.3333333333333
1600     4         333d+1*gammabb*t119*t120*t53*t95*taub+8.88888888888889d+0
1601     5         *t117*t57*t93*taub+2.6666666666666666d+1*t119*t120*t54*t5
1602     6         9*t91*taub-2*t120*t156*t54*t97+6*t154*t155*t54*t97+3.3777
1603     7         77777777778d+1*t152*t49*t94*t96-t156*t57*t91*t96+9.777777
1604     8         777777779d+0*gammabb*t153*t53*t91*t96-gammabb*t156*t56*t5
1605     9         9*t96+5.333333333333333d+0*gammabb*t117*t119*t56*t96-2*t1
1606     :         20*t156*t49*t94*t95+6*t154*t155*t49*t94*t95+2.13333333333
1607     ;         33332d+1*t116*t119*t120*t49*t94+9.777777777777779d+0*gamm
1608     <         abb*t153*t56*t93-2*gammabb*t120*t156*t53*t59*t91+6*gammab
1609     =         b*t154*t155*t53*t59*t91+2*t120*t154*t57*t91+1.06666666666
1610     >         66666d+1*gammabb*t117*t119*t120*t53*t91+2*gammabb*t120*t1
1611     ?         54*t56*t59)+4.444444444444444d-1*t150*t98+2.6666666666666
1612     @         666d+0*t114*t121)+t96*(-1.0d+0*t156*t63*t98-1.33333333333
1613     1         33333d+0*t114*t119*t98-1.0d+0*t119*t121*t63-t119*t122)+2.
1614     2         0d+0*t120*t154*t63*t98-9.305257363490997d-1*t63*t89*(-3.8
1615     3         948928286386303d-4*t115*t152*t94+3.531915643569816d-2*gam
1616     4         mabb*t153*t61+1.0369691626335495d-6*gammabb**3*t151/rhob*
1617     5         *10)-4.1356699393293317d-1*t150*t62*t89-2.481401963597599
1618     6         d+0*t114*t118*t89-9.305257363490997d-1*t62*t63*(1.0128444
1619     7         160767991d+1*t140*t41*t88-1.0128444160767991d+1*t140*t41*
1620     8         t66*t87+2.0256888321535982d+1*t140*t38*t66*t87-4.61634215
1621     9         03007845d+2*t41*t63*t87+4.6163421503007845d+2*t38*t63*t87
1622     :         -2.0256888321535982d+1*t140*t38*t85*t86+3.038533248230397
1623     ;         d+1*t140*t35*t85*t86+1.3849026450902355d+3*t38*t63*t83*t8
1624     <         6-4.1547079352707067d+3*t35*t63*t83*t86+2.769805290180471
1625     =         d+3*t32*t63*t83*t86+4.6163421503007845d+2*t41*t63*t66*t85
1626     >         -1.846536860120314d+3*t38*t63*t66*t85+1.3849026450902355d
1627     ?         +3*t35*t63*t66*t85-3.038533248230397d+1*t140*t35*t83*t84+
1628     @         4.0513776643071964d+1*t140*t32*t83*t84+2.769805290180471d
1629     1         +3*t35*t63*t81*t84-7.386147440481255d+3*t32*t63*t81*t84+4
1630     2         .616342150300784d+3*t29*t63*t81*t84-4.0513776643071964d+1
1631     3         *t140*t32*t81*t82+5.064222080383994d+1*t140*t29*t81*t82+4
1632     4         .616342150300784d+3*t32*t63*t79*t82-1.154085537575196d+4*
1633     5         t29*t63*t79*t82+6.924513225451178d+3*t26*t63*t79*t82-5.06
1634     6         4222080383994d+1*t140*t29*t79*t80+6.077066496460795d+1*t1
1635     7         40*t26*t79*t80+6.924513225451178d+3*t29*t63*t77*t80-1.661
1636     8         883174108283d+4*t26*t63*t77*t80+9.694318515631648d+3*t23*
1637     9         t63*t77*t80-6.077066496460795d+1*t140*t26*t77*t78+7.08991
1638     :         0912537593d+1*t140*t23*t77*t78+9.694318515631648d+3*t26*t
1639     ;         63*t75*t78-2.2620076536473846d+4*t23*t63*t75*t78+1.292575
1640     <         8020842196d+4*t20*t63*t75*t78-7.089910912537593d+1*t140*t
1641     =         23*t75*t76+8.102755328614393d+1*t140*t20*t75*t76+1.292575
1642     >         8020842196d+4*t23*t63*t73*t76-2.954458976192502d+4*t20*t6
1643     ?         3*t73*t76+1.6618831741082823d+4*t17*t63*t73*t76-8.1027553
1644     @         28614393d+1*t140*t20*t73*t74+9.115599744691191d+1*t140*t1
1645     1         7*t73*t74+1.6618831741082823d+4*t20*t63*t71*t74-3.7392371
1646     2         417436354d+4*t17*t63*t71*t74+2.0773539676353528d+4*t14*t6
1647     3         3*t71*t74-9.115599744691191d+1*t140*t17*t71*t72+1.0128444
1648     4         16076799d+2*t14*t140*t71*t72+2.5389881826654315d+4*t63*t6
1649     5         9*t7*t72+2.0773539676353528d+4*t17*t63*t69*t72-4.61634215
1650     6         0300784d+4*t14*t63*t69*t72+1.1141288576844789d+2*t140*t69
1651     7         *t7*t70-5.585774001863949d+4*t112*t63*t7*t70-1.0128444160
1652     8         76799d+2*t14*t140*t69*t70+2.5389881826654315d+4*t112*t14*
1653     9         t63*t70+3.046785819198518d+4*t149*t63*t67*t7-1.1141288576
1654     :         844789d+2*t112*t140*t67*t7)-1.8610514726981994d+0*t113*t1
1655     ;         18*t63-2.481401963597599d+0*t113*t114*t62)*wght+Amat2(iq,
1656     <         D2_RB_RB)
1657            Cmat2(iq,D2_RA_GAA) = (t47*(1.0d+0*t5*(6.2242d-3*t51*t52*t57
1658     1         *taua+2.48968d-2*t108*t45*t51*t54*taua-3.3333333333333337
1659     2         d+0*t51*t52*t53*taua+1.24484d-2*gammaaa*t108*t124*t53*tau
1660     3         a+4.9793599999999993d-3*t105*t45*t52*t57+3.73452d-3*t1*t1
1661     4         07*t108*t45*t57-t1*t107*t52*t56+9.958719999999999d-3*gamm
1662     5         aaa*t104*t52*t56+3.73452d-3*gammaaa*t107*t108*t51*t56-2.6
1663     6         666666666666666d+0*t105*t47*t56+1.120356d-2*t1*t107*t147*
1664     7         t54*t55+9.958719999999999d-3*t105*t108*t54*t55-2.66666666
1665     8         66666666d+0*t105*t45*t52*t53+1.120356d-2*gammaaa*t107*t14
1666     9         7*t45*t51*t53-2*t1*t107*t108*t45*t53+1.9917439999999997d-
1667     :         2*gammaaa*t104*t108*t45*t53-1.0666666666666666d+1*gammaaa
1668     ;         *t104*t49*t52-4*gammaaa*t107*t108*t49*t51+2.9876159999999
1669     <         996d-2*t108*t157*t49*t50+1.120356d-2*t107*t124*t147*t49*t
1670     =         50)+1.3333333333333333d+0*t102*t125)+4.9793599999999993d-
1671     >         3*t52*t58/rhoa**2.3333333333333334d+0+3.73452d-3*t107*t10
1672     ?         8*t126*t58-1.0d+0*t107*t125*t5*t52-1.86726d-3*t1*t110*t52
1673     @         -9.305257363490997d-1*t43*t5*(-3.8886343598758105d-7*t143
1674     1         *t157*t50-9.632497209735863d-3*t105*t3+1.29829760954621d-
1675     2         4*gammaaa*t103*t104)-9.305257363490997d-1*t101*t123*t5-1.
1676     3         2407009817987995d+0*t102*t123*t43)*wght+Cmat2(iq,D2_RA_GA
1677     4         A)
1678            Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB)
1679            Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB)
1680            Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA)
1681            Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB)
1682            Cmat2(iq,D2_RB_GBB) = (t93*(1.0d+0*t63*(6.2242d-3*t57*t95*t9
1683     1         6*taub-3.3333333333333337d+0*t53*t95*t96*taub+2.48968d-2*
1684     2         t120*t54*t91*t95*taub+1.24484d-2*gammabb*t120*t128*t53*ta
1685     3         ub+1.120356d-2*t119*t155*t54*t59*t97+9.958719999999999d-3
1686     4         *t117*t120*t54*t97+4.9793599999999993d-3*t117*t57*t91*t96
1687     5         -2.6666666666666666d+0*t117*t53*t91*t96-t119*t56*t59*t96+
1688     6         9.958719999999999d-3*gammabb*t116*t56*t96-1.0666666666666
1689     7         666d+1*gammabb*t116*t49*t96+1.120356d-2*gammabb*t119*t155
1690     8         *t53*t91*t95+3.73452d-3*gammabb*t119*t120*t56*t95-4*gamma
1691     9         bb*t119*t120*t49*t95+2.9876159999999996d-2*t120*t158*t49*
1692     :         t94+1.120356d-2*t119*t128*t155*t49*t94-2.6666666666666666
1693     ;         d+0*t117*t56*t93+3.73452d-3*t119*t120*t57*t59*t91-2*t119*
1694     <         t120*t53*t59*t91+1.9917439999999997d-2*gammabb*t116*t120*
1695     =         t53*t91)+1.3333333333333333d+0*t114*t129)+4.9793599999999
1696     >         993d-3*t96*t98/rhob**2.3333333333333334d+0+3.73452d-3*t11
1697     ?         9*t120*t130*t98-1.0d+0*t119*t129*t63*t96-1.86726d-3*t122*
1698     @         t59*t96-9.305257363490997d-1*t63*t89*(-3.8886343598758105
1699     1         d-7*t151*t158*t94-9.632497209735863d-3*t117*t61+1.2982976
1700     2         0954621d-4*gammabb*t115*t116)-1.2407009817987995d+0*t114*
1701     3         t127*t89-9.305257363490997d-1*t113*t127*t63)*wght+Cmat2(i
1702     4         q,D2_RB_GBB)
1703            Cmat2(iq,D2_GAA_GAA) = (6.973319815199999d-6*t108*t58/rhoa**
1704     1         4+1.0d+0*t47*t5*(6.973319815199999d-6*t108*t45*t51*t57-3.
1705     2         73452d-3*t51*t52*t56+6.973319815199999d-6*gammaaa*t108*t1
1706     3         24*t56+2.0919959445599998d-5*t147*t51*t54*t55-7.46904d-3*
1707     4         t108*t45*t51*t53+2.0919959445599998d-5*gammaaa*t124*t147*
1708     5         t45*t53+2*t49*t51*t52+2.0919959445599998d-5*t147*t49*t50/
1709     6         rhoa**1.0666666666666666d+1-1.4938079999999998d-2*gammaaa
1710     7         *t108*t124*t49)-3.73452d-3*t125*t126*t52-9.30525736349099
1711     8         7d-1*t43*t5*(1.4582378849534292d-7*gammaaa*t124*t143-3.24
1712     9         57440238655255d-5*t103*t51))*wght+Cmat2(iq,D2_GAA_GAA)
1713            Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB)
1714            Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB)
1715            Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB)
1716            Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB)
1717            Cmat2(iq,D2_GBB_GBB) = (6.973319815199999d-6*t120*t98/rhob**
1718     1         4+1.0d+0*t63*t93*(2.0919959445599998d-5*t155*t54*t95*t97-
1719     2         3.73452d-3*t56*t95*t96+2*t49*t95*t96+6.973319815199999d-6
1720     3         *t120*t57*t91*t95-7.46904d-3*t120*t53*t91*t95+2.091995944
1721     4         5599998d-5*t155*t49*t94/rhob**1.0666666666666666d+1+2.091
1722     5         9959445599998d-5*gammabb*t128*t155*t53*t91+6.973319815199
1723     6         999d-6*gammabb*t120*t128*t56-1.4938079999999998d-2*gammab
1724     7         b*t120*t128*t49)-3.73452d-3*t129*t130*t96-9.3052573634909
1725     8         97d-1*t63*t89*(1.4582378849534292d-7*gammabb*t128*t151-3.
1726     9         2457440238655255d-5*t115*t95))*wght+Cmat2(iq,D2_GBB_GBB)
1727            Mmat2(iq,D2_RA_TA) = (t47*(1.0d+0*t5*(1.24484d-2*t133*t52*t5
1728     1         7*taua-1.3333333333333333d+1*t133*t52*t54*taua+4.97936d-2
1729     2         *t108*t133*t45*t54*taua+2.48968d-2*gammaaa*t108*t132*t53*
1730     3         taua+6.2242d-3*t1*t45*t52*t57-2.0d+0*t107*t44*t52*t57-3.3
1731     4         333333333333337d+0*t1*t47*t57+7.46904d-3*t107*t108*t44*t4
1732     5         5*t57+1.618292d-2*gammaaa*t51*t52*t56+7.46904d-3*gammaaa*
1733     6         t107*t108*t133*t56+2.240712d-2*t107*t147*t44*t54*t55+1.24
1734     7         484d-2*t1*t108*t54*t55-6.666666666666667d+0*t1*t45*t52*t5
1735     8         4-8.0d+0*t107*t108*t44*t45*t54-8.666666666666666d+0*gamma
1736     9         aa*t51*t52*t53+3.236584d-2*gammaaa*t108*t45*t51*t53+2.240
1737     :         712d-2*gammaaa*t107*t133*t147*t45*t53-4.0d+0*gammaaa*t107
1738     ;         *t108*t133*t53+2.240712d-2*t107*t132*t147*t49*t50+5.22832
1739     <         8d-2*t108*t124*t49*t50)+1.3333333333333333d+0*t102*t134)-
1740     =         9.305257363490997d-1*t4*t5*(-3.342386573053437d+3*t13*t18
1741     >         *t7*t99+4.0108638876641245d+3*t11*t141*t7*t99+6.077066496
1742     ?         460795d+1*t10*t37*t41*t99-6.077066496460795d+1*t38*t40*t9
1743     @         9+1.8231199489382385d+2*t34*t38*t39*t99-3.646239897876477
1744     1         d+2*t32*t34*t39*t99-1.8231199489382385d+2*t10*t35*t37*t99
1745     2         +3.646239897876477d+2*t31*t35*t36*t99-6.077066496460795d+
1746     3         2*t29*t31*t36*t99+6.077066496460795d+2*t28*t32*t33*t99-9.
1747     4         115599744691192d+2*t26*t28*t33*t99+9.115599744691192d+2*t
1748     5         25*t29*t30*t99-1.276183964256767d+3*t23*t25*t30*t99+1.276
1749     6         183964256767d+3*t22*t26*t27*t99-1.7015786190090226d+3*t20
1750     7         *t22*t27*t99+1.7015786190090226d+3*t19*t23*t24*t99-2.1877
1751     8         43938725886d+3*t17*t19*t24*t99+2.187743938725886d+3*t16*t
1752     9         20*t21*t99-2.734679923407357d+3*t14*t16*t21*t99+2.7346799
1753     :         23407357d+3*t13*t17*t18*t99+3.342386573053437d+3*t100*t14
1754     ;         *t15*t99)+6.2242d-3*t126*t52*t58+7.46904d-3*t107*t108*t13
1755     <         5*t58-1.0d+0*t107*t134*t5*t52-3.73452d-3*t110*t44*t52-9.3
1756     =         05257363490997d-1*t106*t131*t5-1.2407009817987995d+0*t102
1757     >         *t131*t4)*wght+Mmat2(iq,D2_RA_TA)
1758            Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB)
1759            Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA)
1760            Mmat2(iq,D2_RB_TB) = (t93*(1.0d+0*t63*(1.24484d-2*t138*t57*t
1761     1         96*taub-1.3333333333333333d+1*t138*t54*t96*taub+4.97936d-
1762     2         2*t120*t138*t54*t91*taub+2.48968d-2*gammabb*t120*t137*t53
1763     3         *taub+2.240712d-2*t119*t155*t54*t90*t97+1.24484d-2*t120*t
1764     4         54*t59*t97+1.618292d-2*gammabb*t56*t95*t96-8.666666666666
1765     5         666d+0*gammabb*t53*t95*t96+6.2242d-3*t57*t59*t91*t96-6.66
1766     6         6666666666667d+0*t54*t59*t91*t96-2.0d+0*t119*t57*t90*t96+
1767     7         3.236584d-2*gammabb*t120*t53*t91*t95+2.240712d-2*t119*t13
1768     8         7*t155*t49*t94+5.228328d-2*t120*t128*t49*t94-3.3333333333
1769     9         333337d+0*t57*t59*t93+7.46904d-3*t119*t120*t57*t90*t91-8.
1770     :         0d+0*t119*t120*t54*t90*t91+2.240712d-2*gammabb*t119*t138*
1771     ;         t155*t53*t91+7.46904d-3*gammabb*t119*t120*t138*t56-4.0d+0
1772     <         *gammabb*t119*t120*t138*t53)+1.3333333333333333d+0*t114*t
1773     =         139)+6.2242d-3*t130*t96*t98+7.46904d-3*t119*t120*t140*t98
1774     >         -3.73452d-3*t122*t90*t96-1.0d+0*t119*t139*t63*t96-9.30525
1775     ?         7363490997d-1*t62*t63*(-6.077066496460795d+1*t111*t38*t87
1776     @         +1.8231199489382385d+2*t111*t38*t83*t86-3.646239897876477
1777     1         d+2*t111*t32*t83*t86+6.077066496460795d+1*t111*t41*t66*t8
1778     2         5-1.8231199489382385d+2*t111*t35*t66*t85+3.64623989787647
1779     3         7d+2*t111*t35*t81*t84-6.077066496460795d+2*t111*t29*t81*t
1780     4         84+6.077066496460795d+2*t111*t32*t79*t82-9.11559974469119
1781     5         2d+2*t111*t26*t79*t82+9.115599744691192d+2*t111*t29*t77*t
1782     6         80-1.276183964256767d+3*t111*t23*t77*t80+1.27618396425676
1783     7         7d+3*t111*t26*t75*t78-1.7015786190090226d+3*t111*t20*t75*
1784     8         t78+1.7015786190090226d+3*t111*t23*t73*t76-2.187743938725
1785     9         886d+3*t111*t17*t73*t76+2.187743938725886d+3*t111*t20*t71
1786     :         *t74-2.734679923407357d+3*t111*t14*t71*t74-3.342386573053
1787     ;         437d+3*t111*t69*t7*t72+2.734679923407357d+3*t111*t17*t69*
1788     <         t72+3.342386573053437d+3*t111*t112*t14*t70+4.010863887664
1789     =         1245d+3*t111*t149*t67*t7)-9.305257363490997d-1*t118*t136*
1790     >         t63-1.2407009817987995d+0*t114*t136*t62)*wght+Mmat2(iq,D2
1791     ?         _RB_TB)
1792            Mmat2(iq,D2_GAA_TA) = (1.3946639630399998d-5*t108*t58/rhoa**
1793     1         3+1.0d+0*t47*t5*(-3.73452d-3*t133*t52*t57+1.3946639630399
1794     2         998d-5*t108*t133*t45*t57-3.73452d-3*t133*t52*t56+1.394663
1795     3         9630399998d-5*gammaaa*t108*t132*t56+4.1839918891199995d-5
1796     4         *t133*t147*t54*t55-1.4938079999999998d-2*t108*t133*t45*t5
1797     5         4+2.0d+0*t133*t52*t53+4.1839918891199995d-5*gammaaa*t132*
1798     6         t147*t45*t53-7.46904d-3*t108*t133*t45*t53-7.46904d-3*gamm
1799     7         aaa*t108*t132*t53+4.1839918891199995d-5*t147*t49*t50/rhoa
1800     8         **9.666666666666666d+0-1.4938079999999998d-2*gammaaa*t108
1801     9         *t132*t49)-3.73452d-3*t125*t135*t52-1.86726d-3*t126*t134*
1802     :         t52-9.305257363490997d-1*t123*t131*t5)*wght+Mmat2(iq,D2_G
1803     ;         AA_TA)
1804            Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB)
1805            Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA)
1806            Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB)
1807            Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA)
1808            Mmat2(iq,D2_GBB_TB) = (1.3946639630399998d-5*t120*t98/rhob**
1809     1         3+1.0d+0*t63*t93*(4.1839918891199995d-5*t138*t155*t54*t97
1810     2         -3.73452d-3*t138*t57*t96-3.73452d-3*t138*t56*t96+2.0d+0*t
1811     3         138*t53*t96+4.1839918891199995d-5*t155*t49*t94/rhob**9.66
1812     4         6666666666666d+0+1.3946639630399998d-5*t120*t138*t57*t91-
1813     5         1.4938079999999998d-2*t120*t138*t54*t91+4.183991889119999
1814     6         5d-5*gammabb*t137*t155*t53*t91-7.46904d-3*t120*t138*t53*t
1815     7         91+1.3946639630399998d-5*gammabb*t120*t137*t56-7.46904d-3
1816     8         *gammabb*t120*t137*t53-1.4938079999999998d-2*gammabb*t120
1817     9         *t137*t49)-3.73452d-3*t129*t140*t96-1.86726d-3*t130*t139*
1818     :         t96-9.305257363490997d-1*t127*t136*t63)*wght+Mmat2(iq,D2_
1819     ;         GBB_TB)
1820            Mmat2(iq,D2_TA_TA) = (-9.305257363490997d-1*t4*t5*(4.4d+2*t1
1821     1         3*t18*t7+9.68d+2*t100*t15*t7+5.28d+2*t11*t141*t7+8.0d+0*t
1822     2         40*t41+8.0d+0*t10*t37*t41+8.0d+0*t38*t40+2.4d+1*t34*t38*t
1823     3         39+7.2d+1*t34*t35*t39+4.8d+1*t32*t34*t39+3.2d+1*t10*t37*t
1824     4         38+2.4d+1*t10*t35*t37+4.8d+1*t31*t35*t36+1.28d+2*t31*t32*
1825     5         t36+8.0d+1*t29*t31*t36+8.0d+1*t28*t32*t33+2.0d+2*t28*t29*
1826     6         t33+1.2d+2*t26*t28*t33+1.2d+2*t25*t29*t30+2.88d+2*t25*t26
1827     7         *t30+1.68d+2*t23*t25*t30+1.68d+2*t22*t26*t27+3.92d+2*t22*
1828     8         t23*t27+2.24d+2*t20*t22*t27+2.24d+2*t19*t23*t24+5.12d+2*t
1829     9         19*t20*t24+2.88d+2*t17*t19*t24+2.88d+2*t16*t20*t21+6.48d+
1830     :         2*t16*t17*t21+3.6d+2*t14*t16*t21+3.6d+2*t13*t17*t18+8.0d+
1831     ;         2*t13*t14*t18+4.4d+2*t100*t14*t15)+2.7893279260799997d-5*
1832     <         t108*t58/rhoa**2+1.0d+0*t47*t5*(-1.4938079999999998d-2*t1
1833     =         60*t52*t57+2.7893279260799997d-5*t108*t160*t45*t57+2.7893
1834     >         279260799997d-5*gammaaa*t108*t159*t56+8.367983778239999d-
1835     ?         5*t147*t160*t54*t55+8.0d+0*t160*t52*t54-5.975231999999999
1836     @         d-2*t108*t160*t45*t54+8.367983778239999d-5*gammaaa*t147*t
1837     1         159*t45*t53-2.9876159999999996d-2*gammaaa*t108*t159*t53+8
1838     2         .367983778239999d-5*t147*t49*t50/rhoa**8.666666666666666d
1839     3         +0)-7.46904d-3*t134*t135*t52)*wght+Mmat2(iq,D2_TA_TA)
1840            Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB)
1841            Mmat2(iq,D2_TB_TB) = (2.7893279260799997d-5*t120*t98/rhob**2
1842     1         +1.0d+0*t63*t93*(8.367983778239999d-5*t155*t162*t54*t97-1
1843     2         .4938079999999998d-2*t162*t57*t96+8.0d+0*t162*t54*t96+8.3
1844     3         67983778239999d-5*t155*t49*t94/rhob**8.666666666666666d+0
1845     4         +2.7893279260799997d-5*t120*t162*t57*t91-5.97523199999999
1846     5         9d-2*t120*t162*t54*t91+8.367983778239999d-5*gammabb*t155*
1847     6         t161*t53*t91+2.7893279260799997d-5*gammabb*t120*t161*t56-
1848     7         2.9876159999999996d-2*gammabb*t120*t161*t53)-7.46904d-3*t
1849     8         139*t140*t96-9.305257363490997d-1*t62*t63*(8.0d+0*t41*t87
1850     9         +8.0d+0*t38*t87+2.4d+1*t38*t83*t86+7.2d+1*t35*t83*t86+4.8
1851     :         d+1*t32*t83*t86+8.0d+0*t41*t66*t85+3.2d+1*t38*t66*t85+2.4
1852     ;         d+1*t35*t66*t85+4.8d+1*t35*t81*t84+1.28d+2*t32*t81*t84+8.
1853     <         0d+1*t29*t81*t84+8.0d+1*t32*t79*t82+2.0d+2*t29*t79*t82+1.
1854     =         2d+2*t26*t79*t82+1.2d+2*t29*t77*t80+2.88d+2*t26*t77*t80+1
1855     >         .68d+2*t23*t77*t80+1.68d+2*t26*t75*t78+3.92d+2*t23*t75*t7
1856     ?         8+2.24d+2*t20*t75*t78+2.24d+2*t23*t73*t76+5.12d+2*t20*t73
1857     @         *t76+2.88d+2*t17*t73*t76+2.88d+2*t20*t71*t74+6.48d+2*t17*
1858     1         t71*t74+3.6d+2*t14*t71*t74+4.4d+2*t69*t7*t72+3.6d+2*t17*t
1859     2         69*t72+8.0d+2*t14*t69*t72+9.68d+2*t112*t7*t70+4.4d+2*t112
1860     3         *t14*t70+5.28d+2*t149*t67*t7))*wght+Mmat2(iq,D2_TB_TB)
1861          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
1862            t1 = 1/rhoa**2.6666666666666666d+0
1863            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
1864            t3 = 1/t2
1865            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
1866            t5 = rhoa**1.3333333333333333d+0
1867            t6 = param(18)
1868            t7 = rhoa**1.6666666666666669d+0
1869            t8 = 9.115599744691192d+0*t7
1870            t9 = t8-2.0d+0*taua
1871            t10 = t9**11
1872            t11 = 2.0d+0*taua+t8
1873            t12 = 1/t11**11
1874            t13 = param(17)
1875            t14 = t9**10
1876            t15 = 1/t11**10
1877            t16 = param(16)
1878            t17 = t9**9
1879            t18 = 1/t11**9
1880            t19 = param(15)
1881            t20 = t9**8
1882            t21 = 1/t11**8
1883            t22 = param(14)
1884            t23 = t9**7
1885            t24 = 1/t11**7
1886            t25 = param(13)
1887            t26 = t9**6
1888            t27 = 1/t11**6
1889            t28 = param(12)
1890            t29 = t9**5
1891            t30 = 1/t11**5
1892            t31 = param(11)
1893            t32 = t9**4
1894            t33 = 1/t11**4
1895            t34 = param(10)
1896            t35 = t9**3
1897            t36 = 1/t11**3
1898            t37 = param(9)
1899            t38 = t9**2
1900            t39 = 1/t11**2
1901            t40 = param(8)
1902            t41 = 1/t11
1903            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
1904     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
1905     2         17*t18+t13*t14*t15+param(7)
1906            t43 = 1/t7
1907            t44 = 2.0d+0*t43*taua-9.11559972d+0
1908            t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0
1909            t46 = 1/t45
1910            t47 = param(4)
1911            t48 = gammaaa**2
1912            t49 = 1/rhoa**5.333333333333333d+0
1913            t50 = 1/t45**2
1914            t51 = param(5)
1915            t52 = param(6)
1916            t53 = t44**2
1917            t54 = param(2)
1918            t55 = param(3)
1919            t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1*
1920     1         t44*t50*t51+t47*t48*t49*t50+param(1)
1921            t57 = rhoa**6.666666666666666d-1
1922            t58 = 1/t11**12
1923            t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039
1924     1         7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+
1925     2         1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+
1926     3         1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577
1927     4         998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33
1928     5         *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706
1929     6         6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3
1930     7         0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974
1931     8         4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t
1932     9         26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368
1933     :         806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t
1934     ;         23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617
1935     <         036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t
1936     =         17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241
1937     >         151986d+2*t12*t13*t14*t57
1938            t60 = rhoa**3.333333333333333d-1
1939            t61 = 1/t2**2
1940            t62 = 1/rhoa**6.333333333333333d+0
1941            t63 = 1/rhoa**3.6666666666666664d+0
1942            t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3*
1943     1         gammaaa*t3*t63
1944            t65 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t63
1945            t66 = 1/t45**3
1946            t67 = -3.3333333333333337d+0*t1*t46*t55*taua-6.6666666666666
1947     1         67d+0*t1*t44*t50*t52*taua-3.3333333333333337d+0*gammaaa*t
1948     2         49*t50*t51*taua-2*t52*t53*t65*t66-2*gammaaa*t1*t44*t51*t6
1949     3         5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammaaa*t1*t5
1950     4         0*t54*t65-2.6666666666666666d+0*gammaaa*t46*t54*t63-2.666
1951     5         6666666666666d+0*gammaaa*t44*t50*t51*t63-5.33333333333333
1952     6         3d+0*t47*t48*t50*t62
1953            t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60
1954            t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm
1955     1         aaa*t49*t61
1956            t70 = 1/rhoa**8
1957            t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66-
1958     1         3.73452d-3*gammaaa*t44*t49*t51*t66-1.86726d-3*t1*t44*t50*
1959     2         t55-1.86726d-3*gammaaa*t49*t50*t54+t1*t46*t54+t1*t44*t50*
1960     3         t51+2*gammaaa*t47*t49*t50
1961            t72 = 1/t5
1962            t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6
1963     1         -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d
1964     2         +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d
1965     3         +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d
1966     4         +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d
1967     5         +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d
1968     6         +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d
1969     7         +1*t12*t13*t14
1970            t74 = 1/rhoa**7
1971            t75 = 1/rhoa**4.333333333333333d+0
1972            t76 = -7.46904d-3*gammaaa*t44*t51*t66*t75-3.73452d-3*gammaaa
1973     1         *t50*t54*t75+2.0d+0*gammaaa*t50*t51*t75-7.46904d-3*t47*t4
1974     2         8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t
1975     3         50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52
1976            t77 = 1/t60
1977            t78 = 1/t11**13
1978            t79 = 1/t57
1979            t80 = 1/t2**3
1980            t81 = 1/rhoa**7.333333333333333d+0
1981            t82 = 1/rhoa**4.666666666666667d+0
1982            t83 = t65**2
1983            t84 = 1/t45**4
1984            t85 = 1.6597866666666666d-2*t63*taua+1.8257653333333332d-2*g
1985     1         ammaaa*t82
1986            t86 = 1/rhoa**9
1987            t87 = 1/rhoa**6
1988            t88 = 1/rhoa**3.3333333333333337d+0
1989            fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5)
1990     1         *wght+fnc(iq)
1991            Amat(iq,D1_RA) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634
1992     1         90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30
1993     2         5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RA)
1994            Cmat(iq,D1_GAA) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71
1995     1         -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GAA)
1996            Mmat(iq,D1_TA) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76-
1997     1         9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TA)
1998            Mmat(iq,D1_TB) = Mmat(iq,D1_TB)
1999            Amat2(iq,D2_RA_RA) = (t46*(1.0d+0*t5*(2.2222222222222224d+1*
2000     1         t49*t50*t52*taua**2+2.6666666666666666d+1*t1*t44*t52*t65*
2001     2         t66*taua+1.3333333333333333d+1*gammaaa*t49*t51*t65*t66*ta
2002     3         ua+6.666666666666667d+0*t1*t50*t55*t65*taua+8.88888888888
2003     4         889d+0*t46*t55*t63*taua+1.7777777777777778d+1*t44*t50*t52
2004     5         *t63*taua+2.6666666666666666d+1*gammaaa*t50*t51*t62*taua-
2005     6         2*t52*t53*t66*t85-2*gammaaa*t1*t44*t51*t66*t85-2*t47*t48*
2006     7         t49*t66*t85-t44*t50*t55*t85-gammaaa*t1*t50*t54*t85+6*t52*
2007     8         t53*t83*t84+6*gammaaa*t1*t44*t51*t83*t84+6*t47*t48*t49*t8
2008     9         3*t84+2*t44*t55*t66*t83+2*gammaaa*t1*t54*t66*t83+9.777777
2009     :         777777779d+0*gammaaa*t46*t54*t82+9.777777777777779d+0*gam
2010     ;         maaa*t44*t50*t51*t82+3.377777777777778d+1*t47*t48*t50*t81
2011     <         +1.0666666666666666d+1*gammaaa*t44*t51*t63*t65*t66+2.1333
2012     =         333333333332d+1*t47*t48*t62*t65*t66+5.333333333333333d+0*
2013     >         gammaaa*t50*t54*t63*t65)+4.444444444444444d-1*t56*t79+2.6
2014     ?         666666666666666d+0*t60*t67)-9.305257363490997d-1*t4*t5*(-
2015     @         1.0128444160767991d+1*t39*t40*t77*t9+2.0256888321535982d+
2016     1         1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-1.84
2017     2         6536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*t34*
2018     3         t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.1141288576
2019     4         844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t14*t6
2020     5         *t77+1.0128444160767991d+1*t40*t41*t77-2.0256888321535982
2021     6         d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*t77-
2022     7         3.038533248230397d+1*t33*t34*t35*t77+4.0513776643071964d+
2023     8         1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t77+5
2024     9         .064222080383994d+1*t28*t30*t32*t77-5.064222080383994d+1*
2025     :         t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-6.07
2026     ;         7066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1*t22
2027     <         *t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.10275
2028     =         5328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t18*t1
2029     >         9*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.11559974
2030     ?         4691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t15*t
2031     @         17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.58577400186
2032     1         3949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t5*t6
2033     2         +2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007845d
2034     3         +2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.38490264
2035     4         50902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*t34*
2036     5         t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.769805290180
2037     6         471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t35*t5
2038     7         +4.616342150300784d+3*t28*t30*t35*t5+4.616342150300784d+3
2039     8         *t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6.924
2040     9         513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t24*t
2041     :         28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.694318515
2042     ;         631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25*t26
2043     <         *t5-2.2620076536473846d+4*t21*t22*t26*t5+1.29257580208421
2044     =         96d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t23*t5
2045     >         -2.954458976192502d+4*t18*t19*t23*t5+1.6618831741082823d+
2046     ?         4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5-3.7
2047     @         392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d+4*t
2048     1         13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.6163
2049     2         42150300784d+4*t12*t13*t17*t5)+t50*(-1.0d+0*t5*t56*t85-t6
2050     3         5*t68-1.0d+0*t5*t65*t67-1.3333333333333333d+0*t56*t60*t65
2051     4         )+2.0d+0*t5*t56*t66*t83-9.305257363490997d-1*t42*t5*(3.53
2052     5         1915643569816d-2*gammaaa*t3*t82-3.8948928286386303d-4*t48
2053     6         *t61*t81+1.0369691626335495d-6*gammaaa**3*t80/rhoa**10)-4
2054     7         .1356699393293317d-1*t4*t42*t79-2.481401963597599d+0*t42*
2055     8         t60*t64-1.8610514726981994d+0*t5*t59*t64-2.48140196359759
2056     9         9d+0*t4*t59*t60)*wght+Amat2(iq,D2_RA_RA)
2057            Cmat2(iq,D2_RA_GAA) = (t46*(1.0d+0*t5*(1.24484d-2*gammaaa*t5
2058     1         1*t66*t70*taua+2.48968d-2*t44*t49*t52*t66*taua+6.2242d-3*
2059     2         t49*t50*t55*taua-3.3333333333333337d+0*t49*t50*t51*taua+2
2060     3         .9876159999999996d-2*t47*t48*t66*t86+1.120356d-2*t47*t48*
2061     4         t65*t70*t84+1.120356d-2*t1*t52*t53*t65*t84+1.120356d-2*ga
2062     5         mmaaa*t44*t49*t51*t65*t84+3.73452d-3*t1*t44*t55*t65*t66+3
2063     6         .73452d-3*gammaaa*t49*t54*t65*t66-2*t1*t44*t51*t65*t66-4*
2064     7         gammaaa*t47*t49*t65*t66+9.958719999999999d-3*t52*t53*t63*
2065     8         t66+1.9917439999999997d-2*gammaaa*t44*t51*t62*t66-t1*t50*
2066     9         t54*t65+4.9793599999999993d-3*t44*t50*t55*t63-2.666666666
2067     :         6666666d+0*t46*t54*t63-2.6666666666666666d+0*t44*t50*t51*
2068     ;         t63+9.958719999999999d-3*gammaaa*t50*t54*t62-1.0666666666
2069     <         666666d+1*gammaaa*t47*t50*t62)+1.3333333333333333d+0*t60*
2070     =         t71)-9.305257363490997d-1*t42*t5*(-3.8886343598758105d-7*
2071     >         t48*t80*t86-9.632497209735863d-3*t3*t63+1.29829760954621d
2072     ?         -4*gammaaa*t61*t62)+3.73452d-3*t56*t65*t66*t72-1.0d+0*t5*
2073     @         t50*t65*t71-1.2407009817987995d+0*t42*t60*t69-9.305257363
2074     1         490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t68+4.979359999999
2075     2         9993d-3*t50*t56/rhoa**2.3333333333333334d+0)*wght+Cmat2(i
2076     3         q,D2_RA_GAA)
2077            Cmat2(iq,D2_GAA_GAA) = (1.0d+0*t46*t5*(2.0919959445599998d-5
2078     1         *gammaaa*t44*t51*t70*t84+2.0919959445599998d-5*t49*t52*t5
2079     2         3*t84+2.0919959445599998d-5*t47*t48*t84/rhoa**1.066666666
2080     3         6666666d+1+6.973319815199999d-6*gammaaa*t54*t66*t70-1.493
2081     4         8079999999998d-2*gammaaa*t47*t66*t70+6.973319815199999d-6
2082     5         *t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*t4
2083     6         9*t50*t54+2*t47*t49*t50)-9.305257363490997d-1*t42*t5*(1.4
2084     7         582378849534292d-7*gammaaa*t70*t80-3.2457440238655255d-5*
2085     8         t49*t61)-3.73452d-3*t50*t71*t72+6.973319815199999d-6*t56*
2086     9         t66/rhoa**4)*wght+Cmat2(iq,D2_GAA_GAA)
2087            Mmat2(iq,D2_RA_TA) = (t46*(1.0d+0*t5*(4.97936d-2*t44*t52*t66
2088     1         *t75*taua+1.24484d-2*t50*t55*t75*taua-1.3333333333333333d
2089     2         +1*t50*t52*t75*taua+2.48968d-2*gammaaa*t51*t66*t74*taua+2
2090     3         .240712d-2*gammaaa*t44*t51*t65*t75*t84+2.240712d-2*t47*t4
2091     4         8*t65*t74*t84+2.240712d-2*t43*t52*t53*t65*t84+7.46904d-3*
2092     5         gammaaa*t54*t65*t66*t75-4.0d+0*gammaaa*t51*t65*t66*t75+5.
2093     6         228328d-2*t47*t48*t66*t70+7.46904d-3*t43*t44*t55*t65*t66-
2094     7         8.0d+0*t43*t44*t52*t65*t66+1.24484d-2*t1*t52*t53*t66+3.23
2095     8         6584d-2*gammaaa*t44*t49*t51*t66-2.0d+0*t43*t50*t55*t65+6.
2096     9         2242d-3*t1*t44*t50*t55-3.3333333333333337d+0*t1*t46*t55+1
2097     :         .618292d-2*gammaaa*t49*t50*t54-6.666666666666667d+0*t1*t4
2098     ;         4*t50*t52-8.666666666666666d+0*gammaaa*t49*t50*t51)+1.333
2099     <         3333333333333d+0*t60*t76)-9.305257363490997d-1*t4*t5*(6.0
2100     =         77066496460795d+1*t36*t40*t57*t9-1.8231199489382385d+2*t3
2101     >         4*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-3.34238
2102     ?         6573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*t13*t14
2103     @         *t57*t58-6.077066496460795d+1*t37*t39*t57+1.8231199489382
2104     1         385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t33*t38*t
2105     2         57+3.646239897876477d+2*t30*t34*t35*t57-6.077066496460795
2106     3         d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t32*t57-
2107     4         9.115599744691192d+2*t25*t27*t32*t57+9.115599744691192d+2
2108     5         *t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*t57+1.2
2109     6         76183964256767d+3*t21*t25*t26*t57-1.7015786190090226d+3*t
2110     7         19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t57-2.18
2111     8         7743938725886d+3*t16*t18*t23*t57+2.187743938725886d+3*t15
2112     9         *t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+2.73467
2113     :         9923407357d+3*t12*t16*t17*t57)+7.46904d-3*t56*t65*t66*t77
2114     ;         -1.0d+0*t5*t50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.
2115     <         2407009817987995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73
2116     =         452d-3*t43*t50*t68)*wght+Mmat2(iq,D2_RA_TA)
2117            Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB)
2118            Mmat2(iq,D2_GAA_TA) = (1.0d+0*t46*t5*(4.1839918891199995d-5*
2119     1         t52*t53*t75*t84+4.1839918891199995d-5*gammaaa*t44*t51*t74
2120     2         *t84+4.1839918891199995d-5*t47*t48*t84/rhoa**9.6666666666
2121     3         66666d+0+1.3946639630399998d-5*t44*t55*t66*t75-1.49380799
2122     4         99999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t75-3.
2123     5         73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t50*t5
2124     6         1*t75+1.3946639630399998d-5*gammaaa*t54*t66*t74-7.46904d-
2125     7         3*gammaaa*t51*t66*t74-1.4938079999999998d-2*gammaaa*t47*t
2126     8         66*t74)-3.73452d-3*t50*t71*t77-1.86726d-3*t50*t72*t76-9.3
2127     9         05257363490997d-1*t5*t69*t73+1.3946639630399998d-5*t56*t6
2128     :         6/rhoa**3)*wght+Mmat2(iq,D2_GAA_TA)
2129            Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB)
2130            Mmat2(iq,D2_TA_TA) = (-9.305257363490997d-1*t4*t5*(8.0d+0*t3
2131     1         6*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9+5.28d+2*t10*
2132     2         t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+4.4d+2*t13*t1
2133     3         4*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t33*t37*t38+7.
2134     4         2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t30*t34*t35+1.
2135     5         28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*t27*t31*t32+2
2136     6         .0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*t24*t28*t29+2
2137     7         .88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d+2*t21*t25*t2
2138     8         6+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.24d+2*t18*t22
2139     9         *t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23+2.88d+2*t15*
2140     :         t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t20+3.6d+2*t12
2141     ;         *t16*t17+8.0d+2*t12*t13*t17)+1.0d+0*t46*t5*(8.36798377823
2142     <         9999d-5*t52*t53*t84*t88+2.7893279260799997d-5*t44*t55*t66
2143     =         *t88-5.975231999999999d-2*t44*t52*t66*t88-1.4938079999999
2144     >         998d-2*t50*t55*t88+8.0d+0*t50*t52*t88+8.367983778239999d-
2145     ?         5*gammaaa*t44*t51*t84*t87+2.7893279260799997d-5*gammaaa*t
2146     @         54*t66*t87-2.9876159999999996d-2*gammaaa*t51*t66*t87+8.36
2147     1         7983778239999d-5*t47*t48*t84/rhoa**8.666666666666666d+0)-
2148     2         7.46904d-3*t50*t76*t77+2.7893279260799997d-5*t56*t66/rhoa
2149     3         **2)*wght+Mmat2(iq,D2_TA_TA)
2150            Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB)
2151            Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB)
2152          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
2153            t1 = 1/rhob**2.6666666666666666d+0
2154            t2 = 4.49276922095889d-3*gammabb*t1+1.0d+0
2155            t3 = 1/t2
2156            t4 = 3.6121864536509485d-3*gammabb*t1*t3+1.0d+0
2157            t5 = rhob**1.3333333333333333d+0
2158            t6 = param(18)
2159            t7 = rhob**1.6666666666666669d+0
2160            t8 = 9.115599744691192d+0*t7
2161            t9 = t8-2.0d+0*taub
2162            t10 = t9**11
2163            t11 = 2.0d+0*taub+t8
2164            t12 = 1/t11**11
2165            t13 = param(17)
2166            t14 = t9**10
2167            t15 = 1/t11**10
2168            t16 = param(16)
2169            t17 = t9**9
2170            t18 = 1/t11**9
2171            t19 = param(15)
2172            t20 = t9**8
2173            t21 = 1/t11**8
2174            t22 = param(14)
2175            t23 = t9**7
2176            t24 = 1/t11**7
2177            t25 = param(13)
2178            t26 = t9**6
2179            t27 = 1/t11**6
2180            t28 = param(12)
2181            t29 = t9**5
2182            t30 = 1/t11**5
2183            t31 = param(11)
2184            t32 = t9**4
2185            t33 = 1/t11**4
2186            t34 = param(10)
2187            t35 = t9**3
2188            t36 = 1/t11**3
2189            t37 = param(9)
2190            t38 = t9**2
2191            t39 = 1/t11**2
2192            t40 = param(8)
2193            t41 = 1/t11
2194            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
2195     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
2196     2         17*t18+t13*t14*t15+param(7)
2197            t43 = 1/t7
2198            t44 = 2.0d+0*t43*taub-9.11559972d+0
2199            t45 = 1.86726d-3*t44+1.86726d-3*gammabb*t1+1.0d+0
2200            t46 = 1/t45
2201            t47 = param(4)
2202            t48 = gammabb**2
2203            t49 = 1/rhob**5.333333333333333d+0
2204            t50 = 1/t45**2
2205            t51 = param(5)
2206            t52 = param(6)
2207            t53 = t44**2
2208            t54 = param(2)
2209            t55 = param(3)
2210            t56 = t44*t46*t55+gammabb*t1*t46*t54+t50*t52*t53+gammabb*t1*
2211     1         t44*t50*t51+t47*t48*t49*t50+param(1)
2212            t57 = rhob**6.666666666666666d-1
2213            t58 = 1/t11**12
2214            t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039
2215     1         7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+
2216     2         1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+
2217     3         1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577
2218     4         998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33
2219     5         *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706
2220     6         6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3
2221     7         0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974
2222     8         4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t
2223     9         26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368
2224     :         806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t
2225     ;         23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617
2226     <         036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t
2227     =         17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241
2228     >         151986d+2*t12*t13*t14*t57
2229            t60 = rhob**3.333333333333333d-1
2230            t61 = 1/t2**2
2231            t62 = 1/rhob**6.333333333333333d+0
2232            t63 = 1/rhob**3.6666666666666664d+0
2233            t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3*
2234     1         gammabb*t3*t63
2235            t65 = -6.2242d-3*t1*taub-4.9793599999999993d-3*gammabb*t63
2236            t66 = 1/t45**3
2237            t67 = -3.3333333333333337d+0*t1*t46*t55*taub-6.6666666666666
2238     1         67d+0*t1*t44*t50*t52*taub-3.3333333333333337d+0*gammabb*t
2239     2         49*t50*t51*taub-2*t52*t53*t65*t66-2*gammabb*t1*t44*t51*t6
2240     3         5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammabb*t1*t5
2241     4         0*t54*t65-2.6666666666666666d+0*gammabb*t46*t54*t63-2.666
2242     5         6666666666666d+0*gammabb*t44*t50*t51*t63-5.33333333333333
2243     6         3d+0*t47*t48*t50*t62
2244            t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60
2245            t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm
2246     1         abb*t49*t61
2247            t70 = 1/rhob**8
2248            t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66-
2249     1         3.73452d-3*gammabb*t44*t49*t51*t66-1.86726d-3*t1*t44*t50*
2250     2         t55-1.86726d-3*gammabb*t49*t50*t54+t1*t46*t54+t1*t44*t50*
2251     3         t51+2*gammabb*t47*t49*t50
2252            t72 = 1/t5
2253            t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6
2254     1         -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d
2255     2         +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d
2256     3         +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d
2257     4         +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d
2258     5         +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d
2259     6         +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d
2260     7         +1*t12*t13*t14
2261            t74 = 1/rhob**7
2262            t75 = 1/rhob**4.333333333333333d+0
2263            t76 = -7.46904d-3*gammabb*t44*t51*t66*t75-3.73452d-3*gammabb
2264     1         *t50*t54*t75+2.0d+0*gammabb*t50*t51*t75-7.46904d-3*t47*t4
2265     2         8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t
2266     3         50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52
2267            t77 = 1/t60
2268            t78 = 1/t11**13
2269            t79 = 1/t57
2270            t80 = 1/t2**3
2271            t81 = 1/rhob**7.333333333333333d+0
2272            t82 = 1/rhob**4.666666666666667d+0
2273            t83 = t65**2
2274            t84 = 1/t45**4
2275            t85 = 1.6597866666666666d-2*t63*taub+1.8257653333333332d-2*g
2276     1         ammabb*t82
2277            t86 = 1/rhob**9
2278            t87 = 1/rhob**6
2279            t88 = 1/rhob**3.3333333333333337d+0
2280            fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5)
2281     1         *wght+fnc(iq)
2282            Amat(iq,D1_RB) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634
2283     1         90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30
2284     2         5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RB)
2285            Cmat(iq,D1_GBB) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71
2286     1         -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GBB)
2287            Mmat(iq,D1_TB) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76-
2288     1         9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TB)
2289            Mmat(iq,D1_TA) = Mmat(iq,D1_TA)
2290            Amat2(iq,D2_RB_RB) = (t46*(1.0d+0*t5*(2.2222222222222224d+1*
2291     1         t49*t50*t52*taub**2+2.6666666666666666d+1*t1*t44*t52*t65*
2292     2         t66*taub+1.3333333333333333d+1*gammabb*t49*t51*t65*t66*ta
2293     3         ub+6.666666666666667d+0*t1*t50*t55*t65*taub+8.88888888888
2294     4         889d+0*t46*t55*t63*taub+1.7777777777777778d+1*t44*t50*t52
2295     5         *t63*taub+2.6666666666666666d+1*gammabb*t50*t51*t62*taub-
2296     6         2*t52*t53*t66*t85-2*gammabb*t1*t44*t51*t66*t85-2*t47*t48*
2297     7         t49*t66*t85-t44*t50*t55*t85-gammabb*t1*t50*t54*t85+6*t52*
2298     8         t53*t83*t84+6*gammabb*t1*t44*t51*t83*t84+6*t47*t48*t49*t8
2299     9         3*t84+2*t44*t55*t66*t83+2*gammabb*t1*t54*t66*t83+9.777777
2300     :         777777779d+0*gammabb*t46*t54*t82+9.777777777777779d+0*gam
2301     ;         mabb*t44*t50*t51*t82+3.377777777777778d+1*t47*t48*t50*t81
2302     <         +1.0666666666666666d+1*gammabb*t44*t51*t63*t65*t66+2.1333
2303     =         333333333332d+1*t47*t48*t62*t65*t66+5.333333333333333d+0*
2304     >         gammabb*t50*t54*t63*t65)+4.444444444444444d-1*t56*t79+2.6
2305     ?         666666666666666d+0*t60*t67)-9.305257363490997d-1*t4*t5*(-
2306     @         1.0128444160767991d+1*t39*t40*t77*t9+2.0256888321535982d+
2307     1         1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-1.84
2308     2         6536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*t34*
2309     3         t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.1141288576
2310     4         844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t14*t6
2311     5         *t77+1.0128444160767991d+1*t40*t41*t77-2.0256888321535982
2312     6         d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*t77-
2313     7         3.038533248230397d+1*t33*t34*t35*t77+4.0513776643071964d+
2314     8         1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t77+5
2315     9         .064222080383994d+1*t28*t30*t32*t77-5.064222080383994d+1*
2316     :         t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-6.07
2317     ;         7066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1*t22
2318     <         *t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.10275
2319     =         5328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t18*t1
2320     >         9*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.11559974
2321     ?         4691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t15*t
2322     @         17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.58577400186
2323     1         3949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t5*t6
2324     2         +2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007845d
2325     3         +2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.38490264
2326     4         50902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*t34*
2327     5         t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.769805290180
2328     6         471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t35*t5
2329     7         +4.616342150300784d+3*t28*t30*t35*t5+4.616342150300784d+3
2330     8         *t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6.924
2331     9         513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t24*t
2332     :         28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.694318515
2333     ;         631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25*t26
2334     <         *t5-2.2620076536473846d+4*t21*t22*t26*t5+1.29257580208421
2335     =         96d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t23*t5
2336     >         -2.954458976192502d+4*t18*t19*t23*t5+1.6618831741082823d+
2337     ?         4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5-3.7
2338     @         392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d+4*t
2339     1         13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.6163
2340     2         42150300784d+4*t12*t13*t17*t5)+t50*(-1.0d+0*t5*t56*t85-t6
2341     3         5*t68-1.0d+0*t5*t65*t67-1.3333333333333333d+0*t56*t60*t65
2342     4         )+2.0d+0*t5*t56*t66*t83-9.305257363490997d-1*t42*t5*(3.53
2343     5         1915643569816d-2*gammabb*t3*t82-3.8948928286386303d-4*t48
2344     6         *t61*t81+1.0369691626335495d-6*gammabb**3*t80/rhob**10)-4
2345     7         .1356699393293317d-1*t4*t42*t79-2.481401963597599d+0*t42*
2346     8         t60*t64-1.8610514726981994d+0*t5*t59*t64-2.48140196359759
2347     9         9d+0*t4*t59*t60)*wght+Amat2(iq,D2_RB_RB)
2348            Cmat2(iq,D2_RB_GBB) = (t46*(1.0d+0*t5*(1.24484d-2*gammabb*t5
2349     1         1*t66*t70*taub+2.48968d-2*t44*t49*t52*t66*taub+6.2242d-3*
2350     2         t49*t50*t55*taub-3.3333333333333337d+0*t49*t50*t51*taub+2
2351     3         .9876159999999996d-2*t47*t48*t66*t86+1.120356d-2*t47*t48*
2352     4         t65*t70*t84+1.120356d-2*t1*t52*t53*t65*t84+1.120356d-2*ga
2353     5         mmabb*t44*t49*t51*t65*t84+3.73452d-3*t1*t44*t55*t65*t66+3
2354     6         .73452d-3*gammabb*t49*t54*t65*t66-2*t1*t44*t51*t65*t66-4*
2355     7         gammabb*t47*t49*t65*t66+9.958719999999999d-3*t52*t53*t63*
2356     8         t66+1.9917439999999997d-2*gammabb*t44*t51*t62*t66-t1*t50*
2357     9         t54*t65+4.9793599999999993d-3*t44*t50*t55*t63-2.666666666
2358     :         6666666d+0*t46*t54*t63-2.6666666666666666d+0*t44*t50*t51*
2359     ;         t63+9.958719999999999d-3*gammabb*t50*t54*t62-1.0666666666
2360     <         666666d+1*gammabb*t47*t50*t62)+1.3333333333333333d+0*t60*
2361     =         t71)-9.305257363490997d-1*t42*t5*(-3.8886343598758105d-7*
2362     >         t48*t80*t86-9.632497209735863d-3*t3*t63+1.29829760954621d
2363     ?         -4*gammabb*t61*t62)+3.73452d-3*t56*t65*t66*t72-1.0d+0*t5*
2364     @         t50*t65*t71-1.2407009817987995d+0*t42*t60*t69-9.305257363
2365     1         490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t68+4.979359999999
2366     2         9993d-3*t50*t56/rhob**2.3333333333333334d+0)*wght+Cmat2(i
2367     3         q,D2_RB_GBB)
2368            Cmat2(iq,D2_GBB_GBB) = (1.0d+0*t46*t5*(2.0919959445599998d-5
2369     1         *gammabb*t44*t51*t70*t84+2.0919959445599998d-5*t49*t52*t5
2370     2         3*t84+2.0919959445599998d-5*t47*t48*t84/rhob**1.066666666
2371     3         6666666d+1+6.973319815199999d-6*gammabb*t54*t66*t70-1.493
2372     4         8079999999998d-2*gammabb*t47*t66*t70+6.973319815199999d-6
2373     5         *t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*t4
2374     6         9*t50*t54+2*t47*t49*t50)-9.305257363490997d-1*t42*t5*(1.4
2375     7         582378849534292d-7*gammabb*t70*t80-3.2457440238655255d-5*
2376     8         t49*t61)-3.73452d-3*t50*t71*t72+6.973319815199999d-6*t56*
2377     9         t66/rhob**4)*wght+Cmat2(iq,D2_GBB_GBB)
2378            Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA)
2379            Mmat2(iq,D2_RB_TB) = (t46*(1.0d+0*t5*(4.97936d-2*t44*t52*t66
2380     1         *t75*taub+1.24484d-2*t50*t55*t75*taub-1.3333333333333333d
2381     2         +1*t50*t52*t75*taub+2.48968d-2*gammabb*t51*t66*t74*taub+2
2382     3         .240712d-2*gammabb*t44*t51*t65*t75*t84+2.240712d-2*t47*t4
2383     4         8*t65*t74*t84+2.240712d-2*t43*t52*t53*t65*t84+7.46904d-3*
2384     5         gammabb*t54*t65*t66*t75-4.0d+0*gammabb*t51*t65*t66*t75+5.
2385     6         228328d-2*t47*t48*t66*t70+7.46904d-3*t43*t44*t55*t65*t66-
2386     7         8.0d+0*t43*t44*t52*t65*t66+1.24484d-2*t1*t52*t53*t66+3.23
2387     8         6584d-2*gammabb*t44*t49*t51*t66-2.0d+0*t43*t50*t55*t65+6.
2388     9         2242d-3*t1*t44*t50*t55-3.3333333333333337d+0*t1*t46*t55+1
2389     :         .618292d-2*gammabb*t49*t50*t54-6.666666666666667d+0*t1*t4
2390     ;         4*t50*t52-8.666666666666666d+0*gammabb*t49*t50*t51)+1.333
2391     <         3333333333333d+0*t60*t76)-9.305257363490997d-1*t4*t5*(6.0
2392     =         77066496460795d+1*t36*t40*t57*t9-1.8231199489382385d+2*t3
2393     >         4*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-3.34238
2394     ?         6573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*t13*t14
2395     @         *t57*t58-6.077066496460795d+1*t37*t39*t57+1.8231199489382
2396     1         385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t33*t38*t
2397     2         57+3.646239897876477d+2*t30*t34*t35*t57-6.077066496460795
2398     3         d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t32*t57-
2399     4         9.115599744691192d+2*t25*t27*t32*t57+9.115599744691192d+2
2400     5         *t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*t57+1.2
2401     6         76183964256767d+3*t21*t25*t26*t57-1.7015786190090226d+3*t
2402     7         19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t57-2.18
2403     8         7743938725886d+3*t16*t18*t23*t57+2.187743938725886d+3*t15
2404     9         *t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+2.73467
2405     :         9923407357d+3*t12*t16*t17*t57)+7.46904d-3*t56*t65*t66*t77
2406     ;         -1.0d+0*t5*t50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.
2407     <         2407009817987995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73
2408     =         452d-3*t43*t50*t68)*wght+Mmat2(iq,D2_RB_TB)
2409            Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA)
2410            Mmat2(iq,D2_GBB_TB) = (1.0d+0*t46*t5*(4.1839918891199995d-5*
2411     1         t52*t53*t75*t84+4.1839918891199995d-5*gammabb*t44*t51*t74
2412     2         *t84+4.1839918891199995d-5*t47*t48*t84/rhob**9.6666666666
2413     3         66666d+0+1.3946639630399998d-5*t44*t55*t66*t75-1.49380799
2414     4         99999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t75-3.
2415     5         73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t50*t5
2416     6         1*t75+1.3946639630399998d-5*gammabb*t54*t66*t74-7.46904d-
2417     7         3*gammabb*t51*t66*t74-1.4938079999999998d-2*gammabb*t47*t
2418     8         66*t74)-3.73452d-3*t50*t71*t77-1.86726d-3*t50*t72*t76-9.3
2419     9         05257363490997d-1*t5*t69*t73+1.3946639630399998d-5*t56*t6
2420     :         6/rhob**3)*wght+Mmat2(iq,D2_GBB_TB)
2421            Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA)
2422            Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB)
2423            Mmat2(iq,D2_TB_TB) = (-9.305257363490997d-1*t4*t5*(8.0d+0*t3
2424     1         6*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9+5.28d+2*t10*
2425     2         t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+4.4d+2*t13*t1
2426     3         4*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t33*t37*t38+7.
2427     4         2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t30*t34*t35+1.
2428     5         28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*t27*t31*t32+2
2429     6         .0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*t24*t28*t29+2
2430     7         .88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d+2*t21*t25*t2
2431     8         6+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.24d+2*t18*t22
2432     9         *t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23+2.88d+2*t15*
2433     :         t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t20+3.6d+2*t12
2434     ;         *t16*t17+8.0d+2*t12*t13*t17)+1.0d+0*t46*t5*(8.36798377823
2435     <         9999d-5*t52*t53*t84*t88+2.7893279260799997d-5*t44*t55*t66
2436     =         *t88-5.975231999999999d-2*t44*t52*t66*t88-1.4938079999999
2437     >         998d-2*t50*t55*t88+8.0d+0*t50*t52*t88+8.367983778239999d-
2438     ?         5*gammabb*t44*t51*t84*t87+2.7893279260799997d-5*gammabb*t
2439     @         54*t66*t87-2.9876159999999996d-2*gammabb*t51*t66*t87+8.36
2440     1         7983778239999d-5*t47*t48*t84/rhob**8.666666666666666d+0)-
2441     2         7.46904d-3*t50*t76*t77+2.7893279260799997d-5*t56*t66/rhob
2442     3         **2)*wght+Mmat2(iq,D2_TB_TB)
2443          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
2444        endif ! ipol.eq.1
2445      enddo ! iq
2446      end
2447C>
2448C> \brief Evaluate the nwxcm_x_m06 functional [1]
2449C>
2450C> \f{eqnarray*}{
2451C>   {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\
2452C>   {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\
2453C>   {\it t_3} &=& {\it param}\left(7\right)\\\\
2454C>   {\it t_4} &=& {\it param}\left(18\right)\\\\
2455C>   {\it t_5} &=& \rho_\alpha^{{{5}\over{3}}}\\\\
2456C>   {\it t_6} &=& 9.115599744691192\,{\it t_5}\\\\
2457C>   {\it t_7} &=& {\it t_6}-2.0\,\tau_\alpha\\\\
2458C>   {\it t_8} &=& 2.0\,\tau_\alpha+{\it t_6}\\\\
2459C>   {\it t_9} &=& {\it param}\left(17\right)\\\\
2460C>   {\it t_{10}} &=& {\it param}\left(16\right)\\\\
2461C>   {\it t_{11}} &=& {\it param}\left(15\right)\\\\
2462C>   {\it t_{12}} &=& {\it param}\left(14\right)\\\\
2463C>   {\it t_{13}} &=& {\it param}\left(13\right)\\\\
2464C>   {\it t_{14}} &=& {\it param}\left(12\right)\\\\
2465C>   {\it t_{15}} &=& {\it param}\left(11\right)\\\\
2466C>   {\it t_{16}} &=& {\it param}\left(10\right)\\\\
2467C>   {\it t_{17}} &=& {\it param}\left(9\right)\\\\
2468C>   {\it t_{18}} &=& {\it param}\left(8\right)\\\\
2469C>   {\it t_{19}} &=& {{2.0\,\tau_\alpha}\over{{\it t_5}}}
2470C>    -9.11559972\\\\
2471C>   {\it t_{20}} &=& 0.00186726\,{\it t_{19}}+0.00186726\,{\it t_2}
2472C>    \,\sigma_{\alpha\alpha}+1.0\\\\
2473C>   {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\
2474C>   {\it t_{22}} &=& {\it param}\left(1\right)\\\\
2475C>   {\it t_{23}} &=& {\it param}\left(4\right)\\\\
2476C>   {\it t_{24}} &=& {{1}\over{{\it t_{20}}^2}}\\\\
2477C>   {\it t_{25}} &=& {\it param}\left(5\right)\\\\
2478C>   {\it t_{26}} &=& {\it param}\left(6\right)\\\\
2479C>   {\it t_{27}} &=& {\it param}\left(2\right)\\\\
2480C>   {\it t_{28}} &=& {\it param}\left(3\right)\\\\
2481C>   {\it t_{29}} &=& \rho_\beta^{{{4}\over{3}}}\\\\
2482C>   {\it t_{30}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\
2483C>   {\it t_{31}} &=& \rho_\beta^{{{5}\over{3}}}\\\\
2484C>   {\it t_{32}} &=& 9.115599744691192\,{\it t_{31}}\\\\
2485C>   {\it t_{33}} &=& {\it t_{32}}-2.0\,\tau_\beta\\\\
2486C>   {\it t_{34}} &=& 2.0\,\tau_\beta+{\it t_{32}}\\\\
2487C>   {\it t_{35}} &=& {{2.0\,\tau_\beta}\over{{\it t_{31}}}}
2488C>    -9.11559972\\\\
2489C>   {\it t_{36}} &=& 0.00186726\,{\it t_{35}}+0.00186726\,{
2490C>    \it t_{30}}\,\sigma_{\beta\beta}+1.0\\\\
2491C>   {\it t_{37}} &=& {{1}\over{{\it t_{36}}}}\\\\
2492C>   {\it t_{38}} &=& {{1}\over{{\it t_{36}}^2}}\\\\
2493C>   {\it t_{39}} &=& \rho_s^{{{4}\over{3}}}\\\\
2494C>   {\it t_{40}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\
2495C>   {\it t_{41}} &=& \rho_s^{{{5}\over{3}}}\\\\
2496C>   {\it t_{42}} &=& 9.115599744691192\,{\it t_{41}}\\\\
2497C>   {\it t_{43}} &=& {\it t_{42}}-2.0\,\tau_s\\\\
2498C>   {\it t_{44}} &=& 2.0\,\tau_s+{\it t_{42}}\\\\
2499C>   {\it t_{45}} &=& {{2.0\,\tau_s}\over{{\it t_{41}}}}-9.11559972\\\\
2500C>   {\it t_{46}} &=& 0.00186726\,{\it t_{45}}+0.00186726\,{
2501C>    \it t_{40}}\,\sigma_{ss}+1.0\\\\
2502C>   {\it t_{47}} &=& {{1}\over{{\it t_{46}}}}\\\\
2503C>   {\it t_{48}} &=& {{1}\over{{\it t_{46}}^2}}\\\\
2504C>   f &=& 1.0\,{\it t_{29}}\,{\it t_{37}}\,\left({\it t_{28}}\,{
2505C>    \it t_{35}}\,{\it t_{37}}+{\it t_{27}}\,{\it t_{30}}\,
2506C>    \sigma_{\beta\beta}\,{\it t_{37}}+{\it t_{26}}\,{\it t_{35}}^2
2507C>    \,{\it t_{38}}+{\it t_{25}}\,{\it t_{30}}\,\sigma_{\beta\beta}
2508C>    \,{\it t_{35}}\,{\it t_{38}}+{{{\it t_{23}}\,
2509C>    \sigma_{\beta\beta}^2\,{\it t_{38}}}
2510C>    \over{\rho_\beta^{{{16}\over{3}}}}}+{\it t_{22}}\right)
2511C>    -0.9305257363490997\,{\it t_{29}}\,
2512C>    \left({{0.003612186453650949\,{\it t_{30}}\,
2513C>    \sigma_{\beta\beta}}\over{0.00449276922095889\,{\it t_{30}}
2514C>    \,\sigma_{\beta\beta}+1.0}}+1.0\right)\,\left({{{\it t_{18}}
2515C>    \,{\it t_{33}}}\over{{\it t_{34}}}}+{{{\it t_{17}}\,{
2516C>    \it t_{33}}^2}\over{{\it t_{34}}^2}}+{{{\it t_{16}}\,{
2517C>    \it t_{33}}^3}\over{{\it t_{34}}^3}}+{{{\it t_{15}}\,{
2518C>    \it t_{33}}^4}\over{{\it t_{34}}^4}}+{{{\it t_{14}}\,{
2519C>    \it t_{33}}^5}\over{{\it t_{34}}^5}}+{{{\it t_{13}}\,{
2520C>    \it t_{33}}^6}\over{{\it t_{34}}^6}}+{{{\it t_{12}}\,{
2521C>    \it t_{33}}^7}\over{{\it t_{34}}^7}}+{{{\it t_{11}}\,{
2522C>    \it t_{33}}^8}\over{{\it t_{34}}^8}}+{{{\it t_{10}}\,{
2523C>    \it t_{33}}^9}\over{{\it t_{34}}^9}}+{{{\it t_9}\,{
2524C>    \it t_{33}}^{10}}\over{{\it t_{34}}^{10}}}+{{{\it t_4}\,{
2525C>    \it t_{33}}^{11}}\over{{\it t_{34}}^{11}}}+{\it t_3}\right)
2526C>    +1.0\,{\it t_1}\,{\it t_{21}}\,\left({\it t_{28}}\,{
2527C>    \it t_{19}}\,{\it t_{21}}+{\it t_{27}}\,{\it t_2}\,
2528C>    \sigma_{\alpha\alpha}\,{\it t_{21}}+{\it t_{26}}\,{
2529C>    \it t_{19}}^2\,{\it t_{24}}+{\it t_{25}}\,{\it t_2}\,
2530C>    \sigma_{\alpha\alpha}\,{\it t_{19}}\,{\it t_{24}}+{{{
2531C>    \it t_{23}}\,\sigma_{\alpha\alpha}^2\,{\it t_{24}}}
2532C>    \over{\rho_\alpha^{{{16}\over{3}}}}}+{\it t_{22}}\right)
2533C>    -0.9305257363490997\,{\it t_1}\,\left({{0.003612186453650949
2534C>    \,{\it t_2}\,\sigma_{\alpha\alpha}}\over{0.00449276922095889
2535C>    \,{\it t_2}\,\sigma_{\alpha\alpha}+1.0}}+1.0\right)\,
2536C>    \left({{{\it t_{18}}\,{\it t_7}}\over{{\it t_8}}}+{{{
2537C>    \it t_{17}}\,{\it t_7}^2}\over{{\it t_8}^2}}+{{{\it t_{16}}
2538C>    \,{\it t_7}^3}\over{{\it t_8}^3}}+{{{\it t_{15}}\,{
2539C>    \it t_7}^4}\over{{\it t_8}^4}}+{{{\it t_{14}}\,{
2540C>    \it t_7}^5}\over{{\it t_8}^5}}+{{{\it t_{13}}\,{
2541C>    \it t_7}^6}\over{{\it t_8}^6}}+{{{\it t_{12}}\,{
2542C>    \it t_7}^7}\over{{\it t_8}^7}}+{{{\it t_{11}}\,{
2543C>    \it t_7}^8}\over{{\it t_8}^8}}+{{{\it t_{10}}\,{
2544C>    \it t_7}^9}\over{{\it t_8}^9}}+{{{\it t_9}\,{
2545C>    \it t_7}^{10}}\over{{\it t_8}^{10}}}+{{{\it t_4}\,{
2546C>    \it t_7}^{11}}\over{{\it t_8}^{11}}}+{\it t_3}\right)\\\\
2547C>   g &=& 0\\\\
2548C>   G &=& 1.0\,{\it t_{39}}\,{\it t_{47}}\,\left({\it t_{28}}\,{
2549C>    \it t_{45}}\,{\it t_{47}}+{\it t_{27}}\,{\it t_{40}}\,
2550C>    \sigma_{ss}\,{\it t_{47}}+{\it t_{26}}\,{\it t_{45}}^2\,{
2551C>    \it t_{48}}+{\it t_{25}}\,{\it t_{40}}\,\sigma_{ss}\,{
2552C>    \it t_{45}}\,{\it t_{48}}+{{{\it t_{23}}\,\sigma_{ss}^2\,{
2553C>    \it t_{48}}}\over{\rho_s^{{{16}\over{3}}}}}+{\it t_{22}}\right)
2554C>    -0.9305257363490997\,{\it t_{39}}\,
2555C>    \left({{0.003612186453650949\,{\it t_{40}}\,\sigma_{ss}}
2556C>    \over{0.00449276922095889\,{\it t_{40}}\,\sigma_{ss}+1.0}}
2557C>    +1.0\right)\,\left({{{\it t_{18}}\,{\it t_{43}}}\over{{
2558C>    \it t_{44}}}}+{{{\it t_{17}}\,{\it t_{43}}^2}\over{{
2559C>    \it t_{44}}^2}}+{{{\it t_{16}}\,{\it t_{43}}^3}\over{{
2560C>    \it t_{44}}^3}}+{{{\it t_{15}}\,{\it t_{43}}^4}\over{{
2561C>    \it t_{44}}^4}}+{{{\it t_{14}}\,{\it t_{43}}^5}\over{{
2562C>    \it t_{44}}^5}}+{{{\it t_{13}}\,{\it t_{43}}^6}\over{{
2563C>    \it t_{44}}^6}}+{{{\it t_{12}}\,{\it t_{43}}^7}\over{{
2564C>    \it t_{44}}^7}}+{{{\it t_{11}}\,{\it t_{43}}^8}\over{{
2565C>    \it t_{44}}^8}}+{{{\it t_{10}}\,{\it t_{43}}^9}\over{{
2566C>    \it t_{44}}^9}}+{{{\it t_9}\,{\it t_{43}}^{10}}\over{{
2567C>    \it t_{44}}^{10}}}+{{{\it t_4}\,{\it t_{43}}^{11}}\over{{
2568C>    \it t_{44}}^{11}}}+{\it t_3}\right)\\\\
2569C> \f}
2570C>
2571C> Code generated with Maxima 5.34.0 [2]
2572C> driven by autoxc [3].
2573C>
2574C> ### References ###
2575C>
2576C> [1] Y Zhao, DG Truhlar, J.Chem.Phys. 123, 194101 (2006)  , DOI:
2577C> <a href="https://doi.org/10.1063/1.2370993 ">
2578C> 10.1063/1.2370993 </a>
2579C>
2580C> [2] Maxima, a computer algebra system,
2581C> <a href="http://maxima.sourceforge.net/">
2582C> http://maxima.sourceforge.net/</a>
2583C>
2584C> [3] autoxc, revision 27097 2015-05-08
2585C>
2586      subroutine nwxcm_x_m06_d3(param,tol_rho,ipol,nq,wght,
2587     +rho,rgamma,tau,fnc,Amat,Amat2,Amat3,
2588     +Cmat,Cmat2,Cmat3,Mmat,Mmat2,Mmat3)
2589c $Id: $
2590#ifdef NWXC_QUAD_PREC
2591      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
2592      integer, parameter :: rk=selected_real_kind(30)
2593#else
2594      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
2595      integer, parameter :: rk=selected_real_kind(15)
2596#endif
2597#include "nwxc_param.fh"
2598      double precision param(*)     !< [Input] Parameters of functional
2599      double precision tol_rho      !< [Input] The lower limit on the density
2600      integer ipol                  !< [Input] The number of spin channels
2601      integer nq                    !< [Input] The number of points
2602      double precision wght         !< [Input] The weight of the functional
2603      double precision rho(nq,NCOL_RHO)      !< [Input] The density
2604      double precision rgamma(nq,NCOL_GAMMA) !< [Input] The norm of the density
2605                                             !< gradients
2606      double precision tau(nq,NCOL_TAU)      !< [Input] The kinetic energy density
2607      double precision fnc(nq)      !< [Output] The value of the functional
2608c
2609c     Sampling Matrices for the XC Kernel
2610c
2611      double precision Amat(nq,NCOL_AMAT)   !< [Output] The derivative wrt rho
2612      double precision Cmat(nq,NCOL_CMAT)   !< [Output] The derivative wrt rgamma
2613      double precision Mmat(nq,NCOL_MMAT)   !< [Output] The derivative wrt tau
2614c
2615c     Sampling Matrices for the XC Kernel
2616c
2617      double precision Amat2(nq,NCOL_AMAT2)  !< [Output] The 2nd derivative wrt rho
2618      double precision Cmat2(nq,NCOL_CMAT2)  !< [Output] The 2nd derivative wrt rgamma
2619                                             !< and possibly rho
2620      double precision Mmat2(nq,NCOL_MMAT2)  !< [Output] The 2nd derivative wrt tau
2621                                             !< and possibly rho
2622c
2623c     Sampling Matrices for the XC Kernel
2624c
2625      double precision Amat3(nq,NCOL_AMAT3)  !< [Output] The 3rd derivative wrt rho
2626      double precision Cmat3(nq,NCOL_CMAT3)  !< [Output] The 3rd derivative wrt rgamma
2627                                             !< and possibly rho
2628      double precision Mmat3(nq,NCOL_MMAT3)  !< [Output] The 3rd derivative wrt tau
2629                                             !< and possibly rho
2630      integer iq
2631      double precision tmp
2632      double precision rhoa,rhob
2633      double precision gammaaa,gammaab,gammabb
2634      double precision taua,taub
2635      double precision nwxcm_heaviside
2636      external         nwxcm_heaviside
2637CDIR$ NOVECTOR
2638      do iq = 1, nq
2639        if (ipol.eq.1) then
2640          rhoa    = 0.5d0*rho(iq,R_T)
2641          gammaaa = 0.25d0*rgamma(iq,G_TT)
2642          taua    = 0.5d0*tau(iq,T_T)
2643          if (rhoa.gt.tol_rho) then
2644            t1 = 1/rhoa**2.6666666666666666d+0
2645            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
2646            t3 = 1/t2
2647            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
2648            t5 = rhoa**1.3333333333333333d+0
2649            t6 = param(18)
2650            t7 = rhoa**1.6666666666666669d+0
2651            t8 = 9.115599744691192d+0*t7
2652            t9 = t8-2.0d+0*taua
2653            t10 = t9**11
2654            t11 = 2.0d+0*taua+t8
2655            t12 = 1/t11**11
2656            t13 = param(17)
2657            t14 = t9**10
2658            t15 = 1/t11**10
2659            t16 = param(16)
2660            t17 = t9**9
2661            t18 = 1/t11**9
2662            t19 = param(15)
2663            t20 = t9**8
2664            t21 = 1/t11**8
2665            t22 = param(14)
2666            t23 = t9**7
2667            t24 = 1/t11**7
2668            t25 = param(13)
2669            t26 = t9**6
2670            t27 = 1/t11**6
2671            t28 = param(12)
2672            t29 = t9**5
2673            t30 = 1/t11**5
2674            t31 = param(11)
2675            t32 = t9**4
2676            t33 = 1/t11**4
2677            t34 = param(10)
2678            t35 = t9**3
2679            t36 = 1/t11**3
2680            t37 = param(9)
2681            t38 = t9**2
2682            t39 = 1/t11**2
2683            t40 = param(8)
2684            t41 = 1/t11
2685            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
2686     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
2687     2         17*t18+t13*t14*t15+param(7)
2688            t43 = 1/t7
2689            t44 = 2.0d+0*t43*taua-9.11559972d+0
2690            t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0
2691            t46 = 1/t45
2692            t47 = param(4)
2693            t48 = gammaaa**2
2694            t49 = 1/rhoa**5.333333333333333d+0
2695            t50 = 1/t45**2
2696            t51 = param(5)
2697            t52 = param(6)
2698            t53 = t44**2
2699            t54 = param(2)
2700            t55 = param(3)
2701            t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1*
2702     1         t44*t50*t51+t47*t48*t49*t50+param(1)
2703            t57 = rhoa**6.666666666666666d-1
2704            t58 = 1/t11**12
2705            t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039
2706     1         7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+
2707     2         1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+
2708     3         1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577
2709     4         998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33
2710     5         *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706
2711     6         6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3
2712     7         0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974
2713     8         4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t
2714     9         26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368
2715     :         806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t
2716     ;         23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617
2717     <         036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t
2718     =         17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241
2719     >         151986d+2*t12*t13*t14*t57
2720            t60 = rhoa**3.333333333333333d-1
2721            t61 = 1/t2**2
2722            t62 = 1/rhoa**6.333333333333333d+0
2723            t63 = 1/rhoa**3.6666666666666664d+0
2724            t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3*
2725     1         gammaaa*t3*t63
2726            t65 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t63
2727            t66 = 1/t45**3
2728            t67 = -3.3333333333333337d+0*t1*t46*t55*taua-6.6666666666666
2729     1         67d+0*t1*t44*t50*t52*taua-3.3333333333333337d+0*gammaaa*t
2730     2         49*t50*t51*taua-2*t52*t53*t65*t66-2*gammaaa*t1*t44*t51*t6
2731     3         5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammaaa*t1*t5
2732     4         0*t54*t65-2.6666666666666666d+0*gammaaa*t46*t54*t63-2.666
2733     5         6666666666666d+0*gammaaa*t44*t50*t51*t63-5.33333333333333
2734     6         3d+0*t47*t48*t50*t62
2735            t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60
2736            t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm
2737     1         aaa*t49*t61
2738            t70 = 1/rhoa**8
2739            t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66-
2740     1         3.73452d-3*gammaaa*t44*t49*t51*t66-1.86726d-3*t1*t44*t50*
2741     2         t55-1.86726d-3*gammaaa*t49*t50*t54+t1*t46*t54+t1*t44*t50*
2742     3         t51+2*gammaaa*t47*t49*t50
2743            t72 = 1/t5
2744            t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6
2745     1         -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d
2746     2         +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d
2747     3         +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d
2748     4         +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d
2749     5         +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d
2750     6         +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d
2751     7         +1*t12*t13*t14
2752            t74 = 1/rhoa**7
2753            t75 = 1/rhoa**4.333333333333333d+0
2754            t76 = -7.46904d-3*gammaaa*t44*t51*t66*t75-3.73452d-3*gammaaa
2755     1         *t50*t54*t75+2.0d+0*gammaaa*t50*t51*t75-7.46904d-3*t47*t4
2756     2         8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t
2757     3         50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52
2758            t77 = 1/t60
2759            t78 = 1/t11**13
2760            t79 = -1.0128444160767991d+1*t39*t40*t77*t9+2.02568883215359
2761     1         82d+1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-
2762     2         1.846536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*
2763     3         t34*t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.114128
2764     4         8576844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t1
2765     5         4*t6*t77+1.0128444160767991d+1*t40*t41*t77-2.025688832153
2766     6         5982d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*
2767     7         t77-3.038533248230397d+1*t33*t34*t35*t77+4.05137766430719
2768     8         64d+1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t
2769     9         77+5.064222080383994d+1*t28*t30*t32*t77-5.064222080383994
2770     :         d+1*t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-
2771     ;         6.077066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1
2772     <         *t22*t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.1
2773     =         02755328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t1
2774     >         8*t19*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.1155
2775     ?         99744691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t
2776     @         15*t17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.5857740
2777     1         01863949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t
2778     2         5*t6+2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007
2779     3         845d+2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.3849
2780     4         026450902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*
2781     5         t34*t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.76980529
2782     6         0180471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t3
2783     7         5*t5+4.616342150300784d+3*t28*t30*t35*t5+4.61634215030078
2784     8         4d+3*t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6
2785     9         .924513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t
2786     :         24*t28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.69431
2787     ;         8515631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25
2788     <         *t26*t5-2.2620076536473846d+4*t21*t22*t26*t5+1.2925758020
2789     =         842196d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t2
2790     >         3*t5-2.954458976192502d+4*t18*t19*t23*t5+1.66188317410828
2791     ?         23d+4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5
2792     @         -3.7392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d
2793     1         +4*t13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.
2794     2         616342150300784d+4*t12*t13*t17*t5
2795            t80 = 1/t57
2796            t81 = gammaaa**3
2797            t82 = 1/t2**3
2798            t83 = 1/rhoa**10
2799            t84 = 1/rhoa**7.333333333333333d+0
2800            t85 = 1/rhoa**4.666666666666667d+0
2801            t86 = 3.531915643569816d-2*gammaaa*t3*t85-3.8948928286386303
2802     1         d-4*t48*t61*t84+1.0369691626335495d-6*t81*t82*t83
2803            t87 = t65**2
2804            t88 = 1/t45**4
2805            t89 = 1.6597866666666666d-2*t63*taua+1.8257653333333332d-2*g
2806     1         ammaaa*t85
2807            t90 = taua**2
2808            t91 = 2.6666666666666666d+1*t1*t44*t52*t65*t66*taua+1.333333
2809     1         3333333333d+1*gammaaa*t49*t51*t65*t66*taua+6.666666666666
2810     2         667d+0*t1*t50*t55*t65*taua+8.88888888888889d+0*t46*t55*t6
2811     3         3*taua+1.7777777777777778d+1*t44*t50*t52*t63*taua+2.66666
2812     4         66666666666d+1*gammaaa*t50*t51*t62*taua+2.222222222222222
2813     5         4d+1*t49*t50*t52*t90-2*t52*t53*t66*t89-2*gammaaa*t1*t44*t
2814     6         51*t66*t89-2*t47*t48*t49*t66*t89-t44*t50*t55*t89-gammaaa*
2815     7         t1*t50*t54*t89+6*t52*t53*t87*t88+6*gammaaa*t1*t44*t51*t87
2816     8         *t88+6*t47*t48*t49*t87*t88+2*t44*t55*t66*t87+2*gammaaa*t1
2817     9         *t54*t66*t87+9.777777777777779d+0*gammaaa*t46*t54*t85+9.7
2818     :         77777777777779d+0*gammaaa*t44*t50*t51*t85+3.3777777777777
2819     ;         78d+1*t47*t48*t50*t84+1.0666666666666666d+1*gammaaa*t44*t
2820     <         51*t63*t65*t66+2.1333333333333332d+1*t47*t48*t62*t65*t66+
2821     =         5.333333333333333d+0*gammaaa*t50*t54*t63*t65
2822            t92 = 1.0d+0*t5*t91+4.444444444444444d-1*t56*t80+2.666666666
2823     1         6666666d+0*t60*t67
2824            t93 = -1.0d+0*t5*t56*t89-t65*t68-1.0d+0*t5*t65*t67-1.3333333
2825     1         333333333d+0*t56*t60*t65
2826            t94 = 1/rhoa**9
2827            t95 = -3.8886343598758105d-7*t48*t82*t94-9.632497209735863d-
2828     1         3*t3*t63+1.29829760954621d-4*gammaaa*t61*t62
2829            t96 = 1/rhoa**2.3333333333333334d+0
2830            t97 = 1.24484d-2*gammaaa*t51*t66*t70*taua+2.48968d-2*t44*t49
2831     1         *t52*t66*taua+6.2242d-3*t49*t50*t55*taua-3.33333333333333
2832     2         37d+0*t49*t50*t51*taua+2.9876159999999996d-2*t47*t48*t66*
2833     3         t94+1.120356d-2*t47*t48*t65*t70*t88+1.120356d-2*t1*t52*t5
2834     4         3*t65*t88+1.120356d-2*gammaaa*t44*t49*t51*t65*t88+3.73452
2835     5         d-3*t1*t44*t55*t65*t66+3.73452d-3*gammaaa*t49*t54*t65*t66
2836     6         -2*t1*t44*t51*t65*t66-4*gammaaa*t47*t49*t65*t66+9.9587199
2837     7         99999999d-3*t52*t53*t63*t66+1.9917439999999997d-2*gammaaa
2838     8         *t44*t51*t62*t66-t1*t50*t54*t65+4.9793599999999993d-3*t44
2839     9         *t50*t55*t63-2.6666666666666666d+0*t46*t54*t63-2.66666666
2840     :         66666666d+0*t44*t50*t51*t63+9.958719999999999d-3*gammaaa*
2841     ;         t50*t54*t62-1.0666666666666666d+1*gammaaa*t47*t50*t62
2842            t98 = 1.0d+0*t5*t97+1.3333333333333333d+0*t60*t71
2843            t99 = 1.4582378849534292d-7*gammaaa*t70*t82-3.24574402386552
2844     1         55d-5*t49*t61
2845            t100 = 1/rhoa**1.0666666666666666d+1
2846            t101 = 2.0919959445599998d-5*gammaaa*t44*t51*t70*t88+2.09199
2847     1         59445599998d-5*t49*t52*t53*t88+2.0919959445599998d-5*t100
2848     2         *t47*t48*t88+6.973319815199999d-6*gammaaa*t54*t66*t70-1.4
2849     3         938079999999998d-2*gammaaa*t47*t66*t70+6.973319815199999d
2850     4         -6*t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*
2851     5         t49*t50*t54+2*t47*t49*t50
2852            t102 = 1/rhoa**4
2853            t103 = 6.077066496460795d+1*t36*t40*t57*t9-1.823119948938238
2854     1         5d+2*t34*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-
2855     2         3.342386573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*
2856     3         t13*t14*t57*t58-6.077066496460795d+1*t37*t39*t57+1.823119
2857     4         9489382385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t3
2858     5         3*t38*t57+3.646239897876477d+2*t30*t34*t35*t57-6.07706649
2859     6         6460795d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t
2860     7         32*t57-9.115599744691192d+2*t25*t27*t32*t57+9.11559974469
2861     8         1192d+2*t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*
2862     9         t57+1.276183964256767d+3*t21*t25*t26*t57-1.70157861900902
2863     :         26d+3*t19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t
2864     ;         57-2.187743938725886d+3*t16*t18*t23*t57+2.187743938725886
2865     <         d+3*t15*t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+
2866     =         2.734679923407357d+3*t12*t16*t17*t57
2867            t104 = 4.97936d-2*t44*t52*t66*t75*taua+1.24484d-2*t50*t55*t7
2868     1         5*taua-1.3333333333333333d+1*t50*t52*t75*taua+2.48968d-2*
2869     2         gammaaa*t51*t66*t74*taua+2.240712d-2*gammaaa*t44*t51*t65*
2870     3         t75*t88+2.240712d-2*t47*t48*t65*t74*t88+2.240712d-2*t43*t
2871     4         52*t53*t65*t88+7.46904d-3*gammaaa*t54*t65*t66*t75-4.0d+0*
2872     5         gammaaa*t51*t65*t66*t75+5.228328d-2*t47*t48*t66*t70+7.469
2873     6         04d-3*t43*t44*t55*t65*t66-8.0d+0*t43*t44*t52*t65*t66+1.24
2874     7         484d-2*t1*t52*t53*t66+3.236584d-2*gammaaa*t44*t49*t51*t66
2875     8         -2.0d+0*t43*t50*t55*t65+6.2242d-3*t1*t44*t50*t55-3.333333
2876     9         3333333337d+0*t1*t46*t55+1.618292d-2*gammaaa*t49*t50*t54-
2877     :         6.666666666666667d+0*t1*t44*t50*t52-8.666666666666666d+0*
2878     ;         gammaaa*t49*t50*t51
2879            t105 = 1.3333333333333333d+0*t60*t76+1.0d+0*t104*t5
2880            t106 = 1/rhoa**9.666666666666666d+0
2881            t107 = 4.1839918891199995d-5*t52*t53*t75*t88+4.1839918891199
2882     1         995d-5*gammaaa*t44*t51*t74*t88+4.1839918891199995d-5*t106
2883     2         *t47*t48*t88+1.3946639630399998d-5*t44*t55*t66*t75-1.4938
2884     3         079999999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t7
2885     4         5-3.73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t5
2886     5         0*t51*t75+1.3946639630399998d-5*gammaaa*t54*t66*t74-7.469
2887     6         04d-3*gammaaa*t51*t66*t74-1.4938079999999998d-2*gammaaa*t
2888     7         47*t66*t74
2889            t108 = 1/rhoa**3
2890            t109 = 1/rhoa**6
2891            t110 = 1/rhoa**3.3333333333333337d+0
2892            t111 = 8.367983778239999d-5*t110*t52*t53*t88+8.3679837782399
2893     1         99d-5*gammaaa*t109*t44*t51*t88+8.367983778239999d-5*t47*t
2894     2         48*t88/rhoa**8.666666666666666d+0+2.7893279260799997d-5*t
2895     3         110*t44*t55*t66+2.7893279260799997d-5*gammaaa*t109*t54*t6
2896     4         6-5.975231999999999d-2*t110*t44*t52*t66-2.987615999999999
2897     5         6d-2*gammaaa*t109*t51*t66-1.4938079999999998d-2*t110*t50*
2898     6         t55+8.0d+0*t110*t50*t52
2899            t112 = rhoa**2
2900            t113 = 1/t112
2901            t114 = 1/t11**14
2902            t115 = 1/t2**4
2903            t116 = 1/rhoa**8.333333333333334d+0
2904            t117 = 1/rhoa**5.666666666666667d+0
2905            t118 = t65**3
2906            t119 = 1/t45**5
2907            t120 = -6.085884444444444d-2*t85*taua-8.520238222222222d-2*g
2908     1         ammaaa*t117
2909            t121 = 1/rhoa**1.1666666666666665d+1
2910            t122 = 1/rhoa**5
2911            t123 = 1/rhoa**7.666666666666667d+0
2912            fnc(iq) = (2.0d+0*t46*t5*t56-1.8610514726981994d+0*t4*t42*t5
2913     1         )*wght+fnc(iq)
2914            Amat(iq,D1_RA) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634
2915     1         90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30
2916     2         5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RA)
2917            Cmat(iq,D1_GAA) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71
2918     1         -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GAA)
2919            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
2920            Mmat(iq,D1_TA) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76-
2921     1         9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TA)
2922            Amat2(iq,D2_RA_RA) = (t50*t93+t46*t92+2.0d+0*t5*t56*t66*t87-
2923     1         9.305257363490997d-1*t42*t5*t86-4.1356699393293317d-1*t4*
2924     2         t42*t80-9.305257363490997d-1*t4*t5*t79-2.481401963597599d
2925     3         +0*t42*t60*t64-1.8610514726981994d+0*t5*t59*t64-2.4814019
2926     4         63597599d+0*t4*t59*t60)*wght+Amat2(iq,D2_RA_RA)
2927            Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB)
2928            Cmat2(iq,D2_RA_GAA) = (t46*t98+4.9793599999999993d-3*t50*t56
2929     1         *t96-9.305257363490997d-1*t42*t5*t95+3.73452d-3*t56*t65*t
2930     2         66*t72-1.0d+0*t5*t50*t65*t71-1.2407009817987995d+0*t42*t6
2931     3         0*t69-9.305257363490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t
2932     4         68)*wght+Cmat2(iq,D2_RA_GAA)
2933            Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB)
2934            Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB)
2935            Cmat2(iq,D2_GAA_GAA) = (-9.305257363490997d-1*t42*t5*t99-3.7
2936     1         3452d-3*t50*t71*t72+6.973319815199999d-6*t102*t56*t66+1.0
2937     2         d+0*t101*t46*t5)*wght+Cmat2(iq,D2_GAA_GAA)
2938            Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB)
2939            Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB)
2940            Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB)
2941            Mmat2(iq,D2_RA_TA) = (7.46904d-3*t56*t65*t66*t77-1.0d+0*t5*t
2942     1         50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.240700981798
2943     2         7995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73452d-3*t43*t
2944     3         50*t68-9.305257363490997d-1*t103*t4*t5+t105*t46)*wght+Mma
2945     4         t2(iq,D2_RA_TA)
2946            Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB)
2947            Mmat2(iq,D2_GAA_TA) = (-3.73452d-3*t50*t71*t77-1.86726d-3*t5
2948     1         0*t72*t76-9.305257363490997d-1*t5*t69*t73+1.3946639630399
2949     2         998d-5*t108*t56*t66+1.0d+0*t107*t46*t5)*wght+Mmat2(iq,D2_
2950     3         GAA_TA)
2951            Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB)
2952            Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA)
2953            Mmat2(iq,D2_TA_TA) = (-9.305257363490997d-1*t4*t5*(8.0d+0*t3
2954     1         6*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9+5.28d+2*t10*
2955     2         t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+4.4d+2*t13*t1
2956     3         4*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t33*t37*t38+7.
2957     4         2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t30*t34*t35+1.
2958     5         28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*t27*t31*t32+2
2959     6         .0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*t24*t28*t29+2
2960     7         .88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d+2*t21*t25*t2
2961     8         6+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.24d+2*t18*t22
2962     9         *t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23+2.88d+2*t15*
2963     :         t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t20+3.6d+2*t12
2964     ;         *t16*t17+8.0d+2*t12*t13*t17)-7.46904d-3*t50*t76*t77+2.789
2965     <         3279260799997d-5*t113*t56*t66+1.0d+0*t111*t46*t5)*wght+Mm
2966     =         at2(iq,D2_TA_TA)
2967            Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB)
2968            Amat3(iq,D3_RA_RA_RA) = (t46*(1.0d+0*t5*(4.0d+1*t1*t44*t52*t
2969     1         66*t89*taua+2.0d+1*gammaaa*t49*t51*t66*t89*taua+1.0d+1*t1
2970     2         *t50*t55*t89*taua-1.2d+2*t1*t44*t52*t87*t88*taua-6.0d+1*g
2971     3         ammaaa*t49*t51*t87*t88*taua-2.0d+1*t1*t55*t66*t87*taua-3.
2972     4         2592592592592595d+1*t46*t55*t85*taua-6.518518518518519d+1
2973     5         *t44*t50*t52*t85*taua-2.0148148148148146d+2*gammaaa*t50*t
2974     6         51*t84*taua-1.0666666666666667d+2*t44*t52*t63*t65*t66*tau
2975     7         a-1.6d+2*gammaaa*t51*t62*t65*t66*taua-2.6666666666666666d
2976     8         +1*t50*t55*t63*t65*taua-1.3333333333333333d+2*t49*t52*t65
2977     9         *t66*t90-1.777777777777778d+2*t50*t52*t62*t90+18*t52*t53*
2978     :         t65*t88*t89+18*gammaaa*t1*t44*t51*t65*t88*t89+18*t47*t48*
2979     ;         t49*t65*t88*t89+6*t44*t55*t65*t66*t89+6*gammaaa*t1*t54*t6
2980     <         5*t66*t89+16*gammaaa*t44*t51*t63*t66*t89+32*t47*t48*t62*t
2981     =         66*t89+8*gammaaa*t50*t54*t63*t89-48*gammaaa*t44*t51*t63*t
2982     >         87*t88-96*t47*t48*t62*t87*t88-6*t118*t44*t55*t88-6*gammaa
2983     ?         a*t1*t118*t54*t88-16*gammaaa*t54*t63*t66*t87-5.8666666666
2984     @         66667d+1*gammaaa*t44*t51*t65*t66*t85-2.9333333333333333d+
2985     1         1*gammaaa*t50*t54*t65*t85-2.0266666666666666d+2*t47*t48*t
2986     2         65*t66*t84-2*t120*t52*t53*t66-2*gammaaa*t1*t120*t44*t51*t
2987     3         66-2*t120*t47*t48*t49*t66-t120*t44*t50*t55-gammaaa*t1*t12
2988     4         0*t50*t54-4.5629629629629626d+1*gammaaa*t117*t46*t54-24*t
2989     5         118*t119*t52*t53-4.5629629629629626d+1*gammaaa*t117*t44*t
2990     6         50*t51-24*gammaaa*t1*t118*t119*t44*t51-2.477037037037037d
2991     7         +2*t116*t47*t48*t50-24*t118*t119*t47*t48*t49)+4.0d+0*t60*
2992     8         t91+1.3333333333333333d+0*t67*t80-2.962962962962963d-1*t4
2993     9         3*t56)+t66*(-2*t65*t93+4.0d+0*t5*t56*t65*t89+2.0d+0*t5*t6
2994     :         7*t87+2.6666666666666666d+0*t56*t60*t87)+t50*(-2*t65*t92-
2995     ;         1.0d+0*t5*t65*t91-t68*t89-2.0d+0*t5*t67*t89-2.66666666666
2996     <         66666d+0*t56*t60*t89-4.444444444444444d-1*t56*t65*t80-2.6
2997     =         666666666666666d+0*t60*t65*t67-1.0d+0*t120*t5*t56)-9.3052
2998     >         57363490997d-1*t4*t5*(3.37614805358933d+0*t39*t40*t72*t9-
2999     ?         6.75229610717866d+0*t37*t39*t72*t9+9.232684300601568d+2*t
3000     @         36*t40*t60*t9-3.693073720240627d+3*t36*t37*t60*t9+2.76980
3001     1         5290180471d+3*t34*t36*t60*t9-2.104036366334451d+4*t112*t3
3002     2         3*t40*t9+1.2624218198006704d+5*t112*t33*t37*t9-1.89363272
3003     3         97010064d+5*t112*t33*t34*t9+8.416145465337804d+4*t112*t31
3004     4         *t33*t9+6.093571638397036d+4*t10*t6*t60*t78+1.52753040195
3005     5         88112d+7*t112*t14*t6*t78-4.628880005935792d+6*t112*t13*t1
3006     6         4*t78+3.713762858948263d+1*t10*t58*t6*t72-3.7137628589482
3007     7         63d+1*t12*t14*t6*t72-3.37614805358933d+0*t40*t41*t72+6.75
3008     8         229610717866d+0*t36*t37*t38*t72-1.0128444160767991d+1*t34
3009     9         *t36*t38*t72+1.0128444160767991d+1*t33*t34*t35*t72-1.3504
3010     :         59221435732d+1*t31*t33*t35*t72+1.350459221435732d+1*t30*t
3011     ;         31*t32*t72-1.6880740267946648d+1*t28*t30*t32*t72+1.688074
3012     <         0267946648d+1*t27*t28*t29*t72-2.0256888321535982d+1*t25*t
3013     =         27*t29*t72+2.0256888321535982d+1*t24*t25*t26*t72-2.363303
3014     >         6375125308d+1*t22*t24*t26*t72+2.3633036375125308d+1*t21*t
3015     ?         22*t23*t72-2.700918442871464d+1*t19*t21*t23*t72+2.7009184
3016     @         42871464d+1*t18*t19*t20*t72-3.0385332482303967d+1*t16*t18
3017     1         *t20*t72+3.0385332482303967d+1*t15*t16*t17*t72-3.37614805
3018     2         35893296d+1*t13*t15*t17*t72+3.3761480535893296d+1*t12*t13
3019     3         *t14*t72-1.1171548003727898d+5*t14*t58*t6*t60+5.077976365
3020     4         330863d+4*t12*t17*t6*t60+5.077976365330862d+4*t13*t14*t58
3021     5         *t60-9.232684300601568d+2*t39*t40*t60+9.232684300601568d+
3022     6         2*t37*t39*t60+2.769805290180471d+3*t33*t37*t38*t60-8.3094
3023     7         15870541413d+3*t33*t34*t38*t60+5.539610580360942d+3*t31*t
3024     8         33*t38*t60+5.539610580360942d+3*t30*t34*t35*t60-1.4772294
3025     9         880962508d+4*t30*t31*t35*t60+9.232684300601568d+3*t28*t30
3026     :         *t35*t60+9.232684300601568d+3*t27*t31*t32*t60-2.308171075
3027     ;         150392d+4*t27*t28*t32*t60+1.3849026450902355d+4*t25*t27*t
3028     <         32*t60+1.3849026450902355d+4*t24*t28*t29*t60-3.3237663482
3029     =         16566d+4*t24*t25*t29*t60+1.9388637031263292d+4*t22*t24*t2
3030     >         9*t60+1.9388637031263292d+4*t21*t25*t26*t60-4.52401530729
3031     ?         47686d+4*t21*t22*t26*t60+2.585151604168439d+4*t19*t21*t26
3032     @         *t60+2.585151604168439d+4*t18*t22*t23*t60-5.9089179523850
3033     1         03d+4*t18*t19*t23*t60+3.3237663482165647d+4*t16*t18*t23*t
3034     2         60+3.3237663482165647d+4*t15*t19*t20*t60-7.47847428348727
3035     3         1d+4*t15*t16*t20*t60+4.154707935270705d+4*t13*t15*t20*t60
3036     4         +4.1547079352707056d+4*t12*t16*t17*t60-9.232684300601568d
3037     5         +4*t12*t13*t17*t60-1.2729420016323426d+7*t112*t17*t58*t6+
3038     6         3.4716600044518436d+6*t112*t12*t20*t6-6.01754400771653d+6
3039     7         *t10*t112*t114*t6-3.4716600044518436d+6*t112*t16*t17*t58+
3040     8         1.1572200014839477d+7*t112*t13*t17*t58+2.104036366334451d
3041     9         +4*t112*t36*t40-8.416145465337804d+4*t112*t30*t37*t38+3.7
3042     :         87265459402013d+5*t112*t30*t34*t38-5.049687279202681d+5*t
3043     ;         112*t30*t31*t38+2.1040363663344508d+5*t112*t28*t30*t38-4.
3044     <         208072732668902d+4*t112*t36*t37+2.104036366334451d+4*t112
3045     =         *t34*t36-2.104036366334451d+5*t112*t27*t34*t35+8.41614546
3046     >         5337803d+5*t112*t27*t31*t35-1.0520181831672254d+6*t112*t2
3047     ?         7*t28*t35+4.208072732668902d+5*t112*t25*t27*t35-4.2080727
3048     @         326689016d+5*t112*t24*t31*t32+1.578027274750838d+6*t112*t
3049     1         24*t28*t32-1.893632729701006d+6*t112*t24*t25*t32+7.364127
3050     2         282170578d+5*t112*t22*t24*t32-7.364127282170578d+5*t112*t
3051     3         21*t28*t29+2.6510858215814087d+6*t112*t21*t25*t29-3.09293
3052     4         34585116436d+6*t112*t21*t22*t29+1.1782603651472927d+6*t11
3053     5         2*t19*t21*t29-1.1782603651472927d+6*t112*t18*t25*t26+4.12
3054     6         3911278015524d+6*t112*t18*t22*t26-4.713041460589171d+6*t1
3055     7         12*t18*t19*t26+1.767390547720939d+6*t112*t16*t18*t26-1.76
3056     8         73905477209387d+6*t112*t15*t22*t23+6.059624735043219d+6*t
3057     9         112*t15*t19*t23-6.817077826923622d+6*t112*t15*t16*t23+2.5
3058     :         24843639601341d+6*t112*t13*t15*t23-2.524843639601341d+6*t
3059     ;         112*t12*t19*t20+8.521347283654526d+6*t112*t12*t16*t20-9.4
3060     <         68163648505028d+6*t112*t12*t13*t20)-6.0d+0*t118*t5*t56*t8
3061     =         8-3.7221029453963983d+0*t42*t60*t86-2.791577209047299d+0*
3062     >         t5*t59*t86-9.305257363490997d-1*t42*t5*(-1.97024140900374
3063     ?         43d-5*t81*t82/rhoa**11+3.279403591520427d-3*t116*t48*t61-
3064     @         1.648227300332581d-1*gammaaa*t117*t3+3.7270905095708196d-
3065     1         8*gammaaa**4*t115/rhoa**1.3666666666666666d+1)+(-1.240700
3066     2         9817987995d+0*t42*t64-1.2407009817987995d+0*t4*t59)*t80-2
3067     3         .791577209047299d+0*t5*t64*t79-3.7221029453963983d+0*t4*t
3068     4         60*t79-7.444205890792797d+0*t59*t60*t64+2.757113292886221
3069     5         d-1*t4*t42*t43)*wght+Amat3(iq,D3_RA_RA_RA)
3070            Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB)
3071            Cmat3(iq,D3_RA_RA_GAA) = (t46*(1.0d+0*t5*(-1.659786666666666
3072     1         6d-1*gammaaa*t51*t66*t94*taua-7.46904d-2*gammaaa*t51*t65*
3073     2         t70*t88*taua-1.493808d-1*t44*t49*t52*t65*t88*taua-2.48968
3074     3         d-2*t49*t55*t65*t66*taua+1.3333333333333333d+1*t49*t51*t6
3075     4         5*t66*taua-1.9917439999999997d-1*t44*t52*t62*t66*taua-4.9
3076     5         793599999999993d-2*t50*t55*t62*taua+2.6666666666666666d+1
3077     6         *t50*t51*t62*taua-1.7925696d-1*t47*t48*t65*t88*t94-8.2989
3078     7         33333333335d-2*t52*t66*t70*t90+1.120356d-2*t47*t48*t70*t8
3079     8         8*t89+1.120356d-2*t1*t52*t53*t88*t89+1.120356d-2*gammaaa*
3080     9         t44*t49*t51*t88*t89+3.73452d-3*t1*t44*t55*t66*t89+3.73452
3081     :         d-3*gammaaa*t49*t54*t66*t89-2*t1*t44*t51*t66*t89-4*gammaa
3082     ;         a*t47*t49*t66*t89-t1*t50*t54*t89-1.120356d-2*t1*t44*t55*t
3083     <         87*t88-1.120356d-2*gammaaa*t49*t54*t87*t88+6*t1*t44*t51*t
3084     =         87*t88+12*gammaaa*t47*t49*t87*t88-5.975231999999999d-2*t5
3085     >         2*t53*t63*t65*t88-1.1950464d-1*gammaaa*t44*t51*t62*t65*t8
3086     ?         8-4.481424d-2*t119*t47*t48*t70*t87+2*t1*t54*t66*t87-4.481
3087     @         424d-2*t1*t119*t52*t53*t87-4.481424d-2*gammaaa*t119*t44*t
3088     1         49*t51*t87-3.6515306666666664d-2*t52*t53*t66*t85-1.825765
3089     2         3333333332d-2*t44*t50*t55*t85+9.777777777777779d+0*t46*t5
3090     3         4*t85+9.777777777777779d+0*t44*t50*t51*t85-1.261437866666
3091     4         6665d-1*gammaaa*t44*t51*t66*t84-6.307189333333332d-2*gamm
3092     5         aaa*t50*t54*t84+6.755555555555556d+1*gammaaa*t47*t50*t84-
3093     6         2.6888544000000003d-1*t47*t48*t66*t83-1.9917439999999997d
3094     7         -2*t44*t55*t63*t65*t66+1.0666666666666666d+1*t44*t51*t63*
3095     8         t65*t66-3.9834879999999995d-2*gammaaa*t54*t62*t65*t66+4.2
3096     9         666666666666664d+1*gammaaa*t47*t62*t65*t66+5.333333333333
3097     :         333d+0*t50*t54*t63*t65)+2.6666666666666666d+0*t60*t97+4.4
3098     ;         44444444444444d-1*t71*t80)+t50*(-t65*t98-1.0d+0*t5*t65*t9
3099     <         7+4.9793599999999993d-3*t67*t96-1.0d+0*t5*t71*t89-1.33333
3100     =         33333333333d+0*t60*t65*t71+4.9793599999999993d-3*t63*t68-
3101     >         1.1618506666666667d-2*t110*t56)-1.9917439999999997d-2*t56
3102     ?         *t65*t66*t96-2.481401963597599d+0*t42*t60*t95-1.861051472
3103     @         6981994d+0*t5*t59*t95-3.73452d-3*t1*t66*t93-1.86726d-3*t1
3104     1         *t50*t92-1.120356d-2*t56*t72*t87*t88+2.0d+0*t5*t66*t71*t8
3105     2         7-9.305257363490997d-1*t42*t5*(3.531915643569816d-2*t3*t8
3106     3         5-9.376593846722628d-4*gammaaa*t61*t84+6.610678411788878d
3107     4         -6*t48*t82*t83-1.3976589410890572d-8*t115*t81/rhoa**1.266
3108     5         6666666666665d+1)-4.1356699393293317d-1*t42*t69*t80-9.305
3109     6         257363490997d-1*t5*t69*t79-2.481401963597599d+0*t59*t60*t
3110     7         69)*wght+Cmat3(iq,D3_RA_RA_GAA)
3111            Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB)
3112            Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB)
3113            Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA)
3114            Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB)
3115            Cmat3(iq,D3_RA_GAA_GAA) = (t46*(1.0d+0*t5*(-1.39466396303999
3116     1         98d-4*t44*t52*t70*t88*taua-6.9733198152d-5*gammaaa*t100*t
3117     2         51*t88*taua-2.3244399384d-5*t55*t66*t70*taua+2.48968d-2*t
3118     3         51*t66*t70*taua-1.6735967556479997d-4*gammaaa*t44*t51*t88
3119     4         *t94-5.578655852159999d-5*gammaaa*t54*t66*t94+1.1950464d-
3120     5         1*gammaaa*t47*t66*t94-2.0919959445599998d-5*gammaaa*t54*t
3121     6         65*t70*t88+4.481424d-2*gammaaa*t47*t65*t70*t88-2.09199594
3122     7         45599998d-5*t44*t49*t55*t65*t88+2.240712d-2*t44*t49*t51*t
3123     8         65*t88-1.1157311704319998d-4*t52*t53*t62*t88-2.2314623408
3124     9         639997d-4*t121*t47*t48*t88-8.367983778239999d-5*gammaaa*t
3125     :         119*t44*t51*t65*t70+7.46904d-3*t49*t54*t65*t66-4*t47*t49*
3126     ;         t65*t66-3.7191039014399996d-5*t44*t55*t62*t66+3.983487999
3127     <         9999995d-2*t44*t51*t62*t66-8.367983778239999d-5*t119*t49*
3128     =         t52*t53*t65-8.367983778239999d-5*t100*t119*t47*t48*t65+1.
3129     >         9917439999999997d-2*t50*t54*t62-1.0666666666666666d+1*t47
3130     ?         *t50*t62)+1.3333333333333333d+0*t101*t60)-1.2407009817987
3131     @         995d+0*t42*t60*t99-9.305257363490997d-1*t5*t59*t99-3.7345
3132     1         2d-3*t1*t50*t98+9.958719999999999d-3*t50*t71*t96-9.305257
3133     2         363490997d-1*t42*t5*(-1.944317179937905d-6*gammaaa*t82*t9
3134     3         4+1.731063479394947d-4*t61*t62+5.241221029083964d-9*t115*
3135     4         t121*t48)-2.0919959445599998d-5*t102*t56*t65*t88+7.46904d
3136     5         -3*t65*t66*t71*t72+6.973319815199999d-6*t49*t66*t68-3.719
3137     6         1039014399996d-5*t122*t56*t66-1.0d+0*t101*t5*t50*t65)*wgh
3138     7         t+Cmat3(iq,D3_RA_GAA_GAA)
3139            Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB)
3140            Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB)
3141            Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB)
3142            Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB)
3143            Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB)
3144            Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*t46*t5*(-3.90630034743910
3145     1         45d-8*t44*t55*t70*t88+6.275987833679999d-5*t44*t51*t70*t8
3146     2         8-3.9063003474391045d-8*gammaaa*t100*t54*t88+1.2551975667
3147     3         36d-4*gammaaa*t100*t47*t88+2.0919959445599995d-5*t54*t66*
3148     4         t70-2.240712d-2*t47*t66*t70-1.562520138975642d-7*t119*t52
3149     5         *t53*t70-1.562520138975642d-7*gammaaa*t100*t119*t44*t51-1
3150     6         .562520138975642d-7*t119*t47*t48/rhoa**1.3333333333333333
3151     7         d+1)-3.9063003474391045d-8*t56*t88/rhoa**6.66666666666666
3152     8         7d+0-9.305257363490997d-1*t42*t5*(4.374713654860287d-7*t7
3153     9         0*t82-1.965457885906487d-9*gammaaa*t100*t115)-5.60178d-3*
3154     :         t101*t50*t72+2.0919959445599995d-5*t102*t66*t71)*wght+Cma
3155     ;         t3(iq,D3_GAA_GAA_GAA)
3156            Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB)
3157            Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB)
3158            Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB)
3159            Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB)
3160            Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB)
3161            Mmat3(iq,D3_RA_RA_TA) = (t46*(1.0d+0*t5*(-2.987616d-1*t44*t5
3162     1         2*t65*t75*t88*taua-1.493808d-1*gammaaa*t51*t65*t74*t88*ta
3163     2         ua-4.97936d-2*t55*t65*t66*t75*taua+5.333333333333333d+1*t
3164     3         52*t65*t66*t75*taua-2.8216373333333333d-1*gammaaa*t51*t66
3165     4         *t70*taua-2.9876159999999996d-1*t44*t49*t52*t66*taua-7.46
3166     5         9039999999999d-2*t49*t50*t55*taua+8.0d+1*t49*t50*t52*taua
3167     6         -4.1826624d-1*t47*t48*t66*t94-1.659786666666667d-1*t52*t6
3168     7         6*t74*t90+2.240712d-2*gammaaa*t44*t51*t75*t88*t89+2.24071
3169     8         2d-2*t47*t48*t74*t88*t89+2.240712d-2*t43*t52*t53*t88*t89+
3170     9         7.46904d-3*gammaaa*t54*t66*t75*t89-4.0d+0*gammaaa*t51*t66
3171     :         *t75*t89+7.46904d-3*t43*t44*t55*t66*t89-8.0d+0*t43*t44*t5
3172     ;         2*t66*t89-2.0d+0*t43*t50*t55*t89-2.240712d-2*gammaaa*t54*
3173     <         t75*t87*t88+1.2d+1*gammaaa*t51*t75*t87*t88-2.240712d-2*t4
3174     =         3*t44*t55*t87*t88+2.4d+1*t43*t44*t52*t87*t88-3.1369968d-1
3175     >         *t47*t48*t65*t70*t88-7.46904d-2*t1*t52*t53*t65*t88-1.9419
3176     ?         503999999999d-1*gammaaa*t44*t49*t51*t65*t88-8.962848d-2*g
3177     @         ammaaa*t119*t44*t51*t75*t87-8.962848d-2*t119*t47*t48*t74*
3178     1         t87+4.0d+0*t43*t55*t66*t87-8.962848d-2*t119*t43*t52*t53*t
3179     2         87-2.48968d-2*t1*t44*t55*t65*t66-6.473168d-2*gammaaa*t49*
3180     3         t54*t65*t66+2.6666666666666666d+1*t1*t44*t52*t65*t66+3.46
3181     4         6666666666666d+1*gammaaa*t49*t51*t65*t66-3.31957333333333
3182     5         3d-2*t52*t53*t63*t66-1.7261781333333331d-1*gammaaa*t44*t5
3183     6         1*t62*t66+6.666666666666667d+0*t1*t50*t55*t65-1.659786666
3184     7         6666666d-2*t44*t50*t55*t63+8.88888888888889d+0*t46*t55*t6
3185     8         3+1.7777777777777778d+1*t44*t50*t52*t63-8.630890666666666
3186     9         d-2*gammaaa*t50*t54*t62+4.622222222222223d+1*gammaaa*t50*
3187     :         t51*t62)+4.444444444444444d-1*t76*t80+2.6666666666666666d
3188     ;         +0*t104*t60)+t50*(-8.298933333333333d-3*t56*t96-1.0d+0*t5
3189     <         *t76*t89-1.3333333333333333d+0*t60*t65*t76+6.2242d-3*t67*
3190     =         t72+6.2242d-3*t1*t68-1.0d+0*t104*t5*t65-t105*t65)-7.46904
3191     >         d-3*t43*t66*t93-3.73452d-3*t43*t50*t92-9.305257363490997d
3192     ?         -1*t4*t5*(4.0513776643071964d+1*t36*t40*t77*t9-1.21541329
3193     @         92921589d+2*t34*t36*t77*t9-2.769805290180471d+3*t33*t40*t
3194     1         5*t9+5.539610580360942d+3*t33*t37*t5*t9+8.309415870541416
3195     2         d+3*t33*t34*t5*t9-1.1079221160721883d+4*t31*t33*t5*t9+2.6
3196     3         739092584427493d+3*t10*t6*t77*t78+6.702928802236738d+5*t1
3197     4         4*t5*t6*t78-6.093571638397035d+5*t13*t14*t5*t78-2.2282577
3198     5         15368958d+3*t12*t17*t6*t77+2.2282577153689576d+3*t13*t14*
3199     6         t58*t77-4.0513776643071964d+1*t37*t39*t77+1.2154132992921
3200     7         589d+2*t33*t37*t38*t77-2.4308265985843178d+2*t31*t33*t38*
3201     8         t77+2.4308265985843178d+2*t30*t34*t35*t77-4.0513776643071
3202     9         96d+2*t28*t30*t35*t77+4.0513776643071964d+2*t27*t31*t32*t
3203     :         77-6.077066496460795d+2*t25*t27*t32*t77+6.077066496460793
3204     ;         d+2*t24*t28*t29*t77-8.507893095045111d+2*t22*t24*t29*t77+
3205     <         8.507893095045113d+2*t21*t25*t26*t77-1.1343857460060149d+
3206     =         3*t19*t21*t26*t77+1.1343857460060149d+3*t18*t22*t23*t77-1
3207     >         .4584959591505905d+3*t16*t18*t23*t77+1.4584959591505908d+
3208     ?         3*t15*t19*t20*t77-1.8231199489382383d+3*t13*t15*t20*t77+1
3209     @         .8231199489382383d+3*t12*t16*t17*t77+5.585774001863949d+5
3210     1         *t17*t5*t58*t6-4.5701787287977763d+5*t12*t20*t5*t6-7.9216
3211     2         43129916147d+5*t10*t114*t5*t6-4.5701787287977763d+5*t16*t
3212     3         17*t5*t58+5.077976365330863d+5*t13*t17*t5*t58+9.232684300
3213     4         601569d+2*t36*t40*t5-1.1079221160721883d+4*t30*t37*t38*t5
3214     5         +1.6618831741082832d+4*t30*t34*t38*t5+2.2158442321443766d
3215     6         +4*t30*t31*t38*t5-2.7698052901804704d+4*t28*t30*t38*t5+1.
3216     7         846536860120314d+3*t36*t37*t5-2.769805290180471d+3*t34*t3
3217     8         6*t5-2.769805290180471d+4*t27*t34*t35*t5+3.69307372024062
3218     9         9d+4*t27*t31*t35*t5+4.616342150300784d+4*t27*t28*t35*t5-5
3219     :         .539610580360942d+4*t25*t27*t35*t5-5.539610580360941d+4*t
3220     ;         24*t31*t32*t5+6.924513225451174d+4*t24*t28*t32*t5+8.30941
3221     <         5870541416d+4*t24*t25*t32*t5-9.694318515631648d+4*t22*t24
3222     =         *t32*t5-9.694318515631648d+4*t21*t28*t29*t5+1.16331822187
3223     >         57979d+5*t21*t25*t29*t5+1.3572045921884307d+5*t21*t22*t29
3224     ?         *t5-1.5510909625010635d+5*t19*t21*t29*t5-1.55109096250106
3225     @         38d+5*t18*t25*t26*t5+1.809606122917908d+5*t18*t22*t26*t5+
3226     1         2.0681212833347515d+5*t18*t19*t26*t5-2.3266364437515952d+
3227     2         5*t16*t18*t26*t5-2.3266364437515955d+5*t15*t22*t23*t5+2.6
3228     3         59013078573252d+5*t15*t19*t23*t5+2.9913897133949086d+5*t1
3229     4         5*t16*t23*t5-3.3237663482165647d+5*t13*t15*t23*t5-3.32376
3230     5         6348216565d+5*t12*t19*t20*t5+3.7392371417436354d+5*t12*t1
3231     6         6*t20*t5+4.1547079352707056d+5*t12*t13*t20*t5)-2.240712d-
3232     7         2*t56*t77*t87*t88+2.0d+0*t5*t66*t76*t87-9.305257363490997
3233     8         d-1*t5*t73*t86-4.1356699393293317d-1*t4*t73*t80-2.4814019
3234     9         63597599d+0*t60*t64*t73-2.48968d-2*t56*t65*t66*t72-1.8610
3235     :         514726981994d+0*t103*t5*t64-2.481401963597599d+0*t103*t4*
3236     ;         t60)*wght+Mmat3(iq,D3_RA_RA_TA)
3237            Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB)
3238            Mmat3(iq,D3_RA_RB_TA) = Mmat3(iq,D3_RA_RB_TA)
3239            Mmat3(iq,D3_RA_GAA_TA) = (t46*(1.0d+0*t5*(-2.789327926079999
3240     1         7d-4*t44*t52*t74*t88*taua-1.3946639630399998d-4*gammaaa*t
3241     2         106*t51*t88*taua-4.6488798768d-5*t55*t66*t74*taua+4.97936
3242     3         d-2*t52*t66*t74*taua+2.48968d-2*t51*t66*t74*taua-4.183991
3243     4         8891199995d-5*t44*t55*t65*t75*t88+4.481424d-2*t44*t52*t65
3244     5         *t75*t88+2.240712d-2*t44*t51*t65*t75*t88-4.18399188911999
3245     6         95d-5*gammaaa*t54*t65*t74*t88+2.240712d-2*gammaaa*t51*t65
3246     7         *t74*t88+4.481424d-2*gammaaa*t47*t65*t74*t88-2.9287943223
3247     8         839996d-4*gammaaa*t44*t51*t70*t88-1.8130631519519996d-4*t
3248     9         49*t52*t53*t88-4.044525492816d-4*t100*t47*t48*t88+7.46904
3249     :         d-3*t55*t65*t66*t75+7.46904d-3*t54*t65*t66*t75-4.0d+0*t51
3250     ;         *t65*t66*t75-1.673596755648d-4*t119*t52*t53*t65*t75-1.673
3251     <         596755648d-4*gammaaa*t119*t44*t51*t65*t74-9.76264774128d-
3252     =         5*gammaaa*t54*t66*t70+5.228328d-2*gammaaa*t51*t66*t70+1.0
3253     >         456655999999999d-1*gammaaa*t47*t66*t70-6.043543839839999d
3254     ?         -5*t44*t49*t55*t66+6.473168d-2*t44*t49*t52*t66+3.236584d-
3255     @         2*t44*t49*t51*t66-1.673596755648d-4*t106*t119*t47*t48*t65
3256     1         +1.618292d-2*t49*t50*t55+1.618292d-2*t49*t50*t54-8.666666
3257     2         666666666d+0*t49*t50*t51)+1.3333333333333333d+0*t107*t60)
3258     3         -3.73452d-3*t43*t50*t98+4.9793599999999993d-3*t50*t76*t96
3259     4         -9.305257363490997d-1*t5*t73*t95-4.1839918891199995d-5*t1
3260     5         08*t56*t65*t88+7.46904d-3*t65*t66*t71*t77+3.73452d-3*t65*
3261     6         t66*t72*t76+1.3946639630399998d-5*t66*t68*t75-1.240700981
3262     7         7987995d+0*t60*t69*t73+6.2242d-3*t50*t71*t72-9.3052573634
3263     8         90997d-1*t103*t5*t69-6.043543839839999d-5*t102*t56*t66-1.
3264     9         0d+0*t107*t5*t50*t65-1.86726d-3*t1*t105*t50)*wght+Mmat3(i
3265     :         q,D3_RA_GAA_TA)
3266            Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB)
3267            Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA)
3268            Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB)
3269            Mmat3(iq,D3_RA_GBB_TA) = Mmat3(iq,D3_RA_GBB_TA)
3270            Mmat3(iq,D3_RA_GBB_TB) = Mmat3(iq,D3_RA_GBB_TB)
3271            Mmat3(iq,D3_GAA_GAA_TA) = (-9.305257363490997d-1*t5*t73*t99+
3272     1         1.0d+0*t46*t5*(-7.812600694878209d-8*t44*t55*t74*t88+8.36
3273     2         7983778239999d-5*t44*t52*t74*t88+8.367983778239999d-5*t44
3274     3         *t51*t74*t88-7.812600694878209d-8*gammaaa*t106*t54*t88+4.
3275     4         1839918891199995d-5*gammaaa*t106*t51*t88+1.673596755648d-
3276     5         4*gammaaa*t106*t47*t88+1.3946639630399998d-5*t55*t66*t74+
3277     6         2.7893279260799997d-5*t54*t66*t74-1.4938079999999998d-2*t
3278     7         51*t66*t74-1.4938079999999998d-2*t47*t66*t74-3.1250402779
3279     8         51284d-7*t119*t52*t53*t74-3.125040277951284d-7*gammaaa*t1
3280     9         06*t119*t44*t51-3.125040277951284d-7*t119*t47*t48/rhoa**1
3281     :         .2333333333333334d+1)-7.812600694878209d-8*t117*t56*t88-3
3282     ;         .73452d-3*t101*t50*t77+6.973319815199999d-6*t102*t66*t76-
3283     <         3.73452d-3*t107*t50*t72+2.7893279260799997d-5*t108*t66*t7
3284     =         1)*wght+Mmat3(iq,D3_GAA_GAA_TA)
3285            Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB)
3286            Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA)
3287            Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB)
3288            Mmat3(iq,D3_GAA_GBB_TA) = Mmat3(iq,D3_GAA_GBB_TA)
3289            Mmat3(iq,D3_GAB_GAB_TA) = Mmat3(iq,D3_GAB_GAB_TA)
3290            Mmat3(iq,D3_TA_TA_TA) = (-9.305257363490997d-1*t4*t5*(-4.8d+
3291     1         1*t33*t40*t9-2.88d+2*t33*t37*t9-4.32d+2*t33*t34*t9-1.92d+
3292     2         2*t31*t33*t9-3.4848d+4*t14*t6*t78-1.056d+4*t13*t14*t78-2.
3293     3         904d+4*t17*t58*t6-7.92d+3*t12*t20*t6-1.3728d+4*t10*t114*t
3294     4         6-7.92d+3*t16*t17*t58-2.64d+4*t13*t17*t58-4.8d+1*t36*t40-
3295     5         1.92d+2*t30*t37*t38-8.64d+2*t30*t34*t38-1.152d+3*t30*t31*
3296     6         t38-4.8d+2*t28*t30*t38-9.6d+1*t36*t37-4.8d+1*t34*t36-4.8d
3297     7         +2*t27*t34*t35-1.92d+3*t27*t31*t35-2.4d+3*t27*t28*t35-9.6
3298     8         d+2*t25*t27*t35-9.6d+2*t24*t31*t32-3.6d+3*t24*t28*t32-4.3
3299     9         2d+3*t24*t25*t32-1.68d+3*t22*t24*t32-1.68d+3*t21*t28*t29-
3300     :         6.048d+3*t21*t25*t29-7.056d+3*t21*t22*t29-2.688d+3*t19*t2
3301     ;         1*t29-2.688d+3*t18*t25*t26-9.408d+3*t18*t22*t26-1.0752d+4
3302     <         *t18*t19*t26-4.032d+3*t16*t18*t26-4.032d+3*t15*t22*t23-1.
3303     =         3824d+4*t15*t19*t23-1.5552d+4*t15*t16*t23-5.76d+3*t13*t15
3304     >         *t23-5.76d+3*t12*t19*t20-1.944d+4*t12*t16*t20-2.16d+4*t12
3305     ?         *t13*t20)+1.0d+0*t46*t5*(-3.1250402779512837d-7*t122*t44*
3306     @         t55*t88-3.1250402779512837d-7*gammaaa*t123*t54*t88+1.0041
3307     1         580533887999d-3*t122*t44*t52*t88+5.020790266944d-4*gammaa
3308     2         a*t123*t51*t88+1.6735967556479997d-4*t122*t55*t66-1.79256
3309     3         96d-1*t122*t52*t66-1.2500161111805136d-6*t119*t122*t52*t5
3310     4         3-1.2500161111805136d-6*gammaaa*t119*t123*t44*t51-1.25001
3311     5         61111805136d-6*t119*t47*t48/rhoa**1.0333333333333333d+1)-
3312     6         3.1250402779512837d-7*t56*t63*t88-1.120356d-2*t111*t50*t7
3313     7         7+8.367983778239998d-5*t113*t66*t76)*wght+Mmat3(iq,D3_TA_
3314     8         TA_TA)
3315            Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB)
3316          endif ! rhoa.gt.tol_rho
3317        else  ! ipol.eq.1
3318          rhoa    = rho(iq,R_A)
3319          rhob    = rho(iq,R_B)
3320          gammaaa = rgamma(iq,G_AA)
3321          gammaab = rgamma(iq,G_AB)
3322          gammabb = rgamma(iq,G_BB)
3323          taua    = tau(iq,T_A)
3324          taub    = tau(iq,T_B)
3325          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
3326            t1 = 1/rhoa**2.6666666666666666d+0
3327            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
3328            t3 = 1/t2
3329            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
3330            t5 = rhoa**1.3333333333333333d+0
3331            t6 = param(7)
3332            t7 = param(18)
3333            t8 = rhoa**1.6666666666666669d+0
3334            t9 = 9.115599744691192d+0*t8
3335            t10 = t9-2.0d+0*taua
3336            t11 = t10**11
3337            t12 = 2.0d+0*taua+t9
3338            t13 = 1/t12**11
3339            t14 = param(17)
3340            t15 = t10**10
3341            t16 = 1/t12**10
3342            t17 = param(16)
3343            t18 = t10**9
3344            t19 = 1/t12**9
3345            t20 = param(15)
3346            t21 = t10**8
3347            t22 = 1/t12**8
3348            t23 = param(14)
3349            t24 = t10**7
3350            t25 = 1/t12**7
3351            t26 = param(13)
3352            t27 = t10**6
3353            t28 = 1/t12**6
3354            t29 = param(12)
3355            t30 = t10**5
3356            t31 = 1/t12**5
3357            t32 = param(11)
3358            t33 = t10**4
3359            t34 = 1/t12**4
3360            t35 = param(10)
3361            t36 = t10**3
3362            t37 = 1/t12**3
3363            t38 = param(9)
3364            t39 = t10**2
3365            t40 = 1/t12**2
3366            t41 = param(8)
3367            t42 = 1/t12
3368            t43 = t11*t13*t7+t6+t10*t41*t42+t38*t39*t40+t35*t36*t37+t32*
3369     1         t33*t34+t29*t30*t31+t26*t27*t28+t23*t24*t25+t20*t21*t22+t
3370     2         17*t18*t19+t14*t15*t16
3371            t44 = 1/t8
3372            t45 = 2.0d+0*t44*taua-9.11559972d+0
3373            t46 = 1.86726d-3*t45+1.86726d-3*gammaaa*t1+1.0d+0
3374            t47 = 1/t46
3375            t48 = param(1)
3376            t49 = param(4)
3377            t50 = gammaaa**2
3378            t51 = 1/rhoa**5.333333333333333d+0
3379            t52 = 1/t46**2
3380            t53 = param(5)
3381            t54 = param(6)
3382            t55 = t45**2
3383            t56 = param(2)
3384            t57 = param(3)
3385            t58 = t45*t47*t57+gammaaa*t1*t47*t56+t52*t54*t55+gammaaa*t1*
3386     1         t45*t52*t53+t49*t50*t51*t52+t48
3387            t59 = 1/rhob**2.6666666666666666d+0
3388            t60 = 4.49276922095889d-3*gammabb*t59+1.0d+0
3389            t61 = 1/t60
3390            t62 = 3.6121864536509485d-3*gammabb*t59*t61+1.0d+0
3391            t63 = rhob**1.3333333333333333d+0
3392            t64 = rhob**1.6666666666666669d+0
3393            t65 = 9.115599744691192d+0*t64
3394            t66 = t65-2.0d+0*taub
3395            t67 = t66**11
3396            t68 = 2.0d+0*taub+t65
3397            t69 = 1/t68**11
3398            t70 = t66**10
3399            t71 = 1/t68**10
3400            t72 = t66**9
3401            t73 = 1/t68**9
3402            t74 = t66**8
3403            t75 = 1/t68**8
3404            t76 = t66**7
3405            t77 = 1/t68**7
3406            t78 = t66**6
3407            t79 = 1/t68**6
3408            t80 = t66**5
3409            t81 = 1/t68**5
3410            t82 = t66**4
3411            t83 = 1/t68**4
3412            t84 = t66**3
3413            t85 = 1/t68**3
3414            t86 = t66**2
3415            t87 = 1/t68**2
3416            t88 = 1/t68
3417            t89 = t41*t66*t88+t38*t86*t87+t35*t84*t85+t32*t82*t83+t29*t8
3418     1         0*t81+t26*t78*t79+t23*t76*t77+t20*t74*t75+t17*t72*t73+t14
3419     2         *t70*t71+t67*t69*t7+t6
3420            t90 = 1/t64
3421            t91 = 2.0d+0*t90*taub-9.11559972d+0
3422            t92 = 1.86726d-3*t91+1.86726d-3*gammabb*t59+1.0d+0
3423            t93 = 1/t92
3424            t94 = gammabb**2
3425            t95 = 1/rhob**5.333333333333333d+0
3426            t96 = 1/t92**2
3427            t97 = t91**2
3428            t98 = t54*t96*t97+t49*t94*t95*t96+gammabb*t53*t59*t91*t96+t5
3429     1         7*t91*t93+gammabb*t56*t59*t93+t48
3430            t99 = rhoa**6.666666666666666d-1
3431            t100 = 1/t12**12
3432            t101 = 1.6711932865267184d+2*t13*t15*t7*t99-1.67119328652671
3433     1         84d+2*t100*t11*t7*t99+1.5192666241151986d+1*t41*t42*t99-1
3434     2         .5192666241151986d+1*t10*t40*t41*t99+3.038533248230397d+1
3435     3         *t10*t38*t40*t99-3.038533248230397d+1*t37*t38*t39*t99+4.5
3436     4         577998723455965d+1*t35*t37*t39*t99-4.5577998723455965d+1*
3437     5         t34*t35*t36*t99+6.077066496460795d+1*t32*t34*t36*t99-6.07
3438     6         7066496460795d+1*t31*t32*t33*t99+7.596333120575993d+1*t29
3439     7         *t31*t33*t99-7.596333120575993d+1*t28*t29*t30*t99+9.11559
3440     8         9744691193d+1*t26*t28*t30*t99-9.115599744691193d+1*t25*t2
3441     9         6*t27*t99+1.0634866368806391d+2*t23*t25*t27*t99-1.0634866
3442     :         368806391d+2*t22*t23*t24*t99+1.2154132992921589d+2*t20*t2
3443     ;         2*t24*t99-1.2154132992921589d+2*t19*t20*t21*t99+1.3673399
3444     <         617036788d+2*t17*t19*t21*t99-1.3673399617036788d+2*t16*t1
3445     =         7*t18*t99+1.5192666241151986d+2*t14*t16*t18*t99-1.5192666
3446     >         241151986d+2*t13*t14*t15*t99
3447            t102 = rhoa**3.333333333333333d-1
3448            t103 = 1/t2**2
3449            t104 = 1/rhoa**6.333333333333333d+0
3450            t105 = 1/rhoa**3.6666666666666664d+0
3451            t106 = 4.327658698487368d-5*t103*t104*t50-9.632497209735863d
3452     1         -3*gammaaa*t105*t3
3453            t107 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t105
3454            t108 = 1/t46**3
3455            t109 = -3.3333333333333337d+0*t1*t47*t57*taua-6.666666666666
3456     1         667d+0*t1*t45*t52*t54*taua-3.3333333333333337d+0*gammaaa*
3457     2         t51*t52*t53*taua-t107*t45*t52*t57-gammaaa*t1*t107*t52*t56
3458     3         -2.6666666666666666d+0*gammaaa*t105*t47*t56-2*t107*t108*t
3459     4         54*t55-2.6666666666666666d+0*gammaaa*t105*t45*t52*t53-2*g
3460     5         ammaaa*t1*t107*t108*t45*t53-5.333333333333333d+0*t104*t49
3461     6         *t50*t52-2*t107*t108*t49*t50*t51
3462            t110 = 1.3333333333333333d+0*t102*t58+1.0d+0*t109*t5
3463            t111 = rhob**6.666666666666666d-1
3464            t112 = 1/t68**12
3465            t113 = 1.5192666241151986d+1*t111*t41*t88-1.5192666241151986
3466     1         d+1*t111*t41*t66*t87+3.038533248230397d+1*t111*t38*t66*t8
3467     2         7-3.038533248230397d+1*t111*t38*t85*t86+4.557799872345596
3468     3         5d+1*t111*t35*t85*t86-4.5577998723455965d+1*t111*t35*t83*
3469     4         t84+6.077066496460795d+1*t111*t32*t83*t84-6.0770664964607
3470     5         95d+1*t111*t32*t81*t82+7.596333120575993d+1*t111*t29*t81*
3471     6         t82-7.596333120575993d+1*t111*t29*t79*t80+9.1155997446911
3472     7         93d+1*t111*t26*t79*t80-9.115599744691193d+1*t111*t26*t77*
3473     8         t78+1.0634866368806391d+2*t111*t23*t77*t78-1.063486636880
3474     9         6391d+2*t111*t23*t75*t76+1.2154132992921589d+2*t111*t20*t
3475     :         75*t76-1.2154132992921589d+2*t111*t20*t73*t74+1.367339961
3476     ;         7036788d+2*t111*t17*t73*t74-1.3673399617036788d+2*t111*t1
3477     <         7*t71*t72+1.5192666241151986d+2*t111*t14*t71*t72+1.671193
3478     =         2865267184d+2*t111*t69*t7*t70-1.5192666241151986d+2*t111*
3479     >         t14*t69*t70-1.6711932865267184d+2*t111*t112*t67*t7
3480            t114 = rhob**3.333333333333333d-1
3481            t115 = 1/t60**2
3482            t116 = 1/rhob**6.333333333333333d+0
3483            t117 = 1/rhob**3.6666666666666664d+0
3484            t118 = 4.327658698487368d-5*t115*t116*t94-9.632497209735863d
3485     1         -3*gammabb*t117*t61
3486            t119 = -6.2242d-3*t59*taub-4.9793599999999993d-3*gammabb*t11
3487     1         7
3488            t120 = 1/t92**3
3489            t121 = -3.3333333333333337d+0*gammabb*t53*t95*t96*taub-6.666
3490     1         666666666667d+0*t54*t59*t91*t96*taub-3.3333333333333337d+
3491     2         0*t57*t59*t93*taub-2*t119*t120*t54*t97-5.333333333333333d
3492     3         +0*t116*t49*t94*t96-t119*t57*t91*t96-2.6666666666666666d+
3493     4         0*gammabb*t117*t53*t91*t96-gammabb*t119*t56*t59*t96-2*t11
3494     5         9*t120*t49*t94*t95-2.6666666666666666d+0*gammabb*t117*t56
3495     6         *t93-2*gammabb*t119*t120*t53*t59*t91
3496            t122 = 1.3333333333333333d+0*t114*t98+1.0d+0*t121*t63
3497            t123 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gam
3498     1         maaa*t103*t51
3499            t124 = 1/rhoa**8
3500            t125 = -1.86726d-3*t1*t45*t52*t57-1.86726d-3*gammaaa*t51*t52
3501     1         *t56+t1*t47*t56-3.73452d-3*t1*t108*t54*t55+t1*t45*t52*t53
3502     2         -3.73452d-3*gammaaa*t108*t45*t51*t53+2*gammaaa*t49*t51*t5
3503     3         2-3.73452d-3*t108*t124*t49*t50
3504            t126 = 1/t5
3505            t127 = 3.6121864536509485d-3*t59*t61-1.6228720119327628d-5*g
3506     1         ammabb*t115*t95
3507            t128 = 1/rhob**8
3508            t129 = -3.73452d-3*t120*t54*t59*t97-1.86726d-3*gammabb*t56*t
3509     1         95*t96+2*gammabb*t49*t95*t96-1.86726d-3*t57*t59*t91*t96+t
3510     2         53*t59*t91*t96-3.73452d-3*gammabb*t120*t53*t91*t95-3.7345
3511     3         2d-3*t120*t128*t49*t94+t56*t59*t93
3512            t130 = 1/t63
3513            t131 = -2.2d+1*t13*t15*t7-2.2d+1*t100*t11*t7-2.0d+0*t41*t42-
3514     1         2.0d+0*t10*t40*t41-4.0d+0*t10*t38*t40-4.0d+0*t37*t38*t39-
3515     2         6.0d+0*t35*t37*t39-6.0d+0*t34*t35*t36-8.0d+0*t32*t34*t36-
3516     3         8.0d+0*t31*t32*t33-1.0d+1*t29*t31*t33-1.0d+1*t28*t29*t30-
3517     4         1.2d+1*t26*t28*t30-1.2d+1*t25*t26*t27-1.4d+1*t23*t25*t27-
3518     5         1.4d+1*t22*t23*t24-1.6d+1*t20*t22*t24-1.6d+1*t19*t20*t21-
3519     6         1.8d+1*t17*t19*t21-1.8d+1*t16*t17*t18-2.0d+1*t14*t16*t18-
3520     7         2.0d+1*t13*t14*t15
3521            t132 = 1/rhoa**7
3522            t133 = 1/rhoa**4.333333333333333d+0
3523            t134 = -3.73452d-3*t44*t45*t52*t57+2.0d+0*t44*t47*t57-3.7345
3524     1         2d-3*gammaaa*t133*t52*t56-7.46904d-3*t108*t44*t54*t55+4.0
3525     2         d+0*t44*t45*t52*t54+2.0d+0*gammaaa*t133*t52*t53-7.46904d-
3526     3         3*gammaaa*t108*t133*t45*t53-7.46904d-3*t108*t132*t49*t50
3527            t135 = 1/t102
3528            t136 = -2.0d+0*t41*t88-2.0d+0*t41*t66*t87-4.0d+0*t38*t66*t87
3529     1         -4.0d+0*t38*t85*t86-6.0d+0*t35*t85*t86-6.0d+0*t35*t83*t84
3530     2         -8.0d+0*t32*t83*t84-8.0d+0*t32*t81*t82-1.0d+1*t29*t81*t82
3531     3         -1.0d+1*t29*t79*t80-1.2d+1*t26*t79*t80-1.2d+1*t26*t77*t78
3532     4         -1.4d+1*t23*t77*t78-1.4d+1*t23*t75*t76-1.6d+1*t20*t75*t76
3533     5         -1.6d+1*t20*t73*t74-1.8d+1*t17*t73*t74-1.8d+1*t17*t71*t72
3534     6         -2.0d+1*t14*t71*t72-2.2d+1*t69*t7*t70-2.0d+1*t14*t69*t70-
3535     7         2.2d+1*t112*t67*t7
3536            t137 = 1/rhob**7
3537            t138 = 1/rhob**4.333333333333333d+0
3538            t139 = -7.46904d-3*t120*t54*t90*t97-3.73452d-3*t57*t90*t91*t
3539     1         96+4.0d+0*t54*t90*t91*t96-3.73452d-3*gammabb*t138*t56*t96
3540     2         +2.0d+0*gammabb*t138*t53*t96-7.46904d-3*t120*t137*t49*t94
3541     3         +2.0d+0*t57*t90*t93-7.46904d-3*gammabb*t120*t138*t53*t91
3542            t140 = 1/t114
3543            t141 = 1/t12**13
3544            t142 = 2.5389881826654315d+4*t13*t18*t5*t7-5.585774001863949
3545     1         d+4*t100*t15*t5*t7+3.046785819198518d+4*t11*t141*t5*t7+1.
3546     2         1141288576844789d+2*t13*t135*t15*t7-1.1141288576844789d+2
3547     3         *t100*t11*t135*t7-4.6163421503007845d+2*t40*t41*t5+4.6163
3548     4         421503007845d+2*t10*t37*t41*t5+4.6163421503007845d+2*t38*
3549     5         t40*t5+1.3849026450902355d+3*t34*t38*t39*t5-4.15470793527
3550     6         07067d+3*t34*t35*t39*t5+2.769805290180471d+3*t32*t34*t39*
3551     7         t5-1.846536860120314d+3*t10*t37*t38*t5+1.3849026450902355
3552     8         d+3*t10*t35*t37*t5+2.769805290180471d+3*t31*t35*t36*t5-7.
3553     9         386147440481255d+3*t31*t32*t36*t5+4.616342150300784d+3*t2
3554     :         9*t31*t36*t5+4.616342150300784d+3*t28*t32*t33*t5-1.154085
3555     ;         537575196d+4*t28*t29*t33*t5+6.924513225451178d+3*t26*t28*
3556     <         t33*t5+6.924513225451178d+3*t25*t29*t30*t5-1.661883174108
3557     =         283d+4*t25*t26*t30*t5+9.694318515631648d+3*t23*t25*t30*t5
3558     >         +9.694318515631648d+3*t22*t26*t27*t5-2.2620076536473846d+
3559     ?         4*t22*t23*t27*t5+1.2925758020842196d+4*t20*t22*t27*t5+1.2
3560     @         925758020842196d+4*t19*t23*t24*t5-2.954458976192502d+4*t1
3561     1         9*t20*t24*t5+1.6618831741082823d+4*t17*t19*t24*t5+1.66188
3562     2         31741082823d+4*t16*t20*t21*t5-3.7392371417436354d+4*t16*t
3563     3         17*t21*t5+2.0773539676353528d+4*t14*t16*t21*t5+2.07735396
3564     4         76353528d+4*t13*t17*t18*t5-4.616342150300784d+4*t13*t14*t
3565     5         18*t5+2.5389881826654315d+4*t100*t14*t15*t5+1.01284441607
3566     6         67991d+1*t135*t41*t42-1.0128444160767991d+1*t10*t135*t40*
3567     7         t41+2.0256888321535982d+1*t10*t135*t38*t40-2.025688832153
3568     8         5982d+1*t135*t37*t38*t39+3.038533248230397d+1*t135*t35*t3
3569     9         7*t39-3.038533248230397d+1*t135*t34*t35*t36+4.05137766430
3570     :         71964d+1*t135*t32*t34*t36-4.0513776643071964d+1*t135*t31*
3571     ;         t32*t33+5.064222080383994d+1*t135*t29*t31*t33-5.064222080
3572     <         383994d+1*t135*t28*t29*t30+6.077066496460795d+1*t135*t26*
3573     =         t28*t30-6.077066496460795d+1*t135*t25*t26*t27+7.089910912
3574     >         537593d+1*t135*t23*t25*t27-7.089910912537593d+1*t135*t22*
3575     ?         t23*t24+8.102755328614393d+1*t135*t20*t22*t24-8.102755328
3576     @         614393d+1*t135*t19*t20*t21+9.115599744691191d+1*t135*t17*
3577     1         t19*t21-9.115599744691191d+1*t135*t16*t17*t18+1.012844416
3578     2         076799d+2*t135*t14*t16*t18-1.012844416076799d+2*t13*t135*
3579     3         t14*t15
3580            t143 = 1/t99
3581            t144 = gammaaa**3
3582            t145 = 1/t2**3
3583            t146 = 1/rhoa**10
3584            t147 = 1/rhoa**7.333333333333333d+0
3585            t148 = 1/rhoa**4.666666666666667d+0
3586            t149 = -3.8948928286386303d-4*t103*t147*t50+3.53191564356981
3587     1         6d-2*gammaaa*t148*t3+1.0369691626335495d-6*t144*t145*t146
3588            t150 = t107**2
3589            t151 = 1/t46**4
3590            t152 = 1.6597866666666666d-2*t105*taua+1.8257653333333332d-2
3591     1         *gammaaa*t148
3592            t153 = taua**2
3593            t154 = 6.666666666666667d+0*t1*t107*t52*t57*taua+8.888888888
3594     1         88889d+0*t105*t47*t57*taua+1.7777777777777778d+1*t105*t45
3595     2         *t52*t54*taua+2.6666666666666666d+1*t1*t107*t108*t45*t54*
3596     3         taua+2.6666666666666666d+1*gammaaa*t104*t52*t53*taua+1.33
3597     4         33333333333333d+1*gammaaa*t107*t108*t51*t53*taua-t152*t45
3598     5         *t52*t57+2*t108*t150*t45*t57-gammaaa*t1*t152*t52*t56+5.33
3599     6         3333333333333d+0*gammaaa*t105*t107*t52*t56+9.777777777777
3600     7         779d+0*gammaaa*t148*t47*t56+2*gammaaa*t1*t108*t150*t56-2*
3601     8         t108*t152*t54*t55+6*t150*t151*t54*t55+2.2222222222222224d
3602     9         +1*t153*t51*t52*t54+9.777777777777779d+0*gammaaa*t148*t45
3603     :         *t52*t53-2*gammaaa*t1*t108*t152*t45*t53+6*gammaaa*t1*t150
3604     ;         *t151*t45*t53+1.0666666666666666d+1*gammaaa*t105*t107*t10
3605     <         8*t45*t53+3.377777777777778d+1*t147*t49*t50*t52-2*t108*t1
3606     =         52*t49*t50*t51+6*t150*t151*t49*t50*t51+2.1333333333333332
3607     >         d+1*t104*t107*t108*t49*t50
3608            t155 = 4.444444444444444d-1*t143*t58+1.0d+0*t154*t5+2.666666
3609     1         6666666666d+0*t102*t109
3610            t156 = -1.0d+0*t152*t5*t58-1.3333333333333333d+0*t102*t107*t
3611     1         58-1.0d+0*t107*t109*t5-t107*t110
3612            t157 = 1/t68**13
3613            t158 = 1.0128444160767991d+1*t140*t41*t88-1.0128444160767991
3614     1         d+1*t140*t41*t66*t87+2.0256888321535982d+1*t140*t38*t66*t
3615     2         87-4.6163421503007845d+2*t41*t63*t87+4.6163421503007845d+
3616     3         2*t38*t63*t87-2.0256888321535982d+1*t140*t38*t85*t86+3.03
3617     4         8533248230397d+1*t140*t35*t85*t86+1.3849026450902355d+3*t
3618     5         38*t63*t83*t86-4.1547079352707067d+3*t35*t63*t83*t86+2.76
3619     6         9805290180471d+3*t32*t63*t83*t86+4.6163421503007845d+2*t4
3620     7         1*t63*t66*t85-1.846536860120314d+3*t38*t63*t66*t85+1.3849
3621     8         026450902355d+3*t35*t63*t66*t85-3.038533248230397d+1*t140
3622     9         *t35*t83*t84+4.0513776643071964d+1*t140*t32*t83*t84+2.769
3623     :         805290180471d+3*t35*t63*t81*t84-7.386147440481255d+3*t32*
3624     ;         t63*t81*t84+4.616342150300784d+3*t29*t63*t81*t84-4.051377
3625     <         6643071964d+1*t140*t32*t81*t82+5.064222080383994d+1*t140*
3626     =         t29*t81*t82+4.616342150300784d+3*t32*t63*t79*t82-1.154085
3627     >         537575196d+4*t29*t63*t79*t82+6.924513225451178d+3*t26*t63
3628     ?         *t79*t82-5.064222080383994d+1*t140*t29*t79*t80+6.07706649
3629     @         6460795d+1*t140*t26*t79*t80+6.924513225451178d+3*t29*t63*
3630     1         t77*t80-1.661883174108283d+4*t26*t63*t77*t80+9.6943185156
3631     2         31648d+3*t23*t63*t77*t80-6.077066496460795d+1*t140*t26*t7
3632     3         7*t78+7.089910912537593d+1*t140*t23*t77*t78+9.69431851563
3633     4         1648d+3*t26*t63*t75*t78-2.2620076536473846d+4*t23*t63*t75
3634     5         *t78+1.2925758020842196d+4*t20*t63*t75*t78-7.089910912537
3635     6         593d+1*t140*t23*t75*t76+8.102755328614393d+1*t140*t20*t75
3636     7         *t76+1.2925758020842196d+4*t23*t63*t73*t76-2.954458976192
3637     8         502d+4*t20*t63*t73*t76+1.6618831741082823d+4*t17*t63*t73*
3638     9         t76-8.102755328614393d+1*t140*t20*t73*t74+9.1155997446911
3639     :         91d+1*t140*t17*t73*t74+1.6618831741082823d+4*t20*t63*t71*
3640     ;         t74-3.7392371417436354d+4*t17*t63*t71*t74+2.0773539676353
3641     <         528d+4*t14*t63*t71*t74-9.115599744691191d+1*t140*t17*t71*
3642     =         t72+1.012844416076799d+2*t14*t140*t71*t72+2.5389881826654
3643     >         315d+4*t63*t69*t7*t72+2.0773539676353528d+4*t17*t63*t69*t
3644     ?         72-4.616342150300784d+4*t14*t63*t69*t72+1.114128857684478
3645     @         9d+2*t140*t69*t7*t70-5.585774001863949d+4*t112*t63*t7*t70
3646     1         -1.012844416076799d+2*t14*t140*t69*t70+2.5389881826654315
3647     2         d+4*t112*t14*t63*t70+3.046785819198518d+4*t157*t63*t67*t7
3648     3         -1.1141288576844789d+2*t112*t140*t67*t7
3649            t159 = 1/t111
3650            t160 = gammabb**3
3651            t161 = 1/t60**3
3652            t162 = 1/rhob**10
3653            t163 = 1/rhob**7.333333333333333d+0
3654            t164 = 1/rhob**4.666666666666667d+0
3655            t165 = -3.8948928286386303d-4*t115*t163*t94+3.53191564356981
3656     1         6d-2*gammabb*t164*t61+1.0369691626335495d-6*t160*t161*t16
3657     2         2
3658            t166 = t119**2
3659            t167 = 1/t92**4
3660            t168 = 1.6597866666666666d-2*t117*taub+1.8257653333333332d-2
3661     1         *gammabb*t164
3662            t169 = taub**2
3663            t170 = 1.7777777777777778d+1*t117*t54*t91*t96*taub+6.6666666
3664     1         66666667d+0*t119*t57*t59*t96*taub+2.6666666666666666d+1*g
3665     2         ammabb*t116*t53*t96*taub+1.3333333333333333d+1*gammabb*t1
3666     3         19*t120*t53*t95*taub+8.88888888888889d+0*t117*t57*t93*tau
3667     4         b+2.6666666666666666d+1*t119*t120*t54*t59*t91*taub-2*t120
3668     5         *t168*t54*t97+6*t166*t167*t54*t97+2.2222222222222224d+1*t
3669     6         169*t54*t95*t96+3.377777777777778d+1*t163*t49*t94*t96-t16
3670     7         8*t57*t91*t96+9.777777777777779d+0*gammabb*t164*t53*t91*t
3671     8         96-gammabb*t168*t56*t59*t96+5.333333333333333d+0*gammabb*
3672     9         t117*t119*t56*t96-2*t120*t168*t49*t94*t95+6*t166*t167*t49
3673     :         *t94*t95+2.1333333333333332d+1*t116*t119*t120*t49*t94+9.7
3674     ;         77777777777779d+0*gammabb*t164*t56*t93-2*gammabb*t120*t16
3675     <         8*t53*t59*t91+6*gammabb*t166*t167*t53*t59*t91+2*t120*t166
3676     =         *t57*t91+1.0666666666666666d+1*gammabb*t117*t119*t120*t53
3677     >         *t91+2*gammabb*t120*t166*t56*t59
3678            t171 = 4.444444444444444d-1*t159*t98+1.0d+0*t170*t63+2.66666
3679     1         66666666666d+0*t114*t121
3680            t172 = -1.0d+0*t168*t63*t98-1.3333333333333333d+0*t114*t119*
3681     1         t98-1.0d+0*t119*t121*t63-t119*t122
3682            t173 = 1/rhoa**9
3683            t174 = -3.8886343598758105d-7*t145*t173*t50-9.63249720973586
3684     1         3d-3*t105*t3+1.29829760954621d-4*gammaaa*t103*t104
3685            t175 = 1/rhoa**2.3333333333333334d+0
3686            t176 = 6.2242d-3*t51*t52*t57*taua+2.48968d-2*t108*t45*t51*t5
3687     1         4*taua-3.3333333333333337d+0*t51*t52*t53*taua+1.24484d-2*
3688     2         gammaaa*t108*t124*t53*taua+4.9793599999999993d-3*t105*t45
3689     3         *t52*t57+3.73452d-3*t1*t107*t108*t45*t57-t1*t107*t52*t56+
3690     4         9.958719999999999d-3*gammaaa*t104*t52*t56+3.73452d-3*gamm
3691     5         aaa*t107*t108*t51*t56-2.6666666666666666d+0*t105*t47*t56+
3692     6         1.120356d-2*t1*t107*t151*t54*t55+9.958719999999999d-3*t10
3693     7         5*t108*t54*t55-2.6666666666666666d+0*t105*t45*t52*t53+1.1
3694     8         20356d-2*gammaaa*t107*t151*t45*t51*t53-2*t1*t107*t108*t45
3695     9         *t53+1.9917439999999997d-2*gammaaa*t104*t108*t45*t53-1.06
3696     :         66666666666666d+1*gammaaa*t104*t49*t52-4*gammaaa*t107*t10
3697     ;         8*t49*t51+2.9876159999999996d-2*t108*t173*t49*t50+1.12035
3698     <         6d-2*t107*t124*t151*t49*t50
3699            t177 = 1.0d+0*t176*t5+1.3333333333333333d+0*t102*t125
3700            t178 = 1/rhob**9
3701            t179 = -3.8886343598758105d-7*t161*t178*t94-9.63249720973586
3702     1         3d-3*t117*t61+1.29829760954621d-4*gammabb*t115*t116
3703            t180 = 1/rhob**2.3333333333333334d+0
3704            t181 = 6.2242d-3*t57*t95*t96*taub-3.3333333333333337d+0*t53*
3705     1         t95*t96*taub+2.48968d-2*t120*t54*t91*t95*taub+1.24484d-2*
3706     2         gammabb*t120*t128*t53*taub+1.120356d-2*t119*t167*t54*t59*
3707     3         t97+9.958719999999999d-3*t117*t120*t54*t97+4.979359999999
3708     4         9993d-3*t117*t57*t91*t96-2.6666666666666666d+0*t117*t53*t
3709     5         91*t96-t119*t56*t59*t96+9.958719999999999d-3*gammabb*t116
3710     6         *t56*t96-1.0666666666666666d+1*gammabb*t116*t49*t96+1.120
3711     7         356d-2*gammabb*t119*t167*t53*t91*t95+3.73452d-3*gammabb*t
3712     8         119*t120*t56*t95-4*gammabb*t119*t120*t49*t95+2.9876159999
3713     9         999996d-2*t120*t178*t49*t94+1.120356d-2*t119*t128*t167*t4
3714     :         9*t94-2.6666666666666666d+0*t117*t56*t93+3.73452d-3*t119*
3715     ;         t120*t57*t59*t91-2*t119*t120*t53*t59*t91+1.99174399999999
3716     <         97d-2*gammabb*t116*t120*t53*t91
3717            t182 = 1.0d+0*t181*t63+1.3333333333333333d+0*t114*t129
3718            t183 = 1.4582378849534292d-7*gammaaa*t124*t145-3.24574402386
3719     1         55255d-5*t103*t51
3720            t184 = 1/rhoa**1.0666666666666666d+1
3721            t185 = 6.973319815199999d-6*t108*t45*t51*t57-3.73452d-3*t51*
3722     1         t52*t56+6.973319815199999d-6*gammaaa*t108*t124*t56+2.0919
3723     2         959445599998d-5*t151*t51*t54*t55-7.46904d-3*t108*t45*t51*
3724     3         t53+2.0919959445599998d-5*gammaaa*t124*t151*t45*t53+2*t49
3725     4         *t51*t52+2.0919959445599998d-5*t151*t184*t49*t50-1.493807
3726     5         9999999998d-2*gammaaa*t108*t124*t49
3727            t186 = 1/rhoa**4
3728            t187 = 1.4582378849534292d-7*gammabb*t128*t161-3.24574402386
3729     1         55255d-5*t115*t95
3730            t188 = 1/rhob**1.0666666666666666d+1
3731            t189 = 2.0919959445599998d-5*t167*t54*t95*t97-3.73452d-3*t56
3732     1         *t95*t96+2*t49*t95*t96+6.973319815199999d-6*t120*t57*t91*
3733     2         t95-7.46904d-3*t120*t53*t91*t95+2.0919959445599998d-5*t16
3734     3         7*t188*t49*t94+2.0919959445599998d-5*gammabb*t128*t167*t5
3735     4         3*t91+6.973319815199999d-6*gammabb*t120*t128*t56-1.493807
3736     5         9999999998d-2*gammabb*t120*t128*t49
3737            t190 = 1/rhob**4
3738            t191 = -3.342386573053437d+3*t13*t18*t7*t99+4.01086388766412
3739     1         45d+3*t11*t141*t7*t99+6.077066496460795d+1*t10*t37*t41*t9
3740     2         9-6.077066496460795d+1*t38*t40*t99+1.8231199489382385d+2*
3741     3         t34*t38*t39*t99-3.646239897876477d+2*t32*t34*t39*t99-1.82
3742     4         31199489382385d+2*t10*t35*t37*t99+3.646239897876477d+2*t3
3743     5         1*t35*t36*t99-6.077066496460795d+2*t29*t31*t36*t99+6.0770
3744     6         66496460795d+2*t28*t32*t33*t99-9.115599744691192d+2*t26*t
3745     7         28*t33*t99+9.115599744691192d+2*t25*t29*t30*t99-1.2761839
3746     8         64256767d+3*t23*t25*t30*t99+1.276183964256767d+3*t22*t26*
3747     9         t27*t99-1.7015786190090226d+3*t20*t22*t27*t99+1.701578619
3748     :         0090226d+3*t19*t23*t24*t99-2.187743938725886d+3*t17*t19*t
3749     ;         24*t99+2.187743938725886d+3*t16*t20*t21*t99-2.73467992340
3750     <         7357d+3*t14*t16*t21*t99+2.734679923407357d+3*t13*t17*t18*
3751     =         t99+3.342386573053437d+3*t100*t14*t15*t99
3752            t192 = 1.24484d-2*t133*t52*t57*taua-1.3333333333333333d+1*t1
3753     1         33*t52*t54*taua+4.97936d-2*t108*t133*t45*t54*taua+2.48968
3754     2         d-2*gammaaa*t108*t132*t53*taua+6.2242d-3*t1*t45*t52*t57-2
3755     3         .0d+0*t107*t44*t52*t57-3.3333333333333337d+0*t1*t47*t57+7
3756     4         .46904d-3*t107*t108*t44*t45*t57+1.618292d-2*gammaaa*t51*t
3757     5         52*t56+7.46904d-3*gammaaa*t107*t108*t133*t56+2.240712d-2*
3758     6         t107*t151*t44*t54*t55+1.24484d-2*t1*t108*t54*t55-6.666666
3759     7         666666667d+0*t1*t45*t52*t54-8.0d+0*t107*t108*t44*t45*t54-
3760     8         8.666666666666666d+0*gammaaa*t51*t52*t53+3.236584d-2*gamm
3761     9         aaa*t108*t45*t51*t53+2.240712d-2*gammaaa*t107*t133*t151*t
3762     :         45*t53-4.0d+0*gammaaa*t107*t108*t133*t53+2.240712d-2*t107
3763     ;         *t132*t151*t49*t50+5.228328d-2*t108*t124*t49*t50
3764            t193 = 1.0d+0*t192*t5+1.3333333333333333d+0*t102*t134
3765            t194 = -6.077066496460795d+1*t111*t38*t87+1.8231199489382385
3766     1         d+2*t111*t38*t83*t86-3.646239897876477d+2*t111*t32*t83*t8
3767     2         6+6.077066496460795d+1*t111*t41*t66*t85-1.823119948938238
3768     3         5d+2*t111*t35*t66*t85+3.646239897876477d+2*t111*t35*t81*t
3769     4         84-6.077066496460795d+2*t111*t29*t81*t84+6.07706649646079
3770     5         5d+2*t111*t32*t79*t82-9.115599744691192d+2*t111*t26*t79*t
3771     6         82+9.115599744691192d+2*t111*t29*t77*t80-1.27618396425676
3772     7         7d+3*t111*t23*t77*t80+1.276183964256767d+3*t111*t26*t75*t
3773     8         78-1.7015786190090226d+3*t111*t20*t75*t78+1.7015786190090
3774     9         226d+3*t111*t23*t73*t76-2.187743938725886d+3*t111*t17*t73
3775     :         *t76+2.187743938725886d+3*t111*t20*t71*t74-2.734679923407
3776     ;         357d+3*t111*t14*t71*t74-3.342386573053437d+3*t111*t69*t7*
3777     <         t72+2.734679923407357d+3*t111*t17*t69*t72+3.3423865730534
3778     =         37d+3*t111*t112*t14*t70+4.0108638876641245d+3*t111*t157*t
3779     >         67*t7
3780            t195 = 1.24484d-2*t138*t57*t96*taub-1.3333333333333333d+1*t1
3781     1         38*t54*t96*taub+4.97936d-2*t120*t138*t54*t91*taub+2.48968
3782     2         d-2*gammabb*t120*t137*t53*taub+2.240712d-2*t119*t167*t54*
3783     3         t90*t97+1.24484d-2*t120*t54*t59*t97+1.618292d-2*gammabb*t
3784     4         56*t95*t96-8.666666666666666d+0*gammabb*t53*t95*t96+6.224
3785     5         2d-3*t57*t59*t91*t96-6.666666666666667d+0*t54*t59*t91*t96
3786     6         -2.0d+0*t119*t57*t90*t96+3.236584d-2*gammabb*t120*t53*t91
3787     7         *t95+2.240712d-2*t119*t137*t167*t49*t94+5.228328d-2*t120*
3788     8         t128*t49*t94-3.3333333333333337d+0*t57*t59*t93+7.46904d-3
3789     9         *t119*t120*t57*t90*t91-8.0d+0*t119*t120*t54*t90*t91+2.240
3790     :         712d-2*gammabb*t119*t138*t167*t53*t91+7.46904d-3*gammabb*
3791     ;         t119*t120*t138*t56-4.0d+0*gammabb*t119*t120*t138*t53
3792            t196 = 1.0d+0*t195*t63+1.3333333333333333d+0*t114*t139
3793            t197 = 1/rhoa**9.666666666666666d+0
3794            t198 = -3.73452d-3*t133*t52*t57+1.3946639630399998d-5*t108*t
3795     1         133*t45*t57-3.73452d-3*t133*t52*t56+1.3946639630399998d-5
3796     2         *gammaaa*t108*t132*t56+4.1839918891199995d-5*t133*t151*t5
3797     3         4*t55-1.4938079999999998d-2*t108*t133*t45*t54+2.0d+0*t133
3798     4         *t52*t53+4.1839918891199995d-5*gammaaa*t132*t151*t45*t53-
3799     5         7.46904d-3*t108*t133*t45*t53-7.46904d-3*gammaaa*t108*t132
3800     6         *t53+4.1839918891199995d-5*t151*t197*t49*t50-1.4938079999
3801     7         999998d-2*gammaaa*t108*t132*t49
3802            t199 = 1/rhoa**3
3803            t200 = 1/rhob**9.666666666666666d+0
3804            t201 = 4.1839918891199995d-5*t138*t167*t54*t97-3.73452d-3*t1
3805     1         38*t57*t96-3.73452d-3*t138*t56*t96+2.0d+0*t138*t53*t96+4.
3806     2         1839918891199995d-5*t167*t200*t49*t94+1.3946639630399998d
3807     3         -5*t120*t138*t57*t91-1.4938079999999998d-2*t120*t138*t54*
3808     4         t91+4.1839918891199995d-5*gammabb*t137*t167*t53*t91-7.469
3809     5         04d-3*t120*t138*t53*t91+1.3946639630399998d-5*gammabb*t12
3810     6         0*t137*t56-7.46904d-3*gammabb*t120*t137*t53-1.49380799999
3811     7         99998d-2*gammabb*t120*t137*t49
3812            t202 = 1/rhob**3
3813            t203 = 4.4d+2*t13*t18*t7+9.68d+2*t100*t15*t7+5.28d+2*t11*t14
3814     1         1*t7+8.0d+0*t40*t41+8.0d+0*t10*t37*t41+8.0d+0*t38*t40+2.4
3815     2         d+1*t34*t38*t39+7.2d+1*t34*t35*t39+4.8d+1*t32*t34*t39+3.2
3816     3         d+1*t10*t37*t38+2.4d+1*t10*t35*t37+4.8d+1*t31*t35*t36+1.2
3817     4         8d+2*t31*t32*t36+8.0d+1*t29*t31*t36+8.0d+1*t28*t32*t33+2.
3818     5         0d+2*t28*t29*t33+1.2d+2*t26*t28*t33+1.2d+2*t25*t29*t30+2.
3819     6         88d+2*t25*t26*t30+1.68d+2*t23*t25*t30+1.68d+2*t22*t26*t27
3820     7         +3.92d+2*t22*t23*t27+2.24d+2*t20*t22*t27+2.24d+2*t19*t23*
3821     8         t24+5.12d+2*t19*t20*t24+2.88d+2*t17*t19*t24+2.88d+2*t16*t
3822     9         20*t21+6.48d+2*t16*t17*t21+3.6d+2*t14*t16*t21+3.6d+2*t13*
3823     :         t17*t18+8.0d+2*t13*t14*t18+4.4d+2*t100*t14*t15
3824            t204 = 1/rhoa**8.666666666666666d+0
3825            t205 = 1/rhoa**6
3826            t206 = 1/rhoa**3.3333333333333337d+0
3827            t207 = -1.4938079999999998d-2*t206*t52*t57+2.789327926079999
3828     1         7d-5*t108*t206*t45*t57+2.7893279260799997d-5*gammaaa*t108
3829     2         *t205*t56+8.367983778239999d-5*t151*t206*t54*t55+8.0d+0*t
3830     3         206*t52*t54-5.975231999999999d-2*t108*t206*t45*t54+8.3679
3831     4         83778239999d-5*gammaaa*t151*t205*t45*t53-2.98761599999999
3832     5         96d-2*gammaaa*t108*t205*t53+8.367983778239999d-5*t151*t20
3833     6         4*t49*t50
3834            t208 = rhoa**2
3835            t209 = 1/t208
3836            t210 = 8.0d+0*t41*t87+8.0d+0*t38*t87+2.4d+1*t38*t83*t86+7.2d
3837     1         +1*t35*t83*t86+4.8d+1*t32*t83*t86+8.0d+0*t41*t66*t85+3.2d
3838     2         +1*t38*t66*t85+2.4d+1*t35*t66*t85+4.8d+1*t35*t81*t84+1.28
3839     3         d+2*t32*t81*t84+8.0d+1*t29*t81*t84+8.0d+1*t32*t79*t82+2.0
3840     4         d+2*t29*t79*t82+1.2d+2*t26*t79*t82+1.2d+2*t29*t77*t80+2.8
3841     5         8d+2*t26*t77*t80+1.68d+2*t23*t77*t80+1.68d+2*t26*t75*t78+
3842     6         3.92d+2*t23*t75*t78+2.24d+2*t20*t75*t78+2.24d+2*t23*t73*t
3843     7         76+5.12d+2*t20*t73*t76+2.88d+2*t17*t73*t76+2.88d+2*t20*t7
3844     8         1*t74+6.48d+2*t17*t71*t74+3.6d+2*t14*t71*t74+4.4d+2*t69*t
3845     9         7*t72+3.6d+2*t17*t69*t72+8.0d+2*t14*t69*t72+9.68d+2*t112*
3846     :         t7*t70+4.4d+2*t112*t14*t70+5.28d+2*t157*t67*t7
3847            t211 = 1/rhob**8.666666666666666d+0
3848            t212 = 1/rhob**6
3849            t213 = 1/rhob**3.3333333333333337d+0
3850            t214 = 8.367983778239999d-5*t167*t213*t54*t97-1.493807999999
3851     1         9998d-2*t213*t57*t96+8.0d+0*t213*t54*t96+8.36798377823999
3852     2         9d-5*t167*t211*t49*t94+2.7893279260799997d-5*t120*t213*t5
3853     3         7*t91-5.975231999999999d-2*t120*t213*t54*t91+8.3679837782
3854     4         39999d-5*gammabb*t167*t212*t53*t91+2.7893279260799997d-5*
3855     5         gammabb*t120*t212*t56-2.9876159999999996d-2*gammabb*t120*
3856     6         t212*t53
3857            t215 = rhob**2
3858            t216 = 1/t215
3859            t217 = 1/t12**14
3860            t218 = 1/t2**4
3861            t219 = 1/rhoa**8.333333333333334d+0
3862            t220 = 1/rhoa**5.666666666666667d+0
3863            t221 = t107**3
3864            t222 = 1/t46**5
3865            t223 = -6.085884444444444d-2*t148*taua-8.520238222222222d-2*
3866     1         gammaaa*t220
3867            t224 = 1/t68**14
3868            t225 = 1/t60**4
3869            t226 = 1/rhob**8.333333333333334d+0
3870            t227 = 1/rhob**5.666666666666667d+0
3871            t228 = t119**3
3872            t229 = 1/t92**5
3873            t230 = -6.085884444444444d-2*t164*taub-8.520238222222222d-2*
3874     1         gammabb*t227
3875            t231 = 1/rhoa**1.1666666666666665d+1
3876            t232 = 1/rhoa**5
3877            t233 = 1/rhob**1.1666666666666665d+1
3878            t234 = 1/rhob**5
3879            t235 = 1/rhoa**7.666666666666667d+0
3880            t236 = 1/rhob**7.666666666666667d+0
3881            fnc(iq) = (1.0d+0*t63*t93*t98-9.305257363490997d-1*t62*t63*t
3882     1         89+1.0d+0*t47*t5*t58-9.305257363490997d-1*t4*t43*t5)*wght
3883     2         +fnc(iq)
3884            Amat(iq,D1_RA) = (-1.0d+0*t107*t5*t52*t58-9.305257363490997d
3885     1         -1*t106*t43*t5-9.305257363490997d-1*t101*t4*t5+t110*t47-1
3886     2         .2407009817987995d+0*t102*t4*t43)*wght+Amat(iq,D1_RA)
3887            Amat(iq,D1_RB) = (-1.0d+0*t119*t63*t96*t98+t122*t93-9.305257
3888     1         363490997d-1*t118*t63*t89-1.2407009817987995d+0*t114*t62*
3889     2         t89-9.305257363490997d-1*t113*t62*t63)*wght+Amat(iq,D1_RB
3890     3         )
3891            Cmat(iq,D1_GAA) = (-1.86726d-3*t126*t52*t58+1.0d+0*t125*t47*
3892     1         t5-9.305257363490997d-1*t123*t43*t5)*wght+Cmat(iq,D1_GAA)
3893            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
3894            Cmat(iq,D1_GBB) = (-1.86726d-3*t130*t96*t98+1.0d+0*t129*t63*
3895     1         t93-9.305257363490997d-1*t127*t63*t89)*wght+Cmat(iq,D1_GB
3896     2         B)
3897            Mmat(iq,D1_TA) = (-3.73452d-3*t135*t52*t58+1.0d+0*t134*t47*t
3898     1         5-9.305257363490997d-1*t131*t4*t5)*wght+Mmat(iq,D1_TA)
3899            Mmat(iq,D1_TB) = (-3.73452d-3*t140*t96*t98+1.0d+0*t139*t63*t
3900     1         93-9.305257363490997d-1*t136*t62*t63)*wght+Mmat(iq,D1_TB)
3901            Amat2(iq,D2_RA_RA) = (2.0d+0*t108*t150*t5*t58+t156*t52-9.305
3902     1         257363490997d-1*t149*t43*t5-9.305257363490997d-1*t142*t4*
3903     2         t5-1.8610514726981994d+0*t101*t106*t5+t155*t47-4.13566993
3904     3         93293317d-1*t143*t4*t43-2.481401963597599d+0*t102*t106*t4
3905     4         3-2.481401963597599d+0*t101*t102*t4)*wght+Amat2(iq,D2_RA_
3906     5         RA)
3907            Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB)
3908            Amat2(iq,D2_RB_RB) = (2.0d+0*t120*t166*t63*t98+t172*t96+t171
3909     1         *t93-9.305257363490997d-1*t165*t63*t89-4.1356699393293317
3910     2         d-1*t159*t62*t89-2.481401963597599d+0*t114*t118*t89-9.305
3911     3         257363490997d-1*t158*t62*t63-1.8610514726981994d+0*t113*t
3912     4         118*t63-2.481401963597599d+0*t113*t114*t62)*wght+Amat2(iq
3913     5         ,D2_RB_RB)
3914            Cmat2(iq,D2_RA_GAA) = (4.9793599999999993d-3*t175*t52*t58+3.
3915     1         73452d-3*t107*t108*t126*t58-1.0d+0*t107*t125*t5*t52-1.867
3916     2         26d-3*t1*t110*t52-9.305257363490997d-1*t174*t43*t5-9.3052
3917     3         57363490997d-1*t101*t123*t5+t177*t47-1.2407009817987995d+
3918     4         0*t102*t123*t43)*wght+Cmat2(iq,D2_RA_GAA)
3919            Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB)
3920            Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB)
3921            Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA)
3922            Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB)
3923            Cmat2(iq,D2_RB_GBB) = (4.9793599999999993d-3*t180*t96*t98+3.
3924     1         73452d-3*t119*t120*t130*t98-1.0d+0*t119*t129*t63*t96-1.86
3925     2         726d-3*t122*t59*t96+t182*t93-9.305257363490997d-1*t179*t6
3926     3         3*t89-1.2407009817987995d+0*t114*t127*t89-9.3052573634909
3927     4         97d-1*t113*t127*t63)*wght+Cmat2(iq,D2_RB_GBB)
3928            Cmat2(iq,D2_GAA_GAA) = (6.973319815199999d-6*t108*t186*t58-3
3929     1         .73452d-3*t125*t126*t52+1.0d+0*t185*t47*t5-9.305257363490
3930     2         997d-1*t183*t43*t5)*wght+Cmat2(iq,D2_GAA_GAA)
3931            Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB)
3932            Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB)
3933            Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB)
3934            Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB)
3935            Cmat2(iq,D2_GBB_GBB) = (6.973319815199999d-6*t120*t190*t98-3
3936     1         .73452d-3*t129*t130*t96+1.0d+0*t189*t63*t93-9.30525736349
3937     2         0997d-1*t187*t63*t89)*wght+Cmat2(iq,D2_GBB_GBB)
3938            Mmat2(iq,D2_RA_TA) = (6.2242d-3*t126*t52*t58+7.46904d-3*t107
3939     1         *t108*t135*t58-1.0d+0*t107*t134*t5*t52-3.73452d-3*t110*t4
3940     2         4*t52-9.305257363490997d-1*t191*t4*t5-9.305257363490997d-
3941     3         1*t106*t131*t5+t193*t47-1.2407009817987995d+0*t102*t131*t
3942     4         4)*wght+Mmat2(iq,D2_RA_TA)
3943            Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB)
3944            Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA)
3945            Mmat2(iq,D2_RB_TB) = (6.2242d-3*t130*t96*t98+7.46904d-3*t119
3946     1         *t120*t140*t98-3.73452d-3*t122*t90*t96-1.0d+0*t119*t139*t
3947     2         63*t96+t196*t93-9.305257363490997d-1*t194*t62*t63-9.30525
3948     3         7363490997d-1*t118*t136*t63-1.2407009817987995d+0*t114*t1
3949     4         36*t62)*wght+Mmat2(iq,D2_RB_TB)
3950            Mmat2(iq,D2_GAA_TA) = (1.3946639630399998d-5*t108*t199*t58-3
3951     1         .73452d-3*t125*t135*t52-1.86726d-3*t126*t134*t52+1.0d+0*t
3952     2         198*t47*t5-9.305257363490997d-1*t123*t131*t5)*wght+Mmat2(
3953     3         iq,D2_GAA_TA)
3954            Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB)
3955            Mmat2(iq,D2_GAB_TA) = Mmat2(iq,D2_GAB_TA)
3956            Mmat2(iq,D2_GAB_TB) = Mmat2(iq,D2_GAB_TB)
3957            Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA)
3958            Mmat2(iq,D2_GBB_TB) = (1.3946639630399998d-5*t120*t202*t98-3
3959     1         .73452d-3*t129*t140*t96-1.86726d-3*t130*t139*t96+1.0d+0*t
3960     2         201*t63*t93-9.305257363490997d-1*t127*t136*t63)*wght+Mmat
3961     3         2(iq,D2_GBB_TB)
3962            Mmat2(iq,D2_TA_TA) = (2.7893279260799997d-5*t108*t209*t58-7.
3963     1         46904d-3*t134*t135*t52+1.0d+0*t207*t47*t5-9.3052573634909
3964     2         97d-1*t203*t4*t5)*wght+Mmat2(iq,D2_TA_TA)
3965            Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB)
3966            Mmat2(iq,D2_TB_TB) = (2.7893279260799997d-5*t120*t216*t98-7.
3967     1         46904d-3*t139*t140*t96+1.0d+0*t214*t63*t93-9.305257363490
3968     2         997d-1*t210*t62*t63)*wght+Mmat2(iq,D2_TB_TB)
3969            Amat3(iq,D3_RA_RA_RA) = (t47*(1.0d+0*t5*(1.0d+1*t1*t152*t52*
3970     1         t57*taua-2.6666666666666666d+1*t105*t107*t52*t57*taua-3.2
3971     2         592592592592595d+1*t148*t47*t57*taua-2.0d+1*t1*t108*t150*
3972     3         t57*taua-6.518518518518519d+1*t148*t45*t52*t54*taua+4.0d+
3973     4         1*t1*t108*t152*t45*t54*taua-1.2d+2*t1*t150*t151*t45*t54*t
3974     5         aua-1.0666666666666667d+2*t105*t107*t108*t45*t54*taua-2.0
3975     6         148148148148146d+2*gammaaa*t147*t52*t53*taua+2.0d+1*gamma
3976     7         aa*t108*t152*t51*t53*taua-6.0d+1*gammaaa*t150*t151*t51*t5
3977     8         3*taua-1.6d+2*gammaaa*t104*t107*t108*t53*taua-t223*t45*t5
3978     9         2*t57-6*t151*t221*t45*t57+6*t107*t108*t152*t45*t57-gammaa
3979     :         a*t1*t223*t52*t56+8*gammaaa*t105*t152*t52*t56-2.933333333
3980     ;         3333333d+1*gammaaa*t107*t148*t52*t56-4.5629629629629626d+
3981     <         1*gammaaa*t220*t47*t56-6*gammaaa*t1*t151*t221*t56+6*gamma
3982     =         aa*t1*t107*t108*t152*t56-16*gammaaa*t105*t108*t150*t56-2*
3983     >         t108*t223*t54*t55-24*t221*t222*t54*t55+18*t107*t151*t152*
3984     ?         t54*t55-1.777777777777778d+2*t104*t153*t52*t54-1.33333333
3985     @         33333333d+2*t107*t108*t153*t51*t54-4.5629629629629626d+1*
3986     1         gammaaa*t220*t45*t52*t53-2*gammaaa*t1*t108*t223*t45*t53-2
3987     2         4*gammaaa*t1*t221*t222*t45*t53+18*gammaaa*t1*t107*t151*t1
3988     3         52*t45*t53+16*gammaaa*t105*t108*t152*t45*t53-48*gammaaa*t
3989     4         105*t150*t151*t45*t53-5.866666666666667d+1*gammaaa*t107*t
3990     5         108*t148*t45*t53-2.477037037037037d+2*t219*t49*t50*t52-2*
3991     6         t108*t223*t49*t50*t51-24*t221*t222*t49*t50*t51+18*t107*t1
3992     7         51*t152*t49*t50*t51+32*t104*t108*t152*t49*t50-96*t104*t15
3993     8         0*t151*t49*t50-2.0266666666666666d+2*t107*t108*t147*t49*t
3994     9         50)-2.962962962962963d-1*t44*t58+4.0d+0*t102*t154+1.33333
3995     :         33333333333d+0*t109*t143)-9.305257363490997d-1*t4*t5*(-6.
3996     ;         01754400771653d+6*t11*t208*t217*t7+3.4716600044518436d+6*
3997     <         t13*t208*t21*t7-1.2729420016323426d+7*t100*t18*t208*t7+1.
3998     =         5275304019588112d+7*t141*t15*t208*t7+5.077976365330863d+4
3999     >         *t102*t13*t18*t7-3.713762858948263d+1*t126*t13*t15*t7-1.1
4000     ?         171548003727898d+5*t100*t102*t15*t7+6.093571638397036d+4*
4001     @         t102*t11*t141*t7+3.713762858948263d+1*t100*t11*t126*t7-3.
4002     1         37614805358933d+0*t126*t41*t42+3.37614805358933d+0*t10*t1
4003     2         26*t40*t41-9.232684300601568d+2*t102*t40*t41+2.1040363663
4004     3         34451d+4*t208*t37*t41+9.232684300601568d+2*t10*t102*t37*t
4005     4         41-2.104036366334451d+4*t10*t208*t34*t41-6.75229610717866
4006     5         d+0*t10*t126*t38*t40+9.232684300601568d+2*t102*t38*t40+6.
4007     6         75229610717866d+0*t126*t37*t38*t39+2.769805290180471d+3*t
4008     7         102*t34*t38*t39-8.416145465337804d+4*t208*t31*t38*t39-1.0
4009     8         128444160767991d+1*t126*t35*t37*t39-8.309415870541413d+3*
4010     9         t102*t34*t35*t39+3.787265459402013d+5*t208*t31*t35*t39+5.
4011     :         539610580360942d+3*t102*t32*t34*t39-5.049687279202681d+5*
4012     ;         t208*t31*t32*t39+2.1040363663344508d+5*t208*t29*t31*t39-4
4013     <         .208072732668902d+4*t208*t37*t38-3.693073720240627d+3*t10
4014     =         *t102*t37*t38+1.2624218198006704d+5*t10*t208*t34*t38+2.10
4015     >         4036366334451d+4*t208*t35*t37+2.769805290180471d+3*t10*t1
4016     ?         02*t35*t37+1.0128444160767991d+1*t126*t34*t35*t36+5.53961
4017     @         0580360942d+3*t102*t31*t35*t36-2.104036366334451d+5*t208*
4018     1         t28*t35*t36-1.350459221435732d+1*t126*t32*t34*t36-1.47722
4019     2         94880962508d+4*t102*t31*t32*t36+8.416145465337803d+5*t208
4020     3         *t28*t32*t36+9.232684300601568d+3*t102*t29*t31*t36-1.0520
4021     4         181831672254d+6*t208*t28*t29*t36+4.208072732668902d+5*t20
4022     5         8*t26*t28*t36-1.8936327297010064d+5*t10*t208*t34*t35+8.41
4023     6         6145465337804d+4*t10*t208*t32*t34+1.350459221435732d+1*t1
4024     7         26*t31*t32*t33+9.232684300601568d+3*t102*t28*t32*t33-4.20
4025     8         80727326689016d+5*t208*t25*t32*t33-1.6880740267946648d+1*
4026     9         t126*t29*t31*t33-2.308171075150392d+4*t102*t28*t29*t33+1.
4027     :         578027274750838d+6*t208*t25*t29*t33+1.3849026450902355d+4
4028     ;         *t102*t26*t28*t33-1.893632729701006d+6*t208*t25*t26*t33+7
4029     <         .364127282170578d+5*t208*t23*t25*t33+1.6880740267946648d+
4030     =         1*t126*t28*t29*t30+1.3849026450902355d+4*t102*t25*t29*t30
4031     >         -7.364127282170578d+5*t208*t22*t29*t30-2.0256888321535982
4032     ?         d+1*t126*t26*t28*t30-3.323766348216566d+4*t102*t25*t26*t3
4033     @         0+2.6510858215814087d+6*t208*t22*t26*t30+1.93886370312632
4034     1         92d+4*t102*t23*t25*t30-3.0929334585116436d+6*t208*t22*t23
4035     2         *t30+1.1782603651472927d+6*t20*t208*t22*t30+2.02568883215
4036     3         35982d+1*t126*t25*t26*t27+1.9388637031263292d+4*t102*t22*
4037     4         t26*t27-1.1782603651472927d+6*t19*t208*t26*t27-2.36330363
4038     5         75125308d+1*t126*t23*t25*t27-4.5240153072947686d+4*t102*t
4039     6         22*t23*t27+4.123911278015524d+6*t19*t208*t23*t27+2.585151
4040     7         604168439d+4*t102*t20*t22*t27-4.713041460589171d+6*t19*t2
4041     8         0*t208*t27+1.767390547720939d+6*t17*t19*t208*t27+2.363303
4042     9         6375125308d+1*t126*t22*t23*t24-1.7673905477209387d+6*t16*
4043     :         t208*t23*t24+2.585151604168439d+4*t102*t19*t23*t24-2.7009
4044     ;         18442871464d+1*t126*t20*t22*t24+6.059624735043219d+6*t16*
4045     <         t20*t208*t24-6.817077826923622d+6*t16*t17*t208*t24+2.5248
4046     =         43639601341d+6*t14*t16*t208*t24-5.908917952385003d+4*t102
4047     >         *t19*t20*t24+3.3237663482165647d+4*t102*t17*t19*t24-2.524
4048     ?         843639601341d+6*t13*t20*t208*t21+8.521347283654526d+6*t13
4049     @         *t17*t208*t21-9.468163648505028d+6*t13*t14*t208*t21+2.700
4050     1         918442871464d+1*t126*t19*t20*t21+3.3237663482165647d+4*t1
4051     2         02*t16*t20*t21-3.0385332482303967d+1*t126*t17*t19*t21-7.4
4052     3         78474283487271d+4*t102*t16*t17*t21+4.154707935270705d+4*t
4053     4         102*t14*t16*t21-3.4716600044518436d+6*t100*t17*t18*t208+1
4054     5         .1572200014839477d+7*t100*t14*t18*t208-4.628880005935792d
4055     6         +6*t14*t141*t15*t208+3.0385332482303967d+1*t126*t16*t17*t
4056     7         18+4.1547079352707056d+4*t102*t13*t17*t18-3.3761480535893
4057     8         296d+1*t126*t14*t16*t18-9.232684300601568d+4*t102*t13*t14
4058     9         *t18+3.3761480535893296d+1*t126*t13*t14*t15+5.07797636533
4059     :         0862d+4*t100*t102*t14*t15)+t52*(-1.0d+0*t223*t5*t58-2.666
4060     ;         6666666666666d+0*t102*t152*t58-4.444444444444444d-1*t107*
4061     <         t143*t58-1.0d+0*t107*t154*t5-2.0d+0*t109*t152*t5-2*t107*t
4062     =         155-t110*t152-2.6666666666666666d+0*t102*t107*t109)+t108*
4063     >         (4.0d+0*t107*t152*t5*t58+2.6666666666666666d+0*t102*t150*
4064     ?         t58+2.0d+0*t109*t150*t5-2*t107*t156)-6.0d+0*t151*t221*t5*
4065     @         t58-9.305257363490997d-1*t43*t5*(3.279403591520427d-3*t10
4066     1         3*t219*t50-1.648227300332581d-1*gammaaa*t220*t3+3.7270905
4067     2         095708196d-8*gammaaa**4*t218/rhoa**1.3666666666666666d+1-
4068     3         1.9702414090037443d-5*t144*t145/rhoa**11)-2.7915772090472
4069     4         99d+0*t101*t149*t5-2.791577209047299d+0*t106*t142*t5+2.75
4070     5         7113292886221d-1*t4*t43*t44+t143*(-1.2407009817987995d+0*
4071     6         t106*t43-1.2407009817987995d+0*t101*t4)-3.722102945396398
4072     7         3d+0*t102*t149*t43-3.7221029453963983d+0*t102*t142*t4-7.4
4073     8         44205890792797d+0*t101*t102*t106)*wght+Amat3(iq,D3_RA_RA_
4074     9         RA)
4075            Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB)
4076            Amat3(iq,D3_RA_RB_RB) = Amat3(iq,D3_RA_RB_RB)
4077            Amat3(iq,D3_RB_RB_RB) = (t93*(1.0d+0*t63*(-6.518518518518519
4078     1         d+1*t164*t54*t91*t96*taub+1.0d+1*t168*t57*t59*t96*taub-2.
4079     2         6666666666666666d+1*t117*t119*t57*t96*taub-2.014814814814
4080     3         8146d+2*gammabb*t163*t53*t96*taub+2.0d+1*gammabb*t120*t16
4081     4         8*t53*t95*taub-6.0d+1*gammabb*t166*t167*t53*t95*taub-3.25
4082     5         92592592592595d+1*t164*t57*t93*taub+4.0d+1*t120*t168*t54*
4083     6         t59*t91*taub-1.2d+2*t166*t167*t54*t59*t91*taub-1.06666666
4084     7         66666667d+2*t117*t119*t120*t54*t91*taub-2.0d+1*t120*t166*
4085     8         t57*t59*taub-1.6d+2*gammabb*t116*t119*t120*t53*taub-2*t12
4086     9         0*t230*t54*t97-24*t228*t229*t54*t97+18*t119*t167*t168*t54
4087     :         *t97-2.477037037037037d+2*t226*t49*t94*t96-t230*t57*t91*t
4088     ;         96-4.5629629629629626d+1*gammabb*t227*t53*t91*t96-gammabb
4089     <         *t230*t56*t59*t96+8*gammabb*t117*t168*t56*t96-2.933333333
4090     =         3333333d+1*gammabb*t119*t164*t56*t96-1.777777777777778d+2
4091     >         *t116*t169*t54*t96-2*t120*t230*t49*t94*t95-24*t228*t229*t
4092     ?         49*t94*t95+18*t119*t167*t168*t49*t94*t95-1.33333333333333
4093     @         33d+2*t119*t120*t169*t54*t95+32*t116*t120*t168*t49*t94-96
4094     1         *t116*t166*t167*t49*t94-2.0266666666666666d+2*t119*t120*t
4095     2         163*t49*t94-4.5629629629629626d+1*gammabb*t227*t56*t93-2*
4096     3         gammabb*t120*t230*t53*t59*t91-24*gammabb*t228*t229*t53*t5
4097     4         9*t91+18*gammabb*t119*t167*t168*t53*t59*t91-6*t167*t228*t
4098     5         57*t91+6*t119*t120*t168*t57*t91+16*gammabb*t117*t120*t168
4099     6         *t53*t91-48*gammabb*t117*t166*t167*t53*t91-5.866666666666
4100     7         667d+1*gammabb*t119*t120*t164*t53*t91-6*gammabb*t167*t228
4101     8         *t56*t59+6*gammabb*t119*t120*t168*t56*t59-16*gammabb*t117
4102     9         *t120*t166*t56)-2.962962962962963d-1*t90*t98+4.0d+0*t114*
4103     :         t170+1.3333333333333333d+0*t121*t159)+t96*(-1.0d+0*t230*t
4104     ;         63*t98-2.6666666666666666d+0*t114*t168*t98-4.444444444444
4105     <         444d-1*t119*t159*t98-1.0d+0*t119*t170*t63-2.0d+0*t121*t16
4106     =         8*t63-2*t119*t171-t122*t168-2.6666666666666666d+0*t114*t1
4107     >         19*t121)+t120*(4.0d+0*t119*t168*t63*t98+2.666666666666666
4108     ?         6d+0*t114*t166*t98+2.0d+0*t121*t166*t63-2*t119*t172)-6.0d
4109     @         +0*t167*t228*t63*t98-9.305257363490997d-1*t63*t89*(3.2794
4110     1         03591520427d-3*t115*t226*t94-1.648227300332581d-1*gammabb
4111     2         *t227*t61+3.7270905095708196d-8*gammabb**4*t225/rhob**1.3
4112     3         666666666666666d+1-1.9702414090037443d-5*t160*t161/rhob**
4113     4         11)+2.757113292886221d-1*t62*t89*t90+t159*(-1.24070098179
4114     5         87995d+0*t118*t89-1.2407009817987995d+0*t113*t62)-3.72210
4115     6         29453963983d+0*t114*t165*t89-9.305257363490997d-1*t62*t63
4116     7         *(-3.37614805358933d+0*t130*t41*t88+3.37614805358933d+0*t
4117     8         130*t41*t66*t87-6.75229610717866d+0*t130*t38*t66*t87-9.23
4118     9         2684300601568d+2*t114*t41*t87+9.232684300601568d+2*t114*t
4119     :         38*t87+6.75229610717866d+0*t130*t38*t85*t86-1.01284441607
4120     ;         67991d+1*t130*t35*t85*t86+2.769805290180471d+3*t114*t38*t
4121     <         83*t86-8.309415870541413d+3*t114*t35*t83*t86+5.5396105803
4122     =         60942d+3*t114*t32*t83*t86-8.416145465337804d+4*t215*t38*t
4123     >         81*t86+3.787265459402013d+5*t215*t35*t81*t86-5.0496872792
4124     ?         02681d+5*t215*t32*t81*t86+2.1040363663344508d+5*t215*t29*
4125     @         t81*t86+9.232684300601568d+2*t114*t41*t66*t85-3.693073720
4126     1         240627d+3*t114*t38*t66*t85+2.769805290180471d+3*t114*t35*
4127     2         t66*t85+2.104036366334451d+4*t215*t41*t85-4.2080727326689
4128     3         02d+4*t215*t38*t85+2.104036366334451d+4*t215*t35*t85+1.01
4129     4         28444160767991d+1*t130*t35*t83*t84-1.350459221435732d+1*t
4130     5         130*t32*t83*t84+5.539610580360942d+3*t114*t35*t81*t84-1.4
4131     6         772294880962508d+4*t114*t32*t81*t84+9.232684300601568d+3*
4132     7         t114*t29*t81*t84-2.104036366334451d+5*t215*t35*t79*t84+8.
4133     8         416145465337803d+5*t215*t32*t79*t84-1.0520181831672254d+6
4134     9         *t215*t29*t79*t84+4.208072732668902d+5*t215*t26*t79*t84-2
4135     :         .104036366334451d+4*t215*t41*t66*t83+1.2624218198006704d+
4136     ;         5*t215*t38*t66*t83-1.8936327297010064d+5*t215*t35*t66*t83
4137     <         +8.416145465337804d+4*t215*t32*t66*t83+1.350459221435732d
4138     =         +1*t130*t32*t81*t82-1.6880740267946648d+1*t130*t29*t81*t8
4139     >         2+9.232684300601568d+3*t114*t32*t79*t82-2.308171075150392
4140     ?         d+4*t114*t29*t79*t82+1.3849026450902355d+4*t114*t26*t79*t
4141     @         82-4.2080727326689016d+5*t215*t32*t77*t82+1.5780272747508
4142     1         38d+6*t215*t29*t77*t82-1.893632729701006d+6*t215*t26*t77*
4143     2         t82+7.364127282170578d+5*t215*t23*t77*t82+1.6880740267946
4144     3         648d+1*t130*t29*t79*t80-2.0256888321535982d+1*t130*t26*t7
4145     4         9*t80+1.3849026450902355d+4*t114*t29*t77*t80-3.3237663482
4146     5         16566d+4*t114*t26*t77*t80+1.9388637031263292d+4*t114*t23*
4147     6         t77*t80-7.364127282170578d+5*t215*t29*t75*t80+2.651085821
4148     7         5814087d+6*t215*t26*t75*t80-3.0929334585116436d+6*t215*t2
4149     8         3*t75*t80+1.1782603651472927d+6*t20*t215*t75*t80+2.025688
4150     9         8321535982d+1*t130*t26*t77*t78-2.3633036375125308d+1*t130
4151     :         *t23*t77*t78+1.9388637031263292d+4*t114*t26*t75*t78-4.524
4152     ;         0153072947686d+4*t114*t23*t75*t78+2.585151604168439d+4*t1
4153     <         14*t20*t75*t78-1.1782603651472927d+6*t215*t26*t73*t78+4.1
4154     =         23911278015524d+6*t215*t23*t73*t78-4.713041460589171d+6*t
4155     >         20*t215*t73*t78+1.767390547720939d+6*t17*t215*t73*t78+2.3
4156     ?         633036375125308d+1*t130*t23*t75*t76-2.700918442871464d+1*
4157     @         t130*t20*t75*t76+2.585151604168439d+4*t114*t23*t73*t76-5.
4158     1         908917952385003d+4*t114*t20*t73*t76+3.3237663482165647d+4
4159     2         *t114*t17*t73*t76-1.7673905477209387d+6*t215*t23*t71*t76+
4160     3         6.059624735043219d+6*t20*t215*t71*t76-6.817077826923622d+
4161     4         6*t17*t215*t71*t76+2.524843639601341d+6*t14*t215*t71*t76+
4162     5         2.700918442871464d+1*t130*t20*t73*t74-3.0385332482303967d
4163     6         +1*t130*t17*t73*t74+3.3237663482165647d+4*t114*t20*t71*t7
4164     7         4-7.478474283487271d+4*t114*t17*t71*t74+4.154707935270705
4165     8         d+4*t114*t14*t71*t74+3.4716600044518436d+6*t215*t69*t7*t7
4166     9         4-2.524843639601341d+6*t20*t215*t69*t74+8.521347283654526
4167     :         d+6*t17*t215*t69*t74-9.468163648505028d+6*t14*t215*t69*t7
4168     ;         4+3.0385332482303967d+1*t130*t17*t71*t72-3.37614805358932
4169     <         96d+1*t130*t14*t71*t72+5.077976365330863d+4*t114*t69*t7*t
4170     =         72-1.2729420016323426d+7*t112*t215*t7*t72+4.1547079352707
4171     >         056d+4*t114*t17*t69*t72-9.232684300601568d+4*t114*t14*t69
4172     ?         *t72-3.4716600044518436d+6*t112*t17*t215*t72+1.1572200014
4173     @         839477d+7*t112*t14*t215*t72-3.713762858948263d+1*t130*t69
4174     1         *t7*t70+1.5275304019588112d+7*t157*t215*t7*t70-1.11715480
4175     2         03727898d+5*t112*t114*t7*t70+3.3761480535893296d+1*t130*t
4176     3         14*t69*t70-4.628880005935792d+6*t14*t157*t215*t70+5.07797
4177     4         6365330862d+4*t112*t114*t14*t70-6.01754400771653d+6*t215*
4178     5         t224*t67*t7+6.093571638397036d+4*t114*t157*t67*t7+3.71376
4179     6         2858948263d+1*t112*t130*t67*t7)-2.791577209047299d+0*t113
4180     7         *t165*t63-2.791577209047299d+0*t118*t158*t63-3.7221029453
4181     8         963983d+0*t114*t158*t62-7.444205890792797d+0*t113*t114*t1
4182     9         18)*wght+Amat3(iq,D3_RB_RB_RB)
4183            Cmat3(iq,D3_RA_RA_GAA) = (t47*(1.0d+0*t5*(-4.979359999999999
4184     1         3d-2*t104*t52*t57*taua-2.48968d-2*t107*t108*t51*t57*taua-
4185     2         1.493808d-1*t107*t151*t45*t51*t54*taua-1.9917439999999997
4186     3         d-1*t104*t108*t45*t54*taua+2.6666666666666666d+1*t104*t52
4187     4         *t53*taua+1.3333333333333333d+1*t107*t108*t51*t53*taua-1.
4188     5         6597866666666666d-1*gammaaa*t108*t173*t53*taua-7.46904d-2
4189     6         *gammaaa*t107*t124*t151*t53*taua-1.8257653333333332d-2*t1
4190     7         48*t45*t52*t57+3.73452d-3*t1*t108*t152*t45*t57-1.120356d-
4191     8         2*t1*t150*t151*t45*t57-1.9917439999999997d-2*t105*t107*t1
4192     9         08*t45*t57-t1*t152*t52*t56-6.307189333333332d-2*gammaaa*t
4193     :         147*t52*t56+5.333333333333333d+0*t105*t107*t52*t56+3.7345
4194     ;         2d-3*gammaaa*t108*t152*t51*t56-1.120356d-2*gammaaa*t150*t
4195     <         151*t51*t56+9.777777777777779d+0*t148*t47*t56+2*t1*t108*t
4196     =         150*t56-3.9834879999999995d-2*gammaaa*t104*t107*t108*t56-
4197     >         4.481424d-2*t1*t150*t222*t54*t55+1.120356d-2*t1*t151*t152
4198     ?         *t54*t55-5.975231999999999d-2*t105*t107*t151*t54*t55-3.65
4199     @         15306666666664d-2*t108*t148*t54*t55-8.298933333333335d-2*
4200     1         t108*t124*t153*t54+9.777777777777779d+0*t148*t45*t52*t53-
4201     2         4.481424d-2*gammaaa*t150*t222*t45*t51*t53+1.120356d-2*gam
4202     3         maaa*t151*t152*t45*t51*t53-2*t1*t108*t152*t45*t53+6*t1*t1
4203     4         50*t151*t45*t53-1.1950464d-1*gammaaa*t104*t107*t151*t45*t
4204     5         53-1.2614378666666665d-1*gammaaa*t108*t147*t45*t53+1.0666
4205     6         666666666666d+1*t105*t107*t108*t45*t53+6.755555555555556d
4206     7         +1*gammaaa*t147*t49*t52-4*gammaaa*t108*t152*t49*t51+12*ga
4207     8         mmaaa*t150*t151*t49*t51-4.481424d-2*t124*t150*t222*t49*t5
4208     9         0-1.7925696d-1*t107*t151*t173*t49*t50+1.120356d-2*t124*t1
4209     :         51*t152*t49*t50-2.6888544000000003d-1*t108*t146*t49*t50+4
4210     ;         .2666666666666664d+1*gammaaa*t104*t107*t108*t49)+2.666666
4211     <         6666666666d+0*t102*t176+4.444444444444444d-1*t125*t143)+t
4212     =         52*(-1.1618506666666667d-2*t206*t58-1.0d+0*t107*t176*t5-1
4213     >         .0d+0*t125*t152*t5-t107*t177+4.9793599999999993d-3*t109*t
4214     ?         175-1.3333333333333333d+0*t102*t107*t125+4.97935999999999
4215     @         93d-3*t105*t110)-1.9917439999999997d-2*t107*t108*t175*t58
4216     1         -1.120356d-2*t126*t150*t151*t58-1.86726d-3*t1*t155*t52-9.
4217     2         305257363490997d-1*t43*t5*(6.610678411788878d-6*t145*t146
4218     3         *t50+3.531915643569816d-2*t148*t3-1.3976589410890572d-8*t
4219     4         144*t218/rhoa**1.2666666666666665d+1-9.376593846722628d-4
4220     5         *gammaaa*t103*t147)-1.8610514726981994d+0*t101*t174*t5+2.
4221     6         0d+0*t108*t125*t150*t5-9.305257363490997d-1*t123*t142*t5-
4222     7         2.481401963597599d+0*t102*t174*t43-4.1356699393293317d-1*
4223     8         t123*t143*t43-3.73452d-3*t1*t108*t156-2.481401963597599d+
4224     9         0*t101*t102*t123)*wght+Cmat3(iq,D3_RA_RA_GAA)
4225            Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB)
4226            Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB)
4227            Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA)
4228            Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB)
4229            Cmat3(iq,D3_RA_RB_GBB) = Cmat3(iq,D3_RA_RB_GBB)
4230            Cmat3(iq,D3_RB_RB_GAA) = Cmat3(iq,D3_RB_RB_GAA)
4231            Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB)
4232            Cmat3(iq,D3_RB_RB_GBB) = (t93*(1.0d+0*t63*(-4.97935999999999
4233     1         93d-2*t116*t57*t96*taub+2.6666666666666666d+1*t116*t53*t9
4234     2         6*taub-1.493808d-1*t119*t167*t54*t91*t95*taub-2.48968d-2*
4235     3         t119*t120*t57*t95*taub+1.3333333333333333d+1*t119*t120*t5
4236     4         3*t95*taub-1.9917439999999997d-1*t116*t120*t54*t91*taub-1
4237     5         .6597866666666666d-1*gammabb*t120*t178*t53*taub-7.46904d-
4238     6         2*gammabb*t119*t128*t167*t53*taub-4.481424d-2*t166*t229*t
4239     7         54*t59*t97+1.120356d-2*t167*t168*t54*t59*t97-5.9752319999
4240     8         99999d-2*t117*t119*t167*t54*t97-3.6515306666666664d-2*t12
4241     9         0*t164*t54*t97-1.8257653333333332d-2*t164*t57*t91*t96+9.7
4242     :         77777777777779d+0*t164*t53*t91*t96-t168*t56*t59*t96-6.307
4243     ;         189333333332d-2*gammabb*t163*t56*t96+5.333333333333333d+0
4244     <         *t117*t119*t56*t96+6.755555555555556d+1*gammabb*t163*t49*
4245     =         t96-4.481424d-2*gammabb*t166*t229*t53*t91*t95+1.120356d-2
4246     >         *gammabb*t167*t168*t53*t91*t95+3.73452d-3*gammabb*t120*t1
4247     ?         68*t56*t95-1.120356d-2*gammabb*t166*t167*t56*t95-4*gammab
4248     @         b*t120*t168*t49*t95+12*gammabb*t166*t167*t49*t95-4.481424
4249     1         d-2*t128*t166*t229*t49*t94-1.7925696d-1*t119*t167*t178*t4
4250     2         9*t94+1.120356d-2*t128*t167*t168*t49*t94-2.68885440000000
4251     3         03d-1*t120*t162*t49*t94+9.777777777777779d+0*t164*t56*t93
4252     4         +3.73452d-3*t120*t168*t57*t59*t91-1.120356d-2*t166*t167*t
4253     5         57*t59*t91-2*t120*t168*t53*t59*t91+6*t166*t167*t53*t59*t9
4254     6         1-1.9917439999999997d-2*t117*t119*t120*t57*t91-1.1950464d
4255     7         -1*gammabb*t116*t119*t167*t53*t91-1.2614378666666665d-1*g
4256     8         ammabb*t120*t163*t53*t91+1.0666666666666666d+1*t117*t119*
4257     9         t120*t53*t91+2*t120*t166*t56*t59-3.9834879999999995d-2*ga
4258     :         mmabb*t116*t119*t120*t56-8.298933333333335d-2*t120*t128*t
4259     ;         169*t54+4.2666666666666664d+1*gammabb*t116*t119*t120*t49)
4260     <         +2.6666666666666666d+0*t114*t181+4.444444444444444d-1*t12
4261     =         9*t159)+t96*(-1.1618506666666667d-2*t213*t98-1.0d+0*t119*
4262     >         t181*t63-1.0d+0*t129*t168*t63-t119*t182+4.979359999999999
4263     ?         3d-3*t121*t180-1.3333333333333333d+0*t114*t119*t129+4.979
4264     @         3599999999993d-3*t117*t122)-1.9917439999999997d-2*t119*t1
4265     1         20*t180*t98-1.120356d-2*t130*t166*t167*t98-1.86726d-3*t17
4266     2         1*t59*t96-9.305257363490997d-1*t63*t89*(6.610678411788878
4267     3         d-6*t161*t162*t94+3.531915643569816d-2*t164*t61-1.3976589
4268     4         410890572d-8*t160*t225/rhob**1.2666666666666665d+1-9.3765
4269     5         93846722628d-4*gammabb*t115*t163)-2.481401963597599d+0*t1
4270     6         14*t179*t89-4.1356699393293317d-1*t127*t159*t89-1.8610514
4271     7         726981994d+0*t113*t179*t63+2.0d+0*t120*t129*t166*t63-9.30
4272     8         5257363490997d-1*t127*t158*t63-3.73452d-3*t120*t172*t59-2
4273     9         .481401963597599d+0*t113*t114*t127)*wght+Cmat3(iq,D3_RB_R
4274     :         B_GBB)
4275            Cmat3(iq,D3_RA_GAA_GAA) = (t47*(1.0d+0*t5*(-2.3244399384d-5*
4276     1         t108*t124*t57*taua-1.3946639630399998d-4*t124*t151*t45*t5
4277     2         4*taua-6.9733198152d-5*gammaaa*t151*t184*t53*taua+2.48968
4278     3         d-2*t108*t124*t53*taua-2.0919959445599998d-5*t107*t151*t4
4279     4         5*t51*t57-3.7191039014399996d-5*t104*t108*t45*t57+1.99174
4280     5         39999999997d-2*t104*t52*t56+7.46904d-3*t107*t108*t51*t56-
4281     6         5.578655852159999d-5*gammaaa*t108*t173*t56-2.091995944559
4282     7         9998d-5*gammaaa*t107*t124*t151*t56-8.367983778239999d-5*t
4283     8         107*t222*t51*t54*t55-1.1157311704319998d-4*t104*t151*t54*
4284     9         t55+2.240712d-2*t107*t151*t45*t51*t53-8.367983778239999d-
4285     :         5*gammaaa*t107*t124*t222*t45*t53-1.6735967556479997d-4*ga
4286     ;         mmaaa*t151*t173*t45*t53+3.9834879999999995d-2*t104*t108*t
4287     <         45*t53-1.0666666666666666d+1*t104*t49*t52-4*t107*t108*t49
4288     =         *t51-2.2314623408639997d-4*t151*t231*t49*t50-8.3679837782
4289     >         39999d-5*t107*t184*t222*t49*t50+1.1950464d-1*gammaaa*t108
4290     ?         *t173*t49+4.481424d-2*gammaaa*t107*t124*t151*t49)+1.33333
4291     @         33333333333d+0*t102*t185)-3.7191039014399996d-5*t108*t232
4292     1         *t58-2.0919959445599998d-5*t107*t151*t186*t58-1.0d+0*t107
4293     2         *t185*t5*t52-3.73452d-3*t1*t177*t52+9.958719999999999d-3*
4294     3         t125*t175*t52+6.973319815199999d-6*t108*t110*t51-9.305257
4295     4         363490997d-1*t43*t5*(5.241221029083964d-9*t218*t231*t50-1
4296     5         .944317179937905d-6*gammaaa*t145*t173+1.731063479394947d-
4297     6         4*t103*t104)-9.305257363490997d-1*t101*t183*t5-1.24070098
4298     7         17987995d+0*t102*t183*t43+7.46904d-3*t107*t108*t125*t126)
4299     8         *wght+Cmat3(iq,D3_RA_GAA_GAA)
4300            Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB)
4301            Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB)
4302            Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB)
4303            Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB)
4304            Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB)
4305            Cmat3(iq,D3_RB_GAA_GAA) = Cmat3(iq,D3_RB_GAA_GAA)
4306            Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB)
4307            Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB)
4308            Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB)
4309            Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB)
4310            Cmat3(iq,D3_RB_GBB_GBB) = (t93*(1.0d+0*t63*(-1.3946639630399
4311     1         998d-4*t128*t167*t54*t91*taub-2.3244399384d-5*t120*t128*t
4312     2         57*taub-6.9733198152d-5*gammabb*t167*t188*t53*taub+2.4896
4313     3         8d-2*t120*t128*t53*taub-8.367983778239999d-5*t119*t229*t5
4314     4         4*t95*t97-1.1157311704319998d-4*t116*t167*t54*t97+1.99174
4315     5         39999999997d-2*t116*t56*t96-1.0666666666666666d+1*t116*t4
4316     6         9*t96-2.0919959445599998d-5*t119*t167*t57*t91*t95+2.24071
4317     7         2d-2*t119*t167*t53*t91*t95+7.46904d-3*t119*t120*t56*t95-4
4318     8         *t119*t120*t49*t95-2.2314623408639997d-4*t167*t233*t49*t9
4319     9         4-8.367983778239999d-5*t119*t188*t229*t49*t94-3.719103901
4320     :         4399996d-5*t116*t120*t57*t91-8.367983778239999d-5*gammabb
4321     ;         *t119*t128*t229*t53*t91-1.6735967556479997d-4*gammabb*t16
4322     <         7*t178*t53*t91+3.9834879999999995d-2*t116*t120*t53*t91-5.
4323     =         578655852159999d-5*gammabb*t120*t178*t56-2.09199594455999
4324     >         98d-5*gammabb*t119*t128*t167*t56+1.1950464d-1*gammabb*t12
4325     ?         0*t178*t49+4.481424d-2*gammabb*t119*t128*t167*t49)+1.3333
4326     @         333333333333d+0*t114*t189)-3.7191039014399996d-5*t120*t23
4327     1         4*t98-2.0919959445599998d-5*t119*t167*t190*t98-1.0d+0*t11
4328     2         9*t189*t63*t96-3.73452d-3*t182*t59*t96+9.958719999999999d
4329     3         -3*t129*t180*t96+6.973319815199999d-6*t120*t122*t95-9.305
4330     4         257363490997d-1*t63*t89*(5.241221029083964d-9*t225*t233*t
4331     5         94-1.944317179937905d-6*gammabb*t161*t178+1.7310634793949
4332     6         47d-4*t115*t116)-1.2407009817987995d+0*t114*t187*t89-9.30
4333     7         5257363490997d-1*t113*t187*t63+7.46904d-3*t119*t120*t129*
4334     8         t130)*wght+Cmat3(iq,D3_RB_GBB_GBB)
4335            Cmat3(iq,D3_GAA_GAA_GAA) = (-3.9063003474391045d-8*t151*t58/
4336     1         rhoa**6.666666666666667d+0+1.0d+0*t47*t5*(-3.906300347439
4337     2         1045d-8*t124*t151*t45*t57-3.9063003474391045d-8*gammaaa*t
4338     3         151*t184*t56+2.0919959445599995d-5*t108*t124*t56-1.562520
4339     4         138975642d-7*t124*t222*t54*t55-1.562520138975642d-7*gamma
4340     5         aa*t184*t222*t45*t53+6.275987833679999d-5*t124*t151*t45*t
4341     6         53-1.562520138975642d-7*t222*t49*t50/rhoa**1.333333333333
4342     7         3333d+1+1.255197566736d-4*gammaaa*t151*t184*t49-2.240712d
4343     8         -2*t108*t124*t49)-5.60178d-3*t126*t185*t52-9.305257363490
4344     9         997d-1*(4.374713654860287d-7*t124*t145-1.965457885906487d
4345     :         -9*gammaaa*t184*t218)*t43*t5+2.0919959445599995d-5*t108*t
4346     ;         125*t186)*wght+Cmat3(iq,D3_GAA_GAA_GAA)
4347            Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB)
4348            Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB)
4349            Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB)
4350            Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB)
4351            Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB)
4352            Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB)
4353            Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB)
4354            Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB)
4355            Cmat3(iq,D3_GBB_GBB_GBB) = (-3.9063003474391045d-8*t167*t98/
4356     1         rhob**6.666666666666667d+0+1.0d+0*t63*t93*(-1.56252013897
4357     2         5642d-7*t128*t229*t54*t97-1.562520138975642d-7*t229*t49*t
4358     3         94/rhob**1.3333333333333333d+1-3.9063003474391045d-8*t128
4359     4         *t167*t57*t91-1.562520138975642d-7*gammabb*t188*t229*t53*
4360     5         t91+6.275987833679999d-5*t128*t167*t53*t91-3.906300347439
4361     6         1045d-8*gammabb*t167*t188*t56+2.0919959445599995d-5*t120*
4362     7         t128*t56+1.255197566736d-4*gammabb*t167*t188*t49-2.240712
4363     8         d-2*t120*t128*t49)-5.60178d-3*t130*t189*t96-9.30525736349
4364     9         0997d-1*(4.374713654860287d-7*t128*t161-1.965457885906487
4365     :         d-9*gammabb*t188*t225)*t63*t89+2.0919959445599995d-5*t120
4366     ;         *t129*t190)*wght+Cmat3(iq,D3_GBB_GBB_GBB)
4367            Mmat3(iq,D3_RA_RA_TA) = (t47*(1.0d+0*t5*(-7.469039999999999d
4368     1         -2*t51*t52*t57*taua-4.97936d-2*t107*t108*t133*t57*taua+8.
4369     2         0d+1*t51*t52*t54*taua-2.9876159999999996d-1*t108*t45*t51*
4370     3         t54*taua-2.987616d-1*t107*t133*t151*t45*t54*taua+5.333333
4371     4         333333333d+1*t107*t108*t133*t54*taua-1.493808d-1*gammaaa*
4372     5         t107*t132*t151*t53*taua-2.8216373333333333d-1*gammaaa*t10
4373     6         8*t124*t53*taua-1.6597866666666666d-2*t105*t45*t52*t57-2.
4374     7         0d+0*t152*t44*t52*t57+6.666666666666667d+0*t1*t107*t52*t5
4375     8         7+8.88888888888889d+0*t105*t47*t57+7.46904d-3*t108*t152*t
4376     9         44*t45*t57-2.240712d-2*t150*t151*t44*t45*t57-2.48968d-2*t
4377     :         1*t107*t108*t45*t57+4.0d+0*t108*t150*t44*t57-8.6308906666
4378     ;         66666d-2*gammaaa*t104*t52*t56-6.473168d-2*gammaaa*t107*t1
4379     <         08*t51*t56+7.46904d-3*gammaaa*t108*t133*t152*t56-2.240712
4380     =         d-2*gammaaa*t133*t150*t151*t56-8.962848d-2*t150*t222*t44*
4381     >         t54*t55+2.240712d-2*t151*t152*t44*t54*t55-7.46904d-2*t1*t
4382     ?         107*t151*t54*t55-3.319573333333333d-2*t105*t108*t54*t55+1
4383     @         .7777777777777778d+1*t105*t45*t52*t54-8.0d+0*t108*t152*t4
4384     1         4*t45*t54+2.4d+1*t150*t151*t44*t45*t54+2.6666666666666666
4385     2         d+1*t1*t107*t108*t45*t54-1.659786666666667d-1*t108*t132*t
4386     3         153*t54+4.622222222222223d+1*gammaaa*t104*t52*t53-1.94195
4387     4         03999999999d-1*gammaaa*t107*t151*t45*t51*t53+3.4666666666
4388     5         66666d+1*gammaaa*t107*t108*t51*t53-8.962848d-2*gammaaa*t1
4389     6         33*t150*t222*t45*t53+2.240712d-2*gammaaa*t133*t151*t152*t
4390     7         45*t53-1.7261781333333331d-1*gammaaa*t104*t108*t45*t53-4.
4391     8         0d+0*gammaaa*t108*t133*t152*t53+1.2d+1*gammaaa*t133*t150*
4392     9         t151*t53-8.962848d-2*t132*t150*t222*t49*t50-4.1826624d-1*
4393     :         t108*t173*t49*t50+2.240712d-2*t132*t151*t152*t49*t50-3.13
4394     ;         69968d-1*t107*t124*t151*t49*t50)+2.6666666666666666d+0*t1
4395     <         02*t192+4.444444444444444d-1*t134*t143)-9.305257363490997
4396     =         d-1*t4*t5*(-7.921643129916147d+5*t11*t217*t5*t7-4.5701787
4397     >         287977763d+5*t13*t21*t5*t7+5.585774001863949d+5*t100*t18*
4398     ?         t5*t7+6.702928802236738d+5*t141*t15*t5*t7-2.2282577153689
4399     @         58d+3*t13*t135*t18*t7+2.6739092584427493d+3*t11*t135*t141
4400     1         *t7+9.232684300601569d+2*t37*t41*t5-2.769805290180471d+3*
4401     2         t10*t34*t41*t5-1.1079221160721883d+4*t31*t38*t39*t5+1.661
4402     3         8831741082832d+4*t31*t35*t39*t5+2.2158442321443766d+4*t31
4403     4         *t32*t39*t5-2.7698052901804704d+4*t29*t31*t39*t5+1.846536
4404     5         860120314d+3*t37*t38*t5+5.539610580360942d+3*t10*t34*t38*
4405     6         t5-2.769805290180471d+3*t35*t37*t5-2.769805290180471d+4*t
4406     7         28*t35*t36*t5+3.693073720240629d+4*t28*t32*t36*t5+4.61634
4407     8         2150300784d+4*t28*t29*t36*t5-5.539610580360942d+4*t26*t28
4408     9         *t36*t5+8.309415870541416d+3*t10*t34*t35*t5-1.10792211607
4409     :         21883d+4*t10*t32*t34*t5-5.539610580360941d+4*t25*t32*t33*
4410     ;         t5+6.924513225451174d+4*t25*t29*t33*t5+8.309415870541416d
4411     <         +4*t25*t26*t33*t5-9.694318515631648d+4*t23*t25*t33*t5-9.6
4412     =         94318515631648d+4*t22*t29*t30*t5+1.1633182218757979d+5*t2
4413     >         2*t26*t30*t5+1.3572045921884307d+5*t22*t23*t30*t5-1.55109
4414     ?         09625010635d+5*t20*t22*t30*t5-1.5510909625010638d+5*t19*t
4415     @         26*t27*t5+1.809606122917908d+5*t19*t23*t27*t5+2.068121283
4416     1         3347515d+5*t19*t20*t27*t5-2.3266364437515952d+5*t17*t19*t
4417     2         27*t5-2.3266364437515955d+5*t16*t23*t24*t5+2.659013078573
4418     3         252d+5*t16*t20*t24*t5+2.9913897133949086d+5*t16*t17*t24*t
4419     4         5-3.3237663482165647d+5*t14*t16*t24*t5-3.323766348216565d
4420     5         +5*t13*t20*t21*t5+3.7392371417436354d+5*t13*t17*t21*t5+4.
4421     6         1547079352707056d+5*t13*t14*t21*t5-4.5701787287977763d+5*
4422     7         t100*t17*t18*t5+5.077976365330863d+5*t100*t14*t18*t5-6.09
4423     8         3571638397035d+5*t14*t141*t15*t5+4.0513776643071964d+1*t1
4424     9         0*t135*t37*t41-4.0513776643071964d+1*t135*t38*t40+1.21541
4425     :         32992921589d+2*t135*t34*t38*t39-2.4308265985843178d+2*t13
4426     ;         5*t32*t34*t39-1.2154132992921589d+2*t10*t135*t35*t37+2.43
4427     <         08265985843178d+2*t135*t31*t35*t36-4.051377664307196d+2*t
4428     =         135*t29*t31*t36+4.0513776643071964d+2*t135*t28*t32*t33-6.
4429     >         077066496460795d+2*t135*t26*t28*t33+6.077066496460793d+2*
4430     ?         t135*t25*t29*t30-8.507893095045111d+2*t135*t23*t25*t30+8.
4431     @         507893095045113d+2*t135*t22*t26*t27-1.1343857460060149d+3
4432     1         *t135*t20*t22*t27+1.1343857460060149d+3*t135*t19*t23*t24-
4433     2         1.4584959591505905d+3*t135*t17*t19*t24+1.4584959591505908
4434     3         d+3*t135*t16*t20*t21-1.8231199489382383d+3*t135*t14*t16*t
4435     4         21+1.8231199489382383d+3*t13*t135*t17*t18+2.2282577153689
4436     5         576d+3*t100*t135*t14*t15)+t52*(-8.298933333333333d-3*t175
4437     6         *t58-1.0d+0*t107*t192*t5-1.0d+0*t134*t152*t5-t107*t193-1.
4438     7         3333333333333333d+0*t102*t107*t134+6.2242d-3*t109*t126+6.
4439     8         2242d-3*t1*t110)-2.240712d-2*t135*t150*t151*t58-2.48968d-
4440     9         2*t107*t108*t126*t58-3.73452d-3*t155*t44*t52-1.8610514726
4441     :         981994d+0*t106*t191*t5+2.0d+0*t108*t134*t150*t5-9.3052573
4442     ;         63490997d-1*t131*t149*t5-7.46904d-3*t108*t156*t44-2.48140
4443     <         1963597599d+0*t102*t191*t4-4.1356699393293317d-1*t131*t14
4444     =         3*t4-2.481401963597599d+0*t102*t106*t131)*wght+Mmat3(iq,D
4445     >         3_RA_RA_TA)
4446            Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB)
4447            Mmat3(iq,D3_RA_RB_TA) = Mmat3(iq,D3_RA_RB_TA)
4448            Mmat3(iq,D3_RA_RB_TB) = Mmat3(iq,D3_RA_RB_TB)
4449            Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA)
4450            Mmat3(iq,D3_RB_RB_TB) = (t93*(1.0d+0*t63*(-7.469039999999999
4451     1         d-2*t57*t95*t96*taub+8.0d+1*t54*t95*t96*taub-2.9876159999
4452     2         999996d-1*t120*t54*t91*t95*taub-2.987616d-1*t119*t138*t16
4453     3         7*t54*t91*taub-4.97936d-2*t119*t120*t138*t57*taub+5.33333
4454     4         3333333333d+1*t119*t120*t138*t54*taub-1.493808d-1*gammabb
4455     5         *t119*t137*t167*t53*taub-2.8216373333333333d-1*gammabb*t1
4456     6         20*t128*t53*taub-8.962848d-2*t166*t229*t54*t90*t97+2.2407
4457     7         12d-2*t167*t168*t54*t90*t97-7.46904d-2*t119*t167*t54*t59*
4458     8         t97-3.319573333333333d-2*t117*t120*t54*t97-1.659786666666
4459     9         6666d-2*t117*t57*t91*t96+1.7777777777777778d+1*t117*t54*t
4460     :         91*t96-2.0d+0*t168*t57*t90*t96+6.666666666666667d+0*t119*
4461     ;         t57*t59*t96-8.630890666666666d-2*gammabb*t116*t56*t96+4.6
4462     <         22222222222223d+1*gammabb*t116*t53*t96-1.9419503999999999
4463     =         d-1*gammabb*t119*t167*t53*t91*t95-6.473168d-2*gammabb*t11
4464     >         9*t120*t56*t95+3.466666666666666d+1*gammabb*t119*t120*t53
4465     ?         *t95-8.962848d-2*t137*t166*t229*t49*t94-4.1826624d-1*t120
4466     @         *t178*t49*t94+2.240712d-2*t137*t167*t168*t49*t94-3.136996
4467     1         8d-1*t119*t128*t167*t49*t94+8.88888888888889d+0*t117*t57*
4468     2         t93+7.46904d-3*t120*t168*t57*t90*t91-2.240712d-2*t166*t16
4469     3         7*t57*t90*t91-8.0d+0*t120*t168*t54*t90*t91+2.4d+1*t166*t1
4470     4         67*t54*t90*t91-2.48968d-2*t119*t120*t57*t59*t91+2.6666666
4471     5         666666666d+1*t119*t120*t54*t59*t91-8.962848d-2*gammabb*t1
4472     6         38*t166*t229*t53*t91+2.240712d-2*gammabb*t138*t167*t168*t
4473     7         53*t91-1.7261781333333331d-1*gammabb*t116*t120*t53*t91+4.
4474     8         0d+0*t120*t166*t57*t90+7.46904d-3*gammabb*t120*t138*t168*
4475     9         t56-2.240712d-2*gammabb*t138*t166*t167*t56-1.659786666666
4476     :         667d-1*t120*t137*t169*t54-4.0d+0*gammabb*t120*t138*t168*t
4477     ;         53+1.2d+1*gammabb*t138*t166*t167*t53)+2.6666666666666666d
4478     <         +0*t114*t195+4.444444444444444d-1*t139*t159)+t96*(-8.2989
4479     =         33333333333d-3*t180*t98-1.0d+0*t119*t195*t63-1.0d+0*t139*
4480     >         t168*t63+6.2242d-3*t122*t59-t119*t196-1.3333333333333333d
4481     ?         +0*t114*t119*t139+6.2242d-3*t121*t130)-2.240712d-2*t140*t
4482     @         166*t167*t98-2.48968d-2*t119*t120*t130*t98-3.73452d-3*t17
4483     1         1*t90*t96-7.46904d-3*t120*t172*t90-9.305257363490997d-1*t
4484     2         62*t63*(-4.0513776643071964d+1*t140*t38*t87+1.21541329929
4485     3         21589d+2*t140*t38*t83*t86-2.4308265985843178d+2*t140*t32*
4486     4         t83*t86-1.1079221160721883d+4*t38*t63*t81*t86+1.661883174
4487     5         1082832d+4*t35*t63*t81*t86+2.2158442321443766d+4*t32*t63*
4488     6         t81*t86-2.7698052901804704d+4*t29*t63*t81*t86+4.051377664
4489     7         3071964d+1*t140*t41*t66*t85-1.2154132992921589d+2*t140*t3
4490     8         5*t66*t85+9.232684300601569d+2*t41*t63*t85+1.846536860120
4491     9         314d+3*t38*t63*t85-2.769805290180471d+3*t35*t63*t85+2.430
4492     :         8265985843178d+2*t140*t35*t81*t84-4.051377664307196d+2*t1
4493     ;         40*t29*t81*t84-2.769805290180471d+4*t35*t63*t79*t84+3.693
4494     <         073720240629d+4*t32*t63*t79*t84+4.616342150300784d+4*t29*
4495     =         t63*t79*t84-5.539610580360942d+4*t26*t63*t79*t84-2.769805
4496     >         290180471d+3*t41*t63*t66*t83+5.539610580360942d+3*t38*t63
4497     ?         *t66*t83+8.309415870541416d+3*t35*t63*t66*t83-1.107922116
4498     @         0721883d+4*t32*t63*t66*t83+4.0513776643071964d+2*t140*t32
4499     1         *t79*t82-6.077066496460795d+2*t140*t26*t79*t82-5.53961058
4500     2         0360941d+4*t32*t63*t77*t82+6.924513225451174d+4*t29*t63*t
4501     3         77*t82+8.309415870541416d+4*t26*t63*t77*t82-9.69431851563
4502     4         1648d+4*t23*t63*t77*t82+6.077066496460793d+2*t140*t29*t77
4503     5         *t80-8.507893095045111d+2*t140*t23*t77*t80-9.694318515631
4504     6         648d+4*t29*t63*t75*t80+1.1633182218757979d+5*t26*t63*t75*
4505     7         t80+1.3572045921884307d+5*t23*t63*t75*t80-1.5510909625010
4506     8         635d+5*t20*t63*t75*t80+8.507893095045113d+2*t140*t26*t75*
4507     9         t78-1.1343857460060149d+3*t140*t20*t75*t78-1.551090962501
4508     :         0638d+5*t26*t63*t73*t78+1.809606122917908d+5*t23*t63*t73*
4509     ;         t78+2.0681212833347515d+5*t20*t63*t73*t78-2.3266364437515
4510     <         952d+5*t17*t63*t73*t78+1.1343857460060149d+3*t140*t23*t73
4511     =         *t76-1.4584959591505905d+3*t140*t17*t73*t76-2.32663644375
4512     >         15955d+5*t23*t63*t71*t76+2.659013078573252d+5*t20*t63*t71
4513     ?         *t76+2.9913897133949086d+5*t17*t63*t71*t76-3.323766348216
4514     @         5647d+5*t14*t63*t71*t76+1.4584959591505908d+3*t140*t20*t7
4515     1         1*t74-1.8231199489382383d+3*t14*t140*t71*t74-4.5701787287
4516     2         977763d+5*t63*t69*t7*t74-3.323766348216565d+5*t20*t63*t69
4517     3         *t74+3.7392371417436354d+5*t17*t63*t69*t74+4.154707935270
4518     4         7056d+5*t14*t63*t69*t74-2.228257715368958d+3*t140*t69*t7*
4519     5         t72+5.585774001863949d+5*t112*t63*t7*t72+1.82311994893823
4520     6         83d+3*t140*t17*t69*t72-4.5701787287977763d+5*t112*t17*t63
4521     7         *t72+5.077976365330863d+5*t112*t14*t63*t72+6.702928802236
4522     8         738d+5*t157*t63*t7*t70-6.093571638397035d+5*t14*t157*t63*
4523     9         t70+2.2282577153689576d+3*t112*t14*t140*t70-7.92164312991
4524     :         6147d+5*t224*t63*t67*t7+2.6739092584427493d+3*t140*t157*t
4525     ;         67*t7)-1.8610514726981994d+0*t118*t194*t63+2.0d+0*t120*t1
4526     <         39*t166*t63-9.305257363490997d-1*t136*t165*t63-2.48140196
4527     =         3597599d+0*t114*t194*t62-4.1356699393293317d-1*t136*t159*
4528     >         t62-2.481401963597599d+0*t114*t118*t136)*wght+Mmat3(iq,D3
4529     ?         _RB_RB_TB)
4530            Mmat3(iq,D3_RA_GAA_TA) = (t47*(1.0d+0*t5*(-4.6488798768d-5*t
4531     1         108*t132*t57*taua-2.7893279260799997d-4*t132*t151*t45*t54
4532     2         *taua+4.97936d-2*t108*t132*t54*taua-1.3946639630399998d-4
4533     3         *gammaaa*t151*t197*t53*taua+2.48968d-2*t108*t132*t53*taua
4534     4         +1.618292d-2*t51*t52*t57-6.043543839839999d-5*t108*t45*t5
4535     5         1*t57-4.1839918891199995d-5*t107*t133*t151*t45*t57+7.4690
4536     6         4d-3*t107*t108*t133*t57+1.618292d-2*t51*t52*t56-4.1839918
4537     7         891199995d-5*gammaaa*t107*t132*t151*t56+7.46904d-3*t107*t
4538     8         108*t133*t56-9.76264774128d-5*gammaaa*t108*t124*t56-1.813
4539     9         0631519519996d-4*t151*t51*t54*t55-1.673596755648d-4*t107*
4540     :         t133*t222*t54*t55+6.473168d-2*t108*t45*t51*t54+4.481424d-
4541     ;         2*t107*t133*t151*t45*t54-8.666666666666666d+0*t51*t52*t53
4542     <         +3.236584d-2*t108*t45*t51*t53-1.673596755648d-4*gammaaa*t
4543     =         107*t132*t222*t45*t53+2.240712d-2*t107*t133*t151*t45*t53-
4544     >         2.9287943223839996d-4*gammaaa*t124*t151*t45*t53+2.240712d
4545     ?         -2*gammaaa*t107*t132*t151*t53-4.0d+0*t107*t108*t133*t53+5
4546     @         .228328d-2*gammaaa*t108*t124*t53-1.673596755648d-4*t107*t
4547     1         197*t222*t49*t50-4.044525492816d-4*t151*t184*t49*t50+4.48
4548     2         1424d-2*gammaaa*t107*t132*t151*t49+1.0456655999999999d-1*
4549     3         gammaaa*t108*t124*t49)+1.3333333333333333d+0*t102*t198)-4
4550     4         .1839918891199995d-5*t107*t151*t199*t58-6.043543839839999
4551     5         d-5*t108*t186*t58-1.0d+0*t107*t198*t5*t52-3.73452d-3*t177
4552     6         *t44*t52-1.86726d-3*t1*t193*t52+4.9793599999999993d-3*t13
4553     7         4*t175*t52+6.2242d-3*t125*t126*t52-9.305257363490997d-1*t
4554     8         123*t191*t5-9.305257363490997d-1*t131*t174*t5+7.46904d-3*
4555     9         t107*t108*t125*t135+3.73452d-3*t107*t108*t126*t134+1.3946
4556     :         639630399998d-5*t108*t110*t133-1.2407009817987995d+0*t102
4557     ;         *t123*t131)*wght+Mmat3(iq,D3_RA_GAA_TA)
4558            Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB)
4559            Mmat3(iq,D3_RA_GAB_TA) = Mmat3(iq,D3_RA_GAB_TA)
4560            Mmat3(iq,D3_RA_GAB_TB) = Mmat3(iq,D3_RA_GAB_TB)
4561            Mmat3(iq,D3_RA_GBB_TA) = Mmat3(iq,D3_RA_GBB_TA)
4562            Mmat3(iq,D3_RA_GBB_TB) = Mmat3(iq,D3_RA_GBB_TB)
4563            Mmat3(iq,D3_RB_GAA_TA) = Mmat3(iq,D3_RB_GAA_TA)
4564            Mmat3(iq,D3_RB_GAA_TB) = Mmat3(iq,D3_RB_GAA_TB)
4565            Mmat3(iq,D3_RB_GAB_TA) = Mmat3(iq,D3_RB_GAB_TA)
4566            Mmat3(iq,D3_RB_GAB_TB) = Mmat3(iq,D3_RB_GAB_TB)
4567            Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA)
4568            Mmat3(iq,D3_RB_GBB_TB) = (t93*(1.0d+0*t63*(-2.78932792607999
4569     1         97d-4*t137*t167*t54*t91*taub-4.6488798768d-5*t120*t137*t5
4570     2         7*taub+4.97936d-2*t120*t137*t54*taub-1.3946639630399998d-
4571     3         4*gammabb*t167*t200*t53*taub+2.48968d-2*t120*t137*t53*tau
4572     4         b-1.8130631519519996d-4*t167*t54*t95*t97-1.673596755648d-
4573     5         4*t119*t138*t229*t54*t97+1.618292d-2*t57*t95*t96+1.618292
4574     6         d-2*t56*t95*t96-8.666666666666666d+0*t53*t95*t96-6.043543
4575     7         839839999d-5*t120*t57*t91*t95+6.473168d-2*t120*t54*t91*t9
4576     8         5+3.236584d-2*t120*t53*t91*t95-1.673596755648d-4*t119*t20
4577     9         0*t229*t49*t94-4.044525492816d-4*t167*t188*t49*t94-4.1839
4578     :         918891199995d-5*t119*t138*t167*t57*t91+4.481424d-2*t119*t
4579     ;         138*t167*t54*t91-1.673596755648d-4*gammabb*t119*t137*t229
4580     <         *t53*t91+2.240712d-2*t119*t138*t167*t53*t91-2.92879432238
4581     =         39996d-4*gammabb*t128*t167*t53*t91+7.46904d-3*t119*t120*t
4582     >         138*t57-4.1839918891199995d-5*gammabb*t119*t137*t167*t56+
4583     ?         7.46904d-3*t119*t120*t138*t56-9.76264774128d-5*gammabb*t1
4584     @         20*t128*t56+2.240712d-2*gammabb*t119*t137*t167*t53-4.0d+0
4585     1         *t119*t120*t138*t53+5.228328d-2*gammabb*t120*t128*t53+4.4
4586     2         81424d-2*gammabb*t119*t137*t167*t49+1.0456655999999999d-1
4587     3         *gammabb*t120*t128*t49)+1.3333333333333333d+0*t114*t201)-
4588     4         4.1839918891199995d-5*t119*t167*t202*t98-6.04354383983999
4589     5         9d-5*t120*t190*t98-3.73452d-3*t182*t90*t96-1.0d+0*t119*t2
4590     6         01*t63*t96-1.86726d-3*t196*t59*t96+4.9793599999999993d-3*
4591     7         t139*t180*t96+6.2242d-3*t129*t130*t96-9.305257363490997d-
4592     8         1*t127*t194*t63-9.305257363490997d-1*t136*t179*t63+7.4690
4593     9         4d-3*t119*t120*t129*t140+3.73452d-3*t119*t120*t130*t139+1
4594     :         .3946639630399998d-5*t120*t122*t138-1.2407009817987995d+0
4595     ;         *t114*t127*t136)*wght+Mmat3(iq,D3_RB_GBB_TB)
4596            Mmat3(iq,D3_RA_TA_TA) = (-7.812600694878209d-8*t151*t220*t58
4597     1         +1.0d+0*t47*t5*(-7.812600694878209d-8*t132*t151*t45*t57+1
4598     2         .3946639630399998d-5*t108*t132*t57-7.812600694878209d-8*g
4599     3         ammaaa*t151*t197*t56+2.7893279260799997d-5*t108*t132*t56-
4600     4         3.125040277951284d-7*t132*t222*t54*t55+8.367983778239999d
4601     5         -5*t132*t151*t45*t54-3.125040277951284d-7*gammaaa*t197*t2
4602     6         22*t45*t53+8.367983778239999d-5*t132*t151*t45*t53+4.18399
4603     7         18891199995d-5*gammaaa*t151*t197*t53-1.4938079999999998d-
4604     8         2*t108*t132*t53-3.125040277951284d-7*t222*t49*t50/rhoa**1
4605     9         .2333333333333334d+1+1.673596755648d-4*gammaaa*t151*t197*
4606     :         t49-1.4938079999999998d-2*t108*t132*t49)-3.73452d-3*t126*
4607     ;         t198*t52-3.73452d-3*t135*t185*t52-9.305257363490997d-1*t1
4608     <         31*t183*t5+2.7893279260799997d-5*t108*t125*t199+6.9733198
4609     =         15199999d-6*t108*t134*t186)*wght+Mmat3(iq,D3_RA_TA_TA)
4610            Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB)
4611            Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB)
4612            Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA)
4613            Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB)
4614            Mmat3(iq,D3_RB_TB_TB) = Mmat3(iq,D3_RB_TB_TB)
4615            Mmat3(iq,D3_GAA_GAA_TA) = Mmat3(iq,D3_GAA_GAA_TA)
4616            Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB)
4617            Mmat3(iq,D3_GAA_GAB_TA) = Mmat3(iq,D3_GAA_GAB_TA)
4618            Mmat3(iq,D3_GAA_GAB_TB) = Mmat3(iq,D3_GAA_GAB_TB)
4619            Mmat3(iq,D3_GAA_GBB_TA) = Mmat3(iq,D3_GAA_GBB_TA)
4620            Mmat3(iq,D3_GAA_GBB_TB) = (-7.812600694878209d-8*t167*t227*t
4621     1         98+1.0d+0*t63*t93*(-3.125040277951284d-7*t137*t229*t54*t9
4622     2         7-3.125040277951284d-7*t229*t49*t94/rhob**1.2333333333333
4623     3         334d+1-7.812600694878209d-8*t137*t167*t57*t91+8.367983778
4624     4         239999d-5*t137*t167*t54*t91-3.125040277951284d-7*gammabb*
4625     5         t200*t229*t53*t91+8.367983778239999d-5*t137*t167*t53*t91+
4626     6         1.3946639630399998d-5*t120*t137*t57-7.812600694878209d-8*
4627     7         gammabb*t167*t200*t56+2.7893279260799997d-5*t120*t137*t56
4628     8         +4.1839918891199995d-5*gammabb*t167*t200*t53-1.4938079999
4629     9         999998d-2*t120*t137*t53+1.673596755648d-4*gammabb*t167*t2
4630     :         00*t49-1.4938079999999998d-2*t120*t137*t49)-3.73452d-3*t1
4631     ;         30*t201*t96-3.73452d-3*t140*t189*t96-9.305257363490997d-1
4632     <         *t136*t187*t63+2.7893279260799997d-5*t120*t129*t202+6.973
4633     =         319815199999d-6*t120*t139*t190)*wght+Mmat3(iq,D3_GAA_GBB_
4634     >         TB)
4635            Mmat3(iq,D3_GAB_GAB_TA) = (-1.5625201389756418d-7*t148*t151*
4636     1         t58+1.0d+0*t47*t5*(-1.5625201389756418d-7*t151*t205*t45*t
4637     2         57+5.578655852159999d-5*t108*t205*t57+2.7893279260799997d
4638     3         -5*t108*t205*t56-1.5625201389756418d-7*gammaaa*t151*t204*
4639     4         t56-6.250080555902569d-7*t205*t222*t54*t55+3.347193511296
4640     5         d-4*t151*t205*t45*t54-2.9876159999999996d-2*t108*t205*t54
4641     6         -6.250080555902569d-7*gammaaa*t204*t222*t45*t53+8.3679837
4642     7         78239999d-5*t151*t205*t45*t53-2.9876159999999996d-2*t108*
4643     8         t205*t53+1.673596755648d-4*gammaaa*t151*t204*t53-6.250080
4644     9         555902569d-7*t222*t49*t50/rhoa**1.1333333333333334d+1+1.6
4645     :         73596755648d-4*gammaaa*t151*t204*t49)-1.86726d-3*t126*t20
4646     ;         7*t52-7.46904d-3*t135*t198*t52-9.305257363490997d-1*t123*
4647     <         t203*t5+2.7893279260799997d-5*t108*t125*t209+2.7893279260
4648     =         799997d-5*t108*t134*t199)*wght+Mmat3(iq,D3_GAB_GAB_TA)
4649            Mmat3(iq,D3_GAB_GAB_TB) = Mmat3(iq,D3_GAB_GAB_TB)
4650            Mmat3(iq,D3_GAB_GBB_TA) = Mmat3(iq,D3_GAB_GBB_TA)
4651            Mmat3(iq,D3_GAB_GBB_TB) = Mmat3(iq,D3_GAB_GBB_TB)
4652            Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA)
4653            Mmat3(iq,D3_GBB_GBB_TB) = Mmat3(iq,D3_GBB_GBB_TB)
4654            Mmat3(iq,D3_GAA_TA_TA) = Mmat3(iq,D3_GAA_TA_TA)
4655            Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB)
4656            Mmat3(iq,D3_GAA_TB_TB) = (-1.5625201389756418d-7*t164*t167*t
4657     1         98+1.0d+0*t63*t93*(-6.250080555902569d-7*t212*t229*t54*t9
4658     2         7-6.250080555902569d-7*t229*t49*t94/rhob**1.1333333333333
4659     3         334d+1-1.5625201389756418d-7*t167*t212*t57*t91+3.34719351
4660     4         1296d-4*t167*t212*t54*t91-6.250080555902569d-7*gammabb*t2
4661     5         11*t229*t53*t91+8.367983778239999d-5*t167*t212*t53*t91+5.
4662     6         578655852159999d-5*t120*t212*t57+2.7893279260799997d-5*t1
4663     7         20*t212*t56-1.5625201389756418d-7*gammabb*t167*t211*t56-2
4664     8         .9876159999999996d-2*t120*t212*t54-2.9876159999999996d-2*
4665     9         t120*t212*t53+1.673596755648d-4*gammabb*t167*t211*t53+1.6
4666     :         73596755648d-4*gammabb*t167*t211*t49)-1.86726d-3*t130*t21
4667     ;         4*t96-7.46904d-3*t140*t201*t96-9.305257363490997d-1*t127*
4668     <         t210*t63+2.7893279260799997d-5*t120*t129*t216+2.789327926
4669     =         0799997d-5*t120*t139*t202)*wght+Mmat3(iq,D3_GAA_TB_TB)
4670            Mmat3(iq,D3_GAB_TA_TA) = (-9.305257363490997d-1*t4*t5*(-1.37
4671     1         28d+4*t11*t217*t7-7.92d+3*t13*t21*t7-2.904d+4*t100*t18*t7
4672     2         -3.4848d+4*t141*t15*t7-4.8d+1*t37*t41-4.8d+1*t10*t34*t41-
4673     3         1.92d+2*t31*t38*t39-8.64d+2*t31*t35*t39-1.152d+3*t31*t32*
4674     4         t39-4.8d+2*t29*t31*t39-9.6d+1*t37*t38-2.88d+2*t10*t34*t38
4675     5         -4.8d+1*t35*t37-4.8d+2*t28*t35*t36-1.92d+3*t28*t32*t36-2.
4676     6         4d+3*t28*t29*t36-9.6d+2*t26*t28*t36-4.32d+2*t10*t34*t35-1
4677     7         .92d+2*t10*t32*t34-9.6d+2*t25*t32*t33-3.6d+3*t25*t29*t33-
4678     8         4.32d+3*t25*t26*t33-1.68d+3*t23*t25*t33-1.68d+3*t22*t29*t
4679     9         30-6.048d+3*t22*t26*t30-7.056d+3*t22*t23*t30-2.688d+3*t20
4680     :         *t22*t30-2.688d+3*t19*t26*t27-9.408d+3*t19*t23*t27-1.0752
4681     ;         d+4*t19*t20*t27-4.032d+3*t17*t19*t27-4.032d+3*t16*t23*t24
4682     <         -1.3824d+4*t16*t20*t24-1.5552d+4*t16*t17*t24-5.76d+3*t14*
4683     =         t16*t24-5.76d+3*t13*t20*t21-1.944d+4*t13*t17*t21-2.16d+4*
4684     >         t13*t14*t21-7.92d+3*t100*t17*t18-2.64d+4*t100*t14*t18-1.0
4685     ?         56d+4*t14*t141*t15)-3.1250402779512837d-7*t105*t151*t58+1
4686     @         .0d+0*t47*t5*(-3.1250402779512837d-7*t151*t232*t45*t57+1.
4687     1         6735967556479997d-4*t108*t232*t57-3.1250402779512837d-7*g
4688     2         ammaaa*t151*t235*t56-1.2500161111805136d-6*t222*t232*t54*
4689     3         t55+1.0041580533887999d-3*t151*t232*t45*t54-1.7925696d-1*
4690     4         t108*t232*t54-1.2500161111805136d-6*gammaaa*t222*t235*t45
4691     5         *t53+5.020790266944d-4*gammaaa*t151*t235*t53-1.2500161111
4692     6         805136d-6*t222*t49*t50/rhoa**1.0333333333333333d+1)-1.120
4693     7         356d-2*t135*t207*t52+8.367983778239998d-5*t108*t134*t209)
4694     8         *wght+Mmat3(iq,D3_GAB_TA_TA)
4695            Mmat3(iq,D3_GAB_TA_TB) = Mmat3(iq,D3_GAB_TA_TB)
4696            Mmat3(iq,D3_GAB_TB_TB) = Mmat3(iq,D3_GAB_TB_TB)
4697            Mmat3(iq,D3_GBB_TA_TA) = (-3.1250402779512837d-7*t117*t167*t
4698     1         98+1.0d+0*t63*t93*(-1.2500161111805136d-6*t229*t234*t54*t
4699     2         97-1.2500161111805136d-6*t229*t49*t94/rhob**1.03333333333
4700     3         33333d+1-3.1250402779512837d-7*t167*t234*t57*t91+1.004158
4701     4         0533887999d-3*t167*t234*t54*t91-1.2500161111805136d-6*gam
4702     5         mabb*t229*t236*t53*t91+1.6735967556479997d-4*t120*t234*t5
4703     6         7-3.1250402779512837d-7*gammabb*t167*t236*t56-1.7925696d-
4704     7         1*t120*t234*t54+5.020790266944d-4*gammabb*t167*t236*t53)-
4705     8         1.120356d-2*t140*t214*t96-9.305257363490997d-1*t62*t63*(-
4706     9         1.92d+2*t38*t81*t86-8.64d+2*t35*t81*t86-1.152d+3*t32*t81*
4707     :         t86-4.8d+2*t29*t81*t86-4.8d+1*t41*t85-9.6d+1*t38*t85-4.8d
4708     ;         +1*t35*t85-4.8d+2*t35*t79*t84-1.92d+3*t32*t79*t84-2.4d+3*
4709     <         t29*t79*t84-9.6d+2*t26*t79*t84-4.8d+1*t41*t66*t83-2.88d+2
4710     =         *t38*t66*t83-4.32d+2*t35*t66*t83-1.92d+2*t32*t66*t83-9.6d
4711     >         +2*t32*t77*t82-3.6d+3*t29*t77*t82-4.32d+3*t26*t77*t82-1.6
4712     ?         8d+3*t23*t77*t82-1.68d+3*t29*t75*t80-6.048d+3*t26*t75*t80
4713     @         -7.056d+3*t23*t75*t80-2.688d+3*t20*t75*t80-2.688d+3*t26*t
4714     1         73*t78-9.408d+3*t23*t73*t78-1.0752d+4*t20*t73*t78-4.032d+
4715     2         3*t17*t73*t78-4.032d+3*t23*t71*t76-1.3824d+4*t20*t71*t76-
4716     3         1.5552d+4*t17*t71*t76-5.76d+3*t14*t71*t76-7.92d+3*t69*t7*
4717     4         t74-5.76d+3*t20*t69*t74-1.944d+4*t17*t69*t74-2.16d+4*t14*
4718     5         t69*t74-2.904d+4*t112*t7*t72-7.92d+3*t112*t17*t72-2.64d+4
4719     6         *t112*t14*t72-3.4848d+4*t157*t7*t70-1.056d+4*t14*t157*t70
4720     7         -1.3728d+4*t224*t67*t7)+8.367983778239998d-5*t120*t139*t2
4721     8         16)*wght+Mmat3(iq,D3_GBB_TA_TA)
4722          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
4723            t1 = 1/rhoa**2.6666666666666666d+0
4724            t2 = 4.49276922095889d-3*gammaaa*t1+1.0d+0
4725            t3 = 1/t2
4726            t4 = 3.6121864536509485d-3*gammaaa*t1*t3+1.0d+0
4727            t5 = rhoa**1.3333333333333333d+0
4728            t6 = param(18)
4729            t7 = rhoa**1.6666666666666669d+0
4730            t8 = 9.115599744691192d+0*t7
4731            t9 = t8-2.0d+0*taua
4732            t10 = t9**11
4733            t11 = 2.0d+0*taua+t8
4734            t12 = 1/t11**11
4735            t13 = param(17)
4736            t14 = t9**10
4737            t15 = 1/t11**10
4738            t16 = param(16)
4739            t17 = t9**9
4740            t18 = 1/t11**9
4741            t19 = param(15)
4742            t20 = t9**8
4743            t21 = 1/t11**8
4744            t22 = param(14)
4745            t23 = t9**7
4746            t24 = 1/t11**7
4747            t25 = param(13)
4748            t26 = t9**6
4749            t27 = 1/t11**6
4750            t28 = param(12)
4751            t29 = t9**5
4752            t30 = 1/t11**5
4753            t31 = param(11)
4754            t32 = t9**4
4755            t33 = 1/t11**4
4756            t34 = param(10)
4757            t35 = t9**3
4758            t36 = 1/t11**3
4759            t37 = param(9)
4760            t38 = t9**2
4761            t39 = 1/t11**2
4762            t40 = param(8)
4763            t41 = 1/t11
4764            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
4765     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
4766     2         17*t18+t13*t14*t15+param(7)
4767            t43 = 1/t7
4768            t44 = 2.0d+0*t43*taua-9.11559972d+0
4769            t45 = 1.86726d-3*t44+1.86726d-3*gammaaa*t1+1.0d+0
4770            t46 = 1/t45
4771            t47 = param(4)
4772            t48 = gammaaa**2
4773            t49 = 1/rhoa**5.333333333333333d+0
4774            t50 = 1/t45**2
4775            t51 = param(5)
4776            t52 = param(6)
4777            t53 = t44**2
4778            t54 = param(2)
4779            t55 = param(3)
4780            t56 = t44*t46*t55+gammaaa*t1*t46*t54+t50*t52*t53+gammaaa*t1*
4781     1         t44*t50*t51+t47*t48*t49*t50+param(1)
4782            t57 = rhoa**6.666666666666666d-1
4783            t58 = 1/t11**12
4784            t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039
4785     1         7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+
4786     2         1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+
4787     3         1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577
4788     4         998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33
4789     5         *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706
4790     6         6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3
4791     7         0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974
4792     8         4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t
4793     9         26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368
4794     :         806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t
4795     ;         23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617
4796     <         036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t
4797     =         17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241
4798     >         151986d+2*t12*t13*t14*t57
4799            t60 = rhoa**3.333333333333333d-1
4800            t61 = 1/t2**2
4801            t62 = 1/rhoa**6.333333333333333d+0
4802            t63 = 1/rhoa**3.6666666666666664d+0
4803            t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3*
4804     1         gammaaa*t3*t63
4805            t65 = -6.2242d-3*t1*taua-4.9793599999999993d-3*gammaaa*t63
4806            t66 = 1/t45**3
4807            t67 = -3.3333333333333337d+0*t1*t46*t55*taua-6.6666666666666
4808     1         67d+0*t1*t44*t50*t52*taua-3.3333333333333337d+0*gammaaa*t
4809     2         49*t50*t51*taua-2*t52*t53*t65*t66-2*gammaaa*t1*t44*t51*t6
4810     3         5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammaaa*t1*t5
4811     4         0*t54*t65-2.6666666666666666d+0*gammaaa*t46*t54*t63-2.666
4812     5         6666666666666d+0*gammaaa*t44*t50*t51*t63-5.33333333333333
4813     6         3d+0*t47*t48*t50*t62
4814            t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60
4815            t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm
4816     1         aaa*t49*t61
4817            t70 = 1/rhoa**8
4818            t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66-
4819     1         3.73452d-3*gammaaa*t44*t49*t51*t66-1.86726d-3*t1*t44*t50*
4820     2         t55-1.86726d-3*gammaaa*t49*t50*t54+t1*t46*t54+t1*t44*t50*
4821     3         t51+2*gammaaa*t47*t49*t50
4822            t72 = 1/t5
4823            t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6
4824     1         -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d
4825     2         +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d
4826     3         +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d
4827     4         +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d
4828     5         +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d
4829     6         +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d
4830     7         +1*t12*t13*t14
4831            t74 = 1/rhoa**7
4832            t75 = 1/rhoa**4.333333333333333d+0
4833            t76 = -7.46904d-3*gammaaa*t44*t51*t66*t75-3.73452d-3*gammaaa
4834     1         *t50*t54*t75+2.0d+0*gammaaa*t50*t51*t75-7.46904d-3*t47*t4
4835     2         8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t
4836     3         50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52
4837            t77 = 1/t60
4838            t78 = 1/t11**13
4839            t79 = -1.0128444160767991d+1*t39*t40*t77*t9+2.02568883215359
4840     1         82d+1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-
4841     2         1.846536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*
4842     3         t34*t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.114128
4843     4         8576844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t1
4844     5         4*t6*t77+1.0128444160767991d+1*t40*t41*t77-2.025688832153
4845     6         5982d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*
4846     7         t77-3.038533248230397d+1*t33*t34*t35*t77+4.05137766430719
4847     8         64d+1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t
4848     9         77+5.064222080383994d+1*t28*t30*t32*t77-5.064222080383994
4849     :         d+1*t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-
4850     ;         6.077066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1
4851     <         *t22*t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.1
4852     =         02755328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t1
4853     >         8*t19*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.1155
4854     ?         99744691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t
4855     @         15*t17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.5857740
4856     1         01863949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t
4857     2         5*t6+2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007
4858     3         845d+2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.3849
4859     4         026450902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*
4860     5         t34*t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.76980529
4861     6         0180471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t3
4862     7         5*t5+4.616342150300784d+3*t28*t30*t35*t5+4.61634215030078
4863     8         4d+3*t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6
4864     9         .924513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t
4865     :         24*t28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.69431
4866     ;         8515631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25
4867     <         *t26*t5-2.2620076536473846d+4*t21*t22*t26*t5+1.2925758020
4868     =         842196d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t2
4869     >         3*t5-2.954458976192502d+4*t18*t19*t23*t5+1.66188317410828
4870     ?         23d+4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5
4871     @         -3.7392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d
4872     1         +4*t13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.
4873     2         616342150300784d+4*t12*t13*t17*t5
4874            t80 = 1/t57
4875            t81 = gammaaa**3
4876            t82 = 1/t2**3
4877            t83 = 1/rhoa**10
4878            t84 = 1/rhoa**7.333333333333333d+0
4879            t85 = 1/rhoa**4.666666666666667d+0
4880            t86 = 3.531915643569816d-2*gammaaa*t3*t85-3.8948928286386303
4881     1         d-4*t48*t61*t84+1.0369691626335495d-6*t81*t82*t83
4882            t87 = t65**2
4883            t88 = 1/t45**4
4884            t89 = 1.6597866666666666d-2*t63*taua+1.8257653333333332d-2*g
4885     1         ammaaa*t85
4886            t90 = taua**2
4887            t91 = 2.6666666666666666d+1*t1*t44*t52*t65*t66*taua+1.333333
4888     1         3333333333d+1*gammaaa*t49*t51*t65*t66*taua+6.666666666666
4889     2         667d+0*t1*t50*t55*t65*taua+8.88888888888889d+0*t46*t55*t6
4890     3         3*taua+1.7777777777777778d+1*t44*t50*t52*t63*taua+2.66666
4891     4         66666666666d+1*gammaaa*t50*t51*t62*taua+2.222222222222222
4892     5         4d+1*t49*t50*t52*t90-2*t52*t53*t66*t89-2*gammaaa*t1*t44*t
4893     6         51*t66*t89-2*t47*t48*t49*t66*t89-t44*t50*t55*t89-gammaaa*
4894     7         t1*t50*t54*t89+6*t52*t53*t87*t88+6*gammaaa*t1*t44*t51*t87
4895     8         *t88+6*t47*t48*t49*t87*t88+2*t44*t55*t66*t87+2*gammaaa*t1
4896     9         *t54*t66*t87+9.777777777777779d+0*gammaaa*t46*t54*t85+9.7
4897     :         77777777777779d+0*gammaaa*t44*t50*t51*t85+3.3777777777777
4898     ;         78d+1*t47*t48*t50*t84+1.0666666666666666d+1*gammaaa*t44*t
4899     <         51*t63*t65*t66+2.1333333333333332d+1*t47*t48*t62*t65*t66+
4900     =         5.333333333333333d+0*gammaaa*t50*t54*t63*t65
4901            t92 = 1.0d+0*t5*t91+4.444444444444444d-1*t56*t80+2.666666666
4902     1         6666666d+0*t60*t67
4903            t93 = -1.0d+0*t5*t56*t89-t65*t68-1.0d+0*t5*t65*t67-1.3333333
4904     1         333333333d+0*t56*t60*t65
4905            t94 = 1/rhoa**9
4906            t95 = -3.8886343598758105d-7*t48*t82*t94-9.632497209735863d-
4907     1         3*t3*t63+1.29829760954621d-4*gammaaa*t61*t62
4908            t96 = 1/rhoa**2.3333333333333334d+0
4909            t97 = 1.24484d-2*gammaaa*t51*t66*t70*taua+2.48968d-2*t44*t49
4910     1         *t52*t66*taua+6.2242d-3*t49*t50*t55*taua-3.33333333333333
4911     2         37d+0*t49*t50*t51*taua+2.9876159999999996d-2*t47*t48*t66*
4912     3         t94+1.120356d-2*t47*t48*t65*t70*t88+1.120356d-2*t1*t52*t5
4913     4         3*t65*t88+1.120356d-2*gammaaa*t44*t49*t51*t65*t88+3.73452
4914     5         d-3*t1*t44*t55*t65*t66+3.73452d-3*gammaaa*t49*t54*t65*t66
4915     6         -2*t1*t44*t51*t65*t66-4*gammaaa*t47*t49*t65*t66+9.9587199
4916     7         99999999d-3*t52*t53*t63*t66+1.9917439999999997d-2*gammaaa
4917     8         *t44*t51*t62*t66-t1*t50*t54*t65+4.9793599999999993d-3*t44
4918     9         *t50*t55*t63-2.6666666666666666d+0*t46*t54*t63-2.66666666
4919     :         66666666d+0*t44*t50*t51*t63+9.958719999999999d-3*gammaaa*
4920     ;         t50*t54*t62-1.0666666666666666d+1*gammaaa*t47*t50*t62
4921            t98 = 1.0d+0*t5*t97+1.3333333333333333d+0*t60*t71
4922            t99 = 1.4582378849534292d-7*gammaaa*t70*t82-3.24574402386552
4923     1         55d-5*t49*t61
4924            t100 = 1/rhoa**1.0666666666666666d+1
4925            t101 = 2.0919959445599998d-5*gammaaa*t44*t51*t70*t88+2.09199
4926     1         59445599998d-5*t49*t52*t53*t88+2.0919959445599998d-5*t100
4927     2         *t47*t48*t88+6.973319815199999d-6*gammaaa*t54*t66*t70-1.4
4928     3         938079999999998d-2*gammaaa*t47*t66*t70+6.973319815199999d
4929     4         -6*t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*
4930     5         t49*t50*t54+2*t47*t49*t50
4931            t102 = 1/rhoa**4
4932            t103 = 6.077066496460795d+1*t36*t40*t57*t9-1.823119948938238
4933     1         5d+2*t34*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-
4934     2         3.342386573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*
4935     3         t13*t14*t57*t58-6.077066496460795d+1*t37*t39*t57+1.823119
4936     4         9489382385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t3
4937     5         3*t38*t57+3.646239897876477d+2*t30*t34*t35*t57-6.07706649
4938     6         6460795d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t
4939     7         32*t57-9.115599744691192d+2*t25*t27*t32*t57+9.11559974469
4940     8         1192d+2*t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*
4941     9         t57+1.276183964256767d+3*t21*t25*t26*t57-1.70157861900902
4942     :         26d+3*t19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t
4943     ;         57-2.187743938725886d+3*t16*t18*t23*t57+2.187743938725886
4944     <         d+3*t15*t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+
4945     =         2.734679923407357d+3*t12*t16*t17*t57
4946            t104 = 4.97936d-2*t44*t52*t66*t75*taua+1.24484d-2*t50*t55*t7
4947     1         5*taua-1.3333333333333333d+1*t50*t52*t75*taua+2.48968d-2*
4948     2         gammaaa*t51*t66*t74*taua+2.240712d-2*gammaaa*t44*t51*t65*
4949     3         t75*t88+2.240712d-2*t47*t48*t65*t74*t88+2.240712d-2*t43*t
4950     4         52*t53*t65*t88+7.46904d-3*gammaaa*t54*t65*t66*t75-4.0d+0*
4951     5         gammaaa*t51*t65*t66*t75+5.228328d-2*t47*t48*t66*t70+7.469
4952     6         04d-3*t43*t44*t55*t65*t66-8.0d+0*t43*t44*t52*t65*t66+1.24
4953     7         484d-2*t1*t52*t53*t66+3.236584d-2*gammaaa*t44*t49*t51*t66
4954     8         -2.0d+0*t43*t50*t55*t65+6.2242d-3*t1*t44*t50*t55-3.333333
4955     9         3333333337d+0*t1*t46*t55+1.618292d-2*gammaaa*t49*t50*t54-
4956     :         6.666666666666667d+0*t1*t44*t50*t52-8.666666666666666d+0*
4957     ;         gammaaa*t49*t50*t51
4958            t105 = 1.3333333333333333d+0*t60*t76+1.0d+0*t104*t5
4959            t106 = 1/rhoa**9.666666666666666d+0
4960            t107 = 4.1839918891199995d-5*t52*t53*t75*t88+4.1839918891199
4961     1         995d-5*gammaaa*t44*t51*t74*t88+4.1839918891199995d-5*t106
4962     2         *t47*t48*t88+1.3946639630399998d-5*t44*t55*t66*t75-1.4938
4963     3         079999999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t7
4964     4         5-3.73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t5
4965     5         0*t51*t75+1.3946639630399998d-5*gammaaa*t54*t66*t74-7.469
4966     6         04d-3*gammaaa*t51*t66*t74-1.4938079999999998d-2*gammaaa*t
4967     7         47*t66*t74
4968            t108 = 1/rhoa**3
4969            t109 = 8.0d+0*t36*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9
4970     1         +5.28d+2*t10*t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+
4971     2         4.4d+2*t13*t14*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t
4972     3         33*t37*t38+7.2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t
4973     4         30*t34*t35+1.28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*
4974     5         t27*t31*t32+2.0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*
4975     6         t24*t28*t29+2.88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d
4976     7         +2*t21*t25*t26+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.
4977     8         24d+2*t18*t22*t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23
4978     9         +2.88d+2*t15*t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t
4979     :         20+3.6d+2*t12*t16*t17+8.0d+2*t12*t13*t17
4980            t110 = 1/rhoa**8.666666666666666d+0
4981            t111 = 1/rhoa**6
4982            t112 = 1/rhoa**3.3333333333333337d+0
4983            t113 = 8.367983778239999d-5*t112*t52*t53*t88+8.3679837782399
4984     1         99d-5*gammaaa*t111*t44*t51*t88+8.367983778239999d-5*t110*
4985     2         t47*t48*t88+2.7893279260799997d-5*t112*t44*t55*t66+2.7893
4986     3         279260799997d-5*gammaaa*t111*t54*t66-5.975231999999999d-2
4987     4         *t112*t44*t52*t66-2.9876159999999996d-2*gammaaa*t111*t51*
4988     5         t66-1.4938079999999998d-2*t112*t50*t55+8.0d+0*t112*t50*t5
4989     6         2
4990            t114 = rhoa**2
4991            t115 = 1/t114
4992            t116 = 1/t11**14
4993            t117 = 1/t2**4
4994            t118 = 1/rhoa**8.333333333333334d+0
4995            t119 = 1/rhoa**5.666666666666667d+0
4996            t120 = t65**3
4997            t121 = 1/t45**5
4998            t122 = -6.085884444444444d-2*t85*taua-8.520238222222222d-2*g
4999     1         ammaaa*t119
5000            t123 = 1/rhoa**1.1666666666666665d+1
5001            t124 = 1/rhoa**5
5002            t125 = 1/rhoa**7.666666666666667d+0
5003            fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5)
5004     1         *wght+fnc(iq)
5005            Amat(iq,D1_RA) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634
5006     1         90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30
5007     2         5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RA)
5008            Cmat(iq,D1_GAA) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71
5009     1         -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GAA)
5010            Mmat(iq,D1_TA) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76-
5011     1         9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TA)
5012            Mmat(iq,D1_TB) = Mmat(iq,D1_TB)
5013            Amat2(iq,D2_RA_RA) = (t50*t93+t46*t92+2.0d+0*t5*t56*t66*t87-
5014     1         9.305257363490997d-1*t42*t5*t86-4.1356699393293317d-1*t4*
5015     2         t42*t80-9.305257363490997d-1*t4*t5*t79-2.481401963597599d
5016     3         +0*t42*t60*t64-1.8610514726981994d+0*t5*t59*t64-2.4814019
5017     4         63597599d+0*t4*t59*t60)*wght+Amat2(iq,D2_RA_RA)
5018            Cmat2(iq,D2_RA_GAA) = (t46*t98+4.9793599999999993d-3*t50*t56
5019     1         *t96-9.305257363490997d-1*t42*t5*t95+3.73452d-3*t56*t65*t
5020     2         66*t72-1.0d+0*t5*t50*t65*t71-1.2407009817987995d+0*t42*t6
5021     3         0*t69-9.305257363490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t
5022     4         68)*wght+Cmat2(iq,D2_RA_GAA)
5023            Cmat2(iq,D2_GAA_GAA) = (-9.305257363490997d-1*t42*t5*t99-3.7
5024     1         3452d-3*t50*t71*t72+6.973319815199999d-6*t102*t56*t66+1.0
5025     2         d+0*t101*t46*t5)*wght+Cmat2(iq,D2_GAA_GAA)
5026            Mmat2(iq,D2_RA_TA) = (7.46904d-3*t56*t65*t66*t77-1.0d+0*t5*t
5027     1         50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.240700981798
5028     2         7995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73452d-3*t43*t
5029     3         50*t68-9.305257363490997d-1*t103*t4*t5+t105*t46)*wght+Mma
5030     4         t2(iq,D2_RA_TA)
5031            Mmat2(iq,D2_RA_TB) = Mmat2(iq,D2_RA_TB)
5032            Mmat2(iq,D2_GAA_TA) = (-3.73452d-3*t50*t71*t77-1.86726d-3*t5
5033     1         0*t72*t76-9.305257363490997d-1*t5*t69*t73+1.3946639630399
5034     2         998d-5*t108*t56*t66+1.0d+0*t107*t46*t5)*wght+Mmat2(iq,D2_
5035     3         GAA_TA)
5036            Mmat2(iq,D2_GAA_TB) = Mmat2(iq,D2_GAA_TB)
5037            Mmat2(iq,D2_TA_TA) = (-7.46904d-3*t50*t76*t77+2.789327926079
5038     1         9997d-5*t115*t56*t66+1.0d+0*t113*t46*t5-9.305257363490997
5039     2         d-1*t109*t4*t5)*wght+Mmat2(iq,D2_TA_TA)
5040            Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB)
5041            Mmat2(iq,D2_TB_TB) = Mmat2(iq,D2_TB_TB)
5042            Amat3(iq,D3_RA_RA_RA) = (t46*(1.0d+0*t5*(4.0d+1*t1*t44*t52*t
5043     1         66*t89*taua+2.0d+1*gammaaa*t49*t51*t66*t89*taua+1.0d+1*t1
5044     2         *t50*t55*t89*taua-1.2d+2*t1*t44*t52*t87*t88*taua-6.0d+1*g
5045     3         ammaaa*t49*t51*t87*t88*taua-2.0d+1*t1*t55*t66*t87*taua-3.
5046     4         2592592592592595d+1*t46*t55*t85*taua-6.518518518518519d+1
5047     5         *t44*t50*t52*t85*taua-2.0148148148148146d+2*gammaaa*t50*t
5048     6         51*t84*taua-1.0666666666666667d+2*t44*t52*t63*t65*t66*tau
5049     7         a-1.6d+2*gammaaa*t51*t62*t65*t66*taua-2.6666666666666666d
5050     8         +1*t50*t55*t63*t65*taua-1.3333333333333333d+2*t49*t52*t65
5051     9         *t66*t90-1.777777777777778d+2*t50*t52*t62*t90+18*t52*t53*
5052     :         t65*t88*t89+18*gammaaa*t1*t44*t51*t65*t88*t89+18*t47*t48*
5053     ;         t49*t65*t88*t89+6*t44*t55*t65*t66*t89+6*gammaaa*t1*t54*t6
5054     <         5*t66*t89+16*gammaaa*t44*t51*t63*t66*t89+32*t47*t48*t62*t
5055     =         66*t89+8*gammaaa*t50*t54*t63*t89-48*gammaaa*t44*t51*t63*t
5056     >         87*t88-96*t47*t48*t62*t87*t88-6*t120*t44*t55*t88-6*gammaa
5057     ?         a*t1*t120*t54*t88-16*gammaaa*t54*t63*t66*t87-5.8666666666
5058     @         66667d+1*gammaaa*t44*t51*t65*t66*t85-2.9333333333333333d+
5059     1         1*gammaaa*t50*t54*t65*t85-2.0266666666666666d+2*t47*t48*t
5060     2         65*t66*t84-2*t122*t52*t53*t66-2*gammaaa*t1*t122*t44*t51*t
5061     3         66-2*t122*t47*t48*t49*t66-t122*t44*t50*t55-gammaaa*t1*t12
5062     4         2*t50*t54-4.5629629629629626d+1*gammaaa*t119*t46*t54-24*t
5063     5         120*t121*t52*t53-4.5629629629629626d+1*gammaaa*t119*t44*t
5064     6         50*t51-24*gammaaa*t1*t120*t121*t44*t51-2.477037037037037d
5065     7         +2*t118*t47*t48*t50-24*t120*t121*t47*t48*t49)+4.0d+0*t60*
5066     8         t91+1.3333333333333333d+0*t67*t80-2.962962962962963d-1*t4
5067     9         3*t56)+t66*(-2*t65*t93+4.0d+0*t5*t56*t65*t89+2.0d+0*t5*t6
5068     :         7*t87+2.6666666666666666d+0*t56*t60*t87)+t50*(-2*t65*t92-
5069     ;         1.0d+0*t5*t65*t91-t68*t89-2.0d+0*t5*t67*t89-2.66666666666
5070     <         66666d+0*t56*t60*t89-4.444444444444444d-1*t56*t65*t80-2.6
5071     =         666666666666666d+0*t60*t65*t67-1.0d+0*t122*t5*t56)-9.3052
5072     >         57363490997d-1*t4*t5*(3.37614805358933d+0*t39*t40*t72*t9-
5073     ?         6.75229610717866d+0*t37*t39*t72*t9+9.232684300601568d+2*t
5074     @         36*t40*t60*t9-3.693073720240627d+3*t36*t37*t60*t9+2.76980
5075     1         5290180471d+3*t34*t36*t60*t9-2.104036366334451d+4*t114*t3
5076     2         3*t40*t9+1.2624218198006704d+5*t114*t33*t37*t9-1.89363272
5077     3         97010064d+5*t114*t33*t34*t9+8.416145465337804d+4*t114*t31
5078     4         *t33*t9+6.093571638397036d+4*t10*t6*t60*t78+1.52753040195
5079     5         88112d+7*t114*t14*t6*t78-4.628880005935792d+6*t114*t13*t1
5080     6         4*t78+3.713762858948263d+1*t10*t58*t6*t72-3.7137628589482
5081     7         63d+1*t12*t14*t6*t72-3.37614805358933d+0*t40*t41*t72+6.75
5082     8         229610717866d+0*t36*t37*t38*t72-1.0128444160767991d+1*t34
5083     9         *t36*t38*t72+1.0128444160767991d+1*t33*t34*t35*t72-1.3504
5084     :         59221435732d+1*t31*t33*t35*t72+1.350459221435732d+1*t30*t
5085     ;         31*t32*t72-1.6880740267946648d+1*t28*t30*t32*t72+1.688074
5086     <         0267946648d+1*t27*t28*t29*t72-2.0256888321535982d+1*t25*t
5087     =         27*t29*t72+2.0256888321535982d+1*t24*t25*t26*t72-2.363303
5088     >         6375125308d+1*t22*t24*t26*t72+2.3633036375125308d+1*t21*t
5089     ?         22*t23*t72-2.700918442871464d+1*t19*t21*t23*t72+2.7009184
5090     @         42871464d+1*t18*t19*t20*t72-3.0385332482303967d+1*t16*t18
5091     1         *t20*t72+3.0385332482303967d+1*t15*t16*t17*t72-3.37614805
5092     2         35893296d+1*t13*t15*t17*t72+3.3761480535893296d+1*t12*t13
5093     3         *t14*t72-1.1171548003727898d+5*t14*t58*t6*t60+5.077976365
5094     4         330863d+4*t12*t17*t6*t60+5.077976365330862d+4*t13*t14*t58
5095     5         *t60-9.232684300601568d+2*t39*t40*t60+9.232684300601568d+
5096     6         2*t37*t39*t60+2.769805290180471d+3*t33*t37*t38*t60-8.3094
5097     7         15870541413d+3*t33*t34*t38*t60+5.539610580360942d+3*t31*t
5098     8         33*t38*t60+5.539610580360942d+3*t30*t34*t35*t60-1.4772294
5099     9         880962508d+4*t30*t31*t35*t60+9.232684300601568d+3*t28*t30
5100     :         *t35*t60+9.232684300601568d+3*t27*t31*t32*t60-2.308171075
5101     ;         150392d+4*t27*t28*t32*t60+1.3849026450902355d+4*t25*t27*t
5102     <         32*t60+1.3849026450902355d+4*t24*t28*t29*t60-3.3237663482
5103     =         16566d+4*t24*t25*t29*t60+1.9388637031263292d+4*t22*t24*t2
5104     >         9*t60+1.9388637031263292d+4*t21*t25*t26*t60-4.52401530729
5105     ?         47686d+4*t21*t22*t26*t60+2.585151604168439d+4*t19*t21*t26
5106     @         *t60+2.585151604168439d+4*t18*t22*t23*t60-5.9089179523850
5107     1         03d+4*t18*t19*t23*t60+3.3237663482165647d+4*t16*t18*t23*t
5108     2         60+3.3237663482165647d+4*t15*t19*t20*t60-7.47847428348727
5109     3         1d+4*t15*t16*t20*t60+4.154707935270705d+4*t13*t15*t20*t60
5110     4         +4.1547079352707056d+4*t12*t16*t17*t60-9.232684300601568d
5111     5         +4*t12*t13*t17*t60-1.2729420016323426d+7*t114*t17*t58*t6+
5112     6         3.4716600044518436d+6*t114*t12*t20*t6-6.01754400771653d+6
5113     7         *t10*t114*t116*t6-3.4716600044518436d+6*t114*t16*t17*t58+
5114     8         1.1572200014839477d+7*t114*t13*t17*t58+2.104036366334451d
5115     9         +4*t114*t36*t40-8.416145465337804d+4*t114*t30*t37*t38+3.7
5116     :         87265459402013d+5*t114*t30*t34*t38-5.049687279202681d+5*t
5117     ;         114*t30*t31*t38+2.1040363663344508d+5*t114*t28*t30*t38-4.
5118     <         208072732668902d+4*t114*t36*t37+2.104036366334451d+4*t114
5119     =         *t34*t36-2.104036366334451d+5*t114*t27*t34*t35+8.41614546
5120     >         5337803d+5*t114*t27*t31*t35-1.0520181831672254d+6*t114*t2
5121     ?         7*t28*t35+4.208072732668902d+5*t114*t25*t27*t35-4.2080727
5122     @         326689016d+5*t114*t24*t31*t32+1.578027274750838d+6*t114*t
5123     1         24*t28*t32-1.893632729701006d+6*t114*t24*t25*t32+7.364127
5124     2         282170578d+5*t114*t22*t24*t32-7.364127282170578d+5*t114*t
5125     3         21*t28*t29+2.6510858215814087d+6*t114*t21*t25*t29-3.09293
5126     4         34585116436d+6*t114*t21*t22*t29+1.1782603651472927d+6*t11
5127     5         4*t19*t21*t29-1.1782603651472927d+6*t114*t18*t25*t26+4.12
5128     6         3911278015524d+6*t114*t18*t22*t26-4.713041460589171d+6*t1
5129     7         14*t18*t19*t26+1.767390547720939d+6*t114*t16*t18*t26-1.76
5130     8         73905477209387d+6*t114*t15*t22*t23+6.059624735043219d+6*t
5131     9         114*t15*t19*t23-6.817077826923622d+6*t114*t15*t16*t23+2.5
5132     :         24843639601341d+6*t114*t13*t15*t23-2.524843639601341d+6*t
5133     ;         114*t12*t19*t20+8.521347283654526d+6*t114*t12*t16*t20-9.4
5134     <         68163648505028d+6*t114*t12*t13*t20)-6.0d+0*t120*t5*t56*t8
5135     =         8-3.7221029453963983d+0*t42*t60*t86-2.791577209047299d+0*
5136     >         t5*t59*t86-9.305257363490997d-1*t42*t5*(-1.97024140900374
5137     ?         43d-5*t81*t82/rhoa**11+3.279403591520427d-3*t118*t48*t61-
5138     @         1.648227300332581d-1*gammaaa*t119*t3+3.7270905095708196d-
5139     1         8*gammaaa**4*t117/rhoa**1.3666666666666666d+1)+(-1.240700
5140     2         9817987995d+0*t42*t64-1.2407009817987995d+0*t4*t59)*t80-2
5141     3         .791577209047299d+0*t5*t64*t79-3.7221029453963983d+0*t4*t
5142     4         60*t79-7.444205890792797d+0*t59*t60*t64+2.757113292886221
5143     5         d-1*t4*t42*t43)*wght+Amat3(iq,D3_RA_RA_RA)
5144            Cmat3(iq,D3_RA_RA_GAA) = (t46*(1.0d+0*t5*(-1.659786666666666
5145     1         6d-1*gammaaa*t51*t66*t94*taua-7.46904d-2*gammaaa*t51*t65*
5146     2         t70*t88*taua-1.493808d-1*t44*t49*t52*t65*t88*taua-2.48968
5147     3         d-2*t49*t55*t65*t66*taua+1.3333333333333333d+1*t49*t51*t6
5148     4         5*t66*taua-1.9917439999999997d-1*t44*t52*t62*t66*taua-4.9
5149     5         793599999999993d-2*t50*t55*t62*taua+2.6666666666666666d+1
5150     6         *t50*t51*t62*taua-1.7925696d-1*t47*t48*t65*t88*t94-8.2989
5151     7         33333333335d-2*t52*t66*t70*t90+1.120356d-2*t47*t48*t70*t8
5152     8         8*t89+1.120356d-2*t1*t52*t53*t88*t89+1.120356d-2*gammaaa*
5153     9         t44*t49*t51*t88*t89+3.73452d-3*t1*t44*t55*t66*t89+3.73452
5154     :         d-3*gammaaa*t49*t54*t66*t89-2*t1*t44*t51*t66*t89-4*gammaa
5155     ;         a*t47*t49*t66*t89-t1*t50*t54*t89-1.120356d-2*t1*t44*t55*t
5156     <         87*t88-1.120356d-2*gammaaa*t49*t54*t87*t88+6*t1*t44*t51*t
5157     =         87*t88+12*gammaaa*t47*t49*t87*t88-5.975231999999999d-2*t5
5158     >         2*t53*t63*t65*t88-1.1950464d-1*gammaaa*t44*t51*t62*t65*t8
5159     ?         8-4.481424d-2*t121*t47*t48*t70*t87+2*t1*t54*t66*t87-4.481
5160     @         424d-2*t1*t121*t52*t53*t87-4.481424d-2*gammaaa*t121*t44*t
5161     1         49*t51*t87-3.6515306666666664d-2*t52*t53*t66*t85-1.825765
5162     2         3333333332d-2*t44*t50*t55*t85+9.777777777777779d+0*t46*t5
5163     3         4*t85+9.777777777777779d+0*t44*t50*t51*t85-1.261437866666
5164     4         6665d-1*gammaaa*t44*t51*t66*t84-6.307189333333332d-2*gamm
5165     5         aaa*t50*t54*t84+6.755555555555556d+1*gammaaa*t47*t50*t84-
5166     6         2.6888544000000003d-1*t47*t48*t66*t83-1.9917439999999997d
5167     7         -2*t44*t55*t63*t65*t66+1.0666666666666666d+1*t44*t51*t63*
5168     8         t65*t66-3.9834879999999995d-2*gammaaa*t54*t62*t65*t66+4.2
5169     9         666666666666664d+1*gammaaa*t47*t62*t65*t66+5.333333333333
5170     :         333d+0*t50*t54*t63*t65)+2.6666666666666666d+0*t60*t97+4.4
5171     ;         44444444444444d-1*t71*t80)+t50*(-t65*t98-1.0d+0*t5*t65*t9
5172     <         7+4.9793599999999993d-3*t67*t96-1.0d+0*t5*t71*t89-1.33333
5173     =         33333333333d+0*t60*t65*t71+4.9793599999999993d-3*t63*t68-
5174     >         1.1618506666666667d-2*t112*t56)-1.9917439999999997d-2*t56
5175     ?         *t65*t66*t96-2.481401963597599d+0*t42*t60*t95-1.861051472
5176     @         6981994d+0*t5*t59*t95-3.73452d-3*t1*t66*t93-1.86726d-3*t1
5177     1         *t50*t92-1.120356d-2*t56*t72*t87*t88+2.0d+0*t5*t66*t71*t8
5178     2         7-9.305257363490997d-1*t42*t5*(3.531915643569816d-2*t3*t8
5179     3         5-9.376593846722628d-4*gammaaa*t61*t84+6.610678411788878d
5180     4         -6*t48*t82*t83-1.3976589410890572d-8*t117*t81/rhoa**1.266
5181     5         6666666666665d+1)-4.1356699393293317d-1*t42*t69*t80-9.305
5182     6         257363490997d-1*t5*t69*t79-2.481401963597599d+0*t59*t60*t
5183     7         69)*wght+Cmat3(iq,D3_RA_RA_GAA)
5184            Cmat3(iq,D3_RA_GAA_GAA) = (t46*(1.0d+0*t5*(-1.39466396303999
5185     1         98d-4*t44*t52*t70*t88*taua-6.9733198152d-5*gammaaa*t100*t
5186     2         51*t88*taua-2.3244399384d-5*t55*t66*t70*taua+2.48968d-2*t
5187     3         51*t66*t70*taua-1.6735967556479997d-4*gammaaa*t44*t51*t88
5188     4         *t94-5.578655852159999d-5*gammaaa*t54*t66*t94+1.1950464d-
5189     5         1*gammaaa*t47*t66*t94-2.0919959445599998d-5*gammaaa*t54*t
5190     6         65*t70*t88+4.481424d-2*gammaaa*t47*t65*t70*t88-2.09199594
5191     7         45599998d-5*t44*t49*t55*t65*t88+2.240712d-2*t44*t49*t51*t
5192     8         65*t88-1.1157311704319998d-4*t52*t53*t62*t88-2.2314623408
5193     9         639997d-4*t123*t47*t48*t88-8.367983778239999d-5*gammaaa*t
5194     :         121*t44*t51*t65*t70+7.46904d-3*t49*t54*t65*t66-4*t47*t49*
5195     ;         t65*t66-3.7191039014399996d-5*t44*t55*t62*t66+3.983487999
5196     <         9999995d-2*t44*t51*t62*t66-8.367983778239999d-5*t121*t49*
5197     =         t52*t53*t65-8.367983778239999d-5*t100*t121*t47*t48*t65+1.
5198     >         9917439999999997d-2*t50*t54*t62-1.0666666666666666d+1*t47
5199     ?         *t50*t62)+1.3333333333333333d+0*t101*t60)-1.2407009817987
5200     @         995d+0*t42*t60*t99-9.305257363490997d-1*t5*t59*t99-3.7345
5201     1         2d-3*t1*t50*t98+9.958719999999999d-3*t50*t71*t96-9.305257
5202     2         363490997d-1*t42*t5*(-1.944317179937905d-6*gammaaa*t82*t9
5203     3         4+1.731063479394947d-4*t61*t62+5.241221029083964d-9*t117*
5204     4         t123*t48)-2.0919959445599998d-5*t102*t56*t65*t88+7.46904d
5205     5         -3*t65*t66*t71*t72+6.973319815199999d-6*t49*t66*t68-3.719
5206     6         1039014399996d-5*t124*t56*t66-1.0d+0*t101*t5*t50*t65)*wgh
5207     7         t+Cmat3(iq,D3_RA_GAA_GAA)
5208            Cmat3(iq,D3_GAA_GAA_GAA) = (1.0d+0*t46*t5*(-3.90630034743910
5209     1         45d-8*t44*t55*t70*t88+6.275987833679999d-5*t44*t51*t70*t8
5210     2         8-3.9063003474391045d-8*gammaaa*t100*t54*t88+1.2551975667
5211     3         36d-4*gammaaa*t100*t47*t88+2.0919959445599995d-5*t54*t66*
5212     4         t70-2.240712d-2*t47*t66*t70-1.562520138975642d-7*t121*t52
5213     5         *t53*t70-1.562520138975642d-7*gammaaa*t100*t121*t44*t51-1
5214     6         .562520138975642d-7*t121*t47*t48/rhoa**1.3333333333333333
5215     7         d+1)-3.9063003474391045d-8*t56*t88/rhoa**6.66666666666666
5216     8         7d+0-9.305257363490997d-1*t42*t5*(4.374713654860287d-7*t7
5217     9         0*t82-1.965457885906487d-9*gammaaa*t100*t117)-5.60178d-3*
5218     :         t101*t50*t72+2.0919959445599995d-5*t102*t66*t71)*wght+Cma
5219     ;         t3(iq,D3_GAA_GAA_GAA)
5220            Mmat3(iq,D3_RA_RA_TA) = (t46*(1.0d+0*t5*(-2.987616d-1*t44*t5
5221     1         2*t65*t75*t88*taua-1.493808d-1*gammaaa*t51*t65*t74*t88*ta
5222     2         ua-4.97936d-2*t55*t65*t66*t75*taua+5.333333333333333d+1*t
5223     3         52*t65*t66*t75*taua-2.8216373333333333d-1*gammaaa*t51*t66
5224     4         *t70*taua-2.9876159999999996d-1*t44*t49*t52*t66*taua-7.46
5225     5         9039999999999d-2*t49*t50*t55*taua+8.0d+1*t49*t50*t52*taua
5226     6         -4.1826624d-1*t47*t48*t66*t94-1.659786666666667d-1*t52*t6
5227     7         6*t74*t90+2.240712d-2*gammaaa*t44*t51*t75*t88*t89+2.24071
5228     8         2d-2*t47*t48*t74*t88*t89+2.240712d-2*t43*t52*t53*t88*t89+
5229     9         7.46904d-3*gammaaa*t54*t66*t75*t89-4.0d+0*gammaaa*t51*t66
5230     :         *t75*t89+7.46904d-3*t43*t44*t55*t66*t89-8.0d+0*t43*t44*t5
5231     ;         2*t66*t89-2.0d+0*t43*t50*t55*t89-2.240712d-2*gammaaa*t54*
5232     <         t75*t87*t88+1.2d+1*gammaaa*t51*t75*t87*t88-2.240712d-2*t4
5233     =         3*t44*t55*t87*t88+2.4d+1*t43*t44*t52*t87*t88-3.1369968d-1
5234     >         *t47*t48*t65*t70*t88-7.46904d-2*t1*t52*t53*t65*t88-1.9419
5235     ?         503999999999d-1*gammaaa*t44*t49*t51*t65*t88-8.962848d-2*g
5236     @         ammaaa*t121*t44*t51*t75*t87-8.962848d-2*t121*t47*t48*t74*
5237     1         t87+4.0d+0*t43*t55*t66*t87-8.962848d-2*t121*t43*t52*t53*t
5238     2         87-2.48968d-2*t1*t44*t55*t65*t66-6.473168d-2*gammaaa*t49*
5239     3         t54*t65*t66+2.6666666666666666d+1*t1*t44*t52*t65*t66+3.46
5240     4         6666666666666d+1*gammaaa*t49*t51*t65*t66-3.31957333333333
5241     5         3d-2*t52*t53*t63*t66-1.7261781333333331d-1*gammaaa*t44*t5
5242     6         1*t62*t66+6.666666666666667d+0*t1*t50*t55*t65-1.659786666
5243     7         6666666d-2*t44*t50*t55*t63+8.88888888888889d+0*t46*t55*t6
5244     8         3+1.7777777777777778d+1*t44*t50*t52*t63-8.630890666666666
5245     9         d-2*gammaaa*t50*t54*t62+4.622222222222223d+1*gammaaa*t50*
5246     :         t51*t62)+4.444444444444444d-1*t76*t80+2.6666666666666666d
5247     ;         +0*t104*t60)+t50*(-8.298933333333333d-3*t56*t96-1.0d+0*t5
5248     <         *t76*t89-1.3333333333333333d+0*t60*t65*t76+6.2242d-3*t67*
5249     =         t72+6.2242d-3*t1*t68-1.0d+0*t104*t5*t65-t105*t65)-7.46904
5250     >         d-3*t43*t66*t93-3.73452d-3*t43*t50*t92-9.305257363490997d
5251     ?         -1*t4*t5*(4.0513776643071964d+1*t36*t40*t77*t9-1.21541329
5252     @         92921589d+2*t34*t36*t77*t9-2.769805290180471d+3*t33*t40*t
5253     1         5*t9+5.539610580360942d+3*t33*t37*t5*t9+8.309415870541416
5254     2         d+3*t33*t34*t5*t9-1.1079221160721883d+4*t31*t33*t5*t9+2.6
5255     3         739092584427493d+3*t10*t6*t77*t78+6.702928802236738d+5*t1
5256     4         4*t5*t6*t78-6.093571638397035d+5*t13*t14*t5*t78-2.2282577
5257     5         15368958d+3*t12*t17*t6*t77+2.2282577153689576d+3*t13*t14*
5258     6         t58*t77-4.0513776643071964d+1*t37*t39*t77+1.2154132992921
5259     7         589d+2*t33*t37*t38*t77-2.4308265985843178d+2*t31*t33*t38*
5260     8         t77+2.4308265985843178d+2*t30*t34*t35*t77-4.0513776643071
5261     9         96d+2*t28*t30*t35*t77+4.0513776643071964d+2*t27*t31*t32*t
5262     :         77-6.077066496460795d+2*t25*t27*t32*t77+6.077066496460793
5263     ;         d+2*t24*t28*t29*t77-8.507893095045111d+2*t22*t24*t29*t77+
5264     <         8.507893095045113d+2*t21*t25*t26*t77-1.1343857460060149d+
5265     =         3*t19*t21*t26*t77+1.1343857460060149d+3*t18*t22*t23*t77-1
5266     >         .4584959591505905d+3*t16*t18*t23*t77+1.4584959591505908d+
5267     ?         3*t15*t19*t20*t77-1.8231199489382383d+3*t13*t15*t20*t77+1
5268     @         .8231199489382383d+3*t12*t16*t17*t77+5.585774001863949d+5
5269     1         *t17*t5*t58*t6-4.5701787287977763d+5*t12*t20*t5*t6-7.9216
5270     2         43129916147d+5*t10*t116*t5*t6-4.5701787287977763d+5*t16*t
5271     3         17*t5*t58+5.077976365330863d+5*t13*t17*t5*t58+9.232684300
5272     4         601569d+2*t36*t40*t5-1.1079221160721883d+4*t30*t37*t38*t5
5273     5         +1.6618831741082832d+4*t30*t34*t38*t5+2.2158442321443766d
5274     6         +4*t30*t31*t38*t5-2.7698052901804704d+4*t28*t30*t38*t5+1.
5275     7         846536860120314d+3*t36*t37*t5-2.769805290180471d+3*t34*t3
5276     8         6*t5-2.769805290180471d+4*t27*t34*t35*t5+3.69307372024062
5277     9         9d+4*t27*t31*t35*t5+4.616342150300784d+4*t27*t28*t35*t5-5
5278     :         .539610580360942d+4*t25*t27*t35*t5-5.539610580360941d+4*t
5279     ;         24*t31*t32*t5+6.924513225451174d+4*t24*t28*t32*t5+8.30941
5280     <         5870541416d+4*t24*t25*t32*t5-9.694318515631648d+4*t22*t24
5281     =         *t32*t5-9.694318515631648d+4*t21*t28*t29*t5+1.16331822187
5282     >         57979d+5*t21*t25*t29*t5+1.3572045921884307d+5*t21*t22*t29
5283     ?         *t5-1.5510909625010635d+5*t19*t21*t29*t5-1.55109096250106
5284     @         38d+5*t18*t25*t26*t5+1.809606122917908d+5*t18*t22*t26*t5+
5285     1         2.0681212833347515d+5*t18*t19*t26*t5-2.3266364437515952d+
5286     2         5*t16*t18*t26*t5-2.3266364437515955d+5*t15*t22*t23*t5+2.6
5287     3         59013078573252d+5*t15*t19*t23*t5+2.9913897133949086d+5*t1
5288     4         5*t16*t23*t5-3.3237663482165647d+5*t13*t15*t23*t5-3.32376
5289     5         6348216565d+5*t12*t19*t20*t5+3.7392371417436354d+5*t12*t1
5290     6         6*t20*t5+4.1547079352707056d+5*t12*t13*t20*t5)-2.240712d-
5291     7         2*t56*t77*t87*t88+2.0d+0*t5*t66*t76*t87-9.305257363490997
5292     8         d-1*t5*t73*t86-4.1356699393293317d-1*t4*t73*t80-2.4814019
5293     9         63597599d+0*t60*t64*t73-2.48968d-2*t56*t65*t66*t72-1.8610
5294     :         514726981994d+0*t103*t5*t64-2.481401963597599d+0*t103*t4*
5295     ;         t60)*wght+Mmat3(iq,D3_RA_RA_TA)
5296            Mmat3(iq,D3_RA_RA_TB) = Mmat3(iq,D3_RA_RA_TB)
5297            Mmat3(iq,D3_RA_GAA_TA) = (t46*(1.0d+0*t5*(-2.789327926079999
5298     1         7d-4*t44*t52*t74*t88*taua-1.3946639630399998d-4*gammaaa*t
5299     2         106*t51*t88*taua-4.6488798768d-5*t55*t66*t74*taua+4.97936
5300     3         d-2*t52*t66*t74*taua+2.48968d-2*t51*t66*t74*taua-4.183991
5301     4         8891199995d-5*t44*t55*t65*t75*t88+4.481424d-2*t44*t52*t65
5302     5         *t75*t88+2.240712d-2*t44*t51*t65*t75*t88-4.18399188911999
5303     6         95d-5*gammaaa*t54*t65*t74*t88+2.240712d-2*gammaaa*t51*t65
5304     7         *t74*t88+4.481424d-2*gammaaa*t47*t65*t74*t88-2.9287943223
5305     8         839996d-4*gammaaa*t44*t51*t70*t88-1.8130631519519996d-4*t
5306     9         49*t52*t53*t88-4.044525492816d-4*t100*t47*t48*t88+7.46904
5307     :         d-3*t55*t65*t66*t75+7.46904d-3*t54*t65*t66*t75-4.0d+0*t51
5308     ;         *t65*t66*t75-1.673596755648d-4*t121*t52*t53*t65*t75-1.673
5309     <         596755648d-4*gammaaa*t121*t44*t51*t65*t74-9.76264774128d-
5310     =         5*gammaaa*t54*t66*t70+5.228328d-2*gammaaa*t51*t66*t70+1.0
5311     >         456655999999999d-1*gammaaa*t47*t66*t70-6.043543839839999d
5312     ?         -5*t44*t49*t55*t66+6.473168d-2*t44*t49*t52*t66+3.236584d-
5313     @         2*t44*t49*t51*t66-1.673596755648d-4*t106*t121*t47*t48*t65
5314     1         +1.618292d-2*t49*t50*t55+1.618292d-2*t49*t50*t54-8.666666
5315     2         666666666d+0*t49*t50*t51)+1.3333333333333333d+0*t107*t60)
5316     3         -3.73452d-3*t43*t50*t98+4.9793599999999993d-3*t50*t76*t96
5317     4         -9.305257363490997d-1*t5*t73*t95-4.1839918891199995d-5*t1
5318     5         08*t56*t65*t88+7.46904d-3*t65*t66*t71*t77+3.73452d-3*t65*
5319     6         t66*t72*t76+1.3946639630399998d-5*t66*t68*t75-1.240700981
5320     7         7987995d+0*t60*t69*t73+6.2242d-3*t50*t71*t72-9.3052573634
5321     8         90997d-1*t103*t5*t69-6.043543839839999d-5*t102*t56*t66-1.
5322     9         0d+0*t107*t5*t50*t65-1.86726d-3*t1*t105*t50)*wght+Mmat3(i
5323     :         q,D3_RA_GAA_TA)
5324            Mmat3(iq,D3_RA_GAA_TB) = Mmat3(iq,D3_RA_GAA_TB)
5325            Mmat3(iq,D3_GAA_GAA_TA) = (-9.305257363490997d-1*t5*t73*t99+
5326     1         1.0d+0*t46*t5*(-7.812600694878209d-8*t44*t55*t74*t88+8.36
5327     2         7983778239999d-5*t44*t52*t74*t88+8.367983778239999d-5*t44
5328     3         *t51*t74*t88-7.812600694878209d-8*gammaaa*t106*t54*t88+4.
5329     4         1839918891199995d-5*gammaaa*t106*t51*t88+1.673596755648d-
5330     5         4*gammaaa*t106*t47*t88+1.3946639630399998d-5*t55*t66*t74+
5331     6         2.7893279260799997d-5*t54*t66*t74-1.4938079999999998d-2*t
5332     7         51*t66*t74-1.4938079999999998d-2*t47*t66*t74-3.1250402779
5333     8         51284d-7*t121*t52*t53*t74-3.125040277951284d-7*gammaaa*t1
5334     9         06*t121*t44*t51-3.125040277951284d-7*t121*t47*t48/rhoa**1
5335     :         .2333333333333334d+1)-7.812600694878209d-8*t119*t56*t88-3
5336     ;         .73452d-3*t101*t50*t77+6.973319815199999d-6*t102*t66*t76-
5337     <         3.73452d-3*t107*t50*t72+2.7893279260799997d-5*t108*t66*t7
5338     =         1)*wght+Mmat3(iq,D3_GAA_GAA_TA)
5339            Mmat3(iq,D3_GAA_GAA_TB) = Mmat3(iq,D3_GAA_GAA_TB)
5340            Mmat3(iq,D3_RA_TA_TA) = (t46*(1.0d+0*t5*(-5.578655852159999d
5341     1         -4*t111*t44*t52*t88*taua-2.7893279260799997d-4*gammaaa*t1
5342     2         10*t51*t88*taua-9.2977597536d-5*t111*t55*t66*taua+1.99174
5343     3         4d-1*t111*t52*t66*taua-2.7893279260799997d-4*t52*t53*t75*
5344     4         t88-5.020790266944d-4*gammaaa*t44*t51*t74*t88-8.367983778
5345     5         239999d-5*t112*t44*t55*t65*t88-8.367983778239999d-5*gamma
5346     6         aa*t111*t54*t65*t88+1.7925696d-1*t112*t44*t52*t65*t88+8.9
5347     7         62848d-2*gammaaa*t111*t51*t65*t88-7.252252607808d-4*t106*
5348     8         t47*t48*t88-9.2977597536d-5*t44*t55*t66*t75+1.991744d-1*t
5349     9         44*t52*t66*t75+4.97936d-2*t50*t55*t75-2.6666666666666666d
5350     :         +1*t50*t52*t75-1.673596755648d-4*gammaaa*t54*t66*t74+1.79
5351     ;         25696000000002d-1*gammaaa*t51*t66*t74+2.9876159999999996d
5352     <         -2*t112*t55*t65*t66-1.6d+1*t112*t52*t65*t66-3.34719351129
5353     =         6d-4*t112*t121*t52*t53*t65-3.347193511296d-4*gammaaa*t111
5354     >         *t121*t44*t51*t65-3.347193511296d-4*t110*t121*t47*t48*t65
5355     ?         )+1.3333333333333333d+0*t113*t60)-9.305257363490997d-1*t4
5356     @         *t5*(-3.646239897876477d+2*t33*t40*t57*t9-7.2924797957529
5357     1         54d+2*t33*t37*t57*t9+1.0938719693629433d+3*t33*t34*t57*t9
5358     2         +1.4584959591505908d+3*t31*t33*t57*t9-8.823900552861074d+
5359     3         4*t14*t57*t6*t78-8.021727775328248d+4*t13*t14*t57*t78+7.3
5360     4         53250460717561d+4*t17*t57*t58*t6+6.016295831496187d+4*t12
5361     5         *t20*t57*t6-1.0428246107926724d+5*t10*t116*t57*t6-6.01629
5362     6         5831496187d+4*t16*t17*t57*t58-6.684773146106873d+4*t13*t1
5363     7         7*t57*t58-1.2154132992921589d+2*t36*t40*t57-1.45849595915
5364     8         05908d+3*t30*t37*t38*t57-2.1877439387258865d+3*t30*t34*t3
5365     9         8*t57+2.9169919183011817d+3*t30*t31*t38*t57+3.64623989787
5366     :         6477d+3*t28*t30*t38*t57+2.4308265985843178d+2*t36*t37*t57
5367     ;         +3.646239897876477d+2*t34*t36*t57-3.646239897876477d+3*t2
5368     <         7*t34*t35*t57-4.8616531971686355d+3*t27*t31*t35*t57+6.077
5369     =         066496460795d+3*t27*t28*t35*t57+7.292479795752954d+3*t25*
5370     >         t27*t35*t57-7.292479795752954d+3*t24*t31*t32*t57-9.115599
5371     ?         744691192d+3*t24*t28*t32*t57+1.0938719693629431d+4*t24*t2
5372     @         5*t32*t57+1.2761839642567668d+4*t22*t24*t32*t57-1.2761839
5373     1         642567668d+4*t21*t28*t29*t57-1.5314207571081204d+4*t21*t2
5374     2         5*t29*t57+1.786657549959474d+4*t21*t22*t29*t57+2.04189434
5375     3         28108272d+4*t19*t21*t29*t57-2.0418943428108272d+4*t18*t25
5376     4         *t26*t57-2.3822100666126317d+4*t18*t22*t26*t57+2.72252579
5377     5         0414436d+4*t18*t19*t26*t57+3.062841514216241d+4*t16*t18*t
5378     6         26*t57-3.062841514216241d+4*t15*t22*t23*t57-3.50039030196
5379     7         14174d+4*t15*t19*t23*t57+3.9379390897065947d+4*t15*t16*t2
5380     8         3*t57+4.375487877451772d+4*t13*t15*t23*t57-4.375487877451
5381     9         772d+4*t12*t19*t20*t57-4.9224238621332433d+4*t12*t16*t20*
5382     :         t57+5.469359846814714d+4*t12*t13*t20*t57)-8.3679837782399
5383     ;         99d-5*t115*t56*t65*t88+1.4938079999999998d-2*t65*t66*t76*
5384     <         t77+1.24484d-2*t50*t72*t76+2.7893279260799997d-5*t112*t66
5385     =         *t68-9.2977597536d-5*t108*t56*t66-1.0d+0*t113*t5*t50*t65-
5386     >         9.305257363490997d-1*t109*t5*t64-1.2407009817987995d+0*t1
5387     ?         09*t4*t60-7.46904d-3*t105*t43*t50)*wght+Mmat3(iq,D3_RA_TA
5388     @         _TA)
5389            Mmat3(iq,D3_RA_TA_TB) = Mmat3(iq,D3_RA_TA_TB)
5390            Mmat3(iq,D3_RA_TB_TB) = Mmat3(iq,D3_RA_TB_TB)
5391            Mmat3(iq,D3_GAA_TA_TA) = (1.0d+0*t46*t5*(-1.5625201389756418
5392     1         d-7*t111*t44*t55*t88-1.5625201389756418d-7*gammaaa*t110*t
5393     2         54*t88+3.347193511296d-4*t111*t44*t52*t88+8.3679837782399
5394     3         99d-5*t111*t44*t51*t88+1.673596755648d-4*gammaaa*t110*t51
5395     4         *t88+1.673596755648d-4*gammaaa*t110*t47*t88+5.57865585215
5396     5         9999d-5*t111*t55*t66+2.7893279260799997d-5*t111*t54*t66-2
5397     6         .9876159999999996d-2*t111*t52*t66-2.9876159999999996d-2*t
5398     7         111*t51*t66-6.250080555902569d-7*t111*t121*t52*t53-6.2500
5399     8         80555902569d-7*gammaaa*t110*t121*t44*t51-6.25008055590256
5400     9         9d-7*t121*t47*t48/rhoa**1.1333333333333334d+1)-1.56252013
5401     :         89756418d-7*t56*t85*t88-7.46904d-3*t107*t50*t77+2.7893279
5402     ;         260799997d-5*t108*t66*t76-1.86726d-3*t113*t50*t72+2.78932
5403     <         79260799997d-5*t115*t66*t71-9.305257363490997d-1*t109*t5*
5404     =         t69)*wght+Mmat3(iq,D3_GAA_TA_TA)
5405            Mmat3(iq,D3_GAA_TA_TB) = Mmat3(iq,D3_GAA_TA_TB)
5406            Mmat3(iq,D3_GAA_TB_TB) = Mmat3(iq,D3_GAA_TB_TB)
5407            Mmat3(iq,D3_TA_TA_TA) = (-9.305257363490997d-1*t4*t5*(-4.8d+
5408     1         1*t33*t40*t9-2.88d+2*t33*t37*t9-4.32d+2*t33*t34*t9-1.92d+
5409     2         2*t31*t33*t9-3.4848d+4*t14*t6*t78-1.056d+4*t13*t14*t78-2.
5410     3         904d+4*t17*t58*t6-7.92d+3*t12*t20*t6-1.3728d+4*t10*t116*t
5411     4         6-7.92d+3*t16*t17*t58-2.64d+4*t13*t17*t58-4.8d+1*t36*t40-
5412     5         1.92d+2*t30*t37*t38-8.64d+2*t30*t34*t38-1.152d+3*t30*t31*
5413     6         t38-4.8d+2*t28*t30*t38-9.6d+1*t36*t37-4.8d+1*t34*t36-4.8d
5414     7         +2*t27*t34*t35-1.92d+3*t27*t31*t35-2.4d+3*t27*t28*t35-9.6
5415     8         d+2*t25*t27*t35-9.6d+2*t24*t31*t32-3.6d+3*t24*t28*t32-4.3
5416     9         2d+3*t24*t25*t32-1.68d+3*t22*t24*t32-1.68d+3*t21*t28*t29-
5417     :         6.048d+3*t21*t25*t29-7.056d+3*t21*t22*t29-2.688d+3*t19*t2
5418     ;         1*t29-2.688d+3*t18*t25*t26-9.408d+3*t18*t22*t26-1.0752d+4
5419     <         *t18*t19*t26-4.032d+3*t16*t18*t26-4.032d+3*t15*t22*t23-1.
5420     =         3824d+4*t15*t19*t23-1.5552d+4*t15*t16*t23-5.76d+3*t13*t15
5421     >         *t23-5.76d+3*t12*t19*t20-1.944d+4*t12*t16*t20-2.16d+4*t12
5422     ?         *t13*t20)+1.0d+0*t46*t5*(-3.1250402779512837d-7*t124*t44*
5423     @         t55*t88-3.1250402779512837d-7*gammaaa*t125*t54*t88+1.0041
5424     1         580533887999d-3*t124*t44*t52*t88+5.020790266944d-4*gammaa
5425     2         a*t125*t51*t88+1.6735967556479997d-4*t124*t55*t66-1.79256
5426     3         96d-1*t124*t52*t66-1.2500161111805136d-6*t121*t124*t52*t5
5427     4         3-1.2500161111805136d-6*gammaaa*t121*t125*t44*t51-1.25001
5428     5         61111805136d-6*t121*t47*t48/rhoa**1.0333333333333333d+1)-
5429     6         3.1250402779512837d-7*t56*t63*t88-1.120356d-2*t113*t50*t7
5430     7         7+8.367983778239998d-5*t115*t66*t76)*wght+Mmat3(iq,D3_TA_
5431     8         TA_TA)
5432            Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB)
5433            Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB)
5434            Mmat3(iq,D3_TB_TB_TB) = Mmat3(iq,D3_TB_TB_TB)
5435          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
5436            t1 = 1/rhob**2.6666666666666666d+0
5437            t2 = 4.49276922095889d-3*gammabb*t1+1.0d+0
5438            t3 = 1/t2
5439            t4 = 3.6121864536509485d-3*gammabb*t1*t3+1.0d+0
5440            t5 = rhob**1.3333333333333333d+0
5441            t6 = param(18)
5442            t7 = rhob**1.6666666666666669d+0
5443            t8 = 9.115599744691192d+0*t7
5444            t9 = t8-2.0d+0*taub
5445            t10 = t9**11
5446            t11 = 2.0d+0*taub+t8
5447            t12 = 1/t11**11
5448            t13 = param(17)
5449            t14 = t9**10
5450            t15 = 1/t11**10
5451            t16 = param(16)
5452            t17 = t9**9
5453            t18 = 1/t11**9
5454            t19 = param(15)
5455            t20 = t9**8
5456            t21 = 1/t11**8
5457            t22 = param(14)
5458            t23 = t9**7
5459            t24 = 1/t11**7
5460            t25 = param(13)
5461            t26 = t9**6
5462            t27 = 1/t11**6
5463            t28 = param(12)
5464            t29 = t9**5
5465            t30 = 1/t11**5
5466            t31 = param(11)
5467            t32 = t9**4
5468            t33 = 1/t11**4
5469            t34 = param(10)
5470            t35 = t9**3
5471            t36 = 1/t11**3
5472            t37 = param(9)
5473            t38 = t9**2
5474            t39 = 1/t11**2
5475            t40 = param(8)
5476            t41 = 1/t11
5477            t42 = t40*t41*t9+t10*t12*t6+t37*t38*t39+t34*t35*t36+t31*t32*
5478     1         t33+t28*t29*t30+t25*t26*t27+t22*t23*t24+t19*t20*t21+t16*t
5479     2         17*t18+t13*t14*t15+param(7)
5480            t43 = 1/t7
5481            t44 = 2.0d+0*t43*taub-9.11559972d+0
5482            t45 = 1.86726d-3*t44+1.86726d-3*gammabb*t1+1.0d+0
5483            t46 = 1/t45
5484            t47 = param(4)
5485            t48 = gammabb**2
5486            t49 = 1/rhob**5.333333333333333d+0
5487            t50 = 1/t45**2
5488            t51 = param(5)
5489            t52 = param(6)
5490            t53 = t44**2
5491            t54 = param(2)
5492            t55 = param(3)
5493            t56 = t44*t46*t55+gammabb*t1*t46*t54+t50*t52*t53+gammabb*t1*
5494     1         t44*t50*t51+t47*t48*t49*t50+param(1)
5495            t57 = rhob**6.666666666666666d-1
5496            t58 = 1/t11**12
5497            t59 = -1.5192666241151986d+1*t39*t40*t57*t9+3.03853324823039
5498     1         7d+1*t37*t39*t57*t9-1.6711932865267184d+2*t10*t57*t58*t6+
5499     2         1.6711932865267184d+2*t12*t14*t57*t6+1.5192666241151986d+
5500     3         1*t40*t41*t57-3.038533248230397d+1*t36*t37*t38*t57+4.5577
5501     4         998723455965d+1*t34*t36*t38*t57-4.5577998723455965d+1*t33
5502     5         *t34*t35*t57+6.077066496460795d+1*t31*t33*t35*t57-6.07706
5503     6         6496460795d+1*t30*t31*t32*t57+7.596333120575993d+1*t28*t3
5504     7         0*t32*t57-7.596333120575993d+1*t27*t28*t29*t57+9.11559974
5505     8         4691193d+1*t25*t27*t29*t57-9.115599744691193d+1*t24*t25*t
5506     9         26*t57+1.0634866368806391d+2*t22*t24*t26*t57-1.0634866368
5507     :         806391d+2*t21*t22*t23*t57+1.2154132992921589d+2*t19*t21*t
5508     ;         23*t57-1.2154132992921589d+2*t18*t19*t20*t57+1.3673399617
5509     <         036788d+2*t16*t18*t20*t57-1.3673399617036788d+2*t15*t16*t
5510     =         17*t57+1.5192666241151986d+2*t13*t15*t17*t57-1.5192666241
5511     >         151986d+2*t12*t13*t14*t57
5512            t60 = rhob**3.333333333333333d-1
5513            t61 = 1/t2**2
5514            t62 = 1/rhob**6.333333333333333d+0
5515            t63 = 1/rhob**3.6666666666666664d+0
5516            t64 = 4.327658698487368d-5*t48*t61*t62-9.632497209735863d-3*
5517     1         gammabb*t3*t63
5518            t65 = -6.2242d-3*t1*taub-4.9793599999999993d-3*gammabb*t63
5519            t66 = 1/t45**3
5520            t67 = -3.3333333333333337d+0*t1*t46*t55*taub-6.6666666666666
5521     1         67d+0*t1*t44*t50*t52*taub-3.3333333333333337d+0*gammabb*t
5522     2         49*t50*t51*taub-2*t52*t53*t65*t66-2*gammabb*t1*t44*t51*t6
5523     3         5*t66-2*t47*t48*t49*t65*t66-t44*t50*t55*t65-gammabb*t1*t5
5524     4         0*t54*t65-2.6666666666666666d+0*gammabb*t46*t54*t63-2.666
5525     5         6666666666666d+0*gammabb*t44*t50*t51*t63-5.33333333333333
5526     6         3d+0*t47*t48*t50*t62
5527            t68 = 1.0d+0*t5*t67+1.3333333333333333d+0*t56*t60
5528            t69 = 3.6121864536509485d-3*t1*t3-1.6228720119327628d-5*gamm
5529     1         abb*t49*t61
5530            t70 = 1/rhob**8
5531            t71 = -3.73452d-3*t47*t48*t66*t70-3.73452d-3*t1*t52*t53*t66-
5532     1         3.73452d-3*gammabb*t44*t49*t51*t66-1.86726d-3*t1*t44*t50*
5533     2         t55-1.86726d-3*gammabb*t49*t50*t54+t1*t46*t54+t1*t44*t50*
5534     3         t51+2*gammabb*t47*t49*t50
5535            t72 = 1/t5
5536            t73 = -2.0d+0*t39*t40*t9-4.0d+0*t37*t39*t9-2.2d+1*t10*t58*t6
5537     1         -2.2d+1*t12*t14*t6-2.0d+0*t40*t41-4.0d+0*t36*t37*t38-6.0d
5538     2         +0*t34*t36*t38-6.0d+0*t33*t34*t35-8.0d+0*t31*t33*t35-8.0d
5539     3         +0*t30*t31*t32-1.0d+1*t28*t30*t32-1.0d+1*t27*t28*t29-1.2d
5540     4         +1*t25*t27*t29-1.2d+1*t24*t25*t26-1.4d+1*t22*t24*t26-1.4d
5541     5         +1*t21*t22*t23-1.6d+1*t19*t21*t23-1.6d+1*t18*t19*t20-1.8d
5542     6         +1*t16*t18*t20-1.8d+1*t15*t16*t17-2.0d+1*t13*t15*t17-2.0d
5543     7         +1*t12*t13*t14
5544            t74 = 1/rhob**7
5545            t75 = 1/rhob**4.333333333333333d+0
5546            t76 = -7.46904d-3*gammabb*t44*t51*t66*t75-3.73452d-3*gammabb
5547     1         *t50*t54*t75+2.0d+0*gammabb*t50*t51*t75-7.46904d-3*t47*t4
5548     2         8*t66*t74-7.46904d-3*t43*t52*t53*t66-3.73452d-3*t43*t44*t
5549     3         50*t55+2.0d+0*t43*t46*t55+4.0d+0*t43*t44*t50*t52
5550            t77 = 1/t60
5551            t78 = 1/t11**13
5552            t79 = -1.0128444160767991d+1*t39*t40*t77*t9+2.02568883215359
5553     1         82d+1*t37*t39*t77*t9+4.6163421503007845d+2*t36*t40*t5*t9-
5554     2         1.846536860120314d+3*t36*t37*t5*t9+1.3849026450902355d+3*
5555     3         t34*t36*t5*t9+3.046785819198518d+4*t10*t5*t6*t78-1.114128
5556     4         8576844789d+2*t10*t58*t6*t77+1.1141288576844789d+2*t12*t1
5557     5         4*t6*t77+1.0128444160767991d+1*t40*t41*t77-2.025688832153
5558     6         5982d+1*t36*t37*t38*t77+3.038533248230397d+1*t34*t36*t38*
5559     7         t77-3.038533248230397d+1*t33*t34*t35*t77+4.05137766430719
5560     8         64d+1*t31*t33*t35*t77-4.0513776643071964d+1*t30*t31*t32*t
5561     9         77+5.064222080383994d+1*t28*t30*t32*t77-5.064222080383994
5562     :         d+1*t27*t28*t29*t77+6.077066496460795d+1*t25*t27*t29*t77-
5563     ;         6.077066496460795d+1*t24*t25*t26*t77+7.089910912537593d+1
5564     <         *t22*t24*t26*t77-7.089910912537593d+1*t21*t22*t23*t77+8.1
5565     =         02755328614393d+1*t19*t21*t23*t77-8.102755328614393d+1*t1
5566     >         8*t19*t20*t77+9.115599744691191d+1*t16*t18*t20*t77-9.1155
5567     ?         99744691191d+1*t15*t16*t17*t77+1.012844416076799d+2*t13*t
5568     @         15*t17*t77-1.012844416076799d+2*t12*t13*t14*t77-5.5857740
5569     1         01863949d+4*t14*t5*t58*t6+2.5389881826654315d+4*t12*t17*t
5570     2         5*t6+2.5389881826654315d+4*t13*t14*t5*t58-4.6163421503007
5571     3         845d+2*t39*t40*t5+4.6163421503007845d+2*t37*t39*t5+1.3849
5572     4         026450902355d+3*t33*t37*t38*t5-4.1547079352707067d+3*t33*
5573     5         t34*t38*t5+2.769805290180471d+3*t31*t33*t38*t5+2.76980529
5574     6         0180471d+3*t30*t34*t35*t5-7.386147440481255d+3*t30*t31*t3
5575     7         5*t5+4.616342150300784d+3*t28*t30*t35*t5+4.61634215030078
5576     8         4d+3*t27*t31*t32*t5-1.154085537575196d+4*t27*t28*t32*t5+6
5577     9         .924513225451178d+3*t25*t27*t32*t5+6.924513225451178d+3*t
5578     :         24*t28*t29*t5-1.661883174108283d+4*t24*t25*t29*t5+9.69431
5579     ;         8515631648d+3*t22*t24*t29*t5+9.694318515631648d+3*t21*t25
5580     <         *t26*t5-2.2620076536473846d+4*t21*t22*t26*t5+1.2925758020
5581     =         842196d+4*t19*t21*t26*t5+1.2925758020842196d+4*t18*t22*t2
5582     >         3*t5-2.954458976192502d+4*t18*t19*t23*t5+1.66188317410828
5583     ?         23d+4*t16*t18*t23*t5+1.6618831741082823d+4*t15*t19*t20*t5
5584     @         -3.7392371417436354d+4*t15*t16*t20*t5+2.0773539676353528d
5585     1         +4*t13*t15*t20*t5+2.0773539676353528d+4*t12*t16*t17*t5-4.
5586     2         616342150300784d+4*t12*t13*t17*t5
5587            t80 = 1/t57
5588            t81 = gammabb**3
5589            t82 = 1/t2**3
5590            t83 = 1/rhob**10
5591            t84 = 1/rhob**7.333333333333333d+0
5592            t85 = 1/rhob**4.666666666666667d+0
5593            t86 = 3.531915643569816d-2*gammabb*t3*t85-3.8948928286386303
5594     1         d-4*t48*t61*t84+1.0369691626335495d-6*t81*t82*t83
5595            t87 = t65**2
5596            t88 = 1/t45**4
5597            t89 = 1.6597866666666666d-2*t63*taub+1.8257653333333332d-2*g
5598     1         ammabb*t85
5599            t90 = taub**2
5600            t91 = 2.6666666666666666d+1*t1*t44*t52*t65*t66*taub+1.333333
5601     1         3333333333d+1*gammabb*t49*t51*t65*t66*taub+6.666666666666
5602     2         667d+0*t1*t50*t55*t65*taub+8.88888888888889d+0*t46*t55*t6
5603     3         3*taub+1.7777777777777778d+1*t44*t50*t52*t63*taub+2.66666
5604     4         66666666666d+1*gammabb*t50*t51*t62*taub+2.222222222222222
5605     5         4d+1*t49*t50*t52*t90-2*t52*t53*t66*t89-2*gammabb*t1*t44*t
5606     6         51*t66*t89-2*t47*t48*t49*t66*t89-t44*t50*t55*t89-gammabb*
5607     7         t1*t50*t54*t89+6*t52*t53*t87*t88+6*gammabb*t1*t44*t51*t87
5608     8         *t88+6*t47*t48*t49*t87*t88+2*t44*t55*t66*t87+2*gammabb*t1
5609     9         *t54*t66*t87+9.777777777777779d+0*gammabb*t46*t54*t85+9.7
5610     :         77777777777779d+0*gammabb*t44*t50*t51*t85+3.3777777777777
5611     ;         78d+1*t47*t48*t50*t84+1.0666666666666666d+1*gammabb*t44*t
5612     <         51*t63*t65*t66+2.1333333333333332d+1*t47*t48*t62*t65*t66+
5613     =         5.333333333333333d+0*gammabb*t50*t54*t63*t65
5614            t92 = 1.0d+0*t5*t91+4.444444444444444d-1*t56*t80+2.666666666
5615     1         6666666d+0*t60*t67
5616            t93 = -1.0d+0*t5*t56*t89-t65*t68-1.0d+0*t5*t65*t67-1.3333333
5617     1         333333333d+0*t56*t60*t65
5618            t94 = 1/rhob**9
5619            t95 = -3.8886343598758105d-7*t48*t82*t94-9.632497209735863d-
5620     1         3*t3*t63+1.29829760954621d-4*gammabb*t61*t62
5621            t96 = 1/rhob**2.3333333333333334d+0
5622            t97 = 1.24484d-2*gammabb*t51*t66*t70*taub+2.48968d-2*t44*t49
5623     1         *t52*t66*taub+6.2242d-3*t49*t50*t55*taub-3.33333333333333
5624     2         37d+0*t49*t50*t51*taub+2.9876159999999996d-2*t47*t48*t66*
5625     3         t94+1.120356d-2*t47*t48*t65*t70*t88+1.120356d-2*t1*t52*t5
5626     4         3*t65*t88+1.120356d-2*gammabb*t44*t49*t51*t65*t88+3.73452
5627     5         d-3*t1*t44*t55*t65*t66+3.73452d-3*gammabb*t49*t54*t65*t66
5628     6         -2*t1*t44*t51*t65*t66-4*gammabb*t47*t49*t65*t66+9.9587199
5629     7         99999999d-3*t52*t53*t63*t66+1.9917439999999997d-2*gammabb
5630     8         *t44*t51*t62*t66-t1*t50*t54*t65+4.9793599999999993d-3*t44
5631     9         *t50*t55*t63-2.6666666666666666d+0*t46*t54*t63-2.66666666
5632     :         66666666d+0*t44*t50*t51*t63+9.958719999999999d-3*gammabb*
5633     ;         t50*t54*t62-1.0666666666666666d+1*gammabb*t47*t50*t62
5634            t98 = 1.0d+0*t5*t97+1.3333333333333333d+0*t60*t71
5635            t99 = 1.4582378849534292d-7*gammabb*t70*t82-3.24574402386552
5636     1         55d-5*t49*t61
5637            t100 = 1/rhob**1.0666666666666666d+1
5638            t101 = 2.0919959445599998d-5*gammabb*t44*t51*t70*t88+2.09199
5639     1         59445599998d-5*t49*t52*t53*t88+2.0919959445599998d-5*t100
5640     2         *t47*t48*t88+6.973319815199999d-6*gammabb*t54*t66*t70-1.4
5641     3         938079999999998d-2*gammabb*t47*t66*t70+6.973319815199999d
5642     4         -6*t44*t49*t55*t66-7.46904d-3*t44*t49*t51*t66-3.73452d-3*
5643     5         t49*t50*t54+2*t47*t49*t50
5644            t102 = 1/rhob**4
5645            t103 = 6.077066496460795d+1*t36*t40*t57*t9-1.823119948938238
5646     1         5d+2*t34*t36*t57*t9+4.0108638876641245d+3*t10*t57*t6*t78-
5647     2         3.342386573053437d+3*t12*t17*t57*t6+3.342386573053437d+3*
5648     3         t13*t14*t57*t58-6.077066496460795d+1*t37*t39*t57+1.823119
5649     4         9489382385d+2*t33*t37*t38*t57-3.646239897876477d+2*t31*t3
5650     5         3*t38*t57+3.646239897876477d+2*t30*t34*t35*t57-6.07706649
5651     6         6460795d+2*t28*t30*t35*t57+6.077066496460795d+2*t27*t31*t
5652     7         32*t57-9.115599744691192d+2*t25*t27*t32*t57+9.11559974469
5653     8         1192d+2*t24*t28*t29*t57-1.276183964256767d+3*t22*t24*t29*
5654     9         t57+1.276183964256767d+3*t21*t25*t26*t57-1.70157861900902
5655     :         26d+3*t19*t21*t26*t57+1.7015786190090226d+3*t18*t22*t23*t
5656     ;         57-2.187743938725886d+3*t16*t18*t23*t57+2.187743938725886
5657     <         d+3*t15*t19*t20*t57-2.734679923407357d+3*t13*t15*t20*t57+
5658     =         2.734679923407357d+3*t12*t16*t17*t57
5659            t104 = 4.97936d-2*t44*t52*t66*t75*taub+1.24484d-2*t50*t55*t7
5660     1         5*taub-1.3333333333333333d+1*t50*t52*t75*taub+2.48968d-2*
5661     2         gammabb*t51*t66*t74*taub+2.240712d-2*gammabb*t44*t51*t65*
5662     3         t75*t88+2.240712d-2*t47*t48*t65*t74*t88+2.240712d-2*t43*t
5663     4         52*t53*t65*t88+7.46904d-3*gammabb*t54*t65*t66*t75-4.0d+0*
5664     5         gammabb*t51*t65*t66*t75+5.228328d-2*t47*t48*t66*t70+7.469
5665     6         04d-3*t43*t44*t55*t65*t66-8.0d+0*t43*t44*t52*t65*t66+1.24
5666     7         484d-2*t1*t52*t53*t66+3.236584d-2*gammabb*t44*t49*t51*t66
5667     8         -2.0d+0*t43*t50*t55*t65+6.2242d-3*t1*t44*t50*t55-3.333333
5668     9         3333333337d+0*t1*t46*t55+1.618292d-2*gammabb*t49*t50*t54-
5669     :         6.666666666666667d+0*t1*t44*t50*t52-8.666666666666666d+0*
5670     ;         gammabb*t49*t50*t51
5671            t105 = 1.3333333333333333d+0*t60*t76+1.0d+0*t104*t5
5672            t106 = 1/rhob**9.666666666666666d+0
5673            t107 = 4.1839918891199995d-5*t52*t53*t75*t88+4.1839918891199
5674     1         995d-5*gammabb*t44*t51*t74*t88+4.1839918891199995d-5*t106
5675     2         *t47*t48*t88+1.3946639630399998d-5*t44*t55*t66*t75-1.4938
5676     3         079999999998d-2*t44*t52*t66*t75-7.46904d-3*t44*t51*t66*t7
5677     4         5-3.73452d-3*t50*t55*t75-3.73452d-3*t50*t54*t75+2.0d+0*t5
5678     5         0*t51*t75+1.3946639630399998d-5*gammabb*t54*t66*t74-7.469
5679     6         04d-3*gammabb*t51*t66*t74-1.4938079999999998d-2*gammabb*t
5680     7         47*t66*t74
5681            t108 = 1/rhob**3
5682            t109 = 8.0d+0*t36*t40*t9+3.2d+1*t36*t37*t9+2.4d+1*t34*t36*t9
5683     1         +5.28d+2*t10*t6*t78+9.68d+2*t14*t58*t6+4.4d+2*t12*t17*t6+
5684     2         4.4d+2*t13*t14*t58+8.0d+0*t39*t40+8.0d+0*t37*t39+2.4d+1*t
5685     3         33*t37*t38+7.2d+1*t33*t34*t38+4.8d+1*t31*t33*t38+4.8d+1*t
5686     4         30*t34*t35+1.28d+2*t30*t31*t35+8.0d+1*t28*t30*t35+8.0d+1*
5687     5         t27*t31*t32+2.0d+2*t27*t28*t32+1.2d+2*t25*t27*t32+1.2d+2*
5688     6         t24*t28*t29+2.88d+2*t24*t25*t29+1.68d+2*t22*t24*t29+1.68d
5689     7         +2*t21*t25*t26+3.92d+2*t21*t22*t26+2.24d+2*t19*t21*t26+2.
5690     8         24d+2*t18*t22*t23+5.12d+2*t18*t19*t23+2.88d+2*t16*t18*t23
5691     9         +2.88d+2*t15*t19*t20+6.48d+2*t15*t16*t20+3.6d+2*t13*t15*t
5692     :         20+3.6d+2*t12*t16*t17+8.0d+2*t12*t13*t17
5693            t110 = 1/rhob**8.666666666666666d+0
5694            t111 = 1/rhob**6
5695            t112 = 1/rhob**3.3333333333333337d+0
5696            t113 = 8.367983778239999d-5*t112*t52*t53*t88+8.3679837782399
5697     1         99d-5*gammabb*t111*t44*t51*t88+8.367983778239999d-5*t110*
5698     2         t47*t48*t88+2.7893279260799997d-5*t112*t44*t55*t66+2.7893
5699     3         279260799997d-5*gammabb*t111*t54*t66-5.975231999999999d-2
5700     4         *t112*t44*t52*t66-2.9876159999999996d-2*gammabb*t111*t51*
5701     5         t66-1.4938079999999998d-2*t112*t50*t55+8.0d+0*t112*t50*t5
5702     6         2
5703            t114 = rhob**2
5704            t115 = 1/t114
5705            t116 = 1/t11**14
5706            t117 = 1/t2**4
5707            t118 = 1/rhob**8.333333333333334d+0
5708            t119 = 1/rhob**5.666666666666667d+0
5709            t120 = t65**3
5710            t121 = 1/t45**5
5711            t122 = -6.085884444444444d-2*t85*taub-8.520238222222222d-2*g
5712     1         ammabb*t119
5713            t123 = 1/rhob**1.1666666666666665d+1
5714            t124 = 1/rhob**5
5715            t125 = 1/rhob**7.666666666666667d+0
5716            fnc(iq) = (1.0d+0*t46*t5*t56-9.305257363490997d-1*t4*t42*t5)
5717     1         *wght+fnc(iq)
5718            Amat(iq,D1_RB) = (t46*t68-1.0d+0*t5*t50*t56*t65-9.3052573634
5719     1         90997d-1*t42*t5*t64-1.2407009817987995d+0*t4*t42*t60-9.30
5720     2         5257363490997d-1*t4*t5*t59)*wght+Amat(iq,D1_RB)
5721            Cmat(iq,D1_GBB) = (-1.86726d-3*t50*t56*t72+1.0d+0*t46*t5*t71
5722     1         -9.305257363490997d-1*t42*t5*t69)*wght+Cmat(iq,D1_GBB)
5723            Mmat(iq,D1_TB) = (-3.73452d-3*t50*t56*t77+1.0d+0*t46*t5*t76-
5724     1         9.305257363490997d-1*t4*t5*t73)*wght+Mmat(iq,D1_TB)
5725            Mmat(iq,D1_TA) = Mmat(iq,D1_TA)
5726            Amat2(iq,D2_RB_RB) = (t50*t93+t46*t92+2.0d+0*t5*t56*t66*t87-
5727     1         9.305257363490997d-1*t42*t5*t86-4.1356699393293317d-1*t4*
5728     2         t42*t80-9.305257363490997d-1*t4*t5*t79-2.481401963597599d
5729     3         +0*t42*t60*t64-1.8610514726981994d+0*t5*t59*t64-2.4814019
5730     4         63597599d+0*t4*t59*t60)*wght+Amat2(iq,D2_RB_RB)
5731            Cmat2(iq,D2_RB_GBB) = (t46*t98+4.9793599999999993d-3*t50*t56
5732     1         *t96-9.305257363490997d-1*t42*t5*t95+3.73452d-3*t56*t65*t
5733     2         66*t72-1.0d+0*t5*t50*t65*t71-1.2407009817987995d+0*t42*t6
5734     3         0*t69-9.305257363490997d-1*t5*t59*t69-1.86726d-3*t1*t50*t
5735     4         68)*wght+Cmat2(iq,D2_RB_GBB)
5736            Cmat2(iq,D2_GBB_GBB) = (-9.305257363490997d-1*t42*t5*t99-3.7
5737     1         3452d-3*t50*t71*t72+6.973319815199999d-6*t102*t56*t66+1.0
5738     2         d+0*t101*t46*t5)*wght+Cmat2(iq,D2_GBB_GBB)
5739            Mmat2(iq,D2_RB_TA) = Mmat2(iq,D2_RB_TA)
5740            Mmat2(iq,D2_RB_TB) = (7.46904d-3*t56*t65*t66*t77-1.0d+0*t5*t
5741     1         50*t65*t76-9.305257363490997d-1*t5*t64*t73-1.240700981798
5742     2         7995d+0*t4*t60*t73+6.2242d-3*t50*t56*t72-3.73452d-3*t43*t
5743     3         50*t68-9.305257363490997d-1*t103*t4*t5+t105*t46)*wght+Mma
5744     4         t2(iq,D2_RB_TB)
5745            Mmat2(iq,D2_GBB_TA) = Mmat2(iq,D2_GBB_TA)
5746            Mmat2(iq,D2_GBB_TB) = (-3.73452d-3*t50*t71*t77-1.86726d-3*t5
5747     1         0*t72*t76-9.305257363490997d-1*t5*t69*t73+1.3946639630399
5748     2         998d-5*t108*t56*t66+1.0d+0*t107*t46*t5)*wght+Mmat2(iq,D2_
5749     3         GBB_TB)
5750            Mmat2(iq,D2_TA_TA) = Mmat2(iq,D2_TA_TA)
5751            Mmat2(iq,D2_TA_TB) = Mmat2(iq,D2_TA_TB)
5752            Mmat2(iq,D2_TB_TB) = (-7.46904d-3*t50*t76*t77+2.789327926079
5753     1         9997d-5*t115*t56*t66+1.0d+0*t113*t46*t5-9.305257363490997
5754     2         d-1*t109*t4*t5)*wght+Mmat2(iq,D2_TB_TB)
5755            Amat3(iq,D3_RB_RB_RB) = (t46*(1.0d+0*t5*(4.0d+1*t1*t44*t52*t
5756     1         66*t89*taub+2.0d+1*gammabb*t49*t51*t66*t89*taub+1.0d+1*t1
5757     2         *t50*t55*t89*taub-1.2d+2*t1*t44*t52*t87*t88*taub-6.0d+1*g
5758     3         ammabb*t49*t51*t87*t88*taub-2.0d+1*t1*t55*t66*t87*taub-3.
5759     4         2592592592592595d+1*t46*t55*t85*taub-6.518518518518519d+1
5760     5         *t44*t50*t52*t85*taub-2.0148148148148146d+2*gammabb*t50*t
5761     6         51*t84*taub-1.0666666666666667d+2*t44*t52*t63*t65*t66*tau
5762     7         b-1.6d+2*gammabb*t51*t62*t65*t66*taub-2.6666666666666666d
5763     8         +1*t50*t55*t63*t65*taub-1.3333333333333333d+2*t49*t52*t65
5764     9         *t66*t90-1.777777777777778d+2*t50*t52*t62*t90+18*t52*t53*
5765     :         t65*t88*t89+18*gammabb*t1*t44*t51*t65*t88*t89+18*t47*t48*
5766     ;         t49*t65*t88*t89+6*t44*t55*t65*t66*t89+6*gammabb*t1*t54*t6
5767     <         5*t66*t89+16*gammabb*t44*t51*t63*t66*t89+32*t47*t48*t62*t
5768     =         66*t89+8*gammabb*t50*t54*t63*t89-48*gammabb*t44*t51*t63*t
5769     >         87*t88-96*t47*t48*t62*t87*t88-6*t120*t44*t55*t88-6*gammab
5770     ?         b*t1*t120*t54*t88-16*gammabb*t54*t63*t66*t87-5.8666666666
5771     @         66667d+1*gammabb*t44*t51*t65*t66*t85-2.9333333333333333d+
5772     1         1*gammabb*t50*t54*t65*t85-2.0266666666666666d+2*t47*t48*t
5773     2         65*t66*t84-2*t122*t52*t53*t66-2*gammabb*t1*t122*t44*t51*t
5774     3         66-2*t122*t47*t48*t49*t66-t122*t44*t50*t55-gammabb*t1*t12
5775     4         2*t50*t54-4.5629629629629626d+1*gammabb*t119*t46*t54-24*t
5776     5         120*t121*t52*t53-4.5629629629629626d+1*gammabb*t119*t44*t
5777     6         50*t51-24*gammabb*t1*t120*t121*t44*t51-2.477037037037037d
5778     7         +2*t118*t47*t48*t50-24*t120*t121*t47*t48*t49)+4.0d+0*t60*
5779     8         t91+1.3333333333333333d+0*t67*t80-2.962962962962963d-1*t4
5780     9         3*t56)+t66*(-2*t65*t93+4.0d+0*t5*t56*t65*t89+2.0d+0*t5*t6
5781     :         7*t87+2.6666666666666666d+0*t56*t60*t87)+t50*(-2*t65*t92-
5782     ;         1.0d+0*t5*t65*t91-t68*t89-2.0d+0*t5*t67*t89-2.66666666666
5783     <         66666d+0*t56*t60*t89-4.444444444444444d-1*t56*t65*t80-2.6
5784     =         666666666666666d+0*t60*t65*t67-1.0d+0*t122*t5*t56)-9.3052
5785     >         57363490997d-1*t4*t5*(3.37614805358933d+0*t39*t40*t72*t9-
5786     ?         6.75229610717866d+0*t37*t39*t72*t9+9.232684300601568d+2*t
5787     @         36*t40*t60*t9-3.693073720240627d+3*t36*t37*t60*t9+2.76980
5788     1         5290180471d+3*t34*t36*t60*t9-2.104036366334451d+4*t114*t3
5789     2         3*t40*t9+1.2624218198006704d+5*t114*t33*t37*t9-1.89363272
5790     3         97010064d+5*t114*t33*t34*t9+8.416145465337804d+4*t114*t31
5791     4         *t33*t9+6.093571638397036d+4*t10*t6*t60*t78+1.52753040195
5792     5         88112d+7*t114*t14*t6*t78-4.628880005935792d+6*t114*t13*t1
5793     6         4*t78+3.713762858948263d+1*t10*t58*t6*t72-3.7137628589482
5794     7         63d+1*t12*t14*t6*t72-3.37614805358933d+0*t40*t41*t72+6.75
5795     8         229610717866d+0*t36*t37*t38*t72-1.0128444160767991d+1*t34
5796     9         *t36*t38*t72+1.0128444160767991d+1*t33*t34*t35*t72-1.3504
5797     :         59221435732d+1*t31*t33*t35*t72+1.350459221435732d+1*t30*t
5798     ;         31*t32*t72-1.6880740267946648d+1*t28*t30*t32*t72+1.688074
5799     <         0267946648d+1*t27*t28*t29*t72-2.0256888321535982d+1*t25*t
5800     =         27*t29*t72+2.0256888321535982d+1*t24*t25*t26*t72-2.363303
5801     >         6375125308d+1*t22*t24*t26*t72+2.3633036375125308d+1*t21*t
5802     ?         22*t23*t72-2.700918442871464d+1*t19*t21*t23*t72+2.7009184
5803     @         42871464d+1*t18*t19*t20*t72-3.0385332482303967d+1*t16*t18
5804     1         *t20*t72+3.0385332482303967d+1*t15*t16*t17*t72-3.37614805
5805     2         35893296d+1*t13*t15*t17*t72+3.3761480535893296d+1*t12*t13
5806     3         *t14*t72-1.1171548003727898d+5*t14*t58*t6*t60+5.077976365
5807     4         330863d+4*t12*t17*t6*t60+5.077976365330862d+4*t13*t14*t58
5808     5         *t60-9.232684300601568d+2*t39*t40*t60+9.232684300601568d+
5809     6         2*t37*t39*t60+2.769805290180471d+3*t33*t37*t38*t60-8.3094
5810     7         15870541413d+3*t33*t34*t38*t60+5.539610580360942d+3*t31*t
5811     8         33*t38*t60+5.539610580360942d+3*t30*t34*t35*t60-1.4772294
5812     9         880962508d+4*t30*t31*t35*t60+9.232684300601568d+3*t28*t30
5813     :         *t35*t60+9.232684300601568d+3*t27*t31*t32*t60-2.308171075
5814     ;         150392d+4*t27*t28*t32*t60+1.3849026450902355d+4*t25*t27*t
5815     <         32*t60+1.3849026450902355d+4*t24*t28*t29*t60-3.3237663482
5816     =         16566d+4*t24*t25*t29*t60+1.9388637031263292d+4*t22*t24*t2
5817     >         9*t60+1.9388637031263292d+4*t21*t25*t26*t60-4.52401530729
5818     ?         47686d+4*t21*t22*t26*t60+2.585151604168439d+4*t19*t21*t26
5819     @         *t60+2.585151604168439d+4*t18*t22*t23*t60-5.9089179523850
5820     1         03d+4*t18*t19*t23*t60+3.3237663482165647d+4*t16*t18*t23*t
5821     2         60+3.3237663482165647d+4*t15*t19*t20*t60-7.47847428348727
5822     3         1d+4*t15*t16*t20*t60+4.154707935270705d+4*t13*t15*t20*t60
5823     4         +4.1547079352707056d+4*t12*t16*t17*t60-9.232684300601568d
5824     5         +4*t12*t13*t17*t60-1.2729420016323426d+7*t114*t17*t58*t6+
5825     6         3.4716600044518436d+6*t114*t12*t20*t6-6.01754400771653d+6
5826     7         *t10*t114*t116*t6-3.4716600044518436d+6*t114*t16*t17*t58+
5827     8         1.1572200014839477d+7*t114*t13*t17*t58+2.104036366334451d
5828     9         +4*t114*t36*t40-8.416145465337804d+4*t114*t30*t37*t38+3.7
5829     :         87265459402013d+5*t114*t30*t34*t38-5.049687279202681d+5*t
5830     ;         114*t30*t31*t38+2.1040363663344508d+5*t114*t28*t30*t38-4.
5831     <         208072732668902d+4*t114*t36*t37+2.104036366334451d+4*t114
5832     =         *t34*t36-2.104036366334451d+5*t114*t27*t34*t35+8.41614546
5833     >         5337803d+5*t114*t27*t31*t35-1.0520181831672254d+6*t114*t2
5834     ?         7*t28*t35+4.208072732668902d+5*t114*t25*t27*t35-4.2080727
5835     @         326689016d+5*t114*t24*t31*t32+1.578027274750838d+6*t114*t
5836     1         24*t28*t32-1.893632729701006d+6*t114*t24*t25*t32+7.364127
5837     2         282170578d+5*t114*t22*t24*t32-7.364127282170578d+5*t114*t
5838     3         21*t28*t29+2.6510858215814087d+6*t114*t21*t25*t29-3.09293
5839     4         34585116436d+6*t114*t21*t22*t29+1.1782603651472927d+6*t11
5840     5         4*t19*t21*t29-1.1782603651472927d+6*t114*t18*t25*t26+4.12
5841     6         3911278015524d+6*t114*t18*t22*t26-4.713041460589171d+6*t1
5842     7         14*t18*t19*t26+1.767390547720939d+6*t114*t16*t18*t26-1.76
5843     8         73905477209387d+6*t114*t15*t22*t23+6.059624735043219d+6*t
5844     9         114*t15*t19*t23-6.817077826923622d+6*t114*t15*t16*t23+2.5
5845     :         24843639601341d+6*t114*t13*t15*t23-2.524843639601341d+6*t
5846     ;         114*t12*t19*t20+8.521347283654526d+6*t114*t12*t16*t20-9.4
5847     <         68163648505028d+6*t114*t12*t13*t20)-6.0d+0*t120*t5*t56*t8
5848     =         8-3.7221029453963983d+0*t42*t60*t86-2.791577209047299d+0*
5849     >         t5*t59*t86-9.305257363490997d-1*t42*t5*(-1.97024140900374
5850     ?         43d-5*t81*t82/rhob**11+3.279403591520427d-3*t118*t48*t61-
5851     @         1.648227300332581d-1*gammabb*t119*t3+3.7270905095708196d-
5852     1         8*gammabb**4*t117/rhob**1.3666666666666666d+1)+(-1.240700
5853     2         9817987995d+0*t42*t64-1.2407009817987995d+0*t4*t59)*t80-2
5854     3         .791577209047299d+0*t5*t64*t79-3.7221029453963983d+0*t4*t
5855     4         60*t79-7.444205890792797d+0*t59*t60*t64+2.757113292886221
5856     5         d-1*t4*t42*t43)*wght+Amat3(iq,D3_RB_RB_RB)
5857            Cmat3(iq,D3_RB_RB_GBB) = (t46*(1.0d+0*t5*(-1.659786666666666
5858     1         6d-1*gammabb*t51*t66*t94*taub-7.46904d-2*gammabb*t51*t65*
5859     2         t70*t88*taub-1.493808d-1*t44*t49*t52*t65*t88*taub-2.48968
5860     3         d-2*t49*t55*t65*t66*taub+1.3333333333333333d+1*t49*t51*t6
5861     4         5*t66*taub-1.9917439999999997d-1*t44*t52*t62*t66*taub-4.9
5862     5         793599999999993d-2*t50*t55*t62*taub+2.6666666666666666d+1
5863     6         *t50*t51*t62*taub-1.7925696d-1*t47*t48*t65*t88*t94-8.2989
5864     7         33333333335d-2*t52*t66*t70*t90+1.120356d-2*t47*t48*t70*t8
5865     8         8*t89+1.120356d-2*t1*t52*t53*t88*t89+1.120356d-2*gammabb*
5866     9         t44*t49*t51*t88*t89+3.73452d-3*t1*t44*t55*t66*t89+3.73452
5867     :         d-3*gammabb*t49*t54*t66*t89-2*t1*t44*t51*t66*t89-4*gammab
5868     ;         b*t47*t49*t66*t89-t1*t50*t54*t89-1.120356d-2*t1*t44*t55*t
5869     <         87*t88-1.120356d-2*gammabb*t49*t54*t87*t88+6*t1*t44*t51*t
5870     =         87*t88+12*gammabb*t47*t49*t87*t88-5.975231999999999d-2*t5
5871     >         2*t53*t63*t65*t88-1.1950464d-1*gammabb*t44*t51*t62*t65*t8
5872     ?         8-4.481424d-2*t121*t47*t48*t70*t87+2*t1*t54*t66*t87-4.481
5873     @         424d-2*t1*t121*t52*t53*t87-4.481424d-2*gammabb*t121*t44*t
5874     1         49*t51*t87-3.6515306666666664d-2*t52*t53*t66*t85-1.825765
5875     2         3333333332d-2*t44*t50*t55*t85+9.777777777777779d+0*t46*t5
5876     3         4*t85+9.777777777777779d+0*t44*t50*t51*t85-1.261437866666
5877     4         6665d-1*gammabb*t44*t51*t66*t84-6.307189333333332d-2*gamm
5878     5         abb*t50*t54*t84+6.755555555555556d+1*gammabb*t47*t50*t84-
5879     6         2.6888544000000003d-1*t47*t48*t66*t83-1.9917439999999997d
5880     7         -2*t44*t55*t63*t65*t66+1.0666666666666666d+1*t44*t51*t63*
5881     8         t65*t66-3.9834879999999995d-2*gammabb*t54*t62*t65*t66+4.2
5882     9         666666666666664d+1*gammabb*t47*t62*t65*t66+5.333333333333
5883     :         333d+0*t50*t54*t63*t65)+2.6666666666666666d+0*t60*t97+4.4
5884     ;         44444444444444d-1*t71*t80)+t50*(-t65*t98-1.0d+0*t5*t65*t9
5885     <         7+4.9793599999999993d-3*t67*t96-1.0d+0*t5*t71*t89-1.33333
5886     =         33333333333d+0*t60*t65*t71+4.9793599999999993d-3*t63*t68-
5887     >         1.1618506666666667d-2*t112*t56)-1.9917439999999997d-2*t56
5888     ?         *t65*t66*t96-2.481401963597599d+0*t42*t60*t95-1.861051472
5889     @         6981994d+0*t5*t59*t95-3.73452d-3*t1*t66*t93-1.86726d-3*t1
5890     1         *t50*t92-1.120356d-2*t56*t72*t87*t88+2.0d+0*t5*t66*t71*t8
5891     2         7-9.305257363490997d-1*t42*t5*(3.531915643569816d-2*t3*t8
5892     3         5-9.376593846722628d-4*gammabb*t61*t84+6.610678411788878d
5893     4         -6*t48*t82*t83-1.3976589410890572d-8*t117*t81/rhob**1.266
5894     5         6666666666665d+1)-4.1356699393293317d-1*t42*t69*t80-9.305
5895     6         257363490997d-1*t5*t69*t79-2.481401963597599d+0*t59*t60*t
5896     7         69)*wght+Cmat3(iq,D3_RB_RB_GBB)
5897            Cmat3(iq,D3_RB_GBB_GBB) = (t46*(1.0d+0*t5*(-1.39466396303999
5898     1         98d-4*t44*t52*t70*t88*taub-6.9733198152d-5*gammabb*t100*t
5899     2         51*t88*taub-2.3244399384d-5*t55*t66*t70*taub+2.48968d-2*t
5900     3         51*t66*t70*taub-1.6735967556479997d-4*gammabb*t44*t51*t88
5901     4         *t94-5.578655852159999d-5*gammabb*t54*t66*t94+1.1950464d-
5902     5         1*gammabb*t47*t66*t94-2.0919959445599998d-5*gammabb*t54*t
5903     6         65*t70*t88+4.481424d-2*gammabb*t47*t65*t70*t88-2.09199594
5904     7         45599998d-5*t44*t49*t55*t65*t88+2.240712d-2*t44*t49*t51*t
5905     8         65*t88-1.1157311704319998d-4*t52*t53*t62*t88-2.2314623408
5906     9         639997d-4*t123*t47*t48*t88-8.367983778239999d-5*gammabb*t
5907     :         121*t44*t51*t65*t70+7.46904d-3*t49*t54*t65*t66-4*t47*t49*
5908     ;         t65*t66-3.7191039014399996d-5*t44*t55*t62*t66+3.983487999
5909     <         9999995d-2*t44*t51*t62*t66-8.367983778239999d-5*t121*t49*
5910     =         t52*t53*t65-8.367983778239999d-5*t100*t121*t47*t48*t65+1.
5911     >         9917439999999997d-2*t50*t54*t62-1.0666666666666666d+1*t47
5912     ?         *t50*t62)+1.3333333333333333d+0*t101*t60)-1.2407009817987
5913     @         995d+0*t42*t60*t99-9.305257363490997d-1*t5*t59*t99-3.7345
5914     1         2d-3*t1*t50*t98+9.958719999999999d-3*t50*t71*t96-9.305257
5915     2         363490997d-1*t42*t5*(-1.944317179937905d-6*gammabb*t82*t9
5916     3         4+1.731063479394947d-4*t61*t62+5.241221029083964d-9*t117*
5917     4         t123*t48)-2.0919959445599998d-5*t102*t56*t65*t88+7.46904d
5918     5         -3*t65*t66*t71*t72+6.973319815199999d-6*t49*t66*t68-3.719
5919     6         1039014399996d-5*t124*t56*t66-1.0d+0*t101*t5*t50*t65)*wgh
5920     7         t+Cmat3(iq,D3_RB_GBB_GBB)
5921            Cmat3(iq,D3_GBB_GBB_GBB) = (1.0d+0*t46*t5*(-3.90630034743910
5922     1         45d-8*t44*t55*t70*t88+6.275987833679999d-5*t44*t51*t70*t8
5923     2         8-3.9063003474391045d-8*gammabb*t100*t54*t88+1.2551975667
5924     3         36d-4*gammabb*t100*t47*t88+2.0919959445599995d-5*t54*t66*
5925     4         t70-2.240712d-2*t47*t66*t70-1.562520138975642d-7*t121*t52
5926     5         *t53*t70-1.562520138975642d-7*gammabb*t100*t121*t44*t51-1
5927     6         .562520138975642d-7*t121*t47*t48/rhob**1.3333333333333333
5928     7         d+1)-3.9063003474391045d-8*t56*t88/rhob**6.66666666666666
5929     8         7d+0-9.305257363490997d-1*t42*t5*(4.374713654860287d-7*t7
5930     9         0*t82-1.965457885906487d-9*gammabb*t100*t117)-5.60178d-3*
5931     :         t101*t50*t72+2.0919959445599995d-5*t102*t66*t71)*wght+Cma
5932     ;         t3(iq,D3_GBB_GBB_GBB)
5933            Mmat3(iq,D3_RB_RB_TA) = Mmat3(iq,D3_RB_RB_TA)
5934            Mmat3(iq,D3_RB_RB_TB) = (t46*(1.0d+0*t5*(-2.987616d-1*t44*t5
5935     1         2*t65*t75*t88*taub-1.493808d-1*gammabb*t51*t65*t74*t88*ta
5936     2         ub-4.97936d-2*t55*t65*t66*t75*taub+5.333333333333333d+1*t
5937     3         52*t65*t66*t75*taub-2.8216373333333333d-1*gammabb*t51*t66
5938     4         *t70*taub-2.9876159999999996d-1*t44*t49*t52*t66*taub-7.46
5939     5         9039999999999d-2*t49*t50*t55*taub+8.0d+1*t49*t50*t52*taub
5940     6         -4.1826624d-1*t47*t48*t66*t94-1.659786666666667d-1*t52*t6
5941     7         6*t74*t90+2.240712d-2*gammabb*t44*t51*t75*t88*t89+2.24071
5942     8         2d-2*t47*t48*t74*t88*t89+2.240712d-2*t43*t52*t53*t88*t89+
5943     9         7.46904d-3*gammabb*t54*t66*t75*t89-4.0d+0*gammabb*t51*t66
5944     :         *t75*t89+7.46904d-3*t43*t44*t55*t66*t89-8.0d+0*t43*t44*t5
5945     ;         2*t66*t89-2.0d+0*t43*t50*t55*t89-2.240712d-2*gammabb*t54*
5946     <         t75*t87*t88+1.2d+1*gammabb*t51*t75*t87*t88-2.240712d-2*t4
5947     =         3*t44*t55*t87*t88+2.4d+1*t43*t44*t52*t87*t88-3.1369968d-1
5948     >         *t47*t48*t65*t70*t88-7.46904d-2*t1*t52*t53*t65*t88-1.9419
5949     ?         503999999999d-1*gammabb*t44*t49*t51*t65*t88-8.962848d-2*g
5950     @         ammabb*t121*t44*t51*t75*t87-8.962848d-2*t121*t47*t48*t74*
5951     1         t87+4.0d+0*t43*t55*t66*t87-8.962848d-2*t121*t43*t52*t53*t
5952     2         87-2.48968d-2*t1*t44*t55*t65*t66-6.473168d-2*gammabb*t49*
5953     3         t54*t65*t66+2.6666666666666666d+1*t1*t44*t52*t65*t66+3.46
5954     4         6666666666666d+1*gammabb*t49*t51*t65*t66-3.31957333333333
5955     5         3d-2*t52*t53*t63*t66-1.7261781333333331d-1*gammabb*t44*t5
5956     6         1*t62*t66+6.666666666666667d+0*t1*t50*t55*t65-1.659786666
5957     7         6666666d-2*t44*t50*t55*t63+8.88888888888889d+0*t46*t55*t6
5958     8         3+1.7777777777777778d+1*t44*t50*t52*t63-8.630890666666666
5959     9         d-2*gammabb*t50*t54*t62+4.622222222222223d+1*gammabb*t50*
5960     :         t51*t62)+4.444444444444444d-1*t76*t80+2.6666666666666666d
5961     ;         +0*t104*t60)+t50*(-8.298933333333333d-3*t56*t96-1.0d+0*t5
5962     <         *t76*t89-1.3333333333333333d+0*t60*t65*t76+6.2242d-3*t67*
5963     =         t72+6.2242d-3*t1*t68-1.0d+0*t104*t5*t65-t105*t65)-7.46904
5964     >         d-3*t43*t66*t93-3.73452d-3*t43*t50*t92-9.305257363490997d
5965     ?         -1*t4*t5*(4.0513776643071964d+1*t36*t40*t77*t9-1.21541329
5966     @         92921589d+2*t34*t36*t77*t9-2.769805290180471d+3*t33*t40*t
5967     1         5*t9+5.539610580360942d+3*t33*t37*t5*t9+8.309415870541416
5968     2         d+3*t33*t34*t5*t9-1.1079221160721883d+4*t31*t33*t5*t9+2.6
5969     3         739092584427493d+3*t10*t6*t77*t78+6.702928802236738d+5*t1
5970     4         4*t5*t6*t78-6.093571638397035d+5*t13*t14*t5*t78-2.2282577
5971     5         15368958d+3*t12*t17*t6*t77+2.2282577153689576d+3*t13*t14*
5972     6         t58*t77-4.0513776643071964d+1*t37*t39*t77+1.2154132992921
5973     7         589d+2*t33*t37*t38*t77-2.4308265985843178d+2*t31*t33*t38*
5974     8         t77+2.4308265985843178d+2*t30*t34*t35*t77-4.0513776643071
5975     9         96d+2*t28*t30*t35*t77+4.0513776643071964d+2*t27*t31*t32*t
5976     :         77-6.077066496460795d+2*t25*t27*t32*t77+6.077066496460793
5977     ;         d+2*t24*t28*t29*t77-8.507893095045111d+2*t22*t24*t29*t77+
5978     <         8.507893095045113d+2*t21*t25*t26*t77-1.1343857460060149d+
5979     =         3*t19*t21*t26*t77+1.1343857460060149d+3*t18*t22*t23*t77-1
5980     >         .4584959591505905d+3*t16*t18*t23*t77+1.4584959591505908d+
5981     ?         3*t15*t19*t20*t77-1.8231199489382383d+3*t13*t15*t20*t77+1
5982     @         .8231199489382383d+3*t12*t16*t17*t77+5.585774001863949d+5
5983     1         *t17*t5*t58*t6-4.5701787287977763d+5*t12*t20*t5*t6-7.9216
5984     2         43129916147d+5*t10*t116*t5*t6-4.5701787287977763d+5*t16*t
5985     3         17*t5*t58+5.077976365330863d+5*t13*t17*t5*t58+9.232684300
5986     4         601569d+2*t36*t40*t5-1.1079221160721883d+4*t30*t37*t38*t5
5987     5         +1.6618831741082832d+4*t30*t34*t38*t5+2.2158442321443766d
5988     6         +4*t30*t31*t38*t5-2.7698052901804704d+4*t28*t30*t38*t5+1.
5989     7         846536860120314d+3*t36*t37*t5-2.769805290180471d+3*t34*t3
5990     8         6*t5-2.769805290180471d+4*t27*t34*t35*t5+3.69307372024062
5991     9         9d+4*t27*t31*t35*t5+4.616342150300784d+4*t27*t28*t35*t5-5
5992     :         .539610580360942d+4*t25*t27*t35*t5-5.539610580360941d+4*t
5993     ;         24*t31*t32*t5+6.924513225451174d+4*t24*t28*t32*t5+8.30941
5994     <         5870541416d+4*t24*t25*t32*t5-9.694318515631648d+4*t22*t24
5995     =         *t32*t5-9.694318515631648d+4*t21*t28*t29*t5+1.16331822187
5996     >         57979d+5*t21*t25*t29*t5+1.3572045921884307d+5*t21*t22*t29
5997     ?         *t5-1.5510909625010635d+5*t19*t21*t29*t5-1.55109096250106
5998     @         38d+5*t18*t25*t26*t5+1.809606122917908d+5*t18*t22*t26*t5+
5999     1         2.0681212833347515d+5*t18*t19*t26*t5-2.3266364437515952d+
6000     2         5*t16*t18*t26*t5-2.3266364437515955d+5*t15*t22*t23*t5+2.6
6001     3         59013078573252d+5*t15*t19*t23*t5+2.9913897133949086d+5*t1
6002     4         5*t16*t23*t5-3.3237663482165647d+5*t13*t15*t23*t5-3.32376
6003     5         6348216565d+5*t12*t19*t20*t5+3.7392371417436354d+5*t12*t1
6004     6         6*t20*t5+4.1547079352707056d+5*t12*t13*t20*t5)-2.240712d-
6005     7         2*t56*t77*t87*t88+2.0d+0*t5*t66*t76*t87-9.305257363490997
6006     8         d-1*t5*t73*t86-4.1356699393293317d-1*t4*t73*t80-2.4814019
6007     9         63597599d+0*t60*t64*t73-2.48968d-2*t56*t65*t66*t72-1.8610
6008     :         514726981994d+0*t103*t5*t64-2.481401963597599d+0*t103*t4*
6009     ;         t60)*wght+Mmat3(iq,D3_RB_RB_TB)
6010            Mmat3(iq,D3_RB_GBB_TA) = Mmat3(iq,D3_RB_GBB_TA)
6011            Mmat3(iq,D3_RB_GBB_TB) = (t46*(1.0d+0*t5*(-2.789327926079999
6012     1         7d-4*t44*t52*t74*t88*taub-1.3946639630399998d-4*gammabb*t
6013     2         106*t51*t88*taub-4.6488798768d-5*t55*t66*t74*taub+4.97936
6014     3         d-2*t52*t66*t74*taub+2.48968d-2*t51*t66*t74*taub-4.183991
6015     4         8891199995d-5*t44*t55*t65*t75*t88+4.481424d-2*t44*t52*t65
6016     5         *t75*t88+2.240712d-2*t44*t51*t65*t75*t88-4.18399188911999
6017     6         95d-5*gammabb*t54*t65*t74*t88+2.240712d-2*gammabb*t51*t65
6018     7         *t74*t88+4.481424d-2*gammabb*t47*t65*t74*t88-2.9287943223
6019     8         839996d-4*gammabb*t44*t51*t70*t88-1.8130631519519996d-4*t
6020     9         49*t52*t53*t88-4.044525492816d-4*t100*t47*t48*t88+7.46904
6021     :         d-3*t55*t65*t66*t75+7.46904d-3*t54*t65*t66*t75-4.0d+0*t51
6022     ;         *t65*t66*t75-1.673596755648d-4*t121*t52*t53*t65*t75-1.673
6023     <         596755648d-4*gammabb*t121*t44*t51*t65*t74-9.76264774128d-
6024     =         5*gammabb*t54*t66*t70+5.228328d-2*gammabb*t51*t66*t70+1.0
6025     >         456655999999999d-1*gammabb*t47*t66*t70-6.043543839839999d
6026     ?         -5*t44*t49*t55*t66+6.473168d-2*t44*t49*t52*t66+3.236584d-
6027     @         2*t44*t49*t51*t66-1.673596755648d-4*t106*t121*t47*t48*t65
6028     1         +1.618292d-2*t49*t50*t55+1.618292d-2*t49*t50*t54-8.666666
6029     2         666666666d+0*t49*t50*t51)+1.3333333333333333d+0*t107*t60)
6030     3         -3.73452d-3*t43*t50*t98+4.9793599999999993d-3*t50*t76*t96
6031     4         -9.305257363490997d-1*t5*t73*t95-4.1839918891199995d-5*t1
6032     5         08*t56*t65*t88+7.46904d-3*t65*t66*t71*t77+3.73452d-3*t65*
6033     6         t66*t72*t76+1.3946639630399998d-5*t66*t68*t75-1.240700981
6034     7         7987995d+0*t60*t69*t73+6.2242d-3*t50*t71*t72-9.3052573634
6035     8         90997d-1*t103*t5*t69-6.043543839839999d-5*t102*t56*t66-1.
6036     9         0d+0*t107*t5*t50*t65-1.86726d-3*t1*t105*t50)*wght+Mmat3(i
6037     :         q,D3_RB_GBB_TB)
6038            Mmat3(iq,D3_GBB_GBB_TA) = Mmat3(iq,D3_GBB_GBB_TA)
6039            Mmat3(iq,D3_GBB_GBB_TB) = (-9.305257363490997d-1*t5*t73*t99+
6040     1         1.0d+0*t46*t5*(-7.812600694878209d-8*t44*t55*t74*t88+8.36
6041     2         7983778239999d-5*t44*t52*t74*t88+8.367983778239999d-5*t44
6042     3         *t51*t74*t88-7.812600694878209d-8*gammabb*t106*t54*t88+4.
6043     4         1839918891199995d-5*gammabb*t106*t51*t88+1.673596755648d-
6044     5         4*gammabb*t106*t47*t88+1.3946639630399998d-5*t55*t66*t74+
6045     6         2.7893279260799997d-5*t54*t66*t74-1.4938079999999998d-2*t
6046     7         51*t66*t74-1.4938079999999998d-2*t47*t66*t74-3.1250402779
6047     8         51284d-7*t121*t52*t53*t74-3.125040277951284d-7*gammabb*t1
6048     9         06*t121*t44*t51-3.125040277951284d-7*t121*t47*t48/rhob**1
6049     :         .2333333333333334d+1)-7.812600694878209d-8*t119*t56*t88-3
6050     ;         .73452d-3*t101*t50*t77+6.973319815199999d-6*t102*t66*t76-
6051     <         3.73452d-3*t107*t50*t72+2.7893279260799997d-5*t108*t66*t7
6052     =         1)*wght+Mmat3(iq,D3_GBB_GBB_TB)
6053            Mmat3(iq,D3_RB_TA_TA) = Mmat3(iq,D3_RB_TA_TA)
6054            Mmat3(iq,D3_RB_TA_TB) = Mmat3(iq,D3_RB_TA_TB)
6055            Mmat3(iq,D3_RB_TB_TB) = (t46*(1.0d+0*t5*(-5.578655852159999d
6056     1         -4*t111*t44*t52*t88*taub-2.7893279260799997d-4*gammabb*t1
6057     2         10*t51*t88*taub-9.2977597536d-5*t111*t55*t66*taub+1.99174
6058     3         4d-1*t111*t52*t66*taub-2.7893279260799997d-4*t52*t53*t75*
6059     4         t88-5.020790266944d-4*gammabb*t44*t51*t74*t88-8.367983778
6060     5         239999d-5*t112*t44*t55*t65*t88-8.367983778239999d-5*gamma
6061     6         bb*t111*t54*t65*t88+1.7925696d-1*t112*t44*t52*t65*t88+8.9
6062     7         62848d-2*gammabb*t111*t51*t65*t88-7.252252607808d-4*t106*
6063     8         t47*t48*t88-9.2977597536d-5*t44*t55*t66*t75+1.991744d-1*t
6064     9         44*t52*t66*t75+4.97936d-2*t50*t55*t75-2.6666666666666666d
6065     :         +1*t50*t52*t75-1.673596755648d-4*gammabb*t54*t66*t74+1.79
6066     ;         25696000000002d-1*gammabb*t51*t66*t74+2.9876159999999996d
6067     <         -2*t112*t55*t65*t66-1.6d+1*t112*t52*t65*t66-3.34719351129
6068     =         6d-4*t112*t121*t52*t53*t65-3.347193511296d-4*gammabb*t111
6069     >         *t121*t44*t51*t65-3.347193511296d-4*t110*t121*t47*t48*t65
6070     ?         )+1.3333333333333333d+0*t113*t60)-9.305257363490997d-1*t4
6071     @         *t5*(-3.646239897876477d+2*t33*t40*t57*t9-7.2924797957529
6072     1         54d+2*t33*t37*t57*t9+1.0938719693629433d+3*t33*t34*t57*t9
6073     2         +1.4584959591505908d+3*t31*t33*t57*t9-8.823900552861074d+
6074     3         4*t14*t57*t6*t78-8.021727775328248d+4*t13*t14*t57*t78+7.3
6075     4         53250460717561d+4*t17*t57*t58*t6+6.016295831496187d+4*t12
6076     5         *t20*t57*t6-1.0428246107926724d+5*t10*t116*t57*t6-6.01629
6077     6         5831496187d+4*t16*t17*t57*t58-6.684773146106873d+4*t13*t1
6078     7         7*t57*t58-1.2154132992921589d+2*t36*t40*t57-1.45849595915
6079     8         05908d+3*t30*t37*t38*t57-2.1877439387258865d+3*t30*t34*t3
6080     9         8*t57+2.9169919183011817d+3*t30*t31*t38*t57+3.64623989787
6081     :         6477d+3*t28*t30*t38*t57+2.4308265985843178d+2*t36*t37*t57
6082     ;         +3.646239897876477d+2*t34*t36*t57-3.646239897876477d+3*t2
6083     <         7*t34*t35*t57-4.8616531971686355d+3*t27*t31*t35*t57+6.077
6084     =         066496460795d+3*t27*t28*t35*t57+7.292479795752954d+3*t25*
6085     >         t27*t35*t57-7.292479795752954d+3*t24*t31*t32*t57-9.115599
6086     ?         744691192d+3*t24*t28*t32*t57+1.0938719693629431d+4*t24*t2
6087     @         5*t32*t57+1.2761839642567668d+4*t22*t24*t32*t57-1.2761839
6088     1         642567668d+4*t21*t28*t29*t57-1.5314207571081204d+4*t21*t2
6089     2         5*t29*t57+1.786657549959474d+4*t21*t22*t29*t57+2.04189434
6090     3         28108272d+4*t19*t21*t29*t57-2.0418943428108272d+4*t18*t25
6091     4         *t26*t57-2.3822100666126317d+4*t18*t22*t26*t57+2.72252579
6092     5         0414436d+4*t18*t19*t26*t57+3.062841514216241d+4*t16*t18*t
6093     6         26*t57-3.062841514216241d+4*t15*t22*t23*t57-3.50039030196
6094     7         14174d+4*t15*t19*t23*t57+3.9379390897065947d+4*t15*t16*t2
6095     8         3*t57+4.375487877451772d+4*t13*t15*t23*t57-4.375487877451
6096     9         772d+4*t12*t19*t20*t57-4.9224238621332433d+4*t12*t16*t20*
6097     :         t57+5.469359846814714d+4*t12*t13*t20*t57)-8.3679837782399
6098     ;         99d-5*t115*t56*t65*t88+1.4938079999999998d-2*t65*t66*t76*
6099     <         t77+1.24484d-2*t50*t72*t76+2.7893279260799997d-5*t112*t66
6100     =         *t68-9.2977597536d-5*t108*t56*t66-1.0d+0*t113*t5*t50*t65-
6101     >         9.305257363490997d-1*t109*t5*t64-1.2407009817987995d+0*t1
6102     ?         09*t4*t60-7.46904d-3*t105*t43*t50)*wght+Mmat3(iq,D3_RB_TB
6103     @         _TB)
6104            Mmat3(iq,D3_GBB_TA_TA) = Mmat3(iq,D3_GBB_TA_TA)
6105            Mmat3(iq,D3_GBB_TA_TB) = Mmat3(iq,D3_GBB_TA_TB)
6106            Mmat3(iq,D3_GBB_TB_TB) = (1.0d+0*t46*t5*(-1.5625201389756418
6107     1         d-7*t111*t44*t55*t88-1.5625201389756418d-7*gammabb*t110*t
6108     2         54*t88+3.347193511296d-4*t111*t44*t52*t88+8.3679837782399
6109     3         99d-5*t111*t44*t51*t88+1.673596755648d-4*gammabb*t110*t51
6110     4         *t88+1.673596755648d-4*gammabb*t110*t47*t88+5.57865585215
6111     5         9999d-5*t111*t55*t66+2.7893279260799997d-5*t111*t54*t66-2
6112     6         .9876159999999996d-2*t111*t52*t66-2.9876159999999996d-2*t
6113     7         111*t51*t66-6.250080555902569d-7*t111*t121*t52*t53-6.2500
6114     8         80555902569d-7*gammabb*t110*t121*t44*t51-6.25008055590256
6115     9         9d-7*t121*t47*t48/rhob**1.1333333333333334d+1)-1.56252013
6116     :         89756418d-7*t56*t85*t88-7.46904d-3*t107*t50*t77+2.7893279
6117     ;         260799997d-5*t108*t66*t76-1.86726d-3*t113*t50*t72+2.78932
6118     <         79260799997d-5*t115*t66*t71-9.305257363490997d-1*t109*t5*
6119     =         t69)*wght+Mmat3(iq,D3_GBB_TB_TB)
6120            Mmat3(iq,D3_TA_TA_TA) = Mmat3(iq,D3_TA_TA_TA)
6121            Mmat3(iq,D3_TA_TA_TB) = Mmat3(iq,D3_TA_TA_TB)
6122            Mmat3(iq,D3_TA_TB_TB) = Mmat3(iq,D3_TA_TB_TB)
6123            Mmat3(iq,D3_TB_TB_TB) = (-9.305257363490997d-1*t4*t5*(-4.8d+
6124     1         1*t33*t40*t9-2.88d+2*t33*t37*t9-4.32d+2*t33*t34*t9-1.92d+
6125     2         2*t31*t33*t9-3.4848d+4*t14*t6*t78-1.056d+4*t13*t14*t78-2.
6126     3         904d+4*t17*t58*t6-7.92d+3*t12*t20*t6-1.3728d+4*t10*t116*t
6127     4         6-7.92d+3*t16*t17*t58-2.64d+4*t13*t17*t58-4.8d+1*t36*t40-
6128     5         1.92d+2*t30*t37*t38-8.64d+2*t30*t34*t38-1.152d+3*t30*t31*
6129     6         t38-4.8d+2*t28*t30*t38-9.6d+1*t36*t37-4.8d+1*t34*t36-4.8d
6130     7         +2*t27*t34*t35-1.92d+3*t27*t31*t35-2.4d+3*t27*t28*t35-9.6
6131     8         d+2*t25*t27*t35-9.6d+2*t24*t31*t32-3.6d+3*t24*t28*t32-4.3
6132     9         2d+3*t24*t25*t32-1.68d+3*t22*t24*t32-1.68d+3*t21*t28*t29-
6133     :         6.048d+3*t21*t25*t29-7.056d+3*t21*t22*t29-2.688d+3*t19*t2
6134     ;         1*t29-2.688d+3*t18*t25*t26-9.408d+3*t18*t22*t26-1.0752d+4
6135     <         *t18*t19*t26-4.032d+3*t16*t18*t26-4.032d+3*t15*t22*t23-1.
6136     =         3824d+4*t15*t19*t23-1.5552d+4*t15*t16*t23-5.76d+3*t13*t15
6137     >         *t23-5.76d+3*t12*t19*t20-1.944d+4*t12*t16*t20-2.16d+4*t12
6138     ?         *t13*t20)+1.0d+0*t46*t5*(-3.1250402779512837d-7*t124*t44*
6139     @         t55*t88-3.1250402779512837d-7*gammabb*t125*t54*t88+1.0041
6140     1         580533887999d-3*t124*t44*t52*t88+5.020790266944d-4*gammab
6141     2         b*t125*t51*t88+1.6735967556479997d-4*t124*t55*t66-1.79256
6142     3         96d-1*t124*t52*t66-1.2500161111805136d-6*t121*t124*t52*t5
6143     4         3-1.2500161111805136d-6*gammabb*t121*t125*t44*t51-1.25001
6144     5         61111805136d-6*t121*t47*t48/rhob**1.0333333333333333d+1)-
6145     6         3.1250402779512837d-7*t56*t63*t88-1.120356d-2*t113*t50*t7
6146     7         7+8.367983778239998d-5*t115*t66*t76)*wght+Mmat3(iq,D3_TB_
6147     8         TB_TB)
6148          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
6149        endif ! ipol.eq.1
6150      enddo ! iq
6151      end
6152C> @}
6153