1C> \ingroup nwxc
2C> @{
3C>
4C> \file nwxcm_x_wpbe.F
5C> The nwxcm_x_wpbe functional
6C>
7C> @}
8C>
9C> \ingroup nwxc_priv
10C> @{
11C>
12C> \brief Evaluate the nwxcm_x_wpbe functional [1]
13C>
14C> \f{eqnarray*}{
15C>   {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\
16C>   {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\
17C>   {\it t_3} &=& {{1}\over{\rho_\alpha^4}}\\\\
18C>   {\it t_4} &=& \sqrt{\sigma_{\alpha\alpha}}\\\\
19C>   {\it t_5} &=& {\it t_4}^3\\\\
20C>   {\it t_6} &=& {{1}\over{\rho_\alpha^{{{16}\over{3}}}}}\\\\
21C>   {\it t_7} &=& \sigma_{\alpha\alpha}^2\\\\
22C>   {\it t_8} &=& {{1}\over{\rho_\alpha^{{{20}\over{3}}}}}\\\\
23C>   {\it t_9} &=& {\it t_4}^5\\\\
24C>   {\it t_{10}} &=& {{1}\over{\rho_\alpha^8}}\\\\
25C>   {\it t_{11}} &=& \sigma_{\alpha\alpha}^3\\\\
26C>   {\it t_{12}} &=& {{1}\over{\rho_\alpha^{{{28}\over{3}}}}}\\\\
27C>   {\it t_{13}} &=& {\it t_4}^7\\\\
28C>   {\it t_{14}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{12}}
29C>    \,{\it t_{13}}-4.327677396975467 \times 10^{-7}\,{\it t_{10}}
30C>    \,{\it t_{11}}+5.3020963068324 \times 10^{-6}\,{\it t_8}\,{
31C>    \it t_9}-4.342399100269002 \times 10^{-5}\,{\it t_6}\,{\it t_7}
32C>    +1.800551313354082 \times 10^{-4}\,{\it t_3}\,{\it t_5}
33C>    +2.631878392200375 \times 10^{-4}\,{\it t_2}\,
34C>    \sigma_{\alpha\alpha}\\\\
35C>   {\it t_{15}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
36C>    \,{\it t_4}^9}\over{\rho_\alpha^{12}}}
37C>    -{{5.649671283776346 \times 10^{-9}\,
38C>    \sigma_{\alpha\alpha}^4}\over{\rho_\alpha^{{{32}\over{3}}}}}
39C>    +1.7578986477855 \times 10^{-7}\,{\it t_{12}}\,{\it t_{13}}
40C>    -2.719683267627703 \times 10^{-6}\,{\it t_{10}}\,{\it t_{11}}
41C>    +5.955909787676884 \times 10^{-5}\,{\it t_8}\,{\it t_9}
42C>    -0.001383706469760652\,{\it t_6}\,{\it t_7}
43C>    +0.02342799068769956\,{\it t_3}\,{\it t_5}-0.2053293313026446
44C>    \,{\it t_2}\,\sigma_{\alpha\alpha}+{{0.6841322473346062\,{
45C>    \it t_4}}\over{{\it t_1}}}+1.0}}\\\\
46C>   {\it t_{16}} &=& 0.01645530784602056\,{\it t_2}\,
47C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}\\\\
48C>   {\it t_{17}} &=& {\it t_{16}}+0.60965\\\\
49C>   {\it t_{18}} &=& 0.06934448603031025\,{\it t_2}\,
50C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}
51C>    +{{0.005136628594837796\,{\it t_2}\,
52C>    \sigma_{\alpha\alpha}}\over{0.00411382696150514\,{\it t_2}
53C>    \,\sigma_{\alpha\alpha}+1.0}}+1.0\\\\
54C>   {\it t_{19}} &=& {\it t_{17}}^{3.5}\\\\
55C>   {\it t_{20}} &=& {\it t_{16}}+0.757211\\\\
56C>   {\it t_{21}} &=& {\it param}\left(1\right)\\\\
57C>   {\it t_{22}} &=& {{1}\over{\rho_\alpha^{{{1}\over{3}}}}}\\\\
58C>   {\it t_{23}} &=& {\it t_{16}}+0.06582123138408225\,\left({
59C>    \it t_{21}}\,{\it t_{22}}\right)^{2.0}+0.60965\\\\
60C>   {\it t_{24}} &=& {{1}\over{\sqrt{{\it t_{23}}}}}\\\\
61C>   {\it t_{25}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{22}}
62C>    \,{\it t_{24}}+1.0\\\\
63C>   {\it t_{26}} &=& {\it t_{23}}\,{\it t_{25}}\\\\
64C>   {\it t_{27}} &=& 0.2565564877060844\,{\it t_{21}}\,{
65C>    \it t_{22}}\\\\
66C>   {\it t_{28}} &=& {\it t_{21}}^2\\\\
67C>   {\it t_{29}} &=& {{0.06582123138408225\,{\it t_{28}}}
68C>    \over{\rho_\alpha^{{{2}\over{3}}}}}\\\\
69C>   {\it t_{30}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}}\\\\
70C>   {\it t_{31}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}+0.757211}\\\\
71C>   {\it t_{32}} &=& {{1}\over{{\it t_{31}}+{\it t_{30}}}}\\\\
72C>   {\it t_{33}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}+0.60965}\\\\
73C>   {\it t_{34}} &=& {{1}\over{{\it t_{33}}+{\it t_{27}}}}\\\\
74C>   {\it t_{35}} &=& \rho_\beta^{{{4}\over{3}}}\\\\
75C>   {\it t_{36}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\
76C>   {\it t_{37}} &=& {{1}\over{\rho_\beta^4}}\\\\
77C>   {\it t_{38}} &=& \sqrt{\sigma_{\beta\beta}}\\\\
78C>   {\it t_{39}} &=& {\it t_{38}}^3\\\\
79C>   {\it t_{40}} &=& {{1}\over{\rho_\beta^{{{16}\over{3}}}}}\\\\
80C>   {\it t_{41}} &=& \sigma_{\beta\beta}^2\\\\
81C>   {\it t_{42}} &=& {{1}\over{\rho_\beta^{{{20}\over{3}}}}}\\\\
82C>   {\it t_{43}} &=& {\it t_{38}}^5\\\\
83C>   {\it t_{44}} &=& {{1}\over{\rho_\beta^8}}\\\\
84C>   {\it t_{45}} &=& \sigma_{\beta\beta}^3\\\\
85C>   {\it t_{46}} &=& {{1}\over{\rho_\beta^{{{28}\over{3}}}}}\\\\
86C>   {\it t_{47}} &=& {\it t_{38}}^7\\\\
87C>   {\it t_{48}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{46}}
88C>    \,{\it t_{47}}-4.327677396975467 \times 10^{-7}\,{\it t_{44}}
89C>    \,{\it t_{45}}+5.3020963068324 \times 10^{-6}\,{\it t_{42}}
90C>    \,{\it t_{43}}-4.342399100269002 \times 10^{-5}\,{\it t_{40}}
91C>    \,{\it t_{41}}+1.800551313354082 \times 10^{-4}\,{\it t_{37}}
92C>    \,{\it t_{39}}+2.631878392200375 \times 10^{-4}\,{\it t_{36}}
93C>    \,\sigma_{\beta\beta}\\\\
94C>   {\it t_{49}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
95C>    \,{\it t_{38}}^9}\over{\rho_\beta^{12}}}
96C>    -{{5.649671283776346 \times 10^{-9}\,
97C>    \sigma_{\beta\beta}^4}\over{\rho_\beta^{{{32}\over{3}}}}}
98C>    +1.7578986477855 \times 10^{-7}\,{\it t_{46}}\,{\it t_{47}}
99C>    -2.719683267627703 \times 10^{-6}\,{\it t_{44}}\,{\it t_{45}}
100C>    +5.955909787676884 \times 10^{-5}\,{\it t_{42}}\,{\it t_{43}}
101C>    -0.001383706469760652\,{\it t_{40}}\,{\it t_{41}}
102C>    +0.02342799068769956\,{\it t_{37}}\,{\it t_{39}}
103C>    -0.2053293313026446\,{\it t_{36}}\,\sigma_{\beta\beta}
104C>    +{{0.6841322473346062\,{\it t_{38}}}\over{{\it t_{35}}}}
105C>    +1.0}}\\\\
106C>   {\it t_{50}} &=& 0.01645530784602056\,{\it t_{36}}\,
107C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}\\\\
108C>   {\it t_{51}} &=& {\it t_{50}}+0.60965\\\\
109C>   {\it t_{52}} &=& 0.06934448603031025\,{\it t_{36}}\,
110C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}
111C>    +{{0.005136628594837796\,{\it t_{36}}\,
112C>    \sigma_{\beta\beta}}\over{0.00411382696150514\,{\it t_{36}}
113C>    \,\sigma_{\beta\beta}+1.0}}+1.0\\\\
114C>   {\it t_{53}} &=& {\it t_{51}}^{3.5}\\\\
115C>   {\it t_{54}} &=& {\it t_{50}}+0.757211\\\\
116C>   {\it t_{55}} &=& {{1}\over{\rho_\beta^{{{1}\over{3}}}}}\\\\
117C>   {\it t_{56}} &=& {\it t_{50}}+0.06582123138408225\,\left({
118C>    \it t_{21}}\,{\it t_{55}}\right)^{2.0}+0.60965\\\\
119C>   {\it t_{57}} &=& {{1}\over{\sqrt{{\it t_{56}}}}}\\\\
120C>   {\it t_{58}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{55}}
121C>    \,{\it t_{57}}+1.0\\\\
122C>   {\it t_{59}} &=& {\it t_{56}}\,{\it t_{58}}\\\\
123C>   {\it t_{60}} &=& 0.2565564877060844\,{\it t_{21}}\,{
124C>    \it t_{55}}\\\\
125C>   {\it t_{61}} &=& {{0.06582123138408225\,{\it t_{28}}}
126C>    \over{\rho_\beta^{{{2}\over{3}}}}}\\\\
127C>   {\it t_{62}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}}\\\\
128C>   {\it t_{63}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}+0.757211}\\\\
129C>   {\it t_{64}} &=& {{1}\over{{\it t_{63}}+{\it t_{62}}}}\\\\
130C>   {\it t_{65}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}+0.60965}\\\\
131C>   {\it t_{66}} &=& {{1}\over{{\it t_{65}}+{\it t_{60}}}}\\\\
132C>   {\it t_{67}} &=& \rho_s^{{{4}\over{3}}}\\\\
133C>   {\it t_{68}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\
134C>   {\it t_{69}} &=& {{1}\over{\rho_s^4}}\\\\
135C>   {\it t_{70}} &=& \sqrt{\sigma_{ss}}\\\\
136C>   {\it t_{71}} &=& {\it t_{70}}^3\\\\
137C>   {\it t_{72}} &=& {{1}\over{\rho_s^{{{16}\over{3}}}}}\\\\
138C>   {\it t_{73}} &=& \sigma_{ss}^2\\\\
139C>   {\it t_{74}} &=& {{1}\over{\rho_s^{{{20}\over{3}}}}}\\\\
140C>   {\it t_{75}} &=& {\it t_{70}}^5\\\\
141C>   {\it t_{76}} &=& {{1}\over{\rho_s^8}}\\\\
142C>   {\it t_{77}} &=& \sigma_{ss}^3\\\\
143C>   {\it t_{78}} &=& {{1}\over{\rho_s^{{{28}\over{3}}}}}\\\\
144C>   {\it t_{79}} &=& {\it t_{70}}^7\\\\
145C>   {\it t_{80}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{78}}
146C>    \,{\it t_{79}}-4.327677396975467 \times 10^{-7}\,{\it t_{76}}
147C>    \,{\it t_{77}}+5.3020963068324 \times 10^{-6}\,{\it t_{74}}
148C>    \,{\it t_{75}}-4.342399100269002 \times 10^{-5}\,{\it t_{72}}
149C>    \,{\it t_{73}}+1.800551313354082 \times 10^{-4}\,{\it t_{69}}
150C>    \,{\it t_{71}}+2.631878392200375 \times 10^{-4}\,{\it t_{68}}
151C>    \,\sigma_{ss}\\\\
152C>   {\it t_{81}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
153C>    \,{\it t_{70}}^9}\over{\rho_s^{12}}}
154C>    -{{5.649671283776346 \times 10^{-9}\,\sigma_{ss}^4}
155C>    \over{\rho_s^{{{32}\over{3}}}}}+1.7578986477855 \times 10^{-7}
156C>    \,{\it t_{78}}\,{\it t_{79}}-2.719683267627703 \times 10^{-6}
157C>    \,{\it t_{76}}\,{\it t_{77}}+5.955909787676884 \times 10^{-5}
158C>    \,{\it t_{74}}\,{\it t_{75}}-0.001383706469760652\,{
159C>    \it t_{72}}\,{\it t_{73}}+0.02342799068769956\,{\it t_{69}}
160C>    \,{\it t_{71}}-0.2053293313026446\,{\it t_{68}}\,\sigma_{ss}
161C>    +{{0.6841322473346062\,{\it t_{70}}}\over{{\it t_{67}}}}
162C>    +1.0}}\\\\
163C>   {\it t_{82}} &=& 0.01645530784602056\,{\it t_{68}}\,\sigma_{ss}
164C>    \,{\it t_{80}}\,{\it t_{81}}\\\\
165C>   {\it t_{83}} &=& {\it t_{82}}+0.60965\\\\
166C>   {\it t_{84}} &=& 0.06934448603031025\,{\it t_{68}}\,\sigma_{ss}
167C>    \,{\it t_{80}}\,{\it t_{81}}+{{0.005136628594837796\,{
168C>    \it t_{68}}\,\sigma_{ss}}\over{0.00411382696150514\,{
169C>    \it t_{68}}\,\sigma_{ss}+1.0}}+1.0\\\\
170C>   {\it t_{85}} &=& {\it t_{83}}^{3.5}\\\\
171C>   {\it t_{86}} &=& {\it t_{82}}+0.757211\\\\
172C>   {\it t_{87}} &=& {{1}\over{\rho_s^{{{1}\over{3}}}}}\\\\
173C>   {\it t_{88}} &=& {\it t_{82}}+0.06582123138408225\,\left({
174C>    \it t_{21}}\,{\it t_{87}}\right)^{2.0}+0.60965\\\\
175C>   {\it t_{89}} &=& {{1}\over{\sqrt{{\it t_{88}}}}}\\\\
176C>   {\it t_{90}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{87}}
177C>    \,{\it t_{89}}+1.0\\\\
178C>   {\it t_{91}} &=& {\it t_{88}}\,{\it t_{90}}\\\\
179C>   {\it t_{92}} &=& 0.2565564877060844\,{\it t_{21}}\,{
180C>    \it t_{87}}\\\\
181C>   {\it t_{93}} &=& {{0.06582123138408225\,{\it t_{28}}}
182C>    \over{\rho_s^{{{2}\over{3}}}}}\\\\
183C>   {\it t_{94}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}}\\\\
184C>   {\it t_{95}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}+0.757211}\\\\
185C>   {\it t_{96}} &=& {{1}\over{{\it t_{95}}+{\it t_{94}}}}\\\\
186C>   {\it t_{97}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}+0.60965}\\\\
187C>   {\it t_{98}} &=& {{1}\over{{\it t_{97}}+{\it t_{92}}}}\\\\
188C>   f &=& -0.9305257363491\,{\it t_{35}}\,\left(-2.0\,{\it t_{54}}
189C>    \,\log \left({{0.1475609999999999\,{\it t_{66}}}\over{{
190C>    \it t_{63}}+{\it t_{65}}}}+1.0\right)+0.03291061569204112\,{
191C>    \it t_{36}}\,\sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}
192C>    \,\log \left(1.0-{{0.60965\,{\it t_{66}}}\over{{\it t_{65}}
193C>    +{\it t_{62}}}}\right)+0.757211\,\left({{{\it t_{54}}\,{
194C>    \it t_{64}}}\over{{\it t_{63}}+{\it t_{60}}}}
195C>    +{{0.01645530784602056\,{\it t_{36}}\,\sigma_{\beta\beta}\,{
196C>    \it t_{48}}\,{\it t_{49}}\,{\it t_{64}}}\over{{\it t_{62}}+{
197C>    \it t_{60}}}}\right)+{{0.05273288888888888\,{\it t_{52}}
198C>    \,\left(0.1282782438530422\,{\it t_{21}}\,{\it t_{55}}\,{
199C>    \it t_{57}}+1.0\right)}\over{{\it t_{59}}^{2.0}}}
200C>    +{{0.04727288888888889}\over{{\it t_{56}}\,{\it t_{58}}}}
201C>    -{{0.8888888888888888\,\left(-2.4\,{\it t_{53}}\,
202C>    \left(0.1282782438530422\,\sqrt{{\it t_{36}}\,
203C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}}-\sqrt{{
204C>    \it t_{54}}}\right)-1.417963080724413\,{\it t_{53}}-0.9086532
205C>    \,{\it t_{51}}^{3.0}+0.02836373333333333\,{\it t_{51}}^{2.0}
206C>    +0.0474596\,{\it t_{51}}\,{\it t_{52}}\right)\,
207C>    \left(0.02468296176903084\,\left({\it t_{21}}\,{\it t_{55}}
208C>    \,{\it t_{57}}\right)^{2.0}+0.2886260486693449\,{\it t_{21}}
209C>    \,{\it t_{55}}\,{\it t_{57}}+1.0\right)}\over{{
210C>    \it t_{59}}^{3.0}}}-1.0\right)-0.9305257363491\,{\it t_1}
211C>    \,\left(-2.0\,{\it t_{20}}\,\log \left({{0.1475609999999999
212C>    \,{\it t_{34}}}\over{{\it t_{31}}+{\it t_{33}}}}+1.0\right)
213C>    +0.03291061569204112\,{\it t_2}\,\sigma_{\alpha\alpha}\,{
214C>    \it t_{14}}\,{\it t_{15}}\,\log \left(1.0-{{0.60965\,{
215C>    \it t_{34}}}\over{{\it t_{33}}+{\it t_{30}}}}\right)+0.757211
216C>    \,\left({{{\it t_{20}}\,{\it t_{32}}}\over{{\it t_{31}}+{
217C>    \it t_{27}}}}+{{0.01645530784602056\,{\it t_2}\,
218C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}\,{
219C>    \it t_{32}}}\over{{\it t_{30}}+{\it t_{27}}}}\right)
220C>    +{{0.05273288888888888\,{\it t_{18}}\,\left(0.1282782438530422
221C>    \,{\it t_{21}}\,{\it t_{22}}\,{\it t_{24}}+1.0\right)}
222C>    \over{{\it t_{26}}^{2.0}}}+{{0.04727288888888889}\over{{
223C>    \it t_{23}}\,{\it t_{25}}}}-{{0.8888888888888888\,\left(-2.4
224C>    \,{\it t_{19}}\,\left(0.1282782438530422\,\sqrt{{\it t_2}
225C>    \,\sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}}-\sqrt{{
226C>    \it t_{20}}}\right)-1.417963080724413\,{\it t_{19}}-0.9086532
227C>    \,{\it t_{17}}^{3.0}+0.02836373333333333\,{\it t_{17}}^{2.0}
228C>    +0.0474596\,{\it t_{17}}\,{\it t_{18}}\right)\,
229C>    \left(0.02468296176903084\,\left({\it t_{21}}\,{\it t_{22}}
230C>    \,{\it t_{24}}\right)^{2.0}+0.2886260486693449\,{\it t_{21}}
231C>    \,{\it t_{22}}\,{\it t_{24}}+1.0\right)}\over{{
232C>    \it t_{26}}^{3.0}}}-1.0\right)\\\\
233C>   g &=& 0\\\\
234C>   G &=& -0.9305257363491\,{\it t_{67}}\,\left(-2.0\,{\it t_{86}}
235C>    \,\log \left({{0.1475609999999999\,{\it t_{98}}}\over{{
236C>    \it t_{95}}+{\it t_{97}}}}+1.0\right)+0.03291061569204112\,{
237C>    \it t_{68}}\,\sigma_{ss}\,{\it t_{80}}\,{\it t_{81}}
238C>    \,\log \left(1.0-{{0.60965\,{\it t_{98}}}\over{{\it t_{97}}
239C>    +{\it t_{94}}}}\right)+0.757211\,\left({{{\it t_{86}}\,{
240C>    \it t_{96}}}\over{{\it t_{95}}+{\it t_{92}}}}
241C>    +{{0.01645530784602056\,{\it t_{68}}\,\sigma_{ss}\,{
242C>    \it t_{80}}\,{\it t_{81}}\,{\it t_{96}}}\over{{\it t_{94}}+{
243C>    \it t_{92}}}}\right)+{{0.05273288888888888\,{\it t_{84}}
244C>    \,\left(0.1282782438530422\,{\it t_{21}}\,{\it t_{87}}\,{
245C>    \it t_{89}}+1.0\right)}\over{{\it t_{91}}^{2.0}}}
246C>    +{{0.04727288888888889}\over{{\it t_{88}}\,{\it t_{90}}}}
247C>    -{{0.8888888888888888\,\left(-2.4\,{\it t_{85}}\,
248C>    \left(0.1282782438530422\,\sqrt{{\it t_{68}}\,\sigma_{ss}\,{
249C>    \it t_{80}}\,{\it t_{81}}}-\sqrt{{\it t_{86}}}\right)
250C>    -1.417963080724413\,{\it t_{85}}-0.9086532\,{\it t_{83}}^{3.0}
251C>    +0.02836373333333333\,{\it t_{83}}^{2.0}+0.0474596\,{
252C>    \it t_{83}}\,{\it t_{84}}\right)\,\left(0.02468296176903084
253C>    \,\left({\it t_{21}}\,{\it t_{87}}\,{\it t_{89}}\right)^{2.0}
254C>    +0.2886260486693449\,{\it t_{21}}\,{\it t_{87}}\,{\it t_{89}}
255C>    +1.0\right)}\over{{\it t_{91}}^{3.0}}}-1.0\right)\\\\
256C> \f}
257C>
258C> Code generated with Maxima 5.34.0 [2]
259C> driven by autoxc [3].
260C>
261C> ### References ###
262C>
263C> [1] E Weintraub, TM Henderson, GE Scuseria
264C>    , J.Chem.Theory.Comput. 5, 754 (2009)  , DOI:
265C> <a href="https://doi.org/10.1021/ct800530u ">
266C> 10.1021/ct800530u </a>
267C>
268C> [2] Maxima, a computer algebra system,
269C> <a href="http://maxima.sourceforge.net/">
270C> http://maxima.sourceforge.net/</a>
271C>
272C> [3] autoxc, revision 27097 2015-05-08
273C>
274      subroutine nwxcm_x_wpbe(param,tol_rho,ipol,nq,wght,
275     +rho,rgamma,fnc,Amat,Cmat)
276c $Id: $
277#ifdef NWXC_QUAD_PREC
278      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
279      integer, parameter :: rk=selected_real_kind(30)
280#else
281      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
282      integer, parameter :: rk=selected_real_kind(15)
283#endif
284#include "nwxc_param.fh"
285      double precision param(*)     !< [Input] Parameters of functional
286      double precision tol_rho      !< [Input] The lower limit on the density
287      integer ipol                  !< [Input] The number of spin channels
288      integer nq                    !< [Input] The number of points
289      double precision wght         !< [Input] The weight of the functional
290      double precision rho(nq,*)    !< [Input] The density
291      double precision rgamma(nq,*) !< [Input] The norm of the density
292                                    !< gradients
293      double precision fnc(nq)      !< [Output] The value of the functional
294c
295c     Sampling Matrices for the XC Kernel
296c
297      double precision Amat(nq,*)   !< [Output] The derivative wrt rho
298      double precision Cmat(nq,*)   !< [Output] The derivative wrt rgamma
299      integer iq
300      double precision tmp
301      double precision rhoa,rhob
302      double precision gammaaa,gammaab,gammabb
303      double precision taua,taub
304      double precision nwxcm_heaviside
305      external         nwxcm_heaviside
306CDIR$ NOVECTOR
307      do iq = 1, nq
308        if (ipol.eq.1) then
309          rhoa    = 0.5d0*rho(iq,R_T)
310          gammaaa = 0.25d0*rgamma(iq,G_TT)
311          if (rhoa.gt.tol_rho) then
312            t1 = param(1)
313            t2 = rhoa**3.333333333333333d-1
314            t3 = 1/t2
315            t4 = gammaaa**5.0d-1
316            t5 = t4**7
317            t6 = 1/rhoa**9.333333333333333d+0
318            t7 = gammaaa**3
319            t8 = 1/rhoa**8
320            t9 = t4**5
321            t10 = 1/rhoa**6.666666666666667d+0
322            t11 = gammaaa**2
323            t12 = 1/rhoa**5.333333333333333d+0
324            t13 = t4**3
325            t14 = 1/rhoa**4
326            t15 = 1/rhoa**2.6666666666666666d+0
327            t16 = 5.3020963068324d-6*t10*t9-4.327677396975467d-7*t7*t8+2
328     1         .4123830247695402d-8*t5*t6+2.631878392200375d-4*gammaaa*t
329     2         15+1.8005513133540818d-4*t13*t14-4.342399100269002d-5*t11
330     3         *t12
331            t17 = t4**9
332            t18 = 1/rhoa**12
333            t19 = gammaaa**4
334            t20 = 1/rhoa**1.0666666666666666d+1
335            t21 = rhoa**1.3333333333333333d+0
336            t22 = 1/t21
337            t23 = 5.955909787676884d-5*t10*t9-2.7196832676277033d-6*t7*t
338     1         8+1.7578986477855002d-7*t5*t6+6.841322473346062d-1*t22*t4
339     2         -5.649671283776346d-9*t19*t20+3.149302550983647d-10*t17*t
340     3         18-2.0532933130264455d-1*gammaaa*t15+2.342799068769956d-2
341     4         *t13*t14-1.3837064697606524d-3*t11*t12+1.0d+0
342            t24 = 1/t23
343            t25 = 1.6455307846020562d-2*gammaaa*t15*t16*t24
344            t26 = 6.582123138408225d-2*(t1*t3)**2.0d+0+t25+6.0965d-1
345            t27 = 1/t26
346            t28 = t26**5.0d-1
347            t29 = 1/t28
348            t30 = 2.565564877060844d-1*t1*t29*t3+1.0d+0
349            t31 = 1/t30
350            t32 = 4.1138269615051404d-3*gammaaa*t15+1.0d+0
351            t33 = 1/t32
352            t34 = 5.136628594837797d-3*gammaaa*t15*t33+6.934448603031025
353     1         d-2*gammaaa*t15*t16*t24+1.0d+0
354            t35 = 1.282782438530422d-1*t1*t29*t3+1.0d+0
355            t36 = t26*t30
356            t37 = 1/t36**2.0d+0
357            t38 = t1**2
358            t39 = 1/rhoa**6.666666666666666d-1
359            t40 = 6.582123138408225d-2*t38*t39
360            t41 = (t40+t25)**5.0d-1
361            t42 = (t40+t25+6.0965d-1)**5.0d-1
362            t43 = t42+t41
363            t44 = 1/t43
364            t45 = 2.565564877060844d-1*t1*t3
365            t46 = t45+t42
366            t47 = 1/t46
367            t48 = 1.0d+0-6.0965d-1*t44*t47
368            t49 = log(t48)
369            t50 = (t40+t25+7.57211d-1)**5.0d-1
370            t51 = t50+t42
371            t52 = 1/t51
372            t53 = 1.475609999999999d-1*t47*t52+1.0d+0
373            t54 = log(t53)
374            t55 = t25+7.57211d-1
375            t56 = t50+t41
376            t57 = 1/t56
377            t58 = t50+t45
378            t59 = 1/t58
379            t60 = t45+t41
380            t61 = 1/t60
381            t62 = t25+6.0965d-1
382            t63 = t62**2.0d+0
383            t64 = t62**3.5d+0
384            t65 = (gammaaa*t15*t16*t24)**5.0d-1
385            t66 = t55**5.0d-1
386            t67 = 1.282782438530422d-1*t65-t66
387            t68 = -2.4d+0*t64*t67-1.417963080724413d+0*t64+2.83637333333
388     1         3333d-2*t63-9.086532d-1*t62**3.0d+0+4.7459599999999996d-2
389     2         *t34*t62
390            t69 = 1/t36**3.0d+0
391            t70 = 2.4682961769030842d-2*(t1*t29*t3)**2.0d+0+2.8862604866
392     1         934494d-1*t1*t29*t3+1.0d+0
393            t71 = -8.888888888888888d-1*t68*t69*t70+7.57211d-1*(1.645530
394     1         7846020562d-2*gammaaa*t15*t16*t24*t57*t61+t55*t57*t59)-2.
395     2         0d+0*t54*t55+3.2910615692041123d-2*gammaaa*t15*t16*t24*t4
396     3         9+5.273288888888887d-2*t34*t35*t37+4.727288888888889d-2*t
397     4         27*t31-1.0d+0
398            t72 = 1/t26**2
399            t73 = 1/rhoa**3.6666666666666664d+0
400            t74 = -4.38808209227215d-2*gammaaa*t16*t24*t73
401            t75 = 1/rhoa**1.0333333333333333d+1
402            t76 = 1/rhoa**9
403            t77 = 1/rhoa**7.666666666666667d+0
404            t78 = 1/rhoa**6.333333333333333d+0
405            t79 = 1/rhoa**5
406            t80 = -3.970606525117923d-4*t77*t9-9.371196275079824d-2*t13*
407     1         t79+7.379767838723479d-3*t11*t78+2.1757466141021625d-5*t7
408     2         *t76-1.6407054045998d-6*t5*t75+5.475448834737188d-1*gamma
409     3         aa*t73-9.121763297794749d-1*t4/rhoa**2.3333333333333334d+
410     4         0+6.026316036028103d-8*t19/rhoa**1.1666666666666665d+1-3.
411     5         7791630611803767d-9*t17/rhoa**13
412            t81 = 1/t23**2
413            t82 = -1.6455307846020562d-2*gammaaa*t15*t16*t80*t81
414            t83 = -3.5347308712216d-5*t77*t9-7.202205253416327d-4*t13*t7
415     1         9+2.3159461868101344d-4*t11*t78+3.462141917580374d-6*t7*t
416     2         76-2.2515574897849044d-7*t5*t75-7.018342379201d-4*gammaaa
417     3         *t73
418            t84 = 1.6455307846020562d-2*gammaaa*t15*t24*t83
419            t85 = t84+t82+t74-4.38808209227215d-2*t38/rhoa**1.6666666666
420     1         666669d+0
421            t86 = 1/t32**2
422            t87 = 5.634986987915197d-5*t11*t78*t86+6.934448603031025d-2*
423     1         gammaaa*t15*t24*t83-6.934448603031025d-2*gammaaa*t15*t16*
424     2         t80*t81-1.369767625290079d-2*gammaaa*t33*t73-1.8491862941
425     3         416065d-1*gammaaa*t16*t24*t73
426            t88 = 1/t42
427            t89 = 5.0d-1*t85*t88
428            t90 = -8.551882923536147d-2*t1*t22
429            t91 = t90+t89
430            t92 = 1/t46**2
431            t93 = 1/t41
432            t94 = 5.0d-1*t85*t93
433            t95 = 1/t43**2
434            t96 = 1/t48
435            t97 = t84+t82+t74
436            t98 = 1/t50
437            t99 = 5.0d-1*t85*t98
438            t100 = 1/t51**2
439            t101 = 1/t53
440            t102 = 1/t58**2
441            t103 = t99+t94
442            t104 = 1/t56**2
443            t105 = 1/t60**2
444            t106 = t62**2.5d+0
445            t107 = 1/t66
446            t108 = 1/t65
447            t109 = 1/t30**2
448            t110 = 1/t28**3
449            t111 = -1.282782438530422d-1*t1*t110*t3*t85-8.55188292353614
450     1         7d-2*t1*t22*t29
451            t112 = t30*t85+t111*t26
452            t113 = 1/t36**4.0d+0
453            t114 = 6.15264526724925d-7*t6*t9-8.159049802883108d-6*t11*t8
454     1         -2.2598685135105387d-8*t20*t7+1.4171861479426412d-9*t18*t
455     2         5+3.514198603154934d-2*t14*t4+3.420661236673031d-1*t22/t4
456     3         -2.0532933130264455d-1*t15+1.488977446919221d-4*t10*t13-2
457     4         .767412939521305d-3*gammaaa*t12
458            t115 = 8.443340586693391d-8*t6*t9-1.2983032190926402d-6*t11*
459     1         t8+2.7008269700311227d-4*t14*t4+2.631878392200375d-4*t15+
460     2         1.3255240767081d-5*t10*t13-8.684798200538004d-5*gammaaa*t
461     3         12
462            t116 = -1.6455307846020562d-2*gammaaa*t114*t15*t16*t81+1.645
463     1         5307846020562d-2*t15*t16*t24+1.6455307846020562d-2*gammaa
464     2         a*t115*t15*t24
465            t117 = -2.113120120468199d-5*gammaaa*t12*t86-6.9344486030310
466     1         25d-2*gammaaa*t114*t15*t16*t81+5.136628594837797d-3*t15*t
467     2         33+6.934448603031025d-2*t15*t16*t24+6.934448603031025d-2*
468     3         gammaaa*t115*t15*t24
469            t118 = 5.0d-1*t116*t93
470            t119 = 5.0d-1*t116*t88
471            t120 = 5.0d-1*t116*t98
472            t121 = t120+t118
473            t122 = t116*t30-1.282782438530422d-1*t1*t116*t29*t3
474            fnc(iq) = fnc(iq)-1.8610514726982d+0*t21*t71*wght
475            Amat(iq,D1_RA) = (-9.305257363491d-1*t21*(7.57211d-1*(-t102*
476     1         t55*t57*(t99+t90)+t57*t59*t97-1.6455307846020562d-2*gamma
477     2         aa*t105*t15*t16*t24*t57*(t94+t90)+1.6455307846020562d-2*g
478     3         ammaaa*t15*t24*t57*t61*t83-1.6455307846020562d-2*gammaaa*
479     4         t15*t16*t57*t61*t80*t81-4.38808209227215d-2*gammaaa*t16*t
480     5         24*t57*t61*t73-1.6455307846020562d-2*gammaaa*t103*t104*t1
481     6         5*t16*t24*t61-t103*t104*t55*t59)-2.0d+0*t101*t55*(-1.4756
482     7         09999999999d-1*t100*t47*(t99+t89)-1.475609999999999d-1*t5
483     8         2*t91*t92)-8.888888888888888d-1*t69*t70*(-2.4d+0*t64*(6.4
484     9         1391219265211d-2*t108*(gammaaa*t15*t24*t83-gammaaa*t15*t1
485     :         6*t80*t81-2.6666666666666666d+0*gammaaa*t16*t24*t73)-5.0d
486     ;         -1*t107*t97)-8.400000000000001d+0*t106*t67*t97-2.7259596d
487     <         +0*t63*t97+5.672746666666666d-2*t62*t97+4.745959999999999
488     =         6d-2*t34*t97-4.9628707825354457d+0*t106*t97+4.74595999999
489     >         99996d-2*t62*t87)-2.0d+0*t54*t97+3.2910615692041123d-2*ga
490     ?         mmaaa*t15*t16*t24*(6.0965d-1*t47*(t94+t89)*t95+6.0965d-1*
491     @         t44*t91*t92)*t96+5.273288888888887d-2*t35*t37*t87-8.88888
492     1         8888888888d-1*t68*t69*(4.9365923538061685d-2*t1*t29*t3*(-
493     2         5.0d-1*t1*t110*t3*t85-3.333333333333333d-1*t1*t22*t29)-1.
494     3         4431302433467247d-1*t1*t110*t3*t85-9.620868288978164d-2*t
495     4         1*t22*t29)+5.273288888888887d-2*t34*t37*(-6.4139121926521
496     5         1d-2*t1*t110*t3*t85-4.2759414617680735d-2*t1*t22*t29)-4.7
497     6         27288888888889d-2*t31*t72*t85+3.2910615692041123d-2*gamma
498     7         aa*t15*t24*t49*t83-3.2910615692041123d-2*gammaaa*t15*t16*
499     8         t49*t80*t81-8.7761641845443d-2*gammaaa*t16*t24*t49*t73+2.
500     9         6666666666666666d+0*t112*t113*t68*t70-1.0546577777777776d
501     :         -1*t112*t34*t35*t69-4.727288888888889d-2*t109*t111*t27)-1
502     ;         .2407009817987999d+0*t2*t71)*wght+Amat(iq,D1_RA)
503            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t21*(7.5
504     1         7211d-1*(-5.0d-1*t102*t116*t55*t57*t98-8.227653923010281d
505     2         -3*gammaaa*t105*t116*t15*t16*t24*t57*t93-1.64553078460205
506     3         62d-2*gammaaa*t114*t15*t16*t57*t61*t81+1.6455307846020562
507     4         d-2*t15*t16*t24*t57*t61+1.6455307846020562d-2*gammaaa*t11
508     5         5*t15*t24*t57*t61-1.6455307846020562d-2*gammaaa*t104*t121
509     6         *t15*t16*t24*t61+t116*t57*t59-t104*t121*t55*t59)+3.291061
510     7         5692041123d-2*gammaaa*t15*t16*t24*(6.0965d-1*(t119+t118)*
511     8         t47*t95+3.04825d-1*t116*t44*t88*t92)*t96-2.0d+0*t101*t55*
512     9         (-7.378049999999994d-2*t116*t52*t88*t92-1.475609999999999
513     :         d-1*t100*(t120+t119)*t47)+t69*(-8.888888888888888d-1*t70*
514     ;         (-2.4d+0*t64*(6.41391219265211d-2*t108*(-gammaaa*t114*t15
515     <         *t16*t81+t15*t16*t24+gammaaa*t115*t15*t24)-5.0d-1*t107*t1
516     =         16)-8.400000000000001d+0*t106*t116*t67-2.7259596d+0*t116*
517     >         t63+4.7459599999999996d-2*t117*t62+5.672746666666666d-2*t
518     ?         116*t62+4.7459599999999996d-2*t116*t34-4.9628707825354457
519     @         d+0*t106*t116)-8.888888888888888d-1*t68*(-2.4682961769030
520     1         842d-2*t116*t38*t39*t72-1.4431302433467247d-1*t1*t110*t11
521     2         6*t3)-1.0546577777777776d-1*t122*t34*t35)-3.2910615692041
522     3         123d-2*gammaaa*t114*t15*t16*t49*t81-4.727288888888889d-2*
523     4         t116*t31*t72+2.6666666666666666d+0*t113*t122*t68*t70-2.0d
524     5         +0*t116*t54+t15*t24*(3.2910615692041123d-2*t16*t49+3.2910
525     6         615692041123d-2*gammaaa*t115*t49)+5.273288888888887d-2*t1
526     7         17*t35*t37-3.3822411899821336d-3*t1*t110*t116*t3*t34*t37+
527     8         6.064083168526658d-3*t1*t109*t116*t3/t28**5)*wght
528            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
529          endif ! rhoa.gt.tol_rho
530        else  ! ipol.eq.1
531          rhoa    = rho(iq,R_A)
532          rhob    = rho(iq,R_B)
533          gammaaa = rgamma(iq,G_AA)
534          gammaab = rgamma(iq,G_AB)
535          gammabb = rgamma(iq,G_BB)
536          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
537            t1 = param(1)
538            t2 = rhoa**3.333333333333333d-1
539            t3 = 1/t2
540            t4 = t1*t3
541            t5 = gammaaa**5.0d-1
542            t6 = t5**7
543            t7 = 1/rhoa**9.333333333333333d+0
544            t8 = gammaaa**3
545            t9 = 1/rhoa**8
546            t10 = t5**5
547            t11 = 1/rhoa**6.666666666666667d+0
548            t12 = gammaaa**2
549            t13 = 1/rhoa**5.333333333333333d+0
550            t14 = t5**3
551            t15 = 1/rhoa**4
552            t16 = 1/rhoa**2.6666666666666666d+0
553            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
554     1         7+2.631878392200375d-4*gammaaa*t16+1.8005513133540818d-4*
555     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
556     3         10*t11
557            t18 = t5**9
558            t19 = 1/rhoa**12
559            t20 = gammaaa**4
560            t21 = 1/rhoa**1.0666666666666666d+1
561            t22 = rhoa**1.3333333333333333d+0
562            t23 = 1/t22
563            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
564     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
565     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
566     3         mmaaa*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
567     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
568            t25 = 1/t24
569            t26 = 1.6455307846020562d-2*gammaaa*t16*t17*t25
570            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
571            t28 = 1/t27
572            t29 = t27**5.0d-1
573            t30 = 1/t29
574            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
575            t32 = 1/t31
576            t33 = 4.1138269615051404d-3*gammaaa*t16+1.0d+0
577            t34 = 1/t33
578            t35 = 5.136628594837797d-3*gammaaa*t16*t34+6.934448603031025
579     1         d-2*gammaaa*t16*t17*t25+1.0d+0
580            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
581            t37 = t27*t31
582            t38 = 1/t37**2.0d+0
583            t39 = t1**2
584            t40 = 1/rhoa**6.666666666666666d-1
585            t41 = 6.582123138408225d-2*t39*t40
586            t42 = (t41+t26)**5.0d-1
587            t43 = (t41+t26+6.0965d-1)**5.0d-1
588            t44 = t43+t42
589            t45 = 1/t44
590            t46 = 2.565564877060844d-1*t1*t3
591            t47 = t46+t43
592            t48 = 1/t47
593            t49 = 1.0d+0-6.0965d-1*t45*t48
594            t50 = log(t49)
595            t51 = (t41+t26+7.57211d-1)**5.0d-1
596            t52 = t51+t43
597            t53 = 1/t52
598            t54 = 1.475609999999999d-1*t48*t53+1.0d+0
599            t55 = log(t54)
600            t56 = t26+7.57211d-1
601            t57 = t51+t42
602            t58 = 1/t57
603            t59 = t51+t46
604            t60 = 1/t59
605            t61 = t46+t42
606            t62 = 1/t61
607            t63 = t26+6.0965d-1
608            t64 = t63**2.0d+0
609            t65 = t63**3.5d+0
610            t66 = (gammaaa*t16*t17*t25)**5.0d-1
611            t67 = t56**5.0d-1
612            t68 = 1.282782438530422d-1*t66-t67
613            t69 = -2.4d+0*t65*t68-1.417963080724413d+0*t65+2.83637333333
614     1         3333d-2*t64-9.086532d-1*t63**3.0d+0+4.7459599999999996d-2
615     2         *t35*t63
616            t70 = 1/t37**3.0d+0
617            t71 = t1*t3*t30
618            t72 = 2.4682961769030842d-2*t71**2.0d+0+2.8862604866934494d-
619     1         1*t1*t3*t30+1.0d+0
620            t73 = -8.888888888888888d-1*t69*t70*t72+7.57211d-1*(1.645530
621     1         7846020562d-2*gammaaa*t16*t17*t25*t58*t62+t56*t58*t60)-2.
622     2         0d+0*t55*t56+3.2910615692041123d-2*gammaaa*t16*t17*t25*t5
623     3         0+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
624     4         28*t32-1.0d+0
625            t74 = rhob**3.333333333333333d-1
626            t75 = 1/t74
627            t76 = t1*t75
628            t77 = gammabb**5.0d-1
629            t78 = t77**7
630            t79 = 1/rhob**9.333333333333333d+0
631            t80 = gammabb**3
632            t81 = 1/rhob**8
633            t82 = t77**5
634            t83 = 1/rhob**6.666666666666667d+0
635            t84 = gammabb**2
636            t85 = 1/rhob**5.333333333333333d+0
637            t86 = t77**3
638            t87 = 1/rhob**4
639            t88 = 1/rhob**2.6666666666666666d+0
640            t89 = 2.631878392200375d-4*gammabb*t88+1.8005513133540818d-4
641     1         *t86*t87-4.342399100269002d-5*t84*t85+5.3020963068324d-6*
642     2         t82*t83-4.327677396975467d-7*t80*t81+2.4123830247695402d-
643     3         8*t78*t79
644            t90 = t77**9
645            t91 = 1/rhob**12
646            t92 = gammabb**4
647            t93 = 1/rhob**1.0666666666666666d+1
648            t94 = rhob**1.3333333333333333d+0
649            t95 = 1/t94
650            t96 = 6.841322473346062d-1*t77*t95-5.649671283776346d-9*t92*
651     1         t93+3.149302550983647d-10*t90*t91-2.0532933130264455d-1*g
652     2         ammabb*t88+2.342799068769956d-2*t86*t87-1.383706469760652
653     3         4d-3*t84*t85+5.955909787676884d-5*t82*t83-2.7196832676277
654     4         033d-6*t80*t81+1.7578986477855002d-7*t78*t79+1.0d+0
655            t97 = 1/t96
656            t98 = 1.6455307846020562d-2*gammabb*t88*t89*t97
657            t99 = t98+6.582123138408225d-2*t76**2.0d+0+6.0965d-1
658            t100 = 1/t99
659            t101 = t99**5.0d-1
660            t102 = 1/t101
661            t103 = 2.565564877060844d-1*t1*t102*t75+1.0d+0
662            t104 = 1/t103
663            t105 = 4.1138269615051404d-3*gammabb*t88+1.0d+0
664            t106 = 1/t105
665            t107 = 6.934448603031025d-2*gammabb*t88*t89*t97+5.1366285948
666     1         37797d-3*gammabb*t106*t88+1.0d+0
667            t108 = 1.282782438530422d-1*t1*t102*t75+1.0d+0
668            t109 = t103*t99
669            t110 = 1/t109**2.0d+0
670            t111 = 1/rhob**6.666666666666666d-1
671            t112 = 6.582123138408225d-2*t111*t39
672            t113 = (t98+t112)**5.0d-1
673            t114 = (t98+t112+6.0965d-1)**5.0d-1
674            t115 = t114+t113
675            t116 = 1/t115
676            t117 = 2.565564877060844d-1*t1*t75
677            t118 = t117+t114
678            t119 = 1/t118
679            t120 = 1.0d+0-6.0965d-1*t116*t119
680            t121 = log(t120)
681            t122 = (t98+t112+7.57211d-1)**5.0d-1
682            t123 = t122+t114
683            t124 = 1/t123
684            t125 = 1.475609999999999d-1*t119*t124+1.0d+0
685            t126 = log(t125)
686            t127 = t98+7.57211d-1
687            t128 = t122+t113
688            t129 = 1/t128
689            t130 = t122+t117
690            t131 = 1/t130
691            t132 = t117+t113
692            t133 = 1/t132
693            t134 = t98+6.0965d-1
694            t135 = t134**2.0d+0
695            t136 = t134**3.5d+0
696            t137 = (gammabb*t88*t89*t97)**5.0d-1
697            t138 = t127**5.0d-1
698            t139 = 1.282782438530422d-1*t137-t138
699            t140 = -2.4d+0*t136*t139-1.417963080724413d+0*t136+2.8363733
700     1         33333333d-2*t135-9.086532d-1*t134**3.0d+0+4.7459599999999
701     2         996d-2*t107*t134
702            t141 = 1/t109**3.0d+0
703            t142 = t1*t102*t75
704            t143 = 2.8862604866934494d-1*t1*t102*t75+2.4682961769030842d
705     1         -2*t142**2.0d+0+1.0d+0
706            t144 = 7.57211d-1*(1.6455307846020562d-2*gammabb*t129*t133*t
707     1         88*t89*t97+t127*t129*t131)+3.2910615692041123d-2*gammabb*
708     2         t121*t88*t89*t97-8.888888888888888d-1*t140*t141*t143-2.0d
709     3         +0*t126*t127+5.273288888888887d-2*t107*t108*t110+4.727288
710     4         888888889d-2*t100*t104-1.0d+0
711            t145 = 1/t27**2
712            t146 = 1/rhoa**3.6666666666666664d+0
713            t147 = -4.38808209227215d-2*gammaaa*t146*t17*t25
714            t148 = 1/rhoa**1.0333333333333333d+1
715            t149 = 1/rhoa**9
716            t150 = 1/rhoa**7.666666666666667d+0
717            t151 = 1/rhoa**6.333333333333333d+0
718            t152 = 1/rhoa**5
719            t153 = 2.1757466141021625d-5*t149*t8-1.6407054045998d-6*t148
720     1         *t6-9.121763297794749d-1*t5/rhoa**2.3333333333333334d+0+6
721     2         .026316036028103d-8*t20/rhoa**1.1666666666666665d+1-3.779
722     3         1630611803767d-9*t18/rhoa**13-9.371196275079824d-2*t14*t1
723     4         52+7.379767838723479d-3*t12*t151-3.970606525117923d-4*t10
724     5         *t150+5.475448834737188d-1*gammaaa*t146
725            t154 = 1/t24**2
726            t155 = -1.6455307846020562d-2*gammaaa*t153*t154*t16*t17
727            t156 = 3.462141917580374d-6*t149*t8-2.2515574897849044d-7*t1
728     1         48*t6-7.202205253416327d-4*t14*t152+2.3159461868101344d-4
729     2         *t12*t151-3.5347308712216d-5*t10*t150-7.018342379201d-4*g
730     3         ammaaa*t146
731            t157 = 1.6455307846020562d-2*gammaaa*t156*t16*t25
732            t158 = -4.38808209227215d-2*t1*t23*t4+t157+t155+t147
733            t159 = 1/t33**2
734            t160 = -1.369767625290079d-2*gammaaa*t146*t34-1.849186294141
735     1         6065d-1*gammaaa*t146*t17*t25+6.934448603031025d-2*gammaaa
736     2         *t156*t16*t25-6.934448603031025d-2*gammaaa*t153*t154*t16*
737     3         t17+5.634986987915197d-5*t12*t151*t159
738            t161 = -4.38808209227215d-2*t39/rhoa**1.6666666666666669d+0+
739     1         t157+t155+t147
740            t162 = 1/t43
741            t163 = 5.0d-1*t161*t162
742            t164 = -8.551882923536147d-2*t1*t23
743            t165 = t164+t163
744            t166 = 1/t47**2
745            t167 = 1/t42
746            t168 = 5.0d-1*t161*t167
747            t169 = 1/t44**2
748            t170 = 1/t49
749            t171 = t157+t155+t147
750            t172 = 1/t51
751            t173 = 5.0d-1*t161*t172
752            t174 = 1/t52**2
753            t175 = 1/t54
754            t176 = 1/t59**2
755            t177 = t173+t168
756            t178 = 1/t57**2
757            t179 = 1/t61**2
758            t180 = t63**2.5d+0
759            t181 = 1/t67
760            t182 = 1/t66
761            t183 = 1/t31**2
762            t184 = 1/t29**3
763            t185 = -8.551882923536147d-2*t1*t23*t30-1.282782438530422d-1
764     1         *t1*t158*t184*t3
765            t186 = t158*t31+t185*t27
766            t187 = 1/t37**4.0d+0
767            t188 = 1/t99**2
768            t189 = 1/rhob**3.6666666666666664d+0
769            t190 = -4.38808209227215d-2*gammabb*t189*t89*t97
770            t191 = 1/rhob**1.0333333333333333d+1
771            t192 = 1/rhob**9
772            t193 = 1/rhob**7.666666666666667d+0
773            t194 = 1/rhob**6.333333333333333d+0
774            t195 = 1/rhob**5
775            t196 = 6.026316036028103d-8*t92/rhob**1.1666666666666665d+1-
776     1         3.7791630611803767d-9*t90/rhob**13-9.371196275079824d-2*t
777     2         195*t86+7.379767838723479d-3*t194*t84-3.970606525117923d-
778     3         4*t193*t82+2.1757466141021625d-5*t192*t80-1.6407054045998
779     4         d-6*t191*t78-9.121763297794749d-1*t77/rhob**2.33333333333
780     5         33334d+0+5.475448834737188d-1*gammabb*t189
781            t197 = 1/t96**2
782            t198 = -1.6455307846020562d-2*gammabb*t196*t197*t88*t89
783            t199 = -7.202205253416327d-4*t195*t86+2.3159461868101344d-4*
784     1         t194*t84-3.5347308712216d-5*t193*t82+3.462141917580374d-6
785     2         *t192*t80-2.2515574897849044d-7*t191*t78-7.018342379201d-
786     3         4*gammabb*t189
787            t200 = 1.6455307846020562d-2*gammabb*t199*t88*t97
788            t201 = -4.38808209227215d-2*t1*t76*t95+t200+t198+t190
789            t202 = 1/t105**2
790            t203 = -1.8491862941416065d-1*gammabb*t189*t89*t97+6.9344486
791     1         03031025d-2*gammabb*t199*t88*t97-6.934448603031025d-2*gam
792     2         mabb*t196*t197*t88*t89+5.634986987915197d-5*t194*t202*t84
793     3         -1.369767625290079d-2*gammabb*t106*t189
794            t204 = -4.38808209227215d-2*t39/rhob**1.6666666666666669d+0+
795     1         t200+t198+t190
796            t205 = 1/t114
797            t206 = 5.0d-1*t204*t205
798            t207 = -8.551882923536147d-2*t1*t95
799            t208 = t207+t206
800            t209 = 1/t118**2
801            t210 = 1/t113
802            t211 = 5.0d-1*t204*t210
803            t212 = 1/t115**2
804            t213 = 1/t120
805            t214 = t200+t198+t190
806            t215 = 1/t122
807            t216 = 5.0d-1*t204*t215
808            t217 = 1/t123**2
809            t218 = 1/t125
810            t219 = 1/t130**2
811            t220 = t216+t211
812            t221 = 1/t128**2
813            t222 = 1/t132**2
814            t223 = t134**2.5d+0
815            t224 = 1/t138
816            t225 = 1/t137
817            t226 = 1/t103**2
818            t227 = 1/t101**3
819            t228 = -8.551882923536147d-2*t1*t102*t95-1.282782438530422d-
820     1         1*t1*t201*t227*t75
821            t229 = t228*t99+t103*t201
822            t230 = 1/t109**4.0d+0
823            t231 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
824     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
825     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t23/
826     3         t5-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t14
827     4         -2.767412939521305d-3*gammaaa*t13
828            t232 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
829     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
830     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammaaa
831     3         *t13
832            t233 = 1.6455307846020562d-2*gammaaa*t16*t232*t25+1.64553078
833     1         46020562d-2*t16*t17*t25-1.6455307846020562d-2*gammaaa*t15
834     2         4*t16*t17*t231
835            t234 = 5.136628594837797d-3*t16*t34+6.934448603031025d-2*gam
836     1         maaa*t16*t232*t25+6.934448603031025d-2*t16*t17*t25-6.9344
837     2         48603031025d-2*gammaaa*t154*t16*t17*t231-2.11312012046819
838     3         9d-5*gammaaa*t13*t159
839            t235 = 5.0d-1*t167*t233
840            t236 = 5.0d-1*t162*t233
841            t237 = 5.0d-1*t172*t233
842            t238 = t237+t235
843            t239 = t233*t31-1.282782438530422d-1*t1*t233*t3*t30
844            t240 = 3.420661236673031d-1*t95/t77-2.2598685135105387d-8*t8
845     1         0*t93+1.4171861479426412d-9*t78*t91-2.0532933130264455d-1
846     2         *t88+3.514198603154934d-2*t77*t87+1.488977446919221d-4*t8
847     3         3*t86-2.767412939521305d-3*gammabb*t85-8.159049802883108d
848     4         -6*t81*t84+6.15264526724925d-7*t79*t82
849            t241 = 2.631878392200375d-4*t88+2.7008269700311227d-4*t77*t8
850     1         7+1.3255240767081d-5*t83*t86-8.684798200538004d-5*gammabb
851     2         *t85-1.2983032190926402d-6*t81*t84+8.443340586693391d-8*t
852     3         79*t82
853            t242 = 1.6455307846020562d-2*t88*t89*t97+1.6455307846020562d
854     1         -2*gammabb*t241*t88*t97-1.6455307846020562d-2*gammabb*t19
855     2         7*t240*t88*t89
856            t243 = 6.934448603031025d-2*t88*t89*t97+6.934448603031025d-2
857     1         *gammabb*t241*t88*t97-6.934448603031025d-2*gammabb*t197*t
858     2         240*t88*t89+5.136628594837797d-3*t106*t88-2.1131201204681
859     3         99d-5*gammabb*t202*t85
860            t244 = 5.0d-1*t210*t242
861            t245 = 5.0d-1*t205*t242
862            t246 = 5.0d-1*t215*t242
863            t247 = t246+t244
864            t248 = t103*t242-1.282782438530422d-1*t1*t102*t242*t75
865            fnc(iq) = (-9.305257363491d-1*t144*t94-9.305257363491d-1*t22
866     1         *t73)*wght+fnc(iq)
867            Amat(iq,D1_RA) = (-1.2407009817987999d+0*t2*t73-9.3052573634
868     1         91d-1*t22*(-8.888888888888888d-1*(-8.400000000000001d+0*t
869     2         171*t180*t68-2.4d+0*(6.41391219265211d-2*t182*(-2.6666666
870     3         666666666d+0*gammaaa*t146*t17*t25+gammaaa*t156*t16*t25-ga
871     4         mmaaa*t153*t154*t16*t17)-5.0d-1*t171*t181)*t65-2.7259596d
872     5         +0*t171*t64+5.672746666666666d-2*t171*t63+4.7459599999999
873     6         996d-2*t160*t63+4.7459599999999996d-2*t171*t35-4.96287078
874     7         25354457d+0*t171*t180)*t70*t72+2.6666666666666666d+0*t186
875     8         *t187*t69*t72-8.888888888888888d-1*t69*t70*(4.93659235380
876     9         61685d-2*(-3.333333333333333d-1*t1*t23*t30-5.0d-1*t1*t158
877     :         *t184*t3)*t71-9.620868288978164d-2*t1*t23*t30-1.443130243
878     ;         3467247d-1*t1*t158*t184*t3)-1.0546577777777776d-1*t186*t3
879     <         5*t36*t70+7.57211d-1*(-4.38808209227215d-2*gammaaa*t146*t
880     =         17*t25*t58*t62+1.6455307846020562d-2*gammaaa*t156*t16*t25
881     >         *t58*t62-1.6455307846020562d-2*gammaaa*t153*t154*t16*t17*
882     ?         t58*t62-1.6455307846020562d-2*gammaaa*t16*t17*t177*t178*t
883     @         25*t62+t171*t58*t60-t177*t178*t56*t60-(t173+t164)*t176*t5
884     1         6*t58-1.6455307846020562d-2*gammaaa*t16*(t168+t164)*t17*t
885     2         179*t25*t58)-2.0d+0*t175*(-1.475609999999999d-1*t165*t166
886     3         *t53-1.475609999999999d-1*(t173+t163)*t174*t48)*t56-2.0d+
887     4         0*t171*t55-8.7761641845443d-2*gammaaa*t146*t17*t25*t50+3.
888     5         2910615692041123d-2*gammaaa*t156*t16*t25*t50-3.2910615692
889     6         041123d-2*gammaaa*t153*t154*t16*t17*t50+3.291061569204112
890     7         3d-2*gammaaa*t16*t17*t170*t25*(6.0965d-1*(t168+t163)*t169
891     8         *t48+6.0965d-1*t165*t166*t45)+5.273288888888887d-2*t160*t
892     9         36*t38+5.273288888888887d-2*(-4.2759414617680735d-2*t1*t2
893     :         3*t30-6.41391219265211d-2*t1*t158*t184*t3)*t35*t38-4.7272
894     ;         88888888889d-2*t145*t158*t32-4.727288888888889d-2*t183*t1
895     <         85*t28))*wght+Amat(iq,D1_RA)
896            Amat(iq,D1_RB) = (-9.305257363491d-1*t94*(-8.888888888888888
897     1         d-1*t141*t143*(-2.4d+0*t136*(6.41391219265211d-2*t225*(-2
898     2         .6666666666666666d+0*gammabb*t189*t89*t97+gammabb*t199*t8
899     3         8*t97-gammabb*t196*t197*t88*t89)-5.0d-1*t214*t224)-8.4000
900     4         00000000001d+0*t139*t214*t223-4.9628707825354457d+0*t214*
901     5         t223-2.7259596d+0*t135*t214+5.672746666666666d-2*t134*t21
902     6         4+4.7459599999999996d-2*t107*t214+4.7459599999999996d-2*t
903     7         134*t203)+7.57211d-1*(-1.6455307846020562d-2*gammabb*t129
904     8         *(t211+t207)*t222*t88*t89*t97-1.6455307846020562d-2*gamma
905     9         bb*t133*t220*t221*t88*t89*t97-4.38808209227215d-2*gammabb
906     :         *t129*t133*t189*t89*t97+1.6455307846020562d-2*gammabb*t12
907     ;         9*t133*t199*t88*t97-1.6455307846020562d-2*gammabb*t129*t1
908     <         33*t196*t197*t88*t89-t127*t131*t220*t221-t127*t129*(t216+
909     =         t207)*t219+t129*t131*t214)+3.2910615692041123d-2*gammabb*
910     >         (6.0965d-1*t119*(t211+t206)*t212+6.0965d-1*t116*t208*t209
911     ?         )*t213*t88*t89*t97-8.7761641845443d-2*gammabb*t121*t189*t
912     @         89*t97+3.2910615692041123d-2*gammabb*t121*t199*t88*t97-8.
913     1         888888888888888d-1*t140*t141*(4.9365923538061685d-2*t142*
914     2         (-3.333333333333333d-1*t1*t102*t95-5.0d-1*t1*t201*t227*t7
915     3         5)-9.620868288978164d-2*t1*t102*t95-1.4431302433467247d-1
916     4         *t1*t201*t227*t75)+5.273288888888887d-2*t107*t110*(-4.275
917     5         9414617680735d-2*t1*t102*t95-6.41391219265211d-2*t1*t201*
918     6         t227*t75)-3.2910615692041123d-2*gammabb*t121*t196*t197*t8
919     7         8*t89+2.6666666666666666d+0*t140*t143*t229*t230-1.0546577
920     8         777777776d-1*t107*t108*t141*t229-4.727288888888889d-2*t10
921     9         0*t226*t228-2.0d+0*t127*(-1.475609999999999d-1*t119*(t216
922     :         +t206)*t217-1.475609999999999d-1*t124*t208*t209)*t218-2.0
923     ;         d+0*t126*t214+5.273288888888887d-2*t108*t110*t203-4.72728
924     <         8888888889d-2*t104*t188*t201)-1.2407009817987999d+0*t144*
925     =         t74)*wght+Amat(iq,D1_RB)
926            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t22*(t70
927     1         *(-8.888888888888888d-1*(-8.400000000000001d+0*t180*t233*
928     2         t68-2.4d+0*(6.41391219265211d-2*t182*(gammaaa*t16*t232*t2
929     3         5+t16*t17*t25-gammaaa*t154*t16*t17*t231)-5.0d-1*t181*t233
930     4         )*t65-2.7259596d+0*t233*t64+4.7459599999999996d-2*t234*t6
931     5         3+5.672746666666666d-2*t233*t63+4.7459599999999996d-2*t23
932     6         3*t35-4.9628707825354457d+0*t180*t233)*t72-8.888888888888
933     7         888d-1*(-2.4682961769030842d-2*t145*t233*t39*t40-1.443130
934     8         2433467247d-1*t1*t184*t233*t3)*t69-1.0546577777777776d-1*
935     9         t239*t35*t36)+2.6666666666666666d+0*t187*t239*t69*t72+7.5
936     :         7211d-1*(1.6455307846020562d-2*gammaaa*t16*t232*t25*t58*t
937     ;         62+1.6455307846020562d-2*t16*t17*t25*t58*t62-1.6455307846
938     <         020562d-2*gammaaa*t154*t16*t17*t231*t58*t62-1.64553078460
939     =         20562d-2*gammaaa*t16*t17*t178*t238*t25*t62+t233*t58*t60-t
940     >         178*t238*t56*t60-5.0d-1*t172*t176*t233*t56*t58-8.22765392
941     ?         3010281d-3*gammaaa*t16*t167*t17*t179*t233*t25*t58)-2.0d+0
942     @         *t175*(-7.378049999999994d-2*t162*t166*t233*t53-1.4756099
943     1         99999999d-1*t174*(t237+t236)*t48)*t56-2.0d+0*t233*t55+t16
944     2         *t25*(3.2910615692041123d-2*gammaaa*t232*t50+3.2910615692
945     3         041123d-2*t17*t50)-3.2910615692041123d-2*gammaaa*t154*t16
946     4         *t17*t231*t50+3.2910615692041123d-2*gammaaa*t16*t17*t170*
947     5         t25*(6.0965d-1*t169*(t236+t235)*t48+3.04825d-1*t162*t166*
948     6         t233*t45)+5.273288888888887d-2*t234*t36*t38-3.38224118998
949     7         21336d-3*t1*t184*t233*t3*t35*t38-4.727288888888889d-2*t14
950     8         5*t233*t32+6.064083168526658d-3*t1*t183*t233*t3/t29**5)*w
951     9         ght
952            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
953            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)-9.305257363491d-1*t94*(t14
954     1         1*(-8.888888888888888d-1*t143*(-2.4d+0*t136*(6.4139121926
955     2         5211d-2*t225*(t88*t89*t97+gammabb*t241*t88*t97-gammabb*t1
956     3         97*t240*t88*t89)-5.0d-1*t224*t242)+4.7459599999999996d-2*
957     4         t134*t243-8.400000000000001d+0*t139*t223*t242-4.962870782
958     5         5354457d+0*t223*t242-2.7259596d+0*t135*t242+5.67274666666
959     6         6666d-2*t134*t242+4.7459599999999996d-2*t107*t242)-8.8888
960     7         88888888888d-1*t140*(-1.4431302433467247d-1*t1*t227*t242*
961     8         t75-2.4682961769030842d-2*t111*t188*t242*t39)-1.054657777
962     9         7777776d-1*t107*t108*t248)+7.57211d-1*(-1.645530784602056
963     :         2d-2*gammabb*t133*t221*t247*t88*t89*t97-8.227653923010281
964     ;         d-3*gammabb*t129*t210*t222*t242*t88*t89*t97+1.64553078460
965     <         20562d-2*t129*t133*t88*t89*t97+1.6455307846020562d-2*gamm
966     =         abb*t129*t133*t241*t88*t97-1.6455307846020562d-2*gammabb*
967     >         t129*t133*t197*t240*t88*t89-t127*t131*t221*t247-5.0d-1*t1
968     ?         27*t129*t215*t219*t242+t129*t131*t242)+t88*(3.29106156920
969     @         41123d-2*t121*t89+3.2910615692041123d-2*gammabb*t121*t241
970     1         )*t97+3.2910615692041123d-2*gammabb*t213*(6.0965d-1*t119*
971     2         t212*(t245+t244)+3.04825d-1*t116*t205*t209*t242)*t88*t89*
972     3         t97-3.2910615692041123d-2*gammabb*t121*t197*t240*t88*t89-
973     4         3.3822411899821336d-3*t1*t107*t110*t227*t242*t75+6.064083
974     5         168526658d-3*t1*t226*t242*t75/t101**5+2.6666666666666666d
975     6         +0*t140*t143*t230*t248-2.0d+0*t127*t218*(-1.4756099999999
976     7         99d-1*t119*t217*(t246+t245)-7.378049999999994d-2*t124*t20
977     8         5*t209*t242)+5.273288888888887d-2*t108*t110*t243-4.727288
978     9         888888889d-2*t104*t188*t242-2.0d+0*t126*t242)*wght
979          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
980            t1 = param(1)
981            t2 = rhoa**3.333333333333333d-1
982            t3 = 1/t2
983            t4 = t1*t3
984            t5 = gammaaa**5.0d-1
985            t6 = t5**7
986            t7 = 1/rhoa**9.333333333333333d+0
987            t8 = gammaaa**3
988            t9 = 1/rhoa**8
989            t10 = t5**5
990            t11 = 1/rhoa**6.666666666666667d+0
991            t12 = gammaaa**2
992            t13 = 1/rhoa**5.333333333333333d+0
993            t14 = t5**3
994            t15 = 1/rhoa**4
995            t16 = 1/rhoa**2.6666666666666666d+0
996            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
997     1         7+2.631878392200375d-4*gammaaa*t16+1.8005513133540818d-4*
998     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
999     3         10*t11
1000            t18 = t5**9
1001            t19 = 1/rhoa**12
1002            t20 = gammaaa**4
1003            t21 = 1/rhoa**1.0666666666666666d+1
1004            t22 = rhoa**1.3333333333333333d+0
1005            t23 = 1/t22
1006            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
1007     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
1008     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
1009     3         mmaaa*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
1010     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
1011            t25 = 1/t24
1012            t26 = 1.6455307846020562d-2*gammaaa*t16*t17*t25
1013            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
1014            t28 = 1/t27
1015            t29 = t27**5.0d-1
1016            t30 = 1/t29
1017            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
1018            t32 = 1/t31
1019            t33 = 4.1138269615051404d-3*gammaaa*t16+1.0d+0
1020            t34 = 1/t33
1021            t35 = 5.136628594837797d-3*gammaaa*t16*t34+6.934448603031025
1022     1         d-2*gammaaa*t16*t17*t25+1.0d+0
1023            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
1024            t37 = t27*t31
1025            t38 = 1/t37**2.0d+0
1026            t39 = t1**2
1027            t40 = 1/rhoa**6.666666666666666d-1
1028            t41 = 6.582123138408225d-2*t39*t40
1029            t42 = (t41+t26)**5.0d-1
1030            t43 = (t41+t26+6.0965d-1)**5.0d-1
1031            t44 = t43+t42
1032            t45 = 1/t44
1033            t46 = 2.565564877060844d-1*t1*t3
1034            t47 = t46+t43
1035            t48 = 1/t47
1036            t49 = 1.0d+0-6.0965d-1*t45*t48
1037            t50 = log(t49)
1038            t51 = (t41+t26+7.57211d-1)**5.0d-1
1039            t52 = t51+t43
1040            t53 = 1/t52
1041            t54 = 1.475609999999999d-1*t48*t53+1.0d+0
1042            t55 = log(t54)
1043            t56 = t26+7.57211d-1
1044            t57 = t51+t42
1045            t58 = 1/t57
1046            t59 = t51+t46
1047            t60 = 1/t59
1048            t61 = t46+t42
1049            t62 = 1/t61
1050            t63 = t26+6.0965d-1
1051            t64 = t63**2.0d+0
1052            t65 = t63**3.5d+0
1053            t66 = (gammaaa*t16*t17*t25)**5.0d-1
1054            t67 = t56**5.0d-1
1055            t68 = 1.282782438530422d-1*t66-t67
1056            t69 = -2.4d+0*t65*t68-1.417963080724413d+0*t65+2.83637333333
1057     1         3333d-2*t64-9.086532d-1*t63**3.0d+0+4.7459599999999996d-2
1058     2         *t35*t63
1059            t70 = 1/t37**3.0d+0
1060            t71 = t1*t3*t30
1061            t72 = 2.4682961769030842d-2*t71**2.0d+0+2.8862604866934494d-
1062     1         1*t1*t3*t30+1.0d+0
1063            t73 = -8.888888888888888d-1*t69*t70*t72+7.57211d-1*(1.645530
1064     1         7846020562d-2*gammaaa*t16*t17*t25*t58*t62+t56*t58*t60)-2.
1065     2         0d+0*t55*t56+3.2910615692041123d-2*gammaaa*t16*t17*t25*t5
1066     3         0+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
1067     4         28*t32-1.0d+0
1068            t74 = 1/t27**2
1069            t75 = 1/rhoa**3.6666666666666664d+0
1070            t76 = -4.38808209227215d-2*gammaaa*t17*t25*t75
1071            t77 = 1/rhoa**1.0333333333333333d+1
1072            t78 = 1/rhoa**9
1073            t79 = 1/rhoa**7.666666666666667d+0
1074            t80 = 1/rhoa**6.333333333333333d+0
1075            t81 = 1/rhoa**5
1076            t82 = -9.371196275079824d-2*t14*t81+7.379767838723479d-3*t12
1077     1         *t80+2.1757466141021625d-5*t78*t8-3.970606525117923d-4*t1
1078     2         0*t79-1.6407054045998d-6*t6*t77+5.475448834737188d-1*gamm
1079     3         aaa*t75-9.121763297794749d-1*t5/rhoa**2.3333333333333334d
1080     4         +0+6.026316036028103d-8*t20/rhoa**1.1666666666666665d+1-3
1081     5         .7791630611803767d-9*t18/rhoa**13
1082            t83 = 1/t24**2
1083            t84 = -1.6455307846020562d-2*gammaaa*t16*t17*t82*t83
1084            t85 = -7.202205253416327d-4*t14*t81+2.3159461868101344d-4*t1
1085     1         2*t80+3.462141917580374d-6*t78*t8-3.5347308712216d-5*t10*
1086     2         t79-2.2515574897849044d-7*t6*t77-7.018342379201d-4*gammaa
1087     3         a*t75
1088            t86 = 1.6455307846020562d-2*gammaaa*t16*t25*t85
1089            t87 = t86+t84+t76-4.38808209227215d-2*t1*t23*t4
1090            t88 = 1/t33**2
1091            t89 = 5.634986987915197d-5*t12*t80*t88+6.934448603031025d-2*
1092     1         gammaaa*t16*t25*t85-6.934448603031025d-2*gammaaa*t16*t17*
1093     2         t82*t83-1.369767625290079d-2*gammaaa*t34*t75-1.8491862941
1094     3         416065d-1*gammaaa*t17*t25*t75
1095            t90 = t86+t84+t76-4.38808209227215d-2*t39/rhoa**1.6666666666
1096     1         666669d+0
1097            t91 = 1/t43
1098            t92 = 5.0d-1*t90*t91
1099            t93 = -8.551882923536147d-2*t1*t23
1100            t94 = t93+t92
1101            t95 = 1/t47**2
1102            t96 = 1/t42
1103            t97 = 5.0d-1*t90*t96
1104            t98 = 1/t44**2
1105            t99 = 1/t49
1106            t100 = t86+t84+t76
1107            t101 = 1/t51
1108            t102 = 5.0d-1*t101*t90
1109            t103 = 1/t52**2
1110            t104 = 1/t54
1111            t105 = 1/t59**2
1112            t106 = t97+t102
1113            t107 = 1/t57**2
1114            t108 = 1/t61**2
1115            t109 = t63**2.5d+0
1116            t110 = 1/t67
1117            t111 = 1/t66
1118            t112 = 1/t31**2
1119            t113 = 1/t29**3
1120            t114 = -1.282782438530422d-1*t1*t113*t3*t87-8.55188292353614
1121     1         7d-2*t1*t23*t30
1122            t115 = t31*t87+t114*t27
1123            t116 = 1/t37**4.0d+0
1124            t117 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
1125     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
1126     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t23/
1127     3         t5-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t14
1128     4         -2.767412939521305d-3*gammaaa*t13
1129            t118 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
1130     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
1131     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammaaa
1132     3         *t13
1133            t119 = -1.6455307846020562d-2*gammaaa*t117*t16*t17*t83+1.645
1134     1         5307846020562d-2*t16*t17*t25+1.6455307846020562d-2*gammaa
1135     2         a*t118*t16*t25
1136            t120 = -2.113120120468199d-5*gammaaa*t13*t88-6.9344486030310
1137     1         25d-2*gammaaa*t117*t16*t17*t83+5.136628594837797d-3*t16*t
1138     2         34+6.934448603031025d-2*t16*t17*t25+6.934448603031025d-2*
1139     3         gammaaa*t118*t16*t25
1140            t121 = 5.0d-1*t119*t96
1141            t122 = 5.0d-1*t119*t91
1142            t123 = 5.0d-1*t101*t119
1143            t124 = t123+t121
1144            t125 = t119*t31-1.282782438530422d-1*t1*t119*t3*t30
1145            fnc(iq) = fnc(iq)-9.305257363491d-1*t22*t73*wght
1146            Amat(iq,D1_RA) = -9.305257363491d-1*t22*(3.2910615692041123d
1147     1         -2*gammaaa*t16*t17*t25*(6.0965d-1*t48*(t97+t92)*t98+6.096
1148     2         5d-1*t45*t94*t95)*t99+7.57211d-1*(-1.6455307846020562d-2*
1149     3         gammaaa*t108*t16*t17*t25*t58*(t97+t93)-t105*t56*t58*(t93+
1150     4         t102)+1.6455307846020562d-2*gammaaa*t16*t25*t58*t62*t85-1
1151     5         .6455307846020562d-2*gammaaa*t16*t17*t58*t62*t82*t83-4.38
1152     6         808209227215d-2*gammaaa*t17*t25*t58*t62*t75-1.64553078460
1153     7         20562d-2*gammaaa*t106*t107*t16*t17*t25*t62+t100*t58*t60-t
1154     8         106*t107*t56*t60)-2.0d+0*t104*t56*(-1.475609999999999d-1*
1155     9         t53*t94*t95-1.475609999999999d-1*t103*t48*(t92+t102))-8.8
1156     :         88888888888888d-1*t70*t72*(4.7459599999999996d-2*t63*t89-
1157     ;         2.4d+0*t65*(6.41391219265211d-2*t111*(gammaaa*t16*t25*t85
1158     <         -gammaaa*t16*t17*t82*t83-2.6666666666666666d+0*gammaaa*t1
1159     =         7*t25*t75)-5.0d-1*t100*t110)-8.400000000000001d+0*t100*t1
1160     >         09*t68-2.7259596d+0*t100*t64+5.672746666666666d-2*t100*t6
1161     ?         3+4.7459599999999996d-2*t100*t35-4.9628707825354457d+0*t1
1162     @         00*t109)+5.273288888888887d-2*t36*t38*t89-8.8888888888888
1163     1         88d-1*t69*t70*(4.9365923538061685d-2*t71*(-5.0d-1*t1*t113
1164     2         *t3*t87-3.333333333333333d-1*t1*t23*t30)-1.44313024334672
1165     3         47d-1*t1*t113*t3*t87-9.620868288978164d-2*t1*t23*t30)+5.2
1166     4         73288888888887d-2*t35*t38*(-6.41391219265211d-2*t1*t113*t
1167     5         3*t87-4.2759414617680735d-2*t1*t23*t30)-4.727288888888889
1168     6         d-2*t32*t74*t87+3.2910615692041123d-2*gammaaa*t16*t25*t50
1169     7         *t85-3.2910615692041123d-2*gammaaa*t16*t17*t50*t82*t83-8.
1170     8         7761641845443d-2*gammaaa*t17*t25*t50*t75+2.66666666666666
1171     9         66d+0*t115*t116*t69*t72-1.0546577777777776d-1*t115*t35*t3
1172     :         6*t70-2.0d+0*t100*t55-4.727288888888889d-2*t112*t114*t28)
1173     ;         *wght-1.2407009817987999d+0*t2*t73*wght+Amat(iq,D1_RA)
1174            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t22*(3.2
1175     1         910615692041123d-2*gammaaa*t16*t17*t25*(6.0965d-1*(t122+t
1176     2         121)*t48*t98+3.04825d-1*t119*t45*t91*t95)*t99+7.57211d-1*
1177     3         (-8.227653923010281d-3*gammaaa*t108*t119*t16*t17*t25*t58*
1178     4         t96-1.6455307846020562d-2*gammaaa*t117*t16*t17*t58*t62*t8
1179     5         3+1.6455307846020562d-2*t16*t17*t25*t58*t62+1.64553078460
1180     6         20562d-2*gammaaa*t118*t16*t25*t58*t62-1.6455307846020562d
1181     7         -2*gammaaa*t107*t124*t16*t17*t25*t62+t119*t58*t60-t107*t1
1182     8         24*t56*t60-5.0d-1*t101*t105*t119*t56*t58)-2.0d+0*t104*t56
1183     9         *(-7.378049999999994d-2*t119*t53*t91*t95-1.47560999999999
1184     :         9d-1*t103*(t123+t122)*t48)+t70*(-8.888888888888888d-1*t72
1185     ;         *(-2.4d+0*t65*(6.41391219265211d-2*t111*(-gammaaa*t117*t1
1186     <         6*t17*t83+t16*t17*t25+gammaaa*t118*t16*t25)-5.0d-1*t110*t
1187     =         119)-8.400000000000001d+0*t109*t119*t68-2.7259596d+0*t119
1188     >         *t64+4.7459599999999996d-2*t120*t63+5.672746666666666d-2*
1189     ?         t119*t63+4.7459599999999996d-2*t119*t35-4.962870782535445
1190     @         7d+0*t109*t119)-8.888888888888888d-1*t69*(-2.468296176903
1191     1         0842d-2*t119*t39*t40*t74-1.4431302433467247d-1*t1*t113*t1
1192     2         19*t3)-1.0546577777777776d-1*t125*t35*t36)-3.291061569204
1193     3         1123d-2*gammaaa*t117*t16*t17*t50*t83-4.727288888888889d-2
1194     4         *t119*t32*t74+2.6666666666666666d+0*t116*t125*t69*t72-2.0
1195     5         d+0*t119*t55+t16*t25*(3.2910615692041123d-2*t17*t50+3.291
1196     6         0615692041123d-2*gammaaa*t118*t50)+5.273288888888887d-2*t
1197     7         120*t36*t38-3.3822411899821336d-3*t1*t113*t119*t3*t35*t38
1198     8         +6.064083168526658d-3*t1*t112*t119*t3/t29**5)*wght
1199          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
1200            t1 = param(1)
1201            t2 = rhob**3.333333333333333d-1
1202            t3 = 1/t2
1203            t4 = t1*t3
1204            t5 = gammabb**5.0d-1
1205            t6 = t5**7
1206            t7 = 1/rhob**9.333333333333333d+0
1207            t8 = gammabb**3
1208            t9 = 1/rhob**8
1209            t10 = t5**5
1210            t11 = 1/rhob**6.666666666666667d+0
1211            t12 = gammabb**2
1212            t13 = 1/rhob**5.333333333333333d+0
1213            t14 = t5**3
1214            t15 = 1/rhob**4
1215            t16 = 1/rhob**2.6666666666666666d+0
1216            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
1217     1         7+2.631878392200375d-4*gammabb*t16+1.8005513133540818d-4*
1218     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
1219     3         10*t11
1220            t18 = t5**9
1221            t19 = 1/rhob**12
1222            t20 = gammabb**4
1223            t21 = 1/rhob**1.0666666666666666d+1
1224            t22 = rhob**1.3333333333333333d+0
1225            t23 = 1/t22
1226            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
1227     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
1228     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
1229     3         mmabb*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
1230     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
1231            t25 = 1/t24
1232            t26 = 1.6455307846020562d-2*gammabb*t16*t17*t25
1233            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
1234            t28 = 1/t27
1235            t29 = t27**5.0d-1
1236            t30 = 1/t29
1237            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
1238            t32 = 1/t31
1239            t33 = 4.1138269615051404d-3*gammabb*t16+1.0d+0
1240            t34 = 1/t33
1241            t35 = 5.136628594837797d-3*gammabb*t16*t34+6.934448603031025
1242     1         d-2*gammabb*t16*t17*t25+1.0d+0
1243            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
1244            t37 = t27*t31
1245            t38 = 1/t37**2.0d+0
1246            t39 = t1**2
1247            t40 = 1/rhob**6.666666666666666d-1
1248            t41 = 6.582123138408225d-2*t39*t40
1249            t42 = (t41+t26)**5.0d-1
1250            t43 = (t41+t26+6.0965d-1)**5.0d-1
1251            t44 = t43+t42
1252            t45 = 1/t44
1253            t46 = 2.565564877060844d-1*t1*t3
1254            t47 = t46+t43
1255            t48 = 1/t47
1256            t49 = 1.0d+0-6.0965d-1*t45*t48
1257            t50 = log(t49)
1258            t51 = (t41+t26+7.57211d-1)**5.0d-1
1259            t52 = t51+t43
1260            t53 = 1/t52
1261            t54 = 1.475609999999999d-1*t48*t53+1.0d+0
1262            t55 = log(t54)
1263            t56 = t26+7.57211d-1
1264            t57 = t51+t42
1265            t58 = 1/t57
1266            t59 = t51+t46
1267            t60 = 1/t59
1268            t61 = t46+t42
1269            t62 = 1/t61
1270            t63 = t26+6.0965d-1
1271            t64 = t63**2.0d+0
1272            t65 = t63**3.5d+0
1273            t66 = (gammabb*t16*t17*t25)**5.0d-1
1274            t67 = t56**5.0d-1
1275            t68 = 1.282782438530422d-1*t66-t67
1276            t69 = -2.4d+0*t65*t68-1.417963080724413d+0*t65+2.83637333333
1277     1         3333d-2*t64-9.086532d-1*t63**3.0d+0+4.7459599999999996d-2
1278     2         *t35*t63
1279            t70 = 1/t37**3.0d+0
1280            t71 = t1*t3*t30
1281            t72 = 2.4682961769030842d-2*t71**2.0d+0+2.8862604866934494d-
1282     1         1*t1*t3*t30+1.0d+0
1283            t73 = -8.888888888888888d-1*t69*t70*t72+7.57211d-1*(1.645530
1284     1         7846020562d-2*gammabb*t16*t17*t25*t58*t62+t56*t58*t60)-2.
1285     2         0d+0*t55*t56+3.2910615692041123d-2*gammabb*t16*t17*t25*t5
1286     3         0+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
1287     4         28*t32-1.0d+0
1288            t74 = 1/t27**2
1289            t75 = 1/rhob**3.6666666666666664d+0
1290            t76 = -4.38808209227215d-2*gammabb*t17*t25*t75
1291            t77 = 1/rhob**1.0333333333333333d+1
1292            t78 = 1/rhob**9
1293            t79 = 1/rhob**7.666666666666667d+0
1294            t80 = 1/rhob**6.333333333333333d+0
1295            t81 = 1/rhob**5
1296            t82 = -9.371196275079824d-2*t14*t81+7.379767838723479d-3*t12
1297     1         *t80+2.1757466141021625d-5*t78*t8-3.970606525117923d-4*t1
1298     2         0*t79-1.6407054045998d-6*t6*t77+5.475448834737188d-1*gamm
1299     3         abb*t75-9.121763297794749d-1*t5/rhob**2.3333333333333334d
1300     4         +0+6.026316036028103d-8*t20/rhob**1.1666666666666665d+1-3
1301     5         .7791630611803767d-9*t18/rhob**13
1302            t83 = 1/t24**2
1303            t84 = -1.6455307846020562d-2*gammabb*t16*t17*t82*t83
1304            t85 = -7.202205253416327d-4*t14*t81+2.3159461868101344d-4*t1
1305     1         2*t80+3.462141917580374d-6*t78*t8-3.5347308712216d-5*t10*
1306     2         t79-2.2515574897849044d-7*t6*t77-7.018342379201d-4*gammab
1307     3         b*t75
1308            t86 = 1.6455307846020562d-2*gammabb*t16*t25*t85
1309            t87 = t86+t84+t76-4.38808209227215d-2*t1*t23*t4
1310            t88 = 1/t33**2
1311            t89 = 5.634986987915197d-5*t12*t80*t88+6.934448603031025d-2*
1312     1         gammabb*t16*t25*t85-6.934448603031025d-2*gammabb*t16*t17*
1313     2         t82*t83-1.369767625290079d-2*gammabb*t34*t75-1.8491862941
1314     3         416065d-1*gammabb*t17*t25*t75
1315            t90 = t86+t84+t76-4.38808209227215d-2*t39/rhob**1.6666666666
1316     1         666669d+0
1317            t91 = 1/t43
1318            t92 = 5.0d-1*t90*t91
1319            t93 = -8.551882923536147d-2*t1*t23
1320            t94 = t93+t92
1321            t95 = 1/t47**2
1322            t96 = 1/t42
1323            t97 = 5.0d-1*t90*t96
1324            t98 = 1/t44**2
1325            t99 = 1/t49
1326            t100 = t86+t84+t76
1327            t101 = 1/t51
1328            t102 = 5.0d-1*t101*t90
1329            t103 = 1/t52**2
1330            t104 = 1/t54
1331            t105 = 1/t59**2
1332            t106 = t97+t102
1333            t107 = 1/t57**2
1334            t108 = 1/t61**2
1335            t109 = t63**2.5d+0
1336            t110 = 1/t67
1337            t111 = 1/t66
1338            t112 = 1/t31**2
1339            t113 = 1/t29**3
1340            t114 = -1.282782438530422d-1*t1*t113*t3*t87-8.55188292353614
1341     1         7d-2*t1*t23*t30
1342            t115 = t31*t87+t114*t27
1343            t116 = 1/t37**4.0d+0
1344            t117 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
1345     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
1346     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t23/
1347     3         t5-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t14
1348     4         -2.767412939521305d-3*gammabb*t13
1349            t118 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
1350     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
1351     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammabb
1352     3         *t13
1353            t119 = -1.6455307846020562d-2*gammabb*t117*t16*t17*t83+1.645
1354     1         5307846020562d-2*t16*t17*t25+1.6455307846020562d-2*gammab
1355     2         b*t118*t16*t25
1356            t120 = -2.113120120468199d-5*gammabb*t13*t88-6.9344486030310
1357     1         25d-2*gammabb*t117*t16*t17*t83+5.136628594837797d-3*t16*t
1358     2         34+6.934448603031025d-2*t16*t17*t25+6.934448603031025d-2*
1359     3         gammabb*t118*t16*t25
1360            t121 = 5.0d-1*t119*t96
1361            t122 = 5.0d-1*t119*t91
1362            t123 = 5.0d-1*t101*t119
1363            t124 = t123+t121
1364            t125 = t119*t31-1.282782438530422d-1*t1*t119*t3*t30
1365            fnc(iq) = fnc(iq)-9.305257363491d-1*t22*t73*wght
1366            Amat(iq,D1_RB) = -9.305257363491d-1*t22*(3.2910615692041123d
1367     1         -2*gammabb*t16*t17*t25*(6.0965d-1*t48*(t97+t92)*t98+6.096
1368     2         5d-1*t45*t94*t95)*t99+7.57211d-1*(-1.6455307846020562d-2*
1369     3         gammabb*t108*t16*t17*t25*t58*(t97+t93)-t105*t56*t58*(t93+
1370     4         t102)+1.6455307846020562d-2*gammabb*t16*t25*t58*t62*t85-1
1371     5         .6455307846020562d-2*gammabb*t16*t17*t58*t62*t82*t83-4.38
1372     6         808209227215d-2*gammabb*t17*t25*t58*t62*t75-1.64553078460
1373     7         20562d-2*gammabb*t106*t107*t16*t17*t25*t62+t100*t58*t60-t
1374     8         106*t107*t56*t60)-2.0d+0*t104*t56*(-1.475609999999999d-1*
1375     9         t53*t94*t95-1.475609999999999d-1*t103*t48*(t92+t102))-8.8
1376     :         88888888888888d-1*t70*t72*(4.7459599999999996d-2*t63*t89-
1377     ;         2.4d+0*t65*(6.41391219265211d-2*t111*(gammabb*t16*t25*t85
1378     <         -gammabb*t16*t17*t82*t83-2.6666666666666666d+0*gammabb*t1
1379     =         7*t25*t75)-5.0d-1*t100*t110)-8.400000000000001d+0*t100*t1
1380     >         09*t68-2.7259596d+0*t100*t64+5.672746666666666d-2*t100*t6
1381     ?         3+4.7459599999999996d-2*t100*t35-4.9628707825354457d+0*t1
1382     @         00*t109)+5.273288888888887d-2*t36*t38*t89-8.8888888888888
1383     1         88d-1*t69*t70*(4.9365923538061685d-2*t71*(-5.0d-1*t1*t113
1384     2         *t3*t87-3.333333333333333d-1*t1*t23*t30)-1.44313024334672
1385     3         47d-1*t1*t113*t3*t87-9.620868288978164d-2*t1*t23*t30)+5.2
1386     4         73288888888887d-2*t35*t38*(-6.41391219265211d-2*t1*t113*t
1387     5         3*t87-4.2759414617680735d-2*t1*t23*t30)-4.727288888888889
1388     6         d-2*t32*t74*t87+3.2910615692041123d-2*gammabb*t16*t25*t50
1389     7         *t85-3.2910615692041123d-2*gammabb*t16*t17*t50*t82*t83-8.
1390     8         7761641845443d-2*gammabb*t17*t25*t50*t75+2.66666666666666
1391     9         66d+0*t115*t116*t69*t72-1.0546577777777776d-1*t115*t35*t3
1392     :         6*t70-2.0d+0*t100*t55-4.727288888888889d-2*t112*t114*t28)
1393     ;         *wght-1.2407009817987999d+0*t2*t73*wght+Amat(iq,D1_RB)
1394            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)-9.305257363491d-1*t22*(3.2
1395     1         910615692041123d-2*gammabb*t16*t17*t25*(6.0965d-1*(t122+t
1396     2         121)*t48*t98+3.04825d-1*t119*t45*t91*t95)*t99+7.57211d-1*
1397     3         (-8.227653923010281d-3*gammabb*t108*t119*t16*t17*t25*t58*
1398     4         t96-1.6455307846020562d-2*gammabb*t117*t16*t17*t58*t62*t8
1399     5         3+1.6455307846020562d-2*t16*t17*t25*t58*t62+1.64553078460
1400     6         20562d-2*gammabb*t118*t16*t25*t58*t62-1.6455307846020562d
1401     7         -2*gammabb*t107*t124*t16*t17*t25*t62+t119*t58*t60-t107*t1
1402     8         24*t56*t60-5.0d-1*t101*t105*t119*t56*t58)-2.0d+0*t104*t56
1403     9         *(-7.378049999999994d-2*t119*t53*t91*t95-1.47560999999999
1404     :         9d-1*t103*(t123+t122)*t48)+t70*(-8.888888888888888d-1*t72
1405     ;         *(-2.4d+0*t65*(6.41391219265211d-2*t111*(-gammabb*t117*t1
1406     <         6*t17*t83+t16*t17*t25+gammabb*t118*t16*t25)-5.0d-1*t110*t
1407     =         119)-8.400000000000001d+0*t109*t119*t68-2.7259596d+0*t119
1408     >         *t64+4.7459599999999996d-2*t120*t63+5.672746666666666d-2*
1409     ?         t119*t63+4.7459599999999996d-2*t119*t35-4.962870782535445
1410     @         7d+0*t109*t119)-8.888888888888888d-1*t69*(-2.468296176903
1411     1         0842d-2*t119*t39*t40*t74-1.4431302433467247d-1*t1*t113*t1
1412     2         19*t3)-1.0546577777777776d-1*t125*t35*t36)-3.291061569204
1413     3         1123d-2*gammabb*t117*t16*t17*t50*t83-4.727288888888889d-2
1414     4         *t119*t32*t74+2.6666666666666666d+0*t116*t125*t69*t72-2.0
1415     5         d+0*t119*t55+t16*t25*(3.2910615692041123d-2*t17*t50+3.291
1416     6         0615692041123d-2*gammabb*t118*t50)+5.273288888888887d-2*t
1417     7         120*t36*t38-3.3822411899821336d-3*t1*t113*t119*t3*t35*t38
1418     8         +6.064083168526658d-3*t1*t112*t119*t3/t29**5)*wght
1419          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
1420        endif ! ipol.eq.1
1421      enddo ! iq
1422      end
1423C>
1424C> \brief Evaluate the nwxcm_x_wpbe functional [1]
1425C>
1426C> \f{eqnarray*}{
1427C>   {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\
1428C>   {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\
1429C>   {\it t_3} &=& {{1}\over{\rho_\alpha^4}}\\\\
1430C>   {\it t_4} &=& \sqrt{\sigma_{\alpha\alpha}}\\\\
1431C>   {\it t_5} &=& {\it t_4}^3\\\\
1432C>   {\it t_6} &=& {{1}\over{\rho_\alpha^{{{16}\over{3}}}}}\\\\
1433C>   {\it t_7} &=& \sigma_{\alpha\alpha}^2\\\\
1434C>   {\it t_8} &=& {{1}\over{\rho_\alpha^{{{20}\over{3}}}}}\\\\
1435C>   {\it t_9} &=& {\it t_4}^5\\\\
1436C>   {\it t_{10}} &=& {{1}\over{\rho_\alpha^8}}\\\\
1437C>   {\it t_{11}} &=& \sigma_{\alpha\alpha}^3\\\\
1438C>   {\it t_{12}} &=& {{1}\over{\rho_\alpha^{{{28}\over{3}}}}}\\\\
1439C>   {\it t_{13}} &=& {\it t_4}^7\\\\
1440C>   {\it t_{14}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{12}}
1441C>    \,{\it t_{13}}-4.327677396975467 \times 10^{-7}\,{\it t_{10}}
1442C>    \,{\it t_{11}}+5.3020963068324 \times 10^{-6}\,{\it t_8}\,{
1443C>    \it t_9}-4.342399100269002 \times 10^{-5}\,{\it t_6}\,{\it t_7}
1444C>    +1.800551313354082 \times 10^{-4}\,{\it t_3}\,{\it t_5}
1445C>    +2.631878392200375 \times 10^{-4}\,{\it t_2}\,
1446C>    \sigma_{\alpha\alpha}\\\\
1447C>   {\it t_{15}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
1448C>    \,{\it t_4}^9}\over{\rho_\alpha^{12}}}
1449C>    -{{5.649671283776346 \times 10^{-9}\,
1450C>    \sigma_{\alpha\alpha}^4}\over{\rho_\alpha^{{{32}\over{3}}}}}
1451C>    +1.7578986477855 \times 10^{-7}\,{\it t_{12}}\,{\it t_{13}}
1452C>    -2.719683267627703 \times 10^{-6}\,{\it t_{10}}\,{\it t_{11}}
1453C>    +5.955909787676884 \times 10^{-5}\,{\it t_8}\,{\it t_9}
1454C>    -0.001383706469760652\,{\it t_6}\,{\it t_7}
1455C>    +0.02342799068769956\,{\it t_3}\,{\it t_5}-0.2053293313026446
1456C>    \,{\it t_2}\,\sigma_{\alpha\alpha}+{{0.6841322473346062\,{
1457C>    \it t_4}}\over{{\it t_1}}}+1.0}}\\\\
1458C>   {\it t_{16}} &=& 0.01645530784602056\,{\it t_2}\,
1459C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}\\\\
1460C>   {\it t_{17}} &=& {\it t_{16}}+0.60965\\\\
1461C>   {\it t_{18}} &=& 0.06934448603031025\,{\it t_2}\,
1462C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}
1463C>    +{{0.005136628594837796\,{\it t_2}\,
1464C>    \sigma_{\alpha\alpha}}\over{0.00411382696150514\,{\it t_2}
1465C>    \,\sigma_{\alpha\alpha}+1.0}}+1.0\\\\
1466C>   {\it t_{19}} &=& {\it t_{17}}^{3.5}\\\\
1467C>   {\it t_{20}} &=& {\it t_{16}}+0.757211\\\\
1468C>   {\it t_{21}} &=& {\it param}\left(1\right)\\\\
1469C>   {\it t_{22}} &=& {{1}\over{\rho_\alpha^{{{1}\over{3}}}}}\\\\
1470C>   {\it t_{23}} &=& {\it t_{16}}+0.06582123138408225\,\left({
1471C>    \it t_{21}}\,{\it t_{22}}\right)^{2.0}+0.60965\\\\
1472C>   {\it t_{24}} &=& {{1}\over{\sqrt{{\it t_{23}}}}}\\\\
1473C>   {\it t_{25}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{22}}
1474C>    \,{\it t_{24}}+1.0\\\\
1475C>   {\it t_{26}} &=& {\it t_{23}}\,{\it t_{25}}\\\\
1476C>   {\it t_{27}} &=& 0.2565564877060844\,{\it t_{21}}\,{
1477C>    \it t_{22}}\\\\
1478C>   {\it t_{28}} &=& {\it t_{21}}^2\\\\
1479C>   {\it t_{29}} &=& {{0.06582123138408225\,{\it t_{28}}}
1480C>    \over{\rho_\alpha^{{{2}\over{3}}}}}\\\\
1481C>   {\it t_{30}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}}\\\\
1482C>   {\it t_{31}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}+0.757211}\\\\
1483C>   {\it t_{32}} &=& {{1}\over{{\it t_{31}}+{\it t_{30}}}}\\\\
1484C>   {\it t_{33}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}+0.60965}\\\\
1485C>   {\it t_{34}} &=& {{1}\over{{\it t_{33}}+{\it t_{27}}}}\\\\
1486C>   {\it t_{35}} &=& \rho_\beta^{{{4}\over{3}}}\\\\
1487C>   {\it t_{36}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\
1488C>   {\it t_{37}} &=& {{1}\over{\rho_\beta^4}}\\\\
1489C>   {\it t_{38}} &=& \sqrt{\sigma_{\beta\beta}}\\\\
1490C>   {\it t_{39}} &=& {\it t_{38}}^3\\\\
1491C>   {\it t_{40}} &=& {{1}\over{\rho_\beta^{{{16}\over{3}}}}}\\\\
1492C>   {\it t_{41}} &=& \sigma_{\beta\beta}^2\\\\
1493C>   {\it t_{42}} &=& {{1}\over{\rho_\beta^{{{20}\over{3}}}}}\\\\
1494C>   {\it t_{43}} &=& {\it t_{38}}^5\\\\
1495C>   {\it t_{44}} &=& {{1}\over{\rho_\beta^8}}\\\\
1496C>   {\it t_{45}} &=& \sigma_{\beta\beta}^3\\\\
1497C>   {\it t_{46}} &=& {{1}\over{\rho_\beta^{{{28}\over{3}}}}}\\\\
1498C>   {\it t_{47}} &=& {\it t_{38}}^7\\\\
1499C>   {\it t_{48}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{46}}
1500C>    \,{\it t_{47}}-4.327677396975467 \times 10^{-7}\,{\it t_{44}}
1501C>    \,{\it t_{45}}+5.3020963068324 \times 10^{-6}\,{\it t_{42}}
1502C>    \,{\it t_{43}}-4.342399100269002 \times 10^{-5}\,{\it t_{40}}
1503C>    \,{\it t_{41}}+1.800551313354082 \times 10^{-4}\,{\it t_{37}}
1504C>    \,{\it t_{39}}+2.631878392200375 \times 10^{-4}\,{\it t_{36}}
1505C>    \,\sigma_{\beta\beta}\\\\
1506C>   {\it t_{49}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
1507C>    \,{\it t_{38}}^9}\over{\rho_\beta^{12}}}
1508C>    -{{5.649671283776346 \times 10^{-9}\,
1509C>    \sigma_{\beta\beta}^4}\over{\rho_\beta^{{{32}\over{3}}}}}
1510C>    +1.7578986477855 \times 10^{-7}\,{\it t_{46}}\,{\it t_{47}}
1511C>    -2.719683267627703 \times 10^{-6}\,{\it t_{44}}\,{\it t_{45}}
1512C>    +5.955909787676884 \times 10^{-5}\,{\it t_{42}}\,{\it t_{43}}
1513C>    -0.001383706469760652\,{\it t_{40}}\,{\it t_{41}}
1514C>    +0.02342799068769956\,{\it t_{37}}\,{\it t_{39}}
1515C>    -0.2053293313026446\,{\it t_{36}}\,\sigma_{\beta\beta}
1516C>    +{{0.6841322473346062\,{\it t_{38}}}\over{{\it t_{35}}}}
1517C>    +1.0}}\\\\
1518C>   {\it t_{50}} &=& 0.01645530784602056\,{\it t_{36}}\,
1519C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}\\\\
1520C>   {\it t_{51}} &=& {\it t_{50}}+0.60965\\\\
1521C>   {\it t_{52}} &=& 0.06934448603031025\,{\it t_{36}}\,
1522C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}
1523C>    +{{0.005136628594837796\,{\it t_{36}}\,
1524C>    \sigma_{\beta\beta}}\over{0.00411382696150514\,{\it t_{36}}
1525C>    \,\sigma_{\beta\beta}+1.0}}+1.0\\\\
1526C>   {\it t_{53}} &=& {\it t_{51}}^{3.5}\\\\
1527C>   {\it t_{54}} &=& {\it t_{50}}+0.757211\\\\
1528C>   {\it t_{55}} &=& {{1}\over{\rho_\beta^{{{1}\over{3}}}}}\\\\
1529C>   {\it t_{56}} &=& {\it t_{50}}+0.06582123138408225\,\left({
1530C>    \it t_{21}}\,{\it t_{55}}\right)^{2.0}+0.60965\\\\
1531C>   {\it t_{57}} &=& {{1}\over{\sqrt{{\it t_{56}}}}}\\\\
1532C>   {\it t_{58}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{55}}
1533C>    \,{\it t_{57}}+1.0\\\\
1534C>   {\it t_{59}} &=& {\it t_{56}}\,{\it t_{58}}\\\\
1535C>   {\it t_{60}} &=& 0.2565564877060844\,{\it t_{21}}\,{
1536C>    \it t_{55}}\\\\
1537C>   {\it t_{61}} &=& {{0.06582123138408225\,{\it t_{28}}}
1538C>    \over{\rho_\beta^{{{2}\over{3}}}}}\\\\
1539C>   {\it t_{62}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}}\\\\
1540C>   {\it t_{63}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}+0.757211}\\\\
1541C>   {\it t_{64}} &=& {{1}\over{{\it t_{63}}+{\it t_{62}}}}\\\\
1542C>   {\it t_{65}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}+0.60965}\\\\
1543C>   {\it t_{66}} &=& {{1}\over{{\it t_{65}}+{\it t_{60}}}}\\\\
1544C>   {\it t_{67}} &=& \rho_s^{{{4}\over{3}}}\\\\
1545C>   {\it t_{68}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\
1546C>   {\it t_{69}} &=& {{1}\over{\rho_s^4}}\\\\
1547C>   {\it t_{70}} &=& \sqrt{\sigma_{ss}}\\\\
1548C>   {\it t_{71}} &=& {\it t_{70}}^3\\\\
1549C>   {\it t_{72}} &=& {{1}\over{\rho_s^{{{16}\over{3}}}}}\\\\
1550C>   {\it t_{73}} &=& \sigma_{ss}^2\\\\
1551C>   {\it t_{74}} &=& {{1}\over{\rho_s^{{{20}\over{3}}}}}\\\\
1552C>   {\it t_{75}} &=& {\it t_{70}}^5\\\\
1553C>   {\it t_{76}} &=& {{1}\over{\rho_s^8}}\\\\
1554C>   {\it t_{77}} &=& \sigma_{ss}^3\\\\
1555C>   {\it t_{78}} &=& {{1}\over{\rho_s^{{{28}\over{3}}}}}\\\\
1556C>   {\it t_{79}} &=& {\it t_{70}}^7\\\\
1557C>   {\it t_{80}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{78}}
1558C>    \,{\it t_{79}}-4.327677396975467 \times 10^{-7}\,{\it t_{76}}
1559C>    \,{\it t_{77}}+5.3020963068324 \times 10^{-6}\,{\it t_{74}}
1560C>    \,{\it t_{75}}-4.342399100269002 \times 10^{-5}\,{\it t_{72}}
1561C>    \,{\it t_{73}}+1.800551313354082 \times 10^{-4}\,{\it t_{69}}
1562C>    \,{\it t_{71}}+2.631878392200375 \times 10^{-4}\,{\it t_{68}}
1563C>    \,\sigma_{ss}\\\\
1564C>   {\it t_{81}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
1565C>    \,{\it t_{70}}^9}\over{\rho_s^{12}}}
1566C>    -{{5.649671283776346 \times 10^{-9}\,\sigma_{ss}^4}
1567C>    \over{\rho_s^{{{32}\over{3}}}}}+1.7578986477855 \times 10^{-7}
1568C>    \,{\it t_{78}}\,{\it t_{79}}-2.719683267627703 \times 10^{-6}
1569C>    \,{\it t_{76}}\,{\it t_{77}}+5.955909787676884 \times 10^{-5}
1570C>    \,{\it t_{74}}\,{\it t_{75}}-0.001383706469760652\,{
1571C>    \it t_{72}}\,{\it t_{73}}+0.02342799068769956\,{\it t_{69}}
1572C>    \,{\it t_{71}}-0.2053293313026446\,{\it t_{68}}\,\sigma_{ss}
1573C>    +{{0.6841322473346062\,{\it t_{70}}}\over{{\it t_{67}}}}
1574C>    +1.0}}\\\\
1575C>   {\it t_{82}} &=& 0.01645530784602056\,{\it t_{68}}\,\sigma_{ss}
1576C>    \,{\it t_{80}}\,{\it t_{81}}\\\\
1577C>   {\it t_{83}} &=& {\it t_{82}}+0.60965\\\\
1578C>   {\it t_{84}} &=& 0.06934448603031025\,{\it t_{68}}\,\sigma_{ss}
1579C>    \,{\it t_{80}}\,{\it t_{81}}+{{0.005136628594837796\,{
1580C>    \it t_{68}}\,\sigma_{ss}}\over{0.00411382696150514\,{
1581C>    \it t_{68}}\,\sigma_{ss}+1.0}}+1.0\\\\
1582C>   {\it t_{85}} &=& {\it t_{83}}^{3.5}\\\\
1583C>   {\it t_{86}} &=& {\it t_{82}}+0.757211\\\\
1584C>   {\it t_{87}} &=& {{1}\over{\rho_s^{{{1}\over{3}}}}}\\\\
1585C>   {\it t_{88}} &=& {\it t_{82}}+0.06582123138408225\,\left({
1586C>    \it t_{21}}\,{\it t_{87}}\right)^{2.0}+0.60965\\\\
1587C>   {\it t_{89}} &=& {{1}\over{\sqrt{{\it t_{88}}}}}\\\\
1588C>   {\it t_{90}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{87}}
1589C>    \,{\it t_{89}}+1.0\\\\
1590C>   {\it t_{91}} &=& {\it t_{88}}\,{\it t_{90}}\\\\
1591C>   {\it t_{92}} &=& 0.2565564877060844\,{\it t_{21}}\,{
1592C>    \it t_{87}}\\\\
1593C>   {\it t_{93}} &=& {{0.06582123138408225\,{\it t_{28}}}
1594C>    \over{\rho_s^{{{2}\over{3}}}}}\\\\
1595C>   {\it t_{94}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}}\\\\
1596C>   {\it t_{95}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}+0.757211}\\\\
1597C>   {\it t_{96}} &=& {{1}\over{{\it t_{95}}+{\it t_{94}}}}\\\\
1598C>   {\it t_{97}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}+0.60965}\\\\
1599C>   {\it t_{98}} &=& {{1}\over{{\it t_{97}}+{\it t_{92}}}}\\\\
1600C>   f &=& -0.9305257363491\,{\it t_{35}}\,\left(-2.0\,{\it t_{54}}
1601C>    \,\log \left({{0.1475609999999999\,{\it t_{66}}}\over{{
1602C>    \it t_{63}}+{\it t_{65}}}}+1.0\right)+0.03291061569204112\,{
1603C>    \it t_{36}}\,\sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}
1604C>    \,\log \left(1.0-{{0.60965\,{\it t_{66}}}\over{{\it t_{65}}
1605C>    +{\it t_{62}}}}\right)+0.757211\,\left({{{\it t_{54}}\,{
1606C>    \it t_{64}}}\over{{\it t_{63}}+{\it t_{60}}}}
1607C>    +{{0.01645530784602056\,{\it t_{36}}\,\sigma_{\beta\beta}\,{
1608C>    \it t_{48}}\,{\it t_{49}}\,{\it t_{64}}}\over{{\it t_{62}}+{
1609C>    \it t_{60}}}}\right)+{{0.05273288888888888\,{\it t_{52}}
1610C>    \,\left(0.1282782438530422\,{\it t_{21}}\,{\it t_{55}}\,{
1611C>    \it t_{57}}+1.0\right)}\over{{\it t_{59}}^{2.0}}}
1612C>    +{{0.04727288888888889}\over{{\it t_{56}}\,{\it t_{58}}}}
1613C>    -{{0.8888888888888888\,\left(-2.4\,{\it t_{53}}\,
1614C>    \left(0.1282782438530422\,\sqrt{{\it t_{36}}\,
1615C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}}-\sqrt{{
1616C>    \it t_{54}}}\right)-1.417963080724413\,{\it t_{53}}-0.9086532
1617C>    \,{\it t_{51}}^{3.0}+0.02836373333333333\,{\it t_{51}}^{2.0}
1618C>    +0.0474596\,{\it t_{51}}\,{\it t_{52}}\right)\,
1619C>    \left(0.02468296176903084\,\left({\it t_{21}}\,{\it t_{55}}
1620C>    \,{\it t_{57}}\right)^{2.0}+0.2886260486693449\,{\it t_{21}}
1621C>    \,{\it t_{55}}\,{\it t_{57}}+1.0\right)}\over{{
1622C>    \it t_{59}}^{3.0}}}-1.0\right)-0.9305257363491\,{\it t_1}
1623C>    \,\left(-2.0\,{\it t_{20}}\,\log \left({{0.1475609999999999
1624C>    \,{\it t_{34}}}\over{{\it t_{31}}+{\it t_{33}}}}+1.0\right)
1625C>    +0.03291061569204112\,{\it t_2}\,\sigma_{\alpha\alpha}\,{
1626C>    \it t_{14}}\,{\it t_{15}}\,\log \left(1.0-{{0.60965\,{
1627C>    \it t_{34}}}\over{{\it t_{33}}+{\it t_{30}}}}\right)+0.757211
1628C>    \,\left({{{\it t_{20}}\,{\it t_{32}}}\over{{\it t_{31}}+{
1629C>    \it t_{27}}}}+{{0.01645530784602056\,{\it t_2}\,
1630C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}\,{
1631C>    \it t_{32}}}\over{{\it t_{30}}+{\it t_{27}}}}\right)
1632C>    +{{0.05273288888888888\,{\it t_{18}}\,\left(0.1282782438530422
1633C>    \,{\it t_{21}}\,{\it t_{22}}\,{\it t_{24}}+1.0\right)}
1634C>    \over{{\it t_{26}}^{2.0}}}+{{0.04727288888888889}\over{{
1635C>    \it t_{23}}\,{\it t_{25}}}}-{{0.8888888888888888\,\left(-2.4
1636C>    \,{\it t_{19}}\,\left(0.1282782438530422\,\sqrt{{\it t_2}
1637C>    \,\sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}}-\sqrt{{
1638C>    \it t_{20}}}\right)-1.417963080724413\,{\it t_{19}}-0.9086532
1639C>    \,{\it t_{17}}^{3.0}+0.02836373333333333\,{\it t_{17}}^{2.0}
1640C>    +0.0474596\,{\it t_{17}}\,{\it t_{18}}\right)\,
1641C>    \left(0.02468296176903084\,\left({\it t_{21}}\,{\it t_{22}}
1642C>    \,{\it t_{24}}\right)^{2.0}+0.2886260486693449\,{\it t_{21}}
1643C>    \,{\it t_{22}}\,{\it t_{24}}+1.0\right)}\over{{
1644C>    \it t_{26}}^{3.0}}}-1.0\right)\\\\
1645C>   g &=& 0\\\\
1646C>   G &=& -0.9305257363491\,{\it t_{67}}\,\left(-2.0\,{\it t_{86}}
1647C>    \,\log \left({{0.1475609999999999\,{\it t_{98}}}\over{{
1648C>    \it t_{95}}+{\it t_{97}}}}+1.0\right)+0.03291061569204112\,{
1649C>    \it t_{68}}\,\sigma_{ss}\,{\it t_{80}}\,{\it t_{81}}
1650C>    \,\log \left(1.0-{{0.60965\,{\it t_{98}}}\over{{\it t_{97}}
1651C>    +{\it t_{94}}}}\right)+0.757211\,\left({{{\it t_{86}}\,{
1652C>    \it t_{96}}}\over{{\it t_{95}}+{\it t_{92}}}}
1653C>    +{{0.01645530784602056\,{\it t_{68}}\,\sigma_{ss}\,{
1654C>    \it t_{80}}\,{\it t_{81}}\,{\it t_{96}}}\over{{\it t_{94}}+{
1655C>    \it t_{92}}}}\right)+{{0.05273288888888888\,{\it t_{84}}
1656C>    \,\left(0.1282782438530422\,{\it t_{21}}\,{\it t_{87}}\,{
1657C>    \it t_{89}}+1.0\right)}\over{{\it t_{91}}^{2.0}}}
1658C>    +{{0.04727288888888889}\over{{\it t_{88}}\,{\it t_{90}}}}
1659C>    -{{0.8888888888888888\,\left(-2.4\,{\it t_{85}}\,
1660C>    \left(0.1282782438530422\,\sqrt{{\it t_{68}}\,\sigma_{ss}\,{
1661C>    \it t_{80}}\,{\it t_{81}}}-\sqrt{{\it t_{86}}}\right)
1662C>    -1.417963080724413\,{\it t_{85}}-0.9086532\,{\it t_{83}}^{3.0}
1663C>    +0.02836373333333333\,{\it t_{83}}^{2.0}+0.0474596\,{
1664C>    \it t_{83}}\,{\it t_{84}}\right)\,\left(0.02468296176903084
1665C>    \,\left({\it t_{21}}\,{\it t_{87}}\,{\it t_{89}}\right)^{2.0}
1666C>    +0.2886260486693449\,{\it t_{21}}\,{\it t_{87}}\,{\it t_{89}}
1667C>    +1.0\right)}\over{{\it t_{91}}^{3.0}}}-1.0\right)\\\\
1668C> \f}
1669C>
1670C> Code generated with Maxima 5.34.0 [2]
1671C> driven by autoxc [3].
1672C>
1673C> ### References ###
1674C>
1675C> [1] E Weintraub, TM Henderson, GE Scuseria
1676C>    , J.Chem.Theory.Comput. 5, 754 (2009)  , DOI:
1677C> <a href="https://doi.org/10.1021/ct800530u ">
1678C> 10.1021/ct800530u </a>
1679C>
1680C> [2] Maxima, a computer algebra system,
1681C> <a href="http://maxima.sourceforge.net/">
1682C> http://maxima.sourceforge.net/</a>
1683C>
1684C> [3] autoxc, revision 27097 2015-05-08
1685C>
1686      subroutine nwxcm_x_wpbe_d2(param,tol_rho,ipol,nq,wght,
1687     +rho,rgamma,fnc,Amat,Amat2,Cmat,Cmat2)
1688c $Id: $
1689#ifdef NWXC_QUAD_PREC
1690      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
1691      integer, parameter :: rk=selected_real_kind(30)
1692#else
1693      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
1694      integer, parameter :: rk=selected_real_kind(15)
1695#endif
1696#include "nwxc_param.fh"
1697      double precision param(*)     !< [Input] Parameters of functional
1698      double precision tol_rho      !< [Input] The lower limit on the density
1699      integer ipol                  !< [Input] The number of spin channels
1700      integer nq                    !< [Input] The number of points
1701      double precision wght         !< [Input] The weight of the functional
1702      double precision rho(nq,*)    !< [Input] The density
1703      double precision rgamma(nq,*) !< [Input] The norm of the density
1704                                    !< gradients
1705      double precision fnc(nq)      !< [Output] The value of the functional
1706c
1707c     Sampling Matrices for the XC Kernel
1708c
1709      double precision Amat(nq,*)   !< [Output] The derivative wrt rho
1710      double precision Cmat(nq,*)   !< [Output] The derivative wrt rgamma
1711c
1712c     Sampling Matrices for the XC Kernel
1713c
1714      double precision Amat2(nq,*)  !< [Output] The 2nd derivative wrt rho
1715      double precision Cmat2(nq,*)  !< [Output] The 2nd derivative wrt rgamma
1716                                    !< and possibly rho
1717      integer iq
1718      double precision tmp
1719      double precision rhoa,rhob
1720      double precision gammaaa,gammaab,gammabb
1721      double precision taua,taub
1722      double precision nwxcm_heaviside
1723      external         nwxcm_heaviside
1724CDIR$ NOVECTOR
1725      do iq = 1, nq
1726        if (ipol.eq.1) then
1727          rhoa    = 0.5d0*rho(iq,R_T)
1728          gammaaa = 0.25d0*rgamma(iq,G_TT)
1729          if (rhoa.gt.tol_rho) then
1730            t1 = param(1)
1731            t2 = rhoa**3.333333333333333d-1
1732            t3 = 1/t2
1733            t4 = gammaaa**5.0d-1
1734            t5 = t4**7
1735            t6 = 1/rhoa**9.333333333333333d+0
1736            t7 = gammaaa**3
1737            t8 = 1/rhoa**8
1738            t9 = t4**5
1739            t10 = 1/rhoa**6.666666666666667d+0
1740            t11 = gammaaa**2
1741            t12 = 1/rhoa**5.333333333333333d+0
1742            t13 = t4**3
1743            t14 = 1/rhoa**4
1744            t15 = 1/rhoa**2.6666666666666666d+0
1745            t16 = 5.3020963068324d-6*t10*t9-4.327677396975467d-7*t7*t8+2
1746     1         .4123830247695402d-8*t5*t6+2.631878392200375d-4*gammaaa*t
1747     2         15+1.8005513133540818d-4*t13*t14-4.342399100269002d-5*t11
1748     3         *t12
1749            t17 = t4**9
1750            t18 = 1/rhoa**12
1751            t19 = gammaaa**4
1752            t20 = 1/rhoa**1.0666666666666666d+1
1753            t21 = rhoa**1.3333333333333333d+0
1754            t22 = 1/t21
1755            t23 = 5.955909787676884d-5*t10*t9-2.7196832676277033d-6*t7*t
1756     1         8+1.7578986477855002d-7*t5*t6+6.841322473346062d-1*t22*t4
1757     2         -5.649671283776346d-9*t19*t20+3.149302550983647d-10*t17*t
1758     3         18-2.0532933130264455d-1*gammaaa*t15+2.342799068769956d-2
1759     4         *t13*t14-1.3837064697606524d-3*t11*t12+1.0d+0
1760            t24 = 1/t23
1761            t25 = 1.6455307846020562d-2*gammaaa*t15*t16*t24
1762            t26 = 6.582123138408225d-2*(t1*t3)**2.0d+0+t25+6.0965d-1
1763            t27 = 1/t26
1764            t28 = t26**5.0d-1
1765            t29 = 1/t28
1766            t30 = 2.565564877060844d-1*t1*t29*t3+1.0d+0
1767            t31 = 1/t30
1768            t32 = 4.1138269615051404d-3*gammaaa*t15+1.0d+0
1769            t33 = 1/t32
1770            t34 = 5.136628594837797d-3*gammaaa*t15*t33+6.934448603031025
1771     1         d-2*gammaaa*t15*t16*t24+1.0d+0
1772            t35 = 1.282782438530422d-1*t1*t29*t3+1.0d+0
1773            t36 = t26*t30
1774            t37 = 1/t36**2.0d+0
1775            t38 = t1**2
1776            t39 = 1/rhoa**6.666666666666666d-1
1777            t40 = 6.582123138408225d-2*t38*t39
1778            t41 = t40+t25
1779            t42 = t41**5.0d-1
1780            t43 = t40+t25+6.0965d-1
1781            t44 = t43**5.0d-1
1782            t45 = t44+t42
1783            t46 = 1/t45
1784            t47 = 2.565564877060844d-1*t1*t3
1785            t48 = t47+t44
1786            t49 = 1/t48
1787            t50 = 1.0d+0-6.0965d-1*t46*t49
1788            t51 = log(t50)
1789            t52 = t40+t25+7.57211d-1
1790            t53 = t52**5.0d-1
1791            t54 = t53+t44
1792            t55 = 1/t54
1793            t56 = 1.475609999999999d-1*t49*t55+1.0d+0
1794            t57 = log(t56)
1795            t58 = t25+7.57211d-1
1796            t59 = t53+t42
1797            t60 = 1/t59
1798            t61 = t53+t47
1799            t62 = 1/t61
1800            t63 = t47+t42
1801            t64 = 1/t63
1802            t65 = t25+6.0965d-1
1803            t66 = t65**2.0d+0
1804            t67 = t65**3.5d+0
1805            t68 = (gammaaa*t15*t16*t24)**5.0d-1
1806            t69 = t58**5.0d-1
1807            t70 = 1.282782438530422d-1*t68-t69
1808            t71 = -2.4d+0*t67*t70-1.417963080724413d+0*t67+2.83637333333
1809     1         3333d-2*t66-9.086532d-1*t65**3.0d+0+4.7459599999999996d-2
1810     2         *t34*t65
1811            t72 = 1/t36**3.0d+0
1812            t73 = 2.4682961769030842d-2*(t1*t29*t3)**2.0d+0+2.8862604866
1813     1         934494d-1*t1*t29*t3+1.0d+0
1814            t74 = -8.888888888888888d-1*t71*t72*t73+7.57211d-1*(1.645530
1815     1         7846020562d-2*gammaaa*t15*t16*t24*t60*t64+t58*t60*t62)-2.
1816     2         0d+0*t57*t58+3.2910615692041123d-2*gammaaa*t15*t16*t24*t5
1817     3         1+5.273288888888887d-2*t34*t35*t37+4.727288888888889d-2*t
1818     4         27*t31-1.0d+0
1819            t75 = 1/t26**2
1820            t76 = 1/rhoa**3.6666666666666664d+0
1821            t77 = -4.38808209227215d-2*gammaaa*t16*t24*t76
1822            t78 = 1/rhoa**13
1823            t79 = 1/rhoa**1.1666666666666665d+1
1824            t80 = 1/rhoa**1.0333333333333333d+1
1825            t81 = 1/rhoa**9
1826            t82 = 1/rhoa**7.666666666666667d+0
1827            t83 = 1/rhoa**6.333333333333333d+0
1828            t84 = 1/rhoa**5
1829            t85 = 1/rhoa**2.3333333333333334d+0
1830            t86 = -3.970606525117923d-4*t82*t9-9.121763297794749d-1*t4*t
1831     1         85-9.371196275079824d-2*t13*t84+7.379767838723479d-3*t11*
1832     2         t83+2.1757466141021625d-5*t7*t81-1.6407054045998d-6*t5*t8
1833     3         0+6.026316036028103d-8*t19*t79-3.7791630611803767d-9*t17*
1834     4         t78+5.475448834737188d-1*gammaaa*t76
1835            t87 = 1/t23**2
1836            t88 = -1.6455307846020562d-2*gammaaa*t15*t16*t86*t87
1837            t89 = -3.5347308712216d-5*t82*t9-7.202205253416327d-4*t13*t8
1838     1         4+2.3159461868101344d-4*t11*t83+3.462141917580374d-6*t7*t
1839     2         81-2.2515574897849044d-7*t5*t80-7.018342379201d-4*gammaaa
1840     3         *t76
1841            t90 = 1.6455307846020562d-2*gammaaa*t15*t24*t89
1842            t91 = t90+t88+t77-4.38808209227215d-2*t38/rhoa**1.6666666666
1843     1         666669d+0
1844            t92 = 1/t32**2
1845            t93 = 5.634986987915197d-5*t11*t83*t92+6.934448603031025d-2*
1846     1         gammaaa*t15*t24*t89-6.934448603031025d-2*gammaaa*t15*t16*
1847     2         t86*t87-1.369767625290079d-2*gammaaa*t33*t76-1.8491862941
1848     3         416065d-1*gammaaa*t16*t24*t76
1849            t94 = 1/t44
1850            t95 = 5.0d-1*t91*t94
1851            t96 = -8.551882923536147d-2*t1*t22
1852            t97 = t96+t95
1853            t98 = 1/t48**2
1854            t99 = 1/t42
1855            t100 = 5.0d-1*t91*t99
1856            t101 = t95+t100
1857            t102 = 1/t45**2
1858            t103 = 6.0965d-1*t46*t97*t98+6.0965d-1*t101*t102*t49
1859            t104 = 1/t50
1860            t105 = t90+t88+t77
1861            t106 = 1/t53
1862            t107 = 5.0d-1*t106*t91
1863            t108 = t95+t107
1864            t109 = 1/t54**2
1865            t110 = -1.475609999999999d-1*t55*t97*t98-1.475609999999999d-
1866     1         1*t108*t109*t49
1867            t111 = 1/t56
1868            t112 = t96+t107
1869            t113 = 1/t61**2
1870            t114 = t107+t100
1871            t115 = 1/t59**2
1872            t116 = t96+t100
1873            t117 = 1/t63**2
1874            t118 = t65**2.5d+0
1875            t119 = 1/t69
1876            t120 = 1/t68
1877            t121 = gammaaa*t15*t24*t89-gammaaa*t15*t16*t86*t87-2.6666666
1878     1         666666666d+0*gammaaa*t16*t24*t76
1879            t122 = 6.41391219265211d-2*t120*t121-5.0d-1*t105*t119
1880            t123 = 4.7459599999999996d-2*t65*t93-8.400000000000001d+0*t1
1881     1         05*t118*t70-2.4d+0*t122*t67-2.7259596d+0*t105*t66+5.67274
1882     2         6666666666d-2*t105*t65+4.7459599999999996d-2*t105*t34-4.9
1883     3         628707825354457d+0*t105*t118
1884            t124 = 1/t30**2
1885            t125 = 1/t28**3
1886            t126 = -1.282782438530422d-1*t1*t125*t3*t91-8.55188292353614
1887     1         7d-2*t1*t22*t29
1888            t127 = -6.41391219265211d-2*t1*t125*t3*t91-4.275941461768073
1889     1         5d-2*t1*t22*t29
1890            t128 = -5.0d-1*t1*t125*t3*t91-3.333333333333333d-1*t1*t22*t2
1891     1         9
1892            t129 = -1.4431302433467247d-1*t1*t125*t3*t91+4.9365923538061
1893     1         685d-2*t1*t128*t29*t3-9.620868288978164d-2*t1*t22*t29
1894            t130 = t30*t91+t126*t26
1895            t131 = 1/t36**4.0d+0
1896            t132 = 5.273288888888887d-2*t35*t37*t93-4.727288888888889d-2
1897     1         *t31*t75*t91+7.57211d-1*(1.6455307846020562d-2*gammaaa*t1
1898     2         5*t24*t60*t64*t89-1.6455307846020562d-2*gammaaa*t15*t16*t
1899     3         60*t64*t86*t87-4.38808209227215d-2*gammaaa*t16*t24*t60*t6
1900     4         4*t76-1.6455307846020562d-2*gammaaa*t114*t115*t15*t16*t24
1901     5         *t64+t105*t60*t62-t114*t115*t58*t62-t112*t113*t58*t60-1.6
1902     6         455307846020562d-2*gammaaa*t116*t117*t15*t16*t24*t60)+3.2
1903     7         910615692041123d-2*gammaaa*t15*t24*t51*t89-3.291061569204
1904     8         1123d-2*gammaaa*t15*t16*t51*t86*t87-8.7761641845443d-2*ga
1905     9         mmaaa*t16*t24*t51*t76-8.888888888888888d-1*t123*t72*t73+2
1906     :         .6666666666666666d+0*t130*t131*t71*t73-8.888888888888888d
1907     ;         -1*t129*t71*t72-1.0546577777777776d-1*t130*t34*t35*t72-2.
1908     <         0d+0*t110*t111*t58-2.0d+0*t105*t57+5.273288888888887d-2*t
1909     =         127*t34*t37-4.727288888888889d-2*t124*t126*t27+3.29106156
1910     >         92041123d-2*gammaaa*t103*t104*t15*t16*t24
1911            t133 = 1/t4
1912            t134 = 6.15264526724925d-7*t6*t9-8.159049802883108d-6*t11*t8
1913     1         -2.2598685135105387d-8*t20*t7+1.4171861479426412d-9*t18*t
1914     2         5+3.514198603154934d-2*t14*t4+3.420661236673031d-1*t133*t
1915     3         22-2.0532933130264455d-1*t15+1.488977446919221d-4*t10*t13
1916     4         -2.767412939521305d-3*gammaaa*t12
1917            t135 = 8.443340586693391d-8*t6*t9-1.2983032190926402d-6*t11*
1918     1         t8+2.7008269700311227d-4*t14*t4+2.631878392200375d-4*t15+
1919     2         1.3255240767081d-5*t10*t13-8.684798200538004d-5*gammaaa*t
1920     3         12
1921            t136 = -1.6455307846020562d-2*gammaaa*t134*t15*t16*t87+1.645
1922     1         5307846020562d-2*t15*t16*t24+1.6455307846020562d-2*gammaa
1923     2         a*t135*t15*t24
1924            t137 = -4.727288888888889d-2*t136*t31*t75
1925            t138 = -2.113120120468199d-5*gammaaa*t12*t92-6.9344486030310
1926     1         25d-2*gammaaa*t134*t15*t16*t87+5.136628594837797d-3*t15*t
1927     2         33+6.934448603031025d-2*t15*t16*t24+6.934448603031025d-2*
1928     3         gammaaa*t135*t15*t24
1929            t139 = 5.273288888888887d-2*t138*t35*t37
1930            t140 = -3.2910615692041123d-2*gammaaa*t134*t15*t16*t51*t87
1931            t141 = 5.0d-1*t136*t99
1932            t142 = 5.0d-1*t136*t94
1933            t143 = t142+t141
1934            t144 = 3.04825d-1*t136*t46*t94*t98+6.0965d-1*t102*t143*t49
1935            t145 = 3.2910615692041123d-2*gammaaa*t104*t144*t15*t16*t24
1936            t146 = 3.2910615692041123d-2*t16*t51+3.2910615692041123d-2*g
1937     1         ammaaa*t135*t51
1938            t147 = -2.0d+0*t136*t57
1939            t148 = 5.0d-1*t106*t136
1940            t149 = t148+t142
1941            t150 = -7.378049999999994d-2*t136*t55*t94*t98-1.475609999999
1942     1         999d-1*t109*t149*t49
1943            t151 = -2.0d+0*t111*t150*t58
1944            t152 = t148+t141
1945            t153 = 7.57211d-1*(-8.227653923010281d-3*gammaaa*t117*t136*t
1946     1         15*t16*t24*t60*t99-1.6455307846020562d-2*gammaaa*t134*t15
1947     2         *t16*t60*t64*t87+1.6455307846020562d-2*t15*t16*t24*t60*t6
1948     3         4+1.6455307846020562d-2*gammaaa*t135*t15*t24*t60*t64-1.64
1949     4         55307846020562d-2*gammaaa*t115*t15*t152*t16*t24*t64+t136*
1950     5         t60*t62-t115*t152*t58*t62-5.0d-1*t106*t113*t136*t58*t60)
1951            t154 = 1/t28**5
1952            t155 = 6.064083168526658d-3*t1*t124*t136*t154*t3
1953            t156 = -3.3822411899821336d-3*t1*t125*t136*t3*t34*t37
1954            t157 = t136*t30-1.282782438530422d-1*t1*t136*t29*t3
1955            t158 = 2.6666666666666666d+0*t131*t157*t71*t73
1956            t159 = -2.4682961769030842d-2*t136*t38*t39*t75-1.44313024334
1957     1         67247d-1*t1*t125*t136*t3
1958            t160 = -gammaaa*t134*t15*t16*t87+t15*t16*t24+gammaaa*t135*t1
1959     1         5*t24
1960            t161 = 6.41391219265211d-2*t120*t160-5.0d-1*t119*t136
1961            t162 = -8.400000000000001d+0*t118*t136*t70-2.4d+0*t161*t67-2
1962     1         .7259596d+0*t136*t66+4.7459599999999996d-2*t138*t65+5.672
1963     2         746666666666d-2*t136*t65+4.7459599999999996d-2*t136*t34-4
1964     3         .9628707825354457d+0*t118*t136
1965            t163 = -8.888888888888888d-1*t162*t73-8.888888888888888d-1*t
1966     1         159*t71-1.0546577777777776d-1*t157*t34*t35
1967            t164 = 1/rhoa**4.666666666666667d+0
1968            t165 = 1.6089634338331216d-1*gammaaa*t16*t164*t24
1969            t166 = 8.7761641845443d-2*gammaaa*t16*t76*t86*t87
1970            t167 = -8.7761641845443d-2*gammaaa*t24*t76*t89
1971            t168 = t86**2
1972            t169 = 1/t23**3
1973            t170 = 3.2910615692041123d-2*gammaaa*t15*t16*t168*t169
1974            t171 = 1/rhoa**1.1333333333333334d+1
1975            t172 = 1/rhoa**10
1976            t173 = 1/rhoa**8.666666666666666d+0
1977            t174 = 1/rhoa**7.333333333333333d+0
1978            t175 = 1/rhoa**6
1979            t176 = 3.0441316692570747d-3*t173*t9-1.9581719526919464d-4*t
1980     1         172*t7+1.695395584753127d-5*t171*t5+2.1284114361521084d+0
1981     2         *t4/rhoa**3.3333333333333337d+0-7.030702042032786d-7*t19/
1982     3         rhoa**1.2666666666666665d+1+4.685598137539912d-1*t13*t175
1983     4         -4.6738529645248705d-2*t11*t174+4.9129119795344894d-8*t17
1984     5         /rhoa**14-2.0076645727369685d+0*gammaaa*t164
1985            t177 = -1.6455307846020562d-2*gammaaa*t15*t16*t176*t87
1986            t178 = -3.2910615692041123d-2*gammaaa*t15*t86*t87*t89
1987            t179 = 2.709960334603227d-4*t173*t9-3.115927725822337d-5*t17
1988     1         2*t7+2.326609406111068d-6*t171*t5+3.6011026267081636d-3*t
1989     2         13*t175-1.466765918313085d-3*t11*t174+2.5733922057070335d
1990     3         -3*gammaaa*t164
1991            t180 = 1.6455307846020562d-2*gammaaa*t15*t179*t24
1992            t181 = 7.313470153786916d-2*t15*t38+t180+t178+t177+t170+t167
1993     1         +t166+t165
1994            t182 = 1/t26**3
1995            t183 = t91**2
1996            t184 = 1/t32**3
1997            t185 = -5.071488289123677d-4*t11*t174*t92-1.386889720606205d
1998     1         -1*gammaaa*t15*t86*t87*t89-3.698372588283213d-1*gammaaa*t
1999     2         24*t76*t89+3.698372588283213d-1*gammaaa*t16*t76*t86*t87-6
2000     3         .934448603031025d-2*gammaaa*t15*t16*t176*t87+1.2363392745
2001     4         928628d-6*t172*t184*t7+5.02248129273029d-2*gammaaa*t164*t
2002     5         33+6.934448603031025d-2*gammaaa*t15*t179*t24+6.7803497451
2003     6         85891d-1*gammaaa*t16*t164*t24+1.386889720606205d-1*gammaa
2004     7         a*t15*t16*t168*t169
2005            t186 = 1/t30**3
2006            t187 = t130**2
2007            t188 = 1/t36**5.0d+0
2008            t189 = 1/t50**2
2009            t190 = t97**2
2010            t191 = 1/t48**3
2011            t192 = 1/t44**3
2012            t193 = -2.5d-1*t183*t192
2013            t194 = 5.0d-1*t181*t94
2014            t195 = 1.1402510564714863d-1*t1*t85
2015            t196 = t195+t194+t193
2016            t197 = 1/t45**3
2017            t198 = 1/t42**3
2018            t199 = -2.5d-1*t183*t198
2019            t200 = 5.0d-1*t181*t99
2020            t201 = t180+t178+t177+t170+t167+t166+t165
2021            t202 = 1/t56**2
2022            t203 = 1/t54**3
2023            t204 = 1/t53**3
2024            t205 = -2.5d-1*t183*t204
2025            t206 = 5.0d-1*t106*t181
2026            t207 = 1/t61**3
2027            t208 = t114**2
2028            t209 = 1/t59**3
2029            t210 = t206+t205+t200+t199
2030            t211 = 1/t63**3
2031            t212 = t105**2
2032            t213 = t65**1.5d+0
2033            t214 = 1/t68**3
2034            t215 = 1/t69**3
2035            t216 = 8.551882923536147d-2*t1*t125*t22*t91+1.14025105647148
2036     1         63d-1*t1*t29*t85+1.924173657795633d-1*t1*t154*t183*t3-1.2
2037     2         82782438530422d-1*t1*t125*t181*t3
2038            t217 = 2*t126*t91+t181*t30+t216*t26
2039            t218 = -5.742468916099301d-6*t80*t9-4.5608816488973747d-1*t1
2040     1         33*t85-1.4056794412619736d-1*t4*t84+1.4759535677446958d-2
2041     2         *gammaaa*t83-9.926516312794808d-4*t13*t82+6.5272398423064
2042     3         87d-5*t11*t81+2.4105264144112412d-7*t7*t79-1.700623377531
2043     4         1694d-8*t5*t78+5.475448834737188d-1*t76
2044            t219 = -7.880451214247165d-7*t80*t9-1.0803307880124491d-3*t4
2045     1         *t84+4.631892373620269d-4*gammaaa*t83-8.836827178054d-5*t
2046     2         13*t82+1.0386425752741123d-5*t11*t81-7.018342379201d-4*t7
2047     3         6
2048            t220 = -1.6455307846020562d-2*gammaaa*t134*t15*t87*t89+1.645
2049     1         5307846020562d-2*t15*t24*t89-1.6455307846020562d-2*t15*t1
2050     2         6*t86*t87-1.6455307846020562d-2*gammaaa*t135*t15*t86*t87+
2051     3         4.38808209227215d-2*gammaaa*t134*t16*t76*t87-1.6455307846
2052     4         020562d-2*gammaaa*t15*t16*t218*t87+3.2910615692041123d-2*
2053     5         gammaaa*t134*t15*t16*t169*t86-4.38808209227215d-2*t16*t24
2054     6         *t76-4.38808209227215d-2*gammaaa*t135*t24*t76+1.645530784
2055     7         6020562d-2*gammaaa*t15*t219*t24
2056            t221 = 1.690496096374559d-4*gammaaa*t83*t92-6.93444860303102
2057     1         5d-2*gammaaa*t134*t15*t87*t89+6.934448603031025d-2*t15*t2
2058     2         4*t89-6.934448603031025d-2*t15*t16*t86*t87-6.934448603031
2059     3         025d-2*gammaaa*t135*t15*t86*t87+1.8491862941416065d-1*gam
2060     4         maaa*t134*t16*t76*t87-6.934448603031025d-2*gammaaa*t15*t1
2061     5         6*t218*t87+1.386889720606205d-1*gammaaa*t134*t15*t16*t169
2062     6         *t86-4.6362722797232353d-7*t11*t184*t81-1.369767625290079
2063     7         d-2*t33*t76-1.8491862941416065d-1*t16*t24*t76-1.849186294
2064     8         1416065d-1*gammaaa*t135*t24*t76+6.934448603031025d-2*gamm
2065     9         aaa*t15*t219*t24
2066            t222 = -2.5d-1*t136*t192*t91
2067            t223 = 5.0d-1*t220*t94
2068            t224 = t223+t222
2069            t225 = -2.5d-1*t136*t198*t91
2070            t226 = 5.0d-1*t220*t99
2071            t227 = -2.5d-1*t136*t204*t91
2072            t228 = 5.0d-1*t106*t220
2073            t229 = t228+t227+t226+t225
2074            t230 = 1/t28**7
2075            t231 = 1.924173657795633d-1*t1*t136*t154*t3*t91-1.2827824385
2076     1         30422d-1*t1*t125*t220*t3+4.2759414617680735d-2*t1*t125*t1
2077     2         36*t22
2078            t232 = -1.282782438530422d-1*t1*t125*t136*t3*t91+t220*t30+t2
2079     1         31*t26+t126*t136
2080            t233 = t136**2
2081            t234 = t134**2
2082            t235 = 4.960151517799245d-9*t18*t9-1.6318099605766218d-5*gam
2083     1         maaa*t8+1.5381613168123123d-6*t13*t6+2.2334661703788317d-
2084     2         4*t10*t4-1.7103306183365155d-1*t22/t13-6.779605540531617d
2085     3         -8*t11*t20+1.757099301577467d-2*t133*t14-2.76741293952130
2086     4         5d-3*t12
2087            t236 = -2.5966064381852805d-6*gammaaa*t8+2.1108351466733477d
2088     1         -7*t13*t6+1.9882861150621498d-5*t10*t4+1.3504134850155614
2089     2         d-4*t133*t14-8.684798200538004d-5*t12
2090            t237 = -1.6455307846020562d-2*gammaaa*t15*t16*t235*t87-3.291
2091     1         0615692041123d-2*t134*t15*t16*t87-3.2910615692041123d-2*g
2092     2         ammaaa*t134*t135*t15*t87+1.6455307846020562d-2*gammaaa*t1
2093     3         5*t236*t24+3.2910615692041123d-2*t135*t15*t24+3.291061569
2094     4         2041123d-2*gammaaa*t15*t16*t169*t234
2095            t238 = -4.226240240936398d-5*t12*t92-6.934448603031025d-2*ga
2096     1         mmaaa*t15*t16*t235*t87-1.386889720606205d-1*t134*t15*t16*
2097     2         t87-1.386889720606205d-1*gammaaa*t134*t135*t15*t87+1.7386
2098     3         021048962136d-7*gammaaa*t184*t8+6.934448603031025d-2*gamm
2099     4         aaa*t15*t236*t24+1.386889720606205d-1*t135*t15*t24+1.3868
2100     5         89720606205d-1*gammaaa*t15*t16*t169*t234
2101            t239 = 1/t43
2102            t240 = -2.5d-1*t198*t233
2103            t241 = 5.0d-1*t237*t99
2104            t242 = -2.5d-1*t192*t233
2105            t243 = 5.0d-1*t237*t94
2106            t244 = t152**2
2107            t245 = -2.5d-1*t204*t233
2108            t246 = 5.0d-1*t106*t237
2109            t247 = t246+t245+t241+t240
2110            t248 = t237*t30-1.282782438530422d-1*t1*t237*t29*t3-6.413912
2111     1         19265211d-2*t1*t125*t233*t3
2112            fnc(iq) = fnc(iq)-1.8610514726982d+0*t21*t74*wght
2113            Amat(iq,D1_RA) = (-1.2407009817987999d+0*t2*t74-9.3052573634
2114     1         91d-1*t132*t21)*wght+Amat(iq,D1_RA)
2115            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t21*(t16
2116     1         3*t72+t146*t15*t24+t158+t156+t155+t153+t151+t147+t145+t14
2117     2         0+t139+t137)*wght
2118            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
2119            Amat2(iq,D2_RA_RA) = (-9.305257363491d-1*t21*(-2.0d+0*t111*t
2120     1         58*(2.951219999999998d-1*t108*t109*t97*t98-1.475609999999
2121     2         999d-1*t196*t55*t98+2.951219999999998d-1*t190*t191*t55-1.
2122     3         475609999999999d-1*t109*(t206+t205+t194+t193)*t49+2.95121
2123     4         9999999998d-1*t108**2*t203*t49)+3.2910615692041123d-2*gam
2124     5         maaa*t104*t15*t16*t24*(-1.2193000000000001d+0*t101*t102*t
2125     6         97*t98+6.0965d-1*t196*t46*t98+6.0965d-1*t102*(t200+t199+t
2126     7         194+t193)*t49-1.2193000000000001d+0*t101**2*t197*t49-1.21
2127     8         93000000000001d+0*t190*t191*t46)-8.888888888888888d-1*t72
2128     9         *t73*(9.491919999999999d-2*t105*t93-2.4d+0*t67*(6.4139121
2129     :         9265211d-2*t120*(-2*gammaaa*t15*t86*t87*t89-5.33333333333
2130     ;         3333d+0*gammaaa*t24*t76*t89+5.333333333333333d+0*gammaaa*
2131     <         t16*t76*t86*t87-gammaaa*t15*t16*t176*t87+gammaaa*t15*t179
2132     =         *t24+9.777777777777779d+0*gammaaa*t16*t164*t24+2*gammaaa*
2133     >         t15*t16*t168*t169)+2.5d-1*t212*t215-3.206956096326055d-2*
2134     ?         t121**2*t214-5.0d-1*t119*t201)-2.1d+1*t212*t213*t70-8.400
2135     @         000000000001d+0*t118*t201*t70-2.7259596d+0*t201*t66-5.451
2136     1         9192d+0*t212*t65+5.672746666666666d-2*t201*t65+4.74595999
2137     2         99999996d-2*t185*t65+4.7459599999999996d-2*t201*t34-1.240
2138     3         7176956338616d+1*t212*t213+5.672746666666666d-2*t212-4.96
2139     4         28707825354457d+0*t118*t201-1.68d+1*t105*t118*t122)-2.109
2140     5         315555555555d-1*t130*t35*t72*t93+1.0546577777777776d-1*t1
2141     6         27*t37*t93-8.888888888888888d-1*t71*t72*(4.93659235380616
2142     7         85d-2*t1*t29*t3*(3.333333333333333d-1*t1*t125*t22*t91+4.4
2143     8         44444444444444d-1*t1*t29*t85+7.5d-1*t1*t154*t183*t3-5.0d-
2144     9         1*t1*t125*t181*t3)+9.620868288978164d-2*t1*t125*t22*t91+1
2145     :         .2827824385304218d-1*t1*t29*t85+2.164695365020087d-1*t1*t
2146     ;         154*t183*t3-1.4431302433467247d-1*t1*t125*t181*t3+4.93659
2147     <         23538061685d-2*t128**2)+5.273288888888887d-2*t34*t37*(4.2
2148     =         759414617680735d-2*t1*t125*t22*t91+5.701255282357431d-2*t
2149     >         1*t29*t85+9.620868288978166d-2*t1*t154*t183*t3-6.41391219
2150     ?         265211d-2*t1*t125*t181*t3)+9.454577777777778d-2*t124*t126
2151     @         *t75*t91+7.57211d-1*(-3.2910615692041123d-2*gammaaa*t15*t
2152     1         60*t64*t86*t87*t89-8.7761641845443d-2*gammaaa*t24*t60*t64
2153     2         *t76*t89-3.2910615692041123d-2*gammaaa*t114*t115*t15*t24*
2154     3         t64*t89-3.2910615692041123d-2*gammaaa*t116*t117*t15*t24*t
2155     4         60*t89+8.7761641845443d-2*gammaaa*t16*t60*t64*t76*t86*t87
2156     5         +3.2910615692041123d-2*gammaaa*t114*t115*t15*t16*t64*t86*
2157     6         t87+3.2910615692041123d-2*gammaaa*t116*t117*t15*t16*t60*t
2158     7         86*t87-1.6455307846020562d-2*gammaaa*t15*t16*t176*t60*t64
2159     8         *t87+8.7761641845443d-2*gammaaa*t114*t115*t16*t24*t64*t76
2160     9         +8.7761641845443d-2*gammaaa*t116*t117*t16*t24*t60*t76+1.6
2161     :         455307846020562d-2*gammaaa*t15*t179*t24*t60*t64+1.6089634
2162     ;         338331216d-1*gammaaa*t16*t164*t24*t60*t64+3.2910615692041
2163     <         123d-2*gammaaa*t15*t16*t168*t169*t60*t64-1.64553078460205
2164     =         62d-2*gammaaa*t115*t15*t16*t210*t24*t64+3.291061569204112
2165     >         3d-2*gammaaa*t15*t16*t208*t209*t24*t64+t201*t60*t62-t115*
2166     ?         t210*t58*t62+2*t208*t209*t58*t62-2*t105*t114*t115*t62+2*t
2167     @         112**2*t207*t58*t60-t113*(t206+t205+t195)*t58*t60+3.29106
2168     1         15692041123d-2*gammaaa*t116**2*t15*t16*t211*t24*t60-1.645
2169     2         5307846020562d-2*gammaaa*t117*t15*t16*(t200+t199+t195)*t2
2170     3         4*t60-2*t105*t112*t113*t60+2*t112*t113*t114*t115*t58+3.29
2171     4         10615692041123d-2*gammaaa*t114*t115*t116*t117*t15*t16*t24
2172     5         )-6.582123138408225d-2*gammaaa*t15*t51*t86*t87*t89-1.7552
2173     6         3283690886d-1*gammaaa*t24*t51*t76*t89+6.582123138408225d-
2174     7         2*gammaaa*t103*t104*t15*t24*t89+1.75523283690886d-1*gamma
2175     8         aa*t16*t51*t76*t86*t87-6.582123138408225d-2*gammaaa*t103*
2176     9         t104*t15*t16*t86*t87-3.2910615692041123d-2*gammaaa*t15*t1
2177     :         6*t176*t51*t87-1.75523283690886d-1*gammaaa*t103*t104*t16*
2178     ;         t24*t76-4.727288888888889d-2*t181*t31*t75+2.6666666666666
2179     <         666d+0*t131*t217*t71*t73-1.0666666666666666d+1*t187*t188*
2180     =         t71*t73+5.333333333333333d+0*t123*t130*t131*t73-1.0546577
2181     >         777777776d-1*t217*t34*t35*t72-2.109315555555555d-1*t127*t
2182     ?         130*t34*t72-1.7777777777777776d+0*t123*t129*t72+5.3333333
2183     @         33333333d+0*t129*t130*t131*t71+2.0d+0*t110**2*t202*t58-2.
2184     1         0d+0*t201*t57+3.2910615692041123d-2*gammaaa*t15*t179*t24*
2185     2         t51+3.217926867666243d-1*gammaaa*t16*t164*t24*t51+6.58212
2186     3         3138408225d-2*gammaaa*t15*t16*t168*t169*t51+5.27328888888
2187     4         8887d-2*t185*t35*t37+3.1639733333333325d-1*t131*t187*t34*
2188     5         t35+9.454577777777778d-2*t182*t183*t31-4.727288888888889d
2189     6         -2*t124*t216*t27+9.454577777777778d-2*t126**2*t186*t27-3.
2190     7         2910615692041123d-2*gammaaa*t103**2*t15*t16*t189*t24-4.0d
2191     8         +0*t105*t110*t111)-4.135669939329333d-1*t39*t74-2.4814019
2192     9         635975998d+0*t132*t2)*wght+Amat2(iq,D2_RA_RA)
2193            Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB)
2194            Cmat2(iq,D2_RA_GAA) = (-9.305257363491d-1*t21*(7.57211d-1*(-
2195     1         8.227653923010281d-3*gammaaa*t117*t136*t15*t24*t60*t89*t9
2196     2         9+8.227653923010281d-3*gammaaa*t117*t136*t15*t16*t60*t86*
2197     3         t87*t99+2.194041046136075d-2*gammaaa*t117*t136*t16*t24*t6
2198     4         0*t76*t99+1.6455307846020562d-2*gammaaa*t116*t136*t15*t16
2199     5         *t211*t24*t60*t99+8.227653923010281d-3*gammaaa*t114*t115*
2200     6         t117*t136*t15*t16*t24*t99-1.6455307846020562d-2*gammaaa*t
2201     7         134*t15*t60*t64*t87*t89+1.6455307846020562d-2*t15*t24*t60
2202     8         *t64*t89-1.6455307846020562d-2*gammaaa*t115*t15*t152*t24*
2203     9         t64*t89-1.6455307846020562d-2*t15*t16*t60*t64*t86*t87-1.6
2204     :         455307846020562d-2*gammaaa*t135*t15*t60*t64*t86*t87+1.645
2205     ;         5307846020562d-2*gammaaa*t115*t15*t152*t16*t64*t86*t87+4.
2206     <         38808209227215d-2*gammaaa*t134*t16*t60*t64*t76*t87-1.6455
2207     =         307846020562d-2*gammaaa*t15*t16*t218*t60*t64*t87+1.645530
2208     >         7846020562d-2*gammaaa*t114*t115*t134*t15*t16*t64*t87+1.64
2209     ?         55307846020562d-2*gammaaa*t116*t117*t134*t15*t16*t60*t87+
2210     @         3.2910615692041123d-2*gammaaa*t134*t15*t16*t169*t60*t64*t
2211     1         86-4.38808209227215d-2*t16*t24*t60*t64*t76-4.388082092272
2212     2         15d-2*gammaaa*t135*t24*t60*t64*t76+4.38808209227215d-2*ga
2213     3         mmaaa*t115*t152*t16*t24*t64*t76+1.6455307846020562d-2*gam
2214     4         maaa*t15*t219*t24*t60*t64-1.6455307846020562d-2*gammaaa*t
2215     5         115*t15*t16*t229*t24*t64+3.2910615692041123d-2*gammaaa*t1
2216     6         14*t15*t152*t16*t209*t24*t64-1.6455307846020562d-2*t114*t
2217     7         115*t15*t16*t24*t64-1.6455307846020562d-2*gammaaa*t114*t1
2218     8         15*t135*t15*t24*t64+t220*t60*t62-t115*t229*t58*t62+2*t114
2219     9         *t152*t209*t58*t62-t105*t115*t152*t62-t114*t115*t136*t62-
2220     :         t113*(t228+t227)*t58*t60+t106*t112*t136*t207*t58*t60-1.64
2221     ;         55307846020562d-2*gammaaa*t117*t15*t16*(t226+t225)*t24*t6
2222     <         0-1.6455307846020562d-2*t116*t117*t15*t16*t24*t60-1.64553
2223     =         07846020562d-2*gammaaa*t116*t117*t135*t15*t24*t60-t112*t1
2224     >         13*t136*t60-5.0d-1*t105*t106*t113*t136*t60+t112*t113*t115
2225     ?         *t152*t58+5.0d-1*t106*t113*t114*t115*t136*t58+1.645530784
2226     @         6020562d-2*gammaaa*t115*t116*t117*t15*t152*t16*t24)-2.0d+
2227     1         0*t111*t58*(1.475609999999999d-1*t109*t149*t97*t98+7.3780
2228     2         49999999994d-2*t108*t109*t136*t94*t98-1.475609999999999d-
2229     3         1*t224*t55*t98+1.475609999999999d-1*t136*t191*t55*t94*t97
2230     4         -1.475609999999999d-1*t109*(t228+t227+t223+t222)*t49+2.95
2231     5         1219999999998d-1*t108*t149*t203*t49)+3.2910615692041123d-
2232     6         2*gammaaa*t104*t15*t16*t24*(-6.0965d-1*t102*t143*t97*t98-
2233     7         3.04825d-1*t101*t102*t136*t94*t98+6.0965d-1*t224*t46*t98-
2234     8         6.0965d-1*t136*t191*t46*t94*t97+6.0965d-1*t102*(t226+t225
2235     9         +t223+t222)*t49-1.2193000000000001d+0*t101*t143*t197*t49)
2236     :         -8.888888888888888d-1*t72*t73*(4.7459599999999996d-2*t136
2237     ;         *t93-2.4d+0*t67*(6.41391219265211d-2*t120*(-gammaaa*t134*
2238     <         t15*t87*t89+t15*t24*t89-t15*t16*t86*t87-gammaaa*t135*t15*
2239     =         t86*t87+2.6666666666666666d+0*gammaaa*t134*t16*t76*t87-ga
2240     >         mmaaa*t15*t16*t218*t87+2*gammaaa*t134*t15*t16*t169*t86-2.
2241     ?         6666666666666666d+0*t16*t24*t76-2.6666666666666666d+0*gam
2242     @         maaa*t135*t24*t76+gammaaa*t15*t219*t24)-5.0d-1*t119*t220+
2243     1         2.5d-1*t105*t136*t215-3.206956096326055d-2*t121*t160*t214
2244     2         )-8.400000000000001d+0*t118*t220*t70-2.1d+1*t105*t136*t21
2245     3         3*t70-2.7259596d+0*t220*t66+4.7459599999999996d-2*t221*t6
2246     4         5+5.672746666666666d-2*t220*t65-5.4519192d+0*t105*t136*t6
2247     5         5+4.7459599999999996d-2*t220*t34-4.9628707825354457d+0*t1
2248     6         18*t220-1.2407176956338616d+1*t105*t136*t213-8.4000000000
2249     7         00001d+0*t105*t118*t161+4.7459599999999996d-2*t105*t138-8
2250     8         .400000000000001d+0*t118*t122*t136+5.672746666666666d-2*t
2251     9         105*t136)-1.0546577777777776d-1*t157*t35*t72*t93-3.382241
2252     :         1899821336d-3*t1*t125*t136*t3*t37*t93-8.888888888888888d-
2253     ;         1*t71*t72*(4.9365923538061685d-2*t1*t29*t3*(7.5d-1*t1*t13
2254     <         6*t154*t3*t91-5.0d-1*t1*t125*t220*t3+1.6666666666666666d-
2255     =         1*t1*t125*t136*t22)+2.164695365020087d-1*t1*t136*t154*t3*
2256     >         t91-1.4431302433467247d-1*t1*t125*t220*t3-2.4682961769030
2257     ?         842d-2*t1*t125*t128*t136*t3+4.810434144489082d-2*t1*t125*
2258     @         t136*t22)+5.273288888888887d-2*t34*t37*(9.620868288978166
2259     1         d-2*t1*t136*t154*t3*t91-6.41391219265211d-2*t1*t125*t220*
2260     2         t3+2.1379707308840368d-2*t1*t125*t136*t22)+9.454577777777
2261     3         778d-2*t136*t182*t31*t91-6.064083168526658d-3*t1*t124*t13
2262     4         6*t230*t3*t91-3.2910615692041123d-2*gammaaa*t134*t15*t51*
2263     5         t87*t89+3.2910615692041123d-2*t15*t24*t51*t89+3.291061569
2264     6         2041123d-2*gammaaa*t104*t144*t15*t24*t89-3.29106156920411
2265     7         23d-2*t15*t16*t51*t86*t87-3.2910615692041123d-2*gammaaa*t
2266     8         135*t15*t51*t86*t87-3.2910615692041123d-2*gammaaa*t104*t1
2267     9         44*t15*t16*t86*t87+8.7761641845443d-2*gammaaa*t134*t16*t5
2268     :         1*t76*t87-3.2910615692041123d-2*gammaaa*t15*t16*t218*t51*
2269     ;         t87-3.2910615692041123d-2*gammaaa*t103*t104*t134*t15*t16*
2270     <         t87+6.582123138408225d-2*gammaaa*t134*t15*t16*t169*t51*t8
2271     =         6-8.7761641845443d-2*t16*t24*t51*t76-8.7761641845443d-2*g
2272     >         ammaaa*t135*t24*t51*t76-8.7761641845443d-2*gammaaa*t104*t
2273     ?         144*t16*t24*t76-4.727288888888889d-2*t220*t31*t75+4.72728
2274     @         8888888889d-2*t124*t126*t136*t75+2.6666666666666666d+0*t1
2275     1         31*t232*t71*t73-1.0666666666666666d+1*t130*t157*t188*t71*
2276     2         t73+2.6666666666666666d+0*t130*t131*t162*t73+2.6666666666
2277     3         666666d+0*t123*t131*t157*t73-1.0546577777777776d-1*t232*t
2278     4         34*t35*t72-1.0546577777777776d-1*t130*t138*t35*t72+6.7644
2279     5         82379964267d-3*t1*t125*t130*t136*t3*t34*t72-1.05465777777
2280     6         77776d-1*t127*t157*t34*t72-8.888888888888888d-1*t129*t162
2281     7         *t72-8.888888888888888d-1*t123*t159*t72+2.666666666666666
2282     8         6d+0*t130*t131*t159*t71+2.6666666666666666d+0*t129*t131*t
2283     9         157*t71+2.0d+0*t110*t150*t202*t58-2.0d+0*t220*t57+3.29106
2284     :         15692041123d-2*gammaaa*t15*t219*t24*t51+5.273288888888887
2285     ;         d-2*t221*t35*t37+5.273288888888887d-2*t127*t138*t37+3.163
2286     <         9733333333325d-1*t130*t131*t157*t34*t35-1.212816633705331
2287     =         7d-2*t1*t126*t136*t154*t186*t3-4.727288888888889d-2*t124*
2288     >         t231*t27-3.2910615692041123d-2*gammaaa*t103*t144*t15*t16*
2289     ?         t189*t24+3.2910615692041123d-2*t103*t104*t15*t16*t24+3.29
2290     @         10615692041123d-2*gammaaa*t103*t104*t135*t15*t24-2.0d+0*t
2291     1         105*t111*t150-2.0d+0*t110*t111*t136)-1.2407009817987999d+
2292     2         0*t2*(-8.888888888888888d-1*t162*t72*t73-8.88888888888888
2293     3         8d-1*t159*t71*t72-1.0546577777777776d-1*t157*t34*t35*t72+
2294     4         3.2910615692041123d-2*t15*t16*t24*t51+3.2910615692041123d
2295     5         -2*gammaaa*t135*t15*t24*t51+t158+t156+t155+t153+t151+t147
2296     6         +t145+t140+t139+t137))*wght+Cmat2(iq,D2_RA_GAA)
2297            Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB)
2298            Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB)
2299            Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA)-9.305257363491d-
2300     1         1*t21*(7.57211d-1*(1.6455307846020562d-2*gammaaa*t117*t13
2301     2         4*t136*t15*t16*t60*t87*t99-8.227653923010281d-3*gammaaa*t
2302     3         117*t15*t16*t237*t24*t60*t99-1.6455307846020562d-2*t117*t
2303     4         136*t15*t16*t24*t60*t99-1.6455307846020562d-2*gammaaa*t11
2304     5         7*t135*t136*t15*t24*t60*t99+1.6455307846020562d-2*gammaaa
2305     6         *t115*t117*t136*t15*t152*t16*t24*t99-1.6455307846020562d-
2306     7         2*gammaaa*t15*t16*t235*t60*t64*t87-3.2910615692041123d-2*
2307     8         t134*t15*t16*t60*t64*t87-3.2910615692041123d-2*gammaaa*t1
2308     9         34*t135*t15*t60*t64*t87+3.2910615692041123d-2*gammaaa*t11
2309     :         5*t134*t15*t152*t16*t64*t87+1.6455307846020562d-2*gammaaa
2310     ;         *t15*t236*t24*t60*t64+3.2910615692041123d-2*t135*t15*t24*
2311     <         t60*t64+3.2910615692041123d-2*gammaaa*t15*t16*t169*t234*t
2312     =         60*t64-1.6455307846020562d-2*gammaaa*t115*t15*t16*t24*t24
2313     >         7*t64+3.2910615692041123d-2*gammaaa*t15*t16*t209*t24*t244
2314     ?         *t64-3.2910615692041123d-2*t115*t15*t152*t16*t24*t64-3.29
2315     @         10615692041123d-2*gammaaa*t115*t135*t15*t152*t24*t64+t237
2316     1         *t60*t62-t115*t247*t58*t62+2*t209*t244*t58*t62-2*t115*t13
2317     2         6*t152*t62+5.0d-1*t207*t233*t58*t60/t52-5.0d-1*t106*t113*
2318     3         t237*t58*t60+2.5d-1*t113*t204*t233*t58*t60+8.227653923010
2319     4         281d-3*gammaaa*t15*t16*t211*t233*t24*t60/t41+4.1138269615
2320     5         051404d-3*gammaaa*t117*t15*t16*t198*t233*t24*t60-t106*t11
2321     6         3*t233*t60+t106*t113*t115*t136*t152*t58)+t111*(-2.0d+0*t5
2322     7         8*(-7.378049999999994d-2*t237*t55*t94*t98+1.4756099999999
2323     8         99d-1*t109*t136*t149*t94*t98+3.689024999999997d-2*t192*t2
2324     9         33*t55*t98+7.378049999999994d-2*t191*t233*t239*t55-1.4756
2325     :         09999999999d-1*t109*(t246+t245+t243+t242)*t49+2.951219999
2326     ;         999998d-1*t149**2*t203*t49)-4.0d+0*t136*t150)+t104*t15*t2
2327     <         4*(3.2910615692041123d-2*gammaaa*t16*(3.04825d-1*t237*t46
2328     =         *t94*t98-6.0965d-1*t102*t136*t143*t94*t98-1.524125d-1*t19
2329     >         2*t233*t46*t98+6.0965d-1*t102*(t243+t242+t241+t240)*t49-1
2330     ?         .2193000000000001d+0*t143**2*t197*t49-3.04825d-1*t191*t23
2331     @         3*t239*t46)+3.2910615692041123d-2*t144*t16+3.291061569204
2332     1         1123d-2*gammaaa*t135*t144)+t72*(-8.888888888888888d-1*t73
2333     2         *(-2.4d+0*t67*(6.41391219265211d-2*t120*(-gammaaa*t15*t16
2334     3         *t235*t87-2*t134*t15*t16*t87-2*gammaaa*t134*t135*t15*t87+
2335     4         gammaaa*t15*t236*t24+2*t135*t15*t24+2*gammaaa*t15*t16*t16
2336     5         9*t234)-5.0d-1*t119*t237+2.5d-1*t215*t233-3.2069560963260
2337     6         55d-2*t160**2*t214)-8.400000000000001d+0*t118*t237*t70-2.
2338     7         1d+1*t213*t233*t70-2.7259596d+0*t237*t66+4.74595999999999
2339     8         96d-2*t238*t65+5.672746666666666d-2*t237*t65-5.4519192d+0
2340     9         *t233*t65+4.7459599999999996d-2*t237*t34-4.96287078253544
2341     :         57d+0*t118*t237-1.2407176956338616d+1*t213*t233+5.6727466
2342     ;         66666666d-2*t233-1.68d+1*t118*t136*t161+9.491919999999999
2343     <         d-2*t136*t138)-8.888888888888888d-1*t71*(-2.4682961769030
2344     =         842d-2*t237*t38*t39*t75+4.9365923538061685d-2*t182*t233*t
2345     >         38*t39-1.4431302433467247d-1*t1*t125*t237*t3+2.1646953650
2346     ?         20087d-1*t1*t154*t233*t3)-1.0546577777777776d-1*t248*t34*
2347     @         t35-2.109315555555555d-1*t138*t157*t35+6.764482379964267d
2348     1         -3*t1*t125*t136*t157*t3*t34-1.7777777777777776d+0*t159*t1
2349     2         62)+t15*(-3.2910615692041123d-2*gammaaa*t16*t235*t51-3.29
2350     3         10615692041123d-2*t134*t16*t51-3.2910615692041123d-2*gamm
2351     4         aaa*t134*t135*t51-t134*t146)*t87-6.582123138408225d-2*gam
2352     5         maaa*t104*t134*t144*t15*t16*t87-4.727288888888889d-2*t237
2353     6         *t31*t75+t131*(2.6666666666666666d+0*t248*t71*t73+2.66666
2354     7         66666666666d+0*t157*t162*t73+2.6666666666666666d+0*t157*t
2355     8         159*t71-3.0d+0*t157*t163)-1.0666666666666666d+1*t157**2*t
2356     9         188*t71*t73+6.764482379964267d-3*t1*t125*t136*t157*t3*t34
2357     :         *t72+2.0d+0*t150**2*t202*t58-2.0d+0*t237*t57+t15*t24*(3.2
2358     ;         910615692041123d-2*gammaaa*t236*t51+6.582123138408225d-2*
2359     <         t135*t51+3.2910615692041123d-2*t104*t144*t16+3.2910615692
2360     =         041123d-2*gammaaa*t104*t135*t144)+6.582123138408225d-2*ga
2361     >         mmaaa*t15*t16*t169*t234*t51+1.5557798788747831d-3*t186*t2
2362     ?         33*t38*t39/t26**4+5.273288888888887d-2*t238*t35*t37+t125*
2363     @         t3*(-3.3822411899821336d-3*t1*t237*t34-6.764482379964267d
2364     1         -3*t1*t136*t138)*t37+5.0733617849732d-3*t1*t154*t233*t3*t
2365     2         34*t37+9.454577777777778d-2*t182*t233*t31+6.0640831685266
2366     3         58d-3*t1*t124*t154*t237*t3-2.1224291089843306d-2*t1*t124*
2367     4         t230*t233*t3-3.2910615692041123d-2*gammaaa*t144**2*t15*t1
2368     5         6*t189*t24)*wght
2369            Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB)
2370            Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB)
2371            Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB)
2372          endif ! rhoa.gt.tol_rho
2373        else  ! ipol.eq.1
2374          rhoa    = rho(iq,R_A)
2375          rhob    = rho(iq,R_B)
2376          gammaaa = rgamma(iq,G_AA)
2377          gammaab = rgamma(iq,G_AB)
2378          gammabb = rgamma(iq,G_BB)
2379          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
2380            t1 = param(1)
2381            t2 = rhoa**3.333333333333333d-1
2382            t3 = 1/t2
2383            t4 = t1*t3
2384            t5 = gammaaa**5.0d-1
2385            t6 = t5**7
2386            t7 = 1/rhoa**9.333333333333333d+0
2387            t8 = gammaaa**3
2388            t9 = 1/rhoa**8
2389            t10 = t5**5
2390            t11 = 1/rhoa**6.666666666666667d+0
2391            t12 = gammaaa**2
2392            t13 = 1/rhoa**5.333333333333333d+0
2393            t14 = t5**3
2394            t15 = 1/rhoa**4
2395            t16 = 1/rhoa**2.6666666666666666d+0
2396            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
2397     1         7+2.631878392200375d-4*gammaaa*t16+1.8005513133540818d-4*
2398     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
2399     3         10*t11
2400            t18 = t5**9
2401            t19 = 1/rhoa**12
2402            t20 = gammaaa**4
2403            t21 = 1/rhoa**1.0666666666666666d+1
2404            t22 = rhoa**1.3333333333333333d+0
2405            t23 = 1/t22
2406            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
2407     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
2408     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
2409     3         mmaaa*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
2410     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
2411            t25 = 1/t24
2412            t26 = 1.6455307846020562d-2*gammaaa*t16*t17*t25
2413            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
2414            t28 = 1/t27
2415            t29 = t27**5.0d-1
2416            t30 = 1/t29
2417            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
2418            t32 = 1/t31
2419            t33 = 4.1138269615051404d-3*gammaaa*t16+1.0d+0
2420            t34 = 1/t33
2421            t35 = 5.136628594837797d-3*gammaaa*t16*t34+6.934448603031025
2422     1         d-2*gammaaa*t16*t17*t25+1.0d+0
2423            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
2424            t37 = t27*t31
2425            t38 = 1/t37**2.0d+0
2426            t39 = t1**2
2427            t40 = 1/rhoa**6.666666666666666d-1
2428            t41 = 6.582123138408225d-2*t39*t40
2429            t42 = t41+t26
2430            t43 = t42**5.0d-1
2431            t44 = t41+t26+6.0965d-1
2432            t45 = t44**5.0d-1
2433            t46 = t45+t43
2434            t47 = 1/t46
2435            t48 = 2.565564877060844d-1*t1*t3
2436            t49 = t48+t45
2437            t50 = 1/t49
2438            t51 = 1.0d+0-6.0965d-1*t47*t50
2439            t52 = log(t51)
2440            t53 = t41+t26+7.57211d-1
2441            t54 = t53**5.0d-1
2442            t55 = t54+t45
2443            t56 = 1/t55
2444            t57 = 1.475609999999999d-1*t50*t56+1.0d+0
2445            t58 = log(t57)
2446            t59 = t26+7.57211d-1
2447            t60 = t54+t43
2448            t61 = 1/t60
2449            t62 = t54+t48
2450            t63 = 1/t62
2451            t64 = t48+t43
2452            t65 = 1/t64
2453            t66 = t26+6.0965d-1
2454            t67 = t66**2.0d+0
2455            t68 = t66**3.5d+0
2456            t69 = (gammaaa*t16*t17*t25)**5.0d-1
2457            t70 = t59**5.0d-1
2458            t71 = 1.282782438530422d-1*t69-t70
2459            t72 = -2.4d+0*t68*t71-1.417963080724413d+0*t68+2.83637333333
2460     1         3333d-2*t67-9.086532d-1*t66**3.0d+0+4.7459599999999996d-2
2461     2         *t35*t66
2462            t73 = 1/t37**3.0d+0
2463            t74 = t1*t3*t30
2464            t75 = 2.4682961769030842d-2*t74**2.0d+0+2.8862604866934494d-
2465     1         1*t1*t3*t30+1.0d+0
2466            t76 = -8.888888888888888d-1*t72*t73*t75+7.57211d-1*(1.645530
2467     1         7846020562d-2*gammaaa*t16*t17*t25*t61*t65+t59*t61*t63)-2.
2468     2         0d+0*t58*t59+3.2910615692041123d-2*gammaaa*t16*t17*t25*t5
2469     3         2+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
2470     4         28*t32-1.0d+0
2471            t77 = rhob**3.333333333333333d-1
2472            t78 = 1/t77
2473            t79 = t1*t78
2474            t80 = gammabb**5.0d-1
2475            t81 = t80**7
2476            t82 = 1/rhob**9.333333333333333d+0
2477            t83 = gammabb**3
2478            t84 = 1/rhob**8
2479            t85 = t80**5
2480            t86 = 1/rhob**6.666666666666667d+0
2481            t87 = gammabb**2
2482            t88 = 1/rhob**5.333333333333333d+0
2483            t89 = t80**3
2484            t90 = 1/rhob**4
2485            t91 = 1/rhob**2.6666666666666666d+0
2486            t92 = 2.631878392200375d-4*gammabb*t91+1.8005513133540818d-4
2487     1         *t89*t90-4.342399100269002d-5*t87*t88+5.3020963068324d-6*
2488     2         t85*t86-4.327677396975467d-7*t83*t84+2.4123830247695402d-
2489     3         8*t81*t82
2490            t93 = t80**9
2491            t94 = 1/rhob**12
2492            t95 = gammabb**4
2493            t96 = 1/rhob**1.0666666666666666d+1
2494            t97 = rhob**1.3333333333333333d+0
2495            t98 = 1/t97
2496            t99 = 6.841322473346062d-1*t80*t98-5.649671283776346d-9*t95*
2497     1         t96+3.149302550983647d-10*t93*t94-2.0532933130264455d-1*g
2498     2         ammabb*t91+2.342799068769956d-2*t89*t90-1.383706469760652
2499     3         4d-3*t87*t88+5.955909787676884d-5*t85*t86-2.7196832676277
2500     4         033d-6*t83*t84+1.7578986477855002d-7*t81*t82+1.0d+0
2501            t100 = 1/t99
2502            t101 = 1.6455307846020562d-2*gammabb*t100*t91*t92
2503            t102 = 6.582123138408225d-2*t79**2.0d+0+t101+6.0965d-1
2504            t103 = 1/t102
2505            t104 = t102**5.0d-1
2506            t105 = 1/t104
2507            t106 = 2.565564877060844d-1*t1*t105*t78+1.0d+0
2508            t107 = 1/t106
2509            t108 = 4.1138269615051404d-3*gammabb*t91+1.0d+0
2510            t109 = 1/t108
2511            t110 = 6.934448603031025d-2*gammabb*t100*t91*t92+5.136628594
2512     1         837797d-3*gammabb*t109*t91+1.0d+0
2513            t111 = 1.282782438530422d-1*t1*t105*t78+1.0d+0
2514            t112 = t102*t106
2515            t113 = 1/t112**2.0d+0
2516            t114 = 1/rhob**6.666666666666666d-1
2517            t115 = 6.582123138408225d-2*t114*t39
2518            t116 = t115+t101
2519            t117 = t116**5.0d-1
2520            t118 = t115+t101+6.0965d-1
2521            t119 = t118**5.0d-1
2522            t120 = t119+t117
2523            t121 = 1/t120
2524            t122 = 2.565564877060844d-1*t1*t78
2525            t123 = t122+t119
2526            t124 = 1/t123
2527            t125 = 1.0d+0-6.0965d-1*t121*t124
2528            t126 = log(t125)
2529            t127 = t115+t101+7.57211d-1
2530            t128 = t127**5.0d-1
2531            t129 = t128+t119
2532            t130 = 1/t129
2533            t131 = 1.475609999999999d-1*t124*t130+1.0d+0
2534            t132 = log(t131)
2535            t133 = t101+7.57211d-1
2536            t134 = t128+t117
2537            t135 = 1/t134
2538            t136 = t128+t122
2539            t137 = 1/t136
2540            t138 = t122+t117
2541            t139 = 1/t138
2542            t140 = t101+6.0965d-1
2543            t141 = t140**2.0d+0
2544            t142 = t140**3.5d+0
2545            t143 = (gammabb*t100*t91*t92)**5.0d-1
2546            t144 = t133**5.0d-1
2547            t145 = 1.282782438530422d-1*t143-t144
2548            t146 = -2.4d+0*t142*t145-1.417963080724413d+0*t142+2.8363733
2549     1         33333333d-2*t141-9.086532d-1*t140**3.0d+0+4.7459599999999
2550     2         996d-2*t110*t140
2551            t147 = 1/t112**3.0d+0
2552            t148 = t1*t105*t78
2553            t149 = 2.8862604866934494d-1*t1*t105*t78+2.4682961769030842d
2554     1         -2*t148**2.0d+0+1.0d+0
2555            t150 = 7.57211d-1*(1.6455307846020562d-2*gammabb*t100*t135*t
2556     1         139*t91*t92+t133*t135*t137)+3.2910615692041123d-2*gammabb
2557     2         *t100*t126*t91*t92-8.888888888888888d-1*t146*t147*t149-2.
2558     3         0d+0*t132*t133+5.273288888888887d-2*t110*t111*t113+4.7272
2559     4         88888888889d-2*t103*t107-1.0d+0
2560            t151 = 1/t27**2
2561            t152 = 1/rhoa**3.6666666666666664d+0
2562            t153 = -4.38808209227215d-2*gammaaa*t152*t17*t25
2563            t154 = 1/rhoa**13
2564            t155 = 1/rhoa**1.1666666666666665d+1
2565            t156 = 1/rhoa**1.0333333333333333d+1
2566            t157 = 1/rhoa**9
2567            t158 = 1/rhoa**7.666666666666667d+0
2568            t159 = 1/rhoa**6.333333333333333d+0
2569            t160 = 1/rhoa**5
2570            t161 = 1/rhoa**2.3333333333333334d+0
2571            t162 = 2.1757466141021625d-5*t157*t8-1.6407054045998d-6*t156
2572     1         *t6-9.121763297794749d-1*t161*t5+6.026316036028103d-8*t15
2573     2         5*t20-3.7791630611803767d-9*t154*t18-9.371196275079824d-2
2574     3         *t14*t160+7.379767838723479d-3*t12*t159-3.970606525117923
2575     4         d-4*t10*t158+5.475448834737188d-1*gammaaa*t152
2576            t163 = 1/t24**2
2577            t164 = -1.6455307846020562d-2*gammaaa*t16*t162*t163*t17
2578            t165 = 3.462141917580374d-6*t157*t8-2.2515574897849044d-7*t1
2579     1         56*t6-7.202205253416327d-4*t14*t160+2.3159461868101344d-4
2580     2         *t12*t159-3.5347308712216d-5*t10*t158-7.018342379201d-4*g
2581     3         ammaaa*t152
2582            t166 = 1.6455307846020562d-2*gammaaa*t16*t165*t25
2583            t167 = -4.38808209227215d-2*t1*t23*t4+t166+t164+t153
2584            t168 = 1/t33**2
2585            t169 = -1.369767625290079d-2*gammaaa*t152*t34-1.849186294141
2586     1         6065d-1*gammaaa*t152*t17*t25+6.934448603031025d-2*gammaaa
2587     2         *t16*t165*t25-6.934448603031025d-2*gammaaa*t16*t162*t163*
2588     3         t17+5.634986987915197d-5*t12*t159*t168
2589            t170 = -4.38808209227215d-2*t39/rhoa**1.6666666666666669d+0+
2590     1         t166+t164+t153
2591            t171 = 1/t45
2592            t172 = 5.0d-1*t170*t171
2593            t173 = -8.551882923536147d-2*t1*t23
2594            t174 = t173+t172
2595            t175 = 1/t49**2
2596            t176 = 1/t43
2597            t177 = 5.0d-1*t170*t176
2598            t178 = t177+t172
2599            t179 = 1/t46**2
2600            t180 = 6.0965d-1*t178*t179*t50+6.0965d-1*t174*t175*t47
2601            t181 = 1/t51
2602            t182 = t166+t164+t153
2603            t183 = 1/t54
2604            t184 = 5.0d-1*t170*t183
2605            t185 = t184+t172
2606            t186 = 1/t55**2
2607            t187 = -1.475609999999999d-1*t174*t175*t56-1.475609999999999
2608     1         d-1*t185*t186*t50
2609            t188 = 1/t57
2610            t189 = t184+t173
2611            t190 = 1/t62**2
2612            t191 = t184+t177
2613            t192 = 1/t60**2
2614            t193 = t177+t173
2615            t194 = 1/t64**2
2616            t195 = t66**2.5d+0
2617            t196 = 1/t70
2618            t197 = 1/t69
2619            t198 = -2.6666666666666666d+0*gammaaa*t152*t17*t25+gammaaa*t
2620     1         16*t165*t25-gammaaa*t16*t162*t163*t17
2621            t199 = 6.41391219265211d-2*t197*t198-5.0d-1*t182*t196
2622            t200 = -8.400000000000001d+0*t182*t195*t71-2.4d+0*t199*t68-2
2623     1         .7259596d+0*t182*t67+5.672746666666666d-2*t182*t66+4.7459
2624     2         599999999996d-2*t169*t66+4.7459599999999996d-2*t182*t35-4
2625     3         .9628707825354457d+0*t182*t195
2626            t201 = 1/t31**2
2627            t202 = 1/t29**3
2628            t203 = -8.551882923536147d-2*t1*t23*t30-1.282782438530422d-1
2629     1         *t1*t167*t202*t3
2630            t204 = -4.2759414617680735d-2*t1*t23*t30-6.41391219265211d-2
2631     1         *t1*t167*t202*t3
2632            t205 = -3.333333333333333d-1*t1*t23*t30-5.0d-1*t1*t167*t202*
2633     1         t3
2634            t206 = 4.9365923538061685d-2*t205*t74-9.620868288978164d-2*t
2635     1         1*t23*t30-1.4431302433467247d-1*t1*t167*t202*t3
2636            t207 = t167*t31+t203*t27
2637            t208 = 1/t37**4.0d+0
2638            t209 = -8.888888888888888d-1*t200*t73*t75+2.6666666666666666
2639     1         d+0*t207*t208*t72*t75-8.888888888888888d-1*t206*t72*t73-1
2640     2         .0546577777777776d-1*t207*t35*t36*t73+7.57211d-1*(-4.3880
2641     3         8209227215d-2*gammaaa*t152*t17*t25*t61*t65+1.645530784602
2642     4         0562d-2*gammaaa*t16*t165*t25*t61*t65-1.6455307846020562d-
2643     5         2*gammaaa*t16*t162*t163*t17*t61*t65-1.6455307846020562d-2
2644     6         *gammaaa*t16*t17*t191*t192*t25*t65+t182*t61*t63-t191*t192
2645     7         *t59*t63-t189*t190*t59*t61-1.6455307846020562d-2*gammaaa*
2646     8         t16*t17*t193*t194*t25*t61)-2.0d+0*t187*t188*t59-2.0d+0*t1
2647     9         82*t58-8.7761641845443d-2*gammaaa*t152*t17*t25*t52+3.2910
2648     :         615692041123d-2*gammaaa*t16*t165*t25*t52-3.29106156920411
2649     ;         23d-2*gammaaa*t16*t162*t163*t17*t52+5.273288888888887d-2*
2650     <         t169*t36*t38+5.273288888888887d-2*t204*t35*t38-4.72728888
2651     =         8888889d-2*t151*t167*t32-4.727288888888889d-2*t201*t203*t
2652     >         28+3.2910615692041123d-2*gammaaa*t16*t17*t180*t181*t25
2653            t210 = 1/t102**2
2654            t211 = 1/rhob**3.6666666666666664d+0
2655            t212 = -4.38808209227215d-2*gammabb*t100*t211*t92
2656            t213 = 1/rhob**13
2657            t214 = 1/rhob**1.1666666666666665d+1
2658            t215 = 1/rhob**1.0333333333333333d+1
2659            t216 = 1/rhob**9
2660            t217 = 1/rhob**7.666666666666667d+0
2661            t218 = 1/rhob**6.333333333333333d+0
2662            t219 = 1/rhob**5
2663            t220 = 1/rhob**2.3333333333333334d+0
2664            t221 = 6.026316036028103d-8*t214*t95-3.7791630611803767d-9*t
2665     1         213*t93-9.371196275079824d-2*t219*t89+7.379767838723479d-
2666     2         3*t218*t87-3.970606525117923d-4*t217*t85+2.17574661410216
2667     3         25d-5*t216*t83-1.6407054045998d-6*t215*t81-9.121763297794
2668     4         749d-1*t220*t80+5.475448834737188d-1*gammabb*t211
2669            t222 = 1/t99**2
2670            t223 = -1.6455307846020562d-2*gammabb*t221*t222*t91*t92
2671            t224 = -7.202205253416327d-4*t219*t89+2.3159461868101344d-4*
2672     1         t218*t87-3.5347308712216d-5*t217*t85+3.462141917580374d-6
2673     2         *t216*t83-2.2515574897849044d-7*t215*t81-7.018342379201d-
2674     3         4*gammabb*t211
2675            t225 = 1.6455307846020562d-2*gammabb*t100*t224*t91
2676            t226 = -4.38808209227215d-2*t1*t79*t98+t225+t223+t212
2677            t227 = 1/t108**2
2678            t228 = -6.934448603031025d-2*gammabb*t221*t222*t91*t92-1.849
2679     1         1862941416065d-1*gammabb*t100*t211*t92+6.934448603031025d
2680     2         -2*gammabb*t100*t224*t91+5.634986987915197d-5*t218*t227*t
2681     3         87-1.369767625290079d-2*gammabb*t109*t211
2682            t229 = -4.38808209227215d-2*t39/rhob**1.6666666666666669d+0+
2683     1         t225+t223+t212
2684            t230 = 1/t119
2685            t231 = 5.0d-1*t229*t230
2686            t232 = -8.551882923536147d-2*t1*t98
2687            t233 = t232+t231
2688            t234 = 1/t123**2
2689            t235 = 1/t117
2690            t236 = 5.0d-1*t229*t235
2691            t237 = t236+t231
2692            t238 = 1/t120**2
2693            t239 = 6.0965d-1*t124*t237*t238+6.0965d-1*t121*t233*t234
2694            t240 = 1/t125
2695            t241 = t225+t223+t212
2696            t242 = 1/t128
2697            t243 = 5.0d-1*t229*t242
2698            t244 = t243+t231
2699            t245 = 1/t129**2
2700            t246 = -1.475609999999999d-1*t124*t244*t245-1.47560999999999
2701     1         9d-1*t130*t233*t234
2702            t247 = 1/t131
2703            t248 = t243+t232
2704            t249 = 1/t136**2
2705            t250 = t243+t236
2706            t251 = 1/t134**2
2707            t252 = t236+t232
2708            t253 = 1/t138**2
2709            t254 = t140**2.5d+0
2710            t255 = 1/t144
2711            t256 = 1/t143
2712            t257 = -gammabb*t221*t222*t91*t92-2.6666666666666666d+0*gamm
2713     1         abb*t100*t211*t92+gammabb*t100*t224*t91
2714            t258 = 6.41391219265211d-2*t256*t257-5.0d-1*t241*t255
2715            t259 = -2.4d+0*t142*t258-8.400000000000001d+0*t145*t241*t254
2716     1         -4.9628707825354457d+0*t241*t254-2.7259596d+0*t141*t241+5
2717     2         .672746666666666d-2*t140*t241+4.7459599999999996d-2*t110*
2718     3         t241+4.7459599999999996d-2*t140*t228
2719            t260 = 1/t106**2
2720            t261 = 1/t104**3
2721            t262 = -8.551882923536147d-2*t1*t105*t98-1.282782438530422d-
2722     1         1*t1*t226*t261*t78
2723            t263 = -4.2759414617680735d-2*t1*t105*t98-6.41391219265211d-
2724     1         2*t1*t226*t261*t78
2725            t264 = -3.333333333333333d-1*t1*t105*t98-5.0d-1*t1*t226*t261
2726     1         *t78
2727            t265 = -9.620868288978164d-2*t1*t105*t98-1.4431302433467247d
2728     1         -1*t1*t226*t261*t78+4.9365923538061685d-2*t148*t264
2729            t266 = t102*t262+t106*t226
2730            t267 = 1/t112**4.0d+0
2731            t268 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t100*t135*
2732     1         t252*t253*t91*t92-1.6455307846020562d-2*gammabb*t100*t139
2733     2         *t250*t251*t91*t92-1.6455307846020562d-2*gammabb*t135*t13
2734     3         9*t221*t222*t91*t92-4.38808209227215d-2*gammabb*t100*t135
2735     4         *t139*t211*t92+1.6455307846020562d-2*gammabb*t100*t135*t1
2736     5         39*t224*t91-t133*t137*t250*t251-t133*t135*t248*t249+t135*
2737     6         t137*t241)+3.2910615692041123d-2*gammabb*t100*t239*t240*t
2738     7         91*t92-3.2910615692041123d-2*gammabb*t126*t221*t222*t91*t
2739     8         92-8.7761641845443d-2*gammabb*t100*t126*t211*t92+3.291061
2740     9         5692041123d-2*gammabb*t100*t126*t224*t91+2.66666666666666
2741     :         66d+0*t146*t149*t266*t267-1.0546577777777776d-1*t110*t111
2742     ;         *t147*t266-8.888888888888888d-1*t146*t147*t265+5.27328888
2743     <         8888887d-2*t110*t113*t263-4.727288888888889d-2*t103*t260*
2744     =         t262-8.888888888888888d-1*t147*t149*t259-2.0d+0*t133*t246
2745     >         *t247-2.0d+0*t132*t241+5.273288888888887d-2*t111*t113*t22
2746     ?         8-4.727288888888889d-2*t107*t210*t226
2747            t269 = 1/t5
2748            t270 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
2749     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
2750     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t23*
2751     3         t269-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t
2752     4         14-2.767412939521305d-3*gammaaa*t13
2753            t271 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
2754     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
2755     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammaaa
2756     3         *t13
2757            t272 = 1.6455307846020562d-2*gammaaa*t16*t25*t271-1.64553078
2758     1         46020562d-2*gammaaa*t16*t163*t17*t270+1.6455307846020562d
2759     2         -2*t16*t17*t25
2760            t273 = -4.727288888888889d-2*t151*t272*t32
2761            t274 = 5.136628594837797d-3*t16*t34+6.934448603031025d-2*gam
2762     1         maaa*t16*t25*t271-6.934448603031025d-2*gammaaa*t16*t163*t
2763     2         17*t270+6.934448603031025d-2*t16*t17*t25-2.11312012046819
2764     3         9d-5*gammaaa*t13*t168
2765            t275 = 5.273288888888887d-2*t274*t36*t38
2766            t276 = -3.2910615692041123d-2*gammaaa*t16*t163*t17*t270*t52
2767            t277 = 5.0d-1*t176*t272
2768            t278 = 5.0d-1*t171*t272
2769            t279 = t278+t277
2770            t280 = 6.0965d-1*t179*t279*t50+3.04825d-1*t171*t175*t272*t47
2771            t281 = 3.2910615692041123d-2*gammaaa*t16*t17*t181*t25*t280
2772            t282 = 3.2910615692041123d-2*gammaaa*t271*t52+3.291061569204
2773     1         1123d-2*t17*t52
2774            t283 = -2.0d+0*t272*t58
2775            t284 = 5.0d-1*t183*t272
2776            t285 = t284+t278
2777            t286 = -7.378049999999994d-2*t171*t175*t272*t56-1.4756099999
2778     1         99999d-1*t186*t285*t50
2779            t287 = -2.0d+0*t188*t286*t59
2780            t288 = t284+t277
2781            t289 = 7.57211d-1*(1.6455307846020562d-2*gammaaa*t16*t25*t27
2782     1         1*t61*t65-1.6455307846020562d-2*gammaaa*t16*t163*t17*t270
2783     2         *t61*t65+1.6455307846020562d-2*t16*t17*t25*t61*t65-1.6455
2784     3         307846020562d-2*gammaaa*t16*t17*t192*t25*t288*t65+t272*t6
2785     4         1*t63-t192*t288*t59*t63-5.0d-1*t183*t190*t272*t59*t61-8.2
2786     5         27653923010281d-3*gammaaa*t16*t17*t176*t194*t25*t272*t61)
2787            t290 = 1/t29**5
2788            t291 = 6.064083168526658d-3*t1*t201*t272*t290*t3
2789            t292 = -3.3822411899821336d-3*t1*t202*t272*t3*t35*t38
2790            t293 = t272*t31-1.282782438530422d-1*t1*t272*t3*t30
2791            t294 = 2.6666666666666666d+0*t208*t293*t72*t75
2792            t295 = -1.4431302433467247d-1*t1*t202*t272*t3
2793            t296 = t295-2.4682961769030842d-2*t151*t272*t39*t40
2794            t297 = gammaaa*t16*t25*t271-gammaaa*t16*t163*t17*t270+t16*t1
2795     1         7*t25
2796            t298 = 6.41391219265211d-2*t197*t297-5.0d-1*t196*t272
2797            t299 = -8.400000000000001d+0*t195*t272*t71-2.4d+0*t298*t68-2
2798     1         .7259596d+0*t272*t67+4.7459599999999996d-2*t274*t66+5.672
2799     2         746666666666d-2*t272*t66+4.7459599999999996d-2*t272*t35-4
2800     3         .9628707825354457d+0*t195*t272
2801            t300 = -8.888888888888888d-1*t299*t75-8.888888888888888d-1*t
2802     1         296*t72-1.0546577777777776d-1*t293*t35*t36
2803            t301 = 1/t80
2804            t302 = 3.420661236673031d-1*t301*t98-2.2598685135105387d-8*t
2805     1         83*t96+1.4171861479426412d-9*t81*t94-2.0532933130264455d-
2806     2         1*t91+3.514198603154934d-2*t80*t90+1.488977446919221d-4*t
2807     3         86*t89-2.767412939521305d-3*gammabb*t88-8.159049802883108
2808     4         d-6*t84*t87+6.15264526724925d-7*t82*t85
2809            t303 = 2.631878392200375d-4*t91+2.7008269700311227d-4*t80*t9
2810     1         0+1.3255240767081d-5*t86*t89-8.684798200538004d-5*gammabb
2811     2         *t88-1.2983032190926402d-6*t84*t87+8.443340586693391d-8*t
2812     3         82*t85
2813            t304 = -1.6455307846020562d-2*gammabb*t222*t302*t91*t92+1.64
2814     1         55307846020562d-2*t100*t91*t92+1.6455307846020562d-2*gamm
2815     2         abb*t100*t303*t91
2816            t305 = -4.727288888888889d-2*t107*t210*t304
2817            t306 = -6.934448603031025d-2*gammabb*t222*t302*t91*t92+6.934
2818     1         448603031025d-2*t100*t91*t92+6.934448603031025d-2*gammabb
2819     2         *t100*t303*t91+5.136628594837797d-3*t109*t91-2.1131201204
2820     3         68199d-5*gammabb*t227*t88
2821            t307 = 5.273288888888887d-2*t111*t113*t306
2822            t308 = -3.2910615692041123d-2*gammabb*t126*t222*t302*t91*t92
2823            t309 = 5.0d-1*t235*t304
2824            t310 = 5.0d-1*t230*t304
2825            t311 = t310+t309
2826            t312 = 6.0965d-1*t124*t238*t311+3.04825d-1*t121*t230*t234*t3
2827     1         04
2828            t313 = 3.2910615692041123d-2*gammabb*t100*t240*t312*t91*t92
2829            t314 = 3.2910615692041123d-2*t126*t92+3.2910615692041123d-2*
2830     1         gammabb*t126*t303
2831            t315 = -2.0d+0*t132*t304
2832            t316 = 5.0d-1*t242*t304
2833            t317 = t316+t310
2834            t318 = -1.475609999999999d-1*t124*t245*t317-7.37804999999999
2835     1         4d-2*t130*t230*t234*t304
2836            t319 = -2.0d+0*t133*t247*t318
2837            t320 = t316+t309
2838            t321 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t100*t139*
2839     1         t251*t320*t91*t92-8.227653923010281d-3*gammabb*t100*t135*
2840     2         t235*t253*t304*t91*t92-1.6455307846020562d-2*gammabb*t135
2841     3         *t139*t222*t302*t91*t92+1.6455307846020562d-2*t100*t135*t
2842     4         139*t91*t92+1.6455307846020562d-2*gammabb*t100*t135*t139*
2843     5         t303*t91-t133*t137*t251*t320-5.0d-1*t133*t135*t242*t249*t
2844     6         304+t135*t137*t304)
2845            t322 = 1/t104**5
2846            t323 = 6.064083168526658d-3*t1*t260*t304*t322*t78
2847            t324 = -3.3822411899821336d-3*t1*t110*t113*t261*t304*t78
2848            t325 = t106*t304-1.282782438530422d-1*t1*t105*t304*t78
2849            t326 = 2.6666666666666666d+0*t146*t149*t267*t325
2850            t327 = -1.4431302433467247d-1*t1*t261*t304*t78
2851            t328 = t327-2.4682961769030842d-2*t114*t210*t304*t39
2852            t329 = -gammabb*t222*t302*t91*t92+t100*t91*t92+gammabb*t100*
2853     1         t303*t91
2854            t330 = 6.41391219265211d-2*t256*t329-5.0d-1*t255*t304
2855            t331 = -2.4d+0*t142*t330+4.7459599999999996d-2*t140*t306-8.4
2856     1         00000000000001d+0*t145*t254*t304-4.9628707825354457d+0*t2
2857     2         54*t304-2.7259596d+0*t141*t304+5.672746666666666d-2*t140*
2858     3         t304+4.7459599999999996d-2*t110*t304
2859            t332 = -8.888888888888888d-1*t149*t331-8.888888888888888d-1*
2860     1         t146*t328-1.0546577777777776d-1*t110*t111*t325
2861            t333 = 1/rhoa**4.666666666666667d+0
2862            t334 = 1.6089634338331216d-1*gammaaa*t17*t25*t333
2863            t335 = 8.7761641845443d-2*gammaaa*t152*t162*t163*t17
2864            t336 = -8.7761641845443d-2*gammaaa*t152*t165*t25
2865            t337 = t162**2
2866            t338 = 1/t24**3
2867            t339 = 3.2910615692041123d-2*gammaaa*t16*t17*t337*t338
2868            t340 = 1/rhoa**1.1333333333333334d+1
2869            t341 = 1/rhoa**10
2870            t342 = 1/rhoa**8.666666666666666d+0
2871            t343 = 1/rhoa**7.333333333333333d+0
2872            t344 = 1/rhoa**6
2873            t345 = -1.9581719526919464d-4*t341*t8+1.695395584753127d-5*t
2874     1         340*t6+2.1284114361521084d+0*t5/rhoa**3.3333333333333337d
2875     2         +0+4.685598137539912d-1*t14*t344-4.6738529645248705d-2*t1
2876     3         2*t343+3.0441316692570747d-3*t10*t342-2.0076645727369685d
2877     4         +0*gammaaa*t333-7.030702042032786d-7*t20/rhoa**1.26666666
2878     5         66666665d+1+4.9129119795344894d-8*t18/rhoa**14
2879            t346 = -1.6455307846020562d-2*gammaaa*t16*t163*t17*t345
2880            t347 = -3.2910615692041123d-2*gammaaa*t16*t162*t163*t165
2881            t348 = -3.115927725822337d-5*t341*t8+2.326609406111068d-6*t3
2882     1         40*t6+3.6011026267081636d-3*t14*t344-1.466765918313085d-3
2883     2         *t12*t343+2.709960334603227d-4*t10*t342+2.573392205707033
2884     3         5d-3*gammaaa*t333
2885            t349 = 1.6455307846020562d-2*gammaaa*t16*t25*t348
2886            t350 = 7.313470153786916d-2*t16*t39+t349+t347+t346+t339+t336
2887     1         +t335+t334
2888            t351 = 1/t27**3
2889            t352 = t167**2
2890            t353 = 1/t33**3
2891            t354 = 1.2363392745928628d-6*t341*t353*t8+6.934448603031025d
2892     1         -2*gammaaa*t16*t25*t348-6.934448603031025d-2*gammaaa*t16*
2893     2         t163*t17*t345-5.071488289123677d-4*t12*t168*t343+5.022481
2894     3         29273029d-2*gammaaa*t333*t34+1.386889720606205d-1*gammaaa
2895     4         *t16*t17*t337*t338+6.780349745185891d-1*gammaaa*t17*t25*t
2896     5         333-3.698372588283213d-1*gammaaa*t152*t165*t25+3.69837258
2897     6         8283213d-1*gammaaa*t152*t162*t163*t17-1.386889720606205d-
2898     7         1*gammaaa*t16*t162*t163*t165
2899            t355 = 1/t31**3
2900            t356 = t207**2
2901            t357 = 1/t37**5.0d+0
2902            t358 = 1/t51**2
2903            t359 = t174**2
2904            t360 = 1/t49**3
2905            t361 = t170**2
2906            t362 = 1/t45**3
2907            t363 = -2.5d-1*t361*t362
2908            t364 = 5.0d-1*t171*t350
2909            t365 = 1.1402510564714863d-1*t1*t161
2910            t366 = t365+t364+t363
2911            t367 = 1/t46**3
2912            t368 = 1/t43**3
2913            t369 = -2.5d-1*t361*t368
2914            t370 = 5.0d-1*t176*t350
2915            t371 = t349+t347+t346+t339+t336+t335+t334
2916            t372 = 1/t57**2
2917            t373 = 1/t55**3
2918            t374 = 1/t54**3
2919            t375 = -2.5d-1*t361*t374
2920            t376 = 5.0d-1*t183*t350
2921            t377 = 1/t62**3
2922            t378 = t191**2
2923            t379 = 1/t60**3
2924            t380 = t376+t375+t370+t369
2925            t381 = 1/t64**3
2926            t382 = t182**2
2927            t383 = t66**1.5d+0
2928            t384 = 1/t69**3
2929            t385 = 1/t70**3
2930            t386 = 1.924173657795633d-1*t1*t290*t3*t352-1.28278243853042
2931     1         2d-1*t1*t202*t3*t350+1.1402510564714863d-1*t1*t161*t30+8.
2932     2         551882923536147d-2*t1*t167*t202*t23
2933            t387 = t27*t386+t31*t350+2*t167*t203
2934            t388 = 1/rhob**4.666666666666667d+0
2935            t389 = 1.6089634338331216d-1*gammabb*t100*t388*t92
2936            t390 = 8.7761641845443d-2*gammabb*t211*t221*t222*t92
2937            t391 = -8.7761641845443d-2*gammabb*t100*t211*t224
2938            t392 = t221**2
2939            t393 = 1/t99**3
2940            t394 = 3.2910615692041123d-2*gammabb*t392*t393*t91*t92
2941            t395 = 1/rhob**1.1333333333333334d+1
2942            t396 = 1/rhob**10
2943            t397 = 1/rhob**8.666666666666666d+0
2944            t398 = 1/rhob**7.333333333333333d+0
2945            t399 = 1/rhob**6
2946            t400 = -7.030702042032786d-7*t95/rhob**1.2666666666666665d+1
2947     1         +4.9129119795344894d-8*t93/rhob**14+4.685598137539912d-1*
2948     2         t399*t89-4.6738529645248705d-2*t398*t87+3.044131669257074
2949     3         7d-3*t397*t85-1.9581719526919464d-4*t396*t83+1.6953955847
2950     4         53127d-5*t395*t81+2.1284114361521084d+0*t80/rhob**3.33333
2951     5         33333333337d+0-2.0076645727369685d+0*gammabb*t388
2952            t401 = -1.6455307846020562d-2*gammabb*t222*t400*t91*t92
2953            t402 = -3.2910615692041123d-2*gammabb*t221*t222*t224*t91
2954            t403 = 3.6011026267081636d-3*t399*t89-1.466765918313085d-3*t
2955     1         398*t87+2.709960334603227d-4*t397*t85-3.115927725822337d-
2956     2         5*t396*t83+2.326609406111068d-6*t395*t81+2.57339220570703
2957     3         35d-3*gammabb*t388
2958            t404 = 1.6455307846020562d-2*gammabb*t100*t403*t91
2959            t405 = 7.313470153786916d-2*t39*t91+t404+t402+t401+t394+t391
2960     1         +t390+t389
2961            t406 = 1/t102**3
2962            t407 = t226**2
2963            t408 = 1/t108**3
2964            t409 = -6.934448603031025d-2*gammabb*t222*t400*t91*t92+1.386
2965     1         889720606205d-1*gammabb*t392*t393*t91*t92+6.7803497451858
2966     2         91d-1*gammabb*t100*t388*t92+3.698372588283213d-1*gammabb*
2967     3         t211*t221*t222*t92+6.934448603031025d-2*gammabb*t100*t403
2968     4         *t91-1.386889720606205d-1*gammabb*t221*t222*t224*t91-5.07
2969     5         1488289123677d-4*t227*t398*t87+1.2363392745928628d-6*t396
2970     6         *t408*t83+5.02248129273029d-2*gammabb*t109*t388-3.6983725
2971     7         88283213d-1*gammabb*t100*t211*t224
2972            t410 = 1/t106**3
2973            t411 = t266**2
2974            t412 = 1/t112**5.0d+0
2975            t413 = 1/t125**2
2976            t414 = t233**2
2977            t415 = 1/t123**3
2978            t416 = t229**2
2979            t417 = 1/t119**3
2980            t418 = -2.5d-1*t416*t417
2981            t419 = 5.0d-1*t230*t405
2982            t420 = 1.1402510564714863d-1*t1*t220
2983            t421 = t420+t419+t418
2984            t422 = 1/t120**3
2985            t423 = 1/t117**3
2986            t424 = -2.5d-1*t416*t423
2987            t425 = 5.0d-1*t235*t405
2988            t426 = t404+t402+t401+t394+t391+t390+t389
2989            t427 = 1/t131**2
2990            t428 = 1/t129**3
2991            t429 = 1/t128**3
2992            t430 = -2.5d-1*t416*t429
2993            t431 = 5.0d-1*t242*t405
2994            t432 = 1/t136**3
2995            t433 = t250**2
2996            t434 = 1/t134**3
2997            t435 = t431+t430+t425+t424
2998            t436 = 1/t138**3
2999            t437 = t241**2
3000            t438 = t140**1.5d+0
3001            t439 = 1/t143**3
3002            t440 = 1/t144**3
3003            t441 = 8.551882923536147d-2*t1*t226*t261*t98+1.9241736577956
3004     1         33d-1*t1*t322*t407*t78-1.282782438530422d-1*t1*t261*t405*
3005     2         t78+1.1402510564714863d-1*t1*t105*t220
3006            t442 = t102*t441+t106*t405+2*t226*t262
3007            t443 = t295-2.4682961769030842d-2*t1*t202*t272*t3*t74
3008            t444 = 2.4105264144112412d-7*t155*t8-1.7006233775311694d-8*t
3009     1         154*t6-1.4056794412619736d-1*t160*t5-4.5608816488973747d-
3010     2         1*t161*t269+1.4759535677446958d-2*gammaaa*t159-9.92651631
3011     3         2794808d-4*t14*t158+6.527239842306487d-5*t12*t157-5.74246
3012     4         8916099301d-6*t10*t156+5.475448834737188d-1*t152
3013            t445 = -1.0803307880124491d-3*t160*t5+4.631892373620269d-4*g
3014     1         ammaaa*t159-8.836827178054d-5*t14*t158+1.0386425752741123
3015     2         d-5*t12*t157-7.880451214247165d-7*t10*t156-7.018342379201
3016     3         d-4*t152
3017            t446 = 1.6455307846020562d-2*gammaaa*t16*t25*t445-1.64553078
3018     1         46020562d-2*gammaaa*t16*t163*t17*t444+3.2910615692041123d
3019     2         -2*gammaaa*t16*t162*t17*t270*t338-4.38808209227215d-2*gam
3020     3         maaa*t152*t25*t271-1.6455307846020562d-2*gammaaa*t16*t162
3021     4         *t163*t271+4.38808209227215d-2*gammaaa*t152*t163*t17*t270
3022     5         -1.6455307846020562d-2*gammaaa*t16*t163*t165*t270-4.38808
3023     6         209227215d-2*t152*t17*t25+1.6455307846020562d-2*t16*t165*
3024     7         t25-1.6455307846020562d-2*t16*t162*t163*t17
3025            t447 = 6.934448603031025d-2*gammaaa*t16*t25*t445-6.934448603
3026     1         031025d-2*gammaaa*t16*t163*t17*t444-4.6362722797232353d-7
3027     2         *t12*t157*t353-1.369767625290079d-2*t152*t34+1.3868897206
3028     3         06205d-1*gammaaa*t16*t162*t17*t270*t338-1.849186294141606
3029     4         5d-1*gammaaa*t152*t25*t271-6.934448603031025d-2*gammaaa*t
3030     5         16*t162*t163*t271+1.8491862941416065d-1*gammaaa*t152*t163
3031     6         *t17*t270-6.934448603031025d-2*gammaaa*t16*t163*t165*t270
3032     7         -1.8491862941416065d-1*t152*t17*t25+6.934448603031025d-2*
3033     8         t16*t165*t25-6.934448603031025d-2*t16*t162*t163*t17+1.690
3034     9         496096374559d-4*gammaaa*t159*t168
3035            t448 = -2.5d-1*t170*t272*t362
3036            t449 = 5.0d-1*t171*t446
3037            t450 = t449+t448
3038            t451 = -2.5d-1*t170*t272*t368
3039            t452 = 5.0d-1*t176*t446
3040            t453 = -2.5d-1*t170*t272*t374
3041            t454 = 5.0d-1*t183*t446
3042            t455 = t454+t453+t452+t451
3043            t456 = 1/t29**7
3044            t457 = -1.282782438530422d-1*t1*t202*t3*t446+1.9241736577956
3045     1         33d-1*t1*t167*t272*t290*t3+4.2759414617680735d-2*t1*t202*
3046     2         t23*t272
3047            t458 = t27*t457+t31*t446-1.282782438530422d-1*t1*t167*t202*t
3048     1         272*t3+t203*t272
3049            t459 = t327-2.4682961769030842d-2*t1*t148*t261*t304*t78
3050            t460 = -9.926516312794808d-4*t217*t89+6.527239842306487d-5*t
3051     1         216*t87-5.742468916099301d-6*t215*t85+2.4105264144112412d
3052     2         -7*t214*t83-1.7006233775311694d-8*t213*t81-1.405679441261
3053     3         9736d-1*t219*t80-4.5608816488973747d-1*t220*t301+1.475953
3054     4         5677446958d-2*gammabb*t218+5.475448834737188d-1*t211
3055            t461 = -8.836827178054d-5*t217*t89+1.0386425752741123d-5*t21
3056     1         6*t87-7.880451214247165d-7*t215*t85-1.0803307880124491d-3
3057     2         *t219*t80+4.631892373620269d-4*gammabb*t218-7.01834237920
3058     3         1d-4*t211
3059            t462 = -1.6455307846020562d-2*gammabb*t222*t460*t91*t92+3.29
3060     1         10615692041123d-2*gammabb*t221*t302*t393*t91*t92-1.645530
3061     2         7846020562d-2*t221*t222*t91*t92+4.38808209227215d-2*gamma
3062     3         bb*t211*t222*t302*t92-4.38808209227215d-2*t100*t211*t92+1
3063     4         .6455307846020562d-2*gammabb*t100*t461*t91-1.645530784602
3064     5         0562d-2*gammabb*t221*t222*t303*t91-1.6455307846020562d-2*
3065     6         gammabb*t222*t224*t302*t91+1.6455307846020562d-2*t100*t22
3066     7         4*t91-4.38808209227215d-2*gammabb*t100*t211*t303
3067            t463 = -6.934448603031025d-2*gammabb*t222*t460*t91*t92+1.386
3068     1         889720606205d-1*gammabb*t221*t302*t393*t91*t92-6.93444860
3069     2         3031025d-2*t221*t222*t91*t92+1.8491862941416065d-1*gammab
3070     3         b*t211*t222*t302*t92-1.8491862941416065d-1*t100*t211*t92+
3071     4         6.934448603031025d-2*gammabb*t100*t461*t91-6.934448603031
3072     5         025d-2*gammabb*t221*t222*t303*t91-6.934448603031025d-2*ga
3073     6         mmabb*t222*t224*t302*t91+6.934448603031025d-2*t100*t224*t
3074     7         91-4.6362722797232353d-7*t216*t408*t87-1.8491862941416065
3075     8         d-1*gammabb*t100*t211*t303+1.690496096374559d-4*gammabb*t
3076     9         218*t227-1.369767625290079d-2*t109*t211
3077            t464 = -2.5d-1*t229*t304*t417
3078            t465 = 5.0d-1*t230*t462
3079            t466 = t465+t464
3080            t467 = -2.5d-1*t229*t304*t423
3081            t468 = 5.0d-1*t235*t462
3082            t469 = -2.5d-1*t229*t304*t429
3083            t470 = 5.0d-1*t242*t462
3084            t471 = t470+t469+t468+t467
3085            t472 = 1/t104**7
3086            t473 = 4.2759414617680735d-2*t1*t261*t304*t98-1.282782438530
3087     1         422d-1*t1*t261*t462*t78+1.924173657795633d-1*t1*t226*t304
3088     2         *t322*t78
3089            t474 = -1.282782438530422d-1*t1*t226*t261*t304*t78+t102*t473
3090     1         +t106*t462+t262*t304
3091            t475 = t272**2
3092            t476 = t270**2
3093            t477 = -1.6318099605766218d-5*gammaaa*t9+1.5381613168123123d
3094     1         -6*t14*t7+2.2334661703788317d-4*t11*t5+1.757099301577467d
3095     2         -2*t15*t269-1.7103306183365155d-1*t23/t14-6.7796055405316
3096     3         17d-8*t12*t21+4.960151517799245d-9*t10*t19-2.767412939521
3097     4         305d-3*t13
3098            t478 = -2.5966064381852805d-6*gammaaa*t9+2.1108351466733477d
3099     1         -7*t14*t7+1.9882861150621498d-5*t11*t5+1.3504134850155614
3100     2         d-4*t15*t269-8.684798200538004d-5*t13
3101            t479 = 1.6455307846020562d-2*gammaaa*t16*t25*t478-1.64553078
3102     1         46020562d-2*gammaaa*t16*t163*t17*t477+3.2910615692041123d
3103     2         -2*gammaaa*t16*t17*t338*t476-3.2910615692041123d-2*gammaa
3104     3         a*t16*t163*t270*t271+3.2910615692041123d-2*t16*t25*t271-3
3105     4         .2910615692041123d-2*t16*t163*t17*t270
3106            t480 = 1.7386021048962136d-7*gammaaa*t353*t9+6.9344486030310
3107     1         25d-2*gammaaa*t16*t25*t478-6.934448603031025d-2*gammaaa*t
3108     2         16*t163*t17*t477+1.386889720606205d-1*gammaaa*t16*t17*t33
3109     3         8*t476-1.386889720606205d-1*gammaaa*t16*t163*t270*t271+1.
3110     4         386889720606205d-1*t16*t25*t271-1.386889720606205d-1*t16*
3111     5         t163*t17*t270-4.226240240936398d-5*t13*t168
3112            t481 = 1/t44
3113            t482 = -2.5d-1*t368*t475
3114            t483 = 5.0d-1*t176*t479
3115            t484 = -2.5d-1*t362*t475
3116            t485 = 5.0d-1*t171*t479
3117            t486 = t288**2
3118            t487 = -2.5d-1*t374*t475
3119            t488 = 5.0d-1*t183*t479
3120            t489 = t488+t487+t483+t482
3121            t490 = t31*t479-1.282782438530422d-1*t1*t3*t30*t479-6.413912
3122     1         19265211d-2*t1*t202*t3*t475
3123            t491 = t304**2
3124            t492 = t302**2
3125            t493 = -1.7103306183365155d-1*t98/t89-6.779605540531617d-8*t
3126     1         87*t96+4.960151517799245d-9*t85*t94+1.757099301577467d-2*
3127     2         t301*t90+1.5381613168123123d-6*t82*t89-2.767412939521305d
3128     3         -3*t88+2.2334661703788317d-4*t80*t86-1.6318099605766218d-
3129     4         5*gammabb*t84
3130            t494 = 1.3504134850155614d-4*t301*t90+2.1108351466733477d-7*
3131     1         t82*t89-8.684798200538004d-5*t88+1.9882861150621498d-5*t8
3132     2         0*t86-2.5966064381852805d-6*gammabb*t84
3133            t495 = -1.6455307846020562d-2*gammabb*t222*t493*t91*t92+3.29
3134     1         10615692041123d-2*gammabb*t393*t492*t91*t92-3.29106156920
3135     2         41123d-2*t222*t302*t91*t92+1.6455307846020562d-2*gammabb*
3136     3         t100*t494*t91-3.2910615692041123d-2*gammabb*t222*t302*t30
3137     4         3*t91+3.2910615692041123d-2*t100*t303*t91
3138            t496 = -6.934448603031025d-2*gammabb*t222*t493*t91*t92+1.386
3139     1         889720606205d-1*gammabb*t393*t492*t91*t92-1.3868897206062
3140     2         05d-1*t222*t302*t91*t92+6.934448603031025d-2*gammabb*t100
3141     3         *t494*t91-1.386889720606205d-1*gammabb*t222*t302*t303*t91
3142     4         +1.386889720606205d-1*t100*t303*t91-4.226240240936398d-5*
3143     5         t227*t88+1.7386021048962136d-7*gammabb*t408*t84
3144            t497 = 1/t118
3145            t498 = -2.5d-1*t423*t491
3146            t499 = 5.0d-1*t235*t495
3147            t500 = -2.5d-1*t417*t491
3148            t501 = 5.0d-1*t230*t495
3149            t502 = t320**2
3150            t503 = -2.5d-1*t429*t491
3151            t504 = 5.0d-1*t242*t495
3152            t505 = t504+t503+t499+t498
3153            t506 = -1.282782438530422d-1*t1*t105*t495*t78-6.413912192652
3154     1         11d-2*t1*t261*t491*t78+t106*t495
3155            fnc(iq) = (-9.305257363491d-1*t150*t97-9.305257363491d-1*t22
3156     1         *t76)*wght+fnc(iq)
3157            Amat(iq,D1_RA) = (-1.2407009817987999d+0*t2*t76-9.3052573634
3158     1         91d-1*t209*t22)*wght+Amat(iq,D1_RA)
3159            Amat(iq,D1_RB) = (-9.305257363491d-1*t268*t97-1.240700981798
3160     1         7999d+0*t150*t77)*wght+Amat(iq,D1_RB)
3161            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t22*(t30
3162     1         0*t73+t294+t292+t291+t289+t287+t283+t16*t25*t282+t281+t27
3163     2         6+t275+t273)*wght
3164            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
3165            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)-9.305257363491d-1*(t100*t3
3166     1         14*t91+t147*t332+t326+t324+t323+t321+t319+t315+t313+t308+
3167     2         t307+t305)*t97*wght
3168            Amat2(iq,D2_RA_RA) = (-4.135669939329333d-1*t40*t76-9.305257
3169     1         363491d-1*t22*(-8.888888888888888d-1*(-2.1d+1*t382*t383*t
3170     2         71-8.400000000000001d+0*t195*t371*t71-2.4d+0*(2.5d-1*t382
3171     3         *t385-3.206956096326055d-2*t198**2*t384-5.0d-1*t196*t371+
3172     4         6.41391219265211d-2*t197*(gammaaa*t16*t25*t348-gammaaa*t1
3173     5         6*t163*t17*t345+2*gammaaa*t16*t17*t337*t338+9.77777777777
3174     6         7779d+0*gammaaa*t17*t25*t333-5.333333333333333d+0*gammaaa
3175     7         *t152*t165*t25+5.333333333333333d+0*gammaaa*t152*t162*t16
3176     8         3*t17-2*gammaaa*t16*t162*t163*t165))*t68-2.7259596d+0*t37
3177     9         1*t67-5.4519192d+0*t382*t66+5.672746666666666d-2*t371*t66
3178     :         +4.7459599999999996d-2*t354*t66-1.2407176956338616d+1*t38
3179     ;         2*t383+5.672746666666666d-2*t382+4.7459599999999996d-2*t3
3180     <         5*t371-4.9628707825354457d+0*t195*t371-1.68d+1*t182*t195*
3181     =         t199+9.491919999999999d-2*t169*t182)*t73*t75+2.6666666666
3182     >         666666d+0*t208*t387*t72*t75-1.0666666666666666d+1*t356*t3
3183     ?         57*t72*t75+5.333333333333333d+0*t200*t207*t208*t75-8.8888
3184     @         88888888888d-1*(4.9365923538061685d-2*t1*t3*t30*(7.5d-1*t
3185     1         1*t290*t3*t352-5.0d-1*t1*t202*t3*t350+4.444444444444444d-
3186     2         1*t1*t161*t30+3.333333333333333d-1*t1*t167*t202*t23)+2.16
3187     3         4695365020087d-1*t1*t290*t3*t352-1.4431302433467247d-1*t1
3188     4         *t202*t3*t350+1.2827824385304218d-1*t1*t161*t30+9.6208682
3189     5         88978164d-2*t1*t167*t202*t23+4.9365923538061685d-2*t205**
3190     6         2)*t72*t73-1.0546577777777776d-1*t35*t36*t387*t73-2.10931
3191     7         5555555555d-1*t169*t207*t36*t73-2.109315555555555d-1*t204
3192     8         *t207*t35*t73-1.7777777777777776d+0*t200*t206*t73+5.33333
3193     9         3333333333d+0*t206*t207*t208*t72+7.57211d-1*(1.6455307846
3194     :         020562d-2*gammaaa*t16*t25*t348*t61*t65-1.6455307846020562
3195     ;         d-2*gammaaa*t16*t163*t17*t345*t61*t65+3.2910615692041123d
3196     <         -2*gammaaa*t16*t17*t337*t338*t61*t65+1.6089634338331216d-
3197     =         1*gammaaa*t17*t25*t333*t61*t65-8.7761641845443d-2*gammaaa
3198     >         *t152*t165*t25*t61*t65+8.7761641845443d-2*gammaaa*t152*t1
3199     ?         62*t163*t17*t61*t65-3.2910615692041123d-2*gammaaa*t16*t16
3200     @         2*t163*t165*t61*t65-1.6455307846020562d-2*gammaaa*t16*t17
3201     1         *t192*t25*t380*t65+3.2910615692041123d-2*gammaaa*t16*t17*
3202     2         t25*t378*t379*t65+8.7761641845443d-2*gammaaa*t152*t17*t19
3203     3         1*t192*t25*t65-3.2910615692041123d-2*gammaaa*t16*t165*t19
3204     4         1*t192*t25*t65+3.2910615692041123d-2*gammaaa*t16*t162*t16
3205     5         3*t17*t191*t192*t65+t371*t61*t63-t192*t380*t59*t63+2*t378
3206     6         *t379*t59*t63-2*t182*t191*t192*t63+2*t189**2*t377*t59*t61
3207     7         -t190*(t376+t375+t365)*t59*t61+3.2910615692041123d-2*gamm
3208     8         aaa*t16*t17*t193**2*t25*t381*t61-1.6455307846020562d-2*ga
3209     9         mmaaa*t16*t17*t194*t25*(t370+t369+t365)*t61+8.77616418454
3210     :         43d-2*gammaaa*t152*t17*t193*t194*t25*t61-3.29106156920411
3211     ;         23d-2*gammaaa*t16*t165*t193*t194*t25*t61+3.29106156920411
3212     <         23d-2*gammaaa*t16*t162*t163*t17*t193*t194*t61-2*t182*t189
3213     =         *t190*t61+2*t189*t190*t191*t192*t59+3.2910615692041123d-2
3214     >         *gammaaa*t16*t17*t191*t192*t193*t194*t25)-2.0d+0*t188*(-1
3215     ?         .475609999999999d-1*t175*t366*t56+2.951219999999998d-1*t3
3216     @         59*t360*t56-1.475609999999999d-1*t186*(t376+t375+t364+t36
3217     1         3)*t50+2.951219999999998d-1*t185**2*t373*t50+2.9512199999
3218     2         99998d-1*t174*t175*t185*t186)*t59+2.0d+0*t187**2*t372*t59
3219     3         -2.0d+0*t371*t58+3.2910615692041123d-2*gammaaa*t16*t25*t3
3220     4         48*t52-3.2910615692041123d-2*gammaaa*t16*t163*t17*t345*t5
3221     5         2+6.582123138408225d-2*gammaaa*t16*t17*t337*t338*t52+3.21
3222     6         7926867666243d-1*gammaaa*t17*t25*t333*t52-1.7552328369088
3223     7         6d-1*gammaaa*t152*t165*t25*t52+1.75523283690886d-1*gammaa
3224     8         a*t152*t162*t163*t17*t52-6.582123138408225d-2*gammaaa*t16
3225     9         *t162*t163*t165*t52+3.2910615692041123d-2*gammaaa*t16*t17
3226     :         *t181*t25*(6.0965d-1*t179*(t370+t369+t364+t363)*t50-1.219
3227     ;         3000000000001d+0*t178**2*t367*t50+6.0965d-1*t175*t366*t47
3228     <         -1.2193000000000001d+0*t359*t360*t47-1.2193000000000001d+
3229     =         0*t174*t175*t178*t179)-4.727288888888889d-2*t201*t28*t386
3230     >         +5.273288888888887d-2*t354*t36*t38+5.273288888888887d-2*t
3231     ?         35*(9.620868288978166d-2*t1*t290*t3*t352-6.41391219265211
3232     @         d-2*t1*t202*t3*t350+5.701255282357431d-2*t1*t161*t30+4.27
3233     1         59414617680735d-2*t1*t167*t202*t23)*t38+1.054657777777777
3234     2         6d-1*t169*t204*t38+3.1639733333333325d-1*t208*t35*t356*t3
3235     3         6-3.2910615692041123d-2*gammaaa*t16*t17*t180**2*t25*t358+
3236     4         9.454577777777778d-2*t203**2*t28*t355+9.454577777777778d-
3237     5         2*t32*t351*t352-4.727288888888889d-2*t151*t32*t350-1.7552
3238     6         3283690886d-1*gammaaa*t152*t17*t180*t181*t25+6.5821231384
3239     7         08225d-2*gammaaa*t16*t165*t180*t181*t25+9.454577777777778
3240     8         d-2*t151*t167*t201*t203-4.0d+0*t182*t187*t188-6.582123138
3241     9         408225d-2*gammaaa*t16*t162*t163*t17*t180*t181)-2.48140196
3242     :         35975998d+0*t2*t209)*wght+Amat2(iq,D2_RA_RA)
3243            Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB)
3244            Amat2(iq,D2_RB_RB) = (-9.305257363491d-1*t97*(-8.88888888888
3245     1         8888d-1*t146*t147*(4.9365923538061685d-2*t1*t105*t78*(3.3
3246     2         33333333333333d-1*t1*t226*t261*t98+7.5d-1*t1*t322*t407*t7
3247     3         8-5.0d-1*t1*t261*t405*t78+4.444444444444444d-1*t1*t105*t2
3248     4         20)+9.620868288978164d-2*t1*t226*t261*t98+2.1646953650200
3249     5         87d-1*t1*t322*t407*t78-1.4431302433467247d-1*t1*t261*t405
3250     6         *t78+4.9365923538061685d-2*t264**2+1.2827824385304218d-1*
3251     7         t1*t105*t220)+5.273288888888887d-2*t110*t113*(4.275941461
3252     8         7680735d-2*t1*t226*t261*t98+9.620868288978166d-2*t1*t322*
3253     9         t407*t78-6.41391219265211d-2*t1*t261*t405*t78+5.701255282
3254     :         357431d-2*t1*t105*t220)-8.888888888888888d-1*t147*t149*(-
3255     ;         2.4d+0*t142*(6.41391219265211d-2*t256*(-gammabb*t222*t400
3256     <         *t91*t92+2*gammabb*t392*t393*t91*t92+9.777777777777779d+0
3257     =         *gammabb*t100*t388*t92+5.333333333333333d+0*gammabb*t211*
3258     >         t221*t222*t92+gammabb*t100*t403*t91-2*gammabb*t221*t222*t
3259     ?         224*t91-5.333333333333333d+0*gammabb*t100*t211*t224)+2.5d
3260     @         -1*t437*t440-3.206956096326055d-2*t257**2*t439-5.0d-1*t25
3261     1         5*t426)-2.1d+1*t145*t437*t438-1.2407176956338616d+1*t437*
3262     2         t438-5.4519192d+0*t140*t437+5.672746666666666d-2*t437-8.4
3263     3         00000000000001d+0*t145*t254*t426-4.9628707825354457d+0*t2
3264     4         54*t426-2.7259596d+0*t141*t426+5.672746666666666d-2*t140*
3265     5         t426+4.7459599999999996d-2*t110*t426+4.7459599999999996d-
3266     6         2*t140*t409-1.68d+1*t241*t254*t258+9.491919999999999d-2*t
3267     7         228*t241)+7.57211d-1*(3.2910615692041123d-2*gammabb*t100*
3268     8         t135*t252**2*t436*t91*t92-1.6455307846020562d-2*gammabb*t
3269     9         100*t139*t251*t435*t91*t92+3.2910615692041123d-2*gammabb*
3270     :         t100*t139*t433*t434*t91*t92-1.6455307846020562d-2*gammabb
3271     ;         *t100*t135*t253*(t425+t424+t420)*t91*t92-1.64553078460205
3272     <         62d-2*gammabb*t135*t139*t222*t400*t91*t92+3.2910615692041
3273     =         123d-2*gammabb*t135*t139*t392*t393*t91*t92+3.291061569204
3274     >         1123d-2*gammabb*t100*t250*t251*t252*t253*t91*t92+3.291061
3275     ?         5692041123d-2*gammabb*t135*t221*t222*t252*t253*t91*t92+3.
3276     @         2910615692041123d-2*gammabb*t139*t221*t222*t250*t251*t91*
3277     1         t92+1.6089634338331216d-1*gammabb*t100*t135*t139*t388*t92
3278     2         +8.7761641845443d-2*gammabb*t100*t135*t211*t252*t253*t92+
3279     3         8.7761641845443d-2*gammabb*t100*t139*t211*t250*t251*t92+8
3280     4         .7761641845443d-2*gammabb*t135*t139*t211*t221*t222*t92+1.
3281     5         6455307846020562d-2*gammabb*t100*t135*t139*t403*t91-3.291
3282     6         0615692041123d-2*gammabb*t100*t135*t224*t252*t253*t91-3.2
3283     7         910615692041123d-2*gammabb*t100*t139*t224*t250*t251*t91-3
3284     8         .2910615692041123d-2*gammabb*t135*t139*t221*t222*t224*t91
3285     9         -t133*t137*t251*t435+2*t133*t137*t433*t434+2*t133*t135*t2
3286     :         48**2*t432-t133*t135*t249*(t431+t430+t420)+t135*t137*t426
3287     ;         +2*t133*t248*t249*t250*t251-2*t137*t241*t250*t251-2*t135*
3288     <         t241*t248*t249-8.7761641845443d-2*gammabb*t100*t135*t139*
3289     =         t211*t224)+3.2910615692041123d-2*gammabb*t100*t240*(6.096
3290     >         5d-1*t124*t238*(t425+t424+t419+t418)-1.2193000000000001d+
3291     ?         0*t124*t237**2*t422+6.0965d-1*t121*t234*t421-1.2193000000
3292     @         000001d+0*t121*t414*t415-1.2193000000000001d+0*t233*t234*
3293     1         t237*t238)*t91*t92-3.2910615692041123d-2*gammabb*t100*t23
3294     2         9**2*t413*t91*t92-3.2910615692041123d-2*gammabb*t126*t222
3295     3         *t400*t91*t92+6.582123138408225d-2*gammabb*t126*t392*t393
3296     4         *t91*t92-6.582123138408225d-2*gammabb*t221*t222*t239*t240
3297     5         *t91*t92+3.217926867666243d-1*gammabb*t100*t126*t388*t92-
3298     6         1.75523283690886d-1*gammabb*t100*t211*t239*t240*t92+1.755
3299     7         23283690886d-1*gammabb*t126*t211*t221*t222*t92+3.29106156
3300     8         92041123d-2*gammabb*t100*t126*t403*t91+6.582123138408225d
3301     9         -2*gammabb*t100*t224*t239*t240*t91-6.582123138408225d-2*g
3302     :         ammabb*t126*t221*t222*t224*t91+2.6666666666666666d+0*t146
3303     ;         *t149*t267*t442-1.0546577777777776d-1*t110*t111*t147*t442
3304     <         -4.727288888888889d-2*t103*t260*t441-2.0d+0*t133*t247*(-1
3305     =         .475609999999999d-1*t124*t245*(t431+t430+t419+t418)+2.951
3306     >         219999999998d-1*t124*t244**2*t428-1.475609999999999d-1*t1
3307     ?         30*t234*t421+2.951219999999998d-1*t130*t414*t415+2.951219
3308     @         999999998d-1*t233*t234*t244*t245)+2.0d+0*t133*t246**2*t42
3309     1         7-2.0d+0*t132*t426-1.0666666666666666d+1*t146*t149*t411*t
3310     2         412+3.1639733333333325d-1*t110*t111*t267*t411+9.454577777
3311     3         777778d-2*t103*t262**2*t410+5.273288888888887d-2*t111*t11
3312     4         3*t409+9.454577777777778d-2*t107*t406*t407-4.727288888888
3313     5         889d-2*t107*t210*t405+5.333333333333333d+0*t146*t265*t266
3314     6         *t267+5.333333333333333d+0*t149*t259*t266*t267-2.10931555
3315     7         5555555d-1*t110*t147*t263*t266-2.109315555555555d-1*t111*
3316     8         t147*t228*t266-1.7777777777777776d+0*t147*t259*t265+1.054
3317     9         6577777777776d-1*t113*t228*t263+9.454577777777778d-2*t210
3318     :         *t226*t260*t262-4.0d+0*t241*t246*t247-1.75523283690886d-1
3319     ;         *gammabb*t100*t126*t211*t224)-2.4814019635975998d+0*t268*
3320     <         t77-4.135669939329333d-1*t114*t150)*wght+Amat2(iq,D2_RB_R
3321     =         B)
3322            Cmat2(iq,D2_RA_GAA) = (-9.305257363491d-1*t22*(-8.8888888888
3323     1         88888d-1*(-8.400000000000001d+0*t195*t446*t71-2.1d+1*t182
3324     2         *t272*t383*t71-2.4d+0*(-5.0d-1*t196*t446+6.41391219265211
3325     3         d-2*t197*(gammaaa*t16*t25*t445-gammaaa*t16*t163*t17*t444+
3326     4         2*gammaaa*t16*t162*t17*t270*t338-2.6666666666666666d+0*ga
3327     5         mmaaa*t152*t25*t271-gammaaa*t16*t162*t163*t271+2.66666666
3328     6         66666666d+0*gammaaa*t152*t163*t17*t270-gammaaa*t16*t163*t
3329     7         165*t270-2.6666666666666666d+0*t152*t17*t25+t16*t165*t25-
3330     8         t16*t162*t163*t17)+2.5d-1*t182*t272*t385-3.20695609632605
3331     9         5d-2*t198*t297*t384)*t68-2.7259596d+0*t446*t67+4.74595999
3332     :         99999996d-2*t447*t66+5.672746666666666d-2*t446*t66-5.4519
3333     ;         192d+0*t182*t272*t66+4.7459599999999996d-2*t35*t446-4.962
3334     <         8707825354457d+0*t195*t446-1.2407176956338616d+1*t182*t27
3335     =         2*t383-8.400000000000001d+0*t182*t195*t298+4.745959999999
3336     >         9996d-2*t182*t274-8.400000000000001d+0*t195*t199*t272+5.6
3337     ?         72746666666666d-2*t182*t272+4.7459599999999996d-2*t169*t2
3338     @         72)*t73*t75+2.6666666666666666d+0*t208*t458*t72*t75-1.066
3339     1         6666666666666d+1*t207*t293*t357*t72*t75+2.666666666666666
3340     2         6d+0*t207*t208*t299*t75+2.6666666666666666d+0*t200*t208*t
3341     3         293*t75-8.888888888888888d-1*(4.9365923538061685d-2*t1*t3
3342     4         *t30*(-5.0d-1*t1*t202*t3*t446+7.5d-1*t1*t167*t272*t290*t3
3343     5         +1.6666666666666666d-1*t1*t202*t23*t272)-1.44313024334672
3344     6         47d-1*t1*t202*t3*t446+2.164695365020087d-1*t1*t167*t272*t
3345     7         290*t3-2.4682961769030842d-2*t1*t202*t205*t272*t3+4.81043
3346     8         4144489082d-2*t1*t202*t23*t272)*t72*t73-1.054657777777777
3347     9         6d-1*t35*t36*t458*t73-8.888888888888888d-1*t200*t443*t73-
3348     :         1.0546577777777776d-1*t169*t293*t36*t73-1.054657777777777
3349     ;         6d-1*t207*t274*t36*t73+6.764482379964267d-3*t1*t202*t207*
3350     <         t272*t3*t35*t73-1.0546577777777776d-1*t204*t293*t35*t73-8
3351     =         .888888888888888d-1*t206*t299*t73+2.6666666666666666d+0*t
3352     >         207*t208*t443*t72+2.6666666666666666d+0*t206*t208*t293*t7
3353     ?         2+7.57211d-1*(1.6455307846020562d-2*gammaaa*t16*t25*t445*
3354     @         t61*t65-1.6455307846020562d-2*gammaaa*t16*t163*t17*t444*t
3355     1         61*t65+3.2910615692041123d-2*gammaaa*t16*t162*t17*t270*t3
3356     2         38*t61*t65-4.38808209227215d-2*gammaaa*t152*t25*t271*t61*
3357     3         t65-1.6455307846020562d-2*gammaaa*t16*t162*t163*t271*t61*
3358     4         t65+4.38808209227215d-2*gammaaa*t152*t163*t17*t270*t61*t6
3359     5         5-1.6455307846020562d-2*gammaaa*t16*t163*t165*t270*t61*t6
3360     6         5-4.38808209227215d-2*t152*t17*t25*t61*t65+1.645530784602
3361     7         0562d-2*t16*t165*t25*t61*t65-1.6455307846020562d-2*t16*t1
3362     8         62*t163*t17*t61*t65-1.6455307846020562d-2*gammaaa*t16*t17
3363     9         *t192*t25*t455*t65+3.2910615692041123d-2*gammaaa*t16*t17*
3364     :         t191*t25*t288*t379*t65+4.38808209227215d-2*gammaaa*t152*t
3365     ;         17*t192*t25*t288*t65-1.6455307846020562d-2*gammaaa*t16*t1
3366     <         65*t192*t25*t288*t65+1.6455307846020562d-2*gammaaa*t16*t1
3367     =         62*t163*t17*t192*t288*t65-1.6455307846020562d-2*gammaaa*t
3368     >         16*t191*t192*t25*t271*t65+1.6455307846020562d-2*gammaaa*t
3369     ?         16*t163*t17*t191*t192*t270*t65-1.6455307846020562d-2*t16*
3370     @         t17*t191*t192*t25*t65+t446*t61*t63-t192*t455*t59*t63+2*t1
3371     1         91*t288*t379*t59*t63-t182*t192*t288*t63-t191*t192*t272*t6
3372     2         3-t190*(t454+t453)*t59*t61+t183*t189*t272*t377*t59*t61-1.
3373     3         6455307846020562d-2*gammaaa*t16*t17*t194*t25*(t452+t451)*
3374     4         t61+1.6455307846020562d-2*gammaaa*t16*t17*t176*t193*t25*t
3375     5         272*t381*t61+2.194041046136075d-2*gammaaa*t152*t17*t176*t
3376     6         194*t25*t272*t61-8.227653923010281d-3*gammaaa*t16*t165*t1
3377     7         76*t194*t25*t272*t61+8.227653923010281d-3*gammaaa*t16*t16
3378     8         2*t163*t17*t176*t194*t272*t61-t189*t190*t272*t61-5.0d-1*t
3379     9         182*t183*t190*t272*t61-1.6455307846020562d-2*gammaaa*t16*
3380     :         t193*t194*t25*t271*t61+1.6455307846020562d-2*gammaaa*t16*
3381     ;         t163*t17*t193*t194*t270*t61-1.6455307846020562d-2*t16*t17
3382     <         *t193*t194*t25*t61+t189*t190*t192*t288*t59+5.0d-1*t183*t1
3383     =         90*t191*t192*t272*t59+1.6455307846020562d-2*gammaaa*t16*t
3384     >         17*t192*t193*t194*t25*t288+8.227653923010281d-3*gammaaa*t
3385     ?         16*t17*t176*t191*t192*t194*t25*t272)-2.0d+0*t188*(-1.4756
3386     @         09999999999d-1*t175*t450*t56+1.475609999999999d-1*t171*t1
3387     1         74*t272*t360*t56-1.475609999999999d-1*t186*(t454+t453+t44
3388     2         9+t448)*t50+2.951219999999998d-1*t185*t285*t373*t50+1.475
3389     3         609999999999d-1*t174*t175*t186*t285+7.378049999999994d-2*
3390     4         t171*t175*t185*t186*t272)*t59+2.0d+0*t187*t286*t372*t59-2
3391     5         .0d+0*t446*t58+3.2910615692041123d-2*gammaaa*t16*t25*t445
3392     6         *t52-3.2910615692041123d-2*gammaaa*t16*t163*t17*t444*t52+
3393     7         6.582123138408225d-2*gammaaa*t16*t162*t17*t270*t338*t52-8
3394     8         .7761641845443d-2*gammaaa*t152*t25*t271*t52-3.29106156920
3395     9         41123d-2*gammaaa*t16*t162*t163*t271*t52+8.7761641845443d-
3396     :         2*gammaaa*t152*t163*t17*t270*t52-3.2910615692041123d-2*ga
3397     ;         mmaaa*t16*t163*t165*t270*t52-8.7761641845443d-2*t152*t17*
3398     <         t25*t52+3.2910615692041123d-2*t16*t165*t25*t52-3.29106156
3399     =         92041123d-2*t16*t162*t163*t17*t52+3.2910615692041123d-2*g
3400     >         ammaaa*t16*t17*t181*t25*(6.0965d-1*t179*(t452+t451+t449+t
3401     ?         448)*t50-1.2193000000000001d+0*t178*t279*t367*t50+6.0965d
3402     @         -1*t175*t450*t47-6.0965d-1*t171*t174*t272*t360*t47-6.0965
3403     1         d-1*t174*t175*t179*t279-3.04825d-1*t171*t175*t178*t179*t2
3404     2         72)-4.727288888888889d-2*t201*t28*t457-6.064083168526658d
3405     3         -3*t1*t167*t201*t272*t3*t456+5.273288888888887d-2*t36*t38
3406     4         *t447+5.273288888888887d-2*t35*t38*(-6.41391219265211d-2*
3407     5         t1*t202*t3*t446+9.620868288978166d-2*t1*t167*t272*t290*t3
3408     6         +2.1379707308840368d-2*t1*t202*t23*t272)-4.72728888888888
3409     7         9d-2*t151*t32*t446-3.3822411899821336d-3*t1*t169*t202*t27
3410     8         2*t3*t38+5.273288888888887d-2*t204*t274*t38+3.16397333333
3411     9         33325d-1*t207*t208*t293*t35*t36-3.2910615692041123d-2*gam
3412     :         maaa*t16*t17*t180*t25*t280*t358-1.2128166337053317d-2*t1*
3413     ;         t203*t272*t290*t3*t355+9.454577777777778d-2*t167*t272*t32
3414     <         *t351-2.0d+0*t182*t188*t286-8.7761641845443d-2*gammaaa*t1
3415     =         52*t17*t181*t25*t280+3.2910615692041123d-2*gammaaa*t16*t1
3416     >         65*t181*t25*t280-3.2910615692041123d-2*gammaaa*t16*t162*t
3417     ?         163*t17*t181*t280+4.727288888888889d-2*t151*t201*t203*t27
3418     @         2-2.0d+0*t187*t188*t272+3.2910615692041123d-2*gammaaa*t16
3419     1         *t180*t181*t25*t271-3.2910615692041123d-2*gammaaa*t16*t16
3420     2         3*t17*t180*t181*t270+3.2910615692041123d-2*t16*t17*t180*t
3421     3         181*t25)-1.2407009817987999d+0*t2*(-8.888888888888888d-1*
3422     4         t299*t73*t75-8.888888888888888d-1*t443*t72*t73-1.05465777
3423     5         77777776d-1*t293*t35*t36*t73+3.2910615692041123d-2*gammaa
3424     6         a*t16*t25*t271*t52+3.2910615692041123d-2*t16*t17*t25*t52+
3425     7         t294+t292+t291+t289+t287+t283+t281+t276+t275+t273))*wght+
3426     8         Cmat2(iq,D2_RA_GAA)
3427            Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB)
3428            Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB)
3429            Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA)
3430            Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB)
3431            Cmat2(iq,D2_RB_GBB) = (-9.305257363491d-1*t97*(-8.8888888888
3432     1         88888d-1*t146*t147*(4.9365923538061685d-2*t1*t105*t78*(1.
3433     2         6666666666666666d-1*t1*t261*t304*t98-5.0d-1*t1*t261*t462*
3434     3         t78+7.5d-1*t1*t226*t304*t322*t78)+4.810434144489082d-2*t1
3435     4         *t261*t304*t98-1.4431302433467247d-1*t1*t261*t462*t78+2.1
3436     5         64695365020087d-1*t1*t226*t304*t322*t78-2.468296176903084
3437     6         2d-2*t1*t261*t264*t304*t78)+5.273288888888887d-2*t110*t11
3438     7         3*(2.1379707308840368d-2*t1*t261*t304*t98-6.4139121926521
3439     8         1d-2*t1*t261*t462*t78+9.620868288978166d-2*t1*t226*t304*t
3440     9         322*t78)-8.888888888888888d-1*t147*t149*(-2.4d+0*t142*(6.
3441     :         41391219265211d-2*t256*(-gammabb*t222*t460*t91*t92+2*gamm
3442     ;         abb*t221*t302*t393*t91*t92-t221*t222*t91*t92+2.6666666666
3443     <         666666d+0*gammabb*t211*t222*t302*t92-2.6666666666666666d+
3444     =         0*t100*t211*t92+gammabb*t100*t461*t91-gammabb*t221*t222*t
3445     >         303*t91-gammabb*t222*t224*t302*t91+t100*t224*t91-2.666666
3446     ?         6666666666d+0*gammabb*t100*t211*t303)-5.0d-1*t255*t462+2.
3447     @         5d-1*t241*t304*t440-3.206956096326055d-2*t257*t329*t439)+
3448     1         4.7459599999999996d-2*t140*t463-8.400000000000001d+0*t145
3449     2         *t254*t462-4.9628707825354457d+0*t254*t462-2.7259596d+0*t
3450     3         141*t462+5.672746666666666d-2*t140*t462+4.745959999999999
3451     4         6d-2*t110*t462-2.1d+1*t145*t241*t304*t438-1.2407176956338
3452     5         616d+1*t241*t304*t438-8.400000000000001d+0*t241*t254*t330
3453     6         +4.7459599999999996d-2*t241*t306-8.400000000000001d+0*t25
3454     7         4*t258*t304-5.4519192d+0*t140*t241*t304+5.672746666666666
3455     8         d-2*t241*t304+4.7459599999999996d-2*t228*t304)+7.57211d-1
3456     9         *(-1.6455307846020562d-2*gammabb*t100*t139*t251*t471*t91*
3457     :         t92-1.6455307846020562d-2*gammabb*t100*t135*t253*(t468+t4
3458     ;         67)*t91*t92-1.6455307846020562d-2*gammabb*t135*t139*t222*
3459     <         t460*t91*t92+1.6455307846020562d-2*gammabb*t100*t135*t235
3460     =         *t252*t304*t436*t91*t92+3.2910615692041123d-2*gammabb*t10
3461     >         0*t139*t250*t320*t434*t91*t92+3.2910615692041123d-2*gamma
3462     ?         bb*t135*t139*t221*t302*t393*t91*t92+1.6455307846020562d-2
3463     @         *gammabb*t100*t251*t252*t253*t320*t91*t92+1.6455307846020
3464     1         562d-2*gammabb*t139*t221*t222*t251*t320*t91*t92+8.2276539
3465     2         23010281d-3*gammabb*t100*t235*t250*t251*t253*t304*t91*t92
3466     3         +8.227653923010281d-3*gammabb*t135*t221*t222*t235*t253*t3
3467     4         04*t91*t92+1.6455307846020562d-2*gammabb*t135*t222*t252*t
3468     5         253*t302*t91*t92+1.6455307846020562d-2*gammabb*t139*t222*
3469     6         t250*t251*t302*t91*t92-1.6455307846020562d-2*t100*t135*t2
3470     7         52*t253*t91*t92-1.6455307846020562d-2*t100*t139*t250*t251
3471     8         *t91*t92-1.6455307846020562d-2*t135*t139*t221*t222*t91*t9
3472     9         2+4.38808209227215d-2*gammabb*t100*t139*t211*t251*t320*t9
3473     :         2+2.194041046136075d-2*gammabb*t100*t135*t211*t235*t253*t
3474     ;         304*t92+4.38808209227215d-2*gammabb*t135*t139*t211*t222*t
3475     <         302*t92-4.38808209227215d-2*t100*t135*t139*t211*t92+1.645
3476     =         5307846020562d-2*gammabb*t100*t135*t139*t461*t91-1.645530
3477     >         7846020562d-2*gammabb*t100*t139*t224*t251*t320*t91-8.2276
3478     ?         53923010281d-3*gammabb*t100*t135*t224*t235*t253*t304*t91-
3479     @         1.6455307846020562d-2*gammabb*t100*t135*t252*t253*t303*t9
3480     1         1-1.6455307846020562d-2*gammabb*t100*t139*t250*t251*t303*
3481     2         t91-1.6455307846020562d-2*gammabb*t135*t139*t221*t222*t30
3482     3         3*t91-1.6455307846020562d-2*gammabb*t135*t139*t222*t224*t
3483     4         302*t91+1.6455307846020562d-2*t100*t135*t139*t224*t91-t13
3484     5         3*t137*t251*t471-t133*t135*t249*(t470+t469)+t135*t137*t46
3485     6         2+2*t133*t137*t250*t320*t434+t133*t135*t242*t248*t304*t43
3486     7         2+t133*t248*t249*t251*t320-t137*t241*t251*t320+5.0d-1*t13
3487     8         3*t242*t249*t250*t251*t304-t137*t250*t251*t304-t135*t248*
3488     9         t249*t304-5.0d-1*t135*t241*t242*t249*t304-4.3880820922721
3489     :         5d-2*gammabb*t100*t135*t139*t211*t303)+3.2910615692041123
3490     ;         d-2*gammabb*t100*t240*(6.0965d-1*t124*t238*(t468+t467+t46
3491     <         5+t464)+6.0965d-1*t121*t234*t466-1.2193000000000001d+0*t1
3492     =         24*t237*t311*t422-6.0965d-1*t121*t230*t233*t304*t415-6.09
3493     >         65d-1*t233*t234*t238*t311-3.04825d-1*t230*t234*t237*t238*
3494     ?         t304)*t91*t92-3.2910615692041123d-2*gammabb*t126*t222*t46
3495     @         0*t91*t92-3.2910615692041123d-2*gammabb*t100*t239*t312*t4
3496     1         13*t91*t92+6.582123138408225d-2*gammabb*t126*t221*t302*t3
3497     2         93*t91*t92-3.2910615692041123d-2*gammabb*t221*t222*t240*t
3498     3         312*t91*t92-3.2910615692041123d-2*gammabb*t222*t239*t240*
3499     4         t302*t91*t92+3.2910615692041123d-2*t100*t239*t240*t91*t92
3500     5         -3.2910615692041123d-2*t126*t221*t222*t91*t92-8.776164184
3501     6         5443d-2*gammabb*t100*t211*t240*t312*t92+8.7761641845443d-
3502     7         2*gammabb*t126*t211*t222*t302*t92-8.7761641845443d-2*t100
3503     8         *t126*t211*t92+3.2910615692041123d-2*gammabb*t100*t126*t4
3504     9         61*t91+3.2910615692041123d-2*gammabb*t100*t224*t240*t312*
3505     :         t91+3.2910615692041123d-2*gammabb*t100*t239*t240*t303*t91
3506     ;         -3.2910615692041123d-2*gammabb*t126*t221*t222*t303*t91-3.
3507     <         2910615692041123d-2*gammabb*t126*t222*t224*t302*t91+3.291
3508     =         0615692041123d-2*t100*t126*t224*t91-6.064083168526658d-3*
3509     >         t1*t226*t260*t304*t472*t78-1.2128166337053317d-2*t1*t262*
3510     ?         t304*t322*t410*t78+6.764482379964267d-3*t1*t110*t147*t261
3511     @         *t266*t304*t78-3.3822411899821336d-3*t1*t113*t228*t261*t3
3512     1         04*t78+2.6666666666666666d+0*t146*t149*t267*t474-1.054657
3513     2         7777777776d-1*t110*t111*t147*t474-4.727288888888889d-2*t1
3514     3         03*t260*t473-2.0d+0*t133*t247*(-1.475609999999999d-1*t124
3515     4         *t245*(t470+t469+t465+t464)-1.475609999999999d-1*t130*t23
3516     5         4*t466+2.951219999999998d-1*t124*t244*t317*t428+1.4756099
3517     6         99999999d-1*t130*t230*t233*t304*t415+1.475609999999999d-1
3518     7         *t233*t234*t245*t317+7.378049999999994d-2*t230*t234*t244*
3519     8         t245*t304)+5.273288888888887d-2*t111*t113*t463-4.72728888
3520     9         8888889d-2*t107*t210*t462-2.0d+0*t132*t462+2.666666666666
3521     :         6666d+0*t146*t266*t267*t459-8.888888888888888d-1*t147*t25
3522     ;         9*t459+2.0d+0*t133*t246*t318*t427-1.0666666666666666d+1*t
3523     <         146*t149*t266*t325*t412+9.454577777777778d-2*t107*t226*t3
3524     =         04*t406+2.6666666666666666d+0*t149*t266*t267*t331-8.88888
3525     >         8888888888d-1*t147*t265*t331+3.1639733333333325d-1*t110*t
3526     ?         111*t266*t267*t325+2.6666666666666666d+0*t146*t265*t267*t
3527     @         325+2.6666666666666666d+0*t149*t259*t267*t325-1.054657777
3528     1         7777776d-1*t110*t147*t263*t325-1.0546577777777776d-1*t111
3529     2         *t147*t228*t325-2.0d+0*t241*t247*t318-1.0546577777777776d
3530     3         -1*t111*t147*t266*t306+5.273288888888887d-2*t113*t263*t30
3531     4         6+4.727288888888889d-2*t210*t260*t262*t304-2.0d+0*t246*t2
3532     5         47*t304-8.7761641845443d-2*gammabb*t100*t126*t211*t303)-1
3533     6         .2407009817987999d+0*t77*(3.2910615692041123d-2*t100*t126
3534     7         *t91*t92+3.2910615692041123d-2*gammabb*t100*t126*t303*t91
3535     8         -8.888888888888888d-1*t146*t147*t459-8.888888888888888d-1
3536     9         *t147*t149*t331+t326-1.0546577777777776d-1*t110*t111*t147
3537     :         *t325+t324+t323+t321+t319+t315+t313+t308+t307+t305))*wght
3538     ;         +Cmat2(iq,D2_RB_GBB)
3539            Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA)-9.305257363491d-
3540     1         1*t22*(t208*(2.6666666666666666d+0*t490*t72*t75+2.6666666
3541     2         666666666d+0*t293*t299*t75+2.6666666666666666d+0*t293*t29
3542     3         6*t72-3.0d+0*t293*t300)+t73*(-8.888888888888888d-1*(-8.40
3543     4         0000000000001d+0*t195*t479*t71-2.1d+1*t383*t475*t71-2.4d+
3544     5         0*(-5.0d-1*t196*t479+6.41391219265211d-2*t197*(gammaaa*t1
3545     6         6*t25*t478-gammaaa*t16*t163*t17*t477+2*gammaaa*t16*t17*t3
3546     7         38*t476-2*gammaaa*t16*t163*t270*t271+2*t16*t25*t271-2*t16
3547     8         *t163*t17*t270)+2.5d-1*t385*t475-3.206956096326055d-2*t29
3548     9         7**2*t384)*t68-2.7259596d+0*t479*t67+4.7459599999999996d-
3549     :         2*t480*t66+5.672746666666666d-2*t479*t66-5.4519192d+0*t47
3550     ;         5*t66+4.7459599999999996d-2*t35*t479-4.9628707825354457d+
3551     <         0*t195*t479-1.2407176956338616d+1*t383*t475+5.67274666666
3552     =         6666d-2*t475-1.68d+1*t195*t272*t298+9.491919999999999d-2*
3553     >         t272*t274)*t75-8.888888888888888d-1*(-2.4682961769030842d
3554     ?         -2*t151*t39*t40*t479-1.4431302433467247d-1*t1*t202*t3*t47
3555     @         9+4.9365923538061685d-2*t351*t39*t40*t475+2.1646953650200
3556     1         87d-1*t1*t290*t3*t475)*t72-1.0546577777777776d-1*t35*t36*
3557     2         t490-2.109315555555555d-1*t274*t293*t36+6.764482379964267
3558     3         d-3*t1*t202*t272*t293*t3*t35-1.7777777777777776d+0*t296*t
3559     4         299)-1.0666666666666666d+1*t293**2*t357*t72*t75+6.7644823
3560     5         79964267d-3*t1*t202*t272*t293*t3*t35*t73+7.57211d-1*(1.64
3561     6         55307846020562d-2*gammaaa*t16*t25*t478*t61*t65-1.64553078
3562     7         46020562d-2*gammaaa*t16*t163*t17*t477*t61*t65+3.291061569
3563     8         2041123d-2*gammaaa*t16*t17*t338*t476*t61*t65-3.2910615692
3564     9         041123d-2*gammaaa*t16*t163*t270*t271*t61*t65+3.2910615692
3565     :         041123d-2*t16*t25*t271*t61*t65-3.2910615692041123d-2*t16*
3566     ;         t163*t17*t270*t61*t65-1.6455307846020562d-2*gammaaa*t16*t
3567     <         17*t192*t25*t489*t65+3.2910615692041123d-2*gammaaa*t16*t1
3568     =         7*t25*t379*t486*t65-3.2910615692041123d-2*gammaaa*t16*t19
3569     >         2*t25*t271*t288*t65+3.2910615692041123d-2*gammaaa*t16*t16
3570     ?         3*t17*t192*t270*t288*t65-3.2910615692041123d-2*t16*t17*t1
3571     @         92*t25*t288*t65+t479*t61*t63-t192*t489*t59*t63+2*t379*t48
3572     1         6*t59*t63-2*t192*t272*t288*t63+5.0d-1*t377*t475*t59*t61/t
3573     2         53-5.0d-1*t183*t190*t479*t59*t61+2.5d-1*t190*t374*t475*t5
3574     3         9*t61-8.227653923010281d-3*gammaaa*t16*t17*t176*t194*t25*
3575     4         t479*t61+8.227653923010281d-3*gammaaa*t16*t17*t25*t381*t4
3576     5         75*t61/t42+4.1138269615051404d-3*gammaaa*t16*t17*t194*t25
3577     6         *t368*t475*t61-t183*t190*t475*t61-1.6455307846020562d-2*g
3578     7         ammaaa*t16*t176*t194*t25*t271*t272*t61+1.6455307846020562
3579     8         d-2*gammaaa*t16*t163*t17*t176*t194*t270*t272*t61-1.645530
3580     9         7846020562d-2*t16*t17*t176*t194*t25*t272*t61+t183*t190*t1
3581     :         92*t272*t288*t59+1.6455307846020562d-2*gammaaa*t16*t17*t1
3582     ;         76*t192*t194*t25*t272*t288)+t188*(-2.0d+0*(7.378049999999
3583     <         994d-2*t360*t475*t481*t56-7.378049999999994d-2*t171*t175*
3584     =         t479*t56+3.689024999999997d-2*t175*t362*t475*t56-1.475609
3585     >         999999999d-1*t186*(t488+t487+t485+t484)*t50+2.95121999999
3586     ?         9998d-1*t285**2*t373*t50+1.475609999999999d-1*t171*t175*t
3587     @         186*t272*t285)*t59-4.0d+0*t272*t286)+2.0d+0*t286**2*t372*
3588     1         t59-2.0d+0*t479*t58+t16*t25*(3.2910615692041123d-2*gammaa
3589     2         a*t478*t52+6.582123138408225d-2*t271*t52+3.29106156920411
3590     3         23d-2*gammaaa*t181*t271*t280+3.2910615692041123d-2*t17*t1
3591     4         81*t280)+t16*t163*(-3.2910615692041123d-2*gammaaa*t17*t47
3592     5         7*t52-3.2910615692041123d-2*gammaaa*t270*t271*t52-3.29106
3593     6         15692041123d-2*t17*t270*t52-t270*t282)+6.582123138408225d
3594     7         -2*gammaaa*t16*t17*t338*t476*t52+t16*t181*t25*(3.29106156
3595     8         92041123d-2*gammaaa*t17*(6.0965d-1*t179*(t485+t484+t483+t
3596     9         482)*t50-1.2193000000000001d+0*t279**2*t367*t50-3.04825d-
3597     :         1*t360*t47*t475*t481+3.04825d-1*t171*t175*t47*t479-1.5241
3598     ;         25d-1*t175*t362*t47*t475-6.0965d-1*t171*t175*t179*t272*t2
3599     <         79)+3.2910615692041123d-2*gammaaa*t271*t280+3.29106156920
3600     =         41123d-2*t17*t280)+5.273288888888887d-2*t36*t38*t480+t202
3601     >         *t3*t38*(-3.3822411899821336d-3*t1*t35*t479-6.76448237996
3602     ?         4267d-3*t1*t272*t274)-4.727288888888889d-2*t151*t32*t479+
3603     @         6.064083168526658d-3*t1*t201*t290*t3*t479-2.1224291089843
3604     1         306d-2*t1*t201*t3*t456*t475+1.5557798788747831d-3*t355*t3
3605     2         9*t40*t475/t27**4+5.0733617849732d-3*t1*t290*t3*t35*t38*t
3606     3         475+9.454577777777778d-2*t32*t351*t475-3.2910615692041123
3607     4         d-2*gammaaa*t16*t17*t25*t280**2*t358-6.582123138408225d-2
3608     5         *gammaaa*t16*t163*t17*t181*t270*t280)*wght
3609            Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB)
3610            Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB)
3611            Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB)
3612            Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB)
3613            Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB)-9.305257363491d-
3614     1         1*(t147*(-8.888888888888888d-1*t149*(-2.4d+0*t142*(6.4139
3615     2         1219265211d-2*t256*(-gammabb*t222*t493*t91*t92+2*gammabb*
3616     3         t393*t492*t91*t92-2*t222*t302*t91*t92+gammabb*t100*t494*t
3617     4         91-2*gammabb*t222*t302*t303*t91+2*t100*t303*t91)-5.0d-1*t
3618     5         255*t495+2.5d-1*t440*t491-3.206956096326055d-2*t329**2*t4
3619     6         39)+4.7459599999999996d-2*t140*t496-8.400000000000001d+0*
3620     7         t145*t254*t495-4.9628707825354457d+0*t254*t495-2.7259596d
3621     8         +0*t141*t495+5.672746666666666d-2*t140*t495+4.74595999999
3622     9         99996d-2*t110*t495-2.1d+1*t145*t438*t491-1.24071769563386
3623     :         16d+1*t438*t491-5.4519192d+0*t140*t491+5.672746666666666d
3624     ;         -2*t491-1.68d+1*t254*t304*t330+9.491919999999999d-2*t304*
3625     <         t306)-8.888888888888888d-1*t146*(-1.4431302433467247d-1*t
3626     =         1*t261*t495*t78+2.164695365020087d-1*t1*t322*t491*t78-2.4
3627     >         682961769030842d-2*t114*t210*t39*t495+4.9365923538061685d
3628     ?         -2*t114*t39*t406*t491)+6.764482379964267d-3*t1*t110*t261*
3629     @         t304*t325*t78-1.0546577777777776d-1*t110*t111*t506-1.7777
3630     1         777777777776d+0*t328*t331-2.109315555555555d-1*t111*t306*
3631     2         t325)+7.57211d-1*(-1.6455307846020562d-2*gammabb*t100*t13
3632     3         9*t251*t505*t91*t92+3.2910615692041123d-2*gammabb*t100*t1
3633     4         39*t434*t502*t91*t92-8.227653923010281d-3*gammabb*t100*t1
3634     5         35*t235*t253*t495*t91*t92-1.6455307846020562d-2*gammabb*t
3635     6         135*t139*t222*t493*t91*t92+3.2910615692041123d-2*gammabb*
3636     7         t135*t139*t393*t492*t91*t92+8.227653923010281d-3*gammabb*
3637     8         t100*t135*t436*t491*t91*t92/t116+4.1138269615051404d-3*ga
3638     9         mmabb*t100*t135*t253*t423*t491*t91*t92+1.6455307846020562
3639     :         d-2*gammabb*t100*t235*t251*t253*t304*t320*t91*t92+3.29106
3640     ;         15692041123d-2*gammabb*t139*t222*t251*t302*t320*t91*t92-3
3641     <         .2910615692041123d-2*t100*t139*t251*t320*t91*t92+1.645530
3642     =         7846020562d-2*gammabb*t135*t222*t235*t253*t302*t304*t91*t
3643     >         92-1.6455307846020562d-2*t100*t135*t235*t253*t304*t91*t92
3644     ?         -3.2910615692041123d-2*t135*t139*t222*t302*t91*t92+1.6455
3645     @         307846020562d-2*gammabb*t100*t135*t139*t494*t91-3.2910615
3646     1         692041123d-2*gammabb*t100*t139*t251*t303*t320*t91-1.64553
3647     2         07846020562d-2*gammabb*t100*t135*t235*t253*t303*t304*t91-
3648     3         3.2910615692041123d-2*gammabb*t135*t139*t222*t302*t303*t9
3649     4         1+3.2910615692041123d-2*t100*t135*t139*t303*t91-t133*t137
3650     5         *t251*t505+2*t133*t137*t434*t502-5.0d-1*t133*t135*t242*t2
3651     6         49*t495+t135*t137*t495+5.0d-1*t133*t135*t432*t491/t127+2.
3652     7         5d-1*t133*t135*t249*t429*t491-t135*t242*t249*t491+t133*t2
3653     8         42*t249*t251*t304*t320-2*t137*t251*t304*t320)+t100*t240*t
3654     9         91*(3.2910615692041123d-2*gammabb*(6.0965d-1*t124*t238*(t
3655     :         501+t500+t499+t498)-3.04825d-1*t121*t415*t491*t497+3.0482
3656     ;         5d-1*t121*t230*t234*t495-1.524125d-1*t121*t234*t417*t491-
3657     <         1.2193000000000001d+0*t124*t311**2*t422-6.0965d-1*t230*t2
3658     =         34*t238*t304*t311)*t92+3.2910615692041123d-2*t312*t92+3.2
3659     >         910615692041123d-2*gammabb*t303*t312)+t222*t91*(-3.291061
3660     ?         5692041123d-2*gammabb*t126*t493*t92-3.2910615692041123d-2
3661     @         *t126*t302*t92-t302*t314-3.2910615692041123d-2*gammabb*t1
3662     1         26*t302*t303)+t100*t91*(3.2910615692041123d-2*t240*t312*t
3663     2         92+3.2910615692041123d-2*gammabb*t126*t494+3.291061569204
3664     3         1123d-2*gammabb*t240*t303*t312+6.582123138408225d-2*t126*
3665     4         t303)+6.582123138408225d-2*gammabb*t126*t393*t492*t91*t92
3666     5         -3.2910615692041123d-2*gammabb*t100*t312**2*t413*t91*t92-
3667     6         6.582123138408225d-2*gammabb*t222*t240*t302*t312*t91*t92+
3668     7         t113*t261*(-3.3822411899821336d-3*t1*t110*t495-6.76448237
3669     8         9964267d-3*t1*t304*t306)*t78+6.064083168526658d-3*t1*t260
3670     9         *t322*t495*t78-2.1224291089843306d-2*t1*t260*t472*t491*t7
3671     :         8+5.0733617849732d-3*t1*t110*t113*t322*t491*t78+6.7644823
3672     ;         79964267d-3*t1*t110*t147*t261*t304*t325*t78+t267*(2.66666
3673     <         66666666666d+0*t146*t149*t506-3.0d+0*t325*t332+2.66666666
3674     =         66666666d+0*t149*t325*t331+2.6666666666666666d+0*t146*t32
3675     >         5*t328)+t247*(-2.0d+0*t133*(-1.475609999999999d-1*t124*t2
3676     ?         45*(t504+t503+t501+t500)+7.378049999999994d-2*t130*t415*t
3677     @         491*t497-7.378049999999994d-2*t130*t230*t234*t495+3.68902
3678     1         4999999997d-2*t130*t234*t417*t491+2.951219999999998d-1*t1
3679     2         24*t317**2*t428+1.475609999999999d-1*t230*t234*t245*t304*
3680     3         t317)-4.0d+0*t304*t318)+5.273288888888887d-2*t111*t113*t4
3681     4         96-4.727288888888889d-2*t107*t210*t495-2.0d+0*t132*t495+1
3682     5         .5557798788747831d-3*t114*t39*t410*t491/t102**4+9.4545777
3683     6         77777778d-2*t107*t406*t491+2.0d+0*t133*t318**2*t427-1.066
3684     7         6666666666666d+1*t146*t149*t325**2*t412)*t97*wght
3685          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
3686            t1 = param(1)
3687            t2 = rhoa**3.333333333333333d-1
3688            t3 = 1/t2
3689            t4 = t1*t3
3690            t5 = gammaaa**5.0d-1
3691            t6 = t5**7
3692            t7 = 1/rhoa**9.333333333333333d+0
3693            t8 = gammaaa**3
3694            t9 = 1/rhoa**8
3695            t10 = t5**5
3696            t11 = 1/rhoa**6.666666666666667d+0
3697            t12 = gammaaa**2
3698            t13 = 1/rhoa**5.333333333333333d+0
3699            t14 = t5**3
3700            t15 = 1/rhoa**4
3701            t16 = 1/rhoa**2.6666666666666666d+0
3702            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
3703     1         7+2.631878392200375d-4*gammaaa*t16+1.8005513133540818d-4*
3704     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
3705     3         10*t11
3706            t18 = t5**9
3707            t19 = 1/rhoa**12
3708            t20 = gammaaa**4
3709            t21 = 1/rhoa**1.0666666666666666d+1
3710            t22 = rhoa**1.3333333333333333d+0
3711            t23 = 1/t22
3712            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
3713     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
3714     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
3715     3         mmaaa*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
3716     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
3717            t25 = 1/t24
3718            t26 = 1.6455307846020562d-2*gammaaa*t16*t17*t25
3719            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
3720            t28 = 1/t27
3721            t29 = t27**5.0d-1
3722            t30 = 1/t29
3723            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
3724            t32 = 1/t31
3725            t33 = 4.1138269615051404d-3*gammaaa*t16+1.0d+0
3726            t34 = 1/t33
3727            t35 = 5.136628594837797d-3*gammaaa*t16*t34+6.934448603031025
3728     1         d-2*gammaaa*t16*t17*t25+1.0d+0
3729            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
3730            t37 = t27*t31
3731            t38 = 1/t37**2.0d+0
3732            t39 = t1**2
3733            t40 = 1/rhoa**6.666666666666666d-1
3734            t41 = 6.582123138408225d-2*t39*t40
3735            t42 = t41+t26
3736            t43 = t42**5.0d-1
3737            t44 = t41+t26+6.0965d-1
3738            t45 = t44**5.0d-1
3739            t46 = t45+t43
3740            t47 = 1/t46
3741            t48 = 2.565564877060844d-1*t1*t3
3742            t49 = t48+t45
3743            t50 = 1/t49
3744            t51 = 1.0d+0-6.0965d-1*t47*t50
3745            t52 = log(t51)
3746            t53 = t41+t26+7.57211d-1
3747            t54 = t53**5.0d-1
3748            t55 = t54+t45
3749            t56 = 1/t55
3750            t57 = 1.475609999999999d-1*t50*t56+1.0d+0
3751            t58 = log(t57)
3752            t59 = t26+7.57211d-1
3753            t60 = t54+t43
3754            t61 = 1/t60
3755            t62 = t54+t48
3756            t63 = 1/t62
3757            t64 = t48+t43
3758            t65 = 1/t64
3759            t66 = t26+6.0965d-1
3760            t67 = t66**2.0d+0
3761            t68 = t66**3.5d+0
3762            t69 = (gammaaa*t16*t17*t25)**5.0d-1
3763            t70 = t59**5.0d-1
3764            t71 = 1.282782438530422d-1*t69-t70
3765            t72 = -2.4d+0*t68*t71-1.417963080724413d+0*t68+2.83637333333
3766     1         3333d-2*t67-9.086532d-1*t66**3.0d+0+4.7459599999999996d-2
3767     2         *t35*t66
3768            t73 = 1/t37**3.0d+0
3769            t74 = t1*t3*t30
3770            t75 = 2.4682961769030842d-2*t74**2.0d+0+2.8862604866934494d-
3771     1         1*t1*t3*t30+1.0d+0
3772            t76 = -8.888888888888888d-1*t72*t73*t75+7.57211d-1*(1.645530
3773     1         7846020562d-2*gammaaa*t16*t17*t25*t61*t65+t59*t61*t63)-2.
3774     2         0d+0*t58*t59+3.2910615692041123d-2*gammaaa*t16*t17*t25*t5
3775     3         2+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
3776     4         28*t32-1.0d+0
3777            t77 = 1/t27**2
3778            t78 = 1/rhoa**3.6666666666666664d+0
3779            t79 = -4.38808209227215d-2*gammaaa*t17*t25*t78
3780            t80 = 1/rhoa**13
3781            t81 = 1/rhoa**1.1666666666666665d+1
3782            t82 = 1/rhoa**1.0333333333333333d+1
3783            t83 = 1/rhoa**9
3784            t84 = 1/rhoa**7.666666666666667d+0
3785            t85 = 1/rhoa**6.333333333333333d+0
3786            t86 = 1/rhoa**5
3787            t87 = 1/rhoa**2.3333333333333334d+0
3788            t88 = -9.121763297794749d-1*t5*t87-9.371196275079824d-2*t14*
3789     1         t86+7.379767838723479d-3*t12*t85-3.970606525117923d-4*t10
3790     2         *t84+2.1757466141021625d-5*t8*t83-1.6407054045998d-6*t6*t
3791     3         82+6.026316036028103d-8*t20*t81-3.7791630611803767d-9*t18
3792     4         *t80+5.475448834737188d-1*gammaaa*t78
3793            t89 = 1/t24**2
3794            t90 = -1.6455307846020562d-2*gammaaa*t16*t17*t88*t89
3795            t91 = -7.202205253416327d-4*t14*t86+2.3159461868101344d-4*t1
3796     1         2*t85-3.5347308712216d-5*t10*t84+3.462141917580374d-6*t8*
3797     2         t83-2.2515574897849044d-7*t6*t82-7.018342379201d-4*gammaa
3798     3         a*t78
3799            t92 = 1.6455307846020562d-2*gammaaa*t16*t25*t91
3800            t93 = t92+t90+t79-4.38808209227215d-2*t1*t23*t4
3801            t94 = 1/t33**2
3802            t95 = 5.634986987915197d-5*t12*t85*t94+6.934448603031025d-2*
3803     1         gammaaa*t16*t25*t91-6.934448603031025d-2*gammaaa*t16*t17*
3804     2         t88*t89-1.369767625290079d-2*gammaaa*t34*t78-1.8491862941
3805     3         416065d-1*gammaaa*t17*t25*t78
3806            t96 = t92+t90+t79-4.38808209227215d-2*t39/rhoa**1.6666666666
3807     1         666669d+0
3808            t97 = 1/t45
3809            t98 = 5.0d-1*t96*t97
3810            t99 = -8.551882923536147d-2*t1*t23
3811            t100 = t99+t98
3812            t101 = 1/t49**2
3813            t102 = 1/t43
3814            t103 = 5.0d-1*t102*t96
3815            t104 = t98+t103
3816            t105 = 1/t46**2
3817            t106 = 6.0965d-1*t104*t105*t50+6.0965d-1*t100*t101*t47
3818            t107 = 1/t51
3819            t108 = t92+t90+t79
3820            t109 = 1/t54
3821            t110 = 5.0d-1*t109*t96
3822            t111 = t98+t110
3823            t112 = 1/t55**2
3824            t113 = -1.475609999999999d-1*t100*t101*t56-1.475609999999999
3825     1         d-1*t111*t112*t50
3826            t114 = 1/t57
3827            t115 = t99+t110
3828            t116 = 1/t62**2
3829            t117 = t110+t103
3830            t118 = 1/t60**2
3831            t119 = t99+t103
3832            t120 = 1/t64**2
3833            t121 = t66**2.5d+0
3834            t122 = 1/t70
3835            t123 = 1/t69
3836            t124 = gammaaa*t16*t25*t91-gammaaa*t16*t17*t88*t89-2.6666666
3837     1         666666666d+0*gammaaa*t17*t25*t78
3838            t125 = 6.41391219265211d-2*t123*t124-5.0d-1*t108*t122
3839            t126 = 4.7459599999999996d-2*t66*t95-8.400000000000001d+0*t1
3840     1         08*t121*t71-2.4d+0*t125*t68-2.7259596d+0*t108*t67+5.67274
3841     2         6666666666d-2*t108*t66+4.7459599999999996d-2*t108*t35-4.9
3842     3         628707825354457d+0*t108*t121
3843            t127 = 1/t31**2
3844            t128 = 1/t29**3
3845            t129 = -1.282782438530422d-1*t1*t128*t3*t93-8.55188292353614
3846     1         7d-2*t1*t23*t30
3847            t130 = -6.41391219265211d-2*t1*t128*t3*t93-4.275941461768073
3848     1         5d-2*t1*t23*t30
3849            t131 = -5.0d-1*t1*t128*t3*t93-3.333333333333333d-1*t1*t23*t3
3850     1         0
3851            t132 = -1.4431302433467247d-1*t1*t128*t3*t93+4.9365923538061
3852     1         685d-2*t131*t74-9.620868288978164d-2*t1*t23*t30
3853            t133 = t31*t93+t129*t27
3854            t134 = 1/t37**4.0d+0
3855            t135 = 5.273288888888887d-2*t36*t38*t95-4.727288888888889d-2
3856     1         *t32*t77*t93+7.57211d-1*(1.6455307846020562d-2*gammaaa*t1
3857     2         6*t25*t61*t65*t91-1.6455307846020562d-2*gammaaa*t16*t17*t
3858     3         61*t65*t88*t89-4.38808209227215d-2*gammaaa*t17*t25*t61*t6
3859     4         5*t78-1.6455307846020562d-2*gammaaa*t117*t118*t16*t17*t25
3860     5         *t65+t108*t61*t63-t117*t118*t59*t63-t115*t116*t59*t61-1.6
3861     6         455307846020562d-2*gammaaa*t119*t120*t16*t17*t25*t61)+3.2
3862     7         910615692041123d-2*gammaaa*t16*t25*t52*t91-3.291061569204
3863     8         1123d-2*gammaaa*t16*t17*t52*t88*t89-8.7761641845443d-2*ga
3864     9         mmaaa*t17*t25*t52*t78-8.888888888888888d-1*t126*t73*t75+2
3865     :         .6666666666666666d+0*t133*t134*t72*t75-8.888888888888888d
3866     ;         -1*t132*t72*t73-1.0546577777777776d-1*t133*t35*t36*t73-2.
3867     <         0d+0*t113*t114*t59-2.0d+0*t108*t58+5.273288888888887d-2*t
3868     =         130*t35*t38-4.727288888888889d-2*t127*t129*t28+3.29106156
3869     >         92041123d-2*gammaaa*t106*t107*t16*t17*t25
3870            t136 = 1/t5
3871            t137 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
3872     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
3873     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t136
3874     3         *t23-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t
3875     4         14-2.767412939521305d-3*gammaaa*t13
3876            t138 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
3877     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
3878     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammaaa
3879     3         *t13
3880            t139 = -1.6455307846020562d-2*gammaaa*t137*t16*t17*t89+1.645
3881     1         5307846020562d-2*t16*t17*t25+1.6455307846020562d-2*gammaa
3882     2         a*t138*t16*t25
3883            t140 = -4.727288888888889d-2*t139*t32*t77
3884            t141 = -2.113120120468199d-5*gammaaa*t13*t94-6.9344486030310
3885     1         25d-2*gammaaa*t137*t16*t17*t89+5.136628594837797d-3*t16*t
3886     2         34+6.934448603031025d-2*t16*t17*t25+6.934448603031025d-2*
3887     3         gammaaa*t138*t16*t25
3888            t142 = 5.273288888888887d-2*t141*t36*t38
3889            t143 = -3.2910615692041123d-2*gammaaa*t137*t16*t17*t52*t89
3890            t144 = 5.0d-1*t102*t139
3891            t145 = 5.0d-1*t139*t97
3892            t146 = t145+t144
3893            t147 = 3.04825d-1*t101*t139*t47*t97+6.0965d-1*t105*t146*t50
3894            t148 = 3.2910615692041123d-2*gammaaa*t107*t147*t16*t17*t25
3895            t149 = 3.2910615692041123d-2*t17*t52+3.2910615692041123d-2*g
3896     1         ammaaa*t138*t52
3897            t150 = -2.0d+0*t139*t58
3898            t151 = 5.0d-1*t109*t139
3899            t152 = t151+t145
3900            t153 = -7.378049999999994d-2*t101*t139*t56*t97-1.47560999999
3901     1         9999d-1*t112*t152*t50
3902            t154 = -2.0d+0*t114*t153*t59
3903            t155 = t151+t144
3904            t156 = 7.57211d-1*(-1.6455307846020562d-2*gammaaa*t137*t16*t
3905     1         17*t61*t65*t89+1.6455307846020562d-2*t16*t17*t25*t61*t65+
3906     2         1.6455307846020562d-2*gammaaa*t138*t16*t25*t61*t65-1.6455
3907     3         307846020562d-2*gammaaa*t118*t155*t16*t17*t25*t65+t139*t6
3908     4         1*t63-t118*t155*t59*t63-5.0d-1*t109*t116*t139*t59*t61-8.2
3909     5         27653923010281d-3*gammaaa*t102*t120*t139*t16*t17*t25*t61)
3910            t157 = 1/t29**5
3911            t158 = 6.064083168526658d-3*t1*t127*t139*t157*t3
3912            t159 = -3.3822411899821336d-3*t1*t128*t139*t3*t35*t38
3913            t160 = t139*t31-1.282782438530422d-1*t1*t139*t3*t30
3914            t161 = 2.6666666666666666d+0*t134*t160*t72*t75
3915            t162 = -1.4431302433467247d-1*t1*t128*t139*t3
3916            t163 = t162-2.4682961769030842d-2*t139*t39*t40*t77
3917            t164 = -gammaaa*t137*t16*t17*t89+t16*t17*t25+gammaaa*t138*t1
3918     1         6*t25
3919            t165 = 6.41391219265211d-2*t123*t164-5.0d-1*t122*t139
3920            t166 = -8.400000000000001d+0*t121*t139*t71-2.4d+0*t165*t68-2
3921     1         .7259596d+0*t139*t67+4.7459599999999996d-2*t141*t66+5.672
3922     2         746666666666d-2*t139*t66+4.7459599999999996d-2*t139*t35-4
3923     3         .9628707825354457d+0*t121*t139
3924            t167 = -8.888888888888888d-1*t166*t75-8.888888888888888d-1*t
3925     1         163*t72-1.0546577777777776d-1*t160*t35*t36
3926            t168 = 1/rhoa**4.666666666666667d+0
3927            t169 = 1.6089634338331216d-1*gammaaa*t168*t17*t25
3928            t170 = 8.7761641845443d-2*gammaaa*t17*t78*t88*t89
3929            t171 = -8.7761641845443d-2*gammaaa*t25*t78*t91
3930            t172 = t88**2
3931            t173 = 1/t24**3
3932            t174 = 3.2910615692041123d-2*gammaaa*t16*t17*t172*t173
3933            t175 = 1/rhoa**1.1333333333333334d+1
3934            t176 = 1/rhoa**10
3935            t177 = 1/rhoa**8.666666666666666d+0
3936            t178 = 1/rhoa**7.333333333333333d+0
3937            t179 = 1/rhoa**6
3938            t180 = -1.9581719526919464d-4*t176*t8+1.695395584753127d-5*t
3939     1         175*t6+2.1284114361521084d+0*t5/rhoa**3.3333333333333337d
3940     2         +0-7.030702042032786d-7*t20/rhoa**1.2666666666666665d+1+4
3941     3         .9129119795344894d-8*t18/rhoa**14+4.685598137539912d-1*t1
3942     4         4*t179-4.6738529645248705d-2*t12*t178+3.0441316692570747d
3943     5         -3*t10*t177-2.0076645727369685d+0*gammaaa*t168
3944            t181 = -1.6455307846020562d-2*gammaaa*t16*t17*t180*t89
3945            t182 = -3.2910615692041123d-2*gammaaa*t16*t88*t89*t91
3946            t183 = -3.115927725822337d-5*t176*t8+2.326609406111068d-6*t1
3947     1         75*t6+3.6011026267081636d-3*t14*t179-1.466765918313085d-3
3948     2         *t12*t178+2.709960334603227d-4*t10*t177+2.573392205707033
3949     3         5d-3*gammaaa*t168
3950            t184 = 1.6455307846020562d-2*gammaaa*t16*t183*t25
3951            t185 = 7.313470153786916d-2*t16*t39+t184+t182+t181+t174+t171
3952     1         +t170+t169
3953            t186 = 1/t27**3
3954            t187 = t93**2
3955            t188 = 1/t33**3
3956            t189 = -5.071488289123677d-4*t12*t178*t94-1.386889720606205d
3957     1         -1*gammaaa*t16*t88*t89*t91-3.698372588283213d-1*gammaaa*t
3958     2         25*t78*t91+3.698372588283213d-1*gammaaa*t17*t78*t88*t89-6
3959     3         .934448603031025d-2*gammaaa*t16*t17*t180*t89+1.2363392745
3960     4         928628d-6*t176*t188*t8+5.02248129273029d-2*gammaaa*t168*t
3961     5         34+6.934448603031025d-2*gammaaa*t16*t183*t25+6.7803497451
3962     6         85891d-1*gammaaa*t168*t17*t25+1.386889720606205d-1*gammaa
3963     7         a*t16*t17*t172*t173
3964            t190 = 1/t31**3
3965            t191 = t133**2
3966            t192 = 1/t37**5.0d+0
3967            t193 = 1/t51**2
3968            t194 = t100**2
3969            t195 = 1/t49**3
3970            t196 = t96**2
3971            t197 = 1/t45**3
3972            t198 = -2.5d-1*t196*t197
3973            t199 = 5.0d-1*t185*t97
3974            t200 = 1.1402510564714863d-1*t1*t87
3975            t201 = t200+t199+t198
3976            t202 = 1/t46**3
3977            t203 = 1/t43**3
3978            t204 = -2.5d-1*t196*t203
3979            t205 = 5.0d-1*t102*t185
3980            t206 = t184+t182+t181+t174+t171+t170+t169
3981            t207 = 1/t57**2
3982            t208 = 1/t55**3
3983            t209 = 1/t54**3
3984            t210 = -2.5d-1*t196*t209
3985            t211 = 5.0d-1*t109*t185
3986            t212 = 1/t62**3
3987            t213 = t117**2
3988            t214 = 1/t60**3
3989            t215 = t211+t210+t205+t204
3990            t216 = 1/t64**3
3991            t217 = t108**2
3992            t218 = t66**1.5d+0
3993            t219 = 1/t69**3
3994            t220 = 1/t70**3
3995            t221 = 8.551882923536147d-2*t1*t128*t23*t93+1.14025105647148
3996     1         63d-1*t1*t30*t87+1.924173657795633d-1*t1*t157*t187*t3-1.2
3997     2         82782438530422d-1*t1*t128*t185*t3
3998            t222 = 2*t129*t93+t185*t31+t221*t27
3999            t223 = t162-2.4682961769030842d-2*t1*t128*t139*t3*t74
4000            t224 = -4.5608816488973747d-1*t136*t87-1.4056794412619736d-1
4001     1         *t5*t86+1.4759535677446958d-2*gammaaa*t85-9.9265163127948
4002     2         08d-4*t14*t84+6.527239842306487d-5*t12*t83-5.742468916099
4003     3         301d-6*t10*t82+2.4105264144112412d-7*t8*t81-1.70062337753
4004     4         11694d-8*t6*t80+5.475448834737188d-1*t78
4005            t225 = -1.0803307880124491d-3*t5*t86+4.631892373620269d-4*ga
4006     1         mmaaa*t85-8.836827178054d-5*t14*t84+1.0386425752741123d-5
4007     2         *t12*t83-7.880451214247165d-7*t10*t82-7.018342379201d-4*t
4008     3         78
4009            t226 = -1.6455307846020562d-2*gammaaa*t137*t16*t89*t91+1.645
4010     1         5307846020562d-2*t16*t25*t91-1.6455307846020562d-2*t16*t1
4011     2         7*t88*t89-1.6455307846020562d-2*gammaaa*t138*t16*t88*t89+
4012     3         4.38808209227215d-2*gammaaa*t137*t17*t78*t89-1.6455307846
4013     4         020562d-2*gammaaa*t16*t17*t224*t89+3.2910615692041123d-2*
4014     5         gammaaa*t137*t16*t17*t173*t88-4.38808209227215d-2*t17*t25
4015     6         *t78-4.38808209227215d-2*gammaaa*t138*t25*t78+1.645530784
4016     7         6020562d-2*gammaaa*t16*t225*t25
4017            t227 = 1.690496096374559d-4*gammaaa*t85*t94-6.93444860303102
4018     1         5d-2*gammaaa*t137*t16*t89*t91+6.934448603031025d-2*t16*t2
4019     2         5*t91-6.934448603031025d-2*t16*t17*t88*t89-6.934448603031
4020     3         025d-2*gammaaa*t138*t16*t88*t89+1.8491862941416065d-1*gam
4021     4         maaa*t137*t17*t78*t89-6.934448603031025d-2*gammaaa*t16*t1
4022     5         7*t224*t89+1.386889720606205d-1*gammaaa*t137*t16*t17*t173
4023     6         *t88-4.6362722797232353d-7*t12*t188*t83-1.369767625290079
4024     7         d-2*t34*t78-1.8491862941416065d-1*t17*t25*t78-1.849186294
4025     8         1416065d-1*gammaaa*t138*t25*t78+6.934448603031025d-2*gamm
4026     9         aaa*t16*t225*t25
4027            t228 = -2.5d-1*t139*t197*t96
4028            t229 = 5.0d-1*t226*t97
4029            t230 = t229+t228
4030            t231 = -2.5d-1*t139*t203*t96
4031            t232 = 5.0d-1*t102*t226
4032            t233 = -2.5d-1*t139*t209*t96
4033            t234 = 5.0d-1*t109*t226
4034            t235 = t234+t233+t232+t231
4035            t236 = 1/t29**7
4036            t237 = 1.924173657795633d-1*t1*t139*t157*t3*t93-1.2827824385
4037     1         30422d-1*t1*t128*t226*t3+4.2759414617680735d-2*t1*t128*t1
4038     2         39*t23
4039            t238 = -1.282782438530422d-1*t1*t128*t139*t3*t93+t226*t31+t2
4040     1         37*t27+t129*t139
4041            t239 = t139**2
4042            t240 = t137**2
4043            t241 = -1.6318099605766218d-5*gammaaa*t9+1.5381613168123123d
4044     1         -6*t14*t7+2.2334661703788317d-4*t11*t5-1.7103306183365155
4045     2         d-1*t23/t14-6.779605540531617d-8*t12*t21+4.96015151779924
4046     3         5d-9*t10*t19+1.757099301577467d-2*t136*t15-2.767412939521
4047     4         305d-3*t13
4048            t242 = -2.5966064381852805d-6*gammaaa*t9+2.1108351466733477d
4049     1         -7*t14*t7+1.9882861150621498d-5*t11*t5+1.3504134850155614
4050     2         d-4*t136*t15-8.684798200538004d-5*t13
4051            t243 = -1.6455307846020562d-2*gammaaa*t16*t17*t241*t89-3.291
4052     1         0615692041123d-2*t137*t16*t17*t89-3.2910615692041123d-2*g
4053     2         ammaaa*t137*t138*t16*t89+1.6455307846020562d-2*gammaaa*t1
4054     3         6*t242*t25+3.2910615692041123d-2*t138*t16*t25+3.291061569
4055     4         2041123d-2*gammaaa*t16*t17*t173*t240
4056            t244 = -4.226240240936398d-5*t13*t94+1.7386021048962136d-7*g
4057     1         ammaaa*t188*t9-6.934448603031025d-2*gammaaa*t16*t17*t241*
4058     2         t89-1.386889720606205d-1*t137*t16*t17*t89-1.3868897206062
4059     3         05d-1*gammaaa*t137*t138*t16*t89+6.934448603031025d-2*gamm
4060     4         aaa*t16*t242*t25+1.386889720606205d-1*t138*t16*t25+1.3868
4061     5         89720606205d-1*gammaaa*t16*t17*t173*t240
4062            t245 = 1/t44
4063            t246 = -2.5d-1*t203*t239
4064            t247 = 5.0d-1*t102*t243
4065            t248 = -2.5d-1*t197*t239
4066            t249 = 5.0d-1*t243*t97
4067            t250 = t155**2
4068            t251 = -2.5d-1*t209*t239
4069            t252 = 5.0d-1*t109*t243
4070            t253 = t252+t251+t247+t246
4071            t254 = t243*t31-1.282782438530422d-1*t1*t243*t3*t30-6.413912
4072     1         19265211d-2*t1*t128*t239*t3
4073            fnc(iq) = fnc(iq)-9.305257363491d-1*t22*t76*wght
4074            Amat(iq,D1_RA) = -1.2407009817987999d+0*t2*t76*wght-9.305257
4075     1         363491d-1*t135*t22*wght+Amat(iq,D1_RA)
4076            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t22*(t16
4077     1         7*t73+t149*t16*t25+t161+t159+t158+t156+t154+t150+t148+t14
4078     2         3+t142+t140)*wght
4079            Amat2(iq,D2_RA_RA) = -9.305257363491d-1*t22*(-8.888888888888
4080     1         888d-1*t73*t75*(9.491919999999999d-2*t108*t95-2.4d+0*t68*
4081     2         (6.41391219265211d-2*t123*(-2*gammaaa*t16*t88*t89*t91-5.3
4082     3         33333333333333d+0*gammaaa*t25*t78*t91+5.333333333333333d+
4083     4         0*gammaaa*t17*t78*t88*t89-gammaaa*t16*t17*t180*t89+gammaa
4084     5         a*t16*t183*t25+9.777777777777779d+0*gammaaa*t168*t17*t25+
4085     6         2*gammaaa*t16*t17*t172*t173)+2.5d-1*t217*t220-3.206956096
4086     7         326055d-2*t124**2*t219-5.0d-1*t122*t206)-2.1d+1*t217*t218
4087     8         *t71-8.400000000000001d+0*t121*t206*t71-2.7259596d+0*t206
4088     9         *t67-5.4519192d+0*t217*t66+5.672746666666666d-2*t206*t66+
4089     :         4.7459599999999996d-2*t189*t66+4.7459599999999996d-2*t206
4090     ;         *t35-1.2407176956338616d+1*t217*t218+5.672746666666666d-2
4091     <         *t217-4.9628707825354457d+0*t121*t206-1.68d+1*t108*t121*t
4092     =         125)-2.109315555555555d-1*t133*t36*t73*t95+1.054657777777
4093     >         7776d-1*t130*t38*t95-8.888888888888888d-1*t72*t73*(4.9365
4094     ?         923538061685d-2*t1*t3*t30*(3.333333333333333d-1*t1*t128*t
4095     @         23*t93+4.444444444444444d-1*t1*t30*t87+7.5d-1*t1*t157*t18
4096     1         7*t3-5.0d-1*t1*t128*t185*t3)+9.620868288978164d-2*t1*t128
4097     2         *t23*t93+1.2827824385304218d-1*t1*t30*t87+2.1646953650200
4098     3         87d-1*t1*t157*t187*t3-1.4431302433467247d-1*t1*t128*t185*
4099     4         t3+4.9365923538061685d-2*t131**2)+5.273288888888887d-2*t3
4100     5         5*t38*(4.2759414617680735d-2*t1*t128*t23*t93+5.7012552823
4101     6         57431d-2*t1*t30*t87+9.620868288978166d-2*t1*t157*t187*t3-
4102     7         6.41391219265211d-2*t1*t128*t185*t3)+9.454577777777778d-2
4103     8         *t127*t129*t77*t93+7.57211d-1*(-3.2910615692041123d-2*gam
4104     9         maaa*t16*t61*t65*t88*t89*t91-8.7761641845443d-2*gammaaa*t
4105     :         25*t61*t65*t78*t91-3.2910615692041123d-2*gammaaa*t117*t11
4106     ;         8*t16*t25*t65*t91-3.2910615692041123d-2*gammaaa*t119*t120
4107     <         *t16*t25*t61*t91+8.7761641845443d-2*gammaaa*t17*t61*t65*t
4108     =         78*t88*t89+3.2910615692041123d-2*gammaaa*t117*t118*t16*t1
4109     >         7*t65*t88*t89+3.2910615692041123d-2*gammaaa*t119*t120*t16
4110     ?         *t17*t61*t88*t89-1.6455307846020562d-2*gammaaa*t16*t17*t1
4111     @         80*t61*t65*t89+8.7761641845443d-2*gammaaa*t117*t118*t17*t
4112     1         25*t65*t78+8.7761641845443d-2*gammaaa*t119*t120*t17*t25*t
4113     2         61*t78+1.6455307846020562d-2*gammaaa*t16*t183*t25*t61*t65
4114     3         +1.6089634338331216d-1*gammaaa*t168*t17*t25*t61*t65+3.291
4115     4         0615692041123d-2*gammaaa*t16*t17*t172*t173*t61*t65-1.6455
4116     5         307846020562d-2*gammaaa*t118*t16*t17*t215*t25*t65+3.29106
4117     6         15692041123d-2*gammaaa*t16*t17*t213*t214*t25*t65+t206*t61
4118     7         *t63-t118*t215*t59*t63+2*t213*t214*t59*t63-2*t108*t117*t1
4119     8         18*t63+2*t115**2*t212*t59*t61-t116*(t211+t210+t200)*t59*t
4120     9         61+3.2910615692041123d-2*gammaaa*t119**2*t16*t17*t216*t25
4121     :         *t61-1.6455307846020562d-2*gammaaa*t120*t16*t17*(t205+t20
4122     ;         4+t200)*t25*t61-2*t108*t115*t116*t61+2*t115*t116*t117*t11
4123     <         8*t59+3.2910615692041123d-2*gammaaa*t117*t118*t119*t120*t
4124     =         16*t17*t25)-6.582123138408225d-2*gammaaa*t16*t52*t88*t89*
4125     >         t91-1.75523283690886d-1*gammaaa*t25*t52*t78*t91+6.5821231
4126     ?         38408225d-2*gammaaa*t106*t107*t16*t25*t91+1.7552328369088
4127     @         6d-1*gammaaa*t17*t52*t78*t88*t89-6.582123138408225d-2*gam
4128     1         maaa*t106*t107*t16*t17*t88*t89-3.2910615692041123d-2*gamm
4129     2         aaa*t16*t17*t180*t52*t89-1.75523283690886d-1*gammaaa*t106
4130     3         *t107*t17*t25*t78-4.727288888888889d-2*t185*t32*t77+2.666
4131     4         6666666666666d+0*t134*t222*t72*t75-1.0666666666666666d+1*
4132     5         t191*t192*t72*t75+5.333333333333333d+0*t126*t133*t134*t75
4133     6         -1.0546577777777776d-1*t222*t35*t36*t73-2.109315555555555
4134     7         d-1*t130*t133*t35*t73-1.7777777777777776d+0*t126*t132*t73
4135     8         +5.333333333333333d+0*t132*t133*t134*t72-2.0d+0*t114*(-1.
4136     9         475609999999999d-1*t101*t201*t56+2.951219999999998d-1*t19
4137     :         4*t195*t56-1.475609999999999d-1*t112*(t211+t210+t199+t198
4138     ;         )*t50+2.951219999999998d-1*t111**2*t208*t50+2.95121999999
4139     <         9998d-1*t100*t101*t111*t112)*t59+2.0d+0*t113**2*t207*t59-
4140     =         2.0d+0*t206*t58+3.2910615692041123d-2*gammaaa*t16*t183*t2
4141     >         5*t52+3.217926867666243d-1*gammaaa*t168*t17*t25*t52+6.582
4142     ?         123138408225d-2*gammaaa*t16*t17*t172*t173*t52+3.291061569
4143     @         2041123d-2*gammaaa*t107*t16*t17*t25*(6.0965d-1*t105*(t205
4144     1         +t204+t199+t198)*t50-1.2193000000000001d+0*t104**2*t202*t
4145     2         50+6.0965d-1*t101*t201*t47-1.2193000000000001d+0*t194*t19
4146     3         5*t47-1.2193000000000001d+0*t100*t101*t104*t105)+5.273288
4147     4         888888887d-2*t189*t36*t38+3.1639733333333325d-1*t134*t191
4148     5         *t35*t36+9.454577777777778d-2*t186*t187*t32-4.72728888888
4149     6         8889d-2*t127*t221*t28+9.454577777777778d-2*t129**2*t190*t
4150     7         28-3.2910615692041123d-2*gammaaa*t106**2*t16*t17*t193*t25
4151     8         -4.0d+0*t108*t113*t114)*wght-4.135669939329333d-1*t40*t76
4152     9         *wght-2.4814019635975998d+0*t135*t2*wght+Amat2(iq,D2_RA_R
4153     :         A)
4154            Cmat2(iq,D2_RA_GAA) = -9.305257363491d-1*t22*(-2.0d+0*t114*t
4155     1         59*(1.475609999999999d-1*t100*t139*t195*t56*t97+7.3780499
4156     2         99999994d-2*t101*t111*t112*t139*t97-1.475609999999999d-1*
4157     3         t101*t230*t56-1.475609999999999d-1*t112*(t234+t233+t229+t
4158     4         228)*t50+2.951219999999998d-1*t111*t152*t208*t50+1.475609
4159     5         999999999d-1*t100*t101*t112*t152)+3.2910615692041123d-2*g
4160     6         ammaaa*t107*t16*t17*t25*(-6.0965d-1*t100*t139*t195*t47*t9
4161     7         7-3.04825d-1*t101*t104*t105*t139*t97+6.0965d-1*t105*(t232
4162     8         +t231+t229+t228)*t50-1.2193000000000001d+0*t104*t146*t202
4163     9         *t50+6.0965d-1*t101*t230*t47-6.0965d-1*t100*t101*t105*t14
4164     :         6)-8.888888888888888d-1*t73*t75*(4.7459599999999996d-2*t1
4165     ;         39*t95-2.4d+0*t68*(6.41391219265211d-2*t123*(-gammaaa*t13
4166     <         7*t16*t89*t91+t16*t25*t91-t16*t17*t88*t89-gammaaa*t138*t1
4167     =         6*t88*t89+2.6666666666666666d+0*gammaaa*t137*t17*t78*t89-
4168     >         gammaaa*t16*t17*t224*t89+2*gammaaa*t137*t16*t17*t173*t88-
4169     ?         2.6666666666666666d+0*t17*t25*t78-2.6666666666666666d+0*g
4170     @         ammaaa*t138*t25*t78+gammaaa*t16*t225*t25)-5.0d-1*t122*t22
4171     1         6+2.5d-1*t108*t139*t220-3.206956096326055d-2*t124*t164*t2
4172     2         19)-8.400000000000001d+0*t121*t226*t71-2.1d+1*t108*t139*t
4173     3         218*t71-2.7259596d+0*t226*t67+4.7459599999999996d-2*t227*
4174     4         t66+5.672746666666666d-2*t226*t66-5.4519192d+0*t108*t139*
4175     5         t66+4.7459599999999996d-2*t226*t35-4.9628707825354457d+0*
4176     6         t121*t226-1.2407176956338616d+1*t108*t139*t218-8.40000000
4177     7         0000001d+0*t108*t121*t165+4.7459599999999996d-2*t108*t141
4178     8         -8.400000000000001d+0*t121*t125*t139+5.672746666666666d-2
4179     9         *t108*t139)-1.0546577777777776d-1*t160*t36*t73*t95-3.3822
4180     :         411899821336d-3*t1*t128*t139*t3*t38*t95-8.888888888888888
4181     ;         d-1*t72*t73*(4.9365923538061685d-2*t1*t3*t30*(7.5d-1*t1*t
4182     <         139*t157*t3*t93-5.0d-1*t1*t128*t226*t3+1.6666666666666666
4183     =         d-1*t1*t128*t139*t23)+2.164695365020087d-1*t1*t139*t157*t
4184     >         3*t93-1.4431302433467247d-1*t1*t128*t226*t3-2.46829617690
4185     ?         30842d-2*t1*t128*t131*t139*t3+4.810434144489082d-2*t1*t12
4186     @         8*t139*t23)+5.273288888888887d-2*t35*t38*(9.6208682889781
4187     1         66d-2*t1*t139*t157*t3*t93-6.41391219265211d-2*t1*t128*t22
4188     2         6*t3+2.1379707308840368d-2*t1*t128*t139*t23)+9.4545777777
4189     3         77778d-2*t139*t186*t32*t93-6.064083168526658d-3*t1*t127*t
4190     4         139*t236*t3*t93+7.57211d-1*(-1.6455307846020562d-2*gammaa
4191     5         a*t137*t16*t61*t65*t89*t91+1.6455307846020562d-2*t16*t25*
4192     6         t61*t65*t91-1.6455307846020562d-2*gammaaa*t118*t155*t16*t
4193     7         25*t65*t91-8.227653923010281d-3*gammaaa*t102*t120*t139*t1
4194     8         6*t25*t61*t91-1.6455307846020562d-2*t16*t17*t61*t65*t88*t
4195     9         89-1.6455307846020562d-2*gammaaa*t138*t16*t61*t65*t88*t89
4196     :         +1.6455307846020562d-2*gammaaa*t118*t155*t16*t17*t65*t88*
4197     ;         t89+8.227653923010281d-3*gammaaa*t102*t120*t139*t16*t17*t
4198     <         61*t88*t89+4.38808209227215d-2*gammaaa*t137*t17*t61*t65*t
4199     =         78*t89-1.6455307846020562d-2*gammaaa*t16*t17*t224*t61*t65
4200     >         *t89+1.6455307846020562d-2*gammaaa*t117*t118*t137*t16*t17
4201     ?         *t65*t89+1.6455307846020562d-2*gammaaa*t119*t120*t137*t16
4202     @         *t17*t61*t89+3.2910615692041123d-2*gammaaa*t137*t16*t17*t
4203     1         173*t61*t65*t88-4.38808209227215d-2*t17*t25*t61*t65*t78-4
4204     2         .38808209227215d-2*gammaaa*t138*t25*t61*t65*t78+4.3880820
4205     3         9227215d-2*gammaaa*t118*t155*t17*t25*t65*t78+2.1940410461
4206     4         36075d-2*gammaaa*t102*t120*t139*t17*t25*t61*t78+1.6455307
4207     5         846020562d-2*gammaaa*t16*t225*t25*t61*t65-1.6455307846020
4208     6         562d-2*gammaaa*t118*t16*t17*t235*t25*t65+3.29106156920411
4209     7         23d-2*gammaaa*t117*t155*t16*t17*t214*t25*t65-1.6455307846
4210     8         020562d-2*t117*t118*t16*t17*t25*t65-1.6455307846020562d-2
4211     9         *gammaaa*t117*t118*t138*t16*t25*t65+t226*t61*t63-t118*t23
4212     :         5*t59*t63+2*t117*t155*t214*t59*t63-t108*t118*t155*t63-t11
4213     ;         7*t118*t139*t63-t116*(t234+t233)*t59*t61+t109*t115*t139*t
4214     <         212*t59*t61-1.6455307846020562d-2*gammaaa*t120*t16*t17*(t
4215     =         232+t231)*t25*t61+1.6455307846020562d-2*gammaaa*t102*t119
4216     >         *t139*t16*t17*t216*t25*t61-1.6455307846020562d-2*t119*t12
4217     ?         0*t16*t17*t25*t61-1.6455307846020562d-2*gammaaa*t119*t120
4218     @         *t138*t16*t25*t61-t115*t116*t139*t61-5.0d-1*t108*t109*t11
4219     1         6*t139*t61+t115*t116*t118*t155*t59+5.0d-1*t109*t116*t117*
4220     2         t118*t139*t59+1.6455307846020562d-2*gammaaa*t118*t119*t12
4221     3         0*t155*t16*t17*t25+8.227653923010281d-3*gammaaa*t102*t117
4222     4         *t118*t120*t139*t16*t17*t25)-3.2910615692041123d-2*gammaa
4223     5         a*t137*t16*t52*t89*t91+3.2910615692041123d-2*t16*t25*t52*
4224     6         t91+3.2910615692041123d-2*gammaaa*t107*t147*t16*t25*t91-3
4225     7         .2910615692041123d-2*t16*t17*t52*t88*t89-3.29106156920411
4226     8         23d-2*gammaaa*t138*t16*t52*t88*t89-3.2910615692041123d-2*
4227     9         gammaaa*t107*t147*t16*t17*t88*t89+8.7761641845443d-2*gamm
4228     :         aaa*t137*t17*t52*t78*t89-3.2910615692041123d-2*gammaaa*t1
4229     ;         6*t17*t224*t52*t89-3.2910615692041123d-2*gammaaa*t106*t10
4230     <         7*t137*t16*t17*t89+6.582123138408225d-2*gammaaa*t137*t16*
4231     =         t17*t173*t52*t88-8.7761641845443d-2*t17*t25*t52*t78-8.776
4232     >         1641845443d-2*gammaaa*t138*t25*t52*t78-8.7761641845443d-2
4233     ?         *gammaaa*t107*t147*t17*t25*t78-4.727288888888889d-2*t226*
4234     @         t32*t77+4.727288888888889d-2*t127*t129*t139*t77+2.6666666
4235     1         666666666d+0*t134*t238*t72*t75-1.0666666666666666d+1*t133
4236     2         *t160*t192*t72*t75+2.6666666666666666d+0*t133*t134*t166*t
4237     3         75+2.6666666666666666d+0*t126*t134*t160*t75-1.05465777777
4238     4         77776d-1*t238*t35*t36*t73-1.0546577777777776d-1*t133*t141
4239     5         *t36*t73+6.764482379964267d-3*t1*t128*t133*t139*t3*t35*t7
4240     6         3-1.0546577777777776d-1*t130*t160*t35*t73-8.8888888888888
4241     7         88d-1*t126*t223*t73-8.888888888888888d-1*t132*t166*t73+2.
4242     8         6666666666666666d+0*t133*t134*t223*t72+2.6666666666666666
4243     9         d+0*t132*t134*t160*t72+2.0d+0*t113*t153*t207*t59-2.0d+0*t
4244     :         226*t58+3.2910615692041123d-2*gammaaa*t16*t225*t25*t52+5.
4245     ;         273288888888887d-2*t227*t36*t38+5.273288888888887d-2*t130
4246     <         *t141*t38+3.1639733333333325d-1*t133*t134*t160*t35*t36-1.
4247     =         2128166337053317d-2*t1*t129*t139*t157*t190*t3-4.727288888
4248     >         888889d-2*t127*t237*t28-3.2910615692041123d-2*gammaaa*t10
4249     ?         6*t147*t16*t17*t193*t25+3.2910615692041123d-2*t106*t107*t
4250     @         16*t17*t25+3.2910615692041123d-2*gammaaa*t106*t107*t138*t
4251     1         16*t25-2.0d+0*t108*t114*t153-2.0d+0*t113*t114*t139)*wght-
4252     2         1.2407009817987999d+0*t2*(-8.888888888888888d-1*t166*t73*
4253     3         t75-8.888888888888888d-1*t223*t72*t73-1.0546577777777776d
4254     4         -1*t160*t35*t36*t73+3.2910615692041123d-2*t16*t17*t25*t52
4255     5         +3.2910615692041123d-2*gammaaa*t138*t16*t25*t52+t161+t159
4256     6         +t158+t156+t154+t150+t148+t143+t142+t140)*wght+Cmat2(iq,D
4257     7         2_RA_GAA)
4258            Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA)-9.305257363491d-
4259     1         1*t22*(t114*(-2.0d+0*t59*(-7.378049999999994d-2*t101*t243
4260     2         *t56*t97+1.475609999999999d-1*t101*t112*t139*t152*t97+7.3
4261     3         78049999999994d-2*t195*t239*t245*t56+3.689024999999997d-2
4262     4         *t101*t197*t239*t56-1.475609999999999d-1*t112*(t252+t251+
4263     5         t249+t248)*t50+2.951219999999998d-1*t152**2*t208*t50)-4.0
4264     6         d+0*t139*t153)+t107*t16*t25*(3.2910615692041123d-2*gammaa
4265     7         a*t17*(3.04825d-1*t101*t243*t47*t97-6.0965d-1*t101*t105*t
4266     8         139*t146*t97+6.0965d-1*t105*(t249+t248+t247+t246)*t50-1.2
4267     9         193000000000001d+0*t146**2*t202*t50-3.04825d-1*t195*t239*
4268     :         t245*t47-1.524125d-1*t101*t197*t239*t47)+3.29106156920411
4269     ;         23d-2*t147*t17+3.2910615692041123d-2*gammaaa*t138*t147)+t
4270     <         73*(-8.888888888888888d-1*t75*(-2.4d+0*t68*(6.41391219265
4271     =         211d-2*t123*(-gammaaa*t16*t17*t241*t89-2*t137*t16*t17*t89
4272     >         -2*gammaaa*t137*t138*t16*t89+gammaaa*t16*t242*t25+2*t138*
4273     ?         t16*t25+2*gammaaa*t16*t17*t173*t240)-5.0d-1*t122*t243+2.5
4274     @         d-1*t220*t239-3.206956096326055d-2*t164**2*t219)-8.400000
4275     1         000000001d+0*t121*t243*t71-2.1d+1*t218*t239*t71-2.7259596
4276     2         d+0*t243*t67+4.7459599999999996d-2*t244*t66+5.67274666666
4277     3         6666d-2*t243*t66-5.4519192d+0*t239*t66+4.7459599999999996
4278     4         d-2*t243*t35-4.9628707825354457d+0*t121*t243-1.2407176956
4279     5         338616d+1*t218*t239+5.672746666666666d-2*t239-1.68d+1*t12
4280     6         1*t139*t165+9.491919999999999d-2*t139*t141)-8.88888888888
4281     7         8888d-1*t72*(-2.4682961769030842d-2*t243*t39*t40*t77+4.93
4282     8         65923538061685d-2*t186*t239*t39*t40-1.4431302433467247d-1
4283     9         *t1*t128*t243*t3+2.164695365020087d-1*t1*t157*t239*t3)-1.
4284     :         0546577777777776d-1*t254*t35*t36-2.109315555555555d-1*t14
4285     ;         1*t160*t36+6.764482379964267d-3*t1*t128*t139*t160*t3*t35-
4286     <         1.7777777777777776d+0*t163*t166)+7.57211d-1*(-1.645530784
4287     =         6020562d-2*gammaaa*t16*t17*t241*t61*t65*t89-3.29106156920
4288     >         41123d-2*t137*t16*t17*t61*t65*t89-3.2910615692041123d-2*g
4289     ?         ammaaa*t137*t138*t16*t61*t65*t89+3.2910615692041123d-2*ga
4290     @         mmaaa*t118*t137*t155*t16*t17*t65*t89+1.6455307846020562d-
4291     1         2*gammaaa*t102*t120*t137*t139*t16*t17*t61*t89+1.645530784
4292     2         6020562d-2*gammaaa*t16*t242*t25*t61*t65+3.291061569204112
4293     3         3d-2*t138*t16*t25*t61*t65+3.2910615692041123d-2*gammaaa*t
4294     4         16*t17*t173*t240*t61*t65-1.6455307846020562d-2*gammaaa*t1
4295     5         18*t16*t17*t25*t253*t65+3.2910615692041123d-2*gammaaa*t16
4296     6         *t17*t214*t25*t250*t65-3.2910615692041123d-2*t118*t155*t1
4297     7         6*t17*t25*t65-3.2910615692041123d-2*gammaaa*t118*t138*t15
4298     8         5*t16*t25*t65+t243*t61*t63-t118*t253*t59*t63+2*t214*t250*
4299     9         t59*t63-2*t118*t139*t155*t63+5.0d-1*t212*t239*t59*t61/t53
4300     :         -5.0d-1*t109*t116*t243*t59*t61+2.5d-1*t116*t209*t239*t59*
4301     ;         t61+8.227653923010281d-3*gammaaa*t16*t17*t216*t239*t25*t6
4302     <         1/t42-8.227653923010281d-3*gammaaa*t102*t120*t16*t17*t243
4303     =         *t25*t61+4.1138269615051404d-3*gammaaa*t120*t16*t17*t203*
4304     >         t239*t25*t61-1.6455307846020562d-2*t102*t120*t139*t16*t17
4305     ?         *t25*t61-1.6455307846020562d-2*gammaaa*t102*t120*t138*t13
4306     @         9*t16*t25*t61-t109*t116*t239*t61+t109*t116*t118*t139*t155
4307     1         *t59+1.6455307846020562d-2*gammaaa*t102*t118*t120*t139*t1
4308     2         55*t16*t17*t25)+t16*(-3.2910615692041123d-2*gammaaa*t17*t
4309     3         241*t52-3.2910615692041123d-2*t137*t17*t52-3.291061569204
4310     4         1123d-2*gammaaa*t137*t138*t52-t137*t149)*t89-6.5821231384
4311     5         08225d-2*gammaaa*t107*t137*t147*t16*t17*t89-4.72728888888
4312     6         8889d-2*t243*t32*t77+t134*(2.6666666666666666d+0*t254*t72
4313     7         *t75+2.6666666666666666d+0*t160*t166*t75+2.66666666666666
4314     8         66d+0*t160*t163*t72-3.0d+0*t160*t167)-1.0666666666666666d
4315     9         +1*t160**2*t192*t72*t75+6.764482379964267d-3*t1*t128*t139
4316     :         *t160*t3*t35*t73+2.0d+0*t153**2*t207*t59-2.0d+0*t243*t58+
4317     ;         t16*t25*(3.2910615692041123d-2*gammaaa*t242*t52+6.5821231
4318     <         38408225d-2*t138*t52+3.2910615692041123d-2*t107*t147*t17+
4319     =         3.2910615692041123d-2*gammaaa*t107*t138*t147)+6.582123138
4320     >         408225d-2*gammaaa*t16*t17*t173*t240*t52+1.555779878874783
4321     ?         1d-3*t190*t239*t39*t40/t27**4+5.273288888888887d-2*t244*t
4322     @         36*t38+t128*t3*(-3.3822411899821336d-3*t1*t243*t35-6.7644
4323     1         82379964267d-3*t1*t139*t141)*t38+5.0733617849732d-3*t1*t1
4324     2         57*t239*t3*t35*t38+9.454577777777778d-2*t186*t239*t32+6.0
4325     3         64083168526658d-3*t1*t127*t157*t243*t3-2.1224291089843306
4326     4         d-2*t1*t127*t236*t239*t3-3.2910615692041123d-2*gammaaa*t1
4327     5         47**2*t16*t17*t193*t25)*wght
4328          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
4329            t1 = param(1)
4330            t2 = rhob**3.333333333333333d-1
4331            t3 = 1/t2
4332            t4 = t1*t3
4333            t5 = gammabb**5.0d-1
4334            t6 = t5**7
4335            t7 = 1/rhob**9.333333333333333d+0
4336            t8 = gammabb**3
4337            t9 = 1/rhob**8
4338            t10 = t5**5
4339            t11 = 1/rhob**6.666666666666667d+0
4340            t12 = gammabb**2
4341            t13 = 1/rhob**5.333333333333333d+0
4342            t14 = t5**3
4343            t15 = 1/rhob**4
4344            t16 = 1/rhob**2.6666666666666666d+0
4345            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
4346     1         7+2.631878392200375d-4*gammabb*t16+1.8005513133540818d-4*
4347     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
4348     3         10*t11
4349            t18 = t5**9
4350            t19 = 1/rhob**12
4351            t20 = gammabb**4
4352            t21 = 1/rhob**1.0666666666666666d+1
4353            t22 = rhob**1.3333333333333333d+0
4354            t23 = 1/t22
4355            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
4356     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
4357     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
4358     3         mmabb*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
4359     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
4360            t25 = 1/t24
4361            t26 = 1.6455307846020562d-2*gammabb*t16*t17*t25
4362            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
4363            t28 = 1/t27
4364            t29 = t27**5.0d-1
4365            t30 = 1/t29
4366            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
4367            t32 = 1/t31
4368            t33 = 4.1138269615051404d-3*gammabb*t16+1.0d+0
4369            t34 = 1/t33
4370            t35 = 5.136628594837797d-3*gammabb*t16*t34+6.934448603031025
4371     1         d-2*gammabb*t16*t17*t25+1.0d+0
4372            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
4373            t37 = t27*t31
4374            t38 = 1/t37**2.0d+0
4375            t39 = t1**2
4376            t40 = 1/rhob**6.666666666666666d-1
4377            t41 = 6.582123138408225d-2*t39*t40
4378            t42 = t41+t26
4379            t43 = t42**5.0d-1
4380            t44 = t41+t26+6.0965d-1
4381            t45 = t44**5.0d-1
4382            t46 = t45+t43
4383            t47 = 1/t46
4384            t48 = 2.565564877060844d-1*t1*t3
4385            t49 = t48+t45
4386            t50 = 1/t49
4387            t51 = 1.0d+0-6.0965d-1*t47*t50
4388            t52 = log(t51)
4389            t53 = t41+t26+7.57211d-1
4390            t54 = t53**5.0d-1
4391            t55 = t54+t45
4392            t56 = 1/t55
4393            t57 = 1.475609999999999d-1*t50*t56+1.0d+0
4394            t58 = log(t57)
4395            t59 = t26+7.57211d-1
4396            t60 = t54+t43
4397            t61 = 1/t60
4398            t62 = t54+t48
4399            t63 = 1/t62
4400            t64 = t48+t43
4401            t65 = 1/t64
4402            t66 = t26+6.0965d-1
4403            t67 = t66**2.0d+0
4404            t68 = t66**3.5d+0
4405            t69 = (gammabb*t16*t17*t25)**5.0d-1
4406            t70 = t59**5.0d-1
4407            t71 = 1.282782438530422d-1*t69-t70
4408            t72 = -2.4d+0*t68*t71-1.417963080724413d+0*t68+2.83637333333
4409     1         3333d-2*t67-9.086532d-1*t66**3.0d+0+4.7459599999999996d-2
4410     2         *t35*t66
4411            t73 = 1/t37**3.0d+0
4412            t74 = t1*t3*t30
4413            t75 = 2.4682961769030842d-2*t74**2.0d+0+2.8862604866934494d-
4414     1         1*t1*t3*t30+1.0d+0
4415            t76 = -8.888888888888888d-1*t72*t73*t75+7.57211d-1*(1.645530
4416     1         7846020562d-2*gammabb*t16*t17*t25*t61*t65+t59*t61*t63)-2.
4417     2         0d+0*t58*t59+3.2910615692041123d-2*gammabb*t16*t17*t25*t5
4418     3         2+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
4419     4         28*t32-1.0d+0
4420            t77 = 1/t27**2
4421            t78 = 1/rhob**3.6666666666666664d+0
4422            t79 = -4.38808209227215d-2*gammabb*t17*t25*t78
4423            t80 = 1/rhob**13
4424            t81 = 1/rhob**1.1666666666666665d+1
4425            t82 = 1/rhob**1.0333333333333333d+1
4426            t83 = 1/rhob**9
4427            t84 = 1/rhob**7.666666666666667d+0
4428            t85 = 1/rhob**6.333333333333333d+0
4429            t86 = 1/rhob**5
4430            t87 = 1/rhob**2.3333333333333334d+0
4431            t88 = -9.121763297794749d-1*t5*t87-9.371196275079824d-2*t14*
4432     1         t86+7.379767838723479d-3*t12*t85-3.970606525117923d-4*t10
4433     2         *t84+2.1757466141021625d-5*t8*t83-1.6407054045998d-6*t6*t
4434     3         82+6.026316036028103d-8*t20*t81-3.7791630611803767d-9*t18
4435     4         *t80+5.475448834737188d-1*gammabb*t78
4436            t89 = 1/t24**2
4437            t90 = -1.6455307846020562d-2*gammabb*t16*t17*t88*t89
4438            t91 = -7.202205253416327d-4*t14*t86+2.3159461868101344d-4*t1
4439     1         2*t85-3.5347308712216d-5*t10*t84+3.462141917580374d-6*t8*
4440     2         t83-2.2515574897849044d-7*t6*t82-7.018342379201d-4*gammab
4441     3         b*t78
4442            t92 = 1.6455307846020562d-2*gammabb*t16*t25*t91
4443            t93 = t92+t90+t79-4.38808209227215d-2*t1*t23*t4
4444            t94 = 1/t33**2
4445            t95 = 5.634986987915197d-5*t12*t85*t94+6.934448603031025d-2*
4446     1         gammabb*t16*t25*t91-6.934448603031025d-2*gammabb*t16*t17*
4447     2         t88*t89-1.369767625290079d-2*gammabb*t34*t78-1.8491862941
4448     3         416065d-1*gammabb*t17*t25*t78
4449            t96 = t92+t90+t79-4.38808209227215d-2*t39/rhob**1.6666666666
4450     1         666669d+0
4451            t97 = 1/t45
4452            t98 = 5.0d-1*t96*t97
4453            t99 = -8.551882923536147d-2*t1*t23
4454            t100 = t99+t98
4455            t101 = 1/t49**2
4456            t102 = 1/t43
4457            t103 = 5.0d-1*t102*t96
4458            t104 = t98+t103
4459            t105 = 1/t46**2
4460            t106 = 6.0965d-1*t104*t105*t50+6.0965d-1*t100*t101*t47
4461            t107 = 1/t51
4462            t108 = t92+t90+t79
4463            t109 = 1/t54
4464            t110 = 5.0d-1*t109*t96
4465            t111 = t98+t110
4466            t112 = 1/t55**2
4467            t113 = -1.475609999999999d-1*t100*t101*t56-1.475609999999999
4468     1         d-1*t111*t112*t50
4469            t114 = 1/t57
4470            t115 = t99+t110
4471            t116 = 1/t62**2
4472            t117 = t110+t103
4473            t118 = 1/t60**2
4474            t119 = t99+t103
4475            t120 = 1/t64**2
4476            t121 = t66**2.5d+0
4477            t122 = 1/t70
4478            t123 = 1/t69
4479            t124 = gammabb*t16*t25*t91-gammabb*t16*t17*t88*t89-2.6666666
4480     1         666666666d+0*gammabb*t17*t25*t78
4481            t125 = 6.41391219265211d-2*t123*t124-5.0d-1*t108*t122
4482            t126 = 4.7459599999999996d-2*t66*t95-8.400000000000001d+0*t1
4483     1         08*t121*t71-2.4d+0*t125*t68-2.7259596d+0*t108*t67+5.67274
4484     2         6666666666d-2*t108*t66+4.7459599999999996d-2*t108*t35-4.9
4485     3         628707825354457d+0*t108*t121
4486            t127 = 1/t31**2
4487            t128 = 1/t29**3
4488            t129 = -1.282782438530422d-1*t1*t128*t3*t93-8.55188292353614
4489     1         7d-2*t1*t23*t30
4490            t130 = -6.41391219265211d-2*t1*t128*t3*t93-4.275941461768073
4491     1         5d-2*t1*t23*t30
4492            t131 = -5.0d-1*t1*t128*t3*t93-3.333333333333333d-1*t1*t23*t3
4493     1         0
4494            t132 = -1.4431302433467247d-1*t1*t128*t3*t93+4.9365923538061
4495     1         685d-2*t131*t74-9.620868288978164d-2*t1*t23*t30
4496            t133 = t31*t93+t129*t27
4497            t134 = 1/t37**4.0d+0
4498            t135 = 5.273288888888887d-2*t36*t38*t95-4.727288888888889d-2
4499     1         *t32*t77*t93+7.57211d-1*(1.6455307846020562d-2*gammabb*t1
4500     2         6*t25*t61*t65*t91-1.6455307846020562d-2*gammabb*t16*t17*t
4501     3         61*t65*t88*t89-4.38808209227215d-2*gammabb*t17*t25*t61*t6
4502     4         5*t78-1.6455307846020562d-2*gammabb*t117*t118*t16*t17*t25
4503     5         *t65+t108*t61*t63-t117*t118*t59*t63-t115*t116*t59*t61-1.6
4504     6         455307846020562d-2*gammabb*t119*t120*t16*t17*t25*t61)+3.2
4505     7         910615692041123d-2*gammabb*t16*t25*t52*t91-3.291061569204
4506     8         1123d-2*gammabb*t16*t17*t52*t88*t89-8.7761641845443d-2*ga
4507     9         mmabb*t17*t25*t52*t78-8.888888888888888d-1*t126*t73*t75+2
4508     :         .6666666666666666d+0*t133*t134*t72*t75-8.888888888888888d
4509     ;         -1*t132*t72*t73-1.0546577777777776d-1*t133*t35*t36*t73-2.
4510     <         0d+0*t113*t114*t59-2.0d+0*t108*t58+5.273288888888887d-2*t
4511     =         130*t35*t38-4.727288888888889d-2*t127*t129*t28+3.29106156
4512     >         92041123d-2*gammabb*t106*t107*t16*t17*t25
4513            t136 = 1/t5
4514            t137 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
4515     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
4516     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t136
4517     3         *t23-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t
4518     4         14-2.767412939521305d-3*gammabb*t13
4519            t138 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
4520     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
4521     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammabb
4522     3         *t13
4523            t139 = -1.6455307846020562d-2*gammabb*t137*t16*t17*t89+1.645
4524     1         5307846020562d-2*t16*t17*t25+1.6455307846020562d-2*gammab
4525     2         b*t138*t16*t25
4526            t140 = -4.727288888888889d-2*t139*t32*t77
4527            t141 = -2.113120120468199d-5*gammabb*t13*t94-6.9344486030310
4528     1         25d-2*gammabb*t137*t16*t17*t89+5.136628594837797d-3*t16*t
4529     2         34+6.934448603031025d-2*t16*t17*t25+6.934448603031025d-2*
4530     3         gammabb*t138*t16*t25
4531            t142 = 5.273288888888887d-2*t141*t36*t38
4532            t143 = -3.2910615692041123d-2*gammabb*t137*t16*t17*t52*t89
4533            t144 = 5.0d-1*t102*t139
4534            t145 = 5.0d-1*t139*t97
4535            t146 = t145+t144
4536            t147 = 3.04825d-1*t101*t139*t47*t97+6.0965d-1*t105*t146*t50
4537            t148 = 3.2910615692041123d-2*gammabb*t107*t147*t16*t17*t25
4538            t149 = 3.2910615692041123d-2*t17*t52+3.2910615692041123d-2*g
4539     1         ammabb*t138*t52
4540            t150 = -2.0d+0*t139*t58
4541            t151 = 5.0d-1*t109*t139
4542            t152 = t151+t145
4543            t153 = -7.378049999999994d-2*t101*t139*t56*t97-1.47560999999
4544     1         9999d-1*t112*t152*t50
4545            t154 = -2.0d+0*t114*t153*t59
4546            t155 = t151+t144
4547            t156 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t137*t16*t
4548     1         17*t61*t65*t89+1.6455307846020562d-2*t16*t17*t25*t61*t65+
4549     2         1.6455307846020562d-2*gammabb*t138*t16*t25*t61*t65-1.6455
4550     3         307846020562d-2*gammabb*t118*t155*t16*t17*t25*t65+t139*t6
4551     4         1*t63-t118*t155*t59*t63-5.0d-1*t109*t116*t139*t59*t61-8.2
4552     5         27653923010281d-3*gammabb*t102*t120*t139*t16*t17*t25*t61)
4553            t157 = 1/t29**5
4554            t158 = 6.064083168526658d-3*t1*t127*t139*t157*t3
4555            t159 = -3.3822411899821336d-3*t1*t128*t139*t3*t35*t38
4556            t160 = t139*t31-1.282782438530422d-1*t1*t139*t3*t30
4557            t161 = 2.6666666666666666d+0*t134*t160*t72*t75
4558            t162 = -1.4431302433467247d-1*t1*t128*t139*t3
4559            t163 = t162-2.4682961769030842d-2*t139*t39*t40*t77
4560            t164 = -gammabb*t137*t16*t17*t89+t16*t17*t25+gammabb*t138*t1
4561     1         6*t25
4562            t165 = 6.41391219265211d-2*t123*t164-5.0d-1*t122*t139
4563            t166 = -8.400000000000001d+0*t121*t139*t71-2.4d+0*t165*t68-2
4564     1         .7259596d+0*t139*t67+4.7459599999999996d-2*t141*t66+5.672
4565     2         746666666666d-2*t139*t66+4.7459599999999996d-2*t139*t35-4
4566     3         .9628707825354457d+0*t121*t139
4567            t167 = -8.888888888888888d-1*t166*t75-8.888888888888888d-1*t
4568     1         163*t72-1.0546577777777776d-1*t160*t35*t36
4569            t168 = 1/rhob**4.666666666666667d+0
4570            t169 = 1.6089634338331216d-1*gammabb*t168*t17*t25
4571            t170 = 8.7761641845443d-2*gammabb*t17*t78*t88*t89
4572            t171 = -8.7761641845443d-2*gammabb*t25*t78*t91
4573            t172 = t88**2
4574            t173 = 1/t24**3
4575            t174 = 3.2910615692041123d-2*gammabb*t16*t17*t172*t173
4576            t175 = 1/rhob**1.1333333333333334d+1
4577            t176 = 1/rhob**10
4578            t177 = 1/rhob**8.666666666666666d+0
4579            t178 = 1/rhob**7.333333333333333d+0
4580            t179 = 1/rhob**6
4581            t180 = -1.9581719526919464d-4*t176*t8+1.695395584753127d-5*t
4582     1         175*t6+2.1284114361521084d+0*t5/rhob**3.3333333333333337d
4583     2         +0-7.030702042032786d-7*t20/rhob**1.2666666666666665d+1+4
4584     3         .9129119795344894d-8*t18/rhob**14+4.685598137539912d-1*t1
4585     4         4*t179-4.6738529645248705d-2*t12*t178+3.0441316692570747d
4586     5         -3*t10*t177-2.0076645727369685d+0*gammabb*t168
4587            t181 = -1.6455307846020562d-2*gammabb*t16*t17*t180*t89
4588            t182 = -3.2910615692041123d-2*gammabb*t16*t88*t89*t91
4589            t183 = -3.115927725822337d-5*t176*t8+2.326609406111068d-6*t1
4590     1         75*t6+3.6011026267081636d-3*t14*t179-1.466765918313085d-3
4591     2         *t12*t178+2.709960334603227d-4*t10*t177+2.573392205707033
4592     3         5d-3*gammabb*t168
4593            t184 = 1.6455307846020562d-2*gammabb*t16*t183*t25
4594            t185 = 7.313470153786916d-2*t16*t39+t184+t182+t181+t174+t171
4595     1         +t170+t169
4596            t186 = 1/t27**3
4597            t187 = t93**2
4598            t188 = 1/t33**3
4599            t189 = -5.071488289123677d-4*t12*t178*t94-1.386889720606205d
4600     1         -1*gammabb*t16*t88*t89*t91-3.698372588283213d-1*gammabb*t
4601     2         25*t78*t91+3.698372588283213d-1*gammabb*t17*t78*t88*t89-6
4602     3         .934448603031025d-2*gammabb*t16*t17*t180*t89+1.2363392745
4603     4         928628d-6*t176*t188*t8+5.02248129273029d-2*gammabb*t168*t
4604     5         34+6.934448603031025d-2*gammabb*t16*t183*t25+6.7803497451
4605     6         85891d-1*gammabb*t168*t17*t25+1.386889720606205d-1*gammab
4606     7         b*t16*t17*t172*t173
4607            t190 = 1/t31**3
4608            t191 = t133**2
4609            t192 = 1/t37**5.0d+0
4610            t193 = 1/t51**2
4611            t194 = t100**2
4612            t195 = 1/t49**3
4613            t196 = t96**2
4614            t197 = 1/t45**3
4615            t198 = -2.5d-1*t196*t197
4616            t199 = 5.0d-1*t185*t97
4617            t200 = 1.1402510564714863d-1*t1*t87
4618            t201 = t200+t199+t198
4619            t202 = 1/t46**3
4620            t203 = 1/t43**3
4621            t204 = -2.5d-1*t196*t203
4622            t205 = 5.0d-1*t102*t185
4623            t206 = t184+t182+t181+t174+t171+t170+t169
4624            t207 = 1/t57**2
4625            t208 = 1/t55**3
4626            t209 = 1/t54**3
4627            t210 = -2.5d-1*t196*t209
4628            t211 = 5.0d-1*t109*t185
4629            t212 = 1/t62**3
4630            t213 = t117**2
4631            t214 = 1/t60**3
4632            t215 = t211+t210+t205+t204
4633            t216 = 1/t64**3
4634            t217 = t108**2
4635            t218 = t66**1.5d+0
4636            t219 = 1/t69**3
4637            t220 = 1/t70**3
4638            t221 = 8.551882923536147d-2*t1*t128*t23*t93+1.14025105647148
4639     1         63d-1*t1*t30*t87+1.924173657795633d-1*t1*t157*t187*t3-1.2
4640     2         82782438530422d-1*t1*t128*t185*t3
4641            t222 = 2*t129*t93+t185*t31+t221*t27
4642            t223 = t162-2.4682961769030842d-2*t1*t128*t139*t3*t74
4643            t224 = -4.5608816488973747d-1*t136*t87-1.4056794412619736d-1
4644     1         *t5*t86+1.4759535677446958d-2*gammabb*t85-9.9265163127948
4645     2         08d-4*t14*t84+6.527239842306487d-5*t12*t83-5.742468916099
4646     3         301d-6*t10*t82+2.4105264144112412d-7*t8*t81-1.70062337753
4647     4         11694d-8*t6*t80+5.475448834737188d-1*t78
4648            t225 = -1.0803307880124491d-3*t5*t86+4.631892373620269d-4*ga
4649     1         mmabb*t85-8.836827178054d-5*t14*t84+1.0386425752741123d-5
4650     2         *t12*t83-7.880451214247165d-7*t10*t82-7.018342379201d-4*t
4651     3         78
4652            t226 = -1.6455307846020562d-2*gammabb*t137*t16*t89*t91+1.645
4653     1         5307846020562d-2*t16*t25*t91-1.6455307846020562d-2*t16*t1
4654     2         7*t88*t89-1.6455307846020562d-2*gammabb*t138*t16*t88*t89+
4655     3         4.38808209227215d-2*gammabb*t137*t17*t78*t89-1.6455307846
4656     4         020562d-2*gammabb*t16*t17*t224*t89+3.2910615692041123d-2*
4657     5         gammabb*t137*t16*t17*t173*t88-4.38808209227215d-2*t17*t25
4658     6         *t78-4.38808209227215d-2*gammabb*t138*t25*t78+1.645530784
4659     7         6020562d-2*gammabb*t16*t225*t25
4660            t227 = 1.690496096374559d-4*gammabb*t85*t94-6.93444860303102
4661     1         5d-2*gammabb*t137*t16*t89*t91+6.934448603031025d-2*t16*t2
4662     2         5*t91-6.934448603031025d-2*t16*t17*t88*t89-6.934448603031
4663     3         025d-2*gammabb*t138*t16*t88*t89+1.8491862941416065d-1*gam
4664     4         mabb*t137*t17*t78*t89-6.934448603031025d-2*gammabb*t16*t1
4665     5         7*t224*t89+1.386889720606205d-1*gammabb*t137*t16*t17*t173
4666     6         *t88-4.6362722797232353d-7*t12*t188*t83-1.369767625290079
4667     7         d-2*t34*t78-1.8491862941416065d-1*t17*t25*t78-1.849186294
4668     8         1416065d-1*gammabb*t138*t25*t78+6.934448603031025d-2*gamm
4669     9         abb*t16*t225*t25
4670            t228 = -2.5d-1*t139*t197*t96
4671            t229 = 5.0d-1*t226*t97
4672            t230 = t229+t228
4673            t231 = -2.5d-1*t139*t203*t96
4674            t232 = 5.0d-1*t102*t226
4675            t233 = -2.5d-1*t139*t209*t96
4676            t234 = 5.0d-1*t109*t226
4677            t235 = t234+t233+t232+t231
4678            t236 = 1/t29**7
4679            t237 = 1.924173657795633d-1*t1*t139*t157*t3*t93-1.2827824385
4680     1         30422d-1*t1*t128*t226*t3+4.2759414617680735d-2*t1*t128*t1
4681     2         39*t23
4682            t238 = -1.282782438530422d-1*t1*t128*t139*t3*t93+t226*t31+t2
4683     1         37*t27+t129*t139
4684            t239 = t139**2
4685            t240 = t137**2
4686            t241 = -1.6318099605766218d-5*gammabb*t9+1.5381613168123123d
4687     1         -6*t14*t7+2.2334661703788317d-4*t11*t5-1.7103306183365155
4688     2         d-1*t23/t14-6.779605540531617d-8*t12*t21+4.96015151779924
4689     3         5d-9*t10*t19+1.757099301577467d-2*t136*t15-2.767412939521
4690     4         305d-3*t13
4691            t242 = -2.5966064381852805d-6*gammabb*t9+2.1108351466733477d
4692     1         -7*t14*t7+1.9882861150621498d-5*t11*t5+1.3504134850155614
4693     2         d-4*t136*t15-8.684798200538004d-5*t13
4694            t243 = -1.6455307846020562d-2*gammabb*t16*t17*t241*t89-3.291
4695     1         0615692041123d-2*t137*t16*t17*t89-3.2910615692041123d-2*g
4696     2         ammabb*t137*t138*t16*t89+1.6455307846020562d-2*gammabb*t1
4697     3         6*t242*t25+3.2910615692041123d-2*t138*t16*t25+3.291061569
4698     4         2041123d-2*gammabb*t16*t17*t173*t240
4699            t244 = -4.226240240936398d-5*t13*t94+1.7386021048962136d-7*g
4700     1         ammabb*t188*t9-6.934448603031025d-2*gammabb*t16*t17*t241*
4701     2         t89-1.386889720606205d-1*t137*t16*t17*t89-1.3868897206062
4702     3         05d-1*gammabb*t137*t138*t16*t89+6.934448603031025d-2*gamm
4703     4         abb*t16*t242*t25+1.386889720606205d-1*t138*t16*t25+1.3868
4704     5         89720606205d-1*gammabb*t16*t17*t173*t240
4705            t245 = 1/t44
4706            t246 = -2.5d-1*t203*t239
4707            t247 = 5.0d-1*t102*t243
4708            t248 = -2.5d-1*t197*t239
4709            t249 = 5.0d-1*t243*t97
4710            t250 = t155**2
4711            t251 = -2.5d-1*t209*t239
4712            t252 = 5.0d-1*t109*t243
4713            t253 = t252+t251+t247+t246
4714            t254 = t243*t31-1.282782438530422d-1*t1*t243*t3*t30-6.413912
4715     1         19265211d-2*t1*t128*t239*t3
4716            fnc(iq) = fnc(iq)-9.305257363491d-1*t22*t76*wght
4717            Amat(iq,D1_RB) = -1.2407009817987999d+0*t2*t76*wght-9.305257
4718     1         363491d-1*t135*t22*wght+Amat(iq,D1_RB)
4719            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)-9.305257363491d-1*t22*(t16
4720     1         7*t73+t149*t16*t25+t161+t159+t158+t156+t154+t150+t148+t14
4721     2         3+t142+t140)*wght
4722            Amat2(iq,D2_RB_RB) = -9.305257363491d-1*t22*(-8.888888888888
4723     1         888d-1*t73*t75*(9.491919999999999d-2*t108*t95-2.4d+0*t68*
4724     2         (6.41391219265211d-2*t123*(-2*gammabb*t16*t88*t89*t91-5.3
4725     3         33333333333333d+0*gammabb*t25*t78*t91+5.333333333333333d+
4726     4         0*gammabb*t17*t78*t88*t89-gammabb*t16*t17*t180*t89+gammab
4727     5         b*t16*t183*t25+9.777777777777779d+0*gammabb*t168*t17*t25+
4728     6         2*gammabb*t16*t17*t172*t173)+2.5d-1*t217*t220-3.206956096
4729     7         326055d-2*t124**2*t219-5.0d-1*t122*t206)-2.1d+1*t217*t218
4730     8         *t71-8.400000000000001d+0*t121*t206*t71-2.7259596d+0*t206
4731     9         *t67-5.4519192d+0*t217*t66+5.672746666666666d-2*t206*t66+
4732     :         4.7459599999999996d-2*t189*t66+4.7459599999999996d-2*t206
4733     ;         *t35-1.2407176956338616d+1*t217*t218+5.672746666666666d-2
4734     <         *t217-4.9628707825354457d+0*t121*t206-1.68d+1*t108*t121*t
4735     =         125)-2.109315555555555d-1*t133*t36*t73*t95+1.054657777777
4736     >         7776d-1*t130*t38*t95-8.888888888888888d-1*t72*t73*(4.9365
4737     ?         923538061685d-2*t1*t3*t30*(3.333333333333333d-1*t1*t128*t
4738     @         23*t93+4.444444444444444d-1*t1*t30*t87+7.5d-1*t1*t157*t18
4739     1         7*t3-5.0d-1*t1*t128*t185*t3)+9.620868288978164d-2*t1*t128
4740     2         *t23*t93+1.2827824385304218d-1*t1*t30*t87+2.1646953650200
4741     3         87d-1*t1*t157*t187*t3-1.4431302433467247d-1*t1*t128*t185*
4742     4         t3+4.9365923538061685d-2*t131**2)+5.273288888888887d-2*t3
4743     5         5*t38*(4.2759414617680735d-2*t1*t128*t23*t93+5.7012552823
4744     6         57431d-2*t1*t30*t87+9.620868288978166d-2*t1*t157*t187*t3-
4745     7         6.41391219265211d-2*t1*t128*t185*t3)+9.454577777777778d-2
4746     8         *t127*t129*t77*t93+7.57211d-1*(-3.2910615692041123d-2*gam
4747     9         mabb*t16*t61*t65*t88*t89*t91-8.7761641845443d-2*gammabb*t
4748     :         25*t61*t65*t78*t91-3.2910615692041123d-2*gammabb*t117*t11
4749     ;         8*t16*t25*t65*t91-3.2910615692041123d-2*gammabb*t119*t120
4750     <         *t16*t25*t61*t91+8.7761641845443d-2*gammabb*t17*t61*t65*t
4751     =         78*t88*t89+3.2910615692041123d-2*gammabb*t117*t118*t16*t1
4752     >         7*t65*t88*t89+3.2910615692041123d-2*gammabb*t119*t120*t16
4753     ?         *t17*t61*t88*t89-1.6455307846020562d-2*gammabb*t16*t17*t1
4754     @         80*t61*t65*t89+8.7761641845443d-2*gammabb*t117*t118*t17*t
4755     1         25*t65*t78+8.7761641845443d-2*gammabb*t119*t120*t17*t25*t
4756     2         61*t78+1.6455307846020562d-2*gammabb*t16*t183*t25*t61*t65
4757     3         +1.6089634338331216d-1*gammabb*t168*t17*t25*t61*t65+3.291
4758     4         0615692041123d-2*gammabb*t16*t17*t172*t173*t61*t65-1.6455
4759     5         307846020562d-2*gammabb*t118*t16*t17*t215*t25*t65+3.29106
4760     6         15692041123d-2*gammabb*t16*t17*t213*t214*t25*t65+t206*t61
4761     7         *t63-t118*t215*t59*t63+2*t213*t214*t59*t63-2*t108*t117*t1
4762     8         18*t63+2*t115**2*t212*t59*t61-t116*(t211+t210+t200)*t59*t
4763     9         61+3.2910615692041123d-2*gammabb*t119**2*t16*t17*t216*t25
4764     :         *t61-1.6455307846020562d-2*gammabb*t120*t16*t17*(t205+t20
4765     ;         4+t200)*t25*t61-2*t108*t115*t116*t61+2*t115*t116*t117*t11
4766     <         8*t59+3.2910615692041123d-2*gammabb*t117*t118*t119*t120*t
4767     =         16*t17*t25)-6.582123138408225d-2*gammabb*t16*t52*t88*t89*
4768     >         t91-1.75523283690886d-1*gammabb*t25*t52*t78*t91+6.5821231
4769     ?         38408225d-2*gammabb*t106*t107*t16*t25*t91+1.7552328369088
4770     @         6d-1*gammabb*t17*t52*t78*t88*t89-6.582123138408225d-2*gam
4771     1         mabb*t106*t107*t16*t17*t88*t89-3.2910615692041123d-2*gamm
4772     2         abb*t16*t17*t180*t52*t89-1.75523283690886d-1*gammabb*t106
4773     3         *t107*t17*t25*t78-4.727288888888889d-2*t185*t32*t77+2.666
4774     4         6666666666666d+0*t134*t222*t72*t75-1.0666666666666666d+1*
4775     5         t191*t192*t72*t75+5.333333333333333d+0*t126*t133*t134*t75
4776     6         -1.0546577777777776d-1*t222*t35*t36*t73-2.109315555555555
4777     7         d-1*t130*t133*t35*t73-1.7777777777777776d+0*t126*t132*t73
4778     8         +5.333333333333333d+0*t132*t133*t134*t72-2.0d+0*t114*(-1.
4779     9         475609999999999d-1*t101*t201*t56+2.951219999999998d-1*t19
4780     :         4*t195*t56-1.475609999999999d-1*t112*(t211+t210+t199+t198
4781     ;         )*t50+2.951219999999998d-1*t111**2*t208*t50+2.95121999999
4782     <         9998d-1*t100*t101*t111*t112)*t59+2.0d+0*t113**2*t207*t59-
4783     =         2.0d+0*t206*t58+3.2910615692041123d-2*gammabb*t16*t183*t2
4784     >         5*t52+3.217926867666243d-1*gammabb*t168*t17*t25*t52+6.582
4785     ?         123138408225d-2*gammabb*t16*t17*t172*t173*t52+3.291061569
4786     @         2041123d-2*gammabb*t107*t16*t17*t25*(6.0965d-1*t105*(t205
4787     1         +t204+t199+t198)*t50-1.2193000000000001d+0*t104**2*t202*t
4788     2         50+6.0965d-1*t101*t201*t47-1.2193000000000001d+0*t194*t19
4789     3         5*t47-1.2193000000000001d+0*t100*t101*t104*t105)+5.273288
4790     4         888888887d-2*t189*t36*t38+3.1639733333333325d-1*t134*t191
4791     5         *t35*t36+9.454577777777778d-2*t186*t187*t32-4.72728888888
4792     6         8889d-2*t127*t221*t28+9.454577777777778d-2*t129**2*t190*t
4793     7         28-3.2910615692041123d-2*gammabb*t106**2*t16*t17*t193*t25
4794     8         -4.0d+0*t108*t113*t114)*wght-4.135669939329333d-1*t40*t76
4795     9         *wght-2.4814019635975998d+0*t135*t2*wght+Amat2(iq,D2_RB_R
4796     :         B)
4797            Cmat2(iq,D2_RB_GBB) = -9.305257363491d-1*t22*(-2.0d+0*t114*t
4798     1         59*(1.475609999999999d-1*t100*t139*t195*t56*t97+7.3780499
4799     2         99999994d-2*t101*t111*t112*t139*t97-1.475609999999999d-1*
4800     3         t101*t230*t56-1.475609999999999d-1*t112*(t234+t233+t229+t
4801     4         228)*t50+2.951219999999998d-1*t111*t152*t208*t50+1.475609
4802     5         999999999d-1*t100*t101*t112*t152)+3.2910615692041123d-2*g
4803     6         ammabb*t107*t16*t17*t25*(-6.0965d-1*t100*t139*t195*t47*t9
4804     7         7-3.04825d-1*t101*t104*t105*t139*t97+6.0965d-1*t105*(t232
4805     8         +t231+t229+t228)*t50-1.2193000000000001d+0*t104*t146*t202
4806     9         *t50+6.0965d-1*t101*t230*t47-6.0965d-1*t100*t101*t105*t14
4807     :         6)-8.888888888888888d-1*t73*t75*(4.7459599999999996d-2*t1
4808     ;         39*t95-2.4d+0*t68*(6.41391219265211d-2*t123*(-gammabb*t13
4809     <         7*t16*t89*t91+t16*t25*t91-t16*t17*t88*t89-gammabb*t138*t1
4810     =         6*t88*t89+2.6666666666666666d+0*gammabb*t137*t17*t78*t89-
4811     >         gammabb*t16*t17*t224*t89+2*gammabb*t137*t16*t17*t173*t88-
4812     ?         2.6666666666666666d+0*t17*t25*t78-2.6666666666666666d+0*g
4813     @         ammabb*t138*t25*t78+gammabb*t16*t225*t25)-5.0d-1*t122*t22
4814     1         6+2.5d-1*t108*t139*t220-3.206956096326055d-2*t124*t164*t2
4815     2         19)-8.400000000000001d+0*t121*t226*t71-2.1d+1*t108*t139*t
4816     3         218*t71-2.7259596d+0*t226*t67+4.7459599999999996d-2*t227*
4817     4         t66+5.672746666666666d-2*t226*t66-5.4519192d+0*t108*t139*
4818     5         t66+4.7459599999999996d-2*t226*t35-4.9628707825354457d+0*
4819     6         t121*t226-1.2407176956338616d+1*t108*t139*t218-8.40000000
4820     7         0000001d+0*t108*t121*t165+4.7459599999999996d-2*t108*t141
4821     8         -8.400000000000001d+0*t121*t125*t139+5.672746666666666d-2
4822     9         *t108*t139)-1.0546577777777776d-1*t160*t36*t73*t95-3.3822
4823     :         411899821336d-3*t1*t128*t139*t3*t38*t95-8.888888888888888
4824     ;         d-1*t72*t73*(4.9365923538061685d-2*t1*t3*t30*(7.5d-1*t1*t
4825     <         139*t157*t3*t93-5.0d-1*t1*t128*t226*t3+1.6666666666666666
4826     =         d-1*t1*t128*t139*t23)+2.164695365020087d-1*t1*t139*t157*t
4827     >         3*t93-1.4431302433467247d-1*t1*t128*t226*t3-2.46829617690
4828     ?         30842d-2*t1*t128*t131*t139*t3+4.810434144489082d-2*t1*t12
4829     @         8*t139*t23)+5.273288888888887d-2*t35*t38*(9.6208682889781
4830     1         66d-2*t1*t139*t157*t3*t93-6.41391219265211d-2*t1*t128*t22
4831     2         6*t3+2.1379707308840368d-2*t1*t128*t139*t23)+9.4545777777
4832     3         77778d-2*t139*t186*t32*t93-6.064083168526658d-3*t1*t127*t
4833     4         139*t236*t3*t93+7.57211d-1*(-1.6455307846020562d-2*gammab
4834     5         b*t137*t16*t61*t65*t89*t91+1.6455307846020562d-2*t16*t25*
4835     6         t61*t65*t91-1.6455307846020562d-2*gammabb*t118*t155*t16*t
4836     7         25*t65*t91-8.227653923010281d-3*gammabb*t102*t120*t139*t1
4837     8         6*t25*t61*t91-1.6455307846020562d-2*t16*t17*t61*t65*t88*t
4838     9         89-1.6455307846020562d-2*gammabb*t138*t16*t61*t65*t88*t89
4839     :         +1.6455307846020562d-2*gammabb*t118*t155*t16*t17*t65*t88*
4840     ;         t89+8.227653923010281d-3*gammabb*t102*t120*t139*t16*t17*t
4841     <         61*t88*t89+4.38808209227215d-2*gammabb*t137*t17*t61*t65*t
4842     =         78*t89-1.6455307846020562d-2*gammabb*t16*t17*t224*t61*t65
4843     >         *t89+1.6455307846020562d-2*gammabb*t117*t118*t137*t16*t17
4844     ?         *t65*t89+1.6455307846020562d-2*gammabb*t119*t120*t137*t16
4845     @         *t17*t61*t89+3.2910615692041123d-2*gammabb*t137*t16*t17*t
4846     1         173*t61*t65*t88-4.38808209227215d-2*t17*t25*t61*t65*t78-4
4847     2         .38808209227215d-2*gammabb*t138*t25*t61*t65*t78+4.3880820
4848     3         9227215d-2*gammabb*t118*t155*t17*t25*t65*t78+2.1940410461
4849     4         36075d-2*gammabb*t102*t120*t139*t17*t25*t61*t78+1.6455307
4850     5         846020562d-2*gammabb*t16*t225*t25*t61*t65-1.6455307846020
4851     6         562d-2*gammabb*t118*t16*t17*t235*t25*t65+3.29106156920411
4852     7         23d-2*gammabb*t117*t155*t16*t17*t214*t25*t65-1.6455307846
4853     8         020562d-2*t117*t118*t16*t17*t25*t65-1.6455307846020562d-2
4854     9         *gammabb*t117*t118*t138*t16*t25*t65+t226*t61*t63-t118*t23
4855     :         5*t59*t63+2*t117*t155*t214*t59*t63-t108*t118*t155*t63-t11
4856     ;         7*t118*t139*t63-t116*(t234+t233)*t59*t61+t109*t115*t139*t
4857     <         212*t59*t61-1.6455307846020562d-2*gammabb*t120*t16*t17*(t
4858     =         232+t231)*t25*t61+1.6455307846020562d-2*gammabb*t102*t119
4859     >         *t139*t16*t17*t216*t25*t61-1.6455307846020562d-2*t119*t12
4860     ?         0*t16*t17*t25*t61-1.6455307846020562d-2*gammabb*t119*t120
4861     @         *t138*t16*t25*t61-t115*t116*t139*t61-5.0d-1*t108*t109*t11
4862     1         6*t139*t61+t115*t116*t118*t155*t59+5.0d-1*t109*t116*t117*
4863     2         t118*t139*t59+1.6455307846020562d-2*gammabb*t118*t119*t12
4864     3         0*t155*t16*t17*t25+8.227653923010281d-3*gammabb*t102*t117
4865     4         *t118*t120*t139*t16*t17*t25)-3.2910615692041123d-2*gammab
4866     5         b*t137*t16*t52*t89*t91+3.2910615692041123d-2*t16*t25*t52*
4867     6         t91+3.2910615692041123d-2*gammabb*t107*t147*t16*t25*t91-3
4868     7         .2910615692041123d-2*t16*t17*t52*t88*t89-3.29106156920411
4869     8         23d-2*gammabb*t138*t16*t52*t88*t89-3.2910615692041123d-2*
4870     9         gammabb*t107*t147*t16*t17*t88*t89+8.7761641845443d-2*gamm
4871     :         abb*t137*t17*t52*t78*t89-3.2910615692041123d-2*gammabb*t1
4872     ;         6*t17*t224*t52*t89-3.2910615692041123d-2*gammabb*t106*t10
4873     <         7*t137*t16*t17*t89+6.582123138408225d-2*gammabb*t137*t16*
4874     =         t17*t173*t52*t88-8.7761641845443d-2*t17*t25*t52*t78-8.776
4875     >         1641845443d-2*gammabb*t138*t25*t52*t78-8.7761641845443d-2
4876     ?         *gammabb*t107*t147*t17*t25*t78-4.727288888888889d-2*t226*
4877     @         t32*t77+4.727288888888889d-2*t127*t129*t139*t77+2.6666666
4878     1         666666666d+0*t134*t238*t72*t75-1.0666666666666666d+1*t133
4879     2         *t160*t192*t72*t75+2.6666666666666666d+0*t133*t134*t166*t
4880     3         75+2.6666666666666666d+0*t126*t134*t160*t75-1.05465777777
4881     4         77776d-1*t238*t35*t36*t73-1.0546577777777776d-1*t133*t141
4882     5         *t36*t73+6.764482379964267d-3*t1*t128*t133*t139*t3*t35*t7
4883     6         3-1.0546577777777776d-1*t130*t160*t35*t73-8.8888888888888
4884     7         88d-1*t126*t223*t73-8.888888888888888d-1*t132*t166*t73+2.
4885     8         6666666666666666d+0*t133*t134*t223*t72+2.6666666666666666
4886     9         d+0*t132*t134*t160*t72+2.0d+0*t113*t153*t207*t59-2.0d+0*t
4887     :         226*t58+3.2910615692041123d-2*gammabb*t16*t225*t25*t52+5.
4888     ;         273288888888887d-2*t227*t36*t38+5.273288888888887d-2*t130
4889     <         *t141*t38+3.1639733333333325d-1*t133*t134*t160*t35*t36-1.
4890     =         2128166337053317d-2*t1*t129*t139*t157*t190*t3-4.727288888
4891     >         888889d-2*t127*t237*t28-3.2910615692041123d-2*gammabb*t10
4892     ?         6*t147*t16*t17*t193*t25+3.2910615692041123d-2*t106*t107*t
4893     @         16*t17*t25+3.2910615692041123d-2*gammabb*t106*t107*t138*t
4894     1         16*t25-2.0d+0*t108*t114*t153-2.0d+0*t113*t114*t139)*wght-
4895     2         1.2407009817987999d+0*t2*(-8.888888888888888d-1*t166*t73*
4896     3         t75-8.888888888888888d-1*t223*t72*t73-1.0546577777777776d
4897     4         -1*t160*t35*t36*t73+3.2910615692041123d-2*t16*t17*t25*t52
4898     5         +3.2910615692041123d-2*gammabb*t138*t16*t25*t52+t161+t159
4899     6         +t158+t156+t154+t150+t148+t143+t142+t140)*wght+Cmat2(iq,D
4900     7         2_RB_GBB)
4901            Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB)-9.305257363491d-
4902     1         1*t22*(t114*(-2.0d+0*t59*(-7.378049999999994d-2*t101*t243
4903     2         *t56*t97+1.475609999999999d-1*t101*t112*t139*t152*t97+7.3
4904     3         78049999999994d-2*t195*t239*t245*t56+3.689024999999997d-2
4905     4         *t101*t197*t239*t56-1.475609999999999d-1*t112*(t252+t251+
4906     5         t249+t248)*t50+2.951219999999998d-1*t152**2*t208*t50)-4.0
4907     6         d+0*t139*t153)+t107*t16*t25*(3.2910615692041123d-2*gammab
4908     7         b*t17*(3.04825d-1*t101*t243*t47*t97-6.0965d-1*t101*t105*t
4909     8         139*t146*t97+6.0965d-1*t105*(t249+t248+t247+t246)*t50-1.2
4910     9         193000000000001d+0*t146**2*t202*t50-3.04825d-1*t195*t239*
4911     :         t245*t47-1.524125d-1*t101*t197*t239*t47)+3.29106156920411
4912     ;         23d-2*t147*t17+3.2910615692041123d-2*gammabb*t138*t147)+t
4913     <         73*(-8.888888888888888d-1*t75*(-2.4d+0*t68*(6.41391219265
4914     =         211d-2*t123*(-gammabb*t16*t17*t241*t89-2*t137*t16*t17*t89
4915     >         -2*gammabb*t137*t138*t16*t89+gammabb*t16*t242*t25+2*t138*
4916     ?         t16*t25+2*gammabb*t16*t17*t173*t240)-5.0d-1*t122*t243+2.5
4917     @         d-1*t220*t239-3.206956096326055d-2*t164**2*t219)-8.400000
4918     1         000000001d+0*t121*t243*t71-2.1d+1*t218*t239*t71-2.7259596
4919     2         d+0*t243*t67+4.7459599999999996d-2*t244*t66+5.67274666666
4920     3         6666d-2*t243*t66-5.4519192d+0*t239*t66+4.7459599999999996
4921     4         d-2*t243*t35-4.9628707825354457d+0*t121*t243-1.2407176956
4922     5         338616d+1*t218*t239+5.672746666666666d-2*t239-1.68d+1*t12
4923     6         1*t139*t165+9.491919999999999d-2*t139*t141)-8.88888888888
4924     7         8888d-1*t72*(-2.4682961769030842d-2*t243*t39*t40*t77+4.93
4925     8         65923538061685d-2*t186*t239*t39*t40-1.4431302433467247d-1
4926     9         *t1*t128*t243*t3+2.164695365020087d-1*t1*t157*t239*t3)-1.
4927     :         0546577777777776d-1*t254*t35*t36-2.109315555555555d-1*t14
4928     ;         1*t160*t36+6.764482379964267d-3*t1*t128*t139*t160*t3*t35-
4929     <         1.7777777777777776d+0*t163*t166)+7.57211d-1*(-1.645530784
4930     =         6020562d-2*gammabb*t16*t17*t241*t61*t65*t89-3.29106156920
4931     >         41123d-2*t137*t16*t17*t61*t65*t89-3.2910615692041123d-2*g
4932     ?         ammabb*t137*t138*t16*t61*t65*t89+3.2910615692041123d-2*ga
4933     @         mmabb*t118*t137*t155*t16*t17*t65*t89+1.6455307846020562d-
4934     1         2*gammabb*t102*t120*t137*t139*t16*t17*t61*t89+1.645530784
4935     2         6020562d-2*gammabb*t16*t242*t25*t61*t65+3.291061569204112
4936     3         3d-2*t138*t16*t25*t61*t65+3.2910615692041123d-2*gammabb*t
4937     4         16*t17*t173*t240*t61*t65-1.6455307846020562d-2*gammabb*t1
4938     5         18*t16*t17*t25*t253*t65+3.2910615692041123d-2*gammabb*t16
4939     6         *t17*t214*t25*t250*t65-3.2910615692041123d-2*t118*t155*t1
4940     7         6*t17*t25*t65-3.2910615692041123d-2*gammabb*t118*t138*t15
4941     8         5*t16*t25*t65+t243*t61*t63-t118*t253*t59*t63+2*t214*t250*
4942     9         t59*t63-2*t118*t139*t155*t63+5.0d-1*t212*t239*t59*t61/t53
4943     :         -5.0d-1*t109*t116*t243*t59*t61+2.5d-1*t116*t209*t239*t59*
4944     ;         t61+8.227653923010281d-3*gammabb*t16*t17*t216*t239*t25*t6
4945     <         1/t42-8.227653923010281d-3*gammabb*t102*t120*t16*t17*t243
4946     =         *t25*t61+4.1138269615051404d-3*gammabb*t120*t16*t17*t203*
4947     >         t239*t25*t61-1.6455307846020562d-2*t102*t120*t139*t16*t17
4948     ?         *t25*t61-1.6455307846020562d-2*gammabb*t102*t120*t138*t13
4949     @         9*t16*t25*t61-t109*t116*t239*t61+t109*t116*t118*t139*t155
4950     1         *t59+1.6455307846020562d-2*gammabb*t102*t118*t120*t139*t1
4951     2         55*t16*t17*t25)+t16*(-3.2910615692041123d-2*gammabb*t17*t
4952     3         241*t52-3.2910615692041123d-2*t137*t17*t52-3.291061569204
4953     4         1123d-2*gammabb*t137*t138*t52-t137*t149)*t89-6.5821231384
4954     5         08225d-2*gammabb*t107*t137*t147*t16*t17*t89-4.72728888888
4955     6         8889d-2*t243*t32*t77+t134*(2.6666666666666666d+0*t254*t72
4956     7         *t75+2.6666666666666666d+0*t160*t166*t75+2.66666666666666
4957     8         66d+0*t160*t163*t72-3.0d+0*t160*t167)-1.0666666666666666d
4958     9         +1*t160**2*t192*t72*t75+6.764482379964267d-3*t1*t128*t139
4959     :         *t160*t3*t35*t73+2.0d+0*t153**2*t207*t59-2.0d+0*t243*t58+
4960     ;         t16*t25*(3.2910615692041123d-2*gammabb*t242*t52+6.5821231
4961     <         38408225d-2*t138*t52+3.2910615692041123d-2*t107*t147*t17+
4962     =         3.2910615692041123d-2*gammabb*t107*t138*t147)+6.582123138
4963     >         408225d-2*gammabb*t16*t17*t173*t240*t52+1.555779878874783
4964     ?         1d-3*t190*t239*t39*t40/t27**4+5.273288888888887d-2*t244*t
4965     @         36*t38+t128*t3*(-3.3822411899821336d-3*t1*t243*t35-6.7644
4966     1         82379964267d-3*t1*t139*t141)*t38+5.0733617849732d-3*t1*t1
4967     2         57*t239*t3*t35*t38+9.454577777777778d-2*t186*t239*t32+6.0
4968     3         64083168526658d-3*t1*t127*t157*t243*t3-2.1224291089843306
4969     4         d-2*t1*t127*t236*t239*t3-3.2910615692041123d-2*gammabb*t1
4970     5         47**2*t16*t17*t193*t25)*wght
4971          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
4972        endif ! ipol.eq.1
4973      enddo ! iq
4974      end
4975C>
4976C> \brief Evaluate the nwxcm_x_wpbe functional [1]
4977C>
4978C> \f{eqnarray*}{
4979C>   {\it t_1} &=& \rho_\alpha^{{{4}\over{3}}}\\\\
4980C>   {\it t_2} &=& {{1}\over{\rho_\alpha^{{{8}\over{3}}}}}\\\\
4981C>   {\it t_3} &=& {{1}\over{\rho_\alpha^4}}\\\\
4982C>   {\it t_4} &=& \sqrt{\sigma_{\alpha\alpha}}\\\\
4983C>   {\it t_5} &=& {\it t_4}^3\\\\
4984C>   {\it t_6} &=& {{1}\over{\rho_\alpha^{{{16}\over{3}}}}}\\\\
4985C>   {\it t_7} &=& \sigma_{\alpha\alpha}^2\\\\
4986C>   {\it t_8} &=& {{1}\over{\rho_\alpha^{{{20}\over{3}}}}}\\\\
4987C>   {\it t_9} &=& {\it t_4}^5\\\\
4988C>   {\it t_{10}} &=& {{1}\over{\rho_\alpha^8}}\\\\
4989C>   {\it t_{11}} &=& \sigma_{\alpha\alpha}^3\\\\
4990C>   {\it t_{12}} &=& {{1}\over{\rho_\alpha^{{{28}\over{3}}}}}\\\\
4991C>   {\it t_{13}} &=& {\it t_4}^7\\\\
4992C>   {\it t_{14}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{12}}
4993C>    \,{\it t_{13}}-4.327677396975467 \times 10^{-7}\,{\it t_{10}}
4994C>    \,{\it t_{11}}+5.3020963068324 \times 10^{-6}\,{\it t_8}\,{
4995C>    \it t_9}-4.342399100269002 \times 10^{-5}\,{\it t_6}\,{\it t_7}
4996C>    +1.800551313354082 \times 10^{-4}\,{\it t_3}\,{\it t_5}
4997C>    +2.631878392200375 \times 10^{-4}\,{\it t_2}\,
4998C>    \sigma_{\alpha\alpha}\\\\
4999C>   {\it t_{15}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
5000C>    \,{\it t_4}^9}\over{\rho_\alpha^{12}}}
5001C>    -{{5.649671283776346 \times 10^{-9}\,
5002C>    \sigma_{\alpha\alpha}^4}\over{\rho_\alpha^{{{32}\over{3}}}}}
5003C>    +1.7578986477855 \times 10^{-7}\,{\it t_{12}}\,{\it t_{13}}
5004C>    -2.719683267627703 \times 10^{-6}\,{\it t_{10}}\,{\it t_{11}}
5005C>    +5.955909787676884 \times 10^{-5}\,{\it t_8}\,{\it t_9}
5006C>    -0.001383706469760652\,{\it t_6}\,{\it t_7}
5007C>    +0.02342799068769956\,{\it t_3}\,{\it t_5}-0.2053293313026446
5008C>    \,{\it t_2}\,\sigma_{\alpha\alpha}+{{0.6841322473346062\,{
5009C>    \it t_4}}\over{{\it t_1}}}+1.0}}\\\\
5010C>   {\it t_{16}} &=& 0.01645530784602056\,{\it t_2}\,
5011C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}\\\\
5012C>   {\it t_{17}} &=& {\it t_{16}}+0.60965\\\\
5013C>   {\it t_{18}} &=& 0.06934448603031025\,{\it t_2}\,
5014C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}
5015C>    +{{0.005136628594837796\,{\it t_2}\,
5016C>    \sigma_{\alpha\alpha}}\over{0.00411382696150514\,{\it t_2}
5017C>    \,\sigma_{\alpha\alpha}+1.0}}+1.0\\\\
5018C>   {\it t_{19}} &=& {\it t_{17}}^{3.5}\\\\
5019C>   {\it t_{20}} &=& {\it t_{16}}+0.757211\\\\
5020C>   {\it t_{21}} &=& {\it param}\left(1\right)\\\\
5021C>   {\it t_{22}} &=& {{1}\over{\rho_\alpha^{{{1}\over{3}}}}}\\\\
5022C>   {\it t_{23}} &=& {\it t_{16}}+0.06582123138408225\,\left({
5023C>    \it t_{21}}\,{\it t_{22}}\right)^{2.0}+0.60965\\\\
5024C>   {\it t_{24}} &=& {{1}\over{\sqrt{{\it t_{23}}}}}\\\\
5025C>   {\it t_{25}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{22}}
5026C>    \,{\it t_{24}}+1.0\\\\
5027C>   {\it t_{26}} &=& {\it t_{23}}\,{\it t_{25}}\\\\
5028C>   {\it t_{27}} &=& 0.2565564877060844\,{\it t_{21}}\,{
5029C>    \it t_{22}}\\\\
5030C>   {\it t_{28}} &=& {\it t_{21}}^2\\\\
5031C>   {\it t_{29}} &=& {{0.06582123138408225\,{\it t_{28}}}
5032C>    \over{\rho_\alpha^{{{2}\over{3}}}}}\\\\
5033C>   {\it t_{30}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}}\\\\
5034C>   {\it t_{31}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}+0.757211}\\\\
5035C>   {\it t_{32}} &=& {{1}\over{{\it t_{31}}+{\it t_{30}}}}\\\\
5036C>   {\it t_{33}} &=& \sqrt{{\it t_{16}}+{\it t_{29}}+0.60965}\\\\
5037C>   {\it t_{34}} &=& {{1}\over{{\it t_{33}}+{\it t_{27}}}}\\\\
5038C>   {\it t_{35}} &=& \rho_\beta^{{{4}\over{3}}}\\\\
5039C>   {\it t_{36}} &=& {{1}\over{\rho_\beta^{{{8}\over{3}}}}}\\\\
5040C>   {\it t_{37}} &=& {{1}\over{\rho_\beta^4}}\\\\
5041C>   {\it t_{38}} &=& \sqrt{\sigma_{\beta\beta}}\\\\
5042C>   {\it t_{39}} &=& {\it t_{38}}^3\\\\
5043C>   {\it t_{40}} &=& {{1}\over{\rho_\beta^{{{16}\over{3}}}}}\\\\
5044C>   {\it t_{41}} &=& \sigma_{\beta\beta}^2\\\\
5045C>   {\it t_{42}} &=& {{1}\over{\rho_\beta^{{{20}\over{3}}}}}\\\\
5046C>   {\it t_{43}} &=& {\it t_{38}}^5\\\\
5047C>   {\it t_{44}} &=& {{1}\over{\rho_\beta^8}}\\\\
5048C>   {\it t_{45}} &=& \sigma_{\beta\beta}^3\\\\
5049C>   {\it t_{46}} &=& {{1}\over{\rho_\beta^{{{28}\over{3}}}}}\\\\
5050C>   {\it t_{47}} &=& {\it t_{38}}^7\\\\
5051C>   {\it t_{48}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{46}}
5052C>    \,{\it t_{47}}-4.327677396975467 \times 10^{-7}\,{\it t_{44}}
5053C>    \,{\it t_{45}}+5.3020963068324 \times 10^{-6}\,{\it t_{42}}
5054C>    \,{\it t_{43}}-4.342399100269002 \times 10^{-5}\,{\it t_{40}}
5055C>    \,{\it t_{41}}+1.800551313354082 \times 10^{-4}\,{\it t_{37}}
5056C>    \,{\it t_{39}}+2.631878392200375 \times 10^{-4}\,{\it t_{36}}
5057C>    \,\sigma_{\beta\beta}\\\\
5058C>   {\it t_{49}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
5059C>    \,{\it t_{38}}^9}\over{\rho_\beta^{12}}}
5060C>    -{{5.649671283776346 \times 10^{-9}\,
5061C>    \sigma_{\beta\beta}^4}\over{\rho_\beta^{{{32}\over{3}}}}}
5062C>    +1.7578986477855 \times 10^{-7}\,{\it t_{46}}\,{\it t_{47}}
5063C>    -2.719683267627703 \times 10^{-6}\,{\it t_{44}}\,{\it t_{45}}
5064C>    +5.955909787676884 \times 10^{-5}\,{\it t_{42}}\,{\it t_{43}}
5065C>    -0.001383706469760652\,{\it t_{40}}\,{\it t_{41}}
5066C>    +0.02342799068769956\,{\it t_{37}}\,{\it t_{39}}
5067C>    -0.2053293313026446\,{\it t_{36}}\,\sigma_{\beta\beta}
5068C>    +{{0.6841322473346062\,{\it t_{38}}}\over{{\it t_{35}}}}
5069C>    +1.0}}\\\\
5070C>   {\it t_{50}} &=& 0.01645530784602056\,{\it t_{36}}\,
5071C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}\\\\
5072C>   {\it t_{51}} &=& {\it t_{50}}+0.60965\\\\
5073C>   {\it t_{52}} &=& 0.06934448603031025\,{\it t_{36}}\,
5074C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}
5075C>    +{{0.005136628594837796\,{\it t_{36}}\,
5076C>    \sigma_{\beta\beta}}\over{0.00411382696150514\,{\it t_{36}}
5077C>    \,\sigma_{\beta\beta}+1.0}}+1.0\\\\
5078C>   {\it t_{53}} &=& {\it t_{51}}^{3.5}\\\\
5079C>   {\it t_{54}} &=& {\it t_{50}}+0.757211\\\\
5080C>   {\it t_{55}} &=& {{1}\over{\rho_\beta^{{{1}\over{3}}}}}\\\\
5081C>   {\it t_{56}} &=& {\it t_{50}}+0.06582123138408225\,\left({
5082C>    \it t_{21}}\,{\it t_{55}}\right)^{2.0}+0.60965\\\\
5083C>   {\it t_{57}} &=& {{1}\over{\sqrt{{\it t_{56}}}}}\\\\
5084C>   {\it t_{58}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{55}}
5085C>    \,{\it t_{57}}+1.0\\\\
5086C>   {\it t_{59}} &=& {\it t_{56}}\,{\it t_{58}}\\\\
5087C>   {\it t_{60}} &=& 0.2565564877060844\,{\it t_{21}}\,{
5088C>    \it t_{55}}\\\\
5089C>   {\it t_{61}} &=& {{0.06582123138408225\,{\it t_{28}}}
5090C>    \over{\rho_\beta^{{{2}\over{3}}}}}\\\\
5091C>   {\it t_{62}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}}\\\\
5092C>   {\it t_{63}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}+0.757211}\\\\
5093C>   {\it t_{64}} &=& {{1}\over{{\it t_{63}}+{\it t_{62}}}}\\\\
5094C>   {\it t_{65}} &=& \sqrt{{\it t_{50}}+{\it t_{61}}+0.60965}\\\\
5095C>   {\it t_{66}} &=& {{1}\over{{\it t_{65}}+{\it t_{60}}}}\\\\
5096C>   {\it t_{67}} &=& \rho_s^{{{4}\over{3}}}\\\\
5097C>   {\it t_{68}} &=& {{1}\over{\rho_s^{{{8}\over{3}}}}}\\\\
5098C>   {\it t_{69}} &=& {{1}\over{\rho_s^4}}\\\\
5099C>   {\it t_{70}} &=& \sqrt{\sigma_{ss}}\\\\
5100C>   {\it t_{71}} &=& {\it t_{70}}^3\\\\
5101C>   {\it t_{72}} &=& {{1}\over{\rho_s^{{{16}\over{3}}}}}\\\\
5102C>   {\it t_{73}} &=& \sigma_{ss}^2\\\\
5103C>   {\it t_{74}} &=& {{1}\over{\rho_s^{{{20}\over{3}}}}}\\\\
5104C>   {\it t_{75}} &=& {\it t_{70}}^5\\\\
5105C>   {\it t_{76}} &=& {{1}\over{\rho_s^8}}\\\\
5106C>   {\it t_{77}} &=& \sigma_{ss}^3\\\\
5107C>   {\it t_{78}} &=& {{1}\over{\rho_s^{{{28}\over{3}}}}}\\\\
5108C>   {\it t_{79}} &=& {\it t_{70}}^7\\\\
5109C>   {\it t_{80}} &=& 2.41238302476954 \times 10^{-8}\,{\it t_{78}}
5110C>    \,{\it t_{79}}-4.327677396975467 \times 10^{-7}\,{\it t_{76}}
5111C>    \,{\it t_{77}}+5.3020963068324 \times 10^{-6}\,{\it t_{74}}
5112C>    \,{\it t_{75}}-4.342399100269002 \times 10^{-5}\,{\it t_{72}}
5113C>    \,{\it t_{73}}+1.800551313354082 \times 10^{-4}\,{\it t_{69}}
5114C>    \,{\it t_{71}}+2.631878392200375 \times 10^{-4}\,{\it t_{68}}
5115C>    \,\sigma_{ss}\\\\
5116C>   {\it t_{81}} &=& {{1}\over{{{3.149302550983647 \times 10^{-10}
5117C>    \,{\it t_{70}}^9}\over{\rho_s^{12}}}
5118C>    -{{5.649671283776346 \times 10^{-9}\,\sigma_{ss}^4}
5119C>    \over{\rho_s^{{{32}\over{3}}}}}+1.7578986477855 \times 10^{-7}
5120C>    \,{\it t_{78}}\,{\it t_{79}}-2.719683267627703 \times 10^{-6}
5121C>    \,{\it t_{76}}\,{\it t_{77}}+5.955909787676884 \times 10^{-5}
5122C>    \,{\it t_{74}}\,{\it t_{75}}-0.001383706469760652\,{
5123C>    \it t_{72}}\,{\it t_{73}}+0.02342799068769956\,{\it t_{69}}
5124C>    \,{\it t_{71}}-0.2053293313026446\,{\it t_{68}}\,\sigma_{ss}
5125C>    +{{0.6841322473346062\,{\it t_{70}}}\over{{\it t_{67}}}}
5126C>    +1.0}}\\\\
5127C>   {\it t_{82}} &=& 0.01645530784602056\,{\it t_{68}}\,\sigma_{ss}
5128C>    \,{\it t_{80}}\,{\it t_{81}}\\\\
5129C>   {\it t_{83}} &=& {\it t_{82}}+0.60965\\\\
5130C>   {\it t_{84}} &=& 0.06934448603031025\,{\it t_{68}}\,\sigma_{ss}
5131C>    \,{\it t_{80}}\,{\it t_{81}}+{{0.005136628594837796\,{
5132C>    \it t_{68}}\,\sigma_{ss}}\over{0.00411382696150514\,{
5133C>    \it t_{68}}\,\sigma_{ss}+1.0}}+1.0\\\\
5134C>   {\it t_{85}} &=& {\it t_{83}}^{3.5}\\\\
5135C>   {\it t_{86}} &=& {\it t_{82}}+0.757211\\\\
5136C>   {\it t_{87}} &=& {{1}\over{\rho_s^{{{1}\over{3}}}}}\\\\
5137C>   {\it t_{88}} &=& {\it t_{82}}+0.06582123138408225\,\left({
5138C>    \it t_{21}}\,{\it t_{87}}\right)^{2.0}+0.60965\\\\
5139C>   {\it t_{89}} &=& {{1}\over{\sqrt{{\it t_{88}}}}}\\\\
5140C>   {\it t_{90}} &=& 0.2565564877060844\,{\it t_{21}}\,{\it t_{87}}
5141C>    \,{\it t_{89}}+1.0\\\\
5142C>   {\it t_{91}} &=& {\it t_{88}}\,{\it t_{90}}\\\\
5143C>   {\it t_{92}} &=& 0.2565564877060844\,{\it t_{21}}\,{
5144C>    \it t_{87}}\\\\
5145C>   {\it t_{93}} &=& {{0.06582123138408225\,{\it t_{28}}}
5146C>    \over{\rho_s^{{{2}\over{3}}}}}\\\\
5147C>   {\it t_{94}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}}\\\\
5148C>   {\it t_{95}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}+0.757211}\\\\
5149C>   {\it t_{96}} &=& {{1}\over{{\it t_{95}}+{\it t_{94}}}}\\\\
5150C>   {\it t_{97}} &=& \sqrt{{\it t_{82}}+{\it t_{93}}+0.60965}\\\\
5151C>   {\it t_{98}} &=& {{1}\over{{\it t_{97}}+{\it t_{92}}}}\\\\
5152C>   f &=& -0.9305257363491\,{\it t_{35}}\,\left(-2.0\,{\it t_{54}}
5153C>    \,\log \left({{0.1475609999999999\,{\it t_{66}}}\over{{
5154C>    \it t_{63}}+{\it t_{65}}}}+1.0\right)+0.03291061569204112\,{
5155C>    \it t_{36}}\,\sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}
5156C>    \,\log \left(1.0-{{0.60965\,{\it t_{66}}}\over{{\it t_{65}}
5157C>    +{\it t_{62}}}}\right)+0.757211\,\left({{{\it t_{54}}\,{
5158C>    \it t_{64}}}\over{{\it t_{63}}+{\it t_{60}}}}
5159C>    +{{0.01645530784602056\,{\it t_{36}}\,\sigma_{\beta\beta}\,{
5160C>    \it t_{48}}\,{\it t_{49}}\,{\it t_{64}}}\over{{\it t_{62}}+{
5161C>    \it t_{60}}}}\right)+{{0.05273288888888888\,{\it t_{52}}
5162C>    \,\left(0.1282782438530422\,{\it t_{21}}\,{\it t_{55}}\,{
5163C>    \it t_{57}}+1.0\right)}\over{{\it t_{59}}^{2.0}}}
5164C>    +{{0.04727288888888889}\over{{\it t_{56}}\,{\it t_{58}}}}
5165C>    -{{0.8888888888888888\,\left(-2.4\,{\it t_{53}}\,
5166C>    \left(0.1282782438530422\,\sqrt{{\it t_{36}}\,
5167C>    \sigma_{\beta\beta}\,{\it t_{48}}\,{\it t_{49}}}-\sqrt{{
5168C>    \it t_{54}}}\right)-1.417963080724413\,{\it t_{53}}-0.9086532
5169C>    \,{\it t_{51}}^{3.0}+0.02836373333333333\,{\it t_{51}}^{2.0}
5170C>    +0.0474596\,{\it t_{51}}\,{\it t_{52}}\right)\,
5171C>    \left(0.02468296176903084\,\left({\it t_{21}}\,{\it t_{55}}
5172C>    \,{\it t_{57}}\right)^{2.0}+0.2886260486693449\,{\it t_{21}}
5173C>    \,{\it t_{55}}\,{\it t_{57}}+1.0\right)}\over{{
5174C>    \it t_{59}}^{3.0}}}-1.0\right)-0.9305257363491\,{\it t_1}
5175C>    \,\left(-2.0\,{\it t_{20}}\,\log \left({{0.1475609999999999
5176C>    \,{\it t_{34}}}\over{{\it t_{31}}+{\it t_{33}}}}+1.0\right)
5177C>    +0.03291061569204112\,{\it t_2}\,\sigma_{\alpha\alpha}\,{
5178C>    \it t_{14}}\,{\it t_{15}}\,\log \left(1.0-{{0.60965\,{
5179C>    \it t_{34}}}\over{{\it t_{33}}+{\it t_{30}}}}\right)+0.757211
5180C>    \,\left({{{\it t_{20}}\,{\it t_{32}}}\over{{\it t_{31}}+{
5181C>    \it t_{27}}}}+{{0.01645530784602056\,{\it t_2}\,
5182C>    \sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}\,{
5183C>    \it t_{32}}}\over{{\it t_{30}}+{\it t_{27}}}}\right)
5184C>    +{{0.05273288888888888\,{\it t_{18}}\,\left(0.1282782438530422
5185C>    \,{\it t_{21}}\,{\it t_{22}}\,{\it t_{24}}+1.0\right)}
5186C>    \over{{\it t_{26}}^{2.0}}}+{{0.04727288888888889}\over{{
5187C>    \it t_{23}}\,{\it t_{25}}}}-{{0.8888888888888888\,\left(-2.4
5188C>    \,{\it t_{19}}\,\left(0.1282782438530422\,\sqrt{{\it t_2}
5189C>    \,\sigma_{\alpha\alpha}\,{\it t_{14}}\,{\it t_{15}}}-\sqrt{{
5190C>    \it t_{20}}}\right)-1.417963080724413\,{\it t_{19}}-0.9086532
5191C>    \,{\it t_{17}}^{3.0}+0.02836373333333333\,{\it t_{17}}^{2.0}
5192C>    +0.0474596\,{\it t_{17}}\,{\it t_{18}}\right)\,
5193C>    \left(0.02468296176903084\,\left({\it t_{21}}\,{\it t_{22}}
5194C>    \,{\it t_{24}}\right)^{2.0}+0.2886260486693449\,{\it t_{21}}
5195C>    \,{\it t_{22}}\,{\it t_{24}}+1.0\right)}\over{{
5196C>    \it t_{26}}^{3.0}}}-1.0\right)\\\\
5197C>   g &=& 0\\\\
5198C>   G &=& -0.9305257363491\,{\it t_{67}}\,\left(-2.0\,{\it t_{86}}
5199C>    \,\log \left({{0.1475609999999999\,{\it t_{98}}}\over{{
5200C>    \it t_{95}}+{\it t_{97}}}}+1.0\right)+0.03291061569204112\,{
5201C>    \it t_{68}}\,\sigma_{ss}\,{\it t_{80}}\,{\it t_{81}}
5202C>    \,\log \left(1.0-{{0.60965\,{\it t_{98}}}\over{{\it t_{97}}
5203C>    +{\it t_{94}}}}\right)+0.757211\,\left({{{\it t_{86}}\,{
5204C>    \it t_{96}}}\over{{\it t_{95}}+{\it t_{92}}}}
5205C>    +{{0.01645530784602056\,{\it t_{68}}\,\sigma_{ss}\,{
5206C>    \it t_{80}}\,{\it t_{81}}\,{\it t_{96}}}\over{{\it t_{94}}+{
5207C>    \it t_{92}}}}\right)+{{0.05273288888888888\,{\it t_{84}}
5208C>    \,\left(0.1282782438530422\,{\it t_{21}}\,{\it t_{87}}\,{
5209C>    \it t_{89}}+1.0\right)}\over{{\it t_{91}}^{2.0}}}
5210C>    +{{0.04727288888888889}\over{{\it t_{88}}\,{\it t_{90}}}}
5211C>    -{{0.8888888888888888\,\left(-2.4\,{\it t_{85}}\,
5212C>    \left(0.1282782438530422\,\sqrt{{\it t_{68}}\,\sigma_{ss}\,{
5213C>    \it t_{80}}\,{\it t_{81}}}-\sqrt{{\it t_{86}}}\right)
5214C>    -1.417963080724413\,{\it t_{85}}-0.9086532\,{\it t_{83}}^{3.0}
5215C>    +0.02836373333333333\,{\it t_{83}}^{2.0}+0.0474596\,{
5216C>    \it t_{83}}\,{\it t_{84}}\right)\,\left(0.02468296176903084
5217C>    \,\left({\it t_{21}}\,{\it t_{87}}\,{\it t_{89}}\right)^{2.0}
5218C>    +0.2886260486693449\,{\it t_{21}}\,{\it t_{87}}\,{\it t_{89}}
5219C>    +1.0\right)}\over{{\it t_{91}}^{3.0}}}-1.0\right)\\\\
5220C> \f}
5221C>
5222C> Code generated with Maxima 5.34.0 [2]
5223C> driven by autoxc [3].
5224C>
5225C> ### References ###
5226C>
5227C> [1] E Weintraub, TM Henderson, GE Scuseria
5228C>    , J.Chem.Theory.Comput. 5, 754 (2009)  , DOI:
5229C> <a href="https://doi.org/10.1021/ct800530u ">
5230C> 10.1021/ct800530u </a>
5231C>
5232C> [2] Maxima, a computer algebra system,
5233C> <a href="http://maxima.sourceforge.net/">
5234C> http://maxima.sourceforge.net/</a>
5235C>
5236C> [3] autoxc, revision 27097 2015-05-08
5237C>
5238      subroutine nwxcm_x_wpbe_d3(param,tol_rho,ipol,nq,wght,
5239     +rho,rgamma,fnc,Amat,Amat2,Amat3,
5240     +Cmat,Cmat2,Cmat3)
5241c $Id: $
5242#ifdef NWXC_QUAD_PREC
5243      implicit real(kind=selected_real_kind(30))(a-h,o-z),integer(i-n)
5244      integer, parameter :: rk=selected_real_kind(30)
5245#else
5246      implicit real(kind=selected_real_kind(15))(a-h,o-z),integer(i-n)
5247      integer, parameter :: rk=selected_real_kind(15)
5248#endif
5249#include "nwxc_param.fh"
5250      double precision param(*)     !< [Input] Parameters of functional
5251      double precision tol_rho      !< [Input] The lower limit on the density
5252      integer ipol                  !< [Input] The number of spin channels
5253      integer nq                    !< [Input] The number of points
5254      double precision wght         !< [Input] The weight of the functional
5255      double precision rho(nq,*)    !< [Input] The density
5256      double precision rgamma(nq,*) !< [Input] The norm of the density
5257                                    !< gradients
5258      double precision fnc(nq)      !< [Output] The value of the functional
5259c
5260c     Sampling Matrices for the XC Kernel
5261c
5262      double precision Amat(nq,*)   !< [Output] The derivative wrt rho
5263      double precision Cmat(nq,*)   !< [Output] The derivative wrt rgamma
5264c
5265c     Sampling Matrices for the XC Kernel
5266c
5267      double precision Amat2(nq,*)  !< [Output] The 2nd derivative wrt rho
5268      double precision Cmat2(nq,*)  !< [Output] The 2nd derivative wrt rgamma
5269                                    !< and possibly rho
5270c
5271c     Sampling Matrices for the XC Kernel
5272c
5273      double precision Amat3(nq,*)  !< [Output] The 3rd derivative wrt rho
5274      double precision Cmat3(nq,*)  !< [Output] The 3rd derivative wrt rgamma
5275                                    !< and possibly rho
5276      integer iq
5277      double precision tmp
5278      double precision rhoa,rhob
5279      double precision gammaaa,gammaab,gammabb
5280      double precision taua,taub
5281      double precision nwxcm_heaviside
5282      external         nwxcm_heaviside
5283CDIR$ NOVECTOR
5284      do iq = 1, nq
5285        if (ipol.eq.1) then
5286          rhoa    = 0.5d0*rho(iq,R_T)
5287          gammaaa = 0.25d0*rgamma(iq,G_TT)
5288          if (rhoa.gt.tol_rho) then
5289            t1 = param(1)
5290            t2 = rhoa**3.333333333333333d-1
5291            t3 = 1/t2
5292            t4 = gammaaa**5.0d-1
5293            t5 = t4**7
5294            t6 = 1/rhoa**9.333333333333333d+0
5295            t7 = gammaaa**3
5296            t8 = 1/rhoa**8
5297            t9 = t4**5
5298            t10 = 1/rhoa**6.666666666666667d+0
5299            t11 = gammaaa**2
5300            t12 = 1/rhoa**5.333333333333333d+0
5301            t13 = t4**3
5302            t14 = 1/rhoa**4
5303            t15 = 1/rhoa**2.6666666666666666d+0
5304            t16 = 5.3020963068324d-6*t10*t9-4.327677396975467d-7*t7*t8+2
5305     1         .4123830247695402d-8*t5*t6+2.631878392200375d-4*gammaaa*t
5306     2         15+1.8005513133540818d-4*t13*t14-4.342399100269002d-5*t11
5307     3         *t12
5308            t17 = t4**9
5309            t18 = 1/rhoa**12
5310            t19 = gammaaa**4
5311            t20 = 1/rhoa**1.0666666666666666d+1
5312            t21 = rhoa**1.3333333333333333d+0
5313            t22 = 1/t21
5314            t23 = 5.955909787676884d-5*t10*t9-2.7196832676277033d-6*t7*t
5315     1         8+1.7578986477855002d-7*t5*t6+6.841322473346062d-1*t22*t4
5316     2         -5.649671283776346d-9*t19*t20+3.149302550983647d-10*t17*t
5317     3         18-2.0532933130264455d-1*gammaaa*t15+2.342799068769956d-2
5318     4         *t13*t14-1.3837064697606524d-3*t11*t12+1.0d+0
5319            t24 = 1/t23
5320            t25 = 1.6455307846020562d-2*gammaaa*t15*t16*t24
5321            t26 = 6.582123138408225d-2*(t1*t3)**2.0d+0+t25+6.0965d-1
5322            t27 = 1/t26
5323            t28 = t26**5.0d-1
5324            t29 = 1/t28
5325            t30 = 2.565564877060844d-1*t1*t29*t3+1.0d+0
5326            t31 = 1/t30
5327            t32 = 4.1138269615051404d-3*gammaaa*t15+1.0d+0
5328            t33 = 1/t32
5329            t34 = 5.136628594837797d-3*gammaaa*t15*t33+6.934448603031025
5330     1         d-2*gammaaa*t15*t16*t24+1.0d+0
5331            t35 = 1.282782438530422d-1*t1*t29*t3+1.0d+0
5332            t36 = t26*t30
5333            t37 = 1/t36**2.0d+0
5334            t38 = t1**2
5335            t39 = 1/rhoa**6.666666666666666d-1
5336            t40 = 6.582123138408225d-2*t38*t39
5337            t41 = t40+t25
5338            t42 = t41**5.0d-1
5339            t43 = t40+t25+6.0965d-1
5340            t44 = t43**5.0d-1
5341            t45 = t44+t42
5342            t46 = 1/t45
5343            t47 = 2.565564877060844d-1*t1*t3
5344            t48 = t47+t44
5345            t49 = 1/t48
5346            t50 = 1.0d+0-6.0965d-1*t46*t49
5347            t51 = log(t50)
5348            t52 = t40+t25+7.57211d-1
5349            t53 = t52**5.0d-1
5350            t54 = t53+t44
5351            t55 = 1/t54
5352            t56 = 1.475609999999999d-1*t49*t55+1.0d+0
5353            t57 = log(t56)
5354            t58 = t25+7.57211d-1
5355            t59 = t53+t42
5356            t60 = 1/t59
5357            t61 = t53+t47
5358            t62 = 1/t61
5359            t63 = t47+t42
5360            t64 = 1/t63
5361            t65 = t25+6.0965d-1
5362            t66 = t65**2.0d+0
5363            t67 = t65**3.5d+0
5364            t68 = (gammaaa*t15*t16*t24)**5.0d-1
5365            t69 = t58**5.0d-1
5366            t70 = 1.282782438530422d-1*t68-t69
5367            t71 = -2.4d+0*t67*t70-1.417963080724413d+0*t67+2.83637333333
5368     1         3333d-2*t66-9.086532d-1*t65**3.0d+0+4.7459599999999996d-2
5369     2         *t34*t65
5370            t72 = 1/t36**3.0d+0
5371            t73 = 2.4682961769030842d-2*(t1*t29*t3)**2.0d+0+2.8862604866
5372     1         934494d-1*t1*t29*t3+1.0d+0
5373            t74 = -8.888888888888888d-1*t71*t72*t73+7.57211d-1*(1.645530
5374     1         7846020562d-2*gammaaa*t15*t16*t24*t60*t64+t58*t60*t62)-2.
5375     2         0d+0*t57*t58+3.2910615692041123d-2*gammaaa*t15*t16*t24*t5
5376     3         1+5.273288888888887d-2*t34*t35*t37+4.727288888888889d-2*t
5377     4         27*t31-1.0d+0
5378            t75 = 1/t26**2
5379            t76 = 1/rhoa**3.6666666666666664d+0
5380            t77 = -4.38808209227215d-2*gammaaa*t16*t24*t76
5381            t78 = 1/rhoa**13
5382            t79 = 1/rhoa**1.1666666666666665d+1
5383            t80 = 1/rhoa**1.0333333333333333d+1
5384            t81 = 1/rhoa**9
5385            t82 = 1/rhoa**7.666666666666667d+0
5386            t83 = 1/rhoa**6.333333333333333d+0
5387            t84 = 1/rhoa**5
5388            t85 = 1/rhoa**2.3333333333333334d+0
5389            t86 = -3.970606525117923d-4*t82*t9-9.121763297794749d-1*t4*t
5390     1         85-9.371196275079824d-2*t13*t84+7.379767838723479d-3*t11*
5391     2         t83+2.1757466141021625d-5*t7*t81-1.6407054045998d-6*t5*t8
5392     3         0+6.026316036028103d-8*t19*t79-3.7791630611803767d-9*t17*
5393     4         t78+5.475448834737188d-1*gammaaa*t76
5394            t87 = 1/t23**2
5395            t88 = -1.6455307846020562d-2*gammaaa*t15*t16*t86*t87
5396            t89 = -3.5347308712216d-5*t82*t9-7.202205253416327d-4*t13*t8
5397     1         4+2.3159461868101344d-4*t11*t83+3.462141917580374d-6*t7*t
5398     2         81-2.2515574897849044d-7*t5*t80-7.018342379201d-4*gammaaa
5399     3         *t76
5400            t90 = 1.6455307846020562d-2*gammaaa*t15*t24*t89
5401            t91 = 1/rhoa**1.6666666666666669d+0
5402            t92 = -4.38808209227215d-2*t38*t91+t90+t88+t77
5403            t93 = 1/t32**2
5404            t94 = 5.634986987915197d-5*t11*t83*t93+6.934448603031025d-2*
5405     1         gammaaa*t15*t24*t89-6.934448603031025d-2*gammaaa*t15*t16*
5406     2         t86*t87-1.369767625290079d-2*gammaaa*t33*t76-1.8491862941
5407     3         416065d-1*gammaaa*t16*t24*t76
5408            t95 = 1/t44
5409            t96 = 5.0d-1*t92*t95
5410            t97 = -8.551882923536147d-2*t1*t22
5411            t98 = t97+t96
5412            t99 = 1/t48**2
5413            t100 = 1/t42
5414            t101 = 5.0d-1*t100*t92
5415            t102 = t96+t101
5416            t103 = 1/t45**2
5417            t104 = 6.0965d-1*t46*t98*t99+6.0965d-1*t102*t103*t49
5418            t105 = 1/t50
5419            t106 = t90+t88+t77
5420            t107 = 1/t53
5421            t108 = 5.0d-1*t107*t92
5422            t109 = t96+t108
5423            t110 = 1/t54**2
5424            t111 = -1.475609999999999d-1*t55*t98*t99-1.475609999999999d-
5425     1         1*t109*t110*t49
5426            t112 = 1/t56
5427            t113 = t97+t108
5428            t114 = 1/t61**2
5429            t115 = t108+t101
5430            t116 = 1/t59**2
5431            t117 = t97+t101
5432            t118 = 1/t63**2
5433            t119 = t65**2.5d+0
5434            t120 = 1/t69
5435            t121 = 1/t68
5436            t122 = gammaaa*t15*t24*t89-gammaaa*t15*t16*t86*t87-2.6666666
5437     1         666666666d+0*gammaaa*t16*t24*t76
5438            t123 = 6.41391219265211d-2*t121*t122-5.0d-1*t106*t120
5439            t124 = 4.7459599999999996d-2*t65*t94-8.400000000000001d+0*t1
5440     1         06*t119*t70-2.4d+0*t123*t67-2.7259596d+0*t106*t66+5.67274
5441     2         6666666666d-2*t106*t65+4.7459599999999996d-2*t106*t34-4.9
5442     3         628707825354457d+0*t106*t119
5443            t125 = 1/t30**2
5444            t126 = 1/t28**3
5445            t127 = -1.282782438530422d-1*t1*t126*t3*t92-8.55188292353614
5446     1         7d-2*t1*t22*t29
5447            t128 = -6.41391219265211d-2*t1*t126*t3*t92-4.275941461768073
5448     1         5d-2*t1*t22*t29
5449            t129 = -5.0d-1*t1*t126*t3*t92-3.333333333333333d-1*t1*t22*t2
5450     1         9
5451            t130 = -1.4431302433467247d-1*t1*t126*t3*t92+4.9365923538061
5452     1         685d-2*t1*t129*t29*t3-9.620868288978164d-2*t1*t22*t29
5453            t131 = t30*t92+t127*t26
5454            t132 = 1/t36**4.0d+0
5455            t133 = 5.273288888888887d-2*t35*t37*t94-4.727288888888889d-2
5456     1         *t31*t75*t92+7.57211d-1*(1.6455307846020562d-2*gammaaa*t1
5457     2         5*t24*t60*t64*t89-1.6455307846020562d-2*gammaaa*t15*t16*t
5458     3         60*t64*t86*t87-4.38808209227215d-2*gammaaa*t16*t24*t60*t6
5459     4         4*t76-1.6455307846020562d-2*gammaaa*t115*t116*t15*t16*t24
5460     5         *t64+t106*t60*t62-t115*t116*t58*t62-t113*t114*t58*t60-1.6
5461     6         455307846020562d-2*gammaaa*t117*t118*t15*t16*t24*t60)+3.2
5462     7         910615692041123d-2*gammaaa*t15*t24*t51*t89-3.291061569204
5463     8         1123d-2*gammaaa*t15*t16*t51*t86*t87-8.7761641845443d-2*ga
5464     9         mmaaa*t16*t24*t51*t76-8.888888888888888d-1*t124*t72*t73+2
5465     :         .6666666666666666d+0*t131*t132*t71*t73-8.888888888888888d
5466     ;         -1*t130*t71*t72-1.0546577777777776d-1*t131*t34*t35*t72-2.
5467     <         0d+0*t111*t112*t58-2.0d+0*t106*t57+5.273288888888887d-2*t
5468     =         128*t34*t37-4.727288888888889d-2*t125*t127*t27+3.29106156
5469     >         92041123d-2*gammaaa*t104*t105*t15*t16*t24
5470            t134 = 1/t4
5471            t135 = 6.15264526724925d-7*t6*t9-8.159049802883108d-6*t11*t8
5472     1         -2.2598685135105387d-8*t20*t7+1.4171861479426412d-9*t18*t
5473     2         5+3.514198603154934d-2*t14*t4+3.420661236673031d-1*t134*t
5474     3         22-2.0532933130264455d-1*t15+1.488977446919221d-4*t10*t13
5475     4         -2.767412939521305d-3*gammaaa*t12
5476            t136 = 8.443340586693391d-8*t6*t9-1.2983032190926402d-6*t11*
5477     1         t8+2.7008269700311227d-4*t14*t4+2.631878392200375d-4*t15+
5478     2         1.3255240767081d-5*t10*t13-8.684798200538004d-5*gammaaa*t
5479     3         12
5480            t137 = -1.6455307846020562d-2*gammaaa*t135*t15*t16*t87+1.645
5481     1         5307846020562d-2*t15*t16*t24+1.6455307846020562d-2*gammaa
5482     2         a*t136*t15*t24
5483            t138 = -4.727288888888889d-2*t137*t31*t75
5484            t139 = -2.113120120468199d-5*gammaaa*t12*t93-6.9344486030310
5485     1         25d-2*gammaaa*t135*t15*t16*t87+5.136628594837797d-3*t15*t
5486     2         33+6.934448603031025d-2*t15*t16*t24+6.934448603031025d-2*
5487     3         gammaaa*t136*t15*t24
5488            t140 = 5.273288888888887d-2*t139*t35*t37
5489            t141 = -3.2910615692041123d-2*gammaaa*t135*t15*t16*t51*t87
5490            t142 = 5.0d-1*t100*t137
5491            t143 = 5.0d-1*t137*t95
5492            t144 = t143+t142
5493            t145 = 3.04825d-1*t137*t46*t95*t99+6.0965d-1*t103*t144*t49
5494            t146 = 3.2910615692041123d-2*gammaaa*t105*t145*t15*t16*t24
5495            t147 = 3.2910615692041123d-2*t16*t51+3.2910615692041123d-2*g
5496     1         ammaaa*t136*t51
5497            t148 = -2.0d+0*t137*t57
5498            t149 = 5.0d-1*t107*t137
5499            t150 = t149+t143
5500            t151 = -7.378049999999994d-2*t137*t55*t95*t99-1.475609999999
5501     1         999d-1*t110*t150*t49
5502            t152 = -2.0d+0*t112*t151*t58
5503            t153 = t149+t142
5504            t154 = 7.57211d-1*(-1.6455307846020562d-2*gammaaa*t135*t15*t
5505     1         16*t60*t64*t87+1.6455307846020562d-2*t15*t16*t24*t60*t64+
5506     2         1.6455307846020562d-2*gammaaa*t136*t15*t24*t60*t64-1.6455
5507     3         307846020562d-2*gammaaa*t116*t15*t153*t16*t24*t64+t137*t6
5508     4         0*t62-t116*t153*t58*t62-5.0d-1*t107*t114*t137*t58*t60-8.2
5509     5         27653923010281d-3*gammaaa*t100*t118*t137*t15*t16*t24*t60)
5510            t155 = 1/t28**5
5511            t156 = 6.064083168526658d-3*t1*t125*t137*t155*t3
5512            t157 = -3.3822411899821336d-3*t1*t126*t137*t3*t34*t37
5513            t158 = t137*t30-1.282782438530422d-1*t1*t137*t29*t3
5514            t159 = 2.6666666666666666d+0*t132*t158*t71*t73
5515            t160 = -2.4682961769030842d-2*t137*t38*t39*t75-1.44313024334
5516     1         67247d-1*t1*t126*t137*t3
5517            t161 = -gammaaa*t135*t15*t16*t87+t15*t16*t24+gammaaa*t136*t1
5518     1         5*t24
5519            t162 = 6.41391219265211d-2*t121*t161-5.0d-1*t120*t137
5520            t163 = -8.400000000000001d+0*t119*t137*t70-2.4d+0*t162*t67-2
5521     1         .7259596d+0*t137*t66+4.7459599999999996d-2*t139*t65+5.672
5522     2         746666666666d-2*t137*t65+4.7459599999999996d-2*t137*t34-4
5523     3         .9628707825354457d+0*t119*t137
5524            t164 = -8.888888888888888d-1*t163*t73-8.888888888888888d-1*t
5525     1         160*t71-1.0546577777777776d-1*t158*t34*t35
5526            t165 = 1/rhoa**4.666666666666667d+0
5527            t166 = 1.6089634338331216d-1*gammaaa*t16*t165*t24
5528            t167 = 8.7761641845443d-2*gammaaa*t16*t76*t86*t87
5529            t168 = -8.7761641845443d-2*gammaaa*t24*t76*t89
5530            t169 = t86**2
5531            t170 = 1/t23**3
5532            t171 = 3.2910615692041123d-2*gammaaa*t15*t16*t169*t170
5533            t172 = 1/rhoa**14
5534            t173 = 1/rhoa**1.2666666666666665d+1
5535            t174 = 1/rhoa**1.1333333333333334d+1
5536            t175 = 1/rhoa**10
5537            t176 = 1/rhoa**8.666666666666666d+0
5538            t177 = 1/rhoa**7.333333333333333d+0
5539            t178 = 1/rhoa**6
5540            t179 = 1/rhoa**3.3333333333333337d+0
5541            t180 = 3.0441316692570747d-3*t176*t9-1.9581719526919464d-4*t
5542     1         175*t7+1.695395584753127d-5*t174*t5+2.1284114361521084d+0
5543     2         *t179*t4-7.030702042032786d-7*t173*t19+4.685598137539912d
5544     3         -1*t13*t178-4.6738529645248705d-2*t11*t177+4.912911979534
5545     4         4894d-8*t17*t172-2.0076645727369685d+0*gammaaa*t165
5546            t181 = -1.6455307846020562d-2*gammaaa*t15*t16*t180*t87
5547            t182 = -3.2910615692041123d-2*gammaaa*t15*t86*t87*t89
5548            t183 = 2.709960334603227d-4*t176*t9-3.115927725822337d-5*t17
5549     1         5*t7+2.326609406111068d-6*t174*t5+3.6011026267081636d-3*t
5550     2         13*t178-1.466765918313085d-3*t11*t177+2.5733922057070335d
5551     3         -3*gammaaa*t165
5552            t184 = 1.6455307846020562d-2*gammaaa*t15*t183*t24
5553            t185 = 7.313470153786916d-2*t15*t38+t184+t182+t181+t171+t168
5554     1         +t167+t166
5555            t186 = 1/t26**3
5556            t187 = t92**2
5557            t188 = 1/t32**3
5558            t189 = -5.071488289123677d-4*t11*t177*t93-1.386889720606205d
5559     1         -1*gammaaa*t15*t86*t87*t89-3.698372588283213d-1*gammaaa*t
5560     2         24*t76*t89+3.698372588283213d-1*gammaaa*t16*t76*t86*t87-6
5561     3         .934448603031025d-2*gammaaa*t15*t16*t180*t87+1.2363392745
5562     4         928628d-6*t175*t188*t7+5.02248129273029d-2*gammaaa*t165*t
5563     5         33+6.934448603031025d-2*gammaaa*t15*t183*t24+6.7803497451
5564     6         85891d-1*gammaaa*t16*t165*t24+1.386889720606205d-1*gammaa
5565     7         a*t15*t16*t169*t170
5566            t190 = 1/t30**3
5567            t191 = t127**2
5568            t192 = t131**2
5569            t193 = 1/t36**5.0d+0
5570            t194 = t104**2
5571            t195 = 1/t50**2
5572            t196 = t98**2
5573            t197 = 1/t48**3
5574            t198 = 1/t44**3
5575            t199 = -2.5d-1*t187*t198
5576            t200 = 5.0d-1*t185*t95
5577            t201 = 1.1402510564714863d-1*t1*t85
5578            t202 = t201+t200+t199
5579            t203 = t102**2
5580            t204 = 1/t45**3
5581            t205 = 1/t42**3
5582            t206 = -2.5d-1*t187*t205
5583            t207 = 5.0d-1*t100*t185
5584            t208 = t207+t206+t200+t199
5585            t209 = -1.2193000000000001d+0*t102*t103*t98*t99+6.0965d-1*t2
5586     1         02*t46*t99+6.0965d-1*t103*t208*t49-1.2193000000000001d+0*
5587     2         t203*t204*t49-1.2193000000000001d+0*t196*t197*t46
5588            t210 = t184+t182+t181+t171+t168+t167+t166
5589            t211 = t111**2
5590            t212 = 1/t56**2
5591            t213 = t109**2
5592            t214 = 1/t54**3
5593            t215 = 1/t53**3
5594            t216 = -2.5d-1*t187*t215
5595            t217 = 5.0d-1*t107*t185
5596            t218 = t217+t216+t200+t199
5597            t219 = 2.951219999999998d-1*t109*t110*t98*t99-1.475609999999
5598     1         999d-1*t202*t55*t99+2.951219999999998d-1*t196*t197*t55-1.
5599     2         475609999999999d-1*t110*t218*t49+2.951219999999998d-1*t21
5600     3         3*t214*t49
5601            t220 = t113**2
5602            t221 = 1/t61**3
5603            t222 = t217+t216+t201
5604            t223 = t115**2
5605            t224 = 1/t59**3
5606            t225 = t217+t216+t207+t206
5607            t226 = t117**2
5608            t227 = 1/t63**3
5609            t228 = t207+t206+t201
5610            t229 = t106**2
5611            t230 = t65**1.5d+0
5612            t231 = 1/t68**3
5613            t232 = t122**2
5614            t233 = 1/t69**3
5615            t234 = -2*gammaaa*t15*t86*t87*t89-5.333333333333333d+0*gamma
5616     1         aa*t24*t76*t89+5.333333333333333d+0*gammaaa*t16*t76*t86*t
5617     2         87-gammaaa*t15*t16*t180*t87+gammaaa*t15*t183*t24+9.777777
5618     3         777777779d+0*gammaaa*t16*t165*t24+2*gammaaa*t15*t16*t169*
5619     4         t170
5620            t235 = 6.41391219265211d-2*t121*t234+2.5d-1*t229*t233-3.2069
5621     1         56096326055d-2*t231*t232-5.0d-1*t120*t210
5622            t236 = 9.491919999999999d-2*t106*t94-2.1d+1*t229*t230*t70-8.
5623     1         400000000000001d+0*t119*t210*t70-2.4d+0*t235*t67-2.725959
5624     2         6d+0*t210*t66-5.4519192d+0*t229*t65+5.672746666666666d-2*
5625     3         t210*t65+4.7459599999999996d-2*t189*t65+4.745959999999999
5626     4         6d-2*t210*t34-1.2407176956338616d+1*t229*t230+5.672746666
5627     5         666666d-2*t229-4.9628707825354457d+0*t119*t210-1.68d+1*t1
5628     6         06*t119*t123
5629            t237 = 4.2759414617680735d-2*t1*t126*t22*t92+5.7012552823574
5630     1         31d-2*t1*t29*t85+9.620868288978166d-2*t1*t155*t187*t3-6.4
5631     2         1391219265211d-2*t1*t126*t185*t3
5632            t238 = 8.551882923536147d-2*t1*t126*t22*t92+1.14025105647148
5633     1         63d-1*t1*t29*t85+1.924173657795633d-1*t1*t155*t187*t3-1.2
5634     2         82782438530422d-1*t1*t126*t185*t3
5635            t239 = 3.333333333333333d-1*t1*t126*t22*t92+4.44444444444444
5636     1         4d-1*t1*t29*t85+7.5d-1*t1*t155*t187*t3-5.0d-1*t1*t126*t18
5637     2         5*t3
5638            t240 = 9.620868288978164d-2*t1*t126*t22*t92+1.28278243853042
5639     1         18d-1*t1*t29*t85+4.9365923538061685d-2*t1*t239*t29*t3+2.1
5640     2         64695365020087d-1*t1*t155*t187*t3-1.4431302433467247d-1*t
5641     3         1*t126*t185*t3+4.9365923538061685d-2*t129**2
5642            t241 = 2*t127*t92+t185*t30+t238*t26
5643            t242 = -2.109315555555555d-1*t131*t35*t72*t94+1.054657777777
5644     1         7776d-1*t128*t37*t94+9.454577777777778d-2*t125*t127*t75*t
5645     2         92+7.57211d-1*(-3.2910615692041123d-2*gammaaa*t15*t60*t64
5646     3         *t86*t87*t89-8.7761641845443d-2*gammaaa*t24*t60*t64*t76*t
5647     4         89-3.2910615692041123d-2*gammaaa*t115*t116*t15*t24*t64*t8
5648     5         9-3.2910615692041123d-2*gammaaa*t117*t118*t15*t24*t60*t89
5649     6         +8.7761641845443d-2*gammaaa*t16*t60*t64*t76*t86*t87+3.291
5650     7         0615692041123d-2*gammaaa*t115*t116*t15*t16*t64*t86*t87+3.
5651     8         2910615692041123d-2*gammaaa*t117*t118*t15*t16*t60*t86*t87
5652     9         -1.6455307846020562d-2*gammaaa*t15*t16*t180*t60*t64*t87+8
5653     :         .7761641845443d-2*gammaaa*t115*t116*t16*t24*t64*t76+8.776
5654     ;         1641845443d-2*gammaaa*t117*t118*t16*t24*t60*t76+1.6455307
5655     <         846020562d-2*gammaaa*t15*t183*t24*t60*t64+1.6089634338331
5656     =         216d-1*gammaaa*t16*t165*t24*t60*t64+3.2910615692041123d-2
5657     >         *gammaaa*t15*t16*t169*t170*t60*t64-1.6455307846020562d-2*
5658     ?         gammaaa*t116*t15*t16*t225*t24*t64+3.2910615692041123d-2*g
5659     @         ammaaa*t15*t16*t223*t224*t24*t64+t210*t60*t62-t116*t225*t
5660     1         58*t62+2*t223*t224*t58*t62-2*t106*t115*t116*t62-t114*t222
5661     2         *t58*t60+2*t220*t221*t58*t60-1.6455307846020562d-2*gammaa
5662     3         a*t118*t15*t16*t228*t24*t60+3.2910615692041123d-2*gammaaa
5663     4         *t15*t16*t226*t227*t24*t60-2*t106*t113*t114*t60+2*t113*t1
5664     5         14*t115*t116*t58+3.2910615692041123d-2*gammaaa*t115*t116*
5665     6         t117*t118*t15*t16*t24)-6.582123138408225d-2*gammaaa*t15*t
5666     7         51*t86*t87*t89-1.75523283690886d-1*gammaaa*t24*t51*t76*t8
5667     8         9+6.582123138408225d-2*gammaaa*t104*t105*t15*t24*t89+1.75
5668     9         523283690886d-1*gammaaa*t16*t51*t76*t86*t87-6.58212313840
5669     :         8225d-2*gammaaa*t104*t105*t15*t16*t86*t87-3.2910615692041
5670     ;         123d-2*gammaaa*t15*t16*t180*t51*t87-1.75523283690886d-1*g
5671     <         ammaaa*t104*t105*t16*t24*t76-4.727288888888889d-2*t185*t3
5672     =         1*t75-8.888888888888888d-1*t236*t72*t73+2.666666666666666
5673     >         6d+0*t132*t241*t71*t73-1.0666666666666666d+1*t192*t193*t7
5674     ?         1*t73+5.333333333333333d+0*t124*t131*t132*t73-8.888888888
5675     @         888888d-1*t240*t71*t72-1.0546577777777776d-1*t241*t34*t35
5676     1         *t72-2.109315555555555d-1*t128*t131*t34*t72-1.77777777777
5677     2         77776d+0*t124*t130*t72+5.333333333333333d+0*t130*t131*t13
5678     3         2*t71-2.0d+0*t112*t219*t58+2.0d+0*t211*t212*t58-2.0d+0*t2
5679     4         10*t57+3.2910615692041123d-2*gammaaa*t15*t183*t24*t51+3.2
5680     5         17926867666243d-1*gammaaa*t16*t165*t24*t51+6.582123138408
5681     6         225d-2*gammaaa*t15*t16*t169*t170*t51+5.273288888888887d-2
5682     7         *t189*t35*t37+5.273288888888887d-2*t237*t34*t37+3.1639733
5683     8         333333325d-1*t132*t192*t34*t35+9.454577777777778d-2*t186*
5684     9         t187*t31-4.727288888888889d-2*t125*t238*t27+9.45457777777
5685     :         7778d-2*t190*t191*t27+3.2910615692041123d-2*gammaaa*t105*
5686     ;         t15*t16*t209*t24-3.2910615692041123d-2*gammaaa*t15*t16*t1
5687     <         94*t195*t24-4.0d+0*t106*t111*t112
5688            t243 = -8.888888888888888d-1*t163*t72*t73-8.888888888888888d
5689     1         -1*t160*t71*t72-1.0546577777777776d-1*t158*t34*t35*t72+3.
5690     2         2910615692041123d-2*t15*t16*t24*t51+3.2910615692041123d-2
5691     3         *gammaaa*t136*t15*t24*t51+t159+t157+t156+t154+t152+t148+t
5692     4         146+t141+t140+t138
5693            t244 = -5.742468916099301d-6*t80*t9-4.5608816488973747d-1*t1
5694     1         34*t85-1.4056794412619736d-1*t4*t84+1.4759535677446958d-2
5695     2         *gammaaa*t83-9.926516312794808d-4*t13*t82+6.5272398423064
5696     3         87d-5*t11*t81+2.4105264144112412d-7*t7*t79-1.700623377531
5697     4         1694d-8*t5*t78+5.475448834737188d-1*t76
5698            t245 = -7.880451214247165d-7*t80*t9-1.0803307880124491d-3*t4
5699     1         *t84+4.631892373620269d-4*gammaaa*t83-8.836827178054d-5*t
5700     2         13*t82+1.0386425752741123d-5*t11*t81-7.018342379201d-4*t7
5701     3         6
5702            t246 = -1.6455307846020562d-2*gammaaa*t135*t15*t87*t89+1.645
5703     1         5307846020562d-2*t15*t24*t89-1.6455307846020562d-2*t15*t1
5704     2         6*t86*t87-1.6455307846020562d-2*gammaaa*t136*t15*t86*t87+
5705     3         4.38808209227215d-2*gammaaa*t135*t16*t76*t87-1.6455307846
5706     4         020562d-2*gammaaa*t15*t16*t244*t87+3.2910615692041123d-2*
5707     5         gammaaa*t135*t15*t16*t170*t86-4.38808209227215d-2*t16*t24
5708     6         *t76-4.38808209227215d-2*gammaaa*t136*t24*t76+1.645530784
5709     7         6020562d-2*gammaaa*t15*t24*t245
5710            t247 = 1.690496096374559d-4*gammaaa*t83*t93-6.93444860303102
5711     1         5d-2*gammaaa*t135*t15*t87*t89+6.934448603031025d-2*t15*t2
5712     2         4*t89-6.934448603031025d-2*t15*t16*t86*t87-6.934448603031
5713     3         025d-2*gammaaa*t136*t15*t86*t87+1.8491862941416065d-1*gam
5714     4         maaa*t135*t16*t76*t87-6.934448603031025d-2*gammaaa*t15*t1
5715     5         6*t244*t87+1.386889720606205d-1*gammaaa*t135*t15*t16*t170
5716     6         *t86-4.6362722797232353d-7*t11*t188*t81-1.369767625290079
5717     7         d-2*t33*t76-1.8491862941416065d-1*t16*t24*t76-1.849186294
5718     8         1416065d-1*gammaaa*t136*t24*t76+6.934448603031025d-2*gamm
5719     9         aaa*t15*t24*t245
5720            t248 = -2.5d-1*t137*t198*t92
5721            t249 = 5.0d-1*t246*t95
5722            t250 = t249+t248
5723            t251 = -2.5d-1*t137*t205*t92
5724            t252 = 5.0d-1*t100*t246
5725            t253 = t252+t251+t249+t248
5726            t254 = -6.0965d-1*t103*t144*t98*t99-3.04825d-1*t102*t103*t13
5727     1         7*t95*t99+6.0965d-1*t250*t46*t99-6.0965d-1*t137*t197*t46*
5728     2         t95*t98+6.0965d-1*t103*t253*t49-1.2193000000000001d+0*t10
5729     3         2*t144*t204*t49
5730            t255 = -2.5d-1*t137*t215*t92
5731            t256 = 5.0d-1*t107*t246
5732            t257 = t256+t255+t249+t248
5733            t258 = 1.475609999999999d-1*t110*t150*t98*t99+7.378049999999
5734     1         994d-2*t109*t110*t137*t95*t99-1.475609999999999d-1*t250*t
5735     2         55*t99+1.475609999999999d-1*t137*t197*t55*t95*t98-1.47560
5736     3         9999999999d-1*t110*t257*t49+2.951219999999998d-1*t109*t15
5737     4         0*t214*t49
5738            t259 = t256+t255
5739            t260 = t256+t255+t252+t251
5740            t261 = t252+t251
5741            t262 = 1/t28**7
5742            t263 = -gammaaa*t135*t15*t87*t89+t15*t24*t89-t15*t16*t86*t87
5743     1         -gammaaa*t136*t15*t86*t87+2.6666666666666666d+0*gammaaa*t
5744     2         135*t16*t76*t87-gammaaa*t15*t16*t244*t87+2*gammaaa*t135*t
5745     3         15*t16*t170*t86-2.6666666666666666d+0*t16*t24*t76-2.66666
5746     4         66666666666d+0*gammaaa*t136*t24*t76+gammaaa*t15*t24*t245
5747            t264 = 6.41391219265211d-2*t121*t263-5.0d-1*t120*t246+2.5d-1
5748     1         *t106*t137*t233-3.206956096326055d-2*t122*t161*t231
5749            t265 = 4.7459599999999996d-2*t137*t94-8.400000000000001d+0*t
5750     1         119*t246*t70-2.1d+1*t106*t137*t230*t70-2.4d+0*t264*t67-2.
5751     2         7259596d+0*t246*t66+4.7459599999999996d-2*t247*t65+5.6727
5752     3         46666666666d-2*t246*t65-5.4519192d+0*t106*t137*t65+4.7459
5753     4         599999999996d-2*t246*t34-4.9628707825354457d+0*t119*t246-
5754     5         1.2407176956338616d+1*t106*t137*t230-8.400000000000001d+0
5755     6         *t106*t119*t162+4.7459599999999996d-2*t106*t139-8.4000000
5756     7         00000001d+0*t119*t123*t137+5.672746666666666d-2*t106*t137
5757            t266 = 9.620868288978166d-2*t1*t137*t155*t3*t92-6.4139121926
5758     1         5211d-2*t1*t126*t246*t3+2.1379707308840368d-2*t1*t126*t13
5759     2         7*t22
5760            t267 = 1.924173657795633d-1*t1*t137*t155*t3*t92-1.2827824385
5761     1         30422d-1*t1*t126*t246*t3+4.2759414617680735d-2*t1*t126*t1
5762     2         37*t22
5763            t268 = 7.5d-1*t1*t137*t155*t3*t92-5.0d-1*t1*t126*t246*t3+1.6
5764     1         666666666666666d-1*t1*t126*t137*t22
5765            t269 = 2.164695365020087d-1*t1*t137*t155*t3*t92+4.9365923538
5766     1         061685d-2*t1*t268*t29*t3-1.4431302433467247d-1*t1*t126*t2
5767     2         46*t3-2.4682961769030842d-2*t1*t126*t129*t137*t3+4.810434
5768     3         144489082d-2*t1*t126*t137*t22
5769            t270 = -1.282782438530422d-1*t1*t126*t137*t3*t92+t246*t30+t2
5770     1         6*t267+t127*t137
5771            t271 = -1.0546577777777776d-1*t158*t35*t72*t94-3.38224118998
5772     1         21336d-3*t1*t126*t137*t3*t37*t94+9.454577777777778d-2*t13
5773     2         7*t186*t31*t92-6.064083168526658d-3*t1*t125*t137*t262*t3*
5774     3         t92+7.57211d-1*(-1.6455307846020562d-2*gammaaa*t135*t15*t
5775     4         60*t64*t87*t89+1.6455307846020562d-2*t15*t24*t60*t64*t89-
5776     5         1.6455307846020562d-2*gammaaa*t116*t15*t153*t24*t64*t89-8
5777     6         .227653923010281d-3*gammaaa*t100*t118*t137*t15*t24*t60*t8
5778     7         9-1.6455307846020562d-2*t15*t16*t60*t64*t86*t87-1.6455307
5779     8         846020562d-2*gammaaa*t136*t15*t60*t64*t86*t87+1.645530784
5780     9         6020562d-2*gammaaa*t116*t15*t153*t16*t64*t86*t87+8.227653
5781     :         923010281d-3*gammaaa*t100*t118*t137*t15*t16*t60*t86*t87+4
5782     ;         .38808209227215d-2*gammaaa*t135*t16*t60*t64*t76*t87-1.645
5783     <         5307846020562d-2*gammaaa*t15*t16*t244*t60*t64*t87+1.64553
5784     =         07846020562d-2*gammaaa*t115*t116*t135*t15*t16*t64*t87+1.6
5785     >         455307846020562d-2*gammaaa*t117*t118*t135*t15*t16*t60*t87
5786     ?         +3.2910615692041123d-2*gammaaa*t135*t15*t16*t170*t60*t64*
5787     @         t86-4.38808209227215d-2*t16*t24*t60*t64*t76-4.38808209227
5788     1         215d-2*gammaaa*t136*t24*t60*t64*t76+4.38808209227215d-2*g
5789     2         ammaaa*t116*t153*t16*t24*t64*t76+2.194041046136075d-2*gam
5790     3         maaa*t100*t118*t137*t16*t24*t60*t76+1.6455307846020562d-2
5791     4         *gammaaa*t15*t24*t245*t60*t64-1.6455307846020562d-2*gamma
5792     5         aa*t116*t15*t16*t24*t260*t64+3.2910615692041123d-2*gammaa
5793     6         a*t115*t15*t153*t16*t224*t24*t64-1.6455307846020562d-2*t1
5794     7         15*t116*t15*t16*t24*t64-1.6455307846020562d-2*gammaaa*t11
5795     8         5*t116*t136*t15*t24*t64+t246*t60*t62-t116*t260*t58*t62+2*
5796     9         t115*t153*t224*t58*t62-t106*t116*t153*t62-t115*t116*t137*
5797     :         t62-t114*t259*t58*t60+t107*t113*t137*t221*t58*t60-1.64553
5798     ;         07846020562d-2*gammaaa*t118*t15*t16*t24*t261*t60+1.645530
5799     <         7846020562d-2*gammaaa*t100*t117*t137*t15*t16*t227*t24*t60
5800     =         -1.6455307846020562d-2*t117*t118*t15*t16*t24*t60-1.645530
5801     >         7846020562d-2*gammaaa*t117*t118*t136*t15*t24*t60-t113*t11
5802     ?         4*t137*t60-5.0d-1*t106*t107*t114*t137*t60+t113*t114*t116*
5803     @         t153*t58+5.0d-1*t107*t114*t115*t116*t137*t58+1.6455307846
5804     1         020562d-2*gammaaa*t116*t117*t118*t15*t153*t16*t24+8.22765
5805     2         3923010281d-3*gammaaa*t100*t115*t116*t118*t137*t15*t16*t2
5806     3         4)-3.2910615692041123d-2*gammaaa*t135*t15*t51*t87*t89+3.2
5807     4         910615692041123d-2*t15*t24*t51*t89+3.2910615692041123d-2*
5808     5         gammaaa*t105*t145*t15*t24*t89-3.2910615692041123d-2*t15*t
5809     6         16*t51*t86*t87-3.2910615692041123d-2*gammaaa*t136*t15*t51
5810     7         *t86*t87-3.2910615692041123d-2*gammaaa*t105*t145*t15*t16*
5811     8         t86*t87+8.7761641845443d-2*gammaaa*t135*t16*t51*t76*t87-3
5812     9         .2910615692041123d-2*gammaaa*t15*t16*t244*t51*t87-3.29106
5813     :         15692041123d-2*gammaaa*t104*t105*t135*t15*t16*t87+6.58212
5814     ;         3138408225d-2*gammaaa*t135*t15*t16*t170*t51*t86-8.7761641
5815     <         845443d-2*t16*t24*t51*t76-8.7761641845443d-2*gammaaa*t136
5816     =         *t24*t51*t76-8.7761641845443d-2*gammaaa*t105*t145*t16*t24
5817     >         *t76-4.727288888888889d-2*t246*t31*t75+4.727288888888889d
5818     ?         -2*t125*t127*t137*t75-8.888888888888888d-1*t265*t72*t73+2
5819     @         .6666666666666666d+0*t132*t270*t71*t73-1.0666666666666666
5820     1         d+1*t131*t158*t193*t71*t73+2.6666666666666666d+0*t131*t13
5821     2         2*t163*t73+2.6666666666666666d+0*t124*t132*t158*t73-8.888
5822     3         888888888888d-1*t269*t71*t72-1.0546577777777776d-1*t270*t
5823     4         34*t35*t72-1.0546577777777776d-1*t131*t139*t35*t72+6.7644
5824     5         82379964267d-3*t1*t126*t131*t137*t3*t34*t72-1.05465777777
5825     6         77776d-1*t128*t158*t34*t72-8.888888888888888d-1*t130*t163
5826     7         *t72-8.888888888888888d-1*t124*t160*t72+2.666666666666666
5827     8         6d+0*t131*t132*t160*t71+2.6666666666666666d+0*t130*t132*t
5828     9         158*t71-2.0d+0*t112*t258*t58+2.0d+0*t111*t151*t212*t58-2.
5829     :         0d+0*t246*t57+3.2910615692041123d-2*gammaaa*t15*t24*t245*
5830     ;         t51+5.273288888888887d-2*t247*t35*t37+5.273288888888887d-
5831     <         2*t266*t34*t37+5.273288888888887d-2*t128*t139*t37+3.16397
5832     =         33333333325d-1*t131*t132*t158*t34*t35-1.2128166337053317d
5833     >         -2*t1*t127*t137*t155*t190*t3-4.727288888888889d-2*t125*t2
5834     ?         67*t27+3.2910615692041123d-2*gammaaa*t105*t15*t16*t24*t25
5835     @         4-3.2910615692041123d-2*gammaaa*t104*t145*t15*t16*t195*t2
5836     1         4+3.2910615692041123d-2*t104*t105*t15*t16*t24+3.291061569
5837     2         2041123d-2*gammaaa*t104*t105*t136*t15*t24-2.0d+0*t106*t11
5838     3         2*t151-2.0d+0*t111*t112*t137
5839            t272 = t137**2
5840            t273 = 9.454577777777778d-2*t186*t272*t31
5841            t274 = t135**2
5842            t275 = 1/t13
5843            t276 = 4.960151517799245d-9*t18*t9-1.6318099605766218d-5*gam
5844     1         maaa*t8+1.5381613168123123d-6*t13*t6+2.2334661703788317d-
5845     2         4*t10*t4-1.7103306183365155d-1*t22*t275-6.779605540531617
5846     3         d-8*t11*t20+1.757099301577467d-2*t134*t14-2.7674129395213
5847     4         05d-3*t12
5848            t277 = -2.5966064381852805d-6*gammaaa*t8+2.1108351466733477d
5849     1         -7*t13*t6+1.9882861150621498d-5*t10*t4+1.3504134850155614
5850     2         d-4*t134*t14-8.684798200538004d-5*t12
5851            t278 = -1.6455307846020562d-2*gammaaa*t15*t16*t276*t87-3.291
5852     1         0615692041123d-2*t135*t15*t16*t87-3.2910615692041123d-2*g
5853     2         ammaaa*t135*t136*t15*t87+1.6455307846020562d-2*gammaaa*t1
5854     3         5*t24*t277+3.2910615692041123d-2*gammaaa*t15*t16*t170*t27
5855     4         4+3.2910615692041123d-2*t136*t15*t24
5856            t279 = -4.727288888888889d-2*t278*t31*t75
5857            t280 = -4.226240240936398d-5*t12*t93-6.934448603031025d-2*ga
5858     1         mmaaa*t15*t16*t276*t87-1.386889720606205d-1*t135*t15*t16*
5859     2         t87-1.386889720606205d-1*gammaaa*t135*t136*t15*t87+1.7386
5860     3         021048962136d-7*gammaaa*t188*t8+6.934448603031025d-2*gamm
5861     4         aaa*t15*t24*t277+1.386889720606205d-1*gammaaa*t15*t16*t17
5862     5         0*t274+1.386889720606205d-1*t136*t15*t24
5863            t281 = 5.273288888888887d-2*t280*t35*t37
5864            t282 = t158**2
5865            t283 = -1.0666666666666666d+1*t193*t282*t71*t73
5866            t284 = 6.582123138408225d-2*gammaaa*t15*t16*t170*t274*t51
5867            t285 = -6.582123138408225d-2*gammaaa*t105*t135*t145*t15*t16*
5868     1         t87
5869            t286 = t145**2
5870            t287 = -3.2910615692041123d-2*gammaaa*t15*t16*t195*t24*t286
5871            t288 = 3.2910615692041123d-2*gammaaa*t277*t51+6.582123138408
5872     1         225d-2*t136*t51+3.2910615692041123d-2*t105*t145*t16+3.291
5873     2         0615692041123d-2*gammaaa*t105*t136*t145
5874            t289 = 1/t43
5875            t290 = t144**2
5876            t291 = -2.5d-1*t205*t272
5877            t292 = 5.0d-1*t100*t278
5878            t293 = -2.5d-1*t198*t272
5879            t294 = 5.0d-1*t278*t95
5880            t295 = t294+t293+t292+t291
5881            t296 = 3.04825d-1*t278*t46*t95*t99-6.0965d-1*t103*t137*t144*
5882     1         t95*t99-1.524125d-1*t198*t272*t46*t99+6.0965d-1*t103*t295
5883     2         *t49-1.2193000000000001d+0*t204*t290*t49-3.04825d-1*t197*
5884     3         t272*t289*t46
5885            t297 = 3.2910615692041123d-2*gammaaa*t16*t296+3.291061569204
5886     1         1123d-2*t145*t16+3.2910615692041123d-2*gammaaa*t136*t145
5887            t298 = -3.2910615692041123d-2*gammaaa*t16*t276*t51-3.2910615
5888     1         692041123d-2*t135*t16*t51-3.2910615692041123d-2*gammaaa*t
5889     2         135*t136*t51-t135*t147
5890            t299 = -2.0d+0*t278*t57
5891            t300 = t151**2
5892            t301 = 2.0d+0*t212*t300*t58
5893            t302 = 1/t52
5894            t303 = t153**2
5895            t304 = -2.5d-1*t215*t272
5896            t305 = 5.0d-1*t107*t278
5897            t306 = t305+t304+t292+t291
5898            t307 = 1/t41
5899            t308 = 7.57211d-1*(-1.6455307846020562d-2*gammaaa*t15*t16*t2
5900     1         76*t60*t64*t87-3.2910615692041123d-2*t135*t15*t16*t60*t64
5901     2         *t87-3.2910615692041123d-2*gammaaa*t135*t136*t15*t60*t64*
5902     3         t87+3.2910615692041123d-2*gammaaa*t116*t135*t15*t153*t16*
5903     4         t64*t87+1.6455307846020562d-2*gammaaa*t100*t118*t135*t137
5904     5         *t15*t16*t60*t87+1.6455307846020562d-2*gammaaa*t15*t24*t2
5905     6         77*t60*t64+3.2910615692041123d-2*gammaaa*t15*t16*t170*t27
5906     7         4*t60*t64+3.2910615692041123d-2*t136*t15*t24*t60*t64-1.64
5907     8         55307846020562d-2*gammaaa*t116*t15*t16*t24*t306*t64+3.291
5908     9         0615692041123d-2*gammaaa*t15*t16*t224*t24*t303*t64-3.2910
5909     :         615692041123d-2*t116*t15*t153*t16*t24*t64-3.2910615692041
5910     ;         123d-2*gammaaa*t116*t136*t15*t153*t24*t64+t278*t60*t62-t1
5911     <         16*t306*t58*t62+2*t224*t303*t58*t62-2*t116*t137*t153*t62+
5912     =         5.0d-1*t221*t272*t302*t58*t60-5.0d-1*t107*t114*t278*t58*t
5913     >         60+2.5d-1*t114*t215*t272*t58*t60+8.227653923010281d-3*gam
5914     ?         maaa*t15*t16*t227*t24*t272*t307*t60-8.227653923010281d-3*
5915     @         gammaaa*t100*t118*t15*t16*t24*t278*t60+4.1138269615051404
5916     1         d-3*gammaaa*t118*t15*t16*t205*t24*t272*t60-t107*t114*t272
5917     2         *t60-1.6455307846020562d-2*t100*t118*t137*t15*t16*t24*t60
5918     3         -1.6455307846020562d-2*gammaaa*t100*t118*t136*t137*t15*t2
5919     4         4*t60+t107*t114*t116*t137*t153*t58+1.6455307846020562d-2*
5920     5         gammaaa*t100*t116*t118*t137*t15*t153*t16*t24)
5921            t309 = t150**2
5922            t310 = t305+t304+t294+t293
5923            t311 = -7.378049999999994d-2*t278*t55*t95*t99+1.475609999999
5924     1         999d-1*t110*t137*t150*t95*t99+3.689024999999997d-2*t198*t
5925     2         272*t55*t99+7.378049999999994d-2*t197*t272*t289*t55-1.475
5926     3         609999999999d-1*t110*t310*t49+2.951219999999998d-1*t214*t
5927     4         309*t49
5928            t312 = -2.0d+0*t311*t58-4.0d+0*t137*t151
5929            t313 = 1/t26**4
5930            t314 = 1.5557798788747831d-3*t190*t272*t313*t38*t39
5931            t315 = -2.1224291089843306d-2*t1*t125*t262*t272*t3
5932            t316 = 6.064083168526658d-3*t1*t125*t155*t278*t3
5933            t317 = 5.0733617849732d-3*t1*t155*t272*t3*t34*t37
5934            t318 = -3.3822411899821336d-3*t1*t278*t34-6.764482379964267d
5935     1         -3*t1*t137*t139
5936            t319 = 6.764482379964267d-3*t1*t126*t137*t158*t3*t34
5937            t320 = -2.4682961769030842d-2*t278*t38*t39*t75+4.93659235380
5938     1         61685d-2*t186*t272*t38*t39-1.4431302433467247d-1*t1*t126*
5939     2         t278*t3+2.164695365020087d-1*t1*t155*t272*t3
5940            t321 = -8.888888888888888d-1*t320*t71
5941            t322 = -1.7777777777777776d+0*t160*t163
5942            t323 = t161**2
5943            t324 = -gammaaa*t15*t16*t276*t87-2*t135*t15*t16*t87-2*gammaa
5944     1         a*t135*t136*t15*t87+gammaaa*t15*t24*t277+2*gammaaa*t15*t1
5945     2         6*t170*t274+2*t136*t15*t24
5946            t325 = 6.41391219265211d-2*t121*t324-3.206956096326055d-2*t2
5947     1         31*t323-5.0d-1*t120*t278+2.5d-1*t233*t272
5948            t326 = -8.400000000000001d+0*t119*t278*t70-2.1d+1*t230*t272*
5949     1         t70-2.4d+0*t325*t67-2.7259596d+0*t278*t66+4.7459599999999
5950     2         996d-2*t280*t65+5.672746666666666d-2*t278*t65-5.4519192d+
5951     3         0*t272*t65+4.7459599999999996d-2*t278*t34-4.9628707825354
5952     4         457d+0*t119*t278-1.2407176956338616d+1*t230*t272+5.672746
5953     5         666666666d-2*t272-1.68d+1*t119*t137*t162+9.49191999999999
5954     6         9d-2*t137*t139
5955            t327 = -8.888888888888888d-1*t326*t73
5956            t328 = t278*t30-1.282782438530422d-1*t1*t278*t29*t3-6.413912
5957     1         19265211d-2*t1*t126*t272*t3
5958            t329 = -1.0546577777777776d-1*t328*t34*t35
5959            t330 = -2.109315555555555d-1*t139*t158*t35+t329+t327+t322+t3
5960     1         21+t319
5961            t331 = 2.6666666666666666d+0*t328*t71*t73+2.6666666666666666
5962     1         d+0*t158*t163*t73+2.6666666666666666d+0*t158*t160*t71-3.0
5963     2         d+0*t158*t164
5964            t332 = 1/rhoa**5.666666666666667d+0
5965            t333 = -7.508496024554567d-1*gammaaa*t16*t24*t332
5966            t334 = -4.8268903014993647d-1*gammaaa*t16*t165*t86*t87
5967            t335 = 4.8268903014993647d-1*gammaaa*t165*t24*t89
5968            t336 = -2.63284925536329d-1*gammaaa*t16*t169*t170*t76
5969            t337 = 1.316424627681645d-1*gammaaa*t16*t180*t76*t87
5970            t338 = 2.63284925536329d-1*gammaaa*t76*t86*t87*t89
5971            t339 = -1.316424627681645d-1*gammaaa*t183*t24*t76
5972            t340 = t86**3
5973            t341 = 1/t23**4
5974            t342 = -9.873184707612337d-2*gammaaa*t15*t16*t340*t341
5975            t343 = 9.873184707612337d-2*gammaaa*t15*t169*t170*t89
5976            t344 = 9.873184707612337d-2*gammaaa*t15*t16*t170*t180*t86
5977            t345 = -4.9365923538061685d-2*gammaaa*t15*t180*t87*t89
5978            t346 = 1/rhoa**1.3666666666666666d+1
5979            t347 = 1/rhoa**1.2333333333333334d+1
5980            t348 = 1/rhoa**11
5981            t349 = 1/rhoa**9.666666666666666d+0
5982            t350 = 1/rhoa**8.333333333333334d+0
5983            t351 = 1/rhoa**7
5984            t352 = -2.6382474466894645d-2*t349*t9+1.958171952691946d-3*t
5985     1         348*t7-1.9214483293868775d-4*t347*t5-7.094704787173696d+0
5986     2         *t4/rhoa**4.333333333333333d+0-2.811358882523947d+0*t13*t
5987     3         351+3.4274921739849046d-1*t11*t350+8.905555919908195d-6*t
5988     4         19*t346+9.369101339439189d+0*gammaaa*t332-6.8780767713482
5989     5         86d-7*t17/rhoa**15
5990            t353 = -1.6455307846020562d-2*gammaaa*t15*t16*t352*t87
5991            t354 = -4.9365923538061685d-2*gammaaa*t15*t183*t86*t87
5992            t355 = -2.3486322899894632d-3*t349*t9+3.115927725822337d-4*t
5993     1         348*t7-2.636823993592544d-5*t347*t5-2.1606615760248984d-2
5994     2         *t13*t351+1.0756283400962623d-2*t11*t350-1.20091636266328
5995     3         24d-2*gammaaa*t332
5996            t356 = 1.6455307846020562d-2*gammaaa*t15*t24*t355
5997            t357 = -1.950258707676511d-1*t38*t76+t356+t354+t353+t345+t34
5998     1         4+t343+t342+t339+t338+t337+t336+t335+t334+t333
5999            t358 = t92**3
6000            t359 = 1/t32**4
6001            t360 = 4.270067917509071d-3*t11*t350*t93+1.1095117764849638d
6002     1         +0*gammaaa*t76*t86*t87*t89-2.0803345809093077d-1*gammaaa*
6003     2         t15*t180*t87*t89+2.034104923555767d+0*gammaaa*t165*t24*t8
6004     3         9+4.1606691618186153d-1*gammaaa*t15*t169*t170*t89-2.08033
6005     4         45809093077d-1*gammaaa*t15*t183*t86*t87-2.034104923555767
6006     5         d+0*gammaaa*t16*t165*t86*t87+5.547558882424819d-1*gammaaa
6007     6         *t16*t180*t76*t87-6.934448603031025d-2*gammaaa*t15*t16*t3
6008     7         52*t87+4.1606691618186153d-1*gammaaa*t15*t16*t170*t180*t8
6009     8         6-5.547558882424819d-1*gammaaa*t183*t24*t76-1.10951177648
6010     9         49638d+0*gammaaa*t16*t169*t170*t76-2.349044621726439d-5*t
6011     :         188*t348*t7+4.0688686731102613d-8*t19*t346*t359+6.9344486
6012     ;         03031025d-2*gammaaa*t15*t24*t355-4.1606691618186153d-1*ga
6013     <         mmaaa*t15*t16*t340*t341-2.3438246032741353d-1*gammaaa*t33
6014     =         *t332-3.1641632144200826d+0*gammaaa*t16*t24*t332
6015            t361 = 1/t30**4
6016            t362 = t131**3
6017            t363 = 1/t36**6.0d+0
6018            t364 = 1/t50**3
6019            t365 = t98**3
6020            t366 = 1/t48**4
6021            t367 = 1/t44**5
6022            t368 = 3.75d-1*t358*t367
6023            t369 = -7.5d-1*t185*t198*t92
6024            t370 = 5.0d-1*t357*t95
6025            t371 = -2.660585798433468d-1*t1*t179
6026            t372 = t371+t370+t369+t368
6027            t373 = 1/t45**4
6028            t374 = 1/t42**5
6029            t375 = 3.75d-1*t358*t374
6030            t376 = -7.5d-1*t185*t205*t92
6031            t377 = 5.0d-1*t100*t357
6032            t378 = t356+t354+t353+t345+t344+t343+t342+t339+t338+t337+t33
6033     1         6+t335+t334+t333
6034            t379 = 1/t56**3
6035            t380 = 1/t54**4
6036            t381 = 1/t53**5
6037            t382 = 3.75d-1*t358*t381
6038            t383 = -7.5d-1*t185*t215*t92
6039            t384 = 5.0d-1*t107*t357
6040            t385 = 1/t61**4
6041            t386 = t115**3
6042            t387 = 1/t59**4
6043            t388 = t384+t383+t382+t377+t376+t375
6044            t389 = 1/t63**4
6045            t390 = t106**3
6046            t391 = t65**5.0d-1
6047            t392 = 1/t68**5
6048            t393 = 1/t69**5
6049            t394 = -1.7103765847072294d-1*t1*t126*t85*t92+5.772520973386
6050     1         899d-1*t1*t155*t185*t3*t92-4.810434144489083d-1*t1*t262*t
6051     2         3*t358-1.282782438530422d-1*t1*t126*t3*t357-2.66058579843
6052     3         3468d-1*t1*t179*t29-1.924173657795633d-1*t1*t155*t187*t22
6053     4         +1.282782438530422d-1*t1*t126*t185*t22
6054            t395 = 3*t238*t92+t26*t394+t30*t357+3*t127*t185
6055            t396 = 5.933884546635945d-5*t174*t9-2.812280816813114d-6*t17
6056     1         3*t7+2.2108103907905202d-7*t172*t5+7.028397206309868d-1*t
6057     2         178*t4+1.0642057180760542d+0*t134*t179-9.347705929049741d
6058     3         -2*gammaaa*t177+7.610329173142687d-3*t13*t176-5.874515858
6059     4         075838d-4*t11*t175-2.0076645727369685d+0*t165
6060            t397 = 8.143132921388737d-6*t174*t9+5.401653940062247d-3*t17
6061     1         8*t4-2.93353183662617d-3*gammaaa*t177+6.774900836508068d-
6062     2         4*t13*t176-9.347783177467011d-5*t11*t175+2.57339220570703
6063     3         35d-3*t165
6064            t398 = -3.2910615692041123d-2*t15*t86*t87*t89+8.776164184544
6065     1         3d-2*gammaaa*t135*t76*t87*t89-3.2910615692041123d-2*gamma
6066     2         aa*t15*t244*t87*t89+6.582123138408225d-2*gammaaa*t135*t15
6067     3         *t170*t86*t89-8.7761641845443d-2*t24*t76*t89+8.7761641845
6068     4         443d-2*t16*t76*t86*t87+8.7761641845443d-2*gammaaa*t136*t7
6069     5         6*t86*t87-3.2910615692041123d-2*gammaaa*t15*t245*t86*t87+
6070     6         8.7761641845443d-2*gammaaa*t16*t244*t76*t87-1.64553078460
6071     7         20562d-2*gammaaa*t15*t16*t396*t87-1.6455307846020562d-2*g
6072     8         ammaaa*t135*t15*t183*t87-1.6455307846020562d-2*t15*t16*t1
6073     9         80*t87-1.6455307846020562d-2*gammaaa*t136*t15*t180*t87-1.
6074     :         6089634338331216d-1*gammaaa*t135*t16*t165*t87-1.755232836
6075     ;         90886d-1*gammaaa*t135*t16*t170*t76*t86+6.582123138408225d
6076     <         -2*gammaaa*t15*t16*t170*t244*t86-8.7761641845443d-2*gamma
6077     =         aa*t24*t245*t76+1.6455307846020562d-2*gammaaa*t15*t24*t39
6078     >         7-9.873184707612337d-2*gammaaa*t135*t15*t16*t169*t341+1.6
6079     ?         455307846020562d-2*t15*t183*t24+1.6089634338331216d-1*t16
6080     @         *t165*t24+1.6089634338331216d-1*gammaaa*t136*t165*t24+3.2
6081     1         910615692041123d-2*gammaaa*t135*t15*t16*t170*t180+3.29106
6082     2         15692041123d-2*t15*t16*t169*t170+3.2910615692041123d-2*ga
6083     3         mmaaa*t136*t15*t169*t170
6084            t399 = -1.220913847381626d-3*gammaaa*t177*t93-1.386889720606
6085     1         205d-1*t15*t86*t87*t89+3.698372588283213d-1*gammaaa*t135*
6086     2         t76*t87*t89-1.386889720606205d-1*gammaaa*t15*t244*t87*t89
6087     3         +2.77377944121241d-1*gammaaa*t135*t15*t170*t86*t89-3.6983
6088     4         72588283213d-1*t24*t76*t89+3.698372588283213d-1*t16*t76*t
6089     5         86*t87+3.698372588283213d-1*gammaaa*t136*t76*t86*t87-1.38
6090     6         6889720606205d-1*gammaaa*t15*t245*t86*t87+3.6983725882832
6091     7         13d-1*gammaaa*t16*t244*t76*t87-6.934448603031025d-2*gamma
6092     8         aa*t15*t16*t396*t87-6.934448603031025d-2*gammaaa*t135*t15
6093     9         *t183*t87-6.934448603031025d-2*t15*t16*t180*t87-6.9344486
6094     :         03031025d-2*gammaaa*t136*t15*t180*t87-6.780349745185891d-
6095     ;         1*gammaaa*t135*t16*t165*t87-7.396745176566426d-1*gammaaa*
6096     <         t135*t16*t170*t76*t86+2.77377944121241d-1*gammaaa*t15*t16
6097     =         *t170*t244*t86-3.698372588283213d-1*gammaaa*t24*t245*t76-
6098     >         1.525825752416348d-8*t173*t359*t7+6.934448603031025d-2*ga
6099     ?         mmaaa*t15*t24*t397-4.1606691618186153d-1*gammaaa*t135*t15
6100     @         *t16*t169*t341+5.02248129273029d-2*t165*t33+6.93444860303
6101     1         1025d-2*t15*t183*t24+6.780349745185891d-1*t16*t165*t24+6.
6102     2         780349745185891d-1*gammaaa*t136*t165*t24+7.88166287552949
6103     3         9d-6*t11*t175*t188+1.386889720606205d-1*gammaaa*t135*t15*
6104     4         t16*t170*t180+1.386889720606205d-1*t15*t16*t169*t170+1.38
6105     5         6889720606205d-1*gammaaa*t136*t15*t169*t170
6106            t400 = 3.75d-1*t137*t187*t367
6107            t401 = -2.5d-1*t137*t185*t198
6108            t402 = -5.0d-1*t198*t246*t92
6109            t403 = 5.0d-1*t398*t95
6110            t404 = t403+t402+t401+t400
6111            t405 = 3.75d-1*t137*t187*t374
6112            t406 = -2.5d-1*t137*t185*t205
6113            t407 = -5.0d-1*t205*t246*t92
6114            t408 = 5.0d-1*t100*t398
6115            t409 = 3.75d-1*t137*t187*t381
6116            t410 = -2.5d-1*t137*t185*t215
6117            t411 = -5.0d-1*t215*t246*t92
6118            t412 = 5.0d-1*t107*t398
6119            t413 = t412+t411+t410+t409+t408+t407+t406+t405
6120            t414 = 1/t28**9
6121            t415 = 3.848347315591266d-1*t1*t155*t246*t3*t92-1.2827824385
6122     1         30422d-1*t1*t137*t155*t22*t92-5.701255282357431d-2*t1*t12
6123     2         6*t137*t85-1.282782438530422d-1*t1*t126*t3*t398-4.8104341
6124     3         44489083d-1*t1*t137*t187*t262*t3+1.924173657795633d-1*t1*
6125     4         t137*t155*t185*t3+8.551882923536147d-2*t1*t126*t22*t246
6126            t416 = 2*t267*t92+t26*t415+t30*t398-1.282782438530422d-1*t1*
6127     1         t126*t137*t185*t3+2*t127*t246+t137*t238
6128            t417 = -5.952181821359094d-8*t78*t9+2.2804408244486873d-1*t2
6129     1         75*t85-7.028397206309868d-2*t134*t84+1.4759535677446958d-
6130     2         2*t83-1.488977446919221d-3*t4*t82+1.3054479684612974d-4*g
6131     3         ammaaa*t81-1.4356172290248254d-5*t13*t80+7.23157924323372
6132     4         3d-7*t11*t79
6133            t418 = -5.401653940062245d-4*t134*t84+4.631892373620269d-4*t
6134     1         83-1.3255240767081d-4*t4*t82+2.0772851505482245d-5*gammaa
6135     2         a*t81-1.9701128035617912d-6*t13*t80
6136            t419 = -1.6455307846020562d-2*gammaaa*t15*t276*t87*t89-3.291
6137     1         0615692041123d-2*t135*t15*t87*t89+3.2910615692041123d-2*g
6138     2         ammaaa*t15*t170*t274*t89-1.6455307846020562d-2*gammaaa*t1
6139     3         5*t277*t86*t87-3.2910615692041123d-2*t136*t15*t86*t87+4.3
6140     4         8808209227215d-2*gammaaa*t16*t276*t76*t87+8.7761641845443
6141     5         d-2*t135*t16*t76*t87+8.7761641845443d-2*gammaaa*t135*t136
6142     6         *t76*t87-1.6455307846020562d-2*gammaaa*t15*t16*t417*t87-3
6143     7         .2910615692041123d-2*gammaaa*t135*t15*t245*t87-3.29106156
6144     8         92041123d-2*t15*t16*t244*t87-3.2910615692041123d-2*gammaa
6145     9         a*t136*t15*t244*t87-9.873184707612337d-2*gammaaa*t15*t16*
6146     :         t274*t341*t86+3.2910615692041123d-2*gammaaa*t15*t16*t170*
6147     ;         t276*t86+6.582123138408225d-2*t135*t15*t16*t170*t86+6.582
6148     <         123138408225d-2*gammaaa*t135*t136*t15*t170*t86-4.38808209
6149     =         227215d-2*gammaaa*t24*t277*t76-8.7761641845443d-2*gammaaa
6150     >         *t16*t170*t274*t76-8.7761641845443d-2*t136*t24*t76+1.6455
6151     ?         307846020562d-2*gammaaa*t15*t24*t418+3.2910615692041123d-
6152     @         2*t15*t24*t245+6.582123138408225d-2*gammaaa*t135*t15*t16*
6153     1         t170*t244
6154            t420 = 2.2539947951660788d-4*t83*t93-6.934448603031025d-2*ga
6155     1         mmaaa*t15*t276*t87*t89-1.386889720606205d-1*t135*t15*t87*
6156     2         t89+1.386889720606205d-1*gammaaa*t15*t170*t274*t89-6.9344
6157     3         48603031025d-2*gammaaa*t15*t277*t86*t87-1.386889720606205
6158     4         d-1*t136*t15*t86*t87+1.8491862941416065d-1*gammaaa*t16*t2
6159     5         76*t76*t87+3.698372588283213d-1*t135*t16*t76*t87+3.698372
6160     6         588283213d-1*gammaaa*t135*t136*t76*t87-6.934448603031025d
6161     7         -2*gammaaa*t15*t16*t417*t87-1.386889720606205d-1*gammaaa*
6162     8         t135*t15*t245*t87-1.386889720606205d-1*t15*t16*t244*t87-1
6163     9         .386889720606205d-1*gammaaa*t136*t15*t244*t87-4.160669161
6164     :         8186153d-1*gammaaa*t15*t16*t274*t341*t86+1.38688972060620
6165     ;         5d-1*gammaaa*t15*t16*t170*t276*t86+2.77377944121241d-1*t1
6166     <         35*t15*t16*t170*t86+2.77377944121241d-1*gammaaa*t135*t136
6167     =         *t15*t170*t86-2.318136139861618d-6*gammaaa*t188*t81+5.721
6168     >         846571561304d-9*t11*t359*t79-1.8491862941416065d-1*gammaa
6169     ?         a*t24*t277*t76-3.698372588283213d-1*gammaaa*t16*t170*t274
6170     @         *t76-3.698372588283213d-1*t136*t24*t76+6.934448603031025d
6171     1         -2*gammaaa*t15*t24*t418+1.386889720606205d-1*t15*t24*t245
6172     2         +2.77377944121241d-1*gammaaa*t135*t15*t16*t170*t244
6173            t421 = 3.75d-1*t272*t367*t92
6174            t422 = -5.0d-1*t137*t198*t246
6175            t423 = -2.5d-1*t198*t278*t92
6176            t424 = 5.0d-1*t419*t95
6177            t425 = t424+t423+t422+t421
6178            t426 = 3.75d-1*t272*t374*t92
6179            t427 = -5.0d-1*t137*t205*t246
6180            t428 = -2.5d-1*t205*t278*t92
6181            t429 = 5.0d-1*t100*t419
6182            t430 = 3.75d-1*t272*t381*t92
6183            t431 = -5.0d-1*t137*t215*t246
6184            t432 = -2.5d-1*t215*t278*t92
6185            t433 = 5.0d-1*t107*t419
6186            t434 = t433+t432+t431+t430+t429+t428+t427+t426
6187            t435 = 1/t26**5
6188            t436 = 1.924173657795633d-1*t1*t155*t278*t3*t92-4.8104341444
6189     1         89083d-1*t1*t262*t272*t3*t92-1.282782438530422d-1*t1*t126
6190     2         *t3*t419+3.848347315591266d-1*t1*t137*t155*t246*t3+4.2759
6191     3         414617680735d-2*t1*t126*t22*t278-6.41391219265211d-2*t1*t
6192     4         155*t22*t272
6193            t437 = -1.282782438530422d-1*t1*t126*t278*t3*t92+1.924173657
6194     1         795633d-1*t1*t155*t272*t3*t92+t26*t436+t30*t419-2.5655648
6195     2         77060844d-1*t1*t126*t137*t246*t3+t127*t278+2*t137*t267
6196            t438 = t137**3
6197            t439 = t135**3
6198            t440 = 2.5654959275047734d-1*t22/t9-1.6318099605766218d-5*t8
6199     1         +2.3072419752184684d-6*t4*t6-8.785496507887335d-3*t14*t27
6200     2         5-1.3559211081063233d-7*gammaaa*t20+1.2400378794498113d-8
6201     3         *t13*t18+1.1167330851894158d-4*t10*t134
6202            t441 = -2.5966064381852805d-6*t8+3.1662527200100216d-7*t4*t6
6203     1         -6.752067425077807d-5*t14*t275+9.941430575310749d-6*t10*t
6204     2         134
6205            t442 = -1.6455307846020562d-2*gammaaa*t15*t16*t440*t87-4.936
6206     1         5923538061685d-2*gammaaa*t135*t15*t277*t87-4.936592353806
6207     2         1685d-2*t15*t16*t276*t87-4.9365923538061685d-2*gammaaa*t1
6208     3         36*t15*t276*t87-9.873184707612337d-2*t135*t136*t15*t87+1.
6209     4         6455307846020562d-2*gammaaa*t15*t24*t441-9.87318470761233
6210     5         7d-2*gammaaa*t15*t16*t341*t439+4.9365923538061685d-2*t15*
6211     6         t24*t277+9.873184707612337d-2*gammaaa*t135*t15*t16*t170*t
6212     7         276+9.873184707612337d-2*t15*t16*t170*t274+9.873184707612
6213     8         337d-2*gammaaa*t136*t15*t170*t274
6214            t443 = -6.934448603031025d-2*gammaaa*t15*t16*t440*t87-2.0803
6215     1         345809093077d-1*gammaaa*t135*t15*t277*t87-2.0803345809093
6216     2         077d-1*t15*t16*t276*t87-2.0803345809093077d-1*gammaaa*t13
6217     3         6*t15*t276*t87-4.1606691618186153d-1*t135*t136*t15*t87+5.
6218     4         21580631468864d-7*t188*t8+6.934448603031025d-2*gammaaa*t1
6219     5         5*t24*t441-4.1606691618186153d-1*gammaaa*t15*t16*t341*t43
6220     6         9-2.1456924643354894d-9*gammaaa*t20*t359+2.08033458090930
6221     7         77d-1*t15*t24*t277+4.1606691618186153d-1*gammaaa*t135*t15
6222     8         *t16*t170*t276+4.1606691618186153d-1*t15*t16*t170*t274+4.
6223     9         1606691618186153d-1*gammaaa*t136*t15*t170*t274
6224            t444 = 1/t43**2
6225            t445 = 3.75d-1*t374*t438
6226            t446 = -7.5d-1*t137*t205*t278
6227            t447 = 5.0d-1*t100*t442
6228            t448 = 3.75d-1*t367*t438
6229            t449 = -7.5d-1*t137*t198*t278
6230            t450 = 5.0d-1*t442*t95
6231            t451 = t153**3
6232            t452 = 3.75d-1*t381*t438
6233            t453 = -7.5d-1*t137*t215*t278
6234            t454 = 5.0d-1*t107*t442
6235            t455 = t454+t453+t452+t447+t446+t445
6236            t456 = t30*t442-1.282782438530422d-1*t1*t29*t3*t442+9.620868
6237     1         288978166d-2*t1*t155*t3*t438-1.924173657795633d-1*t1*t126
6238     2         *t137*t278*t3
6239            fnc(iq) = fnc(iq)-1.8610514726982d+0*t21*t74*wght
6240            Amat(iq,D1_RA) = (-1.2407009817987999d+0*t2*t74-9.3052573634
6241     1         91d-1*t133*t21)*wght+Amat(iq,D1_RA)
6242            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t21*(t16
6243     1         4*t72+t147*t15*t24+t159+t157+t156+t154+t152+t148+t146+t14
6244     2         1+t140+t138)*wght
6245            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
6246            Amat2(iq,D2_RA_RA) = (-4.135669939329333d-1*t39*t74-9.305257
6247     1         363491d-1*t21*t242-2.4814019635975998d+0*t133*t2)*wght+Am
6248     2         at2(iq,D2_RA_RA)
6249            Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB)
6250            Cmat2(iq,D2_RA_GAA) = (-9.305257363491d-1*t21*t271-1.2407009
6251     1         817987999d+0*t2*t243)*wght+Cmat2(iq,D2_RA_GAA)
6252            Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB)
6253            Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB)
6254            Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA)-9.305257363491d-
6255     1         1*t21*(t15*t298*t87+6.764482379964267d-3*t1*t126*t137*t15
6256     2         8*t3*t34*t72+t330*t72+t126*t3*t318*t37+t132*t331+t317+t31
6257     3         6+t315+t314+t112*t312+t308+t301+t299+t105*t15*t24*t297+t1
6258     4         5*t24*t288+t287+t285+t284+t283+t281+t279+t273)*wght
6259            Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB)
6260            Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB)
6261            Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB)
6262            Amat3(iq,D3_RA_RA_RA) = (-9.305257363491d-1*t21*(-2.0d+0*t11
6263     1         2*t58*(4.4268299999999966d-1*t110*t218*t98*t99-8.85365999
6264     2         9999993d-1*t213*t214*t98*t99-1.475609999999999d-1*t372*t5
6265     3         5*t99+4.4268299999999966d-1*t109*t110*t202*t99+8.85365999
6266     4         9999993d-1*t197*t202*t55*t98-8.853659999999993d-1*t365*t3
6267     5         66*t55-1.475609999999999d-1*t110*(t384+t383+t382+t370+t36
6268     6         9+t368)*t49-8.853659999999993d-1*t109**3*t380*t49+8.85365
6269     7         9999999993d-1*t109*t214*t218*t49-8.853659999999993d-1*t10
6270     8         9*t110*t196*t197)+3.2910615692041123d-2*gammaaa*t105*t15*
6271     9         t16*t24*(-1.82895d+0*t103*t208*t98*t99+3.6579d+0*t203*t20
6272     :         4*t98*t99+6.0965d-1*t372*t46*t99-1.82895d+0*t102*t103*t20
6273     ;         2*t99-3.6579d+0*t197*t202*t46*t98+6.0965d-1*t103*(t377+t3
6274     <         76+t375+t370+t369+t368)*t49+3.6579d+0*t102**3*t373*t49-3.
6275     =         6579d+0*t102*t204*t208*t49+3.6579d+0*t365*t366*t46+3.6579
6276     >         d+0*t102*t103*t196*t197)-8.888888888888888d-1*t72*t73*(1.
6277     ?         423788d-1*t210*t94-2.4d+0*t67*(6.41391219265211d-2*t121*(
6278     @         16*gammaaa*t76*t86*t87*t89-3*gammaaa*t15*t180*t87*t89+2.9
6279     1         333333333333333d+1*gammaaa*t165*t24*t89+6*gammaaa*t15*t16
6280     2         9*t170*t89-3*gammaaa*t15*t183*t86*t87-2.9333333333333333d
6281     3         +1*gammaaa*t16*t165*t86*t87+8*gammaaa*t16*t180*t76*t87-ga
6282     4         mmaaa*t15*t16*t352*t87+6*gammaaa*t15*t16*t170*t180*t86-8*
6283     5         gammaaa*t183*t24*t76-16*gammaaa*t16*t169*t170*t76+gammaaa
6284     6         *t15*t24*t355-6*gammaaa*t15*t16*t340*t341-4.5629629629629
6285     7         626d+1*gammaaa*t16*t24*t332)-3.75d-1*t390*t393+4.81043414
6286     8         4489083d-2*t122**3*t392-5.0d-1*t120*t378-9.62086828897816
6287     9         6d-2*t122*t231*t234+7.5d-1*t106*t210*t233)-3.15d+1*t390*t
6288     :         391*t70-8.400000000000001d+0*t119*t378*t70-6.3d+1*t106*t2
6289     ;         10*t230*t70-2.7259596d+0*t378*t66+5.672746666666666d-2*t3
6290     <         78*t65+4.7459599999999996d-2*t360*t65-1.6355757600000004d
6291     =         +1*t106*t210*t65-1.8610765434507923d+1*t390*t391-5.451919
6292     >         2d+0*t390+4.7459599999999996d-2*t34*t378-4.96287078253544
6293     ?         57d+0*t119*t378-2.52d+1*t106*t119*t235-6.3d+1*t123*t229*t
6294     @         230-3.7221530869015845d+1*t106*t210*t230-2.52d+1*t119*t12
6295     1         3*t210+1.7018239999999996d-1*t106*t210+1.423788d-1*t106*t
6296     2         189)-3.1639733333333325d-1*t241*t35*t72*t94-6.32794666666
6297     3         6665d-1*t128*t131*t72*t94+1.5819866666666663d-1*t237*t37*
6298     4         t94+9.491919999999998d-1*t132*t192*t35*t94-8.888888888888
6299     5         888d-1*t71*t72*(4.9365923538061685d-2*t1*t29*t3*(-6.66666
6300     6         6666666666d-1*t1*t126*t85*t92+2.25d+0*t1*t155*t185*t3*t92
6301     7         -1.875d+0*t1*t262*t3*t358-5.0d-1*t1*t126*t3*t357-1.037037
6302     8         037037037d+0*t1*t179*t29-7.5d-1*t1*t155*t187*t22+5.0d-1*t
6303     9         1*t126*t185*t22)-1.9241736577956325d-1*t1*t126*t85*t92-2.
6304     :         4682961769030842d-2*t1*t126*t239*t3*t92+6.494086095060261
6305     ;         d-1*t1*t155*t185*t3*t92-5.411738412550218d-1*t1*t262*t3*t
6306     <         358-1.4431302433467247d-1*t1*t126*t3*t357-1.6455307846020
6307     =         562d-2*t1*t22*t239*t29-2.993159023237651d-1*t1*t179*t29+9
6308     >         .873184707612337d-2*t129*t239-2.164695365020087d-1*t1*t15
6309     ?         5*t187*t22+1.4431302433467247d-1*t1*t126*t185*t22)+5.2732
6310     @         88888888887d-2*t34*t37*(-8.551882923536147d-2*t1*t126*t85
6311     1         *t92+2.8862604866934494d-1*t1*t155*t185*t3*t92-2.40521707
6312     2         22445415d-1*t1*t262*t3*t358-6.41391219265211d-2*t1*t126*t
6313     3         3*t357-1.330292899216734d-1*t1*t179*t29-9.620868288978166
6314     4         d-2*t1*t155*t187*t22+6.41391219265211d-2*t1*t126*t185*t22
6315     5         )+1.4181866666666668d-1*t125*t238*t75*t92-2.8363733333333
6316     6         335d-1*t190*t191*t75*t92+2.8363733333333335d-1*t185*t186*
6317     7         t31*t92+7.57211d-1*(2.63284925536329d-1*gammaaa*t60*t64*t
6318     8         76*t86*t87*t89+9.873184707612337d-2*gammaaa*t115*t116*t15
6319     9         *t64*t86*t87*t89+9.873184707612337d-2*gammaaa*t117*t118*t
6320     :         15*t60*t86*t87*t89-4.9365923538061685d-2*gammaaa*t15*t180
6321     ;         *t60*t64*t87*t89+2.63284925536329d-1*gammaaa*t115*t116*t2
6322     <         4*t64*t76*t89+2.63284925536329d-1*gammaaa*t117*t118*t24*t
6323     =         60*t76*t89+4.8268903014993647d-1*gammaaa*t165*t24*t60*t64
6324     >         *t89+9.873184707612337d-2*gammaaa*t15*t169*t170*t60*t64*t
6325     ?         89-4.9365923538061685d-2*gammaaa*t116*t15*t225*t24*t64*t8
6326     @         9+9.873184707612337d-2*gammaaa*t15*t223*t224*t24*t64*t89-
6327     1         4.9365923538061685d-2*gammaaa*t118*t15*t228*t24*t60*t89+9
6328     2         .873184707612337d-2*gammaaa*t15*t226*t227*t24*t60*t89+9.8
6329     3         73184707612337d-2*gammaaa*t115*t116*t117*t118*t15*t24*t89
6330     4         -2.63284925536329d-1*gammaaa*t115*t116*t16*t64*t76*t86*t8
6331     5         7-2.63284925536329d-1*gammaaa*t117*t118*t16*t60*t76*t86*t
6332     6         87-4.9365923538061685d-2*gammaaa*t15*t183*t60*t64*t86*t87
6333     7         -4.8268903014993647d-1*gammaaa*t16*t165*t60*t64*t86*t87+4
6334     8         .9365923538061685d-2*gammaaa*t116*t15*t16*t225*t64*t86*t8
6335     9         7-9.873184707612337d-2*gammaaa*t15*t16*t223*t224*t64*t86*
6336     :         t87+4.9365923538061685d-2*gammaaa*t118*t15*t16*t228*t60*t
6337     ;         86*t87-9.873184707612337d-2*gammaaa*t15*t16*t226*t227*t60
6338     <         *t86*t87-9.873184707612337d-2*gammaaa*t115*t116*t117*t118
6339     =         *t15*t16*t86*t87+1.316424627681645d-1*gammaaa*t16*t180*t6
6340     >         0*t64*t76*t87-1.6455307846020562d-2*gammaaa*t15*t16*t352*
6341     ?         t60*t64*t87+4.9365923538061685d-2*gammaaa*t115*t116*t15*t
6342     @         16*t180*t64*t87+4.9365923538061685d-2*gammaaa*t117*t118*t
6343     1         15*t16*t180*t60*t87+9.873184707612337d-2*gammaaa*t15*t16*
6344     2         t170*t180*t60*t64*t86-1.316424627681645d-1*gammaaa*t183*t
6345     3         24*t60*t64*t76-2.63284925536329d-1*gammaaa*t16*t169*t170*
6346     4         t60*t64*t76+1.316424627681645d-1*gammaaa*t116*t16*t225*t2
6347     5         4*t64*t76-2.63284925536329d-1*gammaaa*t16*t223*t224*t24*t
6348     6         64*t76+1.316424627681645d-1*gammaaa*t118*t16*t228*t24*t60
6349     7         *t76-2.63284925536329d-1*gammaaa*t16*t226*t227*t24*t60*t7
6350     8         6-2.63284925536329d-1*gammaaa*t115*t116*t117*t118*t16*t24
6351     9         *t76+1.6455307846020562d-2*gammaaa*t15*t24*t355*t60*t64-9
6352     :         .873184707612337d-2*gammaaa*t15*t16*t340*t341*t60*t64-7.5
6353     ;         08496024554567d-1*gammaaa*t16*t24*t332*t60*t64-1.64553078
6354     <         46020562d-2*gammaaa*t116*t15*t16*t24*t388*t64-9.873184707
6355     =         612337d-2*gammaaa*t15*t16*t24*t386*t387*t64+9.87318470761
6356     >         2337d-2*gammaaa*t115*t15*t16*t224*t225*t24*t64-4.93659235
6357     ?         38061685d-2*gammaaa*t115*t116*t15*t183*t24*t64-4.82689030
6358     @         14993647d-1*gammaaa*t115*t116*t16*t165*t24*t64-9.87318470
6359     1         7612337d-2*gammaaa*t115*t116*t15*t16*t169*t170*t64+t378*t
6360     2         60*t62-t116*t388*t58*t62-6*t386*t387*t58*t62+6*t115*t224*
6361     3         t225*t58*t62-3*t106*t116*t225*t62+6*t106*t223*t224*t62-3*
6362     4         t115*t116*t210*t62-6*t113**3*t385*t58*t60-t114*(t384+t383
6363     5         +t382+t371)*t58*t60+6*t113*t221*t222*t58*t60-9.8731847076
6364     6         12337d-2*gammaaa*t117**3*t15*t16*t24*t389*t60-1.645530784
6365     7         6020562d-2*gammaaa*t118*t15*t16*t24*(t377+t376+t375+t371)
6366     8         *t60+9.873184707612337d-2*gammaaa*t117*t15*t16*t227*t228*
6367     9         t24*t60-4.9365923538061685d-2*gammaaa*t117*t118*t15*t183*
6368     :         t24*t60-4.8268903014993647d-1*gammaaa*t117*t118*t16*t165*
6369     ;         t24*t60-3*t106*t114*t222*t60+6*t106*t220*t221*t60-3*t113*
6370     <         t114*t210*t60-9.873184707612337d-2*gammaaa*t117*t118*t15*
6371     =         t16*t169*t170*t60+3*t113*t114*t116*t225*t58-6*t113*t114*t
6372     >         223*t224*t58+3*t114*t115*t116*t222*t58-6*t115*t116*t220*t
6373     ?         221*t58+4.9365923538061685d-2*gammaaa*t115*t116*t118*t15*
6374     @         t16*t228*t24-9.873184707612337d-2*gammaaa*t115*t116*t15*t
6375     1         16*t226*t227*t24+4.9365923538061685d-2*gammaaa*t116*t117*
6376     2         t118*t15*t16*t225*t24-9.873184707612337d-2*gammaaa*t117*t
6377     3         118*t15*t16*t223*t224*t24+6*t106*t113*t114*t115*t116)+5.2
6378     4         6569851072658d-1*gammaaa*t51*t76*t86*t87*t89-1.9746369415
6379     5         224674d-1*gammaaa*t104*t105*t15*t86*t87*t89-9.87318470761
6380     6         2337d-2*gammaaa*t15*t180*t51*t87*t89-5.26569851072658d-1*
6381     7         gammaaa*t104*t105*t24*t76*t89+9.653780602998729d-1*gammaa
6382     8         a*t165*t24*t51*t89+1.9746369415224674d-1*gammaaa*t15*t169
6383     9         *t170*t51*t89+9.873184707612337d-2*gammaaa*t105*t15*t209*
6384     :         t24*t89-9.873184707612337d-2*gammaaa*t15*t194*t195*t24*t8
6385     ;         9+5.26569851072658d-1*gammaaa*t104*t105*t16*t76*t86*t87-9
6386     <         .873184707612337d-2*gammaaa*t15*t183*t51*t86*t87-9.653780
6387     =         602998729d-1*gammaaa*t16*t165*t51*t86*t87-9.8731847076123
6388     >         37d-2*gammaaa*t105*t15*t16*t209*t86*t87+9.873184707612337
6389     ?         d-2*gammaaa*t15*t16*t194*t195*t86*t87+2.63284925536329d-1
6390     @         *gammaaa*t16*t180*t51*t76*t87-3.2910615692041123d-2*gamma
6391     1         aa*t15*t16*t352*t51*t87-9.873184707612337d-2*gammaaa*t104
6392     2         *t105*t15*t16*t180*t87+1.9746369415224674d-1*gammaaa*t15*
6393     3         t16*t170*t180*t51*t86-2.63284925536329d-1*gammaaa*t183*t2
6394     4         4*t51*t76-5.26569851072658d-1*gammaaa*t16*t169*t170*t51*t
6395     5         76-2.63284925536329d-1*gammaaa*t105*t16*t209*t24*t76+2.63
6396     6         284925536329d-1*gammaaa*t16*t194*t195*t24*t76-4.727288888
6397     7         888889d-2*t31*t357*t75+1.4181866666666668d-1*t125*t127*t1
6398     8         85*t75+2.6666666666666666d+0*t132*t395*t71*t73+5.33333333
6399     9         3333333d+1*t362*t363*t71*t73-3.2d+1*t131*t193*t241*t71*t7
6400     :         3+8.0d+0*t124*t132*t241*t73+8.0d+0*t131*t132*t236*t73-3.2
6401     ;         d+1*t124*t192*t193*t73-1.0546577777777776d-1*t34*t35*t395
6402     <         *t72-3.1639733333333325d-1*t131*t189*t35*t72-3.1639733333
6403     =         333325d-1*t128*t241*t34*t72-3.1639733333333325d-1*t131*t2
6404     >         37*t34*t72-2.6666666666666666d+0*t124*t240*t72-2.66666666
6405     ?         66666666d+0*t130*t236*t72+8.0d+0*t130*t132*t241*t71+8.0d+
6406     @         0*t131*t132*t240*t71-3.2d+1*t130*t192*t193*t71-4.0d+0*t11
6407     1         1**3*t379*t58+6.0d+0*t111*t212*t219*t58-2.0d+0*t378*t57+3
6408     2         .2910615692041123d-2*gammaaa*t15*t24*t355*t51-1.974636941
6409     3         5224674d-1*gammaaa*t15*t16*t340*t341*t51-1.50169920491091
6410     4         35d+0*gammaaa*t16*t24*t332*t51-4.727288888888889d-2*t125*
6411     5         t27*t394+5.273288888888887d-2*t35*t360*t37+1.581986666666
6412     6         6663d-1*t128*t189*t37+6.582123138408225d-2*gammaaa*t104**
6413     7         3*t15*t16*t24*t364-1.265589333333333d+0*t193*t34*t35*t362
6414     8         -2.8363733333333335d-1*t127**3*t27*t361-2.836373333333333
6415     9         5d-1*t31*t313*t358+9.491919999999998d-1*t131*t132*t241*t3
6416     :         4*t35+9.491919999999998d-1*t128*t132*t192*t34+2.836373333
6417     ;         3333335d-1*t127*t190*t238*t27-9.873184707612337d-2*gammaa
6418     <         a*t104*t15*t16*t195*t209*t24+9.873184707612337d-2*gammaaa
6419     =         *t104*t105*t15*t183*t24+9.653780602998729d-1*gammaaa*t104
6420     >         *t105*t16*t165*t24-6.0d+0*t106*t112*t219+6.0d+0*t106*t211
6421     ?         *t212-6.0d+0*t111*t112*t210-2.8363733333333335d-1*t125*t1
6422     @         27*t186*t187+1.9746369415224674d-1*gammaaa*t104*t105*t15*
6423     1         t16*t169*t170+1.6d+1*t124*t130*t131*t132)+2.7571132928862
6424     2         22d-1*t74*t91-1.2407009817987999d+0*t133*t39-3.7221029453
6425     3         964d+0*t2*t242)*wght+Amat3(iq,D3_RA_RA_RA)
6426            Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB)
6427            Cmat3(iq,D3_RA_RA_GAA) = (-9.305257363491d-1*t21*(-2.0d+0*t1
6428     1         12*t58*(2.951219999999998d-1*t110*t257*t98*t99-5.90243999
6429     2         9999995d-1*t109*t150*t214*t98*t99+7.378049999999994d-2*t1
6430     3         10*t137*t218*t95*t99-1.475609999999999d-1*t137*t213*t214*
6431     4         t95*t99-1.475609999999999d-1*t404*t55*t99+2.9512199999999
6432     5         98d-1*t109*t110*t250*t99+1.475609999999999d-1*t110*t150*t
6433     6         202*t99-2.951219999999998d-1*t109*t110*t137*t197*t95*t98+
6434     7         5.902439999999995d-1*t197*t250*t55*t98-4.4268299999999966
6435     8         d-1*t137*t196*t366*t55*t95+1.475609999999999d-1*t137*t197
6436     9         *t202*t55*t95-1.475609999999999d-1*t110*(t412+t411+t410+t
6437     :         409+t403+t402+t401+t400)*t49-8.853659999999993d-1*t150*t2
6438     ;         13*t380*t49+5.902439999999995d-1*t109*t214*t257*t49+2.951
6439     <         219999999998d-1*t150*t214*t218*t49-2.951219999999998d-1*t
6440     =         110*t150*t196*t197)+3.2910615692041123d-2*gammaaa*t105*t1
6441     >         5*t16*t24*(-1.2193000000000001d+0*t103*t253*t98*t99+2.438
6442     ?         6000000000002d+0*t102*t144*t204*t98*t99-3.04825d-1*t103*t
6443     @         137*t208*t95*t99+6.0965d-1*t137*t203*t204*t95*t99+6.0965d
6444     1         -1*t404*t46*t99-1.2193000000000001d+0*t102*t103*t250*t99-
6445     2         6.0965d-1*t103*t144*t202*t99+1.2193000000000001d+0*t102*t
6446     3         103*t137*t197*t95*t98-2.4386000000000002d+0*t197*t250*t46
6447     4         *t98+1.82895d+0*t137*t196*t366*t46*t95-6.0965d-1*t137*t19
6448     5         7*t202*t46*t95+6.0965d-1*t103*(t408+t407+t406+t405+t403+t
6449     6         402+t401+t400)*t49+3.6579d+0*t144*t203*t373*t49-2.4386000
6450     7         000000002d+0*t102*t204*t253*t49-1.2193000000000001d+0*t14
6451     8         4*t204*t208*t49+1.2193000000000001d+0*t103*t144*t196*t197
6452     9         )-8.888888888888888d-1*t72*t73*(9.491919999999999d-2*t246
6453     :         *t94-2.4d+0*t67*(6.41391219265211d-2*t121*(-2*t15*t86*t87
6454     ;         *t89+5.333333333333333d+0*gammaaa*t135*t76*t87*t89-2*gamm
6455     <         aaa*t15*t244*t87*t89+4*gammaaa*t135*t15*t170*t86*t89-5.33
6456     =         3333333333333d+0*t24*t76*t89+5.333333333333333d+0*t16*t76
6457     >         *t86*t87+5.333333333333333d+0*gammaaa*t136*t76*t86*t87-2*
6458     ?         gammaaa*t15*t245*t86*t87+5.333333333333333d+0*gammaaa*t16
6459     @         *t244*t76*t87-gammaaa*t15*t16*t396*t87-gammaaa*t135*t15*t
6460     1         183*t87-t15*t16*t180*t87-gammaaa*t136*t15*t180*t87-9.7777
6461     2         77777777779d+0*gammaaa*t135*t16*t165*t87-1.06666666666666
6462     3         66d+1*gammaaa*t135*t16*t170*t76*t86+4*gammaaa*t15*t16*t17
6463     4         0*t244*t86-5.333333333333333d+0*gammaaa*t24*t245*t76+gamm
6464     5         aaa*t15*t24*t397-6*gammaaa*t135*t15*t16*t169*t341+t15*t18
6465     6         3*t24+9.777777777777779d+0*t16*t165*t24+9.777777777777779
6466     7         d+0*gammaaa*t136*t165*t24+2*gammaaa*t135*t15*t16*t170*t18
6467     8         0+2*t15*t16*t169*t170+2*gammaaa*t136*t15*t169*t170)-5.0d-
6468     9         1*t120*t398-3.75d-1*t137*t229*t393+4.810434144489083d-2*t
6469     :         161*t232*t392-6.41391219265211d-2*t122*t231*t263+5.0d-1*t
6470     ;         106*t233*t246-3.206956096326055d-2*t161*t231*t234+2.5d-1*
6471     <         t137*t210*t233)-8.400000000000001d+0*t119*t398*t70-3.15d+
6472     =         1*t137*t229*t391*t70-4.2d+1*t106*t230*t246*t70-2.1d+1*t13
6473     >         7*t210*t230*t70-2.7259596d+0*t398*t66+4.7459599999999996d
6474     ?         -2*t399*t65+5.672746666666666d-2*t398*t65-1.0903838400000
6475     @         002d+1*t106*t246*t65-5.4519192d+0*t137*t210*t65+4.7459599
6476     1         999999996d-2*t34*t398-4.9628707825354457d+0*t119*t398-1.8
6477     2         610765434507923d+1*t137*t229*t391-1.68d+1*t106*t119*t264+
6478     3         9.491919999999999d-2*t106*t247-2.481435391267723d+1*t106*
6479     4         t230*t246-1.68d+1*t119*t123*t246+1.1345493333333331d-1*t1
6480     5         06*t246-8.400000000000001d+0*t119*t137*t235-2.1d+1*t162*t
6481     6         229*t230-1.2407176956338616d+1*t137*t210*t230-4.2d+1*t106
6482     7         *t123*t137*t230-5.4519192d+0*t137*t229-8.400000000000001d
6483     8         +0*t119*t162*t210+4.7459599999999996d-2*t139*t210+5.67274
6484     9         6666666666d-2*t137*t210+4.7459599999999996d-2*t137*t189)-
6485     :         2.109315555555555d-1*t270*t35*t72*t94+1.3528964759928536d
6486     ;         -2*t1*t126*t131*t137*t3*t72*t94-2.109315555555555d-1*t128
6487     <         *t158*t72*t94+1.0546577777777776d-1*t266*t37*t94+6.327946
6488     =         666666665d-1*t131*t132*t158*t35*t94-8.888888888888888d-1*
6489     >         t71*t72*(4.9365923538061685d-2*t1*t29*t3*(1.5d+0*t1*t155*
6490     ?         t246*t3*t92-5.0d-1*t1*t137*t155*t22*t92-2.222222222222222
6491     @         d-1*t1*t126*t137*t85-5.0d-1*t1*t126*t3*t398-1.875d+0*t1*t
6492     1         137*t187*t262*t3+7.5d-1*t1*t137*t155*t185*t3+3.3333333333
6493     2         33333d-1*t1*t126*t22*t246)+4.329390730040174d-1*t1*t155*t
6494     3         246*t3*t92-1.4431302433467247d-1*t1*t137*t155*t22*t92-6.4
6495     4         13912192652109d-2*t1*t126*t137*t85-1.4431302433467247d-1*
6496     5         t1*t126*t3*t398-5.411738412550218d-1*t1*t137*t187*t262*t3
6497     6         -2.4682961769030842d-2*t1*t126*t137*t239*t3+2.16469536502
6498     7         0087d-1*t1*t137*t155*t185*t3+9.873184707612337d-2*t129*t2
6499     8         68+9.620868288978164d-2*t1*t126*t22*t246)+5.2732888888888
6500     9         87d-2*t34*t37*(1.924173657795633d-1*t1*t155*t246*t3*t92-6
6501     :         .41391219265211d-2*t1*t137*t155*t22*t92-2.850627641178715
6502     ;         7d-2*t1*t126*t137*t85-6.41391219265211d-2*t1*t126*t3*t398
6503     <         -2.4052170722445415d-1*t1*t137*t187*t262*t3+9.62086828897
6504     =         8166d-2*t1*t137*t155*t185*t3+4.2759414617680735d-2*t1*t12
6505     >         6*t22*t246)+9.454577777777778d-2*t125*t267*t75*t92+1.8909
6506     ?         155555555557d-1*t186*t246*t31*t92+2.4256332674106634d-2*t
6507     @         1*t127*t137*t190*t262*t3*t92-1.8909155555555557d-1*t125*t
6508     1         127*t137*t186*t92+7.57211d-1*(-3.2910615692041123d-2*t15*
6509     2         t60*t64*t86*t87*t89+3.2910615692041123d-2*gammaaa*t116*t1
6510     3         5*t153*t64*t86*t87*t89+1.6455307846020562d-2*gammaaa*t100
6511     4         *t118*t137*t15*t60*t86*t87*t89+8.7761641845443d-2*gammaaa
6512     5         *t135*t60*t64*t76*t87*t89-3.2910615692041123d-2*gammaaa*t
6513     6         15*t244*t60*t64*t87*t89+3.2910615692041123d-2*gammaaa*t11
6514     7         5*t116*t135*t15*t64*t87*t89+3.2910615692041123d-2*gammaaa
6515     8         *t117*t118*t135*t15*t60*t87*t89+6.582123138408225d-2*gamm
6516     9         aaa*t135*t15*t170*t60*t64*t86*t89-8.7761641845443d-2*t24*
6517     :         t60*t64*t76*t89+8.7761641845443d-2*gammaaa*t116*t153*t24*
6518     ;         t64*t76*t89+4.38808209227215d-2*gammaaa*t100*t118*t137*t2
6519     <         4*t60*t76*t89-3.2910615692041123d-2*gammaaa*t116*t15*t24*
6520     =         t260*t64*t89+6.582123138408225d-2*gammaaa*t115*t15*t153*t
6521     >         224*t24*t64*t89-3.2910615692041123d-2*t115*t116*t15*t24*t
6522     ?         64*t89-3.2910615692041123d-2*gammaaa*t118*t15*t24*t261*t6
6523     @         0*t89+3.2910615692041123d-2*gammaaa*t100*t117*t137*t15*t2
6524     1         27*t24*t60*t89-3.2910615692041123d-2*t117*t118*t15*t24*t6
6525     2         0*t89+3.2910615692041123d-2*gammaaa*t116*t117*t118*t15*t1
6526     3         53*t24*t89+1.6455307846020562d-2*gammaaa*t100*t115*t116*t
6527     4         118*t137*t15*t24*t89+8.7761641845443d-2*t16*t60*t64*t76*t
6528     5         86*t87+8.7761641845443d-2*gammaaa*t136*t60*t64*t76*t86*t8
6529     6         7-8.7761641845443d-2*gammaaa*t116*t153*t16*t64*t76*t86*t8
6530     7         7-4.38808209227215d-2*gammaaa*t100*t118*t137*t16*t60*t76*
6531     8         t86*t87-3.2910615692041123d-2*gammaaa*t15*t245*t60*t64*t8
6532     9         6*t87+3.2910615692041123d-2*gammaaa*t116*t15*t16*t260*t64
6533     :         *t86*t87-6.582123138408225d-2*gammaaa*t115*t15*t153*t16*t
6534     ;         224*t64*t86*t87+3.2910615692041123d-2*t115*t116*t15*t16*t
6535     <         64*t86*t87+3.2910615692041123d-2*gammaaa*t115*t116*t136*t
6536     =         15*t64*t86*t87+3.2910615692041123d-2*gammaaa*t118*t15*t16
6537     >         *t261*t60*t86*t87-3.2910615692041123d-2*gammaaa*t100*t117
6538     ?         *t137*t15*t16*t227*t60*t86*t87+3.2910615692041123d-2*t117
6539     @         *t118*t15*t16*t60*t86*t87+3.2910615692041123d-2*gammaaa*t
6540     1         117*t118*t136*t15*t60*t86*t87-3.2910615692041123d-2*gamma
6541     2         aa*t116*t117*t118*t15*t153*t16*t86*t87-1.6455307846020562
6542     3         d-2*gammaaa*t100*t115*t116*t118*t137*t15*t16*t86*t87+8.77
6543     4         61641845443d-2*gammaaa*t16*t244*t60*t64*t76*t87-8.7761641
6544     5         845443d-2*gammaaa*t115*t116*t135*t16*t64*t76*t87-8.776164
6545     6         1845443d-2*gammaaa*t117*t118*t135*t16*t60*t76*t87-1.64553
6546     7         07846020562d-2*gammaaa*t15*t16*t396*t60*t64*t87-1.6455307
6547     8         846020562d-2*gammaaa*t135*t15*t183*t60*t64*t87-1.64553078
6548     9         46020562d-2*t15*t16*t180*t60*t64*t87-1.6455307846020562d-
6549     :         2*gammaaa*t136*t15*t180*t60*t64*t87-1.6089634338331216d-1
6550     ;         *gammaaa*t135*t16*t165*t60*t64*t87+3.2910615692041123d-2*
6551     <         gammaaa*t115*t116*t15*t16*t244*t64*t87+1.6455307846020562
6552     =         d-2*gammaaa*t116*t135*t15*t16*t225*t64*t87-3.291061569204
6553     >         1123d-2*gammaaa*t135*t15*t16*t223*t224*t64*t87+1.64553078
6554     ?         46020562d-2*gammaaa*t116*t15*t153*t16*t180*t64*t87+3.2910
6555     @         615692041123d-2*gammaaa*t117*t118*t15*t16*t244*t60*t87+1.
6556     1         6455307846020562d-2*gammaaa*t118*t135*t15*t16*t228*t60*t8
6557     2         7-3.2910615692041123d-2*gammaaa*t135*t15*t16*t226*t227*t6
6558     3         0*t87+8.227653923010281d-3*gammaaa*t100*t118*t137*t15*t16
6559     4         *t180*t60*t87-3.2910615692041123d-2*gammaaa*t115*t116*t11
6560     5         7*t118*t135*t15*t16*t87-1.75523283690886d-1*gammaaa*t135*
6561     6         t16*t170*t60*t64*t76*t86+6.582123138408225d-2*gammaaa*t15
6562     7         *t16*t170*t244*t60*t64*t86-6.582123138408225d-2*gammaaa*t
6563     8         115*t116*t135*t15*t16*t170*t64*t86-6.582123138408225d-2*g
6564     9         ammaaa*t117*t118*t135*t15*t16*t170*t60*t86-8.776164184544
6565     :         3d-2*gammaaa*t24*t245*t60*t64*t76+8.7761641845443d-2*gamm
6566     ;         aaa*t116*t16*t24*t260*t64*t76-1.75523283690886d-1*gammaaa
6567     <         *t115*t153*t16*t224*t24*t64*t76+8.7761641845443d-2*t115*t
6568     =         116*t16*t24*t64*t76+8.7761641845443d-2*gammaaa*t115*t116*
6569     >         t136*t24*t64*t76+8.7761641845443d-2*gammaaa*t118*t16*t24*
6570     ?         t261*t60*t76-8.7761641845443d-2*gammaaa*t100*t117*t137*t1
6571     @         6*t227*t24*t60*t76+8.7761641845443d-2*t117*t118*t16*t24*t
6572     1         60*t76+8.7761641845443d-2*gammaaa*t117*t118*t136*t24*t60*
6573     2         t76-8.7761641845443d-2*gammaaa*t116*t117*t118*t153*t16*t2
6574     3         4*t76-4.38808209227215d-2*gammaaa*t100*t115*t116*t118*t13
6575     4         7*t16*t24*t76+1.6455307846020562d-2*gammaaa*t15*t24*t397*
6576     5         t60*t64-9.873184707612337d-2*gammaaa*t135*t15*t16*t169*t3
6577     6         41*t60*t64+1.6455307846020562d-2*t15*t183*t24*t60*t64+1.6
6578     7         089634338331216d-1*t16*t165*t24*t60*t64+1.608963433833121
6579     8         6d-1*gammaaa*t136*t165*t24*t60*t64+3.2910615692041123d-2*
6580     9         gammaaa*t135*t15*t16*t170*t180*t60*t64+3.2910615692041123
6581     :         d-2*t15*t16*t169*t170*t60*t64+3.2910615692041123d-2*gamma
6582     ;         aa*t136*t15*t169*t170*t60*t64-1.6455307846020562d-2*gamma
6583     <         aa*t116*t15*t16*t24*t413*t64-9.873184707612337d-2*gammaaa
6584     =         *t15*t153*t16*t223*t24*t387*t64+6.582123138408225d-2*gamm
6585     >         aaa*t115*t15*t16*t224*t24*t260*t64-3.2910615692041123d-2*
6586     ?         gammaaa*t115*t116*t15*t24*t245*t64+3.2910615692041123d-2*
6587     @         gammaaa*t15*t153*t16*t224*t225*t24*t64-1.6455307846020562
6588     1         d-2*t116*t15*t16*t225*t24*t64-1.6455307846020562d-2*gamma
6589     2         aa*t116*t136*t15*t225*t24*t64+3.2910615692041123d-2*t15*t
6590     3         16*t223*t224*t24*t64+3.2910615692041123d-2*gammaaa*t136*t
6591     4         15*t223*t224*t24*t64-1.6455307846020562d-2*gammaaa*t116*t
6592     5         15*t153*t183*t24*t64-1.6089634338331216d-1*gammaaa*t116*t
6593     6         153*t16*t165*t24*t64-3.2910615692041123d-2*gammaaa*t116*t
6594     7         15*t153*t16*t169*t170*t64+t398*t60*t62-t116*t413*t58*t62-
6595     8         6*t153*t223*t387*t58*t62+4*t115*t224*t260*t58*t62+2*t153*
6596     9         t224*t225*t58*t62-2*t106*t116*t260*t62-2*t115*t116*t246*t
6597     :         62-t116*t137*t225*t62+2*t137*t223*t224*t62+4*t106*t115*t1
6598     ;         53*t224*t62-t116*t153*t210*t62-t114*(t412+t411+t410+t409)
6599     <         *t58*t60-3*t107*t137*t220*t385*t58*t60+4*t113*t221*t259*t
6600     =         58*t60+t107*t137*t221*t222*t58*t60-1.6455307846020562d-2*
6601     >         gammaaa*t118*t15*t16*t24*(t408+t407+t406+t405)*t60-4.9365
6602     ?         923538061685d-2*gammaaa*t100*t137*t15*t16*t226*t24*t389*t
6603     @         60+6.582123138408225d-2*gammaaa*t117*t15*t16*t227*t24*t26
6604     1         1*t60-2*t106*t114*t259*t60-2*t113*t114*t246*t60-3.2910615
6605     2         692041123d-2*gammaaa*t117*t118*t15*t24*t245*t60+1.6455307
6606     3         846020562d-2*gammaaa*t100*t137*t15*t16*t227*t228*t24*t60-
6607     4         1.6455307846020562d-2*t118*t15*t16*t228*t24*t60-1.6455307
6608     5         846020562d-2*gammaaa*t118*t136*t15*t228*t24*t60+3.2910615
6609     6         692041123d-2*t15*t16*t226*t227*t24*t60+3.2910615692041123
6610     7         d-2*gammaaa*t136*t15*t226*t227*t24*t60-8.227653923010281d
6611     8         -3*gammaaa*t100*t118*t137*t15*t183*t24*t60-8.044817169165
6612     9         608d-2*gammaaa*t100*t118*t137*t16*t165*t24*t60-t114*t137*
6613     :         t222*t60+2*t137*t220*t221*t60+2*t106*t107*t113*t137*t221*
6614     ;         t60-5.0d-1*t107*t114*t137*t210*t60-1.6455307846020562d-2*
6615     <         gammaaa*t100*t118*t137*t15*t16*t169*t170*t60+2*t113*t114*
6616     =         t116*t260*t58+2*t114*t115*t116*t259*t58+5.0d-1*t107*t114*
6617     >         t116*t137*t225*t58-t107*t114*t137*t223*t224*t58-4*t113*t1
6618     ?         14*t115*t153*t224*t58+t114*t116*t153*t222*t58-2*t116*t153
6619     @         *t220*t221*t58-2*t107*t113*t115*t116*t137*t221*t58+3.2910
6620     1         615692041123d-2*gammaaa*t115*t116*t118*t15*t16*t24*t261+3
6621     2         .2910615692041123d-2*gammaaa*t116*t117*t118*t15*t16*t24*t
6622     3         260+1.6455307846020562d-2*gammaaa*t116*t118*t15*t153*t16*
6623     4         t228*t24-3.2910615692041123d-2*gammaaa*t116*t15*t153*t16*
6624     5         t226*t227*t24-3.2910615692041123d-2*gammaaa*t100*t115*t11
6625     6         6*t117*t137*t15*t16*t227*t24+8.227653923010281d-3*gammaaa
6626     7         *t100*t116*t118*t137*t15*t16*t225*t24-1.6455307846020562d
6627     8         -2*gammaaa*t100*t118*t137*t15*t16*t223*t224*t24-6.5821231
6628     9         38408225d-2*gammaaa*t115*t117*t118*t15*t153*t16*t224*t24+
6629     :         3.2910615692041123d-2*t115*t116*t117*t118*t15*t16*t24+3.2
6630     ;         910615692041123d-2*gammaaa*t115*t116*t117*t118*t136*t15*t
6631     <         24+2*t106*t113*t114*t116*t153+2*t113*t114*t115*t116*t137+
6632     =         t106*t107*t114*t115*t116*t137)-6.582123138408225d-2*t15*t
6633     >         51*t86*t87*t89-6.582123138408225d-2*gammaaa*t105*t145*t15
6634     ?         *t86*t87*t89+1.75523283690886d-1*gammaaa*t135*t51*t76*t87
6635     @         *t89-6.582123138408225d-2*gammaaa*t15*t244*t51*t87*t89-6.
6636     1         582123138408225d-2*gammaaa*t104*t105*t135*t15*t87*t89+1.3
6637     2         16424627681645d-1*gammaaa*t135*t15*t170*t51*t86*t89-1.755
6638     3         23283690886d-1*t24*t51*t76*t89-1.75523283690886d-1*gammaa
6639     4         a*t105*t145*t24*t76*t89+6.582123138408225d-2*gammaaa*t105
6640     5         *t15*t24*t254*t89-6.582123138408225d-2*gammaaa*t104*t145*
6641     6         t15*t195*t24*t89+6.582123138408225d-2*t104*t105*t15*t24*t
6642     7         89+1.75523283690886d-1*t16*t51*t76*t86*t87+1.755232836908
6643     8         86d-1*gammaaa*t136*t51*t76*t86*t87+1.75523283690886d-1*ga
6644     9         mmaaa*t105*t145*t16*t76*t86*t87-6.582123138408225d-2*gamm
6645     :         aaa*t15*t245*t51*t86*t87-6.582123138408225d-2*gammaaa*t10
6646     ;         5*t15*t16*t254*t86*t87+6.582123138408225d-2*gammaaa*t104*
6647     <         t145*t15*t16*t195*t86*t87-6.582123138408225d-2*t104*t105*
6648     =         t15*t16*t86*t87-6.582123138408225d-2*gammaaa*t104*t105*t1
6649     >         36*t15*t86*t87+1.75523283690886d-1*gammaaa*t16*t244*t51*t
6650     ?         76*t87+1.75523283690886d-1*gammaaa*t104*t105*t135*t16*t76
6651     @         *t87-3.2910615692041123d-2*gammaaa*t15*t16*t396*t51*t87-3
6652     1         .2910615692041123d-2*gammaaa*t135*t15*t183*t51*t87-3.2910
6653     2         615692041123d-2*t15*t16*t180*t51*t87-3.2910615692041123d-
6654     3         2*gammaaa*t136*t15*t180*t51*t87-3.217926867666243d-1*gamm
6655     4         aaa*t135*t16*t165*t51*t87-6.582123138408225d-2*gammaaa*t1
6656     5         04*t105*t15*t16*t244*t87-3.2910615692041123d-2*gammaaa*t1
6657     6         05*t135*t15*t16*t209*t87+3.2910615692041123d-2*gammaaa*t1
6658     7         35*t15*t16*t194*t195*t87-3.2910615692041123d-2*gammaaa*t1
6659     8         05*t145*t15*t16*t180*t87-3.51046567381772d-1*gammaaa*t135
6660     9         *t16*t170*t51*t76*t86+1.316424627681645d-1*gammaaa*t15*t1
6661     :         6*t170*t244*t51*t86+1.316424627681645d-1*gammaaa*t104*t10
6662     ;         5*t135*t15*t16*t170*t86-1.75523283690886d-1*gammaaa*t24*t
6663     <         245*t51*t76-1.75523283690886d-1*gammaaa*t105*t16*t24*t254
6664     =         *t76+1.75523283690886d-1*gammaaa*t104*t145*t16*t195*t24*t
6665     >         76-1.75523283690886d-1*t104*t105*t16*t24*t76-1.7552328369
6666     ?         0886d-1*gammaaa*t104*t105*t136*t24*t76-4.727288888888889d
6667     @         -2*t31*t398*t75+9.454577777777778d-2*t125*t127*t246*t75+4
6668     1         .727288888888889d-2*t125*t137*t238*t75-9.454577777777778d
6669     2         -2*t137*t190*t191*t75+2.6666666666666666d+0*t132*t416*t71
6670     3         *t73+5.333333333333333d+1*t158*t192*t363*t71*t73-2.133333
6671     4         3333333332d+1*t131*t193*t270*t71*t73-1.0666666666666666d+
6672     5         1*t158*t193*t241*t71*t73+5.333333333333333d+0*t124*t132*t
6673     6         270*t73+5.333333333333333d+0*t131*t132*t265*t73+2.6666666
6674     7         666666666d+0*t132*t163*t241*t73+2.6666666666666666d+0*t13
6675     8         2*t158*t236*t73-1.0666666666666666d+1*t163*t192*t193*t73-
6676     9         2.1333333333333332d+1*t124*t131*t158*t193*t73-1.054657777
6677     :         7777776d-1*t34*t35*t416*t72-2.109315555555555d-1*t131*t24
6678     ;         7*t35*t72-1.0546577777777776d-1*t139*t241*t35*t72-1.05465
6679     <         77777777776d-1*t158*t189*t35*t72+6.764482379964267d-3*t1*
6680     =         t126*t137*t241*t3*t34*t72-2.109315555555555d-1*t128*t270*
6681     >         t34*t72-2.109315555555555d-1*t131*t266*t34*t72-1.05465777
6682     ?         77777776d-1*t158*t237*t34*t72-1.7777777777777776d+0*t124*
6683     @         t269*t72-1.7777777777777776d+0*t130*t265*t72-8.8888888888
6684     1         88888d-1*t163*t240*t72-8.888888888888888d-1*t160*t236*t72
6685     2         -2.109315555555555d-1*t128*t131*t139*t72+5.33333333333333
6686     3         3d+0*t130*t132*t270*t71+5.333333333333333d+0*t131*t132*t2
6687     4         69*t71+2.6666666666666666d+0*t132*t160*t241*t71+2.6666666
6688     5         666666666d+0*t132*t158*t240*t71-1.0666666666666666d+1*t16
6689     6         0*t192*t193*t71-2.1333333333333332d+1*t130*t131*t158*t193
6690     7         *t71-4.0d+0*t151*t211*t379*t58+4.0d+0*t111*t212*t258*t58+
6691     8         2.0d+0*t151*t212*t219*t58-2.0d+0*t398*t57+3.2910615692041
6692     9         123d-2*gammaaa*t15*t24*t397*t51-1.9746369415224674d-1*gam
6693     :         maaa*t135*t15*t16*t169*t341*t51+3.2910615692041123d-2*t15
6694     ;         *t183*t24*t51+3.217926867666243d-1*t16*t165*t24*t51+3.217
6695     <         926867666243d-1*gammaaa*t136*t165*t24*t51+6.5821231384082
6696     =         25d-2*gammaaa*t135*t15*t16*t170*t180*t51+6.58212313840822
6697     >         5d-2*t15*t16*t169*t170*t51+6.582123138408225d-2*gammaaa*t
6698     ?         136*t15*t169*t170*t51-4.727288888888889d-2*t125*t27*t415+
6699     @         1.2128166337053317d-2*t1*t125*t137*t187*t3*t414+5.2732888
6700     1         88888887d-2*t35*t37*t399-3.3822411899821336d-3*t1*t126*t1
6701     2         37*t189*t3*t37+1.0546577777777776d-1*t128*t247*t37+5.2732
6702     3         88888888887d-2*t139*t237*t37+6.582123138408225d-2*gammaaa
6703     4         *t145*t15*t16*t194*t24*t364+3.6384499011159954d-2*t1*t137
6704     5         *t155*t191*t3*t361+6.327946666666665d-1*t131*t132*t270*t3
6705     6         4*t35+3.1639733333333325d-1*t132*t158*t241*t34*t35-1.2655
6706     7         89333333333d+0*t158*t192*t193*t34*t35+3.1639733333333325d
6707     8         -1*t132*t139*t192*t35-2.02934471398928d-2*t1*t126*t132*t1
6708     9         37*t192*t3*t34+6.327946666666665d-1*t128*t131*t132*t158*t
6709     :         34-2.8363733333333335d-1*t137*t187*t31*t313+9.45457777777
6710     ;         7778d-2*t137*t185*t186*t31-6.064083168526658d-3*t1*t125*t
6711     <         137*t185*t262*t3-1.2128166337053317d-2*t1*t137*t155*t190*
6712     =         t238*t3+1.8909155555555557d-1*t127*t190*t267*t27-4.0d+0*t
6713     >         106*t112*t258-6.582123138408225d-2*gammaaa*t104*t15*t16*t
6714     ?         195*t24*t254-4.0d+0*t111*t112*t246+6.582123138408225d-2*g
6715     @         ammaaa*t104*t105*t15*t24*t245-3.2910615692041123d-2*gamma
6716     1         aa*t145*t15*t16*t195*t209*t24+3.2910615692041123d-2*t105*
6717     2         t15*t16*t209*t24+3.2910615692041123d-2*gammaaa*t105*t136*
6718     3         t15*t209*t24-3.2910615692041123d-2*t15*t16*t194*t195*t24-
6719     4         3.2910615692041123d-2*gammaaa*t136*t15*t194*t195*t24+3.29
6720     5         10615692041123d-2*gammaaa*t105*t145*t15*t183*t24+3.217926
6721     6         867666243d-1*gammaaa*t105*t145*t16*t165*t24-2.0d+0*t112*t
6722     7         137*t219+2.0d+0*t137*t211*t212+4.0d+0*t106*t111*t151*t212
6723     8         -2.0d+0*t112*t151*t210+6.582123138408225d-2*gammaaa*t105*
6724     9         t145*t15*t16*t169*t170+5.333333333333333d+0*t130*t131*t13
6725     :         2*t163+5.333333333333333d+0*t124*t131*t132*t160+5.3333333
6726     ;         33333333d+0*t124*t130*t132*t158)-4.135669939329333d-1*t24
6727     <         3*t39-2.4814019635975998d+0*t2*t271)*wght+Cmat3(iq,D3_RA_
6728     =         RA_GAA)
6729            Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB)
6730            Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB)
6731            Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA)
6732            Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB)
6733            Cmat3(iq,D3_RA_GAA_GAA) = (-9.305257363491d-1*t21*(-2.0d+0*t
6734     1         112*t58*(1.475609999999999d-1*t110*t310*t98*t99-2.9512199
6735     2         99999998d-1*t214*t309*t98*t99+7.378049999999994d-2*t109*t
6736     3         110*t278*t95*t99+1.475609999999999d-1*t110*t137*t257*t95*
6737     4         t99-2.951219999999998d-1*t109*t137*t150*t214*t95*t99-1.47
6738     5         5609999999999d-1*t425*t55*t99-3.689024999999997d-2*t109*t
6739     6         110*t198*t272*t99+2.951219999999998d-1*t110*t150*t250*t99
6740     7         +1.475609999999999d-1*t197*t278*t55*t95*t98-2.95121999999
6741     8         9998d-1*t110*t137*t150*t197*t95*t98-2.2134149999999983d-1
6742     9         *t272*t289*t366*t55*t98-7.378049999999994d-2*t197*t198*t2
6743     :         72*t55*t98+2.951219999999998d-1*t137*t197*t250*t55*t95-1.
6744     ;         475609999999999d-1*t110*(t433+t432+t431+t430+t424+t423+t4
6745     <         22+t421)*t49-8.853659999999993d-1*t109*t309*t380*t49+2.95
6746     =         1219999999998d-1*t109*t214*t310*t49+5.902439999999995d-1*
6747     >         t150*t214*t257*t49-7.378049999999994d-2*t109*t110*t197*t2
6748     ?         72*t289)+3.2910615692041123d-2*gammaaa*t105*t15*t16*t24*(
6749     @         -6.0965d-1*t103*t295*t98*t99+1.2193000000000001d+0*t204*t
6750     1         290*t98*t99-3.04825d-1*t102*t103*t278*t95*t99-6.0965d-1*t
6751     2         103*t137*t253*t95*t99+1.2193000000000001d+0*t102*t137*t14
6752     3         4*t204*t95*t99+6.0965d-1*t425*t46*t99+1.524125d-1*t102*t1
6753     4         03*t198*t272*t99-1.2193000000000001d+0*t103*t144*t250*t99
6754     5         -6.0965d-1*t197*t278*t46*t95*t98+1.2193000000000001d+0*t1
6755     6         03*t137*t144*t197*t95*t98+9.14475d-1*t272*t289*t366*t46*t
6756     7         98+3.04825d-1*t197*t198*t272*t46*t98-1.2193000000000001d+
6757     8         0*t137*t197*t250*t46*t95+6.0965d-1*t103*(t429+t428+t427+t
6758     9         426+t424+t423+t422+t421)*t49+3.6579d+0*t102*t290*t373*t49
6759     :         -1.2193000000000001d+0*t102*t204*t295*t49-2.4386000000000
6760     ;         002d+0*t144*t204*t253*t49+3.04825d-1*t102*t103*t197*t272*
6761     <         t289)-8.888888888888888d-1*t72*t73*(4.7459599999999996d-2
6762     =         *t278*t94-2.4d+0*t67*(6.41391219265211d-2*t121*(-gammaaa*
6763     >         t15*t276*t87*t89-2*t135*t15*t87*t89+2*gammaaa*t15*t170*t2
6764     ?         74*t89-gammaaa*t15*t277*t86*t87-2*t136*t15*t86*t87+2.6666
6765     @         666666666666d+0*gammaaa*t16*t276*t76*t87+5.33333333333333
6766     1         3d+0*t135*t16*t76*t87+5.333333333333333d+0*gammaaa*t135*t
6767     2         136*t76*t87-gammaaa*t15*t16*t417*t87-2*gammaaa*t135*t15*t
6768     3         245*t87-2*t15*t16*t244*t87-2*gammaaa*t136*t15*t244*t87-6*
6769     4         gammaaa*t15*t16*t274*t341*t86+2*gammaaa*t15*t16*t170*t276
6770     5         *t86+4*t135*t15*t16*t170*t86+4*gammaaa*t135*t136*t15*t170
6771     6         *t86-2.6666666666666666d+0*gammaaa*t24*t277*t76-5.3333333
6772     7         33333333d+0*gammaaa*t16*t170*t274*t76-5.333333333333333d+
6773     8         0*t136*t24*t76+gammaaa*t15*t24*t418+2*t15*t24*t245+4*gamm
6774     9         aaa*t135*t15*t16*t170*t244)-5.0d-1*t120*t419-3.75d-1*t106
6775     :         *t272*t393+4.810434144489083d-2*t122*t323*t392-3.20695609
6776     ;         6326055d-2*t122*t231*t324+2.5d-1*t106*t233*t278-6.4139121
6777     <         9265211d-2*t161*t231*t263+5.0d-1*t137*t233*t246)-8.400000
6778     =         000000001d+0*t119*t419*t70-3.15d+1*t106*t272*t391*t70-2.1
6779     >         d+1*t106*t230*t278*t70-4.2d+1*t137*t230*t246*t70-2.725959
6780     ?         6d+0*t419*t66+4.7459599999999996d-2*t420*t65+5.6727466666
6781     @         66666d-2*t419*t65-5.4519192d+0*t106*t278*t65-1.0903838400
6782     1         000002d+1*t137*t246*t65+4.7459599999999996d-2*t34*t419-4.
6783     2         9628707825354457d+0*t119*t419-1.8610765434507923d+1*t106*
6784     3         t272*t391-8.400000000000001d+0*t106*t119*t325+4.745959999
6785     4         9999996d-2*t106*t280-1.2407176956338616d+1*t106*t230*t278
6786     5         -8.400000000000001d+0*t119*t123*t278+5.672746666666666d-2
6787     6         *t106*t278-2.1d+1*t123*t230*t272-5.4519192d+0*t106*t272-1
6788     7         .68d+1*t119*t137*t264+9.491919999999999d-2*t137*t247-2.48
6789     8         1435391267723d+1*t137*t230*t246-1.68d+1*t119*t162*t246+9.
6790     9         491919999999999d-2*t139*t246+1.1345493333333331d-1*t137*t
6791     :         246-4.2d+1*t106*t137*t162*t230)-1.0546577777777776d-1*t32
6792     ;         8*t35*t72*t94+1.3528964759928536d-2*t1*t126*t137*t158*t3*
6793     <         t72*t94-3.3822411899821336d-3*t1*t126*t278*t3*t37*t94+5.0
6794     =         733617849732d-3*t1*t155*t272*t3*t37*t94+3.163973333333332
6795     >         5d-1*t132*t282*t35*t94-8.888888888888888d-1*t71*t72*(4.93
6796     ?         65923538061685d-2*t1*t29*t3*(7.5d-1*t1*t155*t278*t3*t92-1
6797     @         .875d+0*t1*t262*t272*t3*t92-5.0d-1*t1*t126*t3*t419+1.5d+0
6798     1         *t1*t137*t155*t246*t3+1.6666666666666666d-1*t1*t126*t22*t
6799     2         278-2.5d-1*t1*t155*t22*t272)+2.164695365020087d-1*t1*t155
6800     3         *t278*t3*t92-5.411738412550218d-1*t1*t262*t272*t3*t92-1.4
6801     4         431302433467247d-1*t1*t126*t3*t419-2.4682961769030842d-2*
6802     5         t1*t126*t129*t278*t3+3.7024442653546263d-2*t1*t129*t155*t
6803     6         272*t3-4.9365923538061685d-2*t1*t126*t137*t268*t3+4.32939
6804     7         0730040174d-1*t1*t137*t155*t246*t3+4.810434144489082d-2*t
6805     8         1*t126*t22*t278-7.215651216733623d-2*t1*t155*t22*t272)+5.
6806     9         273288888888887d-2*t34*t37*(9.620868288978166d-2*t1*t155*
6807     :         t278*t3*t92-2.4052170722445415d-1*t1*t262*t272*t3*t92-6.4
6808     ;         1391219265211d-2*t1*t126*t3*t419+1.924173657795633d-1*t1*
6809     <         t137*t155*t246*t3+2.1379707308840368d-2*t1*t126*t22*t278-
6810     =         3.206956096326055d-2*t1*t155*t22*t272)-1.5557798788747831
6811     >         d-3*t190*t272*t38*t39*t435*t92+3.3352457426896626d-2*t1*t
6812     ?         125*t272*t3*t414*t92-2.8363733333333335d-1*t272*t31*t313*
6813     @         t92+9.454577777777778d-2*t186*t278*t31*t92-6.064083168526
6814     1         658d-3*t1*t125*t262*t278*t3*t92+7.57211d-1*(-1.6455307846
6815     2         020562d-2*gammaaa*t15*t276*t60*t64*t87*t89-3.291061569204
6816     3         1123d-2*t135*t15*t60*t64*t87*t89+3.2910615692041123d-2*ga
6817     4         mmaaa*t116*t135*t15*t153*t64*t87*t89+1.6455307846020562d-
6818     5         2*gammaaa*t100*t118*t135*t137*t15*t60*t87*t89+3.291061569
6819     6         2041123d-2*gammaaa*t15*t170*t274*t60*t64*t89-1.6455307846
6820     7         020562d-2*gammaaa*t116*t15*t24*t306*t64*t89+3.29106156920
6821     8         41123d-2*gammaaa*t15*t224*t24*t303*t64*t89-3.291061569204
6822     9         1123d-2*t116*t15*t153*t24*t64*t89+8.227653923010281d-3*ga
6823     :         mmaaa*t15*t227*t24*t272*t307*t60*t89-8.227653923010281d-3
6824     ;         *gammaaa*t100*t118*t15*t24*t278*t60*t89+4.113826961505140
6825     <         4d-3*gammaaa*t118*t15*t205*t24*t272*t60*t89-1.64553078460
6826     =         20562d-2*t100*t118*t137*t15*t24*t60*t89+1.645530784602056
6827     >         2d-2*gammaaa*t100*t116*t118*t137*t15*t153*t24*t89-1.64553
6828     ?         07846020562d-2*gammaaa*t15*t277*t60*t64*t86*t87-3.2910615
6829     @         692041123d-2*t136*t15*t60*t64*t86*t87+1.6455307846020562d
6830     1         -2*gammaaa*t116*t15*t16*t306*t64*t86*t87-3.29106156920411
6831     2         23d-2*gammaaa*t15*t16*t224*t303*t64*t86*t87+3.29106156920
6832     3         41123d-2*t116*t15*t153*t16*t64*t86*t87+3.2910615692041123
6833     4         d-2*gammaaa*t116*t136*t15*t153*t64*t86*t87-8.227653923010
6834     5         281d-3*gammaaa*t15*t16*t227*t272*t307*t60*t86*t87+8.22765
6835     6         3923010281d-3*gammaaa*t100*t118*t15*t16*t278*t60*t86*t87-
6836     7         4.1138269615051404d-3*gammaaa*t118*t15*t16*t205*t272*t60*
6837     8         t86*t87+1.6455307846020562d-2*t100*t118*t137*t15*t16*t60*
6838     9         t86*t87+1.6455307846020562d-2*gammaaa*t100*t118*t136*t137
6839     :         *t15*t60*t86*t87-1.6455307846020562d-2*gammaaa*t100*t116*
6840     ;         t118*t137*t15*t153*t16*t86*t87+4.38808209227215d-2*gammaa
6841     <         a*t16*t276*t60*t64*t76*t87+8.7761641845443d-2*t135*t16*t6
6842     =         0*t64*t76*t87+8.7761641845443d-2*gammaaa*t135*t136*t60*t6
6843     >         4*t76*t87-8.7761641845443d-2*gammaaa*t116*t135*t153*t16*t
6844     ?         64*t76*t87-4.38808209227215d-2*gammaaa*t100*t118*t135*t13
6845     @         7*t16*t60*t76*t87-1.6455307846020562d-2*gammaaa*t15*t16*t
6846     1         417*t60*t64*t87-3.2910615692041123d-2*gammaaa*t135*t15*t2
6847     2         45*t60*t64*t87-3.2910615692041123d-2*t15*t16*t244*t60*t64
6848     3         *t87-3.2910615692041123d-2*gammaaa*t136*t15*t244*t60*t64*
6849     4         t87+1.6455307846020562d-2*gammaaa*t115*t116*t15*t16*t276*
6850     5         t64*t87+3.2910615692041123d-2*gammaaa*t116*t135*t15*t16*t
6851     6         260*t64*t87+3.2910615692041123d-2*gammaaa*t116*t15*t153*t
6852     7         16*t244*t64*t87-6.582123138408225d-2*gammaaa*t115*t135*t1
6853     8         5*t153*t16*t224*t64*t87+3.2910615692041123d-2*t115*t116*t
6854     9         135*t15*t16*t64*t87+3.2910615692041123d-2*gammaaa*t115*t1
6855     :         16*t135*t136*t15*t64*t87+1.6455307846020562d-2*gammaaa*t1
6856     ;         17*t118*t15*t16*t276*t60*t87+3.2910615692041123d-2*gammaa
6857     <         a*t118*t135*t15*t16*t261*t60*t87+1.6455307846020562d-2*ga
6858     =         mmaaa*t100*t118*t137*t15*t16*t244*t60*t87-3.2910615692041
6859     >         123d-2*gammaaa*t100*t117*t135*t137*t15*t16*t227*t60*t87+3
6860     ?         .2910615692041123d-2*t117*t118*t135*t15*t16*t60*t87+3.291
6861     @         0615692041123d-2*gammaaa*t117*t118*t135*t136*t15*t60*t87-
6862     1         3.2910615692041123d-2*gammaaa*t116*t117*t118*t135*t15*t15
6863     2         3*t16*t87-1.6455307846020562d-2*gammaaa*t100*t115*t116*t1
6864     3         18*t135*t137*t15*t16*t87-9.873184707612337d-2*gammaaa*t15
6865     4         *t16*t274*t341*t60*t64*t86+3.2910615692041123d-2*gammaaa*
6866     5         t15*t16*t170*t276*t60*t64*t86+6.582123138408225d-2*t135*t
6867     6         15*t16*t170*t60*t64*t86+6.582123138408225d-2*gammaaa*t135
6868     7         *t136*t15*t170*t60*t64*t86-6.582123138408225d-2*gammaaa*t
6869     8         116*t135*t15*t153*t16*t170*t64*t86-3.2910615692041123d-2*
6870     9         gammaaa*t100*t118*t135*t137*t15*t16*t170*t60*t86-4.388082
6871     :         09227215d-2*gammaaa*t24*t277*t60*t64*t76-8.7761641845443d
6872     ;         -2*gammaaa*t16*t170*t274*t60*t64*t76-8.7761641845443d-2*t
6873     <         136*t24*t60*t64*t76+4.38808209227215d-2*gammaaa*t116*t16*
6874     =         t24*t306*t64*t76-8.7761641845443d-2*gammaaa*t16*t224*t24*
6875     >         t303*t64*t76+8.7761641845443d-2*t116*t153*t16*t24*t64*t76
6876     ?         +8.7761641845443d-2*gammaaa*t116*t136*t153*t24*t64*t76-2.
6877     @         194041046136075d-2*gammaaa*t16*t227*t24*t272*t307*t60*t76
6878     1         +2.194041046136075d-2*gammaaa*t100*t118*t16*t24*t278*t60*
6879     2         t76-1.0970205230680374d-2*gammaaa*t118*t16*t205*t24*t272*
6880     3         t60*t76+4.38808209227215d-2*t100*t118*t137*t16*t24*t60*t7
6881     4         6+4.38808209227215d-2*gammaaa*t100*t118*t136*t137*t24*t60
6882     5         *t76-4.38808209227215d-2*gammaaa*t100*t116*t118*t137*t153
6883     6         *t16*t24*t76+1.6455307846020562d-2*gammaaa*t15*t24*t418*t
6884     7         60*t64+3.2910615692041123d-2*t15*t24*t245*t60*t64+6.58212
6885     8         3138408225d-2*gammaaa*t135*t15*t16*t170*t244*t60*t64-1.64
6886     9         55307846020562d-2*gammaaa*t116*t15*t16*t24*t434*t64-9.873
6887     :         184707612337d-2*gammaaa*t115*t15*t16*t24*t303*t387*t64+3.
6888     ;         2910615692041123d-2*gammaaa*t115*t15*t16*t224*t24*t306*t6
6889     <         4-1.6455307846020562d-2*gammaaa*t115*t116*t15*t24*t277*t6
6890     =         4-3.2910615692041123d-2*gammaaa*t115*t116*t15*t16*t170*t2
6891     >         74*t64+6.582123138408225d-2*gammaaa*t15*t153*t16*t224*t24
6892     ?         *t260*t64-3.2910615692041123d-2*t116*t15*t16*t24*t260*t64
6893     @         -3.2910615692041123d-2*gammaaa*t116*t136*t15*t24*t260*t64
6894     1         -3.2910615692041123d-2*gammaaa*t116*t15*t153*t24*t245*t64
6895     2         +6.582123138408225d-2*t115*t15*t153*t16*t224*t24*t64+6.58
6896     3         2123138408225d-2*gammaaa*t115*t136*t15*t153*t224*t24*t64-
6897     4         3.2910615692041123d-2*t115*t116*t136*t15*t24*t64+t419*t60
6898     5         *t62-t116*t434*t58*t62-6*t115*t303*t387*t58*t62+2*t115*t2
6899     6         24*t306*t58*t62+4*t153*t224*t260*t58*t62-t106*t116*t306*t
6900     7         62+2*t106*t224*t303*t62-t115*t116*t278*t62-2*t116*t137*t2
6901     8         60*t62-2*t116*t153*t246*t62+4*t115*t137*t153*t224*t62-t11
6902     9         4*(t433+t432+t431+t430)*t58*t60-1.5d+0*t113*t272*t302*t38
6903     :         5*t58*t60+t107*t113*t221*t278*t58*t60-5.0d-1*t113*t215*t2
6904     ;         21*t272*t58*t60+2*t107*t137*t221*t259*t58*t60-1.645530784
6905     <         6020562d-2*gammaaa*t118*t15*t16*t24*(t429+t428+t427+t426)
6906     =         *t60-2.4682961769030842d-2*gammaaa*t117*t15*t16*t24*t272*
6907     >         t307*t389*t60+5.0d-1*t106*t221*t272*t302*t60+1.6455307846
6908     ?         020562d-2*gammaaa*t100*t117*t15*t16*t227*t24*t278*t60-t11
6909     @         3*t114*t278*t60-5.0d-1*t106*t107*t114*t278*t60-1.64553078
6910     1         46020562d-2*gammaaa*t117*t118*t15*t24*t277*t60-3.29106156
6911     2         92041123d-2*gammaaa*t117*t118*t15*t16*t170*t274*t60-8.227
6912     3         653923010281d-3*gammaaa*t117*t15*t16*t205*t227*t24*t272*t
6913     4         60+2*t107*t113*t221*t272*t60+2.5d-1*t106*t114*t215*t272*t
6914     5         60+3.2910615692041123d-2*gammaaa*t100*t137*t15*t16*t227*t
6915     6         24*t261*t60-3.2910615692041123d-2*t118*t15*t16*t24*t261*t
6916     7         60-3.2910615692041123d-2*gammaaa*t118*t136*t15*t24*t261*t
6917     8         60-2*t114*t137*t259*t60-t107*t114*t137*t246*t60-1.6455307
6918     9         846020562d-2*gammaaa*t100*t118*t137*t15*t24*t245*t60+3.29
6919     :         10615692041123d-2*t100*t117*t137*t15*t16*t227*t24*t60+3.2
6920     ;         910615692041123d-2*gammaaa*t100*t117*t136*t137*t15*t227*t
6921     <         24*t60-3.2910615692041123d-2*t117*t118*t136*t15*t24*t60+t
6922     =         113*t114*t116*t306*t58-2*t113*t114*t224*t303*t58-5.0d-1*t
6923     >         115*t116*t221*t272*t302*t58+5.0d-1*t107*t114*t115*t116*t2
6924     ?         78*t58-2.5d-1*t114*t115*t116*t215*t272*t58+t107*t114*t116
6925     @         *t137*t260*t58+2*t114*t116*t153*t259*t58-2*t107*t114*t115
6926     1         *t137*t153*t224*t58-2*t107*t113*t116*t137*t153*t221*t58-8
6927     2         .227653923010281d-3*gammaaa*t115*t116*t15*t16*t227*t24*t2
6928     3         72*t307+1.6455307846020562d-2*gammaaa*t116*t117*t118*t15*
6929     4         t16*t24*t306-3.2910615692041123d-2*gammaaa*t117*t118*t15*
6930     5         t16*t224*t24*t303+8.227653923010281d-3*gammaaa*t100*t115*
6931     6         t116*t118*t15*t16*t24*t278-4.1138269615051404d-3*gammaaa*
6932     7         t115*t116*t118*t15*t16*t205*t24*t272+t107*t114*t115*t116*
6933     8         t272+3.2910615692041123d-2*gammaaa*t116*t118*t15*t153*t16
6934     9         *t24*t261+1.6455307846020562d-2*gammaaa*t100*t116*t118*t1
6935     :         37*t15*t16*t24*t260-3.2910615692041123d-2*gammaaa*t100*t1
6936     ;         16*t117*t137*t15*t153*t16*t227*t24-3.2910615692041123d-2*
6937     <         gammaaa*t100*t115*t118*t137*t15*t153*t16*t224*t24+3.29106
6938     =         15692041123d-2*t116*t117*t118*t15*t153*t16*t24+1.64553078
6939     >         46020562d-2*t100*t115*t116*t118*t137*t15*t16*t24+3.291061
6940     ?         5692041123d-2*gammaaa*t116*t117*t118*t136*t15*t153*t24+1.
6941     @         6455307846020562d-2*gammaaa*t100*t115*t116*t118*t136*t137
6942     1         *t15*t24+2*t113*t114*t116*t137*t153+t106*t107*t114*t116*t
6943     2         137*t153)-3.2910615692041123d-2*gammaaa*t15*t276*t51*t87*
6944     3         t89-6.582123138408225d-2*t135*t15*t51*t87*t89-6.582123138
6945     4         408225d-2*gammaaa*t105*t135*t145*t15*t87*t89+6.5821231384
6946     5         08225d-2*gammaaa*t15*t170*t274*t51*t89+3.2910615692041123
6947     6         d-2*gammaaa*t105*t15*t24*t296*t89-3.2910615692041123d-2*g
6948     7         ammaaa*t15*t195*t24*t286*t89+6.582123138408225d-2*t105*t1
6949     8         45*t15*t24*t89-3.2910615692041123d-2*gammaaa*t15*t277*t51
6950     9         *t86*t87-6.582123138408225d-2*t136*t15*t51*t86*t87-3.2910
6951     :         615692041123d-2*gammaaa*t105*t15*t16*t296*t86*t87+3.29106
6952     ;         15692041123d-2*gammaaa*t15*t16*t195*t286*t86*t87-6.582123
6953     <         138408225d-2*t105*t145*t15*t16*t86*t87-6.582123138408225d
6954     =         -2*gammaaa*t105*t136*t145*t15*t86*t87+8.7761641845443d-2*
6955     >         gammaaa*t16*t276*t51*t76*t87+1.75523283690886d-1*t135*t16
6956     ?         *t51*t76*t87+1.75523283690886d-1*gammaaa*t135*t136*t51*t7
6957     @         6*t87+1.75523283690886d-1*gammaaa*t105*t135*t145*t16*t76*
6958     1         t87-3.2910615692041123d-2*gammaaa*t15*t16*t417*t51*t87-6.
6959     2         582123138408225d-2*gammaaa*t135*t15*t245*t51*t87-6.582123
6960     3         138408225d-2*t15*t16*t244*t51*t87-6.582123138408225d-2*ga
6961     4         mmaaa*t136*t15*t244*t51*t87-3.2910615692041123d-2*gammaaa
6962     5         *t104*t105*t15*t16*t276*t87-6.582123138408225d-2*gammaaa*
6963     6         t105*t135*t15*t16*t254*t87-6.582123138408225d-2*gammaaa*t
6964     7         105*t145*t15*t16*t244*t87+6.582123138408225d-2*gammaaa*t1
6965     8         04*t135*t145*t15*t16*t195*t87-6.582123138408225d-2*t104*t
6966     9         105*t135*t15*t16*t87-6.582123138408225d-2*gammaaa*t104*t1
6967     :         05*t135*t136*t15*t87-1.9746369415224674d-1*gammaaa*t15*t1
6968     ;         6*t274*t341*t51*t86+6.582123138408225d-2*gammaaa*t15*t16*
6969     <         t170*t276*t51*t86+1.316424627681645d-1*t135*t15*t16*t170*
6970     =         t51*t86+1.316424627681645d-1*gammaaa*t135*t136*t15*t170*t
6971     >         51*t86+1.316424627681645d-1*gammaaa*t105*t135*t145*t15*t1
6972     ?         6*t170*t86-8.7761641845443d-2*gammaaa*t24*t277*t51*t76-1.
6973     @         75523283690886d-1*gammaaa*t16*t170*t274*t51*t76-1.7552328
6974     1         3690886d-1*t136*t24*t51*t76-8.7761641845443d-2*gammaaa*t1
6975     2         05*t16*t24*t296*t76+8.7761641845443d-2*gammaaa*t16*t195*t
6976     3         24*t286*t76-1.75523283690886d-1*t105*t145*t16*t24*t76-1.7
6977     4         5523283690886d-1*gammaaa*t105*t136*t145*t24*t76-4.7272888
6978     5         88888889d-2*t31*t419*t75+4.727288888888889d-2*t125*t127*t
6979     6         278*t75+9.454577777777778d-2*t125*t137*t267*t75+2.6666666
6980     7         666666666d+0*t132*t437*t71*t73+5.333333333333333d+1*t131*
6981     8         t282*t363*t71*t73-1.0666666666666666d+1*t131*t193*t328*t7
6982     9         1*t73-2.1333333333333332d+1*t158*t193*t270*t71*t73+2.6666
6983     :         666666666666d+0*t124*t132*t328*t73+2.6666666666666666d+0*
6984     ;         t131*t132*t326*t73-1.0666666666666666d+1*t124*t193*t282*t
6985     <         73+5.333333333333333d+0*t132*t163*t270*t73+5.333333333333
6986     =         333d+0*t132*t158*t265*t73-2.1333333333333332d+1*t131*t158
6987     >         *t163*t193*t73-1.0546577777777776d-1*t34*t35*t437*t72-1.0
6988     ?         546577777777776d-1*t131*t280*t35*t72-2.109315555555555d-1
6989     @         *t139*t270*t35*t72-2.109315555555555d-1*t158*t247*t35*t72
6990     1         -1.0546577777777776d-1*t128*t328*t34*t72+6.76448237996426
6991     2         7d-3*t1*t126*t131*t278*t3*t34*t72-1.01467235699464d-2*t1*
6992     3         t131*t155*t272*t3*t34*t72+1.3528964759928536d-2*t1*t126*t
6993     4         137*t270*t3*t34*t72-2.109315555555555d-1*t158*t266*t34*t7
6994     5         2-8.888888888888888d-1*t130*t326*t72-8.888888888888888d-1
6995     6         *t124*t320*t72+1.3528964759928536d-2*t1*t126*t131*t137*t1
6996     7         39*t3*t72-1.7777777777777776d+0*t163*t269*t72-1.777777777
6997     8         7777776d+0*t160*t265*t72-2.109315555555555d-1*t128*t139*t
6998     9         158*t72+2.6666666666666666d+0*t130*t132*t328*t71+2.666666
6999     :         6666666666d+0*t131*t132*t320*t71-1.0666666666666666d+1*t1
7000     ;         30*t193*t282*t71+5.333333333333333d+0*t132*t160*t270*t71+
7001     <         5.333333333333333d+0*t132*t158*t269*t71-2.133333333333333
7002     =         2d+1*t131*t158*t160*t193*t71-4.0d+0*t111*t300*t379*t58+2.
7003     >         0d+0*t111*t212*t311*t58+4.0d+0*t151*t212*t258*t58-2.0d+0*
7004     ?         t419*t57+3.2910615692041123d-2*gammaaa*t15*t24*t418*t51+6
7005     @         .582123138408225d-2*t15*t24*t245*t51+1.316424627681645d-1
7006     1         *gammaaa*t135*t15*t16*t170*t244*t51-4.727288888888889d-2*
7007     2         t125*t27*t436+5.273288888888887d-2*t35*t37*t420-4.6673396
7008     3         36624349d-3*t127*t272*t313*t361*t38*t39-6.764482379964267
7009     4         d-3*t1*t126*t137*t247*t3*t37+5.273288888888887d-2*t128*t2
7010     5         80*t37+1.0546577777777776d-1*t139*t266*t37+6.582123138408
7011     6         225d-2*gammaaa*t104*t15*t16*t24*t286*t364+3.1639733333333
7012     7         325d-1*t131*t132*t328*t34*t35-1.265589333333333d+0*t131*t
7013     8         193*t282*t34*t35+6.327946666666665d-1*t132*t158*t270*t34*
7014     9         t35+6.327946666666665d-1*t131*t132*t139*t158*t35-4.058689
7015     :         42797856d-2*t1*t126*t131*t132*t137*t158*t3*t34+3.16397333
7016     ;         33333325d-1*t128*t132*t282*t34-2.0d+0*t106*t112*t311+1.89
7017     <         09155555555557d-1*t137*t186*t246*t31+2.0d+0*t106*t212*t30
7018     =         0-1.2128166337053317d-2*t1*t127*t155*t190*t278*t3+4.24485
7019     >         8217968661d-2*t1*t127*t190*t262*t272*t3-2.425633267410663
7020     ?         4d-2*t1*t137*t155*t190*t267*t3-1.2128166337053317d-2*t1*t
7021     @         125*t137*t246*t262*t3-3.2910615692041123d-2*gammaaa*t104*
7022     1         t15*t16*t195*t24*t296-2.0d+0*t111*t112*t278+3.29106156920
7023     2         41123d-2*gammaaa*t104*t105*t15*t24*t277+6.582123138408225
7024     3         d-2*gammaaa*t104*t105*t15*t16*t170*t274-9.454577777777778
7025     4         d-2*t125*t127*t186*t272-4.0d+0*t112*t137*t258-6.582123138
7026     5         408225d-2*gammaaa*t145*t15*t16*t195*t24*t254+6.5821231384
7027     6         08225d-2*t105*t15*t16*t24*t254+6.582123138408225d-2*gamma
7028     7         aa*t105*t136*t15*t24*t254-4.0d+0*t112*t151*t246+6.5821231
7029     8         38408225d-2*gammaaa*t105*t145*t15*t24*t245-6.582123138408
7030     9         225d-2*t104*t145*t15*t16*t195*t24-6.582123138408225d-2*ga
7031     :         mmaaa*t104*t136*t145*t15*t195*t24+6.582123138408225d-2*t1
7032     ;         04*t105*t136*t15*t24+4.0d+0*t111*t137*t151*t212+5.3333333
7033     <         33333333d+0*t131*t132*t160*t163+5.333333333333333d+0*t130
7034     =         *t132*t158*t163+5.333333333333333d+0*t124*t132*t158*t160)
7035     >         -1.2407009817987999d+0*t2*(-3.2910615692041123d-2*gammaaa
7036     ?         *t15*t16*t276*t51*t87-6.582123138408225d-2*t135*t15*t16*t
7037     @         51*t87-6.582123138408225d-2*gammaaa*t135*t136*t15*t51*t87
7038     1         -8.888888888888888d-1*t326*t72*t73+2.6666666666666666d+0*
7039     2         t132*t328*t71*t73+5.333333333333333d+0*t132*t158*t163*t73
7040     3         -8.888888888888888d-1*t320*t71*t72-1.0546577777777776d-1*
7041     4         t328*t34*t35*t72-2.109315555555555d-1*t139*t158*t35*t72+1
7042     5         .3528964759928536d-2*t1*t126*t137*t158*t3*t34*t72-1.77777
7043     6         77777777776d+0*t160*t163*t72+5.333333333333333d+0*t132*t1
7044     7         58*t160*t71-2.0d+0*t112*t311*t58+3.2910615692041123d-2*ga
7045     8         mmaaa*t15*t24*t277*t51+6.582123138408225d-2*t136*t15*t24*
7046     9         t51-3.3822411899821336d-3*t1*t126*t278*t3*t34*t37-6.76448
7047     :         2379964267d-3*t1*t126*t137*t139*t3*t37+3.1639733333333325
7048     ;         d-1*t132*t282*t34*t35+t317+t316+t315+t314+t308+t301+t299+
7049     <         3.2910615692041123d-2*gammaaa*t105*t15*t16*t24*t296+t287+
7050     =         t285+t284+t283+t281+t279+t273+6.582123138408225d-2*t105*t
7051     >         145*t15*t16*t24+6.582123138408225d-2*gammaaa*t105*t136*t1
7052     ?         45*t15*t24-4.0d+0*t112*t137*t151))*wght+Cmat3(iq,D3_RA_GA
7053     @         A_GAA)
7054            Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB)
7055            Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB)
7056            Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB)
7057            Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB)
7058            Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB)
7059            Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA)-9.305257
7060     1         363491d-1*t21*(t112*(-2.0d+0*t58*(-7.378049999999994d-2*t
7061     2         442*t55*t95*t99+2.2134149999999983d-1*t110*t137*t310*t95*
7062     3         t99-4.4268299999999966d-1*t137*t214*t309*t95*t99+2.213414
7063     4         9999999983d-1*t110*t150*t278*t95*t99-5.533537499999995d-2
7064     5         *t367*t438*t55*t99+1.1067074999999992d-1*t137*t198*t278*t
7065     6         55*t99-1.1067074999999992d-1*t110*t150*t198*t272*t99-1.10
7066     7         67074999999992d-1*t197*t438*t444*t55-1.1067074999999992d-
7067     8         1*t198*t366*t438*t55+2.2134149999999983d-1*t137*t197*t278
7068     9         *t289*t55-1.475609999999999d-1*t110*(t454+t453+t452+t450+
7069     :         t449+t448)*t49-8.853659999999993d-1*t150**3*t380*t49+8.85
7070     ;         3659999999993d-1*t150*t214*t310*t49-2.2134149999999983d-1
7071     <         *t110*t150*t197*t272*t289)-6.0d+0*t137*t311-6.0d+0*t151*t
7072     =         278)+t105*t15*t24*(3.2910615692041123d-2*gammaaa*t16*(3.0
7073     >         4825d-1*t442*t46*t95*t99-9.14475d-1*t103*t137*t295*t95*t9
7074     ?         9+1.82895d+0*t137*t204*t290*t95*t99-9.14475d-1*t103*t144*
7075     @         t278*t95*t99+2.2861875d-1*t367*t438*t46*t99-4.572375d-1*t
7076     1         137*t198*t278*t46*t99+4.572375d-1*t103*t144*t198*t272*t99
7077     2         +6.0965d-1*t103*(t450+t449+t448+t447+t446+t445)*t49+3.657
7078     3         9d+0*t144**3*t373*t49-3.6579d+0*t144*t204*t295*t49+4.5723
7079     4         75d-1*t197*t438*t444*t46+4.572375d-1*t198*t366*t438*t46-9
7080     5         .14475d-1*t137*t197*t278*t289*t46+9.14475d-1*t103*t144*t1
7081     6         97*t272*t289)+6.582123138408225d-2*t16*t296+6.58212313840
7082     7         8225d-2*gammaaa*t136*t296+3.2910615692041123d-2*gammaaa*t
7083     8         145*t277+6.582123138408225d-2*t136*t145)+t72*(-8.88888888
7084     9         8888888d-1*t73*(-2.4d+0*t67*(6.41391219265211d-2*t121*(-g
7085     :         ammaaa*t15*t16*t440*t87-3*gammaaa*t135*t15*t277*t87-3*t15
7086     ;         *t16*t276*t87-3*gammaaa*t136*t15*t276*t87-6*t135*t136*t15
7087     <         *t87+gammaaa*t15*t24*t441-6*gammaaa*t15*t16*t341*t439+3*t
7088     =         15*t24*t277+6*gammaaa*t135*t15*t16*t170*t276+6*t15*t16*t1
7089     >         70*t274+6*gammaaa*t136*t15*t170*t274)-5.0d-1*t120*t442-3.
7090     ?         75d-1*t393*t438+4.810434144489083d-2*t161**3*t392-9.62086
7091     @         8288978166d-2*t161*t231*t324+7.5d-1*t137*t233*t278)-8.400
7092     1         000000000001d+0*t119*t442*t70-3.15d+1*t391*t438*t70-6.3d+
7093     2         1*t137*t230*t278*t70-2.7259596d+0*t442*t66+4.745959999999
7094     3         9996d-2*t443*t65+5.672746666666666d-2*t442*t65-1.63557576
7095     4         00000004d+1*t137*t278*t65+4.7459599999999996d-2*t34*t442-
7096     5         4.9628707825354457d+0*t119*t442-1.8610765434507923d+1*t39
7097     6         1*t438-5.4519192d+0*t438-2.52d+1*t119*t137*t325+1.423788d
7098     7         -1*t137*t280-3.7221530869015845d+1*t137*t230*t278-2.52d+1
7099     8         *t119*t162*t278+1.423788d-1*t139*t278+1.7018239999999996d
7100     9         -1*t137*t278-6.3d+1*t162*t230*t272)-8.888888888888888d-1*
7101     :         t71*(-2.4682961769030842d-2*t38*t39*t442*t75-1.4431302433
7102     ;         467247d-1*t1*t126*t3*t442-1.4809777061418505d-1*t313*t38*
7103     <         t39*t438-5.411738412550218d-1*t1*t262*t3*t438+1.480977706
7104     =         1418505d-1*t137*t186*t278*t38*t39+6.494086095060261d-1*t1
7105     >         *t137*t155*t278*t3)-1.0546577777777776d-1*t34*t35*t456-3.
7106     ?         1639733333333325d-1*t139*t328*t35-3.1639733333333325d-1*t
7107     @         158*t280*t35+1.3528964759928536d-2*t1*t126*t137*t3*t328*t
7108     1         34+6.764482379964267d-3*t1*t126*t158*t278*t3*t34-1.014672
7109     2         35699464d-2*t1*t155*t158*t272*t3*t34-2.6666666666666666d+
7110     3         0*t160*t326-2.6666666666666666d+0*t163*t320+2.02934471398
7111     4         928d-2*t1*t126*t137*t139*t158*t3)+7.57211d-1*(-1.64553078
7112     5         46020562d-2*gammaaa*t15*t16*t440*t60*t64*t87-4.9365923538
7113     6         061685d-2*gammaaa*t135*t15*t277*t60*t64*t87-4.93659235380
7114     7         61685d-2*t15*t16*t276*t60*t64*t87-4.9365923538061685d-2*g
7115     8         ammaaa*t136*t15*t276*t60*t64*t87-9.873184707612337d-2*t13
7116     9         5*t136*t15*t60*t64*t87+4.9365923538061685d-2*gammaaa*t116
7117     :         *t135*t15*t16*t306*t64*t87-9.873184707612337d-2*gammaaa*t
7118     ;         135*t15*t16*t224*t303*t64*t87+4.9365923538061685d-2*gamma
7119     <         aa*t116*t15*t153*t16*t276*t64*t87+9.873184707612337d-2*t1
7120     =         16*t135*t15*t153*t16*t64*t87+9.873184707612337d-2*gammaaa
7121     >         *t116*t135*t136*t15*t153*t64*t87-2.4682961769030842d-2*ga
7122     ?         mmaaa*t135*t15*t16*t227*t272*t307*t60*t87+2.4682961769030
7123     @         842d-2*gammaaa*t100*t118*t135*t15*t16*t278*t60*t87+2.4682
7124     1         961769030842d-2*gammaaa*t100*t118*t137*t15*t16*t276*t60*t
7125     2         87-1.2341480884515421d-2*gammaaa*t118*t135*t15*t16*t205*t
7126     3         272*t60*t87+4.9365923538061685d-2*t100*t118*t135*t137*t15
7127     4         *t16*t60*t87+4.9365923538061685d-2*gammaaa*t100*t118*t135
7128     5         *t136*t137*t15*t60*t87-4.9365923538061685d-2*gammaaa*t100
7129     6         *t116*t118*t135*t137*t15*t153*t16*t87+1.6455307846020562d
7130     7         -2*gammaaa*t15*t24*t441*t60*t64-9.873184707612337d-2*gamm
7131     8         aaa*t15*t16*t341*t439*t60*t64+4.9365923538061685d-2*t15*t
7132     9         24*t277*t60*t64+9.873184707612337d-2*gammaaa*t135*t15*t16
7133     :         *t170*t276*t60*t64+9.873184707612337d-2*t15*t16*t170*t274
7134     ;         *t60*t64+9.873184707612337d-2*gammaaa*t136*t15*t170*t274*
7135     <         t60*t64-1.6455307846020562d-2*gammaaa*t116*t15*t16*t24*t4
7136     =         55*t64-9.873184707612337d-2*gammaaa*t15*t16*t24*t387*t451
7137     >         *t64+9.873184707612337d-2*gammaaa*t15*t153*t16*t224*t24*t
7138     ?         306*t64-4.9365923538061685d-2*t116*t15*t16*t24*t306*t64-4
7139     @         .9365923538061685d-2*gammaaa*t116*t136*t15*t24*t306*t64+9
7140     1         .873184707612337d-2*t15*t16*t224*t24*t303*t64+9.873184707
7141     2         612337d-2*gammaaa*t136*t15*t224*t24*t303*t64-4.9365923538
7142     3         061685d-2*gammaaa*t116*t15*t153*t24*t277*t64-9.8731847076
7143     4         12337d-2*gammaaa*t116*t15*t153*t16*t170*t274*t64-9.873184
7144     5         707612337d-2*t116*t136*t15*t153*t24*t64+t442*t60*t62-t116
7145     6         *t455*t58*t62-6*t387*t451*t58*t62+6*t153*t224*t306*t58*t6
7146     7         2-3*t116*t137*t306*t62+6*t137*t224*t303*t62-3*t116*t153*t
7147     8         278*t62-7.5d-1*t221*t438*t58*t60/t52**2-5.0d-1*t107*t114*
7148     9         t442*t58*t60-7.5d-1*t215*t385*t438*t58*t60-3.75d-1*t114*t
7149     :         381*t438*t58*t60+1.5d+0*t137*t221*t278*t302*t58*t60+7.5d-
7150     ;         1*t114*t137*t215*t278*t58*t60-8.227653923010281d-3*gammaa
7151     <         a*t100*t118*t15*t16*t24*t442*t60-1.2341480884515421d-2*ga
7152     =         mmaaa*t15*t16*t227*t24*t438*t60/t41**2-1.2341480884515421
7153     >         d-2*gammaaa*t15*t16*t205*t24*t389*t438*t60-6.170740442257
7154     ?         711d-3*gammaaa*t118*t15*t16*t24*t374*t438*t60+1.5d+0*t221
7155     @         *t302*t438*t60+7.5d-1*t114*t215*t438*t60+2.46829617690308
7156     1         42d-2*gammaaa*t137*t15*t16*t227*t24*t278*t307*t60+2.46829
7157     2         61769030842d-2*t15*t16*t227*t24*t272*t307*t60+2.468296176
7158     3         9030842d-2*gammaaa*t136*t15*t227*t24*t272*t307*t60+1.2341
7159     4         480884515421d-2*gammaaa*t118*t137*t15*t16*t205*t24*t278*t
7160     5         60-2.4682961769030842d-2*t100*t118*t15*t16*t24*t278*t60-2
7161     6         .4682961769030842d-2*gammaaa*t100*t118*t136*t15*t24*t278*
7162     7         t60-3*t107*t114*t137*t278*t60-2.4682961769030842d-2*gamma
7163     8         aa*t100*t118*t137*t15*t24*t277*t60-4.9365923538061685d-2*
7164     9         gammaaa*t100*t118*t137*t15*t16*t170*t274*t60+1.2341480884
7165     :         515421d-2*t118*t15*t16*t205*t24*t272*t60+1.23414808845154
7166     ;         21d-2*gammaaa*t118*t136*t15*t205*t24*t272*t60-4.936592353
7167     <         8061685d-2*t100*t118*t136*t137*t15*t24*t60+1.5d+0*t107*t1
7168     =         14*t116*t137*t306*t58-3*t107*t114*t137*t224*t303*t58-1.5d
7169     >         +0*t116*t153*t221*t272*t302*t58+1.5d+0*t107*t114*t116*t15
7170     ?         3*t278*t58-7.5d-1*t114*t116*t153*t215*t272*t58-2.46829617
7171     @         69030842d-2*gammaaa*t116*t15*t153*t16*t227*t24*t272*t307+
7172     1         2.4682961769030842d-2*gammaaa*t100*t116*t118*t137*t15*t16
7173     2         *t24*t306-4.9365923538061685d-2*gammaaa*t100*t118*t137*t1
7174     3         5*t16*t224*t24*t303+2.4682961769030842d-2*gammaaa*t100*t1
7175     4         16*t118*t15*t153*t16*t24*t278-1.2341480884515421d-2*gamma
7176     5         aa*t116*t118*t15*t153*t16*t205*t24*t272+3*t107*t114*t116*
7177     6         t153*t272+4.9365923538061685d-2*t100*t116*t118*t137*t15*t
7178     7         153*t16*t24+4.9365923538061685d-2*gammaaa*t100*t116*t118*
7179     8         t136*t137*t15*t153*t24)+t15*(-3.2910615692041123d-2*gamma
7180     9         aa*t16*t440*t51-3.2910615692041123d-2*gammaaa*t135*t277*t
7181     :         51-6.582123138408225d-2*t16*t276*t51-6.582123138408225d-2
7182     ;         *gammaaa*t136*t276*t51-6.582123138408225d-2*t135*t136*t51
7183     <         -2*t135*t288-3.2910615692041123d-2*gammaaa*t105*t145*t16*
7184     =         t276-t147*t276-3.2910615692041123d-2*t105*t135*t145*t16-3
7185     >         .2910615692041123d-2*gammaaa*t105*t135*t136*t145)*t87+t10
7186     ?         5*t15*(-t135*t297-6.582123138408225d-2*gammaaa*t135*t16*t
7187     @         296-6.582123138408225d-2*gammaaa*t145*t16*t276-6.58212313
7188     1         8408225d-2*t135*t145*t16-6.582123138408225d-2*gammaaa*t13
7189     2         5*t136*t145)*t87+9.873184707612337d-2*gammaaa*t135*t15*t1
7190     3         6*t195*t286*t87-4.727288888888889d-2*t31*t442*t75+t132*(2
7191     4         .6666666666666666d+0*t456*t71*t73+5.333333333333333d+0*t1
7192     5         63*t328*t73+2.6666666666666666d+0*t158*t326*t73+5.3333333
7193     6         33333333d+0*t160*t328*t71+2.6666666666666666d+0*t158*t320
7194     7         *t71-3.0d+0*t158*(-1.0546577777777776d-1*t139*t158*t35+t3
7195     8         29+t327+t322+t321+t319)-3.0d+0*t158*t330-3.0d+0*t164*t328
7196     9         +5.333333333333333d+0*t158*t160*t163)+t193*(-2.1333333333
7197     :         333332d+1*t158*t328*t71*t73-1.0666666666666666d+1*t163*t2
7198     ;         82*t73-1.0666666666666666d+1*t160*t282*t71-4.0d+0*t158*t3
7199     <         31)+5.333333333333333d+1*t158**3*t363*t71*t73+t126*t3*(6.
7200     =         764482379964267d-3*t1*t137*t328*t34+6.764482379964267d-3*
7201     >         t1*t158*t278*t34-2.0d+0*t158*t318+6.764482379964267d-3*t1
7202     ?         *t137*t139*t158)*t72-2.02934471398928d-2*t1*t155*t158*t27
7203     @         2*t3*t34*t72+t212*(4.0d+0*t151*t311*t58-t151*t312+2.0d+0*
7204     1         t137*t300)-4.0d+0*t151**3*t379*t58-2.0d+0*t442*t57+t15*t2
7205     2         4*(3.2910615692041123d-2*gammaaa*t441*t51+9.8731847076123
7206     3         37d-2*t277*t51+3.2910615692041123d-2*t105*t16*t296+3.2910
7207     4         615692041123d-2*gammaaa*t105*t136*t296-3.2910615692041123
7208     5         d-2*t16*t195*t286-3.2910615692041123d-2*gammaaa*t136*t195
7209     6         *t286+6.582123138408225d-2*gammaaa*t105*t145*t277+1.31642
7210     7         4627681645d-1*t105*t136*t145)+t15*t170*(1.316424627681645
7211     8         d-1*gammaaa*t135*t16*t276*t51+6.582123138408225d-2*t16*t2
7212     9         74*t51+6.582123138408225d-2*gammaaa*t136*t274*t51-2*t135*
7213     :         t298)-1.9746369415224674d-1*gammaaa*t15*t16*t341*t439*t51
7214     ;         +5.273288888888887d-2*t35*t37*t443+t126*t3*t37*(-3.382241
7215     <         1899821336d-3*t1*t34*t442-1.01467235699464d-2*t1*t137*t28
7216     =         0-1.01467235699464d-2*t1*t139*t278)+6.064083168526658d-3*
7217     >         t1*t125*t155*t3*t442-1.1668349091560873d-2*t190*t38*t39*t
7218     ?         435*t438+8.641318515150488d-2*t1*t125*t3*t414*t438-1.2683
7219     @         404462433d-2*t1*t262*t3*t34*t37*t438+5.987181320518676d-4
7220     1         *t1**3*t361*t438/(rhoa*t28**11)-2.8363733333333335d-1*t31
7221     2         *t313*t438+4.667339636624349d-3*t137*t190*t278*t313*t38*t
7222     3         39+t155*t3*(1.01467235699464d-2*t1*t137*t278*t34+5.073361
7223     4         7849732d-3*t1*t139*t272)*t37-1.5d+0*t137*t155*t3*t318*t37
7224     5         +6.582123138408225d-2*gammaaa*t145**3*t15*t16*t24*t364-2.
7225     6         02934471398928d-2*t1*t126*t132*t137*t282*t3*t34+2.8363733
7226     7         333333335d-1*t137*t186*t278*t31-6.367287326952992d-2*t1*t
7227     8         125*t137*t262*t278*t3+t15*t195*t24*(-t145*t297-6.58212313
7228     9         8408225d-2*gammaaa*t145*t16*t296-3.2910615692041123d-2*t1
7229     :         6*t286-3.2910615692041123d-2*gammaaa*t136*t286)+1.9746369
7230     ;         415224674d-1*gammaaa*t105*t145*t15*t16*t170*t274)*wght
7231            Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB)
7232            Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB)
7233            Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB)
7234            Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB)
7235            Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB)
7236          endif ! rhoa.gt.tol_rho
7237        else  ! ipol.eq.1
7238          rhoa    = rho(iq,R_A)
7239          rhob    = rho(iq,R_B)
7240          gammaaa = rgamma(iq,G_AA)
7241          gammaab = rgamma(iq,G_AB)
7242          gammabb = rgamma(iq,G_BB)
7243          if (rhoa.gt.tol_rho.and.rhob.gt.tol_rho) then
7244            t1 = param(1)
7245            t2 = rhoa**3.333333333333333d-1
7246            t3 = 1/t2
7247            t4 = t1*t3
7248            t5 = gammaaa**5.0d-1
7249            t6 = t5**7
7250            t7 = 1/rhoa**9.333333333333333d+0
7251            t8 = gammaaa**3
7252            t9 = 1/rhoa**8
7253            t10 = t5**5
7254            t11 = 1/rhoa**6.666666666666667d+0
7255            t12 = gammaaa**2
7256            t13 = 1/rhoa**5.333333333333333d+0
7257            t14 = t5**3
7258            t15 = 1/rhoa**4
7259            t16 = 1/rhoa**2.6666666666666666d+0
7260            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
7261     1         7+2.631878392200375d-4*gammaaa*t16+1.8005513133540818d-4*
7262     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
7263     3         10*t11
7264            t18 = t5**9
7265            t19 = 1/rhoa**12
7266            t20 = gammaaa**4
7267            t21 = 1/rhoa**1.0666666666666666d+1
7268            t22 = rhoa**1.3333333333333333d+0
7269            t23 = 1/t22
7270            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
7271     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
7272     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
7273     3         mmaaa*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
7274     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
7275            t25 = 1/t24
7276            t26 = 1.6455307846020562d-2*gammaaa*t16*t17*t25
7277            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
7278            t28 = 1/t27
7279            t29 = t27**5.0d-1
7280            t30 = 1/t29
7281            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
7282            t32 = 1/t31
7283            t33 = 4.1138269615051404d-3*gammaaa*t16+1.0d+0
7284            t34 = 1/t33
7285            t35 = 5.136628594837797d-3*gammaaa*t16*t34+6.934448603031025
7286     1         d-2*gammaaa*t16*t17*t25+1.0d+0
7287            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
7288            t37 = t27*t31
7289            t38 = 1/t37**2.0d+0
7290            t39 = t1**2
7291            t40 = 1/rhoa**6.666666666666666d-1
7292            t41 = 6.582123138408225d-2*t39*t40
7293            t42 = t41+t26
7294            t43 = t42**5.0d-1
7295            t44 = t41+t26+6.0965d-1
7296            t45 = t44**5.0d-1
7297            t46 = t45+t43
7298            t47 = 1/t46
7299            t48 = 2.565564877060844d-1*t1*t3
7300            t49 = t48+t45
7301            t50 = 1/t49
7302            t51 = 1.0d+0-6.0965d-1*t47*t50
7303            t52 = log(t51)
7304            t53 = t41+t26+7.57211d-1
7305            t54 = t53**5.0d-1
7306            t55 = t54+t45
7307            t56 = 1/t55
7308            t57 = 1.475609999999999d-1*t50*t56+1.0d+0
7309            t58 = log(t57)
7310            t59 = t26+7.57211d-1
7311            t60 = t54+t43
7312            t61 = 1/t60
7313            t62 = t54+t48
7314            t63 = 1/t62
7315            t64 = t48+t43
7316            t65 = 1/t64
7317            t66 = t26+6.0965d-1
7318            t67 = t66**2.0d+0
7319            t68 = t66**3.5d+0
7320            t69 = (gammaaa*t16*t17*t25)**5.0d-1
7321            t70 = t59**5.0d-1
7322            t71 = 1.282782438530422d-1*t69-t70
7323            t72 = -2.4d+0*t68*t71-1.417963080724413d+0*t68+2.83637333333
7324     1         3333d-2*t67-9.086532d-1*t66**3.0d+0+4.7459599999999996d-2
7325     2         *t35*t66
7326            t73 = 1/t37**3.0d+0
7327            t74 = t1*t3*t30
7328            t75 = 2.4682961769030842d-2*t74**2.0d+0+2.8862604866934494d-
7329     1         1*t1*t3*t30+1.0d+0
7330            t76 = -8.888888888888888d-1*t72*t73*t75+7.57211d-1*(1.645530
7331     1         7846020562d-2*gammaaa*t16*t17*t25*t61*t65+t59*t61*t63)-2.
7332     2         0d+0*t58*t59+3.2910615692041123d-2*gammaaa*t16*t17*t25*t5
7333     3         2+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
7334     4         28*t32-1.0d+0
7335            t77 = rhob**3.333333333333333d-1
7336            t78 = 1/t77
7337            t79 = t1*t78
7338            t80 = gammabb**5.0d-1
7339            t81 = t80**7
7340            t82 = 1/rhob**9.333333333333333d+0
7341            t83 = gammabb**3
7342            t84 = 1/rhob**8
7343            t85 = t80**5
7344            t86 = 1/rhob**6.666666666666667d+0
7345            t87 = gammabb**2
7346            t88 = 1/rhob**5.333333333333333d+0
7347            t89 = t80**3
7348            t90 = 1/rhob**4
7349            t91 = 1/rhob**2.6666666666666666d+0
7350            t92 = 2.631878392200375d-4*gammabb*t91+1.8005513133540818d-4
7351     1         *t89*t90-4.342399100269002d-5*t87*t88+5.3020963068324d-6*
7352     2         t85*t86-4.327677396975467d-7*t83*t84+2.4123830247695402d-
7353     3         8*t81*t82
7354            t93 = t80**9
7355            t94 = 1/rhob**12
7356            t95 = gammabb**4
7357            t96 = 1/rhob**1.0666666666666666d+1
7358            t97 = rhob**1.3333333333333333d+0
7359            t98 = 1/t97
7360            t99 = 6.841322473346062d-1*t80*t98-5.649671283776346d-9*t95*
7361     1         t96+3.149302550983647d-10*t93*t94-2.0532933130264455d-1*g
7362     2         ammabb*t91+2.342799068769956d-2*t89*t90-1.383706469760652
7363     3         4d-3*t87*t88+5.955909787676884d-5*t85*t86-2.7196832676277
7364     4         033d-6*t83*t84+1.7578986477855002d-7*t81*t82+1.0d+0
7365            t100 = 1/t99
7366            t101 = 1.6455307846020562d-2*gammabb*t100*t91*t92
7367            t102 = 6.582123138408225d-2*t79**2.0d+0+t101+6.0965d-1
7368            t103 = 1/t102
7369            t104 = t102**5.0d-1
7370            t105 = 1/t104
7371            t106 = 2.565564877060844d-1*t1*t105*t78+1.0d+0
7372            t107 = 1/t106
7373            t108 = 4.1138269615051404d-3*gammabb*t91+1.0d+0
7374            t109 = 1/t108
7375            t110 = 6.934448603031025d-2*gammabb*t100*t91*t92+5.136628594
7376     1         837797d-3*gammabb*t109*t91+1.0d+0
7377            t111 = 1.282782438530422d-1*t1*t105*t78+1.0d+0
7378            t112 = t102*t106
7379            t113 = 1/t112**2.0d+0
7380            t114 = 1/rhob**6.666666666666666d-1
7381            t115 = 6.582123138408225d-2*t114*t39
7382            t116 = t115+t101
7383            t117 = t116**5.0d-1
7384            t118 = t115+t101+6.0965d-1
7385            t119 = t118**5.0d-1
7386            t120 = t119+t117
7387            t121 = 1/t120
7388            t122 = 2.565564877060844d-1*t1*t78
7389            t123 = t122+t119
7390            t124 = 1/t123
7391            t125 = 1.0d+0-6.0965d-1*t121*t124
7392            t126 = log(t125)
7393            t127 = t115+t101+7.57211d-1
7394            t128 = t127**5.0d-1
7395            t129 = t128+t119
7396            t130 = 1/t129
7397            t131 = 1.475609999999999d-1*t124*t130+1.0d+0
7398            t132 = log(t131)
7399            t133 = t101+7.57211d-1
7400            t134 = t128+t117
7401            t135 = 1/t134
7402            t136 = t128+t122
7403            t137 = 1/t136
7404            t138 = t122+t117
7405            t139 = 1/t138
7406            t140 = t101+6.0965d-1
7407            t141 = t140**2.0d+0
7408            t142 = t140**3.5d+0
7409            t143 = (gammabb*t100*t91*t92)**5.0d-1
7410            t144 = t133**5.0d-1
7411            t145 = 1.282782438530422d-1*t143-t144
7412            t146 = -2.4d+0*t142*t145-1.417963080724413d+0*t142+2.8363733
7413     1         33333333d-2*t141-9.086532d-1*t140**3.0d+0+4.7459599999999
7414     2         996d-2*t110*t140
7415            t147 = 1/t112**3.0d+0
7416            t148 = t1*t105*t78
7417            t149 = 2.8862604866934494d-1*t1*t105*t78+2.4682961769030842d
7418     1         -2*t148**2.0d+0+1.0d+0
7419            t150 = 7.57211d-1*(1.6455307846020562d-2*gammabb*t100*t135*t
7420     1         139*t91*t92+t133*t135*t137)+3.2910615692041123d-2*gammabb
7421     2         *t100*t126*t91*t92-8.888888888888888d-1*t146*t147*t149-2.
7422     3         0d+0*t132*t133+5.273288888888887d-2*t110*t111*t113+4.7272
7423     4         88888888889d-2*t103*t107-1.0d+0
7424            t151 = 1/t27**2
7425            t152 = 1/rhoa**3.6666666666666664d+0
7426            t153 = -4.38808209227215d-2*gammaaa*t152*t17*t25
7427            t154 = 1/rhoa**13
7428            t155 = 1/rhoa**1.1666666666666665d+1
7429            t156 = 1/rhoa**1.0333333333333333d+1
7430            t157 = 1/rhoa**9
7431            t158 = 1/rhoa**7.666666666666667d+0
7432            t159 = 1/rhoa**6.333333333333333d+0
7433            t160 = 1/rhoa**5
7434            t161 = 1/rhoa**2.3333333333333334d+0
7435            t162 = 2.1757466141021625d-5*t157*t8-1.6407054045998d-6*t156
7436     1         *t6-9.121763297794749d-1*t161*t5+6.026316036028103d-8*t15
7437     2         5*t20-3.7791630611803767d-9*t154*t18-9.371196275079824d-2
7438     3         *t14*t160+7.379767838723479d-3*t12*t159-3.970606525117923
7439     4         d-4*t10*t158+5.475448834737188d-1*gammaaa*t152
7440            t163 = 1/t24**2
7441            t164 = -1.6455307846020562d-2*gammaaa*t16*t162*t163*t17
7442            t165 = 3.462141917580374d-6*t157*t8-2.2515574897849044d-7*t1
7443     1         56*t6-7.202205253416327d-4*t14*t160+2.3159461868101344d-4
7444     2         *t12*t159-3.5347308712216d-5*t10*t158-7.018342379201d-4*g
7445     3         ammaaa*t152
7446            t166 = 1.6455307846020562d-2*gammaaa*t16*t165*t25
7447            t167 = -4.38808209227215d-2*t1*t23*t4+t166+t164+t153
7448            t168 = 1/t33**2
7449            t169 = -1.369767625290079d-2*gammaaa*t152*t34-1.849186294141
7450     1         6065d-1*gammaaa*t152*t17*t25+6.934448603031025d-2*gammaaa
7451     2         *t16*t165*t25-6.934448603031025d-2*gammaaa*t16*t162*t163*
7452     3         t17+5.634986987915197d-5*t12*t159*t168
7453            t170 = 5.273288888888887d-2*t169*t36*t38
7454            t171 = -8.7761641845443d-2*gammaaa*t152*t17*t25*t52
7455            t172 = -3.2910615692041123d-2*gammaaa*t16*t162*t163*t17*t52
7456            t173 = 3.2910615692041123d-2*gammaaa*t16*t165*t25*t52
7457            t174 = 1/rhoa**1.6666666666666669d+0
7458            t175 = -4.38808209227215d-2*t174*t39+t166+t164+t153
7459            t176 = 1/t45
7460            t177 = 5.0d-1*t175*t176
7461            t178 = -8.551882923536147d-2*t1*t23
7462            t179 = t178+t177
7463            t180 = 1/t49**2
7464            t181 = 1/t43
7465            t182 = 5.0d-1*t175*t181
7466            t183 = t182+t177
7467            t184 = 1/t46**2
7468            t185 = 6.0965d-1*t183*t184*t50+6.0965d-1*t179*t180*t47
7469            t186 = 1/t51
7470            t187 = 3.2910615692041123d-2*gammaaa*t16*t17*t185*t186*t25
7471            t188 = t166+t164+t153
7472            t189 = -2.0d+0*t188*t58
7473            t190 = 1/t54
7474            t191 = 5.0d-1*t175*t190
7475            t192 = t191+t177
7476            t193 = 1/t55**2
7477            t194 = -1.475609999999999d-1*t179*t180*t56-1.475609999999999
7478     1         d-1*t192*t193*t50
7479            t195 = 1/t57
7480            t196 = -2.0d+0*t194*t195*t59
7481            t197 = t191+t178
7482            t198 = 1/t62**2
7483            t199 = t191+t182
7484            t200 = 1/t60**2
7485            t201 = t182+t178
7486            t202 = 1/t64**2
7487            t203 = 7.57211d-1*(-4.38808209227215d-2*gammaaa*t152*t17*t25
7488     1         *t61*t65+1.6455307846020562d-2*gammaaa*t16*t165*t25*t61*t
7489     2         65-1.6455307846020562d-2*gammaaa*t16*t162*t163*t17*t61*t6
7490     3         5-1.6455307846020562d-2*gammaaa*t16*t17*t199*t200*t25*t65
7491     4         +t188*t61*t63-t199*t200*t59*t63-t197*t198*t59*t61-1.64553
7492     5         07846020562d-2*gammaaa*t16*t17*t201*t202*t25*t61)
7493            t204 = t66**2.5d+0
7494            t205 = 1/t70
7495            t206 = 1/t69
7496            t207 = -2.6666666666666666d+0*gammaaa*t152*t17*t25+gammaaa*t
7497     1         16*t165*t25-gammaaa*t16*t162*t163*t17
7498            t208 = 6.41391219265211d-2*t206*t207-5.0d-1*t188*t205
7499            t209 = -8.400000000000001d+0*t188*t204*t71-2.4d+0*t208*t68-2
7500     1         .7259596d+0*t188*t67+5.672746666666666d-2*t188*t66+4.7459
7501     2         599999999996d-2*t169*t66+4.7459599999999996d-2*t188*t35-4
7502     3         .9628707825354457d+0*t188*t204
7503            t210 = -8.888888888888888d-1*t209*t73*t75
7504            t211 = 1/t31**2
7505            t212 = -8.551882923536147d-2*t1*t23*t30
7506            t213 = 1/t29**3
7507            t214 = t212-1.282782438530422d-1*t1*t167*t213*t3
7508            t215 = -4.2759414617680735d-2*t1*t23*t30
7509            t216 = t215-6.41391219265211d-2*t1*t167*t213*t3
7510            t217 = -9.620868288978164d-2*t1*t23*t30
7511            t218 = -3.333333333333333d-1*t1*t23*t30
7512            t219 = t218-5.0d-1*t1*t167*t213*t3
7513            t220 = 4.9365923538061685d-2*t219*t74-1.4431302433467247d-1*
7514     1         t1*t167*t213*t3+t217
7515            t221 = t167*t31+t214*t27
7516            t222 = 1/t37**4.0d+0
7517            t223 = 2.6666666666666666d+0*t221*t222*t72*t75-8.88888888888
7518     1         8888d-1*t220*t72*t73-1.0546577777777776d-1*t221*t35*t36*t
7519     2         73+5.273288888888887d-2*t216*t35*t38-4.727288888888889d-2
7520     3         *t151*t167*t32-4.727288888888889d-2*t211*t214*t28+t210+t2
7521     4         03+t196+t189+t187+t173+t172+t171+t170
7522            t224 = 1/t102**2
7523            t225 = 1/rhob**3.6666666666666664d+0
7524            t226 = -4.38808209227215d-2*gammabb*t100*t225*t92
7525            t227 = 1/rhob**13
7526            t228 = 1/rhob**1.1666666666666665d+1
7527            t229 = 1/rhob**1.0333333333333333d+1
7528            t230 = 1/rhob**9
7529            t231 = 1/rhob**7.666666666666667d+0
7530            t232 = 1/rhob**6.333333333333333d+0
7531            t233 = 1/rhob**5
7532            t234 = 1/rhob**2.3333333333333334d+0
7533            t235 = 6.026316036028103d-8*t228*t95-3.7791630611803767d-9*t
7534     1         227*t93-9.371196275079824d-2*t233*t89+7.379767838723479d-
7535     2         3*t232*t87-3.970606525117923d-4*t231*t85+2.17574661410216
7536     3         25d-5*t230*t83-1.6407054045998d-6*t229*t81-9.121763297794
7537     4         749d-1*t234*t80+5.475448834737188d-1*gammabb*t225
7538            t236 = 1/t99**2
7539            t237 = -1.6455307846020562d-2*gammabb*t235*t236*t91*t92
7540            t238 = -7.202205253416327d-4*t233*t89+2.3159461868101344d-4*
7541     1         t232*t87-3.5347308712216d-5*t231*t85+3.462141917580374d-6
7542     2         *t230*t83-2.2515574897849044d-7*t229*t81-7.018342379201d-
7543     3         4*gammabb*t225
7544            t239 = 1.6455307846020562d-2*gammabb*t100*t238*t91
7545            t240 = -4.38808209227215d-2*t1*t79*t98+t239+t237+t226
7546            t241 = 1/t108**2
7547            t242 = -6.934448603031025d-2*gammabb*t235*t236*t91*t92-1.849
7548     1         1862941416065d-1*gammabb*t100*t225*t92+6.934448603031025d
7549     2         -2*gammabb*t100*t238*t91+5.634986987915197d-5*t232*t241*t
7550     3         87-1.369767625290079d-2*gammabb*t109*t225
7551            t243 = 5.273288888888887d-2*t111*t113*t242
7552            t244 = -8.7761641845443d-2*gammabb*t100*t126*t225*t92
7553            t245 = -3.2910615692041123d-2*gammabb*t126*t235*t236*t91*t92
7554            t246 = 3.2910615692041123d-2*gammabb*t100*t126*t238*t91
7555            t247 = 1/rhob**1.6666666666666669d+0
7556            t248 = -4.38808209227215d-2*t247*t39+t239+t237+t226
7557            t249 = 1/t119
7558            t250 = 5.0d-1*t248*t249
7559            t251 = -8.551882923536147d-2*t1*t98
7560            t252 = t251+t250
7561            t253 = 1/t123**2
7562            t254 = 1/t117
7563            t255 = 5.0d-1*t248*t254
7564            t256 = t255+t250
7565            t257 = 1/t120**2
7566            t258 = 6.0965d-1*t124*t256*t257+6.0965d-1*t121*t252*t253
7567            t259 = 1/t125
7568            t260 = 3.2910615692041123d-2*gammabb*t100*t258*t259*t91*t92
7569            t261 = t239+t237+t226
7570            t262 = -2.0d+0*t132*t261
7571            t263 = 1/t128
7572            t264 = 5.0d-1*t248*t263
7573            t265 = t264+t250
7574            t266 = 1/t129**2
7575            t267 = -1.475609999999999d-1*t124*t265*t266-1.47560999999999
7576     1         9d-1*t130*t252*t253
7577            t268 = 1/t131
7578            t269 = -2.0d+0*t133*t267*t268
7579            t270 = t264+t251
7580            t271 = 1/t136**2
7581            t272 = t264+t255
7582            t273 = 1/t134**2
7583            t274 = t255+t251
7584            t275 = 1/t138**2
7585            t276 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t100*t135*
7586     1         t274*t275*t91*t92-1.6455307846020562d-2*gammabb*t100*t139
7587     2         *t272*t273*t91*t92-1.6455307846020562d-2*gammabb*t135*t13
7588     3         9*t235*t236*t91*t92-4.38808209227215d-2*gammabb*t100*t135
7589     4         *t139*t225*t92+1.6455307846020562d-2*gammabb*t100*t135*t1
7590     5         39*t238*t91-t133*t137*t272*t273-t133*t135*t270*t271+t135*
7591     6         t137*t261)
7592            t277 = t140**2.5d+0
7593            t278 = 1/t144
7594            t279 = 1/t143
7595            t280 = -gammabb*t235*t236*t91*t92-2.6666666666666666d+0*gamm
7596     1         abb*t100*t225*t92+gammabb*t100*t238*t91
7597            t281 = 6.41391219265211d-2*t279*t280-5.0d-1*t261*t278
7598            t282 = -2.4d+0*t142*t281-8.400000000000001d+0*t145*t261*t277
7599     1         -4.9628707825354457d+0*t261*t277-2.7259596d+0*t141*t261+5
7600     2         .672746666666666d-2*t140*t261+4.7459599999999996d-2*t110*
7601     3         t261+4.7459599999999996d-2*t140*t242
7602            t283 = -8.888888888888888d-1*t147*t149*t282
7603            t284 = 1/t106**2
7604            t285 = -8.551882923536147d-2*t1*t105*t98
7605            t286 = 1/t104**3
7606            t287 = t285-1.282782438530422d-1*t1*t240*t286*t78
7607            t288 = -4.2759414617680735d-2*t1*t105*t98
7608            t289 = t288-6.41391219265211d-2*t1*t240*t286*t78
7609            t290 = -9.620868288978164d-2*t1*t105*t98
7610            t291 = -3.333333333333333d-1*t1*t105*t98
7611            t292 = t291-5.0d-1*t1*t240*t286*t78
7612            t293 = -1.4431302433467247d-1*t1*t240*t286*t78+4.93659235380
7613     1         61685d-2*t148*t292+t290
7614            t294 = t102*t287+t106*t240
7615            t295 = 1/t112**4.0d+0
7616            t296 = 2.6666666666666666d+0*t146*t149*t294*t295-1.054657777
7617     1         7777776d-1*t110*t111*t147*t294-8.888888888888888d-1*t146*
7618     2         t147*t293+5.273288888888887d-2*t110*t113*t289-4.727288888
7619     3         888889d-2*t103*t284*t287+t283+t276+t269+t262+t260+t246+t2
7620     4         45+t244+t243-4.727288888888889d-2*t107*t224*t240
7621            t297 = 1/t5
7622            t298 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
7623     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
7624     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t23*
7625     3         t297-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t
7626     4         14-2.767412939521305d-3*gammaaa*t13
7627            t299 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
7628     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
7629     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammaaa
7630     3         *t13
7631            t300 = 1.6455307846020562d-2*gammaaa*t16*t25*t299-1.64553078
7632     1         46020562d-2*gammaaa*t16*t163*t17*t298+1.6455307846020562d
7633     2         -2*t16*t17*t25
7634            t301 = -4.727288888888889d-2*t151*t300*t32
7635            t302 = 5.136628594837797d-3*t16*t34+6.934448603031025d-2*gam
7636     1         maaa*t16*t25*t299-6.934448603031025d-2*gammaaa*t16*t163*t
7637     2         17*t298+6.934448603031025d-2*t16*t17*t25-2.11312012046819
7638     3         9d-5*gammaaa*t13*t168
7639            t303 = 5.273288888888887d-2*t302*t36*t38
7640            t304 = -3.2910615692041123d-2*gammaaa*t16*t163*t17*t298*t52
7641            t305 = 5.0d-1*t181*t300
7642            t306 = 5.0d-1*t176*t300
7643            t307 = t306+t305
7644            t308 = 6.0965d-1*t184*t307*t50+3.04825d-1*t176*t180*t300*t47
7645            t309 = 3.2910615692041123d-2*gammaaa*t16*t17*t186*t25*t308
7646            t310 = 3.2910615692041123d-2*gammaaa*t299*t52+3.291061569204
7647     1         1123d-2*t17*t52
7648            t311 = -2.0d+0*t300*t58
7649            t312 = 5.0d-1*t190*t300
7650            t313 = t312+t306
7651            t314 = -7.378049999999994d-2*t176*t180*t300*t56-1.4756099999
7652     1         99999d-1*t193*t313*t50
7653            t315 = -2.0d+0*t195*t314*t59
7654            t316 = t312+t305
7655            t317 = 7.57211d-1*(1.6455307846020562d-2*gammaaa*t16*t25*t29
7656     1         9*t61*t65-1.6455307846020562d-2*gammaaa*t16*t163*t17*t298
7657     2         *t61*t65+1.6455307846020562d-2*t16*t17*t25*t61*t65-1.6455
7658     3         307846020562d-2*gammaaa*t16*t17*t200*t25*t316*t65+t300*t6
7659     4         1*t63-t200*t316*t59*t63-5.0d-1*t190*t198*t300*t59*t61-8.2
7660     5         27653923010281d-3*gammaaa*t16*t17*t181*t202*t25*t300*t61)
7661            t318 = 1/t29**5
7662            t319 = 6.064083168526658d-3*t1*t211*t3*t300*t318
7663            t320 = -3.3822411899821336d-3*t1*t213*t3*t300*t35*t38
7664            t321 = t300*t31-1.282782438530422d-1*t1*t3*t30*t300
7665            t322 = 2.6666666666666666d+0*t222*t321*t72*t75
7666            t323 = -1.4431302433467247d-1*t1*t213*t3*t300
7667            t324 = t323-2.4682961769030842d-2*t151*t300*t39*t40
7668            t325 = gammaaa*t16*t25*t299-gammaaa*t16*t163*t17*t298+t16*t1
7669     1         7*t25
7670            t326 = 6.41391219265211d-2*t206*t325-5.0d-1*t205*t300
7671            t327 = -8.400000000000001d+0*t204*t300*t71-2.4d+0*t326*t68-2
7672     1         .7259596d+0*t300*t67+4.7459599999999996d-2*t302*t66+5.672
7673     2         746666666666d-2*t300*t66+4.7459599999999996d-2*t300*t35-4
7674     3         .9628707825354457d+0*t204*t300
7675            t328 = -8.888888888888888d-1*t327*t75-8.888888888888888d-1*t
7676     1         324*t72-1.0546577777777776d-1*t321*t35*t36
7677            t329 = 1/t80
7678            t330 = 3.420661236673031d-1*t329*t98-2.2598685135105387d-8*t
7679     1         83*t96+1.4171861479426412d-9*t81*t94-2.0532933130264455d-
7680     2         1*t91+3.514198603154934d-2*t80*t90+1.488977446919221d-4*t
7681     3         86*t89-2.767412939521305d-3*gammabb*t88-8.159049802883108
7682     4         d-6*t84*t87+6.15264526724925d-7*t82*t85
7683            t331 = 2.631878392200375d-4*t91+2.7008269700311227d-4*t80*t9
7684     1         0+1.3255240767081d-5*t86*t89-8.684798200538004d-5*gammabb
7685     2         *t88-1.2983032190926402d-6*t84*t87+8.443340586693391d-8*t
7686     3         82*t85
7687            t332 = -1.6455307846020562d-2*gammabb*t236*t330*t91*t92+1.64
7688     1         55307846020562d-2*t100*t91*t92+1.6455307846020562d-2*gamm
7689     2         abb*t100*t331*t91
7690            t333 = -4.727288888888889d-2*t107*t224*t332
7691            t334 = -6.934448603031025d-2*gammabb*t236*t330*t91*t92+6.934
7692     1         448603031025d-2*t100*t91*t92+6.934448603031025d-2*gammabb
7693     2         *t100*t331*t91+5.136628594837797d-3*t109*t91-2.1131201204
7694     3         68199d-5*gammabb*t241*t88
7695            t335 = 5.273288888888887d-2*t111*t113*t334
7696            t336 = -3.2910615692041123d-2*gammabb*t126*t236*t330*t91*t92
7697            t337 = 5.0d-1*t254*t332
7698            t338 = 5.0d-1*t249*t332
7699            t339 = t338+t337
7700            t340 = 6.0965d-1*t124*t257*t339+3.04825d-1*t121*t249*t253*t3
7701     1         32
7702            t341 = 3.2910615692041123d-2*gammabb*t100*t259*t340*t91*t92
7703            t342 = 3.2910615692041123d-2*t126*t92+3.2910615692041123d-2*
7704     1         gammabb*t126*t331
7705            t343 = -2.0d+0*t132*t332
7706            t344 = 5.0d-1*t263*t332
7707            t345 = t344+t338
7708            t346 = -1.475609999999999d-1*t124*t266*t345-7.37804999999999
7709     1         4d-2*t130*t249*t253*t332
7710            t347 = -2.0d+0*t133*t268*t346
7711            t348 = t344+t337
7712            t349 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t100*t139*
7713     1         t273*t348*t91*t92-8.227653923010281d-3*gammabb*t100*t135*
7714     2         t254*t275*t332*t91*t92-1.6455307846020562d-2*gammabb*t135
7715     3         *t139*t236*t330*t91*t92+1.6455307846020562d-2*t100*t135*t
7716     4         139*t91*t92+1.6455307846020562d-2*gammabb*t100*t135*t139*
7717     5         t331*t91-t133*t137*t273*t348-5.0d-1*t133*t135*t263*t271*t
7718     6         332+t135*t137*t332)
7719            t350 = 1/t104**5
7720            t351 = 6.064083168526658d-3*t1*t284*t332*t350*t78
7721            t352 = -3.3822411899821336d-3*t1*t110*t113*t286*t332*t78
7722            t353 = t106*t332-1.282782438530422d-1*t1*t105*t332*t78
7723            t354 = 2.6666666666666666d+0*t146*t149*t295*t353
7724            t355 = -1.4431302433467247d-1*t1*t286*t332*t78
7725            t356 = t355-2.4682961769030842d-2*t114*t224*t332*t39
7726            t357 = -gammabb*t236*t330*t91*t92+t100*t91*t92+gammabb*t100*
7727     1         t331*t91
7728            t358 = 6.41391219265211d-2*t279*t357-5.0d-1*t278*t332
7729            t359 = -2.4d+0*t142*t358+4.7459599999999996d-2*t140*t334-8.4
7730     1         00000000000001d+0*t145*t277*t332-4.9628707825354457d+0*t2
7731     2         77*t332-2.7259596d+0*t141*t332+5.672746666666666d-2*t140*
7732     3         t332+4.7459599999999996d-2*t110*t332
7733            t360 = -8.888888888888888d-1*t149*t359-8.888888888888888d-1*
7734     1         t146*t356-1.0546577777777776d-1*t110*t111*t353
7735            t361 = 1/rhoa**4.666666666666667d+0
7736            t362 = 1.6089634338331216d-1*gammaaa*t17*t25*t361
7737            t363 = 8.7761641845443d-2*gammaaa*t152*t162*t163*t17
7738            t364 = -8.7761641845443d-2*gammaaa*t152*t165*t25
7739            t365 = t162**2
7740            t366 = 1/t24**3
7741            t367 = 3.2910615692041123d-2*gammaaa*t16*t17*t365*t366
7742            t368 = 1/rhoa**14
7743            t369 = 1/rhoa**1.2666666666666665d+1
7744            t370 = 1/rhoa**1.1333333333333334d+1
7745            t371 = 1/rhoa**10
7746            t372 = 1/rhoa**8.666666666666666d+0
7747            t373 = 1/rhoa**7.333333333333333d+0
7748            t374 = 1/rhoa**6
7749            t375 = 1/rhoa**3.3333333333333337d+0
7750            t376 = -1.9581719526919464d-4*t371*t8+1.695395584753127d-5*t
7751     1         370*t6+2.1284114361521084d+0*t375*t5+4.685598137539912d-1
7752     2         *t14*t374-4.6738529645248705d-2*t12*t373+3.04413166925707
7753     3         47d-3*t10*t372-7.030702042032786d-7*t20*t369+4.9129119795
7754     4         344894d-8*t18*t368-2.0076645727369685d+0*gammaaa*t361
7755            t377 = -1.6455307846020562d-2*gammaaa*t16*t163*t17*t376
7756            t378 = -3.2910615692041123d-2*gammaaa*t16*t162*t163*t165
7757            t379 = -3.115927725822337d-5*t371*t8+2.326609406111068d-6*t3
7758     1         70*t6+3.6011026267081636d-3*t14*t374-1.466765918313085d-3
7759     2         *t12*t373+2.709960334603227d-4*t10*t372+2.573392205707033
7760     3         5d-3*gammaaa*t361
7761            t380 = 1.6455307846020562d-2*gammaaa*t16*t25*t379
7762            t381 = 7.313470153786916d-2*t16*t39+t380+t378+t377+t367+t364
7763     1         +t363+t362
7764            t382 = 1/t27**3
7765            t383 = t167**2
7766            t384 = 1/t33**3
7767            t385 = 1.2363392745928628d-6*t371*t384*t8+6.934448603031025d
7768     1         -2*gammaaa*t16*t25*t379-6.934448603031025d-2*gammaaa*t16*
7769     2         t163*t17*t376-5.071488289123677d-4*t12*t168*t373+1.386889
7770     3         720606205d-1*gammaaa*t16*t17*t365*t366+5.02248129273029d-
7771     4         2*gammaaa*t34*t361+6.780349745185891d-1*gammaaa*t17*t25*t
7772     5         361-3.698372588283213d-1*gammaaa*t152*t165*t25+3.69837258
7773     6         8283213d-1*gammaaa*t152*t162*t163*t17-1.386889720606205d-
7774     7         1*gammaaa*t16*t162*t163*t165
7775            t386 = 1/t31**3
7776            t387 = t214**2
7777            t388 = t221**2
7778            t389 = 1/t37**5.0d+0
7779            t390 = t185**2
7780            t391 = 1/t51**2
7781            t392 = t179**2
7782            t393 = 1/t49**3
7783            t394 = t175**2
7784            t395 = 1/t45**3
7785            t396 = -2.5d-1*t394*t395
7786            t397 = 5.0d-1*t176*t381
7787            t398 = 1.1402510564714863d-1*t1*t161
7788            t399 = t398+t397+t396
7789            t400 = t183**2
7790            t401 = 1/t46**3
7791            t402 = 1/t43**3
7792            t403 = -2.5d-1*t394*t402
7793            t404 = 5.0d-1*t181*t381
7794            t405 = t404+t403+t397+t396
7795            t406 = 6.0965d-1*t184*t405*t50-1.2193000000000001d+0*t400*t4
7796     1         01*t50+6.0965d-1*t180*t399*t47-1.2193000000000001d+0*t392
7797     2         *t393*t47-1.2193000000000001d+0*t179*t180*t183*t184
7798            t407 = t380+t378+t377+t367+t364+t363+t362
7799            t408 = t194**2
7800            t409 = 1/t57**2
7801            t410 = t192**2
7802            t411 = 1/t55**3
7803            t412 = 1/t54**3
7804            t413 = -2.5d-1*t394*t412
7805            t414 = 5.0d-1*t190*t381
7806            t415 = t414+t413+t397+t396
7807            t416 = -1.475609999999999d-1*t180*t399*t56+2.951219999999998
7808     1         d-1*t392*t393*t56-1.475609999999999d-1*t193*t415*t50+2.95
7809     2         1219999999998d-1*t410*t411*t50+2.951219999999998d-1*t179*
7810     3         t180*t192*t193
7811            t417 = t197**2
7812            t418 = 1/t62**3
7813            t419 = t414+t413+t398
7814            t420 = t199**2
7815            t421 = 1/t60**3
7816            t422 = t414+t413+t404+t403
7817            t423 = t201**2
7818            t424 = 1/t64**3
7819            t425 = t404+t403+t398
7820            t426 = t188**2
7821            t427 = t66**1.5d+0
7822            t428 = 1/t69**3
7823            t429 = t207**2
7824            t430 = 1/t70**3
7825            t431 = gammaaa*t16*t25*t379-gammaaa*t16*t163*t17*t376+2*gamm
7826     1         aaa*t16*t17*t365*t366+9.777777777777779d+0*gammaaa*t17*t2
7827     2         5*t361-5.333333333333333d+0*gammaaa*t152*t165*t25+5.33333
7828     3         3333333333d+0*gammaaa*t152*t162*t163*t17-2*gammaaa*t16*t1
7829     4         62*t163*t165
7830            t432 = 6.41391219265211d-2*t206*t431+2.5d-1*t426*t430-3.2069
7831     1         56096326055d-2*t428*t429-5.0d-1*t205*t407
7832            t433 = -2.1d+1*t426*t427*t71-8.400000000000001d+0*t204*t407*
7833     1         t71-2.4d+0*t432*t68-2.7259596d+0*t407*t67-5.4519192d+0*t4
7834     2         26*t66+5.672746666666666d-2*t407*t66+4.7459599999999996d-
7835     3         2*t385*t66-1.2407176956338616d+1*t426*t427+5.672746666666
7836     4         666d-2*t426+4.7459599999999996d-2*t35*t407-4.962870782535
7837     5         4457d+0*t204*t407-1.68d+1*t188*t204*t208+9.49191999999999
7838     6         9d-2*t169*t188
7839            t434 = 9.620868288978166d-2*t1*t3*t318*t383-6.41391219265211
7840     1         d-2*t1*t213*t3*t381+5.701255282357431d-2*t1*t161*t30+4.27
7841     2         59414617680735d-2*t1*t167*t213*t23
7842            t435 = 1.924173657795633d-1*t1*t3*t318*t383-1.28278243853042
7843     1         2d-1*t1*t213*t3*t381+1.1402510564714863d-1*t1*t161*t30+8.
7844     2         551882923536147d-2*t1*t167*t213*t23
7845            t436 = 7.5d-1*t1*t3*t318*t383-5.0d-1*t1*t213*t3*t381+4.44444
7846     1         4444444444d-1*t1*t161*t30+3.333333333333333d-1*t1*t167*t2
7847     2         13*t23
7848            t437 = 4.9365923538061685d-2*t1*t3*t30*t436+2.16469536502008
7849     1         7d-1*t1*t3*t318*t383-1.4431302433467247d-1*t1*t213*t3*t38
7850     2         1+1.2827824385304218d-1*t1*t161*t30+9.620868288978164d-2*
7851     3         t1*t167*t213*t23+4.9365923538061685d-2*t219**2
7852            t438 = t27*t435+t31*t381+2*t167*t214
7853            t439 = -8.888888888888888d-1*t433*t73*t75+2.6666666666666666
7854     1         d+0*t222*t438*t72*t75-1.0666666666666666d+1*t388*t389*t72
7855     2         *t75+5.333333333333333d+0*t209*t221*t222*t75-8.8888888888
7856     3         88888d-1*t437*t72*t73-1.0546577777777776d-1*t35*t36*t438*
7857     4         t73-2.109315555555555d-1*t169*t221*t36*t73-2.109315555555
7858     5         555d-1*t216*t221*t35*t73-1.7777777777777776d+0*t209*t220*
7859     6         t73+5.333333333333333d+0*t220*t221*t222*t72+7.57211d-1*(1
7860     7         .6455307846020562d-2*gammaaa*t16*t25*t379*t61*t65-1.64553
7861     8         07846020562d-2*gammaaa*t16*t163*t17*t376*t61*t65+3.291061
7862     9         5692041123d-2*gammaaa*t16*t17*t365*t366*t61*t65+1.6089634
7863     :         338331216d-1*gammaaa*t17*t25*t361*t61*t65-8.7761641845443
7864     ;         d-2*gammaaa*t152*t165*t25*t61*t65+8.7761641845443d-2*gamm
7865     <         aaa*t152*t162*t163*t17*t61*t65-3.2910615692041123d-2*gamm
7866     =         aaa*t16*t162*t163*t165*t61*t65-1.6455307846020562d-2*gamm
7867     >         aaa*t16*t17*t200*t25*t422*t65+3.2910615692041123d-2*gamma
7868     ?         aa*t16*t17*t25*t420*t421*t65+8.7761641845443d-2*gammaaa*t
7869     @         152*t17*t199*t200*t25*t65-3.2910615692041123d-2*gammaaa*t
7870     1         16*t165*t199*t200*t25*t65+3.2910615692041123d-2*gammaaa*t
7871     2         16*t162*t163*t17*t199*t200*t65+t407*t61*t63-t200*t422*t59
7872     3         *t63+2*t420*t421*t59*t63-2*t188*t199*t200*t63-t198*t419*t
7873     4         59*t61+2*t417*t418*t59*t61-1.6455307846020562d-2*gammaaa*
7874     5         t16*t17*t202*t25*t425*t61+3.2910615692041123d-2*gammaaa*t
7875     6         16*t17*t25*t423*t424*t61+8.7761641845443d-2*gammaaa*t152*
7876     7         t17*t201*t202*t25*t61-3.2910615692041123d-2*gammaaa*t16*t
7877     8         165*t201*t202*t25*t61+3.2910615692041123d-2*gammaaa*t16*t
7878     9         162*t163*t17*t201*t202*t61-2*t188*t197*t198*t61+2*t197*t1
7879     :         98*t199*t200*t59+3.2910615692041123d-2*gammaaa*t16*t17*t1
7880     ;         99*t200*t201*t202*t25)-2.0d+0*t195*t416*t59+2.0d+0*t408*t
7881     <         409*t59-2.0d+0*t407*t58+3.2910615692041123d-2*gammaaa*t16
7882     =         *t25*t379*t52-3.2910615692041123d-2*gammaaa*t16*t163*t17*
7883     >         t376*t52+6.582123138408225d-2*gammaaa*t16*t17*t365*t366*t
7884     ?         52+3.217926867666243d-1*gammaaa*t17*t25*t361*t52-1.755232
7885     @         83690886d-1*gammaaa*t152*t165*t25*t52+1.75523283690886d-1
7886     1         *gammaaa*t152*t162*t163*t17*t52-6.582123138408225d-2*gamm
7887     2         aaa*t16*t162*t163*t165*t52-4.727288888888889d-2*t211*t28*
7888     3         t435+5.273288888888887d-2*t35*t38*t434+3.2910615692041123
7889     4         d-2*gammaaa*t16*t17*t186*t25*t406-3.2910615692041123d-2*g
7890     5         ammaaa*t16*t17*t25*t390*t391+3.1639733333333325d-1*t222*t
7891     6         35*t36*t388+9.454577777777778d-2*t28*t386*t387+5.27328888
7892     7         8888887d-2*t36*t38*t385+9.454577777777778d-2*t32*t382*t38
7893     8         3-4.727288888888889d-2*t151*t32*t381+1.0546577777777776d-
7894     9         1*t169*t216*t38-1.75523283690886d-1*gammaaa*t152*t17*t185
7895     :         *t186*t25+6.582123138408225d-2*gammaaa*t16*t165*t185*t186
7896     ;         *t25+9.454577777777778d-2*t151*t167*t211*t214-4.0d+0*t188
7897     <         *t194*t195-6.582123138408225d-2*gammaaa*t16*t162*t163*t17
7898     =         *t185*t186
7899            t440 = 1/rhob**4.666666666666667d+0
7900            t441 = 1.6089634338331216d-1*gammabb*t100*t440*t92
7901            t442 = 8.7761641845443d-2*gammabb*t225*t235*t236*t92
7902            t443 = -8.7761641845443d-2*gammabb*t100*t225*t238
7903            t444 = t235**2
7904            t445 = 1/t99**3
7905            t446 = 3.2910615692041123d-2*gammabb*t444*t445*t91*t92
7906            t447 = 1/rhob**14
7907            t448 = 1/rhob**1.2666666666666665d+1
7908            t449 = 1/rhob**1.1333333333333334d+1
7909            t450 = 1/rhob**10
7910            t451 = 1/rhob**8.666666666666666d+0
7911            t452 = 1/rhob**7.333333333333333d+0
7912            t453 = 1/rhob**6
7913            t454 = 1/rhob**3.3333333333333337d+0
7914            t455 = -7.030702042032786d-7*t448*t95+4.9129119795344894d-8*
7915     1         t447*t93+4.685598137539912d-1*t453*t89-4.6738529645248705
7916     2         d-2*t452*t87+3.0441316692570747d-3*t451*t85-1.95817195269
7917     3         19464d-4*t450*t83+1.695395584753127d-5*t449*t81+2.1284114
7918     4         361521084d+0*t454*t80-2.0076645727369685d+0*gammabb*t440
7919            t456 = -1.6455307846020562d-2*gammabb*t236*t455*t91*t92
7920            t457 = -3.2910615692041123d-2*gammabb*t235*t236*t238*t91
7921            t458 = 3.6011026267081636d-3*t453*t89-1.466765918313085d-3*t
7922     1         452*t87+2.709960334603227d-4*t451*t85-3.115927725822337d-
7923     2         5*t450*t83+2.326609406111068d-6*t449*t81+2.57339220570703
7924     3         35d-3*gammabb*t440
7925            t459 = 1.6455307846020562d-2*gammabb*t100*t458*t91
7926            t460 = 7.313470153786916d-2*t39*t91+t459+t457+t456+t446+t443
7927     1         +t442+t441
7928            t461 = 1/t102**3
7929            t462 = t240**2
7930            t463 = 1/t108**3
7931            t464 = -6.934448603031025d-2*gammabb*t236*t455*t91*t92+1.386
7932     1         889720606205d-1*gammabb*t444*t445*t91*t92+6.7803497451858
7933     2         91d-1*gammabb*t100*t440*t92+3.698372588283213d-1*gammabb*
7934     3         t225*t235*t236*t92+6.934448603031025d-2*gammabb*t100*t458
7935     4         *t91-1.386889720606205d-1*gammabb*t235*t236*t238*t91-5.07
7936     5         1488289123677d-4*t241*t452*t87+1.2363392745928628d-6*t450
7937     6         *t463*t83+5.02248129273029d-2*gammabb*t109*t440-3.6983725
7938     7         88283213d-1*gammabb*t100*t225*t238
7939            t465 = 1/t106**3
7940            t466 = t287**2
7941            t467 = t294**2
7942            t468 = 1/t112**5.0d+0
7943            t469 = t258**2
7944            t470 = 1/t125**2
7945            t471 = t252**2
7946            t472 = 1/t123**3
7947            t473 = t248**2
7948            t474 = 1/t119**3
7949            t475 = -2.5d-1*t473*t474
7950            t476 = 5.0d-1*t249*t460
7951            t477 = 1.1402510564714863d-1*t1*t234
7952            t478 = t477+t476+t475
7953            t479 = t256**2
7954            t480 = 1/t120**3
7955            t481 = 1/t117**3
7956            t482 = -2.5d-1*t473*t481
7957            t483 = 5.0d-1*t254*t460
7958            t484 = t483+t482+t476+t475
7959            t485 = 6.0965d-1*t124*t257*t484-1.2193000000000001d+0*t124*t
7960     1         479*t480+6.0965d-1*t121*t253*t478-1.2193000000000001d+0*t
7961     2         121*t471*t472-1.2193000000000001d+0*t252*t253*t256*t257
7962            t486 = t459+t457+t456+t446+t443+t442+t441
7963            t487 = t267**2
7964            t488 = 1/t131**2
7965            t489 = t265**2
7966            t490 = 1/t129**3
7967            t491 = 1/t128**3
7968            t492 = -2.5d-1*t473*t491
7969            t493 = 5.0d-1*t263*t460
7970            t494 = t493+t492+t476+t475
7971            t495 = -1.475609999999999d-1*t124*t266*t494+2.95121999999999
7972     1         8d-1*t124*t489*t490-1.475609999999999d-1*t130*t253*t478+2
7973     2         .951219999999998d-1*t130*t471*t472+2.951219999999998d-1*t
7974     3         252*t253*t265*t266
7975            t496 = t270**2
7976            t497 = 1/t136**3
7977            t498 = t493+t492+t477
7978            t499 = t272**2
7979            t500 = 1/t134**3
7980            t501 = t493+t492+t483+t482
7981            t502 = t274**2
7982            t503 = 1/t138**3
7983            t504 = t483+t482+t477
7984            t505 = t261**2
7985            t506 = t140**1.5d+0
7986            t507 = 1/t143**3
7987            t508 = t280**2
7988            t509 = 1/t144**3
7989            t510 = -gammabb*t236*t455*t91*t92+2*gammabb*t444*t445*t91*t9
7990     1         2+9.777777777777779d+0*gammabb*t100*t440*t92+5.3333333333
7991     2         33333d+0*gammabb*t225*t235*t236*t92+gammabb*t100*t458*t91
7992     3         -2*gammabb*t235*t236*t238*t91-5.333333333333333d+0*gammab
7993     4         b*t100*t225*t238
7994            t511 = 6.41391219265211d-2*t279*t510+2.5d-1*t505*t509-3.2069
7995     1         56096326055d-2*t507*t508-5.0d-1*t278*t486
7996            t512 = -2.4d+0*t142*t511-2.1d+1*t145*t505*t506-1.24071769563
7997     1         38616d+1*t505*t506-5.4519192d+0*t140*t505+5.6727466666666
7998     2         66d-2*t505-8.400000000000001d+0*t145*t277*t486-4.96287078
7999     3         25354457d+0*t277*t486-2.7259596d+0*t141*t486+5.6727466666
8000     4         66666d-2*t140*t486+4.7459599999999996d-2*t110*t486+4.7459
8001     5         599999999996d-2*t140*t464-1.68d+1*t261*t277*t281+9.491919
8002     6         999999999d-2*t242*t261
8003            t513 = 4.2759414617680735d-2*t1*t240*t286*t98+9.620868288978
8004     1         166d-2*t1*t350*t462*t78-6.41391219265211d-2*t1*t286*t460*
8005     2         t78+5.701255282357431d-2*t1*t105*t234
8006            t514 = 8.551882923536147d-2*t1*t240*t286*t98+1.9241736577956
8007     1         33d-1*t1*t350*t462*t78-1.282782438530422d-1*t1*t286*t460*
8008     2         t78+1.1402510564714863d-1*t1*t105*t234
8009            t515 = 3.333333333333333d-1*t1*t240*t286*t98+7.5d-1*t1*t350*
8010     1         t462*t78-5.0d-1*t1*t286*t460*t78+4.444444444444444d-1*t1*
8011     2         t105*t234
8012            t516 = 9.620868288978164d-2*t1*t240*t286*t98+4.9365923538061
8013     1         685d-2*t1*t105*t515*t78+2.164695365020087d-1*t1*t350*t462
8014     2         *t78-1.4431302433467247d-1*t1*t286*t460*t78+4.93659235380
8015     3         61685d-2*t292**2+1.2827824385304218d-1*t1*t105*t234
8016            t517 = t102*t514+t106*t460+2*t240*t287
8017            t518 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t100*t135*
8018     1         t275*t504*t91*t92+3.2910615692041123d-2*gammabb*t100*t135
8019     2         *t502*t503*t91*t92-1.6455307846020562d-2*gammabb*t100*t13
8020     3         9*t273*t501*t91*t92+3.2910615692041123d-2*gammabb*t100*t1
8021     4         39*t499*t500*t91*t92-1.6455307846020562d-2*gammabb*t135*t
8022     5         139*t236*t455*t91*t92+3.2910615692041123d-2*gammabb*t135*
8023     6         t139*t444*t445*t91*t92+3.2910615692041123d-2*gammabb*t100
8024     7         *t272*t273*t274*t275*t91*t92+3.2910615692041123d-2*gammab
8025     8         b*t135*t235*t236*t274*t275*t91*t92+3.2910615692041123d-2*
8026     9         gammabb*t139*t235*t236*t272*t273*t91*t92+1.60896343383312
8027     :         16d-1*gammabb*t100*t135*t139*t440*t92+8.7761641845443d-2*
8028     ;         gammabb*t100*t135*t225*t274*t275*t92+8.7761641845443d-2*g
8029     <         ammabb*t100*t139*t225*t272*t273*t92+8.7761641845443d-2*ga
8030     =         mmabb*t135*t139*t225*t235*t236*t92+1.6455307846020562d-2*
8031     >         gammabb*t100*t135*t139*t458*t91-3.2910615692041123d-2*gam
8032     ?         mabb*t100*t135*t238*t274*t275*t91-3.2910615692041123d-2*g
8033     @         ammabb*t100*t139*t238*t272*t273*t91-3.2910615692041123d-2
8034     1         *gammabb*t135*t139*t235*t236*t238*t91-t133*t137*t273*t501
8035     2         +2*t133*t137*t499*t500-t133*t135*t271*t498+2*t133*t135*t4
8036     3         96*t497+t135*t137*t486+2*t133*t270*t271*t272*t273-2*t137*
8037     4         t261*t272*t273-2*t135*t261*t270*t271-8.7761641845443d-2*g
8038     5         ammabb*t100*t135*t139*t225*t238)+3.2910615692041123d-2*ga
8039     6         mmabb*t100*t259*t485*t91*t92-3.2910615692041123d-2*gammab
8040     7         b*t100*t469*t470*t91*t92-3.2910615692041123d-2*gammabb*t1
8041     8         26*t236*t455*t91*t92+6.582123138408225d-2*gammabb*t126*t4
8042     9         44*t445*t91*t92-6.582123138408225d-2*gammabb*t235*t236*t2
8043     :         58*t259*t91*t92+3.217926867666243d-1*gammabb*t100*t126*t4
8044     ;         40*t92-1.75523283690886d-1*gammabb*t100*t225*t258*t259*t9
8045     <         2+1.75523283690886d-1*gammabb*t126*t225*t235*t236*t92+3.2
8046     =         910615692041123d-2*gammabb*t100*t126*t458*t91+6.582123138
8047     >         408225d-2*gammabb*t100*t238*t258*t259*t91-6.5821231384082
8048     ?         25d-2*gammabb*t126*t235*t236*t238*t91+2.6666666666666666d
8049     @         +0*t146*t149*t295*t517-1.0546577777777776d-1*t110*t111*t1
8050     1         47*t517-8.888888888888888d-1*t146*t147*t516-4.72728888888
8051     2         8889d-2*t103*t284*t514+5.273288888888887d-2*t110*t113*t51
8052     3         3-8.888888888888888d-1*t147*t149*t512-2.0d+0*t133*t268*t4
8053     4         95+2.0d+0*t133*t487*t488-2.0d+0*t132*t486-1.0666666666666
8054     5         666d+1*t146*t149*t467*t468+3.1639733333333325d-1*t110*t11
8055     6         1*t295*t467+9.454577777777778d-2*t103*t465*t466+5.2732888
8056     7         88888887d-2*t111*t113*t464+9.454577777777778d-2*t107*t461
8057     8         *t462-4.727288888888889d-2*t107*t224*t460+5.3333333333333
8058     9         33d+0*t146*t293*t294*t295+5.333333333333333d+0*t149*t282*
8059     :         t294*t295-2.109315555555555d-1*t110*t147*t289*t294-2.1093
8060     ;         15555555555d-1*t111*t147*t242*t294-1.7777777777777776d+0*
8061     <         t147*t282*t293+1.0546577777777776d-1*t113*t242*t289+9.454
8062     =         577777777778d-2*t224*t240*t284*t287-4.0d+0*t261*t267*t268
8063     >         -1.75523283690886d-1*gammabb*t100*t126*t225*t238
8064            t519 = 3.2910615692041123d-2*gammaaa*t16*t25*t299*t52
8065            t520 = 3.2910615692041123d-2*t16*t17*t25*t52
8066            t521 = -8.888888888888888d-1*t327*t73*t75
8067            t522 = t323-2.4682961769030842d-2*t1*t213*t3*t300*t74
8068            t523 = -1.0546577777777776d-1*t321*t35*t36*t73
8069            t524 = 2.4105264144112412d-7*t155*t8-1.7006233775311694d-8*t
8070     1         154*t6-1.4056794412619736d-1*t160*t5-4.5608816488973747d-
8071     2         1*t161*t297+1.4759535677446958d-2*gammaaa*t159-9.92651631
8072     3         2794808d-4*t14*t158+6.527239842306487d-5*t12*t157-5.74246
8073     4         8916099301d-6*t10*t156+5.475448834737188d-1*t152
8074            t525 = -1.0803307880124491d-3*t160*t5+4.631892373620269d-4*g
8075     1         ammaaa*t159-8.836827178054d-5*t14*t158+1.0386425752741123
8076     2         d-5*t12*t157-7.880451214247165d-7*t10*t156-7.018342379201
8077     3         d-4*t152
8078            t526 = 1.6455307846020562d-2*gammaaa*t16*t25*t525-1.64553078
8079     1         46020562d-2*gammaaa*t16*t163*t17*t524+3.2910615692041123d
8080     2         -2*gammaaa*t16*t162*t17*t298*t366-4.38808209227215d-2*gam
8081     3         maaa*t152*t25*t299-1.6455307846020562d-2*gammaaa*t16*t162
8082     4         *t163*t299+4.38808209227215d-2*gammaaa*t152*t163*t17*t298
8083     5         -1.6455307846020562d-2*gammaaa*t16*t163*t165*t298-4.38808
8084     6         209227215d-2*t152*t17*t25+1.6455307846020562d-2*t16*t165*
8085     7         t25-1.6455307846020562d-2*t16*t162*t163*t17
8086            t527 = 6.934448603031025d-2*gammaaa*t16*t25*t525-6.934448603
8087     1         031025d-2*gammaaa*t16*t163*t17*t524-4.6362722797232353d-7
8088     2         *t12*t157*t384+1.386889720606205d-1*gammaaa*t16*t162*t17*
8089     3         t298*t366-1.369767625290079d-2*t152*t34-1.849186294141606
8090     4         5d-1*gammaaa*t152*t25*t299-6.934448603031025d-2*gammaaa*t
8091     5         16*t162*t163*t299+1.8491862941416065d-1*gammaaa*t152*t163
8092     6         *t17*t298-6.934448603031025d-2*gammaaa*t16*t163*t165*t298
8093     7         -1.8491862941416065d-1*t152*t17*t25+6.934448603031025d-2*
8094     8         t16*t165*t25-6.934448603031025d-2*t16*t162*t163*t17+1.690
8095     9         496096374559d-4*gammaaa*t159*t168
8096            t528 = -2.5d-1*t175*t300*t395
8097            t529 = 5.0d-1*t176*t526
8098            t530 = t529+t528
8099            t531 = -2.5d-1*t175*t300*t402
8100            t532 = 5.0d-1*t181*t526
8101            t533 = t532+t531+t529+t528
8102            t534 = 6.0965d-1*t184*t50*t533+6.0965d-1*t180*t47*t530-1.219
8103     1         3000000000001d+0*t183*t307*t401*t50-6.0965d-1*t176*t179*t
8104     2         300*t393*t47-6.0965d-1*t179*t180*t184*t307-3.04825d-1*t17
8105     3         6*t180*t183*t184*t300
8106            t535 = -2.5d-1*t175*t300*t412
8107            t536 = 5.0d-1*t190*t526
8108            t537 = t536+t535+t529+t528
8109            t538 = -1.475609999999999d-1*t180*t530*t56+1.475609999999999
8110     1         d-1*t176*t179*t300*t393*t56-1.475609999999999d-1*t193*t50
8111     2         *t537+2.951219999999998d-1*t192*t313*t411*t50+1.475609999
8112     3         999999d-1*t179*t180*t193*t313+7.378049999999994d-2*t176*t
8113     4         180*t192*t193*t300
8114            t539 = t536+t535
8115            t540 = t536+t535+t532+t531
8116            t541 = t532+t531
8117            t542 = 1/t29**7
8118            t543 = gammaaa*t16*t25*t525-gammaaa*t16*t163*t17*t524+2*gamm
8119     1         aaa*t16*t162*t17*t298*t366-2.6666666666666666d+0*gammaaa*
8120     2         t152*t25*t299-gammaaa*t16*t162*t163*t299+2.66666666666666
8121     3         66d+0*gammaaa*t152*t163*t17*t298-gammaaa*t16*t163*t165*t2
8122     4         98-2.6666666666666666d+0*t152*t17*t25+t16*t165*t25-t16*t1
8123     5         62*t163*t17
8124            t544 = 6.41391219265211d-2*t206*t543-5.0d-1*t205*t526+2.5d-1
8125     1         *t188*t300*t430-3.206956096326055d-2*t207*t325*t428
8126            t545 = -8.400000000000001d+0*t204*t526*t71-2.1d+1*t188*t300*
8127     1         t427*t71-2.4d+0*t544*t68-2.7259596d+0*t526*t67+4.74595999
8128     2         99999996d-2*t527*t66+5.672746666666666d-2*t526*t66-5.4519
8129     3         192d+0*t188*t300*t66+4.7459599999999996d-2*t35*t526-4.962
8130     4         8707825354457d+0*t204*t526-1.2407176956338616d+1*t188*t30
8131     5         0*t427-8.400000000000001d+0*t188*t204*t326+4.745959999999
8132     6         9996d-2*t188*t302-8.400000000000001d+0*t204*t208*t300+5.6
8133     7         72746666666666d-2*t188*t300+4.7459599999999996d-2*t169*t3
8134     8         00
8135            t546 = -6.41391219265211d-2*t1*t213*t3*t526+9.62086828897816
8136     1         6d-2*t1*t167*t3*t300*t318+2.1379707308840368d-2*t1*t213*t
8137     2         23*t300
8138            t547 = -1.282782438530422d-1*t1*t213*t3*t526+1.9241736577956
8139     1         33d-1*t1*t167*t3*t300*t318+4.2759414617680735d-2*t1*t213*
8140     2         t23*t300
8141            t548 = -5.0d-1*t1*t213*t3*t526+7.5d-1*t1*t167*t3*t300*t318+1
8142     1         .6666666666666666d-1*t1*t213*t23*t300
8143            t549 = 4.9365923538061685d-2*t1*t3*t30*t548-1.44313024334672
8144     1         47d-1*t1*t213*t3*t526+2.164695365020087d-1*t1*t167*t3*t30
8145     2         0*t318-2.4682961769030842d-2*t1*t213*t219*t3*t300+4.81043
8146     3         4144489082d-2*t1*t213*t23*t300
8147            t550 = t27*t547+t31*t526-1.282782438530422d-1*t1*t167*t213*t
8148     1         3*t300+t214*t300
8149            t551 = -8.888888888888888d-1*t545*t73*t75+2.6666666666666666
8150     1         d+0*t222*t550*t72*t75-1.0666666666666666d+1*t221*t321*t38
8151     2         9*t72*t75+2.6666666666666666d+0*t221*t222*t327*t75+2.6666
8152     3         666666666666d+0*t209*t222*t321*t75-8.888888888888888d-1*t
8153     4         549*t72*t73-1.0546577777777776d-1*t35*t36*t550*t73-8.8888
8154     5         88888888888d-1*t209*t522*t73-1.0546577777777776d-1*t169*t
8155     6         321*t36*t73-1.0546577777777776d-1*t221*t302*t36*t73-1.054
8156     7         6577777777776d-1*t216*t321*t35*t73+6.764482379964267d-3*t
8157     8         1*t213*t221*t3*t300*t35*t73-8.888888888888888d-1*t220*t32
8158     9         7*t73+2.6666666666666666d+0*t221*t222*t522*t72+2.66666666
8159     :         66666666d+0*t220*t222*t321*t72+7.57211d-1*(1.645530784602
8160     ;         0562d-2*gammaaa*t16*t25*t525*t61*t65-1.6455307846020562d-
8161     <         2*gammaaa*t16*t163*t17*t524*t61*t65+3.2910615692041123d-2
8162     =         *gammaaa*t16*t162*t17*t298*t366*t61*t65-4.38808209227215d
8163     >         -2*gammaaa*t152*t25*t299*t61*t65-1.6455307846020562d-2*ga
8164     ?         mmaaa*t16*t162*t163*t299*t61*t65+4.38808209227215d-2*gamm
8165     @         aaa*t152*t163*t17*t298*t61*t65-1.6455307846020562d-2*gamm
8166     1         aaa*t16*t163*t165*t298*t61*t65-4.38808209227215d-2*t152*t
8167     2         17*t25*t61*t65+1.6455307846020562d-2*t16*t165*t25*t61*t65
8168     3         -1.6455307846020562d-2*t16*t162*t163*t17*t61*t65-1.645530
8169     4         7846020562d-2*gammaaa*t16*t17*t200*t25*t540*t65+3.2910615
8170     5         692041123d-2*gammaaa*t16*t17*t199*t25*t316*t421*t65+4.388
8171     6         08209227215d-2*gammaaa*t152*t17*t200*t25*t316*t65-1.64553
8172     7         07846020562d-2*gammaaa*t16*t165*t200*t25*t316*t65+1.64553
8173     8         07846020562d-2*gammaaa*t16*t162*t163*t17*t200*t316*t65-1.
8174     9         6455307846020562d-2*gammaaa*t16*t199*t200*t25*t299*t65+1.
8175     :         6455307846020562d-2*gammaaa*t16*t163*t17*t199*t200*t298*t
8176     ;         65-1.6455307846020562d-2*t16*t17*t199*t200*t25*t65+t526*t
8177     <         61*t63-t200*t540*t59*t63+2*t199*t316*t421*t59*t63-t188*t2
8178     =         00*t316*t63-t199*t200*t300*t63-t198*t539*t59*t61+t190*t19
8179     >         7*t300*t418*t59*t61-1.6455307846020562d-2*gammaaa*t16*t17
8180     ?         *t202*t25*t541*t61+1.6455307846020562d-2*gammaaa*t16*t17*
8181     @         t181*t201*t25*t300*t424*t61+2.194041046136075d-2*gammaaa*
8182     1         t152*t17*t181*t202*t25*t300*t61-8.227653923010281d-3*gamm
8183     2         aaa*t16*t165*t181*t202*t25*t300*t61+8.227653923010281d-3*
8184     3         gammaaa*t16*t162*t163*t17*t181*t202*t300*t61-t197*t198*t3
8185     4         00*t61-5.0d-1*t188*t190*t198*t300*t61-1.6455307846020562d
8186     5         -2*gammaaa*t16*t201*t202*t25*t299*t61+1.6455307846020562d
8187     6         -2*gammaaa*t16*t163*t17*t201*t202*t298*t61-1.645530784602
8188     7         0562d-2*t16*t17*t201*t202*t25*t61+t197*t198*t200*t316*t59
8189     8         +5.0d-1*t190*t198*t199*t200*t300*t59+1.6455307846020562d-
8190     9         2*gammaaa*t16*t17*t200*t201*t202*t25*t316+8.2276539230102
8191     :         81d-3*gammaaa*t16*t17*t181*t199*t200*t202*t25*t300)-2.0d+
8192     ;         0*t195*t538*t59+2.0d+0*t194*t314*t409*t59-2.0d+0*t526*t58
8193     <         -4.727288888888889d-2*t211*t28*t547+5.273288888888887d-2*
8194     =         t35*t38*t546-6.064083168526658d-3*t1*t167*t211*t3*t300*t5
8195     >         42+3.2910615692041123d-2*gammaaa*t16*t17*t186*t25*t534+5.
8196     ?         273288888888887d-2*t36*t38*t527-4.727288888888889d-2*t151
8197     @         *t32*t526+3.2910615692041123d-2*gammaaa*t16*t25*t52*t525-
8198     1         3.2910615692041123d-2*gammaaa*t16*t163*t17*t52*t524+6.582
8199     2         123138408225d-2*gammaaa*t16*t162*t17*t298*t366*t52-8.7761
8200     3         641845443d-2*gammaaa*t152*t25*t299*t52-3.2910615692041123
8201     4         d-2*gammaaa*t16*t162*t163*t299*t52+8.7761641845443d-2*gam
8202     5         maaa*t152*t163*t17*t298*t52-3.2910615692041123d-2*gammaaa
8203     6         *t16*t163*t165*t298*t52-8.7761641845443d-2*t152*t17*t25*t
8204     7         52+3.2910615692041123d-2*t16*t165*t25*t52-3.2910615692041
8205     8         123d-2*t16*t162*t163*t17*t52-3.2910615692041123d-2*gammaa
8206     9         a*t16*t17*t185*t25*t308*t391-1.2128166337053317d-2*t1*t21
8207     :         4*t3*t300*t318*t386+9.454577777777778d-2*t167*t300*t32*t3
8208     ;         82+5.273288888888887d-2*t216*t302*t38-3.3822411899821336d
8209     <         -3*t1*t169*t213*t3*t300*t38+3.1639733333333325d-1*t221*t2
8210     =         22*t321*t35*t36-2.0d+0*t188*t195*t314-8.7761641845443d-2*
8211     >         gammaaa*t152*t17*t186*t25*t308+3.2910615692041123d-2*gamm
8212     ?         aaa*t16*t165*t186*t25*t308-3.2910615692041123d-2*gammaaa*
8213     @         t16*t162*t163*t17*t186*t308+4.727288888888889d-2*t151*t21
8214     1         1*t214*t300-2.0d+0*t194*t195*t300+3.2910615692041123d-2*g
8215     2         ammaaa*t16*t185*t186*t25*t299-3.2910615692041123d-2*gamma
8216     3         aa*t16*t163*t17*t185*t186*t298+3.2910615692041123d-2*t16*
8217     4         t17*t185*t186*t25
8218            t552 = 3.2910615692041123d-2*gammabb*t100*t126*t331*t91
8219            t553 = 3.2910615692041123d-2*t100*t126*t91*t92
8220            t554 = -8.888888888888888d-1*t147*t149*t359
8221            t555 = t355-2.4682961769030842d-2*t1*t148*t286*t332*t78
8222            t556 = -1.0546577777777776d-1*t110*t111*t147*t353
8223            t557 = -9.926516312794808d-4*t231*t89+6.527239842306487d-5*t
8224     1         230*t87-5.742468916099301d-6*t229*t85+2.4105264144112412d
8225     2         -7*t228*t83-1.7006233775311694d-8*t227*t81-1.405679441261
8226     3         9736d-1*t233*t80-4.5608816488973747d-1*t234*t329+1.475953
8227     4         5677446958d-2*gammabb*t232+5.475448834737188d-1*t225
8228            t558 = -8.836827178054d-5*t231*t89+1.0386425752741123d-5*t23
8229     1         0*t87-7.880451214247165d-7*t229*t85-1.0803307880124491d-3
8230     2         *t233*t80+4.631892373620269d-4*gammabb*t232-7.01834237920
8231     3         1d-4*t225
8232            t559 = -1.6455307846020562d-2*gammabb*t236*t557*t91*t92+3.29
8233     1         10615692041123d-2*gammabb*t235*t330*t445*t91*t92-1.645530
8234     2         7846020562d-2*t235*t236*t91*t92+4.38808209227215d-2*gamma
8235     3         bb*t225*t236*t330*t92-4.38808209227215d-2*t100*t225*t92+1
8236     4         .6455307846020562d-2*gammabb*t100*t558*t91-1.645530784602
8237     5         0562d-2*gammabb*t235*t236*t331*t91-1.6455307846020562d-2*
8238     6         gammabb*t236*t238*t330*t91+1.6455307846020562d-2*t100*t23
8239     7         8*t91-4.38808209227215d-2*gammabb*t100*t225*t331
8240            t560 = -6.934448603031025d-2*gammabb*t236*t557*t91*t92+1.386
8241     1         889720606205d-1*gammabb*t235*t330*t445*t91*t92-6.93444860
8242     2         3031025d-2*t235*t236*t91*t92+1.8491862941416065d-1*gammab
8243     3         b*t225*t236*t330*t92-1.8491862941416065d-1*t100*t225*t92+
8244     4         6.934448603031025d-2*gammabb*t100*t558*t91-6.934448603031
8245     5         025d-2*gammabb*t235*t236*t331*t91-6.934448603031025d-2*ga
8246     6         mmabb*t236*t238*t330*t91+6.934448603031025d-2*t100*t238*t
8247     7         91-4.6362722797232353d-7*t230*t463*t87-1.8491862941416065
8248     8         d-1*gammabb*t100*t225*t331+1.690496096374559d-4*gammabb*t
8249     9         232*t241-1.369767625290079d-2*t109*t225
8250            t561 = -2.5d-1*t248*t332*t474
8251            t562 = 5.0d-1*t249*t559
8252            t563 = t562+t561
8253            t564 = -2.5d-1*t248*t332*t481
8254            t565 = 5.0d-1*t254*t559
8255            t566 = t565+t564+t562+t561
8256            t567 = 6.0965d-1*t124*t257*t566+6.0965d-1*t121*t253*t563-1.2
8257     1         193000000000001d+0*t124*t256*t339*t480-6.0965d-1*t121*t24
8258     2         9*t252*t332*t472-6.0965d-1*t252*t253*t257*t339-3.04825d-1
8259     3         *t249*t253*t256*t257*t332
8260            t568 = -2.5d-1*t248*t332*t491
8261            t569 = 5.0d-1*t263*t559
8262            t570 = t569+t568+t562+t561
8263            t571 = -1.475609999999999d-1*t124*t266*t570-1.47560999999999
8264     1         9d-1*t130*t253*t563+2.951219999999998d-1*t124*t265*t345*t
8265     2         490+1.475609999999999d-1*t130*t249*t252*t332*t472+1.47560
8266     3         9999999999d-1*t252*t253*t266*t345+7.378049999999994d-2*t2
8267     4         49*t253*t265*t266*t332
8268            t572 = t569+t568
8269            t573 = t569+t568+t565+t564
8270            t574 = t565+t564
8271            t575 = 1/t104**7
8272            t576 = -gammabb*t236*t557*t91*t92+2*gammabb*t235*t330*t445*t
8273     1         91*t92-t235*t236*t91*t92+2.6666666666666666d+0*gammabb*t2
8274     2         25*t236*t330*t92-2.6666666666666666d+0*t100*t225*t92+gamm
8275     3         abb*t100*t558*t91-gammabb*t235*t236*t331*t91-gammabb*t236
8276     4         *t238*t330*t91+t100*t238*t91-2.6666666666666666d+0*gammab
8277     5         b*t100*t225*t331
8278            t577 = 6.41391219265211d-2*t279*t576-5.0d-1*t278*t559+2.5d-1
8279     1         *t261*t332*t509-3.206956096326055d-2*t280*t357*t507
8280            t578 = -2.4d+0*t142*t577+4.7459599999999996d-2*t140*t560-8.4
8281     1         00000000000001d+0*t145*t277*t559-4.9628707825354457d+0*t2
8282     2         77*t559-2.7259596d+0*t141*t559+5.672746666666666d-2*t140*
8283     3         t559+4.7459599999999996d-2*t110*t559-2.1d+1*t145*t261*t33
8284     4         2*t506-1.2407176956338616d+1*t261*t332*t506-8.40000000000
8285     5         0001d+0*t261*t277*t358+4.7459599999999996d-2*t261*t334-8.
8286     6         400000000000001d+0*t277*t281*t332-5.4519192d+0*t140*t261*
8287     7         t332+5.672746666666666d-2*t261*t332+4.7459599999999996d-2
8288     8         *t242*t332
8289            t579 = 2.1379707308840368d-2*t1*t286*t332*t98-6.413912192652
8290     1         11d-2*t1*t286*t559*t78+9.620868288978166d-2*t1*t240*t332*
8291     2         t350*t78
8292            t580 = 4.2759414617680735d-2*t1*t286*t332*t98-1.282782438530
8293     1         422d-1*t1*t286*t559*t78+1.924173657795633d-1*t1*t240*t332
8294     2         *t350*t78
8295            t581 = 1.6666666666666666d-1*t1*t286*t332*t98-5.0d-1*t1*t286
8296     1         *t559*t78+7.5d-1*t1*t240*t332*t350*t78
8297            t582 = 4.810434144489082d-2*t1*t286*t332*t98+4.9365923538061
8298     1         685d-2*t1*t105*t581*t78-1.4431302433467247d-1*t1*t286*t55
8299     2         9*t78+2.164695365020087d-1*t1*t240*t332*t350*t78-2.468296
8300     3         1769030842d-2*t1*t286*t292*t332*t78
8301            t583 = -1.282782438530422d-1*t1*t240*t286*t332*t78+t102*t580
8302     1         +t106*t559+t287*t332
8303            t584 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t100*t135*
8304     1         t275*t574*t91*t92-1.6455307846020562d-2*gammabb*t100*t139
8305     2         *t273*t573*t91*t92-1.6455307846020562d-2*gammabb*t135*t13
8306     3         9*t236*t557*t91*t92+1.6455307846020562d-2*gammabb*t100*t1
8307     4         35*t254*t274*t332*t503*t91*t92+3.2910615692041123d-2*gamm
8308     5         abb*t100*t139*t272*t348*t500*t91*t92+3.2910615692041123d-
8309     6         2*gammabb*t135*t139*t235*t330*t445*t91*t92+1.645530784602
8310     7         0562d-2*gammabb*t100*t273*t274*t275*t348*t91*t92+1.645530
8311     8         7846020562d-2*gammabb*t139*t235*t236*t273*t348*t91*t92+8.
8312     9         227653923010281d-3*gammabb*t100*t254*t272*t273*t275*t332*
8313     :         t91*t92+8.227653923010281d-3*gammabb*t135*t235*t236*t254*
8314     ;         t275*t332*t91*t92+1.6455307846020562d-2*gammabb*t135*t236
8315     <         *t274*t275*t330*t91*t92+1.6455307846020562d-2*gammabb*t13
8316     =         9*t236*t272*t273*t330*t91*t92-1.6455307846020562d-2*t100*
8317     >         t135*t274*t275*t91*t92-1.6455307846020562d-2*t100*t139*t2
8318     ?         72*t273*t91*t92-1.6455307846020562d-2*t135*t139*t235*t236
8319     @         *t91*t92+4.38808209227215d-2*gammabb*t100*t139*t225*t273*
8320     1         t348*t92+2.194041046136075d-2*gammabb*t100*t135*t225*t254
8321     2         *t275*t332*t92+4.38808209227215d-2*gammabb*t135*t139*t225
8322     3         *t236*t330*t92-4.38808209227215d-2*t100*t135*t139*t225*t9
8323     4         2+1.6455307846020562d-2*gammabb*t100*t135*t139*t558*t91-1
8324     5         .6455307846020562d-2*gammabb*t100*t139*t238*t273*t348*t91
8325     6         -8.227653923010281d-3*gammabb*t100*t135*t238*t254*t275*t3
8326     7         32*t91-1.6455307846020562d-2*gammabb*t100*t135*t274*t275*
8327     8         t331*t91-1.6455307846020562d-2*gammabb*t100*t139*t272*t27
8328     9         3*t331*t91-1.6455307846020562d-2*gammabb*t135*t139*t235*t
8329     :         236*t331*t91-1.6455307846020562d-2*gammabb*t135*t139*t236
8330     ;         *t238*t330*t91+1.6455307846020562d-2*t100*t135*t139*t238*
8331     <         t91-t133*t137*t273*t573-t133*t135*t271*t572+t135*t137*t55
8332     =         9+2*t133*t137*t272*t348*t500+t133*t135*t263*t270*t332*t49
8333     >         7+t133*t270*t271*t273*t348-t137*t261*t273*t348+5.0d-1*t13
8334     ?         3*t263*t271*t272*t273*t332-t137*t272*t273*t332-t135*t270*
8335     @         t271*t332-5.0d-1*t135*t261*t263*t271*t332-4.3880820922721
8336     1         5d-2*gammabb*t100*t135*t139*t225*t331)+3.2910615692041123
8337     2         d-2*gammabb*t100*t259*t567*t91*t92-3.2910615692041123d-2*
8338     3         gammabb*t126*t236*t557*t91*t92-3.2910615692041123d-2*gamm
8339     4         abb*t100*t258*t340*t470*t91*t92+6.582123138408225d-2*gamm
8340     5         abb*t126*t235*t330*t445*t91*t92-3.2910615692041123d-2*gam
8341     6         mabb*t235*t236*t259*t340*t91*t92-3.2910615692041123d-2*ga
8342     7         mmabb*t236*t258*t259*t330*t91*t92+3.2910615692041123d-2*t
8343     8         100*t258*t259*t91*t92-3.2910615692041123d-2*t126*t235*t23
8344     9         6*t91*t92-8.7761641845443d-2*gammabb*t100*t225*t259*t340*
8345     :         t92+8.7761641845443d-2*gammabb*t126*t225*t236*t330*t92-8.
8346     ;         7761641845443d-2*t100*t126*t225*t92+3.2910615692041123d-2
8347     <         *gammabb*t100*t126*t558*t91+3.2910615692041123d-2*gammabb
8348     =         *t100*t238*t259*t340*t91+3.2910615692041123d-2*gammabb*t1
8349     >         00*t258*t259*t331*t91-3.2910615692041123d-2*gammabb*t126*
8350     ?         t235*t236*t331*t91-3.2910615692041123d-2*gammabb*t126*t23
8351     @         6*t238*t330*t91+3.2910615692041123d-2*t100*t126*t238*t91-
8352     1         6.064083168526658d-3*t1*t240*t284*t332*t575*t78-1.2128166
8353     2         337053317d-2*t1*t287*t332*t350*t465*t78+6.764482379964267
8354     3         d-3*t1*t110*t147*t286*t294*t332*t78-3.3822411899821336d-3
8355     4         *t1*t113*t242*t286*t332*t78+2.6666666666666666d+0*t146*t1
8356     5         49*t295*t583-1.0546577777777776d-1*t110*t111*t147*t583-8.
8357     6         888888888888888d-1*t146*t147*t582-4.727288888888889d-2*t1
8358     7         03*t284*t580+5.273288888888887d-2*t110*t113*t579-8.888888
8359     8         888888888d-1*t147*t149*t578-2.0d+0*t133*t268*t571+5.27328
8360     9         8888888887d-2*t111*t113*t560-4.727288888888889d-2*t107*t2
8361     :         24*t559-2.0d+0*t132*t559+2.6666666666666666d+0*t146*t294*
8362     ;         t295*t555-8.888888888888888d-1*t147*t282*t555+2.0d+0*t133
8363     <         *t267*t346*t488-1.0666666666666666d+1*t146*t149*t294*t353
8364     =         *t468+9.454577777777778d-2*t107*t240*t332*t461+2.66666666
8365     >         66666666d+0*t149*t294*t295*t359-8.888888888888888d-1*t147
8366     ?         *t293*t359+3.1639733333333325d-1*t110*t111*t294*t295*t353
8367     @         +2.6666666666666666d+0*t146*t293*t295*t353+2.666666666666
8368     1         6666d+0*t149*t282*t295*t353-1.0546577777777776d-1*t110*t1
8369     2         47*t289*t353-1.0546577777777776d-1*t111*t147*t242*t353-2.
8370     3         0d+0*t261*t268*t346-1.0546577777777776d-1*t111*t147*t294*
8371     4         t334+5.273288888888887d-2*t113*t289*t334+4.72728888888888
8372     5         9d-2*t224*t284*t287*t332-2.0d+0*t267*t268*t332-8.77616418
8373     6         45443d-2*gammabb*t100*t126*t225*t331
8374            t585 = t300**2
8375            t586 = 9.454577777777778d-2*t32*t382*t585
8376            t587 = t298**2
8377            t588 = 1/t14
8378            t589 = -1.6318099605766218d-5*gammaaa*t9+1.5381613168123123d
8379     1         -6*t14*t7-1.7103306183365155d-1*t23*t588+2.23346617037883
8380     2         17d-4*t11*t5+1.757099301577467d-2*t15*t297-6.779605540531
8381     3         617d-8*t12*t21+4.960151517799245d-9*t10*t19-2.76741293952
8382     4         1305d-3*t13
8383            t590 = -2.5966064381852805d-6*gammaaa*t9+2.1108351466733477d
8384     1         -7*t14*t7+1.9882861150621498d-5*t11*t5+1.3504134850155614
8385     2         d-4*t15*t297-8.684798200538004d-5*t13
8386            t591 = 1.6455307846020562d-2*gammaaa*t16*t25*t590-1.64553078
8387     1         46020562d-2*gammaaa*t16*t163*t17*t589+3.2910615692041123d
8388     2         -2*gammaaa*t16*t17*t366*t587-3.2910615692041123d-2*gammaa
8389     3         a*t16*t163*t298*t299+3.2910615692041123d-2*t16*t25*t299-3
8390     4         .2910615692041123d-2*t16*t163*t17*t298
8391            t592 = -4.727288888888889d-2*t151*t32*t591
8392            t593 = 1.7386021048962136d-7*gammaaa*t384*t9+6.9344486030310
8393     1         25d-2*gammaaa*t16*t25*t590-6.934448603031025d-2*gammaaa*t
8394     2         16*t163*t17*t589+1.386889720606205d-1*gammaaa*t16*t17*t36
8395     3         6*t587-1.386889720606205d-1*gammaaa*t16*t163*t298*t299+1.
8396     4         386889720606205d-1*t16*t25*t299-1.386889720606205d-1*t16*
8397     5         t163*t17*t298-4.226240240936398d-5*t13*t168
8398            t594 = 5.273288888888887d-2*t36*t38*t593
8399            t595 = t321**2
8400            t596 = -1.0666666666666666d+1*t389*t595*t72*t75
8401            t597 = 6.582123138408225d-2*gammaaa*t16*t17*t366*t52*t587
8402            t598 = -6.582123138408225d-2*gammaaa*t16*t163*t17*t186*t298*
8403     1         t308
8404            t599 = t308**2
8405            t600 = -3.2910615692041123d-2*gammaaa*t16*t17*t25*t391*t599
8406            t601 = 3.2910615692041123d-2*gammaaa*t52*t590+6.582123138408
8407     1         225d-2*t299*t52+3.2910615692041123d-2*gammaaa*t186*t299*t
8408     2         308+3.2910615692041123d-2*t17*t186*t308
8409            t602 = 1/t44
8410            t603 = t307**2
8411            t604 = -2.5d-1*t402*t585
8412            t605 = 5.0d-1*t181*t591
8413            t606 = -2.5d-1*t395*t585
8414            t607 = 5.0d-1*t176*t591
8415            t608 = t607+t606+t605+t604
8416            t609 = 6.0965d-1*t184*t50*t608-1.2193000000000001d+0*t401*t5
8417     1         0*t603-3.04825d-1*t393*t47*t585*t602+3.04825d-1*t176*t180
8418     2         *t47*t591-1.524125d-1*t180*t395*t47*t585-6.0965d-1*t176*t
8419     3         180*t184*t300*t307
8420            t610 = 3.2910615692041123d-2*gammaaa*t17*t609+3.291061569204
8421     1         1123d-2*gammaaa*t299*t308+3.2910615692041123d-2*t17*t308
8422            t611 = -3.2910615692041123d-2*gammaaa*t17*t52*t589-3.2910615
8423     1         692041123d-2*gammaaa*t298*t299*t52-3.2910615692041123d-2*
8424     2         t17*t298*t52-t298*t310
8425            t612 = -2.0d+0*t58*t591
8426            t613 = t314**2
8427            t614 = 2.0d+0*t409*t59*t613
8428            t615 = 1/t53
8429            t616 = t316**2
8430            t617 = -2.5d-1*t412*t585
8431            t618 = 5.0d-1*t190*t591
8432            t619 = t618+t617+t605+t604
8433            t620 = 1/t42
8434            t621 = 7.57211d-1*(-1.6455307846020562d-2*gammaaa*t16*t17*t2
8435     1         00*t25*t619*t65+3.2910615692041123d-2*gammaaa*t16*t17*t25
8436     2         *t421*t616*t65+1.6455307846020562d-2*gammaaa*t16*t25*t590
8437     3         *t61*t65-1.6455307846020562d-2*gammaaa*t16*t163*t17*t589*
8438     4         t61*t65+3.2910615692041123d-2*gammaaa*t16*t17*t366*t587*t
8439     5         61*t65-3.2910615692041123d-2*gammaaa*t16*t163*t298*t299*t
8440     6         61*t65+3.2910615692041123d-2*t16*t25*t299*t61*t65-3.29106
8441     7         15692041123d-2*t16*t163*t17*t298*t61*t65-3.29106156920411
8442     8         23d-2*gammaaa*t16*t200*t25*t299*t316*t65+3.29106156920411
8443     9         23d-2*gammaaa*t16*t163*t17*t200*t298*t316*t65-3.291061569
8444     :         2041123d-2*t16*t17*t200*t25*t316*t65-t200*t59*t619*t63+2*
8445     ;         t421*t59*t616*t63+t591*t61*t63-2*t200*t300*t316*t63+8.227
8446     <         653923010281d-3*gammaaa*t16*t17*t25*t424*t585*t61*t620+5.
8447     =         0d-1*t418*t585*t59*t61*t615-5.0d-1*t190*t198*t59*t591*t61
8448     >         -8.227653923010281d-3*gammaaa*t16*t17*t181*t202*t25*t591*
8449     ?         t61+2.5d-1*t198*t412*t585*t59*t61+4.1138269615051404d-3*g
8450     @         ammaaa*t16*t17*t202*t25*t402*t585*t61-t190*t198*t585*t61-
8451     1         1.6455307846020562d-2*gammaaa*t16*t181*t202*t25*t299*t300
8452     2         *t61+1.6455307846020562d-2*gammaaa*t16*t163*t17*t181*t202
8453     3         *t298*t300*t61-1.6455307846020562d-2*t16*t17*t181*t202*t2
8454     4         5*t300*t61+t190*t198*t200*t300*t316*t59+1.645530784602056
8455     5         2d-2*gammaaa*t16*t17*t181*t200*t202*t25*t300*t316)
8456            t622 = t313**2
8457            t623 = t618+t617+t607+t606
8458            t624 = -1.475609999999999d-1*t193*t50*t623+2.951219999999998
8459     1         d-1*t411*t50*t622+7.378049999999994d-2*t393*t56*t585*t602
8460     2         -7.378049999999994d-2*t176*t180*t56*t591+3.68902499999999
8461     3         7d-2*t180*t395*t56*t585+1.475609999999999d-1*t176*t180*t1
8462     4         93*t300*t313
8463            t625 = -2.0d+0*t59*t624-4.0d+0*t300*t314
8464            t626 = 1/t27**4
8465            t627 = 1.5557798788747831d-3*t386*t39*t40*t585*t626
8466            t628 = -2.1224291089843306d-2*t1*t211*t3*t542*t585
8467            t629 = 6.064083168526658d-3*t1*t211*t3*t318*t591
8468            t630 = 5.0733617849732d-3*t1*t3*t318*t35*t38*t585
8469            t631 = -3.3822411899821336d-3*t1*t35*t591-6.764482379964267d
8470     1         -3*t1*t300*t302
8471            t632 = 6.764482379964267d-3*t1*t213*t3*t300*t321*t35
8472            t633 = -2.4682961769030842d-2*t151*t39*t40*t591-1.4431302433
8473     1         467247d-1*t1*t213*t3*t591+4.9365923538061685d-2*t382*t39*
8474     2         t40*t585+2.164695365020087d-1*t1*t3*t318*t585
8475            t634 = -8.888888888888888d-1*t633*t72
8476            t635 = -1.7777777777777776d+0*t324*t327
8477            t636 = t325**2
8478            t637 = gammaaa*t16*t25*t590-gammaaa*t16*t163*t17*t589+2*gamm
8479     1         aaa*t16*t17*t366*t587-2*gammaaa*t16*t163*t298*t299+2*t16*
8480     2         t25*t299-2*t16*t163*t17*t298
8481            t638 = 6.41391219265211d-2*t206*t637-3.206956096326055d-2*t4
8482     1         28*t636-5.0d-1*t205*t591+2.5d-1*t430*t585
8483            t639 = -8.400000000000001d+0*t204*t591*t71-2.1d+1*t427*t585*
8484     1         t71-2.4d+0*t638*t68-2.7259596d+0*t591*t67+4.7459599999999
8485     2         996d-2*t593*t66+5.672746666666666d-2*t591*t66-5.4519192d+
8486     3         0*t585*t66+4.7459599999999996d-2*t35*t591-4.9628707825354
8487     4         457d+0*t204*t591-1.2407176956338616d+1*t427*t585+5.672746
8488     5         666666666d-2*t585-1.68d+1*t204*t300*t326+9.49191999999999
8489     6         9d-2*t300*t302
8490            t640 = -8.888888888888888d-1*t639*t75
8491            t641 = t31*t591-1.282782438530422d-1*t1*t3*t30*t591-6.413912
8492     1         19265211d-2*t1*t213*t3*t585
8493            t642 = -1.0546577777777776d-1*t35*t36*t641
8494            t643 = t642+t640+t635+t634+t632-2.109315555555555d-1*t302*t3
8495     1         21*t36
8496            t644 = 2.6666666666666666d+0*t641*t72*t75+2.6666666666666666
8497     1         d+0*t321*t327*t75+2.6666666666666666d+0*t321*t324*t72-3.0
8498     2         d+0*t321*t328
8499            t645 = t332**2
8500            t646 = 9.454577777777778d-2*t107*t461*t645
8501            t647 = t330**2
8502            t648 = 1/t89
8503            t649 = -1.7103306183365155d-1*t648*t98-6.779605540531617d-8*
8504     1         t87*t96+4.960151517799245d-9*t85*t94+1.757099301577467d-2
8505     2         *t329*t90+1.5381613168123123d-6*t82*t89-2.767412939521305
8506     3         d-3*t88+2.2334661703788317d-4*t80*t86-1.6318099605766218d
8507     4         -5*gammabb*t84
8508            t650 = 1.3504134850155614d-4*t329*t90+2.1108351466733477d-7*
8509     1         t82*t89-8.684798200538004d-5*t88+1.9882861150621498d-5*t8
8510     2         0*t86-2.5966064381852805d-6*gammabb*t84
8511            t651 = -1.6455307846020562d-2*gammabb*t236*t649*t91*t92+3.29
8512     1         10615692041123d-2*gammabb*t445*t647*t91*t92-3.29106156920
8513     2         41123d-2*t236*t330*t91*t92+1.6455307846020562d-2*gammabb*
8514     3         t100*t650*t91-3.2910615692041123d-2*gammabb*t236*t330*t33
8515     4         1*t91+3.2910615692041123d-2*t100*t331*t91
8516            t652 = -4.727288888888889d-2*t107*t224*t651
8517            t653 = -6.934448603031025d-2*gammabb*t236*t649*t91*t92+1.386
8518     1         889720606205d-1*gammabb*t445*t647*t91*t92-1.3868897206062
8519     2         05d-1*t236*t330*t91*t92+6.934448603031025d-2*gammabb*t100
8520     3         *t650*t91-1.386889720606205d-1*gammabb*t236*t330*t331*t91
8521     4         +1.386889720606205d-1*t100*t331*t91-4.226240240936398d-5*
8522     5         t241*t88+1.7386021048962136d-7*gammabb*t463*t84
8523            t654 = 5.273288888888887d-2*t111*t113*t653
8524            t655 = t353**2
8525            t656 = -1.0666666666666666d+1*t146*t149*t468*t655
8526            t657 = 6.582123138408225d-2*gammabb*t126*t445*t647*t91*t92
8527            t658 = -6.582123138408225d-2*gammabb*t236*t259*t330*t340*t91
8528     1         *t92
8529            t659 = t340**2
8530            t660 = -3.2910615692041123d-2*gammabb*t100*t470*t659*t91*t92
8531            t661 = 3.2910615692041123d-2*t259*t340*t92+3.291061569204112
8532     1         3d-2*gammabb*t126*t650+3.2910615692041123d-2*gammabb*t259
8533     2         *t331*t340+6.582123138408225d-2*t126*t331
8534            t662 = 1/t118
8535            t663 = t339**2
8536            t664 = -2.5d-1*t481*t645
8537            t665 = 5.0d-1*t254*t651
8538            t666 = -2.5d-1*t474*t645
8539            t667 = 5.0d-1*t249*t651
8540            t668 = t667+t666+t665+t664
8541            t669 = 6.0965d-1*t124*t257*t668-1.2193000000000001d+0*t124*t
8542     1         480*t663-3.04825d-1*t121*t472*t645*t662+3.04825d-1*t121*t
8543     2         249*t253*t651-1.524125d-1*t121*t253*t474*t645-6.0965d-1*t
8544     3         249*t253*t257*t332*t339
8545            t670 = 3.2910615692041123d-2*gammabb*t669*t92+3.291061569204
8546     1         1123d-2*t340*t92+3.2910615692041123d-2*gammabb*t331*t340
8547            t671 = -3.2910615692041123d-2*gammabb*t126*t649*t92-3.291061
8548     1         5692041123d-2*t126*t330*t92-t330*t342-3.2910615692041123d
8549     2         -2*gammabb*t126*t330*t331
8550            t672 = -2.0d+0*t132*t651
8551            t673 = t346**2
8552            t674 = 2.0d+0*t133*t488*t673
8553            t675 = 1/t127
8554            t676 = t348**2
8555            t677 = -2.5d-1*t491*t645
8556            t678 = 5.0d-1*t263*t651
8557            t679 = t678+t677+t665+t664
8558            t680 = 1/t116
8559            t681 = 7.57211d-1*(8.227653923010281d-3*gammabb*t100*t135*t5
8560     1         03*t645*t680*t91*t92-1.6455307846020562d-2*gammabb*t100*t
8561     2         139*t273*t679*t91*t92+3.2910615692041123d-2*gammabb*t100*
8562     3         t139*t500*t676*t91*t92-8.227653923010281d-3*gammabb*t100*
8563     4         t135*t254*t275*t651*t91*t92-1.6455307846020562d-2*gammabb
8564     5         *t135*t139*t236*t649*t91*t92+3.2910615692041123d-2*gammab
8565     6         b*t135*t139*t445*t647*t91*t92+4.1138269615051404d-3*gamma
8566     7         bb*t100*t135*t275*t481*t645*t91*t92+1.6455307846020562d-2
8567     8         *gammabb*t100*t254*t273*t275*t332*t348*t91*t92+3.29106156
8568     9         92041123d-2*gammabb*t139*t236*t273*t330*t348*t91*t92-3.29
8569     :         10615692041123d-2*t100*t139*t273*t348*t91*t92+1.645530784
8570     ;         6020562d-2*gammabb*t135*t236*t254*t275*t330*t332*t91*t92-
8571     <         1.6455307846020562d-2*t100*t135*t254*t275*t332*t91*t92-3.
8572     =         2910615692041123d-2*t135*t139*t236*t330*t91*t92+1.6455307
8573     >         846020562d-2*gammabb*t100*t135*t139*t650*t91-3.2910615692
8574     ?         041123d-2*gammabb*t100*t139*t273*t331*t348*t91-1.64553078
8575     @         46020562d-2*gammabb*t100*t135*t254*t275*t331*t332*t91-3.2
8576     1         910615692041123d-2*gammabb*t135*t139*t236*t330*t331*t91+3
8577     2         .2910615692041123d-2*t100*t135*t139*t331*t91-t133*t137*t2
8578     3         73*t679+2*t133*t137*t500*t676+5.0d-1*t133*t135*t497*t645*
8579     4         t675-5.0d-1*t133*t135*t263*t271*t651+t135*t137*t651+2.5d-
8580     5         1*t133*t135*t271*t491*t645-t135*t263*t271*t645+t133*t263*
8581     6         t271*t273*t332*t348-2*t137*t273*t332*t348)
8582            t682 = t345**2
8583            t683 = t678+t677+t667+t666
8584            t684 = -1.475609999999999d-1*t124*t266*t683+2.95121999999999
8585     1         8d-1*t124*t490*t682+7.378049999999994d-2*t130*t472*t645*t
8586     2         662-7.378049999999994d-2*t130*t249*t253*t651+3.6890249999
8587     3         99997d-2*t130*t253*t474*t645+1.475609999999999d-1*t249*t2
8588     4         53*t266*t332*t345
8589            t685 = -2.0d+0*t133*t684-4.0d+0*t332*t346
8590            t686 = 1/t102**4
8591            t687 = 1.5557798788747831d-3*t114*t39*t465*t645*t686
8592            t688 = -2.1224291089843306d-2*t1*t284*t575*t645*t78
8593            t689 = 6.064083168526658d-3*t1*t284*t350*t651*t78
8594            t690 = 5.0733617849732d-3*t1*t110*t113*t350*t645*t78
8595            t691 = -3.3822411899821336d-3*t1*t110*t651-6.764482379964267
8596     1         d-3*t1*t332*t334
8597            t692 = 6.764482379964267d-3*t1*t110*t286*t332*t353*t78
8598            t693 = -1.4431302433467247d-1*t1*t286*t651*t78+2.16469536502
8599     1         0087d-1*t1*t350*t645*t78-2.4682961769030842d-2*t114*t224*
8600     2         t39*t651+4.9365923538061685d-2*t114*t39*t461*t645
8601            t694 = -8.888888888888888d-1*t146*t693
8602            t695 = -1.7777777777777776d+0*t356*t359
8603            t696 = t357**2
8604            t697 = -gammabb*t236*t649*t91*t92+2*gammabb*t445*t647*t91*t9
8605     1         2-2*t236*t330*t91*t92+gammabb*t100*t650*t91-2*gammabb*t23
8606     2         6*t330*t331*t91+2*t100*t331*t91
8607            t698 = 6.41391219265211d-2*t279*t697-3.206956096326055d-2*t5
8608     1         07*t696-5.0d-1*t278*t651+2.5d-1*t509*t645
8609            t699 = -2.4d+0*t142*t698+4.7459599999999996d-2*t140*t653-8.4
8610     1         00000000000001d+0*t145*t277*t651-4.9628707825354457d+0*t2
8611     2         77*t651-2.7259596d+0*t141*t651+5.672746666666666d-2*t140*
8612     3         t651+4.7459599999999996d-2*t110*t651-2.1d+1*t145*t506*t64
8613     4         5-1.2407176956338616d+1*t506*t645-5.4519192d+0*t140*t645+
8614     5         5.672746666666666d-2*t645-1.68d+1*t277*t332*t358+9.491919
8615     6         999999999d-2*t332*t334
8616            t700 = -8.888888888888888d-1*t149*t699
8617            t701 = -1.282782438530422d-1*t1*t105*t651*t78-6.413912192652
8618     1         11d-2*t1*t286*t645*t78+t106*t651
8619            t702 = -1.0546577777777776d-1*t110*t111*t701
8620            t703 = t702+t700+t695+t694+t692-2.109315555555555d-1*t111*t3
8621     1         34*t353
8622            t704 = 2.6666666666666666d+0*t146*t149*t701-3.0d+0*t353*t360
8623     1         +2.6666666666666666d+0*t149*t353*t359+2.6666666666666666d
8624     2         +0*t146*t353*t356
8625            t705 = t212-1.282782438530422d-1*t1*t175*t213*t3
8626            t706 = t27*t705+t175*t31
8627            t707 = 1/rhoa**5.666666666666667d+0
8628            t708 = -7.508496024554567d-1*gammaaa*t17*t25*t707
8629            t709 = -4.8268903014993647d-1*gammaaa*t162*t163*t17*t361
8630            t710 = 4.8268903014993647d-1*gammaaa*t165*t25*t361
8631            t711 = -2.63284925536329d-1*gammaaa*t152*t17*t365*t366
8632            t712 = 1.316424627681645d-1*gammaaa*t152*t163*t17*t376
8633            t713 = 2.63284925536329d-1*gammaaa*t152*t162*t163*t165
8634            t714 = -1.316424627681645d-1*gammaaa*t152*t25*t379
8635            t715 = t162**3
8636            t716 = 1/t24**4
8637            t717 = -9.873184707612337d-2*gammaaa*t16*t17*t715*t716
8638            t718 = 9.873184707612337d-2*gammaaa*t16*t165*t365*t366
8639            t719 = 9.873184707612337d-2*gammaaa*t16*t162*t17*t366*t376
8640            t720 = -4.9365923538061685d-2*gammaaa*t16*t163*t165*t376
8641            t721 = 1/rhoa**1.3666666666666666d+1
8642            t722 = 1/rhoa**1.2333333333333334d+1
8643            t723 = 1/rhoa**11
8644            t724 = 1/rhoa**9.666666666666666d+0
8645            t725 = 1/rhoa**8.333333333333334d+0
8646            t726 = 1/rhoa**7
8647            t727 = 1.958171952691946d-3*t723*t8-2.811358882523947d+0*t14
8648     1         *t726+3.4274921739849046d-1*t12*t725-2.6382474466894645d-
8649     2         2*t10*t724-1.9214483293868775d-4*t6*t722+8.90555591990819
8650     3         5d-6*t20*t721+9.369101339439189d+0*gammaaa*t707-7.0947047
8651     4         87173696d+0*t5/rhoa**4.333333333333333d+0-6.8780767713482
8652     5         86d-7*t18/rhoa**15
8653            t728 = -1.6455307846020562d-2*gammaaa*t16*t163*t17*t727
8654            t729 = -4.9365923538061685d-2*gammaaa*t16*t162*t163*t379
8655            t730 = 3.115927725822337d-4*t723*t8-2.1606615760248984d-2*t1
8656     1         4*t726+1.0756283400962623d-2*t12*t725-2.3486322899894632d
8657     2         -3*t10*t724-2.636823993592544d-5*t6*t722-1.20091636266328
8658     3         24d-2*gammaaa*t707
8659            t731 = 1.6455307846020562d-2*gammaaa*t16*t25*t730
8660            t732 = t731+t729+t728+t720+t719+t718+t717+t714+t713+t712+t71
8661     1         1+t710+t709+t708-1.950258707676511d-1*t152*t39
8662            t733 = t167**3
8663            t734 = 1/t33**4
8664            t735 = -2.349044621726439d-5*t384*t723*t8+4.0688686731102613
8665     1         d-8*t20*t721*t734+6.934448603031025d-2*gammaaa*t16*t25*t7
8666     2         30-6.934448603031025d-2*gammaaa*t16*t163*t17*t727+4.27006
8667     3         7917509071d-3*t12*t168*t725-4.1606691618186153d-1*gammaaa
8668     4         *t16*t17*t715*t716-2.3438246032741353d-1*gammaaa*t34*t707
8669     5         -3.1641632144200826d+0*gammaaa*t17*t25*t707-5.54755888242
8670     6         4819d-1*gammaaa*t152*t25*t379-2.0803345809093077d-1*gamma
8671     7         aa*t16*t162*t163*t379+4.1606691618186153d-1*gammaaa*t16*t
8672     8         162*t17*t366*t376+5.547558882424819d-1*gammaaa*t152*t163*
8673     9         t17*t376-2.0803345809093077d-1*gammaaa*t16*t163*t165*t376
8674     :         -1.1095117764849638d+0*gammaaa*t152*t17*t365*t366+4.16066
8675     ;         91618186153d-1*gammaaa*t16*t165*t365*t366+2.0341049235557
8676     <         67d+0*gammaaa*t165*t25*t361-2.034104923555767d+0*gammaaa*
8677     =         t162*t163*t17*t361+1.1095117764849638d+0*gammaaa*t152*t16
8678     >         2*t163*t165
8679            t736 = 1/t31**4
8680            t737 = t221**3
8681            t738 = 1/t37**6.0d+0
8682            t739 = 1/t51**3
8683            t740 = t179**3
8684            t741 = 1/t49**4
8685            t742 = t175**3
8686            t743 = 1/t45**5
8687            t744 = 3.75d-1*t742*t743
8688            t745 = -7.5d-1*t175*t381*t395
8689            t746 = 5.0d-1*t176*t732
8690            t747 = -2.660585798433468d-1*t1*t375
8691            t748 = t747+t746+t745+t744
8692            t749 = 1/t46**4
8693            t750 = 1/t43**5
8694            t751 = 3.75d-1*t742*t750
8695            t752 = -7.5d-1*t175*t381*t402
8696            t753 = 5.0d-1*t181*t732
8697            t754 = t731+t729+t728+t720+t719+t718+t717+t714+t713+t712+t71
8698     1         1+t710+t709+t708
8699            t755 = 1/t57**3
8700            t756 = 1/t55**4
8701            t757 = 1/t54**5
8702            t758 = 3.75d-1*t742*t757
8703            t759 = -7.5d-1*t175*t381*t412
8704            t760 = 5.0d-1*t190*t732
8705            t761 = 1/t62**4
8706            t762 = t199**3
8707            t763 = 1/t60**4
8708            t764 = t760+t759+t758+t753+t752+t751
8709            t765 = 1/t64**4
8710            t766 = t188**3
8711            t767 = t66**5.0d-1
8712            t768 = 1/t69**5
8713            t769 = 1/t70**5
8714            t770 = -4.810434144489083d-1*t1*t3*t542*t733-1.2827824385304
8715     1         22d-1*t1*t213*t3*t732-1.924173657795633d-1*t1*t23*t318*t3
8716     2         83+5.772520973386899d-1*t1*t167*t3*t318*t381+1.2827824385
8717     3         30422d-1*t1*t213*t23*t381-2.660585798433468d-1*t1*t30*t37
8718     4         5-1.7103765847072294d-1*t1*t161*t167*t213
8719            t771 = t27*t770+t31*t732+3*t167*t435+3*t214*t381
8720            t772 = t285-1.282782438530422d-1*t1*t248*t286*t78
8721            t773 = t102*t772+t106*t248
8722            t774 = 1/rhob**5.666666666666667d+0
8723            t775 = -7.508496024554567d-1*gammabb*t100*t774*t92
8724            t776 = -4.8268903014993647d-1*gammabb*t235*t236*t440*t92
8725            t777 = 4.8268903014993647d-1*gammabb*t100*t238*t440
8726            t778 = -2.63284925536329d-1*gammabb*t225*t444*t445*t92
8727            t779 = 1.316424627681645d-1*gammabb*t225*t236*t455*t92
8728            t780 = 2.63284925536329d-1*gammabb*t225*t235*t236*t238
8729            t781 = -1.316424627681645d-1*gammabb*t100*t225*t458
8730            t782 = t235**3
8731            t783 = 1/t99**4
8732            t784 = -9.873184707612337d-2*gammabb*t782*t783*t91*t92
8733            t785 = 9.873184707612337d-2*gammabb*t238*t444*t445*t91
8734            t786 = 9.873184707612337d-2*gammabb*t235*t445*t455*t91*t92
8735            t787 = -4.9365923538061685d-2*gammabb*t236*t238*t455*t91
8736            t788 = 1/rhob**1.3666666666666666d+1
8737            t789 = 1/rhob**1.2333333333333334d+1
8738            t790 = 1/rhob**11
8739            t791 = 1/rhob**9.666666666666666d+0
8740            t792 = 1/rhob**8.333333333333334d+0
8741            t793 = 1/rhob**7
8742            t794 = 8.905555919908195d-6*t788*t95-6.878076771348286d-7*t9
8743     1         3/rhob**15-2.811358882523947d+0*t793*t89+3.42749217398490
8744     2         46d-1*t792*t87-2.6382474466894645d-2*t791*t85+1.958171952
8745     3         691946d-3*t790*t83-1.9214483293868775d-4*t789*t81-7.09470
8746     4         4787173696d+0*t80/rhob**4.333333333333333d+0+9.3691013394
8747     5         39189d+0*gammabb*t774
8748            t795 = -1.6455307846020562d-2*gammabb*t236*t794*t91*t92
8749            t796 = -4.9365923538061685d-2*gammabb*t235*t236*t458*t91
8750            t797 = -2.1606615760248984d-2*t793*t89+1.0756283400962623d-2
8751     1         *t792*t87-2.3486322899894632d-3*t791*t85+3.11592772582233
8752     2         7d-4*t790*t83-2.636823993592544d-5*t789*t81-1.20091636266
8753     3         32824d-2*gammabb*t774
8754            t798 = 1.6455307846020562d-2*gammabb*t100*t797*t91
8755            t799 = t798+t796+t795+t787+t786+t785+t784+t781+t780+t779+t77
8756     1         8+t777+t776+t775-1.950258707676511d-1*t225*t39
8757            t800 = t240**3
8758            t801 = 1/t108**4
8759            t802 = 4.0688686731102613d-8*t788*t801*t95-6.934448603031025
8760     1         d-2*gammabb*t236*t794*t91*t92-4.1606691618186153d-1*gamma
8761     2         bb*t782*t783*t91*t92+4.1606691618186153d-1*gammabb*t235*t
8762     3         445*t455*t91*t92-3.1641632144200826d+0*gammabb*t100*t774*
8763     4         t92+5.547558882424819d-1*gammabb*t225*t236*t455*t92-1.109
8764     5         5117764849638d+0*gammabb*t225*t444*t445*t92-2.03410492355
8765     6         5767d+0*gammabb*t235*t236*t440*t92+6.934448603031025d-2*g
8766     7         ammabb*t100*t797*t91-2.0803345809093077d-1*gammabb*t235*t
8767     8         236*t458*t91-2.0803345809093077d-1*gammabb*t236*t238*t455
8768     9         *t91+4.1606691618186153d-1*gammabb*t238*t444*t445*t91+4.2
8769     :         70067917509071d-3*t241*t792*t87-2.349044621726439d-5*t463
8770     ;         *t790*t83-2.3438246032741353d-1*gammabb*t109*t774-5.54755
8771     <         8882424819d-1*gammabb*t100*t225*t458+2.034104923555767d+0
8772     =         *gammabb*t100*t238*t440+1.1095117764849638d+0*gammabb*t22
8773     >         5*t235*t236*t238
8774            t803 = 1/t106**4
8775            t804 = t294**3
8776            t805 = 1/t112**6.0d+0
8777            t806 = 1/t125**3
8778            t807 = t252**3
8779            t808 = 1/t123**4
8780            t809 = t248**3
8781            t810 = 1/t119**5
8782            t811 = 3.75d-1*t809*t810
8783            t812 = -7.5d-1*t248*t460*t474
8784            t813 = 5.0d-1*t249*t799
8785            t814 = -2.660585798433468d-1*t1*t454
8786            t815 = t814+t813+t812+t811
8787            t816 = 1/t120**4
8788            t817 = 1/t117**5
8789            t818 = 3.75d-1*t809*t817
8790            t819 = -7.5d-1*t248*t460*t481
8791            t820 = 5.0d-1*t254*t799
8792            t821 = t798+t796+t795+t787+t786+t785+t784+t781+t780+t779+t77
8793     1         8+t777+t776+t775
8794            t822 = 1/t131**3
8795            t823 = 1/t129**4
8796            t824 = 1/t128**5
8797            t825 = 3.75d-1*t809*t824
8798            t826 = -7.5d-1*t248*t460*t491
8799            t827 = 5.0d-1*t263*t799
8800            t828 = 1/t136**4
8801            t829 = t272**3
8802            t830 = 1/t134**4
8803            t831 = t827+t826+t825+t820+t819+t818
8804            t832 = 1/t138**4
8805            t833 = t261**3
8806            t834 = t140**5.0d-1
8807            t835 = 1/t143**5
8808            t836 = 1/t144**5
8809            t837 = -1.924173657795633d-1*t1*t350*t462*t98+1.282782438530
8810     1         422d-1*t1*t286*t460*t98-4.810434144489083d-1*t1*t575*t78*
8811     2         t800-1.282782438530422d-1*t1*t286*t78*t799+5.772520973386
8812     3         899d-1*t1*t240*t350*t460*t78-2.660585798433468d-1*t1*t105
8813     4         *t454-1.7103765847072294d-1*t1*t234*t240*t286
8814            t838 = t102*t837+t106*t799+3*t240*t514+3*t287*t460
8815            t839 = -2.812280816813114d-6*t369*t8+2.2108103907905202d-7*t
8816     1         368*t6+7.028397206309868d-1*t374*t5+1.0642057180760542d+0
8817     2         *t297*t375-9.347705929049741d-2*gammaaa*t373+7.6103291731
8818     3         42687d-3*t14*t372-5.874515858075838d-4*t12*t371+5.9338845
8819     4         46635945d-5*t10*t370-2.0076645727369685d+0*t361
8820            t840 = 5.401653940062247d-3*t374*t5-2.93353183662617d-3*gamm
8821     1         aaa*t373+6.774900836508068d-4*t14*t372-9.347783177467011d
8822     2         -5*t12*t371+8.143132921388737d-6*t10*t370+2.5733922057070
8823     3         335d-3*t361
8824            t841 = 1.6455307846020562d-2*gammaaa*t16*t25*t840-1.64553078
8825     1         46020562d-2*gammaaa*t16*t163*t17*t839-9.873184707612337d-
8826     2         2*gammaaa*t16*t17*t298*t365*t716-8.7761641845443d-2*gamma
8827     3         aa*t152*t25*t525-3.2910615692041123d-2*gammaaa*t16*t162*t
8828     4         163*t525+6.582123138408225d-2*gammaaa*t16*t162*t17*t366*t
8829     5         524+8.7761641845443d-2*gammaaa*t152*t163*t17*t524-3.29106
8830     6         15692041123d-2*gammaaa*t16*t163*t165*t524-1.6455307846020
8831     7         562d-2*gammaaa*t16*t163*t298*t379+1.6455307846020562d-2*t
8832     8         16*t25*t379+3.2910615692041123d-2*gammaaa*t16*t17*t298*t3
8833     9         66*t376-1.6455307846020562d-2*gammaaa*t16*t163*t299*t376-
8834     :         1.6455307846020562d-2*t16*t163*t17*t376+3.291061569204112
8835     ;         3d-2*gammaaa*t16*t299*t365*t366+3.2910615692041123d-2*t16
8836     <         *t17*t365*t366-1.75523283690886d-1*gammaaa*t152*t162*t17*
8837     =         t298*t366+6.582123138408225d-2*gammaaa*t16*t162*t165*t298
8838     >         *t366+1.6089634338331216d-1*gammaaa*t25*t299*t361-1.60896
8839     ?         34338331216d-1*gammaaa*t163*t17*t298*t361+1.6089634338331
8840     @         216d-1*t17*t25*t361+8.7761641845443d-2*gammaaa*t152*t162*
8841     1         t163*t299+8.7761641845443d-2*gammaaa*t152*t163*t165*t298-
8842     2         8.7761641845443d-2*t152*t165*t25+8.7761641845443d-2*t152*
8843     3         t162*t163*t17-3.2910615692041123d-2*t16*t162*t163*t165
8844            t842 = 6.934448603031025d-2*gammaaa*t16*t25*t840-6.934448603
8845     1         031025d-2*gammaaa*t16*t163*t17*t839-1.525825752416348d-8*
8846     2         t369*t734*t8-4.1606691618186153d-1*gammaaa*t16*t17*t298*t
8847     3         365*t716-3.698372588283213d-1*gammaaa*t152*t25*t525-1.386
8848     4         889720606205d-1*gammaaa*t16*t162*t163*t525+2.773779441212
8849     5         41d-1*gammaaa*t16*t162*t17*t366*t524+3.698372588283213d-1
8850     6         *gammaaa*t152*t163*t17*t524-1.386889720606205d-1*gammaaa*
8851     7         t16*t163*t165*t524+7.881662875529499d-6*t12*t371*t384-6.9
8852     8         34448603031025d-2*gammaaa*t16*t163*t298*t379+6.9344486030
8853     9         31025d-2*t16*t25*t379+1.386889720606205d-1*gammaaa*t16*t1
8854     :         7*t298*t366*t376-6.934448603031025d-2*gammaaa*t16*t163*t2
8855     ;         99*t376-6.934448603031025d-2*t16*t163*t17*t376-1.22091384
8856     <         7381626d-3*gammaaa*t168*t373+1.386889720606205d-1*gammaaa
8857     =         *t16*t299*t365*t366+1.386889720606205d-1*t16*t17*t365*t36
8858     >         6-7.396745176566426d-1*gammaaa*t152*t162*t17*t298*t366+2.
8859     ?         77377944121241d-1*gammaaa*t16*t162*t165*t298*t366+5.02248
8860     @         129273029d-2*t34*t361+6.780349745185891d-1*gammaaa*t25*t2
8861     1         99*t361-6.780349745185891d-1*gammaaa*t163*t17*t298*t361+6
8862     2         .780349745185891d-1*t17*t25*t361+3.698372588283213d-1*gam
8863     3         maaa*t152*t162*t163*t299+3.698372588283213d-1*gammaaa*t15
8864     4         2*t163*t165*t298-3.698372588283213d-1*t152*t165*t25+3.698
8865     5         372588283213d-1*t152*t162*t163*t17-1.386889720606205d-1*t
8866     6         16*t162*t163*t165
8867            t843 = 3.75d-1*t300*t394*t743
8868            t844 = -2.5d-1*t300*t381*t395
8869            t845 = -5.0d-1*t175*t395*t526
8870            t846 = 5.0d-1*t176*t841
8871            t847 = t846+t845+t844+t843
8872            t848 = 3.75d-1*t300*t394*t750
8873            t849 = -2.5d-1*t300*t381*t402
8874            t850 = -5.0d-1*t175*t402*t526
8875            t851 = 5.0d-1*t181*t841
8876            t852 = 3.75d-1*t300*t394*t757
8877            t853 = -2.5d-1*t300*t381*t412
8878            t854 = -5.0d-1*t175*t412*t526
8879            t855 = 5.0d-1*t190*t841
8880            t856 = t855+t854+t853+t852+t851+t850+t849+t848
8881            t857 = 1/t29**9
8882            t858 = -1.282782438530422d-1*t1*t213*t3*t841-4.8104341444890
8883     1         83d-1*t1*t3*t300*t383*t542+3.848347315591266d-1*t1*t167*t
8884     2         3*t318*t526+8.551882923536147d-2*t1*t213*t23*t526+1.92417
8885     3         3657795633d-1*t1*t3*t300*t318*t381-1.282782438530422d-1*t
8886     4         1*t167*t23*t300*t318-5.701255282357431d-2*t1*t161*t213*t3
8887     5         00
8888            t859 = t27*t858+t31*t841+2*t167*t547+2*t214*t526+t300*t435-1
8889     1         .282782438530422d-1*t1*t213*t3*t300*t381
8890            t860 = 7.610329173142687d-3*t451*t89-5.874515858075838d-4*t4
8891     1         50*t87+5.933884546635945d-5*t449*t85-2.812280816813114d-6
8892     2         *t448*t83+2.2108103907905202d-7*t447*t81+7.02839720630986
8893     3         8d-1*t453*t80+1.0642057180760542d+0*t329*t454-9.347705929
8894     4         049741d-2*gammabb*t452-2.0076645727369685d+0*t440
8895            t861 = 6.774900836508068d-4*t451*t89-9.347783177467011d-5*t4
8896     1         50*t87+8.143132921388737d-6*t449*t85+5.401653940062247d-3
8897     2         *t453*t80-2.93353183662617d-3*gammabb*t452+2.573392205707
8898     3         0335d-3*t440
8899            t862 = -1.6455307846020562d-2*gammabb*t236*t860*t91*t92-9.87
8900     1         3184707612337d-2*gammabb*t330*t444*t783*t91*t92+6.5821231
8901     2         38408225d-2*gammabb*t235*t445*t557*t91*t92+3.291061569204
8902     3         1123d-2*gammabb*t330*t445*t455*t91*t92-1.6455307846020562
8903     4         d-2*t236*t455*t91*t92+3.2910615692041123d-2*t444*t445*t91
8904     5         *t92+8.7761641845443d-2*gammabb*t225*t236*t557*t92-1.7552
8905     6         3283690886d-1*gammabb*t225*t235*t330*t445*t92-1.608963433
8906     7         8331216d-1*gammabb*t236*t330*t440*t92+1.6089634338331216d
8907     8         -1*t100*t440*t92+8.7761641845443d-2*t225*t235*t236*t92+1.
8908     9         6455307846020562d-2*gammabb*t100*t861*t91-3.2910615692041
8909     :         123d-2*gammabb*t235*t236*t558*t91-3.2910615692041123d-2*g
8910     ;         ammabb*t236*t238*t557*t91-1.6455307846020562d-2*gammabb*t
8911     <         236*t330*t458*t91+1.6455307846020562d-2*t100*t458*t91-1.6
8912     =         455307846020562d-2*gammabb*t236*t331*t455*t91+3.291061569
8913     >         2041123d-2*gammabb*t331*t444*t445*t91+6.582123138408225d-
8914     ?         2*gammabb*t235*t238*t330*t445*t91-3.2910615692041123d-2*t
8915     @         235*t236*t238*t91-8.7761641845443d-2*gammabb*t100*t225*t5
8916     1         58+1.6089634338331216d-1*gammabb*t100*t331*t440+8.7761641
8917     2         845443d-2*gammabb*t225*t235*t236*t331+8.7761641845443d-2*
8918     3         gammabb*t225*t236*t238*t330-8.7761641845443d-2*t100*t225*
8919     4         t238
8920            t863 = -6.934448603031025d-2*gammabb*t236*t860*t91*t92-4.160
8921     1         6691618186153d-1*gammabb*t330*t444*t783*t91*t92+2.7737794
8922     2         4121241d-1*gammabb*t235*t445*t557*t91*t92+1.3868897206062
8923     3         05d-1*gammabb*t330*t445*t455*t91*t92-6.934448603031025d-2
8924     4         *t236*t455*t91*t92+1.386889720606205d-1*t444*t445*t91*t92
8925     5         +3.698372588283213d-1*gammabb*t225*t236*t557*t92-7.396745
8926     6         176566426d-1*gammabb*t225*t235*t330*t445*t92-6.7803497451
8927     7         85891d-1*gammabb*t236*t330*t440*t92+6.780349745185891d-1*
8928     8         t100*t440*t92+3.698372588283213d-1*t225*t235*t236*t92+6.9
8929     9         34448603031025d-2*gammabb*t100*t861*t91-1.386889720606205
8930     :         d-1*gammabb*t235*t236*t558*t91-1.386889720606205d-1*gamma
8931     ;         bb*t236*t238*t557*t91-6.934448603031025d-2*gammabb*t236*t
8932     <         330*t458*t91+6.934448603031025d-2*t100*t458*t91-6.9344486
8933     =         03031025d-2*gammabb*t236*t331*t455*t91+1.386889720606205d
8934     >         -1*gammabb*t331*t444*t445*t91+2.77377944121241d-1*gammabb
8935     ?         *t235*t238*t330*t445*t91-1.386889720606205d-1*t235*t236*t
8936     @         238*t91+7.881662875529499d-6*t450*t463*t87-1.525825752416
8937     1         348d-8*t448*t801*t83-3.698372588283213d-1*gammabb*t100*t2
8938     2         25*t558-1.220913847381626d-3*gammabb*t241*t452+6.78034974
8939     3         5185891d-1*gammabb*t100*t331*t440+5.02248129273029d-2*t10
8940     4         9*t440+3.698372588283213d-1*gammabb*t225*t235*t236*t331+3
8941     5         .698372588283213d-1*gammabb*t225*t236*t238*t330-3.6983725
8942     6         88283213d-1*t100*t225*t238
8943            t864 = 3.75d-1*t332*t473*t810
8944            t865 = -2.5d-1*t332*t460*t474
8945            t866 = -5.0d-1*t248*t474*t559
8946            t867 = 5.0d-1*t249*t862
8947            t868 = t867+t866+t865+t864
8948            t869 = 3.75d-1*t332*t473*t817
8949            t870 = -2.5d-1*t332*t460*t481
8950            t871 = -5.0d-1*t248*t481*t559
8951            t872 = 5.0d-1*t254*t862
8952            t873 = 3.75d-1*t332*t473*t824
8953            t874 = -2.5d-1*t332*t460*t491
8954            t875 = -5.0d-1*t248*t491*t559
8955            t876 = 5.0d-1*t263*t862
8956            t877 = t876+t875+t874+t873+t872+t871+t870+t869
8957            t878 = 1/t104**9
8958            t879 = 8.551882923536147d-2*t1*t286*t559*t98-1.2827824385304
8959     1         22d-1*t1*t240*t332*t350*t98-1.282782438530422d-1*t1*t286*
8960     2         t78*t862-4.810434144489083d-1*t1*t332*t462*t575*t78+3.848
8961     3         347315591266d-1*t1*t240*t350*t559*t78+1.924173657795633d-
8962     4         1*t1*t332*t350*t460*t78-5.701255282357431d-2*t1*t234*t286
8963     5         *t332
8964            t880 = t102*t879+t106*t862-1.282782438530422d-1*t1*t286*t332
8965     1         *t460*t78+2*t240*t580+2*t287*t559+t332*t514
8966            t881 = 2.2804408244486873d-1*t161*t588-1.488977446919221d-3*
8967     1         t158*t5-7.028397206309868d-2*t160*t297+1.4759535677446958
8968     2         d-2*t159+1.3054479684612974d-4*gammaaa*t157-1.43561722902
8969     3         48254d-5*t14*t156+7.231579243233723d-7*t12*t155-5.9521818
8970     4         21359094d-8*t10*t154
8971            t882 = -1.3255240767081d-4*t158*t5-5.401653940062245d-4*t160
8972     1         *t297+4.631892373620269d-4*t159+2.0772851505482245d-5*gam
8973     2         maaa*t157-1.9701128035617912d-6*t14*t156
8974            t883 = 1.6455307846020562d-2*gammaaa*t16*t25*t882-1.64553078
8975     1         46020562d-2*gammaaa*t16*t163*t17*t881-9.873184707612337d-
8976     2         2*gammaaa*t16*t162*t17*t587*t716-4.38808209227215d-2*gamm
8977     3         aaa*t152*t25*t590-1.6455307846020562d-2*gammaaa*t16*t162*
8978     4         t163*t590+3.2910615692041123d-2*gammaaa*t16*t162*t17*t366
8979     5         *t589+4.38808209227215d-2*gammaaa*t152*t163*t17*t589-1.64
8980     6         55307846020562d-2*gammaaa*t16*t163*t165*t589-8.7761641845
8981     7         443d-2*gammaaa*t152*t17*t366*t587+3.2910615692041123d-2*g
8982     8         ammaaa*t16*t165*t366*t587-3.2910615692041123d-2*gammaaa*t
8983     9         16*t163*t298*t525+3.2910615692041123d-2*t16*t25*t525+6.58
8984     :         2123138408225d-2*gammaaa*t16*t17*t298*t366*t524-3.2910615
8985     ;         692041123d-2*gammaaa*t16*t163*t299*t524-3.291061569204112
8986     <         3d-2*t16*t163*t17*t524+6.582123138408225d-2*gammaaa*t16*t
8987     =         162*t298*t299*t366+6.582123138408225d-2*t16*t162*t17*t298
8988     >         *t366+8.7761641845443d-2*gammaaa*t152*t163*t298*t299-8.77
8989     ?         61641845443d-2*t152*t25*t299-3.2910615692041123d-2*t16*t1
8990     @         62*t163*t299+8.7761641845443d-2*t152*t163*t17*t298-3.2910
8991     1         615692041123d-2*t16*t163*t165*t298
8992            t884 = 6.934448603031025d-2*gammaaa*t16*t25*t882-6.934448603
8993     1         031025d-2*gammaaa*t16*t163*t17*t881+5.721846571561304d-9*
8994     2         t12*t155*t734-4.1606691618186153d-1*gammaaa*t16*t162*t17*
8995     3         t587*t716-1.8491862941416065d-1*gammaaa*t152*t25*t590-6.9
8996     4         34448603031025d-2*gammaaa*t16*t162*t163*t590+1.3868897206
8997     5         06205d-1*gammaaa*t16*t162*t17*t366*t589+1.849186294141606
8998     6         5d-1*gammaaa*t152*t163*t17*t589-6.934448603031025d-2*gamm
8999     7         aaa*t16*t163*t165*t589-3.698372588283213d-1*gammaaa*t152*
9000     8         t17*t366*t587+1.386889720606205d-1*gammaaa*t16*t165*t366*
9001     9         t587-1.386889720606205d-1*gammaaa*t16*t163*t298*t525+1.38
9002     :         6889720606205d-1*t16*t25*t525+2.77377944121241d-1*gammaaa
9003     ;         *t16*t17*t298*t366*t524-1.386889720606205d-1*gammaaa*t16*
9004     <         t163*t299*t524-1.386889720606205d-1*t16*t163*t17*t524-2.3
9005     =         18136139861618d-6*gammaaa*t157*t384+2.77377944121241d-1*g
9006     >         ammaaa*t16*t162*t298*t299*t366+2.77377944121241d-1*t16*t1
9007     ?         62*t17*t298*t366+3.698372588283213d-1*gammaaa*t152*t163*t
9008     @         298*t299-3.698372588283213d-1*t152*t25*t299-1.38688972060
9009     1         6205d-1*t16*t162*t163*t299+3.698372588283213d-1*t152*t163
9010     2         *t17*t298-1.386889720606205d-1*t16*t163*t165*t298+2.25399
9011     3         47951660788d-4*t159*t168
9012            t885 = 3.75d-1*t175*t585*t743
9013            t886 = -5.0d-1*t300*t395*t526
9014            t887 = -2.5d-1*t175*t395*t591
9015            t888 = 5.0d-1*t176*t883
9016            t889 = t888+t887+t886+t885
9017            t890 = 3.75d-1*t175*t585*t750
9018            t891 = -5.0d-1*t300*t402*t526
9019            t892 = -2.5d-1*t175*t402*t591
9020            t893 = 5.0d-1*t181*t883
9021            t894 = 3.75d-1*t175*t585*t757
9022            t895 = -5.0d-1*t300*t412*t526
9023            t896 = -2.5d-1*t175*t412*t591
9024            t897 = 5.0d-1*t190*t883
9025            t898 = t897+t896+t895+t894+t893+t892+t891+t890
9026            t899 = 1/t27**5
9027            t900 = -1.282782438530422d-1*t1*t213*t3*t883+1.9241736577956
9028     1         33d-1*t1*t167*t3*t318*t591+4.2759414617680735d-2*t1*t213*
9029     2         t23*t591-4.810434144489083d-1*t1*t167*t3*t542*t585-6.4139
9030     3         1219265211d-2*t1*t23*t318*t585+3.848347315591266d-1*t1*t3
9031     4         *t300*t318*t526
9032            t901 = t27*t900+t31*t883-1.282782438530422d-1*t1*t167*t213*t
9033     1         3*t591+t214*t591+1.924173657795633d-1*t1*t167*t3*t318*t58
9034     2         5+2*t300*t547-2.565564877060844d-1*t1*t213*t3*t300*t526
9035            t902 = -1.4356172290248254d-5*t229*t89+7.231579243233723d-7*
9036     1         t228*t87-5.952181821359094d-8*t227*t85-1.488977446919221d
9037     2         -3*t231*t80+2.2804408244486873d-1*t234*t648-7.02839720630
9038     3         9868d-2*t233*t329+1.4759535677446958d-2*t232+1.3054479684
9039     4         612974d-4*gammabb*t230
9040            t903 = -1.9701128035617912d-6*t229*t89-1.3255240767081d-4*t2
9041     1         31*t80-5.401653940062245d-4*t233*t329+4.631892373620269d-
9042     2         4*t232+2.0772851505482245d-5*gammabb*t230
9043            t904 = -1.6455307846020562d-2*gammabb*t236*t902*t91*t92-9.87
9044     1         3184707612337d-2*gammabb*t235*t647*t783*t91*t92+3.2910615
9045     2         692041123d-2*gammabb*t235*t445*t649*t91*t92+6.58212313840
9046     3         8225d-2*gammabb*t330*t445*t557*t91*t92-3.2910615692041123
9047     4         d-2*t236*t557*t91*t92+6.582123138408225d-2*t235*t330*t445
9048     5         *t91*t92+4.38808209227215d-2*gammabb*t225*t236*t649*t92-8
9049     6         .7761641845443d-2*gammabb*t225*t445*t647*t92+8.7761641845
9050     7         443d-2*t225*t236*t330*t92+1.6455307846020562d-2*gammabb*t
9051     8         100*t903*t91-1.6455307846020562d-2*gammabb*t235*t236*t650
9052     9         *t91-1.6455307846020562d-2*gammabb*t236*t238*t649*t91+3.2
9053     :         910615692041123d-2*gammabb*t238*t445*t647*t91-3.291061569
9054     ;         2041123d-2*gammabb*t236*t330*t558*t91+3.2910615692041123d
9055     <         -2*t100*t558*t91-3.2910615692041123d-2*gammabb*t236*t331*
9056     =         t557*t91+6.582123138408225d-2*gammabb*t235*t330*t331*t445
9057     >         *t91-3.2910615692041123d-2*t235*t236*t331*t91-3.291061569
9058     ?         2041123d-2*t236*t238*t330*t91-4.38808209227215d-2*gammabb
9059     @         *t100*t225*t650+8.7761641845443d-2*gammabb*t225*t236*t330
9060     1         *t331-8.7761641845443d-2*t100*t225*t331
9061            t905 = -6.934448603031025d-2*gammabb*t236*t902*t91*t92-4.160
9062     1         6691618186153d-1*gammabb*t235*t647*t783*t91*t92+1.3868897
9063     2         20606205d-1*gammabb*t235*t445*t649*t91*t92+2.773779441212
9064     3         41d-1*gammabb*t330*t445*t557*t91*t92-1.386889720606205d-1
9065     4         *t236*t557*t91*t92+2.77377944121241d-1*t235*t330*t445*t91
9066     5         *t92+1.8491862941416065d-1*gammabb*t225*t236*t649*t92-3.6
9067     6         98372588283213d-1*gammabb*t225*t445*t647*t92+3.6983725882
9068     7         83213d-1*t225*t236*t330*t92+6.934448603031025d-2*gammabb*
9069     8         t100*t903*t91-6.934448603031025d-2*gammabb*t235*t236*t650
9070     9         *t91-6.934448603031025d-2*gammabb*t236*t238*t649*t91+1.38
9071     :         6889720606205d-1*gammabb*t238*t445*t647*t91-1.38688972060
9072     ;         6205d-1*gammabb*t236*t330*t558*t91+1.386889720606205d-1*t
9073     <         100*t558*t91-1.386889720606205d-1*gammabb*t236*t331*t557*
9074     =         t91+2.77377944121241d-1*gammabb*t235*t330*t331*t445*t91-1
9075     >         .386889720606205d-1*t235*t236*t331*t91-1.386889720606205d
9076     ?         -1*t236*t238*t330*t91+5.721846571561304d-9*t228*t801*t87-
9077     @         1.8491862941416065d-1*gammabb*t100*t225*t650-2.3181361398
9078     1         61618d-6*gammabb*t230*t463+3.698372588283213d-1*gammabb*t
9079     2         225*t236*t330*t331-3.698372588283213d-1*t100*t225*t331+2.
9080     3         2539947951660788d-4*t232*t241
9081            t906 = 3.75d-1*t248*t645*t810
9082            t907 = -5.0d-1*t332*t474*t559
9083            t908 = -2.5d-1*t248*t474*t651
9084            t909 = 5.0d-1*t249*t904
9085            t910 = t909+t908+t907+t906
9086            t911 = 3.75d-1*t248*t645*t817
9087            t912 = -5.0d-1*t332*t481*t559
9088            t913 = -2.5d-1*t248*t481*t651
9089            t914 = 5.0d-1*t254*t904
9090            t915 = 3.75d-1*t248*t645*t824
9091            t916 = -5.0d-1*t332*t491*t559
9092            t917 = -2.5d-1*t248*t491*t651
9093            t918 = 5.0d-1*t263*t904
9094            t919 = t918+t917+t916+t915+t914+t913+t912+t911
9095            t920 = 1/t102**5
9096            t921 = 4.2759414617680735d-2*t1*t286*t651*t98-6.413912192652
9097     1         11d-2*t1*t350*t645*t98-1.282782438530422d-1*t1*t286*t78*t
9098     2         904+1.924173657795633d-1*t1*t240*t350*t651*t78-4.81043414
9099     3         4489083d-1*t1*t240*t575*t645*t78+3.848347315591266d-1*t1*
9100     4         t332*t350*t559*t78
9101            t922 = t102*t921+t106*t904-1.282782438530422d-1*t1*t240*t286
9102     1         *t651*t78+1.924173657795633d-1*t1*t240*t350*t645*t78-2.56
9103     2         5564877060844d-1*t1*t286*t332*t559*t78+t287*t651+2*t332*t
9104     3         580
9105            t923 = t300**3
9106            t924 = t298**3
9107            t925 = -1.6318099605766218d-5*t9+2.3072419752184684d-6*t5*t7
9108     1         -8.785496507887335d-3*t15*t588+1.1167330851894158d-4*t11*
9109     2         t297+2.5654959275047734d-1*t23/t10-1.3559211081063233d-7*
9110     3         gammaaa*t21+1.2400378794498113d-8*t14*t19
9111            t926 = -2.5966064381852805d-6*t9+3.1662527200100216d-7*t5*t7
9112     1         -6.752067425077807d-5*t15*t588+9.941430575310749d-6*t11*t
9113     2         297
9114            t927 = 1.6455307846020562d-2*gammaaa*t16*t25*t926-1.64553078
9115     1         46020562d-2*gammaaa*t16*t163*t17*t925-9.873184707612337d-
9116     2         2*gammaaa*t16*t17*t716*t924-4.9365923538061685d-2*gammaaa
9117     3         *t16*t163*t298*t590+4.9365923538061685d-2*t16*t25*t590+9.
9118     4         873184707612337d-2*gammaaa*t16*t17*t298*t366*t589-4.93659
9119     5         23538061685d-2*gammaaa*t16*t163*t299*t589-4.9365923538061
9120     6         685d-2*t16*t163*t17*t589+9.873184707612337d-2*gammaaa*t16
9121     7         *t299*t366*t587+9.873184707612337d-2*t16*t17*t366*t587-9.
9122     8         873184707612337d-2*t16*t163*t298*t299
9123            t928 = 6.934448603031025d-2*gammaaa*t16*t25*t926-6.934448603
9124     1         031025d-2*gammaaa*t16*t163*t17*t925-4.1606691618186153d-1
9125     2         *gammaaa*t16*t17*t716*t924+5.21580631468864d-7*t384*t9-2.
9126     3         1456924643354894d-9*gammaaa*t21*t734-2.0803345809093077d-
9127     4         1*gammaaa*t16*t163*t298*t590+2.0803345809093077d-1*t16*t2
9128     5         5*t590+4.1606691618186153d-1*gammaaa*t16*t17*t298*t366*t5
9129     6         89-2.0803345809093077d-1*gammaaa*t16*t163*t299*t589-2.080
9130     7         3345809093077d-1*t16*t163*t17*t589+4.1606691618186153d-1*
9131     8         gammaaa*t16*t299*t366*t587+4.1606691618186153d-1*t16*t17*
9132     9         t366*t587-4.1606691618186153d-1*t16*t163*t298*t299
9133            t929 = 1/t44**2
9134            t930 = 3.75d-1*t750*t923
9135            t931 = -7.5d-1*t300*t402*t591
9136            t932 = 5.0d-1*t181*t927
9137            t933 = 3.75d-1*t743*t923
9138            t934 = -7.5d-1*t300*t395*t591
9139            t935 = 5.0d-1*t176*t927
9140            t936 = t316**3
9141            t937 = 3.75d-1*t757*t923
9142            t938 = -7.5d-1*t300*t412*t591
9143            t939 = 5.0d-1*t190*t927
9144            t940 = t939+t938+t937+t932+t931+t930
9145            t941 = t1**3
9146            t942 = t31*t927-1.282782438530422d-1*t1*t3*t30*t927+9.620868
9147     1         288978166d-2*t1*t3*t318*t923-1.924173657795633d-1*t1*t213
9148     2         *t3*t300*t591
9149            t943 = t332**3
9150            t944 = t330**3
9151            t945 = 2.5654959275047734d-1*t98/t85-1.3559211081063233d-7*g
9152     1         ammabb*t96+1.2400378794498113d-8*t89*t94-8.78549650788733
9153     2         5d-3*t648*t90+1.1167330851894158d-4*t329*t86-1.6318099605
9154     3         766218d-5*t84+2.3072419752184684d-6*t80*t82
9155            t946 = -6.752067425077807d-5*t648*t90+9.941430575310749d-6*t
9156     1         329*t86-2.5966064381852805d-6*t84+3.1662527200100216d-7*t
9157     2         80*t82
9158            t947 = 1.6455307846020562d-2*gammabb*t100*t91*t946-1.6455307
9159     1         846020562d-2*gammabb*t236*t91*t92*t945-9.873184707612337d
9160     2         -2*gammabb*t783*t91*t92*t944+9.873184707612337d-2*gammabb
9161     3         *t330*t445*t649*t91*t92-4.9365923538061685d-2*t236*t649*t
9162     4         91*t92+9.873184707612337d-2*t445*t647*t91*t92-4.936592353
9163     5         8061685d-2*gammabb*t236*t330*t650*t91+4.9365923538061685d
9164     6         -2*t100*t650*t91-4.9365923538061685d-2*gammabb*t236*t331*
9165     7         t649*t91+9.873184707612337d-2*gammabb*t331*t445*t647*t91-
9166     8         9.873184707612337d-2*t236*t330*t331*t91
9167            t948 = -2.1456924643354894d-9*gammabb*t801*t96+6.93444860303
9168     1         1025d-2*gammabb*t100*t91*t946-6.934448603031025d-2*gammab
9169     2         b*t236*t91*t92*t945-4.1606691618186153d-1*gammabb*t783*t9
9170     3         1*t92*t944+4.1606691618186153d-1*gammabb*t330*t445*t649*t
9171     4         91*t92-2.0803345809093077d-1*t236*t649*t91*t92+4.16066916
9172     5         18186153d-1*t445*t647*t91*t92-2.0803345809093077d-1*gamma
9173     6         bb*t236*t330*t650*t91+2.0803345809093077d-1*t100*t650*t91
9174     7         -2.0803345809093077d-1*gammabb*t236*t331*t649*t91+4.16066
9175     8         91618186153d-1*gammabb*t331*t445*t647*t91-4.1606691618186
9176     9         153d-1*t236*t330*t331*t91+5.21580631468864d-7*t463*t84
9177            t949 = 1/t118**2
9178            t950 = 3.75d-1*t817*t943
9179            t951 = -7.5d-1*t332*t481*t651
9180            t952 = 5.0d-1*t254*t947
9181            t953 = 3.75d-1*t810*t943
9182            t954 = -7.5d-1*t332*t474*t651
9183            t955 = 5.0d-1*t249*t947
9184            t956 = t348**3
9185            t957 = 3.75d-1*t824*t943
9186            t958 = -7.5d-1*t332*t491*t651
9187            t959 = 5.0d-1*t263*t947
9188            t960 = t959+t958+t957+t952+t951+t950
9189            t961 = -1.282782438530422d-1*t1*t105*t78*t947+t106*t947+9.62
9190     1         0868288978166d-2*t1*t350*t78*t943-1.924173657795633d-1*t1
9191     2         *t286*t332*t651*t78
9192            fnc(iq) = (-9.305257363491d-1*t150*t97-9.305257363491d-1*t22
9193     1         *t76)*wght+fnc(iq)
9194            Amat(iq,D1_RA) = (-1.2407009817987999d+0*t2*t76-9.3052573634
9195     1         91d-1*t22*t223)*wght+Amat(iq,D1_RA)
9196            Amat(iq,D1_RB) = (-9.305257363491d-1*t296*t97-1.240700981798
9197     1         7999d+0*t150*t77)*wght+Amat(iq,D1_RB)
9198            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t22*(t32
9199     1         8*t73+t322+t320+t319+t317+t315+t311+t16*t25*t310+t309+t30
9200     2         4+t303+t301)*wght
9201            Cmat(iq,D1_GAB) = Cmat(iq,D1_GAB)
9202            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)-9.305257363491d-1*(t100*t3
9203     1         42*t91+t147*t360+t354+t352+t351+t349+t347+t343+t341+t336+
9204     2         t335+t333)*t97*wght
9205            Amat2(iq,D2_RA_RA) = (-4.135669939329333d-1*t40*t76-9.305257
9206     1         363491d-1*t22*t439-2.4814019635975998d+0*t2*t223)*wght+Am
9207     2         at2(iq,D2_RA_RA)
9208            Amat2(iq,D2_RA_RB) = Amat2(iq,D2_RA_RB)
9209            Amat2(iq,D2_RB_RB) = (-9.305257363491d-1*t518*t97-2.48140196
9210     1         35975998d+0*t296*t77-4.135669939329333d-1*t114*t150)*wght
9211     2         +Amat2(iq,D2_RB_RB)
9212            Cmat2(iq,D2_RA_GAA) = (-1.2407009817987999d+0*t2*(-8.8888888
9213     1         88888888d-1*t522*t72*t73+t523+t521+t520+t519+t322+t320+t3
9214     2         19+t317+t315+t311+t309+t304+t303+t301)-9.305257363491d-1*
9215     3         t22*t551)*wght+Cmat2(iq,D2_RA_GAA)
9216            Cmat2(iq,D2_RA_GAB) = Cmat2(iq,D2_RA_GAB)
9217            Cmat2(iq,D2_RA_GBB) = Cmat2(iq,D2_RA_GBB)
9218            Cmat2(iq,D2_RB_GAA) = Cmat2(iq,D2_RB_GAA)
9219            Cmat2(iq,D2_RB_GAB) = Cmat2(iq,D2_RB_GAB)
9220            Cmat2(iq,D2_RB_GBB) = (-9.305257363491d-1*t584*t97-1.2407009
9221     1         817987999d+0*(t556-8.888888888888888d-1*t146*t147*t555+t5
9222     2         54+t553+t552+t354+t352+t351+t349+t347+t343+t341+t336+t335
9223     3         +t333)*t77)*wght+Cmat2(iq,D2_RB_GBB)
9224            Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA)-9.305257363491d-
9225     1         1*t22*(t643*t73+6.764482379964267d-3*t1*t213*t3*t300*t321
9226     2         *t35*t73+t222*t644+t213*t3*t38*t631+t630+t629+t628+t627+t
9227     3         195*t625+t621+t614+t612+t16*t163*t611+t16*t186*t25*t610+t
9228     4         16*t25*t601+t600+t598+t597+t596+t594+t592+t586)*wght
9229            Cmat2(iq,D2_GAA_GAB) = Cmat2(iq,D2_GAA_GAB)
9230            Cmat2(iq,D2_GAA_GBB) = Cmat2(iq,D2_GAA_GBB)
9231            Cmat2(iq,D2_GAB_GAB) = Cmat2(iq,D2_GAB_GAB)
9232            Cmat2(iq,D2_GAB_GBB) = Cmat2(iq,D2_GAB_GBB)
9233            Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB)-9.305257363491d-
9234     1         1*(t236*t671*t91+t100*t259*t670*t91+t100*t661*t91+t113*t2
9235     2         86*t691*t78+6.764482379964267d-3*t1*t110*t147*t286*t332*t
9236     3         353*t78+t295*t704+t147*t703+t690+t689+t688+t687+t268*t685
9237     4         +t681+t674+t672+t660+t658+t657+t656+t654+t652+t646)*t97*w
9238     5         ght
9239            Amat3(iq,D3_RA_RA_RA) = (-9.305257363491d-1*t22*(2.666666666
9240     1         6666666d+0*t222*t72*t75*t771-1.0546577777777776d-1*t35*t3
9241     2         6*t73*t771-4.727288888888889d-2*t211*t28*t770-8.888888888
9242     3         888888d-1*t73*t75*(-2.4d+0*t68*(-3.75d-1*t766*t769+4.8104
9243     4         34144489083d-2*t207**3*t768-5.0d-1*t205*t754+6.4139121926
9244     5         5211d-2*t206*(gammaaa*t16*t25*t730-gammaaa*t16*t163*t17*t
9245     6         727-6*gammaaa*t16*t17*t715*t716-4.5629629629629626d+1*gam
9246     7         maaa*t17*t25*t707-8*gammaaa*t152*t25*t379-3*gammaaa*t16*t
9247     8         162*t163*t379+6*gammaaa*t16*t162*t17*t366*t376+8*gammaaa*
9248     9         t152*t163*t17*t376-3*gammaaa*t16*t163*t165*t376-16*gammaa
9249     :         a*t152*t17*t365*t366+6*gammaaa*t16*t165*t365*t366+2.93333
9250     ;         33333333333d+1*gammaaa*t165*t25*t361-2.9333333333333333d+
9251     <         1*gammaaa*t162*t163*t17*t361+16*gammaaa*t152*t162*t163*t1
9252     =         65)-9.620868288978166d-2*t207*t428*t431+7.5d-1*t188*t407*
9253     >         t430)-3.15d+1*t71*t766*t767-1.8610765434507923d+1*t766*t7
9254     ?         67-5.4519192d+0*t766-8.400000000000001d+0*t204*t71*t754-2
9255     @         .7259596d+0*t67*t754+5.672746666666666d-2*t66*t754+4.7459
9256     1         599999999996d-2*t35*t754-4.9628707825354457d+0*t204*t754+
9257     2         4.7459599999999996d-2*t66*t735-6.3d+1*t188*t407*t427*t71-
9258     3         1.6355757600000004d+1*t188*t407*t66-2.52d+1*t188*t204*t43
9259     4         2-6.3d+1*t208*t426*t427-3.7221530869015845d+1*t188*t407*t
9260     5         427-2.52d+1*t204*t208*t407+1.7018239999999996d-1*t188*t40
9261     6         7+1.423788d-1*t169*t407+1.423788d-1*t188*t385)+7.57211d-1
9262     7         *(-9.873184707612337d-2*gammaaa*t16*t17*t201**3*t25*t61*t
9263     8         765-1.6455307846020562d-2*gammaaa*t16*t17*t200*t25*t65*t7
9264     9         64-t200*t59*t63*t764-9.873184707612337d-2*gammaaa*t16*t17
9265     :         *t25*t65*t762*t763-6*t59*t63*t762*t763-6*t197**3*t59*t61*
9266     ;         t761-t198*t59*t61*(t760+t759+t758+t747)+t61*t63*t754-1.64
9267     <         55307846020562d-2*gammaaa*t16*t17*t202*t25*t61*(t753+t752
9268     =         +t751+t747)+1.6455307846020562d-2*gammaaa*t16*t25*t61*t65
9269     >         *t730-1.6455307846020562d-2*gammaaa*t16*t163*t17*t61*t65*
9270     ?         t727-9.873184707612337d-2*gammaaa*t16*t17*t61*t65*t715*t7
9271     @         16-7.508496024554567d-1*gammaaa*t17*t25*t61*t65*t707-1.31
9272     1         6424627681645d-1*gammaaa*t152*t25*t379*t61*t65-4.93659235
9273     2         38061685d-2*gammaaa*t16*t162*t163*t379*t61*t65+9.87318470
9274     3         7612337d-2*gammaaa*t16*t162*t17*t366*t376*t61*t65+1.31642
9275     4         4627681645d-1*gammaaa*t152*t163*t17*t376*t61*t65-4.936592
9276     5         3538061685d-2*gammaaa*t16*t163*t165*t376*t61*t65-2.632849
9277     6         25536329d-1*gammaaa*t152*t17*t365*t366*t61*t65+9.87318470
9278     7         7612337d-2*gammaaa*t16*t165*t365*t366*t61*t65+4.826890301
9279     8         4993647d-1*gammaaa*t165*t25*t361*t61*t65-4.82689030149936
9280     9         47d-1*gammaaa*t162*t163*t17*t361*t61*t65+2.63284925536329
9281     :         d-1*gammaaa*t152*t162*t163*t165*t61*t65+9.873184707612337
9282     ;         d-2*gammaaa*t16*t17*t199*t25*t421*t422*t65+1.316424627681
9283     <         645d-1*gammaaa*t152*t17*t200*t25*t422*t65-4.9365923538061
9284     =         685d-2*gammaaa*t16*t165*t200*t25*t422*t65+4.9365923538061
9285     >         685d-2*gammaaa*t16*t162*t163*t17*t200*t422*t65-2.63284925
9286     ?         536329d-1*gammaaa*t152*t17*t25*t420*t421*t65+9.8731847076
9287     @         12337d-2*gammaaa*t16*t165*t25*t420*t421*t65-9.87318470761
9288     1         2337d-2*gammaaa*t16*t162*t163*t17*t420*t421*t65-4.9365923
9289     2         538061685d-2*gammaaa*t16*t199*t200*t25*t379*t65+4.9365923
9290     3         538061685d-2*gammaaa*t16*t163*t17*t199*t200*t376*t65-9.87
9291     4         3184707612337d-2*gammaaa*t16*t17*t199*t200*t365*t366*t65-
9292     5         4.8268903014993647d-1*gammaaa*t17*t199*t200*t25*t361*t65+
9293     6         2.63284925536329d-1*gammaaa*t152*t165*t199*t200*t25*t65-2
9294     7         .63284925536329d-1*gammaaa*t152*t162*t163*t17*t199*t200*t
9295     8         65+9.873184707612337d-2*gammaaa*t16*t162*t163*t165*t199*t
9296     9         200*t65+6*t199*t421*t422*t59*t63-3*t188*t200*t422*t63+6*t
9297     :         188*t420*t421*t63-3*t199*t200*t407*t63+6*t197*t418*t419*t
9298     ;         59*t61+9.873184707612337d-2*gammaaa*t16*t17*t201*t25*t424
9299     <         *t425*t61+1.316424627681645d-1*gammaaa*t152*t17*t202*t25*
9300     =         t425*t61-4.9365923538061685d-2*gammaaa*t16*t165*t202*t25*
9301     >         t425*t61+4.9365923538061685d-2*gammaaa*t16*t162*t163*t17*
9302     ?         t202*t425*t61-2.63284925536329d-1*gammaaa*t152*t17*t25*t4
9303     @         23*t424*t61+9.873184707612337d-2*gammaaa*t16*t165*t25*t42
9304     1         3*t424*t61-9.873184707612337d-2*gammaaa*t16*t162*t163*t17
9305     2         *t423*t424*t61-3*t188*t198*t419*t61+6*t188*t417*t418*t61-
9306     3         3*t197*t198*t407*t61-4.9365923538061685d-2*gammaaa*t16*t2
9307     4         01*t202*t25*t379*t61+4.9365923538061685d-2*gammaaa*t16*t1
9308     5         63*t17*t201*t202*t376*t61-9.873184707612337d-2*gammaaa*t1
9309     6         6*t17*t201*t202*t365*t366*t61-4.8268903014993647d-1*gamma
9310     7         aa*t17*t201*t202*t25*t361*t61+2.63284925536329d-1*gammaaa
9311     8         *t152*t165*t201*t202*t25*t61-2.63284925536329d-1*gammaaa*
9312     9         t152*t162*t163*t17*t201*t202*t61+9.873184707612337d-2*gam
9313     :         maaa*t16*t162*t163*t165*t201*t202*t61+3*t197*t198*t200*t4
9314     ;         22*t59-6*t197*t198*t420*t421*t59+3*t198*t199*t200*t419*t5
9315     <         9-6*t199*t200*t417*t418*t59+4.9365923538061685d-2*gammaaa
9316     =         *t16*t17*t199*t200*t202*t25*t425-9.873184707612337d-2*gam
9317     >         maaa*t16*t17*t199*t200*t25*t423*t424+4.9365923538061685d-
9318     ?         2*gammaaa*t16*t17*t200*t201*t202*t25*t422-9.8731847076123
9319     @         37d-2*gammaaa*t16*t17*t201*t202*t25*t420*t421-2.632849255
9320     1         36329d-1*gammaaa*t152*t17*t199*t200*t201*t202*t25+9.87318
9321     2         4707612337d-2*gammaaa*t16*t165*t199*t200*t201*t202*t25-9.
9322     3         873184707612337d-2*gammaaa*t16*t162*t163*t17*t199*t200*t2
9323     4         01*t202+6*t188*t197*t198*t199*t200)-2.0d+0*t195*t59*(-1.4
9324     5         75609999999999d-1*t193*t50*(t760+t759+t758+t746+t745+t744
9325     6         )-8.853659999999993d-1*t192**3*t50*t756-1.475609999999999
9326     7         d-1*t180*t56*t748-8.853659999999993d-1*t56*t740*t741+8.85
9327     8         3659999999993d-1*t179*t393*t399*t56+8.853659999999993d-1*
9328     9         t192*t411*t415*t50+4.4268299999999966d-1*t179*t180*t193*t
9329     :         415-8.853659999999993d-1*t179*t180*t410*t411+4.4268299999
9330     ;         999966d-1*t180*t192*t193*t399-8.853659999999993d-1*t192*t
9331     <         193*t392*t393)-4.0d+0*t194**3*t59*t755-2.0d+0*t58*t754+3.
9332     =         2910615692041123d-2*gammaaa*t16*t17*t186*t25*(6.0965d-1*t
9333     >         184*t50*(t753+t752+t751+t746+t745+t744)+3.6579d+0*t183**3
9334     ?         *t50*t749+6.0965d-1*t180*t47*t748+3.6579d+0*t47*t740*t741
9335     @         -3.6579d+0*t183*t401*t405*t50-3.6579d+0*t179*t393*t399*t4
9336     1         7-1.82895d+0*t179*t180*t184*t405+3.6579d+0*t179*t180*t400
9337     2         *t401-1.82895d+0*t180*t183*t184*t399+3.6579d+0*t183*t184*
9338     3         t392*t393)+5.333333333333333d+1*t72*t737*t738*t75-3.2d+1*
9339     4         t221*t389*t438*t72*t75+8.0d+0*t209*t222*t438*t75+8.0d+0*t
9340     5         221*t222*t433*t75-3.2d+1*t209*t388*t389*t75+6.58212313840
9341     6         8225d-2*gammaaa*t16*t17*t185**3*t25*t739-1.26558933333333
9342     7         3d+0*t35*t36*t389*t737-2.8363733333333335d-1*t214**3*t28*
9343     8         t736+5.273288888888887d-2*t36*t38*t735-8.888888888888888d
9344     9         -1*t72*t73*(4.9365923538061685d-2*t1*t3*t30*(-1.875d+0*t1
9345     :         *t3*t542*t733-5.0d-1*t1*t213*t3*t732-7.5d-1*t1*t23*t318*t
9346     ;         383+2.25d+0*t1*t167*t3*t318*t381+5.0d-1*t1*t213*t23*t381-
9347     <         1.037037037037037d+0*t1*t30*t375-6.666666666666666d-1*t1*
9348     =         t161*t167*t213)-5.411738412550218d-1*t1*t3*t542*t733-1.44
9349     >         31302433467247d-1*t1*t213*t3*t732-1.6455307846020562d-2*t
9350     ?         1*t23*t30*t436-2.4682961769030842d-2*t1*t167*t213*t3*t436
9351     @         +9.873184707612337d-2*t219*t436-2.164695365020087d-1*t1*t
9352     1         23*t318*t383+6.494086095060261d-1*t1*t167*t3*t318*t381+1.
9353     2         4431302433467247d-1*t1*t213*t23*t381-2.993159023237651d-1
9354     3         *t1*t30*t375-1.9241736577956325d-1*t1*t161*t167*t213)+5.2
9355     4         73288888888887d-2*t35*t38*(-2.4052170722445415d-1*t1*t3*t
9356     5         542*t733-6.41391219265211d-2*t1*t213*t3*t732-9.6208682889
9357     6         78166d-2*t1*t23*t318*t383+2.8862604866934494d-1*t1*t167*t
9358     7         3*t318*t381+6.41391219265211d-2*t1*t213*t23*t381-1.330292
9359     8         899216734d-1*t1*t30*t375-8.551882923536147d-2*t1*t161*t16
9360     9         7*t213)-2.8363733333333335d-1*t32*t626*t733-4.72728888888
9361     :         8889d-2*t151*t32*t732+3.2910615692041123d-2*gammaaa*t16*t
9362     ;         25*t52*t730-3.1639733333333325d-1*t169*t36*t438*t73-3.163
9363     <         9733333333325d-1*t216*t35*t438*t73-2.6666666666666666d+0*
9364     =         t209*t437*t73-3.1639733333333325d-1*t221*t35*t434*t73-2.6
9365     >         666666666666666d+0*t220*t433*t73-3.1639733333333325d-1*t2
9366     ?         21*t36*t385*t73-6.327946666666665d-1*t169*t216*t221*t73-3
9367     @         .2910615692041123d-2*gammaaa*t16*t163*t17*t52*t727+8.0d+0
9368     1         *t220*t222*t438*t72+8.0d+0*t221*t222*t437*t72-3.2d+1*t220
9369     2         *t388*t389*t72-1.9746369415224674d-1*gammaaa*t16*t17*t52*
9370     3         t715*t716-1.5016992049109135d+0*gammaaa*t17*t25*t52*t707+
9371     4         6.0d+0*t194*t409*t416*t59-2.63284925536329d-1*gammaaa*t15
9372     5         2*t25*t379*t52-9.873184707612337d-2*gammaaa*t16*t162*t163
9373     6         *t379*t52+1.9746369415224674d-1*gammaaa*t16*t162*t17*t366
9374     7         *t376*t52+2.63284925536329d-1*gammaaa*t152*t163*t17*t376*
9375     8         t52-9.873184707612337d-2*gammaaa*t16*t163*t165*t376*t52-5
9376     9         .26569851072658d-1*gammaaa*t152*t17*t365*t366*t52+1.97463
9377     :         69415224674d-1*gammaaa*t16*t165*t365*t366*t52+9.653780602
9378     ;         998729d-1*gammaaa*t165*t25*t361*t52-9.653780602998729d-1*
9379     <         gammaaa*t162*t163*t17*t361*t52+5.26569851072658d-1*gammaa
9380     =         a*t152*t162*t163*t165*t52+9.491919999999998d-1*t221*t222*
9381     >         t35*t36*t438+2.8363733333333335d-1*t214*t28*t386*t435+1.4
9382     ?         181866666666668d-1*t151*t167*t211*t435+1.5819866666666663
9383     @         d-1*t169*t38*t434-6.0d+0*t188*t195*t416+6.0d+0*t188*t408*
9384     1         t409-6.0d+0*t194*t195*t407-9.873184707612337d-2*gammaaa*t
9385     2         16*t17*t185*t25*t391*t406-2.63284925536329d-1*gammaaa*t15
9386     3         2*t17*t186*t25*t406+9.873184707612337d-2*gammaaa*t16*t165
9387     4         *t186*t25*t406-9.873184707612337d-2*gammaaa*t16*t162*t163
9388     5         *t17*t186*t406+2.63284925536329d-1*gammaaa*t152*t17*t25*t
9389     6         390*t391-9.873184707612337d-2*gammaaa*t16*t165*t25*t390*t
9390     7         391+9.873184707612337d-2*gammaaa*t16*t162*t163*t17*t390*t
9391     8         391+9.491919999999998d-1*t169*t222*t36*t388+9.49191999999
9392     9         9998d-1*t216*t222*t35*t388-2.8363733333333335d-1*t151*t16
9393     :         7*t386*t387+1.5819866666666663d-1*t216*t38*t385-2.8363733
9394     ;         333333335d-1*t211*t214*t382*t383+2.8363733333333335d-1*t1
9395     <         67*t32*t381*t382+1.4181866666666668d-1*t151*t211*t214*t38
9396     =         1+9.873184707612337d-2*gammaaa*t16*t185*t186*t25*t379-9.8
9397     >         73184707612337d-2*gammaaa*t16*t163*t17*t185*t186*t376+1.9
9398     ?         746369415224674d-1*gammaaa*t16*t17*t185*t186*t365*t366+9.
9399     @         653780602998729d-1*gammaaa*t17*t185*t186*t25*t361-5.26569
9400     1         851072658d-1*gammaaa*t152*t165*t185*t186*t25+1.6d+1*t209*
9401     2         t220*t221*t222+5.26569851072658d-1*gammaaa*t152*t162*t163
9402     3         *t17*t185*t186-1.9746369415224674d-1*gammaaa*t16*t162*t16
9403     4         3*t165*t185*t186)+2.757113292886222d-1*t174*t76-1.2407009
9404     5         817987999d+0*t40*(2.6666666666666666d+0*t222*t706*t72*t75
9405     6         -8.888888888888888d-1*(4.9365923538061685d-2*t1*t3*(t218-
9406     7         5.0d-1*t1*t175*t213*t3)*t30-1.4431302433467247d-1*t1*t175
9407     8         *t213*t3+t217)*t72*t73-1.0546577777777776d-1*t35*t36*t706
9408     9         *t73-4.727288888888889d-2*t211*t28*t705+5.273288888888887
9409     :         d-2*(t215-6.41391219265211d-2*t1*t175*t213*t3)*t35*t38-4.
9410     ;         727288888888889d-2*t151*t175*t32+t210+t203+t196+t189+t187
9411     <         +t173+t172+t171+t170)-3.7221029453964d+0*t2*t439)*wght+Am
9412     =         at3(iq,D3_RA_RA_RA)
9413            Amat3(iq,D3_RA_RA_RB) = Amat3(iq,D3_RA_RA_RB)
9414            Amat3(iq,D3_RA_RB_RB) = Amat3(iq,D3_RA_RB_RB)
9415            Amat3(iq,D3_RB_RB_RB) = (-9.305257363491d-1*t97*(-8.88888888
9416     1         8888888d-1*t146*t147*(4.9365923538061685d-2*t1*t105*t78*(
9417     2         -7.5d-1*t1*t350*t462*t98+5.0d-1*t1*t286*t460*t98-1.875d+0
9418     3         *t1*t575*t78*t800-5.0d-1*t1*t286*t78*t799+2.25d+0*t1*t240
9419     4         *t350*t460*t78-1.037037037037037d+0*t1*t105*t454-6.666666
9420     5         666666666d-1*t1*t234*t240*t286)-1.6455307846020562d-2*t1*
9421     6         t105*t515*t98-2.164695365020087d-1*t1*t350*t462*t98+1.443
9422     7         1302433467247d-1*t1*t286*t460*t98-5.411738412550218d-1*t1
9423     8         *t575*t78*t800-1.4431302433467247d-1*t1*t286*t78*t799-2.4
9424     9         682961769030842d-2*t1*t240*t286*t515*t78+6.49408609506026
9425     :         1d-1*t1*t240*t350*t460*t78+9.873184707612337d-2*t292*t515
9426     ;         -2.993159023237651d-1*t1*t105*t454-1.9241736577956325d-1*
9427     <         t1*t234*t240*t286)+5.273288888888887d-2*t110*t113*(-9.620
9428     =         868288978166d-2*t1*t350*t462*t98+6.41391219265211d-2*t1*t
9429     >         286*t460*t98-2.4052170722445415d-1*t1*t575*t78*t800-6.413
9430     ?         91219265211d-2*t1*t286*t78*t799+2.8862604866934494d-1*t1*
9431     @         t240*t350*t460*t78-1.330292899216734d-1*t1*t105*t454-8.55
9432     1         1882923536147d-2*t1*t234*t240*t286)-8.888888888888888d-1*
9433     2         t147*t149*(-2.4d+0*t142*(6.41391219265211d-2*t279*(-gamma
9434     3         bb*t236*t794*t91*t92-6*gammabb*t782*t783*t91*t92+6*gammab
9435     4         b*t235*t445*t455*t91*t92-4.5629629629629626d+1*gammabb*t1
9436     5         00*t774*t92+8*gammabb*t225*t236*t455*t92-16*gammabb*t225*
9437     6         t444*t445*t92-2.9333333333333333d+1*gammabb*t235*t236*t44
9438     7         0*t92+gammabb*t100*t797*t91-3*gammabb*t235*t236*t458*t91-
9439     8         3*gammabb*t236*t238*t455*t91+6*gammabb*t238*t444*t445*t91
9440     9         -8*gammabb*t100*t225*t458+2.9333333333333333d+1*gammabb*t
9441     :         100*t238*t440+16*gammabb*t225*t235*t236*t238)-3.75d-1*t83
9442     ;         3*t836+4.810434144489083d-2*t280**3*t835-5.0d-1*t278*t821
9443     <         -9.620868288978166d-2*t280*t507*t510+7.5d-1*t261*t486*t50
9444     =         9)-3.15d+1*t145*t833*t834-1.8610765434507923d+1*t833*t834
9445     >         -5.4519192d+0*t833-8.400000000000001d+0*t145*t277*t821-4.
9446     ?         9628707825354457d+0*t277*t821-2.7259596d+0*t141*t821+5.67
9447     @         2746666666666d-2*t140*t821+4.7459599999999996d-2*t110*t82
9448     1         1+4.7459599999999996d-2*t140*t802-2.52d+1*t261*t277*t511-
9449     2         6.3d+1*t281*t505*t506-6.3d+1*t145*t261*t486*t506-3.722153
9450     3         0869015845d+1*t261*t486*t506-2.52d+1*t277*t281*t486-1.635
9451     4         5757600000004d+1*t140*t261*t486+1.7018239999999996d-1*t26
9452     5         1*t486+1.423788d-1*t242*t486+1.423788d-1*t261*t464)+7.572
9453     6         11d-1*(-9.873184707612337d-2*gammabb*t100*t135*t274**3*t8
9454     7         32*t91*t92-1.6455307846020562d-2*gammabb*t100*t139*t273*t
9455     8         831*t91*t92-9.873184707612337d-2*gammabb*t100*t139*t829*t
9456     9         830*t91*t92-1.6455307846020562d-2*gammabb*t100*t135*t275*
9457     :         (t820+t819+t818+t814)*t91*t92-1.6455307846020562d-2*gamma
9458     ;         bb*t135*t139*t236*t794*t91*t92-9.873184707612337d-2*gamma
9459     <         bb*t135*t139*t782*t783*t91*t92+9.873184707612337d-2*gamma
9460     =         bb*t100*t135*t274*t503*t504*t91*t92+4.9365923538061685d-2
9461     >         *gammabb*t100*t272*t273*t275*t504*t91*t92+4.9365923538061
9462     ?         685d-2*gammabb*t135*t235*t236*t275*t504*t91*t92-9.8731847
9463     @         07612337d-2*gammabb*t100*t272*t273*t502*t503*t91*t92-9.87
9464     1         3184707612337d-2*gammabb*t135*t235*t236*t502*t503*t91*t92
9465     2         +9.873184707612337d-2*gammabb*t100*t139*t272*t500*t501*t9
9466     3         1*t92+4.9365923538061685d-2*gammabb*t100*t273*t274*t275*t
9467     4         501*t91*t92+4.9365923538061685d-2*gammabb*t139*t235*t236*
9468     5         t273*t501*t91*t92-9.873184707612337d-2*gammabb*t100*t274*
9469     6         t275*t499*t500*t91*t92-9.873184707612337d-2*gammabb*t139*
9470     7         t235*t236*t499*t500*t91*t92+9.873184707612337d-2*gammabb*
9471     8         t135*t139*t235*t445*t455*t91*t92+4.9365923538061685d-2*ga
9472     9         mmabb*t135*t236*t274*t275*t455*t91*t92+4.9365923538061685
9473     :         d-2*gammabb*t139*t236*t272*t273*t455*t91*t92-9.8731847076
9474     ;         12337d-2*gammabb*t135*t274*t275*t444*t445*t91*t92-9.87318
9475     <         4707612337d-2*gammabb*t139*t272*t273*t444*t445*t91*t92-9.
9476     =         873184707612337d-2*gammabb*t235*t236*t272*t273*t274*t275*
9477     >         t91*t92-7.508496024554567d-1*gammabb*t100*t135*t139*t774*
9478     ?         t92+1.316424627681645d-1*gammabb*t100*t135*t225*t275*t504
9479     @         *t92-2.63284925536329d-1*gammabb*t100*t135*t225*t502*t503
9480     1         *t92+1.316424627681645d-1*gammabb*t100*t139*t225*t273*t50
9481     2         1*t92-2.63284925536329d-1*gammabb*t100*t139*t225*t499*t50
9482     3         0*t92+1.316424627681645d-1*gammabb*t135*t139*t225*t236*t4
9483     4         55*t92-2.63284925536329d-1*gammabb*t135*t139*t225*t444*t4
9484     5         45*t92-4.8268903014993647d-1*gammabb*t100*t135*t274*t275*
9485     6         t440*t92-4.8268903014993647d-1*gammabb*t100*t139*t272*t27
9486     7         3*t440*t92-4.8268903014993647d-1*gammabb*t135*t139*t235*t
9487     8         236*t440*t92-2.63284925536329d-1*gammabb*t100*t225*t272*t
9488     9         273*t274*t275*t92-2.63284925536329d-1*gammabb*t135*t225*t
9489     :         235*t236*t274*t275*t92-2.63284925536329d-1*gammabb*t139*t
9490     ;         225*t235*t236*t272*t273*t92+1.6455307846020562d-2*gammabb
9491     <         *t100*t135*t139*t797*t91-4.9365923538061685d-2*gammabb*t1
9492     =         00*t135*t238*t275*t504*t91+9.873184707612337d-2*gammabb*t
9493     >         100*t135*t238*t502*t503*t91-4.9365923538061685d-2*gammabb
9494     ?         *t100*t139*t238*t273*t501*t91+9.873184707612337d-2*gammab
9495     @         b*t100*t139*t238*t499*t500*t91-4.9365923538061685d-2*gamm
9496     1         abb*t100*t135*t274*t275*t458*t91-4.9365923538061685d-2*ga
9497     2         mmabb*t100*t139*t272*t273*t458*t91-4.9365923538061685d-2*
9498     3         gammabb*t135*t139*t235*t236*t458*t91-4.9365923538061685d-
9499     4         2*gammabb*t135*t139*t236*t238*t455*t91+9.873184707612337d
9500     5         -2*gammabb*t135*t139*t238*t444*t445*t91+9.873184707612337
9501     6         d-2*gammabb*t100*t238*t272*t273*t274*t275*t91+9.873184707
9502     7         612337d-2*gammabb*t135*t235*t236*t238*t274*t275*t91+9.873
9503     8         184707612337d-2*gammabb*t139*t235*t236*t238*t272*t273*t91
9504     9         -t133*t137*t273*t831-6*t133*t137*t829*t830-6*t133*t135*t2
9505     :         70**3*t828-t133*t135*t271*(t827+t826+t825+t814)+t135*t137
9506     ;         *t821+6*t133*t137*t272*t500*t501+3*t133*t270*t271*t273*t5
9507     <         01-3*t137*t261*t273*t501-6*t133*t270*t271*t499*t500+6*t13
9508     =         7*t261*t499*t500+6*t133*t135*t270*t497*t498+3*t133*t271*t
9509     >         272*t273*t498-3*t135*t261*t271*t498-6*t133*t272*t273*t496
9510     ?         *t497+6*t135*t261*t496*t497-3*t137*t272*t273*t486-3*t135*
9511     @         t270*t271*t486-1.316424627681645d-1*gammabb*t100*t135*t13
9512     1         9*t225*t458+4.8268903014993647d-1*gammabb*t100*t135*t139*
9513     2         t238*t440+2.63284925536329d-1*gammabb*t100*t135*t225*t238
9514     3         *t274*t275+6*t261*t270*t271*t272*t273+2.63284925536329d-1
9515     4         *gammabb*t100*t139*t225*t238*t272*t273+2.63284925536329d-
9516     5         1*gammabb*t135*t139*t225*t235*t236*t238)+3.29106156920411
9517     6         23d-2*gammabb*t100*t259*(6.0965d-1*t124*t257*(t820+t819+t
9518     7         818+t813+t812+t811)+3.6579d+0*t124*t256**3*t816+6.0965d-1
9519     8         *t121*t253*t815+3.6579d+0*t121*t807*t808-3.6579d+0*t124*t
9520     9         256*t480*t484-1.82895d+0*t252*t253*t257*t484+3.6579d+0*t2
9521     :         52*t253*t479*t480-3.6579d+0*t121*t252*t472*t478-1.82895d+
9522     ;         0*t253*t256*t257*t478+3.6579d+0*t256*t257*t471*t472)*t91*
9523     <         t92+6.582123138408225d-2*gammabb*t100*t258**3*t806*t91*t9
9524     =         2-3.2910615692041123d-2*gammabb*t126*t236*t794*t91*t92-1.
9525     >         9746369415224674d-1*gammabb*t126*t782*t783*t91*t92-9.8731
9526     ?         84707612337d-2*gammabb*t100*t258*t470*t485*t91*t92-9.8731
9527     @         84707612337d-2*gammabb*t235*t236*t259*t485*t91*t92+9.8731
9528     1         84707612337d-2*gammabb*t235*t236*t469*t470*t91*t92+1.9746
9529     2         369415224674d-1*gammabb*t126*t235*t445*t455*t91*t92-9.873
9530     3         184707612337d-2*gammabb*t236*t258*t259*t455*t91*t92+1.974
9531     4         6369415224674d-1*gammabb*t258*t259*t444*t445*t91*t92-1.50
9532     5         16992049109135d+0*gammabb*t100*t126*t774*t92-2.6328492553
9533     6         6329d-1*gammabb*t100*t225*t259*t485*t92+2.63284925536329d
9534     7         -1*gammabb*t100*t225*t469*t470*t92+2.63284925536329d-1*ga
9535     8         mmabb*t126*t225*t236*t455*t92-5.26569851072658d-1*gammabb
9536     9         *t126*t225*t444*t445*t92+9.653780602998729d-1*gammabb*t10
9537     :         0*t258*t259*t440*t92-9.653780602998729d-1*gammabb*t126*t2
9538     ;         35*t236*t440*t92+5.26569851072658d-1*gammabb*t225*t235*t2
9539     <         36*t258*t259*t92+3.2910615692041123d-2*gammabb*t100*t126*
9540     =         t797*t91+9.873184707612337d-2*gammabb*t100*t238*t259*t485
9541     >         *t91-9.873184707612337d-2*gammabb*t100*t238*t469*t470*t91
9542     ?         +9.873184707612337d-2*gammabb*t100*t258*t259*t458*t91-9.8
9543     @         73184707612337d-2*gammabb*t126*t235*t236*t458*t91-9.87318
9544     1         4707612337d-2*gammabb*t126*t236*t238*t455*t91+1.974636941
9545     2         5224674d-1*gammabb*t126*t238*t444*t445*t91-1.974636941522
9546     3         4674d-1*gammabb*t235*t236*t238*t258*t259*t91+2.6666666666
9547     4         666666d+0*t146*t149*t295*t838-1.0546577777777776d-1*t110*
9548     5         t111*t147*t838-4.727288888888889d-2*t103*t284*t837-2.0d+0
9549     6         *t133*t268*(-1.475609999999999d-1*t124*t266*(t827+t826+t8
9550     7         25+t813+t812+t811)-8.853659999999993d-1*t124*t265**3*t823
9551     8         -1.475609999999999d-1*t130*t253*t815-8.853659999999993d-1
9552     9         *t130*t807*t808+8.853659999999993d-1*t124*t265*t490*t494+
9553     :         4.4268299999999966d-1*t252*t253*t266*t494-8.8536599999999
9554     ;         93d-1*t252*t253*t489*t490+8.853659999999993d-1*t130*t252*
9555     <         t472*t478+4.4268299999999966d-1*t253*t265*t266*t478-8.853
9556     =         659999999993d-1*t265*t266*t471*t472)-4.0d+0*t133*t267**3*
9557     >         t822-2.0d+0*t132*t821+5.333333333333333d+1*t146*t149*t804
9558     ?         *t805-1.265589333333333d+0*t110*t111*t468*t804-2.83637333
9559     @         33333335d-1*t103*t287**3*t803+5.273288888888887d-2*t111*t
9560     1         113*t802-2.8363733333333335d-1*t107*t686*t800-4.727288888
9561     2         888889d-2*t107*t224*t799-3.2d+1*t146*t149*t294*t468*t517+
9562     3         9.491919999999998d-1*t110*t111*t294*t295*t517+8.0d+0*t146
9563     4         *t293*t295*t517+8.0d+0*t149*t282*t295*t517-3.163973333333
9564     5         3325d-1*t110*t147*t289*t517-3.1639733333333325d-1*t111*t1
9565     6         47*t242*t517+8.0d+0*t146*t294*t295*t516-2.666666666666666
9566     7         6d+0*t147*t282*t516+2.8363733333333335d-1*t103*t287*t465*
9567     8         t514+1.4181866666666668d-1*t224*t240*t284*t514-3.16397333
9568     9         33333325d-1*t110*t147*t294*t513+1.5819866666666663d-1*t11
9569     :         3*t242*t513+8.0d+0*t149*t294*t295*t512-2.6666666666666666
9570     ;         d+0*t147*t293*t512+6.0d+0*t133*t267*t488*t495-6.0d+0*t261
9571     <         *t268*t495+6.0d+0*t261*t487*t488-6.0d+0*t267*t268*t486-3.
9572     =         2d+1*t146*t293*t467*t468-3.2d+1*t149*t282*t467*t468+9.491
9573     >         919999999998d-1*t110*t289*t295*t467+9.491919999999998d-1*
9574     ?         t111*t242*t295*t467-2.8363733333333335d-1*t224*t240*t465*
9575     @         t466-3.1639733333333325d-1*t111*t147*t294*t464+1.58198666
9576     1         66666663d-1*t113*t289*t464-2.8363733333333335d-1*t284*t28
9577     2         7*t461*t462+2.8363733333333335d-1*t107*t240*t460*t461+1.4
9578     3         181866666666668d-1*t224*t284*t287*t460-2.63284925536329d-
9579     4         1*gammabb*t100*t126*t225*t458+9.653780602998729d-1*gammab
9580     5         b*t100*t126*t238*t440+1.6d+1*t282*t293*t294*t295-6.327946
9581     6         666666665d-1*t147*t242*t289*t294-5.26569851072658d-1*gamm
9582     7         abb*t100*t225*t238*t258*t259+5.26569851072658d-1*gammabb*
9583     8         t126*t225*t235*t236*t238)-1.2407009817987999d+0*t114*(-8.
9584     9         888888888888888d-1*t146*t147*(4.9365923538061685d-2*t1*t1
9585     :         05*t78*(t291-5.0d-1*t1*t248*t286*t78)-1.4431302433467247d
9586     ;         -1*t1*t248*t286*t78+t290)+5.273288888888887d-2*t110*t113*
9587     <         (t288-6.41391219265211d-2*t1*t248*t286*t78)+2.66666666666
9588     =         66666d+0*t146*t149*t295*t773-1.0546577777777776d-1*t110*t
9589     >         111*t147*t773-4.727288888888889d-2*t103*t284*t772+t283+t2
9590     ?         76+t269+t262+t260-4.727288888888889d-2*t107*t224*t248+t24
9591     @         6+t245+t244+t243)-3.7221029453964d+0*t518*t77+2.757113292
9592     1         886222d-1*t150*t247)*wght+Amat3(iq,D3_RB_RB_RB)
9593            Cmat3(iq,D3_RA_RA_GAA) = (-9.305257363491d-1*t22*(2.66666666
9594     1         66666666d+0*t222*t72*t75*t859-1.0546577777777776d-1*t35*t
9595     2         36*t73*t859-4.727288888888889d-2*t211*t28*t858+1.21281663
9596     3         37053317d-2*t1*t211*t3*t300*t383*t857+7.57211d-1*(-1.6455
9597     4         307846020562d-2*gammaaa*t16*t17*t200*t25*t65*t856-t200*t5
9598     5         9*t63*t856-t198*t59*t61*(t855+t854+t853+t852)-1.645530784
9599     6         6020562d-2*gammaaa*t16*t17*t202*t25*t61*(t851+t850+t849+t
9600     7         848)+t61*t63*t841+1.6455307846020562d-2*gammaaa*t16*t25*t
9601     8         61*t65*t840-1.6455307846020562d-2*gammaaa*t16*t163*t17*t6
9602     9         1*t65*t839-4.9365923538061685d-2*gammaaa*t16*t17*t181*t25
9603     :         *t300*t423*t61*t765-9.873184707612337d-2*gammaaa*t16*t17*
9604     ;         t25*t316*t420*t65*t763-6*t316*t420*t59*t63*t763-3*t190*t3
9605     <         00*t417*t59*t61*t761-9.873184707612337d-2*gammaaa*t16*t17
9606     =         *t298*t365*t61*t65*t716-8.7761641845443d-2*gammaaa*t152*t
9607     >         25*t525*t61*t65-3.2910615692041123d-2*gammaaa*t16*t162*t1
9608     ?         63*t525*t61*t65+6.582123138408225d-2*gammaaa*t16*t162*t17
9609     @         *t366*t524*t61*t65+8.7761641845443d-2*gammaaa*t152*t163*t
9610     1         17*t524*t61*t65-3.2910615692041123d-2*gammaaa*t16*t163*t1
9611     2         65*t524*t61*t65-1.6455307846020562d-2*gammaaa*t16*t163*t2
9612     3         98*t379*t61*t65+1.6455307846020562d-2*t16*t25*t379*t61*t6
9613     4         5+3.2910615692041123d-2*gammaaa*t16*t17*t298*t366*t376*t6
9614     5         1*t65-1.6455307846020562d-2*gammaaa*t16*t163*t299*t376*t6
9615     6         1*t65-1.6455307846020562d-2*t16*t163*t17*t376*t61*t65+3.2
9616     7         910615692041123d-2*gammaaa*t16*t299*t365*t366*t61*t65+3.2
9617     8         910615692041123d-2*t16*t17*t365*t366*t61*t65-1.7552328369
9618     9         0886d-1*gammaaa*t152*t162*t17*t298*t366*t61*t65+6.5821231
9619     :         38408225d-2*gammaaa*t16*t162*t165*t298*t366*t61*t65+1.608
9620     ;         9634338331216d-1*gammaaa*t25*t299*t361*t61*t65-1.60896343
9621     <         38331216d-1*gammaaa*t163*t17*t298*t361*t61*t65+1.60896343
9622     =         38331216d-1*t17*t25*t361*t61*t65+8.7761641845443d-2*gamma
9623     >         aa*t152*t162*t163*t299*t61*t65+8.7761641845443d-2*gammaaa
9624     ?         *t152*t163*t165*t298*t61*t65-8.7761641845443d-2*t152*t165
9625     @         *t25*t61*t65+8.7761641845443d-2*t152*t162*t163*t17*t61*t6
9626     1         5-3.2910615692041123d-2*t16*t162*t163*t165*t61*t65+6.5821
9627     2         23138408225d-2*gammaaa*t16*t17*t199*t25*t421*t540*t65+8.7
9628     3         761641845443d-2*gammaaa*t152*t17*t200*t25*t540*t65-3.2910
9629     4         615692041123d-2*gammaaa*t16*t165*t200*t25*t540*t65+3.2910
9630     5         615692041123d-2*gammaaa*t16*t162*t163*t17*t200*t540*t65-3
9631     6         .2910615692041123d-2*gammaaa*t16*t199*t200*t25*t525*t65+3
9632     7         .2910615692041123d-2*gammaaa*t16*t163*t17*t199*t200*t524*
9633     8         t65+3.2910615692041123d-2*gammaaa*t16*t17*t25*t316*t421*t
9634     9         422*t65-1.6455307846020562d-2*gammaaa*t16*t200*t25*t299*t
9635     :         422*t65+1.6455307846020562d-2*gammaaa*t16*t163*t17*t200*t
9636     ;         298*t422*t65-1.6455307846020562d-2*t16*t17*t200*t25*t422*
9637     <         t65+3.2910615692041123d-2*gammaaa*t16*t25*t299*t420*t421*
9638     =         t65-3.2910615692041123d-2*gammaaa*t16*t163*t17*t298*t420*
9639     >         t421*t65+3.2910615692041123d-2*t16*t17*t25*t420*t421*t65-
9640     ?         1.75523283690886d-1*gammaaa*t152*t17*t199*t25*t316*t421*t
9641     @         65+6.582123138408225d-2*gammaaa*t16*t165*t199*t25*t316*t4
9642     1         21*t65-6.582123138408225d-2*gammaaa*t16*t162*t163*t17*t19
9643     2         9*t316*t421*t65-1.6455307846020562d-2*gammaaa*t16*t200*t2
9644     3         5*t316*t379*t65+1.6455307846020562d-2*gammaaa*t16*t163*t1
9645     4         7*t200*t316*t376*t65-3.2910615692041123d-2*gammaaa*t16*t1
9646     5         7*t200*t316*t365*t366*t65-6.582123138408225d-2*gammaaa*t1
9647     6         6*t162*t17*t199*t200*t298*t366*t65-1.6089634338331216d-1*
9648     7         gammaaa*t17*t200*t25*t316*t361*t65+8.7761641845443d-2*gam
9649     8         maaa*t152*t165*t200*t25*t316*t65-8.7761641845443d-2*gamma
9650     9         aa*t152*t162*t163*t17*t200*t316*t65+3.2910615692041123d-2
9651     :         *gammaaa*t16*t162*t163*t165*t200*t316*t65+8.7761641845443
9652     ;         d-2*gammaaa*t152*t199*t200*t25*t299*t65+3.291061569204112
9653     <         3d-2*gammaaa*t16*t162*t163*t199*t200*t299*t65-8.776164184
9654     =         5443d-2*gammaaa*t152*t163*t17*t199*t200*t298*t65+3.291061
9655     >         5692041123d-2*gammaaa*t16*t163*t165*t199*t200*t298*t65+8.
9656     ?         7761641845443d-2*t152*t17*t199*t200*t25*t65-3.29106156920
9657     @         41123d-2*t16*t165*t199*t200*t25*t65+3.2910615692041123d-2
9658     1         *t16*t162*t163*t17*t199*t200*t65+4*t199*t421*t540*t59*t63
9659     2         +2*t316*t421*t422*t59*t63-2*t188*t200*t540*t63-2*t199*t20
9660     3         0*t526*t63-t200*t300*t422*t63+2*t300*t420*t421*t63+4*t188
9661     4         *t199*t316*t421*t63-t200*t316*t407*t63+4*t197*t418*t539*t
9662     5         59*t61+t190*t300*t418*t419*t59*t61+6.582123138408225d-2*g
9663     6         ammaaa*t16*t17*t201*t25*t424*t541*t61+8.7761641845443d-2*
9664     7         gammaaa*t152*t17*t202*t25*t541*t61-3.2910615692041123d-2*
9665     8         gammaaa*t16*t165*t202*t25*t541*t61+3.2910615692041123d-2*
9666     9         gammaaa*t16*t162*t163*t17*t202*t541*t61-2*t188*t198*t539*
9667     :         t61-2*t197*t198*t526*t61-3.2910615692041123d-2*gammaaa*t1
9668     ;         6*t201*t202*t25*t525*t61+3.2910615692041123d-2*gammaaa*t1
9669     <         6*t163*t17*t201*t202*t524*t61+1.6455307846020562d-2*gamma
9670     =         aa*t16*t17*t181*t25*t300*t424*t425*t61-1.6455307846020562
9671     >         d-2*gammaaa*t16*t202*t25*t299*t425*t61+1.6455307846020562
9672     ?         d-2*gammaaa*t16*t163*t17*t202*t298*t425*t61-1.64553078460
9673     @         20562d-2*t16*t17*t202*t25*t425*t61+3.2910615692041123d-2*
9674     1         gammaaa*t16*t25*t299*t423*t424*t61-3.2910615692041123d-2*
9675     2         gammaaa*t16*t163*t17*t298*t423*t424*t61+3.291061569204112
9676     3         3d-2*t16*t17*t25*t423*t424*t61-8.7761641845443d-2*gammaaa
9677     4         *t152*t17*t181*t201*t25*t300*t424*t61+3.2910615692041123d
9678     5         -2*gammaaa*t16*t165*t181*t201*t25*t300*t424*t61-3.2910615
9679     6         692041123d-2*gammaaa*t16*t162*t163*t17*t181*t201*t300*t42
9680     7         4*t61-t198*t300*t419*t61+2*t300*t417*t418*t61+2*t188*t190
9681     8         *t197*t300*t418*t61-5.0d-1*t190*t198*t300*t407*t61-8.2276
9682     9         53923010281d-3*gammaaa*t16*t181*t202*t25*t300*t379*t61+8.
9683     :         227653923010281d-3*gammaaa*t16*t163*t17*t181*t202*t300*t3
9684     ;         76*t61-1.6455307846020562d-2*gammaaa*t16*t17*t181*t202*t3
9685     <         00*t365*t366*t61-6.582123138408225d-2*gammaaa*t16*t162*t1
9686     =         7*t201*t202*t298*t366*t61-8.044817169165608d-2*gammaaa*t1
9687     >         7*t181*t202*t25*t300*t361*t61+4.38808209227215d-2*gammaaa
9688     ?         *t152*t165*t181*t202*t25*t300*t61-4.38808209227215d-2*gam
9689     @         maaa*t152*t162*t163*t17*t181*t202*t300*t61+1.645530784602
9690     1         0562d-2*gammaaa*t16*t162*t163*t165*t181*t202*t300*t61+8.7
9691     2         761641845443d-2*gammaaa*t152*t201*t202*t25*t299*t61+3.291
9692     3         0615692041123d-2*gammaaa*t16*t162*t163*t201*t202*t299*t61
9693     4         -8.7761641845443d-2*gammaaa*t152*t163*t17*t201*t202*t298*
9694     5         t61+3.2910615692041123d-2*gammaaa*t16*t163*t165*t201*t202
9695     6         *t298*t61+8.7761641845443d-2*t152*t17*t201*t202*t25*t61-3
9696     7         .2910615692041123d-2*t16*t165*t201*t202*t25*t61+3.2910615
9697     8         692041123d-2*t16*t162*t163*t17*t201*t202*t61+2*t197*t198*
9698     9         t200*t540*t59+2*t198*t199*t200*t539*t59+5.0d-1*t190*t198*
9699     :         t200*t300*t422*t59-t190*t198*t300*t420*t421*t59-4*t197*t1
9700     ;         98*t199*t316*t421*t59+t198*t200*t316*t419*t59-2*t200*t316
9701     <         *t417*t418*t59-2*t190*t197*t199*t200*t300*t418*t59+3.2910
9702     =         615692041123d-2*gammaaa*t16*t17*t199*t200*t202*t25*t541+3
9703     >         .2910615692041123d-2*gammaaa*t16*t17*t200*t201*t202*t25*t
9704     ?         540+1.6455307846020562d-2*gammaaa*t16*t17*t200*t202*t25*t
9705     @         316*t425-3.2910615692041123d-2*gammaaa*t16*t17*t200*t25*t
9706     1         316*t423*t424-3.2910615692041123d-2*gammaaa*t16*t17*t181*
9707     2         t199*t200*t201*t25*t300*t424+8.227653923010281d-3*gammaaa
9708     3         *t16*t17*t181*t200*t202*t25*t300*t422-1.6455307846020562d
9709     4         -2*gammaaa*t16*t17*t181*t202*t25*t300*t420*t421-6.5821231
9710     5         38408225d-2*gammaaa*t16*t17*t199*t201*t202*t25*t316*t421-
9711     6         8.7761641845443d-2*gammaaa*t152*t17*t200*t201*t202*t25*t3
9712     7         16+3.2910615692041123d-2*gammaaa*t16*t165*t200*t201*t202*
9713     8         t25*t316-3.2910615692041123d-2*gammaaa*t16*t162*t163*t17*
9714     9         t200*t201*t202*t316+2*t188*t197*t198*t200*t316-4.38808209
9715     :         227215d-2*gammaaa*t152*t17*t181*t199*t200*t202*t25*t300+1
9716     ;         .6455307846020562d-2*gammaaa*t16*t165*t181*t199*t200*t202
9717     <         *t25*t300-1.6455307846020562d-2*gammaaa*t16*t162*t163*t17
9718     =         *t181*t199*t200*t202*t300+2*t197*t198*t199*t200*t300+t188
9719     >         *t190*t198*t199*t200*t300+3.2910615692041123d-2*gammaaa*t
9720     ?         16*t199*t200*t201*t202*t25*t299-3.2910615692041123d-2*gam
9721     @         maaa*t16*t163*t17*t199*t200*t201*t202*t298+3.291061569204
9722     1         1123d-2*t16*t17*t199*t200*t201*t202*t25)-2.0d+0*t195*t59*
9723     2         (-1.475609999999999d-1*t193*t50*(t855+t854+t853+t852+t846
9724     3         +t845+t844+t843)-1.475609999999999d-1*t180*t56*t847-8.853
9725     4         659999999993d-1*t313*t410*t50*t756-4.4268299999999966d-1*
9726     5         t176*t300*t392*t56*t741+5.902439999999995d-1*t179*t393*t5
9727     6         30*t56+1.475609999999999d-1*t176*t300*t393*t399*t56+5.902
9728     7         439999999995d-1*t192*t411*t50*t537+2.951219999999998d-1*t
9729     8         179*t180*t193*t537+2.951219999999998d-1*t180*t192*t193*t5
9730     9         30+2.951219999999998d-1*t313*t411*t415*t50+7.378049999999
9731     :         994d-2*t176*t180*t193*t300*t415-1.475609999999999d-1*t176
9732     ;         *t180*t300*t410*t411-5.902439999999995d-1*t179*t180*t192*
9733     <         t313*t411+1.475609999999999d-1*t180*t193*t313*t399-2.9512
9734     =         19999999998d-1*t193*t313*t392*t393-2.951219999999998d-1*t
9735     >         176*t179*t192*t193*t300*t393)+3.2910615692041123d-2*gamma
9736     ?         aa*t16*t17*t186*t25*(6.0965d-1*t184*t50*(t851+t850+t849+t
9737     @         848+t846+t845+t844+t843)+6.0965d-1*t180*t47*t847+3.6579d+
9738     1         0*t307*t400*t50*t749+1.82895d+0*t176*t300*t392*t47*t741-2
9739     2         .4386000000000002d+0*t183*t401*t50*t533-1.219300000000000
9740     3         1d+0*t179*t180*t184*t533-2.4386000000000002d+0*t179*t393*
9741     4         t47*t530-1.2193000000000001d+0*t180*t183*t184*t530-1.2193
9742     5         000000000001d+0*t307*t401*t405*t50-6.0965d-1*t176*t300*t3
9743     6         93*t399*t47-3.04825d-1*t176*t180*t184*t300*t405+6.0965d-1
9744     7         *t176*t180*t300*t400*t401+2.4386000000000002d+0*t179*t180
9745     8         *t183*t307*t401-6.0965d-1*t180*t184*t307*t399+1.219300000
9746     9         0000001d+0*t184*t307*t392*t393+1.2193000000000001d+0*t176
9747     :         *t179*t183*t184*t300*t393)-8.888888888888888d-1*t73*t75*(
9748     ;         4.7459599999999996d-2*t66*t842-2.4d+0*t68*(-5.0d-1*t205*t
9749     <         841+6.41391219265211d-2*t206*(gammaaa*t16*t25*t840-gammaa
9750     =         a*t16*t163*t17*t839-6*gammaaa*t16*t17*t298*t365*t716-5.33
9751     >         3333333333333d+0*gammaaa*t152*t25*t525-2*gammaaa*t16*t162
9752     ?         *t163*t525+4*gammaaa*t16*t162*t17*t366*t524+5.33333333333
9753     @         3333d+0*gammaaa*t152*t163*t17*t524-2*gammaaa*t16*t163*t16
9754     1         5*t524-gammaaa*t16*t163*t298*t379+t16*t25*t379+2*gammaaa*
9755     2         t16*t17*t298*t366*t376-gammaaa*t16*t163*t299*t376-t16*t16
9756     3         3*t17*t376+2*gammaaa*t16*t299*t365*t366+2*t16*t17*t365*t3
9757     4         66-1.0666666666666666d+1*gammaaa*t152*t162*t17*t298*t366+
9758     5         4*gammaaa*t16*t162*t165*t298*t366+9.777777777777779d+0*ga
9759     6         mmaaa*t25*t299*t361-9.777777777777779d+0*gammaaa*t163*t17
9760     7         *t298*t361+9.777777777777779d+0*t17*t25*t361+5.3333333333
9761     8         33333d+0*gammaaa*t152*t162*t163*t299+5.333333333333333d+0
9762     9         *gammaaa*t152*t163*t165*t298-5.333333333333333d+0*t152*t1
9763     :         65*t25+5.333333333333333d+0*t152*t162*t163*t17-2*t16*t162
9764     ;         *t163*t165)-3.75d-1*t300*t426*t769+4.810434144489083d-2*t
9765     <         325*t429*t768-6.41391219265211d-2*t207*t428*t543+5.0d-1*t
9766     =         188*t430*t526-3.206956096326055d-2*t325*t428*t431+2.5d-1*
9767     >         t300*t407*t430)-8.400000000000001d+0*t204*t71*t841-2.7259
9768     ?         596d+0*t67*t841+5.672746666666666d-2*t66*t841+4.745959999
9769     @         9999996d-2*t35*t841-4.9628707825354457d+0*t204*t841-3.15d
9770     1         +1*t300*t426*t71*t767-1.8610765434507923d+1*t300*t426*t76
9771     2         7-4.2d+1*t188*t427*t526*t71-2.1d+1*t300*t407*t427*t71-1.0
9772     3         903838400000002d+1*t188*t526*t66-5.4519192d+0*t300*t407*t
9773     4         66-1.68d+1*t188*t204*t544+9.491919999999999d-2*t188*t527-
9774     5         2.481435391267723d+1*t188*t427*t526-1.68d+1*t204*t208*t52
9775     6         6+1.1345493333333331d-1*t188*t526+9.491919999999999d-2*t1
9776     7         69*t526-8.400000000000001d+0*t204*t300*t432-2.1d+1*t326*t
9777     8         426*t427-1.2407176956338616d+1*t300*t407*t427-4.2d+1*t188
9778     9         *t208*t300*t427-5.4519192d+0*t300*t426-8.400000000000001d
9779     :         +0*t204*t326*t407+4.7459599999999996d-2*t302*t407+5.67274
9780     ;         6666666666d-2*t300*t407+4.7459599999999996d-2*t300*t385)+
9781     <         5.273288888888887d-2*t36*t38*t842-8.888888888888888d-1*t7
9782     =         2*t73*(4.9365923538061685d-2*t1*t3*t30*(-5.0d-1*t1*t213*t
9783     >         3*t841-1.875d+0*t1*t3*t300*t383*t542+1.5d+0*t1*t167*t3*t3
9784     ?         18*t526+3.333333333333333d-1*t1*t213*t23*t526+7.5d-1*t1*t
9785     @         3*t300*t318*t381-5.0d-1*t1*t167*t23*t300*t318-2.222222222
9786     1         222222d-1*t1*t161*t213*t300)-1.4431302433467247d-1*t1*t21
9787     2         3*t3*t841+9.873184707612337d-2*t219*t548-5.41173841255021
9788     3         8d-1*t1*t3*t300*t383*t542+4.329390730040174d-1*t1*t167*t3
9789     4         *t318*t526+9.620868288978164d-2*t1*t213*t23*t526-2.468296
9790     5         1769030842d-2*t1*t213*t3*t300*t436+2.164695365020087d-1*t
9791     6         1*t3*t300*t318*t381-1.4431302433467247d-1*t1*t167*t23*t30
9792     7         0*t318-6.413912192652109d-2*t1*t161*t213*t300)+5.27328888
9793     8         8888887d-2*t35*t38*(-6.41391219265211d-2*t1*t213*t3*t841-
9794     9         2.4052170722445415d-1*t1*t3*t300*t383*t542+1.924173657795
9795     :         633d-1*t1*t167*t3*t318*t526+4.2759414617680735d-2*t1*t213
9796     ;         *t23*t526+9.620868288978166d-2*t1*t3*t300*t318*t381-6.413
9797     <         91219265211d-2*t1*t167*t23*t300*t318-2.8506276411787157d-
9798     =         2*t1*t161*t213*t300)-2.0d+0*t58*t841-4.727288888888889d-2
9799     >         *t151*t32*t841+3.2910615692041123d-2*gammaaa*t16*t25*t52*
9800     ?         t840-3.2910615692041123d-2*gammaaa*t16*t163*t17*t52*t839-
9801     @         4.0d+0*t314*t408*t59*t755+5.333333333333333d+1*t321*t388*
9802     1         t72*t738*t75-2.1333333333333332d+1*t221*t389*t550*t72*t75
9803     2         -1.0666666666666666d+1*t321*t389*t438*t72*t75+5.333333333
9804     3         333333d+0*t209*t222*t550*t75+5.333333333333333d+0*t221*t2
9805     4         22*t545*t75+2.6666666666666666d+0*t222*t327*t438*t75+2.66
9806     5         66666666666666d+0*t222*t321*t433*t75-1.0666666666666666d+
9807     6         1*t327*t388*t389*t75-2.1333333333333332d+1*t209*t221*t321
9808     7         *t389*t75+6.582123138408225d-2*gammaaa*t16*t17*t25*t308*t
9809     8         390*t739+3.6384499011159954d-2*t1*t3*t300*t318*t387*t736-
9810     9         2.109315555555555d-1*t169*t36*t550*t73-2.109315555555555d
9811     :         -1*t216*t35*t550*t73-1.7777777777777776d+0*t209*t549*t73-
9812     ;         2.109315555555555d-1*t221*t35*t546*t73-1.7777777777777776
9813     <         d+0*t220*t545*t73-2.109315555555555d-1*t221*t36*t527*t73-
9814     =         8.888888888888888d-1*t433*t522*t73-1.0546577777777776d-1*
9815     >         t302*t36*t438*t73+6.764482379964267d-3*t1*t213*t3*t300*t3
9816     ?         5*t438*t73-8.888888888888888d-1*t327*t437*t73-1.054657777
9817     @         7777776d-1*t321*t35*t434*t73-1.0546577777777776d-1*t321*t
9818     1         36*t385*t73-2.109315555555555d-1*t169*t216*t321*t73-2.109
9819     2         315555555555d-1*t216*t221*t302*t73+1.3528964759928536d-2*
9820     3         t1*t169*t213*t221*t3*t300*t73+5.333333333333333d+0*t220*t
9821     4         222*t550*t72+5.333333333333333d+0*t221*t222*t549*t72+2.66
9822     5         66666666666666d+0*t222*t438*t522*t72-1.0666666666666666d+
9823     6         1*t388*t389*t522*t72+2.6666666666666666d+0*t222*t321*t437
9824     7         *t72-2.1333333333333332d+1*t220*t221*t321*t389*t72-1.9746
9825     8         369415224674d-1*gammaaa*t16*t17*t298*t365*t52*t716-2.8363
9826     9         733333333335d-1*t300*t32*t383*t626+4.0d+0*t194*t409*t538*
9827     :         t59+2.0d+0*t314*t409*t416*t59+6.327946666666665d-1*t221*t
9828     ;         222*t35*t36*t550+1.8909155555555557d-1*t214*t28*t386*t547
9829     <         +9.454577777777778d-2*t151*t167*t211*t547+1.0546577777777
9830     =         776d-1*t169*t38*t546+2.4256332674106634d-2*t1*t167*t214*t
9831     >         3*t300*t386*t542-6.064083168526658d-3*t1*t211*t3*t300*t38
9832     ?         1*t542-4.0d+0*t188*t195*t538-6.582123138408225d-2*gammaaa
9833     @         *t16*t17*t185*t25*t391*t534-1.75523283690886d-1*gammaaa*t
9834     1         152*t17*t186*t25*t534+6.582123138408225d-2*gammaaa*t16*t1
9835     2         65*t186*t25*t534-6.582123138408225d-2*gammaaa*t16*t162*t1
9836     3         63*t17*t186*t534+1.0546577777777776d-1*t216*t38*t527+1.89
9837     4         09155555555557d-1*t167*t32*t382*t526+9.454577777777778d-2
9838     5         *t151*t211*t214*t526-4.0d+0*t194*t195*t526-1.755232836908
9839     6         86d-1*gammaaa*t152*t25*t52*t525-6.582123138408225d-2*gamm
9840     7         aaa*t16*t162*t163*t52*t525+6.582123138408225d-2*gammaaa*t
9841     8         16*t185*t186*t25*t525+1.316424627681645d-1*gammaaa*t16*t1
9842     9         62*t17*t366*t52*t524+1.75523283690886d-1*gammaaa*t152*t16
9843     :         3*t17*t52*t524-6.582123138408225d-2*gammaaa*t16*t163*t165
9844     ;         *t52*t524-6.582123138408225d-2*gammaaa*t16*t163*t17*t185*
9845     <         t186*t524+5.333333333333333d+0*t209*t221*t222*t522-3.2910
9846     =         615692041123d-2*gammaaa*t16*t163*t298*t379*t52+3.29106156
9847     >         92041123d-2*t16*t25*t379*t52+6.582123138408225d-2*gammaaa
9848     ?         *t16*t17*t298*t366*t376*t52-3.2910615692041123d-2*gammaaa
9849     @         *t16*t163*t299*t376*t52-3.2910615692041123d-2*t16*t163*t1
9850     1         7*t376*t52+6.582123138408225d-2*gammaaa*t16*t299*t365*t36
9851     2         6*t52+6.582123138408225d-2*t16*t17*t365*t366*t52-3.510465
9852     3         67381772d-1*gammaaa*t152*t162*t17*t298*t366*t52+1.3164246
9853     4         27681645d-1*gammaaa*t16*t162*t165*t298*t366*t52+3.2179268
9854     5         67666243d-1*gammaaa*t25*t299*t361*t52-3.217926867666243d-
9855     6         1*gammaaa*t163*t17*t298*t361*t52+3.217926867666243d-1*t17
9856     7         *t25*t361*t52+1.75523283690886d-1*gammaaa*t152*t162*t163*
9857     8         t299*t52+1.75523283690886d-1*gammaaa*t152*t163*t165*t298*
9858     9         t52-1.75523283690886d-1*t152*t165*t25*t52+1.7552328369088
9859     :         6d-1*t152*t162*t163*t17*t52-6.582123138408225d-2*t16*t162
9860     ;         *t163*t165*t52+3.1639733333333325d-1*t222*t321*t35*t36*t4
9861     <         38-1.2128166337053317d-2*t1*t3*t300*t318*t386*t435+4.7272
9862     =         88888888889d-2*t151*t211*t300*t435+5.273288888888887d-2*t
9863     >         302*t38*t434-2.0d+0*t195*t300*t416+2.0d+0*t300*t408*t409+
9864     ?         4.0d+0*t188*t194*t314*t409-2.0d+0*t195*t314*t407-3.291061
9865     @         5692041123d-2*gammaaa*t16*t17*t25*t308*t391*t406+3.291061
9866     1         5692041123d-2*gammaaa*t16*t186*t25*t299*t406-3.2910615692
9867     2         041123d-2*gammaaa*t16*t163*t17*t186*t298*t406+3.291061569
9868     3         2041123d-2*t16*t17*t186*t25*t406-3.2910615692041123d-2*ga
9869     4         mmaaa*t16*t25*t299*t390*t391+3.2910615692041123d-2*gammaa
9870     5         a*t16*t163*t17*t298*t390*t391-3.2910615692041123d-2*t16*t
9871     6         17*t25*t390*t391+1.75523283690886d-1*gammaaa*t152*t17*t18
9872     7         5*t25*t308*t391-6.582123138408225d-2*gammaaa*t16*t165*t18
9873     8         5*t25*t308*t391+6.582123138408225d-2*gammaaa*t16*t162*t16
9874     9         3*t17*t185*t308*t391-1.265589333333333d+0*t321*t35*t36*t3
9875     :         88*t389+3.1639733333333325d-1*t222*t302*t36*t388-2.029344
9876     ;         71398928d-2*t1*t213*t222*t3*t300*t35*t388-9.4545777777777
9877     <         78d-2*t151*t300*t386*t387-3.3822411899821336d-3*t1*t213*t
9878     =         3*t300*t38*t385+9.454577777777778d-2*t300*t32*t381*t382-1
9879     >         .8909155555555557d-1*t167*t211*t214*t300*t382+3.291061569
9880     ?         2041123d-2*gammaaa*t16*t186*t25*t308*t379-3.2910615692041
9881     @         123d-2*gammaaa*t16*t163*t17*t186*t308*t376+6.582123138408
9882     1         225d-2*gammaaa*t16*t17*t186*t308*t365*t366+1.316424627681
9883     2         645d-1*gammaaa*t16*t162*t17*t185*t186*t298*t366+3.2179268
9884     3         67666243d-1*gammaaa*t17*t186*t25*t308*t361+6.327946666666
9885     4         665d-1*t169*t221*t222*t321*t36+6.327946666666665d-1*t216*
9886     5         t221*t222*t321*t35+5.333333333333333d+0*t220*t221*t222*t3
9887     6         27+5.333333333333333d+0*t209*t220*t222*t321-1.75523283690
9888     7         886d-1*gammaaa*t152*t165*t186*t25*t308+1.75523283690886d-
9889     8         1*gammaaa*t152*t162*t163*t17*t186*t308-6.582123138408225d
9890     9         -2*gammaaa*t16*t162*t163*t165*t186*t308-1.75523283690886d
9891     :         -1*gammaaa*t152*t185*t186*t25*t299-6.582123138408225d-2*g
9892     ;         ammaaa*t16*t162*t163*t185*t186*t299+1.75523283690886d-1*g
9893     <         ammaaa*t152*t163*t17*t185*t186*t298-6.582123138408225d-2*
9894     =         gammaaa*t16*t163*t165*t185*t186*t298-1.75523283690886d-1*
9895     >         t152*t17*t185*t186*t25+6.582123138408225d-2*t16*t165*t185
9896     ?         *t186*t25-6.582123138408225d-2*t16*t162*t163*t17*t185*t18
9897     @         6)-4.135669939329333d-1*t40*(-8.888888888888888d-1*t324*t
9898     1         72*t73+t523+t521+t520+t519+t322+t320+t319+t317+t315+t311+
9899     2         t309+t304+t303+t301)-2.4814019635975998d+0*t2*t551)*wght+
9900     3         Cmat3(iq,D3_RA_RA_GAA)
9901            Cmat3(iq,D3_RA_RA_GAB) = Cmat3(iq,D3_RA_RA_GAB)
9902            Cmat3(iq,D3_RA_RA_GBB) = Cmat3(iq,D3_RA_RA_GBB)
9903            Cmat3(iq,D3_RA_RB_GAA) = Cmat3(iq,D3_RA_RB_GAA)
9904            Cmat3(iq,D3_RA_RB_GAB) = Cmat3(iq,D3_RA_RB_GAB)
9905            Cmat3(iq,D3_RA_RB_GBB) = Cmat3(iq,D3_RA_RB_GBB)
9906            Cmat3(iq,D3_RB_RB_GAA) = Cmat3(iq,D3_RB_RB_GAA)
9907            Cmat3(iq,D3_RB_RB_GAB) = Cmat3(iq,D3_RB_RB_GAB)
9908            Cmat3(iq,D3_RB_RB_GBB) = (-9.305257363491d-1*t97*(-8.8888888
9909     1         88888888d-1*t146*t147*(4.9365923538061685d-2*t1*t105*t78*
9910     2         (3.333333333333333d-1*t1*t286*t559*t98-5.0d-1*t1*t240*t33
9911     3         2*t350*t98-5.0d-1*t1*t286*t78*t862-1.875d+0*t1*t332*t462*
9912     4         t575*t78+1.5d+0*t1*t240*t350*t559*t78+7.5d-1*t1*t332*t350
9913     5         *t460*t78-2.222222222222222d-1*t1*t234*t286*t332)+9.62086
9914     6         8288978164d-2*t1*t286*t559*t98-1.4431302433467247d-1*t1*t
9915     7         240*t332*t350*t98-1.4431302433467247d-1*t1*t286*t78*t862-
9916     8         5.411738412550218d-1*t1*t332*t462*t575*t78+4.329390730040
9917     9         174d-1*t1*t240*t350*t559*t78-2.4682961769030842d-2*t1*t28
9918     :         6*t332*t515*t78+2.164695365020087d-1*t1*t332*t350*t460*t7
9919     ;         8+9.873184707612337d-2*t292*t581-6.413912192652109d-2*t1*
9920     <         t234*t286*t332)+5.273288888888887d-2*t110*t113*(4.2759414
9921     =         617680735d-2*t1*t286*t559*t98-6.41391219265211d-2*t1*t240
9922     >         *t332*t350*t98-6.41391219265211d-2*t1*t286*t78*t862-2.405
9923     ?         2170722445415d-1*t1*t332*t462*t575*t78+1.924173657795633d
9924     @         -1*t1*t240*t350*t559*t78+9.620868288978166d-2*t1*t332*t35
9925     1         0*t460*t78-2.8506276411787157d-2*t1*t234*t286*t332)-8.888
9926     2         888888888888d-1*t147*t149*(-2.4d+0*t142*(6.41391219265211
9927     3         d-2*t279*(-gammabb*t236*t860*t91*t92-6*gammabb*t330*t444*
9928     4         t783*t91*t92+4*gammabb*t235*t445*t557*t91*t92+2*gammabb*t
9929     5         330*t445*t455*t91*t92-t236*t455*t91*t92+2*t444*t445*t91*t
9930     6         92+5.333333333333333d+0*gammabb*t225*t236*t557*t92-1.0666
9931     7         666666666666d+1*gammabb*t225*t235*t330*t445*t92-9.7777777
9932     8         77777779d+0*gammabb*t236*t330*t440*t92+9.777777777777779d
9933     9         +0*t100*t440*t92+5.333333333333333d+0*t225*t235*t236*t92+
9934     :         gammabb*t100*t861*t91-2*gammabb*t235*t236*t558*t91-2*gamm
9935     ;         abb*t236*t238*t557*t91-gammabb*t236*t330*t458*t91+t100*t4
9936     <         58*t91-gammabb*t236*t331*t455*t91+2*gammabb*t331*t444*t44
9937     =         5*t91+4*gammabb*t235*t238*t330*t445*t91-2*t235*t236*t238*
9938     >         t91-5.333333333333333d+0*gammabb*t100*t225*t558+9.7777777
9939     ?         77777779d+0*gammabb*t100*t331*t440+5.333333333333333d+0*g
9940     @         ammabb*t225*t235*t236*t331+5.333333333333333d+0*gammabb*t
9941     1         225*t236*t238*t330-5.333333333333333d+0*t100*t225*t238)-5
9942     2         .0d-1*t278*t862-3.75d-1*t332*t505*t836+4.810434144489083d
9943     3         -2*t357*t508*t835-6.41391219265211d-2*t280*t507*t576+5.0d
9944     4         -1*t261*t509*t559-3.206956096326055d-2*t357*t507*t510+2.5
9945     5         d-1*t332*t486*t509)+4.7459599999999996d-2*t140*t863-8.400
9946     6         000000000001d+0*t145*t277*t862-4.9628707825354457d+0*t277
9947     7         *t862-2.7259596d+0*t141*t862+5.672746666666666d-2*t140*t8
9948     8         62+4.7459599999999996d-2*t110*t862-3.15d+1*t145*t332*t505
9949     9         *t834-1.8610765434507923d+1*t332*t505*t834-1.68d+1*t261*t
9950     :         277*t577+9.491919999999999d-2*t261*t560-4.2d+1*t145*t261*
9951     ;         t506*t559-2.481435391267723d+1*t261*t506*t559-1.68d+1*t27
9952     <         7*t281*t559-1.0903838400000002d+1*t140*t261*t559+1.134549
9953     =         3333333331d-1*t261*t559+9.491919999999999d-2*t242*t559-8.
9954     >         400000000000001d+0*t277*t332*t511-2.1d+1*t358*t505*t506-2
9955     ?         .1d+1*t145*t332*t486*t506-1.2407176956338616d+1*t332*t486
9956     @         *t506-4.2d+1*t261*t281*t332*t506-5.4519192d+0*t332*t505-8
9957     1         .400000000000001d+0*t277*t358*t486+4.7459599999999996d-2*
9958     2         t334*t486-5.4519192d+0*t140*t332*t486+5.672746666666666d-
9959     3         2*t332*t486+4.7459599999999996d-2*t332*t464)+7.57211d-1*(
9960     4         -1.6455307846020562d-2*gammabb*t100*t139*t273*t877*t91*t9
9961     5         2-1.6455307846020562d-2*gammabb*t100*t135*t275*(t872+t871
9962     6         +t870+t869)*t91*t92-1.6455307846020562d-2*gammabb*t135*t1
9963     7         39*t236*t860*t91*t92-4.9365923538061685d-2*gammabb*t100*t
9964     8         135*t254*t332*t502*t832*t91*t92-9.873184707612337d-2*gamm
9965     9         abb*t100*t139*t348*t499*t830*t91*t92-9.873184707612337d-2
9966     :         *gammabb*t135*t139*t330*t444*t783*t91*t92+6.5821231384082
9967     ;         25d-2*gammabb*t100*t135*t274*t503*t574*t91*t92+3.29106156
9968     <         92041123d-2*gammabb*t100*t272*t273*t275*t574*t91*t92+3.29
9969     =         10615692041123d-2*gammabb*t135*t235*t236*t275*t574*t91*t9
9970     >         2+6.582123138408225d-2*gammabb*t100*t139*t272*t500*t573*t
9971     ?         91*t92+3.2910615692041123d-2*gammabb*t100*t273*t274*t275*
9972     @         t573*t91*t92+3.2910615692041123d-2*gammabb*t139*t235*t236
9973     1         *t273*t573*t91*t92+6.582123138408225d-2*gammabb*t135*t139
9974     2         *t235*t445*t557*t91*t92+3.2910615692041123d-2*gammabb*t13
9975     3         5*t236*t274*t275*t557*t91*t92+3.2910615692041123d-2*gamma
9976     4         bb*t139*t236*t272*t273*t557*t91*t92+1.6455307846020562d-2
9977     5         *gammabb*t100*t135*t254*t332*t503*t504*t91*t92+1.64553078
9978     6         46020562d-2*gammabb*t100*t273*t275*t348*t504*t91*t92+1.64
9979     7         55307846020562d-2*gammabb*t135*t236*t275*t330*t504*t91*t9
9980     8         2-1.6455307846020562d-2*t100*t135*t275*t504*t91*t92-3.291
9981     9         0615692041123d-2*gammabb*t100*t273*t348*t502*t503*t91*t92
9982     :         -3.2910615692041123d-2*gammabb*t135*t236*t330*t502*t503*t
9983     ;         91*t92+3.2910615692041123d-2*t100*t135*t502*t503*t91*t92-
9984     <         3.2910615692041123d-2*gammabb*t100*t254*t272*t273*t274*t3
9985     =         32*t503*t91*t92-3.2910615692041123d-2*gammabb*t135*t235*t
9986     >         236*t254*t274*t332*t503*t91*t92+3.2910615692041123d-2*gam
9987     ?         mabb*t100*t139*t348*t500*t501*t91*t92+8.227653923010281d-
9988     @         3*gammabb*t100*t254*t273*t275*t332*t501*t91*t92+1.6455307
9989     1         846020562d-2*gammabb*t139*t236*t273*t330*t501*t91*t92-1.6
9990     2         455307846020562d-2*t100*t139*t273*t501*t91*t92-1.64553078
9991     3         46020562d-2*gammabb*t100*t254*t275*t332*t499*t500*t91*t92
9992     4         -3.2910615692041123d-2*gammabb*t139*t236*t330*t499*t500*t
9993     5         91*t92+3.2910615692041123d-2*t100*t139*t499*t500*t91*t92-
9994     6         6.582123138408225d-2*gammabb*t100*t272*t274*t275*t348*t50
9995     7         0*t91*t92-6.582123138408225d-2*gammabb*t139*t235*t236*t27
9996     8         2*t348*t500*t91*t92+3.2910615692041123d-2*gammabb*t135*t1
9997     9         39*t330*t445*t455*t91*t92+1.6455307846020562d-2*gammabb*t
9998     :         139*t236*t273*t348*t455*t91*t92+8.227653923010281d-3*gamm
9999     ;         abb*t135*t236*t254*t275*t332*t455*t91*t92-1.6455307846020
10000     <         562d-2*t135*t139*t236*t455*t91*t92-3.2910615692041123d-2*
10001     =         gammabb*t139*t273*t348*t444*t445*t91*t92-1.64553078460205
10002     >         62d-2*gammabb*t135*t254*t275*t332*t444*t445*t91*t92+3.291
10003     ?         0615692041123d-2*t135*t139*t444*t445*t91*t92-6.5821231384
10004     @         08225d-2*gammabb*t135*t235*t274*t275*t330*t445*t91*t92-6.
10005     1         582123138408225d-2*gammabb*t139*t235*t272*t273*t330*t445*
10006     2         t91*t92-3.2910615692041123d-2*gammabb*t235*t236*t273*t274
10007     3         *t275*t348*t91*t92-1.6455307846020562d-2*gammabb*t235*t23
10008     4         6*t254*t272*t273*t275*t332*t91*t92-3.2910615692041123d-2*
10009     5         gammabb*t236*t272*t273*t274*t275*t330*t91*t92+3.291061569
10010     6         2041123d-2*t100*t272*t273*t274*t275*t91*t92+3.29106156920
10011     7         41123d-2*t135*t235*t236*t274*t275*t91*t92+3.2910615692041
10012     8         123d-2*t139*t235*t236*t272*t273*t91*t92+8.7761641845443d-
10013     9         2*gammabb*t100*t135*t225*t275*t574*t92+8.7761641845443d-2
10014     :         *gammabb*t100*t139*t225*t273*t573*t92+8.7761641845443d-2*
10015     ;         gammabb*t135*t139*t225*t236*t557*t92-8.7761641845443d-2*g
10016     <         ammabb*t100*t135*t225*t254*t274*t332*t503*t92-1.755232836
10017     =         90886d-1*gammabb*t100*t139*t225*t272*t348*t500*t92-1.7552
10018     >         3283690886d-1*gammabb*t135*t139*t225*t235*t330*t445*t92-1
10019     ?         .6089634338331216d-1*gammabb*t100*t139*t273*t348*t440*t92
10020     @         -8.044817169165608d-2*gammabb*t100*t135*t254*t275*t332*t4
10021     1         40*t92-1.6089634338331216d-1*gammabb*t135*t139*t236*t330*
10022     2         t440*t92+1.6089634338331216d-1*t100*t135*t139*t440*t92-8.
10023     3         7761641845443d-2*gammabb*t100*t225*t273*t274*t275*t348*t9
10024     4         2-8.7761641845443d-2*gammabb*t139*t225*t235*t236*t273*t34
10025     5         8*t92-4.38808209227215d-2*gammabb*t100*t225*t254*t272*t27
10026     6         3*t275*t332*t92-4.38808209227215d-2*gammabb*t135*t225*t23
10027     7         5*t236*t254*t275*t332*t92-8.7761641845443d-2*gammabb*t135
10028     8         *t225*t236*t274*t275*t330*t92-8.7761641845443d-2*gammabb*
10029     9         t139*t225*t236*t272*t273*t330*t92+8.7761641845443d-2*t100
10030     :         *t135*t225*t274*t275*t92+8.7761641845443d-2*t100*t139*t22
10031     ;         5*t272*t273*t92+8.7761641845443d-2*t135*t139*t225*t235*t2
10032     <         36*t92+1.6455307846020562d-2*gammabb*t100*t135*t139*t861*
10033     =         t91-3.2910615692041123d-2*gammabb*t100*t135*t238*t275*t57
10034     >         4*t91-3.2910615692041123d-2*gammabb*t100*t139*t238*t273*t
10035     ?         573*t91-3.2910615692041123d-2*gammabb*t100*t135*t274*t275
10036     @         *t558*t91-3.2910615692041123d-2*gammabb*t100*t139*t272*t2
10037     1         73*t558*t91-3.2910615692041123d-2*gammabb*t135*t139*t235*
10038     2         t236*t558*t91-3.2910615692041123d-2*gammabb*t135*t139*t23
10039     3         6*t238*t557*t91-1.6455307846020562d-2*gammabb*t100*t135*t
10040     4         275*t331*t504*t91+3.2910615692041123d-2*gammabb*t100*t135
10041     5         *t331*t502*t503*t91+3.2910615692041123d-2*gammabb*t100*t1
10042     6         35*t238*t254*t274*t332*t503*t91-1.6455307846020562d-2*gam
10043     7         mabb*t100*t139*t273*t331*t501*t91+3.2910615692041123d-2*g
10044     8         ammabb*t100*t139*t331*t499*t500*t91+6.582123138408225d-2*
10045     9         gammabb*t100*t139*t238*t272*t348*t500*t91-1.6455307846020
10046     :         562d-2*gammabb*t100*t139*t273*t348*t458*t91-8.22765392301
10047     ;         0281d-3*gammabb*t100*t135*t254*t275*t332*t458*t91-1.64553
10048     <         07846020562d-2*gammabb*t135*t139*t236*t330*t458*t91+1.645
10049     =         5307846020562d-2*t100*t135*t139*t458*t91-1.64553078460205
10050     >         62d-2*gammabb*t135*t139*t236*t331*t455*t91+3.291061569204
10051     ?         1123d-2*gammabb*t135*t139*t331*t444*t445*t91+6.5821231384
10052     @         08225d-2*gammabb*t135*t139*t235*t238*t330*t445*t91+3.2910
10053     1         615692041123d-2*gammabb*t100*t238*t273*t274*t275*t348*t91
10054     2         +3.2910615692041123d-2*gammabb*t139*t235*t236*t238*t273*t
10055     3         348*t91+1.6455307846020562d-2*gammabb*t100*t238*t254*t272
10056     4         *t273*t275*t332*t91+1.6455307846020562d-2*gammabb*t135*t2
10057     5         35*t236*t238*t254*t275*t332*t91+3.2910615692041123d-2*gam
10058     6         mabb*t100*t272*t273*t274*t275*t331*t91+3.2910615692041123
10059     7         d-2*gammabb*t135*t235*t236*t274*t275*t331*t91+3.291061569
10060     8         2041123d-2*gammabb*t139*t235*t236*t272*t273*t331*t91+3.29
10061     9         10615692041123d-2*gammabb*t135*t236*t238*t274*t275*t330*t
10062     :         91+3.2910615692041123d-2*gammabb*t139*t236*t238*t272*t273
10063     ;         *t330*t91-3.2910615692041123d-2*t100*t135*t238*t274*t275*
10064     <         t91-3.2910615692041123d-2*t100*t139*t238*t272*t273*t91-3.
10065     =         2910615692041123d-2*t135*t139*t235*t236*t238*t91-t133*t13
10066     >         7*t273*t877-t133*t135*t271*(t876+t875+t874+t873)+t135*t13
10067     ?         7*t862-6*t133*t137*t348*t499*t830-3*t133*t135*t263*t332*t
10068     @         496*t828+4*t133*t137*t272*t500*t573+2*t133*t270*t271*t273
10069     1         *t573-2*t137*t261*t273*t573+4*t133*t135*t270*t497*t572+2*
10070     2         t133*t271*t272*t273*t572-2*t135*t261*t271*t572-2*t137*t27
10071     3         2*t273*t559-2*t135*t270*t271*t559-8.7761641845443d-2*gamm
10072     4         abb*t100*t135*t139*t225*t558+2*t133*t137*t348*t500*t501+5
10073     5         .0d-1*t133*t263*t271*t273*t332*t501-t137*t273*t332*t501-t
10074     6         133*t263*t271*t332*t499*t500+2*t137*t332*t499*t500-4*t133
10075     7         *t270*t271*t272*t348*t500+4*t137*t261*t272*t348*t500+t133
10076     8         *t135*t263*t332*t497*t498+t133*t271*t273*t348*t498-t135*t
10077     9         271*t332*t498-2*t133*t273*t348*t496*t497+2*t135*t332*t496
10078     :         *t497-2*t133*t263*t270*t272*t273*t332*t497+2*t135*t261*t2
10079     ;         63*t270*t332*t497-t137*t273*t348*t486-5.0d-1*t135*t263*t2
10080     <         71*t332*t486+1.6089634338331216d-1*gammabb*t100*t135*t139
10081     =         *t331*t440+2*t261*t270*t271*t273*t348+8.7761641845443d-2*
10082     >         gammabb*t100*t139*t225*t238*t273*t348+4.38808209227215d-2
10083     ?         *gammabb*t100*t135*t225*t238*t254*t275*t332+2*t270*t271*t
10084     @         272*t273*t332+t261*t263*t271*t272*t273*t332+8.77616418454
10085     1         43d-2*gammabb*t100*t135*t225*t274*t275*t331+8.77616418454
10086     2         43d-2*gammabb*t100*t139*t225*t272*t273*t331+8.77616418454
10087     3         43d-2*gammabb*t135*t139*t225*t235*t236*t331+8.77616418454
10088     4         43d-2*gammabb*t135*t139*t225*t236*t238*t330-8.77616418454
10089     5         43d-2*t100*t135*t139*t225*t238)+3.2910615692041123d-2*gam
10090     6         mabb*t100*t259*(6.0965d-1*t124*t257*(t872+t871+t870+t869+
10091     7         t867+t866+t865+t864)+6.0965d-1*t121*t253*t868+3.6579d+0*t
10092     8         124*t339*t479*t816+1.82895d+0*t121*t249*t332*t471*t808-2.
10093     9         4386000000000002d+0*t124*t256*t480*t566-1.219300000000000
10094     :         1d+0*t252*t253*t257*t566-2.4386000000000002d+0*t121*t252*
10095     ;         t472*t563-1.2193000000000001d+0*t253*t256*t257*t563-1.219
10096     <         3000000000001d+0*t124*t339*t480*t484-3.04825d-1*t249*t253
10097     =         *t257*t332*t484+6.0965d-1*t249*t253*t332*t479*t480+2.4386
10098     >         000000000002d+0*t252*t253*t256*t339*t480-6.0965d-1*t121*t
10099     ?         249*t332*t472*t478-6.0965d-1*t253*t257*t339*t478+1.219300
10100     @         0000000001d+0*t257*t339*t471*t472+1.2193000000000001d+0*t
10101     1         249*t252*t256*t257*t332*t472)*t91*t92-3.2910615692041123d
10102     2         -2*gammabb*t126*t236*t860*t91*t92+6.582123138408225d-2*ga
10103     3         mmabb*t100*t340*t469*t806*t91*t92-1.9746369415224674d-1*g
10104     4         ammabb*t126*t330*t444*t783*t91*t92-6.582123138408225d-2*g
10105     5         ammabb*t100*t258*t470*t567*t91*t92-6.582123138408225d-2*g
10106     6         ammabb*t235*t236*t259*t567*t91*t92+1.316424627681645d-1*g
10107     7         ammabb*t126*t235*t445*t557*t91*t92-6.582123138408225d-2*g
10108     8         ammabb*t236*t258*t259*t557*t91*t92-3.2910615692041123d-2*
10109     9         gammabb*t100*t340*t470*t485*t91*t92-3.2910615692041123d-2
10110     :         *gammabb*t236*t259*t330*t485*t91*t92+3.2910615692041123d-
10111     ;         2*t100*t259*t485*t91*t92+3.2910615692041123d-2*gammabb*t2
10112     <         36*t330*t469*t470*t91*t92-3.2910615692041123d-2*t100*t469
10113     =         *t470*t91*t92+6.582123138408225d-2*gammabb*t235*t236*t258
10114     >         *t340*t470*t91*t92+6.582123138408225d-2*gammabb*t126*t330
10115     ?         *t445*t455*t91*t92-3.2910615692041123d-2*gammabb*t236*t25
10116     @         9*t340*t455*t91*t92-3.2910615692041123d-2*t126*t236*t455*
10117     1         t91*t92+6.582123138408225d-2*gammabb*t259*t340*t444*t445*
10118     2         t91*t92+6.582123138408225d-2*t126*t444*t445*t91*t92+1.316
10119     3         424627681645d-1*gammabb*t235*t258*t259*t330*t445*t91*t92-
10120     4         6.582123138408225d-2*t235*t236*t258*t259*t91*t92-1.755232
10121     5         83690886d-1*gammabb*t100*t225*t259*t567*t92+1.75523283690
10122     6         886d-1*gammabb*t126*t225*t236*t557*t92+1.75523283690886d-
10123     7         1*gammabb*t100*t225*t258*t340*t470*t92-3.51046567381772d-
10124     8         1*gammabb*t126*t225*t235*t330*t445*t92+3.217926867666243d
10125     9         -1*gammabb*t100*t259*t340*t440*t92-3.217926867666243d-1*g
10126     :         ammabb*t126*t236*t330*t440*t92+3.217926867666243d-1*t100*
10127     ;         t126*t440*t92+1.75523283690886d-1*gammabb*t225*t235*t236*
10128     <         t259*t340*t92+1.75523283690886d-1*gammabb*t225*t236*t258*
10129     =         t259*t330*t92-1.75523283690886d-1*t100*t225*t258*t259*t92
10130     >         +1.75523283690886d-1*t126*t225*t235*t236*t92+3.2910615692
10131     ?         041123d-2*gammabb*t100*t126*t861*t91+6.582123138408225d-2
10132     @         *gammabb*t100*t238*t259*t567*t91+6.582123138408225d-2*gam
10133     1         mabb*t100*t258*t259*t558*t91-6.582123138408225d-2*gammabb
10134     2         *t126*t235*t236*t558*t91-6.582123138408225d-2*gammabb*t12
10135     3         6*t236*t238*t557*t91+3.2910615692041123d-2*gammabb*t100*t
10136     4         259*t331*t485*t91-3.2910615692041123d-2*gammabb*t100*t331
10137     5         *t469*t470*t91-6.582123138408225d-2*gammabb*t100*t238*t25
10138     6         8*t340*t470*t91+3.2910615692041123d-2*gammabb*t100*t259*t
10139     7         340*t458*t91-3.2910615692041123d-2*gammabb*t126*t236*t330
10140     8         *t458*t91+3.2910615692041123d-2*t100*t126*t458*t91-3.2910
10141     9         615692041123d-2*gammabb*t126*t236*t331*t455*t91+6.5821231
10142     :         38408225d-2*gammabb*t126*t331*t444*t445*t91+1.31642462768
10143     ;         1645d-1*gammabb*t126*t235*t238*t330*t445*t91-6.5821231384
10144     <         08225d-2*gammabb*t235*t236*t238*t259*t340*t91-6.582123138
10145     =         408225d-2*gammabb*t235*t236*t258*t259*t331*t91-6.58212313
10146     >         8408225d-2*gammabb*t236*t238*t258*t259*t330*t91+6.5821231
10147     ?         38408225d-2*t100*t238*t258*t259*t91-6.582123138408225d-2*
10148     @         t126*t235*t236*t238*t91+2.6666666666666666d+0*t146*t149*t
10149     1         295*t880-1.0546577777777776d-1*t110*t111*t147*t880-4.7272
10150     2         88888888889d-2*t103*t284*t879+1.2128166337053317d-2*t1*t2
10151     3         84*t332*t462*t78*t878-2.0d+0*t133*t268*(-1.47560999999999
10152     4         9d-1*t124*t266*(t876+t875+t874+t873+t867+t866+t865+t864)-
10153     5         1.475609999999999d-1*t130*t253*t868-8.853659999999993d-1*
10154     6         t124*t345*t489*t823-4.4268299999999966d-1*t130*t249*t332*
10155     7         t471*t808+5.902439999999995d-1*t124*t265*t490*t570+2.9512
10156     8         19999999998d-1*t252*t253*t266*t570+5.902439999999995d-1*t
10157     9         130*t252*t472*t563+2.951219999999998d-1*t253*t265*t266*t5
10158     :         63+2.951219999999998d-1*t124*t345*t490*t494+7.37804999999
10159     ;         9994d-2*t249*t253*t266*t332*t494-1.475609999999999d-1*t24
10160     <         9*t253*t332*t489*t490-5.902439999999995d-1*t252*t253*t265
10161     =         *t345*t490+1.475609999999999d-1*t130*t249*t332*t472*t478+
10162     >         1.475609999999999d-1*t253*t266*t345*t478-2.95121999999999
10163     ?         8d-1*t266*t345*t471*t472-2.951219999999998d-1*t249*t252*t
10164     @         265*t266*t332*t472)+5.273288888888887d-2*t111*t113*t863-4
10165     1         .727288888888889d-2*t107*t224*t862-2.0d+0*t132*t862-4.0d+
10166     2         0*t133*t346*t487*t822+5.333333333333333d+1*t146*t149*t353
10167     3         *t467*t805+3.6384499011159954d-2*t1*t332*t350*t466*t78*t8
10168     4         03+2.4256332674106634d-2*t1*t240*t287*t332*t465*t575*t78-
10169     5         6.064083168526658d-3*t1*t284*t332*t460*t575*t78+6.7644823
10170     6         79964267d-3*t1*t110*t147*t286*t332*t517*t78-1.21281663370
10171     7         53317d-2*t1*t332*t350*t465*t514*t78-2.02934471398928d-2*t
10172     8         1*t110*t286*t295*t332*t467*t78-3.3822411899821336d-3*t1*t
10173     9         113*t286*t332*t464*t78+1.3528964759928536d-2*t1*t147*t242
10174     :         *t286*t294*t332*t78-2.8363733333333335d-1*t107*t332*t462*
10175     ;         t686-2.1333333333333332d+1*t146*t149*t294*t468*t583+6.327
10176     <         946666666665d-1*t110*t111*t294*t295*t583+5.33333333333333
10177     =         3d+0*t146*t293*t295*t583+5.333333333333333d+0*t149*t282*t
10178     >         295*t583-2.109315555555555d-1*t110*t147*t289*t583-2.10931
10179     ?         5555555555d-1*t111*t147*t242*t583+5.333333333333333d+0*t1
10180     @         46*t294*t295*t582-1.7777777777777776d+0*t147*t282*t582+1.
10181     1         8909155555555557d-1*t103*t287*t465*t580+9.454577777777778
10182     2         d-2*t224*t240*t284*t580-2.109315555555555d-1*t110*t147*t2
10183     3         94*t579+1.0546577777777776d-1*t113*t242*t579+5.3333333333
10184     4         33333d+0*t149*t294*t295*t578-1.7777777777777776d+0*t147*t
10185     5         293*t578+4.0d+0*t133*t267*t488*t571-4.0d+0*t261*t268*t571
10186     6         -2.109315555555555d-1*t111*t147*t294*t560+1.0546577777777
10187     7         776d-1*t113*t289*t560+1.8909155555555557d-1*t107*t240*t46
10188     8         1*t559+9.454577777777778d-2*t224*t284*t287*t559-4.0d+0*t2
10189     9         67*t268*t559-1.75523283690886d-1*gammabb*t100*t126*t225*t
10190     :         558+2.6666666666666666d+0*t146*t295*t517*t555-8.888888888
10191     ;         888888d-1*t147*t512*t555-1.0666666666666666d+1*t146*t467*
10192     <         t468*t555+5.333333333333333d+0*t282*t294*t295*t555-1.0666
10193     =         666666666666d+1*t146*t149*t353*t468*t517+2.66666666666666
10194     >         66d+0*t149*t295*t359*t517+3.1639733333333325d-1*t110*t111
10195     ?         *t295*t353*t517-1.0546577777777776d-1*t111*t147*t334*t517
10196     @         -8.888888888888888d-1*t147*t359*t516+2.6666666666666666d+
10197     1         0*t146*t295*t353*t516+4.727288888888889d-2*t224*t284*t332
10198     2         *t514-1.0546577777777776d-1*t110*t147*t353*t513+5.2732888
10199     3         88888887d-2*t113*t334*t513+2.6666666666666666d+0*t149*t29
10200     4         5*t353*t512+2.0d+0*t133*t346*t488*t495-2.0d+0*t268*t332*t
10201     5         495+2.0d+0*t332*t487*t488+4.0d+0*t261*t267*t346*t488-2.0d
10202     6         +0*t268*t346*t486-1.0666666666666666d+1*t149*t359*t467*t4
10203     7         68-1.265589333333333d+0*t110*t111*t353*t467*t468-2.133333
10204     8         3333333332d+1*t146*t293*t294*t353*t468-2.1333333333333332
10205     9         d+1*t149*t282*t294*t353*t468+3.1639733333333325d-1*t111*t
10206     :         295*t334*t467-9.454577777777778d-2*t224*t332*t465*t466-1.
10207     ;         0546577777777776d-1*t111*t147*t353*t464+9.454577777777778
10208     <         d-2*t107*t332*t460*t461-1.8909155555555557d-1*t240*t284*t
10209     =         287*t332*t461+3.217926867666243d-1*gammabb*t100*t126*t331
10210     >         *t440+5.333333333333333d+0*t293*t294*t295*t359+6.32794666
10211     ?         6666665d-1*t110*t289*t294*t295*t353+6.327946666666665d-1*
10212     @         t111*t242*t294*t295*t353+5.333333333333333d+0*t282*t293*t
10213     1         295*t353-2.109315555555555d-1*t147*t242*t289*t353-1.75523
10214     2         283690886d-1*gammabb*t100*t225*t238*t259*t340-2.109315555
10215     3         555555d-1*t147*t289*t294*t334-1.75523283690886d-1*gammabb
10216     4         *t100*t225*t258*t259*t331+1.75523283690886d-1*gammabb*t12
10217     5         6*t225*t235*t236*t331+1.75523283690886d-1*gammabb*t126*t2
10218     6         25*t236*t238*t330-1.75523283690886d-1*t100*t126*t225*t238
10219     7         )-2.4814019635975998d+0*t584*t77-4.135669939329333d-1*t11
10220     8         4*(t556+t554+t553+t552-8.888888888888888d-1*t146*t147*t35
10221     9         6+t354+t352+t351+t349+t347+t343+t341+t336+t335+t333))*wgh
10222     :         t+Cmat3(iq,D3_RB_RB_GBB)
10223            Cmat3(iq,D3_RA_GAA_GAA) = (-9.305257363491d-1*t22*(2.6666666
10224     1         666666666d+0*t222*t72*t75*t901-1.0546577777777776d-1*t35*
10225     2         t36*t73*t901-4.727288888888889d-2*t211*t28*t900-1.5557798
10226     3         788747831d-3*t167*t386*t39*t40*t585*t899+7.57211d-1*(-1.6
10227     4         455307846020562d-2*gammaaa*t16*t17*t200*t25*t65*t898-t200
10228     5         *t59*t63*t898-t198*t59*t61*(t897+t896+t895+t894)-1.645530
10229     6         7846020562d-2*gammaaa*t16*t17*t202*t25*t61*(t893+t892+t89
10230     7         1+t890)+t61*t63*t883+1.6455307846020562d-2*gammaaa*t16*t2
10231     8         5*t61*t65*t882-1.6455307846020562d-2*gammaaa*t16*t163*t17
10232     9         *t61*t65*t881-2.4682961769030842d-2*gammaaa*t16*t17*t201*
10233     :         t25*t585*t61*t620*t765-9.873184707612337d-2*gammaaa*t16*t
10234     ;         17*t199*t25*t616*t65*t763-6*t199*t59*t616*t63*t763-1.5d+0
10235     <         *t197*t585*t59*t61*t615*t761-9.873184707612337d-2*gammaaa
10236     =         *t16*t162*t17*t587*t61*t65*t716+3.2910615692041123d-2*gam
10237     >         maaa*t16*t17*t199*t25*t421*t619*t65+4.38808209227215d-2*g
10238     ?         ammaaa*t152*t17*t200*t25*t619*t65-1.6455307846020562d-2*g
10239     @         ammaaa*t16*t165*t200*t25*t619*t65+1.6455307846020562d-2*g
10240     1         ammaaa*t16*t162*t163*t17*t200*t619*t65-8.7761641845443d-2
10241     2         *gammaaa*t152*t17*t25*t421*t616*t65+3.2910615692041123d-2
10242     3         *gammaaa*t16*t165*t25*t421*t616*t65-3.2910615692041123d-2
10243     4         *gammaaa*t16*t162*t163*t17*t421*t616*t65-4.38808209227215
10244     5         d-2*gammaaa*t152*t25*t590*t61*t65-1.6455307846020562d-2*g
10245     6         ammaaa*t16*t162*t163*t590*t61*t65+3.2910615692041123d-2*g
10246     7         ammaaa*t16*t162*t17*t366*t589*t61*t65+4.38808209227215d-2
10247     8         *gammaaa*t152*t163*t17*t589*t61*t65-1.6455307846020562d-2
10248     9         *gammaaa*t16*t163*t165*t589*t61*t65-8.7761641845443d-2*ga
10249     :         mmaaa*t152*t17*t366*t587*t61*t65+3.2910615692041123d-2*ga
10250     ;         mmaaa*t16*t165*t366*t587*t61*t65-3.2910615692041123d-2*ga
10251     <         mmaaa*t16*t163*t298*t525*t61*t65+3.2910615692041123d-2*t1
10252     =         6*t25*t525*t61*t65+6.582123138408225d-2*gammaaa*t16*t17*t
10253     >         298*t366*t524*t61*t65-3.2910615692041123d-2*gammaaa*t16*t
10254     ?         163*t299*t524*t61*t65-3.2910615692041123d-2*t16*t163*t17*
10255     @         t524*t61*t65+6.582123138408225d-2*gammaaa*t16*t162*t298*t
10256     1         299*t366*t61*t65+6.582123138408225d-2*t16*t162*t17*t298*t
10257     2         366*t61*t65+8.7761641845443d-2*gammaaa*t152*t163*t298*t29
10258     3         9*t61*t65-8.7761641845443d-2*t152*t25*t299*t61*t65-3.2910
10259     4         615692041123d-2*t16*t162*t163*t299*t61*t65+8.776164184544
10260     5         3d-2*t152*t163*t17*t298*t61*t65-3.2910615692041123d-2*t16
10261     6         *t163*t165*t298*t61*t65-1.6455307846020562d-2*gammaaa*t16
10262     7         *t199*t200*t25*t590*t65+1.6455307846020562d-2*gammaaa*t16
10263     8         *t163*t17*t199*t200*t589*t65-3.2910615692041123d-2*gammaa
10264     9         a*t16*t17*t199*t200*t366*t587*t65+6.582123138408225d-2*ga
10265     :         mmaaa*t16*t17*t25*t316*t421*t540*t65-3.2910615692041123d-
10266     ;         2*gammaaa*t16*t200*t25*t299*t540*t65+3.2910615692041123d-
10267     <         2*gammaaa*t16*t163*t17*t200*t298*t540*t65-3.2910615692041
10268     =         123d-2*t16*t17*t200*t25*t540*t65-3.2910615692041123d-2*ga
10269     >         mmaaa*t16*t200*t25*t316*t525*t65+3.2910615692041123d-2*ga
10270     ?         mmaaa*t16*t163*t17*t200*t316*t524*t65+6.582123138408225d-
10271     @         2*gammaaa*t16*t199*t25*t299*t316*t421*t65-6.5821231384082
10272     1         25d-2*gammaaa*t16*t163*t17*t199*t298*t316*t421*t65+6.5821
10273     2         23138408225d-2*t16*t17*t199*t25*t316*t421*t65-6.582123138
10274     3         408225d-2*gammaaa*t16*t162*t17*t200*t298*t316*t366*t65+8.
10275     4         7761641845443d-2*gammaaa*t152*t200*t25*t299*t316*t65+3.29
10276     5         10615692041123d-2*gammaaa*t16*t162*t163*t200*t299*t316*t6
10277     6         5-8.7761641845443d-2*gammaaa*t152*t163*t17*t200*t298*t316
10278     7         *t65+3.2910615692041123d-2*gammaaa*t16*t163*t165*t200*t29
10279     8         8*t316*t65+8.7761641845443d-2*t152*t17*t200*t25*t316*t65-
10280     9         3.2910615692041123d-2*t16*t165*t200*t25*t316*t65+3.291061
10281     :         5692041123d-2*t16*t162*t163*t17*t200*t316*t65+3.291061569
10282     ;         2041123d-2*gammaaa*t16*t163*t199*t200*t298*t299*t65-3.291
10283     <         0615692041123d-2*t16*t199*t200*t25*t299*t65+3.29106156920
10284     =         41123d-2*t16*t163*t17*t199*t200*t298*t65+2*t199*t421*t59*
10285     >         t619*t63-t188*t200*t619*t63+2*t188*t421*t616*t63-t199*t20
10286     ?         0*t591*t63+4*t316*t421*t540*t59*t63-2*t200*t300*t540*t63-
10287     @         2*t200*t316*t526*t63+4*t199*t300*t316*t421*t63-2.19404104
10288     1         6136075d-2*gammaaa*t152*t17*t25*t424*t585*t61*t620+8.2276
10289     2         53923010281d-3*gammaaa*t16*t165*t25*t424*t585*t61*t620-8.
10290     3         227653923010281d-3*gammaaa*t16*t162*t163*t17*t424*t585*t6
10291     4         1*t620-8.227653923010281d-3*gammaaa*t16*t17*t199*t200*t25
10292     5         *t424*t585*t620+t197*t198*t200*t59*t619+1.645530784602056
10293     6         2d-2*gammaaa*t16*t17*t200*t201*t202*t25*t619-2*t197*t198*
10294     7         t421*t59*t616-3.2910615692041123d-2*gammaaa*t16*t17*t201*
10295     8         t202*t25*t421*t616+5.0d-1*t188*t418*t585*t61*t615-5.0d-1*
10296     9         t199*t200*t418*t585*t59*t615+t190*t197*t418*t59*t591*t61+
10297     :         1.6455307846020562d-2*gammaaa*t16*t17*t181*t201*t25*t424*
10298     ;         t591*t61+2.194041046136075d-2*gammaaa*t152*t17*t181*t202*
10299     <         t25*t591*t61-8.227653923010281d-3*gammaaa*t16*t165*t181*t
10300     =         202*t25*t591*t61+8.227653923010281d-3*gammaaa*t16*t162*t1
10301     >         63*t17*t181*t202*t591*t61-t197*t198*t591*t61-5.0d-1*t188*
10302     ?         t190*t198*t591*t61-1.6455307846020562d-2*gammaaa*t16*t201
10303     @         *t202*t25*t590*t61-5.0d-1*t197*t412*t418*t585*t59*t61+2*t
10304     1         190*t300*t418*t539*t59*t61+1.6455307846020562d-2*gammaaa*
10305     2         t16*t163*t17*t201*t202*t589*t61-3.2910615692041123d-2*gam
10306     3         maaa*t16*t17*t201*t202*t366*t587*t61-8.227653923010281d-3
10307     4         *gammaaa*t16*t17*t201*t25*t402*t424*t585*t61+2*t190*t197*
10308     5         t418*t585*t61+2.5d-1*t188*t198*t412*t585*t61-1.0970205230
10309     6         680374d-2*gammaaa*t152*t17*t202*t25*t402*t585*t61+4.11382
10310     7         69615051404d-3*gammaaa*t16*t165*t202*t25*t402*t585*t61-4.
10311     8         1138269615051404d-3*gammaaa*t16*t162*t163*t17*t202*t402*t
10312     9         585*t61+3.2910615692041123d-2*gammaaa*t16*t17*t181*t25*t3
10313     :         00*t424*t541*t61-3.2910615692041123d-2*gammaaa*t16*t202*t
10314     ;         25*t299*t541*t61+3.2910615692041123d-2*gammaaa*t16*t163*t
10315     <         17*t202*t298*t541*t61-3.2910615692041123d-2*t16*t17*t202*
10316     =         t25*t541*t61-2*t198*t300*t539*t61-t190*t198*t300*t526*t61
10317     >         -1.6455307846020562d-2*gammaaa*t16*t181*t202*t25*t300*t52
10318     ?         5*t61+1.6455307846020562d-2*gammaaa*t16*t163*t17*t181*t20
10319     @         2*t300*t524*t61+3.2910615692041123d-2*gammaaa*t16*t181*t2
10320     1         01*t25*t299*t300*t424*t61-3.2910615692041123d-2*gammaaa*t
10321     2         16*t163*t17*t181*t201*t298*t300*t424*t61+3.29106156920411
10322     3         23d-2*t16*t17*t181*t201*t25*t300*t424*t61-3.2910615692041
10323     4         123d-2*gammaaa*t16*t162*t17*t181*t202*t298*t300*t366*t61+
10324     5         4.38808209227215d-2*gammaaa*t152*t181*t202*t25*t299*t300*
10325     6         t61+1.6455307846020562d-2*gammaaa*t16*t162*t163*t181*t202
10326     7         *t299*t300*t61-4.38808209227215d-2*gammaaa*t152*t163*t17*
10327     8         t181*t202*t298*t300*t61+1.6455307846020562d-2*gammaaa*t16
10328     9         *t163*t165*t181*t202*t298*t300*t61+4.38808209227215d-2*t1
10329     :         52*t17*t181*t202*t25*t300*t61-1.6455307846020562d-2*t16*t
10330     ;         165*t181*t202*t25*t300*t61+1.6455307846020562d-2*t16*t162
10331     <         *t163*t17*t181*t202*t300*t61+3.2910615692041123d-2*gammaa
10332     =         a*t16*t163*t201*t202*t298*t299*t61-3.2910615692041123d-2*
10333     >         t16*t201*t202*t25*t299*t61+3.2910615692041123d-2*t16*t163
10334     ?         *t17*t201*t202*t298*t61+5.0d-1*t190*t198*t199*t200*t59*t5
10335     @         91+8.227653923010281d-3*gammaaa*t16*t17*t181*t199*t200*t2
10336     1         02*t25*t591-2.5d-1*t198*t199*t200*t412*t585*t59+t190*t198
10337     2         *t200*t300*t540*t59+2*t198*t200*t316*t539*t59-2*t190*t198
10338     3         *t199*t300*t316*t421*t59-2*t190*t197*t200*t300*t316*t418*
10339     4         t59-4.1138269615051404d-3*gammaaa*t16*t17*t199*t200*t202*
10340     5         t25*t402*t585+t190*t198*t199*t200*t585+3.2910615692041123
10341     6         d-2*gammaaa*t16*t17*t200*t202*t25*t316*t541+1.64553078460
10342     7         20562d-2*gammaaa*t16*t17*t181*t200*t202*t25*t300*t540-3.2
10343     8         910615692041123d-2*gammaaa*t16*t17*t181*t200*t201*t25*t30
10344     9         0*t316*t424-3.2910615692041123d-2*gammaaa*t16*t17*t181*t1
10345     :         99*t202*t25*t300*t316*t421-4.38808209227215d-2*gammaaa*t1
10346     ;         52*t17*t181*t200*t202*t25*t300*t316+1.6455307846020562d-2
10347     <         *gammaaa*t16*t165*t181*t200*t202*t25*t300*t316-1.64553078
10348     =         46020562d-2*gammaaa*t16*t162*t163*t17*t181*t200*t202*t300
10349     >         *t316+2*t197*t198*t200*t300*t316+t188*t190*t198*t200*t300
10350     ?         *t316+3.2910615692041123d-2*gammaaa*t16*t200*t201*t202*t2
10351     @         5*t299*t316-3.2910615692041123d-2*gammaaa*t16*t163*t17*t2
10352     1         00*t201*t202*t298*t316+3.2910615692041123d-2*t16*t17*t200
10353     2         *t201*t202*t25*t316+1.6455307846020562d-2*gammaaa*t16*t18
10354     3         1*t199*t200*t202*t25*t299*t300-1.6455307846020562d-2*gamm
10355     4         aaa*t16*t163*t17*t181*t199*t200*t202*t298*t300+1.64553078
10356     5         46020562d-2*t16*t17*t181*t199*t200*t202*t25*t300)-2.0d+0*
10357     6         t195*t59*(-1.475609999999999d-1*t193*t50*(t897+t896+t895+
10358     7         t894+t888+t887+t886+t885)-1.475609999999999d-1*t180*t56*t
10359     8         889-8.853659999999993d-1*t192*t50*t622*t756-2.21341499999
10360     9         99983d-1*t179*t56*t585*t602*t741+2.951219999999998d-1*t19
10361     :         2*t411*t50*t623+1.475609999999999d-1*t179*t180*t193*t623-
10362     ;         2.951219999999998d-1*t179*t180*t411*t622-7.37804999999999
10363     <         4d-2*t192*t193*t393*t585*t602+1.475609999999999d-1*t176*t
10364     =         179*t393*t56*t591+7.378049999999994d-2*t176*t180*t192*t19
10365     >         3*t591-7.378049999999994d-2*t179*t393*t395*t56*t585-3.689
10366     ?         024999999997d-2*t180*t192*t193*t395*t585+2.95121999999999
10367     @         8d-1*t176*t300*t393*t530*t56+5.902439999999995d-1*t313*t4
10368     1         11*t50*t537+1.475609999999999d-1*t176*t180*t193*t300*t537
10369     2         +2.951219999999998d-1*t180*t193*t313*t530-2.9512199999999
10370     3         98d-1*t176*t180*t192*t300*t313*t411-2.951219999999998d-1*
10371     4         t176*t179*t193*t300*t313*t393)+3.2910615692041123d-2*gamm
10372     5         aaa*t16*t17*t186*t25*(6.0965d-1*t184*t50*(t893+t892+t891+
10373     6         t890+t888+t887+t886+t885)+6.0965d-1*t180*t47*t889+3.6579d
10374     7         +0*t183*t50*t603*t749+9.14475d-1*t179*t47*t585*t602*t741-
10375     8         1.2193000000000001d+0*t183*t401*t50*t608-6.0965d-1*t179*t
10376     9         180*t184*t608+1.2193000000000001d+0*t179*t180*t401*t603+3
10377     :         .04825d-1*t183*t184*t393*t585*t602-6.0965d-1*t176*t179*t3
10378     ;         93*t47*t591-3.04825d-1*t176*t180*t183*t184*t591+3.04825d-
10379     <         1*t179*t393*t395*t47*t585+1.524125d-1*t180*t183*t184*t395
10380     =         *t585-2.4386000000000002d+0*t307*t401*t50*t533-6.0965d-1*
10381     >         t176*t180*t184*t300*t533-1.2193000000000001d+0*t176*t300*
10382     ?         t393*t47*t530-1.2193000000000001d+0*t180*t184*t307*t530+1
10383     @         .2193000000000001d+0*t176*t180*t183*t300*t307*t401+1.2193
10384     1         000000000001d+0*t176*t179*t184*t300*t307*t393)-8.88888888
10385     2         8888888d-1*t73*t75*(4.7459599999999996d-2*t66*t884-2.4d+0
10386     3         *t68*(-5.0d-1*t205*t883+6.41391219265211d-2*t206*(gammaaa
10387     4         *t16*t25*t882-gammaaa*t16*t163*t17*t881-6*gammaaa*t16*t16
10388     5         2*t17*t587*t716-2.6666666666666666d+0*gammaaa*t152*t25*t5
10389     6         90-gammaaa*t16*t162*t163*t590+2*gammaaa*t16*t162*t17*t366
10390     7         *t589+2.6666666666666666d+0*gammaaa*t152*t163*t17*t589-ga
10391     8         mmaaa*t16*t163*t165*t589-5.333333333333333d+0*gammaaa*t15
10392     9         2*t17*t366*t587+2*gammaaa*t16*t165*t366*t587-2*gammaaa*t1
10393     :         6*t163*t298*t525+2*t16*t25*t525+4*gammaaa*t16*t17*t298*t3
10394     ;         66*t524-2*gammaaa*t16*t163*t299*t524-2*t16*t163*t17*t524+
10395     <         4*gammaaa*t16*t162*t298*t299*t366+4*t16*t162*t17*t298*t36
10396     =         6+5.333333333333333d+0*gammaaa*t152*t163*t298*t299-5.3333
10397     >         33333333333d+0*t152*t25*t299-2*t16*t162*t163*t299+5.33333
10398     ?         3333333333d+0*t152*t163*t17*t298-2*t16*t163*t165*t298)-3.
10399     @         75d-1*t188*t585*t769+4.810434144489083d-2*t207*t636*t768-
10400     1         3.206956096326055d-2*t207*t428*t637+2.5d-1*t188*t430*t591
10401     2         -6.41391219265211d-2*t325*t428*t543+5.0d-1*t300*t430*t526
10402     3         )-8.400000000000001d+0*t204*t71*t883-2.7259596d+0*t67*t88
10403     4         3+5.672746666666666d-2*t66*t883+4.7459599999999996d-2*t35
10404     5         *t883-4.9628707825354457d+0*t204*t883-3.15d+1*t188*t585*t
10405     6         71*t767-1.8610765434507923d+1*t188*t585*t767-2.1d+1*t188*
10406     7         t427*t591*t71-4.2d+1*t300*t427*t526*t71-5.4519192d+0*t188
10407     8         *t591*t66-1.0903838400000002d+1*t300*t526*t66-8.400000000
10408     9         000001d+0*t188*t204*t638+4.7459599999999996d-2*t188*t593-
10409     :         1.2407176956338616d+1*t188*t427*t591-8.400000000000001d+0
10410     ;         *t204*t208*t591+5.672746666666666d-2*t188*t591+4.74595999
10411     <         99999996d-2*t169*t591-2.1d+1*t208*t427*t585-5.4519192d+0*
10412     =         t188*t585-1.68d+1*t204*t300*t544+9.491919999999999d-2*t30
10413     >         0*t527-2.481435391267723d+1*t300*t427*t526-1.68d+1*t204*t
10414     ?         326*t526+9.491919999999999d-2*t302*t526+1.134549333333333
10415     @         1d-1*t300*t526-4.2d+1*t188*t300*t326*t427)+5.273288888888
10416     1         887d-2*t36*t38*t884-8.888888888888888d-1*t72*t73*(4.93659
10417     2         23538061685d-2*t1*t3*t30*(-5.0d-1*t1*t213*t3*t883+7.5d-1*
10418     3         t1*t167*t3*t318*t591+1.6666666666666666d-1*t1*t213*t23*t5
10419     4         91-1.875d+0*t1*t167*t3*t542*t585-2.5d-1*t1*t23*t318*t585+
10420     5         1.5d+0*t1*t3*t300*t318*t526)-1.4431302433467247d-1*t1*t21
10421     6         3*t3*t883+2.164695365020087d-1*t1*t167*t3*t318*t591-2.468
10422     7         2961769030842d-2*t1*t213*t219*t3*t591+4.810434144489082d-
10423     8         2*t1*t213*t23*t591-5.411738412550218d-1*t1*t167*t3*t542*t
10424     9         585+3.7024442653546263d-2*t1*t219*t3*t318*t585-7.21565121
10425     :         6733623d-2*t1*t23*t318*t585-4.9365923538061685d-2*t1*t213
10426     ;         *t3*t300*t548+4.329390730040174d-1*t1*t3*t300*t318*t526)+
10427     <         5.273288888888887d-2*t35*t38*(-6.41391219265211d-2*t1*t21
10428     =         3*t3*t883+9.620868288978166d-2*t1*t167*t3*t318*t591+2.137
10429     >         9707308840368d-2*t1*t213*t23*t591-2.4052170722445415d-1*t
10430     ?         1*t167*t3*t542*t585-3.206956096326055d-2*t1*t23*t318*t585
10431     @         +1.924173657795633d-1*t1*t3*t300*t318*t526)-2.0d+0*t58*t8
10432     1         83-4.727288888888889d-2*t151*t32*t883+3.2910615692041123d
10433     2         -2*gammaaa*t16*t25*t52*t882-3.2910615692041123d-2*gammaaa
10434     3         *t16*t163*t17*t52*t881+3.3352457426896626d-2*t1*t167*t211
10435     4         *t3*t585*t857-4.0d+0*t194*t59*t613*t755+5.333333333333333
10436     5         d+1*t221*t595*t72*t738*t75-1.0666666666666666d+1*t221*t38
10437     6         9*t641*t72*t75-2.1333333333333332d+1*t321*t389*t550*t72*t
10438     7         75+2.6666666666666666d+0*t209*t222*t641*t75+2.66666666666
10439     8         66666d+0*t221*t222*t639*t75-1.0666666666666666d+1*t209*t3
10440     9         89*t595*t75+5.333333333333333d+0*t222*t327*t550*t75+5.333
10441     :         333333333333d+0*t222*t321*t545*t75-2.1333333333333332d+1*
10442     ;         t221*t321*t327*t389*t75+6.582123138408225d-2*gammaaa*t16*
10443     <         t17*t185*t25*t599*t739-4.667339636624349d-3*t214*t39*t40*
10444     =         t585*t626*t736-1.0546577777777776d-1*t169*t36*t641*t73-1.
10445     >         0546577777777776d-1*t216*t35*t641*t73-8.888888888888888d-
10446     ?         1*t220*t639*t73-8.888888888888888d-1*t209*t633*t73-1.0546
10447     @         577777777776d-1*t221*t36*t593*t73+6.764482379964267d-3*t1
10448     1         *t213*t221*t3*t35*t591*t73-1.01467235699464d-2*t1*t221*t3
10449     2         *t318*t35*t585*t73-2.109315555555555d-1*t302*t36*t550*t73
10450     3         +1.3528964759928536d-2*t1*t213*t3*t300*t35*t550*t73-1.777
10451     4         7777777777776d+0*t327*t549*t73-2.109315555555555d-1*t321*
10452     5         t35*t546*t73-1.7777777777777776d+0*t522*t545*t73-2.109315
10453     6         555555555d-1*t321*t36*t527*t73-2.109315555555555d-1*t216*
10454     7         t302*t321*t73+1.3528964759928536d-2*t1*t169*t213*t3*t300*
10455     8         t321*t73+1.3528964759928536d-2*t1*t213*t221*t3*t300*t302*
10456     9         t73+2.6666666666666666d+0*t220*t222*t641*t72+2.6666666666
10457     :         666666d+0*t221*t222*t633*t72-1.0666666666666666d+1*t220*t
10458     ;         389*t595*t72+5.333333333333333d+0*t222*t522*t550*t72+5.33
10459     <         3333333333333d+0*t222*t321*t549*t72-2.1333333333333332d+1
10460     =         *t221*t321*t389*t522*t72-1.9746369415224674d-1*gammaaa*t1
10461     >         6*t162*t17*t52*t587*t716+3.1639733333333325d-1*t221*t222*
10462     ?         t35*t36*t641-2.8363733333333335d-1*t167*t32*t585*t626+2.0
10463     @         d+0*t194*t409*t59*t624-2.0d+0*t188*t195*t624+2.0d+0*t188*
10464     1         t409*t613-3.2910615692041123d-2*gammaaa*t16*t17*t185*t25*
10465     2         t391*t609-8.7761641845443d-2*gammaaa*t152*t17*t186*t25*t6
10466     3         09+3.2910615692041123d-2*gammaaa*t16*t165*t186*t25*t609-3
10467     4         .2910615692041123d-2*gammaaa*t16*t162*t163*t17*t186*t609+
10468     5         8.7761641845443d-2*gammaaa*t152*t17*t25*t391*t599-3.29106
10469     6         15692041123d-2*gammaaa*t16*t165*t25*t391*t599+3.291061569
10470     7         2041123d-2*gammaaa*t16*t162*t163*t17*t391*t599-1.26558933
10471     8         3333333d+0*t221*t35*t36*t389*t595+3.1639733333333325d-1*t
10472     9         169*t222*t36*t595+3.1639733333333325d-1*t216*t222*t35*t59
10473     :         5+5.273288888888887d-2*t216*t38*t593-6.064083168526658d-3
10474     ;         *t1*t167*t211*t3*t542*t591-1.2128166337053317d-2*t1*t214*
10475     <         t3*t318*t386*t591+9.454577777777778d-2*t167*t32*t382*t591
10476     =         -3.3822411899821336d-3*t1*t169*t213*t3*t38*t591+4.7272888
10477     >         88888889d-2*t151*t211*t214*t591-2.0d+0*t194*t195*t591-8.7
10478     ?         761641845443d-2*gammaaa*t152*t25*t52*t590-3.2910615692041
10479     @         123d-2*gammaaa*t16*t162*t163*t52*t590+3.2910615692041123d
10480     1         -2*gammaaa*t16*t185*t186*t25*t590+4.0d+0*t314*t409*t538*t
10481     2         59+6.582123138408225d-2*gammaaa*t16*t162*t17*t366*t52*t58
10482     3         9+8.7761641845443d-2*gammaaa*t152*t163*t17*t52*t589-3.291
10483     4         0615692041123d-2*gammaaa*t16*t163*t165*t52*t589-3.2910615
10484     5         692041123d-2*gammaaa*t16*t163*t17*t185*t186*t589-1.755232
10485     6         83690886d-1*gammaaa*t152*t17*t366*t52*t587+6.582123138408
10486     7         225d-2*gammaaa*t16*t165*t366*t52*t587+6.582123138408225d-
10487     8         2*gammaaa*t16*t17*t185*t186*t366*t587+4.244858217968661d-
10488     9         2*t1*t214*t3*t386*t542*t585-9.454577777777778d-2*t211*t21
10489     :         4*t382*t585+5.0733617849732d-3*t1*t169*t3*t318*t38*t585+6
10490     ;         .327946666666665d-1*t222*t321*t35*t36*t550-2.425633267410
10491     <         6634d-2*t1*t3*t300*t318*t386*t547+9.454577777777778d-2*t1
10492     =         51*t211*t300*t547+1.0546577777777776d-1*t302*t38*t546-1.2
10493     >         128166337053317d-2*t1*t211*t3*t300*t526*t542-4.0d+0*t195*
10494     ?         t300*t538-6.582123138408225d-2*gammaaa*t16*t17*t25*t308*t
10495     @         391*t534+6.582123138408225d-2*gammaaa*t16*t186*t25*t299*t
10496     1         534-6.582123138408225d-2*gammaaa*t16*t163*t17*t186*t298*t
10497     2         534+6.582123138408225d-2*t16*t17*t186*t25*t534-6.76448237
10498     3         9964267d-3*t1*t213*t3*t300*t38*t527+1.8909155555555557d-1
10499     4         *t300*t32*t382*t526-4.0d+0*t195*t314*t526-6.5821231384082
10500     5         25d-2*gammaaa*t16*t163*t298*t52*t525+6.582123138408225d-2
10501     6         *t16*t25*t52*t525+6.582123138408225d-2*gammaaa*t16*t186*t
10502     7         25*t308*t525+1.316424627681645d-1*gammaaa*t16*t17*t298*t3
10503     8         66*t52*t524-6.582123138408225d-2*gammaaa*t16*t163*t299*t5
10504     9         2*t524-6.582123138408225d-2*t16*t163*t17*t52*t524-6.58212
10505     :         3138408225d-2*gammaaa*t16*t163*t17*t186*t308*t524+5.33333
10506     ;         3333333333d+0*t221*t222*t327*t522+5.333333333333333d+0*t2
10507     <         09*t222*t321*t522+1.316424627681645d-1*gammaaa*t16*t162*t
10508     =         298*t299*t366*t52+1.316424627681645d-1*t16*t162*t17*t298*
10509     >         t366*t52+1.75523283690886d-1*gammaaa*t152*t163*t298*t299*
10510     ?         t52-1.75523283690886d-1*t152*t25*t299*t52-6.5821231384082
10511     @         25d-2*t16*t162*t163*t299*t52+1.75523283690886d-1*t152*t16
10512     1         3*t17*t298*t52-6.582123138408225d-2*t16*t163*t165*t298*t5
10513     2         2+4.0d+0*t194*t300*t314*t409-6.582123138408225d-2*gammaaa
10514     3         *t16*t185*t25*t299*t308*t391+6.582123138408225d-2*gammaaa
10515     4         *t16*t163*t17*t185*t298*t308*t391-6.582123138408225d-2*t1
10516     5         6*t17*t185*t25*t308*t391+1.316424627681645d-1*gammaaa*t16
10517     6         *t162*t17*t186*t298*t308*t366+6.327946666666665d-1*t221*t
10518     7         222*t302*t321*t36-4.05868942797856d-2*t1*t213*t221*t222*t
10519     8         3*t300*t321*t35+5.333333333333333d+0*t220*t222*t321*t327-
10520     9         1.75523283690886d-1*gammaaa*t152*t186*t25*t299*t308-6.582
10521     :         123138408225d-2*gammaaa*t16*t162*t163*t186*t299*t308+1.75
10522     ;         523283690886d-1*gammaaa*t152*t163*t17*t186*t298*t308-6.58
10523     <         2123138408225d-2*gammaaa*t16*t163*t165*t186*t298*t308-1.7
10524     =         5523283690886d-1*t152*t17*t186*t25*t308+6.582123138408225
10525     >         d-2*t16*t165*t186*t25*t308-6.582123138408225d-2*t16*t162*
10526     ?         t163*t17*t186*t308-6.582123138408225d-2*gammaaa*t16*t163*
10527     @         t185*t186*t298*t299+6.582123138408225d-2*t16*t185*t186*t2
10528     1         5*t299-6.582123138408225d-2*t16*t163*t17*t185*t186*t298)-
10529     2         1.2407009817987999d+0*t2*(-8.888888888888888d-1*t639*t73*
10530     3         t75+2.6666666666666666d+0*t222*t641*t72*t75+5.33333333333
10531     4         3333d+0*t222*t321*t327*t75-8.888888888888888d-1*t633*t72*
10532     5         t73-1.0546577777777776d-1*t35*t36*t641*t73-1.777777777777
10533     6         7776d+0*t327*t522*t73-2.109315555555555d-1*t302*t321*t36*
10534     7         t73+1.3528964759928536d-2*t1*t213*t3*t300*t321*t35*t73+5.
10535     8         333333333333333d+0*t222*t321*t522*t72+t630+t629+t628+t627
10536     9         -2.0d+0*t195*t59*t624+t621+t614+t612+3.2910615692041123d-
10537     :         2*gammaaa*t16*t17*t186*t25*t609+t600+t598+t597+t596+3.163
10538     ;         9733333333325d-1*t222*t35*t36*t595+t594+t592-3.3822411899
10539     <         821336d-3*t1*t213*t3*t35*t38*t591+3.2910615692041123d-2*g
10540     =         ammaaa*t16*t25*t52*t590-3.2910615692041123d-2*gammaaa*t16
10541     >         *t163*t17*t52*t589+t586-6.582123138408225d-2*gammaaa*t16*
10542     ?         t163*t298*t299*t52+6.582123138408225d-2*t16*t25*t299*t52-
10543     @         6.582123138408225d-2*t16*t163*t17*t298*t52-6.764482379964
10544     1         267d-3*t1*t213*t3*t300*t302*t38-4.0d+0*t195*t300*t314+6.5
10545     2         82123138408225d-2*gammaaa*t16*t186*t25*t299*t308+6.582123
10546     3         138408225d-2*t16*t17*t186*t25*t308))*wght+Cmat3(iq,D3_RA_
10547     4         GAA_GAA)
10548            Cmat3(iq,D3_RA_GAA_GAB) = Cmat3(iq,D3_RA_GAA_GAB)
10549            Cmat3(iq,D3_RA_GAA_GBB) = Cmat3(iq,D3_RA_GAA_GBB)
10550            Cmat3(iq,D3_RA_GAB_GAB) = Cmat3(iq,D3_RA_GAB_GAB)
10551            Cmat3(iq,D3_RA_GAB_GBB) = Cmat3(iq,D3_RA_GAB_GBB)
10552            Cmat3(iq,D3_RA_GBB_GBB) = Cmat3(iq,D3_RA_GBB_GBB)
10553            Cmat3(iq,D3_RB_GAA_GAA) = Cmat3(iq,D3_RB_GAA_GAA)
10554            Cmat3(iq,D3_RB_GAA_GAB) = Cmat3(iq,D3_RB_GAA_GAB)
10555            Cmat3(iq,D3_RB_GAA_GBB) = Cmat3(iq,D3_RB_GAA_GBB)
10556            Cmat3(iq,D3_RB_GAB_GAB) = Cmat3(iq,D3_RB_GAB_GAB)
10557            Cmat3(iq,D3_RB_GAB_GBB) = Cmat3(iq,D3_RB_GAB_GBB)
10558            Cmat3(iq,D3_RB_GBB_GBB) = (-9.305257363491d-1*t97*(-8.888888
10559     1         888888888d-1*t146*t147*(4.9365923538061685d-2*t1*t105*t78
10560     2         *(1.6666666666666666d-1*t1*t286*t651*t98-2.5d-1*t1*t350*t
10561     3         645*t98-5.0d-1*t1*t286*t78*t904+7.5d-1*t1*t240*t350*t651*
10562     4         t78-1.875d+0*t1*t240*t575*t645*t78+1.5d+0*t1*t332*t350*t5
10563     5         59*t78)+4.810434144489082d-2*t1*t286*t651*t98-7.215651216
10564     6         733623d-2*t1*t350*t645*t98-1.4431302433467247d-1*t1*t286*
10565     7         t78*t904+2.164695365020087d-1*t1*t240*t350*t651*t78-2.468
10566     8         2961769030842d-2*t1*t286*t292*t651*t78-5.411738412550218d
10567     9         -1*t1*t240*t575*t645*t78+3.7024442653546263d-2*t1*t292*t3
10568     :         50*t645*t78-4.9365923538061685d-2*t1*t286*t332*t581*t78+4
10569     ;         .329390730040174d-1*t1*t332*t350*t559*t78)+5.273288888888
10570     <         887d-2*t110*t113*(2.1379707308840368d-2*t1*t286*t651*t98-
10571     =         3.206956096326055d-2*t1*t350*t645*t98-6.41391219265211d-2
10572     >         *t1*t286*t78*t904+9.620868288978166d-2*t1*t240*t350*t651*
10573     ?         t78-2.4052170722445415d-1*t1*t240*t575*t645*t78+1.9241736
10574     @         57795633d-1*t1*t332*t350*t559*t78)+2.6666666666666666d+0*
10575     1         t146*t149*t295*t922-1.0546577777777776d-1*t110*t111*t147*
10576     2         t922-4.727288888888889d-2*t103*t284*t921-1.55577987887478
10577     3         31d-3*t114*t240*t39*t465*t645*t920-8.888888888888888d-1*t
10578     4         147*t149*(-2.4d+0*t142*(6.41391219265211d-2*t279*(-gammab
10579     5         b*t236*t902*t91*t92-6*gammabb*t235*t647*t783*t91*t92+2*ga
10580     6         mmabb*t235*t445*t649*t91*t92+4*gammabb*t330*t445*t557*t91
10581     7         *t92-2*t236*t557*t91*t92+4*t235*t330*t445*t91*t92+2.66666
10582     8         66666666666d+0*gammabb*t225*t236*t649*t92-5.3333333333333
10583     9         33d+0*gammabb*t225*t445*t647*t92+5.333333333333333d+0*t22
10584     :         5*t236*t330*t92+gammabb*t100*t903*t91-gammabb*t235*t236*t
10585     ;         650*t91-gammabb*t236*t238*t649*t91+2*gammabb*t238*t445*t6
10586     <         47*t91-2*gammabb*t236*t330*t558*t91+2*t100*t558*t91-2*gam
10587     =         mabb*t236*t331*t557*t91+4*gammabb*t235*t330*t331*t445*t91
10588     >         -2*t235*t236*t331*t91-2*t236*t238*t330*t91-2.666666666666
10589     ?         6666d+0*gammabb*t100*t225*t650+5.333333333333333d+0*gamma
10590     @         bb*t225*t236*t330*t331-5.333333333333333d+0*t100*t225*t33
10591     1         1)-5.0d-1*t278*t904-3.75d-1*t261*t645*t836+4.810434144489
10592     2         083d-2*t280*t696*t835-3.206956096326055d-2*t280*t507*t697
10593     3         +2.5d-1*t261*t509*t651-6.41391219265211d-2*t357*t507*t576
10594     4         +5.0d-1*t332*t509*t559)+4.7459599999999996d-2*t140*t905-8
10595     5         .400000000000001d+0*t145*t277*t904-4.9628707825354457d+0*
10596     6         t277*t904-2.7259596d+0*t141*t904+5.672746666666666d-2*t14
10597     7         0*t904+4.7459599999999996d-2*t110*t904-3.15d+1*t145*t261*
10598     8         t645*t834-1.8610765434507923d+1*t261*t645*t834-8.40000000
10599     9         0000001d+0*t261*t277*t698+4.7459599999999996d-2*t261*t653
10600     :         -2.1d+1*t145*t261*t506*t651-1.2407176956338616d+1*t261*t5
10601     ;         06*t651-8.400000000000001d+0*t277*t281*t651-5.4519192d+0*
10602     <         t140*t261*t651+5.672746666666666d-2*t261*t651+4.745959999
10603     =         9999996d-2*t242*t651-2.1d+1*t281*t506*t645-5.4519192d+0*t
10604     >         261*t645-1.68d+1*t277*t332*t577+9.491919999999999d-2*t332
10605     ?         *t560-4.2d+1*t145*t332*t506*t559-2.481435391267723d+1*t33
10606     @         2*t506*t559-1.68d+1*t277*t358*t559+9.491919999999999d-2*t
10607     1         334*t559-1.0903838400000002d+1*t140*t332*t559+1.134549333
10608     2         3333331d-1*t332*t559-4.2d+1*t261*t332*t358*t506)+7.57211d
10609     3         -1*(-1.6455307846020562d-2*gammabb*t100*t139*t273*t91*t91
10610     4         9*t92-1.6455307846020562d-2*gammabb*t100*t135*t275*t91*(t
10611     5         914+t913+t912+t911)*t92-1.6455307846020562d-2*gammabb*t13
10612     6         5*t139*t236*t902*t91*t92-2.4682961769030842d-2*gammabb*t1
10613     7         00*t135*t274*t645*t680*t832*t91*t92-9.873184707612337d-2*
10614     8         gammabb*t100*t139*t272*t676*t830*t91*t92-9.87318470761233
10615     9         7d-2*gammabb*t135*t139*t235*t647*t783*t91*t92-8.227653923
10616     :         010281d-3*gammabb*t100*t272*t273*t503*t645*t680*t91*t92-8
10617     ;         .227653923010281d-3*gammabb*t135*t235*t236*t503*t645*t680
10618     <         *t91*t92+3.2910615692041123d-2*gammabb*t100*t139*t272*t50
10619     =         0*t679*t91*t92+1.6455307846020562d-2*gammabb*t100*t273*t2
10620     >         74*t275*t679*t91*t92+1.6455307846020562d-2*gammabb*t139*t
10621     ?         235*t236*t273*t679*t91*t92-3.2910615692041123d-2*gammabb*
10622     @         t100*t274*t275*t500*t676*t91*t92-3.2910615692041123d-2*ga
10623     1         mmabb*t139*t235*t236*t500*t676*t91*t92+1.6455307846020562
10624     2         d-2*gammabb*t100*t135*t254*t274*t503*t651*t91*t92+8.22765
10625     3         3923010281d-3*gammabb*t100*t254*t272*t273*t275*t651*t91*t
10626     4         92+8.227653923010281d-3*gammabb*t135*t235*t236*t254*t275*
10627     5         t651*t91*t92+3.2910615692041123d-2*gammabb*t135*t139*t235
10628     6         *t445*t649*t91*t92+1.6455307846020562d-2*gammabb*t135*t23
10629     7         6*t274*t275*t649*t91*t92+1.6455307846020562d-2*gammabb*t1
10630     8         39*t236*t272*t273*t649*t91*t92-3.2910615692041123d-2*gamm
10631     9         abb*t135*t274*t275*t445*t647*t91*t92-3.2910615692041123d-
10632     :         2*gammabb*t139*t272*t273*t445*t647*t91*t92-8.227653923010
10633     ;         281d-3*gammabb*t100*t135*t274*t481*t503*t645*t91*t92-4.11
10634     <         38269615051404d-3*gammabb*t100*t272*t273*t275*t481*t645*t
10635     =         91*t92-4.1138269615051404d-3*gammabb*t135*t235*t236*t275*
10636     >         t481*t645*t91*t92+3.2910615692041123d-2*gammabb*t100*t135
10637     ?         *t254*t332*t503*t574*t91*t92+3.2910615692041123d-2*gammab
10638     @         b*t100*t273*t275*t348*t574*t91*t92+3.2910615692041123d-2*
10639     1         gammabb*t135*t236*t275*t330*t574*t91*t92-3.29106156920411
10640     2         23d-2*t100*t135*t275*t574*t91*t92+6.582123138408225d-2*ga
10641     3         mmabb*t100*t139*t348*t500*t573*t91*t92+1.6455307846020562
10642     4         d-2*gammabb*t100*t254*t273*t275*t332*t573*t91*t92+3.29106
10643     5         15692041123d-2*gammabb*t139*t236*t273*t330*t573*t91*t92-3
10644     6         .2910615692041123d-2*t100*t139*t273*t573*t91*t92+6.582123
10645     7         138408225d-2*gammabb*t135*t139*t330*t445*t557*t91*t92+3.2
10646     8         910615692041123d-2*gammabb*t139*t236*t273*t348*t557*t91*t
10647     9         92+1.6455307846020562d-2*gammabb*t135*t236*t254*t275*t332
10648     :         *t557*t91*t92-3.2910615692041123d-2*t135*t139*t236*t557*t
10649     ;         91*t92-3.2910615692041123d-2*gammabb*t100*t254*t273*t274*
10650     <         t332*t348*t503*t91*t92-3.2910615692041123d-2*gammabb*t135
10651     =         *t236*t254*t274*t330*t332*t503*t91*t92+3.2910615692041123
10652     >         d-2*t100*t135*t254*t274*t332*t503*t91*t92-3.2910615692041
10653     ?         123d-2*gammabb*t100*t254*t272*t275*t332*t348*t500*t91*t92
10654     @         -6.582123138408225d-2*gammabb*t139*t236*t272*t330*t348*t5
10655     1         00*t91*t92+6.582123138408225d-2*t100*t139*t272*t348*t500*
10656     2         t91*t92-6.582123138408225d-2*gammabb*t139*t235*t273*t330*
10657     3         t348*t445*t91*t92-3.2910615692041123d-2*gammabb*t135*t235
10658     4         *t254*t275*t330*t332*t445*t91*t92+6.582123138408225d-2*t1
10659     5         35*t139*t235*t330*t445*t91*t92-1.6455307846020562d-2*gamm
10660     6         abb*t235*t236*t254*t273*t275*t332*t348*t91*t92-3.29106156
10661     7         92041123d-2*gammabb*t236*t273*t274*t275*t330*t348*t91*t92
10662     8         +3.2910615692041123d-2*t100*t273*t274*t275*t348*t91*t92+3
10663     9         .2910615692041123d-2*t139*t235*t236*t273*t348*t91*t92-1.6
10664     :         455307846020562d-2*gammabb*t236*t254*t272*t273*t275*t330*
10665     ;         t332*t91*t92+1.6455307846020562d-2*t100*t254*t272*t273*t2
10666     <         75*t332*t91*t92+1.6455307846020562d-2*t135*t235*t236*t254
10667     =         *t275*t332*t91*t92+3.2910615692041123d-2*t135*t236*t274*t
10668     >         275*t330*t91*t92+3.2910615692041123d-2*t139*t236*t272*t27
10669     ?         3*t330*t91*t92-2.194041046136075d-2*gammabb*t100*t135*t22
10670     @         5*t503*t645*t680*t92+4.38808209227215d-2*gammabb*t100*t13
10671     1         9*t225*t273*t679*t92-8.7761641845443d-2*gammabb*t100*t139
10672     2         *t225*t500*t676*t92+2.194041046136075d-2*gammabb*t100*t13
10673     3         5*t225*t254*t275*t651*t92+4.38808209227215d-2*gammabb*t13
10674     4         5*t139*t225*t236*t649*t92-8.7761641845443d-2*gammabb*t135
10675     5         *t139*t225*t445*t647*t92-1.0970205230680374d-2*gammabb*t1
10676     6         00*t135*t225*t275*t481*t645*t92-4.38808209227215d-2*gamma
10677     7         bb*t100*t225*t254*t273*t275*t332*t348*t92-8.7761641845443
10678     8         d-2*gammabb*t139*t225*t236*t273*t330*t348*t92+8.776164184
10679     9         5443d-2*t100*t139*t225*t273*t348*t92-4.38808209227215d-2*
10680     :         gammabb*t135*t225*t236*t254*t275*t330*t332*t92+4.38808209
10681     ;         227215d-2*t100*t135*t225*t254*t275*t332*t92+8.77616418454
10682     <         43d-2*t135*t139*t225*t236*t330*t92-t133*t137*t273*t919-t1
10683     =         33*t135*t271*(t918+t917+t916+t915)+1.6455307846020562d-2*
10684     >         gammabb*t100*t135*t139*t903*t91+8.227653923010281d-3*gamm
10685     ?         abb*t100*t135*t238*t503*t645*t680*t91-1.6455307846020562d
10686     @         -2*gammabb*t100*t139*t238*t273*t679*t91+3.291061569204112
10687     1         3d-2*gammabb*t100*t139*t238*t500*t676*t91-8.2276539230102
10688     2         81d-3*gammabb*t100*t135*t238*t254*t275*t651*t91-1.6455307
10689     3         846020562d-2*gammabb*t100*t135*t274*t275*t650*t91-1.64553
10690     4         07846020562d-2*gammabb*t100*t139*t272*t273*t650*t91-1.645
10691     5         5307846020562d-2*gammabb*t135*t139*t235*t236*t650*t91-1.6
10692     6         455307846020562d-2*gammabb*t135*t139*t236*t238*t649*t91+3
10693     7         .2910615692041123d-2*gammabb*t135*t139*t238*t445*t647*t91
10694     8         +4.1138269615051404d-3*gammabb*t100*t135*t238*t275*t481*t
10695     9         645*t91-3.2910615692041123d-2*gammabb*t100*t135*t275*t331
10696     :         *t574*t91-3.2910615692041123d-2*gammabb*t100*t139*t273*t3
10697     ;         31*t573*t91-3.2910615692041123d-2*gammabb*t100*t139*t273*
10698     <         t348*t558*t91-1.6455307846020562d-2*gammabb*t100*t135*t25
10699     =         4*t275*t332*t558*t91-3.2910615692041123d-2*gammabb*t135*t
10700     >         139*t236*t330*t558*t91+3.2910615692041123d-2*t100*t135*t1
10701     ?         39*t558*t91-3.2910615692041123d-2*gammabb*t135*t139*t236*
10702     @         t331*t557*t91+3.2910615692041123d-2*gammabb*t100*t135*t25
10703     1         4*t274*t331*t332*t503*t91+6.582123138408225d-2*gammabb*t1
10704     2         00*t139*t272*t331*t348*t500*t91+6.582123138408225d-2*gamm
10705     3         abb*t135*t139*t235*t330*t331*t445*t91+1.6455307846020562d
10706     4         -2*gammabb*t100*t238*t254*t273*t275*t332*t348*t91+3.29106
10707     5         15692041123d-2*gammabb*t100*t273*t274*t275*t331*t348*t91+
10708     6         3.2910615692041123d-2*gammabb*t139*t235*t236*t273*t331*t3
10709     7         48*t91+3.2910615692041123d-2*gammabb*t139*t236*t238*t273*
10710     8         t330*t348*t91-3.2910615692041123d-2*t100*t139*t238*t273*t
10711     9         348*t91+1.6455307846020562d-2*gammabb*t100*t254*t272*t273
10712     :         *t275*t331*t332*t91+1.6455307846020562d-2*gammabb*t135*t2
10713     ;         35*t236*t254*t275*t331*t332*t91+1.6455307846020562d-2*gam
10714     <         mabb*t135*t236*t238*t254*t275*t330*t332*t91-1.64553078460
10715     =         20562d-2*t100*t135*t238*t254*t275*t332*t91+3.291061569204
10716     >         1123d-2*gammabb*t135*t236*t274*t275*t330*t331*t91+3.29106
10717     ?         15692041123d-2*gammabb*t139*t236*t272*t273*t330*t331*t91-
10718     @         3.2910615692041123d-2*t100*t135*t274*t275*t331*t91-3.2910
10719     1         615692041123d-2*t100*t139*t272*t273*t331*t91-3.2910615692
10720     2         041123d-2*t135*t139*t235*t236*t331*t91-3.2910615692041123
10721     3         d-2*t135*t139*t236*t238*t330*t91+t135*t137*t904-6*t133*t1
10722     4         37*t272*t676*t830-1.5d+0*t133*t135*t270*t645*t675*t828+2*
10723     5         t133*t137*t272*t500*t679+t133*t270*t271*t273*t679-t137*t2
10724     6         61*t273*t679-2*t133*t270*t271*t500*t676+2*t137*t261*t500*
10725     7         t676-5.0d-1*t133*t272*t273*t497*t645*t675+5.0d-1*t135*t26
10726     8         1*t497*t645*t675+t133*t135*t263*t270*t497*t651+5.0d-1*t13
10727     9         3*t263*t271*t272*t273*t651-t137*t272*t273*t651-t135*t270*
10728     :         t271*t651-5.0d-1*t135*t261*t263*t271*t651-4.3880820922721
10729     ;         5d-2*gammabb*t100*t135*t139*t225*t650-5.0d-1*t133*t135*t2
10730     <         70*t491*t497*t645+2*t135*t263*t270*t497*t645-2.5d-1*t133*
10731     =         t271*t272*t273*t491*t645+2.5d-1*t135*t261*t271*t491*t645+
10732     >         t263*t271*t272*t273*t645+4*t133*t137*t348*t500*t573+t133*
10733     ?         t263*t271*t273*t332*t573-2*t137*t273*t332*t573+2*t133*t13
10734     @         5*t263*t332*t497*t572+2*t133*t271*t273*t348*t572-2*t135*t
10735     1         271*t332*t572-2*t137*t273*t348*t559-t135*t263*t271*t332*t
10736     2         559-2*t133*t263*t271*t272*t332*t348*t500+4*t137*t272*t332
10737     3         *t348*t500-2*t133*t263*t270*t273*t332*t348*t497+2*t270*t2
10738     4         71*t273*t332*t348+t261*t263*t271*t273*t332*t348+8.7761641
10739     5         845443d-2*gammabb*t100*t139*t225*t273*t331*t348+4.3880820
10740     6         9227215d-2*gammabb*t100*t135*t225*t254*t275*t331*t332+8.7
10741     7         761641845443d-2*gammabb*t135*t139*t225*t236*t330*t331-8.7
10742     8         761641845443d-2*t100*t135*t139*t225*t331)+3.2910615692041
10743     9         123d-2*gammabb*t100*t259*t91*(6.0965d-1*t124*t257*(t914+t
10744     :         913+t912+t911+t909+t908+t907+t906)+6.0965d-1*t121*t253*t9
10745     ;         10+3.6579d+0*t124*t256*t663*t816+9.14475d-1*t121*t252*t64
10746     <         5*t662*t808-1.2193000000000001d+0*t124*t256*t480*t668-6.0
10747     =         965d-1*t252*t253*t257*t668+1.2193000000000001d+0*t252*t25
10748     >         3*t480*t663+3.04825d-1*t256*t257*t472*t645*t662-6.0965d-1
10749     ?         *t121*t249*t252*t472*t651-3.04825d-1*t249*t253*t256*t257*
10750     @         t651+3.04825d-1*t121*t252*t472*t474*t645+1.524125d-1*t253
10751     1         *t256*t257*t474*t645-2.4386000000000002d+0*t124*t339*t480
10752     2         *t566-6.0965d-1*t249*t253*t257*t332*t566-1.21930000000000
10753     3         01d+0*t121*t249*t332*t472*t563-1.2193000000000001d+0*t253
10754     4         *t257*t339*t563+1.2193000000000001d+0*t249*t253*t256*t332
10755     5         *t339*t480+1.2193000000000001d+0*t249*t252*t257*t332*t339
10756     6         *t472)*t92-3.2910615692041123d-2*gammabb*t126*t236*t902*t
10757     7         91*t92+6.582123138408225d-2*gammabb*t100*t258*t659*t806*t
10758     8         91*t92-1.9746369415224674d-1*gammabb*t126*t235*t647*t783*
10759     9         t91*t92-3.2910615692041123d-2*gammabb*t100*t258*t470*t669
10760     :         *t91*t92-3.2910615692041123d-2*gammabb*t235*t236*t259*t66
10761     ;         9*t91*t92+3.2910615692041123d-2*gammabb*t235*t236*t470*t6
10762     <         59*t91*t92+6.582123138408225d-2*gammabb*t126*t235*t445*t6
10763     =         49*t91*t92-3.2910615692041123d-2*gammabb*t236*t258*t259*t
10764     >         649*t91*t92+6.582123138408225d-2*gammabb*t258*t259*t445*t
10765     ?         647*t91*t92-6.582123138408225d-2*gammabb*t100*t340*t470*t
10766     @         567*t91*t92-6.582123138408225d-2*gammabb*t236*t259*t330*t
10767     1         567*t91*t92+6.582123138408225d-2*t100*t259*t567*t91*t92+1
10768     2         .316424627681645d-1*gammabb*t126*t330*t445*t557*t91*t92-6
10769     3         .582123138408225d-2*gammabb*t236*t259*t340*t557*t91*t92-6
10770     4         .582123138408225d-2*t126*t236*t557*t91*t92+6.582123138408
10771     5         225d-2*gammabb*t236*t258*t330*t340*t470*t91*t92-6.5821231
10772     6         38408225d-2*t100*t258*t340*t470*t91*t92+1.316424627681645
10773     7         d-1*gammabb*t235*t259*t330*t340*t445*t91*t92+1.3164246276
10774     8         81645d-1*t126*t235*t330*t445*t91*t92-6.582123138408225d-2
10775     9         *t235*t236*t259*t340*t91*t92-6.582123138408225d-2*t236*t2
10776     :         58*t259*t330*t91*t92-8.7761641845443d-2*gammabb*t100*t225
10777     ;         *t259*t669*t92+8.7761641845443d-2*gammabb*t100*t225*t470*
10778     <         t659*t92+8.7761641845443d-2*gammabb*t126*t225*t236*t649*t
10779     =         92-1.75523283690886d-1*gammabb*t126*t225*t445*t647*t92+1.
10780     >         75523283690886d-1*gammabb*t225*t236*t259*t330*t340*t92-1.
10781     ?         75523283690886d-1*t100*t225*t259*t340*t92+1.7552328369088
10782     @         6d-1*t126*t225*t236*t330*t92-2.0d+0*t133*t268*(-1.4756099
10783     1         99999999d-1*t124*t266*(t918+t917+t916+t915+t909+t908+t907
10784     2         +t906)-1.475609999999999d-1*t130*t253*t910-8.853659999999
10785     3         993d-1*t124*t265*t682*t823-2.2134149999999983d-1*t130*t25
10786     4         2*t645*t662*t808+2.951219999999998d-1*t124*t265*t490*t683
10787     5         +1.475609999999999d-1*t252*t253*t266*t683-2.9512199999999
10788     6         98d-1*t252*t253*t490*t682-7.378049999999994d-2*t265*t266*
10789     7         t472*t645*t662+1.475609999999999d-1*t130*t249*t252*t472*t
10790     8         651+7.378049999999994d-2*t249*t253*t265*t266*t651-7.37804
10791     9         9999999994d-2*t130*t252*t472*t474*t645-3.689024999999997d
10792     :         -2*t253*t265*t266*t474*t645+5.902439999999995d-1*t124*t34
10793     ;         5*t490*t570+1.475609999999999d-1*t249*t253*t266*t332*t570
10794     <         +2.951219999999998d-1*t130*t249*t332*t472*t563+2.95121999
10795     =         9999998d-1*t253*t266*t345*t563-2.951219999999998d-1*t249*
10796     >         t253*t265*t332*t345*t490-2.951219999999998d-1*t249*t252*t
10797     ?         266*t332*t345*t472)+3.2910615692041123d-2*gammabb*t100*t1
10798     @         26*t903*t91+3.2910615692041123d-2*gammabb*t100*t238*t259*
10799     1         t669*t91-3.2910615692041123d-2*gammabb*t100*t238*t470*t65
10800     2         9*t91+3.2910615692041123d-2*gammabb*t100*t258*t259*t650*t
10801     3         91-3.2910615692041123d-2*gammabb*t126*t235*t236*t650*t91-
10802     4         3.2910615692041123d-2*gammabb*t126*t236*t238*t649*t91+6.5
10803     5         82123138408225d-2*gammabb*t126*t238*t445*t647*t91+6.58212
10804     6         3138408225d-2*gammabb*t100*t259*t331*t567*t91+6.582123138
10805     7         408225d-2*gammabb*t100*t259*t340*t558*t91-6.5821231384082
10806     8         25d-2*gammabb*t126*t236*t330*t558*t91+6.582123138408225d-
10807     9         2*t100*t126*t558*t91-6.582123138408225d-2*gammabb*t126*t2
10808     :         36*t331*t557*t91-6.582123138408225d-2*gammabb*t100*t258*t
10809     ;         331*t340*t470*t91+1.316424627681645d-1*gammabb*t126*t235*
10810     <         t330*t331*t445*t91-6.582123138408225d-2*gammabb*t235*t236
10811     =         *t259*t331*t340*t91-6.582123138408225d-2*gammabb*t236*t23
10812     >         8*t259*t330*t340*t91+6.582123138408225d-2*t100*t238*t259*
10813     ?         t340*t91-6.582123138408225d-2*gammabb*t236*t258*t259*t330
10814     @         *t331*t91+6.582123138408225d-2*t100*t258*t259*t331*t91-6.
10815     1         582123138408225d-2*t126*t235*t236*t331*t91-6.582123138408
10816     2         225d-2*t126*t236*t238*t330*t91+5.273288888888887d-2*t111*
10817     3         t113*t905-4.727288888888889d-2*t107*t224*t904-2.0d+0*t132
10818     4         *t904+3.3352457426896626d-2*t1*t240*t284*t645*t78*t878-4.
10819     5         0d+0*t133*t267*t673*t822+5.333333333333333d+1*t146*t149*t
10820     6         294*t655*t805-4.667339636624349d-3*t114*t287*t39*t645*t68
10821     7         6*t803-6.064083168526658d-3*t1*t240*t284*t575*t651*t78-1.
10822     8         2128166337053317d-2*t1*t287*t350*t465*t651*t78+6.76448237
10823     9         9964267d-3*t1*t110*t147*t286*t294*t651*t78-3.382241189982
10824     :         1336d-3*t1*t113*t242*t286*t651*t78+4.244858217968661d-2*t
10825     ;         1*t287*t465*t575*t645*t78-1.01467235699464d-2*t1*t110*t14
10826     <         7*t294*t350*t645*t78+5.0733617849732d-3*t1*t113*t242*t350
10827     =         *t645*t78+1.3528964759928536d-2*t1*t110*t147*t286*t332*t5
10828     >         83*t78-2.4256332674106634d-2*t1*t332*t350*t465*t580*t78-1
10829     ?         .2128166337053317d-2*t1*t284*t332*t559*t575*t78-6.7644823
10830     @         79964267d-3*t1*t113*t286*t332*t560*t78-4.05868942797856d-
10831     1         2*t1*t110*t286*t294*t295*t332*t353*t78+1.3528964759928536
10832     2         d-2*t1*t147*t242*t286*t332*t353*t78+1.3528964759928536d-2
10833     3         *t1*t147*t286*t294*t332*t334*t78-1.0666666666666666d+1*t1
10834     4         46*t149*t294*t468*t701+3.1639733333333325d-1*t110*t111*t2
10835     5         94*t295*t701+2.6666666666666666d+0*t146*t293*t295*t701+2.
10836     6         6666666666666666d+0*t149*t282*t295*t701-1.054657777777777
10837     7         6d-1*t110*t147*t289*t701-1.0546577777777776d-1*t111*t147*
10838     8         t242*t701+2.6666666666666666d+0*t149*t294*t295*t699-8.888
10839     9         888888888888d-1*t147*t293*t699+2.6666666666666666d+0*t146
10840     :         *t294*t295*t693-8.888888888888888d-1*t147*t282*t693-2.836
10841     ;         3733333333335d-1*t107*t240*t645*t686+2.0d+0*t133*t267*t48
10842     <         8*t684-2.0d+0*t261*t268*t684+2.0d+0*t261*t488*t673-1.2655
10843     =         89333333333d+0*t110*t111*t294*t468*t655-1.066666666666666
10844     >         6d+1*t146*t293*t468*t655-1.0666666666666666d+1*t149*t282*
10845     ?         t468*t655+3.1639733333333325d-1*t110*t289*t295*t655+3.163
10846     @         9733333333325d-1*t111*t242*t295*t655-1.0546577777777776d-
10847     1         1*t111*t147*t294*t653+5.273288888888887d-2*t113*t289*t653
10848     2         +9.454577777777778d-2*t107*t240*t461*t651+4.7272888888888
10849     3         89d-2*t224*t284*t287*t651-2.0d+0*t267*t268*t651-8.7761641
10850     4         845443d-2*gammabb*t100*t126*t225*t650-9.454577777777778d-
10851     5         2*t284*t287*t461*t645+5.333333333333333d+0*t146*t295*t555
10852     6         *t583-2.1333333333333332d+1*t146*t149*t353*t468*t583+5.33
10853     7         3333333333333d+0*t149*t295*t359*t583+6.327946666666665d-1
10854     8         *t110*t111*t295*t353*t583-2.109315555555555d-1*t111*t147*
10855     9         t334*t583-1.7777777777777776d+0*t147*t359*t582+5.33333333
10856     :         3333333d+0*t146*t295*t353*t582+9.454577777777778d-2*t224*
10857     ;         t284*t332*t580-2.109315555555555d-1*t110*t147*t353*t579+1
10858     <         .0546577777777776d-1*t113*t334*t579-1.7777777777777776d+0
10859     =         *t147*t555*t578+5.333333333333333d+0*t149*t295*t353*t578+
10860     >         4.0d+0*t133*t346*t488*t571-4.0d+0*t268*t332*t571-2.109315
10861     ?         555555555d-1*t111*t147*t353*t560+1.8909155555555557d-1*t1
10862     @         07*t332*t461*t559-4.0d+0*t268*t346*t559-2.133333333333333
10863     1         2d+1*t146*t294*t353*t468*t555+5.333333333333333d+0*t294*t
10864     2         295*t359*t555+5.333333333333333d+0*t282*t295*t353*t555+4.
10865     3         0d+0*t267*t332*t346*t488-2.1333333333333332d+1*t149*t294*
10866     4         t353*t359*t468+5.333333333333333d+0*t293*t295*t353*t359+6
10867     5         .327946666666665d-1*t111*t294*t295*t334*t353-2.1093155555
10868     6         55555d-1*t147*t289*t334*t353-1.75523283690886d-1*gammabb*
10869     7         t100*t225*t259*t331*t340+1.75523283690886d-1*gammabb*t126
10870     8         *t225*t236*t330*t331-1.75523283690886d-1*t100*t126*t225*t
10871     9         331)-1.2407009817987999d+0*t77*(3.2910615692041123d-2*gam
10872     :         mabb*t100*t259*t669*t91*t92-3.2910615692041123d-2*gammabb
10873     ;         *t126*t236*t649*t91*t92+6.582123138408225d-2*t100*t259*t3
10874     <         40*t91*t92-6.582123138408225d-2*t126*t236*t330*t91*t92+3.
10875     =         2910615692041123d-2*gammabb*t100*t126*t650*t91+6.58212313
10876     >         8408225d-2*gammabb*t100*t259*t331*t340*t91-6.582123138408
10877     ?         225d-2*gammabb*t126*t236*t330*t331*t91+6.582123138408225d
10878     @         -2*t100*t126*t331*t91-3.3822411899821336d-3*t1*t110*t113*
10879     1         t286*t651*t78+1.3528964759928536d-2*t1*t110*t147*t286*t33
10880     2         2*t353*t78-6.764482379964267d-3*t1*t113*t286*t332*t334*t7
10881     3         8+2.6666666666666666d+0*t146*t149*t295*t701-1.05465777777
10882     4         77776d-1*t110*t111*t147*t701-8.888888888888888d-1*t147*t1
10883     5         49*t699-8.888888888888888d-1*t146*t147*t693+t690+t689+t68
10884     6         8+t687-2.0d+0*t133*t268*t684+t681+t674+t672+t660+t658+t65
10885     7         7+t656+3.1639733333333325d-1*t110*t111*t295*t655+t654+t65
10886     8         2+t646-1.7777777777777776d+0*t147*t359*t555+5.33333333333
10887     9         3333d+0*t146*t295*t353*t555+5.333333333333333d+0*t149*t29
10888     :         5*t353*t359-2.109315555555555d-1*t111*t147*t334*t353-4.0d
10889     ;         +0*t268*t332*t346))*wght+Cmat3(iq,D3_RB_GBB_GBB)
10890            Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA)-9.305257
10891     1         363491d-1*t22*(t222*(2.6666666666666666d+0*t72*t75*t942+5
10892     2         .333333333333333d+0*t327*t641*t75+2.6666666666666666d+0*t
10893     3         321*t639*t75+5.333333333333333d+0*t324*t641*t72+2.6666666
10894     4         666666666d+0*t321*t633*t72-3.0d+0*t321*t643-3.0d+0*t321*(
10895     5         t642+t640+t635+t634+t632-1.0546577777777776d-1*t302*t321*
10896     6         t36)-3.0d+0*t328*t641+5.333333333333333d+0*t321*t324*t327
10897     7         )+t73*(-1.0546577777777776d-1*t35*t36*t942-8.888888888888
10898     8         888d-1*t75*(4.7459599999999996d-2*t66*t928-2.4d+0*t68*(-5
10899     9         .0d-1*t205*t927+6.41391219265211d-2*t206*(gammaaa*t16*t25
10900     :         *t926-gammaaa*t16*t163*t17*t925-6*gammaaa*t16*t17*t716*t9
10901     ;         24-3*gammaaa*t16*t163*t298*t590+3*t16*t25*t590+6*gammaaa*
10902     <         t16*t17*t298*t366*t589-3*gammaaa*t16*t163*t299*t589-3*t16
10903     =         *t163*t17*t589+6*gammaaa*t16*t299*t366*t587+6*t16*t17*t36
10904     >         6*t587-6*t16*t163*t298*t299)-3.75d-1*t769*t923+4.81043414
10905     ?         4489083d-2*t325**3*t768-9.620868288978166d-2*t325*t428*t6
10906     @         37+7.5d-1*t300*t430*t591)-8.400000000000001d+0*t204*t71*t
10907     1         927-2.7259596d+0*t67*t927+5.672746666666666d-2*t66*t927+4
10908     2         .7459599999999996d-2*t35*t927-4.9628707825354457d+0*t204*
10909     3         t927-3.15d+1*t71*t767*t923-1.8610765434507923d+1*t767*t92
10910     4         3-5.4519192d+0*t923-6.3d+1*t300*t427*t591*t71-1.635575760
10911     5         0000004d+1*t300*t591*t66-2.52d+1*t204*t300*t638+1.423788d
10912     6         -1*t300*t593-3.7221530869015845d+1*t300*t427*t591-2.52d+1
10913     7         *t204*t326*t591+1.423788d-1*t302*t591+1.7018239999999996d
10914     8         -1*t300*t591-6.3d+1*t326*t427*t585)-8.888888888888888d-1*
10915     9         t72*(-2.4682961769030842d-2*t151*t39*t40*t927-1.443130243
10916     :         3467247d-1*t1*t213*t3*t927-1.4809777061418505d-1*t39*t40*
10917     ;         t626*t923-5.411738412550218d-1*t1*t3*t542*t923+1.48097770
10918     <         61418505d-1*t300*t382*t39*t40*t591+6.494086095060261d-1*t
10919     =         1*t3*t300*t318*t591)-3.1639733333333325d-1*t302*t36*t641+
10920     >         1.3528964759928536d-2*t1*t213*t3*t300*t35*t641-2.66666666
10921     ?         66666666d+0*t324*t639-2.6666666666666666d+0*t327*t633-3.1
10922     @         639733333333325d-1*t321*t36*t593+6.764482379964267d-3*t1*
10923     1         t213*t3*t321*t35*t591-1.01467235699464d-2*t1*t3*t318*t321
10924     2         *t35*t585+2.02934471398928d-2*t1*t213*t3*t300*t302*t321)+
10925     3         5.987181320518676d-4*t736*t923*t941/(rhoa*t29**11)+7.5721
10926     4         1d-1*(-1.6455307846020562d-2*gammaaa*t16*t17*t200*t25*t65
10927     5         *t940-t200*t59*t63*t940-9.873184707612337d-2*gammaaa*t16*
10928     6         t17*t25*t65*t763*t936-6*t59*t63*t763*t936+t61*t63*t927-5.
10929     7         0d-1*t190*t198*t59*t61*t927-8.227653923010281d-3*gammaaa*
10930     8         t16*t17*t181*t202*t25*t61*t927+1.6455307846020562d-2*gamm
10931     9         aaa*t16*t25*t61*t65*t926-1.6455307846020562d-2*gammaaa*t1
10932     :         6*t163*t17*t61*t65*t925-9.873184707612337d-2*gammaaa*t16*
10933     ;         t17*t61*t65*t716*t924-1.2341480884515421d-2*gammaaa*t16*t
10934     <         17*t25*t402*t61*t765*t923-7.5d-1*t412*t59*t61*t761*t923-3
10935     =         .75d-1*t198*t59*t61*t757*t923-6.170740442257711d-3*gammaa
10936     >         a*t16*t17*t202*t25*t61*t750*t923+1.5d+0*t418*t61*t615*t92
10937     ?         3-7.5d-1*t418*t59*t61*t923/t53**2-1.2341480884515421d-2*g
10938     @         ammaaa*t16*t17*t25*t424*t61*t923/t42**2+7.5d-1*t198*t412*
10939     1         t61*t923+9.873184707612337d-2*gammaaa*t16*t17*t25*t316*t4
10940     2         21*t619*t65-4.9365923538061685d-2*gammaaa*t16*t200*t25*t2
10941     3         99*t619*t65+4.9365923538061685d-2*gammaaa*t16*t163*t17*t2
10942     4         00*t298*t619*t65-4.9365923538061685d-2*t16*t17*t200*t25*t
10943     5         619*t65+9.873184707612337d-2*gammaaa*t16*t25*t299*t421*t6
10944     6         16*t65-9.873184707612337d-2*gammaaa*t16*t163*t17*t298*t42
10945     7         1*t616*t65+9.873184707612337d-2*t16*t17*t25*t421*t616*t65
10946     8         -4.9365923538061685d-2*gammaaa*t16*t163*t298*t590*t61*t65
10947     9         +4.9365923538061685d-2*t16*t25*t590*t61*t65+9.87318470761
10948     :         2337d-2*gammaaa*t16*t17*t298*t366*t589*t61*t65-4.93659235
10949     ;         38061685d-2*gammaaa*t16*t163*t299*t589*t61*t65-4.93659235
10950     <         38061685d-2*t16*t163*t17*t589*t61*t65+9.873184707612337d-
10951     =         2*gammaaa*t16*t299*t366*t587*t61*t65+9.873184707612337d-2
10952     >         *t16*t17*t366*t587*t61*t65-9.873184707612337d-2*t16*t163*
10953     ?         t298*t299*t61*t65-4.9365923538061685d-2*gammaaa*t16*t200*
10954     @         t25*t316*t590*t65+4.9365923538061685d-2*gammaaa*t16*t163*
10955     1         t17*t200*t316*t589*t65-9.873184707612337d-2*gammaaa*t16*t
10956     2         17*t200*t316*t366*t587*t65+9.873184707612337d-2*gammaaa*t
10957     3         16*t163*t200*t298*t299*t316*t65-9.873184707612337d-2*t16*
10958     4         t200*t25*t299*t316*t65+9.873184707612337d-2*t16*t163*t17*
10959     5         t200*t298*t316*t65+6*t316*t421*t59*t619*t63-3*t200*t300*t
10960     6         619*t63+6*t300*t421*t616*t63-3*t200*t316*t591*t63+2.46829
10961     7         61769030842d-2*gammaaa*t16*t17*t25*t300*t424*t591*t61*t62
10962     8         0+2.4682961769030842d-2*gammaaa*t16*t25*t299*t424*t585*t6
10963     9         1*t620-2.4682961769030842d-2*gammaaa*t16*t163*t17*t298*t4
10964     :         24*t585*t61*t620+2.4682961769030842d-2*t16*t17*t25*t424*t
10965     ;         585*t61*t620-2.4682961769030842d-2*gammaaa*t16*t17*t200*t
10966     <         25*t316*t424*t585*t620+1.5d+0*t190*t198*t200*t300*t59*t61
10967     =         9+2.4682961769030842d-2*gammaaa*t16*t17*t181*t200*t202*t2
10968     >         5*t300*t619-3*t190*t198*t300*t421*t59*t616-4.936592353806
10969     ?         1685d-2*gammaaa*t16*t17*t181*t202*t25*t300*t421*t616+1.5d
10970     @         +0*t300*t418*t59*t591*t61*t615-1.5d+0*t200*t316*t418*t585
10971     1         *t59*t615+7.5d-1*t198*t300*t412*t59*t591*t61+1.2341480884
10972     2         515421d-2*gammaaa*t16*t17*t202*t25*t300*t402*t591*t61-3*t
10973     3         190*t198*t300*t591*t61-2.4682961769030842d-2*gammaaa*t16*
10974     4         t181*t202*t25*t299*t591*t61+2.4682961769030842d-2*gammaaa
10975     5         *t16*t163*t17*t181*t202*t298*t591*t61-2.4682961769030842d
10976     6         -2*t16*t17*t181*t202*t25*t591*t61-2.4682961769030842d-2*g
10977     7         ammaaa*t16*t181*t202*t25*t300*t590*t61+2.4682961769030842
10978     8         d-2*gammaaa*t16*t163*t17*t181*t202*t300*t589*t61-4.936592
10979     9         3538061685d-2*gammaaa*t16*t17*t181*t202*t300*t366*t587*t6
10980     :         1+1.2341480884515421d-2*gammaaa*t16*t202*t25*t299*t402*t5
10981     ;         85*t61-1.2341480884515421d-2*gammaaa*t16*t163*t17*t202*t2
10982     <         98*t402*t585*t61+1.2341480884515421d-2*t16*t17*t202*t25*t
10983     =         402*t585*t61+4.9365923538061685d-2*gammaaa*t16*t163*t181*
10984     >         t202*t298*t299*t300*t61-4.9365923538061685d-2*t16*t181*t2
10985     ?         02*t25*t299*t300*t61+4.9365923538061685d-2*t16*t163*t17*t
10986     @         181*t202*t298*t300*t61+1.5d+0*t190*t198*t200*t316*t59*t59
10987     1         1+2.4682961769030842d-2*gammaaa*t16*t17*t181*t200*t202*t2
10988     2         5*t316*t591-7.5d-1*t198*t200*t316*t412*t585*t59-1.2341480
10989     3         884515421d-2*gammaaa*t16*t17*t200*t202*t25*t316*t402*t585
10990     4         +3*t190*t198*t200*t316*t585+4.9365923538061685d-2*gammaaa
10991     5         *t16*t181*t200*t202*t25*t299*t300*t316-4.9365923538061685
10992     6         d-2*gammaaa*t16*t163*t17*t181*t200*t202*t298*t300*t316+4.
10993     7         9365923538061685d-2*t16*t17*t181*t200*t202*t25*t300*t316)
10994     8         +t195*(-2.0d+0*t59*(-1.475609999999999d-1*t193*t50*(t939+
10995     9         t938+t937+t935+t934+t933)-1.1067074999999992d-1*t393*t56*
10996     :         t923*t929-7.378049999999994d-2*t176*t180*t56*t927-5.53353
10997     ;         7499999995d-2*t180*t56*t743*t923-1.1067074999999992d-1*t3
10998     <         95*t56*t741*t923-8.853659999999993d-1*t313**3*t50*t756+8.
10999     =         853659999999993d-1*t313*t411*t50*t623+2.2134149999999983d
11000     >         -1*t176*t180*t193*t300*t623-4.4268299999999966d-1*t176*t1
11001     ?         80*t300*t411*t622+2.2134149999999983d-1*t300*t393*t56*t59
11002     @         1*t602-2.2134149999999983d-1*t193*t313*t393*t585*t602+1.1
11003     1         067074999999992d-1*t180*t300*t395*t56*t591+2.213414999999
11004     2         9983d-1*t176*t180*t193*t313*t591-1.1067074999999992d-1*t1
11005     3         80*t193*t313*t395*t585)-6.0d+0*t300*t624-6.0d+0*t314*t591
11006     4         )+t16*t186*t25*(3.2910615692041123d-2*gammaaa*t17*(6.0965
11007     5         d-1*t184*t50*(t935+t934+t933+t932+t931+t930)+4.572375d-1*
11008     6         t393*t47*t923*t929+3.04825d-1*t176*t180*t47*t927+2.286187
11009     7         5d-1*t180*t47*t743*t923+4.572375d-1*t395*t47*t741*t923+3.
11010     8         6579d+0*t307**3*t50*t749-3.6579d+0*t307*t401*t50*t608-9.1
11011     9         4475d-1*t176*t180*t184*t300*t608+1.82895d+0*t176*t180*t30
11012     :         0*t401*t603-9.14475d-1*t300*t393*t47*t591*t602+9.14475d-1
11013     ;         *t184*t307*t393*t585*t602-4.572375d-1*t180*t300*t395*t47*
11014     <         t591-9.14475d-1*t176*t180*t184*t307*t591+4.572375d-1*t180
11015     =         *t184*t307*t395*t585)+6.582123138408225d-2*gammaaa*t299*t
11016     >         609+6.582123138408225d-2*t17*t609+3.2910615692041123d-2*g
11017     ?         ammaaa*t308*t590+6.582123138408225d-2*t299*t308)+5.273288
11018     @         888888887d-2*t36*t38*t928+t213*t3*t38*(-3.382241189982133
11019     1         6d-3*t1*t35*t927-1.01467235699464d-2*t1*t300*t593-1.01467
11020     2         235699464d-2*t1*t302*t591)-2.0d+0*t58*t927-4.727288888888
11021     3         889d-2*t151*t32*t927+6.064083168526658d-3*t1*t211*t3*t318
11022     4         *t927+t16*t25*(3.2910615692041123d-2*gammaaa*t52*t926+3.2
11023     5         910615692041123d-2*gammaaa*t186*t299*t609+3.2910615692041
11024     6         123d-2*t17*t186*t609-3.2910615692041123d-2*gammaaa*t299*t
11025     7         391*t599-3.2910615692041123d-2*t17*t391*t599+9.8731847076
11026     8         12337d-2*t52*t590+6.582123138408225d-2*gammaaa*t186*t308*
11027     9         t590+1.316424627681645d-1*t186*t299*t308)+t16*t163*(-3.29
11028     :         10615692041123d-2*gammaaa*t17*t52*t925-2*t298*t601-3.2910
11029     ;         615692041123d-2*gammaaa*t298*t52*t590-6.582123138408225d-
11030     <         2*gammaaa*t299*t52*t589-6.582123138408225d-2*t17*t52*t589
11031     =         -t310*t589-3.2910615692041123d-2*gammaaa*t17*t186*t308*t5
11032     >         89-6.582123138408225d-2*t298*t299*t52-3.2910615692041123d
11033     ?         -2*gammaaa*t186*t298*t299*t308-3.2910615692041123d-2*t17*
11034     @         t186*t298*t308)-1.9746369415224674d-1*gammaaa*t16*t17*t52
11035     1         *t716*t924-1.1668349091560873d-2*t386*t39*t40*t899*t923+8
11036     2         .641318515150488d-2*t1*t211*t3*t857*t923-2.83637333333333
11037     3         35d-1*t32*t626*t923-1.2683404462433d-2*t1*t3*t35*t38*t542
11038     4         *t923-4.0d+0*t314**3*t59*t755+t389*(-2.1333333333333332d+
11039     5         1*t321*t641*t72*t75-1.0666666666666666d+1*t327*t595*t75-1
11040     6         .0666666666666666d+1*t324*t595*t72-4.0d+0*t321*t644)+5.33
11041     7         3333333333333d+1*t321**3*t72*t738*t75+6.582123138408225d-
11042     8         2*gammaaa*t16*t17*t25*t308**3*t739+t213*t3*(6.76448237996
11043     9         4267d-3*t1*t300*t35*t641-2.0d+0*t321*t631+6.7644823799642
11044     :         67d-3*t1*t321*t35*t591+6.764482379964267d-3*t1*t300*t302*
11045     ;         t321)*t73-2.02934471398928d-2*t1*t3*t318*t321*t35*t585*t7
11046     <         3-1.5d+0*t3*t300*t318*t38*t631+4.667339636624349d-3*t300*
11047     =         t386*t39*t40*t591*t626+t409*(-t314*t625+4.0d+0*t314*t59*t
11048     >         624+2.0d+0*t300*t613)+t16*t366*(-2*t298*t611+1.3164246276
11049     ?         81645d-1*gammaaa*t17*t298*t52*t589+6.582123138408225d-2*g
11050     @         ammaaa*t299*t52*t587+6.582123138408225d-2*t17*t52*t587)+t
11051     1         16*t25*t391*(-t308*t610-6.582123138408225d-2*gammaaa*t17*
11052     2         t308*t609-3.2910615692041123d-2*gammaaa*t299*t599-3.29106
11053     3         15692041123d-2*t17*t599)+t16*t163*t186*(-t298*t610-6.5821
11054     4         23138408225d-2*gammaaa*t17*t298*t609-6.582123138408225d-2
11055     5         *gammaaa*t17*t308*t589-6.582123138408225d-2*gammaaa*t298*
11056     6         t299*t308-6.582123138408225d-2*t17*t298*t308)+9.873184707
11057     7         612337d-2*gammaaa*t16*t163*t17*t298*t391*t599-2.029344713
11058     8         98928d-2*t1*t213*t222*t3*t300*t35*t595+t3*t318*t38*(1.014
11059     9         67235699464d-2*t1*t300*t35*t591+5.0733617849732d-3*t1*t30
11060     :         2*t585)-6.367287326952992d-2*t1*t211*t3*t300*t542*t591+2.
11061     ;         8363733333333335d-1*t300*t32*t382*t591+1.9746369415224674
11062     <         d-1*gammaaa*t16*t17*t186*t308*t366*t587)*wght
11063            Cmat3(iq,D3_GAA_GAA_GAB) = Cmat3(iq,D3_GAA_GAA_GAB)
11064            Cmat3(iq,D3_GAA_GAA_GBB) = Cmat3(iq,D3_GAA_GAA_GBB)
11065            Cmat3(iq,D3_GAA_GAB_GAB) = Cmat3(iq,D3_GAA_GAB_GAB)
11066            Cmat3(iq,D3_GAA_GAB_GBB) = Cmat3(iq,D3_GAA_GAB_GBB)
11067            Cmat3(iq,D3_GAA_GBB_GBB) = Cmat3(iq,D3_GAA_GBB_GBB)
11068            Cmat3(iq,D3_GAB_GAB_GAB) = Cmat3(iq,D3_GAB_GAB_GAB)
11069            Cmat3(iq,D3_GAB_GAB_GBB) = Cmat3(iq,D3_GAB_GAB_GBB)
11070            Cmat3(iq,D3_GAB_GBB_GBB) = Cmat3(iq,D3_GAB_GBB_GBB)
11071            Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB)-9.305257
11072     1         363491d-1*(t295*(2.6666666666666666d+0*t146*t149*t961-3.0
11073     2         d+0*t353*t703-3.0d+0*t353*(t702+t700+t695+t694+t692-1.054
11074     3         6577777777776d-1*t111*t334*t353)-3.0d+0*t360*t701+5.33333
11075     4         3333333333d+0*t149*t359*t701+5.333333333333333d+0*t146*t3
11076     5         56*t701+2.6666666666666666d+0*t149*t353*t699+2.6666666666
11077     6         666666d+0*t146*t353*t693+5.333333333333333d+0*t353*t356*t
11078     7         359)+t147*(-1.0546577777777776d-1*t110*t111*t961-8.888888
11079     8         888888888d-1*t149*(4.7459599999999996d-2*t140*t948-2.4d+0
11080     9         *t142*(-5.0d-1*t278*t947+6.41391219265211d-2*t279*(gammab
11081     :         b*t100*t91*t946-gammabb*t236*t91*t92*t945-6*gammabb*t783*
11082     ;         t91*t92*t944+6*gammabb*t330*t445*t649*t91*t92-3*t236*t649
11083     <         *t91*t92+6*t445*t647*t91*t92-3*gammabb*t236*t330*t650*t91
11084     =         +3*t100*t650*t91-3*gammabb*t236*t331*t649*t91+6*gammabb*t
11085     >         331*t445*t647*t91-6*t236*t330*t331*t91)-3.75d-1*t836*t943
11086     ?         +4.810434144489083d-2*t357**3*t835-9.620868288978166d-2*t
11087     @         357*t507*t697+7.5d-1*t332*t509*t651)-8.400000000000001d+0
11088     1         *t145*t277*t947-4.9628707825354457d+0*t277*t947-2.7259596
11089     2         d+0*t141*t947+5.672746666666666d-2*t140*t947+4.7459599999
11090     3         999996d-2*t110*t947-3.15d+1*t145*t834*t943-1.861076543450
11091     4         7923d+1*t834*t943-5.4519192d+0*t943-2.52d+1*t277*t332*t69
11092     5         8+1.423788d-1*t332*t653-6.3d+1*t145*t332*t506*t651-3.7221
11093     6         530869015845d+1*t332*t506*t651-2.52d+1*t277*t358*t651+1.4
11094     7         23788d-1*t334*t651-1.6355757600000004d+1*t140*t332*t651+1
11095     8         .7018239999999996d-1*t332*t651-6.3d+1*t358*t506*t645)-8.8
11096     9         88888888888888d-1*t146*(-1.4431302433467247d-1*t1*t286*t7
11097     :         8*t947-2.4682961769030842d-2*t114*t224*t39*t947-5.4117384
11098     ;         12550218d-1*t1*t575*t78*t943-1.4809777061418505d-1*t114*t
11099     <         39*t686*t943+6.494086095060261d-1*t1*t332*t350*t651*t78+1
11100     =         .4809777061418505d-1*t114*t332*t39*t461*t651)+1.352896475
11101     >         9928536d-2*t1*t110*t286*t332*t701*t78+6.764482379964267d-
11102     ?         3*t1*t110*t286*t353*t651*t78-1.01467235699464d-2*t1*t110*
11103     @         t350*t353*t645*t78+2.02934471398928d-2*t1*t286*t332*t334*
11104     1         t353*t78-3.1639733333333325d-1*t111*t334*t701-2.666666666
11105     2         6666666d+0*t356*t699-2.6666666666666666d+0*t359*t693-3.16
11106     3         39733333333325d-1*t111*t353*t653)+7.57211d-1*(-1.64553078
11107     4         46020562d-2*gammabb*t100*t139*t273*t91*t92*t960-t133*t137
11108     5         *t273*t960-9.873184707612337d-2*gammabb*t100*t139*t830*t9
11109     6         1*t92*t956-6*t133*t137*t830*t956-8.227653923010281d-3*gam
11110     7         mabb*t100*t135*t254*t275*t91*t92*t947-5.0d-1*t133*t135*t2
11111     8         63*t271*t947+t135*t137*t947+1.6455307846020562d-2*gammabb
11112     9         *t100*t135*t139*t91*t946-1.6455307846020562d-2*gammabb*t1
11113     :         35*t139*t236*t91*t92*t945-9.873184707612337d-2*gammabb*t1
11114     ;         35*t139*t783*t91*t92*t944-1.2341480884515421d-2*gammabb*t
11115     <         100*t135*t481*t832*t91*t92*t943-6.170740442257711d-3*gamm
11116     =         abb*t100*t135*t275*t817*t91*t92*t943-1.2341480884515421d-
11117     >         2*gammabb*t100*t135*t503*t91*t92*t943/t116**2-7.5d-1*t133
11118     ?         *t135*t491*t828*t943-3.75d-1*t133*t135*t271*t824*t943+1.5
11119     @         d+0*t135*t497*t675*t943-7.5d-1*t133*t135*t497*t943/t127**
11120     1         2+7.5d-1*t135*t271*t491*t943+2.4682961769030842d-2*gammab
11121     2         b*t100*t135*t332*t503*t651*t680*t91*t92-2.468296176903084
11122     3         2d-2*gammabb*t100*t273*t348*t503*t645*t680*t91*t92-2.4682
11123     4         961769030842d-2*gammabb*t135*t236*t330*t503*t645*t680*t91
11124     5         *t92+2.4682961769030842d-2*t100*t135*t503*t645*t680*t91*t
11125     6         92+9.873184707612337d-2*gammabb*t100*t139*t348*t500*t679*
11126     7         t91*t92+2.4682961769030842d-2*gammabb*t100*t254*t273*t275
11127     8         *t332*t679*t91*t92+4.9365923538061685d-2*gammabb*t139*t23
11128     9         6*t273*t330*t679*t91*t92-4.9365923538061685d-2*t100*t139*
11129     :         t273*t679*t91*t92-4.9365923538061685d-2*gammabb*t100*t254
11130     ;         *t275*t332*t500*t676*t91*t92-9.873184707612337d-2*gammabb
11131     <         *t139*t236*t330*t500*t676*t91*t92+9.873184707612337d-2*t1
11132     =         00*t139*t500*t676*t91*t92+1.2341480884515421d-2*gammabb*t
11133     >         100*t135*t275*t332*t481*t651*t91*t92+2.4682961769030842d-
11134     ?         2*gammabb*t100*t254*t273*t275*t348*t651*t91*t92+2.4682961
11135     @         769030842d-2*gammabb*t135*t236*t254*t275*t330*t651*t91*t9
11136     1         2-2.4682961769030842d-2*t100*t135*t254*t275*t651*t91*t92+
11137     2         9.873184707612337d-2*gammabb*t135*t139*t330*t445*t649*t91
11138     3         *t92+4.9365923538061685d-2*gammabb*t139*t236*t273*t348*t6
11139     4         49*t91*t92+2.4682961769030842d-2*gammabb*t135*t236*t254*t
11140     5         275*t332*t649*t91*t92-4.9365923538061685d-2*t135*t139*t23
11141     6         6*t649*t91*t92-9.873184707612337d-2*gammabb*t139*t273*t34
11142     7         8*t445*t647*t91*t92-4.9365923538061685d-2*gammabb*t135*t2
11143     8         54*t275*t332*t445*t647*t91*t92+9.873184707612337d-2*t135*
11144     9         t139*t445*t647*t91*t92-1.2341480884515421d-2*gammabb*t100
11145     :         *t273*t275*t348*t481*t645*t91*t92-1.2341480884515421d-2*g
11146     ;         ammabb*t135*t236*t275*t330*t481*t645*t91*t92+1.2341480884
11147     <         515421d-2*t100*t135*t275*t481*t645*t91*t92-4.936592353806
11148     =         1685d-2*gammabb*t236*t254*t273*t275*t330*t332*t348*t91*t9
11149     >         2+4.9365923538061685d-2*t100*t254*t273*t275*t332*t348*t91
11150     ?         *t92+9.873184707612337d-2*t139*t236*t273*t330*t348*t91*t9
11151     @         2+4.9365923538061685d-2*t135*t236*t254*t275*t330*t332*t91
11152     1         *t92+2.4682961769030842d-2*gammabb*t100*t135*t331*t503*t6
11153     2         45*t680*t91-4.9365923538061685d-2*gammabb*t100*t139*t273*
11154     3         t331*t679*t91+9.873184707612337d-2*gammabb*t100*t139*t331
11155     4         *t500*t676*t91-2.4682961769030842d-2*gammabb*t100*t135*t2
11156     5         54*t275*t331*t651*t91-4.9365923538061685d-2*gammabb*t100*
11157     6         t139*t273*t348*t650*t91-2.4682961769030842d-2*gammabb*t10
11158     7         0*t135*t254*t275*t332*t650*t91-4.9365923538061685d-2*gamm
11159     8         abb*t135*t139*t236*t330*t650*t91+4.9365923538061685d-2*t1
11160     9         00*t135*t139*t650*t91-4.9365923538061685d-2*gammabb*t135*
11161     :         t139*t236*t331*t649*t91+9.873184707612337d-2*gammabb*t135
11162     ;         *t139*t331*t445*t647*t91+1.2341480884515421d-2*gammabb*t1
11163     <         00*t135*t275*t331*t481*t645*t91+4.9365923538061685d-2*gam
11164     =         mabb*t100*t254*t273*t275*t331*t332*t348*t91+9.87318470761
11165     >         2337d-2*gammabb*t139*t236*t273*t330*t331*t348*t91-9.87318
11166     ?         4707612337d-2*t100*t139*t273*t331*t348*t91+4.936592353806
11167     @         1685d-2*gammabb*t135*t236*t254*t275*t330*t331*t332*t91-4.
11168     1         9365923538061685d-2*t100*t135*t254*t275*t331*t332*t91-9.8
11169     2         73184707612337d-2*t135*t139*t236*t330*t331*t91+6*t133*t13
11170     3         7*t348*t500*t679+1.5d+0*t133*t263*t271*t273*t332*t679-3*t
11171     4         137*t273*t332*t679-3*t133*t263*t271*t332*t500*t676+6*t137
11172     5         *t332*t500*t676+1.5d+0*t133*t135*t332*t497*t651*t675-1.5d
11173     6         +0*t133*t273*t348*t497*t645*t675+7.5d-1*t133*t135*t271*t3
11174     7         32*t491*t651+1.5d+0*t133*t263*t271*t273*t348*t651-3*t137*
11175     8         t273*t348*t651-3*t135*t263*t271*t332*t651-7.5d-1*t133*t27
11176     9         1*t273*t348*t491*t645+3*t263*t271*t273*t348*t645)+t268*(-
11177     :         2.0d+0*t133*(-1.475609999999999d-1*t124*t266*(t959+t958+t
11178     ;         957+t955+t954+t953)-1.1067074999999992d-1*t130*t472*t943*
11179     <         t949-7.378049999999994d-2*t130*t249*t253*t947-5.533537499
11180     =         999995d-2*t130*t253*t810*t943-1.1067074999999992d-1*t130*
11181     >         t474*t808*t943-8.853659999999993d-1*t124*t345**3*t823+8.8
11182     ?         53659999999993d-1*t124*t345*t490*t683+2.2134149999999983d
11183     @         -1*t249*t253*t266*t332*t683-4.4268299999999966d-1*t249*t2
11184     1         53*t332*t490*t682+2.2134149999999983d-1*t130*t332*t472*t6
11185     2         51*t662-2.2134149999999983d-1*t266*t345*t472*t645*t662+1.
11186     3         1067074999999992d-1*t130*t253*t332*t474*t651+2.2134149999
11187     4         999983d-1*t249*t253*t266*t345*t651-1.1067074999999992d-1*
11188     5         t253*t266*t345*t474*t645)-6.0d+0*t332*t684-6.0d+0*t346*t6
11189     6         51)+t100*t259*t91*(3.2910615692041123d-2*gammabb*t92*(6.0
11190     7         965d-1*t124*t257*(t955+t954+t953+t952+t951+t950)+4.572375
11191     8         d-1*t121*t472*t943*t949+3.04825d-1*t121*t249*t253*t947+2.
11192     9         2861875d-1*t121*t253*t810*t943+4.572375d-1*t121*t474*t808
11193     :         *t943+3.6579d+0*t124*t339**3*t816-3.6579d+0*t124*t339*t48
11194     ;         0*t668-9.14475d-1*t249*t253*t257*t332*t668+1.82895d+0*t24
11195     <         9*t253*t332*t480*t663-9.14475d-1*t121*t332*t472*t651*t662
11196     =         +9.14475d-1*t257*t339*t472*t645*t662-4.572375d-1*t121*t25
11197     >         3*t332*t474*t651-9.14475d-1*t249*t253*t257*t339*t651+4.57
11198     ?         2375d-1*t253*t257*t339*t474*t645)+6.582123138408225d-2*t6
11199     @         69*t92+6.582123138408225d-2*gammabb*t331*t669+3.291061569
11200     1         2041123d-2*gammabb*t340*t650+6.582123138408225d-2*t331*t3
11201     2         40)+5.273288888888887d-2*t111*t113*t948+t113*t286*t78*(-3
11202     3         .3822411899821336d-3*t1*t110*t947-1.01467235699464d-2*t1*
11203     4         t332*t653-1.01467235699464d-2*t1*t334*t651)+6.06408316852
11204     5         6658d-3*t1*t284*t350*t78*t947-4.727288888888889d-2*t107*t
11205     6         224*t947-2.0d+0*t132*t947+t100*t91*(3.2910615692041123d-2
11206     7         *gammabb*t126*t946+3.2910615692041123d-2*t259*t669*t92-3.
11207     8         2910615692041123d-2*t470*t659*t92+3.2910615692041123d-2*g
11208     9         ammabb*t259*t331*t669-3.2910615692041123d-2*gammabb*t331*
11209     :         t470*t659+6.582123138408225d-2*gammabb*t259*t340*t650+9.8
11210     ;         73184707612337d-2*t126*t650+1.316424627681645d-1*t259*t33
11211     <         1*t340)+t236*t91*(-3.2910615692041123d-2*gammabb*t126*t92
11212     =         *t945-3.2910615692041123d-2*gammabb*t259*t340*t649*t92-6.
11213     >         582123138408225d-2*t126*t649*t92-3.2910615692041123d-2*t2
11214     ?         59*t330*t340*t92-2*t330*t661-3.2910615692041123d-2*gammab
11215     @         b*t126*t330*t650-t342*t649-6.582123138408225d-2*gammabb*t
11216     1         126*t331*t649-3.2910615692041123d-2*gammabb*t259*t330*t33
11217     2         1*t340-6.582123138408225d-2*t126*t330*t331)-1.97463694152
11218     3         24674d-1*gammabb*t126*t783*t91*t92*t944+5.987181320518676
11219     4         d-4*t803*t941*t943/(rhob*t104**11)-1.1668349091560873d-2*
11220     5         t114*t39*t465*t920*t943+8.641318515150488d-2*t1*t284*t78*
11221     6         t878*t943-1.2683404462433d-2*t1*t110*t113*t575*t78*t943-2
11222     7         .8363733333333335d-1*t107*t686*t943+t100*t470*t91*(-6.582
11223     8         123138408225d-2*gammabb*t340*t669*t92-3.2910615692041123d
11224     9         -2*t659*t92-t340*t670-3.2910615692041123d-2*gammabb*t331*
11225     :         t659)+t236*t259*t91*(-6.582123138408225d-2*gammabb*t330*t
11226     ;         669*t92-6.582123138408225d-2*gammabb*t340*t649*t92-6.5821
11227     <         23138408225d-2*t330*t340*t92-t330*t670-6.582123138408225d
11228     =         -2*gammabb*t330*t331*t340)+t445*t91*(1.316424627681645d-1
11229     >         *gammabb*t126*t330*t649*t92+6.582123138408225d-2*t126*t64
11230     ?         7*t92-2*t330*t671+6.582123138408225d-2*gammabb*t126*t331*
11231     @         t647)+6.582123138408225d-2*gammabb*t100*t340**3*t806*t91*
11232     1         t92+9.873184707612337d-2*gammabb*t236*t330*t470*t659*t91*
11233     2         t92+1.9746369415224674d-1*gammabb*t259*t340*t445*t647*t91
11234     3         *t92-4.0d+0*t133*t346**3*t822+5.333333333333333d+1*t146*t
11235     4         149*t353**3*t805+t147*t286*(6.764482379964267d-3*t1*t110*
11236     5         t332*t701-2.0d+0*t353*t691+6.764482379964267d-3*t1*t110*t
11237     6         353*t651+6.764482379964267d-3*t1*t332*t334*t353)*t78-1.5d
11238     7         +0*t113*t332*t350*t691*t78-2.02934471398928d-2*t1*t110*t2
11239     8         86*t295*t332*t655*t78+t113*t350*(1.01467235699464d-2*t1*t
11240     9         110*t332*t651+5.0733617849732d-3*t1*t334*t645)*t78-6.3672
11241     :         87326952992d-2*t1*t284*t332*t575*t651*t78-2.0293447139892
11242     ;         8d-2*t1*t110*t147*t350*t353*t645*t78+t468*(-4.0d+0*t353*t
11243     <         704-2.1333333333333332d+1*t146*t149*t353*t701-1.066666666
11244     =         6666666d+1*t149*t359*t655-1.0666666666666666d+1*t146*t356
11245     >         *t655)+4.667339636624349d-3*t114*t332*t39*t465*t651*t686+
11246     ?         t488*(-t346*t685+4.0d+0*t133*t346*t684+2.0d+0*t332*t673)+
11247     @         2.8363733333333335d-1*t107*t332*t461*t651)*t97*wght
11248          elseif (rhoa.gt.tol_rho.and.rhob.le.tol_rho) then
11249            t1 = param(1)
11250            t2 = rhoa**3.333333333333333d-1
11251            t3 = 1/t2
11252            t4 = t1*t3
11253            t5 = gammaaa**5.0d-1
11254            t6 = t5**7
11255            t7 = 1/rhoa**9.333333333333333d+0
11256            t8 = gammaaa**3
11257            t9 = 1/rhoa**8
11258            t10 = t5**5
11259            t11 = 1/rhoa**6.666666666666667d+0
11260            t12 = gammaaa**2
11261            t13 = 1/rhoa**5.333333333333333d+0
11262            t14 = t5**3
11263            t15 = 1/rhoa**4
11264            t16 = 1/rhoa**2.6666666666666666d+0
11265            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
11266     1         7+2.631878392200375d-4*gammaaa*t16+1.8005513133540818d-4*
11267     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
11268     3         10*t11
11269            t18 = t5**9
11270            t19 = 1/rhoa**12
11271            t20 = gammaaa**4
11272            t21 = 1/rhoa**1.0666666666666666d+1
11273            t22 = rhoa**1.3333333333333333d+0
11274            t23 = 1/t22
11275            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
11276     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
11277     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
11278     3         mmaaa*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
11279     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
11280            t25 = 1/t24
11281            t26 = 1.6455307846020562d-2*gammaaa*t16*t17*t25
11282            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
11283            t28 = 1/t27
11284            t29 = t27**5.0d-1
11285            t30 = 1/t29
11286            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
11287            t32 = 1/t31
11288            t33 = 4.1138269615051404d-3*gammaaa*t16+1.0d+0
11289            t34 = 1/t33
11290            t35 = 5.136628594837797d-3*gammaaa*t16*t34+6.934448603031025
11291     1         d-2*gammaaa*t16*t17*t25+1.0d+0
11292            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
11293            t37 = t27*t31
11294            t38 = 1/t37**2.0d+0
11295            t39 = t1**2
11296            t40 = 1/rhoa**6.666666666666666d-1
11297            t41 = 6.582123138408225d-2*t39*t40
11298            t42 = t41+t26
11299            t43 = t42**5.0d-1
11300            t44 = t41+t26+6.0965d-1
11301            t45 = t44**5.0d-1
11302            t46 = t45+t43
11303            t47 = 1/t46
11304            t48 = 2.565564877060844d-1*t1*t3
11305            t49 = t48+t45
11306            t50 = 1/t49
11307            t51 = 1.0d+0-6.0965d-1*t47*t50
11308            t52 = log(t51)
11309            t53 = t41+t26+7.57211d-1
11310            t54 = t53**5.0d-1
11311            t55 = t54+t45
11312            t56 = 1/t55
11313            t57 = 1.475609999999999d-1*t50*t56+1.0d+0
11314            t58 = log(t57)
11315            t59 = t26+7.57211d-1
11316            t60 = t54+t43
11317            t61 = 1/t60
11318            t62 = t54+t48
11319            t63 = 1/t62
11320            t64 = t48+t43
11321            t65 = 1/t64
11322            t66 = t26+6.0965d-1
11323            t67 = t66**2.0d+0
11324            t68 = t66**3.5d+0
11325            t69 = (gammaaa*t16*t17*t25)**5.0d-1
11326            t70 = t59**5.0d-1
11327            t71 = 1.282782438530422d-1*t69-t70
11328            t72 = -2.4d+0*t68*t71-1.417963080724413d+0*t68+2.83637333333
11329     1         3333d-2*t67-9.086532d-1*t66**3.0d+0+4.7459599999999996d-2
11330     2         *t35*t66
11331            t73 = 1/t37**3.0d+0
11332            t74 = t1*t3*t30
11333            t75 = 2.4682961769030842d-2*t74**2.0d+0+2.8862604866934494d-
11334     1         1*t1*t3*t30+1.0d+0
11335            t76 = -8.888888888888888d-1*t72*t73*t75+7.57211d-1*(1.645530
11336     1         7846020562d-2*gammaaa*t16*t17*t25*t61*t65+t59*t61*t63)-2.
11337     2         0d+0*t58*t59+3.2910615692041123d-2*gammaaa*t16*t17*t25*t5
11338     3         2+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
11339     4         28*t32-1.0d+0
11340            t77 = 1/t27**2
11341            t78 = 1/rhoa**3.6666666666666664d+0
11342            t79 = -4.38808209227215d-2*gammaaa*t17*t25*t78
11343            t80 = 1/rhoa**13
11344            t81 = 1/rhoa**1.1666666666666665d+1
11345            t82 = 1/rhoa**1.0333333333333333d+1
11346            t83 = 1/rhoa**9
11347            t84 = 1/rhoa**7.666666666666667d+0
11348            t85 = 1/rhoa**6.333333333333333d+0
11349            t86 = 1/rhoa**5
11350            t87 = 1/rhoa**2.3333333333333334d+0
11351            t88 = -9.121763297794749d-1*t5*t87-9.371196275079824d-2*t14*
11352     1         t86+7.379767838723479d-3*t12*t85-3.970606525117923d-4*t10
11353     2         *t84+2.1757466141021625d-5*t8*t83-1.6407054045998d-6*t6*t
11354     3         82+6.026316036028103d-8*t20*t81-3.7791630611803767d-9*t18
11355     4         *t80+5.475448834737188d-1*gammaaa*t78
11356            t89 = 1/t24**2
11357            t90 = -1.6455307846020562d-2*gammaaa*t16*t17*t88*t89
11358            t91 = -7.202205253416327d-4*t14*t86+2.3159461868101344d-4*t1
11359     1         2*t85-3.5347308712216d-5*t10*t84+3.462141917580374d-6*t8*
11360     2         t83-2.2515574897849044d-7*t6*t82-7.018342379201d-4*gammaa
11361     3         a*t78
11362            t92 = 1.6455307846020562d-2*gammaaa*t16*t25*t91
11363            t93 = t92+t90+t79-4.38808209227215d-2*t1*t23*t4
11364            t94 = 1/t33**2
11365            t95 = 5.634986987915197d-5*t12*t85*t94+6.934448603031025d-2*
11366     1         gammaaa*t16*t25*t91-6.934448603031025d-2*gammaaa*t16*t17*
11367     2         t88*t89-1.369767625290079d-2*gammaaa*t34*t78-1.8491862941
11368     3         416065d-1*gammaaa*t17*t25*t78
11369            t96 = 5.273288888888887d-2*t36*t38*t95
11370            t97 = -8.7761641845443d-2*gammaaa*t17*t25*t52*t78
11371            t98 = -3.2910615692041123d-2*gammaaa*t16*t17*t52*t88*t89
11372            t99 = 3.2910615692041123d-2*gammaaa*t16*t25*t52*t91
11373            t100 = 1/rhoa**1.6666666666666669d+0
11374            t101 = t92+t90+t79-4.38808209227215d-2*t100*t39
11375            t102 = 1/t45
11376            t103 = 5.0d-1*t101*t102
11377            t104 = -8.551882923536147d-2*t1*t23
11378            t105 = t104+t103
11379            t106 = 1/t49**2
11380            t107 = 1/t43
11381            t108 = 5.0d-1*t101*t107
11382            t109 = t108+t103
11383            t110 = 1/t46**2
11384            t111 = 6.0965d-1*t109*t110*t50+6.0965d-1*t105*t106*t47
11385            t112 = 1/t51
11386            t113 = 3.2910615692041123d-2*gammaaa*t111*t112*t16*t17*t25
11387            t114 = t92+t90+t79
11388            t115 = -2.0d+0*t114*t58
11389            t116 = 1/t54
11390            t117 = 5.0d-1*t101*t116
11391            t118 = t117+t103
11392            t119 = 1/t55**2
11393            t120 = -1.475609999999999d-1*t105*t106*t56-1.475609999999999
11394     1         d-1*t118*t119*t50
11395            t121 = 1/t57
11396            t122 = -2.0d+0*t120*t121*t59
11397            t123 = t117+t104
11398            t124 = 1/t62**2
11399            t125 = t117+t108
11400            t126 = 1/t60**2
11401            t127 = t108+t104
11402            t128 = 1/t64**2
11403            t129 = 7.57211d-1*(1.6455307846020562d-2*gammaaa*t16*t25*t61
11404     1         *t65*t91-1.6455307846020562d-2*gammaaa*t16*t17*t61*t65*t8
11405     2         8*t89-4.38808209227215d-2*gammaaa*t17*t25*t61*t65*t78-1.6
11406     3         455307846020562d-2*gammaaa*t125*t126*t16*t17*t25*t65+t114
11407     4         *t61*t63-t125*t126*t59*t63-t123*t124*t59*t61-1.6455307846
11408     5         020562d-2*gammaaa*t127*t128*t16*t17*t25*t61)
11409            t130 = t66**2.5d+0
11410            t131 = 1/t70
11411            t132 = 1/t69
11412            t133 = gammaaa*t16*t25*t91-gammaaa*t16*t17*t88*t89-2.6666666
11413     1         666666666d+0*gammaaa*t17*t25*t78
11414            t134 = 6.41391219265211d-2*t132*t133-5.0d-1*t114*t131
11415            t135 = 4.7459599999999996d-2*t66*t95-8.400000000000001d+0*t1
11416     1         14*t130*t71-2.4d+0*t134*t68-2.7259596d+0*t114*t67+5.67274
11417     2         6666666666d-2*t114*t66+4.7459599999999996d-2*t114*t35-4.9
11418     3         628707825354457d+0*t114*t130
11419            t136 = -8.888888888888888d-1*t135*t73*t75
11420            t137 = 1/t31**2
11421            t138 = -8.551882923536147d-2*t1*t23*t30
11422            t139 = 1/t29**3
11423            t140 = t138-1.282782438530422d-1*t1*t139*t3*t93
11424            t141 = -4.2759414617680735d-2*t1*t23*t30
11425            t142 = t141-6.41391219265211d-2*t1*t139*t3*t93
11426            t143 = -9.620868288978164d-2*t1*t23*t30
11427            t144 = -3.333333333333333d-1*t1*t23*t30
11428            t145 = t144-5.0d-1*t1*t139*t3*t93
11429            t146 = -1.4431302433467247d-1*t1*t139*t3*t93+4.9365923538061
11430     1         685d-2*t145*t74+t143
11431            t147 = t31*t93+t140*t27
11432            t148 = 1/t37**4.0d+0
11433            t149 = t99+t98+t97+t96-4.727288888888889d-2*t32*t77*t93+2.66
11434     1         66666666666666d+0*t147*t148*t72*t75-8.888888888888888d-1*
11435     2         t146*t72*t73-1.0546577777777776d-1*t147*t35*t36*t73+5.273
11436     3         288888888887d-2*t142*t35*t38-4.727288888888889d-2*t137*t1
11437     4         40*t28+t136+t129+t122+t115+t113
11438            t150 = 1/t5
11439            t151 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
11440     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
11441     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t150
11442     3         *t23-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t
11443     4         14-2.767412939521305d-3*gammaaa*t13
11444            t152 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
11445     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
11446     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammaaa
11447     3         *t13
11448            t153 = -1.6455307846020562d-2*gammaaa*t151*t16*t17*t89+1.645
11449     1         5307846020562d-2*t16*t17*t25+1.6455307846020562d-2*gammaa
11450     2         a*t152*t16*t25
11451            t154 = -4.727288888888889d-2*t153*t32*t77
11452            t155 = -2.113120120468199d-5*gammaaa*t13*t94-6.9344486030310
11453     1         25d-2*gammaaa*t151*t16*t17*t89+5.136628594837797d-3*t16*t
11454     2         34+6.934448603031025d-2*t16*t17*t25+6.934448603031025d-2*
11455     3         gammaaa*t152*t16*t25
11456            t156 = 5.273288888888887d-2*t155*t36*t38
11457            t157 = -3.2910615692041123d-2*gammaaa*t151*t16*t17*t52*t89
11458            t158 = 5.0d-1*t107*t153
11459            t159 = 5.0d-1*t102*t153
11460            t160 = t159+t158
11461            t161 = 6.0965d-1*t110*t160*t50+3.04825d-1*t102*t106*t153*t47
11462            t162 = 3.2910615692041123d-2*gammaaa*t112*t16*t161*t17*t25
11463            t163 = 3.2910615692041123d-2*t17*t52+3.2910615692041123d-2*g
11464     1         ammaaa*t152*t52
11465            t164 = -2.0d+0*t153*t58
11466            t165 = 5.0d-1*t116*t153
11467            t166 = t165+t159
11468            t167 = -7.378049999999994d-2*t102*t106*t153*t56-1.4756099999
11469     1         99999d-1*t119*t166*t50
11470            t168 = -2.0d+0*t121*t167*t59
11471            t169 = t165+t158
11472            t170 = 7.57211d-1*(-1.6455307846020562d-2*gammaaa*t151*t16*t
11473     1         17*t61*t65*t89+1.6455307846020562d-2*t16*t17*t25*t61*t65+
11474     2         1.6455307846020562d-2*gammaaa*t152*t16*t25*t61*t65-1.6455
11475     3         307846020562d-2*gammaaa*t126*t16*t169*t17*t25*t65+t153*t6
11476     4         1*t63-t126*t169*t59*t63-5.0d-1*t116*t124*t153*t59*t61-8.2
11477     5         27653923010281d-3*gammaaa*t107*t128*t153*t16*t17*t25*t61)
11478            t171 = 1/t29**5
11479            t172 = 6.064083168526658d-3*t1*t137*t153*t171*t3
11480            t173 = -3.3822411899821336d-3*t1*t139*t153*t3*t35*t38
11481            t174 = t153*t31-1.282782438530422d-1*t1*t153*t3*t30
11482            t175 = 2.6666666666666666d+0*t148*t174*t72*t75
11483            t176 = -1.4431302433467247d-1*t1*t139*t153*t3
11484            t177 = t176-2.4682961769030842d-2*t153*t39*t40*t77
11485            t178 = -gammaaa*t151*t16*t17*t89+t16*t17*t25+gammaaa*t152*t1
11486     1         6*t25
11487            t179 = 6.41391219265211d-2*t132*t178-5.0d-1*t131*t153
11488            t180 = -8.400000000000001d+0*t130*t153*t71-2.4d+0*t179*t68-2
11489     1         .7259596d+0*t153*t67+4.7459599999999996d-2*t155*t66+5.672
11490     2         746666666666d-2*t153*t66+4.7459599999999996d-2*t153*t35-4
11491     3         .9628707825354457d+0*t130*t153
11492            t181 = -8.888888888888888d-1*t180*t75-8.888888888888888d-1*t
11493     1         177*t72-1.0546577777777776d-1*t174*t35*t36
11494            t182 = 1/rhoa**4.666666666666667d+0
11495            t183 = 1.6089634338331216d-1*gammaaa*t17*t182*t25
11496            t184 = 8.7761641845443d-2*gammaaa*t17*t78*t88*t89
11497            t185 = -8.7761641845443d-2*gammaaa*t25*t78*t91
11498            t186 = t88**2
11499            t187 = 1/t24**3
11500            t188 = 3.2910615692041123d-2*gammaaa*t16*t17*t186*t187
11501            t189 = 1/rhoa**14
11502            t190 = 1/rhoa**1.2666666666666665d+1
11503            t191 = 1/rhoa**1.1333333333333334d+1
11504            t192 = 1/rhoa**10
11505            t193 = 1/rhoa**8.666666666666666d+0
11506            t194 = 1/rhoa**7.333333333333333d+0
11507            t195 = 1/rhoa**6
11508            t196 = 1/rhoa**3.3333333333333337d+0
11509            t197 = -1.9581719526919464d-4*t192*t8+1.695395584753127d-5*t
11510     1         191*t6+2.1284114361521084d+0*t196*t5-7.030702042032786d-7
11511     2         *t190*t20+4.685598137539912d-1*t14*t195-4.673852964524870
11512     3         5d-2*t12*t194+3.0441316692570747d-3*t10*t193+4.9129119795
11513     4         344894d-8*t18*t189-2.0076645727369685d+0*gammaaa*t182
11514            t198 = -1.6455307846020562d-2*gammaaa*t16*t17*t197*t89
11515            t199 = -3.2910615692041123d-2*gammaaa*t16*t88*t89*t91
11516            t200 = -3.115927725822337d-5*t192*t8+2.326609406111068d-6*t1
11517     1         91*t6+3.6011026267081636d-3*t14*t195-1.466765918313085d-3
11518     2         *t12*t194+2.709960334603227d-4*t10*t193+2.573392205707033
11519     3         5d-3*gammaaa*t182
11520            t201 = 1.6455307846020562d-2*gammaaa*t16*t200*t25
11521            t202 = 7.313470153786916d-2*t16*t39+t201+t199+t198+t188+t185
11522     1         +t184+t183
11523            t203 = 1/t27**3
11524            t204 = t93**2
11525            t205 = 1/t33**3
11526            t206 = -5.071488289123677d-4*t12*t194*t94-1.386889720606205d
11527     1         -1*gammaaa*t16*t88*t89*t91-3.698372588283213d-1*gammaaa*t
11528     2         25*t78*t91+3.698372588283213d-1*gammaaa*t17*t78*t88*t89-6
11529     3         .934448603031025d-2*gammaaa*t16*t17*t197*t89+1.2363392745
11530     4         928628d-6*t192*t205*t8+5.02248129273029d-2*gammaaa*t182*t
11531     5         34+6.934448603031025d-2*gammaaa*t16*t200*t25+6.7803497451
11532     6         85891d-1*gammaaa*t17*t182*t25+1.386889720606205d-1*gammaa
11533     7         a*t16*t17*t186*t187
11534            t207 = 1/t31**3
11535            t208 = t140**2
11536            t209 = t147**2
11537            t210 = 1/t37**5.0d+0
11538            t211 = t111**2
11539            t212 = 1/t51**2
11540            t213 = t105**2
11541            t214 = 1/t49**3
11542            t215 = t101**2
11543            t216 = 1/t45**3
11544            t217 = -2.5d-1*t215*t216
11545            t218 = 5.0d-1*t102*t202
11546            t219 = 1.1402510564714863d-1*t1*t87
11547            t220 = t219+t218+t217
11548            t221 = t109**2
11549            t222 = 1/t46**3
11550            t223 = 1/t43**3
11551            t224 = -2.5d-1*t215*t223
11552            t225 = 5.0d-1*t107*t202
11553            t226 = t225+t224+t218+t217
11554            t227 = 6.0965d-1*t110*t226*t50-1.2193000000000001d+0*t221*t2
11555     1         22*t50+6.0965d-1*t106*t220*t47-1.2193000000000001d+0*t213
11556     2         *t214*t47-1.2193000000000001d+0*t105*t106*t109*t110
11557            t228 = t201+t199+t198+t188+t185+t184+t183
11558            t229 = t120**2
11559            t230 = 1/t57**2
11560            t231 = t118**2
11561            t232 = 1/t55**3
11562            t233 = 1/t54**3
11563            t234 = -2.5d-1*t215*t233
11564            t235 = 5.0d-1*t116*t202
11565            t236 = t235+t234+t218+t217
11566            t237 = -1.475609999999999d-1*t106*t220*t56+2.951219999999998
11567     1         d-1*t213*t214*t56-1.475609999999999d-1*t119*t236*t50+2.95
11568     2         1219999999998d-1*t231*t232*t50+2.951219999999998d-1*t105*
11569     3         t106*t118*t119
11570            t238 = t123**2
11571            t239 = 1/t62**3
11572            t240 = t235+t234+t219
11573            t241 = t125**2
11574            t242 = 1/t60**3
11575            t243 = t235+t234+t225+t224
11576            t244 = t127**2
11577            t245 = 1/t64**3
11578            t246 = t225+t224+t219
11579            t247 = t114**2
11580            t248 = t66**1.5d+0
11581            t249 = 1/t69**3
11582            t250 = t133**2
11583            t251 = 1/t70**3
11584            t252 = -2*gammaaa*t16*t88*t89*t91-5.333333333333333d+0*gamma
11585     1         aa*t25*t78*t91+5.333333333333333d+0*gammaaa*t17*t78*t88*t
11586     2         89-gammaaa*t16*t17*t197*t89+gammaaa*t16*t200*t25+9.777777
11587     3         777777779d+0*gammaaa*t17*t182*t25+2*gammaaa*t16*t17*t186*
11588     4         t187
11589            t253 = 6.41391219265211d-2*t132*t252+2.5d-1*t247*t251-3.2069
11590     1         56096326055d-2*t249*t250-5.0d-1*t131*t228
11591            t254 = 9.491919999999999d-2*t114*t95-2.1d+1*t247*t248*t71-8.
11592     1         400000000000001d+0*t130*t228*t71-2.4d+0*t253*t68-2.725959
11593     2         6d+0*t228*t67-5.4519192d+0*t247*t66+5.672746666666666d-2*
11594     3         t228*t66+4.7459599999999996d-2*t206*t66+4.745959999999999
11595     4         6d-2*t228*t35-1.2407176956338616d+1*t247*t248+5.672746666
11596     5         666666d-2*t247-4.9628707825354457d+0*t130*t228-1.68d+1*t1
11597     6         14*t130*t134
11598            t255 = 4.2759414617680735d-2*t1*t139*t23*t93+5.7012552823574
11599     1         31d-2*t1*t30*t87+9.620868288978166d-2*t1*t171*t204*t3-6.4
11600     2         1391219265211d-2*t1*t139*t202*t3
11601            t256 = 8.551882923536147d-2*t1*t139*t23*t93+1.14025105647148
11602     1         63d-1*t1*t30*t87+1.924173657795633d-1*t1*t171*t204*t3-1.2
11603     2         82782438530422d-1*t1*t139*t202*t3
11604            t257 = 3.333333333333333d-1*t1*t139*t23*t93+4.44444444444444
11605     1         4d-1*t1*t30*t87+7.5d-1*t1*t171*t204*t3-5.0d-1*t1*t139*t20
11606     2         2*t3
11607            t258 = 9.620868288978164d-2*t1*t139*t23*t93+1.28278243853042
11608     1         18d-1*t1*t30*t87+4.9365923538061685d-2*t1*t257*t3*t30+2.1
11609     2         64695365020087d-1*t1*t171*t204*t3-1.4431302433467247d-1*t
11610     3         1*t139*t202*t3+4.9365923538061685d-2*t145**2
11611            t259 = 2*t140*t93+t202*t31+t256*t27
11612            t260 = -2.109315555555555d-1*t147*t36*t73*t95+1.054657777777
11613     1         7776d-1*t142*t38*t95+9.454577777777778d-2*t137*t140*t77*t
11614     2         93+7.57211d-1*(-3.2910615692041123d-2*gammaaa*t16*t61*t65
11615     3         *t88*t89*t91-8.7761641845443d-2*gammaaa*t25*t61*t65*t78*t
11616     4         91-3.2910615692041123d-2*gammaaa*t125*t126*t16*t25*t65*t9
11617     5         1-3.2910615692041123d-2*gammaaa*t127*t128*t16*t25*t61*t91
11618     6         +8.7761641845443d-2*gammaaa*t17*t61*t65*t78*t88*t89+3.291
11619     7         0615692041123d-2*gammaaa*t125*t126*t16*t17*t65*t88*t89+3.
11620     8         2910615692041123d-2*gammaaa*t127*t128*t16*t17*t61*t88*t89
11621     9         -1.6455307846020562d-2*gammaaa*t16*t17*t197*t61*t65*t89+8
11622     :         .7761641845443d-2*gammaaa*t125*t126*t17*t25*t65*t78+8.776
11623     ;         1641845443d-2*gammaaa*t127*t128*t17*t25*t61*t78+1.6455307
11624     <         846020562d-2*gammaaa*t16*t200*t25*t61*t65+1.6089634338331
11625     =         216d-1*gammaaa*t17*t182*t25*t61*t65+3.2910615692041123d-2
11626     >         *gammaaa*t16*t17*t186*t187*t61*t65-1.6455307846020562d-2*
11627     ?         gammaaa*t126*t16*t17*t243*t25*t65+3.2910615692041123d-2*g
11628     @         ammaaa*t16*t17*t241*t242*t25*t65+t228*t61*t63-t126*t243*t
11629     1         59*t63+2*t241*t242*t59*t63-2*t114*t125*t126*t63-t124*t240
11630     2         *t59*t61+2*t238*t239*t59*t61-1.6455307846020562d-2*gammaa
11631     3         a*t128*t16*t17*t246*t25*t61+3.2910615692041123d-2*gammaaa
11632     4         *t16*t17*t244*t245*t25*t61-2*t114*t123*t124*t61+2*t123*t1
11633     5         24*t125*t126*t59+3.2910615692041123d-2*gammaaa*t125*t126*
11634     6         t127*t128*t16*t17*t25)-6.582123138408225d-2*gammaaa*t16*t
11635     7         52*t88*t89*t91-1.75523283690886d-1*gammaaa*t25*t52*t78*t9
11636     8         1+6.582123138408225d-2*gammaaa*t111*t112*t16*t25*t91+1.75
11637     9         523283690886d-1*gammaaa*t17*t52*t78*t88*t89-6.58212313840
11638     :         8225d-2*gammaaa*t111*t112*t16*t17*t88*t89-3.2910615692041
11639     ;         123d-2*gammaaa*t16*t17*t197*t52*t89-1.75523283690886d-1*g
11640     <         ammaaa*t111*t112*t17*t25*t78-4.727288888888889d-2*t202*t3
11641     =         2*t77-8.888888888888888d-1*t254*t73*t75+2.666666666666666
11642     >         6d+0*t148*t259*t72*t75-1.0666666666666666d+1*t209*t210*t7
11643     ?         2*t75+5.333333333333333d+0*t135*t147*t148*t75-8.888888888
11644     @         888888d-1*t258*t72*t73-1.0546577777777776d-1*t259*t35*t36
11645     1         *t73-2.109315555555555d-1*t142*t147*t35*t73-1.77777777777
11646     2         77776d+0*t135*t146*t73+5.333333333333333d+0*t146*t147*t14
11647     3         8*t72-2.0d+0*t121*t237*t59+2.0d+0*t229*t230*t59-2.0d+0*t2
11648     4         28*t58+3.2910615692041123d-2*gammaaa*t16*t200*t25*t52+3.2
11649     5         17926867666243d-1*gammaaa*t17*t182*t25*t52+6.582123138408
11650     6         225d-2*gammaaa*t16*t17*t186*t187*t52+5.273288888888887d-2
11651     7         *t206*t36*t38+5.273288888888887d-2*t255*t35*t38+3.1639733
11652     8         333333325d-1*t148*t209*t35*t36+9.454577777777778d-2*t203*
11653     9         t204*t32-4.727288888888889d-2*t137*t256*t28+9.45457777777
11654     :         7778d-2*t207*t208*t28+3.2910615692041123d-2*gammaaa*t112*
11655     ;         t16*t17*t227*t25-3.2910615692041123d-2*gammaaa*t16*t17*t2
11656     <         11*t212*t25-4.0d+0*t114*t120*t121
11657            t261 = 3.2910615692041123d-2*gammaaa*t152*t16*t25*t52
11658            t262 = 3.2910615692041123d-2*t16*t17*t25*t52
11659            t263 = -8.888888888888888d-1*t180*t73*t75
11660            t264 = t176-2.4682961769030842d-2*t1*t139*t153*t3*t74
11661            t265 = -1.0546577777777776d-1*t174*t35*t36*t73
11662            t266 = -4.5608816488973747d-1*t150*t87-1.4056794412619736d-1
11663     1         *t5*t86+1.4759535677446958d-2*gammaaa*t85-9.9265163127948
11664     2         08d-4*t14*t84+6.527239842306487d-5*t12*t83-5.742468916099
11665     3         301d-6*t10*t82+2.4105264144112412d-7*t8*t81-1.70062337753
11666     4         11694d-8*t6*t80+5.475448834737188d-1*t78
11667            t267 = -1.0803307880124491d-3*t5*t86+4.631892373620269d-4*ga
11668     1         mmaaa*t85-8.836827178054d-5*t14*t84+1.0386425752741123d-5
11669     2         *t12*t83-7.880451214247165d-7*t10*t82-7.018342379201d-4*t
11670     3         78
11671            t268 = -1.6455307846020562d-2*gammaaa*t151*t16*t89*t91+1.645
11672     1         5307846020562d-2*t16*t25*t91-1.6455307846020562d-2*t16*t1
11673     2         7*t88*t89-1.6455307846020562d-2*gammaaa*t152*t16*t88*t89+
11674     3         4.38808209227215d-2*gammaaa*t151*t17*t78*t89-1.6455307846
11675     4         020562d-2*gammaaa*t16*t17*t266*t89+3.2910615692041123d-2*
11676     5         gammaaa*t151*t16*t17*t187*t88-4.38808209227215d-2*t17*t25
11677     6         *t78-4.38808209227215d-2*gammaaa*t152*t25*t78+1.645530784
11678     7         6020562d-2*gammaaa*t16*t25*t267
11679            t269 = 1.690496096374559d-4*gammaaa*t85*t94-6.93444860303102
11680     1         5d-2*gammaaa*t151*t16*t89*t91+6.934448603031025d-2*t16*t2
11681     2         5*t91-6.934448603031025d-2*t16*t17*t88*t89-6.934448603031
11682     3         025d-2*gammaaa*t152*t16*t88*t89+1.8491862941416065d-1*gam
11683     4         maaa*t151*t17*t78*t89-6.934448603031025d-2*gammaaa*t16*t1
11684     5         7*t266*t89+1.386889720606205d-1*gammaaa*t151*t16*t17*t187
11685     6         *t88-4.6362722797232353d-7*t12*t205*t83-1.369767625290079
11686     7         d-2*t34*t78-1.8491862941416065d-1*t17*t25*t78-1.849186294
11687     8         1416065d-1*gammaaa*t152*t25*t78+6.934448603031025d-2*gamm
11688     9         aaa*t16*t25*t267
11689            t270 = -2.5d-1*t101*t153*t216
11690            t271 = 5.0d-1*t102*t268
11691            t272 = t271+t270
11692            t273 = -2.5d-1*t101*t153*t223
11693            t274 = 5.0d-1*t107*t268
11694            t275 = t274+t273+t271+t270
11695            t276 = 6.0965d-1*t110*t275*t50-1.2193000000000001d+0*t109*t1
11696     1         60*t222*t50+6.0965d-1*t106*t272*t47-6.0965d-1*t102*t105*t
11697     2         153*t214*t47-6.0965d-1*t105*t106*t110*t160-3.04825d-1*t10
11698     3         2*t106*t109*t110*t153
11699            t277 = -2.5d-1*t101*t153*t233
11700            t278 = 5.0d-1*t116*t268
11701            t279 = t278+t277+t271+t270
11702            t280 = -1.475609999999999d-1*t106*t272*t56+1.475609999999999
11703     1         d-1*t102*t105*t153*t214*t56-1.475609999999999d-1*t119*t27
11704     2         9*t50+2.951219999999998d-1*t118*t166*t232*t50+1.475609999
11705     3         999999d-1*t105*t106*t119*t166+7.378049999999994d-2*t102*t
11706     4         106*t118*t119*t153
11707            t281 = t278+t277
11708            t282 = t278+t277+t274+t273
11709            t283 = t274+t273
11710            t284 = 1/t29**7
11711            t285 = -gammaaa*t151*t16*t89*t91+t16*t25*t91-t16*t17*t88*t89
11712     1         -gammaaa*t152*t16*t88*t89+2.6666666666666666d+0*gammaaa*t
11713     2         151*t17*t78*t89-gammaaa*t16*t17*t266*t89+2*gammaaa*t151*t
11714     3         16*t17*t187*t88-2.6666666666666666d+0*t17*t25*t78-2.66666
11715     4         66666666666d+0*gammaaa*t152*t25*t78+gammaaa*t16*t25*t267
11716            t286 = 6.41391219265211d-2*t132*t285-5.0d-1*t131*t268+2.5d-1
11717     1         *t114*t153*t251-3.206956096326055d-2*t133*t178*t249
11718            t287 = 4.7459599999999996d-2*t153*t95-8.400000000000001d+0*t
11719     1         130*t268*t71-2.1d+1*t114*t153*t248*t71-2.4d+0*t286*t68-2.
11720     2         7259596d+0*t268*t67+4.7459599999999996d-2*t269*t66+5.6727
11721     3         46666666666d-2*t268*t66-5.4519192d+0*t114*t153*t66+4.7459
11722     4         599999999996d-2*t268*t35-4.9628707825354457d+0*t130*t268-
11723     5         1.2407176956338616d+1*t114*t153*t248-8.400000000000001d+0
11724     6         *t114*t130*t179+4.7459599999999996d-2*t114*t155-8.4000000
11725     7         00000001d+0*t130*t134*t153+5.672746666666666d-2*t114*t153
11726            t288 = 9.620868288978166d-2*t1*t153*t171*t3*t93-6.4139121926
11727     1         5211d-2*t1*t139*t268*t3+2.1379707308840368d-2*t1*t139*t15
11728     2         3*t23
11729            t289 = 1.924173657795633d-1*t1*t153*t171*t3*t93-1.2827824385
11730     1         30422d-1*t1*t139*t268*t3+4.2759414617680735d-2*t1*t139*t1
11731     2         53*t23
11732            t290 = 7.5d-1*t1*t153*t171*t3*t93-5.0d-1*t1*t139*t268*t3+1.6
11733     1         666666666666666d-1*t1*t139*t153*t23
11734            t291 = 2.164695365020087d-1*t1*t153*t171*t3*t93+4.9365923538
11735     1         061685d-2*t1*t290*t3*t30-1.4431302433467247d-1*t1*t139*t2
11736     2         68*t3-2.4682961769030842d-2*t1*t139*t145*t153*t3+4.810434
11737     3         144489082d-2*t1*t139*t153*t23
11738            t292 = -1.282782438530422d-1*t1*t139*t153*t3*t93+t268*t31+t2
11739     1         7*t289+t140*t153
11740            t293 = -1.0546577777777776d-1*t174*t36*t73*t95-3.38224118998
11741     1         21336d-3*t1*t139*t153*t3*t38*t95+9.454577777777778d-2*t15
11742     2         3*t203*t32*t93-6.064083168526658d-3*t1*t137*t153*t284*t3*
11743     3         t93+7.57211d-1*(-1.6455307846020562d-2*gammaaa*t151*t16*t
11744     4         61*t65*t89*t91+1.6455307846020562d-2*t16*t25*t61*t65*t91-
11745     5         1.6455307846020562d-2*gammaaa*t126*t16*t169*t25*t65*t91-8
11746     6         .227653923010281d-3*gammaaa*t107*t128*t153*t16*t25*t61*t9
11747     7         1-1.6455307846020562d-2*t16*t17*t61*t65*t88*t89-1.6455307
11748     8         846020562d-2*gammaaa*t152*t16*t61*t65*t88*t89+1.645530784
11749     9         6020562d-2*gammaaa*t126*t16*t169*t17*t65*t88*t89+8.227653
11750     :         923010281d-3*gammaaa*t107*t128*t153*t16*t17*t61*t88*t89+4
11751     ;         .38808209227215d-2*gammaaa*t151*t17*t61*t65*t78*t89-1.645
11752     <         5307846020562d-2*gammaaa*t16*t17*t266*t61*t65*t89+1.64553
11753     =         07846020562d-2*gammaaa*t125*t126*t151*t16*t17*t65*t89+1.6
11754     >         455307846020562d-2*gammaaa*t127*t128*t151*t16*t17*t61*t89
11755     ?         +3.2910615692041123d-2*gammaaa*t151*t16*t17*t187*t61*t65*
11756     @         t88-4.38808209227215d-2*t17*t25*t61*t65*t78-4.38808209227
11757     1         215d-2*gammaaa*t152*t25*t61*t65*t78+4.38808209227215d-2*g
11758     2         ammaaa*t126*t169*t17*t25*t65*t78+2.194041046136075d-2*gam
11759     3         maaa*t107*t128*t153*t17*t25*t61*t78+1.6455307846020562d-2
11760     4         *gammaaa*t16*t25*t267*t61*t65-1.6455307846020562d-2*gamma
11761     5         aa*t126*t16*t17*t25*t282*t65+3.2910615692041123d-2*gammaa
11762     6         a*t125*t16*t169*t17*t242*t25*t65-1.6455307846020562d-2*t1
11763     7         25*t126*t16*t17*t25*t65-1.6455307846020562d-2*gammaaa*t12
11764     8         5*t126*t152*t16*t25*t65+t268*t61*t63-t126*t282*t59*t63+2*
11765     9         t125*t169*t242*t59*t63-t114*t126*t169*t63-t125*t126*t153*
11766     :         t63-t124*t281*t59*t61+t116*t123*t153*t239*t59*t61-1.64553
11767     ;         07846020562d-2*gammaaa*t128*t16*t17*t25*t283*t61+1.645530
11768     <         7846020562d-2*gammaaa*t107*t127*t153*t16*t17*t245*t25*t61
11769     =         -1.6455307846020562d-2*t127*t128*t16*t17*t25*t61-1.645530
11770     >         7846020562d-2*gammaaa*t127*t128*t152*t16*t25*t61-t123*t12
11771     ?         4*t153*t61-5.0d-1*t114*t116*t124*t153*t61+t123*t124*t126*
11772     @         t169*t59+5.0d-1*t116*t124*t125*t126*t153*t59+1.6455307846
11773     1         020562d-2*gammaaa*t126*t127*t128*t16*t169*t17*t25+8.22765
11774     2         3923010281d-3*gammaaa*t107*t125*t126*t128*t153*t16*t17*t2
11775     3         5)-3.2910615692041123d-2*gammaaa*t151*t16*t52*t89*t91+3.2
11776     4         910615692041123d-2*t16*t25*t52*t91+3.2910615692041123d-2*
11777     5         gammaaa*t112*t16*t161*t25*t91-3.2910615692041123d-2*t16*t
11778     6         17*t52*t88*t89-3.2910615692041123d-2*gammaaa*t152*t16*t52
11779     7         *t88*t89-3.2910615692041123d-2*gammaaa*t112*t16*t161*t17*
11780     8         t88*t89+8.7761641845443d-2*gammaaa*t151*t17*t52*t78*t89-3
11781     9         .2910615692041123d-2*gammaaa*t16*t17*t266*t52*t89-3.29106
11782     :         15692041123d-2*gammaaa*t111*t112*t151*t16*t17*t89+6.58212
11783     ;         3138408225d-2*gammaaa*t151*t16*t17*t187*t52*t88-8.7761641
11784     <         845443d-2*t17*t25*t52*t78-8.7761641845443d-2*gammaaa*t152
11785     =         *t25*t52*t78-8.7761641845443d-2*gammaaa*t112*t161*t17*t25
11786     >         *t78-4.727288888888889d-2*t268*t32*t77+4.727288888888889d
11787     ?         -2*t137*t140*t153*t77-8.888888888888888d-1*t287*t73*t75+2
11788     @         .6666666666666666d+0*t148*t292*t72*t75-1.0666666666666666
11789     1         d+1*t147*t174*t210*t72*t75+2.6666666666666666d+0*t147*t14
11790     2         8*t180*t75+2.6666666666666666d+0*t135*t148*t174*t75-8.888
11791     3         888888888888d-1*t291*t72*t73-1.0546577777777776d-1*t292*t
11792     4         35*t36*t73-1.0546577777777776d-1*t147*t155*t36*t73+6.7644
11793     5         82379964267d-3*t1*t139*t147*t153*t3*t35*t73-1.05465777777
11794     6         77776d-1*t142*t174*t35*t73-8.888888888888888d-1*t135*t264
11795     7         *t73-8.888888888888888d-1*t146*t180*t73+2.666666666666666
11796     8         6d+0*t147*t148*t264*t72+2.6666666666666666d+0*t146*t148*t
11797     9         174*t72-2.0d+0*t121*t280*t59+2.0d+0*t120*t167*t230*t59-2.
11798     :         0d+0*t268*t58+3.2910615692041123d-2*gammaaa*t16*t25*t267*
11799     ;         t52+5.273288888888887d-2*t269*t36*t38+5.273288888888887d-
11800     <         2*t288*t35*t38+5.273288888888887d-2*t142*t155*t38+3.16397
11801     =         33333333325d-1*t147*t148*t174*t35*t36-1.2128166337053317d
11802     >         -2*t1*t140*t153*t171*t207*t3-4.727288888888889d-2*t137*t2
11803     ?         8*t289+3.2910615692041123d-2*gammaaa*t112*t16*t17*t25*t27
11804     @         6-3.2910615692041123d-2*gammaaa*t111*t16*t161*t17*t212*t2
11805     1         5+3.2910615692041123d-2*t111*t112*t16*t17*t25+3.291061569
11806     2         2041123d-2*gammaaa*t111*t112*t152*t16*t25-2.0d+0*t114*t12
11807     3         1*t167-2.0d+0*t120*t121*t153
11808            t294 = t153**2
11809            t295 = 9.454577777777778d-2*t203*t294*t32
11810            t296 = t151**2
11811            t297 = 1/t14
11812            t298 = -1.6318099605766218d-5*gammaaa*t9+1.5381613168123123d
11813     1         -6*t14*t7+2.2334661703788317d-4*t11*t5-1.7103306183365155
11814     2         d-1*t23*t297-6.779605540531617d-8*t12*t21+4.9601515177992
11815     3         45d-9*t10*t19+1.757099301577467d-2*t15*t150-2.76741293952
11816     4         1305d-3*t13
11817            t299 = -2.5966064381852805d-6*gammaaa*t9+2.1108351466733477d
11818     1         -7*t14*t7+1.9882861150621498d-5*t11*t5+1.3504134850155614
11819     2         d-4*t15*t150-8.684798200538004d-5*t13
11820            t300 = -1.6455307846020562d-2*gammaaa*t16*t17*t298*t89-3.291
11821     1         0615692041123d-2*t151*t16*t17*t89-3.2910615692041123d-2*g
11822     2         ammaaa*t151*t152*t16*t89+1.6455307846020562d-2*gammaaa*t1
11823     3         6*t25*t299+3.2910615692041123d-2*gammaaa*t16*t17*t187*t29
11824     4         6+3.2910615692041123d-2*t152*t16*t25
11825            t301 = -4.727288888888889d-2*t300*t32*t77
11826            t302 = -4.226240240936398d-5*t13*t94+1.7386021048962136d-7*g
11827     1         ammaaa*t205*t9-6.934448603031025d-2*gammaaa*t16*t17*t298*
11828     2         t89-1.386889720606205d-1*t151*t16*t17*t89-1.3868897206062
11829     3         05d-1*gammaaa*t151*t152*t16*t89+6.934448603031025d-2*gamm
11830     4         aaa*t16*t25*t299+1.386889720606205d-1*gammaaa*t16*t17*t18
11831     5         7*t296+1.386889720606205d-1*t152*t16*t25
11832            t303 = 5.273288888888887d-2*t302*t36*t38
11833            t304 = t174**2
11834            t305 = -1.0666666666666666d+1*t210*t304*t72*t75
11835            t306 = 6.582123138408225d-2*gammaaa*t16*t17*t187*t296*t52
11836            t307 = -6.582123138408225d-2*gammaaa*t112*t151*t16*t161*t17*
11837     1         t89
11838            t308 = t161**2
11839            t309 = -3.2910615692041123d-2*gammaaa*t16*t17*t212*t25*t308
11840            t310 = 3.2910615692041123d-2*gammaaa*t299*t52+6.582123138408
11841     1         225d-2*t152*t52+3.2910615692041123d-2*t112*t161*t17+3.291
11842     2         0615692041123d-2*gammaaa*t112*t152*t161
11843            t311 = 1/t44
11844            t312 = t160**2
11845            t313 = -2.5d-1*t223*t294
11846            t314 = 5.0d-1*t107*t300
11847            t315 = -2.5d-1*t216*t294
11848            t316 = 5.0d-1*t102*t300
11849            t317 = t316+t315+t314+t313
11850            t318 = 6.0965d-1*t110*t317*t50-1.2193000000000001d+0*t222*t3
11851     1         12*t50-3.04825d-1*t214*t294*t311*t47+3.04825d-1*t102*t106
11852     2         *t300*t47-1.524125d-1*t106*t216*t294*t47-6.0965d-1*t102*t
11853     3         106*t110*t153*t160
11854            t319 = 3.2910615692041123d-2*gammaaa*t17*t318+3.291061569204
11855     1         1123d-2*t161*t17+3.2910615692041123d-2*gammaaa*t152*t161
11856            t320 = -3.2910615692041123d-2*gammaaa*t17*t298*t52-3.2910615
11857     1         692041123d-2*t151*t17*t52-3.2910615692041123d-2*gammaaa*t
11858     2         151*t152*t52-t151*t163
11859            t321 = -2.0d+0*t300*t58
11860            t322 = t167**2
11861            t323 = 2.0d+0*t230*t322*t59
11862            t324 = 1/t53
11863            t325 = t169**2
11864            t326 = -2.5d-1*t233*t294
11865            t327 = 5.0d-1*t116*t300
11866            t328 = t327+t326+t314+t313
11867            t329 = 1/t42
11868            t330 = 7.57211d-1*(-1.6455307846020562d-2*gammaaa*t16*t17*t2
11869     1         98*t61*t65*t89-3.2910615692041123d-2*t151*t16*t17*t61*t65
11870     2         *t89-3.2910615692041123d-2*gammaaa*t151*t152*t16*t61*t65*
11871     3         t89+3.2910615692041123d-2*gammaaa*t126*t151*t16*t169*t17*
11872     4         t65*t89+1.6455307846020562d-2*gammaaa*t107*t128*t151*t153
11873     5         *t16*t17*t61*t89+1.6455307846020562d-2*gammaaa*t16*t25*t2
11874     6         99*t61*t65+3.2910615692041123d-2*gammaaa*t16*t17*t187*t29
11875     7         6*t61*t65+3.2910615692041123d-2*t152*t16*t25*t61*t65-1.64
11876     8         55307846020562d-2*gammaaa*t126*t16*t17*t25*t328*t65+3.291
11877     9         0615692041123d-2*gammaaa*t16*t17*t242*t25*t325*t65-3.2910
11878     :         615692041123d-2*t126*t16*t169*t17*t25*t65-3.2910615692041
11879     ;         123d-2*gammaaa*t126*t152*t16*t169*t25*t65+t300*t61*t63-t1
11880     <         26*t328*t59*t63+2*t242*t325*t59*t63-2*t126*t153*t169*t63+
11881     =         5.0d-1*t239*t294*t324*t59*t61-5.0d-1*t116*t124*t300*t59*t
11882     >         61+2.5d-1*t124*t233*t294*t59*t61+8.227653923010281d-3*gam
11883     ?         maaa*t16*t17*t245*t25*t294*t329*t61-8.227653923010281d-3*
11884     @         gammaaa*t107*t128*t16*t17*t25*t300*t61+4.1138269615051404
11885     1         d-3*gammaaa*t128*t16*t17*t223*t25*t294*t61-t116*t124*t294
11886     2         *t61-1.6455307846020562d-2*t107*t128*t153*t16*t17*t25*t61
11887     3         -1.6455307846020562d-2*gammaaa*t107*t128*t152*t153*t16*t2
11888     4         5*t61+t116*t124*t126*t153*t169*t59+1.6455307846020562d-2*
11889     5         gammaaa*t107*t126*t128*t153*t16*t169*t17*t25)
11890            t331 = t166**2
11891            t332 = t327+t326+t316+t315
11892            t333 = 7.378049999999994d-2*t214*t294*t311*t56-7.37804999999
11893     1         9994d-2*t102*t106*t300*t56+3.689024999999997d-2*t106*t216
11894     2         *t294*t56-1.475609999999999d-1*t119*t332*t50+2.9512199999
11895     3         99998d-1*t232*t331*t50+1.475609999999999d-1*t102*t106*t11
11896     4         9*t153*t166
11897            t334 = -2.0d+0*t333*t59-4.0d+0*t153*t167
11898            t335 = 1/t27**4
11899            t336 = 1.5557798788747831d-3*t207*t294*t335*t39*t40
11900            t337 = -2.1224291089843306d-2*t1*t137*t284*t294*t3
11901            t338 = 6.064083168526658d-3*t1*t137*t171*t3*t300
11902            t339 = 5.0733617849732d-3*t1*t171*t294*t3*t35*t38
11903            t340 = -3.3822411899821336d-3*t1*t300*t35-6.764482379964267d
11904     1         -3*t1*t153*t155
11905            t341 = 6.764482379964267d-3*t1*t139*t153*t174*t3*t35
11906            t342 = -2.4682961769030842d-2*t300*t39*t40*t77+4.93659235380
11907     1         61685d-2*t203*t294*t39*t40-1.4431302433467247d-1*t1*t139*
11908     2         t3*t300+2.164695365020087d-1*t1*t171*t294*t3
11909            t343 = -8.888888888888888d-1*t342*t72
11910            t344 = -1.7777777777777776d+0*t177*t180
11911            t345 = t178**2
11912            t346 = -gammaaa*t16*t17*t298*t89-2*t151*t16*t17*t89-2*gammaa
11913     1         a*t151*t152*t16*t89+gammaaa*t16*t25*t299+2*gammaaa*t16*t1
11914     2         7*t187*t296+2*t152*t16*t25
11915            t347 = 6.41391219265211d-2*t132*t346-3.206956096326055d-2*t2
11916     1         49*t345-5.0d-1*t131*t300+2.5d-1*t251*t294
11917            t348 = -8.400000000000001d+0*t130*t300*t71-2.1d+1*t248*t294*
11918     1         t71-2.4d+0*t347*t68-2.7259596d+0*t300*t67+4.7459599999999
11919     2         996d-2*t302*t66+5.672746666666666d-2*t300*t66-5.4519192d+
11920     3         0*t294*t66+4.7459599999999996d-2*t300*t35-4.9628707825354
11921     4         457d+0*t130*t300-1.2407176956338616d+1*t248*t294+5.672746
11922     5         666666666d-2*t294-1.68d+1*t130*t153*t179+9.49191999999999
11923     6         9d-2*t153*t155
11924            t349 = -8.888888888888888d-1*t348*t75
11925            t350 = t300*t31-1.282782438530422d-1*t1*t3*t30*t300-6.413912
11926     1         19265211d-2*t1*t139*t294*t3
11927            t351 = -1.0546577777777776d-1*t35*t350*t36
11928            t352 = -2.109315555555555d-1*t155*t174*t36+t351+t349+t344+t3
11929     1         43+t341
11930            t353 = 2.6666666666666666d+0*t350*t72*t75+2.6666666666666666
11931     1         d+0*t174*t180*t75+2.6666666666666666d+0*t174*t177*t72-3.0
11932     2         d+0*t174*t181
11933            t354 = t138-1.282782438530422d-1*t1*t101*t139*t3
11934            t355 = t27*t354+t101*t31
11935            t356 = 1/rhoa**5.666666666666667d+0
11936            t357 = -7.508496024554567d-1*gammaaa*t17*t25*t356
11937            t358 = -4.8268903014993647d-1*gammaaa*t17*t182*t88*t89
11938            t359 = 4.8268903014993647d-1*gammaaa*t182*t25*t91
11939            t360 = -2.63284925536329d-1*gammaaa*t17*t186*t187*t78
11940            t361 = 1.316424627681645d-1*gammaaa*t17*t197*t78*t89
11941            t362 = 2.63284925536329d-1*gammaaa*t78*t88*t89*t91
11942            t363 = -1.316424627681645d-1*gammaaa*t200*t25*t78
11943            t364 = t88**3
11944            t365 = 1/t24**4
11945            t366 = -9.873184707612337d-2*gammaaa*t16*t17*t364*t365
11946            t367 = 9.873184707612337d-2*gammaaa*t16*t186*t187*t91
11947            t368 = 9.873184707612337d-2*gammaaa*t16*t17*t187*t197*t88
11948            t369 = -4.9365923538061685d-2*gammaaa*t16*t197*t89*t91
11949            t370 = 1/rhoa**1.3666666666666666d+1
11950            t371 = 1/rhoa**1.2333333333333334d+1
11951            t372 = 1/rhoa**11
11952            t373 = 1/rhoa**9.666666666666666d+0
11953            t374 = 1/rhoa**8.333333333333334d+0
11954            t375 = 1/rhoa**7
11955            t376 = 1.958171952691946d-3*t372*t8-1.9214483293868775d-4*t3
11956     1         71*t6-7.094704787173696d+0*t5/rhoa**4.333333333333333d+0-
11957     2         2.811358882523947d+0*t14*t375+3.4274921739849046d-1*t12*t
11958     3         374-2.6382474466894645d-2*t10*t373+8.905555919908195d-6*t
11959     4         20*t370+9.369101339439189d+0*gammaaa*t356-6.8780767713482
11960     5         86d-7*t18/rhoa**15
11961            t377 = -1.6455307846020562d-2*gammaaa*t16*t17*t376*t89
11962            t378 = -4.9365923538061685d-2*gammaaa*t16*t200*t88*t89
11963            t379 = 3.115927725822337d-4*t372*t8-2.636823993592544d-5*t37
11964     1         1*t6-2.1606615760248984d-2*t14*t375+1.0756283400962623d-2
11965     2         *t12*t374-2.3486322899894632d-3*t10*t373-1.20091636266328
11966     3         24d-2*gammaaa*t356
11967            t380 = 1.6455307846020562d-2*gammaaa*t16*t25*t379
11968            t381 = -1.950258707676511d-1*t39*t78+t380+t378+t377+t369+t36
11969     1         8+t367+t366+t363+t362+t361+t360+t359+t358+t357
11970            t382 = t93**3
11971            t383 = 1/t33**4
11972            t384 = 4.270067917509071d-3*t12*t374*t94+1.1095117764849638d
11973     1         +0*gammaaa*t78*t88*t89*t91-2.0803345809093077d-1*gammaaa*
11974     2         t16*t197*t89*t91+2.034104923555767d+0*gammaaa*t182*t25*t9
11975     3         1+4.1606691618186153d-1*gammaaa*t16*t186*t187*t91-2.08033
11976     4         45809093077d-1*gammaaa*t16*t200*t88*t89-2.034104923555767
11977     5         d+0*gammaaa*t17*t182*t88*t89+5.547558882424819d-1*gammaaa
11978     6         *t17*t197*t78*t89-6.934448603031025d-2*gammaaa*t16*t17*t3
11979     7         76*t89+4.1606691618186153d-1*gammaaa*t16*t17*t187*t197*t8
11980     8         8-2.349044621726439d-5*t205*t372*t8-5.547558882424819d-1*
11981     9         gammaaa*t200*t25*t78-1.1095117764849638d+0*gammaaa*t17*t1
11982     :         86*t187*t78+4.0688686731102613d-8*t20*t370*t383+6.9344486
11983     ;         03031025d-2*gammaaa*t16*t25*t379-4.1606691618186153d-1*ga
11984     <         mmaaa*t16*t17*t364*t365-2.3438246032741353d-1*gammaaa*t34
11985     =         *t356-3.1641632144200826d+0*gammaaa*t17*t25*t356
11986            t385 = 1/t31**4
11987            t386 = t147**3
11988            t387 = 1/t37**6.0d+0
11989            t388 = 1/t51**3
11990            t389 = t105**3
11991            t390 = 1/t49**4
11992            t391 = t101**3
11993            t392 = 1/t45**5
11994            t393 = 3.75d-1*t391*t392
11995            t394 = -7.5d-1*t101*t202*t216
11996            t395 = 5.0d-1*t102*t381
11997            t396 = -2.660585798433468d-1*t1*t196
11998            t397 = t396+t395+t394+t393
11999            t398 = 1/t46**4
12000            t399 = 1/t43**5
12001            t400 = 3.75d-1*t391*t399
12002            t401 = -7.5d-1*t101*t202*t223
12003            t402 = 5.0d-1*t107*t381
12004            t403 = t380+t378+t377+t369+t368+t367+t366+t363+t362+t361+t36
12005     1         0+t359+t358+t357
12006            t404 = 1/t57**3
12007            t405 = 1/t55**4
12008            t406 = 1/t54**5
12009            t407 = 3.75d-1*t391*t406
12010            t408 = -7.5d-1*t101*t202*t233
12011            t409 = 5.0d-1*t116*t381
12012            t410 = 1/t62**4
12013            t411 = t125**3
12014            t412 = 1/t60**4
12015            t413 = t409+t408+t407+t402+t401+t400
12016            t414 = 1/t64**4
12017            t415 = t114**3
12018            t416 = t66**5.0d-1
12019            t417 = 1/t69**5
12020            t418 = 1/t70**5
12021            t419 = -1.7103765847072294d-1*t1*t139*t87*t93+5.772520973386
12022     1         899d-1*t1*t171*t202*t3*t93-4.810434144489083d-1*t1*t284*t
12023     2         3*t382-1.282782438530422d-1*t1*t139*t3*t381-2.66058579843
12024     3         3468d-1*t1*t196*t30-1.924173657795633d-1*t1*t171*t204*t23
12025     4         +1.282782438530422d-1*t1*t139*t202*t23
12026            t420 = 3*t256*t93+t27*t419+t31*t381+3*t140*t202
12027            t421 = -2.812280816813114d-6*t190*t8+2.2108103907905202d-7*t
12028     1         189*t6+7.028397206309868d-1*t195*t5+1.0642057180760542d+0
12029     2         *t150*t196-9.347705929049741d-2*gammaaa*t194+7.6103291731
12030     3         42687d-3*t14*t193-5.874515858075838d-4*t12*t192+5.9338845
12031     4         46635945d-5*t10*t191-2.0076645727369685d+0*t182
12032            t422 = 5.401653940062247d-3*t195*t5-2.93353183662617d-3*gamm
12033     1         aaa*t194+6.774900836508068d-4*t14*t193-9.347783177467011d
12034     2         -5*t12*t192+8.143132921388737d-6*t10*t191+2.5733922057070
12035     3         335d-3*t182
12036            t423 = -3.2910615692041123d-2*t16*t88*t89*t91+8.776164184544
12037     1         3d-2*gammaaa*t151*t78*t89*t91-3.2910615692041123d-2*gamma
12038     2         aa*t16*t266*t89*t91+6.582123138408225d-2*gammaaa*t151*t16
12039     3         *t187*t88*t91-8.7761641845443d-2*t25*t78*t91+8.7761641845
12040     4         443d-2*t17*t78*t88*t89+8.7761641845443d-2*gammaaa*t152*t7
12041     5         8*t88*t89-3.2910615692041123d-2*gammaaa*t16*t267*t88*t89+
12042     6         8.7761641845443d-2*gammaaa*t17*t266*t78*t89-1.64553078460
12043     7         20562d-2*gammaaa*t16*t17*t421*t89-1.6455307846020562d-2*g
12044     8         ammaaa*t151*t16*t200*t89-1.6455307846020562d-2*t16*t17*t1
12045     9         97*t89-1.6455307846020562d-2*gammaaa*t152*t16*t197*t89-1.
12046     :         6089634338331216d-1*gammaaa*t151*t17*t182*t89-1.755232836
12047     ;         90886d-1*gammaaa*t151*t17*t187*t78*t88+6.582123138408225d
12048     <         -2*gammaaa*t16*t17*t187*t266*t88-8.7761641845443d-2*gamma
12049     =         aa*t25*t267*t78+1.6455307846020562d-2*gammaaa*t16*t25*t42
12050     >         2-9.873184707612337d-2*gammaaa*t151*t16*t17*t186*t365+1.6
12051     ?         455307846020562d-2*t16*t200*t25+1.6089634338331216d-1*t17
12052     @         *t182*t25+1.6089634338331216d-1*gammaaa*t152*t182*t25+3.2
12053     1         910615692041123d-2*gammaaa*t151*t16*t17*t187*t197+3.29106
12054     2         15692041123d-2*t16*t17*t186*t187+3.2910615692041123d-2*ga
12055     3         mmaaa*t152*t16*t186*t187
12056            t424 = -1.220913847381626d-3*gammaaa*t194*t94-1.386889720606
12057     1         205d-1*t16*t88*t89*t91+3.698372588283213d-1*gammaaa*t151*
12058     2         t78*t89*t91-1.386889720606205d-1*gammaaa*t16*t266*t89*t91
12059     3         +2.77377944121241d-1*gammaaa*t151*t16*t187*t88*t91-3.6983
12060     4         72588283213d-1*t25*t78*t91+3.698372588283213d-1*t17*t78*t
12061     5         88*t89+3.698372588283213d-1*gammaaa*t152*t78*t88*t89-1.38
12062     6         6889720606205d-1*gammaaa*t16*t267*t88*t89+3.6983725882832
12063     7         13d-1*gammaaa*t17*t266*t78*t89-6.934448603031025d-2*gamma
12064     8         aa*t16*t17*t421*t89-6.934448603031025d-2*gammaaa*t151*t16
12065     9         *t200*t89-6.934448603031025d-2*t16*t17*t197*t89-6.9344486
12066     :         03031025d-2*gammaaa*t152*t16*t197*t89-6.780349745185891d-
12067     ;         1*gammaaa*t151*t17*t182*t89-7.396745176566426d-1*gammaaa*
12068     <         t151*t17*t187*t78*t88+2.77377944121241d-1*gammaaa*t16*t17
12069     =         *t187*t266*t88-1.525825752416348d-8*t190*t383*t8-3.698372
12070     >         588283213d-1*gammaaa*t25*t267*t78+6.934448603031025d-2*ga
12071     ?         mmaaa*t16*t25*t422-4.1606691618186153d-1*gammaaa*t151*t16
12072     @         *t17*t186*t365+5.02248129273029d-2*t182*t34+6.93444860303
12073     1         1025d-2*t16*t200*t25+6.780349745185891d-1*t17*t182*t25+6.
12074     2         780349745185891d-1*gammaaa*t152*t182*t25+7.88166287552949
12075     3         9d-6*t12*t192*t205+1.386889720606205d-1*gammaaa*t151*t16*
12076     4         t17*t187*t197+1.386889720606205d-1*t16*t17*t186*t187+1.38
12077     5         6889720606205d-1*gammaaa*t152*t16*t186*t187
12078            t425 = 3.75d-1*t153*t215*t392
12079            t426 = -2.5d-1*t153*t202*t216
12080            t427 = -5.0d-1*t101*t216*t268
12081            t428 = 5.0d-1*t102*t423
12082            t429 = t428+t427+t426+t425
12083            t430 = 3.75d-1*t153*t215*t399
12084            t431 = -2.5d-1*t153*t202*t223
12085            t432 = -5.0d-1*t101*t223*t268
12086            t433 = 5.0d-1*t107*t423
12087            t434 = 3.75d-1*t153*t215*t406
12088            t435 = -2.5d-1*t153*t202*t233
12089            t436 = -5.0d-1*t101*t233*t268
12090            t437 = 5.0d-1*t116*t423
12091            t438 = t437+t436+t435+t434+t433+t432+t431+t430
12092            t439 = 1/t29**9
12093            t440 = 3.848347315591266d-1*t1*t171*t268*t3*t93-1.2827824385
12094     1         30422d-1*t1*t153*t171*t23*t93-5.701255282357431d-2*t1*t13
12095     2         9*t153*t87-1.282782438530422d-1*t1*t139*t3*t423-4.8104341
12096     3         44489083d-1*t1*t153*t204*t284*t3+1.924173657795633d-1*t1*
12097     4         t153*t171*t202*t3+8.551882923536147d-2*t1*t139*t23*t268
12098            t441 = 2*t289*t93+t27*t440+t31*t423-1.282782438530422d-1*t1*
12099     1         t139*t153*t202*t3+2*t140*t268+t153*t256
12100            t442 = 2.2804408244486873d-1*t297*t87-7.028397206309868d-2*t
12101     1         150*t86+1.4759535677446958d-2*t85-1.488977446919221d-3*t5
12102     2         *t84+1.3054479684612974d-4*gammaaa*t83-1.4356172290248254
12103     3         d-5*t14*t82+7.231579243233723d-7*t12*t81-5.95218182135909
12104     4         4d-8*t10*t80
12105            t443 = -5.401653940062245d-4*t150*t86+4.631892373620269d-4*t
12106     1         85-1.3255240767081d-4*t5*t84+2.0772851505482245d-5*gammaa
12107     2         a*t83-1.9701128035617912d-6*t14*t82
12108            t444 = -1.6455307846020562d-2*gammaaa*t16*t298*t89*t91-3.291
12109     1         0615692041123d-2*t151*t16*t89*t91+3.2910615692041123d-2*g
12110     2         ammaaa*t16*t187*t296*t91-1.6455307846020562d-2*gammaaa*t1
12111     3         6*t299*t88*t89-3.2910615692041123d-2*t152*t16*t88*t89+4.3
12112     4         8808209227215d-2*gammaaa*t17*t298*t78*t89+8.7761641845443
12113     5         d-2*t151*t17*t78*t89+8.7761641845443d-2*gammaaa*t151*t152
12114     6         *t78*t89-1.6455307846020562d-2*gammaaa*t16*t17*t442*t89-3
12115     7         .2910615692041123d-2*gammaaa*t151*t16*t267*t89-3.29106156
12116     8         92041123d-2*t16*t17*t266*t89-3.2910615692041123d-2*gammaa
12117     9         a*t152*t16*t266*t89-9.873184707612337d-2*gammaaa*t16*t17*
12118     :         t296*t365*t88+3.2910615692041123d-2*gammaaa*t16*t17*t187*
12119     ;         t298*t88+6.582123138408225d-2*t151*t16*t17*t187*t88+6.582
12120     <         123138408225d-2*gammaaa*t151*t152*t16*t187*t88-4.38808209
12121     =         227215d-2*gammaaa*t25*t299*t78-8.7761641845443d-2*gammaaa
12122     >         *t17*t187*t296*t78-8.7761641845443d-2*t152*t25*t78+1.6455
12123     ?         307846020562d-2*gammaaa*t16*t25*t443+3.2910615692041123d-
12124     @         2*t16*t25*t267+6.582123138408225d-2*gammaaa*t151*t16*t17*
12125     1         t187*t266
12126            t445 = 2.2539947951660788d-4*t85*t94-6.934448603031025d-2*ga
12127     1         mmaaa*t16*t298*t89*t91-1.386889720606205d-1*t151*t16*t89*
12128     2         t91+1.386889720606205d-1*gammaaa*t16*t187*t296*t91-6.9344
12129     3         48603031025d-2*gammaaa*t16*t299*t88*t89-1.386889720606205
12130     4         d-1*t152*t16*t88*t89+1.8491862941416065d-1*gammaaa*t17*t2
12131     5         98*t78*t89+3.698372588283213d-1*t151*t17*t78*t89+3.698372
12132     6         588283213d-1*gammaaa*t151*t152*t78*t89-6.934448603031025d
12133     7         -2*gammaaa*t16*t17*t442*t89-1.386889720606205d-1*gammaaa*
12134     8         t151*t16*t267*t89-1.386889720606205d-1*t16*t17*t266*t89-1
12135     9         .386889720606205d-1*gammaaa*t152*t16*t266*t89-4.160669161
12136     :         8186153d-1*gammaaa*t16*t17*t296*t365*t88+1.38688972060620
12137     ;         5d-1*gammaaa*t16*t17*t187*t298*t88+2.77377944121241d-1*t1
12138     <         51*t16*t17*t187*t88+2.77377944121241d-1*gammaaa*t151*t152
12139     =         *t16*t187*t88-2.318136139861618d-6*gammaaa*t205*t83+5.721
12140     >         846571561304d-9*t12*t383*t81-1.8491862941416065d-1*gammaa
12141     ?         a*t25*t299*t78-3.698372588283213d-1*gammaaa*t17*t187*t296
12142     @         *t78-3.698372588283213d-1*t152*t25*t78+6.934448603031025d
12143     1         -2*gammaaa*t16*t25*t443+1.386889720606205d-1*t16*t25*t267
12144     2         +2.77377944121241d-1*gammaaa*t151*t16*t17*t187*t266
12145            t446 = 3.75d-1*t101*t294*t392
12146            t447 = -5.0d-1*t153*t216*t268
12147            t448 = -2.5d-1*t101*t216*t300
12148            t449 = 5.0d-1*t102*t444
12149            t450 = t449+t448+t447+t446
12150            t451 = 3.75d-1*t101*t294*t399
12151            t452 = -5.0d-1*t153*t223*t268
12152            t453 = -2.5d-1*t101*t223*t300
12153            t454 = 5.0d-1*t107*t444
12154            t455 = 3.75d-1*t101*t294*t406
12155            t456 = -5.0d-1*t153*t233*t268
12156            t457 = -2.5d-1*t101*t233*t300
12157            t458 = 5.0d-1*t116*t444
12158            t459 = t458+t457+t456+t455+t454+t453+t452+t451
12159            t460 = 1/t27**5
12160            t461 = 1.924173657795633d-1*t1*t171*t3*t300*t93-4.8104341444
12161     1         89083d-1*t1*t284*t294*t3*t93-1.282782438530422d-1*t1*t139
12162     2         *t3*t444+4.2759414617680735d-2*t1*t139*t23*t300+3.8483473
12163     3         15591266d-1*t1*t153*t171*t268*t3-6.41391219265211d-2*t1*t
12164     4         171*t23*t294
12165            t462 = -1.282782438530422d-1*t1*t139*t3*t300*t93+1.924173657
12166     1         795633d-1*t1*t171*t294*t3*t93+t27*t461+t31*t444+t140*t300
12167     2         -2.565564877060844d-1*t1*t139*t153*t268*t3+2*t153*t289
12168            t463 = t153**3
12169            t464 = t151**3
12170            t465 = -1.6318099605766218d-5*t9+2.3072419752184684d-6*t5*t7
12171     1         -8.785496507887335d-3*t15*t297+2.5654959275047734d-1*t23/
12172     2         t10-1.3559211081063233d-7*gammaaa*t21+1.2400378794498113d
12173     3         -8*t14*t19+1.1167330851894158d-4*t11*t150
12174            t466 = -2.5966064381852805d-6*t9+3.1662527200100216d-7*t5*t7
12175     1         -6.752067425077807d-5*t15*t297+9.941430575310749d-6*t11*t
12176     2         150
12177            t467 = -1.6455307846020562d-2*gammaaa*t16*t17*t465*t89-4.936
12178     1         5923538061685d-2*gammaaa*t151*t16*t299*t89-4.936592353806
12179     2         1685d-2*t16*t17*t298*t89-4.9365923538061685d-2*gammaaa*t1
12180     3         52*t16*t298*t89-9.873184707612337d-2*t151*t152*t16*t89+1.
12181     4         6455307846020562d-2*gammaaa*t16*t25*t466-9.87318470761233
12182     5         7d-2*gammaaa*t16*t17*t365*t464+4.9365923538061685d-2*t16*
12183     6         t25*t299+9.873184707612337d-2*gammaaa*t151*t16*t17*t187*t
12184     7         298+9.873184707612337d-2*t16*t17*t187*t296+9.873184707612
12185     8         337d-2*gammaaa*t152*t16*t187*t296
12186            t468 = 5.21580631468864d-7*t205*t9-6.934448603031025d-2*gamm
12187     1         aaa*t16*t17*t465*t89-2.0803345809093077d-1*gammaaa*t151*t
12188     2         16*t299*t89-2.0803345809093077d-1*t16*t17*t298*t89-2.0803
12189     3         345809093077d-1*gammaaa*t152*t16*t298*t89-4.1606691618186
12190     4         153d-1*t151*t152*t16*t89+6.934448603031025d-2*gammaaa*t16
12191     5         *t25*t466-4.1606691618186153d-1*gammaaa*t16*t17*t365*t464
12192     6         -2.1456924643354894d-9*gammaaa*t21*t383+2.080334580909307
12193     7         7d-1*t16*t25*t299+4.1606691618186153d-1*gammaaa*t151*t16*
12194     8         t17*t187*t298+4.1606691618186153d-1*t16*t17*t187*t296+4.1
12195     9         606691618186153d-1*gammaaa*t152*t16*t187*t296
12196            t469 = 1/t44**2
12197            t470 = 3.75d-1*t399*t463
12198            t471 = -7.5d-1*t153*t223*t300
12199            t472 = 5.0d-1*t107*t467
12200            t473 = 3.75d-1*t392*t463
12201            t474 = -7.5d-1*t153*t216*t300
12202            t475 = 5.0d-1*t102*t467
12203            t476 = t169**3
12204            t477 = 3.75d-1*t406*t463
12205            t478 = -7.5d-1*t153*t233*t300
12206            t479 = 5.0d-1*t116*t467
12207            t480 = t479+t478+t477+t472+t471+t470
12208            t481 = t31*t467-1.282782438530422d-1*t1*t3*t30*t467+9.620868
12209     1         288978166d-2*t1*t171*t3*t463-1.924173657795633d-1*t1*t139
12210     2         *t153*t3*t300
12211            fnc(iq) = fnc(iq)-9.305257363491d-1*t22*t76*wght
12212            Amat(iq,D1_RA) = -1.2407009817987999d+0*t2*t76*wght-9.305257
12213     1         363491d-1*t149*t22*wght+Amat(iq,D1_RA)
12214            Cmat(iq,D1_GAA) = Cmat(iq,D1_GAA)-9.305257363491d-1*t22*(t18
12215     1         1*t73+t16*t163*t25+t175+t173+t172+t170+t168+t164+t162+t15
12216     2         7+t156+t154)*wght
12217            Amat2(iq,D2_RA_RA) = -4.135669939329333d-1*t40*t76*wght-9.30
12218     1         5257363491d-1*t22*t260*wght-2.4814019635975998d+0*t149*t2
12219     2         *wght+Amat2(iq,D2_RA_RA)
12220            Cmat2(iq,D2_RA_GAA) = -1.2407009817987999d+0*t2*(-8.88888888
12221     1         8888888d-1*t264*t72*t73+t265+t263+t262+t261+t175+t173+t17
12222     2         2+t170+t168+t164+t162+t157+t156+t154)*wght-9.305257363491
12223     3         d-1*t22*t293*wght+Cmat2(iq,D2_RA_GAA)
12224            Cmat2(iq,D2_GAA_GAA) = Cmat2(iq,D2_GAA_GAA)-9.305257363491d-
12225     1         1*t22*(t16*t320*t89+t352*t73+6.764482379964267d-3*t1*t139
12226     2         *t153*t174*t3*t35*t73+t139*t3*t340*t38+t148*t353+t339+t33
12227     3         8+t337+t336+t121*t334+t330+t323+t321+t112*t16*t25*t319+t1
12228     4         6*t25*t310+t309+t307+t306+t305+t303+t301+t295)*wght
12229            Amat3(iq,D3_RA_RA_RA) = -1.2407009817987999d+0*t40*(t99+t98+
12230     1         t97+t96-4.727288888888889d-2*t101*t32*t77+2.6666666666666
12231     2         666d+0*t148*t355*t72*t75-8.888888888888888d-1*(4.93659235
12232     3         38061685d-2*t1*t3*(t144-5.0d-1*t1*t101*t139*t3)*t30-1.443
12233     4         1302433467247d-1*t1*t101*t139*t3+t143)*t72*t73-1.05465777
12234     5         77777776d-1*t35*t355*t36*t73+5.273288888888887d-2*(t141-6
12235     6         .41391219265211d-2*t1*t101*t139*t3)*t35*t38-4.72728888888
12236     7         8889d-2*t137*t28*t354+t136+t129+t122+t115+t113)*wght-9.30
12237     8         5257363491d-1*t22*(-8.888888888888888d-1*t73*t75*(1.42378
12238     9         8d-1*t228*t95-2.4d+0*t68*(6.41391219265211d-2*t132*(16*ga
12239     :         mmaaa*t78*t88*t89*t91-3*gammaaa*t16*t197*t89*t91+2.933333
12240     ;         3333333333d+1*gammaaa*t182*t25*t91+6*gammaaa*t16*t186*t18
12241     <         7*t91-3*gammaaa*t16*t200*t88*t89-2.9333333333333333d+1*ga
12242     =         mmaaa*t17*t182*t88*t89+8*gammaaa*t17*t197*t78*t89-gammaaa
12243     >         *t16*t17*t376*t89+6*gammaaa*t16*t17*t187*t197*t88-8*gamma
12244     ?         aa*t200*t25*t78-16*gammaaa*t17*t186*t187*t78+gammaaa*t16*
12245     @         t25*t379-6*gammaaa*t16*t17*t364*t365-4.5629629629629626d+
12246     1         1*gammaaa*t17*t25*t356)-3.75d-1*t415*t418+4.8104341444890
12247     2         83d-2*t133**3*t417-5.0d-1*t131*t403-9.620868288978166d-2*
12248     3         t133*t249*t252+7.5d-1*t114*t228*t251)-3.15d+1*t415*t416*t
12249     4         71-8.400000000000001d+0*t130*t403*t71-6.3d+1*t114*t228*t2
12250     5         48*t71-2.7259596d+0*t403*t67+5.672746666666666d-2*t403*t6
12251     6         6+4.7459599999999996d-2*t384*t66-1.6355757600000004d+1*t1
12252     7         14*t228*t66-1.8610765434507923d+1*t415*t416-5.4519192d+0*
12253     8         t415+4.7459599999999996d-2*t35*t403-4.9628707825354457d+0
12254     9         *t130*t403-2.52d+1*t114*t130*t253-6.3d+1*t134*t247*t248-3
12255     :         .7221530869015845d+1*t114*t228*t248-2.52d+1*t130*t134*t22
12256     ;         8+1.7018239999999996d-1*t114*t228+1.423788d-1*t114*t206)-
12257     <         3.1639733333333325d-1*t259*t36*t73*t95-6.327946666666665d
12258     =         -1*t142*t147*t73*t95+1.5819866666666663d-1*t255*t38*t95+9
12259     >         .491919999999998d-1*t148*t209*t36*t95-8.888888888888888d-
12260     ?         1*t72*t73*(4.9365923538061685d-2*t1*t3*t30*(-6.6666666666
12261     @         66666d-1*t1*t139*t87*t93+2.25d+0*t1*t171*t202*t3*t93-1.87
12262     1         5d+0*t1*t284*t3*t382-5.0d-1*t1*t139*t3*t381-1.03703703703
12263     2         7037d+0*t1*t196*t30-7.5d-1*t1*t171*t204*t23+5.0d-1*t1*t13
12264     3         9*t202*t23)-1.9241736577956325d-1*t1*t139*t87*t93-2.46829
12265     4         61769030842d-2*t1*t139*t257*t3*t93+6.494086095060261d-1*t
12266     5         1*t171*t202*t3*t93-5.411738412550218d-1*t1*t284*t3*t382-1
12267     6         .4431302433467247d-1*t1*t139*t3*t381-1.6455307846020562d-
12268     7         2*t1*t23*t257*t30-2.993159023237651d-1*t1*t196*t30+9.8731
12269     8         84707612337d-2*t145*t257-2.164695365020087d-1*t1*t171*t20
12270     9         4*t23+1.4431302433467247d-1*t1*t139*t202*t23)+5.273288888
12271     :         888887d-2*t35*t38*(-8.551882923536147d-2*t1*t139*t87*t93+
12272     ;         2.8862604866934494d-1*t1*t171*t202*t3*t93-2.4052170722445
12273     <         415d-1*t1*t284*t3*t382-6.41391219265211d-2*t1*t139*t3*t38
12274     =         1-1.330292899216734d-1*t1*t196*t30-9.620868288978166d-2*t
12275     >         1*t171*t204*t23+6.41391219265211d-2*t1*t139*t202*t23)+1.4
12276     ?         181866666666668d-1*t137*t256*t77*t93-2.8363733333333335d-
12277     @         1*t207*t208*t77*t93+2.8363733333333335d-1*t202*t203*t32*t
12278     1         93+7.57211d-1*(2.63284925536329d-1*gammaaa*t61*t65*t78*t8
12279     2         8*t89*t91+9.873184707612337d-2*gammaaa*t125*t126*t16*t65*
12280     3         t88*t89*t91+9.873184707612337d-2*gammaaa*t127*t128*t16*t6
12281     4         1*t88*t89*t91-4.9365923538061685d-2*gammaaa*t16*t197*t61*
12282     5         t65*t89*t91+2.63284925536329d-1*gammaaa*t125*t126*t25*t65
12283     6         *t78*t91+2.63284925536329d-1*gammaaa*t127*t128*t25*t61*t7
12284     7         8*t91+4.8268903014993647d-1*gammaaa*t182*t25*t61*t65*t91+
12285     8         9.873184707612337d-2*gammaaa*t16*t186*t187*t61*t65*t91-4.
12286     9         9365923538061685d-2*gammaaa*t126*t16*t243*t25*t65*t91+9.8
12287     :         73184707612337d-2*gammaaa*t16*t241*t242*t25*t65*t91-4.936
12288     ;         5923538061685d-2*gammaaa*t128*t16*t246*t25*t61*t91+9.8731
12289     <         84707612337d-2*gammaaa*t16*t244*t245*t25*t61*t91+9.873184
12290     =         707612337d-2*gammaaa*t125*t126*t127*t128*t16*t25*t91-2.63
12291     >         284925536329d-1*gammaaa*t125*t126*t17*t65*t78*t88*t89-2.6
12292     ?         3284925536329d-1*gammaaa*t127*t128*t17*t61*t78*t88*t89-4.
12293     @         9365923538061685d-2*gammaaa*t16*t200*t61*t65*t88*t89-4.82
12294     1         68903014993647d-1*gammaaa*t17*t182*t61*t65*t88*t89+4.9365
12295     2         923538061685d-2*gammaaa*t126*t16*t17*t243*t65*t88*t89-9.8
12296     3         73184707612337d-2*gammaaa*t16*t17*t241*t242*t65*t88*t89+4
12297     4         .9365923538061685d-2*gammaaa*t128*t16*t17*t246*t61*t88*t8
12298     5         9-9.873184707612337d-2*gammaaa*t16*t17*t244*t245*t61*t88*
12299     6         t89-9.873184707612337d-2*gammaaa*t125*t126*t127*t128*t16*
12300     7         t17*t88*t89+1.316424627681645d-1*gammaaa*t17*t197*t61*t65
12301     8         *t78*t89-1.6455307846020562d-2*gammaaa*t16*t17*t376*t61*t
12302     9         65*t89+4.9365923538061685d-2*gammaaa*t125*t126*t16*t17*t1
12303     :         97*t65*t89+4.9365923538061685d-2*gammaaa*t127*t128*t16*t1
12304     ;         7*t197*t61*t89+9.873184707612337d-2*gammaaa*t16*t17*t187*
12305     <         t197*t61*t65*t88-1.316424627681645d-1*gammaaa*t200*t25*t6
12306     =         1*t65*t78-2.63284925536329d-1*gammaaa*t17*t186*t187*t61*t
12307     >         65*t78+1.316424627681645d-1*gammaaa*t126*t17*t243*t25*t65
12308     ?         *t78-2.63284925536329d-1*gammaaa*t17*t241*t242*t25*t65*t7
12309     @         8+1.316424627681645d-1*gammaaa*t128*t17*t246*t25*t61*t78-
12310     1         2.63284925536329d-1*gammaaa*t17*t244*t245*t25*t61*t78-2.6
12311     2         3284925536329d-1*gammaaa*t125*t126*t127*t128*t17*t25*t78+
12312     3         1.6455307846020562d-2*gammaaa*t16*t25*t379*t61*t65-9.8731
12313     4         84707612337d-2*gammaaa*t16*t17*t364*t365*t61*t65-7.508496
12314     5         024554567d-1*gammaaa*t17*t25*t356*t61*t65-1.6455307846020
12315     6         562d-2*gammaaa*t126*t16*t17*t25*t413*t65-9.87318470761233
12316     7         7d-2*gammaaa*t16*t17*t25*t411*t412*t65+9.873184707612337d
12317     8         -2*gammaaa*t125*t16*t17*t242*t243*t25*t65-4.9365923538061
12318     9         685d-2*gammaaa*t125*t126*t16*t200*t25*t65-4.8268903014993
12319     :         647d-1*gammaaa*t125*t126*t17*t182*t25*t65-9.8731847076123
12320     ;         37d-2*gammaaa*t125*t126*t16*t17*t186*t187*t65+t403*t61*t6
12321     <         3-t126*t413*t59*t63-6*t411*t412*t59*t63+6*t125*t242*t243*
12322     =         t59*t63-3*t114*t126*t243*t63+6*t114*t241*t242*t63-3*t125*
12323     >         t126*t228*t63-6*t123**3*t410*t59*t61-t124*(t409+t408+t407
12324     ?         +t396)*t59*t61+6*t123*t239*t240*t59*t61-9.873184707612337
12325     @         d-2*gammaaa*t127**3*t16*t17*t25*t414*t61-1.64553078460205
12326     1         62d-2*gammaaa*t128*t16*t17*t25*(t402+t401+t400+t396)*t61+
12327     2         9.873184707612337d-2*gammaaa*t127*t16*t17*t245*t246*t25*t
12328     3         61-4.9365923538061685d-2*gammaaa*t127*t128*t16*t200*t25*t
12329     4         61-4.8268903014993647d-1*gammaaa*t127*t128*t17*t182*t25*t
12330     5         61-3*t114*t124*t240*t61+6*t114*t238*t239*t61-3*t123*t124*
12331     6         t228*t61-9.873184707612337d-2*gammaaa*t127*t128*t16*t17*t
12332     7         186*t187*t61+3*t123*t124*t126*t243*t59-6*t123*t124*t241*t
12333     8         242*t59+3*t124*t125*t126*t240*t59-6*t125*t126*t238*t239*t
12334     9         59+4.9365923538061685d-2*gammaaa*t125*t126*t128*t16*t17*t
12335     :         246*t25-9.873184707612337d-2*gammaaa*t125*t126*t16*t17*t2
12336     ;         44*t245*t25+4.9365923538061685d-2*gammaaa*t126*t127*t128*
12337     <         t16*t17*t243*t25-9.873184707612337d-2*gammaaa*t127*t128*t
12338     =         16*t17*t241*t242*t25+6*t114*t123*t124*t125*t126)+5.265698
12339     >         51072658d-1*gammaaa*t52*t78*t88*t89*t91-1.974636941522467
12340     ?         4d-1*gammaaa*t111*t112*t16*t88*t89*t91-9.873184707612337d
12341     @         -2*gammaaa*t16*t197*t52*t89*t91-5.26569851072658d-1*gamma
12342     1         aa*t111*t112*t25*t78*t91+9.653780602998729d-1*gammaaa*t18
12343     2         2*t25*t52*t91+1.9746369415224674d-1*gammaaa*t16*t186*t187
12344     3         *t52*t91+9.873184707612337d-2*gammaaa*t112*t16*t227*t25*t
12345     4         91-9.873184707612337d-2*gammaaa*t16*t211*t212*t25*t91+5.2
12346     5         6569851072658d-1*gammaaa*t111*t112*t17*t78*t88*t89-9.8731
12347     6         84707612337d-2*gammaaa*t16*t200*t52*t88*t89-9.65378060299
12348     7         8729d-1*gammaaa*t17*t182*t52*t88*t89-9.873184707612337d-2
12349     8         *gammaaa*t112*t16*t17*t227*t88*t89+9.873184707612337d-2*g
12350     9         ammaaa*t16*t17*t211*t212*t88*t89+2.63284925536329d-1*gamm
12351     :         aaa*t17*t197*t52*t78*t89-3.2910615692041123d-2*gammaaa*t1
12352     ;         6*t17*t376*t52*t89-9.873184707612337d-2*gammaaa*t111*t112
12353     <         *t16*t17*t197*t89+1.9746369415224674d-1*gammaaa*t16*t17*t
12354     =         187*t197*t52*t88-2.63284925536329d-1*gammaaa*t200*t25*t52
12355     >         *t78-5.26569851072658d-1*gammaaa*t17*t186*t187*t52*t78-2.
12356     ?         63284925536329d-1*gammaaa*t112*t17*t227*t25*t78+2.6328492
12357     @         5536329d-1*gammaaa*t17*t211*t212*t25*t78-4.72728888888888
12358     1         9d-2*t32*t381*t77+1.4181866666666668d-1*t137*t140*t202*t7
12359     2         7+2.6666666666666666d+0*t148*t420*t72*t75+5.3333333333333
12360     3         33d+1*t386*t387*t72*t75-3.2d+1*t147*t210*t259*t72*t75+8.0
12361     4         d+0*t135*t148*t259*t75+8.0d+0*t147*t148*t254*t75-3.2d+1*t
12362     5         135*t209*t210*t75-1.0546577777777776d-1*t35*t36*t420*t73-
12363     6         3.1639733333333325d-1*t147*t206*t36*t73-3.163973333333332
12364     7         5d-1*t142*t259*t35*t73-3.1639733333333325d-1*t147*t255*t3
12365     8         5*t73-2.6666666666666666d+0*t135*t258*t73-2.6666666666666
12366     9         666d+0*t146*t254*t73+8.0d+0*t146*t148*t259*t72+8.0d+0*t14
12367     :         7*t148*t258*t72-3.2d+1*t146*t209*t210*t72-2.0d+0*t121*(-1
12368     ;         .475609999999999d-1*t106*t397*t56-8.853659999999993d-1*t3
12369     <         89*t390*t56+8.853659999999993d-1*t105*t214*t220*t56-1.475
12370     =         609999999999d-1*t119*(t409+t408+t407+t395+t394+t393)*t50-
12371     >         8.853659999999993d-1*t118**3*t405*t50+8.853659999999993d-
12372     ?         1*t118*t232*t236*t50+4.4268299999999966d-1*t105*t106*t119
12373     @         *t236-8.853659999999993d-1*t105*t106*t231*t232+4.42682999
12374     1         99999966d-1*t106*t118*t119*t220-8.853659999999993d-1*t118
12375     2         *t119*t213*t214)*t59-4.0d+0*t120**3*t404*t59+6.0d+0*t120*
12376     3         t230*t237*t59-2.0d+0*t403*t58+3.2910615692041123d-2*gamma
12377     4         aa*t16*t25*t379*t52-1.9746369415224674d-1*gammaaa*t16*t17
12378     5         *t364*t365*t52-1.5016992049109135d+0*gammaaa*t17*t25*t356
12379     6         *t52+3.2910615692041123d-2*gammaaa*t112*t16*t17*t25*(6.09
12380     7         65d-1*t110*(t402+t401+t400+t395+t394+t393)*t50+3.6579d+0*
12381     8         t109**3*t398*t50-3.6579d+0*t109*t222*t226*t50+6.0965d-1*t
12382     9         106*t397*t47+3.6579d+0*t389*t390*t47-3.6579d+0*t105*t214*
12383     :         t220*t47-1.82895d+0*t105*t106*t110*t226+3.6579d+0*t105*t1
12384     ;         06*t221*t222-1.82895d+0*t106*t109*t110*t220+3.6579d+0*t10
12385     <         9*t110*t213*t214)-4.727288888888889d-2*t137*t28*t419+6.58
12386     =         2123138408225d-2*gammaaa*t111**3*t16*t17*t25*t388-1.26558
12387     >         9333333333d+0*t210*t35*t36*t386-2.8363733333333335d-1*t14
12388     ?         0**3*t28*t385+5.273288888888887d-2*t36*t38*t384-2.8363733
12389     @         333333335d-1*t32*t335*t382+1.5819866666666663d-1*t142*t20
12390     1         6*t38+9.491919999999998d-1*t147*t148*t259*t35*t36+9.49191
12391     2         9999999998d-1*t142*t148*t209*t35+2.8363733333333335d-1*t1
12392     3         40*t207*t256*t28-9.873184707612337d-2*gammaaa*t111*t16*t1
12393     4         7*t212*t227*t25+9.873184707612337d-2*gammaaa*t111*t112*t1
12394     5         6*t200*t25+9.653780602998729d-1*gammaaa*t111*t112*t17*t18
12395     6         2*t25-6.0d+0*t114*t121*t237+6.0d+0*t114*t229*t230-6.0d+0*
12396     7         t120*t121*t228-2.8363733333333335d-1*t137*t140*t203*t204+
12397     8         1.9746369415224674d-1*gammaaa*t111*t112*t16*t17*t186*t187
12398     9         +1.6d+1*t135*t146*t147*t148)*wght+2.757113292886222d-1*t1
12399     :         00*t76*wght-3.7221029453964d+0*t2*t260*wght+Amat3(iq,D3_R
12400     ;         A_RA_RA)
12401            Cmat3(iq,D3_RA_RA_GAA) = -9.305257363491d-1*t22*(-8.88888888
12402     1         8888888d-1*t73*t75*(9.491919999999999d-2*t268*t95-2.4d+0*
12403     2         t68*(6.41391219265211d-2*t132*(-2*t16*t88*t89*t91+5.33333
12404     3         3333333333d+0*gammaaa*t151*t78*t89*t91-2*gammaaa*t16*t266
12405     4         *t89*t91+4*gammaaa*t151*t16*t187*t88*t91-5.33333333333333
12406     5         3d+0*t25*t78*t91+5.333333333333333d+0*t17*t78*t88*t89+5.3
12407     6         33333333333333d+0*gammaaa*t152*t78*t88*t89-2*gammaaa*t16*
12408     7         t267*t88*t89+5.333333333333333d+0*gammaaa*t17*t266*t78*t8
12409     8         9-gammaaa*t16*t17*t421*t89-gammaaa*t151*t16*t200*t89-t16*
12410     9         t17*t197*t89-gammaaa*t152*t16*t197*t89-9.777777777777779d
12411     :         +0*gammaaa*t151*t17*t182*t89-1.0666666666666666d+1*gammaa
12412     ;         a*t151*t17*t187*t78*t88+4*gammaaa*t16*t17*t187*t266*t88-5
12413     <         .333333333333333d+0*gammaaa*t25*t267*t78+gammaaa*t16*t25*
12414     =         t422-6*gammaaa*t151*t16*t17*t186*t365+t16*t200*t25+9.7777
12415     >         77777777779d+0*t17*t182*t25+9.777777777777779d+0*gammaaa*
12416     ?         t152*t182*t25+2*gammaaa*t151*t16*t17*t187*t197+2*t16*t17*
12417     @         t186*t187+2*gammaaa*t152*t16*t186*t187)-5.0d-1*t131*t423-
12418     1         3.75d-1*t153*t247*t418+4.810434144489083d-2*t178*t250*t41
12419     2         7-6.41391219265211d-2*t133*t249*t285+5.0d-1*t114*t251*t26
12420     3         8-3.206956096326055d-2*t178*t249*t252+2.5d-1*t153*t228*t2
12421     4         51)-8.400000000000001d+0*t130*t423*t71-3.15d+1*t153*t247*
12422     5         t416*t71-4.2d+1*t114*t248*t268*t71-2.1d+1*t153*t228*t248*
12423     6         t71-2.7259596d+0*t423*t67+4.7459599999999996d-2*t424*t66+
12424     7         5.672746666666666d-2*t423*t66-1.0903838400000002d+1*t114*
12425     8         t268*t66-5.4519192d+0*t153*t228*t66+4.7459599999999996d-2
12426     9         *t35*t423-4.9628707825354457d+0*t130*t423-1.8610765434507
12427     :         923d+1*t153*t247*t416-1.68d+1*t114*t130*t286+9.4919199999
12428     ;         99999d-2*t114*t269-2.481435391267723d+1*t114*t248*t268-1.
12429     <         68d+1*t130*t134*t268+1.1345493333333331d-1*t114*t268-8.40
12430     =         0000000000001d+0*t130*t153*t253-2.1d+1*t179*t247*t248-1.2
12431     >         407176956338616d+1*t153*t228*t248-4.2d+1*t114*t134*t153*t
12432     ?         248-5.4519192d+0*t153*t247-8.400000000000001d+0*t130*t179
12433     @         *t228+4.7459599999999996d-2*t155*t228+5.672746666666666d-
12434     1         2*t153*t228+4.7459599999999996d-2*t153*t206)-2.1093155555
12435     2         55555d-1*t292*t36*t73*t95+1.3528964759928536d-2*t1*t139*t
12436     3         147*t153*t3*t73*t95-2.109315555555555d-1*t142*t174*t73*t9
12437     4         5+1.0546577777777776d-1*t288*t38*t95+6.327946666666665d-1
12438     5         *t147*t148*t174*t36*t95-8.888888888888888d-1*t72*t73*(4.9
12439     6         365923538061685d-2*t1*t3*t30*(1.5d+0*t1*t171*t268*t3*t93-
12440     7         5.0d-1*t1*t153*t171*t23*t93-2.222222222222222d-1*t1*t139*
12441     8         t153*t87-5.0d-1*t1*t139*t3*t423-1.875d+0*t1*t153*t204*t28
12442     9         4*t3+7.5d-1*t1*t153*t171*t202*t3+3.333333333333333d-1*t1*
12443     :         t139*t23*t268)+4.329390730040174d-1*t1*t171*t268*t3*t93-1
12444     ;         .4431302433467247d-1*t1*t153*t171*t23*t93-6.4139121926521
12445     <         09d-2*t1*t139*t153*t87-1.4431302433467247d-1*t1*t139*t3*t
12446     =         423-5.411738412550218d-1*t1*t153*t204*t284*t3-2.468296176
12447     >         9030842d-2*t1*t139*t153*t257*t3+2.164695365020087d-1*t1*t
12448     ?         153*t171*t202*t3+9.873184707612337d-2*t145*t290+9.6208682
12449     @         88978164d-2*t1*t139*t23*t268)+5.273288888888887d-2*t35*t3
12450     1         8*(1.924173657795633d-1*t1*t171*t268*t3*t93-6.41391219265
12451     2         211d-2*t1*t153*t171*t23*t93-2.8506276411787157d-2*t1*t139
12452     3         *t153*t87-6.41391219265211d-2*t1*t139*t3*t423-2.405217072
12453     4         2445415d-1*t1*t153*t204*t284*t3+9.620868288978166d-2*t1*t
12454     5         153*t171*t202*t3+4.2759414617680735d-2*t1*t139*t23*t268)+
12455     6         9.454577777777778d-2*t137*t289*t77*t93+1.8909155555555557
12456     7         d-1*t203*t268*t32*t93+2.4256332674106634d-2*t1*t140*t153*
12457     8         t207*t284*t3*t93-1.8909155555555557d-1*t137*t140*t153*t20
12458     9         3*t93+7.57211d-1*(-3.2910615692041123d-2*t16*t61*t65*t88*
12459     :         t89*t91+3.2910615692041123d-2*gammaaa*t126*t16*t169*t65*t
12460     ;         88*t89*t91+1.6455307846020562d-2*gammaaa*t107*t128*t153*t
12461     <         16*t61*t88*t89*t91+8.7761641845443d-2*gammaaa*t151*t61*t6
12462     =         5*t78*t89*t91-3.2910615692041123d-2*gammaaa*t16*t266*t61*
12463     >         t65*t89*t91+3.2910615692041123d-2*gammaaa*t125*t126*t151*
12464     ?         t16*t65*t89*t91+3.2910615692041123d-2*gammaaa*t127*t128*t
12465     @         151*t16*t61*t89*t91+6.582123138408225d-2*gammaaa*t151*t16
12466     1         *t187*t61*t65*t88*t91-8.7761641845443d-2*t25*t61*t65*t78*
12467     2         t91+8.7761641845443d-2*gammaaa*t126*t169*t25*t65*t78*t91+
12468     3         4.38808209227215d-2*gammaaa*t107*t128*t153*t25*t61*t78*t9
12469     4         1-3.2910615692041123d-2*gammaaa*t126*t16*t25*t282*t65*t91
12470     5         +6.582123138408225d-2*gammaaa*t125*t16*t169*t242*t25*t65*
12471     6         t91-3.2910615692041123d-2*t125*t126*t16*t25*t65*t91-3.291
12472     7         0615692041123d-2*gammaaa*t128*t16*t25*t283*t61*t91+3.2910
12473     8         615692041123d-2*gammaaa*t107*t127*t153*t16*t245*t25*t61*t
12474     9         91-3.2910615692041123d-2*t127*t128*t16*t25*t61*t91+3.2910
12475     :         615692041123d-2*gammaaa*t126*t127*t128*t16*t169*t25*t91+1
12476     ;         .6455307846020562d-2*gammaaa*t107*t125*t126*t128*t153*t16
12477     <         *t25*t91+8.7761641845443d-2*t17*t61*t65*t78*t88*t89+8.776
12478     =         1641845443d-2*gammaaa*t152*t61*t65*t78*t88*t89-8.77616418
12479     >         45443d-2*gammaaa*t126*t169*t17*t65*t78*t88*t89-4.38808209
12480     ?         227215d-2*gammaaa*t107*t128*t153*t17*t61*t78*t88*t89-3.29
12481     @         10615692041123d-2*gammaaa*t16*t267*t61*t65*t88*t89+3.2910
12482     1         615692041123d-2*gammaaa*t126*t16*t17*t282*t65*t88*t89-6.5
12483     2         82123138408225d-2*gammaaa*t125*t16*t169*t17*t242*t65*t88*
12484     3         t89+3.2910615692041123d-2*t125*t126*t16*t17*t65*t88*t89+3
12485     4         .2910615692041123d-2*gammaaa*t125*t126*t152*t16*t65*t88*t
12486     5         89+3.2910615692041123d-2*gammaaa*t128*t16*t17*t283*t61*t8
12487     6         8*t89-3.2910615692041123d-2*gammaaa*t107*t127*t153*t16*t1
12488     7         7*t245*t61*t88*t89+3.2910615692041123d-2*t127*t128*t16*t1
12489     8         7*t61*t88*t89+3.2910615692041123d-2*gammaaa*t127*t128*t15
12490     9         2*t16*t61*t88*t89-3.2910615692041123d-2*gammaaa*t126*t127
12491     :         *t128*t16*t169*t17*t88*t89-1.6455307846020562d-2*gammaaa*
12492     ;         t107*t125*t126*t128*t153*t16*t17*t88*t89+8.7761641845443d
12493     <         -2*gammaaa*t17*t266*t61*t65*t78*t89-8.7761641845443d-2*ga
12494     =         mmaaa*t125*t126*t151*t17*t65*t78*t89-8.7761641845443d-2*g
12495     >         ammaaa*t127*t128*t151*t17*t61*t78*t89-1.6455307846020562d
12496     ?         -2*gammaaa*t16*t17*t421*t61*t65*t89-1.6455307846020562d-2
12497     @         *gammaaa*t151*t16*t200*t61*t65*t89-1.6455307846020562d-2*
12498     1         t16*t17*t197*t61*t65*t89-1.6455307846020562d-2*gammaaa*t1
12499     2         52*t16*t197*t61*t65*t89-1.6089634338331216d-1*gammaaa*t15
12500     3         1*t17*t182*t61*t65*t89+3.2910615692041123d-2*gammaaa*t125
12501     4         *t126*t16*t17*t266*t65*t89+1.6455307846020562d-2*gammaaa*
12502     5         t126*t151*t16*t17*t243*t65*t89-3.2910615692041123d-2*gamm
12503     6         aaa*t151*t16*t17*t241*t242*t65*t89+1.6455307846020562d-2*
12504     7         gammaaa*t126*t16*t169*t17*t197*t65*t89+3.2910615692041123
12505     8         d-2*gammaaa*t127*t128*t16*t17*t266*t61*t89+1.645530784602
12506     9         0562d-2*gammaaa*t128*t151*t16*t17*t246*t61*t89-3.29106156
12507     :         92041123d-2*gammaaa*t151*t16*t17*t244*t245*t61*t89+8.2276
12508     ;         53923010281d-3*gammaaa*t107*t128*t153*t16*t17*t197*t61*t8
12509     <         9-3.2910615692041123d-2*gammaaa*t125*t126*t127*t128*t151*
12510     =         t16*t17*t89-1.75523283690886d-1*gammaaa*t151*t17*t187*t61
12511     >         *t65*t78*t88+6.582123138408225d-2*gammaaa*t16*t17*t187*t2
12512     ?         66*t61*t65*t88-6.582123138408225d-2*gammaaa*t125*t126*t15
12513     @         1*t16*t17*t187*t65*t88-6.582123138408225d-2*gammaaa*t127*
12514     1         t128*t151*t16*t17*t187*t61*t88-8.7761641845443d-2*gammaaa
12515     2         *t25*t267*t61*t65*t78+8.7761641845443d-2*gammaaa*t126*t17
12516     3         *t25*t282*t65*t78-1.75523283690886d-1*gammaaa*t125*t169*t
12517     4         17*t242*t25*t65*t78+8.7761641845443d-2*t125*t126*t17*t25*
12518     5         t65*t78+8.7761641845443d-2*gammaaa*t125*t126*t152*t25*t65
12519     6         *t78+8.7761641845443d-2*gammaaa*t128*t17*t25*t283*t61*t78
12520     7         -8.7761641845443d-2*gammaaa*t107*t127*t153*t17*t245*t25*t
12521     8         61*t78+8.7761641845443d-2*t127*t128*t17*t25*t61*t78+8.776
12522     9         1641845443d-2*gammaaa*t127*t128*t152*t25*t61*t78-8.776164
12523     :         1845443d-2*gammaaa*t126*t127*t128*t169*t17*t25*t78-4.3880
12524     ;         8209227215d-2*gammaaa*t107*t125*t126*t128*t153*t17*t25*t7
12525     <         8+1.6455307846020562d-2*gammaaa*t16*t25*t422*t61*t65-9.87
12526     =         3184707612337d-2*gammaaa*t151*t16*t17*t186*t365*t61*t65+1
12527     >         .6455307846020562d-2*t16*t200*t25*t61*t65+1.6089634338331
12528     ?         216d-1*t17*t182*t25*t61*t65+1.6089634338331216d-1*gammaaa
12529     @         *t152*t182*t25*t61*t65+3.2910615692041123d-2*gammaaa*t151
12530     1         *t16*t17*t187*t197*t61*t65+3.2910615692041123d-2*t16*t17*
12531     2         t186*t187*t61*t65+3.2910615692041123d-2*gammaaa*t152*t16*
12532     3         t186*t187*t61*t65-1.6455307846020562d-2*gammaaa*t126*t16*
12533     4         t17*t25*t438*t65-9.873184707612337d-2*gammaaa*t16*t169*t1
12534     5         7*t241*t25*t412*t65+6.582123138408225d-2*gammaaa*t125*t16
12535     6         *t17*t242*t25*t282*t65-3.2910615692041123d-2*gammaaa*t125
12536     7         *t126*t16*t25*t267*t65+3.2910615692041123d-2*gammaaa*t16*
12537     8         t169*t17*t242*t243*t25*t65-1.6455307846020562d-2*t126*t16
12538     9         *t17*t243*t25*t65-1.6455307846020562d-2*gammaaa*t126*t152
12539     :         *t16*t243*t25*t65+3.2910615692041123d-2*t16*t17*t241*t242
12540     ;         *t25*t65+3.2910615692041123d-2*gammaaa*t152*t16*t241*t242
12541     <         *t25*t65-1.6455307846020562d-2*gammaaa*t126*t16*t169*t200
12542     =         *t25*t65-1.6089634338331216d-1*gammaaa*t126*t169*t17*t182
12543     >         *t25*t65-3.2910615692041123d-2*gammaaa*t126*t16*t169*t17*
12544     ?         t186*t187*t65+t423*t61*t63-t126*t438*t59*t63-6*t169*t241*
12545     @         t412*t59*t63+4*t125*t242*t282*t59*t63+2*t169*t242*t243*t5
12546     1         9*t63-2*t114*t126*t282*t63-2*t125*t126*t268*t63-t126*t153
12547     2         *t243*t63+2*t153*t241*t242*t63+4*t114*t125*t169*t242*t63-
12548     3         t126*t169*t228*t63-t124*(t437+t436+t435+t434)*t59*t61-3*t
12549     4         116*t153*t238*t410*t59*t61+4*t123*t239*t281*t59*t61+t116*
12550     5         t153*t239*t240*t59*t61-1.6455307846020562d-2*gammaaa*t128
12551     6         *t16*t17*t25*(t433+t432+t431+t430)*t61-4.9365923538061685
12552     7         d-2*gammaaa*t107*t153*t16*t17*t244*t25*t414*t61+6.5821231
12553     8         38408225d-2*gammaaa*t127*t16*t17*t245*t25*t283*t61-2*t114
12554     9         *t124*t281*t61-2*t123*t124*t268*t61-3.2910615692041123d-2
12555     :         *gammaaa*t127*t128*t16*t25*t267*t61+1.6455307846020562d-2
12556     ;         *gammaaa*t107*t153*t16*t17*t245*t246*t25*t61-1.6455307846
12557     <         020562d-2*t128*t16*t17*t246*t25*t61-1.6455307846020562d-2
12558     =         *gammaaa*t128*t152*t16*t246*t25*t61+3.2910615692041123d-2
12559     >         *t16*t17*t244*t245*t25*t61+3.2910615692041123d-2*gammaaa*
12560     ?         t152*t16*t244*t245*t25*t61-8.227653923010281d-3*gammaaa*t
12561     @         107*t128*t153*t16*t200*t25*t61-8.044817169165608d-2*gamma
12562     1         aa*t107*t128*t153*t17*t182*t25*t61-t124*t153*t240*t61+2*t
12563     2         153*t238*t239*t61+2*t114*t116*t123*t153*t239*t61-5.0d-1*t
12564     3         116*t124*t153*t228*t61-1.6455307846020562d-2*gammaaa*t107
12565     4         *t128*t153*t16*t17*t186*t187*t61+2*t123*t124*t126*t282*t5
12566     5         9+2*t124*t125*t126*t281*t59+5.0d-1*t116*t124*t126*t153*t2
12567     6         43*t59-t116*t124*t153*t241*t242*t59-4*t123*t124*t125*t169
12568     7         *t242*t59+t124*t126*t169*t240*t59-2*t126*t169*t238*t239*t
12569     8         59-2*t116*t123*t125*t126*t153*t239*t59+3.2910615692041123
12570     9         d-2*gammaaa*t125*t126*t128*t16*t17*t25*t283+3.29106156920
12571     :         41123d-2*gammaaa*t126*t127*t128*t16*t17*t25*t282+1.645530
12572     ;         7846020562d-2*gammaaa*t126*t128*t16*t169*t17*t246*t25-3.2
12573     <         910615692041123d-2*gammaaa*t126*t16*t169*t17*t244*t245*t2
12574     =         5-3.2910615692041123d-2*gammaaa*t107*t125*t126*t127*t153*
12575     >         t16*t17*t245*t25+8.227653923010281d-3*gammaaa*t107*t126*t
12576     ?         128*t153*t16*t17*t243*t25-1.6455307846020562d-2*gammaaa*t
12577     @         107*t128*t153*t16*t17*t241*t242*t25-6.582123138408225d-2*
12578     1         gammaaa*t125*t127*t128*t16*t169*t17*t242*t25+3.2910615692
12579     2         041123d-2*t125*t126*t127*t128*t16*t17*t25+3.2910615692041
12580     3         123d-2*gammaaa*t125*t126*t127*t128*t152*t16*t25+2*t114*t1
12581     4         23*t124*t126*t169+2*t123*t124*t125*t126*t153+t114*t116*t1
12582     5         24*t125*t126*t153)-6.582123138408225d-2*t16*t52*t88*t89*t
12583     6         91-6.582123138408225d-2*gammaaa*t112*t16*t161*t88*t89*t91
12584     7         +1.75523283690886d-1*gammaaa*t151*t52*t78*t89*t91-6.58212
12585     8         3138408225d-2*gammaaa*t16*t266*t52*t89*t91-6.582123138408
12586     9         225d-2*gammaaa*t111*t112*t151*t16*t89*t91+1.3164246276816
12587     :         45d-1*gammaaa*t151*t16*t187*t52*t88*t91-1.75523283690886d
12588     ;         -1*t25*t52*t78*t91-1.75523283690886d-1*gammaaa*t112*t161*
12589     <         t25*t78*t91+6.582123138408225d-2*gammaaa*t112*t16*t25*t27
12590     =         6*t91-6.582123138408225d-2*gammaaa*t111*t16*t161*t212*t25
12591     >         *t91+6.582123138408225d-2*t111*t112*t16*t25*t91+1.7552328
12592     ?         3690886d-1*t17*t52*t78*t88*t89+1.75523283690886d-1*gammaa
12593     @         a*t152*t52*t78*t88*t89+1.75523283690886d-1*gammaaa*t112*t
12594     1         161*t17*t78*t88*t89-6.582123138408225d-2*gammaaa*t16*t267
12595     2         *t52*t88*t89-6.582123138408225d-2*gammaaa*t112*t16*t17*t2
12596     3         76*t88*t89+6.582123138408225d-2*gammaaa*t111*t16*t161*t17
12597     4         *t212*t88*t89-6.582123138408225d-2*t111*t112*t16*t17*t88*
12598     5         t89-6.582123138408225d-2*gammaaa*t111*t112*t152*t16*t88*t
12599     6         89+1.75523283690886d-1*gammaaa*t17*t266*t52*t78*t89+1.755
12600     7         23283690886d-1*gammaaa*t111*t112*t151*t17*t78*t89-3.29106
12601     8         15692041123d-2*gammaaa*t16*t17*t421*t52*t89-3.29106156920
12602     9         41123d-2*gammaaa*t151*t16*t200*t52*t89-3.2910615692041123
12603     :         d-2*t16*t17*t197*t52*t89-3.2910615692041123d-2*gammaaa*t1
12604     ;         52*t16*t197*t52*t89-3.217926867666243d-1*gammaaa*t151*t17
12605     <         *t182*t52*t89-6.582123138408225d-2*gammaaa*t111*t112*t16*
12606     =         t17*t266*t89-3.2910615692041123d-2*gammaaa*t112*t151*t16*
12607     >         t17*t227*t89+3.2910615692041123d-2*gammaaa*t151*t16*t17*t
12608     ?         211*t212*t89-3.2910615692041123d-2*gammaaa*t112*t16*t161*
12609     @         t17*t197*t89-3.51046567381772d-1*gammaaa*t151*t17*t187*t5
12610     1         2*t78*t88+1.316424627681645d-1*gammaaa*t16*t17*t187*t266*
12611     2         t52*t88+1.316424627681645d-1*gammaaa*t111*t112*t151*t16*t
12612     3         17*t187*t88-1.75523283690886d-1*gammaaa*t25*t267*t52*t78-
12613     4         1.75523283690886d-1*gammaaa*t112*t17*t25*t276*t78+1.75523
12614     5         283690886d-1*gammaaa*t111*t161*t17*t212*t25*t78-1.7552328
12615     6         3690886d-1*t111*t112*t17*t25*t78-1.75523283690886d-1*gamm
12616     7         aaa*t111*t112*t152*t25*t78-4.727288888888889d-2*t32*t423*
12617     8         t77+9.454577777777778d-2*t137*t140*t268*t77+4.72728888888
12618     9         8889d-2*t137*t153*t256*t77-9.454577777777778d-2*t153*t207
12619     :         *t208*t77+2.6666666666666666d+0*t148*t441*t72*t75+5.33333
12620     ;         3333333333d+1*t174*t209*t387*t72*t75-2.1333333333333332d+
12621     <         1*t147*t210*t292*t72*t75-1.0666666666666666d+1*t174*t210*
12622     =         t259*t72*t75+5.333333333333333d+0*t135*t148*t292*t75+5.33
12623     >         3333333333333d+0*t147*t148*t287*t75+2.6666666666666666d+0
12624     ?         *t148*t180*t259*t75+2.6666666666666666d+0*t148*t174*t254*
12625     @         t75-1.0666666666666666d+1*t180*t209*t210*t75-2.1333333333
12626     1         333332d+1*t135*t147*t174*t210*t75-1.0546577777777776d-1*t
12627     2         35*t36*t441*t73-2.109315555555555d-1*t147*t269*t36*t73-1.
12628     3         0546577777777776d-1*t155*t259*t36*t73-1.0546577777777776d
12629     4         -1*t174*t206*t36*t73+6.764482379964267d-3*t1*t139*t153*t2
12630     5         59*t3*t35*t73-2.109315555555555d-1*t142*t292*t35*t73-2.10
12631     6         9315555555555d-1*t147*t288*t35*t73-1.0546577777777776d-1*
12632     7         t174*t255*t35*t73-1.7777777777777776d+0*t135*t291*t73-1.7
12633     8         777777777777776d+0*t146*t287*t73-8.888888888888888d-1*t25
12634     9         4*t264*t73-8.888888888888888d-1*t180*t258*t73-2.109315555
12635     :         555555d-1*t142*t147*t155*t73+5.333333333333333d+0*t146*t1
12636     ;         48*t292*t72+5.333333333333333d+0*t147*t148*t291*t72+2.666
12637     <         6666666666666d+0*t148*t259*t264*t72-1.0666666666666666d+1
12638     =         *t209*t210*t264*t72+2.6666666666666666d+0*t148*t174*t258*
12639     >         t72-2.1333333333333332d+1*t146*t147*t174*t210*t72-2.0d+0*
12640     ?         t121*(-1.475609999999999d-1*t106*t429*t56-4.4268299999999
12641     @         966d-1*t102*t153*t213*t390*t56+5.902439999999995d-1*t105*
12642     1         t214*t272*t56+1.475609999999999d-1*t102*t153*t214*t220*t5
12643     2         6-1.475609999999999d-1*t119*(t437+t436+t435+t434+t428+t42
12644     3         7+t426+t425)*t50-8.853659999999993d-1*t166*t231*t405*t50+
12645     4         5.902439999999995d-1*t118*t232*t279*t50+2.951219999999998
12646     5         d-1*t166*t232*t236*t50+2.951219999999998d-1*t105*t106*t11
12647     6         9*t279+2.951219999999998d-1*t106*t118*t119*t272+7.3780499
12648     7         99999994d-2*t102*t106*t119*t153*t236-1.475609999999999d-1
12649     8         *t102*t106*t153*t231*t232-5.902439999999995d-1*t105*t106*
12650     9         t118*t166*t232+1.475609999999999d-1*t106*t119*t166*t220-2
12651     :         .951219999999998d-1*t119*t166*t213*t214-2.951219999999998
12652     ;         d-1*t102*t105*t118*t119*t153*t214)*t59-4.0d+0*t167*t229*t
12653     <         404*t59+4.0d+0*t120*t230*t280*t59+2.0d+0*t167*t230*t237*t
12654     =         59-2.0d+0*t423*t58+3.2910615692041123d-2*gammaaa*t16*t25*
12655     >         t422*t52-1.9746369415224674d-1*gammaaa*t151*t16*t17*t186*
12656     ?         t365*t52+3.2910615692041123d-2*t16*t200*t25*t52+3.2179268
12657     @         67666243d-1*t17*t182*t25*t52+3.217926867666243d-1*gammaaa
12658     1         *t152*t182*t25*t52+6.582123138408225d-2*gammaaa*t151*t16*
12659     2         t17*t187*t197*t52+6.582123138408225d-2*t16*t17*t186*t187*
12660     3         t52+6.582123138408225d-2*gammaaa*t152*t16*t186*t187*t52+3
12661     4         .2910615692041123d-2*gammaaa*t112*t16*t17*t25*(6.0965d-1*
12662     5         t110*(t433+t432+t431+t430+t428+t427+t426+t425)*t50+3.6579
12663     6         d+0*t160*t221*t398*t50-2.4386000000000002d+0*t109*t222*t2
12664     7         75*t50-1.2193000000000001d+0*t160*t222*t226*t50+6.0965d-1
12665     8         *t106*t429*t47+1.82895d+0*t102*t153*t213*t390*t47-2.43860
12666     9         00000000002d+0*t105*t214*t272*t47-6.0965d-1*t102*t153*t21
12667     :         4*t220*t47-1.2193000000000001d+0*t105*t106*t110*t275-1.21
12668     ;         93000000000001d+0*t106*t109*t110*t272-3.04825d-1*t102*t10
12669     <         6*t110*t153*t226+6.0965d-1*t102*t106*t153*t221*t222+2.438
12670     =         6000000000002d+0*t105*t106*t109*t160*t222-6.0965d-1*t106*
12671     >         t110*t160*t220+1.2193000000000001d+0*t110*t160*t213*t214+
12672     ?         1.2193000000000001d+0*t102*t105*t109*t110*t153*t214)-4.72
12673     @         7288888888889d-2*t137*t28*t440+1.2128166337053317d-2*t1*t
12674     1         137*t153*t204*t3*t439+5.273288888888887d-2*t36*t38*t424+6
12675     2         .582123138408225d-2*gammaaa*t16*t161*t17*t211*t25*t388+3.
12676     3         6384499011159954d-2*t1*t153*t171*t208*t3*t385-3.382241189
12677     4         9821336d-3*t1*t139*t153*t206*t3*t38+1.0546577777777776d-1
12678     5         *t142*t269*t38+5.273288888888887d-2*t155*t255*t38+6.32794
12679     6         6666666665d-1*t147*t148*t292*t35*t36+3.1639733333333325d-
12680     7         1*t148*t174*t259*t35*t36-1.265589333333333d+0*t174*t209*t
12681     8         210*t35*t36+3.1639733333333325d-1*t148*t155*t209*t36-2.02
12682     9         934471398928d-2*t1*t139*t148*t153*t209*t3*t35+6.327946666
12683     :         666665d-1*t142*t147*t148*t174*t35-2.8363733333333335d-1*t
12684     ;         153*t204*t32*t335+9.454577777777778d-2*t153*t202*t203*t32
12685     <         -6.064083168526658d-3*t1*t137*t153*t202*t284*t3-1.2128166
12686     =         337053317d-2*t1*t153*t171*t207*t256*t3+1.8909155555555557
12687     >         d-1*t140*t207*t28*t289-4.0d+0*t114*t121*t280-6.5821231384
12688     ?         08225d-2*gammaaa*t111*t16*t17*t212*t25*t276-4.0d+0*t120*t
12689     @         121*t268+6.582123138408225d-2*gammaaa*t111*t112*t16*t25*t
12690     1         267+5.333333333333333d+0*t135*t147*t148*t264-3.2910615692
12691     2         041123d-2*gammaaa*t16*t161*t17*t212*t227*t25+3.2910615692
12692     3         041123d-2*t112*t16*t17*t227*t25+3.2910615692041123d-2*gam
12693     4         maaa*t112*t152*t16*t227*t25-3.2910615692041123d-2*t16*t17
12694     5         *t211*t212*t25-3.2910615692041123d-2*gammaaa*t152*t16*t21
12695     6         1*t212*t25+3.2910615692041123d-2*gammaaa*t112*t16*t161*t2
12696     7         00*t25+3.217926867666243d-1*gammaaa*t112*t161*t17*t182*t2
12697     8         5-2.0d+0*t121*t153*t237+2.0d+0*t153*t229*t230+4.0d+0*t114
12698     9         *t120*t167*t230-2.0d+0*t121*t167*t228+6.582123138408225d-
12699     :         2*gammaaa*t112*t16*t161*t17*t186*t187+5.333333333333333d+
12700     ;         0*t146*t147*t148*t180+5.333333333333333d+0*t135*t146*t148
12701     <         *t174)*wght-4.135669939329333d-1*t40*(-8.888888888888888d
12702     =         -1*t177*t72*t73+t265+t263+t262+t261+t175+t173+t172+t170+t
12703     >         168+t164+t162+t157+t156+t154)*wght-2.4814019635975998d+0*
12704     ?         t2*t293*wght+Cmat3(iq,D3_RA_RA_GAA)
12705            Cmat3(iq,D3_RA_GAA_GAA) = -9.305257363491d-1*t22*(-8.8888888
12706     1         88888888d-1*t73*t75*(4.7459599999999996d-2*t300*t95-2.4d+
12707     2         0*t68*(6.41391219265211d-2*t132*(-gammaaa*t16*t298*t89*t9
12708     3         1-2*t151*t16*t89*t91+2*gammaaa*t16*t187*t296*t91-gammaaa*
12709     4         t16*t299*t88*t89-2*t152*t16*t88*t89+2.6666666666666666d+0
12710     5         *gammaaa*t17*t298*t78*t89+5.333333333333333d+0*t151*t17*t
12711     6         78*t89+5.333333333333333d+0*gammaaa*t151*t152*t78*t89-gam
12712     7         maaa*t16*t17*t442*t89-2*gammaaa*t151*t16*t267*t89-2*t16*t
12713     8         17*t266*t89-2*gammaaa*t152*t16*t266*t89-6*gammaaa*t16*t17
12714     9         *t296*t365*t88+2*gammaaa*t16*t17*t187*t298*t88+4*t151*t16
12715     :         *t17*t187*t88+4*gammaaa*t151*t152*t16*t187*t88-2.66666666
12716     ;         66666666d+0*gammaaa*t25*t299*t78-5.333333333333333d+0*gam
12717     <         maaa*t17*t187*t296*t78-5.333333333333333d+0*t152*t25*t78+
12718     =         gammaaa*t16*t25*t443+2*t16*t25*t267+4*gammaaa*t151*t16*t1
12719     >         7*t187*t266)-5.0d-1*t131*t444-3.75d-1*t114*t294*t418+4.81
12720     ?         0434144489083d-2*t133*t345*t417-3.206956096326055d-2*t133
12721     @         *t249*t346+2.5d-1*t114*t251*t300-6.41391219265211d-2*t178
12722     1         *t249*t285+5.0d-1*t153*t251*t268)-8.400000000000001d+0*t1
12723     2         30*t444*t71-3.15d+1*t114*t294*t416*t71-2.1d+1*t114*t248*t
12724     3         300*t71-4.2d+1*t153*t248*t268*t71-2.7259596d+0*t444*t67+4
12725     4         .7459599999999996d-2*t445*t66+5.672746666666666d-2*t444*t
12726     5         66-5.4519192d+0*t114*t300*t66-1.0903838400000002d+1*t153*
12727     6         t268*t66+4.7459599999999996d-2*t35*t444-4.962870782535445
12728     7         7d+0*t130*t444-1.8610765434507923d+1*t114*t294*t416-8.400
12729     8         000000000001d+0*t114*t130*t347+4.7459599999999996d-2*t114
12730     9         *t302-1.2407176956338616d+1*t114*t248*t300-8.400000000000
12731     :         001d+0*t130*t134*t300+5.672746666666666d-2*t114*t300-2.1d
12732     ;         +1*t134*t248*t294-5.4519192d+0*t114*t294-1.68d+1*t130*t15
12733     <         3*t286+9.491919999999999d-2*t153*t269-2.481435391267723d+
12734     =         1*t153*t248*t268-1.68d+1*t130*t179*t268+9.491919999999999
12735     >         d-2*t155*t268+1.1345493333333331d-1*t153*t268-4.2d+1*t114
12736     ?         *t153*t179*t248)-1.0546577777777776d-1*t350*t36*t73*t95+1
12737     @         .3528964759928536d-2*t1*t139*t153*t174*t3*t73*t95-3.38224
12738     1         11899821336d-3*t1*t139*t3*t300*t38*t95+5.0733617849732d-3
12739     2         *t1*t171*t294*t3*t38*t95+3.1639733333333325d-1*t148*t304*
12740     3         t36*t95-8.888888888888888d-1*t72*t73*(4.9365923538061685d
12741     4         -2*t1*t3*t30*(7.5d-1*t1*t171*t3*t300*t93-1.875d+0*t1*t284
12742     5         *t294*t3*t93-5.0d-1*t1*t139*t3*t444+1.6666666666666666d-1
12743     6         *t1*t139*t23*t300+1.5d+0*t1*t153*t171*t268*t3-2.5d-1*t1*t
12744     7         171*t23*t294)+2.164695365020087d-1*t1*t171*t3*t300*t93-5.
12745     8         411738412550218d-1*t1*t284*t294*t3*t93-1.4431302433467247
12746     9         d-1*t1*t139*t3*t444-2.4682961769030842d-2*t1*t139*t145*t3
12747     :         *t300+4.810434144489082d-2*t1*t139*t23*t300+3.70244426535
12748     ;         46263d-2*t1*t145*t171*t294*t3-4.9365923538061685d-2*t1*t1
12749     <         39*t153*t290*t3+4.329390730040174d-1*t1*t153*t171*t268*t3
12750     =         -7.215651216733623d-2*t1*t171*t23*t294)+5.273288888888887
12751     >         d-2*t35*t38*(9.620868288978166d-2*t1*t171*t3*t300*t93-2.4
12752     ?         052170722445415d-1*t1*t284*t294*t3*t93-6.41391219265211d-
12753     @         2*t1*t139*t3*t444+2.1379707308840368d-2*t1*t139*t23*t300+
12754     1         1.924173657795633d-1*t1*t153*t171*t268*t3-3.2069560963260
12755     2         55d-2*t1*t171*t23*t294)-1.5557798788747831d-3*t207*t294*t
12756     3         39*t40*t460*t93+3.3352457426896626d-2*t1*t137*t294*t3*t43
12757     4         9*t93-2.8363733333333335d-1*t294*t32*t335*t93+9.454577777
12758     5         777778d-2*t203*t300*t32*t93-6.064083168526658d-3*t1*t137*
12759     6         t284*t3*t300*t93+7.57211d-1*(-1.6455307846020562d-2*gamma
12760     7         aa*t16*t298*t61*t65*t89*t91-3.2910615692041123d-2*t151*t1
12761     8         6*t61*t65*t89*t91+3.2910615692041123d-2*gammaaa*t126*t151
12762     9         *t16*t169*t65*t89*t91+1.6455307846020562d-2*gammaaa*t107*
12763     :         t128*t151*t153*t16*t61*t89*t91+3.2910615692041123d-2*gamm
12764     ;         aaa*t16*t187*t296*t61*t65*t91-1.6455307846020562d-2*gamma
12765     <         aa*t126*t16*t25*t328*t65*t91+3.2910615692041123d-2*gammaa
12766     =         a*t16*t242*t25*t325*t65*t91-3.2910615692041123d-2*t126*t1
12767     >         6*t169*t25*t65*t91+8.227653923010281d-3*gammaaa*t16*t245*
12768     ?         t25*t294*t329*t61*t91-8.227653923010281d-3*gammaaa*t107*t
12769     @         128*t16*t25*t300*t61*t91+4.1138269615051404d-3*gammaaa*t1
12770     1         28*t16*t223*t25*t294*t61*t91-1.6455307846020562d-2*t107*t
12771     2         128*t153*t16*t25*t61*t91+1.6455307846020562d-2*gammaaa*t1
12772     3         07*t126*t128*t153*t16*t169*t25*t91-1.6455307846020562d-2*
12773     4         gammaaa*t16*t299*t61*t65*t88*t89-3.2910615692041123d-2*t1
12774     5         52*t16*t61*t65*t88*t89+1.6455307846020562d-2*gammaaa*t126
12775     6         *t16*t17*t328*t65*t88*t89-3.2910615692041123d-2*gammaaa*t
12776     7         16*t17*t242*t325*t65*t88*t89+3.2910615692041123d-2*t126*t
12777     8         16*t169*t17*t65*t88*t89+3.2910615692041123d-2*gammaaa*t12
12778     9         6*t152*t16*t169*t65*t88*t89-8.227653923010281d-3*gammaaa*
12779     :         t16*t17*t245*t294*t329*t61*t88*t89+8.227653923010281d-3*g
12780     ;         ammaaa*t107*t128*t16*t17*t300*t61*t88*t89-4.1138269615051
12781     <         404d-3*gammaaa*t128*t16*t17*t223*t294*t61*t88*t89+1.64553
12782     =         07846020562d-2*t107*t128*t153*t16*t17*t61*t88*t89+1.64553
12783     >         07846020562d-2*gammaaa*t107*t128*t152*t153*t16*t61*t88*t8
12784     ?         9-1.6455307846020562d-2*gammaaa*t107*t126*t128*t153*t16*t
12785     @         169*t17*t88*t89+4.38808209227215d-2*gammaaa*t17*t298*t61*
12786     1         t65*t78*t89+8.7761641845443d-2*t151*t17*t61*t65*t78*t89+8
12787     2         .7761641845443d-2*gammaaa*t151*t152*t61*t65*t78*t89-8.776
12788     3         1641845443d-2*gammaaa*t126*t151*t169*t17*t65*t78*t89-4.38
12789     4         808209227215d-2*gammaaa*t107*t128*t151*t153*t17*t61*t78*t
12790     5         89-1.6455307846020562d-2*gammaaa*t16*t17*t442*t61*t65*t89
12791     6         -3.2910615692041123d-2*gammaaa*t151*t16*t267*t61*t65*t89-
12792     7         3.2910615692041123d-2*t16*t17*t266*t61*t65*t89-3.29106156
12793     8         92041123d-2*gammaaa*t152*t16*t266*t61*t65*t89+1.645530784
12794     9         6020562d-2*gammaaa*t125*t126*t16*t17*t298*t65*t89+3.29106
12795     :         15692041123d-2*gammaaa*t126*t151*t16*t17*t282*t65*t89+3.2
12796     ;         910615692041123d-2*gammaaa*t126*t16*t169*t17*t266*t65*t89
12797     <         -6.582123138408225d-2*gammaaa*t125*t151*t16*t169*t17*t242
12798     =         *t65*t89+3.2910615692041123d-2*t125*t126*t151*t16*t17*t65
12799     >         *t89+3.2910615692041123d-2*gammaaa*t125*t126*t151*t152*t1
12800     ?         6*t65*t89+1.6455307846020562d-2*gammaaa*t127*t128*t16*t17
12801     @         *t298*t61*t89+3.2910615692041123d-2*gammaaa*t128*t151*t16
12802     1         *t17*t283*t61*t89+1.6455307846020562d-2*gammaaa*t107*t128
12803     2         *t153*t16*t17*t266*t61*t89-3.2910615692041123d-2*gammaaa*
12804     3         t107*t127*t151*t153*t16*t17*t245*t61*t89+3.29106156920411
12805     4         23d-2*t127*t128*t151*t16*t17*t61*t89+3.2910615692041123d-
12806     5         2*gammaaa*t127*t128*t151*t152*t16*t61*t89-3.2910615692041
12807     6         123d-2*gammaaa*t126*t127*t128*t151*t16*t169*t17*t89-1.645
12808     7         5307846020562d-2*gammaaa*t107*t125*t126*t128*t151*t153*t1
12809     8         6*t17*t89-9.873184707612337d-2*gammaaa*t16*t17*t296*t365*
12810     9         t61*t65*t88+3.2910615692041123d-2*gammaaa*t16*t17*t187*t2
12811     :         98*t61*t65*t88+6.582123138408225d-2*t151*t16*t17*t187*t61
12812     ;         *t65*t88+6.582123138408225d-2*gammaaa*t151*t152*t16*t187*
12813     <         t61*t65*t88-6.582123138408225d-2*gammaaa*t126*t151*t16*t1
12814     =         69*t17*t187*t65*t88-3.2910615692041123d-2*gammaaa*t107*t1
12815     >         28*t151*t153*t16*t17*t187*t61*t88-4.38808209227215d-2*gam
12816     ?         maaa*t25*t299*t61*t65*t78-8.7761641845443d-2*gammaaa*t17*
12817     @         t187*t296*t61*t65*t78-8.7761641845443d-2*t152*t25*t61*t65
12818     1         *t78+4.38808209227215d-2*gammaaa*t126*t17*t25*t328*t65*t7
12819     2         8-8.7761641845443d-2*gammaaa*t17*t242*t25*t325*t65*t78+8.
12820     3         7761641845443d-2*t126*t169*t17*t25*t65*t78+8.776164184544
12821     4         3d-2*gammaaa*t126*t152*t169*t25*t65*t78-2.194041046136075
12822     5         d-2*gammaaa*t17*t245*t25*t294*t329*t61*t78+2.194041046136
12823     6         075d-2*gammaaa*t107*t128*t17*t25*t300*t61*t78-1.097020523
12824     7         0680374d-2*gammaaa*t128*t17*t223*t25*t294*t61*t78+4.38808
12825     8         209227215d-2*t107*t128*t153*t17*t25*t61*t78+4.38808209227
12826     9         215d-2*gammaaa*t107*t128*t152*t153*t25*t61*t78-4.38808209
12827     :         227215d-2*gammaaa*t107*t126*t128*t153*t169*t17*t25*t78+1.
12828     ;         6455307846020562d-2*gammaaa*t16*t25*t443*t61*t65+3.291061
12829     <         5692041123d-2*t16*t25*t267*t61*t65+6.582123138408225d-2*g
12830     =         ammaaa*t151*t16*t17*t187*t266*t61*t65-1.6455307846020562d
12831     >         -2*gammaaa*t126*t16*t17*t25*t459*t65-9.873184707612337d-2
12832     ?         *gammaaa*t125*t16*t17*t25*t325*t412*t65+3.291061569204112
12833     @         3d-2*gammaaa*t125*t16*t17*t242*t25*t328*t65-1.64553078460
12834     1         20562d-2*gammaaa*t125*t126*t16*t25*t299*t65-3.29106156920
12835     2         41123d-2*gammaaa*t125*t126*t16*t17*t187*t296*t65+6.582123
12836     3         138408225d-2*gammaaa*t16*t169*t17*t242*t25*t282*t65-3.291
12837     4         0615692041123d-2*t126*t16*t17*t25*t282*t65-3.291061569204
12838     5         1123d-2*gammaaa*t126*t152*t16*t25*t282*t65-3.291061569204
12839     6         1123d-2*gammaaa*t126*t16*t169*t25*t267*t65+6.582123138408
12840     7         225d-2*t125*t16*t169*t17*t242*t25*t65+6.582123138408225d-
12841     8         2*gammaaa*t125*t152*t16*t169*t242*t25*t65-3.2910615692041
12842     9         123d-2*t125*t126*t152*t16*t25*t65+t444*t61*t63-t126*t459*
12843     :         t59*t63-6*t125*t325*t412*t59*t63+2*t125*t242*t328*t59*t63
12844     ;         +4*t169*t242*t282*t59*t63-t114*t126*t328*t63+2*t114*t242*
12845     <         t325*t63-t125*t126*t300*t63-2*t126*t153*t282*t63-2*t126*t
12846     =         169*t268*t63+4*t125*t153*t169*t242*t63-t124*(t458+t457+t4
12847     >         56+t455)*t59*t61-1.5d+0*t123*t294*t324*t410*t59*t61+t116*
12848     ?         t123*t239*t300*t59*t61-5.0d-1*t123*t233*t239*t294*t59*t61
12849     @         +2*t116*t153*t239*t281*t59*t61-1.6455307846020562d-2*gamm
12850     1         aaa*t128*t16*t17*t25*(t454+t453+t452+t451)*t61-2.46829617
12851     2         69030842d-2*gammaaa*t127*t16*t17*t25*t294*t329*t414*t61+5
12852     3         .0d-1*t114*t239*t294*t324*t61+1.6455307846020562d-2*gamma
12853     4         aa*t107*t127*t16*t17*t245*t25*t300*t61-t123*t124*t300*t61
12854     5         -5.0d-1*t114*t116*t124*t300*t61-1.6455307846020562d-2*gam
12855     6         maaa*t127*t128*t16*t25*t299*t61-3.2910615692041123d-2*gam
12856     7         maaa*t127*t128*t16*t17*t187*t296*t61-8.227653923010281d-3
12857     8         *gammaaa*t127*t16*t17*t223*t245*t25*t294*t61+2*t116*t123*
12858     9         t239*t294*t61+2.5d-1*t114*t124*t233*t294*t61+3.2910615692
12859     :         041123d-2*gammaaa*t107*t153*t16*t17*t245*t25*t283*t61-3.2
12860     ;         910615692041123d-2*t128*t16*t17*t25*t283*t61-3.2910615692
12861     <         041123d-2*gammaaa*t128*t152*t16*t25*t283*t61-2*t124*t153*
12862     =         t281*t61-t116*t124*t153*t268*t61-1.6455307846020562d-2*ga
12863     >         mmaaa*t107*t128*t153*t16*t25*t267*t61+3.2910615692041123d
12864     ?         -2*t107*t127*t153*t16*t17*t245*t25*t61+3.2910615692041123
12865     @         d-2*gammaaa*t107*t127*t152*t153*t16*t245*t25*t61-3.291061
12866     1         5692041123d-2*t127*t128*t152*t16*t25*t61+t123*t124*t126*t
12867     2         328*t59-2*t123*t124*t242*t325*t59-5.0d-1*t125*t126*t239*t
12868     3         294*t324*t59+5.0d-1*t116*t124*t125*t126*t300*t59-2.5d-1*t
12869     4         124*t125*t126*t233*t294*t59+t116*t124*t126*t153*t282*t59+
12870     5         2*t124*t126*t169*t281*t59-2*t116*t124*t125*t153*t169*t242
12871     6         *t59-2*t116*t123*t126*t153*t169*t239*t59-8.22765392301028
12872     7         1d-3*gammaaa*t125*t126*t16*t17*t245*t25*t294*t329+1.64553
12873     8         07846020562d-2*gammaaa*t126*t127*t128*t16*t17*t25*t328-3.
12874     9         2910615692041123d-2*gammaaa*t127*t128*t16*t17*t242*t25*t3
12875     :         25+8.227653923010281d-3*gammaaa*t107*t125*t126*t128*t16*t
12876     ;         17*t25*t300-4.1138269615051404d-3*gammaaa*t125*t126*t128*
12877     <         t16*t17*t223*t25*t294+t116*t124*t125*t126*t294+3.29106156
12878     =         92041123d-2*gammaaa*t126*t128*t16*t169*t17*t25*t283+1.645
12879     >         5307846020562d-2*gammaaa*t107*t126*t128*t153*t16*t17*t25*
12880     ?         t282-3.2910615692041123d-2*gammaaa*t107*t126*t127*t153*t1
12881     @         6*t169*t17*t245*t25-3.2910615692041123d-2*gammaaa*t107*t1
12882     1         25*t128*t153*t16*t169*t17*t242*t25+3.2910615692041123d-2*
12883     2         t126*t127*t128*t16*t169*t17*t25+1.6455307846020562d-2*t10
12884     3         7*t125*t126*t128*t153*t16*t17*t25+3.2910615692041123d-2*g
12885     4         ammaaa*t126*t127*t128*t152*t16*t169*t25+1.645530784602056
12886     5         2d-2*gammaaa*t107*t125*t126*t128*t152*t153*t16*t25+2*t123
12887     6         *t124*t126*t153*t169+t114*t116*t124*t126*t153*t169)-3.291
12888     7         0615692041123d-2*gammaaa*t16*t298*t52*t89*t91-6.582123138
12889     8         408225d-2*t151*t16*t52*t89*t91-6.582123138408225d-2*gamma
12890     9         aa*t112*t151*t16*t161*t89*t91+6.582123138408225d-2*gammaa
12891     :         a*t16*t187*t296*t52*t91+3.2910615692041123d-2*gammaaa*t11
12892     ;         2*t16*t25*t318*t91-3.2910615692041123d-2*gammaaa*t16*t212
12893     <         *t25*t308*t91+6.582123138408225d-2*t112*t16*t161*t25*t91-
12894     =         3.2910615692041123d-2*gammaaa*t16*t299*t52*t88*t89-6.5821
12895     >         23138408225d-2*t152*t16*t52*t88*t89-3.2910615692041123d-2
12896     ?         *gammaaa*t112*t16*t17*t318*t88*t89+3.2910615692041123d-2*
12897     @         gammaaa*t16*t17*t212*t308*t88*t89-6.582123138408225d-2*t1
12898     1         12*t16*t161*t17*t88*t89-6.582123138408225d-2*gammaaa*t112
12899     2         *t152*t16*t161*t88*t89+8.7761641845443d-2*gammaaa*t17*t29
12900     3         8*t52*t78*t89+1.75523283690886d-1*t151*t17*t52*t78*t89+1.
12901     4         75523283690886d-1*gammaaa*t151*t152*t52*t78*t89+1.7552328
12902     5         3690886d-1*gammaaa*t112*t151*t161*t17*t78*t89-3.291061569
12903     6         2041123d-2*gammaaa*t16*t17*t442*t52*t89-6.582123138408225
12904     7         d-2*gammaaa*t151*t16*t267*t52*t89-6.582123138408225d-2*t1
12905     8         6*t17*t266*t52*t89-6.582123138408225d-2*gammaaa*t152*t16*
12906     9         t266*t52*t89-3.2910615692041123d-2*gammaaa*t111*t112*t16*
12907     :         t17*t298*t89-6.582123138408225d-2*gammaaa*t112*t151*t16*t
12908     ;         17*t276*t89-6.582123138408225d-2*gammaaa*t112*t16*t161*t1
12909     <         7*t266*t89+6.582123138408225d-2*gammaaa*t111*t151*t16*t16
12910     =         1*t17*t212*t89-6.582123138408225d-2*t111*t112*t151*t16*t1
12911     >         7*t89-6.582123138408225d-2*gammaaa*t111*t112*t151*t152*t1
12912     ?         6*t89-1.9746369415224674d-1*gammaaa*t16*t17*t296*t365*t52
12913     @         *t88+6.582123138408225d-2*gammaaa*t16*t17*t187*t298*t52*t
12914     1         88+1.316424627681645d-1*t151*t16*t17*t187*t52*t88+1.31642
12915     2         4627681645d-1*gammaaa*t151*t152*t16*t187*t52*t88+1.316424
12916     3         627681645d-1*gammaaa*t112*t151*t16*t161*t17*t187*t88-8.77
12917     4         61641845443d-2*gammaaa*t25*t299*t52*t78-1.75523283690886d
12918     5         -1*gammaaa*t17*t187*t296*t52*t78-1.75523283690886d-1*t152
12919     6         *t25*t52*t78-8.7761641845443d-2*gammaaa*t112*t17*t25*t318
12920     7         *t78+8.7761641845443d-2*gammaaa*t17*t212*t25*t308*t78-1.7
12921     8         5523283690886d-1*t112*t161*t17*t25*t78-1.75523283690886d-
12922     9         1*gammaaa*t112*t152*t161*t25*t78-4.727288888888889d-2*t32
12923     :         *t444*t77+4.727288888888889d-2*t137*t140*t300*t77+9.45457
12924     ;         7777777778d-2*t137*t153*t289*t77+2.6666666666666666d+0*t1
12925     <         48*t462*t72*t75+5.333333333333333d+1*t147*t304*t387*t72*t
12926     =         75-1.0666666666666666d+1*t147*t210*t350*t72*t75-2.1333333
12927     >         333333332d+1*t174*t210*t292*t72*t75+2.6666666666666666d+0
12928     ?         *t135*t148*t350*t75+2.6666666666666666d+0*t147*t148*t348*
12929     @         t75-1.0666666666666666d+1*t135*t210*t304*t75+5.3333333333
12930     1         33333d+0*t148*t180*t292*t75+5.333333333333333d+0*t148*t17
12931     2         4*t287*t75-2.1333333333333332d+1*t147*t174*t180*t210*t75-
12932     3         1.0546577777777776d-1*t35*t36*t462*t73-1.0546577777777776
12933     4         d-1*t147*t302*t36*t73-2.109315555555555d-1*t155*t292*t36*
12934     5         t73-2.109315555555555d-1*t174*t269*t36*t73-1.054657777777
12935     6         7776d-1*t142*t35*t350*t73+6.764482379964267d-3*t1*t139*t1
12936     7         47*t3*t300*t35*t73-1.01467235699464d-2*t1*t147*t171*t294*
12937     8         t3*t35*t73+1.3528964759928536d-2*t1*t139*t153*t292*t3*t35
12938     9         *t73-2.109315555555555d-1*t174*t288*t35*t73-8.88888888888
12939     :         8888d-1*t146*t348*t73-8.888888888888888d-1*t135*t342*t73+
12940     ;         1.3528964759928536d-2*t1*t139*t147*t153*t155*t3*t73-1.777
12941     <         7777777777776d+0*t180*t291*t73-1.7777777777777776d+0*t264
12942     =         *t287*t73-2.109315555555555d-1*t142*t155*t174*t73+2.66666
12943     >         66666666666d+0*t146*t148*t350*t72+2.6666666666666666d+0*t
12944     ?         147*t148*t342*t72-1.0666666666666666d+1*t146*t210*t304*t7
12945     @         2+5.333333333333333d+0*t148*t264*t292*t72+5.3333333333333
12946     1         33d+0*t148*t174*t291*t72-2.1333333333333332d+1*t147*t174*
12947     2         t210*t264*t72-2.0d+0*t121*(-1.475609999999999d-1*t106*t45
12948     3         0*t56-2.2134149999999983d-1*t105*t294*t311*t390*t56+1.475
12949     4         609999999999d-1*t102*t105*t214*t300*t56-7.378049999999994
12950     5         d-2*t105*t214*t216*t294*t56+2.951219999999998d-1*t102*t15
12951     6         3*t214*t272*t56-1.475609999999999d-1*t119*(t458+t457+t456
12952     7         +t455+t449+t448+t447+t446)*t50-8.853659999999993d-1*t118*
12953     8         t331*t405*t50+2.951219999999998d-1*t118*t232*t332*t50+5.9
12954     9         02439999999995d-1*t166*t232*t279*t50+1.475609999999999d-1
12955     :         *t105*t106*t119*t332-2.951219999999998d-1*t105*t106*t232*
12956     ;         t331-7.378049999999994d-2*t118*t119*t214*t294*t311+7.3780
12957     <         49999999994d-2*t102*t106*t118*t119*t300-3.689024999999997
12958     =         d-2*t106*t118*t119*t216*t294+1.475609999999999d-1*t102*t1
12959     >         06*t119*t153*t279+2.951219999999998d-1*t106*t119*t166*t27
12960     ?         2-2.951219999999998d-1*t102*t106*t118*t153*t166*t232-2.95
12961     @         1219999999998d-1*t102*t105*t119*t153*t166*t214)*t59-4.0d+
12962     1         0*t120*t322*t404*t59+2.0d+0*t120*t230*t333*t59+4.0d+0*t16
12963     2         7*t230*t280*t59-2.0d+0*t444*t58+3.2910615692041123d-2*gam
12964     3         maaa*t16*t25*t443*t52+6.582123138408225d-2*t16*t25*t267*t
12965     4         52+1.316424627681645d-1*gammaaa*t151*t16*t17*t187*t266*t5
12966     5         2+3.2910615692041123d-2*gammaaa*t112*t16*t17*t25*(6.0965d
12967     6         -1*t110*(t454+t453+t452+t451+t449+t448+t447+t446)*t50+3.6
12968     7         579d+0*t109*t312*t398*t50-1.2193000000000001d+0*t109*t222
12969     8         *t317*t50-2.4386000000000002d+0*t160*t222*t275*t50+6.0965
12970     9         d-1*t106*t450*t47+9.14475d-1*t105*t294*t311*t390*t47-6.09
12971     :         65d-1*t102*t105*t214*t300*t47+3.04825d-1*t105*t214*t216*t
12972     ;         294*t47-1.2193000000000001d+0*t102*t153*t214*t272*t47-6.0
12973     <         965d-1*t105*t106*t110*t317+1.2193000000000001d+0*t105*t10
12974     =         6*t222*t312+3.04825d-1*t109*t110*t214*t294*t311-3.04825d-
12975     >         1*t102*t106*t109*t110*t300+1.524125d-1*t106*t109*t110*t21
12976     ?         6*t294-6.0965d-1*t102*t106*t110*t153*t275-1.2193000000000
12977     @         001d+0*t106*t110*t160*t272+1.2193000000000001d+0*t102*t10
12978     1         6*t109*t153*t160*t222+1.2193000000000001d+0*t102*t105*t11
12979     2         0*t153*t160*t214)-4.727288888888889d-2*t137*t28*t461+5.27
12980     3         3288888888887d-2*t36*t38*t445-4.667339636624349d-3*t140*t
12981     4         294*t335*t385*t39*t40+6.582123138408225d-2*gammaaa*t111*t
12982     5         16*t17*t25*t308*t388+5.273288888888887d-2*t142*t302*t38-6
12983     6         .764482379964267d-3*t1*t139*t153*t269*t3*t38+1.0546577777
12984     7         777776d-1*t155*t288*t38+3.1639733333333325d-1*t147*t148*t
12985     8         35*t350*t36-1.265589333333333d+0*t147*t210*t304*t35*t36+6
12986     9         .327946666666665d-1*t148*t174*t292*t35*t36+6.327946666666
12987     :         665d-1*t147*t148*t155*t174*t36+3.1639733333333325d-1*t142
12988     ;         *t148*t304*t35-4.05868942797856d-2*t1*t139*t147*t148*t153
12989     <         *t174*t3*t35-2.0d+0*t114*t121*t333+2.0d+0*t114*t230*t322+
12990     =         1.8909155555555557d-1*t153*t203*t268*t32-3.29106156920411
12991     >         23d-2*gammaaa*t111*t16*t17*t212*t25*t318-1.21281663370533
12992     ?         17d-2*t1*t140*t171*t207*t3*t300-2.0d+0*t120*t121*t300+4.2
12993     @         44858217968661d-2*t1*t140*t207*t284*t294*t3-2.42563326741
12994     1         06634d-2*t1*t153*t171*t207*t289*t3-1.2128166337053317d-2*
12995     2         t1*t137*t153*t268*t284*t3+3.2910615692041123d-2*gammaaa*t
12996     3         111*t112*t16*t25*t299+6.582123138408225d-2*gammaaa*t111*t
12997     4         112*t16*t17*t187*t296-9.454577777777778d-2*t137*t140*t203
12998     5         *t294-4.0d+0*t121*t153*t280-6.582123138408225d-2*gammaaa*
12999     6         t16*t161*t17*t212*t25*t276+6.582123138408225d-2*t112*t16*
13000     7         t17*t25*t276+6.582123138408225d-2*gammaaa*t112*t152*t16*t
13001     8         25*t276-4.0d+0*t121*t167*t268+6.582123138408225d-2*gammaa
13002     9         a*t112*t16*t161*t25*t267+5.333333333333333d+0*t147*t148*t
13003     :         180*t264+5.333333333333333d+0*t135*t148*t174*t264-6.58212
13004     ;         3138408225d-2*t111*t16*t161*t17*t212*t25-6.58212313840822
13005     <         5d-2*gammaaa*t111*t152*t16*t161*t212*t25+6.58212313840822
13006     =         5d-2*t111*t112*t152*t16*t25+4.0d+0*t120*t153*t167*t230+5.
13007     >         333333333333333d+0*t146*t148*t174*t180)*wght-1.2407009817
13008     ?         987999d+0*t2*(-3.2910615692041123d-2*gammaaa*t16*t17*t298
13009     @         *t52*t89-6.582123138408225d-2*t151*t16*t17*t52*t89-6.5821
13010     1         23138408225d-2*gammaaa*t151*t152*t16*t52*t89-8.8888888888
13011     2         88888d-1*t348*t73*t75+2.6666666666666666d+0*t148*t350*t72
13012     3         *t75+5.333333333333333d+0*t148*t174*t180*t75-8.8888888888
13013     4         88888d-1*t342*t72*t73-1.0546577777777776d-1*t35*t350*t36*
13014     5         t73-2.109315555555555d-1*t155*t174*t36*t73+1.352896475992
13015     6         8536d-2*t1*t139*t153*t174*t3*t35*t73-1.7777777777777776d+
13016     7         0*t180*t264*t73+5.333333333333333d+0*t148*t174*t264*t72-2
13017     8         .0d+0*t121*t333*t59+3.2910615692041123d-2*gammaaa*t16*t25
13018     9         *t299*t52+6.582123138408225d-2*t152*t16*t25*t52-3.3822411
13019     :         899821336d-3*t1*t139*t3*t300*t35*t38-6.764482379964267d-3
13020     ;         *t1*t139*t153*t155*t3*t38+3.1639733333333325d-1*t148*t304
13021     <         *t35*t36+t339+t338+t337+t336+t330+t323+t321+3.29106156920
13022     =         41123d-2*gammaaa*t112*t16*t17*t25*t318+t309+t307+t306+t30
13023     >         5+t303+t301+t295+6.582123138408225d-2*t112*t16*t161*t17*t
13024     ?         25+6.582123138408225d-2*gammaaa*t112*t152*t16*t161*t25-4.
13025     @         0d+0*t121*t153*t167)*wght+Cmat3(iq,D3_RA_GAA_GAA)
13026            Cmat3(iq,D3_GAA_GAA_GAA) = Cmat3(iq,D3_GAA_GAA_GAA)-9.305257
13027     1         363491d-1*t22*(t73*(-8.888888888888888d-1*t75*(-2.4d+0*t6
13028     2         8*(6.41391219265211d-2*t132*(-gammaaa*t16*t17*t465*t89-3*
13029     3         gammaaa*t151*t16*t299*t89-3*t16*t17*t298*t89-3*gammaaa*t1
13030     4         52*t16*t298*t89-6*t151*t152*t16*t89+gammaaa*t16*t25*t466-
13031     5         6*gammaaa*t16*t17*t365*t464+3*t16*t25*t299+6*gammaaa*t151
13032     6         *t16*t17*t187*t298+6*t16*t17*t187*t296+6*gammaaa*t152*t16
13033     7         *t187*t296)-5.0d-1*t131*t467-3.75d-1*t418*t463+4.81043414
13034     8         4489083d-2*t178**3*t417-9.620868288978166d-2*t178*t249*t3
13035     9         46+7.5d-1*t153*t251*t300)-8.400000000000001d+0*t130*t467*
13036     :         t71-3.15d+1*t416*t463*t71-6.3d+1*t153*t248*t300*t71-2.725
13037     ;         9596d+0*t467*t67+4.7459599999999996d-2*t468*t66+5.6727466
13038     <         66666666d-2*t467*t66-1.6355757600000004d+1*t153*t300*t66+
13039     =         4.7459599999999996d-2*t35*t467-4.9628707825354457d+0*t130
13040     >         *t467-1.8610765434507923d+1*t416*t463-5.4519192d+0*t463-2
13041     ?         .52d+1*t130*t153*t347+1.423788d-1*t153*t302-3.72215308690
13042     @         15845d+1*t153*t248*t300-2.52d+1*t130*t179*t300+1.423788d-
13043     1         1*t155*t300+1.7018239999999996d-1*t153*t300-6.3d+1*t179*t
13044     2         248*t294)-8.888888888888888d-1*t72*(-2.4682961769030842d-
13045     3         2*t39*t40*t467*t77-1.4431302433467247d-1*t1*t139*t3*t467-
13046     4         1.4809777061418505d-1*t335*t39*t40*t463-5.411738412550218
13047     5         d-1*t1*t284*t3*t463+1.4809777061418505d-1*t153*t203*t300*
13048     6         t39*t40+6.494086095060261d-1*t1*t153*t171*t3*t300)-1.0546
13049     7         577777777776d-1*t35*t36*t481-3.1639733333333325d-1*t155*t
13050     8         350*t36-3.1639733333333325d-1*t174*t302*t36+1.35289647599
13051     9         28536d-2*t1*t139*t153*t3*t35*t350+6.764482379964267d-3*t1
13052     :         *t139*t174*t3*t300*t35-1.01467235699464d-2*t1*t171*t174*t
13053     ;         294*t3*t35-2.6666666666666666d+0*t177*t348-2.666666666666
13054     <         6666d+0*t180*t342+2.02934471398928d-2*t1*t139*t153*t155*t
13055     =         174*t3)+7.57211d-1*(-1.6455307846020562d-2*gammaaa*t16*t1
13056     >         7*t465*t61*t65*t89-4.9365923538061685d-2*gammaaa*t151*t16
13057     ?         *t299*t61*t65*t89-4.9365923538061685d-2*t16*t17*t298*t61*
13058     @         t65*t89-4.9365923538061685d-2*gammaaa*t152*t16*t298*t61*t
13059     1         65*t89-9.873184707612337d-2*t151*t152*t16*t61*t65*t89+4.9
13060     2         365923538061685d-2*gammaaa*t126*t151*t16*t17*t328*t65*t89
13061     3         -9.873184707612337d-2*gammaaa*t151*t16*t17*t242*t325*t65*
13062     4         t89+4.9365923538061685d-2*gammaaa*t126*t16*t169*t17*t298*
13063     5         t65*t89+9.873184707612337d-2*t126*t151*t16*t169*t17*t65*t
13064     6         89+9.873184707612337d-2*gammaaa*t126*t151*t152*t16*t169*t
13065     7         65*t89-2.4682961769030842d-2*gammaaa*t151*t16*t17*t245*t2
13066     8         94*t329*t61*t89+2.4682961769030842d-2*gammaaa*t107*t128*t
13067     9         151*t16*t17*t300*t61*t89+2.4682961769030842d-2*gammaaa*t1
13068     :         07*t128*t153*t16*t17*t298*t61*t89-1.2341480884515421d-2*g
13069     ;         ammaaa*t128*t151*t16*t17*t223*t294*t61*t89+4.936592353806
13070     <         1685d-2*t107*t128*t151*t153*t16*t17*t61*t89+4.93659235380
13071     =         61685d-2*gammaaa*t107*t128*t151*t152*t153*t16*t61*t89-4.9
13072     >         365923538061685d-2*gammaaa*t107*t126*t128*t151*t153*t16*t
13073     ?         169*t17*t89+1.6455307846020562d-2*gammaaa*t16*t25*t466*t6
13074     @         1*t65-9.873184707612337d-2*gammaaa*t16*t17*t365*t464*t61*
13075     1         t65+4.9365923538061685d-2*t16*t25*t299*t61*t65+9.87318470
13076     2         7612337d-2*gammaaa*t151*t16*t17*t187*t298*t61*t65+9.87318
13077     3         4707612337d-2*t16*t17*t187*t296*t61*t65+9.873184707612337
13078     4         d-2*gammaaa*t152*t16*t187*t296*t61*t65-1.6455307846020562
13079     5         d-2*gammaaa*t126*t16*t17*t25*t480*t65-9.873184707612337d-
13080     6         2*gammaaa*t16*t17*t25*t412*t476*t65+9.873184707612337d-2*
13081     7         gammaaa*t16*t169*t17*t242*t25*t328*t65-4.9365923538061685
13082     8         d-2*t126*t16*t17*t25*t328*t65-4.9365923538061685d-2*gamma
13083     9         aa*t126*t152*t16*t25*t328*t65+9.873184707612337d-2*t16*t1
13084     :         7*t242*t25*t325*t65+9.873184707612337d-2*gammaaa*t152*t16
13085     ;         *t242*t25*t325*t65-4.9365923538061685d-2*gammaaa*t126*t16
13086     <         *t169*t25*t299*t65-9.873184707612337d-2*gammaaa*t126*t16*
13087     =         t169*t17*t187*t296*t65-9.873184707612337d-2*t126*t152*t16
13088     >         *t169*t25*t65+t467*t61*t63-t126*t480*t59*t63-6*t412*t476*
13089     ?         t59*t63+6*t169*t242*t328*t59*t63-3*t126*t153*t328*t63+6*t
13090     @         153*t242*t325*t63-3*t126*t169*t300*t63-7.5d-1*t239*t463*t
13091     1         59*t61/t53**2-5.0d-1*t116*t124*t467*t59*t61-7.5d-1*t233*t
13092     2         410*t463*t59*t61-3.75d-1*t124*t406*t463*t59*t61+1.5d+0*t1
13093     3         53*t239*t300*t324*t59*t61+7.5d-1*t124*t153*t233*t300*t59*
13094     4         t61-8.227653923010281d-3*gammaaa*t107*t128*t16*t17*t25*t4
13095     5         67*t61-1.2341480884515421d-2*gammaaa*t16*t17*t245*t25*t46
13096     6         3*t61/t42**2-1.2341480884515421d-2*gammaaa*t16*t17*t223*t
13097     7         25*t414*t463*t61-6.170740442257711d-3*gammaaa*t128*t16*t1
13098     8         7*t25*t399*t463*t61+1.5d+0*t239*t324*t463*t61+7.5d-1*t124
13099     9         *t233*t463*t61+2.4682961769030842d-2*gammaaa*t153*t16*t17
13100     :         *t245*t25*t300*t329*t61+2.4682961769030842d-2*t16*t17*t24
13101     ;         5*t25*t294*t329*t61+2.4682961769030842d-2*gammaaa*t152*t1
13102     <         6*t245*t25*t294*t329*t61+1.2341480884515421d-2*gammaaa*t1
13103     =         28*t153*t16*t17*t223*t25*t300*t61-2.4682961769030842d-2*t
13104     >         107*t128*t16*t17*t25*t300*t61-2.4682961769030842d-2*gamma
13105     ?         aa*t107*t128*t152*t16*t25*t300*t61-3*t116*t124*t153*t300*
13106     @         t61-2.4682961769030842d-2*gammaaa*t107*t128*t153*t16*t25*
13107     1         t299*t61-4.9365923538061685d-2*gammaaa*t107*t128*t153*t16
13108     2         *t17*t187*t296*t61+1.2341480884515421d-2*t128*t16*t17*t22
13109     3         3*t25*t294*t61+1.2341480884515421d-2*gammaaa*t128*t152*t1
13110     4         6*t223*t25*t294*t61-4.9365923538061685d-2*t107*t128*t152*
13111     5         t153*t16*t25*t61+1.5d+0*t116*t124*t126*t153*t328*t59-3*t1
13112     6         16*t124*t153*t242*t325*t59-1.5d+0*t126*t169*t239*t294*t32
13113     7         4*t59+1.5d+0*t116*t124*t126*t169*t300*t59-7.5d-1*t124*t12
13114     8         6*t169*t233*t294*t59-2.4682961769030842d-2*gammaaa*t126*t
13115     9         16*t169*t17*t245*t25*t294*t329+2.4682961769030842d-2*gamm
13116     :         aaa*t107*t126*t128*t153*t16*t17*t25*t328-4.93659235380616
13117     ;         85d-2*gammaaa*t107*t128*t153*t16*t17*t242*t25*t325+2.4682
13118     <         961769030842d-2*gammaaa*t107*t126*t128*t16*t169*t17*t25*t
13119     =         300-1.2341480884515421d-2*gammaaa*t126*t128*t16*t169*t17*
13120     >         t223*t25*t294+3*t116*t124*t126*t169*t294+4.93659235380616
13121     ?         85d-2*t107*t126*t128*t153*t16*t169*t17*t25+4.936592353806
13122     @         1685d-2*gammaaa*t107*t126*t128*t152*t153*t16*t169*t25)+t1
13123     1         6*(-3.2910615692041123d-2*gammaaa*t17*t465*t52-3.29106156
13124     2         92041123d-2*gammaaa*t151*t299*t52-6.582123138408225d-2*t1
13125     3         7*t298*t52-6.582123138408225d-2*gammaaa*t152*t298*t52-6.5
13126     4         82123138408225d-2*t151*t152*t52-2*t151*t310-3.29106156920
13127     5         41123d-2*gammaaa*t112*t161*t17*t298-t163*t298-3.291061569
13128     6         2041123d-2*t112*t151*t161*t17-3.2910615692041123d-2*gamma
13129     7         aa*t112*t151*t152*t161)*t89+t112*t16*(-t151*t319-6.582123
13130     8         138408225d-2*gammaaa*t151*t17*t318-6.582123138408225d-2*g
13131     9         ammaaa*t161*t17*t298-6.582123138408225d-2*t151*t161*t17-6
13132     :         .582123138408225d-2*gammaaa*t151*t152*t161)*t89+9.8731847
13133     ;         07612337d-2*gammaaa*t151*t16*t17*t212*t308*t89-4.72728888
13134     <         8888889d-2*t32*t467*t77+t148*(2.6666666666666666d+0*t481*
13135     =         t72*t75+5.333333333333333d+0*t180*t350*t75+2.666666666666
13136     >         6666d+0*t174*t348*t75+5.333333333333333d+0*t177*t350*t72+
13137     ?         2.6666666666666666d+0*t174*t342*t72-3.0d+0*t174*(-1.05465
13138     @         77777777776d-1*t155*t174*t36+t351+t349+t344+t343+t341)-3.
13139     1         0d+0*t174*t352-3.0d+0*t181*t350+5.333333333333333d+0*t174
13140     2         *t177*t180)+t210*(-2.1333333333333332d+1*t174*t350*t72*t7
13141     3         5-1.0666666666666666d+1*t180*t304*t75-1.0666666666666666d
13142     4         +1*t177*t304*t72-4.0d+0*t174*t353)+5.333333333333333d+1*t
13143     5         174**3*t387*t72*t75+t139*t3*(6.764482379964267d-3*t1*t153
13144     6         *t35*t350+6.764482379964267d-3*t1*t174*t300*t35-2.0d+0*t1
13145     7         74*t340+6.764482379964267d-3*t1*t153*t155*t174)*t73-2.029
13146     8         34471398928d-2*t1*t171*t174*t294*t3*t35*t73+t121*(-2.0d+0
13147     9         *(-1.1067074999999992d-1*t214*t463*t469*t56-7.37804999999
13148     :         9994d-2*t102*t106*t467*t56-5.533537499999995d-2*t106*t392
13149     ;         *t463*t56-1.1067074999999992d-1*t216*t390*t463*t56+2.2134
13150     <         149999999983d-1*t153*t214*t300*t311*t56+1.106707499999999
13151     =         2d-1*t106*t153*t216*t300*t56-1.475609999999999d-1*t119*(t
13152     >         479+t478+t477+t475+t474+t473)*t50-8.853659999999993d-1*t1
13153     ?         66**3*t405*t50+8.853659999999993d-1*t166*t232*t332*t50+2.
13154     @         2134149999999983d-1*t102*t106*t119*t153*t332-4.4268299999
13155     1         999966d-1*t102*t106*t153*t232*t331-2.2134149999999983d-1*
13156     2         t119*t166*t214*t294*t311+2.2134149999999983d-1*t102*t106*
13157     3         t119*t166*t300-1.1067074999999992d-1*t106*t119*t166*t216*
13158     4         t294)*t59-6.0d+0*t153*t333-6.0d+0*t167*t300)+t230*(4.0d+0
13159     5         *t167*t333*t59-t167*t334+2.0d+0*t153*t322)-4.0d+0*t167**3
13160     6         *t404*t59-2.0d+0*t467*t58+t16*t25*(3.2910615692041123d-2*
13161     7         gammaaa*t466*t52+9.873184707612337d-2*t299*t52+3.29106156
13162     8         92041123d-2*t112*t17*t318+3.2910615692041123d-2*gammaaa*t
13163     9         112*t152*t318-3.2910615692041123d-2*t17*t212*t308-3.29106
13164     :         15692041123d-2*gammaaa*t152*t212*t308+6.582123138408225d-
13165     ;         2*gammaaa*t112*t161*t299+1.316424627681645d-1*t112*t152*t
13166     <         161)+t16*t187*(1.316424627681645d-1*gammaaa*t151*t17*t298
13167     =         *t52+6.582123138408225d-2*t17*t296*t52+6.582123138408225d
13168     >         -2*gammaaa*t152*t296*t52-2*t151*t320)-1.9746369415224674d
13169     ?         -1*gammaaa*t16*t17*t365*t464*t52+t112*t16*t25*(3.29106156
13170     @         92041123d-2*gammaaa*t17*(6.0965d-1*t110*(t475+t474+t473+t
13171     1         472+t471+t470)*t50+3.6579d+0*t160**3*t398*t50-3.6579d+0*t
13172     2         160*t222*t317*t50+4.572375d-1*t214*t463*t469*t47+3.04825d
13173     3         -1*t102*t106*t467*t47+2.2861875d-1*t106*t392*t463*t47+4.5
13174     4         72375d-1*t216*t390*t463*t47-9.14475d-1*t153*t214*t300*t31
13175     5         1*t47-4.572375d-1*t106*t153*t216*t300*t47-9.14475d-1*t102
13176     6         *t106*t110*t153*t317+1.82895d+0*t102*t106*t153*t222*t312+
13177     7         9.14475d-1*t110*t160*t214*t294*t311-9.14475d-1*t102*t106*
13178     8         t110*t160*t300+4.572375d-1*t106*t110*t160*t216*t294)+6.58
13179     9         2123138408225d-2*t17*t318+6.582123138408225d-2*gammaaa*t1
13180     :         52*t318+3.2910615692041123d-2*gammaaa*t161*t299+6.5821231
13181     ;         38408225d-2*t152*t161)+5.273288888888887d-2*t36*t38*t468+
13182     <         t139*t3*t38*(-3.3822411899821336d-3*t1*t35*t467-1.0146723
13183     =         5699464d-2*t1*t153*t302-1.01467235699464d-2*t1*t155*t300)
13184     >         +6.064083168526658d-3*t1*t137*t171*t3*t467-1.166834909156
13185     ?         0873d-2*t207*t39*t40*t460*t463+8.641318515150488d-2*t1*t1
13186     @         37*t3*t439*t463+5.987181320518676d-4*t1**3*t385*t463/(rho
13187     1         a*t29**11)-1.2683404462433d-2*t1*t284*t3*t35*t38*t463-2.8
13188     2         363733333333335d-1*t32*t335*t463+4.667339636624349d-3*t15
13189     3         3*t207*t300*t335*t39*t40+6.582123138408225d-2*gammaaa*t16
13190     4         *t161**3*t17*t25*t388+t171*t3*(1.01467235699464d-2*t1*t15
13191     5         3*t300*t35+5.0733617849732d-3*t1*t155*t294)*t38-1.5d+0*t1
13192     6         53*t171*t3*t340*t38-2.02934471398928d-2*t1*t139*t148*t153
13193     7         *t3*t304*t35+2.8363733333333335d-1*t153*t203*t300*t32+t16
13194     8         *t212*t25*(-t161*t319-6.582123138408225d-2*gammaaa*t161*t
13195     9         17*t318-3.2910615692041123d-2*t17*t308-3.2910615692041123
13196     :         d-2*gammaaa*t152*t308)-6.367287326952992d-2*t1*t137*t153*
13197     ;         t284*t3*t300+1.9746369415224674d-1*gammaaa*t112*t16*t161*
13198     <         t17*t187*t296)*wght
13199          elseif (rhoa.le.tol_rho.and.rhob.gt.tol_rho) then
13200            t1 = param(1)
13201            t2 = rhob**3.333333333333333d-1
13202            t3 = 1/t2
13203            t4 = t1*t3
13204            t5 = gammabb**5.0d-1
13205            t6 = t5**7
13206            t7 = 1/rhob**9.333333333333333d+0
13207            t8 = gammabb**3
13208            t9 = 1/rhob**8
13209            t10 = t5**5
13210            t11 = 1/rhob**6.666666666666667d+0
13211            t12 = gammabb**2
13212            t13 = 1/rhob**5.333333333333333d+0
13213            t14 = t5**3
13214            t15 = 1/rhob**4
13215            t16 = 1/rhob**2.6666666666666666d+0
13216            t17 = -4.327677396975467d-7*t8*t9+2.4123830247695402d-8*t6*t
13217     1         7+2.631878392200375d-4*gammabb*t16+1.8005513133540818d-4*
13218     2         t14*t15-4.342399100269002d-5*t12*t13+5.3020963068324d-6*t
13219     3         10*t11
13220            t18 = t5**9
13221            t19 = 1/rhob**12
13222            t20 = gammabb**4
13223            t21 = 1/rhob**1.0666666666666666d+1
13224            t22 = rhob**1.3333333333333333d+0
13225            t23 = 1/t22
13226            t24 = -2.7196832676277033d-6*t8*t9+1.7578986477855002d-7*t6*
13227     1         t7+6.841322473346062d-1*t23*t5-5.649671283776346d-9*t20*t
13228     2         21+3.149302550983647d-10*t18*t19-2.0532933130264455d-1*ga
13229     3         mmabb*t16+2.342799068769956d-2*t14*t15-1.3837064697606524
13230     4         d-3*t12*t13+5.955909787676884d-5*t10*t11+1.0d+0
13231            t25 = 1/t24
13232            t26 = 1.6455307846020562d-2*gammabb*t16*t17*t25
13233            t27 = 6.582123138408225d-2*t4**2.0d+0+t26+6.0965d-1
13234            t28 = 1/t27
13235            t29 = t27**5.0d-1
13236            t30 = 1/t29
13237            t31 = 2.565564877060844d-1*t1*t3*t30+1.0d+0
13238            t32 = 1/t31
13239            t33 = 4.1138269615051404d-3*gammabb*t16+1.0d+0
13240            t34 = 1/t33
13241            t35 = 5.136628594837797d-3*gammabb*t16*t34+6.934448603031025
13242     1         d-2*gammabb*t16*t17*t25+1.0d+0
13243            t36 = 1.282782438530422d-1*t1*t3*t30+1.0d+0
13244            t37 = t27*t31
13245            t38 = 1/t37**2.0d+0
13246            t39 = t1**2
13247            t40 = 1/rhob**6.666666666666666d-1
13248            t41 = 6.582123138408225d-2*t39*t40
13249            t42 = t41+t26
13250            t43 = t42**5.0d-1
13251            t44 = t41+t26+6.0965d-1
13252            t45 = t44**5.0d-1
13253            t46 = t45+t43
13254            t47 = 1/t46
13255            t48 = 2.565564877060844d-1*t1*t3
13256            t49 = t48+t45
13257            t50 = 1/t49
13258            t51 = 1.0d+0-6.0965d-1*t47*t50
13259            t52 = log(t51)
13260            t53 = t41+t26+7.57211d-1
13261            t54 = t53**5.0d-1
13262            t55 = t54+t45
13263            t56 = 1/t55
13264            t57 = 1.475609999999999d-1*t50*t56+1.0d+0
13265            t58 = log(t57)
13266            t59 = t26+7.57211d-1
13267            t60 = t54+t43
13268            t61 = 1/t60
13269            t62 = t54+t48
13270            t63 = 1/t62
13271            t64 = t48+t43
13272            t65 = 1/t64
13273            t66 = t26+6.0965d-1
13274            t67 = t66**2.0d+0
13275            t68 = t66**3.5d+0
13276            t69 = (gammabb*t16*t17*t25)**5.0d-1
13277            t70 = t59**5.0d-1
13278            t71 = 1.282782438530422d-1*t69-t70
13279            t72 = -2.4d+0*t68*t71-1.417963080724413d+0*t68+2.83637333333
13280     1         3333d-2*t67-9.086532d-1*t66**3.0d+0+4.7459599999999996d-2
13281     2         *t35*t66
13282            t73 = 1/t37**3.0d+0
13283            t74 = t1*t3*t30
13284            t75 = 2.4682961769030842d-2*t74**2.0d+0+2.8862604866934494d-
13285     1         1*t1*t3*t30+1.0d+0
13286            t76 = -8.888888888888888d-1*t72*t73*t75+7.57211d-1*(1.645530
13287     1         7846020562d-2*gammabb*t16*t17*t25*t61*t65+t59*t61*t63)-2.
13288     2         0d+0*t58*t59+3.2910615692041123d-2*gammabb*t16*t17*t25*t5
13289     3         2+5.273288888888887d-2*t35*t36*t38+4.727288888888889d-2*t
13290     4         28*t32-1.0d+0
13291            t77 = 1/t27**2
13292            t78 = 1/rhob**3.6666666666666664d+0
13293            t79 = -4.38808209227215d-2*gammabb*t17*t25*t78
13294            t80 = 1/rhob**13
13295            t81 = 1/rhob**1.1666666666666665d+1
13296            t82 = 1/rhob**1.0333333333333333d+1
13297            t83 = 1/rhob**9
13298            t84 = 1/rhob**7.666666666666667d+0
13299            t85 = 1/rhob**6.333333333333333d+0
13300            t86 = 1/rhob**5
13301            t87 = 1/rhob**2.3333333333333334d+0
13302            t88 = -9.121763297794749d-1*t5*t87-9.371196275079824d-2*t14*
13303     1         t86+7.379767838723479d-3*t12*t85-3.970606525117923d-4*t10
13304     2         *t84+2.1757466141021625d-5*t8*t83-1.6407054045998d-6*t6*t
13305     3         82+6.026316036028103d-8*t20*t81-3.7791630611803767d-9*t18
13306     4         *t80+5.475448834737188d-1*gammabb*t78
13307            t89 = 1/t24**2
13308            t90 = -1.6455307846020562d-2*gammabb*t16*t17*t88*t89
13309            t91 = -7.202205253416327d-4*t14*t86+2.3159461868101344d-4*t1
13310     1         2*t85-3.5347308712216d-5*t10*t84+3.462141917580374d-6*t8*
13311     2         t83-2.2515574897849044d-7*t6*t82-7.018342379201d-4*gammab
13312     3         b*t78
13313            t92 = 1.6455307846020562d-2*gammabb*t16*t25*t91
13314            t93 = t92+t90+t79-4.38808209227215d-2*t1*t23*t4
13315            t94 = 1/t33**2
13316            t95 = 5.634986987915197d-5*t12*t85*t94+6.934448603031025d-2*
13317     1         gammabb*t16*t25*t91-6.934448603031025d-2*gammabb*t16*t17*
13318     2         t88*t89-1.369767625290079d-2*gammabb*t34*t78-1.8491862941
13319     3         416065d-1*gammabb*t17*t25*t78
13320            t96 = 5.273288888888887d-2*t36*t38*t95
13321            t97 = -8.7761641845443d-2*gammabb*t17*t25*t52*t78
13322            t98 = -3.2910615692041123d-2*gammabb*t16*t17*t52*t88*t89
13323            t99 = 3.2910615692041123d-2*gammabb*t16*t25*t52*t91
13324            t100 = 1/rhob**1.6666666666666669d+0
13325            t101 = t92+t90+t79-4.38808209227215d-2*t100*t39
13326            t102 = 1/t45
13327            t103 = 5.0d-1*t101*t102
13328            t104 = -8.551882923536147d-2*t1*t23
13329            t105 = t104+t103
13330            t106 = 1/t49**2
13331            t107 = 1/t43
13332            t108 = 5.0d-1*t101*t107
13333            t109 = t108+t103
13334            t110 = 1/t46**2
13335            t111 = 6.0965d-1*t109*t110*t50+6.0965d-1*t105*t106*t47
13336            t112 = 1/t51
13337            t113 = 3.2910615692041123d-2*gammabb*t111*t112*t16*t17*t25
13338            t114 = t92+t90+t79
13339            t115 = -2.0d+0*t114*t58
13340            t116 = 1/t54
13341            t117 = 5.0d-1*t101*t116
13342            t118 = t117+t103
13343            t119 = 1/t55**2
13344            t120 = -1.475609999999999d-1*t105*t106*t56-1.475609999999999
13345     1         d-1*t118*t119*t50
13346            t121 = 1/t57
13347            t122 = -2.0d+0*t120*t121*t59
13348            t123 = t117+t104
13349            t124 = 1/t62**2
13350            t125 = t117+t108
13351            t126 = 1/t60**2
13352            t127 = t108+t104
13353            t128 = 1/t64**2
13354            t129 = 7.57211d-1*(1.6455307846020562d-2*gammabb*t16*t25*t61
13355     1         *t65*t91-1.6455307846020562d-2*gammabb*t16*t17*t61*t65*t8
13356     2         8*t89-4.38808209227215d-2*gammabb*t17*t25*t61*t65*t78-1.6
13357     3         455307846020562d-2*gammabb*t125*t126*t16*t17*t25*t65+t114
13358     4         *t61*t63-t125*t126*t59*t63-t123*t124*t59*t61-1.6455307846
13359     5         020562d-2*gammabb*t127*t128*t16*t17*t25*t61)
13360            t130 = t66**2.5d+0
13361            t131 = 1/t70
13362            t132 = 1/t69
13363            t133 = gammabb*t16*t25*t91-gammabb*t16*t17*t88*t89-2.6666666
13364     1         666666666d+0*gammabb*t17*t25*t78
13365            t134 = 6.41391219265211d-2*t132*t133-5.0d-1*t114*t131
13366            t135 = 4.7459599999999996d-2*t66*t95-8.400000000000001d+0*t1
13367     1         14*t130*t71-2.4d+0*t134*t68-2.7259596d+0*t114*t67+5.67274
13368     2         6666666666d-2*t114*t66+4.7459599999999996d-2*t114*t35-4.9
13369     3         628707825354457d+0*t114*t130
13370            t136 = -8.888888888888888d-1*t135*t73*t75
13371            t137 = 1/t31**2
13372            t138 = -8.551882923536147d-2*t1*t23*t30
13373            t139 = 1/t29**3
13374            t140 = t138-1.282782438530422d-1*t1*t139*t3*t93
13375            t141 = -4.2759414617680735d-2*t1*t23*t30
13376            t142 = t141-6.41391219265211d-2*t1*t139*t3*t93
13377            t143 = -9.620868288978164d-2*t1*t23*t30
13378            t144 = -3.333333333333333d-1*t1*t23*t30
13379            t145 = t144-5.0d-1*t1*t139*t3*t93
13380            t146 = -1.4431302433467247d-1*t1*t139*t3*t93+4.9365923538061
13381     1         685d-2*t145*t74+t143
13382            t147 = t31*t93+t140*t27
13383            t148 = 1/t37**4.0d+0
13384            t149 = t99+t98+t97+t96-4.727288888888889d-2*t32*t77*t93+2.66
13385     1         66666666666666d+0*t147*t148*t72*t75-8.888888888888888d-1*
13386     2         t146*t72*t73-1.0546577777777776d-1*t147*t35*t36*t73+5.273
13387     3         288888888887d-2*t142*t35*t38-4.727288888888889d-2*t137*t1
13388     4         40*t28+t136+t129+t122+t115+t113
13389            t150 = 1/t5
13390            t151 = -8.159049802883108d-6*t12*t9-2.2598685135105387d-8*t2
13391     1         1*t8+6.15264526724925d-7*t10*t7+1.4171861479426412d-9*t19
13392     2         *t6+3.514198603154934d-2*t15*t5+3.420661236673031d-1*t150
13393     3         *t23-2.0532933130264455d-1*t16+1.488977446919221d-4*t11*t
13394     4         14-2.767412939521305d-3*gammabb*t13
13395            t152 = -1.2983032190926402d-6*t12*t9+8.443340586693391d-8*t1
13396     1         0*t7+2.7008269700311227d-4*t15*t5+2.631878392200375d-4*t1
13397     2         6+1.3255240767081d-5*t11*t14-8.684798200538004d-5*gammabb
13398     3         *t13
13399            t153 = -1.6455307846020562d-2*gammabb*t151*t16*t17*t89+1.645
13400     1         5307846020562d-2*t16*t17*t25+1.6455307846020562d-2*gammab
13401     2         b*t152*t16*t25
13402            t154 = -4.727288888888889d-2*t153*t32*t77
13403            t155 = -2.113120120468199d-5*gammabb*t13*t94-6.9344486030310
13404     1         25d-2*gammabb*t151*t16*t17*t89+5.136628594837797d-3*t16*t
13405     2         34+6.934448603031025d-2*t16*t17*t25+6.934448603031025d-2*
13406     3         gammabb*t152*t16*t25
13407            t156 = 5.273288888888887d-2*t155*t36*t38
13408            t157 = -3.2910615692041123d-2*gammabb*t151*t16*t17*t52*t89
13409            t158 = 5.0d-1*t107*t153
13410            t159 = 5.0d-1*t102*t153
13411            t160 = t159+t158
13412            t161 = 6.0965d-1*t110*t160*t50+3.04825d-1*t102*t106*t153*t47
13413            t162 = 3.2910615692041123d-2*gammabb*t112*t16*t161*t17*t25
13414            t163 = 3.2910615692041123d-2*t17*t52+3.2910615692041123d-2*g
13415     1         ammabb*t152*t52
13416            t164 = -2.0d+0*t153*t58
13417            t165 = 5.0d-1*t116*t153
13418            t166 = t165+t159
13419            t167 = -7.378049999999994d-2*t102*t106*t153*t56-1.4756099999
13420     1         99999d-1*t119*t166*t50
13421            t168 = -2.0d+0*t121*t167*t59
13422            t169 = t165+t158
13423            t170 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t151*t16*t
13424     1         17*t61*t65*t89+1.6455307846020562d-2*t16*t17*t25*t61*t65+
13425     2         1.6455307846020562d-2*gammabb*t152*t16*t25*t61*t65-1.6455
13426     3         307846020562d-2*gammabb*t126*t16*t169*t17*t25*t65+t153*t6
13427     4         1*t63-t126*t169*t59*t63-5.0d-1*t116*t124*t153*t59*t61-8.2
13428     5         27653923010281d-3*gammabb*t107*t128*t153*t16*t17*t25*t61)
13429            t171 = 1/t29**5
13430            t172 = 6.064083168526658d-3*t1*t137*t153*t171*t3
13431            t173 = -3.3822411899821336d-3*t1*t139*t153*t3*t35*t38
13432            t174 = t153*t31-1.282782438530422d-1*t1*t153*t3*t30
13433            t175 = 2.6666666666666666d+0*t148*t174*t72*t75
13434            t176 = -1.4431302433467247d-1*t1*t139*t153*t3
13435            t177 = t176-2.4682961769030842d-2*t153*t39*t40*t77
13436            t178 = -gammabb*t151*t16*t17*t89+t16*t17*t25+gammabb*t152*t1
13437     1         6*t25
13438            t179 = 6.41391219265211d-2*t132*t178-5.0d-1*t131*t153
13439            t180 = -8.400000000000001d+0*t130*t153*t71-2.4d+0*t179*t68-2
13440     1         .7259596d+0*t153*t67+4.7459599999999996d-2*t155*t66+5.672
13441     2         746666666666d-2*t153*t66+4.7459599999999996d-2*t153*t35-4
13442     3         .9628707825354457d+0*t130*t153
13443            t181 = -8.888888888888888d-1*t180*t75-8.888888888888888d-1*t
13444     1         177*t72-1.0546577777777776d-1*t174*t35*t36
13445            t182 = 1/rhob**4.666666666666667d+0
13446            t183 = 1.6089634338331216d-1*gammabb*t17*t182*t25
13447            t184 = 8.7761641845443d-2*gammabb*t17*t78*t88*t89
13448            t185 = -8.7761641845443d-2*gammabb*t25*t78*t91
13449            t186 = t88**2
13450            t187 = 1/t24**3
13451            t188 = 3.2910615692041123d-2*gammabb*t16*t17*t186*t187
13452            t189 = 1/rhob**14
13453            t190 = 1/rhob**1.2666666666666665d+1
13454            t191 = 1/rhob**1.1333333333333334d+1
13455            t192 = 1/rhob**10
13456            t193 = 1/rhob**8.666666666666666d+0
13457            t194 = 1/rhob**7.333333333333333d+0
13458            t195 = 1/rhob**6
13459            t196 = 1/rhob**3.3333333333333337d+0
13460            t197 = -1.9581719526919464d-4*t192*t8+1.695395584753127d-5*t
13461     1         191*t6+2.1284114361521084d+0*t196*t5-7.030702042032786d-7
13462     2         *t190*t20+4.685598137539912d-1*t14*t195-4.673852964524870
13463     3         5d-2*t12*t194+3.0441316692570747d-3*t10*t193+4.9129119795
13464     4         344894d-8*t18*t189-2.0076645727369685d+0*gammabb*t182
13465            t198 = -1.6455307846020562d-2*gammabb*t16*t17*t197*t89
13466            t199 = -3.2910615692041123d-2*gammabb*t16*t88*t89*t91
13467            t200 = -3.115927725822337d-5*t192*t8+2.326609406111068d-6*t1
13468     1         91*t6+3.6011026267081636d-3*t14*t195-1.466765918313085d-3
13469     2         *t12*t194+2.709960334603227d-4*t10*t193+2.573392205707033
13470     3         5d-3*gammabb*t182
13471            t201 = 1.6455307846020562d-2*gammabb*t16*t200*t25
13472            t202 = 7.313470153786916d-2*t16*t39+t201+t199+t198+t188+t185
13473     1         +t184+t183
13474            t203 = 1/t27**3
13475            t204 = t93**2
13476            t205 = 1/t33**3
13477            t206 = -5.071488289123677d-4*t12*t194*t94-1.386889720606205d
13478     1         -1*gammabb*t16*t88*t89*t91-3.698372588283213d-1*gammabb*t
13479     2         25*t78*t91+3.698372588283213d-1*gammabb*t17*t78*t88*t89-6
13480     3         .934448603031025d-2*gammabb*t16*t17*t197*t89+1.2363392745
13481     4         928628d-6*t192*t205*t8+5.02248129273029d-2*gammabb*t182*t
13482     5         34+6.934448603031025d-2*gammabb*t16*t200*t25+6.7803497451
13483     6         85891d-1*gammabb*t17*t182*t25+1.386889720606205d-1*gammab
13484     7         b*t16*t17*t186*t187
13485            t207 = 1/t31**3
13486            t208 = t140**2
13487            t209 = t147**2
13488            t210 = 1/t37**5.0d+0
13489            t211 = t111**2
13490            t212 = 1/t51**2
13491            t213 = t105**2
13492            t214 = 1/t49**3
13493            t215 = t101**2
13494            t216 = 1/t45**3
13495            t217 = -2.5d-1*t215*t216
13496            t218 = 5.0d-1*t102*t202
13497            t219 = 1.1402510564714863d-1*t1*t87
13498            t220 = t219+t218+t217
13499            t221 = t109**2
13500            t222 = 1/t46**3
13501            t223 = 1/t43**3
13502            t224 = -2.5d-1*t215*t223
13503            t225 = 5.0d-1*t107*t202
13504            t226 = t225+t224+t218+t217
13505            t227 = 6.0965d-1*t110*t226*t50-1.2193000000000001d+0*t221*t2
13506     1         22*t50+6.0965d-1*t106*t220*t47-1.2193000000000001d+0*t213
13507     2         *t214*t47-1.2193000000000001d+0*t105*t106*t109*t110
13508            t228 = t201+t199+t198+t188+t185+t184+t183
13509            t229 = t120**2
13510            t230 = 1/t57**2
13511            t231 = t118**2
13512            t232 = 1/t55**3
13513            t233 = 1/t54**3
13514            t234 = -2.5d-1*t215*t233
13515            t235 = 5.0d-1*t116*t202
13516            t236 = t235+t234+t218+t217
13517            t237 = -1.475609999999999d-1*t106*t220*t56+2.951219999999998
13518     1         d-1*t213*t214*t56-1.475609999999999d-1*t119*t236*t50+2.95
13519     2         1219999999998d-1*t231*t232*t50+2.951219999999998d-1*t105*
13520     3         t106*t118*t119
13521            t238 = t123**2
13522            t239 = 1/t62**3
13523            t240 = t235+t234+t219
13524            t241 = t125**2
13525            t242 = 1/t60**3
13526            t243 = t235+t234+t225+t224
13527            t244 = t127**2
13528            t245 = 1/t64**3
13529            t246 = t225+t224+t219
13530            t247 = t114**2
13531            t248 = t66**1.5d+0
13532            t249 = 1/t69**3
13533            t250 = t133**2
13534            t251 = 1/t70**3
13535            t252 = -2*gammabb*t16*t88*t89*t91-5.333333333333333d+0*gamma
13536     1         bb*t25*t78*t91+5.333333333333333d+0*gammabb*t17*t78*t88*t
13537     2         89-gammabb*t16*t17*t197*t89+gammabb*t16*t200*t25+9.777777
13538     3         777777779d+0*gammabb*t17*t182*t25+2*gammabb*t16*t17*t186*
13539     4         t187
13540            t253 = 6.41391219265211d-2*t132*t252+2.5d-1*t247*t251-3.2069
13541     1         56096326055d-2*t249*t250-5.0d-1*t131*t228
13542            t254 = 9.491919999999999d-2*t114*t95-2.1d+1*t247*t248*t71-8.
13543     1         400000000000001d+0*t130*t228*t71-2.4d+0*t253*t68-2.725959
13544     2         6d+0*t228*t67-5.4519192d+0*t247*t66+5.672746666666666d-2*
13545     3         t228*t66+4.7459599999999996d-2*t206*t66+4.745959999999999
13546     4         6d-2*t228*t35-1.2407176956338616d+1*t247*t248+5.672746666
13547     5         666666d-2*t247-4.9628707825354457d+0*t130*t228-1.68d+1*t1
13548     6         14*t130*t134
13549            t255 = 4.2759414617680735d-2*t1*t139*t23*t93+5.7012552823574
13550     1         31d-2*t1*t30*t87+9.620868288978166d-2*t1*t171*t204*t3-6.4
13551     2         1391219265211d-2*t1*t139*t202*t3
13552            t256 = 8.551882923536147d-2*t1*t139*t23*t93+1.14025105647148
13553     1         63d-1*t1*t30*t87+1.924173657795633d-1*t1*t171*t204*t3-1.2
13554     2         82782438530422d-1*t1*t139*t202*t3
13555            t257 = 3.333333333333333d-1*t1*t139*t23*t93+4.44444444444444
13556     1         4d-1*t1*t30*t87+7.5d-1*t1*t171*t204*t3-5.0d-1*t1*t139*t20
13557     2         2*t3
13558            t258 = 9.620868288978164d-2*t1*t139*t23*t93+1.28278243853042
13559     1         18d-1*t1*t30*t87+4.9365923538061685d-2*t1*t257*t3*t30+2.1
13560     2         64695365020087d-1*t1*t171*t204*t3-1.4431302433467247d-1*t
13561     3         1*t139*t202*t3+4.9365923538061685d-2*t145**2
13562            t259 = 2*t140*t93+t202*t31+t256*t27
13563            t260 = -2.109315555555555d-1*t147*t36*t73*t95+1.054657777777
13564     1         7776d-1*t142*t38*t95+9.454577777777778d-2*t137*t140*t77*t
13565     2         93+7.57211d-1*(-3.2910615692041123d-2*gammabb*t16*t61*t65
13566     3         *t88*t89*t91-8.7761641845443d-2*gammabb*t25*t61*t65*t78*t
13567     4         91-3.2910615692041123d-2*gammabb*t125*t126*t16*t25*t65*t9
13568     5         1-3.2910615692041123d-2*gammabb*t127*t128*t16*t25*t61*t91
13569     6         +8.7761641845443d-2*gammabb*t17*t61*t65*t78*t88*t89+3.291
13570     7         0615692041123d-2*gammabb*t125*t126*t16*t17*t65*t88*t89+3.
13571     8         2910615692041123d-2*gammabb*t127*t128*t16*t17*t61*t88*t89
13572     9         -1.6455307846020562d-2*gammabb*t16*t17*t197*t61*t65*t89+8
13573     :         .7761641845443d-2*gammabb*t125*t126*t17*t25*t65*t78+8.776
13574     ;         1641845443d-2*gammabb*t127*t128*t17*t25*t61*t78+1.6455307
13575     <         846020562d-2*gammabb*t16*t200*t25*t61*t65+1.6089634338331
13576     =         216d-1*gammabb*t17*t182*t25*t61*t65+3.2910615692041123d-2
13577     >         *gammabb*t16*t17*t186*t187*t61*t65-1.6455307846020562d-2*
13578     ?         gammabb*t126*t16*t17*t243*t25*t65+3.2910615692041123d-2*g
13579     @         ammabb*t16*t17*t241*t242*t25*t65+t228*t61*t63-t126*t243*t
13580     1         59*t63+2*t241*t242*t59*t63-2*t114*t125*t126*t63-t124*t240
13581     2         *t59*t61+2*t238*t239*t59*t61-1.6455307846020562d-2*gammab
13582     3         b*t128*t16*t17*t246*t25*t61+3.2910615692041123d-2*gammabb
13583     4         *t16*t17*t244*t245*t25*t61-2*t114*t123*t124*t61+2*t123*t1
13584     5         24*t125*t126*t59+3.2910615692041123d-2*gammabb*t125*t126*
13585     6         t127*t128*t16*t17*t25)-6.582123138408225d-2*gammabb*t16*t
13586     7         52*t88*t89*t91-1.75523283690886d-1*gammabb*t25*t52*t78*t9
13587     8         1+6.582123138408225d-2*gammabb*t111*t112*t16*t25*t91+1.75
13588     9         523283690886d-1*gammabb*t17*t52*t78*t88*t89-6.58212313840
13589     :         8225d-2*gammabb*t111*t112*t16*t17*t88*t89-3.2910615692041
13590     ;         123d-2*gammabb*t16*t17*t197*t52*t89-1.75523283690886d-1*g
13591     <         ammabb*t111*t112*t17*t25*t78-4.727288888888889d-2*t202*t3
13592     =         2*t77-8.888888888888888d-1*t254*t73*t75+2.666666666666666
13593     >         6d+0*t148*t259*t72*t75-1.0666666666666666d+1*t209*t210*t7
13594     ?         2*t75+5.333333333333333d+0*t135*t147*t148*t75-8.888888888
13595     @         888888d-1*t258*t72*t73-1.0546577777777776d-1*t259*t35*t36
13596     1         *t73-2.109315555555555d-1*t142*t147*t35*t73-1.77777777777
13597     2         77776d+0*t135*t146*t73+5.333333333333333d+0*t146*t147*t14
13598     3         8*t72-2.0d+0*t121*t237*t59+2.0d+0*t229*t230*t59-2.0d+0*t2
13599     4         28*t58+3.2910615692041123d-2*gammabb*t16*t200*t25*t52+3.2
13600     5         17926867666243d-1*gammabb*t17*t182*t25*t52+6.582123138408
13601     6         225d-2*gammabb*t16*t17*t186*t187*t52+5.273288888888887d-2
13602     7         *t206*t36*t38+5.273288888888887d-2*t255*t35*t38+3.1639733
13603     8         333333325d-1*t148*t209*t35*t36+9.454577777777778d-2*t203*
13604     9         t204*t32-4.727288888888889d-2*t137*t256*t28+9.45457777777
13605     :         7778d-2*t207*t208*t28+3.2910615692041123d-2*gammabb*t112*
13606     ;         t16*t17*t227*t25-3.2910615692041123d-2*gammabb*t16*t17*t2
13607     <         11*t212*t25-4.0d+0*t114*t120*t121
13608            t261 = 3.2910615692041123d-2*gammabb*t152*t16*t25*t52
13609            t262 = 3.2910615692041123d-2*t16*t17*t25*t52
13610            t263 = -8.888888888888888d-1*t180*t73*t75
13611            t264 = t176-2.4682961769030842d-2*t1*t139*t153*t3*t74
13612            t265 = -1.0546577777777776d-1*t174*t35*t36*t73
13613            t266 = -4.5608816488973747d-1*t150*t87-1.4056794412619736d-1
13614     1         *t5*t86+1.4759535677446958d-2*gammabb*t85-9.9265163127948
13615     2         08d-4*t14*t84+6.527239842306487d-5*t12*t83-5.742468916099
13616     3         301d-6*t10*t82+2.4105264144112412d-7*t8*t81-1.70062337753
13617     4         11694d-8*t6*t80+5.475448834737188d-1*t78
13618            t267 = -1.0803307880124491d-3*t5*t86+4.631892373620269d-4*ga
13619     1         mmabb*t85-8.836827178054d-5*t14*t84+1.0386425752741123d-5
13620     2         *t12*t83-7.880451214247165d-7*t10*t82-7.018342379201d-4*t
13621     3         78
13622            t268 = -1.6455307846020562d-2*gammabb*t151*t16*t89*t91+1.645
13623     1         5307846020562d-2*t16*t25*t91-1.6455307846020562d-2*t16*t1
13624     2         7*t88*t89-1.6455307846020562d-2*gammabb*t152*t16*t88*t89+
13625     3         4.38808209227215d-2*gammabb*t151*t17*t78*t89-1.6455307846
13626     4         020562d-2*gammabb*t16*t17*t266*t89+3.2910615692041123d-2*
13627     5         gammabb*t151*t16*t17*t187*t88-4.38808209227215d-2*t17*t25
13628     6         *t78-4.38808209227215d-2*gammabb*t152*t25*t78+1.645530784
13629     7         6020562d-2*gammabb*t16*t25*t267
13630            t269 = 1.690496096374559d-4*gammabb*t85*t94-6.93444860303102
13631     1         5d-2*gammabb*t151*t16*t89*t91+6.934448603031025d-2*t16*t2
13632     2         5*t91-6.934448603031025d-2*t16*t17*t88*t89-6.934448603031
13633     3         025d-2*gammabb*t152*t16*t88*t89+1.8491862941416065d-1*gam
13634     4         mabb*t151*t17*t78*t89-6.934448603031025d-2*gammabb*t16*t1
13635     5         7*t266*t89+1.386889720606205d-1*gammabb*t151*t16*t17*t187
13636     6         *t88-4.6362722797232353d-7*t12*t205*t83-1.369767625290079
13637     7         d-2*t34*t78-1.8491862941416065d-1*t17*t25*t78-1.849186294
13638     8         1416065d-1*gammabb*t152*t25*t78+6.934448603031025d-2*gamm
13639     9         abb*t16*t25*t267
13640            t270 = -2.5d-1*t101*t153*t216
13641            t271 = 5.0d-1*t102*t268
13642            t272 = t271+t270
13643            t273 = -2.5d-1*t101*t153*t223
13644            t274 = 5.0d-1*t107*t268
13645            t275 = t274+t273+t271+t270
13646            t276 = 6.0965d-1*t110*t275*t50-1.2193000000000001d+0*t109*t1
13647     1         60*t222*t50+6.0965d-1*t106*t272*t47-6.0965d-1*t102*t105*t
13648     2         153*t214*t47-6.0965d-1*t105*t106*t110*t160-3.04825d-1*t10
13649     3         2*t106*t109*t110*t153
13650            t277 = -2.5d-1*t101*t153*t233
13651            t278 = 5.0d-1*t116*t268
13652            t279 = t278+t277+t271+t270
13653            t280 = -1.475609999999999d-1*t106*t272*t56+1.475609999999999
13654     1         d-1*t102*t105*t153*t214*t56-1.475609999999999d-1*t119*t27
13655     2         9*t50+2.951219999999998d-1*t118*t166*t232*t50+1.475609999
13656     3         999999d-1*t105*t106*t119*t166+7.378049999999994d-2*t102*t
13657     4         106*t118*t119*t153
13658            t281 = t278+t277
13659            t282 = t278+t277+t274+t273
13660            t283 = t274+t273
13661            t284 = 1/t29**7
13662            t285 = -gammabb*t151*t16*t89*t91+t16*t25*t91-t16*t17*t88*t89
13663     1         -gammabb*t152*t16*t88*t89+2.6666666666666666d+0*gammabb*t
13664     2         151*t17*t78*t89-gammabb*t16*t17*t266*t89+2*gammabb*t151*t
13665     3         16*t17*t187*t88-2.6666666666666666d+0*t17*t25*t78-2.66666
13666     4         66666666666d+0*gammabb*t152*t25*t78+gammabb*t16*t25*t267
13667            t286 = 6.41391219265211d-2*t132*t285-5.0d-1*t131*t268+2.5d-1
13668     1         *t114*t153*t251-3.206956096326055d-2*t133*t178*t249
13669            t287 = 4.7459599999999996d-2*t153*t95-8.400000000000001d+0*t
13670     1         130*t268*t71-2.1d+1*t114*t153*t248*t71-2.4d+0*t286*t68-2.
13671     2         7259596d+0*t268*t67+4.7459599999999996d-2*t269*t66+5.6727
13672     3         46666666666d-2*t268*t66-5.4519192d+0*t114*t153*t66+4.7459
13673     4         599999999996d-2*t268*t35-4.9628707825354457d+0*t130*t268-
13674     5         1.2407176956338616d+1*t114*t153*t248-8.400000000000001d+0
13675     6         *t114*t130*t179+4.7459599999999996d-2*t114*t155-8.4000000
13676     7         00000001d+0*t130*t134*t153+5.672746666666666d-2*t114*t153
13677            t288 = 9.620868288978166d-2*t1*t153*t171*t3*t93-6.4139121926
13678     1         5211d-2*t1*t139*t268*t3+2.1379707308840368d-2*t1*t139*t15
13679     2         3*t23
13680            t289 = 1.924173657795633d-1*t1*t153*t171*t3*t93-1.2827824385
13681     1         30422d-1*t1*t139*t268*t3+4.2759414617680735d-2*t1*t139*t1
13682     2         53*t23
13683            t290 = 7.5d-1*t1*t153*t171*t3*t93-5.0d-1*t1*t139*t268*t3+1.6
13684     1         666666666666666d-1*t1*t139*t153*t23
13685            t291 = 2.164695365020087d-1*t1*t153*t171*t3*t93+4.9365923538
13686     1         061685d-2*t1*t290*t3*t30-1.4431302433467247d-1*t1*t139*t2
13687     2         68*t3-2.4682961769030842d-2*t1*t139*t145*t153*t3+4.810434
13688     3         144489082d-2*t1*t139*t153*t23
13689            t292 = -1.282782438530422d-1*t1*t139*t153*t3*t93+t268*t31+t2
13690     1         7*t289+t140*t153
13691            t293 = -1.0546577777777776d-1*t174*t36*t73*t95-3.38224118998
13692     1         21336d-3*t1*t139*t153*t3*t38*t95+9.454577777777778d-2*t15
13693     2         3*t203*t32*t93-6.064083168526658d-3*t1*t137*t153*t284*t3*
13694     3         t93+7.57211d-1*(-1.6455307846020562d-2*gammabb*t151*t16*t
13695     4         61*t65*t89*t91+1.6455307846020562d-2*t16*t25*t61*t65*t91-
13696     5         1.6455307846020562d-2*gammabb*t126*t16*t169*t25*t65*t91-8
13697     6         .227653923010281d-3*gammabb*t107*t128*t153*t16*t25*t61*t9
13698     7         1-1.6455307846020562d-2*t16*t17*t61*t65*t88*t89-1.6455307
13699     8         846020562d-2*gammabb*t152*t16*t61*t65*t88*t89+1.645530784
13700     9         6020562d-2*gammabb*t126*t16*t169*t17*t65*t88*t89+8.227653
13701     :         923010281d-3*gammabb*t107*t128*t153*t16*t17*t61*t88*t89+4
13702     ;         .38808209227215d-2*gammabb*t151*t17*t61*t65*t78*t89-1.645
13703     <         5307846020562d-2*gammabb*t16*t17*t266*t61*t65*t89+1.64553
13704     =         07846020562d-2*gammabb*t125*t126*t151*t16*t17*t65*t89+1.6
13705     >         455307846020562d-2*gammabb*t127*t128*t151*t16*t17*t61*t89
13706     ?         +3.2910615692041123d-2*gammabb*t151*t16*t17*t187*t61*t65*
13707     @         t88-4.38808209227215d-2*t17*t25*t61*t65*t78-4.38808209227
13708     1         215d-2*gammabb*t152*t25*t61*t65*t78+4.38808209227215d-2*g
13709     2         ammabb*t126*t169*t17*t25*t65*t78+2.194041046136075d-2*gam
13710     3         mabb*t107*t128*t153*t17*t25*t61*t78+1.6455307846020562d-2
13711     4         *gammabb*t16*t25*t267*t61*t65-1.6455307846020562d-2*gamma
13712     5         bb*t126*t16*t17*t25*t282*t65+3.2910615692041123d-2*gammab
13713     6         b*t125*t16*t169*t17*t242*t25*t65-1.6455307846020562d-2*t1
13714     7         25*t126*t16*t17*t25*t65-1.6455307846020562d-2*gammabb*t12
13715     8         5*t126*t152*t16*t25*t65+t268*t61*t63-t126*t282*t59*t63+2*
13716     9         t125*t169*t242*t59*t63-t114*t126*t169*t63-t125*t126*t153*
13717     :         t63-t124*t281*t59*t61+t116*t123*t153*t239*t59*t61-1.64553
13718     ;         07846020562d-2*gammabb*t128*t16*t17*t25*t283*t61+1.645530
13719     <         7846020562d-2*gammabb*t107*t127*t153*t16*t17*t245*t25*t61
13720     =         -1.6455307846020562d-2*t127*t128*t16*t17*t25*t61-1.645530
13721     >         7846020562d-2*gammabb*t127*t128*t152*t16*t25*t61-t123*t12
13722     ?         4*t153*t61-5.0d-1*t114*t116*t124*t153*t61+t123*t124*t126*
13723     @         t169*t59+5.0d-1*t116*t124*t125*t126*t153*t59+1.6455307846
13724     1         020562d-2*gammabb*t126*t127*t128*t16*t169*t17*t25+8.22765
13725     2         3923010281d-3*gammabb*t107*t125*t126*t128*t153*t16*t17*t2
13726     3         5)-3.2910615692041123d-2*gammabb*t151*t16*t52*t89*t91+3.2
13727     4         910615692041123d-2*t16*t25*t52*t91+3.2910615692041123d-2*
13728     5         gammabb*t112*t16*t161*t25*t91-3.2910615692041123d-2*t16*t
13729     6         17*t52*t88*t89-3.2910615692041123d-2*gammabb*t152*t16*t52
13730     7         *t88*t89-3.2910615692041123d-2*gammabb*t112*t16*t161*t17*
13731     8         t88*t89+8.7761641845443d-2*gammabb*t151*t17*t52*t78*t89-3
13732     9         .2910615692041123d-2*gammabb*t16*t17*t266*t52*t89-3.29106
13733     :         15692041123d-2*gammabb*t111*t112*t151*t16*t17*t89+6.58212
13734     ;         3138408225d-2*gammabb*t151*t16*t17*t187*t52*t88-8.7761641
13735     <         845443d-2*t17*t25*t52*t78-8.7761641845443d-2*gammabb*t152
13736     =         *t25*t52*t78-8.7761641845443d-2*gammabb*t112*t161*t17*t25
13737     >         *t78-4.727288888888889d-2*t268*t32*t77+4.727288888888889d
13738     ?         -2*t137*t140*t153*t77-8.888888888888888d-1*t287*t73*t75+2
13739     @         .6666666666666666d+0*t148*t292*t72*t75-1.0666666666666666
13740     1         d+1*t147*t174*t210*t72*t75+2.6666666666666666d+0*t147*t14
13741     2         8*t180*t75+2.6666666666666666d+0*t135*t148*t174*t75-8.888
13742     3         888888888888d-1*t291*t72*t73-1.0546577777777776d-1*t292*t
13743     4         35*t36*t73-1.0546577777777776d-1*t147*t155*t36*t73+6.7644
13744     5         82379964267d-3*t1*t139*t147*t153*t3*t35*t73-1.05465777777
13745     6         77776d-1*t142*t174*t35*t73-8.888888888888888d-1*t135*t264
13746     7         *t73-8.888888888888888d-1*t146*t180*t73+2.666666666666666
13747     8         6d+0*t147*t148*t264*t72+2.6666666666666666d+0*t146*t148*t
13748     9         174*t72-2.0d+0*t121*t280*t59+2.0d+0*t120*t167*t230*t59-2.
13749     :         0d+0*t268*t58+3.2910615692041123d-2*gammabb*t16*t25*t267*
13750     ;         t52+5.273288888888887d-2*t269*t36*t38+5.273288888888887d-
13751     <         2*t288*t35*t38+5.273288888888887d-2*t142*t155*t38+3.16397
13752     =         33333333325d-1*t147*t148*t174*t35*t36-1.2128166337053317d
13753     >         -2*t1*t140*t153*t171*t207*t3-4.727288888888889d-2*t137*t2
13754     ?         8*t289+3.2910615692041123d-2*gammabb*t112*t16*t17*t25*t27
13755     @         6-3.2910615692041123d-2*gammabb*t111*t16*t161*t17*t212*t2
13756     1         5+3.2910615692041123d-2*t111*t112*t16*t17*t25+3.291061569
13757     2         2041123d-2*gammabb*t111*t112*t152*t16*t25-2.0d+0*t114*t12
13758     3         1*t167-2.0d+0*t120*t121*t153
13759            t294 = t153**2
13760            t295 = 9.454577777777778d-2*t203*t294*t32
13761            t296 = t151**2
13762            t297 = 1/t14
13763            t298 = -1.6318099605766218d-5*gammabb*t9+1.5381613168123123d
13764     1         -6*t14*t7+2.2334661703788317d-4*t11*t5-1.7103306183365155
13765     2         d-1*t23*t297-6.779605540531617d-8*t12*t21+4.9601515177992
13766     3         45d-9*t10*t19+1.757099301577467d-2*t15*t150-2.76741293952
13767     4         1305d-3*t13
13768            t299 = -2.5966064381852805d-6*gammabb*t9+2.1108351466733477d
13769     1         -7*t14*t7+1.9882861150621498d-5*t11*t5+1.3504134850155614
13770     2         d-4*t15*t150-8.684798200538004d-5*t13
13771            t300 = -1.6455307846020562d-2*gammabb*t16*t17*t298*t89-3.291
13772     1         0615692041123d-2*t151*t16*t17*t89-3.2910615692041123d-2*g
13773     2         ammabb*t151*t152*t16*t89+1.6455307846020562d-2*gammabb*t1
13774     3         6*t25*t299+3.2910615692041123d-2*gammabb*t16*t17*t187*t29
13775     4         6+3.2910615692041123d-2*t152*t16*t25
13776            t301 = -4.727288888888889d-2*t300*t32*t77
13777            t302 = -4.226240240936398d-5*t13*t94+1.7386021048962136d-7*g
13778     1         ammabb*t205*t9-6.934448603031025d-2*gammabb*t16*t17*t298*
13779     2         t89-1.386889720606205d-1*t151*t16*t17*t89-1.3868897206062
13780     3         05d-1*gammabb*t151*t152*t16*t89+6.934448603031025d-2*gamm
13781     4         abb*t16*t25*t299+1.386889720606205d-1*gammabb*t16*t17*t18
13782     5         7*t296+1.386889720606205d-1*t152*t16*t25
13783            t303 = 5.273288888888887d-2*t302*t36*t38
13784            t304 = t174**2
13785            t305 = -1.0666666666666666d+1*t210*t304*t72*t75
13786            t306 = 6.582123138408225d-2*gammabb*t16*t17*t187*t296*t52
13787            t307 = -6.582123138408225d-2*gammabb*t112*t151*t16*t161*t17*
13788     1         t89
13789            t308 = t161**2
13790            t309 = -3.2910615692041123d-2*gammabb*t16*t17*t212*t25*t308
13791            t310 = 3.2910615692041123d-2*gammabb*t299*t52+6.582123138408
13792     1         225d-2*t152*t52+3.2910615692041123d-2*t112*t161*t17+3.291
13793     2         0615692041123d-2*gammabb*t112*t152*t161
13794            t311 = 1/t44
13795            t312 = t160**2
13796            t313 = -2.5d-1*t223*t294
13797            t314 = 5.0d-1*t107*t300
13798            t315 = -2.5d-1*t216*t294
13799            t316 = 5.0d-1*t102*t300
13800            t317 = t316+t315+t314+t313
13801            t318 = 6.0965d-1*t110*t317*t50-1.2193000000000001d+0*t222*t3
13802     1         12*t50-3.04825d-1*t214*t294*t311*t47+3.04825d-1*t102*t106
13803     2         *t300*t47-1.524125d-1*t106*t216*t294*t47-6.0965d-1*t102*t
13804     3         106*t110*t153*t160
13805            t319 = 3.2910615692041123d-2*gammabb*t17*t318+3.291061569204
13806     1         1123d-2*t161*t17+3.2910615692041123d-2*gammabb*t152*t161
13807            t320 = -3.2910615692041123d-2*gammabb*t17*t298*t52-3.2910615
13808     1         692041123d-2*t151*t17*t52-3.2910615692041123d-2*gammabb*t
13809     2         151*t152*t52-t151*t163
13810            t321 = -2.0d+0*t300*t58
13811            t322 = t167**2
13812            t323 = 2.0d+0*t230*t322*t59
13813            t324 = 1/t53
13814            t325 = t169**2
13815            t326 = -2.5d-1*t233*t294
13816            t327 = 5.0d-1*t116*t300
13817            t328 = t327+t326+t314+t313
13818            t329 = 1/t42
13819            t330 = 7.57211d-1*(-1.6455307846020562d-2*gammabb*t16*t17*t2
13820     1         98*t61*t65*t89-3.2910615692041123d-2*t151*t16*t17*t61*t65
13821     2         *t89-3.2910615692041123d-2*gammabb*t151*t152*t16*t61*t65*
13822     3         t89+3.2910615692041123d-2*gammabb*t126*t151*t16*t169*t17*
13823     4         t65*t89+1.6455307846020562d-2*gammabb*t107*t128*t151*t153
13824     5         *t16*t17*t61*t89+1.6455307846020562d-2*gammabb*t16*t25*t2
13825     6         99*t61*t65+3.2910615692041123d-2*gammabb*t16*t17*t187*t29
13826     7         6*t61*t65+3.2910615692041123d-2*t152*t16*t25*t61*t65-1.64
13827     8         55307846020562d-2*gammabb*t126*t16*t17*t25*t328*t65+3.291
13828     9         0615692041123d-2*gammabb*t16*t17*t242*t25*t325*t65-3.2910
13829     :         615692041123d-2*t126*t16*t169*t17*t25*t65-3.2910615692041
13830     ;         123d-2*gammabb*t126*t152*t16*t169*t25*t65+t300*t61*t63-t1
13831     <         26*t328*t59*t63+2*t242*t325*t59*t63-2*t126*t153*t169*t63+
13832     =         5.0d-1*t239*t294*t324*t59*t61-5.0d-1*t116*t124*t300*t59*t
13833     >         61+2.5d-1*t124*t233*t294*t59*t61+8.227653923010281d-3*gam
13834     ?         mabb*t16*t17*t245*t25*t294*t329*t61-8.227653923010281d-3*
13835     @         gammabb*t107*t128*t16*t17*t25*t300*t61+4.1138269615051404
13836     1         d-3*gammabb*t128*t16*t17*t223*t25*t294*t61-t116*t124*t294
13837     2         *t61-1.6455307846020562d-2*t107*t128*t153*t16*t17*t25*t61
13838     3         -1.6455307846020562d-2*gammabb*t107*t128*t152*t153*t16*t2
13839     4         5*t61+t116*t124*t126*t153*t169*t59+1.6455307846020562d-2*
13840     5         gammabb*t107*t126*t128*t153*t16*t169*t17*t25)
13841            t331 = t166**2
13842            t332 = t327+t326+t316+t315
13843            t333 = 7.378049999999994d-2*t214*t294*t311*t56-7.37804999999
13844     1         9994d-2*t102*t106*t300*t56+3.689024999999997d-2*t106*t216
13845     2         *t294*t56-1.475609999999999d-1*t119*t332*t50+2.9512199999
13846     3         99998d-1*t232*t331*t50+1.475609999999999d-1*t102*t106*t11
13847     4         9*t153*t166
13848            t334 = -2.0d+0*t333*t59-4.0d+0*t153*t167
13849            t335 = 1/t27**4
13850            t336 = 1.5557798788747831d-3*t207*t294*t335*t39*t40
13851            t337 = -2.1224291089843306d-2*t1*t137*t284*t294*t3
13852            t338 = 6.064083168526658d-3*t1*t137*t171*t3*t300
13853            t339 = 5.0733617849732d-3*t1*t171*t294*t3*t35*t38
13854            t340 = -3.3822411899821336d-3*t1*t300*t35-6.764482379964267d
13855     1         -3*t1*t153*t155
13856            t341 = 6.764482379964267d-3*t1*t139*t153*t174*t3*t35
13857            t342 = -2.4682961769030842d-2*t300*t39*t40*t77+4.93659235380
13858     1         61685d-2*t203*t294*t39*t40-1.4431302433467247d-1*t1*t139*
13859     2         t3*t300+2.164695365020087d-1*t1*t171*t294*t3
13860            t343 = -8.888888888888888d-1*t342*t72
13861            t344 = -1.7777777777777776d+0*t177*t180
13862            t345 = t178**2
13863            t346 = -gammabb*t16*t17*t298*t89-2*t151*t16*t17*t89-2*gammab
13864     1         b*t151*t152*t16*t89+gammabb*t16*t25*t299+2*gammabb*t16*t1
13865     2         7*t187*t296+2*t152*t16*t25
13866            t347 = 6.41391219265211d-2*t132*t346-3.206956096326055d-2*t2
13867     1         49*t345-5.0d-1*t131*t300+2.5d-1*t251*t294
13868            t348 = -8.400000000000001d+0*t130*t300*t71-2.1d+1*t248*t294*
13869     1         t71-2.4d+0*t347*t68-2.7259596d+0*t300*t67+4.7459599999999
13870     2         996d-2*t302*t66+5.672746666666666d-2*t300*t66-5.4519192d+
13871     3         0*t294*t66+4.7459599999999996d-2*t300*t35-4.9628707825354
13872     4         457d+0*t130*t300-1.2407176956338616d+1*t248*t294+5.672746
13873     5         666666666d-2*t294-1.68d+1*t130*t153*t179+9.49191999999999
13874     6         9d-2*t153*t155
13875            t349 = -8.888888888888888d-1*t348*t75
13876            t350 = t300*t31-1.282782438530422d-1*t1*t3*t30*t300-6.413912
13877     1         19265211d-2*t1*t139*t294*t3
13878            t351 = -1.0546577777777776d-1*t35*t350*t36
13879            t352 = -2.109315555555555d-1*t155*t174*t36+t351+t349+t344+t3
13880     1         43+t341
13881            t353 = 2.6666666666666666d+0*t350*t72*t75+2.6666666666666666
13882     1         d+0*t174*t180*t75+2.6666666666666666d+0*t174*t177*t72-3.0
13883     2         d+0*t174*t181
13884            t354 = t138-1.282782438530422d-1*t1*t101*t139*t3
13885            t355 = t27*t354+t101*t31
13886            t356 = 1/rhob**5.666666666666667d+0
13887            t357 = -7.508496024554567d-1*gammabb*t17*t25*t356
13888            t358 = -4.8268903014993647d-1*gammabb*t17*t182*t88*t89
13889            t359 = 4.8268903014993647d-1*gammabb*t182*t25*t91
13890            t360 = -2.63284925536329d-1*gammabb*t17*t186*t187*t78
13891            t361 = 1.316424627681645d-1*gammabb*t17*t197*t78*t89
13892            t362 = 2.63284925536329d-1*gammabb*t78*t88*t89*t91
13893            t363 = -1.316424627681645d-1*gammabb*t200*t25*t78
13894            t364 = t88**3
13895            t365 = 1/t24**4
13896            t366 = -9.873184707612337d-2*gammabb*t16*t17*t364*t365
13897            t367 = 9.873184707612337d-2*gammabb*t16*t186*t187*t91
13898            t368 = 9.873184707612337d-2*gammabb*t16*t17*t187*t197*t88
13899            t369 = -4.9365923538061685d-2*gammabb*t16*t197*t89*t91
13900            t370 = 1/rhob**1.3666666666666666d+1
13901            t371 = 1/rhob**1.2333333333333334d+1
13902            t372 = 1/rhob**11
13903            t373 = 1/rhob**9.666666666666666d+0
13904            t374 = 1/rhob**8.333333333333334d+0
13905            t375 = 1/rhob**7
13906            t376 = 1.958171952691946d-3*t372*t8-1.9214483293868775d-4*t3
13907     1         71*t6-7.094704787173696d+0*t5/rhob**4.333333333333333d+0-
13908     2         2.811358882523947d+0*t14*t375+3.4274921739849046d-1*t12*t
13909     3         374-2.6382474466894645d-2*t10*t373+8.905555919908195d-6*t
13910     4         20*t370+9.369101339439189d+0*gammabb*t356-6.8780767713482
13911     5         86d-7*t18/rhob**15
13912            t377 = -1.6455307846020562d-2*gammabb*t16*t17*t376*t89
13913            t378 = -4.9365923538061685d-2*gammabb*t16*t200*t88*t89
13914            t379 = 3.115927725822337d-4*t372*t8-2.636823993592544d-5*t37
13915     1         1*t6-2.1606615760248984d-2*t14*t375+1.0756283400962623d-2
13916     2         *t12*t374-2.3486322899894632d-3*t10*t373-1.20091636266328
13917     3         24d-2*gammabb*t356
13918            t380 = 1.6455307846020562d-2*gammabb*t16*t25*t379
13919            t381 = -1.950258707676511d-1*t39*t78+t380+t378+t377+t369+t36
13920     1         8+t367+t366+t363+t362+t361+t360+t359+t358+t357
13921            t382 = t93**3
13922            t383 = 1/t33**4
13923            t384 = 4.270067917509071d-3*t12*t374*t94+1.1095117764849638d
13924     1         +0*gammabb*t78*t88*t89*t91-2.0803345809093077d-1*gammabb*
13925     2         t16*t197*t89*t91+2.034104923555767d+0*gammabb*t182*t25*t9
13926     3         1+4.1606691618186153d-1*gammabb*t16*t186*t187*t91-2.08033
13927     4         45809093077d-1*gammabb*t16*t200*t88*t89-2.034104923555767
13928     5         d+0*gammabb*t17*t182*t88*t89+5.547558882424819d-1*gammabb
13929     6         *t17*t197*t78*t89-6.934448603031025d-2*gammabb*t16*t17*t3
13930     7         76*t89+4.1606691618186153d-1*gammabb*t16*t17*t187*t197*t8
13931     8         8-2.349044621726439d-5*t205*t372*t8-5.547558882424819d-1*
13932     9         gammabb*t200*t25*t78-1.1095117764849638d+0*gammabb*t17*t1
13933     :         86*t187*t78+4.0688686731102613d-8*t20*t370*t383+6.9344486
13934     ;         03031025d-2*gammabb*t16*t25*t379-4.1606691618186153d-1*ga
13935     <         mmabb*t16*t17*t364*t365-2.3438246032741353d-1*gammabb*t34
13936     =         *t356-3.1641632144200826d+0*gammabb*t17*t25*t356
13937            t385 = 1/t31**4
13938            t386 = t147**3
13939            t387 = 1/t37**6.0d+0
13940            t388 = 1/t51**3
13941            t389 = t105**3
13942            t390 = 1/t49**4
13943            t391 = t101**3
13944            t392 = 1/t45**5
13945            t393 = 3.75d-1*t391*t392
13946            t394 = -7.5d-1*t101*t202*t216
13947            t395 = 5.0d-1*t102*t381
13948            t396 = -2.660585798433468d-1*t1*t196
13949            t397 = t396+t395+t394+t393
13950            t398 = 1/t46**4
13951            t399 = 1/t43**5
13952            t400 = 3.75d-1*t391*t399
13953            t401 = -7.5d-1*t101*t202*t223
13954            t402 = 5.0d-1*t107*t381
13955            t403 = t380+t378+t377+t369+t368+t367+t366+t363+t362+t361+t36
13956     1         0+t359+t358+t357
13957            t404 = 1/t57**3
13958            t405 = 1/t55**4
13959            t406 = 1/t54**5
13960            t407 = 3.75d-1*t391*t406
13961            t408 = -7.5d-1*t101*t202*t233
13962            t409 = 5.0d-1*t116*t381
13963            t410 = 1/t62**4
13964            t411 = t125**3
13965            t412 = 1/t60**4
13966            t413 = t409+t408+t407+t402+t401+t400
13967            t414 = 1/t64**4
13968            t415 = t114**3
13969            t416 = t66**5.0d-1
13970            t417 = 1/t69**5
13971            t418 = 1/t70**5
13972            t419 = -1.7103765847072294d-1*t1*t139*t87*t93+5.772520973386
13973     1         899d-1*t1*t171*t202*t3*t93-4.810434144489083d-1*t1*t284*t
13974     2         3*t382-1.282782438530422d-1*t1*t139*t3*t381-2.66058579843
13975     3         3468d-1*t1*t196*t30-1.924173657795633d-1*t1*t171*t204*t23
13976     4         +1.282782438530422d-1*t1*t139*t202*t23
13977            t420 = 3*t256*t93+t27*t419+t31*t381+3*t140*t202
13978            t421 = -2.812280816813114d-6*t190*t8+2.2108103907905202d-7*t
13979     1         189*t6+7.028397206309868d-1*t195*t5+1.0642057180760542d+0
13980     2         *t150*t196-9.347705929049741d-2*gammabb*t194+7.6103291731
13981     3         42687d-3*t14*t193-5.874515858075838d-4*t12*t192+5.9338845
13982     4         46635945d-5*t10*t191-2.0076645727369685d+0*t182
13983            t422 = 5.401653940062247d-3*t195*t5-2.93353183662617d-3*gamm
13984     1         abb*t194+6.774900836508068d-4*t14*t193-9.347783177467011d
13985     2         -5*t12*t192+8.143132921388737d-6*t10*t191+2.5733922057070
13986     3         335d-3*t182
13987            t423 = -3.2910615692041123d-2*t16*t88*t89*t91+8.776164184544
13988     1         3d-2*gammabb*t151*t78*t89*t91-3.2910615692041123d-2*gamma
13989     2         bb*t16*t266*t89*t91+6.582123138408225d-2*gammabb*t151*t16
13990     3         *t187*t88*t91-8.7761641845443d-2*t25*t78*t91+8.7761641845
13991     4         443d-2*t17*t78*t88*t89+8.7761641845443d-2*gammabb*t152*t7
13992     5         8*t88*t89-3.2910615692041123d-2*gammabb*t16*t267*t88*t89+
13993     6         8.7761641845443d-2*gammabb*t17*t266*t78*t89-1.64553078460
13994     7         20562d-2*gammabb*t16*t17*t421*t89-1.6455307846020562d-2*g
13995     8         ammabb*t151*t16*t200*t89-1.6455307846020562d-2*t16*t17*t1
13996     9         97*t89-1.6455307846020562d-2*gammabb*t152*t16*t197*t89-1.
13997     :         6089634338331216d-1*gammabb*t151*t17*t182*t89-1.755232836
13998     ;         90886d-1*gammabb*t151*t17*t187*t78*t88+6.582123138408225d
13999     <         -2*gammabb*t16*t17*t187*t266*t88-8.7761641845443d-2*gamma
14000     =         bb*t25*t267*t78+1.6455307846020562d-2*gammabb*t16*t25*t42
14001     >         2-9.873184707612337d-2*gammabb*t151*t16*t17*t186*t365+1.6
14002     ?         455307846020562d-2*t16*t200*t25+1.6089634338331216d-1*t17
14003     @         *t182*t25+1.6089634338331216d-1*gammabb*t152*t182*t25+3.2
14004     1         910615692041123d-2*gammabb*t151*t16*t17*t187*t197+3.29106
14005     2         15692041123d-2*t16*t17*t186*t187+3.2910615692041123d-2*ga
14006     3         mmabb*t152*t16*t186*t187
14007            t424 = -1.220913847381626d-3*gammabb*t194*t94-1.386889720606
14008     1         205d-1*t16*t88*t89*t91+3.698372588283213d-1*gammabb*t151*
14009     2         t78*t89*t91-1.386889720606205d-1*gammabb*t16*t266*t89*t91
14010     3         +2.77377944121241d-1*gammabb*t151*t16*t187*t88*t91-3.6983
14011     4         72588283213d-1*t25*t78*t91+3.698372588283213d-1*t17*t78*t
14012     5         88*t89+3.698372588283213d-1*gammabb*t152*t78*t88*t89-1.38
14013     6         6889720606205d-1*gammabb*t16*t267*t88*t89+3.6983725882832
14014     7         13d-1*gammabb*t17*t266*t78*t89-6.934448603031025d-2*gamma
14015     8         bb*t16*t17*t421*t89-6.934448603031025d-2*gammabb*t151*t16
14016     9         *t200*t89-6.934448603031025d-2*t16*t17*t197*t89-6.9344486
14017     :         03031025d-2*gammabb*t152*t16*t197*t89-6.780349745185891d-
14018     ;         1*gammabb*t151*t17*t182*t89-7.396745176566426d-1*gammabb*
14019     <         t151*t17*t187*t78*t88+2.77377944121241d-1*gammabb*t16*t17
14020     =         *t187*t266*t88-1.525825752416348d-8*t190*t383*t8-3.698372
14021     >         588283213d-1*gammabb*t25*t267*t78+6.934448603031025d-2*ga
14022     ?         mmabb*t16*t25*t422-4.1606691618186153d-1*gammabb*t151*t16
14023     @         *t17*t186*t365+5.02248129273029d-2*t182*t34+6.93444860303
14024     1         1025d-2*t16*t200*t25+6.780349745185891d-1*t17*t182*t25+6.
14025     2         780349745185891d-1*gammabb*t152*t182*t25+7.88166287552949
14026     3         9d-6*t12*t192*t205+1.386889720606205d-1*gammabb*t151*t16*
14027     4         t17*t187*t197+1.386889720606205d-1*t16*t17*t186*t187+1.38
14028     5         6889720606205d-1*gammabb*t152*t16*t186*t187
14029            t425 = 3.75d-1*t153*t215*t392
14030            t426 = -2.5d-1*t153*t202*t216
14031            t427 = -5.0d-1*t101*t216*t268
14032            t428 = 5.0d-1*t102*t423
14033            t429 = t428+t427+t426+t425
14034            t430 = 3.75d-1*t153*t215*t399
14035            t431 = -2.5d-1*t153*t202*t223
14036            t432 = -5.0d-1*t101*t223*t268
14037            t433 = 5.0d-1*t107*t423
14038            t434 = 3.75d-1*t153*t215*t406
14039            t435 = -2.5d-1*t153*t202*t233
14040            t436 = -5.0d-1*t101*t233*t268
14041            t437 = 5.0d-1*t116*t423
14042            t438 = t437+t436+t435+t434+t433+t432+t431+t430
14043            t439 = 1/t29**9
14044            t440 = 3.848347315591266d-1*t1*t171*t268*t3*t93-1.2827824385
14045     1         30422d-1*t1*t153*t171*t23*t93-5.701255282357431d-2*t1*t13
14046     2         9*t153*t87-1.282782438530422d-1*t1*t139*t3*t423-4.8104341
14047     3         44489083d-1*t1*t153*t204*t284*t3+1.924173657795633d-1*t1*
14048     4         t153*t171*t202*t3+8.551882923536147d-2*t1*t139*t23*t268
14049            t441 = 2*t289*t93+t27*t440+t31*t423-1.282782438530422d-1*t1*
14050     1         t139*t153*t202*t3+2*t140*t268+t153*t256
14051            t442 = 2.2804408244486873d-1*t297*t87-7.028397206309868d-2*t
14052     1         150*t86+1.4759535677446958d-2*t85-1.488977446919221d-3*t5
14053     2         *t84+1.3054479684612974d-4*gammabb*t83-1.4356172290248254
14054     3         d-5*t14*t82+7.231579243233723d-7*t12*t81-5.95218182135909
14055     4         4d-8*t10*t80
14056            t443 = -5.401653940062245d-4*t150*t86+4.631892373620269d-4*t
14057     1         85-1.3255240767081d-4*t5*t84+2.0772851505482245d-5*gammab
14058     2         b*t83-1.9701128035617912d-6*t14*t82
14059            t444 = -1.6455307846020562d-2*gammabb*t16*t298*t89*t91-3.291
14060     1         0615692041123d-2*t151*t16*t89*t91+3.2910615692041123d-2*g
14061     2         ammabb*t16*t187*t296*t91-1.6455307846020562d-2*gammabb*t1
14062     3         6*t299*t88*t89-3.2910615692041123d-2*t152*t16*t88*t89+4.3
14063     4         8808209227215d-2*gammabb*t17*t298*t78*t89+8.7761641845443
14064     5         d-2*t151*t17*t78*t89+8.7761641845443d-2*gammabb*t151*t152
14065     6         *t78*t89-1.6455307846020562d-2*gammabb*t16*t17*t442*t89-3
14066     7         .2910615692041123d-2*gammabb*t151*t16*t267*t89-3.29106156
14067     8         92041123d-2*t16*t17*t266*t89-3.2910615692041123d-2*gammab
14068     9         b*t152*t16*t266*t89-9.873184707612337d-2*gammabb*t16*t17*
14069     :         t296*t365*t88+3.2910615692041123d-2*gammabb*t16*t17*t187*
14070     ;         t298*t88+6.582123138408225d-2*t151*t16*t17*t187*t88+6.582
14071     <         123138408225d-2*gammabb*t151*t152*t16*t187*t88-4.38808209
14072     =         227215d-2*gammabb*t25*t299*t78-8.7761641845443d-2*gammabb
14073     >         *t17*t187*t296*t78-8.7761641845443d-2*t152*t25*t78+1.6455
14074     ?         307846020562d-2*gammabb*t16*t25*t443+3.2910615692041123d-
14075     @         2*t16*t25*t267+6.582123138408225d-2*gammabb*t151*t16*t17*
14076     1         t187*t266
14077            t445 = 2.2539947951660788d-4*t85*t94-6.934448603031025d-2*ga
14078     1         mmabb*t16*t298*t89*t91-1.386889720606205d-1*t151*t16*t89*
14079     2         t91+1.386889720606205d-1*gammabb*t16*t187*t296*t91-6.9344
14080     3         48603031025d-2*gammabb*t16*t299*t88*t89-1.386889720606205
14081     4         d-1*t152*t16*t88*t89+1.8491862941416065d-1*gammabb*t17*t2
14082     5         98*t78*t89+3.698372588283213d-1*t151*t17*t78*t89+3.698372
14083     6         588283213d-1*gammabb*t151*t152*t78*t89-6.934448603031025d
14084     7         -2*gammabb*t16*t17*t442*t89-1.386889720606205d-1*gammabb*
14085     8         t151*t16*t267*t89-1.386889720606205d-1*t16*t17*t266*t89-1
14086     9         .386889720606205d-1*gammabb*t152*t16*t266*t89-4.160669161
14087     :         8186153d-1*gammabb*t16*t17*t296*t365*t88+1.38688972060620
14088     ;         5d-1*gammabb*t16*t17*t187*t298*t88+2.77377944121241d-1*t1
14089     <         51*t16*t17*t187*t88+2.77377944121241d-1*gammabb*t151*t152
14090     =         *t16*t187*t88-2.318136139861618d-6*gammabb*t205*t83+5.721
14091     >         846571561304d-9*t12*t383*t81-1.8491862941416065d-1*gammab
14092     ?         b*t25*t299*t78-3.698372588283213d-1*gammabb*t17*t187*t296
14093     @         *t78-3.698372588283213d-1*t152*t25*t78+6.934448603031025d
14094     1         -2*gammabb*t16*t25*t443+1.386889720606205d-1*t16*t25*t267
14095     2         +2.77377944121241d-1*gammabb*t151*t16*t17*t187*t266
14096            t446 = 3.75d-1*t101*t294*t392
14097            t447 = -5.0d-1*t153*t216*t268
14098            t448 = -2.5d-1*t101*t216*t300
14099            t449 = 5.0d-1*t102*t444
14100            t450 = t449+t448+t447+t446
14101            t451 = 3.75d-1*t101*t294*t399
14102            t452 = -5.0d-1*t153*t223*t268
14103            t453 = -2.5d-1*t101*t223*t300
14104            t454 = 5.0d-1*t107*t444
14105            t455 = 3.75d-1*t101*t294*t406
14106            t456 = -5.0d-1*t153*t233*t268
14107            t457 = -2.5d-1*t101*t233*t300
14108            t458 = 5.0d-1*t116*t444
14109            t459 = t458+t457+t456+t455+t454+t453+t452+t451
14110            t460 = 1/t27**5
14111            t461 = 1.924173657795633d-1*t1*t171*t3*t300*t93-4.8104341444
14112     1         89083d-1*t1*t284*t294*t3*t93-1.282782438530422d-1*t1*t139
14113     2         *t3*t444+4.2759414617680735d-2*t1*t139*t23*t300+3.8483473
14114     3         15591266d-1*t1*t153*t171*t268*t3-6.41391219265211d-2*t1*t
14115     4         171*t23*t294
14116            t462 = -1.282782438530422d-1*t1*t139*t3*t300*t93+1.924173657
14117     1         795633d-1*t1*t171*t294*t3*t93+t27*t461+t31*t444+t140*t300
14118     2         -2.565564877060844d-1*t1*t139*t153*t268*t3+2*t153*t289
14119            t463 = t153**3
14120            t464 = t151**3
14121            t465 = -1.6318099605766218d-5*t9+2.3072419752184684d-6*t5*t7
14122     1         -8.785496507887335d-3*t15*t297+2.5654959275047734d-1*t23/
14123     2         t10-1.3559211081063233d-7*gammabb*t21+1.2400378794498113d
14124     3         -8*t14*t19+1.1167330851894158d-4*t11*t150
14125            t466 = -2.5966064381852805d-6*t9+3.1662527200100216d-7*t5*t7
14126     1         -6.752067425077807d-5*t15*t297+9.941430575310749d-6*t11*t
14127     2         150
14128            t467 = -1.6455307846020562d-2*gammabb*t16*t17*t465*t89-4.936
14129     1         5923538061685d-2*gammabb*t151*t16*t299*t89-4.936592353806
14130     2         1685d-2*t16*t17*t298*t89-4.9365923538061685d-2*gammabb*t1
14131     3         52*t16*t298*t89-9.873184707612337d-2*t151*t152*t16*t89+1.
14132     4         6455307846020562d-2*gammabb*t16*t25*t466-9.87318470761233
14133     5         7d-2*gammabb*t16*t17*t365*t464+4.9365923538061685d-2*t16*
14134     6         t25*t299+9.873184707612337d-2*gammabb*t151*t16*t17*t187*t
14135     7         298+9.873184707612337d-2*t16*t17*t187*t296+9.873184707612
14136     8         337d-2*gammabb*t152*t16*t187*t296
14137            t468 = 5.21580631468864d-7*t205*t9-6.934448603031025d-2*gamm
14138     1         abb*t16*t17*t465*t89-2.0803345809093077d-1*gammabb*t151*t
14139     2         16*t299*t89-2.0803345809093077d-1*t16*t17*t298*t89-2.0803
14140     3         345809093077d-1*gammabb*t152*t16*t298*t89-4.1606691618186
14141     4         153d-1*t151*t152*t16*t89+6.934448603031025d-2*gammabb*t16
14142     5         *t25*t466-4.1606691618186153d-1*gammabb*t16*t17*t365*t464
14143     6         -2.1456924643354894d-9*gammabb*t21*t383+2.080334580909307
14144     7         7d-1*t16*t25*t299+4.1606691618186153d-1*gammabb*t151*t16*
14145     8         t17*t187*t298+4.1606691618186153d-1*t16*t17*t187*t296+4.1
14146     9         606691618186153d-1*gammabb*t152*t16*t187*t296
14147            t469 = 1/t44**2
14148            t470 = 3.75d-1*t399*t463
14149            t471 = -7.5d-1*t153*t223*t300
14150            t472 = 5.0d-1*t107*t467
14151            t473 = 3.75d-1*t392*t463
14152            t474 = -7.5d-1*t153*t216*t300
14153            t475 = 5.0d-1*t102*t467
14154            t476 = t169**3
14155            t477 = 3.75d-1*t406*t463
14156            t478 = -7.5d-1*t153*t233*t300
14157            t479 = 5.0d-1*t116*t467
14158            t480 = t479+t478+t477+t472+t471+t470
14159            t481 = t31*t467-1.282782438530422d-1*t1*t3*t30*t467+9.620868
14160     1         288978166d-2*t1*t171*t3*t463-1.924173657795633d-1*t1*t139
14161     2         *t153*t3*t300
14162            fnc(iq) = fnc(iq)-9.305257363491d-1*t22*t76*wght
14163            Amat(iq,D1_RB) = -1.2407009817987999d+0*t2*t76*wght-9.305257
14164     1         363491d-1*t149*t22*wght+Amat(iq,D1_RB)
14165            Cmat(iq,D1_GBB) = Cmat(iq,D1_GBB)-9.305257363491d-1*t22*(t18
14166     1         1*t73+t16*t163*t25+t175+t173+t172+t170+t168+t164+t162+t15
14167     2         7+t156+t154)*wght
14168            Amat2(iq,D2_RB_RB) = -4.135669939329333d-1*t40*t76*wght-9.30
14169     1         5257363491d-1*t22*t260*wght-2.4814019635975998d+0*t149*t2
14170     2         *wght+Amat2(iq,D2_RB_RB)
14171            Cmat2(iq,D2_RB_GBB) = -1.2407009817987999d+0*t2*(-8.88888888
14172     1         8888888d-1*t264*t72*t73+t265+t263+t262+t261+t175+t173+t17
14173     2         2+t170+t168+t164+t162+t157+t156+t154)*wght-9.305257363491
14174     3         d-1*t22*t293*wght+Cmat2(iq,D2_RB_GBB)
14175            Cmat2(iq,D2_GBB_GBB) = Cmat2(iq,D2_GBB_GBB)-9.305257363491d-
14176     1         1*t22*(t16*t320*t89+t352*t73+6.764482379964267d-3*t1*t139
14177     2         *t153*t174*t3*t35*t73+t139*t3*t340*t38+t148*t353+t339+t33
14178     3         8+t337+t336+t121*t334+t330+t323+t321+t112*t16*t25*t319+t1
14179     4         6*t25*t310+t309+t307+t306+t305+t303+t301+t295)*wght
14180            Amat3(iq,D3_RB_RB_RB) = -1.2407009817987999d+0*t40*(t99+t98+
14181     1         t97+t96-4.727288888888889d-2*t101*t32*t77+2.6666666666666
14182     2         666d+0*t148*t355*t72*t75-8.888888888888888d-1*(4.93659235
14183     3         38061685d-2*t1*t3*(t144-5.0d-1*t1*t101*t139*t3)*t30-1.443
14184     4         1302433467247d-1*t1*t101*t139*t3+t143)*t72*t73-1.05465777
14185     5         77777776d-1*t35*t355*t36*t73+5.273288888888887d-2*(t141-6
14186     6         .41391219265211d-2*t1*t101*t139*t3)*t35*t38-4.72728888888
14187     7         8889d-2*t137*t28*t354+t136+t129+t122+t115+t113)*wght-9.30
14188     8         5257363491d-1*t22*(-8.888888888888888d-1*t73*t75*(1.42378
14189     9         8d-1*t228*t95-2.4d+0*t68*(6.41391219265211d-2*t132*(16*ga
14190     :         mmabb*t78*t88*t89*t91-3*gammabb*t16*t197*t89*t91+2.933333
14191     ;         3333333333d+1*gammabb*t182*t25*t91+6*gammabb*t16*t186*t18
14192     <         7*t91-3*gammabb*t16*t200*t88*t89-2.9333333333333333d+1*ga
14193     =         mmabb*t17*t182*t88*t89+8*gammabb*t17*t197*t78*t89-gammabb
14194     >         *t16*t17*t376*t89+6*gammabb*t16*t17*t187*t197*t88-8*gamma
14195     ?         bb*t200*t25*t78-16*gammabb*t17*t186*t187*t78+gammabb*t16*
14196     @         t25*t379-6*gammabb*t16*t17*t364*t365-4.5629629629629626d+
14197     1         1*gammabb*t17*t25*t356)-3.75d-1*t415*t418+4.8104341444890
14198     2         83d-2*t133**3*t417-5.0d-1*t131*t403-9.620868288978166d-2*
14199     3         t133*t249*t252+7.5d-1*t114*t228*t251)-3.15d+1*t415*t416*t
14200     4         71-8.400000000000001d+0*t130*t403*t71-6.3d+1*t114*t228*t2
14201     5         48*t71-2.7259596d+0*t403*t67+5.672746666666666d-2*t403*t6
14202     6         6+4.7459599999999996d-2*t384*t66-1.6355757600000004d+1*t1
14203     7         14*t228*t66-1.8610765434507923d+1*t415*t416-5.4519192d+0*
14204     8         t415+4.7459599999999996d-2*t35*t403-4.9628707825354457d+0
14205     9         *t130*t403-2.52d+1*t114*t130*t253-6.3d+1*t134*t247*t248-3
14206     :         .7221530869015845d+1*t114*t228*t248-2.52d+1*t130*t134*t22
14207     ;         8+1.7018239999999996d-1*t114*t228+1.423788d-1*t114*t206)-
14208     <         3.1639733333333325d-1*t259*t36*t73*t95-6.327946666666665d
14209     =         -1*t142*t147*t73*t95+1.5819866666666663d-1*t255*t38*t95+9
14210     >         .491919999999998d-1*t148*t209*t36*t95-8.888888888888888d-
14211     ?         1*t72*t73*(4.9365923538061685d-2*t1*t3*t30*(-6.6666666666
14212     @         66666d-1*t1*t139*t87*t93+2.25d+0*t1*t171*t202*t3*t93-1.87
14213     1         5d+0*t1*t284*t3*t382-5.0d-1*t1*t139*t3*t381-1.03703703703
14214     2         7037d+0*t1*t196*t30-7.5d-1*t1*t171*t204*t23+5.0d-1*t1*t13
14215     3         9*t202*t23)-1.9241736577956325d-1*t1*t139*t87*t93-2.46829
14216     4         61769030842d-2*t1*t139*t257*t3*t93+6.494086095060261d-1*t
14217     5         1*t171*t202*t3*t93-5.411738412550218d-1*t1*t284*t3*t382-1
14218     6         .4431302433467247d-1*t1*t139*t3*t381-1.6455307846020562d-
14219     7         2*t1*t23*t257*t30-2.993159023237651d-1*t1*t196*t30+9.8731
14220     8         84707612337d-2*t145*t257-2.164695365020087d-1*t1*t171*t20
14221     9         4*t23+1.4431302433467247d-1*t1*t139*t202*t23)+5.273288888
14222     :         888887d-2*t35*t38*(-8.551882923536147d-2*t1*t139*t87*t93+
14223     ;         2.8862604866934494d-1*t1*t171*t202*t3*t93-2.4052170722445
14224     <         415d-1*t1*t284*t3*t382-6.41391219265211d-2*t1*t139*t3*t38
14225     =         1-1.330292899216734d-1*t1*t196*t30-9.620868288978166d-2*t
14226     >         1*t171*t204*t23+6.41391219265211d-2*t1*t139*t202*t23)+1.4
14227     ?         181866666666668d-1*t137*t256*t77*t93-2.8363733333333335d-
14228     @         1*t207*t208*t77*t93+2.8363733333333335d-1*t202*t203*t32*t
14229     1         93+7.57211d-1*(2.63284925536329d-1*gammabb*t61*t65*t78*t8
14230     2         8*t89*t91+9.873184707612337d-2*gammabb*t125*t126*t16*t65*
14231     3         t88*t89*t91+9.873184707612337d-2*gammabb*t127*t128*t16*t6
14232     4         1*t88*t89*t91-4.9365923538061685d-2*gammabb*t16*t197*t61*
14233     5         t65*t89*t91+2.63284925536329d-1*gammabb*t125*t126*t25*t65
14234     6         *t78*t91+2.63284925536329d-1*gammabb*t127*t128*t25*t61*t7
14235     7         8*t91+4.8268903014993647d-1*gammabb*t182*t25*t61*t65*t91+
14236     8         9.873184707612337d-2*gammabb*t16*t186*t187*t61*t65*t91-4.
14237     9         9365923538061685d-2*gammabb*t126*t16*t243*t25*t65*t91+9.8
14238     :         73184707612337d-2*gammabb*t16*t241*t242*t25*t65*t91-4.936
14239     ;         5923538061685d-2*gammabb*t128*t16*t246*t25*t61*t91+9.8731
14240     <         84707612337d-2*gammabb*t16*t244*t245*t25*t61*t91+9.873184
14241     =         707612337d-2*gammabb*t125*t126*t127*t128*t16*t25*t91-2.63
14242     >         284925536329d-1*gammabb*t125*t126*t17*t65*t78*t88*t89-2.6
14243     ?         3284925536329d-1*gammabb*t127*t128*t17*t61*t78*t88*t89-4.
14244     @         9365923538061685d-2*gammabb*t16*t200*t61*t65*t88*t89-4.82
14245     1         68903014993647d-1*gammabb*t17*t182*t61*t65*t88*t89+4.9365
14246     2         923538061685d-2*gammabb*t126*t16*t17*t243*t65*t88*t89-9.8
14247     3         73184707612337d-2*gammabb*t16*t17*t241*t242*t65*t88*t89+4
14248     4         .9365923538061685d-2*gammabb*t128*t16*t17*t246*t61*t88*t8
14249     5         9-9.873184707612337d-2*gammabb*t16*t17*t244*t245*t61*t88*
14250     6         t89-9.873184707612337d-2*gammabb*t125*t126*t127*t128*t16*
14251     7         t17*t88*t89+1.316424627681645d-1*gammabb*t17*t197*t61*t65
14252     8         *t78*t89-1.6455307846020562d-2*gammabb*t16*t17*t376*t61*t
14253     9         65*t89+4.9365923538061685d-2*gammabb*t125*t126*t16*t17*t1
14254     :         97*t65*t89+4.9365923538061685d-2*gammabb*t127*t128*t16*t1
14255     ;         7*t197*t61*t89+9.873184707612337d-2*gammabb*t16*t17*t187*
14256     <         t197*t61*t65*t88-1.316424627681645d-1*gammabb*t200*t25*t6
14257     =         1*t65*t78-2.63284925536329d-1*gammabb*t17*t186*t187*t61*t
14258     >         65*t78+1.316424627681645d-1*gammabb*t126*t17*t243*t25*t65
14259     ?         *t78-2.63284925536329d-1*gammabb*t17*t241*t242*t25*t65*t7
14260     @         8+1.316424627681645d-1*gammabb*t128*t17*t246*t25*t61*t78-
14261     1         2.63284925536329d-1*gammabb*t17*t244*t245*t25*t61*t78-2.6
14262     2         3284925536329d-1*gammabb*t125*t126*t127*t128*t17*t25*t78+
14263     3         1.6455307846020562d-2*gammabb*t16*t25*t379*t61*t65-9.8731
14264     4         84707612337d-2*gammabb*t16*t17*t364*t365*t61*t65-7.508496
14265     5         024554567d-1*gammabb*t17*t25*t356*t61*t65-1.6455307846020
14266     6         562d-2*gammabb*t126*t16*t17*t25*t413*t65-9.87318470761233
14267     7         7d-2*gammabb*t16*t17*t25*t411*t412*t65+9.873184707612337d
14268     8         -2*gammabb*t125*t16*t17*t242*t243*t25*t65-4.9365923538061
14269     9         685d-2*gammabb*t125*t126*t16*t200*t25*t65-4.8268903014993
14270     :         647d-1*gammabb*t125*t126*t17*t182*t25*t65-9.8731847076123
14271     ;         37d-2*gammabb*t125*t126*t16*t17*t186*t187*t65+t403*t61*t6
14272     <         3-t126*t413*t59*t63-6*t411*t412*t59*t63+6*t125*t242*t243*
14273     =         t59*t63-3*t114*t126*t243*t63+6*t114*t241*t242*t63-3*t125*
14274     >         t126*t228*t63-6*t123**3*t410*t59*t61-t124*(t409+t408+t407
14275     ?         +t396)*t59*t61+6*t123*t239*t240*t59*t61-9.873184707612337
14276     @         d-2*gammabb*t127**3*t16*t17*t25*t414*t61-1.64553078460205
14277     1         62d-2*gammabb*t128*t16*t17*t25*(t402+t401+t400+t396)*t61+
14278     2         9.873184707612337d-2*gammabb*t127*t16*t17*t245*t246*t25*t
14279     3         61-4.9365923538061685d-2*gammabb*t127*t128*t16*t200*t25*t
14280     4         61-4.8268903014993647d-1*gammabb*t127*t128*t17*t182*t25*t
14281     5         61-3*t114*t124*t240*t61+6*t114*t238*t239*t61-3*t123*t124*
14282     6         t228*t61-9.873184707612337d-2*gammabb*t127*t128*t16*t17*t
14283     7         186*t187*t61+3*t123*t124*t126*t243*t59-6*t123*t124*t241*t
14284     8         242*t59+3*t124*t125*t126*t240*t59-6*t125*t126*t238*t239*t
14285     9         59+4.9365923538061685d-2*gammabb*t125*t126*t128*t16*t17*t
14286     :         246*t25-9.873184707612337d-2*gammabb*t125*t126*t16*t17*t2
14287     ;         44*t245*t25+4.9365923538061685d-2*gammabb*t126*t127*t128*
14288     <         t16*t17*t243*t25-9.873184707612337d-2*gammabb*t127*t128*t
14289     =         16*t17*t241*t242*t25+6*t114*t123*t124*t125*t126)+5.265698
14290     >         51072658d-1*gammabb*t52*t78*t88*t89*t91-1.974636941522467
14291     ?         4d-1*gammabb*t111*t112*t16*t88*t89*t91-9.873184707612337d
14292     @         -2*gammabb*t16*t197*t52*t89*t91-5.26569851072658d-1*gamma
14293     1         bb*t111*t112*t25*t78*t91+9.653780602998729d-1*gammabb*t18
14294     2         2*t25*t52*t91+1.9746369415224674d-1*gammabb*t16*t186*t187
14295     3         *t52*t91+9.873184707612337d-2*gammabb*t112*t16*t227*t25*t
14296     4         91-9.873184707612337d-2*gammabb*t16*t211*t212*t25*t91+5.2
14297     5         6569851072658d-1*gammabb*t111*t112*t17*t78*t88*t89-9.8731
14298     6         84707612337d-2*gammabb*t16*t200*t52*t88*t89-9.65378060299
14299     7         8729d-1*gammabb*t17*t182*t52*t88*t89-9.873184707612337d-2
14300     8         *gammabb*t112*t16*t17*t227*t88*t89+9.873184707612337d-2*g
14301     9         ammabb*t16*t17*t211*t212*t88*t89+2.63284925536329d-1*gamm
14302     :         abb*t17*t197*t52*t78*t89-3.2910615692041123d-2*gammabb*t1
14303     ;         6*t17*t376*t52*t89-9.873184707612337d-2*gammabb*t111*t112
14304     <         *t16*t17*t197*t89+1.9746369415224674d-1*gammabb*t16*t17*t
14305     =         187*t197*t52*t88-2.63284925536329d-1*gammabb*t200*t25*t52
14306     >         *t78-5.26569851072658d-1*gammabb*t17*t186*t187*t52*t78-2.
14307     ?         63284925536329d-1*gammabb*t112*t17*t227*t25*t78+2.6328492
14308     @         5536329d-1*gammabb*t17*t211*t212*t25*t78-4.72728888888888
14309     1         9d-2*t32*t381*t77+1.4181866666666668d-1*t137*t140*t202*t7
14310     2         7+2.6666666666666666d+0*t148*t420*t72*t75+5.3333333333333
14311     3         33d+1*t386*t387*t72*t75-3.2d+1*t147*t210*t259*t72*t75+8.0
14312     4         d+0*t135*t148*t259*t75+8.0d+0*t147*t148*t254*t75-3.2d+1*t
14313     5         135*t209*t210*t75-1.0546577777777776d-1*t35*t36*t420*t73-
14314     6         3.1639733333333325d-1*t147*t206*t36*t73-3.163973333333332
14315     7         5d-1*t142*t259*t35*t73-3.1639733333333325d-1*t147*t255*t3
14316     8         5*t73-2.6666666666666666d+0*t135*t258*t73-2.6666666666666
14317     9         666d+0*t146*t254*t73+8.0d+0*t146*t148*t259*t72+8.0d+0*t14
14318     :         7*t148*t258*t72-3.2d+1*t146*t209*t210*t72-2.0d+0*t121*(-1
14319     ;         .475609999999999d-1*t106*t397*t56-8.853659999999993d-1*t3
14320     <         89*t390*t56+8.853659999999993d-1*t105*t214*t220*t56-1.475
14321     =         609999999999d-1*t119*(t409+t408+t407+t395+t394+t393)*t50-
14322     >         8.853659999999993d-1*t118**3*t405*t50+8.853659999999993d-
14323     ?         1*t118*t232*t236*t50+4.4268299999999966d-1*t105*t106*t119
14324     @         *t236-8.853659999999993d-1*t105*t106*t231*t232+4.42682999
14325     1         99999966d-1*t106*t118*t119*t220-8.853659999999993d-1*t118
14326     2         *t119*t213*t214)*t59-4.0d+0*t120**3*t404*t59+6.0d+0*t120*
14327     3         t230*t237*t59-2.0d+0*t403*t58+3.2910615692041123d-2*gamma
14328     4         bb*t16*t25*t379*t52-1.9746369415224674d-1*gammabb*t16*t17
14329     5         *t364*t365*t52-1.5016992049109135d+0*gammabb*t17*t25*t356
14330     6         *t52+3.2910615692041123d-2*gammabb*t112*t16*t17*t25*(6.09
14331     7         65d-1*t110*(t402+t401+t400+t395+t394+t393)*t50+3.6579d+0*
14332     8         t109**3*t398*t50-3.6579d+0*t109*t222*t226*t50+6.0965d-1*t
14333     9         106*t397*t47+3.6579d+0*t389*t390*t47-3.6579d+0*t105*t214*
14334     :         t220*t47-1.82895d+0*t105*t106*t110*t226+3.6579d+0*t105*t1
14335     ;         06*t221*t222-1.82895d+0*t106*t109*t110*t220+3.6579d+0*t10
14336     <         9*t110*t213*t214)-4.727288888888889d-2*t137*t28*t419+6.58
14337     =         2123138408225d-2*gammabb*t111**3*t16*t17*t25*t388-1.26558
14338     >         9333333333d+0*t210*t35*t36*t386-2.8363733333333335d-1*t14
14339     ?         0**3*t28*t385+5.273288888888887d-2*t36*t38*t384-2.8363733
14340     @         333333335d-1*t32*t335*t382+1.5819866666666663d-1*t142*t20
14341     1         6*t38+9.491919999999998d-1*t147*t148*t259*t35*t36+9.49191
14342     2         9999999998d-1*t142*t148*t209*t35+2.8363733333333335d-1*t1
14343     3         40*t207*t256*t28-9.873184707612337d-2*gammabb*t111*t16*t1
14344     4         7*t212*t227*t25+9.873184707612337d-2*gammabb*t111*t112*t1
14345     5         6*t200*t25+9.653780602998729d-1*gammabb*t111*t112*t17*t18
14346     6         2*t25-6.0d+0*t114*t121*t237+6.0d+0*t114*t229*t230-6.0d+0*
14347     7         t120*t121*t228-2.8363733333333335d-1*t137*t140*t203*t204+
14348     8         1.9746369415224674d-1*gammabb*t111*t112*t16*t17*t186*t187
14349     9         +1.6d+1*t135*t146*t147*t148)*wght+2.757113292886222d-1*t1
14350     :         00*t76*wght-3.7221029453964d+0*t2*t260*wght+Amat3(iq,D3_R
14351     ;         B_RB_RB)
14352            Cmat3(iq,D3_RB_RB_GBB) = -9.305257363491d-1*t22*(-8.88888888
14353     1         8888888d-1*t73*t75*(9.491919999999999d-2*t268*t95-2.4d+0*
14354     2         t68*(6.41391219265211d-2*t132*(-2*t16*t88*t89*t91+5.33333
14355     3         3333333333d+0*gammabb*t151*t78*t89*t91-2*gammabb*t16*t266
14356     4         *t89*t91+4*gammabb*t151*t16*t187*t88*t91-5.33333333333333
14357     5         3d+0*t25*t78*t91+5.333333333333333d+0*t17*t78*t88*t89+5.3
14358     6         33333333333333d+0*gammabb*t152*t78*t88*t89-2*gammabb*t16*
14359     7         t267*t88*t89+5.333333333333333d+0*gammabb*t17*t266*t78*t8
14360     8         9-gammabb*t16*t17*t421*t89-gammabb*t151*t16*t200*t89-t16*
14361     9         t17*t197*t89-gammabb*t152*t16*t197*t89-9.777777777777779d
14362     :         +0*gammabb*t151*t17*t182*t89-1.0666666666666666d+1*gammab
14363     ;         b*t151*t17*t187*t78*t88+4*gammabb*t16*t17*t187*t266*t88-5
14364     <         .333333333333333d+0*gammabb*t25*t267*t78+gammabb*t16*t25*
14365     =         t422-6*gammabb*t151*t16*t17*t186*t365+t16*t200*t25+9.7777
14366     >         77777777779d+0*t17*t182*t25+9.777777777777779d+0*gammabb*
14367     ?         t152*t182*t25+2*gammabb*t151*t16*t17*t187*t197+2*t16*t17*
14368     @         t186*t187+2*gammabb*t152*t16*t186*t187)-5.0d-1*t131*t423-
14369     1         3.75d-1*t153*t247*t418+4.810434144489083d-2*t178*t250*t41
14370     2         7-6.41391219265211d-2*t133*t249*t285+5.0d-1*t114*t251*t26
14371     3         8-3.206956096326055d-2*t178*t249*t252+2.5d-1*t153*t228*t2
14372     4         51)-8.400000000000001d+0*t130*t423*t71-3.15d+1*t153*t247*
14373     5         t416*t71-4.2d+1*t114*t248*t268*t71-2.1d+1*t153*t228*t248*
14374     6         t71-2.7259596d+0*t423*t67+4.7459599999999996d-2*t424*t66+
14375     7         5.672746666666666d-2*t423*t66-1.0903838400000002d+1*t114*
14376     8         t268*t66-5.4519192d+0*t153*t228*t66+4.7459599999999996d-2
14377     9         *t35*t423-4.9628707825354457d+0*t130*t423-1.8610765434507
14378     :         923d+1*t153*t247*t416-1.68d+1*t114*t130*t286+9.4919199999
14379     ;         99999d-2*t114*t269-2.481435391267723d+1*t114*t248*t268-1.
14380     <         68d+1*t130*t134*t268+1.1345493333333331d-1*t114*t268-8.40
14381     =         0000000000001d+0*t130*t153*t253-2.1d+1*t179*t247*t248-1.2
14382     >         407176956338616d+1*t153*t228*t248-4.2d+1*t114*t134*t153*t
14383     ?         248-5.4519192d+0*t153*t247-8.400000000000001d+0*t130*t179
14384     @         *t228+4.7459599999999996d-2*t155*t228+5.672746666666666d-
14385     1         2*t153*t228+4.7459599999999996d-2*t153*t206)-2.1093155555
14386     2         55555d-1*t292*t36*t73*t95+1.3528964759928536d-2*t1*t139*t
14387     3         147*t153*t3*t73*t95-2.109315555555555d-1*t142*t174*t73*t9
14388     4         5+1.0546577777777776d-1*t288*t38*t95+6.327946666666665d-1
14389     5         *t147*t148*t174*t36*t95-8.888888888888888d-1*t72*t73*(4.9
14390     6         365923538061685d-2*t1*t3*t30*(1.5d+0*t1*t171*t268*t3*t93-
14391     7         5.0d-1*t1*t153*t171*t23*t93-2.222222222222222d-1*t1*t139*
14392     8         t153*t87-5.0d-1*t1*t139*t3*t423-1.875d+0*t1*t153*t204*t28
14393     9         4*t3+7.5d-1*t1*t153*t171*t202*t3+3.333333333333333d-1*t1*
14394     :         t139*t23*t268)+4.329390730040174d-1*t1*t171*t268*t3*t93-1
14395     ;         .4431302433467247d-1*t1*t153*t171*t23*t93-6.4139121926521
14396     <         09d-2*t1*t139*t153*t87-1.4431302433467247d-1*t1*t139*t3*t
14397     =         423-5.411738412550218d-1*t1*t153*t204*t284*t3-2.468296176
14398     >         9030842d-2*t1*t139*t153*t257*t3+2.164695365020087d-1*t1*t
14399     ?         153*t171*t202*t3+9.873184707612337d-2*t145*t290+9.6208682
14400     @         88978164d-2*t1*t139*t23*t268)+5.273288888888887d-2*t35*t3
14401     1         8*(1.924173657795633d-1*t1*t171*t268*t3*t93-6.41391219265
14402     2         211d-2*t1*t153*t171*t23*t93-2.8506276411787157d-2*t1*t139
14403     3         *t153*t87-6.41391219265211d-2*t1*t139*t3*t423-2.405217072
14404     4         2445415d-1*t1*t153*t204*t284*t3+9.620868288978166d-2*t1*t
14405     5         153*t171*t202*t3+4.2759414617680735d-2*t1*t139*t23*t268)+
14406     6         9.454577777777778d-2*t137*t289*t77*t93+1.8909155555555557
14407     7         d-1*t203*t268*t32*t93+2.4256332674106634d-2*t1*t140*t153*
14408     8         t207*t284*t3*t93-1.8909155555555557d-1*t137*t140*t153*t20
14409     9         3*t93+7.57211d-1*(-3.2910615692041123d-2*t16*t61*t65*t88*
14410     :         t89*t91+3.2910615692041123d-2*gammabb*t126*t16*t169*t65*t
14411     ;         88*t89*t91+1.6455307846020562d-2*gammabb*t107*t128*t153*t
14412     <         16*t61*t88*t89*t91+8.7761641845443d-2*gammabb*t151*t61*t6
14413     =         5*t78*t89*t91-3.2910615692041123d-2*gammabb*t16*t266*t61*
14414     >         t65*t89*t91+3.2910615692041123d-2*gammabb*t125*t126*t151*
14415     ?         t16*t65*t89*t91+3.2910615692041123d-2*gammabb*t127*t128*t
14416     @         151*t16*t61*t89*t91+6.582123138408225d-2*gammabb*t151*t16
14417     1         *t187*t61*t65*t88*t91-8.7761641845443d-2*t25*t61*t65*t78*
14418     2         t91+8.7761641845443d-2*gammabb*t126*t169*t25*t65*t78*t91+
14419     3         4.38808209227215d-2*gammabb*t107*t128*t153*t25*t61*t78*t9
14420     4         1-3.2910615692041123d-2*gammabb*t126*t16*t25*t282*t65*t91
14421     5         +6.582123138408225d-2*gammabb*t125*t16*t169*t242*t25*t65*
14422     6         t91-3.2910615692041123d-2*t125*t126*t16*t25*t65*t91-3.291
14423     7         0615692041123d-2*gammabb*t128*t16*t25*t283*t61*t91+3.2910
14424     8         615692041123d-2*gammabb*t107*t127*t153*t16*t245*t25*t61*t
14425     9         91-3.2910615692041123d-2*t127*t128*t16*t25*t61*t91+3.2910
14426     :         615692041123d-2*gammabb*t126*t127*t128*t16*t169*t25*t91+1
14427     ;         .6455307846020562d-2*gammabb*t107*t125*t126*t128*t153*t16
14428     <         *t25*t91+8.7761641845443d-2*t17*t61*t65*t78*t88*t89+8.776
14429     =         1641845443d-2*gammabb*t152*t61*t65*t78*t88*t89-8.77616418
14430     >         45443d-2*gammabb*t126*t169*t17*t65*t78*t88*t89-4.38808209
14431     ?         227215d-2*gammabb*t107*t128*t153*t17*t61*t78*t88*t89-3.29
14432     @         10615692041123d-2*gammabb*t16*t267*t61*t65*t88*t89+3.2910
14433     1         615692041123d-2*gammabb*t126*t16*t17*t282*t65*t88*t89-6.5
14434     2         82123138408225d-2*gammabb*t125*t16*t169*t17*t242*t65*t88*
14435     3         t89+3.2910615692041123d-2*t125*t126*t16*t17*t65*t88*t89+3
14436     4         .2910615692041123d-2*gammabb*t125*t126*t152*t16*t65*t88*t
14437     5         89+3.2910615692041123d-2*gammabb*t128*t16*t17*t283*t61*t8
14438     6         8*t89-3.2910615692041123d-2*gammabb*t107*t127*t153*t16*t1
14439     7         7*t245*t61*t88*t89+3.2910615692041123d-2*t127*t128*t16*t1
14440     8         7*t61*t88*t89+3.2910615692041123d-2*gammabb*t127*t128*t15
14441     9         2*t16*t61*t88*t89-3.2910615692041123d-2*gammabb*t126*t127
14442     :         *t128*t16*t169*t17*t88*t89-1.6455307846020562d-2*gammabb*
14443     ;         t107*t125*t126*t128*t153*t16*t17*t88*t89+8.7761641845443d
14444     <         -2*gammabb*t17*t266*t61*t65*t78*t89-8.7761641845443d-2*ga
14445     =         mmabb*t125*t126*t151*t17*t65*t78*t89-8.7761641845443d-2*g
14446     >         ammabb*t127*t128*t151*t17*t61*t78*t89-1.6455307846020562d
14447     ?         -2*gammabb*t16*t17*t421*t61*t65*t89-1.6455307846020562d-2
14448     @         *gammabb*t151*t16*t200*t61*t65*t89-1.6455307846020562d-2*
14449     1         t16*t17*t197*t61*t65*t89-1.6455307846020562d-2*gammabb*t1
14450     2         52*t16*t197*t61*t65*t89-1.6089634338331216d-1*gammabb*t15
14451     3         1*t17*t182*t61*t65*t89+3.2910615692041123d-2*gammabb*t125
14452     4         *t126*t16*t17*t266*t65*t89+1.6455307846020562d-2*gammabb*
14453     5         t126*t151*t16*t17*t243*t65*t89-3.2910615692041123d-2*gamm
14454     6         abb*t151*t16*t17*t241*t242*t65*t89+1.6455307846020562d-2*
14455     7         gammabb*t126*t16*t169*t17*t197*t65*t89+3.2910615692041123
14456     8         d-2*gammabb*t127*t128*t16*t17*t266*t61*t89+1.645530784602
14457     9         0562d-2*gammabb*t128*t151*t16*t17*t246*t61*t89-3.29106156
14458     :         92041123d-2*gammabb*t151*t16*t17*t244*t245*t61*t89+8.2276
14459     ;         53923010281d-3*gammabb*t107*t128*t153*t16*t17*t197*t61*t8
14460     <         9-3.2910615692041123d-2*gammabb*t125*t126*t127*t128*t151*
14461     =         t16*t17*t89-1.75523283690886d-1*gammabb*t151*t17*t187*t61
14462     >         *t65*t78*t88+6.582123138408225d-2*gammabb*t16*t17*t187*t2
14463     ?         66*t61*t65*t88-6.582123138408225d-2*gammabb*t125*t126*t15
14464     @         1*t16*t17*t187*t65*t88-6.582123138408225d-2*gammabb*t127*
14465     1         t128*t151*t16*t17*t187*t61*t88-8.7761641845443d-2*gammabb
14466     2         *t25*t267*t61*t65*t78+8.7761641845443d-2*gammabb*t126*t17
14467     3         *t25*t282*t65*t78-1.75523283690886d-1*gammabb*t125*t169*t
14468     4         17*t242*t25*t65*t78+8.7761641845443d-2*t125*t126*t17*t25*
14469     5         t65*t78+8.7761641845443d-2*gammabb*t125*t126*t152*t25*t65
14470     6         *t78+8.7761641845443d-2*gammabb*t128*t17*t25*t283*t61*t78
14471     7         -8.7761641845443d-2*gammabb*t107*t127*t153*t17*t245*t25*t
14472     8         61*t78+8.7761641845443d-2*t127*t128*t17*t25*t61*t78+8.776
14473     9         1641845443d-2*gammabb*t127*t128*t152*t25*t61*t78-8.776164
14474     :         1845443d-2*gammabb*t126*t127*t128*t169*t17*t25*t78-4.3880
14475     ;         8209227215d-2*gammabb*t107*t125*t126*t128*t153*t17*t25*t7
14476     <         8+1.6455307846020562d-2*gammabb*t16*t25*t422*t61*t65-9.87
14477     =         3184707612337d-2*gammabb*t151*t16*t17*t186*t365*t61*t65+1
14478     >         .6455307846020562d-2*t16*t200*t25*t61*t65+1.6089634338331
14479     ?         216d-1*t17*t182*t25*t61*t65+1.6089634338331216d-1*gammabb
14480     @         *t152*t182*t25*t61*t65+3.2910615692041123d-2*gammabb*t151
14481     1         *t16*t17*t187*t197*t61*t65+3.2910615692041123d-2*t16*t17*
14482     2         t186*t187*t61*t65+3.2910615692041123d-2*gammabb*t152*t16*
14483     3         t186*t187*t61*t65-1.6455307846020562d-2*gammabb*t126*t16*
14484     4         t17*t25*t438*t65-9.873184707612337d-2*gammabb*t16*t169*t1
14485     5         7*t241*t25*t412*t65+6.582123138408225d-2*gammabb*t125*t16
14486     6         *t17*t242*t25*t282*t65-3.2910615692041123d-2*gammabb*t125
14487     7         *t126*t16*t25*t267*t65+3.2910615692041123d-2*gammabb*t16*
14488     8         t169*t17*t242*t243*t25*t65-1.6455307846020562d-2*t126*t16
14489     9         *t17*t243*t25*t65-1.6455307846020562d-2*gammabb*t126*t152
14490     :         *t16*t243*t25*t65+3.2910615692041123d-2*t16*t17*t241*t242
14491     ;         *t25*t65+3.2910615692041123d-2*gammabb*t152*t16*t241*t242
14492     <         *t25*t65-1.6455307846020562d-2*gammabb*t126*t16*t169*t200
14493     =         *t25*t65-1.6089634338331216d-1*gammabb*t126*t169*t17*t182
14494     >         *t25*t65-3.2910615692041123d-2*gammabb*t126*t16*t169*t17*
14495     ?         t186*t187*t65+t423*t61*t63-t126*t438*t59*t63-6*t169*t241*
14496     @         t412*t59*t63+4*t125*t242*t282*t59*t63+2*t169*t242*t243*t5
14497     1         9*t63-2*t114*t126*t282*t63-2*t125*t126*t268*t63-t126*t153
14498     2         *t243*t63+2*t153*t241*t242*t63+4*t114*t125*t169*t242*t63-
14499     3         t126*t169*t228*t63-t124*(t437+t436+t435+t434)*t59*t61-3*t
14500     4         116*t153*t238*t410*t59*t61+4*t123*t239*t281*t59*t61+t116*
14501     5         t153*t239*t240*t59*t61-1.6455307846020562d-2*gammabb*t128
14502     6         *t16*t17*t25*(t433+t432+t431+t430)*t61-4.9365923538061685
14503     7         d-2*gammabb*t107*t153*t16*t17*t244*t25*t414*t61+6.5821231
14504     8         38408225d-2*gammabb*t127*t16*t17*t245*t25*t283*t61-2*t114
14505     9         *t124*t281*t61-2*t123*t124*t268*t61-3.2910615692041123d-2
14506     :         *gammabb*t127*t128*t16*t25*t267*t61+1.6455307846020562d-2
14507     ;         *gammabb*t107*t153*t16*t17*t245*t246*t25*t61-1.6455307846
14508     <         020562d-2*t128*t16*t17*t246*t25*t61-1.6455307846020562d-2
14509     =         *gammabb*t128*t152*t16*t246*t25*t61+3.2910615692041123d-2
14510     >         *t16*t17*t244*t245*t25*t61+3.2910615692041123d-2*gammabb*
14511     ?         t152*t16*t244*t245*t25*t61-8.227653923010281d-3*gammabb*t
14512     @         107*t128*t153*t16*t200*t25*t61-8.044817169165608d-2*gamma
14513     1         bb*t107*t128*t153*t17*t182*t25*t61-t124*t153*t240*t61+2*t
14514     2         153*t238*t239*t61+2*t114*t116*t123*t153*t239*t61-5.0d-1*t
14515     3         116*t124*t153*t228*t61-1.6455307846020562d-2*gammabb*t107
14516     4         *t128*t153*t16*t17*t186*t187*t61+2*t123*t124*t126*t282*t5
14517     5         9+2*t124*t125*t126*t281*t59+5.0d-1*t116*t124*t126*t153*t2
14518     6         43*t59-t116*t124*t153*t241*t242*t59-4*t123*t124*t125*t169
14519     7         *t242*t59+t124*t126*t169*t240*t59-2*t126*t169*t238*t239*t
14520     8         59-2*t116*t123*t125*t126*t153*t239*t59+3.2910615692041123
14521     9         d-2*gammabb*t125*t126*t128*t16*t17*t25*t283+3.29106156920
14522     :         41123d-2*gammabb*t126*t127*t128*t16*t17*t25*t282+1.645530
14523     ;         7846020562d-2*gammabb*t126*t128*t16*t169*t17*t246*t25-3.2
14524     <         910615692041123d-2*gammabb*t126*t16*t169*t17*t244*t245*t2
14525     =         5-3.2910615692041123d-2*gammabb*t107*t125*t126*t127*t153*
14526     >         t16*t17*t245*t25+8.227653923010281d-3*gammabb*t107*t126*t
14527     ?         128*t153*t16*t17*t243*t25-1.6455307846020562d-2*gammabb*t
14528     @         107*t128*t153*t16*t17*t241*t242*t25-6.582123138408225d-2*
14529     1         gammabb*t125*t127*t128*t16*t169*t17*t242*t25+3.2910615692
14530     2         041123d-2*t125*t126*t127*t128*t16*t17*t25+3.2910615692041
14531     3         123d-2*gammabb*t125*t126*t127*t128*t152*t16*t25+2*t114*t1
14532     4         23*t124*t126*t169+2*t123*t124*t125*t126*t153+t114*t116*t1
14533     5         24*t125*t126*t153)-6.582123138408225d-2*t16*t52*t88*t89*t
14534     6         91-6.582123138408225d-2*gammabb*t112*t16*t161*t88*t89*t91
14535     7         +1.75523283690886d-1*gammabb*t151*t52*t78*t89*t91-6.58212
14536     8         3138408225d-2*gammabb*t16*t266*t52*t89*t91-6.582123138408
14537     9         225d-2*gammabb*t111*t112*t151*t16*t89*t91+1.3164246276816
14538     :         45d-1*gammabb*t151*t16*t187*t52*t88*t91-1.75523283690886d
14539     ;         -1*t25*t52*t78*t91-1.75523283690886d-1*gammabb*t112*t161*
14540     <         t25*t78*t91+6.582123138408225d-2*gammabb*t112*t16*t25*t27
14541     =         6*t91-6.582123138408225d-2*gammabb*t111*t16*t161*t212*t25
14542     >         *t91+6.582123138408225d-2*t111*t112*t16*t25*t91+1.7552328
14543     ?         3690886d-1*t17*t52*t78*t88*t89+1.75523283690886d-1*gammab
14544     @         b*t152*t52*t78*t88*t89+1.75523283690886d-1*gammabb*t112*t
14545     1         161*t17*t78*t88*t89-6.582123138408225d-2*gammabb*t16*t267
14546     2         *t52*t88*t89-6.582123138408225d-2*gammabb*t112*t16*t17*t2
14547     3         76*t88*t89+6.582123138408225d-2*gammabb*t111*t16*t161*t17
14548     4         *t212*t88*t89-6.582123138408225d-2*t111*t112*t16*t17*t88*
14549     5         t89-6.582123138408225d-2*gammabb*t111*t112*t152*t16*t88*t
14550     6         89+1.75523283690886d-1*gammabb*t17*t266*t52*t78*t89+1.755
14551     7         23283690886d-1*gammabb*t111*t112*t151*t17*t78*t89-3.29106
14552     8         15692041123d-2*gammabb*t16*t17*t421*t52*t89-3.29106156920
14553     9         41123d-2*gammabb*t151*t16*t200*t52*t89-3.2910615692041123
14554     :         d-2*t16*t17*t197*t52*t89-3.2910615692041123d-2*gammabb*t1
14555     ;         52*t16*t197*t52*t89-3.217926867666243d-1*gammabb*t151*t17
14556     <         *t182*t52*t89-6.582123138408225d-2*gammabb*t111*t112*t16*
14557     =         t17*t266*t89-3.2910615692041123d-2*gammabb*t112*t151*t16*
14558     >         t17*t227*t89+3.2910615692041123d-2*gammabb*t151*t16*t17*t
14559     ?         211*t212*t89-3.2910615692041123d-2*gammabb*t112*t16*t161*
14560     @         t17*t197*t89-3.51046567381772d-1*gammabb*t151*t17*t187*t5
14561     1         2*t78*t88+1.316424627681645d-1*gammabb*t16*t17*t187*t266*
14562     2         t52*t88+1.316424627681645d-1*gammabb*t111*t112*t151*t16*t
14563     3         17*t187*t88-1.75523283690886d-1*gammabb*t25*t267*t52*t78-
14564     4         1.75523283690886d-1*gammabb*t112*t17*t25*t276*t78+1.75523
14565     5         283690886d-1*gammabb*t111*t161*t17*t212*t25*t78-1.7552328
14566     6         3690886d-1*t111*t112*t17*t25*t78-1.75523283690886d-1*gamm
14567     7         abb*t111*t112*t152*t25*t78-4.727288888888889d-2*t32*t423*
14568     8         t77+9.454577777777778d-2*t137*t140*t268*t77+4.72728888888
14569     9         8889d-2*t137*t153*t256*t77-9.454577777777778d-2*t153*t207
14570     :         *t208*t77+2.6666666666666666d+0*t148*t441*t72*t75+5.33333
14571     ;         3333333333d+1*t174*t209*t387*t72*t75-2.1333333333333332d+
14572     <         1*t147*t210*t292*t72*t75-1.0666666666666666d+1*t174*t210*
14573     =         t259*t72*t75+5.333333333333333d+0*t135*t148*t292*t75+5.33
14574     >         3333333333333d+0*t147*t148*t287*t75+2.6666666666666666d+0
14575     ?         *t148*t180*t259*t75+2.6666666666666666d+0*t148*t174*t254*
14576     @         t75-1.0666666666666666d+1*t180*t209*t210*t75-2.1333333333
14577     1         333332d+1*t135*t147*t174*t210*t75-1.0546577777777776d-1*t
14578     2         35*t36*t441*t73-2.109315555555555d-1*t147*t269*t36*t73-1.
14579     3         0546577777777776d-1*t155*t259*t36*t73-1.0546577777777776d
14580     4         -1*t174*t206*t36*t73+6.764482379964267d-3*t1*t139*t153*t2
14581     5         59*t3*t35*t73-2.109315555555555d-1*t142*t292*t35*t73-2.10
14582     6         9315555555555d-1*t147*t288*t35*t73-1.0546577777777776d-1*
14583     7         t174*t255*t35*t73-1.7777777777777776d+0*t135*t291*t73-1.7
14584     8         777777777777776d+0*t146*t287*t73-8.888888888888888d-1*t25
14585     9         4*t264*t73-8.888888888888888d-1*t180*t258*t73-2.109315555
14586     :         555555d-1*t142*t147*t155*t73+5.333333333333333d+0*t146*t1
14587     ;         48*t292*t72+5.333333333333333d+0*t147*t148*t291*t72+2.666
14588     <         6666666666666d+0*t148*t259*t264*t72-1.0666666666666666d+1
14589     =         *t209*t210*t264*t72+2.6666666666666666d+0*t148*t174*t258*
14590     >         t72-2.1333333333333332d+1*t146*t147*t174*t210*t72-2.0d+0*
14591     ?         t121*(-1.475609999999999d-1*t106*t429*t56-4.4268299999999
14592     @         966d-1*t102*t153*t213*t390*t56+5.902439999999995d-1*t105*
14593     1         t214*t272*t56+1.475609999999999d-1*t102*t153*t214*t220*t5
14594     2         6-1.475609999999999d-1*t119*(t437+t436+t435+t434+t428+t42
14595     3         7+t426+t425)*t50-8.853659999999993d-1*t166*t231*t405*t50+
14596     4         5.902439999999995d-1*t118*t232*t279*t50+2.951219999999998
14597     5         d-1*t166*t232*t236*t50+2.951219999999998d-1*t105*t106*t11
14598     6         9*t279+2.951219999999998d-1*t106*t118*t119*t272+7.3780499
14599     7         99999994d-2*t102*t106*t119*t153*t236-1.475609999999999d-1
14600     8         *t102*t106*t153*t231*t232-5.902439999999995d-1*t105*t106*
14601     9         t118*t166*t232+1.475609999999999d-1*t106*t119*t166*t220-2
14602     :         .951219999999998d-1*t119*t166*t213*t214-2.951219999999998
14603     ;         d-1*t102*t105*t118*t119*t153*t214)*t59-4.0d+0*t167*t229*t
14604     <         404*t59+4.0d+0*t120*t230*t280*t59+2.0d+0*t167*t230*t237*t
14605     =         59-2.0d+0*t423*t58+3.2910615692041123d-2*gammabb*t16*t25*
14606     >         t422*t52-1.9746369415224674d-1*gammabb*t151*t16*t17*t186*
14607     ?         t365*t52+3.2910615692041123d-2*t16*t200*t25*t52+3.2179268
14608     @         67666243d-1*t17*t182*t25*t52+3.217926867666243d-1*gammabb
14609     1         *t152*t182*t25*t52+6.582123138408225d-2*gammabb*t151*t16*
14610     2         t17*t187*t197*t52+6.582123138408225d-2*t16*t17*t186*t187*
14611     3         t52+6.582123138408225d-2*gammabb*t152*t16*t186*t187*t52+3
14612     4         .2910615692041123d-2*gammabb*t112*t16*t17*t25*(6.0965d-1*
14613     5         t110*(t433+t432+t431+t430+t428+t427+t426+t425)*t50+3.6579
14614     6         d+0*t160*t221*t398*t50-2.4386000000000002d+0*t109*t222*t2
14615     7         75*t50-1.2193000000000001d+0*t160*t222*t226*t50+6.0965d-1
14616     8         *t106*t429*t47+1.82895d+0*t102*t153*t213*t390*t47-2.43860
14617     9         00000000002d+0*t105*t214*t272*t47-6.0965d-1*t102*t153*t21
14618     :         4*t220*t47-1.2193000000000001d+0*t105*t106*t110*t275-1.21
14619     ;         93000000000001d+0*t106*t109*t110*t272-3.04825d-1*t102*t10
14620     <         6*t110*t153*t226+6.0965d-1*t102*t106*t153*t221*t222+2.438
14621     =         6000000000002d+0*t105*t106*t109*t160*t222-6.0965d-1*t106*
14622     >         t110*t160*t220+1.2193000000000001d+0*t110*t160*t213*t214+
14623     ?         1.2193000000000001d+0*t102*t105*t109*t110*t153*t214)-4.72
14624     @         7288888888889d-2*t137*t28*t440+1.2128166337053317d-2*t1*t
14625     1         137*t153*t204*t3*t439+5.273288888888887d-2*t36*t38*t424+6
14626     2         .582123138408225d-2*gammabb*t16*t161*t17*t211*t25*t388+3.
14627     3         6384499011159954d-2*t1*t153*t171*t208*t3*t385-3.382241189
14628     4         9821336d-3*t1*t139*t153*t206*t3*t38+1.0546577777777776d-1
14629     5         *t142*t269*t38+5.273288888888887d-2*t155*t255*t38+6.32794
14630     6         6666666665d-1*t147*t148*t292*t35*t36+3.1639733333333325d-
14631     7         1*t148*t174*t259*t35*t36-1.265589333333333d+0*t174*t209*t
14632     8         210*t35*t36+3.1639733333333325d-1*t148*t155*t209*t36-2.02
14633     9         934471398928d-2*t1*t139*t148*t153*t209*t3*t35+6.327946666
14634     :         666665d-1*t142*t147*t148*t174*t35-2.8363733333333335d-1*t
14635     ;         153*t204*t32*t335+9.454577777777778d-2*t153*t202*t203*t32
14636     <         -6.064083168526658d-3*t1*t137*t153*t202*t284*t3-1.2128166
14637     =         337053317d-2*t1*t153*t171*t207*t256*t3+1.8909155555555557
14638     >         d-1*t140*t207*t28*t289-4.0d+0*t114*t121*t280-6.5821231384
14639     ?         08225d-2*gammabb*t111*t16*t17*t212*t25*t276-4.0d+0*t120*t
14640     @         121*t268+6.582123138408225d-2*gammabb*t111*t112*t16*t25*t
14641     1         267+5.333333333333333d+0*t135*t147*t148*t264-3.2910615692
14642     2         041123d-2*gammabb*t16*t161*t17*t212*t227*t25+3.2910615692
14643     3         041123d-2*t112*t16*t17*t227*t25+3.2910615692041123d-2*gam
14644     4         mabb*t112*t152*t16*t227*t25-3.2910615692041123d-2*t16*t17
14645     5         *t211*t212*t25-3.2910615692041123d-2*gammabb*t152*t16*t21
14646     6         1*t212*t25+3.2910615692041123d-2*gammabb*t112*t16*t161*t2
14647     7         00*t25+3.217926867666243d-1*gammabb*t112*t161*t17*t182*t2
14648     8         5-2.0d+0*t121*t153*t237+2.0d+0*t153*t229*t230+4.0d+0*t114
14649     9         *t120*t167*t230-2.0d+0*t121*t167*t228+6.582123138408225d-
14650     :         2*gammabb*t112*t16*t161*t17*t186*t187+5.333333333333333d+
14651     ;         0*t146*t147*t148*t180+5.333333333333333d+0*t135*t146*t148
14652     <         *t174)*wght-4.135669939329333d-1*t40*(-8.888888888888888d
14653     =         -1*t177*t72*t73+t265+t263+t262+t261+t175+t173+t172+t170+t
14654     >         168+t164+t162+t157+t156+t154)*wght-2.4814019635975998d+0*
14655     ?         t2*t293*wght+Cmat3(iq,D3_RB_RB_GBB)
14656            Cmat3(iq,D3_RB_GBB_GBB) = -9.305257363491d-1*t22*(-8.8888888
14657     1         88888888d-1*t73*t75*(4.7459599999999996d-2*t300*t95-2.4d+
14658     2         0*t68*(6.41391219265211d-2*t132*(-gammabb*t16*t298*t89*t9
14659     3         1-2*t151*t16*t89*t91+2*gammabb*t16*t187*t296*t91-gammabb*
14660     4         t16*t299*t88*t89-2*t152*t16*t88*t89+2.6666666666666666d+0
14661     5         *gammabb*t17*t298*t78*t89+5.333333333333333d+0*t151*t17*t
14662     6         78*t89+5.333333333333333d+0*gammabb*t151*t152*t78*t89-gam
14663     7         mabb*t16*t17*t442*t89-2*gammabb*t151*t16*t267*t89-2*t16*t
14664     8         17*t266*t89-2*gammabb*t152*t16*t266*t89-6*gammabb*t16*t17
14665     9         *t296*t365*t88+2*gammabb*t16*t17*t187*t298*t88+4*t151*t16
14666     :         *t17*t187*t88+4*gammabb*t151*t152*t16*t187*t88-2.66666666
14667     ;         66666666d+0*gammabb*t25*t299*t78-5.333333333333333d+0*gam
14668     <         mabb*t17*t187*t296*t78-5.333333333333333d+0*t152*t25*t78+
14669     =         gammabb*t16*t25*t443+2*t16*t25*t267+4*gammabb*t151*t16*t1
14670     >         7*t187*t266)-5.0d-1*t131*t444-3.75d-1*t114*t294*t418+4.81
14671     ?         0434144489083d-2*t133*t345*t417-3.206956096326055d-2*t133
14672     @         *t249*t346+2.5d-1*t114*t251*t300-6.41391219265211d-2*t178
14673     1         *t249*t285+5.0d-1*t153*t251*t268)-8.400000000000001d+0*t1
14674     2         30*t444*t71-3.15d+1*t114*t294*t416*t71-2.1d+1*t114*t248*t
14675     3         300*t71-4.2d+1*t153*t248*t268*t71-2.7259596d+0*t444*t67+4
14676     4         .7459599999999996d-2*t445*t66+5.672746666666666d-2*t444*t
14677     5         66-5.4519192d+0*t114*t300*t66-1.0903838400000002d+1*t153*
14678     6         t268*t66+4.7459599999999996d-2*t35*t444-4.962870782535445
14679     7         7d+0*t130*t444-1.8610765434507923d+1*t114*t294*t416-8.400
14680     8         000000000001d+0*t114*t130*t347+4.7459599999999996d-2*t114
14681     9         *t302-1.2407176956338616d+1*t114*t248*t300-8.400000000000
14682     :         001d+0*t130*t134*t300+5.672746666666666d-2*t114*t300-2.1d
14683     ;         +1*t134*t248*t294-5.4519192d+0*t114*t294-1.68d+1*t130*t15
14684     <         3*t286+9.491919999999999d-2*t153*t269-2.481435391267723d+
14685     =         1*t153*t248*t268-1.68d+1*t130*t179*t268+9.491919999999999
14686     >         d-2*t155*t268+1.1345493333333331d-1*t153*t268-4.2d+1*t114
14687     ?         *t153*t179*t248)-1.0546577777777776d-1*t350*t36*t73*t95+1
14688     @         .3528964759928536d-2*t1*t139*t153*t174*t3*t73*t95-3.38224
14689     1         11899821336d-3*t1*t139*t3*t300*t38*t95+5.0733617849732d-3
14690     2         *t1*t171*t294*t3*t38*t95+3.1639733333333325d-1*t148*t304*
14691     3         t36*t95-8.888888888888888d-1*t72*t73*(4.9365923538061685d
14692     4         -2*t1*t3*t30*(7.5d-1*t1*t171*t3*t300*t93-1.875d+0*t1*t284
14693     5         *t294*t3*t93-5.0d-1*t1*t139*t3*t444+1.6666666666666666d-1
14694     6         *t1*t139*t23*t300+1.5d+0*t1*t153*t171*t268*t3-2.5d-1*t1*t
14695     7         171*t23*t294)+2.164695365020087d-1*t1*t171*t3*t300*t93-5.
14696     8         411738412550218d-1*t1*t284*t294*t3*t93-1.4431302433467247
14697     9         d-1*t1*t139*t3*t444-2.4682961769030842d-2*t1*t139*t145*t3
14698     :         *t300+4.810434144489082d-2*t1*t139*t23*t300+3.70244426535
14699     ;         46263d-2*t1*t145*t171*t294*t3-4.9365923538061685d-2*t1*t1
14700     <         39*t153*t290*t3+4.329390730040174d-1*t1*t153*t171*t268*t3
14701     =         -7.215651216733623d-2*t1*t171*t23*t294)+5.273288888888887
14702     >         d-2*t35*t38*(9.620868288978166d-2*t1*t171*t3*t300*t93-2.4
14703     ?         052170722445415d-1*t1*t284*t294*t3*t93-6.41391219265211d-
14704     @         2*t1*t139*t3*t444+2.1379707308840368d-2*t1*t139*t23*t300+
14705     1         1.924173657795633d-1*t1*t153*t171*t268*t3-3.2069560963260
14706     2         55d-2*t1*t171*t23*t294)-1.5557798788747831d-3*t207*t294*t
14707     3         39*t40*t460*t93+3.3352457426896626d-2*t1*t137*t294*t3*t43
14708     4         9*t93-2.8363733333333335d-1*t294*t32*t335*t93+9.454577777
14709     5         777778d-2*t203*t300*t32*t93-6.064083168526658d-3*t1*t137*
14710     6         t284*t3*t300*t93+7.57211d-1*(-1.6455307846020562d-2*gamma
14711     7         bb*t16*t298*t61*t65*t89*t91-3.2910615692041123d-2*t151*t1
14712     8         6*t61*t65*t89*t91+3.2910615692041123d-2*gammabb*t126*t151
14713     9         *t16*t169*t65*t89*t91+1.6455307846020562d-2*gammabb*t107*
14714     :         t128*t151*t153*t16*t61*t89*t91+3.2910615692041123d-2*gamm
14715     ;         abb*t16*t187*t296*t61*t65*t91-1.6455307846020562d-2*gamma
14716     <         bb*t126*t16*t25*t328*t65*t91+3.2910615692041123d-2*gammab
14717     =         b*t16*t242*t25*t325*t65*t91-3.2910615692041123d-2*t126*t1
14718     >         6*t169*t25*t65*t91+8.227653923010281d-3*gammabb*t16*t245*
14719     ?         t25*t294*t329*t61*t91-8.227653923010281d-3*gammabb*t107*t
14720     @         128*t16*t25*t300*t61*t91+4.1138269615051404d-3*gammabb*t1
14721     1         28*t16*t223*t25*t294*t61*t91-1.6455307846020562d-2*t107*t
14722     2         128*t153*t16*t25*t61*t91+1.6455307846020562d-2*gammabb*t1
14723     3         07*t126*t128*t153*t16*t169*t25*t91-1.6455307846020562d-2*
14724     4         gammabb*t16*t299*t61*t65*t88*t89-3.2910615692041123d-2*t1
14725     5         52*t16*t61*t65*t88*t89+1.6455307846020562d-2*gammabb*t126
14726     6         *t16*t17*t328*t65*t88*t89-3.2910615692041123d-2*gammabb*t
14727     7         16*t17*t242*t325*t65*t88*t89+3.2910615692041123d-2*t126*t
14728     8         16*t169*t17*t65*t88*t89+3.2910615692041123d-2*gammabb*t12
14729     9         6*t152*t16*t169*t65*t88*t89-8.227653923010281d-3*gammabb*
14730     :         t16*t17*t245*t294*t329*t61*t88*t89+8.227653923010281d-3*g
14731     ;         ammabb*t107*t128*t16*t17*t300*t61*t88*t89-4.1138269615051
14732     <         404d-3*gammabb*t128*t16*t17*t223*t294*t61*t88*t89+1.64553
14733     =         07846020562d-2*t107*t128*t153*t16*t17*t61*t88*t89+1.64553
14734     >         07846020562d-2*gammabb*t107*t128*t152*t153*t16*t61*t88*t8
14735     ?         9-1.6455307846020562d-2*gammabb*t107*t126*t128*t153*t16*t
14736     @         169*t17*t88*t89+4.38808209227215d-2*gammabb*t17*t298*t61*
14737     1         t65*t78*t89+8.7761641845443d-2*t151*t17*t61*t65*t78*t89+8
14738     2         .7761641845443d-2*gammabb*t151*t152*t61*t65*t78*t89-8.776
14739     3         1641845443d-2*gammabb*t126*t151*t169*t17*t65*t78*t89-4.38
14740     4         808209227215d-2*gammabb*t107*t128*t151*t153*t17*t61*t78*t
14741     5         89-1.6455307846020562d-2*gammabb*t16*t17*t442*t61*t65*t89
14742     6         -3.2910615692041123d-2*gammabb*t151*t16*t267*t61*t65*t89-
14743     7         3.2910615692041123d-2*t16*t17*t266*t61*t65*t89-3.29106156
14744     8         92041123d-2*gammabb*t152*t16*t266*t61*t65*t89+1.645530784
14745     9         6020562d-2*gammabb*t125*t126*t16*t17*t298*t65*t89+3.29106
14746     :         15692041123d-2*gammabb*t126*t151*t16*t17*t282*t65*t89+3.2
14747     ;         910615692041123d-2*gammabb*t126*t16*t169*t17*t266*t65*t89
14748     <         -6.582123138408225d-2*gammabb*t125*t151*t16*t169*t17*t242
14749     =         *t65*t89+3.2910615692041123d-2*t125*t126*t151*t16*t17*t65
14750     >         *t89+3.2910615692041123d-2*gammabb*t125*t126*t151*t152*t1
14751     ?         6*t65*t89+1.6455307846020562d-2*gammabb*t127*t128*t16*t17
14752     @         *t298*t61*t89+3.2910615692041123d-2*gammabb*t128*t151*t16
14753     1         *t17*t283*t61*t89+1.6455307846020562d-2*gammabb*t107*t128
14754     2         *t153*t16*t17*t266*t61*t89-3.2910615692041123d-2*gammabb*
14755     3         t107*t127*t151*t153*t16*t17*t245*t61*t89+3.29106156920411
14756     4         23d-2*t127*t128*t151*t16*t17*t61*t89+3.2910615692041123d-
14757     5         2*gammabb*t127*t128*t151*t152*t16*t61*t89-3.2910615692041
14758     6         123d-2*gammabb*t126*t127*t128*t151*t16*t169*t17*t89-1.645
14759     7         5307846020562d-2*gammabb*t107*t125*t126*t128*t151*t153*t1
14760     8         6*t17*t89-9.873184707612337d-2*gammabb*t16*t17*t296*t365*
14761     9         t61*t65*t88+3.2910615692041123d-2*gammabb*t16*t17*t187*t2
14762     :         98*t61*t65*t88+6.582123138408225d-2*t151*t16*t17*t187*t61
14763     ;         *t65*t88+6.582123138408225d-2*gammabb*t151*t152*t16*t187*
14764     <         t61*t65*t88-6.582123138408225d-2*gammabb*t126*t151*t16*t1
14765     =         69*t17*t187*t65*t88-3.2910615692041123d-2*gammabb*t107*t1
14766     >         28*t151*t153*t16*t17*t187*t61*t88-4.38808209227215d-2*gam
14767     ?         mabb*t25*t299*t61*t65*t78-8.7761641845443d-2*gammabb*t17*
14768     @         t187*t296*t61*t65*t78-8.7761641845443d-2*t152*t25*t61*t65
14769     1         *t78+4.38808209227215d-2*gammabb*t126*t17*t25*t328*t65*t7
14770     2         8-8.7761641845443d-2*gammabb*t17*t242*t25*t325*t65*t78+8.
14771     3         7761641845443d-2*t126*t169*t17*t25*t65*t78+8.776164184544
14772     4         3d-2*gammabb*t126*t152*t169*t25*t65*t78-2.194041046136075
14773     5         d-2*gammabb*t17*t245*t25*t294*t329*t61*t78+2.194041046136
14774     6         075d-2*gammabb*t107*t128*t17*t25*t300*t61*t78-1.097020523
14775     7         0680374d-2*gammabb*t128*t17*t223*t25*t294*t61*t78+4.38808
14776     8         209227215d-2*t107*t128*t153*t17*t25*t61*t78+4.38808209227
14777     9         215d-2*gammabb*t107*t128*t152*t153*t25*t61*t78-4.38808209
14778     :         227215d-2*gammabb*t107*t126*t128*t153*t169*t17*t25*t78+1.
14779     ;         6455307846020562d-2*gammabb*t16*t25*t443*t61*t65+3.291061
14780     <         5692041123d-2*t16*t25*t267*t61*t65+6.582123138408225d-2*g
14781     =         ammabb*t151*t16*t17*t187*t266*t61*t65-1.6455307846020562d
14782     >         -2*gammabb*t126*t16*t17*t25*t459*t65-9.873184707612337d-2
14783     ?         *gammabb*t125*t16*t17*t25*t325*t412*t65+3.291061569204112
14784     @         3d-2*gammabb*t125*t16*t17*t242*t25*t328*t65-1.64553078460
14785     1         20562d-2*gammabb*t125*t126*t16*t25*t299*t65-3.29106156920
14786     2         41123d-2*gammabb*t125*t126*t16*t17*t187*t296*t65+6.582123
14787     3         138408225d-2*gammabb*t16*t169*t17*t242*t25*t282*t65-3.291
14788     4         0615692041123d-2*t126*t16*t17*t25*t282*t65-3.291061569204
14789     5         1123d-2*gammabb*t126*t152*t16*t25*t282*t65-3.291061569204
14790     6         1123d-2*gammabb*t126*t16*t169*t25*t267*t65+6.582123138408
14791     7         225d-2*t125*t16*t169*t17*t242*t25*t65+6.582123138408225d-
14792     8         2*gammabb*t125*t152*t16*t169*t242*t25*t65-3.2910615692041
14793     9         123d-2*t125*t126*t152*t16*t25*t65+t444*t61*t63-t126*t459*
14794     :         t59*t63-6*t125*t325*t412*t59*t63+2*t125*t242*t328*t59*t63
14795     ;         +4*t169*t242*t282*t59*t63-t114*t126*t328*t63+2*t114*t242*
14796     <         t325*t63-t125*t126*t300*t63-2*t126*t153*t282*t63-2*t126*t
14797     =         169*t268*t63+4*t125*t153*t169*t242*t63-t124*(t458+t457+t4
14798     >         56+t455)*t59*t61-1.5d+0*t123*t294*t324*t410*t59*t61+t116*
14799     ?         t123*t239*t300*t59*t61-5.0d-1*t123*t233*t239*t294*t59*t61
14800     @         +2*t116*t153*t239*t281*t59*t61-1.6455307846020562d-2*gamm
14801     1         abb*t128*t16*t17*t25*(t454+t453+t452+t451)*t61-2.46829617
14802     2         69030842d-2*gammabb*t127*t16*t17*t25*t294*t329*t414*t61+5
14803     3         .0d-1*t114*t239*t294*t324*t61+1.6455307846020562d-2*gamma
14804     4         bb*t107*t127*t16*t17*t245*t25*t300*t61-t123*t124*t300*t61
14805     5         -5.0d-1*t114*t116*t124*t300*t61-1.6455307846020562d-2*gam
14806     6         mabb*t127*t128*t16*t25*t299*t61-3.2910615692041123d-2*gam
14807     7         mabb*t127*t128*t16*t17*t187*t296*t61-8.227653923010281d-3
14808     8         *gammabb*t127*t16*t17*t223*t245*t25*t294*t61+2*t116*t123*
14809     9         t239*t294*t61+2.5d-1*t114*t124*t233*t294*t61+3.2910615692
14810     :         041123d-2*gammabb*t107*t153*t16*t17*t245*t25*t283*t61-3.2
14811     ;         910615692041123d-2*t128*t16*t17*t25*t283*t61-3.2910615692
14812     <         041123d-2*gammabb*t128*t152*t16*t25*t283*t61-2*t124*t153*
14813     =         t281*t61-t116*t124*t153*t268*t61-1.6455307846020562d-2*ga
14814     >         mmabb*t107*t128*t153*t16*t25*t267*t61+3.2910615692041123d
14815     ?         -2*t107*t127*t153*t16*t17*t245*t25*t61+3.2910615692041123
14816     @         d-2*gammabb*t107*t127*t152*t153*t16*t245*t25*t61-3.291061
14817     1         5692041123d-2*t127*t128*t152*t16*t25*t61+t123*t124*t126*t
14818     2         328*t59-2*t123*t124*t242*t325*t59-5.0d-1*t125*t126*t239*t
14819     3         294*t324*t59+5.0d-1*t116*t124*t125*t126*t300*t59-2.5d-1*t
14820     4         124*t125*t126*t233*t294*t59+t116*t124*t126*t153*t282*t59+
14821     5         2*t124*t126*t169*t281*t59-2*t116*t124*t125*t153*t169*t242
14822     6         *t59-2*t116*t123*t126*t153*t169*t239*t59-8.22765392301028
14823     7         1d-3*gammabb*t125*t126*t16*t17*t245*t25*t294*t329+1.64553
14824     8         07846020562d-2*gammabb*t126*t127*t128*t16*t17*t25*t328-3.
14825     9         2910615692041123d-2*gammabb*t127*t128*t16*t17*t242*t25*t3
14826     :         25+8.227653923010281d-3*gammabb*t107*t125*t126*t128*t16*t
14827     ;         17*t25*t300-4.1138269615051404d-3*gammabb*t125*t126*t128*
14828     <         t16*t17*t223*t25*t294+t116*t124*t125*t126*t294+3.29106156
14829     =         92041123d-2*gammabb*t126*t128*t16*t169*t17*t25*t283+1.645
14830     >         5307846020562d-2*gammabb*t107*t126*t128*t153*t16*t17*t25*
14831     ?         t282-3.2910615692041123d-2*gammabb*t107*t126*t127*t153*t1
14832     @         6*t169*t17*t245*t25-3.2910615692041123d-2*gammabb*t107*t1
14833     1         25*t128*t153*t16*t169*t17*t242*t25+3.2910615692041123d-2*
14834     2         t126*t127*t128*t16*t169*t17*t25+1.6455307846020562d-2*t10
14835     3         7*t125*t126*t128*t153*t16*t17*t25+3.2910615692041123d-2*g
14836     4         ammabb*t126*t127*t128*t152*t16*t169*t25+1.645530784602056
14837     5         2d-2*gammabb*t107*t125*t126*t128*t152*t153*t16*t25+2*t123
14838     6         *t124*t126*t153*t169+t114*t116*t124*t126*t153*t169)-3.291
14839     7         0615692041123d-2*gammabb*t16*t298*t52*t89*t91-6.582123138
14840     8         408225d-2*t151*t16*t52*t89*t91-6.582123138408225d-2*gamma
14841     9         bb*t112*t151*t16*t161*t89*t91+6.582123138408225d-2*gammab
14842     :         b*t16*t187*t296*t52*t91+3.2910615692041123d-2*gammabb*t11
14843     ;         2*t16*t25*t318*t91-3.2910615692041123d-2*gammabb*t16*t212
14844     <         *t25*t308*t91+6.582123138408225d-2*t112*t16*t161*t25*t91-
14845     =         3.2910615692041123d-2*gammabb*t16*t299*t52*t88*t89-6.5821
14846     >         23138408225d-2*t152*t16*t52*t88*t89-3.2910615692041123d-2
14847     ?         *gammabb*t112*t16*t17*t318*t88*t89+3.2910615692041123d-2*
14848     @         gammabb*t16*t17*t212*t308*t88*t89-6.582123138408225d-2*t1
14849     1         12*t16*t161*t17*t88*t89-6.582123138408225d-2*gammabb*t112
14850     2         *t152*t16*t161*t88*t89+8.7761641845443d-2*gammabb*t17*t29
14851     3         8*t52*t78*t89+1.75523283690886d-1*t151*t17*t52*t78*t89+1.
14852     4         75523283690886d-1*gammabb*t151*t152*t52*t78*t89+1.7552328
14853     5         3690886d-1*gammabb*t112*t151*t161*t17*t78*t89-3.291061569
14854     6         2041123d-2*gammabb*t16*t17*t442*t52*t89-6.582123138408225
14855     7         d-2*gammabb*t151*t16*t267*t52*t89-6.582123138408225d-2*t1
14856     8         6*t17*t266*t52*t89-6.582123138408225d-2*gammabb*t152*t16*
14857     9         t266*t52*t89-3.2910615692041123d-2*gammabb*t111*t112*t16*
14858     :         t17*t298*t89-6.582123138408225d-2*gammabb*t112*t151*t16*t
14859     ;         17*t276*t89-6.582123138408225d-2*gammabb*t112*t16*t161*t1
14860     <         7*t266*t89+6.582123138408225d-2*gammabb*t111*t151*t16*t16
14861     =         1*t17*t212*t89-6.582123138408225d-2*t111*t112*t151*t16*t1
14862     >         7*t89-6.582123138408225d-2*gammabb*t111*t112*t151*t152*t1
14863     ?         6*t89-1.9746369415224674d-1*gammabb*t16*t17*t296*t365*t52
14864     @         *t88+6.582123138408225d-2*gammabb*t16*t17*t187*t298*t52*t
14865     1         88+1.316424627681645d-1*t151*t16*t17*t187*t52*t88+1.31642
14866     2         4627681645d-1*gammabb*t151*t152*t16*t187*t52*t88+1.316424
14867     3         627681645d-1*gammabb*t112*t151*t16*t161*t17*t187*t88-8.77
14868     4         61641845443d-2*gammabb*t25*t299*t52*t78-1.75523283690886d
14869     5         -1*gammabb*t17*t187*t296*t52*t78-1.75523283690886d-1*t152
14870     6         *t25*t52*t78-8.7761641845443d-2*gammabb*t112*t17*t25*t318
14871     7         *t78+8.7761641845443d-2*gammabb*t17*t212*t25*t308*t78-1.7
14872     8         5523283690886d-1*t112*t161*t17*t25*t78-1.75523283690886d-
14873     9         1*gammabb*t112*t152*t161*t25*t78-4.727288888888889d-2*t32
14874     :         *t444*t77+4.727288888888889d-2*t137*t140*t300*t77+9.45457
14875     ;         7777777778d-2*t137*t153*t289*t77+2.6666666666666666d+0*t1
14876     <         48*t462*t72*t75+5.333333333333333d+1*t147*t304*t387*t72*t
14877     =         75-1.0666666666666666d+1*t147*t210*t350*t72*t75-2.1333333
14878     >         333333332d+1*t174*t210*t292*t72*t75+2.6666666666666666d+0
14879     ?         *t135*t148*t350*t75+2.6666666666666666d+0*t147*t148*t348*
14880     @         t75-1.0666666666666666d+1*t135*t210*t304*t75+5.3333333333
14881     1         33333d+0*t148*t180*t292*t75+5.333333333333333d+0*t148*t17
14882     2         4*t287*t75-2.1333333333333332d+1*t147*t174*t180*t210*t75-
14883     3         1.0546577777777776d-1*t35*t36*t462*t73-1.0546577777777776
14884     4         d-1*t147*t302*t36*t73-2.109315555555555d-1*t155*t292*t36*
14885     5         t73-2.109315555555555d-1*t174*t269*t36*t73-1.054657777777
14886     6         7776d-1*t142*t35*t350*t73+6.764482379964267d-3*t1*t139*t1
14887     7         47*t3*t300*t35*t73-1.01467235699464d-2*t1*t147*t171*t294*
14888     8         t3*t35*t73+1.3528964759928536d-2*t1*t139*t153*t292*t3*t35
14889     9         *t73-2.109315555555555d-1*t174*t288*t35*t73-8.88888888888
14890     :         8888d-1*t146*t348*t73-8.888888888888888d-1*t135*t342*t73+
14891     ;         1.3528964759928536d-2*t1*t139*t147*t153*t155*t3*t73-1.777
14892     <         7777777777776d+0*t180*t291*t73-1.7777777777777776d+0*t264
14893     =         *t287*t73-2.109315555555555d-1*t142*t155*t174*t73+2.66666
14894     >         66666666666d+0*t146*t148*t350*t72+2.6666666666666666d+0*t
14895     ?         147*t148*t342*t72-1.0666666666666666d+1*t146*t210*t304*t7
14896     @         2+5.333333333333333d+0*t148*t264*t292*t72+5.3333333333333
14897     1         33d+0*t148*t174*t291*t72-2.1333333333333332d+1*t147*t174*
14898     2         t210*t264*t72-2.0d+0*t121*(-1.475609999999999d-1*t106*t45
14899     3         0*t56-2.2134149999999983d-1*t105*t294*t311*t390*t56+1.475
14900     4         609999999999d-1*t102*t105*t214*t300*t56-7.378049999999994
14901     5         d-2*t105*t214*t216*t294*t56+2.951219999999998d-1*t102*t15
14902     6         3*t214*t272*t56-1.475609999999999d-1*t119*(t458+t457+t456
14903     7         +t455+t449+t448+t447+t446)*t50-8.853659999999993d-1*t118*
14904     8         t331*t405*t50+2.951219999999998d-1*t118*t232*t332*t50+5.9
14905     9         02439999999995d-1*t166*t232*t279*t50+1.475609999999999d-1
14906     :         *t105*t106*t119*t332-2.951219999999998d-1*t105*t106*t232*
14907     ;         t331-7.378049999999994d-2*t118*t119*t214*t294*t311+7.3780
14908     <         49999999994d-2*t102*t106*t118*t119*t300-3.689024999999997
14909     =         d-2*t106*t118*t119*t216*t294+1.475609999999999d-1*t102*t1
14910     >         06*t119*t153*t279+2.951219999999998d-1*t106*t119*t166*t27
14911     ?         2-2.951219999999998d-1*t102*t106*t118*t153*t166*t232-2.95
14912     @         1219999999998d-1*t102*t105*t119*t153*t166*t214)*t59-4.0d+
14913     1         0*t120*t322*t404*t59+2.0d+0*t120*t230*t333*t59+4.0d+0*t16
14914     2         7*t230*t280*t59-2.0d+0*t444*t58+3.2910615692041123d-2*gam
14915     3         mabb*t16*t25*t443*t52+6.582123138408225d-2*t16*t25*t267*t
14916     4         52+1.316424627681645d-1*gammabb*t151*t16*t17*t187*t266*t5
14917     5         2+3.2910615692041123d-2*gammabb*t112*t16*t17*t25*(6.0965d
14918     6         -1*t110*(t454+t453+t452+t451+t449+t448+t447+t446)*t50+3.6
14919     7         579d+0*t109*t312*t398*t50-1.2193000000000001d+0*t109*t222
14920     8         *t317*t50-2.4386000000000002d+0*t160*t222*t275*t50+6.0965
14921     9         d-1*t106*t450*t47+9.14475d-1*t105*t294*t311*t390*t47-6.09
14922     :         65d-1*t102*t105*t214*t300*t47+3.04825d-1*t105*t214*t216*t
14923     ;         294*t47-1.2193000000000001d+0*t102*t153*t214*t272*t47-6.0
14924     <         965d-1*t105*t106*t110*t317+1.2193000000000001d+0*t105*t10
14925     =         6*t222*t312+3.04825d-1*t109*t110*t214*t294*t311-3.04825d-
14926     >         1*t102*t106*t109*t110*t300+1.524125d-1*t106*t109*t110*t21
14927     ?         6*t294-6.0965d-1*t102*t106*t110*t153*t275-1.2193000000000
14928     @         001d+0*t106*t110*t160*t272+1.2193000000000001d+0*t102*t10
14929     1         6*t109*t153*t160*t222+1.2193000000000001d+0*t102*t105*t11
14930     2         0*t153*t160*t214)-4.727288888888889d-2*t137*t28*t461+5.27
14931     3         3288888888887d-2*t36*t38*t445-4.667339636624349d-3*t140*t
14932     4         294*t335*t385*t39*t40+6.582123138408225d-2*gammabb*t111*t
14933     5         16*t17*t25*t308*t388+5.273288888888887d-2*t142*t302*t38-6
14934     6         .764482379964267d-3*t1*t139*t153*t269*t3*t38+1.0546577777
14935     7         777776d-1*t155*t288*t38+3.1639733333333325d-1*t147*t148*t
14936     8         35*t350*t36-1.265589333333333d+0*t147*t210*t304*t35*t36+6
14937     9         .327946666666665d-1*t148*t174*t292*t35*t36+6.327946666666
14938     :         665d-1*t147*t148*t155*t174*t36+3.1639733333333325d-1*t142
14939     ;         *t148*t304*t35-4.05868942797856d-2*t1*t139*t147*t148*t153
14940     <         *t174*t3*t35-2.0d+0*t114*t121*t333+2.0d+0*t114*t230*t322+
14941     =         1.8909155555555557d-1*t153*t203*t268*t32-3.29106156920411
14942     >         23d-2*gammabb*t111*t16*t17*t212*t25*t318-1.21281663370533
14943     ?         17d-2*t1*t140*t171*t207*t3*t300-2.0d+0*t120*t121*t300+4.2
14944     @         44858217968661d-2*t1*t140*t207*t284*t294*t3-2.42563326741
14945     1         06634d-2*t1*t153*t171*t207*t289*t3-1.2128166337053317d-2*
14946     2         t1*t137*t153*t268*t284*t3+3.2910615692041123d-2*gammabb*t
14947     3         111*t112*t16*t25*t299+6.582123138408225d-2*gammabb*t111*t
14948     4         112*t16*t17*t187*t296-9.454577777777778d-2*t137*t140*t203
14949     5         *t294-4.0d+0*t121*t153*t280-6.582123138408225d-2*gammabb*
14950     6         t16*t161*t17*t212*t25*t276+6.582123138408225d-2*t112*t16*
14951     7         t17*t25*t276+6.582123138408225d-2*gammabb*t112*t152*t16*t
14952     8         25*t276-4.0d+0*t121*t167*t268+6.582123138408225d-2*gammab
14953     9         b*t112*t16*t161*t25*t267+5.333333333333333d+0*t147*t148*t
14954     :         180*t264+5.333333333333333d+0*t135*t148*t174*t264-6.58212
14955     ;         3138408225d-2*t111*t16*t161*t17*t212*t25-6.58212313840822
14956     <         5d-2*gammabb*t111*t152*t16*t161*t212*t25+6.58212313840822
14957     =         5d-2*t111*t112*t152*t16*t25+4.0d+0*t120*t153*t167*t230+5.
14958     >         333333333333333d+0*t146*t148*t174*t180)*wght-1.2407009817
14959     ?         987999d+0*t2*(-3.2910615692041123d-2*gammabb*t16*t17*t298
14960     @         *t52*t89-6.582123138408225d-2*t151*t16*t17*t52*t89-6.5821
14961     1         23138408225d-2*gammabb*t151*t152*t16*t52*t89-8.8888888888
14962     2         88888d-1*t348*t73*t75+2.6666666666666666d+0*t148*t350*t72
14963     3         *t75+5.333333333333333d+0*t148*t174*t180*t75-8.8888888888
14964     4         88888d-1*t342*t72*t73-1.0546577777777776d-1*t35*t350*t36*
14965     5         t73-2.109315555555555d-1*t155*t174*t36*t73+1.352896475992
14966     6         8536d-2*t1*t139*t153*t174*t3*t35*t73-1.7777777777777776d+
14967     7         0*t180*t264*t73+5.333333333333333d+0*t148*t174*t264*t72-2
14968     8         .0d+0*t121*t333*t59+3.2910615692041123d-2*gammabb*t16*t25
14969     9         *t299*t52+6.582123138408225d-2*t152*t16*t25*t52-3.3822411
14970     :         899821336d-3*t1*t139*t3*t300*t35*t38-6.764482379964267d-3
14971     ;         *t1*t139*t153*t155*t3*t38+3.1639733333333325d-1*t148*t304
14972     <         *t35*t36+t339+t338+t337+t336+t330+t323+t321+3.29106156920
14973     =         41123d-2*gammabb*t112*t16*t17*t25*t318+t309+t307+t306+t30
14974     >         5+t303+t301+t295+6.582123138408225d-2*t112*t16*t161*t17*t
14975     ?         25+6.582123138408225d-2*gammabb*t112*t152*t16*t161*t25-4.
14976     @         0d+0*t121*t153*t167)*wght+Cmat3(iq,D3_RB_GBB_GBB)
14977            Cmat3(iq,D3_GBB_GBB_GBB) = Cmat3(iq,D3_GBB_GBB_GBB)-9.305257
14978     1         363491d-1*t22*(t73*(-8.888888888888888d-1*t75*(-2.4d+0*t6
14979     2         8*(6.41391219265211d-2*t132*(-gammabb*t16*t17*t465*t89-3*
14980     3         gammabb*t151*t16*t299*t89-3*t16*t17*t298*t89-3*gammabb*t1
14981     4         52*t16*t298*t89-6*t151*t152*t16*t89+gammabb*t16*t25*t466-
14982     5         6*gammabb*t16*t17*t365*t464+3*t16*t25*t299+6*gammabb*t151
14983     6         *t16*t17*t187*t298+6*t16*t17*t187*t296+6*gammabb*t152*t16
14984     7         *t187*t296)-5.0d-1*t131*t467-3.75d-1*t418*t463+4.81043414
14985     8         4489083d-2*t178**3*t417-9.620868288978166d-2*t178*t249*t3
14986     9         46+7.5d-1*t153*t251*t300)-8.400000000000001d+0*t130*t467*
14987     :         t71-3.15d+1*t416*t463*t71-6.3d+1*t153*t248*t300*t71-2.725
14988     ;         9596d+0*t467*t67+4.7459599999999996d-2*t468*t66+5.6727466
14989     <         66666666d-2*t467*t66-1.6355757600000004d+1*t153*t300*t66+
14990     =         4.7459599999999996d-2*t35*t467-4.9628707825354457d+0*t130
14991     >         *t467-1.8610765434507923d+1*t416*t463-5.4519192d+0*t463-2
14992     ?         .52d+1*t130*t153*t347+1.423788d-1*t153*t302-3.72215308690
14993     @         15845d+1*t153*t248*t300-2.52d+1*t130*t179*t300+1.423788d-
14994     1         1*t155*t300+1.7018239999999996d-1*t153*t300-6.3d+1*t179*t
14995     2         248*t294)-8.888888888888888d-1*t72*(-2.4682961769030842d-
14996     3         2*t39*t40*t467*t77-1.4431302433467247d-1*t1*t139*t3*t467-
14997     4         1.4809777061418505d-1*t335*t39*t40*t463-5.411738412550218
14998     5         d-1*t1*t284*t3*t463+1.4809777061418505d-1*t153*t203*t300*
14999     6         t39*t40+6.494086095060261d-1*t1*t153*t171*t3*t300)-1.0546
15000     7         577777777776d-1*t35*t36*t481-3.1639733333333325d-1*t155*t
15001     8         350*t36-3.1639733333333325d-1*t174*t302*t36+1.35289647599
15002     9         28536d-2*t1*t139*t153*t3*t35*t350+6.764482379964267d-3*t1
15003     :         *t139*t174*t3*t300*t35-1.01467235699464d-2*t1*t171*t174*t
15004     ;         294*t3*t35-2.6666666666666666d+0*t177*t348-2.666666666666
15005     <         6666d+0*t180*t342+2.02934471398928d-2*t1*t139*t153*t155*t
15006     =         174*t3)+7.57211d-1*(-1.6455307846020562d-2*gammabb*t16*t1
15007     >         7*t465*t61*t65*t89-4.9365923538061685d-2*gammabb*t151*t16
15008     ?         *t299*t61*t65*t89-4.9365923538061685d-2*t16*t17*t298*t61*
15009     @         t65*t89-4.9365923538061685d-2*gammabb*t152*t16*t298*t61*t
15010     1         65*t89-9.873184707612337d-2*t151*t152*t16*t61*t65*t89+4.9
15011     2         365923538061685d-2*gammabb*t126*t151*t16*t17*t328*t65*t89
15012     3         -9.873184707612337d-2*gammabb*t151*t16*t17*t242*t325*t65*
15013     4         t89+4.9365923538061685d-2*gammabb*t126*t16*t169*t17*t298*
15014     5         t65*t89+9.873184707612337d-2*t126*t151*t16*t169*t17*t65*t
15015     6         89+9.873184707612337d-2*gammabb*t126*t151*t152*t16*t169*t
15016     7         65*t89-2.4682961769030842d-2*gammabb*t151*t16*t17*t245*t2
15017     8         94*t329*t61*t89+2.4682961769030842d-2*gammabb*t107*t128*t
15018     9         151*t16*t17*t300*t61*t89+2.4682961769030842d-2*gammabb*t1
15019     :         07*t128*t153*t16*t17*t298*t61*t89-1.2341480884515421d-2*g
15020     ;         ammabb*t128*t151*t16*t17*t223*t294*t61*t89+4.936592353806
15021     <         1685d-2*t107*t128*t151*t153*t16*t17*t61*t89+4.93659235380
15022     =         61685d-2*gammabb*t107*t128*t151*t152*t153*t16*t61*t89-4.9
15023     >         365923538061685d-2*gammabb*t107*t126*t128*t151*t153*t16*t
15024     ?         169*t17*t89+1.6455307846020562d-2*gammabb*t16*t25*t466*t6
15025     @         1*t65-9.873184707612337d-2*gammabb*t16*t17*t365*t464*t61*
15026     1         t65+4.9365923538061685d-2*t16*t25*t299*t61*t65+9.87318470
15027     2         7612337d-2*gammabb*t151*t16*t17*t187*t298*t61*t65+9.87318
15028     3         4707612337d-2*t16*t17*t187*t296*t61*t65+9.873184707612337
15029     4         d-2*gammabb*t152*t16*t187*t296*t61*t65-1.6455307846020562
15030     5         d-2*gammabb*t126*t16*t17*t25*t480*t65-9.873184707612337d-
15031     6         2*gammabb*t16*t17*t25*t412*t476*t65+9.873184707612337d-2*
15032     7         gammabb*t16*t169*t17*t242*t25*t328*t65-4.9365923538061685
15033     8         d-2*t126*t16*t17*t25*t328*t65-4.9365923538061685d-2*gamma
15034     9         bb*t126*t152*t16*t25*t328*t65+9.873184707612337d-2*t16*t1
15035     :         7*t242*t25*t325*t65+9.873184707612337d-2*gammabb*t152*t16
15036     ;         *t242*t25*t325*t65-4.9365923538061685d-2*gammabb*t126*t16
15037     <         *t169*t25*t299*t65-9.873184707612337d-2*gammabb*t126*t16*
15038     =         t169*t17*t187*t296*t65-9.873184707612337d-2*t126*t152*t16
15039     >         *t169*t25*t65+t467*t61*t63-t126*t480*t59*t63-6*t412*t476*
15040     ?         t59*t63+6*t169*t242*t328*t59*t63-3*t126*t153*t328*t63+6*t
15041     @         153*t242*t325*t63-3*t126*t169*t300*t63-7.5d-1*t239*t463*t
15042     1         59*t61/t53**2-5.0d-1*t116*t124*t467*t59*t61-7.5d-1*t233*t
15043     2         410*t463*t59*t61-3.75d-1*t124*t406*t463*t59*t61+1.5d+0*t1
15044     3         53*t239*t300*t324*t59*t61+7.5d-1*t124*t153*t233*t300*t59*
15045     4         t61-8.227653923010281d-3*gammabb*t107*t128*t16*t17*t25*t4
15046     5         67*t61-1.2341480884515421d-2*gammabb*t16*t17*t245*t25*t46
15047     6         3*t61/t42**2-1.2341480884515421d-2*gammabb*t16*t17*t223*t
15048     7         25*t414*t463*t61-6.170740442257711d-3*gammabb*t128*t16*t1
15049     8         7*t25*t399*t463*t61+1.5d+0*t239*t324*t463*t61+7.5d-1*t124
15050     9         *t233*t463*t61+2.4682961769030842d-2*gammabb*t153*t16*t17
15051     :         *t245*t25*t300*t329*t61+2.4682961769030842d-2*t16*t17*t24
15052     ;         5*t25*t294*t329*t61+2.4682961769030842d-2*gammabb*t152*t1
15053     <         6*t245*t25*t294*t329*t61+1.2341480884515421d-2*gammabb*t1
15054     =         28*t153*t16*t17*t223*t25*t300*t61-2.4682961769030842d-2*t
15055     >         107*t128*t16*t17*t25*t300*t61-2.4682961769030842d-2*gamma
15056     ?         bb*t107*t128*t152*t16*t25*t300*t61-3*t116*t124*t153*t300*
15057     @         t61-2.4682961769030842d-2*gammabb*t107*t128*t153*t16*t25*
15058     1         t299*t61-4.9365923538061685d-2*gammabb*t107*t128*t153*t16
15059     2         *t17*t187*t296*t61+1.2341480884515421d-2*t128*t16*t17*t22
15060     3         3*t25*t294*t61+1.2341480884515421d-2*gammabb*t128*t152*t1
15061     4         6*t223*t25*t294*t61-4.9365923538061685d-2*t107*t128*t152*
15062     5         t153*t16*t25*t61+1.5d+0*t116*t124*t126*t153*t328*t59-3*t1
15063     6         16*t124*t153*t242*t325*t59-1.5d+0*t126*t169*t239*t294*t32
15064     7         4*t59+1.5d+0*t116*t124*t126*t169*t300*t59-7.5d-1*t124*t12
15065     8         6*t169*t233*t294*t59-2.4682961769030842d-2*gammabb*t126*t
15066     9         16*t169*t17*t245*t25*t294*t329+2.4682961769030842d-2*gamm
15067     :         abb*t107*t126*t128*t153*t16*t17*t25*t328-4.93659235380616
15068     ;         85d-2*gammabb*t107*t128*t153*t16*t17*t242*t25*t325+2.4682
15069     <         961769030842d-2*gammabb*t107*t126*t128*t16*t169*t17*t25*t
15070     =         300-1.2341480884515421d-2*gammabb*t126*t128*t16*t169*t17*
15071     >         t223*t25*t294+3*t116*t124*t126*t169*t294+4.93659235380616
15072     ?         85d-2*t107*t126*t128*t153*t16*t169*t17*t25+4.936592353806
15073     @         1685d-2*gammabb*t107*t126*t128*t152*t153*t16*t169*t25)+t1
15074     1         6*(-3.2910615692041123d-2*gammabb*t17*t465*t52-3.29106156
15075     2         92041123d-2*gammabb*t151*t299*t52-6.582123138408225d-2*t1
15076     3         7*t298*t52-6.582123138408225d-2*gammabb*t152*t298*t52-6.5
15077     4         82123138408225d-2*t151*t152*t52-2*t151*t310-3.29106156920
15078     5         41123d-2*gammabb*t112*t161*t17*t298-t163*t298-3.291061569
15079     6         2041123d-2*t112*t151*t161*t17-3.2910615692041123d-2*gamma
15080     7         bb*t112*t151*t152*t161)*t89+t112*t16*(-t151*t319-6.582123
15081     8         138408225d-2*gammabb*t151*t17*t318-6.582123138408225d-2*g
15082     9         ammabb*t161*t17*t298-6.582123138408225d-2*t151*t161*t17-6
15083     :         .582123138408225d-2*gammabb*t151*t152*t161)*t89+9.8731847
15084     ;         07612337d-2*gammabb*t151*t16*t17*t212*t308*t89-4.72728888
15085     <         8888889d-2*t32*t467*t77+t148*(2.6666666666666666d+0*t481*
15086     =         t72*t75+5.333333333333333d+0*t180*t350*t75+2.666666666666
15087     >         6666d+0*t174*t348*t75+5.333333333333333d+0*t177*t350*t72+
15088     ?         2.6666666666666666d+0*t174*t342*t72-3.0d+0*t174*(-1.05465
15089     @         77777777776d-1*t155*t174*t36+t351+t349+t344+t343+t341)-3.
15090     1         0d+0*t174*t352-3.0d+0*t181*t350+5.333333333333333d+0*t174
15091     2         *t177*t180)+t210*(-2.1333333333333332d+1*t174*t350*t72*t7
15092     3         5-1.0666666666666666d+1*t180*t304*t75-1.0666666666666666d
15093     4         +1*t177*t304*t72-4.0d+0*t174*t353)+5.333333333333333d+1*t
15094     5         174**3*t387*t72*t75+t139*t3*(6.764482379964267d-3*t1*t153
15095     6         *t35*t350+6.764482379964267d-3*t1*t174*t300*t35-2.0d+0*t1
15096     7         74*t340+6.764482379964267d-3*t1*t153*t155*t174)*t73-2.029
15097     8         34471398928d-2*t1*t171*t174*t294*t3*t35*t73+t121*(-2.0d+0
15098     9         *(-1.1067074999999992d-1*t214*t463*t469*t56-7.37804999999
15099     :         9994d-2*t102*t106*t467*t56-5.533537499999995d-2*t106*t392
15100     ;         *t463*t56-1.1067074999999992d-1*t216*t390*t463*t56+2.2134
15101     <         149999999983d-1*t153*t214*t300*t311*t56+1.106707499999999
15102     =         2d-1*t106*t153*t216*t300*t56-1.475609999999999d-1*t119*(t
15103     >         479+t478+t477+t475+t474+t473)*t50-8.853659999999993d-1*t1
15104     ?         66**3*t405*t50+8.853659999999993d-1*t166*t232*t332*t50+2.
15105     @         2134149999999983d-1*t102*t106*t119*t153*t332-4.4268299999
15106     1         999966d-1*t102*t106*t153*t232*t331-2.2134149999999983d-1*
15107     2         t119*t166*t214*t294*t311+2.2134149999999983d-1*t102*t106*
15108     3         t119*t166*t300-1.1067074999999992d-1*t106*t119*t166*t216*
15109     4         t294)*t59-6.0d+0*t153*t333-6.0d+0*t167*t300)+t230*(4.0d+0
15110     5         *t167*t333*t59-t167*t334+2.0d+0*t153*t322)-4.0d+0*t167**3
15111     6         *t404*t59-2.0d+0*t467*t58+t16*t25*(3.2910615692041123d-2*
15112     7         gammabb*t466*t52+9.873184707612337d-2*t299*t52+3.29106156
15113     8         92041123d-2*t112*t17*t318+3.2910615692041123d-2*gammabb*t
15114     9         112*t152*t318-3.2910615692041123d-2*t17*t212*t308-3.29106
15115     :         15692041123d-2*gammabb*t152*t212*t308+6.582123138408225d-
15116     ;         2*gammabb*t112*t161*t299+1.316424627681645d-1*t112*t152*t
15117     <         161)+t16*t187*(1.316424627681645d-1*gammabb*t151*t17*t298
15118     =         *t52+6.582123138408225d-2*t17*t296*t52+6.582123138408225d
15119     >         -2*gammabb*t152*t296*t52-2*t151*t320)-1.9746369415224674d
15120     ?         -1*gammabb*t16*t17*t365*t464*t52+t112*t16*t25*(3.29106156
15121     @         92041123d-2*gammabb*t17*(6.0965d-1*t110*(t475+t474+t473+t
15122     1         472+t471+t470)*t50+3.6579d+0*t160**3*t398*t50-3.6579d+0*t
15123     2         160*t222*t317*t50+4.572375d-1*t214*t463*t469*t47+3.04825d
15124     3         -1*t102*t106*t467*t47+2.2861875d-1*t106*t392*t463*t47+4.5
15125     4         72375d-1*t216*t390*t463*t47-9.14475d-1*t153*t214*t300*t31
15126     5         1*t47-4.572375d-1*t106*t153*t216*t300*t47-9.14475d-1*t102
15127     6         *t106*t110*t153*t317+1.82895d+0*t102*t106*t153*t222*t312+
15128     7         9.14475d-1*t110*t160*t214*t294*t311-9.14475d-1*t102*t106*
15129     8         t110*t160*t300+4.572375d-1*t106*t110*t160*t216*t294)+6.58
15130     9         2123138408225d-2*t17*t318+6.582123138408225d-2*gammabb*t1
15131     :         52*t318+3.2910615692041123d-2*gammabb*t161*t299+6.5821231
15132     ;         38408225d-2*t152*t161)+5.273288888888887d-2*t36*t38*t468+
15133     <         t139*t3*t38*(-3.3822411899821336d-3*t1*t35*t467-1.0146723
15134     =         5699464d-2*t1*t153*t302-1.01467235699464d-2*t1*t155*t300)
15135     >         +6.064083168526658d-3*t1*t137*t171*t3*t467-1.166834909156
15136     ?         0873d-2*t207*t39*t40*t460*t463+8.641318515150488d-2*t1*t1
15137     @         37*t3*t439*t463+5.987181320518676d-4*t1**3*t385*t463/(rho
15138     1         b*t29**11)-1.2683404462433d-2*t1*t284*t3*t35*t38*t463-2.8
15139     2         363733333333335d-1*t32*t335*t463+4.667339636624349d-3*t15
15140     3         3*t207*t300*t335*t39*t40+6.582123138408225d-2*gammabb*t16
15141     4         *t161**3*t17*t25*t388+t171*t3*(1.01467235699464d-2*t1*t15
15142     5         3*t300*t35+5.0733617849732d-3*t1*t155*t294)*t38-1.5d+0*t1
15143     6         53*t171*t3*t340*t38-2.02934471398928d-2*t1*t139*t148*t153
15144     7         *t3*t304*t35+2.8363733333333335d-1*t153*t203*t300*t32+t16
15145     8         *t212*t25*(-t161*t319-6.582123138408225d-2*gammabb*t161*t
15146     9         17*t318-3.2910615692041123d-2*t17*t308-3.2910615692041123
15147     :         d-2*gammabb*t152*t308)-6.367287326952992d-2*t1*t137*t153*
15148     ;         t284*t3*t300+1.9746369415224674d-1*gammabb*t112*t16*t161*
15149     <         t17*t187*t296)*wght
15150          endif ! rhoa.gt.tol_rho.and.rhob.gt.tol_rho
15151        endif ! ipol.eq.1
15152      enddo ! iq
15153      end
15154C> @}
15155