1C> \ingroup nwxc
2C> @{
3C>
4C> \file nwxcm_c_opt.F
5C> The nwxcm_c_opt functional
6C>
7C> @}
8C>
9C> \ingroup nwxc_priv
10C> @{
11C>
12C> \brief Evaluate the nwxcm_c_opt functional [1]
13C>
14C> \f{eqnarray*}{
15C>   {\it t_1} &=& \rho_\alpha^{0.3333333333333333}\\\\
16C>   {\it t_2} &=& \sqrt{{\it t_1}}\\\\
17C>   {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\
18C>   {\it t_4} &=& {{1}\over{{\it t_1}}}\\\\
19C>   {\it t_5} &=& \log \left({{1.269642451250142\,{\it t_2}}
20C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
21C>    \left(0.02414199311453321\,{\it t_3}+0.10186556948\right)\,{
22C>    \it t_3}+0.22308199064\right)\,{\it t_3}+0.47231125998}}
23C>    +1.0\right)\\\\
24C>   {\it t_6} &=& 0.1325688999052018\,{\it t_4}+1.0\\\\
25C>   {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_2}}
26C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
27C>    \left(0.01321299881039884\,{\it t_3}+0.029729725188\right)
28C>    \,{\it t_3}+0.12236585478\right)\,{\it t_3}+0.3497952466}}
29C>    +1.0\right)\\\\
30C>   {\it t_8} &=& 0.06901399211255826\,{\it t_4}+1.0\\\\
31C>   {\it t_9} &=& 0.5848223622634643\,\left(0.0337738\,{\it t_7}
32C>    \,{\it t_8}+1.0\,\left(1.709920934161365\,\left(0.0621814\,{
33C>    \it t_5}\,{\it t_6}-0.0310907\,\log \left({{1.269642451250142
34C>    \,{\it t_2}}\over{0.7876233178997433\,\left(0.7876233178997433
35C>    \,\left(0.01530901310039024\,{\it t_3}+0.10465751434\right)
36C>    \,{\it t_3}+0.19269083139\right)\,{\it t_3}+0.43896648423}}
37C>    +1.0\right)\,\left(0.1274696188700087\,{\it t_4}
38C>    +1.0\right)\right)-0.0337738\,{\it t_7}\,{\it t_8}\right)\right)
39C>    -0.0621814\,{\it t_5}\,{\it t_6}\\\\
40C>   {\it t_{10}} &=& \rho_\beta^{0.3333333333333333}\\\\
41C>   {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\
42C>   {\it t_{12}} &=& {{1}\over{{\it t_{11}}}}\\\\
43C>   {\it t_{13}} &=& {{1}\over{{\it t_{10}}}}\\\\
44C>   {\it t_{14}} &=& \log \left({{1.269642451250142\,{
45C>    \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433
46C>    \,\left(0.02414199311453321\,{\it t_{12}}+0.10186556948\right)
47C>    \,{\it t_{12}}+0.22308199064\right)\,{\it t_{12}}
48C>    +0.47231125998}}+1.0\right)\\\\
49C>   {\it t_{15}} &=& 0.1325688999052018\,{\it t_{13}}+1.0\\\\
50C>   {\it t_{16}} &=& \log \left({{1.269642451250142\,{
51C>    \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433
52C>    \,\left(0.01321299881039884\,{\it t_{12}}
53C>    +0.029729725188\right)\,{\it t_{12}}+0.12236585478\right)\,{
54C>    \it t_{12}}+0.3497952466}}+1.0\right)\\\\
55C>   {\it t_{17}} &=& 0.06901399211255826\,{\it t_{13}}+1.0\\\\
56C>   {\it t_{18}} &=& 0.5848223622634643\,\left(0.0337738\,{
57C>    \it t_{16}}\,{\it t_{17}}+1.0\,\left(1.709920934161365\,
58C>    \left(0.0621814\,{\it t_{14}}\,{\it t_{15}}-0.0310907
59C>    \,\log \left({{1.269642451250142\,{\it t_{11}}}
60C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
61C>    \left(0.01530901310039024\,{\it t_{12}}+0.10465751434\right)
62C>    \,{\it t_{12}}+0.19269083139\right)\,{\it t_{12}}
63C>    +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{
64C>    \it t_{13}}+1.0\right)\right)-0.0337738\,{\it t_{16}}\,{
65C>    \it t_{17}}\right)\right)-0.0621814\,{\it t_{14}}\,{
66C>    \it t_{15}}\\\\
67C>   {\it t_{19}} &=& \rho_\beta+\rho_\alpha\\\\
68C>   {\it t_{20}} &=& {\it t_{19}}^{0.3333333333333333}\\\\
69C>   {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\
70C>   {\it t_{22}} &=& 0.1325688999052018\,{\it t_{21}}+1.0\\\\
71C>   {\it t_{23}} &=& \sqrt{{\it t_{20}}}\\\\
72C>   {\it t_{24}} &=& {{1}\over{{\it t_{23}}}}\\\\
73C>   {\it t_{25}} &=& \log \left({{1.269642451250142\,{
74C>    \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\,
75C>    \left(0.7876233178997433\,{\it t_{24}}\,
76C>    \left(0.02414199311453321\,{\it t_{24}}+0.10186556948\right)
77C>    +0.22308199064\right)+0.47231125998}}+1.0\right)\\\\
78C>   {\it t_{26}} &=& \rho_\alpha-\rho_\beta\\\\
79C>   {\it t_{27}} &=& {{1}\over{{\it t_{19}}}}\\\\
80C>   {\it t_{28}} &=& 1.0-{\it t_{26}}\,{\it t_{27}}\\\\
81C>   {\it t_{29}} &=& {\it t_{26}}\,{\it t_{27}}+1.0\\\\
82C>   {\it t_{30}} &=& 0.06901399211255826\,{\it t_{21}}+1.0\\\\
83C>   {\it t_{31}} &=& \log \left({{1.269642451250142\,{
84C>    \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\,
85C>    \left(0.7876233178997433\,{\it t_{24}}\,
86C>    \left(0.01321299881039884\,{\it t_{24}}+0.029729725188\right)
87C>    +0.12236585478\right)+0.3497952466}}+1.0\right)\\\\
88C>   {\it t_{32}} &=& 0.5848223622634648\,\left(1.923661050931536
89C>    \,{\it t_{29}}^{{{4}\over{3}}}+1.923661050931536\,{
90C>    \it t_{28}}^{{{4}\over{3}}}-3.847322101863072\right)\,
91C>    \left({{{\it t_{26}}^4\,\left(1.709920934161365\,
92C>    \left(0.0621814\,{\it t_{22}}\,{\it t_{25}}-0.0310907\,
93C>    \left(0.1274696188700087\,{\it t_{21}}+1.0\right)\,\log
94C>    \left({{1.269642451250142\,{\it t_{23}}}
95C>    \over{0.7876233178997433\,{\it t_{24}}\,
96C>    \left(0.7876233178997433\,{\it t_{24}}\,
97C>    \left(0.01530901310039024\,{\it t_{24}}+0.10465751434\right)
98C>    +0.19269083139\right)+0.43896648423}}+1.0\right)\right)
99C>    -0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)}\over{{
100C>    \it t_{19}}^4}}+0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)
101C>    -0.0621814\,{\it t_{22}}\,{\it t_{25}}\\\\
102C>   {\it t_{33}} &=& {{1}\over{
103C>    \left(\rho_\alpha^{1.166666666666667}\right)^{2.0}}}\\\\
104C>   {\it t_{34}} &=& {{1}\over{e^{80.85523023512745\,{\it t_9}}}}
105C>    -1.0\\\\
106C>   {\it t_{35}} &=& {{0.2717804421747981\,{\it t_{33}}\,
107C>    \sigma_{\alpha\alpha}}\over{{\it t_{34}}}}\\\\
108C>   {\it t_{36}} &=& {{1}\over{
109C>    \left(\rho_\beta^{1.166666666666667}\right)^{2.0}}}\\\\
110C>   {\it t_{37}} &=& {{1}\over{e^{80.85523023512745\,{\it t_{18}}}}}
111C>    -1.0\\\\
112C>   {\it t_{38}} &=& {{0.2717804421747981\,{\it t_{36}}\,
113C>    \sigma_{\beta\beta}}\over{{\it t_{37}}}}\\\\
114C>   {\it t_{39}} &=& 0.5\,{\it t_{29}}^{{{2}\over{3}}}+0.5\,{
115C>    \it t_{28}}^{{{2}\over{3}}}\\\\
116C>   {\it t_{40}} &=& {\it t_{39}}^{3.0}\\\\
117C>   {\it t_{41}} &=& {{1}\over{\left({
118C>    \it t_{19}}^{1.166666666666667}\right)^{2.0}}}\\\\
119C>   {\it t_{42}} &=& {{1}\over{{\it t_{39}}^{2.0}}}\\\\
120C>   {\it t_{43}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta}
121C>    +\sigma_{\alpha\alpha}\\\\
122C>   {\it t_{44}} &=& {{1}\over{e^{{{40.42761511756372\,{
123C>    \it t_{32}}}\over{{\it t_{40}}}}}}}-1.0\\\\
124C>   {\it t_{45}} &=& {{0.1712109500228822\,{\it t_{41}}\,{
125C>    \it t_{42}}\,{\it t_{43}}}\over{{\it t_{44}}}}\\\\
126C>   f &=& 0.02473556743557577\,{\it t_{19}}\,{\it t_{40}}
127C>    \,\log \left({{0.1712109500228822\,{\it t_{41}}\,{\it t_{42}}
128C>    \,{\it t_{43}}\,\left({\it t_{45}}+1.0\right)}
129C>    \over{{{0.02931318940773787\,\left({\it t_{41}}\,{
130C>    \it t_{43}}\right)^{2.0}}\over{{\it t_{39}}^{4.0}\,{
131C>    \it t_{44}}^{2.0}}}+{\it t_{45}}+1.0}}+1.0\right)
132C>    -0.01236778371778788\,\rho_\beta\,\log
133C>    \left({{0.2717804421747981\,{\it t_{36}}\,\sigma_{\beta\beta}
134C>    \,\left({\it t_{38}}+1.0\right)}\over{{{0.0738646087487288
135C>    \,\left({\it t_{36}}\,\sigma_{\beta\beta}\right)^{2.0}}
136C>    \over{{\it t_{37}}^{2.0}}}+{\it t_{38}}+1.0}}+1.0\right)
137C>    -0.01236778371778788\,\rho_\alpha\,\log
138C>    \left({{0.2717804421747981\,{\it t_{33}}\,
139C>    \sigma_{\alpha\alpha}\,\left({\it t_{35}}+1.0\right)}
140C>    \over{{{0.0738646087487288\,\left({\it t_{33}}\,
141C>    \sigma_{\alpha\alpha}\right)^{2.0}}\over{{\it t_{34}}^{2.0}}}
142C>    +{\it t_{35}}+1.0}}+1.0\right)+1.0\,{\it t_{19}}\,{\it t_{32}}
143C>    -1.0\,{\it t_{18}}\,\rho_\beta-1.0\,{\it t_9}\,\rho_\alpha\\\\
144C>   g &=& 0\\\\
145C>   G &=& 0.0\\\\
146C> \f}
147C>
148C> Code generated with Maxima 5.34.0 [2]
149C> driven by autoxc [3].
150C>
151C> ### References ###
152C>
153C> [1] NC Handy, AJ Cohen, Mol.Phys. 99, 607 (2001)  , DOI:
154C> <a href="https://doi.org/10.1080/00268970010023435 ">
155C> 10.1080/00268970010023435 </a>
156C>
157C> [2] Maxima, a computer algebra system,
158C> <a href="http://maxima.sourceforge.net/">
159C> http://maxima.sourceforge.net/</a>
160C>
161C> [3] autoxc, revision 27097 2015-05-08
162C>
163      subroutine nwxcm_c_opt(param,tol_rho,ipol,nq,wght,
164     +rho,rgamma,fnc,Amat,Cmat)
165c $Id: $
166#ifdef NWXC_QUAD_PREC
167      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
168      integer, parameter :: rk=selected_real_kind(30)
169#else
170      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
171      integer, parameter :: rk=selected_real_kind(15)
172#endif
173#include "nwxc_param.fh"
174      double precision param(*)     !< [Input] Parameters of functional
175      double precision tol_rho      !< [Input] The lower limit on the density
176      integer ipol                  !< [Input] The number of spin channels
177      integer nq                    !< [Input] The number of points
178      double precision wght         !< [Input] The weight of the functional
179      double precision rho(nq,*)    !< [Input] The density
180      double precision rgamma(nq,*) !< [Input] The norm of the density
181                                    !< gradients
182      double precision fnc(nq)      !< [Output] The value of the functional
183c
184c     Sampling Matrices for the XC Kernel
185c
186      double precision Amat(nq,*)   !< [Output] The derivative wrt rho
187      double precision Cmat(nq,*)   !< [Output] The derivative wrt rgamma
188      integer iq
189      double precision tmp
190      double precision rhoa,rhob
191      double precision gammaaa,gammaab,gammabb
192      double precision taua,taub
193      double precision nwxcm_heaviside
194      external         nwxcm_heaviside
195CDIR$ NOVECTOR
196      do iq = 1, nq
197        if (ipol.eq.1) then
198          rhoa    = 0.5d0*rho(iq,R_T)
199          gammaaa = 0.25d0*rgamma(iq,G_TT)
200          if (rhoa.gt.tol_rho) then
201            t1 = rhoa**3.333333333333333d-1
202            t2 = t1**5.0d-1
203            t3 = 1/t2
204            t4 = 1.530901310039024d-2*t3+1.0465751434d-1
205            t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1
206            t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1
207            t7 = 1/t6
208            t8 = 1.269642451250142d+0*t2*t7+1.0d+0
209            t9 = log(t8)
210            t10 = 1/t1
211            t11 = 1.2746961887000874d-1*t10+1.0d+0
212            t12 = 2.4141993114533214d-2*t3+1.0186556948d-1
213            t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1
214            t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1
215            t15 = 1/t14
216            t16 = 1.269642451250142d+0*t15*t2+1.0d+0
217            t17 = log(t16)
218            t18 = 1.325688999052018d-1*t10+1.0d+0
219            t19 = 1.3212998810398843d-2*t3+2.9729725188d-2
220            t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1
221            t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1
222            t22 = 1/t21
223            t23 = 1.269642451250142d+0*t2*t22+1.0d+0
224            t24 = log(t23)
225            t25 = 6.901399211255826d-2*t10+1.0d+0
226            t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
227     1         21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3
228     2         .37738d-2*t24*t25)-6.21814d-2*t17*t18
229            t27 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3*
230     1         (7.016926042943223d-1*(2.150807071909054d-2*t3+1.01865569
231     2         48d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0)
232            t28 = 1.0522000558389215d-1*t10+1.0d+0
233            t29 = rhoa**1.1666666666666667d+0
234            t30 = 1/t29**2.0d+0
235            t31 = exp(-8.085523023512745d+1*t26)
236            t32 = t31-1.0d+0
237            t33 = 1/t32
238            t34 = 2.7178044217479813d-1*gammaaa*t30*t33
239            t35 = t34+1.0d+0
240            t36 = (gammaaa*t30)**2.0d+0
241            t37 = 1/t32**2.0d+0
242            t38 = 7.38646087487288d-2*t36*t37+t34+1.0d+0
243            t39 = 1/t38
244            t40 = 2.7178044217479813d-1*gammaaa*t30*t35*t39+1.0d+0
245            t41 = log(t40)
246            t42 = exp(2.5138457066712766d+0*t27*t28)-1.0d+0
247            t43 = 1.35890221087399d-1*gammaaa*t30/t42
248            t44 = 2.1508070719090538d-2*t3+1.0186556948d-1
249            t45 = 7.016926042943222d-1*t3*t44+2.2308199064d-1
250            t46 = 7.016926042943222d-1*t3*t45+4.7231125998d-1
251            t47 = 1/t46
252            t48 = 1.425125466450768d+0*t2*t47+1.0d+0
253            t49 = log(t48)
254            t50 = 1.0522000558389213d-1*t10+1.0d+0
255            t51 = 1/rhoa**1.3333333333333333d+0
256            t52 = 1/rhoa**1.3333333333333336d+0
257            t53 = 1/t2**3
258            t54 = 1/rhoa**6.666666666666667d-1
259            t55 = 1.090454542535705d-3*t49*t51-6.21814d-2*t50*(1.1876045
260     1         553756398d-1*t3*t47*t54-1.425125466450768d+0*t2*(7.016926
261     2         042943222d-1*t3*(-5.847438369119352d-2*t44*t53*t54-1.2576
262     3         711796854242d-3*t52)-5.847438369119352d-2*t45*t53*t54)/t4
263     4         6**2)/t48
264            t56 = 1/t16
265            t57 = 2.11607075208357d-1*t15*t3*t54-1.269642451250142d+0*t2
266     1         *(7.876233178997433d-1*t3*(-1.3127055298329054d-1*t12*t53
267     2         *t54-3.169132786263567d-3*t52)-1.3127055298329054d-1*t13*
268     3         t53*t54)/t14**2
269            t58 = 1/t23
270            t59 = 2.11607075208357d-1*t22*t3*t54-1.269642451250142d+0*t2
271     1         *(7.876233178997433d-1*t3*(-1.3127055298329054d-1*t19*t53
272     2         *t54-1.7344776604086162d-3*t52)-1.3127055298329054d-1*t20
273     3         *t53*t54)/t21**2
274            t60 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1.
275     1         3210398931339265d-3*t51*t9-3.10907d-2*t11*(2.116070752083
276     2         57d-1*t3*t54*t7-1.269642451250142d+0*t2*(7.87623317899743
277     3         3d-1*t3*(-1.3127055298329054d-1*t4*t53*t54-2.009622615316
278     4         6658d-3*t52)-1.3127055298329054d-1*t5*t53*t54)/t6**2)/t8+
279     5         6.21814d-2*t18*t56*t57-2.747773264188438d-3*t17*t51)-3.37
280     6         738d-2*t25*t58*t59+7.769549222703733d-4*t24*t51)+3.37738d
281     7         -2*t25*t58*t59-7.769549222703733d-4*t24*t51)-6.21814d-2*t
282     8         18*t56*t57+2.747773264188438d-3*t17*t51
283            t61 = 1/t40
284            t62 = rhoa**1.6666666666666674d-1
285            t63 = 1/t29**3.0d+0
286            t64 = -6.34154365074529d-1*gammaaa*t33*t62*t63
287            t65 = 2.1974870225448048d+1*gammaaa*t30*t31*t60/t32**2
288            t66 = 1/t38**2
289            t67 = gammaaa**2
290            t68 = 1/t29**5.0d+0
291            t69 = exp(2.5138457066712766d+0*t49*t50)
292            t70 = t69-1.0d+0
293            t71 = 1/t70
294            t72 = 1.3589022108739904d-1*gammaaa*t30*t71
295            t73 = t72+1.0d+0
296            t74 = 1/t70**2.0d+0
297            t75 = 1.8466152187182186d-2*t36*t74+t72+1.0d+0
298            t76 = 1/t75
299            t77 = 1.3589022108739904d-1*gammaaa*t30*t73*t76+1.0d+0
300            t78 = 1/t77
301            t79 = -1.585385912686322d-1*gammaaa*t62*t63*t71
302            t80 = 5.493717556362009d+0*gammaaa*t30*t55*t69/t70**2
303            t81 = 1/t75**2
304            t82 = 1/t29**4.0d+0
305            fnc(iq) = (4.947113487115154d-2*rhoa*log(1.35890221087399d-1
306     1         *gammaaa*t30*(t43+1.0d+0)/(t43+1.8466152187182178d-2*t36/
307     2         t42**2.0d+0+1.0d+0)+1.0d+0)-2.4735567435575762d-2*rhoa*t4
308     3         1-1.243628d-1*rhoa*t27*t28-2.0d+0*rhoa*t26)*wght+fnc(iq)
309            Amat(iq,D1_RA) = (4.947113487115154d-2*rhoa*t78*(-1.35890221
310     1         08739904d-1*gammaaa*t30*t73*(t80+t79-4.308768843675843d-2
311     2         *t62*t67*t68*t74+1.4930849866515178d+0*t36*t55*t69/t70**3
312     3         .0d+0)*t81+1.3589022108739904d-1*gammaaa*t30*t76*(t80+t79
313     4         )-1.585385912686322d-1*gammaaa*t62*t63*t73*t76)+2.4735567
314     5         43557577d-2*log(t77)-1.2367783717787881d-2*rhoa*t61*(-2.7
315     6         178044217479813d-1*gammaaa*t30*t35*t66*(-3.44701507494067
316     7         75d-1*t37*t62*t67*t68+t65+t64+1.1944679893212153d+1*t31*t
317     8         36*t60/t32**3.0d+0)+2.7178044217479813d-1*gammaaa*t30*t39
318     9         *(t65+t64)-6.34154365074529d-1*gammaaa*t35*t39*t62*t63)-1
319     :         .0d+0*rhoa*t60+2.0d+0*rhoa*t55-6.21814d-2*t49*t50-1.23677
320     ;         83717787881d-2*t41-1.0d+0*t26)*wght+Amat(iq,D1_RA)
321            Cmat(iq,D1_GAA) = (4.947113487115154d-2*rhoa*t78*(-1.3589022
322     1         108739904d-1*gammaaa*t30*t73*t81*(9.233076093591093d-3*ga
323     2         mmaaa*t74*t82+3.397255527184976d-2*t30*t71)+4.61653804679
324     3         55464d-3*gammaaa*t71*t76*t82+3.397255527184976d-2*t30*t73
325     4         *t76)-1.2367783717787881d-2*rhoa*t61*(-2.7178044217479813
326     5         d-1*gammaaa*t30*t35*t66*(1.477292174974576d-1*gammaaa*t37
327     6         *t82+2.7178044217479813d-1*t30*t33)+7.386460874872879d-2*
328     7         gammaaa*t33*t39*t82+2.7178044217479813d-1*t30*t35*t39))*w
329     8         ght+Cmat(iq,D1_GAA)
330            Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t78*(-1.35890221
331     1         08739904d-1*gammaaa*t30*t73*t81*(1.8466152187182186d-2*ga
332     2         mmaaa*t74*t82+6.794511054369952d-2*t30*t71)+9.23307609359
333     3         1093d-3*gammaaa*t71*t76*t82+6.794511054369952d-2*t30*t73*
334     4         t76)*wght+Cmat(iq,D1_GAB)
335          endif ! rhoa.gt.tol_rho
336        else  ! ipol.eq.1
337          rhoa    = rho(iq,R_A)
338          rhob    = rho(iq,R_B)
339          gammaaa = rgamma(iq,G_AA)
340          gammaab = rgamma(iq,G_AB)
341          gammabb = rgamma(iq,G_BB)
342          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
343            t1 = rhoa**3.333333333333333d-1
344            t2 = t1**5.0d-1
345            t3 = 1/t2
346            t4 = 1.530901310039024d-2*t3+1.0465751434d-1
347            t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1
348            t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1
349            t7 = 1/t6
350            t8 = 1.269642451250142d+0*t2*t7+1.0d+0
351            t9 = log(t8)
352            t10 = 1/t1
353            t11 = 1.2746961887000874d-1*t10+1.0d+0
354            t12 = 2.4141993114533214d-2*t3+1.0186556948d-1
355            t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1
356            t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1
357            t15 = 1/t14
358            t16 = 1.269642451250142d+0*t15*t2+1.0d+0
359            t17 = log(t16)
360            t18 = 1.325688999052018d-1*t10+1.0d+0
361            t19 = 1.3212998810398843d-2*t3+2.9729725188d-2
362            t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1
363            t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1
364            t22 = 1/t21
365            t23 = 1.269642451250142d+0*t2*t22+1.0d+0
366            t24 = log(t23)
367            t25 = 6.901399211255826d-2*t10+1.0d+0
368            t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
369     1         21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3
370     2         .37738d-2*t24*t25)-6.21814d-2*t17*t18
371            t27 = rhoa**1.1666666666666667d+0
372            t28 = 1/t27**2.0d+0
373            t29 = exp(-8.085523023512745d+1*t26)
374            t30 = t29-1.0d+0
375            t31 = 1/t30
376            t32 = 2.7178044217479813d-1*gammaaa*t28*t31
377            t33 = t32+1.0d+0
378            t34 = (gammaaa*t28)**2.0d+0
379            t35 = 1/t30**2.0d+0
380            t36 = 7.38646087487288d-2*t34*t35+t32+1.0d+0
381            t37 = 1/t36
382            t38 = 2.7178044217479813d-1*gammaaa*t28*t33*t37+1.0d+0
383            t39 = log(t38)
384            t40 = rhob**3.333333333333333d-1
385            t41 = t40**5.0d-1
386            t42 = 1/t41
387            t43 = 1.530901310039024d-2*t42+1.0465751434d-1
388            t44 = 7.876233178997433d-1*t42*t43+1.9269083139d-1
389            t45 = 7.876233178997433d-1*t42*t44+4.3896648423d-1
390            t46 = 1/t45
391            t47 = 1.269642451250142d+0*t41*t46+1.0d+0
392            t48 = log(t47)
393            t49 = 1/t40
394            t50 = 1.2746961887000874d-1*t49+1.0d+0
395            t51 = 2.4141993114533214d-2*t42+1.0186556948d-1
396            t52 = 7.876233178997433d-1*t42*t51+2.2308199064d-1
397            t53 = 7.876233178997433d-1*t42*t52+4.7231125998d-1
398            t54 = 1/t53
399            t55 = 1.269642451250142d+0*t41*t54+1.0d+0
400            t56 = log(t55)
401            t57 = 1.325688999052018d-1*t49+1.0d+0
402            t58 = 1.3212998810398843d-2*t42+2.9729725188d-2
403            t59 = 7.876233178997433d-1*t42*t58+1.2236585478d-1
404            t60 = 7.876233178997433d-1*t42*t59+3.497952466d-1
405            t61 = 1/t60
406            t62 = 1.269642451250142d+0*t41*t61+1.0d+0
407            t63 = log(t62)
408            t64 = 6.901399211255826d-2*t49+1.0d+0
409            t65 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
410     1         21814d-2*t56*t57-3.10907d-2*t48*t50)-3.37738d-2*t63*t64)+
411     2         3.37738d-2*t63*t64)-6.21814d-2*t56*t57
412            t66 = rhob+rhoa
413            t67 = t66**3.333333333333333d-1
414            t68 = 1/t67
415            t69 = 1.325688999052018d-1*t68+1.0d+0
416            t70 = t67**5.0d-1
417            t71 = 1/t70
418            t72 = 2.4141993114533214d-2*t71+1.0186556948d-1
419            t73 = 7.876233178997433d-1*t71*t72+2.2308199064d-1
420            t74 = 7.876233178997433d-1*t71*t73+4.7231125998d-1
421            t75 = 1/t74
422            t76 = 1.269642451250142d+0*t70*t75+1.0d+0
423            t77 = log(t76)
424            t78 = rhoa-rhob
425            t79 = 1/t66
426            t80 = 1.0d+0-t78*t79
427            t81 = t78*t79+1.0d+0
428            t82 = 1.923661050931536d+0*t81**1.3333333333333333d+0+1.9236
429     1         61050931536d+0*t80**1.3333333333333333d+0-3.8473221018630
430     2         72d+0
431            t83 = 6.901399211255826d-2*t68+1.0d+0
432            t84 = 1.3212998810398843d-2*t71+2.9729725188d-2
433            t85 = 7.876233178997433d-1*t71*t84+1.2236585478d-1
434            t86 = 7.876233178997433d-1*t71*t85+3.497952466d-1
435            t87 = 1/t86
436            t88 = 1.269642451250142d+0*t70*t87+1.0d+0
437            t89 = log(t88)
438            t90 = t78**4
439            t91 = 1/t66**4
440            t92 = 1.2746961887000874d-1*t68+1.0d+0
441            t93 = 1.530901310039024d-2*t71+1.0465751434d-1
442            t94 = 7.876233178997433d-1*t71*t93+1.9269083139d-1
443            t95 = 7.876233178997433d-1*t71*t94+4.3896648423d-1
444            t96 = 1/t95
445            t97 = 1.269642451250142d+0*t70*t96+1.0d+0
446            t98 = log(t97)
447            t99 = 1.709920934161365d+0*(6.21814d-2*t69*t77-3.10907d-2*t9
448     1         2*t98)-3.37738d-2*t83*t89
449            t100 = t90*t91*t99+3.37738d-2*t83*t89
450            t101 = 5.848223622634648d-1*t100*t82-6.21814d-2*t69*t77
451            t102 = rhob**1.1666666666666667d+0
452            t103 = 1/t102**2.0d+0
453            t104 = exp(-8.085523023512745d+1*t65)
454            t105 = t104-1.0d+0
455            t106 = 1/t105
456            t107 = 2.7178044217479813d-1*gammabb*t103*t106
457            t108 = t107+1.0d+0
458            t109 = (gammabb*t103)**2.0d+0
459            t110 = 1/t105**2.0d+0
460            t111 = 7.38646087487288d-2*t109*t110+t107+1.0d+0
461            t112 = 1/t111
462            t113 = 2.7178044217479813d-1*gammabb*t103*t108*t112+1.0d+0
463            t114 = log(t113)
464            t115 = 5.0d-1*t81**6.666666666666666d-1+5.0d-1*t80**6.666666
465     1         666666666d-1
466            t116 = t115**3.0d+0
467            t117 = gammabb+2.0d+0*gammaab+gammaaa
468            t118 = t66**1.1666666666666667d+0
469            t119 = 1/t118**2.0d+0
470            t120 = t115**2.0d+0
471            t121 = 1/t120
472            t122 = 1/t116
473            t123 = exp(-4.042761511756372d+1*t101*t122)
474            t124 = t123-1.0d+0
475            t125 = 1/t124
476            t126 = 1.7121095002288222d-1*t117*t119*t121*t125
477            t127 = t126+1.0d+0
478            t128 = 1/t115**4.0d+0
479            t129 = (t117*t119)**2.0d+0
480            t130 = 1/t124**2.0d+0
481            t131 = 2.931318940773787d-2*t128*t129*t130+t126+1.0d+0
482            t132 = 1/t131
483            t133 = 1.7121095002288222d-1*t117*t119*t121*t127*t132+1.0d+0
484            t134 = log(t133)
485            t135 = 1/rhoa**1.3333333333333333d+0
486            t136 = 1/rhoa**1.3333333333333336d+0
487            t137 = 1/t2**3
488            t138 = 1/rhoa**6.666666666666667d-1
489            t139 = 1/t16
490            t140 = 2.11607075208357d-1*t138*t15*t3-1.269642451250142d+0*
491     1         t2*(7.876233178997433d-1*(-1.3127055298329054d-1*t12*t137
492     2         *t138-3.169132786263567d-3*t136)*t3-1.3127055298329054d-1
493     3         *t13*t137*t138)/t14**2
494            t141 = 1/t23
495            t142 = 2.11607075208357d-1*t138*t22*t3-1.269642451250142d+0*
496     1         t2*(7.876233178997433d-1*(-1.3127055298329054d-1*t137*t13
497     2         8*t19-1.7344776604086162d-3*t136)*t3-1.3127055298329054d-
498     3         1*t137*t138*t20)/t21**2
499            t143 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1
500     1         .3210398931339265d-3*t135*t9-3.10907d-2*t11*(2.1160707520
501     2         8357d-1*t138*t3*t7-1.269642451250142d+0*t2*(7.87623317899
502     3         7433d-1*t3*(-1.3127055298329054d-1*t137*t138*t4-2.0096226
503     4         153166658d-3*t136)-1.3127055298329054d-1*t137*t138*t5)/t6
504     5         **2)/t8+6.21814d-2*t139*t140*t18-2.747773264188438d-3*t13
505     6         5*t17)-3.37738d-2*t141*t142*t25+7.769549222703733d-4*t135
506     7         *t24)+3.37738d-2*t141*t142*t25-7.769549222703733d-4*t135*
507     8         t24)-6.21814d-2*t139*t140*t18+2.747773264188438d-3*t135*t
508     9         17
509            t144 = 1/t38
510            t145 = rhoa**1.6666666666666674d-1
511            t146 = 1/t27**3.0d+0
512            t147 = -6.34154365074529d-1*gammaaa*t145*t146*t31
513            t148 = 2.1974870225448048d+1*gammaaa*t143*t28*t29/t30**2
514            t149 = 1/t36**2
515            t150 = 1/t66**1.3333333333333336d+0
516            t151 = 1/t66**6.666666666666667d-1
517            t152 = 1/t70**3
518            t153 = 2.11607075208357d-1*t151*t71*t75-1.269642451250142d+0
519     1         *t70*(7.876233178997433d-1*t71*(-1.3127055298329054d-1*t1
520     2         51*t152*t72-3.169132786263567d-3*t150)-1.3127055298329054
521     3         d-1*t151*t152*t73)/t74**2
522            t154 = 1/t76
523            t155 = -6.21814d-2*t153*t154*t69
524            t156 = 1/t66**1.3333333333333333d+0
525            t157 = 2.747773264188438d-3*t156*t77
526            t158 = 2.11607075208357d-1*t151*t71*t87-1.269642451250142d+0
527     1         *t70*(7.876233178997433d-1*t71*(-1.3127055298329054d-1*t1
528     2         51*t152*t84-1.7344776604086162d-3*t150)-1.312705529832905
529     3         4d-1*t151*t152*t85)/t86**2
530            t159 = 1/t88
531            t160 = 3.37738d-2*t158*t159*t83
532            t161 = -7.769549222703733d-4*t156*t89
533            t162 = t90*t91*(1.709920934161365d+0*(1.3210398931339265d-3*
534     1         t156*t98-3.10907d-2*t92*(2.11607075208357d-1*t151*t71*t96
535     2         -1.269642451250142d+0*t70*(7.876233178997433d-1*t71*(-1.3
536     3         127055298329054d-1*t151*t152*t93-2.0096226153166658d-3*t1
537     4         50)-1.3127055298329054d-1*t151*t152*t94)/t95**2)/t97-2.74
538     5         7773264188438d-3*t156*t77+6.21814d-2*t153*t154*t69)+7.769
539     6         549222703733d-4*t156*t89-3.37738d-2*t158*t159*t83)
540            t163 = -4*t90*t99/t66**5
541            t164 = t78**3
542            t165 = 1/t66**2
543            t166 = t165*t78
544            t167 = -t79
545            t168 = t167+t166
546            t169 = t80**3.333333333333333d-1
547            t170 = -t165*t78
548            t171 = t79+t170
549            t172 = t81**3.333333333333333d-1
550            t173 = 5.848223622634648d-1*t82*(4*t164*t91*t99+t163+t162+t1
551     1         61+t160)+5.848223622634648d-1*t100*(2.564881401242048d+0*
552     2         t171*t172+2.564881401242048d+0*t168*t169)+t157+t155
553            t174 = 1.0d+0*t101
554            t175 = 1/t133
555            t176 = 1/t169
556            t177 = 1/t172
557            t178 = 3.333333333333333d-1*t171*t177+3.333333333333333d-1*t
558     1         168*t176
559            t179 = t66**1.6666666666666674d-1
560            t180 = 1/t118**3.0d+0
561            t181 = -3.994922167200585d-1*t117*t121*t127*t132*t179*t180
562            t182 = -3.4242190004576445d-1*t117*t119*t122*t125*t178
563            t183 = -3.994922167200585d-1*t117*t121*t125*t179*t180
564            t184 = 1/t124**2
565            t185 = 1.2128284535269115d+2*t101*t128*t178-4.04276151175637
566     1         2d+1*t122*t173
567            t186 = -1.7121095002288222d-1*t117*t119*t121*t123*t184*t185
568            t187 = 1/t131**2
569            t188 = -1.3679488390277675d-1*t117**2*t128*t130*t179/t118**5
570     1         .0d+0
571            t189 = 1/t115**5.0d+0
572            t190 = 1/t124**3.0d+0
573            t191 = 2.473556743557577d-2*t116*t134
574            t192 = 1/rhob**1.3333333333333333d+0
575            t193 = 1/rhob**1.3333333333333336d+0
576            t194 = 1/t41**3
577            t195 = 1/rhob**6.666666666666667d-1
578            t196 = 1/t55
579            t197 = 2.11607075208357d-1*t195*t42*t54-1.269642451250142d+0
580     1         *t41*(7.876233178997433d-1*t42*(-1.3127055298329054d-1*t1
581     2         94*t195*t51-3.169132786263567d-3*t193)-1.3127055298329054
582     3         d-1*t194*t195*t52)/t53**2
583            t198 = 1/t62
584            t199 = 2.11607075208357d-1*t195*t42*t61-1.269642451250142d+0
585     1         *t41*(7.876233178997433d-1*t42*(-1.3127055298329054d-1*t1
586     2         94*t195*t58-1.7344776604086162d-3*t193)-1.312705529832905
587     3         4d-1*t194*t195*t59)/t60**2
588            t200 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t198*t199*t
589     1         64+7.769549222703733d-4*t192*t63+1.709920934161365d+0*(6.
590     2         21814d-2*t196*t197*t57-2.747773264188438d-3*t192*t56-3.10
591     3         907d-2*(2.11607075208357d-1*t195*t42*t46-1.26964245125014
592     4         2d+0*t41*(7.876233178997433d-1*t42*(-1.3127055298329054d-
593     5         1*t194*t195*t43-2.0096226153166658d-3*t193)-1.31270552983
594     6         29054d-1*t194*t195*t44)/t45**2)*t50/t47+1.321039893133926
595     7         5d-3*t192*t48))+3.37738d-2*t198*t199*t64-7.76954922270373
596     8         3d-4*t192*t63)-6.21814d-2*t196*t197*t57+2.747773264188438
597     9         d-3*t192*t56
598            t201 = 1/t113
599            t202 = rhob**1.6666666666666674d-1
600            t203 = 1/t102**3.0d+0
601            t204 = -6.34154365074529d-1*gammabb*t106*t202*t203
602            t205 = 2.1974870225448048d+1*gammabb*t103*t104*t200/t105**2
603            t206 = 1/t111**2
604            t207 = t79+t166
605            t208 = t170+t167
606            t209 = 5.848223622634648d-1*t82*(-4*t164*t91*t99+t163+t162+t
607     1         161+t160)+5.848223622634648d-1*t100*(2.564881401242048d+0
608     2         *t172*t208+2.564881401242048d+0*t169*t207)+t157+t155
609            t210 = 3.333333333333333d-1*t177*t208+3.333333333333333d-1*t
610     1         176*t207
611            t211 = -3.4242190004576445d-1*t117*t119*t122*t125*t210
612            t212 = 1.2128284535269115d+2*t101*t128*t210-4.04276151175637
613     1         2d+1*t122*t209
614            t213 = -1.7121095002288222d-1*t117*t119*t121*t123*t184*t212
615            t214 = 1/t27**4.0d+0
616            t215 = 1/t118**4.0d+0
617            t216 = 2.473556743557577d-2*t116*t175*(-1.7121095002288222d-
618     1         1*t117*t119*t121*t127*t187*(5.862637881547574d-2*t117*t12
619     2         8*t130*t215+1.7121095002288222d-1*t119*t121*t125)+2.93131
620     3         8940773787d-2*t117*t125*t128*t132*t215+1.7121095002288222
621     4         d-1*t119*t121*t127*t132)*t66
622            t217 = 1/t102**4.0d+0
623            fnc(iq) = (2.473556743557577d-2*t116*t134*t66+1.0d+0*t101*t6
624     1         6-1.0d+0*rhob*t65-1.2367783717787881d-2*rhoa*t39-1.0d+0*r
625     2         hoa*t26-1.2367783717787881d-2*rhob*t114)*wght+fnc(iq)
626            Amat(iq,D1_RA) = (2.473556743557577d-2*t116*t175*(-1.7121095
627     1         002288222d-1*t117*t119*t121*t127*t187*(-5.862637881547574
628     2         d-2*t123*t128*t129*t185*t190-1.172527576309515d-1*t129*t1
629     3         30*t178*t189+t188+t186+t183+t182)+1.7121095002288222d-1*t
630     4         117*t119*t121*t132*(t186+t183+t182)+t181-3.42421900045764
631     5         45d-1*t117*t119*t122*t127*t132*t178)*t66+7.42067023067273
632     6         1d-2*t120*t134*t178*t66+1.0d+0*t173*t66-1.236778371778788
633     7         1d-2*t39-1.2367783717787881d-2*rhoa*t144*(-6.341543650745
634     8         29d-1*gammaaa*t145*t146*t33*t37+2.7178044217479813d-1*gam
635     9         maaa*(t148+t147)*t28*t37-2.7178044217479813d-1*gammaaa*t1
636     :         49*t28*t33*(-3.4470150749406775d-1*gammaaa**2*t145*t35/t2
637     ;         7**5.0d+0+1.1944679893212153d+1*t143*t29*t34/t30**3.0d+0+
638     <         t148+t147))-1.0d+0*t26+t191+t174-1.0d+0*rhoa*t143)*wght+A
639     =         mat(iq,D1_RA)
640            Amat(iq,D1_RB) = (2.473556743557577d-2*t116*t175*(-1.7121095
641     1         002288222d-1*t117*t119*t121*t127*t187*(t213-5.86263788154
642     2         7574d-2*t123*t128*t129*t190*t212+t211-1.172527576309515d-
643     3         1*t129*t130*t189*t210+t188+t183)+1.7121095002288222d-1*t1
644     4         17*t119*t121*t132*(t213+t211+t183)-3.4242190004576445d-1*
645     5         t117*t119*t122*t127*t132*t210+t181)*t66+7.420670230672731
646     6         d-2*t120*t134*t210*t66+1.0d+0*t209*t66-1.0d+0*t65-1.23677
647     7         83717787881d-2*rhob*t201*(-2.7178044217479813d-1*gammabb*
648     8         t103*t108*(t205+t204-3.4470150749406775d-1*gammabb**2*t11
649     9         0*t202/t102**5.0d+0+1.1944679893212153d+1*t104*t109*t200/
650     :         t105**3.0d+0)*t206+2.7178044217479813d-1*gammabb*t103*t11
651     ;         2*(t205+t204)-6.34154365074529d-1*gammabb*t108*t112*t202*
652     <         t203)-1.0d+0*rhob*t200+t191+t174-1.2367783717787881d-2*t1
653     =         14)*wght+Amat(iq,D1_RB)
654            Cmat(iq,D1_GAA) = (t216-1.2367783717787881d-2*rhoa*t144*(2.7
655     1         178044217479813d-1*t28*t33*t37+7.386460874872879d-2*gamma
656     2         aa*t214*t31*t37-2.7178044217479813d-1*gammaaa*t149*t28*t3
657     3         3*(1.477292174974576d-1*gammaaa*t214*t35+2.71780442174798
658     4         13d-1*t28*t31)))*wght+Cmat(iq,D1_GAA)
659            Cmat(iq,D1_GAB) = 2.473556743557577d-2*t116*t175*(-1.7121095
660     1         002288222d-1*t117*t119*t121*t127*t187*(1.172527576309515d
661     2         -1*t117*t128*t130*t215+3.4242190004576445d-1*t119*t121*t1
662     3         25)+5.862637881547574d-2*t117*t125*t128*t132*t215+3.42421
663     4         90004576445d-1*t119*t121*t127*t132)*t66*wght+Cmat(iq,D1_G
664     5         AB)
665            Cmat(iq,D1_GBB) = (t216-1.2367783717787881d-2*rhob*t201*(-2.
666     1         7178044217479813d-1*gammabb*t103*t108*t206*(1.47729217497
667     2         4576d-1*gammabb*t110*t217+2.7178044217479813d-1*t103*t106
668     3         )+7.386460874872879d-2*gammabb*t106*t112*t217+2.717804421
669     4         7479813d-1*t103*t108*t112))*wght+Cmat(iq,D1_GBB)
670          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
671            fnc(iq) = fnc(iq)
672            Amat(iq,D1_RA) = Amat(iq,D1_RA)
673            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)
674          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
675            fnc(iq) = fnc(iq)
676            Amat(iq,D1_RB) = Amat(iq,D1_RB)
677            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)
678          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
679        endif ! ipol.eq.1
680      enddo ! iq
681      end
682C>
683C> \brief Evaluate the nwxcm_c_opt functional [1]
684C>
685C> \f{eqnarray*}{
686C>   {\it t_1} &=& \rho_\alpha^{0.3333333333333333}\\\\
687C>   {\it t_2} &=& \sqrt{{\it t_1}}\\\\
688C>   {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\
689C>   {\it t_4} &=& {{1}\over{{\it t_1}}}\\\\
690C>   {\it t_5} &=& \log \left({{1.269642451250142\,{\it t_2}}
691C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
692C>    \left(0.02414199311453321\,{\it t_3}+0.10186556948\right)\,{
693C>    \it t_3}+0.22308199064\right)\,{\it t_3}+0.47231125998}}
694C>    +1.0\right)\\\\
695C>   {\it t_6} &=& 0.1325688999052018\,{\it t_4}+1.0\\\\
696C>   {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_2}}
697C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
698C>    \left(0.01321299881039884\,{\it t_3}+0.029729725188\right)
699C>    \,{\it t_3}+0.12236585478\right)\,{\it t_3}+0.3497952466}}
700C>    +1.0\right)\\\\
701C>   {\it t_8} &=& 0.06901399211255826\,{\it t_4}+1.0\\\\
702C>   {\it t_9} &=& 0.5848223622634643\,\left(0.0337738\,{\it t_7}
703C>    \,{\it t_8}+1.0\,\left(1.709920934161365\,\left(0.0621814\,{
704C>    \it t_5}\,{\it t_6}-0.0310907\,\log \left({{1.269642451250142
705C>    \,{\it t_2}}\over{0.7876233178997433\,\left(0.7876233178997433
706C>    \,\left(0.01530901310039024\,{\it t_3}+0.10465751434\right)
707C>    \,{\it t_3}+0.19269083139\right)\,{\it t_3}+0.43896648423}}
708C>    +1.0\right)\,\left(0.1274696188700087\,{\it t_4}
709C>    +1.0\right)\right)-0.0337738\,{\it t_7}\,{\it t_8}\right)\right)
710C>    -0.0621814\,{\it t_5}\,{\it t_6}\\\\
711C>   {\it t_{10}} &=& \rho_\beta^{0.3333333333333333}\\\\
712C>   {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\
713C>   {\it t_{12}} &=& {{1}\over{{\it t_{11}}}}\\\\
714C>   {\it t_{13}} &=& {{1}\over{{\it t_{10}}}}\\\\
715C>   {\it t_{14}} &=& \log \left({{1.269642451250142\,{
716C>    \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433
717C>    \,\left(0.02414199311453321\,{\it t_{12}}+0.10186556948\right)
718C>    \,{\it t_{12}}+0.22308199064\right)\,{\it t_{12}}
719C>    +0.47231125998}}+1.0\right)\\\\
720C>   {\it t_{15}} &=& 0.1325688999052018\,{\it t_{13}}+1.0\\\\
721C>   {\it t_{16}} &=& \log \left({{1.269642451250142\,{
722C>    \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433
723C>    \,\left(0.01321299881039884\,{\it t_{12}}
724C>    +0.029729725188\right)\,{\it t_{12}}+0.12236585478\right)\,{
725C>    \it t_{12}}+0.3497952466}}+1.0\right)\\\\
726C>   {\it t_{17}} &=& 0.06901399211255826\,{\it t_{13}}+1.0\\\\
727C>   {\it t_{18}} &=& 0.5848223622634643\,\left(0.0337738\,{
728C>    \it t_{16}}\,{\it t_{17}}+1.0\,\left(1.709920934161365\,
729C>    \left(0.0621814\,{\it t_{14}}\,{\it t_{15}}-0.0310907
730C>    \,\log \left({{1.269642451250142\,{\it t_{11}}}
731C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
732C>    \left(0.01530901310039024\,{\it t_{12}}+0.10465751434\right)
733C>    \,{\it t_{12}}+0.19269083139\right)\,{\it t_{12}}
734C>    +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{
735C>    \it t_{13}}+1.0\right)\right)-0.0337738\,{\it t_{16}}\,{
736C>    \it t_{17}}\right)\right)-0.0621814\,{\it t_{14}}\,{
737C>    \it t_{15}}\\\\
738C>   {\it t_{19}} &=& \rho_\beta+\rho_\alpha\\\\
739C>   {\it t_{20}} &=& {\it t_{19}}^{0.3333333333333333}\\\\
740C>   {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\
741C>   {\it t_{22}} &=& 0.1325688999052018\,{\it t_{21}}+1.0\\\\
742C>   {\it t_{23}} &=& \sqrt{{\it t_{20}}}\\\\
743C>   {\it t_{24}} &=& {{1}\over{{\it t_{23}}}}\\\\
744C>   {\it t_{25}} &=& \log \left({{1.269642451250142\,{
745C>    \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\,
746C>    \left(0.7876233178997433\,{\it t_{24}}\,
747C>    \left(0.02414199311453321\,{\it t_{24}}+0.10186556948\right)
748C>    +0.22308199064\right)+0.47231125998}}+1.0\right)\\\\
749C>   {\it t_{26}} &=& \rho_\alpha-\rho_\beta\\\\
750C>   {\it t_{27}} &=& {{1}\over{{\it t_{19}}}}\\\\
751C>   {\it t_{28}} &=& 1.0-{\it t_{26}}\,{\it t_{27}}\\\\
752C>   {\it t_{29}} &=& {\it t_{26}}\,{\it t_{27}}+1.0\\\\
753C>   {\it t_{30}} &=& 0.06901399211255826\,{\it t_{21}}+1.0\\\\
754C>   {\it t_{31}} &=& \log \left({{1.269642451250142\,{
755C>    \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\,
756C>    \left(0.7876233178997433\,{\it t_{24}}\,
757C>    \left(0.01321299881039884\,{\it t_{24}}+0.029729725188\right)
758C>    +0.12236585478\right)+0.3497952466}}+1.0\right)\\\\
759C>   {\it t_{32}} &=& 0.5848223622634648\,\left(1.923661050931536
760C>    \,{\it t_{29}}^{{{4}\over{3}}}+1.923661050931536\,{
761C>    \it t_{28}}^{{{4}\over{3}}}-3.847322101863072\right)\,
762C>    \left({{{\it t_{26}}^4\,\left(1.709920934161365\,
763C>    \left(0.0621814\,{\it t_{22}}\,{\it t_{25}}-0.0310907\,
764C>    \left(0.1274696188700087\,{\it t_{21}}+1.0\right)\,\log
765C>    \left({{1.269642451250142\,{\it t_{23}}}
766C>    \over{0.7876233178997433\,{\it t_{24}}\,
767C>    \left(0.7876233178997433\,{\it t_{24}}\,
768C>    \left(0.01530901310039024\,{\it t_{24}}+0.10465751434\right)
769C>    +0.19269083139\right)+0.43896648423}}+1.0\right)\right)
770C>    -0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)}\over{{
771C>    \it t_{19}}^4}}+0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)
772C>    -0.0621814\,{\it t_{22}}\,{\it t_{25}}\\\\
773C>   {\it t_{33}} &=& {{1}\over{
774C>    \left(\rho_\alpha^{1.166666666666667}\right)^{2.0}}}\\\\
775C>   {\it t_{34}} &=& {{1}\over{e^{80.85523023512745\,{\it t_9}}}}
776C>    -1.0\\\\
777C>   {\it t_{35}} &=& {{0.2717804421747981\,{\it t_{33}}\,
778C>    \sigma_{\alpha\alpha}}\over{{\it t_{34}}}}\\\\
779C>   {\it t_{36}} &=& {{1}\over{
780C>    \left(\rho_\beta^{1.166666666666667}\right)^{2.0}}}\\\\
781C>   {\it t_{37}} &=& {{1}\over{e^{80.85523023512745\,{\it t_{18}}}}}
782C>    -1.0\\\\
783C>   {\it t_{38}} &=& {{0.2717804421747981\,{\it t_{36}}\,
784C>    \sigma_{\beta\beta}}\over{{\it t_{37}}}}\\\\
785C>   {\it t_{39}} &=& 0.5\,{\it t_{29}}^{{{2}\over{3}}}+0.5\,{
786C>    \it t_{28}}^{{{2}\over{3}}}\\\\
787C>   {\it t_{40}} &=& {\it t_{39}}^{3.0}\\\\
788C>   {\it t_{41}} &=& {{1}\over{\left({
789C>    \it t_{19}}^{1.166666666666667}\right)^{2.0}}}\\\\
790C>   {\it t_{42}} &=& {{1}\over{{\it t_{39}}^{2.0}}}\\\\
791C>   {\it t_{43}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta}
792C>    +\sigma_{\alpha\alpha}\\\\
793C>   {\it t_{44}} &=& {{1}\over{e^{{{40.42761511756372\,{
794C>    \it t_{32}}}\over{{\it t_{40}}}}}}}-1.0\\\\
795C>   {\it t_{45}} &=& {{0.1712109500228822\,{\it t_{41}}\,{
796C>    \it t_{42}}\,{\it t_{43}}}\over{{\it t_{44}}}}\\\\
797C>   f &=& 0.02473556743557577\,{\it t_{19}}\,{\it t_{40}}
798C>    \,\log \left({{0.1712109500228822\,{\it t_{41}}\,{\it t_{42}}
799C>    \,{\it t_{43}}\,\left({\it t_{45}}+1.0\right)}
800C>    \over{{{0.02931318940773787\,\left({\it t_{41}}\,{
801C>    \it t_{43}}\right)^{2.0}}\over{{\it t_{39}}^{4.0}\,{
802C>    \it t_{44}}^{2.0}}}+{\it t_{45}}+1.0}}+1.0\right)
803C>    -0.01236778371778788\,\rho_\beta\,\log
804C>    \left({{0.2717804421747981\,{\it t_{36}}\,\sigma_{\beta\beta}
805C>    \,\left({\it t_{38}}+1.0\right)}\over{{{0.0738646087487288
806C>    \,\left({\it t_{36}}\,\sigma_{\beta\beta}\right)^{2.0}}
807C>    \over{{\it t_{37}}^{2.0}}}+{\it t_{38}}+1.0}}+1.0\right)
808C>    -0.01236778371778788\,\rho_\alpha\,\log
809C>    \left({{0.2717804421747981\,{\it t_{33}}\,
810C>    \sigma_{\alpha\alpha}\,\left({\it t_{35}}+1.0\right)}
811C>    \over{{{0.0738646087487288\,\left({\it t_{33}}\,
812C>    \sigma_{\alpha\alpha}\right)^{2.0}}\over{{\it t_{34}}^{2.0}}}
813C>    +{\it t_{35}}+1.0}}+1.0\right)+1.0\,{\it t_{19}}\,{\it t_{32}}
814C>    -1.0\,{\it t_{18}}\,\rho_\beta-1.0\,{\it t_9}\,\rho_\alpha\\\\
815C>   g &=& 0\\\\
816C>   G &=& 0.0\\\\
817C> \f}
818C>
819C> Code generated with Maxima 5.34.0 [2]
820C> driven by autoxc [3].
821C>
822C> ### References ###
823C>
824C> [1] NC Handy, AJ Cohen, Mol.Phys. 99, 607 (2001)  , DOI:
825C> <a href="https://doi.org/10.1080/00268970010023435 ">
826C> 10.1080/00268970010023435 </a>
827C>
828C> [2] Maxima, a computer algebra system,
829C> <a href="http://maxima.sourceforge.net/">
830C> http://maxima.sourceforge.net/</a>
831C>
832C> [3] autoxc, revision 27097 2015-05-08
833C>
834      subroutine nwxcm_c_opt_d2(param,tol_rho,ipol,nq,wght,
835     +rho,rgamma,fnc,Amat,Amat2,Cmat,Cmat2)
836c $Id: $
837#ifdef NWXC_QUAD_PREC
838      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
839      integer, parameter :: rk=selected_real_kind(30)
840#else
841      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
842      integer, parameter :: rk=selected_real_kind(15)
843#endif
844#include "nwxc_param.fh"
845      double precision param(*)     !< [Input] Parameters of functional
846      double precision tol_rho      !< [Input] The lower limit on the density
847      integer ipol                  !< [Input] The number of spin channels
848      integer nq                    !< [Input] The number of points
849      double precision wght         !< [Input] The weight of the functional
850      double precision rho(nq,*)    !< [Input] The density
851      double precision rgamma(nq,*) !< [Input] The norm of the density
852                                    !< gradients
853      double precision fnc(nq)      !< [Output] The value of the functional
854c
855c     Sampling Matrices for the XC Kernel
856c
857      double precision Amat(nq,*)   !< [Output] The derivative wrt rho
858      double precision Cmat(nq,*)   !< [Output] The derivative wrt rgamma
859c
860c     Sampling Matrices for the XC Kernel
861c
862      double precision Amat2(nq,*)  !< [Output] The 2nd derivative wrt rho
863      double precision Cmat2(nq,*)  !< [Output] The 2nd derivative wrt rgamma
864                                    !< and possibly rho
865      integer iq
866      double precision tmp
867      double precision rhoa,rhob
868      double precision gammaaa,gammaab,gammabb
869      double precision taua,taub
870      double precision nwxcm_heaviside
871      external         nwxcm_heaviside
872CDIR$ NOVECTOR
873      do iq = 1, nq
874        if (ipol.eq.1) then
875          rhoa    = 0.5d0*rho(iq,R_T)
876          gammaaa = 0.25d0*rgamma(iq,G_TT)
877          if (rhoa.gt.tol_rho) then
878            t1 = rhoa**3.333333333333333d-1
879            t2 = t1**5.0d-1
880            t3 = 1/t2
881            t4 = 1.530901310039024d-2*t3+1.0465751434d-1
882            t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1
883            t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1
884            t7 = 1/t6
885            t8 = 1.269642451250142d+0*t2*t7+1.0d+0
886            t9 = log(t8)
887            t10 = 1/t1
888            t11 = 1.2746961887000874d-1*t10+1.0d+0
889            t12 = 2.4141993114533214d-2*t3+1.0186556948d-1
890            t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1
891            t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1
892            t15 = 1/t14
893            t16 = 1.269642451250142d+0*t15*t2+1.0d+0
894            t17 = log(t16)
895            t18 = 1.325688999052018d-1*t10+1.0d+0
896            t19 = 1.3212998810398843d-2*t3+2.9729725188d-2
897            t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1
898            t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1
899            t22 = 1/t21
900            t23 = 1.269642451250142d+0*t2*t22+1.0d+0
901            t24 = log(t23)
902            t25 = 6.901399211255826d-2*t10+1.0d+0
903            t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
904     1         21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3
905     2         .37738d-2*t24*t25)-6.21814d-2*t17*t18
906            t27 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3*
907     1         (7.016926042943223d-1*(2.150807071909054d-2*t3+1.01865569
908     2         48d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0)
909            t28 = 1.0522000558389215d-1*t10+1.0d+0
910            t29 = rhoa**1.1666666666666667d+0
911            t30 = 1/t29**2.0d+0
912            t31 = exp(-8.085523023512745d+1*t26)
913            t32 = t31-1.0d+0
914            t33 = 1/t32
915            t34 = 2.7178044217479813d-1*gammaaa*t30*t33
916            t35 = t34+1.0d+0
917            t36 = (gammaaa*t30)**2.0d+0
918            t37 = 1/t32**2.0d+0
919            t38 = 7.38646087487288d-2*t36*t37+t34+1.0d+0
920            t39 = 1/t38
921            t40 = 2.7178044217479813d-1*gammaaa*t30*t35*t39+1.0d+0
922            t41 = log(t40)
923            t42 = exp(2.5138457066712766d+0*t27*t28)-1.0d+0
924            t43 = 1.35890221087399d-1*gammaaa*t30/t42
925            t44 = 2.1508070719090538d-2*t3+1.0186556948d-1
926            t45 = 7.016926042943222d-1*t3*t44+2.2308199064d-1
927            t46 = 7.016926042943222d-1*t3*t45+4.7231125998d-1
928            t47 = 1/t46
929            t48 = 1.425125466450768d+0*t2*t47+1.0d+0
930            t49 = log(t48)
931            t50 = 1.0522000558389213d-1*t10+1.0d+0
932            t51 = 1/rhoa**1.3333333333333333d+0
933            t52 = 1/t48
934            t53 = 1/t46**2
935            t54 = 1/rhoa**1.3333333333333336d+0
936            t55 = 1/t2**3
937            t56 = 1/rhoa**6.666666666666667d-1
938            t57 = -5.847438369119352d-2*t44*t55*t56-1.2576711796854242d-
939     1         3*t54
940            t58 = 7.016926042943222d-1*t3*t57-5.847438369119352d-2*t45*t
941     1         55*t56
942            t59 = 1.1876045553756398d-1*t3*t47*t56-1.425125466450768d+0*
943     1         t2*t53*t58
944            t60 = 1.090454542535705d-3*t49*t51-6.21814d-2*t50*t52*t59
945            t61 = 1/t8
946            t62 = 1/t6**2
947            t63 = -1.3127055298329054d-1*t4*t55*t56-2.0096226153166658d-
948     1         3*t54
949            t64 = 7.876233178997433d-1*t3*t63-1.3127055298329054d-1*t5*t
950     1         55*t56
951            t65 = 2.11607075208357d-1*t3*t56*t7-1.269642451250142d+0*t2*
952     1         t62*t64
953            t66 = 1/t16
954            t67 = 1/t14**2
955            t68 = -1.3127055298329054d-1*t12*t55*t56-3.169132786263567d-
956     1         3*t54
957            t69 = 7.876233178997433d-1*t3*t68-1.3127055298329054d-1*t13*
958     1         t55*t56
959            t70 = 2.11607075208357d-1*t15*t3*t56-1.269642451250142d+0*t2
960     1         *t67*t69
961            t71 = 1/t23
962            t72 = 1/t21**2
963            t73 = -1.3127055298329054d-1*t19*t55*t56-1.7344776604086162d
964     1         -3*t54
965            t74 = 7.876233178997433d-1*t3*t73-1.3127055298329054d-1*t20*
966     1         t55*t56
967            t75 = 2.11607075208357d-1*t22*t3*t56-1.269642451250142d+0*t2
968     1         *t72*t74
969            t76 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1.
970     1         3210398931339265d-3*t51*t9+6.21814d-2*t18*t66*t70-3.10907
971     2         d-2*t11*t61*t65-2.747773264188438d-3*t17*t51)-3.37738d-2*
972     3         t25*t71*t75+7.769549222703733d-4*t24*t51)+3.37738d-2*t25*
973     4         t71*t75-7.769549222703733d-4*t24*t51)-6.21814d-2*t18*t66*
974     5         t70+2.747773264188438d-3*t17*t51
975            t77 = 1/t40
976            t78 = rhoa**1.6666666666666674d-1
977            t79 = 1/t29**3.0d+0
978            t80 = -6.34154365074529d-1*gammaaa*t33*t78*t79
979            t81 = 1/t32**2
980            t82 = 2.1974870225448048d+1*gammaaa*t30*t31*t76*t81
981            t83 = t82+t80
982            t84 = 1/t38**2
983            t85 = gammaaa**2
984            t86 = 1/t29**5.0d+0
985            t87 = 1/t32**3.0d+0
986            t88 = 1.1944679893212153d+1*t31*t36*t76*t87-3.44701507494067
987     1         75d-1*t37*t78*t85*t86+t82+t80
988            t89 = -2.7178044217479813d-1*gammaaa*t30*t35*t84*t88+2.71780
989     1         44217479813d-1*gammaaa*t30*t39*t83-6.34154365074529d-1*ga
990     2         mmaaa*t35*t39*t78*t79
991            t90 = exp(2.5138457066712766d+0*t49*t50)
992            t91 = t90-1.0d+0
993            t92 = 1/t91
994            t93 = 1.3589022108739904d-1*gammaaa*t30*t92
995            t94 = t93+1.0d+0
996            t95 = 1/t91**2.0d+0
997            t96 = 1.8466152187182186d-2*t36*t95+t93+1.0d+0
998            t97 = 1/t96
999            t98 = 1.3589022108739904d-1*gammaaa*t30*t94*t97+1.0d+0
1000            t99 = 1/t98
1001            t100 = -1.585385912686322d-1*gammaaa*t78*t79*t92
1002            t101 = 1/t91**2
1003            t102 = 5.493717556362009d+0*gammaaa*t101*t30*t60*t90
1004            t103 = t102+t100
1005            t104 = 1/t96**2
1006            t105 = 1/t91**3.0d+0
1007            t106 = -4.308768843675843d-2*t78*t85*t86*t95+1.4930849866515
1008     1         178d+0*t105*t36*t60*t90+t102+t100
1009            t107 = -1.585385912686322d-1*gammaaa*t78*t79*t94*t97+1.35890
1010     1         22108739904d-1*gammaaa*t103*t30*t97-1.3589022108739904d-1
1011     2         *gammaaa*t104*t106*t30*t94
1012            t108 = log(t98)
1013            t109 = 1/t29**4.0d+0
1014            t110 = 1.477292174974576d-1*gammaaa*t109*t37+2.7178044217479
1015     1         813d-1*t30*t33
1016            t111 = -2.7178044217479813d-1*gammaaa*t110*t30*t35*t84+2.717
1017     1         8044217479813d-1*t30*t35*t39+7.386460874872879d-2*gammaaa
1018     2         *t109*t33*t39
1019            t112 = 9.233076093591093d-3*gammaaa*t109*t95+3.3972555271849
1020     1         76d-2*t30*t92
1021            t113 = 3.397255527184976d-2*t30*t94*t97+4.6165380467955464d-
1022     1         3*gammaaa*t109*t92*t97-1.3589022108739904d-1*gammaaa*t104
1023     2         *t112*t30*t94
1024            t114 = 1.8466152187182186d-2*gammaaa*t109*t95+6.794511054369
1025     1         952d-2*t30*t92
1026            t115 = 6.794511054369952d-2*t30*t94*t97+9.233076093591093d-3
1027     1         *gammaaa*t109*t92*t97-1.3589022108739904d-1*gammaaa*t104*
1028     2         t114*t30*t94
1029            t116 = 2.0d+0*t60
1030            t117 = 1/rhoa**2.333333333333333d+0
1031            t118 = -7.269696950238034d-4*t117*t49
1032            t119 = log(1.425125466450768d+0*t2/(7.016926042943222d-1*t3*
1033     1         (7.016926042943222d-1*(1.1771443702974158d-2*t3+2.9729725
1034     2         188d-2)*t3+1.2236585478d-1)+3.497952466d-1)+1.0d+0)
1035            t120 = 5.477644184000001d-2*t10+1.0d+0
1036            t121 = 1/rhoa**2
1037            t122 = 2.18090908507141d-3*t51*t52*t59
1038            t123 = 6.21814d-2*t50*t59**2/t48**2
1039            t124 = 1/rhoa**2.3333333333333334d+0
1040            t125 = 1/rhoa**1.6666666666666669d+0
1041            t126 = 1/t2**5
1042            t127 = -6.21814d-2*t50*t52*(2.850250932901536d+0*t2*t58**2/t
1043     1         46**3-2.3752091107512796d-1*t3*t53*t56*t58-1.425125466450
1044     2         768d+0*t2*t53*(-1.1694876738238703d-1*t55*t56*t57+7.01692
1045     3         6042943222d-1*t3*(1.949146123039784d-2*t125*t44*t55+1.461
1046     4         8595922798375d-2*t126*t44*t54+9.432533847640683d-4*t124)+
1047     5         1.949146123039784d-2*t125*t45*t55+1.4618595922798375d-2*t
1048     6         126*t45*t54)-9.896704628130328d-3*t47*t54*t55-3.958681851
1049     7         2521327d-2*t125*t3*t47)
1050            t128 = t127+t123+t122+8.443450000000001d-3*t119*t120*t121+t1
1051     1         18
1052            t129 = 1/t16**2
1053            t130 = t70**2
1054            t131 = 2.539284902500284d+0*t2*t69**2/t14**3-4.2321415041671
1055     1         4d-1*t3*t56*t67*t69-1.269642451250142d+0*t2*t67*(-2.62541
1056     2         1059665811d-1*t55*t56*t68+7.876233178997433d-1*t3*(8.7513
1057     3         70198886037d-2*t12*t125*t55+6.563527649164527d-2*t12*t126
1058     4         *t54+4.753699179395351d-3*t124)+8.751370198886037d-2*t125
1059     5         *t13*t55+6.563527649164527d-2*t126*t13*t54)-3.52678458680
1060     6         595d-2*t15*t54*t55-1.4107138347223802d-1*t125*t15*t3
1061            t132 = 1/t23**2
1062            t133 = t75**2
1063            t134 = 2.539284902500284d+0*t2*t74**2/t21**3-4.2321415041671
1064     1         4d-1*t3*t56*t72*t74-1.269642451250142d+0*t2*t72*(-2.62541
1065     2         1059665811d-1*t55*t56*t73+7.876233178997433d-1*t3*(8.7513
1066     3         70198886037d-2*t125*t19*t55+6.563527649164527d-2*t126*t19
1067     4         *t54+2.601716490612924d-3*t124)+8.751370198886037d-2*t125
1068     5         *t20*t55+6.563527649164527d-2*t126*t20*t54)-3.52678458680
1069     6         595d-2*t22*t54*t55-1.4107138347223802d-1*t125*t22*t3
1070            t135 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-
1071     1         1.7613865241785687d-3*t117*t9+3.10907d-2*t11*t65**2/t8**2
1072     2         -5.495546528376876d-3*t51*t66*t70-3.10907d-2*t11*t61*(-3.
1073     3         52678458680595d-2*t54*t55*t7-1.4107138347223802d-1*t125*t
1074     4         3*t7+2.539284902500284d+0*t2*t64**2/t6**3-4.2321415041671
1075     5         4d-1*t3*t56*t62*t64-1.269642451250142d+0*t2*t62*(-2.62541
1076     6         1059665811d-1*t55*t56*t63+7.876233178997433d-1*t3*(8.7513
1077     7         70198886037d-2*t125*t4*t55+6.563527649164527d-2*t126*t4*t
1078     8         54+3.0144339229749983d-3*t124)+8.751370198886037d-2*t125*
1079     9         t5*t55+6.563527649164527d-2*t126*t5*t54))+6.21814d-2*t131
1080     :         *t18*t66+2.642079786267853d-3*t51*t61*t65-6.21814d-2*t129
1081     ;         *t130*t18+3.663697685584584d-3*t117*t17)+1.55390984454074
1082     <         65d-3*t51*t71*t75-3.37738d-2*t134*t25*t71+3.37738d-2*t132
1083     =         *t133*t25-1.0359398963604977d-3*t117*t24)-1.5539098445407
1084     >         465d-3*t51*t71*t75+3.37738d-2*t134*t25*t71-3.37738d-2*t13
1085     ?         2*t133*t25+1.0359398963604977d-3*t117*t24)+5.495546528376
1086     @         876d-3*t51*t66*t70-6.21814d-2*t131*t18*t66+6.21814d-2*t12
1087     1         9*t130*t18-3.663697685584584d-3*t117*t17
1088            t136 = rhoa**3.333333333333335d-1
1089            t137 = 1/rhoa**8.333333333333333d-1
1090            t138 = t76**2
1091            t139 = exp(-1.617104604702549d+2*t26)
1092            t140 = 3.553566382931298d+3*gammaaa*t138*t139*t30/t32**3
1093            t141 = 2.2195402777608514d+0*gammaaa*t109*t136*t33
1094            t142 = -1.0569239417908823d-1*gammaaa*t137*t33*t79
1095            t143 = -1.0254939438542422d+2*gammaaa*t31*t76*t78*t79*t81
1096            t144 = -1.776783191465649d+3*gammaaa*t138*t30*t31*t81
1097            t145 = 2.1974870225448048d+1*gammaaa*t135*t30*t31*t81
1098            t146 = 1/t29**6.0d+0
1099            t147 = 1/t38**3
1100            t148 = 1/t40**2
1101            t149 = 1/t98**2
1102            t150 = -4.947113487115154d-2*rhoa*t107**2*t149
1103            t151 = 4.947113487115154d-2*t107
1104            t152 = 2.774425347201063d-1*gammaaa*t109*t136*t94*t97
1105            t153 = -1.321154927238602d-2*gammaaa*t137*t79*t94*t97
1106            t154 = -3.170771825372644d-1*gammaaa*t103*t78*t79*t97
1107            t155 = 3.170771825372644d-1*gammaaa*t104*t106*t78*t79*t94
1108            t156 = -2.717804421747981d-1*gammaaa*t103*t104*t106*t30
1109            t157 = 1/t96**3
1110            t158 = 2.717804421747981d-1*gammaaa*t106**2*t157*t30*t94
1111            t159 = 2.774425347201063d-1*gammaaa*t109*t136*t92
1112            t160 = -1.321154927238602d-2*gammaaa*t137*t79*t92
1113            t161 = 1.5098913454155444d-2*gammaaa*t121*t30*t92
1114            t162 = -1.281867429817802d+1*gammaaa*t101*t60*t78*t79*t90
1115            t163 = t60**2
1116            t164 = -2.2209789893320597d+2*gammaaa*t101*t163*t30*t90
1117            t165 = 4.189742844452126d-1*t121*t49*t50-4.042761511756372d+
1118     1         1*t128
1119            t166 = -1.3589022108739904d-1*gammaaa*t101*t165*t30*t90
1120            t167 = 1/t91**3
1121            t168 = exp(5.027691413342553d+0*t49*t50)
1122            t169 = 4.4419579786641195d+2*gammaaa*t163*t167*t168*t30
1123            t170 = 1.2567242460721215d-1*t136*t146*t85*t95
1124            t171 = -3.590640703063204d-3*t137*t85*t86*t95
1125            t172 = -6.967729937707083d+0*t105*t60*t78*t85*t86*t90
1126            t173 = 1.8108559553448098d+2*t163*t168*t36/t91**4.0d+0
1127            t174 = 1/rhoa
1128            t175 = t127+t123+t122-8.44345d-3*t119*t120*t121+t118
1129            t176 = -1.509891345415545d-2*gammaaa*t121*t30*t92
1130            t177 = -2.2209789893320595d+2*gammaaa*t101*t163*t30*t90
1131            t178 = -4.1897428444521273d-1*t121*t49*t50-4.042761511756372
1132     1         d+1*t175
1133            t179 = -1.3589022108739904d-1*gammaaa*t101*t178*t30*t90
1134            t180 = 4.441957978664119d+2*gammaaa*t163*t167*t168*t30
1135            t181 = -6.34154365074529d-1*t33*t78*t79
1136            t182 = 2.1974870225448048d+1*t30*t31*t76*t81
1137            t183 = -4.947113487115154d-2*rhoa*t107*t113*t149
1138            t184 = -3.9634647817158053d-2*t78*t79*t92
1139            t185 = 1.3734293890905022d+0*t101*t30*t60*t90
1140            t186 = (4.947113487115154d-2*rhoa*(-3.9634647817158053d-2*t7
1141     1         8*t79*t94*t97-5.385961054594804d-3*gammaaa*t78*t86*t92*t9
1142     2         7+1.3589022108739904d-1*gammaaa*(t185+t184)*t30*t97+3.397
1143     3         255527184976d-2*t103*t30*t97-1.3589022108739904d-1*gammaa
1144     4         a*t104*t30*t94*(-2.1543844218379216d-2*gammaaa*t78*t86*t9
1145     5         5+7.465424933257588d-1*gammaaa*t105*t109*t60*t90+t185+t18
1146     6         4)+1.585385912686322d-1*gammaaa*t104*t112*t78*t79*t94+2.7
1147     7         17804421747981d-1*gammaaa*t106*t112*t157*t30*t94-3.397255
1148     8         527184976d-2*t104*t106*t30*t94-4.6165380467955464d-3*gamm
1149     9         aaa*t104*t106*t109*t92-1.3589022108739904d-1*gammaaa*t103
1150     :         *t104*t112*t30)+2.473556743557577d-2*t113)*t99
1151            t187 = -7.926929563431611d-2*t78*t79*t92
1152            t188 = 2.7468587781810044d+0*t101*t30*t60*t90
1153            t189 = -4.947113487115154d-2*rhoa*t113**2*t149
1154            t190 = -6.794511054369952d-2*t104*t112*t30*t94
1155            t191 = -9.233076093591093d-3*gammaaa*t104*t109*t112*t92
1156            t192 = 4.947113487115154d-2*rhoa*(2.3082690233977732d-3*t109
1157     1         *t92*t97-3.136711879187181d-4*gammaaa*t104*t146*t94*t95+2
1158     2         .717804421747981d-1*gammaaa*t112**2*t157*t30*t94+t191+t19
1159     3         0)*t99
1160            fnc(iq) = (4.947113487115154d-2*rhoa*log(1.35890221087399d-1
1161     1         *gammaaa*t30*(t43+1.0d+0)/(t43+1.8466152187182178d-2*t36/
1162     2         t42**2.0d+0+1.0d+0)+1.0d+0)-2.4735567435575762d-2*rhoa*t4
1163     3         1-1.243628d-1*rhoa*t27*t28-2.0d+0*rhoa*t26)*wght+fnc(iq)
1164            Amat(iq,D1_RA) = (4.947113487115154d-2*rhoa*t107*t99-1.23677
1165     1         83717787881d-2*rhoa*t77*t89-1.0d+0*rhoa*t76+2.0d+0*rhoa*t
1166     2         60-6.21814d-2*t49*t50-1.2367783717787881d-2*t41-1.0d+0*t2
1167     3         6+2.473556743557577d-2*t108)*wght+Amat(iq,D1_RA)
1168            Cmat(iq,D1_GAA) = (4.947113487115154d-2*rhoa*t113*t99-1.2367
1169     1         783717787881d-2*rhoa*t111*t77)*wght+Cmat(iq,D1_GAA)
1170            Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t115*t99*wght+Cm
1171     1         at(iq,D1_GAB)
1172            Amat2(iq,D2_RA_RA) = ((4.947113487115154d-2*rhoa*(1.50989134
1173     1         54155444d-2*gammaaa*t121*t30*t94*t97+1.3589022108739904d-
1174     2         1*gammaaa*(t169+t166+t164+t162+t161+t160+t159)*t30*t97-1.
1175     3         3589022108739904d-1*gammaaa*t104*t30*t94*(4.1035893749293
1176     4         734d-3*t121*t36*t95-3.693230437436437d-2*t105*t165*t36*t9
1177     5         0-6.036186517816032d+1*t105*t163*t36*t90+t173+t172+t171+t
1178     6         170+t169+t166+t164+t162+t161+t160+t159)+t158+t156+t155+t1
1179     7         54+t153+t152)+t151)*t99+1.2367783717787881d-2*rhoa*t148*t
1180     8         89**2+t77*(-2.4735567435575762d-2*t89-1.2367783717787881d
1181     9         -2*rhoa*(5.435608843495963d-1*gammaaa*t147*t30*t35*t88**2
1182     :         -5.435608843495963d-1*gammaaa*t30*t83*t84*t88+1.268308730
1183     ;         149058d+0*gammaaa*t35*t78*t79*t84*t88-2.7178044217479813d
1184     <         -1*gammaaa*t30*t35*t84*(-1.1148367900331342d+2*t31*t76*t7
1185     =         8*t85*t86*t87-9.657898428505661d+2*t138*t31*t36*t87+1.194
1186     >         4679893212153d+1*t135*t31*t36*t87-5.745025124901132d-2*t1
1187     ?         37*t37*t85*t86+2.0107587937153953d+0*t136*t146*t37*t85+2.
1188     @         897369528551698d+3*t138*t139*t36/t32**4.0d+0+t145+t144+t1
1189     1         43+t142+t141+t140)-1.268308730149058d+0*gammaaa*t39*t78*t
1190     2         79*t83-1.0569239417908823d-1*gammaaa*t137*t35*t39*t79+2.2
1191     3         195402777608514d+0*gammaaa*t109*t136*t35*t39+2.7178044217
1192     4         479813d-1*gammaaa*(t145+t144+t143+t142+t141+t140)*t30*t39
1193     5         ))-2.0d+0*t76-8.245189145191921d-3*t108*t174+t150-1.0d+0*
1194     6         rhoa*t135+2.0d+0*rhoa*t128+t116)*wght+Amat2(iq,D2_RA_RA)
1195            Amat2(iq,D2_RA_RB) = ((4.947113487115154d-2*rhoa*(-1.5098913
1196     1         45415545d-2*gammaaa*t121*t30*t94*t97+1.3589022108739904d-
1197     2         1*gammaaa*(t180+t179+t177+t176+t162+t160+t159)*t30*t97-1.
1198     3         3589022108739904d-1*gammaaa*t104*t30*t94*(-4.103589374929
1199     4         3745d-3*t121*t36*t95-3.693230437436437d-2*t105*t178*t36*t
1200     5         90-6.036186517816031d+1*t105*t163*t36*t90+t180+t179+t177+
1201     6         t176+t173+t172+t171+t170+t162+t160+t159)+t158+t156+t155+t
1202     7         154+t153+t152)+t151)*t99+2.0d+0*rhoa*t175+8.2451891451919
1203     8         22d-3*t108*t174+t150+t116)*wght+Amat2(iq,D2_RA_RB)
1204            Cmat2(iq,D2_RA_GAA) = (1.2367783717787881d-2*rhoa*t111*t148*
1205     1         t89+t77*(-1.2367783717787881d-2*rhoa*(-2.7178044217479813
1206     2         d-1*t30*t35*t84*t88-7.386460874872879d-2*gammaaa*t109*t33
1207     3         *t84*t88+5.435608843495963d-1*gammaaa*t110*t147*t30*t35*t
1208     4         88-2.7178044217479813d-1*gammaaa*t30*t35*t84*(2.388935978
1209     5         6424305d+1*gammaaa*t109*t31*t76*t87-6.894030149881355d-1*
1210     6         gammaaa*t37*t78*t86+t182+t181)-1.7235075374703387d-1*gamm
1211     7         aaa*t33*t39*t78*t86-2.7178044217479813d-1*gammaaa*t110*t3
1212     8         0*t83*t84+6.34154365074529d-1*gammaaa*t110*t35*t78*t79*t8
1213     9         4+2.7178044217479813d-1*t30*t39*t83-6.34154365074529d-1*t
1214     :         35*t39*t78*t79+2.7178044217479813d-1*gammaaa*(t182+t181)*
1215     ;         t30*t39)-1.2367783717787881d-2*t111)+t186+t183)*wght+Cmat
1216     <         2(iq,D2_RA_GAA)
1217            Cmat2(iq,D2_RA_GAB) = ((4.947113487115154d-2*rhoa*(-7.926929
1218     1         563431611d-2*t78*t79*t94*t97-1.0771922109189608d-2*gammaa
1219     2         a*t78*t86*t92*t97+1.3589022108739904d-1*gammaaa*(t188+t18
1220     3         7)*t30*t97+6.794511054369952d-2*t103*t30*t97-1.3589022108
1221     4         739904d-1*gammaaa*t104*t30*t94*(-4.308768843675843d-2*gam
1222     5         maaa*t78*t86*t95+1.4930849866515178d+0*gammaaa*t105*t109*
1223     6         t60*t90+t188+t187)+1.585385912686322d-1*gammaaa*t104*t114
1224     7         *t78*t79*t94+2.717804421747981d-1*gammaaa*t106*t114*t157*
1225     8         t30*t94-6.794511054369952d-2*t104*t106*t30*t94-9.23307609
1226     9         3591093d-3*gammaaa*t104*t106*t109*t92-1.3589022108739904d
1227     :         -1*gammaaa*t103*t104*t114*t30)+2.473556743557577d-2*t115)
1228     ;         *t99-4.947113487115154d-2*rhoa*t107*t115*t149)*wght+Cmat2
1229     <         (iq,D2_RA_GAB)
1230            Cmat2(iq,D2_RA_GBB) = (t186+t183)*wght+Cmat2(iq,D2_RA_GBB)
1231            Cmat2(iq,D2_GAA_GAA) = (-1.2367783717787881d-2*rhoa*t77*(-4.
1232     1         014991205359595d-2*gammaaa*t146*t35*t37*t84-5.43560884349
1233     2         5963d-1*t110*t30*t35*t84-1.4772921749745757d-1*gammaaa*t1
1234     3         09*t110*t33*t84+1.4772921749745757d-1*t109*t33*t39+5.4356
1235     4         08843495963d-1*gammaaa*t110**2*t147*t30*t35)+t192+t189+1.
1236     5         2367783717787881d-2*rhoa*t111**2*t148)*wght+Cmat2(iq,D2_G
1237     6         AA_GAA)
1238            Cmat2(iq,D2_GAA_GAB) = (4.947113487115154d-2*rhoa*(4.6165380
1239     1         467955464d-3*t109*t92*t97-6.273423758374362d-4*gammaaa*t1
1240     2         04*t146*t94*t95+2.717804421747981d-1*gammaaa*t112*t114*t1
1241     3         57*t30*t94-3.397255527184976d-2*t104*t114*t30*t94-4.61653
1242     4         80467955464d-3*gammaaa*t104*t109*t114*t92+t191+t190)*t99-
1243     5         4.947113487115154d-2*rhoa*t113*t115*t149)*wght+Cmat2(iq,D
1244     6         2_GAA_GAB)
1245            Cmat2(iq,D2_GAA_GBB) = (t192+t189)*wght+Cmat2(iq,D2_GAA_GBB)
1246            Cmat2(iq,D2_GAB_GAB) = 4.947113487115154d-2*rhoa*(9.23307609
1247     1         3591093d-3*t109*t92*t97-1.2546847516748727d-3*gammaaa*t10
1248     2         4*t146*t94*t95+2.717804421747981d-1*gammaaa*t114**2*t157*
1249     3         t30*t94-1.3589022108739904d-1*t104*t114*t30*t94-1.8466152
1250     4         187182186d-2*gammaaa*t104*t109*t114*t92)*t99*wght-4.94711
1251     5         3487115154d-2*rhoa*t115**2*t149*wght+Cmat2(iq,D2_GAB_GAB)
1252          endif ! rhoa.gt.tol_rho
1253        else  ! ipol.eq.1
1254          rhoa    = rho(iq,R_A)
1255          rhob    = rho(iq,R_B)
1256          gammaaa = rgamma(iq,G_AA)
1257          gammaab = rgamma(iq,G_AB)
1258          gammabb = rgamma(iq,G_BB)
1259          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
1260            t1 = rhoa**3.333333333333333d-1
1261            t2 = t1**5.0d-1
1262            t3 = 1/t2
1263            t4 = 1.530901310039024d-2*t3+1.0465751434d-1
1264            t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1
1265            t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1
1266            t7 = 1/t6
1267            t8 = 1.269642451250142d+0*t2*t7+1.0d+0
1268            t9 = log(t8)
1269            t10 = 1/t1
1270            t11 = 1.2746961887000874d-1*t10+1.0d+0
1271            t12 = 2.4141993114533214d-2*t3+1.0186556948d-1
1272            t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1
1273            t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1
1274            t15 = 1/t14
1275            t16 = 1.269642451250142d+0*t15*t2+1.0d+0
1276            t17 = log(t16)
1277            t18 = 1.325688999052018d-1*t10+1.0d+0
1278            t19 = 1.3212998810398843d-2*t3+2.9729725188d-2
1279            t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1
1280            t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1
1281            t22 = 1/t21
1282            t23 = 1.269642451250142d+0*t2*t22+1.0d+0
1283            t24 = log(t23)
1284            t25 = 6.901399211255826d-2*t10+1.0d+0
1285            t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
1286     1         21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3
1287     2         .37738d-2*t24*t25)-6.21814d-2*t17*t18
1288            t27 = rhoa**1.1666666666666667d+0
1289            t28 = 1/t27**2.0d+0
1290            t29 = exp(-8.085523023512745d+1*t26)
1291            t30 = t29-1.0d+0
1292            t31 = 1/t30
1293            t32 = 2.7178044217479813d-1*gammaaa*t28*t31
1294            t33 = t32+1.0d+0
1295            t34 = (gammaaa*t28)**2.0d+0
1296            t35 = 1/t30**2.0d+0
1297            t36 = 7.38646087487288d-2*t34*t35+t32+1.0d+0
1298            t37 = 1/t36
1299            t38 = 2.7178044217479813d-1*gammaaa*t28*t33*t37+1.0d+0
1300            t39 = log(t38)
1301            t40 = rhob**3.333333333333333d-1
1302            t41 = t40**5.0d-1
1303            t42 = 1/t41
1304            t43 = 1.530901310039024d-2*t42+1.0465751434d-1
1305            t44 = 7.876233178997433d-1*t42*t43+1.9269083139d-1
1306            t45 = 7.876233178997433d-1*t42*t44+4.3896648423d-1
1307            t46 = 1/t45
1308            t47 = 1.269642451250142d+0*t41*t46+1.0d+0
1309            t48 = log(t47)
1310            t49 = 1/t40
1311            t50 = 1.2746961887000874d-1*t49+1.0d+0
1312            t51 = 2.4141993114533214d-2*t42+1.0186556948d-1
1313            t52 = 7.876233178997433d-1*t42*t51+2.2308199064d-1
1314            t53 = 7.876233178997433d-1*t42*t52+4.7231125998d-1
1315            t54 = 1/t53
1316            t55 = 1.269642451250142d+0*t41*t54+1.0d+0
1317            t56 = log(t55)
1318            t57 = 1.325688999052018d-1*t49+1.0d+0
1319            t58 = 1.3212998810398843d-2*t42+2.9729725188d-2
1320            t59 = 7.876233178997433d-1*t42*t58+1.2236585478d-1
1321            t60 = 7.876233178997433d-1*t42*t59+3.497952466d-1
1322            t61 = 1/t60
1323            t62 = 1.269642451250142d+0*t41*t61+1.0d+0
1324            t63 = log(t62)
1325            t64 = 6.901399211255826d-2*t49+1.0d+0
1326            t65 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
1327     1         21814d-2*t56*t57-3.10907d-2*t48*t50)-3.37738d-2*t63*t64)+
1328     2         3.37738d-2*t63*t64)-6.21814d-2*t56*t57
1329            t66 = rhob+rhoa
1330            t67 = t66**3.333333333333333d-1
1331            t68 = 1/t67
1332            t69 = 1.325688999052018d-1*t68+1.0d+0
1333            t70 = t67**5.0d-1
1334            t71 = 1/t70
1335            t72 = 2.4141993114533214d-2*t71+1.0186556948d-1
1336            t73 = 7.876233178997433d-1*t71*t72+2.2308199064d-1
1337            t74 = 7.876233178997433d-1*t71*t73+4.7231125998d-1
1338            t75 = 1/t74
1339            t76 = 1.269642451250142d+0*t70*t75+1.0d+0
1340            t77 = log(t76)
1341            t78 = rhoa-rhob
1342            t79 = 1/t66
1343            t80 = 1.0d+0-t78*t79
1344            t81 = t80**1.3333333333333333d+0
1345            t82 = t78*t79+1.0d+0
1346            t83 = t82**1.3333333333333333d+0
1347            t84 = 1.923661050931536d+0*t83+1.923661050931536d+0*t81-3.84
1348     1         7322101863072d+0
1349            t85 = 6.901399211255826d-2*t68+1.0d+0
1350            t86 = 1.3212998810398843d-2*t71+2.9729725188d-2
1351            t87 = 7.876233178997433d-1*t71*t86+1.2236585478d-1
1352            t88 = 7.876233178997433d-1*t71*t87+3.497952466d-1
1353            t89 = 1/t88
1354            t90 = 1.269642451250142d+0*t70*t89+1.0d+0
1355            t91 = log(t90)
1356            t92 = t78**4
1357            t93 = 1/t66**4
1358            t94 = 1.2746961887000874d-1*t68+1.0d+0
1359            t95 = 1.530901310039024d-2*t71+1.0465751434d-1
1360            t96 = 7.876233178997433d-1*t71*t95+1.9269083139d-1
1361            t97 = 7.876233178997433d-1*t71*t96+4.3896648423d-1
1362            t98 = 1/t97
1363            t99 = 1.269642451250142d+0*t70*t98+1.0d+0
1364            t100 = log(t99)
1365            t101 = 1.709920934161365d+0*(6.21814d-2*t69*t77-3.10907d-2*t
1366     1         100*t94)-3.37738d-2*t85*t91
1367            t102 = t101*t92*t93+3.37738d-2*t85*t91
1368            t103 = 5.848223622634648d-1*t102*t84-6.21814d-2*t69*t77
1369            t104 = rhob**1.1666666666666667d+0
1370            t105 = 1/t104**2.0d+0
1371            t106 = exp(-8.085523023512745d+1*t65)
1372            t107 = t106-1.0d+0
1373            t108 = 1/t107
1374            t109 = 2.7178044217479813d-1*gammabb*t105*t108
1375            t110 = t109+1.0d+0
1376            t111 = (gammabb*t105)**2.0d+0
1377            t112 = 1/t107**2.0d+0
1378            t113 = 7.38646087487288d-2*t111*t112+t109+1.0d+0
1379            t114 = 1/t113
1380            t115 = 2.7178044217479813d-1*gammabb*t105*t110*t114+1.0d+0
1381            t116 = log(t115)
1382            t117 = t80**6.666666666666666d-1
1383            t118 = t82**6.666666666666666d-1
1384            t119 = 5.0d-1*t118+5.0d-1*t117
1385            t120 = t119**3.0d+0
1386            t121 = gammabb+2.0d+0*gammaab+gammaaa
1387            t122 = t66**1.1666666666666667d+0
1388            t123 = 1/t122**2.0d+0
1389            t124 = t119**2.0d+0
1390            t125 = 1/t124
1391            t126 = 1/t120
1392            t127 = exp(-4.042761511756372d+1*t103*t126)
1393            t128 = t127-1.0d+0
1394            t129 = 1/t128
1395            t130 = 1.7121095002288222d-1*t121*t123*t125*t129
1396            t131 = t130+1.0d+0
1397            t132 = 1/t119**4.0d+0
1398            t133 = (t121*t123)**2.0d+0
1399            t134 = 1/t128**2.0d+0
1400            t135 = 2.931318940773787d-2*t132*t133*t134+t130+1.0d+0
1401            t136 = 1/t135
1402            t137 = 1.7121095002288222d-1*t121*t123*t125*t131*t136+1.0d+0
1403            t138 = log(t137)
1404            t139 = 1/rhoa**1.3333333333333333d+0
1405            t140 = 1/t8
1406            t141 = 1/t6**2
1407            t142 = 1/rhoa**1.3333333333333336d+0
1408            t143 = 1/t2**3
1409            t144 = 1/rhoa**6.666666666666667d-1
1410            t145 = -1.3127055298329054d-1*t143*t144*t4-2.009622615316665
1411     1         8d-3*t142
1412            t146 = 7.876233178997433d-1*t145*t3-1.3127055298329054d-1*t1
1413     1         43*t144*t5
1414            t147 = 2.11607075208357d-1*t144*t3*t7-1.269642451250142d+0*t
1415     1         141*t146*t2
1416            t148 = 1/t16
1417            t149 = 1/t14**2
1418            t150 = -1.3127055298329054d-1*t12*t143*t144-3.16913278626356
1419     1         7d-3*t142
1420            t151 = 7.876233178997433d-1*t150*t3-1.3127055298329054d-1*t1
1421     1         3*t143*t144
1422            t152 = 2.11607075208357d-1*t144*t15*t3-1.269642451250142d+0*
1423     1         t149*t151*t2
1424            t153 = 1/t23
1425            t154 = 1/t21**2
1426            t155 = -1.3127055298329054d-1*t143*t144*t19-1.73447766040861
1427     1         62d-3*t142
1428            t156 = 7.876233178997433d-1*t155*t3-1.3127055298329054d-1*t1
1429     1         43*t144*t20
1430            t157 = 2.11607075208357d-1*t144*t22*t3-1.269642451250142d+0*
1431     1         t154*t156*t2
1432            t158 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1
1433     1         .3210398931339265d-3*t139*t9+6.21814d-2*t148*t152*t18-2.7
1434     2         47773264188438d-3*t139*t17-3.10907d-2*t11*t140*t147)-3.37
1435     3         738d-2*t153*t157*t25+7.769549222703733d-4*t139*t24)+3.377
1436     4         38d-2*t153*t157*t25-7.769549222703733d-4*t139*t24)-6.2181
1437     5         4d-2*t148*t152*t18+2.747773264188438d-3*t139*t17
1438            t159 = 1/t38
1439            t160 = rhoa**1.6666666666666674d-1
1440            t161 = 1/t27**3.0d+0
1441            t162 = -6.34154365074529d-1*gammaaa*t160*t161*t31
1442            t163 = 1/t30**2
1443            t164 = 2.1974870225448048d+1*gammaaa*t158*t163*t28*t29
1444            t165 = t164+t162
1445            t166 = 1/t36**2
1446            t167 = gammaaa**2
1447            t168 = 1/t27**5.0d+0
1448            t169 = 1/t30**3.0d+0
1449            t170 = -3.4470150749406775d-1*t160*t167*t168*t35+1.194467989
1450     1         3212153d+1*t158*t169*t29*t34+t164+t162
1451            t171 = -6.34154365074529d-1*gammaaa*t160*t161*t33*t37+2.7178
1452     1         044217479813d-1*gammaaa*t165*t28*t37-2.7178044217479813d-
1453     2         1*gammaaa*t166*t170*t28*t33
1454            t172 = 1/t66**1.3333333333333336d+0
1455            t173 = 1/t66**6.666666666666667d-1
1456            t174 = 1/t70**3
1457            t175 = -1.3127055298329054d-1*t173*t174*t72-3.16913278626356
1458     1         7d-3*t172
1459            t176 = 7.876233178997433d-1*t175*t71-1.3127055298329054d-1*t
1460     1         173*t174*t73
1461            t177 = 1/t74**2
1462            t178 = 2.11607075208357d-1*t173*t71*t75-1.269642451250142d+0
1463     1         *t176*t177*t70
1464            t179 = 1/t76
1465            t180 = -6.21814d-2*t178*t179*t69
1466            t181 = 1/t66**1.3333333333333333d+0
1467            t182 = 2.747773264188438d-3*t181*t77
1468            t183 = -1.3127055298329054d-1*t173*t174*t86-1.73447766040861
1469     1         62d-3*t172
1470            t184 = 7.876233178997433d-1*t183*t71-1.3127055298329054d-1*t
1471     1         173*t174*t87
1472            t185 = 1/t88**2
1473            t186 = 2.11607075208357d-1*t173*t71*t89-1.269642451250142d+0
1474     1         *t184*t185*t70
1475            t187 = 1/t90
1476            t188 = 3.37738d-2*t186*t187*t85
1477            t189 = -7.769549222703733d-4*t181*t91
1478            t190 = -1.3127055298329054d-1*t173*t174*t95-2.00962261531666
1479     1         58d-3*t172
1480            t191 = 7.876233178997433d-1*t190*t71-1.3127055298329054d-1*t
1481     1         173*t174*t96
1482            t192 = 1/t97**2
1483            t193 = 2.11607075208357d-1*t173*t71*t98-1.269642451250142d+0
1484     1         *t191*t192*t70
1485            t194 = 1/t99
1486            t195 = 1.709920934161365d+0*(-3.10907d-2*t193*t194*t94-2.747
1487     1         773264188438d-3*t181*t77+6.21814d-2*t178*t179*t69+1.32103
1488     2         98931339265d-3*t100*t181)+7.769549222703733d-4*t181*t91-3
1489     3         .37738d-2*t186*t187*t85
1490            t196 = t195*t92*t93
1491            t197 = 1/t66**5
1492            t198 = -4*t101*t197*t92
1493            t199 = t78**3
1494            t200 = 4*t101*t199*t93+t198+t196+t189+t188
1495            t201 = 1/t66**2
1496            t202 = t201*t78
1497            t203 = -t79
1498            t204 = t203+t202
1499            t205 = t80**3.333333333333333d-1
1500            t206 = -t201*t78
1501            t207 = t79+t206
1502            t208 = t82**3.333333333333333d-1
1503            t209 = 2.564881401242048d+0*t207*t208+2.564881401242048d+0*t
1504     1         204*t205
1505            t210 = 5.848223622634648d-1*t200*t84+5.848223622634648d-1*t1
1506     1         02*t209+t182+t180
1507            t211 = 1.0d+0*t103
1508            t212 = 1/t137
1509            t213 = 1/t205
1510            t214 = 1/t208
1511            t215 = 3.333333333333333d-1*t207*t214+3.333333333333333d-1*t
1512     1         204*t213
1513            t216 = t66**1.6666666666666674d-1
1514            t217 = 1/t122**3.0d+0
1515            t218 = -3.994922167200585d-1*t121*t125*t131*t136*t216*t217
1516            t219 = -3.4242190004576445d-1*t121*t123*t126*t129*t215
1517            t220 = -3.994922167200585d-1*t121*t125*t129*t216*t217
1518            t221 = 1/t128**2
1519            t222 = 1.2128284535269115d+2*t103*t132*t215-4.04276151175637
1520     1         2d+1*t126*t210
1521            t223 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222
1522            t224 = t223+t220+t219
1523            t225 = 1/t135**2
1524            t226 = t121**2
1525            t227 = 1/t122**5.0d+0
1526            t228 = -1.3679488390277675d-1*t132*t134*t216*t226*t227
1527            t229 = 1/t119**5.0d+0
1528            t230 = 1/t128**3.0d+0
1529            t231 = -5.862637881547574d-2*t127*t132*t133*t222*t230-1.1725
1530     1         27576309515d-1*t133*t134*t215*t229+t228+t223+t220+t219
1531            t232 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t231+
1532     1         1.7121095002288222d-1*t121*t123*t125*t136*t224+t218-3.424
1533     2         2190004576445d-1*t121*t123*t126*t131*t136*t215
1534            t233 = 2.473556743557577d-2*t120*t138
1535            t234 = 1/rhob**1.3333333333333333d+0
1536            t235 = 1/t47
1537            t236 = 1/t45**2
1538            t237 = 1/rhob**1.3333333333333336d+0
1539            t238 = 1/t41**3
1540            t239 = 1/rhob**6.666666666666667d-1
1541            t240 = -1.3127055298329054d-1*t238*t239*t43-2.00962261531666
1542     1         58d-3*t237
1543            t241 = 7.876233178997433d-1*t240*t42-1.3127055298329054d-1*t
1544     1         238*t239*t44
1545            t242 = 2.11607075208357d-1*t239*t42*t46-1.269642451250142d+0
1546     1         *t236*t241*t41
1547            t243 = 1/t55
1548            t244 = 1/t53**2
1549            t245 = -1.3127055298329054d-1*t238*t239*t51-3.16913278626356
1550     1         7d-3*t237
1551            t246 = 7.876233178997433d-1*t245*t42-1.3127055298329054d-1*t
1552     1         238*t239*t52
1553            t247 = 2.11607075208357d-1*t239*t42*t54-1.269642451250142d+0
1554     1         *t244*t246*t41
1555            t248 = 1/t62
1556            t249 = 1/t60**2
1557            t250 = -1.3127055298329054d-1*t238*t239*t58-1.73447766040861
1558     1         62d-3*t237
1559            t251 = 7.876233178997433d-1*t250*t42-1.3127055298329054d-1*t
1560     1         238*t239*t59
1561            t252 = 2.11607075208357d-1*t239*t42*t61-1.269642451250142d+0
1562     1         *t249*t251*t41
1563            t253 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t252*t
1564     1         64+7.769549222703733d-4*t234*t63+1.709920934161365d+0*(6.
1565     2         21814d-2*t243*t247*t57-2.747773264188438d-3*t234*t56-3.10
1566     3         907d-2*t235*t242*t50+1.3210398931339265d-3*t234*t48))+3.3
1567     4         7738d-2*t248*t252*t64-7.769549222703733d-4*t234*t63)-6.21
1568     5         814d-2*t243*t247*t57+2.747773264188438d-3*t234*t56
1569            t254 = 1/t115
1570            t255 = rhob**1.6666666666666674d-1
1571            t256 = 1/t104**3.0d+0
1572            t257 = -6.34154365074529d-1*gammabb*t108*t255*t256
1573            t258 = 1/t107**2
1574            t259 = 2.1974870225448048d+1*gammabb*t105*t106*t253*t258
1575            t260 = t259+t257
1576            t261 = 1/t113**2
1577            t262 = gammabb**2
1578            t263 = 1/t104**5.0d+0
1579            t264 = 1/t107**3.0d+0
1580            t265 = 1.1944679893212153d+1*t106*t111*t253*t264-3.447015074
1581     1         9406775d-1*t112*t255*t262*t263+t259+t257
1582            t266 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t265+2.
1583     1         7178044217479813d-1*gammabb*t105*t114*t260-6.341543650745
1584     2         29d-1*gammabb*t110*t114*t255*t256
1585            t267 = -4*t101*t199*t93+t198+t196+t189+t188
1586            t268 = t79+t202
1587            t269 = t206+t203
1588            t270 = 2.564881401242048d+0*t208*t269+2.564881401242048d+0*t
1589     1         205*t268
1590            t271 = 5.848223622634648d-1*t267*t84+5.848223622634648d-1*t1
1591     1         02*t270+t182+t180
1592            t272 = 3.333333333333333d-1*t214*t269+3.333333333333333d-1*t
1593     1         213*t268
1594            t273 = -3.4242190004576445d-1*t121*t123*t126*t129*t272
1595            t274 = 1.2128284535269115d+2*t103*t132*t272-4.04276151175637
1596     1         2d+1*t126*t271
1597            t275 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t274
1598            t276 = t275+t273+t220
1599            t277 = t275-5.862637881547574d-2*t127*t132*t133*t230*t274+t2
1600     1         73-1.172527576309515d-1*t133*t134*t229*t272+t228+t220
1601            t278 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t277+
1602     1         1.7121095002288222d-1*t121*t123*t125*t136*t276-3.42421900
1603     2         04576445d-1*t121*t123*t126*t131*t136*t272+t218
1604            t279 = 1/t27**4.0d+0
1605            t280 = 1.477292174974576d-1*gammaaa*t279*t35+2.7178044217479
1606     1         813d-1*t28*t31
1607            t281 = 2.7178044217479813d-1*t28*t33*t37+7.386460874872879d-
1608     1         2*gammaaa*t279*t31*t37-2.7178044217479813d-1*gammaaa*t166
1609     2         *t28*t280*t33
1610            t282 = 1/t122**4.0d+0
1611            t283 = 5.862637881547574d-2*t121*t132*t134*t282+1.7121095002
1612     1         288222d-1*t123*t125*t129
1613            t284 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t283+
1614     1         2.931318940773787d-2*t121*t129*t132*t136*t282+1.712109500
1615     2         2288222d-1*t123*t125*t131*t136
1616            t285 = 2.473556743557577d-2*t120*t212*t284*t66
1617            t286 = 1.172527576309515d-1*t121*t132*t134*t282+3.4242190004
1618     1         576445d-1*t123*t125*t129
1619            t287 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t286+
1620     1         5.862637881547574d-2*t121*t129*t132*t136*t282+3.424219000
1621     2         4576445d-1*t123*t125*t131*t136
1622            t288 = 1/t104**4.0d+0
1623            t289 = 1.477292174974576d-1*gammabb*t112*t288+2.717804421747
1624     1         9813d-1*t105*t108
1625            t290 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t289+7.
1626     1         386460874872879d-2*gammabb*t108*t114*t288+2.7178044217479
1627     2         813d-1*t105*t110*t114
1628            t291 = 1/rhoa**2.333333333333333d+0
1629            t292 = 1/rhoa**2.3333333333333334d+0
1630            t293 = 1/rhoa**1.6666666666666669d+0
1631            t294 = 1/t2**5
1632            t295 = 1/t16**2
1633            t296 = t152**2
1634            t297 = -1.269642451250142d+0*t149*t2*(7.876233178997433d-1*(
1635     1         6.563527649164527d-2*t12*t142*t294+8.751370198886037d-2*t
1636     2         12*t143*t293+4.753699179395351d-3*t292)*t3+6.563527649164
1637     3         527d-2*t13*t142*t294+8.751370198886037d-2*t13*t143*t293-2
1638     4         .625411059665811d-1*t143*t144*t150)-1.4107138347223802d-1
1639     5         *t15*t293*t3-4.23214150416714d-1*t144*t149*t151*t3+2.5392
1640     6         84902500284d+0*t151**2*t2/t14**3-3.52678458680595d-2*t142
1641     7         *t143*t15
1642            t298 = 1/t23**2
1643            t299 = t157**2
1644            t300 = -1.269642451250142d+0*t154*t2*(7.876233178997433d-1*(
1645     1         6.563527649164527d-2*t142*t19*t294+8.751370198886037d-2*t
1646     2         143*t19*t293+2.601716490612924d-3*t292)*t3+6.563527649164
1647     3         527d-2*t142*t20*t294+8.751370198886037d-2*t143*t20*t293-2
1648     4         .625411059665811d-1*t143*t144*t155)-1.4107138347223802d-1
1649     5         *t22*t293*t3-4.23214150416714d-1*t144*t154*t156*t3-3.5267
1650     6         8458680595d-2*t142*t143*t22+2.539284902500284d+0*t156**2*
1651     7         t2/t21**3
1652            t301 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-
1653     1         1.7613865241785687d-3*t291*t9+3.10907d-2*t11*t147**2/t8**
1654     2         2-3.10907d-2*t11*t140*(-1.4107138347223802d-1*t293*t3*t7-
1655     3         3.52678458680595d-2*t142*t143*t7+2.539284902500284d+0*t14
1656     4         6**2*t2/t6**3-1.269642451250142d+0*t141*t2*(6.56352764916
1657     5         4527d-2*t142*t294*t5+8.751370198886037d-2*t143*t293*t5+7.
1658     6         876233178997433d-1*t3*(6.563527649164527d-2*t142*t294*t4+
1659     7         8.751370198886037d-2*t143*t293*t4+3.0144339229749983d-3*t
1660     8         292)-2.625411059665811d-1*t143*t144*t145)-4.2321415041671
1661     9         4d-1*t141*t144*t146*t3)+6.21814d-2*t148*t18*t297-6.21814d
1662     :         -2*t18*t295*t296+3.663697685584584d-3*t17*t291-5.49554652
1663     ;         8376876d-3*t139*t148*t152+2.642079786267853d-3*t139*t140*
1664     <         t147)-3.37738d-2*t153*t25*t300+3.37738d-2*t25*t298*t299-1
1665     =         .0359398963604977d-3*t24*t291+1.5539098445407465d-3*t139*
1666     >         t153*t157)+3.37738d-2*t153*t25*t300-3.37738d-2*t25*t298*t
1667     ?         299+1.0359398963604977d-3*t24*t291-1.5539098445407465d-3*
1668     @         t139*t153*t157)-6.21814d-2*t148*t18*t297+6.21814d-2*t18*t
1669     1         295*t296-3.663697685584584d-3*t17*t291+5.495546528376876d
1670     2         -3*t139*t148*t152
1671            t302 = rhoa**3.333333333333335d-1
1672            t303 = 1/rhoa**8.333333333333333d-1
1673            t304 = t158**2
1674            t305 = exp(-1.617104604702549d+2*t26)
1675            t306 = 3.553566382931298d+3*gammaaa*t28*t304*t305/t30**3
1676            t307 = 2.2195402777608514d+0*gammaaa*t279*t302*t31
1677            t308 = -1.0569239417908823d-1*gammaaa*t161*t303*t31
1678            t309 = -1.0254939438542422d+2*gammaaa*t158*t160*t161*t163*t2
1679     1         9
1680            t310 = -1.776783191465649d+3*gammaaa*t163*t28*t29*t304
1681            t311 = 2.1974870225448048d+1*gammaaa*t163*t28*t29*t301
1682            t312 = 1/t27**6.0d+0
1683            t313 = 1/t36**3
1684            t314 = 1/t38**2
1685            t315 = t178**2
1686            t316 = 1/t76**2
1687            t317 = 6.21814d-2*t315*t316*t69
1688            t318 = 1/t66**2.3333333333333334d+0
1689            t319 = 1/t70**5
1690            t320 = 1/t66**1.6666666666666669d+0
1691            t321 = -1.4107138347223802d-1*t320*t71*t75-3.52678458680595d
1692     1         -2*t172*t174*t75+2.539284902500284d+0*t176**2*t70/t74**3-
1693     2         1.269642451250142d+0*t177*t70*(8.751370198886037d-2*t174*
1694     3         t320*t73+6.563527649164527d-2*t172*t319*t73+7.87623317899
1695     4         7433d-1*t71*(8.751370198886037d-2*t174*t320*t72+6.5635276
1696     5         49164527d-2*t172*t319*t72+4.753699179395351d-3*t318)-2.62
1697     6         5411059665811d-1*t173*t174*t175)-4.23214150416714d-1*t173
1698     7         *t176*t177*t71
1699            t322 = -6.21814d-2*t179*t321*t69
1700            t323 = 5.495546528376876d-3*t178*t179*t181
1701            t324 = 1/t66**2.333333333333333d+0
1702            t325 = -3.663697685584584d-3*t324*t77
1703            t326 = t186**2
1704            t327 = 1/t90**2
1705            t328 = -3.37738d-2*t326*t327*t85
1706            t329 = -1.4107138347223802d-1*t320*t71*t89-3.52678458680595d
1707     1         -2*t172*t174*t89+2.539284902500284d+0*t184**2*t70/t88**3-
1708     2         1.269642451250142d+0*t185*t70*(8.751370198886037d-2*t174*
1709     3         t320*t87+6.563527649164527d-2*t172*t319*t87+7.87623317899
1710     4         7433d-1*t71*(8.751370198886037d-2*t174*t320*t86+6.5635276
1711     5         49164527d-2*t172*t319*t86+2.601716490612924d-3*t318)-2.62
1712     6         5411059665811d-1*t173*t174*t183)-4.23214150416714d-1*t173
1713     7         *t184*t185*t71
1714            t330 = 3.37738d-2*t187*t329*t85
1715            t331 = -1.5539098445407465d-3*t181*t186*t187
1716            t332 = 1.0359398963604977d-3*t324*t91
1717            t333 = t92*t93*(1.709920934161365d+0*(3.10907d-2*t193**2*t94
1718     1         /t99**2-3.10907d-2*t194*t94*(-1.4107138347223802d-1*t320*
1719     2         t71*t98-3.52678458680595d-2*t172*t174*t98+2.5392849025002
1720     3         84d+0*t191**2*t70/t97**3-1.269642451250142d+0*t192*t70*(8
1721     4         .751370198886037d-2*t174*t320*t96+6.563527649164527d-2*t1
1722     5         72*t319*t96+7.876233178997433d-1*t71*(8.751370198886037d-
1723     6         2*t174*t320*t95+6.563527649164527d-2*t172*t319*t95+3.0144
1724     7         339229749983d-3*t318)-2.625411059665811d-1*t173*t174*t190
1725     8         )-4.23214150416714d-1*t173*t191*t192*t71)+3.6636976855845
1726     9         84d-3*t324*t77+6.21814d-2*t179*t321*t69-6.21814d-2*t315*t
1727     :         316*t69-1.7613865241785687d-3*t100*t324+2.642079786267853
1728     ;         d-3*t181*t193*t194-5.495546528376876d-3*t178*t179*t181)-1
1729     <         .0359398963604977d-3*t324*t91-3.37738d-2*t187*t329*t85+3.
1730     =         37738d-2*t326*t327*t85+1.5539098445407465d-3*t181*t186*t1
1731     >         87)
1732            t334 = -8*t195*t197*t92
1733            t335 = 20*t101*t92/t66**6
1734            t336 = t78**2
1735            t337 = 12*t101*t336*t93
1736            t338 = t204**2
1737            t339 = 1/t117
1738            t340 = 1/t66**3
1739            t341 = -2*t340*t78
1740            t342 = 2*t201
1741            t343 = t342+t341
1742            t344 = t207**2
1743            t345 = 1/t118
1744            t346 = 2*t340*t78
1745            t347 = -2*t201
1746            t348 = t347+t346
1747            t349 = 5.848223622634648d-1*t84*(8*t195*t199*t93+t337+t335+t
1748     1         334+t333+t332+t331+t330+t328-32*t101*t197*t199)+5.8482236
1749     2         22634648d-1*t102*(2.564881401242048d+0*t208*t348+8.549604
1750     3         670806825d-1*t344*t345+2.564881401242048d+0*t205*t343+8.5
1751     4         49604670806825d-1*t338*t339)+t325+t323+t322+t317+1.169644
1752     5         7245269297d+0*t200*t209
1753            t350 = t215**2
1754            t351 = 1/t81
1755            t352 = 1/t83
1756            t353 = -1.111111111111111d-1*t344*t352-1.111111111111111d-1*
1757     1         t338*t351+3.333333333333333d-1*t214*t348+3.33333333333333
1758     2         3d-1*t213*t343
1759            t354 = t66**3.333333333333335d-1
1760            t355 = 1.398222758520205d+0*t121*t125*t131*t136*t282*t354
1761            t356 = 1/t66**8.333333333333333d-1
1762            t357 = -6.658203612000978d-2*t121*t125*t131*t136*t217*t356
1763            t358 = 1.0272657001372934d+0*t121*t123*t129*t132*t350
1764            t359 = -3.4242190004576445d-1*t121*t123*t126*t129*t353
1765            t360 = 1.5979688668802342d+0*t121*t126*t129*t215*t216*t217
1766            t361 = 1.398222758520205d+0*t121*t125*t129*t282*t354
1767            t362 = -6.658203612000978d-2*t121*t125*t129*t217*t356
1768            t363 = 1.2128284535269115d+2*t103*t132*t353-4.85131381410764
1769     1         6d+2*t103*t229*t350-4.042761511756372d+1*t126*t349+2.4256
1770     2         56907053823d+2*t132*t210*t215
1771            t364 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t363
1772            t365 = 6.848438000915289d-1*t121*t123*t126*t127*t215*t221*t2
1773     1         22
1774            t366 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t22
1775     1         2
1776            t367 = exp(-8.085523023512744d+1*t103*t126)
1777            t368 = 1/t128**3
1778            t369 = t222**2
1779            t370 = 3.4242190004576445d-1*t121*t123*t125*t367*t368*t369
1780            t371 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t369
1781            t372 = 1/t122**6.0d+0
1782            t373 = 7.979701560995311d-1*t132*t134*t226*t354*t372
1783            t374 = -2.2799147317129467d-2*t132*t134*t226*t227*t356
1784            t375 = 1/t119**6.0d+0
1785            t376 = 1/t128**4.0d+0
1786            t377 = 1/t135**3
1787            t378 = 1/t137**2
1788            t379 = 5.848223622634648d-1*t84*(-12*t101*t336*t93+t335+t334
1789     1         +t333+t332+t331+t330+t328)+5.848223622634648d-1*t102*(5.1
1790     2         29762802484096d+0*t208*t340*t78-5.129762802484096d+0*t205
1791     3         *t340*t78+8.549604670806825d-1*t207*t269*t345+8.549604670
1792     4         806825d-1*t204*t268*t339)+t325+t323+t322+t317+5.848223622
1793     5         634648d-1*t200*t270+5.848223622634648d-1*t209*t267
1794            t380 = 6.666666666666666d-1*t214*t340*t78-6.666666666666666d
1795     1         -1*t213*t340*t78-1.111111111111111d-1*t207*t269*t352-1.11
1796     2         1111111111111d-1*t204*t268*t351
1797            t381 = 1.0272657001372934d+0*t121*t123*t129*t132*t215*t272
1798            t382 = -3.4242190004576445d-1*t121*t123*t126*t129*t380
1799            t383 = 7.98984433440117d-1*t121*t126*t129*t216*t217*t272
1800            t384 = 7.98984433440117d-1*t121*t126*t129*t215*t216*t217
1801            t385 = 1.2128284535269115d+2*t103*t132*t380-4.04276151175637
1802     1         2d+1*t126*t379-4.851313814107646d+2*t103*t215*t229*t272+1
1803     2         .2128284535269115d+2*t132*t210*t272+1.2128284535269115d+2
1804     3         *t132*t215*t271
1805            t386 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t385
1806            t387 = 3.4242190004576445d-1*t121*t123*t126*t127*t215*t221*t
1807     1         274
1808            t388 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t2
1809     1         74
1810            t389 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t222*t
1811     1         272
1812            t390 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t2
1813     1         22
1814            t391 = 3.4242190004576445d-1*t121*t123*t125*t222*t274*t367*t
1815     1         368
1816            t392 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222*
1817     1         t274
1818            t393 = 1/rhob**2.333333333333333d+0
1819            t394 = 1/rhob**2.3333333333333334d+0
1820            t395 = 1/rhob**1.6666666666666669d+0
1821            t396 = 1/t41**5
1822            t397 = 1/t55**2
1823            t398 = t247**2
1824            t399 = -1.4107138347223802d-1*t395*t42*t54-3.52678458680595d
1825     1         -2*t237*t238*t54+2.539284902500284d+0*t246**2*t41/t53**3-
1826     2         1.269642451250142d+0*t244*t41*(6.563527649164527d-2*t237*
1827     3         t396*t52+8.751370198886037d-2*t238*t395*t52+7.87623317899
1828     4         7433d-1*t42*(6.563527649164527d-2*t237*t396*t51+8.7513701
1829     5         98886037d-2*t238*t395*t51+4.753699179395351d-3*t394)-2.62
1830     6         5411059665811d-1*t238*t239*t245)-4.23214150416714d-1*t239
1831     7         *t244*t246*t42
1832            t400 = 1/t62**2
1833            t401 = t252**2
1834            t402 = -1.4107138347223802d-1*t395*t42*t61-3.52678458680595d
1835     1         -2*t237*t238*t61+2.539284902500284d+0*t251**2*t41/t60**3-
1836     2         1.269642451250142d+0*t249*t41*(6.563527649164527d-2*t237*
1837     3         t396*t59+8.751370198886037d-2*t238*t395*t59+7.87623317899
1838     4         7433d-1*t42*(6.563527649164527d-2*t237*t396*t58+8.7513701
1839     5         98886037d-2*t238*t395*t58+2.601716490612924d-3*t394)-2.62
1840     6         5411059665811d-1*t238*t239*t250)-4.23214150416714d-1*t239
1841     7         *t249*t251*t42
1842            t403 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t402*t
1843     1         64+3.37738d-2*t400*t401*t64-1.0359398963604977d-3*t393*t6
1844     2         3+1.709920934161365d+0*(6.21814d-2*t243*t399*t57-6.21814d
1845     3         -2*t397*t398*t57+3.663697685584584d-3*t393*t56+3.10907d-2
1846     4         *t242**2*t50/t47**2-3.10907d-2*t235*(-1.4107138347223802d
1847     5         -1*t395*t42*t46-3.52678458680595d-2*t237*t238*t46+2.53928
1848     6         4902500284d+0*t241**2*t41/t45**3-1.269642451250142d+0*t23
1849     7         6*t41*(6.563527649164527d-2*t237*t396*t44+8.7513701988860
1850     8         37d-2*t238*t395*t44+7.876233178997433d-1*t42*(6.563527649
1851     9         164527d-2*t237*t396*t43+8.751370198886037d-2*t238*t395*t4
1852     :         3+3.0144339229749983d-3*t394)-2.625411059665811d-1*t238*t
1853     ;         239*t240)-4.23214150416714d-1*t236*t239*t241*t42)*t50-1.7
1854     <         613865241785687d-3*t393*t48-5.495546528376876d-3*t234*t24
1855     =         3*t247+2.642079786267853d-3*t234*t235*t242)+1.55390984454
1856     >         07465d-3*t234*t248*t252)+3.37738d-2*t248*t402*t64-3.37738
1857     ?         d-2*t400*t401*t64+1.0359398963604977d-3*t393*t63-1.553909
1858     @         8445407465d-3*t234*t248*t252)-6.21814d-2*t243*t399*t57+6.
1859     1         21814d-2*t397*t398*t57-3.663697685584584d-3*t393*t56+5.49
1860     2         5546528376876d-3*t234*t243*t247
1861            t404 = rhob**3.333333333333335d-1
1862            t405 = 1/rhob**8.333333333333333d-1
1863            t406 = t253**2
1864            t407 = exp(-1.617104604702549d+2*t65)
1865            t408 = 3.553566382931298d+3*gammabb*t105*t406*t407/t107**3
1866            t409 = 2.2195402777608514d+0*gammabb*t108*t288*t404
1867            t410 = -1.0569239417908823d-1*gammabb*t108*t256*t405
1868            t411 = -1.0254939438542422d+2*gammabb*t106*t253*t255*t256*t2
1869     1         58
1870            t412 = -1.776783191465649d+3*gammabb*t105*t106*t258*t406
1871            t413 = 2.1974870225448048d+1*gammabb*t105*t106*t258*t403
1872            t414 = 1/t104**6.0d+0
1873            t415 = 1/t113**3
1874            t416 = 1/t115**2
1875            t417 = t268**2
1876            t418 = t347+t341
1877            t419 = t269**2
1878            t420 = t346+t342
1879            t421 = 5.848223622634648d-1*t84*(-8*t195*t199*t93+t337+t335+
1880     1         t334+t333+t332+t331+t330+t328+32*t101*t197*t199)+5.848223
1881     2         622634648d-1*t102*(2.564881401242048d+0*t208*t420+8.54960
1882     3         4670806825d-1*t345*t419+2.564881401242048d+0*t205*t418+8.
1883     4         549604670806825d-1*t339*t417)+t325+t323+t322+t317+1.16964
1884     5         47245269297d+0*t267*t270
1885            t422 = t272**2
1886            t423 = 3.333333333333333d-1*t214*t420-1.111111111111111d-1*t
1887     1         352*t419+3.333333333333333d-1*t213*t418-1.111111111111111
1888     2         d-1*t351*t417
1889            t424 = 1.0272657001372934d+0*t121*t123*t129*t132*t422
1890            t425 = -3.4242190004576445d-1*t121*t123*t126*t129*t423
1891            t426 = 1.5979688668802342d+0*t121*t126*t129*t216*t217*t272
1892            t427 = 1.2128284535269115d+2*t103*t132*t423-4.85131381410764
1893     1         6d+2*t103*t229*t422-4.042761511756372d+1*t126*t421+2.4256
1894     2         56907053823d+2*t132*t271*t272
1895            t428 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t427
1896            t429 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t272*t2
1897     1         74
1898            t430 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t27
1899     1         4
1900            t431 = t274**2
1901            t432 = 3.4242190004576445d-1*t121*t123*t125*t367*t368*t431
1902            t433 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t431
1903            t434 = -6.34154365074529d-1*t160*t161*t31
1904            t435 = 2.1974870225448048d+1*t158*t163*t28*t29
1905            t436 = -2.473556743557577d-2*t120*t232*t284*t378*t66
1906            t437 = 2.473556743557577d-2*t120*t284
1907            t438 = 3.994922167200585d-1*t121*t125*t131*t216*t217*t225*t2
1908     1         83
1909            t439 = -3.994922167200585d-1*t125*t131*t136*t216*t217
1910            t440 = -6.839744195138837d-2*t121*t129*t132*t136*t216*t227
1911            t441 = -3.4242190004576445d-1*t123*t126*t129*t215
1912            t442 = -3.994922167200585d-1*t125*t129*t216*t217
1913            t443 = -1.7121095002288222d-1*t123*t125*t127*t221*t222
1914            t444 = -2.735897678055535d-1*t121*t132*t134*t216*t227
1915            t445 = t212*(2.473556743557577d-2*t120*(-1.7121095002288222d
1916     1         -1*t121*t123*t125*t131*t225*(t444+t443+t442+t441-1.172527
1917     2         576309515d-1*t121*t127*t132*t222*t230*t282-2.345055152619
1918     3         03d-1*t121*t134*t215*t229*t282)+1.7121095002288222d-1*t12
1919     4         1*t123*t125*t136*(t443+t442+t441)+t440+t439+t438+3.424219
1920     5         0004576445d-1*t121*t123*t125*t131*t231*t283*t377-1.712109
1921     6         5002288222d-1*t121*t123*t125*t224*t225*t283+3.42421900045
1922     7         76445d-1*t121*t123*t126*t131*t215*t225*t283-2.93131894077
1923     8         3787d-2*t121*t129*t132*t225*t231*t282-5.862637881547574d-
1924     9         2*t121*t129*t136*t215*t229*t282-1.7121095002288222d-1*t12
1925     :         3*t125*t131*t225*t231+1.7121095002288222d-1*t123*t125*t13
1926     ;         6*t224-3.4242190004576445d-1*t123*t126*t131*t136*t215)*t6
1927     <         6+7.420670230672731d-2*t124*t215*t284*t66+t437)
1928            t446 = 2.473556743557577d-2*t120*t287
1929            t447 = 3.994922167200585d-1*t121*t125*t131*t216*t217*t225*t2
1930     1         86
1931            t448 = -7.98984433440117d-1*t125*t131*t136*t216*t217
1932            t449 = -1.3679488390277675d-1*t121*t129*t132*t136*t216*t227
1933            t450 = -6.848438000915289d-1*t123*t126*t129*t215
1934            t451 = -7.98984433440117d-1*t125*t129*t216*t217
1935            t452 = -3.4242190004576445d-1*t123*t125*t127*t221*t222
1936            t453 = -5.47179535611107d-1*t121*t132*t134*t216*t227
1937            t454 = -2.473556743557577d-2*t120*t278*t284*t378*t66
1938            t455 = -3.4242190004576445d-1*t123*t126*t129*t272
1939            t456 = -1.7121095002288222d-1*t123*t125*t127*t221*t274
1940            t457 = t212*(2.473556743557577d-2*t120*(-1.7121095002288222d
1941     1         -1*t121*t123*t125*t131*t225*(t456+t455+t444+t442-1.172527
1942     2         576309515d-1*t121*t127*t132*t230*t274*t282-2.345055152619
1943     3         03d-1*t121*t134*t229*t272*t282)+1.7121095002288222d-1*t12
1944     4         1*t123*t125*t136*(t456+t455+t442)+t440+t439+t438+3.424219
1945     5         0004576445d-1*t121*t123*t125*t131*t277*t283*t377-1.712109
1946     6         5002288222d-1*t121*t123*t125*t225*t276*t283+3.42421900045
1947     7         76445d-1*t121*t123*t126*t131*t225*t272*t283-2.93131894077
1948     8         3787d-2*t121*t129*t132*t225*t277*t282-5.862637881547574d-
1949     9         2*t121*t129*t136*t229*t272*t282-1.7121095002288222d-1*t12
1950     :         3*t125*t131*t225*t277+1.7121095002288222d-1*t123*t125*t13
1951     ;         6*t276-3.4242190004576445d-1*t123*t126*t131*t136*t272)*t6
1952     <         6+7.420670230672731d-2*t124*t272*t284*t66+t437)
1953            t458 = -6.848438000915289d-1*t123*t126*t129*t272
1954            t459 = -3.4242190004576445d-1*t123*t125*t127*t221*t274
1955            t460 = -6.34154365074529d-1*t108*t255*t256
1956            t461 = 2.1974870225448048d+1*t105*t106*t253*t258
1957            t462 = -2.473556743557577d-2*t120*t284**2*t378*t66
1958            t463 = -3.4242190004576445d-1*t123*t125*t131*t225*t283
1959            t464 = -5.862637881547574d-2*t121*t129*t132*t225*t282*t283
1960            t465 = 2.473556743557577d-2*t120*t212*(t464+t463+3.424219000
1961     1         4576445d-1*t121*t123*t125*t131*t283**2*t377-1.00374780133
1962     2         9898d-2*t121*t131*t134*t225*t372*t375+5.862637881547574d-
1963     3         2*t129*t132*t136*t282)*t66
1964            t466 = t464+t463+3.4242190004576445d-1*t121*t123*t125*t131*t
1965     1         283*t286*t377-2.007495602679796d-2*t121*t131*t134*t225*t3
1966     2         72*t375-2.931318940773787d-2*t121*t129*t132*t225*t282*t28
1967     3         6-1.7121095002288222d-1*t123*t125*t131*t225*t286+1.172527
1968     4         576309515d-1*t129*t132*t136*t282
1969            fnc(iq) = (2.473556743557577d-2*t120*t138*t66+1.0d+0*t103*t6
1970     1         6-1.0d+0*rhob*t65-1.2367783717787881d-2*rhoa*t39-1.0d+0*r
1971     2         hoa*t26-1.2367783717787881d-2*rhob*t116)*wght+fnc(iq)
1972            Amat(iq,D1_RA) = (2.473556743557577d-2*t120*t212*t232*t66+7.
1973     1         420670230672731d-2*t124*t138*t215*t66+1.0d+0*t210*t66-1.2
1974     2         367783717787881d-2*t39-1.0d+0*t26+t233+t211-1.23677837177
1975     3         87881d-2*rhoa*t159*t171-1.0d+0*rhoa*t158)*wght+Amat(iq,D1
1976     4         _RA)
1977            Amat(iq,D1_RB) = (2.473556743557577d-2*t120*t212*t278*t66+7.
1978     1         420670230672731d-2*t124*t138*t272*t66+1.0d+0*t271*t66-1.0
1979     2         d+0*t65-1.2367783717787881d-2*rhob*t254*t266-1.0d+0*rhob*
1980     3         t253+t233+t211-1.2367783717787881d-2*t116)*wght+Amat(iq,D
1981     4         1_RB)
1982            Cmat(iq,D1_GAA) = (t285-1.2367783717787881d-2*rhoa*t159*t281
1983     1         )*wght+Cmat(iq,D1_GAA)
1984            Cmat(iq,D1_GAB) = 2.473556743557577d-2*t120*t212*t287*t66*wg
1985     1         ht+Cmat(iq,D1_GAB)
1986            Cmat(iq,D1_GBB) = (t285-1.2367783717787881d-2*rhob*t254*t290
1987     1         )*wght+Cmat(iq,D1_GBB)
1988            Amat2(iq,D2_RA_RA) = (t212*(2.473556743557577d-2*t120*(3.424
1989     1         2190004576445d-1*t121*t123*t125*t131*t231**2*t377-1.71210
1990     2         95002288222d-1*t121*t123*t125*t131*t225*(1.75879136446427
1991     3         25d-1*t132*t133*t367*t369*t376+5.862637881547574d-1*t133*
1992     4         t134*t350*t375+t374+t373+t371+t370-5.862637881547574d-2*t
1993     5         127*t132*t133*t230*t369+t366+t365+t364-5.862637881547574d
1994     6         -2*t127*t132*t133*t230*t363+t362+t361+t360+t359+t358-1.17
1995     7         2527576309515d-1*t133*t134*t229*t353+4.69011030523806d-1*
1996     8         t127*t133*t215*t222*t229*t230+5.47179535611107d-1*t127*t1
1997     9         32*t216*t222*t226*t227*t230+1.094359071222214d+0*t134*t21
1998     :         5*t216*t226*t227*t229)+1.7121095002288222d-1*t121*t123*t1
1999     ;         25*t136*(t371+t370+t366+t365+t364+t362+t361+t360+t359+t35
2000     <         8)+t357+t355-3.4242190004576445d-1*t121*t123*t126*t131*t1
2001     =         36*t353+1.0272657001372934d+0*t121*t123*t131*t132*t136*t3
2002     >         50-3.4242190004576445d-1*t121*t123*t125*t224*t225*t231+7.
2003     ?         98984433440117d-1*t121*t125*t131*t216*t217*t225*t231+6.84
2004     @         8438000915289d-1*t121*t123*t126*t131*t215*t225*t231-7.989
2005     1         84433440117d-1*t121*t125*t136*t216*t217*t224-6.8484380009
2006     2         15289d-1*t121*t123*t126*t136*t215*t224+1.5979688668802342
2007     3         d+0*t121*t126*t131*t136*t215*t216*t217)*t66+1.48413404613
2008     4         45462d-1*t124*t215*t232*t66+4.947113487115154d-2*t120*t23
2009     5         2)-2.473556743557577d-2*t120*t232**2*t378*t66+7.420670230
2010     6         672731d-2*t124*t138*t353*t66+1.4841340461345462d-1*t119*t
2011     7         138*t350*t66+1.0d+0*t349*t66+t159*(-1.2367783717787881d-2
2012     8         *rhoa*(-1.0569239417908823d-1*gammaaa*t161*t303*t33*t37+2
2013     9         .2195402777608514d+0*gammaaa*t279*t302*t33*t37+2.71780442
2014     :         17479813d-1*gammaaa*t28*(t311+t310+t309+t308+t307+t306)*t
2015     ;         37-1.268308730149058d+0*gammaaa*t160*t161*t165*t37-2.7178
2016     <         044217479813d-1*gammaaa*t166*t28*t33*(2.0107587937153953d
2017     =         +0*t167*t302*t312*t35-5.745025124901132d-2*t167*t168*t303
2018     >         *t35+2.897369528551698d+3*t304*t305*t34/t30**4.0d+0-9.657
2019     ?         898428505661d+2*t169*t29*t304*t34+1.1944679893212153d+1*t
2020     @         169*t29*t301*t34+t311+t310+t309+t308+t307+t306-1.11483679
2021     1         00331342d+2*t158*t160*t167*t168*t169*t29)+5.4356088434959
2022     2         63d-1*gammaaa*t170**2*t28*t313*t33+1.268308730149058d+0*g
2023     3         ammaaa*t160*t161*t166*t170*t33-5.435608843495963d-1*gamma
2024     4         aa*t165*t166*t170*t28)-2.4735567435575762d-2*t171)+1.2367
2025     5         783717787881d-2*rhoa*t171**2*t314-1.0d+0*rhoa*t301+1.4841
2026     6         340461345462d-1*t124*t138*t215+2.0d+0*t210-2.0d+0*t158)*w
2027     7         ght+Amat2(iq,D2_RA_RA)
2028            Amat2(iq,D2_RA_RB) = (t212*(2.473556743557577d-2*t120*(-1.71
2029     1         21095002288222d-1*t121*t123*t125*t131*t225*(t392+t391+t39
2030     2         0+t389+t388+t387+t386-5.862637881547574d-2*t127*t132*t133
2031     3         *t230*t385+t384+t383+t382+t381-1.172527576309515d-1*t133*
2032     4         t134*t229*t380+1.7587913644642725d-1*t132*t133*t222*t274*
2033     5         t367*t376+5.862637881547574d-1*t133*t134*t215*t272*t375+t
2034     6         374+t373+t362+t361+2.34505515261903d-1*t127*t133*t215*t22
2035     7         9*t230*t274+2.735897678055535d-1*t127*t132*t216*t226*t227
2036     8         *t230*t274-5.862637881547574d-2*t127*t132*t133*t222*t230*
2037     9         t274+2.34505515261903d-1*t127*t133*t222*t229*t230*t272+5.
2038     :         47179535611107d-1*t134*t216*t226*t227*t229*t272+2.7358976
2039     ;         78055535d-1*t127*t132*t216*t222*t226*t227*t230+5.47179535
2040     <         611107d-1*t134*t215*t216*t226*t227*t229)+1.71210950022882
2041     =         22d-1*t121*t123*t125*t136*(t392+t391+t390+t389+t388+t387+
2042     >         t386+t384+t383+t382+t381+t362+t361)-3.4242190004576445d-1
2043     ?         *t121*t123*t126*t131*t136*t380+3.4242190004576445d-1*t121
2044     @         *t123*t125*t131*t231*t277*t377+t357+t355-1.71210950022882
2045     1         22d-1*t121*t123*t125*t224*t225*t277+3.994922167200585d-1*
2046     2         t121*t125*t131*t216*t217*t225*t277+3.4242190004576445d-1*
2047     3         t121*t123*t126*t131*t215*t225*t277-1.7121095002288222d-1*
2048     4         t121*t123*t125*t225*t231*t276-3.994922167200585d-1*t121*t
2049     5         125*t136*t216*t217*t276-3.4242190004576445d-1*t121*t123*t
2050     6         126*t136*t215*t276+3.4242190004576445d-1*t121*t123*t126*t
2051     7         131*t225*t231*t272-3.4242190004576445d-1*t121*t123*t126*t
2052     8         136*t224*t272+7.98984433440117d-1*t121*t126*t131*t136*t21
2053     9         6*t217*t272+1.0272657001372934d+0*t121*t123*t131*t132*t13
2054     :         6*t215*t272+3.994922167200585d-1*t121*t125*t131*t216*t217
2055     ;         *t225*t231-3.994922167200585d-1*t121*t125*t136*t216*t217*
2056     <         t224+7.98984433440117d-1*t121*t126*t131*t136*t215*t216*t2
2057     =         17)*t66+7.420670230672731d-2*t124*t215*t278*t66+7.4206702
2058     >         30672731d-2*t124*t232*t272*t66+2.473556743557577d-2*t120*
2059     ?         t278+2.473556743557577d-2*t120*t232)+7.420670230672731d-2
2060     @         *t124*t138*t380*t66+1.0d+0*t379*t66-2.473556743557577d-2*
2061     1         t120*t232*t278*t378*t66+1.4841340461345462d-1*t119*t138*t
2062     2         215*t272*t66+7.420670230672731d-2*t124*t138*t272+1.0d+0*t
2063     3         271+7.420670230672731d-2*t124*t138*t215+1.0d+0*t210)*wght
2064     4         +Amat2(iq,D2_RA_RB)
2065            Amat2(iq,D2_RB_RB) = (t212*(2.473556743557577d-2*t120*(-1.71
2066     1         21095002288222d-1*t121*t123*t125*t131*t225*(t433+t432+1.7
2067     2         587913644642725d-1*t132*t133*t367*t376*t431-5.86263788154
2068     3         7574d-2*t127*t132*t133*t230*t431+t430+t429+t428-5.8626378
2069     4         81547574d-2*t127*t132*t133*t230*t427+t426+t425+t424-1.172
2070     5         527576309515d-1*t133*t134*t229*t423+5.862637881547574d-1*
2071     6         t133*t134*t375*t422+t374+t373+t362+t361+4.69011030523806d
2072     7         -1*t127*t133*t229*t230*t272*t274+5.47179535611107d-1*t127
2073     8         *t132*t216*t226*t227*t230*t274+1.094359071222214d+0*t134*
2074     9         t216*t226*t227*t229*t272)+1.7121095002288222d-1*t121*t123
2075     :         *t125*t136*(t433+t432+t430+t429+t428+t426+t425+t424+t362+
2076     ;         t361)-3.4242190004576445d-1*t121*t123*t126*t131*t136*t423
2077     <         +1.0272657001372934d+0*t121*t123*t131*t132*t136*t422+3.42
2078     =         42190004576445d-1*t121*t123*t125*t131*t277**2*t377+t357+t
2079     >         355-3.4242190004576445d-1*t121*t123*t125*t225*t276*t277+6
2080     ?         .848438000915289d-1*t121*t123*t126*t131*t225*t272*t277+7.
2081     @         98984433440117d-1*t121*t125*t131*t216*t217*t225*t277-6.84
2082     1         8438000915289d-1*t121*t123*t126*t136*t272*t276-7.98984433
2083     2         440117d-1*t121*t125*t136*t216*t217*t276+1.597968866880234
2084     3         2d+0*t121*t126*t131*t136*t216*t217*t272)*t66+1.4841340461
2085     4         345462d-1*t124*t272*t278*t66+4.947113487115154d-2*t120*t2
2086     5         78)+7.420670230672731d-2*t124*t138*t423*t66+1.48413404613
2087     6         45462d-1*t119*t138*t422*t66+1.0d+0*t421*t66-2.47355674355
2088     7         7577d-2*t120*t278**2*t378*t66+1.2367783717787881d-2*rhob*
2089     8         t266**2*t416+t254*(-1.2367783717787881d-2*rhob*(5.4356088
2090     9         43495963d-1*gammabb*t105*t110*t265**2*t415-2.717804421747
2091     :         9813d-1*gammabb*t105*t110*t261*(2.0107587937153953d+0*t11
2092     ;         2*t262*t404*t414+t413+t412+t411+t410+t409+t408+2.89736952
2093     <         8551698d+3*t111*t406*t407/t107**4.0d+0-9.657898428505661d
2094     =         +2*t106*t111*t264*t406-5.745025124901132d-2*t112*t262*t26
2095     >         3*t405+1.1944679893212153d+1*t106*t111*t264*t403-1.114836
2096     ?         7900331342d+2*t106*t253*t255*t262*t263*t264)+2.7178044217
2097     @         479813d-1*gammabb*t105*t114*(t413+t412+t411+t410+t409+t40
2098     1         8)-1.0569239417908823d-1*gammabb*t110*t114*t256*t405+2.21
2099     2         95402777608514d+0*gammabb*t110*t114*t288*t404-5.435608843
2100     3         495963d-1*gammabb*t105*t260*t261*t265+1.268308730149058d+
2101     4         0*gammabb*t110*t255*t256*t261*t265-1.268308730149058d+0*g
2102     5         ammabb*t114*t255*t256*t260)-2.4735567435575762d-2*t266)-1
2103     6         .0d+0*rhob*t403+1.4841340461345462d-1*t124*t138*t272+2.0d
2104     7         +0*t271-2.0d+0*t253)*wght+Amat2(iq,D2_RB_RB)
2105            Cmat2(iq,D2_RA_GAA) = (t445+t436+t159*(-1.2367783717787881d-
2106     1         2*rhoa*(-2.7178044217479813d-1*gammaaa*t166*t28*t33*(t435
2107     2         +t434-6.894030149881355d-1*gammaaa*t160*t168*t35+2.388935
2108     3         9786424305d+1*gammaaa*t158*t169*t279*t29)+2.7178044217479
2109     4         813d-1*gammaaa*t28*t37*(t435+t434)-6.34154365074529d-1*t1
2110     5         60*t161*t33*t37-1.7235075374703387d-1*gammaaa*t160*t168*t
2111     6         31*t37+2.7178044217479813d-1*t165*t28*t37+5.4356088434959
2112     7         63d-1*gammaaa*t170*t28*t280*t313*t33+6.34154365074529d-1*
2113     8         gammaaa*t160*t161*t166*t280*t33-2.7178044217479813d-1*t16
2114     9         6*t170*t28*t33-7.386460874872879d-2*gammaaa*t166*t170*t27
2115     :         9*t31-2.7178044217479813d-1*gammaaa*t165*t166*t28*t280)-1
2116     ;         .2367783717787881d-2*t281)+1.2367783717787881d-2*rhoa*t17
2117     <         1*t281*t314)*wght+Cmat2(iq,D2_RA_GAA)
2118            Cmat2(iq,D2_RA_GAB) = (t212*(2.473556743557577d-2*t120*(-1.7
2119     1         121095002288222d-1*t121*t123*t125*t131*t225*(t453+t452+t4
2120     2         51+t450-2.34505515261903d-1*t121*t127*t132*t222*t230*t282
2121     3         -4.69011030523806d-1*t121*t134*t215*t229*t282)+1.71210950
2122     4         02288222d-1*t121*t123*t125*t136*(t452+t451+t450)+t449+t44
2123     5         8+t447+3.4242190004576445d-1*t121*t123*t125*t131*t231*t28
2124     6         6*t377-1.7121095002288222d-1*t121*t123*t125*t224*t225*t28
2125     7         6+3.4242190004576445d-1*t121*t123*t126*t131*t215*t225*t28
2126     8         6-5.862637881547574d-2*t121*t129*t132*t225*t231*t282-1.17
2127     9         2527576309515d-1*t121*t129*t136*t215*t229*t282-3.42421900
2128     :         04576445d-1*t123*t125*t131*t225*t231+3.4242190004576445d-
2129     ;         1*t123*t125*t136*t224-6.848438000915289d-1*t123*t126*t131
2130     <         *t136*t215)*t66+7.420670230672731d-2*t124*t215*t287*t66+t
2131     =         446)-2.473556743557577d-2*t120*t232*t287*t378*t66)*wght+C
2132     >         mat2(iq,D2_RA_GAB)
2133            Cmat2(iq,D2_RA_GBB) = (t445+t436)*wght+Cmat2(iq,D2_RA_GBB)
2134            Cmat2(iq,D2_RB_GAA) = (t457+t454)*wght+Cmat2(iq,D2_RB_GAA)
2135            Cmat2(iq,D2_RB_GAB) = (t212*(2.473556743557577d-2*t120*(-1.7
2136     1         121095002288222d-1*t121*t123*t125*t131*t225*(t459+t458+t4
2137     2         53+t451-2.34505515261903d-1*t121*t127*t132*t230*t274*t282
2138     3         -4.69011030523806d-1*t121*t134*t229*t272*t282)+1.71210950
2139     4         02288222d-1*t121*t123*t125*t136*(t459+t458+t451)+t449+t44
2140     5         8+t447+3.4242190004576445d-1*t121*t123*t125*t131*t277*t28
2141     6         6*t377-1.7121095002288222d-1*t121*t123*t125*t225*t276*t28
2142     7         6+3.4242190004576445d-1*t121*t123*t126*t131*t225*t272*t28
2143     8         6-5.862637881547574d-2*t121*t129*t132*t225*t277*t282-1.17
2144     9         2527576309515d-1*t121*t129*t136*t229*t272*t282-3.42421900
2145     :         04576445d-1*t123*t125*t131*t225*t277+3.4242190004576445d-
2146     ;         1*t123*t125*t136*t276-6.848438000915289d-1*t123*t126*t131
2147     <         *t136*t272)*t66+7.420670230672731d-2*t124*t272*t287*t66+t
2148     =         446)-2.473556743557577d-2*t120*t278*t287*t378*t66)*wght+C
2149     >         mat2(iq,D2_RB_GAB)
2150            Cmat2(iq,D2_RB_GBB) = (t254*(-1.2367783717787881d-2*rhob*(-2
2151     1         .7178044217479813d-1*gammabb*t105*t110*t261*(t461+t460+2.
2152     2         3889359786424305d+1*gammabb*t106*t253*t264*t288-6.8940301
2153     3         49881355d-1*gammabb*t112*t255*t263)+2.7178044217479813d-1
2154     4         *gammabb*t105*t114*(t461+t460)+5.435608843495963d-1*gamma
2155     5         bb*t105*t110*t265*t289*t415-2.7178044217479813d-1*gammabb
2156     6         *t105*t260*t261*t289+6.34154365074529d-1*gammabb*t110*t25
2157     7         5*t256*t261*t289-7.386460874872879d-2*gammabb*t108*t261*t
2158     8         265*t288-2.7178044217479813d-1*t105*t110*t261*t265-1.7235
2159     9         075374703387d-1*gammabb*t108*t114*t255*t263+2.71780442174
2160     :         79813d-1*t105*t114*t260-6.34154365074529d-1*t110*t114*t25
2161     ;         5*t256)-1.2367783717787881d-2*t290)+t457+t454+1.236778371
2162     <         7787881d-2*rhob*t266*t290*t416)*wght+Cmat2(iq,D2_RB_GBB)
2163            Cmat2(iq,D2_GAA_GAA) = (t465+t462-1.2367783717787881d-2*rhoa
2164     1         *t159*(1.4772921749745757d-1*t279*t31*t37-4.0149912053595
2165     2         95d-2*gammaaa*t166*t312*t33*t35+5.435608843495963d-1*gamm
2166     3         aaa*t28*t280**2*t313*t33-5.435608843495963d-1*t166*t28*t2
2167     4         80*t33-1.4772921749745757d-1*gammaaa*t166*t279*t280*t31)+
2168     5         1.2367783717787881d-2*rhoa*t281**2*t314)*wght+Cmat2(iq,D2
2169     6         _GAA_GAA)
2170            Cmat2(iq,D2_GAA_GAB) = (2.473556743557577d-2*t120*t212*t466*
2171     1         t66-2.473556743557577d-2*t120*t284*t287*t378*t66)*wght+Cm
2172     2         at2(iq,D2_GAA_GAB)
2173            Cmat2(iq,D2_GAA_GBB) = (t465+t462)*wght+Cmat2(iq,D2_GAA_GBB)
2174            Cmat2(iq,D2_GAB_GAB) = -2.473556743557577d-2*t120*t287**2*t3
2175     1         78*t66*wght+2.473556743557577d-2*t120*t212*(3.42421900045
2176     2         76445d-1*t121*t123*t125*t131*t286**2*t377-4.0149912053595
2177     3         92d-2*t121*t131*t134*t225*t372*t375-1.172527576309515d-1*
2178     4         t121*t129*t132*t225*t282*t286-6.848438000915289d-1*t123*t
2179     5         125*t131*t225*t286+2.34505515261903d-1*t129*t132*t136*t28
2180     6         2)*t66*wght+Cmat2(iq,D2_GAB_GAB)
2181            Cmat2(iq,D2_GAB_GBB) = 2.473556743557577d-2*t120*t212*t466*t
2182     1         66*wght-2.473556743557577d-2*t120*t284*t287*t378*t66*wght
2183     2         +Cmat2(iq,D2_GAB_GBB)
2184            Cmat2(iq,D2_GBB_GBB) = (t465+t462+1.2367783717787881d-2*rhob
2185     1         *t290**2*t416-1.2367783717787881d-2*rhob*t254*(5.43560884
2186     2         3495963d-1*gammabb*t105*t110*t289**2*t415-4.0149912053595
2187     3         95d-2*gammabb*t110*t112*t261*t414-1.4772921749745757d-1*g
2188     4         ammabb*t108*t261*t288*t289-5.435608843495963d-1*t105*t110
2189     5         *t261*t289+1.4772921749745757d-1*t108*t114*t288))*wght+Cm
2190     6         at2(iq,D2_GBB_GBB)
2191          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
2192            fnc(iq) = fnc(iq)
2193            Amat(iq,D1_RA) = Amat(iq,D1_RA)
2194            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)
2195            Amat2(iq,D2_RA_RA) = Amat2(iq,D2_RA_RA)
2196            Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA)
2197            Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA)
2198          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
2199            fnc(iq) = fnc(iq)
2200            Amat(iq,D1_RB) = Amat(iq,D1_RB)
2201            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)
2202            Amat2(iq,D2_RB_RB) = Amat2(iq,D2_RB_RB)
2203            Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB)
2204            Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB)
2205          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
2206        endif ! ipol.eq.1
2207      enddo ! iq
2208      end
2209C>
2210C> \brief Evaluate the nwxcm_c_opt functional [1]
2211C>
2212C> \f{eqnarray*}{
2213C>   {\it t_1} &=& \rho_\alpha^{0.3333333333333333}\\\\
2214C>   {\it t_2} &=& \sqrt{{\it t_1}}\\\\
2215C>   {\it t_3} &=& {{1}\over{{\it t_2}}}\\\\
2216C>   {\it t_4} &=& {{1}\over{{\it t_1}}}\\\\
2217C>   {\it t_5} &=& \log \left({{1.269642451250142\,{\it t_2}}
2218C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
2219C>    \left(0.02414199311453321\,{\it t_3}+0.10186556948\right)\,{
2220C>    \it t_3}+0.22308199064\right)\,{\it t_3}+0.47231125998}}
2221C>    +1.0\right)\\\\
2222C>   {\it t_6} &=& 0.1325688999052018\,{\it t_4}+1.0\\\\
2223C>   {\it t_7} &=& \log \left({{1.269642451250142\,{\it t_2}}
2224C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
2225C>    \left(0.01321299881039884\,{\it t_3}+0.029729725188\right)
2226C>    \,{\it t_3}+0.12236585478\right)\,{\it t_3}+0.3497952466}}
2227C>    +1.0\right)\\\\
2228C>   {\it t_8} &=& 0.06901399211255826\,{\it t_4}+1.0\\\\
2229C>   {\it t_9} &=& 0.5848223622634643\,\left(0.0337738\,{\it t_7}
2230C>    \,{\it t_8}+1.0\,\left(1.709920934161365\,\left(0.0621814\,{
2231C>    \it t_5}\,{\it t_6}-0.0310907\,\log \left({{1.269642451250142
2232C>    \,{\it t_2}}\over{0.7876233178997433\,\left(0.7876233178997433
2233C>    \,\left(0.01530901310039024\,{\it t_3}+0.10465751434\right)
2234C>    \,{\it t_3}+0.19269083139\right)\,{\it t_3}+0.43896648423}}
2235C>    +1.0\right)\,\left(0.1274696188700087\,{\it t_4}
2236C>    +1.0\right)\right)-0.0337738\,{\it t_7}\,{\it t_8}\right)\right)
2237C>    -0.0621814\,{\it t_5}\,{\it t_6}\\\\
2238C>   {\it t_{10}} &=& \rho_\beta^{0.3333333333333333}\\\\
2239C>   {\it t_{11}} &=& \sqrt{{\it t_{10}}}\\\\
2240C>   {\it t_{12}} &=& {{1}\over{{\it t_{11}}}}\\\\
2241C>   {\it t_{13}} &=& {{1}\over{{\it t_{10}}}}\\\\
2242C>   {\it t_{14}} &=& \log \left({{1.269642451250142\,{
2243C>    \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433
2244C>    \,\left(0.02414199311453321\,{\it t_{12}}+0.10186556948\right)
2245C>    \,{\it t_{12}}+0.22308199064\right)\,{\it t_{12}}
2246C>    +0.47231125998}}+1.0\right)\\\\
2247C>   {\it t_{15}} &=& 0.1325688999052018\,{\it t_{13}}+1.0\\\\
2248C>   {\it t_{16}} &=& \log \left({{1.269642451250142\,{
2249C>    \it t_{11}}}\over{0.7876233178997433\,\left(0.7876233178997433
2250C>    \,\left(0.01321299881039884\,{\it t_{12}}
2251C>    +0.029729725188\right)\,{\it t_{12}}+0.12236585478\right)\,{
2252C>    \it t_{12}}+0.3497952466}}+1.0\right)\\\\
2253C>   {\it t_{17}} &=& 0.06901399211255826\,{\it t_{13}}+1.0\\\\
2254C>   {\it t_{18}} &=& 0.5848223622634643\,\left(0.0337738\,{
2255C>    \it t_{16}}\,{\it t_{17}}+1.0\,\left(1.709920934161365\,
2256C>    \left(0.0621814\,{\it t_{14}}\,{\it t_{15}}-0.0310907
2257C>    \,\log \left({{1.269642451250142\,{\it t_{11}}}
2258C>    \over{0.7876233178997433\,\left(0.7876233178997433\,
2259C>    \left(0.01530901310039024\,{\it t_{12}}+0.10465751434\right)
2260C>    \,{\it t_{12}}+0.19269083139\right)\,{\it t_{12}}
2261C>    +0.43896648423}}+1.0\right)\,\left(0.1274696188700087\,{
2262C>    \it t_{13}}+1.0\right)\right)-0.0337738\,{\it t_{16}}\,{
2263C>    \it t_{17}}\right)\right)-0.0621814\,{\it t_{14}}\,{
2264C>    \it t_{15}}\\\\
2265C>   {\it t_{19}} &=& \rho_\beta+\rho_\alpha\\\\
2266C>   {\it t_{20}} &=& {\it t_{19}}^{0.3333333333333333}\\\\
2267C>   {\it t_{21}} &=& {{1}\over{{\it t_{20}}}}\\\\
2268C>   {\it t_{22}} &=& 0.1325688999052018\,{\it t_{21}}+1.0\\\\
2269C>   {\it t_{23}} &=& \sqrt{{\it t_{20}}}\\\\
2270C>   {\it t_{24}} &=& {{1}\over{{\it t_{23}}}}\\\\
2271C>   {\it t_{25}} &=& \log \left({{1.269642451250142\,{
2272C>    \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\,
2273C>    \left(0.7876233178997433\,{\it t_{24}}\,
2274C>    \left(0.02414199311453321\,{\it t_{24}}+0.10186556948\right)
2275C>    +0.22308199064\right)+0.47231125998}}+1.0\right)\\\\
2276C>   {\it t_{26}} &=& \rho_\alpha-\rho_\beta\\\\
2277C>   {\it t_{27}} &=& {{1}\over{{\it t_{19}}}}\\\\
2278C>   {\it t_{28}} &=& 1.0-{\it t_{26}}\,{\it t_{27}}\\\\
2279C>   {\it t_{29}} &=& {\it t_{26}}\,{\it t_{27}}+1.0\\\\
2280C>   {\it t_{30}} &=& 0.06901399211255826\,{\it t_{21}}+1.0\\\\
2281C>   {\it t_{31}} &=& \log \left({{1.269642451250142\,{
2282C>    \it t_{23}}}\over{0.7876233178997433\,{\it t_{24}}\,
2283C>    \left(0.7876233178997433\,{\it t_{24}}\,
2284C>    \left(0.01321299881039884\,{\it t_{24}}+0.029729725188\right)
2285C>    +0.12236585478\right)+0.3497952466}}+1.0\right)\\\\
2286C>   {\it t_{32}} &=& 0.5848223622634648\,\left(1.923661050931536
2287C>    \,{\it t_{29}}^{{{4}\over{3}}}+1.923661050931536\,{
2288C>    \it t_{28}}^{{{4}\over{3}}}-3.847322101863072\right)\,
2289C>    \left({{{\it t_{26}}^4\,\left(1.709920934161365\,
2290C>    \left(0.0621814\,{\it t_{22}}\,{\it t_{25}}-0.0310907\,
2291C>    \left(0.1274696188700087\,{\it t_{21}}+1.0\right)\,\log
2292C>    \left({{1.269642451250142\,{\it t_{23}}}
2293C>    \over{0.7876233178997433\,{\it t_{24}}\,
2294C>    \left(0.7876233178997433\,{\it t_{24}}\,
2295C>    \left(0.01530901310039024\,{\it t_{24}}+0.10465751434\right)
2296C>    +0.19269083139\right)+0.43896648423}}+1.0\right)\right)
2297C>    -0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)}\over{{
2298C>    \it t_{19}}^4}}+0.0337738\,{\it t_{30}}\,{\it t_{31}}\right)
2299C>    -0.0621814\,{\it t_{22}}\,{\it t_{25}}\\\\
2300C>   {\it t_{33}} &=& {{1}\over{
2301C>    \left(\rho_\alpha^{1.166666666666667}\right)^{2.0}}}\\\\
2302C>   {\it t_{34}} &=& {{1}\over{e^{80.85523023512745\,{\it t_9}}}}
2303C>    -1.0\\\\
2304C>   {\it t_{35}} &=& {{0.2717804421747981\,{\it t_{33}}\,
2305C>    \sigma_{\alpha\alpha}}\over{{\it t_{34}}}}\\\\
2306C>   {\it t_{36}} &=& {{1}\over{
2307C>    \left(\rho_\beta^{1.166666666666667}\right)^{2.0}}}\\\\
2308C>   {\it t_{37}} &=& {{1}\over{e^{80.85523023512745\,{\it t_{18}}}}}
2309C>    -1.0\\\\
2310C>   {\it t_{38}} &=& {{0.2717804421747981\,{\it t_{36}}\,
2311C>    \sigma_{\beta\beta}}\over{{\it t_{37}}}}\\\\
2312C>   {\it t_{39}} &=& 0.5\,{\it t_{29}}^{{{2}\over{3}}}+0.5\,{
2313C>    \it t_{28}}^{{{2}\over{3}}}\\\\
2314C>   {\it t_{40}} &=& {\it t_{39}}^{3.0}\\\\
2315C>   {\it t_{41}} &=& {{1}\over{\left({
2316C>    \it t_{19}}^{1.166666666666667}\right)^{2.0}}}\\\\
2317C>   {\it t_{42}} &=& {{1}\over{{\it t_{39}}^{2.0}}}\\\\
2318C>   {\it t_{43}} &=& \sigma_{\beta\beta}+2.0\,\sigma_{\alpha\beta}
2319C>    +\sigma_{\alpha\alpha}\\\\
2320C>   {\it t_{44}} &=& {{1}\over{e^{{{40.42761511756372\,{
2321C>    \it t_{32}}}\over{{\it t_{40}}}}}}}-1.0\\\\
2322C>   {\it t_{45}} &=& {{0.1712109500228822\,{\it t_{41}}\,{
2323C>    \it t_{42}}\,{\it t_{43}}}\over{{\it t_{44}}}}\\\\
2324C>   f &=& 0.02473556743557577\,{\it t_{19}}\,{\it t_{40}}
2325C>    \,\log \left({{0.1712109500228822\,{\it t_{41}}\,{\it t_{42}}
2326C>    \,{\it t_{43}}\,\left({\it t_{45}}+1.0\right)}
2327C>    \over{{{0.02931318940773787\,\left({\it t_{41}}\,{
2328C>    \it t_{43}}\right)^{2.0}}\over{{\it t_{39}}^{4.0}\,{
2329C>    \it t_{44}}^{2.0}}}+{\it t_{45}}+1.0}}+1.0\right)
2330C>    -0.01236778371778788\,\rho_\beta\,\log
2331C>    \left({{0.2717804421747981\,{\it t_{36}}\,\sigma_{\beta\beta}
2332C>    \,\left({\it t_{38}}+1.0\right)}\over{{{0.0738646087487288
2333C>    \,\left({\it t_{36}}\,\sigma_{\beta\beta}\right)^{2.0}}
2334C>    \over{{\it t_{37}}^{2.0}}}+{\it t_{38}}+1.0}}+1.0\right)
2335C>    -0.01236778371778788\,\rho_\alpha\,\log
2336C>    \left({{0.2717804421747981\,{\it t_{33}}\,
2337C>    \sigma_{\alpha\alpha}\,\left({\it t_{35}}+1.0\right)}
2338C>    \over{{{0.0738646087487288\,\left({\it t_{33}}\,
2339C>    \sigma_{\alpha\alpha}\right)^{2.0}}\over{{\it t_{34}}^{2.0}}}
2340C>    +{\it t_{35}}+1.0}}+1.0\right)+1.0\,{\it t_{19}}\,{\it t_{32}}
2341C>    -1.0\,{\it t_{18}}\,\rho_\beta-1.0\,{\it t_9}\,\rho_\alpha\\\\
2342C>   g &=& 0\\\\
2343C>   G &=& 0.0\\\\
2344C> \f}
2345C>
2346C> Code generated with Maxima 5.34.0 [2]
2347C> driven by autoxc [3].
2348C>
2349C> ### References ###
2350C>
2351C> [1] NC Handy, AJ Cohen, Mol.Phys. 99, 607 (2001)  , DOI:
2352C> <a href="https://doi.org/10.1080/00268970010023435 ">
2353C> 10.1080/00268970010023435 </a>
2354C>
2355C> [2] Maxima, a computer algebra system,
2356C> <a href="http://maxima.sourceforge.net/">
2357C> http://maxima.sourceforge.net/</a>
2358C>
2359C> [3] autoxc, revision 27097 2015-05-08
2360C>
2361      subroutine nwxcm_c_opt_d3(param,tol_rho,ipol,nq,wght,
2362     +rho,rgamma,fnc,Amat,Amat2,Amat3,
2363     +Cmat,Cmat2,Cmat3)
2364c $Id: $
2365#ifdef NWXC_QUAD_PREC
2366      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
2367      integer, parameter :: rk=selected_real_kind(30)
2368#else
2369      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
2370      integer, parameter :: rk=selected_real_kind(15)
2371#endif
2372#include "nwxc_param.fh"
2373      double precision param(*)     !< [Input] Parameters of functional
2374      double precision tol_rho      !< [Input] The lower limit on the density
2375      integer ipol                  !< [Input] The number of spin channels
2376      integer nq                    !< [Input] The number of points
2377      double precision wght         !< [Input] The weight of the functional
2378      double precision rho(nq,*)    !< [Input] The density
2379      double precision rgamma(nq,*) !< [Input] The norm of the density
2380                                    !< gradients
2381      double precision fnc(nq)      !< [Output] The value of the functional
2382c
2383c     Sampling Matrices for the XC Kernel
2384c
2385      double precision Amat(nq,*)   !< [Output] The derivative wrt rho
2386      double precision Cmat(nq,*)   !< [Output] The derivative wrt rgamma
2387c
2388c     Sampling Matrices for the XC Kernel
2389c
2390      double precision Amat2(nq,*)  !< [Output] The 2nd derivative wrt rho
2391      double precision Cmat2(nq,*)  !< [Output] The 2nd derivative wrt rgamma
2392                                    !< and possibly rho
2393c
2394c     Sampling Matrices for the XC Kernel
2395c
2396      double precision Amat3(nq,*)  !< [Output] The 3rd derivative wrt rho
2397      double precision Cmat3(nq,*)  !< [Output] The 3rd derivative wrt rgamma
2398                                    !< and possibly rho
2399      integer iq
2400      double precision tmp
2401      double precision rhoa,rhob
2402      double precision gammaaa,gammaab,gammabb
2403      double precision taua,taub
2404      double precision nwxcm_heaviside
2405      external         nwxcm_heaviside
2406CDIR$ NOVECTOR
2407      do iq = 1, nq
2408        if (ipol.eq.1) then
2409          rhoa    = 0.5d0*rho(iq,R_T)
2410          gammaaa = 0.25d0*rgamma(iq,G_TT)
2411          if (rhoa.gt.tol_rho) then
2412            t1 = rhoa**3.333333333333333d-1
2413            t2 = t1**5.0d-1
2414            t3 = 1/t2
2415            t4 = 1.530901310039024d-2*t3+1.0465751434d-1
2416            t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1
2417            t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1
2418            t7 = 1/t6
2419            t8 = 1.269642451250142d+0*t2*t7+1.0d+0
2420            t9 = log(t8)
2421            t10 = 1/t1
2422            t11 = 1.2746961887000874d-1*t10+1.0d+0
2423            t12 = 2.4141993114533214d-2*t3+1.0186556948d-1
2424            t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1
2425            t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1
2426            t15 = 1/t14
2427            t16 = 1.269642451250142d+0*t15*t2+1.0d+0
2428            t17 = log(t16)
2429            t18 = 1.325688999052018d-1*t10+1.0d+0
2430            t19 = 1.3212998810398843d-2*t3+2.9729725188d-2
2431            t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1
2432            t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1
2433            t22 = 1/t21
2434            t23 = 1.269642451250142d+0*t2*t22+1.0d+0
2435            t24 = log(t23)
2436            t25 = 6.901399211255826d-2*t10+1.0d+0
2437            t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
2438     1         21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3
2439     2         .37738d-2*t24*t25)-6.21814d-2*t17*t18
2440            t27 = log(1.4251254664507676d+0*t2/(7.016926042943223d-1*t3*
2441     1         (7.016926042943223d-1*(2.150807071909054d-2*t3+1.01865569
2442     2         48d-1)*t3+2.2308199064d-1)+4.7231125998d-1)+1.0d+0)
2443            t28 = 1.0522000558389215d-1*t10+1.0d+0
2444            t29 = rhoa**1.1666666666666667d+0
2445            t30 = 1/t29**2.0d+0
2446            t31 = exp(-8.085523023512745d+1*t26)
2447            t32 = t31-1.0d+0
2448            t33 = 1/t32
2449            t34 = 2.7178044217479813d-1*gammaaa*t30*t33
2450            t35 = t34+1.0d+0
2451            t36 = (gammaaa*t30)**2.0d+0
2452            t37 = 1/t32**2.0d+0
2453            t38 = 7.38646087487288d-2*t36*t37+t34+1.0d+0
2454            t39 = 1/t38
2455            t40 = 2.7178044217479813d-1*gammaaa*t30*t35*t39+1.0d+0
2456            t41 = log(t40)
2457            t42 = exp(2.5138457066712766d+0*t27*t28)-1.0d+0
2458            t43 = 1.35890221087399d-1*gammaaa*t30/t42
2459            t44 = 2.1508070719090538d-2*t3+1.0186556948d-1
2460            t45 = 7.016926042943222d-1*t3*t44+2.2308199064d-1
2461            t46 = 7.016926042943222d-1*t3*t45+4.7231125998d-1
2462            t47 = 1/t46
2463            t48 = 1.425125466450768d+0*t2*t47+1.0d+0
2464            t49 = log(t48)
2465            t50 = 1.0522000558389213d-1*t10+1.0d+0
2466            t51 = 1/rhoa**1.3333333333333333d+0
2467            t52 = 1/t48
2468            t53 = 1/t46**2
2469            t54 = 1/rhoa**1.3333333333333336d+0
2470            t55 = 1/t2**3
2471            t56 = 1/rhoa**6.666666666666667d-1
2472            t57 = -5.847438369119352d-2*t44*t55*t56-1.2576711796854242d-
2473     1         3*t54
2474            t58 = 7.016926042943222d-1*t3*t57-5.847438369119352d-2*t45*t
2475     1         55*t56
2476            t59 = 1.1876045553756398d-1*t3*t47*t56-1.425125466450768d+0*
2477     1         t2*t53*t58
2478            t60 = 1.090454542535705d-3*t49*t51-6.21814d-2*t50*t52*t59
2479            t61 = 1/t8
2480            t62 = 1/t6**2
2481            t63 = -1.3127055298329054d-1*t4*t55*t56-2.0096226153166658d-
2482     1         3*t54
2483            t64 = 7.876233178997433d-1*t3*t63-1.3127055298329054d-1*t5*t
2484     1         55*t56
2485            t65 = 2.11607075208357d-1*t3*t56*t7-1.269642451250142d+0*t2*
2486     1         t62*t64
2487            t66 = 1/t16
2488            t67 = 1/t14**2
2489            t68 = -1.3127055298329054d-1*t12*t55*t56-3.169132786263567d-
2490     1         3*t54
2491            t69 = 7.876233178997433d-1*t3*t68-1.3127055298329054d-1*t13*
2492     1         t55*t56
2493            t70 = 2.11607075208357d-1*t15*t3*t56-1.269642451250142d+0*t2
2494     1         *t67*t69
2495            t71 = 1/t23
2496            t72 = 1/t21**2
2497            t73 = -1.3127055298329054d-1*t19*t55*t56-1.7344776604086162d
2498     1         -3*t54
2499            t74 = 7.876233178997433d-1*t3*t73-1.3127055298329054d-1*t20*
2500     1         t55*t56
2501            t75 = 2.11607075208357d-1*t22*t3*t56-1.269642451250142d+0*t2
2502     1         *t72*t74
2503            t76 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1.
2504     1         3210398931339265d-3*t51*t9+6.21814d-2*t18*t66*t70-3.10907
2505     2         d-2*t11*t61*t65-2.747773264188438d-3*t17*t51)-3.37738d-2*
2506     3         t25*t71*t75+7.769549222703733d-4*t24*t51)+3.37738d-2*t25*
2507     4         t71*t75-7.769549222703733d-4*t24*t51)-6.21814d-2*t18*t66*
2508     5         t70+2.747773264188438d-3*t17*t51
2509            t77 = 1/t40
2510            t78 = rhoa**1.6666666666666674d-1
2511            t79 = 1/t29**3.0d+0
2512            t80 = -6.34154365074529d-1*gammaaa*t33*t78*t79
2513            t81 = 1/t32**2
2514            t82 = 2.1974870225448048d+1*gammaaa*t30*t31*t76*t81
2515            t83 = t82+t80
2516            t84 = 1/t38**2
2517            t85 = gammaaa**2
2518            t86 = 1/t29**5.0d+0
2519            t87 = 1/t32**3.0d+0
2520            t88 = 1.1944679893212153d+1*t31*t36*t76*t87-3.44701507494067
2521     1         75d-1*t37*t78*t85*t86+t82+t80
2522            t89 = -2.7178044217479813d-1*gammaaa*t30*t35*t84*t88+2.71780
2523     1         44217479813d-1*gammaaa*t30*t39*t83-6.34154365074529d-1*ga
2524     2         mmaaa*t35*t39*t78*t79
2525            t90 = exp(2.5138457066712766d+0*t49*t50)
2526            t91 = t90-1.0d+0
2527            t92 = 1/t91
2528            t93 = 1.3589022108739904d-1*gammaaa*t30*t92
2529            t94 = t93+1.0d+0
2530            t95 = 1/t91**2.0d+0
2531            t96 = 1.8466152187182186d-2*t36*t95+t93+1.0d+0
2532            t97 = 1/t96
2533            t98 = 1.3589022108739904d-1*gammaaa*t30*t94*t97+1.0d+0
2534            t99 = 1/t98
2535            t100 = -1.585385912686322d-1*gammaaa*t78*t79*t92
2536            t101 = 1/t91**2
2537            t102 = 5.493717556362009d+0*gammaaa*t101*t30*t60*t90
2538            t103 = t102+t100
2539            t104 = 1/t96**2
2540            t105 = 1/t91**3.0d+0
2541            t106 = -4.308768843675843d-2*t78*t85*t86*t95+1.4930849866515
2542     1         178d+0*t105*t36*t60*t90+t102+t100
2543            t107 = -1.585385912686322d-1*gammaaa*t78*t79*t94*t97+1.35890
2544     1         22108739904d-1*gammaaa*t103*t30*t97-1.3589022108739904d-1
2545     2         *gammaaa*t104*t106*t30*t94
2546            t108 = log(t98)
2547            t109 = 1/t29**4.0d+0
2548            t110 = 1.477292174974576d-1*gammaaa*t109*t37+2.7178044217479
2549     1         813d-1*t30*t33
2550            t111 = -2.7178044217479813d-1*gammaaa*t110*t30*t35*t84+2.717
2551     1         8044217479813d-1*t30*t35*t39+7.386460874872879d-2*gammaaa
2552     2         *t109*t33*t39
2553            t112 = 9.233076093591093d-3*gammaaa*t109*t95+3.3972555271849
2554     1         76d-2*t30*t92
2555            t113 = 3.397255527184976d-2*t30*t94*t97+4.6165380467955464d-
2556     1         3*gammaaa*t109*t92*t97-1.3589022108739904d-1*gammaaa*t104
2557     2         *t112*t30*t94
2558            t114 = 1.8466152187182186d-2*gammaaa*t109*t95+6.794511054369
2559     1         952d-2*t30*t92
2560            t115 = 6.794511054369952d-2*t30*t94*t97+9.233076093591093d-3
2561     1         *gammaaa*t109*t92*t97-1.3589022108739904d-1*gammaaa*t104*
2562     2         t114*t30*t94
2563            t116 = 2.0d+0*t60
2564            t117 = 1/rhoa**2.333333333333333d+0
2565            t118 = -7.269696950238034d-4*t117*t49
2566            t119 = 1.1771443702974158d-2*t3+2.9729725188d-2
2567            t120 = 7.016926042943222d-1*t119*t3+1.2236585478d-1
2568            t121 = 7.016926042943222d-1*t120*t3+3.497952466d-1
2569            t122 = 1/t121
2570            t123 = 1.425125466450768d+0*t122*t2+1.0d+0
2571            t124 = log(t123)
2572            t125 = 5.477644184000001d-2*t10+1.0d+0
2573            t126 = 1/rhoa**2
2574            t127 = 2.18090908507141d-3*t51*t52*t59
2575            t128 = 1/t48**2
2576            t129 = t59**2
2577            t130 = 6.21814d-2*t128*t129*t50
2578            t131 = 1/t46**3
2579            t132 = t58**2
2580            t133 = 1/rhoa**2.3333333333333334d+0
2581            t134 = 1/rhoa**1.6666666666666669d+0
2582            t135 = 1/t2**5
2583            t136 = 1.949146123039784d-2*t134*t44*t55+1.4618595922798375d
2584     1         -2*t135*t44*t54+9.432533847640683d-4*t133
2585            t137 = -1.1694876738238703d-1*t55*t56*t57+1.949146123039784d
2586     1         -2*t134*t45*t55+1.4618595922798375d-2*t135*t45*t54+7.0169
2587     2         26042943222d-1*t136*t3
2588            t138 = -2.3752091107512796d-1*t3*t53*t56*t58-9.8967046281303
2589     1         28d-3*t47*t54*t55-1.425125466450768d+0*t137*t2*t53-3.9586
2590     2         818512521327d-2*t134*t3*t47+2.850250932901536d+0*t131*t13
2591     3         2*t2
2592            t139 = -6.21814d-2*t138*t50*t52
2593            t140 = t139+t130+t127+8.443450000000001d-3*t124*t125*t126+t1
2594     1         18
2595            t141 = 1/t8**2
2596            t142 = t65**2
2597            t143 = 1/t6**3
2598            t144 = t64**2
2599            t145 = 8.751370198886037d-2*t134*t4*t55+6.563527649164527d-2
2600     1         *t135*t4*t54+3.0144339229749983d-3*t133
2601            t146 = -2.625411059665811d-1*t55*t56*t63+8.751370198886037d-
2602     1         2*t134*t5*t55+6.563527649164527d-2*t135*t5*t54+7.87623317
2603     2         8997433d-1*t145*t3
2604            t147 = -3.52678458680595d-2*t54*t55*t7-1.4107138347223802d-1
2605     1         *t134*t3*t7-4.23214150416714d-1*t3*t56*t62*t64-1.26964245
2606     2         1250142d+0*t146*t2*t62+2.539284902500284d+0*t143*t144*t2
2607            t148 = 1/t16**2
2608            t149 = t70**2
2609            t150 = 1/t14**3
2610            t151 = t69**2
2611            t152 = 8.751370198886037d-2*t12*t134*t55+6.563527649164527d-
2612     1         2*t12*t135*t54+4.753699179395351d-3*t133
2613            t153 = -2.625411059665811d-1*t55*t56*t68+8.751370198886037d-
2614     1         2*t13*t134*t55+6.563527649164527d-2*t13*t135*t54+7.876233
2615     2         178997433d-1*t152*t3
2616            t154 = -4.23214150416714d-1*t3*t56*t67*t69-1.269642451250142
2617     1         d+0*t153*t2*t67-3.52678458680595d-2*t15*t54*t55-1.4107138
2618     2         347223802d-1*t134*t15*t3+2.539284902500284d+0*t150*t151*t
2619     3         2
2620            t155 = 1/t23**2
2621            t156 = t75**2
2622            t157 = 1/t21**3
2623            t158 = t74**2
2624            t159 = 8.751370198886037d-2*t134*t19*t55+6.563527649164527d-
2625     1         2*t135*t19*t54+2.601716490612924d-3*t133
2626            t160 = -2.625411059665811d-1*t55*t56*t73+8.751370198886037d-
2627     1         2*t134*t20*t55+6.563527649164527d-2*t135*t20*t54+7.876233
2628     2         178997433d-1*t159*t3
2629            t161 = -4.23214150416714d-1*t3*t56*t72*t74-1.269642451250142
2630     1         d+0*t160*t2*t72-3.52678458680595d-2*t22*t54*t55-1.4107138
2631     2         347223802d-1*t134*t22*t3+2.539284902500284d+0*t157*t158*t
2632     3         2
2633            t162 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-
2634     1         1.7613865241785687d-3*t117*t9-5.495546528376876d-3*t51*t6
2635     2         6*t70+6.21814d-2*t154*t18*t66+2.642079786267853d-3*t51*t6
2636     3         1*t65-3.10907d-2*t11*t147*t61-6.21814d-2*t148*t149*t18+3.
2637     4         663697685584584d-3*t117*t17+3.10907d-2*t11*t141*t142)+1.5
2638     5         539098445407465d-3*t51*t71*t75-3.37738d-2*t161*t25*t71+3.
2639     6         37738d-2*t155*t156*t25-1.0359398963604977d-3*t117*t24)-1.
2640     7         5539098445407465d-3*t51*t71*t75+3.37738d-2*t161*t25*t71-3
2641     8         .37738d-2*t155*t156*t25+1.0359398963604977d-3*t117*t24)+5
2642     9         .495546528376876d-3*t51*t66*t70-6.21814d-2*t154*t18*t66+6
2643     :         .21814d-2*t148*t149*t18-3.663697685584584d-3*t117*t17
2644            t163 = rhoa**3.333333333333335d-1
2645            t164 = 1/rhoa**8.333333333333333d-1
2646            t165 = t76**2
2647            t166 = exp(-1.617104604702549d+2*t26)
2648            t167 = 1/t32**3
2649            t168 = 3.553566382931298d+3*gammaaa*t165*t166*t167*t30
2650            t169 = 2.2195402777608514d+0*gammaaa*t109*t163*t33
2651            t170 = -1.0569239417908823d-1*gammaaa*t164*t33*t79
2652            t171 = -1.0254939438542422d+2*gammaaa*t31*t76*t78*t79*t81
2653            t172 = -1.776783191465649d+3*gammaaa*t165*t30*t31*t81
2654            t173 = 2.1974870225448048d+1*gammaaa*t162*t30*t31*t81
2655            t174 = t173+t172+t171+t170+t169+t168
2656            t175 = 1/t32**4.0d+0
2657            t176 = 1/t29**6.0d+0
2658            t177 = -1.1148367900331342d+2*t31*t76*t78*t85*t86*t87-9.6578
2659     1         98428505661d+2*t165*t31*t36*t87+1.1944679893212153d+1*t16
2660     2         2*t31*t36*t87-5.745025124901132d-2*t164*t37*t85*t86+2.010
2661     3         7587937153953d+0*t163*t176*t37*t85+2.897369528551698d+3*t
2662     4         165*t166*t175*t36+t173+t172+t171+t170+t169+t168
2663            t178 = 1/t38**3
2664            t179 = t88**2
2665            t180 = -5.435608843495963d-1*gammaaa*t30*t83*t84*t88+1.26830
2666     1         8730149058d+0*gammaaa*t35*t78*t79*t84*t88-2.7178044217479
2667     2         813d-1*gammaaa*t177*t30*t35*t84-1.268308730149058d+0*gamm
2668     3         aaa*t39*t78*t79*t83-1.0569239417908823d-1*gammaaa*t164*t3
2669     4         5*t39*t79+2.2195402777608514d+0*gammaaa*t109*t163*t35*t39
2670     5         +2.7178044217479813d-1*gammaaa*t174*t30*t39+5.43560884349
2671     6         5963d-1*gammaaa*t178*t179*t30*t35
2672            t181 = -2.4735567435575762d-2*t89-1.2367783717787881d-2*rhoa
2673     1         *t180
2674            t182 = 1/t40**2
2675            t183 = t89**2
2676            t184 = 1/t98**2
2677            t185 = t107**2
2678            t186 = -4.947113487115154d-2*rhoa*t184*t185
2679            t187 = 4.947113487115154d-2*t107
2680            t188 = 2.774425347201063d-1*gammaaa*t109*t163*t94*t97
2681            t189 = -1.321154927238602d-2*gammaaa*t164*t79*t94*t97
2682            t190 = -3.170771825372644d-1*gammaaa*t103*t78*t79*t97
2683            t191 = 3.170771825372644d-1*gammaaa*t104*t106*t78*t79*t94
2684            t192 = -2.717804421747981d-1*gammaaa*t103*t104*t106*t30
2685            t193 = 1/t96**3
2686            t194 = t106**2
2687            t195 = 2.717804421747981d-1*gammaaa*t193*t194*t30*t94
2688            t196 = 2.774425347201063d-1*gammaaa*t109*t163*t92
2689            t197 = -1.321154927238602d-2*gammaaa*t164*t79*t92
2690            t198 = 1.5098913454155444d-2*gammaaa*t126*t30*t92
2691            t199 = -1.281867429817802d+1*gammaaa*t101*t60*t78*t79*t90
2692            t200 = t60**2
2693            t201 = -2.2209789893320597d+2*gammaaa*t101*t200*t30*t90
2694            t202 = 4.189742844452126d-1*t126*t49*t50-4.042761511756372d+
2695     1         1*t140
2696            t203 = -1.3589022108739904d-1*gammaaa*t101*t202*t30*t90
2697            t204 = 1/t91**3
2698            t205 = exp(5.027691413342553d+0*t49*t50)
2699            t206 = 4.4419579786641195d+2*gammaaa*t200*t204*t205*t30
2700            t207 = t206+t203+t201+t199+t198+t197+t196
2701            t208 = 1.2567242460721215d-1*t163*t176*t85*t95
2702            t209 = -3.590640703063204d-3*t164*t85*t86*t95
2703            t210 = -6.967729937707083d+0*t105*t60*t78*t85*t86*t90
2704            t211 = 1/t91**4.0d+0
2705            t212 = 1.8108559553448098d+2*t200*t205*t211*t36
2706            t213 = 4.1035893749293734d-3*t126*t36*t95-3.693230437436437d
2707     1         -2*t105*t202*t36*t90-6.036186517816032d+1*t105*t200*t36*t
2708     2         90+t212+t210+t209+t208+t206+t203+t201+t199+t198+t197+t196
2709            t214 = 1.5098913454155444d-2*gammaaa*t126*t30*t94*t97+1.3589
2710     1         022108739904d-1*gammaaa*t207*t30*t97-1.3589022108739904d-
2711     2         1*gammaaa*t104*t213*t30*t94+t195+t192+t191+t190+t189+t188
2712            t215 = 4.947113487115154d-2*rhoa*t214+t187
2713            t216 = 1/rhoa
2714            t217 = t139+t130+t127-8.44345d-3*t124*t125*t126+t118
2715            t218 = -1.509891345415545d-2*gammaaa*t126*t30*t92
2716            t219 = -2.2209789893320595d+2*gammaaa*t101*t200*t30*t90
2717            t220 = -4.1897428444521273d-1*t126*t49*t50-4.042761511756372
2718     1         d+1*t217
2719            t221 = -1.3589022108739904d-1*gammaaa*t101*t220*t30*t90
2720            t222 = 4.441957978664119d+2*gammaaa*t200*t204*t205*t30
2721            t223 = t222+t221+t219+t218+t199+t197+t196
2722            t224 = -4.1035893749293745d-3*t126*t36*t95-3.693230437436437
2723     1         d-2*t105*t220*t36*t90-6.036186517816031d+1*t105*t200*t36*
2724     2         t90+t222+t221+t219+t218+t212+t210+t209+t208+t199+t197+t19
2725     3         6
2726            t225 = -1.509891345415545d-2*gammaaa*t126*t30*t94*t97+1.3589
2727     1         022108739904d-1*gammaaa*t223*t30*t97-1.3589022108739904d-
2728     2         1*gammaaa*t104*t224*t30*t94+t195+t192+t191+t190+t189+t188
2729            t226 = 4.947113487115154d-2*rhoa*t225+t187
2730            t227 = -6.34154365074529d-1*t33*t78*t79
2731            t228 = 2.1974870225448048d+1*t30*t31*t76*t81
2732            t229 = t228+t227
2733            t230 = 2.3889359786424305d+1*gammaaa*t109*t31*t76*t87-6.8940
2734     1         30149881355d-1*gammaaa*t37*t78*t86+t228+t227
2735            t231 = -2.7178044217479813d-1*t30*t35*t84*t88-7.386460874872
2736     1         879d-2*gammaaa*t109*t33*t84*t88+5.435608843495963d-1*gamm
2737     2         aaa*t110*t178*t30*t35*t88-1.7235075374703387d-1*gammaaa*t
2738     3         33*t39*t78*t86-2.7178044217479813d-1*gammaaa*t110*t30*t83
2739     4         *t84+6.34154365074529d-1*gammaaa*t110*t35*t78*t79*t84-2.7
2740     5         178044217479813d-1*gammaaa*t230*t30*t35*t84+2.71780442174
2741     6         79813d-1*t30*t39*t83-6.34154365074529d-1*t35*t39*t78*t79+
2742     7         2.7178044217479813d-1*gammaaa*t229*t30*t39
2743            t232 = -1.2367783717787881d-2*rhoa*t231-1.2367783717787881d-
2744     1         2*t111
2745            t233 = -4.947113487115154d-2*rhoa*t107*t113*t184
2746            t234 = -3.9634647817158053d-2*t78*t79*t92
2747            t235 = 1.3734293890905022d+0*t101*t30*t60*t90
2748            t236 = t235+t234
2749            t237 = -2.1543844218379216d-2*gammaaa*t78*t86*t95+7.46542493
2750     1         3257588d-1*gammaaa*t105*t109*t60*t90+t235+t234
2751            t238 = -3.9634647817158053d-2*t78*t79*t94*t97-5.385961054594
2752     1         804d-3*gammaaa*t78*t86*t92*t97+1.3589022108739904d-1*gamm
2753     2         aaa*t236*t30*t97+3.397255527184976d-2*t103*t30*t97+1.5853
2754     3         85912686322d-1*gammaaa*t104*t112*t78*t79*t94-1.3589022108
2755     4         739904d-1*gammaaa*t104*t237*t30*t94+2.717804421747981d-1*
2756     5         gammaaa*t106*t112*t193*t30*t94-3.397255527184976d-2*t104*
2757     6         t106*t30*t94-4.6165380467955464d-3*gammaaa*t104*t106*t109
2758     7         *t92-1.3589022108739904d-1*gammaaa*t103*t104*t112*t30
2759            t239 = 4.947113487115154d-2*rhoa*t238+2.473556743557577d-2*t
2760     1         113
2761            t240 = t239*t99
2762            t241 = -7.926929563431611d-2*t78*t79*t92
2763            t242 = 2.7468587781810044d+0*t101*t30*t60*t90
2764            t243 = t242+t241
2765            t244 = -4.308768843675843d-2*gammaaa*t78*t86*t95+1.493084986
2766     1         6515178d+0*gammaaa*t105*t109*t60*t90+t242+t241
2767            t245 = -7.926929563431611d-2*t78*t79*t94*t97-1.0771922109189
2768     1         608d-2*gammaaa*t78*t86*t92*t97+1.3589022108739904d-1*gamm
2769     2         aaa*t243*t30*t97+6.794511054369952d-2*t103*t30*t97+1.5853
2770     3         85912686322d-1*gammaaa*t104*t114*t78*t79*t94-1.3589022108
2771     4         739904d-1*gammaaa*t104*t244*t30*t94+2.717804421747981d-1*
2772     5         gammaaa*t106*t114*t193*t30*t94-6.794511054369952d-2*t104*
2773     6         t106*t30*t94-9.233076093591093d-3*gammaaa*t104*t106*t109*
2774     7         t92-1.3589022108739904d-1*gammaaa*t103*t104*t114*t30
2775            t246 = 4.947113487115154d-2*rhoa*t245+2.473556743557577d-2*t
2776     1         115
2777            t247 = t111**2
2778            t248 = t110**2
2779            t249 = -4.014991205359595d-2*gammaaa*t176*t35*t37*t84-5.4356
2780     1         08843495963d-1*t110*t30*t35*t84-1.4772921749745757d-1*gam
2781     2         maaa*t109*t110*t33*t84+1.4772921749745757d-1*t109*t33*t39
2782     3         +5.435608843495963d-1*gammaaa*t178*t248*t30*t35
2783            t250 = t113**2
2784            t251 = -4.947113487115154d-2*rhoa*t184*t250
2785            t252 = t112**2
2786            t253 = -6.794511054369952d-2*t104*t112*t30*t94
2787            t254 = -9.233076093591093d-3*gammaaa*t104*t109*t112*t92
2788            t255 = 2.3082690233977732d-3*t109*t92*t97-3.136711879187181d
2789     1         -4*gammaaa*t104*t176*t94*t95+2.717804421747981d-1*gammaaa
2790     2         *t193*t252*t30*t94+t254+t253
2791            t256 = 4.947113487115154d-2*rhoa*t255*t99
2792            t257 = 4.6165380467955464d-3*t109*t92*t97-6.273423758374362d
2793     1         -4*gammaaa*t104*t176*t94*t95+2.717804421747981d-1*gammaaa
2794     2         *t112*t114*t193*t30*t94-3.397255527184976d-2*t104*t114*t3
2795     3         0*t94-4.6165380467955464d-3*gammaaa*t104*t109*t114*t92+t2
2796     4         54+t253
2797            t258 = t115**2
2798            t259 = t114**2
2799            t260 = 9.233076093591093d-3*t109*t92*t97-1.2546847516748727d
2800     1         -3*gammaaa*t104*t176*t94*t95+2.717804421747981d-1*gammaaa
2801     2         *t193*t259*t30*t94-1.3589022108739904d-1*t104*t114*t30*t9
2802     3         4-1.8466152187182186d-2*gammaaa*t104*t109*t114*t92
2803            t261 = 1/rhoa**3.333333333333333d+0
2804            t262 = 8.48131310861104d-4*t261*t49
2805            t263 = 1/rhoa**3
2806            t264 = -2.1809090850714105d-3*t117*t52*t59
2807            t265 = 3.37738d-2*t125*(1.1876045553756398d-1*t122*t3*t56-1.
2808     1         425125466450768d+0*t2*(7.016926042943222d-1*t3*(-5.847438
2809     2         369119352d-2*t119*t55*t56-6.883279156869946d-4*t54)-5.847
2810     3         438369119352d-2*t120*t55*t56)/t121**2)/t123-3.08334765235
2811     4         9653d-4*t124*t51
2812            t266 = -3.2713636276071156d-3*t128*t129*t51
2813            t267 = 3.2713636276071156d-3*t138*t51*t52
2814            t268 = -1.243628d-1*t50*t59**3/t48**3
2815            t269 = 1.865442d-1*t128*t138*t50*t59
2816            t270 = 1/rhoa**3.3333333333333337d+0
2817            t271 = 1/rhoa**2.666666666666667d+0
2818            t272 = 1/t2**7
2819            t273 = 1/rhoa**2.0d+0
2820            t274 = -6.21814d-2*t50*t52*(-8.550752798704606d+0*t2*t58**3/
2821     1         t46**4+2.969011388439098d-2*t53*t54*t55*t58+1.18760455537
2822     2         56398d-1*t134*t3*t53*t58+8.550752798704606d+0*t131*t137*t
2823     3         2*t58-1.425125466450768d+0*t2*t53*(5.847438369119352d-2*t
2824     4         134*t55*t57+4.385578776839513d-2*t135*t54*t57-1.754231510
2825     5         7358056d-1*t136*t55*t56+7.016926042943222d-1*t3*(-1.62428
2826     6         84358664864d-2*t271*t44*t55-6.091081634499322d-3*t272*t27
2827     7         3*t44-1.4618595922798375d-2*t133*t135*t44-1.1615990756816
2828     8         77d-3*t270)-1.6242884358664864d-2*t271*t45*t55-6.09108163
2829     9         4499322d-3*t272*t273*t45-1.4618595922798375d-2*t133*t135*
2830     :         t45)-3.5628136661269194d-1*t137*t3*t53*t56+7.125627332253
2831     ;         839d-1*t131*t132*t3*t56+9.89670462813033d-3*t133*t47*t55+
2832     <         3.29890154271011d-2*t271*t3*t47+2.474176157032582d-3*t135
2833     =         *t273*t47)
2834            t275 = t274+t269+t268+t267+t266+7.500000000000002d-1*t126*t2
2835     1         65+t264-2.533035d-2*t124*t125*t263+t262
2836            t276 = 1/t16**3
2837            t277 = t70**3
2838            t278 = -7.617854707500852d+0*t2*t69**3/t14**4+1.058035376041
2839     1         7849d-1*t54*t55*t67*t69+4.2321415041671406d-1*t134*t3*t67
2840     2         *t69+7.617854707500852d+0*t150*t153*t2*t69-1.269642451250
2841     3         142d+0*t2*t67*(2.625411059665811d-1*t134*t55*t68+1.969058
2842     4         2947493582d-1*t135*t54*t68-3.9381165894987163d-1*t152*t55
2843     5         *t56+7.876233178997433d-1*t3*(-1.4585616998143394d-1*t12*
2844     6         t271*t55-5.469606374303773d-2*t12*t272*t273-1.17081850159
2845     7         18181d-2*t270-1.3127055298329054d-1*t12*t133*t135)-1.4585
2846     8         616998143394d-1*t13*t271*t55-5.469606374303773d-2*t13*t27
2847     9         2*t273-1.3127055298329054d-1*t13*t133*t135)-6.34821225625
2848     :         071d-1*t153*t3*t56*t67+1.269642451250142d+0*t150*t151*t3*
2849     ;         t56+7.053569173611901d-2*t133*t15*t55+2.3511897245373004d
2850     <         -1*t15*t271*t3+1.763392293402975d-2*t135*t15*t273
2851            t279 = 1/t23**3
2852            t280 = t75**3
2853            t281 = -7.617854707500852d+0*t2*t74**3/t21**4+1.058035376041
2854     1         7849d-1*t54*t55*t72*t74+4.2321415041671406d-1*t134*t3*t72
2855     2         *t74+7.617854707500852d+0*t157*t160*t2*t74-1.269642451250
2856     3         142d+0*t2*t72*(2.625411059665811d-1*t134*t55*t73+1.969058
2857     4         2947493582d-1*t135*t54*t73-3.9381165894987163d-1*t159*t55
2858     5         *t56+7.876233178997433d-1*t3*(-1.4585616998143394d-1*t19*
2859     6         t271*t55-5.469606374303773d-2*t19*t272*t273-6.40793135650
2860     7         9611d-3*t270-1.3127055298329054d-1*t133*t135*t19)-1.45856
2861     8         16998143394d-1*t20*t271*t55-5.469606374303773d-2*t20*t272
2862     9         *t273-1.3127055298329054d-1*t133*t135*t20)-6.348212256250
2863     :         71d-1*t160*t3*t56*t72+1.269642451250142d+0*t157*t158*t3*t
2864     ;         56+7.053569173611901d-2*t133*t22*t55+2.3511897245373004d-
2865     <         1*t22*t271*t3+1.763392293402975d-2*t135*t22*t273
2866            t282 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(4
2867     1         .1099018897499934d-3*t261*t9-6.21814d-2*t11*t65**3/t8**3+
2868     2         1.0991093056753751d-2*t117*t66*t70-1.865442d-1*t148*t154*
2869     3         t18*t70-3.10907d-2*t11*t61*(7.053569173611901d-2*t133*t55
2870     4         *t7+2.3511897245373004d-1*t271*t3*t7+1.763392293402975d-2
2871     5         *t135*t273*t7-7.617854707500852d+0*t2*t64**3/t6**4+1.0580
2872     6         353760417849d-1*t54*t55*t62*t64+4.2321415041671406d-1*t13
2873     7         4*t3*t62*t64+7.617854707500852d+0*t143*t146*t2*t64-1.2696
2874     8         42451250142d+0*t2*t62*(2.625411059665811d-1*t134*t55*t63+
2875     9         1.9690582947493582d-1*t135*t54*t63-3.9381165894987163d-1*
2876     :         t145*t55*t56+7.876233178997433d-1*t3*(-1.4585616998143394
2877     ;         d-1*t271*t4*t55-5.469606374303773d-2*t272*t273*t4-1.31270
2878     <         55298329054d-1*t133*t135*t4-7.424439106586571d-3*t270)-1.
2879     =         4585616998143394d-1*t271*t5*t55-5.469606374303773d-2*t272
2880     >         *t273*t5-1.3127055298329054d-1*t133*t135*t5)-6.3482122562
2881     ?         5071d-1*t146*t3*t56*t62+1.269642451250142d+0*t143*t144*t3
2882     @         *t56)-8.243319792565315d-3*t154*t51*t66+6.21814d-2*t18*t2
2883     1         78*t66-5.284159572535706d-3*t117*t61*t65+9.32720999999999
2884     2         9d-2*t11*t141*t147*t65+3.96311967940178d-3*t147*t51*t61+8
2885     3         .243319792565315d-3*t148*t149*t51-3.96311967940178d-3*t14
2886     4         1*t142*t51+1.243628d-1*t18*t276*t277-8.548627933030694d-3
2887     5         *t17*t261)-3.107819689081493d-3*t117*t71*t75+1.013214d-1*
2888     6         t155*t161*t25*t75+2.33086476681112d-3*t161*t51*t71-3.3773
2889     7         8d-2*t25*t281*t71-2.33086476681112d-3*t155*t156*t51-6.754
2890     8         76d-2*t25*t279*t280+2.4171930915078277d-3*t24*t261)+3.107
2891     9         819689081493d-3*t117*t71*t75-1.013214d-1*t155*t161*t25*t7
2892     :         5-2.33086476681112d-3*t161*t51*t71+3.37738d-2*t25*t281*t7
2893     ;         1+2.33086476681112d-3*t155*t156*t51+6.75476d-2*t25*t279*t
2894     <         280-2.4171930915078277d-3*t24*t261)-1.0991093056753751d-2
2895     =         *t117*t66*t70+1.865442d-1*t148*t154*t18*t70+8.24331979256
2896     >         5315d-3*t154*t51*t66-6.21814d-2*t18*t278*t66-8.2433197925
2897     ?         65315d-3*t148*t149*t51-1.243628d-1*t18*t276*t277+8.548627
2898     @         933030694d-3*t17*t261
2899            t283 = rhoa**5.000000000000002d-1
2900            t284 = 1/rhoa**6.666666666666665d-1
2901            t285 = 1/rhoa**1.8333333333333332d+0
2902            t286 = t76**3
2903            t287 = exp(-2.4256569070538234d+2*t26)
2904            t288 = 8.619732841431575d+5*gammaaa*t286*t287*t30/t32**4
2905            t289 = -2.4874964680519085d+4*gammaaa*t165*t166*t167*t78*t79
2906            t290 = -8.619732841431575d+5*gammaaa*t166*t167*t286*t30
2907            t291 = 1.0660699148793894d+4*gammaaa*t162*t166*t167*t30*t76
2908            t292 = -1.035785462955064d+1*gammaaa*t283*t33*t86
2909            t293 = 1.1097701388804264d+0*gammaaa*t109*t284*t33
2910            t294 = 8.807699514924018d-2*gammaaa*t285*t33*t79
2911            t295 = 5.383843205234772d+2*gammaaa*t109*t163*t31*t76*t81
2912            t296 = -2.563734859635607d+1*gammaaa*t164*t31*t76*t79*t81
2913            t297 = 1.2437482340259542d+4*gammaaa*t165*t31*t78*t79*t81
2914            t298 = -1.5382409157813634d+2*gammaaa*t162*t31*t78*t79*t81
2915            t299 = 1.436622140238596d+5*gammaaa*t286*t30*t31*t81
2916            t300 = -5.330349574396946d+3*gammaaa*t162*t30*t31*t76*t81
2917            t301 = 2.1974870225448048d+1*gammaaa*t282*t30*t31*t81
2918            t302 = 1/t29**7.0d+0
2919            t303 = 1/t38**4
2920            t304 = 1/t40**3
2921            t305 = 1/t98**3
2922            t306 = 9.894226974230308d-2*rhoa*t107**3*t305
2923            t307 = -2.473556743557577d-2*t185
2924            t308 = -t107*t215
2925            t309 = -6.473659143469149d-1*gammaaa*t283*t86*t94*t97
2926            t310 = 6.936063368002663d-2*gammaaa*t109*t284*t94*t97
2927            t311 = -3.963464781715806d-2*gammaaa*t103*t164*t79*t97
2928            t312 = 3.963464781715806d-2*gammaaa*t104*t106*t164*t79*t94
2929            t313 = 9.512315476117932d-1*gammaaa*t103*t104*t106*t78*t79
2930            t314 = -9.512315476117932d-1*gammaaa*t193*t194*t78*t79*t94
2931            t315 = 1/t96**4
2932            t316 = -8.153413265243942d-1*gammaaa*t106**3*t30*t315*t94
2933            t317 = -6.473659143469149d-1*gammaaa*t283*t86*t92
2934            t318 = 6.936063368002663d-2*gammaaa*t109*t284*t92
2935            t319 = -4.734138489271654d-2*gammaaa*t285*t79*t92
2936            t320 = -4.529674036246635d-2*gammaaa*t263*t30*t92
2937            t321 = 3.3649020032717303d+1*gammaaa*t101*t109*t163*t60*t90
2938            t322 = -1.602334287272253d+0*gammaaa*t101*t164*t60*t79*t90
2939            t323 = 7.773426462662208d+2*gammaaa*t101*t200*t78*t79*t90
2940            t324 = 4.756157738058966d-1*gammaaa*t101*t202*t78*t79*t90
2941            t325 = t60**3
2942            t326 = 8.978888376491218d+3*gammaaa*t101*t30*t325*t90
2943            t327 = 1.8312391854540025d+0*gammaaa*t101*t126*t30*t60*t90
2944            t328 = -2.0213807558781852d+1*t126*t60-1.2569228533356386d+0
2945     1         *t263*t49*t50-4.042761511756372d+1*t275
2946            t329 = -1.3589022108739904d-1*gammaaa*t101*t30*t328*t90
2947            t330 = 1.6481152669086024d+1*gammaaa*t101*t202*t30*t60*t90
2948            t331 = -1.5546852925324417d+3*gammaaa*t200*t204*t205*t78*t79
2949            t332 = -5.38733302589473d+4*gammaaa*t204*t205*t30*t325
2950            t333 = -3.296230533817205d+1*gammaaa*t202*t204*t205*t30*t60
2951            t334 = exp(7.54153712001383d+0*t49*t50)
2952            t335 = 5.387333025894729d+4*gammaaa*t30*t325*t334/t91**4
2953            t336 = -4.398534861252425d-1*t283*t302*t85*t95
2954            t337 = 3.141810615180306d-2*t176*t284*t85*t95
2955            t338 = 2.4402862532009373d+3*t105*t325*t36*t90
2956            t339 = -2.1962576278808435d+4*t205*t211*t325*t36
2957            t340 = 2.928343503841125d+4*t325*t334*t36/t91**5.0d+0
2958            t341 = t274+t269+t268+t267+t266-2.4999999999999994d-1*t126*t
2959     1         265+t264+8.44345d-3*t124*t125*t263+t262
2960            t342 = 2.3120211226675536d-2*gammaaa*t285*t79*t92
2961            t343 = 1.5098913454155452d-2*gammaaa*t263*t30*t92
2962            t344 = -1.602334287272253d+0*gammaaa*t101*t164*t60*t79*t90
2963            t345 = 7.77342646266221d+2*gammaaa*t101*t200*t78*t79*t90
2964            t346 = 3.170771825372644d-1*gammaaa*t101*t220*t78*t79*t90
2965            t347 = 1.585385912686322d-1*gammaaa*t101*t202*t78*t79*t90
2966            t348 = -6.104130618180013d-1*gammaaa*t101*t126*t30*t60*t90
2967            t349 = 6.737935852927288d+0*t126*t60+4.189742844452128d-1*t2
2968     1         63*t49*t50-4.042761511756372d+1*t341
2969            t350 = -1.3589022108739904d-1*gammaaa*t101*t30*t349*t90
2970            t351 = 1.0987435112724019d+1*gammaaa*t101*t220*t30*t60*t90
2971            t352 = 5.493717556362009d+0*gammaaa*t101*t202*t30*t60*t90
2972            t353 = -1.554685292532442d+3*gammaaa*t200*t204*t205*t78*t79
2973            t354 = -2.1974870225448037d+1*gammaaa*t204*t205*t220*t30*t60
2974            t355 = -1.0987435112724019d+1*gammaaa*t202*t204*t205*t30*t60
2975            t356 = 3.553566382931298d+3*t165*t166*t167*t30
2976            t357 = 2.2195402777608514d+0*t109*t163*t33
2977            t358 = -1.0569239417908823d-1*t164*t33*t79
2978            t359 = -1.0254939438542422d+2*t31*t76*t78*t79*t81
2979            t360 = -1.776783191465649d+3*t165*t30*t31*t81
2980            t361 = 2.1974870225448048d+1*t162*t30*t31*t81
2981            t362 = 9.894226974230308d-2*rhoa*t113*t185*t305
2982            t363 = 4.947113487115154d-2*t238
2983            t364 = -2.774425347201063d-1*gammaaa*t104*t109*t112*t163*t94
2984            t365 = 1.321154927238602d-2*gammaaa*t104*t112*t164*t79*t94
2985            t366 = 6.936063368002658d-2*t109*t163*t94*t97
2986            t367 = -3.3028873180965046d-3*t164*t79*t94*t97
2987            t368 = 9.425431845540909d-3*gammaaa*t163*t176*t92*t97
2988            t369 = -4.488300878829006d-4*gammaaa*t164*t86*t92*t97
2989            t370 = -3.170771825372644d-1*gammaaa*t236*t78*t79*t97
2990            t371 = 3.170771825372644d-1*gammaaa*t104*t237*t78*t79*t94
2991            t372 = 3.170771825372644d-1*gammaaa*t103*t104*t112*t78*t79
2992            t373 = -7.926929563431611d-2*t103*t78*t79*t97
2993            t374 = -2.717804421747981d-1*gammaaa*t103*t104*t237*t30
2994            t375 = -6.341543650745288d-1*gammaaa*t106*t112*t193*t78*t79*
2995     1         t94
2996            t376 = 7.926929563431611d-2*t104*t106*t78*t79*t94
2997            t377 = 1.0771922109189608d-2*gammaaa*t104*t106*t78*t86*t92
2998            t378 = -2.717804421747981d-1*gammaaa*t104*t106*t236*t30
2999            t379 = 5.435608843495962d-1*gammaaa*t106*t193*t237*t30*t94
3000            t380 = 5.435608843495962d-1*gammaaa*t103*t106*t112*t193*t30
3001            t381 = -6.794511054369952d-2*t103*t104*t106*t30
3002            t382 = -8.153413265243942d-1*gammaaa*t112*t194*t30*t315*t94
3003            t383 = 6.794511054369952d-2*t193*t194*t30*t94
3004            t384 = 9.233076093591093d-3*gammaaa*t109*t193*t194*t92
3005            t385 = 6.936063368002658d-2*t109*t163*t92
3006            t386 = -3.3028873180965046d-3*t164*t79*t92
3007            t387 = 3.774728363538861d-3*t126*t30*t92
3008            t388 = -3.204668574544505d+0*t101*t60*t78*t79*t90
3009            t389 = -5.55244747333015d+1*t101*t200*t30*t90
3010            t390 = -3.397255527184976d-2*t101*t202*t30*t90
3011            t391 = 1.1104894946660299d+2*t200*t204*t205*t30
3012            t392 = 6.283621230360608d-2*gammaaa*t163*t176*t95
3013            t393 = -1.795320351531602d-3*gammaaa*t164*t86*t95
3014            t394 = -3.4838649688535417d+0*gammaaa*t105*t60*t78*t86*t90
3015            t395 = 9.054279776724049d+1*gammaaa*t109*t200*t205*t211
3016            t396 = (4.947113487115154d-2*rhoa*(3.774728363538861d-3*t126
3017     1         *t30*t94*t97+5.129486718661717d-4*gammaaa*t109*t126*t92*t
3018     2         97+1.3589022108739904d-1*gammaaa*t30*(t391+t390+t389+t388
3019     3         +t387+t386+t385)*t97+3.397255527184976d-2*t207*t30*t97-1.
3020     4         3589022108739904d-1*gammaaa*t104*t30*t94*(2.0517946874646
3021     5         867d-3*gammaaa*t109*t126*t95-1.8466152187182186d-2*gammaa
3022     6         a*t105*t109*t202*t90-3.018093258908016d+1*gammaaa*t105*t1
3023     7         09*t200*t90+t395+t394+t393+t392+t391+t390+t389+t388+t387+
3024     8         t386+t385)+2.717804421747981d-1*gammaaa*t112*t193*t213*t3
3025     9         0*t94-3.397255527184976d-2*t104*t213*t30*t94-1.5098913454
3026     :         155444d-2*gammaaa*t104*t112*t126*t30*t94-4.61653804679554
3027     ;         64d-3*gammaaa*t104*t109*t213*t92+t384+t383+t382+t381+t380
3028     <         +t379+t378+t377+t376+t375+t374+t373+t372+t371+t370+t369+t
3029     =         368+t367+t366+t365+t364-1.3589022108739904d-1*gammaaa*t10
3030     >         4*t112*t207*t30)+t363-8.245189145191921d-3*t113*t216)*t99
3031            t397 = -9.894226974230308d-2*rhoa*t107*t238
3032            t398 = t184*(t397-t113*t215)
3033            t399 = 9.894226974230308d-2*rhoa*t115*t185*t305
3034            t400 = 4.947113487115154d-2*t245
3035            t401 = -2.774425347201063d-1*gammaaa*t104*t109*t114*t163*t94
3036            t402 = 1.321154927238602d-2*gammaaa*t104*t114*t164*t79*t94
3037            t403 = 1.3872126736005316d-1*t109*t163*t94*t97
3038            t404 = -6.605774636193009d-3*t164*t79*t94*t97
3039            t405 = 1.885086369108182d-2*gammaaa*t163*t176*t92*t97
3040            t406 = -8.976601757658011d-4*gammaaa*t164*t86*t92*t97
3041            t407 = -3.170771825372644d-1*gammaaa*t243*t78*t79*t97
3042            t408 = 3.170771825372644d-1*gammaaa*t104*t244*t78*t79*t94
3043            t409 = 3.170771825372644d-1*gammaaa*t103*t104*t114*t78*t79
3044            t410 = -1.585385912686322d-1*t103*t78*t79*t97
3045            t411 = -2.717804421747981d-1*gammaaa*t103*t104*t244*t30
3046            t412 = -6.341543650745288d-1*gammaaa*t106*t114*t193*t78*t79*
3047     1         t94
3048            t413 = 1.585385912686322d-1*t104*t106*t78*t79*t94
3049            t414 = 2.1543844218379216d-2*gammaaa*t104*t106*t78*t86*t92
3050            t415 = -2.717804421747981d-1*gammaaa*t104*t106*t243*t30
3051            t416 = 5.435608843495962d-1*gammaaa*t106*t193*t244*t30*t94
3052            t417 = 5.435608843495962d-1*gammaaa*t103*t106*t114*t193*t30
3053            t418 = -1.3589022108739904d-1*t103*t104*t106*t30
3054            t419 = -8.153413265243942d-1*gammaaa*t114*t194*t30*t315*t94
3055            t420 = 1.3589022108739904d-1*t193*t194*t30*t94
3056            t421 = 1.8466152187182186d-2*gammaaa*t109*t193*t194*t92
3057            t422 = 1.3872126736005316d-1*t109*t163*t92
3058            t423 = -6.605774636193009d-3*t164*t79*t92
3059            t424 = 7.549456727077722d-3*t126*t30*t92
3060            t425 = -6.40933714908901d+0*t101*t60*t78*t79*t90
3061            t426 = -1.1104894946660299d+2*t101*t200*t30*t90
3062            t427 = -6.794511054369952d-2*t101*t202*t30*t90
3063            t428 = 2.2209789893320597d+2*t200*t204*t205*t30
3064            t429 = 1.2567242460721215d-1*gammaaa*t163*t176*t95
3065            t430 = -3.590640703063204d-3*gammaaa*t164*t86*t95
3066            t431 = -6.967729937707083d+0*gammaaa*t105*t60*t78*t86*t90
3067            t432 = 1.8108559553448098d+2*gammaaa*t109*t200*t205*t211
3068            t433 = -9.894226974230308d-2*rhoa*t107*t245
3069            t434 = -3.774728363538862d-3*t126*t30*t92
3070            t435 = -5.552447473330149d+1*t101*t200*t30*t90
3071            t436 = -3.397255527184976d-2*t101*t220*t30*t90
3072            t437 = 1.1104894946660297d+2*t200*t204*t205*t30
3073            t438 = -7.549456727077724d-3*t126*t30*t92
3074            t439 = -1.1104894946660297d+2*t101*t200*t30*t90
3075            t440 = -6.794511054369952d-2*t101*t220*t30*t90
3076            t441 = 2.2209789893320595d+2*t200*t204*t205*t30
3077            t442 = 9.894226974230308d-2*rhoa*t107*t250*t305
3078            t443 = 7.926929563431611d-2*t104*t112*t78*t79*t94
3079            t444 = 1.0771922109189608d-2*gammaaa*t104*t112*t78*t86*t92
3080            t445 = 6.794511054369952d-2*t236*t30*t97
3081            t446 = -6.794511054369952d-2*t104*t237*t30*t94
3082            t447 = -9.233076093591093d-3*gammaaa*t104*t109*t237*t92
3083            t448 = -6.794511054369952d-2*t103*t104*t112*t30
3084            t449 = 1.3589022108739904d-1*t106*t112*t193*t30*t94
3085            t450 = 1.8466152187182186d-2*gammaaa*t106*t109*t112*t193*t92
3086            t451 = (4.947113487115154d-2*rhoa*(-2.692980527297402d-3*t78
3087     1         *t86*t92*t97-1.3589022108739904d-1*gammaaa*t104*t30*t94*(
3088     2         1.866356233314397d-1*t105*t109*t60*t90-5.385961054594804d
3089     3         -3*t78*t86*t95)+3.6594971923850445d-4*gammaaa*t104*t302*t
3090     4         78*t94*t95+6.273423758374362d-4*gammaaa*t106*t176*t193*t9
3091     5         4*t95-3.136711879187181d-4*gammaaa*t103*t104*t176*t95-3.1
3092     6         70771825372644d-1*gammaaa*t193*t252*t78*t79*t94-8.1534132
3093     7         65243942d-1*gammaaa*t106*t252*t30*t315*t94+5.435608843495
3094     8         962d-1*gammaaa*t112*t193*t237*t30*t94-2.3082690233977732d
3095     9         -3*t104*t106*t109*t92+t450+t449+t448+t447+t446+t445+t444+
3096     :         t443+2.717804421747981d-1*gammaaa*t103*t193*t252*t30-2.71
3097     ;         7804421747981d-1*gammaaa*t104*t112*t236*t30)+2.4735567435
3098     <         57577d-2*t255)*t99
3099            t452 = t184*(-4.947113487115154d-2*rhoa*t107*t255-t113*t239-
3100     1         4.947113487115154d-2*rhoa*t113*t238)
3101            t453 = 9.894226974230308d-2*rhoa*t107*t113*t115*t305
3102            t454 = (4.947113487115154d-2*rhoa*(-5.385961054594804d-3*t78
3103     1         *t86*t92*t97+3.397255527184976d-2*t243*t30*t97-1.35890221
3104     2         08739904d-1*gammaaa*t104*t30*t94*(3.732712466628794d-1*t1
3105     3         05*t109*t60*t90-1.0771922109189608d-2*t78*t86*t95)+7.3189
3106     4         94384770089d-4*gammaaa*t104*t302*t78*t94*t95+1.2546847516
3107     5         748727d-3*gammaaa*t106*t176*t193*t94*t95-6.27342375837436
3108     6         2d-4*gammaaa*t103*t104*t176*t95-3.170771825372644d-1*gamm
3109     7         aaa*t112*t114*t193*t78*t79*t94+3.9634647817158053d-2*t104
3110     8         *t114*t78*t79*t94-8.153413265243942d-1*gammaaa*t106*t112*
3111     9         t114*t30*t315*t94+2.717804421747981d-1*gammaaa*t112*t193*
3112     :         t244*t30*t94-3.397255527184976d-2*t104*t244*t30*t94+2.717
3113     ;         804421747981d-1*gammaaa*t114*t193*t237*t30*t94+6.79451105
3114     <         4369952d-2*t106*t114*t193*t30*t94+5.385961054594804d-3*ga
3115     =         mmaaa*t104*t114*t78*t86*t92-4.6165380467955464d-3*gammaaa
3116     >         *t104*t109*t244*t92+9.233076093591093d-3*gammaaa*t106*t10
3117     ?         9*t114*t193*t92-4.6165380467955464d-3*t104*t106*t109*t92+
3118     @         t450+t449+t448+t447+t446+t445+t444+t443-1.358902210873990
3119     1         4d-1*gammaaa*t104*t112*t243*t30-1.3589022108739904d-1*gam
3120     2         maaa*t104*t114*t236*t30+2.717804421747981d-1*gammaaa*t103
3121     3         *t112*t114*t193*t30-3.397255527184976d-2*t103*t104*t114*t
3122     4         30)+2.473556743557577d-2*t257)*t99
3123            t455 = -4.947113487115154d-2*rhoa*t107*t257
3124            t456 = (t452+t451+t442)*wght
3125            t457 = 1/t29**8.0d+0
3126            t458 = 9.894226974230308d-2*rhoa*t113**3*t305
3127            t459 = 4.947113487115154d-2*rhoa*(1.882027127512309d-3*gamma
3128     1         aa*t112*t176*t193*t94*t95-2.3525339093903863d-4*t104*t176
3129     2         *t94*t95-8.153413265243942d-1*gammaaa*t112**3*t30*t315*t9
3130     3         4+2.0383533163109854d-1*t193*t252*t30*t94+2.7699228280773
3131     4         28d-2*gammaaa*t109*t193*t252*t92-6.92480707019332d-3*t104
3132     5         *t109*t112*t92-3.1968635306266263d-5*gammaaa*t104*t105*t4
3133     6         57)*t99
3134            t460 = -1.4841340461345462d-1*rhoa*t113*t184*t255
3135            t461 = 2.5093695033497454d-3*gammaaa*t112*t176*t193*t94*t95
3136            t462 = -9.233076093591093d-3*t104*t109*t112*t92
3137            t463 = (4.947113487115154d-2*rhoa*(6.273423758374362d-4*gamm
3138     1         aaa*t114*t176*t193*t94*t95-4.7050678187807726d-4*t104*t17
3139     2         6*t94*t95-8.153413265243942d-1*gammaaa*t114*t252*t30*t315
3140     3         *t94+1.3589022108739904d-1*t193*t252*t30*t94+1.3589022108
3141     4         739904d-1*t112*t114*t193*t30*t94+1.8466152187182186d-2*ga
3142     5         mmaaa*t109*t193*t252*t92+1.8466152187182186d-2*gammaaa*t1
3143     6         09*t112*t114*t193*t92-2.3082690233977732d-3*t104*t109*t11
3144     7         4*t92+t462+t461-6.393727061253253d-5*gammaaa*t104*t105*t4
3145     8         57)*t99+9.894226974230308d-2*rhoa*t115*t250*t305+t184*(-9
3146     9         .894226974230308d-2*rhoa*t113*t257-4.947113487115154d-2*r
3147     :         hoa*t115*t255))*wght
3148            fnc(iq) = (4.947113487115154d-2*rhoa*log(1.35890221087399d-1
3149     1         *gammaaa*t30*(t43+1.0d+0)/(t43+1.8466152187182178d-2*t36/
3150     2         t42**2.0d+0+1.0d+0)+1.0d+0)-2.4735567435575762d-2*rhoa*t4
3151     3         1-1.243628d-1*rhoa*t27*t28-2.0d+0*rhoa*t26)*wght+fnc(iq)
3152            Amat(iq,D1_RA) = (4.947113487115154d-2*rhoa*t107*t99-1.23677
3153     1         83717787881d-2*rhoa*t77*t89-1.0d+0*rhoa*t76+2.0d+0*rhoa*t
3154     2         60-6.21814d-2*t49*t50-1.2367783717787881d-2*t41-1.0d+0*t2
3155     3         6+2.473556743557577d-2*t108)*wght+Amat(iq,D1_RA)
3156            Cmat(iq,D1_GAA) = (4.947113487115154d-2*rhoa*t113*t99-1.2367
3157     1         783717787881d-2*rhoa*t111*t77)*wght+Cmat(iq,D1_GAA)
3158            Cmat(iq,D1_GAB) = 4.947113487115154d-2*rhoa*t115*t99*wght+Cm
3159     1         at(iq,D1_GAB)
3160            Amat2(iq,D2_RA_RA) = (t215*t99+t181*t77-2.0d+0*t76-8.2451891
3161     1         45191921d-3*t108*t216+t186+1.2367783717787881d-2*rhoa*t18
3162     2         2*t183-1.0d+0*rhoa*t162+2.0d+0*rhoa*t140+t116)*wght+Amat2
3163     3         (iq,D2_RA_RA)
3164            Amat2(iq,D2_RA_RB) = (t226*t99+2.0d+0*rhoa*t217+8.2451891451
3165     1         91922d-3*t108*t216+t186+t116)*wght+Amat2(iq,D2_RA_RB)
3166            Cmat2(iq,D2_RA_GAA) = (1.2367783717787881d-2*rhoa*t111*t182*
3167     1         t89+t232*t77+t240+t233)*wght+Cmat2(iq,D2_RA_GAA)
3168            Cmat2(iq,D2_RA_GAB) = (t246*t99-4.947113487115154d-2*rhoa*t1
3169     1         07*t115*t184)*wght+Cmat2(iq,D2_RA_GAB)
3170            Cmat2(iq,D2_RA_GBB) = (t240+t233)*wght+Cmat2(iq,D2_RA_GBB)
3171            Cmat2(iq,D2_GAA_GAA) = (-1.2367783717787881d-2*rhoa*t249*t77
3172     1         +t256+t251+1.2367783717787881d-2*rhoa*t182*t247)*wght+Cma
3173     2         t2(iq,D2_GAA_GAA)
3174            Cmat2(iq,D2_GAA_GAB) = (4.947113487115154d-2*rhoa*t257*t99-4
3175     1         .947113487115154d-2*rhoa*t113*t115*t184)*wght+Cmat2(iq,D2
3176     2         _GAA_GAB)
3177            Cmat2(iq,D2_GAA_GBB) = (t256+t251)*wght+Cmat2(iq,D2_GAA_GBB)
3178            Cmat2(iq,D2_GAB_GAB) = 4.947113487115154d-2*rhoa*t260*t99*wg
3179     1         ht-4.947113487115154d-2*rhoa*t184*t258*wght+Cmat2(iq,D2_G
3180     2         AB_GAB)
3181            Amat3(iq,D3_RA_RA_RA) = ((4.947113487115154d-2*rhoa*(-4.7341
3182     1         38489271654d-2*gammaaa*t285*t79*t94*t97-4.529674036246635
3183     2         d-2*gammaaa*t263*t30*t94*t97-4.756157738058966d-1*gammaaa
3184     3         *t207*t78*t79*t97+1.3589022108739904d-1*gammaaa*t30*(t335
3185     4         +t333+t332+t331+t330+t329+t327+t326+t324+t323+t322+t321+t
3186     5         320+t319+t318+t317)*t97+4.529674036246633d-2*gammaaa*t103
3187     6         *t126*t30*t97+8.32327604160319d-1*gammaaa*t103*t109*t163*
3188     7         t97-1.3589022108739904d-1*gammaaa*t104*t30*t94*(-2.722902
3189     8         533156262d-2*t285*t85*t86*t95-1.2310768124788125d-2*t263*
3190     9         t36*t95+2.5852613062055063d-1*t105*t202*t78*t85*t86*t90+4
3191     :         .2253305624712234d+2*t105*t200*t78*t85*t86*t90-8.70966242
3192     ;         2133856d-1*t105*t164*t60*t85*t86*t90+3.04838184774685d+1*
3193     <         t105*t163*t176*t60*t85*t90+4.4792549599545534d+0*t105*t20
3194     =         2*t36*t60*t90+9.953899911010116d-1*t105*t126*t36*t60*t90-
3195     >         3.693230437436437d-2*t105*t328*t36*t90-1.2675991687413668
3196     ?         d+3*t200*t205*t211*t78*t85*t86-1.343776487986366d+1*t202*
3197     @         t205*t211*t36*t60+t340+t339+t338+t337+t336+t335+t333+t332
3198     1         +t331+t330+t329+t327+t326+t324+t323+t322+t321+t320+t319+t
3199     2         318+t317)+4.756157738058966d-1*gammaaa*t104*t213*t78*t79*
3200     3         t94+8.153413265243942d-1*gammaaa*t106*t193*t213*t30*t94-4
3201     4         .529674036246633d-2*gammaaa*t104*t106*t126*t30*t94-8.3232
3202     5         7604160319d-1*gammaaa*t104*t106*t109*t163*t94+t316+t314+t
3203     6         313+t312+t311+t310+t309-4.076706632621971d-1*gammaaa*t103
3204     7         *t104*t213*t30-4.076706632621971d-1*gammaaa*t104*t106*t20
3205     8         7*t30+8.153413265243942d-1*gammaaa*t103*t193*t194*t30)-2.
3206     9         473556743557576d-2*t107*t216+7.420670230672731d-2*t214)*t
3207     :         99-2.4735567435575762d-2*rhoa*t304*t89**3+t182*(-t181*t89
3208     ;         +2.4735567435575762d-2*rhoa*t180*t89+1.2367783717787881d-
3209     <         2*t183)+t77*(-1.2367783717787881d-2*rhoa*(-1.630682653048
3210     =         789d+0*gammaaa*t30*t303*t35*t88**3+3.8049261904471743d+0*
3211     >         gammaaa*t78*t79*t83*t84*t88+3.170771825372647d-1*gammaaa*
3212     ?         t164*t35*t79*t84*t88-6.658620833282555d+0*gammaaa*t109*t1
3213     @         63*t35*t84*t88-8.153413265243944d-1*gammaaa*t174*t30*t84*
3214     1         t88+1.630682653048789d+0*gammaaa*t177*t178*t30*t35*t88-2.
3215     2         7178044217479813d-1*gammaaa*t30*t35*t84*(1.35210577999079
3216     3         26d+4*t165*t31*t78*t85*t86*t87-1.6722551850497014d+2*t162
3217     4         *t31*t78*t85*t86*t87-2.787091975082837d+1*t164*t31*t76*t8
3218     5         5*t86*t87+9.754821912789926d+2*t163*t176*t31*t76*t85*t87-
3219     6         2.8973695285516987d+3*t162*t31*t36*t76*t87+7.808916010243
3220     7         009d+4*t286*t31*t36*t87+1.1944679893212153d+1*t282*t31*t3
3221     8         6*t87-4.0563173399723773d+4*t165*t166*t175*t78*t85*t86+4.
3222     9         78752093741761d-2*t285*t37*t85*t86-1.4075311556007766d+1*
3223     :         t283*t302*t37*t85+1.0053793968576981d+0*t176*t284*t37*t85
3224     ;         +8.692108585655094d+3*t162*t166*t175*t36*t76+9.3706992122
3225     <         9161d+5*t286*t287*t36/t32**5.0d+0-7.028024409218707d+5*t1
3226     =         66*t175*t286*t36+t301+t300+t299+t298+t297+t296+t295+t294+
3227     >         t293+t292+t291+t290+t289+t288)-1.035785462955064d+1*gamma
3228     ?         aa*t283*t35*t39*t86-8.153413265243944d-1*gammaaa*t177*t30
3229     @         *t83*t84+1.9024630952235871d+0*gammaaa*t177*t35*t78*t79*t
3230     1         84-3.170771825372647d-1*gammaaa*t164*t39*t79*t83+6.658620
3231     2         833282555d+0*gammaaa*t109*t163*t39*t83+1.630682653048789d
3232     3         +0*gammaaa*t178*t179*t30*t83-1.9024630952235871d+0*gammaa
3233     4         a*t174*t39*t78*t79-3.8049261904471743d+0*gammaaa*t178*t17
3234     5         9*t35*t78*t79+8.807699514924018d-2*gammaaa*t285*t35*t39*t
3235     6         79+1.1097701388804264d+0*gammaaa*t109*t284*t35*t39+2.7178
3236     7         044217479813d-1*gammaaa*t30*(t301+t300+t299+t298+t297+t29
3237     8         6+t295+t294+t293+t292+t291+t290+t289+t288)*t39)-3.7103351
3238     9         15336365d-2*t180)+t184*(t308+t307-9.894226974230308d-2*rh
3239     :         oa*t107*t214)+t306-1.0d+0*rhoa*t282+2.0d+0*rhoa*t275-3.0d
3240     ;         +0*t162+3.0d+0*t140+1.2367783717787893d-2*t108*t126)*wght
3241     <         +Amat3(iq,D3_RA_RA_RA)
3242            Amat3(iq,D3_RA_RA_RB) = ((4.947113487115154d-2*rhoa*(2.31202
3243     1         11226675536d-2*gammaaa*t285*t79*t94*t97+1.509891345415545
3244     2         2d-2*gammaaa*t263*t30*t94*t97-3.170771825372644d-1*gammaa
3245     3         a*t223*t78*t79*t97-1.585385912686322d-1*gammaaa*t207*t78*
3246     4         t79*t97+1.3589022108739904d-1*gammaaa*t30*(t355+t354+t353
3247     5         +t352+t351+t350+t348+t347+t346+t345+t344+t343+t342+t335+t
3248     6         332+t326+t321+t318+t317)*t97-1.5098913454155452d-2*gammaa
3249     7         a*t103*t126*t30*t97+8.323276041603189d-1*gammaaa*t103*t10
3250     8         9*t163*t97-1.3589022108739904d-1*gammaaa*t104*t30*t94*(1.
3251     9         1071142167778211d-2*t285*t85*t86*t95+4.103589374929375d-3
3252     :         *t263*t36*t95+1.7235075374703374d-1*t105*t220*t78*t85*t86
3253     ;         *t90+8.617537687351686d-2*t105*t202*t78*t85*t86*t90+4.225
3254     <         330562471223d+2*t105*t200*t78*t85*t86*t90-8.7096624221338
3255     =         57d-1*t105*t164*t60*t85*t86*t90+3.0483818477468494d+1*t10
3256     >         5*t163*t176*t60*t85*t90+2.9861699733030356d+0*t105*t220*t
3257     ?         36*t60*t90+1.4930849866515178d+0*t105*t202*t36*t60*t90-3.
3258     @         317966637003373d-1*t105*t126*t36*t60*t90-3.69323043743643
3259     1         7d-2*t105*t349*t36*t90-1.267599168741367d+3*t200*t205*t21
3260     2         1*t78*t85*t86-8.958509919909107d+0*t205*t211*t220*t36*t60
3261     3         -4.4792549599545534d+0*t202*t205*t211*t36*t60+t355+t354+t
3262     4         353+t352+t351+t350+t348+t347+t346+t345+t344+t343+t342+t34
3263     5         0+t339+t338+t337+t336+t335+t332+t326+t321+t318+t317)+3.17
3264     6         0771825372644d-1*gammaaa*t104*t224*t78*t79*t94+1.58538591
3265     7         2686322d-1*gammaaa*t104*t213*t78*t79*t94+5.43560884349596
3266     8         2d-1*gammaaa*t106*t193*t224*t30*t94+2.717804421747981d-1*
3267     9         gammaaa*t106*t193*t213*t30*t94+1.5098913454155452d-2*gamm
3268     :         aaa*t104*t106*t126*t30*t94-8.323276041603189d-1*gammaaa*t
3269     ;         104*t106*t109*t163*t94+t316+t314+t313+t312+t311+t310+t309
3270     <         -2.717804421747981d-1*gammaaa*t103*t104*t224*t30-2.717804
3271     =         421747981d-1*gammaaa*t104*t106*t223*t30-1.358902210873990
3272     >         4d-1*gammaaa*t103*t104*t213*t30-1.3589022108739904d-1*gam
3273     ?         maaa*t104*t106*t207*t30+8.153413265243943d-1*gammaaa*t103
3274     @         *t193*t194*t30)+4.947113487115154d-2*t225+8.2451891451919
3275     1         25d-3*t107*t216+2.473556743557577d-2*t214)*t99+2.0d+0*rho
3276     2         a*t341+t184*(t308+t307-9.894226974230308d-2*rhoa*t107*t22
3277     3         5)+t306+2.0d+0*t217+1.0d+0*t140-4.1225945725959623d-3*t10
3278     4         8*t126)*wght+Amat3(iq,D3_RA_RA_RB)
3279            Cmat3(iq,D3_RA_RA_GAA) = (t182*(2.4735567435575762d-2*rhoa*t
3280     1         231*t89-t111*t181)+t77*(-1.2367783717787881d-2*rhoa*(3.44
3281     2         70150749406775d-1*gammaaa*t33*t78*t84*t86*t88-5.435608843
3282     3         495963d-1*t30*t83*t84*t88+1.268308730149058d+0*t35*t78*t7
3283     4         9*t84*t88-5.435608843495963d-1*gammaaa*t229*t30*t84*t88+1
3284     5         .0871217686991926d+0*gammaaa*t110*t178*t30*t83*t88-2.5366
3285     6         17460298116d+0*gammaaa*t110*t178*t35*t78*t79*t88+1.087121
3286     7         7686991926d+0*gammaaa*t178*t230*t30*t35*t88-2.71780442174
3287     8         79813d-1*gammaaa*t30*t35*t84*(-2.2296735800662684d+2*gamm
3288     9         aaa*t31*t76*t78*t86*t87-1.9315796857011325d+3*gammaaa*t10
3289     :         9*t165*t31*t87+2.3889359786424305d+1*gammaaa*t109*t162*t3
3290     ;         1*t87-1.1490050249802264d-1*gammaaa*t164*t37*t86+4.021517
3291     <         5874307907d+0*gammaaa*t163*t176*t37+t361+t360+t359+t358+t
3292     =         357+t356+5.794739057103396d+3*gammaaa*t109*t165*t166*t175
3293     >         )-2.872512562450566d-2*gammaaa*t164*t33*t39*t86+1.2683087
3294     ?         30149058d+0*gammaaa*t110*t78*t79*t83*t84-5.43560884349596
3295     @         3d-1*gammaaa*t230*t30*t83*t84+1.268308730149058d+0*gammaa
3296     1         a*t230*t35*t78*t79*t84+1.0569239417908823d-1*gammaaa*t110
3297     2         *t164*t35*t79*t84-2.7178044217479813d-1*t177*t30*t35*t84-
3298     3         2.2195402777608514d+0*gammaaa*t109*t110*t163*t35*t84-7.38
3299     4         6460874872879d-2*gammaaa*t109*t177*t33*t84-2.717804421747
3300     5         9813d-1*gammaaa*t110*t174*t30*t84-1.268308730149058d+0*t3
3301     6         9*t78*t79*t83-1.268308730149058d+0*gammaaa*t229*t39*t78*t
3302     7         79-1.0569239417908823d-1*t164*t35*t39*t79+2.7178044217479
3303     8         813d-1*gammaaa*t30*(t361+t360+t359+t358+t357+t356)*t39+2.
3304     9         2195402777608514d+0*t109*t163*t35*t39+6.032276381146184d-
3305     :         1*gammaaa*t163*t176*t33*t39+2.7178044217479813d-1*t174*t3
3306     ;         0*t39-1.630682653048789d+0*gammaaa*t110*t179*t30*t303*t35
3307     <         +5.435608843495963d-1*t178*t179*t30*t35+5.435608843495963
3308     =         d-1*gammaaa*t110*t177*t178*t30*t35+1.4772921749745757d-1*
3309     >         gammaaa*t109*t178*t179*t33)-2.4735567435575762d-2*t231)+t
3310     ?         398+t396+t362-2.4735567435575762d-2*rhoa*t111*t183*t304)*
3311     @         wght+Cmat3(iq,D3_RA_RA_GAA)
3312            Cmat3(iq,D3_RA_RA_GAB) = ((4.947113487115154d-2*rhoa*(7.5494
3313     1         56727077722d-3*t126*t30*t94*t97+1.0258973437323433d-3*gam
3314     2         maaa*t109*t126*t92*t97+1.3589022108739904d-1*gammaaa*t30*
3315     3         (t428+t427+t426+t425+t424+t423+t422)*t97+6.79451105436995
3316     4         2d-2*t207*t30*t97-1.3589022108739904d-1*gammaaa*t104*t30*
3317     5         t94*(4.1035893749293734d-3*gammaaa*t109*t126*t95-3.693230
3318     6         437436437d-2*gammaaa*t105*t109*t202*t90-6.036186517816032
3319     7         d+1*gammaaa*t105*t109*t200*t90+t432+t431+t430+t429+t428+t
3320     8         427+t426+t425+t424+t423+t422)+2.717804421747981d-1*gammaa
3321     9         a*t114*t193*t213*t30*t94-6.794511054369952d-2*t104*t213*t
3322     :         30*t94-1.5098913454155444d-2*gammaaa*t104*t114*t126*t30*t
3323     ;         94-9.233076093591093d-3*gammaaa*t104*t109*t213*t92+t421+t
3324     <         420+t419+t418+t417+t416+t415+t414+t413+t412+t411+t410+t40
3325     =         9+t408+t407+t406+t405+t404+t403+t402+t401-1.3589022108739
3326     >         904d-1*gammaaa*t104*t114*t207*t30)+t400-8.245189145191921
3327     ?         d-3*t115*t216)*t99+t184*(t433-t115*t215)+t399)*wght+Cmat3
3328     @         (iq,D3_RA_RA_GAB)
3329            Cmat3(iq,D3_RA_RA_GBB) = (t398+t396+t362)*wght+Cmat3(iq,D3_R
3330     1         A_RA_GBB)
3331            Cmat3(iq,D3_RA_RB_GAA) = ((4.947113487115154d-2*rhoa*(-3.774
3332     1         728363538862d-3*t126*t30*t94*t97-5.129486718661718d-4*gam
3333     2         maaa*t109*t126*t92*t97+1.3589022108739904d-1*gammaaa*t30*
3334     3         (t437+t436+t435+t434+t388+t386+t385)*t97+3.39725552718497
3335     4         6d-2*t223*t30*t97-1.3589022108739904d-1*gammaaa*t104*t30*
3336     5         t94*(-2.0517946874646872d-3*gammaaa*t109*t126*t95-1.84661
3337     6         52187182186d-2*gammaaa*t105*t109*t220*t90-3.0180932589080
3338     7         156d+1*gammaaa*t105*t109*t200*t90+t437+t436+t435+t434+t39
3339     8         5+t394+t393+t392+t388+t386+t385)+2.717804421747981d-1*gam
3340     9         maaa*t112*t193*t224*t30*t94-3.397255527184976d-2*t104*t22
3341     :         4*t30*t94+1.509891345415545d-2*gammaaa*t104*t112*t126*t30
3342     ;         *t94-4.6165380467955464d-3*gammaaa*t104*t109*t224*t92+t38
3343     <         4+t383+t382+t381+t380+t379+t378+t377+t376+t375+t374+t373+
3344     =         t372+t371+t370+t369+t368+t367+t366+t365+t364-1.3589022108
3345     >         739904d-1*gammaaa*t104*t112*t223*t30)+t363+8.245189145191
3346     ?         922d-3*t113*t216)*t99+t184*(t397-t113*t226)+t362)*wght+Cm
3347     @         at3(iq,D3_RA_RB_GAA)
3348            Cmat3(iq,D3_RA_RB_GAB) = ((4.947113487115154d-2*rhoa*(-7.549
3349     1         456727077724d-3*t126*t30*t94*t97-1.0258973437323436d-3*ga
3350     2         mmaaa*t109*t126*t92*t97+1.3589022108739904d-1*gammaaa*t30
3351     3         *(t441+t440+t439+t438+t425+t423+t422)*t97+6.7945110543699
3352     4         52d-2*t223*t30*t97-1.3589022108739904d-1*gammaaa*t104*t30
3353     5         *t94*(-4.1035893749293745d-3*gammaaa*t109*t126*t95-3.6932
3354     6         30437436437d-2*gammaaa*t105*t109*t220*t90-6.0361865178160
3355     7         31d+1*gammaaa*t105*t109*t200*t90+t441+t440+t439+t438+t432
3356     8         +t431+t430+t429+t425+t423+t422)+2.717804421747981d-1*gamm
3357     9         aaa*t114*t193*t224*t30*t94-6.794511054369952d-2*t104*t224
3358     :         *t30*t94+1.509891345415545d-2*gammaaa*t104*t114*t126*t30*
3359     ;         t94-9.233076093591093d-3*gammaaa*t104*t109*t224*t92+t421+
3360     <         t420+t419+t418+t417+t416+t415+t414+t413+t412+t411+t410+t4
3361     =         09+t408+t407+t406+t405+t404+t403+t402+t401-1.358902210873
3362     >         9904d-1*gammaaa*t104*t114*t223*t30)+t400+8.24518914519192
3363     ?         2d-3*t115*t216)*t99+t184*(t433-t115*t226)+t399)*wght+Cmat
3364     @         3(iq,D3_RA_RB_GAB)
3365            Cmat3(iq,D3_RA_GAA_GAA) = (t182*(1.2367783717787881d-2*rhoa*
3366     1         t249*t89-t111*t232+1.2367783717787881d-2*rhoa*t111*t231)-
3367     2         2.4735567435575762d-2*rhoa*t247*t304*t89+t77*(-1.23677837
3368     3         17787881d-2*rhoa*(-1.4772921749745757d-1*t109*t33*t84*t88
3369     4         +8.02998241071919d-2*gammaaa*t176*t178*t35*t37*t88-1.6306
3370     5         82653048789d+0*gammaaa*t248*t30*t303*t35*t88+1.0871217686
3371     6         991926d+0*t110*t178*t30*t35*t88+2.9545843499491514d-1*gam
3372     7         maaa*t109*t110*t178*t33*t88-2.7178044217479813d-1*gammaaa
3373     8         *t30*t35*t84*(2.3889359786424305d+1*t109*t31*t76*t87-6.89
3374     9         4030149881355d-1*t37*t78*t86)+3.4470150749406775d-1*gamma
3375     :         aa*t110*t33*t78*t84*t86-3.4470150749406775d-1*t33*t39*t78
3376     ;         *t86-4.014991205359595d-2*gammaaa*t176*t37*t83*t84-5.4356
3377     <         08843495963d-1*t110*t30*t83*t84+1.268308730149058d+0*t110
3378     =         *t35*t78*t79*t84+9.368312812505724d-2*gammaaa*t302*t35*t3
3379     >         7*t78*t84-5.435608843495963d-1*t230*t30*t35*t84-1.4772921
3380     ?         749745757d-1*gammaaa*t109*t230*t33*t84-5.435608843495963d
3381     @         -1*gammaaa*t110*t229*t30*t84+5.435608843495963d-1*gammaaa
3382     1         *t178*t248*t30*t83-1.268308730149058d+0*gammaaa*t178*t248
3383     2         *t35*t78*t79+5.435608843495963d-1*t229*t30*t39+1.08712176
3384     3         86991926d+0*gammaaa*t110*t178*t230*t30*t35)-1.23677837177
3385     4         87881d-2*t249)+t452+t451+t442)*wght+Cmat3(iq,D3_RA_GAA_GA
3386     5         A)
3387            Cmat3(iq,D3_RA_GAA_GAB) = (t184*(t455-4.947113487115154d-2*r
3388     1         hoa*t113*t245-t115*t239)+t454+t453)*wght+Cmat3(iq,D3_RA_G
3389     2         AA_GAB)
3390            Cmat3(iq,D3_RA_GAA_GBB) = t456+Cmat3(iq,D3_RA_GAA_GBB)
3391            Cmat3(iq,D3_RA_GAB_GAB) = ((4.947113487115154d-2*rhoa*(-1.07
3392     1         71922109189608d-2*t78*t86*t92*t97+1.3589022108739904d-1*t
3393     2         243*t30*t97-1.3589022108739904d-1*gammaaa*t104*t30*t94*(7
3394     3         .465424933257588d-1*t105*t109*t60*t90-2.1543844218379216d
3395     4         -2*t78*t86*t95)+1.4637988769540178d-3*gammaaa*t104*t302*t
3396     5         78*t94*t95+2.5093695033497454d-3*gammaaa*t106*t176*t193*t
3397     6         94*t95-1.2546847516748727d-3*gammaaa*t103*t104*t176*t95-3
3398     7         .170771825372644d-1*gammaaa*t193*t259*t78*t79*t94+1.58538
3399     8         5912686322d-1*t104*t114*t78*t79*t94-8.153413265243942d-1*
3400     9         gammaaa*t106*t259*t30*t315*t94+5.435608843495962d-1*gamma
3401     :         aa*t114*t193*t244*t30*t94-1.3589022108739904d-1*t104*t244
3402     ;         *t30*t94+2.717804421747981d-1*t106*t114*t193*t30*t94+2.15
3403     <         43844218379216d-2*gammaaa*t104*t114*t78*t86*t92-1.8466152
3404     =         187182186d-2*gammaaa*t104*t109*t244*t92+3.693230437436437
3405     >         d-2*gammaaa*t106*t109*t114*t193*t92-9.233076093591093d-3*
3406     ?         t104*t106*t109*t92+2.717804421747981d-1*gammaaa*t103*t193
3407     @         *t259*t30-2.717804421747981d-1*gammaaa*t104*t114*t243*t30
3408     1         -1.3589022108739904d-1*t103*t104*t114*t30)+2.473556743557
3409     2         577d-2*t260)*t99+9.894226974230308d-2*rhoa*t107*t258*t305
3410     3         +t184*(-4.947113487115154d-2*rhoa*t107*t260-t115*t246-4.9
3411     4         47113487115154d-2*rhoa*t115*t245))*wght+Cmat3(iq,D3_RA_GA
3412     5         B_GAB)
3413            Cmat3(iq,D3_RA_GAB_GBB) = (t184*(t455-t113*t246-4.9471134871
3414     1         15154d-2*rhoa*t115*t238)+t454+t453)*wght+Cmat3(iq,D3_RA_G
3415     2         AB_GBB)
3416            Cmat3(iq,D3_RA_GBB_GBB) = t456+Cmat3(iq,D3_RA_GBB_GBB)
3417            Cmat3(iq,D3_GAA_GAA_GAA) = (-1.2367783717787881d-2*rhoa*t77*
3418     1         (-3.2735882553616696d-2*gammaaa*t457*t84*t87-1.2044973616
3419     2         078786d-1*t176*t35*t37*t84-4.431876524923727d-1*t109*t110
3420     3         *t33*t84+2.4089947232157571d-1*gammaaa*t110*t176*t178*t35
3421     4         *t37-1.630682653048789d+0*gammaaa*t110**3*t30*t303*t35+1.
3422     5         630682653048789d+0*t178*t248*t30*t35+4.431876524923727d-1
3423     6         *gammaaa*t109*t178*t248*t33)+t460+t459+t458-2.47355674355
3424     7         75762d-2*rhoa*t111**3*t304+3.710335115336365d-2*rhoa*t111
3425     8         *t182*t249)*wght+Cmat3(iq,D3_GAA_GAA_GAA)
3426            Cmat3(iq,D3_GAA_GAA_GAB) = t463+Cmat3(iq,D3_GAA_GAA_GAB)
3427            Cmat3(iq,D3_GAA_GAA_GBB) = (t460+t459+t458)*wght+Cmat3(iq,D3
3428     1         _GAA_GAA_GBB)
3429            Cmat3(iq,D3_GAA_GAB_GAB) = (4.947113487115154d-2*rhoa*(2.509
3430     1         3695033497454d-3*gammaaa*t114*t176*t193*t94*t95-9.4101356
3431     2         37561545d-4*t104*t176*t94*t95-8.153413265243942d-1*gammaa
3432     3         a*t112*t259*t30*t315*t94+6.794511054369952d-2*t193*t259*t
3433     4         30*t94+2.717804421747981d-1*t112*t114*t193*t30*t94+9.2330
3434     5         76093591093d-3*gammaaa*t109*t193*t259*t92+3.6932304374364
3435     6         37d-2*gammaaa*t109*t112*t114*t193*t92-9.233076093591093d-
3436     7         3*t104*t109*t114*t92+t462+t461-1.2787454122506506d-4*gamm
3437     8         aaa*t104*t105*t457)*t99+9.894226974230308d-2*rhoa*t113*t2
3438     9         58*t305+t184*(-4.947113487115154d-2*rhoa*t113*t260-9.8942
3439     :         26974230308d-2*rhoa*t115*t257))*wght+Cmat3(iq,D3_GAA_GAB_
3440     ;         GAB)
3441            Cmat3(iq,D3_GAA_GAB_GBB) = t463+Cmat3(iq,D3_GAA_GAB_GBB)
3442            Cmat3(iq,D3_GAB_GAB_GAB) = 4.947113487115154d-2*rhoa*(7.5281
3443     1         08510049236d-3*gammaaa*t114*t176*t193*t94*t95-1.882027127
3444     2         512309d-3*t104*t176*t94*t95-8.153413265243942d-1*gammaaa*
3445     3         t114**3*t30*t315*t94+4.076706632621971d-1*t193*t259*t30*t
3446     4         94+5.539845656154656d-2*gammaaa*t109*t193*t259*t92-2.7699
3447     5         22828077328d-2*t104*t109*t114*t92-2.557490824501301d-4*ga
3448     6         mmaaa*t104*t105*t457)*t99*wght+9.894226974230308d-2*rhoa*
3449     7         t115**3*t305*wght-1.4841340461345462d-1*rhoa*t115*t184*t2
3450     8         60*wght+Cmat3(iq,D3_GAB_GAB_GAB)
3451          endif ! rhoa.gt.tol_rho
3452        else  ! ipol.eq.1
3453          rhoa    = rho(iq,R_A)
3454          rhob    = rho(iq,R_B)
3455          gammaaa = rgamma(iq,G_AA)
3456          gammaab = rgamma(iq,G_AB)
3457          gammabb = rgamma(iq,G_BB)
3458          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
3459            t1 = rhoa**3.333333333333333d-1
3460            t2 = t1**5.0d-1
3461            t3 = 1/t2
3462            t4 = 1.530901310039024d-2*t3+1.0465751434d-1
3463            t5 = 7.876233178997433d-1*t3*t4+1.9269083139d-1
3464            t6 = 7.876233178997433d-1*t3*t5+4.3896648423d-1
3465            t7 = 1/t6
3466            t8 = 1.269642451250142d+0*t2*t7+1.0d+0
3467            t9 = log(t8)
3468            t10 = 1/t1
3469            t11 = 1.2746961887000874d-1*t10+1.0d+0
3470            t12 = 2.4141993114533214d-2*t3+1.0186556948d-1
3471            t13 = 7.876233178997433d-1*t12*t3+2.2308199064d-1
3472            t14 = 7.876233178997433d-1*t13*t3+4.7231125998d-1
3473            t15 = 1/t14
3474            t16 = 1.269642451250142d+0*t15*t2+1.0d+0
3475            t17 = log(t16)
3476            t18 = 1.325688999052018d-1*t10+1.0d+0
3477            t19 = 1.3212998810398843d-2*t3+2.9729725188d-2
3478            t20 = 7.876233178997433d-1*t19*t3+1.2236585478d-1
3479            t21 = 7.876233178997433d-1*t20*t3+3.497952466d-1
3480            t22 = 1/t21
3481            t23 = 1.269642451250142d+0*t2*t22+1.0d+0
3482            t24 = log(t23)
3483            t25 = 6.901399211255826d-2*t10+1.0d+0
3484            t26 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
3485     1         21814d-2*t17*t18-3.10907d-2*t11*t9)-3.37738d-2*t24*t25)+3
3486     2         .37738d-2*t24*t25)-6.21814d-2*t17*t18
3487            t27 = rhoa**1.1666666666666667d+0
3488            t28 = 1/t27**2.0d+0
3489            t29 = exp(-8.085523023512745d+1*t26)
3490            t30 = t29-1.0d+0
3491            t31 = 1/t30
3492            t32 = 2.7178044217479813d-1*gammaaa*t28*t31
3493            t33 = t32+1.0d+0
3494            t34 = (gammaaa*t28)**2.0d+0
3495            t35 = 1/t30**2.0d+0
3496            t36 = 7.38646087487288d-2*t34*t35+t32+1.0d+0
3497            t37 = 1/t36
3498            t38 = 2.7178044217479813d-1*gammaaa*t28*t33*t37+1.0d+0
3499            t39 = log(t38)
3500            t40 = rhob**3.333333333333333d-1
3501            t41 = t40**5.0d-1
3502            t42 = 1/t41
3503            t43 = 1.530901310039024d-2*t42+1.0465751434d-1
3504            t44 = 7.876233178997433d-1*t42*t43+1.9269083139d-1
3505            t45 = 7.876233178997433d-1*t42*t44+4.3896648423d-1
3506            t46 = 1/t45
3507            t47 = 1.269642451250142d+0*t41*t46+1.0d+0
3508            t48 = log(t47)
3509            t49 = 1/t40
3510            t50 = 1.2746961887000874d-1*t49+1.0d+0
3511            t51 = 2.4141993114533214d-2*t42+1.0186556948d-1
3512            t52 = 7.876233178997433d-1*t42*t51+2.2308199064d-1
3513            t53 = 7.876233178997433d-1*t42*t52+4.7231125998d-1
3514            t54 = 1/t53
3515            t55 = 1.269642451250142d+0*t41*t54+1.0d+0
3516            t56 = log(t55)
3517            t57 = 1.325688999052018d-1*t49+1.0d+0
3518            t58 = 1.3212998810398843d-2*t42+2.9729725188d-2
3519            t59 = 7.876233178997433d-1*t42*t58+1.2236585478d-1
3520            t60 = 7.876233178997433d-1*t42*t59+3.497952466d-1
3521            t61 = 1/t60
3522            t62 = 1.269642451250142d+0*t41*t61+1.0d+0
3523            t63 = log(t62)
3524            t64 = 6.901399211255826d-2*t49+1.0d+0
3525            t65 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(6.
3526     1         21814d-2*t56*t57-3.10907d-2*t48*t50)-3.37738d-2*t63*t64)+
3527     2         3.37738d-2*t63*t64)-6.21814d-2*t56*t57
3528            t66 = rhob+rhoa
3529            t67 = t66**3.333333333333333d-1
3530            t68 = 1/t67
3531            t69 = 1.325688999052018d-1*t68+1.0d+0
3532            t70 = t67**5.0d-1
3533            t71 = 1/t70
3534            t72 = 2.4141993114533214d-2*t71+1.0186556948d-1
3535            t73 = 7.876233178997433d-1*t71*t72+2.2308199064d-1
3536            t74 = 7.876233178997433d-1*t71*t73+4.7231125998d-1
3537            t75 = 1/t74
3538            t76 = 1.269642451250142d+0*t70*t75+1.0d+0
3539            t77 = log(t76)
3540            t78 = rhoa-rhob
3541            t79 = 1/t66
3542            t80 = 1.0d+0-t78*t79
3543            t81 = t80**1.3333333333333333d+0
3544            t82 = t78*t79+1.0d+0
3545            t83 = t82**1.3333333333333333d+0
3546            t84 = 1.923661050931536d+0*t83+1.923661050931536d+0*t81-3.84
3547     1         7322101863072d+0
3548            t85 = 6.901399211255826d-2*t68+1.0d+0
3549            t86 = 1.3212998810398843d-2*t71+2.9729725188d-2
3550            t87 = 7.876233178997433d-1*t71*t86+1.2236585478d-1
3551            t88 = 7.876233178997433d-1*t71*t87+3.497952466d-1
3552            t89 = 1/t88
3553            t90 = 1.269642451250142d+0*t70*t89+1.0d+0
3554            t91 = log(t90)
3555            t92 = t78**4
3556            t93 = 1/t66**4
3557            t94 = 1.2746961887000874d-1*t68+1.0d+0
3558            t95 = 1.530901310039024d-2*t71+1.0465751434d-1
3559            t96 = 7.876233178997433d-1*t71*t95+1.9269083139d-1
3560            t97 = 7.876233178997433d-1*t71*t96+4.3896648423d-1
3561            t98 = 1/t97
3562            t99 = 1.269642451250142d+0*t70*t98+1.0d+0
3563            t100 = log(t99)
3564            t101 = 1.709920934161365d+0*(6.21814d-2*t69*t77-3.10907d-2*t
3565     1         100*t94)-3.37738d-2*t85*t91
3566            t102 = t101*t92*t93+3.37738d-2*t85*t91
3567            t103 = 5.848223622634648d-1*t102*t84-6.21814d-2*t69*t77
3568            t104 = rhob**1.1666666666666667d+0
3569            t105 = 1/t104**2.0d+0
3570            t106 = exp(-8.085523023512745d+1*t65)
3571            t107 = t106-1.0d+0
3572            t108 = 1/t107
3573            t109 = 2.7178044217479813d-1*gammabb*t105*t108
3574            t110 = t109+1.0d+0
3575            t111 = (gammabb*t105)**2.0d+0
3576            t112 = 1/t107**2.0d+0
3577            t113 = 7.38646087487288d-2*t111*t112+t109+1.0d+0
3578            t114 = 1/t113
3579            t115 = 2.7178044217479813d-1*gammabb*t105*t110*t114+1.0d+0
3580            t116 = log(t115)
3581            t117 = t80**6.666666666666666d-1
3582            t118 = t82**6.666666666666666d-1
3583            t119 = 5.0d-1*t118+5.0d-1*t117
3584            t120 = t119**3.0d+0
3585            t121 = gammabb+2.0d+0*gammaab+gammaaa
3586            t122 = t66**1.1666666666666667d+0
3587            t123 = 1/t122**2.0d+0
3588            t124 = t119**2.0d+0
3589            t125 = 1/t124
3590            t126 = 1/t120
3591            t127 = exp(-4.042761511756372d+1*t103*t126)
3592            t128 = t127-1.0d+0
3593            t129 = 1/t128
3594            t130 = 1.7121095002288222d-1*t121*t123*t125*t129
3595            t131 = t130+1.0d+0
3596            t132 = 1/t119**4.0d+0
3597            t133 = (t121*t123)**2.0d+0
3598            t134 = 1/t128**2.0d+0
3599            t135 = 2.931318940773787d-2*t132*t133*t134+t130+1.0d+0
3600            t136 = 1/t135
3601            t137 = 1.7121095002288222d-1*t121*t123*t125*t131*t136+1.0d+0
3602            t138 = log(t137)
3603            t139 = 1/rhoa**1.3333333333333333d+0
3604            t140 = 1/t8
3605            t141 = 1/t6**2
3606            t142 = 1/rhoa**1.3333333333333336d+0
3607            t143 = 1/t2**3
3608            t144 = 1/rhoa**6.666666666666667d-1
3609            t145 = -1.3127055298329054d-1*t143*t144*t4-2.009622615316665
3610     1         8d-3*t142
3611            t146 = 7.876233178997433d-1*t145*t3-1.3127055298329054d-1*t1
3612     1         43*t144*t5
3613            t147 = 2.11607075208357d-1*t144*t3*t7-1.269642451250142d+0*t
3614     1         141*t146*t2
3615            t148 = 1/t16
3616            t149 = 1/t14**2
3617            t150 = -1.3127055298329054d-1*t12*t143*t144-3.16913278626356
3618     1         7d-3*t142
3619            t151 = 7.876233178997433d-1*t150*t3-1.3127055298329054d-1*t1
3620     1         3*t143*t144
3621            t152 = 2.11607075208357d-1*t144*t15*t3-1.269642451250142d+0*
3622     1         t149*t151*t2
3623            t153 = 1/t23
3624            t154 = 1/t21**2
3625            t155 = -1.3127055298329054d-1*t143*t144*t19-1.73447766040861
3626     1         62d-3*t142
3627            t156 = 7.876233178997433d-1*t155*t3-1.3127055298329054d-1*t1
3628     1         43*t144*t20
3629            t157 = 2.11607075208357d-1*t144*t22*t3-1.269642451250142d+0*
3630     1         t154*t156*t2
3631            t158 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(1
3632     1         .3210398931339265d-3*t139*t9+6.21814d-2*t148*t152*t18-2.7
3633     2         47773264188438d-3*t139*t17-3.10907d-2*t11*t140*t147)-3.37
3634     3         738d-2*t153*t157*t25+7.769549222703733d-4*t139*t24)+3.377
3635     4         38d-2*t153*t157*t25-7.769549222703733d-4*t139*t24)-6.2181
3636     5         4d-2*t148*t152*t18+2.747773264188438d-3*t139*t17
3637            t159 = 1/t38
3638            t160 = rhoa**1.6666666666666674d-1
3639            t161 = 1/t27**3.0d+0
3640            t162 = -6.34154365074529d-1*gammaaa*t160*t161*t31
3641            t163 = 1/t30**2
3642            t164 = 2.1974870225448048d+1*gammaaa*t158*t163*t28*t29
3643            t165 = t164+t162
3644            t166 = 1/t36**2
3645            t167 = gammaaa**2
3646            t168 = 1/t27**5.0d+0
3647            t169 = 1/t30**3.0d+0
3648            t170 = -3.4470150749406775d-1*t160*t167*t168*t35+1.194467989
3649     1         3212153d+1*t158*t169*t29*t34+t164+t162
3650            t171 = -6.34154365074529d-1*gammaaa*t160*t161*t33*t37+2.7178
3651     1         044217479813d-1*gammaaa*t165*t28*t37-2.7178044217479813d-
3652     2         1*gammaaa*t166*t170*t28*t33
3653            t172 = 1/t66**1.3333333333333336d+0
3654            t173 = 1/t66**6.666666666666667d-1
3655            t174 = 1/t70**3
3656            t175 = -1.3127055298329054d-1*t173*t174*t72-3.16913278626356
3657     1         7d-3*t172
3658            t176 = 7.876233178997433d-1*t175*t71-1.3127055298329054d-1*t
3659     1         173*t174*t73
3660            t177 = 1/t74**2
3661            t178 = 2.11607075208357d-1*t173*t71*t75-1.269642451250142d+0
3662     1         *t176*t177*t70
3663            t179 = 1/t76
3664            t180 = -6.21814d-2*t178*t179*t69
3665            t181 = 1/t66**1.3333333333333333d+0
3666            t182 = 2.747773264188438d-3*t181*t77
3667            t183 = -1.3127055298329054d-1*t173*t174*t86-1.73447766040861
3668     1         62d-3*t172
3669            t184 = 7.876233178997433d-1*t183*t71-1.3127055298329054d-1*t
3670     1         173*t174*t87
3671            t185 = 1/t88**2
3672            t186 = 2.11607075208357d-1*t173*t71*t89-1.269642451250142d+0
3673     1         *t184*t185*t70
3674            t187 = 1/t90
3675            t188 = 3.37738d-2*t186*t187*t85
3676            t189 = -7.769549222703733d-4*t181*t91
3677            t190 = -1.3127055298329054d-1*t173*t174*t95-2.00962261531666
3678     1         58d-3*t172
3679            t191 = 7.876233178997433d-1*t190*t71-1.3127055298329054d-1*t
3680     1         173*t174*t96
3681            t192 = 1/t97**2
3682            t193 = 2.11607075208357d-1*t173*t71*t98-1.269642451250142d+0
3683     1         *t191*t192*t70
3684            t194 = 1/t99
3685            t195 = 1.709920934161365d+0*(-3.10907d-2*t193*t194*t94-2.747
3686     1         773264188438d-3*t181*t77+6.21814d-2*t178*t179*t69+1.32103
3687     2         98931339265d-3*t100*t181)+7.769549222703733d-4*t181*t91-3
3688     3         .37738d-2*t186*t187*t85
3689            t196 = t195*t92*t93
3690            t197 = 1/t66**5
3691            t198 = -4*t101*t197*t92
3692            t199 = t78**3
3693            t200 = 4*t101*t199*t93+t198+t196+t189+t188
3694            t201 = 1/t66**2
3695            t202 = t201*t78
3696            t203 = -t79
3697            t204 = t203+t202
3698            t205 = t80**3.333333333333333d-1
3699            t206 = -t201*t78
3700            t207 = t79+t206
3701            t208 = t82**3.333333333333333d-1
3702            t209 = 2.564881401242048d+0*t207*t208+2.564881401242048d+0*t
3703     1         204*t205
3704            t210 = 5.848223622634648d-1*t200*t84+5.848223622634648d-1*t1
3705     1         02*t209+t182+t180
3706            t211 = 1.0d+0*t103
3707            t212 = 1/t137
3708            t213 = 1/t205
3709            t214 = 1/t208
3710            t215 = 3.333333333333333d-1*t207*t214+3.333333333333333d-1*t
3711     1         204*t213
3712            t216 = t66**1.6666666666666674d-1
3713            t217 = 1/t122**3.0d+0
3714            t218 = -3.994922167200585d-1*t121*t125*t131*t136*t216*t217
3715            t219 = -3.4242190004576445d-1*t121*t123*t126*t129*t215
3716            t220 = -3.994922167200585d-1*t121*t125*t129*t216*t217
3717            t221 = 1/t128**2
3718            t222 = 1.2128284535269115d+2*t103*t132*t215-4.04276151175637
3719     1         2d+1*t126*t210
3720            t223 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222
3721            t224 = t223+t220+t219
3722            t225 = 1/t135**2
3723            t226 = t121**2
3724            t227 = 1/t122**5.0d+0
3725            t228 = -1.3679488390277675d-1*t132*t134*t216*t226*t227
3726            t229 = 1/t119**5.0d+0
3727            t230 = 1/t128**3.0d+0
3728            t231 = -5.862637881547574d-2*t127*t132*t133*t222*t230-1.1725
3729     1         27576309515d-1*t133*t134*t215*t229+t228+t223+t220+t219
3730            t232 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t231+
3731     1         1.7121095002288222d-1*t121*t123*t125*t136*t224+t218-3.424
3732     2         2190004576445d-1*t121*t123*t126*t131*t136*t215
3733            t233 = 2.473556743557577d-2*t120*t138
3734            t234 = 1/rhob**1.3333333333333333d+0
3735            t235 = 1/t47
3736            t236 = 1/t45**2
3737            t237 = 1/rhob**1.3333333333333336d+0
3738            t238 = 1/t41**3
3739            t239 = 1/rhob**6.666666666666667d-1
3740            t240 = -1.3127055298329054d-1*t238*t239*t43-2.00962261531666
3741     1         58d-3*t237
3742            t241 = 7.876233178997433d-1*t240*t42-1.3127055298329054d-1*t
3743     1         238*t239*t44
3744            t242 = 2.11607075208357d-1*t239*t42*t46-1.269642451250142d+0
3745     1         *t236*t241*t41
3746            t243 = 1/t55
3747            t244 = 1/t53**2
3748            t245 = -1.3127055298329054d-1*t238*t239*t51-3.16913278626356
3749     1         7d-3*t237
3750            t246 = 7.876233178997433d-1*t245*t42-1.3127055298329054d-1*t
3751     1         238*t239*t52
3752            t247 = 2.11607075208357d-1*t239*t42*t54-1.269642451250142d+0
3753     1         *t244*t246*t41
3754            t248 = 1/t62
3755            t249 = 1/t60**2
3756            t250 = -1.3127055298329054d-1*t238*t239*t58-1.73447766040861
3757     1         62d-3*t237
3758            t251 = 7.876233178997433d-1*t250*t42-1.3127055298329054d-1*t
3759     1         238*t239*t59
3760            t252 = 2.11607075208357d-1*t239*t42*t61-1.269642451250142d+0
3761     1         *t249*t251*t41
3762            t253 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t252*t
3763     1         64+7.769549222703733d-4*t234*t63+1.709920934161365d+0*(6.
3764     2         21814d-2*t243*t247*t57-2.747773264188438d-3*t234*t56-3.10
3765     3         907d-2*t235*t242*t50+1.3210398931339265d-3*t234*t48))+3.3
3766     4         7738d-2*t248*t252*t64-7.769549222703733d-4*t234*t63)-6.21
3767     5         814d-2*t243*t247*t57+2.747773264188438d-3*t234*t56
3768            t254 = 1/t115
3769            t255 = rhob**1.6666666666666674d-1
3770            t256 = 1/t104**3.0d+0
3771            t257 = -6.34154365074529d-1*gammabb*t108*t255*t256
3772            t258 = 1/t107**2
3773            t259 = 2.1974870225448048d+1*gammabb*t105*t106*t253*t258
3774            t260 = t259+t257
3775            t261 = 1/t113**2
3776            t262 = gammabb**2
3777            t263 = 1/t104**5.0d+0
3778            t264 = 1/t107**3.0d+0
3779            t265 = 1.1944679893212153d+1*t106*t111*t253*t264-3.447015074
3780     1         9406775d-1*t112*t255*t262*t263+t259+t257
3781            t266 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t265+2.
3782     1         7178044217479813d-1*gammabb*t105*t114*t260-6.341543650745
3783     2         29d-1*gammabb*t110*t114*t255*t256
3784            t267 = -4*t101*t199*t93+t198+t196+t189+t188
3785            t268 = t79+t202
3786            t269 = t206+t203
3787            t270 = 2.564881401242048d+0*t208*t269+2.564881401242048d+0*t
3788     1         205*t268
3789            t271 = 5.848223622634648d-1*t267*t84+5.848223622634648d-1*t1
3790     1         02*t270+t182+t180
3791            t272 = 3.333333333333333d-1*t214*t269+3.333333333333333d-1*t
3792     1         213*t268
3793            t273 = -3.4242190004576445d-1*t121*t123*t126*t129*t272
3794            t274 = 1.2128284535269115d+2*t103*t132*t272-4.04276151175637
3795     1         2d+1*t126*t271
3796            t275 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t274
3797            t276 = t275+t273+t220
3798            t277 = t275-5.862637881547574d-2*t127*t132*t133*t230*t274+t2
3799     1         73-1.172527576309515d-1*t133*t134*t229*t272+t228+t220
3800            t278 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t277+
3801     1         1.7121095002288222d-1*t121*t123*t125*t136*t276-3.42421900
3802     2         04576445d-1*t121*t123*t126*t131*t136*t272+t218
3803            t279 = 1/t27**4.0d+0
3804            t280 = 1.477292174974576d-1*gammaaa*t279*t35+2.7178044217479
3805     1         813d-1*t28*t31
3806            t281 = 2.7178044217479813d-1*t28*t33*t37+7.386460874872879d-
3807     1         2*gammaaa*t279*t31*t37-2.7178044217479813d-1*gammaaa*t166
3808     2         *t28*t280*t33
3809            t282 = 1/t122**4.0d+0
3810            t283 = 5.862637881547574d-2*t121*t132*t134*t282+1.7121095002
3811     1         288222d-1*t123*t125*t129
3812            t284 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t283+
3813     1         2.931318940773787d-2*t121*t129*t132*t136*t282+1.712109500
3814     2         2288222d-1*t123*t125*t131*t136
3815            t285 = 2.473556743557577d-2*t120*t212*t284*t66
3816            t286 = 1.172527576309515d-1*t121*t132*t134*t282+3.4242190004
3817     1         576445d-1*t123*t125*t129
3818            t287 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t286+
3819     1         5.862637881547574d-2*t121*t129*t132*t136*t282+3.424219000
3820     2         4576445d-1*t123*t125*t131*t136
3821            t288 = 1/t104**4.0d+0
3822            t289 = 1.477292174974576d-1*gammabb*t112*t288+2.717804421747
3823     1         9813d-1*t105*t108
3824            t290 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t289+7.
3825     1         386460874872879d-2*gammabb*t108*t114*t288+2.7178044217479
3826     2         813d-1*t105*t110*t114
3827            t291 = 1/rhoa**2.333333333333333d+0
3828            t292 = 1/t8**2
3829            t293 = t147**2
3830            t294 = 1/t6**3
3831            t295 = t146**2
3832            t296 = 1/rhoa**2.3333333333333334d+0
3833            t297 = 1/rhoa**1.6666666666666669d+0
3834            t298 = 1/t2**5
3835            t299 = 6.563527649164527d-2*t142*t298*t4+8.751370198886037d-
3836     1         2*t143*t297*t4+3.0144339229749983d-3*t296
3837            t300 = 6.563527649164527d-2*t142*t298*t5+8.751370198886037d-
3838     1         2*t143*t297*t5+7.876233178997433d-1*t299*t3-2.62541105966
3839     2         5811d-1*t143*t144*t145
3840            t301 = -1.4107138347223802d-1*t297*t3*t7-3.52678458680595d-2
3841     1         *t142*t143*t7-1.269642451250142d+0*t141*t2*t300-4.2321415
3842     2         0416714d-1*t141*t144*t146*t3+2.539284902500284d+0*t2*t294
3843     3         *t295
3844            t302 = 1/t16**2
3845            t303 = t152**2
3846            t304 = 1/t14**3
3847            t305 = t151**2
3848            t306 = 6.563527649164527d-2*t12*t142*t298+8.751370198886037d
3849     1         -2*t12*t143*t297+4.753699179395351d-3*t296
3850            t307 = 7.876233178997433d-1*t3*t306+6.563527649164527d-2*t13
3851     1         *t142*t298+8.751370198886037d-2*t13*t143*t297-2.625411059
3852     2         665811d-1*t143*t144*t150
3853            t308 = -1.269642451250142d+0*t149*t2*t307+2.539284902500284d
3854     1         +0*t2*t304*t305-1.4107138347223802d-1*t15*t297*t3-4.23214
3855     2         150416714d-1*t144*t149*t151*t3-3.52678458680595d-2*t142*t
3856     3         143*t15
3857            t309 = 1/t23**2
3858            t310 = t157**2
3859            t311 = 1/t21**3
3860            t312 = t156**2
3861            t313 = 6.563527649164527d-2*t142*t19*t298+8.751370198886037d
3862     1         -2*t143*t19*t297+2.601716490612924d-3*t296
3863            t314 = 7.876233178997433d-1*t3*t313+6.563527649164527d-2*t14
3864     1         2*t20*t298+8.751370198886037d-2*t143*t20*t297-2.625411059
3865     2         665811d-1*t143*t144*t155
3866            t315 = -1.269642451250142d+0*t154*t2*t314+2.539284902500284d
3867     1         +0*t2*t311*t312-1.4107138347223802d-1*t22*t297*t3-4.23214
3868     2         150416714d-1*t144*t154*t156*t3-3.52678458680595d-2*t142*t
3869     3         143*t22
3870            t316 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(-
3871     1         1.7613865241785687d-3*t291*t9+6.21814d-2*t148*t18*t308-6.
3872     2         21814d-2*t18*t302*t303-3.10907d-2*t11*t140*t301+3.10907d-
3873     3         2*t11*t292*t293+3.663697685584584d-3*t17*t291-5.495546528
3874     4         376876d-3*t139*t148*t152+2.642079786267853d-3*t139*t140*t
3875     5         147)-3.37738d-2*t153*t25*t315+3.37738d-2*t25*t309*t310-1.
3876     6         0359398963604977d-3*t24*t291+1.5539098445407465d-3*t139*t
3877     7         153*t157)+3.37738d-2*t153*t25*t315-3.37738d-2*t25*t309*t3
3878     8         10+1.0359398963604977d-3*t24*t291-1.5539098445407465d-3*t
3879     9         139*t153*t157)-6.21814d-2*t148*t18*t308+6.21814d-2*t18*t3
3880     :         02*t303-3.663697685584584d-3*t17*t291+5.495546528376876d-
3881     ;         3*t139*t148*t152
3882            t317 = rhoa**3.333333333333335d-1
3883            t318 = 1/rhoa**8.333333333333333d-1
3884            t319 = t158**2
3885            t320 = exp(-1.617104604702549d+2*t26)
3886            t321 = 1/t30**3
3887            t322 = 3.553566382931298d+3*gammaaa*t28*t319*t320*t321
3888            t323 = 2.2195402777608514d+0*gammaaa*t279*t31*t317
3889            t324 = -1.0569239417908823d-1*gammaaa*t161*t31*t318
3890            t325 = -1.0254939438542422d+2*gammaaa*t158*t160*t161*t163*t2
3891     1         9
3892            t326 = -1.776783191465649d+3*gammaaa*t163*t28*t29*t319
3893            t327 = 2.1974870225448048d+1*gammaaa*t163*t28*t29*t316
3894            t328 = t327+t326+t325+t324+t323+t322
3895            t329 = 1/t30**4.0d+0
3896            t330 = 1/t27**6.0d+0
3897            t331 = 2.0107587937153953d+0*t167*t317*t330*t35-5.7450251249
3898     1         01132d-2*t167*t168*t318*t35+2.897369528551698d+3*t319*t32
3899     2         0*t329*t34-9.657898428505661d+2*t169*t29*t319*t34+1.19446
3900     3         79893212153d+1*t169*t29*t316*t34+t327+t326+t325+t324+t323
3901     4         +t322-1.1148367900331342d+2*t158*t160*t167*t168*t169*t29
3902            t332 = 1/t36**3
3903            t333 = t170**2
3904            t334 = -1.0569239417908823d-1*gammaaa*t161*t318*t33*t37+2.21
3905     1         95402777608514d+0*gammaaa*t279*t317*t33*t37+2.71780442174
3906     2         79813d-1*gammaaa*t28*t328*t37-1.268308730149058d+0*gammaa
3907     3         a*t160*t161*t165*t37+5.435608843495963d-1*gammaaa*t28*t33
3908     4         *t332*t333-2.7178044217479813d-1*gammaaa*t166*t28*t33*t33
3909     5         1+1.268308730149058d+0*gammaaa*t160*t161*t166*t170*t33-5.
3910     6         435608843495963d-1*gammaaa*t165*t166*t170*t28
3911            t335 = -1.2367783717787881d-2*rhoa*t334-2.4735567435575762d-
3912     1         2*t171
3913            t336 = 1/t38**2
3914            t337 = t171**2
3915            t338 = t178**2
3916            t339 = 1/t76**2
3917            t340 = 6.21814d-2*t338*t339*t69
3918            t341 = t176**2
3919            t342 = 1/t74**3
3920            t343 = 1/t66**2.3333333333333334d+0
3921            t344 = 1/t70**5
3922            t345 = 1/t66**1.6666666666666669d+0
3923            t346 = 8.751370198886037d-2*t174*t345*t72+6.563527649164527d
3924     1         -2*t172*t344*t72+4.753699179395351d-3*t343
3925            t347 = 8.751370198886037d-2*t174*t345*t73+6.563527649164527d
3926     1         -2*t172*t344*t73+7.876233178997433d-1*t346*t71-2.62541105
3927     2         9665811d-1*t173*t174*t175
3928            t348 = -1.4107138347223802d-1*t345*t71*t75-3.52678458680595d
3929     1         -2*t172*t174*t75-4.23214150416714d-1*t173*t176*t177*t71-1
3930     2         .269642451250142d+0*t177*t347*t70+2.539284902500284d+0*t3
3931     3         41*t342*t70
3932            t349 = -6.21814d-2*t179*t348*t69
3933            t350 = 5.495546528376876d-3*t178*t179*t181
3934            t351 = 1/t66**2.333333333333333d+0
3935            t352 = -3.663697685584584d-3*t351*t77
3936            t353 = t186**2
3937            t354 = 1/t90**2
3938            t355 = -3.37738d-2*t353*t354*t85
3939            t356 = t184**2
3940            t357 = 1/t88**3
3941            t358 = 8.751370198886037d-2*t174*t345*t86+6.563527649164527d
3942     1         -2*t172*t344*t86+2.601716490612924d-3*t343
3943            t359 = 8.751370198886037d-2*t174*t345*t87+6.563527649164527d
3944     1         -2*t172*t344*t87+7.876233178997433d-1*t358*t71-2.62541105
3945     2         9665811d-1*t173*t174*t183
3946            t360 = -1.4107138347223802d-1*t345*t71*t89-3.52678458680595d
3947     1         -2*t172*t174*t89-4.23214150416714d-1*t173*t184*t185*t71-1
3948     2         .269642451250142d+0*t185*t359*t70+2.539284902500284d+0*t3
3949     3         56*t357*t70
3950            t361 = 3.37738d-2*t187*t360*t85
3951            t362 = -1.5539098445407465d-3*t181*t186*t187
3952            t363 = 1.0359398963604977d-3*t351*t91
3953            t364 = t193**2
3954            t365 = 1/t99**2
3955            t366 = t191**2
3956            t367 = 1/t97**3
3957            t368 = 8.751370198886037d-2*t174*t345*t95+6.563527649164527d
3958     1         -2*t172*t344*t95+3.0144339229749983d-3*t343
3959            t369 = 8.751370198886037d-2*t174*t345*t96+6.563527649164527d
3960     1         -2*t172*t344*t96+7.876233178997433d-1*t368*t71-2.62541105
3961     2         9665811d-1*t173*t174*t190
3962            t370 = -1.4107138347223802d-1*t345*t71*t98-3.52678458680595d
3963     1         -2*t172*t174*t98-4.23214150416714d-1*t173*t191*t192*t71-1
3964     2         .269642451250142d+0*t192*t369*t70+2.539284902500284d+0*t3
3965     3         66*t367*t70
3966            t371 = 1.709920934161365d+0*(-3.10907d-2*t194*t370*t94+3.109
3967     1         07d-2*t364*t365*t94+3.663697685584584d-3*t351*t77+6.21814
3968     2         d-2*t179*t348*t69-6.21814d-2*t338*t339*t69-1.761386524178
3969     3         5687d-3*t100*t351+2.642079786267853d-3*t181*t193*t194-5.4
3970     4         95546528376876d-3*t178*t179*t181)-1.0359398963604977d-3*t
3971     5         351*t91-3.37738d-2*t187*t360*t85+3.37738d-2*t353*t354*t85
3972     6         +1.5539098445407465d-3*t181*t186*t187
3973            t372 = t371*t92*t93
3974            t373 = -8*t195*t197*t92
3975            t374 = 1/t66**6
3976            t375 = 20*t101*t374*t92
3977            t376 = t78**2
3978            t377 = 12*t101*t376*t93
3979            t378 = 8*t195*t199*t93+t377+t375+t373+t372+t363+t362+t361+t3
3980     1         55-32*t101*t197*t199
3981            t379 = t204**2
3982            t380 = 1/t117
3983            t381 = 1/t66**3
3984            t382 = -2*t381*t78
3985            t383 = 2*t201
3986            t384 = t383+t382
3987            t385 = t207**2
3988            t386 = 1/t118
3989            t387 = 2*t381*t78
3990            t388 = -2*t201
3991            t389 = t388+t387
3992            t390 = 2.564881401242048d+0*t208*t389+8.549604670806825d-1*t
3993     1         385*t386+2.564881401242048d+0*t205*t384+8.549604670806825
3994     2         d-1*t379*t380
3995            t391 = 5.848223622634648d-1*t378*t84+5.848223622634648d-1*t1
3996     1         02*t390+t352+t350+t349+t340+1.1696447245269297d+0*t200*t2
3997     2         09
3998            t392 = t215**2
3999            t393 = 1/t81
4000            t394 = 1/t83
4001            t395 = -1.111111111111111d-1*t385*t394-1.111111111111111d-1*
4002     1         t379*t393+3.333333333333333d-1*t214*t389+3.33333333333333
4003     2         3d-1*t213*t384
4004            t396 = t66**3.333333333333335d-1
4005            t397 = 1.398222758520205d+0*t121*t125*t131*t136*t282*t396
4006            t398 = 1/t66**8.333333333333333d-1
4007            t399 = -6.658203612000978d-2*t121*t125*t131*t136*t217*t398
4008            t400 = 1.0272657001372934d+0*t121*t123*t129*t132*t392
4009            t401 = -3.4242190004576445d-1*t121*t123*t126*t129*t395
4010            t402 = 1.5979688668802342d+0*t121*t126*t129*t215*t216*t217
4011            t403 = 1.398222758520205d+0*t121*t125*t129*t282*t396
4012            t404 = -6.658203612000978d-2*t121*t125*t129*t217*t398
4013            t405 = 1.2128284535269115d+2*t103*t132*t395-4.85131381410764
4014     1         6d+2*t103*t229*t392-4.042761511756372d+1*t126*t391+2.4256
4015     2         56907053823d+2*t132*t210*t215
4016            t406 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t405
4017            t407 = 6.848438000915289d-1*t121*t123*t126*t127*t215*t221*t2
4018     1         22
4019            t408 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t22
4020     1         2
4021            t409 = exp(-8.085523023512744d+1*t103*t126)
4022            t410 = 1/t128**3
4023            t411 = t222**2
4024            t412 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t411
4025            t413 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t411
4026            t414 = t413+t412+t408+t407+t406+t404+t403+t402+t401+t400
4027            t415 = 1/t122**6.0d+0
4028            t416 = 7.979701560995311d-1*t132*t134*t226*t396*t415
4029            t417 = -2.2799147317129467d-2*t132*t134*t226*t227*t398
4030            t418 = 1/t119**6.0d+0
4031            t419 = 1/t128**4.0d+0
4032            t420 = 1.7587913644642725d-1*t132*t133*t409*t411*t419+5.8626
4033     1         37881547574d-1*t133*t134*t392*t418+t417+t416+t413+t412-5.
4034     2         862637881547574d-2*t127*t132*t133*t230*t411+t408+t407+t40
4035     3         6-5.862637881547574d-2*t127*t132*t133*t230*t405+t404+t403
4036     4         +t402+t401+t400-1.172527576309515d-1*t133*t134*t229*t395+
4037     5         4.69011030523806d-1*t127*t133*t215*t222*t229*t230+5.47179
4038     6         535611107d-1*t127*t132*t216*t222*t226*t227*t230+1.0943590
4039     7         71222214d+0*t134*t215*t216*t226*t227*t229
4040            t421 = 1/t135**3
4041            t422 = t231**2
4042            t423 = 3.4242190004576445d-1*t121*t123*t125*t131*t421*t422-1
4043     1         .7121095002288222d-1*t121*t123*t125*t131*t225*t420+1.7121
4044     2         095002288222d-1*t121*t123*t125*t136*t414+t399+t397-3.4242
4045     3         190004576445d-1*t121*t123*t126*t131*t136*t395+1.027265700
4046     4         1372934d+0*t121*t123*t131*t132*t136*t392-3.42421900045764
4047     5         45d-1*t121*t123*t125*t224*t225*t231+7.98984433440117d-1*t
4048     6         121*t125*t131*t216*t217*t225*t231+6.848438000915289d-1*t1
4049     7         21*t123*t126*t131*t215*t225*t231-7.98984433440117d-1*t121
4050     8         *t125*t136*t216*t217*t224-6.848438000915289d-1*t121*t123*
4051     9         t126*t136*t215*t224+1.5979688668802342d+0*t121*t126*t131*
4052     :         t136*t215*t216*t217
4053            t424 = 2.473556743557577d-2*t120*t423*t66+1.4841340461345462
4054     1         d-1*t124*t215*t232*t66+4.947113487115154d-2*t120*t232
4055            t425 = 1/t137**2
4056            t426 = t232**2
4057            t427 = -12*t101*t376*t93+t375+t373+t372+t363+t362+t361+t355
4058            t428 = 5.129762802484096d+0*t208*t381*t78-5.129762802484096d
4059     1         +0*t205*t381*t78+8.549604670806825d-1*t207*t269*t386+8.54
4060     2         9604670806825d-1*t204*t268*t380
4061            t429 = 5.848223622634648d-1*t427*t84+5.848223622634648d-1*t1
4062     1         02*t428+t352+t350+t349+t340+5.848223622634648d-1*t200*t27
4063     2         0+5.848223622634648d-1*t209*t267
4064            t430 = 6.666666666666666d-1*t214*t381*t78-6.666666666666666d
4065     1         -1*t213*t381*t78-1.111111111111111d-1*t207*t269*t394-1.11
4066     2         1111111111111d-1*t204*t268*t393
4067            t431 = 1.0272657001372934d+0*t121*t123*t129*t132*t215*t272
4068            t432 = -3.4242190004576445d-1*t121*t123*t126*t129*t430
4069            t433 = 7.98984433440117d-1*t121*t126*t129*t216*t217*t272
4070            t434 = 7.98984433440117d-1*t121*t126*t129*t215*t216*t217
4071            t435 = 1.2128284535269115d+2*t103*t132*t430-4.04276151175637
4072     1         2d+1*t126*t429-4.851313814107646d+2*t103*t215*t229*t272+1
4073     2         .2128284535269115d+2*t132*t210*t272+1.2128284535269115d+2
4074     3         *t132*t215*t271
4075            t436 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t435
4076            t437 = 3.4242190004576445d-1*t121*t123*t126*t127*t215*t221*t
4077     1         274
4078            t438 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t2
4079     1         74
4080            t439 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t222*t
4081     1         272
4082            t440 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t2
4083     1         22
4084            t441 = 3.4242190004576445d-1*t121*t123*t125*t222*t274*t409*t
4085     1         410
4086            t442 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222*
4087     1         t274
4088            t443 = t442+t441+t440+t439+t438+t437+t436+t434+t433+t432+t43
4089     1         1+t404+t403
4090            t444 = t442+t441+t440+t439+t438+t437+t436-5.862637881547574d
4091     1         -2*t127*t132*t133*t230*t435+t434+t433+t432+t431-1.1725275
4092     2         76309515d-1*t133*t134*t229*t430+1.7587913644642725d-1*t13
4093     3         2*t133*t222*t274*t409*t419+5.862637881547574d-1*t133*t134
4094     4         *t215*t272*t418+t417+t416+t404+t403+2.34505515261903d-1*t
4095     5         127*t133*t215*t229*t230*t274+2.735897678055535d-1*t127*t1
4096     6         32*t216*t226*t227*t230*t274-5.862637881547574d-2*t127*t13
4097     7         2*t133*t222*t230*t274+2.34505515261903d-1*t127*t133*t222*
4098     8         t229*t230*t272+5.47179535611107d-1*t134*t216*t226*t227*t2
4099     9         29*t272+2.735897678055535d-1*t127*t132*t216*t222*t226*t22
4100     :         7*t230+5.47179535611107d-1*t134*t215*t216*t226*t227*t229
4101            t445 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t444+
4102     1         1.7121095002288222d-1*t121*t123*t125*t136*t443-3.42421900
4103     2         04576445d-1*t121*t123*t126*t131*t136*t430+3.4242190004576
4104     3         445d-1*t121*t123*t125*t131*t231*t277*t421+t399+t397-1.712
4105     4         1095002288222d-1*t121*t123*t125*t224*t225*t277+3.99492216
4106     5         7200585d-1*t121*t125*t131*t216*t217*t225*t277+3.424219000
4107     6         4576445d-1*t121*t123*t126*t131*t215*t225*t277-1.712109500
4108     7         2288222d-1*t121*t123*t125*t225*t231*t276-3.99492216720058
4109     8         5d-1*t121*t125*t136*t216*t217*t276-3.4242190004576445d-1*
4110     9         t121*t123*t126*t136*t215*t276+3.4242190004576445d-1*t121*
4111     :         t123*t126*t131*t225*t231*t272-3.4242190004576445d-1*t121*
4112     ;         t123*t126*t136*t224*t272+7.98984433440117d-1*t121*t126*t1
4113     <         31*t136*t216*t217*t272+1.0272657001372934d+0*t121*t123*t1
4114     =         31*t132*t136*t215*t272+3.994922167200585d-1*t121*t125*t13
4115     >         1*t216*t217*t225*t231-3.994922167200585d-1*t121*t125*t136
4116     ?         *t216*t217*t224+7.98984433440117d-1*t121*t126*t131*t136*t
4117     @         215*t216*t217
4118            t446 = 2.473556743557577d-2*t120*t445*t66+7.420670230672731d
4119     1         -2*t124*t215*t278*t66+7.420670230672731d-2*t124*t232*t272
4120     2         *t66+2.473556743557577d-2*t120*t278+2.473556743557577d-2*
4121     3         t120*t232
4122            t447 = 1/rhob**2.333333333333333d+0
4123            t448 = 1/t47**2
4124            t449 = t242**2
4125            t450 = 1/t45**3
4126            t451 = t241**2
4127            t452 = 1/rhob**2.3333333333333334d+0
4128            t453 = 1/rhob**1.6666666666666669d+0
4129            t454 = 1/t41**5
4130            t455 = 6.563527649164527d-2*t237*t43*t454+8.751370198886037d
4131     1         -2*t238*t43*t453+3.0144339229749983d-3*t452
4132            t456 = 7.876233178997433d-1*t42*t455+6.563527649164527d-2*t2
4133     1         37*t44*t454+8.751370198886037d-2*t238*t44*t453-2.62541105
4134     2         9665811d-1*t238*t239*t240
4135            t457 = -1.4107138347223802d-1*t42*t453*t46-3.52678458680595d
4136     1         -2*t237*t238*t46-1.269642451250142d+0*t236*t41*t456+2.539
4137     2         284902500284d+0*t41*t450*t451-4.23214150416714d-1*t236*t2
4138     3         39*t241*t42
4139            t458 = 1/t55**2
4140            t459 = t247**2
4141            t460 = 1/t53**3
4142            t461 = t246**2
4143            t462 = 6.563527649164527d-2*t237*t454*t51+8.751370198886037d
4144     1         -2*t238*t453*t51+4.753699179395351d-3*t452
4145            t463 = 6.563527649164527d-2*t237*t454*t52+8.751370198886037d
4146     1         -2*t238*t453*t52+7.876233178997433d-1*t42*t462-2.62541105
4147     2         9665811d-1*t238*t239*t245
4148            t464 = -1.4107138347223802d-1*t42*t453*t54-3.52678458680595d
4149     1         -2*t237*t238*t54-1.269642451250142d+0*t244*t41*t463+2.539
4150     2         284902500284d+0*t41*t460*t461-4.23214150416714d-1*t239*t2
4151     3         44*t246*t42
4152            t465 = 1/t62**2
4153            t466 = t252**2
4154            t467 = 1/t60**3
4155            t468 = t251**2
4156            t469 = 6.563527649164527d-2*t237*t454*t58+8.751370198886037d
4157     1         -2*t238*t453*t58+2.601716490612924d-3*t452
4158            t470 = 6.563527649164527d-2*t237*t454*t59+8.751370198886037d
4159     1         -2*t238*t453*t59+7.876233178997433d-1*t42*t469-2.62541105
4160     2         9665811d-1*t238*t239*t250
4161            t471 = -1.4107138347223802d-1*t42*t453*t61-3.52678458680595d
4162     1         -2*t237*t238*t61-1.269642451250142d+0*t249*t41*t470+2.539
4163     2         284902500284d+0*t41*t467*t468-4.23214150416714d-1*t239*t2
4164     3         49*t251*t42
4165            t472 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t471*t
4166     1         64+3.37738d-2*t465*t466*t64-1.0359398963604977d-3*t447*t6
4167     2         3+1.709920934161365d+0*(6.21814d-2*t243*t464*t57-6.21814d
4168     3         -2*t458*t459*t57+3.663697685584584d-3*t447*t56-3.10907d-2
4169     4         *t235*t457*t50+3.10907d-2*t448*t449*t50-1.761386524178568
4170     5         7d-3*t447*t48-5.495546528376876d-3*t234*t243*t247+2.64207
4171     6         9786267853d-3*t234*t235*t242)+1.5539098445407465d-3*t234*
4172     7         t248*t252)+3.37738d-2*t248*t471*t64-3.37738d-2*t465*t466*
4173     8         t64+1.0359398963604977d-3*t447*t63-1.5539098445407465d-3*
4174     9         t234*t248*t252)-6.21814d-2*t243*t464*t57+6.21814d-2*t458*
4175     :         t459*t57-3.663697685584584d-3*t447*t56+5.495546528376876d
4176     ;         -3*t234*t243*t247
4177            t473 = rhob**3.333333333333335d-1
4178            t474 = 1/rhob**8.333333333333333d-1
4179            t475 = t253**2
4180            t476 = exp(-1.617104604702549d+2*t65)
4181            t477 = 1/t107**3
4182            t478 = 3.553566382931298d+3*gammabb*t105*t475*t476*t477
4183            t479 = 2.2195402777608514d+0*gammabb*t108*t288*t473
4184            t480 = -1.0569239417908823d-1*gammabb*t108*t256*t474
4185            t481 = -1.0254939438542422d+2*gammabb*t106*t253*t255*t256*t2
4186     1         58
4187            t482 = -1.776783191465649d+3*gammabb*t105*t106*t258*t475
4188            t483 = 2.1974870225448048d+1*gammabb*t105*t106*t258*t472
4189            t484 = t483+t482+t481+t480+t479+t478
4190            t485 = 1/t107**4.0d+0
4191            t486 = 1/t104**6.0d+0
4192            t487 = 2.0107587937153953d+0*t112*t262*t473*t486+2.897369528
4193     1         551698d+3*t111*t475*t476*t485+t483+t482+t481+t480+t479+t4
4194     2         78-9.657898428505661d+2*t106*t111*t264*t475-5.74502512490
4195     3         1132d-2*t112*t262*t263*t474+1.1944679893212153d+1*t106*t1
4196     4         11*t264*t472-1.1148367900331342d+2*t106*t253*t255*t262*t2
4197     5         63*t264
4198            t488 = 1/t113**3
4199            t489 = t265**2
4200            t490 = 5.435608843495963d-1*gammabb*t105*t110*t488*t489-2.71
4201     1         78044217479813d-1*gammabb*t105*t110*t261*t487+2.717804421
4202     2         7479813d-1*gammabb*t105*t114*t484-1.0569239417908823d-1*g
4203     3         ammabb*t110*t114*t256*t474+2.2195402777608514d+0*gammabb*
4204     4         t110*t114*t288*t473-5.435608843495963d-1*gammabb*t105*t26
4205     5         0*t261*t265+1.268308730149058d+0*gammabb*t110*t255*t256*t
4206     6         261*t265-1.268308730149058d+0*gammabb*t114*t255*t256*t260
4207            t491 = -1.2367783717787881d-2*rhob*t490-2.4735567435575762d-
4208     1         2*t266
4209            t492 = 1/t115**2
4210            t493 = t266**2
4211            t494 = -8*t195*t199*t93+t377+t375+t373+t372+t363+t362+t361+t
4212     1         355+32*t101*t197*t199
4213            t495 = t268**2
4214            t496 = t388+t382
4215            t497 = t269**2
4216            t498 = t387+t383
4217            t499 = 2.564881401242048d+0*t208*t498+8.549604670806825d-1*t
4218     1         386*t497+2.564881401242048d+0*t205*t496+8.549604670806825
4219     2         d-1*t380*t495
4220            t500 = 5.848223622634648d-1*t494*t84+5.848223622634648d-1*t1
4221     1         02*t499+t352+t350+t349+t340+1.1696447245269297d+0*t267*t2
4222     2         70
4223            t501 = t272**2
4224            t502 = 3.333333333333333d-1*t214*t498-1.111111111111111d-1*t
4225     1         394*t497+3.333333333333333d-1*t213*t496-1.111111111111111
4226     2         d-1*t393*t495
4227            t503 = 1.0272657001372934d+0*t121*t123*t129*t132*t501
4228            t504 = -3.4242190004576445d-1*t121*t123*t126*t129*t502
4229            t505 = 1.5979688668802342d+0*t121*t126*t129*t216*t217*t272
4230            t506 = 1.2128284535269115d+2*t103*t132*t502-4.85131381410764
4231     1         6d+2*t103*t229*t501-4.042761511756372d+1*t126*t500+2.4256
4232     2         56907053823d+2*t132*t271*t272
4233            t507 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t506
4234            t508 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t272*t2
4235     1         74
4236            t509 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t27
4237     1         4
4238            t510 = t274**2
4239            t511 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t510
4240            t512 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t510
4241            t513 = t512+t511+t509+t508+t507+t505+t504+t503+t404+t403
4242            t514 = t512+t511+1.7587913644642725d-1*t132*t133*t409*t419*t
4243     1         510-5.862637881547574d-2*t127*t132*t133*t230*t510+t509+t5
4244     2         08+t507-5.862637881547574d-2*t127*t132*t133*t230*t506+t50
4245     3         5+t504+t503-1.172527576309515d-1*t133*t134*t229*t502+5.86
4246     4         2637881547574d-1*t133*t134*t418*t501+t417+t416+t404+t403+
4247     5         4.69011030523806d-1*t127*t133*t229*t230*t272*t274+5.47179
4248     6         535611107d-1*t127*t132*t216*t226*t227*t230*t274+1.0943590
4249     7         71222214d+0*t134*t216*t226*t227*t229*t272
4250            t515 = t277**2
4251            t516 = 3.4242190004576445d-1*t121*t123*t125*t131*t421*t515-1
4252     1         .7121095002288222d-1*t121*t123*t125*t131*t225*t514+1.7121
4253     2         095002288222d-1*t121*t123*t125*t136*t513-3.42421900045764
4254     3         45d-1*t121*t123*t126*t131*t136*t502+1.0272657001372934d+0
4255     4         *t121*t123*t131*t132*t136*t501+t399+t397-3.42421900045764
4256     5         45d-1*t121*t123*t125*t225*t276*t277+6.848438000915289d-1*
4257     6         t121*t123*t126*t131*t225*t272*t277+7.98984433440117d-1*t1
4258     7         21*t125*t131*t216*t217*t225*t277-6.848438000915289d-1*t12
4259     8         1*t123*t126*t136*t272*t276-7.98984433440117d-1*t121*t125*
4260     9         t136*t216*t217*t276+1.5979688668802342d+0*t121*t126*t131*
4261     :         t136*t216*t217*t272
4262            t517 = 2.473556743557577d-2*t120*t516*t66+1.4841340461345462
4263     1         d-1*t124*t272*t278*t66+4.947113487115154d-2*t120*t278
4264            t518 = t278**2
4265            t519 = -6.34154365074529d-1*t160*t161*t31
4266            t520 = 2.1974870225448048d+1*t158*t163*t28*t29
4267            t521 = t520+t519
4268            t522 = t520+t519-6.894030149881355d-1*gammaaa*t160*t168*t35+
4269     1         2.3889359786424305d+1*gammaaa*t158*t169*t279*t29
4270            t523 = -2.7178044217479813d-1*gammaaa*t166*t28*t33*t522+2.71
4271     1         78044217479813d-1*gammaaa*t28*t37*t521-6.34154365074529d-
4272     2         1*t160*t161*t33*t37-1.7235075374703387d-1*gammaaa*t160*t1
4273     3         68*t31*t37+2.7178044217479813d-1*t165*t28*t37+5.435608843
4274     4         495963d-1*gammaaa*t170*t28*t280*t33*t332+6.34154365074529
4275     5         d-1*gammaaa*t160*t161*t166*t280*t33-2.7178044217479813d-1
4276     6         *t166*t170*t28*t33-7.386460874872879d-2*gammaaa*t166*t170
4277     7         *t279*t31-2.7178044217479813d-1*gammaaa*t165*t166*t28*t28
4278     8         0
4279            t524 = -1.2367783717787881d-2*rhoa*t523-1.2367783717787881d-
4280     1         2*t281
4281            t525 = -2.473556743557577d-2*t120*t232*t284*t425*t66
4282            t526 = 2.473556743557577d-2*t120*t284
4283            t527 = 3.994922167200585d-1*t121*t125*t131*t216*t217*t225*t2
4284     1         83
4285            t528 = -3.994922167200585d-1*t125*t131*t136*t216*t217
4286            t529 = -6.839744195138837d-2*t121*t129*t132*t136*t216*t227
4287            t530 = -3.4242190004576445d-1*t123*t126*t129*t215
4288            t531 = -3.994922167200585d-1*t125*t129*t216*t217
4289            t532 = -1.7121095002288222d-1*t123*t125*t127*t221*t222
4290            t533 = t532+t531+t530
4291            t534 = -2.735897678055535d-1*t121*t132*t134*t216*t227
4292            t535 = t534+t532+t531+t530-1.172527576309515d-1*t121*t127*t1
4293     1         32*t222*t230*t282-2.34505515261903d-1*t121*t134*t215*t229
4294     2         *t282
4295            t536 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t535+
4296     1         1.7121095002288222d-1*t121*t123*t125*t136*t533+t529+t528+
4297     2         t527+3.4242190004576445d-1*t121*t123*t125*t131*t231*t283*
4298     3         t421-1.7121095002288222d-1*t121*t123*t125*t224*t225*t283+
4299     4         3.4242190004576445d-1*t121*t123*t126*t131*t215*t225*t283-
4300     5         2.931318940773787d-2*t121*t129*t132*t225*t231*t282-5.8626
4301     6         37881547574d-2*t121*t129*t136*t215*t229*t282-1.7121095002
4302     7         288222d-1*t123*t125*t131*t225*t231+1.7121095002288222d-1*
4303     8         t123*t125*t136*t224-3.4242190004576445d-1*t123*t126*t131*
4304     9         t136*t215
4305            t537 = 2.473556743557577d-2*t120*t536*t66+7.420670230672731d
4306     1         -2*t124*t215*t284*t66+t526
4307            t538 = t212*t537
4308            t539 = 2.473556743557577d-2*t120*t287
4309            t540 = 3.994922167200585d-1*t121*t125*t131*t216*t217*t225*t2
4310     1         86
4311            t541 = -7.98984433440117d-1*t125*t131*t136*t216*t217
4312            t542 = -1.3679488390277675d-1*t121*t129*t132*t136*t216*t227
4313            t543 = -6.848438000915289d-1*t123*t126*t129*t215
4314            t544 = -7.98984433440117d-1*t125*t129*t216*t217
4315            t545 = -3.4242190004576445d-1*t123*t125*t127*t221*t222
4316            t546 = t545+t544+t543
4317            t547 = -5.47179535611107d-1*t121*t132*t134*t216*t227
4318            t548 = t547+t545+t544+t543-2.34505515261903d-1*t121*t127*t13
4319     1         2*t222*t230*t282-4.69011030523806d-1*t121*t134*t215*t229*
4320     2         t282
4321            t549 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t548+
4322     1         1.7121095002288222d-1*t121*t123*t125*t136*t546+t542+t541+
4323     2         t540+3.4242190004576445d-1*t121*t123*t125*t131*t231*t286*
4324     3         t421-1.7121095002288222d-1*t121*t123*t125*t224*t225*t286+
4325     4         3.4242190004576445d-1*t121*t123*t126*t131*t215*t225*t286-
4326     5         5.862637881547574d-2*t121*t129*t132*t225*t231*t282-1.1725
4327     6         27576309515d-1*t121*t129*t136*t215*t229*t282-3.4242190004
4328     7         576445d-1*t123*t125*t131*t225*t231+3.4242190004576445d-1*
4329     8         t123*t125*t136*t224-6.848438000915289d-1*t123*t126*t131*t
4330     9         136*t215
4331            t550 = 2.473556743557577d-2*t120*t549*t66+7.420670230672731d
4332     1         -2*t124*t215*t287*t66+t539
4333            t551 = -2.473556743557577d-2*t120*t278*t284*t425*t66
4334            t552 = -3.4242190004576445d-1*t123*t126*t129*t272
4335            t553 = -1.7121095002288222d-1*t123*t125*t127*t221*t274
4336            t554 = t553+t552+t531
4337            t555 = t553+t552+t534+t531-1.172527576309515d-1*t121*t127*t1
4338     1         32*t230*t274*t282-2.34505515261903d-1*t121*t134*t229*t272
4339     2         *t282
4340            t556 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t555+
4341     1         1.7121095002288222d-1*t121*t123*t125*t136*t554+t529+t528+
4342     2         t527+3.4242190004576445d-1*t121*t123*t125*t131*t277*t283*
4343     3         t421-1.7121095002288222d-1*t121*t123*t125*t225*t276*t283+
4344     4         3.4242190004576445d-1*t121*t123*t126*t131*t225*t272*t283-
4345     5         2.931318940773787d-2*t121*t129*t132*t225*t277*t282-5.8626
4346     6         37881547574d-2*t121*t129*t136*t229*t272*t282-1.7121095002
4347     7         288222d-1*t123*t125*t131*t225*t277+1.7121095002288222d-1*
4348     8         t123*t125*t136*t276-3.4242190004576445d-1*t123*t126*t131*
4349     9         t136*t272
4350            t557 = 2.473556743557577d-2*t120*t556*t66+7.420670230672731d
4351     1         -2*t124*t272*t284*t66+t526
4352            t558 = t212*t557
4353            t559 = -6.848438000915289d-1*t123*t126*t129*t272
4354            t560 = -3.4242190004576445d-1*t123*t125*t127*t221*t274
4355            t561 = t560+t559+t544
4356            t562 = t560+t559+t547+t544-2.34505515261903d-1*t121*t127*t13
4357     1         2*t230*t274*t282-4.69011030523806d-1*t121*t134*t229*t272*
4358     2         t282
4359            t563 = -1.7121095002288222d-1*t121*t123*t125*t131*t225*t562+
4360     1         1.7121095002288222d-1*t121*t123*t125*t136*t561+t542+t541+
4361     2         t540+3.4242190004576445d-1*t121*t123*t125*t131*t277*t286*
4362     3         t421-1.7121095002288222d-1*t121*t123*t125*t225*t276*t286+
4363     4         3.4242190004576445d-1*t121*t123*t126*t131*t225*t272*t286-
4364     5         5.862637881547574d-2*t121*t129*t132*t225*t277*t282-1.1725
4365     6         27576309515d-1*t121*t129*t136*t229*t272*t282-3.4242190004
4366     7         576445d-1*t123*t125*t131*t225*t277+3.4242190004576445d-1*
4367     8         t123*t125*t136*t276-6.848438000915289d-1*t123*t126*t131*t
4368     9         136*t272
4369            t564 = 2.473556743557577d-2*t120*t563*t66+7.420670230672731d
4370     1         -2*t124*t272*t287*t66+t539
4371            t565 = -6.34154365074529d-1*t108*t255*t256
4372            t566 = 2.1974870225448048d+1*t105*t106*t253*t258
4373            t567 = t566+t565
4374            t568 = t566+t565+2.3889359786424305d+1*gammabb*t106*t253*t26
4375     1         4*t288-6.894030149881355d-1*gammabb*t112*t255*t263
4376            t569 = -2.7178044217479813d-1*gammabb*t105*t110*t261*t568+2.
4377     1         7178044217479813d-1*gammabb*t105*t114*t567+5.435608843495
4378     2         963d-1*gammabb*t105*t110*t265*t289*t488-2.717804421747981
4379     3         3d-1*gammabb*t105*t260*t261*t289+6.34154365074529d-1*gamm
4380     4         abb*t110*t255*t256*t261*t289-7.386460874872879d-2*gammabb
4381     5         *t108*t261*t265*t288-2.7178044217479813d-1*t105*t110*t261
4382     6         *t265-1.7235075374703387d-1*gammabb*t108*t114*t255*t263+2
4383     7         .7178044217479813d-1*t105*t114*t260-6.34154365074529d-1*t
4384     8         110*t114*t255*t256
4385            t570 = -1.2367783717787881d-2*rhob*t569-1.2367783717787881d-
4386     1         2*t290
4387            t571 = t281**2
4388            t572 = t280**2
4389            t573 = 5.435608843495963d-1*gammaaa*t28*t33*t332*t572+1.4772
4390     1         921749745757d-1*t279*t31*t37-4.014991205359595d-2*gammaaa
4391     2         *t166*t33*t330*t35-5.435608843495963d-1*t166*t28*t280*t33
4392     3         -1.4772921749745757d-1*gammaaa*t166*t279*t280*t31
4393            t574 = t284**2
4394            t575 = -2.473556743557577d-2*t120*t425*t574*t66
4395            t576 = t283**2
4396            t577 = -3.4242190004576445d-1*t123*t125*t131*t225*t283
4397            t578 = -5.862637881547574d-2*t121*t129*t132*t225*t282*t283
4398            t579 = t578+t577+3.4242190004576445d-1*t121*t123*t125*t131*t
4399     1         421*t576-1.003747801339898d-2*t121*t131*t134*t225*t415*t4
4400     2         18+5.862637881547574d-2*t129*t132*t136*t282
4401            t580 = 2.473556743557577d-2*t120*t212*t579*t66
4402            t581 = t578+t577+3.4242190004576445d-1*t121*t123*t125*t131*t
4403     1         283*t286*t421-2.007495602679796d-2*t121*t131*t134*t225*t4
4404     2         15*t418-2.931318940773787d-2*t121*t129*t132*t225*t282*t28
4405     3         6-1.7121095002288222d-1*t123*t125*t131*t225*t286+1.172527
4406     4         576309515d-1*t129*t132*t136*t282
4407            t582 = t287**2
4408            t583 = t286**2
4409            t584 = 3.4242190004576445d-1*t121*t123*t125*t131*t421*t583-4
4410     1         .014991205359592d-2*t121*t131*t134*t225*t415*t418-1.17252
4411     2         7576309515d-1*t121*t129*t132*t225*t282*t286-6.84843800091
4412     3         5289d-1*t123*t125*t131*t225*t286+2.34505515261903d-1*t129
4413     4         *t132*t136*t282
4414            t585 = t290**2
4415            t586 = t289**2
4416            t587 = 5.435608843495963d-1*gammabb*t105*t110*t488*t586-4.01
4417     1         4991205359595d-2*gammabb*t110*t112*t261*t486-1.4772921749
4418     2         745757d-1*gammabb*t108*t261*t288*t289-5.435608843495963d-
4419     3         1*t105*t110*t261*t289+1.4772921749745757d-1*t108*t114*t28
4420     4         8
4421            t588 = 1/rhoa**3.333333333333333d+0
4422            t589 = 1/rhoa**3.3333333333333337d+0
4423            t590 = 1/rhoa**2.666666666666667d+0
4424            t591 = 1/t2**7
4425            t592 = 1/rhoa**2.0d+0
4426            t593 = 1/t16**3
4427            t594 = t152**3
4428            t595 = -1.269642451250142d+0*t149*t2*(7.876233178997433d-1*t
4429     1         3*(-5.469606374303773d-2*t12*t591*t592-1.4585616998143394
4430     2         d-1*t12*t143*t590-1.1708185015918181d-2*t589-1.3127055298
4431     3         329054d-1*t12*t296*t298)-5.469606374303773d-2*t13*t591*t5
4432     4         92-1.4585616998143394d-1*t13*t143*t590-3.9381165894987163
4433     5         d-1*t143*t144*t306-1.3127055298329054d-1*t13*t296*t298+1.
4434     6         9690582947493582d-1*t142*t150*t298+2.625411059665811d-1*t
4435     7         143*t150*t297)+1.763392293402975d-2*t15*t298*t592+2.35118
4436     8         97245373004d-1*t15*t3*t590+7.617854707500852d+0*t151*t2*t
4437     9         304*t307-6.34821225625071d-1*t144*t149*t3*t307+1.26964245
4438     :         1250142d+0*t144*t3*t304*t305+4.2321415041671406d-1*t149*t
4439     ;         151*t297*t3+7.053569173611901d-2*t143*t15*t296-7.61785470
4440     <         7500852d+0*t151**3*t2/t14**4+1.0580353760417849d-1*t142*t
4441     =         143*t149*t151
4442            t596 = 1/t23**3
4443            t597 = t157**3
4444            t598 = -1.269642451250142d+0*t154*t2*(7.876233178997433d-1*t
4445     1         3*(-5.469606374303773d-2*t19*t591*t592-1.4585616998143394
4446     2         d-1*t143*t19*t590-6.407931356509611d-3*t589-1.31270552983
4447     3         29054d-1*t19*t296*t298)-5.469606374303773d-2*t20*t591*t59
4448     4         2-1.4585616998143394d-1*t143*t20*t590-3.9381165894987163d
4449     5         -1*t143*t144*t313-1.3127055298329054d-1*t20*t296*t298+1.9
4450     6         690582947493582d-1*t142*t155*t298+2.625411059665811d-1*t1
4451     7         43*t155*t297)+1.763392293402975d-2*t22*t298*t592+2.351189
4452     8         7245373004d-1*t22*t3*t590+7.617854707500852d+0*t156*t2*t3
4453     9         11*t314-6.34821225625071d-1*t144*t154*t3*t314+1.269642451
4454     :         250142d+0*t144*t3*t311*t312+4.2321415041671406d-1*t154*t1
4455     ;         56*t297*t3+7.053569173611901d-2*t143*t22*t296-7.617854707
4456     <         500852d+0*t156**3*t2/t21**4+1.0580353760417849d-1*t142*t1
4457     =         43*t154*t156
4458            t599 = 5.848223622634643d-1*(1.0d+0*(1.709920934161365d+0*(4
4459     1         .1099018897499934d-3*t588*t9-6.21814d-2*t11*t147**3/t8**3
4460     2         -3.10907d-2*t11*t140*(1.763392293402975d-2*t298*t592*t7+2
4461     3         .3511897245373004d-1*t3*t590*t7+7.053569173611901d-2*t143
4462     4         *t296*t7-7.617854707500852d+0*t146**3*t2/t6**4-1.26964245
4463     5         1250142d+0*t141*t2*(7.876233178997433d-1*t3*(-5.469606374
4464     6         303773d-2*t4*t591*t592-1.4585616998143394d-1*t143*t4*t590
4465     7         -7.424439106586571d-3*t589-1.3127055298329054d-1*t296*t29
4466     8         8*t4)-5.469606374303773d-2*t5*t591*t592-1.458561699814339
4467     9         4d-1*t143*t5*t590-1.3127055298329054d-1*t296*t298*t5-3.93
4468     :         81165894987163d-1*t143*t144*t299+1.9690582947493582d-1*t1
4469     ;         42*t145*t298+2.625411059665811d-1*t143*t145*t297)-6.34821
4470     <         225625071d-1*t141*t144*t3*t300+7.617854707500852d+0*t146*
4471     =         t2*t294*t300+4.2321415041671406d-1*t141*t146*t297*t3+1.26
4472     >         9642451250142d+0*t144*t294*t295*t3+1.0580353760417849d-1*
4473     ?         t141*t142*t143*t146)+6.21814d-2*t148*t18*t595+1.243628d-1
4474     @         *t18*t593*t594-8.548627933030694d-3*t17*t588-1.865442d-1*
4475     1         t152*t18*t302*t308-8.243319792565315d-3*t139*t148*t308+8.
4476     2         243319792565315d-3*t139*t302*t303+9.327209999999999d-2*t1
4477     3         1*t147*t292*t301+3.96311967940178d-3*t139*t140*t301-3.963
4478     4         11967940178d-3*t139*t292*t293+1.0991093056753751d-2*t148*
4479     5         t152*t291-5.284159572535706d-3*t140*t147*t291)-3.37738d-2
4480     6         *t153*t25*t598-6.75476d-2*t25*t596*t597+2.417193091507827
4481     7         7d-3*t24*t588+1.013214d-1*t157*t25*t309*t315+2.3308647668
4482     8         1112d-3*t139*t153*t315-2.33086476681112d-3*t139*t309*t310
4483     9         -3.107819689081493d-3*t153*t157*t291)+3.37738d-2*t153*t25
4484     :         *t598+6.75476d-2*t25*t596*t597-2.4171930915078277d-3*t24*
4485     ;         t588-1.013214d-1*t157*t25*t309*t315-2.33086476681112d-3*t
4486     <         139*t153*t315+2.33086476681112d-3*t139*t309*t310+3.107819
4487     =         689081493d-3*t153*t157*t291)-6.21814d-2*t148*t18*t595-1.2
4488     >         43628d-1*t18*t593*t594+8.548627933030694d-3*t17*t588+1.86
4489     ?         5442d-1*t152*t18*t302*t308+8.243319792565315d-3*t139*t148
4490     @         *t308-8.243319792565315d-3*t139*t302*t303-1.0991093056753
4491     1         751d-2*t148*t152*t291
4492            t600 = rhoa**5.000000000000002d-1
4493            t601 = 1/rhoa**6.666666666666665d-1
4494            t602 = 1/rhoa**1.8333333333333332d+0
4495            t603 = t158**3
4496            t604 = exp(-2.4256569070538234d+2*t26)
4497            t605 = 8.619732841431575d+5*gammaaa*t28*t603*t604/t30**4
4498            t606 = -2.4874964680519085d+4*gammaaa*t160*t161*t319*t320*t3
4499     1         21
4500            t607 = -8.619732841431575d+5*gammaaa*t28*t320*t321*t603
4501            t608 = 1.0660699148793894d+4*gammaaa*t158*t28*t316*t320*t321
4502            t609 = -1.035785462955064d+1*gammaaa*t168*t31*t600
4503            t610 = 1.1097701388804264d+0*gammaaa*t279*t31*t601
4504            t611 = 8.807699514924018d-2*gammaaa*t161*t31*t602
4505            t612 = 5.383843205234772d+2*gammaaa*t158*t163*t279*t29*t317
4506            t613 = -2.563734859635607d+1*gammaaa*t158*t161*t163*t29*t318
4507            t614 = 1.2437482340259542d+4*gammaaa*t160*t161*t163*t29*t319
4508            t615 = -1.5382409157813634d+2*gammaaa*t160*t161*t163*t29*t31
4509     1         6
4510            t616 = 1.436622140238596d+5*gammaaa*t163*t28*t29*t603
4511            t617 = -5.330349574396946d+3*gammaaa*t158*t163*t28*t29*t316
4512            t618 = 2.1974870225448048d+1*gammaaa*t163*t28*t29*t599
4513            t619 = 1/t27**7.0d+0
4514            t620 = 1/t36**4
4515            t621 = 1/t38**3
4516            t622 = t178**3
4517            t623 = 1/t76**3
4518            t624 = -1.243628d-1*t622*t623*t69
4519            t625 = 1.865442d-1*t178*t339*t348*t69
4520            t626 = -8.243319792565315d-3*t181*t338*t339
4521            t627 = 1/t66**3.3333333333333337d+0
4522            t628 = 1/t66**2.0d+0
4523            t629 = 1/t70**7
4524            t630 = 1/t66**2.666666666666667d+0
4525            t631 = 2.3511897245373004d-1*t630*t71*t75+1.763392293402975d
4526     1         -2*t344*t628*t75+7.053569173611901d-2*t174*t343*t75-7.617
4527     2         854707500852d+0*t176**3*t70/t74**4-1.269642451250142d+0*t
4528     3         177*t70*(-1.4585616998143394d-1*t174*t630*t73-5.469606374
4529     4         303773d-2*t628*t629*t73-1.3127055298329054d-1*t343*t344*t
4530     5         73+7.876233178997433d-1*t71*(-1.4585616998143394d-1*t174*
4531     6         t630*t72-5.469606374303773d-2*t628*t629*t72-1.31270552983
4532     7         29054d-1*t343*t344*t72-1.1708185015918181d-2*t627)-3.9381
4533     8         165894987163d-1*t173*t174*t346+2.625411059665811d-1*t174*
4534     9         t175*t345+1.9690582947493582d-1*t172*t175*t344)-6.3482122
4535     :         5625071d-1*t173*t177*t347*t71+4.2321415041671406d-1*t176*
4536     ;         t177*t345*t71+1.269642451250142d+0*t173*t341*t342*t71+7.6
4537     <         17854707500852d+0*t176*t342*t347*t70+1.0580353760417849d-
4538     =         1*t172*t174*t176*t177
4539            t632 = -6.21814d-2*t179*t631*t69
4540            t633 = 8.243319792565315d-3*t179*t181*t348
4541            t634 = -1.0991093056753751d-2*t178*t179*t351
4542            t635 = 1/t66**3.333333333333333d+0
4543            t636 = 8.548627933030694d-3*t635*t77
4544            t637 = t204**3
4545            t638 = 1/t80**1.6666666666666669d+0
4546            t639 = 6*t78*t93
4547            t640 = -6*t381
4548            t641 = t640+t639
4549            t642 = t207**3
4550            t643 = 1/t82**1.6666666666666669d+0
4551            t644 = -6*t78*t93
4552            t645 = 6*t381
4553            t646 = t645+t644
4554            t647 = t186**3
4555            t648 = 1/t90**3
4556            t649 = 6.75476d-2*t647*t648*t85
4557            t650 = -1.013214d-1*t186*t354*t360*t85
4558            t651 = 2.33086476681112d-3*t181*t353*t354
4559            t652 = 2.3511897245373004d-1*t630*t71*t89+1.763392293402975d
4560     1         -2*t344*t628*t89+7.053569173611901d-2*t174*t343*t89-7.617
4561     2         854707500852d+0*t184**3*t70/t88**4-1.269642451250142d+0*t
4562     3         185*t70*(-1.4585616998143394d-1*t174*t630*t87-5.469606374
4563     4         303773d-2*t628*t629*t87-1.3127055298329054d-1*t343*t344*t
4564     5         87+7.876233178997433d-1*t71*(-1.4585616998143394d-1*t174*
4565     6         t630*t86-5.469606374303773d-2*t628*t629*t86-1.31270552983
4566     7         29054d-1*t343*t344*t86-6.407931356509611d-3*t627)-3.93811
4567     8         65894987163d-1*t173*t174*t358+2.625411059665811d-1*t174*t
4568     9         183*t345+1.9690582947493582d-1*t172*t183*t344)-6.34821225
4569     :         625071d-1*t173*t185*t359*t71+1.269642451250142d+0*t173*t3
4570     ;         56*t357*t71+4.2321415041671406d-1*t184*t185*t345*t71+7.61
4571     <         7854707500852d+0*t184*t357*t359*t70+1.0580353760417849d-1
4572     =         *t172*t174*t184*t185
4573            t653 = 3.37738d-2*t187*t652*t85
4574            t654 = -2.33086476681112d-3*t181*t187*t360
4575            t655 = 3.107819689081493d-3*t186*t187*t351
4576            t656 = -2.4171930915078277d-3*t635*t91
4577            t657 = t92*t93*(1.709920934161365d+0*(-6.21814d-2*t193**3*t9
4578     1         4/t99**3-3.10907d-2*t194*t94*(2.3511897245373004d-1*t630*
4579     2         t71*t98+1.763392293402975d-2*t344*t628*t98+7.053569173611
4580     3         901d-2*t174*t343*t98-7.617854707500852d+0*t191**3*t70/t97
4581     4         **4-1.269642451250142d+0*t192*t70*(-1.4585616998143394d-1
4582     5         *t174*t630*t96-5.469606374303773d-2*t628*t629*t96-1.31270
4583     6         55298329054d-1*t343*t344*t96+7.876233178997433d-1*t71*(-1
4584     7         .4585616998143394d-1*t174*t630*t95-5.469606374303773d-2*t
4585     8         628*t629*t95-1.3127055298329054d-1*t343*t344*t95-7.424439
4586     9         106586571d-3*t627)-3.9381165894987163d-1*t173*t174*t368+2
4587     :         .625411059665811d-1*t174*t190*t345+1.9690582947493582d-1*
4588     ;         t172*t190*t344)-6.34821225625071d-1*t173*t192*t369*t71+1.
4589     <         269642451250142d+0*t173*t366*t367*t71+4.2321415041671406d
4590     =         -1*t191*t192*t345*t71+7.617854707500852d+0*t191*t367*t369
4591     >         *t70+1.0580353760417849d-1*t172*t174*t191*t192)+9.3272099
4592     ?         99999999d-2*t193*t365*t370*t94-8.548627933030694d-3*t635*
4593     @         t77+6.21814d-2*t179*t631*t69+1.243628d-1*t622*t623*t69-1.
4594     1         865442d-1*t178*t339*t348*t69+4.1099018897499934d-3*t100*t
4595     2         635+3.96311967940178d-3*t181*t194*t370-3.96311967940178d-
4596     3         3*t181*t364*t365-5.284159572535706d-3*t193*t194*t351+1.09
4597     4         91093056753751d-2*t178*t179*t351-8.243319792565315d-3*t17
4598     5         9*t181*t348+8.243319792565315d-3*t181*t338*t339)+2.417193
4599     6         0915078277d-3*t635*t91-3.37738d-2*t187*t652*t85-6.75476d-
4600     7         2*t647*t648*t85+1.013214d-1*t186*t354*t360*t85+2.33086476
4601     8         681112d-3*t181*t187*t360-2.33086476681112d-3*t181*t353*t3
4602     9         54-3.107819689081493d-3*t186*t187*t351)
4603            t658 = -12*t197*t371*t92
4604            t659 = 60*t195*t374*t92
4605            t660 = 36*t195*t376*t93
4606            t661 = -120*t101*t92/t66**7
4607            t662 = -144*t101*t197*t376
4608            t663 = 24*t101*t78*t93
4609            t664 = 5.848223622634648d-1*t84*(12*t199*t371*t93+t663+t662+
4610     1         t661+t660+t659+t658+t657+t656+t655+t654+t653+t651+t650+t6
4611     2         49+240*t101*t199*t374-96*t195*t197*t199)+5.84822362263464
4612     3         8d-1*t102*(2.564881401242048d+0*t208*t646-5.6997364472045
4613     4         5d-1*t642*t643+2.564881401242048d+0*t205*t641-5.699736447
4614     5         20455d-1*t637*t638+2.5648814012420473d+0*t207*t386*t389+2
4615     6         .5648814012420473d+0*t204*t380*t384)+t636+t634+t633+t632+
4616     7         t626+t625+t624+1.7544670867903944d+0*t200*t390+1.75446708
4617     8         67903944d+0*t209*t378
4618            t665 = t215**3
4619            t666 = 1/t80**2.3333333333333334d+0
4620            t667 = 1/t82**2.3333333333333334d+0
4621            t668 = 1.4814814814814814d-1*t642*t667+1.4814814814814814d-1
4622     1         *t637*t666+3.333333333333333d-1*t214*t646+3.3333333333333
4623     2         33d-1*t213*t641-3.333333333333333d-1*t207*t389*t394-3.333
4624     3         333333333333d-1*t204*t384*t393
4625            t669 = t66**5.000000000000002d-1
4626            t670 = -6.525039539760956d+0*t121*t125*t131*t136*t227*t669
4627            t671 = 1/t66**6.666666666666665d-1
4628            t672 = 6.991113792601027d-1*t121*t125*t131*t136*t282*t671
4629            t673 = 1/t66**1.8333333333333332d+0
4630            t674 = 5.548503010000815d-2*t121*t125*t131*t136*t217*t673
4631            t675 = -4.1090628005491736d+0*t121*t123*t129*t229*t665
4632            t676 = 3.08179710041188d+0*t121*t123*t129*t132*t215*t395
4633            t677 = -7.190859900961053d+0*t121*t129*t132*t216*t217*t392
4634            t678 = -3.4242190004576445d-1*t121*t123*t126*t129*t668
4635            t679 = 2.396953300320351d+0*t121*t126*t129*t216*t217*t395
4636            t680 = -8.389336551121229d+0*t121*t126*t129*t215*t282*t396
4637            t681 = 3.9949221672005863d-1*t121*t126*t129*t215*t217*t398
4638            t682 = -6.525039539760956d+0*t121*t125*t129*t227*t669
4639            t683 = 6.991113792601027d-1*t121*t125*t129*t282*t671
4640            t684 = 5.548503010000815d-2*t121*t125*t129*t217*t673
4641            t685 = 1.0272657001372934d+0*t121*t123*t126*t127*t215*t221*t
4642     1         405
4643            t686 = 1.1984766501601755d+0*t121*t125*t127*t216*t217*t221*t
4644     1         405
4645            t687 = -3.08179710041188d+0*t121*t123*t127*t132*t221*t222*t3
4646     1         92
4647            t688 = 1.0272657001372934d+0*t121*t123*t126*t127*t221*t222*t
4648     1         395
4649            t689 = -4.793906600640702d+0*t121*t126*t127*t215*t216*t217*t
4650     1         221*t222
4651            t690 = -4.1946682755606146d+0*t121*t125*t127*t221*t222*t282*
4652     1         t396
4653            t691 = 1.9974610836002932d-1*t121*t125*t127*t217*t221*t222*t
4654     1         398
4655            t692 = 1.0272657001372934d+0*t121*t123*t125*t222*t405*t409*t
4656     1         410
4657            t693 = -5.136328500686467d-1*t121*t123*t125*t127*t221*t222*t
4658     1         405
4659            t694 = 2.425656907053823d+2*t103*t132*t215-8.085523023512744
4660     1         d+1*t126*t210
4661            t695 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t411*t
4662     1         694
4663            t696 = 1.2128284535269115d+2*t103*t132*t668+2.42565690705382
4664     1         3d+3*t103*t418*t665-4.042761511756372d+1*t126*t664-1.4553
4665     2         94144232294d+3*t103*t215*t229*t395+3.638485360580735d+2*t
4666     3         132*t210*t395-1.455394144232294d+3*t210*t229*t392+3.63848
4667     4         5360580735d+2*t132*t215*t391
4668            t697 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t696
4669            t698 = -2.0545314002745868d+0*t121*t123*t126*t215*t409*t410*
4670     1         t411
4671            t699 = -2.396953300320351d+0*t121*t125*t216*t217*t409*t410*t
4672     1         411
4673            t700 = 1.0272657001372934d+0*t121*t123*t126*t127*t215*t221*t
4674     1         411
4675            t701 = 1.1984766501601755d+0*t121*t125*t127*t216*t217*t221*t
4676     1         411
4677            t702 = exp(-1.2128284535269115d+2*t103*t126)
4678            t703 = 1/t128**4
4679            t704 = t222**3
4680            t705 = -1.0272657001372934d+0*t121*t123*t125*t702*t703*t704
4681            t706 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t704
4682            t707 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t704
4683            t708 = 1/t122**7.0d+0
4684            t709 = -5.585791092696718d+0*t132*t134*t226*t669*t708
4685            t710 = 3.9898507804976574d-1*t132*t134*t226*t415*t671
4686            t711 = 1.8999289430941224d-2*t132*t134*t226*t227*t673
4687            t712 = 1/t119**7.0d+0
4688            t713 = 1/t128**5.0d+0
4689            t714 = 1/t135**4
4690            t715 = -2.473556743557577d-2*t120*t426
4691            t716 = 1/t137**3
4692            t717 = 2.0d+0*t429
4693            t718 = t639-2*t381
4694            t719 = t644+2*t381
4695            t720 = -12*t195*t376*t93
4696            t721 = 48*t101*t197*t376
4697            t722 = -24*t101*t78*t93
4698            t723 = 5.848223622634648d-1*t84*(4*t199*t371*t93+t722+t721+t
4699     1         720+t661+t659+t658+t657+t656+t655+t654+t653+t651+t650+t64
4700     2         9+80*t101*t199*t374-32*t195*t197*t199)+5.848223622634648d
4701     3         -1*t102*(3.41984186832273d+0*t207*t381*t386*t78-3.4198418
4702     4         6832273d+0*t204*t380*t381*t78+2.564881401242048d+0*t208*t
4703     5         719+2.564881401242048d+0*t205*t718-5.69973644720455d-1*t2
4704     6         69*t385*t643-5.69973644720455d-1*t268*t379*t638+8.5496046
4705     7         70806825d-1*t269*t386*t389+8.549604670806825d-1*t268*t380
4706     8         *t384)+t636+t634+t633+t632+t626+t625+t624+1.1696447245269
4707     9         297d+0*t200*t428+1.1696447245269297d+0*t209*t427+5.848223
4708     :         622634648d-1*t267*t390+5.848223622634648d-1*t270*t378
4709            t724 = 1.4841340461345462d-1*t124*t215*t278
4710            t725 = 1.4841340461345462d-1*t124*t232*t272
4711            t726 = 4.947113487115154d-2*t120*t445
4712            t727 = -4.793906600640702d+0*t121*t131*t132*t136*t215*t216*t
4713     1         217*t272
4714            t728 = 1.5979688668802342d+0*t121*t126*t131*t136*t216*t217*t
4715     1         430
4716            t729 = -4.444444444444444d-1*t207*t381*t394*t78+4.4444444444
4717     1         44444d-1*t204*t381*t393*t78+3.333333333333333d-1*t214*t71
4718     2         9+3.333333333333333d-1*t213*t718+1.4814814814814814d-1*t2
4719     3         69*t385*t667+1.4814814814814814d-1*t268*t379*t666-1.11111
4720     4         1111111111d-1*t269*t389*t394-1.111111111111111d-1*t268*t3
4721     5         84*t393
4722            t730 = 1.5979688668802342d+0*t121*t126*t136*t215*t216*t217*t
4723     1         276
4724            t731 = -1.5979688668802342d+0*t121*t126*t131*t215*t216*t217*
4725     1         t225*t277
4726            t732 = 1.5979688668802342d+0*t121*t126*t136*t216*t217*t224*t
4727     1         272
4728            t733 = 7.98984433440117d-1*t121*t125*t216*t217*t224*t225*t27
4729     1         7
4730            t734 = -1.5979688668802342d+0*t121*t126*t131*t216*t217*t225*
4731     1         t231*t272
4732            t735 = 7.98984433440117d-1*t121*t125*t216*t217*t225*t231*t27
4733     1         6
4734            t736 = -1.5979688668802342d+0*t121*t125*t131*t216*t217*t231*
4735     1         t277*t421
4736            t737 = -7.98984433440117d-1*t121*t125*t136*t216*t217*t443
4737            t738 = 7.98984433440117d-1*t121*t125*t131*t216*t217*t225*t44
4738     1         4
4739            t739 = -4.1090628005491736d+0*t121*t123*t129*t229*t272*t392
4740            t740 = 1.0272657001372934d+0*t121*t123*t129*t132*t272*t395
4741            t741 = 2.0545314002745868d+0*t121*t123*t129*t132*t215*t430
4742            t742 = -4.793906600640702d+0*t121*t129*t132*t215*t216*t217*t
4743     1         272
4744            t743 = -2.396953300320351d+0*t121*t129*t132*t216*t217*t392
4745            t744 = 1.5979688668802342d+0*t121*t126*t129*t216*t217*t430
4746            t745 = -3.4242190004576445d-1*t121*t123*t126*t129*t729
4747            t746 = 7.98984433440117d-1*t121*t126*t129*t216*t217*t395
4748            t747 = -2.79644551704041d+0*t121*t126*t129*t272*t282*t396
4749            t748 = 1.3316407224001955d-1*t121*t126*t129*t217*t272*t398
4750            t749 = -5.59289103408082d+0*t121*t126*t129*t215*t282*t396
4751            t750 = 2.663281444800391d-1*t121*t126*t129*t215*t217*t398
4752            t751 = 6.848438000915289d-1*t121*t123*t126*t127*t215*t221*t4
4753     1         35
4754            t752 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t43
4755     1         5
4756            t753 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t272*t
4757     1         405
4758            t754 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t4
4759     1         05
4760            t755 = -1.0272657001372934d+0*t121*t123*t127*t132*t221*t274*
4761     1         t392
4762            t756 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t274*t
4763     1         395
4764            t757 = -1.5979688668802342d+0*t121*t126*t127*t215*t216*t217*
4765     1         t221*t274
4766            t758 = -1.398222758520205d+0*t121*t125*t127*t221*t274*t282*t
4767     1         396
4768            t759 = 6.658203612000978d-2*t121*t125*t127*t217*t221*t274*t3
4769     1         98
4770            t760 = 3.4242190004576445d-1*t121*t123*t125*t274*t405*t409*t
4771     1         410
4772            t761 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t274*
4773     1         t405
4774            t762 = -2.0545314002745868d+0*t121*t123*t127*t132*t215*t221*
4775     1         t222*t272
4776            t763 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t222*t4
4777     1         30
4778            t764 = -1.5979688668802342d+0*t121*t126*t127*t216*t217*t221*
4779     1         t222*t272
4780            t765 = -1.5979688668802342d+0*t121*t126*t127*t215*t216*t217*
4781     1         t221*t222
4782            t766 = -2.79644551704041d+0*t121*t125*t127*t221*t222*t282*t3
4783     1         96
4784            t767 = 1.3316407224001955d-1*t121*t125*t127*t217*t221*t222*t
4785     1         398
4786            t768 = 6.848438000915289d-1*t121*t123*t125*t222*t409*t410*t4
4787     1         35
4788            t769 = -3.4242190004576445d-1*t121*t123*t125*t127*t221*t222*
4789     1         t435
4790            t770 = -1.3696876001830577d+0*t121*t123*t126*t215*t222*t274*
4791     1         t409*t410
4792            t771 = -1.5979688668802342d+0*t121*t125*t216*t217*t222*t274*
4793     1         t409*t410
4794            t772 = 6.848438000915289d-1*t121*t123*t126*t127*t215*t221*t2
4795     1         22*t274
4796            t773 = 7.98984433440117d-1*t121*t125*t127*t216*t217*t221*t22
4797     1         2*t274
4798            t774 = 1.2128284535269115d+2*t103*t132*t729-4.04276151175637
4799     1         2d+1*t126*t723-9.702627628215292d+2*t103*t215*t229*t430+2
4800     2         .425656907053823d+2*t132*t210*t430+2.425656907053823d+2*t
4801     3         132*t215*t429+2.425656907053823d+3*t103*t272*t392*t418-4.
4802     4         851313814107646d+2*t103*t229*t272*t395+1.2128284535269115
4803     5         d+2*t132*t271*t395-4.851313814107646d+2*t229*t271*t392+1.
4804     6         2128284535269115d+2*t132*t272*t391-9.702627628215292d+2*t
4805     7         210*t215*t229*t272
4806            t775 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t774
4807            t776 = -6.848438000915289d-1*t121*t123*t126*t272*t409*t410*t
4808     1         411
4809            t777 = -7.98984433440117d-1*t121*t125*t216*t217*t409*t410*t4
4810     1         11
4811            t778 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t272*t
4812     1         411
4813            t779 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t4
4814     1         11
4815            t780 = -1.0272657001372934d+0*t121*t123*t125*t274*t411*t702*
4816     1         t703
4817            t781 = 3.4242190004576445d-1*t121*t123*t125*t274*t409*t410*t
4818     1         411
4819            t782 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t274*
4820     1         t411
4821            t783 = 2.425656907053823d+2*t103*t132*t272-8.085523023512744
4822     1         d+1*t126*t271
4823            t784 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t411*t
4824     1         783
4825            t785 = -5.47179535611107d+0*t134*t215*t216*t226*t227*t272*t4
4826     1         18
4827            t786 = 1.094359071222214d+0*t134*t216*t226*t227*t229*t430
4828            t787 = 5.47179535611107d-1*t127*t132*t216*t226*t227*t230*t43
4829     1         5
4830            t788 = -2.188718142444428d+0*t127*t215*t216*t226*t227*t229*t
4831     1         230*t274
4832            t789 = -2.188718142444428d+0*t127*t216*t222*t226*t227*t229*t
4833     1         230*t272
4834            t790 = -1.641538606833321d+0*t132*t216*t222*t226*t227*t274*t
4835     1         409*t419
4836            t791 = 5.47179535611107d-1*t127*t132*t216*t222*t226*t227*t23
4837     1         0*t274
4838            t792 = 2.9682680922690924d-1*t119*t138*t215*t272
4839            t793 = 1.4841340461345462d-1*t124*t138*t430
4840            t794 = 5.848223622634648d-1*t102*(-1.5389288407452287d+1*t20
4841     1         8*t78*t93+1.5389288407452287d+1*t205*t78*t93+3.4198418683
4842     2         2273d+0*t269*t381*t386*t78-3.41984186832273d+0*t268*t380*
4843     3         t381*t78-5.69973644720455d-1*t207*t497*t643-5.69973644720
4844     4         455d-1*t204*t495*t638+8.549604670806825d-1*t207*t386*t498
4845     5         +8.549604670806825d-1*t204*t380*t496-5.129762802484096d+0
4846     6         *t208*t381+5.129762802484096d+0*t205*t381)+5.848223622634
4847     7         648d-1*t84*(-4*t199*t371*t93+t721+t720+t663+t661+t659+t65
4848     8         8+t657+t656+t655+t654+t653+t651+t650+t649-80*t101*t199*t3
4849     9         74+32*t195*t197*t199)+t636+t634+t633+t632+t626+t625+t624+
4850     :         5.848223622634648d-1*t200*t499+5.848223622634648d-1*t209*
4851     ;         t494+1.1696447245269297d+0*t267*t428+1.1696447245269297d+
4852     <         0*t270*t427
4853            t795 = -2.0d+0*t214*t78*t93+2.0d+0*t213*t78*t93-4.4444444444
4854     1         44444d-1*t269*t381*t394*t78+4.444444444444444d-1*t268*t38
4855     2         1*t393*t78+1.4814814814814814d-1*t207*t497*t667+1.4814814
4856     3         814814814d-1*t204*t495*t666-1.111111111111111d-1*t207*t39
4857     4         4*t498-1.111111111111111d-1*t204*t393*t496-6.666666666666
4858     5         666d-1*t214*t381+6.666666666666666d-1*t213*t381
4859            t796 = -4.1090628005491736d+0*t121*t123*t129*t215*t229*t501
4860            t797 = 2.0545314002745868d+0*t121*t123*t129*t132*t272*t430
4861            t798 = 1.0272657001372934d+0*t121*t123*t129*t132*t215*t502
4862            t799 = -2.396953300320351d+0*t121*t129*t132*t216*t217*t501
4863            t800 = -3.4242190004576445d-1*t121*t123*t126*t129*t795
4864            t801 = 7.98984433440117d-1*t121*t126*t129*t216*t217*t502
4865            t802 = -5.59289103408082d+0*t121*t126*t129*t272*t282*t396
4866            t803 = 2.663281444800391d-1*t121*t126*t129*t217*t272*t398
4867            t804 = -2.79644551704041d+0*t121*t126*t129*t215*t282*t396
4868            t805 = 1.3316407224001955d-1*t121*t126*t129*t215*t217*t398
4869            t806 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t272*t4
4870     1         35
4871            t807 = 3.4242190004576445d-1*t121*t123*t126*t127*t215*t221*t
4872     1         506
4873            t808 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t5
4874     1         06
4875            t809 = -2.0545314002745868d+0*t121*t123*t127*t132*t215*t221*
4876     1         t272*t274
4877            t810 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t274*t4
4878     1         30
4879            t811 = -1.5979688668802342d+0*t121*t126*t127*t216*t217*t221*
4880     1         t272*t274
4881            t812 = -2.79644551704041d+0*t121*t125*t127*t221*t274*t282*t3
4882     1         96
4883            t813 = 1.3316407224001955d-1*t121*t125*t127*t217*t221*t274*t
4884     1         398
4885            t814 = 6.848438000915289d-1*t121*t123*t125*t274*t409*t410*t4
4886     1         35
4887            t815 = -3.4242190004576445d-1*t121*t123*t125*t127*t221*t274*
4888     1         t435
4889            t816 = -1.0272657001372934d+0*t121*t123*t127*t132*t221*t222*
4890     1         t501
4891            t817 = 3.4242190004576445d-1*t121*t123*t126*t127*t221*t222*t
4892     1         502
4893            t818 = -1.398222758520205d+0*t121*t125*t127*t221*t222*t282*t
4894     1         396
4895            t819 = 6.658203612000978d-2*t121*t125*t127*t217*t221*t222*t3
4896     1         98
4897            t820 = 3.4242190004576445d-1*t121*t123*t125*t222*t409*t410*t
4898     1         506
4899            t821 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222*
4900     1         t506
4901            t822 = -1.3696876001830577d+0*t121*t123*t126*t222*t272*t274*
4902     1         t409*t410
4903            t823 = 6.848438000915289d-1*t121*t123*t126*t127*t221*t222*t2
4904     1         72*t274
4905            t824 = 3.4242190004576445d-1*t121*t123*t125*t222*t274*t409*t
4906     1         410*t783
4907            t825 = -1.0272657001372934d+0*t121*t123*t125*t222*t510*t702*
4908     1         t703
4909            t826 = 3.4242190004576445d-1*t121*t123*t125*t222*t409*t410*t
4910     1         510
4911            t827 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t222*
4912     1         t510
4913            t828 = 1.2128284535269115d+2*t103*t132*t795-4.04276151175637
4914     1         2d+1*t126*t794-4.851313814107646d+2*t103*t215*t229*t502+1
4915     2         .2128284535269115d+2*t132*t210*t502+2.425656907053823d+3*
4916     3         t103*t215*t418*t501-4.851313814107646d+2*t210*t229*t501+1
4917     4         .2128284535269115d+2*t132*t215*t500-9.702627628215292d+2*
4918     5         t103*t229*t272*t430+2.425656907053823d+2*t132*t271*t430+2
4919     6         .425656907053823d+2*t132*t272*t429-9.702627628215292d+2*t
4920     7         215*t229*t271*t272
4921            t829 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t828
4922            t830 = -6.848438000915289d-1*t121*t123*t126*t215*t409*t410*t
4923     1         510
4924            t831 = -7.98984433440117d-1*t121*t125*t216*t217*t409*t410*t5
4925     1         10
4926            t832 = 3.4242190004576445d-1*t121*t123*t126*t127*t215*t221*t
4927     1         510
4928            t833 = 3.994922167200585d-1*t121*t125*t127*t216*t217*t221*t5
4929     1         10
4930            t834 = 1/rhob**3.333333333333333d+0
4931            t835 = 1/rhob**3.3333333333333337d+0
4932            t836 = 1/rhob**2.666666666666667d+0
4933            t837 = 1/t41**7
4934            t838 = 1/rhob**2.0d+0
4935            t839 = 1/t55**3
4936            t840 = t247**3
4937            t841 = -1.269642451250142d+0*t244*t41*(7.876233178997433d-1*
4938     1         t42*(-5.469606374303773d-2*t51*t837*t838-1.45856169981433
4939     2         94d-1*t238*t51*t836-1.1708185015918181d-2*t835-1.31270552
4940     3         98329054d-1*t452*t454*t51)-5.469606374303773d-2*t52*t837*
4941     4         t838-1.4585616998143394d-1*t238*t52*t836-1.31270552983290
4942     5         54d-1*t452*t454*t52-3.9381165894987163d-1*t238*t239*t462+
4943     6         1.9690582947493582d-1*t237*t245*t454+2.625411059665811d-1
4944     7         *t238*t245*t453)+1.763392293402975d-2*t454*t54*t838+2.351
4945     8         1897245373004d-1*t42*t54*t836+7.053569173611901d-2*t238*t
4946     9         452*t54-7.617854707500852d+0*t246**3*t41/t53**4+7.6178547
4947     :         07500852d+0*t246*t41*t460*t463-6.34821225625071d-1*t239*t
4948     ;         244*t42*t463+1.269642451250142d+0*t239*t42*t460*t461+4.23
4949     <         21415041671406d-1*t244*t246*t42*t453+1.0580353760417849d-
4950     =         1*t237*t238*t244*t246
4951            t842 = 1/t62**3
4952            t843 = t252**3
4953            t844 = -1.269642451250142d+0*t249*t41*(7.876233178997433d-1*
4954     1         t42*(-5.469606374303773d-2*t58*t837*t838-1.45856169981433
4955     2         94d-1*t238*t58*t836-6.407931356509611d-3*t835-1.312705529
4956     3         8329054d-1*t452*t454*t58)-5.469606374303773d-2*t59*t837*t
4957     4         838-1.4585616998143394d-1*t238*t59*t836-1.312705529832905
4958     5         4d-1*t452*t454*t59-3.9381165894987163d-1*t238*t239*t469+1
4959     6         .9690582947493582d-1*t237*t250*t454+2.625411059665811d-1*
4960     7         t238*t250*t453)+1.763392293402975d-2*t454*t61*t838+2.3511
4961     8         897245373004d-1*t42*t61*t836+7.053569173611901d-2*t238*t4
4962     9         52*t61-7.617854707500852d+0*t251**3*t41/t60**4+7.61785470
4963     :         7500852d+0*t251*t41*t467*t470-6.34821225625071d-1*t239*t2
4964     ;         49*t42*t470+1.269642451250142d+0*t239*t42*t467*t468+4.232
4965     <         1415041671406d-1*t249*t251*t42*t453+1.0580353760417849d-1
4966     =         *t237*t238*t249*t251
4967            t845 = 5.848223622634643d-1*(1.0d+0*(-3.37738d-2*t248*t64*t8
4968     1         44-6.75476d-2*t64*t842*t843+1.709920934161365d+0*(6.21814
4969     2         d-2*t243*t57*t841+1.243628d-1*t57*t839*t840-3.10907d-2*t2
4970     3         35*t50*(-1.269642451250142d+0*t236*t41*(7.876233178997433
4971     4         d-1*t42*(-5.469606374303773d-2*t43*t837*t838-1.4585616998
4972     5         143394d-1*t238*t43*t836-7.424439106586571d-3*t835-1.31270
4973     6         55298329054d-1*t43*t452*t454)-5.469606374303773d-2*t44*t8
4974     7         37*t838-1.4585616998143394d-1*t238*t44*t836-3.93811658949
4975     8         87163d-1*t238*t239*t455-1.3127055298329054d-1*t44*t452*t4
4976     9         54+1.9690582947493582d-1*t237*t240*t454+2.625411059665811
4977     :         d-1*t238*t240*t453)+1.763392293402975d-2*t454*t46*t838+2.
4978     ;         3511897245373004d-1*t42*t46*t836+7.053569173611901d-2*t23
4979     <         8*t452*t46+7.617854707500852d+0*t241*t41*t450*t456-6.3482
4980     =         1225625071d-1*t236*t239*t42*t456+4.2321415041671406d-1*t2
4981     >         36*t241*t42*t453+1.269642451250142d+0*t239*t42*t450*t451-
4982     ?         7.617854707500852d+0*t241**3*t41/t45**4+1.058035376041784
4983     @         9d-1*t236*t237*t238*t241)-8.548627933030694d-3*t56*t834+4
4984     1         .1099018897499934d-3*t48*t834-1.865442d-1*t247*t458*t464*
4985     2         t57-6.21814d-2*t242**3*t50/t47**3+9.327209999999999d-2*t2
4986     3         42*t448*t457*t50-8.243319792565315d-3*t234*t243*t464+8.24
4987     4         3319792565315d-3*t234*t458*t459+3.96311967940178d-3*t234*
4988     5         t235*t457-3.96311967940178d-3*t234*t448*t449+1.0991093056
4989     6         753751d-2*t243*t247*t447-5.284159572535706d-3*t235*t242*t
4990     7         447)+2.4171930915078277d-3*t63*t834+1.013214d-1*t252*t465
4991     8         *t471*t64+2.33086476681112d-3*t234*t248*t471-2.3308647668
4992     9         1112d-3*t234*t465*t466-3.107819689081493d-3*t248*t252*t44
4993     :         7)+3.37738d-2*t248*t64*t844+6.75476d-2*t64*t842*t843-2.41
4994     ;         71930915078277d-3*t63*t834-1.013214d-1*t252*t465*t471*t64
4995     <         -2.33086476681112d-3*t234*t248*t471+2.33086476681112d-3*t
4996     =         234*t465*t466+3.107819689081493d-3*t248*t252*t447)-6.2181
4997     >         4d-2*t243*t57*t841-1.243628d-1*t57*t839*t840+8.5486279330
4998     ?         30694d-3*t56*t834+1.865442d-1*t247*t458*t464*t57+8.243319
4999     @         792565315d-3*t234*t243*t464-8.243319792565315d-3*t234*t45
5000     1         8*t459-1.0991093056753751d-2*t243*t247*t447
5001            t846 = rhob**5.000000000000002d-1
5002            t847 = 1/rhob**6.666666666666665d-1
5003            t848 = 1/rhob**1.8333333333333332d+0
5004            t849 = t253**3
5005            t850 = exp(-2.4256569070538234d+2*t65)
5006            t851 = 8.619732841431575d+5*gammabb*t105*t849*t850/t107**4
5007            t852 = -2.4874964680519085d+4*gammabb*t255*t256*t475*t476*t4
5008     1         77
5009            t853 = -8.619732841431575d+5*gammabb*t105*t476*t477*t849
5010            t854 = 1.0660699148793894d+4*gammabb*t105*t253*t472*t476*t47
5011     1         7
5012            t855 = -1.035785462955064d+1*gammabb*t108*t263*t846
5013            t856 = 1.1097701388804264d+0*gammabb*t108*t288*t847
5014            t857 = 8.807699514924018d-2*gammabb*t108*t256*t848
5015            t858 = 5.383843205234772d+2*gammabb*t106*t253*t258*t288*t473
5016            t859 = -2.563734859635607d+1*gammabb*t106*t253*t256*t258*t47
5017     1         4
5018            t860 = 1.2437482340259542d+4*gammabb*t106*t255*t256*t258*t47
5019     1         5
5020            t861 = -1.5382409157813634d+2*gammabb*t106*t255*t256*t258*t4
5021     1         72
5022            t862 = 1.436622140238596d+5*gammabb*t105*t106*t258*t849
5023            t863 = -5.330349574396946d+3*gammabb*t105*t106*t253*t258*t47
5024     1         2
5025            t864 = 2.1974870225448048d+1*gammabb*t105*t106*t258*t845
5026            t865 = 1/t104**7.0d+0
5027            t866 = 1/t113**4
5028            t867 = 1/t115**3
5029            t868 = t268**3
5030            t869 = t645+t639
5031            t870 = t269**3
5032            t871 = t644+t640
5033            t872 = 5.848223622634648d-1*t84*(-12*t199*t371*t93+t722+t662
5034     1         +t661+t660+t659+t658+t657+t656+t655+t654+t653+t651+t650+t
5035     2         649-240*t101*t199*t374+96*t195*t197*t199)+5.8482236226346
5036     3         48d-1*t102*(2.564881401242048d+0*t208*t871-5.699736447204
5037     4         55d-1*t643*t870+2.564881401242048d+0*t205*t869-5.69973644
5038     5         720455d-1*t638*t868+2.5648814012420473d+0*t269*t386*t498+
5039     6         2.5648814012420473d+0*t268*t380*t496)+t636+t634+t633+t632
5040     7         +t626+t625+t624+1.7544670867903944d+0*t267*t499+1.7544670
5041     8         867903944d+0*t270*t494
5042            t873 = t272**3
5043            t874 = 3.333333333333333d-1*t214*t871+1.4814814814814814d-1*
5044     1         t667*t870+3.333333333333333d-1*t213*t869+1.48148148148148
5045     2         14d-1*t666*t868-3.333333333333333d-1*t269*t394*t498-3.333
5046     3         333333333333d-1*t268*t393*t496
5047            t875 = -4.1090628005491736d+0*t121*t123*t129*t229*t873
5048            t876 = 3.08179710041188d+0*t121*t123*t129*t132*t272*t502
5049            t877 = -7.190859900961053d+0*t121*t129*t132*t216*t217*t501
5050            t878 = -3.4242190004576445d-1*t121*t123*t126*t129*t874
5051            t879 = 2.396953300320351d+0*t121*t126*t129*t216*t217*t502
5052            t880 = -8.389336551121229d+0*t121*t126*t129*t272*t282*t396
5053            t881 = 3.9949221672005863d-1*t121*t126*t129*t217*t272*t398
5054            t882 = 1.0272657001372934d+0*t121*t123*t126*t127*t221*t272*t
5055     1         506
5056            t883 = 1.1984766501601755d+0*t121*t125*t127*t216*t217*t221*t
5057     1         506
5058            t884 = -3.08179710041188d+0*t121*t123*t127*t132*t221*t274*t5
5059     1         01
5060            t885 = 1.0272657001372934d+0*t121*t123*t126*t127*t221*t274*t
5061     1         502
5062            t886 = -4.793906600640702d+0*t121*t126*t127*t216*t217*t221*t
5063     1         272*t274
5064            t887 = -4.1946682755606146d+0*t121*t125*t127*t221*t274*t282*
5065     1         t396
5066            t888 = 1.9974610836002932d-1*t121*t125*t127*t217*t221*t274*t
5067     1         398
5068            t889 = 1.0272657001372934d+0*t121*t123*t125*t274*t409*t410*t
5069     1         506
5070            t890 = -5.136328500686467d-1*t121*t123*t125*t127*t221*t274*t
5071     1         506
5072            t891 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t510*t
5073     1         783
5074            t892 = 1.2128284535269115d+2*t103*t132*t874+2.42565690705382
5075     1         3d+3*t103*t418*t873-4.042761511756372d+1*t126*t872-1.4553
5076     2         94144232294d+3*t103*t229*t272*t502+3.638485360580735d+2*t
5077     3         132*t271*t502-1.455394144232294d+3*t229*t271*t501+3.63848
5078     4         5360580735d+2*t132*t272*t500
5079            t893 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t892
5080            t894 = -2.0545314002745868d+0*t121*t123*t126*t272*t409*t410*
5081     1         t510
5082            t895 = -2.396953300320351d+0*t121*t125*t216*t217*t409*t410*t
5083     1         510
5084            t896 = 1.0272657001372934d+0*t121*t123*t126*t127*t221*t272*t
5085     1         510
5086            t897 = 1.1984766501601755d+0*t121*t125*t127*t216*t217*t221*t
5087     1         510
5088            t898 = t274**3
5089            t899 = -1.0272657001372934d+0*t121*t123*t125*t702*t703*t898
5090            t900 = 3.4242190004576445d-1*t121*t123*t125*t409*t410*t898
5091            t901 = -1.7121095002288222d-1*t121*t123*t125*t127*t221*t898
5092            t902 = 3.553566382931298d+3*t28*t319*t320*t321
5093            t903 = 2.2195402777608514d+0*t279*t31*t317
5094            t904 = -1.0569239417908823d-1*t161*t31*t318
5095            t905 = -1.0254939438542422d+2*t158*t160*t161*t163*t29
5096            t906 = -1.776783191465649d+3*t163*t28*t29*t319
5097            t907 = 2.1974870225448048d+1*t163*t28*t29*t316
5098            t908 = -1.398222758520205d+0*t121*t125*t131*t225*t282*t283*t
5099     1         396
5100            t909 = 6.658203612000978d-2*t121*t125*t131*t217*t225*t283*t3
5101     1         98
5102            t910 = 1.5979688668802342d+0*t126*t131*t136*t215*t216*t217
5103            t911 = 1.398222758520205d+0*t125*t131*t136*t282*t396
5104            t912 = -6.658203612000978d-2*t125*t131*t136*t217*t398
5105            t913 = 2.735897678055535d-1*t121*t129*t136*t215*t216*t227*t2
5106     1         29
5107            t914 = 2.3939104682985932d-1*t121*t129*t132*t136*t396*t415
5108            t915 = -1.1399573658564734d-2*t121*t129*t132*t136*t227*t398
5109            t916 = -7.98984433440117d-1*t125*t136*t216*t217*t224
5110            t917 = 7.98984433440117d-1*t125*t131*t216*t217*t225*t231
5111            t918 = 1.3679488390277675d-1*t121*t129*t132*t216*t225*t227*t
5112     1         231
5113            t919 = 1.0272657001372934d+0*t123*t129*t132*t392
5114            t920 = -3.4242190004576445d-1*t123*t126*t129*t395
5115            t921 = 1.5979688668802342d+0*t126*t129*t215*t216*t217
5116            t922 = 1.398222758520205d+0*t125*t129*t282*t396
5117            t923 = -6.658203612000978d-2*t125*t129*t217*t398
5118            t924 = -1.7121095002288222d-1*t123*t125*t127*t221*t405
5119            t925 = 6.848438000915289d-1*t123*t126*t127*t215*t221*t222
5120            t926 = 7.98984433440117d-1*t125*t127*t216*t217*t221*t222
5121            t927 = 3.4242190004576445d-1*t123*t125*t409*t410*t411
5122            t928 = -1.7121095002288222d-1*t123*t125*t127*t221*t411
5123            t929 = 2.188718142444428d+0*t121*t134*t215*t216*t227*t229
5124            t930 = 1.5959403121990623d+0*t121*t132*t134*t396*t415
5125            t931 = -4.5598294634258935d-2*t121*t132*t134*t227*t398
5126            t932 = 1.094359071222214d+0*t121*t127*t132*t216*t222*t227*t2
5127     1         30
5128            t933 = t212*(2.473556743557577d-2*t120*t66*(-1.7121095002288
5129     1         222d-1*t121*t123*t125*t131*t225*(t932+t931+t930+t929+t928
5130     2         +t927+t926+t925+t924+t923+t922+t921+t920+t919+3.517582728
5131     3         928545d-1*t121*t132*t282*t409*t411*t419+1.172527576309514
5132     4         8d+0*t121*t134*t282*t392*t418-1.172527576309515d-1*t121*t
5133     5         127*t132*t230*t282*t411-1.172527576309515d-1*t121*t127*t1
5134     6         32*t230*t282*t405-2.34505515261903d-1*t121*t134*t229*t282
5135     7         *t395+9.38022061047612d-1*t121*t127*t215*t222*t229*t230*t
5136     8         282)+1.7121095002288222d-1*t121*t123*t125*t136*(t928+t927
5137     9         +t926+t925+t924+t923+t922+t921+t920+t919)+t918+t917+t916+
5138     :         t915+t914+t913+t912+t911+t910+t909+t908-1.027265700137293
5139     ;         4d+0*t121*t123*t125*t131*t283*t422*t714+6.848438000915289
5140     <         d-1*t121*t123*t125*t131*t231*t421*t535-3.4242190004576445
5141     =         d-1*t121*t123*t125*t224*t225*t535+7.98984433440117d-1*t12
5142     >         1*t125*t131*t216*t217*t225*t535+6.848438000915289d-1*t121
5143     ?         *t123*t126*t131*t215*t225*t535-3.4242190004576445d-1*t121
5144     @         *t123*t125*t225*t231*t533-7.98984433440117d-1*t121*t125*t
5145     1         136*t216*t217*t533-6.848438000915289d-1*t121*t123*t126*t1
5146     2         36*t215*t533+5.862637881547574d-2*t121*t129*t132*t282*t42
5147     3         1*t422+3.4242190004576445d-1*t123*t125*t131*t421*t422+3.4
5148     4         242190004576445d-1*t121*t123*t125*t131*t283*t420*t421+6.8
5149     5         48438000915289d-1*t121*t123*t125*t224*t231*t283*t421-1.59
5150     6         79688668802342d+0*t121*t125*t131*t216*t217*t231*t283*t421
5151     7         -1.3696876001830577d+0*t121*t123*t126*t131*t215*t231*t283
5152     8         *t421-2.931318940773787d-2*t121*t129*t132*t225*t282*t420-
5153     9         1.7121095002288222d-1*t123*t125*t131*t225*t420+1.75879136
5154     :         44642725d-1*t121*t129*t136*t282*t392*t418-1.7121095002288
5155     ;         222d-1*t121*t123*t125*t225*t283*t414+1.7121095002288222d-
5156     <         1*t123*t125*t136*t414+3.4242190004576445d-1*t121*t123*t12
5157     =         6*t131*t225*t283*t395-5.862637881547574d-2*t121*t129*t136
5158     >         *t229*t282*t395-3.4242190004576445d-1*t123*t126*t131*t136
5159     ?         *t395-1.0272657001372934d+0*t121*t123*t131*t132*t225*t283
5160     @         *t392+1.0272657001372934d+0*t123*t131*t132*t136*t392+7.98
5161     1         984433440117d-1*t121*t125*t216*t217*t224*t225*t283+6.8484
5162     2         38000915289d-1*t121*t123*t126*t215*t224*t225*t283-1.59796
5163     3         88668802342d+0*t121*t126*t131*t215*t216*t217*t225*t283+1.
5164     4         172527576309515d-1*t121*t129*t215*t225*t229*t231*t282-3.4
5165     5         242190004576445d-1*t123*t125*t224*t225*t231+6.84843800091
5166     6         5289d-1*t123*t126*t131*t215*t225*t231-6.848438000915289d-
5167     7         1*t123*t126*t136*t215*t224)+1.4841340461345462d-1*t124*t2
5168     8         15*t536*t66+7.420670230672731d-2*t124*t284*t395*t66+1.484
5169     9         1340461345462d-1*t119*t284*t392*t66+4.947113487115154d-2*
5170     :         t120*t536+1.4841340461345462d-1*t124*t215*t284)
5171            t934 = t425*(-4.947113487115154d-2*t120*t232*t536*t66-t284*t
5172     1         424)
5173            t935 = 4.947113487115154d-2*t120*t284*t426*t66*t716
5174            t936 = -1.398222758520205d+0*t121*t125*t131*t225*t282*t286*t
5175     1         396
5176            t937 = 6.658203612000978d-2*t121*t125*t131*t217*t225*t286*t3
5177     1         98
5178            t938 = 2.79644551704041d+0*t125*t131*t136*t282*t396
5179            t939 = -1.3316407224001955d-1*t125*t131*t136*t217*t398
5180            t940 = 4.7878209365971863d-1*t121*t129*t132*t136*t396*t415
5181            t941 = -2.2799147317129467d-2*t121*t129*t132*t136*t227*t398
5182            t942 = 2.0545314002745868d+0*t123*t129*t132*t392
5183            t943 = -6.848438000915289d-1*t123*t126*t129*t395
5184            t944 = 3.1959377337604683d+0*t126*t129*t215*t216*t217
5185            t945 = 2.79644551704041d+0*t125*t129*t282*t396
5186            t946 = -1.3316407224001955d-1*t125*t129*t217*t398
5187            t947 = -3.4242190004576445d-1*t123*t125*t127*t221*t405
5188            t948 = 1.3696876001830577d+0*t123*t126*t127*t215*t221*t222
5189            t949 = 1.5979688668802342d+0*t125*t127*t216*t217*t221*t222
5190            t950 = 6.848438000915289d-1*t123*t125*t409*t410*t411
5191            t951 = -3.4242190004576445d-1*t123*t125*t127*t221*t411
5192            t952 = 3.1918806243981246d+0*t121*t132*t134*t396*t415
5193            t953 = -9.119658926851787d-2*t121*t132*t134*t227*t398
5194            t954 = 1.0272657001372934d+0*t123*t129*t132*t215*t272
5195            t955 = -3.4242190004576445d-1*t123*t126*t129*t430
5196            t956 = 7.98984433440117d-1*t126*t129*t216*t217*t272
5197            t957 = 7.98984433440117d-1*t126*t129*t215*t216*t217
5198            t958 = -1.7121095002288222d-1*t123*t125*t127*t221*t435
5199            t959 = 3.4242190004576445d-1*t123*t126*t127*t215*t221*t274
5200            t960 = 3.994922167200585d-1*t125*t127*t216*t217*t221*t274
5201            t961 = 3.4242190004576445d-1*t123*t126*t127*t221*t222*t272
5202            t962 = 3.994922167200585d-1*t125*t127*t216*t217*t221*t222
5203            t963 = 3.4242190004576445d-1*t123*t125*t222*t274*t409*t410
5204            t964 = -1.7121095002288222d-1*t123*t125*t127*t221*t222*t274
5205            t965 = (t212*(2.473556743557577d-2*t120*t66*(-1.712109500228
5206     1         8222d-1*t121*t123*t125*t131*t225*(t964+t963+t962+t961+t96
5207     2         0+t959+t958+t957+t956+t955+t954+t931+t930+t923+t922-1.172
5208     3         527576309515d-1*t121*t127*t132*t230*t282*t435-2.345055152
5209     4         61903d-1*t121*t134*t229*t282*t430+3.517582728928545d-1*t1
5210     5         21*t132*t222*t274*t282*t409*t419+1.1725275763095148d+0*t1
5211     6         21*t134*t215*t272*t282*t418+4.69011030523806d-1*t121*t127
5212     7         *t215*t229*t230*t274*t282-1.172527576309515d-1*t121*t127*
5213     8         t132*t222*t230*t274*t282+4.69011030523806d-1*t121*t127*t2
5214     9         22*t229*t230*t272*t282+5.47179535611107d-1*t121*t127*t132
5215     :         *t216*t227*t230*t274+1.094359071222214d+0*t121*t134*t216*
5216     ;         t227*t229*t272+5.47179535611107d-1*t121*t127*t132*t216*t2
5217     <         22*t227*t230+1.094359071222214d+0*t121*t134*t215*t216*t22
5218     =         7*t229)+1.7121095002288222d-1*t121*t123*t125*t136*(t964+t
5219     >         963+t962+t961+t960+t959+t958+t957+t956+t955+t954+t923+t92
5220     ?         2)+t915+t914+t912+t911+t909+t908-1.0272657001372934d+0*t1
5221     @         21*t123*t125*t131*t231*t277*t283*t714+3.4242190004576445d
5222     1         -1*t121*t123*t125*t131*t231*t421*t555-1.7121095002288222d
5223     2         -1*t121*t123*t125*t224*t225*t555+3.994922167200585d-1*t12
5224     3         1*t125*t131*t216*t217*t225*t555+3.4242190004576445d-1*t12
5225     4         1*t123*t126*t131*t215*t225*t555-1.7121095002288222d-1*t12
5226     5         1*t123*t125*t225*t231*t554-3.994922167200585d-1*t121*t125
5227     6         *t136*t216*t217*t554-3.4242190004576445d-1*t121*t123*t126
5228     7         *t136*t215*t554+3.4242190004576445d-1*t121*t123*t125*t131
5229     8         *t277*t421*t535-1.7121095002288222d-1*t121*t123*t125*t225
5230     9         *t276*t535+3.4242190004576445d-1*t121*t123*t126*t131*t225
5231     :         *t272*t535+3.994922167200585d-1*t121*t125*t131*t216*t217*
5232     ;         t225*t535-1.7121095002288222d-1*t121*t123*t125*t225*t277*
5233     <         t533-3.4242190004576445d-1*t121*t123*t126*t136*t272*t533-
5234     =         3.994922167200585d-1*t121*t125*t136*t216*t217*t533+3.4242
5235     >         190004576445d-1*t121*t123*t125*t131*t283*t421*t444-2.9313
5236     ?         18940773787d-2*t121*t129*t132*t225*t282*t444-1.7121095002
5237     @         288222d-1*t123*t125*t131*t225*t444-1.7121095002288222d-1*
5238     1         t121*t123*t125*t225*t283*t443+1.7121095002288222d-1*t123*
5239     2         t125*t136*t443+3.4242190004576445d-1*t121*t123*t126*t131*
5240     3         t225*t283*t430-5.862637881547574d-2*t121*t129*t136*t229*t
5241     4         282*t430-3.4242190004576445d-1*t123*t126*t131*t136*t430+3
5242     5         .4242190004576445d-1*t121*t123*t125*t224*t277*t283*t421-7
5243     6         .98984433440117d-1*t121*t125*t131*t216*t217*t277*t283*t42
5244     7         1-6.848438000915289d-1*t121*t123*t126*t131*t215*t277*t283
5245     8         *t421+3.4242190004576445d-1*t121*t123*t125*t231*t276*t283
5246     9         *t421-6.848438000915289d-1*t121*t123*t126*t131*t231*t272*
5247     :         t283*t421-7.98984433440117d-1*t121*t125*t131*t216*t217*t2
5248     ;         31*t283*t421+5.862637881547574d-2*t121*t129*t132*t231*t27
5249     <         7*t282*t421+3.4242190004576445d-1*t123*t125*t131*t231*t27
5250     =         7*t421+1.7587913644642725d-1*t121*t129*t136*t215*t272*t28
5251     >         2*t418+3.994922167200585d-1*t121*t125*t216*t217*t225*t276
5252     ?         *t283+3.4242190004576445d-1*t121*t123*t126*t215*t225*t276
5253     @         *t283+3.4242190004576445d-1*t121*t123*t126*t224*t225*t272
5254     1         *t283-7.98984433440117d-1*t121*t126*t131*t216*t217*t225*t
5255     2         272*t283-1.0272657001372934d+0*t121*t123*t131*t132*t215*t
5256     3         225*t272*t283+3.994922167200585d-1*t121*t125*t216*t217*t2
5257     4         24*t225*t283-7.98984433440117d-1*t121*t126*t131*t215*t216
5258     5         *t217*t225*t283+5.862637881547574d-2*t121*t129*t215*t225*
5259     6         t229*t277*t282+5.862637881547574d-2*t121*t129*t225*t229*t
5260     7         231*t272*t282+6.839744195138837d-2*t121*t129*t132*t216*t2
5261     8         25*t227*t277-1.7121095002288222d-1*t123*t125*t224*t225*t2
5262     9         77+3.994922167200585d-1*t125*t131*t216*t217*t225*t277+3.4
5263     :         242190004576445d-1*t123*t126*t131*t215*t225*t277-1.712109
5264     ;         5002288222d-1*t123*t125*t225*t231*t276-3.994922167200585d
5265     <         -1*t125*t136*t216*t217*t276-3.4242190004576445d-1*t123*t1
5266     =         26*t136*t215*t276+3.4242190004576445d-1*t123*t126*t131*t2
5267     >         25*t231*t272+1.3679488390277675d-1*t121*t129*t136*t216*t2
5268     ?         27*t229*t272-3.4242190004576445d-1*t123*t126*t136*t224*t2
5269     @         72+7.98984433440117d-1*t126*t131*t136*t216*t217*t272+1.02
5270     1         72657001372934d+0*t123*t131*t132*t136*t215*t272+6.8397441
5271     2         95138837d-2*t121*t129*t132*t216*t225*t227*t231+3.99492216
5272     3         7200585d-1*t125*t131*t216*t217*t225*t231+1.36794883902776
5273     4         75d-1*t121*t129*t136*t215*t216*t227*t229-3.99492216720058
5274     5         5d-1*t125*t136*t216*t217*t224+7.98984433440117d-1*t126*t1
5275     6         31*t136*t215*t216*t217)+7.420670230672731d-2*t124*t215*t5
5276     7         56*t66+7.420670230672731d-2*t124*t272*t536*t66+7.42067023
5277     8         0672731d-2*t124*t284*t430*t66+1.4841340461345462d-1*t119*
5278     9         t215*t272*t284*t66+2.473556743557577d-2*t120*t556+2.47355
5279     :         6743557577d-2*t120*t536+7.420670230672731d-2*t124*t272*t2
5280     ;         84+7.420670230672731d-2*t124*t215*t284)+4.947113487115154
5281     <         d-2*t120*t232*t278*t284*t66*t716+t425*(-2.473556743557577
5282     =         d-2*t120*t232*t556*t66-2.473556743557577d-2*t120*t278*t53
5283     >         6*t66-t284*t446))*wght
5284            t966 = 1.5979688668802342d+0*t126*t131*t136*t216*t217*t272
5285            t967 = 2.735897678055535d-1*t121*t129*t136*t216*t227*t229*t2
5286     1         72
5287            t968 = -7.98984433440117d-1*t125*t136*t216*t217*t276
5288            t969 = 7.98984433440117d-1*t125*t131*t216*t217*t225*t277
5289            t970 = 1.3679488390277675d-1*t121*t129*t132*t216*t225*t227*t
5290     1         277
5291            t971 = 2.0545314002745868d+0*t123*t129*t132*t215*t272
5292            t972 = -6.848438000915289d-1*t123*t126*t129*t430
5293            t973 = 1.5979688668802342d+0*t126*t129*t216*t217*t272
5294            t974 = -3.4242190004576445d-1*t123*t125*t127*t221*t435
5295            t975 = 6.848438000915289d-1*t123*t126*t127*t215*t221*t274
5296            t976 = 7.98984433440117d-1*t125*t127*t216*t217*t221*t274
5297            t977 = 6.848438000915289d-1*t123*t126*t127*t221*t222*t272
5298            t978 = 6.848438000915289d-1*t123*t125*t222*t274*t409*t410
5299            t979 = -3.4242190004576445d-1*t123*t125*t127*t221*t222*t274
5300            t980 = 2.188718142444428d+0*t121*t134*t216*t227*t229*t272
5301            t981 = 1.094359071222214d+0*t121*t127*t132*t216*t227*t230*t2
5302     1         74
5303            t982 = 1.0272657001372934d+0*t123*t129*t132*t501
5304            t983 = -3.4242190004576445d-1*t123*t126*t129*t502
5305            t984 = -1.7121095002288222d-1*t123*t125*t127*t221*t506
5306            t985 = 6.848438000915289d-1*t123*t126*t127*t221*t272*t274
5307            t986 = 3.4242190004576445d-1*t123*t125*t409*t410*t510
5308            t987 = -1.7121095002288222d-1*t123*t125*t127*t221*t510
5309            t988 = t212*(2.473556743557577d-2*t120*t66*(-1.7121095002288
5310     1         222d-1*t121*t123*t125*t131*t225*(t987+t986+t985+t984+t983
5311     2         +t982+t981+t980+t976+t973+t931+t930+t923+t922+3.517582728
5312     3         928545d-1*t121*t132*t282*t409*t419*t510-1.172527576309515
5313     4         d-1*t121*t127*t132*t230*t282*t510-1.172527576309515d-1*t1
5314     5         21*t127*t132*t230*t282*t506-2.34505515261903d-1*t121*t134
5315     6         *t229*t282*t502+1.1725275763095148d+0*t121*t134*t282*t418
5316     7         *t501+9.38022061047612d-1*t121*t127*t229*t230*t272*t274*t
5317     8         282)+1.7121095002288222d-1*t121*t123*t125*t136*(t987+t986
5318     9         +t985+t984+t983+t982+t976+t973+t923+t922)+t970+t969+t968+
5319     :         t967+t966+t915+t914+t912+t911+t909+t908-1.027265700137293
5320     ;         4d+0*t121*t123*t125*t131*t283*t515*t714+6.848438000915289
5321     <         d-1*t121*t123*t125*t131*t277*t421*t555-3.4242190004576445
5322     =         d-1*t121*t123*t125*t225*t276*t555+6.848438000915289d-1*t1
5323     >         21*t123*t126*t131*t225*t272*t555+7.98984433440117d-1*t121
5324     ?         *t125*t131*t216*t217*t225*t555-3.4242190004576445d-1*t121
5325     @         *t123*t125*t225*t277*t554-6.848438000915289d-1*t121*t123*
5326     1         t126*t136*t272*t554-7.98984433440117d-1*t121*t125*t136*t2
5327     2         16*t217*t554+5.862637881547574d-2*t121*t129*t132*t282*t42
5328     3         1*t515+3.4242190004576445d-1*t123*t125*t131*t421*t515+3.4
5329     4         242190004576445d-1*t121*t123*t125*t131*t283*t421*t514-2.9
5330     5         31318940773787d-2*t121*t129*t132*t225*t282*t514-1.7121095
5331     6         002288222d-1*t123*t125*t131*t225*t514-1.7121095002288222d
5332     7         -1*t121*t123*t125*t225*t283*t513+1.7121095002288222d-1*t1
5333     8         23*t125*t136*t513+3.4242190004576445d-1*t121*t123*t126*t1
5334     9         31*t225*t283*t502-5.862637881547574d-2*t121*t129*t136*t22
5335     :         9*t282*t502-3.4242190004576445d-1*t123*t126*t131*t136*t50
5336     ;         2+1.7587913644642725d-1*t121*t129*t136*t282*t418*t501-1.0
5337     <         272657001372934d+0*t121*t123*t131*t132*t225*t283*t501+1.0
5338     =         272657001372934d+0*t123*t131*t132*t136*t501+6.84843800091
5339     >         5289d-1*t121*t123*t125*t276*t277*t283*t421-1.369687600183
5340     ?         0577d+0*t121*t123*t126*t131*t272*t277*t283*t421-1.5979688
5341     @         668802342d+0*t121*t125*t131*t216*t217*t277*t283*t421+6.84
5342     1         8438000915289d-1*t121*t123*t126*t225*t272*t276*t283+7.989
5343     2         84433440117d-1*t121*t125*t216*t217*t225*t276*t283-1.59796
5344     3         88668802342d+0*t121*t126*t131*t216*t217*t225*t272*t283+1.
5345     4         172527576309515d-1*t121*t129*t225*t229*t272*t277*t282-3.4
5346     5         242190004576445d-1*t123*t125*t225*t276*t277+6.84843800091
5347     6         5289d-1*t123*t126*t131*t225*t272*t277-6.848438000915289d-
5348     7         1*t123*t126*t136*t272*t276)+1.4841340461345462d-1*t124*t2
5349     8         72*t556*t66+7.420670230672731d-2*t124*t284*t502*t66+1.484
5350     9         1340461345462d-1*t119*t284*t501*t66+4.947113487115154d-2*
5351     :         t120*t556+1.4841340461345462d-1*t124*t272*t284)
5352            t989 = t425*(-4.947113487115154d-2*t120*t278*t556*t66-t284*t
5353     1         517)
5354            t990 = 4.947113487115154d-2*t120*t284*t518*t66*t716
5355            t991 = 2.0545314002745868d+0*t123*t129*t132*t501
5356            t992 = -6.848438000915289d-1*t123*t126*t129*t502
5357            t993 = 3.1959377337604683d+0*t126*t129*t216*t217*t272
5358            t994 = -3.4242190004576445d-1*t123*t125*t127*t221*t506
5359            t995 = 1.3696876001830577d+0*t123*t126*t127*t221*t272*t274
5360            t996 = 1.5979688668802342d+0*t125*t127*t216*t217*t221*t274
5361            t997 = 6.848438000915289d-1*t123*t125*t409*t410*t510
5362            t998 = -3.4242190004576445d-1*t123*t125*t127*t221*t510
5363            t999 = 3.553566382931298d+3*t105*t475*t476*t477
5364            t1000 = 2.2195402777608514d+0*t108*t288*t473
5365            t1001 = -1.0569239417908823d-1*t108*t256*t474
5366            t1002 = -1.0254939438542422d+2*t106*t253*t255*t256*t258
5367            t1003 = -1.776783191465649d+3*t105*t106*t258*t475
5368            t1004 = 2.1974870225448048d+1*t105*t106*t258*t472
5369            t1005 = 4.947113487115154d-2*t120*t232*t574*t66*t716
5370            t1006 = 2.473556743557577d-2*t120*t579
5371            t1007 = -7.98984433440117d-1*t121*t125*t131*t216*t217*t421*t
5372     1         576
5373            t1008 = 6.848438000915289d-1*t123*t126*t131*t215*t225*t283
5374            t1009 = 7.98984433440117d-1*t125*t131*t216*t217*t225*t283
5375            t1010 = 2.3420782031264287d-2*t121*t131*t134*t216*t225*t418*
5376     1         t708
5377            t1011 = 1.172527576309515d-1*t121*t129*t215*t225*t229*t282*t
5378     1         283
5379            t1012 = 1.3679488390277675d-1*t121*t129*t132*t216*t225*t227*
5380     1         t283
5381            t1013 = -1.3679488390277675d-1*t129*t132*t136*t216*t227
5382            t1014 = -2.735897678055535d-1*t132*t134*t216*t227
5383            t1015 = 3.4242190004576445d-1*t123*t125*t136*t533
5384            t1016 = -3.4242190004576445d-1*t123*t125*t131*t225*t535
5385            t1017 = -5.862637881547574d-2*t121*t129*t132*t225*t282*t535
5386            t1018 = -3.4242190004576445d-1*t123*t125*t224*t225*t283
5387            t1019 = 6.848438000915289d-1*t123*t125*t131*t231*t283*t421
5388            t1020 = 1.172527576309515d-1*t121*t129*t132*t231*t282*t283*t
5389     1         421
5390            t1021 = t212*(2.473556743557577d-2*t120*t66*(-1.027265700137
5391     1         2934d+0*t121*t123*t125*t131*t231*t576*t714+2.007495602679
5392     2         796d-2*t121*t131*t134*t215*t225*t415*t712+3.4242190004576
5393     3         445d-1*t121*t123*t125*t224*t421*t576-6.848438000915289d-1
5394     4         *t121*t123*t126*t131*t215*t421*t576+6.848438000915289d-1*
5395     5         t121*t123*t125*t131*t283*t421*t535-3.4242190004576445d-1*
5396     6         t121*t123*t125*t225*t283*t533+2.007495602679796d-2*t121*t
5397     7         131*t134*t231*t415*t418*t421-1.003747801339898d-2*t121*t1
5398     8         34*t224*t225*t415*t418-1.7121095002288222d-1*t121*t123*t1
5399     9         25*t131*t225*(-1.172527576309515d-1*t127*t132*t222*t230*t
5400     :         282-2.34505515261903d-1*t134*t215*t229*t282+t1014)-5.8626
5401     ;         37881547574d-2*t129*t132*t225*t231*t282-1.172527576309515
5402     <         d-1*t129*t136*t215*t229*t282+t1020+t1019+t1018+t1017+t101
5403     =         6+t1015+t1013+t1012+t1011+t1010+t1009+t1008+t1007)+7.4206
5404     >         70230672731d-2*t124*t215*t579*t66+t1006)
5405            t1022 = t425*(-2.473556743557577d-2*t120*t232*t579*t66-2.473
5406     1         556743557577d-2*t120*t284*t536*t66-t284*t537)
5407            t1023 = 4.947113487115154d-2*t120*t232*t284*t287*t66*t716
5408            t1024 = 2.473556743557577d-2*t120*t581
5409            t1025 = -7.98984433440117d-1*t121*t125*t131*t216*t217*t283*t
5410     1         286*t421
5411            t1026 = 3.994922167200585d-1*t125*t131*t216*t217*t225*t286
5412            t1027 = 4.6841564062528573d-2*t121*t131*t134*t216*t225*t418*
5413     1         t708
5414            t1028 = 6.839744195138837d-2*t121*t129*t132*t216*t225*t227*t
5415     1         286
5416            t1029 = -2.735897678055535d-1*t129*t132*t136*t216*t227
5417            t1030 = -5.47179535611107d-1*t132*t134*t216*t227
5418            t1031 = t212*(2.473556743557577d-2*t120*t66*(-1.027265700137
5419     1         2934d+0*t121*t123*t125*t131*t231*t283*t286*t714+4.0149912
5420     2         05359592d-2*t121*t131*t134*t215*t225*t415*t712+3.42421900
5421     3         04576445d-1*t121*t123*t125*t131*t283*t421*t548-2.93131894
5422     4         0773787d-2*t121*t129*t132*t225*t282*t548-1.71210950022882
5423     5         22d-1*t123*t125*t131*t225*t548-1.7121095002288222d-1*t121
5424     6         *t123*t125*t225*t283*t546+1.7121095002288222d-1*t123*t125
5425     7         *t136*t546+3.4242190004576445d-1*t121*t123*t125*t131*t286
5426     8         *t421*t535-1.7121095002288222d-1*t121*t123*t125*t225*t286
5427     9         *t533+4.014991205359592d-2*t121*t131*t134*t231*t415*t418*
5428     :         t421+3.4242190004576445d-1*t121*t123*t125*t224*t283*t286*
5429     ;         t421-6.848438000915289d-1*t121*t123*t126*t131*t215*t283*t
5430     <         286*t421+5.862637881547574d-2*t121*t129*t132*t231*t282*t2
5431     =         86*t421+3.4242190004576445d-1*t123*t125*t131*t231*t286*t4
5432     >         21-2.007495602679796d-2*t121*t134*t224*t225*t415*t418+5.8
5433     ?         62637881547574d-2*t121*t129*t215*t225*t229*t282*t286-1.71
5434     @         21095002288222d-1*t123*t125*t224*t225*t286+3.424219000457
5435     1         6445d-1*t123*t126*t131*t215*t225*t286-1.7121095002288222d
5436     2         -1*t121*t123*t125*t131*t225*(-2.34505515261903d-1*t127*t1
5437     3         32*t222*t230*t282-4.69011030523806d-1*t134*t215*t229*t282
5438     4         +t1030)-1.172527576309515d-1*t129*t132*t225*t231*t282-2.3
5439     5         4505515261903d-1*t129*t136*t215*t229*t282+t1029+t1028+t10
5440     6         27+t1026+t1025+t1020+t1019+t1018+t1017+t1016+t1015+t1012+
5441     7         t1011+t1009+t1008)+7.420670230672731d-2*t124*t215*t581*t6
5442     8         6+t1024)
5443            t1032 = -2.473556743557577d-2*t120*t232*t581*t66
5444            t1033 = (t1022+t1021+t1005)*wght
5445            t1034 = 2.473556743557577d-2*t120*t584
5446            t1035 = -7.98984433440117d-1*t121*t125*t131*t216*t217*t421*t
5447     1         583
5448            t1036 = 1.5979688668802342d+0*t125*t131*t216*t217*t225*t286
5449            t1037 = 9.368312812505715d-2*t121*t131*t134*t216*t225*t418*t
5450     1         708
5451            t1038 = 2.735897678055535d-1*t121*t129*t132*t216*t225*t227*t
5452     1         286
5453            t1039 = -5.47179535611107d-1*t129*t132*t136*t216*t227
5454            t1040 = -1.094359071222214d+0*t132*t134*t216*t227
5455            t1041 = 4.947113487115154d-2*t120*t278*t574*t66*t716
5456            t1042 = 6.848438000915289d-1*t123*t126*t131*t225*t272*t283
5457            t1043 = 1.172527576309515d-1*t121*t129*t225*t229*t272*t282*t
5458     1         283
5459            t1044 = 3.4242190004576445d-1*t123*t125*t136*t554
5460            t1045 = -3.4242190004576445d-1*t123*t125*t131*t225*t555
5461            t1046 = -5.862637881547574d-2*t121*t129*t132*t225*t282*t555
5462            t1047 = -3.4242190004576445d-1*t123*t125*t225*t276*t283
5463            t1048 = 6.848438000915289d-1*t123*t125*t131*t277*t283*t421
5464            t1049 = 1.172527576309515d-1*t121*t129*t132*t277*t282*t283*t
5465     1         421
5466            t1050 = t212*(2.473556743557577d-2*t120*t66*(-1.027265700137
5467     1         2934d+0*t121*t123*t125*t131*t277*t576*t714+2.007495602679
5468     2         796d-2*t121*t131*t134*t225*t272*t415*t712+3.4242190004576
5469     3         445d-1*t121*t123*t125*t276*t421*t576-6.848438000915289d-1
5470     4         *t121*t123*t126*t131*t272*t421*t576+6.848438000915289d-1*
5471     5         t121*t123*t125*t131*t283*t421*t555-3.4242190004576445d-1*
5472     6         t121*t123*t125*t225*t283*t554+2.007495602679796d-2*t121*t
5473     7         131*t134*t277*t415*t418*t421-1.003747801339898d-2*t121*t1
5474     8         34*t225*t276*t415*t418-1.7121095002288222d-1*t121*t123*t1
5475     9         25*t131*t225*(-1.172527576309515d-1*t127*t132*t230*t274*t
5476     :         282-2.34505515261903d-1*t134*t229*t272*t282+t1014)-5.8626
5477     ;         37881547574d-2*t129*t132*t225*t277*t282-1.172527576309515
5478     <         d-1*t129*t136*t229*t272*t282+t1049+t1048+t1047+t1046+t104
5479     =         5+t1044+t1043+t1042+t1013+t1012+t1010+t1009+t1007)+7.4206
5480     >         70230672731d-2*t124*t272*t579*t66+t1006)
5481            t1051 = t425*(-2.473556743557577d-2*t120*t278*t579*t66-2.473
5482     1         556743557577d-2*t120*t284*t556*t66-t284*t557)
5483            t1052 = (t1051+t1050+t1041)*wght
5484            t1053 = 4.947113487115154d-2*t120*t278*t284*t287*t66*t716
5485            t1054 = t212*(2.473556743557577d-2*t120*t66*(-1.027265700137
5486     1         2934d+0*t121*t123*t125*t131*t277*t283*t286*t714+4.0149912
5487     2         05359592d-2*t121*t131*t134*t225*t272*t415*t712+3.42421900
5488     3         04576445d-1*t121*t123*t125*t131*t283*t421*t562-2.93131894
5489     4         0773787d-2*t121*t129*t132*t225*t282*t562-1.71210950022882
5490     5         22d-1*t123*t125*t131*t225*t562-1.7121095002288222d-1*t121
5491     6         *t123*t125*t225*t283*t561+1.7121095002288222d-1*t123*t125
5492     7         *t136*t561+3.4242190004576445d-1*t121*t123*t125*t131*t286
5493     8         *t421*t555-1.7121095002288222d-1*t121*t123*t125*t225*t286
5494     9         *t554+4.014991205359592d-2*t121*t131*t134*t277*t415*t418*
5495     :         t421+3.4242190004576445d-1*t121*t123*t125*t276*t283*t286*
5496     ;         t421-6.848438000915289d-1*t121*t123*t126*t131*t272*t283*t
5497     <         286*t421+5.862637881547574d-2*t121*t129*t132*t277*t282*t2
5498     =         86*t421+3.4242190004576445d-1*t123*t125*t131*t277*t286*t4
5499     >         21-2.007495602679796d-2*t121*t134*t225*t276*t415*t418+5.8
5500     ?         62637881547574d-2*t121*t129*t225*t229*t272*t282*t286-1.71
5501     @         21095002288222d-1*t123*t125*t225*t276*t286+3.424219000457
5502     1         6445d-1*t123*t126*t131*t225*t272*t286-1.7121095002288222d
5503     2         -1*t121*t123*t125*t131*t225*(-2.34505515261903d-1*t127*t1
5504     3         32*t230*t274*t282-4.69011030523806d-1*t134*t229*t272*t282
5505     4         +t1030)-1.172527576309515d-1*t129*t132*t225*t277*t282-2.3
5506     5         4505515261903d-1*t129*t136*t229*t272*t282+t1049+t1048+t10
5507     6         47+t1046+t1045+t1044+t1043+t1042+t1029+t1028+t1027+t1026+
5508     7         t1025+t1012+t1009)+7.420670230672731d-2*t124*t272*t581*t6
5509     8         6+t1024)
5510            t1055 = -2.473556743557577d-2*t120*t278*t581*t66
5511            t1056 = 4.947113487115154d-2*t120*t284**3*t66*t716
5512            t1057 = 1/t122**8.0d+0
5513            t1058 = 1/t119**8.0d+0
5514            t1059 = 2.473556743557577d-2*t120*t212*t66*(-1.0272657001372
5515     1         934d+0*t121*t123*t125*t131*t283**3*t714+1.758791364464272
5516     2         5d-1*t121*t129*t132*t282*t421*t576+1.0272657001372934d+0*
5517     3         t123*t125*t131*t421*t576+6.022486808039389d-2*t121*t131*t
5518     4         134*t283*t415*t418*t421-3.0112434040196945d-2*t131*t134*t
5519     5         225*t415*t418-1.7587913644642725d-1*t129*t132*t225*t282*t
5520     6         283-5.155578439523496d-3*t1057*t1058*t121*t225*t230)
5521            t1060 = -7.420670230672731d-2*t120*t284*t425*t579*t66
5522            t1061 = 8.029982410719184d-2*t121*t131*t134*t283*t415*t418*t
5523     1         421
5524            t1062 = -2.34505515261903d-1*t129*t132*t225*t282*t283
5525            t1063 = -1.0272657001372934d+0*t121*t123*t125*t131*t286*t576
5526     1         *t714+1.172527576309515d-1*t121*t129*t132*t282*t421*t576+
5527     2         6.848438000915289d-1*t123*t125*t131*t421*t576+2.007495602
5528     3         679796d-2*t121*t131*t134*t286*t415*t418*t421+1.1725275763
5529     4         09515d-1*t121*t129*t132*t282*t283*t286*t421+6.84843800091
5530     5         5289d-1*t123*t125*t131*t283*t286*t421-6.022486808039389d-
5531     6         2*t131*t134*t225*t415*t418-5.862637881547574d-2*t129*t132
5532     7         *t225*t282*t286-1.0311156879046991d-2*t1057*t1058*t121*t2
5533     8         25*t230+t1062+t1061
5534            t1064 = (4.947113487115154d-2*t120*t287*t574*t66*t716+t425*(
5535     1         -4.947113487115154d-2*t120*t284*t581*t66-2.47355674355757
5536     2         7d-2*t120*t287*t579*t66)+2.473556743557577d-2*t1063*t120*
5537     3         t212*t66)*wght
5538            t1065 = (t1060+t1059+t1056)*wght
5539            t1066 = -1.0272657001372934d+0*t121*t123*t125*t131*t283*t583
5540     1         *t714+5.862637881547574d-2*t121*t129*t132*t282*t421*t583+
5541     2         3.4242190004576445d-1*t123*t125*t131*t421*t583+8.02998241
5542     3         0719184d-2*t121*t131*t134*t286*t415*t418*t421+2.345055152
5543     4         61903d-1*t121*t129*t132*t282*t283*t286*t421+1.36968760018
5544     5         30577d+0*t123*t125*t131*t283*t286*t421-1.2044973616078777
5545     6         d-1*t131*t134*t225*t415*t418-2.34505515261903d-1*t129*t13
5546     7         2*t225*t282*t286-2.0622313758093982d-2*t1057*t1058*t121*t
5547     8         225*t230+t1062+t1061
5548            fnc(iq) = (2.473556743557577d-2*t120*t138*t66+1.0d+0*t103*t6
5549     1         6-1.0d+0*rhob*t65-1.2367783717787881d-2*rhoa*t39-1.0d+0*r
5550     2         hoa*t26-1.2367783717787881d-2*rhob*t116)*wght+fnc(iq)
5551            Amat(iq,D1_RA) = (2.473556743557577d-2*t120*t212*t232*t66+7.
5552     1         420670230672731d-2*t124*t138*t215*t66+1.0d+0*t210*t66-1.2
5553     2         367783717787881d-2*t39-1.0d+0*t26+t233+t211-1.23677837177
5554     3         87881d-2*rhoa*t159*t171-1.0d+0*rhoa*t158)*wght+Amat(iq,D1
5555     4         _RA)
5556            Amat(iq,D1_RB) = (2.473556743557577d-2*t120*t212*t278*t66+7.
5557     1         420670230672731d-2*t124*t138*t272*t66+1.0d+0*t271*t66-1.0
5558     2         d+0*t65-1.2367783717787881d-2*rhob*t254*t266-1.0d+0*rhob*
5559     3         t253+t233+t211-1.2367783717787881d-2*t116)*wght+Amat(iq,D
5560     4         1_RB)
5561            Cmat(iq,D1_GAA) = (t285-1.2367783717787881d-2*rhoa*t159*t281
5562     1         )*wght+Cmat(iq,D1_GAA)
5563            Cmat(iq,D1_GAB) = 2.473556743557577d-2*t120*t212*t287*t66*wg
5564     1         ht+Cmat(iq,D1_GAB)
5565            Cmat(iq,D1_GBB) = (t285-1.2367783717787881d-2*rhob*t254*t290
5566     1         )*wght+Cmat(iq,D1_GBB)
5567            Amat2(iq,D2_RA_RA) = (-2.473556743557577d-2*t120*t425*t426*t
5568     1         66+7.420670230672731d-2*t124*t138*t395*t66+1.484134046134
5569     2         5462d-1*t119*t138*t392*t66+1.0d+0*t391*t66+t212*t424+1.23
5570     3         67783717787881d-2*rhoa*t336*t337+t159*t335-1.0d+0*rhoa*t3
5571     4         16+1.4841340461345462d-1*t124*t138*t215+2.0d+0*t210-2.0d+
5572     5         0*t158)*wght+Amat2(iq,D2_RA_RA)
5573            Amat2(iq,D2_RA_RB) = (7.420670230672731d-2*t124*t138*t430*t6
5574     1         6+1.0d+0*t429*t66-2.473556743557577d-2*t120*t232*t278*t42
5575     2         5*t66+1.4841340461345462d-1*t119*t138*t215*t272*t66+t212*
5576     3         t446+7.420670230672731d-2*t124*t138*t272+1.0d+0*t271+7.42
5577     4         0670230672731d-2*t124*t138*t215+1.0d+0*t210)*wght+Amat2(i
5578     5         q,D2_RA_RB)
5579            Amat2(iq,D2_RB_RB) = (-2.473556743557577d-2*t120*t425*t518*t
5580     1         66+7.420670230672731d-2*t124*t138*t502*t66+1.484134046134
5581     2         5462d-1*t119*t138*t501*t66+1.0d+0*t500*t66+t212*t517+1.23
5582     3         67783717787881d-2*rhob*t492*t493+t254*t491-1.0d+0*rhob*t4
5583     4         72+1.4841340461345462d-1*t124*t138*t272+2.0d+0*t271-2.0d+
5584     5         0*t253)*wght+Amat2(iq,D2_RB_RB)
5585            Cmat2(iq,D2_RA_GAA) = (t538+t525+t159*t524+1.236778371778788
5586     1         1d-2*rhoa*t171*t281*t336)*wght+Cmat2(iq,D2_RA_GAA)
5587            Cmat2(iq,D2_RA_GAB) = (t212*t550-2.473556743557577d-2*t120*t
5588     1         232*t287*t425*t66)*wght+Cmat2(iq,D2_RA_GAB)
5589            Cmat2(iq,D2_RA_GBB) = (t538+t525)*wght+Cmat2(iq,D2_RA_GBB)
5590            Cmat2(iq,D2_RB_GAA) = (t558+t551)*wght+Cmat2(iq,D2_RB_GAA)
5591            Cmat2(iq,D2_RB_GAB) = (t212*t564-2.473556743557577d-2*t120*t
5592     1         278*t287*t425*t66)*wght+Cmat2(iq,D2_RB_GAB)
5593            Cmat2(iq,D2_RB_GBB) = (t254*t570+t558+t551+1.236778371778788
5594     1         1d-2*rhob*t266*t290*t492)*wght+Cmat2(iq,D2_RB_GBB)
5595            Cmat2(iq,D2_GAA_GAA) = (t580+t575-1.2367783717787881d-2*rhoa
5596     1         *t159*t573+1.2367783717787881d-2*rhoa*t336*t571)*wght+Cma
5597     2         t2(iq,D2_GAA_GAA)
5598            Cmat2(iq,D2_GAA_GAB) = (2.473556743557577d-2*t120*t212*t581*
5599     1         t66-2.473556743557577d-2*t120*t284*t287*t425*t66)*wght+Cm
5600     2         at2(iq,D2_GAA_GAB)
5601            Cmat2(iq,D2_GAA_GBB) = (t580+t575)*wght+Cmat2(iq,D2_GAA_GBB)
5602            Cmat2(iq,D2_GAB_GAB) = 2.473556743557577d-2*t120*t212*t584*t
5603     1         66*wght-2.473556743557577d-2*t120*t425*t582*t66*wght+Cmat
5604     2         2(iq,D2_GAB_GAB)
5605            Cmat2(iq,D2_GAB_GBB) = 2.473556743557577d-2*t120*t212*t581*t
5606     1         66*wght-2.473556743557577d-2*t120*t284*t287*t425*t66*wght
5607     2         +Cmat2(iq,D2_GAB_GBB)
5608            Cmat2(iq,D2_GBB_GBB) = (-1.2367783717787881d-2*rhob*t254*t58
5609     1         7+1.2367783717787881d-2*rhob*t492*t585+t580+t575)*wght+Cm
5610     2         at2(iq,D2_GBB_GBB)
5611            Amat3(iq,D3_RA_RA_RA) = (4.947113487115154d-2*t120*t232**3*t
5612     1         66*t716+t425*(t715-7.420670230672731d-2*t124*t215*t426*t6
5613     2         6-4.947113487115154d-2*t120*t232*t423*t66-t232*t424)+t212
5614     3         *(2.473556743557577d-2*t120*t66*(-1.0272657001372934d+0*t
5615     4         121*t123*t125*t131*t231**3*t714-1.7121095002288222d-1*t12
5616     5         1*t123*t125*t131*t225*(-7.03516545785709d-1*t132*t133*t70
5617     6         2*t704*t713-3.5175827289285444d+0*t133*t134*t665*t712+t71
5618     7         1+t710+t709+t707+t706+t705+1.7587913644642725d-1*t132*t13
5619     8         3*t409*t419*t704-5.862637881547574d-2*t127*t132*t133*t230
5620     9         *t704+t701+t700+t699+t698+t697-5.862637881547574d-2*t127*
5621     :         t132*t133*t230*t696+t695+1.7587913644642725d-1*t132*t133*
5622     ;         t409*t411*t419*t694+t693+t692+t691+t690+t689+t688+t687+t6
5623     <         86+t685+t684+t683+t682+t681+t680+t679+t678+t677+t676+t675
5624     =         -1.172527576309515d-1*t133*t134*t229*t668-2.1105496373571
5625     >         27d+0*t133*t215*t229*t409*t411*t419-2.4623079102499817d+0
5626     ?         *t132*t216*t226*t227*t409*t411*t419+5.276374093392817d-1*
5627     @         t132*t133*t222*t405*t409*t419+1.7587913644642722d+0*t133*
5628     1         t134*t215*t395*t418-3.5175827289285444d+0*t127*t133*t222*
5629     2         t230*t392*t418-8.207693034166604d+0*t134*t216*t226*t227*t
5630     3         392*t418-4.7878209365971874d+0*t127*t132*t222*t226*t230*t
5631     4         396*t415-9.575641873194375d+0*t134*t215*t226*t229*t396*t4
5632     5         15+7.03516545785709d-1*t127*t133*t215*t229*t230*t411+8.20
5633     6         7693034166605d-1*t127*t132*t216*t226*t227*t230*t411+7.035
5634     7         16545785709d-1*t127*t133*t215*t229*t230*t405+8.2076930341
5635     8         66605d-1*t127*t132*t216*t226*t227*t230*t405-1.75879136446
5636     9         42725d-1*t127*t132*t133*t222*t230*t405+1.367948839027768d
5637     :         -1*t127*t132*t222*t226*t227*t230*t398+2.735897678055536d-
5638     ;         1*t134*t215*t226*t227*t229*t398+7.03516545785709d-1*t127*
5639     <         t133*t222*t229*t230*t395+1.641538606833321d+0*t134*t216*t
5640     =         226*t227*t229*t395-6.566154427333284d+0*t127*t215*t216*t2
5641     >         22*t226*t227*t229*t230)+1.7121095002288222d-1*t121*t123*t
5642     ?         125*t136*(t707+t706+t705+t701+t700+t699+t698+t697+t695+t6
5643     @         93+t692+t691+t690+t689+t688+t687+t686+t685+t684+t683+t682
5644     1         +t681+t680+t679+t678+t677+t676+t675)+t674+t672+t670-3.424
5645     2         2190004576445d-1*t121*t123*t126*t131*t136*t668-4.10906280
5646     3         05491736d+0*t121*t123*t131*t136*t229*t665+1.0272657001372
5647     4         934d+0*t121*t123*t125*t224*t421*t422-2.396953300320351d+0
5648     5         *t121*t125*t131*t216*t217*t421*t422-2.0545314002745868d+0
5649     6         *t121*t123*t126*t131*t215*t421*t422+1.0272657001372934d+0
5650     7         *t121*t123*t125*t131*t231*t420*t421-5.136328500686467d-1*
5651     8         t121*t123*t125*t224*t225*t420+1.1984766501601755d+0*t121*
5652     9         t125*t131*t216*t217*t225*t420+1.0272657001372934d+0*t121*
5653     :         t123*t126*t131*t215*t225*t420-5.136328500686467d-1*t121*t
5654     ;         123*t125*t225*t231*t414-1.1984766501601755d+0*t121*t125*t
5655     <         136*t216*t217*t414-1.0272657001372934d+0*t121*t123*t126*t
5656     =         136*t215*t414+1.9974610836002932d-1*t121*t125*t131*t217*t
5657     >         225*t231*t398-1.9974610836002932d-1*t121*t125*t136*t217*t
5658     ?         224*t398+3.9949221672005863d-1*t121*t126*t131*t136*t215*t
5659     @         217*t398-4.1946682755606146d+0*t121*t125*t131*t225*t231*t
5660     1         282*t396+4.1946682755606146d+0*t121*t125*t136*t224*t282*t
5661     2         396-8.389336551121229d+0*t121*t126*t131*t136*t215*t282*t3
5662     3         96+1.0272657001372934d+0*t121*t123*t126*t131*t225*t231*t3
5663     4         95-1.0272657001372934d+0*t121*t123*t126*t136*t224*t395+2.
5664     5         396953300320351d+0*t121*t126*t131*t136*t216*t217*t395+3.0
5665     6         8179710041188d+0*t121*t123*t131*t132*t136*t215*t395-3.081
5666     7         79710041188d+0*t121*t123*t131*t132*t225*t231*t392+3.08179
5667     8         710041188d+0*t121*t123*t132*t136*t224*t392-7.190859900961
5668     9         053d+0*t121*t131*t132*t136*t216*t217*t392+2.3969533003203
5669     :         51d+0*t121*t125*t216*t217*t224*t225*t231+2.05453140027458
5670     ;         68d+0*t121*t123*t126*t215*t224*t225*t231-4.79390660064070
5671     <         2d+0*t121*t126*t131*t215*t216*t217*t225*t231+4.7939066006
5672     =         40702d+0*t121*t126*t136*t215*t216*t217*t224)+2.2262010692
5673     >         018191d-1*t124*t215*t423*t66+2.2262010692018191d-1*t124*t
5674     ?         232*t395*t66+4.4524021384036383d-1*t119*t232*t392*t66+7.4
5675     @         20670230672731d-2*t120*t423+4.4524021384036383d-1*t124*t2
5676     1         15*t232)+7.420670230672731d-2*t124*t138*t66*t668+1.484134
5677     2         0461345462d-1*t138*t66*t665+1.0d+0*t66*t664+4.45240213840
5678     3         36383d-1*t119*t138*t215*t395*t66-2.4735567435575762d-2*rh
5679     4         oa*t171**3*t621+t159*(-1.2367783717787881d-2*rhoa*(-1.630
5680     5         682653048789d+0*gammaaa*t170**3*t28*t33*t620-2.7178044217
5681     6         479813d-1*gammaaa*t166*t28*t33*(-1.4075311556007766d+1*t1
5682     7         67*t35*t600*t619+t618+t617+t616+t615+t614+t613+t612+t611+
5683     8         t610+t609+t608+t607+t606+t605+9.37069921229161d+5*t34*t60
5684     9         3*t604/t30**5.0d+0-7.028024409218707d+5*t320*t329*t34*t60
5685     :         3+7.808916010243009d+4*t169*t29*t34*t603+4.78752093741761
5686     ;         d-2*t167*t168*t35*t602+1.0053793968576981d+0*t167*t330*t3
5687     <         5*t601+1.1944679893212153d+1*t169*t29*t34*t599+8.69210858
5688     =         5655094d+3*t158*t316*t320*t329*t34-2.8973695285516987d+3*
5689     >         t158*t169*t29*t316*t34+9.754821912789926d+2*t158*t167*t16
5690     ?         9*t29*t317*t330-4.0563173399723773d+4*t160*t167*t168*t319
5691     @         *t320*t329+1.3521057799907926d+4*t160*t167*t168*t169*t29*
5692     1         t319-2.787091975082837d+1*t158*t167*t168*t169*t29*t318-1.
5693     2         6722551850497014d+2*t160*t167*t168*t169*t29*t316)+2.71780
5694     3         44217479813d-1*gammaaa*t28*t37*(t618+t617+t616+t615+t614+
5695     4         t613+t612+t611+t610+t609+t608+t607+t606+t605)+8.807699514
5696     5         924018d-2*gammaaa*t161*t33*t37*t602+1.1097701388804264d+0
5697     6         *gammaaa*t279*t33*t37*t601-1.035785462955064d+1*gammaaa*t
5698     7         168*t33*t37*t600-1.9024630952235871d+0*gammaaa*t160*t161*
5699     8         t328*t37-3.170771825372647d-1*gammaaa*t161*t165*t318*t37+
5700     9         6.658620833282555d+0*gammaaa*t165*t279*t317*t37-3.8049261
5701     :         904471743d+0*gammaaa*t160*t161*t33*t332*t333+1.6306826530
5702     ;         48789d+0*gammaaa*t165*t28*t332*t333+1.630682653048789d+0*
5703     <         gammaaa*t170*t28*t33*t331*t332+1.9024630952235871d+0*gamm
5704     =         aaa*t160*t161*t166*t33*t331-8.153413265243944d-1*gammaaa*
5705     >         t165*t166*t28*t331+3.170771825372647d-1*gammaaa*t161*t166
5706     ?         *t170*t318*t33-6.658620833282555d+0*gammaaa*t166*t170*t27
5707     @         9*t317*t33-8.153413265243944d-1*gammaaa*t166*t170*t28*t32
5708     1         8+3.8049261904471743d+0*gammaaa*t160*t161*t165*t166*t170)
5709     2         -3.710335115336365d-2*t334)-1.0d+0*rhoa*t599+2.2262010692
5710     3         018191d-1*t124*t138*t395+4.4524021384036383d-1*t119*t138*
5711     4         t392+3.0d+0*t391+t336*(1.2367783717787881d-2*t337-t171*t3
5712     5         35+2.4735567435575762d-2*rhoa*t171*t334)-3.0d+0*t316)*wgh
5713     6         t+Amat3(iq,D3_RA_RA_RA)
5714            Amat3(iq,D3_RA_RA_RB) = (t793+t792+t212*(2.473556743557577d-
5715     1         2*t120*t66*(-1.7121095002288222d-1*t121*t123*t125*t131*t2
5716     2         25*(t791+t790+t789+t788+t787+t786+t785+t784+1.75879136446
5717     3         42725d-1*t132*t133*t409*t411*t419*t783+t782+t781+t780+t77
5718     4         9+t778+t777+t776+t775-5.862637881547574d-2*t127*t132*t133
5719     5         *t230*t774+t773+t772+t771+t770+t769+t768+t767+t766+t765+t
5720     6         764+t763+t762+t761+t760+t759+t758+t757+t756+t755+t754+t75
5721     7         3+t752+t751+t750+t749+t748+t747+t746+t745+t744+t743+t742+
5722     8         t741+t740+t739-1.172527576309515d-1*t133*t134*t229*t729-7
5723     9         .03516545785709d-1*t132*t133*t274*t411*t702*t713-3.517582
5724     :         7289285444d+0*t133*t134*t272*t392*t712+t711+t710+t709+t68
5725     ;         4+t683+t682+3.517582728928545d-1*t132*t133*t222*t409*t419
5726     <         *t435+4.69011030523806d-1*t127*t133*t215*t229*t230*t435-1
5727     =         .172527576309515d-1*t127*t132*t133*t222*t230*t435+1.17252
5728     >         75763095148d+0*t133*t134*t215*t418*t430+4.69011030523806d
5729     ?         -1*t127*t133*t222*t229*t230*t430+1.7587913644642725d-1*t1
5730     @         32*t133*t274*t409*t411*t419-7.03516545785709d-1*t133*t229
5731     1         *t272*t409*t411*t419-8.207693034166605d-1*t132*t216*t226*
5732     2         t227*t409*t411*t419+1.7587913644642725d-1*t132*t133*t274*
5733     3         t405*t409*t419-1.407033091571418d+0*t133*t215*t222*t229*t
5734     4         274*t409*t419+5.862637881547574d-1*t133*t134*t272*t395*t4
5735     5         18-1.1725275763095148d+0*t127*t133*t230*t274*t392*t418-2.
5736     6         735897678055535d+0*t134*t216*t226*t227*t392*t418-2.345055
5737     7         1526190297d+0*t127*t133*t215*t222*t230*t272*t418-1.595940
5738     8         3121990623d+0*t127*t132*t226*t230*t274*t396*t415-3.191880
5739     9         6243981246d+0*t134*t226*t229*t272*t396*t415-3.19188062439
5740     :         81246d+0*t127*t132*t222*t226*t230*t396*t415-6.38376124879
5741     ;         6249d+0*t134*t215*t226*t229*t396*t415-5.862637881547574d-
5742     <         2*t127*t132*t133*t230*t274*t411+2.34505515261903d-1*t127*
5743     =         t133*t229*t230*t272*t411+2.735897678055535d-1*t127*t132*t
5744     >         216*t226*t227*t230*t411-5.862637881547574d-2*t127*t132*t1
5745     ?         33*t230*t274*t405+2.34505515261903d-1*t127*t133*t229*t230
5746     @         *t272*t405+2.735897678055535d-1*t127*t132*t216*t226*t227*
5747     1         t230*t405+4.5598294634258935d-2*t127*t132*t226*t227*t230*
5748     2         t274*t398+9.119658926851787d-2*t134*t226*t227*t229*t272*t
5749     3         398+9.119658926851787d-2*t127*t132*t222*t226*t227*t230*t3
5750     4         98+1.8239317853703574d-1*t134*t215*t226*t227*t229*t398+2.
5751     5         34505515261903d-1*t127*t133*t229*t230*t274*t395+5.4717953
5752     6         5611107d-1*t134*t216*t226*t227*t229*t395+4.69011030523806
5753     7         d-1*t127*t133*t215*t222*t229*t230*t274-2.188718142444428d
5754     8         +0*t127*t215*t216*t222*t226*t227*t229*t230)+1.71210950022
5755     9         88222d-1*t121*t123*t125*t136*(t784+t782+t781+t780+t779+t7
5756     :         78+t777+t776+t775+t773+t772+t771+t770+t769+t768+t767+t766
5757     ;         +t765+t764+t763+t762+t761+t760+t759+t758+t757+t756+t755+t
5758     <         754+t753+t752+t751+t750+t749+t748+t747+t746+t745+t744+t74
5759     =         3+t742+t741+t740+t739+t684+t683+t682)+t738+t737+t736+t735
5760     >         +t734+t733+t732+t731+t730-3.4242190004576445d-1*t121*t123
5761     ?         *t126*t131*t136*t729+t728+t727-1.0272657001372934d+0*t121
5762     @         *t123*t125*t131*t277*t422*t714+t674+t672+t670+6.848438000
5763     1         915289d-1*t121*t123*t125*t131*t231*t421*t444-3.4242190004
5764     2         576445d-1*t121*t123*t125*t224*t225*t444+6.848438000915289
5765     3         d-1*t121*t123*t126*t131*t215*t225*t444-3.4242190004576445
5766     4         d-1*t121*t123*t125*t225*t231*t443-6.848438000915289d-1*t1
5767     5         21*t123*t126*t136*t215*t443+6.848438000915289d-1*t121*t12
5768     6         3*t126*t131*t225*t231*t430-6.848438000915289d-1*t121*t123
5769     7         *t126*t136*t224*t430+2.0545314002745868d+0*t121*t123*t131
5770     8         *t132*t136*t215*t430+3.4242190004576445d-1*t121*t123*t125
5771     9         *t276*t421*t422-6.848438000915289d-1*t121*t123*t126*t131*
5772     :         t272*t421*t422-7.98984433440117d-1*t121*t125*t131*t216*t2
5773     ;         17*t421*t422+3.4242190004576445d-1*t121*t123*t125*t131*t2
5774     <         77*t420*t421+6.848438000915289d-1*t121*t123*t125*t224*t23
5775     =         1*t277*t421-1.3696876001830577d+0*t121*t123*t126*t131*t21
5776     >         5*t231*t277*t421-1.7121095002288222d-1*t121*t123*t125*t22
5777     ?         5*t276*t420+3.4242190004576445d-1*t121*t123*t126*t131*t22
5778     @         5*t272*t420+3.994922167200585d-1*t121*t125*t131*t216*t217
5779     1         *t225*t420-1.7121095002288222d-1*t121*t123*t125*t225*t277
5780     2         *t414-3.4242190004576445d-1*t121*t123*t126*t136*t272*t414
5781     3         -3.994922167200585d-1*t121*t125*t136*t216*t217*t414+6.658
5782     4         203612000978d-2*t121*t125*t131*t217*t225*t277*t398-6.6582
5783     5         03612000978d-2*t121*t125*t136*t217*t276*t398+1.3316407224
5784     6         001955d-1*t121*t126*t131*t136*t217*t272*t398+1.3316407224
5785     7         001955d-1*t121*t125*t131*t217*t225*t231*t398-1.3316407224
5786     8         001955d-1*t121*t125*t136*t217*t224*t398+2.663281444800391
5787     9         d-1*t121*t126*t131*t136*t215*t217*t398-1.398222758520205d
5788     :         +0*t121*t125*t131*t225*t277*t282*t396+1.398222758520205d+
5789     ;         0*t121*t125*t136*t276*t282*t396-2.79644551704041d+0*t121*
5790     <         t126*t131*t136*t272*t282*t396-2.79644551704041d+0*t121*t1
5791     =         25*t131*t225*t231*t282*t396+2.79644551704041d+0*t121*t125
5792     >         *t136*t224*t282*t396-5.59289103408082d+0*t121*t126*t131*t
5793     ?         136*t215*t282*t396+3.4242190004576445d-1*t121*t123*t126*t
5794     @         131*t225*t277*t395-3.4242190004576445d-1*t121*t123*t126*t
5795     1         136*t276*t395+1.0272657001372934d+0*t121*t123*t131*t132*t
5796     2         136*t272*t395+7.98984433440117d-1*t121*t126*t131*t136*t21
5797     3         6*t217*t395-1.0272657001372934d+0*t121*t123*t131*t132*t22
5798     4         5*t277*t392+1.0272657001372934d+0*t121*t123*t132*t136*t27
5799     5         6*t392-4.1090628005491736d+0*t121*t123*t131*t136*t229*t27
5800     6         2*t392-2.396953300320351d+0*t121*t131*t132*t136*t216*t217
5801     7         *t392+6.848438000915289d-1*t121*t123*t126*t215*t224*t225*
5802     8         t277+6.848438000915289d-1*t121*t123*t126*t215*t225*t231*t
5803     9         276+6.848438000915289d-1*t121*t123*t126*t224*t225*t231*t2
5804     :         72-2.0545314002745868d+0*t121*t123*t131*t132*t215*t225*t2
5805     ;         31*t272+2.0545314002745868d+0*t121*t123*t132*t136*t215*t2
5806     <         24*t272+7.98984433440117d-1*t121*t125*t216*t217*t224*t225
5807     =         *t231-1.5979688668802342d+0*t121*t126*t131*t215*t216*t217
5808     >         *t225*t231+1.5979688668802342d+0*t121*t126*t136*t215*t216
5809     ?         *t217*t224)+t726+t725+t724+1.4841340461345462d-1*t124*t21
5810     @         5*t445*t66+1.4841340461345462d-1*t124*t232*t430*t66+7.420
5811     1         670230672731d-2*t124*t272*t423*t66+7.420670230672731d-2*t
5812     2         124*t278*t395*t66+1.4841340461345462d-1*t119*t278*t392*t6
5813     3         6+2.9682680922690924d-1*t119*t215*t232*t272*t66+2.4735567
5814     4         43557577d-2*t120*t423+1.4841340461345462d-1*t124*t215*t23
5815     5         2)+7.420670230672731d-2*t124*t138*t66*t729+1.0d+0*t66*t72
5816     6         3+t717+4.947113487115154d-2*t120*t278*t426*t66*t716+t425*
5817     7         (t715-4.947113487115154d-2*t120*t232*t445*t66-7.420670230
5818     8         672731d-2*t124*t272*t426*t66-t278*t424)+2.968268092269092
5819     9         4d-1*t119*t138*t215*t430*t66+1.4841340461345462d-1*t119*t
5820     :         138*t272*t395*t66+1.4841340461345462d-1*t138*t272*t392*t6
5821     ;         6+7.420670230672731d-2*t124*t138*t395+1.4841340461345462d
5822     <         -1*t119*t138*t392+1.0d+0*t391)*wght+Amat3(iq,D3_RA_RA_RB)
5823            Amat3(iq,D3_RA_RB_RB) = (t212*(2.473556743557577d-2*t120*t66
5824     1         *(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t833+t
5825     2         832+t831+t830+t829-5.862637881547574d-2*t127*t132*t133*t2
5826     3         30*t828+t827+t826+t825+t824+t823+t822+t821+t820+t819+t818
5827     4         +t817+t816+t815+t814+t813+t812+t811+t810+t809+t808+t807+t
5828     5         806+t805+t804+t803+t802+t801+t800+t799+t798+t797+t796-1.1
5829     6         72527576309515d-1*t133*t134*t229*t795+t791+t790+t789+t788
5830     7         +t787+t786+t785+1.7587913644642725d-1*t132*t133*t222*t274
5831     8         *t409*t419*t783+t773+t771+t764+t757+t752+t744+t742-7.0351
5832     9         6545785709d-1*t132*t133*t222*t510*t702*t713-3.51758272892
5833     :         85444d+0*t133*t134*t215*t501*t712+t711+t710+t709+t684+t68
5834     ;         3+t682-7.03516545785709d-1*t133*t215*t229*t409*t419*t510-
5835     <         8.207693034166605d-1*t132*t216*t226*t227*t409*t419*t510+1
5836     =         .7587913644642725d-1*t132*t133*t222*t409*t419*t510+2.3450
5837     >         5515261903d-1*t127*t133*t215*t229*t230*t510+2.73589767805
5838     ?         5535d-1*t127*t132*t216*t226*t227*t230*t510-5.862637881547
5839     @         574d-2*t127*t132*t133*t222*t230*t510+1.7587913644642725d-
5840     1         1*t132*t133*t222*t409*t419*t506+2.34505515261903d-1*t127*
5841     2         t133*t215*t229*t230*t506+2.735897678055535d-1*t127*t132*t
5842     3         216*t226*t227*t230*t506-5.862637881547574d-2*t127*t132*t1
5843     4         33*t222*t230*t506+5.862637881547574d-1*t133*t134*t215*t41
5844     5         8*t502+2.34505515261903d-1*t127*t133*t222*t229*t230*t502+
5845     6         5.47179535611107d-1*t134*t216*t226*t227*t229*t502-1.17252
5846     7         75763095148d+0*t127*t133*t222*t230*t418*t501-2.7358976780
5847     8         55535d+0*t134*t216*t226*t227*t418*t501+3.517582728928545d
5848     9         -1*t132*t133*t274*t409*t419*t435-1.172527576309515d-1*t12
5849     :         7*t132*t133*t230*t274*t435+4.69011030523806d-1*t127*t133*
5850     ;         t229*t230*t272*t435+1.1725275763095148d+0*t133*t134*t272*
5851     <         t418*t430+4.69011030523806d-1*t127*t133*t229*t230*t274*t4
5852     =         30-1.407033091571418d+0*t133*t222*t229*t272*t274*t409*t41
5853     >         9-2.3450551526190297d+0*t127*t133*t215*t230*t272*t274*t41
5854     ?         8-3.1918806243981246d+0*t127*t132*t226*t230*t274*t396*t41
5855     @         5-6.383761248796249d+0*t134*t226*t229*t272*t396*t415-1.59
5856     1         59403121990623d+0*t127*t132*t222*t226*t230*t396*t415-3.19
5857     2         18806243981246d+0*t134*t215*t226*t229*t396*t415+9.1196589
5858     3         26851787d-2*t127*t132*t226*t227*t230*t274*t398+1.82393178
5859     4         53703574d-1*t134*t226*t227*t229*t272*t398+4.5598294634258
5860     5         935d-2*t127*t132*t222*t226*t227*t230*t398+9.1196589268517
5861     6         87d-2*t134*t215*t226*t227*t229*t398-2.188718142444428d+0*
5862     7         t127*t216*t226*t227*t229*t230*t272*t274+4.69011030523806d
5863     8         -1*t127*t133*t222*t229*t230*t272*t274)+1.7121095002288222
5864     9         d-1*t121*t123*t125*t136*(t833+t832+t831+t830+t829+t827+t8
5865     :         26+t825+t824+t823+t822+t821+t820+t819+t818+t817+t816+t815
5866     ;         +t814+t813+t812+t811+t810+t809+t808+t807+t806+t805+t804+t
5867     <         803+t802+t801+t800+t799+t798+t797+t796+t773+t771+t764+t75
5868     =         7+t752+t744+t742+t684+t683+t682)-3.4242190004576445d-1*t1
5869     >         21*t123*t126*t131*t136*t795+t738+t737+t736+t735+t734+t733
5870     ?         +t732+t731+t730+t728+t727-1.0272657001372934d+0*t121*t123
5871     @         *t125*t131*t231*t515*t714+t674+t672+t670+3.42421900045764
5872     1         45d-1*t121*t123*t125*t224*t421*t515-7.98984433440117d-1*t
5873     2         121*t125*t131*t216*t217*t421*t515-6.848438000915289d-1*t1
5874     3         21*t123*t126*t131*t215*t421*t515+3.4242190004576445d-1*t1
5875     4         21*t123*t125*t131*t231*t421*t514-1.7121095002288222d-1*t1
5876     5         21*t123*t125*t224*t225*t514+3.994922167200585d-1*t121*t12
5877     6         5*t131*t216*t217*t225*t514+3.4242190004576445d-1*t121*t12
5878     7         3*t126*t131*t215*t225*t514-1.7121095002288222d-1*t121*t12
5879     8         3*t125*t225*t231*t513-3.994922167200585d-1*t121*t125*t136
5880     9         *t216*t217*t513-3.4242190004576445d-1*t121*t123*t126*t136
5881     :         *t215*t513+3.4242190004576445d-1*t121*t123*t126*t131*t225
5882     ;         *t231*t502-3.4242190004576445d-1*t121*t123*t126*t136*t224
5883     <         *t502+7.98984433440117d-1*t121*t126*t131*t136*t216*t217*t
5884     =         502+1.0272657001372934d+0*t121*t123*t131*t132*t136*t215*t
5885     >         502-1.0272657001372934d+0*t121*t123*t131*t132*t225*t231*t
5886     ?         501-4.1090628005491736d+0*t121*t123*t131*t136*t215*t229*t
5887     @         501+1.0272657001372934d+0*t121*t123*t132*t136*t224*t501-2
5888     1         .396953300320351d+0*t121*t131*t132*t136*t216*t217*t501+6.
5889     2         848438000915289d-1*t121*t123*t125*t131*t277*t421*t444-3.4
5890     3         242190004576445d-1*t121*t123*t125*t225*t276*t444+6.848438
5891     4         000915289d-1*t121*t123*t126*t131*t225*t272*t444-3.4242190
5892     5         004576445d-1*t121*t123*t125*t225*t277*t443-6.848438000915
5893     6         289d-1*t121*t123*t126*t136*t272*t443+6.848438000915289d-1
5894     7         *t121*t123*t126*t131*t225*t277*t430-6.848438000915289d-1*
5895     8         t121*t123*t126*t136*t276*t430+2.0545314002745868d+0*t121*
5896     9         t123*t131*t132*t136*t272*t430+6.848438000915289d-1*t121*t
5897     :         123*t125*t231*t276*t277*t421-1.3696876001830577d+0*t121*t
5898     ;         123*t126*t131*t231*t272*t277*t421+1.3316407224001955d-1*t
5899     <         121*t125*t131*t217*t225*t277*t398-1.3316407224001955d-1*t
5900     =         121*t125*t136*t217*t276*t398+2.663281444800391d-1*t121*t1
5901     >         26*t131*t136*t217*t272*t398+6.658203612000978d-2*t121*t12
5902     ?         5*t131*t217*t225*t231*t398-6.658203612000978d-2*t121*t125
5903     @         *t136*t217*t224*t398+1.3316407224001955d-1*t121*t126*t131
5904     1         *t136*t215*t217*t398-2.79644551704041d+0*t121*t125*t131*t
5905     2         225*t277*t282*t396+2.79644551704041d+0*t121*t125*t136*t27
5906     3         6*t282*t396-5.59289103408082d+0*t121*t126*t131*t136*t272*
5907     4         t282*t396-1.398222758520205d+0*t121*t125*t131*t225*t231*t
5908     5         282*t396+1.398222758520205d+0*t121*t125*t136*t224*t282*t3
5909     6         96-2.79644551704041d+0*t121*t126*t131*t136*t215*t282*t396
5910     7         +7.98984433440117d-1*t121*t125*t216*t217*t225*t276*t277+6
5911     8         .848438000915289d-1*t121*t123*t126*t215*t225*t276*t277+6.
5912     9         848438000915289d-1*t121*t123*t126*t224*t225*t272*t277-1.5
5913     :         979688668802342d+0*t121*t126*t131*t216*t217*t225*t272*t27
5914     ;         7-2.0545314002745868d+0*t121*t123*t131*t132*t215*t225*t27
5915     <         2*t277+6.848438000915289d-1*t121*t123*t126*t225*t231*t272
5916     =         *t276+1.5979688668802342d+0*t121*t126*t136*t216*t217*t272
5917     >         *t276+2.0545314002745868d+0*t121*t123*t132*t136*t215*t272
5918     ?         *t276)+t726+t725+t724+7.420670230672731d-2*t124*t215*t516
5919     @         *t66+7.420670230672731d-2*t124*t232*t502*t66+1.4841340461
5920     1         345462d-1*t119*t232*t501*t66+1.4841340461345462d-1*t124*t
5921     2         272*t445*t66+1.4841340461345462d-1*t124*t278*t430*t66+2.9
5922     3         682680922690924d-1*t119*t215*t272*t278*t66+2.473556743557
5923     4         577d-2*t120*t516+1.4841340461345462d-1*t124*t272*t278)+7.
5924     5         420670230672731d-2*t124*t138*t66*t795+1.0d+0*t66*t794+t79
5925     6         3+t792+t717+4.947113487115154d-2*t120*t232*t518*t66*t716+
5926     7         t425*(-2.473556743557577d-2*t120*t232*t516*t66-2.47355674
5927     8         3557577d-2*t120*t278*t445*t66-7.420670230672731d-2*t124*t
5928     9         232*t272*t278*t66-t278*t446-2.473556743557577d-2*t120*t23
5929     :         2*t278)+1.4841340461345462d-1*t119*t138*t215*t502*t66+1.4
5930     ;         841340461345462d-1*t138*t215*t501*t66+2.9682680922690924d
5931     <         -1*t119*t138*t272*t430*t66+7.420670230672731d-2*t124*t138
5932     =         *t502+1.4841340461345462d-1*t119*t138*t501+1.0d+0*t500)*w
5933     >         ght+Amat3(iq,D3_RA_RB_RB)
5934            Amat3(iq,D3_RB_RB_RB) = (t212*(2.473556743557577d-2*t120*t66
5935     1         *(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t901+t
5936     2         900+t899-7.03516545785709d-1*t132*t133*t702*t713*t898+1.7
5937     3         587913644642725d-1*t132*t133*t409*t419*t898-5.86263788154
5938     4         7574d-2*t127*t132*t133*t230*t898+t897+t896+t895+t894+t893
5939     5         -5.862637881547574d-2*t127*t132*t133*t230*t892+t891+t890+
5940     6         t889+t888+t887+t886+t885+t884+t883+t882+t881+t880+t879+t8
5941     7         78+t877+t876+t875-1.172527576309515d-1*t133*t134*t229*t87
5942     8         4-3.5175827289285444d+0*t133*t134*t712*t873+1.75879136446
5943     9         42725d-1*t132*t133*t409*t419*t510*t783+t711+t710+t709+t68
5944     :         4+t683+t682-2.110549637357127d+0*t133*t229*t272*t409*t419
5945     ;         *t510-2.4623079102499817d+0*t132*t216*t226*t227*t409*t419
5946     <         *t510+7.03516545785709d-1*t127*t133*t229*t230*t272*t510+8
5947     =         .207693034166605d-1*t127*t132*t216*t226*t227*t230*t510+5.
5948     >         276374093392817d-1*t132*t133*t274*t409*t419*t506-1.758791
5949     ?         3644642725d-1*t127*t132*t133*t230*t274*t506+7.03516545785
5950     @         709d-1*t127*t133*t229*t230*t272*t506+8.207693034166605d-1
5951     1         *t127*t132*t216*t226*t227*t230*t506+1.7587913644642722d+0
5952     2         *t133*t134*t272*t418*t502+7.03516545785709d-1*t127*t133*t
5953     3         229*t230*t274*t502+1.641538606833321d+0*t134*t216*t226*t2
5954     4         27*t229*t502-3.5175827289285444d+0*t127*t133*t230*t274*t4
5955     5         18*t501-8.207693034166604d+0*t134*t216*t226*t227*t418*t50
5956     6         1-4.7878209365971874d+0*t127*t132*t226*t230*t274*t396*t41
5957     7         5-9.575641873194375d+0*t134*t226*t229*t272*t396*t415+1.36
5958     8         7948839027768d-1*t127*t132*t226*t227*t230*t274*t398+2.735
5959     9         897678055536d-1*t134*t226*t227*t229*t272*t398-6.566154427
5960     :         333284d+0*t127*t216*t226*t227*t229*t230*t272*t274)+1.7121
5961     ;         095002288222d-1*t121*t123*t125*t136*(t901+t900+t899+t897+
5962     <         t896+t895+t894+t893+t891+t890+t889+t888+t887+t886+t885+t8
5963     =         84+t883+t882+t881+t880+t879+t878+t877+t876+t875+t684+t683
5964     >         +t682)-3.4242190004576445d-1*t121*t123*t126*t131*t136*t87
5965     ?         4-4.1090628005491736d+0*t121*t123*t131*t136*t229*t873-1.0
5966     @         272657001372934d+0*t121*t123*t125*t131*t277**3*t714+t674+
5967     1         t672+t670+1.0272657001372934d+0*t121*t123*t125*t276*t421*
5968     2         t515-2.0545314002745868d+0*t121*t123*t126*t131*t272*t421*
5969     3         t515-2.396953300320351d+0*t121*t125*t131*t216*t217*t421*t
5970     4         515+1.0272657001372934d+0*t121*t123*t125*t131*t277*t421*t
5971     5         514-5.136328500686467d-1*t121*t123*t125*t225*t276*t514+1.
5972     6         0272657001372934d+0*t121*t123*t126*t131*t225*t272*t514+1.
5973     7         1984766501601755d+0*t121*t125*t131*t216*t217*t225*t514-5.
5974     8         136328500686467d-1*t121*t123*t125*t225*t277*t513-1.027265
5975     9         7001372934d+0*t121*t123*t126*t136*t272*t513-1.19847665016
5976     :         01755d+0*t121*t125*t136*t216*t217*t513+1.0272657001372934
5977     ;         d+0*t121*t123*t126*t131*t225*t277*t502-1.0272657001372934
5978     <         d+0*t121*t123*t126*t136*t276*t502+3.08179710041188d+0*t12
5979     =         1*t123*t131*t132*t136*t272*t502+2.396953300320351d+0*t121
5980     >         *t126*t131*t136*t216*t217*t502-3.08179710041188d+0*t121*t
5981     ?         123*t131*t132*t225*t277*t501+3.08179710041188d+0*t121*t12
5982     @         3*t132*t136*t276*t501-7.190859900961053d+0*t121*t131*t132
5983     1         *t136*t216*t217*t501+1.9974610836002932d-1*t121*t125*t131
5984     2         *t217*t225*t277*t398-1.9974610836002932d-1*t121*t125*t136
5985     3         *t217*t276*t398+3.9949221672005863d-1*t121*t126*t131*t136
5986     4         *t217*t272*t398-4.1946682755606146d+0*t121*t125*t131*t225
5987     5         *t277*t282*t396+4.1946682755606146d+0*t121*t125*t136*t276
5988     6         *t282*t396-8.389336551121229d+0*t121*t126*t131*t136*t272*
5989     7         t282*t396+2.0545314002745868d+0*t121*t123*t126*t225*t272*
5990     8         t276*t277+2.396953300320351d+0*t121*t125*t216*t217*t225*t
5991     9         276*t277-4.793906600640702d+0*t121*t126*t131*t216*t217*t2
5992     :         25*t272*t277+4.793906600640702d+0*t121*t126*t136*t216*t21
5993     ;         7*t272*t276)+2.2262010692018191d-1*t124*t272*t516*t66+2.2
5994     <         262010692018191d-1*t124*t278*t502*t66+4.4524021384036383d
5995     =         -1*t119*t278*t501*t66+7.420670230672731d-2*t120*t516+4.45
5996     >         24021384036383d-1*t124*t272*t278)+7.420670230672731d-2*t1
5997     ?         24*t138*t66*t874+1.4841340461345462d-1*t138*t66*t873+1.0d
5998     @         +0*t66*t872-2.4735567435575762d-2*rhob*t266**3*t867+t254*
5999     1         (-1.2367783717787881d-2*rhob*(-1.630682653048789d+0*gamma
6000     2         bb*t105*t110*t265**3*t866-2.7178044217479813d-1*gammabb*t
6001     3         105*t110*t261*(-1.4075311556007766d+1*t112*t262*t846*t865
6002     4         +t864+t863+t862+t861+t860+t859+t858+t857+t856+t855+t854+t
6003     5         853+t852+t851+9.37069921229161d+5*t111*t849*t850/t107**5.
6004     6         0d+0-7.028024409218707d+5*t111*t476*t485*t849+7.808916010
6005     7         243009d+4*t106*t111*t264*t849+4.78752093741761d-2*t112*t2
6006     8         62*t263*t848+1.0053793968576981d+0*t112*t262*t486*t847+1.
6007     9         1944679893212153d+1*t106*t111*t264*t845+9.754821912789926
6008     :         d+2*t106*t253*t262*t264*t473*t486-4.0563173399723773d+4*t
6009     ;         255*t262*t263*t475*t476*t485+8.692108585655094d+3*t111*t2
6010     <         53*t472*t476*t485+1.3521057799907926d+4*t106*t255*t262*t2
6011     =         63*t264*t475-2.787091975082837d+1*t106*t253*t262*t263*t26
6012     >         4*t474-1.6722551850497014d+2*t106*t255*t262*t263*t264*t47
6013     ?         2-2.8973695285516987d+3*t106*t111*t253*t264*t472)+2.71780
6014     @         44217479813d-1*gammabb*t105*t114*(t864+t863+t862+t861+t86
6015     1         0+t859+t858+t857+t856+t855+t854+t853+t852+t851)+8.8076995
6016     2         14924018d-2*gammabb*t110*t114*t256*t848+1.109770138880426
6017     3         4d+0*gammabb*t110*t114*t288*t847-1.035785462955064d+1*gam
6018     4         mabb*t110*t114*t263*t846+1.630682653048789d+0*gammabb*t10
6019     5         5*t260*t488*t489-3.8049261904471743d+0*gammabb*t110*t255*
6020     6         t256*t488*t489+1.630682653048789d+0*gammabb*t105*t110*t26
6021     7         5*t487*t488-8.153413265243944d-1*gammabb*t105*t260*t261*t
6022     8         487+1.9024630952235871d+0*gammabb*t110*t255*t256*t261*t48
6023     9         7-8.153413265243944d-1*gammabb*t105*t261*t265*t484-1.9024
6024     :         630952235871d+0*gammabb*t114*t255*t256*t484+3.17077182537
6025     ;         2647d-1*gammabb*t110*t256*t261*t265*t474-3.17077182537264
6026     <         7d-1*gammabb*t114*t256*t260*t474-6.658620833282555d+0*gam
6027     =         mabb*t110*t261*t265*t288*t473+6.658620833282555d+0*gammab
6028     >         b*t114*t260*t288*t473+3.8049261904471743d+0*gammabb*t255*
6029     ?         t256*t260*t261*t265)-3.710335115336365d-2*t490)-1.0d+0*rh
6030     @         ob*t845+4.947113487115154d-2*t120*t278**3*t66*t716+t425*(
6031     1         -7.420670230672731d-2*t124*t272*t518*t66-4.94711348711515
6032     2         4d-2*t120*t278*t516*t66-2.473556743557577d-2*t120*t518-t2
6033     3         78*t517)+4.4524021384036383d-1*t119*t138*t272*t502*t66+2.
6034     4         2262010692018191d-1*t124*t138*t502+4.4524021384036383d-1*
6035     5         t119*t138*t501+3.0d+0*t500+t492*(1.2367783717787881d-2*t4
6036     6         93-t266*t491+2.4735567435575762d-2*rhob*t266*t490)-3.0d+0
6037     7         *t472)*wght+Amat3(iq,D3_RB_RB_RB)
6038            Cmat3(iq,D3_RA_RA_GAA) = (t935+t934+t933+t159*(-1.2367783717
6039     1         787881d-2*rhoa*(-2.7178044217479813d-1*gammaaa*t166*t28*t
6040     2         33*(t907+t906+t905+t904+t903+t902+4.0215175874307907d+0*g
6041     3         ammaaa*t317*t330*t35-1.1490050249802264d-1*gammaaa*t168*t
6042     4         318*t35+5.794739057103396d+3*gammaaa*t279*t319*t320*t329-
6043     5         1.9315796857011325d+3*gammaaa*t169*t279*t29*t319+2.388935
6044     6         9786424305d+1*gammaaa*t169*t279*t29*t316-2.22967358006626
6045     7         84d+2*gammaaa*t158*t160*t168*t169*t29)+2.7178044217479813
6046     8         d-1*gammaaa*t28*t37*(t907+t906+t905+t904+t903+t902)-1.630
6047     9         682653048789d+0*gammaaa*t28*t280*t33*t333*t620+1.08712176
6048     :         86991926d+0*gammaaa*t170*t28*t33*t332*t522+1.268308730149
6049     ;         058d+0*gammaaa*t160*t161*t166*t33*t522-5.435608843495963d
6050     <         -1*gammaaa*t165*t166*t28*t522-1.268308730149058d+0*gammaa
6051     =         a*t160*t161*t37*t521-5.435608843495963d-1*gammaaa*t166*t1
6052     >         70*t28*t521+6.032276381146184d-1*gammaaa*t31*t317*t330*t3
6053     ?         7-1.0569239417908823d-1*t161*t318*t33*t37+2.2195402777608
6054     @         514d+0*t279*t317*t33*t37+2.7178044217479813d-1*t28*t328*t
6055     1         37-2.872512562450566d-2*gammaaa*t168*t31*t318*t37-1.26830
6056     2         8730149058d+0*t160*t161*t165*t37+5.435608843495963d-1*t28
6057     3         *t33*t332*t333+1.4772921749745757d-1*gammaaa*t279*t31*t33
6058     4         2*t333+5.435608843495963d-1*gammaaa*t28*t280*t33*t331*t33
6059     5         2-2.536617460298116d+0*gammaaa*t160*t161*t170*t280*t33*t3
6060     6         32+1.0871217686991926d+0*gammaaa*t165*t170*t28*t280*t332-
6061     7         2.7178044217479813d-1*t166*t28*t33*t331-7.386460874872879
6062     8         d-2*gammaaa*t166*t279*t31*t331+1.0569239417908823d-1*gamm
6063     9         aaa*t161*t166*t280*t318*t33-2.2195402777608514d+0*gammaaa
6064     :         *t166*t279*t280*t317*t33+1.268308730149058d+0*t160*t161*t
6065     ;         166*t170*t33-2.7178044217479813d-1*gammaaa*t166*t28*t280*
6066     <         t328+3.4470150749406775d-1*gammaaa*t160*t166*t168*t170*t3
6067     =         1+1.268308730149058d+0*gammaaa*t160*t161*t165*t166*t280-5
6068     >         .435608843495963d-1*t165*t166*t170*t28)-2.473556743557576
6069     ?         2d-2*t523)-2.4735567435575762d-2*rhoa*t281*t337*t621+t336
6070     @         *(2.4735567435575762d-2*rhoa*t171*t523-t281*t335))*wght+C
6071     1         mat3(iq,D3_RA_RA_GAA)
6072            Cmat3(iq,D3_RA_RA_GAB) = (t212*(2.473556743557577d-2*t120*t6
6073     1         6*(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t953+
6074     2         t952+t951+t950+t949+t948+t947+t946+t945+t944+t943+t942+7.
6075     3         03516545785709d-1*t121*t132*t282*t409*t411*t419+2.3450551
6076     4         526190297d+0*t121*t134*t282*t392*t418-2.34505515261903d-1
6077     5         *t121*t127*t132*t230*t282*t411-2.34505515261903d-1*t121*t
6078     6         127*t132*t230*t282*t405-4.69011030523806d-1*t121*t134*t22
6079     7         9*t282*t395+1.876044122095224d+0*t121*t127*t215*t222*t229
6080     8         *t230*t282+2.188718142444428d+0*t121*t127*t132*t216*t222*
6081     9         t227*t230+4.377436284888856d+0*t121*t134*t215*t216*t227*t
6082     :         229)+1.7121095002288222d-1*t121*t123*t125*t136*(t951+t950
6083     ;         +t949+t948+t947+t946+t945+t944+t943+t942)+t941+t940+t939+
6084     <         t938+t937+t936-1.0272657001372934d+0*t121*t123*t125*t131*
6085     =         t286*t422*t714+6.848438000915289d-1*t121*t123*t125*t131*t
6086     >         231*t421*t548-3.4242190004576445d-1*t121*t123*t125*t224*t
6087     ?         225*t548+7.98984433440117d-1*t121*t125*t131*t216*t217*t22
6088     @         5*t548+6.848438000915289d-1*t121*t123*t126*t131*t215*t225
6089     1         *t548-3.4242190004576445d-1*t121*t123*t125*t225*t231*t546
6090     2         -7.98984433440117d-1*t121*t125*t136*t216*t217*t546-6.8484
6091     3         38000915289d-1*t121*t123*t126*t136*t215*t546+1.1725275763
6092     4         09515d-1*t121*t129*t132*t282*t421*t422+6.848438000915289d
6093     5         -1*t123*t125*t131*t421*t422+3.4242190004576445d-1*t121*t1
6094     6         23*t125*t131*t286*t420*t421+6.848438000915289d-1*t121*t12
6095     7         3*t125*t224*t231*t286*t421-1.5979688668802342d+0*t121*t12
6096     8         5*t131*t216*t217*t231*t286*t421-1.3696876001830577d+0*t12
6097     9         1*t123*t126*t131*t215*t231*t286*t421-5.862637881547574d-2
6098     :         *t121*t129*t132*t225*t282*t420-3.4242190004576445d-1*t123
6099     ;         *t125*t131*t225*t420+3.517582728928545d-1*t121*t129*t136*
6100     <         t282*t392*t418-1.7121095002288222d-1*t121*t123*t125*t225*
6101     =         t286*t414+3.4242190004576445d-1*t123*t125*t136*t414+3.424
6102     >         2190004576445d-1*t121*t123*t126*t131*t225*t286*t395-1.172
6103     ?         527576309515d-1*t121*t129*t136*t229*t282*t395-6.848438000
6104     @         915289d-1*t123*t126*t131*t136*t395-1.0272657001372934d+0*
6105     1         t121*t123*t131*t132*t225*t286*t392+2.0545314002745868d+0*
6106     2         t123*t131*t132*t136*t392+7.98984433440117d-1*t121*t125*t2
6107     3         16*t217*t224*t225*t286+6.848438000915289d-1*t121*t123*t12
6108     4         6*t215*t224*t225*t286-1.5979688668802342d+0*t121*t126*t13
6109     5         1*t215*t216*t217*t225*t286+2.34505515261903d-1*t121*t129*
6110     6         t215*t225*t229*t231*t282+2.735897678055535d-1*t121*t129*t
6111     7         132*t216*t225*t227*t231-6.848438000915289d-1*t123*t125*t2
6112     8         24*t225*t231+1.5979688668802342d+0*t125*t131*t216*t217*t2
6113     9         25*t231+1.3696876001830577d+0*t123*t126*t131*t215*t225*t2
6114     :         31+5.47179535611107d-1*t121*t129*t136*t215*t216*t227*t229
6115     ;         -1.5979688668802342d+0*t125*t136*t216*t217*t224-1.3696876
6116     <         001830577d+0*t123*t126*t136*t215*t224+3.1959377337604683d
6117     =         +0*t126*t131*t136*t215*t216*t217)+1.4841340461345462d-1*t
6118     >         124*t215*t549*t66+7.420670230672731d-2*t124*t287*t395*t66
6119     ?         +1.4841340461345462d-1*t119*t287*t392*t66+4.9471134871151
6120     @         54d-2*t120*t549+1.4841340461345462d-1*t124*t215*t287)+4.9
6121     1         47113487115154d-2*t120*t287*t426*t66*t716+t425*(-4.947113
6122     2         487115154d-2*t120*t232*t549*t66-t287*t424))*wght+Cmat3(iq
6123     3         ,D3_RA_RA_GAB)
6124            Cmat3(iq,D3_RA_RA_GBB) = (t935+t934+t933)*wght+Cmat3(iq,D3_R
6125     1         A_RA_GBB)
6126            Cmat3(iq,D3_RA_RB_GAA) = t965+Cmat3(iq,D3_RA_RB_GAA)
6127            Cmat3(iq,D3_RA_RB_GAB) = (t212*(2.473556743557577d-2*t120*t6
6128     1         6*(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t981+
6129     2         t980+t979+t978+t977+t976+t975+t974+t973+t972+t971+t953+t9
6130     3         52+t946+t945+t932+t929+t926+t921-2.34505515261903d-1*t121
6131     4         *t127*t132*t230*t282*t435-4.69011030523806d-1*t121*t134*t
6132     5         229*t282*t430+7.03516545785709d-1*t121*t132*t222*t274*t28
6133     6         2*t409*t419+2.3450551526190297d+0*t121*t134*t215*t272*t28
6134     7         2*t418+9.38022061047612d-1*t121*t127*t215*t229*t230*t274*
6135     8         t282-2.34505515261903d-1*t121*t127*t132*t222*t230*t274*t2
6136     9         82+9.38022061047612d-1*t121*t127*t222*t229*t230*t272*t282
6137     :         )+1.7121095002288222d-1*t121*t123*t125*t136*(t979+t978+t9
6138     ;         77+t976+t975+t974+t973+t972+t971+t946+t945+t926+t921)+t97
6139     <         0+t969+t968+t967+t966+t941+t940+t939+t938+t937+t936+t918+
6140     =         t917+t916+t913+t910-1.0272657001372934d+0*t121*t123*t125*
6141     >         t131*t231*t277*t286*t714+3.4242190004576445d-1*t121*t123*
6142     ?         t125*t131*t231*t421*t562-1.7121095002288222d-1*t121*t123*
6143     @         t125*t224*t225*t562+3.994922167200585d-1*t121*t125*t131*t
6144     1         216*t217*t225*t562+3.4242190004576445d-1*t121*t123*t126*t
6145     2         131*t215*t225*t562-1.7121095002288222d-1*t121*t123*t125*t
6146     3         225*t231*t561-3.994922167200585d-1*t121*t125*t136*t216*t2
6147     4         17*t561-3.4242190004576445d-1*t121*t123*t126*t136*t215*t5
6148     5         61+3.4242190004576445d-1*t121*t123*t125*t131*t277*t421*t5
6149     6         48-1.7121095002288222d-1*t121*t123*t125*t225*t276*t548+3.
6150     7         4242190004576445d-1*t121*t123*t126*t131*t225*t272*t548+3.
6151     8         994922167200585d-1*t121*t125*t131*t216*t217*t225*t548-1.7
6152     9         121095002288222d-1*t121*t123*t125*t225*t277*t546-3.424219
6153     :         0004576445d-1*t121*t123*t126*t136*t272*t546-3.99492216720
6154     ;         0585d-1*t121*t125*t136*t216*t217*t546+3.4242190004576445d
6155     <         -1*t121*t123*t125*t131*t286*t421*t444-5.862637881547574d-
6156     =         2*t121*t129*t132*t225*t282*t444-3.4242190004576445d-1*t12
6157     >         3*t125*t131*t225*t444-1.7121095002288222d-1*t121*t123*t12
6158     ?         5*t225*t286*t443+3.4242190004576445d-1*t123*t125*t136*t44
6159     @         3+3.4242190004576445d-1*t121*t123*t126*t131*t225*t286*t43
6160     1         0-1.172527576309515d-1*t121*t129*t136*t229*t282*t430-6.84
6161     2         8438000915289d-1*t123*t126*t131*t136*t430+3.4242190004576
6162     3         445d-1*t121*t123*t125*t224*t277*t286*t421-7.9898443344011
6163     4         7d-1*t121*t125*t131*t216*t217*t277*t286*t421-6.8484380009
6164     5         15289d-1*t121*t123*t126*t131*t215*t277*t286*t421+3.424219
6165     6         0004576445d-1*t121*t123*t125*t231*t276*t286*t421-6.848438
6166     7         000915289d-1*t121*t123*t126*t131*t231*t272*t286*t421-7.98
6167     8         984433440117d-1*t121*t125*t131*t216*t217*t231*t286*t421+1
6168     9         .172527576309515d-1*t121*t129*t132*t231*t277*t282*t421+6.
6169     :         848438000915289d-1*t123*t125*t131*t231*t277*t421+3.517582
6170     ;         728928545d-1*t121*t129*t136*t215*t272*t282*t418+3.9949221
6171     <         67200585d-1*t121*t125*t216*t217*t225*t276*t286+3.42421900
6172     =         04576445d-1*t121*t123*t126*t215*t225*t276*t286+3.42421900
6173     >         04576445d-1*t121*t123*t126*t224*t225*t272*t286-7.98984433
6174     ?         440117d-1*t121*t126*t131*t216*t217*t225*t272*t286-1.02726
6175     @         57001372934d+0*t121*t123*t131*t132*t215*t225*t272*t286+3.
6176     1         994922167200585d-1*t121*t125*t216*t217*t224*t225*t286-7.9
6177     2         8984433440117d-1*t121*t126*t131*t215*t216*t217*t225*t286+
6178     3         1.172527576309515d-1*t121*t129*t215*t225*t229*t277*t282+1
6179     4         .172527576309515d-1*t121*t129*t225*t229*t231*t272*t282-3.
6180     5         4242190004576445d-1*t123*t125*t224*t225*t277+6.8484380009
6181     6         15289d-1*t123*t126*t131*t215*t225*t277-3.4242190004576445
6182     7         d-1*t123*t125*t225*t231*t276-6.848438000915289d-1*t123*t1
6183     8         26*t136*t215*t276+6.848438000915289d-1*t123*t126*t131*t22
6184     9         5*t231*t272-6.848438000915289d-1*t123*t126*t136*t224*t272
6185     :         +2.0545314002745868d+0*t123*t131*t132*t136*t215*t272)+7.4
6186     ;         20670230672731d-2*t124*t215*t563*t66+7.420670230672731d-2
6187     <         *t124*t272*t549*t66+7.420670230672731d-2*t124*t287*t430*t
6188     =         66+1.4841340461345462d-1*t119*t215*t272*t287*t66+2.473556
6189     >         743557577d-2*t120*t563+2.473556743557577d-2*t120*t549+7.4
6190     ?         20670230672731d-2*t124*t272*t287+7.420670230672731d-2*t12
6191     @         4*t215*t287)+4.947113487115154d-2*t120*t232*t278*t287*t66
6192     1         *t716+t425*(-2.473556743557577d-2*t120*t232*t563*t66-2.47
6193     2         3556743557577d-2*t120*t278*t549*t66-t287*t446))*wght+Cmat
6194     3         3(iq,D3_RA_RB_GAB)
6195            Cmat3(iq,D3_RA_RB_GBB) = t965+Cmat3(iq,D3_RA_RB_GBB)
6196            Cmat3(iq,D3_RB_RB_GAA) = (t990+t989+t988)*wght+Cmat3(iq,D3_R
6197     1         B_RB_GAA)
6198            Cmat3(iq,D3_RB_RB_GAB) = (t212*(2.473556743557577d-2*t120*t6
6199     1         6*(-1.7121095002288222d-1*t121*t123*t125*t131*t225*(t998+
6200     2         t997+t996+t995+t994+t993+t992+t991+t953+t952+t946+t945+7.
6201     3         03516545785709d-1*t121*t132*t282*t409*t419*t510-2.3450551
6202     4         5261903d-1*t121*t127*t132*t230*t282*t510-2.34505515261903
6203     5         d-1*t121*t127*t132*t230*t282*t506-4.69011030523806d-1*t12
6204     6         1*t134*t229*t282*t502+2.3450551526190297d+0*t121*t134*t28
6205     7         2*t418*t501+1.876044122095224d+0*t121*t127*t229*t230*t272
6206     8         *t274*t282+2.188718142444428d+0*t121*t127*t132*t216*t227*
6207     9         t230*t274+4.377436284888856d+0*t121*t134*t216*t227*t229*t
6208     :         272)+1.7121095002288222d-1*t121*t123*t125*t136*(t998+t997
6209     ;         +t996+t995+t994+t993+t992+t991+t946+t945)+t941+t940+t939+
6210     <         t938+t937+t936-1.0272657001372934d+0*t121*t123*t125*t131*
6211     =         t286*t515*t714+6.848438000915289d-1*t121*t123*t125*t131*t
6212     >         277*t421*t562-3.4242190004576445d-1*t121*t123*t125*t225*t
6213     ?         276*t562+6.848438000915289d-1*t121*t123*t126*t131*t225*t2
6214     @         72*t562+7.98984433440117d-1*t121*t125*t131*t216*t217*t225
6215     1         *t562-3.4242190004576445d-1*t121*t123*t125*t225*t277*t561
6216     2         -6.848438000915289d-1*t121*t123*t126*t136*t272*t561-7.989
6217     3         84433440117d-1*t121*t125*t136*t216*t217*t561+1.1725275763
6218     4         09515d-1*t121*t129*t132*t282*t421*t515+6.848438000915289d
6219     5         -1*t123*t125*t131*t421*t515+3.4242190004576445d-1*t121*t1
6220     6         23*t125*t131*t286*t421*t514-5.862637881547574d-2*t121*t12
6221     7         9*t132*t225*t282*t514-3.4242190004576445d-1*t123*t125*t13
6222     8         1*t225*t514-1.7121095002288222d-1*t121*t123*t125*t225*t28
6223     9         6*t513+3.4242190004576445d-1*t123*t125*t136*t513+3.424219
6224     :         0004576445d-1*t121*t123*t126*t131*t225*t286*t502-1.172527
6225     ;         576309515d-1*t121*t129*t136*t229*t282*t502-6.848438000915
6226     <         289d-1*t123*t126*t131*t136*t502+3.517582728928545d-1*t121
6227     =         *t129*t136*t282*t418*t501-1.0272657001372934d+0*t121*t123
6228     >         *t131*t132*t225*t286*t501+2.0545314002745868d+0*t123*t131
6229     ?         *t132*t136*t501+6.848438000915289d-1*t121*t123*t125*t276*
6230     @         t277*t286*t421-1.3696876001830577d+0*t121*t123*t126*t131*
6231     1         t272*t277*t286*t421-1.5979688668802342d+0*t121*t125*t131*
6232     2         t216*t217*t277*t286*t421+6.848438000915289d-1*t121*t123*t
6233     3         126*t225*t272*t276*t286+7.98984433440117d-1*t121*t125*t21
6234     4         6*t217*t225*t276*t286-1.5979688668802342d+0*t121*t126*t13
6235     5         1*t216*t217*t225*t272*t286+2.34505515261903d-1*t121*t129*
6236     6         t225*t229*t272*t277*t282-6.848438000915289d-1*t123*t125*t
6237     7         225*t276*t277+1.3696876001830577d+0*t123*t126*t131*t225*t
6238     8         272*t277+2.735897678055535d-1*t121*t129*t132*t216*t225*t2
6239     9         27*t277+1.5979688668802342d+0*t125*t131*t216*t217*t225*t2
6240     :         77-1.3696876001830577d+0*t123*t126*t136*t272*t276-1.59796
6241     ;         88668802342d+0*t125*t136*t216*t217*t276+5.47179535611107d
6242     <         -1*t121*t129*t136*t216*t227*t229*t272+3.1959377337604683d
6243     =         +0*t126*t131*t136*t216*t217*t272)+1.4841340461345462d-1*t
6244     >         124*t272*t563*t66+7.420670230672731d-2*t124*t287*t502*t66
6245     ?         +1.4841340461345462d-1*t119*t287*t501*t66+4.9471134871151
6246     @         54d-2*t120*t563+1.4841340461345462d-1*t124*t272*t287)+4.9
6247     1         47113487115154d-2*t120*t287*t518*t66*t716+t425*(-4.947113
6248     2         487115154d-2*t120*t278*t563*t66-t287*t517))*wght+Cmat3(iq
6249     3         ,D3_RB_RB_GAB)
6250            Cmat3(iq,D3_RB_RB_GBB) = (t254*(-1.2367783717787881d-2*rhob*
6251     1         (-2.7178044217479813d-1*gammabb*t105*t110*t261*(t999+4.02
6252     2         15175874307907d+0*gammabb*t112*t473*t486+5.79473905710339
6253     3         6d+3*gammabb*t288*t475*t476*t485-1.9315796857011325d+3*ga
6254     4         mmabb*t106*t264*t288*t475-1.1490050249802264d-1*gammabb*t
6255     5         112*t263*t474+2.3889359786424305d+1*gammabb*t106*t264*t28
6256     6         8*t472-2.2296735800662684d+2*gammabb*t106*t253*t255*t263*
6257     7         t264+t1004+t1003+t1002+t1001+t1000)+2.7178044217479813d-1
6258     8         *gammabb*t105*t114*(t999+t1004+t1003+t1002+t1001+t1000)-1
6259     9         .630682653048789d+0*gammabb*t105*t110*t289*t489*t866+1.08
6260     :         71217686991926d+0*gammabb*t105*t110*t265*t488*t568-5.4356
6261     ;         08843495963d-1*gammabb*t105*t260*t261*t568+1.268308730149
6262     <         058d+0*gammabb*t110*t255*t256*t261*t568-5.435608843495963
6263     =         d-1*gammabb*t105*t261*t265*t567-1.268308730149058d+0*gamm
6264     >         abb*t114*t255*t256*t567+1.4772921749745757d-1*gammabb*t10
6265     ?         8*t288*t488*t489+5.435608843495963d-1*t105*t110*t488*t489
6266     @         +5.435608843495963d-1*gammabb*t105*t110*t289*t487*t488+1.
6267     1         0871217686991926d+0*gammabb*t105*t260*t265*t289*t488-2.53
6268     2         6617460298116d+0*gammabb*t110*t255*t256*t265*t289*t488-7.
6269     3         386460874872879d-2*gammabb*t108*t261*t288*t487-2.71780442
6270     4         17479813d-1*t105*t110*t261*t487+6.032276381146184d-1*gamm
6271     5         abb*t108*t114*t473*t486-2.7178044217479813d-1*gammabb*t10
6272     6         5*t261*t289*t484+2.7178044217479813d-1*t105*t114*t484+1.0
6273     7         569239417908823d-1*gammabb*t110*t256*t261*t289*t474-2.872
6274     8         512562450566d-2*gammabb*t108*t114*t263*t474-1.05692394179
6275     9         08823d-1*t110*t114*t256*t474-2.2195402777608514d+0*gammab
6276     :         b*t110*t261*t288*t289*t473+2.2195402777608514d+0*t110*t11
6277     ;         4*t288*t473+1.268308730149058d+0*gammabb*t255*t256*t260*t
6278     <         261*t289+3.4470150749406775d-1*gammabb*t108*t255*t261*t26
6279     =         3*t265-5.435608843495963d-1*t105*t260*t261*t265+1.2683087
6280     >         30149058d+0*t110*t255*t256*t261*t265-1.268308730149058d+0
6281     ?         *t114*t255*t256*t260)-2.4735567435575762d-2*t569)+t990+t9
6282     @         89+t988-2.4735567435575762d-2*rhob*t290*t493*t867+t492*(2
6283     1         .4735567435575762d-2*rhob*t266*t569-t290*t491))*wght+Cmat
6284     2         3(iq,D3_RB_RB_GBB)
6285            Cmat3(iq,D3_RA_GAA_GAA) = (-2.4735567435575762d-2*rhoa*t171*
6286     1         t571*t621+t159*(-1.2367783717787881d-2*rhoa*(-1.630682653
6287     2         048789d+0*gammaaa*t170*t28*t33*t572*t620+9.36831281250572
6288     3         4d-2*gammaaa*t160*t166*t33*t35*t619-1.268308730149058d+0*
6289     4         gammaaa*t160*t161*t33*t332*t572+5.435608843495963d-1*gamm
6290     5         aaa*t165*t28*t332*t572+1.0871217686991926d+0*gammaaa*t28*
6291     6         t280*t33*t332*t522-5.435608843495963d-1*t166*t28*t33*t522
6292     7         -1.4772921749745757d-1*gammaaa*t166*t279*t31*t522+5.43560
6293     8         8843495963d-1*t28*t37*t521-5.435608843495963d-1*gammaaa*t
6294     9         166*t28*t280*t521-3.4470150749406775d-1*t160*t168*t31*t37
6295     :         -2.7178044217479813d-1*gammaaa*t166*t28*t33*(2.3889359786
6296     ;         424305d+1*t158*t169*t279*t29-6.894030149881355d-1*t160*t1
6297     <         68*t35)+8.02998241071919d-2*gammaaa*t170*t33*t330*t332*t3
6298     =         5-4.014991205359595d-2*gammaaa*t165*t166*t330*t35+1.08712
6299     >         17686991926d+0*t170*t28*t280*t33*t332+2.9545843499491514d
6300     ?         -1*gammaaa*t170*t279*t280*t31*t332+1.268308730149058d+0*t
6301     @         160*t161*t166*t280*t33+3.4470150749406775d-1*gammaaa*t160
6302     1         *t166*t168*t280*t31-1.4772921749745757d-1*t166*t170*t279*
6303     2         t31-5.435608843495963d-1*t165*t166*t28*t280)-1.2367783717
6304     3         787881d-2*t573)+t336*(1.2367783717787881d-2*rhoa*t171*t57
6305     4         3-t281*t524+1.2367783717787881d-2*rhoa*t281*t523)+t1022+t
6306     5         1021+t1005)*wght+Cmat3(iq,D3_RA_GAA_GAA)
6307            Cmat3(iq,D3_RA_GAA_GAB) = (t425*(-2.473556743557577d-2*t120*
6308     1         t284*t549*t66-t287*t537+t1032)+t1031+t1023)*wght+Cmat3(iq
6309     2         ,D3_RA_GAA_GAB)
6310            Cmat3(iq,D3_RA_GAA_GBB) = t1033+Cmat3(iq,D3_RA_GAA_GBB)
6311            Cmat3(iq,D3_RA_GAB_GAB) = (4.947113487115154d-2*t120*t232*t5
6312     1         82*t66*t716+t212*(2.473556743557577d-2*t120*t66*(-1.02726
6313     2         57001372934d+0*t121*t123*t125*t131*t231*t583*t714+8.02998
6314     3         2410719184d-2*t121*t131*t134*t215*t225*t415*t712+3.424219
6315     4         0004576445d-1*t121*t123*t125*t224*t421*t583-6.84843800091
6316     5         5289d-1*t121*t123*t126*t131*t215*t421*t583+6.848438000915
6317     6         289d-1*t121*t123*t125*t131*t286*t421*t548-1.1725275763095
6318     7         15d-1*t121*t129*t132*t225*t282*t548-6.848438000915289d-1*
6319     8         t123*t125*t131*t225*t548-3.4242190004576445d-1*t121*t123*
6320     9         t125*t225*t286*t546+6.848438000915289d-1*t123*t125*t136*t
6321     :         546+8.029982410719184d-2*t121*t131*t134*t231*t415*t418*t4
6322     ;         21+2.34505515261903d-1*t121*t129*t132*t231*t282*t286*t421
6323     <         +1.3696876001830577d+0*t123*t125*t131*t231*t286*t421-4.01
6324     =         4991205359592d-2*t121*t134*t224*t225*t415*t418+2.34505515
6325     >         261903d-1*t121*t129*t215*t225*t229*t282*t286-6.8484380009
6326     ?         15289d-1*t123*t125*t224*t225*t286+1.3696876001830577d+0*t
6327     @         123*t126*t131*t215*t225*t286-1.7121095002288222d-1*t121*t
6328     1         123*t125*t131*t225*(-4.69011030523806d-1*t127*t132*t222*t
6329     2         230*t282-9.38022061047612d-1*t134*t215*t229*t282+t1040)-2
6330     3         .34505515261903d-1*t129*t132*t225*t231*t282-4.69011030523
6331     4         806d-1*t129*t136*t215*t229*t282+t1039+t1038+t1037+t1036+t
6332     5         1035)+7.420670230672731d-2*t124*t215*t584*t66+t1034)+t425
6333     6         *(-2.473556743557577d-2*t120*t232*t584*t66-2.473556743557
6334     7         577d-2*t120*t287*t549*t66-t287*t550))*wght+Cmat3(iq,D3_RA
6335     8         _GAB_GAB)
6336            Cmat3(iq,D3_RA_GAB_GBB) = (t425*(-2.473556743557577d-2*t120*
6337     1         t287*t536*t66-t284*t550+t1032)+t1031+t1023)*wght+Cmat3(iq
6338     2         ,D3_RA_GAB_GBB)
6339            Cmat3(iq,D3_RA_GBB_GBB) = t1033+Cmat3(iq,D3_RA_GBB_GBB)
6340            Cmat3(iq,D3_RB_GAA_GAA) = t1052+Cmat3(iq,D3_RB_GAA_GAA)
6341            Cmat3(iq,D3_RB_GAA_GAB) = (t425*(-2.473556743557577d-2*t120*
6342     1         t284*t563*t66-t287*t557+t1055)+t1054+t1053)*wght+Cmat3(iq
6343     2         ,D3_RB_GAA_GAB)
6344            Cmat3(iq,D3_RB_GAA_GBB) = t1052+Cmat3(iq,D3_RB_GAA_GBB)
6345            Cmat3(iq,D3_RB_GAB_GAB) = (4.947113487115154d-2*t120*t278*t5
6346     1         82*t66*t716+t212*(2.473556743557577d-2*t120*t66*(-1.02726
6347     2         57001372934d+0*t121*t123*t125*t131*t277*t583*t714+8.02998
6348     3         2410719184d-2*t121*t131*t134*t225*t272*t415*t712+3.424219
6349     4         0004576445d-1*t121*t123*t125*t276*t421*t583-6.84843800091
6350     5         5289d-1*t121*t123*t126*t131*t272*t421*t583+6.848438000915
6351     6         289d-1*t121*t123*t125*t131*t286*t421*t562-1.1725275763095
6352     7         15d-1*t121*t129*t132*t225*t282*t562-6.848438000915289d-1*
6353     8         t123*t125*t131*t225*t562-3.4242190004576445d-1*t121*t123*
6354     9         t125*t225*t286*t561+6.848438000915289d-1*t123*t125*t136*t
6355     :         561+8.029982410719184d-2*t121*t131*t134*t277*t415*t418*t4
6356     ;         21+2.34505515261903d-1*t121*t129*t132*t277*t282*t286*t421
6357     <         +1.3696876001830577d+0*t123*t125*t131*t277*t286*t421-4.01
6358     =         4991205359592d-2*t121*t134*t225*t276*t415*t418+2.34505515
6359     >         261903d-1*t121*t129*t225*t229*t272*t282*t286-6.8484380009
6360     ?         15289d-1*t123*t125*t225*t276*t286+1.3696876001830577d+0*t
6361     @         123*t126*t131*t225*t272*t286-1.7121095002288222d-1*t121*t
6362     1         123*t125*t131*t225*(-4.69011030523806d-1*t127*t132*t230*t
6363     2         274*t282-9.38022061047612d-1*t134*t229*t272*t282+t1040)-2
6364     3         .34505515261903d-1*t129*t132*t225*t277*t282-4.69011030523
6365     4         806d-1*t129*t136*t229*t272*t282+t1039+t1038+t1037+t1036+t
6366     5         1035)+7.420670230672731d-2*t124*t272*t584*t66+t1034)+t425
6367     6         *(-2.473556743557577d-2*t120*t278*t584*t66-2.473556743557
6368     7         577d-2*t120*t287*t563*t66-t287*t564))*wght+Cmat3(iq,D3_RB
6369     8         _GAB_GAB)
6370            Cmat3(iq,D3_RB_GAB_GBB) = (t425*(-2.473556743557577d-2*t120*
6371     1         t287*t556*t66-t284*t564+t1055)+t1054+t1053)*wght+Cmat3(iq
6372     2         ,D3_RB_GAB_GBB)
6373            Cmat3(iq,D3_RB_GBB_GBB) = (-2.4735567435575762d-2*rhob*t266*
6374     1         t585*t867+t254*(-1.2367783717787881d-2*rhob*(-1.630682653
6375     2         048789d+0*gammabb*t105*t110*t265*t586*t866+9.368312812505
6376     3         724d-2*gammabb*t110*t112*t255*t261*t865+5.435608843495963
6377     4         d-1*gammabb*t105*t260*t488*t586-1.268308730149058d+0*gamm
6378     5         abb*t110*t255*t256*t488*t586+1.0871217686991926d+0*gammab
6379     6         b*t105*t110*t289*t488*t568-1.4772921749745757d-1*gammabb*
6380     7         t108*t261*t288*t568-5.435608843495963d-1*t105*t110*t261*t
6381     8         568-5.435608843495963d-1*gammabb*t105*t261*t289*t567+5.43
6382     9         5608843495963d-1*t105*t114*t567+8.02998241071919d-2*gamma
6383     :         bb*t110*t112*t265*t486*t488+2.9545843499491514d-1*gammabb
6384     ;         *t108*t265*t288*t289*t488+1.0871217686991926d+0*t105*t110
6385     <         *t265*t289*t488-4.014991205359595d-2*gammabb*t112*t260*t2
6386     =         61*t486+3.4470150749406775d-1*gammabb*t108*t255*t261*t263
6387     >         *t289-5.435608843495963d-1*t105*t260*t261*t289+1.26830873
6388     ?         0149058d+0*t110*t255*t256*t261*t289-2.7178044217479813d-1
6389     @         *gammabb*t105*t110*t261*(2.3889359786424305d+1*t106*t253*
6390     1         t264*t288-6.894030149881355d-1*t112*t255*t263)-1.47729217
6391     2         49745757d-1*t108*t261*t265*t288-3.4470150749406775d-1*t10
6392     3         8*t114*t255*t263)-1.2367783717787881d-2*t587)+t492*(1.236
6393     4         7783717787881d-2*rhob*t266*t587-t290*t570+1.2367783717787
6394     5         881d-2*rhob*t290*t569)+t1051+t1050+t1041)*wght+Cmat3(iq,D
6395     6         3_RB_GBB_GBB)
6396            Cmat3(iq,D3_GAA_GAA_GAA) = (-2.4735567435575762d-2*rhoa*t281
6397     1         **3*t621-1.2367783717787881d-2*rhoa*t159*(-1.630682653048
6398     2         789d+0*gammaaa*t28*t280**3*t33*t620+1.630682653048789d+0*
6399     3         t28*t33*t332*t572+4.431876524923727d-1*gammaaa*t279*t31*t
6400     4         332*t572+2.4089947232157571d-1*gammaaa*t280*t33*t330*t332
6401     5         *t35-1.2044973616078786d-1*t166*t33*t330*t35-4.4318765249
6402     6         23727d-1*t166*t279*t280*t31-3.2735882553616696d-2*gammaaa
6403     7         *t166*t169/t27**8.0d+0)+3.710335115336365d-2*rhoa*t281*t3
6404     8         36*t573+t1060+t1059+t1056)*wght+Cmat3(iq,D3_GAA_GAA_GAA)
6405            Cmat3(iq,D3_GAA_GAA_GAB) = t1064+Cmat3(iq,D3_GAA_GAA_GAB)
6406            Cmat3(iq,D3_GAA_GAA_GBB) = t1065+Cmat3(iq,D3_GAA_GAA_GBB)
6407            Cmat3(iq,D3_GAA_GAB_GAB) = (4.947113487115154d-2*t120*t284*t
6408     1         582*t66*t716+t425*(-2.473556743557577d-2*t120*t284*t584*t
6409     2         66-4.947113487115154d-2*t120*t287*t581*t66)+2.47355674355
6410     3         7577d-2*t1066*t120*t212*t66)*wght+Cmat3(iq,D3_GAA_GAB_GAB
6411     4         )
6412            Cmat3(iq,D3_GAA_GAB_GBB) = t1064+Cmat3(iq,D3_GAA_GAB_GBB)
6413            Cmat3(iq,D3_GAA_GBB_GBB) = t1065+Cmat3(iq,D3_GAA_GBB_GBB)
6414            Cmat3(iq,D3_GAB_GAB_GAB) = 4.947113487115154d-2*t120*t287**3
6415     1         *t66*t716*wght+2.473556743557577d-2*t120*t212*t66*(-1.027
6416     2         2657001372934d+0*t121*t123*t125*t131*t286**3*t714+3.51758
6417     3         2728928545d-1*t121*t129*t132*t282*t421*t583+2.05453140027
6418     4         45868d+0*t123*t125*t131*t421*t583+2.4089947232157555d-1*t
6419     5         121*t131*t134*t286*t415*t418*t421-2.4089947232157555d-1*t
6420     6         131*t134*t225*t415*t418-7.03516545785709d-1*t129*t132*t22
6421     7         5*t282*t286-4.1244627516187965d-2*t1057*t1058*t121*t225*t
6422     8         230)*wght-7.420670230672731d-2*t120*t287*t425*t584*t66*wg
6423     9         ht+Cmat3(iq,D3_GAB_GAB_GAB)
6424            Cmat3(iq,D3_GAB_GAB_GBB) = t425*(-2.473556743557577d-2*t120*
6425     1         t284*t584*t66*wght-4.947113487115154d-2*t120*t287*t581*t6
6426     2         6*wght)+4.947113487115154d-2*t120*t284*t582*t66*t716*wght
6427     3         +2.473556743557577d-2*t1066*t120*t212*t66*wght+Cmat3(iq,D
6428     4         3_GAB_GAB_GBB)
6429            Cmat3(iq,D3_GAB_GBB_GBB) = t425*(-4.947113487115154d-2*t120*
6430     1         t284*t581*t66*wght-2.473556743557577d-2*t120*t287*t579*t6
6431     2         6*wght)+4.947113487115154d-2*t120*t287*t574*t66*t716*wght
6432     3         +2.473556743557577d-2*t1063*t120*t212*t66*wght+Cmat3(iq,D
6433     4         3_GAB_GBB_GBB)
6434            Cmat3(iq,D3_GBB_GBB_GBB) = (-2.4735567435575762d-2*rhob*t290
6435     1         **3*t867-1.2367783717787881d-2*rhob*t254*(-1.630682653048
6436     2         789d+0*gammabb*t105*t110*t289**3*t866+4.431876524923727d-
6437     3         1*gammabb*t108*t288*t488*t586+1.630682653048789d+0*t105*t
6438     4         110*t488*t586+2.4089947232157571d-1*gammabb*t110*t112*t28
6439     5         9*t486*t488-1.2044973616078786d-1*t110*t112*t261*t486-4.4
6440     6         31876524923727d-1*t108*t261*t288*t289-3.2735882553616696d
6441     7         -2*gammabb*t261*t264/t104**8.0d+0)+3.710335115336365d-2*r
6442     8         hob*t290*t492*t587+t1060+t1059+t1056)*wght+Cmat3(iq,D3_GB
6443     9         B_GBB_GBB)
6444          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
6445            fnc(iq) = fnc(iq)
6446            Amat(iq,D1_RA) = Amat(iq,D1_RA)
6447            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)
6448            Amat2(iq,D2_RA_RA) = Amat2(iq,D2_RA_RA)
6449            Cmat2(iq,D2_RA_GAA) = Cmat2(iq,D2_RA_GAA)
6450            Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA)
6451            Amat3(iq,D3_RA_RA_RA) = Amat3(iq,D3_RA_RA_RA)
6452            Cmat3(iq,D3_RA_RA_GAA) = Cmat3(iq,D3_RA_RA_GAA)
6453            Cmat3(iq,D3_RA_GAA_GAA) = Cmat3(iq,D3_RA_GAA_GAA)
6454            Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA)
6455          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
6456            fnc(iq) = fnc(iq)
6457            Amat(iq,D1_RB) = Amat(iq,D1_RB)
6458            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)
6459            Amat2(iq,D2_RB_RB) = Amat2(iq,D2_RB_RB)
6460            Cmat2(iq,D2_RB_GBB) = Cmat2(iq,D2_RB_GBB)
6461            Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB)
6462            Amat3(iq,D3_RB_RB_RB) = Amat3(iq,D3_RB_RB_RB)
6463            Cmat3(iq,D3_RB_RB_GBB) = Cmat3(iq,D3_RB_RB_GBB)
6464            Cmat3(iq,D3_RB_GBB_GBB) = Cmat3(iq,D3_RB_GBB_GBB)
6465            Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB)
6466          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
6467        endif ! ipol.eq.1
6468      enddo ! iq
6469      end
6470C> @}
6471