1 /*-*-mode:
2 
3 !
4 !  Dalton, a molecular electronic structure program
5 !  Copyright (C) by the authors of Dalton.
6 !
7 !  This program is free software; you can redistribute it and/or
8 !  modify it under the terms of the GNU Lesser General Public
9 !  License version 2.1 as published by the Free Software Foundation.
10 !
11 !  This program is distributed in the hope that it will be useful,
12 !  but WITHOUT ANY WARRANTY; without even the implied warranty of
13 !  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 !  Lesser General Public License for more details.
15 !
16 !  If a copy of the GNU LGPL v2.1 was not distributed with this
17 !  code, you can obtain one at https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html.
18 !
19 
20 !
21 
22 */
23 /* fun-hcth93m.c:
24 
25    Automatically generated code implementing HCTH93m functional and
26    its derivatives. It is generated by func-codegen.pl being a part of
27    a "Automatic code generation framework for analytical functional
28    derivative evaluation", Pawel Salek, 2005
29 
30    Reference: G. Menconi and D.J. Tozer, Mol. Phys., 103, 2397 (2005).
31    Implemented and tested by: D.J. Wilson (david.wilson@latrobe.edu.au)
32 
33     This functional is connected by making following changes:
34     1. add "extern Functional hcth93mFunctional;" to 'functionals.h'
35     2. add "&hcth93mFunctional," to 'functionals.c'
36     3. add "fun-hcth93m.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.
37 
38     This functional has been generated from following input:
39     ------ cut here -------
40 xa: (grada/rhoa^(4/3));
41 xb: (gradb/rhob^(4/3));
42 
43 pa: 1;
44 Aa: 0.016887;
45 a1a: 0.11125;
46 b1a: 10.357;
47 b2a: 3.6231;
48 b3a: 0.88026;
49 b4a: 0.49671;
50 
51 pe: 1;
52 c0p: 0.031091;
53 a1p: 0.21370;
54 b1p: 7.5957;
55 b2p: 3.5876;
56 b3p: 1.6382;
57 b4p: 0.49294;
58 
59 c0f: 0.01554500000;
60 a1f: 0.20548;
61 b1f: 14.1189;
62 b2f: 6.1977;
63 b3f: 3.3662;
64 b4f: 0.62517;
65 
66 ccab: [0.622261,    3.70296,   -14.9002,    15.7020, -6.06736];
67 ccaa: [0.492391,  0.0855389,   0.199153,   -1.84414,  2.18076];
68 cx:   [1.07785,   -0.520534,    4.71345,   -5.75813,  3.12925];
69 
70 rs(r):= (3/(4*%PI*r))^(1/3);
71 z(ra,rb):= (ra-rb)/(ra+rb);
72 fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);
73 
74 d2fz0: 1.709921;
75 
76 Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
77    *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));
78 
79 Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
80 EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
81 EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);
82 
83 
84 EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
85    Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
86    (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
87    (z(ra,rb))^4);
88 
89 EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);
90 
91 gcab: 0.006;
92 gcaa: 0.2;
93 
94 cx0: -3/8*((16*3/%PI)^(1/3));
95 gx: 0.004;
96 
97 Ucab(t):= gcab*t/(1+gcab*t);
98 Ucaa(t):= gcaa*t/(1+gcaa*t);
99 
100 Gcab(t):= ccab[1] + ccab[2]*Ucab(t)   + ccab[3]*Ucab(t)^2
101                   + ccab[4]*Ucab(t)^3 + ccab[5]*Ucab(t)^4;
102 
103 Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t)   + ccaa[3]*Ucaa(t)^2
104                   + ccaa[4]*Ucaa(t)^3 + ccaa[5]*Ucaa(t)^4;
105 
106 Ux(r):= gx*r/(1+gx*r);
107 
108 ExLSDAa: (cx0*rhoa^(4/3));
109 ExLSDAb: (cx0*rhob^(4/3));
110 
111 Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2 + cx[4]*Ux(t)^3 + cx[5]*Ux(t)^4;
112 
113 K(rhoa,grada,rhob,gradb,gradab):=
114    EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
115  + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
116  + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);
117 
118 
119     ------ cut here -------
120 */
121 
122 
123 /* strictly conform to XOPEN ANSI C standard */
124 #if !defined(SYS_DEC)
125 /* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
126  * is not specified. */
127 #define _XOPEN_SOURCE          500
128 #define _XOPEN_SOURCE_EXTENDED 1
129 #endif
130 #include <math.h>
131 #include <stddef.h>
132 #include "general.h"
133 
134 #define __CVERSION__
135 
136 #include "functionals.h"
137 
138 /* INTERFACE PART */
hcth93m_isgga(void)139 static integer hcth93m_isgga(void) { return 1; } /* FIXME: detect! */
140 static integer hcth93m_read(const char *conf_line);
141 static real hcth93m_energy(const FunDensProp* dp);
142 static void hcth93m_first(FunFirstFuncDrv *ds,   real factor,
143                          const FunDensProp* dp);
144 static void hcth93m_second(FunSecondFuncDrv *ds, real factor,
145                           const FunDensProp* dp);
146 static void hcth93m_third(FunThirdFuncDrv *ds,   real factor,
147                          const FunDensProp* dp);
148 static void hcth93m_fourth(FunFourthFuncDrv *ds,   real factor,
149                           const FunDensProp* dp);
150 
151 Functional HCTH93mFunctional = {
152   "HCTH93m",       /* name */
153   hcth93m_isgga,   /* gga-corrected */
154    1,
155   hcth93m_read,
156   NULL,
157   hcth93m_energy,
158   hcth93m_first,
159   hcth93m_second,
160   hcth93m_third,
161   hcth93m_fourth
162 };
163 
164 /* IMPLEMENTATION PART */
165 static integer
hcth93m_read(const char * conf_line)166 hcth93m_read(const char *conf_line)
167 {
168     fun_set_hf_weight(0);
169     return 1;
170 }
171 
172 static real
hcth93m_energy(const FunDensProp * dp)173 hcth93m_energy(const FunDensProp *dp)
174 {
175     real res;
176     real rhoa = dp->rhoa, rhob = dp->rhob;
177     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
178 
179     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
180     real t11, t12, t13, t14, t15, t16, t17, t18;
181     real t19, t20, t21, t22, t23, t24, t25, t26;
182     real t27, t28, t29, t30, t31, t32, t33, t34;
183     real t35, t36, t37, t38, t39, t40, t41, t42;
184     real t43, t44, t45, t46, t47, t48, t49, t50;
185     real t51, t52, t53, t54;
186 
187     t1 = pow(3.0,0.666666666666667);
188     t2 = 1/pow(4.0,0.666666666666667);
189     t3 = 1/pow(3.141592653589793,0.666666666666667);
190     t4 = 1.732050807568877;
191     t5 = 0.564189583547756;
192     t6 = pow(3.0,0.333333333333333);
193     t7 = 1/pow(4.0,0.333333333333333);
194     t8 = 1/pow(3.141592653589793,0.333333333333333);
195     t9 = 1/pow(rhoa,0.333333333333333);
196     t10 = pow(2.0,0.333333333333333);
197     t11 = 1/t10;
198     t12 = pow(3.0,0.166666666666667);
199     t13 = 1/pow(3.141592653589793,0.166666666666667);
200     t14 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhoa,
201         0.666666666666667)+14.1189*t11*t12*t13/pow(rhoa,0.166666666666667)+
202         1.6831*t4*t5/sqrt(rhoa)+6.1977*t6*t7*t8*t9)+1.0);
203     t15 = pow(grada,8.0);
204     t16 = pow(grada,2.0);
205     t17 = 1/pow(rhoa,2.666666666666667);
206     t18 = 0.2*t16*t17+1.0;
207     t19 = 1/pow(rhoa,10.66666666666667);
208     t20 = pow(grada,6.0);
209     t21 = 1/pow(rhoa,8.0);
210     t22 = pow(grada,4.0);
211     t23 = 1/pow(rhoa,5.333333333333333);
212     t24 = 0.20548*t6*t7*t8*t9+1.0;
213     t25 = pow(6.0,0.333333333333333);
214     t26 = 0.004*t16*t17+1.0;
215     t27 = 1/pow(rhob,0.333333333333333);
216     t28 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhob,
217         0.666666666666667)+14.1189*t11*t12*t13/pow(rhob,0.166666666666667)+
218         1.6831*t4*t5/sqrt(rhob)+6.1977*t6*t7*t8*t27)+1.0);
219     t29 = pow(gradb,8.0);
220     t30 = pow(gradb,2.0);
221     t31 = 1/pow(rhob,2.666666666666667);
222     t32 = 0.2*t30*t31+1.0;
223     t33 = 1/pow(rhob,10.66666666666667);
224     t34 = pow(gradb,6.0);
225     t35 = 1/pow(rhob,8.0);
226     t36 = pow(gradb,4.0);
227     t37 = 1/pow(rhob,5.333333333333333);
228     t38 = 0.20548*t6*t7*t8*t27+1.0;
229     t39 = 0.004*t30*t31+1.0;
230     t40 = 0.5*t30*t31+0.5*t16*t17;
231     t41 = 0.006*t40+1.0;
232     t42 = rhob+rhoa;
233     t43 = 1/pow(t42,0.333333333333333);
234     t44 = 0.2137*t6*t7*t8*t43+1.0;
235     t45 = 1/pow(t42,0.666666666666667);
236     t46 = 1/sqrt(t42);
237     t47 = 1/pow(t42,0.166666666666667);
238     t48 = log(16.0818243221511/(7.5957*t11*t12*t13*t47+3.5876*
239         t6*t7*t8*t43+0.8191*t4*t5*t46+0.49294*t1*t2*t3*t45)+1.0);
240     t49 = 1/
241         (2.0*t10-2.0);
242     t50 = rhoa-1.0*rhob;
243     t51 = pow(t50,4.0);
244     t52 = 1/pow(t42,4.0);
245     t53 = 1/t42;
246     t54 = pow(t50*t53+1.0,1.333333333333333)+pow(1.0-1.0*
247         t50*t53,1.333333333333333)-2.0;
248 
249    /* code */
250     res = -0.75*t25*(8.01088E-10*t29*t33/pow(t39,4.0)-3.685203200000001E-7*
251         t34*t35/pow(t39,3.0)+7.54152E-5*t36*t37/pow(t39,2.0)-0.002082136*
252         t30*t31/t39+1.07785)*t8*pow(rhob,1.333333333333333)+(-7.86329856E-9*
253         pow(t40,4.0)/pow(t41,4.0)+3.391632E-6*pow(t40,3.0)/pow(t41,
254         3.0)-5.364072E-4*pow(t40,2.0)/pow(t41,2.0)+0.02221776*t40/
255         t41+0.622261)*(0.03109*t28*t38*rhob+0.03109*t14*t24*rhoa+t42*
256         (0.019751789702565*(0.11125*t6*t7*t8*t43+1.0)*log(29.60857464321668/
257         (10.357*t11*t12*t13*t47+3.6231*t6*t7*t8*t43+0.44013*t4*t5*
258         t46+0.49671*t1*t2*t3*t45)+1.0)*t49*(1.0-1.0*t51*t52)*t54+(0.062182*
259         t44*t48-0.03109*(0.20548*t6*t7*t8*t43+1.0)*log(32.1646831778707/
260         (14.1189*t11*t12*t13*t47+6.1977*t6*t7*t8*t43+1.6831*t4*t5*
261         t46+0.62517*t1*t2*t3*t45)+1.0))*t49*t51*t52*t54-0.062182*t44*
262         t48))-0.03109*t28*(0.00796612*t36*t37/pow(t32,2.0)-0.01475312*
263         t34*t35/pow(t32,3.0)+0.003489216*t29*t33/pow(t32,4.0)+0.01710778*
264         t30*t31/t32+0.492391)*t38*rhob-0.75*t25*(8.01088E-10*t15*t19/
265         pow(t26,4.0)-3.685203200000001E-7*t20*t21/pow(t26,3.0)+7.54152E-5*
266         t22*t23/pow(t26,2.0)-0.002082136*t16*t17/t26+1.07785)*t8*pow(rhoa,
267         1.333333333333333)-0.03109*t14*(0.00796612*t22*t23/pow(t18,
268         2.0)-0.01475312*t20*t21/pow(t18,3.0)+0.003489216*t15*t19/pow(t18,
269         4.0)+0.01710778*t16*t17/t18+0.492391)*t24*rhoa;
270 
271     return res;
272 }
273 
274 static void
hcth93m_first(FunFirstFuncDrv * ds,real factor,const FunDensProp * dp)275 hcth93m_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
276 {
277     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
278     real rhoa = dp->rhoa, rhob = dp->rhob;
279     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
280 
281     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
282     real t11, t12, t13, t14, t15, t16, t17, t18;
283     real t19, t20, t21, t22, t23, t24, t25, t26;
284     real t27, t28, t29, t30, t31, t32, t33, t34;
285     real t35, t36, t37, t38, t39, t40, t41, t42;
286     real t43, t44, t45, t46, t47, t48, t49, t50;
287     real t51, t52, t53, t54, t55, t56, t57, t58;
288     real t59, t60, t61, t62, t63, t64, t65, t66;
289     real t67, t68, t69, t70, t71, t72, t73, t74;
290     real t75, t76, t77, t78, t79, t80, t81, t82;
291     real t83, t84, t85, t86, t87, t88, t89, t90;
292     real t91, t92, t93, t94, t95, t96, t97, t98;
293     real t99, t100, t101, t102, t103, t104, t105;
294     real t106, t107, t108, t109, t110, t111, t112;
295     real t113, t114, t115, t116, t117, t118, t119;
296     real t120, t121, t122, t123, t124, t125, t126;
297     real t127, t128, t129, t130, t131, t132, t133;
298     real t134, t135, t136, t137, t138, t139, t140;
299     real t141, t142, t143, t144, t145, t146, t147;
300     real t148, t149, t150, t151, t152, t153, t154;
301     real t155, t156, t157, t158, t159, t160, t161;
302     real t162, t163, t164, t165, t166;
303 
304     t1 = pow(3.0,0.333333333333333);
305     t2 = 1/pow(4.0,0.333333333333333);
306     t3 = 1/pow(3.141592653589793,0.333333333333333);
307     t4 = pow(3.0,0.666666666666667);
308     t5 = 1/pow(4.0,0.666666666666667);
309     t6 = 1/pow(3.141592653589793,0.666666666666667);
310     t7 = 1.732050807568877;
311     t8 = 0.564189583547756;
312     t9 = sqrt(rhoa);
313     t10 = pow(rhoa,0.333333333333333);
314     t11 = 1/t10;
315     t12 = pow(2.0,0.333333333333333);
316     t13 = 1/t12;
317     t14 = pow(3.0,0.166666666666667);
318     t15 = 1/pow(3.141592653589793,0.166666666666667);
319     t16 = 0.62517*t4*t5*t6/pow(rhoa,0.666666666666667)+14.1189*
320         t13*t14*t15/pow(rhoa,0.166666666666667)+1.6831*t7*t8/t9+6.1977*
321         t1*t2*t3*t11;
322     t17 = 32.1646831778707/t16+1.0;
323     t18 = log(t17);
324     t19 = pow(grada,8.0);
325     t20 = pow(grada,2.0);
326     t21 = 1/pow(rhoa,2.666666666666667);
327     t22 = 0.2*t20*t21+1.0;
328     t23 = 1/pow(t22,4.0);
329     t24 = 1/pow(rhoa,10.66666666666667);
330     t25 = pow(grada,6.0);
331     t26 = 1/pow(t22,3.0);
332     t27 = 1/pow(rhoa,8.0);
333     t28 = pow(grada,4.0);
334     t29 = 1/pow(t22,2.0);
335     t30 = 1/pow(rhoa,5.333333333333333);
336     t31 = 1/t22;
337     t32 = 0.01710778*t20*t31*t21+0.00796612*t28*t29*t30-0.01475312*
338         t25*t26*t27+0.003489216*t19*t23*t24+0.492391;
339     t33 = 0.20548*t1*t2*t3*t11+1.0;
340     t34 = pow(6.0,0.333333333333333);
341     t35 = 0.004*t20*t21+1.0;
342     t36 = 1/pow(t35,4.0);
343     t37 = 1/pow(t35,3.0);
344     t38 = 1/pow(t35,2.0);
345     t39 = 1/t35;
346     t40 = pow(grada,10.0);
347     t41 = 1/pow(t22,5.0);
348     t42 = 1/pow(rhoa,14.33333333333333);
349     t43 = 1/pow(rhoa,11.66666666666667);
350     t44 = 1/pow(rhoa,9.0);
351     t45 = 1/pow(rhoa,6.333333333333333);
352     t46 = 1/pow(rhoa,3.666666666666667);
353     t47 = 1/t17;
354     t48 = pow(rhoa,1.333333333333333);
355     t49 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
356         t13*t14*t15/pow(rhoa,1.166666666666667)-0.84155*t7*t8/pow(t9,
357         3.0)-2.0659*t1*t2*t3/t48;
358     t50 = 1/pow(t16,2.0);
359     t51 = 1/pow(t35,5.0);
360     t52 = pow(gradb,2.0);
361     t53 = 1/pow(rhob,2.666666666666667);
362     t54 = 0.5*t52*t53+0.5*t20*t21;
363     t55 = pow(t54,4.0);
364     t56 = 0.006*t54+1.0;
365     t57 = 1/pow(t56,4.0);
366     t58 = pow(t54,3.0);
367     t59 = 1/pow(t56,3.0);
368     t60 = pow(t54,2.0);
369     t61 = 1/pow(t56,2.0);
370     t62 = 1/t56;
371     t63 = 0.02221776*t54*t62-5.364072E-4*t60*t61+3.391632E-6*
372         t58*t59-7.86329856E-9*t55*t57+0.622261;
373     t64 = rhob+rhoa;
374     t65 = 1/pow(t64,0.333333333333333);
375     t66 = 0.2137*t1*t2*t3*t65+1.0;
376     t67 = 1/pow(t64,0.666666666666667);
377     t68 = sqrt(t64);
378     t69 = 1/t68;
379     t70 = 1/pow(t64,0.166666666666667);
380     t71 = 7.5957*t13*t14*t15*t70+3.5876*t1*t2*t3*t65+0.8191*
381         t7*t8*t69+0.49294*t4*t5*t6*t67;
382     t72 = 16.0818243221511/t71+1.0;
383     t73 = log(t72);
384     t74 = -0.062182*t66*t73;
385     t75 = 1/(2.0*t12-2.0);
386     t76 = rhoa-1.0*rhob;
387     t77 = pow(t76,4.0);
388     t78 = 1/pow(t64,4.0);
389     t79 = 1.0-1.0*t77*t78;
390     t80 = 0.11125*t1*t2*t3*t65+1.0;
391     t81 = 1/t64;
392     t82 = 1.0-1.0*t76*t81;
393     t83 = t76*t81+1.0;
394     t84 = pow(t83,1.333333333333333)+pow(t82,1.333333333333333)-
395         2.0;
396     t85 = 10.357*t13*t14*t15*t70+3.6231*t1*t2*t3*t65+0.44013*
397         t7*t8*t69+0.49671*t4*t5*t6*t67;
398     t86 = 29.60857464321668/t85+1.0;
399     t87 = log(t86);
400     t88 = 0.019751789702565*t75*t79*t80*t84*t87;
401     t89 = 0.20548*t1*t2*t3*t65+1.0;
402     t90 = 14.1189*t13*t14*t15*t70+6.1977*t1*t2*t3*t65+1.6831*
403         t7*t8*t69+0.62517*t4*t5*t6*t67;
404     t91 = 32.1646831778707/t90+1.0;
405     t92 = log(t91);
406     t93 = 0.062182*t66*t73-0.03109*t89*t92;
407     t94 = t75*t77*t78*t84*t93;
408     t95 = 1/pow(t64,1.666666666666667);
409     t96 = 1/pow(t68,3.0);
410     t97 = 1/pow(t64,1.333333333333333);
411     t98 = 1/pow(t64,1.166666666666667);
412     t99 = -1.26595*t13*t14*t15*t98-1.195866666666667*t1*t2*
413         t3*t97-0.40955*t7*t8*t96-0.328626666666667*t4*t5*t6*t95;
414     t100 = 1/
415         pow(t71,2.0);
416     t101 = 1/t72;
417     t102 = 1.0*t99*t66*t100*t101;
418     t103 = -0.58482233974552*t75*t79*t80*t84*(-1.726166666666666*
419         t13*t14*t15*t98-1.2077*t1*t2*t3*t97-0.220065*t7*t8*t96-0.33114*
420         t4*t5*t6*t95)/(pow(t85,2.0)*t86);
421     t104 = 0.004429431133333*t1*t2*t3*t97*t73;
422     t105 = 1/pow(t64,2.0);
423     t106 = t76*t105;
424     t107 = -1.0*t81;
425     t108 = pow(t82,0.333333333333333);
426     t109 = -1.0*t105*t76;
427     t110 = pow(t83,0.333333333333333);
428     t111 = 1.333333333333333*t110*(t81+t109)+1.333333333333333*
429         (t107+t106)*t108;
430     t112 = -7.324622014701263E-4*t75*t1*t2*t3*t97*t79*t84*
431         t87;
432     t113 = 1/pow(t64,5.0);
433     t114 = 4.0*t113*t77;
434     t115 = pow(t76,3.0);
435     t116 = t75*t77*t78*t84*(t89*(-2.35315*t13*t14*t15*t98-
436         2.0659*t1*t2*t3*t97-0.84155*t7*t8*t96-0.41678*t4*t5*t6*t95)/
437         (pow(t90,2.0)*t91)+0.002129457733333*t1*t2*t3*t97*t92-0.004429431133333*
438         t1*t2*t3*t97*t73-1.0*t99*t66*t100*t101);
439     t117 = -4.0*t113*t75*t77*t84*t93;
440     t118 = 1/pow(t56,5.0);
441     t119 = sqrt(rhob);
442     t120 = pow(rhob,0.333333333333333);
443     t121 = 1/t120;
444     t122 = 0.62517*t4*t5*t6/pow(rhob,0.666666666666667)+14.1189*
445         t13*t14*t15/pow(rhob,0.166666666666667)+1.6831*t7*t8/t119+
446         6.1977*t1*t2*t3*t121;
447     t123 = 32.1646831778707/t122+1.0;
448     t124 = log(t123);
449     t125 = 0.20548*t1*t2*t3*t121+1.0;
450     t126 = t64*(t94+t88+t74)+0.03109*t124*t125*rhob+0.03109*
451         t18*t33*rhoa;
452     t127 = pow(gradb,8.0);
453     t128 = 0.2*t52*t53+1.0;
454     t129 = 1/pow(t128,4.0);
455     t130 = 1/pow(rhob,10.66666666666667);
456     t131 = pow(gradb,6.0);
457     t132 = 1/pow(t128,3.0);
458     t133 = 1/pow(rhob,8.0);
459     t134 = pow(gradb,4.0);
460     t135 = 1/pow(t128,2.0);
461     t136 = 1/pow(rhob,5.333333333333333);
462     t137 = 1/t128;
463     t138 = 0.01710778*t52*t137*t53+0.00796612*t134*t135*t136-
464         0.01475312*t131*t132*t133+0.003489216*t127*t129*t130+0.492391;
465     t139 = 0.004*
466         t52*t53+1.0;
467     t140 = 1/pow(t139,4.0);
468     t141 = 1/pow(t139,3.0);
469     t142 = 1/pow(t139,2.0);
470     t143 = 1/t139;
471     t144 = pow(gradb,10.0);
472     t145 = 1/pow(t128,5.0);
473     t146 = 1/pow(rhob,14.33333333333333);
474     t147 = 1/pow(rhob,11.66666666666667);
475     t148 = 1/pow(rhob,9.0);
476     t149 = 1/pow(rhob,6.333333333333333);
477     t150 = 1/pow(rhob,3.666666666666667);
478     t151 = 1/t123;
479     t152 = pow(rhob,1.333333333333333);
480     t153 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
481         2.35315*t13*t14*t15/pow(rhob,1.166666666666667)-0.84155*t7*
482         t8/pow(t119,3.0)-2.0659*t1*t2*t3/t152;
483     t154 = 1/pow(t122,2.0);
484     t155 = 1/pow(t139,5.0);
485     t156 = 1.333333333333333*t108*(t81+t106)+1.333333333333333*
486         (t107+t109)*t110;
487     t157 = pow(grada,9.0);
488     t158 = 1/pow(rhoa,13.33333333333333);
489     t159 = pow(grada,7.0);
490     t160 = pow(grada,5.0);
491     t161 = pow(grada,3.0);
492     t162 = pow(gradb,9.0);
493     t163 = 1/pow(rhob,13.33333333333333);
494     t164 = pow(gradb,7.0);
495     t165 = pow(gradb,5.0);
496     t166 = pow(gradb,3.0);
497 
498    /* code */
499     dfdra = t63*(-1.0*t47*t49*t33*t50*rhoa+t94+t64*(4.0*t115*
500         t75*t78*t84*t93+t75*t77*t78*t111*t93+0.019751789702565*t75*
501         (t114-4.0*t115*t78)*t80*t84*t87+0.019751789702565*t75*t79*
502         t80*t111*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
503         t18*t33-0.002129457733333*t1*t2*t3*t18*t11)+t47*t32*t49*t33*
504         t50*rhoa-0.03109*t18*(-0.045620746666667*t20*t31*t46-0.033361824*
505         t28*t29*t45+0.126522154666667*t25*t26*t44-0.060823296*t19*
506         t23*t43+0.0074436608*t40*t41*t42)*t33*rhoa-0.75*t3*t34*(0.005552362666667*
507         t20*t39*t46-4.244238506666666E-4*t28*t38*t45+4.557020160000001E-6*
508         t25*t37*t44-2.0337588906666668E-8*t19*t36*t43+3.41797546666667E-11*
509         t40*t51*t42)*t48-1.0*t10*(-0.002082136*t20*t39*t21+7.54152E-5*
510         t28*t38*t30-3.685203200000001E-7*t25*t37*t27+8.01088E-10*t19*
511         t36*t24+1.07785)*t3*t34-0.03109*t18*t32*t33+(-0.02962368*t20*
512         t46*t62+0.00160816128*t20*t46*t54*t61-2.2149043200000002E-5*
513         t20*t46*t60*t59+1.2333676031999999E-7*t20*t46*t58*t57-2.5162555392E-10*
514         t20*t46*t55*t118)*t126+0.002129457733333*t1*t2*t3*t18*t32*
515         t11;
516     dfdrb = t63*(-1.0*t151*t153*t125*t154*rhob+t94+t64*(-
517         4.0*t115*t75*t78*t84*t93+t75*t77*t78*t156*t93+0.019751789702565*
518         t75*(4.0*t115*t78+t114)*t80*t84*t87+0.019751789702565*t75*
519         t79*t80*t156*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
520         t124*t125-0.002129457733333*t1*t2*t3*t124*t121)+t151*t138*
521         t153*t125*t154*rhob-0.03109*t124*(-0.045620746666667*t52*t137*
522         t150-0.033361824*t134*t135*t149+0.126522154666667*t131*t132*
523         t148-0.060823296*t127*t129*t147+0.0074436608*t144*t145*t146)*
524         t125*rhob-1.0*t120*t3*t34*(-0.002082136*t52*t143*t53+7.54152E-5*
525         t134*t142*t136-3.685203200000001E-7*t131*t141*t133+8.01088E-10*
526         t127*t140*t130+1.07785)-0.75*(0.005552362666667*t52*t143*t150-
527         4.244238506666666E-4*t134*t142*t149+4.557020160000001E-6*t131*
528         t141*t148-2.0337588906666668E-8*t127*t140*t147+3.41797546666667E-11*
529         t144*t155*t146)*t152*t3*t34+(-0.02962368*t52*t62*t150+0.00160816128*
530         t52*t54*t61*t150-2.2149043200000002E-5*t52*t60*t59*t150+1.2333676031999999E-7*
531         t52*t58*t57*t150-2.5162555392E-10*t52*t55*t118*t150)*t126-
532         0.03109*t124*t138*t125+0.002129457733333*t1*t2*t3*t124*t138*
533         t121;
534     dfdga = -0.03109*t18*(0.03421556*grada*t31*t21+0.025021368*
535         t161*t29*t30-0.094891616*t160*t26*t27+0.045617472*t159*t23*
536         t24-0.0055827456*t157*t41*t158)*t33*rhoa-0.75*(-0.004164272*
537         grada*t39*t21+3.18317888E-4*t161*t38*t30-3.417765120000001E-6*
538         t160*t37*t27+1.525319168E-8*t159*t36*t24-2.5634816E-11*t157*
539         t51*t158)*t3*t34*t48+(0.02221776*grada*t21*t62-0.00120612096*
540         grada*t21*t54*t61+1.66117824E-5*grada*t21*t60*t59-9.250257024E-8*
541         grada*t21*t58*t57+1.8871916544E-10*grada*t21*t55*t118)*t126;
542     dfdgb = -
543         0.03109*t124*(0.03421556*gradb*t137*t53+0.025021368*t166*t135*
544         t136-0.094891616*t165*t132*t133+0.045617472*t164*t129*t130-
545         0.0055827456*t162*t145*t163)*t125*rhob-0.75*t152*t3*t34*(-
546         0.004164272*gradb*t143*t53+3.18317888E-4*t166*t142*t136-3.417765120000001E-6*
547         t165*t141*t133+1.525319168E-8*t164*t140*t130-2.5634816E-11*
548         t162*t155*t163)+(0.02221776*gradb*t62*t53-0.00120612096*gradb*
549         t54*t61*t53+1.66117824E-5*gradb*t60*t59*t53-9.250257024E-8*
550         gradb*t58*t57*t53+1.8871916544E-10*gradb*t55*t118*t53)*t126;
551     dfdgab = 0.0;
552 
553 
554     ds->df1000 += factor*dfdra;
555     ds->df0100 += factor*dfdrb;
556     ds->df0010 += factor*dfdga;
557     ds->df0001 += factor*dfdgb;
558     ds->df00001+= factor*dfdgab;
559 
560 }
561 
562 static void
hcth93m_second(FunSecondFuncDrv * ds,real factor,const FunDensProp * dp)563 hcth93m_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
564 {
565     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
566     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
567         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
568         d2fdgbgb, d2fdgbgab, d2fdgabgab;
569     real rhoa = dp->rhoa, rhob = dp->rhob;
570     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
571 
572     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
573     real t11, t12, t13, t14, t15, t16, t17, t18;
574     real t19, t20, t21, t22, t23, t24, t25, t26;
575     real t27, t28, t29, t30, t31, t32, t33, t34;
576     real t35, t36, t37, t38, t39, t40, t41, t42;
577     real t43, t44, t45, t46, t47, t48, t49, t50;
578     real t51, t52, t53, t54, t55, t56, t57, t58;
579     real t59, t60, t61, t62, t63, t64, t65, t66;
580     real t67, t68, t69, t70, t71, t72, t73, t74;
581     real t75, t76, t77, t78, t79, t80, t81, t82;
582     real t83, t84, t85, t86, t87, t88, t89, t90;
583     real t91, t92, t93, t94, t95, t96, t97, t98;
584     real t99, t100, t101, t102, t103, t104, t105;
585     real t106, t107, t108, t109, t110, t111, t112;
586     real t113, t114, t115, t116, t117, t118, t119;
587     real t120, t121, t122, t123, t124, t125, t126;
588     real t127, t128, t129, t130, t131, t132, t133;
589     real t134, t135, t136, t137, t138, t139, t140;
590     real t141, t142, t143, t144, t145, t146, t147;
591     real t148, t149, t150, t151, t152, t153, t154;
592     real t155, t156, t157, t158, t159, t160, t161;
593     real t162, t163, t164, t165, t166, t167, t168;
594     real t169, t170, t171, t172, t173, t174, t175;
595     real t176, t177, t178, t179, t180, t181, t182;
596     real t183, t184, t185, t186, t187, t188, t189;
597     real t190, t191, t192, t193, t194, t195, t196;
598     real t197, t198, t199, t200, t201, t202, t203;
599     real t204, t205, t206, t207, t208, t209, t210;
600     real t211, t212, t213, t214, t215, t216, t217;
601     real t218, t219, t220, t221, t222, t223, t224;
602     real t225, t226, t227, t228, t229, t230, t231;
603     real t232, t233, t234, t235, t236, t237, t238;
604     real t239, t240, t241, t242, t243, t244, t245;
605     real t246, t247, t248, t249, t250, t251, t252;
606     real t253, t254, t255, t256, t257, t258, t259;
607     real t260, t261, t262, t263, t264, t265, t266;
608     real t267, t268, t269, t270, t271, t272, t273;
609     real t274, t275, t276, t277, t278, t279, t280;
610     real t281, t282, t283, t284, t285;
611 
612     t1 = pow(3.0,0.333333333333333);
613     t2 = 1/pow(4.0,0.333333333333333);
614     t3 = 1/pow(3.141592653589793,0.333333333333333);
615     t4 = pow(3.0,0.666666666666667);
616     t5 = 1/pow(4.0,0.666666666666667);
617     t6 = 1/pow(3.141592653589793,0.666666666666667);
618     t7 = 1/pow(rhoa,0.666666666666667);
619     t8 = 1.732050807568877;
620     t9 = 0.564189583547756;
621     t10 = sqrt(rhoa);
622     t11 = pow(rhoa,0.333333333333333);
623     t12 = 1/t11;
624     t13 = pow(2.0,0.333333333333333);
625     t14 = 1/t13;
626     t15 = pow(3.0,0.166666666666667);
627     t16 = 1/pow(3.141592653589793,0.166666666666667);
628     t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
629         1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
630     t18 = 32.1646831778707/
631         t17+1.0;
632     t19 = log(t18);
633     t20 = pow(grada,8.0);
634     t21 = pow(grada,2.0);
635     t22 = 1/pow(rhoa,2.666666666666667);
636     t23 = 0.2*t21*t22+1.0;
637     t24 = 1/pow(t23,4.0);
638     t25 = 1/pow(rhoa,10.66666666666667);
639     t26 = pow(grada,6.0);
640     t27 = 1/pow(t23,3.0);
641     t28 = 1/pow(rhoa,8.0);
642     t29 = pow(grada,4.0);
643     t30 = 1/pow(t23,2.0);
644     t31 = 1/pow(rhoa,5.333333333333333);
645     t32 = 1/t23;
646     t33 = 0.01710778*t21*t32*t22+0.00796612*t29*t30*t31-0.01475312*
647         t26*t27*t28+0.003489216*t20*t24*t25+0.492391;
648     t34 = 0.20548*t1*t2*t3*t12+1.0;
649     t35 = pow(6.0,0.333333333333333);
650     t36 = 0.004*t21*t22+1.0;
651     t37 = 1/pow(t36,4.0);
652     t38 = 1/pow(t36,3.0);
653     t39 = 1/pow(t36,2.0);
654     t40 = 1/t36;
655     t41 = -0.002082136*t21*t40*t22+7.54152E-5*t29*t39*t31-
656         3.685203200000001E-7*t26*t38*t28+8.01088E-10*t20*t37*t25+1.07785;
657     t42 = pow(grada,
658         10.0);
659     t43 = 1/pow(t23,5.0);
660     t44 = 1/pow(rhoa,14.33333333333333);
661     t45 = 1/pow(rhoa,11.66666666666667);
662     t46 = 1/pow(rhoa,9.0);
663     t47 = 1/pow(rhoa,6.333333333333333);
664     t48 = 1/pow(rhoa,3.666666666666667);
665     t49 = -0.045620746666667*t21*t32*t48-0.033361824*t29*
666         t30*t47+0.126522154666667*t26*t27*t46-0.060823296*t20*t24*
667         t45+0.0074436608*t42*t43*t44;
668     t50 = 1/t18;
669     t51 = pow(rhoa,1.333333333333333);
670     t52 = 1/t51;
671     t53 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
672         t14*t15*t16/pow(rhoa,1.166666666666667)-0.84155*t8*t9/pow(t10,
673         3.0)-2.0659*t1*t2*t3*t52;
674     t54 = 1/pow(t17,2.0);
675     t55 = 1/pow(t36,5.0);
676     t56 = 0.005552362666667*t21*t40*t48-4.244238506666666E-4*
677         t29*t39*t47+4.557020160000001E-6*t26*t38*t46-2.0337588906666668E-8*
678         t20*t37*t45+3.41797546666667E-11*t42*t55*t44;
679     t57 = pow(gradb,2.0);
680     t58 = 1/pow(rhob,2.666666666666667);
681     t59 = 0.5*t57*t58+0.5*t21*t22;
682     t60 = pow(t59,4.0);
683     t61 = 0.006*t59+1.0;
684     t62 = 1/pow(t61,4.0);
685     t63 = pow(t59,3.0);
686     t64 = 1/pow(t61,3.0);
687     t65 = pow(t59,2.0);
688     t66 = 1/pow(t61,2.0);
689     t67 = 1/t61;
690     t68 = 0.02221776*t59*t67-5.364072E-4*t65*t66+3.391632E-6*
691         t63*t64-7.86329856E-9*t60*t62+0.622261;
692     t69 = rhob+rhoa;
693     t70 = 1/pow(t69,0.333333333333333);
694     t71 = 0.2137*t1*t2*t3*t70+1.0;
695     t72 = 1/pow(t69,0.666666666666667);
696     t73 = sqrt(t69);
697     t74 = 1/t73;
698     t75 = 1/pow(t69,0.166666666666667);
699     t76 = 7.5957*t14*t15*t16*t75+3.5876*t1*t2*t3*t70+0.8191*
700         t8*t9*t74+0.49294*t4*t5*t6*t72;
701     t77 = 16.0818243221511/t76+1.0;
702     t78 = log(t77);
703     t79 = -0.062182*t71*t78;
704     t80 = 1/(2.0*t13-2.0);
705     t81 = rhoa-1.0*rhob;
706     t82 = pow(t81,4.0);
707     t83 = 1/pow(t69,4.0);
708     t84 = 1.0-1.0*t82*t83;
709     t85 = 0.11125*t1*t2*t3*t70+1.0;
710     t86 = 1/t69;
711     t87 = 1.0-1.0*t81*t86;
712     t88 = t81*t86+1.0;
713     t89 = pow(t88,1.333333333333333)+pow(t87,1.333333333333333)-
714         2.0;
715     t90 = 10.357*t14*t15*t16*t75+3.6231*t1*t2*t3*t70+0.44013*
716         t8*t9*t74+0.49671*t4*t5*t6*t72;
717     t91 = 29.60857464321668/t90+1.0;
718     t92 = log(t91);
719     t93 = 0.019751789702565*t80*t84*t85*t89*t92;
720     t94 = 0.20548*t1*t2*t3*t70+1.0;
721     t95 = 14.1189*t14*t15*t16*t75+6.1977*t1*t2*t3*t70+1.6831*
722         t8*t9*t74+0.62517*t4*t5*t6*t72;
723     t96 = 32.1646831778707/t95+1.0;
724     t97 = log(t96);
725     t98 = 0.062182*t71*t78-0.03109*t94*t97;
726     t99 = t80*t82*t83*t89*t98;
727     t100 = 1/pow(t69,1.666666666666667);
728     t101 = 1/pow(t73,3.0);
729     t102 = 1/pow(t69,1.333333333333333);
730     t103 = 1/pow(t69,1.166666666666667);
731     t104 = -1.26595*t14*t15*t16*t103-1.195866666666667*t1*
732         t2*t3*t102-0.40955*t8*t9*t101-0.328626666666667*t4*t5*t6*t100;
733     t105 = 1/
734         pow(t76,2.0);
735     t106 = 1/t77;
736     t107 = 1.0*t104*t71*t105*t106;
737     t108 = -1.726166666666666*t14*t15*t16*t103-1.2077*t1*
738         t2*t3*t102-0.220065*t8*t9*t101-0.33114*t4*t5*t6*t100;
739     t109 = 1/pow(t90,2.0);
740     t110 = 1/t91;
741     t111 = -0.58482233974552*t80*t84*t108*t85*t109*t89*t110;
742     t112 = 0.004429431133333*
743         t1*t2*t3*t102*t78;
744     t113 = 1/pow(t69,2.0);
745     t114 = t81*t113;
746     t115 = -1.0*t86;
747     t116 = t115+t114;
748     t117 = pow(t87,0.333333333333333);
749     t118 = -1.0*t113*t81;
750     t119 = t86+t118;
751     t120 = pow(t88,0.333333333333333);
752     t121 = 1.333333333333333*t119*t120+1.333333333333333*
753         t116*t117;
754     t122 = 0.019751789702565*t80*t84*t85*t121*t92;
755     t123 = -7.324622014701263E-4*t80*t1*t2*t3*t102*t84*t89*
756         t92;
757     t124 = 1/pow(t69,5.0);
758     t125 = 4.0*t124*t82;
759     t126 = pow(t81,3.0);
760     t127 = t125-4.0*t126*t83;
761     t128 = 0.019751789702565*t80*t127*t85*t89*t92;
762     t129 = -2.35315*t14*t15*t16*t103-2.0659*t1*t2*t3*t102-
763         0.84155*t8*t9*t101-0.41678*t4*t5*t6*t100;
764     t130 = 1/pow(t95,2.0);
765     t131 = 1/t96;
766     t132 = 0.002129457733333*t1*t2*t3*t102*t97-0.004429431133333*
767         t1*t2*t3*t102*t78+t129*t94*t130*t131-1.0*t104*t71*t105*t106;
768     t133 = t80*
769         t82*t83*t89*t132;
770     t134 = t80*t82*t83*t121*t98;
771     t135 = -4.0*t124*t80*t82*t89*t98;
772     t136 = -1.0*t50*t53*t34*t54*rhoa+t99+t69*(4.0*t126*t80*
773         t83*t89*t98+t135+t134+t133+t128+t123+t122+t112+t111+t107)+
774         t93+t79+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12;
775     t137 = 1/
776         pow(t61,5.0);
777     t138 = -0.02962368*t21*t48*t67+0.00160816128*t21*t48*
778         t59*t66-2.2149043200000002E-5*t21*t48*t65*t64+1.2333676031999999E-7*
779         t21*t48*t63*t62-2.5162555392E-10*t21*t48*t60*t137;
780     t139 = 1/pow(rhob,0.666666666666667);
781     t140 = sqrt(rhob);
782     t141 = pow(rhob,0.333333333333333);
783     t142 = 1/t141;
784     t143 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
785         1.6831*t8*t9/t140+6.1977*t1*t2*t3*t142+0.62517*t4*t5*t6*t139;
786     t144 = 32.1646831778707/
787         t143+1.0;
788     t145 = log(t144);
789     t146 = 0.20548*t1*t2*t3*t142+1.0;
790     t147 = t69*(t99+t93+t79)+0.03109*t145*t146*rhob+0.03109*
791         t19*t34*rhoa;
792     t148 = pow(gradb,8.0);
793     t149 = 0.2*t57*t58+1.0;
794     t150 = 1/pow(t149,4.0);
795     t151 = 1/pow(rhob,10.66666666666667);
796     t152 = pow(gradb,6.0);
797     t153 = 1/pow(t149,3.0);
798     t154 = 1/pow(rhob,8.0);
799     t155 = pow(gradb,4.0);
800     t156 = 1/pow(t149,2.0);
801     t157 = 1/pow(rhob,5.333333333333333);
802     t158 = 1/t149;
803     t159 = 0.01710778*t57*t158*t58+0.00796612*t155*t156*t157-
804         0.01475312*t152*t153*t154+0.003489216*t148*t150*t151+0.492391;
805     t160 = 0.004*
806         t57*t58+1.0;
807     t161 = 1/pow(t160,4.0);
808     t162 = 1/pow(t160,3.0);
809     t163 = 1/pow(t160,2.0);
810     t164 = 1/t160;
811     t165 = -0.002082136*t57*t164*t58+7.54152E-5*t155*t163*
812         t157-3.685203200000001E-7*t152*t162*t154+8.01088E-10*t148*
813         t161*t151+1.07785;
814     t166 = pow(gradb,10.0);
815     t167 = 1/pow(t149,5.0);
816     t168 = 1/pow(rhob,14.33333333333333);
817     t169 = 1/pow(rhob,11.66666666666667);
818     t170 = 1/pow(rhob,9.0);
819     t171 = 1/pow(rhob,6.333333333333333);
820     t172 = 1/pow(rhob,3.666666666666667);
821     t173 = -0.045620746666667*t57*t158*t172-0.033361824*t155*
822         t156*t171+0.126522154666667*t152*t153*t170-0.060823296*t148*
823         t150*t169+0.0074436608*t166*t167*t168;
824     t174 = 1/t144;
825     t175 = pow(rhob,1.333333333333333);
826     t176 = 1/t175;
827     t177 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
828         2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-0.84155*t8*
829         t9/pow(t140,3.0)-2.0659*t1*t2*t3*t176;
830     t178 = 1/pow(t143,2.0);
831     t179 = 1/pow(t160,5.0);
832     t180 = 0.005552362666667*t57*t164*t172-4.244238506666666E-4*
833         t155*t163*t171+4.557020160000001E-6*t152*t162*t170-2.0337588906666668E-8*
834         t148*t161*t169+3.41797546666667E-11*t166*t179*t168;
835     t181 = t86+t114;
836     t182 = t115+t118;
837     t183 = 1.333333333333333*t120*t182+1.333333333333333*
838         t117*t181;
839     t184 = 0.019751789702565*t80*t84*t85*t183*t92;
840     t185 = 4.0*t126*t83+t125;
841     t186 = 0.019751789702565*t80*t185*t85*t89*t92;
842     t187 = t80*t82*t83*t183*t98;
843     t188 = -1.0*t174*t177*t146*t178*rhob+t99+t69*(-4.0*t126*
844         t80*t83*t89*t98+t187+t186+t184+t135+t133+t123+t112+t111+t107)+
845         t93+t79+0.03109*t145*t146-0.002129457733333*t1*t2*t3*t145*
846         t142;
847     t189 = -0.02962368*t57*t67*t172+0.00160816128*t57*t59*
848         t66*t172-2.2149043200000002E-5*t57*t65*t64*t172+1.2333676031999999E-7*
849         t57*t63*t62*t172-2.5162555392E-10*t57*t60*t137*t172;
850     t190 = pow(grada,9.0);
851     t191 = 1/pow(rhoa,13.33333333333333);
852     t192 = pow(grada,7.0);
853     t193 = pow(grada,5.0);
854     t194 = pow(grada,3.0);
855     t195 = 0.03421556*grada*t32*t22+0.025021368*t194*t30*
856         t31-0.094891616*t193*t27*t28+0.045617472*t192*t24*t25-0.0055827456*
857         t190*t43*t191;
858     t196 = -0.004164272*grada*t40*t22+3.18317888E-4*t194*
859         t39*t31-3.417765120000001E-6*t193*t38*t28+1.525319168E-8*t192*
860         t37*t25-2.5634816E-11*t190*t55*t191;
861     t197 = 0.02221776*grada*t22*t67-0.00120612096*grada*t22*
862         t59*t66+1.66117824E-5*grada*t22*t65*t64-9.250257024E-8*grada*
863         t22*t63*t62+1.8871916544E-10*grada*t22*t60*t137;
864     t198 = pow(gradb,9.0);
865     t199 = 1/pow(rhob,13.33333333333333);
866     t200 = pow(gradb,7.0);
867     t201 = pow(gradb,5.0);
868     t202 = pow(gradb,3.0);
869     t203 = 0.03421556*gradb*t158*t58+0.025021368*t202*t156*
870         t157-0.094891616*t201*t153*t154+0.045617472*t200*t150*t151-
871         0.0055827456*t198*t167*t199;
872     t204 = -0.004164272*gradb*t164*t58+3.18317888E-4*t202*
873         t163*t157-3.417765120000001E-6*t201*t162*t154+1.525319168E-8*
874         t200*t161*t151-2.5634816E-11*t198*t179*t199;
875     t205 = 0.02221776*gradb*t67*t58-0.00120612096*gradb*t59*
876         t66*t58+1.66117824E-5*gradb*t65*t64*t58-9.250257024E-8*gradb*
877         t63*t62*t58+1.8871916544E-10*gradb*t60*t137*t58;
878     t206 = pow(grada,12.0);
879     t207 = 1/pow(t23,6.0);
880     t208 = 1/pow(rhoa,18.0);
881     t209 = 1/pow(rhoa,15.33333333333333);
882     t210 = 1/pow(rhoa,12.66666666666667);
883     t211 = 1/pow(rhoa,10.0);
884     t212 = 1/pow(rhoa,7.333333333333333);
885     t213 = 1/pow(rhoa,4.666666666666667);
886     t214 = 1/pow(t18,2.0);
887     t215 = pow(t53,2.0);
888     t216 = 1/pow(t17,4.0);
889     t217 = 1/pow(t17,3.0);
890     t218 = 2.754533333333333*t1*t2*t3/pow(rhoa,2.333333333333333)+
891         2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
892         1.262325*t8*t9/pow(t10,5.0)+0.694633333333333*t4*t5*t6*t22;
893     t219 = 1/
894         pow(t36,6.0);
895     t220 = 2.0*t104*t71*t105*t106;
896     t221 = -1.169644679491041*t80*t84*t108*t85*t109*t89*t110;
897     t222 = 0.008858862266667*
898         t1*t2*t3*t102*t78;
899     t223 = -0.00146492440294*t80*t1*t2*t3*t102*t84*t89*t92;
900     t224 = 2.0*
901         t132*t80*t82*t83*t89;
902     t225 = -8.0*t124*t80*t82*t89*t98;
903     t226 = pow(t104,2.0);
904     t227 = 1/pow(t76,4.0);
905     t228 = 1/pow(t77,2.0);
906     t229 = 16.0818243221511*t226*t71*t227*t228;
907     t230 = 1/pow(t76,3.0);
908     t231 = -2.0*t226*t71*t230*t106;
909     t232 = -0.142466666666667*t1*t2*t3*t102*t104*t105*t106;
910     t233 = 1/
911         pow(t69,2.666666666666667);
912     t234 = 1/pow(t73,5.0);
913     t235 = 1/pow(t69,2.333333333333333);
914     t236 = 1/pow(t69,2.166666666666667);
915     t237 = 1.476941666666667*t14*t15*t16*t236+1.594488888888889*
916         t1*t2*t3*t235+0.614325*t8*t9*t234+0.547711111111111*t4*t5*
917         t6*t233;
918     t238 = 1.0*t237*t71*t105*t106;
919     t239 = pow(t108,2.0);
920     t240 = -17.31575589937587*t239*t80*t84*t85*t89/(pow(t90,
921         4.0)*pow(t91,2.0));
922     t241 = 1.169644679491041*t110*t239*t80*t84*t85*t89/pow(t90,
923         3.0);
924     t242 = 0.043374323531126*t80*t1*t2*t3*t102*t84*t108*t109*
925         t89*t110;
926     t243 = -0.58482233974552*t80*t84*(2.013861111111111*t14*
927         t15*t16*t236+1.610266666666667*t1*t2*t3*t235+0.3300975*t8*
928         t9*t234+0.5519*t4*t5*t6*t233)*t85*t109*t89*t110;
929     t244 = -0.005905908177778*t1*t2*t3*t235*t78;
930     t245 = 1/pow(t87,0.666666666666667);
931     t246 = 1/pow(t69,3.0);
932     t247 = -2.0*t246*t81;
933     t248 = 2.0*t113;
934     t249 = 1/pow(t88,0.666666666666667);
935     t250 = 2.0*t246*t81;
936     t251 = -2.0*t113;
937     t252 = 1.333333333333333*t120*(t251+t250)+0.444444444444444*
938         pow(t119,2.0)*t249+1.333333333333333*t117*(t248+t247)+0.444444444444444*
939         pow(t116,2.0)*t245;
940     t253 = 9.76616268626835E-4*t80*t1*t2*t3*t235*t84*t89*
941         t92;
942     t254 = 1/pow(t69,6.0);
943     t255 = -20.0*t254*t82;
944     t256 = pow(t81,2.0);
945     t257 = -12.0*t256*t83;
946     t258 = pow(t129,2.0);
947     t259 = t80*t82*t83*t89*(-0.002839276977778*t1*t2*t3*t235*
948         t97+32.1646831778707*t258*t94/(pow(t95,4.0)*pow(t96,2.0))-
949         2.0*t131*t258*t94/pow(t95,3.0)+0.005905908177778*t1*t2*t3*
950         t235*t78-16.0818243221511*t226*t71*t227*t228+(2.745341666666667*
951         t14*t15*t16*t236+2.754533333333333*t1*t2*t3*t235+1.262325*
952         t8*t9*t234+0.694633333333333*t4*t5*t6*t233)*t94*t130*t131-
953         0.136986666666667*t1*t2*t3*t102*t129*t130*t131+2.0*t226*t71*
954         t230*t106-1.0*t237*t71*t105*t106+0.142466666666667*t1*t2*t3*
955         t102*t104*t105*t106);
956     t260 = -8.0*t124*t132*t80*t82*t89;
957     t261 = 20.0*t254*t80*t82*t89*t98;
958     t262 = 12.0*t256*t80*t83*t89*t98;
959     t263 = 1/pow(t61,6.0);
960     t264 = 2.666666666666667*t120*t246*t81-2.666666666666667*
961         t117*t246*t81+0.444444444444444*t119*t182*t249+0.444444444444444*
962         t116*t181*t245;
963     t265 = pow(grada,11.0);
964     t266 = 1/pow(rhoa,17.0);
965     t267 = pow(gradb,12.0);
966     t268 = 1/pow(t149,6.0);
967     t269 = 1/pow(rhob,18.0);
968     t270 = 1/pow(rhob,15.33333333333333);
969     t271 = 1/pow(rhob,12.66666666666667);
970     t272 = 1/pow(rhob,10.0);
971     t273 = 1/pow(rhob,7.333333333333333);
972     t274 = 1/pow(rhob,4.666666666666667);
973     t275 = 1/pow(t144,2.0);
974     t276 = pow(t177,2.0);
975     t277 = 1/pow(t143,4.0);
976     t278 = 1/pow(t143,3.0);
977     t279 = 2.754533333333333*t1*t2*t3/pow(rhob,2.333333333333333)+
978         2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
979         1.262325*t8*t9/pow(t140,5.0)+0.694633333333333*t4*t5*t6*t58;
980     t280 = 1/
981         pow(t160,6.0);
982     t281 = 1.333333333333333*t117*(t251+t247)+0.444444444444444*
983         pow(t182,2.0)*t249+1.333333333333333*t120*(t248+t250)+0.444444444444444*
984         pow(t181,2.0)*t245;
985     t282 = pow(gradb,11.0);
986     t283 = 1/pow(rhob,17.0);
987     t284 = 1/pow(rhoa,16.0);
988     t285 = 1/pow(rhob,16.0);
989 
990    /* code */
991     dfdra = t50*t33*t53*t34*t54*rhoa-0.03109*t19*t49*t34*
992         rhoa-0.75*t3*t35*t51*t56-1.0*t11*t3*t35*t41-0.03109*t19*t33*
993         t34+t138*t147+t68*t136+0.002129457733333*t1*t2*t3*t19*t33*
994         t12;
995     dfdrb = t174*t159*t177*t146*t178*rhob-0.03109*t145*t173*
996         t146*rhob-0.75*t175*t180*t3*t35-1.0*t141*t165*t3*t35+t68*t188+
997         t189*t147-0.03109*t145*t159*t146+0.002129457733333*t1*t2*t3*
998         t145*t159*t142;
999     dfdga = -0.03109*t19*t195*t34*rhoa-0.75*t196*t3*t35*t51+
1000         t197*t147;
1001     dfdgb = -0.03109*t145*t203*t146*rhob-0.75*t175*t204*t3*
1002         t35+t205*t147;
1003     dfdgab = 0.0;
1004     d2fdrara = t68*(-1.0*t50*t218*t34*t54*rhoa+2.0*t50*t215*
1005         t34*t217*rhoa-32.1646831778707*t214*t215*t34*t216*rhoa+t69*
1006         (-32.0*t124*t126*t80*t89*t98+8.0*t121*t126*t80*t83*t98-8.0*
1007         t121*t124*t80*t82*t98+t80*t82*t83*t252*t98+0.019751789702565*
1008         (t257+t255+32.0*t124*t126)*t80*t85*t89*t92-0.00146492440294*
1009         t80*t1*t2*t3*t102*t127*t89*t92+0.019751789702565*t80*t84*t85*
1010         t252*t92+0.03950357940513*t80*t127*t85*t121*t92-0.00146492440294*
1011         t80*t1*t2*t3*t102*t84*t121*t92+8.0*t126*t132*t80*t83*t89+2.0*
1012         t121*t132*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
1013         t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t127*t108*
1014         t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
1015         t121*t110)+8.0*t126*t80*t83*t89*t98+2.0*t121*t80*t82*t83*t98+
1016         0.03950357940513*t80*t127*t85*t89*t92+0.03950357940513*t80*
1017         t84*t85*t121*t92-2.0*t50*t53*t34*t54-0.001419638488889*t1*
1018         t2*t3*t19*t52+t225+t224+t223+t222+t221+t220+0.136986666666667*
1019         t1*t2*t3*t50*t53*t54*t12)+2.0*t34*t49*t50*t53*t54*rhoa+t50*
1020         t33*t218*t34*t54*rhoa-2.0*t215*t217*t33*t34*t50*rhoa-0.03109*
1021         t19*(0.167276071111111*t21*t32*t213+0.186960487111111*t29*
1022         t30*t212-1.1742853376*t26*t27*t211+0.912040567466667*t20*t24*
1023         t210-0.236448836266667*t42*t43*t209+0.019849762133333*t206*
1024         t207*t208)*t34*rhoa+32.1646831778707*t214*t33*t215*t34*t216*
1025         rhoa-0.333333333333333*t3*t35*t41*t7-2.0*t11*t3*t35*t56+2.0*
1026         t33*t34*t50*t53*t54+0.001419638488889*t1*t2*t3*t19*t33*t52-
1027         0.75*(-0.020358663111111*t21*t40*t213+0.002747242922667*t29*
1028         t39*t212-5.00675569208889E-5*t26*t38*t211+3.830965156977778E-7*
1029         t20*t37*t210-1.357646943573333E-9*t42*t55*t209+1.82292024888889E-12*
1030         t206*t219*t208)*t3*t35*t51-0.06218*t19*t49*t34+(0.10862016*
1031         t21*t213*t67-0.00589659136*t21*t213*t59*t66-0.00238120448*
1032         t29*t212*t66+8.121315840000001E-5*t21*t213*t65*t64+8.479469568E-5*
1033         t29*t212*t59*t64-4.522347878399999E-7*t21*t213*t63*t62-1.02492407808E-6*
1034         t29*t212*t65*t62+9.2262703104E-10*t21*t213*t60*t137+5.28877928448E-9*
1035         t29*t212*t63*t137-1.00650221568E-11*t29*t212*t60*t263)*t147+
1036         2.0*t136*t138-0.136986666666667*t1*t2*t3*t50*t33*t53*t54*t12+
1037         0.004258915466667*t1*t2*t3*t19*t49*t12;
1038     d2fdrarb = t68*(t69*(-12.0*t256*t80*t83*t89*t98+4.0*t126*
1039         t183*t80*t83*t98-4.0*t121*t126*t80*t83*t98-4.0*t124*t183*t80*
1040         t82*t98-4.0*t121*t124*t80*t82*t98+t80*t82*t83*t264*t98+0.019751789702565*
1041         t80*(12.0*t256*t83+t255)*t85*t89*t92-7.324622014701263E-4*
1042         t80*t1*t2*t3*t102*t185*t89*t92-7.324622014701263E-4*t80*t1*
1043         t2*t3*t102*t127*t89*t92+0.019751789702565*t80*t84*t85*t264*
1044         t92+0.019751789702565*t80*t127*t85*t183*t92-7.324622014701263E-4*
1045         t80*t1*t2*t3*t102*t84*t183*t92+0.019751789702565*t80*t185*
1046         t85*t121*t92-7.324622014701263E-4*t80*t1*t2*t3*t102*t84*t121*
1047         t92+t261+t260+t259+t253+t244+t243+t242+t241+t240+t238+t232+
1048         t231+t229+t80*t82*t83*t183*t132+t80*t82*t83*t121*t132-0.58482233974552*
1049         t80*t185*t108*t85*t109*t89*t110-0.58482233974552*t80*t127*
1050         t108*t85*t109*t89*t110-0.58482233974552*t80*t84*t108*t85*t109*
1051         t183*t110-0.58482233974552*t80*t84*t108*t85*t109*t121*t110)+
1052         t225+t224+t223+t222+t221+t220+t187+t186+t184+t134+t128+t122)+
1053         t138*t188+(-0.00238120448*t21*t57*t48*t66*t172+8.479469568E-5*
1054         t21*t57*t48*t59*t64*t172-1.02492407808E-6*t21*t57*t48*t65*
1055         t62*t172+5.28877928448E-9*t21*t57*t48*t63*t137*t172-1.00650221568E-11*
1056         t21*t57*t48*t60*t263*t172)*t147+t189*t136;
1057     d2fdraga = t50*t195*t53*t34*t54*rhoa-0.03109*t19*(-0.091241493333333*
1058         grada*t32*t48-0.115198997333333*t194*t30*t47+0.7858223872*
1059         t193*t27*t46-0.6384129536*t192*t24*t45+0.1717538816*t190*t43*
1060         t44-0.0148873216*t265*t207*t266)*t34*rhoa-0.75*t3*t35*(0.011104725333333*
1061         grada*t40*t48-0.001742114304*t194*t39*t47+3.413290257066667E-5*
1062         t193*t38*t46-2.720691950933334E-7*t192*t37*t45+9.9260039168E-10*
1063         t190*t55*t44-1.367190186666667E-12*t265*t219*t266)*t51-1.0*
1064         t11*t196*t3*t35-0.03109*t19*t195*t34+(-0.05924736*grada*t48*
1065         t67+0.00321632256*grada*t48*t59*t66+0.00178590336*t194*t47*
1066         t66-4.42980864E-5*grada*t48*t65*t64-6.359602176E-5*t194*t47*
1067         t59*t64+2.4667352064E-7*grada*t48*t63*t62+7.6869305856E-7*
1068         t194*t47*t65*t62-5.0325110784E-10*grada*t48*t60*t137-3.96658446336E-9*
1069         t194*t47*t63*t137+7.5487666176E-12*t194*t47*t60*t263)*t147+
1070         t197*t136+0.002129457733333*t1*t2*t3*t19*t195*t12;
1071     d2fdragb = (0.00178590336*t21*gradb*t48*t66*t58-6.359602176E-5*
1072         t21*gradb*t48*t59*t64*t58+7.6869305856E-7*t21*gradb*t48*t65*
1073         t62*t58-3.96658446336E-9*t21*gradb*t48*t63*t137*t58+7.5487666176E-12*
1074         t21*gradb*t48*t60*t263*t58)*t147+t205*t136;
1075     d2fdraab = 0.0;
1076     d2fdrbrb = t68*(2.0*t174*t276*t146*t278*rhob-32.1646831778707*
1077         t275*t276*t146*t277*rhob-1.0*t174*t279*t146*t178*rhob+t69*
1078         (32.0*t124*t126*t80*t89*t98-8.0*t126*t183*t80*t83*t98-8.0*
1079         t124*t183*t80*t82*t98+t80*t82*t83*t281*t98+0.019751789702565*
1080         (t257+t255-32.0*t124*t126)*t80*t85*t89*t92-0.00146492440294*
1081         t80*t1*t2*t3*t102*t185*t89*t92+0.019751789702565*t80*t84*t85*
1082         t281*t92+0.03950357940513*t80*t185*t85*t183*t92-0.00146492440294*
1083         t80*t1*t2*t3*t102*t84*t183*t92-8.0*t126*t132*t80*t83*t89+2.0*
1084         t132*t183*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
1085         t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t185*t108*
1086         t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
1087         t183*t110)-8.0*t126*t80*t83*t89*t98+2.0*t183*t80*t82*t83*t98+
1088         0.03950357940513*t80*t185*t85*t89*t92+0.03950357940513*t80*
1089         t84*t85*t183*t92+t225+t224+t223+t222+t221+t220-2.0*t174*t177*
1090         t146*t178-0.001419638488889*t1*t2*t3*t145*t176+0.136986666666667*
1091         t1*t2*t3*t174*t177*t178*t142)-2.0*t146*t159*t174*t276*t278*
1092         rhob+32.1646831778707*t275*t159*t276*t146*t277*rhob+2.0*t146*
1093         t173*t174*t177*t178*rhob+t174*t159*t279*t146*t178*rhob-0.03109*
1094         t145*(0.167276071111111*t57*t158*t274+0.186960487111111*t155*
1095         t156*t273-1.1742853376*t152*t153*t272+0.912040567466667*t148*
1096         t150*t271-0.236448836266667*t166*t167*t270+0.019849762133333*
1097         t267*t268*t269)*t146*rhob-0.75*t175*(-0.020358663111111*t57*
1098         t164*t274+0.002747242922667*t155*t163*t273-5.00675569208889E-5*
1099         t152*t162*t272+3.830965156977778E-7*t148*t161*t271-1.357646943573333E-9*
1100         t166*t179*t270+1.82292024888889E-12*t267*t280*t269)*t3*t35-
1101         2.0*t141*t180*t3*t35-0.333333333333333*t139*t165*t3*t35+2.0*
1102         t188*t189+2.0*t146*t159*t174*t177*t178+0.001419638488889*t1*
1103         t2*t3*t145*t159*t176+(0.10862016*t57*t67*t274-0.00589659136*
1104         t57*t59*t66*t274+8.121315840000001E-5*t57*t65*t64*t274-4.522347878399999E-7*
1105         t57*t63*t62*t274+9.2262703104E-10*t57*t60*t137*t274-0.00238120448*
1106         t155*t66*t273+8.479469568E-5*t155*t59*t64*t273-1.02492407808E-6*
1107         t155*t65*t62*t273+5.28877928448E-9*t155*t63*t137*t273-1.00650221568E-11*
1108         t155*t60*t263*t273)*t147-0.06218*t145*t173*t146-0.136986666666667*
1109         t1*t2*t3*t174*t159*t177*t178*t142+0.004258915466667*t1*t2*
1110         t3*t145*t173*t142;
1111     d2fdrbga = (0.00178590336*grada*t57*t22*t66*t172-6.359602176E-5*
1112         grada*t57*t22*t59*t64*t172+7.6869305856E-7*grada*t57*t22*t65*
1113         t62*t172-3.96658446336E-9*grada*t57*t22*t63*t137*t172+7.5487666176E-12*
1114         grada*t57*t22*t60*t263*t172)*t147+t197*t188;
1115     d2fdrbgb = t174*t203*t177*t146*t178*rhob-0.03109*t145*
1116         (-0.091241493333333*gradb*t158*t172-0.115198997333333*t202*
1117         t156*t171+0.7858223872*t201*t153*t170-0.6384129536*t200*t150*
1118         t169+0.1717538816*t198*t167*t168-0.0148873216*t282*t268*t283)*
1119         t146*rhob-1.0*t141*t204*t3*t35-0.75*(0.011104725333333*gradb*
1120         t164*t172-0.001742114304*t202*t163*t171+3.413290257066667E-5*
1121         t201*t162*t170-2.720691950933334E-7*t200*t161*t169+9.9260039168E-10*
1122         t198*t179*t168-1.367190186666667E-12*t282*t280*t283)*t175*
1123         t3*t35+t205*t188+(-0.05924736*gradb*t67*t172+0.00321632256*
1124         gradb*t59*t66*t172-4.42980864E-5*gradb*t65*t64*t172+2.4667352064E-7*
1125         gradb*t63*t62*t172-5.0325110784E-10*gradb*t60*t137*t172+0.00178590336*
1126         t202*t66*t171-6.359602176E-5*t202*t59*t64*t171+7.6869305856E-7*
1127         t202*t65*t62*t171-3.96658446336E-9*t202*t63*t137*t171+7.5487666176E-12*
1128         t202*t60*t263*t171)*t147-0.03109*t145*t203*t146+0.002129457733333*
1129         t1*t2*t3*t145*t203*t142;
1130     d2fdrbgab = 0.0;
1131     d2fdgaga = -0.03109*t19*(0.03421556*t32*t22+0.06137788*
1132         t21*t30*t31-0.4944751744*t29*t27*t28+0.4331922432*t26*t24*
1133         t25-0.1232326656*t20*t43*t191+0.0111654912*t42*t207*t284)*
1134         t34*rhoa-0.75*(-0.004164272*t40*t22+9.882678399999998E-4*t21*
1135         t39*t31-2.2181911808000004E-5*t29*t38*t28+1.8879870464000002E-7*
1136         t26*t37*t25-7.1881547776E-10*t20*t55*t191+1.02539264E-12*t42*
1137         t219*t284)*t3*t35*t51+(0.02221776*t22*t67-0.00120612096*t22*
1138         t59*t66-0.00133942752*t21*t31*t66+1.66117824E-5*t22*t65*t64+
1139         4.769701632E-5*t21*t31*t59*t64-9.250257024E-8*t22*t63*t62-
1140         5.7651979392E-7*t21*t31*t65*t62+1.8871916544E-10*t22*t60*t137+
1141         2.97493834752E-9*t21*t31*t63*t137-5.6615749632E-12*t21*t31*
1142         t60*t263)*t147;
1143     d2fdgagb = (-0.00133942752*grada*gradb*t22*t66*t58+4.769701632E-5*
1144         grada*gradb*t22*t59*t64*t58-5.7651979392E-7*grada*gradb*t22*
1145         t65*t62*t58+2.97493834752E-9*grada*gradb*t22*t63*t137*t58-
1146         5.6615749632E-12*grada*gradb*t22*t60*t263*t58)*t147;
1147     d2fdgagab = 0.0;
1148     d2fdgbgb = -0.03109*t145*(0.03421556*t158*t58+0.06137788*
1149         t57*t156*t157-0.4944751744*t155*t153*t154+0.4331922432*t152*
1150         t150*t151-0.1232326656*t148*t167*t199+0.0111654912*t166*t268*
1151         t285)*t146*rhob-0.75*t175*t3*t35*(-0.004164272*t164*t58+9.882678399999998E-4*
1152         t57*t163*t157-2.2181911808000004E-5*t155*t162*t154+1.8879870464000002E-7*
1153         t152*t161*t151-7.1881547776E-10*t148*t179*t199+1.02539264E-12*
1154         t166*t280*t285)+(0.02221776*t67*t58-0.00120612096*t59*t66*
1155         t58+1.66117824E-5*t65*t64*t58-9.250257024E-8*t63*t62*t58+1.8871916544E-10*
1156         t60*t137*t58-0.00133942752*t57*t66*t157+4.769701632E-5*t57*
1157         t59*t64*t157-5.7651979392E-7*t57*t65*t62*t157+2.97493834752E-9*
1158         t57*t63*t137*t157-5.6615749632E-12*t57*t60*t263*t157)*t147;
1159     d2fdgbgab = 0.0;
1160     d2fdgabgab = 0.0;
1161 
1162 
1163     ds->df1000 += factor*dfdra;
1164     ds->df0100 += factor*dfdrb;
1165     ds->df0010 += factor*dfdga;
1166     ds->df0001 += factor*dfdgb;
1167     ds->df00001+= factor*dfdgab;
1168 
1169     ds->df2000 += factor*d2fdrara;
1170     ds->df1100 += factor*d2fdrarb;
1171     ds->df1010 += factor*d2fdraga;
1172     ds->df1001 += factor*d2fdragb;
1173     ds->df10001+= factor*d2fdraab;
1174     ds->df0200 += factor*d2fdrbrb;
1175     ds->df0110 += factor*d2fdrbga;
1176     ds->df0101 += factor*d2fdrbgb;
1177     ds->df01001+= factor*d2fdrbgab;
1178     ds->df0020 += factor*d2fdgaga;
1179     ds->df0011 += factor*d2fdgagb;
1180     ds->df00101+= factor*d2fdgagab;
1181     ds->df0002 += factor*d2fdgbgb;
1182     ds->df00011+= factor*d2fdgbgab;
1183     ds->df00002+= factor*d2fdgabgab;
1184 
1185 }
1186 
1187 static void
hcth93m_third(FunThirdFuncDrv * ds,real factor,const FunDensProp * dp)1188 hcth93m_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
1189 {
1190     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
1191     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
1192         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
1193         d2fdgbgb, d2fdgbgab, d2fdgabgab;
1194     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
1195          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
1196          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
1197          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
1198          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
1199          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
1200          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
1201     real rhoa = dp->rhoa, rhob = dp->rhob;
1202     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
1203 
1204     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
1205     real t11, t12, t13, t14, t15, t16, t17, t18;
1206     real t19, t20, t21, t22, t23, t24, t25, t26;
1207     real t27, t28, t29, t30, t31, t32, t33, t34;
1208     real t35, t36, t37, t38, t39, t40, t41, t42;
1209     real t43, t44, t45, t46, t47, t48, t49, t50;
1210     real t51, t52, t53, t54, t55, t56, t57, t58;
1211     real t59, t60, t61, t62, t63, t64, t65, t66;
1212     real t67, t68, t69, t70, t71, t72, t73, t74;
1213     real t75, t76, t77, t78, t79, t80, t81, t82;
1214     real t83, t84, t85, t86, t87, t88, t89, t90;
1215     real t91, t92, t93, t94, t95, t96, t97, t98;
1216     real t99, t100, t101, t102, t103, t104, t105;
1217     real t106, t107, t108, t109, t110, t111, t112;
1218     real t113, t114, t115, t116, t117, t118, t119;
1219     real t120, t121, t122, t123, t124, t125, t126;
1220     real t127, t128, t129, t130, t131, t132, t133;
1221     real t134, t135, t136, t137, t138, t139, t140;
1222     real t141, t142, t143, t144, t145, t146, t147;
1223     real t148, t149, t150, t151, t152, t153, t154;
1224     real t155, t156, t157, t158, t159, t160, t161;
1225     real t162, t163, t164, t165, t166, t167, t168;
1226     real t169, t170, t171, t172, t173, t174, t175;
1227     real t176, t177, t178, t179, t180, t181, t182;
1228     real t183, t184, t185, t186, t187, t188, t189;
1229     real t190, t191, t192, t193, t194, t195, t196;
1230     real t197, t198, t199, t200, t201, t202, t203;
1231     real t204, t205, t206, t207, t208, t209, t210;
1232     real t211, t212, t213, t214, t215, t216, t217;
1233     real t218, t219, t220, t221, t222, t223, t224;
1234     real t225, t226, t227, t228, t229, t230, t231;
1235     real t232, t233, t234, t235, t236, t237, t238;
1236     real t239, t240, t241, t242, t243, t244, t245;
1237     real t246, t247, t248, t249, t250, t251, t252;
1238     real t253, t254, t255, t256, t257, t258, t259;
1239     real t260, t261, t262, t263, t264, t265, t266;
1240     real t267, t268, t269, t270, t271, t272, t273;
1241     real t274, t275, t276, t277, t278, t279, t280;
1242     real t281, t282, t283, t284, t285, t286, t287;
1243     real t288, t289, t290, t291, t292, t293, t294;
1244     real t295, t296, t297, t298, t299, t300, t301;
1245     real t302, t303, t304, t305, t306, t307, t308;
1246     real t309, t310, t311, t312, t313, t314, t315;
1247     real t316, t317, t318, t319, t320, t321, t322;
1248     real t323, t324, t325, t326, t327, t328, t329;
1249     real t330, t331, t332, t333, t334, t335, t336;
1250     real t337, t338, t339, t340, t341, t342, t343;
1251     real t344, t345, t346, t347, t348, t349, t350;
1252     real t351, t352, t353, t354, t355, t356, t357;
1253     real t358, t359, t360, t361, t362, t363, t364;
1254     real t365, t366, t367, t368, t369, t370, t371;
1255     real t372, t373, t374, t375, t376, t377, t378;
1256     real t379, t380, t381, t382, t383, t384, t385;
1257     real t386, t387, t388, t389, t390, t391, t392;
1258     real t393, t394, t395, t396, t397, t398, t399;
1259     real t400, t401, t402, t403, t404, t405, t406;
1260     real t407, t408, t409, t410, t411, t412, t413;
1261     real t414, t415, t416, t417, t418, t419, t420;
1262     real t421, t422, t423, t424, t425, t426, t427;
1263     real t428, t429, t430, t431, t432, t433, t434;
1264     real t435, t436, t437, t438, t439, t440, t441;
1265     real t442, t443, t444, t445, t446, t447, t448;
1266     real t449, t450, t451, t452, t453, t454, t455;
1267     real t456, t457, t458, t459, t460, t461, t462;
1268     real t463, t464, t465, t466, t467, t468, t469;
1269     real t470, t471, t472, t473, t474, t475, t476;
1270     real t477, t478, t479, t480, t481, t482, t483;
1271     real t484, t485, t486;
1272 
1273     t1 = pow(3.0,0.333333333333333);
1274     t2 = 1/pow(4.0,0.333333333333333);
1275     t3 = 1/pow(3.141592653589793,0.333333333333333);
1276     t4 = pow(3.0,0.666666666666667);
1277     t5 = 1/pow(4.0,0.666666666666667);
1278     t6 = 1/pow(3.141592653589793,0.666666666666667);
1279     t7 = 1/pow(rhoa,0.666666666666667);
1280     t8 = 1.732050807568877;
1281     t9 = 0.564189583547756;
1282     t10 = sqrt(rhoa);
1283     t11 = pow(rhoa,0.333333333333333);
1284     t12 = 1/t11;
1285     t13 = pow(2.0,0.333333333333333);
1286     t14 = 1/t13;
1287     t15 = pow(3.0,0.166666666666667);
1288     t16 = 1/pow(3.141592653589793,0.166666666666667);
1289     t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
1290         1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
1291     t18 = 32.1646831778707/
1292         t17+1.0;
1293     t19 = log(t18);
1294     t20 = pow(grada,8.0);
1295     t21 = pow(grada,2.0);
1296     t22 = 1/pow(rhoa,2.666666666666667);
1297     t23 = 0.2*t21*t22+1.0;
1298     t24 = 1/pow(t23,4.0);
1299     t25 = 1/pow(rhoa,10.66666666666667);
1300     t26 = pow(grada,6.0);
1301     t27 = 1/pow(t23,3.0);
1302     t28 = 1/pow(rhoa,8.0);
1303     t29 = pow(grada,4.0);
1304     t30 = 1/pow(t23,2.0);
1305     t31 = 1/pow(rhoa,5.333333333333333);
1306     t32 = 1/t23;
1307     t33 = 0.01710778*t21*t32*t22+0.00796612*t29*t30*t31-0.01475312*
1308         t26*t27*t28+0.003489216*t20*t24*t25+0.492391;
1309     t34 = 0.20548*t1*t2*t3*t12+1.0;
1310     t35 = pow(6.0,0.333333333333333);
1311     t36 = 0.004*t21*t22+1.0;
1312     t37 = 1/pow(t36,4.0);
1313     t38 = 1/pow(t36,3.0);
1314     t39 = 1/pow(t36,2.0);
1315     t40 = 1/t36;
1316     t41 = -0.002082136*t21*t40*t22+7.54152E-5*t29*t39*t31-
1317         3.685203200000001E-7*t26*t38*t28+8.01088E-10*t20*t37*t25+1.07785;
1318     t42 = pow(grada,
1319         10.0);
1320     t43 = 1/pow(t23,5.0);
1321     t44 = 1/pow(rhoa,14.33333333333333);
1322     t45 = 1/pow(rhoa,11.66666666666667);
1323     t46 = 1/pow(rhoa,9.0);
1324     t47 = 1/pow(rhoa,6.333333333333333);
1325     t48 = 1/pow(rhoa,3.666666666666667);
1326     t49 = -0.045620746666667*t21*t32*t48-0.033361824*t29*
1327         t30*t47+0.126522154666667*t26*t27*t46-0.060823296*t20*t24*
1328         t45+0.0074436608*t42*t43*t44;
1329     t50 = 1/t18;
1330     t51 = 1/pow(rhoa,1.666666666666667);
1331     t52 = pow(rhoa,1.333333333333333);
1332     t53 = 1/t52;
1333     t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
1334         0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
1335         t5*t6*t51;
1336     t55 = 1/pow(t17,2.0);
1337     t56 = 1/pow(t36,5.0);
1338     t57 = 0.005552362666667*t21*t40*t48-4.244238506666666E-4*
1339         t29*t39*t47+4.557020160000001E-6*t26*t38*t46-2.0337588906666668E-8*
1340         t20*t37*t45+3.41797546666667E-11*t42*t56*t44;
1341     t58 = pow(gradb,2.0);
1342     t59 = 1/pow(rhob,2.666666666666667);
1343     t60 = 0.5*t58*t59+0.5*t21*t22;
1344     t61 = pow(t60,4.0);
1345     t62 = 0.006*t60+1.0;
1346     t63 = 1/pow(t62,4.0);
1347     t64 = pow(t60,3.0);
1348     t65 = 1/pow(t62,3.0);
1349     t66 = pow(t60,2.0);
1350     t67 = 1/pow(t62,2.0);
1351     t68 = 1/t62;
1352     t69 = 0.02221776*t60*t68-5.364072E-4*t66*t67+3.391632E-6*
1353         t64*t65-7.86329856E-9*t61*t63+0.622261;
1354     t70 = rhob+rhoa;
1355     t71 = 1/pow(t70,0.333333333333333);
1356     t72 = 0.2137*t1*t2*t3*t71+1.0;
1357     t73 = 1/pow(t70,0.666666666666667);
1358     t74 = sqrt(t70);
1359     t75 = 1/t74;
1360     t76 = 1/pow(t70,0.166666666666667);
1361     t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
1362         t8*t9*t75+0.49294*t4*t5*t6*t73;
1363     t78 = 16.0818243221511/t77+1.0;
1364     t79 = log(t78);
1365     t80 = -0.062182*t72*t79;
1366     t81 = 1/(2.0*t13-2.0);
1367     t82 = rhoa-1.0*rhob;
1368     t83 = pow(t82,4.0);
1369     t84 = 1/pow(t70,4.0);
1370     t85 = 1.0-1.0*t83*t84;
1371     t86 = 0.11125*t1*t2*t3*t71+1.0;
1372     t87 = 1/t70;
1373     t88 = 1.0-1.0*t82*t87;
1374     t89 = t82*t87+1.0;
1375     t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
1376         2.0;
1377     t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
1378         t8*t9*t75+0.49671*t4*t5*t6*t73;
1379     t92 = 29.60857464321668/t91+1.0;
1380     t93 = log(t92);
1381     t94 = 0.019751789702565*t81*t85*t86*t90*t93;
1382     t95 = 0.20548*t1*t2*t3*t71+1.0;
1383     t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
1384         t8*t9*t75+0.62517*t4*t5*t6*t73;
1385     t97 = 32.1646831778707/t96+1.0;
1386     t98 = log(t97);
1387     t99 = 0.062182*t72*t79-0.03109*t95*t98;
1388     t100 = t81*t83*t84*t90*t99;
1389     t101 = 1/pow(t70,1.666666666666667);
1390     t102 = 1/pow(t74,3.0);
1391     t103 = 1/pow(t70,1.333333333333333);
1392     t104 = 1/pow(t70,1.166666666666667);
1393     t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
1394         t2*t3*t103-0.40955*t8*t9*t102-0.328626666666667*t4*t5*t6*t101;
1395     t106 = 1/
1396         pow(t77,2.0);
1397     t107 = 1/t78;
1398     t108 = 1.0*t105*t72*t106*t107;
1399     t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
1400         t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
1401     t110 = 1/pow(t91,2.0);
1402     t111 = 1/t92;
1403     t112 = -0.58482233974552*t81*t85*t109*t86*t110*t90*t111;
1404     t113 = 0.004429431133333*
1405         t1*t2*t3*t103*t79;
1406     t114 = 1/pow(t70,2.0);
1407     t115 = t82*t114;
1408     t116 = -1.0*t87;
1409     t117 = t116+t115;
1410     t118 = pow(t88,0.333333333333333);
1411     t119 = -1.0*t114*t82;
1412     t120 = t87+t119;
1413     t121 = pow(t89,0.333333333333333);
1414     t122 = 1.333333333333333*t120*t121+1.333333333333333*
1415         t117*t118;
1416     t123 = 0.019751789702565*t81*t85*t86*t122*t93;
1417     t124 = -7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t90*
1418         t93;
1419     t125 = 1/pow(t70,5.0);
1420     t126 = 4.0*t125*t83;
1421     t127 = pow(t82,3.0);
1422     t128 = t126-4.0*t127*t84;
1423     t129 = 0.019751789702565*t81*t128*t86*t90*t93;
1424     t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
1425         0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
1426     t131 = 1/pow(t96,2.0);
1427     t132 = 1/t97;
1428     t133 = 0.002129457733333*t1*t2*t3*t103*t98-0.004429431133333*
1429         t1*t2*t3*t103*t79+t130*t95*t131*t132-1.0*t105*t72*t106*t107;
1430     t134 = t81*
1431         t83*t84*t90*t133;
1432     t135 = t81*t83*t84*t122*t99;
1433     t136 = -4.0*t125*t81*t83*t90*t99;
1434     t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
1435         t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
1436         t80+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12+t100;
1437     t138 = 1/
1438         pow(t62,5.0);
1439     t139 = -0.02962368*t21*t48*t68+0.00160816128*t21*t48*
1440         t60*t67-2.2149043200000002E-5*t21*t48*t66*t65+1.2333676031999999E-7*
1441         t21*t48*t64*t63-2.5162555392E-10*t21*t48*t61*t138;
1442     t140 = 1/pow(rhob,0.666666666666667);
1443     t141 = sqrt(rhob);
1444     t142 = pow(rhob,0.333333333333333);
1445     t143 = 1/t142;
1446     t144 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
1447         1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
1448     t145 = 32.1646831778707/
1449         t144+1.0;
1450     t146 = log(t145);
1451     t147 = 0.20548*t1*t2*t3*t143+1.0;
1452     t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
1453         t19*t34*rhoa;
1454     t149 = pow(gradb,8.0);
1455     t150 = 0.2*t58*t59+1.0;
1456     t151 = 1/pow(t150,4.0);
1457     t152 = 1/pow(rhob,10.66666666666667);
1458     t153 = pow(gradb,6.0);
1459     t154 = 1/pow(t150,3.0);
1460     t155 = 1/pow(rhob,8.0);
1461     t156 = pow(gradb,4.0);
1462     t157 = 1/pow(t150,2.0);
1463     t158 = 1/pow(rhob,5.333333333333333);
1464     t159 = 1/t150;
1465     t160 = 0.01710778*t58*t159*t59+0.00796612*t156*t157*t158-
1466         0.01475312*t153*t154*t155+0.003489216*t149*t151*t152+0.492391;
1467     t161 = 0.004*
1468         t58*t59+1.0;
1469     t162 = 1/pow(t161,4.0);
1470     t163 = 1/pow(t161,3.0);
1471     t164 = 1/pow(t161,2.0);
1472     t165 = 1/t161;
1473     t166 = -0.002082136*t58*t165*t59+7.54152E-5*t156*t164*
1474         t158-3.685203200000001E-7*t153*t163*t155+8.01088E-10*t149*
1475         t162*t152+1.07785;
1476     t167 = pow(gradb,10.0);
1477     t168 = 1/pow(t150,5.0);
1478     t169 = 1/pow(rhob,14.33333333333333);
1479     t170 = 1/pow(rhob,11.66666666666667);
1480     t171 = 1/pow(rhob,9.0);
1481     t172 = 1/pow(rhob,6.333333333333333);
1482     t173 = 1/pow(rhob,3.666666666666667);
1483     t174 = -0.045620746666667*t58*t159*t173-0.033361824*t156*
1484         t157*t172+0.126522154666667*t153*t154*t171-0.060823296*t149*
1485         t151*t170+0.0074436608*t167*t168*t169;
1486     t175 = 1/t145;
1487     t176 = 1/pow(rhob,1.666666666666667);
1488     t177 = pow(rhob,1.333333333333333);
1489     t178 = 1/t177;
1490     t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
1491         0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
1492         t5*t6*t176;
1493     t180 = 1/pow(t144,2.0);
1494     t181 = 1/pow(t161,5.0);
1495     t182 = 0.005552362666667*t58*t165*t173-4.244238506666666E-4*
1496         t156*t164*t172+4.557020160000001E-6*t153*t163*t171-2.0337588906666668E-8*
1497         t149*t162*t170+3.41797546666667E-11*t167*t181*t169;
1498     t183 = t87+t115;
1499     t184 = t116+t119;
1500     t185 = 1.333333333333333*t121*t184+1.333333333333333*
1501         t118*t183;
1502     t186 = 0.019751789702565*t81*t85*t86*t185*t93;
1503     t187 = 4.0*t127*t84+t126;
1504     t188 = 0.019751789702565*t81*t187*t86*t90*t93;
1505     t189 = t81*t83*t84*t185*t99;
1506     t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
1507         t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
1508         t94+t80+0.03109*t146*t147-0.002129457733333*t1*t2*t3*t146*
1509         t143+t100;
1510     t191 = -0.02962368*t58*t68*t173+0.00160816128*t58*t60*
1511         t67*t173-2.2149043200000002E-5*t58*t66*t65*t173+1.2333676031999999E-7*
1512         t58*t64*t63*t173-2.5162555392E-10*t58*t61*t138*t173;
1513     t192 = pow(grada,9.0);
1514     t193 = 1/pow(rhoa,13.33333333333333);
1515     t194 = pow(grada,7.0);
1516     t195 = pow(grada,5.0);
1517     t196 = pow(grada,3.0);
1518     t197 = 0.03421556*grada*t32*t22+0.025021368*t196*t30*
1519         t31-0.094891616*t195*t27*t28+0.045617472*t194*t24*t25-0.0055827456*
1520         t192*t43*t193;
1521     t198 = -0.004164272*grada*t40*t22+3.18317888E-4*t196*
1522         t39*t31-3.417765120000001E-6*t195*t38*t28+1.525319168E-8*t194*
1523         t37*t25-2.5634816E-11*t192*t56*t193;
1524     t199 = 0.02221776*grada*t22*t68-0.00120612096*grada*t22*
1525         t60*t67+1.66117824E-5*grada*t22*t66*t65-9.250257024E-8*grada*
1526         t22*t64*t63+1.8871916544E-10*grada*t22*t61*t138;
1527     t200 = pow(gradb,9.0);
1528     t201 = 1/pow(rhob,13.33333333333333);
1529     t202 = pow(gradb,7.0);
1530     t203 = pow(gradb,5.0);
1531     t204 = pow(gradb,3.0);
1532     t205 = 0.03421556*gradb*t159*t59+0.025021368*t204*t157*
1533         t158-0.094891616*t203*t154*t155+0.045617472*t202*t151*t152-
1534         0.0055827456*t200*t168*t201;
1535     t206 = -0.004164272*gradb*t165*t59+3.18317888E-4*t204*
1536         t164*t158-3.417765120000001E-6*t203*t163*t155+1.525319168E-8*
1537         t202*t162*t152-2.5634816E-11*t200*t181*t201;
1538     t207 = 0.02221776*gradb*t68*t59-0.00120612096*gradb*t60*
1539         t67*t59+1.66117824E-5*gradb*t66*t65*t59-9.250257024E-8*gradb*
1540         t64*t63*t59+1.8871916544E-10*gradb*t61*t138*t59;
1541     t208 = pow(grada,12.0);
1542     t209 = 1/pow(t23,6.0);
1543     t210 = 1/pow(rhoa,18.0);
1544     t211 = 1/pow(rhoa,15.33333333333333);
1545     t212 = 1/pow(rhoa,12.66666666666667);
1546     t213 = 1/pow(rhoa,10.0);
1547     t214 = 1/pow(rhoa,7.333333333333333);
1548     t215 = 1/pow(rhoa,4.666666666666667);
1549     t216 = 0.167276071111111*t21*t32*t215+0.186960487111111*
1550         t29*t30*t214-1.1742853376*t26*t27*t213+0.912040567466667*t20*
1551         t24*t212-0.236448836266667*t42*t43*t211+0.019849762133333*
1552         t208*t209*t210;
1553     t217 = 1/pow(t18,2.0);
1554     t218 = pow(t54,2.0);
1555     t219 = 1/pow(t17,4.0);
1556     t220 = 1/pow(t17,3.0);
1557     t221 = 1/pow(rhoa,2.333333333333333);
1558     t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
1559         1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
1560         0.694633333333333*t4*t5*t6*t22;
1561     t223 = 1/pow(t36,6.0);
1562     t224 = -0.020358663111111*t21*t40*t215+0.002747242922667*
1563         t29*t39*t214-5.00675569208889E-5*t26*t38*t213+3.830965156977778E-7*
1564         t20*t37*t212-1.357646943573333E-9*t42*t56*t211+1.82292024888889E-12*
1565         t208*t223*t210;
1566     t225 = 2.0*t105*t72*t106*t107;
1567     t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
1568     t227 = 0.008858862266667*
1569         t1*t2*t3*t103*t79;
1570     t228 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t90*t93;
1571     t229 = 2.0*
1572         t133*t81*t83*t84*t90;
1573     t230 = -8.0*t125*t81*t83*t90*t99;
1574     t231 = pow(t105,2.0);
1575     t232 = 1/pow(t77,4.0);
1576     t233 = 1/pow(t78,2.0);
1577     t234 = 16.0818243221511*t231*t72*t232*t233;
1578     t235 = 1/pow(t77,3.0);
1579     t236 = -2.0*t231*t72*t235*t107;
1580     t237 = -0.142466666666667*t1*t2*t3*t103*t105*t106*t107;
1581     t238 = 1/
1582         pow(t70,2.666666666666667);
1583     t239 = 1/pow(t74,5.0);
1584     t240 = 1/pow(t70,2.333333333333333);
1585     t241 = 1/pow(t70,2.166666666666667);
1586     t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
1587         t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
1588         t6*t238;
1589     t243 = 1.0*t242*t72*t106*t107;
1590     t244 = pow(t109,2.0);
1591     t245 = 1/pow(t91,4.0);
1592     t246 = 1/pow(t92,2.0);
1593     t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
1594     t248 = -
1595         1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
1596     t249 = 1/pow(t91,3.0);
1597     t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
1598     t251 = 0.043374323531126*
1599         t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
1600     t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
1601         t1*t2*t3*t240+0.3300975*t8*t9*t239+0.5519*t4*t5*t6*t238;
1602     t253 = -
1603         0.58482233974552*t81*t85*t252*t86*t110*t90*t111;
1604     t254 = -1.169644679491041*t81*t128*t109*t86*t110*t90*
1605         t111;
1606     t255 = -0.005905908177778*t1*t2*t3*t240*t79;
1607     t256 = pow(t117,2.0);
1608     t257 = 1/pow(t88,0.666666666666667);
1609     t258 = 1/pow(t70,3.0);
1610     t259 = -2.0*t258*t82;
1611     t260 = 2.0*t114;
1612     t261 = t260+t259;
1613     t262 = pow(t120,2.0);
1614     t263 = 1/pow(t89,0.666666666666667);
1615     t264 = 2.0*t258*t82;
1616     t265 = -2.0*t114;
1617     t266 = t265+t264;
1618     t267 = 1.333333333333333*t121*t266+0.444444444444444*
1619         t262*t263+1.333333333333333*t118*t261+0.444444444444444*t256*
1620         t257;
1621     t268 = 0.019751789702565*t81*t85*t86*t267*t93;
1622     t269 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t122*t93;
1623     t270 = 0.03950357940513*
1624         t81*t128*t86*t122*t93;
1625     t271 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t90*t93;
1626     t272 = 9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t90*
1627         t93;
1628     t273 = 1/pow(t70,6.0);
1629     t274 = -20.0*t273*t83;
1630     t275 = pow(t82,2.0);
1631     t276 = -12.0*t275*t84;
1632     t277 = t276+t274+32.0*t125*t127;
1633     t278 = 0.019751789702565*t81*t277*t86*t90*t93;
1634     t279 = pow(t130,2.0);
1635     t280 = 1/pow(t96,4.0);
1636     t281 = 1/pow(t97,2.0);
1637     t282 = 1/pow(t96,3.0);
1638     t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
1639         t1*t2*t3*t240+1.262325*t8*t9*t239+0.694633333333333*t4*t5*
1640         t6*t238;
1641     t284 = -0.002839276977778*t1*t2*t3*t240*t98-2.0*t132*
1642         t279*t282*t95+0.005905908177778*t1*t2*t3*t240*t79+32.1646831778707*
1643         t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
1644         t95*t131*t132-0.136986666666667*t1*t2*t3*t103*t130*t131*t132+
1645         2.0*t231*t72*t235*t107-1.0*t242*t72*t106*t107+0.142466666666667*
1646         t1*t2*t3*t103*t105*t106*t107;
1647     t285 = t81*t83*t84*t90*t284;
1648     t286 = 2.0*t122*t133*t81*t83*t84;
1649     t287 = -8.0*t125*t133*t81*t83*t90;
1650     t288 = 8.0*t127*t133*t81*t84*t90;
1651     t289 = t81*t83*t84*t267*t99;
1652     t290 = -8.0*t122*t125*t81*t83*t99;
1653     t291 = 20.0*t273*t81*t83*t90*t99;
1654     t292 = -32.0*t125*t127*t81*t90*t99;
1655     t293 = 12.0*t275*t81*t84*t90*t99;
1656     t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
1657         rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
1658         t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
1659         t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
1660         t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
1661         t81*t83*t84*t99+0.03950357940513*t81*t128*t86*t90*t93+0.03950357940513*
1662         t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-0.001419638488889*
1663         t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+0.136986666666667*
1664         t1*t2*t3*t50*t54*t55*t12;
1665     t295 = 1/pow(t62,6.0);
1666     t296 = 0.10862016*t21*t215*t68-0.00589659136*t21*t215*
1667         t60*t67-0.00238120448*t29*t214*t67+8.121315840000001E-5*t21*
1668         t215*t66*t65+8.479469568E-5*t29*t214*t60*t65-4.522347878399999E-7*
1669         t21*t215*t64*t63-1.02492407808E-6*t29*t214*t66*t63+9.2262703104E-10*
1670         t21*t215*t61*t138+5.28877928448E-9*t29*t214*t64*t138-1.00650221568E-11*
1671         t29*t214*t61*t295;
1672     t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
1673         t118*t258*t82+0.444444444444444*t120*t184*t263+0.444444444444444*
1674         t117*t183*t257;
1675     t298 = 12.0*t275*t84+t274;
1676     t299 = -12.0*t275*t81*t84*t90*t99;
1677     t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
1678         t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
1679         t81*t83*t84*t297*t99+0.019751789702565*t81*t298*t86*t90*t93-
1680         7.324622014701263E-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263E-4*
1681         t81*t1*t2*t3*t103*t128*t90*t93+0.019751789702565*t81*t85*t86*
1682         t297*t93+0.019751789702565*t81*t128*t86*t185*t93-7.324622014701263E-4*
1683         t81*t1*t2*t3*t103*t85*t185*t93+0.019751789702565*t81*t187*
1684         t86*t122*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t122*
1685         t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
1686         t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
1687         0.58482233974552*t81*t187*t109*t86*t110*t90*t111-0.58482233974552*
1688         t81*t128*t109*t86*t110*t90*t111-0.58482233974552*t81*t85*t109*
1689         t86*t110*t185*t111-0.58482233974552*t81*t85*t109*t86*t110*
1690         t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+t135+
1691         t129+t123;
1692     t301 = -0.00238120448*t21*t58*t48*t67*t173+8.479469568E-5*
1693         t21*t58*t48*t60*t65*t173-1.02492407808E-6*t21*t58*t48*t66*
1694         t63*t173+5.28877928448E-9*t21*t58*t48*t64*t138*t173-1.00650221568E-11*
1695         t21*t58*t48*t61*t295*t173;
1696     t302 = pow(grada,11.0);
1697     t303 = 1/pow(rhoa,17.0);
1698     t304 = -0.091241493333333*grada*t32*t48-0.115198997333333*
1699         t196*t30*t47+0.7858223872*t195*t27*t46-0.6384129536*t194*t24*
1700         t45+0.1717538816*t192*t43*t44-0.0148873216*t302*t209*t303;
1701     t305 = 0.011104725333333*
1702         grada*t40*t48-0.001742114304*t196*t39*t47+3.413290257066667E-5*
1703         t195*t38*t46-2.720691950933334E-7*t194*t37*t45+9.9260039168E-10*
1704         t192*t56*t44-1.367190186666667E-12*t302*t223*t303;
1705     t306 = -0.05924736*grada*t48*t68+0.00321632256*grada*
1706         t48*t60*t67+0.00178590336*t196*t47*t67-4.42980864E-5*grada*
1707         t48*t66*t65-6.359602176E-5*t196*t47*t60*t65+2.4667352064E-7*
1708         grada*t48*t64*t63+7.6869305856E-7*t196*t47*t66*t63-5.0325110784E-10*
1709         grada*t48*t61*t138-3.96658446336E-9*t196*t47*t64*t138+7.5487666176E-12*
1710         t196*t47*t61*t295;
1711     t307 = 0.00178590336*t21*gradb*t48*t67*t59-6.359602176E-5*
1712         t21*gradb*t48*t60*t65*t59+7.6869305856E-7*t21*gradb*t48*t66*
1713         t63*t59-3.96658446336E-9*t21*gradb*t48*t64*t138*t59+7.5487666176E-12*
1714         t21*gradb*t48*t61*t295*t59;
1715     t308 = pow(gradb,12.0);
1716     t309 = 1/pow(t150,6.0);
1717     t310 = 1/pow(rhob,18.0);
1718     t311 = 1/pow(rhob,15.33333333333333);
1719     t312 = 1/pow(rhob,12.66666666666667);
1720     t313 = 1/pow(rhob,10.0);
1721     t314 = 1/pow(rhob,7.333333333333333);
1722     t315 = 1/pow(rhob,4.666666666666667);
1723     t316 = 0.167276071111111*t58*t159*t315+0.186960487111111*
1724         t156*t157*t314-1.1742853376*t153*t154*t313+0.912040567466667*
1725         t149*t151*t312-0.236448836266667*t167*t168*t311+0.019849762133333*
1726         t308*t309*t310;
1727     t317 = 1/pow(t145,2.0);
1728     t318 = pow(t179,2.0);
1729     t319 = 1/pow(t144,4.0);
1730     t320 = 1/pow(t144,3.0);
1731     t321 = 1/pow(rhob,2.333333333333333);
1732     t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
1733         1.262325*t8*t9/pow(t141,5.0)+0.694633333333333*t4*t5*t6*t59+
1734         2.754533333333333*t1*t2*t3*t321;
1735     t323 = 1/pow(t161,6.0);
1736     t324 = -0.020358663111111*t58*t165*t315+0.002747242922667*
1737         t156*t164*t314-5.00675569208889E-5*t153*t163*t313+3.830965156977778E-7*
1738         t149*t162*t312-1.357646943573333E-9*t167*t181*t311+1.82292024888889E-12*
1739         t308*t323*t310;
1740     t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
1741         t111;
1742     t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
1743         t111;
1744     t327 = pow(t183,2.0);
1745     t328 = t265+t259;
1746     t329 = pow(t184,2.0);
1747     t330 = t260+t264;
1748     t331 = 1.333333333333333*t121*t330+0.444444444444444*
1749         t263*t329+1.333333333333333*t118*t328+0.444444444444444*t257*
1750         t327;
1751     t332 = 0.019751789702565*t81*t85*t86*t331*t93;
1752     t333 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t185*t93;
1753     t334 = 0.03950357940513*
1754         t81*t187*t86*t185*t93;
1755     t335 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t90*t93;
1756     t336 = t276+
1757         t274-32.0*t125*t127;
1758     t337 = 0.019751789702565*t81*t336*t86*t90*t93;
1759     t338 = 2.0*t133*t185*t81*t83*t84;
1760     t339 = -8.0*t127*t133*t81*t84*t90;
1761     t340 = t81*t83*t84*t331*t99;
1762     t341 = -8.0*t125*t185*t81*t83*t99;
1763     t342 = 32.0*t125*t127*t81*t90*t99;
1764     t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
1765         t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
1766         (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
1767         t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
1768         t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
1769         t90*t99+2.0*t185*t81*t83*t84*t99+0.03950357940513*t81*t187*
1770         t86*t90*t93+0.03950357940513*t81*t85*t86*t185*t93+t230+t229+
1771         t228+t227+t226+t225-2.0*t175*t179*t147*t180-0.001419638488889*
1772         t1*t2*t3*t146*t178+0.136986666666667*t1*t2*t3*t175*t179*t180*
1773         t143;
1774     t344 = 0.10862016*t58*t68*t315-0.00589659136*t58*t60*
1775         t67*t315+8.121315840000001E-5*t58*t66*t65*t315-4.522347878399999E-7*
1776         t58*t64*t63*t315+9.2262703104E-10*t58*t61*t138*t315-0.00238120448*
1777         t156*t67*t314+8.479469568E-5*t156*t60*t65*t314-1.02492407808E-6*
1778         t156*t66*t63*t314+5.28877928448E-9*t156*t64*t138*t314-1.00650221568E-11*
1779         t156*t61*t295*t314;
1780     t345 = 0.00178590336*grada*t58*t22*t67*t173-6.359602176E-5*
1781         grada*t58*t22*t60*t65*t173+7.6869305856E-7*grada*t58*t22*t66*
1782         t63*t173-3.96658446336E-9*grada*t58*t22*t64*t138*t173+7.5487666176E-12*
1783         grada*t58*t22*t61*t295*t173;
1784     t346 = pow(gradb,11.0);
1785     t347 = 1/pow(rhob,17.0);
1786     t348 = -0.091241493333333*gradb*t159*t173-0.115198997333333*
1787         t204*t157*t172+0.7858223872*t203*t154*t171-0.6384129536*t202*
1788         t151*t170+0.1717538816*t200*t168*t169-0.0148873216*t346*t309*
1789         t347;
1790     t349 = 0.011104725333333*gradb*t165*t173-0.001742114304*
1791         t204*t164*t172+3.413290257066667E-5*t203*t163*t171-2.720691950933334E-7*
1792         t202*t162*t170+9.9260039168E-10*t200*t181*t169-1.367190186666667E-12*
1793         t346*t323*t347;
1794     t350 = -0.05924736*gradb*t68*t173+0.00321632256*gradb*
1795         t60*t67*t173-4.42980864E-5*gradb*t66*t65*t173+2.4667352064E-7*
1796         gradb*t64*t63*t173-5.0325110784E-10*gradb*t61*t138*t173+0.00178590336*
1797         t204*t67*t172-6.359602176E-5*t204*t60*t65*t172+7.6869305856E-7*
1798         t204*t66*t63*t172-3.96658446336E-9*t204*t64*t138*t172+7.5487666176E-12*
1799         t204*t61*t295*t172;
1800     t351 = 1/pow(rhoa,16.0);
1801     t352 = 0.03421556*t32*t22+0.06137788*t21*t30*t31-0.4944751744*
1802         t29*t27*t28+0.4331922432*t26*t24*t25-0.1232326656*t20*t43*
1803         t193+0.0111654912*t42*t209*t351;
1804     t353 = -0.004164272*t40*t22+9.882678399999998E-4*t21*
1805         t39*t31-2.2181911808000004E-5*t29*t38*t28+1.8879870464000002E-7*
1806         t26*t37*t25-7.1881547776E-10*t20*t56*t193+1.02539264E-12*t42*
1807         t223*t351;
1808     t354 = 0.02221776*t22*t68-0.00120612096*t22*t60*t67-0.00133942752*
1809         t21*t31*t67+1.66117824E-5*t22*t66*t65+4.769701632E-5*t21*t31*
1810         t60*t65-9.250257024E-8*t22*t64*t63-5.7651979392E-7*t21*t31*
1811         t66*t63+1.8871916544E-10*t22*t61*t138+2.97493834752E-9*t21*
1812         t31*t64*t138-5.6615749632E-12*t21*t31*t61*t295;
1813     t355 = -0.00133942752*grada*gradb*t22*t67*t59+4.769701632E-5*
1814         grada*gradb*t22*t60*t65*t59-5.7651979392E-7*grada*gradb*t22*
1815         t66*t63*t59+2.97493834752E-9*grada*gradb*t22*t64*t138*t59-
1816         5.6615749632E-12*grada*gradb*t22*t61*t295*t59;
1817     t356 = 1/pow(rhob,16.0);
1818     t357 = 0.03421556*t159*t59+0.06137788*t58*t157*t158-0.4944751744*
1819         t156*t154*t155+0.4331922432*t153*t151*t152-0.1232326656*t149*
1820         t168*t201+0.0111654912*t167*t309*t356;
1821     t358 = -0.004164272*t165*t59+9.882678399999998E-4*t58*
1822         t164*t158-2.2181911808000004E-5*t156*t163*t155+1.8879870464000002E-7*
1823         t153*t162*t152-7.1881547776E-10*t149*t181*t201+1.02539264E-12*
1824         t167*t323*t356;
1825     t359 = 0.02221776*t68*t59-0.00120612096*t60*t67*t59+1.66117824E-5*
1826         t66*t65*t59-9.250257024E-8*t64*t63*t59+1.8871916544E-10*t61*
1827         t138*t59-0.00133942752*t58*t67*t158+4.769701632E-5*t58*t60*
1828         t65*t158-5.7651979392E-7*t58*t66*t63*t158+2.97493834752E-9*
1829         t58*t64*t138*t158-5.6615749632E-12*t58*t61*t295*t158;
1830     t360 = pow(grada,14.0);
1831     t361 = 1/pow(t23,7.0);
1832     t362 = 1/pow(rhoa,21.66666666666667);
1833     t363 = 1/pow(rhoa,19.0);
1834     t364 = 1/pow(rhoa,16.33333333333333);
1835     t365 = 1/pow(rhoa,13.66666666666667);
1836     t366 = 1/pow(rhoa,11.0);
1837     t367 = 1/pow(rhoa,8.333333333333334);
1838     t368 = 1/pow(rhoa,5.666666666666667);
1839     t369 = 1/pow(t18,3.0);
1840     t370 = pow(t54,3.0);
1841     t371 = 1/pow(t17,6.0);
1842     t372 = 1/pow(t17,5.0);
1843     t373 = -6.427244444444445*t1*t2*t3/pow(rhoa,3.333333333333333)-
1844         5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
1845         3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48;
1846     t374 = 1/
1847         pow(t36,7.0);
1848     t375 = 48.2454729664533*t231*t72*t232*t233;
1849     t376 = -6.0*t231*t72*t235*t107;
1850     t377 = -0.4274*t1*t2*t3*t103*t105*t106*t107;
1851     t378 = 3.0*t242*t72*t106*t107;
1852     t379 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
1853     t380 = 3.508934038473122*
1854         t81*t85*t244*t86*t249*t90*t111;
1855     t381 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
1856         t90*t111;
1857     t382 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
1858     t383 = -
1859         0.017717724533333*t1*t2*t3*t240*t79;
1860     t384 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t90*t93;
1861     t385 = 3.0*
1862         t284*t81*t83*t84*t90;
1863     t386 = -24.0*t125*t133*t81*t83*t90;
1864     t387 = 60.0*t273*t81*t83*t90*t99;
1865     t388 = 36.0*t275*t81*t84*t90*t99;
1866     t389 = pow(t105,3.0);
1867     t390 = 1/pow(t77,6.0);
1868     t391 = 1/pow(t78,3.0);
1869     t392 = 517.2501470570614*t389*t72*t390*t391;
1870     t393 = 1/pow(t77,5.0);
1871     t394 = -96.4909459329066*t389*t72*t393*t233;
1872     t395 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
1873     t396 = 48.2454729664533*
1874         t242*t105*t72*t232*t233;
1875     t397 = 6.0*t389*t72*t232*t107;
1876     t398 = 0.4274*t1*t2*t3*t103*t231*t235*t107;
1877     t399 = -6.0*t242*t105*t72*t235*t107;
1878     t400 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
1879     t401 = 0.284933333333333*t1*t2*t3*t240*t105*t106*t107;
1880     t402 = 1/
1881         pow(t70,3.666666666666667);
1882     t403 = 1/pow(t74,7.0);
1883     t404 = 1/pow(t70,3.333333333333333);
1884     t405 = 1/pow(t70,3.166666666666667);
1885     t406 = -3.200040277777777*t14*t15*t16*t405-3.720474074074074*
1886         t1*t2*t3*t404-1.5358125*t8*t9*t403-1.460562962962963*t4*t5*
1887         t6*t402;
1888     t407 = 1.0*t406*t72*t106*t107;
1889     t408 = pow(t109,3.0);
1890     t409 = -1025.38970210078*t408*t81*t85*t86*t90/(pow(t91,
1891         6.0)*pow(t92,3.0));
1892     t410 = 103.8945353962552*t246*t408*t81*t85*t86*t90/pow(t91,
1893         5.0);
1894     t411 = 1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*
1895         t90*t246;
1896     t412 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
1897         t246;
1898     t413 = -3.508934038473122*t81*t85*t408*t86*t245*t90*t111;
1899     t414 = -
1900         0.130122970593378*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
1901     t415 = 3.508934038473122*
1902         t81*t85*t252*t109*t86*t249*t90*t111;
1903     t416 = 0.065061485296689*t81*t1*t2*t3*t103*t85*t252*t110*
1904         t90*t111;
1905     t417 = -0.086748647062252*t81*t1*t2*t3*t240*t85*t109*
1906         t110*t90*t111;
1907     t418 = -0.58482233974552*t81*t85*(-4.36336574074074*t14*
1908         t15*t16*t405-3.757288888888889*t1*t2*t3*t404-0.82524375*t8*
1909         t9*t403-1.471733333333333*t4*t5*t6*t402)*t86*t110*t90*t111;
1910     t419 = 0.013780452414815*
1911         t1*t2*t3*t404*t79;
1912     t420 = 1/pow(t88,1.666666666666667);
1913     t421 = 6.0*t82*t84;
1914     t422 = -6.0*t258;
1915     t423 = 1/pow(t89,1.666666666666667);
1916     t424 = -6.0*t82*t84;
1917     t425 = 6.0*t258;
1918     t426 = 1.333333333333333*t121*(t425+t424)-0.296296296296296*
1919         pow(t120,3.0)*t423+1.333333333333333*t118*(t422+t421)-0.296296296296296*
1920         pow(t117,3.0)*t420+1.333333333333333*t120*t263*t266+1.333333333333333*
1921         t117*t257*t261;
1922     t427 = -0.002278771293463*t81*t1*t2*t3*t404*t85*t90*t93;
1923     t428 = 1/
1924         pow(t70,7.0);
1925     t429 = 120.0*t428*t83;
1926     t430 = 144.0*t125*t275;
1927     t431 = -24.0*t82*t84;
1928     t432 = pow(t130,3.0);
1929     t433 = t81*t83*t84*t90*(0.006624979614815*t1*t2*t3*t404*
1930         t98+2069.133687865597*t432*t95/(pow(t96,6.0)*pow(t97,3.0))-
1931         192.9880990672242*t281*t432*t95/pow(t96,5.0)+6.0*t132*t280*
1932         t432*t95-6.0*t130*t132*t282*t283*t95-0.013780452414815*t1*
1933         t2*t3*t404*t79-517.2501470570614*t389*t72*t390*t391+96.4940495336121*
1934         t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
1935         t280*t281+96.4909459329066*t389*t72*t393*t233-48.2454729664533*
1936         t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
1937         t232*t233+0.41096*t1*t2*t3*t103*t279*t282*t132+(-5.948240277777777*
1938         t14*t15*t16*t405-6.427244444444445*t1*t2*t3*t404-3.1558125*
1939         t8*t9*t403-1.852355555555556*t4*t5*t6*t402)*t95*t131*t132-
1940         0.20548*t1*t2*t3*t103*t283*t131*t132+0.273973333333333*t1*
1941         t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-0.4274*
1942         t1*t2*t3*t103*t231*t235*t107-6.0*t389*t72*t232*t107-1.0*t406*
1943         t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-0.284933333333333*
1944         t1*t2*t3*t240*t105*t106*t107);
1945     t434 = -12.0*t125*t284*t81*t83*t90;
1946     t435 = 60.0*t133*t273*t81*t83*t90;
1947     t436 = 36.0*t133*t275*t81*t84*t90;
1948     t437 = -120.0*t428*t81*t83*t90*t99;
1949     t438 = -144.0*t125*t275*t81*t90*t99;
1950     t439 = 24.0*t81*t82*t84*t90*t99;
1951     t440 = 1/pow(t62,7.0);
1952     t441 = 0.03950357940513*t81*t85*t86*t297*t93;
1953     t442 = 0.03950357940513*t81*t128*t86*t185*t93;
1954     t443 = 0.03950357940513*t81*t187*t86*t122*t93;
1955     t444 = 0.03950357940513*t81*t298*t86*t90*t93;
1956     t445 = 2.0*t297*t81*t83*t84*t99;
1957     t446 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
1958         t111;
1959     t447 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
1960         t111;
1961     t448 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
1962         t111;
1963     t449 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
1964         t111;
1965     t450 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t297*t93;
1966     t451 = 1.777777777777778*
1967         t120*t258*t263*t82-1.777777777777778*t117*t257*t258*t82+1.333333333333333*
1968         t121*(t424+2.0*t258)-0.296296296296296*t184*t262*t423+1.333333333333333*
1969         t118*(t421-2.0*t258)-0.296296296296296*t183*t256*t420+0.444444444444444*
1970         t184*t263*t266+0.444444444444444*t183*t257*t261;
1971     t452 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t185*
1972         t93;
1973     t453 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t122*
1974         t93;
1975     t454 = -0.00146492440294*t81*t1*t2*t3*t103*t298*t90*t93;
1976     t455 = -
1977         48.0*t125*t275;
1978     t456 = 24.0*t82*t84;
1979     t457 = 2.0*t133*t297*t81*t83*t84;
1980     t458 = -12.0*t133*t275*t81*t84*t90;
1981     t459 = -8.0*t125*t297*t81*t83*t99;
1982     t460 = 48.0*t125*t275*t81*t90*t99;
1983     t461 = -24.0*t81*t82*t84*t90*t99;
1984     t462 = pow(grada,13.0);
1985     t463 = 1/pow(rhoa,20.66666666666667);
1986     t464 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
1987         t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-0.296296296296296*
1988         t120*t329*t423-0.296296296296296*t117*t327*t420+0.444444444444444*
1989         t120*t263*t330+0.444444444444444*t117*t257*t328-2.666666666666667*
1990         t121*t258+2.666666666666667*t118*t258;
1991     t465 = 1/pow(rhoa,19.66666666666667);
1992     t466 = pow(gradb,14.0);
1993     t467 = 1/pow(t150,7.0);
1994     t468 = 1/pow(rhob,21.66666666666667);
1995     t469 = 1/pow(rhob,19.0);
1996     t470 = 1/pow(rhob,16.33333333333333);
1997     t471 = 1/pow(rhob,13.66666666666667);
1998     t472 = 1/pow(rhob,11.0);
1999     t473 = 1/pow(rhob,8.333333333333334);
2000     t474 = 1/pow(rhob,5.666666666666667);
2001     t475 = 1/pow(t145,3.0);
2002     t476 = pow(t179,3.0);
2003     t477 = 1/pow(t144,6.0);
2004     t478 = 1/pow(t144,5.0);
2005     t479 = -6.427244444444445*t1*t2*t3/pow(rhob,3.333333333333333)-
2006         5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
2007         3.1558125*t8*t9/pow(t141,7.0)-1.852355555555556*t4*t5*t6*t173;
2008     t480 = 1/
2009         pow(t161,7.0);
2010     t481 = 1.333333333333333*t118*(t425+t421)-0.296296296296296*
2011         pow(t184,3.0)*t423+1.333333333333333*t121*(t422+t424)-0.296296296296296*
2012         pow(t183,3.0)*t420+1.333333333333333*t184*t263*t330+1.333333333333333*
2013         t183*t257*t328;
2014     t482 = pow(gradb,13.0);
2015     t483 = 1/pow(rhob,20.66666666666667);
2016     t484 = 1/pow(rhob,19.66666666666667);
2017     t485 = 1/pow(rhoa,18.66666666666667);
2018     t486 = 1/pow(rhob,18.66666666666667);
2019 
2020    /* code */
2021     dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
2022         rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
2023         t34+t139*t148+t69*t137+0.002129457733333*t1*t2*t3*t19*t33*
2024         t12;
2025     dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
2026         t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
2027         t191*t148-0.03109*t146*t160*t147+0.002129457733333*t1*t2*t3*
2028         t146*t160*t143;
2029     dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
2030         t199*t148;
2031     dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
2032         t35+t207*t148;
2033     dfdgab = 0.0;
2034     d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
2035         t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
2036         t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-0.333333333333333*
2037         t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+0.001419638488889*
2038         t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
2039         t34+t69*t294+t296*t148+2.0*t137*t139-0.136986666666667*t1*
2040         t2*t3*t50*t33*t54*t55*t12+0.004258915466667*t1*t2*t3*t19*t49*
2041         t12;
2042     d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
2043     d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
2044         t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
2045         t19*t197*t34+t306*t148+t199*t137+0.002129457733333*t1*t2*t3*
2046         t19*t197*t12;
2047     d2fdragb = t307*t148+t207*t137;
2048     d2fdraab = 0.0;
2049     d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
2050         t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
2051         rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
2052         rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-0.333333333333333*
2053         t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
2054         t179*t180+0.001419638488889*t1*t2*t3*t146*t160*t178+t344*t148-
2055         0.06218*t146*t174*t147-0.136986666666667*t1*t2*t3*t175*t160*
2056         t179*t180*t143+0.004258915466667*t1*t2*t3*t146*t174*t143;
2057     d2fdrbga = t345*
2058         t148+t199*t190;
2059     d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
2060         t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
2061         t207*t190+t350*t148-0.03109*t146*t205*t147+0.002129457733333*
2062         t1*t2*t3*t146*t205*t143;
2063     d2fdrbgab = 0.0;
2064     d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
2065         t52+t354*t148;
2066     d2fdgagb = t355*t148;
2067     d2fdgagab = 0.0;
2068     d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
2069         t35*t358+t359*t148;
2070     d2fdgbgab = 0.0;
2071     d2fdgabgab = 0.0;
2072     d3fdrarara = t69*(-1.0*t50*t373*t34*t55*rhoa+192.9880990672242*
2073         t217*t370*t34*t372*rhoa-2069.133687865597*t369*t370*t34*t371*
2074         rhoa+6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*
2075         t222*t54*t34*t219*rhoa-6.0*t50*t370*t34*t219*rhoa+t70*(240.0*
2076         t127*t273*t81*t90*t99+36.0*t122*t275*t81*t84*t99+12.0*t127*
2077         t267*t81*t84*t99+60.0*t122*t273*t81*t83*t99-12.0*t125*t267*
2078         t81*t83*t99-96.0*t122*t125*t127*t81*t99+t81*t83*t84*t426*t99+
2079         0.019751789702565*(t431+t430+t429-240.0*t127*t273)*t81*t86*
2080         t90*t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t90*t93+0.002929848805881*
2081         t81*t1*t2*t3*t240*t128*t90*t93+0.019751789702565*t81*t85*t86*
2082         t426*t93+0.059255369107696*t81*t128*t86*t267*t93-0.00219738660441*
2083         t81*t1*t2*t3*t103*t85*t267*t93+0.059255369107696*t81*t277*
2084         t86*t122*t93+0.002929848805881*t81*t1*t2*t3*t240*t85*t122*
2085         t93-0.004394773208821*t81*t1*t2*t3*t103*t128*t122*t93+12.0*
2086         t127*t284*t81*t84*t90-96.0*t125*t127*t133*t81*t90+3.0*t122*
2087         t284*t81*t83*t84+3.0*t133*t267*t81*t83*t84+24.0*t122*t127*
2088         t133*t81*t84-24.0*t122*t125*t133*t81*t83+t439+t438+t437+t436+
2089         t435+t434+t433+t427+t419+t418+t417+t416+t415+t414+t413+t412+
2090         t411+t410+t409+t407+t401+t400+t399+t398+t397+t396+t395+t394+
2091         t392-51.9472676981276*t81*t128*t244*t86*t245*t90*t246-51.9472676981276*
2092         t81*t85*t244*t86*t245*t122*t246+3.508934038473122*t81*t128*
2093         t244*t86*t249*t90*t111-1.754467019236561*t81*t128*t252*t86*
2094         t110*t90*t111-1.754467019236561*t81*t277*t109*t86*t110*t90*
2095         t111+0.130122970593378*t81*t1*t2*t3*t103*t128*t109*t110*t90*
2096         t111-1.754467019236561*t81*t85*t109*t86*t110*t267*t111+3.508934038473122*
2097         t81*t85*t244*t86*t249*t122*t111-1.754467019236561*t81*t85*
2098         t252*t86*t110*t122*t111-3.508934038473122*t81*t128*t109*t86*
2099         t110*t122*t111+0.130122970593378*t81*t1*t2*t3*t103*t85*t109*
2100         t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*t81*t83*
2101         t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*t81*t83*
2102         t99+0.059255369107696*t81*t277*t86*t90*t93-0.004394773208821*
2103         t81*t1*t2*t3*t103*t128*t90*t93+0.059255369107696*t81*t85*t86*
2104         t267*t93+0.118510738215391*t81*t128*t86*t122*t93-0.004394773208821*
2105         t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
2106         6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+0.136986666666667*
2107         t1*t2*t3*t50*t54*t55*t53+t388+t387+t386+t385+t384+t383+t382+
2108         t381+t380+t379+t378+t377+t376+t375+0.001892851318519*t1*t2*
2109         t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
2110         t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-0.41096*t1*t2*t3*
2111         t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*t218*t219*
2112         t12-3.508934038473122*t81*t128*t109*t86*t110*t90*t111-3.508934038473122*
2113         t81*t85*t109*t86*t110*t122*t111)+3.0*t216*t34*t50*t54*t55*
2114         rhoa+3.0*t222*t34*t49*t50*t55*rhoa+t50*t373*t33*t34*t55*rhoa-
2115         6.0*t220*t222*t33*t34*t50*t54*rhoa-6.0*t218*t220*t34*t49*t50*
2116         rhoa+6.0*t219*t33*t34*t370*t50*rhoa-192.9880990672242*t217*
2117         t33*t370*t34*t372*rhoa+2069.133687865597*t369*t33*t370*t34*
2118         t371*rhoa-0.03109*t19*(-0.780621665185185*t21*t32*t368-1.281829667555556*
2119         t29*t30*t367+11.94227789558519*t26*t27*t366-13.43137039473778*
2120         t20*t24*t365+5.571235366684446*t42*t43*t364-0.987825948444445*
2121         t208*t209*t363+0.063519238826667*t360*t361*t362)*t34*rhoa+
2122         96.4940495336121*t217*t33*t222*t54*t34*t219*rhoa+96.4940495336121*
2123         t217*t49*t218*t34*t219*rhoa-1.0*t3*t35*t57*t7+3.0*t222*t33*
2124         t34*t50*t55+6.0*t50*t49*t54*t34*t55-0.136986666666667*t1*t2*
2125         t3*t50*t33*t54*t55*t53+0.004258915466667*t1*t2*t3*t19*t49*
2126         t53-0.75*t3*t35*(0.095007094518519*t21*t40*t368-0.020363607172741*
2127         t29*t39*t367+5.592834182257778E-4*t26*t38*t366-6.454717686973631E-6*
2128         t20*t37*t365+3.716270447122964E-8*t42*t56*t364-1.052204014705778E-10*
2129         t208*t223*t363+1.166668959288889E-13*t360*t374*t362)*t52+0.222222222222222*
2130         t3*t35*t41*t51-6.0*t218*t220*t33*t34*t50-3.0*t11*t224*t3*t35-
2131         0.09327*t19*t216*t34+3.0*t137*t296+3.0*t139*t294-0.001892851318519*
2132         t1*t2*t3*t19*t33*t221+96.4940495336121*t217*t33*t218*t34*t219+
2133         (-0.50689408*t21*t368*t68+0.027517426346667*t21*t368*t60*t67+
2134         0.02619324928*t29*t367*t67-3.789947392E-4*t21*t368*t66*t65-
2135         9.327416524800001E-4*t29*t367*t60*t65-1.5115886592E-4*t26*
2136         t366*t65+2.11042900992E-6*t21*t368*t64*t63+1.1274164858879998E-5*
2137         t29*t367*t66*t63+4.7682035712E-6*t26*t366*t60*t63-4.305592811520001E-9*
2138         t21*t368*t61*t138-5.817657212927999E-8*t29*t367*t64*t138-5.395268763648E-8*
2139         t26*t366*t66*t138+1.107152437248E-10*t29*t367*t61*t295+2.652312895488E-10*
2140         t26*t366*t64*t295-4.831210635264E-13*t26*t366*t61*t440)*t148-
2141         0.41096*t1*t2*t3*t50*t49*t54*t55*t12-0.20548*t1*t2*t3*t50*
2142         t33*t222*t55*t12+0.41096*t1*t2*t3*t50*t33*t218*t220*t12-6.60919909938887*
2143         t1*t2*t3*t217*t33*t218*t219*t12+0.0063883732*t1*t2*t3*t19*
2144         t216*t12;
2145     d3fdrararb = t69*(t70*(80.0*t127*t273*t81*t90*t99+8.0*
2146         t127*t297*t81*t84*t99+12.0*t185*t275*t81*t84*t99-24.0*t122*
2147         t275*t81*t84*t99-4.0*t127*t267*t81*t84*t99+20.0*t185*t273*
2148         t81*t83*t99+40.0*t122*t273*t81*t83*t99-4.0*t125*t267*t81*t83*
2149         t99-32.0*t125*t127*t185*t81*t99+t81*t83*t84*t451*t99+0.019751789702565*
2150         (t456+t455+t429-80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263E-4*
2151         t81*t1*t2*t3*t103*t277*t90*t93+9.76616268626835E-4*t81*t1*
2152         t2*t3*t240*t187*t90*t93+0.001953232537254*t81*t1*t2*t3*t240*
2153         t128*t90*t93+0.019751789702565*t81*t85*t86*t451*t93+0.03950357940513*
2154         t81*t128*t86*t297*t93+0.019751789702565*t81*t187*t86*t267*
2155         t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t267*t93+0.019751789702565*
2156         t81*t277*t86*t185*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
2157         t85*t185*t93+0.03950357940513*t81*t298*t86*t122*t93+0.001953232537254*
2158         t81*t1*t2*t3*t240*t85*t122*t93-0.00146492440294*t81*t1*t2*
2159         t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
2160         t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
2161         t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
2162         t81*t83+t461+t460+t459+t458+t457+t454+t453+t452+t450+t449+
2163         t448+t447+t446+t437+t435+t434+t433+t427+t419+t418+t417+t416+
2164         t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+t398+
2165         t397+t396+t395+t394+t392+t81*t83*t84*t185*t284-17.31575589937587*
2166         t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
2167         t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
2168         t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
2169         t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
2170         t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
2171         t90*t111-0.58482233974552*t81*t187*t252*t86*t110*t90*t111-
2172         1.169644679491041*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
2173         t81*t277*t109*t86*t110*t90*t111+0.043374323531126*t81*t1*t2*
2174         t3*t103*t187*t109*t110*t90*t111+0.086748647062252*t81*t1*t2*
2175         t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
2176         t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*t249*
2177         t185*t111-0.58482233974552*t81*t85*t252*t86*t110*t185*t111+
2178         0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+
2179         2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
2180         t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
2181         t109*t86*t110*t122*t111+0.086748647062252*t81*t1*t2*t3*t103*
2182         t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
2183         t125*t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t128*
2184         t90*t93-0.002929848805881*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
2185         t122*t133*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+
2186         t384+t383+t382+t381+t380+t379+t378+t377+t376+t375+t341+t338+
2187         t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
2188         t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
2189         t109*t86*t110*t122*t111)+2.0*t137*t301+2.0*t139*t300+t191*
2190         t294+t296*t190+(0.008731083093333*t21*t58*t215*t67*t173-3.1091388416E-4*
2191         t21*t58*t215*t60*t65*t173-1.5115886592E-4*t29*t58*t214*t65*
2192         t173+3.75805495296E-6*t21*t58*t215*t66*t63*t173+4.7682035712E-6*
2193         t29*t58*t214*t60*t63*t173-1.939219070976E-8*t21*t58*t215*t64*
2194         t138*t173-5.395268763648E-8*t29*t58*t214*t66*t138*t173+3.69050812416E-11*
2195         t21*t58*t215*t61*t295*t173+2.652312895488E-10*t29*t58*t214*
2196         t64*t295*t173-4.831210635264E-13*t29*t58*t214*t61*t440*t173)*
2197         t148;
2198     d3fdraraga = 2.0*t304*t34*t50*t54*t55*rhoa+t50*t197*t222*
2199         t34*t55*rhoa-2.0*t197*t218*t220*t34*t50*rhoa-0.03109*t19*(0.334552142222222*
2200         grada*t32*t215+0.68093152*t196*t30*t214-7.19528041528889*t195*
2201         t27*t213+8.705466944853335*t194*t24*t212-3.823753270613334*
2202         t192*t43*t211+0.711094818133334*t302*t209*t210-0.04763942912*
2203         t462*t361*t463)*t34*rhoa+32.1646831778707*t217*t197*t218*t34*
2204         t219*rhoa-0.333333333333333*t198*t3*t35*t7+2.0*t197*t34*t50*
2205         t54*t55+0.001419638488889*t1*t2*t3*t19*t197*t53-0.75*(-0.040717326222222*
2206         grada*t40*t215+0.011151840995556*t196*t39*t214-3.44361228288E-4*
2207         t195*t38*t213+4.266393491683556E-6*t194*t37*t212-2.5835557938062223E-8*
2208         t192*t56*t211+7.61809207296E-11*t302*t223*t210-8.75001719466667E-14*
2209         t462*t374*t463)*t3*t35*t52-2.0*t11*t3*t305*t35-0.06218*t19*
2210         t304*t34+2.0*t137*t306+t199*t294+(0.21724032*grada*t215*t68-
2211         0.01179318272*grada*t215*t60*t67-0.01607313024*t196*t214*t67+
2212         1.6242631680000002E-4*grada*t215*t66*t65+5.7236419584E-4*t196*
2213         t214*t60*t65+1.1336914944E-4*t195*t213*t65-9.044695756799999E-7*
2214         grada*t215*t64*t63-6.918237527040001E-6*t196*t214*t66*t63-
2215         3.5761526784E-6*t195*t213*t60*t63+1.84525406208E-9*grada*t215*
2216         t61*t138+3.569926017024E-8*t196*t214*t64*t138+4.046451572736E-8*
2217         t195*t213*t66*t138-6.79388995584E-11*t196*t214*t61*t295-1.989234671616E-10*
2218         t195*t213*t64*t295+3.623407976448E-13*t195*t213*t61*t440)*
2219         t148-0.136986666666667*t1*t2*t3*t50*t197*t54*t55*t12+0.004258915466667*
2220         t1*t2*t3*t19*t304*t12;
2221     d3fdraragb = 2.0*t137*t307+t207*t294+(-0.00654831232*
2222         t21*gradb*t215*t67*t59+2.3318541312000003E-4*t21*gradb*t215*
2223         t60*t65*t59+1.1336914944E-4*t29*gradb*t214*t65*t59-2.81854121472E-6*
2224         t21*gradb*t215*t66*t63*t59-3.5761526784E-6*t29*gradb*t214*
2225         t60*t63*t59+1.454414303232E-8*t21*gradb*t215*t64*t138*t59+
2226         4.046451572736E-8*t29*gradb*t214*t66*t138*t59-2.767881093120001E-11*
2227         t21*gradb*t215*t61*t295*t59-1.989234671616E-10*t29*gradb*t214*
2228         t64*t295*t59+3.623407976448E-13*t29*gradb*t214*t61*t440*t59)*
2229         t148;
2230     d3fdraraab = 0.0;
2231     d3fdrarbrb = t69*(t70*(-80.0*t127*t273*t81*t90*t99+4.0*
2232         t127*t331*t81*t84*t99-8.0*t127*t297*t81*t84*t99-24.0*t185*
2233         t275*t81*t84*t99+12.0*t122*t275*t81*t84*t99-4.0*t125*t331*
2234         t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*t122*t273*t81*
2235         t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*t84*t464*t99+0.019751789702565*
2236         (t455+t431+t429+80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263E-4*
2237         t81*t1*t2*t3*t103*t336*t90*t93+0.001953232537254*t81*t1*t2*
2238         t3*t240*t187*t90*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
2239         t128*t90*t93+0.019751789702565*t81*t85*t86*t464*t93+0.019751789702565*
2240         t81*t128*t86*t331*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
2241         t85*t331*t93+0.03950357940513*t81*t187*t86*t297*t93+0.03950357940513*
2242         t81*t298*t86*t185*t93+0.001953232537254*t81*t1*t2*t3*t240*
2243         t85*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t185*
2244         t93+0.019751789702565*t81*t336*t86*t122*t93+9.76616268626835E-4*
2245         t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
2246         t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
2247         t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
2248         t133*t81*t83+t460+t459+t458+t457+t454+t453+t452+t450+t449+
2249         t448+t447+t446+t439+t437+t435+t434+t433+t427+t419+t418+t417+
2250         t416+t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+
2251         t398+t397+t396+t395+t394+t392+t81*t83*t84*t122*t284-34.63151179875173*
2252         t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
2253         t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
2254         t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
2255         t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
2256         t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
2257         t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
2258         0.58482233974552*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
2259         t81*t336*t109*t86*t110*t90*t111+0.086748647062252*t81*t1*t2*
2260         t3*t103*t187*t109*t110*t90*t111+0.043374323531126*t81*t1*t2*
2261         t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
2262         t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*t249*
2263         t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*t111-
2264         1.169644679491041*t81*t187*t109*t86*t110*t185*t111+0.086748647062252*
2265         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
2266         t81*t85*t244*t86*t249*t122*t111-0.58482233974552*t81*t85*t252*
2267         t86*t110*t122*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*
2268         t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*t185*
2269         t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t187*t90*t93-
2270         0.002929848805881*t81*t1*t2*t3*t103*t85*t185*t93+4.0*t133*
2271         t185*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+t384+
2272         t383+t382+t381+t380+t379+t378+t377+t376+t375+t342+t340+t339+
2273         t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
2274         t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
2275         t109*t86*t110*t185*t111)+t139*t343+2.0*t190*t301+2.0*t191*
2276         t300+(0.008731083093333*t21*t58*t48*t67*t315-3.1091388416E-4*
2277         t21*t58*t48*t60*t65*t315+3.75805495296E-6*t21*t58*t48*t66*
2278         t63*t315-1.939219070976E-8*t21*t58*t48*t64*t138*t315+3.69050812416E-11*
2279         t21*t58*t48*t61*t295*t315-1.5115886592E-4*t21*t156*t48*t65*
2280         t314+4.7682035712E-6*t21*t156*t48*t60*t63*t314-5.395268763648E-8*
2281         t21*t156*t48*t66*t138*t314+2.652312895488E-10*t21*t156*t48*
2282         t64*t295*t314-4.831210635264E-13*t21*t156*t48*t61*t440*t314)*
2283         t148+t344*t137;
2284     d3fdrarbga = (-0.00476240896*grada*t58*t48*t67*t173+1.6958939136E-4*
2285         grada*t58*t48*t60*t65*t173+1.1336914944E-4*t196*t58*t47*t65*
2286         t173-2.04984815616E-6*grada*t58*t48*t66*t63*t173-3.5761526784E-6*
2287         t196*t58*t47*t60*t63*t173+1.057755856896E-8*grada*t58*t48*
2288         t64*t138*t173+4.046451572736E-8*t196*t58*t47*t66*t138*t173-
2289         2.01300443136E-11*grada*t58*t48*t61*t295*t173-1.989234671616E-10*
2290         t196*t58*t47*t64*t295*t173+3.623407976448E-13*t196*t58*t47*
2291         t61*t440*t173)*t148+t345*t137+t306*t190+t199*t300;
2292     d3fdrarbgb = (-0.00476240896*t21*gradb*t48*t67*t173+1.6958939136E-4*
2293         t21*gradb*t48*t60*t65*t173-2.04984815616E-6*t21*gradb*t48*
2294         t66*t63*t173+1.057755856896E-8*t21*gradb*t48*t64*t138*t173-
2295         2.01300443136E-11*t21*gradb*t48*t61*t295*t173+1.1336914944E-4*
2296         t21*t204*t48*t65*t172-3.5761526784E-6*t21*t204*t48*t60*t63*
2297         t172+4.046451572736E-8*t21*t204*t48*t66*t138*t172-1.989234671616E-10*
2298         t21*t204*t48*t64*t295*t172+3.623407976448E-13*t21*t204*t48*
2299         t61*t440*t172)*t148+t350*t137+t307*t190+t207*t300;
2300     d3fdrarbab = 0.0;
2301     d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*(-
2302         0.091241493333333*t32*t48-0.309100394666667*t21*t30*t47+4.021271133866668*
2303         t29*t27*t46-5.41187753984*t26*t24*t45+2.56724566016*t20*t43*
2304         t44-0.5072683008*t42*t209*t303+0.03572957184*t208*t361*t465)*
2305         t34*rhoa-0.75*t3*t35*(0.011104725333333*t40*t48-0.005315180714667*
2306         t21*t39*t47+1.9853834171733336E-4*t29*t38*t46-2.723674027349334E-6*
2307         t26*t37*t45+1.7639617768106667E-8*t20*t56*t44-5.47431077205333E-11*
2308         t42*t223*t303+6.562512896E-14*t208*t374*t465)*t52-1.0*t11*
2309         t3*t35*t353-0.03109*t19*t352*t34+(-0.05924736*t48*t68+0.00321632256*
2310         t48*t60*t67+0.0089295168*t21*t47*t67-4.42980864E-5*t48*t66*
2311         t65-3.179801088E-4*t21*t47*t60*t65-8.502686208E-5*t29*t46*
2312         t65+2.4667352064E-7*t48*t64*t63+3.8434652928E-6*t21*t47*t66*
2313         t63+2.6821145088E-6*t29*t46*t60*t63-5.0325110784E-10*t48*t61*
2314         t138-1.98329223168E-8*t21*t47*t64*t138-3.034838679552E-8*t29*
2315         t46*t66*t138+3.7743833088E-11*t21*t47*t61*t295+1.491926003712E-10*
2316         t29*t46*t64*t295-2.717555982336E-13*t29*t46*t61*t440)*t148+
2317         t354*t137+0.002129457733333*t1*t2*t3*t19*t352*t12;
2318     d3fdragagb = (0.00357180672*grada*gradb*t48*t67*t59-1.2719204352E-4*
2319         grada*gradb*t48*t60*t65*t59-8.502686208E-5*t196*gradb*t47*
2320         t65*t59+1.53738611712E-6*grada*gradb*t48*t66*t63*t59+2.6821145088E-6*
2321         t196*gradb*t47*t60*t63*t59-7.93316892672E-9*grada*gradb*t48*
2322         t64*t138*t59-3.034838679552E-8*t196*gradb*t47*t66*t138*t59+
2323         1.50975332352E-11*grada*gradb*t48*t61*t295*t59+1.491926003712E-10*
2324         t196*gradb*t47*t64*t295*t59-2.717555982336E-13*t196*gradb*
2325         t47*t61*t440*t59)*t148+t355*t137;
2326     d3fdragaab = 0.0;
2327     d3fdragbgb = (0.00178590336*t21*t48*t67*t59-6.359602176E-5*
2328         t21*t48*t60*t65*t59+7.6869305856E-7*t21*t48*t66*t63*t59-3.96658446336E-9*
2329         t21*t48*t64*t138*t59+7.5487666176E-12*t21*t48*t61*t295*t59-
2330         8.502686208E-5*t21*t58*t48*t65*t158+2.6821145088E-6*t21*t58*
2331         t48*t60*t63*t158-3.034838679552E-8*t21*t58*t48*t66*t138*t158+
2332         1.491926003712E-10*t21*t58*t48*t64*t295*t158-2.717555982336E-13*
2333         t21*t58*t48*t61*t440*t158)*t148+t359*t137;
2334     d3fdragbab = 0.0;
2335     d3fdraabab = 0.0;
2336     d3fdrbrbrb = t69*(192.9880990672242*t317*t476*t147*t478*
2337         rhob-2069.133687865597*t475*t476*t147*t477*rhob+6.0*t175*t322*
2338         t179*t147*t320*rhob-6.0*t175*t476*t147*t319*rhob-96.4940495336121*
2339         t317*t322*t179*t147*t319*rhob-1.0*t175*t479*t147*t180*rhob+
2340         t70*(-240.0*t127*t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99+
2341         36.0*t185*t275*t81*t84*t99-12.0*t125*t331*t81*t83*t99+60.0*
2342         t185*t273*t81*t83*t99+96.0*t125*t127*t185*t81*t99+t81*t83*
2343         t84*t481*t99+0.019751789702565*(t456+t430+t429+240.0*t127*
2344         t273)*t81*t86*t90*t93-0.00219738660441*t81*t1*t2*t3*t103*t336*
2345         t90*t93+0.002929848805881*t81*t1*t2*t3*t240*t187*t90*t93+0.019751789702565*
2346         t81*t85*t86*t481*t93+0.059255369107696*t81*t187*t86*t331*t93-
2347         0.00219738660441*t81*t1*t2*t3*t103*t85*t331*t93+0.059255369107696*
2348         t81*t336*t86*t185*t93+0.002929848805881*t81*t1*t2*t3*t240*
2349         t85*t185*t93-0.004394773208821*t81*t1*t2*t3*t103*t187*t185*
2350         t93-12.0*t127*t284*t81*t84*t90+96.0*t125*t127*t133*t81*t90+
2351         3.0*t133*t331*t81*t83*t84+3.0*t185*t284*t81*t83*t84-24.0*t127*
2352         t133*t185*t81*t84-24.0*t125*t133*t185*t81*t83+t461+t438+t437+
2353         t436+t435+t434+t433+t427+t419+t418+t417+t416+t415+t414+t413+
2354         t412+t411+t410+t409+t407+t401+t400+t399+t398+t397+t396+t395+
2355         t394+t392-51.9472676981276*t81*t187*t244*t86*t245*t90*t246-
2356         51.9472676981276*t81*t85*t244*t86*t245*t185*t246+3.508934038473122*
2357         t81*t187*t244*t86*t249*t90*t111-1.754467019236561*t81*t187*
2358         t252*t86*t110*t90*t111-1.754467019236561*t81*t336*t109*t86*
2359         t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t187*t109*
2360         t110*t90*t111-1.754467019236561*t81*t85*t109*t86*t110*t331*
2361         t111+3.508934038473122*t81*t85*t244*t86*t249*t185*t111-1.754467019236561*
2362         t81*t85*t252*t86*t110*t185*t111-3.508934038473122*t81*t187*
2363         t109*t86*t110*t185*t111+0.130122970593378*t81*t1*t2*t3*t103*
2364         t85*t109*t110*t185*t111)+96.0*t125*t127*t81*t90*t99+3.0*t331*
2365         t81*t83*t84*t99-24.0*t127*t185*t81*t84*t99-24.0*t125*t185*
2366         t81*t83*t99+0.059255369107696*t81*t336*t86*t90*t93-0.004394773208821*
2367         t81*t1*t2*t3*t103*t187*t90*t93+0.059255369107696*t81*t85*t86*
2368         t331*t93+0.118510738215391*t81*t187*t86*t185*t93-0.004394773208821*
2369         t81*t1*t2*t3*t103*t85*t185*t93-24.0*t127*t133*t81*t84*t90+
2370         6.0*t133*t185*t81*t83*t84+t388+t387+t386+t385+t384+t383+t382+
2371         t381+t380+t379+t378+t377+t376+t375+0.001892851318519*t1*t2*
2372         t3*t146*t321+6.0*t175*t318*t147*t320-96.4940495336121*t317*
2373         t318*t147*t319-3.0*t175*t322*t147*t180+0.136986666666667*t1*
2374         t2*t3*t175*t179*t180*t178-0.41096*t1*t2*t3*t175*t318*t320*
2375         t143+6.60919909938887*t1*t2*t3*t317*t318*t319*t143+0.20548*
2376         t1*t2*t3*t175*t322*t180*t143-3.508934038473122*t81*t187*t109*
2377         t86*t110*t90*t111-3.508934038473122*t81*t85*t109*t86*t110*
2378         t185*t111)-192.9880990672242*t317*t160*t476*t147*t478*rhob+
2379         2069.133687865597*t475*t160*t476*t147*t477*rhob+6.0*t147*t160*
2380         t175*t319*t476*rhob-6.0*t147*t160*t175*t179*t320*t322*rhob+
2381         3.0*t147*t174*t175*t180*t322*rhob-6.0*t147*t174*t175*t318*
2382         t320*rhob+96.4940495336121*t317*t174*t318*t147*t319*rhob+96.4940495336121*
2383         t317*t160*t322*t179*t147*t319*rhob+3.0*t147*t175*t179*t180*
2384         t316*rhob+t175*t479*t160*t147*t180*rhob-0.03109*t146*(-0.780621665185185*
2385         t58*t159*t474-1.281829667555556*t156*t157*t473+11.94227789558519*
2386         t153*t154*t472-13.43137039473778*t149*t151*t471+5.571235366684446*
2387         t167*t168*t470-0.987825948444445*t308*t309*t469+0.063519238826667*
2388         t466*t467*t468)*t147*rhob-0.75*t177*t3*t35*(0.095007094518519*
2389         t58*t165*t474-0.020363607172741*t156*t164*t473+5.592834182257778E-4*
2390         t153*t163*t472-6.454717686973631E-6*t149*t162*t471+3.716270447122964E-8*
2391         t167*t181*t470-1.052204014705778E-10*t308*t323*t469+1.166668959288889E-13*
2392         t466*t480*t468)-3.0*t142*t3*t324*t35-1.0*t140*t182*t3*t35+
2393         0.222222222222222*t166*t176*t3*t35+3.0*t190*t344+3.0*t191*
2394         t343+3.0*t147*t160*t175*t180*t322-0.001892851318519*t1*t2*
2395         t3*t146*t160*t321-6.0*t147*t160*t175*t318*t320+96.4940495336121*
2396         t317*t160*t318*t147*t319+6.0*t175*t174*t179*t147*t180-0.136986666666667*
2397         t1*t2*t3*t175*t160*t179*t180*t178+0.004258915466667*t1*t2*
2398         t3*t146*t174*t178+(-0.50689408*t58*t68*t474+0.027517426346667*
2399         t58*t60*t67*t474-3.789947392E-4*t58*t66*t65*t474+2.11042900992E-6*
2400         t58*t64*t63*t474-4.305592811520001E-9*t58*t61*t138*t474+0.02619324928*
2401         t156*t67*t473-9.327416524800001E-4*t156*t60*t65*t473+1.1274164858879998E-5*
2402         t156*t66*t63*t473-5.817657212927999E-8*t156*t64*t138*t473+
2403         1.107152437248E-10*t156*t61*t295*t473-1.5115886592E-4*t153*
2404         t65*t472+4.7682035712E-6*t153*t60*t63*t472-5.395268763648E-8*
2405         t153*t66*t138*t472+2.652312895488E-10*t153*t64*t295*t472-4.831210635264E-13*
2406         t153*t61*t440*t472)*t148-0.09327*t146*t316*t147+0.41096*t1*
2407         t2*t3*t175*t160*t318*t320*t143-6.60919909938887*t1*t2*t3*t317*
2408         t160*t318*t319*t143+0.0063883732*t1*t2*t3*t146*t316*t143-0.20548*
2409         t1*t2*t3*t175*t160*t322*t180*t143-0.41096*t1*t2*t3*t175*t174*
2410         t179*t180*t143;
2411     d3fdrbrbga = 2.0*t190*t345+t199*t343+(-0.00654831232*
2412         grada*t58*t22*t67*t315+2.3318541312000003E-4*grada*t58*t22*
2413         t60*t65*t315-2.81854121472E-6*grada*t58*t22*t66*t63*t315+1.454414303232E-8*
2414         grada*t58*t22*t64*t138*t315-2.767881093120001E-11*grada*t58*
2415         t22*t61*t295*t315+1.1336914944E-4*grada*t156*t22*t65*t314-
2416         3.5761526784E-6*grada*t156*t22*t60*t63*t314+4.046451572736E-8*
2417         grada*t156*t22*t66*t138*t314-1.989234671616E-10*grada*t156*
2418         t22*t64*t295*t314+3.623407976448E-13*grada*t156*t22*t61*t440*
2419         t314)*t148;
2420     d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
2421         t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
2422         t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*(0.334552142222222*
2423         gradb*t159*t315+0.68093152*t204*t157*t314-7.19528041528889*
2424         t203*t154*t313+8.705466944853335*t202*t151*t312-3.823753270613334*
2425         t200*t168*t311+0.711094818133334*t346*t309*t310-0.04763942912*
2426         t482*t467*t483)*t147*rhob+2.0*t190*t350-2.0*t142*t3*t349*t35-
2427         0.75*t177*t3*(-0.040717326222222*gradb*t165*t315+0.011151840995556*
2428         t204*t164*t314-3.44361228288E-4*t203*t163*t313+4.266393491683556E-6*
2429         t202*t162*t312-2.5835557938062223E-8*t200*t181*t311+7.61809207296E-11*
2430         t346*t323*t310-8.75001719466667E-14*t482*t480*t483)*t35-0.333333333333333*
2431         t140*t206*t3*t35+t207*t343+2.0*t147*t175*t179*t180*t205+0.001419638488889*
2432         t1*t2*t3*t146*t205*t178+(0.21724032*gradb*t68*t315-0.01179318272*
2433         gradb*t60*t67*t315+1.6242631680000002E-4*gradb*t66*t65*t315-
2434         9.044695756799999E-7*gradb*t64*t63*t315+1.84525406208E-9*gradb*
2435         t61*t138*t315-0.01607313024*t204*t67*t314+5.7236419584E-4*
2436         t204*t60*t65*t314-6.918237527040001E-6*t204*t66*t63*t314+3.569926017024E-8*
2437         t204*t64*t138*t314-6.79388995584E-11*t204*t61*t295*t314+1.1336914944E-4*
2438         t203*t65*t313-3.5761526784E-6*t203*t60*t63*t313+4.046451572736E-8*
2439         t203*t66*t138*t313-1.989234671616E-10*t203*t64*t295*t313+3.623407976448E-13*
2440         t203*t61*t440*t313)*t148-0.06218*t146*t348*t147+0.004258915466667*
2441         t1*t2*t3*t146*t348*t143-0.136986666666667*t1*t2*t3*t175*t205*
2442         t179*t180*t143;
2443     d3fdrbrbab = 0.0;
2444     d3fdrbgaga = (0.00178590336*t58*t22*t67*t173-6.359602176E-5*
2445         t58*t22*t60*t65*t173-8.502686208E-5*t21*t58*t31*t65*t173+7.6869305856E-7*
2446         t58*t22*t66*t63*t173+2.6821145088E-6*t21*t58*t31*t60*t63*t173-
2447         3.96658446336E-9*t58*t22*t64*t138*t173-3.034838679552E-8*t21*
2448         t58*t31*t66*t138*t173+7.5487666176E-12*t58*t22*t61*t295*t173+
2449         1.491926003712E-10*t21*t58*t31*t64*t295*t173-2.717555982336E-13*
2450         t21*t58*t31*t61*t440*t173)*t148+t354*t190;
2451     d3fdrbgagb = (0.00357180672*grada*gradb*t22*t67*t173-
2452         1.2719204352E-4*grada*gradb*t22*t60*t65*t173+1.53738611712E-6*
2453         grada*gradb*t22*t66*t63*t173-7.93316892672E-9*grada*gradb*
2454         t22*t64*t138*t173+1.50975332352E-11*grada*gradb*t22*t61*t295*
2455         t173-8.502686208E-5*grada*t204*t22*t65*t172+2.6821145088E-6*
2456         grada*t204*t22*t60*t63*t172-3.034838679552E-8*grada*t204*t22*
2457         t66*t138*t172+1.491926003712E-10*grada*t204*t22*t64*t295*t172-
2458         2.717555982336E-13*grada*t204*t22*t61*t440*t172)*t148+t355*
2459         t190;
2460     d3fdrbgaab = 0.0;
2461     d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
2462         (-0.091241493333333*t159*t173-0.309100394666667*t58*t157*t172+
2463         4.021271133866668*t156*t154*t171-5.41187753984*t153*t151*t170+
2464         2.56724566016*t149*t168*t169-0.5072683008*t167*t309*t347+0.03572957184*
2465         t308*t467*t484)*t147*rhob-1.0*t142*t3*t35*t358-0.75*(0.011104725333333*
2466         t165*t173-0.005315180714667*t58*t164*t172+1.9853834171733336E-4*
2467         t156*t163*t171-2.723674027349334E-6*t153*t162*t170+1.7639617768106667E-8*
2468         t149*t181*t169-5.47431077205333E-11*t167*t323*t347+6.562512896E-14*
2469         t308*t480*t484)*t177*t3*t35+t359*t190+(-0.05924736*t68*t173+
2470         0.00321632256*t60*t67*t173-4.42980864E-5*t66*t65*t173+2.4667352064E-7*
2471         t64*t63*t173-5.0325110784E-10*t61*t138*t173+0.0089295168*t58*
2472         t67*t172-3.179801088E-4*t58*t60*t65*t172+3.8434652928E-6*t58*
2473         t66*t63*t172-1.98329223168E-8*t58*t64*t138*t172+3.7743833088E-11*
2474         t58*t61*t295*t172-8.502686208E-5*t156*t65*t171+2.6821145088E-6*
2475         t156*t60*t63*t171-3.034838679552E-8*t156*t66*t138*t171+1.491926003712E-10*
2476         t156*t64*t295*t171-2.717555982336E-13*t156*t61*t440*t171)*
2477         t148-0.03109*t146*t357*t147+0.002129457733333*t1*t2*t3*t146*
2478         t357*t143;
2479     d3fdrbgbab = 0.0;
2480     d3fdrbabab = 0.0;
2481     d3fdgagaga = -0.03109*t19*(0.109069536*grada*t30*t31-
2482         2.0270030016*t196*t27*t28+3.192523668480002*t195*t24*t25-1.678968913920001*
2483         t194*t43*t193+0.3581202432*t192*t209*t351-0.02679717888*t302*
2484         t361*t485)*t34*rhoa-0.75*t3*(0.002009849856*grada*t39*t31-
2485         1.0453993267200001E-4*t196*t38*t28+1.6651581112320001E-6*t195*
2486         t37*t25-1.179208237056E-8*t194*t56*t193+3.90065455104E-11*
2487         t192*t223*t351-4.921884672E-14*t302*t374*t485)*t35*t52+(-0.00401828256*
2488         grada*t31*t67+1.4309104896E-4*grada*t31*t60*t65+6.377014656E-5*
2489         t196*t28*t65-1.7295593817600002E-6*grada*t31*t66*t63-2.0115858816E-6*
2490         t196*t28*t60*t63+8.92481504256E-9*grada*t31*t64*t138+2.276129009664E-8*
2491         t196*t28*t66*t138-1.69847248896E-11*grada*t31*t61*t295-1.118944502784E-10*
2492         t196*t28*t64*t295+2.038166986752E-13*t196*t28*t61*t440)*t148;
2493     d3fdgagagb = (-
2494         0.00133942752*gradb*t22*t67*t59+4.769701632E-5*gradb*t22*t60*
2495         t65*t59+6.377014656E-5*t21*gradb*t31*t65*t59-5.7651979392E-7*
2496         gradb*t22*t66*t63*t59-2.0115858816E-6*t21*gradb*t31*t60*t63*
2497         t59+2.97493834752E-9*gradb*t22*t64*t138*t59+2.276129009664E-8*
2498         t21*gradb*t31*t66*t138*t59-5.6615749632E-12*gradb*t22*t61*
2499         t295*t59-1.118944502784E-10*t21*gradb*t31*t64*t295*t59+2.038166986752E-13*
2500         t21*gradb*t31*t61*t440*t59)*t148;
2501     d3fdgagaab = 0.0;
2502     d3fdgagbgb = (-0.00133942752*grada*t22*t67*t59+4.769701632E-5*
2503         grada*t22*t60*t65*t59-5.7651979392E-7*grada*t22*t66*t63*t59+
2504         2.97493834752E-9*grada*t22*t64*t138*t59-5.6615749632E-12*grada*
2505         t22*t61*t295*t59+6.377014656E-5*grada*t58*t22*t65*t158-2.0115858816E-6*
2506         grada*t58*t22*t60*t63*t158+2.276129009664E-8*grada*t58*t22*
2507         t66*t138*t158-1.118944502784E-10*grada*t58*t22*t64*t295*t158+
2508         2.038166986752E-13*grada*t58*t22*t61*t440*t158)*t148;
2509     d3fdgagbab = 0.0;
2510     d3fdgaabab = 0.0;
2511     d3fdgbgbgb = -0.03109*t146*(0.109069536*gradb*t157*t158-
2512         2.0270030016*t204*t154*t155+3.192523668480002*t203*t151*t152-
2513         1.678968913920001*t202*t168*t201+0.3581202432*t200*t309*t356-
2514         0.02679717888*t346*t467*t486)*t147*rhob-0.75*(0.002009849856*
2515         gradb*t164*t158-1.0453993267200001E-4*t204*t163*t155+1.6651581112320001E-6*
2516         t203*t162*t152-1.179208237056E-8*t202*t181*t201+3.90065455104E-11*
2517         t200*t323*t356-4.921884672E-14*t346*t480*t486)*t177*t3*t35+
2518         (-0.00401828256*gradb*t67*t158+1.4309104896E-4*gradb*t60*t65*
2519         t158-1.7295593817600002E-6*gradb*t66*t63*t158+8.92481504256E-9*
2520         gradb*t64*t138*t158-1.69847248896E-11*gradb*t61*t295*t158+
2521         6.377014656E-5*t204*t65*t155-2.0115858816E-6*t204*t60*t63*
2522         t155+2.276129009664E-8*t204*t66*t138*t155-1.118944502784E-10*
2523         t204*t64*t295*t155+2.038166986752E-13*t204*t61*t440*t155)*
2524         t148;
2525     d3fdgbgbab = 0.0;
2526     d3fdgbabab = 0.0;
2527     d3fdababab = 0.0;
2528 
2529 
2530     ds->df1000 += factor*dfdra;
2531     ds->df0100 += factor*dfdrb;
2532     ds->df0010 += factor*dfdga;
2533     ds->df0001 += factor*dfdgb;
2534     ds->df00001+= factor*dfdgab;
2535 
2536     ds->df2000 += factor*d2fdrara;
2537     ds->df1100 += factor*d2fdrarb;
2538     ds->df1010 += factor*d2fdraga;
2539     ds->df1001 += factor*d2fdragb;
2540     ds->df10001+= factor*d2fdraab;
2541     ds->df0200 += factor*d2fdrbrb;
2542     ds->df0110 += factor*d2fdrbga;
2543     ds->df0101 += factor*d2fdrbgb;
2544     ds->df01001+= factor*d2fdrbgab;
2545     ds->df0020 += factor*d2fdgaga;
2546     ds->df0011 += factor*d2fdgagb;
2547     ds->df00101+= factor*d2fdgagab;
2548     ds->df0002 += factor*d2fdgbgb;
2549     ds->df00011+= factor*d2fdgbgab;
2550     ds->df00002+= factor*d2fdgabgab;
2551 
2552     ds->df3000 += factor*d3fdrarara;
2553     ds->df2100  += factor*d3fdrararb;
2554     ds->df2010  += factor*d3fdraraga;
2555     ds->df2001  += factor*d3fdraragb;
2556     ds->df20001 += factor*d3fdraraab;
2557     ds->df1200  += factor*d3fdrarbrb;
2558     ds->df1110  += factor*d3fdrarbga;
2559     ds->df1101  += factor*d3fdrarbgb;
2560     ds->df11001 += factor*d3fdrarbab;
2561     ds->df1020  += factor*d3fdragaga;
2562     ds->df1011  += factor*d3fdragagb;
2563     ds->df10101 += factor*d3fdragaab;
2564     ds->df1002  += factor*d3fdragbgb;
2565     ds->df10011 += factor*d3fdragbab;
2566     ds->df10002 += factor*d3fdraabab;
2567     ds->df0300  += factor*d3fdrbrbrb;
2568     ds->df0210  += factor*d3fdrbrbga;
2569     ds->df0201  += factor*d3fdrbrbgb;
2570     ds->df02001 += factor*d3fdrbrbab;
2571     ds->df0120  += factor*d3fdrbgaga;
2572     ds->df0111  += factor*d3fdrbgagb;
2573     ds->df01101 += factor*d3fdrbgaab;
2574     ds->df0102  += factor*d3fdrbgbgb;
2575     ds->df01011 += factor*d3fdrbgbab;
2576     ds->df01002 += factor*d3fdrbabab;
2577     ds->df0030  += factor*d3fdgagaga;
2578     ds->df0021  += factor*d3fdgagagb;
2579     ds->df00201 += factor*d3fdgagaab;
2580     ds->df0012  += factor*d3fdgagbgb;
2581     ds->df00111 += factor*d3fdgagbab;
2582     ds->df00102 += factor*d3fdgaabab;
2583     ds->df0003  += factor*d3fdgbgbgb;
2584     ds->df00021 += factor*d3fdgbgbab;
2585     ds->df00012 += factor*d3fdgbabab;
2586     ds->df00003 += factor*d3fdababab;
2587 
2588 }
2589 
2590 static void
hcth93m_fourth(FunFourthFuncDrv * ds,real factor,const FunDensProp * dp)2591 hcth93m_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
2592 {
2593     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
2594     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
2595         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
2596         d2fdgbgb, d2fdgbgab, d2fdgabgab;
2597     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
2598          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
2599          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
2600          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
2601          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
2602          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
2603          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
2604     real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
2605          d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
2606          d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
2607          d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
2608          d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
2609          d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
2610          d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
2611          d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
2612          d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
2613          d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
2614          d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
2615          d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
2616          d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
2617          d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
2618          d4fdabababab;
2619     real rhoa = dp->rhoa, rhob = dp->rhob;
2620     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
2621 
2622     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
2623     real t11, t12, t13, t14, t15, t16, t17, t18;
2624     real t19, t20, t21, t22, t23, t24, t25, t26;
2625     real t27, t28, t29, t30, t31, t32, t33, t34;
2626     real t35, t36, t37, t38, t39, t40, t41, t42;
2627     real t43, t44, t45, t46, t47, t48, t49, t50;
2628     real t51, t52, t53, t54, t55, t56, t57, t58;
2629     real t59, t60, t61, t62, t63, t64, t65, t66;
2630     real t67, t68, t69, t70, t71, t72, t73, t74;
2631     real t75, t76, t77, t78, t79, t80, t81, t82;
2632     real t83, t84, t85, t86, t87, t88, t89, t90;
2633     real t91, t92, t93, t94, t95, t96, t97, t98;
2634     real t99, t100, t101, t102, t103, t104, t105;
2635     real t106, t107, t108, t109, t110, t111, t112;
2636     real t113, t114, t115, t116, t117, t118, t119;
2637     real t120, t121, t122, t123, t124, t125, t126;
2638     real t127, t128, t129, t130, t131, t132, t133;
2639     real t134, t135, t136, t137, t138, t139, t140;
2640     real t141, t142, t143, t144, t145, t146, t147;
2641     real t148, t149, t150, t151, t152, t153, t154;
2642     real t155, t156, t157, t158, t159, t160, t161;
2643     real t162, t163, t164, t165, t166, t167, t168;
2644     real t169, t170, t171, t172, t173, t174, t175;
2645     real t176, t177, t178, t179, t180, t181, t182;
2646     real t183, t184, t185, t186, t187, t188, t189;
2647     real t190, t191, t192, t193, t194, t195, t196;
2648     real t197, t198, t199, t200, t201, t202, t203;
2649     real t204, t205, t206, t207, t208, t209, t210;
2650     real t211, t212, t213, t214, t215, t216, t217;
2651     real t218, t219, t220, t221, t222, t223, t224;
2652     real t225, t226, t227, t228, t229, t230, t231;
2653     real t232, t233, t234, t235, t236, t237, t238;
2654     real t239, t240, t241, t242, t243, t244, t245;
2655     real t246, t247, t248, t249, t250, t251, t252;
2656     real t253, t254, t255, t256, t257, t258, t259;
2657     real t260, t261, t262, t263, t264, t265, t266;
2658     real t267, t268, t269, t270, t271, t272, t273;
2659     real t274, t275, t276, t277, t278, t279, t280;
2660     real t281, t282, t283, t284, t285, t286, t287;
2661     real t288, t289, t290, t291, t292, t293, t294;
2662     real t295, t296, t297, t298, t299, t300, t301;
2663     real t302, t303, t304, t305, t306, t307, t308;
2664     real t309, t310, t311, t312, t313, t314, t315;
2665     real t316, t317, t318, t319, t320, t321, t322;
2666     real t323, t324, t325, t326, t327, t328, t329;
2667     real t330, t331, t332, t333, t334, t335, t336;
2668     real t337, t338, t339, t340, t341, t342, t343;
2669     real t344, t345, t346, t347, t348, t349, t350;
2670     real t351, t352, t353, t354, t355, t356, t357;
2671     real t358, t359, t360, t361, t362, t363, t364;
2672     real t365, t366, t367, t368, t369, t370, t371;
2673     real t372, t373, t374, t375, t376, t377, t378;
2674     real t379, t380, t381, t382, t383, t384, t385;
2675     real t386, t387, t388, t389, t390, t391, t392;
2676     real t393, t394, t395, t396, t397, t398, t399;
2677     real t400, t401, t402, t403, t404, t405, t406;
2678     real t407, t408, t409, t410, t411, t412, t413;
2679     real t414, t415, t416, t417, t418, t419, t420;
2680     real t421, t422, t423, t424, t425, t426, t427;
2681     real t428, t429, t430, t431, t432, t433, t434;
2682     real t435, t436, t437, t438, t439, t440, t441;
2683     real t442, t443, t444, t445, t446, t447, t448;
2684     real t449, t450, t451, t452, t453, t454, t455;
2685     real t456, t457, t458, t459, t460, t461, t462;
2686     real t463, t464, t465, t466, t467, t468, t469;
2687     real t470, t471, t472, t473, t474, t475, t476;
2688     real t477, t478, t479, t480, t481, t482, t483;
2689     real t484, t485, t486, t487, t488, t489, t490;
2690     real t491, t492, t493, t494, t495, t496, t497;
2691     real t498, t499, t500, t501, t502, t503, t504;
2692     real t505, t506, t507, t508, t509, t510, t511;
2693     real t512, t513, t514, t515, t516, t517, t518;
2694     real t519, t520, t521, t522, t523, t524, t525;
2695     real t526, t527, t528, t529, t530, t531, t532;
2696     real t533, t534, t535, t536, t537, t538, t539;
2697     real t540, t541, t542, t543, t544, t545, t546;
2698     real t547, t548, t549, t550, t551, t552, t553;
2699     real t554, t555, t556, t557, t558, t559, t560;
2700     real t561, t562, t563, t564, t565, t566, t567;
2701     real t568, t569, t570, t571, t572, t573, t574;
2702     real t575, t576, t577, t578, t579, t580, t581;
2703     real t582, t583, t584, t585, t586, t587, t588;
2704     real t589, t590, t591, t592, t593, t594, t595;
2705     real t596, t597, t598, t599, t600, t601, t602;
2706     real t603, t604, t605, t606, t607, t608, t609;
2707     real t610, t611, t612, t613, t614, t615, t616;
2708     real t617, t618, t619, t620, t621, t622, t623;
2709     real t624, t625, t626, t627, t628, t629, t630;
2710     real t631, t632, t633, t634, t635, t636, t637;
2711     real t638, t639, t640, t641, t642, t643, t644;
2712     real t645, t646, t647, t648, t649, t650, t651;
2713     real t652, t653, t654, t655, t656, t657, t658;
2714     real t659, t660, t661, t662, t663, t664, t665;
2715     real t666, t667, t668, t669, t670, t671, t672;
2716     real t673, t674, t675, t676, t677, t678, t679;
2717     real t680, t681, t682, t683, t684, t685, t686;
2718     real t687, t688, t689, t690, t691, t692, t693;
2719     real t694, t695, t696, t697, t698, t699, t700;
2720     real t701, t702, t703, t704, t705, t706, t707;
2721     real t708, t709, t710, t711, t712, t713, t714;
2722     real t715, t716, t717, t718, t719, t720, t721;
2723     real t722, t723, t724, t725, t726, t727, t728;
2724     real t729, t730, t731, t732, t733, t734, t735;
2725     real t736, t737, t738, t739, t740, t741, t742;
2726     real t743, t744, t745, t746, t747, t748, t749;
2727     real t750, t751, t752, t753, t754, t755, t756;
2728     real t757, t758, t759, t760, t761, t762, t763;
2729     real t764, t765, t766, t767, t768, t769, t770;
2730     real t771, t772, t773, t774, t775, t776, t777;
2731     real t778, t779, t780, t781, t782, t783, t784;
2732     real t785, t786, t787, t788;
2733 
2734     t1 = pow(3.0,0.333333333333333);
2735     t2 = 1/pow(4.0,0.333333333333333);
2736     t3 = 1/pow(3.141592653589793,0.333333333333333);
2737     t4 = pow(3.0,0.666666666666667);
2738     t5 = 1/pow(4.0,0.666666666666667);
2739     t6 = 1/pow(3.141592653589793,0.666666666666667);
2740     t7 = 1/pow(rhoa,0.666666666666667);
2741     t8 = 1.732050807568877;
2742     t9 = 0.564189583547756;
2743     t10 = sqrt(rhoa);
2744     t11 = pow(rhoa,0.333333333333333);
2745     t12 = 1/t11;
2746     t13 = pow(2.0,0.333333333333333);
2747     t14 = 1/t13;
2748     t15 = pow(3.0,0.166666666666667);
2749     t16 = 1/pow(3.141592653589793,0.166666666666667);
2750     t17 = 14.1189*t14*t15*t16/pow(rhoa,0.166666666666667)+
2751         1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
2752     t18 = 32.1646831778707/
2753         t17+1.0;
2754     t19 = log(t18);
2755     t20 = pow(grada,8.0);
2756     t21 = pow(grada,2.0);
2757     t22 = 1/pow(rhoa,2.666666666666667);
2758     t23 = 0.2*t21*t22+1.0;
2759     t24 = 1/pow(t23,4.0);
2760     t25 = 1/pow(rhoa,10.66666666666667);
2761     t26 = pow(grada,6.0);
2762     t27 = 1/pow(t23,3.0);
2763     t28 = 1/pow(rhoa,8.0);
2764     t29 = pow(grada,4.0);
2765     t30 = 1/pow(t23,2.0);
2766     t31 = 1/pow(rhoa,5.333333333333333);
2767     t32 = 1/t23;
2768     t33 = 0.01710778*t21*t32*t22+0.00796612*t29*t30*t31-0.01475312*
2769         t26*t27*t28+0.003489216*t20*t24*t25+0.492391;
2770     t34 = 0.20548*t1*t2*t3*t12+1.0;
2771     t35 = pow(6.0,0.333333333333333);
2772     t36 = 0.004*t21*t22+1.0;
2773     t37 = 1/pow(t36,4.0);
2774     t38 = 1/pow(t36,3.0);
2775     t39 = 1/pow(t36,2.0);
2776     t40 = 1/t36;
2777     t41 = -0.002082136*t21*t40*t22+7.54152E-5*t29*t39*t31-
2778         3.685203200000001E-7*t26*t38*t28+8.01088E-10*t20*t37*t25+1.07785;
2779     t42 = pow(grada,
2780         10.0);
2781     t43 = 1/pow(t23,5.0);
2782     t44 = 1/pow(rhoa,14.33333333333333);
2783     t45 = 1/pow(rhoa,11.66666666666667);
2784     t46 = 1/pow(rhoa,9.0);
2785     t47 = 1/pow(rhoa,6.333333333333333);
2786     t48 = 1/pow(rhoa,3.666666666666667);
2787     t49 = -0.045620746666667*t21*t32*t48-0.033361824*t29*
2788         t30*t47+0.126522154666667*t26*t27*t46-0.060823296*t20*t24*
2789         t45+0.0074436608*t42*t43*t44;
2790     t50 = 1/t18;
2791     t51 = 1/pow(rhoa,1.666666666666667);
2792     t52 = pow(rhoa,1.333333333333333);
2793     t53 = 1/t52;
2794     t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
2795         0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
2796         t5*t6*t51;
2797     t55 = 1/pow(t17,2.0);
2798     t56 = 1/pow(t36,5.0);
2799     t57 = 0.005552362666667*t21*t40*t48-4.244238506666666E-4*
2800         t29*t39*t47+4.557020160000001E-6*t26*t38*t46-2.0337588906666668E-8*
2801         t20*t37*t45+3.41797546666667E-11*t42*t56*t44;
2802     t58 = pow(gradb,2.0);
2803     t59 = 1/pow(rhob,2.666666666666667);
2804     t60 = 0.5*t58*t59+0.5*t21*t22;
2805     t61 = pow(t60,4.0);
2806     t62 = 0.006*t60+1.0;
2807     t63 = 1/pow(t62,4.0);
2808     t64 = pow(t60,3.0);
2809     t65 = 1/pow(t62,3.0);
2810     t66 = pow(t60,2.0);
2811     t67 = 1/pow(t62,2.0);
2812     t68 = 1/t62;
2813     t69 = 0.02221776*t60*t68-5.364072E-4*t66*t67+3.391632E-6*
2814         t64*t65-7.86329856E-9*t61*t63+0.622261;
2815     t70 = rhob+rhoa;
2816     t71 = 1/pow(t70,0.333333333333333);
2817     t72 = 0.2137*t1*t2*t3*t71+1.0;
2818     t73 = 1/pow(t70,0.666666666666667);
2819     t74 = sqrt(t70);
2820     t75 = 1/t74;
2821     t76 = 1/pow(t70,0.166666666666667);
2822     t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
2823         t8*t9*t75+0.49294*t4*t5*t6*t73;
2824     t78 = 16.0818243221511/t77+1.0;
2825     t79 = log(t78);
2826     t80 = -0.062182*t72*t79;
2827     t81 = 1/(2.0*t13-2.0);
2828     t82 = rhoa-1.0*rhob;
2829     t83 = pow(t82,4.0);
2830     t84 = 1/pow(t70,4.0);
2831     t85 = 1.0-1.0*t83*t84;
2832     t86 = 0.11125*t1*t2*t3*t71+1.0;
2833     t87 = 1/t70;
2834     t88 = 1.0-1.0*t82*t87;
2835     t89 = t82*t87+1.0;
2836     t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
2837         2.0;
2838     t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
2839         t8*t9*t75+0.49671*t4*t5*t6*t73;
2840     t92 = 29.60857464321668/t91+1.0;
2841     t93 = log(t92);
2842     t94 = 0.019751789702565*t81*t85*t86*t90*t93;
2843     t95 = 0.20548*t1*t2*t3*t71+1.0;
2844     t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
2845         t8*t9*t75+0.62517*t4*t5*t6*t73;
2846     t97 = 32.1646831778707/t96+1.0;
2847     t98 = log(t97);
2848     t99 = 0.062182*t72*t79-0.03109*t95*t98;
2849     t100 = t81*t83*t84*t90*t99;
2850     t101 = 1/pow(t70,1.666666666666667);
2851     t102 = 1/pow(t74,3.0);
2852     t103 = 1/pow(t70,1.333333333333333);
2853     t104 = 1/pow(t70,1.166666666666667);
2854     t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
2855         t2*t3*t103-0.40955*t8*t9*t102-0.328626666666667*t4*t5*t6*t101;
2856     t106 = 1/
2857         pow(t77,2.0);
2858     t107 = 1/t78;
2859     t108 = 1.0*t105*t72*t106*t107;
2860     t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
2861         t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
2862     t110 = 1/pow(t91,2.0);
2863     t111 = 1/t92;
2864     t112 = -0.58482233974552*t81*t85*t109*t86*t110*t90*t111;
2865     t113 = 0.004429431133333*
2866         t1*t2*t3*t103*t79;
2867     t114 = 1/pow(t70,2.0);
2868     t115 = t82*t114;
2869     t116 = -1.0*t87;
2870     t117 = t116+t115;
2871     t118 = pow(t88,0.333333333333333);
2872     t119 = -1.0*t114*t82;
2873     t120 = t87+t119;
2874     t121 = pow(t89,0.333333333333333);
2875     t122 = 1.333333333333333*t120*t121+1.333333333333333*
2876         t117*t118;
2877     t123 = 0.019751789702565*t81*t85*t86*t122*t93;
2878     t124 = -7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t90*
2879         t93;
2880     t125 = 1/pow(t70,5.0);
2881     t126 = 4.0*t125*t83;
2882     t127 = pow(t82,3.0);
2883     t128 = t126-4.0*t127*t84;
2884     t129 = 0.019751789702565*t81*t128*t86*t90*t93;
2885     t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
2886         0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
2887     t131 = 1/pow(t96,2.0);
2888     t132 = 1/t97;
2889     t133 = 0.002129457733333*t1*t2*t3*t103*t98-0.004429431133333*
2890         t1*t2*t3*t103*t79+t130*t95*t131*t132-1.0*t105*t72*t106*t107;
2891     t134 = t81*
2892         t83*t84*t90*t133;
2893     t135 = t81*t83*t84*t122*t99;
2894     t136 = -4.0*t125*t81*t83*t90*t99;
2895     t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
2896         t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
2897         t80+0.03109*t19*t34-0.002129457733333*t1*t2*t3*t19*t12+t100;
2898     t138 = 1/
2899         pow(t62,5.0);
2900     t139 = -0.02962368*t21*t48*t68+0.00160816128*t21*t48*
2901         t60*t67-2.2149043200000002E-5*t21*t48*t66*t65+1.2333676031999999E-7*
2902         t21*t48*t64*t63-2.5162555392E-10*t21*t48*t61*t138;
2903     t140 = 1/pow(rhob,0.666666666666667);
2904     t141 = sqrt(rhob);
2905     t142 = pow(rhob,0.333333333333333);
2906     t143 = 1/t142;
2907     t144 = 14.1189*t14*t15*t16/pow(rhob,0.166666666666667)+
2908         1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
2909     t145 = 32.1646831778707/
2910         t144+1.0;
2911     t146 = log(t145);
2912     t147 = 0.20548*t1*t2*t3*t143+1.0;
2913     t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
2914         t19*t34*rhoa;
2915     t149 = pow(gradb,8.0);
2916     t150 = 0.2*t58*t59+1.0;
2917     t151 = 1/pow(t150,4.0);
2918     t152 = 1/pow(rhob,10.66666666666667);
2919     t153 = pow(gradb,6.0);
2920     t154 = 1/pow(t150,3.0);
2921     t155 = 1/pow(rhob,8.0);
2922     t156 = pow(gradb,4.0);
2923     t157 = 1/pow(t150,2.0);
2924     t158 = 1/pow(rhob,5.333333333333333);
2925     t159 = 1/t150;
2926     t160 = 0.01710778*t58*t159*t59+0.00796612*t156*t157*t158-
2927         0.01475312*t153*t154*t155+0.003489216*t149*t151*t152+0.492391;
2928     t161 = 0.004*
2929         t58*t59+1.0;
2930     t162 = 1/pow(t161,4.0);
2931     t163 = 1/pow(t161,3.0);
2932     t164 = 1/pow(t161,2.0);
2933     t165 = 1/t161;
2934     t166 = -0.002082136*t58*t165*t59+7.54152E-5*t156*t164*
2935         t158-3.685203200000001E-7*t153*t163*t155+8.01088E-10*t149*
2936         t162*t152+1.07785;
2937     t167 = pow(gradb,10.0);
2938     t168 = 1/pow(t150,5.0);
2939     t169 = 1/pow(rhob,14.33333333333333);
2940     t170 = 1/pow(rhob,11.66666666666667);
2941     t171 = 1/pow(rhob,9.0);
2942     t172 = 1/pow(rhob,6.333333333333333);
2943     t173 = 1/pow(rhob,3.666666666666667);
2944     t174 = -0.045620746666667*t58*t159*t173-0.033361824*t156*
2945         t157*t172+0.126522154666667*t153*t154*t171-0.060823296*t149*
2946         t151*t170+0.0074436608*t167*t168*t169;
2947     t175 = 1/t145;
2948     t176 = 1/pow(rhob,1.666666666666667);
2949     t177 = pow(rhob,1.333333333333333);
2950     t178 = 1/t177;
2951     t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
2952         0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
2953         t5*t6*t176;
2954     t180 = 1/pow(t144,2.0);
2955     t181 = 1/pow(t161,5.0);
2956     t182 = 0.005552362666667*t58*t165*t173-4.244238506666666E-4*
2957         t156*t164*t172+4.557020160000001E-6*t153*t163*t171-2.0337588906666668E-8*
2958         t149*t162*t170+3.41797546666667E-11*t167*t181*t169;
2959     t183 = t87+t115;
2960     t184 = t116+t119;
2961     t185 = 1.333333333333333*t121*t184+1.333333333333333*
2962         t118*t183;
2963     t186 = 0.019751789702565*t81*t85*t86*t185*t93;
2964     t187 = 4.0*t127*t84+t126;
2965     t188 = 0.019751789702565*t81*t187*t86*t90*t93;
2966     t189 = t81*t83*t84*t185*t99;
2967     t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
2968         t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
2969         t94+t80+0.03109*t146*t147-0.002129457733333*t1*t2*t3*t146*
2970         t143+t100;
2971     t191 = -0.02962368*t58*t68*t173+0.00160816128*t58*t60*
2972         t67*t173-2.2149043200000002E-5*t58*t66*t65*t173+1.2333676031999999E-7*
2973         t58*t64*t63*t173-2.5162555392E-10*t58*t61*t138*t173;
2974     t192 = pow(grada,9.0);
2975     t193 = 1/pow(rhoa,13.33333333333333);
2976     t194 = pow(grada,7.0);
2977     t195 = pow(grada,5.0);
2978     t196 = pow(grada,3.0);
2979     t197 = 0.03421556*grada*t32*t22+0.025021368*t196*t30*
2980         t31-0.094891616*t195*t27*t28+0.045617472*t194*t24*t25-0.0055827456*
2981         t192*t43*t193;
2982     t198 = -0.004164272*grada*t40*t22+3.18317888E-4*t196*
2983         t39*t31-3.417765120000001E-6*t195*t38*t28+1.525319168E-8*t194*
2984         t37*t25-2.5634816E-11*t192*t56*t193;
2985     t199 = 0.02221776*grada*t22*t68-0.00120612096*grada*t22*
2986         t60*t67+1.66117824E-5*grada*t22*t66*t65-9.250257024E-8*grada*
2987         t22*t64*t63+1.8871916544E-10*grada*t22*t61*t138;
2988     t200 = pow(gradb,9.0);
2989     t201 = 1/pow(rhob,13.33333333333333);
2990     t202 = pow(gradb,7.0);
2991     t203 = pow(gradb,5.0);
2992     t204 = pow(gradb,3.0);
2993     t205 = 0.03421556*gradb*t159*t59+0.025021368*t204*t157*
2994         t158-0.094891616*t203*t154*t155+0.045617472*t202*t151*t152-
2995         0.0055827456*t200*t168*t201;
2996     t206 = -0.004164272*gradb*t165*t59+3.18317888E-4*t204*
2997         t164*t158-3.417765120000001E-6*t203*t163*t155+1.525319168E-8*
2998         t202*t162*t152-2.5634816E-11*t200*t181*t201;
2999     t207 = 0.02221776*gradb*t68*t59-0.00120612096*gradb*t60*
3000         t67*t59+1.66117824E-5*gradb*t66*t65*t59-9.250257024E-8*gradb*
3001         t64*t63*t59+1.8871916544E-10*gradb*t61*t138*t59;
3002     t208 = pow(grada,12.0);
3003     t209 = 1/pow(t23,6.0);
3004     t210 = 1/pow(rhoa,18.0);
3005     t211 = 1/pow(rhoa,15.33333333333333);
3006     t212 = 1/pow(rhoa,12.66666666666667);
3007     t213 = 1/pow(rhoa,10.0);
3008     t214 = 1/pow(rhoa,7.333333333333333);
3009     t215 = 1/pow(rhoa,4.666666666666667);
3010     t216 = 0.167276071111111*t21*t32*t215+0.186960487111111*
3011         t29*t30*t214-1.1742853376*t26*t27*t213+0.912040567466667*t20*
3012         t24*t212-0.236448836266667*t42*t43*t211+0.019849762133333*
3013         t208*t209*t210;
3014     t217 = 1/pow(t18,2.0);
3015     t218 = pow(t54,2.0);
3016     t219 = 1/pow(t17,4.0);
3017     t220 = 1/pow(t17,3.0);
3018     t221 = 1/pow(rhoa,2.333333333333333);
3019     t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
3020         1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
3021         0.694633333333333*t4*t5*t6*t22;
3022     t223 = 1/pow(t36,6.0);
3023     t224 = -0.020358663111111*t21*t40*t215+0.002747242922667*
3024         t29*t39*t214-5.00675569208889E-5*t26*t38*t213+3.830965156977778E-7*
3025         t20*t37*t212-1.357646943573333E-9*t42*t56*t211+1.82292024888889E-12*
3026         t208*t223*t210;
3027     t225 = 2.0*t105*t72*t106*t107;
3028     t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
3029     t227 = 0.008858862266667*
3030         t1*t2*t3*t103*t79;
3031     t228 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t90*t93;
3032     t229 = 2.0*
3033         t133*t81*t83*t84*t90;
3034     t230 = -8.0*t125*t81*t83*t90*t99;
3035     t231 = pow(t105,2.0);
3036     t232 = 1/pow(t77,4.0);
3037     t233 = 1/pow(t78,2.0);
3038     t234 = 16.0818243221511*t231*t72*t232*t233;
3039     t235 = 1/pow(t77,3.0);
3040     t236 = -2.0*t231*t72*t235*t107;
3041     t237 = -0.142466666666667*t1*t2*t3*t103*t105*t106*t107;
3042     t238 = 1/
3043         pow(t70,2.666666666666667);
3044     t239 = 1/pow(t74,5.0);
3045     t240 = 1/pow(t70,2.333333333333333);
3046     t241 = 1/pow(t70,2.166666666666667);
3047     t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
3048         t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
3049         t6*t238;
3050     t243 = 1.0*t242*t72*t106*t107;
3051     t244 = pow(t109,2.0);
3052     t245 = 1/pow(t91,4.0);
3053     t246 = 1/pow(t92,2.0);
3054     t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
3055     t248 = -
3056         1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
3057     t249 = 1/pow(t91,3.0);
3058     t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
3059     t251 = 0.043374323531126*
3060         t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
3061     t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
3062         t1*t2*t3*t240+0.3300975*t8*t9*t239+0.5519*t4*t5*t6*t238;
3063     t253 = -
3064         0.58482233974552*t81*t85*t252*t86*t110*t90*t111;
3065     t254 = -1.169644679491041*t81*t128*t109*t86*t110*t90*
3066         t111;
3067     t255 = -0.005905908177778*t1*t2*t3*t240*t79;
3068     t256 = pow(t117,2.0);
3069     t257 = 1/pow(t88,0.666666666666667);
3070     t258 = 1/pow(t70,3.0);
3071     t259 = -2.0*t258*t82;
3072     t260 = 2.0*t114;
3073     t261 = t260+t259;
3074     t262 = pow(t120,2.0);
3075     t263 = 1/pow(t89,0.666666666666667);
3076     t264 = 2.0*t258*t82;
3077     t265 = -2.0*t114;
3078     t266 = t265+t264;
3079     t267 = 1.333333333333333*t121*t266+0.444444444444444*
3080         t262*t263+1.333333333333333*t118*t261+0.444444444444444*t256*
3081         t257;
3082     t268 = 0.019751789702565*t81*t85*t86*t267*t93;
3083     t269 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t122*t93;
3084     t270 = 0.03950357940513*
3085         t81*t128*t86*t122*t93;
3086     t271 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t90*t93;
3087     t272 = 9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t90*
3088         t93;
3089     t273 = 1/pow(t70,6.0);
3090     t274 = -20.0*t273*t83;
3091     t275 = pow(t82,2.0);
3092     t276 = -12.0*t275*t84;
3093     t277 = t276+t274+32.0*t125*t127;
3094     t278 = 0.019751789702565*t81*t277*t86*t90*t93;
3095     t279 = pow(t130,2.0);
3096     t280 = 1/pow(t96,4.0);
3097     t281 = 1/pow(t97,2.0);
3098     t282 = 1/pow(t96,3.0);
3099     t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
3100         t1*t2*t3*t240+1.262325*t8*t9*t239+0.694633333333333*t4*t5*
3101         t6*t238;
3102     t284 = -0.002839276977778*t1*t2*t3*t240*t98-2.0*t132*
3103         t279*t282*t95+0.005905908177778*t1*t2*t3*t240*t79+32.1646831778707*
3104         t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
3105         t95*t131*t132-0.136986666666667*t1*t2*t3*t103*t130*t131*t132+
3106         2.0*t231*t72*t235*t107-1.0*t242*t72*t106*t107+0.142466666666667*
3107         t1*t2*t3*t103*t105*t106*t107;
3108     t285 = t81*t83*t84*t90*t284;
3109     t286 = 2.0*t122*t133*t81*t83*t84;
3110     t287 = -8.0*t125*t133*t81*t83*t90;
3111     t288 = 8.0*t127*t133*t81*t84*t90;
3112     t289 = t81*t83*t84*t267*t99;
3113     t290 = -8.0*t122*t125*t81*t83*t99;
3114     t291 = 20.0*t273*t81*t83*t90*t99;
3115     t292 = -32.0*t125*t127*t81*t90*t99;
3116     t293 = 12.0*t275*t81*t84*t90*t99;
3117     t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
3118         rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
3119         t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
3120         t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
3121         t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
3122         t81*t83*t84*t99+0.03950357940513*t81*t128*t86*t90*t93+0.03950357940513*
3123         t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-0.001419638488889*
3124         t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+0.136986666666667*
3125         t1*t2*t3*t50*t54*t55*t12;
3126     t295 = 1/pow(t62,6.0);
3127     t296 = 0.10862016*t21*t215*t68-0.00589659136*t21*t215*
3128         t60*t67-0.00238120448*t29*t214*t67+8.121315840000001E-5*t21*
3129         t215*t66*t65+8.479469568E-5*t29*t214*t60*t65-4.522347878399999E-7*
3130         t21*t215*t64*t63-1.02492407808E-6*t29*t214*t66*t63+9.2262703104E-10*
3131         t21*t215*t61*t138+5.28877928448E-9*t29*t214*t64*t138-1.00650221568E-11*
3132         t29*t214*t61*t295;
3133     t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
3134         t118*t258*t82+0.444444444444444*t120*t184*t263+0.444444444444444*
3135         t117*t183*t257;
3136     t298 = 12.0*t275*t84+t274;
3137     t299 = -12.0*t275*t81*t84*t90*t99;
3138     t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
3139         t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
3140         t81*t83*t84*t297*t99+0.019751789702565*t81*t298*t86*t90*t93-
3141         7.324622014701263E-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263E-4*
3142         t81*t1*t2*t3*t103*t128*t90*t93+0.019751789702565*t81*t85*t86*
3143         t297*t93+0.019751789702565*t81*t128*t86*t185*t93-7.324622014701263E-4*
3144         t81*t1*t2*t3*t103*t85*t185*t93+0.019751789702565*t81*t187*
3145         t86*t122*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t122*
3146         t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
3147         t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
3148         0.58482233974552*t81*t187*t109*t86*t110*t90*t111-0.58482233974552*
3149         t81*t128*t109*t86*t110*t90*t111-0.58482233974552*t81*t85*t109*
3150         t86*t110*t185*t111-0.58482233974552*t81*t85*t109*t86*t110*
3151         t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+t135+
3152         t129+t123;
3153     t301 = -0.00238120448*t21*t58*t48*t67*t173+8.479469568E-5*
3154         t21*t58*t48*t60*t65*t173-1.02492407808E-6*t21*t58*t48*t66*
3155         t63*t173+5.28877928448E-9*t21*t58*t48*t64*t138*t173-1.00650221568E-11*
3156         t21*t58*t48*t61*t295*t173;
3157     t302 = pow(grada,11.0);
3158     t303 = 1/pow(rhoa,17.0);
3159     t304 = -0.091241493333333*grada*t32*t48-0.115198997333333*
3160         t196*t30*t47+0.7858223872*t195*t27*t46-0.6384129536*t194*t24*
3161         t45+0.1717538816*t192*t43*t44-0.0148873216*t302*t209*t303;
3162     t305 = 0.011104725333333*
3163         grada*t40*t48-0.001742114304*t196*t39*t47+3.413290257066667E-5*
3164         t195*t38*t46-2.720691950933334E-7*t194*t37*t45+9.9260039168E-10*
3165         t192*t56*t44-1.367190186666667E-12*t302*t223*t303;
3166     t306 = -0.05924736*grada*t48*t68+0.00321632256*grada*
3167         t48*t60*t67+0.00178590336*t196*t47*t67-4.42980864E-5*grada*
3168         t48*t66*t65-6.359602176E-5*t196*t47*t60*t65+2.4667352064E-7*
3169         grada*t48*t64*t63+7.6869305856E-7*t196*t47*t66*t63-5.0325110784E-10*
3170         grada*t48*t61*t138-3.96658446336E-9*t196*t47*t64*t138+7.5487666176E-12*
3171         t196*t47*t61*t295;
3172     t307 = 0.00178590336*t21*gradb*t48*t67*t59-6.359602176E-5*
3173         t21*gradb*t48*t60*t65*t59+7.6869305856E-7*t21*gradb*t48*t66*
3174         t63*t59-3.96658446336E-9*t21*gradb*t48*t64*t138*t59+7.5487666176E-12*
3175         t21*gradb*t48*t61*t295*t59;
3176     t308 = pow(gradb,12.0);
3177     t309 = 1/pow(t150,6.0);
3178     t310 = 1/pow(rhob,18.0);
3179     t311 = 1/pow(rhob,15.33333333333333);
3180     t312 = 1/pow(rhob,12.66666666666667);
3181     t313 = 1/pow(rhob,10.0);
3182     t314 = 1/pow(rhob,7.333333333333333);
3183     t315 = 1/pow(rhob,4.666666666666667);
3184     t316 = 0.167276071111111*t58*t159*t315+0.186960487111111*
3185         t156*t157*t314-1.1742853376*t153*t154*t313+0.912040567466667*
3186         t149*t151*t312-0.236448836266667*t167*t168*t311+0.019849762133333*
3187         t308*t309*t310;
3188     t317 = 1/pow(t145,2.0);
3189     t318 = pow(t179,2.0);
3190     t319 = 1/pow(t144,4.0);
3191     t320 = 1/pow(t144,3.0);
3192     t321 = 1/pow(rhob,2.333333333333333);
3193     t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
3194         1.262325*t8*t9/pow(t141,5.0)+0.694633333333333*t4*t5*t6*t59+
3195         2.754533333333333*t1*t2*t3*t321;
3196     t323 = 1/pow(t161,6.0);
3197     t324 = -0.020358663111111*t58*t165*t315+0.002747242922667*
3198         t156*t164*t314-5.00675569208889E-5*t153*t163*t313+3.830965156977778E-7*
3199         t149*t162*t312-1.357646943573333E-9*t167*t181*t311+1.82292024888889E-12*
3200         t308*t323*t310;
3201     t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
3202         t111;
3203     t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
3204         t111;
3205     t327 = pow(t183,2.0);
3206     t328 = t265+t259;
3207     t329 = pow(t184,2.0);
3208     t330 = t260+t264;
3209     t331 = 1.333333333333333*t121*t330+0.444444444444444*
3210         t263*t329+1.333333333333333*t118*t328+0.444444444444444*t257*
3211         t327;
3212     t332 = 0.019751789702565*t81*t85*t86*t331*t93;
3213     t333 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t185*t93;
3214     t334 = 0.03950357940513*
3215         t81*t187*t86*t185*t93;
3216     t335 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t90*t93;
3217     t336 = t276+
3218         t274-32.0*t125*t127;
3219     t337 = 0.019751789702565*t81*t336*t86*t90*t93;
3220     t338 = 2.0*t133*t185*t81*t83*t84;
3221     t339 = -8.0*t127*t133*t81*t84*t90;
3222     t340 = t81*t83*t84*t331*t99;
3223     t341 = -8.0*t125*t185*t81*t83*t99;
3224     t342 = 32.0*t125*t127*t81*t90*t99;
3225     t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
3226         t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
3227         (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
3228         t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
3229         t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
3230         t90*t99+2.0*t185*t81*t83*t84*t99+0.03950357940513*t81*t187*
3231         t86*t90*t93+0.03950357940513*t81*t85*t86*t185*t93+t230+t229+
3232         t228+t227+t226+t225-2.0*t175*t179*t147*t180-0.001419638488889*
3233         t1*t2*t3*t146*t178+0.136986666666667*t1*t2*t3*t175*t179*t180*
3234         t143;
3235     t344 = 0.10862016*t58*t68*t315-0.00589659136*t58*t60*
3236         t67*t315+8.121315840000001E-5*t58*t66*t65*t315-4.522347878399999E-7*
3237         t58*t64*t63*t315+9.2262703104E-10*t58*t61*t138*t315-0.00238120448*
3238         t156*t67*t314+8.479469568E-5*t156*t60*t65*t314-1.02492407808E-6*
3239         t156*t66*t63*t314+5.28877928448E-9*t156*t64*t138*t314-1.00650221568E-11*
3240         t156*t61*t295*t314;
3241     t345 = 0.00178590336*grada*t58*t22*t67*t173-6.359602176E-5*
3242         grada*t58*t22*t60*t65*t173+7.6869305856E-7*grada*t58*t22*t66*
3243         t63*t173-3.96658446336E-9*grada*t58*t22*t64*t138*t173+7.5487666176E-12*
3244         grada*t58*t22*t61*t295*t173;
3245     t346 = pow(gradb,11.0);
3246     t347 = 1/pow(rhob,17.0);
3247     t348 = -0.091241493333333*gradb*t159*t173-0.115198997333333*
3248         t204*t157*t172+0.7858223872*t203*t154*t171-0.6384129536*t202*
3249         t151*t170+0.1717538816*t200*t168*t169-0.0148873216*t346*t309*
3250         t347;
3251     t349 = 0.011104725333333*gradb*t165*t173-0.001742114304*
3252         t204*t164*t172+3.413290257066667E-5*t203*t163*t171-2.720691950933334E-7*
3253         t202*t162*t170+9.9260039168E-10*t200*t181*t169-1.367190186666667E-12*
3254         t346*t323*t347;
3255     t350 = -0.05924736*gradb*t68*t173+0.00321632256*gradb*
3256         t60*t67*t173-4.42980864E-5*gradb*t66*t65*t173+2.4667352064E-7*
3257         gradb*t64*t63*t173-5.0325110784E-10*gradb*t61*t138*t173+0.00178590336*
3258         t204*t67*t172-6.359602176E-5*t204*t60*t65*t172+7.6869305856E-7*
3259         t204*t66*t63*t172-3.96658446336E-9*t204*t64*t138*t172+7.5487666176E-12*
3260         t204*t61*t295*t172;
3261     t351 = 1/pow(rhoa,16.0);
3262     t352 = 0.03421556*t32*t22+0.06137788*t21*t30*t31-0.4944751744*
3263         t29*t27*t28+0.4331922432*t26*t24*t25-0.1232326656*t20*t43*
3264         t193+0.0111654912*t42*t209*t351;
3265     t353 = -0.004164272*t40*t22+9.882678399999998E-4*t21*
3266         t39*t31-2.2181911808000004E-5*t29*t38*t28+1.8879870464000002E-7*
3267         t26*t37*t25-7.1881547776E-10*t20*t56*t193+1.02539264E-12*t42*
3268         t223*t351;
3269     t354 = 0.02221776*t22*t68-0.00120612096*t22*t60*t67-0.00133942752*
3270         t21*t31*t67+1.66117824E-5*t22*t66*t65+4.769701632E-5*t21*t31*
3271         t60*t65-9.250257024E-8*t22*t64*t63-5.7651979392E-7*t21*t31*
3272         t66*t63+1.8871916544E-10*t22*t61*t138+2.97493834752E-9*t21*
3273         t31*t64*t138-5.6615749632E-12*t21*t31*t61*t295;
3274     t355 = -0.00133942752*grada*gradb*t22*t67*t59+4.769701632E-5*
3275         grada*gradb*t22*t60*t65*t59-5.7651979392E-7*grada*gradb*t22*
3276         t66*t63*t59+2.97493834752E-9*grada*gradb*t22*t64*t138*t59-
3277         5.6615749632E-12*grada*gradb*t22*t61*t295*t59;
3278     t356 = 1/pow(rhob,16.0);
3279     t357 = 0.03421556*t159*t59+0.06137788*t58*t157*t158-0.4944751744*
3280         t156*t154*t155+0.4331922432*t153*t151*t152-0.1232326656*t149*
3281         t168*t201+0.0111654912*t167*t309*t356;
3282     t358 = -0.004164272*t165*t59+9.882678399999998E-4*t58*
3283         t164*t158-2.2181911808000004E-5*t156*t163*t155+1.8879870464000002E-7*
3284         t153*t162*t152-7.1881547776E-10*t149*t181*t201+1.02539264E-12*
3285         t167*t323*t356;
3286     t359 = 0.02221776*t68*t59-0.00120612096*t60*t67*t59+1.66117824E-5*
3287         t66*t65*t59-9.250257024E-8*t64*t63*t59+1.8871916544E-10*t61*
3288         t138*t59-0.00133942752*t58*t67*t158+4.769701632E-5*t58*t60*
3289         t65*t158-5.7651979392E-7*t58*t66*t63*t158+2.97493834752E-9*
3290         t58*t64*t138*t158-5.6615749632E-12*t58*t61*t295*t158;
3291     t360 = pow(grada,14.0);
3292     t361 = 1/pow(t23,7.0);
3293     t362 = 1/pow(rhoa,21.66666666666667);
3294     t363 = 1/pow(rhoa,19.0);
3295     t364 = 1/pow(rhoa,16.33333333333333);
3296     t365 = 1/pow(rhoa,13.66666666666667);
3297     t366 = 1/pow(rhoa,11.0);
3298     t367 = 1/pow(rhoa,8.333333333333334);
3299     t368 = 1/pow(rhoa,5.666666666666667);
3300     t369 = -0.780621665185185*t21*t32*t368-1.281829667555556*
3301         t29*t30*t367+11.94227789558519*t26*t27*t366-13.43137039473778*
3302         t20*t24*t365+5.571235366684446*t42*t43*t364-0.987825948444445*
3303         t208*t209*t363+0.063519238826667*t360*t361*t362;
3304     t370 = 1/pow(t18,3.0);
3305     t371 = pow(t54,3.0);
3306     t372 = 1/pow(t17,6.0);
3307     t373 = 1/pow(t17,5.0);
3308     t374 = 1/pow(rhoa,3.333333333333333);
3309     t375 = -5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
3310         3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48-
3311         6.427244444444445*t1*t2*t3*t374;
3312     t376 = 1/pow(t36,7.0);
3313     t377 = 0.095007094518519*t21*t40*t368-0.020363607172741*
3314         t29*t39*t367+5.592834182257778E-4*t26*t38*t366-6.454717686973631E-6*
3315         t20*t37*t365+3.716270447122964E-8*t42*t56*t364-1.052204014705778E-10*
3316         t208*t223*t363+1.166668959288889E-13*t360*t376*t362;
3317     t378 = 48.2454729664533*t231*t72*t232*t233;
3318     t379 = -6.0*t231*t72*t235*t107;
3319     t380 = -0.4274*t1*t2*t3*t103*t105*t106*t107;
3320     t381 = 3.0*t242*t72*t106*t107;
3321     t382 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
3322     t383 = 3.508934038473122*
3323         t81*t85*t244*t86*t249*t90*t111;
3324     t384 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
3325         t90*t111;
3326     t385 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
3327     t386 = -
3328         0.017717724533333*t1*t2*t3*t240*t79;
3329     t387 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t90*t93;
3330     t388 = 3.0*
3331         t284*t81*t83*t84*t90;
3332     t389 = -24.0*t125*t133*t81*t83*t90;
3333     t390 = 60.0*t273*t81*t83*t90*t99;
3334     t391 = 36.0*t275*t81*t84*t90*t99;
3335     t392 = pow(t105,3.0);
3336     t393 = 1/pow(t77,6.0);
3337     t394 = 1/pow(t78,3.0);
3338     t395 = 517.2501470570614*t392*t72*t393*t394;
3339     t396 = 1/pow(t77,5.0);
3340     t397 = -96.4909459329066*t392*t72*t396*t233;
3341     t398 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
3342     t399 = 48.2454729664533*
3343         t242*t105*t72*t232*t233;
3344     t400 = 6.0*t392*t72*t232*t107;
3345     t401 = 0.4274*t1*t2*t3*t103*t231*t235*t107;
3346     t402 = -6.0*t242*t105*t72*t235*t107;
3347     t403 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
3348     t404 = 0.284933333333333*t1*t2*t3*t240*t105*t106*t107;
3349     t405 = 1/
3350         pow(t70,3.666666666666667);
3351     t406 = 1/pow(t74,7.0);
3352     t407 = 1/pow(t70,3.333333333333333);
3353     t408 = 1/pow(t70,3.166666666666667);
3354     t409 = -3.200040277777777*t14*t15*t16*t408-3.720474074074074*
3355         t1*t2*t3*t407-1.5358125*t8*t9*t406-1.460562962962963*t4*t5*
3356         t6*t405;
3357     t410 = 1.0*t409*t72*t106*t107;
3358     t411 = pow(t109,3.0);
3359     t412 = 1/pow(t91,6.0);
3360     t413 = 1/pow(t92,3.0);
3361     t414 = -1025.38970210078*t81*t85*t411*t86*t412*t90*t413;
3362     t415 = -
3363         51.9472676981276*t81*t85*t244*t86*t245*t122*t246;
3364     t416 = 1/pow(t91,5.0);
3365     t417 = 103.8945353962552*t81*t85*t411*t86*t416*t90*t246;
3366     t418 = 1.926377843805565*
3367         t81*t1*t2*t3*t103*t85*t244*t245*t90*t246;
3368     t419 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
3369         t246;
3370     t420 = -51.9472676981276*t81*t128*t244*t86*t245*t90*t246;
3371     t421 = 3.508934038473122*
3372         t81*t85*t244*t86*t249*t122*t111;
3373     t422 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
3374         t122*t111;
3375     t423 = -1.754467019236561*t81*t85*t252*t86*t110*t122*
3376         t111;
3377     t424 = -3.508934038473122*t81*t85*t411*t86*t245*t90*t111;
3378     t425 = -
3379         0.130122970593378*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
3380     t426 = 3.508934038473122*
3381         t81*t85*t252*t109*t86*t249*t90*t111;
3382     t427 = 3.508934038473122*t81*t128*t244*t86*t249*t90*t111;
3383     t428 = 0.065061485296689*
3384         t81*t1*t2*t3*t103*t85*t252*t110*t90*t111;
3385     t429 = 0.130122970593378*t81*t1*t2*t3*t103*t128*t109*
3386         t110*t90*t111;
3387     t430 = -0.086748647062252*t81*t1*t2*t3*t240*t85*t109*
3388         t110*t90*t111;
3389     t431 = -4.36336574074074*t14*t15*t16*t408-3.757288888888889*
3390         t1*t2*t3*t407-0.82524375*t8*t9*t406-1.471733333333333*t4*t5*
3391         t6*t405;
3392     t432 = -0.58482233974552*t81*t85*t431*t86*t110*t90*t111;
3393     t433 = -
3394         1.754467019236561*t81*t128*t252*t86*t110*t90*t111;
3395     t434 = 0.013780452414815*t1*t2*t3*t407*t79;
3396     t435 = pow(t117,3.0);
3397     t436 = 1/pow(t88,1.666666666666667);
3398     t437 = 6.0*t82*t84;
3399     t438 = -6.0*t258;
3400     t439 = t438+t437;
3401     t440 = pow(t120,3.0);
3402     t441 = 1/pow(t89,1.666666666666667);
3403     t442 = -6.0*t82*t84;
3404     t443 = 6.0*t258;
3405     t444 = t443+t442;
3406     t445 = 1.333333333333333*t121*t444-0.296296296296296*
3407         t440*t441+1.333333333333333*t118*t439-0.296296296296296*t435*
3408         t436+1.333333333333333*t120*t263*t266+1.333333333333333*t117*
3409         t257*t261;
3410     t446 = 0.019751789702565*t81*t85*t86*t445*t93;
3411     t447 = 0.059255369107696*t81*t128*t86*t267*t93;
3412     t448 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t122*t93;
3413     t449 = 0.059255369107696*
3414         t81*t277*t86*t122*t93;
3415     t450 = 0.002929848805881*t81*t1*t2*t3*t240*t128*t90*t93;
3416     t451 = -
3417         0.002278771293463*t81*t1*t2*t3*t407*t85*t90*t93;
3418     t452 = 1/pow(t70,7.0);
3419     t453 = 120.0*t452*t83;
3420     t454 = 144.0*t125*t275;
3421     t455 = -24.0*t82*t84;
3422     t456 = t455+t454+t453-240.0*t127*t273;
3423     t457 = 0.019751789702565*t81*t456*t86*t90*t93;
3424     t458 = pow(t130,3.0);
3425     t459 = 1/pow(t96,6.0);
3426     t460 = 1/pow(t97,3.0);
3427     t461 = 1/pow(t96,5.0);
3428     t462 = -5.948240277777777*t14*t15*t16*t408-6.427244444444445*
3429         t1*t2*t3*t407-3.1558125*t8*t9*t406-1.852355555555556*t4*t5*
3430         t6*t405;
3431     t463 = 0.006624979614815*t1*t2*t3*t407*t98+6.0*t132*t280*
3432         t458*t95-6.0*t130*t132*t282*t283*t95-0.013780452414815*t1*
3433         t2*t3*t407*t79+2069.133687865597*t458*t95*t459*t460-517.2501470570614*
3434         t392*t72*t393*t394-192.9880990672242*t458*t95*t461*t281+96.4940495336121*
3435         t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
3436         t280*t281+96.4909459329066*t392*t72*t396*t233-48.2454729664533*
3437         t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
3438         t232*t233+0.41096*t1*t2*t3*t103*t279*t282*t132+t462*t95*t131*
3439         t132-0.20548*t1*t2*t3*t103*t283*t131*t132+0.273973333333333*
3440         t1*t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-0.4274*
3441         t1*t2*t3*t103*t231*t235*t107-6.0*t392*t72*t232*t107-1.0*t409*
3442         t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-0.284933333333333*
3443         t1*t2*t3*t240*t105*t106*t107;
3444     t464 = t81*t83*t84*t90*t463;
3445     t465 = 3.0*t122*t284*t81*t83*t84;
3446     t466 = -12.0*t125*t284*t81*t83*t90;
3447     t467 = -24.0*t122*t125*t133*t81*t83;
3448     t468 = 24.0*t122*t127*t133*t81*t84;
3449     t469 = 60.0*t133*t273*t81*t83*t90;
3450     t470 = 36.0*t133*t275*t81*t84*t90;
3451     t471 = t81*t83*t84*t445*t99;
3452     t472 = 60.0*t122*t273*t81*t83*t99;
3453     t473 = -96.0*t122*t125*t127*t81*t99;
3454     t474 = 36.0*t122*t275*t81*t84*t99;
3455     t475 = -120.0*t452*t81*t83*t90*t99;
3456     t476 = -144.0*t125*t275*t81*t90*t99;
3457     t477 = 24.0*t81*t82*t84*t90*t99;
3458     t478 = -1.0*t50*t375*t34*t55*rhoa+192.9880990672242*t217*
3459         t371*t34*t373*rhoa-2069.133687865597*t370*t371*t34*t372*rhoa+
3460         6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*t222*
3461         t54*t34*t219*rhoa-6.0*t50*t371*t34*t219*rhoa+t70*(240.0*t127*
3462         t273*t81*t90*t99+12.0*t127*t267*t81*t84*t99-12.0*t125*t267*
3463         t81*t83*t99-0.00219738660441*t81*t1*t2*t3*t103*t277*t90*t93-
3464         0.00219738660441*t81*t1*t2*t3*t103*t85*t267*t93-0.004394773208821*
3465         t81*t1*t2*t3*t103*t128*t122*t93+12.0*t127*t284*t81*t84*t90-
3466         96.0*t125*t127*t133*t81*t90+3.0*t133*t267*t81*t83*t84+t477+
3467         t476+t475+t474+t473+t472+t471+t470+t469+t468+t467+t466+t465+
3468         t464+t457+t451+t450+t449+t448+t447+t446+t434+t433+t432+t430+
3469         t429+t428+t427+t426+t425+t424+t423+t422+t421+t420+t419+t418+
3470         t417+t415+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
3471         t395-1.754467019236561*t81*t277*t109*t86*t110*t90*t111-1.754467019236561*
3472         t81*t85*t109*t86*t110*t267*t111-3.508934038473122*t81*t128*
3473         t109*t86*t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*
3474         t81*t83*t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*
3475         t81*t83*t99+0.059255369107696*t81*t277*t86*t90*t93-0.004394773208821*
3476         t81*t1*t2*t3*t103*t128*t90*t93+0.059255369107696*t81*t85*t86*
3477         t267*t93+0.118510738215391*t81*t128*t86*t122*t93-0.004394773208821*
3478         t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
3479         6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+0.136986666666667*
3480         t1*t2*t3*t50*t54*t55*t53+t391+t390+t389+t388+t387+t386+t385+
3481         t384+t383+t382+t381+t380+t379+t378+0.001892851318519*t1*t2*
3482         t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
3483         t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-0.41096*t1*t2*t3*
3484         t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*t218*t219*
3485         t12-3.508934038473122*t81*t128*t109*t86*t110*t90*t111-3.508934038473122*
3486         t81*t85*t109*t86*t110*t122*t111;
3487     t479 = 1/pow(t62,7.0);
3488     t480 = -0.50689408*t21*t368*t68+0.027517426346667*t21*
3489         t368*t60*t67+0.02619324928*t29*t367*t67-3.789947392E-4*t21*
3490         t368*t66*t65-9.327416524800001E-4*t29*t367*t60*t65-1.5115886592E-4*
3491         t26*t366*t65+2.11042900992E-6*t21*t368*t64*t63+1.1274164858879998E-5*
3492         t29*t367*t66*t63+4.7682035712E-6*t26*t366*t60*t63-4.305592811520001E-9*
3493         t21*t368*t61*t138-5.817657212927999E-8*t29*t367*t64*t138-5.395268763648E-8*
3494         t26*t366*t66*t138+1.107152437248E-10*t29*t367*t61*t295+2.652312895488E-10*
3495         t26*t366*t64*t295-4.831210635264E-13*t26*t366*t61*t479;
3496     t481 = 0.03950357940513*t81*t85*t86*t297*t93;
3497     t482 = 0.03950357940513*t81*t128*t86*t185*t93;
3498     t483 = 0.03950357940513*t81*t187*t86*t122*t93;
3499     t484 = 0.03950357940513*t81*t298*t86*t90*t93;
3500     t485 = 2.0*t297*t81*t83*t84*t99;
3501     t486 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
3502         t111;
3503     t487 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
3504         t111;
3505     t488 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
3506         t111;
3507     t489 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
3508         t111;
3509     t490 = -0.00146492440294*t81*t1*t2*t3*t103*t85*t297*t93;
3510     t491 = t437-
3511         2.0*t258;
3512     t492 = t442+2.0*t258;
3513     t493 = 1.777777777777778*t120*t258*t263*t82-1.777777777777778*
3514         t117*t257*t258*t82+1.333333333333333*t121*t492+1.333333333333333*
3515         t118*t491-0.296296296296296*t184*t262*t441-0.296296296296296*
3516         t183*t256*t436+0.444444444444444*t184*t263*t266+0.444444444444444*
3517         t183*t257*t261;
3518     t494 = -0.00146492440294*t81*t1*t2*t3*t103*t128*t185*
3519         t93;
3520     t495 = -0.00146492440294*t81*t1*t2*t3*t103*t187*t122*
3521         t93;
3522     t496 = -0.00146492440294*t81*t1*t2*t3*t103*t298*t90*t93;
3523     t497 = -
3524         48.0*t125*t275;
3525     t498 = 24.0*t82*t84;
3526     t499 = t498+t497+t453-80.0*t127*t273;
3527     t500 = 2.0*t133*t297*t81*t83*t84;
3528     t501 = -12.0*t133*t275*t81*t84*t90;
3529     t502 = -8.0*t125*t297*t81*t83*t99;
3530     t503 = -24.0*t122*t275*t81*t84*t99;
3531     t504 = 48.0*t125*t275*t81*t90*t99;
3532     t505 = -24.0*t81*t82*t84*t90*t99;
3533     t506 = t70*(80.0*t127*t273*t81*t90*t99+8.0*t127*t297*
3534         t81*t84*t99+12.0*t185*t275*t81*t84*t99-4.0*t127*t267*t81*t84*
3535         t99+20.0*t185*t273*t81*t83*t99+40.0*t122*t273*t81*t83*t99-
3536         4.0*t125*t267*t81*t83*t99-32.0*t125*t127*t185*t81*t99+t81*
3537         t83*t84*t493*t99+0.019751789702565*t81*t499*t86*t90*t93-7.324622014701263E-4*
3538         t81*t1*t2*t3*t103*t277*t90*t93+9.76616268626835E-4*t81*t1*
3539         t2*t3*t240*t187*t90*t93+0.001953232537254*t81*t1*t2*t3*t240*
3540         t128*t90*t93+0.019751789702565*t81*t85*t86*t493*t93+0.03950357940513*
3541         t81*t128*t86*t297*t93+0.019751789702565*t81*t187*t86*t267*
3542         t93-7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t267*t93+0.019751789702565*
3543         t81*t277*t86*t185*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
3544         t85*t185*t93+0.03950357940513*t81*t298*t86*t122*t93+0.001953232537254*
3545         t81*t1*t2*t3*t240*t85*t122*t93-0.00146492440294*t81*t1*t2*
3546         t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
3547         t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
3548         t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
3549         t81*t83+t505+t504+t503+t502+t501+t500+t496+t495+t494+t490+
3550         t489+t488+t487+t486+t475+t469+t466+t464+t451+t434+t432+t430+
3551         t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+t402+
3552         t401+t400+t399+t398+t397+t395+t81*t83*t84*t185*t284-17.31575589937587*
3553         t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
3554         t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
3555         t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
3556         t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
3557         t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
3558         t90*t111-0.58482233974552*t81*t187*t252*t86*t110*t90*t111-
3559         1.169644679491041*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
3560         t81*t277*t109*t86*t110*t90*t111+0.043374323531126*t81*t1*t2*
3561         t3*t103*t187*t109*t110*t90*t111+0.086748647062252*t81*t1*t2*
3562         t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
3563         t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*t249*
3564         t185*t111-0.58482233974552*t81*t85*t252*t86*t110*t185*t111+
3565         0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+
3566         2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
3567         t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
3568         t109*t86*t110*t122*t111+0.086748647062252*t81*t1*t2*t3*t103*
3569         t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
3570         t125*t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t128*
3571         t90*t93-0.002929848805881*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
3572         t122*t133*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+
3573         t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+t341+t338+
3574         t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
3575         t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
3576         t109*t86*t110*t122*t111;
3577     t507 = 0.008731083093333*t21*t58*t215*t67*t173-3.1091388416E-4*
3578         t21*t58*t215*t60*t65*t173-1.5115886592E-4*t29*t58*t214*t65*
3579         t173+3.75805495296E-6*t21*t58*t215*t66*t63*t173+4.7682035712E-6*
3580         t29*t58*t214*t60*t63*t173-1.939219070976E-8*t21*t58*t215*t64*
3581         t138*t173-5.395268763648E-8*t29*t58*t214*t66*t138*t173+3.69050812416E-11*
3582         t21*t58*t215*t61*t295*t173+2.652312895488E-10*t29*t58*t214*
3583         t64*t295*t173-4.831210635264E-13*t29*t58*t214*t61*t479*t173;
3584     t508 = pow(grada,
3585         13.0);
3586     t509 = 1/pow(rhoa,20.66666666666667);
3587     t510 = 0.334552142222222*grada*t32*t215+0.68093152*t196*
3588         t30*t214-7.19528041528889*t195*t27*t213+8.705466944853335*
3589         t194*t24*t212-3.823753270613334*t192*t43*t211+0.711094818133334*
3590         t302*t209*t210-0.04763942912*t508*t361*t509;
3591     t511 = -0.040717326222222*grada*t40*t215+0.011151840995556*
3592         t196*t39*t214-3.44361228288E-4*t195*t38*t213+4.266393491683556E-6*
3593         t194*t37*t212-2.5835557938062223E-8*t192*t56*t211+7.61809207296E-11*
3594         t302*t223*t210-8.75001719466667E-14*t508*t376*t509;
3595     t512 = 0.21724032*grada*t215*t68-0.01179318272*grada*
3596         t215*t60*t67-0.01607313024*t196*t214*t67+1.6242631680000002E-4*
3597         grada*t215*t66*t65+5.7236419584E-4*t196*t214*t60*t65+1.1336914944E-4*
3598         t195*t213*t65-9.044695756799999E-7*grada*t215*t64*t63-6.918237527040001E-6*
3599         t196*t214*t66*t63-3.5761526784E-6*t195*t213*t60*t63+1.84525406208E-9*
3600         grada*t215*t61*t138+3.569926017024E-8*t196*t214*t64*t138+4.046451572736E-8*
3601         t195*t213*t66*t138-6.79388995584E-11*t196*t214*t61*t295-1.989234671616E-10*
3602         t195*t213*t64*t295+3.623407976448E-13*t195*t213*t61*t479;
3603     t513 = -
3604         0.00654831232*t21*gradb*t215*t67*t59+2.3318541312000003E-4*
3605         t21*gradb*t215*t60*t65*t59+1.1336914944E-4*t29*gradb*t214*
3606         t65*t59-2.81854121472E-6*t21*gradb*t215*t66*t63*t59-3.5761526784E-6*
3607         t29*gradb*t214*t60*t63*t59+1.454414303232E-8*t21*gradb*t215*
3608         t64*t138*t59+4.046451572736E-8*t29*gradb*t214*t66*t138*t59-
3609         2.767881093120001E-11*t21*gradb*t215*t61*t295*t59-1.989234671616E-10*
3610         t29*gradb*t214*t64*t295*t59+3.623407976448E-13*t29*gradb*t214*
3611         t61*t479*t59;
3612     t514 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
3613         t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-0.296296296296296*
3614         t120*t329*t441-0.296296296296296*t117*t327*t436+0.444444444444444*
3615         t120*t263*t330+0.444444444444444*t117*t257*t328-2.666666666666667*
3616         t121*t258+2.666666666666667*t118*t258;
3617     t515 = t497+t455+t453+80.0*t127*t273;
3618     t516 = -24.0*t185*t275*t81*t84*t99;
3619     t517 = t70*(-80.0*t127*t273*t81*t90*t99+4.0*t127*t331*
3620         t81*t84*t99-8.0*t127*t297*t81*t84*t99+12.0*t122*t275*t81*t84*
3621         t99-4.0*t125*t331*t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*
3622         t122*t273*t81*t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*
3623         t84*t514*t99+0.019751789702565*t81*t515*t86*t90*t93-7.324622014701263E-4*
3624         t81*t1*t2*t3*t103*t336*t90*t93+0.001953232537254*t81*t1*t2*
3625         t3*t240*t187*t90*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
3626         t128*t90*t93+0.019751789702565*t81*t85*t86*t514*t93+0.019751789702565*
3627         t81*t128*t86*t331*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
3628         t85*t331*t93+0.03950357940513*t81*t187*t86*t297*t93+0.03950357940513*
3629         t81*t298*t86*t185*t93+0.001953232537254*t81*t1*t2*t3*t240*
3630         t85*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t185*
3631         t93+0.019751789702565*t81*t336*t86*t122*t93+9.76616268626835E-4*
3632         t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
3633         t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
3634         t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
3635         t133*t81*t83+t516+t504+t502+t501+t500+t496+t495+t494+t490+
3636         t489+t488+t487+t486+t477+t475+t469+t466+t464+t451+t434+t432+
3637         t430+t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+
3638         t402+t401+t400+t399+t398+t397+t395+t81*t83*t84*t122*t284-34.63151179875173*
3639         t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
3640         t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
3641         t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
3642         t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
3643         t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
3644         t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
3645         0.58482233974552*t81*t128*t252*t86*t110*t90*t111-0.58482233974552*
3646         t81*t336*t109*t86*t110*t90*t111+0.086748647062252*t81*t1*t2*
3647         t3*t103*t187*t109*t110*t90*t111+0.043374323531126*t81*t1*t2*
3648         t3*t103*t128*t109*t110*t90*t111-0.58482233974552*t81*t85*t109*
3649         t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*t249*
3650         t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*t111-
3651         1.169644679491041*t81*t187*t109*t86*t110*t185*t111+0.086748647062252*
3652         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
3653         t81*t85*t244*t86*t249*t122*t111-0.58482233974552*t81*t85*t252*
3654         t86*t110*t122*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*
3655         t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*t185*
3656         t81*t83*t99-0.002929848805881*t81*t1*t2*t3*t103*t187*t90*t93-
3657         0.002929848805881*t81*t1*t2*t3*t103*t85*t185*t93+4.0*t133*
3658         t185*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+t387+
3659         t386+t385+t384+t383+t382+t381+t380+t379+t378+t342+t340+t339+
3660         t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
3661         t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
3662         t109*t86*t110*t185*t111;
3663     t518 = 0.008731083093333*t21*t58*t48*t67*t315-3.1091388416E-4*
3664         t21*t58*t48*t60*t65*t315+3.75805495296E-6*t21*t58*t48*t66*
3665         t63*t315-1.939219070976E-8*t21*t58*t48*t64*t138*t315+3.69050812416E-11*
3666         t21*t58*t48*t61*t295*t315-1.5115886592E-4*t21*t156*t48*t65*
3667         t314+4.7682035712E-6*t21*t156*t48*t60*t63*t314-5.395268763648E-8*
3668         t21*t156*t48*t66*t138*t314+2.652312895488E-10*t21*t156*t48*
3669         t64*t295*t314-4.831210635264E-13*t21*t156*t48*t61*t479*t314;
3670     t519 = -
3671         0.00476240896*grada*t58*t48*t67*t173+1.6958939136E-4*grada*
3672         t58*t48*t60*t65*t173+1.1336914944E-4*t196*t58*t47*t65*t173-
3673         2.04984815616E-6*grada*t58*t48*t66*t63*t173-3.5761526784E-6*
3674         t196*t58*t47*t60*t63*t173+1.057755856896E-8*grada*t58*t48*
3675         t64*t138*t173+4.046451572736E-8*t196*t58*t47*t66*t138*t173-
3676         2.01300443136E-11*grada*t58*t48*t61*t295*t173-1.989234671616E-10*
3677         t196*t58*t47*t64*t295*t173+3.623407976448E-13*t196*t58*t47*
3678         t61*t479*t173;
3679     t520 = -0.00476240896*t21*gradb*t48*t67*t173+1.6958939136E-4*
3680         t21*gradb*t48*t60*t65*t173-2.04984815616E-6*t21*gradb*t48*
3681         t66*t63*t173+1.057755856896E-8*t21*gradb*t48*t64*t138*t173-
3682         2.01300443136E-11*t21*gradb*t48*t61*t295*t173+1.1336914944E-4*
3683         t21*t204*t48*t65*t172-3.5761526784E-6*t21*t204*t48*t60*t63*
3684         t172+4.046451572736E-8*t21*t204*t48*t66*t138*t172-1.989234671616E-10*
3685         t21*t204*t48*t64*t295*t172+3.623407976448E-13*t21*t204*t48*
3686         t61*t479*t172;
3687     t521 = 1/pow(rhoa,19.66666666666667);
3688     t522 = -0.091241493333333*t32*t48-0.309100394666667*t21*
3689         t30*t47+4.021271133866668*t29*t27*t46-5.41187753984*t26*t24*
3690         t45+2.56724566016*t20*t43*t44-0.5072683008*t42*t209*t303+0.03572957184*
3691         t208*t361*t521;
3692     t523 = 0.011104725333333*t40*t48-0.005315180714667*t21*
3693         t39*t47+1.9853834171733336E-4*t29*t38*t46-2.723674027349334E-6*
3694         t26*t37*t45+1.7639617768106667E-8*t20*t56*t44-5.47431077205333E-11*
3695         t42*t223*t303+6.562512896E-14*t208*t376*t521;
3696     t524 = -0.05924736*t48*t68+0.00321632256*t48*t60*t67+
3697         0.0089295168*t21*t47*t67-4.42980864E-5*t48*t66*t65-3.179801088E-4*
3698         t21*t47*t60*t65-8.502686208E-5*t29*t46*t65+2.4667352064E-7*
3699         t48*t64*t63+3.8434652928E-6*t21*t47*t66*t63+2.6821145088E-6*
3700         t29*t46*t60*t63-5.0325110784E-10*t48*t61*t138-1.98329223168E-8*
3701         t21*t47*t64*t138-3.034838679552E-8*t29*t46*t66*t138+3.7743833088E-11*
3702         t21*t47*t61*t295+1.491926003712E-10*t29*t46*t64*t295-2.717555982336E-13*
3703         t29*t46*t61*t479;
3704     t525 = 0.00357180672*grada*gradb*t48*t67*t59-1.2719204352E-4*
3705         grada*gradb*t48*t60*t65*t59-8.502686208E-5*t196*gradb*t47*
3706         t65*t59+1.53738611712E-6*grada*gradb*t48*t66*t63*t59+2.6821145088E-6*
3707         t196*gradb*t47*t60*t63*t59-7.93316892672E-9*grada*gradb*t48*
3708         t64*t138*t59-3.034838679552E-8*t196*gradb*t47*t66*t138*t59+
3709         1.50975332352E-11*grada*gradb*t48*t61*t295*t59+1.491926003712E-10*
3710         t196*gradb*t47*t64*t295*t59-2.717555982336E-13*t196*gradb*
3711         t47*t61*t479*t59;
3712     t526 = 0.00178590336*t21*t48*t67*t59-6.359602176E-5*t21*
3713         t48*t60*t65*t59+7.6869305856E-7*t21*t48*t66*t63*t59-3.96658446336E-9*
3714         t21*t48*t64*t138*t59+7.5487666176E-12*t21*t48*t61*t295*t59-
3715         8.502686208E-5*t21*t58*t48*t65*t158+2.6821145088E-6*t21*t58*
3716         t48*t60*t63*t158-3.034838679552E-8*t21*t58*t48*t66*t138*t158+
3717         1.491926003712E-10*t21*t58*t48*t64*t295*t158-2.717555982336E-13*
3718         t21*t58*t48*t61*t479*t158;
3719     t527 = pow(gradb,14.0);
3720     t528 = 1/pow(t150,7.0);
3721     t529 = 1/pow(rhob,21.66666666666667);
3722     t530 = 1/pow(rhob,19.0);
3723     t531 = 1/pow(rhob,16.33333333333333);
3724     t532 = 1/pow(rhob,13.66666666666667);
3725     t533 = 1/pow(rhob,11.0);
3726     t534 = 1/pow(rhob,8.333333333333334);
3727     t535 = 1/pow(rhob,5.666666666666667);
3728     t536 = -0.780621665185185*t58*t159*t535-1.281829667555556*
3729         t156*t157*t534+11.94227789558519*t153*t154*t533-13.43137039473778*
3730         t149*t151*t532+5.571235366684446*t167*t168*t531-0.987825948444445*
3731         t308*t309*t530+0.063519238826667*t527*t528*t529;
3732     t537 = 1/pow(t145,3.0);
3733     t538 = pow(t179,3.0);
3734     t539 = 1/pow(t144,6.0);
3735     t540 = 1/pow(t144,5.0);
3736     t541 = 1/pow(rhob,3.333333333333333);
3737     t542 = -5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
3738         3.1558125*t8*t9/pow(t141,7.0)-6.427244444444445*t1*t2*t3*t541-
3739         1.852355555555556*t4*t5*t6*t173;
3740     t543 = 1/pow(t161,7.0);
3741     t544 = 0.095007094518519*t58*t165*t535-0.020363607172741*
3742         t156*t164*t534+5.592834182257778E-4*t153*t163*t533-6.454717686973631E-6*
3743         t149*t162*t532+3.716270447122964E-8*t167*t181*t531-1.052204014705778E-10*
3744         t308*t323*t530+1.166668959288889E-13*t527*t543*t529;
3745     t545 = -51.9472676981276*t81*t85*t244*t86*t245*t185*t246;
3746     t546 = -
3747         51.9472676981276*t81*t187*t244*t86*t245*t90*t246;
3748     t547 = 3.508934038473122*t81*t85*t244*t86*t249*t185*t111;
3749     t548 = 0.130122970593378*
3750         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111;
3751     t549 = -1.754467019236561*t81*t85*t252*t86*t110*t185*
3752         t111;
3753     t550 = 3.508934038473122*t81*t187*t244*t86*t249*t90*t111;
3754     t551 = 0.130122970593378*
3755         t81*t1*t2*t3*t103*t187*t109*t110*t90*t111;
3756     t552 = -1.754467019236561*t81*t187*t252*t86*t110*t90*
3757         t111;
3758     t553 = pow(t183,3.0);
3759     t554 = t443+t437;
3760     t555 = pow(t184,3.0);
3761     t556 = t438+t442;
3762     t557 = 1.333333333333333*t121*t556-0.296296296296296*
3763         t441*t555+1.333333333333333*t118*t554-0.296296296296296*t436*
3764         t553+1.333333333333333*t184*t263*t330+1.333333333333333*t183*
3765         t257*t328;
3766     t558 = 0.019751789702565*t81*t85*t86*t557*t93;
3767     t559 = 0.059255369107696*t81*t187*t86*t331*t93;
3768     t560 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t185*t93;
3769     t561 = 0.059255369107696*
3770         t81*t336*t86*t185*t93;
3771     t562 = 0.002929848805881*t81*t1*t2*t3*t240*t187*t90*t93;
3772     t563 = t498+
3773         t454+t453+240.0*t127*t273;
3774     t564 = 0.019751789702565*t81*t563*t86*t90*t93;
3775     t565 = 3.0*t185*t284*t81*t83*t84;
3776     t566 = -24.0*t125*t133*t185*t81*t83;
3777     t567 = -24.0*t127*t133*t185*t81*t84;
3778     t568 = t81*t83*t84*t557*t99;
3779     t569 = 60.0*t185*t273*t81*t83*t99;
3780     t570 = 96.0*t125*t127*t185*t81*t99;
3781     t571 = 36.0*t185*t275*t81*t84*t99;
3782     t572 = 192.9880990672242*t317*t538*t147*t540*rhob-2069.133687865597*
3783         t537*t538*t147*t539*rhob+6.0*t175*t322*t179*t147*t320*rhob-
3784         6.0*t175*t538*t147*t319*rhob-96.4940495336121*t317*t322*t179*
3785         t147*t319*rhob-1.0*t175*t542*t147*t180*rhob+t70*(-240.0*t127*
3786         t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99-12.0*t125*t331*
3787         t81*t83*t99-0.00219738660441*t81*t1*t2*t3*t103*t336*t90*t93-
3788         0.00219738660441*t81*t1*t2*t3*t103*t85*t331*t93-0.004394773208821*
3789         t81*t1*t2*t3*t103*t187*t185*t93-12.0*t127*t284*t81*t84*t90+
3790         96.0*t125*t127*t133*t81*t90+3.0*t133*t331*t81*t83*t84+t571+
3791         t570+t569+t568+t567+t566+t565+t564+t562+t561+t560+t559+t558+
3792         t552+t551+t550+t549+t548+t547+t546+t545+t505+t476+t475+t470+
3793         t469+t466+t464+t451+t434+t432+t430+t428+t426+t425+t424+t419+
3794         t418+t417+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
3795         t395-1.754467019236561*t81*t336*t109*t86*t110*t90*t111-1.754467019236561*
3796         t81*t85*t109*t86*t110*t331*t111-3.508934038473122*t81*t187*
3797         t109*t86*t110*t185*t111)+96.0*t125*t127*t81*t90*t99+3.0*t331*
3798         t81*t83*t84*t99-24.0*t127*t185*t81*t84*t99-24.0*t125*t185*
3799         t81*t83*t99+0.059255369107696*t81*t336*t86*t90*t93-0.004394773208821*
3800         t81*t1*t2*t3*t103*t187*t90*t93+0.059255369107696*t81*t85*t86*
3801         t331*t93+0.118510738215391*t81*t187*t86*t185*t93-0.004394773208821*
3802         t81*t1*t2*t3*t103*t85*t185*t93-24.0*t127*t133*t81*t84*t90+
3803         6.0*t133*t185*t81*t83*t84+t391+t390+t389+t388+t387+t386+t385+
3804         t384+t383+t382+t381+t380+t379+t378+0.001892851318519*t1*t2*
3805         t3*t146*t321+6.0*t175*t318*t147*t320-96.4940495336121*t317*
3806         t318*t147*t319-3.0*t175*t322*t147*t180+0.136986666666667*t1*
3807         t2*t3*t175*t179*t180*t178-0.41096*t1*t2*t3*t175*t318*t320*
3808         t143+6.60919909938887*t1*t2*t3*t317*t318*t319*t143+0.20548*
3809         t1*t2*t3*t175*t322*t180*t143-3.508934038473122*t81*t187*t109*
3810         t86*t110*t90*t111-3.508934038473122*t81*t85*t109*t86*t110*
3811         t185*t111;
3812     t573 = -0.50689408*t58*t68*t535+0.027517426346667*t58*
3813         t60*t67*t535-3.789947392E-4*t58*t66*t65*t535+2.11042900992E-6*
3814         t58*t64*t63*t535-4.305592811520001E-9*t58*t61*t138*t535+0.02619324928*
3815         t156*t67*t534-9.327416524800001E-4*t156*t60*t65*t534+1.1274164858879998E-5*
3816         t156*t66*t63*t534-5.817657212927999E-8*t156*t64*t138*t534+
3817         1.107152437248E-10*t156*t61*t295*t534-1.5115886592E-4*t153*
3818         t65*t533+4.7682035712E-6*t153*t60*t63*t533-5.395268763648E-8*
3819         t153*t66*t138*t533+2.652312895488E-10*t153*t64*t295*t533-4.831210635264E-13*
3820         t153*t61*t479*t533;
3821     t574 = -0.00654831232*grada*t58*t22*t67*t315+2.3318541312000003E-4*
3822         grada*t58*t22*t60*t65*t315-2.81854121472E-6*grada*t58*t22*
3823         t66*t63*t315+1.454414303232E-8*grada*t58*t22*t64*t138*t315-
3824         2.767881093120001E-11*grada*t58*t22*t61*t295*t315+1.1336914944E-4*
3825         grada*t156*t22*t65*t314-3.5761526784E-6*grada*t156*t22*t60*
3826         t63*t314+4.046451572736E-8*grada*t156*t22*t66*t138*t314-1.989234671616E-10*
3827         grada*t156*t22*t64*t295*t314+3.623407976448E-13*grada*t156*
3828         t22*t61*t479*t314;
3829     t575 = pow(gradb,13.0);
3830     t576 = 1/pow(rhob,20.66666666666667);
3831     t577 = 0.334552142222222*gradb*t159*t315+0.68093152*t204*
3832         t157*t314-7.19528041528889*t203*t154*t313+8.705466944853335*
3833         t202*t151*t312-3.823753270613334*t200*t168*t311+0.711094818133334*
3834         t346*t309*t310-0.04763942912*t575*t528*t576;
3835     t578 = -0.040717326222222*gradb*t165*t315+0.011151840995556*
3836         t204*t164*t314-3.44361228288E-4*t203*t163*t313+4.266393491683556E-6*
3837         t202*t162*t312-2.5835557938062223E-8*t200*t181*t311+7.61809207296E-11*
3838         t346*t323*t310-8.75001719466667E-14*t575*t543*t576;
3839     t579 = 0.21724032*gradb*t68*t315-0.01179318272*gradb*
3840         t60*t67*t315+1.6242631680000002E-4*gradb*t66*t65*t315-9.044695756799999E-7*
3841         gradb*t64*t63*t315+1.84525406208E-9*gradb*t61*t138*t315-0.01607313024*
3842         t204*t67*t314+5.7236419584E-4*t204*t60*t65*t314-6.918237527040001E-6*
3843         t204*t66*t63*t314+3.569926017024E-8*t204*t64*t138*t314-6.79388995584E-11*
3844         t204*t61*t295*t314+1.1336914944E-4*t203*t65*t313-3.5761526784E-6*
3845         t203*t60*t63*t313+4.046451572736E-8*t203*t66*t138*t313-1.989234671616E-10*
3846         t203*t64*t295*t313+3.623407976448E-13*t203*t61*t479*t313;
3847     t580 = 0.00178590336*
3848         t58*t22*t67*t173-6.359602176E-5*t58*t22*t60*t65*t173-8.502686208E-5*
3849         t21*t58*t31*t65*t173+7.6869305856E-7*t58*t22*t66*t63*t173+
3850         2.6821145088E-6*t21*t58*t31*t60*t63*t173-3.96658446336E-9*
3851         t58*t22*t64*t138*t173-3.034838679552E-8*t21*t58*t31*t66*t138*
3852         t173+7.5487666176E-12*t58*t22*t61*t295*t173+1.491926003712E-10*
3853         t21*t58*t31*t64*t295*t173-2.717555982336E-13*t21*t58*t31*t61*
3854         t479*t173;
3855     t581 = 0.00357180672*grada*gradb*t22*t67*t173-1.2719204352E-4*
3856         grada*gradb*t22*t60*t65*t173+1.53738611712E-6*grada*gradb*
3857         t22*t66*t63*t173-7.93316892672E-9*grada*gradb*t22*t64*t138*
3858         t173+1.50975332352E-11*grada*gradb*t22*t61*t295*t173-8.502686208E-5*
3859         grada*t204*t22*t65*t172+2.6821145088E-6*grada*t204*t22*t60*
3860         t63*t172-3.034838679552E-8*grada*t204*t22*t66*t138*t172+1.491926003712E-10*
3861         grada*t204*t22*t64*t295*t172-2.717555982336E-13*grada*t204*
3862         t22*t61*t479*t172;
3863     t582 = 1/pow(rhob,19.66666666666667);
3864     t583 = -0.091241493333333*t159*t173-0.309100394666667*
3865         t58*t157*t172+4.021271133866668*t156*t154*t171-5.41187753984*
3866         t153*t151*t170+2.56724566016*t149*t168*t169-0.5072683008*t167*
3867         t309*t347+0.03572957184*t308*t528*t582;
3868     t584 = 0.011104725333333*t165*t173-0.005315180714667*
3869         t58*t164*t172+1.9853834171733336E-4*t156*t163*t171-2.723674027349334E-6*
3870         t153*t162*t170+1.7639617768106667E-8*t149*t181*t169-5.47431077205333E-11*
3871         t167*t323*t347+6.562512896E-14*t308*t543*t582;
3872     t585 = -0.05924736*t68*t173+0.00321632256*t60*t67*t173-
3873         4.42980864E-5*t66*t65*t173+2.4667352064E-7*t64*t63*t173-5.0325110784E-10*
3874         t61*t138*t173+0.0089295168*t58*t67*t172-3.179801088E-4*t58*
3875         t60*t65*t172+3.8434652928E-6*t58*t66*t63*t172-1.98329223168E-8*
3876         t58*t64*t138*t172+3.7743833088E-11*t58*t61*t295*t172-8.502686208E-5*
3877         t156*t65*t171+2.6821145088E-6*t156*t60*t63*t171-3.034838679552E-8*
3878         t156*t66*t138*t171+1.491926003712E-10*t156*t64*t295*t171-2.717555982336E-13*
3879         t156*t61*t479*t171;
3880     t586 = 1/pow(rhoa,18.66666666666667);
3881     t587 = 0.109069536*grada*t30*t31-2.0270030016*t196*t27*
3882         t28+3.192523668480002*t195*t24*t25-1.678968913920001*t194*
3883         t43*t193+0.3581202432*t192*t209*t351-0.02679717888*t302*t361*
3884         t586;
3885     t588 = 0.002009849856*grada*t39*t31-1.0453993267200001E-4*
3886         t196*t38*t28+1.6651581112320001E-6*t195*t37*t25-1.179208237056E-8*
3887         t194*t56*t193+3.90065455104E-11*t192*t223*t351-4.921884672E-14*
3888         t302*t376*t586;
3889     t589 = -0.00401828256*grada*t31*t67+1.4309104896E-4*grada*
3890         t31*t60*t65+6.377014656E-5*t196*t28*t65-1.7295593817600002E-6*
3891         grada*t31*t66*t63-2.0115858816E-6*t196*t28*t60*t63+8.92481504256E-9*
3892         grada*t31*t64*t138+2.276129009664E-8*t196*t28*t66*t138-1.69847248896E-11*
3893         grada*t31*t61*t295-1.118944502784E-10*t196*t28*t64*t295+2.038166986752E-13*
3894         t196*t28*t61*t479;
3895     t590 = -0.00133942752*gradb*t22*t67*t59+4.769701632E-5*
3896         gradb*t22*t60*t65*t59+6.377014656E-5*t21*gradb*t31*t65*t59-
3897         5.7651979392E-7*gradb*t22*t66*t63*t59-2.0115858816E-6*t21*
3898         gradb*t31*t60*t63*t59+2.97493834752E-9*gradb*t22*t64*t138*
3899         t59+2.276129009664E-8*t21*gradb*t31*t66*t138*t59-5.6615749632E-12*
3900         gradb*t22*t61*t295*t59-1.118944502784E-10*t21*gradb*t31*t64*
3901         t295*t59+2.038166986752E-13*t21*gradb*t31*t61*t479*t59;
3902     t591 = -0.00133942752*grada*t22*t67*t59+4.769701632E-5*
3903         grada*t22*t60*t65*t59-5.7651979392E-7*grada*t22*t66*t63*t59+
3904         2.97493834752E-9*grada*t22*t64*t138*t59-5.6615749632E-12*grada*
3905         t22*t61*t295*t59+6.377014656E-5*grada*t58*t22*t65*t158-2.0115858816E-6*
3906         grada*t58*t22*t60*t63*t158+2.276129009664E-8*grada*t58*t22*
3907         t66*t138*t158-1.118944502784E-10*grada*t58*t22*t64*t295*t158+
3908         2.038166986752E-13*grada*t58*t22*t61*t479*t158;
3909     t592 = 1/pow(rhob,18.66666666666667);
3910     t593 = 0.109069536*gradb*t157*t158-2.0270030016*t204*
3911         t154*t155+3.192523668480002*t203*t151*t152-1.678968913920001*
3912         t202*t168*t201+0.3581202432*t200*t309*t356-0.02679717888*t346*
3913         t528*t592;
3914     t594 = 0.002009849856*gradb*t164*t158-1.0453993267200001E-4*
3915         t204*t163*t155+1.6651581112320001E-6*t203*t162*t152-1.179208237056E-8*
3916         t202*t181*t201+3.90065455104E-11*t200*t323*t356-4.921884672E-14*
3917         t346*t543*t592;
3918     t595 = -0.00401828256*gradb*t67*t158+1.4309104896E-4*
3919         gradb*t60*t65*t158-1.7295593817600002E-6*gradb*t66*t63*t158+
3920         8.92481504256E-9*gradb*t64*t138*t158-1.69847248896E-11*gradb*
3921         t61*t295*t158+6.377014656E-5*t204*t65*t155-2.0115858816E-6*
3922         t204*t60*t63*t155+2.276129009664E-8*t204*t66*t138*t155-1.118944502784E-10*
3923         t204*t64*t295*t155+2.038166986752E-13*t204*t61*t479*t155;
3924     t596 = pow(grada,
3925         16.0);
3926     t597 = 1/pow(t23,8.0);
3927     t598 = 1/pow(rhoa,25.33333333333333);
3928     t599 = 1/pow(rhoa,22.66666666666667);
3929     t600 = 1/pow(rhoa,20.0);
3930     t601 = 1/pow(rhoa,17.33333333333333);
3931     t602 = 1/pow(rhoa,14.66666666666667);
3932     t603 = 1/pow(rhoa,12.0);
3933     t604 = 1/pow(rhoa,9.333333333333334);
3934     t605 = 1/pow(rhoa,6.666666666666667);
3935     t606 = 1/pow(t18,4.0);
3936     t607 = pow(t54,4.0);
3937     t608 = 1/pow(t17,8.0);
3938     t609 = 1/pow(t17,7.0);
3939     t610 = pow(t222,2.0);
3940     t611 = 21.42414814814815*t1*t2*t3/pow(rhoa,4.333333333333333)+
3941         18.83609421296296*t14*t15*t16/pow(rhoa,4.166666666666667)+
3942         11.04534375*t8*t9/pow(t10,9.0)+6.79197037037037*t4*t5*t6*t215;
3943     t612 = 1/
3944         pow(t36,8.0);
3945     t613 = 2069.000588228246*t392*t72*t393*t394;
3946     t614 = -385.9637837316264*t392*t72*t396*t233;
3947     t615 = -13.74674343057476*t1*t2*t3*t103*t231*t232*t233;
3948     t616 = 192.9818918658132*
3949         t242*t105*t72*t232*t233;
3950     t617 = 24.0*t392*t72*t232*t107;
3951     t618 = 1.7096*t1*t2*t3*t103*t231*t235*t107;
3952     t619 = -24.0*t242*t105*t72*t235*t107;
3953     t620 = -0.8548*t1*t2*t3*t103*t242*t106*t107;
3954     t621 = 1.139733333333333*t1*t2*t3*t240*t105*t106*t107;
3955     t622 = 4.0*
3956         t409*t72*t106*t107;
3957     t623 = -4101.558808403119*t81*t85*t411*t86*t412*t90*t413;
3958     t624 = 415.5781415850208*
3959         t81*t85*t411*t86*t416*t90*t246;
3960     t625 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t244*t245*
3961         t90*t246;
3962     t626 = -207.7890707925104*t81*t85*t252*t109*t86*t245*
3963         t90*t246;
3964     t627 = -14.03573615389249*t81*t85*t411*t86*t245*t90*t111;
3965     t628 = -
3966         0.520491882373513*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
3967     t629 = 14.03573615389249*
3968         t81*t85*t252*t109*t86*t249*t90*t111;
3969     t630 = 0.260245941186757*t81*t1*t2*t3*t103*t85*t252*t110*
3970         t90*t111;
3971     t631 = -0.346994588249009*t81*t1*t2*t3*t240*t85*t109*
3972         t110*t90*t111;
3973     t632 = -2.339289358982082*t81*t85*t431*t86*t110*t90*t111;
3974     t633 = 0.055121809659259*
3975         t1*t2*t3*t407*t79;
3976     t634 = -0.00911508517385*t81*t1*t2*t3*t407*t85*t90*t93;
3977     t635 = 4.0*
3978         t463*t81*t83*t84*t90;
3979     t636 = -48.0*t125*t284*t81*t83*t90;
3980     t637 = 240.0*t133*t273*t81*t83*t90;
3981     t638 = 144.0*t133*t275*t81*t84*t90;
3982     t639 = -480.0*t452*t81*t83*t90*t99;
3983     t640 = -576.0*t125*t275*t81*t90*t99;
3984     t641 = pow(t105,4.0);
3985     t642 = 1/pow(t77,8.0);
3986     t643 = 1/pow(t78,4.0);
3987     t644 = 24954.97798673546*t641*t72*t642*t643;
3988     t645 = 1/pow(t77,7.0);
3989     t646 = -6207.001764684737*t641*t72*t645*t394;
3990     t647 = -147.3818085681254*t1*t2*t3*t103*t392*t393*t394;
3991     t648 = 3103.500882342369*
3992         t242*t231*t72*t393*t394;
3993     t649 = 578.9456755974396*t641*t72*t393*t233;
3994     t650 = 27.49348686114952*t1*t2*t3*t103*t392*t396*t233;
3995     t651 = -
3996         578.9456755974396*t242*t231*t72*t396*t233;
3997     t652 = -13.74674343057476*t1*t2*t3*t103*t242*t105*t232*
3998         t233;
3999     t653 = 9.164495620383173*t1*t2*t3*t240*t231*t232*t233;
4000     t654 = pow(t242,
4001         2.0);
4002     t655 = 48.2454729664533*t654*t72*t232*t233;
4003     t656 = 64.3272972886044*t409*t105*t72*t232*t233;
4004     t657 = -24.0*t641*t72*t396*t107;
4005     t658 = -1.7096*t1*t2*t3*t103*t392*t232*t107;
4006     t659 = 36.0*t242*t231*t72*t232*t107;
4007     t660 = 1.7096*t1*t2*t3*t103*t242*t105*t235*t107;
4008     t661 = -1.139733333333333*t1*t2*t3*t240*t231*t235*t107;
4009     t662 = -
4010         6.0*t654*t72*t235*t107;
4011     t663 = -8.0*t409*t105*t72*t235*t107;
4012     t664 = -0.284933333333333*t1*t2*t3*t103*t409*t106*t107;
4013     t665 = 0.569866666666667*
4014         t1*t2*t3*t240*t242*t106*t107;
4015     t666 = -0.886459259259259*t1*t2*t3*t407*t105*t106*t107;
4016     t667 = 1/
4017         pow(t70,4.666666666666667);
4018     t668 = 1/pow(t74,9.0);
4019     t669 = 1/pow(t70,4.333333333333333);
4020     t670 = 1/pow(t70,4.166666666666667);
4021     t671 = 10.13346087962963*t14*t15*t16*t670+12.40158024691358*
4022         t1*t2*t3*t669+5.37534375*t8*t9*t668+5.355397530864196*t4*t5*
4023         t6*t667;
4024     t672 = 1.0*t671*t72*t106*t107;
4025     t673 = pow(t109,4.0);
4026     t674 = -91080.98259910994*t673*t81*t85*t86*t90/(pow(t91,
4027         8.0)*pow(t92,4.0));
4028     t675 = 12304.67642520936*t413*t673*t81*t85*t86*t90/pow(t91,
4029         7.0);
4030     t676 = 152.0994724782823*t81*t1*t2*t3*t103*t85*t411*t412*
4031         t90*t413;
4032     t677 = -6152.338212604678*t81*t85*t252*t244*t86*t412*
4033         t90*t413;
4034     t678 = -623.3672123775311*t81*t85*t673*t86*t412*t90*t246;
4035     t679 = -
4036         15.41102275044452*t81*t1*t2*t3*t103*t85*t411*t416*t90*t246;
4037     t680 = 623.3672123775311*
4038         t81*t85*t252*t244*t86*t416*t90*t246;
4039     t681 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t252*t109*
4040         t245*t90*t246;
4041     t682 = -5.137007583481506*t81*t1*t2*t3*t240*t85*t244*
4042         t245*t90*t246;
4043     t683 = pow(t252,2.0);
4044     t684 = -51.9472676981276*t81*t85*t683*t86*t245*t90*t246;
4045     t685 = -
4046         69.26302359750346*t81*t85*t431*t109*t86*t245*t90*t246;
4047     t686 = 14.03573615389249*t81*t85*t673*t86*t416*t90*t111;
4048     t687 = 0.520491882373513*
4049         t81*t1*t2*t3*t103*t85*t411*t245*t90*t111;
4050     t688 = -21.05360423083874*t81*t85*t252*t244*t86*t245*
4051         t90*t111;
4052     t689 = -0.520491882373513*t81*t1*t2*t3*t103*t85*t252*
4053         t109*t249*t90*t111;
4054     t690 = 0.346994588249009*t81*t1*t2*t3*t240*t85*t244*t249*
4055         t90*t111;
4056     t691 = 3.508934038473122*t81*t85*t683*t86*t249*t90*t111;
4057     t692 = 4.678578717964164*
4058         t81*t85*t431*t109*t86*t249*t90*t111;
4059     t693 = 0.086748647062252*t81*t1*t2*t3*t103*t85*t431*t110*
4060         t90*t111;
4061     t694 = -0.173497294124504*t81*t1*t2*t3*t240*t85*t252*
4062         t110*t90*t111;
4063     t695 = 0.269884679749229*t81*t1*t2*t3*t407*t85*t109*t110*
4064         t90*t111;
4065     t696 = -0.58482233974552*t81*(13.81732484567901*t14*t15*
4066         t16*t670+12.5242962962963*t1*t2*t3*t669+2.888353125*t8*t9*
4067         t668+5.396355555555555*t4*t5*t6*t667)*t85*t86*t110*t90*t111;
4068     t697 = -
4069         0.045934841382716*t1*t2*t3*t669*t79;
4070     t698 = 1/pow(t88,2.666666666666667);
4071     t699 = -24.0*t125*t82;
4072     t700 = 24.0*t84;
4073     t701 = 1/pow(t89,2.666666666666667);
4074     t702 = 24.0*t125*t82;
4075     t703 = -24.0*t84;
4076     t704 = 1.333333333333333*t121*(t703+t702)+0.493827160493827*
4077         pow(t120,4.0)*t701+1.333333333333333*t118*(t700+t699)+0.493827160493827*
4078         pow(t117,4.0)*t698+1.777777777777778*t120*t263*t444-1.777777777777778*
4079         t262*t266*t441+1.777777777777778*t117*t257*t439-1.777777777777778*
4080         t256*t261*t436+1.333333333333333*t263*pow(t266,2.0)+1.333333333333333*
4081         t257*pow(t261,2.0);
4082     t705 = 0.007595904311542*t81*t1*t2*t3*t669*t85*t90*t93;
4083     t706 = 1/
4084         pow(t70,8.0);
4085     t707 = -840.0*t706*t83;
4086     t708 = -1440.0*t273*t275;
4087     t709 = pow(t130,4.0);
4088     t710 = pow(t283,2.0);
4089     t711 = t81*t83*t84*t90*(-0.022083265382716*t1*t2*t3*t669*
4090         t98+199659.0885685683*t709*t95/(pow(t96,8.0)*pow(t97,4.0))-
4091         24829.60425438716*t460*t709*t95/pow(t96,7.0)-6.0*t132*t282*
4092         t710*t95-24.0*t132*t461*t709*t95-8.0*t130*t132*t282*t462*t95+
4093         36.0*t132*t279*t280*t283*t95+0.045934841382716*t1*t2*t3*t669*
4094         t79-24954.97798673546*t641*t72*t642*t643+12414.80212719358*
4095         t283*t279*t95*t459*t460-566.8874535768302*t1*t2*t3*t103*t458*
4096         t459*t460+6207.001764684737*t641*t72*t645*t394-3103.500882342369*
4097         t242*t231*t72*t393*t394+147.3818085681254*t1*t2*t3*t103*t392*
4098         t393*t394-1157.928594403345*t283*t279*t95*t461*t281+52.87359279511096*
4099         t1*t2*t3*t103*t458*t461*t281+1157.928594403345*t709*t95*t459*
4100         t281+96.4940495336121*t710*t95*t280*t281+128.6587327114828*
4101         t462*t130*t95*t280*t281+17.62453093170365*t1*t2*t3*t240*t279*
4102         t280*t281-26.43679639755548*t1*t2*t3*t103*t283*t130*t280*t281+
4103         578.9456755974396*t242*t231*t72*t396*t233-27.49348686114952*
4104         t1*t2*t3*t103*t392*t396*t233-578.9456755974396*t641*t72*t393*
4105         t233-48.2454729664533*t654*t72*t232*t233-64.3272972886044*
4106         t409*t105*t72*t232*t233-9.164495620383173*t1*t2*t3*t240*t231*
4107         t232*t233+13.74674343057476*t1*t2*t3*t103*t242*t105*t232*t233-
4108         1.095893333333333*t1*t2*t3*t240*t279*t282*t132+1.64384*t1*
4109         t2*t3*t103*t283*t130*t282*t132-1.64384*t1*t2*t3*t103*t458*
4110         t280*t132+(18.83609421296296*t14*t15*t16*t670+21.42414814814815*
4111         t1*t2*t3*t669+11.04534375*t8*t9*t668+6.79197037037037*t4*t5*
4112         t6*t667)*t95*t131*t132-0.273973333333333*t1*t2*t3*t103*t462*
4113         t131*t132+0.547946666666667*t1*t2*t3*t240*t283*t131*t132-0.852361481481481*
4114         t1*t2*t3*t407*t130*t131*t132+24.0*t641*t72*t396*t107+6.0*t654*
4115         t72*t235*t107+8.0*t409*t105*t72*t235*t107+1.139733333333333*
4116         t1*t2*t3*t240*t231*t235*t107-1.7096*t1*t2*t3*t103*t242*t105*
4117         t235*t107-36.0*t242*t231*t72*t232*t107+1.7096*t1*t2*t3*t103*
4118         t392*t232*t107-1.0*t671*t72*t106*t107+0.284933333333333*t1*
4119         t2*t3*t103*t409*t106*t107-0.569866666666667*t1*t2*t3*t240*
4120         t242*t106*t107+0.886459259259259*t1*t2*t3*t407*t105*t106*t107);
4121     t712 = -
4122         16.0*t125*t463*t81*t83*t90;
4123     t713 = 120.0*t273*t284*t81*t83*t90;
4124     t714 = 72.0*t275*t284*t81*t84*t90;
4125     t715 = -480.0*t133*t452*t81*t83*t90;
4126     t716 = -576.0*t125*t133*t275*t81*t90;
4127     t717 = 840.0*t706*t81*t83*t90*t99;
4128     t718 = 1440.0*t273*t275*t81*t90*t99;
4129     t719 = 24.0*t81*t84*t90*t99;
4130     t720 = 1/pow(t62,8.0);
4131     t721 = -3.508934038473122*t81*t85*t109*t86*t110*t297*
4132         t111;
4133     t722 = -3.508934038473122*t81*t128*t109*t86*t110*t185*
4134         t111;
4135     t723 = -3.508934038473122*t81*t187*t109*t86*t110*t122*
4136         t111;
4137     t724 = -3.508934038473122*t81*t298*t109*t86*t110*t90*
4138         t111;
4139     t725 = -0.004394773208821*t81*t1*t2*t3*t103*t85*t297*
4140         t93;
4141     t726 = -0.004394773208821*t81*t1*t2*t3*t103*t128*t185*
4142         t93;
4143     t727 = -0.004394773208821*t81*t1*t2*t3*t103*t187*t122*
4144         t93;
4145     t728 = -0.004394773208821*t81*t1*t2*t3*t103*t298*t90*
4146         t93;
4147     t729 = 6.0*t133*t297*t81*t83*t84;
4148     t730 = -24.0*t125*t297*t81*t83*t99;
4149     t731 = -51.9472676981276*t81*t85*t244*t86*t245*t297*t246;
4150     t732 = -
4151         51.9472676981276*t81*t128*t244*t86*t245*t185*t246;
4152     t733 = -51.9472676981276*t81*t187*t244*t86*t245*t122*
4153         t246;
4154     t734 = -51.9472676981276*t81*t298*t244*t86*t245*t90*t246;
4155     t735 = 3.508934038473122*
4156         t81*t85*t244*t86*t249*t297*t111;
4157     t736 = 0.130122970593378*t81*t1*t2*t3*t103*t85*t109*t110*
4158         t297*t111;
4159     t737 = -1.754467019236561*t81*t85*t252*t86*t110*t297*
4160         t111;
4161     t738 = 3.508934038473122*t81*t128*t244*t86*t249*t185*
4162         t111;
4163     t739 = 0.130122970593378*t81*t1*t2*t3*t103*t128*t109*
4164         t110*t185*t111;
4165     t740 = -1.754467019236561*t81*t128*t252*t86*t110*t185*
4166         t111;
4167     t741 = 3.508934038473122*t81*t187*t244*t86*t249*t122*
4168         t111;
4169     t742 = 0.130122970593378*t81*t1*t2*t3*t103*t187*t109*
4170         t110*t122*t111;
4171     t743 = -1.754467019236561*t81*t187*t252*t86*t110*t122*
4172         t111;
4173     t744 = 3.508934038473122*t81*t298*t244*t86*t249*t90*t111;
4174     t745 = 0.130122970593378*
4175         t81*t1*t2*t3*t103*t298*t109*t110*t90*t111;
4176     t746 = -1.754467019236561*t81*t298*t252*t86*t110*t90*
4177         t111;
4178     t747 = 0.002929848805881*t81*t1*t2*t3*t240*t85*t297*t93;
4179     t748 = 1.333333333333333*
4180         t118*(12.0*t84+t699)+1.333333333333333*t121*(t702-12.0*t84)-
4181         1.777777777777778*t258*t262*t441*t82+1.777777777777778*t256*
4182         t258*t436*t82+2.666666666666667*t258*t263*t266*t82-2.666666666666667*
4183         t257*t258*t261*t82+0.493827160493827*t184*t440*t701+0.493827160493827*
4184         t183*t435*t698+1.333333333333333*t120*t263*t492+1.333333333333333*
4185         t117*t257*t491+0.444444444444444*t184*t263*t444-0.888888888888889*
4186         t120*t184*t266*t441+0.444444444444444*t183*t257*t439-0.888888888888889*
4187         t117*t183*t261*t436;
4188     t749 = 0.002929848805881*t81*t1*t2*t3*t240*t128*t185*
4189         t93;
4190     t750 = 0.002929848805881*t81*t1*t2*t3*t240*t187*t122*
4191         t93;
4192     t751 = 0.002929848805881*t81*t1*t2*t3*t240*t298*t90*t93;
4193     t752 = 3.0*
4194         t284*t297*t81*t83*t84;
4195     t753 = -24.0*t125*t133*t297*t81*t83;
4196     t754 = 60.0*t273*t297*t81*t83*t99;
4197     t755 = 36.0*t275*t297*t81*t84*t99;
4198     t756 = -24.0*t81*t84*t90*t99;
4199     t757 = pow(grada,15.0);
4200     t758 = 1/pow(rhoa,24.33333333333333);
4201     t759 = -32.0*t118*t125*t82;
4202     t760 = 32.0*t121*t125*t82;
4203     t761 = -5.333333333333333*t120*t263*t82*t84+5.333333333333333*
4204         t117*t257*t82*t84-2.37037037037037*t120*t184*t258*t441*t82+
4205         2.37037037037037*t117*t183*t258*t436*t82+t760+t759+0.493827160493827*
4206         t262*t329*t701+0.493827160493827*t256*t327*t698+0.888888888888889*
4207         t184*t263*t492+0.888888888888889*t183*t257*t491-0.296296296296296*
4208         t262*t330*t441-0.296296296296296*t266*t329*t441-0.296296296296296*
4209         t256*t328*t436-0.296296296296296*t261*t327*t436+0.444444444444444*
4210         t263*t266*t330+0.444444444444444*t257*t261*t328+3.555555555555555*
4211         t263*t273*t275+3.555555555555555*t257*t273*t275-1.777777777777778*
4212         t120*t258*t263+1.777777777777778*t117*t257*t258;
4213     t762 = 1/pow(rhoa,23.33333333333333);
4214     t763 = -8.0*t184*t263*t82*t84+8.0*t183*t257*t82*t84+16.0*
4215         t121*t84-16.0*t118*t84-1.777777777777778*t258*t329*t441*t82+
4216         1.777777777777778*t258*t327*t436*t82+2.666666666666667*t258*
4217         t263*t330*t82-2.666666666666667*t257*t258*t328*t82+t760+t759+
4218         0.493827160493827*t120*t555*t701+0.493827160493827*t117*t553*
4219         t698+0.444444444444444*t120*t263*t556+0.444444444444444*t117*
4220         t257*t554-0.888888888888889*t120*t184*t330*t441-0.888888888888889*
4221         t117*t183*t328*t436-2.666666666666667*t184*t258*t263+2.666666666666667*
4222         t183*t257*t258;
4223     t764 = 1/pow(rhoa,22.33333333333333);
4224     t765 = pow(gradb,16.0);
4225     t766 = 1/pow(t150,8.0);
4226     t767 = 1/pow(rhob,25.33333333333333);
4227     t768 = 1/pow(rhob,22.66666666666667);
4228     t769 = 1/pow(rhob,20.0);
4229     t770 = 1/pow(rhob,17.33333333333333);
4230     t771 = 1/pow(rhob,14.66666666666667);
4231     t772 = 1/pow(rhob,12.0);
4232     t773 = 1/pow(rhob,9.333333333333334);
4233     t774 = 1/pow(rhob,6.666666666666667);
4234     t775 = 1/pow(t145,4.0);
4235     t776 = pow(t179,4.0);
4236     t777 = 1/pow(t144,8.0);
4237     t778 = 1/pow(t144,7.0);
4238     t779 = pow(t322,2.0);
4239     t780 = 21.42414814814815*t1*t2*t3/pow(rhob,4.333333333333333)+
4240         18.83609421296296*t14*t15*t16/pow(rhob,4.166666666666667)+
4241         11.04534375*t8*t9/pow(t141,9.0)+6.79197037037037*t4*t5*t6*
4242         t315;
4243     t781 = 1/pow(t161,8.0);
4244     t782 = 1.333333333333333*t118*(t703+t699)+0.493827160493827*
4245         pow(t184,4.0)*t701+1.333333333333333*t121*(t700+t702)+0.493827160493827*
4246         pow(t183,4.0)*t698+1.777777777777778*t184*t263*t556+1.777777777777778*
4247         t183*t257*t554-1.777777777777778*t329*t330*t441-1.777777777777778*
4248         t327*t328*t436+1.333333333333333*t263*pow(t330,2.0)+1.333333333333333*
4249         t257*pow(t328,2.0);
4250     t783 = pow(gradb,15.0);
4251     t784 = 1/pow(rhob,24.33333333333333);
4252     t785 = 1/pow(rhob,23.33333333333333);
4253     t786 = 1/pow(rhob,22.33333333333333);
4254     t787 = 1/pow(rhoa,21.33333333333333);
4255     t788 = 1/pow(rhob,21.33333333333333);
4256 
4257    /* code */
4258     dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
4259         rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
4260         t34+t139*t148+t69*t137+0.002129457733333*t1*t2*t3*t19*t33*
4261         t12;
4262     dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
4263         t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
4264         t191*t148-0.03109*t146*t160*t147+0.002129457733333*t1*t2*t3*
4265         t146*t160*t143;
4266     dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
4267         t199*t148;
4268     dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
4269         t35+t207*t148;
4270     dfdgab = 0.0;
4271     d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
4272         t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
4273         t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-0.333333333333333*
4274         t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+0.001419638488889*
4275         t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
4276         t34+t69*t294+t296*t148+2.0*t137*t139-0.136986666666667*t1*
4277         t2*t3*t50*t33*t54*t55*t12+0.004258915466667*t1*t2*t3*t19*t49*
4278         t12;
4279     d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
4280     d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
4281         t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
4282         t19*t197*t34+t306*t148+t199*t137+0.002129457733333*t1*t2*t3*
4283         t19*t197*t12;
4284     d2fdragb = t307*t148+t207*t137;
4285     d2fdraab = 0.0;
4286     d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
4287         t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
4288         rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
4289         rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-0.333333333333333*
4290         t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
4291         t179*t180+0.001419638488889*t1*t2*t3*t146*t160*t178+t344*t148-
4292         0.06218*t146*t174*t147-0.136986666666667*t1*t2*t3*t175*t160*
4293         t179*t180*t143+0.004258915466667*t1*t2*t3*t146*t174*t143;
4294     d2fdrbga = t345*
4295         t148+t199*t190;
4296     d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
4297         t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
4298         t207*t190+t350*t148-0.03109*t146*t205*t147+0.002129457733333*
4299         t1*t2*t3*t146*t205*t143;
4300     d2fdrbgab = 0.0;
4301     d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
4302         t52+t354*t148;
4303     d2fdgagb = t355*t148;
4304     d2fdgagab = 0.0;
4305     d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
4306         t35*t358+t359*t148;
4307     d2fdgbgab = 0.0;
4308     d2fdgabgab = 0.0;
4309     d3fdrarara = 3.0*t216*t34*t50*t54*t55*rhoa+3.0*t222*t34*
4310         t49*t50*t55*rhoa+t50*t375*t33*t34*t55*rhoa-6.0*t220*t222*t33*
4311         t34*t50*t54*rhoa-6.0*t218*t220*t34*t49*t50*rhoa+6.0*t219*t33*
4312         t34*t371*t50*rhoa-192.9880990672242*t217*t33*t371*t34*t373*
4313         rhoa+2069.133687865597*t370*t33*t371*t34*t372*rhoa-0.03109*
4314         t19*t369*t34*rhoa+96.4940495336121*t217*t33*t222*t54*t34*t219*
4315         rhoa+96.4940495336121*t217*t49*t218*t34*t219*rhoa-1.0*t3*t35*
4316         t57*t7+3.0*t222*t33*t34*t50*t55+6.0*t50*t49*t54*t34*t55-0.136986666666667*
4317         t1*t2*t3*t50*t33*t54*t55*t53+0.004258915466667*t1*t2*t3*t19*
4318         t49*t53-0.75*t3*t35*t377*t52+0.222222222222222*t3*t35*t41*
4319         t51-6.0*t218*t220*t33*t34*t50+t69*t478-3.0*t11*t224*t3*t35-
4320         0.09327*t19*t216*t34+3.0*t137*t296+3.0*t139*t294-0.001892851318519*
4321         t1*t2*t3*t19*t33*t221+96.4940495336121*t217*t33*t218*t34*t219+
4322         t480*t148-0.41096*t1*t2*t3*t50*t49*t54*t55*t12-0.20548*t1*
4323         t2*t3*t50*t33*t222*t55*t12+0.41096*t1*t2*t3*t50*t33*t218*t220*
4324         t12-6.60919909938887*t1*t2*t3*t217*t33*t218*t219*t12+0.0063883732*
4325         t1*t2*t3*t19*t216*t12;
4326     d3fdrararb = t69*t506+2.0*t137*t301+2.0*t139*t300+t191*
4327         t294+t296*t190+t507*t148;
4328     d3fdraraga = 2.0*t304*t34*t50*t54*t55*rhoa+t50*t197*t222*
4329         t34*t55*rhoa-2.0*t197*t218*t220*t34*t50*rhoa-0.03109*t19*t510*
4330         t34*rhoa+32.1646831778707*t217*t197*t218*t34*t219*rhoa-0.333333333333333*
4331         t198*t3*t35*t7+2.0*t197*t34*t50*t54*t55+0.001419638488889*
4332         t1*t2*t3*t19*t197*t53-0.75*t3*t35*t511*t52-2.0*t11*t3*t305*
4333         t35-0.06218*t19*t304*t34+2.0*t137*t306+t199*t294+t512*t148-
4334         0.136986666666667*t1*t2*t3*t50*t197*t54*t55*t12+0.004258915466667*
4335         t1*t2*t3*t19*t304*t12;
4336     d3fdraragb = 2.0*t137*t307+t207*t294+t513*t148;
4337     d3fdraraab = 0.0;
4338     d3fdrarbrb = t69*t517+t139*t343+2.0*t190*t301+2.0*t191*
4339         t300+t518*t148+t344*t137;
4340     d3fdrarbga = t519*t148+t345*t137+t306*t190+t199*t300;
4341     d3fdrarbgb = t520*
4342         t148+t350*t137+t307*t190+t207*t300;
4343     d3fdrarbab = 0.0;
4344     d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*t522*
4345         t34*rhoa-0.75*t3*t35*t52*t523-1.0*t11*t3*t35*t353-0.03109*
4346         t19*t352*t34+t524*t148+t354*t137+0.002129457733333*t1*t2*t3*
4347         t19*t352*t12;
4348     d3fdragagb = t525*t148+t355*t137;
4349     d3fdragaab = 0.0;
4350     d3fdragbgb = t526*t148+t359*t137;
4351     d3fdragbab = 0.0;
4352     d3fdraabab = 0.0;
4353     d3fdrbrbrb = -192.9880990672242*t317*t160*t538*t147*t540*
4354         rhob+2069.133687865597*t537*t160*t538*t147*t539*rhob+6.0*t147*
4355         t160*t175*t319*t538*rhob-6.0*t147*t160*t175*t179*t320*t322*
4356         rhob+3.0*t147*t174*t175*t180*t322*rhob-6.0*t147*t174*t175*
4357         t318*t320*rhob+96.4940495336121*t317*t174*t318*t147*t319*rhob+
4358         96.4940495336121*t317*t160*t322*t179*t147*t319*rhob+3.0*t147*
4359         t175*t179*t180*t316*rhob+t175*t542*t160*t147*t180*rhob-0.03109*
4360         t146*t536*t147*rhob+t69*t572-0.75*t177*t3*t35*t544-3.0*t142*
4361         t3*t324*t35-1.0*t140*t182*t3*t35+0.222222222222222*t166*t176*
4362         t3*t35+3.0*t190*t344+3.0*t191*t343+3.0*t147*t160*t175*t180*
4363         t322-0.001892851318519*t1*t2*t3*t146*t160*t321-6.0*t147*t160*
4364         t175*t318*t320+96.4940495336121*t317*t160*t318*t147*t319+6.0*
4365         t175*t174*t179*t147*t180-0.136986666666667*t1*t2*t3*t175*t160*
4366         t179*t180*t178+0.004258915466667*t1*t2*t3*t146*t174*t178+t573*
4367         t148-0.09327*t146*t316*t147+0.41096*t1*t2*t3*t175*t160*t318*
4368         t320*t143-6.60919909938887*t1*t2*t3*t317*t160*t318*t319*t143+
4369         0.0063883732*t1*t2*t3*t146*t316*t143-0.20548*t1*t2*t3*t175*
4370         t160*t322*t180*t143-0.41096*t1*t2*t3*t175*t174*t179*t180*t143;
4371     d3fdrbrbga = 2.0*
4372         t190*t345+t199*t343+t574*t148;
4373     d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
4374         t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
4375         t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*t577*
4376         t147*rhob-0.75*t177*t3*t35*t578+2.0*t190*t350-2.0*t142*t3*
4377         t349*t35-0.333333333333333*t140*t206*t3*t35+t207*t343+2.0*
4378         t147*t175*t179*t180*t205+0.001419638488889*t1*t2*t3*t146*t205*
4379         t178+t579*t148-0.06218*t146*t348*t147+0.004258915466667*t1*
4380         t2*t3*t146*t348*t143-0.136986666666667*t1*t2*t3*t175*t205*
4381         t179*t180*t143;
4382     d3fdrbrbab = 0.0;
4383     d3fdrbgaga = t580*t148+t354*t190;
4384     d3fdrbgagb = t581*t148+t355*t190;
4385     d3fdrbgaab = 0.0;
4386     d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
4387         t583*t147*rhob-0.75*t177*t3*t35*t584-1.0*t142*t3*t35*t358+
4388         t359*t190+t585*t148-0.03109*t146*t357*t147+0.002129457733333*
4389         t1*t2*t3*t146*t357*t143;
4390     d3fdrbgbab = 0.0;
4391     d3fdrbabab = 0.0;
4392     d3fdgagaga = -0.03109*t19*t587*t34*rhoa-0.75*t3*t35*t52*
4393         t588+t589*t148;
4394     d3fdgagagb = t590*t148;
4395     d3fdgagaab = 0.0;
4396     d3fdgagbgb = t591*t148;
4397     d3fdgagbab = 0.0;
4398     d3fdgaabab = 0.0;
4399     d3fdgbgbgb = -0.03109*t146*t593*t147*rhob-0.75*t177*t3*
4400         t35*t594+t595*t148;
4401     d3fdgbgbab = 0.0;
4402     d3fdgbabab = 0.0;
4403     d3fdababab = 0.0;
4404     d4fdrararara = t69*(24829.60425438716*t370*t607*t34*t609*
4405         rhoa-199659.0885685683*t606*t607*t34*t608*rhoa-1.0*t50*t611*
4406         t34*t55*rhoa+24.0*t50*t607*t34*t373*rhoa+1157.928594403345*
4407         t217*t222*t218*t34*t373*rhoa-1157.928594403345*t217*t607*t34*
4408         t372*rhoa-12414.80212719358*t370*t222*t218*t34*t372*rhoa+6.0*
4409         t50*t610*t34*t220*rhoa+8.0*t50*t375*t54*t34*t220*rhoa-96.4940495336121*
4410         t217*t610*t34*t219*rhoa-128.6587327114828*t217*t375*t54*t34*
4411         t219*rhoa-36.0*t50*t222*t218*t34*t219*rhoa+t70*(-384.0*t125*
4412         t81*t82*t90*t99-1920.0*t127*t452*t81*t90*t99+96.0*t122*t81*
4413         t82*t84*t99+16.0*t127*t445*t81*t84*t99+72.0*t267*t275*t81*
4414         t84*t99-480.0*t122*t452*t81*t83*t99-16.0*t125*t445*t81*t83*
4415         t99+120.0*t267*t273*t81*t83*t99-576.0*t122*t125*t275*t81*t99+
4416         960.0*t122*t127*t273*t81*t99-192.0*t125*t127*t267*t81*t99+
4417         t81*t83*t84*t704*t99+0.019751789702565*t81*(384.0*t125*t82+
4418         t708+t707+t703+1920.0*t127*t452)*t86*t90*t93-0.002929848805881*
4419         t81*t1*t2*t3*t103*t456*t90*t93+0.005859697611761*t81*t1*t2*
4420         t3*t240*t277*t90*t93-0.00911508517385*t81*t1*t2*t3*t407*t128*
4421         t90*t93+0.019751789702565*t81*t85*t86*t704*t93+0.079007158810261*
4422         t81*t128*t86*t445*t93-0.002929848805881*t81*t1*t2*t3*t103*
4423         t85*t445*t93+0.118510738215391*t81*t277*t86*t267*t93+0.005859697611761*
4424         t81*t1*t2*t3*t240*t85*t267*t93-0.008789546417642*t81*t1*t2*
4425         t3*t103*t128*t267*t93+0.079007158810261*t81*t456*t86*t122*
4426         t93-0.00911508517385*t81*t1*t2*t3*t407*t85*t122*t93-0.008789546417642*
4427         t81*t1*t2*t3*t103*t277*t122*t93+0.011719395223522*t81*t1*t2*
4428         t3*t240*t128*t122*t93+96.0*t133*t81*t82*t84*t90+16.0*t127*
4429         t463*t81*t84*t90-192.0*t125*t127*t284*t81*t90+960.0*t127*t133*
4430         t273*t81*t90+4.0*t122*t463*t81*t83*t84+4.0*t133*t445*t81*t83*
4431         t84+6.0*t267*t284*t81*t83*t84+48.0*t122*t127*t284*t81*t84+
4432         144.0*t122*t133*t275*t81*t84+48.0*t127*t133*t267*t81*t84-48.0*
4433         t122*t125*t284*t81*t83+240.0*t122*t133*t273*t81*t83-48.0*t125*
4434         t133*t267*t81*t83-384.0*t122*t125*t127*t133*t81+t719+t718+
4435         t717+t716+t715+t714+t713+t712+t711+t705+t697+t696+t695+t694+
4436         t693+t692+t691+t690+t689+t688+t687+t686+t685+t684+t682+t681+
4437         t680+t679+t678+t677+t676+t675+t674+t672+t666+t665+t664+t663+
4438         t662+t661+t660+t659+t658+t657+t656+t655+t653+t652+t651+t650+
4439         t649+t648+t647+t646+t644-4101.558808403119*t81*t128*t411*t86*
4440         t412*t90*t413-4101.558808403119*t81*t85*t411*t86*t412*t122*
4441         t413+415.5781415850207*t81*t128*t411*t86*t416*t90*t246-103.8945353962552*
4442         t81*t277*t244*t86*t245*t90*t246-207.7890707925104*t81*t128*
4443         t252*t109*t86*t245*t90*t246+7.70551137522226*t81*t1*t2*t3*
4444         t103*t128*t244*t245*t90*t246-103.8945353962552*t81*t85*t244*
4445         t86*t245*t267*t246+415.5781415850207*t81*t85*t411*t86*t416*
4446         t122*t246-207.7890707925104*t81*t128*t244*t86*t245*t122*t246-
4447         207.7890707925104*t81*t85*t252*t109*t86*t245*t122*t246+7.70551137522226*
4448         t81*t1*t2*t3*t103*t85*t244*t245*t122*t246+7.017868076946245*
4449         t81*t277*t244*t86*t249*t90*t111+14.03573615389249*t81*t128*
4450         t252*t109*t86*t249*t90*t111-0.520491882373513*t81*t1*t2*t3*
4451         t103*t128*t244*t249*t90*t111-14.03573615389249*t81*t128*t411*
4452         t86*t245*t90*t111-2.339289358982082*t81*t128*t431*t86*t110*
4453         t90*t111-3.508934038473122*t81*t277*t252*t86*t110*t90*t111-
4454         2.339289358982082*t81*t456*t109*t86*t110*t90*t111+0.260245941186757*
4455         t81*t1*t2*t3*t103*t128*t252*t110*t90*t111+0.260245941186757*
4456         t81*t1*t2*t3*t103*t277*t109*t110*t90*t111-0.346994588249009*
4457         t81*t1*t2*t3*t240*t128*t109*t110*t90*t111-2.339289358982082*
4458         t81*t85*t109*t86*t110*t445*t111+7.017868076946245*t81*t85*
4459         t244*t86*t249*t267*t111-3.508934038473122*t81*t85*t252*t86*
4460         t110*t267*t111-7.017868076946245*t81*t128*t109*t86*t110*t267*
4461         t111+0.260245941186757*t81*t1*t2*t3*t103*t85*t109*t110*t267*
4462         t111+14.03573615389249*t81*t128*t244*t86*t249*t122*t111+14.03573615389249*
4463         t81*t85*t252*t109*t86*t249*t122*t111-0.520491882373513*t81*
4464         t1*t2*t3*t103*t85*t244*t249*t122*t111-14.03573615389249*t81*
4465         t85*t411*t86*t245*t122*t111-2.339289358982082*t81*t85*t431*
4466         t86*t110*t122*t111-7.017868076946245*t81*t128*t252*t86*t110*
4467         t122*t111-7.017868076946245*t81*t277*t109*t86*t110*t122*t111+
4468         0.260245941186757*t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-
4469         0.346994588249009*t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+
4470         0.520491882373513*t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)+
4471         96.0*t81*t82*t84*t90*t99+960.0*t127*t273*t81*t90*t99+4.0*t445*
4472         t81*t83*t84*t99+144.0*t122*t275*t81*t84*t99+48.0*t127*t267*
4473         t81*t84*t99+240.0*t122*t273*t81*t83*t99-48.0*t125*t267*t81*
4474         t83*t99-384.0*t122*t125*t127*t81*t99+0.079007158810261*t81*
4475         t456*t86*t90*t93-0.008789546417642*t81*t1*t2*t3*t103*t277*
4476         t90*t93+0.011719395223522*t81*t1*t2*t3*t240*t128*t90*t93+0.079007158810261*
4477         t81*t85*t86*t445*t93+0.237021476430782*t81*t128*t86*t267*t93-
4478         0.008789546417642*t81*t1*t2*t3*t103*t85*t267*t93+0.237021476430782*
4479         t81*t277*t86*t122*t93+0.011719395223522*t81*t1*t2*t3*t240*
4480         t85*t122*t93-0.017579092835283*t81*t1*t2*t3*t103*t128*t122*
4481         t93+48.0*t127*t284*t81*t84*t90-384.0*t125*t127*t133*t81*t90+
4482         12.0*t122*t284*t81*t83*t84+12.0*t133*t267*t81*t83*t84+96.0*
4483         t122*t127*t133*t81*t84-96.0*t122*t125*t133*t81*t83+t640+t639+
4484         t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+
4485         t626+t625+t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+
4486         t614+t613-4.0*t50*t375*t34*t55+0.273973333333333*t1*t2*t3*
4487         t50*t222*t55*t53-0.547946666666667*t1*t2*t3*t50*t218*t220*
4488         t53+8.812265465851826*t1*t2*t3*t217*t218*t219*t53-0.004416653076543*
4489         t1*t2*t3*t19*t374+771.9523962688968*t217*t371*t34*t373-8276.534751462386*
4490         t370*t371*t34*t372-207.7890707925104*t81*t128*t244*t86*t245*
4491         t90*t246-207.7890707925104*t81*t85*t244*t86*t245*t122*t246-
4492         0.243531851851852*t1*t2*t3*t50*t54*t55*t221+24.0*t50*t222*
4493         t54*t34*t220-385.9761981344484*t217*t222*t54*t34*t219-24.0*
4494         t50*t371*t34*t219+0.273973333333333*t1*t2*t3*t50*t375*t55*
4495         t12-52.87359279511096*t1*t2*t3*t217*t371*t373*t12+566.8874535768302*
4496         t1*t2*t3*t370*t371*t372*t12-1.64384*t1*t2*t3*t50*t222*t54*
4497         t220*t12+26.43679639755548*t1*t2*t3*t217*t222*t54*t219*t12+
4498         1.64384*t1*t2*t3*t50*t371*t219*t12+14.03573615389249*t81*t128*
4499         t244*t86*t249*t90*t111-7.017868076946245*t81*t128*t252*t86*
4500         t110*t90*t111-7.017868076946245*t81*t277*t109*t86*t110*t90*
4501         t111+0.520491882373513*t81*t1*t2*t3*t103*t128*t109*t110*t90*
4502         t111-7.017868076946245*t81*t85*t109*t86*t110*t267*t111+14.03573615389249*
4503         t81*t85*t244*t86*t249*t122*t111-7.017868076946245*t81*t85*
4504         t252*t86*t110*t122*t111-14.03573615389249*t81*t128*t109*t86*
4505         t110*t122*t111+0.520491882373513*t81*t1*t2*t3*t103*t85*t109*
4506         t110*t122*t111)-6.0*t220*t33*t34*t50*t610*rhoa-24829.60425438716*
4507         t370*t33*t607*t34*t609*rhoa+199659.0885685683*t606*t33*t607*
4508         t34*t608*rhoa-24.0*t33*t34*t373*t50*t607*rhoa+4.0*t34*t369*
4509         t50*t54*t55*rhoa+4.0*t34*t375*t49*t50*t55*rhoa+6.0*t216*t222*
4510         t34*t50*t55*rhoa+t50*t611*t33*t34*t55*rhoa-24.0*t220*t222*
4511         t34*t49*t50*t54*rhoa-8.0*t220*t33*t34*t375*t50*t54*rhoa+24.0*
4512         t219*t34*t371*t49*t50*rhoa+36.0*t218*t219*t222*t33*t34*t50*
4513         rhoa-12.0*t216*t218*t220*t34*t50*rhoa-771.9523962688968*t217*
4514         t49*t371*t34*t373*rhoa-1157.928594403345*t217*t33*t222*t218*
4515         t34*t373*rhoa+1157.928594403345*t217*t33*t607*t34*t372*rhoa+
4516         8276.534751462386*t370*t49*t371*t34*t372*rhoa+12414.80212719358*
4517         t370*t33*t222*t218*t34*t372*rhoa-0.03109*t19*(4.423522769382716*
4518         t21*t32*t605+10.26558234153087*t29*t30*t604-132.732341830163*
4519         t26*t27*t603+202.6697066943526*t20*t24*t602-119.6504344979532*
4520         t42*t43*t601+33.6253206649363*t208*t209*t600-4.537293209600001*
4521         t360*t361*t599+0.237138491619556*t596*t597*t598)*t34*rhoa+
4522         96.4940495336121*t217*t33*t610*t34*t219*rhoa+128.6587327114828*
4523         t217*t375*t33*t54*t34*t219*rhoa+385.9761981344484*t217*t49*
4524         t222*t54*t34*t219*rhoa+192.9880990672242*t217*t216*t218*t34*
4525         t219*rhoa-2.0*t224*t3*t35*t7-0.75*t3*t35*t52*(-0.538373535604938*
4526         t21*t40*t605+0.170710135447704*t29*t39*t604-0.006586541220169*
4527         t26*t38*t603+1.0611154443853118E-4*t20*t37*t602-8.823921276742924E-7*
4528         t42*t56*t601+3.981198533073225E-9*t208*t223*t600-9.2618884392429E-12*
4529         t360*t376*t599+8.71112822935703E-15*t596*t612*t598)+0.888888888888889*
4530         t3*t35*t51*t57+4.0*t33*t34*t375*t50*t55+12.0*t50*t216*t54*
4531         t34*t55+12.0*t50*t49*t222*t34*t55-24.0*t220*t222*t33*t34*t50*
4532         t54-0.547946666666667*t1*t2*t3*t50*t49*t54*t55*t53-0.273973333333333*
4533         t1*t2*t3*t50*t33*t222*t55*t53+0.547946666666667*t1*t2*t3*t50*
4534         t33*t218*t220*t53-8.812265465851826*t1*t2*t3*t217*t33*t218*
4535         t219*t53+0.008517830933333*t1*t2*t3*t19*t216*t53+24.0*t219*
4536         t33*t34*t371*t50+4.0*t137*t480+4.0*t139*t478-0.37037037037037*
4537         t22*t3*t35*t41-4.0*t11*t3*t35*t377+0.004416653076543*t1*t2*
4538         t3*t19*t33*t374-771.9523962688968*t217*t33*t371*t34*t373+8276.534751462386*
4539         t370*t33*t371*t34*t372-0.12436*t19*t369*t34+6.0*t294*t296+
4540         0.243531851851852*t1*t2*t3*t50*t33*t54*t55*t221-0.007571405274074*
4541         t1*t2*t3*t19*t49*t221-24.0*t50*t49*t218*t34*t220+385.9761981344484*
4542         t217*t33*t222*t54*t34*t219+385.9761981344484*t217*t49*t218*
4543         t34*t219+(2.872399786666667*t21*t605*t68-0.155932082631111*
4544         t21*t605*t60*t67-0.259022131768889*t29*t604*t67+0.002147636855467*
4545         t21*t605*t66*t65+0.009223778563413*t29*t604*t60*t65+0.00332549505024*
4546         t26*t603*t65-1.195909772288E-5*t21*t605*t64*t63-1.1148896360448E-4*
4547         t29*t604*t66*t63-1.049004785664E-4*t26*t603*t60*t63-9.985417543679999E-6*
4548         t20*t602*t63+2.439835926528001E-8*t21*t605*t61*t138+5.7530165772288E-7*
4549         t29*t604*t64*t138+1.18695912800256E-6*t26*t603*t66*t138+2.9645634797568E-7*
4550         t20*t602*t60*t138-1.0948507435008E-9*t29*t604*t61*t295-5.8350883700736E-9*
4551         t26*t603*t64*t295-3.2190326636544E-9*t20*t602*t66*t295+1.06286633975808E-11*
4552         t26*t603*t61*t479+1.530774757048321E-11*t20*t602*t64*t479-
4553         2.705477955747841E-14*t20*t602*t61*t720)*t148-0.82192*t1*t2*
4554         t3*t50*t216*t54*t55*t12-0.273973333333333*t1*t2*t3*t50*t375*
4555         t33*t55*t12-0.82192*t1*t2*t3*t50*t49*t222*t55*t12+52.87359279511096*
4556         t1*t2*t3*t217*t33*t371*t373*t12-566.8874535768302*t1*t2*t3*
4557         t370*t33*t371*t372*t12+0.008517830933333*t1*t2*t3*t19*t369*
4558         t12+1.64384*t1*t2*t3*t50*t33*t222*t54*t220*t12+1.64384*t1*
4559         t2*t3*t50*t49*t218*t220*t12-26.43679639755548*t1*t2*t3*t217*
4560         t33*t222*t54*t219*t12-1.64384*t1*t2*t3*t50*t33*t371*t219*t12-
4561         26.43679639755548*t1*t2*t3*t217*t49*t218*t219*t12;
4562     d4fdrarararb = t69*(t70*(192.0*t125*t81*t82*t90*t99-960.0*
4563         t127*t452*t81*t90*t99+24.0*t185*t81*t82*t84*t99-72.0*t122*
4564         t81*t82*t84*t99+12.0*t127*t493*t81*t84*t99-4.0*t127*t445*t81*
4565         t84*t99-36.0*t267*t275*t81*t84*t99-12.0*t125*t493*t81*t83*
4566         t99-120.0*t185*t452*t81*t83*t99-360.0*t122*t452*t81*t83*t99-
4567         4.0*t125*t445*t81*t83*t99+60.0*t267*t273*t81*t83*t99-96.0*
4568         t125*t127*t297*t81*t99-144.0*t125*t185*t275*t81*t99+144.0*
4569         t122*t125*t275*t81*t99+240.0*t127*t185*t273*t81*t99+240.0*
4570         t122*t127*t273*t81*t99+t81*t83*t84*t748*t99+0.019751789702565*
4571         t81*(-192.0*t125*t82+t707+t700+960.0*t127*t452)*t86*t90*t93-
4572         0.00219738660441*t81*t1*t2*t3*t103*t499*t90*t93-7.324622014701263E-4*
4573         t81*t1*t2*t3*t103*t456*t90*t93+0.002929848805881*t81*t1*t2*
4574         t3*t240*t277*t90*t93-0.002278771293463*t81*t1*t2*t3*t407*t187*
4575         t90*t93-0.006836313880388*t81*t1*t2*t3*t407*t128*t90*t93+0.019751789702565*
4576         t81*t85*t86*t748*t93+0.059255369107696*t81*t128*t86*t493*t93-
4577         0.00219738660441*t81*t1*t2*t3*t103*t85*t493*t93+0.019751789702565*
4578         t81*t187*t86*t445*t93-7.324622014701263E-4*t81*t1*t2*t3*t103*
4579         t85*t445*t93+0.059255369107696*t81*t277*t86*t297*t93-0.004394773208821*
4580         t81*t1*t2*t3*t103*t128*t297*t93+0.059255369107696*t81*t298*
4581         t86*t267*t93+0.002929848805881*t81*t1*t2*t3*t240*t85*t267*
4582         t93-0.00219738660441*t81*t1*t2*t3*t103*t187*t267*t93-0.00219738660441*
4583         t81*t1*t2*t3*t103*t128*t267*t93+0.019751789702565*t81*t456*
4584         t86*t185*t93-0.002278771293463*t81*t1*t2*t3*t407*t85*t185*
4585         t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t185*t93+0.059255369107696*
4586         t81*t499*t86*t122*t93-0.006836313880388*t81*t1*t2*t3*t407*
4587         t85*t122*t93-0.004394773208821*t81*t1*t2*t3*t103*t298*t122*
4588         t93-0.00219738660441*t81*t1*t2*t3*t103*t277*t122*t93+0.005859697611761*
4589         t81*t1*t2*t3*t240*t128*t122*t93-48.0*t133*t81*t82*t84*t90+
4590         8.0*t127*t463*t81*t84*t90-96.0*t125*t127*t284*t81*t90+480.0*
4591         t127*t133*t273*t81*t90+3.0*t133*t493*t81*t83*t84+3.0*t122*
4592         t463*t81*t83*t84+3.0*t267*t284*t81*t83*t84+24.0*t127*t133*
4593         t297*t81*t84+12.0*t127*t185*t284*t81*t84+12.0*t122*t127*t284*
4594         t81*t84+36.0*t133*t185*t275*t81*t84-36.0*t122*t133*t275*t81*
4595         t84-12.0*t125*t185*t284*t81*t83-36.0*t122*t125*t284*t81*t83+
4596         60.0*t133*t185*t273*t81*t83+180.0*t122*t133*t273*t81*t83-24.0*
4597         t125*t133*t267*t81*t83-96.0*t125*t127*t133*t185*t81-96.0*t122*
4598         t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
4599         t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
4600         t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
4601         t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
4602         t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
4603         t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
4604         t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t185*t463-
4605         1025.38970210078*t81*t187*t411*t86*t412*t90*t413-3076.169106302339*
4606         t81*t128*t411*t86*t412*t90*t413-1025.38970210078*t81*t85*t411*
4607         t86*t412*t185*t413-3076.169106302339*t81*t85*t411*t86*t412*
4608         t122*t413+103.8945353962552*t81*t187*t411*t86*t416*t90*t246+
4609         311.6836061887656*t81*t128*t411*t86*t416*t90*t246-51.94726769812759*
4610         t81*t277*t244*t86*t245*t90*t246-51.9472676981276*t81*t187*
4611         t252*t109*t86*t245*t90*t246-155.8418030943828*t81*t128*t252*
4612         t109*t86*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
4613         t187*t244*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
4614         t128*t244*t245*t90*t246-51.94726769812759*t81*t85*t244*t86*
4615         t245*t267*t246+103.8945353962552*t81*t85*t411*t86*t416*t185*
4616         t246-51.9472676981276*t81*t85*t252*t109*t86*t245*t185*t246+
4617         1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*t185*t246+
4618         311.6836061887656*t81*t85*t411*t86*t416*t122*t246-103.8945353962552*
4619         t81*t128*t244*t86*t245*t122*t246-155.8418030943828*t81*t85*
4620         t252*t109*t86*t245*t122*t246+5.779133531416695*t81*t1*t2*t3*
4621         t103*t85*t244*t245*t122*t246+t81*t83*t84*t445*t133+3.508934038473122*
4622         t81*t277*t244*t86*t249*t90*t111+3.508934038473122*t81*t187*
4623         t252*t109*t86*t249*t90*t111+10.52680211541937*t81*t128*t252*
4624         t109*t86*t249*t90*t111-0.130122970593378*t81*t1*t2*t3*t103*
4625         t187*t244*t249*t90*t111-0.390368911780135*t81*t1*t2*t3*t103*
4626         t128*t244*t249*t90*t111-3.508934038473122*t81*t187*t411*t86*
4627         t245*t90*t111-10.52680211541937*t81*t128*t411*t86*t245*t90*
4628         t111-0.58482233974552*t81*t187*t431*t86*t110*t90*t111-1.754467019236561*
4629         t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t277*
4630         t252*t86*t110*t90*t111-1.754467019236561*t81*t499*t109*t86*
4631         t110*t90*t111-0.58482233974552*t81*t456*t109*t86*t110*t90*
4632         t111+0.065061485296689*t81*t1*t2*t3*t103*t187*t252*t110*t90*
4633         t111+0.195184455890067*t81*t1*t2*t3*t103*t128*t252*t110*t90*
4634         t111+0.130122970593378*t81*t1*t2*t3*t103*t277*t109*t110*t90*
4635         t111-0.086748647062252*t81*t1*t2*t3*t240*t187*t109*t110*t90*
4636         t111-0.260245941186757*t81*t1*t2*t3*t240*t128*t109*t110*t90*
4637         t111-1.754467019236561*t81*t85*t109*t86*t110*t493*t111-0.58482233974552*
4638         t81*t85*t109*t86*t110*t445*t111-3.508934038473122*t81*t128*
4639         t109*t86*t110*t297*t111+3.508934038473122*t81*t85*t244*t86*
4640         t249*t267*t111-1.754467019236561*t81*t85*t252*t86*t110*t267*
4641         t111-1.754467019236561*t81*t187*t109*t86*t110*t267*t111-1.754467019236561*
4642         t81*t128*t109*t86*t110*t267*t111+0.130122970593378*t81*t1*
4643         t2*t3*t103*t85*t109*t110*t267*t111+3.508934038473122*t81*t85*
4644         t252*t109*t86*t249*t185*t111-0.130122970593378*t81*t1*t2*t3*
4645         t103*t85*t244*t249*t185*t111-3.508934038473122*t81*t85*t411*
4646         t86*t245*t185*t111-0.58482233974552*t81*t85*t431*t86*t110*
4647         t185*t111-1.754467019236561*t81*t277*t109*t86*t110*t185*t111+
4648         0.065061485296689*t81*t1*t2*t3*t103*t85*t252*t110*t185*t111-
4649         0.086748647062252*t81*t1*t2*t3*t240*t85*t109*t110*t185*t111+
4650         7.017868076946245*t81*t128*t244*t86*t249*t122*t111+10.52680211541937*
4651         t81*t85*t252*t109*t86*t249*t122*t111-0.390368911780135*t81*
4652         t1*t2*t3*t103*t85*t244*t249*t122*t111-10.52680211541937*t81*
4653         t85*t411*t86*t245*t122*t111-1.754467019236561*t81*t85*t431*
4654         t86*t110*t122*t111-3.508934038473122*t81*t128*t252*t86*t110*
4655         t122*t111-3.508934038473122*t81*t298*t109*t86*t110*t122*t111-
4656         1.754467019236561*t81*t277*t109*t86*t110*t122*t111+0.195184455890067*
4657         t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-0.260245941186757*
4658         t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+0.260245941186757*
4659         t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)-48.0*t81*t82*t84*
4660         t90*t99+480.0*t127*t273*t81*t90*t99+3.0*t493*t81*t83*t84*t99+
4661         24.0*t127*t297*t81*t84*t99-36.0*t122*t275*t81*t84*t99+180.0*
4662         t122*t273*t81*t83*t99-24.0*t125*t267*t81*t83*t99-96.0*t125*
4663         t127*t185*t81*t99+0.059255369107696*t81*t499*t86*t90*t93-0.004394773208821*
4664         t81*t1*t2*t3*t103*t277*t90*t93+0.008789546417642*t81*t1*t2*
4665         t3*t240*t128*t90*t93+0.059255369107696*t81*t85*t86*t493*t93+
4666         0.118510738215391*t81*t128*t86*t297*t93+0.059255369107696*
4667         t81*t187*t86*t267*t93-0.004394773208821*t81*t1*t2*t3*t103*
4668         t85*t267*t93+0.059255369107696*t81*t277*t86*t185*t93+0.118510738215391*
4669         t81*t298*t86*t122*t93+0.008789546417642*t81*t1*t2*t3*t240*
4670         t85*t122*t93-0.008789546417642*t81*t1*t2*t3*t103*t128*t122*
4671         t93+24.0*t127*t284*t81*t84*t90-192.0*t125*t127*t133*t81*t90+
4672         9.0*t122*t284*t81*t83*t84+6.0*t133*t267*t81*t83*t84+24.0*t127*
4673         t133*t185*t81*t84-72.0*t122*t125*t133*t81*t83+t730+t729+t728+
4674         t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
4675         t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
4676         t621+t620+t619+t618+t617+t616+t615+t614+t613+t571+t569+t566+
4677         t565+t562+t560+t552+t551+t550+t549+t548+t547+t546+t545+t473+
4678         t471+t468+t457+t449+t447+t446-155.8418030943828*t81*t128*t244*
4679         t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
4680         t122*t246+10.52680211541937*t81*t128*t244*t86*t249*t90*t111-
4681         5.263401057709684*t81*t128*t252*t86*t110*t90*t111-3.508934038473122*
4682         t81*t277*t109*t86*t110*t90*t111+0.390368911780135*t81*t1*t2*
4683         t3*t103*t128*t109*t110*t90*t111-3.508934038473122*t81*t85*
4684         t109*t86*t110*t267*t111+10.52680211541937*t81*t85*t244*t86*
4685         t249*t122*t111-5.263401057709684*t81*t85*t252*t86*t110*t122*
4686         t111-7.017868076946245*t81*t128*t109*t86*t110*t122*t111+0.390368911780135*
4687         t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+3.0*t137*t507+3.0*
4688         t139*t506+t191*t478+3.0*t294*t301+3.0*t296*t300+t480*t190+
4689         (-0.040745054435556*t21*t58*t368*t67*t173+0.001450931459413*
4690         t21*t58*t368*t60*t65*t173+0.00166274752512*t29*t58*t367*t65*
4691         t173-1.753758978048E-5*t21*t58*t368*t66*t63*t173-5.24502392832E-5*
4692         t29*t58*t367*t60*t63*t173-9.985417543679999E-6*t26*t58*t366*
4693         t63*t173+9.049688997888E-8*t21*t58*t368*t64*t138*t173+5.9347956400128E-7*
4694         t29*t58*t367*t66*t138*t173+2.9645634797568E-7*t26*t58*t366*
4695         t60*t138*t173-1.722237124608001E-10*t21*t58*t368*t61*t295*
4696         t173-2.9175441850368E-9*t29*t58*t367*t64*t295*t173-3.2190326636544E-9*
4697         t26*t58*t366*t66*t295*t173+5.3143316987904E-12*t29*t58*t367*
4698         t61*t479*t173+1.530774757048321E-11*t26*t58*t366*t64*t479*
4699         t173-2.705477955747841E-14*t26*t58*t366*t61*t720*t173)*t148;
4700     d4fdrararaga = 3.0*
4701         t34*t50*t510*t54*t55*rhoa+3.0*t222*t304*t34*t50*t55*rhoa+t50*
4702         t375*t197*t34*t55*rhoa-6.0*t197*t220*t222*t34*t50*t54*rhoa+
4703         6.0*t197*t219*t34*t371*t50*rhoa-6.0*t218*t220*t304*t34*t50*
4704         rhoa-192.9880990672242*t217*t197*t371*t34*t373*rhoa+2069.133687865597*
4705         t370*t197*t371*t34*t372*rhoa-0.03109*t19*(-1.56124333037037*
4706         grada*t32*t368-4.81507000414815*t196*t30*t367+72.67913110755558*
4707         t195*t27*t366-121.7816966326045*t194*t24*t365+77.20254629842492*
4708         t192*t43*t364-22.99638211470223*t302*t209*t363+3.260051619840001*
4709         t508*t361*t362-0.177853868714667*t757*t597*t758)*t34*rhoa+
4710         96.4940495336121*t217*t197*t222*t54*t34*t219*rhoa+96.4940495336121*
4711         t217*t304*t218*t34*t219*rhoa-1.0*t3*t305*t35*t7+3.0*t197*t222*
4712         t34*t50*t55+6.0*t50*t304*t54*t34*t55-0.136986666666667*t1*
4713         t2*t3*t50*t197*t54*t55*t53+0.004258915466667*t1*t2*t3*t19*
4714         t304*t53-0.75*t3*t35*(0.190014189037037*grada*t40*t368-0.082214485447111*
4715         t196*t39*t367+0.003681518224119*t195*t38*t366-6.506054353320772E-5*
4716         t194*t37*t365+5.781780106954526E-7*t192*t56*t364-2.749152996496119E-9*
4717         t302*t223*t363+6.68391581359218E-12*t508*t376*t362-6.53334617201778E-15*
4718         t757*t612*t758)*t52+3.0*t137*t512-3.0*t11*t3*t35*t511+0.222222222222222*
4719         t198*t3*t35*t51-6.0*t197*t218*t220*t34*t50+t199*t478-0.09327*
4720         t19*t510*t34+3.0*t294*t306-0.001892851318519*t1*t2*t3*t19*
4721         t197*t221+96.4940495336121*t217*t197*t218*t34*t219+(-1.01378816*
4722         grada*t368*t68+0.055034852693333*grada*t368*t60*t67+0.135331787946667*
4723         t196*t367*t67-7.579894784000001E-4*grada*t368*t66*t65-0.00481916520448*
4724         t196*t367*t60*t65-0.00215401383936*t195*t366*t65+4.22085801984E-6*
4725         grada*t368*t64*t63+5.824985177087999E-5*t196*t367*t66*t63+
4726         6.79469008896E-5*t195*t366*t60*t63+7.48906315776E-6*t194*t365*
4727         t63-8.611185623040002E-9*grada*t368*t61*t138-3.0057895600128E-7*
4728         t196*t367*t64*t138-7.6882579881984E-7*t195*t366*t66*t138-2.2234226098176E-7*
4729         t194*t365*t60*t138+5.720287592448E-10*t196*t367*t61*t295+3.7795458760704E-9*
4730         t195*t366*t64*t295+2.4142744977408E-9*t194*t365*t66*t295-6.8844751552512E-12*
4731         t195*t366*t61*t479-1.14808106778624E-11*t194*t365*t64*t479+
4732         2.029108466810881E-14*t194*t365*t61*t720)*t148-0.41096*t1*
4733         t2*t3*t50*t304*t54*t55*t12-0.20548*t1*t2*t3*t50*t197*t222*
4734         t55*t12+0.0063883732*t1*t2*t3*t19*t510*t12+0.41096*t1*t2*t3*
4735         t50*t197*t218*t220*t12-6.60919909938887*t1*t2*t3*t217*t197*
4736         t218*t219*t12;
4737     d4fdrararagb = 3.0*t137*t513+t207*t478+3.0*t294*t307+
4738         (0.030558790826667*t21*gradb*t368*t67*t59-0.00108819859456*
4739         t21*gradb*t368*t60*t65*t59-0.00124706064384*t29*gradb*t367*
4740         t65*t59+1.3153192335360001E-5*t21*gradb*t368*t66*t63*t59+3.93376794624E-5*
4741         t29*gradb*t367*t60*t63*t59+7.48906315776E-6*t26*gradb*t366*
4742         t63*t59-6.787266748416001E-8*t21*gradb*t368*t64*t138*t59-4.451096730009599E-7*
4743         t29*gradb*t367*t66*t138*t59-2.2234226098176E-7*t26*gradb*t366*
4744         t60*t138*t59+1.291677843456E-10*t21*gradb*t368*t61*t295*t59+
4745         2.1881581387776E-9*t29*gradb*t367*t64*t295*t59+2.4142744977408E-9*
4746         t26*gradb*t366*t66*t295*t59-3.9857487740928E-12*t29*gradb*
4747         t367*t61*t479*t59-1.14808106778624E-11*t26*gradb*t366*t64*
4748         t479*t59+2.029108466810881E-14*t26*gradb*t366*t61*t720*t59)*
4749         t148;
4750     d4fdrararaab = 0.0;
4751     d4fdrararbrb = t69*(t70*(-480.0*t273*t275*t81*t90*t99-
4752         48.0*t185*t81*t82*t84*t99+48.0*t122*t81*t82*t84*t99+8.0*t127*
4753         t514*t81*t84*t99-8.0*t127*t493*t81*t84*t99+12.0*t275*t331*
4754         t81*t84*t99-48.0*t275*t297*t81*t84*t99+12.0*t267*t275*t81*
4755         t84*t99-8.0*t125*t514*t81*t83*t99-8.0*t125*t493*t81*t83*t99-
4756         240.0*t185*t452*t81*t83*t99-240.0*t122*t452*t81*t83*t99+20.0*
4757         t273*t331*t81*t83*t99+80.0*t273*t297*t81*t83*t99+20.0*t267*
4758         t273*t81*t83*t99-32.0*t125*t127*t331*t81*t99+96.0*t125*t185*
4759         t275*t81*t99+96.0*t122*t125*t275*t81*t99+160.0*t127*t185*t273*
4760         t81*t99-160.0*t122*t127*t273*t81*t99+32.0*t125*t127*t267*t81*
4761         t99+t81*t83*t84*t761*t99+0.019751789702565*(t707+t703+480.0*
4762         t273*t275)*t81*t86*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*
4763         t515*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*t499*t90*t93+
4764         9.76616268626835E-4*t81*t1*t2*t3*t240*t336*t90*t93+0.003906465074507*
4765         t81*t1*t2*t3*t240*t298*t90*t93+9.76616268626835E-4*t81*t1*
4766         t2*t3*t240*t277*t90*t93-0.004557542586925*t81*t1*t2*t3*t407*
4767         t187*t90*t93-0.004557542586925*t81*t1*t2*t3*t407*t128*t90*
4768         t93+0.019751789702565*t81*t85*t86*t761*t93+0.03950357940513*
4769         t81*t128*t86*t514*t93-0.00146492440294*t81*t1*t2*t3*t103*t85*
4770         t514*t93+0.03950357940513*t81*t187*t86*t493*t93-0.00146492440294*
4771         t81*t1*t2*t3*t103*t85*t493*t93+0.019751789702565*t81*t277*
4772         t86*t331*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*t85*t331*
4773         t93-0.00146492440294*t81*t1*t2*t3*t103*t128*t331*t93+0.079007158810261*
4774         t81*t298*t86*t297*t93+0.003906465074507*t81*t1*t2*t3*t240*
4775         t85*t297*t93-0.002929848805881*t81*t1*t2*t3*t103*t187*t297*
4776         t93-0.002929848805881*t81*t1*t2*t3*t103*t128*t297*t93+0.019751789702565*
4777         t81*t336*t86*t267*t93+9.76616268626835E-4*t81*t1*t2*t3*t240*
4778         t85*t267*t93-0.00146492440294*t81*t1*t2*t3*t103*t187*t267*
4779         t93+0.03950357940513*t81*t499*t86*t185*t93-0.004557542586925*
4780         t81*t1*t2*t3*t407*t85*t185*t93-0.002929848805881*t81*t1*t2*
4781         t3*t103*t298*t185*t93-0.00146492440294*t81*t1*t2*t3*t103*t277*
4782         t185*t93+0.001953232537254*t81*t1*t2*t3*t240*t187*t185*t93+
4783         0.003906465074507*t81*t1*t2*t3*t240*t128*t185*t93+0.03950357940513*
4784         t81*t515*t86*t122*t93-0.004557542586925*t81*t1*t2*t3*t407*
4785         t85*t122*t93-0.00146492440294*t81*t1*t2*t3*t103*t336*t122*
4786         t93-0.002929848805881*t81*t1*t2*t3*t103*t298*t122*t93+0.003906465074507*
4787         t81*t1*t2*t3*t240*t187*t122*t93+0.001953232537254*t81*t1*t2*
4788         t3*t240*t128*t122*t93-24.0*t275*t284*t81*t84*t90+192.0*t125*
4789         t133*t275*t81*t90+2.0*t133*t514*t81*t83*t84+2.0*t133*t493*
4790         t81*t83*t84+2.0*t185*t463*t81*t83*t84+2.0*t122*t463*t81*t83*
4791         t84+4.0*t284*t297*t81*t83*t84+8.0*t127*t133*t331*t81*t84+8.0*
4792         t127*t185*t284*t81*t84-8.0*t122*t127*t284*t81*t84-24.0*t133*
4793         t185*t275*t81*t84-24.0*t122*t133*t275*t81*t84-8.0*t127*t133*
4794         t267*t81*t84-8.0*t125*t133*t331*t81*t83-32.0*t125*t133*t297*
4795         t81*t83-24.0*t125*t185*t284*t81*t83-24.0*t122*t125*t284*t81*
4796         t83+120.0*t133*t185*t273*t81*t83+120.0*t122*t133*t273*t81*
4797         t83-8.0*t125*t133*t267*t81*t83-64.0*t125*t127*t133*t185*t81+
4798         64.0*t122*t125*t127*t133*t81+t719+t717+t715+t713+t712+t711+
4799         t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+
4800         t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+
4801         t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+
4802         t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-2050.77940420156*
4803         t81*t187*t411*t86*t412*t90*t413-2050.77940420156*t81*t128*
4804         t411*t86*t412*t90*t413-2050.77940420156*t81*t85*t411*t86*t412*
4805         t185*t413-2050.77940420156*t81*t85*t411*t86*t412*t122*t413+
4806         t81*t83*t84*t331*t284+t81*t83*t84*t267*t284+207.7890707925104*
4807         t81*t187*t411*t86*t416*t90*t246+207.7890707925104*t81*t128*
4808         t411*t86*t416*t90*t246-17.31575589937587*t81*t336*t244*t86*
4809         t245*t90*t246-69.26302359750346*t81*t298*t244*t86*t245*t90*
4810         t246-17.31575589937587*t81*t277*t244*t86*t245*t90*t246-103.8945353962552*
4811         t81*t187*t252*t109*t86*t245*t90*t246-103.8945353962552*t81*
4812         t128*t252*t109*t86*t245*t90*t246+3.85275568761113*t81*t1*t2*
4813         t3*t103*t187*t244*t245*t90*t246+3.85275568761113*t81*t1*t2*
4814         t3*t103*t128*t244*t245*t90*t246-17.31575589937587*t81*t85*
4815         t244*t86*t245*t331*t246-69.26302359750346*t81*t85*t244*t86*
4816         t245*t297*t246-17.31575589937587*t81*t85*t244*t86*t245*t267*
4817         t246+207.7890707925104*t81*t85*t411*t86*t416*t185*t246-34.63151179875173*
4818         t81*t187*t244*t86*t245*t185*t246-69.26302359750346*t81*t128*
4819         t244*t86*t245*t185*t246-103.8945353962552*t81*t85*t252*t109*
4820         t86*t245*t185*t246+3.85275568761113*t81*t1*t2*t3*t103*t85*
4821         t244*t245*t185*t246+207.7890707925104*t81*t85*t411*t86*t416*
4822         t122*t246-69.26302359750346*t81*t187*t244*t86*t245*t122*t246-
4823         34.63151179875173*t81*t128*t244*t86*t245*t122*t246-103.8945353962552*
4824         t81*t85*t252*t109*t86*t245*t122*t246+3.85275568761113*t81*
4825         t1*t2*t3*t103*t85*t244*t245*t122*t246+1.169644679491041*t81*
4826         t336*t244*t86*t249*t90*t111+4.678578717964164*t81*t298*t244*
4827         t86*t249*t90*t111+1.169644679491041*t81*t277*t244*t86*t249*
4828         t90*t111+7.017868076946245*t81*t187*t252*t109*t86*t249*t90*
4829         t111+7.017868076946245*t81*t128*t252*t109*t86*t249*t90*t111-
4830         0.260245941186757*t81*t1*t2*t3*t103*t187*t244*t249*t90*t111-
4831         0.260245941186757*t81*t1*t2*t3*t103*t128*t244*t249*t90*t111-
4832         7.017868076946245*t81*t187*t411*t86*t245*t90*t111-7.017868076946245*
4833         t81*t128*t411*t86*t245*t90*t111-1.169644679491041*t81*t187*
4834         t431*t86*t110*t90*t111-1.169644679491041*t81*t128*t431*t86*
4835         t110*t90*t111-0.58482233974552*t81*t336*t252*t86*t110*t90*
4836         t111-2.339289358982082*t81*t298*t252*t86*t110*t90*t111-0.58482233974552*
4837         t81*t277*t252*t86*t110*t90*t111-1.169644679491041*t81*t515*
4838         t109*t86*t110*t90*t111-1.169644679491041*t81*t499*t109*t86*
4839         t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t187*t252*
4840         t110*t90*t111+0.130122970593378*t81*t1*t2*t3*t103*t128*t252*
4841         t110*t90*t111+0.043374323531126*t81*t1*t2*t3*t103*t336*t109*
4842         t110*t90*t111+0.173497294124504*t81*t1*t2*t3*t103*t298*t109*
4843         t110*t90*t111+0.043374323531126*t81*t1*t2*t3*t103*t277*t109*
4844         t110*t90*t111-0.173497294124504*t81*t1*t2*t3*t240*t187*t109*
4845         t110*t90*t111-0.173497294124504*t81*t1*t2*t3*t240*t128*t109*
4846         t110*t90*t111-1.169644679491041*t81*t85*t109*t86*t110*t514*
4847         t111-1.169644679491041*t81*t85*t109*t86*t110*t493*t111+1.169644679491041*
4848         t81*t85*t244*t86*t249*t331*t111-0.58482233974552*t81*t85*t252*
4849         t86*t110*t331*t111-1.169644679491041*t81*t128*t109*t86*t110*
4850         t331*t111+0.043374323531126*t81*t1*t2*t3*t103*t85*t109*t110*
4851         t331*t111+4.678578717964164*t81*t85*t244*t86*t249*t297*t111-
4852         2.339289358982082*t81*t85*t252*t86*t110*t297*t111-2.339289358982082*
4853         t81*t187*t109*t86*t110*t297*t111-2.339289358982082*t81*t128*
4854         t109*t86*t110*t297*t111+0.173497294124504*t81*t1*t2*t3*t103*
4855         t85*t109*t110*t297*t111+1.169644679491041*t81*t85*t244*t86*
4856         t249*t267*t111-0.58482233974552*t81*t85*t252*t86*t110*t267*
4857         t111-1.169644679491041*t81*t187*t109*t86*t110*t267*t111+0.043374323531126*
4858         t81*t1*t2*t3*t103*t85*t109*t110*t267*t111+2.339289358982082*
4859         t81*t187*t244*t86*t249*t185*t111+4.678578717964164*t81*t128*
4860         t244*t86*t249*t185*t111+7.017868076946245*t81*t85*t252*t109*
4861         t86*t249*t185*t111-0.260245941186757*t81*t1*t2*t3*t103*t85*
4862         t244*t249*t185*t111-7.017868076946245*t81*t85*t411*t86*t245*
4863         t185*t111-1.169644679491041*t81*t85*t431*t86*t110*t185*t111-
4864         1.169644679491041*t81*t187*t252*t86*t110*t185*t111-2.339289358982082*
4865         t81*t128*t252*t86*t110*t185*t111-2.339289358982082*t81*t298*
4866         t109*t86*t110*t185*t111-1.169644679491041*t81*t277*t109*t86*
4867         t110*t185*t111+0.130122970593378*t81*t1*t2*t3*t103*t85*t252*
4868         t110*t185*t111-0.173497294124504*t81*t1*t2*t3*t240*t85*t109*
4869         t110*t185*t111+0.086748647062252*t81*t1*t2*t3*t103*t187*t109*
4870         t110*t185*t111+0.173497294124504*t81*t1*t2*t3*t103*t128*t109*
4871         t110*t185*t111+4.678578717964164*t81*t187*t244*t86*t249*t122*
4872         t111+2.339289358982082*t81*t128*t244*t86*t249*t122*t111+7.017868076946245*
4873         t81*t85*t252*t109*t86*t249*t122*t111-0.260245941186757*t81*
4874         t1*t2*t3*t103*t85*t244*t249*t122*t111-7.017868076946245*t81*
4875         t85*t411*t86*t245*t122*t111-1.169644679491041*t81*t85*t431*
4876         t86*t110*t122*t111-2.339289358982082*t81*t187*t252*t86*t110*
4877         t122*t111-1.169644679491041*t81*t128*t252*t86*t110*t122*t111-
4878         1.169644679491041*t81*t336*t109*t86*t110*t122*t111-2.339289358982082*
4879         t81*t298*t109*t86*t110*t122*t111+0.130122970593378*t81*t1*
4880         t2*t3*t103*t85*t252*t110*t122*t111-0.173497294124504*t81*t1*
4881         t2*t3*t240*t85*t109*t110*t122*t111+0.173497294124504*t81*t1*
4882         t2*t3*t103*t187*t109*t110*t122*t111+0.086748647062252*t81*
4883         t1*t2*t3*t103*t128*t109*t110*t122*t111)+192.0*t125*t275*t81*
4884         t90*t99+2.0*t514*t81*t83*t84*t99+2.0*t493*t81*t83*t84*t99+
4885         8.0*t127*t331*t81*t84*t99-8.0*t127*t267*t81*t84*t99-8.0*t125*
4886         t331*t81*t83*t99-32.0*t125*t297*t81*t83*t99+120.0*t185*t273*
4887         t81*t83*t99+120.0*t122*t273*t81*t83*t99-8.0*t125*t267*t81*
4888         t83*t99-64.0*t125*t127*t185*t81*t99+64.0*t122*t125*t127*t81*
4889         t99+0.03950357940513*t81*t515*t86*t90*t93+0.03950357940513*
4890         t81*t499*t86*t90*t93-0.00146492440294*t81*t1*t2*t3*t103*t336*
4891         t90*t93-0.005859697611761*t81*t1*t2*t3*t103*t298*t90*t93-0.00146492440294*
4892         t81*t1*t2*t3*t103*t277*t90*t93+0.005859697611761*t81*t1*t2*
4893         t3*t240*t187*t90*t93+0.005859697611761*t81*t1*t2*t3*t240*t128*
4894         t90*t93+0.03950357940513*t81*t85*t86*t514*t93+0.03950357940513*
4895         t81*t85*t86*t493*t93+0.03950357940513*t81*t128*t86*t331*t93-
4896         0.00146492440294*t81*t1*t2*t3*t103*t85*t331*t93+0.079007158810261*
4897         t81*t187*t86*t297*t93+0.079007158810261*t81*t128*t86*t297*
4898         t93-0.005859697611761*t81*t1*t2*t3*t103*t85*t297*t93+0.03950357940513*
4899         t81*t187*t86*t267*t93-0.00146492440294*t81*t1*t2*t3*t103*t85*
4900         t267*t93+0.079007158810261*t81*t298*t86*t185*t93+0.03950357940513*
4901         t81*t277*t86*t185*t93+0.005859697611761*t81*t1*t2*t3*t240*
4902         t85*t185*t93-0.002929848805881*t81*t1*t2*t3*t103*t187*t185*
4903         t93-0.005859697611761*t81*t1*t2*t3*t103*t128*t185*t93+0.03950357940513*
4904         t81*t336*t86*t122*t93+0.079007158810261*t81*t298*t86*t122*
4905         t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t122*t93-0.005859697611761*
4906         t81*t1*t2*t3*t103*t187*t122*t93-0.002929848805881*t81*t1*t2*
4907         t3*t103*t128*t122*t93-48.0*t133*t275*t81*t84*t90+2.0*t133*
4908         t331*t81*t83*t84+8.0*t133*t297*t81*t83*t84+6.0*t185*t284*t81*
4909         t83*t84+6.0*t122*t284*t81*t83*t84+2.0*t133*t267*t81*t83*t84+
4910         16.0*t127*t133*t185*t81*t84-16.0*t122*t127*t133*t81*t84-48.0*
4911         t125*t133*t185*t81*t83-48.0*t122*t125*t133*t81*t83+t639+t637+
4912         t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
4913         t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+t614+t613+
4914         t516+t503-103.8945353962552*t81*t187*t244*t86*t245*t90*t246-
4915         103.8945353962552*t81*t128*t244*t86*t245*t90*t246-103.8945353962552*
4916         t81*t85*t244*t86*t245*t185*t246-103.8945353962552*t81*t85*
4917         t244*t86*t245*t122*t246+7.017868076946245*t81*t187*t244*t86*
4918         t249*t90*t111+7.017868076946245*t81*t128*t244*t86*t249*t90*
4919         t111-3.508934038473122*t81*t187*t252*t86*t110*t90*t111-3.508934038473122*
4920         t81*t128*t252*t86*t110*t90*t111-1.169644679491041*t81*t336*
4921         t109*t86*t110*t90*t111-4.678578717964164*t81*t298*t109*t86*
4922         t110*t90*t111-1.169644679491041*t81*t277*t109*t86*t110*t90*
4923         t111+0.260245941186757*t81*t1*t2*t3*t103*t187*t109*t110*t90*
4924         t111+0.260245941186757*t81*t1*t2*t3*t103*t128*t109*t110*t90*
4925         t111-1.169644679491041*t81*t85*t109*t86*t110*t331*t111-4.678578717964164*
4926         t81*t85*t109*t86*t110*t297*t111-1.169644679491041*t81*t85*
4927         t109*t86*t110*t267*t111+7.017868076946245*t81*t85*t244*t86*
4928         t249*t185*t111-3.508934038473122*t81*t85*t252*t86*t110*t185*
4929         t111-2.339289358982082*t81*t187*t109*t86*t110*t185*t111-4.678578717964164*
4930         t81*t128*t109*t86*t110*t185*t111+0.260245941186757*t81*t1*
4931         t2*t3*t103*t85*t109*t110*t185*t111+7.017868076946245*t81*t85*
4932         t244*t86*t249*t122*t111-3.508934038473122*t81*t85*t252*t86*
4933         t110*t122*t111-4.678578717964164*t81*t187*t109*t86*t110*t122*
4934         t111-2.339289358982082*t81*t128*t109*t86*t110*t122*t111+0.260245941186757*
4935         t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+2.0*t137*t518+2.0*
4936         t139*t517+2.0*t190*t507+2.0*t191*t506+t296*t343+4.0*t300*t301+
4937         t344*t294+(-0.032013971342222*t21*t58*t215*t67*t315+0.001140017575253*
4938         t21*t58*t215*t60*t65*t315+5.542491750399999E-4*t29*t58*t214*
4939         t65*t315-1.3779534827519999E-5*t21*t58*t215*t66*t63*t315-1.7483413094399997E-5*
4940         t29*t58*t214*t60*t63*t315+7.110469926911999E-8*t21*t58*t215*
4941         t64*t138*t315+1.9782652133376E-7*t29*t58*t214*t66*t138*t315-
4942         1.353186312192E-10*t21*t58*t215*t61*t295*t315-9.725147283456E-10*
4943         t29*t58*t214*t64*t295*t315+1.771443899596801E-12*t29*t58*t214*
4944         t61*t479*t315+5.542491750399999E-4*t21*t156*t215*t65*t314-
4945         1.7483413094399997E-5*t21*t156*t215*t60*t63*t314-9.985417543679999E-6*
4946         t29*t156*t214*t63*t314+1.9782652133376E-7*t21*t156*t215*t66*
4947         t138*t314+2.9645634797568E-7*t29*t156*t214*t60*t138*t314-9.725147283456E-10*
4948         t21*t156*t215*t64*t295*t314-3.2190326636544E-9*t29*t156*t214*
4949         t66*t295*t314+1.7714438995968E-12*t21*t156*t215*t61*t479*t314+
4950         1.530774757048321E-11*t29*t156*t214*t64*t479*t314-2.705477955747841E-14*
4951         t29*t156*t214*t61*t720*t314)*t148;
4952     d4fdrararbga = 2.0*t137*t519+t199*t506+2.0*t300*t306+
4953         t345*t294+t512*t190+(0.017462166186667*grada*t58*t215*t67*
4954         t173-6.2182776832E-4*grada*t58*t215*t60*t65*t173-0.00102032234496*
4955         t196*t58*t214*t65*t173+7.516109905919999E-6*grada*t58*t215*
4956         t66*t63*t173+3.21853741056E-5*t196*t58*t214*t60*t63*t173+7.48906315776E-6*
4957         t195*t58*t213*t63*t173-3.878438141952E-8*grada*t58*t215*t64*
4958         t138*t173-3.6418064154624E-7*t196*t58*t214*t66*t138*t173-2.2234226098176E-7*
4959         t195*t58*t213*t60*t138*t173+7.38101624832E-11*grada*t58*t215*
4960         t61*t295*t173+1.7903112044544E-9*t196*t58*t214*t64*t295*t173+
4961         2.4142744977408E-9*t195*t58*t213*t66*t295*t173-3.2610671788032E-12*
4962         t196*t58*t214*t61*t479*t173-1.14808106778624E-11*t195*t58*
4963         t213*t64*t479*t173+2.029108466810881E-14*t195*t58*t213*t61*
4964         t720*t173)*t148;
4965     d4fdrararbgb = 2.0*t137*t520+t207*t506+2.0*t300*t307+
4966         t350*t294+t513*t190+(0.017462166186667*t21*gradb*t215*t67*
4967         t173-6.2182776832E-4*t21*gradb*t215*t60*t65*t173-3.0231773184E-4*
4968         t29*gradb*t214*t65*t173+7.516109905919999E-6*t21*gradb*t215*
4969         t66*t63*t173+9.5364071424E-6*t29*gradb*t214*t60*t63*t173-3.878438141952E-8*
4970         t21*gradb*t215*t64*t138*t173-1.0790537527296E-7*t29*gradb*
4971         t214*t66*t138*t173+7.38101624832E-11*t21*gradb*t215*t61*t295*
4972         t173+5.304625790976E-10*t29*gradb*t214*t64*t295*t173-9.662421270528E-13*
4973         t29*gradb*t214*t61*t479*t173-4.1568688128E-4*t21*t204*t215*
4974         t65*t172+1.31125598208E-5*t21*t204*t215*t60*t63*t172+7.48906315776E-6*
4975         t29*t204*t214*t63*t172-1.4836989100032E-7*t21*t204*t215*t66*
4976         t138*t172-2.2234226098176E-7*t29*t204*t214*t60*t138*t172+7.293860462592E-10*
4977         t21*t204*t215*t64*t295*t172+2.4142744977408E-9*t29*t204*t214*
4978         t66*t295*t172-1.328582924697601E-12*t21*t204*t215*t61*t479*
4979         t172-1.14808106778624E-11*t29*t204*t214*t64*t479*t172+2.029108466810881E-14*
4980         t29*t204*t214*t61*t720*t172)*t148;
4981     d4fdrararbab = 0.0;
4982     d4fdraragaga = 2.0*t34*t50*t522*t54*t55*rhoa+t50*t352*
4983         t222*t34*t55*rhoa-2.0*t218*t220*t34*t352*t50*rhoa-0.03109*
4984         t19*(0.334552142222222*t32*t215+1.908973703111112*t21*t30*
4985         t214-36.52114729244445*t29*t27*t213+69.57260511232002*t26*
4986         t24*t212-48.34252654728535*t20*t43*t211+15.46954954069334*
4987         t42*t209*t210-2.325940142080001*t208*t361*t509+0.133390401536*
4988         t360*t597*t762)*t34*rhoa+32.1646831778707*t217*t352*t218*t34*
4989         t219*rhoa-0.333333333333333*t3*t35*t353*t7+2.0*t34*t352*t50*
4990         t54*t55+0.001419638488889*t1*t2*t3*t19*t352*t53+2.0*t137*t524-
4991         2.0*t11*t3*t35*t523-0.75*(-0.040717326222222*t40*t215+0.033781261596444*
4992         t21*t39*t214-0.001900235597369*t29*t38*t213+3.812942392069689E-5*
4993         t26*t37*t212-3.690446131764338E-7*t20*t56*t211+1.871412445548089E-9*
4994         t42*t223*t210-4.79418643032747E-12*t208*t376*t509+4.90000962901333E-15*
4995         t360*t612*t762)*t3*t35*t52-0.06218*t19*t522*t34+t354*t294+
4996         (0.21724032*t215*t68-0.01179318272*t215*t60*t67-0.06131601536*
4997         t21*t214*t67+1.6242631680000002E-4*t215*t66*t65+0.00218346341376*
4998         t21*t214*t60*t65+0.00133208750592*t29*t213*t65-9.044695756799999E-7*
4999         t215*t64*t63-2.6391795010560004E-5*t21*t214*t66*t63-4.20197939712E-5*
5000         t29*t213*t60*t63-5.616797368320001E-6*t26*t212*t63+1.84525406208E-9*
5001         t215*t61*t138+1.3618606657536E-7*t21*t214*t64*t138+4.754580597964801E-7*
5002         t29*t213*t66*t138+1.6675669573632E-7*t26*t212*t60*t138-2.591743205376E-10*
5003         t21*t214*t61*t295-2.3373507391488E-9*t29*t213*t64*t295-1.8107058733056E-9*
5004         t26*t212*t66*t295+4.2575043723264E-12*t29*t213*t61*t479+8.6106080083968E-12*
5005         t26*t212*t64*t479-1.521831350108161E-14*t26*t212*t61*t720)*
5006         t148-0.136986666666667*t1*t2*t3*t50*t352*t54*t55*t12+0.004258915466667*
5007         t1*t2*t3*t19*t522*t12;
5008     d4fdraragagb = 2.0*t137*t525+t355*t294+(-0.01309662464*
5009         grada*gradb*t215*t67*t59+4.663708262400001E-4*grada*gradb*
5010         t215*t60*t65*t59+7.652417587200001E-4*t196*gradb*t214*t65*
5011         t59-5.63708242944E-6*grada*gradb*t215*t66*t63*t59-2.4139030579200004E-5*
5012         t196*gradb*t214*t60*t63*t59-5.616797368320001E-6*t195*gradb*
5013         t213*t63*t59+2.908828606464E-8*grada*gradb*t215*t64*t138*t59+
5014         2.7313548115968E-7*t196*gradb*t214*t66*t138*t59+1.6675669573632E-7*
5015         t195*gradb*t213*t60*t138*t59-5.53576218624E-11*grada*gradb*
5016         t215*t61*t295*t59-1.3427334033408E-9*t196*gradb*t214*t64*t295*
5017         t59-1.8107058733056E-9*t195*gradb*t213*t66*t295*t59+2.4458003841024E-12*
5018         t196*gradb*t214*t61*t479*t59+8.6106080083968E-12*t195*gradb*
5019         t213*t64*t479*t59-1.521831350108161E-14*t195*gradb*t213*t61*
5020         t720*t59)*t148;
5021     d4fdraragaab = 0.0;
5022     d4fdraragbgb = 2.0*t137*t526+t359*t294+(-0.00654831232*
5023         t21*t215*t67*t59+2.3318541312000003E-4*t21*t215*t60*t65*t59+
5024         1.1336914944E-4*t29*t214*t65*t59-2.81854121472E-6*t21*t215*
5025         t66*t63*t59-3.5761526784E-6*t29*t214*t60*t63*t59+1.454414303232E-8*
5026         t21*t215*t64*t138*t59+4.046451572736E-8*t29*t214*t66*t138*
5027         t59-2.767881093120001E-11*t21*t215*t61*t295*t59-1.989234671616E-10*
5028         t29*t214*t64*t295*t59+3.623407976448E-13*t29*t214*t61*t479*
5029         t59+3.1176516096E-4*t21*t58*t215*t65*t158-9.834419865600001E-6*
5030         t21*t58*t215*t60*t63*t158-5.616797368320001E-6*t29*t58*t214*
5031         t63*t158+1.1127741825024001E-7*t21*t58*t215*t66*t138*t158+
5032         1.6675669573632E-7*t29*t58*t214*t60*t138*t158-5.470395346944E-10*
5033         t21*t58*t215*t64*t295*t158-1.8107058733056E-9*t29*t58*t214*
5034         t66*t295*t158+9.964371935232E-13*t21*t58*t215*t61*t479*t158+
5035         8.6106080083968E-12*t29*t58*t214*t64*t479*t158-1.521831350108161E-14*
5036         t29*t58*t214*t61*t720*t158)*t148;
5037     d4fdraragbab = 0.0;
5038     d4fdraraabab = 0.0;
5039     d4fdrarbrbrb = t69*(t70*(-192.0*t125*t81*t82*t90*t99+
5040         960.0*t127*t452*t81*t90*t99+72.0*t185*t81*t82*t84*t99-24.0*
5041         t122*t81*t82*t84*t99+4.0*t127*t557*t81*t84*t99-12.0*t127*t514*
5042         t81*t84*t99-36.0*t275*t331*t81*t84*t99-4.0*t125*t557*t81*t83*
5043         t99-12.0*t125*t514*t81*t83*t99-360.0*t185*t452*t81*t83*t99-
5044         120.0*t122*t452*t81*t83*t99+60.0*t273*t331*t81*t83*t99+96.0*
5045         t125*t127*t297*t81*t99+144.0*t125*t185*t275*t81*t99-144.0*
5046         t122*t125*t275*t81*t99-240.0*t127*t185*t273*t81*t99-240.0*
5047         t122*t127*t273*t81*t99+t81*t83*t84*t763*t99+0.019751789702565*
5048         t81*(192.0*t125*t82+t707+t700-960.0*t127*t452)*t86*t90*t93-
5049         7.324622014701263E-4*t81*t1*t2*t3*t103*t563*t90*t93-0.00219738660441*
5050         t81*t1*t2*t3*t103*t515*t90*t93+0.002929848805881*t81*t1*t2*
5051         t3*t240*t336*t90*t93-0.006836313880388*t81*t1*t2*t3*t407*t187*
5052         t90*t93-0.002278771293463*t81*t1*t2*t3*t407*t128*t90*t93+0.019751789702565*
5053         t81*t85*t86*t763*t93+0.019751789702565*t81*t128*t86*t557*t93-
5054         7.324622014701263E-4*t81*t1*t2*t3*t103*t85*t557*t93+0.059255369107696*
5055         t81*t187*t86*t514*t93-0.00219738660441*t81*t1*t2*t3*t103*t85*
5056         t514*t93+0.059255369107696*t81*t298*t86*t331*t93+0.002929848805881*
5057         t81*t1*t2*t3*t240*t85*t331*t93-0.00219738660441*t81*t1*t2*
5058         t3*t103*t187*t331*t93-0.00219738660441*t81*t1*t2*t3*t103*t128*
5059         t331*t93+0.059255369107696*t81*t336*t86*t297*t93-0.004394773208821*
5060         t81*t1*t2*t3*t103*t187*t297*t93+0.059255369107696*t81*t515*
5061         t86*t185*t93-0.006836313880388*t81*t1*t2*t3*t407*t85*t185*
5062         t93-0.00219738660441*t81*t1*t2*t3*t103*t336*t185*t93-0.004394773208821*
5063         t81*t1*t2*t3*t103*t298*t185*t93+0.005859697611761*t81*t1*t2*
5064         t3*t240*t187*t185*t93+0.019751789702565*t81*t563*t86*t122*
5065         t93-0.002278771293463*t81*t1*t2*t3*t407*t85*t122*t93-0.00219738660441*
5066         t81*t1*t2*t3*t103*t336*t122*t93+48.0*t133*t81*t82*t84*t90-
5067         8.0*t127*t463*t81*t84*t90+96.0*t125*t127*t284*t81*t90-480.0*
5068         t127*t133*t273*t81*t90+3.0*t133*t514*t81*t83*t84+3.0*t185*
5069         t463*t81*t83*t84+3.0*t284*t331*t81*t83*t84-24.0*t127*t133*
5070         t297*t81*t84-12.0*t127*t185*t284*t81*t84-12.0*t122*t127*t284*
5071         t81*t84-36.0*t133*t185*t275*t81*t84+36.0*t122*t133*t275*t81*
5072         t84-24.0*t125*t133*t331*t81*t83-36.0*t125*t185*t284*t81*t83-
5073         12.0*t122*t125*t284*t81*t83+180.0*t133*t185*t273*t81*t83+60.0*
5074         t122*t133*t273*t81*t83+96.0*t125*t127*t133*t185*t81+96.0*t122*
5075         t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
5076         t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
5077         t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
5078         t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
5079         t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
5080         t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
5081         t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t122*t463-
5082         3076.169106302339*t81*t187*t411*t86*t412*t90*t413-1025.38970210078*
5083         t81*t128*t411*t86*t412*t90*t413-3076.169106302339*t81*t85*
5084         t411*t86*t412*t185*t413-1025.38970210078*t81*t85*t411*t86*
5085         t412*t122*t413+311.6836061887656*t81*t187*t411*t86*t416*t90*
5086         t246+103.8945353962552*t81*t128*t411*t86*t416*t90*t246-51.9472676981276*
5087         t81*t336*t244*t86*t245*t90*t246-155.8418030943828*t81*t187*
5088         t252*t109*t86*t245*t90*t246-51.9472676981276*t81*t128*t252*
5089         t109*t86*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
5090         t187*t244*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
5091         t128*t244*t245*t90*t246-51.9472676981276*t81*t85*t244*t86*
5092         t245*t331*t246+311.6836061887656*t81*t85*t411*t86*t416*t185*
5093         t246-103.8945353962552*t81*t187*t244*t86*t245*t185*t246-155.8418030943828*
5094         t81*t85*t252*t109*t86*t245*t185*t246+5.779133531416695*t81*
5095         t1*t2*t3*t103*t85*t244*t245*t185*t246+103.8945353962552*t81*
5096         t85*t411*t86*t416*t122*t246-51.9472676981276*t81*t85*t252*
5097         t109*t86*t245*t122*t246+1.926377843805565*t81*t1*t2*t3*t103*
5098         t85*t244*t245*t122*t246+t81*t83*t84*t557*t133+3.508934038473122*
5099         t81*t336*t244*t86*t249*t90*t111+10.52680211541937*t81*t187*
5100         t252*t109*t86*t249*t90*t111+3.508934038473122*t81*t128*t252*
5101         t109*t86*t249*t90*t111-0.390368911780135*t81*t1*t2*t3*t103*
5102         t187*t244*t249*t90*t111-0.130122970593378*t81*t1*t2*t3*t103*
5103         t128*t244*t249*t90*t111-10.52680211541937*t81*t187*t411*t86*
5104         t245*t90*t111-3.508934038473122*t81*t128*t411*t86*t245*t90*
5105         t111-1.754467019236561*t81*t187*t431*t86*t110*t90*t111-0.58482233974552*
5106         t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t336*
5107         t252*t86*t110*t90*t111-0.58482233974552*t81*t563*t109*t86*
5108         t110*t90*t111-1.754467019236561*t81*t515*t109*t86*t110*t90*
5109         t111+0.195184455890067*t81*t1*t2*t3*t103*t187*t252*t110*t90*
5110         t111+0.065061485296689*t81*t1*t2*t3*t103*t128*t252*t110*t90*
5111         t111+0.130122970593378*t81*t1*t2*t3*t103*t336*t109*t110*t90*
5112         t111-0.260245941186757*t81*t1*t2*t3*t240*t187*t109*t110*t90*
5113         t111-0.086748647062252*t81*t1*t2*t3*t240*t128*t109*t110*t90*
5114         t111-0.58482233974552*t81*t85*t109*t86*t110*t557*t111-1.754467019236561*
5115         t81*t85*t109*t86*t110*t514*t111+3.508934038473122*t81*t85*
5116         t244*t86*t249*t331*t111-1.754467019236561*t81*t85*t252*t86*
5117         t110*t331*t111-1.754467019236561*t81*t187*t109*t86*t110*t331*
5118         t111-1.754467019236561*t81*t128*t109*t86*t110*t331*t111+0.130122970593378*
5119         t81*t1*t2*t3*t103*t85*t109*t110*t331*t111-3.508934038473122*
5120         t81*t187*t109*t86*t110*t297*t111+7.017868076946245*t81*t187*
5121         t244*t86*t249*t185*t111+10.52680211541937*t81*t85*t252*t109*
5122         t86*t249*t185*t111-0.390368911780135*t81*t1*t2*t3*t103*t85*
5123         t244*t249*t185*t111-10.52680211541937*t81*t85*t411*t86*t245*
5124         t185*t111-1.754467019236561*t81*t85*t431*t86*t110*t185*t111-
5125         3.508934038473122*t81*t187*t252*t86*t110*t185*t111-1.754467019236561*
5126         t81*t336*t109*t86*t110*t185*t111-3.508934038473122*t81*t298*
5127         t109*t86*t110*t185*t111+0.195184455890067*t81*t1*t2*t3*t103*
5128         t85*t252*t110*t185*t111-0.260245941186757*t81*t1*t2*t3*t240*
5129         t85*t109*t110*t185*t111+0.260245941186757*t81*t1*t2*t3*t103*
5130         t187*t109*t110*t185*t111+3.508934038473122*t81*t85*t252*t109*
5131         t86*t249*t122*t111-0.130122970593378*t81*t1*t2*t3*t103*t85*
5132         t244*t249*t122*t111-3.508934038473122*t81*t85*t411*t86*t245*
5133         t122*t111-0.58482233974552*t81*t85*t431*t86*t110*t122*t111-
5134         1.754467019236561*t81*t336*t109*t86*t110*t122*t111+0.065061485296689*
5135         t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-0.086748647062252*
5136         t81*t1*t2*t3*t240*t85*t109*t110*t122*t111)+48.0*t81*t82*t84*
5137         t90*t99-480.0*t127*t273*t81*t90*t99+3.0*t514*t81*t83*t84*t99-
5138         24.0*t127*t297*t81*t84*t99-36.0*t185*t275*t81*t84*t99-24.0*
5139         t125*t331*t81*t83*t99+180.0*t185*t273*t81*t83*t99+96.0*t122*
5140         t125*t127*t81*t99+0.059255369107696*t81*t515*t86*t90*t93-0.004394773208821*
5141         t81*t1*t2*t3*t103*t336*t90*t93+0.008789546417642*t81*t1*t2*
5142         t3*t240*t187*t90*t93+0.059255369107696*t81*t85*t86*t514*t93+
5143         0.059255369107696*t81*t128*t86*t331*t93-0.004394773208821*
5144         t81*t1*t2*t3*t103*t85*t331*t93+0.118510738215391*t81*t187*
5145         t86*t297*t93+0.118510738215391*t81*t298*t86*t185*t93+0.008789546417642*
5146         t81*t1*t2*t3*t240*t85*t185*t93-0.008789546417642*t81*t1*t2*
5147         t3*t103*t187*t185*t93+0.059255369107696*t81*t336*t86*t122*
5148         t93-24.0*t127*t284*t81*t84*t90+192.0*t125*t127*t133*t81*t90+
5149         6.0*t133*t331*t81*t83*t84+9.0*t185*t284*t81*t83*t84-24.0*t122*
5150         t127*t133*t81*t84-72.0*t125*t133*t185*t81*t83+t730+t729+t728+
5151         t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
5152         t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
5153         t621+t620+t619+t618+t617+t616+t615+t614+t613+t570+t568+t567+
5154         t564+t561+t559+t558+t474+t472+t467+t465+t450+t448+t433+t429+
5155         t427+t423+t422+t421+t420+t415-155.8418030943828*t81*t187*t244*
5156         t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
5157         t185*t246+10.52680211541937*t81*t187*t244*t86*t249*t90*t111-
5158         5.263401057709684*t81*t187*t252*t86*t110*t90*t111-3.508934038473123*
5159         t81*t336*t109*t86*t110*t90*t111+0.390368911780135*t81*t1*t2*
5160         t3*t103*t187*t109*t110*t90*t111-3.508934038473123*t81*t85*
5161         t109*t86*t110*t331*t111+10.52680211541937*t81*t85*t244*t86*
5162         t249*t185*t111-5.263401057709684*t81*t85*t252*t86*t110*t185*
5163         t111-7.017868076946246*t81*t187*t109*t86*t110*t185*t111+0.390368911780135*
5164         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111)+t139*t572+3.0*t190*
5165         t518+3.0*t191*t517+3.0*t300*t344+3.0*t301*t343+(-0.040745054435556*
5166         t21*t58*t48*t67*t535+0.001450931459413*t21*t58*t48*t60*t65*
5167         t535-1.753758978048E-5*t21*t58*t48*t66*t63*t535+9.049688997888E-8*
5168         t21*t58*t48*t64*t138*t535-1.722237124608E-10*t21*t58*t48*t61*
5169         t295*t535+0.00166274752512*t21*t156*t48*t65*t534-5.24502392832E-5*
5170         t21*t156*t48*t60*t63*t534+5.9347956400128E-7*t21*t156*t48*
5171         t66*t138*t534-2.9175441850368E-9*t21*t156*t48*t64*t295*t534+
5172         5.3143316987904E-12*t21*t156*t48*t61*t479*t534-9.985417543679999E-6*
5173         t21*t153*t48*t63*t533+2.9645634797568E-7*t21*t153*t48*t60*
5174         t138*t533-3.2190326636544E-9*t21*t153*t48*t66*t295*t533+1.530774757048321E-11*
5175         t21*t153*t48*t64*t479*t533-2.705477955747841E-14*t21*t153*
5176         t48*t61*t720*t533)*t148+t573*t137;
5177     d4fdrarbrbga = 2.0*t190*t519+t199*t517+2.0*t300*t345+
5178         t306*t343+(0.017462166186667*grada*t58*t48*t67*t315-6.2182776832E-4*
5179         grada*t58*t48*t60*t65*t315-4.1568688128E-4*t196*t58*t47*t65*
5180         t315+7.516109905919999E-6*grada*t58*t48*t66*t63*t315+1.31125598208E-5*
5181         t196*t58*t47*t60*t63*t315-3.878438141952E-8*grada*t58*t48*
5182         t64*t138*t315-1.4836989100032E-7*t196*t58*t47*t66*t138*t315+
5183         7.38101624832E-11*grada*t58*t48*t61*t295*t315+7.293860462592E-10*
5184         t196*t58*t47*t64*t295*t315-1.328582924697601E-12*t196*t58*
5185         t47*t61*t479*t315-3.0231773184E-4*grada*t156*t48*t65*t314+
5186         9.5364071424E-6*grada*t156*t48*t60*t63*t314+7.48906315776E-6*
5187         t196*t156*t47*t63*t314-1.0790537527296E-7*grada*t156*t48*t66*
5188         t138*t314-2.2234226098176E-7*t196*t156*t47*t60*t138*t314+5.304625790976E-10*
5189         grada*t156*t48*t64*t295*t314+2.4142744977408E-9*t196*t156*
5190         t47*t66*t295*t314-9.662421270528E-13*grada*t156*t48*t61*t479*
5191         t314-1.14808106778624E-11*t196*t156*t47*t64*t479*t314+2.029108466810881E-14*
5192         t196*t156*t47*t61*t720*t314)*t148+t574*t137;
5193     d4fdrarbrbgb = 2.0*t190*t520+t207*t517+2.0*t300*t350+
5194         t307*t343+(0.017462166186667*t21*gradb*t48*t67*t315-6.2182776832E-4*
5195         t21*gradb*t48*t60*t65*t315+7.516109905919999E-6*t21*gradb*
5196         t48*t66*t63*t315-3.878438141952E-8*t21*gradb*t48*t64*t138*
5197         t315+7.38101624832E-11*t21*gradb*t48*t61*t295*t315-0.00102032234496*
5198         t21*t204*t48*t65*t314+3.21853741056E-5*t21*t204*t48*t60*t63*
5199         t314-3.6418064154624E-7*t21*t204*t48*t66*t138*t314+1.7903112044544E-9*
5200         t21*t204*t48*t64*t295*t314-3.2610671788032E-12*t21*t204*t48*
5201         t61*t479*t314+7.48906315776E-6*t21*t203*t48*t63*t313-2.2234226098176E-7*
5202         t21*t203*t48*t60*t138*t313+2.4142744977408E-9*t21*t203*t48*
5203         t66*t295*t313-1.14808106778624E-11*t21*t203*t48*t64*t479*t313+
5204         2.029108466810881E-14*t21*t203*t48*t61*t720*t313)*t148+t579*
5205         t137;
5206     d4fdrarbrbab = 0.0;
5207     d4fdrarbgaga = (-0.00476240896*t58*t48*t67*t173+1.6958939136E-4*
5208         t58*t48*t60*t65*t173+5.668457472000001E-4*t21*t58*t47*t65*
5209         t173-2.04984815616E-6*t58*t48*t66*t63*t173-1.7880763392E-5*
5210         t21*t58*t47*t60*t63*t173-5.616797368320001E-6*t29*t58*t46*
5211         t63*t173+1.057755856896E-8*t58*t48*t64*t138*t173+2.0232257863680001E-7*
5212         t21*t58*t47*t66*t138*t173+1.6675669573632E-7*t29*t58*t46*t60*
5213         t138*t173-2.01300443136E-11*t58*t48*t61*t295*t173-9.94617335808E-10*
5214         t21*t58*t47*t64*t295*t173-1.8107058733056E-9*t29*t58*t46*t66*
5215         t295*t173+1.811703988224E-12*t21*t58*t47*t61*t479*t173+8.6106080083968E-12*
5216         t29*t58*t46*t64*t479*t173-1.521831350108161E-14*t29*t58*t46*
5217         t61*t720*t173)*t148+t580*t137+t524*t190+t354*t300;
5218     d4fdrarbgagb = (-0.00952481792*grada*gradb*t48*t67*t173+
5219         3.3917878272E-4*grada*gradb*t48*t60*t65*t173+2.2673829888E-4*
5220         t196*gradb*t47*t65*t173-4.09969631232E-6*grada*gradb*t48*t66*
5221         t63*t173-7.1523053568E-6*t196*gradb*t47*t60*t63*t173+2.115511713792E-8*
5222         grada*gradb*t48*t64*t138*t173+8.092903145472E-8*t196*gradb*
5223         t47*t66*t138*t173-4.02600886272E-11*grada*gradb*t48*t61*t295*
5224         t173-3.978469343232E-10*t196*gradb*t47*t64*t295*t173+7.246815952896E-13*
5225         t196*gradb*t47*t61*t479*t173+2.2673829888E-4*grada*t204*t48*
5226         t65*t172-7.1523053568E-6*grada*t204*t48*t60*t63*t172-5.616797368320001E-6*
5227         t196*t204*t47*t63*t172+8.092903145472E-8*grada*t204*t48*t66*
5228         t138*t172+1.6675669573632E-7*t196*t204*t47*t60*t138*t172-3.978469343232E-10*
5229         grada*t204*t48*t64*t295*t172-1.8107058733056E-9*t196*t204*
5230         t47*t66*t295*t172+7.246815952896E-13*grada*t204*t48*t61*t479*
5231         t172+8.6106080083968E-12*t196*t204*t47*t64*t479*t172-1.521831350108161E-14*
5232         t196*t204*t47*t61*t720*t172)*t148+t581*t137+t525*t190+t355*
5233         t300;
5234     d4fdrarbgaab = 0.0;
5235     d4fdrarbgbgb = (-0.00476240896*t21*t48*t67*t173+1.6958939136E-4*
5236         t21*t48*t60*t65*t173-2.04984815616E-6*t21*t48*t66*t63*t173+
5237         1.057755856896E-8*t21*t48*t64*t138*t173-2.01300443136E-11*
5238         t21*t48*t61*t295*t173+5.668457472000001E-4*t21*t58*t48*t65*
5239         t172-1.7880763392E-5*t21*t58*t48*t60*t63*t172+2.0232257863680001E-7*
5240         t21*t58*t48*t66*t138*t172-9.94617335808E-10*t21*t58*t48*t64*
5241         t295*t172+1.811703988224E-12*t21*t58*t48*t61*t479*t172-5.616797368320001E-6*
5242         t21*t156*t48*t63*t171+1.6675669573632E-7*t21*t156*t48*t60*
5243         t138*t171-1.8107058733056E-9*t21*t156*t48*t66*t295*t171+8.6106080083968E-12*
5244         t21*t156*t48*t64*t479*t171-1.521831350108161E-14*t21*t156*
5245         t48*t61*t720*t171)*t148+t585*t137+t526*t190+t359*t300;
5246     d4fdrarbgbab = 0.0;
5247     d4fdrarbabab = 0.0;
5248     d4fdragagaga = t50*t587*t54*t34*t55*rhoa-0.03109*t19*
5249         (-0.581704192*grada*t30*t47+16.3323648512*t196*t27*t46-37.29679059968001*
5250         t195*t24*t45+29.19696934502401*t194*t43*t44-10.20717432832*
5251         t192*t209*t303+1.646198784000001*t302*t361*t521-0.100042801152*
5252         t508*t597*t764)*t34*rhoa-1.0*t11*t3*t35*t588-0.75*t3*t35*(-
5253         0.010719199232*grada*t39*t47+8.791962583040001E-4*t196*t38*
5254         t46-2.1106964365312006E-5*t195*t37*t45+2.2827451102003204E-7*
5255         t194*t56*t44-1.2530157879296E-9*t192*t223*t303+3.4151707181056E-12*
5256         t302*t376*t521-3.67500722176E-15*t508*t612*t764)*t52-0.03109*
5257         t19*t587*t34+(0.02143084032*grada*t47*t67-7.6315226112E-4*
5258         grada*t47*t60*t65-7.6524175872E-4*t196*t46*t65+9.22431670272E-6*
5259         grada*t47*t66*t63+2.41390305792E-5*t196*t46*t60*t63+4.21259802624E-6*
5260         t195*t45*t63-4.759901356032E-8*grada*t47*t64*t138-2.7313548115968E-7*
5261         t196*t46*t66*t138-1.2506752180224002E-7*t195*t45*t60*t138+
5262         9.05851994112E-11*grada*t47*t61*t295+1.3427334033408E-9*t196*
5263         t46*t64*t295+1.3580294049792E-9*t195*t45*t66*t295-2.4458003841024E-12*
5264         t196*t46*t61*t479-6.4579560062976E-12*t195*t45*t64*t479+1.14137351258112E-14*
5265         t195*t45*t61*t720)*t148+t589*t137+0.002129457733333*t1*t2*
5266         t3*t19*t587*t12;
5267     d4fdragagagb = (0.00357180672*gradb*t48*t67*t59-1.2719204352E-4*
5268         gradb*t48*t60*t65*t59-4.251343104E-4*t21*gradb*t47*t65*t59+
5269         1.53738611712E-6*gradb*t48*t66*t63*t59+1.3410572544E-5*t21*
5270         gradb*t47*t60*t63*t59+4.21259802624E-6*t29*gradb*t46*t63*t59-
5271         7.93316892672E-9*gradb*t48*t64*t138*t59-1.517419339776E-7*
5272         t21*gradb*t47*t66*t138*t59-1.2506752180224002E-7*t29*gradb*
5273         t46*t60*t138*t59+1.50975332352E-11*gradb*t48*t61*t295*t59+
5274         7.45963001856E-10*t21*gradb*t47*t64*t295*t59+1.3580294049792E-9*
5275         t29*gradb*t46*t66*t295*t59-1.358777991168E-12*t21*gradb*t47*
5276         t61*t479*t59-6.4579560062976E-12*t29*gradb*t46*t64*t479*t59+
5277         1.14137351258112E-14*t29*gradb*t46*t61*t720*t59)*t148+t590*
5278         t137;
5279     d4fdragagaab = 0.0;
5280     d4fdragagbgb = (0.00357180672*grada*t48*t67*t59-1.2719204352E-4*
5281         grada*t48*t60*t65*t59-8.502686208E-5*t196*t47*t65*t59+1.53738611712E-6*
5282         grada*t48*t66*t63*t59+2.6821145088E-6*t196*t47*t60*t63*t59-
5283         7.93316892672E-9*grada*t48*t64*t138*t59-3.034838679552E-8*
5284         t196*t47*t66*t138*t59+1.50975332352E-11*grada*t48*t61*t295*
5285         t59+1.491926003712E-10*t196*t47*t64*t295*t59-2.717555982336E-13*
5286         t196*t47*t61*t479*t59-1.7005372416E-4*grada*t58*t48*t65*t158+
5287         5.364229017600001E-6*grada*t58*t48*t60*t63*t158+4.21259802624E-6*
5288         t196*t58*t47*t63*t158-6.069677359104E-8*grada*t58*t48*t66*
5289         t138*t158-1.2506752180224002E-7*t196*t58*t47*t60*t138*t158+
5290         2.983852007424E-10*grada*t58*t48*t64*t295*t158+1.3580294049792E-9*
5291         t196*t58*t47*t66*t295*t158-5.435111964672E-13*grada*t58*t48*
5292         t61*t479*t158-6.4579560062976E-12*t196*t58*t47*t64*t479*t158+
5293         1.14137351258112E-14*t196*t58*t47*t61*t720*t158)*t148+t591*
5294         t137;
5295     d4fdragagbab = 0.0;
5296     d4fdragaabab = 0.0;
5297     d4fdragbgbgb = (-2.5508058624E-4*t21*gradb*t48*t65*t158+
5298         8.046343526400001E-6*t21*gradb*t48*t60*t63*t158-9.104516038656E-8*
5299         t21*gradb*t48*t66*t138*t158+4.475778011136E-10*t21*gradb*t48*
5300         t64*t295*t158-8.152667947008E-13*t21*gradb*t48*t61*t479*t158+
5301         4.21259802624E-6*t21*t204*t48*t63*t155-1.2506752180224002E-7*
5302         t21*t204*t48*t60*t138*t155+1.3580294049792E-9*t21*t204*t48*
5303         t66*t295*t155-6.4579560062976E-12*t21*t204*t48*t64*t479*t155+
5304         1.14137351258112E-14*t21*t204*t48*t61*t720*t155)*t148+t595*
5305         t137;
5306     d4fdragbgbab = 0.0;
5307     d4fdragbabab = 0.0;
5308     d4fdraababab = 0.0;
5309     d4fdrbrbrbrb = t69*(24829.60425438716*t537*t776*t147*
5310         t778*rhob-199659.0885685683*t775*t776*t147*t777*rhob+24.0*
5311         t175*t776*t147*t540*rhob+1157.928594403345*t317*t322*t318*
5312         t147*t540*rhob-1157.928594403345*t317*t776*t147*t539*rhob-
5313         12414.80212719358*t537*t322*t318*t147*t539*rhob+6.0*t175*t779*
5314         t147*t320*rhob+8.0*t175*t542*t179*t147*t320*rhob-96.4940495336121*
5315         t317*t779*t147*t319*rhob-36.0*t175*t322*t318*t147*t319*rhob-
5316         128.6587327114828*t317*t542*t179*t147*t319*rhob-1.0*t175*t780*
5317         t147*t180*rhob+t70*(384.0*t125*t81*t82*t90*t99+1920.0*t127*
5318         t452*t81*t90*t99-96.0*t185*t81*t82*t84*t99-16.0*t127*t557*
5319         t81*t84*t99+72.0*t275*t331*t81*t84*t99-16.0*t125*t557*t81*
5320         t83*t99-480.0*t185*t452*t81*t83*t99+120.0*t273*t331*t81*t83*
5321         t99+192.0*t125*t127*t331*t81*t99-576.0*t125*t185*t275*t81*
5322         t99-960.0*t127*t185*t273*t81*t99+t81*t83*t84*t782*t99+0.019751789702565*
5323         t81*(-384.0*t125*t82+t708+t707+t703-1920.0*t127*t452)*t86*
5324         t90*t93-0.002929848805881*t81*t1*t2*t3*t103*t563*t90*t93+0.005859697611761*
5325         t81*t1*t2*t3*t240*t336*t90*t93-0.00911508517385*t81*t1*t2*
5326         t3*t407*t187*t90*t93+0.019751789702565*t81*t85*t86*t782*t93+
5327         0.079007158810261*t81*t187*t86*t557*t93-0.002929848805881*
5328         t81*t1*t2*t3*t103*t85*t557*t93+0.118510738215391*t81*t336*
5329         t86*t331*t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t331*
5330         t93-0.008789546417642*t81*t1*t2*t3*t103*t187*t331*t93+0.079007158810261*
5331         t81*t563*t86*t185*t93-0.00911508517385*t81*t1*t2*t3*t407*t85*
5332         t185*t93-0.008789546417642*t81*t1*t2*t3*t103*t336*t185*t93+
5333         0.011719395223522*t81*t1*t2*t3*t240*t187*t185*t93-96.0*t133*
5334         t81*t82*t84*t90-16.0*t127*t463*t81*t84*t90+192.0*t125*t127*
5335         t284*t81*t90-960.0*t127*t133*t273*t81*t90+4.0*t133*t557*t81*
5336         t83*t84+4.0*t185*t463*t81*t83*t84+6.0*t284*t331*t81*t83*t84-
5337         48.0*t127*t133*t331*t81*t84-48.0*t127*t185*t284*t81*t84+144.0*
5338         t133*t185*t275*t81*t84-48.0*t125*t133*t331*t81*t83-48.0*t125*
5339         t185*t284*t81*t83+240.0*t133*t185*t273*t81*t83+384.0*t125*
5340         t127*t133*t185*t81+t719+t718+t717+t716+t715+t714+t713+t712+
5341         t711+t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+t688+
5342         t687+t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+t675+
5343         t674+t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+
5344         t656+t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-4101.558808403119*
5345         t81*t187*t411*t86*t412*t90*t413-4101.558808403119*t81*t85*
5346         t411*t86*t412*t185*t413+415.5781415850207*t81*t187*t411*t86*
5347         t416*t90*t246-103.8945353962552*t81*t336*t244*t86*t245*t90*
5348         t246-207.7890707925104*t81*t187*t252*t109*t86*t245*t90*t246+
5349         7.70551137522226*t81*t1*t2*t3*t103*t187*t244*t245*t90*t246-
5350         103.8945353962552*t81*t85*t244*t86*t245*t331*t246+415.5781415850207*
5351         t81*t85*t411*t86*t416*t185*t246-207.7890707925104*t81*t187*
5352         t244*t86*t245*t185*t246-207.7890707925104*t81*t85*t252*t109*
5353         t86*t245*t185*t246+7.70551137522226*t81*t1*t2*t3*t103*t85*
5354         t244*t245*t185*t246+7.017868076946245*t81*t336*t244*t86*t249*
5355         t90*t111+14.03573615389249*t81*t187*t252*t109*t86*t249*t90*
5356         t111-0.520491882373513*t81*t1*t2*t3*t103*t187*t244*t249*t90*
5357         t111-14.03573615389249*t81*t187*t411*t86*t245*t90*t111-2.339289358982082*
5358         t81*t187*t431*t86*t110*t90*t111-3.508934038473122*t81*t336*
5359         t252*t86*t110*t90*t111-2.339289358982082*t81*t563*t109*t86*
5360         t110*t90*t111+0.260245941186757*t81*t1*t2*t3*t103*t187*t252*
5361         t110*t90*t111+0.260245941186757*t81*t1*t2*t3*t103*t336*t109*
5362         t110*t90*t111-0.346994588249009*t81*t1*t2*t3*t240*t187*t109*
5363         t110*t90*t111-2.339289358982082*t81*t85*t109*t86*t110*t557*
5364         t111+7.017868076946245*t81*t85*t244*t86*t249*t331*t111-3.508934038473122*
5365         t81*t85*t252*t86*t110*t331*t111-7.017868076946245*t81*t187*
5366         t109*t86*t110*t331*t111+0.260245941186757*t81*t1*t2*t3*t103*
5367         t85*t109*t110*t331*t111+14.03573615389249*t81*t187*t244*t86*
5368         t249*t185*t111+14.03573615389249*t81*t85*t252*t109*t86*t249*
5369         t185*t111-0.520491882373513*t81*t1*t2*t3*t103*t85*t244*t249*
5370         t185*t111-14.03573615389249*t81*t85*t411*t86*t245*t185*t111-
5371         2.339289358982082*t81*t85*t431*t86*t110*t185*t111-7.017868076946245*
5372         t81*t187*t252*t86*t110*t185*t111-7.017868076946245*t81*t336*
5373         t109*t86*t110*t185*t111+0.260245941186757*t81*t1*t2*t3*t103*
5374         t85*t252*t110*t185*t111-0.346994588249009*t81*t1*t2*t3*t240*
5375         t85*t109*t110*t185*t111+0.520491882373513*t81*t1*t2*t3*t103*
5376         t187*t109*t110*t185*t111)-96.0*t81*t82*t84*t90*t99-960.0*t127*
5377         t273*t81*t90*t99+4.0*t557*t81*t83*t84*t99-48.0*t127*t331*t81*
5378         t84*t99+144.0*t185*t275*t81*t84*t99-48.0*t125*t331*t81*t83*
5379         t99+240.0*t185*t273*t81*t83*t99+384.0*t125*t127*t185*t81*t99+
5380         0.079007158810261*t81*t563*t86*t90*t93-0.008789546417642*t81*
5381         t1*t2*t3*t103*t336*t90*t93+0.011719395223522*t81*t1*t2*t3*
5382         t240*t187*t90*t93+0.079007158810261*t81*t85*t86*t557*t93+0.237021476430782*
5383         t81*t187*t86*t331*t93-0.008789546417642*t81*t1*t2*t3*t103*
5384         t85*t331*t93+0.237021476430782*t81*t336*t86*t185*t93+0.011719395223522*
5385         t81*t1*t2*t3*t240*t85*t185*t93-0.017579092835283*t81*t1*t2*
5386         t3*t103*t187*t185*t93-48.0*t127*t284*t81*t84*t90+384.0*t125*
5387         t127*t133*t81*t90+12.0*t133*t331*t81*t83*t84+12.0*t185*t284*
5388         t81*t83*t84-96.0*t127*t133*t185*t81*t84-96.0*t125*t133*t185*
5389         t81*t83+t640+t639+t638+t637+t636+t635+t634+t633+t632+t631+
5390         t630+t629+t628+t627+t626+t625+t624+t623+t622+t621+t620+t619+
5391         t618+t617+t616+t615+t614+t613-0.004416653076543*t1*t2*t3*t146*
5392         t541+771.9523962688968*t317*t538*t147*t540-8276.534751462386*
5393         t537*t538*t147*t539-0.243531851851852*t1*t2*t3*t175*t179*t180*
5394         t321+24.0*t175*t322*t179*t147*t320-24.0*t175*t538*t147*t319-
5395         385.9761981344484*t317*t322*t179*t147*t319-207.7890707925104*
5396         t81*t187*t244*t86*t245*t90*t246-207.7890707925104*t81*t85*
5397         t244*t86*t245*t185*t246-4.0*t175*t542*t147*t180-0.547946666666667*
5398         t1*t2*t3*t175*t318*t320*t178+8.812265465851826*t1*t2*t3*t317*
5399         t318*t319*t178+0.273973333333333*t1*t2*t3*t175*t322*t180*t178-
5400         52.87359279511096*t1*t2*t3*t317*t538*t540*t143+566.8874535768302*
5401         t1*t2*t3*t537*t538*t539*t143-1.64384*t1*t2*t3*t175*t322*t179*
5402         t320*t143+1.64384*t1*t2*t3*t175*t538*t319*t143+26.43679639755548*
5403         t1*t2*t3*t317*t322*t179*t319*t143+0.273973333333333*t1*t2*
5404         t3*t175*t542*t180*t143+14.03573615389249*t81*t187*t244*t86*
5405         t249*t90*t111-7.017868076946245*t81*t187*t252*t86*t110*t90*
5406         t111-7.017868076946245*t81*t336*t109*t86*t110*t90*t111+0.520491882373513*
5407         t81*t1*t2*t3*t103*t187*t109*t110*t90*t111-7.017868076946245*
5408         t81*t85*t109*t86*t110*t331*t111+14.03573615389249*t81*t85*
5409         t244*t86*t249*t185*t111-7.017868076946245*t81*t85*t252*t86*
5410         t110*t185*t111-14.03573615389249*t81*t187*t109*t86*t110*t185*
5411         t111+0.520491882373513*t81*t1*t2*t3*t103*t85*t109*t110*t185*
5412         t111)-6.0*t147*t160*t175*t320*t779*rhob-24829.60425438716*
5413         t537*t160*t776*t147*t778*rhob+199659.0885685683*t775*t160*
5414         t776*t147*t777*rhob-24.0*t147*t160*t175*t540*t776*rhob-8.0*
5415         t147*t160*t175*t179*t320*t542*rhob+4.0*t147*t174*t175*t180*
5416         t542*rhob-771.9523962688968*t317*t174*t538*t147*t540*rhob-
5417         1157.928594403345*t317*t160*t322*t318*t147*t540*rhob+1157.928594403345*
5418         t317*t160*t776*t147*t539*rhob+8276.534751462386*t537*t174*
5419         t538*t147*t539*rhob+12414.80212719358*t537*t160*t322*t318*
5420         t147*t539*rhob+24.0*t147*t174*t175*t319*t538*rhob+4.0*t147*
5421         t175*t179*t180*t536*rhob-24.0*t147*t174*t175*t179*t320*t322*
5422         rhob+36.0*t147*t160*t175*t318*t319*t322*rhob+6.0*t147*t175*
5423         t180*t316*t322*rhob-12.0*t147*t175*t316*t318*t320*rhob+96.4940495336121*
5424         t317*t160*t779*t147*t319*rhob+192.9880990672242*t317*t316*
5425         t318*t147*t319*rhob+385.9761981344484*t317*t174*t322*t179*
5426         t147*t319*rhob+128.6587327114828*t317*t542*t160*t179*t147*
5427         t319*rhob+t175*t780*t160*t147*t180*rhob-0.03109*t146*(4.423522769382716*
5428         t58*t159*t774+10.26558234153087*t156*t157*t773-132.732341830163*
5429         t153*t154*t772+202.6697066943526*t149*t151*t771-119.6504344979532*
5430         t167*t168*t770+33.6253206649363*t308*t309*t769-4.537293209600001*
5431         t527*t528*t768+0.237138491619556*t765*t766*t767)*t147*rhob-
5432         0.75*t177*t3*t35*(-0.538373535604938*t58*t165*t774+0.170710135447704*
5433         t156*t164*t773-0.006586541220169*t153*t163*t772+1.0611154443853118E-4*
5434         t149*t162*t771-8.823921276742924E-7*t167*t181*t770+3.981198533073225E-9*
5435         t308*t323*t769-9.2618884392429E-12*t527*t543*t768+8.71112822935703E-15*
5436         t765*t781*t767)-0.37037037037037*t166*t3*t35*t59+4.0*t190*
5437         t573+4.0*t191*t572-4.0*t142*t3*t35*t544+4.0*t147*t160*t175*
5438         t180*t542+0.004416653076543*t1*t2*t3*t146*t160*t541-771.9523962688968*
5439         t317*t160*t538*t147*t540+8276.534751462386*t537*t160*t538*
5440         t147*t539+24.0*t147*t160*t175*t319*t538-2.0*t140*t3*t324*t35+
5441         0.888888888888889*t176*t182*t3*t35+6.0*t343*t344-24.0*t147*
5442         t160*t175*t179*t320*t322+0.243531851851852*t1*t2*t3*t175*t160*
5443         t179*t180*t321-0.007571405274074*t1*t2*t3*t146*t174*t321-24.0*
5444         t175*t174*t318*t147*t320+385.9761981344484*t317*t174*t318*
5445         t147*t319+385.9761981344484*t317*t160*t322*t179*t147*t319+
5446         12.0*t175*t174*t322*t147*t180+12.0*t175*t316*t179*t147*t180+
5447         0.547946666666667*t1*t2*t3*t175*t160*t318*t320*t178-8.812265465851826*
5448         t1*t2*t3*t317*t160*t318*t319*t178+0.008517830933333*t1*t2*
5449         t3*t146*t316*t178-0.273973333333333*t1*t2*t3*t175*t160*t322*
5450         t180*t178-0.547946666666667*t1*t2*t3*t175*t174*t179*t180*t178+
5451         (2.872399786666667*t58*t68*t774-0.155932082631111*t58*t60*
5452         t67*t774+0.002147636855467*t58*t66*t65*t774-1.195909772288E-5*
5453         t58*t64*t63*t774+2.439835926528001E-8*t58*t61*t138*t774-0.259022131768889*
5454         t156*t67*t773+0.009223778563413*t156*t60*t65*t773-1.1148896360448E-4*
5455         t156*t66*t63*t773+5.7530165772288E-7*t156*t64*t138*t773-1.0948507435008E-9*
5456         t156*t61*t295*t773+0.00332549505024*t153*t65*t772-1.049004785664E-4*
5457         t153*t60*t63*t772+1.18695912800256E-6*t153*t66*t138*t772-5.8350883700736E-9*
5458         t153*t64*t295*t772+1.06286633975808E-11*t153*t61*t479*t772-
5459         9.985417543679999E-6*t149*t63*t771+2.9645634797568E-7*t149*
5460         t60*t138*t771-3.2190326636544E-9*t149*t66*t295*t771+1.530774757048321E-11*
5461         t149*t64*t479*t771-2.705477955747841E-14*t149*t61*t720*t771)*
5462         t148-0.12436*t146*t536*t147+52.87359279511096*t1*t2*t3*t317*
5463         t160*t538*t540*t143-566.8874535768302*t1*t2*t3*t537*t160*t538*
5464         t539*t143+0.008517830933333*t1*t2*t3*t146*t536*t143+1.64384*
5465         t1*t2*t3*t175*t174*t318*t320*t143+1.64384*t1*t2*t3*t175*t160*
5466         t322*t179*t320*t143-1.64384*t1*t2*t3*t175*t160*t538*t319*t143-
5467         26.43679639755548*t1*t2*t3*t317*t174*t318*t319*t143-26.43679639755548*
5468         t1*t2*t3*t317*t160*t322*t179*t319*t143-0.82192*t1*t2*t3*t175*
5469         t174*t322*t180*t143-0.82192*t1*t2*t3*t175*t316*t179*t180*t143-
5470         0.273973333333333*t1*t2*t3*t175*t542*t160*t180*t143;
5471     d4fdrbrbrbga = 3.0*t190*t574+t199*t572+3.0*t343*t345+
5472         (0.030558790826667*grada*t58*t22*t67*t535-0.00108819859456*
5473         grada*t58*t22*t60*t65*t535+1.3153192335360001E-5*grada*t58*
5474         t22*t66*t63*t535-6.787266748416001E-8*grada*t58*t22*t64*t138*
5475         t535+1.291677843456E-10*grada*t58*t22*t61*t295*t535-0.00124706064384*
5476         grada*t156*t22*t65*t534+3.93376794624E-5*grada*t156*t22*t60*
5477         t63*t534-4.451096730009599E-7*grada*t156*t22*t66*t138*t534+
5478         2.1881581387776E-9*grada*t156*t22*t64*t295*t534-3.9857487740928E-12*
5479         grada*t156*t22*t61*t479*t534+7.48906315776E-6*grada*t153*t22*
5480         t63*t533-2.2234226098176E-7*grada*t153*t22*t60*t138*t533+2.4142744977408E-9*
5481         grada*t153*t22*t66*t295*t533-1.14808106778624E-11*grada*t153*
5482         t22*t64*t479*t533+2.029108466810881E-14*grada*t153*t22*t61*
5483         t720*t533)*t148;
5484     d4fdrbrbrbgb = 3.0*t147*t175*t179*t180*t577*rhob-192.9880990672242*
5485         t317*t205*t538*t147*t540*rhob+2069.133687865597*t537*t205*
5486         t538*t147*t539*rhob+6.0*t147*t175*t205*t319*t538*rhob+3.0*
5487         t147*t175*t180*t322*t348*rhob-6.0*t147*t175*t318*t320*t348*
5488         rhob-6.0*t147*t175*t179*t205*t320*t322*rhob+96.4940495336121*
5489         t317*t348*t318*t147*t319*rhob+96.4940495336121*t317*t205*t322*
5490         t179*t147*t319*rhob+t175*t542*t205*t147*t180*rhob-0.03109*
5491         t146*(-1.56124333037037*gradb*t159*t535-4.81507000414815*t204*
5492         t157*t534+72.67913110755558*t203*t154*t533-121.7816966326045*
5493         t202*t151*t532+77.20254629842492*t200*t168*t531-22.99638211470223*
5494         t346*t309*t530+3.260051619840001*t575*t528*t529-0.177853868714667*
5495         t783*t766*t784)*t147*rhob+3.0*t190*t579-3.0*t142*t3*t35*t578+
5496         t207*t572-0.75*t177*t3*t35*(0.190014189037037*gradb*t165*t535-
5497         0.082214485447111*t204*t164*t534+0.003681518224119*t203*t163*
5498         t533-6.506054353320772E-5*t202*t162*t532+5.781780106954526E-7*
5499         t200*t181*t531-2.749152996496119E-9*t346*t323*t530+6.68391581359218E-12*
5500         t575*t543*t529-6.53334617201778E-15*t783*t781*t784)+3.0*t343*
5501         t350-1.0*t140*t3*t349*t35+0.222222222222222*t176*t206*t3*t35+
5502         3.0*t147*t175*t180*t205*t322-0.001892851318519*t1*t2*t3*t146*
5503         t205*t321-6.0*t147*t175*t205*t318*t320+96.4940495336121*t317*
5504         t205*t318*t147*t319+6.0*t175*t348*t179*t147*t180+0.004258915466667*
5505         t1*t2*t3*t146*t348*t178-0.136986666666667*t1*t2*t3*t175*t205*
5506         t179*t180*t178+(-1.01378816*gradb*t68*t535+0.055034852693333*
5507         gradb*t60*t67*t535-7.579894784000001E-4*gradb*t66*t65*t535+
5508         4.22085801984E-6*gradb*t64*t63*t535-8.611185623040002E-9*gradb*
5509         t61*t138*t535+0.135331787946667*t204*t67*t534-0.00481916520448*
5510         t204*t60*t65*t534+5.824985177087999E-5*t204*t66*t63*t534-3.0057895600128E-7*
5511         t204*t64*t138*t534+5.720287592448E-10*t204*t61*t295*t534-0.00215401383936*
5512         t203*t65*t533+6.79469008896E-5*t203*t60*t63*t533-7.6882579881984E-7*
5513         t203*t66*t138*t533+3.7795458760704E-9*t203*t64*t295*t533-6.8844751552512E-12*
5514         t203*t61*t479*t533+7.48906315776E-6*t202*t63*t532-2.2234226098176E-7*
5515         t202*t60*t138*t532+2.4142744977408E-9*t202*t66*t295*t532-1.14808106778624E-11*
5516         t202*t64*t479*t532+2.029108466810881E-14*t202*t61*t720*t532)*
5517         t148-0.09327*t146*t577*t147+0.0063883732*t1*t2*t3*t146*t577*
5518         t143+0.41096*t1*t2*t3*t175*t205*t318*t320*t143-6.60919909938887*
5519         t1*t2*t3*t317*t205*t318*t319*t143-0.20548*t1*t2*t3*t175*t205*
5520         t322*t180*t143-0.41096*t1*t2*t3*t175*t348*t179*t180*t143;
5521     d4fdrbrbrbab = 0.0;
5522     d4fdrbrbgaga = 2.0*
5523         t190*t580+t354*t343+(-0.00654831232*t58*t22*t67*t315+2.3318541312000003E-4*
5524         t58*t22*t60*t65*t315+3.1176516096E-4*t21*t58*t31*t65*t315-
5525         2.81854121472E-6*t58*t22*t66*t63*t315-9.834419865600001E-6*
5526         t21*t58*t31*t60*t63*t315+1.454414303232E-8*t58*t22*t64*t138*
5527         t315+1.1127741825024001E-7*t21*t58*t31*t66*t138*t315-2.767881093120001E-11*
5528         t58*t22*t61*t295*t315-5.470395346944E-10*t21*t58*t31*t64*t295*
5529         t315+9.964371935232E-13*t21*t58*t31*t61*t479*t315+1.1336914944E-4*
5530         t156*t22*t65*t314-3.5761526784E-6*t156*t22*t60*t63*t314-5.616797368320001E-6*
5531         t21*t156*t31*t63*t314+4.046451572736E-8*t156*t22*t66*t138*
5532         t314+1.6675669573632E-7*t21*t156*t31*t60*t138*t314-1.989234671616E-10*
5533         t156*t22*t64*t295*t314-1.8107058733056E-9*t21*t156*t31*t66*
5534         t295*t314+3.623407976448E-13*t156*t22*t61*t479*t314+8.6106080083968E-12*
5535         t21*t156*t31*t64*t479*t314-1.521831350108161E-14*t21*t156*
5536         t31*t61*t720*t314)*t148;
5537     d4fdrbrbgagb = 2.0*t190*t581+t355*t343+(-0.01309662464*
5538         grada*gradb*t22*t67*t315+4.663708262400001E-4*grada*gradb*
5539         t22*t60*t65*t315-5.63708242944E-6*grada*gradb*t22*t66*t63*
5540         t315+2.908828606464E-8*grada*gradb*t22*t64*t138*t315-5.53576218624E-11*
5541         grada*gradb*t22*t61*t295*t315+7.6524175872E-4*grada*t204*t22*
5542         t65*t314-2.41390305792E-5*grada*t204*t22*t60*t63*t314+2.7313548115968E-7*
5543         grada*t204*t22*t66*t138*t314-1.3427334033408E-9*grada*t204*
5544         t22*t64*t295*t314+2.4458003841024E-12*grada*t204*t22*t61*t479*
5545         t314-5.616797368320001E-6*grada*t203*t22*t63*t313+1.6675669573632E-7*
5546         grada*t203*t22*t60*t138*t313-1.8107058733056E-9*grada*t203*
5547         t22*t66*t295*t313+8.6106080083968E-12*grada*t203*t22*t64*t479*
5548         t313-1.521831350108161E-14*grada*t203*t22*t61*t720*t313)*t148;
5549     d4fdrbrbgaab = 0.0;
5550     d4fdrbrbgbgb = 2.0*
5551         t147*t175*t179*t180*t583*rhob-2.0*t147*t175*t318*t320*t357*
5552         rhob+32.1646831778707*t317*t357*t318*t147*t319*rhob+t175*t357*
5553         t322*t147*t180*rhob-0.03109*t146*(0.334552142222222*t159*t315+
5554         1.908973703111112*t58*t157*t314-36.52114729244445*t156*t154*
5555         t313+69.57260511232002*t153*t151*t312-48.34252654728535*t149*
5556         t168*t311+15.46954954069334*t167*t309*t310-2.325940142080001*
5557         t308*t528*t576+0.133390401536*t527*t766*t785)*t147*rhob+2.0*
5558         t190*t585-2.0*t142*t3*t35*t584-0.333333333333333*t140*t3*t35*
5559         t358+2.0*t147*t175*t179*t180*t357-0.75*t177*t3*(-0.040717326222222*
5560         t165*t315+0.033781261596444*t58*t164*t314-0.001900235597369*
5561         t156*t163*t313+3.812942392069689E-5*t153*t162*t312-3.690446131764338E-7*
5562         t149*t181*t311+1.871412445548089E-9*t167*t323*t310-4.79418643032747E-12*
5563         t308*t543*t576+4.90000962901333E-15*t527*t781*t785)*t35+t359*
5564         t343+0.001419638488889*t1*t2*t3*t146*t357*t178+(0.21724032*
5565         t68*t315-0.01179318272*t60*t67*t315+1.6242631680000002E-4*
5566         t66*t65*t315-9.044695756799999E-7*t64*t63*t315+1.84525406208E-9*
5567         t61*t138*t315-0.06131601536*t58*t67*t314+0.00218346341376*
5568         t58*t60*t65*t314-2.6391795010560004E-5*t58*t66*t63*t314+1.3618606657536E-7*
5569         t58*t64*t138*t314-2.591743205376E-10*t58*t61*t295*t314+0.00133208750592*
5570         t156*t65*t313-4.20197939712E-5*t156*t60*t63*t313+4.754580597964801E-7*
5571         t156*t66*t138*t313-2.3373507391488E-9*t156*t64*t295*t313+4.2575043723264E-12*
5572         t156*t61*t479*t313-5.616797368320001E-6*t153*t63*t312+1.6675669573632E-7*
5573         t153*t60*t138*t312-1.8107058733056E-9*t153*t66*t295*t312+8.6106080083968E-12*
5574         t153*t64*t479*t312-1.521831350108161E-14*t153*t61*t720*t312)*
5575         t148-0.06218*t146*t583*t147+0.004258915466667*t1*t2*t3*t146*
5576         t583*t143-0.136986666666667*t1*t2*t3*t175*t357*t179*t180*t143;
5577     d4fdrbrbgbab = 0.0;
5578     d4fdrbrbabab = 0.0;
5579     d4fdrbgagaga = (-
5580         2.5508058624E-4*grada*t58*t31*t65*t173+8.046343526400001E-6*
5581         grada*t58*t31*t60*t63*t173+4.21259802624E-6*t196*t58*t28*t63*
5582         t173-9.104516038656E-8*grada*t58*t31*t66*t138*t173-1.2506752180224002E-7*
5583         t196*t58*t28*t60*t138*t173+4.475778011136E-10*grada*t58*t31*
5584         t64*t295*t173+1.3580294049792E-9*t196*t58*t28*t66*t295*t173-
5585         8.152667947008E-13*grada*t58*t31*t61*t479*t173-6.4579560062976E-12*
5586         t196*t58*t28*t64*t479*t173+1.14137351258112E-14*t196*t58*t28*
5587         t61*t720*t173)*t148+t589*t190;
5588     d4fdrbgagagb = (0.00357180672*gradb*t22*t67*t173-1.2719204352E-4*
5589         gradb*t22*t60*t65*t173-1.7005372416E-4*t21*gradb*t31*t65*t173+
5590         1.53738611712E-6*gradb*t22*t66*t63*t173+5.364229017600001E-6*
5591         t21*gradb*t31*t60*t63*t173-7.93316892672E-9*gradb*t22*t64*
5592         t138*t173-6.069677359104E-8*t21*gradb*t31*t66*t138*t173+1.50975332352E-11*
5593         gradb*t22*t61*t295*t173+2.983852007424E-10*t21*gradb*t31*t64*
5594         t295*t173-5.435111964672E-13*t21*gradb*t31*t61*t479*t173-8.502686208E-5*
5595         t204*t22*t65*t172+2.6821145088E-6*t204*t22*t60*t63*t172+4.21259802624E-6*
5596         t21*t204*t31*t63*t172-3.034838679552E-8*t204*t22*t66*t138*
5597         t172-1.2506752180224002E-7*t21*t204*t31*t60*t138*t172+1.491926003712E-10*
5598         t204*t22*t64*t295*t172+1.3580294049792E-9*t21*t204*t31*t66*
5599         t295*t172-2.717555982336E-13*t204*t22*t61*t479*t172-6.4579560062976E-12*
5600         t21*t204*t31*t64*t479*t172+1.14137351258112E-14*t21*t204*t31*
5601         t61*t720*t172)*t148+t590*t190;
5602     d4fdrbgagaab = 0.0;
5603     d4fdrbgagbgb = (0.00357180672*grada*t22*t67*t173-1.2719204352E-4*
5604         grada*t22*t60*t65*t173+1.53738611712E-6*grada*t22*t66*t63*
5605         t173-7.93316892672E-9*grada*t22*t64*t138*t173+1.50975332352E-11*
5606         grada*t22*t61*t295*t173-4.251343104E-4*grada*t58*t22*t65*t172+
5607         1.3410572544000002E-5*grada*t58*t22*t60*t63*t172-1.517419339776E-7*
5608         grada*t58*t22*t66*t138*t172+7.45963001856E-10*grada*t58*t22*
5609         t64*t295*t172-1.358777991168E-12*grada*t58*t22*t61*t479*t172+
5610         4.21259802624E-6*grada*t156*t22*t63*t171-1.2506752180224002E-7*
5611         grada*t156*t22*t60*t138*t171+1.3580294049792E-9*grada*t156*
5612         t22*t66*t295*t171-6.4579560062976E-12*grada*t156*t22*t64*t479*
5613         t171+1.14137351258112E-14*grada*t156*t22*t61*t720*t171)*t148+
5614         t591*t190;
5615     d4fdrbgagbab = 0.0;
5616     d4fdrbgaabab = 0.0;
5617     d4fdrbgbgbgb = t175*t593*t179*t147*t180*rhob-0.03109*
5618         t146*(-0.581704192*gradb*t157*t172+16.3323648512*t204*t154*
5619         t171-37.29679059968001*t203*t151*t170+29.19696934502401*t202*
5620         t168*t169-10.20717432832*t200*t309*t347+1.646198784000001*
5621         t346*t528*t582-0.100042801152*t575*t766*t786)*t147*rhob-1.0*
5622         t142*t3*t35*t594-0.75*(-0.010719199232*gradb*t164*t172+8.791962583040001E-4*
5623         t204*t163*t171-2.1106964365312006E-5*t203*t162*t170+2.2827451102003204E-7*
5624         t202*t181*t169-1.2530157879296E-9*t200*t323*t347+3.4151707181056E-12*
5625         t346*t543*t582-3.67500722176E-15*t575*t781*t786)*t177*t3*t35+
5626         t595*t190+(0.02143084032*gradb*t67*t172-7.6315226112E-4*gradb*
5627         t60*t65*t172+9.22431670272E-6*gradb*t66*t63*t172-4.759901356032E-8*
5628         gradb*t64*t138*t172+9.05851994112E-11*gradb*t61*t295*t172-
5629         7.6524175872E-4*t204*t65*t171+2.41390305792E-5*t204*t60*t63*
5630         t171-2.7313548115968E-7*t204*t66*t138*t171+1.3427334033408E-9*
5631         t204*t64*t295*t171-2.4458003841024E-12*t204*t61*t479*t171+
5632         4.21259802624E-6*t203*t63*t170-1.2506752180224002E-7*t203*
5633         t60*t138*t170+1.3580294049792E-9*t203*t66*t295*t170-6.4579560062976E-12*
5634         t203*t64*t479*t170+1.14137351258112E-14*t203*t61*t720*t170)*
5635         t148-0.03109*t146*t593*t147+0.002129457733333*t1*t2*t3*t146*
5636         t593*t143;
5637     d4fdrbgbgbab = 0.0;
5638     d4fdrbgbabab = 0.0;
5639     d4fdrbababab = 0.0;
5640     d4fdgagagaga = -0.03109*t19*(0.109069536*t30*t31-6.1682646336*
5641         t21*t27*t28+18.39502194432001*t29*t24*t25-16.86082026700801*
5642         t26*t43*t193+6.581020016640003*t20*t209*t351-1.154257551360001*
5643         t42*t361*t586+0.075032100864*t208*t597*t787)*t34*rhoa-0.75*
5644         t3*(0.002009849856*t39*t31-3.45777395712E-4*t21*t38*t28+1.0834748940288001E-5*
5645         t29*t37*t25-1.35829636153344E-7*t26*t56*t193+8.22742204416E-10*
5646         t20*t223*t351-2.4137214984192E-12*t42*t376*t586+2.75625541632E-15*
5647         t208*t612*t787)*t35*t52+(-0.00401828256*t31*t67+1.4309104896E-4*
5648         t31*t60*t65+3.8262087936E-4*t21*t28*t65-1.7295593817600002E-6*
5649         t31*t66*t63-1.2069515289600002E-5*t21*t28*t60*t63-3.15944851968E-6*
5650         t29*t25*t63+8.92481504256E-9*t31*t64*t138+1.3656774057984002E-7*
5651         t21*t28*t66*t138+9.380064135168001E-8*t29*t25*t60*t138-1.69847248896E-11*
5652         t31*t61*t295-6.713667016704E-10*t21*t28*t64*t295-1.0185220537344E-9*
5653         t29*t25*t66*t295+1.2229001920512E-12*t21*t28*t61*t479+4.8434670047232E-12*
5654         t29*t25*t64*t479-8.5603013443584E-15*t29*t25*t61*t720)*t148;
5655     d4fdgagagagb = (1.9131043968000002E-4*grada*gradb*t31*
5656         t65*t59-6.034757644800001E-6*grada*gradb*t31*t60*t63*t59-3.15944851968E-6*
5657         t196*gradb*t28*t63*t59+6.828387028992001E-8*grada*gradb*t31*
5658         t66*t138*t59+9.380064135168001E-8*t196*gradb*t28*t60*t138*
5659         t59-3.356833508352E-10*grada*gradb*t31*t64*t295*t59-1.0185220537344E-9*
5660         t196*gradb*t28*t66*t295*t59+6.114500960256E-13*grada*gradb*
5661         t31*t61*t479*t59+4.8434670047232E-12*t196*gradb*t28*t64*t479*
5662         t59-8.5603013443584E-15*t196*gradb*t28*t61*t720*t59)*t148;
5663     d4fdgagagaab = 0.0;
5664     d4fdgagagbgb = (-
5665         0.00133942752*t22*t67*t59+4.769701632E-5*t22*t60*t65*t59+6.377014656E-5*
5666         t21*t31*t65*t59-5.7651979392E-7*t22*t66*t63*t59-2.0115858816E-6*
5667         t21*t31*t60*t63*t59+2.97493834752E-9*t22*t64*t138*t59+2.276129009664E-8*
5668         t21*t31*t66*t138*t59-5.6615749632E-12*t22*t61*t295*t59-1.118944502784E-10*
5669         t21*t31*t64*t295*t59+2.038166986752E-13*t21*t31*t61*t479*t59+
5670         6.377014656E-5*t58*t22*t65*t158-2.0115858816E-6*t58*t22*t60*
5671         t63*t158-3.15944851968E-6*t21*t58*t31*t63*t158+2.276129009664E-8*
5672         t58*t22*t66*t138*t158+9.380064135168001E-8*t21*t58*t31*t60*
5673         t138*t158-1.118944502784E-10*t58*t22*t64*t295*t158-1.0185220537344E-9*
5674         t21*t58*t31*t66*t295*t158+2.038166986752E-13*t58*t22*t61*t479*
5675         t158+4.8434670047232E-12*t21*t58*t31*t64*t479*t158-8.5603013443584E-15*
5676         t21*t58*t31*t61*t720*t158)*t148;
5677     d4fdgagagbab = 0.0;
5678     d4fdgagaabab = 0.0;
5679     d4fdgagbgbgb = (1.9131043968000002E-4*grada*gradb*t22*
5680         t65*t158-6.034757644800001E-6*grada*gradb*t22*t60*t63*t158+
5681         6.828387028992001E-8*grada*gradb*t22*t66*t138*t158-3.356833508352E-10*
5682         grada*gradb*t22*t64*t295*t158+6.114500960256E-13*grada*gradb*
5683         t22*t61*t479*t158-3.15944851968E-6*grada*t204*t22*t63*t155+
5684         9.380064135168001E-8*grada*t204*t22*t60*t138*t155-1.0185220537344E-9*
5685         grada*t204*t22*t66*t295*t155+4.8434670047232E-12*grada*t204*
5686         t22*t64*t479*t155-8.5603013443584E-15*grada*t204*t22*t61*t720*
5687         t155)*t148;
5688     d4fdgagbgbab = 0.0;
5689     d4fdgagbabab = 0.0;
5690     d4fdgaababab = 0.0;
5691     d4fdgbgbgbgb = -0.03109*t146*(0.109069536*t157*t158-6.1682646336*
5692         t58*t154*t155+18.39502194432001*t156*t151*t152-16.86082026700801*
5693         t153*t168*t201+6.581020016640003*t149*t309*t356-1.154257551360001*
5694         t167*t528*t592+0.075032100864*t308*t766*t788)*t147*rhob-0.75*
5695         (0.002009849856*t164*t158-3.45777395712E-4*t58*t163*t155+1.0834748940288001E-5*
5696         t156*t162*t152-1.35829636153344E-7*t153*t181*t201+8.22742204416E-10*
5697         t149*t323*t356-2.4137214984192E-12*t167*t543*t592+2.75625541632E-15*
5698         t308*t781*t788)*t177*t3*t35+(-0.00401828256*t67*t158+1.4309104896E-4*
5699         t60*t65*t158-1.7295593817600002E-6*t66*t63*t158+8.92481504256E-9*
5700         t64*t138*t158-1.69847248896E-11*t61*t295*t158+3.8262087936E-4*
5701         t58*t65*t155-1.2069515289600002E-5*t58*t60*t63*t155+1.3656774057984002E-7*
5702         t58*t66*t138*t155-6.713667016704E-10*t58*t64*t295*t155+1.2229001920512E-12*
5703         t58*t61*t479*t155-3.15944851968E-6*t156*t63*t152+9.380064135168001E-8*
5704         t156*t60*t138*t152-1.0185220537344E-9*t156*t66*t295*t152+4.8434670047232E-12*
5705         t156*t64*t479*t152-8.5603013443584E-15*t156*t61*t720*t152)*
5706         t148;
5707     d4fdgbgbgbab = 0.0;
5708     d4fdgbgbabab = 0.0;
5709     d4fdgbababab = 0.0;
5710     d4fdabababab = 0.0;
5711 
5712 
5713     ds->df1000 += factor*dfdra;
5714     ds->df0100 += factor*dfdrb;
5715     ds->df0010 += factor*dfdga;
5716     ds->df0001 += factor*dfdgb;
5717     ds->df00001+= factor*dfdgab;
5718 
5719     ds->df2000 += factor*d2fdrara;
5720     ds->df1100 += factor*d2fdrarb;
5721     ds->df1010 += factor*d2fdraga;
5722     ds->df1001 += factor*d2fdragb;
5723     ds->df10001+= factor*d2fdraab;
5724     ds->df0200 += factor*d2fdrbrb;
5725     ds->df0110 += factor*d2fdrbga;
5726     ds->df0101 += factor*d2fdrbgb;
5727     ds->df01001+= factor*d2fdrbgab;
5728     ds->df0020 += factor*d2fdgaga;
5729     ds->df0011 += factor*d2fdgagb;
5730     ds->df00101+= factor*d2fdgagab;
5731     ds->df0002 += factor*d2fdgbgb;
5732     ds->df00011+= factor*d2fdgbgab;
5733     ds->df00002+= factor*d2fdgabgab;
5734 
5735     ds->df3000 += factor*d3fdrarara;
5736     ds->df2100  += factor*d3fdrararb;
5737     ds->df2010  += factor*d3fdraraga;
5738     ds->df2001  += factor*d3fdraragb;
5739     ds->df20001 += factor*d3fdraraab;
5740     ds->df1200  += factor*d3fdrarbrb;
5741     ds->df1110  += factor*d3fdrarbga;
5742     ds->df1101  += factor*d3fdrarbgb;
5743     ds->df11001 += factor*d3fdrarbab;
5744     ds->df1020  += factor*d3fdragaga;
5745     ds->df1011  += factor*d3fdragagb;
5746     ds->df10101 += factor*d3fdragaab;
5747     ds->df1002  += factor*d3fdragbgb;
5748     ds->df10011 += factor*d3fdragbab;
5749     ds->df10002 += factor*d3fdraabab;
5750     ds->df0300  += factor*d3fdrbrbrb;
5751     ds->df0210  += factor*d3fdrbrbga;
5752     ds->df0201  += factor*d3fdrbrbgb;
5753     ds->df02001 += factor*d3fdrbrbab;
5754     ds->df0120  += factor*d3fdrbgaga;
5755     ds->df0111  += factor*d3fdrbgagb;
5756     ds->df01101 += factor*d3fdrbgaab;
5757     ds->df0102  += factor*d3fdrbgbgb;
5758     ds->df01011 += factor*d3fdrbgbab;
5759     ds->df01002 += factor*d3fdrbabab;
5760     ds->df0030  += factor*d3fdgagaga;
5761     ds->df0021  += factor*d3fdgagagb;
5762     ds->df00201 += factor*d3fdgagaab;
5763     ds->df0012  += factor*d3fdgagbgb;
5764     ds->df00111 += factor*d3fdgagbab;
5765     ds->df00102 += factor*d3fdgaabab;
5766     ds->df0003  += factor*d3fdgbgbgb;
5767     ds->df00021 += factor*d3fdgbgbab;
5768     ds->df00012 += factor*d3fdgbabab;
5769     ds->df00003 += factor*d3fdababab;
5770 
5771     ds->df4000  += factor*d4fdrararara;
5772     ds->df3100  += factor*d4fdrarararb;
5773     ds->df3010  += factor*d4fdrararaga;
5774     ds->df3001  += factor*d4fdrararagb;
5775     ds->df30001 += factor*d4fdrararaab;
5776     ds->df2200  += factor*d4fdrararbrb;
5777     ds->df2110  += factor*d4fdrararbga;
5778     ds->df2101  += factor*d4fdrararbgb;
5779     ds->df21001 += factor*d4fdrararbab;
5780     ds->df2020  += factor*d4fdraragaga;
5781     ds->df2011  += factor*d4fdraragagb;
5782     ds->df20101 += factor*d4fdraragaab;
5783     ds->df2002  += factor*d4fdraragbgb;
5784     ds->df20011 += factor*d4fdraragbab;
5785     ds->df20002 += factor*d4fdraraabab;
5786     ds->df1300  += factor*d4fdrarbrbrb;
5787     ds->df1210  += factor*d4fdrarbrbga;
5788     ds->df1201  += factor*d4fdrarbrbgb;
5789     ds->df12001 += factor*d4fdrarbrbab;
5790     ds->df1120  += factor*d4fdrarbgaga;
5791     ds->df1111  += factor*d4fdrarbgagb;
5792     ds->df11101 += factor*d4fdrarbgaab;
5793     ds->df1102  += factor*d4fdrarbgbgb;
5794     ds->df11011 += factor*d4fdrarbgbab;
5795     ds->df11002 += factor*d4fdrarbabab;
5796     ds->df1030  += factor*d4fdragagaga;
5797     ds->df1021  += factor*d4fdragagagb;
5798     ds->df10201 += factor*d4fdragagaab;
5799     ds->df1012  += factor*d4fdragagbgb;
5800     ds->df10111 += factor*d4fdragagbab;
5801     ds->df10102 += factor*d4fdragaabab;
5802     ds->df1003  += factor*d4fdragbgbgb;
5803     ds->df10021 += factor*d4fdragbgbab;
5804     ds->df10012 += factor*d4fdragbabab;
5805     ds->df10003 += factor*d4fdraababab;
5806     ds->df0400  += factor*d4fdrbrbrbrb;
5807     ds->df0310  += factor*d4fdrbrbrbga;
5808     ds->df0301  += factor*d4fdrbrbrbgb;
5809     ds->df03001 += factor*d4fdrbrbrbab;
5810     ds->df0220  += factor*d4fdrbrbgaga;
5811     ds->df0211  += factor*d4fdrbrbgagb;
5812     ds->df02101 += factor*d4fdrbrbgaab;
5813     ds->df0202  += factor*d4fdrbrbgbgb;
5814     ds->df02011 += factor*d4fdrbrbgbab;
5815     ds->df02002 += factor*d4fdrbrbabab;
5816     ds->df0130  += factor*d4fdrbgagaga;
5817     ds->df0121  += factor*d4fdrbgagagb;
5818     ds->df01201 += factor*d4fdrbgagaab;
5819     ds->df0112  += factor*d4fdrbgagbgb;
5820     ds->df01111 += factor*d4fdrbgagbab;
5821     ds->df01102 += factor*d4fdrbgaabab;
5822     ds->df0103  += factor*d4fdrbgbgbgb;
5823     ds->df01021 += factor*d4fdrbgbgbab;
5824     ds->df01012 += factor*d4fdrbgbabab;
5825     ds->df01003 += factor*d4fdrbababab;
5826     ds->df0040  += factor*d4fdgagagaga;
5827     ds->df0031  += factor*d4fdgagagagb;
5828     ds->df00301 += factor*d4fdgagagaab;
5829     ds->df0022  += factor*d4fdgagagbgb;
5830     ds->df00211 += factor*d4fdgagagbab;
5831     ds->df00202 += factor*d4fdgagaabab;
5832     ds->df0013  += factor*d4fdgagbgbgb;
5833     ds->df00121 += factor*d4fdgagbgbab;
5834     ds->df00112 += factor*d4fdgagbabab;
5835     ds->df00103 += factor*d4fdgaababab;
5836     ds->df0004  += factor*d4fdgbgbgbgb;
5837     ds->df00031 += factor*d4fdgbgbgbab;
5838     ds->df00022 += factor*d4fdgbgbabab;
5839     ds->df00013 += factor*d4fdgbababab;
5840     ds->df00004 += factor*d4fdabababab;
5841 
5842 }
5843