1 /*-*-mode: C; c-indentation-style: "bsd"; c-basic-offset: 4; -*-*/
2 /* fun-14.c:
3 
4    Automatically generated code implementing 1/4 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 14Functional;" to 'functionals.h'
11     2. add "&14Functional," to 'functionals.c'
12     3. add "fun-14.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.
13 
14     This functional has been generated from following input:
15     ------ cut here -------
16 xa: (grada/rhoa^(4/3));
17 xb: (gradb/rhob^(4/3));
18 
19 pa: 1;
20 Aa: 0.016887;
21 a1a: 0.11125;
22 b1a: 10.357;
23 b2a: 3.6231;
24 b3a: 0.88026;
25 b4a: 0.49671;
26 
27 pe: 1;
28 c0p: 0.031091;
29 a1p: 0.21370;
30 b1p: 7.5957;
31 b2p: 3.5876;
32 b3p: 1.6382;
33 b4p: 0.49294;
34 
35 c0f: 0.01554500000;
36 a1f: 0.20548;
37 b1f: 14.1189;
38 b2f: 6.1977;
39 b3f: 3.3662;
40 b4f: 0.62517;
41 
42 
43 ccab: [0.0821827, 4.56466   , -13.5529  ,  13.3820 , -3.17493];
44 ccaa: [2.82414  , 0.0318843 , -1.78512  ,  2.39795 ,-0.876909];
45 cx:   [1.03161  ,-0.360781  ,  3.51994  , -4.95944 ,  2.41165];
46 
47 rs(r):= (3/(4*%PI*r))^(1/3);
48 z(ra,rb):= (ra-rb)/(ra+rb);
49 fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);
50 
51 d2fz0: 1.709921;
52 
53 Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
54    *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));
55 
56 Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
57 EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
58 EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);
59 
60 
61 EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
62    Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
63    (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
64    (z(ra,rb))^4);
65 
66 EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);
67 
68 gcab: 0.006;
69 gcaa: 0.2;
70 
71 cx0: -3/8*((16*3/%PI)^(1/3));
72 gx: 0.004;
73 
74 Ucab(t):= gcab*t/(1+gcab*t);
75 Ucaa(t):= gcaa*t/(1+gcaa*t);
76 
77 Gcab(t):= ccab[1] + ccab[2]*Ucab(t)   + ccab[3]*Ucab(t)^2
78                   + ccab[4]*Ucab(t)^3 + ccab[5]*Ucab(t)^4;
79 
80 Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t)   + ccaa[3]*Ucaa(t)^2
81                   + ccaa[4]*Ucaa(t)^3 + ccaa[5]*Ucaa(t)^4;
82 
83 Ux(r):= gx*r/(1+gx*r);
84 
85 ExLSDAa: (cx0*rhoa^(4/3));
86 ExLSDAb: (cx0*rhob^(4/3));
87 
88 Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2 + cx[4]*Ux(t)^3 + cx[5]*Ux(t)^4;
89 
90 K(rhoa,grada,rhob,gradb,gradab):=
91    EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
92  + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
93  + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);
94 
95 
96 
97 
98     ------ cut here -------
99 */
100 
101 
102 /* strictly conform to XOPEN ANSI C standard */
103 #if !defined(SYS_DEC)
104 /* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
105  * is not specified. */
106 #define _XOPEN_SOURCE          500
107 #define _XOPEN_SOURCE_EXTENDED 1
108 #endif
109 #include <math.h>
110 #include <stddef.h>
111 #include "general.h"
112 
113 #define __CVERSION__
114 
115 #include "functionals.h"
116 
117 /* INTERFACE PART */
f14_isgga(void)118 static integer f14_isgga(void) { return 1; } /* FIXME: detect! */
119 static integer f14_read(const char *conf_line);
120 static real f14_energy(const FunDensProp* dp);
121 static void f14_first(FunFirstFuncDrv *ds,   real factor,
122                          const FunDensProp* dp);
123 static void f14_second(FunSecondFuncDrv *ds, real factor,
124                           const FunDensProp* dp);
125 static void f14_third(FunThirdFuncDrv *ds,   real factor,
126                          const FunDensProp* dp);
127 static void f14_fourth(FunFourthFuncDrv *ds,   real factor,
128                           const FunDensProp* dp);
129 
130 Functional f14Functional = {
131   "1/4",       /* name */
132   f14_isgga,   /* gga-corrected */
133   1,
134   f14_read,
135   NULL,
136   f14_energy,
137   f14_first,
138   f14_second,
139   f14_third,
140   f14_fourth
141 };
142 
143 /* IMPLEMENTATION PART */
144 static integer
f14_read(const char * conf_line)145 f14_read(const char *conf_line)
146 {
147     fun_set_hf_weight(0);
148     return 1;
149 }
150 
151 
152 
153 static real
f14_energy(const FunDensProp * dp)154 f14_energy(const FunDensProp *dp)
155 {
156     real res;
157     real rhoa = dp->rhoa, rhob = dp->rhob;
158     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
159 
160     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
161     real t11, t12, t13, t14, t15, t16, t17, t18;
162     real t19, t20, t21, t22, t23, t24, t25, t26;
163     real t27, t28, t29, t30, t31, t32, t33, t34;
164     real t35, t36, t37, t38, t39, t40, t41, t42;
165     real t43, t44, t45, t46, t47, t48, t49, t50;
166     real t51, t52, t53, t54, t55, t56, t57, t58;
167     real t59;
168 
169     t1 = 1.732050807568877;
170     t2 = pow(M_PI,.3333333333333333);
171     t3 = pow(rhoa,.3333333333333333);
172     t4 = sqrt(t2*t3);
173     t5 = pow(2.0,.3333333333333333);
174     t6 = 1/t5;
175     t7 = pow(3.0,.1666666666666667);
176     t8 = pow(3.0,.6666666666666666);
177     t9 = 1/pow(4.0,.6666666666666666);
178     t10 = 1/pow(M_PI,.6666666666666666);
179     t11 = pow(3.0,.3333333333333333);
180     t12 = 1/pow(4.0,.3333333333333333);
181     t13 = 1/t2;
182     t14 = 1/t3;
183     t15 = log(32.1646831778707/(0.62517*t10*t8*t9/pow(rhoa,
184         .6666666666666666)+14.1189*t6*t7/t4+1.6831*t1/pow(t4,3.0)+
185         6.1977*t11*t12*t13*t14)+1.0);
186     t16 = pow(grada,8.0);
187     t17 = pow(grada,2.0);
188     t18 = 1/pow(rhoa,2.666666666666667);
189     t19 = 0.2*t17*t18+1.0;
190     t20 = 1/pow(rhoa,10.66666666666667);
191     t21 = pow(grada,6.0);
192     t22 = 1/pow(rhoa,8.0);
193     t23 = pow(grada,4.0);
194     t24 = 1/pow(rhoa,5.333333333333333);
195     t25 = 0.20548*t11*t12*t13*t14+1.0;
196     t26 = pow(6.0,.3333333333333333);
197     t27 = 0.004*t17*t18+1.0;
198     t28 = pow(rhob,.3333333333333333);
199     t29 = sqrt(t2*t28);
200     t30 = 1/t28;
201     t31 = log(32.1646831778707/(0.62517*t10*t8*t9/pow(rhob,
202         .6666666666666666)+14.1189*t6*t7/t29+6.1977*t11*t12*t13*t30+
203         1.6831*t1/pow(t29,3.0))+1.0);
204     t32 = pow(gradb,8.0);
205     t33 = pow(gradb,2.0);
206     t34 = 1/pow(rhob,2.666666666666667);
207     t35 = 0.2*t33*t34+1.0;
208     t36 = 1/pow(rhob,10.66666666666667);
209     t37 = pow(gradb,6.0);
210     t38 = 1/pow(rhob,8.0);
211     t39 = pow(gradb,4.0);
212     t40 = 1/pow(rhob,5.333333333333333);
213     t41 = 0.20548*t11*t12*t13*t30+1.0;
214     t42 = 0.004*t33*t34+1.0;
215     t43 = 0.5*t33*t34+0.5*t17*t18;
216     t44 = 0.006*t43+1.0;
217     t45 = rhob+rhoa;
218     t46 = pow(t45,.3333333333333333);
219     t47 = 1/t46;
220     t48 = 0.2137*t11*t12*t13*t47+1.0;
221     t49 = 1/pow(t45,.6666666666666666);
222     t50 = sqrt(t2*t46);
223     t51 = 1/pow(t50,3.0);
224     t52 = 1/t50;
225     t53 = log(16.0818243221511/(7.5957*t6*t7*t52+0.8191*t1*
226         t51+3.5876*t11*t12*t13*t47+0.49294*t8*t9*t10*t49)+1.0);
227     t54 = 1/(2.0*t5-2.0);
228     t55 = rhoa-1.0*rhob;
229     t56 = pow(t55,4.0);
230     t57 = 1/pow(t45,4.0);
231     t58 = 1/t45;
232     t59 = pow(t55*t58+1.0,1.333333333333333)+pow(1.0-1.0*
233         t55*t58,1.333333333333333)-2.0;
234 
235    /* code */
236     res = -0.75*t13*t26*(6.173823999999999E-10*t32*t36/pow(t42,
237         4.0)-3.1740416000000005E-7*t37*t38/pow(t42,3.0)+5.631904E-5*
238         t39*t40/pow(t42,2.0)-0.001443124*t33*t34/t42+1.03161)*pow(rhob,
239         1.333333333333333)+(-4.11470928E-9*pow(t43,4.0)/pow(t44,4.0)+
240         2.8905119999999995E-6*pow(t43,3.0)/pow(t44,3.0)-4.8790439999999996E-4*
241         pow(t43,2.0)/pow(t44,2.0)+0.02738796*t43/t44+0.0821827)*(0.03109*
242         t31*t41*rhob+0.03109*t15*t25*rhoa+t45*(.01975178970256521*
243         (0.11125*t11*t12*t13*t47+1.0)*log(29.60857464321668/(10.357*
244         t6*t7*t52+0.44013*t1*t51+3.6231*t11*t12*t13*t47+0.49671*t8*
245         t9*t10*t49)+1.0)*t54*(1.0-1.0*t56*t57)*t59+(0.062182*t48*t53-
246         0.03109*(0.20548*t11*t12*t13*t47+1.0)*log(32.1646831778707/
247         (14.1189*t6*t7*t52+1.6831*t1*t51+6.1977*t11*t12*t13*t47+0.62517*
248         t8*t9*t10*t49)+1.0))*t54*t56*t57*t59-0.062182*t48*t53))-0.03109*
249         t31*(-.07140480000000002*t39*t40/pow(t35,2.0)+0.0191836*t37*
250         t38/pow(t35,3.0)-.001403054400000001*t32*t36/pow(t35,4.0)+
251         0.00637686*t33*t34/t35+2.82414)*t41*rhob-0.75*t13*t26*(6.173823999999999E-10*
252         t16*t20/pow(t27,4.0)-3.1740416000000005E-7*t21*t22/pow(t27,
253         3.0)+5.631904E-5*t23*t24/pow(t27,2.0)-0.001443124*t17*t18/
254         t27+1.03161)*pow(rhoa,1.333333333333333)-0.03109*t15*(-.07140480000000002*
255         t23*t24/pow(t19,2.0)+0.0191836*t21*t22/pow(t19,3.0)-.001403054400000001*
256         t16*t20/pow(t19,4.0)+0.00637686*t17*t18/t19+2.82414)*t25*rhoa;
257 
258     return res;
259 }
260 
261 static void
f14_first(FunFirstFuncDrv * ds,real factor,const FunDensProp * dp)262 f14_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
263 {
264     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
265     real rhoa = dp->rhoa, rhob = dp->rhob;
266     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
267 
268     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
269     real t11, t12, t13, t14, t15, t16, t17, t18;
270     real t19, t20, t21, t22, t23, t24, t25, t26;
271     real t27, t28, t29, t30, t31, t32, t33, t34;
272     real t35, t36, t37, t38, t39, t40, t41, t42;
273     real t43, t44, t45, t46, t47, t48, t49, t50;
274     real t51, t52, t53, t54, t55, t56, t57, t58;
275     real t59, t60, t61, t62, t63, t64, t65, t66;
276     real t67, t68, t69, t70, t71, t72, t73, t74;
277     real t75, t76, t77, t78, t79, t80, t81, t82;
278     real t83, t84, t85, t86, t87, t88, t89, t90;
279     real t91, t92, t93, t94, t95, t96, t97, t98;
280     real t99, t100, t101, t102, t103, t104, t105;
281     real t106, t107, t108, t109, t110, t111, t112;
282     real t113, t114, t115, t116, t117, t118, t119;
283     real t120, t121, t122, t123, t124, t125, t126;
284     real t127, t128, t129, t130, t131, t132, t133;
285     real t134, t135, t136, t137, t138, t139, t140;
286     real t141, t142, t143, t144, t145, t146, t147;
287     real t148, t149, t150, t151, t152, t153, t154;
288     real t155, t156, t157, t158, t159, t160, t161;
289     real t162, t163, t164, t165, t166, t167, t168;
290     real t169;
291 
292     t1 = pow(3.0,.3333333333333333);
293     t2 = 1/pow(4.0,.3333333333333333);
294     t3 = pow(M_PI,.3333333333333333);
295     t4 = 1/t3;
296     t5 = 1.732050807568877;
297     t6 = pow(rhoa,.3333333333333333);
298     t7 = sqrt(t3*t6);
299     t8 = 1/pow(t7,3.0);
300     t9 = pow(2.0,.3333333333333333);
301     t10 = 1/t9;
302     t11 = pow(3.0,.1666666666666667);
303     t12 = pow(3.0,.6666666666666666);
304     t13 = 1/pow(4.0,.6666666666666666);
305     t14 = 1/pow(M_PI,.6666666666666666);
306     t15 = 1/pow(rhoa,.6666666666666666);
307     t16 = 1/t6;
308     t17 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
309         t16+0.62517*t12*t13*t14*t15;
310     t18 = 32.1646831778707/t17+1.0;
311     t19 = log(t18);
312     t20 = pow(grada,8.0);
313     t21 = pow(grada,2.0);
314     t22 = 1/pow(rhoa,2.666666666666667);
315     t23 = 0.2*t21*t22+1.0;
316     t24 = 1/pow(t23,4.0);
317     t25 = 1/pow(rhoa,10.66666666666667);
318     t26 = pow(grada,6.0);
319     t27 = 1/pow(t23,3.0);
320     t28 = 1/pow(rhoa,8.0);
321     t29 = pow(grada,4.0);
322     t30 = 1/pow(t23,2.0);
323     t31 = 1/pow(rhoa,5.333333333333333);
324     t32 = 1/t23;
325     t33 = 0.00637686*t21*t32*t22-.07140480000000002*t29*t30*
326         t31+0.0191836*t26*t27*t28-.001403054400000001*t20*t24*t25+
327         2.82414;
328     t34 = 0.20548*t1*t2*t4*t16+1.0;
329     t35 = pow(6.0,.3333333333333333);
330     t36 = 0.004*t21*t22+1.0;
331     t37 = 1/pow(t36,4.0);
332     t38 = 1/pow(t36,3.0);
333     t39 = 1/pow(t36,2.0);
334     t40 = 1/t36;
335     t41 = pow(grada,10.0);
336     t42 = 1/pow(t23,5.0);
337     t43 = 1/pow(rhoa,14.33333333333333);
338     t44 = 1/pow(rhoa,11.66666666666667);
339     t45 = 1/pow(rhoa,9.0);
340     t46 = 1/pow(rhoa,6.333333333333333);
341     t47 = 1/pow(rhoa,3.666666666666667);
342     t48 = 1/t18;
343     t49 = pow(rhoa,1.333333333333333);
344     t50 = -0.41678*t12*t13*t14/pow(rhoa,1.666666666666667)-
345         0.84155*t15*t3*t5/pow(t7,5.0)-2.0659*t1*t2*t4/t49-2.35315*
346         t10*t11*t3*t8*t15;
347     t51 = 1/pow(t17,2.0);
348     t52 = 1/pow(t36,5.0);
349     t53 = pow(gradb,2.0);
350     t54 = 1/pow(rhob,2.666666666666667);
351     t55 = 0.5*t53*t54+0.5*t21*t22;
352     t56 = pow(t55,4.0);
353     t57 = 0.006*t55+1.0;
354     t58 = 1/pow(t57,4.0);
355     t59 = pow(t55,3.0);
356     t60 = 1/pow(t57,3.0);
357     t61 = pow(t55,2.0);
358     t62 = 1/pow(t57,2.0);
359     t63 = 1/t57;
360     t64 = 0.02738796*t55*t63-4.8790439999999996E-4*t61*t62+
361         2.8905119999999995E-6*t59*t60-4.11470928E-9*t56*t58+0.0821827;
362     t65 = rhob+
363         rhoa;
364     t66 = pow(t65,.3333333333333333);
365     t67 = 1/t66;
366     t68 = 0.2137*t1*t2*t4*t67+1.0;
367     t69 = 1/pow(t65,.6666666666666666);
368     t70 = sqrt(t3*t66);
369     t71 = 1/pow(t70,3.0);
370     t72 = 1/t70;
371     t73 = 7.5957*t10*t11*t72+0.8191*t5*t71+3.5876*t1*t2*t4*
372         t67+0.49294*t12*t13*t14*t69;
373     t74 = 16.0818243221511/t73+1.0;
374     t75 = log(t74);
375     t76 = -0.062182*t68*t75;
376     t77 = 1/(2.0*t9-2.0);
377     t78 = rhoa-1.0*rhob;
378     t79 = pow(t78,4.0);
379     t80 = 1/pow(t65,4.0);
380     t81 = 1.0-1.0*t79*t80;
381     t82 = 0.11125*t1*t2*t4*t67+1.0;
382     t83 = 1/t65;
383     t84 = 1.0-1.0*t78*t83;
384     t85 = t78*t83+1.0;
385     t86 = pow(t85,1.333333333333333)+pow(t84,1.333333333333333)-
386         2.0;
387     t87 = 10.357*t10*t11*t72+0.44013*t5*t71+3.6231*t1*t2*
388         t4*t67+0.49671*t12*t13*t14*t69;
389     t88 = 29.60857464321668/t87+1.0;
390     t89 = log(t88);
391     t90 = .01975178970256521*t77*t81*t82*t86*t89;
392     t91 = 0.20548*t1*t2*t4*t67+1.0;
393     t92 = 14.1189*t10*t11*t72+1.6831*t5*t71+6.1977*t1*t2*
394         t4*t67+0.62517*t12*t13*t14*t69;
395     t93 = 32.1646831778707/t92+1.0;
396     t94 = log(t93);
397     t95 = 0.062182*t68*t75-0.03109*t91*t94;
398     t96 = t77*t79*t80*t86*t95;
399     t97 = 1/pow(t65,1.666666666666667);
400     t98 = 1/pow(t65,1.333333333333333);
401     t99 = 1/pow(t70,5.0);
402     t100 = -1.26595*t10*t11*t3*t69*t71-0.40955*t5*t3*t69*
403         t99-1.195866666666667*t1*t2*t4*t98-.3286266666666666*t12*t13*
404         t14*t97;
405     t101 = 1/pow(t73,2.0);
406     t102 = 1/t74;
407     t103 = .9999999999999999*t68*t100*t101*t102;
408     t104 = -.5848223397455204*(-1.726166666666666*t10*t11*
409         t3*t69*t71-0.220065*t5*t3*t69*t99-1.2077*t1*t2*t4*t98-0.33114*
410         t12*t13*t14*t97)*t77*t81*t82*t86/(pow(t87,2.0)*t88);
411     t105 = .004429431133333333*t1*t2*t4*t98*t75;
412     t106 = 1/pow(t65,2.0);
413     t107 = t78*t106;
414     t108 = -1.0*t83;
415     t109 = pow(t84,.3333333333333333);
416     t110 = -1.0*t106*t78;
417     t111 = pow(t85,.3333333333333333);
418     t112 = 1.333333333333333*t111*(t83+t110)+1.333333333333333*
419         (t108+t107)*t109;
420     t113 = -7.324622014701263E-4*t77*t1*t2*t4*t98*t81*t86*
421         t89;
422     t114 = 1/pow(t65,5.0);
423     t115 = 4.0*t114*t79;
424     t116 = pow(t78,3.0);
425     t117 = t77*t79*t80*t86*(.002129457733333333*t1*t2*t4*
426         t98*t94+1.0*(-2.35315*t10*t11*t3*t69*t71-0.84155*t5*t3*t69*
427         t99-2.0659*t1*t2*t4*t98-0.41678*t12*t13*t14*t97)*t91/(pow(t92,
428         2.0)*t93)-.004429431133333333*t1*t2*t4*t98*t75-.9999999999999999*
429         t68*t100*t101*t102);
430     t118 = -4.0*t114*t77*t79*t86*t95;
431     t119 = 1/pow(t57,5.0);
432     t120 = pow(rhob,.3333333333333333);
433     t121 = sqrt(t3*t120);
434     t122 = 1/pow(t121,3.0);
435     t123 = 1/pow(rhob,.6666666666666666);
436     t124 = 1/t120;
437     t125 = 6.1977*t1*t2*t4*t124+0.62517*t12*t13*t14*t123+
438         1.6831*t5*t122+14.1189*t10*t11/t121;
439     t126 = 32.1646831778707/t125+1.0;
440     t127 = log(t126);
441     t128 = 0.20548*t1*t2*t4*t124+1.0;
442     t129 = t65*(t96+t90+t76)+0.03109*t127*t128*rhob+0.03109*
443         t19*t34*rhoa;
444     t130 = pow(gradb,8.0);
445     t131 = 0.2*t53*t54+1.0;
446     t132 = 1/pow(t131,4.0);
447     t133 = 1/pow(rhob,10.66666666666667);
448     t134 = pow(gradb,6.0);
449     t135 = 1/pow(t131,3.0);
450     t136 = 1/pow(rhob,8.0);
451     t137 = pow(gradb,4.0);
452     t138 = 1/pow(t131,2.0);
453     t139 = 1/pow(rhob,5.333333333333333);
454     t140 = 1/t131;
455     t141 = 0.00637686*t53*t140*t54-.07140480000000002*t137*
456         t138*t139+0.0191836*t134*t135*t136-.001403054400000001*t130*
457         t132*t133+2.82414;
458     t142 = 0.004*t53*t54+1.0;
459     t143 = 1/pow(t142,4.0);
460     t144 = 1/pow(t142,3.0);
461     t145 = 1/pow(t142,2.0);
462     t146 = 1/t142;
463     t147 = pow(gradb,10.0);
464     t148 = 1/pow(t131,5.0);
465     t149 = 1/pow(rhob,14.33333333333333);
466     t150 = 1/pow(rhob,11.66666666666667);
467     t151 = 1/pow(rhob,9.0);
468     t152 = 1/pow(rhob,6.333333333333333);
469     t153 = 1/pow(rhob,3.666666666666667);
470     t154 = 1/t126;
471     t155 = pow(rhob,1.333333333333333);
472     t156 = -0.41678*t12*t13*t14/pow(rhob,1.666666666666667)-
473         0.84155*t123*t3*t5/pow(t121,5.0)-2.0659*t1*t2*t4/t155-2.35315*
474         t10*t11*t3*t122*t123;
475     t157 = 1/pow(t125,2.0);
476     t158 = 1/pow(t142,5.0);
477     t159 = 1.333333333333333*t109*(t83+t107)+1.333333333333333*
478         (t108+t110)*t111;
479     t160 = pow(grada,9.0);
480     t161 = 1/pow(rhoa,13.33333333333333);
481     t162 = pow(grada,7.0);
482     t163 = pow(grada,5.0);
483     t164 = pow(grada,3.0);
484     t165 = pow(gradb,9.0);
485     t166 = 1/pow(rhob,13.33333333333333);
486     t167 = pow(gradb,7.0);
487     t168 = pow(gradb,5.0);
488     t169 = pow(gradb,3.0);
489 
490    /* code */
491     dfdra = t64*(-1.0*t48*t50*t34*t51*rhoa+t96+t65*(4.0*t116*
492         t77*t80*t86*t95+t77*t79*t80*t112*t95+.01975178970256521*t77*
493         (t115-4.0*t116*t80)*t82*t86*t89+.01975178970256521*t77*t81*
494         t82*t112*t89+t118+t117+t113+t105+t104+t103)+t90+t76+0.03109*
495         t19*t34-.002129457733333333*t1*t2*t4*t19*t16)+1.0*t48*t33*
496         t50*t34*t51*rhoa-0.03109*t19*(-0.01700496*t21*t32*t47+.3842265920000001*
497         t29*t30*t46-0.22963392*t26*t27*t45+.04565967360000001*t20*
498         t24*t44-.002993182720000002*t41*t42*t43)*t34*rhoa-1.0*(-0.001443124*
499         t21*t40*t22+5.631904E-5*t29*t39*t31-3.1740416000000005E-7*
500         t26*t38*t28+6.173823999999999E-10*t20*t37*t25+1.03161)*t35*
501         t4*t6-0.75*t35*t4*(.003848330666666667*t21*t40*t47-3.1576153599999995E-4*
502         t29*t39*t46+3.740706133333333E-6*t26*t38*t45-1.6742345386666668E-8*
503         t20*t37*t44+2.634164906666666E-11*t41*t52*t43)*t49-0.03109*
504         t19*t33*t34+.002129457733333333*t1*t2*t4*t19*t33*t16+(-0.03651728*
505         t21*t47*t63+0.00152018208*t21*t47*t55*t62-1.9368518399999998E-5*
506         t21*t47*t61*t60+9.131740416E-8*t21*t47*t59*t58-1.3167069696E-10*
507         t21*t47*t56*t119)*t129;
508     dfdrb = t64*(-1.0*t154*t156*t128*t157*rhob+t96+t65*(-
509         4.0*t116*t77*t80*t86*t95+t77*t79*t80*t159*t95+.01975178970256521*
510         t77*(4.0*t116*t80+t115)*t82*t86*t89+.01975178970256521*t77*
511         t81*t82*t159*t89+t118+t117+t113+t105+t104+t103)+t90+t76+0.03109*
512         t127*t128-.002129457733333333*t1*t2*t4*t127*t124)+1.0*t154*
513         t141*t156*t128*t157*rhob-0.03109*t127*(-0.01700496*t53*t140*
514         t153+.3842265920000001*t137*t138*t152-0.22963392*t134*t135*
515         t151+.04565967360000001*t130*t132*t150-.002993182720000002*
516         t147*t148*t149)*t128*rhob-1.0*t120*t35*t4*(-0.001443124*t53*
517         t146*t54+5.631904E-5*t137*t145*t139-3.1740416000000005E-7*
518         t134*t144*t136+6.173823999999999E-10*t130*t143*t133+1.03161)-
519         0.75*(.003848330666666667*t53*t146*t153-3.1576153599999995E-4*
520         t137*t145*t152+3.740706133333333E-6*t134*t144*t151-1.6742345386666668E-8*
521         t130*t143*t150+2.634164906666666E-11*t147*t158*t149)*t155*
522         t35*t4+(-0.03651728*t53*t63*t153+0.00152018208*t53*t55*t62*
523         t153-1.9368518399999998E-5*t53*t61*t60*t153+9.131740416E-8*
524         t53*t59*t58*t153-1.3167069696E-10*t53*t56*t119*t153)*t129-
525         0.03109*t127*t141*t128+.002129457733333333*t1*t2*t4*t127*t141*
526         t124;
527     dfdga = -0.03109*t19*(0.01275372*grada*t32*t22-.2881699440000001*
528         t164*t30*t31+0.17222544*t163*t27*t28-.03424475520000001*t162*
529         t24*t25+.002244887040000001*t160*t42*t161)*t34*rhoa-0.75*(-
530         0.002886248*grada*t40*t22+2.3682115199999998E-4*t164*t39*t31-
531         2.8055296E-6*t163*t38*t28+1.255675904E-8*t162*t37*t25-1.97562368E-11*
532         t160*t52*t161)*t35*t4*t49+(0.02738796*grada*t22*t63-0.00114013656*
533         grada*t22*t55*t62+1.45263888E-5*grada*t22*t61*t60-6.848805312000001E-8*
534         grada*t22*t59*t58+9.875302271999999E-11*grada*t22*t56*t119)*
535         t129;
536     dfdgb = -0.03109*t127*(0.01275372*gradb*t140*t54-.2881699440000001*
537         t169*t138*t139+0.17222544*t168*t135*t136-.03424475520000001*
538         t167*t132*t133+.002244887040000001*t165*t148*t166)*t128*rhob-
539         0.75*t155*t35*t4*(-0.002886248*gradb*t146*t54+2.3682115199999998E-4*
540         t169*t145*t139-2.8055296E-6*t168*t144*t136+1.255675904E-8*
541         t167*t143*t133-1.97562368E-11*t165*t158*t166)+(0.02738796*
542         gradb*t63*t54-0.00114013656*gradb*t55*t62*t54+1.45263888E-5*
543         gradb*t61*t60*t54-6.848805312000001E-8*gradb*t59*t58*t54+9.875302271999999E-11*
544         gradb*t56*t119*t54)*t129;
545     dfdgab = 0.0;
546 
547 
548     ds->df1000 += factor*dfdra;
549     ds->df0100 += factor*dfdrb;
550     ds->df0010 += factor*dfdga;
551     ds->df0001 += factor*dfdgb;
552     ds->df00001+= factor*dfdgab;
553 
554 }
555 
556 static void
f14_second(FunSecondFuncDrv * ds,real factor,const FunDensProp * dp)557 f14_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
558 {
559     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
560     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
561         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
562         d2fdgbgb, d2fdgbgab, d2fdgabgab;
563     real rhoa = dp->rhoa, rhob = dp->rhob;
564     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
565 
566     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
567     real t11, t12, t13, t14, t15, t16, t17, t18;
568     real t19, t20, t21, t22, t23, t24, t25, t26;
569     real t27, t28, t29, t30, t31, t32, t33, t34;
570     real t35, t36, t37, t38, t39, t40, t41, t42;
571     real t43, t44, t45, t46, t47, t48, t49, t50;
572     real t51, t52, t53, t54, t55, t56, t57, t58;
573     real t59, t60, t61, t62, t63, t64, t65, t66;
574     real t67, t68, t69, t70, t71, t72, t73, t74;
575     real t75, t76, t77, t78, t79, t80, t81, t82;
576     real t83, t84, t85, t86, t87, t88, t89, t90;
577     real t91, t92, t93, t94, t95, t96, t97, t98;
578     real t99, t100, t101, t102, t103, t104, t105;
579     real t106, t107, t108, t109, t110, t111, t112;
580     real t113, t114, t115, t116, t117, t118, t119;
581     real t120, t121, t122, t123, t124, t125, t126;
582     real t127, t128, t129, t130, t131, t132, t133;
583     real t134, t135, t136, t137, t138, t139, t140;
584     real t141, t142, t143, t144, t145, t146, t147;
585     real t148, t149, t150, t151, t152, t153, t154;
586     real t155, t156, t157, t158, t159, t160, t161;
587     real t162, t163, t164, t165, t166, t167, t168;
588     real t169, t170, t171, t172, t173, t174, t175;
589     real t176, t177, t178, t179, t180, t181, t182;
590     real t183, t184, t185, t186, t187, t188, t189;
591     real t190, t191, t192, t193, t194, t195, t196;
592     real t197, t198, t199, t200, t201, t202, t203;
593     real t204, t205, t206, t207, t208, t209, t210;
594     real t211, t212, t213, t214, t215, t216, t217;
595     real t218, t219, t220, t221, t222, t223, t224;
596     real t225, t226, t227, t228, t229, t230, t231;
597     real t232, t233, t234, t235, t236, t237, t238;
598     real t239, t240, t241, t242, t243, t244, t245;
599     real t246, t247, t248, t249, t250, t251, t252;
600     real t253, t254, t255, t256, t257, t258, t259;
601     real t260, t261, t262, t263, t264, t265, t266;
602     real t267, t268, t269, t270, t271, t272, t273;
603     real t274, t275, t276, t277, t278, t279, t280;
604     real t281, t282, t283, t284, t285, t286, t287;
605     real t288, t289, t290;
606 
607     t1 = pow(3.0,.3333333333333333);
608     t2 = 1/pow(4.0,.3333333333333333);
609     t3 = pow(M_PI,.3333333333333333);
610     t4 = 1/t3;
611     t5 = 1.732050807568877;
612     t6 = pow(rhoa,.3333333333333333);
613     t7 = sqrt(t3*t6);
614     t8 = 1/pow(t7,3.0);
615     t9 = pow(2.0,.3333333333333333);
616     t10 = 1/t9;
617     t11 = pow(3.0,.1666666666666667);
618     t12 = pow(3.0,.6666666666666666);
619     t13 = 1/pow(4.0,.6666666666666666);
620     t14 = pow(M_PI,.6666666666666666);
621     t15 = 1/t14;
622     t16 = 1/pow(rhoa,.6666666666666666);
623     t17 = 1/t6;
624     t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
625         t17+0.62517*t12*t13*t15*t16;
626     t19 = 32.1646831778707/t18+1.0;
627     t20 = log(t19);
628     t21 = pow(grada,8.0);
629     t22 = pow(grada,2.0);
630     t23 = 1/pow(rhoa,2.666666666666667);
631     t24 = 0.2*t22*t23+1.0;
632     t25 = 1/pow(t24,4.0);
633     t26 = 1/pow(rhoa,10.66666666666667);
634     t27 = pow(grada,6.0);
635     t28 = 1/pow(t24,3.0);
636     t29 = 1/pow(rhoa,8.0);
637     t30 = pow(grada,4.0);
638     t31 = 1/pow(t24,2.0);
639     t32 = 1/pow(rhoa,5.333333333333333);
640     t33 = 1/t24;
641     t34 = 0.00637686*t22*t33*t23-.07140480000000002*t30*t31*
642         t32+0.0191836*t27*t28*t29-.001403054400000001*t21*t25*t26+
643         2.82414;
644     t35 = 0.20548*t1*t2*t4*t17+1.0;
645     t36 = pow(6.0,.3333333333333333);
646     t37 = 0.004*t22*t23+1.0;
647     t38 = 1/pow(t37,4.0);
648     t39 = 1/pow(t37,3.0);
649     t40 = 1/pow(t37,2.0);
650     t41 = 1/t37;
651     t42 = -0.001443124*t22*t41*t23+5.631904E-5*t30*t40*t32-
652         3.1740416000000005E-7*t27*t39*t29+6.173823999999999E-10*t21*
653         t38*t26+1.03161;
654     t43 = pow(grada,10.0);
655     t44 = 1/pow(t24,5.0);
656     t45 = 1/pow(rhoa,14.33333333333333);
657     t46 = 1/pow(rhoa,11.66666666666667);
658     t47 = 1/pow(rhoa,9.0);
659     t48 = 1/pow(rhoa,6.333333333333333);
660     t49 = 1/pow(rhoa,3.666666666666667);
661     t50 = -0.01700496*t22*t33*t49+.3842265920000001*t30*t31*
662         t48-0.22963392*t27*t28*t47+.04565967360000001*t21*t25*t46-
663         .002993182720000002*t43*t44*t45;
664     t51 = 1/t19;
665     t52 = 1/pow(rhoa,1.666666666666667);
666     t53 = pow(rhoa,1.333333333333333);
667     t54 = 1/t53;
668     t55 = 1/pow(t7,5.0);
669     t56 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t55*t16-
670         2.0659*t1*t2*t4*t54-0.41678*t12*t13*t15*t52;
671     t57 = 1/pow(t18,2.0);
672     t58 = 1/pow(t37,5.0);
673     t59 = .003848330666666667*t22*t41*t49-3.1576153599999995E-4*
674         t30*t40*t48+3.740706133333333E-6*t27*t39*t47-1.6742345386666668E-8*
675         t21*t38*t46+2.634164906666666E-11*t43*t58*t45;
676     t60 = pow(gradb,2.0);
677     t61 = 1/pow(rhob,2.666666666666667);
678     t62 = 0.5*t60*t61+0.5*t22*t23;
679     t63 = pow(t62,4.0);
680     t64 = 0.006*t62+1.0;
681     t65 = 1/pow(t64,4.0);
682     t66 = pow(t62,3.0);
683     t67 = 1/pow(t64,3.0);
684     t68 = pow(t62,2.0);
685     t69 = 1/pow(t64,2.0);
686     t70 = 1/t64;
687     t71 = 0.02738796*t62*t70-4.8790439999999996E-4*t68*t69+
688         2.8905119999999995E-6*t66*t67-4.11470928E-9*t63*t65+0.0821827;
689     t72 = rhob+
690         rhoa;
691     t73 = pow(t72,.3333333333333333);
692     t74 = 1/t73;
693     t75 = 0.2137*t1*t2*t4*t74+1.0;
694     t76 = 1/pow(t72,.6666666666666666);
695     t77 = sqrt(t3*t73);
696     t78 = 1/pow(t77,3.0);
697     t79 = 1/t77;
698     t80 = 7.5957*t10*t11*t79+0.8191*t5*t78+3.5876*t1*t2*t4*
699         t74+0.49294*t12*t13*t15*t76;
700     t81 = 16.0818243221511/t80+1.0;
701     t82 = log(t81);
702     t83 = -0.062182*t75*t82;
703     t84 = 1/(2.0*t9-2.0);
704     t85 = rhoa-1.0*rhob;
705     t86 = pow(t85,4.0);
706     t87 = 1/pow(t72,4.0);
707     t88 = 1.0-1.0*t86*t87;
708     t89 = 0.11125*t1*t2*t4*t74+1.0;
709     t90 = 1/t72;
710     t91 = 1.0-1.0*t85*t90;
711     t92 = t85*t90+1.0;
712     t93 = pow(t92,1.333333333333333)+pow(t91,1.333333333333333)-
713         2.0;
714     t94 = 10.357*t10*t11*t79+0.44013*t5*t78+3.6231*t1*t2*
715         t4*t74+0.49671*t12*t13*t15*t76;
716     t95 = 29.60857464321668/t94+1.0;
717     t96 = log(t95);
718     t97 = .01975178970256521*t84*t88*t89*t93*t96;
719     t98 = 0.20548*t1*t2*t4*t74+1.0;
720     t99 = 14.1189*t10*t11*t79+1.6831*t5*t78+6.1977*t1*t2*
721         t4*t74+0.62517*t12*t13*t15*t76;
722     t100 = 32.1646831778707/t99+1.0;
723     t101 = log(t100);
724     t102 = 0.062182*t75*t82-0.03109*t98*t101;
725     t103 = t84*t86*t87*t93*t102;
726     t104 = 1/pow(t72,1.666666666666667);
727     t105 = 1/pow(t72,1.333333333333333);
728     t106 = 1/pow(t77,5.0);
729     t107 = -1.26595*t10*t11*t3*t76*t78-0.40955*t5*t3*t76*
730         t106-1.195866666666667*t1*t2*t4*t105-.3286266666666666*t12*
731         t13*t15*t104;
732     t108 = 1/pow(t80,2.0);
733     t109 = 1/t81;
734     t110 = .9999999999999999*t75*t107*t108*t109;
735     t111 = -1.726166666666666*t10*t11*t3*t76*t78-0.220065*
736         t5*t3*t76*t106-1.2077*t1*t2*t4*t105-0.33114*t12*t13*t15*t104;
737     t112 = 1/
738         pow(t94,2.0);
739     t113 = 1/t95;
740     t114 = -.5848223397455204*t84*t88*t89*t93*t111*t112*t113;
741     t115 = .004429431133333333*
742         t1*t2*t4*t105*t82;
743     t116 = 1/pow(t72,2.0);
744     t117 = t85*t116;
745     t118 = -1.0*t90;
746     t119 = t118+t117;
747     t120 = pow(t91,.3333333333333333);
748     t121 = -1.0*t116*t85;
749     t122 = t90+t121;
750     t123 = pow(t92,.3333333333333333);
751     t124 = 1.333333333333333*t122*t123+1.333333333333333*
752         t119*t120;
753     t125 = .01975178970256521*t84*t88*t89*t124*t96;
754     t126 = -7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t93*
755         t96;
756     t127 = 1/pow(t72,5.0);
757     t128 = 4.0*t127*t86;
758     t129 = pow(t85,3.0);
759     t130 = t128-4.0*t129*t87;
760     t131 = .01975178970256521*t84*t130*t89*t93*t96;
761     t132 = -2.35315*t10*t11*t3*t76*t78-0.84155*t5*t3*t76*
762         t106-2.0659*t1*t2*t4*t105-0.41678*t12*t13*t15*t104;
763     t133 = 1/pow(t99,2.0);
764     t134 = 1/t100;
765     t135 = .002129457733333333*t1*t2*t4*t105*t101-.004429431133333333*
766         t1*t2*t4*t105*t82+1.0*t98*t132*t133*t134-.9999999999999999*
767         t75*t107*t108*t109;
768     t136 = t84*t86*t87*t93*t135;
769     t137 = t84*t86*t87*t124*t102;
770     t138 = -4.0*t102*t127*t84*t86*t93;
771     t139 = -1.0*t51*t56*t35*t57*rhoa+t97+t72*(4.0*t102*t129*
772         t84*t87*t93+t138+t137+t136+t131+t126+t125+t115+t114+t110)+
773         t83+0.03109*t20*t35-.002129457733333333*t1*t2*t4*t20*t17+t103;
774     t140 = 1/
775         pow(t64,5.0);
776     t141 = -0.03651728*t22*t49*t70+0.00152018208*t22*t49*
777         t62*t69-1.9368518399999998E-5*t22*t49*t68*t67+9.131740416E-8*
778         t22*t49*t66*t65-1.3167069696E-10*t22*t49*t63*t140;
779     t142 = pow(rhob,.3333333333333333);
780     t143 = sqrt(t3*t142);
781     t144 = 1/pow(t143,3.0);
782     t145 = 1/pow(rhob,.6666666666666666);
783     t146 = 1/t142;
784     t147 = 6.1977*t1*t2*t4*t146+0.62517*t12*t13*t15*t145+
785         1.6831*t5*t144+14.1189*t10*t11/t143;
786     t148 = 32.1646831778707/t147+1.0;
787     t149 = log(t148);
788     t150 = 0.20548*t1*t2*t4*t146+1.0;
789     t151 = t72*(t103+t97+t83)+0.03109*t149*t150*rhob+0.03109*
790         t20*t35*rhoa;
791     t152 = pow(gradb,8.0);
792     t153 = 0.2*t60*t61+1.0;
793     t154 = 1/pow(t153,4.0);
794     t155 = 1/pow(rhob,10.66666666666667);
795     t156 = pow(gradb,6.0);
796     t157 = 1/pow(t153,3.0);
797     t158 = 1/pow(rhob,8.0);
798     t159 = pow(gradb,4.0);
799     t160 = 1/pow(t153,2.0);
800     t161 = 1/pow(rhob,5.333333333333333);
801     t162 = 1/t153;
802     t163 = 0.00637686*t60*t162*t61-.07140480000000002*t159*
803         t160*t161+0.0191836*t156*t157*t158-.001403054400000001*t152*
804         t154*t155+2.82414;
805     t164 = 0.004*t60*t61+1.0;
806     t165 = 1/pow(t164,4.0);
807     t166 = 1/pow(t164,3.0);
808     t167 = 1/pow(t164,2.0);
809     t168 = 1/t164;
810     t169 = -0.001443124*t60*t168*t61+5.631904E-5*t159*t167*
811         t161-3.1740416000000005E-7*t156*t166*t158+6.173823999999999E-10*
812         t152*t165*t155+1.03161;
813     t170 = pow(gradb,10.0);
814     t171 = 1/pow(t153,5.0);
815     t172 = 1/pow(rhob,14.33333333333333);
816     t173 = 1/pow(rhob,11.66666666666667);
817     t174 = 1/pow(rhob,9.0);
818     t175 = 1/pow(rhob,6.333333333333333);
819     t176 = 1/pow(rhob,3.666666666666667);
820     t177 = -0.01700496*t60*t162*t176+.3842265920000001*t159*
821         t160*t175-0.22963392*t156*t157*t174+.04565967360000001*t152*
822         t154*t173-.002993182720000002*t170*t171*t172;
823     t178 = 1/t148;
824     t179 = 1/pow(rhob,1.666666666666667);
825     t180 = pow(rhob,1.333333333333333);
826     t181 = 1/t180;
827     t182 = 1/pow(t143,5.0);
828     t183 = -2.35315*t10*t11*t3*t144*t145-0.84155*t5*t3*t182*
829         t145-2.0659*t1*t2*t4*t181-0.41678*t12*t13*t15*t179;
830     t184 = 1/pow(t147,2.0);
831     t185 = 1/pow(t164,5.0);
832     t186 = .003848330666666667*t60*t168*t176-3.1576153599999995E-4*
833         t159*t167*t175+3.740706133333333E-6*t156*t166*t174-1.6742345386666668E-8*
834         t152*t165*t173+2.634164906666666E-11*t170*t185*t172;
835     t187 = t90+t117;
836     t188 = t118+t121;
837     t189 = 1.333333333333333*t123*t188+1.333333333333333*
838         t120*t187;
839     t190 = .01975178970256521*t84*t88*t89*t189*t96;
840     t191 = 4.0*t129*t87+t128;
841     t192 = .01975178970256521*t84*t191*t89*t93*t96;
842     t193 = t84*t86*t87*t189*t102;
843     t194 = -1.0*t178*t183*t150*t184*rhob+t97+t72*(-4.0*t102*
844         t129*t84*t87*t93+t193+t192+t190+t138+t136+t126+t115+t114+t110)+
845         t83+0.03109*t149*t150-.002129457733333333*t1*t2*t4*t149*t146+
846         t103;
847     t195 = -0.03651728*t60*t70*t176+0.00152018208*t60*t62*
848         t69*t176-1.9368518399999998E-5*t60*t68*t67*t176+9.131740416E-8*
849         t60*t66*t65*t176-1.3167069696E-10*t60*t63*t140*t176;
850     t196 = pow(grada,9.0);
851     t197 = 1/pow(rhoa,13.33333333333333);
852     t198 = pow(grada,7.0);
853     t199 = pow(grada,5.0);
854     t200 = pow(grada,3.0);
855     t201 = 0.01275372*grada*t33*t23-.2881699440000001*t200*
856         t31*t32+0.17222544*t199*t28*t29-.03424475520000001*t198*t25*
857         t26+.002244887040000001*t196*t44*t197;
858     t202 = -0.002886248*grada*t41*t23+2.3682115199999998E-4*
859         t200*t40*t32-2.8055296E-6*t199*t39*t29+1.255675904E-8*t198*
860         t38*t26-1.97562368E-11*t196*t58*t197;
861     t203 = 0.02738796*grada*t23*t70-0.00114013656*grada*t23*
862         t62*t69+1.45263888E-5*grada*t23*t68*t67-6.848805312000001E-8*
863         grada*t23*t66*t65+9.875302271999999E-11*grada*t23*t63*t140;
864     t204 = pow(gradb,
865         9.0);
866     t205 = 1/pow(rhob,13.33333333333333);
867     t206 = pow(gradb,7.0);
868     t207 = pow(gradb,5.0);
869     t208 = pow(gradb,3.0);
870     t209 = 0.01275372*gradb*t162*t61-.2881699440000001*t208*
871         t160*t161+0.17222544*t207*t157*t158-.03424475520000001*t206*
872         t154*t155+.002244887040000001*t204*t171*t205;
873     t210 = -0.002886248*gradb*t168*t61+2.3682115199999998E-4*
874         t208*t167*t161-2.8055296E-6*t207*t166*t158+1.255675904E-8*
875         t206*t165*t155-1.97562368E-11*t204*t185*t205;
876     t211 = 0.02738796*gradb*t70*t61-0.00114013656*gradb*t62*
877         t69*t61+1.45263888E-5*gradb*t68*t67*t61-6.848805312000001E-8*
878         gradb*t66*t65*t61+9.875302271999999E-11*gradb*t63*t140*t61;
879     t212 = pow(grada,
880         12.0);
881     t213 = 1/pow(t24,6.0);
882     t214 = 1/pow(rhoa,18.0);
883     t215 = 1/pow(rhoa,15.33333333333333);
884     t216 = 1/pow(rhoa,12.66666666666667);
885     t217 = 1/pow(rhoa,10.0);
886     t218 = 1/pow(rhoa,7.333333333333333);
887     t219 = 1/pow(rhoa,4.666666666666667);
888     t220 = 1/pow(t19,2.0);
889     t221 = pow(t56,2.0);
890     t222 = 1/pow(t18,4.0);
891     t223 = 1/pow(t18,3.0);
892     t224 = 2.754533333333333*t1*t2*t4/pow(rhoa,2.333333333333333)+
893         .7012916666666668*t14*t5*t54/pow(t7,7.0)+1.176575*t10*t11*
894         t14*t55*t54+1.568766666666666*t10*t11*t3*t8*t52+.5610333333333333*
895         t5*t3*t55*t52+.6946333333333333*t12*t13*t15*t23;
896     t225 = 1/pow(t37,6.0);
897     t226 = 2.0*t75*t107*t108*t109;
898     t227 = -1.169644679491041*t84*t88*t89*t93*t111*t112*t113;
899     t228 = .008858862266666667*
900         t1*t2*t4*t105*t82;
901     t229 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t93*
902         t96;
903     t230 = 2.0*t135*t84*t86*t87*t93;
904     t231 = -8.0*t102*t127*t84*t86*t93;
905     t232 = pow(t107,2.0);
906     t233 = 1/pow(t80,4.0);
907     t234 = 1/pow(t81,2.0);
908     t235 = 16.0818243221511*t75*t232*t233*t234;
909     t236 = 1/pow(t80,3.0);
910     t237 = -2.0*t75*t232*t236*t109;
911     t238 = 1/pow(t72,2.666666666666667);
912     t239 = 1/pow(t72,2.333333333333333);
913     t240 = 1/pow(t77,7.0);
914     t241 = .8439666666666665*t10*t11*t3*t104*t78+0.632975*
915         t10*t11*t14*t105*t106+.2730333333333334*t5*t3*t104*t106+.3412916666666667*
916         t5*t14*t105*t240+1.594488888888889*t1*t2*t4*t239+0.547711111111111*
917         t12*t13*t15*t238;
918     t242 = .9999999999999999*t75*t241*t108*t109;
919     t243 = -.1424666666666666*t1*t2*t4*t105*t107*t108*t109;
920     t244 = pow(t111,
921         2.0);
922     t245 = -17.31575589937587*t244*t84*t88*t89*t93/(pow(t94,
923         4.0)*pow(t95,2.0));
924     t246 = 1.169644679491041*t113*t244*t84*t88*t89*t93/pow(t94,
925         3.0);
926     t247 = -.5848223397455204*t84*t88*t89*t93*(1.150777777777777*
927         t10*t11*t3*t104*t78+.8630833333333332*t10*t11*t14*t105*t106+
928         0.14671*t5*t3*t104*t106+0.1833875*t5*t14*t105*t240+1.610266666666667*
929         t1*t2*t4*t239+.5519000000000001*t12*t13*t15*t238)*t112*t113;
930     t248 = .04337432353112609*
931         t84*t1*t2*t4*t105*t88*t93*t111*t112*t113;
932     t249 = -.005905908177777777*t1*t2*t4*t239*t82;
933     t250 = 1/pow(t91,.6666666666666666);
934     t251 = 1/pow(t72,3.0);
935     t252 = -2.0*t251*t85;
936     t253 = 2.0*t116;
937     t254 = 1/pow(t92,.6666666666666666);
938     t255 = 2.0*t251*t85;
939     t256 = -2.0*t116;
940     t257 = 1.333333333333333*t123*(t256+t255)+.4444444444444444*
941         pow(t122,2.0)*t254+1.333333333333333*t120*(t253+t252)+.4444444444444444*
942         pow(t119,2.0)*t250;
943     t258 = 9.766162686268349E-4*t84*t1*t2*t4*t239*t88*t93*
944         t96;
945     t259 = 1/pow(t72,6.0);
946     t260 = -20.0*t259*t86;
947     t261 = pow(t85,2.0);
948     t262 = -12.0*t261*t87;
949     t263 = pow(t132,2.0);
950     t264 = t84*t86*t87*t93*(32.1646831778707*t263*t98/(pow(t100,
951         2.0)*pow(t99,4.0))-2.0*t134*t263*t98/pow(t99,3.0)+.005905908177777777*
952         t1*t2*t4*t239*t82-16.0818243221511*t75*t232*t233*t234+1.0*
953         t98*(1.568766666666666*t10*t11*t3*t104*t78+1.176575*t10*t11*
954         t14*t105*t106+.5610333333333333*t5*t3*t104*t106+.7012916666666668*
955         t5*t14*t105*t240+2.754533333333333*t1*t2*t4*t239+.6946333333333333*
956         t12*t13*t15*t238)*t133*t134-.1369866666666666*t1*t2*t4*t105*
957         t132*t133*t134+2.0*t75*t232*t236*t109-.9999999999999999*t75*
958         t241*t108*t109+.1424666666666666*t1*t2*t4*t105*t107*t108*t109-
959         .002839276977777777*t1*t2*t4*t239*t101);
960     t265 = -8.0*t127*t135*t84*t86*t93;
961     t266 = 20.0*t102*t259*t84*t86*t93;
962     t267 = 12.0*t102*t261*t84*t87*t93;
963     t268 = 1/pow(t64,6.0);
964     t269 = 2.666666666666667*t123*t251*t85-2.666666666666667*
965         t120*t251*t85+.4444444444444444*t122*t188*t254+.4444444444444444*
966         t119*t187*t250;
967     t270 = pow(grada,11.0);
968     t271 = 1/pow(rhoa,17.0);
969     t272 = pow(gradb,12.0);
970     t273 = 1/pow(t153,6.0);
971     t274 = 1/pow(rhob,18.0);
972     t275 = 1/pow(rhob,15.33333333333333);
973     t276 = 1/pow(rhob,12.66666666666667);
974     t277 = 1/pow(rhob,10.0);
975     t278 = 1/pow(rhob,7.333333333333333);
976     t279 = 1/pow(rhob,4.666666666666667);
977     t280 = 1/pow(t148,2.0);
978     t281 = pow(t183,2.0);
979     t282 = 1/pow(t147,4.0);
980     t283 = 1/pow(t147,3.0);
981     t284 = 2.754533333333333*t1*t2*t4/pow(rhob,2.333333333333333)+
982         .6946333333333333*t12*t13*t15*t61+.7012916666666668*t14*t181*
983         t5/pow(t143,7.0)+1.176575*t10*t11*t14*t182*t181+.5610333333333333*
984         t5*t3*t182*t179+1.568766666666666*t10*t11*t3*t144*t179;
985     t285 = 1/pow(t164,6.0);
986     t286 = 1.333333333333333*t120*(t256+t252)+.4444444444444444*
987         pow(t188,2.0)*t254+1.333333333333333*t123*(t253+t255)+.4444444444444444*
988         pow(t187,2.0)*t250;
989     t287 = pow(gradb,11.0);
990     t288 = 1/pow(rhob,17.0);
991     t289 = 1/pow(rhoa,16.0);
992     t290 = 1/pow(rhob,16.0);
993 
994    /* code */
995     dfdra = 1.0*t51*t34*t56*t35*t57*rhoa-0.03109*t20*t50*
996         t35*rhoa-1.0*t36*t4*t42*t6-0.75*t36*t4*t53*t59-0.03109*t20*
997         t34*t35+.002129457733333333*t1*t2*t4*t20*t34*t17+t141*t151+
998         t71*t139;
999     dfdrb = 1.0*t178*t163*t183*t150*t184*rhob-0.03109*t149*
1000         t177*t150*rhob-0.75*t180*t186*t36*t4-1.0*t142*t169*t36*t4+
1001         t71*t194+t195*t151-0.03109*t149*t163*t150+.002129457733333333*
1002         t1*t2*t4*t149*t163*t146;
1003     dfdga = -0.03109*t20*t201*t35*rhoa-0.75*t202*t36*t4*t53+
1004         t203*t151;
1005     dfdgb = -0.03109*t149*t209*t150*rhob-0.75*t180*t210*t36*
1006         t4+t211*t151;
1007     dfdgab = 0.0;
1008     d2fdrara = t71*(-1.0*t51*t224*t35*t57*rhoa+2.0*t51*t221*
1009         t35*t223*rhoa-32.1646831778707*t220*t221*t35*t222*rhoa+t72*
1010         (.01975178970256521*(t262+t260+32.0*t127*t129)*t84*t89*t93*
1011         t96-.001464924402940253*t84*t1*t2*t4*t105*t130*t93*t96+.01975178970256521*
1012         t84*t88*t89*t257*t96+.03950357940513041*t84*t130*t89*t124*
1013         t96-.001464924402940253*t84*t1*t2*t4*t105*t88*t124*t96+8.0*
1014         t129*t135*t84*t87*t93-32.0*t102*t127*t129*t84*t93+2.0*t124*
1015         t135*t84*t86*t87+8.0*t102*t124*t129*t84*t87-8.0*t102*t124*
1016         t127*t84*t86+t267+t266+t265+t264+t258+t249+t248+t247+t246+
1017         t245+t243+t242+t237+t235-1.169644679491041*t84*t130*t89*t93*
1018         t111*t112*t113-1.169644679491041*t84*t88*t89*t124*t111*t112*
1019         t113+t84*t86*t87*t257*t102)+.03950357940513041*t84*t130*t89*
1020         t93*t96+.03950357940513041*t84*t88*t89*t124*t96+8.0*t102*t129*
1021         t84*t87*t93+2.0*t102*t124*t84*t86*t87-2.0*t51*t56*t35*t57-
1022         .001419638488888889*t1*t2*t4*t20*t54+t231+t230+t229+t228+t227+
1023         t226+.1369866666666666*t1*t2*t4*t51*t56*t57*t17)+2.0*t51*t50*
1024         t56*t35*t57*rhoa+1.0*t51*t34*t224*t35*t57*rhoa-0.03109*t20*
1025         (.06235151999999999*t22*t33*t219-2.442504394666667*t30*t31*
1026         t218+2.476546978133334*t27*t28*t217-.9001104640000002*t21*
1027         t25*t216+.1403095893333334*t43*t44*t215-0.00798182058666667*
1028         t212*t213*t214)*t35*rhoa-2.0*t51*t34*t221*t35*t223*rhoa+32.1646831778707*
1029         t220*t34*t221*t35*t222*rhoa-2.0*t36*t4*t59*t6+2.0*t51*t34*
1030         t56*t35*t57+.001419638488888889*t1*t2*t4*t20*t34*t54-0.75*
1031         (-.01411054577777778*t22*t41*t219+.002040871921777777*t30*
1032         t40*t218-4.040260130133333E-5*t27*t39*t217+3.1502995911111115E-7*
1033         t21*t38*t216-1.0919037064533334E-9*t43*t58*t215+1.404887950222222E-12*
1034         t212*t225*t214)*t36*t4*t53-.3333333333333333*t16*t36*t4*t42-
1035         0.06218*t20*t50*t35-.1369866666666666*t1*t2*t4*t51*t34*t56*
1036         t57*t17+.004258915466666666*t1*t2*t4*t20*t50*t17+(.1338966933333333*
1037         t22*t219*t70-.005574000959999999*t22*t219*t62*t69-.002319047679999999*
1038         t30*t218*t69+7.101790079999999E-5*t22*t219*t68*t67+7.597229567999998E-5*
1039         t30*t218*t62*t67-3.3483048192000003E-7*t22*t219*t66*t65-8.301140582400001E-7*
1040         t30*t218*t68*t65+4.8279255552E-10*t22*t219*t63*t140+3.62440065024E-9*
1041         t30*t218*t66*t140-5.2668278784E-12*t30*t218*t63*t268)*t151+
1042         2.0*t139*t141;
1043     d2fdrarb = t71*(t72*(.01975178970256521*t84*(12.0*t261*
1044         t87+t260)*t89*t93*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*
1045         t191*t93*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t130*t93*
1046         t96+.01975178970256521*t84*t88*t89*t269*t96+.01975178970256521*
1047         t84*t130*t89*t189*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*
1048         t88*t189*t96+.01975178970256521*t84*t191*t89*t124*t96-7.324622014701263E-4*
1049         t84*t1*t2*t4*t105*t88*t124*t96-12.0*t102*t261*t84*t87*t93+
1050         4.0*t102*t129*t189*t84*t87-4.0*t102*t124*t129*t84*t87-4.0*
1051         t102*t127*t189*t84*t86-4.0*t102*t124*t127*t84*t86+t266+t265+
1052         t264+t258+t249+t248+t247+t246+t245+t243+t242+t237+t235+t84*
1053         t86*t87*t189*t135+t84*t86*t87*t124*t135-.5848223397455204*
1054         t84*t191*t89*t93*t111*t112*t113-.5848223397455204*t84*t130*
1055         t89*t93*t111*t112*t113-.5848223397455204*t84*t88*t89*t189*
1056         t111*t112*t113-.5848223397455204*t84*t88*t89*t124*t111*t112*
1057         t113+t84*t86*t87*t269*t102)+t231+t230+t229+t228+t227+t226+
1058         t193+t192+t190+t137+t131+t125)+t141*t194+(-.002319047679999999*
1059         t22*t60*t49*t69*t176+7.597229567999998E-5*t22*t60*t49*t62*
1060         t67*t176-8.301140582400001E-7*t22*t60*t49*t68*t65*t176+3.62440065024E-9*
1061         t22*t60*t49*t66*t140*t176-5.2668278784E-12*t22*t60*t49*t63*
1062         t268*t176)*t151+t195*t139;
1063     d2fdraga = 1.0*t51*t201*t56*t35*t57*rhoa-0.03109*t20*
1064         (-0.03400992*grada*t33*t49+1.543708352*t200*t31*t48-1.6851847936*
1065         t199*t28*t47+.6408380928000001*t198*t25*t46-0.10298730496*
1066         t196*t44*t45+.005986365440000003*t270*t213*t271)*t35*rhoa-
1067         1.0*t202*t36*t4*t6-0.75*t36*t4*(.007696661333333334*grada*
1068         t41*t49-.001293832789333333*t200*t40*t48+2.7496421375999996E-5*
1069         t199*t39*t47-2.2371571029333337E-7*t198*t38*t46+7.991715430399999E-10*
1070         t196*t58*t45-1.053665962666667E-12*t270*t225*t271)*t53-0.03109*
1071         t20*t201*t35+.002129457733333333*t1*t2*t4*t20*t201*t17+(-0.07303456*
1072         grada*t49*t70+0.00304036416*grada*t49*t62*t69+0.00173928576*
1073         t200*t48*t69-3.8737036799999996E-5*grada*t49*t68*t67-5.697922176E-5*
1074         t200*t48*t62*t67+1.8263480832E-7*grada*t49*t66*t65+6.225855436800002E-7*
1075         t200*t48*t68*t65-2.6334139392E-10*grada*t49*t63*t140-2.7183004876800004E-9*
1076         t200*t48*t66*t140+3.9501209088E-12*t200*t48*t63*t268)*t151+
1077         t203*t139;
1078     d2fdragb = (0.00173928576*t22*gradb*t49*t69*t61-5.697922176E-5*
1079         t22*gradb*t49*t62*t67*t61+6.225855436800002E-7*t22*gradb*t49*
1080         t68*t65*t61-2.7183004876800004E-9*t22*gradb*t49*t66*t140*t61+
1081         3.9501209088E-12*t22*gradb*t49*t63*t268*t61)*t151+t211*t139;
1082     d2fdraab = 0.0;
1083     d2fdrbrb = t71*
1084         (2.0*t178*t281*t150*t283*rhob-32.1646831778707*t280*t281*t150*
1085         t282*rhob-1.0*t178*t284*t150*t184*rhob+t72*(.01975178970256521*
1086         (t262+t260-32.0*t127*t129)*t84*t89*t93*t96-.001464924402940253*
1087         t84*t1*t2*t4*t105*t191*t93*t96+.01975178970256521*t84*t88*
1088         t89*t286*t96+.03950357940513041*t84*t191*t89*t189*t96-.001464924402940253*
1089         t84*t1*t2*t4*t105*t88*t189*t96-8.0*t129*t135*t84*t87*t93+32.0*
1090         t102*t127*t129*t84*t93+2.0*t135*t189*t84*t86*t87-8.0*t102*
1091         t129*t189*t84*t87-8.0*t102*t127*t189*t84*t86+t267+t266+t265+
1092         t264+t258+t249+t248+t247+t246+t245+t243+t242+t237+t235-1.169644679491041*
1093         t84*t191*t89*t93*t111*t112*t113-1.169644679491041*t84*t88*
1094         t89*t189*t111*t112*t113+t84*t86*t87*t286*t102)+.03950357940513041*
1095         t84*t191*t89*t93*t96+.03950357940513041*t84*t88*t89*t189*t96-
1096         8.0*t102*t129*t84*t87*t93+2.0*t102*t189*t84*t86*t87+t231+t230+
1097         t229+t228+t227+t226-2.0*t178*t183*t150*t184-.001419638488888889*
1098         t1*t2*t4*t149*t181+.1369866666666666*t1*t2*t4*t178*t183*t184*
1099         t146)-2.0*t178*t163*t281*t150*t283*rhob+32.1646831778707*t280*
1100         t163*t281*t150*t282*rhob+1.0*t178*t163*t284*t150*t184*rhob+
1101         2.0*t178*t177*t183*t150*t184*rhob-0.03109*t149*(.06235151999999999*
1102         t60*t162*t279-2.442504394666667*t159*t160*t278+2.476546978133334*
1103         t156*t157*t277-.9001104640000002*t152*t154*t276+.1403095893333334*
1104         t170*t171*t275-0.00798182058666667*t272*t273*t274)*t150*rhob-
1105         0.75*t180*(-.01411054577777778*t60*t168*t279+.002040871921777777*
1106         t159*t167*t278-4.040260130133333E-5*t156*t166*t277+3.1502995911111115E-7*
1107         t152*t165*t276-1.0919037064533334E-9*t170*t185*t275+1.404887950222222E-12*
1108         t272*t285*t274)*t36*t4-2.0*t142*t186*t36*t4-.3333333333333333*
1109         t145*t169*t36*t4+2.0*t194*t195+2.0*t178*t163*t183*t150*t184+
1110         .001419638488888889*t1*t2*t4*t149*t163*t181+(.1338966933333333*
1111         t60*t70*t279-.005574000959999999*t60*t62*t69*t279+7.101790079999999E-5*
1112         t60*t68*t67*t279-3.3483048192000003E-7*t60*t66*t65*t279+4.8279255552E-10*
1113         t60*t63*t140*t279-.002319047679999999*t159*t69*t278+7.597229567999998E-5*
1114         t159*t62*t67*t278-8.301140582400001E-7*t159*t68*t65*t278+3.62440065024E-9*
1115         t159*t66*t140*t278-5.2668278784E-12*t159*t63*t268*t278)*t151-
1116         0.06218*t149*t177*t150-.1369866666666666*t1*t2*t4*t178*t163*
1117         t183*t184*t146+.004258915466666666*t1*t2*t4*t149*t177*t146;
1118     d2fdrbga = (0.00173928576*
1119         grada*t60*t23*t69*t176-5.697922176E-5*grada*t60*t23*t62*t67*
1120         t176+6.225855436800002E-7*grada*t60*t23*t68*t65*t176-2.7183004876800004E-9*
1121         grada*t60*t23*t66*t140*t176+3.9501209088E-12*grada*t60*t23*
1122         t63*t268*t176)*t151+t203*t194;
1123     d2fdrbgb = 1.0*t178*t209*t183*t150*t184*rhob-0.03109*
1124         t149*(-0.03400992*gradb*t162*t176+1.543708352*t208*t160*t175-
1125         1.6851847936*t207*t157*t174+.6408380928000001*t206*t154*t173-
1126         0.10298730496*t204*t171*t172+.005986365440000003*t287*t273*
1127         t288)*t150*rhob-1.0*t142*t210*t36*t4-0.75*(.007696661333333334*
1128         gradb*t168*t176-.001293832789333333*t208*t167*t175+2.7496421375999996E-5*
1129         t207*t166*t174-2.2371571029333337E-7*t206*t165*t173+7.991715430399999E-10*
1130         t204*t185*t172-1.053665962666667E-12*t287*t285*t288)*t180*
1131         t36*t4+t211*t194+(-0.07303456*gradb*t70*t176+0.00304036416*
1132         gradb*t62*t69*t176-3.8737036799999996E-5*gradb*t68*t67*t176+
1133         1.8263480832E-7*gradb*t66*t65*t176-2.6334139392E-10*gradb*
1134         t63*t140*t176+0.00173928576*t208*t69*t175-5.697922176E-5*t208*
1135         t62*t67*t175+6.225855436800002E-7*t208*t68*t65*t175-2.7183004876800004E-9*
1136         t208*t66*t140*t175+3.9501209088E-12*t208*t63*t268*t175)*t151-
1137         0.03109*t149*t209*t150+.002129457733333333*t1*t2*t4*t149*t209*
1138         t146;
1139     d2fdrbgab = 0.0;
1140     d2fdgaga = -0.03109*t20*(0.01275372*t33*t23-.8696113200000002*
1141         t22*t31*t32+1.0916631552*t30*t28*t29-.4463838144000002*t27*
1142         t25*t26+.07499559168000003*t21*t44*t197-.004489774080000002*
1143         t43*t213*t289)*t35*rhoa-0.75*(-0.002886248*t41*t23+7.335534399999999E-4*
1144         t22*t40*t32-1.7816786431999998E-5*t30*t39*t29+1.5523002368000002E-7*
1145         t27*t38*t26-5.7962242048E-10*t21*t58*t197+7.90249472E-13*t43*
1146         t225*t289)*t36*t4*t53+(0.02738796*t23*t70-0.00114013656*t23*
1147         t62*t69-0.00130446432*t22*t32*t69+1.45263888E-5*t23*t68*t67+
1148         4.2734416319999996E-5*t22*t32*t62*t67-6.848805312000001E-8*
1149         t23*t66*t65-4.669391577600001E-7*t22*t32*t68*t65+9.875302271999999E-11*
1150         t23*t63*t140+2.0387253657600002E-9*t22*t32*t66*t140-2.962590681600001E-12*
1151         t22*t32*t63*t268)*t151;
1152     d2fdgagb = (-0.00130446432*grada*gradb*t23*t69*t61+4.2734416319999996E-5*
1153         grada*gradb*t23*t62*t67*t61-4.669391577600001E-7*grada*gradb*
1154         t23*t68*t65*t61+2.0387253657600002E-9*grada*gradb*t23*t66*
1155         t140*t61-2.962590681600001E-12*grada*gradb*t23*t63*t268*t61)*
1156         t151;
1157     d2fdgagab = 0.0;
1158     d2fdgbgb = -0.03109*t149*(0.01275372*t162*t61-.8696113200000002*
1159         t60*t160*t161+1.0916631552*t159*t157*t158-.4463838144000002*
1160         t156*t154*t155+.07499559168000003*t152*t171*t205-.004489774080000002*
1161         t170*t273*t290)*t150*rhob-0.75*t180*t36*t4*(-0.002886248*t168*
1162         t61+7.335534399999999E-4*t60*t167*t161-1.7816786431999998E-5*
1163         t159*t166*t158+1.5523002368000002E-7*t156*t165*t155-5.7962242048E-10*
1164         t152*t185*t205+7.90249472E-13*t170*t285*t290)+(0.02738796*
1165         t70*t61-0.00114013656*t62*t69*t61+1.45263888E-5*t68*t67*t61-
1166         6.848805312000001E-8*t66*t65*t61+9.875302271999999E-11*t63*
1167         t140*t61-0.00130446432*t60*t69*t161+4.2734416319999996E-5*
1168         t60*t62*t67*t161-4.669391577600001E-7*t60*t68*t65*t161+2.0387253657600002E-9*
1169         t60*t66*t140*t161-2.962590681600001E-12*t60*t63*t268*t161)*
1170         t151;
1171     d2fdgbgab = 0.0;
1172     d2fdgabgab = 0.0;
1173 
1174 
1175     ds->df1000 += factor*dfdra;
1176     ds->df0100 += factor*dfdrb;
1177     ds->df0010 += factor*dfdga;
1178     ds->df0001 += factor*dfdgb;
1179     ds->df00001+= factor*dfdgab;
1180 
1181     ds->df2000 += factor*d2fdrara;
1182     ds->df1100 += factor*d2fdrarb;
1183     ds->df1010 += factor*d2fdraga;
1184     ds->df1001 += factor*d2fdragb;
1185     ds->df10001+= factor*d2fdraab;
1186     ds->df0200 += factor*d2fdrbrb;
1187     ds->df0110 += factor*d2fdrbga;
1188     ds->df0101 += factor*d2fdrbgb;
1189     ds->df01001+= factor*d2fdrbgab;
1190     ds->df0020 += factor*d2fdgaga;
1191     ds->df0011 += factor*d2fdgagb;
1192     ds->df00101+= factor*d2fdgagab;
1193     ds->df0002 += factor*d2fdgbgb;
1194     ds->df00011+= factor*d2fdgbgab;
1195     ds->df00002+= factor*d2fdgabgab;
1196 
1197 }
1198 
1199 static void
f14_third(FunThirdFuncDrv * ds,real factor,const FunDensProp * dp)1200 f14_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
1201 {
1202     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
1203     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
1204         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
1205         d2fdgbgb, d2fdgbgab, d2fdgabgab;
1206     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
1207          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
1208          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
1209          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
1210          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
1211          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
1212          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
1213     real rhoa = dp->rhoa, rhob = dp->rhob;
1214     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
1215 
1216     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
1217     real t11, t12, t13, t14, t15, t16, t17, t18;
1218     real t19, t20, t21, t22, t23, t24, t25, t26;
1219     real t27, t28, t29, t30, t31, t32, t33, t34;
1220     real t35, t36, t37, t38, t39, t40, t41, t42;
1221     real t43, t44, t45, t46, t47, t48, t49, t50;
1222     real t51, t52, t53, t54, t55, t56, t57, t58;
1223     real t59, t60, t61, t62, t63, t64, t65, t66;
1224     real t67, t68, t69, t70, t71, t72, t73, t74;
1225     real t75, t76, t77, t78, t79, t80, t81, t82;
1226     real t83, t84, t85, t86, t87, t88, t89, t90;
1227     real t91, t92, t93, t94, t95, t96, t97, t98;
1228     real t99, t100, t101, t102, t103, t104, t105;
1229     real t106, t107, t108, t109, t110, t111, t112;
1230     real t113, t114, t115, t116, t117, t118, t119;
1231     real t120, t121, t122, t123, t124, t125, t126;
1232     real t127, t128, t129, t130, t131, t132, t133;
1233     real t134, t135, t136, t137, t138, t139, t140;
1234     real t141, t142, t143, t144, t145, t146, t147;
1235     real t148, t149, t150, t151, t152, t153, t154;
1236     real t155, t156, t157, t158, t159, t160, t161;
1237     real t162, t163, t164, t165, t166, t167, t168;
1238     real t169, t170, t171, t172, t173, t174, t175;
1239     real t176, t177, t178, t179, t180, t181, t182;
1240     real t183, t184, t185, t186, t187, t188, t189;
1241     real t190, t191, t192, t193, t194, t195, t196;
1242     real t197, t198, t199, t200, t201, t202, t203;
1243     real t204, t205, t206, t207, t208, t209, t210;
1244     real t211, t212, t213, t214, t215, t216, t217;
1245     real t218, t219, t220, t221, t222, t223, t224;
1246     real t225, t226, t227, t228, t229, t230, t231;
1247     real t232, t233, t234, t235, t236, t237, t238;
1248     real t239, t240, t241, t242, t243, t244, t245;
1249     real t246, t247, t248, t249, t250, t251, t252;
1250     real t253, t254, t255, t256, t257, t258, t259;
1251     real t260, t261, t262, t263, t264, t265, t266;
1252     real t267, t268, t269, t270, t271, t272, t273;
1253     real t274, t275, t276, t277, t278, t279, t280;
1254     real t281, t282, t283, t284, t285, t286, t287;
1255     real t288, t289, t290, t291, t292, t293, t294;
1256     real t295, t296, t297, t298, t299, t300, t301;
1257     real t302, t303, t304, t305, t306, t307, t308;
1258     real t309, t310, t311, t312, t313, t314, t315;
1259     real t316, t317, t318, t319, t320, t321, t322;
1260     real t323, t324, t325, t326, t327, t328, t329;
1261     real t330, t331, t332, t333, t334, t335, t336;
1262     real t337, t338, t339, t340, t341, t342, t343;
1263     real t344, t345, t346, t347, t348, t349, t350;
1264     real t351, t352, t353, t354, t355, t356, t357;
1265     real t358, t359, t360, t361, t362, t363, t364;
1266     real t365, t366, t367, t368, t369, t370, t371;
1267     real t372, t373, t374, t375, t376, t377, t378;
1268     real t379, t380, t381, t382, t383, t384, t385;
1269     real t386, t387, t388, t389, t390, t391, t392;
1270     real t393, t394, t395, t396, t397, t398, t399;
1271     real t400, t401, t402, t403, t404, t405, t406;
1272     real t407, t408, t409, t410, t411, t412, t413;
1273     real t414, t415, t416, t417, t418, t419, t420;
1274     real t421, t422, t423, t424, t425, t426, t427;
1275     real t428, t429, t430, t431, t432, t433, t434;
1276     real t435, t436, t437, t438, t439, t440, t441;
1277     real t442, t443, t444, t445, t446, t447, t448;
1278     real t449, t450, t451, t452, t453, t454, t455;
1279     real t456, t457, t458, t459, t460, t461, t462;
1280     real t463, t464, t465, t466, t467, t468, t469;
1281     real t470, t471, t472, t473, t474, t475, t476;
1282     real t477, t478, t479, t480, t481, t482, t483;
1283     real t484, t485, t486, t487, t488, t489, t490;
1284     real t491, t492;
1285 
1286     t1 = pow(3.0,.3333333333333333);
1287     t2 = 1/pow(4.0,.3333333333333333);
1288     t3 = pow(M_PI,.3333333333333333);
1289     t4 = 1/t3;
1290     t5 = 1.732050807568877;
1291     t6 = pow(rhoa,.3333333333333333);
1292     t7 = sqrt(t3*t6);
1293     t8 = 1/pow(t7,3.0);
1294     t9 = pow(2.0,.3333333333333333);
1295     t10 = 1/t9;
1296     t11 = pow(3.0,.1666666666666667);
1297     t12 = pow(3.0,.6666666666666666);
1298     t13 = 1/pow(4.0,.6666666666666666);
1299     t14 = pow(M_PI,.6666666666666666);
1300     t15 = 1/t14;
1301     t16 = 1/pow(rhoa,.6666666666666666);
1302     t17 = 1/t6;
1303     t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
1304         t17+0.62517*t12*t13*t15*t16;
1305     t19 = 32.1646831778707/t18+1.0;
1306     t20 = log(t19);
1307     t21 = pow(grada,8.0);
1308     t22 = pow(grada,2.0);
1309     t23 = 1/pow(rhoa,2.666666666666667);
1310     t24 = 0.2*t22*t23+1.0;
1311     t25 = 1/pow(t24,4.0);
1312     t26 = 1/pow(rhoa,10.66666666666667);
1313     t27 = pow(grada,6.0);
1314     t28 = 1/pow(t24,3.0);
1315     t29 = 1/pow(rhoa,8.0);
1316     t30 = pow(grada,4.0);
1317     t31 = 1/pow(t24,2.0);
1318     t32 = 1/pow(rhoa,5.333333333333333);
1319     t33 = 1/t24;
1320     t34 = 0.00637686*t22*t33*t23-.07140480000000002*t30*t31*
1321         t32+0.0191836*t27*t28*t29-.001403054400000001*t21*t25*t26+
1322         2.82414;
1323     t35 = 0.20548*t1*t2*t4*t17+1.0;
1324     t36 = pow(6.0,.3333333333333333);
1325     t37 = 0.004*t22*t23+1.0;
1326     t38 = 1/pow(t37,4.0);
1327     t39 = 1/pow(t37,3.0);
1328     t40 = 1/pow(t37,2.0);
1329     t41 = 1/t37;
1330     t42 = -0.001443124*t22*t41*t23+5.631904E-5*t30*t40*t32-
1331         3.1740416000000005E-7*t27*t39*t29+6.173823999999999E-10*t21*
1332         t38*t26+1.03161;
1333     t43 = pow(grada,10.0);
1334     t44 = 1/pow(t24,5.0);
1335     t45 = 1/pow(rhoa,14.33333333333333);
1336     t46 = 1/pow(rhoa,11.66666666666667);
1337     t47 = 1/pow(rhoa,9.0);
1338     t48 = 1/pow(rhoa,6.333333333333333);
1339     t49 = 1/pow(rhoa,3.666666666666667);
1340     t50 = -0.01700496*t22*t33*t49+.3842265920000001*t30*t31*
1341         t48-0.22963392*t27*t28*t47+.04565967360000001*t21*t25*t46-
1342         .002993182720000002*t43*t44*t45;
1343     t51 = 1/t19;
1344     t52 = 1/pow(rhoa,1.666666666666667);
1345     t53 = pow(rhoa,1.333333333333333);
1346     t54 = 1/t53;
1347     t55 = 1/pow(t7,5.0);
1348     t56 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t55*t16-
1349         2.0659*t1*t2*t4*t54-0.41678*t12*t13*t15*t52;
1350     t57 = 1/pow(t18,2.0);
1351     t58 = 1/pow(t37,5.0);
1352     t59 = .003848330666666667*t22*t41*t49-3.1576153599999995E-4*
1353         t30*t40*t48+3.740706133333333E-6*t27*t39*t47-1.6742345386666668E-8*
1354         t21*t38*t46+2.634164906666666E-11*t43*t58*t45;
1355     t60 = pow(gradb,2.0);
1356     t61 = 1/pow(rhob,2.666666666666667);
1357     t62 = 0.5*t60*t61+0.5*t22*t23;
1358     t63 = pow(t62,4.0);
1359     t64 = 0.006*t62+1.0;
1360     t65 = 1/pow(t64,4.0);
1361     t66 = pow(t62,3.0);
1362     t67 = 1/pow(t64,3.0);
1363     t68 = pow(t62,2.0);
1364     t69 = 1/pow(t64,2.0);
1365     t70 = 1/t64;
1366     t71 = 0.02738796*t62*t70-4.8790439999999996E-4*t68*t69+
1367         2.8905119999999995E-6*t66*t67-4.11470928E-9*t63*t65+0.0821827;
1368     t72 = rhob+
1369         rhoa;
1370     t73 = pow(t72,.3333333333333333);
1371     t74 = 1/t73;
1372     t75 = 0.2137*t1*t2*t4*t74+1.0;
1373     t76 = 1/pow(t72,.6666666666666666);
1374     t77 = sqrt(t3*t73);
1375     t78 = 1/pow(t77,3.0);
1376     t79 = 1/t77;
1377     t80 = 7.5957*t10*t11*t79+0.8191*t5*t78+3.5876*t1*t2*t4*
1378         t74+0.49294*t12*t13*t15*t76;
1379     t81 = 16.0818243221511/t80+1.0;
1380     t82 = log(t81);
1381     t83 = -0.062182*t75*t82;
1382     t84 = 1/(2.0*t9-2.0);
1383     t85 = rhoa-1.0*rhob;
1384     t86 = pow(t85,4.0);
1385     t87 = 1/pow(t72,4.0);
1386     t88 = 1.0-1.0*t86*t87;
1387     t89 = 0.11125*t1*t2*t4*t74+1.0;
1388     t90 = 1/t72;
1389     t91 = 1.0-1.0*t85*t90;
1390     t92 = t85*t90+1.0;
1391     t93 = pow(t92,1.333333333333333)+pow(t91,1.333333333333333)-
1392         2.0;
1393     t94 = 10.357*t10*t11*t79+0.44013*t5*t78+3.6231*t1*t2*
1394         t4*t74+0.49671*t12*t13*t15*t76;
1395     t95 = 29.60857464321668/t94+1.0;
1396     t96 = log(t95);
1397     t97 = .01975178970256521*t84*t88*t89*t93*t96;
1398     t98 = 0.20548*t1*t2*t4*t74+1.0;
1399     t99 = 14.1189*t10*t11*t79+1.6831*t5*t78+6.1977*t1*t2*
1400         t4*t74+0.62517*t12*t13*t15*t76;
1401     t100 = 32.1646831778707/t99+1.0;
1402     t101 = log(t100);
1403     t102 = 0.062182*t75*t82-0.03109*t98*t101;
1404     t103 = t84*t86*t87*t93*t102;
1405     t104 = 1/pow(t72,1.666666666666667);
1406     t105 = 1/pow(t72,1.333333333333333);
1407     t106 = 1/pow(t77,5.0);
1408     t107 = -1.26595*t10*t11*t3*t76*t78-0.40955*t5*t3*t76*
1409         t106-1.195866666666667*t1*t2*t4*t105-.3286266666666666*t12*
1410         t13*t15*t104;
1411     t108 = 1/pow(t80,2.0);
1412     t109 = 1/t81;
1413     t110 = .9999999999999999*t75*t107*t108*t109;
1414     t111 = -1.726166666666666*t10*t11*t3*t76*t78-0.220065*
1415         t5*t3*t76*t106-1.2077*t1*t2*t4*t105-0.33114*t12*t13*t15*t104;
1416     t112 = 1/
1417         pow(t94,2.0);
1418     t113 = 1/t95;
1419     t114 = -.5848223397455204*t84*t88*t89*t93*t111*t112*t113;
1420     t115 = .004429431133333333*
1421         t1*t2*t4*t105*t82;
1422     t116 = 1/pow(t72,2.0);
1423     t117 = t85*t116;
1424     t118 = -1.0*t90;
1425     t119 = t118+t117;
1426     t120 = pow(t91,.3333333333333333);
1427     t121 = -1.0*t116*t85;
1428     t122 = t90+t121;
1429     t123 = pow(t92,.3333333333333333);
1430     t124 = 1.333333333333333*t122*t123+1.333333333333333*
1431         t119*t120;
1432     t125 = .01975178970256521*t84*t88*t89*t124*t96;
1433     t126 = -7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t93*
1434         t96;
1435     t127 = 1/pow(t72,5.0);
1436     t128 = 4.0*t127*t86;
1437     t129 = pow(t85,3.0);
1438     t130 = t128-4.0*t129*t87;
1439     t131 = .01975178970256521*t84*t130*t89*t93*t96;
1440     t132 = -2.35315*t10*t11*t3*t76*t78-0.84155*t5*t3*t76*
1441         t106-2.0659*t1*t2*t4*t105-0.41678*t12*t13*t15*t104;
1442     t133 = 1/pow(t99,2.0);
1443     t134 = 1/t100;
1444     t135 = .002129457733333333*t1*t2*t4*t105*t101-.004429431133333333*
1445         t1*t2*t4*t105*t82+1.0*t98*t132*t133*t134-.9999999999999999*
1446         t75*t107*t108*t109;
1447     t136 = t84*t86*t87*t93*t135;
1448     t137 = t84*t86*t87*t124*t102;
1449     t138 = -4.0*t102*t127*t84*t86*t93;
1450     t139 = -1.0*t51*t56*t35*t57*rhoa+t97+t72*(4.0*t102*t129*
1451         t84*t87*t93+t138+t137+t136+t131+t126+t125+t115+t114+t110)+
1452         t83+0.03109*t20*t35-.002129457733333333*t1*t2*t4*t20*t17+t103;
1453     t140 = 1/
1454         pow(t64,5.0);
1455     t141 = -0.03651728*t22*t49*t70+0.00152018208*t22*t49*
1456         t62*t69-1.9368518399999998E-5*t22*t49*t68*t67+9.131740416E-8*
1457         t22*t49*t66*t65-1.3167069696E-10*t22*t49*t63*t140;
1458     t142 = pow(rhob,.3333333333333333);
1459     t143 = sqrt(t3*t142);
1460     t144 = 1/pow(t143,3.0);
1461     t145 = 1/pow(rhob,.6666666666666666);
1462     t146 = 1/t142;
1463     t147 = 6.1977*t1*t2*t4*t146+0.62517*t12*t13*t15*t145+
1464         1.6831*t5*t144+14.1189*t10*t11/t143;
1465     t148 = 32.1646831778707/t147+1.0;
1466     t149 = log(t148);
1467     t150 = 0.20548*t1*t2*t4*t146+1.0;
1468     t151 = t72*(t103+t97+t83)+0.03109*t149*t150*rhob+0.03109*
1469         t20*t35*rhoa;
1470     t152 = pow(gradb,8.0);
1471     t153 = 0.2*t60*t61+1.0;
1472     t154 = 1/pow(t153,4.0);
1473     t155 = 1/pow(rhob,10.66666666666667);
1474     t156 = pow(gradb,6.0);
1475     t157 = 1/pow(t153,3.0);
1476     t158 = 1/pow(rhob,8.0);
1477     t159 = pow(gradb,4.0);
1478     t160 = 1/pow(t153,2.0);
1479     t161 = 1/pow(rhob,5.333333333333333);
1480     t162 = 1/t153;
1481     t163 = 0.00637686*t60*t162*t61-.07140480000000002*t159*
1482         t160*t161+0.0191836*t156*t157*t158-.001403054400000001*t152*
1483         t154*t155+2.82414;
1484     t164 = 0.004*t60*t61+1.0;
1485     t165 = 1/pow(t164,4.0);
1486     t166 = 1/pow(t164,3.0);
1487     t167 = 1/pow(t164,2.0);
1488     t168 = 1/t164;
1489     t169 = -0.001443124*t60*t168*t61+5.631904E-5*t159*t167*
1490         t161-3.1740416000000005E-7*t156*t166*t158+6.173823999999999E-10*
1491         t152*t165*t155+1.03161;
1492     t170 = pow(gradb,10.0);
1493     t171 = 1/pow(t153,5.0);
1494     t172 = 1/pow(rhob,14.33333333333333);
1495     t173 = 1/pow(rhob,11.66666666666667);
1496     t174 = 1/pow(rhob,9.0);
1497     t175 = 1/pow(rhob,6.333333333333333);
1498     t176 = 1/pow(rhob,3.666666666666667);
1499     t177 = -0.01700496*t60*t162*t176+.3842265920000001*t159*
1500         t160*t175-0.22963392*t156*t157*t174+.04565967360000001*t152*
1501         t154*t173-.002993182720000002*t170*t171*t172;
1502     t178 = 1/t148;
1503     t179 = 1/pow(rhob,1.666666666666667);
1504     t180 = pow(rhob,1.333333333333333);
1505     t181 = 1/t180;
1506     t182 = 1/pow(t143,5.0);
1507     t183 = -2.35315*t10*t11*t3*t144*t145-0.84155*t5*t3*t182*
1508         t145-2.0659*t1*t2*t4*t181-0.41678*t12*t13*t15*t179;
1509     t184 = 1/pow(t147,2.0);
1510     t185 = 1/pow(t164,5.0);
1511     t186 = .003848330666666667*t60*t168*t176-3.1576153599999995E-4*
1512         t159*t167*t175+3.740706133333333E-6*t156*t166*t174-1.6742345386666668E-8*
1513         t152*t165*t173+2.634164906666666E-11*t170*t185*t172;
1514     t187 = t90+t117;
1515     t188 = t118+t121;
1516     t189 = 1.333333333333333*t123*t188+1.333333333333333*
1517         t120*t187;
1518     t190 = .01975178970256521*t84*t88*t89*t189*t96;
1519     t191 = 4.0*t129*t87+t128;
1520     t192 = .01975178970256521*t84*t191*t89*t93*t96;
1521     t193 = t84*t86*t87*t189*t102;
1522     t194 = -1.0*t178*t183*t150*t184*rhob+t97+t72*(-4.0*t102*
1523         t129*t84*t87*t93+t193+t192+t190+t138+t136+t126+t115+t114+t110)+
1524         t83+0.03109*t149*t150-.002129457733333333*t1*t2*t4*t149*t146+
1525         t103;
1526     t195 = -0.03651728*t60*t70*t176+0.00152018208*t60*t62*
1527         t69*t176-1.9368518399999998E-5*t60*t68*t67*t176+9.131740416E-8*
1528         t60*t66*t65*t176-1.3167069696E-10*t60*t63*t140*t176;
1529     t196 = pow(grada,9.0);
1530     t197 = 1/pow(rhoa,13.33333333333333);
1531     t198 = pow(grada,7.0);
1532     t199 = pow(grada,5.0);
1533     t200 = pow(grada,3.0);
1534     t201 = 0.01275372*grada*t33*t23-.2881699440000001*t200*
1535         t31*t32+0.17222544*t199*t28*t29-.03424475520000001*t198*t25*
1536         t26+.002244887040000001*t196*t44*t197;
1537     t202 = -0.002886248*grada*t41*t23+2.3682115199999998E-4*
1538         t200*t40*t32-2.8055296E-6*t199*t39*t29+1.255675904E-8*t198*
1539         t38*t26-1.97562368E-11*t196*t58*t197;
1540     t203 = 0.02738796*grada*t23*t70-0.00114013656*grada*t23*
1541         t62*t69+1.45263888E-5*grada*t23*t68*t67-6.848805312000001E-8*
1542         grada*t23*t66*t65+9.875302271999999E-11*grada*t23*t63*t140;
1543     t204 = pow(gradb,
1544         9.0);
1545     t205 = 1/pow(rhob,13.33333333333333);
1546     t206 = pow(gradb,7.0);
1547     t207 = pow(gradb,5.0);
1548     t208 = pow(gradb,3.0);
1549     t209 = 0.01275372*gradb*t162*t61-.2881699440000001*t208*
1550         t160*t161+0.17222544*t207*t157*t158-.03424475520000001*t206*
1551         t154*t155+.002244887040000001*t204*t171*t205;
1552     t210 = -0.002886248*gradb*t168*t61+2.3682115199999998E-4*
1553         t208*t167*t161-2.8055296E-6*t207*t166*t158+1.255675904E-8*
1554         t206*t165*t155-1.97562368E-11*t204*t185*t205;
1555     t211 = 0.02738796*gradb*t70*t61-0.00114013656*gradb*t62*
1556         t69*t61+1.45263888E-5*gradb*t68*t67*t61-6.848805312000001E-8*
1557         gradb*t66*t65*t61+9.875302271999999E-11*gradb*t63*t140*t61;
1558     t212 = pow(grada,
1559         12.0);
1560     t213 = 1/pow(t24,6.0);
1561     t214 = 1/pow(rhoa,18.0);
1562     t215 = 1/pow(rhoa,15.33333333333333);
1563     t216 = 1/pow(rhoa,12.66666666666667);
1564     t217 = 1/pow(rhoa,10.0);
1565     t218 = 1/pow(rhoa,7.333333333333333);
1566     t219 = 1/pow(rhoa,4.666666666666667);
1567     t220 = .06235151999999999*t22*t33*t219-2.442504394666667*
1568         t30*t31*t218+2.476546978133334*t27*t28*t217-.9001104640000002*
1569         t21*t25*t216+.1403095893333334*t43*t44*t215-0.00798182058666667*
1570         t212*t213*t214;
1571     t221 = 1/pow(t19,2.0);
1572     t222 = pow(t56,2.0);
1573     t223 = 1/pow(t18,4.0);
1574     t224 = 1/pow(t18,3.0);
1575     t225 = 1/pow(rhoa,2.333333333333333);
1576     t226 = 1/pow(t7,7.0);
1577     t227 = 1.176575*t10*t11*t14*t55*t54+.7012916666666668*
1578         t5*t14*t226*t54+1.568766666666666*t10*t11*t3*t8*t52+.5610333333333333*
1579         t5*t3*t55*t52+2.754533333333333*t1*t2*t4*t225+.6946333333333333*
1580         t12*t13*t15*t23;
1581     t228 = 1/pow(t37,6.0);
1582     t229 = -.01411054577777778*t22*t41*t219+.002040871921777777*
1583         t30*t40*t218-4.040260130133333E-5*t27*t39*t217+3.1502995911111115E-7*
1584         t21*t38*t216-1.0919037064533334E-9*t43*t58*t215+1.404887950222222E-12*
1585         t212*t228*t214;
1586     t230 = 2.0*t75*t107*t108*t109;
1587     t231 = -1.169644679491041*t84*t88*t89*t93*t111*t112*t113;
1588     t232 = .008858862266666667*
1589         t1*t2*t4*t105*t82;
1590     t233 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t93*
1591         t96;
1592     t234 = 2.0*t135*t84*t86*t87*t93;
1593     t235 = -8.0*t102*t127*t84*t86*t93;
1594     t236 = pow(t107,2.0);
1595     t237 = 1/pow(t80,4.0);
1596     t238 = 1/pow(t81,2.0);
1597     t239 = 16.0818243221511*t75*t236*t237*t238;
1598     t240 = 1/pow(t80,3.0);
1599     t241 = -2.0*t75*t236*t240*t109;
1600     t242 = 1/pow(t72,2.666666666666667);
1601     t243 = 1/pow(t72,2.333333333333333);
1602     t244 = 1/pow(t77,7.0);
1603     t245 = .8439666666666665*t10*t11*t3*t104*t78+0.632975*
1604         t10*t11*t14*t105*t106+.2730333333333334*t5*t3*t104*t106+.3412916666666667*
1605         t5*t14*t105*t244+1.594488888888889*t1*t2*t4*t243+0.547711111111111*
1606         t12*t13*t15*t242;
1607     t246 = .9999999999999999*t75*t245*t108*t109;
1608     t247 = -.1424666666666666*t1*t2*t4*t105*t107*t108*t109;
1609     t248 = pow(t111,
1610         2.0);
1611     t249 = 1/pow(t94,4.0);
1612     t250 = 1/pow(t95,2.0);
1613     t251 = -17.31575589937587*t84*t88*t89*t93*t248*t249*t250;
1614     t252 = 1/
1615         pow(t94,3.0);
1616     t253 = 1.169644679491041*t84*t88*t89*t93*t248*t252*t113;
1617     t254 = 1.150777777777777*
1618         t10*t11*t3*t104*t78+.8630833333333332*t10*t11*t14*t105*t106+
1619         0.14671*t5*t3*t104*t106+0.1833875*t5*t14*t105*t244+1.610266666666667*
1620         t1*t2*t4*t243+.5519000000000001*t12*t13*t15*t242;
1621     t255 = -.5848223397455204*t84*t88*t89*t93*t254*t112*t113;
1622     t256 = -
1623         1.169644679491041*t84*t88*t89*t124*t111*t112*t113;
1624     t257 = .04337432353112609*t84*t1*t2*t4*t105*t88*t93*t111*
1625         t112*t113;
1626     t258 = -1.169644679491041*t84*t130*t89*t93*t111*t112*
1627         t113;
1628     t259 = -.005905908177777777*t1*t2*t4*t243*t82;
1629     t260 = pow(t119,2.0);
1630     t261 = 1/pow(t91,.6666666666666666);
1631     t262 = 1/pow(t72,3.0);
1632     t263 = -2.0*t262*t85;
1633     t264 = 2.0*t116;
1634     t265 = t264+t263;
1635     t266 = pow(t122,2.0);
1636     t267 = 1/pow(t92,.6666666666666666);
1637     t268 = 2.0*t262*t85;
1638     t269 = -2.0*t116;
1639     t270 = t269+t268;
1640     t271 = 1.333333333333333*t123*t270+.4444444444444444*
1641         t266*t267+1.333333333333333*t120*t265+.4444444444444444*t260*
1642         t261;
1643     t272 = .01975178970256521*t84*t88*t89*t271*t96;
1644     t273 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t124*
1645         t96;
1646     t274 = .03950357940513041*t84*t130*t89*t124*t96;
1647     t275 = -.001464924402940253*t84*t1*t2*t4*t105*t130*t93*
1648         t96;
1649     t276 = 9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t93*
1650         t96;
1651     t277 = 1/pow(t72,6.0);
1652     t278 = -20.0*t277*t86;
1653     t279 = pow(t85,2.0);
1654     t280 = -12.0*t279*t87;
1655     t281 = t280+t278+32.0*t127*t129;
1656     t282 = .01975178970256521*t84*t281*t89*t93*t96;
1657     t283 = pow(t132,2.0);
1658     t284 = 1/pow(t99,4.0);
1659     t285 = 1/pow(t100,2.0);
1660     t286 = 1/pow(t99,3.0);
1661     t287 = 1.568766666666666*t10*t11*t3*t104*t78+1.176575*
1662         t10*t11*t14*t105*t106+.5610333333333333*t5*t3*t104*t106+.7012916666666668*
1663         t5*t14*t105*t244+2.754533333333333*t1*t2*t4*t243+.6946333333333333*
1664         t12*t13*t15*t242;
1665     t288 = -.002839276977777777*t1*t2*t4*t243*t101+.005905908177777777*
1666         t1*t2*t4*t243*t82-.1369866666666666*t1*t2*t4*t105*t132*t133*
1667         t134+1.0*t98*t287*t133*t134-2.0*t98*t283*t286*t134+32.1646831778707*
1668         t98*t283*t284*t285+.1424666666666666*t1*t2*t4*t105*t107*t108*
1669         t109-.9999999999999999*t75*t245*t108*t109+2.0*t75*t236*t240*
1670         t109-16.0818243221511*t75*t236*t237*t238;
1671     t289 = t84*t86*t87*t93*t288;
1672     t290 = 2.0*t124*t135*t84*t86*t87;
1673     t291 = -8.0*t127*t135*t84*t86*t93;
1674     t292 = 8.0*t129*t135*t84*t87*t93;
1675     t293 = t84*t86*t87*t271*t102;
1676     t294 = -8.0*t102*t124*t127*t84*t86;
1677     t295 = 20.0*t102*t277*t84*t86*t93;
1678     t296 = -32.0*t102*t127*t129*t84*t93;
1679     t297 = 12.0*t102*t279*t84*t87*t93;
1680     t298 = -1.0*t51*t227*t35*t57*rhoa+2.0*t51*t222*t35*t224*
1681         rhoa-32.1646831778707*t221*t222*t35*t223*rhoa+.03950357940513041*
1682         t84*t130*t89*t93*t96+.03950357940513041*t84*t88*t89*t124*t96+
1683         8.0*t102*t129*t84*t87*t93+t72*(8.0*t102*t124*t129*t84*t87+
1684         t297+t296+t295+t294+t293+t292+t291+t290+t289+t282+t276+t275+
1685         t274+t273+t272+t259+t258+t257+t256+t255+t253+t251+t247+t246+
1686         t241+t239)+2.0*t102*t124*t84*t86*t87-2.0*t51*t56*t35*t57-.001419638488888889*
1687         t1*t2*t4*t20*t54+t235+t234+t233+t232+t231+t230+.1369866666666666*
1688         t1*t2*t4*t51*t56*t57*t17;
1689     t299 = 1/pow(t64,6.0);
1690     t300 = .1338966933333333*t22*t219*t70-.005574000959999999*
1691         t22*t219*t62*t69-.002319047679999999*t30*t218*t69+7.101790079999999E-5*
1692         t22*t219*t68*t67+7.597229567999998E-5*t30*t218*t62*t67-3.3483048192000003E-7*
1693         t22*t219*t66*t65-8.301140582400001E-7*t30*t218*t68*t65+4.8279255552E-10*
1694         t22*t219*t63*t140+3.62440065024E-9*t30*t218*t66*t140-5.2668278784E-12*
1695         t30*t218*t63*t299;
1696     t301 = 2.666666666666667*t123*t262*t85-2.666666666666667*
1697         t120*t262*t85+.4444444444444444*t122*t188*t267+.4444444444444444*
1698         t119*t187*t261;
1699     t302 = 12.0*t279*t87+t278;
1700     t303 = -12.0*t102*t279*t84*t87*t93;
1701     t304 = t72*(.01975178970256521*t84*t302*t89*t93*t96-7.324622014701263E-4*
1702         t84*t1*t2*t4*t105*t191*t93*t96-7.324622014701263E-4*t84*t1*
1703         t2*t4*t105*t130*t93*t96+.01975178970256521*t84*t88*t89*t301*
1704         t96+.01975178970256521*t84*t130*t89*t189*t96-7.324622014701263E-4*
1705         t84*t1*t2*t4*t105*t88*t189*t96+.01975178970256521*t84*t191*
1706         t89*t124*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t124*
1707         t96+4.0*t102*t129*t189*t84*t87-4.0*t102*t124*t129*t84*t87-
1708         4.0*t102*t127*t189*t84*t86-4.0*t102*t124*t127*t84*t86+t303+
1709         t295+t291+t289+t276+t259+t257+t255+t253+t251+t247+t246+t241+
1710         t239+t84*t86*t87*t189*t135+t84*t86*t87*t124*t135-.5848223397455204*
1711         t84*t191*t89*t93*t111*t112*t113-.5848223397455204*t84*t130*
1712         t89*t93*t111*t112*t113-.5848223397455204*t84*t88*t89*t189*
1713         t111*t112*t113-.5848223397455204*t84*t88*t89*t124*t111*t112*
1714         t113+t84*t86*t87*t301*t102)+t235+t234+t233+t232+t231+t230+
1715         t193+t192+t190+t137+t131+t125;
1716     t305 = -.002319047679999999*t22*t60*t49*t69*t176+7.597229567999998E-5*
1717         t22*t60*t49*t62*t67*t176-8.301140582400001E-7*t22*t60*t49*
1718         t68*t65*t176+3.62440065024E-9*t22*t60*t49*t66*t140*t176-5.2668278784E-12*
1719         t22*t60*t49*t63*t299*t176;
1720     t306 = pow(grada,11.0);
1721     t307 = 1/pow(rhoa,17.0);
1722     t308 = -0.03400992*grada*t33*t49+1.543708352*t200*t31*
1723         t48-1.6851847936*t199*t28*t47+.6408380928000001*t198*t25*t46-
1724         0.10298730496*t196*t44*t45+.005986365440000003*t306*t213*t307;
1725     t309 = .007696661333333334*
1726         grada*t41*t49-.001293832789333333*t200*t40*t48+2.7496421375999996E-5*
1727         t199*t39*t47-2.2371571029333337E-7*t198*t38*t46+7.991715430399999E-10*
1728         t196*t58*t45-1.053665962666667E-12*t306*t228*t307;
1729     t310 = -0.07303456*grada*t49*t70+0.00304036416*grada*
1730         t49*t62*t69+0.00173928576*t200*t48*t69-3.8737036799999996E-5*
1731         grada*t49*t68*t67-5.697922176E-5*t200*t48*t62*t67+1.8263480832E-7*
1732         grada*t49*t66*t65+6.225855436800002E-7*t200*t48*t68*t65-2.6334139392E-10*
1733         grada*t49*t63*t140-2.7183004876800004E-9*t200*t48*t66*t140+
1734         3.9501209088E-12*t200*t48*t63*t299;
1735     t311 = 0.00173928576*t22*gradb*t49*t69*t61-5.697922176E-5*
1736         t22*gradb*t49*t62*t67*t61+6.225855436800002E-7*t22*gradb*t49*
1737         t68*t65*t61-2.7183004876800004E-9*t22*gradb*t49*t66*t140*t61+
1738         3.9501209088E-12*t22*gradb*t49*t63*t299*t61;
1739     t312 = pow(gradb,12.0);
1740     t313 = 1/pow(t153,6.0);
1741     t314 = 1/pow(rhob,18.0);
1742     t315 = 1/pow(rhob,15.33333333333333);
1743     t316 = 1/pow(rhob,12.66666666666667);
1744     t317 = 1/pow(rhob,10.0);
1745     t318 = 1/pow(rhob,7.333333333333333);
1746     t319 = 1/pow(rhob,4.666666666666667);
1747     t320 = .06235151999999999*t60*t162*t319-2.442504394666667*
1748         t159*t160*t318+2.476546978133334*t156*t157*t317-.9001104640000002*
1749         t152*t154*t316+.1403095893333334*t170*t171*t315-0.00798182058666667*
1750         t312*t313*t314;
1751     t321 = 1/pow(t148,2.0);
1752     t322 = pow(t183,2.0);
1753     t323 = 1/pow(t147,4.0);
1754     t324 = 1/pow(t147,3.0);
1755     t325 = 1/pow(rhob,2.333333333333333);
1756     t326 = 1/pow(t143,7.0);
1757     t327 = 1.176575*t10*t11*t14*t182*t181+.7012916666666668*
1758         t5*t14*t326*t181+1.568766666666666*t10*t11*t3*t144*t179+.5610333333333333*
1759         t5*t3*t182*t179+2.754533333333333*t1*t2*t4*t325+.6946333333333333*
1760         t12*t13*t15*t61;
1761     t328 = 1/pow(t164,6.0);
1762     t329 = -.01411054577777778*t60*t168*t319+.002040871921777777*
1763         t159*t167*t318-4.040260130133333E-5*t156*t166*t317+3.1502995911111115E-7*
1764         t152*t165*t316-1.0919037064533334E-9*t170*t185*t315+1.404887950222222E-12*
1765         t312*t328*t314;
1766     t330 = -1.169644679491041*t84*t88*t89*t189*t111*t112*
1767         t113;
1768     t331 = -1.169644679491041*t84*t191*t89*t93*t111*t112*
1769         t113;
1770     t332 = pow(t187,2.0);
1771     t333 = t269+t263;
1772     t334 = pow(t188,2.0);
1773     t335 = t264+t268;
1774     t336 = 1.333333333333333*t123*t335+.4444444444444444*
1775         t267*t334+1.333333333333333*t120*t333+.4444444444444444*t261*
1776         t332;
1777     t337 = .01975178970256521*t84*t88*t89*t336*t96;
1778     t338 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t189*
1779         t96;
1780     t339 = .03950357940513041*t84*t191*t89*t189*t96;
1781     t340 = -.001464924402940253*t84*t1*t2*t4*t105*t191*t93*
1782         t96;
1783     t341 = t280+t278-32.0*t127*t129;
1784     t342 = .01975178970256521*t84*t341*t89*t93*t96;
1785     t343 = 2.0*t135*t189*t84*t86*t87;
1786     t344 = -8.0*t129*t135*t84*t87*t93;
1787     t345 = t84*t86*t87*t336*t102;
1788     t346 = -8.0*t102*t127*t189*t84*t86;
1789     t347 = 32.0*t102*t127*t129*t84*t93;
1790     t348 = 2.0*t178*t322*t150*t324*rhob-32.1646831778707*
1791         t321*t322*t150*t323*rhob-1.0*t178*t327*t150*t184*rhob+.03950357940513041*
1792         t84*t191*t89*t93*t96+.03950357940513041*t84*t88*t89*t189*t96-
1793         8.0*t102*t129*t84*t87*t93+t72*(-8.0*t102*t129*t189*t84*t87+
1794         t347+t346+t345+t344+t343+t342+t340+t339+t338+t337+t331+t330+
1795         t297+t295+t291+t289+t276+t259+t257+t255+t253+t251+t247+t246+
1796         t241+t239)+2.0*t102*t189*t84*t86*t87+t235+t234+t233+t232+t231+
1797         t230-2.0*t178*t183*t150*t184-.001419638488888889*t1*t2*t4*
1798         t149*t181+.1369866666666666*t1*t2*t4*t178*t183*t184*t146;
1799     t349 = .1338966933333333*
1800         t60*t70*t319-.005574000959999999*t60*t62*t69*t319+7.101790079999999E-5*
1801         t60*t68*t67*t319-3.3483048192000003E-7*t60*t66*t65*t319+4.8279255552E-10*
1802         t60*t63*t140*t319-.002319047679999999*t159*t69*t318+7.597229567999998E-5*
1803         t159*t62*t67*t318-8.301140582400001E-7*t159*t68*t65*t318+3.62440065024E-9*
1804         t159*t66*t140*t318-5.2668278784E-12*t159*t63*t299*t318;
1805     t350 = 0.00173928576*grada*t60*t23*t69*t176-5.697922176E-5*
1806         grada*t60*t23*t62*t67*t176+6.225855436800002E-7*grada*t60*
1807         t23*t68*t65*t176-2.7183004876800004E-9*grada*t60*t23*t66*t140*
1808         t176+3.9501209088E-12*grada*t60*t23*t63*t299*t176;
1809     t351 = pow(gradb,11.0);
1810     t352 = 1/pow(rhob,17.0);
1811     t353 = -0.03400992*gradb*t162*t176+1.543708352*t208*t160*
1812         t175-1.6851847936*t207*t157*t174+.6408380928000001*t206*t154*
1813         t173-0.10298730496*t204*t171*t172+.005986365440000003*t351*
1814         t313*t352;
1815     t354 = .007696661333333334*gradb*t168*t176-.001293832789333333*
1816         t208*t167*t175+2.7496421375999996E-5*t207*t166*t174-2.2371571029333337E-7*
1817         t206*t165*t173+7.991715430399999E-10*t204*t185*t172-1.053665962666667E-12*
1818         t351*t328*t352;
1819     t355 = -0.07303456*gradb*t70*t176+0.00304036416*gradb*
1820         t62*t69*t176-3.8737036799999996E-5*gradb*t68*t67*t176+1.8263480832E-7*
1821         gradb*t66*t65*t176-2.6334139392E-10*gradb*t63*t140*t176+0.00173928576*
1822         t208*t69*t175-5.697922176E-5*t208*t62*t67*t175+6.225855436800002E-7*
1823         t208*t68*t65*t175-2.7183004876800004E-9*t208*t66*t140*t175+
1824         3.9501209088E-12*t208*t63*t299*t175;
1825     t356 = 1/pow(rhoa,16.0);
1826     t357 = 0.01275372*t33*t23-.8696113200000002*t22*t31*t32+
1827         1.0916631552*t30*t28*t29-.4463838144000002*t27*t25*t26+.07499559168000003*
1828         t21*t44*t197-.004489774080000002*t43*t213*t356;
1829     t358 = -0.002886248*t41*t23+7.335534399999999E-4*t22*
1830         t40*t32-1.7816786431999998E-5*t30*t39*t29+1.5523002368000002E-7*
1831         t27*t38*t26-5.7962242048E-10*t21*t58*t197+7.90249472E-13*t43*
1832         t228*t356;
1833     t359 = 0.02738796*t23*t70-0.00114013656*t23*t62*t69-0.00130446432*
1834         t22*t32*t69+1.45263888E-5*t23*t68*t67+4.2734416319999996E-5*
1835         t22*t32*t62*t67-6.848805312000001E-8*t23*t66*t65-4.669391577600001E-7*
1836         t22*t32*t68*t65+9.875302271999999E-11*t23*t63*t140+2.0387253657600002E-9*
1837         t22*t32*t66*t140-2.962590681600001E-12*t22*t32*t63*t299;
1838     t360 = -
1839         0.00130446432*grada*gradb*t23*t69*t61+4.2734416319999996E-5*
1840         grada*gradb*t23*t62*t67*t61-4.669391577600001E-7*grada*gradb*
1841         t23*t68*t65*t61+2.0387253657600002E-9*grada*gradb*t23*t66*
1842         t140*t61-2.962590681600001E-12*grada*gradb*t23*t63*t299*t61;
1843     t361 = 1/
1844         pow(rhob,16.0);
1845     t362 = 0.01275372*t162*t61-.8696113200000002*t60*t160*
1846         t161+1.0916631552*t159*t157*t158-.4463838144000002*t156*t154*
1847         t155+.07499559168000003*t152*t171*t205-.004489774080000002*
1848         t170*t313*t361;
1849     t363 = -0.002886248*t168*t61+7.335534399999999E-4*t60*
1850         t167*t161-1.7816786431999998E-5*t159*t166*t158+1.5523002368000002E-7*
1851         t156*t165*t155-5.7962242048E-10*t152*t185*t205+7.90249472E-13*
1852         t170*t328*t361;
1853     t364 = 0.02738796*t70*t61-0.00114013656*t62*t69*t61+1.45263888E-5*
1854         t68*t67*t61-6.848805312000001E-8*t66*t65*t61+9.875302271999999E-11*
1855         t63*t140*t61-0.00130446432*t60*t69*t161+4.2734416319999996E-5*
1856         t60*t62*t67*t161-4.669391577600001E-7*t60*t68*t65*t161+2.0387253657600002E-9*
1857         t60*t66*t140*t161-2.962590681600001E-12*t60*t63*t299*t161;
1858     t365 = pow(grada,
1859         14.0);
1860     t366 = 1/pow(t24,7.0);
1861     t367 = 1/pow(rhoa,21.66666666666667);
1862     t368 = 1/pow(rhoa,19.0);
1863     t369 = 1/pow(rhoa,16.33333333333333);
1864     t370 = 1/pow(rhoa,13.66666666666667);
1865     t371 = 1/pow(rhoa,11.0);
1866     t372 = 1/pow(rhoa,8.333333333333334);
1867     t373 = 1/pow(rhoa,5.666666666666667);
1868     t374 = 1/pow(t19,3.0);
1869     t375 = pow(t56,3.0);
1870     t376 = 1/pow(t18,6.0);
1871     t377 = 1/pow(t18,5.0);
1872     t378 = 1/pow(rhoa,2.0);
1873     t379 = -6.427244444444445*t1*t2*t4/pow(rhoa,3.333333333333333)-
1874         .8181736111111113*t378*t5*M_PI/pow(t7,9.0)-1.852355555555556*
1875         t12*t13*t15*t49-.9804791666666667*t10*t11*M_PI*t226*t378-2.614611111111111*
1876         t10*t11*t3*t8*t23-.9350555555555555*t5*t3*t55*t23-2.35315*
1877         t10*t11*t14*t55*t225-1.402583333333333*t5*t14*t226*t225;
1878     t380 = 1/
1879         pow(t37,7.0);
1880     t381 = 48.2454729664533*t75*t236*t237*t238;
1881     t382 = -6.0*t75*t236*t240*t109;
1882     t383 = 3.0*t75*t245*t108*t109;
1883     t384 = -.4273999999999999*t1*t2*t4*t105*t107*t108*t109;
1884     t385 = -
1885         51.9472676981276*t84*t88*t89*t93*t248*t249*t250;
1886     t386 = 3.508934038473122*t84*t88*t89*t93*t248*t252*t113;
1887     t387 = -
1888         1.754467019236561*t84*t88*t89*t93*t254*t112*t113;
1889     t388 = .1301229705933783*t84*t1*t2*t4*t105*t88*t93*t111*
1890         t112*t113;
1891     t389 = -.01771772453333333*t1*t2*t4*t243*t82;
1892     t390 = .002929848805880505*t84*t1*t2*t4*t243*t88*t93*
1893         t96;
1894     t391 = 3.0*t288*t84*t86*t87*t93;
1895     t392 = -24.0*t127*t135*t84*t86*t93;
1896     t393 = 60.0*t102*t277*t84*t86*t93;
1897     t394 = 36.0*t102*t279*t84*t87*t93;
1898     t395 = pow(t107,3.0);
1899     t396 = 1/pow(t80,6.0);
1900     t397 = 1/pow(t81,3.0);
1901     t398 = 517.2501470570614*t75*t395*t396*t397;
1902     t399 = 1/pow(t80,5.0);
1903     t400 = -96.4909459329066*t75*t395*t399*t238;
1904     t401 = 48.2454729664533*t75*t245*t107*t237*t238;
1905     t402 = -3.43668585764369*t1*t2*t4*t105*t236*t237*t238;
1906     t403 = 6.0*
1907         t75*t395*t237*t109;
1908     t404 = -6.0*t75*t245*t107*t240*t109;
1909     t405 = .4273999999999999*t1*t2*t4*t105*t236*t240*t109;
1910     t406 = 1/
1911         pow(t72,3.666666666666667);
1912     t407 = 1/pow(t72,3.333333333333333);
1913     t408 = 1/pow(t77,9.0);
1914     t409 = -1.406611111111111*t10*t11*t3*t242*t78-1.26595*
1915         t10*t11*t14*t243*t106-.4550555555555556*t5*t3*t242*t106-.5274791666666666*
1916         t10*t11*M_PI*t116*t244-.6825833333333334*t5*t14*t243*t244-.3981736111111112*
1917         t5*M_PI*t116*t408-3.720474074074074*t1*t2*t4*t407-1.460562962962963*
1918         t12*t13*t15*t406;
1919     t410 = .9999999999999999*t75*t409*t108*t109;
1920     t411 = -0.2137*t1*t2*t4*t105*t245*t108*t109;
1921     t412 = .2849333333333333*t1*t2*t4*t243*t107*t108*t109;
1922     t413 = pow(t111,
1923         3.0);
1924     t414 = -1025.38970210078*t413*t84*t88*t89*t93/(pow(t94,
1925         6.0)*pow(t95,3.0));
1926     t415 = 103.8945353962552*t250*t413*t84*t88*t89*t93/pow(t94,
1927         5.0);
1928     t416 = -51.9472676981276*t84*t88*t89*t93*t254*t111*t249*
1929         t250;
1930     t417 = 1.926377843805565*t84*t1*t2*t4*t105*t88*t93*t248*
1931         t249*t250;
1932     t418 = -3.508934038473122*t84*t88*t89*t93*t413*t249*t113;
1933     t419 = 3.508934038473122*
1934         t84*t88*t89*t93*t254*t111*t252*t113;
1935     t420 = -.1301229705933783*t84*t1*t2*t4*t105*t88*t93*t248*
1936         t252*t113;
1937     t421 = -.5848223397455204*t84*t88*t89*t93*(-1.917962962962962*
1938         t10*t11*t3*t242*t78-1.726166666666666*t10*t11*t14*t243*t106-
1939         .2445166666666667*t5*t3*t242*t106-.7192361111111111*t10*t11*
1940         M_PI*t116*t244-0.366775*t5*t14*t243*t244-.2139520833333333*
1941         t5*M_PI*t116*t408-3.757288888888889*t1*t2*t4*t407-1.471733333333333*
1942         t12*t13*t15*t406)*t112*t113;
1943     t422 = .06506148529668915*t84*t1*t2*t4*t105*t88*t93*t254*
1944         t112*t113;
1945     t423 = -.08674864706225219*t84*t1*t2*t4*t243*t88*t93*
1946         t111*t112*t113;
1947     t424 = .01378045241481481*t1*t2*t4*t407*t82;
1948     t425 = 1/pow(t91,1.666666666666667);
1949     t426 = 6.0*t85*t87;
1950     t427 = -6.0*t262;
1951     t428 = 1/pow(t92,1.666666666666667);
1952     t429 = -6.0*t85*t87;
1953     t430 = 6.0*t262;
1954     t431 = 1.333333333333333*t123*(t430+t429)-.2962962962962963*
1955         pow(t122,3.0)*t428+1.333333333333333*t120*(t427+t426)-.2962962962962963*
1956         pow(t119,3.0)*t425+1.333333333333333*t122*t267*t270+1.333333333333333*
1957         t119*t261*t265;
1958     t432 = -.002278771293462615*t84*t1*t2*t4*t407*t88*t93*
1959         t96;
1960     t433 = 1/pow(t72,7.0);
1961     t434 = 120.0*t433*t86;
1962     t435 = 144.0*t127*t279;
1963     t436 = -24.0*t85*t87;
1964     t437 = pow(t132,3.0);
1965     t438 = t84*t86*t87*t93*(2069.133687865597*t437*t98/(pow(t100,
1966         3.0)*pow(t99,6.0))-192.9880990672242*t285*t437*t98/pow(t99,
1967         5.0)-.01378045241481481*t1*t2*t4*t407*t82-517.2501470570614*
1968         t75*t395*t396*t397-6.60919909938887*t1*t2*t4*t105*t283*t284*
1969         t285+96.4940495336121*t98*t287*t132*t284*t285+96.4909459329066*
1970         t75*t395*t399*t238+3.43668585764369*t1*t2*t4*t105*t236*t237*
1971         t238-48.2454729664533*t75*t245*t107*t237*t238+.4109599999999999*
1972         t1*t2*t4*t105*t283*t286*t134-6.0*t98*t287*t132*t286*t134+6.0*
1973         t98*t437*t284*t134+1.0*t98*(-2.614611111111111*t10*t11*t3*
1974         t242*t78-2.35315*t10*t11*t14*t243*t106-.9350555555555555*t5*
1975         t3*t242*t106-.9804791666666667*t10*t11*M_PI*t116*t244-1.402583333333333*
1976         t5*t14*t243*t244-.8181736111111113*t5*M_PI*t116*t408-6.427244444444445*
1977         t1*t2*t4*t407-1.852355555555556*t12*t13*t15*t406)*t133*t134-
1978         0.20548*t1*t2*t4*t105*t287*t133*t134+.2739733333333333*t1*
1979         t2*t4*t243*t132*t133*t134-.4273999999999999*t1*t2*t4*t105*
1980         t236*t240*t109+6.0*t75*t245*t107*t240*t109-6.0*t75*t395*t237*
1981         t109-.9999999999999999*t75*t409*t108*t109+0.2137*t1*t2*t4*
1982         t105*t245*t108*t109-.2849333333333333*t1*t2*t4*t243*t107*t108*
1983         t109+.006624979614814813*t1*t2*t4*t407*t101);
1984     t439 = -12.0*t127*t288*t84*t86*t93;
1985     t440 = 60.0*t135*t277*t84*t86*t93;
1986     t441 = 36.0*t135*t279*t84*t87*t93;
1987     t442 = -120.0*t102*t433*t84*t86*t93;
1988     t443 = -144.0*t102*t127*t279*t84*t93;
1989     t444 = 24.0*t102*t84*t85*t87*t93;
1990     t445 = 1/pow(t64,7.0);
1991     t446 = .03950357940513041*t84*t88*t89*t301*t96;
1992     t447 = .03950357940513041*t84*t130*t89*t189*t96;
1993     t448 = .03950357940513041*t84*t191*t89*t124*t96;
1994     t449 = .03950357940513041*t84*t302*t89*t93*t96;
1995     t450 = 2.0*t102*t301*t84*t86*t87;
1996     t451 = -1.169644679491041*t84*t88*t89*t301*t111*t112*
1997         t113;
1998     t452 = -1.169644679491041*t84*t130*t89*t189*t111*t112*
1999         t113;
2000     t453 = -1.169644679491041*t84*t191*t89*t124*t111*t112*
2001         t113;
2002     t454 = -1.169644679491041*t84*t302*t89*t93*t111*t112*
2003         t113;
2004     t455 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t301*
2005         t96;
2006     t456 = 1.777777777777778*t122*t262*t267*t85-1.777777777777778*
2007         t119*t261*t262*t85+1.333333333333333*t123*(t429+2.0*t262)-
2008         .2962962962962963*t188*t266*t428+1.333333333333333*t120*(t426-
2009         2.0*t262)-.2962962962962963*t187*t260*t425+.4444444444444444*
2010         t188*t267*t270+.4444444444444444*t187*t261*t265;
2011     t457 = -.001464924402940253*t84*t1*t2*t4*t105*t130*t189*
2012         t96;
2013     t458 = -.001464924402940253*t84*t1*t2*t4*t105*t191*t124*
2014         t96;
2015     t459 = -.001464924402940253*t84*t1*t2*t4*t105*t302*t93*
2016         t96;
2017     t460 = -48.0*t127*t279;
2018     t461 = 24.0*t85*t87;
2019     t462 = 2.0*t135*t301*t84*t86*t87;
2020     t463 = -12.0*t135*t279*t84*t87*t93;
2021     t464 = -8.0*t102*t127*t301*t84*t86;
2022     t465 = 48.0*t102*t127*t279*t84*t93;
2023     t466 = -24.0*t102*t84*t85*t87*t93;
2024     t467 = pow(grada,13.0);
2025     t468 = 1/pow(rhoa,20.66666666666667);
2026     t469 = -8.0*t123*t85*t87+8.0*t120*t85*t87+1.777777777777778*
2027         t188*t262*t267*t85-1.777777777777778*t187*t261*t262*t85-.2962962962962963*
2028         t122*t334*t428-.2962962962962963*t119*t332*t425+.4444444444444444*
2029         t122*t267*t335+.4444444444444444*t119*t261*t333-2.666666666666667*
2030         t123*t262+2.666666666666667*t120*t262;
2031     t470 = 1/pow(rhoa,19.66666666666667);
2032     t471 = pow(gradb,14.0);
2033     t472 = 1/pow(t153,7.0);
2034     t473 = 1/pow(rhob,21.66666666666667);
2035     t474 = 1/pow(rhob,19.0);
2036     t475 = 1/pow(rhob,16.33333333333333);
2037     t476 = 1/pow(rhob,13.66666666666667);
2038     t477 = 1/pow(rhob,11.0);
2039     t478 = 1/pow(rhob,8.333333333333334);
2040     t479 = 1/pow(rhob,5.666666666666667);
2041     t480 = 1/pow(t148,3.0);
2042     t481 = pow(t183,3.0);
2043     t482 = 1/pow(t147,6.0);
2044     t483 = 1/pow(t147,5.0);
2045     t484 = 1/pow(rhob,2.0);
2046     t485 = -6.427244444444445*t1*t2*t4/pow(rhob,3.333333333333333)-
2047         .8181736111111113*t484*t5*M_PI/pow(t143,9.0)-.9350555555555555*
2048         t5*t3*t182*t61-2.614611111111111*t10*t11*t3*t144*t61-.9804791666666667*
2049         t10*t11*M_PI*t326*t484-1.402583333333333*t5*t14*t326*t325-2.35315*
2050         t10*t11*t14*t182*t325-1.852355555555556*t12*t13*t15*t176;
2051     t486 = 1/
2052         pow(t164,7.0);
2053     t487 = 1.333333333333333*t120*(t430+t426)-.2962962962962963*
2054         pow(t188,3.0)*t428+1.333333333333333*t123*(t427+t429)-.2962962962962963*
2055         pow(t187,3.0)*t425+1.333333333333333*t188*t267*t335+1.333333333333333*
2056         t187*t261*t333;
2057     t488 = pow(gradb,13.0);
2058     t489 = 1/pow(rhob,20.66666666666667);
2059     t490 = 1/pow(rhob,19.66666666666667);
2060     t491 = 1/pow(rhoa,18.66666666666667);
2061     t492 = 1/pow(rhob,18.66666666666667);
2062 
2063    /* code */
2064     dfdra = 1.0*t51*t34*t56*t35*t57*rhoa-0.03109*t20*t50*
2065         t35*rhoa-1.0*t36*t4*t42*t6-0.75*t36*t4*t53*t59-0.03109*t20*
2066         t34*t35+.002129457733333333*t1*t2*t4*t20*t34*t17+t141*t151+
2067         t71*t139;
2068     dfdrb = 1.0*t178*t163*t183*t150*t184*rhob-0.03109*t149*
2069         t177*t150*rhob-0.75*t180*t186*t36*t4-1.0*t142*t169*t36*t4+
2070         t71*t194+t195*t151-0.03109*t149*t163*t150+.002129457733333333*
2071         t1*t2*t4*t149*t163*t146;
2072     dfdga = -0.03109*t20*t201*t35*rhoa-0.75*t202*t36*t4*t53+
2073         t203*t151;
2074     dfdgb = -0.03109*t149*t209*t150*rhob-0.75*t180*t210*t36*
2075         t4+t211*t151;
2076     dfdgab = 0.0;
2077     d2fdrara = 2.0*t51*t50*t56*t35*t57*rhoa+1.0*t51*t34*t227*
2078         t35*t57*rhoa-0.03109*t20*t220*t35*rhoa-2.0*t51*t34*t222*t35*
2079         t224*rhoa+32.1646831778707*t221*t34*t222*t35*t223*rhoa-2.0*
2080         t36*t4*t59*t6+2.0*t51*t34*t56*t35*t57+.001419638488888889*
2081         t1*t2*t4*t20*t34*t54-0.75*t229*t36*t4*t53-.3333333333333333*
2082         t16*t36*t4*t42-0.06218*t20*t50*t35+t71*t298-.1369866666666666*
2083         t1*t2*t4*t51*t34*t56*t57*t17+.004258915466666666*t1*t2*t4*
2084         t20*t50*t17+t300*t151+2.0*t139*t141;
2085     d2fdrarb = t305*t151+t195*t139+t141*t194+t71*t304;
2086     d2fdraga = 1.0*t51*t201*t56*t35*t57*rhoa-0.03109*t20*
2087         t308*t35*rhoa-1.0*t202*t36*t4*t6-0.75*t309*t36*t4*t53-0.03109*
2088         t20*t201*t35+.002129457733333333*t1*t2*t4*t20*t201*t17+t310*
2089         t151+t203*t139;
2090     d2fdragb = t311*t151+t211*t139;
2091     d2fdraab = 0.0;
2092     d2fdrbrb = -2.0*t178*t163*t322*t150*t324*rhob+32.1646831778707*
2093         t321*t163*t322*t150*t323*rhob+1.0*t178*t163*t327*t150*t184*
2094         rhob+2.0*t178*t177*t183*t150*t184*rhob-0.03109*t149*t320*t150*
2095         rhob-0.75*t180*t329*t36*t4-2.0*t142*t186*t36*t4-.3333333333333333*
2096         t145*t169*t36*t4+t71*t348+2.0*t194*t195+2.0*t178*t163*t183*
2097         t150*t184+.001419638488888889*t1*t2*t4*t149*t163*t181+t349*
2098         t151-0.06218*t149*t177*t150-.1369866666666666*t1*t2*t4*t178*
2099         t163*t183*t184*t146+.004258915466666666*t1*t2*t4*t149*t177*
2100         t146;
2101     d2fdrbga = t350*t151+t203*t194;
2102     d2fdrbgb = 1.0*t178*t209*t183*t150*t184*rhob-0.03109*
2103         t149*t353*t150*rhob-0.75*t180*t354*t36*t4-1.0*t142*t210*t36*
2104         t4+t211*t194+t355*t151-0.03109*t149*t209*t150+.002129457733333333*
2105         t1*t2*t4*t149*t209*t146;
2106     d2fdrbgab = 0.0;
2107     d2fdgaga = -0.03109*t20*t357*t35*rhoa-0.75*t358*t36*t4*
2108         t53+t359*t151;
2109     d2fdgagb = t360*t151;
2110     d2fdgagab = 0.0;
2111     d2fdgbgb = -0.03109*t149*t362*t150*rhob-0.75*t180*t36*
2112         t363*t4+t364*t151;
2113     d2fdgbgab = 0.0;
2114     d2fdgabgab = 0.0;
2115     d3fdrarara = t71*(-1.0*t51*t379*t35*t57*rhoa+192.9880990672242*
2116         t221*t375*t35*t377*rhoa-2069.133687865597*t374*t375*t35*t376*
2117         rhoa+6.0*t51*t227*t56*t35*t224*rhoa-96.4940495336121*t221*
2118         t227*t56*t35*t223*rhoa-6.0*t51*t375*t35*t223*rhoa+t72*(.01975178970256521*
2119         (t436+t435+t434-240.0*t129*t277)*t84*t89*t93*t96-.002197386604410379*
2120         t84*t1*t2*t4*t105*t281*t93*t96+.002929848805880505*t84*t1*
2121         t2*t4*t243*t130*t93*t96+.01975178970256521*t84*t88*t89*t431*
2122         t96+.05925536910769562*t84*t130*t89*t271*t96-.002197386604410379*
2123         t84*t1*t2*t4*t105*t88*t271*t96+.05925536910769562*t84*t281*
2124         t89*t124*t96+.002929848805880505*t84*t1*t2*t4*t243*t88*t124*
2125         t96-.004394773208820758*t84*t1*t2*t4*t105*t130*t124*t96+12.0*
2126         t129*t288*t84*t87*t93+240.0*t102*t129*t277*t84*t93-96.0*t127*
2127         t129*t135*t84*t93+3.0*t124*t288*t84*t86*t87+3.0*t135*t271*
2128         t84*t86*t87+36.0*t102*t124*t279*t84*t87+12.0*t102*t129*t271*
2129         t84*t87+24.0*t124*t129*t135*t84*t87+60.0*t102*t124*t277*t84*
2130         t86-12.0*t102*t127*t271*t84*t86-24.0*t124*t127*t135*t84*t86-
2131         96.0*t102*t124*t127*t129*t84+t444+t443+t442+t441+t440+t439+
2132         t438+t432+t424+t423+t422+t421+t420+t419+t418+t417+t416+t415+
2133         t414+t412+t411+t410+t405+t404+t403+t402+t401+t400+t398-51.9472676981276*
2134         t84*t130*t89*t93*t248*t249*t250-51.9472676981276*t84*t88*t89*
2135         t124*t248*t249*t250+3.508934038473122*t84*t130*t89*t93*t248*
2136         t252*t113+3.508934038473122*t84*t88*t89*t124*t248*t252*t113-
2137         1.754467019236561*t84*t130*t89*t93*t254*t112*t113-1.754467019236561*
2138         t84*t88*t89*t124*t254*t112*t113-1.754467019236561*t84*t281*
2139         t89*t93*t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*
2140         t130*t93*t111*t112*t113-1.754467019236561*t84*t88*t89*t271*
2141         t111*t112*t113-3.508934038473122*t84*t130*t89*t124*t111*t112*
2142         t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t124*t111*t112*
2143         t113+t84*t86*t87*t431*t102)+.05925536910769562*t84*t281*t89*
2144         t93*t96-.004394773208820758*t84*t1*t2*t4*t105*t130*t93*t96+
2145         .05925536910769562*t84*t88*t89*t271*t96+.1185107382153912*
2146         t84*t130*t89*t124*t96-.004394773208820758*t84*t1*t2*t4*t105*
2147         t88*t124*t96+24.0*t129*t135*t84*t87*t93-96.0*t102*t127*t129*
2148         t84*t93+3.0*t102*t271*t84*t86*t87+6.0*t124*t135*t84*t86*t87+
2149         24.0*t102*t124*t129*t84*t87-24.0*t102*t124*t127*t84*t86-3.0*
2150         t51*t227*t35*t57+.1369866666666666*t1*t2*t4*t51*t56*t57*t54+
2151         t394+t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+t383+
2152         t382+t381+.001892851318518518*t1*t2*t4*t20*t225+6.0*t51*t222*
2153         t35*t224-96.4940495336121*t221*t222*t35*t223+0.20548*t1*t2*
2154         t4*t51*t227*t57*t17-.4109599999999999*t1*t2*t4*t51*t222*t224*
2155         t17+6.60919909938887*t1*t2*t4*t221*t222*t223*t17-3.508934038473122*
2156         t84*t130*t89*t93*t111*t112*t113-3.508934038473122*t84*t88*
2157         t89*t124*t111*t112*t113)+3.0*t51*t220*t56*t35*t57*rhoa+1.0*
2158         t51*t34*t379*t35*t57*rhoa+3.0*t51*t50*t227*t35*t57*rhoa-192.9880990672242*
2159         t221*t34*t375*t35*t377*rhoa+2069.133687865597*t374*t34*t375*
2160         t35*t376*rhoa-0.03109*t20*(-0.29097376*t22*t33*t373+17.94495303822222*
2161         t30*t31*t372-27.37080780231112*t27*t28*t371+15.36387437568*
2162         t21*t25*t370-4.071649359644446*t43*t44*t369+.5178316754488891*
2163         t212*t213*t368-.02554182587733335*t365*t366*t367)*t35*rhoa-
2164         6.0*t51*t34*t227*t56*t35*t224*rhoa-6.0*t51*t50*t222*t35*t224*
2165         rhoa+96.4940495336121*t221*t34*t227*t56*t35*t223*rhoa+6.0*
2166         t51*t34*t375*t35*t223*rhoa+96.4940495336121*t221*t50*t222*
2167         t35*t223*rhoa-3.0*t229*t36*t4*t6-1.0*t16*t36*t4*t59+6.0*t51*
2168         t50*t56*t35*t57+3.0*t51*t34*t227*t35*t57-.1369866666666666*
2169         t1*t2*t4*t51*t34*t56*t57*t54+.004258915466666666*t1*t2*t4*
2170         t20*t50*t54-0.75*t36*(.06584921362962963*t22*t41*t373-.01511690658133333*
2171         t30*t40*t372+4.4756461401125924E-4*t27*t39*t371-5.283262723716741E-6*
2172         t21*t38*t370+3.0183801754358525E-8*t43*t58*t369-8.352284744817775E-11*
2173         t212*t228*t368+8.99128288142222E-14*t365*t380*t367)*t4*t53+
2174         .2222222222222222*t36*t4*t42*t52-.09326999999999999*t20*t220*
2175         t35+3.0*t139*t300+3.0*t141*t298-.001892851318518518*t1*t2*
2176         t4*t20*t34*t225-6.0*t51*t34*t222*t35*t224+96.4940495336121*
2177         t221*t34*t222*t35*t223-.4109599999999999*t1*t2*t4*t51*t50*
2178         t56*t57*t17-0.20548*t1*t2*t4*t51*t34*t227*t57*t17+.4109599999999999*
2179         t1*t2*t4*t51*t34*t222*t224*t17-6.60919909938887*t1*t2*t4*t221*
2180         t34*t222*t223*t17+.006388373199999998*t1*t2*t4*t20*t220*t17+
2181         (-.6248512355555556*t22*t373*t70+0.02601200448*t22*t373*t62*
2182         t69+.02550952447999999*t30*t372*t69-3.314168704E-4*t22*t373*
2183         t68*t67-8.356952524799998E-4*t30*t372*t62*t67-1.3840115711999998E-4*
2184         t27*t371*t67+1.56254224896E-6*t22*t373*t66*t65+9.131254640639999E-6*
2185         t30*t372*t68*t65+4.036972584959999E-6*t27*t371*t62*t65-2.25303192576E-9*
2186         t22*t373*t63*t140-3.986840715264E-8*t30*t372*t66*t140-4.106125246464E-8*
2187         t27*t371*t68*t140+5.793510666239999E-11*t30*t372*t63*t299+
2188         1.730657746944E-10*t27*t371*t66*t299-2.528077381632E-13*t27*
2189         t371*t63*t445)*t151;
2190     d3fdrararb = t71*(t72*(.01975178970256521*(t461+t460+
2191         t434-80.0*t129*t277)*t84*t89*t93*t96-7.324622014701263E-4*
2192         t84*t1*t2*t4*t105*t281*t93*t96+9.766162686268349E-4*t84*t1*
2193         t2*t4*t243*t191*t93*t96+0.00195323253725367*t84*t1*t2*t4*t243*
2194         t130*t93*t96+.01975178970256521*t84*t88*t89*t456*t96+.03950357940513041*
2195         t84*t130*t89*t301*t96+.01975178970256521*t84*t191*t89*t271*
2196         t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t271*t96+.01975178970256521*
2197         t84*t281*t89*t189*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*
2198         t88*t189*t96+.03950357940513041*t84*t302*t89*t124*t96+0.00195323253725367*
2199         t84*t1*t2*t4*t243*t88*t124*t96-.001464924402940253*t84*t1*
2200         t2*t4*t105*t130*t124*t96+4.0*t129*t288*t84*t87*t93+80.0*t102*
2201         t129*t277*t84*t93-32.0*t127*t129*t135*t84*t93+2.0*t124*t288*
2202         t84*t86*t87+8.0*t102*t129*t301*t84*t87+12.0*t102*t189*t279*
2203         t84*t87-24.0*t102*t124*t279*t84*t87-4.0*t102*t129*t271*t84*
2204         t87+8.0*t129*t135*t189*t84*t87+20.0*t102*t189*t277*t84*t86+
2205         40.0*t102*t124*t277*t84*t86-4.0*t102*t127*t271*t84*t86-8.0*
2206         t127*t135*t189*t84*t86-16.0*t124*t127*t135*t84*t86-32.0*t102*
2207         t127*t129*t189*t84+t466+t465+t464+t463+t462+t459+t458+t457+
2208         t455+t454+t453+t452+t451+t442+t440+t439+t438+t432+t424+t423+
2209         t422+t421+t420+t419+t418+t417+t416+t415+t414+t412+t411+t410+
2210         t405+t404+t403+t402+t401+t400+t398+t84*t86*t87*t189*t288-17.31575589937587*
2211         t84*t191*t89*t93*t248*t249*t250-34.63151179875173*t84*t130*
2212         t89*t93*t248*t249*t250-17.31575589937587*t84*t88*t89*t189*
2213         t248*t249*t250-34.63151179875173*t84*t88*t89*t124*t248*t249*
2214         t250+t84*t86*t87*t271*t135+1.169644679491041*t84*t191*t89*
2215         t93*t248*t252*t113+2.339289358982082*t84*t130*t89*t93*t248*
2216         t252*t113+1.169644679491041*t84*t88*t89*t189*t248*t252*t113+
2217         2.339289358982082*t84*t88*t89*t124*t248*t252*t113-.5848223397455204*
2218         t84*t191*t89*t93*t254*t112*t113-1.169644679491041*t84*t130*
2219         t89*t93*t254*t112*t113-.5848223397455204*t84*t88*t89*t189*
2220         t254*t112*t113-1.169644679491041*t84*t88*t89*t124*t254*t112*
2221         t113-.5848223397455204*t84*t281*t89*t93*t111*t112*t113+.04337432353112609*
2222         t84*t1*t2*t4*t105*t191*t93*t111*t112*t113+.08674864706225219*
2223         t84*t1*t2*t4*t105*t130*t93*t111*t112*t113-.5848223397455204*
2224         t84*t88*t89*t271*t111*t112*t113+.04337432353112609*t84*t1*
2225         t2*t4*t105*t88*t189*t111*t112*t113-1.169644679491041*t84*t130*
2226         t89*t124*t111*t112*t113+.08674864706225219*t84*t1*t2*t4*t105*
2227         t88*t124*t111*t112*t113+t84*t86*t87*t456*t102)-.002929848805880505*
2228         t84*t1*t2*t4*t105*t130*t93*t96-.002929848805880505*t84*t1*
2229         t2*t4*t105*t88*t124*t96+4.0*t124*t135*t84*t86*t87+8.0*t102*
2230         t129*t189*t84*t87-16.0*t102*t124*t127*t84*t86+t450+t449+t448+
2231         t447+t446+t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+
2232         t383+t382+t381+t346+t343+t340+t338+t331+t330+t303+t296+t293+
2233         t292+t282+t274+t272-2.339289358982082*t84*t130*t89*t93*t111*
2234         t112*t113-2.339289358982082*t84*t88*t89*t124*t111*t112*t113)+
2235         2.0*t139*t305+2.0*t141*t304+t195*t298+t300*t194+(.008503174826666664*
2236         t22*t60*t219*t69*t176-2.7856508416E-4*t22*t60*t219*t62*t67*
2237         t176-1.3840115711999998E-4*t30*t60*t218*t67*t176+3.0437515468799997E-6*
2238         t22*t60*t219*t68*t65*t176+4.036972584959999E-6*t30*t60*t218*
2239         t62*t65*t176-1.328946905088E-8*t22*t60*t219*t66*t140*t176-
2240         4.106125246464E-8*t30*t60*t218*t68*t140*t176+1.93117022208E-11*
2241         t22*t60*t219*t63*t299*t176+1.730657746944E-10*t30*t60*t218*
2242         t66*t299*t176-2.528077381632E-13*t30*t60*t218*t63*t445*t176)*
2243         t151;
2244     d3fdraraga = 2.0*t51*t308*t56*t35*t57*rhoa+1.0*t51*t201*
2245         t227*t35*t57*rhoa-0.03109*t20*(0.12470304*grada*t33*t219-9.794958186666667*
2246         t200*t31*t218+16.81328538453334*t199*t28*t217-10.17274008576*
2247         t198*t25*t216+2.843272635733334*t196*t44*t215-.3764010257066668*
2248         t306*t213*t214+.01915636940800001*t467*t366*t468)*t35*rhoa-
2249         2.0*t51*t201*t222*t35*t224*rhoa+32.1646831778707*t221*t201*
2250         t222*t35*t223*rhoa-2.0*t309*t36*t4*t6+2.0*t51*t201*t56*t35*
2251         t57+.001419638488888889*t1*t2*t4*t20*t201*t54-0.75*(-.02822109155555556*
2252         grada*t41*t219+.008276372053333331*t200*t40*t218-2.7506955855644444E-4*
2253         t199*t39*t217+3.4899021041208883E-6*t198*t38*t216-2.099999575608889E-8*
2254         t196*t58*t215+6.053480366079999E-11*t306*t228*t214-6.743462161066666E-14*
2255         t467*t380*t468)*t36*t4*t53-.3333333333333333*t16*t202*t36*
2256         t4-0.06218*t20*t308*t35+2.0*t139*t310+t203*t298-.1369866666666666*
2257         t1*t2*t4*t51*t201*t56*t57*t17+.004258915466666666*t1*t2*t4*
2258         t20*t308*t17+(.2677933866666666*grada*t219*t70-0.01114800192*
2259         grada*t219*t62*t69-.01565357183999999*t200*t218*t69+1.4203580159999998E-4*
2260         grada*t219*t68*t67+5.1281299584E-4*t200*t218*t62*t67+1.0380086783999998E-4*
2261         t199*t217*t67-6.696609638400001E-7*grada*t219*t66*t65-5.603269893119999E-6*
2262         t200*t218*t68*t65-3.02772943872E-6*t199*t217*t62*t65+9.6558511104E-10*
2263         grada*t219*t63*t140+2.446470438912E-8*t200*t218*t66*t140+3.079593934848E-8*
2264         t199*t217*t68*t140-3.55510881792E-11*t200*t218*t63*t299-1.297993310208E-10*
2265         t199*t217*t66*t299+1.896058036224E-13*t199*t217*t63*t445)*
2266         t151;
2267     d3fdraragb = 2.0*t139*t311+t211*t298+(-.006377381119999998*
2268         t22*gradb*t219*t69*t61+2.0892381311999997E-4*t22*gradb*t219*
2269         t62*t67*t61+1.0380086783999998E-4*t30*gradb*t218*t67*t61-2.2828136601599996E-6*
2270         t22*gradb*t219*t68*t65*t61-3.02772943872E-6*t30*gradb*t218*
2271         t62*t65*t61+9.96710178816E-9*t22*gradb*t219*t66*t140*t61+3.079593934848E-8*
2272         t30*gradb*t218*t68*t140*t61-1.44837766656E-11*t22*gradb*t219*
2273         t63*t299*t61-1.297993310208E-10*t30*gradb*t218*t66*t299*t61+
2274         1.896058036224E-13*t30*gradb*t218*t63*t445*t61)*t151;
2275     d3fdraraab = 0.0;
2276     d3fdrarbrb = t71*(t72*(.01975178970256521*(t460+t436+
2277         t434+80.0*t129*t277)*t84*t89*t93*t96-7.324622014701263E-4*
2278         t84*t1*t2*t4*t105*t341*t93*t96+0.00195323253725367*t84*t1*
2279         t2*t4*t243*t191*t93*t96+9.766162686268349E-4*t84*t1*t2*t4*
2280         t243*t130*t93*t96+.01975178970256521*t84*t88*t89*t469*t96+
2281         .01975178970256521*t84*t130*t89*t336*t96-7.324622014701263E-4*
2282         t84*t1*t2*t4*t105*t88*t336*t96+.03950357940513041*t84*t191*
2283         t89*t301*t96+.03950357940513041*t84*t302*t89*t189*t96+0.00195323253725367*
2284         t84*t1*t2*t4*t243*t88*t189*t96-.001464924402940253*t84*t1*
2285         t2*t4*t105*t191*t189*t96+.01975178970256521*t84*t341*t89*t124*
2286         t96+9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t124*t96-4.0*
2287         t129*t288*t84*t87*t93-80.0*t102*t129*t277*t84*t93+32.0*t127*
2288         t129*t135*t84*t93+2.0*t189*t288*t84*t86*t87+4.0*t102*t129*
2289         t336*t84*t87-8.0*t102*t129*t301*t84*t87-24.0*t102*t189*t279*
2290         t84*t87+12.0*t102*t124*t279*t84*t87-8.0*t124*t129*t135*t84*
2291         t87-4.0*t102*t127*t336*t84*t86+40.0*t102*t189*t277*t84*t86+
2292         20.0*t102*t124*t277*t84*t86-16.0*t127*t135*t189*t84*t86-8.0*
2293         t124*t127*t135*t84*t86+32.0*t102*t124*t127*t129*t84+t465+t464+
2294         t463+t462+t459+t458+t457+t455+t454+t453+t452+t451+t444+t442+
2295         t440+t439+t438+t432+t424+t423+t422+t421+t420+t419+t418+t417+
2296         t416+t415+t414+t412+t411+t410+t405+t404+t403+t402+t401+t400+
2297         t398+t84*t86*t87*t124*t288-34.63151179875173*t84*t191*t89*
2298         t93*t248*t249*t250-17.31575589937587*t84*t130*t89*t93*t248*
2299         t249*t250-34.63151179875173*t84*t88*t89*t189*t248*t249*t250-
2300         17.31575589937587*t84*t88*t89*t124*t248*t249*t250+t84*t86*
2301         t87*t336*t135+2.339289358982082*t84*t191*t89*t93*t248*t252*
2302         t113+1.169644679491041*t84*t130*t89*t93*t248*t252*t113+2.339289358982082*
2303         t84*t88*t89*t189*t248*t252*t113+1.169644679491041*t84*t88*
2304         t89*t124*t248*t252*t113-1.169644679491041*t84*t191*t89*t93*
2305         t254*t112*t113-.5848223397455204*t84*t130*t89*t93*t254*t112*
2306         t113-1.169644679491041*t84*t88*t89*t189*t254*t112*t113-.5848223397455204*
2307         t84*t88*t89*t124*t254*t112*t113-.5848223397455204*t84*t341*
2308         t89*t93*t111*t112*t113+.08674864706225219*t84*t1*t2*t4*t105*
2309         t191*t93*t111*t112*t113+.04337432353112609*t84*t1*t2*t4*t105*
2310         t130*t93*t111*t112*t113-.5848223397455204*t84*t88*t89*t336*
2311         t111*t112*t113-1.169644679491041*t84*t191*t89*t189*t111*t112*
2312         t113+.08674864706225219*t84*t1*t2*t4*t105*t88*t189*t111*t112*
2313         t113+.04337432353112609*t84*t1*t2*t4*t105*t88*t124*t111*t112*
2314         t113+t84*t86*t87*t469*t102)-.002929848805880505*t84*t1*t2*
2315         t4*t105*t191*t93*t96-.002929848805880505*t84*t1*t2*t4*t105*
2316         t88*t189*t96+4.0*t135*t189*t84*t86*t87-8.0*t102*t124*t129*
2317         t84*t87-16.0*t102*t127*t189*t84*t86+t450+t449+t448+t447+t446+
2318         t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+t383+t382+
2319         t381+t347+t345+t344+t342+t339+t337+t303+t294+t290+t275+t273+
2320         t258+t256-2.339289358982082*t84*t191*t89*t93*t111*t112*t113-
2321         2.339289358982082*t84*t88*t89*t189*t111*t112*t113)+t141*t348+
2322         2.0*t194*t305+2.0*t195*t304+(.008503174826666664*t22*t60*t49*
2323         t69*t319-2.785650841599999E-4*t22*t60*t49*t62*t67*t319+3.043751546879999E-6*
2324         t22*t60*t49*t68*t65*t319-1.328946905088E-8*t22*t60*t49*t66*
2325         t140*t319+1.93117022208E-11*t22*t60*t49*t63*t299*t319-1.3840115711999998E-4*
2326         t22*t159*t49*t67*t318+4.036972584959999E-6*t22*t159*t49*t62*
2327         t65*t318-4.106125246464E-8*t22*t159*t49*t68*t140*t318+1.730657746944E-10*
2328         t22*t159*t49*t66*t299*t318-2.528077381632E-13*t22*t159*t49*
2329         t63*t445*t318)*t151+t349*t139;
2330     d3fdrarbga = (-.004638095359999999*grada*t60*t49*t69*
2331         t176+1.5194459135999996E-4*grada*t60*t49*t62*t67*t176+1.0380086783999998E-4*
2332         t200*t60*t48*t67*t176-1.6602281164799998E-6*grada*t60*t49*
2333         t68*t65*t176-3.02772943872E-6*t200*t60*t48*t62*t65*t176+7.24880130048E-9*
2334         grada*t60*t49*t66*t140*t176+3.079593934848E-8*t200*t60*t48*
2335         t68*t140*t176-1.05336557568E-11*grada*t60*t49*t63*t299*t176-
2336         1.297993310208E-10*t200*t60*t48*t66*t299*t176+1.896058036224E-13*
2337         t200*t60*t48*t63*t445*t176)*t151+t350*t139+t310*t194+t203*
2338         t304;
2339     d3fdrarbgb = (-.004638095359999999*t22*gradb*t49*t69*
2340         t176+1.5194459135999996E-4*t22*gradb*t49*t62*t67*t176-1.6602281164799998E-6*
2341         t22*gradb*t49*t68*t65*t176+7.24880130048E-9*t22*gradb*t49*
2342         t66*t140*t176-1.05336557568E-11*t22*gradb*t49*t63*t299*t176+
2343         1.0380086783999998E-4*t22*t208*t49*t67*t175-3.02772943872E-6*
2344         t22*t208*t49*t62*t65*t175+3.079593934848E-8*t22*t208*t49*t68*
2345         t140*t175-1.297993310208E-10*t22*t208*t49*t66*t299*t175+1.896058036224E-13*
2346         t22*t208*t49*t63*t445*t175)*t151+t355*t139+t311*t194+t211*
2347         t304;
2348     d3fdrarbab = 0.0;
2349     d3fdragaga = 1.0*t51*t357*t56*t35*t57*rhoa-0.03109*t20*
2350         (-0.03400992*t33*t49+4.644729024000001*t22*t31*t48-9.660890649600002*
2351         t30*t28*t47+6.508088401920002*t27*t25*t46-1.95222669312*t21*
2352         t44*t45+.2718246297600001*t43*t213*t307-.01436727705600001*
2353         t212*t366*t470)*t35*rhoa-1.0*t358*t36*t4*t6-0.75*t36*t4*(.007696661333333334*
2354         t41*t49-.003943071658666666*t22*t40*t48+1.581834315093333E-4*
2355         t30*t39*t47-2.2259240850773332E-6*t27*t38*t46+1.435144661674667E-8*
2356         t21*t58*t45-4.355718731093333E-11*t43*t228*t307+5.057596620799999E-14*
2357         t212*t380*t470)*t53-0.03109*t20*t357*t35+.002129457733333333*
2358         t1*t2*t4*t20*t357*t17+(-0.07303456*t49*t70+0.00304036416*t49*
2359         t62*t69+.008696428799999998*t22*t48*t69-3.8737036799999996E-5*
2360         t49*t68*t67-2.8489610879999994E-4*t22*t48*t62*t67-7.785065087999998E-5*
2361         t30*t47*t67+1.8263480832E-7*t49*t66*t65+3.1129277184000004E-6*
2362         t22*t48*t68*t65+2.27079707904E-6*t30*t47*t62*t65-2.6334139392E-10*
2363         t49*t63*t140-1.3591502438400002E-8*t22*t48*t66*t140-2.3096954511360004E-8*
2364         t30*t47*t68*t140+1.9750604544E-11*t22*t48*t63*t299+9.73494982656E-11*
2365         t30*t47*t66*t299-1.422043527168E-13*t30*t47*t63*t445)*t151+
2366         t359*t139;
2367     d3fdragagb = (.003478571519999999*grada*gradb*t49*t69*
2368         t61-1.1395844352E-4*grada*gradb*t49*t62*t67*t61-7.785065087999998E-5*
2369         t200*gradb*t48*t67*t61+1.2451710873600001E-6*grada*gradb*t49*
2370         t68*t65*t61+2.27079707904E-6*t200*gradb*t48*t62*t65*t61-5.436600975360001E-9*
2371         grada*gradb*t49*t66*t140*t61-2.3096954511360004E-8*t200*gradb*
2372         t48*t68*t140*t61+7.9002418176E-12*grada*gradb*t49*t63*t299*
2373         t61+9.73494982656E-11*t200*gradb*t48*t66*t299*t61-1.422043527168E-13*
2374         t200*gradb*t48*t63*t445*t61)*t151+t360*t139;
2375     d3fdragaab = 0.0;
2376     d3fdragbgb = (0.00173928576*t22*t49*t69*t61-5.697922176E-5*
2377         t22*t49*t62*t67*t61+6.225855436800002E-7*t22*t49*t68*t65*t61-
2378         2.7183004876800004E-9*t22*t49*t66*t140*t61+3.9501209088E-12*
2379         t22*t49*t63*t299*t61-7.785065087999998E-5*t22*t60*t49*t67*
2380         t161+2.27079707904E-6*t22*t60*t49*t62*t65*t161-2.3096954511360004E-8*
2381         t22*t60*t49*t68*t140*t161+9.73494982656E-11*t22*t60*t49*t66*
2382         t299*t161-1.422043527168E-13*t22*t60*t49*t63*t445*t161)*t151+
2383         t364*t139;
2384     d3fdragbab = 0.0;
2385     d3fdraabab = 0.0;
2386     d3fdrbrbrb = t71*(192.9880990672242*t321*t481*t150*t483*
2387         rhob-2069.133687865597*t480*t481*t150*t482*rhob+6.0*t178*t327*
2388         t183*t150*t324*rhob-6.0*t178*t481*t150*t323*rhob-96.4940495336121*
2389         t321*t327*t183*t150*t323*rhob-1.0*t178*t485*t150*t184*rhob+
2390         t72*(.01975178970256521*(t461+t435+t434+240.0*t129*t277)*t84*
2391         t89*t93*t96-.002197386604410379*t84*t1*t2*t4*t105*t341*t93*
2392         t96+.002929848805880505*t84*t1*t2*t4*t243*t191*t93*t96+.01975178970256521*
2393         t84*t88*t89*t487*t96+.05925536910769562*t84*t191*t89*t336*
2394         t96-.002197386604410379*t84*t1*t2*t4*t105*t88*t336*t96+.05925536910769562*
2395         t84*t341*t89*t189*t96+.002929848805880505*t84*t1*t2*t4*t243*
2396         t88*t189*t96-.004394773208820758*t84*t1*t2*t4*t105*t191*t189*
2397         t96-12.0*t129*t288*t84*t87*t93-240.0*t102*t129*t277*t84*t93+
2398         96.0*t127*t129*t135*t84*t93+3.0*t135*t336*t84*t86*t87+3.0*
2399         t189*t288*t84*t86*t87-12.0*t102*t129*t336*t84*t87+36.0*t102*
2400         t189*t279*t84*t87-24.0*t129*t135*t189*t84*t87-12.0*t102*t127*
2401         t336*t84*t86+60.0*t102*t189*t277*t84*t86-24.0*t127*t135*t189*
2402         t84*t86+96.0*t102*t127*t129*t189*t84+t466+t443+t442+t441+t440+
2403         t439+t438+t432+t424+t423+t422+t421+t420+t419+t418+t417+t416+
2404         t415+t414+t412+t411+t410+t405+t404+t403+t402+t401+t400+t398-
2405         51.9472676981276*t84*t191*t89*t93*t248*t249*t250-51.9472676981276*
2406         t84*t88*t89*t189*t248*t249*t250+3.508934038473122*t84*t191*
2407         t89*t93*t248*t252*t113+3.508934038473122*t84*t88*t89*t189*
2408         t248*t252*t113-1.754467019236561*t84*t191*t89*t93*t254*t112*
2409         t113-1.754467019236561*t84*t88*t89*t189*t254*t112*t113-1.754467019236561*
2410         t84*t341*t89*t93*t111*t112*t113+.1301229705933783*t84*t1*t2*
2411         t4*t105*t191*t93*t111*t112*t113-1.754467019236561*t84*t88*
2412         t89*t336*t111*t112*t113-3.508934038473122*t84*t191*t89*t189*
2413         t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t189*
2414         t111*t112*t113+t84*t86*t87*t487*t102)+.05925536910769562*t84*
2415         t341*t89*t93*t96-.004394773208820758*t84*t1*t2*t4*t105*t191*
2416         t93*t96+.05925536910769562*t84*t88*t89*t336*t96+.1185107382153912*
2417         t84*t191*t89*t189*t96-.004394773208820758*t84*t1*t2*t4*t105*
2418         t88*t189*t96-24.0*t129*t135*t84*t87*t93+96.0*t102*t127*t129*
2419         t84*t93+3.0*t102*t336*t84*t86*t87+6.0*t135*t189*t84*t86*t87-
2420         24.0*t102*t129*t189*t84*t87-24.0*t102*t127*t189*t84*t86+t394+
2421         t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+t383+t382+
2422         t381+.001892851318518518*t1*t2*t4*t149*t325+6.0*t178*t322*
2423         t150*t324-96.4940495336121*t321*t322*t150*t323-3.0*t178*t327*
2424         t150*t184+.1369866666666666*t1*t2*t4*t178*t183*t184*t181-.4109599999999999*
2425         t1*t2*t4*t178*t322*t324*t146+6.60919909938887*t1*t2*t4*t321*
2426         t322*t323*t146+0.20548*t1*t2*t4*t178*t327*t184*t146-3.508934038473122*
2427         t84*t191*t89*t93*t111*t112*t113-3.508934038473122*t84*t88*
2428         t89*t189*t111*t112*t113)-192.9880990672242*t321*t163*t481*
2429         t150*t483*rhob+2069.133687865597*t480*t163*t481*t150*t482*
2430         rhob-6.0*t178*t177*t322*t150*t324*rhob-6.0*t178*t163*t327*
2431         t183*t150*t324*rhob+6.0*t178*t163*t481*t150*t323*rhob+96.4940495336121*
2432         t321*t177*t322*t150*t323*rhob+96.4940495336121*t321*t163*t327*
2433         t183*t150*t323*rhob+1.0*t178*t163*t485*t150*t184*rhob+3.0*
2434         t178*t177*t327*t150*t184*rhob+3.0*t178*t320*t183*t150*t184*
2435         rhob-0.03109*t149*(-0.29097376*t60*t162*t479+17.94495303822222*
2436         t159*t160*t478-27.37080780231112*t156*t157*t477+15.36387437568*
2437         t152*t154*t476-4.071649359644446*t170*t171*t475+.5178316754488891*
2438         t312*t313*t474-.02554182587733335*t471*t472*t473)*t150*rhob-
2439         0.75*t180*t36*t4*(.06584921362962963*t60*t168*t479-.01511690658133333*
2440         t159*t167*t478+4.4756461401125924E-4*t156*t166*t477-5.283262723716741E-6*
2441         t152*t165*t476+3.0183801754358525E-8*t170*t185*t475-8.352284744817775E-11*
2442         t312*t328*t474+8.99128288142222E-14*t471*t486*t473)-3.0*t142*
2443         t329*t36*t4-1.0*t145*t186*t36*t4+.2222222222222222*t169*t179*
2444         t36*t4+3.0*t194*t349+3.0*t195*t348-.001892851318518518*t1*
2445         t2*t4*t149*t163*t325-6.0*t178*t163*t322*t150*t324+96.4940495336121*
2446         t321*t163*t322*t150*t323+3.0*t178*t163*t327*t150*t184+6.0*
2447         t178*t177*t183*t150*t184-.1369866666666666*t1*t2*t4*t178*t163*
2448         t183*t184*t181+.004258915466666666*t1*t2*t4*t149*t177*t181+
2449         (-.6248512355555556*t60*t70*t479+0.02601200448*t60*t62*t69*
2450         t479-3.314168704E-4*t60*t68*t67*t479+1.56254224896E-6*t60*
2451         t66*t65*t479-2.25303192576E-9*t60*t63*t140*t479+.02550952447999999*
2452         t159*t69*t478-8.356952524799998E-4*t159*t62*t67*t478+9.131254640639999E-6*
2453         t159*t68*t65*t478-3.986840715264E-8*t159*t66*t140*t478+5.793510666239999E-11*
2454         t159*t63*t299*t478-1.3840115711999998E-4*t156*t67*t477+4.036972584959999E-6*
2455         t156*t62*t65*t477-4.106125246464E-8*t156*t68*t140*t477+1.730657746944E-10*
2456         t156*t66*t299*t477-2.528077381632E-13*t156*t63*t445*t477)*
2457         t151-.09326999999999999*t149*t320*t150+.4109599999999999*t1*
2458         t2*t4*t178*t163*t322*t324*t146-6.60919909938887*t1*t2*t4*t321*
2459         t163*t322*t323*t146+.006388373199999998*t1*t2*t4*t149*t320*
2460         t146-0.20548*t1*t2*t4*t178*t163*t327*t184*t146-.4109599999999999*
2461         t1*t2*t4*t178*t177*t183*t184*t146;
2462     d3fdrbrbga = 2.0*t194*t350+t203*t348+(-.006377381119999998*
2463         grada*t60*t23*t69*t319+2.0892381311999997E-4*grada*t60*t23*
2464         t62*t67*t319-2.2828136601599996E-6*grada*t60*t23*t68*t65*t319+
2465         9.96710178816E-9*grada*t60*t23*t66*t140*t319-1.44837766656E-11*
2466         grada*t60*t23*t63*t299*t319+1.0380086783999998E-4*grada*t159*
2467         t23*t67*t318-3.02772943872E-6*grada*t159*t23*t62*t65*t318+
2468         3.079593934848E-8*grada*t159*t23*t68*t140*t318-1.297993310208E-10*
2469         grada*t159*t23*t66*t299*t318+1.896058036224E-13*grada*t159*
2470         t23*t63*t445*t318)*t151;
2471     d3fdrbrbgb = -2.0*t178*t209*t322*t150*t324*rhob+32.1646831778707*
2472         t321*t209*t322*t150*t323*rhob+1.0*t178*t209*t327*t150*t184*
2473         rhob+2.0*t178*t353*t183*t150*t184*rhob-0.03109*t149*(0.12470304*
2474         gradb*t162*t319-9.794958186666667*t208*t160*t318+16.81328538453334*
2475         t207*t157*t317-10.17274008576*t206*t154*t316+2.843272635733334*
2476         t204*t171*t315-.3764010257066668*t351*t313*t314+.01915636940800001*
2477         t488*t472*t489)*t150*rhob-2.0*t142*t354*t36*t4-0.75*t180*(-
2478         .02822109155555556*gradb*t168*t319+.008276372053333331*t208*
2479         t167*t318-2.7506955855644444E-4*t207*t166*t317+3.4899021041208883E-6*
2480         t206*t165*t316-2.099999575608889E-8*t204*t185*t315+6.053480366079999E-11*
2481         t351*t328*t314-6.743462161066666E-14*t488*t486*t489)*t36*t4-
2482         .3333333333333333*t145*t210*t36*t4+2.0*t194*t355+t211*t348+
2483         2.0*t178*t209*t183*t150*t184+.001419638488888889*t1*t2*t4*
2484         t149*t209*t181+(.2677933866666666*gradb*t70*t319-0.01114800192*
2485         gradb*t62*t69*t319+1.4203580159999998E-4*gradb*t68*t67*t319-
2486         6.696609638400001E-7*gradb*t66*t65*t319+9.6558511104E-10*gradb*
2487         t63*t140*t319-.01565357183999999*t208*t69*t318+5.1281299584E-4*
2488         t208*t62*t67*t318-5.603269893119999E-6*t208*t68*t65*t318+2.446470438912E-8*
2489         t208*t66*t140*t318-3.55510881792E-11*t208*t63*t299*t318+1.0380086783999998E-4*
2490         t207*t67*t317-3.02772943872E-6*t207*t62*t65*t317+3.079593934848E-8*
2491         t207*t68*t140*t317-1.297993310208E-10*t207*t66*t299*t317+1.896058036224E-13*
2492         t207*t63*t445*t317)*t151-0.06218*t149*t353*t150+.004258915466666666*
2493         t1*t2*t4*t149*t353*t146-.1369866666666666*t1*t2*t4*t178*t209*
2494         t183*t184*t146;
2495     d3fdrbrbab = 0.0;
2496     d3fdrbgaga = (0.00173928576*t60*t23*t69*t176-5.697922176E-5*
2497         t60*t23*t62*t67*t176-7.785065087999998E-5*t22*t60*t32*t67*
2498         t176+6.225855436800002E-7*t60*t23*t68*t65*t176+2.27079707904E-6*
2499         t22*t60*t32*t62*t65*t176-2.7183004876800004E-9*t60*t23*t66*
2500         t140*t176-2.3096954511360004E-8*t22*t60*t32*t68*t140*t176+
2501         3.9501209088E-12*t60*t23*t63*t299*t176+9.73494982656E-11*t22*
2502         t60*t32*t66*t299*t176-1.422043527168E-13*t22*t60*t32*t63*t445*
2503         t176)*t151+t359*t194;
2504     d3fdrbgagb = (.003478571519999999*grada*gradb*t23*t69*
2505         t176-1.1395844352E-4*grada*gradb*t23*t62*t67*t176+1.2451710873600001E-6*
2506         grada*gradb*t23*t68*t65*t176-5.436600975360001E-9*grada*gradb*
2507         t23*t66*t140*t176+7.9002418176E-12*grada*gradb*t23*t63*t299*
2508         t176-7.785065087999998E-5*grada*t208*t23*t67*t175+2.27079707904E-6*
2509         grada*t208*t23*t62*t65*t175-2.3096954511360004E-8*grada*t208*
2510         t23*t68*t140*t175+9.73494982656E-11*grada*t208*t23*t66*t299*
2511         t175-1.422043527168E-13*grada*t208*t23*t63*t445*t175)*t151+
2512         t360*t194;
2513     d3fdrbgaab = 0.0;
2514     d3fdrbgbgb = 1.0*t178*t362*t183*t150*t184*rhob-0.03109*
2515         t149*(-0.03400992*t162*t176+4.644729024000001*t60*t160*t175-
2516         9.660890649600002*t159*t157*t174+6.508088401920002*t156*t154*
2517         t173-1.95222669312*t152*t171*t172+.2718246297600001*t170*t313*
2518         t352-.01436727705600001*t312*t472*t490)*t150*rhob-1.0*t142*
2519         t36*t363*t4-0.75*(.007696661333333334*t168*t176-.003943071658666666*
2520         t60*t167*t175+1.581834315093333E-4*t159*t166*t174-2.2259240850773332E-6*
2521         t156*t165*t173+1.435144661674667E-8*t152*t185*t172-4.355718731093333E-11*
2522         t170*t328*t352+5.057596620799999E-14*t312*t486*t490)*t180*
2523         t36*t4+t364*t194+(-0.07303456*t70*t176+0.00304036416*t62*t69*
2524         t176-3.8737036799999996E-5*t68*t67*t176+1.8263480832E-7*t66*
2525         t65*t176-2.6334139392E-10*t63*t140*t176+.008696428799999998*
2526         t60*t69*t175-2.8489610879999994E-4*t60*t62*t67*t175+3.1129277184000004E-6*
2527         t60*t68*t65*t175-1.3591502438400002E-8*t60*t66*t140*t175+1.9750604544E-11*
2528         t60*t63*t299*t175-7.785065087999998E-5*t159*t67*t174+2.27079707904E-6*
2529         t159*t62*t65*t174-2.3096954511360004E-8*t159*t68*t140*t174+
2530         9.73494982656E-11*t159*t66*t299*t174-1.422043527168E-13*t159*
2531         t63*t445*t174)*t151-0.03109*t149*t362*t150+.002129457733333333*
2532         t1*t2*t4*t149*t362*t146;
2533     d3fdrbgbab = 0.0;
2534     d3fdrbabab = 0.0;
2535     d3fdgagaga = -0.03109*t20*(-1.744324128*grada*t31*t32+
2536         5.062341676800001*t200*t28*t29-3.988298672640001*t199*t25*
2537         t26+1.31417883648*t198*t44*t197-.1948889241600001*t196*t213*
2538         t356+.01077545779200001*t306*t366*t491)*t35*rhoa-0.75*(0.001490196864*
2539         grada*t40*t32-8.300400076799999E-5*t200*t39*t29+1.358983016448E-6*
2540         t199*t38*t26-9.604340121600001E-9*t198*t58*t197+3.10873915392E-11*
2541         t196*t228*t356-3.793197465599999E-14*t306*t380*t491)*t36*t4*
2542         t53+(-0.00391339296*grada*t32*t69+1.2820324896E-4*grada*t32*
2543         t62*t67+5.838798816E-5*t200*t29*t67-1.4008174732800002E-6*
2544         grada*t32*t68*t65-1.70309780928E-6*t200*t29*t62*t65+6.11617609728E-9*
2545         grada*t32*t66*t140+1.7322715883520004E-8*t200*t29*t68*t140-
2546         8.887772044800001E-12*grada*t32*t63*t299-7.30121236992E-11*
2547         t200*t29*t66*t299+1.066532645376E-13*t200*t29*t63*t445)*t151;
2548     d3fdgagagb = (-
2549         0.00130446432*gradb*t23*t69*t61+4.2734416319999996E-5*gradb*
2550         t23*t62*t67*t61+5.838798816E-5*t22*gradb*t32*t67*t61-4.669391577600001E-7*
2551         gradb*t23*t68*t65*t61-1.70309780928E-6*t22*gradb*t32*t62*t65*
2552         t61+2.0387253657600002E-9*gradb*t23*t66*t140*t61+1.7322715883520004E-8*
2553         t22*gradb*t32*t68*t140*t61-2.962590681600001E-12*gradb*t23*
2554         t63*t299*t61-7.30121236992E-11*t22*gradb*t32*t66*t299*t61+
2555         1.066532645376E-13*t22*gradb*t32*t63*t445*t61)*t151;
2556     d3fdgagaab = 0.0;
2557     d3fdgagbgb = (-0.00130446432*grada*t23*t69*t61+4.2734416319999996E-5*
2558         grada*t23*t62*t67*t61-4.669391577600001E-7*grada*t23*t68*t65*
2559         t61+2.0387253657600002E-9*grada*t23*t66*t140*t61-2.962590681600001E-12*
2560         grada*t23*t63*t299*t61+5.838798816E-5*grada*t60*t23*t67*t161-
2561         1.70309780928E-6*grada*t60*t23*t62*t65*t161+1.7322715883520004E-8*
2562         grada*t60*t23*t68*t140*t161-7.30121236992E-11*grada*t60*t23*
2563         t66*t299*t161+1.066532645376E-13*grada*t60*t23*t63*t445*t161)*
2564         t151;
2565     d3fdgagbab = 0.0;
2566     d3fdgaabab = 0.0;
2567     d3fdgbgbgb = -0.03109*t149*(-1.744324128*gradb*t160*t161+
2568         5.062341676800001*t208*t157*t158-3.988298672640001*t207*t154*
2569         t155+1.31417883648*t206*t171*t205-.1948889241600001*t204*t313*
2570         t361+.01077545779200001*t351*t472*t492)*t150*rhob-0.75*(0.001490196864*
2571         gradb*t167*t161-8.300400076799999E-5*t208*t166*t158+1.358983016448E-6*
2572         t207*t165*t155-9.604340121600001E-9*t206*t185*t205+3.10873915392E-11*
2573         t204*t328*t361-3.793197465599999E-14*t351*t486*t492)*t180*
2574         t36*t4+(-0.00391339296*gradb*t69*t161+1.2820324896E-4*gradb*
2575         t62*t67*t161-1.4008174732800002E-6*gradb*t68*t65*t161+6.11617609728E-9*
2576         gradb*t66*t140*t161-8.887772044800001E-12*gradb*t63*t299*t161+
2577         5.838798816E-5*t208*t67*t158-1.70309780928E-6*t208*t62*t65*
2578         t158+1.7322715883520004E-8*t208*t68*t140*t158-7.30121236992E-11*
2579         t208*t66*t299*t158+1.066532645376E-13*t208*t63*t445*t158)*
2580         t151;
2581     d3fdgbgbab = 0.0;
2582     d3fdgbabab = 0.0;
2583     d3fdababab = 0.0;
2584 
2585 
2586     ds->df1000 += factor*dfdra;
2587     ds->df0100 += factor*dfdrb;
2588     ds->df0010 += factor*dfdga;
2589     ds->df0001 += factor*dfdgb;
2590     ds->df00001+= factor*dfdgab;
2591 
2592     ds->df2000 += factor*d2fdrara;
2593     ds->df1100 += factor*d2fdrarb;
2594     ds->df1010 += factor*d2fdraga;
2595     ds->df1001 += factor*d2fdragb;
2596     ds->df10001+= factor*d2fdraab;
2597     ds->df0200 += factor*d2fdrbrb;
2598     ds->df0110 += factor*d2fdrbga;
2599     ds->df0101 += factor*d2fdrbgb;
2600     ds->df01001+= factor*d2fdrbgab;
2601     ds->df0020 += factor*d2fdgaga;
2602     ds->df0011 += factor*d2fdgagb;
2603     ds->df00101+= factor*d2fdgagab;
2604     ds->df0002 += factor*d2fdgbgb;
2605     ds->df00011+= factor*d2fdgbgab;
2606     ds->df00002+= factor*d2fdgabgab;
2607 
2608     ds->df3000 += factor*d3fdrarara;
2609     ds->df2100  += factor*d3fdrararb;
2610     ds->df2010  += factor*d3fdraraga;
2611     ds->df2001  += factor*d3fdraragb;
2612     ds->df20001 += factor*d3fdraraab;
2613     ds->df1200  += factor*d3fdrarbrb;
2614     ds->df1110  += factor*d3fdrarbga;
2615     ds->df1101  += factor*d3fdrarbgb;
2616     ds->df11001 += factor*d3fdrarbab;
2617     ds->df1020  += factor*d3fdragaga;
2618     ds->df1011  += factor*d3fdragagb;
2619     ds->df10101 += factor*d3fdragaab;
2620     ds->df1002  += factor*d3fdragbgb;
2621     ds->df10011 += factor*d3fdragbab;
2622     ds->df10002 += factor*d3fdraabab;
2623     ds->df0300  += factor*d3fdrbrbrb;
2624     ds->df0210  += factor*d3fdrbrbga;
2625     ds->df0201  += factor*d3fdrbrbgb;
2626     ds->df02001 += factor*d3fdrbrbab;
2627     ds->df0120  += factor*d3fdrbgaga;
2628     ds->df0111  += factor*d3fdrbgagb;
2629     ds->df01101 += factor*d3fdrbgaab;
2630     ds->df0102  += factor*d3fdrbgbgb;
2631     ds->df01011 += factor*d3fdrbgbab;
2632     ds->df01002 += factor*d3fdrbabab;
2633     ds->df0030  += factor*d3fdgagaga;
2634     ds->df0021  += factor*d3fdgagagb;
2635     ds->df00201 += factor*d3fdgagaab;
2636     ds->df0012  += factor*d3fdgagbgb;
2637     ds->df00111 += factor*d3fdgagbab;
2638     ds->df00102 += factor*d3fdgaabab;
2639     ds->df0003  += factor*d3fdgbgbgb;
2640     ds->df00021 += factor*d3fdgbgbab;
2641     ds->df00012 += factor*d3fdgbabab;
2642     ds->df00003 += factor*d3fdababab;
2643 
2644 }
2645 
2646 static void
f14_fourth(FunFourthFuncDrv * ds,real factor,const FunDensProp * dp)2647 f14_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
2648 {
2649     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
2650     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
2651         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
2652         d2fdgbgb, d2fdgbgab, d2fdgabgab;
2653     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
2654          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
2655          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
2656          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
2657          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
2658          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
2659          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
2660     real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
2661          d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
2662          d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
2663          d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
2664          d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
2665          d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
2666          d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
2667          d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
2668          d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
2669          d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
2670          d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
2671          d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
2672          d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
2673          d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
2674          d4fdabababab;
2675     real rhoa = dp->rhoa, rhob = dp->rhob;
2676     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
2677 
2678     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
2679     real t11, t12, t13, t14, t15, t16, t17, t18;
2680     real t19, t20, t21, t22, t23, t24, t25, t26;
2681     real t27, t28, t29, t30, t31, t32, t33, t34;
2682     real t35, t36, t37, t38, t39, t40, t41, t42;
2683     real t43, t44, t45, t46, t47, t48, t49, t50;
2684     real t51, t52, t53, t54, t55, t56, t57, t58;
2685     real t59, t60, t61, t62, t63, t64, t65, t66;
2686     real t67, t68, t69, t70, t71, t72, t73, t74;
2687     real t75, t76, t77, t78, t79, t80, t81, t82;
2688     real t83, t84, t85, t86, t87, t88, t89, t90;
2689     real t91, t92, t93, t94, t95, t96, t97, t98;
2690     real t99, t100, t101, t102, t103, t104, t105;
2691     real t106, t107, t108, t109, t110, t111, t112;
2692     real t113, t114, t115, t116, t117, t118, t119;
2693     real t120, t121, t122, t123, t124, t125, t126;
2694     real t127, t128, t129, t130, t131, t132, t133;
2695     real t134, t135, t136, t137, t138, t139, t140;
2696     real t141, t142, t143, t144, t145, t146, t147;
2697     real t148, t149, t150, t151, t152, t153, t154;
2698     real t155, t156, t157, t158, t159, t160, t161;
2699     real t162, t163, t164, t165, t166, t167, t168;
2700     real t169, t170, t171, t172, t173, t174, t175;
2701     real t176, t177, t178, t179, t180, t181, t182;
2702     real t183, t184, t185, t186, t187, t188, t189;
2703     real t190, t191, t192, t193, t194, t195, t196;
2704     real t197, t198, t199, t200, t201, t202, t203;
2705     real t204, t205, t206, t207, t208, t209, t210;
2706     real t211, t212, t213, t214, t215, t216, t217;
2707     real t218, t219, t220, t221, t222, t223, t224;
2708     real t225, t226, t227, t228, t229, t230, t231;
2709     real t232, t233, t234, t235, t236, t237, t238;
2710     real t239, t240, t241, t242, t243, t244, t245;
2711     real t246, t247, t248, t249, t250, t251, t252;
2712     real t253, t254, t255, t256, t257, t258, t259;
2713     real t260, t261, t262, t263, t264, t265, t266;
2714     real t267, t268, t269, t270, t271, t272, t273;
2715     real t274, t275, t276, t277, t278, t279, t280;
2716     real t281, t282, t283, t284, t285, t286, t287;
2717     real t288, t289, t290, t291, t292, t293, t294;
2718     real t295, t296, t297, t298, t299, t300, t301;
2719     real t302, t303, t304, t305, t306, t307, t308;
2720     real t309, t310, t311, t312, t313, t314, t315;
2721     real t316, t317, t318, t319, t320, t321, t322;
2722     real t323, t324, t325, t326, t327, t328, t329;
2723     real t330, t331, t332, t333, t334, t335, t336;
2724     real t337, t338, t339, t340, t341, t342, t343;
2725     real t344, t345, t346, t347, t348, t349, t350;
2726     real t351, t352, t353, t354, t355, t356, t357;
2727     real t358, t359, t360, t361, t362, t363, t364;
2728     real t365, t366, t367, t368, t369, t370, t371;
2729     real t372, t373, t374, t375, t376, t377, t378;
2730     real t379, t380, t381, t382, t383, t384, t385;
2731     real t386, t387, t388, t389, t390, t391, t392;
2732     real t393, t394, t395, t396, t397, t398, t399;
2733     real t400, t401, t402, t403, t404, t405, t406;
2734     real t407, t408, t409, t410, t411, t412, t413;
2735     real t414, t415, t416, t417, t418, t419, t420;
2736     real t421, t422, t423, t424, t425, t426, t427;
2737     real t428, t429, t430, t431, t432, t433, t434;
2738     real t435, t436, t437, t438, t439, t440, t441;
2739     real t442, t443, t444, t445, t446, t447, t448;
2740     real t449, t450, t451, t452, t453, t454, t455;
2741     real t456, t457, t458, t459, t460, t461, t462;
2742     real t463, t464, t465, t466, t467, t468, t469;
2743     real t470, t471, t472, t473, t474, t475, t476;
2744     real t477, t478, t479, t480, t481, t482, t483;
2745     real t484, t485, t486, t487, t488, t489, t490;
2746     real t491, t492, t493, t494, t495, t496, t497;
2747     real t498, t499, t500, t501, t502, t503, t504;
2748     real t505, t506, t507, t508, t509, t510, t511;
2749     real t512, t513, t514, t515, t516, t517, t518;
2750     real t519, t520, t521, t522, t523, t524, t525;
2751     real t526, t527, t528, t529, t530, t531, t532;
2752     real t533, t534, t535, t536, t537, t538, t539;
2753     real t540, t541, t542, t543, t544, t545, t546;
2754     real t547, t548, t549, t550, t551, t552, t553;
2755     real t554, t555, t556, t557, t558, t559, t560;
2756     real t561, t562, t563, t564, t565, t566, t567;
2757     real t568, t569, t570, t571, t572, t573, t574;
2758     real t575, t576, t577, t578, t579, t580, t581;
2759     real t582, t583, t584, t585, t586, t587, t588;
2760     real t589, t590, t591, t592, t593, t594, t595;
2761     real t596, t597, t598, t599, t600, t601, t602;
2762     real t603, t604, t605, t606, t607, t608, t609;
2763     real t610, t611, t612, t613, t614, t615, t616;
2764     real t617, t618, t619, t620, t621, t622, t623;
2765     real t624, t625, t626, t627, t628, t629, t630;
2766     real t631, t632, t633, t634, t635, t636, t637;
2767     real t638, t639, t640, t641, t642, t643, t644;
2768     real t645, t646, t647, t648, t649, t650, t651;
2769     real t652, t653, t654, t655, t656, t657, t658;
2770     real t659, t660, t661, t662, t663, t664, t665;
2771     real t666, t667, t668, t669, t670, t671, t672;
2772     real t673, t674, t675, t676, t677, t678, t679;
2773     real t680, t681, t682, t683, t684, t685, t686;
2774     real t687, t688, t689, t690, t691, t692, t693;
2775     real t694, t695, t696, t697, t698, t699, t700;
2776     real t701, t702, t703, t704, t705, t706, t707;
2777     real t708, t709, t710, t711, t712, t713, t714;
2778     real t715, t716, t717, t718, t719, t720, t721;
2779     real t722, t723, t724, t725, t726, t727, t728;
2780     real t729, t730, t731, t732, t733, t734, t735;
2781     real t736, t737, t738, t739, t740, t741, t742;
2782     real t743, t744, t745, t746, t747, t748, t749;
2783     real t750, t751, t752, t753, t754, t755, t756;
2784     real t757, t758, t759, t760, t761, t762, t763;
2785     real t764, t765, t766, t767, t768, t769, t770;
2786     real t771, t772, t773, t774, t775, t776, t777;
2787     real t778, t779, t780, t781, t782, t783, t784;
2788     real t785, t786, t787, t788, t789, t790, t791;
2789     real t792, t793, t794, t795, t796, t797, t798;
2790 
2791     t1 = pow(3.0,.3333333333333333);
2792     t2 = 1/pow(4.0,.3333333333333333);
2793     t3 = pow(M_PI,.3333333333333333);
2794     t4 = 1/t3;
2795     t5 = 1.732050807568877;
2796     t6 = pow(rhoa,.3333333333333333);
2797     t7 = sqrt(t3*t6);
2798     t8 = 1/pow(t7,3.0);
2799     t9 = pow(2.0,.3333333333333333);
2800     t10 = 1/t9;
2801     t11 = pow(3.0,.1666666666666667);
2802     t12 = pow(3.0,.6666666666666666);
2803     t13 = 1/pow(4.0,.6666666666666666);
2804     t14 = pow(M_PI,.6666666666666666);
2805     t15 = 1/t14;
2806     t16 = 1/pow(rhoa,.6666666666666666);
2807     t17 = 1/t6;
2808     t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
2809         t17+0.62517*t12*t13*t15*t16;
2810     t19 = 32.1646831778707/t18+1.0;
2811     t20 = log(t19);
2812     t21 = pow(grada,8.0);
2813     t22 = pow(grada,2.0);
2814     t23 = 1/pow(rhoa,2.666666666666667);
2815     t24 = 0.2*t22*t23+1.0;
2816     t25 = 1/pow(t24,4.0);
2817     t26 = 1/pow(rhoa,10.66666666666667);
2818     t27 = pow(grada,6.0);
2819     t28 = 1/pow(t24,3.0);
2820     t29 = 1/pow(rhoa,8.0);
2821     t30 = pow(grada,4.0);
2822     t31 = 1/pow(t24,2.0);
2823     t32 = 1/pow(rhoa,5.333333333333333);
2824     t33 = 1/t24;
2825     t34 = 0.00637686*t22*t33*t23-.07140480000000002*t30*t31*
2826         t32+0.0191836*t27*t28*t29-.001403054400000001*t21*t25*t26+
2827         2.82414;
2828     t35 = 0.20548*t1*t2*t4*t17+1.0;
2829     t36 = pow(6.0,.3333333333333333);
2830     t37 = 0.004*t22*t23+1.0;
2831     t38 = 1/pow(t37,4.0);
2832     t39 = 1/pow(t37,3.0);
2833     t40 = 1/pow(t37,2.0);
2834     t41 = 1/t37;
2835     t42 = -0.001443124*t22*t41*t23+5.631904E-5*t30*t40*t32-
2836         3.1740416000000005E-7*t27*t39*t29+6.173823999999999E-10*t21*
2837         t38*t26+1.03161;
2838     t43 = pow(grada,10.0);
2839     t44 = 1/pow(t24,5.0);
2840     t45 = 1/pow(rhoa,14.33333333333333);
2841     t46 = 1/pow(rhoa,11.66666666666667);
2842     t47 = 1/pow(rhoa,9.0);
2843     t48 = 1/pow(rhoa,6.333333333333333);
2844     t49 = 1/pow(rhoa,3.666666666666667);
2845     t50 = -0.01700496*t22*t33*t49+.3842265920000001*t30*t31*
2846         t48-0.22963392*t27*t28*t47+.04565967360000001*t21*t25*t46-
2847         .002993182720000002*t43*t44*t45;
2848     t51 = 1/t19;
2849     t52 = 1/pow(rhoa,1.666666666666667);
2850     t53 = pow(rhoa,1.333333333333333);
2851     t54 = 1/t53;
2852     t55 = 1/pow(t7,5.0);
2853     t56 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t55*t16-
2854         2.0659*t1*t2*t4*t54-0.41678*t12*t13*t15*t52;
2855     t57 = 1/pow(t18,2.0);
2856     t58 = 1/pow(t37,5.0);
2857     t59 = .003848330666666667*t22*t41*t49-3.1576153599999995E-4*
2858         t30*t40*t48+3.740706133333333E-6*t27*t39*t47-1.6742345386666668E-8*
2859         t21*t38*t46+2.634164906666666E-11*t43*t58*t45;
2860     t60 = pow(gradb,2.0);
2861     t61 = 1/pow(rhob,2.666666666666667);
2862     t62 = 0.5*t60*t61+0.5*t22*t23;
2863     t63 = pow(t62,4.0);
2864     t64 = 0.006*t62+1.0;
2865     t65 = 1/pow(t64,4.0);
2866     t66 = pow(t62,3.0);
2867     t67 = 1/pow(t64,3.0);
2868     t68 = pow(t62,2.0);
2869     t69 = 1/pow(t64,2.0);
2870     t70 = 1/t64;
2871     t71 = 0.02738796*t62*t70-4.8790439999999996E-4*t68*t69+
2872         2.8905119999999995E-6*t66*t67-4.11470928E-9*t63*t65+0.0821827;
2873     t72 = rhob+
2874         rhoa;
2875     t73 = pow(t72,.3333333333333333);
2876     t74 = 1/t73;
2877     t75 = 0.2137*t1*t2*t4*t74+1.0;
2878     t76 = 1/pow(t72,.6666666666666666);
2879     t77 = sqrt(t3*t73);
2880     t78 = 1/pow(t77,3.0);
2881     t79 = 1/t77;
2882     t80 = 7.5957*t10*t11*t79+0.8191*t5*t78+3.5876*t1*t2*t4*
2883         t74+0.49294*t12*t13*t15*t76;
2884     t81 = 16.0818243221511/t80+1.0;
2885     t82 = log(t81);
2886     t83 = -0.062182*t75*t82;
2887     t84 = 1/(2.0*t9-2.0);
2888     t85 = rhoa-1.0*rhob;
2889     t86 = pow(t85,4.0);
2890     t87 = 1/pow(t72,4.0);
2891     t88 = 1.0-1.0*t86*t87;
2892     t89 = 0.11125*t1*t2*t4*t74+1.0;
2893     t90 = 1/t72;
2894     t91 = 1.0-1.0*t85*t90;
2895     t92 = t85*t90+1.0;
2896     t93 = pow(t92,1.333333333333333)+pow(t91,1.333333333333333)-
2897         2.0;
2898     t94 = 10.357*t10*t11*t79+0.44013*t5*t78+3.6231*t1*t2*
2899         t4*t74+0.49671*t12*t13*t15*t76;
2900     t95 = 29.60857464321668/t94+1.0;
2901     t96 = log(t95);
2902     t97 = .01975178970256521*t84*t88*t89*t93*t96;
2903     t98 = 0.20548*t1*t2*t4*t74+1.0;
2904     t99 = 14.1189*t10*t11*t79+1.6831*t5*t78+6.1977*t1*t2*
2905         t4*t74+0.62517*t12*t13*t15*t76;
2906     t100 = 32.1646831778707/t99+1.0;
2907     t101 = log(t100);
2908     t102 = 0.062182*t75*t82-0.03109*t98*t101;
2909     t103 = t84*t86*t87*t93*t102;
2910     t104 = 1/pow(t72,1.666666666666667);
2911     t105 = 1/pow(t72,1.333333333333333);
2912     t106 = 1/pow(t77,5.0);
2913     t107 = -1.26595*t10*t11*t3*t76*t78-0.40955*t5*t3*t76*
2914         t106-1.195866666666667*t1*t2*t4*t105-.3286266666666666*t12*
2915         t13*t15*t104;
2916     t108 = 1/pow(t80,2.0);
2917     t109 = 1/t81;
2918     t110 = .9999999999999999*t75*t107*t108*t109;
2919     t111 = -1.726166666666666*t10*t11*t3*t76*t78-0.220065*
2920         t5*t3*t76*t106-1.2077*t1*t2*t4*t105-0.33114*t12*t13*t15*t104;
2921     t112 = 1/
2922         pow(t94,2.0);
2923     t113 = 1/t95;
2924     t114 = -.5848223397455204*t84*t88*t89*t93*t111*t112*t113;
2925     t115 = .004429431133333333*
2926         t1*t2*t4*t105*t82;
2927     t116 = 1/pow(t72,2.0);
2928     t117 = t85*t116;
2929     t118 = -1.0*t90;
2930     t119 = t118+t117;
2931     t120 = pow(t91,.3333333333333333);
2932     t121 = -1.0*t116*t85;
2933     t122 = t90+t121;
2934     t123 = pow(t92,.3333333333333333);
2935     t124 = 1.333333333333333*t122*t123+1.333333333333333*
2936         t119*t120;
2937     t125 = .01975178970256521*t84*t88*t89*t124*t96;
2938     t126 = -7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t93*
2939         t96;
2940     t127 = 1/pow(t72,5.0);
2941     t128 = 4.0*t127*t86;
2942     t129 = pow(t85,3.0);
2943     t130 = t128-4.0*t129*t87;
2944     t131 = .01975178970256521*t84*t130*t89*t93*t96;
2945     t132 = -2.35315*t10*t11*t3*t76*t78-0.84155*t5*t3*t76*
2946         t106-2.0659*t1*t2*t4*t105-0.41678*t12*t13*t15*t104;
2947     t133 = 1/pow(t99,2.0);
2948     t134 = 1/t100;
2949     t135 = .002129457733333333*t1*t2*t4*t105*t101-.004429431133333333*
2950         t1*t2*t4*t105*t82+1.0*t98*t132*t133*t134-.9999999999999999*
2951         t75*t107*t108*t109;
2952     t136 = t84*t86*t87*t93*t135;
2953     t137 = t84*t86*t87*t124*t102;
2954     t138 = -4.0*t102*t127*t84*t86*t93;
2955     t139 = -1.0*t51*t56*t35*t57*rhoa+t97+t72*(4.0*t102*t129*
2956         t84*t87*t93+t138+t137+t136+t131+t126+t125+t115+t114+t110)+
2957         t83+0.03109*t20*t35-.002129457733333333*t1*t2*t4*t20*t17+t103;
2958     t140 = 1/
2959         pow(t64,5.0);
2960     t141 = -0.03651728*t22*t49*t70+0.00152018208*t22*t49*
2961         t62*t69-1.9368518399999998E-5*t22*t49*t68*t67+9.131740416E-8*
2962         t22*t49*t66*t65-1.3167069696E-10*t22*t49*t63*t140;
2963     t142 = pow(rhob,.3333333333333333);
2964     t143 = sqrt(t3*t142);
2965     t144 = 1/pow(t143,3.0);
2966     t145 = 1/pow(rhob,.6666666666666666);
2967     t146 = 1/t142;
2968     t147 = 6.1977*t1*t2*t4*t146+0.62517*t12*t13*t15*t145+
2969         1.6831*t5*t144+14.1189*t10*t11/t143;
2970     t148 = 32.1646831778707/t147+1.0;
2971     t149 = log(t148);
2972     t150 = 0.20548*t1*t2*t4*t146+1.0;
2973     t151 = t72*(t103+t97+t83)+0.03109*t149*t150*rhob+0.03109*
2974         t20*t35*rhoa;
2975     t152 = pow(gradb,8.0);
2976     t153 = 0.2*t60*t61+1.0;
2977     t154 = 1/pow(t153,4.0);
2978     t155 = 1/pow(rhob,10.66666666666667);
2979     t156 = pow(gradb,6.0);
2980     t157 = 1/pow(t153,3.0);
2981     t158 = 1/pow(rhob,8.0);
2982     t159 = pow(gradb,4.0);
2983     t160 = 1/pow(t153,2.0);
2984     t161 = 1/pow(rhob,5.333333333333333);
2985     t162 = 1/t153;
2986     t163 = 0.00637686*t60*t162*t61-.07140480000000002*t159*
2987         t160*t161+0.0191836*t156*t157*t158-.001403054400000001*t152*
2988         t154*t155+2.82414;
2989     t164 = 0.004*t60*t61+1.0;
2990     t165 = 1/pow(t164,4.0);
2991     t166 = 1/pow(t164,3.0);
2992     t167 = 1/pow(t164,2.0);
2993     t168 = 1/t164;
2994     t169 = -0.001443124*t60*t168*t61+5.631904E-5*t159*t167*
2995         t161-3.1740416000000005E-7*t156*t166*t158+6.173823999999999E-10*
2996         t152*t165*t155+1.03161;
2997     t170 = pow(gradb,10.0);
2998     t171 = 1/pow(t153,5.0);
2999     t172 = 1/pow(rhob,14.33333333333333);
3000     t173 = 1/pow(rhob,11.66666666666667);
3001     t174 = 1/pow(rhob,9.0);
3002     t175 = 1/pow(rhob,6.333333333333333);
3003     t176 = 1/pow(rhob,3.666666666666667);
3004     t177 = -0.01700496*t60*t162*t176+.3842265920000001*t159*
3005         t160*t175-0.22963392*t156*t157*t174+.04565967360000001*t152*
3006         t154*t173-.002993182720000002*t170*t171*t172;
3007     t178 = 1/t148;
3008     t179 = 1/pow(rhob,1.666666666666667);
3009     t180 = pow(rhob,1.333333333333333);
3010     t181 = 1/t180;
3011     t182 = 1/pow(t143,5.0);
3012     t183 = -2.35315*t10*t11*t3*t144*t145-0.84155*t5*t3*t182*
3013         t145-2.0659*t1*t2*t4*t181-0.41678*t12*t13*t15*t179;
3014     t184 = 1/pow(t147,2.0);
3015     t185 = 1/pow(t164,5.0);
3016     t186 = .003848330666666667*t60*t168*t176-3.1576153599999995E-4*
3017         t159*t167*t175+3.740706133333333E-6*t156*t166*t174-1.6742345386666668E-8*
3018         t152*t165*t173+2.634164906666666E-11*t170*t185*t172;
3019     t187 = t90+t117;
3020     t188 = t118+t121;
3021     t189 = 1.333333333333333*t123*t188+1.333333333333333*
3022         t120*t187;
3023     t190 = .01975178970256521*t84*t88*t89*t189*t96;
3024     t191 = 4.0*t129*t87+t128;
3025     t192 = .01975178970256521*t84*t191*t89*t93*t96;
3026     t193 = t84*t86*t87*t189*t102;
3027     t194 = -1.0*t178*t183*t150*t184*rhob+t97+t72*(-4.0*t102*
3028         t129*t84*t87*t93+t193+t192+t190+t138+t136+t126+t115+t114+t110)+
3029         t83+0.03109*t149*t150-.002129457733333333*t1*t2*t4*t149*t146+
3030         t103;
3031     t195 = -0.03651728*t60*t70*t176+0.00152018208*t60*t62*
3032         t69*t176-1.9368518399999998E-5*t60*t68*t67*t176+9.131740416E-8*
3033         t60*t66*t65*t176-1.3167069696E-10*t60*t63*t140*t176;
3034     t196 = pow(grada,9.0);
3035     t197 = 1/pow(rhoa,13.33333333333333);
3036     t198 = pow(grada,7.0);
3037     t199 = pow(grada,5.0);
3038     t200 = pow(grada,3.0);
3039     t201 = 0.01275372*grada*t33*t23-.2881699440000001*t200*
3040         t31*t32+0.17222544*t199*t28*t29-.03424475520000001*t198*t25*
3041         t26+.002244887040000001*t196*t44*t197;
3042     t202 = -0.002886248*grada*t41*t23+2.3682115199999998E-4*
3043         t200*t40*t32-2.8055296E-6*t199*t39*t29+1.255675904E-8*t198*
3044         t38*t26-1.97562368E-11*t196*t58*t197;
3045     t203 = 0.02738796*grada*t23*t70-0.00114013656*grada*t23*
3046         t62*t69+1.45263888E-5*grada*t23*t68*t67-6.848805312000001E-8*
3047         grada*t23*t66*t65+9.875302271999999E-11*grada*t23*t63*t140;
3048     t204 = pow(gradb,
3049         9.0);
3050     t205 = 1/pow(rhob,13.33333333333333);
3051     t206 = pow(gradb,7.0);
3052     t207 = pow(gradb,5.0);
3053     t208 = pow(gradb,3.0);
3054     t209 = 0.01275372*gradb*t162*t61-.2881699440000001*t208*
3055         t160*t161+0.17222544*t207*t157*t158-.03424475520000001*t206*
3056         t154*t155+.002244887040000001*t204*t171*t205;
3057     t210 = -0.002886248*gradb*t168*t61+2.3682115199999998E-4*
3058         t208*t167*t161-2.8055296E-6*t207*t166*t158+1.255675904E-8*
3059         t206*t165*t155-1.97562368E-11*t204*t185*t205;
3060     t211 = 0.02738796*gradb*t70*t61-0.00114013656*gradb*t62*
3061         t69*t61+1.45263888E-5*gradb*t68*t67*t61-6.848805312000001E-8*
3062         gradb*t66*t65*t61+9.875302271999999E-11*gradb*t63*t140*t61;
3063     t212 = pow(grada,
3064         12.0);
3065     t213 = 1/pow(t24,6.0);
3066     t214 = 1/pow(rhoa,18.0);
3067     t215 = 1/pow(rhoa,15.33333333333333);
3068     t216 = 1/pow(rhoa,12.66666666666667);
3069     t217 = 1/pow(rhoa,10.0);
3070     t218 = 1/pow(rhoa,7.333333333333333);
3071     t219 = 1/pow(rhoa,4.666666666666667);
3072     t220 = .06235151999999999*t22*t33*t219-2.442504394666667*
3073         t30*t31*t218+2.476546978133334*t27*t28*t217-.9001104640000002*
3074         t21*t25*t216+.1403095893333334*t43*t44*t215-0.00798182058666667*
3075         t212*t213*t214;
3076     t221 = 1/pow(t19,2.0);
3077     t222 = pow(t56,2.0);
3078     t223 = 1/pow(t18,4.0);
3079     t224 = 1/pow(t18,3.0);
3080     t225 = 1/pow(rhoa,2.333333333333333);
3081     t226 = 1/pow(t7,7.0);
3082     t227 = 1.176575*t10*t11*t14*t55*t54+.7012916666666668*
3083         t5*t14*t226*t54+1.568766666666666*t10*t11*t3*t8*t52+.5610333333333333*
3084         t5*t3*t55*t52+2.754533333333333*t1*t2*t4*t225+.6946333333333333*
3085         t12*t13*t15*t23;
3086     t228 = 1/pow(t37,6.0);
3087     t229 = -.01411054577777778*t22*t41*t219+.002040871921777777*
3088         t30*t40*t218-4.040260130133333E-5*t27*t39*t217+3.1502995911111115E-7*
3089         t21*t38*t216-1.0919037064533334E-9*t43*t58*t215+1.404887950222222E-12*
3090         t212*t228*t214;
3091     t230 = 2.0*t75*t107*t108*t109;
3092     t231 = -1.169644679491041*t84*t88*t89*t93*t111*t112*t113;
3093     t232 = .008858862266666667*
3094         t1*t2*t4*t105*t82;
3095     t233 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t93*
3096         t96;
3097     t234 = 2.0*t135*t84*t86*t87*t93;
3098     t235 = -8.0*t102*t127*t84*t86*t93;
3099     t236 = pow(t107,2.0);
3100     t237 = 1/pow(t80,4.0);
3101     t238 = 1/pow(t81,2.0);
3102     t239 = 16.0818243221511*t75*t236*t237*t238;
3103     t240 = 1/pow(t80,3.0);
3104     t241 = -2.0*t75*t236*t240*t109;
3105     t242 = 1/pow(t72,2.666666666666667);
3106     t243 = 1/pow(t72,2.333333333333333);
3107     t244 = 1/pow(t77,7.0);
3108     t245 = .8439666666666665*t10*t11*t3*t104*t78+0.632975*
3109         t10*t11*t14*t105*t106+.2730333333333334*t5*t3*t104*t106+.3412916666666667*
3110         t5*t14*t105*t244+1.594488888888889*t1*t2*t4*t243+0.547711111111111*
3111         t12*t13*t15*t242;
3112     t246 = .9999999999999999*t75*t245*t108*t109;
3113     t247 = -.1424666666666666*t1*t2*t4*t105*t107*t108*t109;
3114     t248 = pow(t111,
3115         2.0);
3116     t249 = 1/pow(t94,4.0);
3117     t250 = 1/pow(t95,2.0);
3118     t251 = -17.31575589937587*t84*t88*t89*t93*t248*t249*t250;
3119     t252 = 1/
3120         pow(t94,3.0);
3121     t253 = 1.169644679491041*t84*t88*t89*t93*t248*t252*t113;
3122     t254 = 1.150777777777777*
3123         t10*t11*t3*t104*t78+.8630833333333332*t10*t11*t14*t105*t106+
3124         0.14671*t5*t3*t104*t106+0.1833875*t5*t14*t105*t244+1.610266666666667*
3125         t1*t2*t4*t243+.5519000000000001*t12*t13*t15*t242;
3126     t255 = -.5848223397455204*t84*t88*t89*t93*t254*t112*t113;
3127     t256 = -
3128         1.169644679491041*t84*t88*t89*t124*t111*t112*t113;
3129     t257 = .04337432353112609*t84*t1*t2*t4*t105*t88*t93*t111*
3130         t112*t113;
3131     t258 = -1.169644679491041*t84*t130*t89*t93*t111*t112*
3132         t113;
3133     t259 = -.005905908177777777*t1*t2*t4*t243*t82;
3134     t260 = pow(t119,2.0);
3135     t261 = 1/pow(t91,.6666666666666666);
3136     t262 = 1/pow(t72,3.0);
3137     t263 = -2.0*t262*t85;
3138     t264 = 2.0*t116;
3139     t265 = t264+t263;
3140     t266 = pow(t122,2.0);
3141     t267 = 1/pow(t92,.6666666666666666);
3142     t268 = 2.0*t262*t85;
3143     t269 = -2.0*t116;
3144     t270 = t269+t268;
3145     t271 = 1.333333333333333*t123*t270+.4444444444444444*
3146         t266*t267+1.333333333333333*t120*t265+.4444444444444444*t260*
3147         t261;
3148     t272 = .01975178970256521*t84*t88*t89*t271*t96;
3149     t273 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t124*
3150         t96;
3151     t274 = .03950357940513041*t84*t130*t89*t124*t96;
3152     t275 = -.001464924402940253*t84*t1*t2*t4*t105*t130*t93*
3153         t96;
3154     t276 = 9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t93*
3155         t96;
3156     t277 = 1/pow(t72,6.0);
3157     t278 = -20.0*t277*t86;
3158     t279 = pow(t85,2.0);
3159     t280 = -12.0*t279*t87;
3160     t281 = t280+t278+32.0*t127*t129;
3161     t282 = .01975178970256521*t84*t281*t89*t93*t96;
3162     t283 = pow(t132,2.0);
3163     t284 = 1/pow(t99,4.0);
3164     t285 = 1/pow(t100,2.0);
3165     t286 = 1/pow(t99,3.0);
3166     t287 = 1.568766666666666*t10*t11*t3*t104*t78+1.176575*
3167         t10*t11*t14*t105*t106+.5610333333333333*t5*t3*t104*t106+.7012916666666668*
3168         t5*t14*t105*t244+2.754533333333333*t1*t2*t4*t243+.6946333333333333*
3169         t12*t13*t15*t242;
3170     t288 = -.002839276977777777*t1*t2*t4*t243*t101+.005905908177777777*
3171         t1*t2*t4*t243*t82-.1369866666666666*t1*t2*t4*t105*t132*t133*
3172         t134+1.0*t98*t287*t133*t134-2.0*t98*t283*t286*t134+32.1646831778707*
3173         t98*t283*t284*t285+.1424666666666666*t1*t2*t4*t105*t107*t108*
3174         t109-.9999999999999999*t75*t245*t108*t109+2.0*t75*t236*t240*
3175         t109-16.0818243221511*t75*t236*t237*t238;
3176     t289 = t84*t86*t87*t93*t288;
3177     t290 = 2.0*t124*t135*t84*t86*t87;
3178     t291 = -8.0*t127*t135*t84*t86*t93;
3179     t292 = 8.0*t129*t135*t84*t87*t93;
3180     t293 = t84*t86*t87*t271*t102;
3181     t294 = -8.0*t102*t124*t127*t84*t86;
3182     t295 = 20.0*t102*t277*t84*t86*t93;
3183     t296 = -32.0*t102*t127*t129*t84*t93;
3184     t297 = 12.0*t102*t279*t84*t87*t93;
3185     t298 = -1.0*t51*t227*t35*t57*rhoa+2.0*t51*t222*t35*t224*
3186         rhoa-32.1646831778707*t221*t222*t35*t223*rhoa+.03950357940513041*
3187         t84*t130*t89*t93*t96+.03950357940513041*t84*t88*t89*t124*t96+
3188         8.0*t102*t129*t84*t87*t93+t72*(8.0*t102*t124*t129*t84*t87+
3189         t297+t296+t295+t294+t293+t292+t291+t290+t289+t282+t276+t275+
3190         t274+t273+t272+t259+t258+t257+t256+t255+t253+t251+t247+t246+
3191         t241+t239)+2.0*t102*t124*t84*t86*t87-2.0*t51*t56*t35*t57-.001419638488888889*
3192         t1*t2*t4*t20*t54+t235+t234+t233+t232+t231+t230+.1369866666666666*
3193         t1*t2*t4*t51*t56*t57*t17;
3194     t299 = 1/pow(t64,6.0);
3195     t300 = .1338966933333333*t22*t219*t70-.005574000959999999*
3196         t22*t219*t62*t69-.002319047679999999*t30*t218*t69+7.101790079999999E-5*
3197         t22*t219*t68*t67+7.597229567999998E-5*t30*t218*t62*t67-3.3483048192000003E-7*
3198         t22*t219*t66*t65-8.301140582400001E-7*t30*t218*t68*t65+4.8279255552E-10*
3199         t22*t219*t63*t140+3.62440065024E-9*t30*t218*t66*t140-5.2668278784E-12*
3200         t30*t218*t63*t299;
3201     t301 = 2.666666666666667*t123*t262*t85-2.666666666666667*
3202         t120*t262*t85+.4444444444444444*t122*t188*t267+.4444444444444444*
3203         t119*t187*t261;
3204     t302 = 12.0*t279*t87+t278;
3205     t303 = -12.0*t102*t279*t84*t87*t93;
3206     t304 = t72*(.01975178970256521*t84*t302*t89*t93*t96-7.324622014701263E-4*
3207         t84*t1*t2*t4*t105*t191*t93*t96-7.324622014701263E-4*t84*t1*
3208         t2*t4*t105*t130*t93*t96+.01975178970256521*t84*t88*t89*t301*
3209         t96+.01975178970256521*t84*t130*t89*t189*t96-7.324622014701263E-4*
3210         t84*t1*t2*t4*t105*t88*t189*t96+.01975178970256521*t84*t191*
3211         t89*t124*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t124*
3212         t96+4.0*t102*t129*t189*t84*t87-4.0*t102*t124*t129*t84*t87-
3213         4.0*t102*t127*t189*t84*t86-4.0*t102*t124*t127*t84*t86+t303+
3214         t295+t291+t289+t276+t259+t257+t255+t253+t251+t247+t246+t241+
3215         t239+t84*t86*t87*t189*t135+t84*t86*t87*t124*t135-.5848223397455204*
3216         t84*t191*t89*t93*t111*t112*t113-.5848223397455204*t84*t130*
3217         t89*t93*t111*t112*t113-.5848223397455204*t84*t88*t89*t189*
3218         t111*t112*t113-.5848223397455204*t84*t88*t89*t124*t111*t112*
3219         t113+t84*t86*t87*t301*t102)+t235+t234+t233+t232+t231+t230+
3220         t193+t192+t190+t137+t131+t125;
3221     t305 = -.002319047679999999*t22*t60*t49*t69*t176+7.597229567999998E-5*
3222         t22*t60*t49*t62*t67*t176-8.301140582400001E-7*t22*t60*t49*
3223         t68*t65*t176+3.62440065024E-9*t22*t60*t49*t66*t140*t176-5.2668278784E-12*
3224         t22*t60*t49*t63*t299*t176;
3225     t306 = pow(grada,11.0);
3226     t307 = 1/pow(rhoa,17.0);
3227     t308 = -0.03400992*grada*t33*t49+1.543708352*t200*t31*
3228         t48-1.6851847936*t199*t28*t47+.6408380928000001*t198*t25*t46-
3229         0.10298730496*t196*t44*t45+.005986365440000003*t306*t213*t307;
3230     t309 = .007696661333333334*
3231         grada*t41*t49-.001293832789333333*t200*t40*t48+2.7496421375999996E-5*
3232         t199*t39*t47-2.2371571029333337E-7*t198*t38*t46+7.991715430399999E-10*
3233         t196*t58*t45-1.053665962666667E-12*t306*t228*t307;
3234     t310 = -0.07303456*grada*t49*t70+0.00304036416*grada*
3235         t49*t62*t69+0.00173928576*t200*t48*t69-3.8737036799999996E-5*
3236         grada*t49*t68*t67-5.697922176E-5*t200*t48*t62*t67+1.8263480832E-7*
3237         grada*t49*t66*t65+6.225855436800002E-7*t200*t48*t68*t65-2.6334139392E-10*
3238         grada*t49*t63*t140-2.7183004876800004E-9*t200*t48*t66*t140+
3239         3.9501209088E-12*t200*t48*t63*t299;
3240     t311 = 0.00173928576*t22*gradb*t49*t69*t61-5.697922176E-5*
3241         t22*gradb*t49*t62*t67*t61+6.225855436800002E-7*t22*gradb*t49*
3242         t68*t65*t61-2.7183004876800004E-9*t22*gradb*t49*t66*t140*t61+
3243         3.9501209088E-12*t22*gradb*t49*t63*t299*t61;
3244     t312 = pow(gradb,12.0);
3245     t313 = 1/pow(t153,6.0);
3246     t314 = 1/pow(rhob,18.0);
3247     t315 = 1/pow(rhob,15.33333333333333);
3248     t316 = 1/pow(rhob,12.66666666666667);
3249     t317 = 1/pow(rhob,10.0);
3250     t318 = 1/pow(rhob,7.333333333333333);
3251     t319 = 1/pow(rhob,4.666666666666667);
3252     t320 = .06235151999999999*t60*t162*t319-2.442504394666667*
3253         t159*t160*t318+2.476546978133334*t156*t157*t317-.9001104640000002*
3254         t152*t154*t316+.1403095893333334*t170*t171*t315-0.00798182058666667*
3255         t312*t313*t314;
3256     t321 = 1/pow(t148,2.0);
3257     t322 = pow(t183,2.0);
3258     t323 = 1/pow(t147,4.0);
3259     t324 = 1/pow(t147,3.0);
3260     t325 = 1/pow(rhob,2.333333333333333);
3261     t326 = 1/pow(t143,7.0);
3262     t327 = 1.176575*t10*t11*t14*t182*t181+.7012916666666668*
3263         t5*t14*t326*t181+1.568766666666666*t10*t11*t3*t144*t179+.5610333333333333*
3264         t5*t3*t182*t179+2.754533333333333*t1*t2*t4*t325+.6946333333333333*
3265         t12*t13*t15*t61;
3266     t328 = 1/pow(t164,6.0);
3267     t329 = -.01411054577777778*t60*t168*t319+.002040871921777777*
3268         t159*t167*t318-4.040260130133333E-5*t156*t166*t317+3.1502995911111115E-7*
3269         t152*t165*t316-1.0919037064533334E-9*t170*t185*t315+1.404887950222222E-12*
3270         t312*t328*t314;
3271     t330 = -1.169644679491041*t84*t88*t89*t189*t111*t112*
3272         t113;
3273     t331 = -1.169644679491041*t84*t191*t89*t93*t111*t112*
3274         t113;
3275     t332 = pow(t187,2.0);
3276     t333 = t269+t263;
3277     t334 = pow(t188,2.0);
3278     t335 = t264+t268;
3279     t336 = 1.333333333333333*t123*t335+.4444444444444444*
3280         t267*t334+1.333333333333333*t120*t333+.4444444444444444*t261*
3281         t332;
3282     t337 = .01975178970256521*t84*t88*t89*t336*t96;
3283     t338 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t189*
3284         t96;
3285     t339 = .03950357940513041*t84*t191*t89*t189*t96;
3286     t340 = -.001464924402940253*t84*t1*t2*t4*t105*t191*t93*
3287         t96;
3288     t341 = t280+t278-32.0*t127*t129;
3289     t342 = .01975178970256521*t84*t341*t89*t93*t96;
3290     t343 = 2.0*t135*t189*t84*t86*t87;
3291     t344 = -8.0*t129*t135*t84*t87*t93;
3292     t345 = t84*t86*t87*t336*t102;
3293     t346 = -8.0*t102*t127*t189*t84*t86;
3294     t347 = 32.0*t102*t127*t129*t84*t93;
3295     t348 = 2.0*t178*t322*t150*t324*rhob-32.1646831778707*
3296         t321*t322*t150*t323*rhob-1.0*t178*t327*t150*t184*rhob+.03950357940513041*
3297         t84*t191*t89*t93*t96+.03950357940513041*t84*t88*t89*t189*t96-
3298         8.0*t102*t129*t84*t87*t93+t72*(-8.0*t102*t129*t189*t84*t87+
3299         t347+t346+t345+t344+t343+t342+t340+t339+t338+t337+t331+t330+
3300         t297+t295+t291+t289+t276+t259+t257+t255+t253+t251+t247+t246+
3301         t241+t239)+2.0*t102*t189*t84*t86*t87+t235+t234+t233+t232+t231+
3302         t230-2.0*t178*t183*t150*t184-.001419638488888889*t1*t2*t4*
3303         t149*t181+.1369866666666666*t1*t2*t4*t178*t183*t184*t146;
3304     t349 = .1338966933333333*
3305         t60*t70*t319-.005574000959999999*t60*t62*t69*t319+7.101790079999999E-5*
3306         t60*t68*t67*t319-3.3483048192000003E-7*t60*t66*t65*t319+4.8279255552E-10*
3307         t60*t63*t140*t319-.002319047679999999*t159*t69*t318+7.597229567999998E-5*
3308         t159*t62*t67*t318-8.301140582400001E-7*t159*t68*t65*t318+3.62440065024E-9*
3309         t159*t66*t140*t318-5.2668278784E-12*t159*t63*t299*t318;
3310     t350 = 0.00173928576*grada*t60*t23*t69*t176-5.697922176E-5*
3311         grada*t60*t23*t62*t67*t176+6.225855436800002E-7*grada*t60*
3312         t23*t68*t65*t176-2.7183004876800004E-9*grada*t60*t23*t66*t140*
3313         t176+3.9501209088E-12*grada*t60*t23*t63*t299*t176;
3314     t351 = pow(gradb,11.0);
3315     t352 = 1/pow(rhob,17.0);
3316     t353 = -0.03400992*gradb*t162*t176+1.543708352*t208*t160*
3317         t175-1.6851847936*t207*t157*t174+.6408380928000001*t206*t154*
3318         t173-0.10298730496*t204*t171*t172+.005986365440000003*t351*
3319         t313*t352;
3320     t354 = .007696661333333334*gradb*t168*t176-.001293832789333333*
3321         t208*t167*t175+2.7496421375999996E-5*t207*t166*t174-2.2371571029333337E-7*
3322         t206*t165*t173+7.991715430399999E-10*t204*t185*t172-1.053665962666667E-12*
3323         t351*t328*t352;
3324     t355 = -0.07303456*gradb*t70*t176+0.00304036416*gradb*
3325         t62*t69*t176-3.8737036799999996E-5*gradb*t68*t67*t176+1.8263480832E-7*
3326         gradb*t66*t65*t176-2.6334139392E-10*gradb*t63*t140*t176+0.00173928576*
3327         t208*t69*t175-5.697922176E-5*t208*t62*t67*t175+6.225855436800002E-7*
3328         t208*t68*t65*t175-2.7183004876800004E-9*t208*t66*t140*t175+
3329         3.9501209088E-12*t208*t63*t299*t175;
3330     t356 = 1/pow(rhoa,16.0);
3331     t357 = 0.01275372*t33*t23-.8696113200000002*t22*t31*t32+
3332         1.0916631552*t30*t28*t29-.4463838144000002*t27*t25*t26+.07499559168000003*
3333         t21*t44*t197-.004489774080000002*t43*t213*t356;
3334     t358 = -0.002886248*t41*t23+7.335534399999999E-4*t22*
3335         t40*t32-1.7816786431999998E-5*t30*t39*t29+1.5523002368000002E-7*
3336         t27*t38*t26-5.7962242048E-10*t21*t58*t197+7.90249472E-13*t43*
3337         t228*t356;
3338     t359 = 0.02738796*t23*t70-0.00114013656*t23*t62*t69-0.00130446432*
3339         t22*t32*t69+1.45263888E-5*t23*t68*t67+4.2734416319999996E-5*
3340         t22*t32*t62*t67-6.848805312000001E-8*t23*t66*t65-4.669391577600001E-7*
3341         t22*t32*t68*t65+9.875302271999999E-11*t23*t63*t140+2.0387253657600002E-9*
3342         t22*t32*t66*t140-2.962590681600001E-12*t22*t32*t63*t299;
3343     t360 = -
3344         0.00130446432*grada*gradb*t23*t69*t61+4.2734416319999996E-5*
3345         grada*gradb*t23*t62*t67*t61-4.669391577600001E-7*grada*gradb*
3346         t23*t68*t65*t61+2.0387253657600002E-9*grada*gradb*t23*t66*
3347         t140*t61-2.962590681600001E-12*grada*gradb*t23*t63*t299*t61;
3348     t361 = 1/
3349         pow(rhob,16.0);
3350     t362 = 0.01275372*t162*t61-.8696113200000002*t60*t160*
3351         t161+1.0916631552*t159*t157*t158-.4463838144000002*t156*t154*
3352         t155+.07499559168000003*t152*t171*t205-.004489774080000002*
3353         t170*t313*t361;
3354     t363 = -0.002886248*t168*t61+7.335534399999999E-4*t60*
3355         t167*t161-1.7816786431999998E-5*t159*t166*t158+1.5523002368000002E-7*
3356         t156*t165*t155-5.7962242048E-10*t152*t185*t205+7.90249472E-13*
3357         t170*t328*t361;
3358     t364 = 0.02738796*t70*t61-0.00114013656*t62*t69*t61+1.45263888E-5*
3359         t68*t67*t61-6.848805312000001E-8*t66*t65*t61+9.875302271999999E-11*
3360         t63*t140*t61-0.00130446432*t60*t69*t161+4.2734416319999996E-5*
3361         t60*t62*t67*t161-4.669391577600001E-7*t60*t68*t65*t161+2.0387253657600002E-9*
3362         t60*t66*t140*t161-2.962590681600001E-12*t60*t63*t299*t161;
3363     t365 = pow(grada,
3364         14.0);
3365     t366 = 1/pow(t24,7.0);
3366     t367 = 1/pow(rhoa,21.66666666666667);
3367     t368 = 1/pow(rhoa,19.0);
3368     t369 = 1/pow(rhoa,16.33333333333333);
3369     t370 = 1/pow(rhoa,13.66666666666667);
3370     t371 = 1/pow(rhoa,11.0);
3371     t372 = 1/pow(rhoa,8.333333333333334);
3372     t373 = 1/pow(rhoa,5.666666666666667);
3373     t374 = -0.29097376*t22*t33*t373+17.94495303822222*t30*
3374         t31*t372-27.37080780231112*t27*t28*t371+15.36387437568*t21*
3375         t25*t370-4.071649359644446*t43*t44*t369+.5178316754488891*
3376         t212*t213*t368-.02554182587733335*t365*t366*t367;
3377     t375 = 1/pow(t19,3.0);
3378     t376 = pow(t56,3.0);
3379     t377 = 1/pow(t18,6.0);
3380     t378 = 1/pow(t18,5.0);
3381     t379 = 1/pow(rhoa,3.333333333333333);
3382     t380 = 1/pow(t7,9.0);
3383     t381 = 1/pow(rhoa,2.0);
3384     t382 = -.9804791666666667*t10*t11*M_PI*t226*t381-.8181736111111113*
3385         t5*M_PI*t380*t381-2.35315*t10*t11*t14*t55*t225-1.402583333333333*
3386         t5*t14*t226*t225-2.614611111111111*t10*t11*t3*t8*t23-.9350555555555555*
3387         t5*t3*t55*t23-6.427244444444445*t1*t2*t4*t379-1.852355555555556*
3388         t12*t13*t15*t49;
3389     t383 = 1/pow(t37,7.0);
3390     t384 = .06584921362962963*t22*t41*t373-.01511690658133333*
3391         t30*t40*t372+4.4756461401125924E-4*t27*t39*t371-5.283262723716741E-6*
3392         t21*t38*t370+3.0183801754358525E-8*t43*t58*t369-8.352284744817775E-11*
3393         t212*t228*t368+8.99128288142222E-14*t365*t383*t367;
3394     t385 = 48.2454729664533*t75*t236*t237*t238;
3395     t386 = -6.0*t75*t236*t240*t109;
3396     t387 = 3.0*t75*t245*t108*t109;
3397     t388 = -.4273999999999999*t1*t2*t4*t105*t107*t108*t109;
3398     t389 = -
3399         51.9472676981276*t84*t88*t89*t93*t248*t249*t250;
3400     t390 = 3.508934038473122*t84*t88*t89*t93*t248*t252*t113;
3401     t391 = -
3402         1.754467019236561*t84*t88*t89*t93*t254*t112*t113;
3403     t392 = .1301229705933783*t84*t1*t2*t4*t105*t88*t93*t111*
3404         t112*t113;
3405     t393 = -.01771772453333333*t1*t2*t4*t243*t82;
3406     t394 = .002929848805880505*t84*t1*t2*t4*t243*t88*t93*
3407         t96;
3408     t395 = 3.0*t288*t84*t86*t87*t93;
3409     t396 = -24.0*t127*t135*t84*t86*t93;
3410     t397 = 60.0*t102*t277*t84*t86*t93;
3411     t398 = 36.0*t102*t279*t84*t87*t93;
3412     t399 = pow(t107,3.0);
3413     t400 = 1/pow(t80,6.0);
3414     t401 = 1/pow(t81,3.0);
3415     t402 = 517.2501470570614*t75*t399*t400*t401;
3416     t403 = 1/pow(t80,5.0);
3417     t404 = -96.4909459329066*t75*t399*t403*t238;
3418     t405 = 48.2454729664533*t75*t245*t107*t237*t238;
3419     t406 = -3.43668585764369*t1*t2*t4*t105*t236*t237*t238;
3420     t407 = 6.0*
3421         t75*t399*t237*t109;
3422     t408 = -6.0*t75*t245*t107*t240*t109;
3423     t409 = .4273999999999999*t1*t2*t4*t105*t236*t240*t109;
3424     t410 = 1/
3425         pow(t72,3.666666666666667);
3426     t411 = 1/pow(t72,3.333333333333333);
3427     t412 = 1/pow(t77,9.0);
3428     t413 = -1.406611111111111*t10*t11*t3*t242*t78-1.26595*
3429         t10*t11*t14*t243*t106-.4550555555555556*t5*t3*t242*t106-.5274791666666666*
3430         t10*t11*M_PI*t116*t244-.6825833333333334*t5*t14*t243*t244-.3981736111111112*
3431         t5*M_PI*t116*t412-3.720474074074074*t1*t2*t4*t411-1.460562962962963*
3432         t12*t13*t15*t410;
3433     t414 = .9999999999999999*t75*t413*t108*t109;
3434     t415 = -0.2137*t1*t2*t4*t105*t245*t108*t109;
3435     t416 = .2849333333333333*t1*t2*t4*t243*t107*t108*t109;
3436     t417 = pow(t111,
3437         3.0);
3438     t418 = 1/pow(t94,6.0);
3439     t419 = 1/pow(t95,3.0);
3440     t420 = -1025.38970210078*t84*t88*t89*t93*t417*t418*t419;
3441     t421 = 1/
3442         pow(t94,5.0);
3443     t422 = 103.8945353962552*t84*t88*t89*t93*t417*t421*t250;
3444     t423 = -
3445         51.9472676981276*t84*t88*t89*t93*t254*t111*t249*t250;
3446     t424 = -51.9472676981276*t84*t88*t89*t124*t248*t249*t250;
3447     t425 = 1.926377843805565*
3448         t84*t1*t2*t4*t105*t88*t93*t248*t249*t250;
3449     t426 = -51.9472676981276*t84*t130*t89*t93*t248*t249*t250;
3450     t427 = -
3451         3.508934038473122*t84*t88*t89*t93*t417*t249*t113;
3452     t428 = 3.508934038473122*t84*t88*t89*t93*t254*t111*t252*
3453         t113;
3454     t429 = 3.508934038473122*t84*t88*t89*t124*t248*t252*t113;
3455     t430 = -
3456         .1301229705933783*t84*t1*t2*t4*t105*t88*t93*t248*t252*t113;
3457     t431 = 3.508934038473122*
3458         t84*t130*t89*t93*t248*t252*t113;
3459     t432 = -1.917962962962962*t10*t11*t3*t242*t78-1.726166666666666*
3460         t10*t11*t14*t243*t106-.2445166666666667*t5*t3*t242*t106-.7192361111111111*
3461         t10*t11*M_PI*t116*t244-0.366775*t5*t14*t243*t244-.2139520833333333*
3462         t5*M_PI*t116*t412-3.757288888888889*t1*t2*t4*t411-1.471733333333333*
3463         t12*t13*t15*t410;
3464     t433 = -.5848223397455204*t84*t88*t89*t93*t432*t112*t113;
3465     t434 = -
3466         1.754467019236561*t84*t88*t89*t124*t254*t112*t113;
3467     t435 = .06506148529668915*t84*t1*t2*t4*t105*t88*t93*t254*
3468         t112*t113;
3469     t436 = -1.754467019236561*t84*t130*t89*t93*t254*t112*
3470         t113;
3471     t437 = .1301229705933783*t84*t1*t2*t4*t105*t88*t124*t111*
3472         t112*t113;
3473     t438 = .1301229705933783*t84*t1*t2*t4*t105*t130*t93*t111*
3474         t112*t113;
3475     t439 = -.08674864706225219*t84*t1*t2*t4*t243*t88*t93*
3476         t111*t112*t113;
3477     t440 = .01378045241481481*t1*t2*t4*t411*t82;
3478     t441 = pow(t119,3.0);
3479     t442 = 1/pow(t91,1.666666666666667);
3480     t443 = 6.0*t85*t87;
3481     t444 = -6.0*t262;
3482     t445 = t444+t443;
3483     t446 = pow(t122,3.0);
3484     t447 = 1/pow(t92,1.666666666666667);
3485     t448 = -6.0*t85*t87;
3486     t449 = 6.0*t262;
3487     t450 = t449+t448;
3488     t451 = 1.333333333333333*t123*t450-.2962962962962963*
3489         t446*t447+1.333333333333333*t120*t445-.2962962962962963*t441*
3490         t442+1.333333333333333*t122*t267*t270+1.333333333333333*t119*
3491         t261*t265;
3492     t452 = .01975178970256521*t84*t88*t89*t451*t96;
3493     t453 = .05925536910769562*t84*t130*t89*t271*t96;
3494     t454 = .002929848805880505*t84*t1*t2*t4*t243*t88*t124*
3495         t96;
3496     t455 = .05925536910769562*t84*t281*t89*t124*t96;
3497     t456 = .002929848805880505*t84*t1*t2*t4*t243*t130*t93*
3498         t96;
3499     t457 = -.002278771293462615*t84*t1*t2*t4*t411*t88*t93*
3500         t96;
3501     t458 = 1/pow(t72,7.0);
3502     t459 = 120.0*t458*t86;
3503     t460 = 144.0*t127*t279;
3504     t461 = -24.0*t85*t87;
3505     t462 = t461+t460+t459-240.0*t129*t277;
3506     t463 = .01975178970256521*t84*t462*t89*t93*t96;
3507     t464 = pow(t132,3.0);
3508     t465 = 1/pow(t99,6.0);
3509     t466 = 1/pow(t100,3.0);
3510     t467 = 1/pow(t99,5.0);
3511     t468 = -2.614611111111111*t10*t11*t3*t242*t78-2.35315*
3512         t10*t11*t14*t243*t106-.9350555555555555*t5*t3*t242*t106-.9804791666666667*
3513         t10*t11*M_PI*t116*t244-1.402583333333333*t5*t14*t243*t244-.8181736111111113*
3514         t5*M_PI*t116*t412-6.427244444444445*t1*t2*t4*t411-1.852355555555556*
3515         t12*t13*t15*t410;
3516     t469 = .006624979614814813*t1*t2*t4*t411*t101-.01378045241481481*
3517         t1*t2*t4*t411*t82+.2739733333333333*t1*t2*t4*t243*t132*t133*
3518         t134-0.20548*t1*t2*t4*t105*t287*t133*t134+1.0*t98*t468*t133*
3519         t134+.4109599999999999*t1*t2*t4*t105*t283*t286*t134-6.0*t98*
3520         t287*t132*t286*t134+6.0*t98*t464*t284*t134-6.60919909938887*
3521         t1*t2*t4*t105*t283*t284*t285+96.4940495336121*t98*t287*t132*
3522         t284*t285-192.9880990672242*t98*t464*t467*t285+2069.133687865597*
3523         t98*t464*t465*t466-.2849333333333333*t1*t2*t4*t243*t107*t108*
3524         t109+0.2137*t1*t2*t4*t105*t245*t108*t109-.9999999999999999*
3525         t75*t413*t108*t109-.4273999999999999*t1*t2*t4*t105*t236*t240*
3526         t109+6.0*t75*t245*t107*t240*t109-6.0*t75*t399*t237*t109+3.43668585764369*
3527         t1*t2*t4*t105*t236*t237*t238-48.2454729664533*t75*t245*t107*
3528         t237*t238+96.4909459329066*t75*t399*t403*t238-517.2501470570614*
3529         t75*t399*t400*t401;
3530     t470 = t84*t86*t87*t93*t469;
3531     t471 = 3.0*t124*t288*t84*t86*t87;
3532     t472 = -12.0*t127*t288*t84*t86*t93;
3533     t473 = -24.0*t124*t127*t135*t84*t86;
3534     t474 = 24.0*t124*t129*t135*t84*t87;
3535     t475 = 60.0*t135*t277*t84*t86*t93;
3536     t476 = 36.0*t135*t279*t84*t87*t93;
3537     t477 = t84*t86*t87*t451*t102;
3538     t478 = 60.0*t102*t124*t277*t84*t86;
3539     t479 = -96.0*t102*t124*t127*t129*t84;
3540     t480 = 36.0*t102*t124*t279*t84*t87;
3541     t481 = -120.0*t102*t458*t84*t86*t93;
3542     t482 = -144.0*t102*t127*t279*t84*t93;
3543     t483 = 24.0*t102*t84*t85*t87*t93;
3544     t484 = -1.0*t51*t382*t35*t57*rhoa+192.9880990672242*t221*
3545         t376*t35*t378*rhoa-2069.133687865597*t375*t376*t35*t377*rhoa+
3546         6.0*t51*t227*t56*t35*t224*rhoa-96.4940495336121*t221*t227*
3547         t56*t35*t223*rhoa-6.0*t51*t376*t35*t223*rhoa+t72*(-.002197386604410379*
3548         t84*t1*t2*t4*t105*t281*t93*t96-.002197386604410379*t84*t1*
3549         t2*t4*t105*t88*t271*t96-.004394773208820758*t84*t1*t2*t4*t105*
3550         t130*t124*t96+12.0*t129*t288*t84*t87*t93+240.0*t102*t129*t277*
3551         t84*t93-96.0*t127*t129*t135*t84*t93+3.0*t135*t271*t84*t86*
3552         t87+12.0*t102*t129*t271*t84*t87-12.0*t102*t127*t271*t84*t86+
3553         t483+t482+t481+t480+t479+t478+t477+t476+t475+t474+t473+t472+
3554         t471+t470+t463+t457+t456+t455+t454+t453+t452+t440+t439+t438+
3555         t437+t436+t435+t434+t433+t431+t430+t429+t428+t427+t426+t425+
3556         t424+t423+t422+t420+t416+t415+t414+t409+t408+t407+t406+t405+
3557         t404+t402-1.754467019236561*t84*t281*t89*t93*t111*t112*t113-
3558         1.754467019236561*t84*t88*t89*t271*t111*t112*t113-3.508934038473122*
3559         t84*t130*t89*t124*t111*t112*t113)+.05925536910769562*t84*t281*
3560         t89*t93*t96-.004394773208820758*t84*t1*t2*t4*t105*t130*t93*
3561         t96+.05925536910769562*t84*t88*t89*t271*t96+.1185107382153912*
3562         t84*t130*t89*t124*t96-.004394773208820758*t84*t1*t2*t4*t105*
3563         t88*t124*t96+24.0*t129*t135*t84*t87*t93-96.0*t102*t127*t129*
3564         t84*t93+3.0*t102*t271*t84*t86*t87+6.0*t124*t135*t84*t86*t87+
3565         24.0*t102*t124*t129*t84*t87-24.0*t102*t124*t127*t84*t86-3.0*
3566         t51*t227*t35*t57+.1369866666666666*t1*t2*t4*t51*t56*t57*t54+
3567         t398+t397+t396+t395+t394+t393+t392+t391+t390+t389+t388+t387+
3568         t386+t385+.001892851318518518*t1*t2*t4*t20*t225+6.0*t51*t222*
3569         t35*t224-96.4940495336121*t221*t222*t35*t223+0.20548*t1*t2*
3570         t4*t51*t227*t57*t17-.4109599999999999*t1*t2*t4*t51*t222*t224*
3571         t17+6.60919909938887*t1*t2*t4*t221*t222*t223*t17-3.508934038473122*
3572         t84*t130*t89*t93*t111*t112*t113-3.508934038473122*t84*t88*
3573         t89*t124*t111*t112*t113;
3574     t485 = 1/pow(t64,7.0);
3575     t486 = -.6248512355555556*t22*t373*t70+0.02601200448*
3576         t22*t373*t62*t69+.02550952447999999*t30*t372*t69-3.314168704E-4*
3577         t22*t373*t68*t67-8.356952524799998E-4*t30*t372*t62*t67-1.3840115711999998E-4*
3578         t27*t371*t67+1.56254224896E-6*t22*t373*t66*t65+9.131254640639999E-6*
3579         t30*t372*t68*t65+4.036972584959999E-6*t27*t371*t62*t65-2.25303192576E-9*
3580         t22*t373*t63*t140-3.986840715264E-8*t30*t372*t66*t140-4.106125246464E-8*
3581         t27*t371*t68*t140+5.793510666239999E-11*t30*t372*t63*t299+
3582         1.730657746944E-10*t27*t371*t66*t299-2.528077381632E-13*t27*
3583         t371*t63*t485;
3584     t487 = .03950357940513041*t84*t88*t89*t301*t96;
3585     t488 = .03950357940513041*t84*t130*t89*t189*t96;
3586     t489 = .03950357940513041*t84*t191*t89*t124*t96;
3587     t490 = .03950357940513041*t84*t302*t89*t93*t96;
3588     t491 = 2.0*t102*t301*t84*t86*t87;
3589     t492 = -1.169644679491041*t84*t88*t89*t301*t111*t112*
3590         t113;
3591     t493 = -1.169644679491041*t84*t130*t89*t189*t111*t112*
3592         t113;
3593     t494 = -1.169644679491041*t84*t191*t89*t124*t111*t112*
3594         t113;
3595     t495 = -1.169644679491041*t84*t302*t89*t93*t111*t112*
3596         t113;
3597     t496 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t301*
3598         t96;
3599     t497 = t443-2.0*t262;
3600     t498 = t448+2.0*t262;
3601     t499 = 1.777777777777778*t122*t262*t267*t85-1.777777777777778*
3602         t119*t261*t262*t85+1.333333333333333*t123*t498+1.333333333333333*
3603         t120*t497-.2962962962962963*t188*t266*t447-.2962962962962963*
3604         t187*t260*t442+.4444444444444444*t188*t267*t270+.4444444444444444*
3605         t187*t261*t265;
3606     t500 = -.001464924402940253*t84*t1*t2*t4*t105*t130*t189*
3607         t96;
3608     t501 = -.001464924402940253*t84*t1*t2*t4*t105*t191*t124*
3609         t96;
3610     t502 = -.001464924402940253*t84*t1*t2*t4*t105*t302*t93*
3611         t96;
3612     t503 = -48.0*t127*t279;
3613     t504 = 24.0*t85*t87;
3614     t505 = t504+t503+t459-80.0*t129*t277;
3615     t506 = 2.0*t135*t301*t84*t86*t87;
3616     t507 = -12.0*t135*t279*t84*t87*t93;
3617     t508 = -8.0*t102*t127*t301*t84*t86;
3618     t509 = -24.0*t102*t124*t279*t84*t87;
3619     t510 = 48.0*t102*t127*t279*t84*t93;
3620     t511 = -24.0*t102*t84*t85*t87*t93;
3621     t512 = t72*(.01975178970256521*t84*t505*t89*t93*t96-7.324622014701263E-4*
3622         t84*t1*t2*t4*t105*t281*t93*t96+9.766162686268349E-4*t84*t1*
3623         t2*t4*t243*t191*t93*t96+0.00195323253725367*t84*t1*t2*t4*t243*
3624         t130*t93*t96+.01975178970256521*t84*t88*t89*t499*t96+.03950357940513041*
3625         t84*t130*t89*t301*t96+.01975178970256521*t84*t191*t89*t271*
3626         t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t271*t96+.01975178970256521*
3627         t84*t281*t89*t189*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*
3628         t88*t189*t96+.03950357940513041*t84*t302*t89*t124*t96+0.00195323253725367*
3629         t84*t1*t2*t4*t243*t88*t124*t96-.001464924402940253*t84*t1*
3630         t2*t4*t105*t130*t124*t96+4.0*t129*t288*t84*t87*t93+80.0*t102*
3631         t129*t277*t84*t93-32.0*t127*t129*t135*t84*t93+2.0*t124*t288*
3632         t84*t86*t87+8.0*t102*t129*t301*t84*t87+12.0*t102*t189*t279*
3633         t84*t87-4.0*t102*t129*t271*t84*t87+8.0*t129*t135*t189*t84*
3634         t87+20.0*t102*t189*t277*t84*t86+40.0*t102*t124*t277*t84*t86-
3635         4.0*t102*t127*t271*t84*t86-8.0*t127*t135*t189*t84*t86-16.0*
3636         t124*t127*t135*t84*t86-32.0*t102*t127*t129*t189*t84+t511+t510+
3637         t509+t508+t507+t506+t502+t501+t500+t496+t495+t494+t493+t492+
3638         t481+t475+t472+t470+t457+t440+t439+t435+t433+t430+t428+t427+
3639         t425+t423+t422+t420+t416+t415+t414+t409+t408+t407+t406+t405+
3640         t404+t402+t84*t86*t87*t189*t288-17.31575589937587*t84*t191*
3641         t89*t93*t248*t249*t250-34.63151179875173*t84*t130*t89*t93*
3642         t248*t249*t250-17.31575589937587*t84*t88*t89*t189*t248*t249*
3643         t250-34.63151179875173*t84*t88*t89*t124*t248*t249*t250+t84*
3644         t86*t87*t271*t135+1.169644679491041*t84*t191*t89*t93*t248*
3645         t252*t113+2.339289358982082*t84*t130*t89*t93*t248*t252*t113+
3646         1.169644679491041*t84*t88*t89*t189*t248*t252*t113+2.339289358982082*
3647         t84*t88*t89*t124*t248*t252*t113-.5848223397455204*t84*t191*
3648         t89*t93*t254*t112*t113-1.169644679491041*t84*t130*t89*t93*
3649         t254*t112*t113-.5848223397455204*t84*t88*t89*t189*t254*t112*
3650         t113-1.169644679491041*t84*t88*t89*t124*t254*t112*t113-.5848223397455204*
3651         t84*t281*t89*t93*t111*t112*t113+.04337432353112609*t84*t1*
3652         t2*t4*t105*t191*t93*t111*t112*t113+.08674864706225219*t84*
3653         t1*t2*t4*t105*t130*t93*t111*t112*t113-.5848223397455204*t84*
3654         t88*t89*t271*t111*t112*t113+.04337432353112609*t84*t1*t2*t4*
3655         t105*t88*t189*t111*t112*t113-1.169644679491041*t84*t130*t89*
3656         t124*t111*t112*t113+.08674864706225219*t84*t1*t2*t4*t105*t88*
3657         t124*t111*t112*t113+t84*t86*t87*t499*t102)-.002929848805880505*
3658         t84*t1*t2*t4*t105*t130*t93*t96-.002929848805880505*t84*t1*
3659         t2*t4*t105*t88*t124*t96+4.0*t124*t135*t84*t86*t87+8.0*t102*
3660         t129*t189*t84*t87-16.0*t102*t124*t127*t84*t86+t491+t490+t489+
3661         t488+t487+t397+t396+t395+t394+t393+t392+t391+t390+t389+t388+
3662         t387+t386+t385+t346+t343+t340+t338+t331+t330+t303+t296+t293+
3663         t292+t282+t274+t272-2.339289358982082*t84*t130*t89*t93*t111*
3664         t112*t113-2.339289358982082*t84*t88*t89*t124*t111*t112*t113;
3665     t513 = .008503174826666664*
3666         t22*t60*t219*t69*t176-2.7856508416E-4*t22*t60*t219*t62*t67*
3667         t176-1.3840115711999998E-4*t30*t60*t218*t67*t176+3.0437515468799997E-6*
3668         t22*t60*t219*t68*t65*t176+4.036972584959999E-6*t30*t60*t218*
3669         t62*t65*t176-1.328946905088E-8*t22*t60*t219*t66*t140*t176-
3670         4.106125246464E-8*t30*t60*t218*t68*t140*t176+1.93117022208E-11*
3671         t22*t60*t219*t63*t299*t176+1.730657746944E-10*t30*t60*t218*
3672         t66*t299*t176-2.528077381632E-13*t30*t60*t218*t63*t485*t176;
3673     t514 = pow(grada,
3674         13.0);
3675     t515 = 1/pow(rhoa,20.66666666666667);
3676     t516 = 0.12470304*grada*t33*t219-9.794958186666667*t200*
3677         t31*t218+16.81328538453334*t199*t28*t217-10.17274008576*t198*
3678         t25*t216+2.843272635733334*t196*t44*t215-.3764010257066668*
3679         t306*t213*t214+.01915636940800001*t514*t366*t515;
3680     t517 = -.02822109155555556*grada*t41*t219+.008276372053333331*
3681         t200*t40*t218-2.7506955855644444E-4*t199*t39*t217+3.4899021041208883E-6*
3682         t198*t38*t216-2.099999575608889E-8*t196*t58*t215+6.053480366079999E-11*
3683         t306*t228*t214-6.743462161066666E-14*t514*t383*t515;
3684     t518 = .2677933866666666*grada*t219*t70-0.01114800192*
3685         grada*t219*t62*t69-.01565357183999999*t200*t218*t69+1.4203580159999998E-4*
3686         grada*t219*t68*t67+5.1281299584E-4*t200*t218*t62*t67+1.0380086783999998E-4*
3687         t199*t217*t67-6.696609638400001E-7*grada*t219*t66*t65-5.603269893119999E-6*
3688         t200*t218*t68*t65-3.02772943872E-6*t199*t217*t62*t65+9.6558511104E-10*
3689         grada*t219*t63*t140+2.446470438912E-8*t200*t218*t66*t140+3.079593934848E-8*
3690         t199*t217*t68*t140-3.55510881792E-11*t200*t218*t63*t299-1.297993310208E-10*
3691         t199*t217*t66*t299+1.896058036224E-13*t199*t217*t63*t485;
3692     t519 = -
3693         .006377381119999998*t22*gradb*t219*t69*t61+2.0892381311999997E-4*
3694         t22*gradb*t219*t62*t67*t61+1.0380086783999998E-4*t30*gradb*
3695         t218*t67*t61-2.2828136601599996E-6*t22*gradb*t219*t68*t65*
3696         t61-3.02772943872E-6*t30*gradb*t218*t62*t65*t61+9.96710178816E-9*
3697         t22*gradb*t219*t66*t140*t61+3.079593934848E-8*t30*gradb*t218*
3698         t68*t140*t61-1.44837766656E-11*t22*gradb*t219*t63*t299*t61-
3699         1.297993310208E-10*t30*gradb*t218*t66*t299*t61+1.896058036224E-13*
3700         t30*gradb*t218*t63*t485*t61;
3701     t520 = -8.0*t123*t85*t87+8.0*t120*t85*t87+1.777777777777778*
3702         t188*t262*t267*t85-1.777777777777778*t187*t261*t262*t85-.2962962962962963*
3703         t122*t334*t447-.2962962962962963*t119*t332*t442+.4444444444444444*
3704         t122*t267*t335+.4444444444444444*t119*t261*t333-2.666666666666667*
3705         t123*t262+2.666666666666667*t120*t262;
3706     t521 = t503+t461+t459+80.0*t129*t277;
3707     t522 = -24.0*t102*t189*t279*t84*t87;
3708     t523 = t72*(.01975178970256521*t84*t521*t89*t93*t96-7.324622014701263E-4*
3709         t84*t1*t2*t4*t105*t341*t93*t96+0.00195323253725367*t84*t1*
3710         t2*t4*t243*t191*t93*t96+9.766162686268349E-4*t84*t1*t2*t4*
3711         t243*t130*t93*t96+.01975178970256521*t84*t88*t89*t520*t96+
3712         .01975178970256521*t84*t130*t89*t336*t96-7.324622014701263E-4*
3713         t84*t1*t2*t4*t105*t88*t336*t96+.03950357940513041*t84*t191*
3714         t89*t301*t96+.03950357940513041*t84*t302*t89*t189*t96+0.00195323253725367*
3715         t84*t1*t2*t4*t243*t88*t189*t96-.001464924402940253*t84*t1*
3716         t2*t4*t105*t191*t189*t96+.01975178970256521*t84*t341*t89*t124*
3717         t96+9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t124*t96-4.0*
3718         t129*t288*t84*t87*t93-80.0*t102*t129*t277*t84*t93+32.0*t127*
3719         t129*t135*t84*t93+2.0*t189*t288*t84*t86*t87+4.0*t102*t129*
3720         t336*t84*t87-8.0*t102*t129*t301*t84*t87+12.0*t102*t124*t279*
3721         t84*t87-8.0*t124*t129*t135*t84*t87-4.0*t102*t127*t336*t84*
3722         t86+40.0*t102*t189*t277*t84*t86+20.0*t102*t124*t277*t84*t86-
3723         16.0*t127*t135*t189*t84*t86-8.0*t124*t127*t135*t84*t86+32.0*
3724         t102*t124*t127*t129*t84+t522+t510+t508+t507+t506+t502+t501+
3725         t500+t496+t495+t494+t493+t492+t483+t481+t475+t472+t470+t457+
3726         t440+t439+t435+t433+t430+t428+t427+t425+t423+t422+t420+t416+
3727         t415+t414+t409+t408+t407+t406+t405+t404+t402+t84*t86*t87*t124*
3728         t288-34.63151179875173*t84*t191*t89*t93*t248*t249*t250-17.31575589937587*
3729         t84*t130*t89*t93*t248*t249*t250-34.63151179875173*t84*t88*
3730         t89*t189*t248*t249*t250-17.31575589937587*t84*t88*t89*t124*
3731         t248*t249*t250+t84*t86*t87*t336*t135+2.339289358982082*t84*
3732         t191*t89*t93*t248*t252*t113+1.169644679491041*t84*t130*t89*
3733         t93*t248*t252*t113+2.339289358982082*t84*t88*t89*t189*t248*
3734         t252*t113+1.169644679491041*t84*t88*t89*t124*t248*t252*t113-
3735         1.169644679491041*t84*t191*t89*t93*t254*t112*t113-.5848223397455204*
3736         t84*t130*t89*t93*t254*t112*t113-1.169644679491041*t84*t88*
3737         t89*t189*t254*t112*t113-.5848223397455204*t84*t88*t89*t124*
3738         t254*t112*t113-.5848223397455204*t84*t341*t89*t93*t111*t112*
3739         t113+.08674864706225219*t84*t1*t2*t4*t105*t191*t93*t111*t112*
3740         t113+.04337432353112609*t84*t1*t2*t4*t105*t130*t93*t111*t112*
3741         t113-.5848223397455204*t84*t88*t89*t336*t111*t112*t113-1.169644679491041*
3742         t84*t191*t89*t189*t111*t112*t113+.08674864706225219*t84*t1*
3743         t2*t4*t105*t88*t189*t111*t112*t113+.04337432353112609*t84*
3744         t1*t2*t4*t105*t88*t124*t111*t112*t113+t84*t86*t87*t520*t102)-
3745         .002929848805880505*t84*t1*t2*t4*t105*t191*t93*t96-.002929848805880505*
3746         t84*t1*t2*t4*t105*t88*t189*t96+4.0*t135*t189*t84*t86*t87-8.0*
3747         t102*t124*t129*t84*t87-16.0*t102*t127*t189*t84*t86+t491+t490+
3748         t489+t488+t487+t397+t396+t395+t394+t393+t392+t391+t390+t389+
3749         t388+t387+t386+t385+t347+t345+t344+t342+t339+t337+t303+t294+
3750         t290+t275+t273+t258+t256-2.339289358982082*t84*t191*t89*t93*
3751         t111*t112*t113-2.339289358982082*t84*t88*t89*t189*t111*t112*
3752         t113;
3753     t524 = .008503174826666664*t22*t60*t49*t69*t319-2.785650841599999E-4*
3754         t22*t60*t49*t62*t67*t319+3.043751546879999E-6*t22*t60*t49*
3755         t68*t65*t319-1.328946905088E-8*t22*t60*t49*t66*t140*t319+1.93117022208E-11*
3756         t22*t60*t49*t63*t299*t319-1.3840115711999998E-4*t22*t159*t49*
3757         t67*t318+4.036972584959999E-6*t22*t159*t49*t62*t65*t318-4.106125246464E-8*
3758         t22*t159*t49*t68*t140*t318+1.730657746944E-10*t22*t159*t49*
3759         t66*t299*t318-2.528077381632E-13*t22*t159*t49*t63*t485*t318;
3760     t525 = -
3761         .004638095359999999*grada*t60*t49*t69*t176+1.5194459135999996E-4*
3762         grada*t60*t49*t62*t67*t176+1.0380086783999998E-4*t200*t60*
3763         t48*t67*t176-1.6602281164799998E-6*grada*t60*t49*t68*t65*t176-
3764         3.02772943872E-6*t200*t60*t48*t62*t65*t176+7.24880130048E-9*
3765         grada*t60*t49*t66*t140*t176+3.079593934848E-8*t200*t60*t48*
3766         t68*t140*t176-1.05336557568E-11*grada*t60*t49*t63*t299*t176-
3767         1.297993310208E-10*t200*t60*t48*t66*t299*t176+1.896058036224E-13*
3768         t200*t60*t48*t63*t485*t176;
3769     t526 = -.004638095359999999*t22*gradb*t49*t69*t176+1.5194459135999996E-4*
3770         t22*gradb*t49*t62*t67*t176-1.6602281164799998E-6*t22*gradb*
3771         t49*t68*t65*t176+7.24880130048E-9*t22*gradb*t49*t66*t140*t176-
3772         1.05336557568E-11*t22*gradb*t49*t63*t299*t176+1.0380086783999998E-4*
3773         t22*t208*t49*t67*t175-3.02772943872E-6*t22*t208*t49*t62*t65*
3774         t175+3.079593934848E-8*t22*t208*t49*t68*t140*t175-1.297993310208E-10*
3775         t22*t208*t49*t66*t299*t175+1.896058036224E-13*t22*t208*t49*
3776         t63*t485*t175;
3777     t527 = 1/pow(rhoa,19.66666666666667);
3778     t528 = -0.03400992*t33*t49+4.644729024000001*t22*t31*
3779         t48-9.660890649600002*t30*t28*t47+6.508088401920002*t27*t25*
3780         t46-1.95222669312*t21*t44*t45+.2718246297600001*t43*t213*t307-
3781         .01436727705600001*t212*t366*t527;
3782     t529 = .007696661333333334*t41*t49-.003943071658666666*
3783         t22*t40*t48+1.581834315093333E-4*t30*t39*t47-2.2259240850773332E-6*
3784         t27*t38*t46+1.435144661674667E-8*t21*t58*t45-4.355718731093333E-11*
3785         t43*t228*t307+5.057596620799999E-14*t212*t383*t527;
3786     t530 = -0.07303456*t49*t70+0.00304036416*t49*t62*t69+
3787         .008696428799999998*t22*t48*t69-3.8737036799999996E-5*t49*
3788         t68*t67-2.8489610879999994E-4*t22*t48*t62*t67-7.785065087999998E-5*
3789         t30*t47*t67+1.8263480832E-7*t49*t66*t65+3.1129277184000004E-6*
3790         t22*t48*t68*t65+2.27079707904E-6*t30*t47*t62*t65-2.6334139392E-10*
3791         t49*t63*t140-1.3591502438400002E-8*t22*t48*t66*t140-2.3096954511360004E-8*
3792         t30*t47*t68*t140+1.9750604544E-11*t22*t48*t63*t299+9.73494982656E-11*
3793         t30*t47*t66*t299-1.422043527168E-13*t30*t47*t63*t485;
3794     t531 = .003478571519999999*grada*gradb*t49*t69*t61-1.1395844352E-4*
3795         grada*gradb*t49*t62*t67*t61-7.785065087999998E-5*t200*gradb*
3796         t48*t67*t61+1.2451710873600001E-6*grada*gradb*t49*t68*t65*
3797         t61+2.27079707904E-6*t200*gradb*t48*t62*t65*t61-5.436600975360001E-9*
3798         grada*gradb*t49*t66*t140*t61-2.3096954511360004E-8*t200*gradb*
3799         t48*t68*t140*t61+7.9002418176E-12*grada*gradb*t49*t63*t299*
3800         t61+9.73494982656E-11*t200*gradb*t48*t66*t299*t61-1.422043527168E-13*
3801         t200*gradb*t48*t63*t485*t61;
3802     t532 = 0.00173928576*t22*t49*t69*t61-5.697922176E-5*t22*
3803         t49*t62*t67*t61+6.225855436800002E-7*t22*t49*t68*t65*t61-2.7183004876800004E-9*
3804         t22*t49*t66*t140*t61+3.9501209088E-12*t22*t49*t63*t299*t61-
3805         7.785065087999998E-5*t22*t60*t49*t67*t161+2.27079707904E-6*
3806         t22*t60*t49*t62*t65*t161-2.3096954511360004E-8*t22*t60*t49*
3807         t68*t140*t161+9.73494982656E-11*t22*t60*t49*t66*t299*t161-
3808         1.422043527168E-13*t22*t60*t49*t63*t485*t161;
3809     t533 = pow(gradb,14.0);
3810     t534 = 1/pow(t153,7.0);
3811     t535 = 1/pow(rhob,21.66666666666667);
3812     t536 = 1/pow(rhob,19.0);
3813     t537 = 1/pow(rhob,16.33333333333333);
3814     t538 = 1/pow(rhob,13.66666666666667);
3815     t539 = 1/pow(rhob,11.0);
3816     t540 = 1/pow(rhob,8.333333333333334);
3817     t541 = 1/pow(rhob,5.666666666666667);
3818     t542 = -0.29097376*t60*t162*t541+17.94495303822222*t159*
3819         t160*t540-27.37080780231112*t156*t157*t539+15.36387437568*
3820         t152*t154*t538-4.071649359644446*t170*t171*t537+.5178316754488891*
3821         t312*t313*t536-.02554182587733335*t533*t534*t535;
3822     t543 = 1/pow(t148,3.0);
3823     t544 = pow(t183,3.0);
3824     t545 = 1/pow(t147,6.0);
3825     t546 = 1/pow(t147,5.0);
3826     t547 = 1/pow(rhob,3.333333333333333);
3827     t548 = 1/pow(t143,9.0);
3828     t549 = 1/pow(rhob,2.0);
3829     t550 = -.9804791666666667*t10*t11*M_PI*t326*t549-.8181736111111113*
3830         t5*M_PI*t548*t549-2.35315*t10*t11*t14*t182*t325-1.402583333333333*
3831         t5*t14*t326*t325-2.614611111111111*t10*t11*t3*t144*t61-.9350555555555555*
3832         t5*t3*t182*t61-6.427244444444445*t1*t2*t4*t547-1.852355555555556*
3833         t12*t13*t15*t176;
3834     t551 = 1/pow(t164,7.0);
3835     t552 = .06584921362962963*t60*t168*t541-.01511690658133333*
3836         t159*t167*t540+4.4756461401125924E-4*t156*t166*t539-5.283262723716741E-6*
3837         t152*t165*t538+3.0183801754358525E-8*t170*t185*t537-8.352284744817775E-11*
3838         t312*t328*t536+8.99128288142222E-14*t533*t551*t535;
3839     t553 = -51.9472676981276*t84*t88*t89*t189*t248*t249*t250;
3840     t554 = -
3841         51.9472676981276*t84*t191*t89*t93*t248*t249*t250;
3842     t555 = 3.508934038473122*t84*t88*t89*t189*t248*t252*t113;
3843     t556 = 3.508934038473122*
3844         t84*t191*t89*t93*t248*t252*t113;
3845     t557 = -1.754467019236561*t84*t88*t89*t189*t254*t112*
3846         t113;
3847     t558 = -1.754467019236561*t84*t191*t89*t93*t254*t112*
3848         t113;
3849     t559 = .1301229705933783*t84*t1*t2*t4*t105*t88*t189*t111*
3850         t112*t113;
3851     t560 = .1301229705933783*t84*t1*t2*t4*t105*t191*t93*t111*
3852         t112*t113;
3853     t561 = pow(t187,3.0);
3854     t562 = t449+t443;
3855     t563 = pow(t188,3.0);
3856     t564 = t444+t448;
3857     t565 = 1.333333333333333*t123*t564-.2962962962962963*
3858         t447*t563+1.333333333333333*t120*t562-.2962962962962963*t442*
3859         t561+1.333333333333333*t188*t267*t335+1.333333333333333*t187*
3860         t261*t333;
3861     t566 = .01975178970256521*t84*t88*t89*t565*t96;
3862     t567 = .05925536910769562*t84*t191*t89*t336*t96;
3863     t568 = .002929848805880505*t84*t1*t2*t4*t243*t88*t189*
3864         t96;
3865     t569 = .05925536910769562*t84*t341*t89*t189*t96;
3866     t570 = .002929848805880505*t84*t1*t2*t4*t243*t191*t93*
3867         t96;
3868     t571 = t504+t460+t459+240.0*t129*t277;
3869     t572 = .01975178970256521*t84*t571*t89*t93*t96;
3870     t573 = 3.0*t189*t288*t84*t86*t87;
3871     t574 = -24.0*t127*t135*t189*t84*t86;
3872     t575 = -24.0*t129*t135*t189*t84*t87;
3873     t576 = t84*t86*t87*t565*t102;
3874     t577 = 60.0*t102*t189*t277*t84*t86;
3875     t578 = 96.0*t102*t127*t129*t189*t84;
3876     t579 = 36.0*t102*t189*t279*t84*t87;
3877     t580 = 192.9880990672242*t321*t544*t150*t546*rhob-2069.133687865597*
3878         t543*t544*t150*t545*rhob+6.0*t178*t327*t183*t150*t324*rhob-
3879         6.0*t178*t544*t150*t323*rhob-96.4940495336121*t321*t327*t183*
3880         t150*t323*rhob-1.0*t178*t550*t150*t184*rhob+t72*(-.002197386604410379*
3881         t84*t1*t2*t4*t105*t341*t93*t96-.002197386604410379*t84*t1*
3882         t2*t4*t105*t88*t336*t96-.004394773208820758*t84*t1*t2*t4*t105*
3883         t191*t189*t96-12.0*t129*t288*t84*t87*t93-240.0*t102*t129*t277*
3884         t84*t93+96.0*t127*t129*t135*t84*t93+3.0*t135*t336*t84*t86*
3885         t87-12.0*t102*t129*t336*t84*t87-12.0*t102*t127*t336*t84*t86+
3886         t579+t578+t577+t576+t575+t574+t573+t572+t570+t569+t568+t567+
3887         t566+t560+t559+t558+t557+t556+t555+t554+t553+t511+t482+t481+
3888         t476+t475+t472+t470+t457+t440+t439+t435+t433+t430+t428+t427+
3889         t425+t423+t422+t420+t416+t415+t414+t409+t408+t407+t406+t405+
3890         t404+t402-1.754467019236561*t84*t341*t89*t93*t111*t112*t113-
3891         1.754467019236561*t84*t88*t89*t336*t111*t112*t113-3.508934038473122*
3892         t84*t191*t89*t189*t111*t112*t113)+.05925536910769562*t84*t341*
3893         t89*t93*t96-.004394773208820758*t84*t1*t2*t4*t105*t191*t93*
3894         t96+.05925536910769562*t84*t88*t89*t336*t96+.1185107382153912*
3895         t84*t191*t89*t189*t96-.004394773208820758*t84*t1*t2*t4*t105*
3896         t88*t189*t96-24.0*t129*t135*t84*t87*t93+96.0*t102*t127*t129*
3897         t84*t93+3.0*t102*t336*t84*t86*t87+6.0*t135*t189*t84*t86*t87-
3898         24.0*t102*t129*t189*t84*t87-24.0*t102*t127*t189*t84*t86+t398+
3899         t397+t396+t395+t394+t393+t392+t391+t390+t389+t388+t387+t386+
3900         t385+.001892851318518518*t1*t2*t4*t149*t325+6.0*t178*t322*
3901         t150*t324-96.4940495336121*t321*t322*t150*t323-3.0*t178*t327*
3902         t150*t184+.1369866666666666*t1*t2*t4*t178*t183*t184*t181-.4109599999999999*
3903         t1*t2*t4*t178*t322*t324*t146+6.60919909938887*t1*t2*t4*t321*
3904         t322*t323*t146+0.20548*t1*t2*t4*t178*t327*t184*t146-3.508934038473122*
3905         t84*t191*t89*t93*t111*t112*t113-3.508934038473122*t84*t88*
3906         t89*t189*t111*t112*t113;
3907     t581 = -.6248512355555556*t60*t70*t541+0.02601200448*
3908         t60*t62*t69*t541-3.314168704E-4*t60*t68*t67*t541+1.56254224896E-6*
3909         t60*t66*t65*t541-2.25303192576E-9*t60*t63*t140*t541+.02550952447999999*
3910         t159*t69*t540-8.356952524799998E-4*t159*t62*t67*t540+9.131254640639999E-6*
3911         t159*t68*t65*t540-3.986840715264E-8*t159*t66*t140*t540+5.793510666239999E-11*
3912         t159*t63*t299*t540-1.3840115711999998E-4*t156*t67*t539+4.036972584959999E-6*
3913         t156*t62*t65*t539-4.106125246464E-8*t156*t68*t140*t539+1.730657746944E-10*
3914         t156*t66*t299*t539-2.528077381632E-13*t156*t63*t485*t539;
3915     t582 = -
3916         .006377381119999998*grada*t60*t23*t69*t319+2.0892381311999997E-4*
3917         grada*t60*t23*t62*t67*t319-2.2828136601599996E-6*grada*t60*
3918         t23*t68*t65*t319+9.96710178816E-9*grada*t60*t23*t66*t140*t319-
3919         1.44837766656E-11*grada*t60*t23*t63*t299*t319+1.0380086783999998E-4*
3920         grada*t159*t23*t67*t318-3.02772943872E-6*grada*t159*t23*t62*
3921         t65*t318+3.079593934848E-8*grada*t159*t23*t68*t140*t318-1.297993310208E-10*
3922         grada*t159*t23*t66*t299*t318+1.896058036224E-13*grada*t159*
3923         t23*t63*t485*t318;
3924     t583 = pow(gradb,13.0);
3925     t584 = 1/pow(rhob,20.66666666666667);
3926     t585 = 0.12470304*gradb*t162*t319-9.794958186666667*t208*
3927         t160*t318+16.81328538453334*t207*t157*t317-10.17274008576*
3928         t206*t154*t316+2.843272635733334*t204*t171*t315-.3764010257066668*
3929         t351*t313*t314+.01915636940800001*t583*t534*t584;
3930     t586 = -.02822109155555556*gradb*t168*t319+.008276372053333331*
3931         t208*t167*t318-2.7506955855644444E-4*t207*t166*t317+3.4899021041208883E-6*
3932         t206*t165*t316-2.099999575608889E-8*t204*t185*t315+6.053480366079999E-11*
3933         t351*t328*t314-6.743462161066666E-14*t583*t551*t584;
3934     t587 = .2677933866666666*gradb*t70*t319-0.01114800192*
3935         gradb*t62*t69*t319+1.4203580159999998E-4*gradb*t68*t67*t319-
3936         6.696609638400001E-7*gradb*t66*t65*t319+9.6558511104E-10*gradb*
3937         t63*t140*t319-.01565357183999999*t208*t69*t318+5.1281299584E-4*
3938         t208*t62*t67*t318-5.603269893119999E-6*t208*t68*t65*t318+2.446470438912E-8*
3939         t208*t66*t140*t318-3.55510881792E-11*t208*t63*t299*t318+1.0380086783999998E-4*
3940         t207*t67*t317-3.02772943872E-6*t207*t62*t65*t317+3.079593934848E-8*
3941         t207*t68*t140*t317-1.297993310208E-10*t207*t66*t299*t317+1.896058036224E-13*
3942         t207*t63*t485*t317;
3943     t588 = 0.00173928576*t60*t23*t69*t176-5.697922176E-5*
3944         t60*t23*t62*t67*t176-7.785065087999998E-5*t22*t60*t32*t67*
3945         t176+6.225855436800002E-7*t60*t23*t68*t65*t176+2.27079707904E-6*
3946         t22*t60*t32*t62*t65*t176-2.7183004876800004E-9*t60*t23*t66*
3947         t140*t176-2.3096954511360004E-8*t22*t60*t32*t68*t140*t176+
3948         3.9501209088E-12*t60*t23*t63*t299*t176+9.73494982656E-11*t22*
3949         t60*t32*t66*t299*t176-1.422043527168E-13*t22*t60*t32*t63*t485*
3950         t176;
3951     t589 = .003478571519999999*grada*gradb*t23*t69*t176-1.1395844352E-4*
3952         grada*gradb*t23*t62*t67*t176+1.2451710873600001E-6*grada*gradb*
3953         t23*t68*t65*t176-5.436600975360001E-9*grada*gradb*t23*t66*
3954         t140*t176+7.9002418176E-12*grada*gradb*t23*t63*t299*t176-7.785065087999998E-5*
3955         grada*t208*t23*t67*t175+2.27079707904E-6*grada*t208*t23*t62*
3956         t65*t175-2.3096954511360004E-8*grada*t208*t23*t68*t140*t175+
3957         9.73494982656E-11*grada*t208*t23*t66*t299*t175-1.422043527168E-13*
3958         grada*t208*t23*t63*t485*t175;
3959     t590 = 1/pow(rhob,19.66666666666667);
3960     t591 = -0.03400992*t162*t176+4.644729024000001*t60*t160*
3961         t175-9.660890649600002*t159*t157*t174+6.508088401920002*t156*
3962         t154*t173-1.95222669312*t152*t171*t172+.2718246297600001*t170*
3963         t313*t352-.01436727705600001*t312*t534*t590;
3964     t592 = .007696661333333334*t168*t176-.003943071658666666*
3965         t60*t167*t175+1.581834315093333E-4*t159*t166*t174-2.2259240850773332E-6*
3966         t156*t165*t173+1.435144661674667E-8*t152*t185*t172-4.355718731093333E-11*
3967         t170*t328*t352+5.057596620799999E-14*t312*t551*t590;
3968     t593 = -0.07303456*t70*t176+0.00304036416*t62*t69*t176-
3969         3.8737036799999996E-5*t68*t67*t176+1.8263480832E-7*t66*t65*
3970         t176-2.6334139392E-10*t63*t140*t176+.008696428799999998*t60*
3971         t69*t175-2.8489610879999994E-4*t60*t62*t67*t175+3.1129277184000004E-6*
3972         t60*t68*t65*t175-1.3591502438400002E-8*t60*t66*t140*t175+1.9750604544E-11*
3973         t60*t63*t299*t175-7.785065087999998E-5*t159*t67*t174+2.27079707904E-6*
3974         t159*t62*t65*t174-2.3096954511360004E-8*t159*t68*t140*t174+
3975         9.73494982656E-11*t159*t66*t299*t174-1.422043527168E-13*t159*
3976         t63*t485*t174;
3977     t594 = 1/pow(rhoa,18.66666666666667);
3978     t595 = -1.744324128*grada*t31*t32+5.062341676800001*t200*
3979         t28*t29-3.988298672640001*t199*t25*t26+1.31417883648*t198*
3980         t44*t197-.1948889241600001*t196*t213*t356+.01077545779200001*
3981         t306*t366*t594;
3982     t596 = 0.001490196864*grada*t40*t32-8.300400076799999E-5*
3983         t200*t39*t29+1.358983016448E-6*t199*t38*t26-9.604340121600001E-9*
3984         t198*t58*t197+3.10873915392E-11*t196*t228*t356-3.793197465599999E-14*
3985         t306*t383*t594;
3986     t597 = -0.00391339296*grada*t32*t69+1.2820324896E-4*grada*
3987         t32*t62*t67+5.838798816E-5*t200*t29*t67-1.4008174732800002E-6*
3988         grada*t32*t68*t65-1.70309780928E-6*t200*t29*t62*t65+6.11617609728E-9*
3989         grada*t32*t66*t140+1.7322715883520004E-8*t200*t29*t68*t140-
3990         8.887772044800001E-12*grada*t32*t63*t299-7.30121236992E-11*
3991         t200*t29*t66*t299+1.066532645376E-13*t200*t29*t63*t485;
3992     t598 = -0.00130446432*gradb*t23*t69*t61+4.2734416319999996E-5*
3993         gradb*t23*t62*t67*t61+5.838798816E-5*t22*gradb*t32*t67*t61-
3994         4.669391577600001E-7*gradb*t23*t68*t65*t61-1.70309780928E-6*
3995         t22*gradb*t32*t62*t65*t61+2.0387253657600002E-9*gradb*t23*
3996         t66*t140*t61+1.7322715883520004E-8*t22*gradb*t32*t68*t140*
3997         t61-2.962590681600001E-12*gradb*t23*t63*t299*t61-7.30121236992E-11*
3998         t22*gradb*t32*t66*t299*t61+1.066532645376E-13*t22*gradb*t32*
3999         t63*t485*t61;
4000     t599 = -0.00130446432*grada*t23*t69*t61+4.2734416319999996E-5*
4001         grada*t23*t62*t67*t61-4.669391577600001E-7*grada*t23*t68*t65*
4002         t61+2.0387253657600002E-9*grada*t23*t66*t140*t61-2.962590681600001E-12*
4003         grada*t23*t63*t299*t61+5.838798816E-5*grada*t60*t23*t67*t161-
4004         1.70309780928E-6*grada*t60*t23*t62*t65*t161+1.7322715883520004E-8*
4005         grada*t60*t23*t68*t140*t161-7.30121236992E-11*grada*t60*t23*
4006         t66*t299*t161+1.066532645376E-13*grada*t60*t23*t63*t485*t161;
4007     t600 = 1/
4008         pow(rhob,18.66666666666667);
4009     t601 = -1.744324128*gradb*t160*t161+5.062341676800001*
4010         t208*t157*t158-3.988298672640001*t207*t154*t155+1.31417883648*
4011         t206*t171*t205-.1948889241600001*t204*t313*t361+.01077545779200001*
4012         t351*t534*t600;
4013     t602 = 0.001490196864*gradb*t167*t161-8.300400076799999E-5*
4014         t208*t166*t158+1.358983016448E-6*t207*t165*t155-9.604340121600001E-9*
4015         t206*t185*t205+3.10873915392E-11*t204*t328*t361-3.793197465599999E-14*
4016         t351*t551*t600;
4017     t603 = -0.00391339296*gradb*t69*t161+1.2820324896E-4*
4018         gradb*t62*t67*t161-1.4008174732800002E-6*gradb*t68*t65*t161+
4019         6.11617609728E-9*gradb*t66*t140*t161-8.887772044800001E-12*
4020         gradb*t63*t299*t161+5.838798816E-5*t208*t67*t158-1.70309780928E-6*
4021         t208*t62*t65*t158+1.7322715883520004E-8*t208*t68*t140*t158-
4022         7.30121236992E-11*t208*t66*t299*t158+1.066532645376E-13*t208*
4023         t63*t485*t158;
4024     t604 = pow(grada,16.0);
4025     t605 = 1/pow(t24,8.0);
4026     t606 = 1/pow(rhoa,25.33333333333333);
4027     t607 = 1/pow(rhoa,22.66666666666667);
4028     t608 = 1/pow(rhoa,20.0);
4029     t609 = 1/pow(rhoa,17.33333333333333);
4030     t610 = 1/pow(rhoa,14.66666666666667);
4031     t611 = 1/pow(rhoa,12.0);
4032     t612 = 1/pow(rhoa,9.333333333333334);
4033     t613 = 1/pow(rhoa,6.666666666666667);
4034     t614 = 1/pow(t19,4.0);
4035     t615 = pow(t56,4.0);
4036     t616 = 1/pow(t18,8.0);
4037     t617 = 1/pow(t18,7.0);
4038     t618 = pow(t227,2.0);
4039     t619 = 1/pow(rhoa,3.0);
4040     t620 = pow(M_PI,1.333333333333333);
4041     t621 = 21.42414814814815*t1*t2*t4/pow(rhoa,4.333333333333333)+
4042         1.227260416666667*t23*t5*t620/pow(t7,11.0)+3.272694444444445*
4043         t5*M_PI*t380*t619+3.921916666666666*t10*t11*M_PI*t226*t619+6.972296296296296*
4044         t10*t11*t3*t8*t49+2.493481481481481*t5*t3*t55*t49+6.797988888888888*
4045         t10*t11*t14*t55*t379+4.051907407407407*t5*t14*t226*t379+1.143892361111111*
4046         t10*t11*t620*t380*t23+6.79197037037037*t12*t13*t15*t219;
4047     t622 = 1/
4048         pow(t37,8.0);
4049     t623 = 2069.000588228246*t75*t399*t400*t401;
4050     t624 = -385.9637837316264*t75*t399*t403*t238;
4051     t625 = 192.9818918658132*t75*t245*t107*t237*t238;
4052     t626 = -13.74674343057476*t1*t2*t4*t105*t236*t237*t238;
4053     t627 = 24.0*
4054         t75*t399*t237*t109;
4055     t628 = -24.0*t75*t245*t107*t240*t109;
4056     t629 = 1.7096*t1*t2*t4*t105*t236*t240*t109;
4057     t630 = 4.0*t75*t413*t108*t109;
4058     t631 = -.8547999999999998*t1*t2*t4*t105*t245*t108*t109;
4059     t632 = 1.139733333333333*
4060         t1*t2*t4*t243*t107*t108*t109;
4061     t633 = -4101.558808403119*t84*t88*t89*t93*t417*t418*t419;
4062     t634 = 415.5781415850208*
4063         t84*t88*t89*t93*t417*t421*t250;
4064     t635 = -207.7890707925104*t84*t88*t89*t93*t254*t111*t249*
4065         t250;
4066     t636 = 7.70551137522226*t84*t1*t2*t4*t105*t88*t93*t248*
4067         t249*t250;
4068     t637 = -14.03573615389249*t84*t88*t89*t93*t417*t249*t113;
4069     t638 = 14.03573615389249*
4070         t84*t88*t89*t93*t254*t111*t252*t113;
4071     t639 = -.5204918823735132*t84*t1*t2*t4*t105*t88*t93*t248*
4072         t252*t113;
4073     t640 = -2.339289358982082*t84*t88*t89*t93*t432*t112*t113;
4074     t641 = .2602459411867566*
4075         t84*t1*t2*t4*t105*t88*t93*t254*t112*t113;
4076     t642 = -.3469945882490088*t84*t1*t2*t4*t243*t88*t93*t111*
4077         t112*t113;
4078     t643 = .05512180965925926*t1*t2*t4*t411*t82;
4079     t644 = -0.00911508517385046*t84*t1*t2*t4*t411*t88*t93*
4080         t96;
4081     t645 = 4.0*t469*t84*t86*t87*t93;
4082     t646 = -48.0*t127*t288*t84*t86*t93;
4083     t647 = 240.0*t135*t277*t84*t86*t93;
4084     t648 = 144.0*t135*t279*t84*t87*t93;
4085     t649 = -480.0*t102*t458*t84*t86*t93;
4086     t650 = -576.0*t102*t127*t279*t84*t93;
4087     t651 = pow(t107,4.0);
4088     t652 = 1/pow(t80,8.0);
4089     t653 = 1/pow(t81,4.0);
4090     t654 = 24954.97798673546*t75*t651*t652*t653;
4091     t655 = 1/pow(t80,7.0);
4092     t656 = -6207.001764684737*t75*t651*t655*t401;
4093     t657 = 3103.500882342369*t75*t245*t236*t400*t401;
4094     t658 = -147.3818085681254*t1*t2*t4*t105*t399*t400*t401;
4095     t659 = 578.9456755974396*
4096         t75*t651*t400*t238;
4097     t660 = -578.9456755974396*t75*t245*t236*t403*t238;
4098     t661 = 27.49348686114952*t1*t2*t4*t105*t399*t403*t238;
4099     t662 = pow(t245,
4100         2.0);
4101     t663 = 48.2454729664533*t75*t662*t237*t238;
4102     t664 = 64.3272972886044*t75*t413*t107*t237*t238;
4103     t665 = -13.74674343057476*t1*t2*t4*t105*t245*t107*t237*
4104         t238;
4105     t666 = 9.164495620383173*t1*t2*t4*t243*t236*t237*t238;
4106     t667 = -
4107         24.0*t75*t651*t403*t109;
4108     t668 = 36.0*t75*t245*t236*t237*t109;
4109     t669 = -1.7096*t1*t2*t4*t105*t399*t237*t109;
4110     t670 = -6.0*t75*t662*t240*t109;
4111     t671 = -8.0*t75*t413*t107*t240*t109;
4112     t672 = 1.7096*t1*t2*t4*t105*t245*t107*t240*t109;
4113     t673 = -1.139733333333333*t1*t2*t4*t243*t236*t240*t109;
4114     t674 = 1/
4115         pow(t72,4.666666666666667);
4116     t675 = 1/pow(t72,4.333333333333333);
4117     t676 = 1/pow(t77,11.0);
4118     t677 = 3.750962962962963*t10*t11*t3*t410*t78+3.657188888888888*
4119         t10*t11*t14*t411*t106+1.213481481481482*t5*t3*t410*t106+2.109916666666666*
4120         t10*t11*M_PI*t262*t244+1.971907407407408*t5*t14*t411*t244+.6153923611111111*
4121         t10*t11*t620*t242*t412+1.592694444444445*t5*M_PI*t262*t412+
4122         .5972604166666668*t5*t620*t242*t676+12.40158024691358*t1*t2*
4123         t4*t675+5.355397530864196*t12*t13*t15*t674;
4124     t678 = .9999999999999999*t75*t677*t108*t109;
4125     t679 = -.2849333333333333*t1*t2*t4*t105*t413*t108*t109;
4126     t680 = .5698666666666665*
4127         t1*t2*t4*t243*t245*t108*t109;
4128     t681 = -.8864592592592592*t1*t2*t4*t411*t107*t108*t109;
4129     t682 = pow(t111,
4130         4.0);
4131     t683 = -91080.98259910994*t682*t84*t88*t89*t93/(pow(t94,
4132         8.0)*pow(t95,4.0));
4133     t684 = 12304.67642520936*t419*t682*t84*t88*t89*t93/pow(t94,
4134         7.0);
4135     t685 = -6152.338212604678*t84*t88*t89*t93*t254*t248*t418*
4136         t419;
4137     t686 = 152.0994724782823*t84*t1*t2*t4*t105*t88*t93*t417*
4138         t418*t419;
4139     t687 = -623.3672123775311*t84*t88*t89*t93*t682*t418*t250;
4140     t688 = 623.3672123775311*
4141         t84*t88*t89*t93*t254*t248*t421*t250;
4142     t689 = -15.41102275044452*t84*t1*t2*t4*t105*t88*t93*t417*
4143         t421*t250;
4144     t690 = pow(t254,2.0);
4145     t691 = -51.9472676981276*t84*t88*t89*t93*t690*t249*t250;
4146     t692 = -
4147         69.26302359750346*t84*t88*t89*t93*t432*t111*t249*t250;
4148     t693 = 7.70551137522226*t84*t1*t2*t4*t105*t88*t93*t254*
4149         t111*t249*t250;
4150     t694 = -5.137007583481506*t84*t1*t2*t4*t243*t88*t93*t248*
4151         t249*t250;
4152     t695 = 14.03573615389249*t84*t88*t89*t93*t682*t421*t113;
4153     t696 = -
4154         21.05360423083874*t84*t88*t89*t93*t254*t248*t249*t113;
4155     t697 = .5204918823735132*t84*t1*t2*t4*t105*t88*t93*t417*
4156         t249*t113;
4157     t698 = 3.508934038473122*t84*t88*t89*t93*t690*t252*t113;
4158     t699 = 4.678578717964164*
4159         t84*t88*t89*t93*t432*t111*t252*t113;
4160     t700 = -.5204918823735132*t84*t1*t2*t4*t105*t88*t93*t254*
4161         t111*t252*t113;
4162     t701 = .3469945882490088*t84*t1*t2*t4*t243*t88*t93*t248*
4163         t252*t113;
4164     t702 = -.5848223397455204*t84*t88*t89*t93*(5.114567901234566*
4165         t10*t11*t3*t410*t78+4.986703703703703*t10*t11*t14*t411*t106+
4166         .6520444444444444*t5*t3*t410*t106+2.876944444444444*t10*t11*
4167         M_PI*t262*t244+1.059572222222222*t5*t14*t411*t244+.8391087962962963*
4168         t10*t11*t620*t242*t412+.8558083333333334*t5*M_PI*t262*t412+
4169         0.320928125*t5*t620*t242*t676+12.5242962962963*t1*t2*t4*t675+
4170         5.396355555555555*t12*t13*t15*t674)*t112*t113;
4171     t703 = .08674864706225219*t84*t1*t2*t4*t105*t88*t93*t432*
4172         t112*t113;
4173     t704 = -.1734972941245044*t84*t1*t2*t4*t243*t88*t93*t254*
4174         t112*t113;
4175     t705 = 0.269884679749229*t84*t1*t2*t4*t411*t88*t93*t111*
4176         t112*t113;
4177     t706 = -.04593484138271605*t1*t2*t4*t675*t82;
4178     t707 = 1/pow(t91,2.666666666666667);
4179     t708 = -24.0*t127*t85;
4180     t709 = 24.0*t87;
4181     t710 = 1/pow(t92,2.666666666666667);
4182     t711 = 24.0*t127*t85;
4183     t712 = -24.0*t87;
4184     t713 = 1.333333333333333*t123*(t712+t711)+.4938271604938271*
4185         pow(t122,4.0)*t710+1.333333333333333*t120*(t709+t708)+.4938271604938271*
4186         pow(t119,4.0)*t707+1.777777777777778*t122*t267*t450-1.777777777777778*
4187         t266*t270*t447+1.777777777777778*t119*t261*t445-1.777777777777778*
4188         t260*t265*t442+1.333333333333333*t267*pow(t270,2.0)+1.333333333333333*
4189         t261*pow(t265,2.0);
4190     t714 = .007595904311542051*t84*t1*t2*t4*t675*t88*t93*
4191         t96;
4192     t715 = 1/pow(t72,8.0);
4193     t716 = -840.0*t715*t86;
4194     t717 = -1440.0*t277*t279;
4195     t718 = pow(t132,4.0);
4196     t719 = pow(t287,2.0);
4197     t720 = t84*t86*t87*t93*(199659.0885685683*t718*t98/(pow(t100,
4198         4.0)*pow(t99,8.0))-24829.60425438716*t466*t718*t98/pow(t99,
4199         7.0)+.04593484138271605*t1*t2*t4*t675*t82-24954.97798673546*
4200         t75*t651*t652*t653-566.8874535768302*t1*t2*t4*t105*t464*t465*
4201         t466+12414.80212719358*t98*t287*t283*t465*t466+6207.001764684737*
4202         t75*t651*t655*t401+147.3818085681254*t1*t2*t4*t105*t399*t400*
4203         t401-3103.500882342369*t75*t245*t236*t400*t401+52.87359279511096*
4204         t1*t2*t4*t105*t464*t467*t285-1157.928594403345*t98*t287*t283*
4205         t467*t285+1157.928594403345*t98*t718*t465*t285+96.4940495336121*
4206         t98*t719*t284*t285+17.62453093170365*t1*t2*t4*t243*t283*t284*
4207         t285+128.6587327114828*t98*t468*t132*t284*t285-26.43679639755548*
4208         t1*t2*t4*t105*t287*t132*t284*t285-27.49348686114952*t1*t2*
4209         t4*t105*t399*t403*t238+578.9456755974396*t75*t245*t236*t403*
4210         t238-578.9456755974396*t75*t651*t400*t238-48.2454729664533*
4211         t75*t662*t237*t238-9.164495620383173*t1*t2*t4*t243*t236*t237*
4212         t238-64.3272972886044*t75*t413*t107*t237*t238+13.74674343057476*
4213         t1*t2*t4*t105*t245*t107*t237*t238-24.0*t98*t718*t467*t134-
4214         6.0*t98*t719*t286*t134-1.095893333333333*t1*t2*t4*t243*t283*
4215         t286*t134-8.0*t98*t468*t132*t286*t134+1.64384*t1*t2*t4*t105*
4216         t287*t132*t286*t134-1.64384*t1*t2*t4*t105*t464*t284*t134+36.0*
4217         t98*t287*t283*t284*t134+1.0*t98*(6.972296296296296*t10*t11*
4218         t3*t410*t78+6.797988888888888*t10*t11*t14*t411*t106+2.493481481481481*
4219         t5*t3*t410*t106+3.921916666666666*t10*t11*M_PI*t262*t244+4.051907407407407*
4220         t5*t14*t411*t244+1.143892361111111*t10*t11*t620*t242*t412+
4221         3.272694444444445*t5*M_PI*t262*t412+1.227260416666667*t5*t620*
4222         t242*t676+21.42414814814815*t1*t2*t4*t675+6.79197037037037*
4223         t12*t13*t15*t674)*t133*t134-.2739733333333333*t1*t2*t4*t105*
4224         t468*t133*t134+.5479466666666666*t1*t2*t4*t243*t287*t133*t134-
4225         .8523614814814813*t1*t2*t4*t411*t132*t133*t134+24.0*t75*t651*
4226         t403*t109+6.0*t75*t662*t240*t109+1.139733333333333*t1*t2*t4*
4227         t243*t236*t240*t109+8.0*t75*t413*t107*t240*t109-1.7096*t1*
4228         t2*t4*t105*t245*t107*t240*t109+1.7096*t1*t2*t4*t105*t399*t237*
4229         t109-36.0*t75*t245*t236*t237*t109-.9999999999999999*t75*t677*
4230         t108*t109+.2849333333333333*t1*t2*t4*t105*t413*t108*t109-.5698666666666665*
4231         t1*t2*t4*t243*t245*t108*t109+.8864592592592592*t1*t2*t4*t411*
4232         t107*t108*t109-.02208326538271604*t1*t2*t4*t675*t101);
4233     t721 = -16.0*t127*t469*t84*t86*t93;
4234     t722 = 120.0*t277*t288*t84*t86*t93;
4235     t723 = 72.0*t279*t288*t84*t87*t93;
4236     t724 = -480.0*t135*t458*t84*t86*t93;
4237     t725 = -576.0*t127*t135*t279*t84*t93;
4238     t726 = 840.0*t102*t715*t84*t86*t93;
4239     t727 = 1440.0*t102*t277*t279*t84*t93;
4240     t728 = 24.0*t102*t84*t87*t93;
4241     t729 = 1/pow(t64,8.0);
4242     t730 = -3.508934038473122*t84*t88*t89*t301*t111*t112*
4243         t113;
4244     t731 = -3.508934038473122*t84*t130*t89*t189*t111*t112*
4245         t113;
4246     t732 = -3.508934038473122*t84*t191*t89*t124*t111*t112*
4247         t113;
4248     t733 = -3.508934038473122*t84*t302*t89*t93*t111*t112*
4249         t113;
4250     t734 = -.004394773208820758*t84*t1*t2*t4*t105*t88*t301*
4251         t96;
4252     t735 = -.004394773208820758*t84*t1*t2*t4*t105*t130*t189*
4253         t96;
4254     t736 = -.004394773208820758*t84*t1*t2*t4*t105*t191*t124*
4255         t96;
4256     t737 = -.004394773208820758*t84*t1*t2*t4*t105*t302*t93*
4257         t96;
4258     t738 = 6.0*t135*t301*t84*t86*t87;
4259     t739 = -24.0*t102*t127*t301*t84*t86;
4260     t740 = -51.9472676981276*t84*t88*t89*t301*t248*t249*t250;
4261     t741 = -
4262         51.9472676981276*t84*t130*t89*t189*t248*t249*t250;
4263     t742 = -51.9472676981276*t84*t191*t89*t124*t248*t249*
4264         t250;
4265     t743 = -51.9472676981276*t84*t302*t89*t93*t248*t249*t250;
4266     t744 = 3.508934038473122*
4267         t84*t88*t89*t301*t248*t252*t113;
4268     t745 = 3.508934038473122*t84*t130*t89*t189*t248*t252*
4269         t113;
4270     t746 = 3.508934038473122*t84*t191*t89*t124*t248*t252*
4271         t113;
4272     t747 = 3.508934038473122*t84*t302*t89*t93*t248*t252*t113;
4273     t748 = -
4274         1.754467019236561*t84*t88*t89*t301*t254*t112*t113;
4275     t749 = -1.754467019236561*t84*t130*t89*t189*t254*t112*
4276         t113;
4277     t750 = -1.754467019236561*t84*t191*t89*t124*t254*t112*
4278         t113;
4279     t751 = -1.754467019236561*t84*t302*t89*t93*t254*t112*
4280         t113;
4281     t752 = .1301229705933783*t84*t1*t2*t4*t105*t88*t301*t111*
4282         t112*t113;
4283     t753 = .1301229705933783*t84*t1*t2*t4*t105*t130*t189*
4284         t111*t112*t113;
4285     t754 = .1301229705933783*t84*t1*t2*t4*t105*t191*t124*
4286         t111*t112*t113;
4287     t755 = .1301229705933783*t84*t1*t2*t4*t105*t302*t93*t111*
4288         t112*t113;
4289     t756 = .002929848805880505*t84*t1*t2*t4*t243*t88*t301*
4290         t96;
4291     t757 = 1.333333333333333*t120*(12.0*t87+t708)+1.333333333333333*
4292         t123*(t711-12.0*t87)-1.777777777777778*t262*t266*t447*t85+
4293         1.777777777777778*t260*t262*t442*t85+2.666666666666667*t262*
4294         t267*t270*t85-2.666666666666667*t261*t262*t265*t85+.4938271604938271*
4295         t188*t446*t710+.4938271604938271*t187*t441*t707+1.333333333333333*
4296         t122*t267*t498+1.333333333333333*t119*t261*t497+.4444444444444444*
4297         t188*t267*t450-.8888888888888888*t122*t188*t270*t447+.4444444444444444*
4298         t187*t261*t445-.8888888888888888*t119*t187*t265*t442;
4299     t758 = .002929848805880505*t84*t1*t2*t4*t243*t130*t189*
4300         t96;
4301     t759 = .002929848805880505*t84*t1*t2*t4*t243*t191*t124*
4302         t96;
4303     t760 = .002929848805880505*t84*t1*t2*t4*t243*t302*t93*
4304         t96;
4305     t761 = 3.0*t288*t301*t84*t86*t87;
4306     t762 = -24.0*t127*t135*t301*t84*t86;
4307     t763 = 60.0*t102*t277*t301*t84*t86;
4308     t764 = 36.0*t102*t279*t301*t84*t87;
4309     t765 = -24.0*t102*t84*t87*t93;
4310     t766 = pow(grada,15.0);
4311     t767 = 1/pow(rhoa,24.33333333333333);
4312     t768 = -32.0*t120*t127*t85;
4313     t769 = 32.0*t123*t127*t85;
4314     t770 = -5.333333333333333*t122*t267*t85*t87+5.333333333333333*
4315         t119*t261*t85*t87-2.37037037037037*t122*t188*t262*t447*t85+
4316         2.37037037037037*t119*t187*t262*t442*t85+t769+t768+.4938271604938271*
4317         t266*t334*t710+.4938271604938271*t260*t332*t707+.8888888888888888*
4318         t188*t267*t498+.8888888888888888*t187*t261*t497-.2962962962962963*
4319         t266*t335*t447-.2962962962962963*t270*t334*t447-.2962962962962963*
4320         t260*t333*t442-.2962962962962963*t265*t332*t442+.4444444444444444*
4321         t267*t270*t335+.4444444444444444*t261*t265*t333+3.555555555555555*
4322         t267*t277*t279+3.555555555555555*t261*t277*t279-1.777777777777778*
4323         t122*t262*t267+1.777777777777778*t119*t261*t262;
4324     t771 = 1/pow(rhoa,23.33333333333333);
4325     t772 = -8.0*t188*t267*t85*t87+8.0*t187*t261*t85*t87+16.0*
4326         t123*t87-16.0*t120*t87-1.777777777777778*t262*t334*t447*t85+
4327         1.777777777777778*t262*t332*t442*t85+2.666666666666667*t262*
4328         t267*t335*t85-2.666666666666667*t261*t262*t333*t85+t769+t768+
4329         .4938271604938271*t122*t563*t710+.4938271604938271*t119*t561*
4330         t707+.4444444444444444*t122*t267*t564+.4444444444444444*t119*
4331         t261*t562-.8888888888888888*t122*t188*t335*t447-.8888888888888888*
4332         t119*t187*t333*t442-2.666666666666667*t188*t262*t267+2.666666666666667*
4333         t187*t261*t262;
4334     t773 = 1/pow(rhoa,22.33333333333333);
4335     t774 = pow(gradb,16.0);
4336     t775 = 1/pow(t153,8.0);
4337     t776 = 1/pow(rhob,25.33333333333333);
4338     t777 = 1/pow(rhob,22.66666666666667);
4339     t778 = 1/pow(rhob,20.0);
4340     t779 = 1/pow(rhob,17.33333333333333);
4341     t780 = 1/pow(rhob,14.66666666666667);
4342     t781 = 1/pow(rhob,12.0);
4343     t782 = 1/pow(rhob,9.333333333333334);
4344     t783 = 1/pow(rhob,6.666666666666667);
4345     t784 = 1/pow(t148,4.0);
4346     t785 = pow(t183,4.0);
4347     t786 = 1/pow(t147,8.0);
4348     t787 = 1/pow(t147,7.0);
4349     t788 = pow(t327,2.0);
4350     t789 = 1/pow(rhob,3.0);
4351     t790 = 21.42414814814815*t1*t2*t4/pow(rhob,4.333333333333333)+
4352         3.272694444444445*t5*M_PI*t548*t789+3.921916666666666*t10*t11*
4353         M_PI*t326*t789+1.227260416666667*t5*t61*t620/pow(t143,11.0)+
4354         1.143892361111111*t10*t11*t620*t548*t61+4.051907407407407*
4355         t5*t14*t326*t547+6.797988888888888*t10*t11*t14*t182*t547+6.79197037037037*
4356         t12*t13*t15*t319+2.493481481481481*t5*t3*t182*t176+6.972296296296296*
4357         t10*t11*t3*t144*t176;
4358     t791 = 1/pow(t164,8.0);
4359     t792 = 1.333333333333333*t120*(t712+t708)+.4938271604938271*
4360         pow(t188,4.0)*t710+1.333333333333333*t123*(t709+t711)+.4938271604938271*
4361         pow(t187,4.0)*t707+1.777777777777778*t188*t267*t564+1.777777777777778*
4362         t187*t261*t562-1.777777777777778*t334*t335*t447-1.777777777777778*
4363         t332*t333*t442+1.333333333333333*t267*pow(t335,2.0)+1.333333333333333*
4364         t261*pow(t333,2.0);
4365     t793 = pow(gradb,15.0);
4366     t794 = 1/pow(rhob,24.33333333333333);
4367     t795 = 1/pow(rhob,23.33333333333333);
4368     t796 = 1/pow(rhob,22.33333333333333);
4369     t797 = 1/pow(rhoa,21.33333333333333);
4370     t798 = 1/pow(rhob,21.33333333333333);
4371 
4372    /* code */
4373     dfdra = 1.0*t51*t34*t56*t35*t57*rhoa-0.03109*t20*t50*
4374         t35*rhoa-1.0*t36*t4*t42*t6-0.75*t36*t4*t53*t59-0.03109*t20*
4375         t34*t35+.002129457733333333*t1*t2*t4*t20*t34*t17+t141*t151+
4376         t71*t139;
4377     dfdrb = 1.0*t178*t163*t183*t150*t184*rhob-0.03109*t149*
4378         t177*t150*rhob-0.75*t180*t186*t36*t4-1.0*t142*t169*t36*t4+
4379         t71*t194+t195*t151-0.03109*t149*t163*t150+.002129457733333333*
4380         t1*t2*t4*t149*t163*t146;
4381     dfdga = -0.03109*t20*t201*t35*rhoa-0.75*t202*t36*t4*t53+
4382         t203*t151;
4383     dfdgb = -0.03109*t149*t209*t150*rhob-0.75*t180*t210*t36*
4384         t4+t211*t151;
4385     dfdgab = 0.0;
4386     d2fdrara = 2.0*t51*t50*t56*t35*t57*rhoa+1.0*t51*t34*t227*
4387         t35*t57*rhoa-0.03109*t20*t220*t35*rhoa-2.0*t51*t34*t222*t35*
4388         t224*rhoa+32.1646831778707*t221*t34*t222*t35*t223*rhoa-2.0*
4389         t36*t4*t59*t6+2.0*t51*t34*t56*t35*t57+.001419638488888889*
4390         t1*t2*t4*t20*t34*t54-0.75*t229*t36*t4*t53-.3333333333333333*
4391         t16*t36*t4*t42-0.06218*t20*t50*t35+t71*t298-.1369866666666666*
4392         t1*t2*t4*t51*t34*t56*t57*t17+.004258915466666666*t1*t2*t4*
4393         t20*t50*t17+t300*t151+2.0*t139*t141;
4394     d2fdrarb = t305*t151+t195*t139+t141*t194+t71*t304;
4395     d2fdraga = 1.0*t51*t201*t56*t35*t57*rhoa-0.03109*t20*
4396         t308*t35*rhoa-1.0*t202*t36*t4*t6-0.75*t309*t36*t4*t53-0.03109*
4397         t20*t201*t35+.002129457733333333*t1*t2*t4*t20*t201*t17+t310*
4398         t151+t203*t139;
4399     d2fdragb = t311*t151+t211*t139;
4400     d2fdraab = 0.0;
4401     d2fdrbrb = -2.0*t178*t163*t322*t150*t324*rhob+32.1646831778707*
4402         t321*t163*t322*t150*t323*rhob+1.0*t178*t163*t327*t150*t184*
4403         rhob+2.0*t178*t177*t183*t150*t184*rhob-0.03109*t149*t320*t150*
4404         rhob-0.75*t180*t329*t36*t4-2.0*t142*t186*t36*t4-.3333333333333333*
4405         t145*t169*t36*t4+t71*t348+2.0*t194*t195+2.0*t178*t163*t183*
4406         t150*t184+.001419638488888889*t1*t2*t4*t149*t163*t181+t349*
4407         t151-0.06218*t149*t177*t150-.1369866666666666*t1*t2*t4*t178*
4408         t163*t183*t184*t146+.004258915466666666*t1*t2*t4*t149*t177*
4409         t146;
4410     d2fdrbga = t350*t151+t203*t194;
4411     d2fdrbgb = 1.0*t178*t209*t183*t150*t184*rhob-0.03109*
4412         t149*t353*t150*rhob-0.75*t180*t354*t36*t4-1.0*t142*t210*t36*
4413         t4+t211*t194+t355*t151-0.03109*t149*t209*t150+.002129457733333333*
4414         t1*t2*t4*t149*t209*t146;
4415     d2fdrbgab = 0.0;
4416     d2fdgaga = -0.03109*t20*t357*t35*rhoa-0.75*t358*t36*t4*
4417         t53+t359*t151;
4418     d2fdgagb = t360*t151;
4419     d2fdgagab = 0.0;
4420     d2fdgbgb = -0.03109*t149*t362*t150*rhob-0.75*t180*t36*
4421         t363*t4+t364*t151;
4422     d2fdgbgab = 0.0;
4423     d2fdgabgab = 0.0;
4424     d3fdrarara = 3.0*t51*t220*t56*t35*t57*rhoa+1.0*t51*t34*
4425         t382*t35*t57*rhoa+3.0*t51*t50*t227*t35*t57*rhoa-192.9880990672242*
4426         t221*t34*t376*t35*t378*rhoa+2069.133687865597*t375*t34*t376*
4427         t35*t377*rhoa-0.03109*t20*t374*t35*rhoa-6.0*t51*t34*t227*t56*
4428         t35*t224*rhoa-6.0*t51*t50*t222*t35*t224*rhoa+96.4940495336121*
4429         t221*t34*t227*t56*t35*t223*rhoa+6.0*t51*t34*t376*t35*t223*
4430         rhoa+96.4940495336121*t221*t50*t222*t35*t223*rhoa-3.0*t229*
4431         t36*t4*t6-1.0*t16*t36*t4*t59+6.0*t51*t50*t56*t35*t57+3.0*t51*
4432         t34*t227*t35*t57-.1369866666666666*t1*t2*t4*t51*t34*t56*t57*
4433         t54+.004258915466666666*t1*t2*t4*t20*t50*t54-0.75*t36*t384*
4434         t4*t53+.2222222222222222*t36*t4*t42*t52+t71*t484-.09326999999999999*
4435         t20*t220*t35+3.0*t139*t300+3.0*t141*t298-.001892851318518518*
4436         t1*t2*t4*t20*t34*t225-6.0*t51*t34*t222*t35*t224+96.4940495336121*
4437         t221*t34*t222*t35*t223-.4109599999999999*t1*t2*t4*t51*t50*
4438         t56*t57*t17-0.20548*t1*t2*t4*t51*t34*t227*t57*t17+.4109599999999999*
4439         t1*t2*t4*t51*t34*t222*t224*t17-6.60919909938887*t1*t2*t4*t221*
4440         t34*t222*t223*t17+.006388373199999998*t1*t2*t4*t20*t220*t17+
4441         t486*t151;
4442     d3fdrararb = t71*t512+2.0*t139*t305+2.0*t141*t304+t195*
4443         t298+t300*t194+t513*t151;
4444     d3fdraraga = 2.0*t51*t308*t56*t35*t57*rhoa+1.0*t51*t201*
4445         t227*t35*t57*rhoa-0.03109*t20*t516*t35*rhoa-2.0*t51*t201*t222*
4446         t35*t224*rhoa+32.1646831778707*t221*t201*t222*t35*t223*rhoa-
4447         2.0*t309*t36*t4*t6+2.0*t51*t201*t56*t35*t57+.001419638488888889*
4448         t1*t2*t4*t20*t201*t54-0.75*t36*t4*t517*t53-.3333333333333333*
4449         t16*t202*t36*t4-0.06218*t20*t308*t35+2.0*t139*t310+t203*t298-
4450         .1369866666666666*t1*t2*t4*t51*t201*t56*t57*t17+.004258915466666666*
4451         t1*t2*t4*t20*t308*t17+t518*t151;
4452     d3fdraragb = 2.0*t139*t311+t211*t298+t519*t151;
4453     d3fdraraab = 0.0;
4454     d3fdrarbrb = t71*t523+t141*t348+2.0*t194*t305+2.0*t195*
4455         t304+t524*t151+t349*t139;
4456     d3fdrarbga = t525*t151+t350*t139+t310*t194+t203*t304;
4457     d3fdrarbgb = t526*
4458         t151+t355*t139+t311*t194+t211*t304;
4459     d3fdrarbab = 0.0;
4460     d3fdragaga = 1.0*t51*t357*t56*t35*t57*rhoa-0.03109*t20*
4461         t528*t35*rhoa-1.0*t358*t36*t4*t6-0.75*t36*t4*t529*t53-0.03109*
4462         t20*t357*t35+.002129457733333333*t1*t2*t4*t20*t357*t17+t530*
4463         t151+t359*t139;
4464     d3fdragagb = t531*t151+t360*t139;
4465     d3fdragaab = 0.0;
4466     d3fdragbgb = t532*t151+t364*t139;
4467     d3fdragbab = 0.0;
4468     d3fdraabab = 0.0;
4469     d3fdrbrbrb = -192.9880990672242*t321*t163*t544*t150*t546*
4470         rhob+2069.133687865597*t543*t163*t544*t150*t545*rhob-6.0*t178*
4471         t177*t322*t150*t324*rhob-6.0*t178*t163*t327*t183*t150*t324*
4472         rhob+6.0*t178*t163*t544*t150*t323*rhob+96.4940495336121*t321*
4473         t177*t322*t150*t323*rhob+96.4940495336121*t321*t163*t327*t183*
4474         t150*t323*rhob+1.0*t178*t163*t550*t150*t184*rhob+3.0*t178*
4475         t177*t327*t150*t184*rhob+3.0*t178*t320*t183*t150*t184*rhob-
4476         0.03109*t149*t542*t150*rhob+t71*t580-0.75*t180*t36*t4*t552-
4477         3.0*t142*t329*t36*t4-1.0*t145*t186*t36*t4+.2222222222222222*
4478         t169*t179*t36*t4+3.0*t194*t349+3.0*t195*t348-.001892851318518518*
4479         t1*t2*t4*t149*t163*t325-6.0*t178*t163*t322*t150*t324+96.4940495336121*
4480         t321*t163*t322*t150*t323+3.0*t178*t163*t327*t150*t184+6.0*
4481         t178*t177*t183*t150*t184-.1369866666666666*t1*t2*t4*t178*t163*
4482         t183*t184*t181+.004258915466666666*t1*t2*t4*t149*t177*t181+
4483         t581*t151-.09326999999999999*t149*t320*t150+.4109599999999999*
4484         t1*t2*t4*t178*t163*t322*t324*t146-6.60919909938887*t1*t2*t4*
4485         t321*t163*t322*t323*t146+.006388373199999998*t1*t2*t4*t149*
4486         t320*t146-0.20548*t1*t2*t4*t178*t163*t327*t184*t146-.4109599999999999*
4487         t1*t2*t4*t178*t177*t183*t184*t146;
4488     d3fdrbrbga = 2.0*t194*t350+t203*t348+t582*t151;
4489     d3fdrbrbgb = -2.0*t178*t209*t322*t150*t324*rhob+32.1646831778707*
4490         t321*t209*t322*t150*t323*rhob+1.0*t178*t209*t327*t150*t184*
4491         rhob+2.0*t178*t353*t183*t150*t184*rhob-0.03109*t149*t585*t150*
4492         rhob-0.75*t180*t36*t4*t586-2.0*t142*t354*t36*t4-.3333333333333333*
4493         t145*t210*t36*t4+2.0*t194*t355+t211*t348+2.0*t178*t209*t183*
4494         t150*t184+.001419638488888889*t1*t2*t4*t149*t209*t181+t587*
4495         t151-0.06218*t149*t353*t150+.004258915466666666*t1*t2*t4*t149*
4496         t353*t146-.1369866666666666*t1*t2*t4*t178*t209*t183*t184*t146;
4497     d3fdrbrbab = 0.0;
4498     d3fdrbgaga = t588*
4499         t151+t359*t194;
4500     d3fdrbgagb = t589*t151+t360*t194;
4501     d3fdrbgaab = 0.0;
4502     d3fdrbgbgb = 1.0*t178*t362*t183*t150*t184*rhob-0.03109*
4503         t149*t591*t150*rhob-0.75*t180*t36*t4*t592-1.0*t142*t36*t363*
4504         t4+t364*t194+t593*t151-0.03109*t149*t362*t150+.002129457733333333*
4505         t1*t2*t4*t149*t362*t146;
4506     d3fdrbgbab = 0.0;
4507     d3fdrbabab = 0.0;
4508     d3fdgagaga = -0.03109*t20*t595*t35*rhoa-0.75*t36*t4*t53*
4509         t596+t597*t151;
4510     d3fdgagagb = t598*t151;
4511     d3fdgagaab = 0.0;
4512     d3fdgagbgb = t599*t151;
4513     d3fdgagbab = 0.0;
4514     d3fdgaabab = 0.0;
4515     d3fdgbgbgb = -0.03109*t149*t601*t150*rhob-0.75*t180*t36*
4516         t4*t602+t603*t151;
4517     d3fdgbgbab = 0.0;
4518     d3fdgbabab = 0.0;
4519     d3fdababab = 0.0;
4520     d4fdrararara = t71*(24829.60425438716*t375*t615*t35*t617*
4521         rhoa-199659.0885685683*t614*t615*t35*t616*rhoa-1.0*t51*t621*
4522         t35*t57*rhoa+24.0*t51*t615*t35*t378*rhoa+1157.928594403345*
4523         t221*t227*t222*t35*t378*rhoa-1157.928594403345*t221*t615*t35*
4524         t377*rhoa-12414.80212719358*t375*t227*t222*t35*t377*rhoa+6.0*
4525         t51*t618*t35*t224*rhoa+8.0*t51*t382*t56*t35*t224*rhoa-96.4940495336121*
4526         t221*t618*t35*t223*rhoa-128.6587327114828*t221*t382*t56*t35*
4527         t223*rhoa-36.0*t51*t227*t222*t35*t223*rhoa+t72*(.01975178970256521*
4528         t84*(384.0*t127*t85+t717+t716+t712+1920.0*t129*t458)*t89*t93*
4529         t96-.002929848805880505*t84*t1*t2*t4*t105*t462*t93*t96+0.00585969761176101*
4530         t84*t1*t2*t4*t243*t281*t93*t96-0.00911508517385046*t84*t1*
4531         t2*t4*t411*t130*t93*t96+.01975178970256521*t84*t88*t89*t713*
4532         t96+.07900715881026082*t84*t130*t89*t451*t96-.002929848805880505*
4533         t84*t1*t2*t4*t105*t88*t451*t96+.1185107382153912*t84*t281*
4534         t89*t271*t96+0.00585969761176101*t84*t1*t2*t4*t243*t88*t271*
4535         t96-.008789546417641516*t84*t1*t2*t4*t105*t130*t271*t96+.07900715881026082*
4536         t84*t462*t89*t124*t96-0.00911508517385046*t84*t1*t2*t4*t411*
4537         t88*t124*t96-.008789546417641516*t84*t1*t2*t4*t105*t281*t124*
4538         t96+.01171939522352202*t84*t1*t2*t4*t243*t130*t124*t96+96.0*
4539         t135*t84*t85*t87*t93+16.0*t129*t469*t84*t87*t93-384.0*t102*
4540         t127*t84*t85*t93-1920.0*t102*t129*t458*t84*t93-192.0*t127*
4541         t129*t288*t84*t93+960.0*t129*t135*t277*t84*t93+4.0*t124*t469*
4542         t84*t86*t87+4.0*t135*t451*t84*t86*t87+6.0*t271*t288*t84*t86*
4543         t87+96.0*t102*t124*t84*t85*t87+16.0*t102*t129*t451*t84*t87+
4544         48.0*t124*t129*t288*t84*t87+72.0*t102*t271*t279*t84*t87+144.0*
4545         t124*t135*t279*t84*t87+48.0*t129*t135*t271*t84*t87-480.0*t102*
4546         t124*t458*t84*t86-16.0*t102*t127*t451*t84*t86-48.0*t124*t127*
4547         t288*t84*t86+120.0*t102*t271*t277*t84*t86+240.0*t124*t135*
4548         t277*t84*t86-48.0*t127*t135*t271*t84*t86-576.0*t102*t124*t127*
4549         t279*t84+960.0*t102*t124*t129*t277*t84-192.0*t102*t127*t129*
4550         t271*t84-384.0*t124*t127*t129*t135*t84+t728+t727+t726+t725+
4551         t724+t723+t722+t721+t720+t714+t706+t705+t704+t703+t702+t701+
4552         t700+t699+t698+t697+t696+t695+t694+t693+t692+t691+t689+t688+
4553         t687+t686+t685+t684+t683+t681+t680+t679+t678+t673+t672+t671+
4554         t670+t669+t668+t667+t666+t665+t664+t663+t661+t660+t659+t658+
4555         t657+t656+t654-4101.558808403119*t84*t130*t89*t93*t417*t418*
4556         t419-4101.558808403119*t84*t88*t89*t124*t417*t418*t419+415.5781415850207*
4557         t84*t130*t89*t93*t417*t421*t250+415.5781415850207*t84*t88*
4558         t89*t124*t417*t421*t250-103.8945353962552*t84*t281*t89*t93*
4559         t248*t249*t250+7.70551137522226*t84*t1*t2*t4*t105*t130*t93*
4560         t248*t249*t250-103.8945353962552*t84*t88*t89*t271*t248*t249*
4561         t250-207.7890707925104*t84*t130*t89*t124*t248*t249*t250+7.70551137522226*
4562         t84*t1*t2*t4*t105*t88*t124*t248*t249*t250-207.7890707925104*
4563         t84*t130*t89*t93*t254*t111*t249*t250-207.7890707925104*t84*
4564         t88*t89*t124*t254*t111*t249*t250+7.017868076946245*t84*t281*
4565         t89*t93*t248*t252*t113-.5204918823735132*t84*t1*t2*t4*t105*
4566         t130*t93*t248*t252*t113+7.017868076946245*t84*t88*t89*t271*
4567         t248*t252*t113+14.03573615389249*t84*t130*t89*t124*t248*t252*
4568         t113-.5204918823735132*t84*t1*t2*t4*t105*t88*t124*t248*t252*
4569         t113+14.03573615389249*t84*t130*t89*t93*t254*t111*t252*t113+
4570         14.03573615389249*t84*t88*t89*t124*t254*t111*t252*t113-14.03573615389249*
4571         t84*t130*t89*t93*t417*t249*t113-14.03573615389249*t84*t88*
4572         t89*t124*t417*t249*t113-2.339289358982082*t84*t130*t89*t93*
4573         t432*t112*t113-2.339289358982082*t84*t88*t89*t124*t432*t112*
4574         t113-3.508934038473122*t84*t281*t89*t93*t254*t112*t113+.2602459411867566*
4575         t84*t1*t2*t4*t105*t130*t93*t254*t112*t113-3.508934038473122*
4576         t84*t88*t89*t271*t254*t112*t113-7.017868076946245*t84*t130*
4577         t89*t124*t254*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*
4578         t88*t124*t254*t112*t113-2.339289358982082*t84*t462*t89*t93*
4579         t111*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*t281*t93*
4580         t111*t112*t113-.3469945882490088*t84*t1*t2*t4*t243*t130*t93*
4581         t111*t112*t113-2.339289358982082*t84*t88*t89*t451*t111*t112*
4582         t113-7.017868076946245*t84*t130*t89*t271*t111*t112*t113+.2602459411867566*
4583         t84*t1*t2*t4*t105*t88*t271*t111*t112*t113-7.017868076946245*
4584         t84*t281*t89*t124*t111*t112*t113-.3469945882490088*t84*t1*
4585         t2*t4*t243*t88*t124*t111*t112*t113+.5204918823735132*t84*t1*
4586         t2*t4*t105*t130*t124*t111*t112*t113+t84*t86*t87*t713*t102)+
4587         .07900715881026082*t84*t462*t89*t93*t96-.008789546417641516*
4588         t84*t1*t2*t4*t105*t281*t93*t96+.01171939522352202*t84*t1*t2*
4589         t4*t243*t130*t93*t96+.07900715881026082*t84*t88*t89*t451*t96+
4590         .2370214764307825*t84*t130*t89*t271*t96-.008789546417641516*
4591         t84*t1*t2*t4*t105*t88*t271*t96+.2370214764307825*t84*t281*
4592         t89*t124*t96+.01171939522352202*t84*t1*t2*t4*t243*t88*t124*
4593         t96-.01757909283528303*t84*t1*t2*t4*t105*t130*t124*t96+96.0*
4594         t102*t84*t85*t87*t93+48.0*t129*t288*t84*t87*t93+960.0*t102*
4595         t129*t277*t84*t93-384.0*t127*t129*t135*t84*t93+4.0*t102*t451*
4596         t84*t86*t87+12.0*t124*t288*t84*t86*t87+12.0*t135*t271*t84*
4597         t86*t87+144.0*t102*t124*t279*t84*t87+48.0*t102*t129*t271*t84*
4598         t87+96.0*t124*t129*t135*t84*t87+240.0*t102*t124*t277*t84*t86-
4599         48.0*t102*t127*t271*t84*t86-96.0*t124*t127*t135*t84*t86-384.0*
4600         t102*t124*t127*t129*t84+t650+t649+t648+t647+t646+t645+t644+
4601         t643+t642+t641+t640+t639+t638+t637+t636+t635+t634+t633+t632+
4602         t631+t630+t629+t628+t627+t626+t625+t624+t623-4.0*t51*t382*
4603         t35*t57+.2739733333333333*t1*t2*t4*t51*t227*t57*t54-.5479466666666666*
4604         t1*t2*t4*t51*t222*t224*t54+8.812265465851826*t1*t2*t4*t221*
4605         t222*t223*t54-.004416653076543209*t1*t2*t4*t20*t379+771.9523962688968*
4606         t221*t376*t35*t378-8276.534751462386*t375*t376*t35*t377-207.7890707925104*
4607         t84*t130*t89*t93*t248*t249*t250-207.7890707925104*t84*t88*
4608         t89*t124*t248*t249*t250-.2435318518518518*t1*t2*t4*t51*t56*
4609         t57*t225+24.0*t51*t227*t56*t35*t224-385.9761981344484*t221*
4610         t227*t56*t35*t223-24.0*t51*t376*t35*t223+.2739733333333333*
4611         t1*t2*t4*t51*t382*t57*t17-52.87359279511096*t1*t2*t4*t221*
4612         t376*t378*t17+566.8874535768302*t1*t2*t4*t375*t376*t377*t17-
4613         1.64384*t1*t2*t4*t51*t227*t56*t224*t17+26.43679639755548*t1*
4614         t2*t4*t221*t227*t56*t223*t17+1.64384*t1*t2*t4*t51*t376*t223*
4615         t17+14.03573615389249*t84*t130*t89*t93*t248*t252*t113+14.03573615389249*
4616         t84*t88*t89*t124*t248*t252*t113-7.017868076946245*t84*t130*
4617         t89*t93*t254*t112*t113-7.017868076946245*t84*t88*t89*t124*
4618         t254*t112*t113-7.017868076946245*t84*t281*t89*t93*t111*t112*
4619         t113+.5204918823735132*t84*t1*t2*t4*t105*t130*t93*t111*t112*
4620         t113-7.017868076946245*t84*t88*t89*t271*t111*t112*t113-14.03573615389249*
4621         t84*t130*t89*t124*t111*t112*t113+.5204918823735132*t84*t1*
4622         t2*t4*t105*t88*t124*t111*t112*t113)-24829.60425438716*t375*
4623         t34*t615*t35*t617*rhoa+199659.0885685683*t614*t34*t615*t35*
4624         t616*rhoa+1.0*t51*t34*t621*t35*t57*rhoa+4.0*t51*t374*t56*t35*
4625         t57*rhoa+4.0*t51*t50*t382*t35*t57*rhoa+6.0*t51*t220*t227*t35*
4626         t57*rhoa-24.0*t51*t34*t615*t35*t378*rhoa-771.9523962688968*
4627         t221*t50*t376*t35*t378*rhoa-1157.928594403345*t221*t34*t227*
4628         t222*t35*t378*rhoa+1157.928594403345*t221*t34*t615*t35*t377*
4629         rhoa+8276.534751462386*t375*t50*t376*t35*t377*rhoa+12414.80212719358*
4630         t375*t34*t227*t222*t35*t377*rhoa-0.03109*t20*(1.648851306666667*
4631         t22*t33*t613-149.6964613238518*t30*t31*t612+320.2201690661926*
4632         t27*t28*t611-253.7662422846578*t21*t25*t610+99.27987154230993*
4633         t43*t44*t609-20.69653345924741*t212*t213*t608+2.210467588778668*
4634         t365*t366*t607-0.0953561499420445*t604*t605*t606)*t35*rhoa-
4635         6.0*t51*t34*t618*t35*t224*rhoa-8.0*t51*t34*t382*t56*t35*t224*
4636         rhoa-24.0*t51*t50*t227*t56*t35*t224*rhoa-12.0*t51*t220*t222*
4637         t35*t224*rhoa+96.4940495336121*t221*t34*t618*t35*t223*rhoa+
4638         128.6587327114828*t221*t34*t382*t56*t35*t223*rhoa+385.9761981344484*
4639         t221*t50*t227*t56*t35*t223*rhoa+24.0*t51*t50*t376*t35*t223*
4640         rhoa+36.0*t51*t34*t227*t222*t35*t223*rhoa+192.9880990672242*
4641         t221*t220*t222*t35*t223*rhoa-0.75*t36*t4*t53*(-.3731455439012346*
4642         t22*t41*t613+.1266766131231605*t30*t40*t612-.005245704761192296*
4643         t27*t39*t611+8.65266582058224E-5*t21*t38*t610-7.184213048664367E-7*
4644         t43*t58*t609+3.1967368617478314E-9*t212*t228*t608-7.293573527658193E-12*
4645         t365*t383*t607+6.713491218128591E-15*t604*t622*t606)-4.0*t36*
4646         t384*t4*t6+.8888888888888888*t36*t4*t52*t59+12.0*t51*t220*
4647         t56*t35*t57+4.0*t51*t34*t382*t35*t57+12.0*t51*t50*t227*t35*
4648         t57-.5479466666666666*t1*t2*t4*t51*t50*t56*t57*t54-.2739733333333333*
4649         t1*t2*t4*t51*t34*t227*t57*t54+.5479466666666666*t1*t2*t4*t51*
4650         t34*t222*t224*t54-8.812265465851826*t1*t2*t4*t221*t34*t222*
4651         t223*t54+.008517830933333331*t1*t2*t4*t20*t220*t54+4.0*t139*
4652         t486+4.0*t141*t484-.3703703703703703*t23*t36*t4*t42-2.0*t16*
4653         t229*t36*t4+.004416653076543209*t1*t2*t4*t20*t34*t379-771.9523962688968*
4654         t221*t34*t376*t35*t378+8276.534751462386*t375*t34*t376*t35*
4655         t377-0.12436*t20*t374*t35+6.0*t298*t300+.2435318518518518*
4656         t1*t2*t4*t51*t34*t56*t57*t225-.007571405274074072*t1*t2*t4*
4657         t20*t50*t225-24.0*t51*t34*t227*t56*t35*t224-24.0*t51*t50*t222*
4658         t35*t224+385.9761981344484*t221*t34*t227*t56*t35*t223+24.0*
4659         t51*t34*t376*t35*t223+385.9761981344484*t221*t50*t222*t35*
4660         t223-.8219199999999999*t1*t2*t4*t51*t220*t56*t57*t17-.2739733333333333*
4661         t1*t2*t4*t51*t34*t382*t57*t17-.8219199999999999*t1*t2*t4*t51*
4662         t50*t227*t57*t17+52.87359279511096*t1*t2*t4*t221*t34*t376*
4663         t378*t17-566.8874535768302*t1*t2*t4*t375*t34*t376*t377*t17+
4664         .008517830933333331*t1*t2*t4*t20*t374*t17+1.64384*t1*t2*t4*
4665         t51*t34*t227*t56*t224*t17+1.64384*t1*t2*t4*t51*t50*t222*t224*
4666         t17-26.43679639755548*t1*t2*t4*t221*t34*t227*t56*t223*t17-
4667         1.64384*t1*t2*t4*t51*t34*t376*t223*t17-26.43679639755548*t1*
4668         t2*t4*t221*t50*t222*t223*t17+(3.540823668148148*t22*t613*t70-
4669         0.14740135872*t22*t613*t62*t69-0.252260853191111*t30*t612*
4670         t69+.001878028932266667*t22*t613*t68*t67+.008264097496746666*
4671         t30*t612*t62*t67+.003044825456639999*t27*t611*t67-8.85440607744E-6*
4672         t22*t613*t66*t65-9.029796255744E-5*t30*t612*t68*t65-8.881339686911999E-5*
4673         t27*t611*t62*t65-8.704257884159998E-6*t21*t610*t65+1.276718091264E-8*
4674         t22*t613*t63*t140+3.9425424850944E-7*t30*t612*t66*t140+9.0334755422208E-7*
4675         t27*t611*t68*t140+2.3867979595775998E-7*t21*t610*t62*t140-
4676         5.729138325504E-10*t30*t612*t63*t299-3.8074470432768E-9*t27*
4677         t611*t66*t299-2.3347131973632E-9*t21*t610*t68*t299+5.561770239590401E-12*
4678         t27*t611*t63*t485+9.6554651222016E-12*t21*t610*t66*t485-1.41572333371392E-14*
4679         t21*t610*t63*t729)*t151;
4680     d4fdrarararb = t71*(t72*(.01975178970256521*t84*(-192.0*
4681         t127*t85+t716+t709+960.0*t129*t458)*t89*t93*t96-.002197386604410379*
4682         t84*t1*t2*t4*t105*t505*t93*t96-7.324622014701263E-4*t84*t1*
4683         t2*t4*t105*t462*t93*t96+.002929848805880505*t84*t1*t2*t4*t243*
4684         t281*t93*t96-.002278771293462615*t84*t1*t2*t4*t411*t191*t93*
4685         t96-.006836313880387846*t84*t1*t2*t4*t411*t130*t93*t96+.01975178970256521*
4686         t84*t88*t89*t757*t96+.05925536910769562*t84*t130*t89*t499*
4687         t96-.002197386604410379*t84*t1*t2*t4*t105*t88*t499*t96+.01975178970256521*
4688         t84*t191*t89*t451*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*
4689         t88*t451*t96+.05925536910769562*t84*t281*t89*t301*t96-.004394773208820758*
4690         t84*t1*t2*t4*t105*t130*t301*t96+.05925536910769562*t84*t302*
4691         t89*t271*t96+.002929848805880505*t84*t1*t2*t4*t243*t88*t271*
4692         t96-.002197386604410379*t84*t1*t2*t4*t105*t191*t271*t96-.002197386604410379*
4693         t84*t1*t2*t4*t105*t130*t271*t96+.01975178970256521*t84*t462*
4694         t89*t189*t96-.002278771293462615*t84*t1*t2*t4*t411*t88*t189*
4695         t96-.002197386604410379*t84*t1*t2*t4*t105*t281*t189*t96+.05925536910769562*
4696         t84*t505*t89*t124*t96-.006836313880387846*t84*t1*t2*t4*t411*
4697         t88*t124*t96-.004394773208820758*t84*t1*t2*t4*t105*t302*t124*
4698         t96-.002197386604410379*t84*t1*t2*t4*t105*t281*t124*t96+0.00585969761176101*
4699         t84*t1*t2*t4*t243*t130*t124*t96-48.0*t135*t84*t85*t87*t93+
4700         8.0*t129*t469*t84*t87*t93+192.0*t102*t127*t84*t85*t93-960.0*
4701         t102*t129*t458*t84*t93-96.0*t127*t129*t288*t84*t93+480.0*t129*
4702         t135*t277*t84*t93+3.0*t135*t499*t84*t86*t87+3.0*t124*t469*
4703         t84*t86*t87+3.0*t271*t288*t84*t86*t87+24.0*t102*t189*t84*t85*
4704         t87-72.0*t102*t124*t84*t85*t87+12.0*t102*t129*t499*t84*t87-
4705         4.0*t102*t129*t451*t84*t87+24.0*t129*t135*t301*t84*t87+12.0*
4706         t129*t189*t288*t84*t87+12.0*t124*t129*t288*t84*t87-36.0*t102*
4707         t271*t279*t84*t87+36.0*t135*t189*t279*t84*t87-36.0*t124*t135*
4708         t279*t84*t87-12.0*t102*t127*t499*t84*t86-120.0*t102*t189*t458*
4709         t84*t86-360.0*t102*t124*t458*t84*t86-4.0*t102*t127*t451*t84*
4710         t86-12.0*t127*t189*t288*t84*t86-36.0*t124*t127*t288*t84*t86+
4711         60.0*t102*t271*t277*t84*t86+60.0*t135*t189*t277*t84*t86+180.0*
4712         t124*t135*t277*t84*t86-24.0*t127*t135*t271*t84*t86-96.0*t102*
4713         t127*t129*t301*t84-144.0*t102*t127*t189*t279*t84+144.0*t102*
4714         t124*t127*t279*t84+240.0*t102*t129*t189*t277*t84+240.0*t102*
4715         t124*t129*t277*t84-96.0*t127*t129*t135*t189*t84-96.0*t124*
4716         t127*t129*t135*t84+t765+t764+t763+t762+t761+t760+t759+t758+
4717         t756+t755+t754+t753+t752+t751+t750+t749+t748+t747+t746+t745+
4718         t744+t743+t742+t741+t740+t726+t724+t722+t721+t720+t714+t706+
4719         t705+t704+t703+t702+t701+t700+t699+t698+t697+t696+t695+t694+
4720         t693+t692+t691+t689+t688+t687+t686+t685+t684+t683+t681+t680+
4721         t679+t678+t673+t672+t671+t670+t669+t668+t667+t666+t665+t664+
4722         t663+t661+t660+t659+t658+t657+t656+t654+t84*t86*t87*t189*t469-
4723         1025.38970210078*t84*t191*t89*t93*t417*t418*t419-3076.169106302339*
4724         t84*t130*t89*t93*t417*t418*t419-1025.38970210078*t84*t88*t89*
4725         t189*t417*t418*t419-3076.169106302339*t84*t88*t89*t124*t417*
4726         t418*t419+103.8945353962552*t84*t191*t89*t93*t417*t421*t250+
4727         311.6836061887656*t84*t130*t89*t93*t417*t421*t250+103.8945353962552*
4728         t84*t88*t89*t189*t417*t421*t250+311.6836061887656*t84*t88*
4729         t89*t124*t417*t421*t250-51.94726769812759*t84*t281*t89*t93*
4730         t248*t249*t250+1.926377843805565*t84*t1*t2*t4*t105*t191*t93*
4731         t248*t249*t250+5.779133531416695*t84*t1*t2*t4*t105*t130*t93*
4732         t248*t249*t250-51.94726769812759*t84*t88*t89*t271*t248*t249*
4733         t250+1.926377843805565*t84*t1*t2*t4*t105*t88*t189*t248*t249*
4734         t250-103.8945353962552*t84*t130*t89*t124*t248*t249*t250+5.779133531416695*
4735         t84*t1*t2*t4*t105*t88*t124*t248*t249*t250-51.9472676981276*
4736         t84*t191*t89*t93*t254*t111*t249*t250-155.8418030943828*t84*
4737         t130*t89*t93*t254*t111*t249*t250-51.9472676981276*t84*t88*
4738         t89*t189*t254*t111*t249*t250-155.8418030943828*t84*t88*t89*
4739         t124*t254*t111*t249*t250+t84*t86*t87*t451*t135+3.508934038473122*
4740         t84*t281*t89*t93*t248*t252*t113-.1301229705933783*t84*t1*t2*
4741         t4*t105*t191*t93*t248*t252*t113-.3903689117801349*t84*t1*t2*
4742         t4*t105*t130*t93*t248*t252*t113+3.508934038473122*t84*t88*
4743         t89*t271*t248*t252*t113-.1301229705933783*t84*t1*t2*t4*t105*
4744         t88*t189*t248*t252*t113+7.017868076946245*t84*t130*t89*t124*
4745         t248*t252*t113-.3903689117801349*t84*t1*t2*t4*t105*t88*t124*
4746         t248*t252*t113+3.508934038473122*t84*t191*t89*t93*t254*t111*
4747         t252*t113+10.52680211541937*t84*t130*t89*t93*t254*t111*t252*
4748         t113+3.508934038473122*t84*t88*t89*t189*t254*t111*t252*t113+
4749         10.52680211541937*t84*t88*t89*t124*t254*t111*t252*t113-3.508934038473122*
4750         t84*t191*t89*t93*t417*t249*t113-10.52680211541937*t84*t130*
4751         t89*t93*t417*t249*t113-3.508934038473122*t84*t88*t89*t189*
4752         t417*t249*t113-10.52680211541937*t84*t88*t89*t124*t417*t249*
4753         t113-.5848223397455204*t84*t191*t89*t93*t432*t112*t113-1.754467019236561*
4754         t84*t130*t89*t93*t432*t112*t113-.5848223397455204*t84*t88*
4755         t89*t189*t432*t112*t113-1.754467019236561*t84*t88*t89*t124*
4756         t432*t112*t113-1.754467019236561*t84*t281*t89*t93*t254*t112*
4757         t113+.06506148529668915*t84*t1*t2*t4*t105*t191*t93*t254*t112*
4758         t113+.1951844558900674*t84*t1*t2*t4*t105*t130*t93*t254*t112*
4759         t113-1.754467019236561*t84*t88*t89*t271*t254*t112*t113+.06506148529668915*
4760         t84*t1*t2*t4*t105*t88*t189*t254*t112*t113-3.508934038473122*
4761         t84*t130*t89*t124*t254*t112*t113+.1951844558900674*t84*t1*
4762         t2*t4*t105*t88*t124*t254*t112*t113-1.754467019236561*t84*t505*
4763         t89*t93*t111*t112*t113-.5848223397455204*t84*t462*t89*t93*
4764         t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t281*t93*
4765         t111*t112*t113-.08674864706225219*t84*t1*t2*t4*t243*t191*t93*
4766         t111*t112*t113-.2602459411867566*t84*t1*t2*t4*t243*t130*t93*
4767         t111*t112*t113-1.754467019236561*t84*t88*t89*t499*t111*t112*
4768         t113-.5848223397455204*t84*t88*t89*t451*t111*t112*t113-3.508934038473122*
4769         t84*t130*t89*t301*t111*t112*t113-1.754467019236561*t84*t191*
4770         t89*t271*t111*t112*t113-1.754467019236561*t84*t130*t89*t271*
4771         t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t271*
4772         t111*t112*t113-1.754467019236561*t84*t281*t89*t189*t111*t112*
4773         t113-.08674864706225219*t84*t1*t2*t4*t243*t88*t189*t111*t112*
4774         t113-3.508934038473122*t84*t302*t89*t124*t111*t112*t113-1.754467019236561*
4775         t84*t281*t89*t124*t111*t112*t113-.2602459411867566*t84*t1*
4776         t2*t4*t243*t88*t124*t111*t112*t113+.2602459411867565*t84*t1*
4777         t2*t4*t105*t130*t124*t111*t112*t113+t84*t86*t87*t757*t102)+
4778         .05925536910769562*t84*t505*t89*t93*t96-.004394773208820758*
4779         t84*t1*t2*t4*t105*t281*t93*t96+.008789546417641516*t84*t1*
4780         t2*t4*t243*t130*t93*t96+.05925536910769562*t84*t88*t89*t499*
4781         t96+.1185107382153912*t84*t130*t89*t301*t96+.05925536910769562*
4782         t84*t191*t89*t271*t96-.004394773208820758*t84*t1*t2*t4*t105*
4783         t88*t271*t96+.05925536910769562*t84*t281*t89*t189*t96+.1185107382153912*
4784         t84*t302*t89*t124*t96+.008789546417641516*t84*t1*t2*t4*t243*
4785         t88*t124*t96-.008789546417641516*t84*t1*t2*t4*t105*t130*t124*
4786         t96-48.0*t102*t84*t85*t87*t93+24.0*t129*t288*t84*t87*t93+480.0*
4787         t102*t129*t277*t84*t93-192.0*t127*t129*t135*t84*t93+3.0*t102*
4788         t499*t84*t86*t87+9.0*t124*t288*t84*t86*t87+6.0*t135*t271*t84*
4789         t86*t87+24.0*t102*t129*t301*t84*t87-36.0*t102*t124*t279*t84*
4790         t87+24.0*t129*t135*t189*t84*t87+180.0*t102*t124*t277*t84*t86-
4791         24.0*t102*t127*t271*t84*t86-72.0*t124*t127*t135*t84*t86-96.0*
4792         t102*t127*t129*t189*t84+t739+t738+t737+t736+t735+t734+t733+
4793         t732+t731+t730+t649+t647+t646+t645+t644+t643+t642+t641+t640+
4794         t639+t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+t628+
4795         t627+t626+t625+t624+t623+t579+t577+t574+t573+t570+t568+t560+
4796         t559+t558+t557+t556+t555+t554+t553+t479+t477+t474+t463+t455+
4797         t453+t452-155.8418030943828*t84*t130*t89*t93*t248*t249*t250-
4798         155.8418030943828*t84*t88*t89*t124*t248*t249*t250+10.52680211541937*
4799         t84*t130*t89*t93*t248*t252*t113+10.52680211541937*t84*t88*
4800         t89*t124*t248*t252*t113-5.263401057709684*t84*t130*t89*t93*
4801         t254*t112*t113-5.263401057709684*t84*t88*t89*t124*t254*t112*
4802         t113-3.508934038473122*t84*t281*t89*t93*t111*t112*t113+.3903689117801348*
4803         t84*t1*t2*t4*t105*t130*t93*t111*t112*t113-3.508934038473122*
4804         t84*t88*t89*t271*t111*t112*t113-7.017868076946245*t84*t130*
4805         t89*t124*t111*t112*t113+.3903689117801348*t84*t1*t2*t4*t105*
4806         t88*t124*t111*t112*t113)+3.0*t139*t513+3.0*t141*t512+t195*
4807         t484+3.0*t298*t305+3.0*t300*t304+t486*t194+(-.03968148252444444*
4808         t22*t60*t373*t69*t176+.001299970392746667*t22*t60*t373*t62*
4809         t67*t176+.001522412728319999*t30*t60*t372*t67*t176-1.420417388544E-5*
4810         t22*t60*t373*t68*t65*t176-4.440669843455999E-5*t30*t60*t372*
4811         t62*t65*t176-8.704257884159998E-6*t27*t60*t371*t65*t176+6.201752223744E-8*
4812         t22*t60*t373*t66*t140*t176+4.5167377711104E-7*t30*t60*t372*
4813         t68*t140*t176+2.3867979595775998E-7*t27*t60*t371*t62*t140*
4814         t176-9.01212770304E-11*t22*t60*t373*t63*t299*t176-1.9037235216384E-9*
4815         t30*t60*t372*t66*t299*t176-2.3347131973632E-9*t27*t60*t371*
4816         t68*t299*t176+2.780885119795201E-12*t30*t60*t372*t63*t485*
4817         t176+9.6554651222016E-12*t27*t60*t371*t66*t485*t176-1.41572333371392E-14*
4818         t27*t60*t371*t63*t729*t176)*t151;
4819     d4fdrararaga = 3.0*t51*t516*t56*t35*t57*rhoa+1.0*t51*
4820         t201*t382*t35*t57*rhoa+3.0*t51*t308*t227*t35*t57*rhoa-192.9880990672242*
4821         t221*t201*t376*t35*t378*rhoa+2069.133687865597*t375*t201*t376*
4822         t35*t377*rhoa-0.03109*t20*(-.5819475199999999*grada*t33*t373+
4823         71.89620165688889*t200*t31*t372-178.5808092444445*t199*t28*
4824         t371+155.7559643682134*t198*t25*t370-65.29869259753247*t196*
4825         t44*t369+14.35727882467556*t306*t213*t368-1.600381583360001*
4826         t514*t366*t367+.07151711245653339*t766*t605*t767)*t35*rhoa-
4827         6.0*t51*t201*t227*t56*t35*t224*rhoa-6.0*t51*t308*t222*t35*
4828         t224*rhoa+96.4940495336121*t221*t201*t227*t56*t35*t223*rhoa+
4829         6.0*t51*t201*t376*t35*t223*rhoa+96.4940495336121*t221*t308*
4830         t222*t35*t223*rhoa-3.0*t36*t4*t517*t6+6.0*t51*t308*t56*t35*
4831         t57+3.0*t51*t201*t227*t35*t57-.1369866666666666*t1*t2*t4*t51*
4832         t201*t56*t57*t54+.004258915466666666*t1*t2*t4*t20*t308*t54-
4833         0.75*t36*(.1316984272592593*grada*t41*t373-.06099442003437035*
4834         t200*t40*t372+.002927258189368889*t199*t39*t371-5.300765252600415E-5*
4835         t198*t38*t370+4.70902424702521E-7*t196*t58*t369-2.2096262395524743E-9*
4836         t306*t228*t368+5.267876280911644E-12*t514*t383*t367-5.035118413596443E-15*
4837         t766*t622*t767)*t4*t53+.2222222222222222*t202*t36*t4*t52+3.0*
4838         t139*t518+t203*t484-1.0*t16*t309*t36*t4-.09326999999999999*
4839         t20*t516*t35+3.0*t298*t310-.001892851318518518*t1*t2*t4*t20*
4840         t201*t225-6.0*t51*t201*t222*t35*t224+96.4940495336121*t221*
4841         t201*t222*t35*t223-.4109599999999999*t1*t2*t4*t51*t308*t56*
4842         t57*t17-0.20548*t1*t2*t4*t51*t201*t227*t57*t17+.006388373199999998*
4843         t1*t2*t4*t20*t516*t17+.4109599999999999*t1*t2*t4*t51*t201*
4844         t222*t224*t17-6.60919909938887*t1*t2*t4*t221*t201*t222*t223*
4845         t17+(-1.249702471111111*grada*t373*t70+.05202400895999999*
4846         grada*t373*t62*t69+.1317992098133333*t200*t372*t69-6.628337408E-4*
4847         grada*t373*t68*t67-0.00431775880448*t200*t372*t62*t67-.001972216488959999*
4848         t199*t371*t67+3.12508449792E-6*grada*t373*t66*t65+4.7178148976639994E-5*
4849         t200*t372*t68*t65+5.752685933567999E-5*t199*t371*t62*t65+6.528193413119999E-6*
4850         t198*t370*t65-4.50606385152E-9*grada*t373*t63*t140-2.0598677028864004E-7*
4851         t200*t372*t66*t140-5.851228476211201E-7*t199*t371*t68*t140-
4852         1.7900984696832E-7*t198*t370*t62*t140+2.993313844224E-10*t200*
4853         t372*t63*t299+2.4661872893952E-9*t199*t371*t66*t299+1.7510348980224E-9*
4854         t198*t370*t68*t299-3.602510268825601E-12*t199*t371*t63*t485-
4855         7.2415988416512E-12*t198*t370*t66*t485+1.06179250028544E-14*
4856         t198*t370*t63*t729)*t151;
4857     d4fdrararagb = 3.0*t139*t519+t211*t484+3.0*t298*t311+
4858         (.02976111189333333*t22*gradb*t373*t69*t61-9.749777945599999E-4*
4859         t22*gradb*t373*t62*t67*t61-0.00114180954624*t30*gradb*t372*
4860         t67*t61+1.065313041408E-5*t22*gradb*t373*t68*t65*t61+3.3305023825919994E-5*
4861         t30*gradb*t372*t62*t65*t61+6.528193413119999E-6*t27*gradb*
4862         t371*t65*t61-4.651314167808E-8*t22*gradb*t373*t66*t140*t61-
4863         3.3875533283328E-7*t30*gradb*t372*t68*t140*t61-1.7900984696832E-7*
4864         t27*gradb*t371*t62*t140*t61+6.75909577728E-11*t22*gradb*t373*
4865         t63*t299*t61+1.4277926412288E-9*t30*gradb*t372*t66*t299*t61+
4866         1.7510348980224E-9*t27*gradb*t371*t68*t299*t61-2.085663839846401E-12*
4867         t30*gradb*t372*t63*t485*t61-7.2415988416512E-12*t27*gradb*
4868         t371*t66*t485*t61+1.06179250028544E-14*t27*gradb*t371*t63*
4869         t729*t61)*t151;
4870     d4fdrararaab = 0.0;
4871     d4fdrararbrb = t71*(t72*(.01975178970256521*(t716+t712+
4872         480.0*t277*t279)*t84*t89*t93*t96-.001464924402940253*t84*t1*
4873         t2*t4*t105*t521*t93*t96-.001464924402940253*t84*t1*t2*t4*t105*
4874         t505*t93*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*t341*t93*
4875         t96+0.00390646507450734*t84*t1*t2*t4*t243*t302*t93*t96+9.766162686268349E-4*
4876         t84*t1*t2*t4*t243*t281*t93*t96-0.00455754258692523*t84*t1*
4877         t2*t4*t411*t191*t93*t96-0.00455754258692523*t84*t1*t2*t4*t411*
4878         t130*t93*t96+.01975178970256521*t84*t88*t89*t770*t96+.03950357940513041*
4879         t84*t130*t89*t520*t96-.001464924402940253*t84*t1*t2*t4*t105*
4880         t88*t520*t96+.03950357940513041*t84*t191*t89*t499*t96-.001464924402940253*
4881         t84*t1*t2*t4*t105*t88*t499*t96+.01975178970256521*t84*t281*
4882         t89*t336*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t336*
4883         t96-.001464924402940253*t84*t1*t2*t4*t105*t130*t336*t96+.07900715881026082*
4884         t84*t302*t89*t301*t96+0.00390646507450734*t84*t1*t2*t4*t243*
4885         t88*t301*t96-.002929848805880505*t84*t1*t2*t4*t105*t191*t301*
4886         t96-.002929848805880505*t84*t1*t2*t4*t105*t130*t301*t96+.01975178970256521*
4887         t84*t341*t89*t271*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*
4888         t88*t271*t96-.001464924402940253*t84*t1*t2*t4*t105*t191*t271*
4889         t96+.03950357940513041*t84*t505*t89*t189*t96-0.00455754258692523*
4890         t84*t1*t2*t4*t411*t88*t189*t96-.002929848805880505*t84*t1*
4891         t2*t4*t105*t302*t189*t96-.001464924402940253*t84*t1*t2*t4*
4892         t105*t281*t189*t96+0.00195323253725367*t84*t1*t2*t4*t243*t191*
4893         t189*t96+0.00390646507450734*t84*t1*t2*t4*t243*t130*t189*t96+
4894         .03950357940513041*t84*t521*t89*t124*t96-0.00455754258692523*
4895         t84*t1*t2*t4*t411*t88*t124*t96-.001464924402940253*t84*t1*
4896         t2*t4*t105*t341*t124*t96-.002929848805880505*t84*t1*t2*t4*
4897         t105*t302*t124*t96+0.00390646507450734*t84*t1*t2*t4*t243*t191*
4898         t124*t96+0.00195323253725367*t84*t1*t2*t4*t243*t130*t124*t96-
4899         24.0*t279*t288*t84*t87*t93-480.0*t102*t277*t279*t84*t93+192.0*
4900         t127*t135*t279*t84*t93+2.0*t135*t520*t84*t86*t87+2.0*t135*
4901         t499*t84*t86*t87+2.0*t189*t469*t84*t86*t87+2.0*t124*t469*t84*
4902         t86*t87+4.0*t288*t301*t84*t86*t87-48.0*t102*t189*t84*t85*t87+
4903         48.0*t102*t124*t84*t85*t87+8.0*t102*t129*t520*t84*t87-8.0*
4904         t102*t129*t499*t84*t87+12.0*t102*t279*t336*t84*t87+8.0*t129*
4905         t135*t336*t84*t87-48.0*t102*t279*t301*t84*t87+8.0*t129*t189*
4906         t288*t84*t87-8.0*t124*t129*t288*t84*t87+12.0*t102*t271*t279*
4907         t84*t87-24.0*t135*t189*t279*t84*t87-24.0*t124*t135*t279*t84*
4908         t87-8.0*t129*t135*t271*t84*t87-8.0*t102*t127*t520*t84*t86-
4909         8.0*t102*t127*t499*t84*t86-240.0*t102*t189*t458*t84*t86-240.0*
4910         t102*t124*t458*t84*t86+20.0*t102*t277*t336*t84*t86-8.0*t127*
4911         t135*t336*t84*t86+80.0*t102*t277*t301*t84*t86-32.0*t127*t135*
4912         t301*t84*t86-24.0*t127*t189*t288*t84*t86-24.0*t124*t127*t288*
4913         t84*t86+20.0*t102*t271*t277*t84*t86+120.0*t135*t189*t277*t84*
4914         t86+120.0*t124*t135*t277*t84*t86-8.0*t127*t135*t271*t84*t86-
4915         32.0*t102*t127*t129*t336*t84+96.0*t102*t127*t189*t279*t84+
4916         96.0*t102*t124*t127*t279*t84+160.0*t102*t129*t189*t277*t84-
4917         160.0*t102*t124*t129*t277*t84+32.0*t102*t127*t129*t271*t84-
4918         64.0*t127*t129*t135*t189*t84+64.0*t124*t127*t129*t135*t84+
4919         t728+t726+t724+t722+t721+t720+t714+t706+t705+t704+t703+t702+
4920         t701+t700+t699+t698+t697+t696+t695+t694+t693+t692+t691+t689+
4921         t688+t687+t686+t685+t684+t683+t681+t680+t679+t678+t673+t672+
4922         t671+t670+t669+t668+t667+t666+t665+t664+t663+t661+t660+t659+
4923         t658+t657+t656+t654-2050.77940420156*t84*t191*t89*t93*t417*
4924         t418*t419-2050.77940420156*t84*t130*t89*t93*t417*t418*t419-
4925         2050.77940420156*t84*t88*t89*t189*t417*t418*t419-2050.77940420156*
4926         t84*t88*t89*t124*t417*t418*t419+t84*t86*t87*t336*t288+t84*
4927         t86*t87*t271*t288+207.7890707925104*t84*t191*t89*t93*t417*
4928         t421*t250+207.7890707925104*t84*t130*t89*t93*t417*t421*t250+
4929         207.7890707925104*t84*t88*t89*t189*t417*t421*t250+207.7890707925104*
4930         t84*t88*t89*t124*t417*t421*t250-17.31575589937587*t84*t341*
4931         t89*t93*t248*t249*t250-69.26302359750346*t84*t302*t89*t93*
4932         t248*t249*t250-17.31575589937587*t84*t281*t89*t93*t248*t249*
4933         t250+3.85275568761113*t84*t1*t2*t4*t105*t191*t93*t248*t249*
4934         t250+3.85275568761113*t84*t1*t2*t4*t105*t130*t93*t248*t249*
4935         t250-17.31575589937587*t84*t88*t89*t336*t248*t249*t250-69.26302359750346*
4936         t84*t88*t89*t301*t248*t249*t250-17.31575589937587*t84*t88*
4937         t89*t271*t248*t249*t250-34.63151179875173*t84*t191*t89*t189*
4938         t248*t249*t250-69.26302359750346*t84*t130*t89*t189*t248*t249*
4939         t250+3.85275568761113*t84*t1*t2*t4*t105*t88*t189*t248*t249*
4940         t250-69.26302359750346*t84*t191*t89*t124*t248*t249*t250-34.63151179875173*
4941         t84*t130*t89*t124*t248*t249*t250+3.85275568761113*t84*t1*t2*
4942         t4*t105*t88*t124*t248*t249*t250-103.8945353962552*t84*t191*
4943         t89*t93*t254*t111*t249*t250-103.8945353962552*t84*t130*t89*
4944         t93*t254*t111*t249*t250-103.8945353962552*t84*t88*t89*t189*
4945         t254*t111*t249*t250-103.8945353962552*t84*t88*t89*t124*t254*
4946         t111*t249*t250+1.169644679491041*t84*t341*t89*t93*t248*t252*
4947         t113+4.678578717964164*t84*t302*t89*t93*t248*t252*t113+1.169644679491041*
4948         t84*t281*t89*t93*t248*t252*t113-.2602459411867566*t84*t1*t2*
4949         t4*t105*t191*t93*t248*t252*t113-.2602459411867566*t84*t1*t2*
4950         t4*t105*t130*t93*t248*t252*t113+1.169644679491041*t84*t88*
4951         t89*t336*t248*t252*t113+4.678578717964164*t84*t88*t89*t301*
4952         t248*t252*t113+1.169644679491041*t84*t88*t89*t271*t248*t252*
4953         t113+2.339289358982082*t84*t191*t89*t189*t248*t252*t113+4.678578717964164*
4954         t84*t130*t89*t189*t248*t252*t113-.2602459411867566*t84*t1*
4955         t2*t4*t105*t88*t189*t248*t252*t113+4.678578717964164*t84*t191*
4956         t89*t124*t248*t252*t113+2.339289358982082*t84*t130*t89*t124*
4957         t248*t252*t113-.2602459411867566*t84*t1*t2*t4*t105*t88*t124*
4958         t248*t252*t113+7.017868076946245*t84*t191*t89*t93*t254*t111*
4959         t252*t113+7.017868076946245*t84*t130*t89*t93*t254*t111*t252*
4960         t113+7.017868076946245*t84*t88*t89*t189*t254*t111*t252*t113+
4961         7.017868076946245*t84*t88*t89*t124*t254*t111*t252*t113-7.017868076946245*
4962         t84*t191*t89*t93*t417*t249*t113-7.017868076946245*t84*t130*
4963         t89*t93*t417*t249*t113-7.017868076946245*t84*t88*t89*t189*
4964         t417*t249*t113-7.017868076946245*t84*t88*t89*t124*t417*t249*
4965         t113-1.169644679491041*t84*t191*t89*t93*t432*t112*t113-1.169644679491041*
4966         t84*t130*t89*t93*t432*t112*t113-1.169644679491041*t84*t88*
4967         t89*t189*t432*t112*t113-1.169644679491041*t84*t88*t89*t124*
4968         t432*t112*t113-.5848223397455204*t84*t341*t89*t93*t254*t112*
4969         t113-2.339289358982082*t84*t302*t89*t93*t254*t112*t113-.5848223397455204*
4970         t84*t281*t89*t93*t254*t112*t113+.1301229705933783*t84*t1*t2*
4971         t4*t105*t191*t93*t254*t112*t113+.1301229705933783*t84*t1*t2*
4972         t4*t105*t130*t93*t254*t112*t113-.5848223397455204*t84*t88*
4973         t89*t336*t254*t112*t113-2.339289358982082*t84*t88*t89*t301*
4974         t254*t112*t113-.5848223397455204*t84*t88*t89*t271*t254*t112*
4975         t113-1.169644679491041*t84*t191*t89*t189*t254*t112*t113-2.339289358982082*
4976         t84*t130*t89*t189*t254*t112*t113+.1301229705933783*t84*t1*
4977         t2*t4*t105*t88*t189*t254*t112*t113-2.339289358982082*t84*t191*
4978         t89*t124*t254*t112*t113-1.169644679491041*t84*t130*t89*t124*
4979         t254*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t124*
4980         t254*t112*t113-1.169644679491041*t84*t521*t89*t93*t111*t112*
4981         t113-1.169644679491041*t84*t505*t89*t93*t111*t112*t113+.04337432353112609*
4982         t84*t1*t2*t4*t105*t341*t93*t111*t112*t113+.1734972941245044*
4983         t84*t1*t2*t4*t105*t302*t93*t111*t112*t113+.04337432353112609*
4984         t84*t1*t2*t4*t105*t281*t93*t111*t112*t113-.1734972941245044*
4985         t84*t1*t2*t4*t243*t191*t93*t111*t112*t113-.1734972941245044*
4986         t84*t1*t2*t4*t243*t130*t93*t111*t112*t113-1.169644679491041*
4987         t84*t88*t89*t520*t111*t112*t113-1.169644679491041*t84*t88*
4988         t89*t499*t111*t112*t113-1.169644679491041*t84*t130*t89*t336*
4989         t111*t112*t113+.04337432353112609*t84*t1*t2*t4*t105*t88*t336*
4990         t111*t112*t113-2.339289358982082*t84*t191*t89*t301*t111*t112*
4991         t113-2.339289358982082*t84*t130*t89*t301*t111*t112*t113+.1734972941245044*
4992         t84*t1*t2*t4*t105*t88*t301*t111*t112*t113-1.169644679491041*
4993         t84*t191*t89*t271*t111*t112*t113+.04337432353112609*t84*t1*
4994         t2*t4*t105*t88*t271*t111*t112*t113-2.339289358982082*t84*t302*
4995         t89*t189*t111*t112*t113-1.169644679491041*t84*t281*t89*t189*
4996         t111*t112*t113-.1734972941245044*t84*t1*t2*t4*t243*t88*t189*
4997         t111*t112*t113+.08674864706225219*t84*t1*t2*t4*t105*t191*t189*
4998         t111*t112*t113+.1734972941245044*t84*t1*t2*t4*t105*t130*t189*
4999         t111*t112*t113-1.169644679491041*t84*t341*t89*t124*t111*t112*
5000         t113-2.339289358982082*t84*t302*t89*t124*t111*t112*t113-.1734972941245044*
5001         t84*t1*t2*t4*t243*t88*t124*t111*t112*t113+.1734972941245044*
5002         t84*t1*t2*t4*t105*t191*t124*t111*t112*t113+.08674864706225219*
5003         t84*t1*t2*t4*t105*t130*t124*t111*t112*t113+t84*t86*t87*t770*
5004         t102)+.03950357940513041*t84*t521*t89*t93*t96+.03950357940513041*
5005         t84*t505*t89*t93*t96-.001464924402940253*t84*t1*t2*t4*t105*
5006         t341*t93*t96-0.00585969761176101*t84*t1*t2*t4*t105*t302*t93*
5007         t96-.001464924402940253*t84*t1*t2*t4*t105*t281*t93*t96+0.00585969761176101*
5008         t84*t1*t2*t4*t243*t191*t93*t96+0.00585969761176101*t84*t1*
5009         t2*t4*t243*t130*t93*t96+.03950357940513041*t84*t88*t89*t520*
5010         t96+.03950357940513041*t84*t88*t89*t499*t96+.03950357940513041*
5011         t84*t130*t89*t336*t96-.001464924402940253*t84*t1*t2*t4*t105*
5012         t88*t336*t96+.07900715881026082*t84*t191*t89*t301*t96+.07900715881026082*
5013         t84*t130*t89*t301*t96-0.00585969761176101*t84*t1*t2*t4*t105*
5014         t88*t301*t96+.03950357940513041*t84*t191*t89*t271*t96-.001464924402940253*
5015         t84*t1*t2*t4*t105*t88*t271*t96+.07900715881026082*t84*t302*
5016         t89*t189*t96+.03950357940513041*t84*t281*t89*t189*t96+0.00585969761176101*
5017         t84*t1*t2*t4*t243*t88*t189*t96-.002929848805880505*t84*t1*
5018         t2*t4*t105*t191*t189*t96-0.00585969761176101*t84*t1*t2*t4*
5019         t105*t130*t189*t96+.03950357940513041*t84*t341*t89*t124*t96+
5020         .07900715881026082*t84*t302*t89*t124*t96+0.00585969761176101*
5021         t84*t1*t2*t4*t243*t88*t124*t96-0.00585969761176101*t84*t1*
5022         t2*t4*t105*t191*t124*t96-.002929848805880505*t84*t1*t2*t4*
5023         t105*t130*t124*t96-48.0*t135*t279*t84*t87*t93+192.0*t102*t127*
5024         t279*t84*t93+2.0*t102*t520*t84*t86*t87+2.0*t102*t499*t84*t86*
5025         t87+2.0*t135*t336*t84*t86*t87+8.0*t135*t301*t84*t86*t87+6.0*
5026         t189*t288*t84*t86*t87+6.0*t124*t288*t84*t86*t87+2.0*t135*t271*
5027         t84*t86*t87+8.0*t102*t129*t336*t84*t87-8.0*t102*t129*t271*
5028         t84*t87+16.0*t129*t135*t189*t84*t87-16.0*t124*t129*t135*t84*
5029         t87-8.0*t102*t127*t336*t84*t86-32.0*t102*t127*t301*t84*t86+
5030         120.0*t102*t189*t277*t84*t86+120.0*t102*t124*t277*t84*t86-
5031         8.0*t102*t127*t271*t84*t86-48.0*t127*t135*t189*t84*t86-48.0*
5032         t124*t127*t135*t84*t86-64.0*t102*t127*t129*t189*t84+64.0*t102*
5033         t124*t127*t129*t84+t649+t647+t646+t645+t644+t643+t642+t641+
5034         t640+t639+t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+
5035         t628+t627+t626+t625+t624+t623+t522+t509-103.8945353962552*
5036         t84*t191*t89*t93*t248*t249*t250-103.8945353962552*t84*t130*
5037         t89*t93*t248*t249*t250-103.8945353962552*t84*t88*t89*t189*
5038         t248*t249*t250-103.8945353962552*t84*t88*t89*t124*t248*t249*
5039         t250+7.017868076946245*t84*t191*t89*t93*t248*t252*t113+7.017868076946245*
5040         t84*t130*t89*t93*t248*t252*t113+7.017868076946245*t84*t88*
5041         t89*t189*t248*t252*t113+7.017868076946245*t84*t88*t89*t124*
5042         t248*t252*t113-3.508934038473122*t84*t191*t89*t93*t254*t112*
5043         t113-3.508934038473122*t84*t130*t89*t93*t254*t112*t113-3.508934038473122*
5044         t84*t88*t89*t189*t254*t112*t113-3.508934038473122*t84*t88*
5045         t89*t124*t254*t112*t113-1.169644679491041*t84*t341*t89*t93*
5046         t111*t112*t113-4.678578717964164*t84*t302*t89*t93*t111*t112*
5047         t113-1.169644679491041*t84*t281*t89*t93*t111*t112*t113+.2602459411867565*
5048         t84*t1*t2*t4*t105*t191*t93*t111*t112*t113+.2602459411867566*
5049         t84*t1*t2*t4*t105*t130*t93*t111*t112*t113-1.169644679491041*
5050         t84*t88*t89*t336*t111*t112*t113-4.678578717964164*t84*t88*
5051         t89*t301*t111*t112*t113-1.169644679491041*t84*t88*t89*t271*
5052         t111*t112*t113-2.339289358982082*t84*t191*t89*t189*t111*t112*
5053         t113-4.678578717964164*t84*t130*t89*t189*t111*t112*t113+.2602459411867565*
5054         t84*t1*t2*t4*t105*t88*t189*t111*t112*t113-4.678578717964164*
5055         t84*t191*t89*t124*t111*t112*t113-2.339289358982082*t84*t130*
5056         t89*t124*t111*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*
5057         t88*t124*t111*t112*t113)+2.0*t139*t524+2.0*t141*t523+2.0*t194*
5058         t513+2.0*t195*t512+t300*t348+4.0*t304*t305+t349*t298+(-.03117830769777777*
5059         t22*t60*t219*t69*t319+.001021405308586667*t22*t60*t219*t62*
5060         t67*t319+5.074709094399998E-4*t30*t60*t218*t67*t319-1.116042233856E-5*
5061         t22*t60*t219*t68*t65*t319-1.4802232811519994E-5*t30*t60*t218*
5062         t62*t65*t319+4.872805318656E-8*t22*t60*t219*t66*t140*t319+
5063         1.5055792570368E-7*t30*t60*t218*t68*t140*t319-7.08095748096E-11*
5064         t22*t60*t219*t63*t299*t319-6.345745072127998E-10*t30*t60*t218*
5065         t66*t299*t319+9.269617065984002E-13*t30*t60*t218*t63*t485*
5066         t319+5.074709094399998E-4*t22*t159*t219*t67*t318-1.480223281152E-5*
5067         t22*t159*t219*t62*t65*t318-8.704257884159998E-6*t30*t159*t218*
5068         t65*t318+1.5055792570368E-7*t22*t159*t219*t68*t140*t318+2.3867979595775998E-7*
5069         t30*t159*t218*t62*t140*t318-6.345745072128001E-10*t22*t159*
5070         t219*t66*t299*t318-2.3347131973632E-9*t30*t159*t218*t68*t299*
5071         t318+9.269617065984002E-13*t22*t159*t219*t63*t485*t318+9.6554651222016E-12*
5072         t30*t159*t218*t66*t485*t318-1.41572333371392E-14*t30*t159*
5073         t218*t63*t729*t318)*t151;
5074     d4fdrararbga = 2.0*t139*t525+t203*t512+2.0*t304*t310+
5075         t350*t298+t518*t194+(.01700634965333333*grada*t60*t219*t69*
5076         t176-5.5713016832E-4*grada*t60*t219*t62*t67*t176-9.342078105599998E-4*
5077         t200*t60*t218*t67*t176+6.087503093759999E-6*grada*t60*t219*
5078         t68*t65*t176+2.7249564948479993E-5*t200*t60*t218*t62*t65*t176+
5079         6.528193413119999E-6*t199*t60*t217*t65*t176-2.657893810176E-8*
5080         grada*t60*t219*t66*t140*t176-2.7716345413632004E-7*t200*t60*
5081         t218*t68*t140*t176-1.7900984696832E-7*t199*t60*t217*t62*t140*
5082         t176+3.86234044416E-11*grada*t60*t219*t63*t299*t176+1.1681939791872E-9*
5083         t200*t60*t218*t66*t299*t176+1.7510348980224E-9*t199*t60*t217*
5084         t68*t299*t176-1.7064522326016E-12*t200*t60*t218*t63*t485*t176-
5085         7.2415988416512E-12*t199*t60*t217*t66*t485*t176+1.06179250028544E-14*
5086         t199*t60*t217*t63*t729*t176)*t151;
5087     d4fdrararbgb = 2.0*t139*t526+t211*t512+2.0*t304*t311+
5088         t355*t298+t519*t194+(.01700634965333333*t22*gradb*t219*t69*
5089         t176-5.5713016832E-4*t22*gradb*t219*t62*t67*t176-2.7680231423999996E-4*
5090         t30*gradb*t218*t67*t176+6.087503093759999E-6*t22*gradb*t219*
5091         t68*t65*t176+8.073945169919998E-6*t30*gradb*t218*t62*t65*t176-
5092         2.657893810176E-8*t22*gradb*t219*t66*t140*t176-8.212250492928002E-8*
5093         t30*gradb*t218*t68*t140*t176+3.86234044416E-11*t22*gradb*t219*
5094         t63*t299*t176+3.461315493887999E-10*t30*gradb*t218*t66*t299*
5095         t176-5.056154763264E-13*t30*gradb*t218*t63*t485*t176-3.8060318207999994E-4*
5096         t22*t208*t219*t67*t175+1.1101674608640001E-5*t22*t208*t219*
5097         t62*t65*t175+6.528193413119999E-6*t30*t208*t218*t65*t175-1.1291844427776E-7*
5098         t22*t208*t219*t68*t140*t175-1.7900984696832E-7*t30*t208*t218*
5099         t62*t140*t175+4.759308804096E-10*t22*t208*t219*t66*t299*t175+
5100         1.7510348980224E-9*t30*t208*t218*t68*t299*t175-6.952212799488001E-13*
5101         t22*t208*t219*t63*t485*t175-7.2415988416512E-12*t30*t208*t218*
5102         t66*t485*t175+1.06179250028544E-14*t30*t208*t218*t63*t729*
5103         t175)*t151;
5104     d4fdrararbab = 0.0;
5105     d4fdraragaga = 2.0*t51*t528*t56*t35*t57*rhoa+1.0*t51*
5106         t357*t227*t35*t57*rhoa-0.03109*t20*(0.12470304*t33*t219-29.434755776*
5107         t22*t31*t218+91.90239347200003*t30*t28*t217-91.38512306176003*
5108         t27*t25*t216+41.86583785881601*t21*t44*t215-9.826956554240002*
5109         t43*t213*t214+1.152395264000001*t212*t366*t515-.05363783434240004*
5110         t365*t605*t771)*t35*rhoa-2.0*t51*t357*t222*t35*t224*rhoa+32.1646831778707*
5111         t221*t357*t222*t35*t223*rhoa-2.0*t36*t4*t529*t6+2.0*t51*t357*
5112         t56*t35*t57+.001419638488888889*t1*t2*t4*t20*t357*t54+2.0*
5113         t139*t530-0.75*(-.02822109155555556*t41*t219+.02505488489244444*
5114         t22*t40*t218-.001507769745635555*t30*t39*t217+3.103098413420089E-5*
5115         t27*t38*t216-3.006768291366685E-7*t21*t58*t215+1.5058826705123554E-9*
5116         t43*t228*t214-3.782320656657067E-12*t212*t383*t515+3.776338810197333E-15*
5117         t365*t622*t771)*t36*t4*t53-.3333333333333333*t16*t358*t36*
5118         t4-0.06218*t20*t528*t35+t359*t298-.1369866666666666*t1*t2*
5119         t4*t51*t357*t56*t57*t17+.004258915466666666*t1*t2*t4*t20*t528*
5120         t17+(.2677933866666666*t219*t70-0.01114800192*t219*t62*t69-
5121         .05971547775999998*t22*t218*t69+1.4203580159999998E-4*t219*
5122         t68*t67+0.00195628661376*t22*t218*t62*t67+0.00121966019712*
5123         t30*t217*t67-6.696609638400001E-7*t219*t66*t65-2.1375436999679998E-5*
5124         t22*t218*t68*t65-3.557582090496E-5*t30*t217*t62*t65-4.896145059839999E-6*
5125         t27*t216*t65+9.6558511104E-10*t219*t63*t140+9.332831674368002E-8*
5126         t22*t218*t66*t140+3.618522873446399E-7*t30*t217*t68*t140+1.3425738522624E-7*
5127         t27*t216*t62*t140-1.356208178688E-10*t22*t218*t63*t299-1.5251421394943998E-9*
5128         t30*t217*t66*t299-1.3132761735168E-9*t27*t216*t68*t299+2.2278681925632E-12*
5129         t30*t217*t63*t485+5.4311991312384E-12*t27*t216*t66*t485-7.963443752140802E-15*
5130         t27*t216*t63*t729)*t151;
5131     d4fdraragagb = 2.0*t139*t531+t360*t298+(-0.01275476224*
5132         grada*gradb*t219*t69*t61+4.1784762623999994E-4*grada*gradb*
5133         t219*t62*t67*t61+7.006558579199998E-4*t200*gradb*t218*t67*
5134         t61-4.5656273203199993E-6*grada*gradb*t219*t68*t65*t61-2.0437173711359996E-5*
5135         t200*gradb*t218*t62*t65*t61-4.896145059839999E-6*t199*gradb*
5136         t217*t65*t61+1.993420357632E-8*grada*gradb*t219*t66*t140*t61+
5137         2.0787259060224E-7*t200*gradb*t218*t68*t140*t61+1.3425738522624E-7*
5138         t199*gradb*t217*t62*t140*t61-2.89675533312E-11*grada*gradb*
5139         t219*t63*t299*t61-8.761454843904E-10*t200*gradb*t218*t66*t299*
5140         t61-1.3132761735168E-9*t199*gradb*t217*t68*t299*t61+1.2798391744512E-12*
5141         t200*gradb*t218*t63*t485*t61+5.4311991312384E-12*t199*gradb*
5142         t217*t66*t485*t61-7.963443752140802E-15*t199*gradb*t217*t63*
5143         t729*t61)*t151;
5144     d4fdraragaab = 0.0;
5145     d4fdraragbgb = 2.0*t139*t532+t364*t298+(-.006377381119999998*
5146         t22*t219*t69*t61+2.0892381311999997E-4*t22*t219*t62*t67*t61+
5147         1.0380086783999998E-4*t30*t218*t67*t61-2.2828136601599996E-6*
5148         t22*t219*t68*t65*t61-3.02772943872E-6*t30*t218*t62*t65*t61+
5149         9.96710178816E-9*t22*t219*t66*t140*t61+3.079593934848E-8*t30*
5150         t218*t68*t140*t61-1.44837766656E-11*t22*t219*t63*t299*t61-
5151         1.297993310208E-10*t30*t218*t66*t299*t61+1.896058036224E-13*
5152         t30*t218*t63*t485*t61+2.8545238655999994E-4*t22*t60*t219*t67*
5153         t161-8.326255956479999E-6*t22*t60*t219*t62*t65*t161-4.896145059839999E-6*
5154         t30*t60*t218*t65*t161+8.468883320832E-8*t22*t60*t219*t68*t140*
5155         t161+1.3425738522624E-7*t30*t60*t218*t62*t140*t161-3.569481603072E-10*
5156         t22*t60*t219*t66*t299*t161-1.3132761735168E-9*t30*t60*t218*
5157         t68*t299*t161+5.214159599616001E-13*t22*t60*t219*t63*t485*
5158         t161+5.4311991312384E-12*t30*t60*t218*t66*t485*t161-7.963443752140802E-15*
5159         t30*t60*t218*t63*t729*t161)*t151;
5160     d4fdraragbab = 0.0;
5161     d4fdraraabab = 0.0;
5162     d4fdrarbrbrb = t71*(t72*(.01975178970256521*t84*(192.0*
5163         t127*t85+t716+t709-960.0*t129*t458)*t89*t93*t96-7.324622014701263E-4*
5164         t84*t1*t2*t4*t105*t571*t93*t96-.002197386604410379*t84*t1*
5165         t2*t4*t105*t521*t93*t96+.002929848805880505*t84*t1*t2*t4*t243*
5166         t341*t93*t96-.006836313880387845*t84*t1*t2*t4*t411*t191*t93*
5167         t96-.002278771293462615*t84*t1*t2*t4*t411*t130*t93*t96+.01975178970256521*
5168         t84*t88*t89*t772*t96+.01975178970256521*t84*t130*t89*t565*
5169         t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t565*t96+.05925536910769562*
5170         t84*t191*t89*t520*t96-.002197386604410379*t84*t1*t2*t4*t105*
5171         t88*t520*t96+.05925536910769562*t84*t302*t89*t336*t96+.002929848805880505*
5172         t84*t1*t2*t4*t243*t88*t336*t96-.002197386604410379*t84*t1*
5173         t2*t4*t105*t191*t336*t96-.002197386604410379*t84*t1*t2*t4*
5174         t105*t130*t336*t96+.05925536910769562*t84*t341*t89*t301*t96-
5175         .004394773208820758*t84*t1*t2*t4*t105*t191*t301*t96+.05925536910769562*
5176         t84*t521*t89*t189*t96-.006836313880387845*t84*t1*t2*t4*t411*
5177         t88*t189*t96-.002197386604410379*t84*t1*t2*t4*t105*t341*t189*
5178         t96-.004394773208820758*t84*t1*t2*t4*t105*t302*t189*t96+0.00585969761176101*
5179         t84*t1*t2*t4*t243*t191*t189*t96+.01975178970256521*t84*t571*
5180         t89*t124*t96-.002278771293462615*t84*t1*t2*t4*t411*t88*t124*
5181         t96-.002197386604410379*t84*t1*t2*t4*t105*t341*t124*t96+48.0*
5182         t135*t84*t85*t87*t93-8.0*t129*t469*t84*t87*t93-192.0*t102*
5183         t127*t84*t85*t93+960.0*t102*t129*t458*t84*t93+96.0*t127*t129*
5184         t288*t84*t93-480.0*t129*t135*t277*t84*t93+3.0*t135*t520*t84*
5185         t86*t87+3.0*t189*t469*t84*t86*t87+3.0*t288*t336*t84*t86*t87+
5186         72.0*t102*t189*t84*t85*t87-24.0*t102*t124*t84*t85*t87+4.0*
5187         t102*t129*t565*t84*t87-12.0*t102*t129*t520*t84*t87-36.0*t102*
5188         t279*t336*t84*t87-24.0*t129*t135*t301*t84*t87-12.0*t129*t189*
5189         t288*t84*t87-12.0*t124*t129*t288*t84*t87-36.0*t135*t189*t279*
5190         t84*t87+36.0*t124*t135*t279*t84*t87-4.0*t102*t127*t565*t84*
5191         t86-12.0*t102*t127*t520*t84*t86-360.0*t102*t189*t458*t84*t86-
5192         120.0*t102*t124*t458*t84*t86+60.0*t102*t277*t336*t84*t86-24.0*
5193         t127*t135*t336*t84*t86-36.0*t127*t189*t288*t84*t86-12.0*t124*
5194         t127*t288*t84*t86+180.0*t135*t189*t277*t84*t86+60.0*t124*t135*
5195         t277*t84*t86+96.0*t102*t127*t129*t301*t84+144.0*t102*t127*
5196         t189*t279*t84-144.0*t102*t124*t127*t279*t84-240.0*t102*t129*
5197         t189*t277*t84-240.0*t102*t124*t129*t277*t84+96.0*t127*t129*
5198         t135*t189*t84+96.0*t124*t127*t129*t135*t84+t765+t764+t763+
5199         t762+t761+t760+t759+t758+t756+t755+t754+t753+t752+t751+t750+
5200         t749+t748+t747+t746+t745+t744+t743+t742+t741+t740+t726+t724+
5201         t722+t721+t720+t714+t706+t705+t704+t703+t702+t701+t700+t699+
5202         t698+t697+t696+t695+t694+t693+t692+t691+t689+t688+t687+t686+
5203         t685+t684+t683+t681+t680+t679+t678+t673+t672+t671+t670+t669+
5204         t668+t667+t666+t665+t664+t663+t661+t660+t659+t658+t657+t656+
5205         t654+t84*t86*t87*t124*t469-3076.169106302339*t84*t191*t89*
5206         t93*t417*t418*t419-1025.38970210078*t84*t130*t89*t93*t417*
5207         t418*t419-3076.169106302339*t84*t88*t89*t189*t417*t418*t419-
5208         1025.38970210078*t84*t88*t89*t124*t417*t418*t419+311.6836061887656*
5209         t84*t191*t89*t93*t417*t421*t250+103.8945353962552*t84*t130*
5210         t89*t93*t417*t421*t250+311.6836061887656*t84*t88*t89*t189*
5211         t417*t421*t250+103.8945353962552*t84*t88*t89*t124*t417*t421*
5212         t250-51.9472676981276*t84*t341*t89*t93*t248*t249*t250+5.779133531416695*
5213         t84*t1*t2*t4*t105*t191*t93*t248*t249*t250+1.926377843805565*
5214         t84*t1*t2*t4*t105*t130*t93*t248*t249*t250-51.9472676981276*
5215         t84*t88*t89*t336*t248*t249*t250-103.8945353962552*t84*t191*
5216         t89*t189*t248*t249*t250+5.779133531416695*t84*t1*t2*t4*t105*
5217         t88*t189*t248*t249*t250+1.926377843805565*t84*t1*t2*t4*t105*
5218         t88*t124*t248*t249*t250-155.8418030943828*t84*t191*t89*t93*
5219         t254*t111*t249*t250-51.9472676981276*t84*t130*t89*t93*t254*
5220         t111*t249*t250-155.8418030943828*t84*t88*t89*t189*t254*t111*
5221         t249*t250-51.9472676981276*t84*t88*t89*t124*t254*t111*t249*
5222         t250+t84*t86*t87*t565*t135+3.508934038473122*t84*t341*t89*
5223         t93*t248*t252*t113-.3903689117801349*t84*t1*t2*t4*t105*t191*
5224         t93*t248*t252*t113-.1301229705933783*t84*t1*t2*t4*t105*t130*
5225         t93*t248*t252*t113+3.508934038473122*t84*t88*t89*t336*t248*
5226         t252*t113+7.017868076946245*t84*t191*t89*t189*t248*t252*t113-
5227         .3903689117801349*t84*t1*t2*t4*t105*t88*t189*t248*t252*t113-
5228         .1301229705933783*t84*t1*t2*t4*t105*t88*t124*t248*t252*t113+
5229         10.52680211541937*t84*t191*t89*t93*t254*t111*t252*t113+3.508934038473122*
5230         t84*t130*t89*t93*t254*t111*t252*t113+10.52680211541937*t84*
5231         t88*t89*t189*t254*t111*t252*t113+3.508934038473122*t84*t88*
5232         t89*t124*t254*t111*t252*t113-10.52680211541937*t84*t191*t89*
5233         t93*t417*t249*t113-3.508934038473122*t84*t130*t89*t93*t417*
5234         t249*t113-10.52680211541937*t84*t88*t89*t189*t417*t249*t113-
5235         3.508934038473122*t84*t88*t89*t124*t417*t249*t113-1.754467019236561*
5236         t84*t191*t89*t93*t432*t112*t113-.5848223397455204*t84*t130*
5237         t89*t93*t432*t112*t113-1.754467019236561*t84*t88*t89*t189*
5238         t432*t112*t113-.5848223397455204*t84*t88*t89*t124*t432*t112*
5239         t113-1.754467019236561*t84*t341*t89*t93*t254*t112*t113+.1951844558900674*
5240         t84*t1*t2*t4*t105*t191*t93*t254*t112*t113+.06506148529668915*
5241         t84*t1*t2*t4*t105*t130*t93*t254*t112*t113-1.754467019236561*
5242         t84*t88*t89*t336*t254*t112*t113-3.508934038473122*t84*t191*
5243         t89*t189*t254*t112*t113+.1951844558900674*t84*t1*t2*t4*t105*
5244         t88*t189*t254*t112*t113+.06506148529668915*t84*t1*t2*t4*t105*
5245         t88*t124*t254*t112*t113-.5848223397455204*t84*t571*t89*t93*
5246         t111*t112*t113-1.754467019236561*t84*t521*t89*t93*t111*t112*
5247         t113+.1301229705933783*t84*t1*t2*t4*t105*t341*t93*t111*t112*
5248         t113-.2602459411867565*t84*t1*t2*t4*t243*t191*t93*t111*t112*
5249         t113-.08674864706225219*t84*t1*t2*t4*t243*t130*t93*t111*t112*
5250         t113-.5848223397455204*t84*t88*t89*t565*t111*t112*t113-1.754467019236561*
5251         t84*t88*t89*t520*t111*t112*t113-1.754467019236561*t84*t191*
5252         t89*t336*t111*t112*t113-1.754467019236561*t84*t130*t89*t336*
5253         t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t336*
5254         t111*t112*t113-3.508934038473122*t84*t191*t89*t301*t111*t112*
5255         t113-1.754467019236561*t84*t341*t89*t189*t111*t112*t113-3.508934038473122*
5256         t84*t302*t89*t189*t111*t112*t113-.2602459411867565*t84*t1*
5257         t2*t4*t243*t88*t189*t111*t112*t113+.2602459411867566*t84*t1*
5258         t2*t4*t105*t191*t189*t111*t112*t113-1.754467019236561*t84*
5259         t341*t89*t124*t111*t112*t113-.08674864706225219*t84*t1*t2*
5260         t4*t243*t88*t124*t111*t112*t113+t84*t86*t87*t772*t102)+.05925536910769562*
5261         t84*t521*t89*t93*t96-.004394773208820758*t84*t1*t2*t4*t105*
5262         t341*t93*t96+.008789546417641516*t84*t1*t2*t4*t243*t191*t93*
5263         t96+.05925536910769562*t84*t88*t89*t520*t96+.05925536910769562*
5264         t84*t130*t89*t336*t96-.004394773208820758*t84*t1*t2*t4*t105*
5265         t88*t336*t96+.1185107382153912*t84*t191*t89*t301*t96+.1185107382153912*
5266         t84*t302*t89*t189*t96+.008789546417641516*t84*t1*t2*t4*t243*
5267         t88*t189*t96-.008789546417641516*t84*t1*t2*t4*t105*t191*t189*
5268         t96+.05925536910769562*t84*t341*t89*t124*t96+48.0*t102*t84*
5269         t85*t87*t93-24.0*t129*t288*t84*t87*t93-480.0*t102*t129*t277*
5270         t84*t93+192.0*t127*t129*t135*t84*t93+3.0*t102*t520*t84*t86*
5271         t87+6.0*t135*t336*t84*t86*t87+9.0*t189*t288*t84*t86*t87-24.0*
5272         t102*t129*t301*t84*t87-36.0*t102*t189*t279*t84*t87-24.0*t124*
5273         t129*t135*t84*t87-24.0*t102*t127*t336*t84*t86+180.0*t102*t189*
5274         t277*t84*t86-72.0*t127*t135*t189*t84*t86+96.0*t102*t124*t127*
5275         t129*t84+t739+t738+t737+t736+t735+t734+t733+t732+t731+t730+
5276         t649+t647+t646+t645+t644+t643+t642+t641+t640+t639+t638+t637+
5277         t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
5278         t624+t623+t578+t576+t575+t572+t569+t567+t566+t480+t478+t473+
5279         t471+t456+t454+t438+t437+t436+t434+t431+t429+t426+t424-155.8418030943828*
5280         t84*t191*t89*t93*t248*t249*t250-155.8418030943828*t84*t88*
5281         t89*t189*t248*t249*t250+10.52680211541937*t84*t191*t89*t93*
5282         t248*t252*t113+10.52680211541937*t84*t88*t89*t189*t248*t252*
5283         t113-5.263401057709684*t84*t191*t89*t93*t254*t112*t113-5.263401057709684*
5284         t84*t88*t89*t189*t254*t112*t113-3.508934038473123*t84*t341*
5285         t89*t93*t111*t112*t113+.3903689117801349*t84*t1*t2*t4*t105*
5286         t191*t93*t111*t112*t113-3.508934038473123*t84*t88*t89*t336*
5287         t111*t112*t113-7.017868076946246*t84*t191*t89*t189*t111*t112*
5288         t113+.3903689117801349*t84*t1*t2*t4*t105*t88*t189*t111*t112*
5289         t113)+t141*t580+3.0*t194*t524+3.0*t195*t523+3.0*t304*t349+
5290         3.0*t305*t348+(-.03968148252444444*t22*t60*t49*t69*t541+.001299970392746666*
5291         t22*t60*t49*t62*t67*t541-1.420417388544E-5*t22*t60*t49*t68*
5292         t65*t541+6.201752223744E-8*t22*t60*t49*t66*t140*t541-9.01212770304E-11*
5293         t22*t60*t49*t63*t299*t541+.001522412728319999*t22*t159*t49*
5294         t67*t540-4.440669843455998E-5*t22*t159*t49*t62*t65*t540+4.5167377711104E-7*
5295         t22*t159*t49*t68*t140*t540-1.9037235216383996E-9*t22*t159*
5296         t49*t66*t299*t540+2.780885119795201E-12*t22*t159*t49*t63*t485*
5297         t540-8.704257884159998E-6*t22*t156*t49*t65*t539+2.3867979595775998E-7*
5298         t22*t156*t49*t62*t140*t539-2.3347131973632E-9*t22*t156*t49*
5299         t68*t299*t539+9.6554651222016E-12*t22*t156*t49*t66*t485*t539-
5300         1.41572333371392E-14*t22*t156*t49*t63*t729*t539)*t151+t581*
5301         t139;
5302     d4fdrarbrbga = 2.0*t194*t525+t203*t523+2.0*t304*t350+
5303         t310*t348+(.01700634965333333*grada*t60*t49*t69*t319-5.571301683199998E-4*
5304         grada*t60*t49*t62*t67*t319-3.8060318207999994E-4*t200*t60*
5305         t48*t67*t319+6.087503093759998E-6*grada*t60*t49*t68*t65*t319+
5306         1.1101674608639997E-5*t200*t60*t48*t62*t65*t319-2.657893810176E-8*
5307         grada*t60*t49*t66*t140*t319-1.1291844427776E-7*t200*t60*t48*
5308         t68*t140*t319+3.86234044416E-11*grada*t60*t49*t63*t299*t319+
5309         4.759308804096E-10*t200*t60*t48*t66*t299*t319-6.952212799488E-13*
5310         t200*t60*t48*t63*t485*t319-2.7680231423999996E-4*grada*t159*
5311         t49*t67*t318+8.073945169919998E-6*grada*t159*t49*t62*t65*t318+
5312         6.528193413119999E-6*t200*t159*t48*t65*t318-8.212250492928002E-8*
5313         grada*t159*t49*t68*t140*t318-1.7900984696832E-7*t200*t159*
5314         t48*t62*t140*t318+3.461315493887999E-10*grada*t159*t49*t66*
5315         t299*t318+1.7510348980224E-9*t200*t159*t48*t68*t299*t318-5.056154763264E-13*
5316         grada*t159*t49*t63*t485*t318-7.2415988416512E-12*t200*t159*
5317         t48*t66*t485*t318+1.06179250028544E-14*t200*t159*t48*t63*t729*
5318         t318)*t151+t582*t139;
5319     d4fdrarbrbgb = 2.0*t194*t526+t211*t523+2.0*t304*t355+
5320         t311*t348+(.01700634965333333*t22*gradb*t49*t69*t319-5.571301683199998E-4*
5321         t22*gradb*t49*t62*t67*t319+6.087503093759998E-6*t22*gradb*
5322         t49*t68*t65*t319-2.657893810176E-8*t22*gradb*t49*t66*t140*
5323         t319+3.86234044416E-11*t22*gradb*t49*t63*t299*t319-9.342078105599997E-4*
5324         t22*t208*t49*t67*t318+2.7249564948479993E-5*t22*t208*t49*t62*
5325         t65*t318-2.7716345413632004E-7*t22*t208*t49*t68*t140*t318+
5326         1.1681939791872E-9*t22*t208*t49*t66*t299*t318-1.7064522326016E-12*
5327         t22*t208*t49*t63*t485*t318+6.528193413119999E-6*t22*t207*t49*
5328         t65*t317-1.7900984696832E-7*t22*t207*t49*t62*t140*t317+1.7510348980224E-9*
5329         t22*t207*t49*t68*t299*t317-7.2415988416512E-12*t22*t207*t49*
5330         t66*t485*t317+1.06179250028544E-14*t22*t207*t49*t63*t729*t317)*
5331         t151+t587*t139;
5332     d4fdrarbrbab = 0.0;
5333     d4fdrarbgaga = (-.004638095359999999*t60*t49*t69*t176+
5334         1.5194459135999996E-4*t60*t49*t62*t67*t176+5.190043391999999E-4*
5335         t22*t60*t48*t67*t176-1.6602281164799998E-6*t60*t49*t68*t65*
5336         t176-1.5138647193599997E-5*t22*t60*t48*t62*t65*t176-4.896145059839999E-6*
5337         t30*t60*t47*t65*t176+7.24880130048E-9*t60*t49*t66*t140*t176+
5338         1.539796967424E-7*t22*t60*t48*t68*t140*t176+1.3425738522624E-7*
5339         t30*t60*t47*t62*t140*t176-1.05336557568E-11*t60*t49*t63*t299*
5340         t176-6.48996655104E-10*t22*t60*t48*t66*t299*t176-1.3132761735168E-9*
5341         t30*t60*t47*t68*t299*t176+9.48029018112E-13*t22*t60*t48*t63*
5342         t485*t176+5.4311991312384E-12*t30*t60*t47*t66*t485*t176-7.963443752140802E-15*
5343         t30*t60*t47*t63*t729*t176)*t151+t588*t139+t530*t194+t359*t304;
5344     d4fdrarbgagb = (-
5345         .009276190719999997*grada*gradb*t49*t69*t176+3.0388918271999993E-4*
5346         grada*gradb*t49*t62*t67*t176+2.0760173567999995E-4*t200*gradb*
5347         t48*t67*t176-3.3204562329599996E-6*grada*gradb*t49*t68*t65*
5348         t176-6.05545887744E-6*t200*gradb*t48*t62*t65*t176+1.449760260096E-8*
5349         grada*gradb*t49*t66*t140*t176+6.159187869696E-8*t200*gradb*
5350         t48*t68*t140*t176-2.10673115136E-11*grada*gradb*t49*t63*t299*
5351         t176-2.595986620416E-10*t200*gradb*t48*t66*t299*t176+3.792116072448E-13*
5352         t200*gradb*t48*t63*t485*t176+2.0760173567999995E-4*grada*t208*
5353         t49*t67*t175-6.05545887744E-6*grada*t208*t49*t62*t65*t175-
5354         4.896145059839999E-6*t200*t208*t48*t65*t175+6.159187869696E-8*
5355         grada*t208*t49*t68*t140*t175+1.3425738522624E-7*t200*t208*
5356         t48*t62*t140*t175-2.595986620416E-10*grada*t208*t49*t66*t299*
5357         t175-1.3132761735168E-9*t200*t208*t48*t68*t299*t175+3.792116072448E-13*
5358         grada*t208*t49*t63*t485*t175+5.4311991312384E-12*t200*t208*
5359         t48*t66*t485*t175-7.963443752140802E-15*t200*t208*t48*t63*
5360         t729*t175)*t151+t589*t139+t531*t194+t360*t304;
5361     d4fdrarbgaab = 0.0;
5362     d4fdrarbgbgb = (-.004638095359999999*t22*t49*t69*t176+
5363         1.5194459135999996E-4*t22*t49*t62*t67*t176-1.6602281164799998E-6*
5364         t22*t49*t68*t65*t176+7.24880130048E-9*t22*t49*t66*t140*t176-
5365         1.05336557568E-11*t22*t49*t63*t299*t176+5.190043391999999E-4*
5366         t22*t60*t49*t67*t175-1.5138647193599997E-5*t22*t60*t49*t62*
5367         t65*t175+1.539796967424E-7*t22*t60*t49*t68*t140*t175-6.48996655104E-10*
5368         t22*t60*t49*t66*t299*t175+9.48029018112E-13*t22*t60*t49*t63*
5369         t485*t175-4.896145059839999E-6*t22*t159*t49*t65*t174+1.3425738522624E-7*
5370         t22*t159*t49*t62*t140*t174-1.3132761735168E-9*t22*t159*t49*
5371         t68*t299*t174+5.4311991312384E-12*t22*t159*t49*t66*t485*t174-
5372         7.963443752140802E-15*t22*t159*t49*t63*t729*t174)*t151+t593*
5373         t139+t532*t194+t364*t304;
5374     d4fdrarbgbab = 0.0;
5375     d4fdrarbabab = 0.0;
5376     d4fdragagaga = 1.0*t51*t595*t56*t35*t57*rhoa-0.03109*
5377         t20*(9.303062016000002*grada*t31*t48-42.35934581760001*t200*
5378         t28*t47+50.64159919104002*t199*t25*t46-26.03075498803201*t198*
5379         t44*t45+6.622699683840002*t196*t213*t307-.8247864360960004*
5380         t306*t366*t527+.04022837575680003*t514*t605*t773)*t35*rhoa-
5381         1.0*t36*t4*t596*t6-0.75*t36*t4*(-.007947716607999998*grada*
5382         t40*t48+6.958228725759998E-4*t200*t39*t47-1.7151946866688E-5*
5383         t199*t38*t46+1.86041143656448E-7*t198*t58*t45-1.0096297377792E-9*
5384         t196*t228*t307+2.6976565854208E-12*t306*t383*t527-2.832254107648E-15*
5385         t514*t622*t773)*t53-0.03109*t20*t595*t35+.002129457733333333*
5386         t1*t2*t4*t20*t595*t17+(0.02087142912*grada*t48*t69-6.837506611199999E-4*
5387         grada*t48*t62*t67-7.006558579199998E-4*t200*t47*t67+7.47102652416E-6*
5388         grada*t48*t68*t65+2.0437173711360002E-5*t200*t47*t62*t65+3.6721087948799996E-6*
5389         t199*t46*t65-3.2619605852160005E-8*grada*t48*t66*t140-2.0787259060224006E-7*
5390         t200*t47*t68*t140-1.0069303891968003E-7*t199*t46*t62*t140+
5391         4.740145090559999E-11*grada*t48*t63*t299+8.761454843904001E-10*
5392         t200*t47*t66*t299+9.849571301376002E-10*t199*t46*t68*t299-
5393         1.2798391744512E-12*t200*t47*t63*t485-4.073399348428801E-12*
5394         t199*t46*t66*t485+5.972582814105601E-15*t199*t46*t63*t729)*
5395         t151+t597*t139;
5396     d4fdragagagb = (.003478571519999999*gradb*t49*t69*t61-
5397         1.1395844352E-4*gradb*t49*t62*t67*t61-3.892532543999999E-4*
5398         t22*gradb*t48*t67*t61+1.2451710873600001E-6*gradb*t49*t68*
5399         t65*t61+1.1353985395200002E-5*t22*gradb*t48*t62*t65*t61+3.6721087948799996E-6*
5400         t30*gradb*t47*t65*t61-5.436600975360001E-9*gradb*t49*t66*t140*
5401         t61-1.1548477255680002E-7*t22*gradb*t48*t68*t140*t61-1.0069303891968003E-7*
5402         t30*gradb*t47*t62*t140*t61+7.9002418176E-12*gradb*t49*t63*
5403         t299*t61+4.867474913279999E-10*t22*gradb*t48*t66*t299*t61+
5404         9.849571301376002E-10*t30*gradb*t47*t68*t299*t61-7.11021763584E-13*
5405         t22*gradb*t48*t63*t485*t61-4.073399348428801E-12*t30*gradb*
5406         t47*t66*t485*t61+5.972582814105601E-15*t30*gradb*t47*t63*t729*
5407         t61)*t151+t598*t139;
5408     d4fdragagaab = 0.0;
5409     d4fdragagbgb = (.003478571519999999*grada*t49*t69*t61-
5410         1.1395844352E-4*grada*t49*t62*t67*t61-7.785065087999998E-5*
5411         t200*t48*t67*t61+1.2451710873600001E-6*grada*t49*t68*t65*t61+
5412         2.27079707904E-6*t200*t48*t62*t65*t61-5.436600975360001E-9*
5413         grada*t49*t66*t140*t61-2.3096954511360004E-8*t200*t48*t68*
5414         t140*t61+7.9002418176E-12*grada*t49*t63*t299*t61+9.73494982656E-11*
5415         t200*t48*t66*t299*t61-1.422043527168E-13*t200*t48*t63*t485*
5416         t61-1.5570130175999997E-4*grada*t60*t49*t67*t161+4.54159415808E-6*
5417         grada*t60*t49*t62*t65*t161+3.6721087948799996E-6*t200*t60*
5418         t48*t65*t161-4.619390902272001E-8*grada*t60*t49*t68*t140*t161-
5419         1.0069303891968003E-7*t200*t60*t48*t62*t140*t161+1.946989965312E-10*
5420         grada*t60*t49*t66*t299*t161+9.849571301376002E-10*t200*t60*
5421         t48*t68*t299*t161-2.844087054336001E-13*grada*t60*t49*t63*
5422         t485*t161-4.073399348428801E-12*t200*t60*t48*t66*t485*t161+
5423         5.972582814105601E-15*t200*t60*t48*t63*t729*t161)*t151+t599*
5424         t139;
5425     d4fdragagbab = 0.0;
5426     d4fdragaabab = 0.0;
5427     d4fdragbgbgb = (-2.3355195263999995E-4*t22*gradb*t49*
5428         t67*t161+6.81239123712E-6*t22*gradb*t49*t62*t65*t161-6.929086353408003E-8*
5429         t22*gradb*t49*t68*t140*t161+2.920484947968E-10*t22*gradb*t49*
5430         t66*t299*t161-4.266130581504001E-13*t22*gradb*t49*t63*t485*
5431         t161+3.6721087948799996E-6*t22*t208*t49*t65*t158-1.0069303891968003E-7*
5432         t22*t208*t49*t62*t140*t158+9.849571301376002E-10*t22*t208*
5433         t49*t68*t299*t158-4.073399348428801E-12*t22*t208*t49*t66*t485*
5434         t158+5.972582814105601E-15*t22*t208*t49*t63*t729*t158)*t151+
5435         t603*t139;
5436     d4fdragbgbab = 0.0;
5437     d4fdragbabab = 0.0;
5438     d4fdraababab = 0.0;
5439     d4fdrbrbrbrb = t71*(24829.60425438716*t543*t785*t150*
5440         t787*rhob-199659.0885685683*t784*t785*t150*t786*rhob+24.0*
5441         t178*t785*t150*t546*rhob+1157.928594403345*t321*t327*t322*
5442         t150*t546*rhob-1157.928594403345*t321*t785*t150*t545*rhob-
5443         12414.80212719358*t543*t327*t322*t150*t545*rhob+6.0*t178*t788*
5444         t150*t324*rhob+8.0*t178*t550*t183*t150*t324*rhob-96.4940495336121*
5445         t321*t788*t150*t323*rhob-36.0*t178*t327*t322*t150*t323*rhob-
5446         128.6587327114828*t321*t550*t183*t150*t323*rhob-1.0*t178*t790*
5447         t150*t184*rhob+t72*(.01975178970256521*t84*(-384.0*t127*t85+
5448         t717+t716+t712-1920.0*t129*t458)*t89*t93*t96-.002929848805880505*
5449         t84*t1*t2*t4*t105*t571*t93*t96+0.00585969761176101*t84*t1*
5450         t2*t4*t243*t341*t93*t96-0.00911508517385046*t84*t1*t2*t4*t411*
5451         t191*t93*t96+.01975178970256521*t84*t88*t89*t792*t96+.07900715881026082*
5452         t84*t191*t89*t565*t96-.002929848805880505*t84*t1*t2*t4*t105*
5453         t88*t565*t96+.1185107382153912*t84*t341*t89*t336*t96+0.00585969761176101*
5454         t84*t1*t2*t4*t243*t88*t336*t96-.008789546417641516*t84*t1*
5455         t2*t4*t105*t191*t336*t96+.07900715881026082*t84*t571*t89*t189*
5456         t96-0.00911508517385046*t84*t1*t2*t4*t411*t88*t189*t96-.008789546417641516*
5457         t84*t1*t2*t4*t105*t341*t189*t96+.01171939522352202*t84*t1*
5458         t2*t4*t243*t191*t189*t96-96.0*t135*t84*t85*t87*t93-16.0*t129*
5459         t469*t84*t87*t93+384.0*t102*t127*t84*t85*t93+1920.0*t102*t129*
5460         t458*t84*t93+192.0*t127*t129*t288*t84*t93-960.0*t129*t135*
5461         t277*t84*t93+4.0*t135*t565*t84*t86*t87+4.0*t189*t469*t84*t86*
5462         t87+6.0*t288*t336*t84*t86*t87-96.0*t102*t189*t84*t85*t87-16.0*
5463         t102*t129*t565*t84*t87+72.0*t102*t279*t336*t84*t87-48.0*t129*
5464         t135*t336*t84*t87-48.0*t129*t189*t288*t84*t87+144.0*t135*t189*
5465         t279*t84*t87-16.0*t102*t127*t565*t84*t86-480.0*t102*t189*t458*
5466         t84*t86+120.0*t102*t277*t336*t84*t86-48.0*t127*t135*t336*t84*
5467         t86-48.0*t127*t189*t288*t84*t86+240.0*t135*t189*t277*t84*t86+
5468         192.0*t102*t127*t129*t336*t84-576.0*t102*t127*t189*t279*t84-
5469         960.0*t102*t129*t189*t277*t84+384.0*t127*t129*t135*t189*t84+
5470         t728+t727+t726+t725+t724+t723+t722+t721+t720+t714+t706+t705+
5471         t704+t703+t702+t701+t700+t699+t698+t697+t696+t695+t694+t693+
5472         t692+t691+t689+t688+t687+t686+t685+t684+t683+t681+t680+t679+
5473         t678+t673+t672+t671+t670+t669+t668+t667+t666+t665+t664+t663+
5474         t661+t660+t659+t658+t657+t656+t654-4101.558808403119*t84*t191*
5475         t89*t93*t417*t418*t419-4101.558808403119*t84*t88*t89*t189*
5476         t417*t418*t419+415.5781415850207*t84*t191*t89*t93*t417*t421*
5477         t250+415.5781415850207*t84*t88*t89*t189*t417*t421*t250-103.8945353962552*
5478         t84*t341*t89*t93*t248*t249*t250+7.70551137522226*t84*t1*t2*
5479         t4*t105*t191*t93*t248*t249*t250-103.8945353962552*t84*t88*
5480         t89*t336*t248*t249*t250-207.7890707925104*t84*t191*t89*t189*
5481         t248*t249*t250+7.70551137522226*t84*t1*t2*t4*t105*t88*t189*
5482         t248*t249*t250-207.7890707925104*t84*t191*t89*t93*t254*t111*
5483         t249*t250-207.7890707925104*t84*t88*t89*t189*t254*t111*t249*
5484         t250+7.017868076946245*t84*t341*t89*t93*t248*t252*t113-.5204918823735132*
5485         t84*t1*t2*t4*t105*t191*t93*t248*t252*t113+7.017868076946245*
5486         t84*t88*t89*t336*t248*t252*t113+14.03573615389249*t84*t191*
5487         t89*t189*t248*t252*t113-.5204918823735132*t84*t1*t2*t4*t105*
5488         t88*t189*t248*t252*t113+14.03573615389249*t84*t191*t89*t93*
5489         t254*t111*t252*t113+14.03573615389249*t84*t88*t89*t189*t254*
5490         t111*t252*t113-14.03573615389249*t84*t191*t89*t93*t417*t249*
5491         t113-14.03573615389249*t84*t88*t89*t189*t417*t249*t113-2.339289358982082*
5492         t84*t191*t89*t93*t432*t112*t113-2.339289358982082*t84*t88*
5493         t89*t189*t432*t112*t113-3.508934038473122*t84*t341*t89*t93*
5494         t254*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*t191*t93*
5495         t254*t112*t113-3.508934038473122*t84*t88*t89*t336*t254*t112*
5496         t113-7.017868076946245*t84*t191*t89*t189*t254*t112*t113+.2602459411867566*
5497         t84*t1*t2*t4*t105*t88*t189*t254*t112*t113-2.339289358982082*
5498         t84*t571*t89*t93*t111*t112*t113+.2602459411867566*t84*t1*t2*
5499         t4*t105*t341*t93*t111*t112*t113-.3469945882490088*t84*t1*t2*
5500         t4*t243*t191*t93*t111*t112*t113-2.339289358982082*t84*t88*
5501         t89*t565*t111*t112*t113-7.017868076946245*t84*t191*t89*t336*
5502         t111*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*t88*t336*
5503         t111*t112*t113-7.017868076946245*t84*t341*t89*t189*t111*t112*
5504         t113-.3469945882490088*t84*t1*t2*t4*t243*t88*t189*t111*t112*
5505         t113+.5204918823735132*t84*t1*t2*t4*t105*t191*t189*t111*t112*
5506         t113+t84*t86*t87*t792*t102)+.07900715881026082*t84*t571*t89*
5507         t93*t96-.008789546417641516*t84*t1*t2*t4*t105*t341*t93*t96+
5508         .01171939522352202*t84*t1*t2*t4*t243*t191*t93*t96+.07900715881026082*
5509         t84*t88*t89*t565*t96+.2370214764307825*t84*t191*t89*t336*t96-
5510         .008789546417641516*t84*t1*t2*t4*t105*t88*t336*t96+.2370214764307825*
5511         t84*t341*t89*t189*t96+.01171939522352202*t84*t1*t2*t4*t243*
5512         t88*t189*t96-.01757909283528303*t84*t1*t2*t4*t105*t191*t189*
5513         t96-96.0*t102*t84*t85*t87*t93-48.0*t129*t288*t84*t87*t93-960.0*
5514         t102*t129*t277*t84*t93+384.0*t127*t129*t135*t84*t93+4.0*t102*
5515         t565*t84*t86*t87+12.0*t135*t336*t84*t86*t87+12.0*t189*t288*
5516         t84*t86*t87-48.0*t102*t129*t336*t84*t87+144.0*t102*t189*t279*
5517         t84*t87-96.0*t129*t135*t189*t84*t87-48.0*t102*t127*t336*t84*
5518         t86+240.0*t102*t189*t277*t84*t86-96.0*t127*t135*t189*t84*t86+
5519         384.0*t102*t127*t129*t189*t84+t650+t649+t648+t647+t646+t645+
5520         t644+t643+t642+t641+t640+t639+t638+t637+t636+t635+t634+t633+
5521         t632+t631+t630+t629+t628+t627+t626+t625+t624+t623-.004416653076543209*
5522         t1*t2*t4*t149*t547+771.9523962688968*t321*t544*t150*t546-8276.534751462386*
5523         t543*t544*t150*t545-.2435318518518518*t1*t2*t4*t178*t183*t184*
5524         t325+24.0*t178*t327*t183*t150*t324-24.0*t178*t544*t150*t323-
5525         385.9761981344484*t321*t327*t183*t150*t323-207.7890707925104*
5526         t84*t191*t89*t93*t248*t249*t250-207.7890707925104*t84*t88*
5527         t89*t189*t248*t249*t250-4.0*t178*t550*t150*t184-.5479466666666666*
5528         t1*t2*t4*t178*t322*t324*t181+8.812265465851826*t1*t2*t4*t321*
5529         t322*t323*t181+.2739733333333333*t1*t2*t4*t178*t327*t184*t181-
5530         52.87359279511096*t1*t2*t4*t321*t544*t546*t146+566.8874535768302*
5531         t1*t2*t4*t543*t544*t545*t146-1.64384*t1*t2*t4*t178*t327*t183*
5532         t324*t146+1.64384*t1*t2*t4*t178*t544*t323*t146+26.43679639755548*
5533         t1*t2*t4*t321*t327*t183*t323*t146+.2739733333333333*t1*t2*
5534         t4*t178*t550*t184*t146+14.03573615389249*t84*t191*t89*t93*
5535         t248*t252*t113+14.03573615389249*t84*t88*t89*t189*t248*t252*
5536         t113-7.017868076946245*t84*t191*t89*t93*t254*t112*t113-7.017868076946245*
5537         t84*t88*t89*t189*t254*t112*t113-7.017868076946245*t84*t341*
5538         t89*t93*t111*t112*t113+.5204918823735132*t84*t1*t2*t4*t105*
5539         t191*t93*t111*t112*t113-7.017868076946245*t84*t88*t89*t336*
5540         t111*t112*t113-14.03573615389249*t84*t191*t89*t189*t111*t112*
5541         t113+.5204918823735132*t84*t1*t2*t4*t105*t88*t189*t111*t112*
5542         t113)-24829.60425438716*t543*t163*t785*t150*t787*rhob+199659.0885685683*
5543         t784*t163*t785*t150*t786*rhob-24.0*t178*t163*t785*t150*t546*
5544         rhob-771.9523962688968*t321*t177*t544*t150*t546*rhob-1157.928594403345*
5545         t321*t163*t327*t322*t150*t546*rhob+1157.928594403345*t321*
5546         t163*t785*t150*t545*rhob+8276.534751462386*t543*t177*t544*
5547         t150*t545*rhob+12414.80212719358*t543*t163*t327*t322*t150*
5548         t545*rhob-6.0*t178*t163*t788*t150*t324*rhob-12.0*t178*t320*
5549         t322*t150*t324*rhob-8.0*t178*t163*t550*t183*t150*t324*rhob-
5550         24.0*t178*t177*t327*t183*t150*t324*rhob+96.4940495336121*t321*
5551         t163*t788*t150*t323*rhob+24.0*t178*t177*t544*t150*t323*rhob+
5552         36.0*t178*t163*t327*t322*t150*t323*rhob+192.9880990672242*
5553         t321*t320*t322*t150*t323*rhob+128.6587327114828*t321*t163*
5554         t550*t183*t150*t323*rhob+385.9761981344484*t321*t177*t327*
5555         t183*t150*t323*rhob+1.0*t178*t163*t790*t150*t184*rhob+4.0*
5556         t178*t177*t550*t150*t184*rhob+6.0*t178*t320*t327*t150*t184*
5557         rhob+4.0*t178*t542*t183*t150*t184*rhob-0.03109*t149*(1.648851306666667*
5558         t60*t162*t783-149.6964613238518*t159*t160*t782+320.2201690661926*
5559         t156*t157*t781-253.7662422846578*t152*t154*t780+99.27987154230993*
5560         t170*t171*t779-20.69653345924741*t312*t313*t778+2.210467588778668*
5561         t533*t534*t777-0.0953561499420445*t774*t775*t776)*t150*rhob-
5562         0.75*t180*t36*t4*(-.3731455439012346*t60*t168*t783+.1266766131231605*
5563         t159*t167*t782-.005245704761192296*t156*t166*t781+8.65266582058224E-5*
5564         t152*t165*t780-7.184213048664367E-7*t170*t185*t779+3.1967368617478314E-9*
5565         t312*t328*t778-7.293573527658193E-12*t533*t551*t777+6.713491218128591E-15*
5566         t774*t791*t776)-.3703703703703703*t169*t36*t4*t61+4.0*t194*
5567         t581+4.0*t195*t580-4.0*t142*t36*t4*t552+.004416653076543209*
5568         t1*t2*t4*t149*t163*t547-771.9523962688968*t321*t163*t544*t150*
5569         t546+8276.534751462386*t543*t163*t544*t150*t545-2.0*t145*t329*
5570         t36*t4+.8888888888888888*t179*t186*t36*t4+6.0*t348*t349+.2435318518518518*
5571         t1*t2*t4*t178*t163*t183*t184*t325-.007571405274074072*t1*t2*
5572         t4*t149*t177*t325-24.0*t178*t177*t322*t150*t324-24.0*t178*
5573         t163*t327*t183*t150*t324+24.0*t178*t163*t544*t150*t323+385.9761981344484*
5574         t321*t177*t322*t150*t323+385.9761981344484*t321*t163*t327*
5575         t183*t150*t323+4.0*t178*t163*t550*t150*t184+12.0*t178*t177*
5576         t327*t150*t184+12.0*t178*t320*t183*t150*t184+.5479466666666666*
5577         t1*t2*t4*t178*t163*t322*t324*t181-8.812265465851826*t1*t2*
5578         t4*t321*t163*t322*t323*t181+.008517830933333331*t1*t2*t4*t149*
5579         t320*t181-.2739733333333333*t1*t2*t4*t178*t163*t327*t184*t181-
5580         .5479466666666666*t1*t2*t4*t178*t177*t183*t184*t181+(3.540823668148148*
5581         t60*t70*t783-0.14740135872*t60*t62*t69*t783+.001878028932266667*
5582         t60*t68*t67*t783-8.85440607744E-6*t60*t66*t65*t783+1.276718091264E-8*
5583         t60*t63*t140*t783-0.252260853191111*t159*t69*t782+.008264097496746666*
5584         t159*t62*t67*t782-9.029796255744E-5*t159*t68*t65*t782+3.9425424850944E-7*
5585         t159*t66*t140*t782-5.729138325504E-10*t159*t63*t299*t782+.003044825456639999*
5586         t156*t67*t781-8.881339686911999E-5*t156*t62*t65*t781+9.0334755422208E-7*
5587         t156*t68*t140*t781-3.8074470432768E-9*t156*t66*t299*t781+5.561770239590401E-12*
5588         t156*t63*t485*t781-8.704257884159998E-6*t152*t65*t780+2.3867979595775998E-7*
5589         t152*t62*t140*t780-2.3347131973632E-9*t152*t68*t299*t780+9.6554651222016E-12*
5590         t152*t66*t485*t780-1.41572333371392E-14*t152*t63*t729*t780)*
5591         t151-0.12436*t149*t542*t150+52.87359279511096*t1*t2*t4*t321*
5592         t163*t544*t546*t146-566.8874535768302*t1*t2*t4*t543*t163*t544*
5593         t545*t146+.008517830933333331*t1*t2*t4*t149*t542*t146+1.64384*
5594         t1*t2*t4*t178*t177*t322*t324*t146+1.64384*t1*t2*t4*t178*t163*
5595         t327*t183*t324*t146-1.64384*t1*t2*t4*t178*t163*t544*t323*t146-
5596         26.43679639755548*t1*t2*t4*t321*t177*t322*t323*t146-26.43679639755548*
5597         t1*t2*t4*t321*t163*t327*t183*t323*t146-.2739733333333333*t1*
5598         t2*t4*t178*t163*t550*t184*t146-.8219199999999999*t1*t2*t4*
5599         t178*t177*t327*t184*t146-.8219199999999999*t1*t2*t4*t178*t320*
5600         t183*t184*t146;
5601     d4fdrbrbrbga = 3.0*t194*t582+t203*t580+3.0*t348*t350+
5602         (.02976111189333333*grada*t60*t23*t69*t541-9.749777945599999E-4*
5603         grada*t60*t23*t62*t67*t541+1.065313041408E-5*grada*t60*t23*
5604         t68*t65*t541-4.651314167808E-8*grada*t60*t23*t66*t140*t541+
5605         6.75909577728E-11*grada*t60*t23*t63*t299*t541-0.00114180954624*
5606         grada*t159*t23*t67*t540+3.3305023825919994E-5*grada*t159*t23*
5607         t62*t65*t540-3.3875533283328E-7*grada*t159*t23*t68*t140*t540+
5608         1.4277926412288E-9*grada*t159*t23*t66*t299*t540-2.085663839846401E-12*
5609         grada*t159*t23*t63*t485*t540+6.528193413119999E-6*grada*t156*
5610         t23*t65*t539-1.7900984696832E-7*grada*t156*t23*t62*t140*t539+
5611         1.7510348980224E-9*grada*t156*t23*t68*t299*t539-7.2415988416512E-12*
5612         grada*t156*t23*t66*t485*t539+1.06179250028544E-14*grada*t156*
5613         t23*t63*t729*t539)*t151;
5614     d4fdrbrbrbgb = -192.9880990672242*t321*t209*t544*t150*
5615         t546*rhob+2069.133687865597*t543*t209*t544*t150*t545*rhob-
5616         6.0*t178*t353*t322*t150*t324*rhob-6.0*t178*t209*t327*t183*
5617         t150*t324*rhob+6.0*t178*t209*t544*t150*t323*rhob+96.4940495336121*
5618         t321*t353*t322*t150*t323*rhob+96.4940495336121*t321*t209*t327*
5619         t183*t150*t323*rhob+1.0*t178*t209*t550*t150*t184*rhob+3.0*
5620         t178*t353*t327*t150*t184*rhob+3.0*t178*t585*t183*t150*t184*
5621         rhob-0.03109*t149*(-.5819475199999999*gradb*t162*t541+71.89620165688889*
5622         t208*t160*t540-178.5808092444445*t207*t157*t539+155.7559643682134*
5623         t206*t154*t538-65.29869259753247*t204*t171*t537+14.35727882467556*
5624         t351*t313*t536-1.600381583360001*t583*t534*t535+.07151711245653339*
5625         t793*t775*t794)*t150*rhob+3.0*t194*t587-3.0*t142*t36*t4*t586+
5626         t211*t580-0.75*t180*t36*t4*(.1316984272592593*gradb*t168*t541-
5627         .06099442003437035*t208*t167*t540+.002927258189368889*t207*
5628         t166*t539-5.300765252600415E-5*t206*t165*t538+4.70902424702521E-7*
5629         t204*t185*t537-2.2096262395524743E-9*t351*t328*t536+5.267876280911644E-12*
5630         t583*t551*t535-5.035118413596443E-15*t793*t791*t794)-1.0*t145*
5631         t354*t36*t4+.2222222222222222*t179*t210*t36*t4+3.0*t348*t355-
5632         .001892851318518518*t1*t2*t4*t149*t209*t325-6.0*t178*t209*
5633         t322*t150*t324+96.4940495336121*t321*t209*t322*t150*t323+3.0*
5634         t178*t209*t327*t150*t184+6.0*t178*t353*t183*t150*t184+.004258915466666666*
5635         t1*t2*t4*t149*t353*t181-.1369866666666666*t1*t2*t4*t178*t209*
5636         t183*t184*t181+(-1.249702471111111*gradb*t70*t541+.05202400895999999*
5637         gradb*t62*t69*t541-6.628337408E-4*gradb*t68*t67*t541+3.12508449792E-6*
5638         gradb*t66*t65*t541-4.50606385152E-9*gradb*t63*t140*t541+.1317992098133333*
5639         t208*t69*t540-0.00431775880448*t208*t62*t67*t540+4.7178148976639994E-5*
5640         t208*t68*t65*t540-2.0598677028864004E-7*t208*t66*t140*t540+
5641         2.993313844224E-10*t208*t63*t299*t540-.001972216488959999*
5642         t207*t67*t539+5.752685933567999E-5*t207*t62*t65*t539-5.851228476211201E-7*
5643         t207*t68*t140*t539+2.4661872893952E-9*t207*t66*t299*t539-3.602510268825601E-12*
5644         t207*t63*t485*t539+6.528193413119999E-6*t206*t65*t538-1.7900984696832E-7*
5645         t206*t62*t140*t538+1.7510348980224E-9*t206*t68*t299*t538-7.2415988416512E-12*
5646         t206*t66*t485*t538+1.06179250028544E-14*t206*t63*t729*t538)*
5647         t151-.09326999999999999*t149*t585*t150+.006388373199999998*
5648         t1*t2*t4*t149*t585*t146+.4109599999999999*t1*t2*t4*t178*t209*
5649         t322*t324*t146-6.60919909938887*t1*t2*t4*t321*t209*t322*t323*
5650         t146-0.20548*t1*t2*t4*t178*t209*t327*t184*t146-.4109599999999999*
5651         t1*t2*t4*t178*t353*t183*t184*t146;
5652     d4fdrbrbrbab = 0.0;
5653     d4fdrbrbgaga = 2.0*t194*t588+t359*t348+(-.006377381119999998*
5654         t60*t23*t69*t319+2.0892381311999997E-4*t60*t23*t62*t67*t319+
5655         2.8545238655999994E-4*t22*t60*t32*t67*t319-2.2828136601599996E-6*
5656         t60*t23*t68*t65*t319-8.326255956479999E-6*t22*t60*t32*t62*
5657         t65*t319+9.96710178816E-9*t60*t23*t66*t140*t319+8.468883320832E-8*
5658         t22*t60*t32*t68*t140*t319-1.44837766656E-11*t60*t23*t63*t299*
5659         t319-3.569481603072E-10*t22*t60*t32*t66*t299*t319+5.214159599616001E-13*
5660         t22*t60*t32*t63*t485*t319+1.0380086783999998E-4*t159*t23*t67*
5661         t318-3.02772943872E-6*t159*t23*t62*t65*t318-4.896145059839999E-6*
5662         t22*t159*t32*t65*t318+3.079593934848E-8*t159*t23*t68*t140*
5663         t318+1.3425738522624E-7*t22*t159*t32*t62*t140*t318-1.297993310208E-10*
5664         t159*t23*t66*t299*t318-1.3132761735168E-9*t22*t159*t32*t68*
5665         t299*t318+1.896058036224E-13*t159*t23*t63*t485*t318+5.4311991312384E-12*
5666         t22*t159*t32*t66*t485*t318-7.963443752140802E-15*t22*t159*
5667         t32*t63*t729*t318)*t151;
5668     d4fdrbrbgagb = 2.0*t194*t589+t360*t348+(-0.01275476224*
5669         grada*gradb*t23*t69*t319+4.1784762623999994E-4*grada*gradb*
5670         t23*t62*t67*t319-4.5656273203199993E-6*grada*gradb*t23*t68*
5671         t65*t319+1.993420357632E-8*grada*gradb*t23*t66*t140*t319-2.89675533312E-11*
5672         grada*gradb*t23*t63*t299*t319+7.006558579199998E-4*grada*t208*
5673         t23*t67*t318-2.0437173711360002E-5*grada*t208*t23*t62*t65*
5674         t318+2.0787259060224E-7*grada*t208*t23*t68*t140*t318-8.761454843903999E-10*
5675         grada*t208*t23*t66*t299*t318+1.2798391744512E-12*grada*t208*
5676         t23*t63*t485*t318-4.896145059839999E-6*grada*t207*t23*t65*
5677         t317+1.3425738522624E-7*grada*t207*t23*t62*t140*t317-1.3132761735168E-9*
5678         grada*t207*t23*t68*t299*t317+5.4311991312384E-12*grada*t207*
5679         t23*t66*t485*t317-7.963443752140802E-15*grada*t207*t23*t63*
5680         t729*t317)*t151;
5681     d4fdrbrbgaab = 0.0;
5682     d4fdrbrbgbgb = -2.0*t178*t362*t322*t150*t324*rhob+32.1646831778707*
5683         t321*t362*t322*t150*t323*rhob+1.0*t178*t362*t327*t150*t184*
5684         rhob+2.0*t178*t591*t183*t150*t184*rhob-0.03109*t149*(0.12470304*
5685         t162*t319-29.434755776*t60*t160*t318+91.90239347200003*t159*
5686         t157*t317-91.38512306176003*t156*t154*t316+41.86583785881601*
5687         t152*t171*t315-9.826956554240002*t170*t313*t314+1.152395264000001*
5688         t312*t534*t584-.05363783434240004*t533*t775*t795)*t150*rhob+
5689         2.0*t194*t593-2.0*t142*t36*t4*t592-.3333333333333333*t145*
5690         t36*t363*t4-0.75*t180*(-.02822109155555556*t168*t319+.02505488489244444*
5691         t60*t167*t318-.001507769745635555*t159*t166*t317+3.103098413420089E-5*
5692         t156*t165*t316-3.006768291366685E-7*t152*t185*t315+1.5058826705123554E-9*
5693         t170*t328*t314-3.782320656657067E-12*t312*t551*t584+3.776338810197333E-15*
5694         t533*t791*t795)*t36*t4+t364*t348+2.0*t178*t362*t183*t150*t184+
5695         .001419638488888889*t1*t2*t4*t149*t362*t181+(.2677933866666666*
5696         t70*t319-0.01114800192*t62*t69*t319+1.4203580159999998E-4*
5697         t68*t67*t319-6.696609638400001E-7*t66*t65*t319+9.6558511104E-10*
5698         t63*t140*t319-.05971547775999998*t60*t69*t318+0.00195628661376*
5699         t60*t62*t67*t318-2.1375436999679998E-5*t60*t68*t65*t318+9.332831674368002E-8*
5700         t60*t66*t140*t318-1.356208178688E-10*t60*t63*t299*t318+0.00121966019712*
5701         t159*t67*t317-3.557582090496E-5*t159*t62*t65*t317+3.618522873446399E-7*
5702         t159*t68*t140*t317-1.5251421394943998E-9*t159*t66*t299*t317+
5703         2.2278681925632E-12*t159*t63*t485*t317-4.896145059839999E-6*
5704         t156*t65*t316+1.3425738522624E-7*t156*t62*t140*t316-1.3132761735168E-9*
5705         t156*t68*t299*t316+5.4311991312384E-12*t156*t66*t485*t316-
5706         7.963443752140802E-15*t156*t63*t729*t316)*t151-0.06218*t149*
5707         t591*t150+.004258915466666666*t1*t2*t4*t149*t591*t146-.1369866666666666*
5708         t1*t2*t4*t178*t362*t183*t184*t146;
5709     d4fdrbrbgbab = 0.0;
5710     d4fdrbrbabab = 0.0;
5711     d4fdrbgagaga = (-2.3355195263999995E-4*grada*t60*t32*
5712         t67*t176+6.81239123712E-6*grada*t60*t32*t62*t65*t176+3.6721087948799996E-6*
5713         t200*t60*t29*t65*t176-6.929086353408003E-8*grada*t60*t32*t68*
5714         t140*t176-1.0069303891968003E-7*t200*t60*t29*t62*t140*t176+
5715         2.920484947968E-10*grada*t60*t32*t66*t299*t176+9.849571301376002E-10*
5716         t200*t60*t29*t68*t299*t176-4.266130581504001E-13*grada*t60*
5717         t32*t63*t485*t176-4.073399348428801E-12*t200*t60*t29*t66*t485*
5718         t176+5.972582814105601E-15*t200*t60*t29*t63*t729*t176)*t151+
5719         t597*t194;
5720     d4fdrbgagagb = (.003478571519999999*gradb*t23*t69*t176-
5721         1.1395844352E-4*gradb*t23*t62*t67*t176-1.5570130175999997E-4*
5722         t22*gradb*t32*t67*t176+1.2451710873600001E-6*gradb*t23*t68*
5723         t65*t176+4.54159415808E-6*t22*gradb*t32*t62*t65*t176-5.436600975360001E-9*
5724         gradb*t23*t66*t140*t176-4.619390902272001E-8*t22*gradb*t32*
5725         t68*t140*t176+7.9002418176E-12*gradb*t23*t63*t299*t176+1.946989965312E-10*
5726         t22*gradb*t32*t66*t299*t176-2.844087054336001E-13*t22*gradb*
5727         t32*t63*t485*t176-7.785065087999998E-5*t208*t23*t67*t175+2.27079707904E-6*
5728         t208*t23*t62*t65*t175+3.6721087948799996E-6*t22*t208*t32*t65*
5729         t175-2.3096954511360004E-8*t208*t23*t68*t140*t175-1.0069303891968003E-7*
5730         t22*t208*t32*t62*t140*t175+9.73494982656E-11*t208*t23*t66*
5731         t299*t175+9.849571301376002E-10*t22*t208*t32*t68*t299*t175-
5732         1.422043527168E-13*t208*t23*t63*t485*t175-4.073399348428801E-12*
5733         t22*t208*t32*t66*t485*t175+5.972582814105601E-15*t22*t208*
5734         t32*t63*t729*t175)*t151+t598*t194;
5735     d4fdrbgagaab = 0.0;
5736     d4fdrbgagbgb = (.003478571519999999*grada*t23*t69*t176-
5737         1.1395844352E-4*grada*t23*t62*t67*t176+1.2451710873600001E-6*
5738         grada*t23*t68*t65*t176-5.436600975360001E-9*grada*t23*t66*
5739         t140*t176+7.9002418176E-12*grada*t23*t63*t299*t176-3.8925325439999997E-4*
5740         grada*t60*t23*t67*t175+1.1353985395200002E-5*grada*t60*t23*
5741         t62*t65*t175-1.1548477255680004E-7*grada*t60*t23*t68*t140*
5742         t175+4.867474913279999E-10*grada*t60*t23*t66*t299*t175-7.110217635840002E-13*
5743         grada*t60*t23*t63*t485*t175+3.6721087948799996E-6*grada*t159*
5744         t23*t65*t174-1.0069303891968003E-7*grada*t159*t23*t62*t140*
5745         t174+9.849571301376002E-10*grada*t159*t23*t68*t299*t174-4.073399348428801E-12*
5746         grada*t159*t23*t66*t485*t174+5.972582814105601E-15*grada*t159*
5747         t23*t63*t729*t174)*t151+t599*t194;
5748     d4fdrbgagbab = 0.0;
5749     d4fdrbgaabab = 0.0;
5750     d4fdrbgbgbgb = 1.0*t178*t601*t183*t150*t184*rhob-0.03109*
5751         t149*(9.303062016000002*gradb*t160*t175-42.35934581760001*
5752         t208*t157*t174+50.64159919104002*t207*t154*t173-26.03075498803201*
5753         t206*t171*t172+6.622699683840002*t204*t313*t352-.8247864360960004*
5754         t351*t534*t590+.04022837575680003*t583*t775*t796)*t150*rhob-
5755         1.0*t142*t36*t4*t602-0.75*(-.007947716607999998*gradb*t167*
5756         t175+6.958228725759998E-4*t208*t166*t174-1.7151946866688E-5*
5757         t207*t165*t173+1.86041143656448E-7*t206*t185*t172-1.0096297377792E-9*
5758         t204*t328*t352+2.6976565854208E-12*t351*t551*t590-2.832254107648E-15*
5759         t583*t791*t796)*t180*t36*t4+t603*t194+(0.02087142912*gradb*
5760         t69*t175-6.837506611199999E-4*gradb*t62*t67*t175+7.47102652416E-6*
5761         gradb*t68*t65*t175-3.2619605852160005E-8*gradb*t66*t140*t175+
5762         4.740145090559999E-11*gradb*t63*t299*t175-7.006558579199998E-4*
5763         t208*t67*t174+2.0437173711360002E-5*t208*t62*t65*t174-2.0787259060224006E-7*
5764         t208*t68*t140*t174+8.761454843904001E-10*t208*t66*t299*t174-
5765         1.2798391744512E-12*t208*t63*t485*t174+3.6721087948799996E-6*
5766         t207*t65*t173-1.0069303891968003E-7*t207*t62*t140*t173+9.849571301376002E-10*
5767         t207*t68*t299*t173-4.073399348428801E-12*t207*t66*t485*t173+
5768         5.972582814105601E-15*t207*t63*t729*t173)*t151-0.03109*t149*
5769         t601*t150+.002129457733333333*t1*t2*t4*t149*t601*t146;
5770     d4fdrbgbgbab = 0.0;
5771     d4fdrbgbabab = 0.0;
5772     d4fdrbababab = 0.0;
5773     d4fdgagagaga = -0.03109*t20*(-1.744324128*t31*t32+16.5824843328*
5774         t22*t28*t29-26.01630337536001*t30*t25*t26+15.58052973158401*
5775         t27*t44*t197-4.382357990400002*t21*t213*t356+.5862634536960003*
5776         t43*t366*t594-.03017128181760002*t212*t605*t797)*t35*rhoa-
5777         0.75*(0.001490196864*t40*t32-2.72855152128E-4*t22*t39*t29+
5778         8.787011100671999E-6*t30*t38*t26-1.1071783737753602E-7*t27*
5779         t58*t197+6.639601287168001E-10*t21*t228*t356-1.9094465150976E-12*
5780         t43*t383*t594+2.124190580736E-15*t212*t622*t797)*t36*t4*t53+
5781         (-0.00391339296*t32*t69+1.2820324896E-4*t32*t62*t67+3.503279289599999E-4*
5782         t22*t29*t67-1.4008174732800002E-6*t32*t68*t65-1.0218586855680001E-5*
5783         t22*t29*t62*t65-2.75408159616E-6*t30*t26*t65+6.11617609728E-9*
5784         t32*t66*t140+1.0393629530112003E-7*t22*t29*t68*t140+7.551977918976003E-8*
5785         t30*t26*t62*t140-8.887772044800001E-12*t32*t63*t299-4.380727421952E-10*
5786         t22*t29*t66*t299-7.387178476032001E-10*t30*t26*t68*t299+6.399195872256002E-13*
5787         t22*t29*t63*t485+3.055049511321601E-12*t30*t26*t66*t485-4.479437110579201E-15*
5788         t30*t26*t63*t729)*t151;
5789     d4fdgagagagb = (1.7516396447999996E-4*grada*gradb*t32*
5790         t67*t61-5.10929342784E-6*grada*gradb*t32*t62*t65*t61-2.75408159616E-6*
5791         t200*gradb*t29*t65*t61+5.196814765056001E-8*grada*gradb*t32*
5792         t68*t140*t61+7.551977918976003E-8*t200*gradb*t29*t62*t140*
5793         t61-2.190363710976E-10*grada*gradb*t32*t66*t299*t61-7.387178476032001E-10*
5794         t200*gradb*t29*t68*t299*t61+3.199597936128001E-13*grada*gradb*
5795         t32*t63*t485*t61+3.055049511321601E-12*t200*gradb*t29*t66*
5796         t485*t61-4.479437110579201E-15*t200*gradb*t29*t63*t729*t61)*
5797         t151;
5798     d4fdgagagaab = 0.0;
5799     d4fdgagagbgb = (-0.00130446432*t23*t69*t61+4.2734416319999996E-5*
5800         t23*t62*t67*t61+5.838798816E-5*t22*t32*t67*t61-4.669391577600001E-7*
5801         t23*t68*t65*t61-1.70309780928E-6*t22*t32*t62*t65*t61+2.0387253657600002E-9*
5802         t23*t66*t140*t61+1.7322715883520004E-8*t22*t32*t68*t140*t61-
5803         2.962590681600001E-12*t23*t63*t299*t61-7.30121236992E-11*t22*
5804         t32*t66*t299*t61+1.066532645376E-13*t22*t32*t63*t485*t61+5.838798816E-5*
5805         t60*t23*t67*t161-1.70309780928E-6*t60*t23*t62*t65*t161-2.75408159616E-6*
5806         t22*t60*t32*t65*t161+1.7322715883520004E-8*t60*t23*t68*t140*
5807         t161+7.551977918976003E-8*t22*t60*t32*t62*t140*t161-7.30121236992E-11*
5808         t60*t23*t66*t299*t161-7.387178476032001E-10*t22*t60*t32*t68*
5809         t299*t161+1.066532645376E-13*t60*t23*t63*t485*t161+3.055049511321601E-12*
5810         t22*t60*t32*t66*t485*t161-4.479437110579201E-15*t22*t60*t32*
5811         t63*t729*t161)*t151;
5812     d4fdgagagbab = 0.0;
5813     d4fdgagaabab = 0.0;
5814     d4fdgagbgbgb = (1.7516396448E-4*grada*gradb*t23*t67*t161-
5815         5.10929342784E-6*grada*gradb*t23*t62*t65*t161+5.196814765056001E-8*
5816         grada*gradb*t23*t68*t140*t161-2.190363710976E-10*grada*gradb*
5817         t23*t66*t299*t161+3.199597936128001E-13*grada*gradb*t23*t63*
5818         t485*t161-2.75408159616E-6*grada*t208*t23*t65*t158+7.551977918976003E-8*
5819         grada*t208*t23*t62*t140*t158-7.387178476032001E-10*grada*t208*
5820         t23*t68*t299*t158+3.055049511321601E-12*grada*t208*t23*t66*
5821         t485*t158-4.479437110579201E-15*grada*t208*t23*t63*t729*t158)*
5822         t151;
5823     d4fdgagbgbab = 0.0;
5824     d4fdgagbabab = 0.0;
5825     d4fdgaababab = 0.0;
5826     d4fdgbgbgbgb = -0.03109*t149*(-1.744324128*t160*t161+
5827         16.5824843328*t60*t157*t158-26.01630337536001*t159*t154*t155+
5828         15.58052973158401*t156*t171*t205-4.382357990400002*t152*t313*
5829         t361+.5862634536960003*t170*t534*t600-.03017128181760002*t312*
5830         t775*t798)*t150*rhob-0.75*(0.001490196864*t167*t161-2.72855152128E-4*
5831         t60*t166*t158+8.787011100671999E-6*t159*t165*t155-1.1071783737753602E-7*
5832         t156*t185*t205+6.639601287168001E-10*t152*t328*t361-1.9094465150976E-12*
5833         t170*t551*t600+2.124190580736E-15*t312*t791*t798)*t180*t36*
5834         t4+(-0.00391339296*t69*t161+1.2820324896E-4*t62*t67*t161-1.4008174732800002E-6*
5835         t68*t65*t161+6.11617609728E-9*t66*t140*t161-8.887772044800001E-12*
5836         t63*t299*t161+3.503279289599999E-4*t60*t67*t158-1.0218586855680001E-5*
5837         t60*t62*t65*t158+1.0393629530112003E-7*t60*t68*t140*t158-4.380727421952E-10*
5838         t60*t66*t299*t158+6.399195872256002E-13*t60*t63*t485*t158-
5839         2.75408159616E-6*t159*t65*t155+7.551977918976003E-8*t159*t62*
5840         t140*t155-7.387178476032001E-10*t159*t68*t299*t155+3.055049511321601E-12*
5841         t159*t66*t485*t155-4.479437110579201E-15*t159*t63*t729*t155)*
5842         t151;
5843     d4fdgbgbgbab = 0.0;
5844     d4fdgbgbabab = 0.0;
5845     d4fdgbababab = 0.0;
5846     d4fdabababab = 0.0;
5847 
5848 
5849     ds->df1000 += factor*dfdra;
5850     ds->df0100 += factor*dfdrb;
5851     ds->df0010 += factor*dfdga;
5852     ds->df0001 += factor*dfdgb;
5853     ds->df00001+= factor*dfdgab;
5854 
5855     ds->df2000 += factor*d2fdrara;
5856     ds->df1100 += factor*d2fdrarb;
5857     ds->df1010 += factor*d2fdraga;
5858     ds->df1001 += factor*d2fdragb;
5859     ds->df10001+= factor*d2fdraab;
5860     ds->df0200 += factor*d2fdrbrb;
5861     ds->df0110 += factor*d2fdrbga;
5862     ds->df0101 += factor*d2fdrbgb;
5863     ds->df01001+= factor*d2fdrbgab;
5864     ds->df0020 += factor*d2fdgaga;
5865     ds->df0011 += factor*d2fdgagb;
5866     ds->df00101+= factor*d2fdgagab;
5867     ds->df0002 += factor*d2fdgbgb;
5868     ds->df00011+= factor*d2fdgbgab;
5869     ds->df00002+= factor*d2fdgabgab;
5870 
5871     ds->df3000 += factor*d3fdrarara;
5872     ds->df2100  += factor*d3fdrararb;
5873     ds->df2010  += factor*d3fdraraga;
5874     ds->df2001  += factor*d3fdraragb;
5875     ds->df20001 += factor*d3fdraraab;
5876     ds->df1200  += factor*d3fdrarbrb;
5877     ds->df1110  += factor*d3fdrarbga;
5878     ds->df1101  += factor*d3fdrarbgb;
5879     ds->df11001 += factor*d3fdrarbab;
5880     ds->df1020  += factor*d3fdragaga;
5881     ds->df1011  += factor*d3fdragagb;
5882     ds->df10101 += factor*d3fdragaab;
5883     ds->df1002  += factor*d3fdragbgb;
5884     ds->df10011 += factor*d3fdragbab;
5885     ds->df10002 += factor*d3fdraabab;
5886     ds->df0300  += factor*d3fdrbrbrb;
5887     ds->df0210  += factor*d3fdrbrbga;
5888     ds->df0201  += factor*d3fdrbrbgb;
5889     ds->df02001 += factor*d3fdrbrbab;
5890     ds->df0120  += factor*d3fdrbgaga;
5891     ds->df0111  += factor*d3fdrbgagb;
5892     ds->df01101 += factor*d3fdrbgaab;
5893     ds->df0102  += factor*d3fdrbgbgb;
5894     ds->df01011 += factor*d3fdrbgbab;
5895     ds->df01002 += factor*d3fdrbabab;
5896     ds->df0030  += factor*d3fdgagaga;
5897     ds->df0021  += factor*d3fdgagagb;
5898     ds->df00201 += factor*d3fdgagaab;
5899     ds->df0012  += factor*d3fdgagbgb;
5900     ds->df00111 += factor*d3fdgagbab;
5901     ds->df00102 += factor*d3fdgaabab;
5902     ds->df0003  += factor*d3fdgbgbgb;
5903     ds->df00021 += factor*d3fdgbgbab;
5904     ds->df00012 += factor*d3fdgbabab;
5905     ds->df00003 += factor*d3fdababab;
5906 
5907     ds->df4000  += factor*d4fdrararara;
5908     ds->df3100  += factor*d4fdrarararb;
5909     ds->df3010  += factor*d4fdrararaga;
5910     ds->df3001  += factor*d4fdrararagb;
5911     ds->df30001 += factor*d4fdrararaab;
5912     ds->df2200  += factor*d4fdrararbrb;
5913     ds->df2110  += factor*d4fdrararbga;
5914     ds->df2101  += factor*d4fdrararbgb;
5915     ds->df21001 += factor*d4fdrararbab;
5916     ds->df2020  += factor*d4fdraragaga;
5917     ds->df2011  += factor*d4fdraragagb;
5918     ds->df20101 += factor*d4fdraragaab;
5919     ds->df2002  += factor*d4fdraragbgb;
5920     ds->df20011 += factor*d4fdraragbab;
5921     ds->df20002 += factor*d4fdraraabab;
5922     ds->df1300  += factor*d4fdrarbrbrb;
5923     ds->df1210  += factor*d4fdrarbrbga;
5924     ds->df1201  += factor*d4fdrarbrbgb;
5925     ds->df12001 += factor*d4fdrarbrbab;
5926     ds->df1120  += factor*d4fdrarbgaga;
5927     ds->df1111  += factor*d4fdrarbgagb;
5928     ds->df11101 += factor*d4fdrarbgaab;
5929     ds->df1102  += factor*d4fdrarbgbgb;
5930     ds->df11011 += factor*d4fdrarbgbab;
5931     ds->df11002 += factor*d4fdrarbabab;
5932     ds->df1030  += factor*d4fdragagaga;
5933     ds->df1021  += factor*d4fdragagagb;
5934     ds->df10201 += factor*d4fdragagaab;
5935     ds->df1012  += factor*d4fdragagbgb;
5936     ds->df10111 += factor*d4fdragagbab;
5937     ds->df10102 += factor*d4fdragaabab;
5938     ds->df1003  += factor*d4fdragbgbgb;
5939     ds->df10021 += factor*d4fdragbgbab;
5940     ds->df10012 += factor*d4fdragbabab;
5941     ds->df10003 += factor*d4fdraababab;
5942     ds->df0400  += factor*d4fdrbrbrbrb;
5943     ds->df0310  += factor*d4fdrbrbrbga;
5944     ds->df0301  += factor*d4fdrbrbrbgb;
5945     ds->df03001 += factor*d4fdrbrbrbab;
5946     ds->df0220  += factor*d4fdrbrbgaga;
5947     ds->df0211  += factor*d4fdrbrbgagb;
5948     ds->df02101 += factor*d4fdrbrbgaab;
5949     ds->df0202  += factor*d4fdrbrbgbgb;
5950     ds->df02011 += factor*d4fdrbrbgbab;
5951     ds->df02002 += factor*d4fdrbrbabab;
5952     ds->df0130  += factor*d4fdrbgagaga;
5953     ds->df0121  += factor*d4fdrbgagagb;
5954     ds->df01201 += factor*d4fdrbgagaab;
5955     ds->df0112  += factor*d4fdrbgagbgb;
5956     ds->df01111 += factor*d4fdrbgagbab;
5957     ds->df01102 += factor*d4fdrbgaabab;
5958     ds->df0103  += factor*d4fdrbgbgbgb;
5959     ds->df01021 += factor*d4fdrbgbgbab;
5960     ds->df01012 += factor*d4fdrbgbabab;
5961     ds->df01003 += factor*d4fdrbababab;
5962     ds->df0040  += factor*d4fdgagagaga;
5963     ds->df0031  += factor*d4fdgagagagb;
5964     ds->df00301 += factor*d4fdgagagaab;
5965     ds->df0022  += factor*d4fdgagagbgb;
5966     ds->df00211 += factor*d4fdgagagbab;
5967     ds->df00202 += factor*d4fdgagaabab;
5968     ds->df0013  += factor*d4fdgagbgbgb;
5969     ds->df00121 += factor*d4fdgagbgbab;
5970     ds->df00112 += factor*d4fdgagbabab;
5971     ds->df00103 += factor*d4fdgaababab;
5972     ds->df0004  += factor*d4fdgbgbgbgb;
5973     ds->df00031 += factor*d4fdgbgbgbab;
5974     ds->df00022 += factor*d4fdgbgbabab;
5975     ds->df00013 += factor*d4fdgbababab;
5976     ds->df00004 += factor*d4fdabababab;
5977 
5978 }
5979