1 /*-*-mode: C; c-indentation-style: "bsd"; c-basic-offset: 4; -*-*/
2 /* fun-b97-d.c:
3 
4    Automatically generated code implementing B97-D functional and
5    its derivatives. It is generated by func-codegen.pl being a part of
6    a "Automatic code generation framework for analytical functional
7    derivative evaluation", Pawel Salek, 2005
8 
9     This functional is connected by making following changes:
10     1. add "extern Functional b97_dFunctional;" to 'functionals.h'
11     2. add "&b97_dFunctional," to 'functionals.c'
12     3. add "fun-b97-d.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.
13 
14 This functional is the B97-D variant of Becke's B97 functional.
15 The coefficients are re-optimized for use with Grimme's empirical
16 dispersion correction according to
17 
18 S. Grimme, JCC 27, 1787 (2006).
19 
20 Added using the input below to fun-codgen.pl, AMT and MDS
21 
22     This functional has been generated from following input:
23     ------ cut here -------
24 xa: (grada/rhoa^(4/3));
25 xb: (gradb/rhob^(4/3));
26 
27 pa: 1;
28 Aa: 0.016887;
29 a1a: 0.11125;
30 b1a: 10.357;
31 b2a: 3.6231;
32 b3a: 0.88026;
33 b4a: 0.49671;
34 
35 pe: 1;
36 c0p: 0.031091;
37 a1p: 0.21370;
38 b1p: 7.5957;
39 b2p: 3.5876;
40 b3p: 1.6382;
41 b4p: 0.49294;
42 
43 c0f: 0.01554500000;
44 a1f: 0.20548;
45 b1f: 14.1189;
46 b2f: 6.1977;
47 b3f: 3.3662;
48 b4f: 0.62517;
49 
50 ccab: [0.69041, 6.30270, -14.9712];
51 ccaa: [0.22340, -1.56208, 1.94293];
52 cx:   [1.08662, -0.52127, 3.25429];
53 
54 rs(r):= (3/(4*%PI*r))^(1/3);
55 z(ra,rb):= (ra-rb)/(ra+rb);
56 fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);
57 
58 d2fz0: 1.709921;
59 
60 Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
61    *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));
62 
63 Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
64 EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
65 EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);
66 
67 
68 EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
69    Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
70    (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
71    (z(ra,rb))^4);
72 
73 EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);
74 
75 gcab: 0.006;
76 gcaa: 0.2;
77 
78 cx0: -3/8*((16*3/%PI)^(1/3));
79 gx: 0.004;
80 
81 Ucab(t):= gcab*t/(1+gcab*t);
82 Ucaa(t):= gcaa*t/(1+gcaa*t);
83 
84 Gcab(t):= ccab[1] + ccab[2]*Ucab(t) + ccab[3]*Ucab(t)^2;
85 Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t) + ccaa[3]*Ucaa(t)^2;
86 
87 Ux(r):= gx*r/(1+gx*r);
88 
89 ExLSDAa: (cx0*rhoa^(4/3));
90 ExLSDAb: (cx0*rhob^(4/3));
91 
92 Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2;
93 
94 K(rhoa,grada,rhob,gradb,gradab):=
95    EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
96  + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
97  + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);
98 
99 
100 
101 
102     ------ cut here -------
103 */
104 
105 
106 /* strictly conform to XOPEN ANSI C standard */
107 #if !defined(SYS_DEC)
108 /* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
109  * is not specified. */
110 #define _XOPEN_SOURCE          500
111 #define _XOPEN_SOURCE_EXTENDED 1
112 #endif
113 #include <math.h>
114 #include <stddef.h>
115 #include "general.h"
116 
117 #define __CVERSION__
118 
119 #include "functionals.h"
120 
121 /* INTERFACE PART */
b97_d_isgga(void)122 static integer b97_d_isgga(void) { return 1; } /* FIXME: detect! */
123 static integer b97_d_read(const char *conf_line);
124 static real b97_d_energy(const FunDensProp* dp);
125 static void b97_d_first(FunFirstFuncDrv *ds,   real factor,
126                          const FunDensProp* dp);
127 static void b97_d_second(FunSecondFuncDrv *ds, real factor,
128                           const FunDensProp* dp);
129 static void b97_d_third(FunThirdFuncDrv *ds,   real factor,
130                          const FunDensProp* dp);
131 static void b97_d_fourth(FunFourthFuncDrv *ds,   real factor,
132                           const FunDensProp* dp);
133 
134 Functional B97_dFunctional = {
135   "B97-D",       /* name */
136   b97_d_isgga,   /* gga-corrected */
137   1,
138   b97_d_read,
139   NULL,
140   b97_d_energy,
141   b97_d_first,
142   b97_d_second,
143   b97_d_third,
144   b97_d_fourth
145 };
146 
147 /* IMPLEMENTATION PART */
148 static integer
b97_d_read(const char * conf_line)149 b97_d_read(const char *conf_line)
150 {
151     fun_set_hf_weight(0);
152     return 1;
153 }
154 
155 
156 
157 static real
b97_d_energy(const FunDensProp * dp)158 b97_d_energy(const FunDensProp *dp)
159 {
160     real res;
161     real rhoa = dp->rhoa, rhob = dp->rhob;
162     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
163 
164     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
165     real t11, t12, t13, t14, t15, t16, t17, t18;
166     real t19, t20, t21, t22, t23, t24, t25, t26;
167     real t27, t28, t29, t30, t31, t32, t33, t34;
168     real t35, t36, t37, t38, t39, t40, t41, t42;
169     real t43, t44, t45, t46, t47, t48, t49, t50;
170     real t51;
171 
172     t1 = 1.732050807568877;
173     t2 = pow(M_PI,.3333333333333333);
174     t3 = pow(rhoa,.3333333333333333);
175     t4 = sqrt(t2*t3);
176     t5 = pow(2.0,.3333333333333333);
177     t6 = 1/t5;
178     t7 = pow(3.0,.1666666666666667);
179     t8 = pow(3.0,.6666666666666666);
180     t9 = 1/pow(4.0,.6666666666666666);
181     t10 = 1/pow(M_PI,.6666666666666666);
182     t11 = pow(3.0,.3333333333333333);
183     t12 = 1/pow(4.0,.3333333333333333);
184     t13 = 1/t2;
185     t14 = 1/t3;
186     t15 = log(32.1646831778707/(0.62517*t10*t8*t9/pow(rhoa,
187         .6666666666666666)+14.1189*t6*t7/t4+1.6831*t1/pow(t4,3.0)+
188         6.1977*t11*t12*t13*t14)+1.0);
189     t16 = pow(grada,4.0);
190     t17 = pow(grada,2.0);
191     t18 = 1/pow(rhoa,2.666666666666667);
192     t19 = 0.2*t17*t18+1.0;
193     t20 = 1/pow(rhoa,5.333333333333333);
194     t21 = 0.20548*t11*t12*t13*t14+1.0;
195     t22 = pow(6.0,.3333333333333333);
196     t23 = 0.004*t17*t18+1.0;
197     t24 = pow(rhob,.3333333333333333);
198     t25 = sqrt(t2*t24);
199     t26 = 1/t24;
200     t27 = log(32.1646831778707/(0.62517*t10*t8*t9/pow(rhob,
201         .6666666666666666)+14.1189*t6*t7/t25+6.1977*t11*t12*t13*t26+
202         1.6831*t1/pow(t25,3.0))+1.0);
203     t28 = pow(gradb,4.0);
204     t29 = pow(gradb,2.0);
205     t30 = 1/pow(rhob,2.666666666666667);
206     t31 = 0.2*t29*t30+1.0;
207     t32 = 1/pow(rhob,5.333333333333333);
208     t33 = 0.20548*t11*t12*t13*t26+1.0;
209     t34 = 0.004*t29*t30+1.0;
210     t35 = 0.5*t29*t30+0.5*t17*t18;
211     t36 = 0.006*t35+1.0;
212     t37 = rhob+rhoa;
213     t38 = pow(t37,.3333333333333333);
214     t39 = 1/t38;
215     t40 = 0.2137*t11*t12*t13*t39+1.0;
216     t41 = 1/pow(t37,.6666666666666666);
217     t42 = sqrt(t2*t38);
218     t43 = 1/pow(t42,3.0);
219     t44 = 1/t42;
220     t45 = log(16.0818243221511/(7.5957*t6*t7*t44+0.8191*t1*
221         t43+3.5876*t11*t12*t13*t39+0.49294*t8*t9*t10*t41)+1.0);
222     t46 = 1/(2.0*t5-2.0);
223     t47 = rhoa-1.0*rhob;
224     t48 = pow(t47,4.0);
225     t49 = 1/pow(t37,4.0);
226     t50 = 1/t37;
227     t51 = pow(t47*t50+1.0,1.333333333333333)+pow(1.0-1.0*
228         t47*t50,1.333333333333333)-2.0;
229 
230    /* code */
231     res = -0.75*t13*t22*(5.206864E-5*t28*t32/pow(t34,2.0)-
232         0.00208508*t29*t30/t34+1.08662)*pow(rhob,1.333333333333333)+
233         (-5.389632E-4*pow(t35,2.0)/pow(t36,2.0)+0.0378162*t35/t36+
234         0.69041)*(0.03109*t27*t33*rhob+0.03109*t15*t21*rhoa+t37*(.01975178970256521*
235         (0.11125*t11*t12*t13*t39+1.0)*log(29.60857464321668/(10.357*
236         t6*t7*t44+0.44013*t1*t43+3.6231*t11*t12*t13*t39+0.49671*t8*
237         t9*t10*t41)+1.0)*t46*(1.0-1.0*t48*t49)*t51+(0.062182*t40*t45-
238         0.03109*(0.20548*t11*t12*t13*t39+1.0)*log(32.1646831778707/
239         (14.1189*t6*t7*t44+1.6831*t1*t43+6.1977*t11*t12*t13*t39+0.62517*
240         t8*t9*t10*t41)+1.0))*t46*t48*t49*t51-0.062182*t40*t45))-0.03109*
241         t27*(.07771720000000001*t28*t32/pow(t31,2.0)-0.312416*t29*
242         t30/t31+0.2234)*t33*rhob-0.75*t13*t22*(5.206864E-5*t16*t20/
243         pow(t23,2.0)-0.00208508*t17*t18/t23+1.08662)*pow(rhoa,1.333333333333333)-
244         0.03109*t15*(.07771720000000001*t16*t20/pow(t19,2.0)-0.312416*
245         t17*t18/t19+0.2234)*t21*rhoa;
246 
247     return res;
248 }
249 
250 static void
b97_d_first(FunFirstFuncDrv * ds,real factor,const FunDensProp * dp)251 b97_d_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
252 {
253     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
254     real rhoa = dp->rhoa, rhob = dp->rhob;
255     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
256 
257     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
258     real t11, t12, t13, t14, t15, t16, t17, t18;
259     real t19, t20, t21, t22, t23, t24, t25, t26;
260     real t27, t28, t29, t30, t31, t32, t33, t34;
261     real t35, t36, t37, t38, t39, t40, t41, t42;
262     real t43, t44, t45, t46, t47, t48, t49, t50;
263     real t51, t52, t53, t54, t55, t56, t57, t58;
264     real t59, t60, t61, t62, t63, t64, t65, t66;
265     real t67, t68, t69, t70, t71, t72, t73, t74;
266     real t75, t76, t77, t78, t79, t80, t81, t82;
267     real t83, t84, t85, t86, t87, t88, t89, t90;
268     real t91, t92, t93, t94, t95, t96, t97, t98;
269     real t99, t100, t101, t102, t103, t104, t105;
270     real t106, t107, t108, t109, t110, t111, t112;
271     real t113, t114, t115, t116, t117, t118, t119;
272     real t120, t121, t122, t123, t124, t125, t126;
273     real t127, t128, t129, t130, t131, t132, t133;
274     real t134, t135, t136, t137, t138, t139, t140;
275     real t141;
276 
277     t1 = pow(3.0,.3333333333333333);
278     t2 = 1/pow(4.0,.3333333333333333);
279     t3 = pow(M_PI,.3333333333333333);
280     t4 = 1/t3;
281     t5 = 1.732050807568877;
282     t6 = pow(rhoa,.3333333333333333);
283     t7 = sqrt(t3*t6);
284     t8 = 1/pow(t7,3.0);
285     t9 = pow(2.0,.3333333333333333);
286     t10 = 1/t9;
287     t11 = pow(3.0,.1666666666666667);
288     t12 = pow(3.0,.6666666666666666);
289     t13 = 1/pow(4.0,.6666666666666666);
290     t14 = 1/pow(M_PI,.6666666666666666);
291     t15 = 1/pow(rhoa,.6666666666666666);
292     t16 = 1/t6;
293     t17 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
294         t16+0.62517*t12*t13*t14*t15;
295     t18 = 32.1646831778707/t17+1.0;
296     t19 = log(t18);
297     t20 = pow(grada,4.0);
298     t21 = pow(grada,2.0);
299     t22 = 1/pow(rhoa,2.666666666666667);
300     t23 = 0.2*t21*t22+1.0;
301     t24 = 1/pow(t23,2.0);
302     t25 = 1/pow(rhoa,5.333333333333333);
303     t26 = 1/t23;
304     t27 = -0.312416*t21*t26*t22+.07771720000000001*t20*t24*
305         t25+0.2234;
306     t28 = 0.20548*t1*t2*t4*t16+1.0;
307     t29 = pow(6.0,.3333333333333333);
308     t30 = 0.004*t21*t22+1.0;
309     t31 = 1/pow(t30,2.0);
310     t32 = 1/t30;
311     t33 = pow(grada,6.0);
312     t34 = 1/pow(t23,3.0);
313     t35 = 1/pow(rhoa,9.0);
314     t36 = 1/pow(rhoa,6.333333333333333);
315     t37 = 1/pow(rhoa,3.666666666666667);
316     t38 = 1/t18;
317     t39 = pow(rhoa,1.333333333333333);
318     t40 = -0.41678*t12*t13*t14/pow(rhoa,1.666666666666667)-
319         0.84155*t15*t3*t5/pow(t7,5.0)-2.0659*t1*t2*t4/t39-2.35315*
320         t10*t11*t3*t8*t15;
321     t41 = 1/pow(t17,2.0);
322     t42 = 1/pow(t30,3.0);
323     t43 = pow(gradb,2.0);
324     t44 = 1/pow(rhob,2.666666666666667);
325     t45 = 0.5*t43*t44+0.5*t21*t22;
326     t46 = pow(t45,2.0);
327     t47 = 0.006*t45+1.0;
328     t48 = 1/pow(t47,2.0);
329     t49 = 1/t47;
330     t50 = 0.0378162*t45*t49-5.389632E-4*t46*t48+0.69041;
331     t51 = rhob+
332         rhoa;
333     t52 = pow(t51,.3333333333333333);
334     t53 = 1/t52;
335     t54 = 0.2137*t1*t2*t4*t53+1.0;
336     t55 = 1/pow(t51,.6666666666666666);
337     t56 = sqrt(t3*t52);
338     t57 = 1/pow(t56,3.0);
339     t58 = 1/t56;
340     t59 = 7.5957*t10*t11*t58+0.8191*t5*t57+3.5876*t1*t2*t4*
341         t53+0.49294*t12*t13*t14*t55;
342     t60 = 16.0818243221511/t59+1.0;
343     t61 = log(t60);
344     t62 = -0.062182*t54*t61;
345     t63 = 1/(2.0*t9-2.0);
346     t64 = rhoa-1.0*rhob;
347     t65 = pow(t64,4.0);
348     t66 = 1/pow(t51,4.0);
349     t67 = 1.0-1.0*t65*t66;
350     t68 = 0.11125*t1*t2*t4*t53+1.0;
351     t69 = 1/t51;
352     t70 = 1.0-1.0*t64*t69;
353     t71 = t64*t69+1.0;
354     t72 = pow(t71,1.333333333333333)+pow(t70,1.333333333333333)-
355         2.0;
356     t73 = 10.357*t10*t11*t58+0.44013*t5*t57+3.6231*t1*t2*
357         t4*t53+0.49671*t12*t13*t14*t55;
358     t74 = 29.60857464321668/t73+1.0;
359     t75 = log(t74);
360     t76 = .01975178970256521*t63*t67*t68*t72*t75;
361     t77 = 0.20548*t1*t2*t4*t53+1.0;
362     t78 = 14.1189*t10*t11*t58+1.6831*t5*t57+6.1977*t1*t2*
363         t4*t53+0.62517*t12*t13*t14*t55;
364     t79 = 32.1646831778707/t78+1.0;
365     t80 = log(t79);
366     t81 = 0.062182*t54*t61-0.03109*t77*t80;
367     t82 = t63*t65*t66*t72*t81;
368     t83 = 1/pow(t51,1.666666666666667);
369     t84 = 1/pow(t51,1.333333333333333);
370     t85 = 1/pow(t56,5.0);
371     t86 = -1.26595*t10*t11*t3*t55*t57-0.40955*t5*t3*t55*t85-
372         1.195866666666667*t1*t2*t4*t84-.3286266666666666*t12*t13*t14*
373         t83;
374     t87 = 1/pow(t59,2.0);
375     t88 = 1/t60;
376     t89 = .9999999999999999*t54*t86*t87*t88;
377     t90 = -.5848223397455204*(-1.726166666666666*t10*t11*
378         t3*t55*t57-0.220065*t5*t3*t55*t85-1.2077*t1*t2*t4*t84-0.33114*
379         t12*t13*t14*t83)*t63*t67*t68*t72/(pow(t73,2.0)*t74);
380     t91 = .004429431133333333*t1*t2*t4*t84*t61;
381     t92 = 1/pow(t51,2.0);
382     t93 = t64*t92;
383     t94 = -1.0*t69;
384     t95 = pow(t70,.3333333333333333);
385     t96 = -1.0*t64*t92;
386     t97 = pow(t71,.3333333333333333);
387     t98 = 1.333333333333333*(t69+t96)*t97+1.333333333333333*
388         (t94+t93)*t95;
389     t99 = -7.324622014701263E-4*t63*t1*t2*t4*t84*t67*t72*
390         t75;
391     t100 = 1/pow(t51,5.0);
392     t101 = 4.0*t100*t65;
393     t102 = pow(t64,3.0);
394     t103 = t63*t65*t66*t72*(-.9999999999999999*t54*t86*t87*
395         t88+.002129457733333333*t1*t2*t4*t84*t80+1.0*(-2.35315*t10*
396         t11*t3*t55*t57-0.84155*t5*t3*t55*t85-2.0659*t1*t2*t4*t84-0.41678*
397         t12*t13*t14*t83)*t77/(pow(t78,2.0)*t79)-.004429431133333333*
398         t1*t2*t4*t84*t61);
399     t104 = -4.0*t100*t63*t65*t72*t81;
400     t105 = 1/pow(t47,3.0);
401     t106 = pow(rhob,.3333333333333333);
402     t107 = sqrt(t3*t106);
403     t108 = 1/pow(t107,3.0);
404     t109 = 1/pow(rhob,.6666666666666666);
405     t110 = 1/t106;
406     t111 = 6.1977*t1*t2*t4*t110+14.1189*t10*t11/t107+0.62517*
407         t12*t13*t14*t109+1.6831*t5*t108;
408     t112 = 32.1646831778707/t111+1.0;
409     t113 = log(t112);
410     t114 = 0.20548*t1*t2*t4*t110+1.0;
411     t115 = t51*(t82+t76+t62)+0.03109*t113*t114*rhob+0.03109*
412         t19*t28*rhoa;
413     t116 = pow(gradb,4.0);
414     t117 = 0.2*t43*t44+1.0;
415     t118 = 1/pow(t117,2.0);
416     t119 = 1/pow(rhob,5.333333333333333);
417     t120 = 1/t117;
418     t121 = -0.312416*t43*t120*t44+.07771720000000001*t116*
419         t118*t119+0.2234;
420     t122 = 0.004*t43*t44+1.0;
421     t123 = 1/pow(t122,2.0);
422     t124 = 1/t122;
423     t125 = pow(gradb,6.0);
424     t126 = 1/pow(t117,3.0);
425     t127 = 1/pow(rhob,9.0);
426     t128 = 1/pow(rhob,6.333333333333333);
427     t129 = 1/pow(rhob,3.666666666666667);
428     t130 = 1/t112;
429     t131 = pow(rhob,1.333333333333333);
430     t132 = -0.41678*t12*t13*t14/pow(rhob,1.666666666666667)-
431         0.84155*t109*t3*t5/pow(t107,5.0)-2.0659*t1*t2*t4/t131-2.35315*
432         t10*t11*t3*t108*t109;
433     t133 = 1/pow(t111,2.0);
434     t134 = 1/pow(t122,3.0);
435     t135 = 1.333333333333333*(t94+t96)*t97+1.333333333333333*
436         (t69+t93)*t95;
437     t136 = pow(grada,5.0);
438     t137 = 1/pow(rhoa,8.0);
439     t138 = pow(grada,3.0);
440     t139 = pow(gradb,5.0);
441     t140 = 1/pow(rhob,8.0);
442     t141 = pow(gradb,3.0);
443 
444    /* code */
445     dfdra = t50*(-1.0*t38*t40*t28*t41*rhoa+t51*(t99+t91+t90+
446         t89+t63*t65*t66*t98*t81+4.0*t102*t63*t66*t72*t81+.01975178970256521*
447         t63*t67*t68*t98*t75+.01975178970256521*t63*(t101-4.0*t102*
448         t66)*t68*t72*t75+t104+t103)+t82+t76+t62+0.03109*t19*t28-.002129457733333333*
449         t1*t2*t4*t19*t16)+1.0*t38*t27*t40*t28*t41*rhoa-0.03109*t19*
450         (.8331093333333334*t21*t26*t37-.5811136000000001*t20*t24*t36+
451         .08289834666666668*t33*t34*t35)*t28*rhoa-1.0*(-0.00208508*
452         t21*t32*t22+5.206864E-5*t20*t31*t25+1.08662)*t29*t4*t6-0.75*
453         t29*(.005560213333333333*t21*t32*t37-2.999402666666667E-4*
454         t20*t31*t36+1.1107976533333333E-6*t33*t42*t35)*t39*t4-0.03109*
455         t19*t27*t28+.002129457733333333*t1*t2*t4*t19*t27*t16+(-0.0504216*
456         t21*t37*t49+0.0017397648*t21*t37*t45*t48-8.6234112E-6*t21*
457         t37*t46*t105)*t115;
458     dfdrb = t50*(-1.0*t130*t132*t114*t133*rhob+t51*(t99+t91+
459         t90+t89-4.0*t102*t63*t66*t72*t81+t63*t65*t66*t135*t81+.01975178970256521*
460         t63*(4.0*t102*t66+t101)*t68*t72*t75+.01975178970256521*t63*
461         t67*t68*t135*t75+t104+t103)+t82+t76+t62+0.03109*t113*t114-
462         .002129457733333333*t1*t2*t4*t113*t110)+1.0*t130*t121*t132*
463         t114*t133*rhob-0.03109*t113*(.8331093333333334*t43*t120*t129-
464         .5811136000000001*t116*t118*t128+.08289834666666668*t125*t126*
465         t127)*t114*rhob-1.0*t106*t29*t4*(-0.00208508*t43*t124*t44+
466         5.206864E-5*t116*t123*t119+1.08662)-0.75*(.005560213333333333*
467         t43*t124*t129-2.999402666666667E-4*t116*t123*t128+1.1107976533333333E-6*
468         t125*t134*t127)*t131*t29*t4+(-0.0504216*t43*t49*t129+0.0017397648*
469         t43*t45*t48*t129-8.6234112E-6*t43*t46*t105*t129)*t115-0.03109*
470         t113*t121*t114+.002129457733333333*t1*t2*t4*t113*t121*t110;
471     dfdga = -
472         0.03109*t19*(-0.624832*grada*t26*t22+.4358352000000001*t138*
473         t24*t25-.06217376000000002*t136*t34*t137)*t28*rhoa-0.75*(-
474         0.00417016*grada*t32*t22+2.249552E-4*t138*t31*t25-8.3309824E-7*
475         t136*t42*t137)*t29*t39*t4+(0.0378162*grada*t22*t49-0.0013048236*
476         grada*t22*t45*t48+6.4675584E-6*grada*t22*t46*t105)*t115;
477     dfdgb = -
478         0.03109*t113*(-0.624832*gradb*t120*t44+.4358352000000001*t141*
479         t118*t119-.06217376000000002*t139*t126*t140)*t114*rhob-0.75*
480         t131*t29*t4*(-0.00417016*gradb*t124*t44+2.249552E-4*t141*t123*
481         t119-8.3309824E-7*t139*t134*t140)+(0.0378162*gradb*t49*t44-
482         0.0013048236*gradb*t45*t48*t44+6.4675584E-6*gradb*t46*t105*
483         t44)*t115;
484     dfdgab = 0.0;
485 
486 
487     ds->df1000 += factor*dfdra;
488     ds->df0100 += factor*dfdrb;
489     ds->df0010 += factor*dfdga;
490     ds->df0001 += factor*dfdgb;
491     ds->df00001+= factor*dfdgab;
492 
493 }
494 
495 static void
b97_d_second(FunSecondFuncDrv * ds,real factor,const FunDensProp * dp)496 b97_d_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
497 {
498     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
499     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
500         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
501         d2fdgbgb, d2fdgbgab, d2fdgabgab;
502     real rhoa = dp->rhoa, rhob = dp->rhob;
503     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
504 
505     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
506     real t11, t12, t13, t14, t15, t16, t17, t18;
507     real t19, t20, t21, t22, t23, t24, t25, t26;
508     real t27, t28, t29, t30, t31, t32, t33, t34;
509     real t35, t36, t37, t38, t39, t40, t41, t42;
510     real t43, t44, t45, t46, t47, t48, t49, t50;
511     real t51, t52, t53, t54, t55, t56, t57, t58;
512     real t59, t60, t61, t62, t63, t64, t65, t66;
513     real t67, t68, t69, t70, t71, t72, t73, t74;
514     real t75, t76, t77, t78, t79, t80, t81, t82;
515     real t83, t84, t85, t86, t87, t88, t89, t90;
516     real t91, t92, t93, t94, t95, t96, t97, t98;
517     real t99, t100, t101, t102, t103, t104, t105;
518     real t106, t107, t108, t109, t110, t111, t112;
519     real t113, t114, t115, t116, t117, t118, t119;
520     real t120, t121, t122, t123, t124, t125, t126;
521     real t127, t128, t129, t130, t131, t132, t133;
522     real t134, t135, t136, t137, t138, t139, t140;
523     real t141, t142, t143, t144, t145, t146, t147;
524     real t148, t149, t150, t151, t152, t153, t154;
525     real t155, t156, t157, t158, t159, t160, t161;
526     real t162, t163, t164, t165, t166, t167, t168;
527     real t169, t170, t171, t172, t173, t174, t175;
528     real t176, t177, t178, t179, t180, t181, t182;
529     real t183, t184, t185, t186, t187, t188, t189;
530     real t190, t191, t192, t193, t194, t195, t196;
531     real t197, t198, t199, t200, t201, t202, t203;
532     real t204, t205, t206, t207, t208, t209, t210;
533     real t211, t212, t213, t214, t215, t216, t217;
534     real t218, t219, t220, t221, t222, t223, t224;
535     real t225, t226, t227, t228, t229, t230, t231;
536     real t232, t233, t234, t235, t236, t237, t238;
537     real t239, t240, t241, t242, t243, t244, t245;
538     real t246, t247, t248, t249, t250, t251, t252;
539     real t253, t254, t255, t256, t257, t258;
540 
541     t1 = pow(3.0,.3333333333333333);
542     t2 = 1/pow(4.0,.3333333333333333);
543     t3 = pow(M_PI,.3333333333333333);
544     t4 = 1/t3;
545     t5 = 1.732050807568877;
546     t6 = pow(rhoa,.3333333333333333);
547     t7 = sqrt(t3*t6);
548     t8 = 1/pow(t7,3.0);
549     t9 = pow(2.0,.3333333333333333);
550     t10 = 1/t9;
551     t11 = pow(3.0,.1666666666666667);
552     t12 = pow(3.0,.6666666666666666);
553     t13 = 1/pow(4.0,.6666666666666666);
554     t14 = pow(M_PI,.6666666666666666);
555     t15 = 1/t14;
556     t16 = 1/pow(rhoa,.6666666666666666);
557     t17 = 1/t6;
558     t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
559         t17+0.62517*t12*t13*t15*t16;
560     t19 = 32.1646831778707/t18+1.0;
561     t20 = log(t19);
562     t21 = pow(grada,4.0);
563     t22 = pow(grada,2.0);
564     t23 = 1/pow(rhoa,2.666666666666667);
565     t24 = 0.2*t22*t23+1.0;
566     t25 = 1/pow(t24,2.0);
567     t26 = 1/pow(rhoa,5.333333333333333);
568     t27 = 1/t24;
569     t28 = -0.312416*t22*t27*t23+.07771720000000001*t21*t25*
570         t26+0.2234;
571     t29 = 0.20548*t1*t2*t4*t17+1.0;
572     t30 = pow(6.0,.3333333333333333);
573     t31 = 0.004*t22*t23+1.0;
574     t32 = 1/pow(t31,2.0);
575     t33 = 1/t31;
576     t34 = -0.00208508*t22*t33*t23+5.206864E-5*t21*t32*t26+
577         1.08662;
578     t35 = pow(grada,6.0);
579     t36 = 1/pow(t24,3.0);
580     t37 = 1/pow(rhoa,9.0);
581     t38 = 1/pow(rhoa,6.333333333333333);
582     t39 = 1/pow(rhoa,3.666666666666667);
583     t40 = .8331093333333334*t22*t27*t39-.5811136000000001*
584         t21*t25*t38+.08289834666666668*t35*t36*t37;
585     t41 = 1/t19;
586     t42 = 1/pow(rhoa,1.666666666666667);
587     t43 = pow(rhoa,1.333333333333333);
588     t44 = 1/t43;
589     t45 = 1/pow(t7,5.0);
590     t46 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t45*t16-
591         2.0659*t1*t2*t4*t44-0.41678*t12*t13*t15*t42;
592     t47 = 1/pow(t18,2.0);
593     t48 = 1/pow(t31,3.0);
594     t49 = .005560213333333333*t22*t33*t39-2.999402666666667E-4*
595         t21*t32*t38+1.1107976533333333E-6*t35*t48*t37;
596     t50 = pow(gradb,2.0);
597     t51 = 1/pow(rhob,2.666666666666667);
598     t52 = 0.5*t50*t51+0.5*t22*t23;
599     t53 = pow(t52,2.0);
600     t54 = 0.006*t52+1.0;
601     t55 = 1/pow(t54,2.0);
602     t56 = 1/t54;
603     t57 = 0.0378162*t52*t56-5.389632E-4*t53*t55+0.69041;
604     t58 = rhob+
605         rhoa;
606     t59 = pow(t58,.3333333333333333);
607     t60 = 1/t59;
608     t61 = 0.2137*t1*t2*t4*t60+1.0;
609     t62 = 1/pow(t58,.6666666666666666);
610     t63 = sqrt(t3*t59);
611     t64 = 1/pow(t63,3.0);
612     t65 = 1/t63;
613     t66 = 7.5957*t10*t11*t65+0.8191*t5*t64+3.5876*t1*t2*t4*
614         t60+0.49294*t12*t13*t15*t62;
615     t67 = 16.0818243221511/t66+1.0;
616     t68 = log(t67);
617     t69 = -0.062182*t61*t68;
618     t70 = 1/(2.0*t9-2.0);
619     t71 = rhoa-1.0*rhob;
620     t72 = pow(t71,4.0);
621     t73 = 1/pow(t58,4.0);
622     t74 = 1.0-1.0*t72*t73;
623     t75 = 0.11125*t1*t2*t4*t60+1.0;
624     t76 = 1/t58;
625     t77 = 1.0-1.0*t71*t76;
626     t78 = t71*t76+1.0;
627     t79 = pow(t78,1.333333333333333)+pow(t77,1.333333333333333)-
628         2.0;
629     t80 = 10.357*t10*t11*t65+0.44013*t5*t64+3.6231*t1*t2*
630         t4*t60+0.49671*t12*t13*t15*t62;
631     t81 = 29.60857464321668/t80+1.0;
632     t82 = log(t81);
633     t83 = .01975178970256521*t70*t74*t75*t79*t82;
634     t84 = 0.20548*t1*t2*t4*t60+1.0;
635     t85 = 14.1189*t10*t11*t65+1.6831*t5*t64+6.1977*t1*t2*
636         t4*t60+0.62517*t12*t13*t15*t62;
637     t86 = 32.1646831778707/t85+1.0;
638     t87 = log(t86);
639     t88 = 0.062182*t61*t68-0.03109*t84*t87;
640     t89 = t70*t72*t73*t79*t88;
641     t90 = 1/pow(t58,1.666666666666667);
642     t91 = 1/pow(t58,1.333333333333333);
643     t92 = 1/pow(t63,5.0);
644     t93 = -1.26595*t10*t11*t3*t62*t64-0.40955*t5*t3*t62*t92-
645         1.195866666666667*t1*t2*t4*t91-.3286266666666666*t12*t13*t15*
646         t90;
647     t94 = 1/pow(t66,2.0);
648     t95 = 1/t67;
649     t96 = .9999999999999999*t61*t93*t94*t95;
650     t97 = -1.726166666666666*t10*t11*t3*t62*t64-0.220065*
651         t5*t3*t62*t92-1.2077*t1*t2*t4*t91-0.33114*t12*t13*t15*t90;
652     t98 = 1/
653         pow(t80,2.0);
654     t99 = 1/t81;
655     t100 = -.5848223397455204*t70*t74*t75*t79*t97*t98*t99;
656     t101 = .004429431133333333*
657         t1*t2*t4*t91*t68;
658     t102 = 1/pow(t58,2.0);
659     t103 = t71*t102;
660     t104 = -1.0*t76;
661     t105 = t104+t103;
662     t106 = pow(t77,.3333333333333333);
663     t107 = -1.0*t102*t71;
664     t108 = t76+t107;
665     t109 = pow(t78,.3333333333333333);
666     t110 = 1.333333333333333*t108*t109+1.333333333333333*
667         t105*t106;
668     t111 = .01975178970256521*t70*t74*t75*t110*t82;
669     t112 = -7.324622014701263E-4*t70*t1*t2*t4*t91*t74*t79*
670         t82;
671     t113 = 1/pow(t58,5.0);
672     t114 = 4.0*t113*t72;
673     t115 = pow(t71,3.0);
674     t116 = t114-4.0*t115*t73;
675     t117 = .01975178970256521*t70*t116*t75*t79*t82;
676     t118 = -2.35315*t10*t11*t3*t62*t64-0.84155*t5*t3*t62*
677         t92-2.0659*t1*t2*t4*t91-0.41678*t12*t13*t15*t90;
678     t119 = 1/pow(t85,2.0);
679     t120 = 1/t86;
680     t121 = .002129457733333333*t1*t2*t4*t91*t87-.004429431133333333*
681         t1*t2*t4*t91*t68+1.0*t84*t118*t119*t120-.9999999999999999*
682         t61*t93*t94*t95;
683     t122 = t70*t72*t73*t79*t121;
684     t123 = t70*t72*t73*t110*t88;
685     t124 = -4.0*t113*t70*t72*t79*t88;
686     t125 = -1.0*t41*t46*t29*t47*rhoa+t58*(t96+4.0*t115*t70*
687         t73*t79*t88+t124+t123+t122+t117+t112+t111+t101+t100)+t89+t83+
688         t69+0.03109*t20*t29-.002129457733333333*t1*t2*t4*t20*t17;
689     t126 = 1/
690         pow(t54,3.0);
691     t127 = -0.0504216*t22*t39*t56+0.0017397648*t22*t39*t52*
692         t55-8.6234112E-6*t22*t39*t53*t126;
693     t128 = pow(rhob,.3333333333333333);
694     t129 = sqrt(t3*t128);
695     t130 = 1/pow(t129,3.0);
696     t131 = 1/pow(rhob,.6666666666666666);
697     t132 = 1/t128;
698     t133 = 6.1977*t1*t2*t4*t132+0.62517*t12*t13*t15*t131+
699         1.6831*t5*t130+14.1189*t10*t11/t129;
700     t134 = 32.1646831778707/t133+1.0;
701     t135 = log(t134);
702     t136 = 0.20548*t1*t2*t4*t132+1.0;
703     t137 = t58*(t89+t83+t69)+0.03109*t135*t136*rhob+0.03109*
704         t20*t29*rhoa;
705     t138 = pow(gradb,4.0);
706     t139 = 0.2*t50*t51+1.0;
707     t140 = 1/pow(t139,2.0);
708     t141 = 1/pow(rhob,5.333333333333333);
709     t142 = 1/t139;
710     t143 = -0.312416*t50*t142*t51+.07771720000000001*t138*
711         t140*t141+0.2234;
712     t144 = 0.004*t50*t51+1.0;
713     t145 = 1/pow(t144,2.0);
714     t146 = 1/t144;
715     t147 = -0.00208508*t50*t146*t51+5.206864E-5*t138*t145*
716         t141+1.08662;
717     t148 = pow(gradb,6.0);
718     t149 = 1/pow(t139,3.0);
719     t150 = 1/pow(rhob,9.0);
720     t151 = 1/pow(rhob,6.333333333333333);
721     t152 = 1/pow(rhob,3.666666666666667);
722     t153 = .8331093333333334*t50*t142*t152-.5811136000000001*
723         t138*t140*t151+.08289834666666668*t148*t149*t150;
724     t154 = 1/t134;
725     t155 = 1/pow(rhob,1.666666666666667);
726     t156 = pow(rhob,1.333333333333333);
727     t157 = 1/t156;
728     t158 = 1/pow(t129,5.0);
729     t159 = -2.35315*t10*t11*t3*t130*t131-0.84155*t5*t3*t158*
730         t131-2.0659*t1*t2*t4*t157-0.41678*t12*t13*t15*t155;
731     t160 = 1/pow(t133,2.0);
732     t161 = 1/pow(t144,3.0);
733     t162 = .005560213333333333*t50*t146*t152-2.999402666666667E-4*
734         t138*t145*t151+1.1107976533333333E-6*t148*t161*t150;
735     t163 = t76+t103;
736     t164 = t104+t107;
737     t165 = 1.333333333333333*t109*t164+1.333333333333333*
738         t106*t163;
739     t166 = .01975178970256521*t70*t74*t75*t165*t82;
740     t167 = 4.0*t115*t73+t114;
741     t168 = .01975178970256521*t70*t167*t75*t79*t82;
742     t169 = t70*t72*t73*t165*t88;
743     t170 = -1.0*t154*t159*t136*t160*rhob+t58*(t96-4.0*t115*
744         t70*t73*t79*t88+t169+t168+t166+t124+t122+t112+t101+t100)+t89+
745         t83+t69+0.03109*t135*t136-.002129457733333333*t1*t2*t4*t135*
746         t132;
747     t171 = -0.0504216*t50*t56*t152+0.0017397648*t50*t52*t55*
748         t152-8.6234112E-6*t50*t53*t126*t152;
749     t172 = pow(grada,5.0);
750     t173 = 1/pow(rhoa,8.0);
751     t174 = pow(grada,3.0);
752     t175 = -0.624832*grada*t27*t23+.4358352000000001*t174*
753         t25*t26-.06217376000000002*t172*t36*t173;
754     t176 = -0.00417016*grada*t33*t23+2.249552E-4*t174*t32*
755         t26-8.3309824E-7*t172*t48*t173;
756     t177 = 0.0378162*grada*t23*t56-0.0013048236*grada*t23*
757         t52*t55+6.4675584E-6*grada*t23*t53*t126;
758     t178 = pow(gradb,5.0);
759     t179 = 1/pow(rhob,8.0);
760     t180 = pow(gradb,3.0);
761     t181 = -0.624832*gradb*t142*t51+.4358352000000001*t180*
762         t140*t141-.06217376000000002*t178*t149*t179;
763     t182 = -0.00417016*gradb*t146*t51+2.249552E-4*t180*t145*
764         t141-8.3309824E-7*t178*t161*t179;
765     t183 = 0.0378162*gradb*t56*t51-0.0013048236*gradb*t52*
766         t55*t51+6.4675584E-6*gradb*t53*t126*t51;
767     t184 = pow(grada,8.0);
768     t185 = 1/pow(t24,4.0);
769     t186 = 1/pow(rhoa,12.66666666666667);
770     t187 = 1/pow(rhoa,10.0);
771     t188 = 1/pow(rhoa,7.333333333333333);
772     t189 = 1/pow(rhoa,4.666666666666667);
773     t190 = 1/pow(t19,2.0);
774     t191 = pow(t46,2.0);
775     t192 = 1/pow(t18,4.0);
776     t193 = 1/pow(t18,3.0);
777     t194 = 2.754533333333333*t1*t2*t4/pow(rhoa,2.333333333333333)+
778         .7012916666666668*t14*t44*t5/pow(t7,7.0)+1.176575*t10*t11*
779         t14*t45*t44+1.568766666666666*t10*t11*t3*t8*t42+.5610333333333333*
780         t5*t3*t45*t42+.6946333333333333*t12*t13*t15*t23;
781     t195 = 1/pow(t31,4.0);
782     t196 = 2.0*t61*t93*t94*t95;
783     t197 = -1.169644679491041*t70*t74*t75*t79*t97*t98*t99;
784     t198 = .008858862266666667*
785         t1*t2*t4*t91*t68;
786     t199 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t79*
787         t82;
788     t200 = 2.0*t121*t70*t72*t73*t79;
789     t201 = -8.0*t113*t70*t72*t79*t88;
790     t202 = pow(t93,2.0);
791     t203 = 1/pow(t66,4.0);
792     t204 = 1/pow(t67,2.0);
793     t205 = 16.0818243221511*t61*t202*t203*t204;
794     t206 = 1/pow(t66,3.0);
795     t207 = -2.0*t61*t202*t206*t95;
796     t208 = 1/pow(t58,2.666666666666667);
797     t209 = 1/pow(t58,2.333333333333333);
798     t210 = 1/pow(t63,7.0);
799     t211 = .8439666666666665*t10*t11*t3*t90*t64+0.632975*
800         t10*t11*t14*t91*t92+.2730333333333334*t5*t3*t90*t92+.3412916666666667*
801         t5*t14*t91*t210+1.594488888888889*t1*t2*t4*t209+0.547711111111111*
802         t12*t13*t15*t208;
803     t212 = .9999999999999999*t61*t211*t94*t95;
804     t213 = -.1424666666666666*t1*t2*t4*t91*t93*t94*t95;
805     t214 = pow(t97,
806         2.0);
807     t215 = -17.31575589937587*t214*t70*t74*t75*t79/(pow(t80,
808         4.0)*pow(t81,2.0));
809     t216 = 1.169644679491041*t214*t70*t74*t75*t79*t99/pow(t80,
810         3.0);
811     t217 = -.5848223397455204*t70*t74*t75*t79*(1.150777777777777*
812         t10*t11*t3*t90*t64+.8630833333333332*t10*t11*t14*t91*t92+0.14671*
813         t5*t3*t90*t92+0.1833875*t5*t14*t91*t210+1.610266666666667*
814         t1*t2*t4*t209+.5519000000000001*t12*t13*t15*t208)*t98*t99;
815     t218 = .04337432353112609*
816         t70*t1*t2*t4*t91*t74*t79*t97*t98*t99;
817     t219 = -.005905908177777777*t1*t2*t4*t209*t68;
818     t220 = 1/pow(t77,.6666666666666666);
819     t221 = 1/pow(t58,3.0);
820     t222 = -2.0*t221*t71;
821     t223 = 2.0*t102;
822     t224 = 1/pow(t78,.6666666666666666);
823     t225 = 2.0*t221*t71;
824     t226 = -2.0*t102;
825     t227 = 1.333333333333333*t109*(t226+t225)+.4444444444444444*
826         pow(t108,2.0)*t224+1.333333333333333*t106*(t223+t222)+.4444444444444444*
827         pow(t105,2.0)*t220;
828     t228 = 9.766162686268349E-4*t70*t1*t2*t4*t209*t74*t79*
829         t82;
830     t229 = 1/pow(t58,6.0);
831     t230 = -20.0*t229*t72;
832     t231 = pow(t71,2.0);
833     t232 = -12.0*t231*t73;
834     t233 = pow(t118,2.0);
835     t234 = t70*t72*t73*t79*(.1424666666666666*t1*t2*t4*t91*
836         t93*t94*t95-.9999999999999999*t61*t211*t94*t95+2.0*t61*t202*
837         t206*t95-.002839276977777777*t1*t2*t4*t209*t87+32.1646831778707*
838         t233*t84/(pow(t85,4.0)*pow(t86,2.0))-2.0*t120*t233*t84/pow(t85,
839         3.0)+.005905908177777777*t1*t2*t4*t209*t68-16.0818243221511*
840         t61*t202*t203*t204+1.0*t84*(1.568766666666666*t10*t11*t3*t90*
841         t64+1.176575*t10*t11*t14*t91*t92+.5610333333333333*t5*t3*t90*
842         t92+.7012916666666668*t5*t14*t91*t210+2.754533333333333*t1*
843         t2*t4*t209+.6946333333333333*t12*t13*t15*t208)*t119*t120-.1369866666666666*
844         t1*t2*t4*t91*t118*t119*t120);
845     t235 = -8.0*t113*t121*t70*t72*t79;
846     t236 = 20.0*t229*t70*t72*t79*t88;
847     t237 = 12.0*t231*t70*t73*t79*t88;
848     t238 = 1/pow(t54,4.0);
849     t239 = 2.666666666666667*t109*t221*t71-2.666666666666667*
850         t106*t221*t71+.4444444444444444*t108*t164*t224+.4444444444444444*
851         t105*t163*t220;
852     t240 = pow(grada,7.0);
853     t241 = 1/pow(rhoa,11.66666666666667);
854     t242 = pow(gradb,8.0);
855     t243 = 1/pow(t139,4.0);
856     t244 = 1/pow(rhob,12.66666666666667);
857     t245 = 1/pow(rhob,10.0);
858     t246 = 1/pow(rhob,7.333333333333333);
859     t247 = 1/pow(rhob,4.666666666666667);
860     t248 = 1/pow(t134,2.0);
861     t249 = pow(t159,2.0);
862     t250 = 1/pow(t133,4.0);
863     t251 = 1/pow(t133,3.0);
864     t252 = 2.754533333333333*t1*t2*t4/pow(rhob,2.333333333333333)+
865         .6946333333333333*t12*t13*t15*t51+.7012916666666668*t14*t157*
866         t5/pow(t129,7.0)+1.176575*t10*t11*t14*t158*t157+.5610333333333333*
867         t5*t3*t158*t155+1.568766666666666*t10*t11*t3*t130*t155;
868     t253 = 1/pow(t144,4.0);
869     t254 = 1.333333333333333*t106*(t226+t222)+.4444444444444444*
870         pow(t164,2.0)*t224+1.333333333333333*t109*(t223+t225)+.4444444444444444*
871         pow(t163,2.0)*t220;
872     t255 = pow(gradb,7.0);
873     t256 = 1/pow(rhob,11.66666666666667);
874     t257 = 1/pow(rhoa,10.66666666666667);
875     t258 = 1/pow(rhob,10.66666666666667);
876 
877    /* code */
878     dfdra = 1.0*t41*t28*t46*t29*t47*rhoa-0.03109*t20*t40*
879         t29*rhoa-1.0*t30*t34*t4*t6-0.75*t30*t4*t43*t49-0.03109*t20*
880         t28*t29+.002129457733333333*t1*t2*t4*t20*t28*t17+t127*t137+
881         t57*t125;
882     dfdrb = 1.0*t154*t143*t159*t136*t160*rhob-0.03109*t135*
883         t153*t136*rhob-0.75*t156*t162*t30*t4-1.0*t128*t147*t30*t4+
884         t57*t170+t171*t137-0.03109*t135*t143*t136+.002129457733333333*
885         t1*t2*t4*t135*t143*t132;
886     dfdga = -0.03109*t20*t175*t29*rhoa-0.75*t176*t30*t4*t43+
887         t177*t137;
888     dfdgb = -0.03109*t135*t181*t136*rhob-0.75*t156*t182*t30*
889         t4+t183*t137;
890     dfdgab = 0.0;
891     d2fdrara = t57*(-1.0*t41*t194*t29*t47*rhoa+2.0*t41*t191*
892         t29*t193*rhoa-32.1646831778707*t190*t191*t29*t192*rhoa+t58*
893         (-1.169644679491041*t70*t116*t75*t79*t97*t98*t99-1.169644679491041*
894         t70*t74*t75*t110*t97*t98*t99-32.0*t113*t115*t70*t79*t88+8.0*
895         t110*t115*t70*t73*t88-8.0*t110*t113*t70*t72*t88+t70*t72*t73*
896         t227*t88+.01975178970256521*(t232+t230+32.0*t113*t115)*t70*
897         t75*t79*t82-.001464924402940253*t70*t1*t2*t4*t91*t116*t79*
898         t82+.01975178970256521*t70*t74*t75*t227*t82+.03950357940513041*
899         t70*t116*t75*t110*t82-.001464924402940253*t70*t1*t2*t4*t91*
900         t74*t110*t82+8.0*t115*t121*t70*t73*t79+2.0*t110*t121*t70*t72*
901         t73+t237+t236+t235+t234+t228+t219+t218+t217+t216+t215+t213+
902         t212+t207+t205)+8.0*t115*t70*t73*t79*t88+2.0*t110*t70*t72*
903         t73*t88+.03950357940513041*t70*t116*t75*t79*t82+.03950357940513041*
904         t70*t74*t75*t110*t82-2.0*t41*t46*t29*t47-.001419638488888889*
905         t1*t2*t4*t20*t44+t201+t200+t199+t198+t197+t196+.1369866666666666*
906         t1*t2*t4*t41*t46*t47*t17)+2.0*t41*t40*t46*t29*t47*rhoa+1.0*
907         t41*t28*t194*t29*t47*rhoa-0.03109*t20*(-3.054734222222222*
908         t22*t27*t189+4.124711111111112*t21*t25*t188-1.365939626666667*
909         t35*t36*t187+.1326373546666667*t184*t185*t186)*t29*rhoa-2.0*
910         t41*t28*t191*t29*t193*rhoa+32.1646831778707*t190*t28*t191*
911         t29*t192*rhoa-2.0*t30*t4*t49*t6+2.0*t41*t28*t46*t29*t47+.001419638488888889*
912         t1*t2*t4*t20*t28*t44-0.75*(-.02038744888888889*t22*t33*t189+
913         .001958930631111111*t21*t32*t188-1.639590456888889E-5*t35*
914         t48*t187+3.554552490666667E-8*t184*t195*t186)*t30*t4*t43-.3333333333333333*
915         t16*t30*t34*t4-0.06218*t20*t40*t29-.1369866666666666*t1*t2*
916         t4*t41*t28*t46*t47*t17+.004258915466666666*t1*t2*t4*t20*t40*
917         t17+(0.1848792*t22*t189*t56-.006379137599999999*t22*t189*t52*
918         t55-0.0027230592*t21*t188*t55+3.1619174400000005E-5*t22*t189*
919         t53*t126+5.0832E-5*t21*t188*t52*t126-2.0696186880000003E-7*
920         t21*t188*t53*t238)*t137+2.0*t125*t127;
921     d2fdrarb = t57*(t58*(-.5848223397455204*t70*t167*t75*
922         t79*t97*t98*t99-.5848223397455204*t70*t116*t75*t79*t97*t98*
923         t99-.5848223397455204*t70*t74*t75*t165*t97*t98*t99-.5848223397455204*
924         t70*t74*t75*t110*t97*t98*t99-12.0*t231*t70*t73*t79*t88+4.0*
925         t115*t165*t70*t73*t88-4.0*t110*t115*t70*t73*t88-4.0*t113*t165*
926         t70*t72*t88-4.0*t110*t113*t70*t72*t88+t70*t72*t73*t239*t88+
927         .01975178970256521*t70*(12.0*t231*t73+t230)*t75*t79*t82-7.324622014701263E-4*
928         t70*t1*t2*t4*t91*t167*t79*t82-7.324622014701263E-4*t70*t1*
929         t2*t4*t91*t116*t79*t82+.01975178970256521*t70*t74*t75*t239*
930         t82+.01975178970256521*t70*t116*t75*t165*t82-7.324622014701263E-4*
931         t70*t1*t2*t4*t91*t74*t165*t82+.01975178970256521*t70*t167*
932         t75*t110*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*t74*t110*
933         t82+t236+t235+t234+t228+t219+t218+t217+t216+t215+t213+t212+
934         t207+t205+t70*t72*t73*t165*t121+t70*t72*t73*t110*t121)+t201+
935         t200+t199+t198+t197+t196+t169+t168+t166+t123+t117+t111)+t127*
936         t170+(-0.0027230592*t22*t50*t39*t55*t152+5.0832E-5*t22*t50*
937         t39*t52*t126*t152-2.0696186880000003E-7*t22*t50*t39*t53*t238*
938         t152)*t137+t171*t125;
939     d2fdraga = 1.0*t41*t175*t46*t29*t47*rhoa-0.03109*t20*
940         (1.666218666666667*grada*t27*t39-2.657698133333334*t174*t25*
941         t38+.9622809600000002*t172*t36*t37-.09947801600000003*t240*
942         t185*t241)*t29*rhoa-1.0*t176*t30*t4*t6-0.75*t30*(.01112042666666667*
943         grada*t33*t39-.001244242773333333*t174*t32*t38+1.1463830186666667E-5*
944         t172*t48*t37-2.665914368E-8*t240*t195*t241)*t4*t43-0.03109*
945         t20*t175*t29+.002129457733333333*t1*t2*t4*t20*t175*t17+(-0.1008432*
946         grada*t39*t56+0.0034795296*grada*t39*t52*t55+0.0020422944*
947         t174*t38*t55-1.72468224E-5*grada*t39*t53*t126-3.8124E-5*t174*
948         t38*t52*t126+1.5522140160000003E-7*t174*t38*t53*t238)*t137+
949         t177*t125;
950     d2fdragb = (0.0020422944*t22*gradb*t39*t55*t51-3.8124E-5*
951         t22*gradb*t39*t52*t126*t51+1.5522140160000003E-7*t22*gradb*
952         t39*t53*t238*t51)*t137+t183*t125;
953     d2fdraab = 0.0;
954     d2fdrbrb = t57*(2.0*t154*t249*t136*t251*rhob-32.1646831778707*
955         t248*t249*t136*t250*rhob-1.0*t154*t252*t136*t160*rhob+t58*
956         (-1.169644679491041*t70*t167*t75*t79*t97*t98*t99-1.169644679491041*
957         t70*t74*t75*t165*t97*t98*t99+32.0*t113*t115*t70*t79*t88-8.0*
958         t115*t165*t70*t73*t88-8.0*t113*t165*t70*t72*t88+t70*t72*t73*
959         t254*t88+.01975178970256521*(t232+t230-32.0*t113*t115)*t70*
960         t75*t79*t82-.001464924402940253*t70*t1*t2*t4*t91*t167*t79*
961         t82+.01975178970256521*t70*t74*t75*t254*t82+.03950357940513041*
962         t70*t167*t75*t165*t82-.001464924402940253*t70*t1*t2*t4*t91*
963         t74*t165*t82-8.0*t115*t121*t70*t73*t79+2.0*t121*t165*t70*t72*
964         t73+t237+t236+t235+t234+t228+t219+t218+t217+t216+t215+t213+
965         t212+t207+t205)-8.0*t115*t70*t73*t79*t88+2.0*t165*t70*t72*
966         t73*t88+.03950357940513041*t70*t167*t75*t79*t82+.03950357940513041*
967         t70*t74*t75*t165*t82+t201+t200+t199+t198+t197+t196-2.0*t154*
968         t159*t136*t160-.001419638488888889*t1*t2*t4*t135*t157+.1369866666666666*
969         t1*t2*t4*t154*t159*t160*t132)-2.0*t154*t143*t249*t136*t251*
970         rhob+32.1646831778707*t248*t143*t249*t136*t250*rhob+1.0*t154*
971         t143*t252*t136*t160*rhob+2.0*t154*t153*t159*t136*t160*rhob-
972         0.03109*t135*(-3.054734222222222*t50*t142*t247+4.124711111111112*
973         t138*t140*t246-1.365939626666667*t148*t149*t245+.1326373546666667*
974         t242*t243*t244)*t136*rhob-0.75*t156*(-.02038744888888889*t50*
975         t146*t247+.001958930631111111*t138*t145*t246-1.639590456888889E-5*
976         t148*t161*t245+3.554552490666667E-8*t242*t253*t244)*t30*t4-
977         2.0*t128*t162*t30*t4-.3333333333333333*t131*t147*t30*t4+2.0*
978         t170*t171+2.0*t154*t143*t159*t136*t160+.001419638488888889*
979         t1*t2*t4*t135*t143*t157+(0.1848792*t50*t56*t247-.006379137599999999*
980         t50*t52*t55*t247+3.1619174400000005E-5*t50*t53*t126*t247-0.0027230592*
981         t138*t55*t246+5.0832E-5*t138*t52*t126*t246-2.0696186880000003E-7*
982         t138*t53*t238*t246)*t137-0.06218*t135*t153*t136-.1369866666666666*
983         t1*t2*t4*t154*t143*t159*t160*t132+.004258915466666666*t1*t2*
984         t4*t135*t153*t132;
985     d2fdrbga = (0.0020422944*grada*t50*t23*t55*t152-3.8124E-5*
986         grada*t50*t23*t52*t126*t152+1.5522140160000003E-7*grada*t50*
987         t23*t53*t238*t152)*t137+t177*t170;
988     d2fdrbgb = 1.0*t154*t181*t159*t136*t160*rhob-0.03109*
989         t135*(1.666218666666667*gradb*t142*t152-2.657698133333334*
990         t180*t140*t151+.9622809600000002*t178*t149*t150-.09947801600000003*
991         t255*t243*t256)*t136*rhob-1.0*t128*t182*t30*t4-0.75*(.01112042666666667*
992         gradb*t146*t152-.001244242773333333*t180*t145*t151+1.1463830186666667E-5*
993         t178*t161*t150-2.665914368E-8*t255*t253*t256)*t156*t30*t4+
994         t183*t170+(-0.1008432*gradb*t56*t152+0.0034795296*gradb*t52*
995         t55*t152-1.72468224E-5*gradb*t53*t126*t152+0.0020422944*t180*
996         t55*t151-3.8124E-5*t180*t52*t126*t151+1.5522140160000003E-7*
997         t180*t53*t238*t151)*t137-0.03109*t135*t181*t136+.002129457733333333*
998         t1*t2*t4*t135*t181*t132;
999     d2fdrbgab = 0.0;
1000     d2fdgaga = -0.03109*t20*(-0.624832*t27*t23+1.5574384*
1001         t22*t25*t26-.6595369600000002*t21*t36*t173+.07460851200000003*
1002         t35*t185*t257)*t29*rhoa-0.75*(-0.00417016*t33*t23+7.082268799999999E-4*
1003         t22*t32*t26-7.764774399999999E-6*t21*t48*t173+1.999435776E-8*
1004         t35*t195*t257)*t30*t4*t43+(0.0378162*t23*t56-0.0013048236*
1005         t23*t52*t55-0.0015317208*t22*t26*t55+6.4675584E-6*t23*t53*
1006         t126+2.8593E-5*t22*t26*t52*t126-1.1641605120000002E-7*t22*
1007         t26*t53*t238)*t137;
1008     d2fdgagb = (-0.0015317208*grada*gradb*t23*t55*t51+2.8593E-5*
1009         grada*gradb*t23*t52*t126*t51-1.1641605120000002E-7*grada*gradb*
1010         t23*t53*t238*t51)*t137;
1011     d2fdgagab = 0.0;
1012     d2fdgbgb = -0.03109*t135*(-0.624832*t142*t51+1.5574384*
1013         t50*t140*t141-.6595369600000002*t138*t149*t179+.07460851200000003*
1014         t148*t243*t258)*t136*rhob-0.75*t156*t30*t4*(-0.00417016*t146*
1015         t51+7.082268799999999E-4*t50*t145*t141-7.764774399999999E-6*
1016         t138*t161*t179+1.999435776E-8*t148*t253*t258)+(0.0378162*t56*
1017         t51-0.0013048236*t52*t55*t51+6.4675584E-6*t53*t126*t51-0.0015317208*
1018         t50*t55*t141+2.8593E-5*t50*t52*t126*t141-1.1641605120000002E-7*
1019         t50*t53*t238*t141)*t137;
1020     d2fdgbgab = 0.0;
1021     d2fdgabgab = 0.0;
1022 
1023 
1024     ds->df1000 += factor*dfdra;
1025     ds->df0100 += factor*dfdrb;
1026     ds->df0010 += factor*dfdga;
1027     ds->df0001 += factor*dfdgb;
1028     ds->df00001+= factor*dfdgab;
1029 
1030     ds->df2000 += factor*d2fdrara;
1031     ds->df1100 += factor*d2fdrarb;
1032     ds->df1010 += factor*d2fdraga;
1033     ds->df1001 += factor*d2fdragb;
1034     ds->df10001+= factor*d2fdraab;
1035     ds->df0200 += factor*d2fdrbrb;
1036     ds->df0110 += factor*d2fdrbga;
1037     ds->df0101 += factor*d2fdrbgb;
1038     ds->df01001+= factor*d2fdrbgab;
1039     ds->df0020 += factor*d2fdgaga;
1040     ds->df0011 += factor*d2fdgagb;
1041     ds->df00101+= factor*d2fdgagab;
1042     ds->df0002 += factor*d2fdgbgb;
1043     ds->df00011+= factor*d2fdgbgab;
1044     ds->df00002+= factor*d2fdgabgab;
1045 
1046 }
1047 
1048 static void
b97_d_third(FunThirdFuncDrv * ds,real factor,const FunDensProp * dp)1049 b97_d_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
1050 {
1051     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
1052     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
1053         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
1054         d2fdgbgb, d2fdgbgab, d2fdgabgab;
1055     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
1056          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
1057          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
1058          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
1059          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
1060          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
1061          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
1062     real rhoa = dp->rhoa, rhob = dp->rhob;
1063     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
1064 
1065     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
1066     real t11, t12, t13, t14, t15, t16, t17, t18;
1067     real t19, t20, t21, t22, t23, t24, t25, t26;
1068     real t27, t28, t29, t30, t31, t32, t33, t34;
1069     real t35, t36, t37, t38, t39, t40, t41, t42;
1070     real t43, t44, t45, t46, t47, t48, t49, t50;
1071     real t51, t52, t53, t54, t55, t56, t57, t58;
1072     real t59, t60, t61, t62, t63, t64, t65, t66;
1073     real t67, t68, t69, t70, t71, t72, t73, t74;
1074     real t75, t76, t77, t78, t79, t80, t81, t82;
1075     real t83, t84, t85, t86, t87, t88, t89, t90;
1076     real t91, t92, t93, t94, t95, t96, t97, t98;
1077     real t99, t100, t101, t102, t103, t104, t105;
1078     real t106, t107, t108, t109, t110, t111, t112;
1079     real t113, t114, t115, t116, t117, t118, t119;
1080     real t120, t121, t122, t123, t124, t125, t126;
1081     real t127, t128, t129, t130, t131, t132, t133;
1082     real t134, t135, t136, t137, t138, t139, t140;
1083     real t141, t142, t143, t144, t145, t146, t147;
1084     real t148, t149, t150, t151, t152, t153, t154;
1085     real t155, t156, t157, t158, t159, t160, t161;
1086     real t162, t163, t164, t165, t166, t167, t168;
1087     real t169, t170, t171, t172, t173, t174, t175;
1088     real t176, t177, t178, t179, t180, t181, t182;
1089     real t183, t184, t185, t186, t187, t188, t189;
1090     real t190, t191, t192, t193, t194, t195, t196;
1091     real t197, t198, t199, t200, t201, t202, t203;
1092     real t204, t205, t206, t207, t208, t209, t210;
1093     real t211, t212, t213, t214, t215, t216, t217;
1094     real t218, t219, t220, t221, t222, t223, t224;
1095     real t225, t226, t227, t228, t229, t230, t231;
1096     real t232, t233, t234, t235, t236, t237, t238;
1097     real t239, t240, t241, t242, t243, t244, t245;
1098     real t246, t247, t248, t249, t250, t251, t252;
1099     real t253, t254, t255, t256, t257, t258, t259;
1100     real t260, t261, t262, t263, t264, t265, t266;
1101     real t267, t268, t269, t270, t271, t272, t273;
1102     real t274, t275, t276, t277, t278, t279, t280;
1103     real t281, t282, t283, t284, t285, t286, t287;
1104     real t288, t289, t290, t291, t292, t293, t294;
1105     real t295, t296, t297, t298, t299, t300, t301;
1106     real t302, t303, t304, t305, t306, t307, t308;
1107     real t309, t310, t311, t312, t313, t314, t315;
1108     real t316, t317, t318, t319, t320, t321, t322;
1109     real t323, t324, t325, t326, t327, t328, t329;
1110     real t330, t331, t332, t333, t334, t335, t336;
1111     real t337, t338, t339, t340, t341, t342, t343;
1112     real t344, t345, t346, t347, t348, t349, t350;
1113     real t351, t352, t353, t354, t355, t356, t357;
1114     real t358, t359, t360, t361, t362, t363, t364;
1115     real t365, t366, t367, t368, t369, t370, t371;
1116     real t372, t373, t374, t375, t376, t377, t378;
1117     real t379, t380, t381, t382, t383, t384, t385;
1118     real t386, t387, t388, t389, t390, t391, t392;
1119     real t393, t394, t395, t396, t397, t398, t399;
1120     real t400, t401, t402, t403, t404, t405, t406;
1121     real t407, t408, t409, t410, t411, t412, t413;
1122     real t414, t415, t416, t417, t418, t419, t420;
1123     real t421, t422, t423, t424, t425, t426, t427;
1124     real t428, t429, t430, t431, t432, t433, t434;
1125     real t435, t436, t437, t438, t439, t440, t441;
1126     real t442, t443, t444, t445, t446, t447, t448;
1127     real t449, t450, t451, t452, t453, t454, t455;
1128     real t456;
1129 
1130     t1 = pow(3.0,.3333333333333333);
1131     t2 = 1/pow(4.0,.3333333333333333);
1132     t3 = pow(M_PI,.3333333333333333);
1133     t4 = 1/t3;
1134     t5 = 1.732050807568877;
1135     t6 = pow(rhoa,.3333333333333333);
1136     t7 = sqrt(t3*t6);
1137     t8 = 1/pow(t7,3.0);
1138     t9 = pow(2.0,.3333333333333333);
1139     t10 = 1/t9;
1140     t11 = pow(3.0,.1666666666666667);
1141     t12 = pow(3.0,.6666666666666666);
1142     t13 = 1/pow(4.0,.6666666666666666);
1143     t14 = pow(M_PI,.6666666666666666);
1144     t15 = 1/t14;
1145     t16 = 1/pow(rhoa,.6666666666666666);
1146     t17 = 1/t6;
1147     t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
1148         t17+0.62517*t12*t13*t15*t16;
1149     t19 = 32.1646831778707/t18+1.0;
1150     t20 = log(t19);
1151     t21 = pow(grada,4.0);
1152     t22 = pow(grada,2.0);
1153     t23 = 1/pow(rhoa,2.666666666666667);
1154     t24 = 0.2*t22*t23+1.0;
1155     t25 = 1/pow(t24,2.0);
1156     t26 = 1/pow(rhoa,5.333333333333333);
1157     t27 = 1/t24;
1158     t28 = -0.312416*t22*t27*t23+.07771720000000001*t21*t25*
1159         t26+0.2234;
1160     t29 = 0.20548*t1*t2*t4*t17+1.0;
1161     t30 = pow(6.0,.3333333333333333);
1162     t31 = 0.004*t22*t23+1.0;
1163     t32 = 1/pow(t31,2.0);
1164     t33 = 1/t31;
1165     t34 = -0.00208508*t22*t33*t23+5.206864E-5*t21*t32*t26+
1166         1.08662;
1167     t35 = pow(grada,6.0);
1168     t36 = 1/pow(t24,3.0);
1169     t37 = 1/pow(rhoa,9.0);
1170     t38 = 1/pow(rhoa,6.333333333333333);
1171     t39 = 1/pow(rhoa,3.666666666666667);
1172     t40 = .8331093333333334*t22*t27*t39-.5811136000000001*
1173         t21*t25*t38+.08289834666666668*t35*t36*t37;
1174     t41 = 1/t19;
1175     t42 = 1/pow(rhoa,1.666666666666667);
1176     t43 = pow(rhoa,1.333333333333333);
1177     t44 = 1/t43;
1178     t45 = 1/pow(t7,5.0);
1179     t46 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t45*t16-
1180         2.0659*t1*t2*t4*t44-0.41678*t12*t13*t15*t42;
1181     t47 = 1/pow(t18,2.0);
1182     t48 = 1/pow(t31,3.0);
1183     t49 = .005560213333333333*t22*t33*t39-2.999402666666667E-4*
1184         t21*t32*t38+1.1107976533333333E-6*t35*t48*t37;
1185     t50 = pow(gradb,2.0);
1186     t51 = 1/pow(rhob,2.666666666666667);
1187     t52 = 0.5*t50*t51+0.5*t22*t23;
1188     t53 = pow(t52,2.0);
1189     t54 = 0.006*t52+1.0;
1190     t55 = 1/pow(t54,2.0);
1191     t56 = 1/t54;
1192     t57 = 0.0378162*t52*t56-5.389632E-4*t53*t55+0.69041;
1193     t58 = rhob+
1194         rhoa;
1195     t59 = pow(t58,.3333333333333333);
1196     t60 = 1/t59;
1197     t61 = 0.2137*t1*t2*t4*t60+1.0;
1198     t62 = 1/pow(t58,.6666666666666666);
1199     t63 = sqrt(t3*t59);
1200     t64 = 1/pow(t63,3.0);
1201     t65 = 1/t63;
1202     t66 = 7.5957*t10*t11*t65+0.8191*t5*t64+3.5876*t1*t2*t4*
1203         t60+0.49294*t12*t13*t15*t62;
1204     t67 = 16.0818243221511/t66+1.0;
1205     t68 = log(t67);
1206     t69 = -0.062182*t61*t68;
1207     t70 = 1/(2.0*t9-2.0);
1208     t71 = rhoa-1.0*rhob;
1209     t72 = pow(t71,4.0);
1210     t73 = 1/pow(t58,4.0);
1211     t74 = 1.0-1.0*t72*t73;
1212     t75 = 0.11125*t1*t2*t4*t60+1.0;
1213     t76 = 1/t58;
1214     t77 = 1.0-1.0*t71*t76;
1215     t78 = t71*t76+1.0;
1216     t79 = pow(t78,1.333333333333333)+pow(t77,1.333333333333333)-
1217         2.0;
1218     t80 = 10.357*t10*t11*t65+0.44013*t5*t64+3.6231*t1*t2*
1219         t4*t60+0.49671*t12*t13*t15*t62;
1220     t81 = 29.60857464321668/t80+1.0;
1221     t82 = log(t81);
1222     t83 = .01975178970256521*t70*t74*t75*t79*t82;
1223     t84 = 0.20548*t1*t2*t4*t60+1.0;
1224     t85 = 14.1189*t10*t11*t65+1.6831*t5*t64+6.1977*t1*t2*
1225         t4*t60+0.62517*t12*t13*t15*t62;
1226     t86 = 32.1646831778707/t85+1.0;
1227     t87 = log(t86);
1228     t88 = 0.062182*t61*t68-0.03109*t84*t87;
1229     t89 = t70*t72*t73*t79*t88;
1230     t90 = 1/pow(t58,1.666666666666667);
1231     t91 = 1/pow(t58,1.333333333333333);
1232     t92 = 1/pow(t63,5.0);
1233     t93 = -1.26595*t10*t11*t3*t62*t64-0.40955*t5*t3*t62*t92-
1234         1.195866666666667*t1*t2*t4*t91-.3286266666666666*t12*t13*t15*
1235         t90;
1236     t94 = 1/pow(t66,2.0);
1237     t95 = 1/t67;
1238     t96 = .9999999999999999*t61*t93*t94*t95;
1239     t97 = -1.726166666666666*t10*t11*t3*t62*t64-0.220065*
1240         t5*t3*t62*t92-1.2077*t1*t2*t4*t91-0.33114*t12*t13*t15*t90;
1241     t98 = 1/
1242         pow(t80,2.0);
1243     t99 = 1/t81;
1244     t100 = -.5848223397455204*t70*t74*t75*t79*t97*t98*t99;
1245     t101 = .004429431133333333*
1246         t1*t2*t4*t91*t68;
1247     t102 = 1/pow(t58,2.0);
1248     t103 = t71*t102;
1249     t104 = -1.0*t76;
1250     t105 = t104+t103;
1251     t106 = pow(t77,.3333333333333333);
1252     t107 = -1.0*t102*t71;
1253     t108 = t76+t107;
1254     t109 = pow(t78,.3333333333333333);
1255     t110 = 1.333333333333333*t108*t109+1.333333333333333*
1256         t105*t106;
1257     t111 = .01975178970256521*t70*t74*t75*t110*t82;
1258     t112 = -7.324622014701263E-4*t70*t1*t2*t4*t91*t74*t79*
1259         t82;
1260     t113 = 1/pow(t58,5.0);
1261     t114 = 4.0*t113*t72;
1262     t115 = pow(t71,3.0);
1263     t116 = t114-4.0*t115*t73;
1264     t117 = .01975178970256521*t70*t116*t75*t79*t82;
1265     t118 = -2.35315*t10*t11*t3*t62*t64-0.84155*t5*t3*t62*
1266         t92-2.0659*t1*t2*t4*t91-0.41678*t12*t13*t15*t90;
1267     t119 = 1/pow(t85,2.0);
1268     t120 = 1/t86;
1269     t121 = .002129457733333333*t1*t2*t4*t91*t87-.004429431133333333*
1270         t1*t2*t4*t91*t68+1.0*t84*t118*t119*t120-.9999999999999999*
1271         t61*t93*t94*t95;
1272     t122 = t70*t72*t73*t79*t121;
1273     t123 = t70*t72*t73*t110*t88;
1274     t124 = -4.0*t113*t70*t72*t79*t88;
1275     t125 = -1.0*t41*t46*t29*t47*rhoa+t58*(t96+4.0*t115*t70*
1276         t73*t79*t88+t124+t123+t122+t117+t112+t111+t101+t100)+t89+t83+
1277         t69+0.03109*t20*t29-.002129457733333333*t1*t2*t4*t20*t17;
1278     t126 = 1/
1279         pow(t54,3.0);
1280     t127 = -0.0504216*t22*t39*t56+0.0017397648*t22*t39*t52*
1281         t55-8.6234112E-6*t22*t39*t53*t126;
1282     t128 = pow(rhob,.3333333333333333);
1283     t129 = sqrt(t3*t128);
1284     t130 = 1/pow(t129,3.0);
1285     t131 = 1/pow(rhob,.6666666666666666);
1286     t132 = 1/t128;
1287     t133 = 6.1977*t1*t2*t4*t132+0.62517*t12*t13*t15*t131+
1288         1.6831*t5*t130+14.1189*t10*t11/t129;
1289     t134 = 32.1646831778707/t133+1.0;
1290     t135 = log(t134);
1291     t136 = 0.20548*t1*t2*t4*t132+1.0;
1292     t137 = t58*(t89+t83+t69)+0.03109*t135*t136*rhob+0.03109*
1293         t20*t29*rhoa;
1294     t138 = pow(gradb,4.0);
1295     t139 = 0.2*t50*t51+1.0;
1296     t140 = 1/pow(t139,2.0);
1297     t141 = 1/pow(rhob,5.333333333333333);
1298     t142 = 1/t139;
1299     t143 = -0.312416*t50*t142*t51+.07771720000000001*t138*
1300         t140*t141+0.2234;
1301     t144 = 0.004*t50*t51+1.0;
1302     t145 = 1/pow(t144,2.0);
1303     t146 = 1/t144;
1304     t147 = -0.00208508*t50*t146*t51+5.206864E-5*t138*t145*
1305         t141+1.08662;
1306     t148 = pow(gradb,6.0);
1307     t149 = 1/pow(t139,3.0);
1308     t150 = 1/pow(rhob,9.0);
1309     t151 = 1/pow(rhob,6.333333333333333);
1310     t152 = 1/pow(rhob,3.666666666666667);
1311     t153 = .8331093333333334*t50*t142*t152-.5811136000000001*
1312         t138*t140*t151+.08289834666666668*t148*t149*t150;
1313     t154 = 1/t134;
1314     t155 = 1/pow(rhob,1.666666666666667);
1315     t156 = pow(rhob,1.333333333333333);
1316     t157 = 1/t156;
1317     t158 = 1/pow(t129,5.0);
1318     t159 = -2.35315*t10*t11*t3*t130*t131-0.84155*t5*t3*t158*
1319         t131-2.0659*t1*t2*t4*t157-0.41678*t12*t13*t15*t155;
1320     t160 = 1/pow(t133,2.0);
1321     t161 = 1/pow(t144,3.0);
1322     t162 = .005560213333333333*t50*t146*t152-2.999402666666667E-4*
1323         t138*t145*t151+1.1107976533333333E-6*t148*t161*t150;
1324     t163 = t76+t103;
1325     t164 = t104+t107;
1326     t165 = 1.333333333333333*t109*t164+1.333333333333333*
1327         t106*t163;
1328     t166 = .01975178970256521*t70*t74*t75*t165*t82;
1329     t167 = 4.0*t115*t73+t114;
1330     t168 = .01975178970256521*t70*t167*t75*t79*t82;
1331     t169 = t70*t72*t73*t165*t88;
1332     t170 = -1.0*t154*t159*t136*t160*rhob+t58*(t96-4.0*t115*
1333         t70*t73*t79*t88+t169+t168+t166+t124+t122+t112+t101+t100)+t89+
1334         t83+t69+0.03109*t135*t136-.002129457733333333*t1*t2*t4*t135*
1335         t132;
1336     t171 = -0.0504216*t50*t56*t152+0.0017397648*t50*t52*t55*
1337         t152-8.6234112E-6*t50*t53*t126*t152;
1338     t172 = pow(grada,5.0);
1339     t173 = 1/pow(rhoa,8.0);
1340     t174 = pow(grada,3.0);
1341     t175 = -0.624832*grada*t27*t23+.4358352000000001*t174*
1342         t25*t26-.06217376000000002*t172*t36*t173;
1343     t176 = -0.00417016*grada*t33*t23+2.249552E-4*t174*t32*
1344         t26-8.3309824E-7*t172*t48*t173;
1345     t177 = 0.0378162*grada*t23*t56-0.0013048236*grada*t23*
1346         t52*t55+6.4675584E-6*grada*t23*t53*t126;
1347     t178 = pow(gradb,5.0);
1348     t179 = 1/pow(rhob,8.0);
1349     t180 = pow(gradb,3.0);
1350     t181 = -0.624832*gradb*t142*t51+.4358352000000001*t180*
1351         t140*t141-.06217376000000002*t178*t149*t179;
1352     t182 = -0.00417016*gradb*t146*t51+2.249552E-4*t180*t145*
1353         t141-8.3309824E-7*t178*t161*t179;
1354     t183 = 0.0378162*gradb*t56*t51-0.0013048236*gradb*t52*
1355         t55*t51+6.4675584E-6*gradb*t53*t126*t51;
1356     t184 = pow(grada,8.0);
1357     t185 = 1/pow(t24,4.0);
1358     t186 = 1/pow(rhoa,12.66666666666667);
1359     t187 = 1/pow(rhoa,10.0);
1360     t188 = 1/pow(rhoa,7.333333333333333);
1361     t189 = 1/pow(rhoa,4.666666666666667);
1362     t190 = -3.054734222222222*t22*t27*t189+4.124711111111112*
1363         t21*t25*t188-1.365939626666667*t35*t36*t187+.1326373546666667*
1364         t184*t185*t186;
1365     t191 = 1/pow(t19,2.0);
1366     t192 = pow(t46,2.0);
1367     t193 = 1/pow(t18,4.0);
1368     t194 = 1/pow(t18,3.0);
1369     t195 = 1/pow(rhoa,2.333333333333333);
1370     t196 = 1/pow(t7,7.0);
1371     t197 = 1.176575*t10*t11*t14*t45*t44+.7012916666666668*
1372         t5*t14*t196*t44+1.568766666666666*t10*t11*t3*t8*t42+.5610333333333333*
1373         t5*t3*t45*t42+2.754533333333333*t1*t2*t4*t195+.6946333333333333*
1374         t12*t13*t15*t23;
1375     t198 = 1/pow(t31,4.0);
1376     t199 = -.02038744888888889*t22*t33*t189+.001958930631111111*
1377         t21*t32*t188-1.639590456888889E-5*t35*t48*t187+3.554552490666667E-8*
1378         t184*t198*t186;
1379     t200 = 2.0*t61*t93*t94*t95;
1380     t201 = -1.169644679491041*t70*t74*t75*t79*t97*t98*t99;
1381     t202 = .008858862266666667*
1382         t1*t2*t4*t91*t68;
1383     t203 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t79*
1384         t82;
1385     t204 = 2.0*t121*t70*t72*t73*t79;
1386     t205 = -8.0*t113*t70*t72*t79*t88;
1387     t206 = pow(t93,2.0);
1388     t207 = 1/pow(t66,4.0);
1389     t208 = 1/pow(t67,2.0);
1390     t209 = 16.0818243221511*t61*t206*t207*t208;
1391     t210 = 1/pow(t66,3.0);
1392     t211 = -2.0*t61*t206*t210*t95;
1393     t212 = 1/pow(t58,2.666666666666667);
1394     t213 = 1/pow(t58,2.333333333333333);
1395     t214 = 1/pow(t63,7.0);
1396     t215 = .8439666666666665*t10*t11*t3*t90*t64+0.632975*
1397         t10*t11*t14*t91*t92+.2730333333333334*t5*t3*t90*t92+.3412916666666667*
1398         t5*t14*t91*t214+1.594488888888889*t1*t2*t4*t213+0.547711111111111*
1399         t12*t13*t15*t212;
1400     t216 = .9999999999999999*t61*t215*t94*t95;
1401     t217 = -.1424666666666666*t1*t2*t4*t91*t93*t94*t95;
1402     t218 = pow(t97,
1403         2.0);
1404     t219 = 1/pow(t80,4.0);
1405     t220 = 1/pow(t81,2.0);
1406     t221 = -17.31575589937587*t70*t74*t75*t79*t218*t219*t220;
1407     t222 = 1/
1408         pow(t80,3.0);
1409     t223 = 1.169644679491041*t70*t74*t75*t79*t218*t222*t99;
1410     t224 = 1.150777777777777*
1411         t10*t11*t3*t90*t64+.8630833333333332*t10*t11*t14*t91*t92+0.14671*
1412         t5*t3*t90*t92+0.1833875*t5*t14*t91*t214+1.610266666666667*
1413         t1*t2*t4*t213+.5519000000000001*t12*t13*t15*t212;
1414     t225 = -.5848223397455204*t70*t74*t75*t79*t224*t98*t99;
1415     t226 = -
1416         1.169644679491041*t70*t74*t75*t110*t97*t98*t99;
1417     t227 = .04337432353112609*t70*t1*t2*t4*t91*t74*t79*t97*
1418         t98*t99;
1419     t228 = -1.169644679491041*t70*t116*t75*t79*t97*t98*t99;
1420     t229 = -
1421         .005905908177777777*t1*t2*t4*t213*t68;
1422     t230 = pow(t105,2.0);
1423     t231 = 1/pow(t77,.6666666666666666);
1424     t232 = 1/pow(t58,3.0);
1425     t233 = -2.0*t232*t71;
1426     t234 = 2.0*t102;
1427     t235 = t234+t233;
1428     t236 = pow(t108,2.0);
1429     t237 = 1/pow(t78,.6666666666666666);
1430     t238 = 2.0*t232*t71;
1431     t239 = -2.0*t102;
1432     t240 = t239+t238;
1433     t241 = 1.333333333333333*t109*t240+.4444444444444444*
1434         t236*t237+1.333333333333333*t106*t235+.4444444444444444*t230*
1435         t231;
1436     t242 = .01975178970256521*t70*t74*t75*t241*t82;
1437     t243 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t110*
1438         t82;
1439     t244 = .03950357940513041*t70*t116*t75*t110*t82;
1440     t245 = -.001464924402940253*t70*t1*t2*t4*t91*t116*t79*
1441         t82;
1442     t246 = 9.766162686268349E-4*t70*t1*t2*t4*t213*t74*t79*
1443         t82;
1444     t247 = 1/pow(t58,6.0);
1445     t248 = -20.0*t247*t72;
1446     t249 = pow(t71,2.0);
1447     t250 = -12.0*t249*t73;
1448     t251 = t250+t248+32.0*t113*t115;
1449     t252 = .01975178970256521*t70*t251*t75*t79*t82;
1450     t253 = pow(t118,2.0);
1451     t254 = 1/pow(t85,4.0);
1452     t255 = 1/pow(t86,2.0);
1453     t256 = 1/pow(t85,3.0);
1454     t257 = 1.568766666666666*t10*t11*t3*t90*t64+1.176575*
1455         t10*t11*t14*t91*t92+.5610333333333333*t5*t3*t90*t92+.7012916666666668*
1456         t5*t14*t91*t214+2.754533333333333*t1*t2*t4*t213+.6946333333333333*
1457         t12*t13*t15*t212;
1458     t258 = -.002839276977777777*t1*t2*t4*t213*t87+.005905908177777777*
1459         t1*t2*t4*t213*t68-.1369866666666666*t1*t2*t4*t91*t118*t119*
1460         t120+1.0*t84*t257*t119*t120-2.0*t84*t253*t256*t120+32.1646831778707*
1461         t84*t253*t254*t255+.1424666666666666*t1*t2*t4*t91*t93*t94*
1462         t95-.9999999999999999*t61*t215*t94*t95+2.0*t61*t206*t210*t95-
1463         16.0818243221511*t61*t206*t207*t208;
1464     t259 = t70*t72*t73*t79*t258;
1465     t260 = 2.0*t110*t121*t70*t72*t73;
1466     t261 = -8.0*t113*t121*t70*t72*t79;
1467     t262 = 8.0*t115*t121*t70*t73*t79;
1468     t263 = t70*t72*t73*t241*t88;
1469     t264 = -8.0*t110*t113*t70*t72*t88;
1470     t265 = 20.0*t247*t70*t72*t79*t88;
1471     t266 = -32.0*t113*t115*t70*t79*t88;
1472     t267 = 12.0*t249*t70*t73*t79*t88;
1473     t268 = -1.0*t41*t197*t29*t47*rhoa+2.0*t41*t192*t29*t194*
1474         rhoa-32.1646831778707*t191*t192*t29*t193*rhoa+t58*(8.0*t110*
1475         t115*t70*t73*t88+t267+t266+t265+t264+t263+t262+t261+t260+t259+
1476         t252+t246+t245+t244+t243+t242+t229+t228+t227+t226+t225+t223+
1477         t221+t217+t216+t211+t209)+8.0*t115*t70*t73*t79*t88+2.0*t110*
1478         t70*t72*t73*t88+.03950357940513041*t70*t116*t75*t79*t82+.03950357940513041*
1479         t70*t74*t75*t110*t82-2.0*t41*t46*t29*t47-.001419638488888889*
1480         t1*t2*t4*t20*t44+t205+t204+t203+t202+t201+t200+.1369866666666666*
1481         t1*t2*t4*t41*t46*t47*t17;
1482     t269 = 1/pow(t54,4.0);
1483     t270 = 0.1848792*t22*t189*t56-.006379137599999999*t22*
1484         t189*t52*t55-0.0027230592*t21*t188*t55+3.1619174400000005E-5*
1485         t22*t189*t53*t126+5.0832E-5*t21*t188*t52*t126-2.0696186880000003E-7*
1486         t21*t188*t53*t269;
1487     t271 = 2.666666666666667*t109*t232*t71-2.666666666666667*
1488         t106*t232*t71+.4444444444444444*t108*t164*t237+.4444444444444444*
1489         t105*t163*t231;
1490     t272 = 12.0*t249*t73+t248;
1491     t273 = -12.0*t249*t70*t73*t79*t88;
1492     t274 = t58*(-.5848223397455204*t70*t167*t75*t79*t97*t98*
1493         t99-.5848223397455204*t70*t116*t75*t79*t97*t98*t99-.5848223397455204*
1494         t70*t74*t75*t165*t97*t98*t99-.5848223397455204*t70*t74*t75*
1495         t110*t97*t98*t99+4.0*t115*t165*t70*t73*t88-4.0*t110*t115*t70*
1496         t73*t88-4.0*t113*t165*t70*t72*t88-4.0*t110*t113*t70*t72*t88+
1497         t70*t72*t73*t271*t88+.01975178970256521*t70*t272*t75*t79*t82-
1498         7.324622014701263E-4*t70*t1*t2*t4*t91*t167*t79*t82-7.324622014701263E-4*
1499         t70*t1*t2*t4*t91*t116*t79*t82+.01975178970256521*t70*t74*t75*
1500         t271*t82+.01975178970256521*t70*t116*t75*t165*t82-7.324622014701263E-4*
1501         t70*t1*t2*t4*t91*t74*t165*t82+.01975178970256521*t70*t167*
1502         t75*t110*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*t74*t110*
1503         t82+t273+t265+t261+t259+t246+t229+t227+t225+t223+t221+t217+
1504         t216+t211+t209+t70*t72*t73*t165*t121+t70*t72*t73*t110*t121)+
1505         t205+t204+t203+t202+t201+t200+t169+t168+t166+t123+t117+t111;
1506     t275 = -
1507         0.0027230592*t22*t50*t39*t55*t152+5.0832E-5*t22*t50*t39*t52*
1508         t126*t152-2.0696186880000003E-7*t22*t50*t39*t53*t269*t152;
1509     t276 = pow(grada,
1510         7.0);
1511     t277 = 1/pow(rhoa,11.66666666666667);
1512     t278 = 1.666218666666667*grada*t27*t39-2.657698133333334*
1513         t174*t25*t38+.9622809600000002*t172*t36*t37-.09947801600000003*
1514         t276*t185*t277;
1515     t279 = .01112042666666667*grada*t33*t39-.001244242773333333*
1516         t174*t32*t38+1.1463830186666667E-5*t172*t48*t37-2.665914368E-8*
1517         t276*t198*t277;
1518     t280 = -0.1008432*grada*t39*t56+0.0034795296*grada*t39*
1519         t52*t55+0.0020422944*t174*t38*t55-1.72468224E-5*grada*t39*
1520         t53*t126-3.8124E-5*t174*t38*t52*t126+1.5522140160000003E-7*
1521         t174*t38*t53*t269;
1522     t281 = 0.0020422944*t22*gradb*t39*t55*t51-3.8124E-5*t22*
1523         gradb*t39*t52*t126*t51+1.5522140160000003E-7*t22*gradb*t39*
1524         t53*t269*t51;
1525     t282 = pow(gradb,8.0);
1526     t283 = 1/pow(t139,4.0);
1527     t284 = 1/pow(rhob,12.66666666666667);
1528     t285 = 1/pow(rhob,10.0);
1529     t286 = 1/pow(rhob,7.333333333333333);
1530     t287 = 1/pow(rhob,4.666666666666667);
1531     t288 = -3.054734222222222*t50*t142*t287+4.124711111111112*
1532         t138*t140*t286-1.365939626666667*t148*t149*t285+.1326373546666667*
1533         t282*t283*t284;
1534     t289 = 1/pow(t134,2.0);
1535     t290 = pow(t159,2.0);
1536     t291 = 1/pow(t133,4.0);
1537     t292 = 1/pow(t133,3.0);
1538     t293 = 1/pow(rhob,2.333333333333333);
1539     t294 = 1/pow(t129,7.0);
1540     t295 = 1.176575*t10*t11*t14*t158*t157+.7012916666666668*
1541         t5*t14*t294*t157+1.568766666666666*t10*t11*t3*t130*t155+.5610333333333333*
1542         t5*t3*t158*t155+2.754533333333333*t1*t2*t4*t293+.6946333333333333*
1543         t12*t13*t15*t51;
1544     t296 = 1/pow(t144,4.0);
1545     t297 = -.02038744888888889*t50*t146*t287+.001958930631111111*
1546         t138*t145*t286-1.639590456888889E-5*t148*t161*t285+3.554552490666667E-8*
1547         t282*t296*t284;
1548     t298 = -1.169644679491041*t70*t74*t75*t165*t97*t98*t99;
1549     t299 = -
1550         1.169644679491041*t70*t167*t75*t79*t97*t98*t99;
1551     t300 = pow(t163,2.0);
1552     t301 = t239+t233;
1553     t302 = pow(t164,2.0);
1554     t303 = t234+t238;
1555     t304 = 1.333333333333333*t109*t303+.4444444444444444*
1556         t237*t302+1.333333333333333*t106*t301+.4444444444444444*t231*
1557         t300;
1558     t305 = .01975178970256521*t70*t74*t75*t304*t82;
1559     t306 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t165*
1560         t82;
1561     t307 = .03950357940513041*t70*t167*t75*t165*t82;
1562     t308 = -.001464924402940253*t70*t1*t2*t4*t91*t167*t79*
1563         t82;
1564     t309 = t250+t248-32.0*t113*t115;
1565     t310 = .01975178970256521*t70*t309*t75*t79*t82;
1566     t311 = 2.0*t121*t165*t70*t72*t73;
1567     t312 = -8.0*t115*t121*t70*t73*t79;
1568     t313 = t70*t72*t73*t304*t88;
1569     t314 = -8.0*t113*t165*t70*t72*t88;
1570     t315 = 32.0*t113*t115*t70*t79*t88;
1571     t316 = 2.0*t154*t290*t136*t292*rhob-32.1646831778707*
1572         t289*t290*t136*t291*rhob-1.0*t154*t295*t136*t160*rhob+t58*
1573         (-8.0*t115*t165*t70*t73*t88+t315+t314+t313+t312+t311+t310+
1574         t308+t307+t306+t305+t299+t298+t267+t265+t261+t259+t246+t229+
1575         t227+t225+t223+t221+t217+t216+t211+t209)-8.0*t115*t70*t73*
1576         t79*t88+2.0*t165*t70*t72*t73*t88+.03950357940513041*t70*t167*
1577         t75*t79*t82+.03950357940513041*t70*t74*t75*t165*t82+t205+t204+
1578         t203+t202+t201+t200-2.0*t154*t159*t136*t160-.001419638488888889*
1579         t1*t2*t4*t135*t157+.1369866666666666*t1*t2*t4*t154*t159*t160*
1580         t132;
1581     t317 = 0.1848792*t50*t56*t287-.006379137599999999*t50*
1582         t52*t55*t287+3.1619174400000005E-5*t50*t53*t126*t287-0.0027230592*
1583         t138*t55*t286+5.0832E-5*t138*t52*t126*t286-2.0696186880000003E-7*
1584         t138*t53*t269*t286;
1585     t318 = 0.0020422944*grada*t50*t23*t55*t152-3.8124E-5*
1586         grada*t50*t23*t52*t126*t152+1.5522140160000003E-7*grada*t50*
1587         t23*t53*t269*t152;
1588     t319 = pow(gradb,7.0);
1589     t320 = 1/pow(rhob,11.66666666666667);
1590     t321 = 1.666218666666667*gradb*t142*t152-2.657698133333334*
1591         t180*t140*t151+.9622809600000002*t178*t149*t150-.09947801600000003*
1592         t319*t283*t320;
1593     t322 = .01112042666666667*gradb*t146*t152-.001244242773333333*
1594         t180*t145*t151+1.1463830186666667E-5*t178*t161*t150-2.665914368E-8*
1595         t319*t296*t320;
1596     t323 = -0.1008432*gradb*t56*t152+0.0034795296*gradb*t52*
1597         t55*t152-1.72468224E-5*gradb*t53*t126*t152+0.0020422944*t180*
1598         t55*t151-3.8124E-5*t180*t52*t126*t151+1.5522140160000003E-7*
1599         t180*t53*t269*t151;
1600     t324 = 1/pow(rhoa,10.66666666666667);
1601     t325 = -0.624832*t27*t23+1.5574384*t22*t25*t26-.6595369600000002*
1602         t21*t36*t173+.07460851200000003*t35*t185*t324;
1603     t326 = -0.00417016*t33*t23+7.082268799999999E-4*t22*t32*
1604         t26-7.764774399999999E-6*t21*t48*t173+1.999435776E-8*t35*t198*
1605         t324;
1606     t327 = 0.0378162*t23*t56-0.0013048236*t23*t52*t55-0.0015317208*
1607         t22*t26*t55+6.4675584E-6*t23*t53*t126+2.8593E-5*t22*t26*t52*
1608         t126-1.1641605120000002E-7*t22*t26*t53*t269;
1609     t328 = -0.0015317208*grada*gradb*t23*t55*t51+2.8593E-5*
1610         grada*gradb*t23*t52*t126*t51-1.1641605120000002E-7*grada*gradb*
1611         t23*t53*t269*t51;
1612     t329 = 1/pow(rhob,10.66666666666667);
1613     t330 = -0.624832*t142*t51+1.5574384*t50*t140*t141-.6595369600000002*
1614         t138*t149*t179+.07460851200000003*t148*t283*t329;
1615     t331 = -0.00417016*t146*t51+7.082268799999999E-4*t50*
1616         t145*t141-7.764774399999999E-6*t138*t161*t179+1.999435776E-8*
1617         t148*t296*t329;
1618     t332 = 0.0378162*t56*t51-0.0013048236*t52*t55*t51+6.4675584E-6*
1619         t53*t126*t51-0.0015317208*t50*t55*t141+2.8593E-5*t50*t52*t126*
1620         t141-1.1641605120000002E-7*t50*t53*t269*t141;
1621     t333 = pow(grada,10.0);
1622     t334 = 1/pow(t24,5.0);
1623     t335 = 1/pow(rhoa,16.33333333333333);
1624     t336 = 1/pow(rhoa,13.66666666666667);
1625     t337 = 1/pow(rhoa,11.0);
1626     t338 = 1/pow(rhoa,8.333333333333334);
1627     t339 = 1/pow(rhoa,5.666666666666667);
1628     t340 = 1/pow(t19,3.0);
1629     t341 = pow(t46,3.0);
1630     t342 = 1/pow(t18,6.0);
1631     t343 = 1/pow(t18,5.0);
1632     t344 = 1/pow(rhoa,2.0);
1633     t345 = -6.427244444444445*t1*t2*t4/pow(rhoa,3.333333333333333)-
1634         .8181736111111113*t344*t5*M_PI/pow(t7,9.0)-1.852355555555556*
1635         t12*t13*t15*t39-.9804791666666667*t10*t11*M_PI*t196*t344-2.614611111111111*
1636         t10*t11*t3*t8*t23-.9350555555555555*t5*t3*t45*t23-2.35315*
1637         t10*t11*t14*t45*t195-1.402583333333333*t5*t14*t196*t195;
1638     t346 = 1/
1639         pow(t31,5.0);
1640     t347 = 48.2454729664533*t61*t206*t207*t208;
1641     t348 = -6.0*t61*t206*t210*t95;
1642     t349 = 3.0*t61*t215*t94*t95;
1643     t350 = -.4273999999999999*t1*t2*t4*t91*t93*t94*t95;
1644     t351 = -
1645         51.9472676981276*t70*t74*t75*t79*t218*t219*t220;
1646     t352 = 3.508934038473122*t70*t74*t75*t79*t218*t222*t99;
1647     t353 = -
1648         1.754467019236561*t70*t74*t75*t79*t224*t98*t99;
1649     t354 = .1301229705933783*t70*t1*t2*t4*t91*t74*t79*t97*
1650         t98*t99;
1651     t355 = -.01771772453333333*t1*t2*t4*t213*t68;
1652     t356 = .002929848805880505*t70*t1*t2*t4*t213*t74*t79*
1653         t82;
1654     t357 = 3.0*t258*t70*t72*t73*t79;
1655     t358 = -24.0*t113*t121*t70*t72*t79;
1656     t359 = 60.0*t247*t70*t72*t79*t88;
1657     t360 = 36.0*t249*t70*t73*t79*t88;
1658     t361 = pow(t93,3.0);
1659     t362 = 1/pow(t66,6.0);
1660     t363 = 1/pow(t67,3.0);
1661     t364 = 517.2501470570614*t61*t361*t362*t363;
1662     t365 = 1/pow(t66,5.0);
1663     t366 = -96.4909459329066*t61*t361*t365*t208;
1664     t367 = 48.2454729664533*t61*t215*t93*t207*t208;
1665     t368 = -3.43668585764369*t1*t2*t4*t91*t206*t207*t208;
1666     t369 = 6.0*
1667         t61*t361*t207*t95;
1668     t370 = -6.0*t61*t215*t93*t210*t95;
1669     t371 = .4273999999999999*t1*t2*t4*t91*t206*t210*t95;
1670     t372 = 1/
1671         pow(t58,3.666666666666667);
1672     t373 = 1/pow(t58,3.333333333333333);
1673     t374 = 1/pow(t63,9.0);
1674     t375 = -1.406611111111111*t10*t11*t3*t212*t64-1.26595*
1675         t10*t11*t14*t213*t92-.4550555555555556*t5*t3*t212*t92-.5274791666666666*
1676         t10*t11*M_PI*t102*t214-.6825833333333334*t5*t14*t213*t214-.3981736111111112*
1677         t5*M_PI*t102*t374-3.720474074074074*t1*t2*t4*t373-1.460562962962963*
1678         t12*t13*t15*t372;
1679     t376 = .9999999999999999*t61*t375*t94*t95;
1680     t377 = -0.2137*t1*t2*t4*t91*t215*t94*t95;
1681     t378 = .2849333333333333*t1*t2*t4*t213*t93*t94*t95;
1682     t379 = pow(t97,
1683         3.0);
1684     t380 = -1025.38970210078*t379*t70*t74*t75*t79/(pow(t80,
1685         6.0)*pow(t81,3.0));
1686     t381 = 103.8945353962552*t220*t379*t70*t74*t75*t79/pow(t80,
1687         5.0);
1688     t382 = -51.9472676981276*t70*t74*t75*t79*t224*t97*t219*
1689         t220;
1690     t383 = 1.926377843805565*t70*t1*t2*t4*t91*t74*t79*t218*
1691         t219*t220;
1692     t384 = -3.508934038473122*t70*t74*t75*t79*t379*t219*t99;
1693     t385 = 3.508934038473122*
1694         t70*t74*t75*t79*t224*t97*t222*t99;
1695     t386 = -.1301229705933783*t70*t1*t2*t4*t91*t74*t79*t218*
1696         t222*t99;
1697     t387 = -.5848223397455204*t70*t74*t75*t79*(-1.917962962962962*
1698         t10*t11*t3*t212*t64-1.726166666666666*t10*t11*t14*t213*t92-
1699         .2445166666666667*t5*t3*t212*t92-.7192361111111111*t10*t11*
1700         M_PI*t102*t214-0.366775*t5*t14*t213*t214-.2139520833333333*
1701         t5*M_PI*t102*t374-3.757288888888889*t1*t2*t4*t373-1.471733333333333*
1702         t12*t13*t15*t372)*t98*t99;
1703     t388 = .06506148529668915*t70*t1*t2*t4*t91*t74*t79*t224*
1704         t98*t99;
1705     t389 = -.08674864706225219*t70*t1*t2*t4*t213*t74*t79*
1706         t97*t98*t99;
1707     t390 = .01378045241481481*t1*t2*t4*t373*t68;
1708     t391 = 1/pow(t77,1.666666666666667);
1709     t392 = 6.0*t71*t73;
1710     t393 = -6.0*t232;
1711     t394 = 1/pow(t78,1.666666666666667);
1712     t395 = -6.0*t71*t73;
1713     t396 = 6.0*t232;
1714     t397 = 1.333333333333333*t109*(t396+t395)-.2962962962962963*
1715         pow(t108,3.0)*t394+1.333333333333333*t106*(t393+t392)-.2962962962962963*
1716         pow(t105,3.0)*t391+1.333333333333333*t108*t237*t240+1.333333333333333*
1717         t105*t231*t235;
1718     t398 = -.002278771293462615*t70*t1*t2*t4*t373*t74*t79*
1719         t82;
1720     t399 = 1/pow(t58,7.0);
1721     t400 = 120.0*t399*t72;
1722     t401 = 144.0*t113*t249;
1723     t402 = -24.0*t71*t73;
1724     t403 = pow(t118,3.0);
1725     t404 = t70*t72*t73*t79*(-.2849333333333333*t1*t2*t4*t213*
1726         t93*t94*t95-.9999999999999999*t61*t375*t94*t95+0.2137*t1*t2*
1727         t4*t91*t215*t94*t95+6.0*t61*t215*t93*t210*t95-.4273999999999999*
1728         t1*t2*t4*t91*t206*t210*t95-6.0*t61*t361*t207*t95+.006624979614814813*
1729         t1*t2*t4*t373*t87+2069.133687865597*t403*t84/(pow(t85,6.0)*
1730         pow(t86,3.0))-192.9880990672242*t255*t403*t84/pow(t85,5.0)-
1731         .01378045241481481*t1*t2*t4*t373*t68-517.2501470570614*t61*
1732         t361*t362*t363-6.60919909938887*t1*t2*t4*t91*t253*t254*t255+
1733         96.4940495336121*t84*t257*t118*t254*t255+96.4909459329066*
1734         t61*t361*t365*t208-48.2454729664533*t61*t215*t93*t207*t208+
1735         3.43668585764369*t1*t2*t4*t91*t206*t207*t208+.4109599999999999*
1736         t1*t2*t4*t91*t253*t256*t120-6.0*t84*t257*t118*t256*t120+6.0*
1737         t84*t403*t254*t120+1.0*t84*(-2.614611111111111*t10*t11*t3*
1738         t212*t64-2.35315*t10*t11*t14*t213*t92-.9350555555555555*t5*
1739         t3*t212*t92-.9804791666666667*t10*t11*M_PI*t102*t214-1.402583333333333*
1740         t5*t14*t213*t214-.8181736111111113*t5*M_PI*t102*t374-6.427244444444445*
1741         t1*t2*t4*t373-1.852355555555556*t12*t13*t15*t372)*t119*t120-
1742         0.20548*t1*t2*t4*t91*t257*t119*t120+.2739733333333333*t1*t2*
1743         t4*t213*t118*t119*t120);
1744     t405 = -12.0*t113*t258*t70*t72*t79;
1745     t406 = 60.0*t121*t247*t70*t72*t79;
1746     t407 = 36.0*t121*t249*t70*t73*t79;
1747     t408 = -120.0*t399*t70*t72*t79*t88;
1748     t409 = -144.0*t113*t249*t70*t79*t88;
1749     t410 = 24.0*t70*t71*t73*t79*t88;
1750     t411 = 1/pow(t54,5.0);
1751     t412 = .03950357940513041*t70*t74*t75*t271*t82;
1752     t413 = .03950357940513041*t70*t116*t75*t165*t82;
1753     t414 = .03950357940513041*t70*t167*t75*t110*t82;
1754     t415 = .03950357940513041*t70*t272*t75*t79*t82;
1755     t416 = 2.0*t271*t70*t72*t73*t88;
1756     t417 = -1.169644679491041*t70*t74*t75*t271*t97*t98*t99;
1757     t418 = -
1758         1.169644679491041*t70*t116*t75*t165*t97*t98*t99;
1759     t419 = -1.169644679491041*t70*t167*t75*t110*t97*t98*t99;
1760     t420 = -
1761         1.169644679491041*t70*t272*t75*t79*t97*t98*t99;
1762     t421 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t271*
1763         t82;
1764     t422 = 1.777777777777778*t108*t232*t237*t71-1.777777777777778*
1765         t105*t231*t232*t71+1.333333333333333*t109*(t395+2.0*t232)-
1766         .2962962962962963*t164*t236*t394+1.333333333333333*t106*(t392-
1767         2.0*t232)-.2962962962962963*t163*t230*t391+.4444444444444444*
1768         t164*t237*t240+.4444444444444444*t163*t231*t235;
1769     t423 = -.001464924402940253*t70*t1*t2*t4*t91*t116*t165*
1770         t82;
1771     t424 = -.001464924402940253*t70*t1*t2*t4*t91*t167*t110*
1772         t82;
1773     t425 = -.001464924402940253*t70*t1*t2*t4*t91*t272*t79*
1774         t82;
1775     t426 = -48.0*t113*t249;
1776     t427 = 24.0*t71*t73;
1777     t428 = 2.0*t121*t271*t70*t72*t73;
1778     t429 = -12.0*t121*t249*t70*t73*t79;
1779     t430 = -8.0*t113*t271*t70*t72*t88;
1780     t431 = 48.0*t113*t249*t70*t79*t88;
1781     t432 = -24.0*t70*t71*t73*t79*t88;
1782     t433 = pow(grada,9.0);
1783     t434 = 1/pow(rhoa,15.33333333333333);
1784     t435 = -8.0*t109*t71*t73+8.0*t106*t71*t73+1.777777777777778*
1785         t164*t232*t237*t71-1.777777777777778*t163*t231*t232*t71-.2962962962962963*
1786         t108*t302*t394-.2962962962962963*t105*t300*t391+.4444444444444444*
1787         t108*t237*t303+.4444444444444444*t105*t231*t301-2.666666666666667*
1788         t109*t232+2.666666666666667*t106*t232;
1789     t436 = 1/pow(rhoa,14.33333333333333);
1790     t437 = pow(gradb,10.0);
1791     t438 = 1/pow(t139,5.0);
1792     t439 = 1/pow(rhob,16.33333333333333);
1793     t440 = 1/pow(rhob,13.66666666666667);
1794     t441 = 1/pow(rhob,11.0);
1795     t442 = 1/pow(rhob,8.333333333333334);
1796     t443 = 1/pow(rhob,5.666666666666667);
1797     t444 = 1/pow(t134,3.0);
1798     t445 = pow(t159,3.0);
1799     t446 = 1/pow(t133,6.0);
1800     t447 = 1/pow(t133,5.0);
1801     t448 = 1/pow(rhob,2.0);
1802     t449 = -6.427244444444445*t1*t2*t4/pow(rhob,3.333333333333333)-
1803         .8181736111111113*t448*t5*M_PI/pow(t129,9.0)-.9350555555555555*
1804         t5*t3*t158*t51-2.614611111111111*t10*t11*t3*t130*t51-.9804791666666667*
1805         t10*t11*M_PI*t294*t448-1.402583333333333*t5*t14*t294*t293-2.35315*
1806         t10*t11*t14*t158*t293-1.852355555555556*t12*t13*t15*t152;
1807     t450 = 1/
1808         pow(t144,5.0);
1809     t451 = 1.333333333333333*t106*(t396+t392)-.2962962962962963*
1810         pow(t164,3.0)*t394+1.333333333333333*t109*(t393+t395)-.2962962962962963*
1811         pow(t163,3.0)*t391+1.333333333333333*t164*t237*t303+1.333333333333333*
1812         t163*t231*t301;
1813     t452 = pow(gradb,9.0);
1814     t453 = 1/pow(rhob,15.33333333333333);
1815     t454 = 1/pow(rhob,14.33333333333333);
1816     t455 = 1/pow(rhoa,13.33333333333333);
1817     t456 = 1/pow(rhob,13.33333333333333);
1818 
1819    /* code */
1820     dfdra = 1.0*t41*t28*t46*t29*t47*rhoa-0.03109*t20*t40*
1821         t29*rhoa-1.0*t30*t34*t4*t6-0.75*t30*t4*t43*t49-0.03109*t20*
1822         t28*t29+.002129457733333333*t1*t2*t4*t20*t28*t17+t127*t137+
1823         t57*t125;
1824     dfdrb = 1.0*t154*t143*t159*t136*t160*rhob-0.03109*t135*
1825         t153*t136*rhob-0.75*t156*t162*t30*t4-1.0*t128*t147*t30*t4+
1826         t57*t170+t171*t137-0.03109*t135*t143*t136+.002129457733333333*
1827         t1*t2*t4*t135*t143*t132;
1828     dfdga = -0.03109*t20*t175*t29*rhoa-0.75*t176*t30*t4*t43+
1829         t177*t137;
1830     dfdgb = -0.03109*t135*t181*t136*rhob-0.75*t156*t182*t30*
1831         t4+t183*t137;
1832     dfdgab = 0.0;
1833     d2fdrara = 2.0*t41*t40*t46*t29*t47*rhoa+1.0*t41*t28*t197*
1834         t29*t47*rhoa-0.03109*t20*t190*t29*rhoa-2.0*t41*t28*t192*t29*
1835         t194*rhoa+32.1646831778707*t191*t28*t192*t29*t193*rhoa-2.0*
1836         t30*t4*t49*t6+2.0*t41*t28*t46*t29*t47+.001419638488888889*
1837         t1*t2*t4*t20*t28*t44-0.75*t199*t30*t4*t43-.3333333333333333*
1838         t16*t30*t34*t4-0.06218*t20*t40*t29+t57*t268-.1369866666666666*
1839         t1*t2*t4*t41*t28*t46*t47*t17+.004258915466666666*t1*t2*t4*
1840         t20*t40*t17+t270*t137+2.0*t125*t127;
1841     d2fdrarb = t275*t137+t171*t125+t127*t170+t57*t274;
1842     d2fdraga = 1.0*t41*t175*t46*t29*t47*rhoa-0.03109*t20*
1843         t278*t29*rhoa-1.0*t176*t30*t4*t6-0.75*t279*t30*t4*t43-0.03109*
1844         t20*t175*t29+.002129457733333333*t1*t2*t4*t20*t175*t17+t280*
1845         t137+t177*t125;
1846     d2fdragb = t281*t137+t183*t125;
1847     d2fdraab = 0.0;
1848     d2fdrbrb = -2.0*t154*t143*t290*t136*t292*rhob+32.1646831778707*
1849         t289*t143*t290*t136*t291*rhob+1.0*t154*t143*t295*t136*t160*
1850         rhob+2.0*t154*t153*t159*t136*t160*rhob-0.03109*t135*t288*t136*
1851         rhob-0.75*t156*t297*t30*t4-2.0*t128*t162*t30*t4-.3333333333333333*
1852         t131*t147*t30*t4+t57*t316+2.0*t170*t171+2.0*t154*t143*t159*
1853         t136*t160+.001419638488888889*t1*t2*t4*t135*t143*t157+t317*
1854         t137-0.06218*t135*t153*t136-.1369866666666666*t1*t2*t4*t154*
1855         t143*t159*t160*t132+.004258915466666666*t1*t2*t4*t135*t153*
1856         t132;
1857     d2fdrbga = t318*t137+t177*t170;
1858     d2fdrbgb = 1.0*t154*t181*t159*t136*t160*rhob-0.03109*
1859         t135*t321*t136*rhob-0.75*t156*t30*t322*t4-1.0*t128*t182*t30*
1860         t4+t183*t170+t323*t137-0.03109*t135*t181*t136+.002129457733333333*
1861         t1*t2*t4*t135*t181*t132;
1862     d2fdrbgab = 0.0;
1863     d2fdgaga = -0.03109*t20*t325*t29*rhoa-0.75*t30*t326*t4*
1864         t43+t327*t137;
1865     d2fdgagb = t328*t137;
1866     d2fdgagab = 0.0;
1867     d2fdgbgb = -0.03109*t135*t330*t136*rhob-0.75*t156*t30*
1868         t331*t4+t332*t137;
1869     d2fdgbgab = 0.0;
1870     d2fdgabgab = 0.0;
1871     d3fdrarara = t57*(-1.0*t41*t345*t29*t47*rhoa+192.9880990672242*
1872         t191*t341*t29*t343*rhoa-2069.133687865597*t340*t341*t29*t342*
1873         rhoa+6.0*t41*t197*t46*t29*t194*rhoa-96.4940495336121*t191*
1874         t197*t46*t29*t193*rhoa-6.0*t41*t341*t29*t193*rhoa+t58*(-1.754467019236561*
1875         t70*t251*t75*t79*t97*t98*t99+.1301229705933783*t70*t1*t2*t4*
1876         t91*t116*t79*t97*t98*t99-1.754467019236561*t70*t74*t75*t241*
1877         t97*t98*t99-3.508934038473122*t70*t116*t75*t110*t97*t98*t99+
1878         .1301229705933783*t70*t1*t2*t4*t91*t74*t110*t97*t98*t99-1.754467019236561*
1879         t70*t116*t75*t79*t224*t98*t99-1.754467019236561*t70*t74*t75*
1880         t110*t224*t98*t99+3.508934038473122*t70*t116*t75*t79*t218*
1881         t222*t99+3.508934038473122*t70*t74*t75*t110*t218*t222*t99+
1882         240.0*t115*t247*t70*t79*t88+36.0*t110*t249*t70*t73*t88+12.0*
1883         t115*t241*t70*t73*t88+60.0*t110*t247*t70*t72*t88-12.0*t113*
1884         t241*t70*t72*t88-96.0*t110*t113*t115*t70*t88+t70*t72*t73*t397*
1885         t88+.01975178970256521*(t402+t401+t400-240.0*t115*t247)*t70*
1886         t75*t79*t82-.002197386604410379*t70*t1*t2*t4*t91*t251*t79*
1887         t82+.002929848805880505*t70*t1*t2*t4*t213*t116*t79*t82+.01975178970256521*
1888         t70*t74*t75*t397*t82+.05925536910769562*t70*t116*t75*t241*
1889         t82-.002197386604410379*t70*t1*t2*t4*t91*t74*t241*t82+.05925536910769562*
1890         t70*t251*t75*t110*t82+.002929848805880505*t70*t1*t2*t4*t213*
1891         t74*t110*t82-.004394773208820758*t70*t1*t2*t4*t91*t116*t110*
1892         t82+12.0*t115*t258*t70*t73*t79-96.0*t113*t115*t121*t70*t79+
1893         3.0*t110*t258*t70*t72*t73+3.0*t121*t241*t70*t72*t73+24.0*t110*
1894         t115*t121*t70*t73-24.0*t110*t113*t121*t70*t72+t410+t409+t408+
1895         t407+t406+t405+t404+t398+t390+t389+t388+t387+t386+t385+t384+
1896         t383+t382+t381+t380+t378+t377+t376+t371+t370+t369+t368+t367+
1897         t366+t364-51.9472676981276*t70*t116*t75*t79*t218*t219*t220-
1898         51.9472676981276*t70*t74*t75*t110*t218*t219*t220)-3.508934038473122*
1899         t70*t116*t75*t79*t97*t98*t99-3.508934038473122*t70*t74*t75*
1900         t110*t97*t98*t99-96.0*t113*t115*t70*t79*t88+3.0*t241*t70*t72*
1901         t73*t88+24.0*t110*t115*t70*t73*t88-24.0*t110*t113*t70*t72*
1902         t88+.05925536910769562*t70*t251*t75*t79*t82-.004394773208820758*
1903         t70*t1*t2*t4*t91*t116*t79*t82+.05925536910769562*t70*t74*t75*
1904         t241*t82+.1185107382153912*t70*t116*t75*t110*t82-.004394773208820758*
1905         t70*t1*t2*t4*t91*t74*t110*t82+24.0*t115*t121*t70*t73*t79+6.0*
1906         t110*t121*t70*t72*t73-3.0*t41*t197*t29*t47+.1369866666666666*
1907         t1*t2*t4*t41*t46*t47*t44+t360+t359+t358+t357+t356+t355+t354+
1908         t353+t352+t351+t350+t349+t348+t347+.001892851318518518*t1*
1909         t2*t4*t20*t195+6.0*t41*t192*t29*t194-96.4940495336121*t191*
1910         t192*t29*t193+0.20548*t1*t2*t4*t41*t197*t47*t17-.4109599999999999*
1911         t1*t2*t4*t41*t192*t194*t17+6.60919909938887*t1*t2*t4*t191*
1912         t192*t193*t17)+3.0*t41*t190*t46*t29*t47*rhoa+1.0*t41*t28*t345*
1913         t29*t47*rhoa+3.0*t41*t40*t197*t29*t47*rhoa-192.9880990672242*
1914         t191*t28*t341*t29*t343*rhoa+2069.133687865597*t340*t28*t341*
1915         t29*t342*rhoa-0.03109*t20*(14.25542637037037*t22*t27*t339-
1916         31.87707306666667*t21*t25*t338+18.05908811851852*t35*t36*t337-
1917         3.865576561777778*t184*t185*t336+.2829596899555556*t333*t334*
1918         t335)*t29*rhoa-6.0*t41*t28*t197*t46*t29*t194*rhoa-6.0*t41*
1919         t40*t192*t29*t194*rhoa+96.4940495336121*t191*t28*t197*t46*
1920         t29*t193*rhoa+6.0*t41*t28*t341*t29*t193*rhoa+96.4940495336121*
1921         t191*t40*t192*t29*t193*rhoa-3.0*t199*t30*t4*t6-1.0*t16*t30*
1922         t4*t49+6.0*t41*t40*t46*t29*t47+3.0*t41*t28*t197*t29*t47-.1369866666666666*
1923         t1*t2*t4*t41*t28*t46*t47*t44+.004258915466666666*t1*t2*t4*
1924         t20*t40*t44-0.75*t30*(.09514142814814813*t22*t33*t339-.01458295741629629*
1925         t21*t32*t338+2.0574956581925924E-4*t35*t48*t337-9.749122616888889E-7*
1926         t184*t198*t336+1.5166090626844445E-9*t333*t346*t335)*t4*t43+
1927         .2222222222222222*t30*t34*t4*t42-.09326999999999999*t20*t190*
1928         t29+3.0*t125*t270+3.0*t127*t268-.001892851318518518*t1*t2*
1929         t4*t20*t28*t195-6.0*t41*t28*t192*t29*t194+96.4940495336121*
1930         t191*t28*t192*t29*t193-.4109599999999999*t1*t2*t4*t41*t40*
1931         t46*t47*t17-0.20548*t1*t2*t4*t41*t28*t197*t47*t17+.4109599999999999*
1932         t1*t2*t4*t41*t28*t192*t194*t17-6.60919909938887*t1*t2*t4*t191*
1933         t28*t192*t193*t17+.006388373199999998*t1*t2*t4*t20*t190*t17+
1934         (-0.8627696*t22*t339*t56+0.0297693088*t22*t339*t52*t55+0.0299536512*
1935         t21*t338*t55-1.4755614720000004E-4*t22*t339*t53*t126-5.59152E-4*
1936         t21*t338*t52*t126-1.113449472E-4*t35*t337*t126+2.2765805568E-6*
1937         t21*t338*t53*t269+1.7718663168E-6*t35*t337*t52*t269-6.622779801600002E-9*
1938         t35*t337*t53*t411)*t137;
1939     d3fdrararb = t57*(t58*(-.5848223397455204*t70*t251*t75*
1940         t79*t97*t98*t99+.04337432353112609*t70*t1*t2*t4*t91*t167*t79*
1941         t97*t98*t99+.08674864706225219*t70*t1*t2*t4*t91*t116*t79*t97*
1942         t98*t99-.5848223397455204*t70*t74*t75*t241*t97*t98*t99+.04337432353112609*
1943         t70*t1*t2*t4*t91*t74*t165*t97*t98*t99-1.169644679491041*t70*
1944         t116*t75*t110*t97*t98*t99+.08674864706225219*t70*t1*t2*t4*
1945         t91*t74*t110*t97*t98*t99-.5848223397455204*t70*t167*t75*t79*
1946         t224*t98*t99-1.169644679491041*t70*t116*t75*t79*t224*t98*t99-
1947         .5848223397455204*t70*t74*t75*t165*t224*t98*t99-1.169644679491041*
1948         t70*t74*t75*t110*t224*t98*t99+1.169644679491041*t70*t167*t75*
1949         t79*t218*t222*t99+2.339289358982082*t70*t116*t75*t79*t218*
1950         t222*t99+1.169644679491041*t70*t74*t75*t165*t218*t222*t99+
1951         2.339289358982082*t70*t74*t75*t110*t218*t222*t99+80.0*t115*
1952         t247*t70*t79*t88+8.0*t115*t271*t70*t73*t88+12.0*t165*t249*
1953         t70*t73*t88-24.0*t110*t249*t70*t73*t88-4.0*t115*t241*t70*t73*
1954         t88+20.0*t165*t247*t70*t72*t88+40.0*t110*t247*t70*t72*t88-
1955         4.0*t113*t241*t70*t72*t88-32.0*t113*t115*t165*t70*t88+t70*
1956         t72*t73*t422*t88+.01975178970256521*(t427+t426+t400-80.0*t115*
1957         t247)*t70*t75*t79*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*
1958         t251*t79*t82+9.766162686268349E-4*t70*t1*t2*t4*t213*t167*t79*
1959         t82+0.00195323253725367*t70*t1*t2*t4*t213*t116*t79*t82+.01975178970256521*
1960         t70*t74*t75*t422*t82+.03950357940513041*t70*t116*t75*t271*
1961         t82+.01975178970256521*t70*t167*t75*t241*t82-7.324622014701263E-4*
1962         t70*t1*t2*t4*t91*t74*t241*t82+.01975178970256521*t70*t251*
1963         t75*t165*t82+9.766162686268349E-4*t70*t1*t2*t4*t213*t74*t165*
1964         t82+.03950357940513041*t70*t272*t75*t110*t82+0.00195323253725367*
1965         t70*t1*t2*t4*t213*t74*t110*t82-.001464924402940253*t70*t1*
1966         t2*t4*t91*t116*t110*t82+4.0*t115*t258*t70*t73*t79-32.0*t113*
1967         t115*t121*t70*t79+2.0*t110*t258*t70*t72*t73+8.0*t115*t121*
1968         t165*t70*t73-8.0*t113*t121*t165*t70*t72-16.0*t110*t113*t121*
1969         t70*t72+t432+t431+t430+t429+t428+t425+t424+t423+t421+t420+
1970         t419+t418+t417+t408+t406+t405+t404+t398+t390+t389+t388+t387+
1971         t386+t385+t384+t383+t382+t381+t380+t378+t377+t376+t371+t370+
1972         t369+t368+t367+t366+t364+t70*t72*t73*t165*t258-17.31575589937587*
1973         t70*t167*t75*t79*t218*t219*t220-34.63151179875173*t70*t116*
1974         t75*t79*t218*t219*t220-17.31575589937587*t70*t74*t75*t165*
1975         t218*t219*t220-34.63151179875173*t70*t74*t75*t110*t218*t219*
1976         t220+t70*t72*t73*t241*t121)-2.339289358982082*t70*t116*t75*
1977         t79*t97*t98*t99-2.339289358982082*t70*t74*t75*t110*t97*t98*
1978         t99+8.0*t115*t165*t70*t73*t88-16.0*t110*t113*t70*t72*t88-.002929848805880505*
1979         t70*t1*t2*t4*t91*t116*t79*t82-.002929848805880505*t70*t1*t2*
1980         t4*t91*t74*t110*t82+4.0*t110*t121*t70*t72*t73+t416+t415+t414+
1981         t413+t412+t359+t358+t357+t356+t355+t354+t353+t352+t351+t350+
1982         t349+t348+t347+t314+t311+t308+t306+t299+t298+t273+t266+t263+
1983         t262+t252+t244+t242)+2.0*t125*t275+2.0*t127*t274+t171*t268+
1984         t270*t170+(.009984550399999998*t22*t50*t189*t55*t152-1.86384E-4*
1985         t22*t50*t189*t52*t126*t152-1.113449472E-4*t21*t50*t188*t126*
1986         t152+7.588601856000002E-7*t22*t50*t189*t53*t269*t152+1.7718663168E-6*
1987         t21*t50*t188*t52*t269*t152-6.622779801600002E-9*t21*t50*t188*
1988         t53*t411*t152)*t137;
1989     d3fdraraga = 2.0*t41*t278*t46*t29*t47*rhoa+1.0*t41*t175*
1990         t197*t29*t47*rhoa-0.03109*t20*(-6.109468444444444*grada*t27*
1991         t189+17.72073813333334*t174*t25*t188-11.49540664888889*t172*
1992         t36*t187+2.700226389333334*t276*t185*t186-.2122197674666667*
1993         t433*t334*t434)*t29*rhoa-2.0*t41*t175*t192*t29*t194*rhoa+32.1646831778707*
1994         t191*t175*t192*t29*t193*rhoa-2.0*t279*t30*t4*t6+2.0*t41*t175*
1995         t46*t29*t47+.001419638488888889*t1*t2*t4*t20*t175*t44-0.75*
1996         (-.04077489777777777*grada*t33*t189+.007998822115555556*t174*
1997         t32*t188-1.2971831751111113E-4*t172*t48*t187+6.778659089066668E-7*
1998         t276*t198*t186-1.1374567970133334E-9*t433*t346*t434)*t30*t4*
1999         t43-.3333333333333333*t16*t176*t30*t4-0.06218*t20*t278*t29+
2000         2.0*t125*t280+t177*t268-.1369866666666666*t1*t2*t4*t41*t175*
2001         t46*t47*t17+.004258915466666666*t1*t2*t4*t20*t278*t17+(0.3697584*
2002         grada*t189*t56-0.0127582752*grada*t189*t52*t55-0.0183806496*
2003         t174*t188*t55+6.323834880000001E-5*grada*t189*t53*t126+3.4311600000000003E-4*
2004         t174*t188*t52*t126+8.350871040000001E-5*t172*t187*t126-1.3969926144000003E-6*
2005         t174*t188*t53*t269-1.3288997376000003E-6*t172*t187*t52*t269+
2006         4.967084851200001E-9*t172*t187*t53*t411)*t137;
2007     d3fdraragb = 2.0*t125*t281+t183*t268+(-.007488412799999999*
2008         t22*gradb*t189*t55*t51+1.39788E-4*t22*gradb*t189*t52*t126*
2009         t51+8.350871040000001E-5*t21*gradb*t188*t126*t51-5.691451392000002E-7*
2010         t22*gradb*t189*t53*t269*t51-1.3288997376000003E-6*t21*gradb*
2011         t188*t52*t269*t51+4.967084851200001E-9*t21*gradb*t188*t53*
2012         t411*t51)*t137;
2013     d3fdraraab = 0.0;
2014     d3fdrarbrb = t57*(t58*(-.5848223397455204*t70*t309*t75*
2015         t79*t97*t98*t99+.08674864706225219*t70*t1*t2*t4*t91*t167*t79*
2016         t97*t98*t99+.04337432353112609*t70*t1*t2*t4*t91*t116*t79*t97*
2017         t98*t99-.5848223397455204*t70*t74*t75*t304*t97*t98*t99-1.169644679491041*
2018         t70*t167*t75*t165*t97*t98*t99+.08674864706225219*t70*t1*t2*
2019         t4*t91*t74*t165*t97*t98*t99+.04337432353112609*t70*t1*t2*t4*
2020         t91*t74*t110*t97*t98*t99-1.169644679491041*t70*t167*t75*t79*
2021         t224*t98*t99-.5848223397455204*t70*t116*t75*t79*t224*t98*t99-
2022         1.169644679491041*t70*t74*t75*t165*t224*t98*t99-.5848223397455204*
2023         t70*t74*t75*t110*t224*t98*t99+2.339289358982082*t70*t167*t75*
2024         t79*t218*t222*t99+1.169644679491041*t70*t116*t75*t79*t218*
2025         t222*t99+2.339289358982082*t70*t74*t75*t165*t218*t222*t99+
2026         1.169644679491041*t70*t74*t75*t110*t218*t222*t99-80.0*t115*
2027         t247*t70*t79*t88+4.0*t115*t304*t70*t73*t88-8.0*t115*t271*t70*
2028         t73*t88-24.0*t165*t249*t70*t73*t88+12.0*t110*t249*t70*t73*
2029         t88-4.0*t113*t304*t70*t72*t88+40.0*t165*t247*t70*t72*t88+20.0*
2030         t110*t247*t70*t72*t88+32.0*t110*t113*t115*t70*t88+t70*t72*
2031         t73*t435*t88+.01975178970256521*(t426+t402+t400+80.0*t115*
2032         t247)*t70*t75*t79*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*
2033         t309*t79*t82+0.00195323253725367*t70*t1*t2*t4*t213*t167*t79*
2034         t82+9.766162686268349E-4*t70*t1*t2*t4*t213*t116*t79*t82+.01975178970256521*
2035         t70*t74*t75*t435*t82+.01975178970256521*t70*t116*t75*t304*
2036         t82-7.324622014701263E-4*t70*t1*t2*t4*t91*t74*t304*t82+.03950357940513041*
2037         t70*t167*t75*t271*t82+.03950357940513041*t70*t272*t75*t165*
2038         t82+0.00195323253725367*t70*t1*t2*t4*t213*t74*t165*t82-.001464924402940253*
2039         t70*t1*t2*t4*t91*t167*t165*t82+.01975178970256521*t70*t309*
2040         t75*t110*t82+9.766162686268349E-4*t70*t1*t2*t4*t213*t74*t110*
2041         t82-4.0*t115*t258*t70*t73*t79+32.0*t113*t115*t121*t70*t79+
2042         2.0*t165*t258*t70*t72*t73-8.0*t110*t115*t121*t70*t73-16.0*
2043         t113*t121*t165*t70*t72-8.0*t110*t113*t121*t70*t72+t431+t430+
2044         t429+t428+t425+t424+t423+t421+t420+t419+t418+t417+t410+t408+
2045         t406+t405+t404+t398+t390+t389+t388+t387+t386+t385+t384+t383+
2046         t382+t381+t380+t378+t377+t376+t371+t370+t369+t368+t367+t366+
2047         t364+t70*t72*t73*t110*t258-34.63151179875173*t70*t167*t75*
2048         t79*t218*t219*t220-17.31575589937587*t70*t116*t75*t79*t218*
2049         t219*t220-34.63151179875173*t70*t74*t75*t165*t218*t219*t220-
2050         17.31575589937587*t70*t74*t75*t110*t218*t219*t220+t70*t72*
2051         t73*t304*t121)-2.339289358982082*t70*t167*t75*t79*t97*t98*
2052         t99-2.339289358982082*t70*t74*t75*t165*t97*t98*t99-8.0*t110*
2053         t115*t70*t73*t88-16.0*t113*t165*t70*t72*t88-.002929848805880505*
2054         t70*t1*t2*t4*t91*t167*t79*t82-.002929848805880505*t70*t1*t2*
2055         t4*t91*t74*t165*t82+4.0*t121*t165*t70*t72*t73+t416+t415+t414+
2056         t413+t412+t359+t358+t357+t356+t355+t354+t353+t352+t351+t350+
2057         t349+t348+t347+t315+t313+t312+t310+t307+t305+t273+t264+t260+
2058         t245+t243+t228+t226)+t127*t316+2.0*t170*t275+2.0*t171*t274+
2059         (0.0099845504*t22*t50*t39*t55*t287-1.86384E-4*t22*t50*t39*
2060         t52*t126*t287+7.588601856000001E-7*t22*t50*t39*t53*t269*t287-
2061         1.113449472E-4*t22*t138*t39*t126*t286+1.7718663168E-6*t22*
2062         t138*t39*t52*t269*t286-6.622779801600002E-9*t22*t138*t39*t53*
2063         t411*t286)*t137+t317*t125;
2064     d3fdrarbga = (-0.0054461184*grada*t50*t39*t55*t152+1.01664E-4*
2065         grada*t50*t39*t52*t126*t152+8.350871040000001E-5*t174*t50*
2066         t38*t126*t152-4.1392373760000006E-7*grada*t50*t39*t53*t269*
2067         t152-1.3288997376000003E-6*t174*t50*t38*t52*t269*t152+4.967084851200001E-9*
2068         t174*t50*t38*t53*t411*t152)*t137+t318*t125+t280*t170+t177*
2069         t274;
2070     d3fdrarbgb = (-0.0054461184*t22*gradb*t39*t55*t152+1.01664E-4*
2071         t22*gradb*t39*t52*t126*t152-4.1392373760000006E-7*t22*gradb*
2072         t39*t53*t269*t152+8.350871040000001E-5*t22*t180*t39*t126*t151-
2073         1.3288997376000003E-6*t22*t180*t39*t52*t269*t151+4.967084851200001E-9*
2074         t22*t180*t39*t53*t411*t151)*t137+t323*t125+t281*t170+t183*
2075         t274;
2076     d3fdrarbab = 0.0;
2077     d3fdragaga = 1.0*t41*t325*t46*t29*t47*rhoa-0.03109*t20*
2078         (1.666218666666667*t27*t39-8.639581866666667*t22*t25*t38+6.937563306666668*
2079         t21*t36*t37-1.851083264000001*t35*t185*t277+.1591648256000001*
2080         t184*t334*t436)*t29*rhoa-1.0*t30*t326*t4*t6-0.75*t30*(.01112042666666667*
2081         t33*t39-.003821691733333333*t22*t32*t38+7.722703530666668E-5*
2082         t21*t48*t37-4.6174593024000005E-7*t35*t198*t277+8.5309259776E-10*
2083         t184*t346*t436)*t4*t43-0.03109*t20*t325*t29+.002129457733333333*
2084         t1*t2*t4*t20*t325*t17+(-0.1008432*t39*t56+0.0034795296*t39*
2085         t52*t55+0.010211472*t22*t38*t55-1.72468224E-5*t39*t53*t126-
2086         1.9062E-4*t22*t38*t52*t126-6.26315328E-5*t21*t37*t126+7.761070080000001E-7*
2087         t22*t38*t53*t269+9.966748032000001E-7*t21*t37*t52*t269-3.725313638400001E-9*
2088         t21*t37*t53*t411)*t137+t327*t125;
2089     d3fdragagb = (0.0040845888*grada*gradb*t39*t55*t51-7.6248E-5*
2090         grada*gradb*t39*t52*t126*t51-6.26315328E-5*t174*gradb*t38*
2091         t126*t51+3.1044280320000006E-7*grada*gradb*t39*t53*t269*t51+
2092         9.966748032000001E-7*t174*gradb*t38*t52*t269*t51-3.725313638400001E-9*
2093         t174*gradb*t38*t53*t411*t51)*t137+t328*t125;
2094     d3fdragaab = 0.0;
2095     d3fdragbgb = (0.0020422944*t22*t39*t55*t51-3.8124E-5*
2096         t22*t39*t52*t126*t51+1.5522140160000003E-7*t22*t39*t53*t269*
2097         t51-6.26315328E-5*t22*t50*t39*t126*t141+9.966748032000001E-7*
2098         t22*t50*t39*t52*t269*t141-3.725313638400001E-9*t22*t50*t39*
2099         t53*t411*t141)*t137+t332*t125;
2100     d3fdragbab = 0.0;
2101     d3fdraabab = 0.0;
2102     d3fdrbrbrb = t57*(192.9880990672242*t289*t445*t136*t447*
2103         rhob-2069.133687865597*t444*t445*t136*t446*rhob+6.0*t154*t295*
2104         t159*t136*t292*rhob-6.0*t154*t445*t136*t291*rhob-96.4940495336121*
2105         t289*t295*t159*t136*t291*rhob-1.0*t154*t449*t136*t160*rhob+
2106         t58*(-1.754467019236561*t70*t309*t75*t79*t97*t98*t99+.1301229705933783*
2107         t70*t1*t2*t4*t91*t167*t79*t97*t98*t99-1.754467019236561*t70*
2108         t74*t75*t304*t97*t98*t99-3.508934038473122*t70*t167*t75*t165*
2109         t97*t98*t99+.1301229705933783*t70*t1*t2*t4*t91*t74*t165*t97*
2110         t98*t99-1.754467019236561*t70*t167*t75*t79*t224*t98*t99-1.754467019236561*
2111         t70*t74*t75*t165*t224*t98*t99+3.508934038473122*t70*t167*t75*
2112         t79*t218*t222*t99+3.508934038473122*t70*t74*t75*t165*t218*
2113         t222*t99-240.0*t115*t247*t70*t79*t88-12.0*t115*t304*t70*t73*
2114         t88+36.0*t165*t249*t70*t73*t88-12.0*t113*t304*t70*t72*t88+
2115         60.0*t165*t247*t70*t72*t88+96.0*t113*t115*t165*t70*t88+t70*
2116         t72*t73*t451*t88+.01975178970256521*(t427+t401+t400+240.0*
2117         t115*t247)*t70*t75*t79*t82-.002197386604410379*t70*t1*t2*t4*
2118         t91*t309*t79*t82+.002929848805880505*t70*t1*t2*t4*t213*t167*
2119         t79*t82+.01975178970256521*t70*t74*t75*t451*t82+.05925536910769562*
2120         t70*t167*t75*t304*t82-.002197386604410379*t70*t1*t2*t4*t91*
2121         t74*t304*t82+.05925536910769562*t70*t309*t75*t165*t82+.002929848805880505*
2122         t70*t1*t2*t4*t213*t74*t165*t82-.004394773208820758*t70*t1*
2123         t2*t4*t91*t167*t165*t82-12.0*t115*t258*t70*t73*t79+96.0*t113*
2124         t115*t121*t70*t79+3.0*t121*t304*t70*t72*t73+3.0*t165*t258*
2125         t70*t72*t73-24.0*t115*t121*t165*t70*t73-24.0*t113*t121*t165*
2126         t70*t72+t432+t409+t408+t407+t406+t405+t404+t398+t390+t389+
2127         t388+t387+t386+t385+t384+t383+t382+t381+t380+t378+t377+t376+
2128         t371+t370+t369+t368+t367+t366+t364-51.9472676981276*t70*t167*
2129         t75*t79*t218*t219*t220-51.9472676981276*t70*t74*t75*t165*t218*
2130         t219*t220)-3.508934038473122*t70*t167*t75*t79*t97*t98*t99-
2131         3.508934038473122*t70*t74*t75*t165*t97*t98*t99+96.0*t113*t115*
2132         t70*t79*t88+3.0*t304*t70*t72*t73*t88-24.0*t115*t165*t70*t73*
2133         t88-24.0*t113*t165*t70*t72*t88+.05925536910769562*t70*t309*
2134         t75*t79*t82-.004394773208820758*t70*t1*t2*t4*t91*t167*t79*
2135         t82+.05925536910769562*t70*t74*t75*t304*t82+.1185107382153912*
2136         t70*t167*t75*t165*t82-.004394773208820758*t70*t1*t2*t4*t91*
2137         t74*t165*t82-24.0*t115*t121*t70*t73*t79+6.0*t121*t165*t70*
2138         t72*t73+t360+t359+t358+t357+t356+t355+t354+t353+t352+t351+
2139         t350+t349+t348+t347+.001892851318518518*t1*t2*t4*t135*t293+
2140         6.0*t154*t290*t136*t292-96.4940495336121*t289*t290*t136*t291-
2141         3.0*t154*t295*t136*t160+.1369866666666666*t1*t2*t4*t154*t159*
2142         t160*t157-.4109599999999999*t1*t2*t4*t154*t290*t292*t132+6.60919909938887*
2143         t1*t2*t4*t289*t290*t291*t132+0.20548*t1*t2*t4*t154*t295*t160*
2144         t132)-192.9880990672242*t289*t143*t445*t136*t447*rhob+2069.133687865597*
2145         t444*t143*t445*t136*t446*rhob-6.0*t154*t153*t290*t136*t292*
2146         rhob-6.0*t154*t143*t295*t159*t136*t292*rhob+6.0*t154*t143*
2147         t445*t136*t291*rhob+96.4940495336121*t289*t153*t290*t136*t291*
2148         rhob+96.4940495336121*t289*t143*t295*t159*t136*t291*rhob+1.0*
2149         t154*t143*t449*t136*t160*rhob+3.0*t154*t153*t295*t136*t160*
2150         rhob+3.0*t154*t288*t159*t136*t160*rhob-0.03109*t135*(14.25542637037037*
2151         t50*t142*t443-31.87707306666667*t138*t140*t442+18.05908811851852*
2152         t148*t149*t441-3.865576561777778*t282*t283*t440+.2829596899555556*
2153         t437*t438*t439)*t136*rhob-0.75*t156*t30*t4*(.09514142814814813*
2154         t50*t146*t443-.01458295741629629*t138*t145*t442+2.0574956581925924E-4*
2155         t148*t161*t441-9.749122616888889E-7*t282*t296*t440+1.5166090626844445E-9*
2156         t437*t450*t439)-3.0*t128*t297*t30*t4-1.0*t131*t162*t30*t4+
2157         .2222222222222222*t147*t155*t30*t4+3.0*t170*t317+3.0*t171*
2158         t316-.001892851318518518*t1*t2*t4*t135*t143*t293-6.0*t154*
2159         t143*t290*t136*t292+96.4940495336121*t289*t143*t290*t136*t291+
2160         3.0*t154*t143*t295*t136*t160+6.0*t154*t153*t159*t136*t160-
2161         .1369866666666666*t1*t2*t4*t154*t143*t159*t160*t157+.004258915466666666*
2162         t1*t2*t4*t135*t153*t157+(-0.8627696*t50*t56*t443+0.0297693088*
2163         t50*t52*t55*t443-1.4755614720000004E-4*t50*t53*t126*t443+0.0299536512*
2164         t138*t55*t442-5.59152E-4*t138*t52*t126*t442+2.2765805568E-6*
2165         t138*t53*t269*t442-1.113449472E-4*t148*t126*t441+1.7718663168E-6*
2166         t148*t52*t269*t441-6.622779801600002E-9*t148*t53*t411*t441)*
2167         t137-.09326999999999999*t135*t288*t136+.4109599999999999*t1*
2168         t2*t4*t154*t143*t290*t292*t132-6.60919909938887*t1*t2*t4*t289*
2169         t143*t290*t291*t132+.006388373199999998*t1*t2*t4*t135*t288*
2170         t132-0.20548*t1*t2*t4*t154*t143*t295*t160*t132-.4109599999999999*
2171         t1*t2*t4*t154*t153*t159*t160*t132;
2172     d3fdrbrbga = 2.0*t170*t318+t177*t316+(-.007488412799999999*
2173         grada*t50*t23*t55*t287+1.39788E-4*grada*t50*t23*t52*t126*t287-
2174         5.691451392000002E-7*grada*t50*t23*t53*t269*t287+8.350871040000001E-5*
2175         grada*t138*t23*t126*t286-1.3288997376000003E-6*grada*t138*
2176         t23*t52*t269*t286+4.967084851200001E-9*grada*t138*t23*t53*
2177         t411*t286)*t137;
2178     d3fdrbrbgb = -2.0*t154*t181*t290*t136*t292*rhob+32.1646831778707*
2179         t289*t181*t290*t136*t291*rhob+1.0*t154*t181*t295*t136*t160*
2180         rhob+2.0*t154*t321*t159*t136*t160*rhob-0.03109*t135*(-6.109468444444444*
2181         gradb*t142*t287+17.72073813333334*t180*t140*t286-11.49540664888889*
2182         t178*t149*t285+2.700226389333334*t319*t283*t284-.2122197674666667*
2183         t452*t438*t453)*t136*rhob-2.0*t128*t30*t322*t4-0.75*t156*(-
2184         .04077489777777777*gradb*t146*t287+.007998822115555556*t180*
2185         t145*t286-1.2971831751111113E-4*t178*t161*t285+6.778659089066668E-7*
2186         t319*t296*t284-1.1374567970133334E-9*t452*t450*t453)*t30*t4-
2187         .3333333333333333*t131*t182*t30*t4+2.0*t170*t323+t183*t316+
2188         2.0*t154*t181*t159*t136*t160+.001419638488888889*t1*t2*t4*
2189         t135*t181*t157+(0.3697584*gradb*t56*t287-0.0127582752*gradb*
2190         t52*t55*t287+6.323834880000001E-5*gradb*t53*t126*t287-0.0183806496*
2191         t180*t55*t286+3.4311600000000003E-4*t180*t52*t126*t286-1.3969926144000003E-6*
2192         t180*t53*t269*t286+8.350871040000001E-5*t178*t126*t285-1.3288997376000003E-6*
2193         t178*t52*t269*t285+4.967084851200001E-9*t178*t53*t411*t285)*
2194         t137-0.06218*t135*t321*t136+.004258915466666666*t1*t2*t4*t135*
2195         t321*t132-.1369866666666666*t1*t2*t4*t154*t181*t159*t160*t132;
2196     d3fdrbrbab = 0.0;
2197     d3fdrbgaga = (0.0020422944*
2198         t50*t23*t55*t152-3.8124E-5*t50*t23*t52*t126*t152-6.26315328E-5*
2199         t22*t50*t26*t126*t152+1.5522140160000003E-7*t50*t23*t53*t269*
2200         t152+9.966748032000001E-7*t22*t50*t26*t52*t269*t152-3.725313638400001E-9*
2201         t22*t50*t26*t53*t411*t152)*t137+t327*t170;
2202     d3fdrbgagb = (0.0040845888*grada*gradb*t23*t55*t152-7.6248E-5*
2203         grada*gradb*t23*t52*t126*t152+3.1044280320000006E-7*grada*
2204         gradb*t23*t53*t269*t152-6.26315328E-5*grada*t180*t23*t126*
2205         t151+9.966748032000001E-7*grada*t180*t23*t52*t269*t151-3.725313638400001E-9*
2206         grada*t180*t23*t53*t411*t151)*t137+t328*t170;
2207     d3fdrbgaab = 0.0;
2208     d3fdrbgbgb = 1.0*t154*t330*t159*t136*t160*rhob-0.03109*
2209         t135*(1.666218666666667*t142*t152-8.639581866666667*t50*t140*
2210         t151+6.937563306666668*t138*t149*t150-1.851083264000001*t148*
2211         t283*t320+.1591648256000001*t282*t438*t454)*t136*rhob-1.0*
2212         t128*t30*t331*t4-0.75*(.01112042666666667*t146*t152-.003821691733333333*
2213         t50*t145*t151+7.722703530666668E-5*t138*t161*t150-4.6174593024000005E-7*
2214         t148*t296*t320+8.5309259776E-10*t282*t450*t454)*t156*t30*t4+
2215         t332*t170+(-0.1008432*t56*t152+0.0034795296*t52*t55*t152-1.72468224E-5*
2216         t53*t126*t152+0.010211472*t50*t55*t151-1.9062E-4*t50*t52*t126*
2217         t151+7.761070080000001E-7*t50*t53*t269*t151-6.26315328E-5*
2218         t138*t126*t150+9.966748032000001E-7*t138*t52*t269*t150-3.725313638400001E-9*
2219         t138*t53*t411*t150)*t137-0.03109*t135*t330*t136+.002129457733333333*
2220         t1*t2*t4*t135*t330*t132;
2221     d3fdrbgbab = 0.0;
2222     d3fdrbabab = 0.0;
2223     d3fdgagaga = -0.03109*t20*(3.3648096*grada*t25*t26-3.884098560000001*
2224         t174*t36*t173+1.239095424*t172*t185*t324-.1193736192000001*
2225         t276*t334*t455)*t29*rhoa-0.75*(0.00144981504*grada*t32*t26-
2226         4.2390727679999995E-5*t174*t48*t173+3.0632073215999994E-7*
2227         t172*t198*t324-6.398194483199999E-10*t276*t346*t455)*t30*t4*
2228         t43+(-.004595162400000001*grada*t26*t55+8.577900000000003E-5*
2229         grada*t26*t52*t126+4.69736496E-5*t174*t173*t126-3.492481536000001E-7*
2230         grada*t26*t53*t269-7.475061024000003E-7*t174*t173*t52*t269+
2231         2.7939852288000006E-9*t174*t173*t53*t411)*t137;
2232     d3fdgagagb = (-0.0015317208*gradb*t23*t55*t51+2.8593E-5*
2233         gradb*t23*t52*t126*t51+4.69736496E-5*t22*gradb*t26*t126*t51-
2234         1.1641605120000002E-7*gradb*t23*t53*t269*t51-7.475061024000003E-7*
2235         t22*gradb*t26*t52*t269*t51+2.7939852288000006E-9*t22*gradb*
2236         t26*t53*t411*t51)*t137;
2237     d3fdgagaab = 0.0;
2238     d3fdgagbgb = (-0.0015317208*grada*t23*t55*t51+2.8593E-5*
2239         grada*t23*t52*t126*t51-1.1641605120000002E-7*grada*t23*t53*
2240         t269*t51+4.69736496E-5*grada*t50*t23*t126*t141-7.475061024000003E-7*
2241         grada*t50*t23*t52*t269*t141+2.7939852288000006E-9*grada*t50*
2242         t23*t53*t411*t141)*t137;
2243     d3fdgagbab = 0.0;
2244     d3fdgaabab = 0.0;
2245     d3fdgbgbgb = -0.03109*t135*(3.3648096*gradb*t140*t141-
2246         3.884098560000001*t180*t149*t179+1.239095424*t178*t283*t329-
2247         .1193736192000001*t319*t438*t456)*t136*rhob-0.75*(0.00144981504*
2248         gradb*t145*t141-4.2390727679999995E-5*t180*t161*t179+3.0632073215999994E-7*
2249         t178*t296*t329-6.398194483199999E-10*t319*t450*t456)*t156*
2250         t30*t4+(-.004595162400000001*gradb*t55*t141+8.577900000000003E-5*
2251         gradb*t52*t126*t141-3.492481536000001E-7*gradb*t53*t269*t141+
2252         4.69736496E-5*t180*t126*t179-7.475061024000003E-7*t180*t52*
2253         t269*t179+2.7939852288000006E-9*t180*t53*t411*t179)*t137;
2254     d3fdgbgbab = 0.0;
2255     d3fdgbabab = 0.0;
2256     d3fdababab = 0.0;
2257 
2258 
2259     ds->df1000 += factor*dfdra;
2260     ds->df0100 += factor*dfdrb;
2261     ds->df0010 += factor*dfdga;
2262     ds->df0001 += factor*dfdgb;
2263     ds->df00001+= factor*dfdgab;
2264 
2265     ds->df2000 += factor*d2fdrara;
2266     ds->df1100 += factor*d2fdrarb;
2267     ds->df1010 += factor*d2fdraga;
2268     ds->df1001 += factor*d2fdragb;
2269     ds->df10001+= factor*d2fdraab;
2270     ds->df0200 += factor*d2fdrbrb;
2271     ds->df0110 += factor*d2fdrbga;
2272     ds->df0101 += factor*d2fdrbgb;
2273     ds->df01001+= factor*d2fdrbgab;
2274     ds->df0020 += factor*d2fdgaga;
2275     ds->df0011 += factor*d2fdgagb;
2276     ds->df00101+= factor*d2fdgagab;
2277     ds->df0002 += factor*d2fdgbgb;
2278     ds->df00011+= factor*d2fdgbgab;
2279     ds->df00002+= factor*d2fdgabgab;
2280 
2281     ds->df3000 += factor*d3fdrarara;
2282     ds->df2100  += factor*d3fdrararb;
2283     ds->df2010  += factor*d3fdraraga;
2284     ds->df2001  += factor*d3fdraragb;
2285     ds->df20001 += factor*d3fdraraab;
2286     ds->df1200  += factor*d3fdrarbrb;
2287     ds->df1110  += factor*d3fdrarbga;
2288     ds->df1101  += factor*d3fdrarbgb;
2289     ds->df11001 += factor*d3fdrarbab;
2290     ds->df1020  += factor*d3fdragaga;
2291     ds->df1011  += factor*d3fdragagb;
2292     ds->df10101 += factor*d3fdragaab;
2293     ds->df1002  += factor*d3fdragbgb;
2294     ds->df10011 += factor*d3fdragbab;
2295     ds->df10002 += factor*d3fdraabab;
2296     ds->df0300  += factor*d3fdrbrbrb;
2297     ds->df0210  += factor*d3fdrbrbga;
2298     ds->df0201  += factor*d3fdrbrbgb;
2299     ds->df02001 += factor*d3fdrbrbab;
2300     ds->df0120  += factor*d3fdrbgaga;
2301     ds->df0111  += factor*d3fdrbgagb;
2302     ds->df01101 += factor*d3fdrbgaab;
2303     ds->df0102  += factor*d3fdrbgbgb;
2304     ds->df01011 += factor*d3fdrbgbab;
2305     ds->df01002 += factor*d3fdrbabab;
2306     ds->df0030  += factor*d3fdgagaga;
2307     ds->df0021  += factor*d3fdgagagb;
2308     ds->df00201 += factor*d3fdgagaab;
2309     ds->df0012  += factor*d3fdgagbgb;
2310     ds->df00111 += factor*d3fdgagbab;
2311     ds->df00102 += factor*d3fdgaabab;
2312     ds->df0003  += factor*d3fdgbgbgb;
2313     ds->df00021 += factor*d3fdgbgbab;
2314     ds->df00012 += factor*d3fdgbabab;
2315     ds->df00003 += factor*d3fdababab;
2316 
2317 }
2318 
2319 static void
b97_d_fourth(FunFourthFuncDrv * ds,real factor,const FunDensProp * dp)2320 b97_d_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
2321 {
2322     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
2323     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
2324         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
2325         d2fdgbgb, d2fdgbgab, d2fdgabgab;
2326     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
2327          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
2328          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
2329          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
2330          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
2331          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
2332          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
2333     real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
2334          d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
2335          d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
2336          d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
2337          d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
2338          d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
2339          d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
2340          d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
2341          d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
2342          d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
2343          d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
2344          d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
2345          d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
2346          d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
2347          d4fdabababab;
2348     real rhoa = dp->rhoa, rhob = dp->rhob;
2349     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
2350 
2351     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
2352     real t11, t12, t13, t14, t15, t16, t17, t18;
2353     real t19, t20, t21, t22, t23, t24, t25, t26;
2354     real t27, t28, t29, t30, t31, t32, t33, t34;
2355     real t35, t36, t37, t38, t39, t40, t41, t42;
2356     real t43, t44, t45, t46, t47, t48, t49, t50;
2357     real t51, t52, t53, t54, t55, t56, t57, t58;
2358     real t59, t60, t61, t62, t63, t64, t65, t66;
2359     real t67, t68, t69, t70, t71, t72, t73, t74;
2360     real t75, t76, t77, t78, t79, t80, t81, t82;
2361     real t83, t84, t85, t86, t87, t88, t89, t90;
2362     real t91, t92, t93, t94, t95, t96, t97, t98;
2363     real t99, t100, t101, t102, t103, t104, t105;
2364     real t106, t107, t108, t109, t110, t111, t112;
2365     real t113, t114, t115, t116, t117, t118, t119;
2366     real t120, t121, t122, t123, t124, t125, t126;
2367     real t127, t128, t129, t130, t131, t132, t133;
2368     real t134, t135, t136, t137, t138, t139, t140;
2369     real t141, t142, t143, t144, t145, t146, t147;
2370     real t148, t149, t150, t151, t152, t153, t154;
2371     real t155, t156, t157, t158, t159, t160, t161;
2372     real t162, t163, t164, t165, t166, t167, t168;
2373     real t169, t170, t171, t172, t173, t174, t175;
2374     real t176, t177, t178, t179, t180, t181, t182;
2375     real t183, t184, t185, t186, t187, t188, t189;
2376     real t190, t191, t192, t193, t194, t195, t196;
2377     real t197, t198, t199, t200, t201, t202, t203;
2378     real t204, t205, t206, t207, t208, t209, t210;
2379     real t211, t212, t213, t214, t215, t216, t217;
2380     real t218, t219, t220, t221, t222, t223, t224;
2381     real t225, t226, t227, t228, t229, t230, t231;
2382     real t232, t233, t234, t235, t236, t237, t238;
2383     real t239, t240, t241, t242, t243, t244, t245;
2384     real t246, t247, t248, t249, t250, t251, t252;
2385     real t253, t254, t255, t256, t257, t258, t259;
2386     real t260, t261, t262, t263, t264, t265, t266;
2387     real t267, t268, t269, t270, t271, t272, t273;
2388     real t274, t275, t276, t277, t278, t279, t280;
2389     real t281, t282, t283, t284, t285, t286, t287;
2390     real t288, t289, t290, t291, t292, t293, t294;
2391     real t295, t296, t297, t298, t299, t300, t301;
2392     real t302, t303, t304, t305, t306, t307, t308;
2393     real t309, t310, t311, t312, t313, t314, t315;
2394     real t316, t317, t318, t319, t320, t321, t322;
2395     real t323, t324, t325, t326, t327, t328, t329;
2396     real t330, t331, t332, t333, t334, t335, t336;
2397     real t337, t338, t339, t340, t341, t342, t343;
2398     real t344, t345, t346, t347, t348, t349, t350;
2399     real t351, t352, t353, t354, t355, t356, t357;
2400     real t358, t359, t360, t361, t362, t363, t364;
2401     real t365, t366, t367, t368, t369, t370, t371;
2402     real t372, t373, t374, t375, t376, t377, t378;
2403     real t379, t380, t381, t382, t383, t384, t385;
2404     real t386, t387, t388, t389, t390, t391, t392;
2405     real t393, t394, t395, t396, t397, t398, t399;
2406     real t400, t401, t402, t403, t404, t405, t406;
2407     real t407, t408, t409, t410, t411, t412, t413;
2408     real t414, t415, t416, t417, t418, t419, t420;
2409     real t421, t422, t423, t424, t425, t426, t427;
2410     real t428, t429, t430, t431, t432, t433, t434;
2411     real t435, t436, t437, t438, t439, t440, t441;
2412     real t442, t443, t444, t445, t446, t447, t448;
2413     real t449, t450, t451, t452, t453, t454, t455;
2414     real t456, t457, t458, t459, t460, t461, t462;
2415     real t463, t464, t465, t466, t467, t468, t469;
2416     real t470, t471, t472, t473, t474, t475, t476;
2417     real t477, t478, t479, t480, t481, t482, t483;
2418     real t484, t485, t486, t487, t488, t489, t490;
2419     real t491, t492, t493, t494, t495, t496, t497;
2420     real t498, t499, t500, t501, t502, t503, t504;
2421     real t505, t506, t507, t508, t509, t510, t511;
2422     real t512, t513, t514, t515, t516, t517, t518;
2423     real t519, t520, t521, t522, t523, t524, t525;
2424     real t526, t527, t528, t529, t530, t531, t532;
2425     real t533, t534, t535, t536, t537, t538, t539;
2426     real t540, t541, t542, t543, t544, t545, t546;
2427     real t547, t548, t549, t550, t551, t552, t553;
2428     real t554, t555, t556, t557, t558, t559, t560;
2429     real t561, t562, t563, t564, t565, t566, t567;
2430     real t568, t569, t570, t571, t572, t573, t574;
2431     real t575, t576, t577, t578, t579, t580, t581;
2432     real t582, t583, t584, t585, t586, t587, t588;
2433     real t589, t590, t591, t592, t593, t594, t595;
2434     real t596, t597, t598, t599, t600, t601, t602;
2435     real t603, t604, t605, t606, t607, t608, t609;
2436     real t610, t611, t612, t613, t614, t615, t616;
2437     real t617, t618, t619, t620, t621, t622, t623;
2438     real t624, t625, t626, t627, t628, t629, t630;
2439     real t631, t632, t633, t634, t635, t636, t637;
2440     real t638, t639, t640, t641, t642, t643, t644;
2441     real t645, t646, t647, t648, t649, t650, t651;
2442     real t652, t653, t654, t655, t656, t657, t658;
2443     real t659, t660, t661, t662, t663, t664, t665;
2444     real t666, t667, t668, t669, t670, t671, t672;
2445     real t673, t674, t675, t676, t677, t678, t679;
2446     real t680, t681, t682, t683, t684, t685, t686;
2447     real t687, t688, t689, t690, t691, t692, t693;
2448     real t694, t695, t696, t697, t698, t699, t700;
2449     real t701, t702, t703, t704, t705, t706, t707;
2450     real t708, t709, t710, t711, t712, t713, t714;
2451     real t715, t716, t717, t718, t719, t720, t721;
2452     real t722, t723, t724, t725, t726, t727, t728;
2453     real t729, t730, t731, t732, t733, t734, t735;
2454     real t736, t737, t738, t739, t740, t741, t742;
2455     real t743, t744, t745, t746, t747, t748, t749;
2456     real t750, t751, t752, t753, t754, t755, t756;
2457     real t757, t758;
2458 
2459     t1 = pow(3.0,.3333333333333333);
2460     t2 = 1/pow(4.0,.3333333333333333);
2461     t3 = pow(M_PI,.3333333333333333);
2462     t4 = 1/t3;
2463     t5 = 1.732050807568877;
2464     t6 = pow(rhoa,.3333333333333333);
2465     t7 = sqrt(t3*t6);
2466     t8 = 1/pow(t7,3.0);
2467     t9 = pow(2.0,.3333333333333333);
2468     t10 = 1/t9;
2469     t11 = pow(3.0,.1666666666666667);
2470     t12 = pow(3.0,.6666666666666666);
2471     t13 = 1/pow(4.0,.6666666666666666);
2472     t14 = pow(M_PI,.6666666666666666);
2473     t15 = 1/t14;
2474     t16 = 1/pow(rhoa,.6666666666666666);
2475     t17 = 1/t6;
2476     t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
2477         t17+0.62517*t12*t13*t15*t16;
2478     t19 = 32.1646831778707/t18+1.0;
2479     t20 = log(t19);
2480     t21 = pow(grada,4.0);
2481     t22 = pow(grada,2.0);
2482     t23 = 1/pow(rhoa,2.666666666666667);
2483     t24 = 0.2*t22*t23+1.0;
2484     t25 = 1/pow(t24,2.0);
2485     t26 = 1/pow(rhoa,5.333333333333333);
2486     t27 = 1/t24;
2487     t28 = -0.312416*t22*t27*t23+.07771720000000001*t21*t25*
2488         t26+0.2234;
2489     t29 = 0.20548*t1*t2*t4*t17+1.0;
2490     t30 = pow(6.0,.3333333333333333);
2491     t31 = 0.004*t22*t23+1.0;
2492     t32 = 1/pow(t31,2.0);
2493     t33 = 1/t31;
2494     t34 = -0.00208508*t22*t33*t23+5.206864E-5*t21*t32*t26+
2495         1.08662;
2496     t35 = pow(grada,6.0);
2497     t36 = 1/pow(t24,3.0);
2498     t37 = 1/pow(rhoa,9.0);
2499     t38 = 1/pow(rhoa,6.333333333333333);
2500     t39 = 1/pow(rhoa,3.666666666666667);
2501     t40 = .8331093333333334*t22*t27*t39-.5811136000000001*
2502         t21*t25*t38+.08289834666666668*t35*t36*t37;
2503     t41 = 1/t19;
2504     t42 = 1/pow(rhoa,1.666666666666667);
2505     t43 = pow(rhoa,1.333333333333333);
2506     t44 = 1/t43;
2507     t45 = 1/pow(t7,5.0);
2508     t46 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t45*t16-
2509         2.0659*t1*t2*t4*t44-0.41678*t12*t13*t15*t42;
2510     t47 = 1/pow(t18,2.0);
2511     t48 = 1/pow(t31,3.0);
2512     t49 = .005560213333333333*t22*t33*t39-2.999402666666667E-4*
2513         t21*t32*t38+1.1107976533333333E-6*t35*t48*t37;
2514     t50 = pow(gradb,2.0);
2515     t51 = 1/pow(rhob,2.666666666666667);
2516     t52 = 0.5*t50*t51+0.5*t22*t23;
2517     t53 = pow(t52,2.0);
2518     t54 = 0.006*t52+1.0;
2519     t55 = 1/pow(t54,2.0);
2520     t56 = 1/t54;
2521     t57 = 0.0378162*t52*t56-5.389632E-4*t53*t55+0.69041;
2522     t58 = rhob+
2523         rhoa;
2524     t59 = pow(t58,.3333333333333333);
2525     t60 = 1/t59;
2526     t61 = 0.2137*t1*t2*t4*t60+1.0;
2527     t62 = 1/pow(t58,.6666666666666666);
2528     t63 = sqrt(t3*t59);
2529     t64 = 1/pow(t63,3.0);
2530     t65 = 1/t63;
2531     t66 = 7.5957*t10*t11*t65+0.8191*t5*t64+3.5876*t1*t2*t4*
2532         t60+0.49294*t12*t13*t15*t62;
2533     t67 = 16.0818243221511/t66+1.0;
2534     t68 = log(t67);
2535     t69 = -0.062182*t61*t68;
2536     t70 = 1/(2.0*t9-2.0);
2537     t71 = rhoa-1.0*rhob;
2538     t72 = pow(t71,4.0);
2539     t73 = 1/pow(t58,4.0);
2540     t74 = 1.0-1.0*t72*t73;
2541     t75 = 0.11125*t1*t2*t4*t60+1.0;
2542     t76 = 1/t58;
2543     t77 = 1.0-1.0*t71*t76;
2544     t78 = t71*t76+1.0;
2545     t79 = pow(t78,1.333333333333333)+pow(t77,1.333333333333333)-
2546         2.0;
2547     t80 = 10.357*t10*t11*t65+0.44013*t5*t64+3.6231*t1*t2*
2548         t4*t60+0.49671*t12*t13*t15*t62;
2549     t81 = 29.60857464321668/t80+1.0;
2550     t82 = log(t81);
2551     t83 = .01975178970256521*t70*t74*t75*t79*t82;
2552     t84 = 0.20548*t1*t2*t4*t60+1.0;
2553     t85 = 14.1189*t10*t11*t65+1.6831*t5*t64+6.1977*t1*t2*
2554         t4*t60+0.62517*t12*t13*t15*t62;
2555     t86 = 32.1646831778707/t85+1.0;
2556     t87 = log(t86);
2557     t88 = 0.062182*t61*t68-0.03109*t84*t87;
2558     t89 = t70*t72*t73*t79*t88;
2559     t90 = 1/pow(t58,1.666666666666667);
2560     t91 = 1/pow(t58,1.333333333333333);
2561     t92 = 1/pow(t63,5.0);
2562     t93 = -1.26595*t10*t11*t3*t62*t64-0.40955*t5*t3*t62*t92-
2563         1.195866666666667*t1*t2*t4*t91-.3286266666666666*t12*t13*t15*
2564         t90;
2565     t94 = 1/pow(t66,2.0);
2566     t95 = 1/t67;
2567     t96 = .9999999999999999*t61*t93*t94*t95;
2568     t97 = -1.726166666666666*t10*t11*t3*t62*t64-0.220065*
2569         t5*t3*t62*t92-1.2077*t1*t2*t4*t91-0.33114*t12*t13*t15*t90;
2570     t98 = 1/
2571         pow(t80,2.0);
2572     t99 = 1/t81;
2573     t100 = -.5848223397455204*t70*t74*t75*t79*t97*t98*t99;
2574     t101 = .004429431133333333*
2575         t1*t2*t4*t91*t68;
2576     t102 = 1/pow(t58,2.0);
2577     t103 = t71*t102;
2578     t104 = -1.0*t76;
2579     t105 = t104+t103;
2580     t106 = pow(t77,.3333333333333333);
2581     t107 = -1.0*t102*t71;
2582     t108 = t76+t107;
2583     t109 = pow(t78,.3333333333333333);
2584     t110 = 1.333333333333333*t108*t109+1.333333333333333*
2585         t105*t106;
2586     t111 = .01975178970256521*t70*t74*t75*t110*t82;
2587     t112 = -7.324622014701263E-4*t70*t1*t2*t4*t91*t74*t79*
2588         t82;
2589     t113 = 1/pow(t58,5.0);
2590     t114 = 4.0*t113*t72;
2591     t115 = pow(t71,3.0);
2592     t116 = t114-4.0*t115*t73;
2593     t117 = .01975178970256521*t70*t116*t75*t79*t82;
2594     t118 = -2.35315*t10*t11*t3*t62*t64-0.84155*t5*t3*t62*
2595         t92-2.0659*t1*t2*t4*t91-0.41678*t12*t13*t15*t90;
2596     t119 = 1/pow(t85,2.0);
2597     t120 = 1/t86;
2598     t121 = .002129457733333333*t1*t2*t4*t91*t87-.004429431133333333*
2599         t1*t2*t4*t91*t68+1.0*t84*t118*t119*t120-.9999999999999999*
2600         t61*t93*t94*t95;
2601     t122 = t70*t72*t73*t79*t121;
2602     t123 = t70*t72*t73*t110*t88;
2603     t124 = -4.0*t113*t70*t72*t79*t88;
2604     t125 = -1.0*t41*t46*t29*t47*rhoa+t58*(t96+4.0*t115*t70*
2605         t73*t79*t88+t124+t123+t122+t117+t112+t111+t101+t100)+t89+t83+
2606         t69+0.03109*t20*t29-.002129457733333333*t1*t2*t4*t20*t17;
2607     t126 = 1/
2608         pow(t54,3.0);
2609     t127 = -0.0504216*t22*t39*t56+0.0017397648*t22*t39*t52*
2610         t55-8.6234112E-6*t22*t39*t53*t126;
2611     t128 = pow(rhob,.3333333333333333);
2612     t129 = sqrt(t3*t128);
2613     t130 = 1/pow(t129,3.0);
2614     t131 = 1/pow(rhob,.6666666666666666);
2615     t132 = 1/t128;
2616     t133 = 6.1977*t1*t2*t4*t132+0.62517*t12*t13*t15*t131+
2617         1.6831*t5*t130+14.1189*t10*t11/t129;
2618     t134 = 32.1646831778707/t133+1.0;
2619     t135 = log(t134);
2620     t136 = 0.20548*t1*t2*t4*t132+1.0;
2621     t137 = t58*(t89+t83+t69)+0.03109*t135*t136*rhob+0.03109*
2622         t20*t29*rhoa;
2623     t138 = pow(gradb,4.0);
2624     t139 = 0.2*t50*t51+1.0;
2625     t140 = 1/pow(t139,2.0);
2626     t141 = 1/pow(rhob,5.333333333333333);
2627     t142 = 1/t139;
2628     t143 = -0.312416*t50*t142*t51+.07771720000000001*t138*
2629         t140*t141+0.2234;
2630     t144 = 0.004*t50*t51+1.0;
2631     t145 = 1/pow(t144,2.0);
2632     t146 = 1/t144;
2633     t147 = -0.00208508*t50*t146*t51+5.206864E-5*t138*t145*
2634         t141+1.08662;
2635     t148 = pow(gradb,6.0);
2636     t149 = 1/pow(t139,3.0);
2637     t150 = 1/pow(rhob,9.0);
2638     t151 = 1/pow(rhob,6.333333333333333);
2639     t152 = 1/pow(rhob,3.666666666666667);
2640     t153 = .8331093333333334*t50*t142*t152-.5811136000000001*
2641         t138*t140*t151+.08289834666666668*t148*t149*t150;
2642     t154 = 1/t134;
2643     t155 = 1/pow(rhob,1.666666666666667);
2644     t156 = pow(rhob,1.333333333333333);
2645     t157 = 1/t156;
2646     t158 = 1/pow(t129,5.0);
2647     t159 = -2.35315*t10*t11*t3*t130*t131-0.84155*t5*t3*t158*
2648         t131-2.0659*t1*t2*t4*t157-0.41678*t12*t13*t15*t155;
2649     t160 = 1/pow(t133,2.0);
2650     t161 = 1/pow(t144,3.0);
2651     t162 = .005560213333333333*t50*t146*t152-2.999402666666667E-4*
2652         t138*t145*t151+1.1107976533333333E-6*t148*t161*t150;
2653     t163 = t76+t103;
2654     t164 = t104+t107;
2655     t165 = 1.333333333333333*t109*t164+1.333333333333333*
2656         t106*t163;
2657     t166 = .01975178970256521*t70*t74*t75*t165*t82;
2658     t167 = 4.0*t115*t73+t114;
2659     t168 = .01975178970256521*t70*t167*t75*t79*t82;
2660     t169 = t70*t72*t73*t165*t88;
2661     t170 = -1.0*t154*t159*t136*t160*rhob+t58*(t96-4.0*t115*
2662         t70*t73*t79*t88+t169+t168+t166+t124+t122+t112+t101+t100)+t89+
2663         t83+t69+0.03109*t135*t136-.002129457733333333*t1*t2*t4*t135*
2664         t132;
2665     t171 = -0.0504216*t50*t56*t152+0.0017397648*t50*t52*t55*
2666         t152-8.6234112E-6*t50*t53*t126*t152;
2667     t172 = pow(grada,5.0);
2668     t173 = 1/pow(rhoa,8.0);
2669     t174 = pow(grada,3.0);
2670     t175 = -0.624832*grada*t27*t23+.4358352000000001*t174*
2671         t25*t26-.06217376000000002*t172*t36*t173;
2672     t176 = -0.00417016*grada*t33*t23+2.249552E-4*t174*t32*
2673         t26-8.3309824E-7*t172*t48*t173;
2674     t177 = 0.0378162*grada*t23*t56-0.0013048236*grada*t23*
2675         t52*t55+6.4675584E-6*grada*t23*t53*t126;
2676     t178 = pow(gradb,5.0);
2677     t179 = 1/pow(rhob,8.0);
2678     t180 = pow(gradb,3.0);
2679     t181 = -0.624832*gradb*t142*t51+.4358352000000001*t180*
2680         t140*t141-.06217376000000002*t178*t149*t179;
2681     t182 = -0.00417016*gradb*t146*t51+2.249552E-4*t180*t145*
2682         t141-8.3309824E-7*t178*t161*t179;
2683     t183 = 0.0378162*gradb*t56*t51-0.0013048236*gradb*t52*
2684         t55*t51+6.4675584E-6*gradb*t53*t126*t51;
2685     t184 = pow(grada,8.0);
2686     t185 = 1/pow(t24,4.0);
2687     t186 = 1/pow(rhoa,12.66666666666667);
2688     t187 = 1/pow(rhoa,10.0);
2689     t188 = 1/pow(rhoa,7.333333333333333);
2690     t189 = 1/pow(rhoa,4.666666666666667);
2691     t190 = -3.054734222222222*t22*t27*t189+4.124711111111112*
2692         t21*t25*t188-1.365939626666667*t35*t36*t187+.1326373546666667*
2693         t184*t185*t186;
2694     t191 = 1/pow(t19,2.0);
2695     t192 = pow(t46,2.0);
2696     t193 = 1/pow(t18,4.0);
2697     t194 = 1/pow(t18,3.0);
2698     t195 = 1/pow(rhoa,2.333333333333333);
2699     t196 = 1/pow(t7,7.0);
2700     t197 = 1.176575*t10*t11*t14*t45*t44+.7012916666666668*
2701         t5*t14*t196*t44+1.568766666666666*t10*t11*t3*t8*t42+.5610333333333333*
2702         t5*t3*t45*t42+2.754533333333333*t1*t2*t4*t195+.6946333333333333*
2703         t12*t13*t15*t23;
2704     t198 = 1/pow(t31,4.0);
2705     t199 = -.02038744888888889*t22*t33*t189+.001958930631111111*
2706         t21*t32*t188-1.639590456888889E-5*t35*t48*t187+3.554552490666667E-8*
2707         t184*t198*t186;
2708     t200 = 2.0*t61*t93*t94*t95;
2709     t201 = -1.169644679491041*t70*t74*t75*t79*t97*t98*t99;
2710     t202 = .008858862266666667*
2711         t1*t2*t4*t91*t68;
2712     t203 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t79*
2713         t82;
2714     t204 = 2.0*t121*t70*t72*t73*t79;
2715     t205 = -8.0*t113*t70*t72*t79*t88;
2716     t206 = pow(t93,2.0);
2717     t207 = 1/pow(t66,4.0);
2718     t208 = 1/pow(t67,2.0);
2719     t209 = 16.0818243221511*t61*t206*t207*t208;
2720     t210 = 1/pow(t66,3.0);
2721     t211 = -2.0*t61*t206*t210*t95;
2722     t212 = 1/pow(t58,2.666666666666667);
2723     t213 = 1/pow(t58,2.333333333333333);
2724     t214 = 1/pow(t63,7.0);
2725     t215 = .8439666666666665*t10*t11*t3*t90*t64+0.632975*
2726         t10*t11*t14*t91*t92+.2730333333333334*t5*t3*t90*t92+.3412916666666667*
2727         t5*t14*t91*t214+1.594488888888889*t1*t2*t4*t213+0.547711111111111*
2728         t12*t13*t15*t212;
2729     t216 = .9999999999999999*t61*t215*t94*t95;
2730     t217 = -.1424666666666666*t1*t2*t4*t91*t93*t94*t95;
2731     t218 = pow(t97,
2732         2.0);
2733     t219 = 1/pow(t80,4.0);
2734     t220 = 1/pow(t81,2.0);
2735     t221 = -17.31575589937587*t70*t74*t75*t79*t218*t219*t220;
2736     t222 = 1/
2737         pow(t80,3.0);
2738     t223 = 1.169644679491041*t70*t74*t75*t79*t218*t222*t99;
2739     t224 = 1.150777777777777*
2740         t10*t11*t3*t90*t64+.8630833333333332*t10*t11*t14*t91*t92+0.14671*
2741         t5*t3*t90*t92+0.1833875*t5*t14*t91*t214+1.610266666666667*
2742         t1*t2*t4*t213+.5519000000000001*t12*t13*t15*t212;
2743     t225 = -.5848223397455204*t70*t74*t75*t79*t224*t98*t99;
2744     t226 = -
2745         1.169644679491041*t70*t74*t75*t110*t97*t98*t99;
2746     t227 = .04337432353112609*t70*t1*t2*t4*t91*t74*t79*t97*
2747         t98*t99;
2748     t228 = -1.169644679491041*t70*t116*t75*t79*t97*t98*t99;
2749     t229 = -
2750         .005905908177777777*t1*t2*t4*t213*t68;
2751     t230 = pow(t105,2.0);
2752     t231 = 1/pow(t77,.6666666666666666);
2753     t232 = 1/pow(t58,3.0);
2754     t233 = -2.0*t232*t71;
2755     t234 = 2.0*t102;
2756     t235 = t234+t233;
2757     t236 = pow(t108,2.0);
2758     t237 = 1/pow(t78,.6666666666666666);
2759     t238 = 2.0*t232*t71;
2760     t239 = -2.0*t102;
2761     t240 = t239+t238;
2762     t241 = 1.333333333333333*t109*t240+.4444444444444444*
2763         t236*t237+1.333333333333333*t106*t235+.4444444444444444*t230*
2764         t231;
2765     t242 = .01975178970256521*t70*t74*t75*t241*t82;
2766     t243 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t110*
2767         t82;
2768     t244 = .03950357940513041*t70*t116*t75*t110*t82;
2769     t245 = -.001464924402940253*t70*t1*t2*t4*t91*t116*t79*
2770         t82;
2771     t246 = 9.766162686268349E-4*t70*t1*t2*t4*t213*t74*t79*
2772         t82;
2773     t247 = 1/pow(t58,6.0);
2774     t248 = -20.0*t247*t72;
2775     t249 = pow(t71,2.0);
2776     t250 = -12.0*t249*t73;
2777     t251 = t250+t248+32.0*t113*t115;
2778     t252 = .01975178970256521*t70*t251*t75*t79*t82;
2779     t253 = pow(t118,2.0);
2780     t254 = 1/pow(t85,4.0);
2781     t255 = 1/pow(t86,2.0);
2782     t256 = 1/pow(t85,3.0);
2783     t257 = 1.568766666666666*t10*t11*t3*t90*t64+1.176575*
2784         t10*t11*t14*t91*t92+.5610333333333333*t5*t3*t90*t92+.7012916666666668*
2785         t5*t14*t91*t214+2.754533333333333*t1*t2*t4*t213+.6946333333333333*
2786         t12*t13*t15*t212;
2787     t258 = -.002839276977777777*t1*t2*t4*t213*t87+.005905908177777777*
2788         t1*t2*t4*t213*t68-.1369866666666666*t1*t2*t4*t91*t118*t119*
2789         t120+1.0*t84*t257*t119*t120-2.0*t84*t253*t256*t120+32.1646831778707*
2790         t84*t253*t254*t255+.1424666666666666*t1*t2*t4*t91*t93*t94*
2791         t95-.9999999999999999*t61*t215*t94*t95+2.0*t61*t206*t210*t95-
2792         16.0818243221511*t61*t206*t207*t208;
2793     t259 = t70*t72*t73*t79*t258;
2794     t260 = 2.0*t110*t121*t70*t72*t73;
2795     t261 = -8.0*t113*t121*t70*t72*t79;
2796     t262 = 8.0*t115*t121*t70*t73*t79;
2797     t263 = t70*t72*t73*t241*t88;
2798     t264 = -8.0*t110*t113*t70*t72*t88;
2799     t265 = 20.0*t247*t70*t72*t79*t88;
2800     t266 = -32.0*t113*t115*t70*t79*t88;
2801     t267 = 12.0*t249*t70*t73*t79*t88;
2802     t268 = -1.0*t41*t197*t29*t47*rhoa+2.0*t41*t192*t29*t194*
2803         rhoa-32.1646831778707*t191*t192*t29*t193*rhoa+t58*(8.0*t110*
2804         t115*t70*t73*t88+t267+t266+t265+t264+t263+t262+t261+t260+t259+
2805         t252+t246+t245+t244+t243+t242+t229+t228+t227+t226+t225+t223+
2806         t221+t217+t216+t211+t209)+8.0*t115*t70*t73*t79*t88+2.0*t110*
2807         t70*t72*t73*t88+.03950357940513041*t70*t116*t75*t79*t82+.03950357940513041*
2808         t70*t74*t75*t110*t82-2.0*t41*t46*t29*t47-.001419638488888889*
2809         t1*t2*t4*t20*t44+t205+t204+t203+t202+t201+t200+.1369866666666666*
2810         t1*t2*t4*t41*t46*t47*t17;
2811     t269 = 1/pow(t54,4.0);
2812     t270 = 0.1848792*t22*t189*t56-.006379137599999999*t22*
2813         t189*t52*t55-0.0027230592*t21*t188*t55+3.1619174400000005E-5*
2814         t22*t189*t53*t126+5.0832E-5*t21*t188*t52*t126-2.0696186880000003E-7*
2815         t21*t188*t53*t269;
2816     t271 = 2.666666666666667*t109*t232*t71-2.666666666666667*
2817         t106*t232*t71+.4444444444444444*t108*t164*t237+.4444444444444444*
2818         t105*t163*t231;
2819     t272 = 12.0*t249*t73+t248;
2820     t273 = -12.0*t249*t70*t73*t79*t88;
2821     t274 = t58*(-.5848223397455204*t70*t167*t75*t79*t97*t98*
2822         t99-.5848223397455204*t70*t116*t75*t79*t97*t98*t99-.5848223397455204*
2823         t70*t74*t75*t165*t97*t98*t99-.5848223397455204*t70*t74*t75*
2824         t110*t97*t98*t99+4.0*t115*t165*t70*t73*t88-4.0*t110*t115*t70*
2825         t73*t88-4.0*t113*t165*t70*t72*t88-4.0*t110*t113*t70*t72*t88+
2826         t70*t72*t73*t271*t88+.01975178970256521*t70*t272*t75*t79*t82-
2827         7.324622014701263E-4*t70*t1*t2*t4*t91*t167*t79*t82-7.324622014701263E-4*
2828         t70*t1*t2*t4*t91*t116*t79*t82+.01975178970256521*t70*t74*t75*
2829         t271*t82+.01975178970256521*t70*t116*t75*t165*t82-7.324622014701263E-4*
2830         t70*t1*t2*t4*t91*t74*t165*t82+.01975178970256521*t70*t167*
2831         t75*t110*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*t74*t110*
2832         t82+t273+t265+t261+t259+t246+t229+t227+t225+t223+t221+t217+
2833         t216+t211+t209+t70*t72*t73*t165*t121+t70*t72*t73*t110*t121)+
2834         t205+t204+t203+t202+t201+t200+t169+t168+t166+t123+t117+t111;
2835     t275 = -
2836         0.0027230592*t22*t50*t39*t55*t152+5.0832E-5*t22*t50*t39*t52*
2837         t126*t152-2.0696186880000003E-7*t22*t50*t39*t53*t269*t152;
2838     t276 = pow(grada,
2839         7.0);
2840     t277 = 1/pow(rhoa,11.66666666666667);
2841     t278 = 1.666218666666667*grada*t27*t39-2.657698133333334*
2842         t174*t25*t38+.9622809600000002*t172*t36*t37-.09947801600000003*
2843         t276*t185*t277;
2844     t279 = .01112042666666667*grada*t33*t39-.001244242773333333*
2845         t174*t32*t38+1.1463830186666667E-5*t172*t48*t37-2.665914368E-8*
2846         t276*t198*t277;
2847     t280 = -0.1008432*grada*t39*t56+0.0034795296*grada*t39*
2848         t52*t55+0.0020422944*t174*t38*t55-1.72468224E-5*grada*t39*
2849         t53*t126-3.8124E-5*t174*t38*t52*t126+1.5522140160000003E-7*
2850         t174*t38*t53*t269;
2851     t281 = 0.0020422944*t22*gradb*t39*t55*t51-3.8124E-5*t22*
2852         gradb*t39*t52*t126*t51+1.5522140160000003E-7*t22*gradb*t39*
2853         t53*t269*t51;
2854     t282 = pow(gradb,8.0);
2855     t283 = 1/pow(t139,4.0);
2856     t284 = 1/pow(rhob,12.66666666666667);
2857     t285 = 1/pow(rhob,10.0);
2858     t286 = 1/pow(rhob,7.333333333333333);
2859     t287 = 1/pow(rhob,4.666666666666667);
2860     t288 = -3.054734222222222*t50*t142*t287+4.124711111111112*
2861         t138*t140*t286-1.365939626666667*t148*t149*t285+.1326373546666667*
2862         t282*t283*t284;
2863     t289 = 1/pow(t134,2.0);
2864     t290 = pow(t159,2.0);
2865     t291 = 1/pow(t133,4.0);
2866     t292 = 1/pow(t133,3.0);
2867     t293 = 1/pow(rhob,2.333333333333333);
2868     t294 = 1/pow(t129,7.0);
2869     t295 = 1.176575*t10*t11*t14*t158*t157+.7012916666666668*
2870         t5*t14*t294*t157+1.568766666666666*t10*t11*t3*t130*t155+.5610333333333333*
2871         t5*t3*t158*t155+2.754533333333333*t1*t2*t4*t293+.6946333333333333*
2872         t12*t13*t15*t51;
2873     t296 = 1/pow(t144,4.0);
2874     t297 = -.02038744888888889*t50*t146*t287+.001958930631111111*
2875         t138*t145*t286-1.639590456888889E-5*t148*t161*t285+3.554552490666667E-8*
2876         t282*t296*t284;
2877     t298 = -1.169644679491041*t70*t74*t75*t165*t97*t98*t99;
2878     t299 = -
2879         1.169644679491041*t70*t167*t75*t79*t97*t98*t99;
2880     t300 = pow(t163,2.0);
2881     t301 = t239+t233;
2882     t302 = pow(t164,2.0);
2883     t303 = t234+t238;
2884     t304 = 1.333333333333333*t109*t303+.4444444444444444*
2885         t237*t302+1.333333333333333*t106*t301+.4444444444444444*t231*
2886         t300;
2887     t305 = .01975178970256521*t70*t74*t75*t304*t82;
2888     t306 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t165*
2889         t82;
2890     t307 = .03950357940513041*t70*t167*t75*t165*t82;
2891     t308 = -.001464924402940253*t70*t1*t2*t4*t91*t167*t79*
2892         t82;
2893     t309 = t250+t248-32.0*t113*t115;
2894     t310 = .01975178970256521*t70*t309*t75*t79*t82;
2895     t311 = 2.0*t121*t165*t70*t72*t73;
2896     t312 = -8.0*t115*t121*t70*t73*t79;
2897     t313 = t70*t72*t73*t304*t88;
2898     t314 = -8.0*t113*t165*t70*t72*t88;
2899     t315 = 32.0*t113*t115*t70*t79*t88;
2900     t316 = 2.0*t154*t290*t136*t292*rhob-32.1646831778707*
2901         t289*t290*t136*t291*rhob-1.0*t154*t295*t136*t160*rhob+t58*
2902         (-8.0*t115*t165*t70*t73*t88+t315+t314+t313+t312+t311+t310+
2903         t308+t307+t306+t305+t299+t298+t267+t265+t261+t259+t246+t229+
2904         t227+t225+t223+t221+t217+t216+t211+t209)-8.0*t115*t70*t73*
2905         t79*t88+2.0*t165*t70*t72*t73*t88+.03950357940513041*t70*t167*
2906         t75*t79*t82+.03950357940513041*t70*t74*t75*t165*t82+t205+t204+
2907         t203+t202+t201+t200-2.0*t154*t159*t136*t160-.001419638488888889*
2908         t1*t2*t4*t135*t157+.1369866666666666*t1*t2*t4*t154*t159*t160*
2909         t132;
2910     t317 = 0.1848792*t50*t56*t287-.006379137599999999*t50*
2911         t52*t55*t287+3.1619174400000005E-5*t50*t53*t126*t287-0.0027230592*
2912         t138*t55*t286+5.0832E-5*t138*t52*t126*t286-2.0696186880000003E-7*
2913         t138*t53*t269*t286;
2914     t318 = 0.0020422944*grada*t50*t23*t55*t152-3.8124E-5*
2915         grada*t50*t23*t52*t126*t152+1.5522140160000003E-7*grada*t50*
2916         t23*t53*t269*t152;
2917     t319 = pow(gradb,7.0);
2918     t320 = 1/pow(rhob,11.66666666666667);
2919     t321 = 1.666218666666667*gradb*t142*t152-2.657698133333334*
2920         t180*t140*t151+.9622809600000002*t178*t149*t150-.09947801600000003*
2921         t319*t283*t320;
2922     t322 = .01112042666666667*gradb*t146*t152-.001244242773333333*
2923         t180*t145*t151+1.1463830186666667E-5*t178*t161*t150-2.665914368E-8*
2924         t319*t296*t320;
2925     t323 = -0.1008432*gradb*t56*t152+0.0034795296*gradb*t52*
2926         t55*t152-1.72468224E-5*gradb*t53*t126*t152+0.0020422944*t180*
2927         t55*t151-3.8124E-5*t180*t52*t126*t151+1.5522140160000003E-7*
2928         t180*t53*t269*t151;
2929     t324 = 1/pow(rhoa,10.66666666666667);
2930     t325 = -0.624832*t27*t23+1.5574384*t22*t25*t26-.6595369600000002*
2931         t21*t36*t173+.07460851200000003*t35*t185*t324;
2932     t326 = -0.00417016*t33*t23+7.082268799999999E-4*t22*t32*
2933         t26-7.764774399999999E-6*t21*t48*t173+1.999435776E-8*t35*t198*
2934         t324;
2935     t327 = 0.0378162*t23*t56-0.0013048236*t23*t52*t55-0.0015317208*
2936         t22*t26*t55+6.4675584E-6*t23*t53*t126+2.8593E-5*t22*t26*t52*
2937         t126-1.1641605120000002E-7*t22*t26*t53*t269;
2938     t328 = -0.0015317208*grada*gradb*t23*t55*t51+2.8593E-5*
2939         grada*gradb*t23*t52*t126*t51-1.1641605120000002E-7*grada*gradb*
2940         t23*t53*t269*t51;
2941     t329 = 1/pow(rhob,10.66666666666667);
2942     t330 = -0.624832*t142*t51+1.5574384*t50*t140*t141-.6595369600000002*
2943         t138*t149*t179+.07460851200000003*t148*t283*t329;
2944     t331 = -0.00417016*t146*t51+7.082268799999999E-4*t50*
2945         t145*t141-7.764774399999999E-6*t138*t161*t179+1.999435776E-8*
2946         t148*t296*t329;
2947     t332 = 0.0378162*t56*t51-0.0013048236*t52*t55*t51+6.4675584E-6*
2948         t53*t126*t51-0.0015317208*t50*t55*t141+2.8593E-5*t50*t52*t126*
2949         t141-1.1641605120000002E-7*t50*t53*t269*t141;
2950     t333 = pow(grada,10.0);
2951     t334 = 1/pow(t24,5.0);
2952     t335 = 1/pow(rhoa,16.33333333333333);
2953     t336 = 1/pow(rhoa,13.66666666666667);
2954     t337 = 1/pow(rhoa,11.0);
2955     t338 = 1/pow(rhoa,8.333333333333334);
2956     t339 = 1/pow(rhoa,5.666666666666667);
2957     t340 = 14.25542637037037*t22*t27*t339-31.87707306666667*
2958         t21*t25*t338+18.05908811851852*t35*t36*t337-3.865576561777778*
2959         t184*t185*t336+.2829596899555556*t333*t334*t335;
2960     t341 = 1/pow(t19,3.0);
2961     t342 = pow(t46,3.0);
2962     t343 = 1/pow(t18,6.0);
2963     t344 = 1/pow(t18,5.0);
2964     t345 = 1/pow(rhoa,3.333333333333333);
2965     t346 = 1/pow(t7,9.0);
2966     t347 = 1/pow(rhoa,2.0);
2967     t348 = -.9804791666666667*t10*t11*M_PI*t196*t347-.8181736111111113*
2968         t5*M_PI*t346*t347-2.35315*t10*t11*t14*t45*t195-1.402583333333333*
2969         t5*t14*t196*t195-2.614611111111111*t10*t11*t3*t8*t23-.9350555555555555*
2970         t5*t3*t45*t23-6.427244444444445*t1*t2*t4*t345-1.852355555555556*
2971         t12*t13*t15*t39;
2972     t349 = 1/pow(t31,5.0);
2973     t350 = .09514142814814813*t22*t33*t339-.01458295741629629*
2974         t21*t32*t338+2.0574956581925924E-4*t35*t48*t337-9.749122616888889E-7*
2975         t184*t198*t336+1.5166090626844445E-9*t333*t349*t335;
2976     t351 = 48.2454729664533*t61*t206*t207*t208;
2977     t352 = -6.0*t61*t206*t210*t95;
2978     t353 = 3.0*t61*t215*t94*t95;
2979     t354 = -.4273999999999999*t1*t2*t4*t91*t93*t94*t95;
2980     t355 = -
2981         51.9472676981276*t70*t74*t75*t79*t218*t219*t220;
2982     t356 = 3.508934038473122*t70*t74*t75*t79*t218*t222*t99;
2983     t357 = -
2984         1.754467019236561*t70*t74*t75*t79*t224*t98*t99;
2985     t358 = .1301229705933783*t70*t1*t2*t4*t91*t74*t79*t97*
2986         t98*t99;
2987     t359 = -.01771772453333333*t1*t2*t4*t213*t68;
2988     t360 = .002929848805880505*t70*t1*t2*t4*t213*t74*t79*
2989         t82;
2990     t361 = 3.0*t258*t70*t72*t73*t79;
2991     t362 = -24.0*t113*t121*t70*t72*t79;
2992     t363 = 60.0*t247*t70*t72*t79*t88;
2993     t364 = 36.0*t249*t70*t73*t79*t88;
2994     t365 = pow(t93,3.0);
2995     t366 = 1/pow(t66,6.0);
2996     t367 = 1/pow(t67,3.0);
2997     t368 = 517.2501470570614*t61*t365*t366*t367;
2998     t369 = 1/pow(t66,5.0);
2999     t370 = -96.4909459329066*t61*t365*t369*t208;
3000     t371 = 48.2454729664533*t61*t215*t93*t207*t208;
3001     t372 = -3.43668585764369*t1*t2*t4*t91*t206*t207*t208;
3002     t373 = 6.0*
3003         t61*t365*t207*t95;
3004     t374 = -6.0*t61*t215*t93*t210*t95;
3005     t375 = .4273999999999999*t1*t2*t4*t91*t206*t210*t95;
3006     t376 = 1/
3007         pow(t58,3.666666666666667);
3008     t377 = 1/pow(t58,3.333333333333333);
3009     t378 = 1/pow(t63,9.0);
3010     t379 = -1.406611111111111*t10*t11*t3*t212*t64-1.26595*
3011         t10*t11*t14*t213*t92-.4550555555555556*t5*t3*t212*t92-.5274791666666666*
3012         t10*t11*M_PI*t102*t214-.6825833333333334*t5*t14*t213*t214-.3981736111111112*
3013         t5*M_PI*t102*t378-3.720474074074074*t1*t2*t4*t377-1.460562962962963*
3014         t12*t13*t15*t376;
3015     t380 = .9999999999999999*t61*t379*t94*t95;
3016     t381 = -0.2137*t1*t2*t4*t91*t215*t94*t95;
3017     t382 = .2849333333333333*t1*t2*t4*t213*t93*t94*t95;
3018     t383 = pow(t97,
3019         3.0);
3020     t384 = 1/pow(t80,6.0);
3021     t385 = 1/pow(t81,3.0);
3022     t386 = -1025.38970210078*t70*t74*t75*t79*t383*t384*t385;
3023     t387 = 1/
3024         pow(t80,5.0);
3025     t388 = 103.8945353962552*t70*t74*t75*t79*t383*t387*t220;
3026     t389 = -
3027         51.9472676981276*t70*t74*t75*t79*t224*t97*t219*t220;
3028     t390 = -51.9472676981276*t70*t74*t75*t110*t218*t219*t220;
3029     t391 = 1.926377843805565*
3030         t70*t1*t2*t4*t91*t74*t79*t218*t219*t220;
3031     t392 = -51.9472676981276*t70*t116*t75*t79*t218*t219*t220;
3032     t393 = -
3033         3.508934038473122*t70*t74*t75*t79*t383*t219*t99;
3034     t394 = 3.508934038473122*t70*t74*t75*t79*t224*t97*t222*
3035         t99;
3036     t395 = 3.508934038473122*t70*t74*t75*t110*t218*t222*t99;
3037     t396 = -
3038         .1301229705933783*t70*t1*t2*t4*t91*t74*t79*t218*t222*t99;
3039     t397 = 3.508934038473122*
3040         t70*t116*t75*t79*t218*t222*t99;
3041     t398 = -1.917962962962962*t10*t11*t3*t212*t64-1.726166666666666*
3042         t10*t11*t14*t213*t92-.2445166666666667*t5*t3*t212*t92-.7192361111111111*
3043         t10*t11*M_PI*t102*t214-0.366775*t5*t14*t213*t214-.2139520833333333*
3044         t5*M_PI*t102*t378-3.757288888888889*t1*t2*t4*t377-1.471733333333333*
3045         t12*t13*t15*t376;
3046     t399 = -.5848223397455204*t70*t74*t75*t79*t398*t98*t99;
3047     t400 = -
3048         1.754467019236561*t70*t74*t75*t110*t224*t98*t99;
3049     t401 = .06506148529668915*t70*t1*t2*t4*t91*t74*t79*t224*
3050         t98*t99;
3051     t402 = -1.754467019236561*t70*t116*t75*t79*t224*t98*t99;
3052     t403 = .1301229705933783*
3053         t70*t1*t2*t4*t91*t74*t110*t97*t98*t99;
3054     t404 = .1301229705933783*t70*t1*t2*t4*t91*t116*t79*t97*
3055         t98*t99;
3056     t405 = -.08674864706225219*t70*t1*t2*t4*t213*t74*t79*
3057         t97*t98*t99;
3058     t406 = .01378045241481481*t1*t2*t4*t377*t68;
3059     t407 = pow(t105,3.0);
3060     t408 = 1/pow(t77,1.666666666666667);
3061     t409 = 6.0*t71*t73;
3062     t410 = -6.0*t232;
3063     t411 = t410+t409;
3064     t412 = pow(t108,3.0);
3065     t413 = 1/pow(t78,1.666666666666667);
3066     t414 = -6.0*t71*t73;
3067     t415 = 6.0*t232;
3068     t416 = t415+t414;
3069     t417 = 1.333333333333333*t109*t416-.2962962962962963*
3070         t412*t413+1.333333333333333*t106*t411-.2962962962962963*t407*
3071         t408+1.333333333333333*t108*t237*t240+1.333333333333333*t105*
3072         t231*t235;
3073     t418 = .01975178970256521*t70*t74*t75*t417*t82;
3074     t419 = .05925536910769562*t70*t116*t75*t241*t82;
3075     t420 = .002929848805880505*t70*t1*t2*t4*t213*t74*t110*
3076         t82;
3077     t421 = .05925536910769562*t70*t251*t75*t110*t82;
3078     t422 = .002929848805880505*t70*t1*t2*t4*t213*t116*t79*
3079         t82;
3080     t423 = -.002278771293462615*t70*t1*t2*t4*t377*t74*t79*
3081         t82;
3082     t424 = 1/pow(t58,7.0);
3083     t425 = 120.0*t424*t72;
3084     t426 = 144.0*t113*t249;
3085     t427 = -24.0*t71*t73;
3086     t428 = t427+t426+t425-240.0*t115*t247;
3087     t429 = .01975178970256521*t70*t428*t75*t79*t82;
3088     t430 = pow(t118,3.0);
3089     t431 = 1/pow(t85,6.0);
3090     t432 = 1/pow(t86,3.0);
3091     t433 = 1/pow(t85,5.0);
3092     t434 = -2.614611111111111*t10*t11*t3*t212*t64-2.35315*
3093         t10*t11*t14*t213*t92-.9350555555555555*t5*t3*t212*t92-.9804791666666667*
3094         t10*t11*M_PI*t102*t214-1.402583333333333*t5*t14*t213*t214-.8181736111111113*
3095         t5*M_PI*t102*t378-6.427244444444445*t1*t2*t4*t377-1.852355555555556*
3096         t12*t13*t15*t376;
3097     t435 = .006624979614814813*t1*t2*t4*t377*t87-.01378045241481481*
3098         t1*t2*t4*t377*t68+.2739733333333333*t1*t2*t4*t213*t118*t119*
3099         t120-0.20548*t1*t2*t4*t91*t257*t119*t120+1.0*t84*t434*t119*
3100         t120+.4109599999999999*t1*t2*t4*t91*t253*t256*t120-6.0*t84*
3101         t257*t118*t256*t120+6.0*t84*t430*t254*t120-6.60919909938887*
3102         t1*t2*t4*t91*t253*t254*t255+96.4940495336121*t84*t257*t118*
3103         t254*t255-192.9880990672242*t84*t430*t433*t255+2069.133687865597*
3104         t84*t430*t431*t432-.2849333333333333*t1*t2*t4*t213*t93*t94*
3105         t95+0.2137*t1*t2*t4*t91*t215*t94*t95-.9999999999999999*t61*
3106         t379*t94*t95-.4273999999999999*t1*t2*t4*t91*t206*t210*t95+
3107         6.0*t61*t215*t93*t210*t95-6.0*t61*t365*t207*t95+3.43668585764369*
3108         t1*t2*t4*t91*t206*t207*t208-48.2454729664533*t61*t215*t93*
3109         t207*t208+96.4909459329066*t61*t365*t369*t208-517.2501470570614*
3110         t61*t365*t366*t367;
3111     t436 = t70*t72*t73*t79*t435;
3112     t437 = 3.0*t110*t258*t70*t72*t73;
3113     t438 = -12.0*t113*t258*t70*t72*t79;
3114     t439 = -24.0*t110*t113*t121*t70*t72;
3115     t440 = 24.0*t110*t115*t121*t70*t73;
3116     t441 = 60.0*t121*t247*t70*t72*t79;
3117     t442 = 36.0*t121*t249*t70*t73*t79;
3118     t443 = t70*t72*t73*t417*t88;
3119     t444 = 60.0*t110*t247*t70*t72*t88;
3120     t445 = -96.0*t110*t113*t115*t70*t88;
3121     t446 = 36.0*t110*t249*t70*t73*t88;
3122     t447 = -120.0*t424*t70*t72*t79*t88;
3123     t448 = -144.0*t113*t249*t70*t79*t88;
3124     t449 = 24.0*t70*t71*t73*t79*t88;
3125     t450 = -1.0*t41*t348*t29*t47*rhoa+192.9880990672242*t191*
3126         t342*t29*t344*rhoa-2069.133687865597*t341*t342*t29*t343*rhoa+
3127         6.0*t41*t197*t46*t29*t194*rhoa-96.4940495336121*t191*t197*
3128         t46*t29*t193*rhoa-6.0*t41*t342*t29*t193*rhoa+t58*(-1.754467019236561*
3129         t70*t251*t75*t79*t97*t98*t99-1.754467019236561*t70*t74*t75*
3130         t241*t97*t98*t99-3.508934038473122*t70*t116*t75*t110*t97*t98*
3131         t99+240.0*t115*t247*t70*t79*t88+12.0*t115*t241*t70*t73*t88-
3132         12.0*t113*t241*t70*t72*t88-.002197386604410379*t70*t1*t2*t4*
3133         t91*t251*t79*t82-.002197386604410379*t70*t1*t2*t4*t91*t74*
3134         t241*t82-.004394773208820758*t70*t1*t2*t4*t91*t116*t110*t82+
3135         12.0*t115*t258*t70*t73*t79-96.0*t113*t115*t121*t70*t79+3.0*
3136         t121*t241*t70*t72*t73+t449+t448+t447+t446+t445+t444+t443+t442+
3137         t441+t440+t439+t438+t437+t436+t429+t423+t422+t421+t420+t419+
3138         t418+t406+t405+t404+t403+t402+t401+t400+t399+t397+t396+t395+
3139         t394+t393+t392+t391+t390+t389+t388+t386+t382+t381+t380+t375+
3140         t374+t373+t372+t371+t370+t368)-3.508934038473122*t70*t116*
3141         t75*t79*t97*t98*t99-3.508934038473122*t70*t74*t75*t110*t97*
3142         t98*t99-96.0*t113*t115*t70*t79*t88+3.0*t241*t70*t72*t73*t88+
3143         24.0*t110*t115*t70*t73*t88-24.0*t110*t113*t70*t72*t88+.05925536910769562*
3144         t70*t251*t75*t79*t82-.004394773208820758*t70*t1*t2*t4*t91*
3145         t116*t79*t82+.05925536910769562*t70*t74*t75*t241*t82+.1185107382153912*
3146         t70*t116*t75*t110*t82-.004394773208820758*t70*t1*t2*t4*t91*
3147         t74*t110*t82+24.0*t115*t121*t70*t73*t79+6.0*t110*t121*t70*
3148         t72*t73-3.0*t41*t197*t29*t47+.1369866666666666*t1*t2*t4*t41*
3149         t46*t47*t44+t364+t363+t362+t361+t360+t359+t358+t357+t356+t355+
3150         t354+t353+t352+t351+.001892851318518518*t1*t2*t4*t20*t195+
3151         6.0*t41*t192*t29*t194-96.4940495336121*t191*t192*t29*t193+
3152         0.20548*t1*t2*t4*t41*t197*t47*t17-.4109599999999999*t1*t2*
3153         t4*t41*t192*t194*t17+6.60919909938887*t1*t2*t4*t191*t192*t193*
3154         t17;
3155     t451 = 1/pow(t54,5.0);
3156     t452 = -0.8627696*t22*t339*t56+0.0297693088*t22*t339*
3157         t52*t55+0.0299536512*t21*t338*t55-1.4755614720000004E-4*t22*
3158         t339*t53*t126-5.59152E-4*t21*t338*t52*t126-1.113449472E-4*
3159         t35*t337*t126+2.2765805568E-6*t21*t338*t53*t269+1.7718663168E-6*
3160         t35*t337*t52*t269-6.622779801600002E-9*t35*t337*t53*t451;
3161     t453 = .03950357940513041*
3162         t70*t74*t75*t271*t82;
3163     t454 = .03950357940513041*t70*t116*t75*t165*t82;
3164     t455 = .03950357940513041*t70*t167*t75*t110*t82;
3165     t456 = .03950357940513041*t70*t272*t75*t79*t82;
3166     t457 = 2.0*t271*t70*t72*t73*t88;
3167     t458 = -1.169644679491041*t70*t74*t75*t271*t97*t98*t99;
3168     t459 = -
3169         1.169644679491041*t70*t116*t75*t165*t97*t98*t99;
3170     t460 = -1.169644679491041*t70*t167*t75*t110*t97*t98*t99;
3171     t461 = -
3172         1.169644679491041*t70*t272*t75*t79*t97*t98*t99;
3173     t462 = -.001464924402940253*t70*t1*t2*t4*t91*t74*t271*
3174         t82;
3175     t463 = t409-2.0*t232;
3176     t464 = t414+2.0*t232;
3177     t465 = 1.777777777777778*t108*t232*t237*t71-1.777777777777778*
3178         t105*t231*t232*t71+1.333333333333333*t109*t464+1.333333333333333*
3179         t106*t463-.2962962962962963*t164*t236*t413-.2962962962962963*
3180         t163*t230*t408+.4444444444444444*t164*t237*t240+.4444444444444444*
3181         t163*t231*t235;
3182     t466 = -.001464924402940253*t70*t1*t2*t4*t91*t116*t165*
3183         t82;
3184     t467 = -.001464924402940253*t70*t1*t2*t4*t91*t167*t110*
3185         t82;
3186     t468 = -.001464924402940253*t70*t1*t2*t4*t91*t272*t79*
3187         t82;
3188     t469 = -48.0*t113*t249;
3189     t470 = 24.0*t71*t73;
3190     t471 = t470+t469+t425-80.0*t115*t247;
3191     t472 = 2.0*t121*t271*t70*t72*t73;
3192     t473 = -12.0*t121*t249*t70*t73*t79;
3193     t474 = -8.0*t113*t271*t70*t72*t88;
3194     t475 = -24.0*t110*t249*t70*t73*t88;
3195     t476 = 48.0*t113*t249*t70*t79*t88;
3196     t477 = -24.0*t70*t71*t73*t79*t88;
3197     t478 = t58*(-.5848223397455204*t70*t251*t75*t79*t97*t98*
3198         t99+.04337432353112609*t70*t1*t2*t4*t91*t167*t79*t97*t98*t99+
3199         .08674864706225219*t70*t1*t2*t4*t91*t116*t79*t97*t98*t99-.5848223397455204*
3200         t70*t74*t75*t241*t97*t98*t99+.04337432353112609*t70*t1*t2*
3201         t4*t91*t74*t165*t97*t98*t99-1.169644679491041*t70*t116*t75*
3202         t110*t97*t98*t99+.08674864706225219*t70*t1*t2*t4*t91*t74*t110*
3203         t97*t98*t99-.5848223397455204*t70*t167*t75*t79*t224*t98*t99-
3204         1.169644679491041*t70*t116*t75*t79*t224*t98*t99-.5848223397455204*
3205         t70*t74*t75*t165*t224*t98*t99-1.169644679491041*t70*t74*t75*
3206         t110*t224*t98*t99+1.169644679491041*t70*t167*t75*t79*t218*
3207         t222*t99+2.339289358982082*t70*t116*t75*t79*t218*t222*t99+
3208         1.169644679491041*t70*t74*t75*t165*t218*t222*t99+2.339289358982082*
3209         t70*t74*t75*t110*t218*t222*t99+80.0*t115*t247*t70*t79*t88+
3210         8.0*t115*t271*t70*t73*t88+12.0*t165*t249*t70*t73*t88-4.0*t115*
3211         t241*t70*t73*t88+20.0*t165*t247*t70*t72*t88+40.0*t110*t247*
3212         t70*t72*t88-4.0*t113*t241*t70*t72*t88-32.0*t113*t115*t165*
3213         t70*t88+t70*t72*t73*t465*t88+.01975178970256521*t70*t471*t75*
3214         t79*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*t251*t79*t82+
3215         9.766162686268349E-4*t70*t1*t2*t4*t213*t167*t79*t82+0.00195323253725367*
3216         t70*t1*t2*t4*t213*t116*t79*t82+.01975178970256521*t70*t74*
3217         t75*t465*t82+.03950357940513041*t70*t116*t75*t271*t82+.01975178970256521*
3218         t70*t167*t75*t241*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*
3219         t74*t241*t82+.01975178970256521*t70*t251*t75*t165*t82+9.766162686268349E-4*
3220         t70*t1*t2*t4*t213*t74*t165*t82+.03950357940513041*t70*t272*
3221         t75*t110*t82+0.00195323253725367*t70*t1*t2*t4*t213*t74*t110*
3222         t82-.001464924402940253*t70*t1*t2*t4*t91*t116*t110*t82+4.0*
3223         t115*t258*t70*t73*t79-32.0*t113*t115*t121*t70*t79+2.0*t110*
3224         t258*t70*t72*t73+8.0*t115*t121*t165*t70*t73-8.0*t113*t121*
3225         t165*t70*t72-16.0*t110*t113*t121*t70*t72+t477+t476+t475+t474+
3226         t473+t472+t468+t467+t466+t462+t461+t460+t459+t458+t447+t441+
3227         t438+t436+t423+t406+t405+t401+t399+t396+t394+t393+t391+t389+
3228         t388+t386+t382+t381+t380+t375+t374+t373+t372+t371+t370+t368+
3229         t70*t72*t73*t165*t258-17.31575589937587*t70*t167*t75*t79*t218*
3230         t219*t220-34.63151179875173*t70*t116*t75*t79*t218*t219*t220-
3231         17.31575589937587*t70*t74*t75*t165*t218*t219*t220-34.63151179875173*
3232         t70*t74*t75*t110*t218*t219*t220+t70*t72*t73*t241*t121)-2.339289358982082*
3233         t70*t116*t75*t79*t97*t98*t99-2.339289358982082*t70*t74*t75*
3234         t110*t97*t98*t99+8.0*t115*t165*t70*t73*t88-16.0*t110*t113*
3235         t70*t72*t88-.002929848805880505*t70*t1*t2*t4*t91*t116*t79*
3236         t82-.002929848805880505*t70*t1*t2*t4*t91*t74*t110*t82+4.0*
3237         t110*t121*t70*t72*t73+t457+t456+t455+t454+t453+t363+t362+t361+
3238         t360+t359+t358+t357+t356+t355+t354+t353+t352+t351+t314+t311+
3239         t308+t306+t299+t298+t273+t266+t263+t262+t252+t244+t242;
3240     t479 = .009984550399999998*t22*t50*t189*t55*t152-1.86384E-4*
3241         t22*t50*t189*t52*t126*t152-1.113449472E-4*t21*t50*t188*t126*
3242         t152+7.588601856000002E-7*t22*t50*t189*t53*t269*t152+1.7718663168E-6*
3243         t21*t50*t188*t52*t269*t152-6.622779801600002E-9*t21*t50*t188*
3244         t53*t451*t152;
3245     t480 = pow(grada,9.0);
3246     t481 = 1/pow(rhoa,15.33333333333333);
3247     t482 = -6.109468444444444*grada*t27*t189+17.72073813333334*
3248         t174*t25*t188-11.49540664888889*t172*t36*t187+2.700226389333334*
3249         t276*t185*t186-.2122197674666667*t480*t334*t481;
3250     t483 = -.04077489777777777*grada*t33*t189+.007998822115555556*
3251         t174*t32*t188-1.2971831751111113E-4*t172*t48*t187+6.778659089066668E-7*
3252         t276*t198*t186-1.1374567970133334E-9*t480*t349*t481;
3253     t484 = 0.3697584*grada*t189*t56-0.0127582752*grada*t189*
3254         t52*t55-0.0183806496*t174*t188*t55+6.323834880000001E-5*grada*
3255         t189*t53*t126+3.4311600000000003E-4*t174*t188*t52*t126+8.350871040000001E-5*
3256         t172*t187*t126-1.3969926144000003E-6*t174*t188*t53*t269-1.3288997376000003E-6*
3257         t172*t187*t52*t269+4.967084851200001E-9*t172*t187*t53*t451;
3258     t485 = -
3259         .007488412799999999*t22*gradb*t189*t55*t51+1.39788E-4*t22*
3260         gradb*t189*t52*t126*t51+8.350871040000001E-5*t21*gradb*t188*
3261         t126*t51-5.691451392000002E-7*t22*gradb*t189*t53*t269*t51-
3262         1.3288997376000003E-6*t21*gradb*t188*t52*t269*t51+4.967084851200001E-9*
3263         t21*gradb*t188*t53*t451*t51;
3264     t486 = -8.0*t109*t71*t73+8.0*t106*t71*t73+1.777777777777778*
3265         t164*t232*t237*t71-1.777777777777778*t163*t231*t232*t71-.2962962962962963*
3266         t108*t302*t413-.2962962962962963*t105*t300*t408+.4444444444444444*
3267         t108*t237*t303+.4444444444444444*t105*t231*t301-2.666666666666667*
3268         t109*t232+2.666666666666667*t106*t232;
3269     t487 = t469+t427+t425+80.0*t115*t247;
3270     t488 = -24.0*t165*t249*t70*t73*t88;
3271     t489 = t58*(-.5848223397455204*t70*t309*t75*t79*t97*t98*
3272         t99+.08674864706225219*t70*t1*t2*t4*t91*t167*t79*t97*t98*t99+
3273         .04337432353112609*t70*t1*t2*t4*t91*t116*t79*t97*t98*t99-.5848223397455204*
3274         t70*t74*t75*t304*t97*t98*t99-1.169644679491041*t70*t167*t75*
3275         t165*t97*t98*t99+.08674864706225219*t70*t1*t2*t4*t91*t74*t165*
3276         t97*t98*t99+.04337432353112609*t70*t1*t2*t4*t91*t74*t110*t97*
3277         t98*t99-1.169644679491041*t70*t167*t75*t79*t224*t98*t99-.5848223397455204*
3278         t70*t116*t75*t79*t224*t98*t99-1.169644679491041*t70*t74*t75*
3279         t165*t224*t98*t99-.5848223397455204*t70*t74*t75*t110*t224*
3280         t98*t99+2.339289358982082*t70*t167*t75*t79*t218*t222*t99+1.169644679491041*
3281         t70*t116*t75*t79*t218*t222*t99+2.339289358982082*t70*t74*t75*
3282         t165*t218*t222*t99+1.169644679491041*t70*t74*t75*t110*t218*
3283         t222*t99-80.0*t115*t247*t70*t79*t88+4.0*t115*t304*t70*t73*
3284         t88-8.0*t115*t271*t70*t73*t88+12.0*t110*t249*t70*t73*t88-4.0*
3285         t113*t304*t70*t72*t88+40.0*t165*t247*t70*t72*t88+20.0*t110*
3286         t247*t70*t72*t88+32.0*t110*t113*t115*t70*t88+t70*t72*t73*t486*
3287         t88+.01975178970256521*t70*t487*t75*t79*t82-7.324622014701263E-4*
3288         t70*t1*t2*t4*t91*t309*t79*t82+0.00195323253725367*t70*t1*t2*
3289         t4*t213*t167*t79*t82+9.766162686268349E-4*t70*t1*t2*t4*t213*
3290         t116*t79*t82+.01975178970256521*t70*t74*t75*t486*t82+.01975178970256521*
3291         t70*t116*t75*t304*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*
3292         t74*t304*t82+.03950357940513041*t70*t167*t75*t271*t82+.03950357940513041*
3293         t70*t272*t75*t165*t82+0.00195323253725367*t70*t1*t2*t4*t213*
3294         t74*t165*t82-.001464924402940253*t70*t1*t2*t4*t91*t167*t165*
3295         t82+.01975178970256521*t70*t309*t75*t110*t82+9.766162686268349E-4*
3296         t70*t1*t2*t4*t213*t74*t110*t82-4.0*t115*t258*t70*t73*t79+32.0*
3297         t113*t115*t121*t70*t79+2.0*t165*t258*t70*t72*t73-8.0*t110*
3298         t115*t121*t70*t73-16.0*t113*t121*t165*t70*t72-8.0*t110*t113*
3299         t121*t70*t72+t488+t476+t474+t473+t472+t468+t467+t466+t462+
3300         t461+t460+t459+t458+t449+t447+t441+t438+t436+t423+t406+t405+
3301         t401+t399+t396+t394+t393+t391+t389+t388+t386+t382+t381+t380+
3302         t375+t374+t373+t372+t371+t370+t368+t70*t72*t73*t110*t258-34.63151179875173*
3303         t70*t167*t75*t79*t218*t219*t220-17.31575589937587*t70*t116*
3304         t75*t79*t218*t219*t220-34.63151179875173*t70*t74*t75*t165*
3305         t218*t219*t220-17.31575589937587*t70*t74*t75*t110*t218*t219*
3306         t220+t70*t72*t73*t304*t121)-2.339289358982082*t70*t167*t75*
3307         t79*t97*t98*t99-2.339289358982082*t70*t74*t75*t165*t97*t98*
3308         t99-8.0*t110*t115*t70*t73*t88-16.0*t113*t165*t70*t72*t88-.002929848805880505*
3309         t70*t1*t2*t4*t91*t167*t79*t82-.002929848805880505*t70*t1*t2*
3310         t4*t91*t74*t165*t82+4.0*t121*t165*t70*t72*t73+t457+t456+t455+
3311         t454+t453+t363+t362+t361+t360+t359+t358+t357+t356+t355+t354+
3312         t353+t352+t351+t315+t313+t312+t310+t307+t305+t273+t264+t260+
3313         t245+t243+t228+t226;
3314     t490 = 0.0099845504*t22*t50*t39*t55*t287-1.86384E-4*t22*
3315         t50*t39*t52*t126*t287+7.588601856000001E-7*t22*t50*t39*t53*
3316         t269*t287-1.113449472E-4*t22*t138*t39*t126*t286+1.7718663168E-6*
3317         t22*t138*t39*t52*t269*t286-6.622779801600002E-9*t22*t138*t39*
3318         t53*t451*t286;
3319     t491 = -0.0054461184*grada*t50*t39*t55*t152+1.01664E-4*
3320         grada*t50*t39*t52*t126*t152+8.350871040000001E-5*t174*t50*
3321         t38*t126*t152-4.1392373760000006E-7*grada*t50*t39*t53*t269*
3322         t152-1.3288997376000003E-6*t174*t50*t38*t52*t269*t152+4.967084851200001E-9*
3323         t174*t50*t38*t53*t451*t152;
3324     t492 = -0.0054461184*t22*gradb*t39*t55*t152+1.01664E-4*
3325         t22*gradb*t39*t52*t126*t152-4.1392373760000006E-7*t22*gradb*
3326         t39*t53*t269*t152+8.350871040000001E-5*t22*t180*t39*t126*t151-
3327         1.3288997376000003E-6*t22*t180*t39*t52*t269*t151+4.967084851200001E-9*
3328         t22*t180*t39*t53*t451*t151;
3329     t493 = 1/pow(rhoa,14.33333333333333);
3330     t494 = 1.666218666666667*t27*t39-8.639581866666667*t22*
3331         t25*t38+6.937563306666668*t21*t36*t37-1.851083264000001*t35*
3332         t185*t277+.1591648256000001*t184*t334*t493;
3333     t495 = .01112042666666667*t33*t39-.003821691733333333*
3334         t22*t32*t38+7.722703530666668E-5*t21*t48*t37-4.6174593024000005E-7*
3335         t35*t198*t277+8.5309259776E-10*t184*t349*t493;
3336     t496 = -0.1008432*t39*t56+0.0034795296*t39*t52*t55+0.010211472*
3337         t22*t38*t55-1.72468224E-5*t39*t53*t126-1.9062E-4*t22*t38*t52*
3338         t126-6.26315328E-5*t21*t37*t126+7.761070080000001E-7*t22*t38*
3339         t53*t269+9.966748032000001E-7*t21*t37*t52*t269-3.725313638400001E-9*
3340         t21*t37*t53*t451;
3341     t497 = 0.0040845888*grada*gradb*t39*t55*t51-7.6248E-5*
3342         grada*gradb*t39*t52*t126*t51-6.26315328E-5*t174*gradb*t38*
3343         t126*t51+3.1044280320000006E-7*grada*gradb*t39*t53*t269*t51+
3344         9.966748032000001E-7*t174*gradb*t38*t52*t269*t51-3.725313638400001E-9*
3345         t174*gradb*t38*t53*t451*t51;
3346     t498 = 0.0020422944*t22*t39*t55*t51-3.8124E-5*t22*t39*
3347         t52*t126*t51+1.5522140160000003E-7*t22*t39*t53*t269*t51-6.26315328E-5*
3348         t22*t50*t39*t126*t141+9.966748032000001E-7*t22*t50*t39*t52*
3349         t269*t141-3.725313638400001E-9*t22*t50*t39*t53*t451*t141;
3350     t499 = pow(gradb,
3351         10.0);
3352     t500 = 1/pow(t139,5.0);
3353     t501 = 1/pow(rhob,16.33333333333333);
3354     t502 = 1/pow(rhob,13.66666666666667);
3355     t503 = 1/pow(rhob,11.0);
3356     t504 = 1/pow(rhob,8.333333333333334);
3357     t505 = 1/pow(rhob,5.666666666666667);
3358     t506 = 14.25542637037037*t50*t142*t505-31.87707306666667*
3359         t138*t140*t504+18.05908811851852*t148*t149*t503-3.865576561777778*
3360         t282*t283*t502+.2829596899555556*t499*t500*t501;
3361     t507 = 1/pow(t134,3.0);
3362     t508 = pow(t159,3.0);
3363     t509 = 1/pow(t133,6.0);
3364     t510 = 1/pow(t133,5.0);
3365     t511 = 1/pow(rhob,3.333333333333333);
3366     t512 = 1/pow(t129,9.0);
3367     t513 = 1/pow(rhob,2.0);
3368     t514 = -.9804791666666667*t10*t11*M_PI*t294*t513-.8181736111111113*
3369         t5*M_PI*t512*t513-2.35315*t10*t11*t14*t158*t293-1.402583333333333*
3370         t5*t14*t294*t293-2.614611111111111*t10*t11*t3*t130*t51-.9350555555555555*
3371         t5*t3*t158*t51-6.427244444444445*t1*t2*t4*t511-1.852355555555556*
3372         t12*t13*t15*t152;
3373     t515 = 1/pow(t144,5.0);
3374     t516 = .09514142814814813*t50*t146*t505-.01458295741629629*
3375         t138*t145*t504+2.0574956581925924E-4*t148*t161*t503-9.749122616888889E-7*
3376         t282*t296*t502+1.5166090626844445E-9*t499*t515*t501;
3377     t517 = -51.9472676981276*t70*t74*t75*t165*t218*t219*t220;
3378     t518 = -
3379         51.9472676981276*t70*t167*t75*t79*t218*t219*t220;
3380     t519 = 3.508934038473122*t70*t74*t75*t165*t218*t222*t99;
3381     t520 = 3.508934038473122*
3382         t70*t167*t75*t79*t218*t222*t99;
3383     t521 = -1.754467019236561*t70*t74*t75*t165*t224*t98*t99;
3384     t522 = -
3385         1.754467019236561*t70*t167*t75*t79*t224*t98*t99;
3386     t523 = .1301229705933783*t70*t1*t2*t4*t91*t74*t165*t97*
3387         t98*t99;
3388     t524 = .1301229705933783*t70*t1*t2*t4*t91*t167*t79*t97*
3389         t98*t99;
3390     t525 = pow(t163,3.0);
3391     t526 = t415+t409;
3392     t527 = pow(t164,3.0);
3393     t528 = t410+t414;
3394     t529 = 1.333333333333333*t109*t528-.2962962962962963*
3395         t413*t527+1.333333333333333*t106*t526-.2962962962962963*t408*
3396         t525+1.333333333333333*t164*t237*t303+1.333333333333333*t163*
3397         t231*t301;
3398     t530 = .01975178970256521*t70*t74*t75*t529*t82;
3399     t531 = .05925536910769562*t70*t167*t75*t304*t82;
3400     t532 = .002929848805880505*t70*t1*t2*t4*t213*t74*t165*
3401         t82;
3402     t533 = .05925536910769562*t70*t309*t75*t165*t82;
3403     t534 = .002929848805880505*t70*t1*t2*t4*t213*t167*t79*
3404         t82;
3405     t535 = t470+t426+t425+240.0*t115*t247;
3406     t536 = .01975178970256521*t70*t535*t75*t79*t82;
3407     t537 = 3.0*t165*t258*t70*t72*t73;
3408     t538 = -24.0*t113*t121*t165*t70*t72;
3409     t539 = -24.0*t115*t121*t165*t70*t73;
3410     t540 = t70*t72*t73*t529*t88;
3411     t541 = 60.0*t165*t247*t70*t72*t88;
3412     t542 = 96.0*t113*t115*t165*t70*t88;
3413     t543 = 36.0*t165*t249*t70*t73*t88;
3414     t544 = 192.9880990672242*t289*t508*t136*t510*rhob-2069.133687865597*
3415         t507*t508*t136*t509*rhob+6.0*t154*t295*t159*t136*t292*rhob-
3416         6.0*t154*t508*t136*t291*rhob-96.4940495336121*t289*t295*t159*
3417         t136*t291*rhob-1.0*t154*t514*t136*t160*rhob+t58*(-1.754467019236561*
3418         t70*t309*t75*t79*t97*t98*t99-1.754467019236561*t70*t74*t75*
3419         t304*t97*t98*t99-3.508934038473122*t70*t167*t75*t165*t97*t98*
3420         t99-240.0*t115*t247*t70*t79*t88-12.0*t115*t304*t70*t73*t88-
3421         12.0*t113*t304*t70*t72*t88-.002197386604410379*t70*t1*t2*t4*
3422         t91*t309*t79*t82-.002197386604410379*t70*t1*t2*t4*t91*t74*
3423         t304*t82-.004394773208820758*t70*t1*t2*t4*t91*t167*t165*t82-
3424         12.0*t115*t258*t70*t73*t79+96.0*t113*t115*t121*t70*t79+3.0*
3425         t121*t304*t70*t72*t73+t543+t542+t541+t540+t539+t538+t537+t536+
3426         t534+t533+t532+t531+t530+t524+t523+t522+t521+t520+t519+t518+
3427         t517+t477+t448+t447+t442+t441+t438+t436+t423+t406+t405+t401+
3428         t399+t396+t394+t393+t391+t389+t388+t386+t382+t381+t380+t375+
3429         t374+t373+t372+t371+t370+t368)-3.508934038473122*t70*t167*
3430         t75*t79*t97*t98*t99-3.508934038473122*t70*t74*t75*t165*t97*
3431         t98*t99+96.0*t113*t115*t70*t79*t88+3.0*t304*t70*t72*t73*t88-
3432         24.0*t115*t165*t70*t73*t88-24.0*t113*t165*t70*t72*t88+.05925536910769562*
3433         t70*t309*t75*t79*t82-.004394773208820758*t70*t1*t2*t4*t91*
3434         t167*t79*t82+.05925536910769562*t70*t74*t75*t304*t82+.1185107382153912*
3435         t70*t167*t75*t165*t82-.004394773208820758*t70*t1*t2*t4*t91*
3436         t74*t165*t82-24.0*t115*t121*t70*t73*t79+6.0*t121*t165*t70*
3437         t72*t73+t364+t363+t362+t361+t360+t359+t358+t357+t356+t355+
3438         t354+t353+t352+t351+.001892851318518518*t1*t2*t4*t135*t293+
3439         6.0*t154*t290*t136*t292-96.4940495336121*t289*t290*t136*t291-
3440         3.0*t154*t295*t136*t160+.1369866666666666*t1*t2*t4*t154*t159*
3441         t160*t157-.4109599999999999*t1*t2*t4*t154*t290*t292*t132+6.60919909938887*
3442         t1*t2*t4*t289*t290*t291*t132+0.20548*t1*t2*t4*t154*t295*t160*
3443         t132;
3444     t545 = -0.8627696*t50*t56*t505+0.0297693088*t50*t52*t55*
3445         t505-1.4755614720000004E-4*t50*t53*t126*t505+0.0299536512*
3446         t138*t55*t504-5.59152E-4*t138*t52*t126*t504+2.2765805568E-6*
3447         t138*t53*t269*t504-1.113449472E-4*t148*t126*t503+1.7718663168E-6*
3448         t148*t52*t269*t503-6.622779801600002E-9*t148*t53*t451*t503;
3449     t546 = -
3450         .007488412799999999*grada*t50*t23*t55*t287+1.39788E-4*grada*
3451         t50*t23*t52*t126*t287-5.691451392000002E-7*grada*t50*t23*t53*
3452         t269*t287+8.350871040000001E-5*grada*t138*t23*t126*t286-1.3288997376000003E-6*
3453         grada*t138*t23*t52*t269*t286+4.967084851200001E-9*grada*t138*
3454         t23*t53*t451*t286;
3455     t547 = pow(gradb,9.0);
3456     t548 = 1/pow(rhob,15.33333333333333);
3457     t549 = -6.109468444444444*gradb*t142*t287+17.72073813333334*
3458         t180*t140*t286-11.49540664888889*t178*t149*t285+2.700226389333334*
3459         t319*t283*t284-.2122197674666667*t547*t500*t548;
3460     t550 = -.04077489777777777*gradb*t146*t287+.007998822115555556*
3461         t180*t145*t286-1.2971831751111113E-4*t178*t161*t285+6.778659089066668E-7*
3462         t319*t296*t284-1.1374567970133334E-9*t547*t515*t548;
3463     t551 = 0.3697584*gradb*t56*t287-0.0127582752*gradb*t52*
3464         t55*t287+6.323834880000001E-5*gradb*t53*t126*t287-0.0183806496*
3465         t180*t55*t286+3.4311600000000003E-4*t180*t52*t126*t286-1.3969926144000003E-6*
3466         t180*t53*t269*t286+8.350871040000001E-5*t178*t126*t285-1.3288997376000003E-6*
3467         t178*t52*t269*t285+4.967084851200001E-9*t178*t53*t451*t285;
3468     t552 = 0.0020422944*
3469         t50*t23*t55*t152-3.8124E-5*t50*t23*t52*t126*t152-6.26315328E-5*
3470         t22*t50*t26*t126*t152+1.5522140160000003E-7*t50*t23*t53*t269*
3471         t152+9.966748032000001E-7*t22*t50*t26*t52*t269*t152-3.725313638400001E-9*
3472         t22*t50*t26*t53*t451*t152;
3473     t553 = 0.0040845888*grada*gradb*t23*t55*t152-7.6248E-5*
3474         grada*gradb*t23*t52*t126*t152+3.1044280320000006E-7*grada*
3475         gradb*t23*t53*t269*t152-6.26315328E-5*grada*t180*t23*t126*
3476         t151+9.966748032000001E-7*grada*t180*t23*t52*t269*t151-3.725313638400001E-9*
3477         grada*t180*t23*t53*t451*t151;
3478     t554 = 1/pow(rhob,14.33333333333333);
3479     t555 = 1.666218666666667*t142*t152-8.639581866666667*
3480         t50*t140*t151+6.937563306666668*t138*t149*t150-1.851083264000001*
3481         t148*t283*t320+.1591648256000001*t282*t500*t554;
3482     t556 = .01112042666666667*t146*t152-.003821691733333333*
3483         t50*t145*t151+7.722703530666668E-5*t138*t161*t150-4.6174593024000005E-7*
3484         t148*t296*t320+8.5309259776E-10*t282*t515*t554;
3485     t557 = -0.1008432*t56*t152+0.0034795296*t52*t55*t152-
3486         1.72468224E-5*t53*t126*t152+0.010211472*t50*t55*t151-1.9062E-4*
3487         t50*t52*t126*t151+7.761070080000001E-7*t50*t53*t269*t151-6.26315328E-5*
3488         t138*t126*t150+9.966748032000001E-7*t138*t52*t269*t150-3.725313638400001E-9*
3489         t138*t53*t451*t150;
3490     t558 = 1/pow(rhoa,13.33333333333333);
3491     t559 = 3.3648096*grada*t25*t26-3.884098560000001*t174*
3492         t36*t173+1.239095424*t172*t185*t324-.1193736192000001*t276*
3493         t334*t558;
3494     t560 = 0.00144981504*grada*t32*t26-4.2390727679999995E-5*
3495         t174*t48*t173+3.0632073215999994E-7*t172*t198*t324-6.398194483199999E-10*
3496         t276*t349*t558;
3497     t561 = -.004595162400000001*grada*t26*t55+8.577900000000003E-5*
3498         grada*t26*t52*t126+4.69736496E-5*t174*t173*t126-3.492481536000001E-7*
3499         grada*t26*t53*t269-7.475061024000003E-7*t174*t173*t52*t269+
3500         2.7939852288000006E-9*t174*t173*t53*t451;
3501     t562 = -0.0015317208*gradb*t23*t55*t51+2.8593E-5*gradb*
3502         t23*t52*t126*t51+4.69736496E-5*t22*gradb*t26*t126*t51-1.1641605120000002E-7*
3503         gradb*t23*t53*t269*t51-7.475061024000003E-7*t22*gradb*t26*
3504         t52*t269*t51+2.7939852288000006E-9*t22*gradb*t26*t53*t451*
3505         t51;
3506     t563 = -0.0015317208*grada*t23*t55*t51+2.8593E-5*grada*
3507         t23*t52*t126*t51-1.1641605120000002E-7*grada*t23*t53*t269*
3508         t51+4.69736496E-5*grada*t50*t23*t126*t141-7.475061024000003E-7*
3509         grada*t50*t23*t52*t269*t141+2.7939852288000006E-9*grada*t50*
3510         t23*t53*t451*t141;
3511     t564 = 1/pow(rhob,13.33333333333333);
3512     t565 = 3.3648096*gradb*t140*t141-3.884098560000001*t180*
3513         t149*t179+1.239095424*t178*t283*t329-.1193736192000001*t319*
3514         t500*t564;
3515     t566 = 0.00144981504*gradb*t145*t141-4.2390727679999995E-5*
3516         t180*t161*t179+3.0632073215999994E-7*t178*t296*t329-6.398194483199999E-10*
3517         t319*t515*t564;
3518     t567 = -.004595162400000001*gradb*t55*t141+8.577900000000003E-5*
3519         gradb*t52*t126*t141-3.492481536000001E-7*gradb*t53*t269*t141+
3520         4.69736496E-5*t180*t126*t179-7.475061024000003E-7*t180*t52*
3521         t269*t179+2.7939852288000006E-9*t180*t53*t451*t179;
3522     t568 = pow(grada,12.0);
3523     t569 = 1/pow(t24,6.0);
3524     t570 = 1/pow(rhoa,20.0);
3525     t571 = 1/pow(rhoa,17.33333333333333);
3526     t572 = 1/pow(rhoa,14.66666666666667);
3527     t573 = 1/pow(rhoa,12.0);
3528     t574 = 1/pow(rhoa,9.333333333333334);
3529     t575 = 1/pow(rhoa,6.666666666666667);
3530     t576 = 1/pow(t19,4.0);
3531     t577 = pow(t46,4.0);
3532     t578 = 1/pow(t18,8.0);
3533     t579 = 1/pow(t18,7.0);
3534     t580 = pow(t197,2.0);
3535     t581 = 1/pow(rhoa,3.0);
3536     t582 = pow(M_PI,1.333333333333333);
3537     t583 = 21.42414814814815*t1*t2*t4/pow(rhoa,4.333333333333333)+
3538         1.227260416666667*t23*t5*t582/pow(t7,11.0)+3.272694444444445*
3539         t5*M_PI*t346*t581+3.921916666666666*t10*t11*M_PI*t196*t581+6.972296296296296*
3540         t10*t11*t3*t8*t39+2.493481481481481*t5*t3*t45*t39+6.797988888888888*
3541         t10*t11*t14*t45*t345+4.051907407407407*t5*t14*t196*t345+1.143892361111111*
3542         t10*t11*t582*t346*t23+6.79197037037037*t12*t13*t15*t189;
3543     t584 = 1/
3544         pow(t31,6.0);
3545     t585 = 2069.000588228246*t61*t365*t366*t367;
3546     t586 = -385.9637837316264*t61*t365*t369*t208;
3547     t587 = 192.9818918658132*t61*t215*t93*t207*t208;
3548     t588 = -13.74674343057476*t1*t2*t4*t91*t206*t207*t208;
3549     t589 = 24.0*
3550         t61*t365*t207*t95;
3551     t590 = -24.0*t61*t215*t93*t210*t95;
3552     t591 = 1.7096*t1*t2*t4*t91*t206*t210*t95;
3553     t592 = 4.0*t61*t379*t94*t95;
3554     t593 = -.8547999999999998*t1*t2*t4*t91*t215*t94*t95;
3555     t594 = 1.139733333333333*
3556         t1*t2*t4*t213*t93*t94*t95;
3557     t595 = -4101.558808403119*t70*t74*t75*t79*t383*t384*t385;
3558     t596 = 415.5781415850208*
3559         t70*t74*t75*t79*t383*t387*t220;
3560     t597 = -207.7890707925104*t70*t74*t75*t79*t224*t97*t219*
3561         t220;
3562     t598 = 7.70551137522226*t70*t1*t2*t4*t91*t74*t79*t218*
3563         t219*t220;
3564     t599 = -14.03573615389249*t70*t74*t75*t79*t383*t219*t99;
3565     t600 = 14.03573615389249*
3566         t70*t74*t75*t79*t224*t97*t222*t99;
3567     t601 = -.5204918823735132*t70*t1*t2*t4*t91*t74*t79*t218*
3568         t222*t99;
3569     t602 = -2.339289358982082*t70*t74*t75*t79*t398*t98*t99;
3570     t603 = .2602459411867566*
3571         t70*t1*t2*t4*t91*t74*t79*t224*t98*t99;
3572     t604 = -.3469945882490088*t70*t1*t2*t4*t213*t74*t79*t97*
3573         t98*t99;
3574     t605 = .05512180965925926*t1*t2*t4*t377*t68;
3575     t606 = -0.00911508517385046*t70*t1*t2*t4*t377*t74*t79*
3576         t82;
3577     t607 = 4.0*t435*t70*t72*t73*t79;
3578     t608 = -48.0*t113*t258*t70*t72*t79;
3579     t609 = 240.0*t121*t247*t70*t72*t79;
3580     t610 = 144.0*t121*t249*t70*t73*t79;
3581     t611 = -480.0*t424*t70*t72*t79*t88;
3582     t612 = -576.0*t113*t249*t70*t79*t88;
3583     t613 = pow(t93,4.0);
3584     t614 = 1/pow(t66,8.0);
3585     t615 = 1/pow(t67,4.0);
3586     t616 = 24954.97798673546*t61*t613*t614*t615;
3587     t617 = 1/pow(t66,7.0);
3588     t618 = -6207.001764684737*t61*t613*t617*t367;
3589     t619 = 3103.500882342369*t61*t215*t206*t366*t367;
3590     t620 = -147.3818085681254*t1*t2*t4*t91*t365*t366*t367;
3591     t621 = 578.9456755974396*
3592         t61*t613*t366*t208;
3593     t622 = -578.9456755974396*t61*t215*t206*t369*t208;
3594     t623 = 27.49348686114952*t1*t2*t4*t91*t365*t369*t208;
3595     t624 = pow(t215,
3596         2.0);
3597     t625 = 48.2454729664533*t61*t624*t207*t208;
3598     t626 = 64.3272972886044*t61*t379*t93*t207*t208;
3599     t627 = -13.74674343057476*t1*t2*t4*t91*t215*t93*t207*
3600         t208;
3601     t628 = 9.164495620383173*t1*t2*t4*t213*t206*t207*t208;
3602     t629 = -
3603         24.0*t61*t613*t369*t95;
3604     t630 = 36.0*t61*t215*t206*t207*t95;
3605     t631 = -1.7096*t1*t2*t4*t91*t365*t207*t95;
3606     t632 = -6.0*t61*t624*t210*t95;
3607     t633 = -8.0*t61*t379*t93*t210*t95;
3608     t634 = 1.7096*t1*t2*t4*t91*t215*t93*t210*t95;
3609     t635 = -1.139733333333333*t1*t2*t4*t213*t206*t210*t95;
3610     t636 = 1/
3611         pow(t58,4.666666666666667);
3612     t637 = 1/pow(t58,4.333333333333333);
3613     t638 = 1/pow(t63,11.0);
3614     t639 = 3.750962962962963*t10*t11*t3*t376*t64+3.657188888888888*
3615         t10*t11*t14*t377*t92+1.213481481481482*t5*t3*t376*t92+2.109916666666666*
3616         t10*t11*M_PI*t232*t214+1.971907407407408*t5*t14*t377*t214+.6153923611111111*
3617         t10*t11*t582*t212*t378+1.592694444444445*t5*M_PI*t232*t378+
3618         .5972604166666668*t5*t582*t212*t638+12.40158024691358*t1*t2*
3619         t4*t637+5.355397530864196*t12*t13*t15*t636;
3620     t640 = .9999999999999999*t61*t639*t94*t95;
3621     t641 = -.2849333333333333*t1*t2*t4*t91*t379*t94*t95;
3622     t642 = .5698666666666665*
3623         t1*t2*t4*t213*t215*t94*t95;
3624     t643 = -.8864592592592592*t1*t2*t4*t377*t93*t94*t95;
3625     t644 = pow(t97,
3626         4.0);
3627     t645 = -91080.98259910994*t644*t70*t74*t75*t79/(pow(t80,
3628         8.0)*pow(t81,4.0));
3629     t646 = 12304.67642520936*t385*t644*t70*t74*t75*t79/pow(t80,
3630         7.0);
3631     t647 = -6152.338212604678*t70*t74*t75*t79*t224*t218*t384*
3632         t385;
3633     t648 = 152.0994724782823*t70*t1*t2*t4*t91*t74*t79*t383*
3634         t384*t385;
3635     t649 = -623.3672123775311*t70*t74*t75*t79*t644*t384*t220;
3636     t650 = 623.3672123775311*
3637         t70*t74*t75*t79*t224*t218*t387*t220;
3638     t651 = -15.41102275044452*t70*t1*t2*t4*t91*t74*t79*t383*
3639         t387*t220;
3640     t652 = pow(t224,2.0);
3641     t653 = -51.9472676981276*t70*t74*t75*t79*t652*t219*t220;
3642     t654 = -
3643         69.26302359750346*t70*t74*t75*t79*t398*t97*t219*t220;
3644     t655 = 7.70551137522226*t70*t1*t2*t4*t91*t74*t79*t224*
3645         t97*t219*t220;
3646     t656 = -5.137007583481506*t70*t1*t2*t4*t213*t74*t79*t218*
3647         t219*t220;
3648     t657 = 14.03573615389249*t70*t74*t75*t79*t644*t387*t99;
3649     t658 = -
3650         21.05360423083874*t70*t74*t75*t79*t224*t218*t219*t99;
3651     t659 = .5204918823735132*t70*t1*t2*t4*t91*t74*t79*t383*
3652         t219*t99;
3653     t660 = 3.508934038473122*t70*t74*t75*t79*t652*t222*t99;
3654     t661 = 4.678578717964164*
3655         t70*t74*t75*t79*t398*t97*t222*t99;
3656     t662 = -.5204918823735132*t70*t1*t2*t4*t91*t74*t79*t224*
3657         t97*t222*t99;
3658     t663 = .3469945882490088*t70*t1*t2*t4*t213*t74*t79*t218*
3659         t222*t99;
3660     t664 = -.5848223397455204*t70*t74*t75*t79*(5.114567901234566*
3661         t10*t11*t3*t376*t64+4.986703703703703*t10*t11*t14*t377*t92+
3662         .6520444444444444*t5*t3*t376*t92+2.876944444444444*t10*t11*
3663         M_PI*t232*t214+1.059572222222222*t5*t14*t377*t214+.8391087962962963*
3664         t10*t11*t582*t212*t378+.8558083333333334*t5*M_PI*t232*t378+
3665         0.320928125*t5*t582*t212*t638+12.5242962962963*t1*t2*t4*t637+
3666         5.396355555555555*t12*t13*t15*t636)*t98*t99;
3667     t665 = .08674864706225219*t70*t1*t2*t4*t91*t74*t79*t398*
3668         t98*t99;
3669     t666 = -.1734972941245044*t70*t1*t2*t4*t213*t74*t79*t224*
3670         t98*t99;
3671     t667 = 0.269884679749229*t70*t1*t2*t4*t377*t74*t79*t97*
3672         t98*t99;
3673     t668 = -.04593484138271605*t1*t2*t4*t637*t68;
3674     t669 = 1/pow(t77,2.666666666666667);
3675     t670 = -24.0*t113*t71;
3676     t671 = 24.0*t73;
3677     t672 = 1/pow(t78,2.666666666666667);
3678     t673 = 24.0*t113*t71;
3679     t674 = -24.0*t73;
3680     t675 = 1.333333333333333*t109*(t674+t673)+.4938271604938271*
3681         pow(t108,4.0)*t672+1.333333333333333*t106*(t671+t670)+.4938271604938271*
3682         pow(t105,4.0)*t669+1.777777777777778*t108*t237*t416-1.777777777777778*
3683         t236*t240*t413+1.777777777777778*t105*t231*t411-1.777777777777778*
3684         t230*t235*t408+1.333333333333333*t237*pow(t240,2.0)+1.333333333333333*
3685         t231*pow(t235,2.0);
3686     t676 = .007595904311542051*t70*t1*t2*t4*t637*t74*t79*
3687         t82;
3688     t677 = 1/pow(t58,8.0);
3689     t678 = -840.0*t677*t72;
3690     t679 = -1440.0*t247*t249;
3691     t680 = pow(t118,4.0);
3692     t681 = pow(t257,2.0);
3693     t682 = t70*t72*t73*t79*(.8864592592592592*t1*t2*t4*t377*
3694         t93*t94*t95-.9999999999999999*t61*t639*t94*t95+.2849333333333333*
3695         t1*t2*t4*t91*t379*t94*t95-.5698666666666665*t1*t2*t4*t213*
3696         t215*t94*t95+24.0*t61*t613*t369*t95+8.0*t61*t379*t93*t210*
3697         t95-1.7096*t1*t2*t4*t91*t215*t93*t210*t95+6.0*t61*t624*t210*
3698         t95+1.139733333333333*t1*t2*t4*t213*t206*t210*t95+1.7096*t1*
3699         t2*t4*t91*t365*t207*t95-36.0*t61*t215*t206*t207*t95-.02208326538271604*
3700         t1*t2*t4*t637*t87+199659.0885685683*t680*t84/(pow(t85,8.0)*
3701         pow(t86,4.0))-24829.60425438716*t432*t680*t84/pow(t85,7.0)+
3702         .04593484138271605*t1*t2*t4*t637*t68-24954.97798673546*t61*
3703         t613*t614*t615-566.8874535768302*t1*t2*t4*t91*t430*t431*t432+
3704         12414.80212719358*t84*t257*t253*t431*t432+6207.001764684737*
3705         t61*t613*t617*t367+147.3818085681254*t1*t2*t4*t91*t365*t366*
3706         t367-3103.500882342369*t61*t215*t206*t366*t367+52.87359279511096*
3707         t1*t2*t4*t91*t430*t433*t255-1157.928594403345*t84*t257*t253*
3708         t433*t255+1157.928594403345*t84*t680*t431*t255+96.4940495336121*
3709         t84*t681*t254*t255+17.62453093170365*t1*t2*t4*t213*t253*t254*
3710         t255+128.6587327114828*t84*t434*t118*t254*t255-26.43679639755548*
3711         t1*t2*t4*t91*t257*t118*t254*t255-27.49348686114952*t1*t2*t4*
3712         t91*t365*t369*t208+578.9456755974396*t61*t215*t206*t369*t208-
3713         578.9456755974396*t61*t613*t366*t208-64.3272972886044*t61*
3714         t379*t93*t207*t208+13.74674343057476*t1*t2*t4*t91*t215*t93*
3715         t207*t208-48.2454729664533*t61*t624*t207*t208-9.164495620383173*
3716         t1*t2*t4*t213*t206*t207*t208-24.0*t84*t680*t433*t120-6.0*t84*
3717         t681*t256*t120-1.095893333333333*t1*t2*t4*t213*t253*t256*t120-
3718         8.0*t84*t434*t118*t256*t120+1.64384*t1*t2*t4*t91*t257*t118*
3719         t256*t120-1.64384*t1*t2*t4*t91*t430*t254*t120+36.0*t84*t257*
3720         t253*t254*t120+1.0*t84*(6.972296296296296*t10*t11*t3*t376*
3721         t64+6.797988888888888*t10*t11*t14*t377*t92+2.493481481481481*
3722         t5*t3*t376*t92+3.921916666666666*t10*t11*M_PI*t232*t214+4.051907407407407*
3723         t5*t14*t377*t214+1.143892361111111*t10*t11*t582*t212*t378+
3724         3.272694444444445*t5*M_PI*t232*t378+1.227260416666667*t5*t582*
3725         t212*t638+21.42414814814815*t1*t2*t4*t637+6.79197037037037*
3726         t12*t13*t15*t636)*t119*t120-.2739733333333333*t1*t2*t4*t91*
3727         t434*t119*t120+.5479466666666666*t1*t2*t4*t213*t257*t119*t120-
3728         .8523614814814813*t1*t2*t4*t377*t118*t119*t120);
3729     t683 = -16.0*t113*t435*t70*t72*t79;
3730     t684 = 120.0*t247*t258*t70*t72*t79;
3731     t685 = 72.0*t249*t258*t70*t73*t79;
3732     t686 = -480.0*t121*t424*t70*t72*t79;
3733     t687 = -576.0*t113*t121*t249*t70*t79;
3734     t688 = 840.0*t677*t70*t72*t79*t88;
3735     t689 = 1440.0*t247*t249*t70*t79*t88;
3736     t690 = 24.0*t70*t73*t79*t88;
3737     t691 = 1/pow(t54,6.0);
3738     t692 = -3.508934038473122*t70*t74*t75*t271*t97*t98*t99;
3739     t693 = -
3740         3.508934038473122*t70*t116*t75*t165*t97*t98*t99;
3741     t694 = -3.508934038473122*t70*t167*t75*t110*t97*t98*t99;
3742     t695 = -
3743         3.508934038473122*t70*t272*t75*t79*t97*t98*t99;
3744     t696 = -.004394773208820758*t70*t1*t2*t4*t91*t74*t271*
3745         t82;
3746     t697 = -.004394773208820758*t70*t1*t2*t4*t91*t116*t165*
3747         t82;
3748     t698 = -.004394773208820758*t70*t1*t2*t4*t91*t167*t110*
3749         t82;
3750     t699 = -.004394773208820758*t70*t1*t2*t4*t91*t272*t79*
3751         t82;
3752     t700 = 6.0*t121*t271*t70*t72*t73;
3753     t701 = -24.0*t113*t271*t70*t72*t88;
3754     t702 = -51.9472676981276*t70*t74*t75*t271*t218*t219*t220;
3755     t703 = -
3756         51.9472676981276*t70*t116*t75*t165*t218*t219*t220;
3757     t704 = -51.9472676981276*t70*t167*t75*t110*t218*t219*
3758         t220;
3759     t705 = -51.9472676981276*t70*t272*t75*t79*t218*t219*t220;
3760     t706 = 3.508934038473122*
3761         t70*t74*t75*t271*t218*t222*t99;
3762     t707 = 3.508934038473122*t70*t116*t75*t165*t218*t222*
3763         t99;
3764     t708 = 3.508934038473122*t70*t167*t75*t110*t218*t222*
3765         t99;
3766     t709 = 3.508934038473122*t70*t272*t75*t79*t218*t222*t99;
3767     t710 = -
3768         1.754467019236561*t70*t74*t75*t271*t224*t98*t99;
3769     t711 = -1.754467019236561*t70*t116*t75*t165*t224*t98*
3770         t99;
3771     t712 = -1.754467019236561*t70*t167*t75*t110*t224*t98*
3772         t99;
3773     t713 = -1.754467019236561*t70*t272*t75*t79*t224*t98*t99;
3774     t714 = .1301229705933783*
3775         t70*t1*t2*t4*t91*t74*t271*t97*t98*t99;
3776     t715 = .1301229705933783*t70*t1*t2*t4*t91*t116*t165*t97*
3777         t98*t99;
3778     t716 = .1301229705933783*t70*t1*t2*t4*t91*t167*t110*t97*
3779         t98*t99;
3780     t717 = .1301229705933783*t70*t1*t2*t4*t91*t272*t79*t97*
3781         t98*t99;
3782     t718 = .002929848805880505*t70*t1*t2*t4*t213*t74*t271*
3783         t82;
3784     t719 = 1.333333333333333*t106*(12.0*t73+t670)+1.333333333333333*
3785         t109*(t673-12.0*t73)-1.777777777777778*t232*t236*t413*t71+
3786         1.777777777777778*t230*t232*t408*t71+2.666666666666667*t232*
3787         t237*t240*t71-2.666666666666667*t231*t232*t235*t71+.4938271604938271*
3788         t164*t412*t672+.4938271604938271*t163*t407*t669+1.333333333333333*
3789         t108*t237*t464+1.333333333333333*t105*t231*t463+.4444444444444444*
3790         t164*t237*t416-.8888888888888888*t108*t164*t240*t413+.4444444444444444*
3791         t163*t231*t411-.8888888888888888*t105*t163*t235*t408;
3792     t720 = .002929848805880505*t70*t1*t2*t4*t213*t116*t165*
3793         t82;
3794     t721 = .002929848805880505*t70*t1*t2*t4*t213*t167*t110*
3795         t82;
3796     t722 = .002929848805880505*t70*t1*t2*t4*t213*t272*t79*
3797         t82;
3798     t723 = 3.0*t258*t271*t70*t72*t73;
3799     t724 = -24.0*t113*t121*t271*t70*t72;
3800     t725 = 60.0*t247*t271*t70*t72*t88;
3801     t726 = 36.0*t249*t271*t70*t73*t88;
3802     t727 = -24.0*t70*t73*t79*t88;
3803     t728 = pow(grada,11.0);
3804     t729 = 1/pow(rhoa,19.0);
3805     t730 = -32.0*t106*t113*t71;
3806     t731 = 32.0*t109*t113*t71;
3807     t732 = t731+t730-5.333333333333333*t108*t237*t71*t73+
3808         5.333333333333333*t105*t231*t71*t73-2.37037037037037*t108*
3809         t164*t232*t413*t71+2.37037037037037*t105*t163*t232*t408*t71+
3810         .4938271604938271*t236*t302*t672+.4938271604938271*t230*t300*
3811         t669+.8888888888888888*t164*t237*t464+.8888888888888888*t163*
3812         t231*t463-.2962962962962963*t236*t303*t413-.2962962962962963*
3813         t240*t302*t413-.2962962962962963*t230*t301*t408-.2962962962962963*
3814         t235*t300*t408+.4444444444444444*t237*t240*t303+.4444444444444444*
3815         t231*t235*t301+3.555555555555555*t237*t247*t249+3.555555555555555*
3816         t231*t247*t249-1.777777777777778*t108*t232*t237+1.777777777777778*
3817         t105*t231*t232;
3818     t733 = 1/pow(rhoa,18.0);
3819     t734 = t731+t730-8.0*t164*t237*t71*t73+8.0*t163*t231*
3820         t71*t73+16.0*t109*t73-16.0*t106*t73-1.777777777777778*t232*
3821         t302*t413*t71+1.777777777777778*t232*t300*t408*t71+2.666666666666667*
3822         t232*t237*t303*t71-2.666666666666667*t231*t232*t301*t71+.4938271604938271*
3823         t108*t527*t672+.4938271604938271*t105*t525*t669+.4444444444444444*
3824         t108*t237*t528+.4444444444444444*t105*t231*t526-.8888888888888888*
3825         t108*t164*t303*t413-.8888888888888888*t105*t163*t301*t408-
3826         2.666666666666667*t164*t232*t237+2.666666666666667*t163*t231*
3827         t232;
3828     t735 = 1/pow(rhoa,17.0);
3829     t736 = pow(gradb,12.0);
3830     t737 = 1/pow(t139,6.0);
3831     t738 = 1/pow(rhob,20.0);
3832     t739 = 1/pow(rhob,17.33333333333333);
3833     t740 = 1/pow(rhob,14.66666666666667);
3834     t741 = 1/pow(rhob,12.0);
3835     t742 = 1/pow(rhob,9.333333333333334);
3836     t743 = 1/pow(rhob,6.666666666666667);
3837     t744 = 1/pow(t134,4.0);
3838     t745 = pow(t159,4.0);
3839     t746 = 1/pow(t133,8.0);
3840     t747 = 1/pow(t133,7.0);
3841     t748 = pow(t295,2.0);
3842     t749 = 1/pow(rhob,3.0);
3843     t750 = 21.42414814814815*t1*t2*t4/pow(rhob,4.333333333333333)+
3844         3.272694444444445*t5*M_PI*t512*t749+3.921916666666666*t10*t11*
3845         M_PI*t294*t749+1.227260416666667*t5*t51*t582/pow(t129,11.0)+
3846         4.051907407407407*t5*t14*t294*t511+6.797988888888888*t10*t11*
3847         t14*t158*t511+1.143892361111111*t10*t11*t582*t512*t51+6.79197037037037*
3848         t12*t13*t15*t287+2.493481481481481*t5*t3*t158*t152+6.972296296296296*
3849         t10*t11*t3*t130*t152;
3850     t751 = 1/pow(t144,6.0);
3851     t752 = 1.333333333333333*t106*(t674+t670)+.4938271604938271*
3852         pow(t164,4.0)*t672+1.333333333333333*t109*(t671+t673)+.4938271604938271*
3853         pow(t163,4.0)*t669+1.777777777777778*t164*t237*t528+1.777777777777778*
3854         t163*t231*t526-1.777777777777778*t302*t303*t413-1.777777777777778*
3855         t300*t301*t408+1.333333333333333*t237*pow(t303,2.0)+1.333333333333333*
3856         t231*pow(t301,2.0);
3857     t753 = pow(gradb,11.0);
3858     t754 = 1/pow(rhob,19.0);
3859     t755 = 1/pow(rhob,18.0);
3860     t756 = 1/pow(rhob,17.0);
3861     t757 = 1/pow(rhoa,16.0);
3862     t758 = 1/pow(rhob,16.0);
3863 
3864    /* code */
3865     dfdra = 1.0*t41*t28*t46*t29*t47*rhoa-0.03109*t20*t40*
3866         t29*rhoa-1.0*t30*t34*t4*t6-0.75*t30*t4*t43*t49-0.03109*t20*
3867         t28*t29+.002129457733333333*t1*t2*t4*t20*t28*t17+t127*t137+
3868         t57*t125;
3869     dfdrb = 1.0*t154*t143*t159*t136*t160*rhob-0.03109*t135*
3870         t153*t136*rhob-0.75*t156*t162*t30*t4-1.0*t128*t147*t30*t4+
3871         t57*t170+t171*t137-0.03109*t135*t143*t136+.002129457733333333*
3872         t1*t2*t4*t135*t143*t132;
3873     dfdga = -0.03109*t20*t175*t29*rhoa-0.75*t176*t30*t4*t43+
3874         t177*t137;
3875     dfdgb = -0.03109*t135*t181*t136*rhob-0.75*t156*t182*t30*
3876         t4+t183*t137;
3877     dfdgab = 0.0;
3878     d2fdrara = 2.0*t41*t40*t46*t29*t47*rhoa+1.0*t41*t28*t197*
3879         t29*t47*rhoa-0.03109*t20*t190*t29*rhoa-2.0*t41*t28*t192*t29*
3880         t194*rhoa+32.1646831778707*t191*t28*t192*t29*t193*rhoa-2.0*
3881         t30*t4*t49*t6+2.0*t41*t28*t46*t29*t47+.001419638488888889*
3882         t1*t2*t4*t20*t28*t44-0.75*t199*t30*t4*t43-.3333333333333333*
3883         t16*t30*t34*t4-0.06218*t20*t40*t29+t57*t268-.1369866666666666*
3884         t1*t2*t4*t41*t28*t46*t47*t17+.004258915466666666*t1*t2*t4*
3885         t20*t40*t17+t270*t137+2.0*t125*t127;
3886     d2fdrarb = t275*t137+t171*t125+t127*t170+t57*t274;
3887     d2fdraga = 1.0*t41*t175*t46*t29*t47*rhoa-0.03109*t20*
3888         t278*t29*rhoa-1.0*t176*t30*t4*t6-0.75*t279*t30*t4*t43-0.03109*
3889         t20*t175*t29+.002129457733333333*t1*t2*t4*t20*t175*t17+t280*
3890         t137+t177*t125;
3891     d2fdragb = t281*t137+t183*t125;
3892     d2fdraab = 0.0;
3893     d2fdrbrb = -2.0*t154*t143*t290*t136*t292*rhob+32.1646831778707*
3894         t289*t143*t290*t136*t291*rhob+1.0*t154*t143*t295*t136*t160*
3895         rhob+2.0*t154*t153*t159*t136*t160*rhob-0.03109*t135*t288*t136*
3896         rhob-0.75*t156*t297*t30*t4-2.0*t128*t162*t30*t4-.3333333333333333*
3897         t131*t147*t30*t4+t57*t316+2.0*t170*t171+2.0*t154*t143*t159*
3898         t136*t160+.001419638488888889*t1*t2*t4*t135*t143*t157+t317*
3899         t137-0.06218*t135*t153*t136-.1369866666666666*t1*t2*t4*t154*
3900         t143*t159*t160*t132+.004258915466666666*t1*t2*t4*t135*t153*
3901         t132;
3902     d2fdrbga = t318*t137+t177*t170;
3903     d2fdrbgb = 1.0*t154*t181*t159*t136*t160*rhob-0.03109*
3904         t135*t321*t136*rhob-0.75*t156*t30*t322*t4-1.0*t128*t182*t30*
3905         t4+t183*t170+t323*t137-0.03109*t135*t181*t136+.002129457733333333*
3906         t1*t2*t4*t135*t181*t132;
3907     d2fdrbgab = 0.0;
3908     d2fdgaga = -0.03109*t20*t325*t29*rhoa-0.75*t30*t326*t4*
3909         t43+t327*t137;
3910     d2fdgagb = t328*t137;
3911     d2fdgagab = 0.0;
3912     d2fdgbgb = -0.03109*t135*t330*t136*rhob-0.75*t156*t30*
3913         t331*t4+t332*t137;
3914     d2fdgbgab = 0.0;
3915     d2fdgabgab = 0.0;
3916     d3fdrarara = 3.0*t41*t190*t46*t29*t47*rhoa+1.0*t41*t28*
3917         t348*t29*t47*rhoa+3.0*t41*t40*t197*t29*t47*rhoa-192.9880990672242*
3918         t191*t28*t342*t29*t344*rhoa+2069.133687865597*t341*t28*t342*
3919         t29*t343*rhoa-0.03109*t20*t340*t29*rhoa-6.0*t41*t28*t197*t46*
3920         t29*t194*rhoa-6.0*t41*t40*t192*t29*t194*rhoa+96.4940495336121*
3921         t191*t28*t197*t46*t29*t193*rhoa+6.0*t41*t28*t342*t29*t193*
3922         rhoa+96.4940495336121*t191*t40*t192*t29*t193*rhoa-3.0*t199*
3923         t30*t4*t6-1.0*t16*t30*t4*t49+6.0*t41*t40*t46*t29*t47+3.0*t41*
3924         t28*t197*t29*t47+t57*t450-.1369866666666666*t1*t2*t4*t41*t28*
3925         t46*t47*t44+.004258915466666666*t1*t2*t4*t20*t40*t44-0.75*
3926         t30*t350*t4*t43+.2222222222222222*t30*t34*t4*t42-.09326999999999999*
3927         t20*t190*t29+3.0*t125*t270+3.0*t127*t268-.001892851318518518*
3928         t1*t2*t4*t20*t28*t195-6.0*t41*t28*t192*t29*t194+96.4940495336121*
3929         t191*t28*t192*t29*t193-.4109599999999999*t1*t2*t4*t41*t40*
3930         t46*t47*t17-0.20548*t1*t2*t4*t41*t28*t197*t47*t17+.4109599999999999*
3931         t1*t2*t4*t41*t28*t192*t194*t17-6.60919909938887*t1*t2*t4*t191*
3932         t28*t192*t193*t17+.006388373199999998*t1*t2*t4*t20*t190*t17+
3933         t452*t137;
3934     d3fdrararb = t57*t478+2.0*t125*t275+2.0*t127*t274+t171*
3935         t268+t270*t170+t479*t137;
3936     d3fdraraga = 2.0*t41*t278*t46*t29*t47*rhoa+1.0*t41*t175*
3937         t197*t29*t47*rhoa-0.03109*t20*t482*t29*rhoa-2.0*t41*t175*t192*
3938         t29*t194*rhoa+32.1646831778707*t191*t175*t192*t29*t193*rhoa-
3939         2.0*t279*t30*t4*t6-0.75*t30*t4*t43*t483+2.0*t41*t175*t46*t29*
3940         t47+.001419638488888889*t1*t2*t4*t20*t175*t44-.3333333333333333*
3941         t16*t176*t30*t4-0.06218*t20*t278*t29+2.0*t125*t280+t177*t268-
3942         .1369866666666666*t1*t2*t4*t41*t175*t46*t47*t17+.004258915466666666*
3943         t1*t2*t4*t20*t278*t17+t484*t137;
3944     d3fdraragb = 2.0*t125*t281+t183*t268+t485*t137;
3945     d3fdraraab = 0.0;
3946     d3fdrarbrb = t57*t489+t127*t316+2.0*t170*t275+2.0*t171*
3947         t274+t490*t137+t317*t125;
3948     d3fdrarbga = t491*t137+t318*t125+t280*t170+t177*t274;
3949     d3fdrarbgb = t492*
3950         t137+t323*t125+t281*t170+t183*t274;
3951     d3fdrarbab = 0.0;
3952     d3fdragaga = 1.0*t41*t325*t46*t29*t47*rhoa-0.03109*t20*
3953         t494*t29*rhoa-1.0*t30*t326*t4*t6-0.75*t30*t4*t43*t495-0.03109*
3954         t20*t325*t29+.002129457733333333*t1*t2*t4*t20*t325*t17+t496*
3955         t137+t327*t125;
3956     d3fdragagb = t497*t137+t328*t125;
3957     d3fdragaab = 0.0;
3958     d3fdragbgb = t498*t137+t332*t125;
3959     d3fdragbab = 0.0;
3960     d3fdraabab = 0.0;
3961     d3fdrbrbrb = -192.9880990672242*t289*t143*t508*t136*t510*
3962         rhob+2069.133687865597*t507*t143*t508*t136*t509*rhob-6.0*t154*
3963         t153*t290*t136*t292*rhob-6.0*t154*t143*t295*t159*t136*t292*
3964         rhob+6.0*t154*t143*t508*t136*t291*rhob+96.4940495336121*t289*
3965         t153*t290*t136*t291*rhob+96.4940495336121*t289*t143*t295*t159*
3966         t136*t291*rhob+1.0*t154*t143*t514*t136*t160*rhob+3.0*t154*
3967         t153*t295*t136*t160*rhob+3.0*t154*t288*t159*t136*t160*rhob-
3968         0.03109*t135*t506*t136*rhob+t57*t544-0.75*t156*t30*t4*t516-
3969         3.0*t128*t297*t30*t4-1.0*t131*t162*t30*t4+.2222222222222222*
3970         t147*t155*t30*t4+3.0*t170*t317+3.0*t171*t316-.001892851318518518*
3971         t1*t2*t4*t135*t143*t293-6.0*t154*t143*t290*t136*t292+96.4940495336121*
3972         t289*t143*t290*t136*t291+3.0*t154*t143*t295*t136*t160+6.0*
3973         t154*t153*t159*t136*t160-.1369866666666666*t1*t2*t4*t154*t143*
3974         t159*t160*t157+.004258915466666666*t1*t2*t4*t135*t153*t157+
3975         t545*t137-.09326999999999999*t135*t288*t136+.4109599999999999*
3976         t1*t2*t4*t154*t143*t290*t292*t132-6.60919909938887*t1*t2*t4*
3977         t289*t143*t290*t291*t132+.006388373199999998*t1*t2*t4*t135*
3978         t288*t132-0.20548*t1*t2*t4*t154*t143*t295*t160*t132-.4109599999999999*
3979         t1*t2*t4*t154*t153*t159*t160*t132;
3980     d3fdrbrbga = 2.0*t170*t318+t177*t316+t546*t137;
3981     d3fdrbrbgb = -2.0*t154*t181*t290*t136*t292*rhob+32.1646831778707*
3982         t289*t181*t290*t136*t291*rhob+1.0*t154*t181*t295*t136*t160*
3983         rhob+2.0*t154*t321*t159*t136*t160*rhob-0.03109*t135*t549*t136*
3984         rhob-0.75*t156*t30*t4*t550-2.0*t128*t30*t322*t4-.3333333333333333*
3985         t131*t182*t30*t4+2.0*t170*t323+t183*t316+2.0*t154*t181*t159*
3986         t136*t160+.001419638488888889*t1*t2*t4*t135*t181*t157+t551*
3987         t137-0.06218*t135*t321*t136+.004258915466666666*t1*t2*t4*t135*
3988         t321*t132-.1369866666666666*t1*t2*t4*t154*t181*t159*t160*t132;
3989     d3fdrbrbab = 0.0;
3990     d3fdrbgaga = t552*
3991         t137+t327*t170;
3992     d3fdrbgagb = t553*t137+t328*t170;
3993     d3fdrbgaab = 0.0;
3994     d3fdrbgbgb = 1.0*t154*t330*t159*t136*t160*rhob-0.03109*
3995         t135*t555*t136*rhob-0.75*t156*t30*t4*t556-1.0*t128*t30*t331*
3996         t4+t332*t170+t557*t137-0.03109*t135*t330*t136+.002129457733333333*
3997         t1*t2*t4*t135*t330*t132;
3998     d3fdrbgbab = 0.0;
3999     d3fdrbabab = 0.0;
4000     d3fdgagaga = -0.03109*t20*t559*t29*rhoa-0.75*t30*t4*t43*
4001         t560+t561*t137;
4002     d3fdgagagb = t562*t137;
4003     d3fdgagaab = 0.0;
4004     d3fdgagbgb = t563*t137;
4005     d3fdgagbab = 0.0;
4006     d3fdgaabab = 0.0;
4007     d3fdgbgbgb = -0.03109*t135*t565*t136*rhob-0.75*t156*t30*
4008         t4*t566+t567*t137;
4009     d3fdgbgbab = 0.0;
4010     d3fdgbabab = 0.0;
4011     d3fdababab = 0.0;
4012     d4fdrararara = t57*(24829.60425438716*t341*t577*t29*t579*
4013         rhoa-199659.0885685683*t576*t577*t29*t578*rhoa-1.0*t41*t583*
4014         t29*t47*rhoa+24.0*t41*t577*t29*t344*rhoa+1157.928594403345*
4015         t191*t197*t192*t29*t344*rhoa-1157.928594403345*t191*t577*t29*
4016         t343*rhoa-12414.80212719358*t341*t197*t192*t29*t343*rhoa+6.0*
4017         t41*t580*t29*t194*rhoa+8.0*t41*t348*t46*t29*t194*rhoa-96.4940495336121*
4018         t191*t580*t29*t193*rhoa-128.6587327114828*t191*t348*t46*t29*
4019         t193*rhoa-36.0*t41*t197*t192*t29*t193*rhoa+t58*(-2.339289358982082*
4020         t70*t428*t75*t79*t97*t98*t99+.2602459411867566*t70*t1*t2*t4*
4021         t91*t251*t79*t97*t98*t99-.3469945882490088*t70*t1*t2*t4*t213*
4022         t116*t79*t97*t98*t99-2.339289358982082*t70*t74*t75*t417*t97*
4023         t98*t99-7.017868076946245*t70*t116*t75*t241*t97*t98*t99+.2602459411867566*
4024         t70*t1*t2*t4*t91*t74*t241*t97*t98*t99-7.017868076946245*t70*
4025         t251*t75*t110*t97*t98*t99-.3469945882490088*t70*t1*t2*t4*t213*
4026         t74*t110*t97*t98*t99+.5204918823735132*t70*t1*t2*t4*t91*t116*
4027         t110*t97*t98*t99-2.339289358982082*t70*t116*t75*t79*t398*t98*
4028         t99-2.339289358982082*t70*t74*t75*t110*t398*t98*t99-3.508934038473122*
4029         t70*t251*t75*t79*t224*t98*t99+.2602459411867566*t70*t1*t2*
4030         t4*t91*t116*t79*t224*t98*t99-3.508934038473122*t70*t74*t75*
4031         t241*t224*t98*t99-7.017868076946245*t70*t116*t75*t110*t224*
4032         t98*t99+.2602459411867566*t70*t1*t2*t4*t91*t74*t110*t224*t98*
4033         t99+14.03573615389249*t70*t116*t75*t79*t224*t97*t222*t99+14.03573615389249*
4034         t70*t74*t75*t110*t224*t97*t222*t99+7.017868076946245*t70*t251*
4035         t75*t79*t218*t222*t99-.5204918823735132*t70*t1*t2*t4*t91*t116*
4036         t79*t218*t222*t99+7.017868076946245*t70*t74*t75*t241*t218*
4037         t222*t99+14.03573615389249*t70*t116*t75*t110*t218*t222*t99-
4038         .5204918823735132*t70*t1*t2*t4*t91*t74*t110*t218*t222*t99-
4039         14.03573615389249*t70*t116*t75*t79*t383*t219*t99-14.03573615389249*
4040         t70*t74*t75*t110*t383*t219*t99-384.0*t113*t70*t71*t79*t88-
4041         1920.0*t115*t424*t70*t79*t88+96.0*t110*t70*t71*t73*t88+16.0*
4042         t115*t417*t70*t73*t88+72.0*t241*t249*t70*t73*t88-480.0*t110*
4043         t424*t70*t72*t88-16.0*t113*t417*t70*t72*t88+120.0*t241*t247*
4044         t70*t72*t88-576.0*t110*t113*t249*t70*t88+960.0*t110*t115*t247*
4045         t70*t88-192.0*t113*t115*t241*t70*t88+t70*t72*t73*t675*t88+
4046         .01975178970256521*t70*(384.0*t113*t71+t679+t678+t674+1920.0*
4047         t115*t424)*t75*t79*t82-.002929848805880505*t70*t1*t2*t4*t91*
4048         t428*t79*t82+0.00585969761176101*t70*t1*t2*t4*t213*t251*t79*
4049         t82-0.00911508517385046*t70*t1*t2*t4*t377*t116*t79*t82+.01975178970256521*
4050         t70*t74*t75*t675*t82+.07900715881026082*t70*t116*t75*t417*
4051         t82-.002929848805880505*t70*t1*t2*t4*t91*t74*t417*t82+.1185107382153912*
4052         t70*t251*t75*t241*t82+0.00585969761176101*t70*t1*t2*t4*t213*
4053         t74*t241*t82-.008789546417641516*t70*t1*t2*t4*t91*t116*t241*
4054         t82+.07900715881026082*t70*t428*t75*t110*t82-0.00911508517385046*
4055         t70*t1*t2*t4*t377*t74*t110*t82-.008789546417641516*t70*t1*
4056         t2*t4*t91*t251*t110*t82+.01171939522352202*t70*t1*t2*t4*t213*
4057         t116*t110*t82+96.0*t121*t70*t71*t73*t79+16.0*t115*t435*t70*
4058         t73*t79-192.0*t113*t115*t258*t70*t79+960.0*t115*t121*t247*
4059         t70*t79+4.0*t110*t435*t70*t72*t73+4.0*t121*t417*t70*t72*t73+
4060         6.0*t241*t258*t70*t72*t73+48.0*t110*t115*t258*t70*t73+144.0*
4061         t110*t121*t249*t70*t73+48.0*t115*t121*t241*t70*t73-48.0*t110*
4062         t113*t258*t70*t72+240.0*t110*t121*t247*t70*t72-48.0*t113*t121*
4063         t241*t70*t72-384.0*t110*t113*t115*t121*t70+t690+t689+t688+
4064         t687+t686+t685+t684+t683+t682+t676+t668+t667+t666+t665+t664+
4065         t663+t662+t661+t660+t659+t658+t657+t656+t655+t654+t653+t651+
4066         t650+t649+t648+t647+t646+t645+t643+t642+t641+t640+t635+t634+
4067         t633+t632+t631+t630+t629+t628+t627+t626+t625+t623+t622+t621+
4068         t620+t619+t618+t616-4101.558808403119*t70*t116*t75*t79*t383*
4069         t384*t385-4101.558808403119*t70*t74*t75*t110*t383*t384*t385+
4070         415.5781415850207*t70*t116*t75*t79*t383*t387*t220+415.5781415850207*
4071         t70*t74*t75*t110*t383*t387*t220-207.7890707925104*t70*t116*
4072         t75*t79*t224*t97*t219*t220-207.7890707925104*t70*t74*t75*t110*
4073         t224*t97*t219*t220-103.8945353962552*t70*t251*t75*t79*t218*
4074         t219*t220+7.70551137522226*t70*t1*t2*t4*t91*t116*t79*t218*
4075         t219*t220-103.8945353962552*t70*t74*t75*t241*t218*t219*t220-
4076         207.7890707925104*t70*t116*t75*t110*t218*t219*t220+7.70551137522226*
4077         t70*t1*t2*t4*t91*t74*t110*t218*t219*t220)-7.017868076946245*
4078         t70*t251*t75*t79*t97*t98*t99+.5204918823735132*t70*t1*t2*t4*
4079         t91*t116*t79*t97*t98*t99-7.017868076946245*t70*t74*t75*t241*
4080         t97*t98*t99-14.03573615389249*t70*t116*t75*t110*t97*t98*t99+
4081         .5204918823735132*t70*t1*t2*t4*t91*t74*t110*t97*t98*t99-7.017868076946245*
4082         t70*t116*t75*t79*t224*t98*t99-7.017868076946245*t70*t74*t75*
4083         t110*t224*t98*t99+14.03573615389249*t70*t116*t75*t79*t218*
4084         t222*t99+14.03573615389249*t70*t74*t75*t110*t218*t222*t99+
4085         96.0*t70*t71*t73*t79*t88+960.0*t115*t247*t70*t79*t88+4.0*t417*
4086         t70*t72*t73*t88+144.0*t110*t249*t70*t73*t88+48.0*t115*t241*
4087         t70*t73*t88+240.0*t110*t247*t70*t72*t88-48.0*t113*t241*t70*
4088         t72*t88-384.0*t110*t113*t115*t70*t88+.07900715881026082*t70*
4089         t428*t75*t79*t82-.008789546417641516*t70*t1*t2*t4*t91*t251*
4090         t79*t82+.01171939522352202*t70*t1*t2*t4*t213*t116*t79*t82+
4091         .07900715881026082*t70*t74*t75*t417*t82+.2370214764307825*
4092         t70*t116*t75*t241*t82-.008789546417641516*t70*t1*t2*t4*t91*
4093         t74*t241*t82+.2370214764307825*t70*t251*t75*t110*t82+.01171939522352202*
4094         t70*t1*t2*t4*t213*t74*t110*t82-.01757909283528303*t70*t1*t2*
4095         t4*t91*t116*t110*t82+48.0*t115*t258*t70*t73*t79-384.0*t113*
4096         t115*t121*t70*t79+12.0*t110*t258*t70*t72*t73+12.0*t121*t241*
4097         t70*t72*t73+96.0*t110*t115*t121*t70*t73-96.0*t110*t113*t121*
4098         t70*t72+t612+t611+t610+t609+t608+t607+t606+t605+t604+t603+
4099         t602+t601+t600+t599+t598+t597+t596+t595+t594+t593+t592+t591+
4100         t590+t589+t588+t587+t586+t585-4.0*t41*t348*t29*t47+.2739733333333333*
4101         t1*t2*t4*t41*t197*t47*t44-.5479466666666666*t1*t2*t4*t41*t192*
4102         t194*t44+8.812265465851826*t1*t2*t4*t191*t192*t193*t44-.004416653076543209*
4103         t1*t2*t4*t20*t345+771.9523962688968*t191*t342*t29*t344-8276.534751462386*
4104         t341*t342*t29*t343-207.7890707925104*t70*t116*t75*t79*t218*
4105         t219*t220-207.7890707925104*t70*t74*t75*t110*t218*t219*t220-
4106         .2435318518518518*t1*t2*t4*t41*t46*t47*t195+24.0*t41*t197*
4107         t46*t29*t194-385.9761981344484*t191*t197*t46*t29*t193-24.0*
4108         t41*t342*t29*t193+.2739733333333333*t1*t2*t4*t41*t348*t47*
4109         t17-52.87359279511096*t1*t2*t4*t191*t342*t344*t17+566.8874535768302*
4110         t1*t2*t4*t341*t342*t343*t17-1.64384*t1*t2*t4*t41*t197*t46*
4111         t194*t17+26.43679639755548*t1*t2*t4*t191*t197*t46*t193*t17+
4112         1.64384*t1*t2*t4*t41*t342*t193*t17)-24829.60425438716*t341*
4113         t28*t577*t29*t579*rhoa+199659.0885685683*t576*t28*t577*t29*
4114         t578*rhoa+1.0*t41*t28*t583*t29*t47*rhoa+4.0*t41*t340*t46*t29*
4115         t47*rhoa+4.0*t41*t40*t348*t29*t47*rhoa+6.0*t41*t190*t197*t29*
4116         t47*rhoa-24.0*t41*t28*t577*t29*t344*rhoa-771.9523962688968*
4117         t191*t40*t342*t29*t344*rhoa-1157.928594403345*t191*t28*t197*
4118         t192*t29*t344*rhoa+1157.928594403345*t191*t28*t577*t29*t343*
4119         rhoa+8276.534751462386*t341*t40*t342*t29*t343*rhoa+12414.80212719358*
4120         t341*t28*t197*t192*t29*t343*rhoa-0.03109*t20*(-80.78074943209877*
4121         t22*t27*t575+273.2451696197531*t21*t25*t574-232.6521805748148*
4122         t35*t36*t573+81.72408733392592*t184*t185*t572-12.86823826773334*
4123         t333*t334*t571+.7545591732148149*t568*t569*t570)*t29*rhoa-
4124         6.0*t41*t28*t580*t29*t194*rhoa-8.0*t41*t28*t348*t46*t29*t194*
4125         rhoa-24.0*t41*t40*t197*t46*t29*t194*rhoa-12.0*t41*t190*t192*
4126         t29*t194*rhoa+96.4940495336121*t191*t28*t580*t29*t193*rhoa+
4127         128.6587327114828*t191*t28*t348*t46*t29*t193*rhoa+385.9761981344484*
4128         t191*t40*t197*t46*t29*t193*rhoa+24.0*t41*t40*t342*t29*t193*
4129         rhoa+36.0*t41*t28*t197*t192*t29*t193*rhoa+192.9880990672242*
4130         t191*t190*t192*t29*t193*rhoa-4.0*t30*t350*t4*t6-0.75*t30*t4*
4131         t43*(-.5391347595061727*t22*t33*t575+.1225394870360494*t21*
4132         t32*t574-.002574348315559506*t35*t48*t573+1.9907787015964443E-5*
4133         t184*t198*t572-6.636753785590519E-8*t333*t349*t571+8.08858166765037E-11*
4134         t568*t584*t570)+.8888888888888888*t30*t4*t42*t49+12.0*t41*
4135         t190*t46*t29*t47+4.0*t41*t28*t348*t29*t47+12.0*t41*t40*t197*
4136         t29*t47+4.0*t125*t452+4.0*t127*t450-.5479466666666666*t1*t2*
4137         t4*t41*t40*t46*t47*t44-.2739733333333333*t1*t2*t4*t41*t28*
4138         t197*t47*t44+.5479466666666666*t1*t2*t4*t41*t28*t192*t194*
4139         t44-8.812265465851826*t1*t2*t4*t191*t28*t192*t193*t44+.008517830933333331*
4140         t1*t2*t4*t20*t190*t44-.3703703703703703*t23*t30*t34*t4-2.0*
4141         t16*t199*t30*t4+.004416653076543209*t1*t2*t4*t20*t28*t345-
4142         771.9523962688968*t191*t28*t342*t29*t344+8276.534751462386*
4143         t341*t28*t342*t29*t343-0.12436*t20*t340*t29+6.0*t268*t270+
4144         .2435318518518518*t1*t2*t4*t41*t28*t46*t47*t195-.007571405274074072*
4145         t1*t2*t4*t20*t40*t195-24.0*t41*t28*t197*t46*t29*t194-24.0*
4146         t41*t40*t192*t29*t194+385.9761981344484*t191*t28*t197*t46*
4147         t29*t193+24.0*t41*t28*t342*t29*t193+385.9761981344484*t191*
4148         t40*t192*t29*t193-.8219199999999999*t1*t2*t4*t41*t190*t46*
4149         t47*t17-.2739733333333333*t1*t2*t4*t41*t28*t348*t47*t17-.8219199999999999*
4150         t1*t2*t4*t41*t40*t197*t47*t17+52.87359279511096*t1*t2*t4*t191*
4151         t28*t342*t344*t17-566.8874535768302*t1*t2*t4*t341*t28*t342*
4152         t343*t17+.008517830933333331*t1*t2*t4*t20*t340*t17+1.64384*
4153         t1*t2*t4*t41*t28*t197*t46*t194*t17+1.64384*t1*t2*t4*t41*t40*
4154         t192*t194*t17-26.43679639755548*t1*t2*t4*t191*t28*t197*t46*
4155         t193*t17-1.64384*t1*t2*t4*t41*t28*t342*t193*t17-26.43679639755548*
4156         t1*t2*t4*t191*t40*t192*t193*t17+(4.889027733333334*t22*t575*
4157         t56-.1686927498666667*t22*t575*t52*t55-.2962083285333333*t21*
4158         t574*t55+8.361515008000002E-4*t22*t575*t53*t126+.005529392000000001*
4159         t21*t574*t52*t126+0.0024495888384*t35*t573*t126-2.2512852172800005E-5*
4160         t21*t574*t53*t269-3.898105896960001E-5*t35*t573*t52*t269-5.034767155200001E-6*
4161         t184*t572*t269+1.4570115563520003E-7*t35*t573*t53*t451+7.436046827520002E-8*
4162         t184*t572*t52*t451-2.64911192064E-10*t184*t572*t53*t691)*t137;
4163     d4fdrarararb = t57*
4164         (t58*(-1.754467019236561*t70*t471*t75*t79*t97*t98*t99-.5848223397455204*
4165         t70*t428*t75*t79*t97*t98*t99+.1301229705933783*t70*t1*t2*t4*
4166         t91*t251*t79*t97*t98*t99-.08674864706225219*t70*t1*t2*t4*t213*
4167         t167*t79*t97*t98*t99-.2602459411867566*t70*t1*t2*t4*t213*t116*
4168         t79*t97*t98*t99-1.754467019236561*t70*t74*t75*t465*t97*t98*
4169         t99-.5848223397455204*t70*t74*t75*t417*t97*t98*t99-3.508934038473122*
4170         t70*t116*t75*t271*t97*t98*t99-1.754467019236561*t70*t167*t75*
4171         t241*t97*t98*t99-1.754467019236561*t70*t116*t75*t241*t97*t98*
4172         t99+.1301229705933783*t70*t1*t2*t4*t91*t74*t241*t97*t98*t99-
4173         1.754467019236561*t70*t251*t75*t165*t97*t98*t99-.08674864706225219*
4174         t70*t1*t2*t4*t213*t74*t165*t97*t98*t99-3.508934038473122*t70*
4175         t272*t75*t110*t97*t98*t99-1.754467019236561*t70*t251*t75*t110*
4176         t97*t98*t99-.2602459411867566*t70*t1*t2*t4*t213*t74*t110*t97*
4177         t98*t99+.2602459411867565*t70*t1*t2*t4*t91*t116*t110*t97*t98*
4178         t99-.5848223397455204*t70*t167*t75*t79*t398*t98*t99-1.754467019236561*
4179         t70*t116*t75*t79*t398*t98*t99-.5848223397455204*t70*t74*t75*
4180         t165*t398*t98*t99-1.754467019236561*t70*t74*t75*t110*t398*
4181         t98*t99-1.754467019236561*t70*t251*t75*t79*t224*t98*t99+.06506148529668915*
4182         t70*t1*t2*t4*t91*t167*t79*t224*t98*t99+.1951844558900674*t70*
4183         t1*t2*t4*t91*t116*t79*t224*t98*t99-1.754467019236561*t70*t74*
4184         t75*t241*t224*t98*t99+.06506148529668915*t70*t1*t2*t4*t91*
4185         t74*t165*t224*t98*t99-3.508934038473122*t70*t116*t75*t110*
4186         t224*t98*t99+.1951844558900674*t70*t1*t2*t4*t91*t74*t110*t224*
4187         t98*t99+3.508934038473122*t70*t167*t75*t79*t224*t97*t222*t99+
4188         10.52680211541937*t70*t116*t75*t79*t224*t97*t222*t99+3.508934038473122*
4189         t70*t74*t75*t165*t224*t97*t222*t99+10.52680211541937*t70*t74*
4190         t75*t110*t224*t97*t222*t99+3.508934038473122*t70*t251*t75*
4191         t79*t218*t222*t99-.1301229705933783*t70*t1*t2*t4*t91*t167*
4192         t79*t218*t222*t99-.3903689117801349*t70*t1*t2*t4*t91*t116*
4193         t79*t218*t222*t99+3.508934038473122*t70*t74*t75*t241*t218*
4194         t222*t99-.1301229705933783*t70*t1*t2*t4*t91*t74*t165*t218*
4195         t222*t99+7.017868076946245*t70*t116*t75*t110*t218*t222*t99-
4196         .3903689117801349*t70*t1*t2*t4*t91*t74*t110*t218*t222*t99-
4197         3.508934038473122*t70*t167*t75*t79*t383*t219*t99-10.52680211541937*
4198         t70*t116*t75*t79*t383*t219*t99-3.508934038473122*t70*t74*t75*
4199         t165*t383*t219*t99-10.52680211541937*t70*t74*t75*t110*t383*
4200         t219*t99+192.0*t113*t70*t71*t79*t88-960.0*t115*t424*t70*t79*
4201         t88+24.0*t165*t70*t71*t73*t88-72.0*t110*t70*t71*t73*t88+12.0*
4202         t115*t465*t70*t73*t88-4.0*t115*t417*t70*t73*t88-36.0*t241*
4203         t249*t70*t73*t88-12.0*t113*t465*t70*t72*t88-120.0*t165*t424*
4204         t70*t72*t88-360.0*t110*t424*t70*t72*t88-4.0*t113*t417*t70*
4205         t72*t88+60.0*t241*t247*t70*t72*t88+t70*t72*t73*t719*t88-96.0*
4206         t113*t115*t271*t70*t88-144.0*t113*t165*t249*t70*t88+144.0*
4207         t110*t113*t249*t70*t88+240.0*t115*t165*t247*t70*t88+240.0*
4208         t110*t115*t247*t70*t88+.01975178970256521*t70*(-192.0*t113*
4209         t71+t678+t671+960.0*t115*t424)*t75*t79*t82-.002197386604410379*
4210         t70*t1*t2*t4*t91*t471*t79*t82-7.324622014701263E-4*t70*t1*
4211         t2*t4*t91*t428*t79*t82+.002929848805880505*t70*t1*t2*t4*t213*
4212         t251*t79*t82-.002278771293462615*t70*t1*t2*t4*t377*t167*t79*
4213         t82-.006836313880387846*t70*t1*t2*t4*t377*t116*t79*t82+.01975178970256521*
4214         t70*t74*t75*t719*t82+.05925536910769562*t70*t116*t75*t465*
4215         t82-.002197386604410379*t70*t1*t2*t4*t91*t74*t465*t82+.01975178970256521*
4216         t70*t167*t75*t417*t82-7.324622014701263E-4*t70*t1*t2*t4*t91*
4217         t74*t417*t82+.05925536910769562*t70*t251*t75*t271*t82-.004394773208820758*
4218         t70*t1*t2*t4*t91*t116*t271*t82+.05925536910769562*t70*t272*
4219         t75*t241*t82+.002929848805880505*t70*t1*t2*t4*t213*t74*t241*
4220         t82-.002197386604410379*t70*t1*t2*t4*t91*t167*t241*t82-.002197386604410379*
4221         t70*t1*t2*t4*t91*t116*t241*t82+.01975178970256521*t70*t428*
4222         t75*t165*t82-.002278771293462615*t70*t1*t2*t4*t377*t74*t165*
4223         t82-.002197386604410379*t70*t1*t2*t4*t91*t251*t165*t82+.05925536910769562*
4224         t70*t471*t75*t110*t82-.006836313880387846*t70*t1*t2*t4*t377*
4225         t74*t110*t82-.004394773208820758*t70*t1*t2*t4*t91*t272*t110*
4226         t82-.002197386604410379*t70*t1*t2*t4*t91*t251*t110*t82+0.00585969761176101*
4227         t70*t1*t2*t4*t213*t116*t110*t82-48.0*t121*t70*t71*t73*t79+
4228         8.0*t115*t435*t70*t73*t79-96.0*t113*t115*t258*t70*t79+480.0*
4229         t115*t121*t247*t70*t79+3.0*t121*t465*t70*t72*t73+3.0*t110*
4230         t435*t70*t72*t73+3.0*t241*t258*t70*t72*t73+24.0*t115*t121*
4231         t271*t70*t73+12.0*t115*t165*t258*t70*t73+12.0*t110*t115*t258*
4232         t70*t73+36.0*t121*t165*t249*t70*t73-36.0*t110*t121*t249*t70*
4233         t73+t727+t726+t725+t724+t723+t722+t721+t720-12.0*t113*t165*
4234         t258*t70*t72-36.0*t110*t113*t258*t70*t72+60.0*t121*t165*t247*
4235         t70*t72+180.0*t110*t121*t247*t70*t72-24.0*t113*t121*t241*t70*
4236         t72+t718+t717+t716+t715+t714+t713+t712+t711+t710+t709+t708+
4237         t707+t706+t705+t704+t703+t702-96.0*t113*t115*t121*t165*t70-
4238         96.0*t110*t113*t115*t121*t70+t688+t686+t684+t683+t682+t676+
4239         t668+t667+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+
4240         t656+t655+t654+t653+t651+t650+t649+t648+t647+t646+t645+t643+
4241         t642+t641+t640+t635+t634+t633+t632+t631+t630+t629+t628+t627+
4242         t626+t625+t623+t622+t621+t620+t619+t618+t616+t70*t72*t73*t165*
4243         t435-1025.38970210078*t70*t167*t75*t79*t383*t384*t385-3076.169106302339*
4244         t70*t116*t75*t79*t383*t384*t385-1025.38970210078*t70*t74*t75*
4245         t165*t383*t384*t385-3076.169106302339*t70*t74*t75*t110*t383*
4246         t384*t385+103.8945353962552*t70*t167*t75*t79*t383*t387*t220+
4247         311.6836061887656*t70*t116*t75*t79*t383*t387*t220+103.8945353962552*
4248         t70*t74*t75*t165*t383*t387*t220+311.6836061887656*t70*t74*
4249         t75*t110*t383*t387*t220-51.9472676981276*t70*t167*t75*t79*
4250         t224*t97*t219*t220-155.8418030943828*t70*t116*t75*t79*t224*
4251         t97*t219*t220-51.9472676981276*t70*t74*t75*t165*t224*t97*t219*
4252         t220-155.8418030943828*t70*t74*t75*t110*t224*t97*t219*t220-
4253         51.94726769812759*t70*t251*t75*t79*t218*t219*t220+1.926377843805565*
4254         t70*t1*t2*t4*t91*t167*t79*t218*t219*t220+5.779133531416695*
4255         t70*t1*t2*t4*t91*t116*t79*t218*t219*t220-51.94726769812759*
4256         t70*t74*t75*t241*t218*t219*t220+1.926377843805565*t70*t1*t2*
4257         t4*t91*t74*t165*t218*t219*t220-103.8945353962552*t70*t116*
4258         t75*t110*t218*t219*t220+5.779133531416695*t70*t1*t2*t4*t91*
4259         t74*t110*t218*t219*t220+t70*t72*t73*t417*t121)-3.508934038473122*
4260         t70*t251*t75*t79*t97*t98*t99+.3903689117801348*t70*t1*t2*t4*
4261         t91*t116*t79*t97*t98*t99-3.508934038473122*t70*t74*t75*t241*
4262         t97*t98*t99-7.017868076946245*t70*t116*t75*t110*t97*t98*t99+
4263         .3903689117801348*t70*t1*t2*t4*t91*t74*t110*t97*t98*t99-5.263401057709684*
4264         t70*t116*t75*t79*t224*t98*t99-5.263401057709684*t70*t74*t75*
4265         t110*t224*t98*t99+10.52680211541937*t70*t116*t75*t79*t218*
4266         t222*t99+10.52680211541937*t70*t74*t75*t110*t218*t222*t99-
4267         48.0*t70*t71*t73*t79*t88+480.0*t115*t247*t70*t79*t88+3.0*t465*
4268         t70*t72*t73*t88+24.0*t115*t271*t70*t73*t88-36.0*t110*t249*
4269         t70*t73*t88+180.0*t110*t247*t70*t72*t88-24.0*t113*t241*t70*
4270         t72*t88-96.0*t113*t115*t165*t70*t88+.05925536910769562*t70*
4271         t471*t75*t79*t82-.004394773208820758*t70*t1*t2*t4*t91*t251*
4272         t79*t82+.008789546417641516*t70*t1*t2*t4*t213*t116*t79*t82+
4273         .05925536910769562*t70*t74*t75*t465*t82+.1185107382153912*
4274         t70*t116*t75*t271*t82+.05925536910769562*t70*t167*t75*t241*
4275         t82-.004394773208820758*t70*t1*t2*t4*t91*t74*t241*t82+.05925536910769562*
4276         t70*t251*t75*t165*t82+.1185107382153912*t70*t272*t75*t110*
4277         t82+.008789546417641516*t70*t1*t2*t4*t213*t74*t110*t82-.008789546417641516*
4278         t70*t1*t2*t4*t91*t116*t110*t82+24.0*t115*t258*t70*t73*t79-
4279         192.0*t113*t115*t121*t70*t79+9.0*t110*t258*t70*t72*t73+6.0*
4280         t121*t241*t70*t72*t73+24.0*t115*t121*t165*t70*t73-72.0*t110*
4281         t113*t121*t70*t72+t701+t700+t699+t698+t697+t696+t695+t694+
4282         t693+t692+t611+t609+t608+t607+t606+t605+t604+t603+t602+t601+
4283         t600+t599+t598+t597+t596+t595+t594+t593+t592+t591+t590+t589+
4284         t588+t587+t586+t585+t543+t541+t538+t537+t534+t532+t524+t523+
4285         t522+t521+t520+t519+t518+t517+t445+t443+t440+t429+t421+t419+
4286         t418-155.8418030943828*t70*t116*t75*t79*t218*t219*t220-155.8418030943828*
4287         t70*t74*t75*t110*t218*t219*t220)+3.0*t125*t479+3.0*t127*t478+
4288         t171*t450+3.0*t268*t275+3.0*t270*t274+t452*t170+(-.04659456853333333*
4289         t22*t50*t339*t55*t152+8.697920000000001E-4*t22*t50*t339*t52*
4290         t126*t152+0.0012247944192*t21*t50*t338*t126*t152-3.5413475328000005E-6*
4291         t22*t50*t339*t53*t269*t152-1.9490529484799998E-5*t21*t50*t338*
4292         t52*t269*t152-5.034767155200001E-6*t35*t50*t337*t269*t152+
4293         7.285057781760002E-8*t21*t50*t338*t53*t451*t152+7.436046827520002E-8*
4294         t35*t50*t337*t52*t451*t152-2.64911192064E-10*t35*t50*t337*
4295         t53*t691*t152)*t137;
4296     d4fdrararaga = 3.0*t41*t482*t46*t29*t47*rhoa+1.0*t41*
4297         t175*t348*t29*t47*rhoa+3.0*t41*t278*t197*t29*t47*rhoa-192.9880990672242*
4298         t191*t175*t342*t29*t344*rhoa+2069.133687865597*t341*t175*t342*
4299         t29*t343*rhoa-0.03109*t20*(28.51085274074074*grada*t27*t339-
4300         133.2104628148148*t174*t25*t338+133.8561871644445*t172*t36*
4301         t337-52.59551823644445*t276*t185*t336+9.014519398400001*t480*
4302         t334*t335-.5659193799111112*t728*t569*t729)*t29*rhoa-6.0*t41*
4303         t175*t197*t46*t29*t194*rhoa-6.0*t41*t278*t192*t29*t194*rhoa+
4304         96.4940495336121*t191*t175*t197*t46*t29*t193*rhoa+6.0*t41*
4305         t175*t342*t29*t193*rhoa+96.4940495336121*t191*t278*t192*t29*
4306         t193*rhoa-3.0*t30*t4*t483*t6+3.0*t125*t484+6.0*t41*t278*t46*
4307         t29*t47+3.0*t41*t175*t197*t29*t47+t177*t450-.1369866666666666*
4308         t1*t2*t4*t41*t175*t46*t47*t44+.004258915466666666*t1*t2*t4*
4309         t20*t278*t44-0.75*t30*(.1902828562962963*grada*t33*t339-.05909296109037036*
4310         t174*t32*t338+.001467824713576296*t172*t48*t337-1.2737287673173334E-5*
4311         t276*t198*t336+4.6363283000888894E-8*t480*t349*t335-6.066436250737777E-11*
4312         t728*t584*t729)*t4*t43+.2222222222222222*t176*t30*t4*t42-1.0*
4313         t16*t279*t30*t4-.09326999999999999*t20*t482*t29+3.0*t268*t280-
4314         .001892851318518518*t1*t2*t4*t20*t175*t195-6.0*t41*t175*t192*
4315         t29*t194+96.4940495336121*t191*t175*t192*t29*t193+.006388373199999998*
4316         t1*t2*t4*t20*t482*t17-.4109599999999999*t1*t2*t4*t41*t278*
4317         t46*t47*t17-0.20548*t1*t2*t4*t41*t175*t197*t47*t17+.4109599999999999*
4318         t1*t2*t4*t41*t175*t192*t194*t17-6.60919909938887*t1*t2*t4*
4319         t191*t175*t192*t193*t17+(-1.7255392*grada*t339*t56+0.0595386176*
4320         grada*t339*t52*t55+0.1547605312*t174*t338*t55-2.951122944000001E-4*
4321         grada*t339*t53*t126-0.002888952*t174*t338*t52*t126-0.0015866654976*
4322         t172*t337*t126+1.1762332876800002E-5*t174*t338*t53*t269+2.52490950144E-5*
4323         t172*t337*t52*t269+3.7760753664E-6*t276*t336*t269-9.437461217280002E-8*
4324         t172*t337*t53*t451-5.577035120640002E-8*t276*t336*t52*t451+
4325         1.98683394048E-10*t276*t336*t53*t691)*t137;
4326     d4fdrararagb = 3.0*t125*t485+t183*t450+3.0*t268*t281+
4327         (0.0349459264*t22*gradb*t339*t55*t51-6.52344E-4*t22*gradb*
4328         t339*t52*t126*t51-9.185958144E-4*t21*gradb*t338*t126*t51+2.656010649600001E-6*
4329         t22*gradb*t339*t53*t269*t51+1.46178971136E-5*t21*gradb*t338*
4330         t52*t269*t51+3.7760753664E-6*t35*gradb*t337*t269*t51-5.463793336320001E-8*
4331         t21*gradb*t338*t53*t451*t51-5.577035120640002E-8*t35*gradb*
4332         t337*t52*t451*t51+1.98683394048E-10*t35*gradb*t337*t53*t691*
4333         t51)*t137;
4334     d4fdrararaab = 0.0;
4335     d4fdrararbrb = t57*(t58*(-1.169644679491041*t70*t487*
4336         t75*t79*t97*t98*t99-1.169644679491041*t70*t471*t75*t79*t97*
4337         t98*t99+.04337432353112609*t70*t1*t2*t4*t91*t309*t79*t97*t98*
4338         t99+.1734972941245044*t70*t1*t2*t4*t91*t272*t79*t97*t98*t99+
4339         .04337432353112609*t70*t1*t2*t4*t91*t251*t79*t97*t98*t99-.1734972941245044*
4340         t70*t1*t2*t4*t213*t167*t79*t97*t98*t99-.1734972941245044*t70*
4341         t1*t2*t4*t213*t116*t79*t97*t98*t99-1.169644679491041*t70*t74*
4342         t75*t486*t97*t98*t99-1.169644679491041*t70*t74*t75*t465*t97*
4343         t98*t99-1.169644679491041*t70*t116*t75*t304*t97*t98*t99+.04337432353112609*
4344         t70*t1*t2*t4*t91*t74*t304*t97*t98*t99-2.339289358982082*t70*
4345         t167*t75*t271*t97*t98*t99-2.339289358982082*t70*t116*t75*t271*
4346         t97*t98*t99+.1734972941245044*t70*t1*t2*t4*t91*t74*t271*t97*
4347         t98*t99-1.169644679491041*t70*t167*t75*t241*t97*t98*t99+.04337432353112609*
4348         t70*t1*t2*t4*t91*t74*t241*t97*t98*t99-2.339289358982082*t70*
4349         t272*t75*t165*t97*t98*t99-1.169644679491041*t70*t251*t75*t165*
4350         t97*t98*t99-.1734972941245044*t70*t1*t2*t4*t213*t74*t165*t97*
4351         t98*t99+.08674864706225219*t70*t1*t2*t4*t91*t167*t165*t97*
4352         t98*t99+.1734972941245044*t70*t1*t2*t4*t91*t116*t165*t97*t98*
4353         t99-1.169644679491041*t70*t309*t75*t110*t97*t98*t99-2.339289358982082*
4354         t70*t272*t75*t110*t97*t98*t99-.1734972941245044*t70*t1*t2*
4355         t4*t213*t74*t110*t97*t98*t99+.1734972941245044*t70*t1*t2*t4*
4356         t91*t167*t110*t97*t98*t99+.08674864706225219*t70*t1*t2*t4*
4357         t91*t116*t110*t97*t98*t99-1.169644679491041*t70*t167*t75*t79*
4358         t398*t98*t99-1.169644679491041*t70*t116*t75*t79*t398*t98*t99-
4359         1.169644679491041*t70*t74*t75*t165*t398*t98*t99-1.169644679491041*
4360         t70*t74*t75*t110*t398*t98*t99-.5848223397455204*t70*t309*t75*
4361         t79*t224*t98*t99-2.339289358982082*t70*t272*t75*t79*t224*t98*
4362         t99-.5848223397455204*t70*t251*t75*t79*t224*t98*t99+.1301229705933783*
4363         t70*t1*t2*t4*t91*t167*t79*t224*t98*t99+.1301229705933783*t70*
4364         t1*t2*t4*t91*t116*t79*t224*t98*t99-.5848223397455204*t70*t74*
4365         t75*t304*t224*t98*t99-2.339289358982082*t70*t74*t75*t271*t224*
4366         t98*t99-.5848223397455204*t70*t74*t75*t241*t224*t98*t99-1.169644679491041*
4367         t70*t167*t75*t165*t224*t98*t99-2.339289358982082*t70*t116*
4368         t75*t165*t224*t98*t99+.1301229705933783*t70*t1*t2*t4*t91*t74*
4369         t165*t224*t98*t99-2.339289358982082*t70*t167*t75*t110*t224*
4370         t98*t99-1.169644679491041*t70*t116*t75*t110*t224*t98*t99+.1301229705933783*
4371         t70*t1*t2*t4*t91*t74*t110*t224*t98*t99+7.017868076946245*t70*
4372         t167*t75*t79*t224*t97*t222*t99+7.017868076946245*t70*t116*
4373         t75*t79*t224*t97*t222*t99+7.017868076946245*t70*t74*t75*t165*
4374         t224*t97*t222*t99+7.017868076946245*t70*t74*t75*t110*t224*
4375         t97*t222*t99+1.169644679491041*t70*t309*t75*t79*t218*t222*
4376         t99+4.678578717964164*t70*t272*t75*t79*t218*t222*t99+1.169644679491041*
4377         t70*t251*t75*t79*t218*t222*t99-.2602459411867566*t70*t1*t2*
4378         t4*t91*t167*t79*t218*t222*t99-.2602459411867566*t70*t1*t2*
4379         t4*t91*t116*t79*t218*t222*t99+1.169644679491041*t70*t74*t75*
4380         t304*t218*t222*t99+4.678578717964164*t70*t74*t75*t271*t218*
4381         t222*t99+1.169644679491041*t70*t74*t75*t241*t218*t222*t99+
4382         2.339289358982082*t70*t167*t75*t165*t218*t222*t99+4.678578717964164*
4383         t70*t116*t75*t165*t218*t222*t99-.2602459411867566*t70*t1*t2*
4384         t4*t91*t74*t165*t218*t222*t99+4.678578717964164*t70*t167*t75*
4385         t110*t218*t222*t99+2.339289358982082*t70*t116*t75*t110*t218*
4386         t222*t99-.2602459411867566*t70*t1*t2*t4*t91*t74*t110*t218*
4387         t222*t99-7.017868076946245*t70*t167*t75*t79*t383*t219*t99-
4388         7.017868076946245*t70*t116*t75*t79*t383*t219*t99-7.017868076946245*
4389         t70*t74*t75*t165*t383*t219*t99-7.017868076946245*t70*t74*t75*
4390         t110*t383*t219*t99-480.0*t247*t249*t70*t79*t88+t70*t72*t73*
4391         t732*t88-48.0*t165*t70*t71*t73*t88+48.0*t110*t70*t71*t73*t88+
4392         8.0*t115*t486*t70*t73*t88-8.0*t115*t465*t70*t73*t88+12.0*t249*
4393         t304*t70*t73*t88-48.0*t249*t271*t70*t73*t88+12.0*t241*t249*
4394         t70*t73*t88-8.0*t113*t486*t70*t72*t88-8.0*t113*t465*t70*t72*
4395         t88-240.0*t165*t424*t70*t72*t88-240.0*t110*t424*t70*t72*t88+
4396         20.0*t247*t304*t70*t72*t88+80.0*t247*t271*t70*t72*t88+20.0*
4397         t241*t247*t70*t72*t88-32.0*t113*t115*t304*t70*t88+96.0*t113*
4398         t165*t249*t70*t88+96.0*t110*t113*t249*t70*t88+160.0*t115*t165*
4399         t247*t70*t88-160.0*t110*t115*t247*t70*t88+32.0*t113*t115*t241*
4400         t70*t88+.01975178970256521*(t678+t674+480.0*t247*t249)*t70*
4401         t75*t79*t82-.001464924402940253*t70*t1*t2*t4*t91*t487*t79*
4402         t82-.001464924402940253*t70*t1*t2*t4*t91*t471*t79*t82+9.766162686268349E-4*
4403         t70*t1*t2*t4*t213*t309*t79*t82+0.00390646507450734*t70*t1*
4404         t2*t4*t213*t272*t79*t82+9.766162686268349E-4*t70*t1*t2*t4*
4405         t213*t251*t79*t82-0.00455754258692523*t70*t1*t2*t4*t377*t167*
4406         t79*t82-0.00455754258692523*t70*t1*t2*t4*t377*t116*t79*t82+
4407         .01975178970256521*t70*t74*t75*t732*t82+.03950357940513041*
4408         t70*t116*t75*t486*t82-.001464924402940253*t70*t1*t2*t4*t91*
4409         t74*t486*t82+.03950357940513041*t70*t167*t75*t465*t82-.001464924402940253*
4410         t70*t1*t2*t4*t91*t74*t465*t82+.01975178970256521*t70*t251*
4411         t75*t304*t82+9.766162686268349E-4*t70*t1*t2*t4*t213*t74*t304*
4412         t82-.001464924402940253*t70*t1*t2*t4*t91*t116*t304*t82+.07900715881026082*
4413         t70*t272*t75*t271*t82+0.00390646507450734*t70*t1*t2*t4*t213*
4414         t74*t271*t82-.002929848805880505*t70*t1*t2*t4*t91*t167*t271*
4415         t82-.002929848805880505*t70*t1*t2*t4*t91*t116*t271*t82+.01975178970256521*
4416         t70*t309*t75*t241*t82+9.766162686268349E-4*t70*t1*t2*t4*t213*
4417         t74*t241*t82-.001464924402940253*t70*t1*t2*t4*t91*t167*t241*
4418         t82+.03950357940513041*t70*t471*t75*t165*t82-0.00455754258692523*
4419         t70*t1*t2*t4*t377*t74*t165*t82-.002929848805880505*t70*t1*
4420         t2*t4*t91*t272*t165*t82-.001464924402940253*t70*t1*t2*t4*t91*
4421         t251*t165*t82+0.00195323253725367*t70*t1*t2*t4*t213*t167*t165*
4422         t82+0.00390646507450734*t70*t1*t2*t4*t213*t116*t165*t82+.03950357940513041*
4423         t70*t487*t75*t110*t82-0.00455754258692523*t70*t1*t2*t4*t377*
4424         t74*t110*t82-.001464924402940253*t70*t1*t2*t4*t91*t309*t110*
4425         t82-.002929848805880505*t70*t1*t2*t4*t91*t272*t110*t82+0.00390646507450734*
4426         t70*t1*t2*t4*t213*t167*t110*t82+0.00195323253725367*t70*t1*
4427         t2*t4*t213*t116*t110*t82-24.0*t249*t258*t70*t73*t79+192.0*
4428         t113*t121*t249*t70*t79+2.0*t121*t486*t70*t72*t73+2.0*t121*
4429         t465*t70*t72*t73+2.0*t165*t435*t70*t72*t73+2.0*t110*t435*t70*
4430         t72*t73+4.0*t258*t271*t70*t72*t73+8.0*t115*t121*t304*t70*t73+
4431         8.0*t115*t165*t258*t70*t73-8.0*t110*t115*t258*t70*t73-24.0*
4432         t121*t165*t249*t70*t73-24.0*t110*t121*t249*t70*t73-8.0*t115*
4433         t121*t241*t70*t73-8.0*t113*t121*t304*t70*t72-32.0*t113*t121*
4434         t271*t70*t72-24.0*t113*t165*t258*t70*t72-24.0*t110*t113*t258*
4435         t70*t72+120.0*t121*t165*t247*t70*t72+120.0*t110*t121*t247*
4436         t70*t72-8.0*t113*t121*t241*t70*t72-64.0*t113*t115*t121*t165*
4437         t70+64.0*t110*t113*t115*t121*t70+t690+t688+t686+t684+t683+
4438         t682+t676+t668+t667+t666+t665+t664+t663+t662+t661+t660+t659+
4439         t658+t657+t656+t655+t654+t653+t651+t650+t649+t648+t647+t646+
4440         t645+t643+t642+t641+t640+t635+t634+t633+t632+t631+t630+t629+
4441         t628+t627+t626+t625+t623+t622+t621+t620+t619+t618+t616-2050.77940420156*
4442         t70*t167*t75*t79*t383*t384*t385-2050.77940420156*t70*t116*
4443         t75*t79*t383*t384*t385-2050.77940420156*t70*t74*t75*t165*t383*
4444         t384*t385-2050.77940420156*t70*t74*t75*t110*t383*t384*t385+
4445         t70*t72*t73*t304*t258+t70*t72*t73*t241*t258+207.7890707925104*
4446         t70*t167*t75*t79*t383*t387*t220+207.7890707925104*t70*t116*
4447         t75*t79*t383*t387*t220+207.7890707925104*t70*t74*t75*t165*
4448         t383*t387*t220+207.7890707925104*t70*t74*t75*t110*t383*t387*
4449         t220-103.8945353962552*t70*t167*t75*t79*t224*t97*t219*t220-
4450         103.8945353962552*t70*t116*t75*t79*t224*t97*t219*t220-103.8945353962552*
4451         t70*t74*t75*t165*t224*t97*t219*t220-103.8945353962552*t70*
4452         t74*t75*t110*t224*t97*t219*t220-17.31575589937587*t70*t309*
4453         t75*t79*t218*t219*t220-69.26302359750346*t70*t272*t75*t79*
4454         t218*t219*t220-17.31575589937587*t70*t251*t75*t79*t218*t219*
4455         t220+3.85275568761113*t70*t1*t2*t4*t91*t167*t79*t218*t219*
4456         t220+3.85275568761113*t70*t1*t2*t4*t91*t116*t79*t218*t219*
4457         t220-17.31575589937587*t70*t74*t75*t304*t218*t219*t220-69.26302359750346*
4458         t70*t74*t75*t271*t218*t219*t220-17.31575589937587*t70*t74*
4459         t75*t241*t218*t219*t220-34.63151179875173*t70*t167*t75*t165*
4460         t218*t219*t220-69.26302359750346*t70*t116*t75*t165*t218*t219*
4461         t220+3.85275568761113*t70*t1*t2*t4*t91*t74*t165*t218*t219*
4462         t220-69.26302359750346*t70*t167*t75*t110*t218*t219*t220-34.63151179875173*
4463         t70*t116*t75*t110*t218*t219*t220+3.85275568761113*t70*t1*t2*
4464         t4*t91*t74*t110*t218*t219*t220)-1.169644679491041*t70*t309*
4465         t75*t79*t97*t98*t99-4.678578717964164*t70*t272*t75*t79*t97*
4466         t98*t99-1.169644679491041*t70*t251*t75*t79*t97*t98*t99+.2602459411867565*
4467         t70*t1*t2*t4*t91*t167*t79*t97*t98*t99+.2602459411867566*t70*
4468         t1*t2*t4*t91*t116*t79*t97*t98*t99-1.169644679491041*t70*t74*
4469         t75*t304*t97*t98*t99-4.678578717964164*t70*t74*t75*t271*t97*
4470         t98*t99-1.169644679491041*t70*t74*t75*t241*t97*t98*t99-2.339289358982082*
4471         t70*t167*t75*t165*t97*t98*t99-4.678578717964164*t70*t116*t75*
4472         t165*t97*t98*t99+.2602459411867565*t70*t1*t2*t4*t91*t74*t165*
4473         t97*t98*t99-4.678578717964164*t70*t167*t75*t110*t97*t98*t99-
4474         2.339289358982082*t70*t116*t75*t110*t97*t98*t99+.2602459411867566*
4475         t70*t1*t2*t4*t91*t74*t110*t97*t98*t99-3.508934038473122*t70*
4476         t167*t75*t79*t224*t98*t99-3.508934038473122*t70*t116*t75*t79*
4477         t224*t98*t99-3.508934038473122*t70*t74*t75*t165*t224*t98*t99-
4478         3.508934038473122*t70*t74*t75*t110*t224*t98*t99+7.017868076946245*
4479         t70*t167*t75*t79*t218*t222*t99+7.017868076946245*t70*t116*
4480         t75*t79*t218*t222*t99+7.017868076946245*t70*t74*t75*t165*t218*
4481         t222*t99+7.017868076946245*t70*t74*t75*t110*t218*t222*t99+
4482         192.0*t113*t249*t70*t79*t88+2.0*t486*t70*t72*t73*t88+2.0*t465*
4483         t70*t72*t73*t88+8.0*t115*t304*t70*t73*t88-8.0*t115*t241*t70*
4484         t73*t88-8.0*t113*t304*t70*t72*t88-32.0*t113*t271*t70*t72*t88+
4485         120.0*t165*t247*t70*t72*t88+120.0*t110*t247*t70*t72*t88-8.0*
4486         t113*t241*t70*t72*t88-64.0*t113*t115*t165*t70*t88+64.0*t110*
4487         t113*t115*t70*t88+.03950357940513041*t70*t487*t75*t79*t82+
4488         .03950357940513041*t70*t471*t75*t79*t82-.001464924402940253*
4489         t70*t1*t2*t4*t91*t309*t79*t82-0.00585969761176101*t70*t1*t2*
4490         t4*t91*t272*t79*t82-.001464924402940253*t70*t1*t2*t4*t91*t251*
4491         t79*t82+0.00585969761176101*t70*t1*t2*t4*t213*t167*t79*t82+
4492         0.00585969761176101*t70*t1*t2*t4*t213*t116*t79*t82+.03950357940513041*
4493         t70*t74*t75*t486*t82+.03950357940513041*t70*t74*t75*t465*t82+
4494         .03950357940513041*t70*t116*t75*t304*t82-.001464924402940253*
4495         t70*t1*t2*t4*t91*t74*t304*t82+.07900715881026082*t70*t167*
4496         t75*t271*t82+.07900715881026082*t70*t116*t75*t271*t82-0.00585969761176101*
4497         t70*t1*t2*t4*t91*t74*t271*t82+.03950357940513041*t70*t167*
4498         t75*t241*t82-.001464924402940253*t70*t1*t2*t4*t91*t74*t241*
4499         t82+.07900715881026082*t70*t272*t75*t165*t82+.03950357940513041*
4500         t70*t251*t75*t165*t82+0.00585969761176101*t70*t1*t2*t4*t213*
4501         t74*t165*t82-.002929848805880505*t70*t1*t2*t4*t91*t167*t165*
4502         t82-0.00585969761176101*t70*t1*t2*t4*t91*t116*t165*t82+.03950357940513041*
4503         t70*t309*t75*t110*t82+.07900715881026082*t70*t272*t75*t110*
4504         t82+0.00585969761176101*t70*t1*t2*t4*t213*t74*t110*t82-0.00585969761176101*
4505         t70*t1*t2*t4*t91*t167*t110*t82-.002929848805880505*t70*t1*
4506         t2*t4*t91*t116*t110*t82-48.0*t121*t249*t70*t73*t79+2.0*t121*
4507         t304*t70*t72*t73+8.0*t121*t271*t70*t72*t73+6.0*t165*t258*t70*
4508         t72*t73+6.0*t110*t258*t70*t72*t73+2.0*t121*t241*t70*t72*t73+
4509         16.0*t115*t121*t165*t70*t73-16.0*t110*t115*t121*t70*t73-48.0*
4510         t113*t121*t165*t70*t72-48.0*t110*t113*t121*t70*t72+t611+t609+
4511         t608+t607+t606+t605+t604+t603+t602+t601+t600+t599+t598+t597+
4512         t596+t595+t594+t593+t592+t591+t590+t589+t588+t587+t586+t585+
4513         t488+t475-103.8945353962552*t70*t167*t75*t79*t218*t219*t220-
4514         103.8945353962552*t70*t116*t75*t79*t218*t219*t220-103.8945353962552*
4515         t70*t74*t75*t165*t218*t219*t220-103.8945353962552*t70*t74*
4516         t75*t110*t218*t219*t220)+2.0*t125*t490+2.0*t127*t489+2.0*t170*
4517         t479+2.0*t171*t478+t270*t316+4.0*t274*t275+t317*t268+(-.03661001813333332*
4518         t22*t50*t189*t55*t287+6.834079999999999E-4*t22*t50*t189*t52*
4519         t126*t287+4.0826480639999996E-4*t21*t50*t188*t126*t287-2.7824873472000006E-6*
4520         t22*t50*t189*t53*t269*t287-6.496843161600001E-6*t21*t50*t188*
4521         t52*t269*t287+2.4283525939200004E-8*t21*t50*t188*t53*t451*
4522         t287+4.0826480639999996E-4*t22*t138*t189*t126*t286-6.4968431616E-6*
4523         t22*t138*t189*t52*t269*t286-5.034767155200001E-6*t21*t138*
4524         t188*t269*t286+2.4283525939200007E-8*t22*t138*t189*t53*t451*
4525         t286+7.436046827520002E-8*t21*t138*t188*t52*t451*t286-2.64911192064E-10*
4526         t21*t138*t188*t53*t691*t286)*t137;
4527     d4fdrararbga = 2.0*t125*t491+t177*t478+2.0*t274*t280+
4528         t318*t268+t484*t170+(0.0199691008*grada*t50*t189*t55*t152-
4529         3.72768E-4*grada*t50*t189*t52*t126*t152-7.515783935999999E-4*
4530         t174*t50*t188*t126*t152+1.5177203712E-6*grada*t50*t189*t53*
4531         t269*t152+1.1960097638400001E-5*t174*t50*t188*t52*t269*t152+
4532         3.7760753664E-6*t172*t50*t187*t269*t152-4.470376366080001E-8*
4533         t174*t50*t188*t53*t451*t152-5.577035120640002E-8*t172*t50*
4534         t187*t52*t451*t152+1.98683394048E-10*t172*t50*t187*t53*t691*
4535         t152)*t137;
4536     d4fdrararbgb = 2.0*t125*t492+t183*t478+2.0*t274*t281+
4537         t323*t268+t485*t170+(0.0199691008*t22*gradb*t189*t55*t152-
4538         3.72768E-4*t22*gradb*t189*t52*t126*t152-2.226898944E-4*t21*
4539         gradb*t188*t126*t152+1.5177203712E-6*t22*gradb*t189*t53*t269*
4540         t152+3.5437326336E-6*t21*gradb*t188*t52*t269*t152-1.3245559603200002E-8*
4541         t21*gradb*t188*t53*t451*t152-3.061986048E-4*t22*t180*t189*
4542         t126*t151+4.872632371200001E-6*t22*t180*t189*t52*t269*t151+
4543         3.7760753664E-6*t21*t180*t188*t269*t151-1.8212644454400004E-8*
4544         t22*t180*t189*t53*t451*t151-5.577035120640002E-8*t21*t180*
4545         t188*t52*t451*t151+1.98683394048E-10*t21*t180*t188*t53*t691*
4546         t151)*t137;
4547     d4fdrararbab = 0.0;
4548     d4fdraragaga = 2.0*t41*t494*t46*t29*t47*rhoa+1.0*t41*
4549         t325*t197*t29*t47*rhoa-0.03109*t20*(-6.109468444444444*t27*
4550         t189+55.60600177777779*t22*t25*t188-71.65362375111113*t21*
4551         t36*t187+32.696072704*t35*t185*t186-6.230340130133335*t184*
4552         t334*t481+.4244395349333334*t333*t569*t733)*t29*rhoa-2.0*t41*
4553         t325*t192*t29*t194*rhoa+32.1646831778707*t191*t325*t192*t29*
4554         t193*rhoa-2.0*t30*t4*t495*t6+2.0*t125*t496+2.0*t41*t325*t46*
4555         t29*t47+.001419638488888889*t1*t2*t4*t20*t325*t44-0.75*(-.04077489777777777*
4556         t33*t189+.02432266552888889*t22*t32*t188-7.765727414044445E-4*
4557         t21*t48*t187+7.858300982613333E-6*t35*t198*t186-3.1928820258133334E-8*
4558         t184*t349*t481+4.549827188053334E-11*t333*t584*t733)*t30*t4*
4559         t43-.3333333333333333*t16*t30*t326*t4-0.06218*t20*t494*t29+
4560         t327*t268+.004258915466666666*t1*t2*t4*t20*t494*t17-.1369866666666666*
4561         t1*t2*t4*t41*t325*t46*t47*t17+(0.3697584*t189*t56-0.0127582752*
4562         t189*t52*t55-0.0701187744*t22*t188*t55+6.323834880000001E-5*
4563         t189*t53*t126+0.001308924*t22*t188*t52*t126+9.812273471999999E-4*
4564         t21*t187*t126-5.329268121600002E-6*t22*t188*t53*t269-1.5614571916800002E-5*
4565         t21*t187*t52*t269-2.8320565248E-6*t35*t186*t269+5.836324700160002E-8*
4566         t21*t187*t53*t451+4.1827763404800006E-8*t35*t186*t52*t451-
4567         1.49012545536E-10*t35*t186*t53*t691)*t137;
4568     d4fdraragagb = 2.0*t125*t497+t328*t268+(-0.0149768256*
4569         grada*gradb*t189*t55*t51+2.79576E-4*grada*gradb*t189*t52*t126*
4570         t51+5.636837952E-4*t174*gradb*t188*t126*t51-1.1382902784000003E-6*
4571         grada*gradb*t189*t53*t269*t51-8.970073228800001E-6*t174*gradb*
4572         t188*t52*t269*t51-2.8320565248E-6*t172*gradb*t187*t269*t51+
4573         3.352782274560001E-8*t174*gradb*t188*t53*t451*t51+4.1827763404800006E-8*
4574         t172*gradb*t187*t52*t451*t51-1.49012545536E-10*t172*gradb*
4575         t187*t53*t691*t51)*t137;
4576     d4fdraragaab = 0.0;
4577     d4fdraragbgb = 2.0*t125*t498+t332*t268+(-.007488412799999999*
4578         t22*t189*t55*t51+1.39788E-4*t22*t189*t52*t126*t51+8.350871040000001E-5*
4579         t21*t188*t126*t51-5.691451392000002E-7*t22*t189*t53*t269*t51-
4580         1.3288997376000003E-6*t21*t188*t52*t269*t51+4.967084851200001E-9*
4581         t21*t188*t53*t451*t51+2.296489536E-4*t22*t50*t189*t126*t141-
4582         3.6544742784000006E-6*t22*t50*t189*t52*t269*t141-2.8320565248E-6*
4583         t21*t50*t188*t269*t141+1.3659483340800005E-8*t22*t50*t189*
4584         t53*t451*t141+4.1827763404800006E-8*t21*t50*t188*t52*t451*
4585         t141-1.49012545536E-10*t21*t50*t188*t53*t691*t141)*t137;
4586     d4fdraragbab = 0.0;
4587     d4fdraraabab = 0.0;
4588     d4fdrarbrbrb = t57*
4589         (t58*(-.5848223397455204*t70*t535*t75*t79*t97*t98*t99-1.754467019236561*
4590         t70*t487*t75*t79*t97*t98*t99+.1301229705933783*t70*t1*t2*t4*
4591         t91*t309*t79*t97*t98*t99-.2602459411867565*t70*t1*t2*t4*t213*
4592         t167*t79*t97*t98*t99-.08674864706225219*t70*t1*t2*t4*t213*
4593         t116*t79*t97*t98*t99-.5848223397455204*t70*t74*t75*t529*t97*
4594         t98*t99-1.754467019236561*t70*t74*t75*t486*t97*t98*t99-1.754467019236561*
4595         t70*t167*t75*t304*t97*t98*t99-1.754467019236561*t70*t116*t75*
4596         t304*t97*t98*t99+.1301229705933783*t70*t1*t2*t4*t91*t74*t304*
4597         t97*t98*t99-3.508934038473122*t70*t167*t75*t271*t97*t98*t99-
4598         1.754467019236561*t70*t309*t75*t165*t97*t98*t99-3.508934038473122*
4599         t70*t272*t75*t165*t97*t98*t99-.2602459411867565*t70*t1*t2*
4600         t4*t213*t74*t165*t97*t98*t99+.2602459411867566*t70*t1*t2*t4*
4601         t91*t167*t165*t97*t98*t99-1.754467019236561*t70*t309*t75*t110*
4602         t97*t98*t99-.08674864706225219*t70*t1*t2*t4*t213*t74*t110*
4603         t97*t98*t99-1.754467019236561*t70*t167*t75*t79*t398*t98*t99-
4604         .5848223397455204*t70*t116*t75*t79*t398*t98*t99-1.754467019236561*
4605         t70*t74*t75*t165*t398*t98*t99-.5848223397455204*t70*t74*t75*
4606         t110*t398*t98*t99-1.754467019236561*t70*t309*t75*t79*t224*
4607         t98*t99+.1951844558900674*t70*t1*t2*t4*t91*t167*t79*t224*t98*
4608         t99+.06506148529668915*t70*t1*t2*t4*t91*t116*t79*t224*t98*
4609         t99-1.754467019236561*t70*t74*t75*t304*t224*t98*t99-3.508934038473122*
4610         t70*t167*t75*t165*t224*t98*t99+.1951844558900674*t70*t1*t2*
4611         t4*t91*t74*t165*t224*t98*t99+.06506148529668915*t70*t1*t2*
4612         t4*t91*t74*t110*t224*t98*t99+10.52680211541937*t70*t167*t75*
4613         t79*t224*t97*t222*t99+3.508934038473122*t70*t116*t75*t79*t224*
4614         t97*t222*t99+10.52680211541937*t70*t74*t75*t165*t224*t97*t222*
4615         t99+3.508934038473122*t70*t74*t75*t110*t224*t97*t222*t99+3.508934038473122*
4616         t70*t309*t75*t79*t218*t222*t99-.3903689117801349*t70*t1*t2*
4617         t4*t91*t167*t79*t218*t222*t99-.1301229705933783*t70*t1*t2*
4618         t4*t91*t116*t79*t218*t222*t99+3.508934038473122*t70*t74*t75*
4619         t304*t218*t222*t99+7.017868076946245*t70*t167*t75*t165*t218*
4620         t222*t99-.3903689117801349*t70*t1*t2*t4*t91*t74*t165*t218*
4621         t222*t99-.1301229705933783*t70*t1*t2*t4*t91*t74*t110*t218*
4622         t222*t99-10.52680211541937*t70*t167*t75*t79*t383*t219*t99-
4623         3.508934038473122*t70*t116*t75*t79*t383*t219*t99-10.52680211541937*
4624         t70*t74*t75*t165*t383*t219*t99-3.508934038473122*t70*t74*t75*
4625         t110*t383*t219*t99-192.0*t113*t70*t71*t79*t88+960.0*t115*t424*
4626         t70*t79*t88+t70*t72*t73*t734*t88+72.0*t165*t70*t71*t73*t88-
4627         24.0*t110*t70*t71*t73*t88+4.0*t115*t529*t70*t73*t88-12.0*t115*
4628         t486*t70*t73*t88-36.0*t249*t304*t70*t73*t88-4.0*t113*t529*
4629         t70*t72*t88-12.0*t113*t486*t70*t72*t88-360.0*t165*t424*t70*
4630         t72*t88-120.0*t110*t424*t70*t72*t88+60.0*t247*t304*t70*t72*
4631         t88+96.0*t113*t115*t271*t70*t88+144.0*t113*t165*t249*t70*t88-
4632         144.0*t110*t113*t249*t70*t88-240.0*t115*t165*t247*t70*t88-
4633         240.0*t110*t115*t247*t70*t88+.01975178970256521*t70*(192.0*
4634         t113*t71+t678+t671-960.0*t115*t424)*t75*t79*t82-7.324622014701263E-4*
4635         t70*t1*t2*t4*t91*t535*t79*t82-.002197386604410379*t70*t1*t2*
4636         t4*t91*t487*t79*t82+.002929848805880505*t70*t1*t2*t4*t213*
4637         t309*t79*t82-.006836313880387845*t70*t1*t2*t4*t377*t167*t79*
4638         t82-.002278771293462615*t70*t1*t2*t4*t377*t116*t79*t82+.01975178970256521*
4639         t70*t74*t75*t734*t82+.01975178970256521*t70*t116*t75*t529*
4640         t82-7.324622014701263E-4*t70*t1*t2*t4*t91*t74*t529*t82+.05925536910769562*
4641         t70*t167*t75*t486*t82-.002197386604410379*t70*t1*t2*t4*t91*
4642         t74*t486*t82+.05925536910769562*t70*t272*t75*t304*t82+.002929848805880505*
4643         t70*t1*t2*t4*t213*t74*t304*t82-.002197386604410379*t70*t1*
4644         t2*t4*t91*t167*t304*t82-.002197386604410379*t70*t1*t2*t4*t91*
4645         t116*t304*t82+.05925536910769562*t70*t309*t75*t271*t82-.004394773208820758*
4646         t70*t1*t2*t4*t91*t167*t271*t82+.05925536910769562*t70*t487*
4647         t75*t165*t82-.006836313880387845*t70*t1*t2*t4*t377*t74*t165*
4648         t82-.002197386604410379*t70*t1*t2*t4*t91*t309*t165*t82-.004394773208820758*
4649         t70*t1*t2*t4*t91*t272*t165*t82+0.00585969761176101*t70*t1*
4650         t2*t4*t213*t167*t165*t82+.01975178970256521*t70*t535*t75*t110*
4651         t82-.002278771293462615*t70*t1*t2*t4*t377*t74*t110*t82-.002197386604410379*
4652         t70*t1*t2*t4*t91*t309*t110*t82+48.0*t121*t70*t71*t73*t79-8.0*
4653         t115*t435*t70*t73*t79+96.0*t113*t115*t258*t70*t79-480.0*t115*
4654         t121*t247*t70*t79+3.0*t121*t486*t70*t72*t73+3.0*t165*t435*
4655         t70*t72*t73+3.0*t258*t304*t70*t72*t73-24.0*t115*t121*t271*
4656         t70*t73-12.0*t115*t165*t258*t70*t73-12.0*t110*t115*t258*t70*
4657         t73-36.0*t121*t165*t249*t70*t73+36.0*t110*t121*t249*t70*t73+
4658         t727+t726+t725+t724+t723+t722+t721+t720-24.0*t113*t121*t304*
4659         t70*t72-36.0*t113*t165*t258*t70*t72-12.0*t110*t113*t258*t70*
4660         t72+180.0*t121*t165*t247*t70*t72+60.0*t110*t121*t247*t70*t72+
4661         t718+t717+t716+t715+t714+t713+t712+t711+t710+t709+t708+t707+
4662         t706+t705+t704+t703+t702+96.0*t113*t115*t121*t165*t70+96.0*
4663         t110*t113*t115*t121*t70+t688+t686+t684+t683+t682+t676+t668+
4664         t667+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+
4665         t655+t654+t653+t651+t650+t649+t648+t647+t646+t645+t643+t642+
4666         t641+t640+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+
4667         t625+t623+t622+t621+t620+t619+t618+t616+t70*t72*t73*t110*t435-
4668         3076.169106302339*t70*t167*t75*t79*t383*t384*t385-1025.38970210078*
4669         t70*t116*t75*t79*t383*t384*t385-3076.169106302339*t70*t74*
4670         t75*t165*t383*t384*t385-1025.38970210078*t70*t74*t75*t110*
4671         t383*t384*t385+311.6836061887656*t70*t167*t75*t79*t383*t387*
4672         t220+103.8945353962552*t70*t116*t75*t79*t383*t387*t220+311.6836061887656*
4673         t70*t74*t75*t165*t383*t387*t220+103.8945353962552*t70*t74*
4674         t75*t110*t383*t387*t220-155.8418030943828*t70*t167*t75*t79*
4675         t224*t97*t219*t220-51.9472676981276*t70*t116*t75*t79*t224*
4676         t97*t219*t220-155.8418030943828*t70*t74*t75*t165*t224*t97*
4677         t219*t220-51.9472676981276*t70*t74*t75*t110*t224*t97*t219*
4678         t220-51.9472676981276*t70*t309*t75*t79*t218*t219*t220+5.779133531416695*
4679         t70*t1*t2*t4*t91*t167*t79*t218*t219*t220+1.926377843805565*
4680         t70*t1*t2*t4*t91*t116*t79*t218*t219*t220-51.9472676981276*
4681         t70*t74*t75*t304*t218*t219*t220-103.8945353962552*t70*t167*
4682         t75*t165*t218*t219*t220+5.779133531416695*t70*t1*t2*t4*t91*
4683         t74*t165*t218*t219*t220+1.926377843805565*t70*t1*t2*t4*t91*
4684         t74*t110*t218*t219*t220+t70*t72*t73*t529*t121)-3.508934038473123*
4685         t70*t309*t75*t79*t97*t98*t99+.3903689117801349*t70*t1*t2*t4*
4686         t91*t167*t79*t97*t98*t99-3.508934038473123*t70*t74*t75*t304*
4687         t97*t98*t99-7.017868076946246*t70*t167*t75*t165*t97*t98*t99+
4688         .3903689117801349*t70*t1*t2*t4*t91*t74*t165*t97*t98*t99-5.263401057709684*
4689         t70*t167*t75*t79*t224*t98*t99-5.263401057709684*t70*t74*t75*
4690         t165*t224*t98*t99+10.52680211541937*t70*t167*t75*t79*t218*
4691         t222*t99+10.52680211541937*t70*t74*t75*t165*t218*t222*t99+
4692         48.0*t70*t71*t73*t79*t88-480.0*t115*t247*t70*t79*t88+3.0*t486*
4693         t70*t72*t73*t88-24.0*t115*t271*t70*t73*t88-36.0*t165*t249*
4694         t70*t73*t88-24.0*t113*t304*t70*t72*t88+180.0*t165*t247*t70*
4695         t72*t88+96.0*t110*t113*t115*t70*t88+.05925536910769562*t70*
4696         t487*t75*t79*t82-.004394773208820758*t70*t1*t2*t4*t91*t309*
4697         t79*t82+.008789546417641516*t70*t1*t2*t4*t213*t167*t79*t82+
4698         .05925536910769562*t70*t74*t75*t486*t82+.05925536910769562*
4699         t70*t116*t75*t304*t82-.004394773208820758*t70*t1*t2*t4*t91*
4700         t74*t304*t82+.1185107382153912*t70*t167*t75*t271*t82+.1185107382153912*
4701         t70*t272*t75*t165*t82+.008789546417641516*t70*t1*t2*t4*t213*
4702         t74*t165*t82-.008789546417641516*t70*t1*t2*t4*t91*t167*t165*
4703         t82+.05925536910769562*t70*t309*t75*t110*t82-24.0*t115*t258*
4704         t70*t73*t79+192.0*t113*t115*t121*t70*t79+6.0*t121*t304*t70*
4705         t72*t73+9.0*t165*t258*t70*t72*t73-24.0*t110*t115*t121*t70*
4706         t73-72.0*t113*t121*t165*t70*t72+t701+t700+t699+t698+t697+t696+
4707         t695+t694+t693+t692+t611+t609+t608+t607+t606+t605+t604+t603+
4708         t602+t601+t600+t599+t598+t597+t596+t595+t594+t593+t592+t591+
4709         t590+t589+t588+t587+t586+t585+t542+t540+t539+t536+t533+t531+
4710         t530+t446+t444+t439+t437+t422+t420+t404+t403+t402+t400+t397+
4711         t395+t392+t390-155.8418030943828*t70*t167*t75*t79*t218*t219*
4712         t220-155.8418030943828*t70*t74*t75*t165*t218*t219*t220)+t127*
4713         t544+3.0*t170*t490+3.0*t171*t489+3.0*t274*t317+3.0*t275*t316+
4714         (-.04659456853333334*t22*t50*t39*t55*t505+8.697920000000001E-4*
4715         t22*t50*t39*t52*t126*t505-3.5413475328000005E-6*t22*t50*t39*
4716         t53*t269*t505+0.0012247944192*t22*t138*t39*t126*t504-1.9490529484800004E-5*
4717         t22*t138*t39*t52*t269*t504+7.28505778176E-8*t22*t138*t39*t53*
4718         t451*t504-5.034767155200001E-6*t22*t148*t39*t269*t503+7.436046827520002E-8*
4719         t22*t148*t39*t52*t451*t503-2.64911192064E-10*t22*t148*t39*
4720         t53*t691*t503)*t137+t545*t125;
4721     d4fdrarbrbga = 2.0*t170*t491+t177*t489+2.0*t274*t318+
4722         t280*t316+(0.0199691008*grada*t50*t39*t55*t287-3.72768E-4*
4723         grada*t50*t39*t52*t126*t287-3.061986048E-4*t174*t50*t38*t126*
4724         t287+1.5177203712E-6*grada*t50*t39*t53*t269*t287+4.8726323711999997E-6*
4725         t174*t50*t38*t52*t269*t287-1.82126444544E-8*t174*t50*t38*t53*
4726         t451*t287-2.226898944E-4*grada*t138*t39*t126*t286+3.5437326336E-6*
4727         grada*t138*t39*t52*t269*t286+3.7760753664E-6*t174*t138*t38*
4728         t269*t286-1.3245559603200002E-8*grada*t138*t39*t53*t451*t286-
4729         5.577035120640002E-8*t174*t138*t38*t52*t451*t286+1.98683394048E-10*
4730         t174*t138*t38*t53*t691*t286)*t137+t546*t125;
4731     d4fdrarbrbgb = 2.0*t170*t492+t183*t489+2.0*t274*t323+
4732         t281*t316+(0.0199691008*t22*gradb*t39*t55*t287-3.72768E-4*
4733         t22*gradb*t39*t52*t126*t287+1.5177203712E-6*t22*gradb*t39*
4734         t53*t269*t287-7.515783935999999E-4*t22*t180*t39*t126*t286+
4735         1.1960097638400001E-5*t22*t180*t39*t52*t269*t286-4.470376366080001E-8*
4736         t22*t180*t39*t53*t451*t286+3.7760753664E-6*t22*t178*t39*t269*
4737         t285-5.577035120640002E-8*t22*t178*t39*t52*t451*t285+1.98683394048E-10*
4738         t22*t178*t39*t53*t691*t285)*t137+t551*t125;
4739     d4fdrarbrbab = 0.0;
4740     d4fdrarbgaga = (-0.0054461184*t50*t39*t55*t152+1.01664E-4*
4741         t50*t39*t52*t126*t152+4.17543552E-4*t22*t50*t38*t126*t152-
4742         4.1392373760000006E-7*t50*t39*t53*t269*t152-6.644498688000001E-6*
4743         t22*t50*t38*t52*t269*t152-2.8320565248E-6*t21*t50*t37*t269*
4744         t152+2.483542425600001E-8*t22*t50*t38*t53*t451*t152+4.1827763404800006E-8*
4745         t21*t50*t37*t52*t451*t152-1.49012545536E-10*t21*t50*t37*t53*
4746         t691*t152)*t137+t552*t125+t496*t170+t327*t274;
4747     d4fdrarbgagb = (-0.0108922368*grada*gradb*t39*t55*t152+
4748         2.03328E-4*grada*gradb*t39*t52*t126*t152+1.670174208E-4*t174*
4749         gradb*t38*t126*t152-8.278474752000001E-7*grada*gradb*t39*t53*
4750         t269*t152-2.6577994752000006E-6*t174*gradb*t38*t52*t269*t152+
4751         9.934169702400003E-9*t174*gradb*t38*t53*t451*t152+1.670174208E-4*
4752         grada*t180*t39*t126*t151-2.6577994752000006E-6*grada*t180*
4753         t39*t52*t269*t151-2.8320565248E-6*t174*t180*t38*t269*t151+
4754         9.934169702400003E-9*grada*t180*t39*t53*t451*t151+4.1827763404800006E-8*
4755         t174*t180*t38*t52*t451*t151-1.49012545536E-10*t174*t180*t38*
4756         t53*t691*t151)*t137+t553*t125+t497*t170+t328*t274;
4757     d4fdrarbgaab = 0.0;
4758     d4fdrarbgbgb = (-0.0054461184*t22*t39*t55*t152+1.01664E-4*
4759         t22*t39*t52*t126*t152-4.1392373760000006E-7*t22*t39*t53*t269*
4760         t152+4.17543552E-4*t22*t50*t39*t126*t151-6.644498688000001E-6*
4761         t22*t50*t39*t52*t269*t151+2.483542425600001E-8*t22*t50*t39*
4762         t53*t451*t151-2.8320565248E-6*t22*t138*t39*t269*t150+4.1827763404800006E-8*
4763         t22*t138*t39*t52*t451*t150-1.49012545536E-10*t22*t138*t39*
4764         t53*t691*t150)*t137+t557*t125+t498*t170+t332*t274;
4765     d4fdrarbgbab = 0.0;
4766     d4fdrarbabab = 0.0;
4767     d4fdragagaga = 1.0*t41*t559*t46*t29*t47*rhoa-0.03109*
4768         t20*(-17.9456512*grada*t25*t38+34.66191872*t174*t36*t37-19.431575552*
4769         t172*t185*t277+4.235051827200001*t276*t334*t493-.3183296512000001*
4770         t480*t569*t735)*t29*rhoa-1.0*t30*t4*t560*t6-0.75*t30*(-.007732346879999999*
4771         grada*t32*t38+3.7005520896E-4*t174*t48*t37-4.623924428799999E-6*
4772         t172*t198*t277+2.1600610549760002E-8*t276*t349*t493-3.41237039104E-11*
4773         t480*t584*t735)*t4*t43-0.03109*t20*t559*t29+.002129457733333333*
4774         t1*t2*t4*t20*t559*t17+(0.0245075328*grada*t38*t55-4.57488E-4*
4775         grada*t38*t52*t126-5.636837952E-4*t174*t37*t126+1.8626568192E-6*
4776         grada*t38*t53*t269+8.970073228800001E-6*t174*t37*t52*t269+
4777         2.1240423936000002E-6*t172*t277*t269-3.352782274560001E-8*
4778         t174*t37*t53*t451-3.137082255360001E-8*t172*t277*t52*t451+
4779         1.11759409152E-10*t172*t277*t53*t691)*t137+t561*t125;
4780     d4fdragagagb = (0.0040845888*gradb*t39*t55*t51-7.6248E-5*
4781         gradb*t39*t52*t126*t51-3.13157664E-4*t22*gradb*t38*t126*t51+
4782         3.1044280320000006E-7*gradb*t39*t53*t269*t51+4.9833740160000006E-6*
4783         t22*gradb*t38*t52*t269*t51+2.1240423936000002E-6*t21*gradb*
4784         t37*t269*t51-1.8626568192000004E-8*t22*gradb*t38*t53*t451*
4785         t51-3.137082255360001E-8*t21*gradb*t37*t52*t451*t51+1.11759409152E-10*
4786         t21*gradb*t37*t53*t691*t51)*t137+t562*t125;
4787     d4fdragagaab = 0.0;
4788     d4fdragagbgb = (0.0040845888*grada*t39*t55*t51-7.6248E-5*
4789         grada*t39*t52*t126*t51-6.26315328E-5*t174*t38*t126*t51+3.1044280320000006E-7*
4790         grada*t39*t53*t269*t51+9.966748032000001E-7*t174*t38*t52*t269*
4791         t51-3.725313638400001E-9*t174*t38*t53*t451*t51-1.252630656E-4*
4792         grada*t50*t39*t126*t141+1.9933496064000003E-6*grada*t50*t39*
4793         t52*t269*t141+2.1240423936000002E-6*t174*t50*t38*t269*t141-
4794         7.450627276800001E-9*grada*t50*t39*t53*t451*t141-3.137082255360001E-8*
4795         t174*t50*t38*t52*t451*t141+1.11759409152E-10*t174*t50*t38*
4796         t53*t691*t141)*t137+t563*t125;
4797     d4fdragagbab = 0.0;
4798     d4fdragaabab = 0.0;
4799     d4fdragbgbgb = (-1.878945984E-4*t22*gradb*t39*t126*t141+
4800         2.9900244096000006E-6*t22*gradb*t39*t52*t269*t141-1.1175940915200003E-8*
4801         t22*gradb*t39*t53*t451*t141+2.1240423936000002E-6*t22*t180*
4802         t39*t269*t179-3.137082255360001E-8*t22*t180*t39*t52*t451*t179+
4803         1.11759409152E-10*t22*t180*t39*t53*t691*t179)*t137+t567*t125;
4804     d4fdragbgbab = 0.0;
4805     d4fdragbabab = 0.0;
4806     d4fdraababab = 0.0;
4807     d4fdrbrbrbrb = t57*
4808         (24829.60425438716*t507*t745*t136*t747*rhob-199659.0885685683*
4809         t744*t745*t136*t746*rhob+24.0*t154*t745*t136*t510*rhob+1157.928594403345*
4810         t289*t295*t290*t136*t510*rhob-1157.928594403345*t289*t745*
4811         t136*t509*rhob-12414.80212719358*t507*t295*t290*t136*t509*
4812         rhob+6.0*t154*t748*t136*t292*rhob+8.0*t154*t514*t159*t136*
4813         t292*rhob-96.4940495336121*t289*t748*t136*t291*rhob-36.0*t154*
4814         t295*t290*t136*t291*rhob-128.6587327114828*t289*t514*t159*
4815         t136*t291*rhob-1.0*t154*t750*t136*t160*rhob+t58*(-2.339289358982082*
4816         t70*t535*t75*t79*t97*t98*t99+.2602459411867566*t70*t1*t2*t4*
4817         t91*t309*t79*t97*t98*t99-.3469945882490088*t70*t1*t2*t4*t213*
4818         t167*t79*t97*t98*t99-2.339289358982082*t70*t74*t75*t529*t97*
4819         t98*t99-7.017868076946245*t70*t167*t75*t304*t97*t98*t99+.2602459411867566*
4820         t70*t1*t2*t4*t91*t74*t304*t97*t98*t99-7.017868076946245*t70*
4821         t309*t75*t165*t97*t98*t99-.3469945882490088*t70*t1*t2*t4*t213*
4822         t74*t165*t97*t98*t99+.5204918823735132*t70*t1*t2*t4*t91*t167*
4823         t165*t97*t98*t99-2.339289358982082*t70*t167*t75*t79*t398*t98*
4824         t99-2.339289358982082*t70*t74*t75*t165*t398*t98*t99-3.508934038473122*
4825         t70*t309*t75*t79*t224*t98*t99+.2602459411867566*t70*t1*t2*
4826         t4*t91*t167*t79*t224*t98*t99-3.508934038473122*t70*t74*t75*
4827         t304*t224*t98*t99-7.017868076946245*t70*t167*t75*t165*t224*
4828         t98*t99+.2602459411867566*t70*t1*t2*t4*t91*t74*t165*t224*t98*
4829         t99+14.03573615389249*t70*t167*t75*t79*t224*t97*t222*t99+14.03573615389249*
4830         t70*t74*t75*t165*t224*t97*t222*t99+7.017868076946245*t70*t309*
4831         t75*t79*t218*t222*t99-.5204918823735132*t70*t1*t2*t4*t91*t167*
4832         t79*t218*t222*t99+7.017868076946245*t70*t74*t75*t304*t218*
4833         t222*t99+14.03573615389249*t70*t167*t75*t165*t218*t222*t99-
4834         .5204918823735132*t70*t1*t2*t4*t91*t74*t165*t218*t222*t99-
4835         14.03573615389249*t70*t167*t75*t79*t383*t219*t99-14.03573615389249*
4836         t70*t74*t75*t165*t383*t219*t99+384.0*t113*t70*t71*t79*t88+
4837         1920.0*t115*t424*t70*t79*t88+t70*t72*t73*t752*t88-96.0*t165*
4838         t70*t71*t73*t88-16.0*t115*t529*t70*t73*t88+72.0*t249*t304*
4839         t70*t73*t88-16.0*t113*t529*t70*t72*t88-480.0*t165*t424*t70*
4840         t72*t88+120.0*t247*t304*t70*t72*t88+192.0*t113*t115*t304*t70*
4841         t88-576.0*t113*t165*t249*t70*t88-960.0*t115*t165*t247*t70*
4842         t88+.01975178970256521*t70*(-384.0*t113*t71+t679+t678+t674-
4843         1920.0*t115*t424)*t75*t79*t82-.002929848805880505*t70*t1*t2*
4844         t4*t91*t535*t79*t82+0.00585969761176101*t70*t1*t2*t4*t213*
4845         t309*t79*t82-0.00911508517385046*t70*t1*t2*t4*t377*t167*t79*
4846         t82+.01975178970256521*t70*t74*t75*t752*t82+.07900715881026082*
4847         t70*t167*t75*t529*t82-.002929848805880505*t70*t1*t2*t4*t91*
4848         t74*t529*t82+.1185107382153912*t70*t309*t75*t304*t82+0.00585969761176101*
4849         t70*t1*t2*t4*t213*t74*t304*t82-.008789546417641516*t70*t1*
4850         t2*t4*t91*t167*t304*t82+.07900715881026082*t70*t535*t75*t165*
4851         t82-0.00911508517385046*t70*t1*t2*t4*t377*t74*t165*t82-.008789546417641516*
4852         t70*t1*t2*t4*t91*t309*t165*t82+.01171939522352202*t70*t1*t2*
4853         t4*t213*t167*t165*t82-96.0*t121*t70*t71*t73*t79-16.0*t115*
4854         t435*t70*t73*t79+192.0*t113*t115*t258*t70*t79-960.0*t115*t121*
4855         t247*t70*t79+4.0*t121*t529*t70*t72*t73+4.0*t165*t435*t70*t72*
4856         t73+6.0*t258*t304*t70*t72*t73-48.0*t115*t121*t304*t70*t73-
4857         48.0*t115*t165*t258*t70*t73+144.0*t121*t165*t249*t70*t73-48.0*
4858         t113*t121*t304*t70*t72-48.0*t113*t165*t258*t70*t72+240.0*t121*
4859         t165*t247*t70*t72+384.0*t113*t115*t121*t165*t70+t690+t689+
4860         t688+t687+t686+t685+t684+t683+t682+t676+t668+t667+t666+t665+
4861         t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t654+t653+
4862         t651+t650+t649+t648+t647+t646+t645+t643+t642+t641+t640+t635+
4863         t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+t623+t622+
4864         t621+t620+t619+t618+t616-4101.558808403119*t70*t167*t75*t79*
4865         t383*t384*t385-4101.558808403119*t70*t74*t75*t165*t383*t384*
4866         t385+415.5781415850207*t70*t167*t75*t79*t383*t387*t220+415.5781415850207*
4867         t70*t74*t75*t165*t383*t387*t220-207.7890707925104*t70*t167*
4868         t75*t79*t224*t97*t219*t220-207.7890707925104*t70*t74*t75*t165*
4869         t224*t97*t219*t220-103.8945353962552*t70*t309*t75*t79*t218*
4870         t219*t220+7.70551137522226*t70*t1*t2*t4*t91*t167*t79*t218*
4871         t219*t220-103.8945353962552*t70*t74*t75*t304*t218*t219*t220-
4872         207.7890707925104*t70*t167*t75*t165*t218*t219*t220+7.70551137522226*
4873         t70*t1*t2*t4*t91*t74*t165*t218*t219*t220)-7.017868076946245*
4874         t70*t309*t75*t79*t97*t98*t99+.5204918823735132*t70*t1*t2*t4*
4875         t91*t167*t79*t97*t98*t99-7.017868076946245*t70*t74*t75*t304*
4876         t97*t98*t99-14.03573615389249*t70*t167*t75*t165*t97*t98*t99+
4877         .5204918823735132*t70*t1*t2*t4*t91*t74*t165*t97*t98*t99-7.017868076946245*
4878         t70*t167*t75*t79*t224*t98*t99-7.017868076946245*t70*t74*t75*
4879         t165*t224*t98*t99+14.03573615389249*t70*t167*t75*t79*t218*
4880         t222*t99+14.03573615389249*t70*t74*t75*t165*t218*t222*t99-
4881         96.0*t70*t71*t73*t79*t88-960.0*t115*t247*t70*t79*t88+4.0*t529*
4882         t70*t72*t73*t88-48.0*t115*t304*t70*t73*t88+144.0*t165*t249*
4883         t70*t73*t88-48.0*t113*t304*t70*t72*t88+240.0*t165*t247*t70*
4884         t72*t88+384.0*t113*t115*t165*t70*t88+.07900715881026082*t70*
4885         t535*t75*t79*t82-.008789546417641516*t70*t1*t2*t4*t91*t309*
4886         t79*t82+.01171939522352202*t70*t1*t2*t4*t213*t167*t79*t82+
4887         .07900715881026082*t70*t74*t75*t529*t82+.2370214764307825*
4888         t70*t167*t75*t304*t82-.008789546417641516*t70*t1*t2*t4*t91*
4889         t74*t304*t82+.2370214764307825*t70*t309*t75*t165*t82+.01171939522352202*
4890         t70*t1*t2*t4*t213*t74*t165*t82-.01757909283528303*t70*t1*t2*
4891         t4*t91*t167*t165*t82-48.0*t115*t258*t70*t73*t79+384.0*t113*
4892         t115*t121*t70*t79+12.0*t121*t304*t70*t72*t73+12.0*t165*t258*
4893         t70*t72*t73-96.0*t115*t121*t165*t70*t73-96.0*t113*t121*t165*
4894         t70*t72+t612+t611+t610+t609+t608+t607+t606+t605+t604+t603+
4895         t602+t601+t600+t599+t598+t597+t596+t595+t594+t593+t592+t591+
4896         t590+t589+t588+t587+t586+t585-.004416653076543209*t1*t2*t4*
4897         t135*t511+771.9523962688968*t289*t508*t136*t510-8276.534751462386*
4898         t507*t508*t136*t509-.2435318518518518*t1*t2*t4*t154*t159*t160*
4899         t293+24.0*t154*t295*t159*t136*t292-24.0*t154*t508*t136*t291-
4900         385.9761981344484*t289*t295*t159*t136*t291-207.7890707925104*
4901         t70*t167*t75*t79*t218*t219*t220-207.7890707925104*t70*t74*
4902         t75*t165*t218*t219*t220-4.0*t154*t514*t136*t160-.5479466666666666*
4903         t1*t2*t4*t154*t290*t292*t157+8.812265465851826*t1*t2*t4*t289*
4904         t290*t291*t157+.2739733333333333*t1*t2*t4*t154*t295*t160*t157-
4905         52.87359279511096*t1*t2*t4*t289*t508*t510*t132+566.8874535768302*
4906         t1*t2*t4*t507*t508*t509*t132-1.64384*t1*t2*t4*t154*t295*t159*
4907         t292*t132+1.64384*t1*t2*t4*t154*t508*t291*t132+26.43679639755548*
4908         t1*t2*t4*t289*t295*t159*t291*t132+.2739733333333333*t1*t2*
4909         t4*t154*t514*t160*t132)-24829.60425438716*t507*t143*t745*t136*
4910         t747*rhob+199659.0885685683*t744*t143*t745*t136*t746*rhob-
4911         24.0*t154*t143*t745*t136*t510*rhob-771.9523962688968*t289*
4912         t153*t508*t136*t510*rhob-1157.928594403345*t289*t143*t295*
4913         t290*t136*t510*rhob+1157.928594403345*t289*t143*t745*t136*
4914         t509*rhob+8276.534751462386*t507*t153*t508*t136*t509*rhob+
4915         12414.80212719358*t507*t143*t295*t290*t136*t509*rhob-6.0*t154*
4916         t143*t748*t136*t292*rhob-12.0*t154*t288*t290*t136*t292*rhob-
4917         8.0*t154*t143*t514*t159*t136*t292*rhob-24.0*t154*t153*t295*
4918         t159*t136*t292*rhob+96.4940495336121*t289*t143*t748*t136*t291*
4919         rhob+24.0*t154*t153*t508*t136*t291*rhob+36.0*t154*t143*t295*
4920         t290*t136*t291*rhob+192.9880990672242*t289*t288*t290*t136*
4921         t291*rhob+128.6587327114828*t289*t143*t514*t159*t136*t291*
4922         rhob+385.9761981344484*t289*t153*t295*t159*t136*t291*rhob+
4923         1.0*t154*t143*t750*t136*t160*rhob+4.0*t154*t153*t514*t136*
4924         t160*rhob+6.0*t154*t288*t295*t136*t160*rhob+4.0*t154*t506*
4925         t159*t136*t160*rhob-0.03109*t135*(-80.78074943209877*t50*t142*
4926         t743+273.2451696197531*t138*t140*t742-232.6521805748148*t148*
4927         t149*t741+81.72408733392592*t282*t283*t740-12.86823826773334*
4928         t499*t500*t739+.7545591732148149*t736*t737*t738)*t136*rhob-
4929         0.75*t156*t30*t4*(-.5391347595061727*t50*t146*t743+.1225394870360494*
4930         t138*t145*t742-.002574348315559506*t148*t161*t741+1.9907787015964443E-5*
4931         t282*t296*t740-6.636753785590519E-8*t499*t515*t739+8.08858166765037E-11*
4932         t736*t751*t738)+4.0*t170*t545+4.0*t171*t544-4.0*t128*t30*t4*
4933         t516+.004416653076543209*t1*t2*t4*t135*t143*t511-771.9523962688968*
4934         t289*t143*t508*t136*t510-.3703703703703703*t147*t30*t4*t51+
4935         8276.534751462386*t507*t143*t508*t136*t509-2.0*t131*t297*t30*
4936         t4+.8888888888888888*t155*t162*t30*t4+6.0*t316*t317+.2435318518518518*
4937         t1*t2*t4*t154*t143*t159*t160*t293-.007571405274074072*t1*t2*
4938         t4*t135*t153*t293-24.0*t154*t153*t290*t136*t292-24.0*t154*
4939         t143*t295*t159*t136*t292+24.0*t154*t143*t508*t136*t291+385.9761981344484*
4940         t289*t153*t290*t136*t291+385.9761981344484*t289*t143*t295*
4941         t159*t136*t291+4.0*t154*t143*t514*t136*t160+12.0*t154*t153*
4942         t295*t136*t160+12.0*t154*t288*t159*t136*t160+.5479466666666666*
4943         t1*t2*t4*t154*t143*t290*t292*t157-8.812265465851826*t1*t2*
4944         t4*t289*t143*t290*t291*t157+.008517830933333331*t1*t2*t4*t135*
4945         t288*t157-.2739733333333333*t1*t2*t4*t154*t143*t295*t160*t157-
4946         .5479466666666666*t1*t2*t4*t154*t153*t159*t160*t157+(4.889027733333334*
4947         t50*t56*t743-.1686927498666667*t50*t52*t55*t743+8.361515008000002E-4*
4948         t50*t53*t126*t743-.2962083285333333*t138*t55*t742+.005529392000000001*
4949         t138*t52*t126*t742-2.2512852172800005E-5*t138*t53*t269*t742+
4950         0.0024495888384*t148*t126*t741-3.898105896960001E-5*t148*t52*
4951         t269*t741+1.4570115563520003E-7*t148*t53*t451*t741-5.034767155200001E-6*
4952         t282*t269*t740+7.436046827520002E-8*t282*t52*t451*t740-2.64911192064E-10*
4953         t282*t53*t691*t740)*t137-0.12436*t135*t506*t136+52.87359279511096*
4954         t1*t2*t4*t289*t143*t508*t510*t132-566.8874535768302*t1*t2*
4955         t4*t507*t143*t508*t509*t132+.008517830933333331*t1*t2*t4*t135*
4956         t506*t132+1.64384*t1*t2*t4*t154*t153*t290*t292*t132+1.64384*
4957         t1*t2*t4*t154*t143*t295*t159*t292*t132-1.64384*t1*t2*t4*t154*
4958         t143*t508*t291*t132-26.43679639755548*t1*t2*t4*t289*t153*t290*
4959         t291*t132-26.43679639755548*t1*t2*t4*t289*t143*t295*t159*t291*
4960         t132-.2739733333333333*t1*t2*t4*t154*t143*t514*t160*t132-.8219199999999999*
4961         t1*t2*t4*t154*t153*t295*t160*t132-.8219199999999999*t1*t2*
4962         t4*t154*t288*t159*t160*t132;
4963     d4fdrbrbrbga = 3.0*t170*t546+t177*t544+3.0*t316*t318+
4964         (0.0349459264*grada*t50*t23*t55*t505-6.52344E-4*grada*t50*
4965         t23*t52*t126*t505+2.656010649600001E-6*grada*t50*t23*t53*t269*
4966         t505-9.185958144E-4*grada*t138*t23*t126*t504+1.46178971136E-5*
4967         grada*t138*t23*t52*t269*t504-5.463793336320001E-8*grada*t138*
4968         t23*t53*t451*t504+3.7760753664E-6*grada*t148*t23*t269*t503-
4969         5.577035120640002E-8*grada*t148*t23*t52*t451*t503+1.98683394048E-10*
4970         grada*t148*t23*t53*t691*t503)*t137;
4971     d4fdrbrbrbgb = -192.9880990672242*t289*t181*t508*t136*
4972         t510*rhob+2069.133687865597*t507*t181*t508*t136*t509*rhob-
4973         6.0*t154*t321*t290*t136*t292*rhob-6.0*t154*t181*t295*t159*
4974         t136*t292*rhob+6.0*t154*t181*t508*t136*t291*rhob+96.4940495336121*
4975         t289*t321*t290*t136*t291*rhob+96.4940495336121*t289*t181*t295*
4976         t159*t136*t291*rhob+1.0*t154*t181*t514*t136*t160*rhob+3.0*
4977         t154*t321*t295*t136*t160*rhob+3.0*t154*t549*t159*t136*t160*
4978         rhob-0.03109*t135*(28.51085274074074*gradb*t142*t505-133.2104628148148*
4979         t180*t140*t504+133.8561871644445*t178*t149*t503-52.59551823644445*
4980         t319*t283*t502+9.014519398400001*t547*t500*t501-.5659193799111112*
4981         t753*t737*t754)*t136*rhob+3.0*t170*t551-3.0*t128*t30*t4*t550+
4982         t183*t544-0.75*t156*t30*t4*(.1902828562962963*gradb*t146*t505-
4983         .05909296109037036*t180*t145*t504+.001467824713576296*t178*
4984         t161*t503-1.2737287673173334E-5*t319*t296*t502+4.6363283000888894E-8*
4985         t547*t515*t501-6.066436250737777E-11*t753*t751*t754)-1.0*t131*
4986         t30*t322*t4+.2222222222222222*t155*t182*t30*t4+3.0*t316*t323-
4987         .001892851318518518*t1*t2*t4*t135*t181*t293-6.0*t154*t181*
4988         t290*t136*t292+96.4940495336121*t289*t181*t290*t136*t291+3.0*
4989         t154*t181*t295*t136*t160+6.0*t154*t321*t159*t136*t160+.004258915466666666*
4990         t1*t2*t4*t135*t321*t157-.1369866666666666*t1*t2*t4*t154*t181*
4991         t159*t160*t157+(-1.7255392*gradb*t56*t505+0.0595386176*gradb*
4992         t52*t55*t505-2.951122944000001E-4*gradb*t53*t126*t505+0.1547605312*
4993         t180*t55*t504-0.002888952*t180*t52*t126*t504+1.1762332876800002E-5*
4994         t180*t53*t269*t504-0.0015866654976*t178*t126*t503+2.52490950144E-5*
4995         t178*t52*t269*t503-9.437461217280002E-8*t178*t53*t451*t503+
4996         3.7760753664E-6*t319*t269*t502-5.577035120640002E-8*t319*t52*
4997         t451*t502+1.98683394048E-10*t319*t53*t691*t502)*t137-.09326999999999999*
4998         t135*t549*t136+.006388373199999998*t1*t2*t4*t135*t549*t132+
4999         .4109599999999999*t1*t2*t4*t154*t181*t290*t292*t132-6.60919909938887*
5000         t1*t2*t4*t289*t181*t290*t291*t132-0.20548*t1*t2*t4*t154*t181*
5001         t295*t160*t132-.4109599999999999*t1*t2*t4*t154*t321*t159*t160*
5002         t132;
5003     d4fdrbrbrbab = 0.0;
5004     d4fdrbrbgaga = 2.0*t170*t552+t327*t316+(-.007488412799999999*
5005         t50*t23*t55*t287+1.39788E-4*t50*t23*t52*t126*t287+2.296489536E-4*
5006         t22*t50*t26*t126*t287-5.691451392000002E-7*t50*t23*t53*t269*
5007         t287-3.6544742784000006E-6*t22*t50*t26*t52*t269*t287+1.3659483340800005E-8*
5008         t22*t50*t26*t53*t451*t287+8.350871040000001E-5*t138*t23*t126*
5009         t286-1.3288997376000003E-6*t138*t23*t52*t269*t286-2.8320565248E-6*
5010         t22*t138*t26*t269*t286+4.967084851200001E-9*t138*t23*t53*t451*
5011         t286+4.1827763404800006E-8*t22*t138*t26*t52*t451*t286-1.49012545536E-10*
5012         t22*t138*t26*t53*t691*t286)*t137;
5013     d4fdrbrbgagb = 2.0*t170*t553+t328*t316+(-0.0149768256*
5014         grada*gradb*t23*t55*t287+2.79576E-4*grada*gradb*t23*t52*t126*
5015         t287-1.1382902784000003E-6*grada*gradb*t23*t53*t269*t287+5.636837952E-4*
5016         grada*t180*t23*t126*t286-8.970073228800002E-6*grada*t180*t23*
5017         t52*t269*t286+3.352782274560001E-8*grada*t180*t23*t53*t451*
5018         t286-2.8320565248E-6*grada*t178*t23*t269*t285+4.1827763404800006E-8*
5019         grada*t178*t23*t52*t451*t285-1.49012545536E-10*grada*t178*
5020         t23*t53*t691*t285)*t137;
5021     d4fdrbrbgaab = 0.0;
5022     d4fdrbrbgbgb = -2.0*t154*t330*t290*t136*t292*rhob+32.1646831778707*
5023         t289*t330*t290*t136*t291*rhob+1.0*t154*t330*t295*t136*t160*
5024         rhob+2.0*t154*t555*t159*t136*t160*rhob-0.03109*t135*(-6.109468444444444*
5025         t142*t287+55.60600177777779*t50*t140*t286-71.65362375111113*
5026         t138*t149*t285+32.696072704*t148*t283*t284-6.230340130133335*
5027         t282*t500*t548+.4244395349333334*t499*t737*t755)*t136*rhob+
5028         2.0*t170*t557-2.0*t128*t30*t4*t556-.3333333333333333*t131*
5029         t30*t331*t4-0.75*t156*(-.04077489777777777*t146*t287+.02432266552888889*
5030         t50*t145*t286-7.765727414044445E-4*t138*t161*t285+7.858300982613333E-6*
5031         t148*t296*t284-3.1928820258133334E-8*t282*t515*t548+4.549827188053334E-11*
5032         t499*t751*t755)*t30*t4+t332*t316+2.0*t154*t330*t159*t136*t160+
5033         .001419638488888889*t1*t2*t4*t135*t330*t157+(0.3697584*t56*
5034         t287-0.0127582752*t52*t55*t287+6.323834880000001E-5*t53*t126*
5035         t287-0.0701187744*t50*t55*t286+0.001308924*t50*t52*t126*t286-
5036         5.329268121600002E-6*t50*t53*t269*t286+9.812273471999999E-4*
5037         t138*t126*t285-1.5614571916800002E-5*t138*t52*t269*t285+5.836324700160002E-8*
5038         t138*t53*t451*t285-2.8320565248E-6*t148*t269*t284+4.1827763404800006E-8*
5039         t148*t52*t451*t284-1.49012545536E-10*t148*t53*t691*t284)*t137-
5040         0.06218*t135*t555*t136+.004258915466666666*t1*t2*t4*t135*t555*
5041         t132-.1369866666666666*t1*t2*t4*t154*t330*t159*t160*t132;
5042     d4fdrbrbgbab = 0.0;
5043     d4fdrbrbabab = 0.0;
5044     d4fdrbgagaga = (-
5045         1.878945984E-4*grada*t50*t26*t126*t152+2.9900244096000006E-6*
5046         grada*t50*t26*t52*t269*t152+2.1240423936000002E-6*t174*t50*
5047         t173*t269*t152-1.1175940915200003E-8*grada*t50*t26*t53*t451*
5048         t152-3.137082255360001E-8*t174*t50*t173*t52*t451*t152+1.11759409152E-10*
5049         t174*t50*t173*t53*t691*t152)*t137+t561*t170;
5050     d4fdrbgagagb = (0.0040845888*gradb*t23*t55*t152-7.6248E-5*
5051         gradb*t23*t52*t126*t152-1.252630656E-4*t22*gradb*t26*t126*
5052         t152+3.1044280320000006E-7*gradb*t23*t53*t269*t152+1.9933496064000003E-6*
5053         t22*gradb*t26*t52*t269*t152-7.450627276800001E-9*t22*gradb*
5054         t26*t53*t451*t152-6.26315328E-5*t180*t23*t126*t151+9.966748032000001E-7*
5055         t180*t23*t52*t269*t151+2.1240423936000002E-6*t22*t180*t26*
5056         t269*t151-3.725313638400001E-9*t180*t23*t53*t451*t151-3.137082255360001E-8*
5057         t22*t180*t26*t52*t451*t151+1.11759409152E-10*t22*t180*t26*
5058         t53*t691*t151)*t137+t562*t170;
5059     d4fdrbgagaab = 0.0;
5060     d4fdrbgagbgb = (0.0040845888*grada*t23*t55*t152-7.6248E-5*
5061         grada*t23*t52*t126*t152+3.1044280320000006E-7*grada*t23*t53*
5062         t269*t152-3.13157664E-4*grada*t50*t23*t126*t151+4.9833740160000006E-6*
5063         grada*t50*t23*t52*t269*t151-1.8626568192000004E-8*grada*t50*
5064         t23*t53*t451*t151+2.1240423936000002E-6*grada*t138*t23*t269*
5065         t150-3.137082255360001E-8*grada*t138*t23*t52*t451*t150+1.11759409152E-10*
5066         grada*t138*t23*t53*t691*t150)*t137+t563*t170;
5067     d4fdrbgagbab = 0.0;
5068     d4fdrbgaabab = 0.0;
5069     d4fdrbgbgbgb = 1.0*t154*t565*t159*t136*t160*rhob-0.03109*
5070         t135*(-17.9456512*gradb*t140*t151+34.66191872*t180*t149*t150-
5071         19.431575552*t178*t283*t320+4.235051827200001*t319*t500*t554-
5072         .3183296512000001*t547*t737*t756)*t136*rhob-1.0*t128*t30*t4*
5073         t566-0.75*(-.007732346879999999*gradb*t145*t151+3.7005520896E-4*
5074         t180*t161*t150-4.623924428799999E-6*t178*t296*t320+2.1600610549760002E-8*
5075         t319*t515*t554-3.41237039104E-11*t547*t751*t756)*t156*t30*
5076         t4+t567*t170+(0.0245075328*gradb*t55*t151-4.57488E-4*gradb*
5077         t52*t126*t151+1.8626568192E-6*gradb*t53*t269*t151-5.636837952E-4*
5078         t180*t126*t150+8.970073228800001E-6*t180*t52*t269*t150-3.352782274560001E-8*
5079         t180*t53*t451*t150+2.1240423936000002E-6*t178*t269*t320-3.137082255360001E-8*
5080         t178*t52*t451*t320+1.11759409152E-10*t178*t53*t691*t320)*t137-
5081         0.03109*t135*t565*t136+.002129457733333333*t1*t2*t4*t135*t565*
5082         t132;
5083     d4fdrbgbgbab = 0.0;
5084     d4fdrbgbabab = 0.0;
5085     d4fdrbababab = 0.0;
5086     d4fdgagagaga = -0.03109*t20*(3.3648096*t25*t26-14.34414336*
5087         t22*t36*t173+10.856395392*t21*t185*t324-2.818168012800001*
5088         t35*t334*t558+.2387472384000001*t184*t569*t757)*t29*rhoa-0.75*
5089         (0.00144981504*t32*t26-1.5036922367999997E-4*t22*t48*t173+
5090         2.5489811251199995E-6*t21*t198*t324-1.428099956736E-8*t35*
5091         t349*t558+2.55927779328E-11*t184*t584*t757)*t30*t4*t43+(-.004595162400000001*
5092         t26*t55+8.577900000000003E-5*t26*t52*t126+2.8184189760000006E-4*
5093         t22*t173*t126-3.492481536000001E-7*t26*t53*t269-4.485036614400001E-6*
5094         t22*t173*t52*t269-1.5930317952000003E-6*t21*t324*t269+1.6763911372800006E-8*
5095         t22*t173*t53*t451+2.3528116915200006E-8*t21*t324*t52*t451-
5096         8.381955686400001E-11*t21*t324*t53*t691)*t137;
5097     d4fdgagagagb = (1.4092094880000006E-4*grada*gradb*t26*
5098         t126*t51-2.2425183072000004E-6*grada*gradb*t26*t52*t269*t51-
5099         1.5930317952000003E-6*t174*gradb*t173*t269*t51+8.381955686400002E-9*
5100         grada*gradb*t26*t53*t451*t51+2.3528116915200006E-8*t174*gradb*
5101         t173*t52*t451*t51-8.381955686400001E-11*t174*gradb*t173*t53*
5102         t691*t51)*t137;
5103     d4fdgagagaab = 0.0;
5104     d4fdgagagbgb = (-0.0015317208*t23*t55*t51+2.8593E-5*t23*
5105         t52*t126*t51+4.69736496E-5*t22*t26*t126*t51-1.1641605120000002E-7*
5106         t23*t53*t269*t51-7.475061024000003E-7*t22*t26*t52*t269*t51+
5107         2.7939852288000006E-9*t22*t26*t53*t451*t51+4.69736496E-5*t50*
5108         t23*t126*t141-7.475061024000003E-7*t50*t23*t52*t269*t141-1.5930317952000003E-6*
5109         t22*t50*t26*t269*t141+2.7939852288000006E-9*t50*t23*t53*t451*
5110         t141+2.3528116915200006E-8*t22*t50*t26*t52*t451*t141-8.381955686400001E-11*
5111         t22*t50*t26*t53*t691*t141)*t137;
5112     d4fdgagagbab = 0.0;
5113     d4fdgagaabab = 0.0;
5114     d4fdgagbgbgb = (1.4092094880000003E-4*grada*gradb*t23*
5115         t126*t141-2.2425183072000004E-6*grada*gradb*t23*t52*t269*t141+
5116         8.381955686400002E-9*grada*gradb*t23*t53*t451*t141-1.5930317952000003E-6*
5117         grada*t180*t23*t269*t179+2.3528116915200006E-8*grada*t180*
5118         t23*t52*t451*t179-8.381955686400001E-11*grada*t180*t23*t53*
5119         t691*t179)*t137;
5120     d4fdgagbgbab = 0.0;
5121     d4fdgagbabab = 0.0;
5122     d4fdgaababab = 0.0;
5123     d4fdgbgbgbgb = -0.03109*t135*(3.3648096*t140*t141-14.34414336*
5124         t50*t149*t179+10.856395392*t138*t283*t329-2.818168012800001*
5125         t148*t500*t564+.2387472384000001*t282*t737*t758)*t136*rhob-
5126         0.75*(0.00144981504*t145*t141-1.5036922367999997E-4*t50*t161*
5127         t179+2.5489811251199995E-6*t138*t296*t329-1.428099956736E-8*
5128         t148*t515*t564+2.55927779328E-11*t282*t751*t758)*t156*t30*
5129         t4+(-.004595162400000001*t55*t141+8.577900000000003E-5*t52*
5130         t126*t141-3.492481536000001E-7*t53*t269*t141+2.8184189760000006E-4*
5131         t50*t126*t179-4.485036614400001E-6*t50*t52*t269*t179+1.6763911372800006E-8*
5132         t50*t53*t451*t179-1.5930317952000003E-6*t138*t269*t329+2.3528116915200006E-8*
5133         t138*t52*t451*t329-8.381955686400001E-11*t138*t53*t691*t329)*
5134         t137;
5135     d4fdgbgbgbab = 0.0;
5136     d4fdgbgbabab = 0.0;
5137     d4fdgbababab = 0.0;
5138     d4fdabababab = 0.0;
5139 
5140 
5141     ds->df1000 += factor*dfdra;
5142     ds->df0100 += factor*dfdrb;
5143     ds->df0010 += factor*dfdga;
5144     ds->df0001 += factor*dfdgb;
5145     ds->df00001+= factor*dfdgab;
5146 
5147     ds->df2000 += factor*d2fdrara;
5148     ds->df1100 += factor*d2fdrarb;
5149     ds->df1010 += factor*d2fdraga;
5150     ds->df1001 += factor*d2fdragb;
5151     ds->df10001+= factor*d2fdraab;
5152     ds->df0200 += factor*d2fdrbrb;
5153     ds->df0110 += factor*d2fdrbga;
5154     ds->df0101 += factor*d2fdrbgb;
5155     ds->df01001+= factor*d2fdrbgab;
5156     ds->df0020 += factor*d2fdgaga;
5157     ds->df0011 += factor*d2fdgagb;
5158     ds->df00101+= factor*d2fdgagab;
5159     ds->df0002 += factor*d2fdgbgb;
5160     ds->df00011+= factor*d2fdgbgab;
5161     ds->df00002+= factor*d2fdgabgab;
5162 
5163     ds->df3000 += factor*d3fdrarara;
5164     ds->df2100  += factor*d3fdrararb;
5165     ds->df2010  += factor*d3fdraraga;
5166     ds->df2001  += factor*d3fdraragb;
5167     ds->df20001 += factor*d3fdraraab;
5168     ds->df1200  += factor*d3fdrarbrb;
5169     ds->df1110  += factor*d3fdrarbga;
5170     ds->df1101  += factor*d3fdrarbgb;
5171     ds->df11001 += factor*d3fdrarbab;
5172     ds->df1020  += factor*d3fdragaga;
5173     ds->df1011  += factor*d3fdragagb;
5174     ds->df10101 += factor*d3fdragaab;
5175     ds->df1002  += factor*d3fdragbgb;
5176     ds->df10011 += factor*d3fdragbab;
5177     ds->df10002 += factor*d3fdraabab;
5178     ds->df0300  += factor*d3fdrbrbrb;
5179     ds->df0210  += factor*d3fdrbrbga;
5180     ds->df0201  += factor*d3fdrbrbgb;
5181     ds->df02001 += factor*d3fdrbrbab;
5182     ds->df0120  += factor*d3fdrbgaga;
5183     ds->df0111  += factor*d3fdrbgagb;
5184     ds->df01101 += factor*d3fdrbgaab;
5185     ds->df0102  += factor*d3fdrbgbgb;
5186     ds->df01011 += factor*d3fdrbgbab;
5187     ds->df01002 += factor*d3fdrbabab;
5188     ds->df0030  += factor*d3fdgagaga;
5189     ds->df0021  += factor*d3fdgagagb;
5190     ds->df00201 += factor*d3fdgagaab;
5191     ds->df0012  += factor*d3fdgagbgb;
5192     ds->df00111 += factor*d3fdgagbab;
5193     ds->df00102 += factor*d3fdgaabab;
5194     ds->df0003  += factor*d3fdgbgbgb;
5195     ds->df00021 += factor*d3fdgbgbab;
5196     ds->df00012 += factor*d3fdgbabab;
5197     ds->df00003 += factor*d3fdababab;
5198 
5199     ds->df4000  += factor*d4fdrararara;
5200     ds->df3100  += factor*d4fdrarararb;
5201     ds->df3010  += factor*d4fdrararaga;
5202     ds->df3001  += factor*d4fdrararagb;
5203     ds->df30001 += factor*d4fdrararaab;
5204     ds->df2200  += factor*d4fdrararbrb;
5205     ds->df2110  += factor*d4fdrararbga;
5206     ds->df2101  += factor*d4fdrararbgb;
5207     ds->df21001 += factor*d4fdrararbab;
5208     ds->df2020  += factor*d4fdraragaga;
5209     ds->df2011  += factor*d4fdraragagb;
5210     ds->df20101 += factor*d4fdraragaab;
5211     ds->df2002  += factor*d4fdraragbgb;
5212     ds->df20011 += factor*d4fdraragbab;
5213     ds->df20002 += factor*d4fdraraabab;
5214     ds->df1300  += factor*d4fdrarbrbrb;
5215     ds->df1210  += factor*d4fdrarbrbga;
5216     ds->df1201  += factor*d4fdrarbrbgb;
5217     ds->df12001 += factor*d4fdrarbrbab;
5218     ds->df1120  += factor*d4fdrarbgaga;
5219     ds->df1111  += factor*d4fdrarbgagb;
5220     ds->df11101 += factor*d4fdrarbgaab;
5221     ds->df1102  += factor*d4fdrarbgbgb;
5222     ds->df11011 += factor*d4fdrarbgbab;
5223     ds->df11002 += factor*d4fdrarbabab;
5224     ds->df1030  += factor*d4fdragagaga;
5225     ds->df1021  += factor*d4fdragagagb;
5226     ds->df10201 += factor*d4fdragagaab;
5227     ds->df1012  += factor*d4fdragagbgb;
5228     ds->df10111 += factor*d4fdragagbab;
5229     ds->df10102 += factor*d4fdragaabab;
5230     ds->df1003  += factor*d4fdragbgbgb;
5231     ds->df10021 += factor*d4fdragbgbab;
5232     ds->df10012 += factor*d4fdragbabab;
5233     ds->df10003 += factor*d4fdraababab;
5234     ds->df0400  += factor*d4fdrbrbrbrb;
5235     ds->df0310  += factor*d4fdrbrbrbga;
5236     ds->df0301  += factor*d4fdrbrbrbgb;
5237     ds->df03001 += factor*d4fdrbrbrbab;
5238     ds->df0220  += factor*d4fdrbrbgaga;
5239     ds->df0211  += factor*d4fdrbrbgagb;
5240     ds->df02101 += factor*d4fdrbrbgaab;
5241     ds->df0202  += factor*d4fdrbrbgbgb;
5242     ds->df02011 += factor*d4fdrbrbgbab;
5243     ds->df02002 += factor*d4fdrbrbabab;
5244     ds->df0130  += factor*d4fdrbgagaga;
5245     ds->df0121  += factor*d4fdrbgagagb;
5246     ds->df01201 += factor*d4fdrbgagaab;
5247     ds->df0112  += factor*d4fdrbgagbgb;
5248     ds->df01111 += factor*d4fdrbgagbab;
5249     ds->df01102 += factor*d4fdrbgaabab;
5250     ds->df0103  += factor*d4fdrbgbgbgb;
5251     ds->df01021 += factor*d4fdrbgbgbab;
5252     ds->df01012 += factor*d4fdrbgbabab;
5253     ds->df01003 += factor*d4fdrbababab;
5254     ds->df0040  += factor*d4fdgagagaga;
5255     ds->df0031  += factor*d4fdgagagagb;
5256     ds->df00301 += factor*d4fdgagagaab;
5257     ds->df0022  += factor*d4fdgagagbgb;
5258     ds->df00211 += factor*d4fdgagagbab;
5259     ds->df00202 += factor*d4fdgagaabab;
5260     ds->df0013  += factor*d4fdgagbgbgb;
5261     ds->df00121 += factor*d4fdgagbgbab;
5262     ds->df00112 += factor*d4fdgagbabab;
5263     ds->df00103 += factor*d4fdgaababab;
5264     ds->df0004  += factor*d4fdgbgbgbgb;
5265     ds->df00031 += factor*d4fdgbgbgbab;
5266     ds->df00022 += factor*d4fdgbgbabab;
5267     ds->df00013 += factor*d4fdgbababab;
5268     ds->df00004 += factor*d4fdabababab;
5269 
5270 }
5271