1 /*-*-mode:
2 
3 !
4 !  Dalton, a molecular electronic structure program
5 !  Copyright (C) by the authors of Dalton.
6 !
7 !  This program is free software; you can redistribute it and/or
8 !  modify it under the terms of the GNU Lesser General Public
9 !  License version 2.1 as published by the Free Software Foundation.
10 !
11 !  This program is distributed in the hope that it will be useful,
12 !  but WITHOUT ANY WARRANTY; without even the implied warranty of
13 !  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 !  Lesser General Public License for more details.
15 !
16 !  If a copy of the GNU LGPL v2.1 was not distributed with this
17 !  code, you can obtain one at https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html.
18 !
19 
20 !
21 
22 */
23 /* fun-hcth120.c:
24 
25    Automatically generated code implementing hcth120 functional and its
26    derivatives. Generated by func-codegen.pl being a part of a
27    "Automatic code generation framework for analytical functional
28     derivative evaluation", Pawel Salek, 2004
29 
30     This functional is connected by making following changes:
31     1. add "extern Functional hcth120Functional;" to 'functionals.h'
32     2. add "&hcth120Functional," to 'functionals.c'
33     3. add "fun-hcth120}.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.
34 
35     This functional has been generated from following input:
36     ------ cut here -------
37  HCTH120: A. D. Boese, N. L. Doltsinis, N. C. Handy and M. Sprik,
38 J. Chem. Phys. 112, 1670 (2000)
39 
40 xa: (grada/rhoa^(4/3));
41 xb: (gradb/rhob^(4/3));
42 
43 pa: 1;
44 Aa: 0.016887;
45 a1a: 0.11125;
46 b1a: 10.357;
47 b2a: 3.6231;
48 b3a: 0.88026;
49 b4a: 0.49671;
50 
51 pe: 1;
52 c0p: 0.031091;
53 a1p: 0.21370;
54 b1p: 7.5957;
55 b2p: 3.5876;
56 b3p: 1.6382;
57 b4p: 0.49294;
58 
59 c0f: 0.01554500000;
60 a1f: 0.20548;
61 b1f: 14.1189;
62 b2f: 6.1977;
63 b3f: 3.3662;
64 b4f: 0.62517;
65 
66 ccab: [0.51473,  6.9298, -24.707,  23.110,  -11.323];
67 ccaa: [0.48951, -0.2607,   0.4329,  -1.9925,  2.4853];
68 cx:   [1.09163, -0.7472,   5.0783,  -4.1075,  1.1717];
69 
70 
71 rs(r):= (3/(4*%PI*r))^(1/3);
72 z(ra,rb):= (ra-rb)/(ra+rb);
73 fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);
74 
75 d2fz0: 1.709921;
76 
77 Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
78    *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));
79 
80 Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
81 EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
82 EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);
83 
84 
85 EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
86    Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
87    (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
88    (z(ra,rb))^4);
89 
90 EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);
91 
92 gcab: 0.006;
93 gcaa: 0.2;
94 
95 cx0: -3/8*((16*3/%PI)^(1/3));
96 gx: 0.004;
97 
98 Ucab(t):= gcab*t/(1+gcab*t);
99 Ucaa(t):= gcaa*t/(1+gcaa*t);
100 
101 Gcab(t):= ccab[1] + ccab[2]*Ucab(t)   + ccab[3]*Ucab(t)^2
102                   + ccab[4]*Ucab(t)^3 + ccab[5]*Ucab(t)^4;
103 
104 Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t)   + ccaa[3]*Ucaa(t)^2
105                   + ccaa[4]*Ucaa(t)^3 + ccaa[5]*Ucaa(t)^4;
106 
107 Ux(r):= gx*r/(1+gx*r);
108 
109 ExLSDAa: (cx0*rhoa^(4/3));
110 ExLSDAb: (cx0*rhob^(4/3));
111 
112 Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2 + cx[4]*Ux(t)^3 + cx[5]*Ux(t)^4;
113 
114 K(rhoa,grada,rhob,gradb,gradab):=
115    EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
116  + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
117  + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);
118 
119 
120     ------ cut here -------
121 */
122 
123 
124 /* strictly conform to XOPEN ANSI C standard */
125 #if !defined(SYS_DEC)
126 /* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
127  * is not specified. */
128 #define _XOPEN_SOURCE          500
129 #define _XOPEN_SOURCE_EXTENDED 1
130 #endif
131 #include <math.h>
132 #include <stddef.h>
133 #include "general.h"
134 
135 #define __CVERSION__
136 
137 #include "functionals.h"
138 
139 /* INTERFACE PART */
hcth120_isgga(void)140 static integer hcth120_isgga(void) { return 1; } /* FIXME: detect! */
141 static integer hcth120_read(const char *conf_line);
142 static real hcth120_energy(const FunDensProp* dp);
143 static void hcth120_first(FunFirstFuncDrv *ds,   real factor,
144                          const FunDensProp* dp);
145 static void hcth120_second(FunSecondFuncDrv *ds, real factor,
146                           const FunDensProp* dp);
147 static void hcth120_third(FunThirdFuncDrv *ds,   real factor,
148                          const FunDensProp* dp);
149 static void hcth120_fourth(FunFourthFuncDrv *ds,   real factor,
150                           const FunDensProp* dp);
151 
152 Functional HCTH120Functional = {
153   "HCTH120",       /* name */
154   hcth120_isgga,   /* gga-corrected */
155    1,
156   hcth120_read,
157   NULL,
158   hcth120_energy,
159   hcth120_first,
160   hcth120_second,
161   hcth120_third,
162   hcth120_fourth
163 };
164 
165 /* IMPLEMENTATION PART */
166 static integer
hcth120_read(const char * conf_line)167 hcth120_read(const char *conf_line)
168 {
169     fun_set_hf_weight(0);
170     return 1;
171 }
172 
173 static real
hcth120_energy(const FunDensProp * dp)174 hcth120_energy(const FunDensProp *dp)
175 {
176     real res;
177     real rhoa = dp->rhoa, rhob = dp->rhob;
178     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
179 
180     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
181     real t11, t12, t13, t14, t15, t16, t17, t18;
182     real t19, t20, t21, t22, t23, t24, t25, t26;
183     real t27, t28, t29, t30, t31, t32, t33, t34;
184     real t35, t36, t37, t38, t39, t40, t41, t42;
185     real t43, t44, t45, t46, t47, t48, t49, t50;
186     real t51, t52, t53, t54;
187 
188     t1 = pow(3.0,.6666666666666666);
189     t2 = 1/pow(4.0,.6666666666666666);
190     t3 = 1/pow(3.141592653589793,.6666666666666666);
191     t4 = 1.732050807568877;
192     t5 = .5641895835477563;
193     t6 = pow(3.0,.3333333333333333);
194     t7 = 1/pow(4.0,.3333333333333333);
195     t8 = 1/pow(3.141592653589793,.3333333333333333);
196     t9 = 1/pow(rhoa,.3333333333333333);
197     t10 = pow(2.0,.3333333333333333);
198     t11 = 1/t10;
199     t12 = pow(3.0,.1666666666666667);
200     t13 = 1/pow(3.141592653589793,.1666666666666667);
201     t14 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhoa,
202         .6666666666666666)+14.1189*t11*t12*t13/pow(rhoa,.1666666666666667)+
203         1.6831*t4*t5/sqrt(rhoa)+6.1977*t6*t7*t8*t9)+1.0);
204     t15 = pow(grada,8.0);
205     t16 = pow(grada,2.0);
206     t17 = 1/pow(rhoa,2.666666666666667);
207     t18 = 0.2*t16*t17+1.0;
208     t19 = 1/pow(rhoa,10.66666666666667);
209     t20 = pow(grada,6.0);
210     t21 = 1/pow(rhoa,8.0);
211     t22 = pow(grada,4.0);
212     t23 = 1/pow(rhoa,5.333333333333333);
213     t24 = 0.20548*t6*t7*t8*t9+1.0;
214     t25 = pow(6.0,.3333333333333333);
215     t26 = 0.004*t16*t17+1.0;
216     t27 = 1/pow(rhob,.3333333333333333);
217     t28 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhob,
218         .6666666666666666)+14.1189*t11*t12*t13/pow(rhob,.1666666666666667)+
219         1.6831*t4*t5/sqrt(rhob)+6.1977*t6*t7*t8*t27)+1.0);
220     t29 = pow(gradb,8.0);
221     t30 = pow(gradb,2.0);
222     t31 = 1/pow(rhob,2.666666666666667);
223     t32 = 0.2*t30*t31+1.0;
224     t33 = 1/pow(rhob,10.66666666666667);
225     t34 = pow(gradb,6.0);
226     t35 = 1/pow(rhob,8.0);
227     t36 = pow(gradb,4.0);
228     t37 = 1/pow(rhob,5.333333333333333);
229     t38 = 0.20548*t6*t7*t8*t27+1.0;
230     t39 = 0.004*t30*t31+1.0;
231     t40 = 0.5*t30*t31+0.5*t16*t17;
232     t41 = 0.006*t40+1.0;
233     t42 = rhob+rhoa;
234     t43 = 1/pow(t42,.3333333333333333);
235     t44 = 0.2137*t6*t7*t8*t43+1.0;
236     t45 = 1/pow(t42,.6666666666666666);
237     t46 = 1/sqrt(t42);
238     t47 = 1/pow(t42,.1666666666666667);
239     t48 = log(16.0818243221511/(7.5957*t11*t12*t13*t47+3.5876*
240         t6*t7*t8*t43+0.8191*t4*t5*t46+0.49294*t1*t2*t3*t45)+1.0);
241     t49 = 1/
242         (2.0*t10-2.0);
243     t50 = rhoa-1.0*rhob;
244     t51 = pow(t50,4.0);
245     t52 = 1/pow(t42,4.0);
246     t53 = 1/t42;
247     t54 = pow(t50*t53+1.0,1.333333333333333)+pow(1.0-1.0*
248         t50*t53,1.333333333333333)-2.0;
249 
250    /* code */
251     res = -0.75*t25*(2.999552e-10*t29*t33/pow(t39,4.0)-2.6288e-7*
252         t34*t35/pow(t39,3.0)+8.125279999999999e-5*t36*t37/pow(t39,
253         2.0)-0.0029888*t30*t31/t39+1.09163)*t8*pow(rhob,1.333333333333333)+
254         (-1.4674608e-8*pow(t40,4.0)/pow(t41,4.0)+4.99176e-6*pow(t40,
255         3.0)/pow(t41,3.0)-8.894520000000001e-4*pow(t40,2.0)/pow(t41,
256         2.0)+0.0415788*t40/t41+0.51473)*(0.03109*t28*t38*rhob+0.03109*
257         t14*t24*rhoa+t42*(.0197517897025652*(0.11125*t6*t7*t8*t43+
258         1.0)*log(29.60857464321668/(10.357*t11*t12*t13*t47+3.6231*
259         t6*t7*t8*t43+0.44013*t4*t5*t46+0.49671*t1*t2*t3*t45)+1.0)*
260         t49*(1.0-1.0*t51*t52)*t54+(0.062182*t44*t48-0.03109*(0.20548*
261         t6*t7*t8*t43+1.0)*log(32.1646831778707/(14.1189*t11*t12*t13*
262         t47+6.1977*t6*t7*t8*t43+1.6831*t4*t5*t46+0.62517*t1*t2*t3*
263         t45)+1.0))*t49*t51*t52*t54-0.062182*t44*t48))-0.03109*t28*
264         (0.017316*t36*t37/pow(t32,2.0)-0.01594*t34*t35/pow(t32,3.0)+
265         0.00397648*t29*t33/pow(t32,4.0)-0.05214*t30*t31/t32+0.48951)*
266         t38*rhob-0.75*t25*(2.999552e-10*t15*t19/pow(t26,4.0)-2.6288e-7*
267         t20*t21/pow(t26,3.0)+8.125279999999999e-5*t22*t23/pow(t26,
268         2.0)-0.0029888*t16*t17/t26+1.09163)*t8*pow(rhoa,1.333333333333333)-
269         0.03109*t14*(0.017316*t22*t23/pow(t18,2.0)-0.01594*t20*t21/
270         pow(t18,3.0)+0.00397648*t15*t19/pow(t18,4.0)-0.05214*t16*t17/
271         t18+0.48951)*t24*rhoa;
272 
273     return res;
274 }
275 
276 static void
hcth120_first(FunFirstFuncDrv * ds,real factor,const FunDensProp * dp)277 hcth120_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
278 {
279     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
280     real rhoa = dp->rhoa, rhob = dp->rhob;
281     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
282 
283     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
284     real t11, t12, t13, t14, t15, t16, t17, t18;
285     real t19, t20, t21, t22, t23, t24, t25, t26;
286     real t27, t28, t29, t30, t31, t32, t33, t34;
287     real t35, t36, t37, t38, t39, t40, t41, t42;
288     real t43, t44, t45, t46, t47, t48, t49, t50;
289     real t51, t52, t53, t54, t55, t56, t57, t58;
290     real t59, t60, t61, t62, t63, t64, t65, t66;
291     real t67, t68, t69, t70, t71, t72, t73, t74;
292     real t75, t76, t77, t78, t79, t80, t81, t82;
293     real t83, t84, t85, t86, t87, t88, t89, t90;
294     real t91, t92, t93, t94, t95, t96, t97, t98;
295     real t99, t100, t101, t102, t103, t104, t105;
296     real t106, t107, t108, t109, t110, t111, t112;
297     real t113, t114, t115, t116, t117, t118, t119;
298     real t120, t121, t122, t123, t124, t125, t126;
299     real t127, t128, t129, t130, t131, t132, t133;
300     real t134, t135, t136, t137, t138, t139, t140;
301     real t141, t142, t143, t144, t145, t146, t147;
302     real t148, t149, t150, t151, t152, t153, t154;
303     real t155, t156, t157, t158, t159, t160, t161;
304     real t162, t163, t164, t165, t166;
305 
306     t1 = pow(3.0,.3333333333333333);
307     t2 = 1/pow(4.0,.3333333333333333);
308     t3 = 1/pow(3.141592653589793,.3333333333333333);
309     t4 = pow(3.0,.6666666666666666);
310     t5 = 1/pow(4.0,.6666666666666666);
311     t6 = 1/pow(3.141592653589793,.6666666666666666);
312     t7 = 1.732050807568877;
313     t8 = .5641895835477563;
314     t9 = sqrt(rhoa);
315     t10 = pow(rhoa,.3333333333333333);
316     t11 = 1/t10;
317     t12 = pow(2.0,.3333333333333333);
318     t13 = 1/t12;
319     t14 = pow(3.0,.1666666666666667);
320     t15 = 1/pow(3.141592653589793,.1666666666666667);
321     t16 = 0.62517*t4*t5*t6/pow(rhoa,.6666666666666666)+14.1189*
322         t13*t14*t15/pow(rhoa,.1666666666666667)+1.6831*t7*t8/t9+6.1977*
323         t1*t2*t3*t11;
324     t17 = 32.1646831778707/t16+1.0;
325     t18 = log(t17);
326     t19 = pow(grada,8.0);
327     t20 = pow(grada,2.0);
328     t21 = 1/pow(rhoa,2.666666666666667);
329     t22 = 0.2*t20*t21+1.0;
330     t23 = 1/pow(t22,4.0);
331     t24 = 1/pow(rhoa,10.66666666666667);
332     t25 = pow(grada,6.0);
333     t26 = 1/pow(t22,3.0);
334     t27 = 1/pow(rhoa,8.0);
335     t28 = pow(grada,4.0);
336     t29 = 1/pow(t22,2.0);
337     t30 = 1/pow(rhoa,5.333333333333333);
338     t31 = 1/t22;
339     t32 = -0.05214*t20*t31*t21+0.017316*t28*t29*t30-0.01594*
340         t25*t26*t27+0.00397648*t19*t23*t24+0.48951;
341     t33 = 0.20548*t1*t2*t3*t11+1.0;
342     t34 = pow(6.0,.3333333333333333);
343     t35 = 0.004*t20*t21+1.0;
344     t36 = 1/pow(t35,4.0);
345     t37 = 1/pow(t35,3.0);
346     t38 = 1/pow(t35,2.0);
347     t39 = 1/t35;
348     t40 = pow(grada,10.0);
349     t41 = 1/pow(t22,5.0);
350     t42 = 1/pow(rhoa,14.33333333333333);
351     t43 = 1/pow(rhoa,11.66666666666667);
352     t44 = 1/pow(rhoa,9.0);
353     t45 = 1/pow(rhoa,6.333333333333333);
354     t46 = 1/pow(rhoa,3.666666666666667);
355     t47 = 1/t17;
356     t48 = pow(rhoa,1.333333333333333);
357     t49 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
358         t13*t14*t15/pow(rhoa,1.166666666666667)-0.84155*t7*t8/pow(t9,
359         3.0)-2.0659*t1*t2*t3/t48;
360     t50 = 1/pow(t16,2.0);
361     t51 = 1/pow(t35,5.0);
362     t52 = pow(gradb,2.0);
363     t53 = 1/pow(rhob,2.666666666666667);
364     t54 = 0.5*t52*t53+0.5*t20*t21;
365     t55 = pow(t54,4.0);
366     t56 = 0.006*t54+1.0;
367     t57 = 1/pow(t56,4.0);
368     t58 = pow(t54,3.0);
369     t59 = 1/pow(t56,3.0);
370     t60 = pow(t54,2.0);
371     t61 = 1/pow(t56,2.0);
372     t62 = 1/t56;
373     t63 = 0.0415788*t54*t62-8.894520000000001e-4*t60*t61+
374         4.99176e-6*t58*t59-1.4674608e-8*t55*t57+0.51473;
375     t64 = rhob+rhoa;
376     t65 = 1/pow(t64,.3333333333333333);
377     t66 = 0.2137*t1*t2*t3*t65+1.0;
378     t67 = 1/pow(t64,.6666666666666666);
379     t68 = sqrt(t64);
380     t69 = 1/t68;
381     t70 = 1/pow(t64,.1666666666666667);
382     t71 = 7.5957*t13*t14*t15*t70+3.5876*t1*t2*t3*t65+0.8191*
383         t7*t8*t69+0.49294*t4*t5*t6*t67;
384     t72 = 16.0818243221511/t71+1.0;
385     t73 = log(t72);
386     t74 = -0.062182*t66*t73;
387     t75 = 1/(2.0*t12-2.0);
388     t76 = rhoa-1.0*rhob;
389     t77 = pow(t76,4.0);
390     t78 = 1/pow(t64,4.0);
391     t79 = 1.0-1.0*t77*t78;
392     t80 = 0.11125*t1*t2*t3*t65+1.0;
393     t81 = 1/t64;
394     t82 = 1.0-1.0*t76*t81;
395     t83 = t76*t81+1.0;
396     t84 = pow(t83,1.333333333333333)+pow(t82,1.333333333333333)-
397         2.0;
398     t85 = 10.357*t13*t14*t15*t70+3.6231*t1*t2*t3*t65+0.44013*
399         t7*t8*t69+0.49671*t4*t5*t6*t67;
400     t86 = 29.60857464321668/t85+1.0;
401     t87 = log(t86);
402     t88 = .0197517897025652*t75*t79*t80*t84*t87;
403     t89 = 0.20548*t1*t2*t3*t65+1.0;
404     t90 = 14.1189*t13*t14*t15*t70+6.1977*t1*t2*t3*t65+1.6831*
405         t7*t8*t69+0.62517*t4*t5*t6*t67;
406     t91 = 32.1646831778707/t90+1.0;
407     t92 = log(t91);
408     t93 = 0.062182*t66*t73-0.03109*t89*t92;
409     t94 = t75*t77*t78*t84*t93;
410     t95 = 1/pow(t64,1.666666666666667);
411     t96 = 1/pow(t68,3.0);
412     t97 = 1/pow(t64,1.333333333333333);
413     t98 = 1/pow(t64,1.166666666666667);
414     t99 = -1.26595*t13*t14*t15*t98-1.195866666666667*t1*t2*
415         t3*t97-0.40955*t7*t8*t96-.3286266666666666*t4*t5*t6*t95;
416     t100 = 1/
417         pow(t71,2.0);
418     t101 = 1/t72;
419     t102 = .9999999999999999*t99*t66*t100*t101;
420     t103 = -.5848223397455204*t75*t79*t80*t84*(-1.726166666666666*
421         t13*t14*t15*t98-1.2077*t1*t2*t3*t97-0.220065*t7*t8*t96-0.33114*
422         t4*t5*t6*t95)/(pow(t85,2.0)*t86);
423     t104 = .0044294311333333*t1*t2*t3*t97*t73;
424     t105 = 1/pow(t64,2.0);
425     t106 = t76*t105;
426     t107 = -1.0*t81;
427     t108 = pow(t82,.3333333333333333);
428     t109 = -1.0*t105*t76;
429     t110 = pow(t83,.3333333333333333);
430     t111 = 1.333333333333333*t110*(t81+t109)+1.333333333333333*
431         (t107+t106)*t108;
432     t112 = -7.324622014701263e-4*t75*t1*t2*t3*t97*t79*t84*
433         t87;
434     t113 = 1/pow(t64,5.0);
435     t114 = 4.0*t113*t77;
436     t115 = pow(t76,3.0);
437     t116 = t75*t77*t78*t84*(t89*(-2.35315*t13*t14*t15*t98-
438         2.0659*t1*t2*t3*t97-0.84155*t7*t8*t96-0.41678*t4*t5*t6*t95)/
439         (pow(t90,2.0)*t91)+.0021294577333333*t1*t2*t3*t97*t92-.0044294311333333*
440         t1*t2*t3*t97*t73-.9999999999999999*t99*t66*t100*t101);
441     t117 = -4.0*t113*t75*t77*t84*t93;
442     t118 = 1/pow(t56,5.0);
443     t119 = sqrt(rhob);
444     t120 = pow(rhob,.3333333333333333);
445     t121 = 1/t120;
446     t122 = 0.62517*t4*t5*t6/pow(rhob,.6666666666666666)+14.1189*
447         t13*t14*t15/pow(rhob,.1666666666666667)+1.6831*t7*t8/t119+
448         6.1977*t1*t2*t3*t121;
449     t123 = 32.1646831778707/t122+1.0;
450     t124 = log(t123);
451     t125 = 0.20548*t1*t2*t3*t121+1.0;
452     t126 = t64*(t94+t88+t74)+0.03109*t124*t125*rhob+0.03109*
453         t18*t33*rhoa;
454     t127 = pow(gradb,8.0);
455     t128 = 0.2*t52*t53+1.0;
456     t129 = 1/pow(t128,4.0);
457     t130 = 1/pow(rhob,10.66666666666667);
458     t131 = pow(gradb,6.0);
459     t132 = 1/pow(t128,3.0);
460     t133 = 1/pow(rhob,8.0);
461     t134 = pow(gradb,4.0);
462     t135 = 1/pow(t128,2.0);
463     t136 = 1/pow(rhob,5.333333333333333);
464     t137 = 1/t128;
465     t138 = -0.05214*t52*t137*t53+0.017316*t134*t135*t136-
466         0.01594*t131*t132*t133+0.00397648*t127*t129*t130+0.48951;
467     t139 = 0.004*
468         t52*t53+1.0;
469     t140 = 1/pow(t139,4.0);
470     t141 = 1/pow(t139,3.0);
471     t142 = 1/pow(t139,2.0);
472     t143 = 1/t139;
473     t144 = pow(gradb,10.0);
474     t145 = 1/pow(t128,5.0);
475     t146 = 1/pow(rhob,14.33333333333333);
476     t147 = 1/pow(rhob,11.66666666666667);
477     t148 = 1/pow(rhob,9.0);
478     t149 = 1/pow(rhob,6.333333333333333);
479     t150 = 1/pow(rhob,3.666666666666667);
480     t151 = 1/t123;
481     t152 = pow(rhob,1.333333333333333);
482     t153 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
483         2.35315*t13*t14*t15/pow(rhob,1.166666666666667)-0.84155*t7*
484         t8/pow(t119,3.0)-2.0659*t1*t2*t3/t152;
485     t154 = 1/pow(t122,2.0);
486     t155 = 1/pow(t139,5.0);
487     t156 = 1.333333333333333*t108*(t81+t106)+1.333333333333333*
488         (t107+t109)*t110;
489     t157 = pow(grada,9.0);
490     t158 = 1/pow(rhoa,13.33333333333333);
491     t159 = pow(grada,7.0);
492     t160 = pow(grada,5.0);
493     t161 = pow(grada,3.0);
494     t162 = pow(gradb,9.0);
495     t163 = 1/pow(rhob,13.33333333333333);
496     t164 = pow(gradb,7.0);
497     t165 = pow(gradb,5.0);
498     t166 = pow(gradb,3.0);
499 
500    /* code */
501     dfdra = t63*(-1.0*t47*t49*t33*t50*rhoa+t94+t64*(4.0*t115*
502         t75*t78*t84*t93+t75*t77*t78*t111*t93+.0197517897025652*t75*
503         (t114-4.0*t115*t78)*t80*t84*t87+.0197517897025652*t75*t79*
504         t80*t111*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
505         t18*t33-.0021294577333333*t1*t2*t3*t18*t11)+t47*t32*t49*t33*
506         t50*rhoa-0.03109*t18*(0.13904*t20*t31*t46-0.12016*t28*t29*
507         t45+0.1459904*t25*t26*t44-.0679197866666667*t19*t23*t43+.0084831573333333*
508         t40*t41*t42)*t33*rhoa-0.75*t3*t34*(.0079701333333333*t20*t39*
509         t46-4.652287999999999e-4*t28*t38*t45+3.836433066666666e-6*
510         t25*t37*t44-1.161168213333333e-8*t19*t36*t43+1.27980885333333e-11*
511         t40*t51*t42)*t48-1.0*t10*(-0.0029888*t20*t39*t21+8.125279999999999e-5*
512         t28*t38*t30-2.6288e-7*t25*t37*t27+2.999552e-10*t19*t36*t24+
513         1.09163)*t3*t34-0.03109*t18*t32*t33+(-0.0554384*t20*t46*t62+
514         0.0027045024*t20*t46*t54*t61-3.4198272e-5*t20*t46*t60*t59+
515         1.98066816e-7*t20*t46*t58*t57-4.69587456e-10*t20*t46*t55*t118)*
516         t126+.0021294577333333*t1*t2*t3*t18*t32*t11;
517     dfdrb = t63*(-1.0*t151*t153*t125*t154*rhob+t94+t64*(-
518         4.0*t115*t75*t78*t84*t93+t75*t77*t78*t156*t93+.0197517897025652*
519         t75*(4.0*t115*t78+t114)*t80*t84*t87+.0197517897025652*t75*
520         t79*t80*t156*t87+t117+t116+t112+t104+t103+t102)+t88+t74+0.03109*
521         t124*t125-.0021294577333333*t1*t2*t3*t124*t121)+t151*t138*
522         t153*t125*t154*rhob-0.03109*t124*(0.13904*t52*t137*t150-0.12016*
523         t134*t135*t149+0.1459904*t131*t132*t148-.0679197866666667*
524         t127*t129*t147+.0084831573333333*t144*t145*t146)*t125*rhob-
525         1.0*t120*t3*t34*(-0.0029888*t52*t143*t53+8.125279999999999e-5*
526         t134*t142*t136-2.6288e-7*t131*t141*t133+2.999552e-10*t127*
527         t140*t130+1.09163)-0.75*(.0079701333333333*t52*t143*t150-4.652287999999999e-4*
528         t134*t142*t149+3.836433066666666e-6*t131*t141*t148-1.161168213333333e-8*
529         t127*t140*t147+1.27980885333333e-11*t144*t155*t146)*t152*t3*
530         t34+(-0.0554384*t52*t62*t150+0.0027045024*t52*t54*t61*t150-
531         3.4198272e-5*t52*t60*t59*t150+1.98066816e-7*t52*t58*t57*t150-
532         4.69587456e-10*t52*t55*t118*t150)*t126-0.03109*t124*t138*t125+
533         .0021294577333333*t1*t2*t3*t124*t138*t121;
534     dfdga = -0.03109*t18*(-0.10428*grada*t31*t21+0.09012*
535         t161*t29*t30-0.1094928*t160*t26*t27+0.05093984*t159*t23*t24-
536         0.006362368*t157*t41*t158)*t33*rhoa-0.75*(-0.0059776*grada*
537         t39*t21+3.489216e-4*t161*t38*t30-2.8773248e-6*t160*t37*t27+
538         8.7087616e-9*t159*t36*t24-9.5985664e-12*t157*t51*t158)*t3*
539         t34*t48+(0.0415788*grada*t21*t62-0.0020283768*grada*t21*t54*
540         t61+2.5648704e-5*grada*t21*t60*t59-1.48550112e-7*grada*t21*
541         t58*t57+3.52190592e-10*grada*t21*t55*t118)*t126;
542     dfdgb = -0.03109*t124*(-0.10428*gradb*t137*t53+0.09012*
543         t166*t135*t136-0.1094928*t165*t132*t133+0.05093984*t164*t129*
544         t130-0.006362368*t162*t145*t163)*t125*rhob-0.75*t152*t3*t34*
545         (-0.0059776*gradb*t143*t53+3.489216e-4*t166*t142*t136-2.8773248e-6*
546         t165*t141*t133+8.7087616e-9*t164*t140*t130-9.5985664e-12*t162*
547         t155*t163)+(0.0415788*gradb*t62*t53-0.0020283768*gradb*t54*
548         t61*t53+2.5648704e-5*gradb*t60*t59*t53-1.48550112e-7*gradb*
549         t58*t57*t53+3.52190592e-10*gradb*t55*t118*t53)*t126;
550     dfdgab = 0.0;
551 
552 
553     ds->df1000 += factor*dfdra;
554     ds->df0100 += factor*dfdrb;
555     ds->df0010 += factor*dfdga;
556     ds->df0001 += factor*dfdgb;
557     ds->df00001+= factor*dfdgab;
558 
559 }
560 
561 static void
hcth120_second(FunSecondFuncDrv * ds,real factor,const FunDensProp * dp)562 hcth120_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
563 {
564     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
565     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
566         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
567         d2fdgbgb, d2fdgbgab, d2fdgabgab;
568     real rhoa = dp->rhoa, rhob = dp->rhob;
569     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
570 
571     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
572     real t11, t12, t13, t14, t15, t16, t17, t18;
573     real t19, t20, t21, t22, t23, t24, t25, t26;
574     real t27, t28, t29, t30, t31, t32, t33, t34;
575     real t35, t36, t37, t38, t39, t40, t41, t42;
576     real t43, t44, t45, t46, t47, t48, t49, t50;
577     real t51, t52, t53, t54, t55, t56, t57, t58;
578     real t59, t60, t61, t62, t63, t64, t65, t66;
579     real t67, t68, t69, t70, t71, t72, t73, t74;
580     real t75, t76, t77, t78, t79, t80, t81, t82;
581     real t83, t84, t85, t86, t87, t88, t89, t90;
582     real t91, t92, t93, t94, t95, t96, t97, t98;
583     real t99, t100, t101, t102, t103, t104, t105;
584     real t106, t107, t108, t109, t110, t111, t112;
585     real t113, t114, t115, t116, t117, t118, t119;
586     real t120, t121, t122, t123, t124, t125, t126;
587     real t127, t128, t129, t130, t131, t132, t133;
588     real t134, t135, t136, t137, t138, t139, t140;
589     real t141, t142, t143, t144, t145, t146, t147;
590     real t148, t149, t150, t151, t152, t153, t154;
591     real t155, t156, t157, t158, t159, t160, t161;
592     real t162, t163, t164, t165, t166, t167, t168;
593     real t169, t170, t171, t172, t173, t174, t175;
594     real t176, t177, t178, t179, t180, t181, t182;
595     real t183, t184, t185, t186, t187, t188, t189;
596     real t190, t191, t192, t193, t194, t195, t196;
597     real t197, t198, t199, t200, t201, t202, t203;
598     real t204, t205, t206, t207, t208, t209, t210;
599     real t211, t212, t213, t214, t215, t216, t217;
600     real t218, t219, t220, t221, t222, t223, t224;
601     real t225, t226, t227, t228, t229, t230, t231;
602     real t232, t233, t234, t235, t236, t237, t238;
603     real t239, t240, t241, t242, t243, t244, t245;
604     real t246, t247, t248, t249, t250, t251, t252;
605     real t253, t254, t255, t256, t257, t258, t259;
606     real t260, t261, t262, t263, t264, t265, t266;
607     real t267, t268, t269, t270, t271, t272, t273;
608     real t274, t275, t276, t277, t278, t279, t280;
609     real t281, t282, t283, t284, t285;
610 
611     t1 = pow(3.0,.3333333333333333);
612     t2 = 1/pow(4.0,.3333333333333333);
613     t3 = 1/pow(3.141592653589793,.3333333333333333);
614     t4 = pow(3.0,.6666666666666666);
615     t5 = 1/pow(4.0,.6666666666666666);
616     t6 = 1/pow(3.141592653589793,.6666666666666666);
617     t7 = 1/pow(rhoa,.6666666666666666);
618     t8 = 1.732050807568877;
619     t9 = .5641895835477563;
620     t10 = sqrt(rhoa);
621     t11 = pow(rhoa,.3333333333333333);
622     t12 = 1/t11;
623     t13 = pow(2.0,.3333333333333333);
624     t14 = 1/t13;
625     t15 = pow(3.0,.1666666666666667);
626     t16 = 1/pow(3.141592653589793,.1666666666666667);
627     t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
628         1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
629     t18 = 32.1646831778707/
630         t17+1.0;
631     t19 = log(t18);
632     t20 = pow(grada,8.0);
633     t21 = pow(grada,2.0);
634     t22 = 1/pow(rhoa,2.666666666666667);
635     t23 = 0.2*t21*t22+1.0;
636     t24 = 1/pow(t23,4.0);
637     t25 = 1/pow(rhoa,10.66666666666667);
638     t26 = pow(grada,6.0);
639     t27 = 1/pow(t23,3.0);
640     t28 = 1/pow(rhoa,8.0);
641     t29 = pow(grada,4.0);
642     t30 = 1/pow(t23,2.0);
643     t31 = 1/pow(rhoa,5.333333333333333);
644     t32 = 1/t23;
645     t33 = -0.05214*t21*t32*t22+0.017316*t29*t30*t31-0.01594*
646         t26*t27*t28+0.00397648*t20*t24*t25+0.48951;
647     t34 = 0.20548*t1*t2*t3*t12+1.0;
648     t35 = pow(6.0,.3333333333333333);
649     t36 = 0.004*t21*t22+1.0;
650     t37 = 1/pow(t36,4.0);
651     t38 = 1/pow(t36,3.0);
652     t39 = 1/pow(t36,2.0);
653     t40 = 1/t36;
654     t41 = -0.0029888*t21*t40*t22+8.125279999999999e-5*t29*
655         t39*t31-2.6288e-7*t26*t38*t28+2.999552e-10*t20*t37*t25+1.09163;
656     t42 = pow(grada,
657         10.0);
658     t43 = 1/pow(t23,5.0);
659     t44 = 1/pow(rhoa,14.33333333333333);
660     t45 = 1/pow(rhoa,11.66666666666667);
661     t46 = 1/pow(rhoa,9.0);
662     t47 = 1/pow(rhoa,6.333333333333333);
663     t48 = 1/pow(rhoa,3.666666666666667);
664     t49 = 0.13904*t21*t32*t48-0.12016*t29*t30*t47+0.1459904*
665         t26*t27*t46-.0679197866666667*t20*t24*t45+.0084831573333333*
666         t42*t43*t44;
667     t50 = 1/t18;
668     t51 = pow(rhoa,1.333333333333333);
669     t52 = 1/t51;
670     t53 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
671         t14*t15*t16/pow(rhoa,1.166666666666667)-0.84155*t8*t9/pow(t10,
672         3.0)-2.0659*t1*t2*t3*t52;
673     t54 = 1/pow(t17,2.0);
674     t55 = 1/pow(t36,5.0);
675     t56 = .0079701333333333*t21*t40*t48-4.652287999999999e-4*
676         t29*t39*t47+3.836433066666666e-6*t26*t38*t46-1.161168213333333e-8*
677         t20*t37*t45+1.27980885333333e-11*t42*t55*t44;
678     t57 = pow(gradb,2.0);
679     t58 = 1/pow(rhob,2.666666666666667);
680     t59 = 0.5*t57*t58+0.5*t21*t22;
681     t60 = pow(t59,4.0);
682     t61 = 0.006*t59+1.0;
683     t62 = 1/pow(t61,4.0);
684     t63 = pow(t59,3.0);
685     t64 = 1/pow(t61,3.0);
686     t65 = pow(t59,2.0);
687     t66 = 1/pow(t61,2.0);
688     t67 = 1/t61;
689     t68 = 0.0415788*t59*t67-8.894520000000001e-4*t65*t66+
690         4.99176e-6*t63*t64-1.4674608e-8*t60*t62+0.51473;
691     t69 = rhob+rhoa;
692     t70 = 1/pow(t69,.3333333333333333);
693     t71 = 0.2137*t1*t2*t3*t70+1.0;
694     t72 = 1/pow(t69,.6666666666666666);
695     t73 = sqrt(t69);
696     t74 = 1/t73;
697     t75 = 1/pow(t69,.1666666666666667);
698     t76 = 7.5957*t14*t15*t16*t75+3.5876*t1*t2*t3*t70+0.8191*
699         t8*t9*t74+0.49294*t4*t5*t6*t72;
700     t77 = 16.0818243221511/t76+1.0;
701     t78 = log(t77);
702     t79 = -0.062182*t71*t78;
703     t80 = 1/(2.0*t13-2.0);
704     t81 = rhoa-1.0*rhob;
705     t82 = pow(t81,4.0);
706     t83 = 1/pow(t69,4.0);
707     t84 = 1.0-1.0*t82*t83;
708     t85 = 0.11125*t1*t2*t3*t70+1.0;
709     t86 = 1/t69;
710     t87 = 1.0-1.0*t81*t86;
711     t88 = t81*t86+1.0;
712     t89 = pow(t88,1.333333333333333)+pow(t87,1.333333333333333)-
713         2.0;
714     t90 = 10.357*t14*t15*t16*t75+3.6231*t1*t2*t3*t70+0.44013*
715         t8*t9*t74+0.49671*t4*t5*t6*t72;
716     t91 = 29.60857464321668/t90+1.0;
717     t92 = log(t91);
718     t93 = .0197517897025652*t80*t84*t85*t89*t92;
719     t94 = 0.20548*t1*t2*t3*t70+1.0;
720     t95 = 14.1189*t14*t15*t16*t75+6.1977*t1*t2*t3*t70+1.6831*
721         t8*t9*t74+0.62517*t4*t5*t6*t72;
722     t96 = 32.1646831778707/t95+1.0;
723     t97 = log(t96);
724     t98 = 0.062182*t71*t78-0.03109*t94*t97;
725     t99 = t80*t82*t83*t89*t98;
726     t100 = 1/pow(t69,1.666666666666667);
727     t101 = 1/pow(t73,3.0);
728     t102 = 1/pow(t69,1.333333333333333);
729     t103 = 1/pow(t69,1.166666666666667);
730     t104 = -1.26595*t14*t15*t16*t103-1.195866666666667*t1*
731         t2*t3*t102-0.40955*t8*t9*t101-.3286266666666666*t4*t5*t6*t100;
732     t105 = 1/
733         pow(t76,2.0);
734     t106 = 1/t77;
735     t107 = .9999999999999999*t104*t71*t105*t106;
736     t108 = -1.726166666666666*t14*t15*t16*t103-1.2077*t1*
737         t2*t3*t102-0.220065*t8*t9*t101-0.33114*t4*t5*t6*t100;
738     t109 = 1/pow(t90,2.0);
739     t110 = 1/t91;
740     t111 = -.5848223397455204*t80*t84*t108*t85*t109*t89*t110;
741     t112 = .0044294311333333*
742         t1*t2*t3*t102*t78;
743     t113 = 1/pow(t69,2.0);
744     t114 = t81*t113;
745     t115 = -1.0*t86;
746     t116 = t115+t114;
747     t117 = pow(t87,.3333333333333333);
748     t118 = -1.0*t113*t81;
749     t119 = t86+t118;
750     t120 = pow(t88,.3333333333333333);
751     t121 = 1.333333333333333*t119*t120+1.333333333333333*
752         t116*t117;
753     t122 = .0197517897025652*t80*t84*t85*t121*t92;
754     t123 = -7.324622014701263e-4*t80*t1*t2*t3*t102*t84*t89*
755         t92;
756     t124 = 1/pow(t69,5.0);
757     t125 = 4.0*t124*t82;
758     t126 = pow(t81,3.0);
759     t127 = t125-4.0*t126*t83;
760     t128 = .0197517897025652*t80*t127*t85*t89*t92;
761     t129 = -2.35315*t14*t15*t16*t103-2.0659*t1*t2*t3*t102-
762         0.84155*t8*t9*t101-0.41678*t4*t5*t6*t100;
763     t130 = 1/pow(t95,2.0);
764     t131 = 1/t96;
765     t132 = .0021294577333333*t1*t2*t3*t102*t97-.0044294311333333*
766         t1*t2*t3*t102*t78+t129*t94*t130*t131-.9999999999999999*t104*
767         t71*t105*t106;
768     t133 = t80*t82*t83*t89*t132;
769     t134 = t80*t82*t83*t121*t98;
770     t135 = -4.0*t124*t80*t82*t89*t98;
771     t136 = -1.0*t50*t53*t34*t54*rhoa+t99+t69*(4.0*t126*t80*
772         t83*t89*t98+t135+t134+t133+t128+t123+t122+t112+t111+t107)+
773         t93+t79+0.03109*t19*t34-.0021294577333333*t1*t2*t3*t19*t12;
774     t137 = 1/
775         pow(t61,5.0);
776     t138 = -0.0554384*t21*t48*t67+0.0027045024*t21*t48*t59*
777         t66-3.4198272e-5*t21*t48*t65*t64+1.98066816e-7*t21*t48*t63*
778         t62-4.69587456e-10*t21*t48*t60*t137;
779     t139 = 1/pow(rhob,.6666666666666666);
780     t140 = sqrt(rhob);
781     t141 = pow(rhob,.3333333333333333);
782     t142 = 1/t141;
783     t143 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
784         1.6831*t8*t9/t140+6.1977*t1*t2*t3*t142+0.62517*t4*t5*t6*t139;
785     t144 = 32.1646831778707/
786         t143+1.0;
787     t145 = log(t144);
788     t146 = 0.20548*t1*t2*t3*t142+1.0;
789     t147 = t69*(t99+t93+t79)+0.03109*t145*t146*rhob+0.03109*
790         t19*t34*rhoa;
791     t148 = pow(gradb,8.0);
792     t149 = 0.2*t57*t58+1.0;
793     t150 = 1/pow(t149,4.0);
794     t151 = 1/pow(rhob,10.66666666666667);
795     t152 = pow(gradb,6.0);
796     t153 = 1/pow(t149,3.0);
797     t154 = 1/pow(rhob,8.0);
798     t155 = pow(gradb,4.0);
799     t156 = 1/pow(t149,2.0);
800     t157 = 1/pow(rhob,5.333333333333333);
801     t158 = 1/t149;
802     t159 = -0.05214*t57*t158*t58+0.017316*t155*t156*t157-
803         0.01594*t152*t153*t154+0.00397648*t148*t150*t151+0.48951;
804     t160 = 0.004*
805         t57*t58+1.0;
806     t161 = 1/pow(t160,4.0);
807     t162 = 1/pow(t160,3.0);
808     t163 = 1/pow(t160,2.0);
809     t164 = 1/t160;
810     t165 = -0.0029888*t57*t164*t58+8.125279999999999e-5*t155*
811         t163*t157-2.6288e-7*t152*t162*t154+2.999552e-10*t148*t161*
812         t151+1.09163;
813     t166 = pow(gradb,10.0);
814     t167 = 1/pow(t149,5.0);
815     t168 = 1/pow(rhob,14.33333333333333);
816     t169 = 1/pow(rhob,11.66666666666667);
817     t170 = 1/pow(rhob,9.0);
818     t171 = 1/pow(rhob,6.333333333333333);
819     t172 = 1/pow(rhob,3.666666666666667);
820     t173 = 0.13904*t57*t158*t172-0.12016*t155*t156*t171+0.1459904*
821         t152*t153*t170-.0679197866666667*t148*t150*t169+.0084831573333333*
822         t166*t167*t168;
823     t174 = 1/t144;
824     t175 = pow(rhob,1.333333333333333);
825     t176 = 1/t175;
826     t177 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
827         2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-0.84155*t8*
828         t9/pow(t140,3.0)-2.0659*t1*t2*t3*t176;
829     t178 = 1/pow(t143,2.0);
830     t179 = 1/pow(t160,5.0);
831     t180 = .0079701333333333*t57*t164*t172-4.652287999999999e-4*
832         t155*t163*t171+3.836433066666666e-6*t152*t162*t170-1.161168213333333e-8*
833         t148*t161*t169+1.27980885333333e-11*t166*t179*t168;
834     t181 = t86+t114;
835     t182 = t115+t118;
836     t183 = 1.333333333333333*t120*t182+1.333333333333333*
837         t117*t181;
838     t184 = .0197517897025652*t80*t84*t85*t183*t92;
839     t185 = 4.0*t126*t83+t125;
840     t186 = .0197517897025652*t80*t185*t85*t89*t92;
841     t187 = t80*t82*t83*t183*t98;
842     t188 = -1.0*t174*t177*t146*t178*rhob+t99+t69*(-4.0*t126*
843         t80*t83*t89*t98+t187+t186+t184+t135+t133+t123+t112+t111+t107)+
844         t93+t79+0.03109*t145*t146-.0021294577333333*t1*t2*t3*t145*
845         t142;
846     t189 = -0.0554384*t57*t67*t172+0.0027045024*t57*t59*t66*
847         t172-3.4198272e-5*t57*t65*t64*t172+1.98066816e-7*t57*t63*t62*
848         t172-4.69587456e-10*t57*t60*t137*t172;
849     t190 = pow(grada,9.0);
850     t191 = 1/pow(rhoa,13.33333333333333);
851     t192 = pow(grada,7.0);
852     t193 = pow(grada,5.0);
853     t194 = pow(grada,3.0);
854     t195 = -0.10428*grada*t32*t22+0.09012*t194*t30*t31-0.1094928*
855         t193*t27*t28+0.05093984*t192*t24*t25-0.006362368*t190*t43*
856         t191;
857     t196 = -0.0059776*grada*t40*t22+3.489216e-4*t194*t39*
858         t31-2.8773248e-6*t193*t38*t28+8.7087616e-9*t192*t37*t25-9.5985664e-12*
859         t190*t55*t191;
860     t197 = 0.0415788*grada*t22*t67-0.0020283768*grada*t22*
861         t59*t66+2.5648704e-5*grada*t22*t65*t64-1.48550112e-7*grada*
862         t22*t63*t62+3.52190592e-10*grada*t22*t60*t137;
863     t198 = pow(gradb,9.0);
864     t199 = 1/pow(rhob,13.33333333333333);
865     t200 = pow(gradb,7.0);
866     t201 = pow(gradb,5.0);
867     t202 = pow(gradb,3.0);
868     t203 = -0.10428*gradb*t158*t58+0.09012*t202*t156*t157-
869         0.1094928*t201*t153*t154+0.05093984*t200*t150*t151-0.006362368*
870         t198*t167*t199;
871     t204 = -0.0059776*gradb*t164*t58+3.489216e-4*t202*t163*
872         t157-2.8773248e-6*t201*t162*t154+8.7087616e-9*t200*t161*t151-
873         9.5985664e-12*t198*t179*t199;
874     t205 = 0.0415788*gradb*t67*t58-0.0020283768*gradb*t59*
875         t66*t58+2.5648704e-5*gradb*t65*t64*t58-1.48550112e-7*gradb*
876         t63*t62*t58+3.52190592e-10*gradb*t60*t137*t58;
877     t206 = pow(grada,12.0);
878     t207 = 1/pow(t23,6.0);
879     t208 = 1/pow(rhoa,18.0);
880     t209 = 1/pow(rhoa,15.33333333333333);
881     t210 = 1/pow(rhoa,12.66666666666667);
882     t211 = 1/pow(rhoa,10.0);
883     t212 = 1/pow(rhoa,7.333333333333333);
884     t213 = 1/pow(rhoa,4.666666666666667);
885     t214 = 1/pow(t18,2.0);
886     t215 = pow(t53,2.0);
887     t216 = 1/pow(t17,4.0);
888     t217 = 1/pow(t17,3.0);
889     t218 = 2.754533333333333*t1*t2*t3/pow(rhoa,2.333333333333333)+
890         2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
891         1.262325*t8*t9/pow(t10,5.0)+.6946333333333333*t4*t5*t6*t22;
892     t219 = 1/
893         pow(t36,6.0);
894     t220 = 2.0*t104*t71*t105*t106;
895     t221 = -1.169644679491041*t80*t84*t108*t85*t109*t89*t110;
896     t222 = .0088588622666667*
897         t1*t2*t3*t102*t78;
898     t223 = -.0014649244029403*t80*t1*t2*t3*t102*t84*t89*t92;
899     t224 = 2.0*
900         t132*t80*t82*t83*t89;
901     t225 = -8.0*t124*t80*t82*t89*t98;
902     t226 = pow(t104,2.0);
903     t227 = 1/pow(t76,4.0);
904     t228 = 1/pow(t77,2.0);
905     t229 = 16.0818243221511*t226*t71*t227*t228;
906     t230 = 1/pow(t76,3.0);
907     t231 = -2.0*t226*t71*t230*t106;
908     t232 = -.1424666666666666*t1*t2*t3*t102*t104*t105*t106;
909     t233 = 1/
910         pow(t69,2.666666666666667);
911     t234 = 1/pow(t73,5.0);
912     t235 = 1/pow(t69,2.333333333333333);
913     t236 = 1/pow(t69,2.166666666666667);
914     t237 = 1.476941666666667*t14*t15*t16*t236+1.594488888888889*
915         t1*t2*t3*t235+0.614325*t8*t9*t234+0.547711111111111*t4*t5*
916         t6*t233;
917     t238 = .9999999999999999*t237*t71*t105*t106;
918     t239 = pow(t108,2.0);
919     t240 = -17.31575589937587*t239*t80*t84*t85*t89/(pow(t90,
920         4.0)*pow(t91,2.0));
921     t241 = 1.169644679491041*t110*t239*t80*t84*t85*t89/pow(t90,
922         3.0);
923     t242 = .0433743235311261*t80*t1*t2*t3*t102*t84*t108*t109*
924         t89*t110;
925     t243 = -.5848223397455204*t80*t84*(2.013861111111111*
926         t14*t15*t16*t236+1.610266666666667*t1*t2*t3*t235+0.3300975*
927         t8*t9*t234+.5519000000000001*t4*t5*t6*t233)*t85*t109*t89*t110;
928     t244 = -
929         .0059059081777778*t1*t2*t3*t235*t78;
930     t245 = 1/pow(t87,.6666666666666666);
931     t246 = 1/pow(t69,3.0);
932     t247 = -2.0*t246*t81;
933     t248 = 2.0*t113;
934     t249 = 1/pow(t88,.6666666666666666);
935     t250 = 2.0*t246*t81;
936     t251 = -2.0*t113;
937     t252 = 1.333333333333333*t120*(t251+t250)+.4444444444444444*
938         pow(t119,2.0)*t249+1.333333333333333*t117*(t248+t247)+.4444444444444444*
939         pow(t116,2.0)*t245;
940     t253 = 9.766162686268349e-4*t80*t1*t2*t3*t235*t84*t89*
941         t92;
942     t254 = 1/pow(t69,6.0);
943     t255 = -20.0*t254*t82;
944     t256 = pow(t81,2.0);
945     t257 = -12.0*t256*t83;
946     t258 = pow(t129,2.0);
947     t259 = t80*t82*t83*t89*(-.0028392769777778*t1*t2*t3*t235*
948         t97+32.1646831778707*t258*t94/(pow(t95,4.0)*pow(t96,2.0))-
949         2.0*t131*t258*t94/pow(t95,3.0)+.0059059081777778*t1*t2*t3*
950         t235*t78-16.0818243221511*t226*t71*t227*t228+(2.745341666666667*
951         t14*t15*t16*t236+2.754533333333333*t1*t2*t3*t235+1.262325*
952         t8*t9*t234+.6946333333333333*t4*t5*t6*t233)*t94*t130*t131-
953         .1369866666666666*t1*t2*t3*t102*t129*t130*t131+2.0*t226*t71*
954         t230*t106-.9999999999999999*t237*t71*t105*t106+.1424666666666666*
955         t1*t2*t3*t102*t104*t105*t106);
956     t260 = -8.0*t124*t132*t80*t82*t89;
957     t261 = 20.0*t254*t80*t82*t89*t98;
958     t262 = 12.0*t256*t80*t83*t89*t98;
959     t263 = 1/pow(t61,6.0);
960     t264 = 2.666666666666667*t120*t246*t81-2.666666666666667*
961         t117*t246*t81+.4444444444444444*t119*t182*t249+.4444444444444444*
962         t116*t181*t245;
963     t265 = pow(grada,11.0);
964     t266 = 1/pow(rhoa,17.0);
965     t267 = pow(gradb,12.0);
966     t268 = 1/pow(t149,6.0);
967     t269 = 1/pow(rhob,18.0);
968     t270 = 1/pow(rhob,15.33333333333333);
969     t271 = 1/pow(rhob,12.66666666666667);
970     t272 = 1/pow(rhob,10.0);
971     t273 = 1/pow(rhob,7.333333333333333);
972     t274 = 1/pow(rhob,4.666666666666667);
973     t275 = 1/pow(t144,2.0);
974     t276 = pow(t177,2.0);
975     t277 = 1/pow(t143,4.0);
976     t278 = 1/pow(t143,3.0);
977     t279 = 2.754533333333333*t1*t2*t3/pow(rhob,2.333333333333333)+
978         2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
979         1.262325*t8*t9/pow(t140,5.0)+.6946333333333333*t4*t5*t6*t58;
980     t280 = 1/
981         pow(t160,6.0);
982     t281 = 1.333333333333333*t117*(t251+t247)+.4444444444444444*
983         pow(t182,2.0)*t249+1.333333333333333*t120*(t248+t250)+.4444444444444444*
984         pow(t181,2.0)*t245;
985     t282 = pow(gradb,11.0);
986     t283 = 1/pow(rhob,17.0);
987     t284 = 1/pow(rhoa,16.0);
988     t285 = 1/pow(rhob,16.0);
989 
990    /* code */
991     dfdra = t50*t33*t53*t34*t54*rhoa-0.03109*t19*t49*t34*
992         rhoa-0.75*t3*t35*t51*t56-1.0*t11*t3*t35*t41-0.03109*t19*t33*
993         t34+t138*t147+t68*t136+.0021294577333333*t1*t2*t3*t19*t33*
994         t12;
995     dfdrb = t174*t159*t177*t146*t178*rhob-0.03109*t145*t173*
996         t146*rhob-0.75*t175*t180*t3*t35-1.0*t141*t165*t3*t35+t68*t188+
997         t189*t147-0.03109*t145*t159*t146+.0021294577333333*t1*t2*t3*
998         t145*t159*t142;
999     dfdga = -0.03109*t19*t195*t34*rhoa-0.75*t196*t3*t35*t51+
1000         t197*t147;
1001     dfdgb = -0.03109*t145*t203*t146*rhob-0.75*t175*t204*t3*
1002         t35+t205*t147;
1003     dfdgab = 0.0;
1004     d2fdrara = t68*(-1.0*t50*t218*t34*t54*rhoa+2.0*t50*t215*
1005         t34*t217*rhoa-32.1646831778707*t214*t215*t34*t216*rhoa+t69*
1006         (-32.0*t124*t126*t80*t89*t98+8.0*t121*t126*t80*t83*t98-8.0*
1007         t121*t124*t80*t82*t98+t80*t82*t83*t252*t98+.0197517897025652*
1008         (t257+t255+32.0*t124*t126)*t80*t85*t89*t92-.0014649244029403*
1009         t80*t1*t2*t3*t102*t127*t89*t92+.0197517897025652*t80*t84*t85*
1010         t252*t92+.0395035794051304*t80*t127*t85*t121*t92-.0014649244029403*
1011         t80*t1*t2*t3*t102*t84*t121*t92+8.0*t126*t132*t80*t83*t89+2.0*
1012         t121*t132*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
1013         t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t127*t108*
1014         t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
1015         t121*t110)+8.0*t126*t80*t83*t89*t98+2.0*t121*t80*t82*t83*t98+
1016         .0395035794051304*t80*t127*t85*t89*t92+.0395035794051304*t80*
1017         t84*t85*t121*t92-2.0*t50*t53*t34*t54-.0014196384888889*t1*
1018         t2*t3*t19*t52+t225+t224+t223+t222+t221+t220+.1369866666666666*
1019         t1*t2*t3*t50*t53*t54*t12)+2.0*t34*t49*t50*t53*t54*rhoa+t50*
1020         t33*t218*t34*t54*rhoa-2.0*t215*t217*t33*t34*t50*rhoa-0.03109*
1021         t19*(-.5098133333333333*t21*t32*t213+.8351680000000001*t29*
1022         t30*t212-1.442084266666667*t26*t27*t211+1.025982151111111*
1023         t20*t24*t210-.2664874666666667*t42*t43*t209+.0226217528888889*
1024         t206*t207*t208)*t34*rhoa+32.1646831778707*t214*t33*t215*t34*
1025         t216*rhoa-.3333333333333333*t3*t35*t41*t7-2.0*t11*t3*t35*t56+
1026         2.0*t33*t34*t50*t53*t54+.0014196384888889*t1*t2*t3*t19*t33*
1027         t52-0.75*(-.0292238222222222*t21*t40*t213+.0030314638222222*
1028         t29*t39*t212-4.445277866666666e-5*t26*t38*t211+2.582354830222222e-7*
1029         t20*t37*t210-6.7887104e-10*t42*t55*t209+6.82564721777778e-13*
1030         t206*t219*t208)*t3*t35*t51-0.06218*t19*t49*t34+(.2032741333333333*
1031         t21*t213*t67-0.0099165088*t21*t213*t59*t66-0.0040495104*t29*
1032         t212*t66+1.25393664e-4*t21*t213*t65*t64+1.344674304e-4*t29*
1033         t212*t59*t64-7.26244992e-7*t21*t213*t63*t62-1.613025792e-6*
1034         t29*t212*t65*t62+1.721820672e-9*t21*t213*t60*t137+8.842604544e-9*
1035         t29*t212*t63*t137-1.878349824e-11*t29*t212*t60*t263)*t147+
1036         2.0*t136*t138-.1369866666666666*t1*t2*t3*t50*t33*t53*t54*t12+
1037         .0042589154666667*t1*t2*t3*t19*t49*t12;
1038     d2fdrarb = t68*(t69*(-12.0*t256*t80*t83*t89*t98+4.0*t126*
1039         t183*t80*t83*t98-4.0*t121*t126*t80*t83*t98-4.0*t124*t183*t80*
1040         t82*t98-4.0*t121*t124*t80*t82*t98+t80*t82*t83*t264*t98+.0197517897025652*
1041         t80*(12.0*t256*t83+t255)*t85*t89*t92-7.324622014701263e-4*
1042         t80*t1*t2*t3*t102*t185*t89*t92-7.324622014701263e-4*t80*t1*
1043         t2*t3*t102*t127*t89*t92+.0197517897025652*t80*t84*t85*t264*
1044         t92+.0197517897025652*t80*t127*t85*t183*t92-7.324622014701263e-4*
1045         t80*t1*t2*t3*t102*t84*t183*t92+.0197517897025652*t80*t185*
1046         t85*t121*t92-7.324622014701263e-4*t80*t1*t2*t3*t102*t84*t121*
1047         t92+t261+t260+t259+t253+t244+t243+t242+t241+t240+t238+t232+
1048         t231+t229+t80*t82*t83*t183*t132+t80*t82*t83*t121*t132-.5848223397455204*
1049         t80*t185*t108*t85*t109*t89*t110-.5848223397455204*t80*t127*
1050         t108*t85*t109*t89*t110-.5848223397455204*t80*t84*t108*t85*
1051         t109*t183*t110-.5848223397455204*t80*t84*t108*t85*t109*t121*
1052         t110)+t225+t224+t223+t222+t221+t220+t187+t186+t184+t134+t128+
1053         t122)+t138*t188+(-0.0040495104*t21*t57*t48*t66*t172+1.344674304e-4*
1054         t21*t57*t48*t59*t64*t172-1.613025792e-6*t21*t57*t48*t65*t62*
1055         t172+8.842604544e-9*t21*t57*t48*t63*t137*t172-1.878349824e-11*
1056         t21*t57*t48*t60*t263*t172)*t147+t189*t136;
1057     d2fdraga = t50*t195*t53*t34*t54*rhoa-0.03109*t19*(0.27808*
1058         grada*t32*t48-.5362560000000001*t194*t30*t47+.9720704000000001*
1059         t193*t27*t46-.7185467733333335*t192*t24*t45+0.193503232*t190*
1060         t43*t44-.0169663146666667*t265*t207*t266)*t34*rhoa-0.75*t3*
1061         t35*(.0159402666666667*grada*t40*t48-.0019246762666667*t194*
1062         t39*t47+3.04622592e-5*t193*t38*t46-1.849678506666667e-7*t192*
1063         t37*t45+4.995547136e-10*t190*t55*t44-5.11923541333333e-13*
1064         t265*t219*t266)*t51-1.0*t11*t196*t3*t35-0.03109*t19*t195*t34+
1065         (-0.1108768*grada*t48*t67+0.0054090048*grada*t48*t59*t66+0.0030371328*
1066         t194*t47*t66-6.839654399999999e-5*grada*t48*t65*t64-1.008505728e-4*
1067         t194*t47*t59*t64+3.96133632e-7*grada*t48*t63*t62+1.209769344e-6*
1068         t194*t47*t65*t62-9.39174912e-10*grada*t48*t60*t137-6.631953408000001e-9*
1069         t194*t47*t63*t137+1.408762368e-11*t194*t47*t60*t263)*t147+
1070         t197*t136+.0021294577333333*t1*t2*t3*t19*t195*t12;
1071     d2fdragb = (0.0030371328*t21*gradb*t48*t66*t58-1.008505728e-4*
1072         t21*gradb*t48*t59*t64*t58+1.209769344e-6*t21*gradb*t48*t65*
1073         t62*t58-6.631953408000001e-9*t21*gradb*t48*t63*t137*t58+1.408762368e-11*
1074         t21*gradb*t48*t60*t263*t58)*t147+t205*t136;
1075     d2fdraab = 0.0;
1076     d2fdrbrb = t68*(2.0*t174*t276*t146*t278*rhob-32.1646831778707*
1077         t275*t276*t146*t277*rhob-1.0*t174*t279*t146*t178*rhob+t69*
1078         (32.0*t124*t126*t80*t89*t98-8.0*t126*t183*t80*t83*t98-8.0*
1079         t124*t183*t80*t82*t98+t80*t82*t83*t281*t98+.0197517897025652*
1080         (t257+t255-32.0*t124*t126)*t80*t85*t89*t92-.0014649244029403*
1081         t80*t1*t2*t3*t102*t185*t89*t92+.0197517897025652*t80*t84*t85*
1082         t281*t92+.0395035794051304*t80*t185*t85*t183*t92-.0014649244029403*
1083         t80*t1*t2*t3*t102*t84*t183*t92-8.0*t126*t132*t80*t83*t89+2.0*
1084         t132*t183*t80*t82*t83+t262+t261+t260+t259+t253+t244+t243+t242+
1085         t241+t240+t238+t232+t231+t229-1.169644679491041*t80*t185*t108*
1086         t85*t109*t89*t110-1.169644679491041*t80*t84*t108*t85*t109*
1087         t183*t110)-8.0*t126*t80*t83*t89*t98+2.0*t183*t80*t82*t83*t98+
1088         .0395035794051304*t80*t185*t85*t89*t92+.0395035794051304*t80*
1089         t84*t85*t183*t92+t225+t224+t223+t222+t221+t220-2.0*t174*t177*
1090         t146*t178-.0014196384888889*t1*t2*t3*t145*t176+.1369866666666666*
1091         t1*t2*t3*t174*t177*t178*t142)-2.0*t146*t159*t174*t276*t278*
1092         rhob+32.1646831778707*t275*t159*t276*t146*t277*rhob+2.0*t146*
1093         t173*t174*t177*t178*rhob+t174*t159*t279*t146*t178*rhob-0.03109*
1094         t145*(-.5098133333333333*t57*t158*t274+.8351680000000001*t155*
1095         t156*t273-1.442084266666667*t152*t153*t272+1.025982151111111*
1096         t148*t150*t271-.2664874666666667*t166*t167*t270+.0226217528888889*
1097         t267*t268*t269)*t146*rhob-0.75*t175*(-.0292238222222222*t57*
1098         t164*t274+.0030314638222222*t155*t163*t273-4.445277866666666e-5*
1099         t152*t162*t272+2.582354830222222e-7*t148*t161*t271-6.7887104e-10*
1100         t166*t179*t270+6.82564721777778e-13*t267*t280*t269)*t3*t35-
1101         2.0*t141*t180*t3*t35-.3333333333333333*t139*t165*t3*t35+2.0*
1102         t188*t189+2.0*t146*t159*t174*t177*t178+.0014196384888889*t1*
1103         t2*t3*t145*t159*t176+(.2032741333333333*t57*t67*t274-0.0099165088*
1104         t57*t59*t66*t274+1.25393664e-4*t57*t65*t64*t274-7.26244992e-7*
1105         t57*t63*t62*t274+1.721820672e-9*t57*t60*t137*t274-0.0040495104*
1106         t155*t66*t273+1.344674304e-4*t155*t59*t64*t273-1.613025792e-6*
1107         t155*t65*t62*t273+8.842604544e-9*t155*t63*t137*t273-1.878349824e-11*
1108         t155*t60*t263*t273)*t147-0.06218*t145*t173*t146-.1369866666666666*
1109         t1*t2*t3*t174*t159*t177*t178*t142+.0042589154666667*t1*t2*
1110         t3*t145*t173*t142;
1111     d2fdrbga = (0.0030371328*grada*t57*t22*t66*t172-1.008505728e-4*
1112         grada*t57*t22*t59*t64*t172+1.209769344e-6*grada*t57*t22*t65*
1113         t62*t172-6.631953408000001e-9*grada*t57*t22*t63*t137*t172+
1114         1.408762368e-11*grada*t57*t22*t60*t263*t172)*t147+t197*t188;
1115     d2fdrbgb = t174*
1116         t203*t177*t146*t178*rhob-0.03109*t145*(0.27808*gradb*t158*
1117         t172-.5362560000000001*t202*t156*t171+.9720704000000001*t201*
1118         t153*t170-.7185467733333335*t200*t150*t169+0.193503232*t198*
1119         t167*t168-.0169663146666667*t282*t268*t283)*t146*rhob-1.0*
1120         t141*t204*t3*t35-0.75*(.0159402666666667*gradb*t164*t172-.0019246762666667*
1121         t202*t163*t171+3.04622592e-5*t201*t162*t170-1.849678506666667e-7*
1122         t200*t161*t169+4.995547136e-10*t198*t179*t168-5.11923541333333e-13*
1123         t282*t280*t283)*t175*t3*t35+t205*t188+(-0.1108768*gradb*t67*
1124         t172+0.0054090048*gradb*t59*t66*t172-6.839654399999999e-5*
1125         gradb*t65*t64*t172+3.96133632e-7*gradb*t63*t62*t172-9.39174912e-10*
1126         gradb*t60*t137*t172+0.0030371328*t202*t66*t171-1.008505728e-4*
1127         t202*t59*t64*t171+1.209769344e-6*t202*t65*t62*t171-6.631953408000001e-9*
1128         t202*t63*t137*t171+1.408762368e-11*t202*t60*t263*t171)*t147-
1129         0.03109*t145*t203*t146+.0021294577333333*t1*t2*t3*t145*t203*
1130         t142;
1131     d2fdrbgab = 0.0;
1132     d2fdgaga = -0.03109*t19*(-0.10428*t32*t22+0.312072*t21*
1133         t30*t31-.6195600000000002*t29*t27*t28+.4879702400000002*t26*
1134         t24*t25-0.138765056*t20*t43*t191+0.012724736*t42*t207*t284)*
1135         t34*rhoa-0.75*(-0.0059776*t40*t22+0.0010945856*t21*t39*t31-
1136         1.99693696e-5*t29*t38*t28+1.300171264e-7*t26*t37*t25-3.650674688e-10*
1137         t20*t55*t191+3.83942656e-13*t42*t219*t284)*t3*t35*t51+(0.0415788*
1138         t22*t67-0.0020283768*t22*t59*t66-0.0022778496*t21*t31*t66+
1139         2.5648704e-5*t22*t65*t64+7.563792960000001e-5*t21*t31*t59*
1140         t64-1.48550112e-7*t22*t63*t62-9.073270080000002e-7*t21*t31*
1141         t65*t62+3.52190592e-10*t22*t60*t137+4.973965056000001e-9*t21*
1142         t31*t63*t137-1.056571776e-11*t21*t31*t60*t263)*t147;
1143     d2fdgagb = (-0.0022778496*grada*gradb*t22*t66*t58+7.563792960000001e-5*
1144         grada*gradb*t22*t59*t64*t58-9.073270080000002e-7*grada*gradb*
1145         t22*t65*t62*t58+4.973965056000001e-9*grada*gradb*t22*t63*t137*
1146         t58-1.056571776e-11*grada*gradb*t22*t60*t263*t58)*t147;
1147     d2fdgagab = 0.0;
1148     d2fdgbgb = -0.03109*t145*(-0.10428*t158*t58+0.312072*
1149         t57*t156*t157-.6195600000000002*t155*t153*t154+.4879702400000002*
1150         t152*t150*t151-0.138765056*t148*t167*t199+0.012724736*t166*
1151         t268*t285)*t146*rhob-0.75*t175*t3*t35*(-0.0059776*t164*t58+
1152         0.0010945856*t57*t163*t157-1.99693696e-5*t155*t162*t154+1.300171264e-7*
1153         t152*t161*t151-3.650674688e-10*t148*t179*t199+3.83942656e-13*
1154         t166*t280*t285)+(0.0415788*t67*t58-0.0020283768*t59*t66*t58+
1155         2.5648704e-5*t65*t64*t58-1.48550112e-7*t63*t62*t58+3.52190592e-10*
1156         t60*t137*t58-0.0022778496*t57*t66*t157+7.563792960000001e-5*
1157         t57*t59*t64*t157-9.073270080000002e-7*t57*t65*t62*t157+4.973965056000001e-9*
1158         t57*t63*t137*t157-1.056571776e-11*t57*t60*t263*t157)*t147;
1159     d2fdgbgab = 0.0;
1160     d2fdgabgab = 0.0;
1161 
1162 
1163     ds->df1000 += factor*dfdra;
1164     ds->df0100 += factor*dfdrb;
1165     ds->df0010 += factor*dfdga;
1166     ds->df0001 += factor*dfdgb;
1167     ds->df00001+= factor*dfdgab;
1168 
1169     ds->df2000 += factor*d2fdrara;
1170     ds->df1100 += factor*d2fdrarb;
1171     ds->df1010 += factor*d2fdraga;
1172     ds->df1001 += factor*d2fdragb;
1173     ds->df10001+= factor*d2fdraab;
1174     ds->df0200 += factor*d2fdrbrb;
1175     ds->df0110 += factor*d2fdrbga;
1176     ds->df0101 += factor*d2fdrbgb;
1177     ds->df01001+= factor*d2fdrbgab;
1178     ds->df0020 += factor*d2fdgaga;
1179     ds->df0011 += factor*d2fdgagb;
1180     ds->df00101+= factor*d2fdgagab;
1181     ds->df0002 += factor*d2fdgbgb;
1182     ds->df00011+= factor*d2fdgbgab;
1183     ds->df00002+= factor*d2fdgabgab;
1184 
1185 }
1186 
1187 static void
hcth120_third(FunThirdFuncDrv * ds,real factor,const FunDensProp * dp)1188 hcth120_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
1189 {
1190     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
1191     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
1192         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
1193         d2fdgbgb, d2fdgbgab, d2fdgabgab;
1194     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
1195          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
1196          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
1197          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
1198          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
1199          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
1200          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
1201     real rhoa = dp->rhoa, rhob = dp->rhob;
1202     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
1203 
1204     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
1205     real t11, t12, t13, t14, t15, t16, t17, t18;
1206     real t19, t20, t21, t22, t23, t24, t25, t26;
1207     real t27, t28, t29, t30, t31, t32, t33, t34;
1208     real t35, t36, t37, t38, t39, t40, t41, t42;
1209     real t43, t44, t45, t46, t47, t48, t49, t50;
1210     real t51, t52, t53, t54, t55, t56, t57, t58;
1211     real t59, t60, t61, t62, t63, t64, t65, t66;
1212     real t67, t68, t69, t70, t71, t72, t73, t74;
1213     real t75, t76, t77, t78, t79, t80, t81, t82;
1214     real t83, t84, t85, t86, t87, t88, t89, t90;
1215     real t91, t92, t93, t94, t95, t96, t97, t98;
1216     real t99, t100, t101, t102, t103, t104, t105;
1217     real t106, t107, t108, t109, t110, t111, t112;
1218     real t113, t114, t115, t116, t117, t118, t119;
1219     real t120, t121, t122, t123, t124, t125, t126;
1220     real t127, t128, t129, t130, t131, t132, t133;
1221     real t134, t135, t136, t137, t138, t139, t140;
1222     real t141, t142, t143, t144, t145, t146, t147;
1223     real t148, t149, t150, t151, t152, t153, t154;
1224     real t155, t156, t157, t158, t159, t160, t161;
1225     real t162, t163, t164, t165, t166, t167, t168;
1226     real t169, t170, t171, t172, t173, t174, t175;
1227     real t176, t177, t178, t179, t180, t181, t182;
1228     real t183, t184, t185, t186, t187, t188, t189;
1229     real t190, t191, t192, t193, t194, t195, t196;
1230     real t197, t198, t199, t200, t201, t202, t203;
1231     real t204, t205, t206, t207, t208, t209, t210;
1232     real t211, t212, t213, t214, t215, t216, t217;
1233     real t218, t219, t220, t221, t222, t223, t224;
1234     real t225, t226, t227, t228, t229, t230, t231;
1235     real t232, t233, t234, t235, t236, t237, t238;
1236     real t239, t240, t241, t242, t243, t244, t245;
1237     real t246, t247, t248, t249, t250, t251, t252;
1238     real t253, t254, t255, t256, t257, t258, t259;
1239     real t260, t261, t262, t263, t264, t265, t266;
1240     real t267, t268, t269, t270, t271, t272, t273;
1241     real t274, t275, t276, t277, t278, t279, t280;
1242     real t281, t282, t283, t284, t285, t286, t287;
1243     real t288, t289, t290, t291, t292, t293, t294;
1244     real t295, t296, t297, t298, t299, t300, t301;
1245     real t302, t303, t304, t305, t306, t307, t308;
1246     real t309, t310, t311, t312, t313, t314, t315;
1247     real t316, t317, t318, t319, t320, t321, t322;
1248     real t323, t324, t325, t326, t327, t328, t329;
1249     real t330, t331, t332, t333, t334, t335, t336;
1250     real t337, t338, t339, t340, t341, t342, t343;
1251     real t344, t345, t346, t347, t348, t349, t350;
1252     real t351, t352, t353, t354, t355, t356, t357;
1253     real t358, t359, t360, t361, t362, t363, t364;
1254     real t365, t366, t367, t368, t369, t370, t371;
1255     real t372, t373, t374, t375, t376, t377, t378;
1256     real t379, t380, t381, t382, t383, t384, t385;
1257     real t386, t387, t388, t389, t390, t391, t392;
1258     real t393, t394, t395, t396, t397, t398, t399;
1259     real t400, t401, t402, t403, t404, t405, t406;
1260     real t407, t408, t409, t410, t411, t412, t413;
1261     real t414, t415, t416, t417, t418, t419, t420;
1262     real t421, t422, t423, t424, t425, t426, t427;
1263     real t428, t429, t430, t431, t432, t433, t434;
1264     real t435, t436, t437, t438, t439, t440, t441;
1265     real t442, t443, t444, t445, t446, t447, t448;
1266     real t449, t450, t451, t452, t453, t454, t455;
1267     real t456, t457, t458, t459, t460, t461, t462;
1268     real t463, t464, t465, t466, t467, t468, t469;
1269     real t470, t471, t472, t473, t474, t475, t476;
1270     real t477, t478, t479, t480, t481, t482, t483;
1271     real t484, t485, t486;
1272 
1273     t1 = pow(3.0,.3333333333333333);
1274     t2 = 1/pow(4.0,.3333333333333333);
1275     t3 = 1/pow(3.141592653589793,.3333333333333333);
1276     t4 = pow(3.0,.6666666666666666);
1277     t5 = 1/pow(4.0,.6666666666666666);
1278     t6 = 1/pow(3.141592653589793,.6666666666666666);
1279     t7 = 1/pow(rhoa,.6666666666666666);
1280     t8 = 1.732050807568877;
1281     t9 = .5641895835477563;
1282     t10 = sqrt(rhoa);
1283     t11 = pow(rhoa,.3333333333333333);
1284     t12 = 1/t11;
1285     t13 = pow(2.0,.3333333333333333);
1286     t14 = 1/t13;
1287     t15 = pow(3.0,.1666666666666667);
1288     t16 = 1/pow(3.141592653589793,.1666666666666667);
1289     t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
1290         1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
1291     t18 = 32.1646831778707/
1292         t17+1.0;
1293     t19 = log(t18);
1294     t20 = pow(grada,8.0);
1295     t21 = pow(grada,2.0);
1296     t22 = 1/pow(rhoa,2.666666666666667);
1297     t23 = 0.2*t21*t22+1.0;
1298     t24 = 1/pow(t23,4.0);
1299     t25 = 1/pow(rhoa,10.66666666666667);
1300     t26 = pow(grada,6.0);
1301     t27 = 1/pow(t23,3.0);
1302     t28 = 1/pow(rhoa,8.0);
1303     t29 = pow(grada,4.0);
1304     t30 = 1/pow(t23,2.0);
1305     t31 = 1/pow(rhoa,5.333333333333333);
1306     t32 = 1/t23;
1307     t33 = -0.05214*t21*t32*t22+0.017316*t29*t30*t31-0.01594*
1308         t26*t27*t28+0.00397648*t20*t24*t25+0.48951;
1309     t34 = 0.20548*t1*t2*t3*t12+1.0;
1310     t35 = pow(6.0,.3333333333333333);
1311     t36 = 0.004*t21*t22+1.0;
1312     t37 = 1/pow(t36,4.0);
1313     t38 = 1/pow(t36,3.0);
1314     t39 = 1/pow(t36,2.0);
1315     t40 = 1/t36;
1316     t41 = -0.0029888*t21*t40*t22+8.125279999999999e-5*t29*
1317         t39*t31-2.6288e-7*t26*t38*t28+2.999552e-10*t20*t37*t25+1.09163;
1318     t42 = pow(grada,
1319         10.0);
1320     t43 = 1/pow(t23,5.0);
1321     t44 = 1/pow(rhoa,14.33333333333333);
1322     t45 = 1/pow(rhoa,11.66666666666667);
1323     t46 = 1/pow(rhoa,9.0);
1324     t47 = 1/pow(rhoa,6.333333333333333);
1325     t48 = 1/pow(rhoa,3.666666666666667);
1326     t49 = 0.13904*t21*t32*t48-0.12016*t29*t30*t47+0.1459904*
1327         t26*t27*t46-.0679197866666667*t20*t24*t45+.0084831573333333*
1328         t42*t43*t44;
1329     t50 = 1/t18;
1330     t51 = 1/pow(rhoa,1.666666666666667);
1331     t52 = pow(rhoa,1.333333333333333);
1332     t53 = 1/t52;
1333     t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
1334         0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
1335         t5*t6*t51;
1336     t55 = 1/pow(t17,2.0);
1337     t56 = 1/pow(t36,5.0);
1338     t57 = .0079701333333333*t21*t40*t48-4.652287999999999e-4*
1339         t29*t39*t47+3.836433066666666e-6*t26*t38*t46-1.161168213333333e-8*
1340         t20*t37*t45+1.27980885333333e-11*t42*t56*t44;
1341     t58 = pow(gradb,2.0);
1342     t59 = 1/pow(rhob,2.666666666666667);
1343     t60 = 0.5*t58*t59+0.5*t21*t22;
1344     t61 = pow(t60,4.0);
1345     t62 = 0.006*t60+1.0;
1346     t63 = 1/pow(t62,4.0);
1347     t64 = pow(t60,3.0);
1348     t65 = 1/pow(t62,3.0);
1349     t66 = pow(t60,2.0);
1350     t67 = 1/pow(t62,2.0);
1351     t68 = 1/t62;
1352     t69 = 0.0415788*t60*t68-8.894520000000001e-4*t66*t67+
1353         4.99176e-6*t64*t65-1.4674608e-8*t61*t63+0.51473;
1354     t70 = rhob+rhoa;
1355     t71 = 1/pow(t70,.3333333333333333);
1356     t72 = 0.2137*t1*t2*t3*t71+1.0;
1357     t73 = 1/pow(t70,.6666666666666666);
1358     t74 = sqrt(t70);
1359     t75 = 1/t74;
1360     t76 = 1/pow(t70,.1666666666666667);
1361     t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
1362         t8*t9*t75+0.49294*t4*t5*t6*t73;
1363     t78 = 16.0818243221511/t77+1.0;
1364     t79 = log(t78);
1365     t80 = -0.062182*t72*t79;
1366     t81 = 1/(2.0*t13-2.0);
1367     t82 = rhoa-1.0*rhob;
1368     t83 = pow(t82,4.0);
1369     t84 = 1/pow(t70,4.0);
1370     t85 = 1.0-1.0*t83*t84;
1371     t86 = 0.11125*t1*t2*t3*t71+1.0;
1372     t87 = 1/t70;
1373     t88 = 1.0-1.0*t82*t87;
1374     t89 = t82*t87+1.0;
1375     t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
1376         2.0;
1377     t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
1378         t8*t9*t75+0.49671*t4*t5*t6*t73;
1379     t92 = 29.60857464321668/t91+1.0;
1380     t93 = log(t92);
1381     t94 = .0197517897025652*t81*t85*t86*t90*t93;
1382     t95 = 0.20548*t1*t2*t3*t71+1.0;
1383     t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
1384         t8*t9*t75+0.62517*t4*t5*t6*t73;
1385     t97 = 32.1646831778707/t96+1.0;
1386     t98 = log(t97);
1387     t99 = 0.062182*t72*t79-0.03109*t95*t98;
1388     t100 = t81*t83*t84*t90*t99;
1389     t101 = 1/pow(t70,1.666666666666667);
1390     t102 = 1/pow(t74,3.0);
1391     t103 = 1/pow(t70,1.333333333333333);
1392     t104 = 1/pow(t70,1.166666666666667);
1393     t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
1394         t2*t3*t103-0.40955*t8*t9*t102-.3286266666666666*t4*t5*t6*t101;
1395     t106 = 1/
1396         pow(t77,2.0);
1397     t107 = 1/t78;
1398     t108 = .9999999999999999*t105*t72*t106*t107;
1399     t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
1400         t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
1401     t110 = 1/pow(t91,2.0);
1402     t111 = 1/t92;
1403     t112 = -.5848223397455204*t81*t85*t109*t86*t110*t90*t111;
1404     t113 = .0044294311333333*
1405         t1*t2*t3*t103*t79;
1406     t114 = 1/pow(t70,2.0);
1407     t115 = t82*t114;
1408     t116 = -1.0*t87;
1409     t117 = t116+t115;
1410     t118 = pow(t88,.3333333333333333);
1411     t119 = -1.0*t114*t82;
1412     t120 = t87+t119;
1413     t121 = pow(t89,.3333333333333333);
1414     t122 = 1.333333333333333*t120*t121+1.333333333333333*
1415         t117*t118;
1416     t123 = .0197517897025652*t81*t85*t86*t122*t93;
1417     t124 = -7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t90*
1418         t93;
1419     t125 = 1/pow(t70,5.0);
1420     t126 = 4.0*t125*t83;
1421     t127 = pow(t82,3.0);
1422     t128 = t126-4.0*t127*t84;
1423     t129 = .0197517897025652*t81*t128*t86*t90*t93;
1424     t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
1425         0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
1426     t131 = 1/pow(t96,2.0);
1427     t132 = 1/t97;
1428     t133 = .0021294577333333*t1*t2*t3*t103*t98-.0044294311333333*
1429         t1*t2*t3*t103*t79+t130*t95*t131*t132-.9999999999999999*t105*
1430         t72*t106*t107;
1431     t134 = t81*t83*t84*t90*t133;
1432     t135 = t81*t83*t84*t122*t99;
1433     t136 = -4.0*t125*t81*t83*t90*t99;
1434     t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
1435         t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
1436         t80+0.03109*t19*t34-.0021294577333333*t1*t2*t3*t19*t12+t100;
1437     t138 = 1/
1438         pow(t62,5.0);
1439     t139 = -0.0554384*t21*t48*t68+0.0027045024*t21*t48*t60*
1440         t67-3.4198272e-5*t21*t48*t66*t65+1.98066816e-7*t21*t48*t64*
1441         t63-4.69587456e-10*t21*t48*t61*t138;
1442     t140 = 1/pow(rhob,.6666666666666666);
1443     t141 = sqrt(rhob);
1444     t142 = pow(rhob,.3333333333333333);
1445     t143 = 1/t142;
1446     t144 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
1447         1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
1448     t145 = 32.1646831778707/
1449         t144+1.0;
1450     t146 = log(t145);
1451     t147 = 0.20548*t1*t2*t3*t143+1.0;
1452     t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
1453         t19*t34*rhoa;
1454     t149 = pow(gradb,8.0);
1455     t150 = 0.2*t58*t59+1.0;
1456     t151 = 1/pow(t150,4.0);
1457     t152 = 1/pow(rhob,10.66666666666667);
1458     t153 = pow(gradb,6.0);
1459     t154 = 1/pow(t150,3.0);
1460     t155 = 1/pow(rhob,8.0);
1461     t156 = pow(gradb,4.0);
1462     t157 = 1/pow(t150,2.0);
1463     t158 = 1/pow(rhob,5.333333333333333);
1464     t159 = 1/t150;
1465     t160 = -0.05214*t58*t159*t59+0.017316*t156*t157*t158-
1466         0.01594*t153*t154*t155+0.00397648*t149*t151*t152+0.48951;
1467     t161 = 0.004*
1468         t58*t59+1.0;
1469     t162 = 1/pow(t161,4.0);
1470     t163 = 1/pow(t161,3.0);
1471     t164 = 1/pow(t161,2.0);
1472     t165 = 1/t161;
1473     t166 = -0.0029888*t58*t165*t59+8.125279999999999e-5*t156*
1474         t164*t158-2.6288e-7*t153*t163*t155+2.999552e-10*t149*t162*
1475         t152+1.09163;
1476     t167 = pow(gradb,10.0);
1477     t168 = 1/pow(t150,5.0);
1478     t169 = 1/pow(rhob,14.33333333333333);
1479     t170 = 1/pow(rhob,11.66666666666667);
1480     t171 = 1/pow(rhob,9.0);
1481     t172 = 1/pow(rhob,6.333333333333333);
1482     t173 = 1/pow(rhob,3.666666666666667);
1483     t174 = 0.13904*t58*t159*t173-0.12016*t156*t157*t172+0.1459904*
1484         t153*t154*t171-.0679197866666667*t149*t151*t170+.0084831573333333*
1485         t167*t168*t169;
1486     t175 = 1/t145;
1487     t176 = 1/pow(rhob,1.666666666666667);
1488     t177 = pow(rhob,1.333333333333333);
1489     t178 = 1/t177;
1490     t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
1491         0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
1492         t5*t6*t176;
1493     t180 = 1/pow(t144,2.0);
1494     t181 = 1/pow(t161,5.0);
1495     t182 = .0079701333333333*t58*t165*t173-4.652287999999999e-4*
1496         t156*t164*t172+3.836433066666666e-6*t153*t163*t171-1.161168213333333e-8*
1497         t149*t162*t170+1.27980885333333e-11*t167*t181*t169;
1498     t183 = t87+t115;
1499     t184 = t116+t119;
1500     t185 = 1.333333333333333*t121*t184+1.333333333333333*
1501         t118*t183;
1502     t186 = .0197517897025652*t81*t85*t86*t185*t93;
1503     t187 = 4.0*t127*t84+t126;
1504     t188 = .0197517897025652*t81*t187*t86*t90*t93;
1505     t189 = t81*t83*t84*t185*t99;
1506     t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
1507         t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
1508         t94+t80+0.03109*t146*t147-.0021294577333333*t1*t2*t3*t146*
1509         t143+t100;
1510     t191 = -0.0554384*t58*t68*t173+0.0027045024*t58*t60*t67*
1511         t173-3.4198272e-5*t58*t66*t65*t173+1.98066816e-7*t58*t64*t63*
1512         t173-4.69587456e-10*t58*t61*t138*t173;
1513     t192 = pow(grada,9.0);
1514     t193 = 1/pow(rhoa,13.33333333333333);
1515     t194 = pow(grada,7.0);
1516     t195 = pow(grada,5.0);
1517     t196 = pow(grada,3.0);
1518     t197 = -0.10428*grada*t32*t22+0.09012*t196*t30*t31-0.1094928*
1519         t195*t27*t28+0.05093984*t194*t24*t25-0.006362368*t192*t43*
1520         t193;
1521     t198 = -0.0059776*grada*t40*t22+3.489216e-4*t196*t39*
1522         t31-2.8773248e-6*t195*t38*t28+8.7087616e-9*t194*t37*t25-9.5985664e-12*
1523         t192*t56*t193;
1524     t199 = 0.0415788*grada*t22*t68-0.0020283768*grada*t22*
1525         t60*t67+2.5648704e-5*grada*t22*t66*t65-1.48550112e-7*grada*
1526         t22*t64*t63+3.52190592e-10*grada*t22*t61*t138;
1527     t200 = pow(gradb,9.0);
1528     t201 = 1/pow(rhob,13.33333333333333);
1529     t202 = pow(gradb,7.0);
1530     t203 = pow(gradb,5.0);
1531     t204 = pow(gradb,3.0);
1532     t205 = -0.10428*gradb*t159*t59+0.09012*t204*t157*t158-
1533         0.1094928*t203*t154*t155+0.05093984*t202*t151*t152-0.006362368*
1534         t200*t168*t201;
1535     t206 = -0.0059776*gradb*t165*t59+3.489216e-4*t204*t164*
1536         t158-2.8773248e-6*t203*t163*t155+8.7087616e-9*t202*t162*t152-
1537         9.5985664e-12*t200*t181*t201;
1538     t207 = 0.0415788*gradb*t68*t59-0.0020283768*gradb*t60*
1539         t67*t59+2.5648704e-5*gradb*t66*t65*t59-1.48550112e-7*gradb*
1540         t64*t63*t59+3.52190592e-10*gradb*t61*t138*t59;
1541     t208 = pow(grada,12.0);
1542     t209 = 1/pow(t23,6.0);
1543     t210 = 1/pow(rhoa,18.0);
1544     t211 = 1/pow(rhoa,15.33333333333333);
1545     t212 = 1/pow(rhoa,12.66666666666667);
1546     t213 = 1/pow(rhoa,10.0);
1547     t214 = 1/pow(rhoa,7.333333333333333);
1548     t215 = 1/pow(rhoa,4.666666666666667);
1549     t216 = -.5098133333333333*t21*t32*t215+.8351680000000001*
1550         t29*t30*t214-1.442084266666667*t26*t27*t213+1.025982151111111*
1551         t20*t24*t212-.2664874666666667*t42*t43*t211+.0226217528888889*
1552         t208*t209*t210;
1553     t217 = 1/pow(t18,2.0);
1554     t218 = pow(t54,2.0);
1555     t219 = 1/pow(t17,4.0);
1556     t220 = 1/pow(t17,3.0);
1557     t221 = 1/pow(rhoa,2.333333333333333);
1558     t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
1559         1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
1560         .6946333333333333*t4*t5*t6*t22;
1561     t223 = 1/pow(t36,6.0);
1562     t224 = -.0292238222222222*t21*t40*t215+.0030314638222222*
1563         t29*t39*t214-4.445277866666666e-5*t26*t38*t213+2.582354830222222e-7*
1564         t20*t37*t212-6.7887104e-10*t42*t56*t211+6.82564721777778e-13*
1565         t208*t223*t210;
1566     t225 = 2.0*t105*t72*t106*t107;
1567     t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
1568     t227 = .0088588622666667*
1569         t1*t2*t3*t103*t79;
1570     t228 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t90*t93;
1571     t229 = 2.0*
1572         t133*t81*t83*t84*t90;
1573     t230 = -8.0*t125*t81*t83*t90*t99;
1574     t231 = pow(t105,2.0);
1575     t232 = 1/pow(t77,4.0);
1576     t233 = 1/pow(t78,2.0);
1577     t234 = 16.0818243221511*t231*t72*t232*t233;
1578     t235 = 1/pow(t77,3.0);
1579     t236 = -2.0*t231*t72*t235*t107;
1580     t237 = -.1424666666666666*t1*t2*t3*t103*t105*t106*t107;
1581     t238 = 1/
1582         pow(t70,2.666666666666667);
1583     t239 = 1/pow(t74,5.0);
1584     t240 = 1/pow(t70,2.333333333333333);
1585     t241 = 1/pow(t70,2.166666666666667);
1586     t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
1587         t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
1588         t6*t238;
1589     t243 = .9999999999999999*t242*t72*t106*t107;
1590     t244 = pow(t109,2.0);
1591     t245 = 1/pow(t91,4.0);
1592     t246 = 1/pow(t92,2.0);
1593     t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
1594     t248 = -
1595         1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
1596     t249 = 1/pow(t91,3.0);
1597     t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
1598     t251 = .0433743235311261*
1599         t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
1600     t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
1601         t1*t2*t3*t240+0.3300975*t8*t9*t239+.5519000000000001*t4*t5*
1602         t6*t238;
1603     t253 = -.5848223397455204*t81*t85*t252*t86*t110*t90*t111;
1604     t254 = -
1605         1.169644679491041*t81*t128*t109*t86*t110*t90*t111;
1606     t255 = -.0059059081777778*t1*t2*t3*t240*t79;
1607     t256 = pow(t117,2.0);
1608     t257 = 1/pow(t88,.6666666666666666);
1609     t258 = 1/pow(t70,3.0);
1610     t259 = -2.0*t258*t82;
1611     t260 = 2.0*t114;
1612     t261 = t260+t259;
1613     t262 = pow(t120,2.0);
1614     t263 = 1/pow(t89,.6666666666666666);
1615     t264 = 2.0*t258*t82;
1616     t265 = -2.0*t114;
1617     t266 = t265+t264;
1618     t267 = 1.333333333333333*t121*t266+.4444444444444444*
1619         t262*t263+1.333333333333333*t118*t261+.4444444444444444*t256*
1620         t257;
1621     t268 = .0197517897025652*t81*t85*t86*t267*t93;
1622     t269 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t122*
1623         t93;
1624     t270 = .0395035794051304*t81*t128*t86*t122*t93;
1625     t271 = -.0014649244029403*t81*t1*t2*t3*t103*t128*t90*
1626         t93;
1627     t272 = 9.766162686268349e-4*t81*t1*t2*t3*t240*t85*t90*
1628         t93;
1629     t273 = 1/pow(t70,6.0);
1630     t274 = -20.0*t273*t83;
1631     t275 = pow(t82,2.0);
1632     t276 = -12.0*t275*t84;
1633     t277 = t276+t274+32.0*t125*t127;
1634     t278 = .0197517897025652*t81*t277*t86*t90*t93;
1635     t279 = pow(t130,2.0);
1636     t280 = 1/pow(t96,4.0);
1637     t281 = 1/pow(t97,2.0);
1638     t282 = 1/pow(t96,3.0);
1639     t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
1640         t1*t2*t3*t240+1.262325*t8*t9*t239+.6946333333333333*t4*t5*
1641         t6*t238;
1642     t284 = -.0028392769777778*t1*t2*t3*t240*t98-2.0*t132*
1643         t279*t282*t95+.0059059081777778*t1*t2*t3*t240*t79+32.1646831778707*
1644         t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
1645         t95*t131*t132-.1369866666666666*t1*t2*t3*t103*t130*t131*t132+
1646         2.0*t231*t72*t235*t107-.9999999999999999*t242*t72*t106*t107+
1647         .1424666666666666*t1*t2*t3*t103*t105*t106*t107;
1648     t285 = t81*t83*t84*t90*t284;
1649     t286 = 2.0*t122*t133*t81*t83*t84;
1650     t287 = -8.0*t125*t133*t81*t83*t90;
1651     t288 = 8.0*t127*t133*t81*t84*t90;
1652     t289 = t81*t83*t84*t267*t99;
1653     t290 = -8.0*t122*t125*t81*t83*t99;
1654     t291 = 20.0*t273*t81*t83*t90*t99;
1655     t292 = -32.0*t125*t127*t81*t90*t99;
1656     t293 = 12.0*t275*t81*t84*t90*t99;
1657     t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
1658         rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
1659         t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
1660         t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
1661         t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
1662         t81*t83*t84*t99+.0395035794051304*t81*t128*t86*t90*t93+.0395035794051304*
1663         t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-.0014196384888889*
1664         t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+.1369866666666666*
1665         t1*t2*t3*t50*t54*t55*t12;
1666     t295 = 1/pow(t62,6.0);
1667     t296 = .2032741333333333*t21*t215*t68-0.0099165088*t21*
1668         t215*t60*t67-0.0040495104*t29*t214*t67+1.25393664e-4*t21*t215*
1669         t66*t65+1.344674304e-4*t29*t214*t60*t65-7.26244992e-7*t21*
1670         t215*t64*t63-1.613025792e-6*t29*t214*t66*t63+1.721820672e-9*
1671         t21*t215*t61*t138+8.842604544e-9*t29*t214*t64*t138-1.878349824e-11*
1672         t29*t214*t61*t295;
1673     t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
1674         t118*t258*t82+.4444444444444444*t120*t184*t263+.4444444444444444*
1675         t117*t183*t257;
1676     t298 = 12.0*t275*t84+t274;
1677     t299 = -12.0*t275*t81*t84*t90*t99;
1678     t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
1679         t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
1680         t81*t83*t84*t297*t99+.0197517897025652*t81*t298*t86*t90*t93-
1681         7.324622014701263e-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263e-4*
1682         t81*t1*t2*t3*t103*t128*t90*t93+.0197517897025652*t81*t85*t86*
1683         t297*t93+.0197517897025652*t81*t128*t86*t185*t93-7.324622014701263e-4*
1684         t81*t1*t2*t3*t103*t85*t185*t93+.0197517897025652*t81*t187*
1685         t86*t122*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t122*
1686         t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
1687         t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
1688         .5848223397455204*t81*t187*t109*t86*t110*t90*t111-.5848223397455204*
1689         t81*t128*t109*t86*t110*t90*t111-.5848223397455204*t81*t85*
1690         t109*t86*t110*t185*t111-.5848223397455204*t81*t85*t109*t86*
1691         t110*t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+
1692         t135+t129+t123;
1693     t301 = -0.0040495104*t21*t58*t48*t67*t173+1.344674304e-4*
1694         t21*t58*t48*t60*t65*t173-1.613025792e-6*t21*t58*t48*t66*t63*
1695         t173+8.842604544e-9*t21*t58*t48*t64*t138*t173-1.878349824e-11*
1696         t21*t58*t48*t61*t295*t173;
1697     t302 = pow(grada,11.0);
1698     t303 = 1/pow(rhoa,17.0);
1699     t304 = 0.27808*grada*t32*t48-.5362560000000001*t196*t30*
1700         t47+.9720704000000001*t195*t27*t46-.7185467733333335*t194*
1701         t24*t45+0.193503232*t192*t43*t44-.0169663146666667*t302*t209*
1702         t303;
1703     t305 = .0159402666666667*grada*t40*t48-.0019246762666667*
1704         t196*t39*t47+3.04622592e-5*t195*t38*t46-1.849678506666667e-7*
1705         t194*t37*t45+4.995547136e-10*t192*t56*t44-5.11923541333333e-13*
1706         t302*t223*t303;
1707     t306 = -0.1108768*grada*t48*t68+0.0054090048*grada*t48*
1708         t60*t67+0.0030371328*t196*t47*t67-6.839654399999999e-5*grada*
1709         t48*t66*t65-1.008505728e-4*t196*t47*t60*t65+3.96133632e-7*
1710         grada*t48*t64*t63+1.209769344e-6*t196*t47*t66*t63-9.39174912e-10*
1711         grada*t48*t61*t138-6.631953408000001e-9*t196*t47*t64*t138+
1712         1.408762368e-11*t196*t47*t61*t295;
1713     t307 = 0.0030371328*t21*gradb*t48*t67*t59-1.008505728e-4*
1714         t21*gradb*t48*t60*t65*t59+1.209769344e-6*t21*gradb*t48*t66*
1715         t63*t59-6.631953408000001e-9*t21*gradb*t48*t64*t138*t59+1.408762368e-11*
1716         t21*gradb*t48*t61*t295*t59;
1717     t308 = pow(gradb,12.0);
1718     t309 = 1/pow(t150,6.0);
1719     t310 = 1/pow(rhob,18.0);
1720     t311 = 1/pow(rhob,15.33333333333333);
1721     t312 = 1/pow(rhob,12.66666666666667);
1722     t313 = 1/pow(rhob,10.0);
1723     t314 = 1/pow(rhob,7.333333333333333);
1724     t315 = 1/pow(rhob,4.666666666666667);
1725     t316 = -.5098133333333333*t58*t159*t315+.8351680000000001*
1726         t156*t157*t314-1.442084266666667*t153*t154*t313+1.025982151111111*
1727         t149*t151*t312-.2664874666666667*t167*t168*t311+.0226217528888889*
1728         t308*t309*t310;
1729     t317 = 1/pow(t145,2.0);
1730     t318 = pow(t179,2.0);
1731     t319 = 1/pow(t144,4.0);
1732     t320 = 1/pow(t144,3.0);
1733     t321 = 1/pow(rhob,2.333333333333333);
1734     t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
1735         1.262325*t8*t9/pow(t141,5.0)+.6946333333333333*t4*t5*t6*t59+
1736         2.754533333333333*t1*t2*t3*t321;
1737     t323 = 1/pow(t161,6.0);
1738     t324 = -.0292238222222222*t58*t165*t315+.0030314638222222*
1739         t156*t164*t314-4.445277866666666e-5*t153*t163*t313+2.582354830222222e-7*
1740         t149*t162*t312-6.7887104e-10*t167*t181*t311+6.82564721777778e-13*
1741         t308*t323*t310;
1742     t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
1743         t111;
1744     t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
1745         t111;
1746     t327 = pow(t183,2.0);
1747     t328 = t265+t259;
1748     t329 = pow(t184,2.0);
1749     t330 = t260+t264;
1750     t331 = 1.333333333333333*t121*t330+.4444444444444444*
1751         t263*t329+1.333333333333333*t118*t328+.4444444444444444*t257*
1752         t327;
1753     t332 = .0197517897025652*t81*t85*t86*t331*t93;
1754     t333 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t185*
1755         t93;
1756     t334 = .0395035794051304*t81*t187*t86*t185*t93;
1757     t335 = -.0014649244029403*t81*t1*t2*t3*t103*t187*t90*
1758         t93;
1759     t336 = t276+t274-32.0*t125*t127;
1760     t337 = .0197517897025652*t81*t336*t86*t90*t93;
1761     t338 = 2.0*t133*t185*t81*t83*t84;
1762     t339 = -8.0*t127*t133*t81*t84*t90;
1763     t340 = t81*t83*t84*t331*t99;
1764     t341 = -8.0*t125*t185*t81*t83*t99;
1765     t342 = 32.0*t125*t127*t81*t90*t99;
1766     t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
1767         t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
1768         (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
1769         t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
1770         t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
1771         t90*t99+2.0*t185*t81*t83*t84*t99+.0395035794051304*t81*t187*
1772         t86*t90*t93+.0395035794051304*t81*t85*t86*t185*t93+t230+t229+
1773         t228+t227+t226+t225-2.0*t175*t179*t147*t180-.0014196384888889*
1774         t1*t2*t3*t146*t178+.1369866666666666*t1*t2*t3*t175*t179*t180*
1775         t143;
1776     t344 = .2032741333333333*t58*t68*t315-0.0099165088*t58*
1777         t60*t67*t315+1.25393664e-4*t58*t66*t65*t315-7.26244992e-7*
1778         t58*t64*t63*t315+1.721820672e-9*t58*t61*t138*t315-0.0040495104*
1779         t156*t67*t314+1.344674304e-4*t156*t60*t65*t314-1.613025792e-6*
1780         t156*t66*t63*t314+8.842604544e-9*t156*t64*t138*t314-1.878349824e-11*
1781         t156*t61*t295*t314;
1782     t345 = 0.0030371328*grada*t58*t22*t67*t173-1.008505728e-4*
1783         grada*t58*t22*t60*t65*t173+1.209769344e-6*grada*t58*t22*t66*
1784         t63*t173-6.631953408000001e-9*grada*t58*t22*t64*t138*t173+
1785         1.408762368e-11*grada*t58*t22*t61*t295*t173;
1786     t346 = pow(gradb,11.0);
1787     t347 = 1/pow(rhob,17.0);
1788     t348 = 0.27808*gradb*t159*t173-.5362560000000001*t204*
1789         t157*t172+.9720704000000001*t203*t154*t171-.7185467733333335*
1790         t202*t151*t170+0.193503232*t200*t168*t169-.0169663146666667*
1791         t346*t309*t347;
1792     t349 = .0159402666666667*gradb*t165*t173-.0019246762666667*
1793         t204*t164*t172+3.04622592e-5*t203*t163*t171-1.849678506666667e-7*
1794         t202*t162*t170+4.995547136e-10*t200*t181*t169-5.11923541333333e-13*
1795         t346*t323*t347;
1796     t350 = -0.1108768*gradb*t68*t173+0.0054090048*gradb*t60*
1797         t67*t173-6.839654399999999e-5*gradb*t66*t65*t173+3.96133632e-7*
1798         gradb*t64*t63*t173-9.39174912e-10*gradb*t61*t138*t173+0.0030371328*
1799         t204*t67*t172-1.008505728e-4*t204*t60*t65*t172+1.209769344e-6*
1800         t204*t66*t63*t172-6.631953408000001e-9*t204*t64*t138*t172+
1801         1.408762368e-11*t204*t61*t295*t172;
1802     t351 = 1/pow(rhoa,16.0);
1803     t352 = -0.10428*t32*t22+0.312072*t21*t30*t31-.6195600000000002*
1804         t29*t27*t28+.4879702400000002*t26*t24*t25-0.138765056*t20*
1805         t43*t193+0.012724736*t42*t209*t351;
1806     t353 = -0.0059776*t40*t22+0.0010945856*t21*t39*t31-1.99693696e-5*
1807         t29*t38*t28+1.300171264e-7*t26*t37*t25-3.650674688e-10*t20*
1808         t56*t193+3.83942656e-13*t42*t223*t351;
1809     t354 = 0.0415788*t22*t68-0.0020283768*t22*t60*t67-0.0022778496*
1810         t21*t31*t67+2.5648704e-5*t22*t66*t65+7.563792960000001e-5*
1811         t21*t31*t60*t65-1.48550112e-7*t22*t64*t63-9.073270080000002e-7*
1812         t21*t31*t66*t63+3.52190592e-10*t22*t61*t138+4.973965056000001e-9*
1813         t21*t31*t64*t138-1.056571776e-11*t21*t31*t61*t295;
1814     t355 = -0.0022778496*grada*gradb*t22*t67*t59+7.563792960000001e-5*
1815         grada*gradb*t22*t60*t65*t59-9.073270080000002e-7*grada*gradb*
1816         t22*t66*t63*t59+4.973965056000001e-9*grada*gradb*t22*t64*t138*
1817         t59-1.056571776e-11*grada*gradb*t22*t61*t295*t59;
1818     t356 = 1/pow(rhob,16.0);
1819     t357 = -0.10428*t159*t59+0.312072*t58*t157*t158-.6195600000000002*
1820         t156*t154*t155+.4879702400000002*t153*t151*t152-0.138765056*
1821         t149*t168*t201+0.012724736*t167*t309*t356;
1822     t358 = -0.0059776*t165*t59+0.0010945856*t58*t164*t158-
1823         1.99693696e-5*t156*t163*t155+1.300171264e-7*t153*t162*t152-
1824         3.650674688e-10*t149*t181*t201+3.83942656e-13*t167*t323*t356;
1825     t359 = 0.0415788*
1826         t68*t59-0.0020283768*t60*t67*t59+2.5648704e-5*t66*t65*t59-
1827         1.48550112e-7*t64*t63*t59+3.52190592e-10*t61*t138*t59-0.0022778496*
1828         t58*t67*t158+7.563792960000001e-5*t58*t60*t65*t158-9.073270080000002e-7*
1829         t58*t66*t63*t158+4.973965056000001e-9*t58*t64*t138*t158-1.056571776e-11*
1830         t58*t61*t295*t158;
1831     t360 = pow(grada,14.0);
1832     t361 = 1/pow(t23,7.0);
1833     t362 = 1/pow(rhoa,21.66666666666667);
1834     t363 = 1/pow(rhoa,19.0);
1835     t364 = 1/pow(rhoa,16.33333333333333);
1836     t365 = 1/pow(rhoa,13.66666666666667);
1837     t366 = 1/pow(rhoa,11.0);
1838     t367 = 1/pow(rhoa,8.333333333333334);
1839     t368 = 1/pow(rhoa,5.666666666666667);
1840     t369 = 1/pow(t18,3.0);
1841     t370 = pow(t54,3.0);
1842     t371 = 1/pow(t17,6.0);
1843     t372 = 1/pow(t17,5.0);
1844     t373 = -6.427244444444445*t1*t2*t3/pow(rhoa,3.333333333333333)-
1845         5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
1846         3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48;
1847     t374 = 1/
1848         pow(t36,7.0);
1849     t375 = 48.2454729664533*t231*t72*t232*t233;
1850     t376 = -6.0*t231*t72*t235*t107;
1851     t377 = -.4273999999999999*t1*t2*t3*t103*t105*t106*t107;
1852     t378 = 3.0*
1853         t242*t72*t106*t107;
1854     t379 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
1855     t380 = 3.508934038473122*
1856         t81*t85*t244*t86*t249*t90*t111;
1857     t381 = .1301229705933783*t81*t1*t2*t3*t103*t85*t109*t110*
1858         t90*t111;
1859     t382 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
1860     t383 = -
1861         .0177177245333333*t1*t2*t3*t240*t79;
1862     t384 = .0029298488058805*t81*t1*t2*t3*t240*t85*t90*t93;
1863     t385 = 3.0*
1864         t284*t81*t83*t84*t90;
1865     t386 = -24.0*t125*t133*t81*t83*t90;
1866     t387 = 60.0*t273*t81*t83*t90*t99;
1867     t388 = 36.0*t275*t81*t84*t90*t99;
1868     t389 = pow(t105,3.0);
1869     t390 = 1/pow(t77,6.0);
1870     t391 = 1/pow(t78,3.0);
1871     t392 = 517.2501470570614*t389*t72*t390*t391;
1872     t393 = 1/pow(t77,5.0);
1873     t394 = -96.4909459329066*t389*t72*t393*t233;
1874     t395 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
1875     t396 = 48.2454729664533*
1876         t242*t105*t72*t232*t233;
1877     t397 = 6.0*t389*t72*t232*t107;
1878     t398 = .4273999999999999*t1*t2*t3*t103*t231*t235*t107;
1879     t399 = -
1880         6.0*t242*t105*t72*t235*t107;
1881     t400 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
1882     t401 = .2849333333333333*t1*t2*t3*t240*t105*t106*t107;
1883     t402 = 1/
1884         pow(t70,3.666666666666667);
1885     t403 = 1/pow(t74,7.0);
1886     t404 = 1/pow(t70,3.333333333333333);
1887     t405 = 1/pow(t70,3.166666666666667);
1888     t406 = -3.200040277777777*t14*t15*t16*t405-3.720474074074074*
1889         t1*t2*t3*t404-1.5358125*t8*t9*t403-1.460562962962963*t4*t5*
1890         t6*t402;
1891     t407 = .9999999999999999*t406*t72*t106*t107;
1892     t408 = pow(t109,3.0);
1893     t409 = -1025.38970210078*t408*t81*t85*t86*t90/(pow(t91,
1894         6.0)*pow(t92,3.0));
1895     t410 = 103.8945353962552*t246*t408*t81*t85*t86*t90/pow(t91,
1896         5.0);
1897     t411 = 1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*
1898         t90*t246;
1899     t412 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
1900         t246;
1901     t413 = -3.508934038473122*t81*t85*t408*t86*t245*t90*t111;
1902     t414 = -
1903         .1301229705933783*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
1904     t415 = 3.508934038473122*
1905         t81*t85*t252*t109*t86*t249*t90*t111;
1906     t416 = .0650614852966891*t81*t1*t2*t3*t103*t85*t252*t110*
1907         t90*t111;
1908     t417 = -.0867486470622522*t81*t1*t2*t3*t240*t85*t109*
1909         t110*t90*t111;
1910     t418 = -.5848223397455204*t81*t85*(-4.36336574074074*
1911         t14*t15*t16*t405-3.757288888888889*t1*t2*t3*t404-0.82524375*
1912         t8*t9*t403-1.471733333333333*t4*t5*t6*t402)*t86*t110*t90*t111;
1913     t419 = .0137804524148148*
1914         t1*t2*t3*t404*t79;
1915     t420 = 1/pow(t88,1.666666666666667);
1916     t421 = 6.0*t82*t84;
1917     t422 = -6.0*t258;
1918     t423 = 1/pow(t89,1.666666666666667);
1919     t424 = -6.0*t82*t84;
1920     t425 = 6.0*t258;
1921     t426 = 1.333333333333333*t121*(t425+t424)-.2962962962962963*
1922         pow(t120,3.0)*t423+1.333333333333333*t118*(t422+t421)-.2962962962962963*
1923         pow(t117,3.0)*t420+1.333333333333333*t120*t263*t266+1.333333333333333*
1924         t117*t257*t261;
1925     t427 = -.0022787712934626*t81*t1*t2*t3*t404*t85*t90*t93;
1926     t428 = 1/
1927         pow(t70,7.0);
1928     t429 = 120.0*t428*t83;
1929     t430 = 144.0*t125*t275;
1930     t431 = -24.0*t82*t84;
1931     t432 = pow(t130,3.0);
1932     t433 = t81*t83*t84*t90*(.0066249796148148*t1*t2*t3*t404*
1933         t98+2069.133687865597*t432*t95/(pow(t96,6.0)*pow(t97,3.0))-
1934         192.9880990672242*t281*t432*t95/pow(t96,5.0)+6.0*t132*t280*
1935         t432*t95-6.0*t130*t132*t282*t283*t95-.0137804524148148*t1*
1936         t2*t3*t404*t79-517.2501470570614*t389*t72*t390*t391+96.4940495336121*
1937         t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
1938         t280*t281+96.4909459329066*t389*t72*t393*t233-48.2454729664533*
1939         t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
1940         t232*t233+.4109599999999999*t1*t2*t3*t103*t279*t282*t132+(-
1941         5.948240277777777*t14*t15*t16*t405-6.427244444444445*t1*t2*
1942         t3*t404-3.1558125*t8*t9*t403-1.852355555555556*t4*t5*t6*t402)*
1943         t95*t131*t132-0.20548*t1*t2*t3*t103*t283*t131*t132+.2739733333333333*
1944         t1*t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-.4273999999999999*
1945         t1*t2*t3*t103*t231*t235*t107-6.0*t389*t72*t232*t107-.9999999999999999*
1946         t406*t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-.2849333333333333*
1947         t1*t2*t3*t240*t105*t106*t107);
1948     t434 = -12.0*t125*t284*t81*t83*t90;
1949     t435 = 60.0*t133*t273*t81*t83*t90;
1950     t436 = 36.0*t133*t275*t81*t84*t90;
1951     t437 = -120.0*t428*t81*t83*t90*t99;
1952     t438 = -144.0*t125*t275*t81*t90*t99;
1953     t439 = 24.0*t81*t82*t84*t90*t99;
1954     t440 = 1/pow(t62,7.0);
1955     t441 = .0395035794051304*t81*t85*t86*t297*t93;
1956     t442 = .0395035794051304*t81*t128*t86*t185*t93;
1957     t443 = .0395035794051304*t81*t187*t86*t122*t93;
1958     t444 = .0395035794051304*t81*t298*t86*t90*t93;
1959     t445 = 2.0*t297*t81*t83*t84*t99;
1960     t446 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
1961         t111;
1962     t447 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
1963         t111;
1964     t448 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
1965         t111;
1966     t449 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
1967         t111;
1968     t450 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t297*
1969         t93;
1970     t451 = 1.777777777777778*t120*t258*t263*t82-1.777777777777778*
1971         t117*t257*t258*t82+1.333333333333333*t121*(t424+2.0*t258)-
1972         .2962962962962963*t184*t262*t423+1.333333333333333*t118*(t421-
1973         2.0*t258)-.2962962962962963*t183*t256*t420+.4444444444444444*
1974         t184*t263*t266+.4444444444444444*t183*t257*t261;
1975     t452 = -.0014649244029403*t81*t1*t2*t3*t103*t128*t185*
1976         t93;
1977     t453 = -.0014649244029403*t81*t1*t2*t3*t103*t187*t122*
1978         t93;
1979     t454 = -.0014649244029403*t81*t1*t2*t3*t103*t298*t90*
1980         t93;
1981     t455 = -48.0*t125*t275;
1982     t456 = 24.0*t82*t84;
1983     t457 = 2.0*t133*t297*t81*t83*t84;
1984     t458 = -12.0*t133*t275*t81*t84*t90;
1985     t459 = -8.0*t125*t297*t81*t83*t99;
1986     t460 = 48.0*t125*t275*t81*t90*t99;
1987     t461 = -24.0*t81*t82*t84*t90*t99;
1988     t462 = pow(grada,13.0);
1989     t463 = 1/pow(rhoa,20.66666666666667);
1990     t464 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
1991         t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-.2962962962962963*
1992         t120*t329*t423-.2962962962962963*t117*t327*t420+.4444444444444444*
1993         t120*t263*t330+.4444444444444444*t117*t257*t328-2.666666666666667*
1994         t121*t258+2.666666666666667*t118*t258;
1995     t465 = 1/pow(rhoa,19.66666666666667);
1996     t466 = pow(gradb,14.0);
1997     t467 = 1/pow(t150,7.0);
1998     t468 = 1/pow(rhob,21.66666666666667);
1999     t469 = 1/pow(rhob,19.0);
2000     t470 = 1/pow(rhob,16.33333333333333);
2001     t471 = 1/pow(rhob,13.66666666666667);
2002     t472 = 1/pow(rhob,11.0);
2003     t473 = 1/pow(rhob,8.333333333333334);
2004     t474 = 1/pow(rhob,5.666666666666667);
2005     t475 = 1/pow(t145,3.0);
2006     t476 = pow(t179,3.0);
2007     t477 = 1/pow(t144,6.0);
2008     t478 = 1/pow(t144,5.0);
2009     t479 = -6.427244444444445*t1*t2*t3/pow(rhob,3.333333333333333)-
2010         5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
2011         3.1558125*t8*t9/pow(t141,7.0)-1.852355555555556*t4*t5*t6*t173;
2012     t480 = 1/
2013         pow(t161,7.0);
2014     t481 = 1.333333333333333*t118*(t425+t421)-.2962962962962963*
2015         pow(t184,3.0)*t423+1.333333333333333*t121*(t422+t424)-.2962962962962963*
2016         pow(t183,3.0)*t420+1.333333333333333*t184*t263*t330+1.333333333333333*
2017         t183*t257*t328;
2018     t482 = pow(gradb,13.0);
2019     t483 = 1/pow(rhob,20.66666666666667);
2020     t484 = 1/pow(rhob,19.66666666666667);
2021     t485 = 1/pow(rhoa,18.66666666666667);
2022     t486 = 1/pow(rhob,18.66666666666667);
2023 
2024    /* code */
2025     dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
2026         rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
2027         t34+t139*t148+t69*t137+.0021294577333333*t1*t2*t3*t19*t33*
2028         t12;
2029     dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
2030         t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
2031         t191*t148-0.03109*t146*t160*t147+.0021294577333333*t1*t2*t3*
2032         t146*t160*t143;
2033     dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
2034         t199*t148;
2035     dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
2036         t35+t207*t148;
2037     dfdgab = 0.0;
2038     d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
2039         t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
2040         t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-.3333333333333333*
2041         t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+.0014196384888889*
2042         t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
2043         t34+t69*t294+t296*t148+2.0*t137*t139-.1369866666666666*t1*
2044         t2*t3*t50*t33*t54*t55*t12+.0042589154666667*t1*t2*t3*t19*t49*
2045         t12;
2046     d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
2047     d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
2048         t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
2049         t19*t197*t34+t306*t148+t199*t137+.0021294577333333*t1*t2*t3*
2050         t19*t197*t12;
2051     d2fdragb = t307*t148+t207*t137;
2052     d2fdraab = 0.0;
2053     d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
2054         t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
2055         rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
2056         rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-.3333333333333333*
2057         t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
2058         t179*t180+.0014196384888889*t1*t2*t3*t146*t160*t178+t344*t148-
2059         0.06218*t146*t174*t147-.1369866666666666*t1*t2*t3*t175*t160*
2060         t179*t180*t143+.0042589154666667*t1*t2*t3*t146*t174*t143;
2061     d2fdrbga = t345*
2062         t148+t199*t190;
2063     d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
2064         t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
2065         t207*t190+t350*t148-0.03109*t146*t205*t147+.0021294577333333*
2066         t1*t2*t3*t146*t205*t143;
2067     d2fdrbgab = 0.0;
2068     d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
2069         t52+t354*t148;
2070     d2fdgagb = t355*t148;
2071     d2fdgagab = 0.0;
2072     d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
2073         t35*t358+t359*t148;
2074     d2fdgbgab = 0.0;
2075     d2fdgabgab = 0.0;
2076     d3fdrarara = t69*(-1.0*t50*t373*t34*t55*rhoa+192.9880990672242*
2077         t217*t370*t34*t372*rhoa-2069.133687865597*t369*t370*t34*t371*
2078         rhoa+6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*
2079         t222*t54*t34*t219*rhoa-6.0*t50*t370*t34*t219*rhoa+t70*(240.0*
2080         t127*t273*t81*t90*t99+36.0*t122*t275*t81*t84*t99+12.0*t127*
2081         t267*t81*t84*t99+60.0*t122*t273*t81*t83*t99-12.0*t125*t267*
2082         t81*t83*t99-96.0*t122*t125*t127*t81*t99+t81*t83*t84*t426*t99+
2083         .0197517897025652*(t431+t430+t429-240.0*t127*t273)*t81*t86*
2084         t90*t93-.0021973866044104*t81*t1*t2*t3*t103*t277*t90*t93+.0029298488058805*
2085         t81*t1*t2*t3*t240*t128*t90*t93+.0197517897025652*t81*t85*t86*
2086         t426*t93+.0592553691076956*t81*t128*t86*t267*t93-.0021973866044104*
2087         t81*t1*t2*t3*t103*t85*t267*t93+.0592553691076956*t81*t277*
2088         t86*t122*t93+.0029298488058805*t81*t1*t2*t3*t240*t85*t122*
2089         t93-.0043947732088208*t81*t1*t2*t3*t103*t128*t122*t93+12.0*
2090         t127*t284*t81*t84*t90-96.0*t125*t127*t133*t81*t90+3.0*t122*
2091         t284*t81*t83*t84+3.0*t133*t267*t81*t83*t84+24.0*t122*t127*
2092         t133*t81*t84-24.0*t122*t125*t133*t81*t83+t439+t438+t437+t436+
2093         t435+t434+t433+t427+t419+t418+t417+t416+t415+t414+t413+t412+
2094         t411+t410+t409+t407+t401+t400+t399+t398+t397+t396+t395+t394+
2095         t392-51.9472676981276*t81*t128*t244*t86*t245*t90*t246-51.9472676981276*
2096         t81*t85*t244*t86*t245*t122*t246+3.508934038473122*t81*t128*
2097         t244*t86*t249*t90*t111-1.754467019236561*t81*t128*t252*t86*
2098         t110*t90*t111-1.754467019236561*t81*t277*t109*t86*t110*t90*
2099         t111+.1301229705933783*t81*t1*t2*t3*t103*t128*t109*t110*t90*
2100         t111-1.754467019236561*t81*t85*t109*t86*t110*t267*t111+3.508934038473122*
2101         t81*t85*t244*t86*t249*t122*t111-1.754467019236561*t81*t85*
2102         t252*t86*t110*t122*t111-3.508934038473122*t81*t128*t109*t86*
2103         t110*t122*t111+.1301229705933783*t81*t1*t2*t3*t103*t85*t109*
2104         t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*t81*t83*
2105         t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*t81*t83*
2106         t99+.0592553691076956*t81*t277*t86*t90*t93-.0043947732088208*
2107         t81*t1*t2*t3*t103*t128*t90*t93+.0592553691076956*t81*t85*t86*
2108         t267*t93+.1185107382153912*t81*t128*t86*t122*t93-.0043947732088208*
2109         t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
2110         6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+.1369866666666666*
2111         t1*t2*t3*t50*t54*t55*t53+t388+t387+t386+t385+t384+t383+t382+
2112         t381+t380+t379+t378+t377+t376+t375+.0018928513185185*t1*t2*
2113         t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
2114         t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-.4109599999999999*
2115         t1*t2*t3*t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*
2116         t218*t219*t12-3.508934038473122*t81*t128*t109*t86*t110*t90*
2117         t111-3.508934038473122*t81*t85*t109*t86*t110*t122*t111)+3.0*
2118         t216*t34*t50*t54*t55*rhoa+3.0*t222*t34*t49*t50*t55*rhoa+t50*
2119         t373*t33*t34*t55*rhoa-6.0*t220*t222*t33*t34*t50*t54*rhoa-6.0*
2120         t218*t220*t34*t49*t50*rhoa+6.0*t219*t33*t34*t370*t50*rhoa-
2121         192.9880990672242*t217*t33*t370*t34*t372*rhoa+2069.133687865597*
2122         t369*t33*t370*t34*t371*rhoa-0.03109*t19*(2.379128888888889*
2123         t21*t32*t368-6.396465777777778*t29*t30*t367+15.31168853333334*
2124         t26*t27*t366-15.30310874074074*t20*t24*t365+6.274903077925926*
2125         t42*t43*t364-1.117824796444445*t208*t209*t363+.0723896092444445*
2126         t360*t361*t362)*t34*rhoa+96.4940495336121*t217*t33*t222*t54*
2127         t34*t219*rhoa+96.4940495336121*t217*t49*t218*t34*t219*rhoa-
2128         1.0*t3*t35*t57*t7+3.0*t222*t33*t34*t50*t55+6.0*t50*t49*t54*
2129         t34*t55-.1369866666666666*t1*t2*t3*t50*t33*t54*t55*t53+.0042589154666667*
2130         t1*t2*t3*t19*t49*t53-0.75*t3*t35*(0.136377837037037*t21*t40*
2131         t368-.0225424554666667*t29*t39*t367+5.091990148740739e-4*t26*
2132         t38*t366-4.693471702281481e-6*t20*t37*t365+2.142740322228149e-8*
2133         t42*t56*t364-4.84926204586667e-11*t208*t223*t363+4.36841421937778e-14*
2134         t360*t374*t362)*t52+.2222222222222222*t3*t35*t41*t51-6.0*t218*
2135         t220*t33*t34*t50-3.0*t11*t224*t3*t35-0.09327*t19*t216*t34+
2136         3.0*t137*t296+3.0*t139*t294-.0018928513185185*t1*t2*t3*t19*
2137         t33*t221+96.4940495336121*t217*t33*t218*t34*t219+(-.9486126222222223*
2138         t21*t368*t68+.0462770410666667*t21*t368*t60*t67+0.0445446144*
2139         t29*t367*t67-5.85170432e-4*t21*t368*t66*t65-0.0014791417344*
2140         t29*t367*t60*t65-2.440820736e-4*t26*t366*t65+3.389143296000001e-6*
2141         t21*t368*t64*t63+1.7743283712e-5*t29*t367*t66*t63+7.5286204416e-6*
2142         t26*t366*t60*t63-8.035163136e-9*t21*t368*t61*t138-9.726864998400001e-8*
2143         t29*t367*t64*t138-8.698724352e-8*t26*t366*t66*t138+2.0661848064e-10*
2144         t29*t367*t61*t295+4.5388283904e-10*t26*t366*t64*t295-9.0160791552e-13*
2145         t26*t366*t61*t440)*t148-.4109599999999999*t1*t2*t3*t50*t49*
2146         t54*t55*t12-0.20548*t1*t2*t3*t50*t33*t222*t55*t12+.4109599999999999*
2147         t1*t2*t3*t50*t33*t218*t220*t12-6.60919909938887*t1*t2*t3*t217*
2148         t33*t218*t219*t12+0.0063883732*t1*t2*t3*t19*t216*t12;
2149     d3fdrararb = t69*(t70*(80.0*t127*t273*t81*t90*t99+8.0*
2150         t127*t297*t81*t84*t99+12.0*t185*t275*t81*t84*t99-24.0*t122*
2151         t275*t81*t84*t99-4.0*t127*t267*t81*t84*t99+20.0*t185*t273*
2152         t81*t83*t99+40.0*t122*t273*t81*t83*t99-4.0*t125*t267*t81*t83*
2153         t99-32.0*t125*t127*t185*t81*t99+t81*t83*t84*t451*t99+.0197517897025652*
2154         (t456+t455+t429-80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263e-4*
2155         t81*t1*t2*t3*t103*t277*t90*t93+9.766162686268349e-4*t81*t1*
2156         t2*t3*t240*t187*t90*t93+.0019532325372537*t81*t1*t2*t3*t240*
2157         t128*t90*t93+.0197517897025652*t81*t85*t86*t451*t93+.0395035794051304*
2158         t81*t128*t86*t297*t93+.0197517897025652*t81*t187*t86*t267*
2159         t93-7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t267*t93+.0197517897025652*
2160         t81*t277*t86*t185*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
2161         t85*t185*t93+.0395035794051304*t81*t298*t86*t122*t93+.0019532325372537*
2162         t81*t1*t2*t3*t240*t85*t122*t93-.0014649244029403*t81*t1*t2*
2163         t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
2164         t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
2165         t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
2166         t81*t83+t461+t460+t459+t458+t457+t454+t453+t452+t450+t449+
2167         t448+t447+t446+t437+t435+t434+t433+t427+t419+t418+t417+t416+
2168         t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+t398+
2169         t397+t396+t395+t394+t392+t81*t83*t84*t185*t284-17.31575589937587*
2170         t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
2171         t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
2172         t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
2173         t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
2174         t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
2175         t90*t111-.5848223397455204*t81*t187*t252*t86*t110*t90*t111-
2176         1.169644679491041*t81*t128*t252*t86*t110*t90*t111-.5848223397455204*
2177         t81*t277*t109*t86*t110*t90*t111+.0433743235311261*t81*t1*t2*
2178         t3*t103*t187*t109*t110*t90*t111+.0867486470622522*t81*t1*t2*
2179         t3*t103*t128*t109*t110*t90*t111-.5848223397455204*t81*t85*
2180         t109*t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*
2181         t249*t185*t111-.5848223397455204*t81*t85*t252*t86*t110*t185*
2182         t111+.0433743235311261*t81*t1*t2*t3*t103*t85*t109*t110*t185*
2183         t111+2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
2184         t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
2185         t109*t86*t110*t122*t111+.0867486470622522*t81*t1*t2*t3*t103*
2186         t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
2187         t125*t81*t83*t99-.0029298488058805*t81*t1*t2*t3*t103*t128*
2188         t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
2189         t122*t133*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+
2190         t384+t383+t382+t381+t380+t379+t378+t377+t376+t375+t341+t338+
2191         t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
2192         t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
2193         t109*t86*t110*t122*t111)+2.0*t137*t301+2.0*t139*t300+t191*
2194         t294+t296*t190+(0.0148482048*t21*t58*t215*t67*t173-4.930472448e-4*
2195         t21*t58*t215*t60*t65*t173-2.440820736e-4*t29*t58*t214*t65*
2196         t173+5.914427903999999e-6*t21*t58*t215*t66*t63*t173+7.5286204416e-6*
2197         t29*t58*t214*t60*t63*t173-3.2422883328e-8*t21*t58*t215*t64*
2198         t138*t173-8.698724352e-8*t29*t58*t214*t66*t138*t173+6.887282688e-11*
2199         t21*t58*t215*t61*t295*t173+4.5388283904e-10*t29*t58*t214*t64*
2200         t295*t173-9.0160791552e-13*t29*t58*t214*t61*t440*t173)*t148;
2201     d3fdraraga = 2.0*
2202         t304*t34*t50*t54*t55*rhoa+t50*t197*t222*t34*t55*rhoa-2.0*t197*
2203         t218*t220*t34*t50*rhoa-0.03109*t19*(-1.019626666666667*grada*
2204         t32*t215+3.544597333333334*t196*t30*t214-9.320640000000001*
2205         t195*t27*t213+9.938358328888892*t194*t24*t212-4.306446108444446*
2206         t192*t43*t211+.8044359680000001*t302*t209*t210-.0542922069333334*
2207         t462*t361*t463)*t34*rhoa+32.1646831778707*t217*t197*t218*t34*
2208         t219*rhoa-.3333333333333333*t198*t3*t35*t7+2.0*t197*t34*t50*
2209         t54*t55+.0014196384888889*t1*t2*t3*t19*t197*t53-0.75*(-.0584476444444444*
2210         grada*t40*t215+.0123596458666667*t196*t39*t214-3.152200931555555e-4*
2211         t195*t38*t213+3.132750552177778e-6*t194*t37*t212-1.505224585671111e-8*
2212         t192*t56*t211+3.53456182613333e-11*t302*t223*t210-3.27631066453333e-14*
2213         t462*t374*t463)*t3*t35*t52-2.0*t11*t3*t305*t35-0.06218*t19*
2214         t304*t34+2.0*t137*t306+t199*t294+(.4065482666666667*grada*
2215         t215*t68-0.0198330176*grada*t215*t60*t67-0.0273341952*t196*
2216         t214*t67+2.50787328e-4*grada*t215*t66*t65+9.076551552e-4*t196*
2217         t214*t60*t65+1.830615552e-4*t195*t213*t65-1.452489984e-6*grada*
2218         t215*t64*t63-1.0887924096e-5*t196*t214*t66*t63-5.6464653312e-6*
2219         t195*t213*t60*t63+3.443641344e-9*grada*t215*t61*t138+5.968758067200001e-8*
2220         t196*t214*t64*t138+6.524043264e-8*t195*t213*t66*t138-1.2678861312e-10*
2221         t196*t214*t61*t295-3.4041212928e-10*t195*t213*t64*t295+6.7620593664e-13*
2222         t195*t213*t61*t440)*t148-.1369866666666666*t1*t2*t3*t50*t197*
2223         t54*t55*t12+.0042589154666667*t1*t2*t3*t19*t304*t12;
2224     d3fdraragb = 2.0*t137*t307+t207*t294+(-0.0111361536*t21*
2225         gradb*t215*t67*t59+3.697854336e-4*t21*gradb*t215*t60*t65*t59+
2226         1.830615552e-4*t29*gradb*t214*t65*t59-4.435820928e-6*t21*gradb*
2227         t215*t66*t63*t59-5.6464653312e-6*t29*gradb*t214*t60*t63*t59+
2228         2.431716249600001e-8*t21*gradb*t215*t64*t138*t59+6.524043264e-8*
2229         t29*gradb*t214*t66*t138*t59-5.165462016e-11*t21*gradb*t215*
2230         t61*t295*t59-3.4041212928e-10*t29*gradb*t214*t64*t295*t59+
2231         6.7620593664e-13*t29*gradb*t214*t61*t440*t59)*t148;
2232     d3fdraraab = 0.0;
2233     d3fdrarbrb = t69*(t70*(-80.0*t127*t273*t81*t90*t99+4.0*
2234         t127*t331*t81*t84*t99-8.0*t127*t297*t81*t84*t99-24.0*t185*
2235         t275*t81*t84*t99+12.0*t122*t275*t81*t84*t99-4.0*t125*t331*
2236         t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*t122*t273*t81*
2237         t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*t84*t464*t99+.0197517897025652*
2238         (t455+t431+t429+80.0*t127*t273)*t81*t86*t90*t93-7.324622014701263e-4*
2239         t81*t1*t2*t3*t103*t336*t90*t93+.0019532325372537*t81*t1*t2*
2240         t3*t240*t187*t90*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
2241         t128*t90*t93+.0197517897025652*t81*t85*t86*t464*t93+.0197517897025652*
2242         t81*t128*t86*t331*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*
2243         t85*t331*t93+.0395035794051304*t81*t187*t86*t297*t93+.0395035794051304*
2244         t81*t298*t86*t185*t93+.0019532325372537*t81*t1*t2*t3*t240*
2245         t85*t185*t93-.0014649244029403*t81*t1*t2*t3*t103*t187*t185*
2246         t93+.0197517897025652*t81*t336*t86*t122*t93+9.766162686268349e-4*
2247         t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
2248         t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
2249         t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
2250         t133*t81*t83+t460+t459+t458+t457+t454+t453+t452+t450+t449+
2251         t448+t447+t446+t439+t437+t435+t434+t433+t427+t419+t418+t417+
2252         t416+t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+t399+
2253         t398+t397+t396+t395+t394+t392+t81*t83*t84*t122*t284-34.63151179875173*
2254         t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
2255         t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
2256         t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
2257         t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
2258         t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
2259         t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
2260         .5848223397455204*t81*t128*t252*t86*t110*t90*t111-.5848223397455204*
2261         t81*t336*t109*t86*t110*t90*t111+.0867486470622522*t81*t1*t2*
2262         t3*t103*t187*t109*t110*t90*t111+.0433743235311261*t81*t1*t2*
2263         t3*t103*t128*t109*t110*t90*t111-.5848223397455204*t81*t85*
2264         t109*t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*
2265         t249*t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*
2266         t111-1.169644679491041*t81*t187*t109*t86*t110*t185*t111+.0867486470622522*
2267         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
2268         t81*t85*t244*t86*t249*t122*t111-.5848223397455204*t81*t85*
2269         t252*t86*t110*t122*t111+.0433743235311261*t81*t1*t2*t3*t103*
2270         t85*t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*
2271         t185*t81*t83*t99-.0029298488058805*t81*t1*t2*t3*t103*t187*
2272         t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t85*t185*t93+4.0*
2273         t133*t185*t81*t83*t84+t445+t444+t443+t442+t441+t387+t386+t385+
2274         t384+t383+t382+t381+t380+t379+t378+t377+t376+t375+t342+t340+
2275         t339+t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
2276         t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
2277         t109*t86*t110*t185*t111)+t139*t343+2.0*t190*t301+2.0*t191*
2278         t300+(0.0148482048*t21*t58*t48*t67*t315-4.930472448e-4*t21*
2279         t58*t48*t60*t65*t315+5.914427903999999e-6*t21*t58*t48*t66*
2280         t63*t315-3.2422883328e-8*t21*t58*t48*t64*t138*t315+6.887282688e-11*
2281         t21*t58*t48*t61*t295*t315-2.440820736e-4*t21*t156*t48*t65*
2282         t314+7.5286204416e-6*t21*t156*t48*t60*t63*t314-8.698724352e-8*
2283         t21*t156*t48*t66*t138*t314+4.5388283904e-10*t21*t156*t48*t64*
2284         t295*t314-9.0160791552e-13*t21*t156*t48*t61*t440*t314)*t148+
2285         t344*t137;
2286     d3fdrarbga = (-0.0080990208*grada*t58*t48*t67*t173+2.689348608e-4*
2287         grada*t58*t48*t60*t65*t173+1.830615552e-4*t196*t58*t47*t65*
2288         t173-3.226051584e-6*grada*t58*t48*t66*t63*t173-5.6464653312e-6*
2289         t196*t58*t47*t60*t63*t173+1.7685209088e-8*grada*t58*t48*t64*
2290         t138*t173+6.524043264e-8*t196*t58*t47*t66*t138*t173-3.756699648e-11*
2291         grada*t58*t48*t61*t295*t173-3.4041212928e-10*t196*t58*t47*
2292         t64*t295*t173+6.7620593664e-13*t196*t58*t47*t61*t440*t173)*
2293         t148+t345*t137+t306*t190+t199*t300;
2294     d3fdrarbgb = (-0.0080990208*t21*gradb*t48*t67*t173+2.689348608e-4*
2295         t21*gradb*t48*t60*t65*t173-3.226051584e-6*t21*gradb*t48*t66*
2296         t63*t173+1.7685209088e-8*t21*gradb*t48*t64*t138*t173-3.756699648e-11*
2297         t21*gradb*t48*t61*t295*t173+1.830615552e-4*t21*t204*t48*t65*
2298         t172-5.6464653312e-6*t21*t204*t48*t60*t63*t172+6.524043264e-8*
2299         t21*t204*t48*t66*t138*t172-3.4041212928e-10*t21*t204*t48*t64*
2300         t295*t172+6.7620593664e-13*t21*t204*t48*t61*t440*t172)*t148+
2301         t350*t137+t307*t190+t207*t300;
2302     d3fdrarbab = 0.0;
2303     d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*(0.27808*
2304         t32*t48-1.72*t21*t30*t47+5.289356800000001*t29*t27*t46-6.196311893333335*
2305         t26*t24*t45+2.891203925333334*t20*t43*t44-.5736359253333334*
2306         t42*t209*t303+0.0407191552*t208*t361*t465)*t34*rhoa-0.75*t3*
2307         t35*(.0159402666666667*t40*t48-.0059015509333333*t21*t39*t47+
2308         1.831061162666666e-4*t29*t38*t46-2.025869175466667e-6*t26*
2309         t37*t45+1.041496364373334e-8*t20*t56*t44-2.56133474986667e-11*
2310         t42*t223*t303+2.4572329984e-14*t208*t374*t465)*t52-1.0*t11*
2311         t3*t35*t353-0.03109*t19*t352*t34+(-0.1108768*t48*t68+0.0054090048*
2312         t48*t60*t67+0.015185664*t21*t47*t67-6.839654399999999e-5*t48*
2313         t66*t65-5.04252864e-4*t21*t47*t60*t65-1.372961664e-4*t29*t46*
2314         t65+3.96133632e-7*t48*t64*t63+6.04884672e-6*t21*t47*t66*t63+
2315         4.2348489984e-6*t29*t46*t60*t63-9.39174912e-10*t48*t61*t138-
2316         3.315976704e-8*t21*t47*t64*t138-4.893032448e-8*t29*t46*t66*
2317         t138+7.04381184e-11*t21*t47*t61*t295+2.5530909696e-10*t29*
2318         t46*t64*t295-5.0715445248e-13*t29*t46*t61*t440)*t148+t354*
2319         t137+.0021294577333333*t1*t2*t3*t19*t352*t12;
2320     d3fdragagb = (0.0060742656*grada*gradb*t48*t67*t59-2.017011456e-4*
2321         grada*gradb*t48*t60*t65*t59-1.372961664e-4*t196*gradb*t47*
2322         t65*t59+2.419538688e-6*grada*gradb*t48*t66*t63*t59+4.2348489984e-6*
2323         t196*gradb*t47*t60*t63*t59-1.3263906816e-8*grada*gradb*t48*
2324         t64*t138*t59-4.893032448e-8*t196*gradb*t47*t66*t138*t59+2.817524736e-11*
2325         grada*gradb*t48*t61*t295*t59+2.5530909696e-10*t196*gradb*t47*
2326         t64*t295*t59-5.0715445248e-13*t196*gradb*t47*t61*t440*t59)*
2327         t148+t355*t137;
2328     d3fdragaab = 0.0;
2329     d3fdragbgb = (0.0030371328*t21*t48*t67*t59-1.008505728e-4*
2330         t21*t48*t60*t65*t59+1.209769344e-6*t21*t48*t66*t63*t59-6.631953408000001e-9*
2331         t21*t48*t64*t138*t59+1.408762368e-11*t21*t48*t61*t295*t59-
2332         1.372961664e-4*t21*t58*t48*t65*t158+4.2348489984e-6*t21*t58*
2333         t48*t60*t63*t158-4.893032448e-8*t21*t58*t48*t66*t138*t158+
2334         2.5530909696e-10*t21*t58*t48*t64*t295*t158-5.0715445248e-13*
2335         t21*t58*t48*t61*t440*t158)*t148+t359*t137;
2336     d3fdragbab = 0.0;
2337     d3fdraabab = 0.0;
2338     d3fdrbrbrb = t69*(192.9880990672242*t317*t476*t147*t478*
2339         rhob-2069.133687865597*t475*t476*t147*t477*rhob+6.0*t175*t322*
2340         t179*t147*t320*rhob-6.0*t175*t476*t147*t319*rhob-96.4940495336121*
2341         t317*t322*t179*t147*t319*rhob-1.0*t175*t479*t147*t180*rhob+
2342         t70*(-240.0*t127*t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99+
2343         36.0*t185*t275*t81*t84*t99-12.0*t125*t331*t81*t83*t99+60.0*
2344         t185*t273*t81*t83*t99+96.0*t125*t127*t185*t81*t99+t81*t83*
2345         t84*t481*t99+.0197517897025652*(t456+t430+t429+240.0*t127*
2346         t273)*t81*t86*t90*t93-.0021973866044104*t81*t1*t2*t3*t103*
2347         t336*t90*t93+.0029298488058805*t81*t1*t2*t3*t240*t187*t90*
2348         t93+.0197517897025652*t81*t85*t86*t481*t93+.0592553691076956*
2349         t81*t187*t86*t331*t93-.0021973866044104*t81*t1*t2*t3*t103*
2350         t85*t331*t93+.0592553691076956*t81*t336*t86*t185*t93+.0029298488058805*
2351         t81*t1*t2*t3*t240*t85*t185*t93-.0043947732088208*t81*t1*t2*
2352         t3*t103*t187*t185*t93-12.0*t127*t284*t81*t84*t90+96.0*t125*
2353         t127*t133*t81*t90+3.0*t133*t331*t81*t83*t84+3.0*t185*t284*
2354         t81*t83*t84-24.0*t127*t133*t185*t81*t84-24.0*t125*t133*t185*
2355         t81*t83+t461+t438+t437+t436+t435+t434+t433+t427+t419+t418+
2356         t417+t416+t415+t414+t413+t412+t411+t410+t409+t407+t401+t400+
2357         t399+t398+t397+t396+t395+t394+t392-51.9472676981276*t81*t187*
2358         t244*t86*t245*t90*t246-51.9472676981276*t81*t85*t244*t86*t245*
2359         t185*t246+3.508934038473122*t81*t187*t244*t86*t249*t90*t111-
2360         1.754467019236561*t81*t187*t252*t86*t110*t90*t111-1.754467019236561*
2361         t81*t336*t109*t86*t110*t90*t111+.1301229705933783*t81*t1*t2*
2362         t3*t103*t187*t109*t110*t90*t111-1.754467019236561*t81*t85*
2363         t109*t86*t110*t331*t111+3.508934038473122*t81*t85*t244*t86*
2364         t249*t185*t111-1.754467019236561*t81*t85*t252*t86*t110*t185*
2365         t111-3.508934038473122*t81*t187*t109*t86*t110*t185*t111+.1301229705933783*
2366         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111)+96.0*t125*t127*
2367         t81*t90*t99+3.0*t331*t81*t83*t84*t99-24.0*t127*t185*t81*t84*
2368         t99-24.0*t125*t185*t81*t83*t99+.0592553691076956*t81*t336*
2369         t86*t90*t93-.0043947732088208*t81*t1*t2*t3*t103*t187*t90*t93+
2370         .0592553691076956*t81*t85*t86*t331*t93+.1185107382153912*t81*
2371         t187*t86*t185*t93-.0043947732088208*t81*t1*t2*t3*t103*t85*
2372         t185*t93-24.0*t127*t133*t81*t84*t90+6.0*t133*t185*t81*t83*
2373         t84+t388+t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+
2374         t377+t376+t375+.0018928513185185*t1*t2*t3*t146*t321+6.0*t175*
2375         t318*t147*t320-96.4940495336121*t317*t318*t147*t319-3.0*t175*
2376         t322*t147*t180+.1369866666666666*t1*t2*t3*t175*t179*t180*t178-
2377         .4109599999999999*t1*t2*t3*t175*t318*t320*t143+6.60919909938887*
2378         t1*t2*t3*t317*t318*t319*t143+0.20548*t1*t2*t3*t175*t322*t180*
2379         t143-3.508934038473122*t81*t187*t109*t86*t110*t90*t111-3.508934038473122*
2380         t81*t85*t109*t86*t110*t185*t111)-192.9880990672242*t317*t160*
2381         t476*t147*t478*rhob+2069.133687865597*t475*t160*t476*t147*
2382         t477*rhob+6.0*t147*t160*t175*t319*t476*rhob-6.0*t147*t160*
2383         t175*t179*t320*t322*rhob+3.0*t147*t174*t175*t180*t322*rhob-
2384         6.0*t147*t174*t175*t318*t320*rhob+96.4940495336121*t317*t174*
2385         t318*t147*t319*rhob+96.4940495336121*t317*t160*t322*t179*t147*
2386         t319*rhob+3.0*t147*t175*t179*t180*t316*rhob+t175*t479*t160*
2387         t147*t180*rhob-0.03109*t146*(2.379128888888889*t58*t159*t474-
2388         6.396465777777778*t156*t157*t473+15.31168853333334*t153*t154*
2389         t472-15.30310874074074*t149*t151*t471+6.274903077925926*t167*
2390         t168*t470-1.117824796444445*t308*t309*t469+.0723896092444445*
2391         t466*t467*t468)*t147*rhob-0.75*t177*t3*t35*(0.136377837037037*
2392         t58*t165*t474-.0225424554666667*t156*t164*t473+5.091990148740739e-4*
2393         t153*t163*t472-4.693471702281481e-6*t149*t162*t471+2.142740322228149e-8*
2394         t167*t181*t470-4.84926204586667e-11*t308*t323*t469+4.36841421937778e-14*
2395         t466*t480*t468)-3.0*t142*t3*t324*t35-1.0*t140*t182*t3*t35+
2396         .2222222222222222*t166*t176*t3*t35+3.0*t190*t344+3.0*t191*
2397         t343+3.0*t147*t160*t175*t180*t322-.0018928513185185*t1*t2*
2398         t3*t146*t160*t321-6.0*t147*t160*t175*t318*t320+96.4940495336121*
2399         t317*t160*t318*t147*t319+6.0*t175*t174*t179*t147*t180-.1369866666666666*
2400         t1*t2*t3*t175*t160*t179*t180*t178+.0042589154666667*t1*t2*
2401         t3*t146*t174*t178+(-.9486126222222223*t58*t68*t474+.0462770410666667*
2402         t58*t60*t67*t474-5.85170432e-4*t58*t66*t65*t474+3.389143296000001e-6*
2403         t58*t64*t63*t474-8.035163136e-9*t58*t61*t138*t474+0.0445446144*
2404         t156*t67*t473-0.0014791417344*t156*t60*t65*t473+1.7743283712e-5*
2405         t156*t66*t63*t473-9.726864998400001e-8*t156*t64*t138*t473+
2406         2.0661848064e-10*t156*t61*t295*t473-2.440820736e-4*t153*t65*
2407         t472+7.5286204416e-6*t153*t60*t63*t472-8.698724352e-8*t153*
2408         t66*t138*t472+4.5388283904e-10*t153*t64*t295*t472-9.0160791552e-13*
2409         t153*t61*t440*t472)*t148-0.09327*t146*t316*t147+.4109599999999999*
2410         t1*t2*t3*t175*t160*t318*t320*t143-6.60919909938887*t1*t2*t3*
2411         t317*t160*t318*t319*t143+0.0063883732*t1*t2*t3*t146*t316*t143-
2412         0.20548*t1*t2*t3*t175*t160*t322*t180*t143-.4109599999999999*
2413         t1*t2*t3*t175*t174*t179*t180*t143;
2414     d3fdrbrbga = 2.0*t190*t345+t199*t343+(-0.0111361536*grada*
2415         t58*t22*t67*t315+3.697854336e-4*grada*t58*t22*t60*t65*t315-
2416         4.435820928e-6*grada*t58*t22*t66*t63*t315+2.431716249600001e-8*
2417         grada*t58*t22*t64*t138*t315-5.165462016e-11*grada*t58*t22*
2418         t61*t295*t315+1.830615552e-4*grada*t156*t22*t65*t314-5.6464653312e-6*
2419         grada*t156*t22*t60*t63*t314+6.524043264e-8*grada*t156*t22*
2420         t66*t138*t314-3.4041212928e-10*grada*t156*t22*t64*t295*t314+
2421         6.7620593664e-13*grada*t156*t22*t61*t440*t314)*t148;
2422     d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
2423         t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
2424         t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*(-1.019626666666667*
2425         gradb*t159*t315+3.544597333333334*t204*t157*t314-9.320640000000001*
2426         t203*t154*t313+9.938358328888892*t202*t151*t312-4.306446108444446*
2427         t200*t168*t311+.8044359680000001*t346*t309*t310-.0542922069333334*
2428         t482*t467*t483)*t147*rhob+2.0*t190*t350-2.0*t142*t3*t349*t35-
2429         0.75*t177*t3*(-.0584476444444444*gradb*t165*t315+.0123596458666667*
2430         t204*t164*t314-3.152200931555555e-4*t203*t163*t313+3.132750552177778e-6*
2431         t202*t162*t312-1.505224585671111e-8*t200*t181*t311+3.53456182613333e-11*
2432         t346*t323*t310-3.27631066453333e-14*t482*t480*t483)*t35-.3333333333333333*
2433         t140*t206*t3*t35+t207*t343+2.0*t147*t175*t179*t180*t205+.0014196384888889*
2434         t1*t2*t3*t146*t205*t178+(.4065482666666667*gradb*t68*t315-
2435         0.0198330176*gradb*t60*t67*t315+2.50787328e-4*gradb*t66*t65*
2436         t315-1.452489984e-6*gradb*t64*t63*t315+3.443641344e-9*gradb*
2437         t61*t138*t315-0.0273341952*t204*t67*t314+9.076551552e-4*t204*
2438         t60*t65*t314-1.0887924096e-5*t204*t66*t63*t314+5.968758067200001e-8*
2439         t204*t64*t138*t314-1.2678861312e-10*t204*t61*t295*t314+1.830615552e-4*
2440         t203*t65*t313-5.6464653312e-6*t203*t60*t63*t313+6.524043264e-8*
2441         t203*t66*t138*t313-3.4041212928e-10*t203*t64*t295*t313+6.7620593664e-13*
2442         t203*t61*t440*t313)*t148-0.06218*t146*t348*t147+.0042589154666667*
2443         t1*t2*t3*t146*t348*t143-.1369866666666666*t1*t2*t3*t175*t205*
2444         t179*t180*t143;
2445     d3fdrbrbab = 0.0;
2446     d3fdrbgaga = (0.0030371328*t58*t22*t67*t173-1.008505728e-4*
2447         t58*t22*t60*t65*t173-1.372961664e-4*t21*t58*t31*t65*t173+1.209769344e-6*
2448         t58*t22*t66*t63*t173+4.2348489984e-6*t21*t58*t31*t60*t63*t173-
2449         6.631953408000001e-9*t58*t22*t64*t138*t173-4.893032448e-8*
2450         t21*t58*t31*t66*t138*t173+1.408762368e-11*t58*t22*t61*t295*
2451         t173+2.5530909696e-10*t21*t58*t31*t64*t295*t173-5.0715445248e-13*
2452         t21*t58*t31*t61*t440*t173)*t148+t354*t190;
2453     d3fdrbgagb = (0.0060742656*grada*gradb*t22*t67*t173-2.017011456e-4*
2454         grada*gradb*t22*t60*t65*t173+2.419538688e-6*grada*gradb*t22*
2455         t66*t63*t173-1.3263906816e-8*grada*gradb*t22*t64*t138*t173+
2456         2.817524736e-11*grada*gradb*t22*t61*t295*t173-1.372961664e-4*
2457         grada*t204*t22*t65*t172+4.2348489984e-6*grada*t204*t22*t60*
2458         t63*t172-4.893032448e-8*grada*t204*t22*t66*t138*t172+2.5530909696e-10*
2459         grada*t204*t22*t64*t295*t172-5.0715445248e-13*grada*t204*t22*
2460         t61*t440*t172)*t148+t355*t190;
2461     d3fdrbgaab = 0.0;
2462     d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
2463         (0.27808*t159*t173-1.72*t58*t157*t172+5.289356800000001*t156*
2464         t154*t171-6.196311893333335*t153*t151*t170+2.891203925333334*
2465         t149*t168*t169-.5736359253333334*t167*t309*t347+0.0407191552*
2466         t308*t467*t484)*t147*rhob-1.0*t142*t3*t35*t358-0.75*(.0159402666666667*
2467         t165*t173-.0059015509333333*t58*t164*t172+1.831061162666666e-4*
2468         t156*t163*t171-2.025869175466667e-6*t153*t162*t170+1.041496364373334e-8*
2469         t149*t181*t169-2.56133474986667e-11*t167*t323*t347+2.4572329984e-14*
2470         t308*t480*t484)*t177*t3*t35+t359*t190+(-0.1108768*t68*t173+
2471         0.0054090048*t60*t67*t173-6.839654399999999e-5*t66*t65*t173+
2472         3.96133632e-7*t64*t63*t173-9.39174912e-10*t61*t138*t173+0.015185664*
2473         t58*t67*t172-5.04252864e-4*t58*t60*t65*t172+6.04884672e-6*
2474         t58*t66*t63*t172-3.315976704e-8*t58*t64*t138*t172+7.04381184e-11*
2475         t58*t61*t295*t172-1.372961664e-4*t156*t65*t171+4.2348489984e-6*
2476         t156*t60*t63*t171-4.893032448e-8*t156*t66*t138*t171+2.5530909696e-10*
2477         t156*t64*t295*t171-5.0715445248e-13*t156*t61*t440*t171)*t148-
2478         0.03109*t146*t357*t147+.0021294577333333*t1*t2*t3*t146*t357*
2479         t143;
2480     d3fdrbgbab = 0.0;
2481     d3fdrbabab = 0.0;
2482     d3fdgagaga = -0.03109*t19*(0.665856*grada*t30*t31-2.727897600000001*
2483         t196*t27*t28+3.671293440000001*t195*t24*t25-1.890872832000001*
2484         t194*t43*t193+.4047774720000001*t192*t209*t351-0.0305393664*
2485         t302*t361*t485)*t34*rhoa-0.75*t3*(0.002236992*grada*t39*t31-
2486         9.739084800000001e-5*t196*t38*t28+1.259367628800001e-6*t195*
2487         t37*t25-7.081087795200001e-9*t194*t56*t193+1.8442125312e-11*
2488         t192*t223*t351-1.8429247488e-14*t302*t374*t485)*t35*t52+(-
2489         0.0068335488*grada*t31*t67+2.269137888e-4*grada*t31*t60*t65+
2490         1.029721248e-4*t196*t28*t65-2.721981024000001e-6*grada*t31*
2491         t66*t63-3.1761367488e-6*t196*t28*t60*t63+1.4921895168e-8*grada*
2492         t31*t64*t138+3.669774336000001e-8*t196*t28*t66*t138-3.169715328e-11*
2493         grada*t31*t61*t295-1.9148182272e-10*t196*t28*t64*t295+3.8036583936e-13*
2494         t196*t28*t61*t440)*t148;
2495     d3fdgagagb = (-0.0022778496*gradb*t22*t67*t59+7.563792960000001e-5*
2496         gradb*t22*t60*t65*t59+1.029721248e-4*t21*gradb*t31*t65*t59-
2497         9.073270080000002e-7*gradb*t22*t66*t63*t59-3.1761367488e-6*
2498         t21*gradb*t31*t60*t63*t59+4.973965056000001e-9*gradb*t22*t64*
2499         t138*t59+3.669774336000001e-8*t21*gradb*t31*t66*t138*t59-1.056571776e-11*
2500         gradb*t22*t61*t295*t59-1.9148182272e-10*t21*gradb*t31*t64*
2501         t295*t59+3.8036583936e-13*t21*gradb*t31*t61*t440*t59)*t148;
2502     d3fdgagaab = 0.0;
2503     d3fdgagbgb = (-
2504         0.0022778496*grada*t22*t67*t59+7.563792960000001e-5*grada*
2505         t22*t60*t65*t59-9.073270080000002e-7*grada*t22*t66*t63*t59+
2506         4.973965056000001e-9*grada*t22*t64*t138*t59-1.056571776e-11*
2507         grada*t22*t61*t295*t59+1.029721248e-4*grada*t58*t22*t65*t158-
2508         3.1761367488e-6*grada*t58*t22*t60*t63*t158+3.669774336000001e-8*
2509         grada*t58*t22*t66*t138*t158-1.9148182272e-10*grada*t58*t22*
2510         t64*t295*t158+3.8036583936e-13*grada*t58*t22*t61*t440*t158)*
2511         t148;
2512     d3fdgagbab = 0.0;
2513     d3fdgaabab = 0.0;
2514     d3fdgbgbgb = -0.03109*t146*(0.665856*gradb*t157*t158-
2515         2.727897600000001*t204*t154*t155+3.671293440000001*t203*t151*
2516         t152-1.890872832000001*t202*t168*t201+.4047774720000001*t200*
2517         t309*t356-0.0305393664*t346*t467*t486)*t147*rhob-0.75*(0.002236992*
2518         gradb*t164*t158-9.739084800000001e-5*t204*t163*t155+1.259367628800001e-6*
2519         t203*t162*t152-7.081087795200001e-9*t202*t181*t201+1.8442125312e-11*
2520         t200*t323*t356-1.8429247488e-14*t346*t480*t486)*t177*t3*t35+
2521         (-0.0068335488*gradb*t67*t158+2.269137888e-4*gradb*t60*t65*
2522         t158-2.721981024000001e-6*gradb*t66*t63*t158+1.4921895168e-8*
2523         gradb*t64*t138*t158-3.169715328e-11*gradb*t61*t295*t158+1.029721248e-4*
2524         t204*t65*t155-3.1761367488e-6*t204*t60*t63*t155+3.669774336000001e-8*
2525         t204*t66*t138*t155-1.9148182272e-10*t204*t64*t295*t155+3.8036583936e-13*
2526         t204*t61*t440*t155)*t148;
2527     d3fdgbgbab = 0.0;
2528     d3fdgbabab = 0.0;
2529     d3fdababab = 0.0;
2530 
2531 
2532     ds->df1000 += factor*dfdra;
2533     ds->df0100 += factor*dfdrb;
2534     ds->df0010 += factor*dfdga;
2535     ds->df0001 += factor*dfdgb;
2536     ds->df00001+= factor*dfdgab;
2537 
2538     ds->df2000 += factor*d2fdrara;
2539     ds->df1100 += factor*d2fdrarb;
2540     ds->df1010 += factor*d2fdraga;
2541     ds->df1001 += factor*d2fdragb;
2542     ds->df10001+= factor*d2fdraab;
2543     ds->df0200 += factor*d2fdrbrb;
2544     ds->df0110 += factor*d2fdrbga;
2545     ds->df0101 += factor*d2fdrbgb;
2546     ds->df01001+= factor*d2fdrbgab;
2547     ds->df0020 += factor*d2fdgaga;
2548     ds->df0011 += factor*d2fdgagb;
2549     ds->df00101+= factor*d2fdgagab;
2550     ds->df0002 += factor*d2fdgbgb;
2551     ds->df00011+= factor*d2fdgbgab;
2552     ds->df00002+= factor*d2fdgabgab;
2553 
2554     ds->df3000 += factor*d3fdrarara;
2555     ds->df2100  += factor*d3fdrararb;
2556     ds->df2010  += factor*d3fdraraga;
2557     ds->df2001  += factor*d3fdraragb;
2558     ds->df20001 += factor*d3fdraraab;
2559     ds->df1200  += factor*d3fdrarbrb;
2560     ds->df1110  += factor*d3fdrarbga;
2561     ds->df1101  += factor*d3fdrarbgb;
2562     ds->df11001 += factor*d3fdrarbab;
2563     ds->df1020  += factor*d3fdragaga;
2564     ds->df1011  += factor*d3fdragagb;
2565     ds->df10101 += factor*d3fdragaab;
2566     ds->df1002  += factor*d3fdragbgb;
2567     ds->df10011 += factor*d3fdragbab;
2568     ds->df10002 += factor*d3fdraabab;
2569     ds->df0300  += factor*d3fdrbrbrb;
2570     ds->df0210  += factor*d3fdrbrbga;
2571     ds->df0201  += factor*d3fdrbrbgb;
2572     ds->df02001 += factor*d3fdrbrbab;
2573     ds->df0120  += factor*d3fdrbgaga;
2574     ds->df0111  += factor*d3fdrbgagb;
2575     ds->df01101 += factor*d3fdrbgaab;
2576     ds->df0102  += factor*d3fdrbgbgb;
2577     ds->df01011 += factor*d3fdrbgbab;
2578     ds->df01002 += factor*d3fdrbabab;
2579     ds->df0030  += factor*d3fdgagaga;
2580     ds->df0021  += factor*d3fdgagagb;
2581     ds->df00201 += factor*d3fdgagaab;
2582     ds->df0012  += factor*d3fdgagbgb;
2583     ds->df00111 += factor*d3fdgagbab;
2584     ds->df00102 += factor*d3fdgaabab;
2585     ds->df0003  += factor*d3fdgbgbgb;
2586     ds->df00021 += factor*d3fdgbgbab;
2587     ds->df00012 += factor*d3fdgbabab;
2588     ds->df00003 += factor*d3fdababab;
2589 
2590 }
2591 
2592 static void
hcth120_fourth(FunFourthFuncDrv * ds,real factor,const FunDensProp * dp)2593 hcth120_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
2594 {
2595     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
2596     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
2597         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
2598         d2fdgbgb, d2fdgbgab, d2fdgabgab;
2599     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
2600          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
2601          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
2602          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
2603          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
2604          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
2605          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
2606     real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
2607          d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
2608          d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
2609          d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
2610          d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
2611          d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
2612          d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
2613          d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
2614          d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
2615          d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
2616          d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
2617          d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
2618          d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
2619          d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
2620          d4fdabababab;
2621     real rhoa = dp->rhoa, rhob = dp->rhob;
2622     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
2623 
2624     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
2625     real t11, t12, t13, t14, t15, t16, t17, t18;
2626     real t19, t20, t21, t22, t23, t24, t25, t26;
2627     real t27, t28, t29, t30, t31, t32, t33, t34;
2628     real t35, t36, t37, t38, t39, t40, t41, t42;
2629     real t43, t44, t45, t46, t47, t48, t49, t50;
2630     real t51, t52, t53, t54, t55, t56, t57, t58;
2631     real t59, t60, t61, t62, t63, t64, t65, t66;
2632     real t67, t68, t69, t70, t71, t72, t73, t74;
2633     real t75, t76, t77, t78, t79, t80, t81, t82;
2634     real t83, t84, t85, t86, t87, t88, t89, t90;
2635     real t91, t92, t93, t94, t95, t96, t97, t98;
2636     real t99, t100, t101, t102, t103, t104, t105;
2637     real t106, t107, t108, t109, t110, t111, t112;
2638     real t113, t114, t115, t116, t117, t118, t119;
2639     real t120, t121, t122, t123, t124, t125, t126;
2640     real t127, t128, t129, t130, t131, t132, t133;
2641     real t134, t135, t136, t137, t138, t139, t140;
2642     real t141, t142, t143, t144, t145, t146, t147;
2643     real t148, t149, t150, t151, t152, t153, t154;
2644     real t155, t156, t157, t158, t159, t160, t161;
2645     real t162, t163, t164, t165, t166, t167, t168;
2646     real t169, t170, t171, t172, t173, t174, t175;
2647     real t176, t177, t178, t179, t180, t181, t182;
2648     real t183, t184, t185, t186, t187, t188, t189;
2649     real t190, t191, t192, t193, t194, t195, t196;
2650     real t197, t198, t199, t200, t201, t202, t203;
2651     real t204, t205, t206, t207, t208, t209, t210;
2652     real t211, t212, t213, t214, t215, t216, t217;
2653     real t218, t219, t220, t221, t222, t223, t224;
2654     real t225, t226, t227, t228, t229, t230, t231;
2655     real t232, t233, t234, t235, t236, t237, t238;
2656     real t239, t240, t241, t242, t243, t244, t245;
2657     real t246, t247, t248, t249, t250, t251, t252;
2658     real t253, t254, t255, t256, t257, t258, t259;
2659     real t260, t261, t262, t263, t264, t265, t266;
2660     real t267, t268, t269, t270, t271, t272, t273;
2661     real t274, t275, t276, t277, t278, t279, t280;
2662     real t281, t282, t283, t284, t285, t286, t287;
2663     real t288, t289, t290, t291, t292, t293, t294;
2664     real t295, t296, t297, t298, t299, t300, t301;
2665     real t302, t303, t304, t305, t306, t307, t308;
2666     real t309, t310, t311, t312, t313, t314, t315;
2667     real t316, t317, t318, t319, t320, t321, t322;
2668     real t323, t324, t325, t326, t327, t328, t329;
2669     real t330, t331, t332, t333, t334, t335, t336;
2670     real t337, t338, t339, t340, t341, t342, t343;
2671     real t344, t345, t346, t347, t348, t349, t350;
2672     real t351, t352, t353, t354, t355, t356, t357;
2673     real t358, t359, t360, t361, t362, t363, t364;
2674     real t365, t366, t367, t368, t369, t370, t371;
2675     real t372, t373, t374, t375, t376, t377, t378;
2676     real t379, t380, t381, t382, t383, t384, t385;
2677     real t386, t387, t388, t389, t390, t391, t392;
2678     real t393, t394, t395, t396, t397, t398, t399;
2679     real t400, t401, t402, t403, t404, t405, t406;
2680     real t407, t408, t409, t410, t411, t412, t413;
2681     real t414, t415, t416, t417, t418, t419, t420;
2682     real t421, t422, t423, t424, t425, t426, t427;
2683     real t428, t429, t430, t431, t432, t433, t434;
2684     real t435, t436, t437, t438, t439, t440, t441;
2685     real t442, t443, t444, t445, t446, t447, t448;
2686     real t449, t450, t451, t452, t453, t454, t455;
2687     real t456, t457, t458, t459, t460, t461, t462;
2688     real t463, t464, t465, t466, t467, t468, t469;
2689     real t470, t471, t472, t473, t474, t475, t476;
2690     real t477, t478, t479, t480, t481, t482, t483;
2691     real t484, t485, t486, t487, t488, t489, t490;
2692     real t491, t492, t493, t494, t495, t496, t497;
2693     real t498, t499, t500, t501, t502, t503, t504;
2694     real t505, t506, t507, t508, t509, t510, t511;
2695     real t512, t513, t514, t515, t516, t517, t518;
2696     real t519, t520, t521, t522, t523, t524, t525;
2697     real t526, t527, t528, t529, t530, t531, t532;
2698     real t533, t534, t535, t536, t537, t538, t539;
2699     real t540, t541, t542, t543, t544, t545, t546;
2700     real t547, t548, t549, t550, t551, t552, t553;
2701     real t554, t555, t556, t557, t558, t559, t560;
2702     real t561, t562, t563, t564, t565, t566, t567;
2703     real t568, t569, t570, t571, t572, t573, t574;
2704     real t575, t576, t577, t578, t579, t580, t581;
2705     real t582, t583, t584, t585, t586, t587, t588;
2706     real t589, t590, t591, t592, t593, t594, t595;
2707     real t596, t597, t598, t599, t600, t601, t602;
2708     real t603, t604, t605, t606, t607, t608, t609;
2709     real t610, t611, t612, t613, t614, t615, t616;
2710     real t617, t618, t619, t620, t621, t622, t623;
2711     real t624, t625, t626, t627, t628, t629, t630;
2712     real t631, t632, t633, t634, t635, t636, t637;
2713     real t638, t639, t640, t641, t642, t643, t644;
2714     real t645, t646, t647, t648, t649, t650, t651;
2715     real t652, t653, t654, t655, t656, t657, t658;
2716     real t659, t660, t661, t662, t663, t664, t665;
2717     real t666, t667, t668, t669, t670, t671, t672;
2718     real t673, t674, t675, t676, t677, t678, t679;
2719     real t680, t681, t682, t683, t684, t685, t686;
2720     real t687, t688, t689, t690, t691, t692, t693;
2721     real t694, t695, t696, t697, t698, t699, t700;
2722     real t701, t702, t703, t704, t705, t706, t707;
2723     real t708, t709, t710, t711, t712, t713, t714;
2724     real t715, t716, t717, t718, t719, t720, t721;
2725     real t722, t723, t724, t725, t726, t727, t728;
2726     real t729, t730, t731, t732, t733, t734, t735;
2727     real t736, t737, t738, t739, t740, t741, t742;
2728     real t743, t744, t745, t746, t747, t748, t749;
2729     real t750, t751, t752, t753, t754, t755, t756;
2730     real t757, t758, t759, t760, t761, t762, t763;
2731     real t764, t765, t766, t767, t768, t769, t770;
2732     real t771, t772, t773, t774, t775, t776, t777;
2733     real t778, t779, t780, t781, t782, t783, t784;
2734     real t785, t786, t787, t788;
2735 
2736     t1 = pow(3.0,.3333333333333333);
2737     t2 = 1/pow(4.0,.3333333333333333);
2738     t3 = 1/pow(3.141592653589793,.3333333333333333);
2739     t4 = pow(3.0,.6666666666666666);
2740     t5 = 1/pow(4.0,.6666666666666666);
2741     t6 = 1/pow(3.141592653589793,.6666666666666666);
2742     t7 = 1/pow(rhoa,.6666666666666666);
2743     t8 = 1.732050807568877;
2744     t9 = .5641895835477563;
2745     t10 = sqrt(rhoa);
2746     t11 = pow(rhoa,.3333333333333333);
2747     t12 = 1/t11;
2748     t13 = pow(2.0,.3333333333333333);
2749     t14 = 1/t13;
2750     t15 = pow(3.0,.1666666666666667);
2751     t16 = 1/pow(3.141592653589793,.1666666666666667);
2752     t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
2753         1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
2754     t18 = 32.1646831778707/
2755         t17+1.0;
2756     t19 = log(t18);
2757     t20 = pow(grada,8.0);
2758     t21 = pow(grada,2.0);
2759     t22 = 1/pow(rhoa,2.666666666666667);
2760     t23 = 0.2*t21*t22+1.0;
2761     t24 = 1/pow(t23,4.0);
2762     t25 = 1/pow(rhoa,10.66666666666667);
2763     t26 = pow(grada,6.0);
2764     t27 = 1/pow(t23,3.0);
2765     t28 = 1/pow(rhoa,8.0);
2766     t29 = pow(grada,4.0);
2767     t30 = 1/pow(t23,2.0);
2768     t31 = 1/pow(rhoa,5.333333333333333);
2769     t32 = 1/t23;
2770     t33 = -0.05214*t21*t32*t22+0.017316*t29*t30*t31-0.01594*
2771         t26*t27*t28+0.00397648*t20*t24*t25+0.48951;
2772     t34 = 0.20548*t1*t2*t3*t12+1.0;
2773     t35 = pow(6.0,.3333333333333333);
2774     t36 = 0.004*t21*t22+1.0;
2775     t37 = 1/pow(t36,4.0);
2776     t38 = 1/pow(t36,3.0);
2777     t39 = 1/pow(t36,2.0);
2778     t40 = 1/t36;
2779     t41 = -0.0029888*t21*t40*t22+8.125279999999999e-5*t29*
2780         t39*t31-2.6288e-7*t26*t38*t28+2.999552e-10*t20*t37*t25+1.09163;
2781     t42 = pow(grada,
2782         10.0);
2783     t43 = 1/pow(t23,5.0);
2784     t44 = 1/pow(rhoa,14.33333333333333);
2785     t45 = 1/pow(rhoa,11.66666666666667);
2786     t46 = 1/pow(rhoa,9.0);
2787     t47 = 1/pow(rhoa,6.333333333333333);
2788     t48 = 1/pow(rhoa,3.666666666666667);
2789     t49 = 0.13904*t21*t32*t48-0.12016*t29*t30*t47+0.1459904*
2790         t26*t27*t46-.0679197866666667*t20*t24*t45+.0084831573333333*
2791         t42*t43*t44;
2792     t50 = 1/t18;
2793     t51 = 1/pow(rhoa,1.666666666666667);
2794     t52 = pow(rhoa,1.333333333333333);
2795     t53 = 1/t52;
2796     t54 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
2797         0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t53-0.41678*t4*
2798         t5*t6*t51;
2799     t55 = 1/pow(t17,2.0);
2800     t56 = 1/pow(t36,5.0);
2801     t57 = .0079701333333333*t21*t40*t48-4.652287999999999e-4*
2802         t29*t39*t47+3.836433066666666e-6*t26*t38*t46-1.161168213333333e-8*
2803         t20*t37*t45+1.27980885333333e-11*t42*t56*t44;
2804     t58 = pow(gradb,2.0);
2805     t59 = 1/pow(rhob,2.666666666666667);
2806     t60 = 0.5*t58*t59+0.5*t21*t22;
2807     t61 = pow(t60,4.0);
2808     t62 = 0.006*t60+1.0;
2809     t63 = 1/pow(t62,4.0);
2810     t64 = pow(t60,3.0);
2811     t65 = 1/pow(t62,3.0);
2812     t66 = pow(t60,2.0);
2813     t67 = 1/pow(t62,2.0);
2814     t68 = 1/t62;
2815     t69 = 0.0415788*t60*t68-8.894520000000001e-4*t66*t67+
2816         4.99176e-6*t64*t65-1.4674608e-8*t61*t63+0.51473;
2817     t70 = rhob+rhoa;
2818     t71 = 1/pow(t70,.3333333333333333);
2819     t72 = 0.2137*t1*t2*t3*t71+1.0;
2820     t73 = 1/pow(t70,.6666666666666666);
2821     t74 = sqrt(t70);
2822     t75 = 1/t74;
2823     t76 = 1/pow(t70,.1666666666666667);
2824     t77 = 7.5957*t14*t15*t16*t76+3.5876*t1*t2*t3*t71+0.8191*
2825         t8*t9*t75+0.49294*t4*t5*t6*t73;
2826     t78 = 16.0818243221511/t77+1.0;
2827     t79 = log(t78);
2828     t80 = -0.062182*t72*t79;
2829     t81 = 1/(2.0*t13-2.0);
2830     t82 = rhoa-1.0*rhob;
2831     t83 = pow(t82,4.0);
2832     t84 = 1/pow(t70,4.0);
2833     t85 = 1.0-1.0*t83*t84;
2834     t86 = 0.11125*t1*t2*t3*t71+1.0;
2835     t87 = 1/t70;
2836     t88 = 1.0-1.0*t82*t87;
2837     t89 = t82*t87+1.0;
2838     t90 = pow(t89,1.333333333333333)+pow(t88,1.333333333333333)-
2839         2.0;
2840     t91 = 10.357*t14*t15*t16*t76+3.6231*t1*t2*t3*t71+0.44013*
2841         t8*t9*t75+0.49671*t4*t5*t6*t73;
2842     t92 = 29.60857464321668/t91+1.0;
2843     t93 = log(t92);
2844     t94 = .0197517897025652*t81*t85*t86*t90*t93;
2845     t95 = 0.20548*t1*t2*t3*t71+1.0;
2846     t96 = 14.1189*t14*t15*t16*t76+6.1977*t1*t2*t3*t71+1.6831*
2847         t8*t9*t75+0.62517*t4*t5*t6*t73;
2848     t97 = 32.1646831778707/t96+1.0;
2849     t98 = log(t97);
2850     t99 = 0.062182*t72*t79-0.03109*t95*t98;
2851     t100 = t81*t83*t84*t90*t99;
2852     t101 = 1/pow(t70,1.666666666666667);
2853     t102 = 1/pow(t74,3.0);
2854     t103 = 1/pow(t70,1.333333333333333);
2855     t104 = 1/pow(t70,1.166666666666667);
2856     t105 = -1.26595*t14*t15*t16*t104-1.195866666666667*t1*
2857         t2*t3*t103-0.40955*t8*t9*t102-.3286266666666666*t4*t5*t6*t101;
2858     t106 = 1/
2859         pow(t77,2.0);
2860     t107 = 1/t78;
2861     t108 = .9999999999999999*t105*t72*t106*t107;
2862     t109 = -1.726166666666666*t14*t15*t16*t104-1.2077*t1*
2863         t2*t3*t103-0.220065*t8*t9*t102-0.33114*t4*t5*t6*t101;
2864     t110 = 1/pow(t91,2.0);
2865     t111 = 1/t92;
2866     t112 = -.5848223397455204*t81*t85*t109*t86*t110*t90*t111;
2867     t113 = .0044294311333333*
2868         t1*t2*t3*t103*t79;
2869     t114 = 1/pow(t70,2.0);
2870     t115 = t82*t114;
2871     t116 = -1.0*t87;
2872     t117 = t116+t115;
2873     t118 = pow(t88,.3333333333333333);
2874     t119 = -1.0*t114*t82;
2875     t120 = t87+t119;
2876     t121 = pow(t89,.3333333333333333);
2877     t122 = 1.333333333333333*t120*t121+1.333333333333333*
2878         t117*t118;
2879     t123 = .0197517897025652*t81*t85*t86*t122*t93;
2880     t124 = -7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t90*
2881         t93;
2882     t125 = 1/pow(t70,5.0);
2883     t126 = 4.0*t125*t83;
2884     t127 = pow(t82,3.0);
2885     t128 = t126-4.0*t127*t84;
2886     t129 = .0197517897025652*t81*t128*t86*t90*t93;
2887     t130 = -2.35315*t14*t15*t16*t104-2.0659*t1*t2*t3*t103-
2888         0.84155*t8*t9*t102-0.41678*t4*t5*t6*t101;
2889     t131 = 1/pow(t96,2.0);
2890     t132 = 1/t97;
2891     t133 = .0021294577333333*t1*t2*t3*t103*t98-.0044294311333333*
2892         t1*t2*t3*t103*t79+t130*t95*t131*t132-.9999999999999999*t105*
2893         t72*t106*t107;
2894     t134 = t81*t83*t84*t90*t133;
2895     t135 = t81*t83*t84*t122*t99;
2896     t136 = -4.0*t125*t81*t83*t90*t99;
2897     t137 = -1.0*t50*t54*t34*t55*rhoa+t70*(4.0*t127*t81*t84*
2898         t90*t99+t136+t135+t134+t129+t124+t123+t113+t112+t108)+t94+
2899         t80+0.03109*t19*t34-.0021294577333333*t1*t2*t3*t19*t12+t100;
2900     t138 = 1/
2901         pow(t62,5.0);
2902     t139 = -0.0554384*t21*t48*t68+0.0027045024*t21*t48*t60*
2903         t67-3.4198272e-5*t21*t48*t66*t65+1.98066816e-7*t21*t48*t64*
2904         t63-4.69587456e-10*t21*t48*t61*t138;
2905     t140 = 1/pow(rhob,.6666666666666666);
2906     t141 = sqrt(rhob);
2907     t142 = pow(rhob,.3333333333333333);
2908     t143 = 1/t142;
2909     t144 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
2910         1.6831*t8*t9/t141+6.1977*t1*t2*t3*t143+0.62517*t4*t5*t6*t140;
2911     t145 = 32.1646831778707/
2912         t144+1.0;
2913     t146 = log(t145);
2914     t147 = 0.20548*t1*t2*t3*t143+1.0;
2915     t148 = t70*(t100+t94+t80)+0.03109*t146*t147*rhob+0.03109*
2916         t19*t34*rhoa;
2917     t149 = pow(gradb,8.0);
2918     t150 = 0.2*t58*t59+1.0;
2919     t151 = 1/pow(t150,4.0);
2920     t152 = 1/pow(rhob,10.66666666666667);
2921     t153 = pow(gradb,6.0);
2922     t154 = 1/pow(t150,3.0);
2923     t155 = 1/pow(rhob,8.0);
2924     t156 = pow(gradb,4.0);
2925     t157 = 1/pow(t150,2.0);
2926     t158 = 1/pow(rhob,5.333333333333333);
2927     t159 = 1/t150;
2928     t160 = -0.05214*t58*t159*t59+0.017316*t156*t157*t158-
2929         0.01594*t153*t154*t155+0.00397648*t149*t151*t152+0.48951;
2930     t161 = 0.004*
2931         t58*t59+1.0;
2932     t162 = 1/pow(t161,4.0);
2933     t163 = 1/pow(t161,3.0);
2934     t164 = 1/pow(t161,2.0);
2935     t165 = 1/t161;
2936     t166 = -0.0029888*t58*t165*t59+8.125279999999999e-5*t156*
2937         t164*t158-2.6288e-7*t153*t163*t155+2.999552e-10*t149*t162*
2938         t152+1.09163;
2939     t167 = pow(gradb,10.0);
2940     t168 = 1/pow(t150,5.0);
2941     t169 = 1/pow(rhob,14.33333333333333);
2942     t170 = 1/pow(rhob,11.66666666666667);
2943     t171 = 1/pow(rhob,9.0);
2944     t172 = 1/pow(rhob,6.333333333333333);
2945     t173 = 1/pow(rhob,3.666666666666667);
2946     t174 = 0.13904*t58*t159*t173-0.12016*t156*t157*t172+0.1459904*
2947         t153*t154*t171-.0679197866666667*t149*t151*t170+.0084831573333333*
2948         t167*t168*t169;
2949     t175 = 1/t145;
2950     t176 = 1/pow(rhob,1.666666666666667);
2951     t177 = pow(rhob,1.333333333333333);
2952     t178 = 1/t177;
2953     t179 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
2954         0.84155*t8*t9/pow(t141,3.0)-2.0659*t1*t2*t3*t178-0.41678*t4*
2955         t5*t6*t176;
2956     t180 = 1/pow(t144,2.0);
2957     t181 = 1/pow(t161,5.0);
2958     t182 = .0079701333333333*t58*t165*t173-4.652287999999999e-4*
2959         t156*t164*t172+3.836433066666666e-6*t153*t163*t171-1.161168213333333e-8*
2960         t149*t162*t170+1.27980885333333e-11*t167*t181*t169;
2961     t183 = t87+t115;
2962     t184 = t116+t119;
2963     t185 = 1.333333333333333*t121*t184+1.333333333333333*
2964         t118*t183;
2965     t186 = .0197517897025652*t81*t85*t86*t185*t93;
2966     t187 = 4.0*t127*t84+t126;
2967     t188 = .0197517897025652*t81*t187*t86*t90*t93;
2968     t189 = t81*t83*t84*t185*t99;
2969     t190 = -1.0*t175*t179*t147*t180*rhob+t70*(-4.0*t127*t81*
2970         t84*t90*t99+t189+t188+t186+t136+t134+t124+t113+t112+t108)+
2971         t94+t80+0.03109*t146*t147-.0021294577333333*t1*t2*t3*t146*
2972         t143+t100;
2973     t191 = -0.0554384*t58*t68*t173+0.0027045024*t58*t60*t67*
2974         t173-3.4198272e-5*t58*t66*t65*t173+1.98066816e-7*t58*t64*t63*
2975         t173-4.69587456e-10*t58*t61*t138*t173;
2976     t192 = pow(grada,9.0);
2977     t193 = 1/pow(rhoa,13.33333333333333);
2978     t194 = pow(grada,7.0);
2979     t195 = pow(grada,5.0);
2980     t196 = pow(grada,3.0);
2981     t197 = -0.10428*grada*t32*t22+0.09012*t196*t30*t31-0.1094928*
2982         t195*t27*t28+0.05093984*t194*t24*t25-0.006362368*t192*t43*
2983         t193;
2984     t198 = -0.0059776*grada*t40*t22+3.489216e-4*t196*t39*
2985         t31-2.8773248e-6*t195*t38*t28+8.7087616e-9*t194*t37*t25-9.5985664e-12*
2986         t192*t56*t193;
2987     t199 = 0.0415788*grada*t22*t68-0.0020283768*grada*t22*
2988         t60*t67+2.5648704e-5*grada*t22*t66*t65-1.48550112e-7*grada*
2989         t22*t64*t63+3.52190592e-10*grada*t22*t61*t138;
2990     t200 = pow(gradb,9.0);
2991     t201 = 1/pow(rhob,13.33333333333333);
2992     t202 = pow(gradb,7.0);
2993     t203 = pow(gradb,5.0);
2994     t204 = pow(gradb,3.0);
2995     t205 = -0.10428*gradb*t159*t59+0.09012*t204*t157*t158-
2996         0.1094928*t203*t154*t155+0.05093984*t202*t151*t152-0.006362368*
2997         t200*t168*t201;
2998     t206 = -0.0059776*gradb*t165*t59+3.489216e-4*t204*t164*
2999         t158-2.8773248e-6*t203*t163*t155+8.7087616e-9*t202*t162*t152-
3000         9.5985664e-12*t200*t181*t201;
3001     t207 = 0.0415788*gradb*t68*t59-0.0020283768*gradb*t60*
3002         t67*t59+2.5648704e-5*gradb*t66*t65*t59-1.48550112e-7*gradb*
3003         t64*t63*t59+3.52190592e-10*gradb*t61*t138*t59;
3004     t208 = pow(grada,12.0);
3005     t209 = 1/pow(t23,6.0);
3006     t210 = 1/pow(rhoa,18.0);
3007     t211 = 1/pow(rhoa,15.33333333333333);
3008     t212 = 1/pow(rhoa,12.66666666666667);
3009     t213 = 1/pow(rhoa,10.0);
3010     t214 = 1/pow(rhoa,7.333333333333333);
3011     t215 = 1/pow(rhoa,4.666666666666667);
3012     t216 = -.5098133333333333*t21*t32*t215+.8351680000000001*
3013         t29*t30*t214-1.442084266666667*t26*t27*t213+1.025982151111111*
3014         t20*t24*t212-.2664874666666667*t42*t43*t211+.0226217528888889*
3015         t208*t209*t210;
3016     t217 = 1/pow(t18,2.0);
3017     t218 = pow(t54,2.0);
3018     t219 = 1/pow(t17,4.0);
3019     t220 = 1/pow(t17,3.0);
3020     t221 = 1/pow(rhoa,2.333333333333333);
3021     t222 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
3022         1.262325*t8*t9/pow(t10,5.0)+2.754533333333333*t1*t2*t3*t221+
3023         .6946333333333333*t4*t5*t6*t22;
3024     t223 = 1/pow(t36,6.0);
3025     t224 = -.0292238222222222*t21*t40*t215+.0030314638222222*
3026         t29*t39*t214-4.445277866666666e-5*t26*t38*t213+2.582354830222222e-7*
3027         t20*t37*t212-6.7887104e-10*t42*t56*t211+6.82564721777778e-13*
3028         t208*t223*t210;
3029     t225 = 2.0*t105*t72*t106*t107;
3030     t226 = -1.169644679491041*t81*t85*t109*t86*t110*t90*t111;
3031     t227 = .0088588622666667*
3032         t1*t2*t3*t103*t79;
3033     t228 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t90*t93;
3034     t229 = 2.0*
3035         t133*t81*t83*t84*t90;
3036     t230 = -8.0*t125*t81*t83*t90*t99;
3037     t231 = pow(t105,2.0);
3038     t232 = 1/pow(t77,4.0);
3039     t233 = 1/pow(t78,2.0);
3040     t234 = 16.0818243221511*t231*t72*t232*t233;
3041     t235 = 1/pow(t77,3.0);
3042     t236 = -2.0*t231*t72*t235*t107;
3043     t237 = -.1424666666666666*t1*t2*t3*t103*t105*t106*t107;
3044     t238 = 1/
3045         pow(t70,2.666666666666667);
3046     t239 = 1/pow(t74,5.0);
3047     t240 = 1/pow(t70,2.333333333333333);
3048     t241 = 1/pow(t70,2.166666666666667);
3049     t242 = 1.476941666666667*t14*t15*t16*t241+1.594488888888889*
3050         t1*t2*t3*t240+0.614325*t8*t9*t239+0.547711111111111*t4*t5*
3051         t6*t238;
3052     t243 = .9999999999999999*t242*t72*t106*t107;
3053     t244 = pow(t109,2.0);
3054     t245 = 1/pow(t91,4.0);
3055     t246 = 1/pow(t92,2.0);
3056     t247 = -17.31575589937587*t81*t85*t244*t86*t245*t90*t246;
3057     t248 = -
3058         1.169644679491041*t81*t85*t109*t86*t110*t122*t111;
3059     t249 = 1/pow(t91,3.0);
3060     t250 = 1.169644679491041*t81*t85*t244*t86*t249*t90*t111;
3061     t251 = .0433743235311261*
3062         t81*t1*t2*t3*t103*t85*t109*t110*t90*t111;
3063     t252 = 2.013861111111111*t14*t15*t16*t241+1.610266666666667*
3064         t1*t2*t3*t240+0.3300975*t8*t9*t239+.5519000000000001*t4*t5*
3065         t6*t238;
3066     t253 = -.5848223397455204*t81*t85*t252*t86*t110*t90*t111;
3067     t254 = -
3068         1.169644679491041*t81*t128*t109*t86*t110*t90*t111;
3069     t255 = -.0059059081777778*t1*t2*t3*t240*t79;
3070     t256 = pow(t117,2.0);
3071     t257 = 1/pow(t88,.6666666666666666);
3072     t258 = 1/pow(t70,3.0);
3073     t259 = -2.0*t258*t82;
3074     t260 = 2.0*t114;
3075     t261 = t260+t259;
3076     t262 = pow(t120,2.0);
3077     t263 = 1/pow(t89,.6666666666666666);
3078     t264 = 2.0*t258*t82;
3079     t265 = -2.0*t114;
3080     t266 = t265+t264;
3081     t267 = 1.333333333333333*t121*t266+.4444444444444444*
3082         t262*t263+1.333333333333333*t118*t261+.4444444444444444*t256*
3083         t257;
3084     t268 = .0197517897025652*t81*t85*t86*t267*t93;
3085     t269 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t122*
3086         t93;
3087     t270 = .0395035794051304*t81*t128*t86*t122*t93;
3088     t271 = -.0014649244029403*t81*t1*t2*t3*t103*t128*t90*
3089         t93;
3090     t272 = 9.766162686268349e-4*t81*t1*t2*t3*t240*t85*t90*
3091         t93;
3092     t273 = 1/pow(t70,6.0);
3093     t274 = -20.0*t273*t83;
3094     t275 = pow(t82,2.0);
3095     t276 = -12.0*t275*t84;
3096     t277 = t276+t274+32.0*t125*t127;
3097     t278 = .0197517897025652*t81*t277*t86*t90*t93;
3098     t279 = pow(t130,2.0);
3099     t280 = 1/pow(t96,4.0);
3100     t281 = 1/pow(t97,2.0);
3101     t282 = 1/pow(t96,3.0);
3102     t283 = 2.745341666666667*t14*t15*t16*t241+2.754533333333333*
3103         t1*t2*t3*t240+1.262325*t8*t9*t239+.6946333333333333*t4*t5*
3104         t6*t238;
3105     t284 = -.0028392769777778*t1*t2*t3*t240*t98-2.0*t132*
3106         t279*t282*t95+.0059059081777778*t1*t2*t3*t240*t79+32.1646831778707*
3107         t279*t95*t280*t281-16.0818243221511*t231*t72*t232*t233+t283*
3108         t95*t131*t132-.1369866666666666*t1*t2*t3*t103*t130*t131*t132+
3109         2.0*t231*t72*t235*t107-.9999999999999999*t242*t72*t106*t107+
3110         .1424666666666666*t1*t2*t3*t103*t105*t106*t107;
3111     t285 = t81*t83*t84*t90*t284;
3112     t286 = 2.0*t122*t133*t81*t83*t84;
3113     t287 = -8.0*t125*t133*t81*t83*t90;
3114     t288 = 8.0*t127*t133*t81*t84*t90;
3115     t289 = t81*t83*t84*t267*t99;
3116     t290 = -8.0*t122*t125*t81*t83*t99;
3117     t291 = 20.0*t273*t81*t83*t90*t99;
3118     t292 = -32.0*t125*t127*t81*t90*t99;
3119     t293 = 12.0*t275*t81*t84*t90*t99;
3120     t294 = -1.0*t50*t222*t34*t55*rhoa+2.0*t50*t218*t34*t220*
3121         rhoa-32.1646831778707*t217*t218*t34*t219*rhoa+t70*(8.0*t122*
3122         t127*t81*t84*t99+t293+t292+t291+t290+t289+t288+t287+t286+t285+
3123         t278+t272+t271+t270+t269+t268+t255+t254+t253+t251+t250+t248+
3124         t247+t243+t237+t236+t234)+8.0*t127*t81*t84*t90*t99+2.0*t122*
3125         t81*t83*t84*t99+.0395035794051304*t81*t128*t86*t90*t93+.0395035794051304*
3126         t81*t85*t86*t122*t93-2.0*t50*t54*t34*t55-.0014196384888889*
3127         t1*t2*t3*t19*t53+t230+t229+t228+t227+t226+t225+.1369866666666666*
3128         t1*t2*t3*t50*t54*t55*t12;
3129     t295 = 1/pow(t62,6.0);
3130     t296 = .2032741333333333*t21*t215*t68-0.0099165088*t21*
3131         t215*t60*t67-0.0040495104*t29*t214*t67+1.25393664e-4*t21*t215*
3132         t66*t65+1.344674304e-4*t29*t214*t60*t65-7.26244992e-7*t21*
3133         t215*t64*t63-1.613025792e-6*t29*t214*t66*t63+1.721820672e-9*
3134         t21*t215*t61*t138+8.842604544e-9*t29*t214*t64*t138-1.878349824e-11*
3135         t29*t214*t61*t295;
3136     t297 = 2.666666666666667*t121*t258*t82-2.666666666666667*
3137         t118*t258*t82+.4444444444444444*t120*t184*t263+.4444444444444444*
3138         t117*t183*t257;
3139     t298 = 12.0*t275*t84+t274;
3140     t299 = -12.0*t275*t81*t84*t90*t99;
3141     t300 = t70*(4.0*t127*t185*t81*t84*t99-4.0*t122*t127*t81*
3142         t84*t99-4.0*t125*t185*t81*t83*t99-4.0*t122*t125*t81*t83*t99+
3143         t81*t83*t84*t297*t99+.0197517897025652*t81*t298*t86*t90*t93-
3144         7.324622014701263e-4*t81*t1*t2*t3*t103*t187*t90*t93-7.324622014701263e-4*
3145         t81*t1*t2*t3*t103*t128*t90*t93+.0197517897025652*t81*t85*t86*
3146         t297*t93+.0197517897025652*t81*t128*t86*t185*t93-7.324622014701263e-4*
3147         t81*t1*t2*t3*t103*t85*t185*t93+.0197517897025652*t81*t187*
3148         t86*t122*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t122*
3149         t93+t299+t291+t287+t285+t272+t255+t253+t251+t250+t247+t243+
3150         t237+t236+t234+t81*t83*t84*t185*t133+t81*t83*t84*t122*t133-
3151         .5848223397455204*t81*t187*t109*t86*t110*t90*t111-.5848223397455204*
3152         t81*t128*t109*t86*t110*t90*t111-.5848223397455204*t81*t85*
3153         t109*t86*t110*t185*t111-.5848223397455204*t81*t85*t109*t86*
3154         t110*t122*t111)+t230+t229+t228+t227+t226+t225+t189+t188+t186+
3155         t135+t129+t123;
3156     t301 = -0.0040495104*t21*t58*t48*t67*t173+1.344674304e-4*
3157         t21*t58*t48*t60*t65*t173-1.613025792e-6*t21*t58*t48*t66*t63*
3158         t173+8.842604544e-9*t21*t58*t48*t64*t138*t173-1.878349824e-11*
3159         t21*t58*t48*t61*t295*t173;
3160     t302 = pow(grada,11.0);
3161     t303 = 1/pow(rhoa,17.0);
3162     t304 = 0.27808*grada*t32*t48-.5362560000000001*t196*t30*
3163         t47+.9720704000000001*t195*t27*t46-.7185467733333335*t194*
3164         t24*t45+0.193503232*t192*t43*t44-.0169663146666667*t302*t209*
3165         t303;
3166     t305 = .0159402666666667*grada*t40*t48-.0019246762666667*
3167         t196*t39*t47+3.04622592e-5*t195*t38*t46-1.849678506666667e-7*
3168         t194*t37*t45+4.995547136e-10*t192*t56*t44-5.11923541333333e-13*
3169         t302*t223*t303;
3170     t306 = -0.1108768*grada*t48*t68+0.0054090048*grada*t48*
3171         t60*t67+0.0030371328*t196*t47*t67-6.839654399999999e-5*grada*
3172         t48*t66*t65-1.008505728e-4*t196*t47*t60*t65+3.96133632e-7*
3173         grada*t48*t64*t63+1.209769344e-6*t196*t47*t66*t63-9.39174912e-10*
3174         grada*t48*t61*t138-6.631953408000001e-9*t196*t47*t64*t138+
3175         1.408762368e-11*t196*t47*t61*t295;
3176     t307 = 0.0030371328*t21*gradb*t48*t67*t59-1.008505728e-4*
3177         t21*gradb*t48*t60*t65*t59+1.209769344e-6*t21*gradb*t48*t66*
3178         t63*t59-6.631953408000001e-9*t21*gradb*t48*t64*t138*t59+1.408762368e-11*
3179         t21*gradb*t48*t61*t295*t59;
3180     t308 = pow(gradb,12.0);
3181     t309 = 1/pow(t150,6.0);
3182     t310 = 1/pow(rhob,18.0);
3183     t311 = 1/pow(rhob,15.33333333333333);
3184     t312 = 1/pow(rhob,12.66666666666667);
3185     t313 = 1/pow(rhob,10.0);
3186     t314 = 1/pow(rhob,7.333333333333333);
3187     t315 = 1/pow(rhob,4.666666666666667);
3188     t316 = -.5098133333333333*t58*t159*t315+.8351680000000001*
3189         t156*t157*t314-1.442084266666667*t153*t154*t313+1.025982151111111*
3190         t149*t151*t312-.2664874666666667*t167*t168*t311+.0226217528888889*
3191         t308*t309*t310;
3192     t317 = 1/pow(t145,2.0);
3193     t318 = pow(t179,2.0);
3194     t319 = 1/pow(t144,4.0);
3195     t320 = 1/pow(t144,3.0);
3196     t321 = 1/pow(rhob,2.333333333333333);
3197     t322 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
3198         1.262325*t8*t9/pow(t141,5.0)+.6946333333333333*t4*t5*t6*t59+
3199         2.754533333333333*t1*t2*t3*t321;
3200     t323 = 1/pow(t161,6.0);
3201     t324 = -.0292238222222222*t58*t165*t315+.0030314638222222*
3202         t156*t164*t314-4.445277866666666e-5*t153*t163*t313+2.582354830222222e-7*
3203         t149*t162*t312-6.7887104e-10*t167*t181*t311+6.82564721777778e-13*
3204         t308*t323*t310;
3205     t325 = -1.169644679491041*t81*t85*t109*t86*t110*t185*
3206         t111;
3207     t326 = -1.169644679491041*t81*t187*t109*t86*t110*t90*
3208         t111;
3209     t327 = pow(t183,2.0);
3210     t328 = t265+t259;
3211     t329 = pow(t184,2.0);
3212     t330 = t260+t264;
3213     t331 = 1.333333333333333*t121*t330+.4444444444444444*
3214         t263*t329+1.333333333333333*t118*t328+.4444444444444444*t257*
3215         t327;
3216     t332 = .0197517897025652*t81*t85*t86*t331*t93;
3217     t333 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t185*
3218         t93;
3219     t334 = .0395035794051304*t81*t187*t86*t185*t93;
3220     t335 = -.0014649244029403*t81*t1*t2*t3*t103*t187*t90*
3221         t93;
3222     t336 = t276+t274-32.0*t125*t127;
3223     t337 = .0197517897025652*t81*t336*t86*t90*t93;
3224     t338 = 2.0*t133*t185*t81*t83*t84;
3225     t339 = -8.0*t127*t133*t81*t84*t90;
3226     t340 = t81*t83*t84*t331*t99;
3227     t341 = -8.0*t125*t185*t81*t83*t99;
3228     t342 = 32.0*t125*t127*t81*t90*t99;
3229     t343 = 2.0*t175*t318*t147*t320*rhob-32.1646831778707*
3230         t317*t318*t147*t319*rhob-1.0*t175*t322*t147*t180*rhob+t70*
3231         (-8.0*t127*t185*t81*t84*t99+t342+t341+t340+t339+t338+t337+
3232         t335+t334+t333+t332+t326+t325+t293+t291+t287+t285+t272+t255+
3233         t253+t251+t250+t247+t243+t237+t236+t234)-8.0*t127*t81*t84*
3234         t90*t99+2.0*t185*t81*t83*t84*t99+.0395035794051304*t81*t187*
3235         t86*t90*t93+.0395035794051304*t81*t85*t86*t185*t93+t230+t229+
3236         t228+t227+t226+t225-2.0*t175*t179*t147*t180-.0014196384888889*
3237         t1*t2*t3*t146*t178+.1369866666666666*t1*t2*t3*t175*t179*t180*
3238         t143;
3239     t344 = .2032741333333333*t58*t68*t315-0.0099165088*t58*
3240         t60*t67*t315+1.25393664e-4*t58*t66*t65*t315-7.26244992e-7*
3241         t58*t64*t63*t315+1.721820672e-9*t58*t61*t138*t315-0.0040495104*
3242         t156*t67*t314+1.344674304e-4*t156*t60*t65*t314-1.613025792e-6*
3243         t156*t66*t63*t314+8.842604544e-9*t156*t64*t138*t314-1.878349824e-11*
3244         t156*t61*t295*t314;
3245     t345 = 0.0030371328*grada*t58*t22*t67*t173-1.008505728e-4*
3246         grada*t58*t22*t60*t65*t173+1.209769344e-6*grada*t58*t22*t66*
3247         t63*t173-6.631953408000001e-9*grada*t58*t22*t64*t138*t173+
3248         1.408762368e-11*grada*t58*t22*t61*t295*t173;
3249     t346 = pow(gradb,11.0);
3250     t347 = 1/pow(rhob,17.0);
3251     t348 = 0.27808*gradb*t159*t173-.5362560000000001*t204*
3252         t157*t172+.9720704000000001*t203*t154*t171-.7185467733333335*
3253         t202*t151*t170+0.193503232*t200*t168*t169-.0169663146666667*
3254         t346*t309*t347;
3255     t349 = .0159402666666667*gradb*t165*t173-.0019246762666667*
3256         t204*t164*t172+3.04622592e-5*t203*t163*t171-1.849678506666667e-7*
3257         t202*t162*t170+4.995547136e-10*t200*t181*t169-5.11923541333333e-13*
3258         t346*t323*t347;
3259     t350 = -0.1108768*gradb*t68*t173+0.0054090048*gradb*t60*
3260         t67*t173-6.839654399999999e-5*gradb*t66*t65*t173+3.96133632e-7*
3261         gradb*t64*t63*t173-9.39174912e-10*gradb*t61*t138*t173+0.0030371328*
3262         t204*t67*t172-1.008505728e-4*t204*t60*t65*t172+1.209769344e-6*
3263         t204*t66*t63*t172-6.631953408000001e-9*t204*t64*t138*t172+
3264         1.408762368e-11*t204*t61*t295*t172;
3265     t351 = 1/pow(rhoa,16.0);
3266     t352 = -0.10428*t32*t22+0.312072*t21*t30*t31-.6195600000000002*
3267         t29*t27*t28+.4879702400000002*t26*t24*t25-0.138765056*t20*
3268         t43*t193+0.012724736*t42*t209*t351;
3269     t353 = -0.0059776*t40*t22+0.0010945856*t21*t39*t31-1.99693696e-5*
3270         t29*t38*t28+1.300171264e-7*t26*t37*t25-3.650674688e-10*t20*
3271         t56*t193+3.83942656e-13*t42*t223*t351;
3272     t354 = 0.0415788*t22*t68-0.0020283768*t22*t60*t67-0.0022778496*
3273         t21*t31*t67+2.5648704e-5*t22*t66*t65+7.563792960000001e-5*
3274         t21*t31*t60*t65-1.48550112e-7*t22*t64*t63-9.073270080000002e-7*
3275         t21*t31*t66*t63+3.52190592e-10*t22*t61*t138+4.973965056000001e-9*
3276         t21*t31*t64*t138-1.056571776e-11*t21*t31*t61*t295;
3277     t355 = -0.0022778496*grada*gradb*t22*t67*t59+7.563792960000001e-5*
3278         grada*gradb*t22*t60*t65*t59-9.073270080000002e-7*grada*gradb*
3279         t22*t66*t63*t59+4.973965056000001e-9*grada*gradb*t22*t64*t138*
3280         t59-1.056571776e-11*grada*gradb*t22*t61*t295*t59;
3281     t356 = 1/pow(rhob,16.0);
3282     t357 = -0.10428*t159*t59+0.312072*t58*t157*t158-.6195600000000002*
3283         t156*t154*t155+.4879702400000002*t153*t151*t152-0.138765056*
3284         t149*t168*t201+0.012724736*t167*t309*t356;
3285     t358 = -0.0059776*t165*t59+0.0010945856*t58*t164*t158-
3286         1.99693696e-5*t156*t163*t155+1.300171264e-7*t153*t162*t152-
3287         3.650674688e-10*t149*t181*t201+3.83942656e-13*t167*t323*t356;
3288     t359 = 0.0415788*
3289         t68*t59-0.0020283768*t60*t67*t59+2.5648704e-5*t66*t65*t59-
3290         1.48550112e-7*t64*t63*t59+3.52190592e-10*t61*t138*t59-0.0022778496*
3291         t58*t67*t158+7.563792960000001e-5*t58*t60*t65*t158-9.073270080000002e-7*
3292         t58*t66*t63*t158+4.973965056000001e-9*t58*t64*t138*t158-1.056571776e-11*
3293         t58*t61*t295*t158;
3294     t360 = pow(grada,14.0);
3295     t361 = 1/pow(t23,7.0);
3296     t362 = 1/pow(rhoa,21.66666666666667);
3297     t363 = 1/pow(rhoa,19.0);
3298     t364 = 1/pow(rhoa,16.33333333333333);
3299     t365 = 1/pow(rhoa,13.66666666666667);
3300     t366 = 1/pow(rhoa,11.0);
3301     t367 = 1/pow(rhoa,8.333333333333334);
3302     t368 = 1/pow(rhoa,5.666666666666667);
3303     t369 = 2.379128888888889*t21*t32*t368-6.396465777777778*
3304         t29*t30*t367+15.31168853333334*t26*t27*t366-15.30310874074074*
3305         t20*t24*t365+6.274903077925926*t42*t43*t364-1.117824796444445*
3306         t208*t209*t363+.0723896092444445*t360*t361*t362;
3307     t370 = 1/pow(t18,3.0);
3308     t371 = pow(t54,3.0);
3309     t372 = 1/pow(t17,6.0);
3310     t373 = 1/pow(t17,5.0);
3311     t374 = 1/pow(rhoa,3.333333333333333);
3312     t375 = -5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
3313         3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t48-
3314         6.427244444444445*t1*t2*t3*t374;
3315     t376 = 1/pow(t36,7.0);
3316     t377 = 0.136377837037037*t21*t40*t368-.0225424554666667*
3317         t29*t39*t367+5.091990148740739e-4*t26*t38*t366-4.693471702281481e-6*
3318         t20*t37*t365+2.142740322228149e-8*t42*t56*t364-4.84926204586667e-11*
3319         t208*t223*t363+4.36841421937778e-14*t360*t376*t362;
3320     t378 = 48.2454729664533*t231*t72*t232*t233;
3321     t379 = -6.0*t231*t72*t235*t107;
3322     t380 = -.4273999999999999*t1*t2*t3*t103*t105*t106*t107;
3323     t381 = 3.0*
3324         t242*t72*t106*t107;
3325     t382 = -51.9472676981276*t81*t85*t244*t86*t245*t90*t246;
3326     t383 = 3.508934038473122*
3327         t81*t85*t244*t86*t249*t90*t111;
3328     t384 = .1301229705933783*t81*t1*t2*t3*t103*t85*t109*t110*
3329         t90*t111;
3330     t385 = -1.754467019236561*t81*t85*t252*t86*t110*t90*t111;
3331     t386 = -
3332         .0177177245333333*t1*t2*t3*t240*t79;
3333     t387 = .0029298488058805*t81*t1*t2*t3*t240*t85*t90*t93;
3334     t388 = 3.0*
3335         t284*t81*t83*t84*t90;
3336     t389 = -24.0*t125*t133*t81*t83*t90;
3337     t390 = 60.0*t273*t81*t83*t90*t99;
3338     t391 = 36.0*t275*t81*t84*t90*t99;
3339     t392 = pow(t105,3.0);
3340     t393 = 1/pow(t77,6.0);
3341     t394 = 1/pow(t78,3.0);
3342     t395 = 517.2501470570614*t392*t72*t393*t394;
3343     t396 = 1/pow(t77,5.0);
3344     t397 = -96.4909459329066*t392*t72*t396*t233;
3345     t398 = -3.43668585764369*t1*t2*t3*t103*t231*t232*t233;
3346     t399 = 48.2454729664533*
3347         t242*t105*t72*t232*t233;
3348     t400 = 6.0*t392*t72*t232*t107;
3349     t401 = .4273999999999999*t1*t2*t3*t103*t231*t235*t107;
3350     t402 = -
3351         6.0*t242*t105*t72*t235*t107;
3352     t403 = -0.2137*t1*t2*t3*t103*t242*t106*t107;
3353     t404 = .2849333333333333*t1*t2*t3*t240*t105*t106*t107;
3354     t405 = 1/
3355         pow(t70,3.666666666666667);
3356     t406 = 1/pow(t74,7.0);
3357     t407 = 1/pow(t70,3.333333333333333);
3358     t408 = 1/pow(t70,3.166666666666667);
3359     t409 = -3.200040277777777*t14*t15*t16*t408-3.720474074074074*
3360         t1*t2*t3*t407-1.5358125*t8*t9*t406-1.460562962962963*t4*t5*
3361         t6*t405;
3362     t410 = .9999999999999999*t409*t72*t106*t107;
3363     t411 = pow(t109,3.0);
3364     t412 = 1/pow(t91,6.0);
3365     t413 = 1/pow(t92,3.0);
3366     t414 = -1025.38970210078*t81*t85*t411*t86*t412*t90*t413;
3367     t415 = -
3368         51.9472676981276*t81*t85*t244*t86*t245*t122*t246;
3369     t416 = 1/pow(t91,5.0);
3370     t417 = 103.8945353962552*t81*t85*t411*t86*t416*t90*t246;
3371     t418 = 1.926377843805565*
3372         t81*t1*t2*t3*t103*t85*t244*t245*t90*t246;
3373     t419 = -51.9472676981276*t81*t85*t252*t109*t86*t245*t90*
3374         t246;
3375     t420 = -51.9472676981276*t81*t128*t244*t86*t245*t90*t246;
3376     t421 = 3.508934038473122*
3377         t81*t85*t244*t86*t249*t122*t111;
3378     t422 = .1301229705933783*t81*t1*t2*t3*t103*t85*t109*t110*
3379         t122*t111;
3380     t423 = -1.754467019236561*t81*t85*t252*t86*t110*t122*
3381         t111;
3382     t424 = -3.508934038473122*t81*t85*t411*t86*t245*t90*t111;
3383     t425 = -
3384         .1301229705933783*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
3385     t426 = 3.508934038473122*
3386         t81*t85*t252*t109*t86*t249*t90*t111;
3387     t427 = 3.508934038473122*t81*t128*t244*t86*t249*t90*t111;
3388     t428 = .0650614852966891*
3389         t81*t1*t2*t3*t103*t85*t252*t110*t90*t111;
3390     t429 = .1301229705933783*t81*t1*t2*t3*t103*t128*t109*
3391         t110*t90*t111;
3392     t430 = -.0867486470622522*t81*t1*t2*t3*t240*t85*t109*
3393         t110*t90*t111;
3394     t431 = -4.36336574074074*t14*t15*t16*t408-3.757288888888889*
3395         t1*t2*t3*t407-0.82524375*t8*t9*t406-1.471733333333333*t4*t5*
3396         t6*t405;
3397     t432 = -.5848223397455204*t81*t85*t431*t86*t110*t90*t111;
3398     t433 = -
3399         1.754467019236561*t81*t128*t252*t86*t110*t90*t111;
3400     t434 = .0137804524148148*t1*t2*t3*t407*t79;
3401     t435 = pow(t117,3.0);
3402     t436 = 1/pow(t88,1.666666666666667);
3403     t437 = 6.0*t82*t84;
3404     t438 = -6.0*t258;
3405     t439 = t438+t437;
3406     t440 = pow(t120,3.0);
3407     t441 = 1/pow(t89,1.666666666666667);
3408     t442 = -6.0*t82*t84;
3409     t443 = 6.0*t258;
3410     t444 = t443+t442;
3411     t445 = 1.333333333333333*t121*t444-.2962962962962963*
3412         t440*t441+1.333333333333333*t118*t439-.2962962962962963*t435*
3413         t436+1.333333333333333*t120*t263*t266+1.333333333333333*t117*
3414         t257*t261;
3415     t446 = .0197517897025652*t81*t85*t86*t445*t93;
3416     t447 = .0592553691076956*t81*t128*t86*t267*t93;
3417     t448 = .0029298488058805*t81*t1*t2*t3*t240*t85*t122*t93;
3418     t449 = .0592553691076956*
3419         t81*t277*t86*t122*t93;
3420     t450 = .0029298488058805*t81*t1*t2*t3*t240*t128*t90*t93;
3421     t451 = -
3422         .0022787712934626*t81*t1*t2*t3*t407*t85*t90*t93;
3423     t452 = 1/pow(t70,7.0);
3424     t453 = 120.0*t452*t83;
3425     t454 = 144.0*t125*t275;
3426     t455 = -24.0*t82*t84;
3427     t456 = t455+t454+t453-240.0*t127*t273;
3428     t457 = .0197517897025652*t81*t456*t86*t90*t93;
3429     t458 = pow(t130,3.0);
3430     t459 = 1/pow(t96,6.0);
3431     t460 = 1/pow(t97,3.0);
3432     t461 = 1/pow(t96,5.0);
3433     t462 = -5.948240277777777*t14*t15*t16*t408-6.427244444444445*
3434         t1*t2*t3*t407-3.1558125*t8*t9*t406-1.852355555555556*t4*t5*
3435         t6*t405;
3436     t463 = .0066249796148148*t1*t2*t3*t407*t98+6.0*t132*t280*
3437         t458*t95-6.0*t130*t132*t282*t283*t95-.0137804524148148*t1*
3438         t2*t3*t407*t79+2069.133687865597*t458*t95*t459*t460-517.2501470570614*
3439         t392*t72*t393*t394-192.9880990672242*t458*t95*t461*t281+96.4940495336121*
3440         t283*t130*t95*t280*t281-6.60919909938887*t1*t2*t3*t103*t279*
3441         t280*t281+96.4909459329066*t392*t72*t396*t233-48.2454729664533*
3442         t242*t105*t72*t232*t233+3.43668585764369*t1*t2*t3*t103*t231*
3443         t232*t233+.4109599999999999*t1*t2*t3*t103*t279*t282*t132+t462*
3444         t95*t131*t132-0.20548*t1*t2*t3*t103*t283*t131*t132+.2739733333333333*
3445         t1*t2*t3*t240*t130*t131*t132+6.0*t242*t105*t72*t235*t107-.4273999999999999*
3446         t1*t2*t3*t103*t231*t235*t107-6.0*t392*t72*t232*t107-.9999999999999999*
3447         t409*t72*t106*t107+0.2137*t1*t2*t3*t103*t242*t106*t107-.2849333333333333*
3448         t1*t2*t3*t240*t105*t106*t107;
3449     t464 = t81*t83*t84*t90*t463;
3450     t465 = 3.0*t122*t284*t81*t83*t84;
3451     t466 = -12.0*t125*t284*t81*t83*t90;
3452     t467 = -24.0*t122*t125*t133*t81*t83;
3453     t468 = 24.0*t122*t127*t133*t81*t84;
3454     t469 = 60.0*t133*t273*t81*t83*t90;
3455     t470 = 36.0*t133*t275*t81*t84*t90;
3456     t471 = t81*t83*t84*t445*t99;
3457     t472 = 60.0*t122*t273*t81*t83*t99;
3458     t473 = -96.0*t122*t125*t127*t81*t99;
3459     t474 = 36.0*t122*t275*t81*t84*t99;
3460     t475 = -120.0*t452*t81*t83*t90*t99;
3461     t476 = -144.0*t125*t275*t81*t90*t99;
3462     t477 = 24.0*t81*t82*t84*t90*t99;
3463     t478 = -1.0*t50*t375*t34*t55*rhoa+192.9880990672242*t217*
3464         t371*t34*t373*rhoa-2069.133687865597*t370*t371*t34*t372*rhoa+
3465         6.0*t50*t222*t54*t34*t220*rhoa-96.4940495336121*t217*t222*
3466         t54*t34*t219*rhoa-6.0*t50*t371*t34*t219*rhoa+t70*(240.0*t127*
3467         t273*t81*t90*t99+12.0*t127*t267*t81*t84*t99-12.0*t125*t267*
3468         t81*t83*t99-.0021973866044104*t81*t1*t2*t3*t103*t277*t90*t93-
3469         .0021973866044104*t81*t1*t2*t3*t103*t85*t267*t93-.0043947732088208*
3470         t81*t1*t2*t3*t103*t128*t122*t93+12.0*t127*t284*t81*t84*t90-
3471         96.0*t125*t127*t133*t81*t90+3.0*t133*t267*t81*t83*t84+t477+
3472         t476+t475+t474+t473+t472+t471+t470+t469+t468+t467+t466+t465+
3473         t464+t457+t451+t450+t449+t448+t447+t446+t434+t433+t432+t430+
3474         t429+t428+t427+t426+t425+t424+t423+t422+t421+t420+t419+t418+
3475         t417+t415+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
3476         t395-1.754467019236561*t81*t277*t109*t86*t110*t90*t111-1.754467019236561*
3477         t81*t85*t109*t86*t110*t267*t111-3.508934038473122*t81*t128*
3478         t109*t86*t110*t122*t111)-96.0*t125*t127*t81*t90*t99+3.0*t267*
3479         t81*t83*t84*t99+24.0*t122*t127*t81*t84*t99-24.0*t122*t125*
3480         t81*t83*t99+.0592553691076956*t81*t277*t86*t90*t93-.0043947732088208*
3481         t81*t1*t2*t3*t103*t128*t90*t93+.0592553691076956*t81*t85*t86*
3482         t267*t93+.1185107382153912*t81*t128*t86*t122*t93-.0043947732088208*
3483         t81*t1*t2*t3*t103*t85*t122*t93+24.0*t127*t133*t81*t84*t90+
3484         6.0*t122*t133*t81*t83*t84-3.0*t50*t222*t34*t55+.1369866666666666*
3485         t1*t2*t3*t50*t54*t55*t53+t391+t390+t389+t388+t387+t386+t385+
3486         t384+t383+t382+t381+t380+t379+t378+.0018928513185185*t1*t2*
3487         t3*t19*t221+6.0*t50*t218*t34*t220-96.4940495336121*t217*t218*
3488         t34*t219+0.20548*t1*t2*t3*t50*t222*t55*t12-.4109599999999999*
3489         t1*t2*t3*t50*t218*t220*t12+6.60919909938887*t1*t2*t3*t217*
3490         t218*t219*t12-3.508934038473122*t81*t128*t109*t86*t110*t90*
3491         t111-3.508934038473122*t81*t85*t109*t86*t110*t122*t111;
3492     t479 = 1/pow(t62,7.0);
3493     t480 = -.9486126222222223*t21*t368*t68+.0462770410666667*
3494         t21*t368*t60*t67+0.0445446144*t29*t367*t67-5.85170432e-4*t21*
3495         t368*t66*t65-0.0014791417344*t29*t367*t60*t65-2.440820736e-4*
3496         t26*t366*t65+3.389143296000001e-6*t21*t368*t64*t63+1.7743283712e-5*
3497         t29*t367*t66*t63+7.5286204416e-6*t26*t366*t60*t63-8.035163136e-9*
3498         t21*t368*t61*t138-9.726864998400001e-8*t29*t367*t64*t138-8.698724352e-8*
3499         t26*t366*t66*t138+2.0661848064e-10*t29*t367*t61*t295+4.5388283904e-10*
3500         t26*t366*t64*t295-9.0160791552e-13*t26*t366*t61*t479;
3501     t481 = .0395035794051304*t81*t85*t86*t297*t93;
3502     t482 = .0395035794051304*t81*t128*t86*t185*t93;
3503     t483 = .0395035794051304*t81*t187*t86*t122*t93;
3504     t484 = .0395035794051304*t81*t298*t86*t90*t93;
3505     t485 = 2.0*t297*t81*t83*t84*t99;
3506     t486 = -1.169644679491041*t81*t85*t109*t86*t110*t297*
3507         t111;
3508     t487 = -1.169644679491041*t81*t128*t109*t86*t110*t185*
3509         t111;
3510     t488 = -1.169644679491041*t81*t187*t109*t86*t110*t122*
3511         t111;
3512     t489 = -1.169644679491041*t81*t298*t109*t86*t110*t90*
3513         t111;
3514     t490 = -.0014649244029403*t81*t1*t2*t3*t103*t85*t297*
3515         t93;
3516     t491 = t437-2.0*t258;
3517     t492 = t442+2.0*t258;
3518     t493 = 1.777777777777778*t120*t258*t263*t82-1.777777777777778*
3519         t117*t257*t258*t82+1.333333333333333*t121*t492+1.333333333333333*
3520         t118*t491-.2962962962962963*t184*t262*t441-.2962962962962963*
3521         t183*t256*t436+.4444444444444444*t184*t263*t266+.4444444444444444*
3522         t183*t257*t261;
3523     t494 = -.0014649244029403*t81*t1*t2*t3*t103*t128*t185*
3524         t93;
3525     t495 = -.0014649244029403*t81*t1*t2*t3*t103*t187*t122*
3526         t93;
3527     t496 = -.0014649244029403*t81*t1*t2*t3*t103*t298*t90*
3528         t93;
3529     t497 = -48.0*t125*t275;
3530     t498 = 24.0*t82*t84;
3531     t499 = t498+t497+t453-80.0*t127*t273;
3532     t500 = 2.0*t133*t297*t81*t83*t84;
3533     t501 = -12.0*t133*t275*t81*t84*t90;
3534     t502 = -8.0*t125*t297*t81*t83*t99;
3535     t503 = -24.0*t122*t275*t81*t84*t99;
3536     t504 = 48.0*t125*t275*t81*t90*t99;
3537     t505 = -24.0*t81*t82*t84*t90*t99;
3538     t506 = t70*(80.0*t127*t273*t81*t90*t99+8.0*t127*t297*
3539         t81*t84*t99+12.0*t185*t275*t81*t84*t99-4.0*t127*t267*t81*t84*
3540         t99+20.0*t185*t273*t81*t83*t99+40.0*t122*t273*t81*t83*t99-
3541         4.0*t125*t267*t81*t83*t99-32.0*t125*t127*t185*t81*t99+t81*
3542         t83*t84*t493*t99+.0197517897025652*t81*t499*t86*t90*t93-7.324622014701263e-4*
3543         t81*t1*t2*t3*t103*t277*t90*t93+9.766162686268349e-4*t81*t1*
3544         t2*t3*t240*t187*t90*t93+.0019532325372537*t81*t1*t2*t3*t240*
3545         t128*t90*t93+.0197517897025652*t81*t85*t86*t493*t93+.0395035794051304*
3546         t81*t128*t86*t297*t93+.0197517897025652*t81*t187*t86*t267*
3547         t93-7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t267*t93+.0197517897025652*
3548         t81*t277*t86*t185*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
3549         t85*t185*t93+.0395035794051304*t81*t298*t86*t122*t93+.0019532325372537*
3550         t81*t1*t2*t3*t240*t85*t122*t93-.0014649244029403*t81*t1*t2*
3551         t3*t103*t128*t122*t93+4.0*t127*t284*t81*t84*t90-32.0*t125*
3552         t127*t133*t81*t90+2.0*t122*t284*t81*t83*t84+8.0*t127*t133*
3553         t185*t81*t84-8.0*t125*t133*t185*t81*t83-16.0*t122*t125*t133*
3554         t81*t83+t505+t504+t503+t502+t501+t500+t496+t495+t494+t490+
3555         t489+t488+t487+t486+t475+t469+t466+t464+t451+t434+t432+t430+
3556         t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+t402+
3557         t401+t400+t399+t398+t397+t395+t81*t83*t84*t185*t284-17.31575589937587*
3558         t81*t187*t244*t86*t245*t90*t246-34.63151179875173*t81*t128*
3559         t244*t86*t245*t90*t246-17.31575589937587*t81*t85*t244*t86*
3560         t245*t185*t246-34.63151179875173*t81*t85*t244*t86*t245*t122*
3561         t246+t81*t83*t84*t267*t133+1.169644679491041*t81*t187*t244*
3562         t86*t249*t90*t111+2.339289358982082*t81*t128*t244*t86*t249*
3563         t90*t111-.5848223397455204*t81*t187*t252*t86*t110*t90*t111-
3564         1.169644679491041*t81*t128*t252*t86*t110*t90*t111-.5848223397455204*
3565         t81*t277*t109*t86*t110*t90*t111+.0433743235311261*t81*t1*t2*
3566         t3*t103*t187*t109*t110*t90*t111+.0867486470622522*t81*t1*t2*
3567         t3*t103*t128*t109*t110*t90*t111-.5848223397455204*t81*t85*
3568         t109*t86*t110*t267*t111+1.169644679491041*t81*t85*t244*t86*
3569         t249*t185*t111-.5848223397455204*t81*t85*t252*t86*t110*t185*
3570         t111+.0433743235311261*t81*t1*t2*t3*t103*t85*t109*t110*t185*
3571         t111+2.339289358982082*t81*t85*t244*t86*t249*t122*t111-1.169644679491041*
3572         t81*t85*t252*t86*t110*t122*t111-1.169644679491041*t81*t128*
3573         t109*t86*t110*t122*t111+.0867486470622522*t81*t1*t2*t3*t103*
3574         t85*t109*t110*t122*t111)+8.0*t127*t185*t81*t84*t99-16.0*t122*
3575         t125*t81*t83*t99-.0029298488058805*t81*t1*t2*t3*t103*t128*
3576         t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t85*t122*t93+4.0*
3577         t122*t133*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+
3578         t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+t341+t338+
3579         t335+t333+t326+t325+t299+t292+t289+t288+t278+t270+t268-2.339289358982082*
3580         t81*t128*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
3581         t109*t86*t110*t122*t111;
3582     t507 = 0.0148482048*t21*t58*t215*t67*t173-4.930472448e-4*
3583         t21*t58*t215*t60*t65*t173-2.440820736e-4*t29*t58*t214*t65*
3584         t173+5.914427903999999e-6*t21*t58*t215*t66*t63*t173+7.5286204416e-6*
3585         t29*t58*t214*t60*t63*t173-3.2422883328e-8*t21*t58*t215*t64*
3586         t138*t173-8.698724352e-8*t29*t58*t214*t66*t138*t173+6.887282688e-11*
3587         t21*t58*t215*t61*t295*t173+4.5388283904e-10*t29*t58*t214*t64*
3588         t295*t173-9.0160791552e-13*t29*t58*t214*t61*t479*t173;
3589     t508 = pow(grada,13.0);
3590     t509 = 1/pow(rhoa,20.66666666666667);
3591     t510 = -1.019626666666667*grada*t32*t215+3.544597333333334*
3592         t196*t30*t214-9.320640000000001*t195*t27*t213+9.938358328888892*
3593         t194*t24*t212-4.306446108444446*t192*t43*t211+.8044359680000001*
3594         t302*t209*t210-.0542922069333334*t508*t361*t509;
3595     t511 = -.0584476444444444*grada*t40*t215+.0123596458666667*
3596         t196*t39*t214-3.152200931555555e-4*t195*t38*t213+3.132750552177778e-6*
3597         t194*t37*t212-1.505224585671111e-8*t192*t56*t211+3.53456182613333e-11*
3598         t302*t223*t210-3.27631066453333e-14*t508*t376*t509;
3599     t512 = .4065482666666667*grada*t215*t68-0.0198330176*
3600         grada*t215*t60*t67-0.0273341952*t196*t214*t67+2.50787328e-4*
3601         grada*t215*t66*t65+9.076551552e-4*t196*t214*t60*t65+1.830615552e-4*
3602         t195*t213*t65-1.452489984e-6*grada*t215*t64*t63-1.0887924096e-5*
3603         t196*t214*t66*t63-5.6464653312e-6*t195*t213*t60*t63+3.443641344e-9*
3604         grada*t215*t61*t138+5.968758067200001e-8*t196*t214*t64*t138+
3605         6.524043264e-8*t195*t213*t66*t138-1.2678861312e-10*t196*t214*
3606         t61*t295-3.4041212928e-10*t195*t213*t64*t295+6.7620593664e-13*
3607         t195*t213*t61*t479;
3608     t513 = -0.0111361536*t21*gradb*t215*t67*t59+3.697854336e-4*
3609         t21*gradb*t215*t60*t65*t59+1.830615552e-4*t29*gradb*t214*t65*
3610         t59-4.435820928e-6*t21*gradb*t215*t66*t63*t59-5.6464653312e-6*
3611         t29*gradb*t214*t60*t63*t59+2.431716249600001e-8*t21*gradb*
3612         t215*t64*t138*t59+6.524043264e-8*t29*gradb*t214*t66*t138*t59-
3613         5.165462016e-11*t21*gradb*t215*t61*t295*t59-3.4041212928e-10*
3614         t29*gradb*t214*t64*t295*t59+6.7620593664e-13*t29*gradb*t214*
3615         t61*t479*t59;
3616     t514 = -8.0*t121*t82*t84+8.0*t118*t82*t84+1.777777777777778*
3617         t184*t258*t263*t82-1.777777777777778*t183*t257*t258*t82-.2962962962962963*
3618         t120*t329*t441-.2962962962962963*t117*t327*t436+.4444444444444444*
3619         t120*t263*t330+.4444444444444444*t117*t257*t328-2.666666666666667*
3620         t121*t258+2.666666666666667*t118*t258;
3621     t515 = t497+t455+t453+80.0*t127*t273;
3622     t516 = -24.0*t185*t275*t81*t84*t99;
3623     t517 = t70*(-80.0*t127*t273*t81*t90*t99+4.0*t127*t331*
3624         t81*t84*t99-8.0*t127*t297*t81*t84*t99+12.0*t122*t275*t81*t84*
3625         t99-4.0*t125*t331*t81*t83*t99+40.0*t185*t273*t81*t83*t99+20.0*
3626         t122*t273*t81*t83*t99+32.0*t122*t125*t127*t81*t99+t81*t83*
3627         t84*t514*t99+.0197517897025652*t81*t515*t86*t90*t93-7.324622014701263e-4*
3628         t81*t1*t2*t3*t103*t336*t90*t93+.0019532325372537*t81*t1*t2*
3629         t3*t240*t187*t90*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
3630         t128*t90*t93+.0197517897025652*t81*t85*t86*t514*t93+.0197517897025652*
3631         t81*t128*t86*t331*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*
3632         t85*t331*t93+.0395035794051304*t81*t187*t86*t297*t93+.0395035794051304*
3633         t81*t298*t86*t185*t93+.0019532325372537*t81*t1*t2*t3*t240*
3634         t85*t185*t93-.0014649244029403*t81*t1*t2*t3*t103*t187*t185*
3635         t93+.0197517897025652*t81*t336*t86*t122*t93+9.766162686268349e-4*
3636         t81*t1*t2*t3*t240*t85*t122*t93-4.0*t127*t284*t81*t84*t90+32.0*
3637         t125*t127*t133*t81*t90+2.0*t185*t284*t81*t83*t84-8.0*t122*
3638         t127*t133*t81*t84-16.0*t125*t133*t185*t81*t83-8.0*t122*t125*
3639         t133*t81*t83+t516+t504+t502+t501+t500+t496+t495+t494+t490+
3640         t489+t488+t487+t486+t477+t475+t469+t466+t464+t451+t434+t432+
3641         t430+t428+t426+t425+t424+t419+t418+t417+t414+t410+t404+t403+
3642         t402+t401+t400+t399+t398+t397+t395+t81*t83*t84*t122*t284-34.63151179875173*
3643         t81*t187*t244*t86*t245*t90*t246-17.31575589937587*t81*t128*
3644         t244*t86*t245*t90*t246-34.63151179875173*t81*t85*t244*t86*
3645         t245*t185*t246-17.31575589937587*t81*t85*t244*t86*t245*t122*
3646         t246+t81*t83*t84*t331*t133+2.339289358982082*t81*t187*t244*
3647         t86*t249*t90*t111+1.169644679491041*t81*t128*t244*t86*t249*
3648         t90*t111-1.169644679491041*t81*t187*t252*t86*t110*t90*t111-
3649         .5848223397455204*t81*t128*t252*t86*t110*t90*t111-.5848223397455204*
3650         t81*t336*t109*t86*t110*t90*t111+.0867486470622522*t81*t1*t2*
3651         t3*t103*t187*t109*t110*t90*t111+.0433743235311261*t81*t1*t2*
3652         t3*t103*t128*t109*t110*t90*t111-.5848223397455204*t81*t85*
3653         t109*t86*t110*t331*t111+2.339289358982082*t81*t85*t244*t86*
3654         t249*t185*t111-1.169644679491041*t81*t85*t252*t86*t110*t185*
3655         t111-1.169644679491041*t81*t187*t109*t86*t110*t185*t111+.0867486470622522*
3656         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111+1.169644679491041*
3657         t81*t85*t244*t86*t249*t122*t111-.5848223397455204*t81*t85*
3658         t252*t86*t110*t122*t111+.0433743235311261*t81*t1*t2*t3*t103*
3659         t85*t109*t110*t122*t111)-8.0*t122*t127*t81*t84*t99-16.0*t125*
3660         t185*t81*t83*t99-.0029298488058805*t81*t1*t2*t3*t103*t187*
3661         t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t85*t185*t93+4.0*
3662         t133*t185*t81*t83*t84+t485+t484+t483+t482+t481+t390+t389+t388+
3663         t387+t386+t385+t384+t383+t382+t381+t380+t379+t378+t342+t340+
3664         t339+t337+t334+t332+t299+t290+t286+t271+t269+t254+t248-2.339289358982082*
3665         t81*t187*t109*t86*t110*t90*t111-2.339289358982082*t81*t85*
3666         t109*t86*t110*t185*t111;
3667     t518 = 0.0148482048*t21*t58*t48*t67*t315-4.930472448e-4*
3668         t21*t58*t48*t60*t65*t315+5.914427903999999e-6*t21*t58*t48*
3669         t66*t63*t315-3.2422883328e-8*t21*t58*t48*t64*t138*t315+6.887282688e-11*
3670         t21*t58*t48*t61*t295*t315-2.440820736e-4*t21*t156*t48*t65*
3671         t314+7.5286204416e-6*t21*t156*t48*t60*t63*t314-8.698724352e-8*
3672         t21*t156*t48*t66*t138*t314+4.5388283904e-10*t21*t156*t48*t64*
3673         t295*t314-9.0160791552e-13*t21*t156*t48*t61*t479*t314;
3674     t519 = -0.0080990208*grada*t58*t48*t67*t173+2.689348608e-4*
3675         grada*t58*t48*t60*t65*t173+1.830615552e-4*t196*t58*t47*t65*
3676         t173-3.226051584e-6*grada*t58*t48*t66*t63*t173-5.6464653312e-6*
3677         t196*t58*t47*t60*t63*t173+1.7685209088e-8*grada*t58*t48*t64*
3678         t138*t173+6.524043264e-8*t196*t58*t47*t66*t138*t173-3.756699648e-11*
3679         grada*t58*t48*t61*t295*t173-3.4041212928e-10*t196*t58*t47*
3680         t64*t295*t173+6.7620593664e-13*t196*t58*t47*t61*t479*t173;
3681     t520 = -
3682         0.0080990208*t21*gradb*t48*t67*t173+2.689348608e-4*t21*gradb*
3683         t48*t60*t65*t173-3.226051584e-6*t21*gradb*t48*t66*t63*t173+
3684         1.7685209088e-8*t21*gradb*t48*t64*t138*t173-3.756699648e-11*
3685         t21*gradb*t48*t61*t295*t173+1.830615552e-4*t21*t204*t48*t65*
3686         t172-5.6464653312e-6*t21*t204*t48*t60*t63*t172+6.524043264e-8*
3687         t21*t204*t48*t66*t138*t172-3.4041212928e-10*t21*t204*t48*t64*
3688         t295*t172+6.7620593664e-13*t21*t204*t48*t61*t479*t172;
3689     t521 = 1/pow(rhoa,19.66666666666667);
3690     t522 = 0.27808*t32*t48-1.72*t21*t30*t47+5.289356800000001*
3691         t29*t27*t46-6.196311893333335*t26*t24*t45+2.891203925333334*
3692         t20*t43*t44-.5736359253333334*t42*t209*t303+0.0407191552*t208*
3693         t361*t521;
3694     t523 = .0159402666666667*t40*t48-.0059015509333333*t21*
3695         t39*t47+1.831061162666666e-4*t29*t38*t46-2.025869175466667e-6*
3696         t26*t37*t45+1.041496364373334e-8*t20*t56*t44-2.56133474986667e-11*
3697         t42*t223*t303+2.4572329984e-14*t208*t376*t521;
3698     t524 = -0.1108768*t48*t68+0.0054090048*t48*t60*t67+0.015185664*
3699         t21*t47*t67-6.839654399999999e-5*t48*t66*t65-5.04252864e-4*
3700         t21*t47*t60*t65-1.372961664e-4*t29*t46*t65+3.96133632e-7*t48*
3701         t64*t63+6.04884672e-6*t21*t47*t66*t63+4.2348489984e-6*t29*
3702         t46*t60*t63-9.39174912e-10*t48*t61*t138-3.315976704e-8*t21*
3703         t47*t64*t138-4.893032448e-8*t29*t46*t66*t138+7.04381184e-11*
3704         t21*t47*t61*t295+2.5530909696e-10*t29*t46*t64*t295-5.0715445248e-13*
3705         t29*t46*t61*t479;
3706     t525 = 0.0060742656*grada*gradb*t48*t67*t59-2.017011456e-4*
3707         grada*gradb*t48*t60*t65*t59-1.372961664e-4*t196*gradb*t47*
3708         t65*t59+2.419538688e-6*grada*gradb*t48*t66*t63*t59+4.2348489984e-6*
3709         t196*gradb*t47*t60*t63*t59-1.3263906816e-8*grada*gradb*t48*
3710         t64*t138*t59-4.893032448e-8*t196*gradb*t47*t66*t138*t59+2.817524736e-11*
3711         grada*gradb*t48*t61*t295*t59+2.5530909696e-10*t196*gradb*t47*
3712         t64*t295*t59-5.0715445248e-13*t196*gradb*t47*t61*t479*t59;
3713     t526 = 0.0030371328*
3714         t21*t48*t67*t59-1.008505728e-4*t21*t48*t60*t65*t59+1.209769344e-6*
3715         t21*t48*t66*t63*t59-6.631953408000001e-9*t21*t48*t64*t138*
3716         t59+1.408762368e-11*t21*t48*t61*t295*t59-1.372961664e-4*t21*
3717         t58*t48*t65*t158+4.2348489984e-6*t21*t58*t48*t60*t63*t158-
3718         4.893032448e-8*t21*t58*t48*t66*t138*t158+2.5530909696e-10*
3719         t21*t58*t48*t64*t295*t158-5.0715445248e-13*t21*t58*t48*t61*
3720         t479*t158;
3721     t527 = pow(gradb,14.0);
3722     t528 = 1/pow(t150,7.0);
3723     t529 = 1/pow(rhob,21.66666666666667);
3724     t530 = 1/pow(rhob,19.0);
3725     t531 = 1/pow(rhob,16.33333333333333);
3726     t532 = 1/pow(rhob,13.66666666666667);
3727     t533 = 1/pow(rhob,11.0);
3728     t534 = 1/pow(rhob,8.333333333333334);
3729     t535 = 1/pow(rhob,5.666666666666667);
3730     t536 = 2.379128888888889*t58*t159*t535-6.396465777777778*
3731         t156*t157*t534+15.31168853333334*t153*t154*t533-15.30310874074074*
3732         t149*t151*t532+6.274903077925926*t167*t168*t531-1.117824796444445*
3733         t308*t309*t530+.0723896092444445*t527*t528*t529;
3734     t537 = 1/pow(t145,3.0);
3735     t538 = pow(t179,3.0);
3736     t539 = 1/pow(t144,6.0);
3737     t540 = 1/pow(t144,5.0);
3738     t541 = 1/pow(rhob,3.333333333333333);
3739     t542 = -5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
3740         3.1558125*t8*t9/pow(t141,7.0)-6.427244444444445*t1*t2*t3*t541-
3741         1.852355555555556*t4*t5*t6*t173;
3742     t543 = 1/pow(t161,7.0);
3743     t544 = 0.136377837037037*t58*t165*t535-.0225424554666667*
3744         t156*t164*t534+5.091990148740739e-4*t153*t163*t533-4.693471702281481e-6*
3745         t149*t162*t532+2.142740322228149e-8*t167*t181*t531-4.84926204586667e-11*
3746         t308*t323*t530+4.36841421937778e-14*t527*t543*t529;
3747     t545 = -51.9472676981276*t81*t85*t244*t86*t245*t185*t246;
3748     t546 = -
3749         51.9472676981276*t81*t187*t244*t86*t245*t90*t246;
3750     t547 = 3.508934038473122*t81*t85*t244*t86*t249*t185*t111;
3751     t548 = .1301229705933783*
3752         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111;
3753     t549 = -1.754467019236561*t81*t85*t252*t86*t110*t185*
3754         t111;
3755     t550 = 3.508934038473122*t81*t187*t244*t86*t249*t90*t111;
3756     t551 = .1301229705933783*
3757         t81*t1*t2*t3*t103*t187*t109*t110*t90*t111;
3758     t552 = -1.754467019236561*t81*t187*t252*t86*t110*t90*
3759         t111;
3760     t553 = pow(t183,3.0);
3761     t554 = t443+t437;
3762     t555 = pow(t184,3.0);
3763     t556 = t438+t442;
3764     t557 = 1.333333333333333*t121*t556-.2962962962962963*
3765         t441*t555+1.333333333333333*t118*t554-.2962962962962963*t436*
3766         t553+1.333333333333333*t184*t263*t330+1.333333333333333*t183*
3767         t257*t328;
3768     t558 = .0197517897025652*t81*t85*t86*t557*t93;
3769     t559 = .0592553691076956*t81*t187*t86*t331*t93;
3770     t560 = .0029298488058805*t81*t1*t2*t3*t240*t85*t185*t93;
3771     t561 = .0592553691076956*
3772         t81*t336*t86*t185*t93;
3773     t562 = .0029298488058805*t81*t1*t2*t3*t240*t187*t90*t93;
3774     t563 = t498+
3775         t454+t453+240.0*t127*t273;
3776     t564 = .0197517897025652*t81*t563*t86*t90*t93;
3777     t565 = 3.0*t185*t284*t81*t83*t84;
3778     t566 = -24.0*t125*t133*t185*t81*t83;
3779     t567 = -24.0*t127*t133*t185*t81*t84;
3780     t568 = t81*t83*t84*t557*t99;
3781     t569 = 60.0*t185*t273*t81*t83*t99;
3782     t570 = 96.0*t125*t127*t185*t81*t99;
3783     t571 = 36.0*t185*t275*t81*t84*t99;
3784     t572 = 192.9880990672242*t317*t538*t147*t540*rhob-2069.133687865597*
3785         t537*t538*t147*t539*rhob+6.0*t175*t322*t179*t147*t320*rhob-
3786         6.0*t175*t538*t147*t319*rhob-96.4940495336121*t317*t322*t179*
3787         t147*t319*rhob-1.0*t175*t542*t147*t180*rhob+t70*(-240.0*t127*
3788         t273*t81*t90*t99-12.0*t127*t331*t81*t84*t99-12.0*t125*t331*
3789         t81*t83*t99-.0021973866044104*t81*t1*t2*t3*t103*t336*t90*t93-
3790         .0021973866044104*t81*t1*t2*t3*t103*t85*t331*t93-.0043947732088208*
3791         t81*t1*t2*t3*t103*t187*t185*t93-12.0*t127*t284*t81*t84*t90+
3792         96.0*t125*t127*t133*t81*t90+3.0*t133*t331*t81*t83*t84+t571+
3793         t570+t569+t568+t567+t566+t565+t564+t562+t561+t560+t559+t558+
3794         t552+t551+t550+t549+t548+t547+t546+t545+t505+t476+t475+t470+
3795         t469+t466+t464+t451+t434+t432+t430+t428+t426+t425+t424+t419+
3796         t418+t417+t414+t410+t404+t403+t402+t401+t400+t399+t398+t397+
3797         t395-1.754467019236561*t81*t336*t109*t86*t110*t90*t111-1.754467019236561*
3798         t81*t85*t109*t86*t110*t331*t111-3.508934038473122*t81*t187*
3799         t109*t86*t110*t185*t111)+96.0*t125*t127*t81*t90*t99+3.0*t331*
3800         t81*t83*t84*t99-24.0*t127*t185*t81*t84*t99-24.0*t125*t185*
3801         t81*t83*t99+.0592553691076956*t81*t336*t86*t90*t93-.0043947732088208*
3802         t81*t1*t2*t3*t103*t187*t90*t93+.0592553691076956*t81*t85*t86*
3803         t331*t93+.1185107382153912*t81*t187*t86*t185*t93-.0043947732088208*
3804         t81*t1*t2*t3*t103*t85*t185*t93-24.0*t127*t133*t81*t84*t90+
3805         6.0*t133*t185*t81*t83*t84+t391+t390+t389+t388+t387+t386+t385+
3806         t384+t383+t382+t381+t380+t379+t378+.0018928513185185*t1*t2*
3807         t3*t146*t321+6.0*t175*t318*t147*t320-96.4940495336121*t317*
3808         t318*t147*t319-3.0*t175*t322*t147*t180+.1369866666666666*t1*
3809         t2*t3*t175*t179*t180*t178-.4109599999999999*t1*t2*t3*t175*
3810         t318*t320*t143+6.60919909938887*t1*t2*t3*t317*t318*t319*t143+
3811         0.20548*t1*t2*t3*t175*t322*t180*t143-3.508934038473122*t81*
3812         t187*t109*t86*t110*t90*t111-3.508934038473122*t81*t85*t109*
3813         t86*t110*t185*t111;
3814     t573 = -.9486126222222223*t58*t68*t535+.0462770410666667*
3815         t58*t60*t67*t535-5.85170432e-4*t58*t66*t65*t535+3.389143296000001e-6*
3816         t58*t64*t63*t535-8.035163136e-9*t58*t61*t138*t535+0.0445446144*
3817         t156*t67*t534-0.0014791417344*t156*t60*t65*t534+1.7743283712e-5*
3818         t156*t66*t63*t534-9.726864998400001e-8*t156*t64*t138*t534+
3819         2.0661848064e-10*t156*t61*t295*t534-2.440820736e-4*t153*t65*
3820         t533+7.5286204416e-6*t153*t60*t63*t533-8.698724352e-8*t153*
3821         t66*t138*t533+4.5388283904e-10*t153*t64*t295*t533-9.0160791552e-13*
3822         t153*t61*t479*t533;
3823     t574 = -0.0111361536*grada*t58*t22*t67*t315+3.697854336e-4*
3824         grada*t58*t22*t60*t65*t315-4.435820928e-6*grada*t58*t22*t66*
3825         t63*t315+2.431716249600001e-8*grada*t58*t22*t64*t138*t315-
3826         5.165462016e-11*grada*t58*t22*t61*t295*t315+1.830615552e-4*
3827         grada*t156*t22*t65*t314-5.6464653312e-6*grada*t156*t22*t60*
3828         t63*t314+6.524043264e-8*grada*t156*t22*t66*t138*t314-3.4041212928e-10*
3829         grada*t156*t22*t64*t295*t314+6.7620593664e-13*grada*t156*t22*
3830         t61*t479*t314;
3831     t575 = pow(gradb,13.0);
3832     t576 = 1/pow(rhob,20.66666666666667);
3833     t577 = -1.019626666666667*gradb*t159*t315+3.544597333333334*
3834         t204*t157*t314-9.320640000000001*t203*t154*t313+9.938358328888892*
3835         t202*t151*t312-4.306446108444446*t200*t168*t311+.8044359680000001*
3836         t346*t309*t310-.0542922069333334*t575*t528*t576;
3837     t578 = -.0584476444444444*gradb*t165*t315+.0123596458666667*
3838         t204*t164*t314-3.152200931555555e-4*t203*t163*t313+3.132750552177778e-6*
3839         t202*t162*t312-1.505224585671111e-8*t200*t181*t311+3.53456182613333e-11*
3840         t346*t323*t310-3.27631066453333e-14*t575*t543*t576;
3841     t579 = .4065482666666667*gradb*t68*t315-0.0198330176*
3842         gradb*t60*t67*t315+2.50787328e-4*gradb*t66*t65*t315-1.452489984e-6*
3843         gradb*t64*t63*t315+3.443641344e-9*gradb*t61*t138*t315-0.0273341952*
3844         t204*t67*t314+9.076551552e-4*t204*t60*t65*t314-1.0887924096e-5*
3845         t204*t66*t63*t314+5.968758067200001e-8*t204*t64*t138*t314-
3846         1.2678861312e-10*t204*t61*t295*t314+1.830615552e-4*t203*t65*
3847         t313-5.6464653312e-6*t203*t60*t63*t313+6.524043264e-8*t203*
3848         t66*t138*t313-3.4041212928e-10*t203*t64*t295*t313+6.7620593664e-13*
3849         t203*t61*t479*t313;
3850     t580 = 0.0030371328*t58*t22*t67*t173-1.008505728e-4*t58*
3851         t22*t60*t65*t173-1.372961664e-4*t21*t58*t31*t65*t173+1.209769344e-6*
3852         t58*t22*t66*t63*t173+4.2348489984e-6*t21*t58*t31*t60*t63*t173-
3853         6.631953408000001e-9*t58*t22*t64*t138*t173-4.893032448e-8*
3854         t21*t58*t31*t66*t138*t173+1.408762368e-11*t58*t22*t61*t295*
3855         t173+2.5530909696e-10*t21*t58*t31*t64*t295*t173-5.0715445248e-13*
3856         t21*t58*t31*t61*t479*t173;
3857     t581 = 0.0060742656*grada*gradb*t22*t67*t173-2.017011456e-4*
3858         grada*gradb*t22*t60*t65*t173+2.419538688e-6*grada*gradb*t22*
3859         t66*t63*t173-1.3263906816e-8*grada*gradb*t22*t64*t138*t173+
3860         2.817524736e-11*grada*gradb*t22*t61*t295*t173-1.372961664e-4*
3861         grada*t204*t22*t65*t172+4.2348489984e-6*grada*t204*t22*t60*
3862         t63*t172-4.893032448e-8*grada*t204*t22*t66*t138*t172+2.5530909696e-10*
3863         grada*t204*t22*t64*t295*t172-5.0715445248e-13*grada*t204*t22*
3864         t61*t479*t172;
3865     t582 = 1/pow(rhob,19.66666666666667);
3866     t583 = 0.27808*t159*t173-1.72*t58*t157*t172+5.289356800000001*
3867         t156*t154*t171-6.196311893333335*t153*t151*t170+2.891203925333334*
3868         t149*t168*t169-.5736359253333334*t167*t309*t347+0.0407191552*
3869         t308*t528*t582;
3870     t584 = .0159402666666667*t165*t173-.0059015509333333*
3871         t58*t164*t172+1.831061162666666e-4*t156*t163*t171-2.025869175466667e-6*
3872         t153*t162*t170+1.041496364373334e-8*t149*t181*t169-2.56133474986667e-11*
3873         t167*t323*t347+2.4572329984e-14*t308*t543*t582;
3874     t585 = -0.1108768*t68*t173+0.0054090048*t60*t67*t173-
3875         6.839654399999999e-5*t66*t65*t173+3.96133632e-7*t64*t63*t173-
3876         9.39174912e-10*t61*t138*t173+0.015185664*t58*t67*t172-5.04252864e-4*
3877         t58*t60*t65*t172+6.04884672e-6*t58*t66*t63*t172-3.315976704e-8*
3878         t58*t64*t138*t172+7.04381184e-11*t58*t61*t295*t172-1.372961664e-4*
3879         t156*t65*t171+4.2348489984e-6*t156*t60*t63*t171-4.893032448e-8*
3880         t156*t66*t138*t171+2.5530909696e-10*t156*t64*t295*t171-5.0715445248e-13*
3881         t156*t61*t479*t171;
3882     t586 = 1/pow(rhoa,18.66666666666667);
3883     t587 = 0.665856*grada*t30*t31-2.727897600000001*t196*
3884         t27*t28+3.671293440000001*t195*t24*t25-1.890872832000001*t194*
3885         t43*t193+.4047774720000001*t192*t209*t351-0.0305393664*t302*
3886         t361*t586;
3887     t588 = 0.002236992*grada*t39*t31-9.739084800000001e-5*
3888         t196*t38*t28+1.259367628800001e-6*t195*t37*t25-7.081087795200001e-9*
3889         t194*t56*t193+1.8442125312e-11*t192*t223*t351-1.8429247488e-14*
3890         t302*t376*t586;
3891     t589 = -0.0068335488*grada*t31*t67+2.269137888e-4*grada*
3892         t31*t60*t65+1.029721248e-4*t196*t28*t65-2.721981024000001e-6*
3893         grada*t31*t66*t63-3.1761367488e-6*t196*t28*t60*t63+1.4921895168e-8*
3894         grada*t31*t64*t138+3.669774336000001e-8*t196*t28*t66*t138-
3895         3.169715328e-11*grada*t31*t61*t295-1.9148182272e-10*t196*t28*
3896         t64*t295+3.8036583936e-13*t196*t28*t61*t479;
3897     t590 = -0.0022778496*gradb*t22*t67*t59+7.563792960000001e-5*
3898         gradb*t22*t60*t65*t59+1.029721248e-4*t21*gradb*t31*t65*t59-
3899         9.073270080000002e-7*gradb*t22*t66*t63*t59-3.1761367488e-6*
3900         t21*gradb*t31*t60*t63*t59+4.973965056000001e-9*gradb*t22*t64*
3901         t138*t59+3.669774336000001e-8*t21*gradb*t31*t66*t138*t59-1.056571776e-11*
3902         gradb*t22*t61*t295*t59-1.9148182272e-10*t21*gradb*t31*t64*
3903         t295*t59+3.8036583936e-13*t21*gradb*t31*t61*t479*t59;
3904     t591 = -0.0022778496*grada*t22*t67*t59+7.563792960000001e-5*
3905         grada*t22*t60*t65*t59-9.073270080000002e-7*grada*t22*t66*t63*
3906         t59+4.973965056000001e-9*grada*t22*t64*t138*t59-1.056571776e-11*
3907         grada*t22*t61*t295*t59+1.029721248e-4*grada*t58*t22*t65*t158-
3908         3.1761367488e-6*grada*t58*t22*t60*t63*t158+3.669774336000001e-8*
3909         grada*t58*t22*t66*t138*t158-1.9148182272e-10*grada*t58*t22*
3910         t64*t295*t158+3.8036583936e-13*grada*t58*t22*t61*t479*t158;
3911     t592 = 1/
3912         pow(rhob,18.66666666666667);
3913     t593 = 0.665856*gradb*t157*t158-2.727897600000001*t204*
3914         t154*t155+3.671293440000001*t203*t151*t152-1.890872832000001*
3915         t202*t168*t201+.4047774720000001*t200*t309*t356-0.0305393664*
3916         t346*t528*t592;
3917     t594 = 0.002236992*gradb*t164*t158-9.739084800000001e-5*
3918         t204*t163*t155+1.259367628800001e-6*t203*t162*t152-7.081087795200001e-9*
3919         t202*t181*t201+1.8442125312e-11*t200*t323*t356-1.8429247488e-14*
3920         t346*t543*t592;
3921     t595 = -0.0068335488*gradb*t67*t158+2.269137888e-4*gradb*
3922         t60*t65*t158-2.721981024000001e-6*gradb*t66*t63*t158+1.4921895168e-8*
3923         gradb*t64*t138*t158-3.169715328e-11*gradb*t61*t295*t158+1.029721248e-4*
3924         t204*t65*t155-3.1761367488e-6*t204*t60*t63*t155+3.669774336000001e-8*
3925         t204*t66*t138*t155-1.9148182272e-10*t204*t64*t295*t155+3.8036583936e-13*
3926         t204*t61*t479*t155;
3927     t596 = pow(grada,16.0);
3928     t597 = 1/pow(t23,8.0);
3929     t598 = 1/pow(rhoa,25.33333333333333);
3930     t599 = 1/pow(rhoa,22.66666666666667);
3931     t600 = 1/pow(rhoa,20.0);
3932     t601 = 1/pow(rhoa,17.33333333333333);
3933     t602 = 1/pow(rhoa,14.66666666666667);
3934     t603 = 1/pow(rhoa,12.0);
3935     t604 = 1/pow(rhoa,9.333333333333334);
3936     t605 = 1/pow(rhoa,6.666666666666667);
3937     t606 = 1/pow(t18,4.0);
3938     t607 = pow(t54,4.0);
3939     t608 = 1/pow(t17,8.0);
3940     t609 = 1/pow(t17,7.0);
3941     t610 = pow(t222,2.0);
3942     t611 = 21.42414814814815*t1*t2*t3/pow(rhoa,4.333333333333333)+
3943         18.83609421296296*t14*t15*t16/pow(rhoa,4.166666666666667)+
3944         11.04534375*t8*t9/pow(t10,9.0)+6.79197037037037*t4*t5*t6*t215;
3945     t612 = 1/
3946         pow(t36,8.0);
3947     t613 = 2069.000588228246*t392*t72*t393*t394;
3948     t614 = -385.9637837316264*t392*t72*t396*t233;
3949     t615 = -13.74674343057476*t1*t2*t3*t103*t231*t232*t233;
3950     t616 = 192.9818918658132*
3951         t242*t105*t72*t232*t233;
3952     t617 = 24.0*t392*t72*t232*t107;
3953     t618 = 1.7096*t1*t2*t3*t103*t231*t235*t107;
3954     t619 = -24.0*t242*t105*t72*t235*t107;
3955     t620 = -.8547999999999998*t1*t2*t3*t103*t242*t106*t107;
3956     t621 = 1.139733333333333*
3957         t1*t2*t3*t240*t105*t106*t107;
3958     t622 = 4.0*t409*t72*t106*t107;
3959     t623 = -4101.558808403119*t81*t85*t411*t86*t412*t90*t413;
3960     t624 = 415.5781415850208*
3961         t81*t85*t411*t86*t416*t90*t246;
3962     t625 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t244*t245*
3963         t90*t246;
3964     t626 = -207.7890707925104*t81*t85*t252*t109*t86*t245*
3965         t90*t246;
3966     t627 = -14.03573615389249*t81*t85*t411*t86*t245*t90*t111;
3967     t628 = -
3968         .5204918823735132*t81*t1*t2*t3*t103*t85*t244*t249*t90*t111;
3969     t629 = 14.03573615389249*
3970         t81*t85*t252*t109*t86*t249*t90*t111;
3971     t630 = .2602459411867566*t81*t1*t2*t3*t103*t85*t252*t110*
3972         t90*t111;
3973     t631 = -.3469945882490088*t81*t1*t2*t3*t240*t85*t109*
3974         t110*t90*t111;
3975     t632 = -2.339289358982082*t81*t85*t431*t86*t110*t90*t111;
3976     t633 = .0551218096592593*
3977         t1*t2*t3*t407*t79;
3978     t634 = -.0091150851738505*t81*t1*t2*t3*t407*t85*t90*t93;
3979     t635 = 4.0*
3980         t463*t81*t83*t84*t90;
3981     t636 = -48.0*t125*t284*t81*t83*t90;
3982     t637 = 240.0*t133*t273*t81*t83*t90;
3983     t638 = 144.0*t133*t275*t81*t84*t90;
3984     t639 = -480.0*t452*t81*t83*t90*t99;
3985     t640 = -576.0*t125*t275*t81*t90*t99;
3986     t641 = pow(t105,4.0);
3987     t642 = 1/pow(t77,8.0);
3988     t643 = 1/pow(t78,4.0);
3989     t644 = 24954.97798673546*t641*t72*t642*t643;
3990     t645 = 1/pow(t77,7.0);
3991     t646 = -6207.001764684737*t641*t72*t645*t394;
3992     t647 = -147.3818085681254*t1*t2*t3*t103*t392*t393*t394;
3993     t648 = 3103.500882342369*
3994         t242*t231*t72*t393*t394;
3995     t649 = 578.9456755974396*t641*t72*t393*t233;
3996     t650 = 27.49348686114952*t1*t2*t3*t103*t392*t396*t233;
3997     t651 = -
3998         578.9456755974396*t242*t231*t72*t396*t233;
3999     t652 = -13.74674343057476*t1*t2*t3*t103*t242*t105*t232*
4000         t233;
4001     t653 = 9.164495620383173*t1*t2*t3*t240*t231*t232*t233;
4002     t654 = pow(t242,
4003         2.0);
4004     t655 = 48.2454729664533*t654*t72*t232*t233;
4005     t656 = 64.3272972886044*t409*t105*t72*t232*t233;
4006     t657 = -24.0*t641*t72*t396*t107;
4007     t658 = -1.7096*t1*t2*t3*t103*t392*t232*t107;
4008     t659 = 36.0*t242*t231*t72*t232*t107;
4009     t660 = 1.7096*t1*t2*t3*t103*t242*t105*t235*t107;
4010     t661 = -1.139733333333333*t1*t2*t3*t240*t231*t235*t107;
4011     t662 = -
4012         6.0*t654*t72*t235*t107;
4013     t663 = -8.0*t409*t105*t72*t235*t107;
4014     t664 = -.2849333333333333*t1*t2*t3*t103*t409*t106*t107;
4015     t665 = .5698666666666665*
4016         t1*t2*t3*t240*t242*t106*t107;
4017     t666 = -.8864592592592592*t1*t2*t3*t407*t105*t106*t107;
4018     t667 = 1/
4019         pow(t70,4.666666666666667);
4020     t668 = 1/pow(t74,9.0);
4021     t669 = 1/pow(t70,4.333333333333333);
4022     t670 = 1/pow(t70,4.166666666666667);
4023     t671 = 10.13346087962963*t14*t15*t16*t670+12.40158024691358*
4024         t1*t2*t3*t669+5.37534375*t8*t9*t668+5.355397530864196*t4*t5*
4025         t6*t667;
4026     t672 = .9999999999999999*t671*t72*t106*t107;
4027     t673 = pow(t109,4.0);
4028     t674 = -91080.98259910994*t673*t81*t85*t86*t90/(pow(t91,
4029         8.0)*pow(t92,4.0));
4030     t675 = 12304.67642520936*t413*t673*t81*t85*t86*t90/pow(t91,
4031         7.0);
4032     t676 = 152.0994724782823*t81*t1*t2*t3*t103*t85*t411*t412*
4033         t90*t413;
4034     t677 = -6152.338212604678*t81*t85*t252*t244*t86*t412*
4035         t90*t413;
4036     t678 = -623.3672123775311*t81*t85*t673*t86*t412*t90*t246;
4037     t679 = -
4038         15.41102275044452*t81*t1*t2*t3*t103*t85*t411*t416*t90*t246;
4039     t680 = 623.3672123775311*
4040         t81*t85*t252*t244*t86*t416*t90*t246;
4041     t681 = 7.70551137522226*t81*t1*t2*t3*t103*t85*t252*t109*
4042         t245*t90*t246;
4043     t682 = -5.137007583481506*t81*t1*t2*t3*t240*t85*t244*
4044         t245*t90*t246;
4045     t683 = pow(t252,2.0);
4046     t684 = -51.9472676981276*t81*t85*t683*t86*t245*t90*t246;
4047     t685 = -
4048         69.26302359750346*t81*t85*t431*t109*t86*t245*t90*t246;
4049     t686 = 14.03573615389249*t81*t85*t673*t86*t416*t90*t111;
4050     t687 = .5204918823735132*
4051         t81*t1*t2*t3*t103*t85*t411*t245*t90*t111;
4052     t688 = -21.05360423083874*t81*t85*t252*t244*t86*t245*
4053         t90*t111;
4054     t689 = -.5204918823735132*t81*t1*t2*t3*t103*t85*t252*
4055         t109*t249*t90*t111;
4056     t690 = .3469945882490088*t81*t1*t2*t3*t240*t85*t244*t249*
4057         t90*t111;
4058     t691 = 3.508934038473122*t81*t85*t683*t86*t249*t90*t111;
4059     t692 = 4.678578717964164*
4060         t81*t85*t431*t109*t86*t249*t90*t111;
4061     t693 = .0867486470622522*t81*t1*t2*t3*t103*t85*t431*t110*
4062         t90*t111;
4063     t694 = -.1734972941245044*t81*t1*t2*t3*t240*t85*t252*
4064         t110*t90*t111;
4065     t695 = 0.269884679749229*t81*t1*t2*t3*t407*t85*t109*t110*
4066         t90*t111;
4067     t696 = -.5848223397455204*t81*(13.81732484567901*t14*
4068         t15*t16*t670+12.5242962962963*t1*t2*t3*t669+2.888353125*t8*
4069         t9*t668+5.396355555555555*t4*t5*t6*t667)*t85*t86*t110*t90*
4070         t111;
4071     t697 = -.0459348413827161*t1*t2*t3*t669*t79;
4072     t698 = 1/pow(t88,2.666666666666667);
4073     t699 = -24.0*t125*t82;
4074     t700 = 24.0*t84;
4075     t701 = 1/pow(t89,2.666666666666667);
4076     t702 = 24.0*t125*t82;
4077     t703 = -24.0*t84;
4078     t704 = 1.333333333333333*t121*(t703+t702)+.4938271604938271*
4079         pow(t120,4.0)*t701+1.333333333333333*t118*(t700+t699)+.4938271604938271*
4080         pow(t117,4.0)*t698+1.777777777777778*t120*t263*t444-1.777777777777778*
4081         t262*t266*t441+1.777777777777778*t117*t257*t439-1.777777777777778*
4082         t256*t261*t436+1.333333333333333*t263*pow(t266,2.0)+1.333333333333333*
4083         t257*pow(t261,2.0);
4084     t705 = .0075959043115421*t81*t1*t2*t3*t669*t85*t90*t93;
4085     t706 = 1/
4086         pow(t70,8.0);
4087     t707 = -840.0*t706*t83;
4088     t708 = -1440.0*t273*t275;
4089     t709 = pow(t130,4.0);
4090     t710 = pow(t283,2.0);
4091     t711 = t81*t83*t84*t90*(-0.022083265382716*t1*t2*t3*t669*
4092         t98+199659.0885685683*t709*t95/(pow(t96,8.0)*pow(t97,4.0))-
4093         24829.60425438716*t460*t709*t95/pow(t96,7.0)-6.0*t132*t282*
4094         t710*t95-24.0*t132*t461*t709*t95-8.0*t130*t132*t282*t462*t95+
4095         36.0*t132*t279*t280*t283*t95+.0459348413827161*t1*t2*t3*t669*
4096         t79-24954.97798673546*t641*t72*t642*t643+12414.80212719358*
4097         t283*t279*t95*t459*t460-566.8874535768302*t1*t2*t3*t103*t458*
4098         t459*t460+6207.001764684737*t641*t72*t645*t394-3103.500882342369*
4099         t242*t231*t72*t393*t394+147.3818085681254*t1*t2*t3*t103*t392*
4100         t393*t394-1157.928594403345*t283*t279*t95*t461*t281+52.87359279511096*
4101         t1*t2*t3*t103*t458*t461*t281+1157.928594403345*t709*t95*t459*
4102         t281+96.4940495336121*t710*t95*t280*t281+128.6587327114828*
4103         t462*t130*t95*t280*t281+17.62453093170365*t1*t2*t3*t240*t279*
4104         t280*t281-26.43679639755548*t1*t2*t3*t103*t283*t130*t280*t281+
4105         578.9456755974396*t242*t231*t72*t396*t233-27.49348686114952*
4106         t1*t2*t3*t103*t392*t396*t233-578.9456755974396*t641*t72*t393*
4107         t233-48.2454729664533*t654*t72*t232*t233-64.3272972886044*
4108         t409*t105*t72*t232*t233-9.164495620383173*t1*t2*t3*t240*t231*
4109         t232*t233+13.74674343057476*t1*t2*t3*t103*t242*t105*t232*t233-
4110         1.095893333333333*t1*t2*t3*t240*t279*t282*t132+1.64384*t1*
4111         t2*t3*t103*t283*t130*t282*t132-1.64384*t1*t2*t3*t103*t458*
4112         t280*t132+(18.83609421296296*t14*t15*t16*t670+21.42414814814815*
4113         t1*t2*t3*t669+11.04534375*t8*t9*t668+6.79197037037037*t4*t5*
4114         t6*t667)*t95*t131*t132-.2739733333333333*t1*t2*t3*t103*t462*
4115         t131*t132+.5479466666666666*t1*t2*t3*t240*t283*t131*t132-.8523614814814813*
4116         t1*t2*t3*t407*t130*t131*t132+24.0*t641*t72*t396*t107+6.0*t654*
4117         t72*t235*t107+8.0*t409*t105*t72*t235*t107+1.139733333333333*
4118         t1*t2*t3*t240*t231*t235*t107-1.7096*t1*t2*t3*t103*t242*t105*
4119         t235*t107-36.0*t242*t231*t72*t232*t107+1.7096*t1*t2*t3*t103*
4120         t392*t232*t107-.9999999999999999*t671*t72*t106*t107+.2849333333333333*
4121         t1*t2*t3*t103*t409*t106*t107-.5698666666666665*t1*t2*t3*t240*
4122         t242*t106*t107+.8864592592592592*t1*t2*t3*t407*t105*t106*t107);
4123     t712 = -
4124         16.0*t125*t463*t81*t83*t90;
4125     t713 = 120.0*t273*t284*t81*t83*t90;
4126     t714 = 72.0*t275*t284*t81*t84*t90;
4127     t715 = -480.0*t133*t452*t81*t83*t90;
4128     t716 = -576.0*t125*t133*t275*t81*t90;
4129     t717 = 840.0*t706*t81*t83*t90*t99;
4130     t718 = 1440.0*t273*t275*t81*t90*t99;
4131     t719 = 24.0*t81*t84*t90*t99;
4132     t720 = 1/pow(t62,8.0);
4133     t721 = -3.508934038473122*t81*t85*t109*t86*t110*t297*
4134         t111;
4135     t722 = -3.508934038473122*t81*t128*t109*t86*t110*t185*
4136         t111;
4137     t723 = -3.508934038473122*t81*t187*t109*t86*t110*t122*
4138         t111;
4139     t724 = -3.508934038473122*t81*t298*t109*t86*t110*t90*
4140         t111;
4141     t725 = -.0043947732088208*t81*t1*t2*t3*t103*t85*t297*
4142         t93;
4143     t726 = -.0043947732088208*t81*t1*t2*t3*t103*t128*t185*
4144         t93;
4145     t727 = -.0043947732088208*t81*t1*t2*t3*t103*t187*t122*
4146         t93;
4147     t728 = -.0043947732088208*t81*t1*t2*t3*t103*t298*t90*
4148         t93;
4149     t729 = 6.0*t133*t297*t81*t83*t84;
4150     t730 = -24.0*t125*t297*t81*t83*t99;
4151     t731 = -51.9472676981276*t81*t85*t244*t86*t245*t297*t246;
4152     t732 = -
4153         51.9472676981276*t81*t128*t244*t86*t245*t185*t246;
4154     t733 = -51.9472676981276*t81*t187*t244*t86*t245*t122*
4155         t246;
4156     t734 = -51.9472676981276*t81*t298*t244*t86*t245*t90*t246;
4157     t735 = 3.508934038473122*
4158         t81*t85*t244*t86*t249*t297*t111;
4159     t736 = .1301229705933783*t81*t1*t2*t3*t103*t85*t109*t110*
4160         t297*t111;
4161     t737 = -1.754467019236561*t81*t85*t252*t86*t110*t297*
4162         t111;
4163     t738 = 3.508934038473122*t81*t128*t244*t86*t249*t185*
4164         t111;
4165     t739 = .1301229705933783*t81*t1*t2*t3*t103*t128*t109*
4166         t110*t185*t111;
4167     t740 = -1.754467019236561*t81*t128*t252*t86*t110*t185*
4168         t111;
4169     t741 = 3.508934038473122*t81*t187*t244*t86*t249*t122*
4170         t111;
4171     t742 = .1301229705933783*t81*t1*t2*t3*t103*t187*t109*
4172         t110*t122*t111;
4173     t743 = -1.754467019236561*t81*t187*t252*t86*t110*t122*
4174         t111;
4175     t744 = 3.508934038473122*t81*t298*t244*t86*t249*t90*t111;
4176     t745 = .1301229705933783*
4177         t81*t1*t2*t3*t103*t298*t109*t110*t90*t111;
4178     t746 = -1.754467019236561*t81*t298*t252*t86*t110*t90*
4179         t111;
4180     t747 = .0029298488058805*t81*t1*t2*t3*t240*t85*t297*t93;
4181     t748 = 1.333333333333333*
4182         t118*(12.0*t84+t699)+1.333333333333333*t121*(t702-12.0*t84)-
4183         1.777777777777778*t258*t262*t441*t82+1.777777777777778*t256*
4184         t258*t436*t82+2.666666666666667*t258*t263*t266*t82-2.666666666666667*
4185         t257*t258*t261*t82+.4938271604938271*t184*t440*t701+.4938271604938271*
4186         t183*t435*t698+1.333333333333333*t120*t263*t492+1.333333333333333*
4187         t117*t257*t491+.4444444444444444*t184*t263*t444-.8888888888888888*
4188         t120*t184*t266*t441+.4444444444444444*t183*t257*t439-.8888888888888888*
4189         t117*t183*t261*t436;
4190     t749 = .0029298488058805*t81*t1*t2*t3*t240*t128*t185*
4191         t93;
4192     t750 = .0029298488058805*t81*t1*t2*t3*t240*t187*t122*
4193         t93;
4194     t751 = .0029298488058805*t81*t1*t2*t3*t240*t298*t90*t93;
4195     t752 = 3.0*
4196         t284*t297*t81*t83*t84;
4197     t753 = -24.0*t125*t133*t297*t81*t83;
4198     t754 = 60.0*t273*t297*t81*t83*t99;
4199     t755 = 36.0*t275*t297*t81*t84*t99;
4200     t756 = -24.0*t81*t84*t90*t99;
4201     t757 = pow(grada,15.0);
4202     t758 = 1/pow(rhoa,24.33333333333333);
4203     t759 = -32.0*t118*t125*t82;
4204     t760 = 32.0*t121*t125*t82;
4205     t761 = -5.333333333333333*t120*t263*t82*t84+5.333333333333333*
4206         t117*t257*t82*t84-2.37037037037037*t120*t184*t258*t441*t82+
4207         2.37037037037037*t117*t183*t258*t436*t82+t760+t759+.4938271604938271*
4208         t262*t329*t701+.4938271604938271*t256*t327*t698+.8888888888888888*
4209         t184*t263*t492+.8888888888888888*t183*t257*t491-.2962962962962963*
4210         t262*t330*t441-.2962962962962963*t266*t329*t441-.2962962962962963*
4211         t256*t328*t436-.2962962962962963*t261*t327*t436+.4444444444444444*
4212         t263*t266*t330+.4444444444444444*t257*t261*t328+3.555555555555555*
4213         t263*t273*t275+3.555555555555555*t257*t273*t275-1.777777777777778*
4214         t120*t258*t263+1.777777777777778*t117*t257*t258;
4215     t762 = 1/pow(rhoa,23.33333333333333);
4216     t763 = -8.0*t184*t263*t82*t84+8.0*t183*t257*t82*t84+16.0*
4217         t121*t84-16.0*t118*t84-1.777777777777778*t258*t329*t441*t82+
4218         1.777777777777778*t258*t327*t436*t82+2.666666666666667*t258*
4219         t263*t330*t82-2.666666666666667*t257*t258*t328*t82+t760+t759+
4220         .4938271604938271*t120*t555*t701+.4938271604938271*t117*t553*
4221         t698+.4444444444444444*t120*t263*t556+.4444444444444444*t117*
4222         t257*t554-.8888888888888888*t120*t184*t330*t441-.8888888888888888*
4223         t117*t183*t328*t436-2.666666666666667*t184*t258*t263+2.666666666666667*
4224         t183*t257*t258;
4225     t764 = 1/pow(rhoa,22.33333333333333);
4226     t765 = pow(gradb,16.0);
4227     t766 = 1/pow(t150,8.0);
4228     t767 = 1/pow(rhob,25.33333333333333);
4229     t768 = 1/pow(rhob,22.66666666666667);
4230     t769 = 1/pow(rhob,20.0);
4231     t770 = 1/pow(rhob,17.33333333333333);
4232     t771 = 1/pow(rhob,14.66666666666667);
4233     t772 = 1/pow(rhob,12.0);
4234     t773 = 1/pow(rhob,9.333333333333334);
4235     t774 = 1/pow(rhob,6.666666666666667);
4236     t775 = 1/pow(t145,4.0);
4237     t776 = pow(t179,4.0);
4238     t777 = 1/pow(t144,8.0);
4239     t778 = 1/pow(t144,7.0);
4240     t779 = pow(t322,2.0);
4241     t780 = 21.42414814814815*t1*t2*t3/pow(rhob,4.333333333333333)+
4242         18.83609421296296*t14*t15*t16/pow(rhob,4.166666666666667)+
4243         11.04534375*t8*t9/pow(t141,9.0)+6.79197037037037*t4*t5*t6*
4244         t315;
4245     t781 = 1/pow(t161,8.0);
4246     t782 = 1.333333333333333*t118*(t703+t699)+.4938271604938271*
4247         pow(t184,4.0)*t701+1.333333333333333*t121*(t700+t702)+.4938271604938271*
4248         pow(t183,4.0)*t698+1.777777777777778*t184*t263*t556+1.777777777777778*
4249         t183*t257*t554-1.777777777777778*t329*t330*t441-1.777777777777778*
4250         t327*t328*t436+1.333333333333333*t263*pow(t330,2.0)+1.333333333333333*
4251         t257*pow(t328,2.0);
4252     t783 = pow(gradb,15.0);
4253     t784 = 1/pow(rhob,24.33333333333333);
4254     t785 = 1/pow(rhob,23.33333333333333);
4255     t786 = 1/pow(rhob,22.33333333333333);
4256     t787 = 1/pow(rhoa,21.33333333333333);
4257     t788 = 1/pow(rhob,21.33333333333333);
4258 
4259    /* code */
4260     dfdra = t50*t33*t54*t34*t55*rhoa-0.03109*t19*t49*t34*
4261         rhoa-0.75*t3*t35*t52*t57-1.0*t11*t3*t35*t41-0.03109*t19*t33*
4262         t34+t139*t148+t69*t137+.0021294577333333*t1*t2*t3*t19*t33*
4263         t12;
4264     dfdrb = t175*t160*t179*t147*t180*rhob-0.03109*t146*t174*
4265         t147*rhob-0.75*t177*t182*t3*t35-1.0*t142*t166*t3*t35+t69*t190+
4266         t191*t148-0.03109*t146*t160*t147+.0021294577333333*t1*t2*t3*
4267         t146*t160*t143;
4268     dfdga = -0.03109*t19*t197*t34*rhoa-0.75*t198*t3*t35*t52+
4269         t199*t148;
4270     dfdgb = -0.03109*t146*t205*t147*rhob-0.75*t177*t206*t3*
4271         t35+t207*t148;
4272     dfdgab = 0.0;
4273     d2fdrara = 2.0*t34*t49*t50*t54*t55*rhoa+t50*t33*t222*
4274         t34*t55*rhoa-2.0*t218*t220*t33*t34*t50*rhoa-0.03109*t19*t216*
4275         t34*rhoa+32.1646831778707*t217*t33*t218*t34*t219*rhoa-.3333333333333333*
4276         t3*t35*t41*t7-2.0*t11*t3*t35*t57+2.0*t33*t34*t50*t54*t55+.0014196384888889*
4277         t1*t2*t3*t19*t33*t53-0.75*t224*t3*t35*t52-0.06218*t19*t49*
4278         t34+t69*t294+t296*t148+2.0*t137*t139-.1369866666666666*t1*
4279         t2*t3*t50*t33*t54*t55*t12+.0042589154666667*t1*t2*t3*t19*t49*
4280         t12;
4281     d2fdrarb = t301*t148+t191*t137+t139*t190+t69*t300;
4282     d2fdraga = t50*t197*t54*t34*t55*rhoa-0.03109*t19*t304*
4283         t34*rhoa-0.75*t3*t305*t35*t52-1.0*t11*t198*t3*t35-0.03109*
4284         t19*t197*t34+t306*t148+t199*t137+.0021294577333333*t1*t2*t3*
4285         t19*t197*t12;
4286     d2fdragb = t307*t148+t207*t137;
4287     d2fdraab = 0.0;
4288     d2fdrbrb = -2.0*t147*t160*t175*t318*t320*rhob+32.1646831778707*
4289         t317*t160*t318*t147*t319*rhob+2.0*t147*t174*t175*t179*t180*
4290         rhob+t175*t160*t322*t147*t180*rhob-0.03109*t146*t316*t147*
4291         rhob-0.75*t177*t3*t324*t35-2.0*t142*t182*t3*t35-.3333333333333333*
4292         t140*t166*t3*t35+t69*t343+2.0*t190*t191+2.0*t147*t160*t175*
4293         t179*t180+.0014196384888889*t1*t2*t3*t146*t160*t178+t344*t148-
4294         0.06218*t146*t174*t147-.1369866666666666*t1*t2*t3*t175*t160*
4295         t179*t180*t143+.0042589154666667*t1*t2*t3*t146*t174*t143;
4296     d2fdrbga = t345*
4297         t148+t199*t190;
4298     d2fdrbgb = t175*t205*t179*t147*t180*rhob-0.03109*t146*
4299         t348*t147*rhob-0.75*t177*t3*t349*t35-1.0*t142*t206*t3*t35+
4300         t207*t190+t350*t148-0.03109*t146*t205*t147+.0021294577333333*
4301         t1*t2*t3*t146*t205*t143;
4302     d2fdrbgab = 0.0;
4303     d2fdgaga = -0.03109*t19*t352*t34*rhoa-0.75*t3*t35*t353*
4304         t52+t354*t148;
4305     d2fdgagb = t355*t148;
4306     d2fdgagab = 0.0;
4307     d2fdgbgb = -0.03109*t146*t357*t147*rhob-0.75*t177*t3*
4308         t35*t358+t359*t148;
4309     d2fdgbgab = 0.0;
4310     d2fdgabgab = 0.0;
4311     d3fdrarara = 3.0*t216*t34*t50*t54*t55*rhoa+3.0*t222*t34*
4312         t49*t50*t55*rhoa+t50*t375*t33*t34*t55*rhoa-6.0*t220*t222*t33*
4313         t34*t50*t54*rhoa-6.0*t218*t220*t34*t49*t50*rhoa+6.0*t219*t33*
4314         t34*t371*t50*rhoa-192.9880990672242*t217*t33*t371*t34*t373*
4315         rhoa+2069.133687865597*t370*t33*t371*t34*t372*rhoa-0.03109*
4316         t19*t369*t34*rhoa+96.4940495336121*t217*t33*t222*t54*t34*t219*
4317         rhoa+96.4940495336121*t217*t49*t218*t34*t219*rhoa-1.0*t3*t35*
4318         t57*t7+3.0*t222*t33*t34*t50*t55+6.0*t50*t49*t54*t34*t55-.1369866666666666*
4319         t1*t2*t3*t50*t33*t54*t55*t53+.0042589154666667*t1*t2*t3*t19*
4320         t49*t53-0.75*t3*t35*t377*t52+.2222222222222222*t3*t35*t41*
4321         t51-6.0*t218*t220*t33*t34*t50+t69*t478-3.0*t11*t224*t3*t35-
4322         0.09327*t19*t216*t34+3.0*t137*t296+3.0*t139*t294-.0018928513185185*
4323         t1*t2*t3*t19*t33*t221+96.4940495336121*t217*t33*t218*t34*t219+
4324         t480*t148-.4109599999999999*t1*t2*t3*t50*t49*t54*t55*t12-0.20548*
4325         t1*t2*t3*t50*t33*t222*t55*t12+.4109599999999999*t1*t2*t3*t50*
4326         t33*t218*t220*t12-6.60919909938887*t1*t2*t3*t217*t33*t218*
4327         t219*t12+0.0063883732*t1*t2*t3*t19*t216*t12;
4328     d3fdrararb = t69*t506+2.0*t137*t301+2.0*t139*t300+t191*
4329         t294+t296*t190+t507*t148;
4330     d3fdraraga = 2.0*t304*t34*t50*t54*t55*rhoa+t50*t197*t222*
4331         t34*t55*rhoa-2.0*t197*t218*t220*t34*t50*rhoa-0.03109*t19*t510*
4332         t34*rhoa+32.1646831778707*t217*t197*t218*t34*t219*rhoa-.3333333333333333*
4333         t198*t3*t35*t7+2.0*t197*t34*t50*t54*t55+.0014196384888889*
4334         t1*t2*t3*t19*t197*t53-0.75*t3*t35*t511*t52-2.0*t11*t3*t305*
4335         t35-0.06218*t19*t304*t34+2.0*t137*t306+t199*t294+t512*t148-
4336         .1369866666666666*t1*t2*t3*t50*t197*t54*t55*t12+.0042589154666667*
4337         t1*t2*t3*t19*t304*t12;
4338     d3fdraragb = 2.0*t137*t307+t207*t294+t513*t148;
4339     d3fdraraab = 0.0;
4340     d3fdrarbrb = t69*t517+t139*t343+2.0*t190*t301+2.0*t191*
4341         t300+t518*t148+t344*t137;
4342     d3fdrarbga = t519*t148+t345*t137+t306*t190+t199*t300;
4343     d3fdrarbgb = t520*
4344         t148+t350*t137+t307*t190+t207*t300;
4345     d3fdrarbab = 0.0;
4346     d3fdragaga = t50*t352*t54*t34*t55*rhoa-0.03109*t19*t522*
4347         t34*rhoa-0.75*t3*t35*t52*t523-1.0*t11*t3*t35*t353-0.03109*
4348         t19*t352*t34+t524*t148+t354*t137+.0021294577333333*t1*t2*t3*
4349         t19*t352*t12;
4350     d3fdragagb = t525*t148+t355*t137;
4351     d3fdragaab = 0.0;
4352     d3fdragbgb = t526*t148+t359*t137;
4353     d3fdragbab = 0.0;
4354     d3fdraabab = 0.0;
4355     d3fdrbrbrb = -192.9880990672242*t317*t160*t538*t147*t540*
4356         rhob+2069.133687865597*t537*t160*t538*t147*t539*rhob+6.0*t147*
4357         t160*t175*t319*t538*rhob-6.0*t147*t160*t175*t179*t320*t322*
4358         rhob+3.0*t147*t174*t175*t180*t322*rhob-6.0*t147*t174*t175*
4359         t318*t320*rhob+96.4940495336121*t317*t174*t318*t147*t319*rhob+
4360         96.4940495336121*t317*t160*t322*t179*t147*t319*rhob+3.0*t147*
4361         t175*t179*t180*t316*rhob+t175*t542*t160*t147*t180*rhob-0.03109*
4362         t146*t536*t147*rhob+t69*t572-0.75*t177*t3*t35*t544-3.0*t142*
4363         t3*t324*t35-1.0*t140*t182*t3*t35+.2222222222222222*t166*t176*
4364         t3*t35+3.0*t190*t344+3.0*t191*t343+3.0*t147*t160*t175*t180*
4365         t322-.0018928513185185*t1*t2*t3*t146*t160*t321-6.0*t147*t160*
4366         t175*t318*t320+96.4940495336121*t317*t160*t318*t147*t319+6.0*
4367         t175*t174*t179*t147*t180-.1369866666666666*t1*t2*t3*t175*t160*
4368         t179*t180*t178+.0042589154666667*t1*t2*t3*t146*t174*t178+t573*
4369         t148-0.09327*t146*t316*t147+.4109599999999999*t1*t2*t3*t175*
4370         t160*t318*t320*t143-6.60919909938887*t1*t2*t3*t317*t160*t318*
4371         t319*t143+0.0063883732*t1*t2*t3*t146*t316*t143-0.20548*t1*
4372         t2*t3*t175*t160*t322*t180*t143-.4109599999999999*t1*t2*t3*
4373         t175*t174*t179*t180*t143;
4374     d3fdrbrbga = 2.0*t190*t345+t199*t343+t574*t148;
4375     d3fdrbrbgb = 2.0*t147*t175*t179*t180*t348*rhob-2.0*t147*
4376         t175*t205*t318*t320*rhob+32.1646831778707*t317*t205*t318*t147*
4377         t319*rhob+t175*t205*t322*t147*t180*rhob-0.03109*t146*t577*
4378         t147*rhob-0.75*t177*t3*t35*t578+2.0*t190*t350-2.0*t142*t3*
4379         t349*t35-.3333333333333333*t140*t206*t3*t35+t207*t343+2.0*
4380         t147*t175*t179*t180*t205+.0014196384888889*t1*t2*t3*t146*t205*
4381         t178+t579*t148-0.06218*t146*t348*t147+.0042589154666667*t1*
4382         t2*t3*t146*t348*t143-.1369866666666666*t1*t2*t3*t175*t205*
4383         t179*t180*t143;
4384     d3fdrbrbab = 0.0;
4385     d3fdrbgaga = t580*t148+t354*t190;
4386     d3fdrbgagb = t581*t148+t355*t190;
4387     d3fdrbgaab = 0.0;
4388     d3fdrbgbgb = t175*t357*t179*t147*t180*rhob-0.03109*t146*
4389         t583*t147*rhob-0.75*t177*t3*t35*t584-1.0*t142*t3*t35*t358+
4390         t359*t190+t585*t148-0.03109*t146*t357*t147+.0021294577333333*
4391         t1*t2*t3*t146*t357*t143;
4392     d3fdrbgbab = 0.0;
4393     d3fdrbabab = 0.0;
4394     d3fdgagaga = -0.03109*t19*t587*t34*rhoa-0.75*t3*t35*t52*
4395         t588+t589*t148;
4396     d3fdgagagb = t590*t148;
4397     d3fdgagaab = 0.0;
4398     d3fdgagbgb = t591*t148;
4399     d3fdgagbab = 0.0;
4400     d3fdgaabab = 0.0;
4401     d3fdgbgbgb = -0.03109*t146*t593*t147*rhob-0.75*t177*t3*
4402         t35*t594+t595*t148;
4403     d3fdgbgbab = 0.0;
4404     d3fdgbabab = 0.0;
4405     d3fdababab = 0.0;
4406     d4fdrararara = t69*(24829.60425438716*t370*t607*t34*t609*
4407         rhoa-199659.0885685683*t606*t607*t34*t608*rhoa-1.0*t50*t611*
4408         t34*t55*rhoa+24.0*t50*t607*t34*t373*rhoa+1157.928594403345*
4409         t217*t222*t218*t34*t373*rhoa-1157.928594403345*t217*t607*t34*
4410         t372*rhoa-12414.80212719358*t370*t222*t218*t34*t372*rhoa+6.0*
4411         t50*t610*t34*t220*rhoa+8.0*t50*t375*t54*t34*t220*rhoa-96.4940495336121*
4412         t217*t610*t34*t219*rhoa-128.6587327114828*t217*t375*t54*t34*
4413         t219*rhoa-36.0*t50*t222*t218*t34*t219*rhoa+t70*(-384.0*t125*
4414         t81*t82*t90*t99-1920.0*t127*t452*t81*t90*t99+96.0*t122*t81*
4415         t82*t84*t99+16.0*t127*t445*t81*t84*t99+72.0*t267*t275*t81*
4416         t84*t99-480.0*t122*t452*t81*t83*t99-16.0*t125*t445*t81*t83*
4417         t99+120.0*t267*t273*t81*t83*t99-576.0*t122*t125*t275*t81*t99+
4418         960.0*t122*t127*t273*t81*t99-192.0*t125*t127*t267*t81*t99+
4419         t81*t83*t84*t704*t99+.0197517897025652*t81*(384.0*t125*t82+
4420         t708+t707+t703+1920.0*t127*t452)*t86*t90*t93-.0029298488058805*
4421         t81*t1*t2*t3*t103*t456*t90*t93+0.005859697611761*t81*t1*t2*
4422         t3*t240*t277*t90*t93-.0091150851738505*t81*t1*t2*t3*t407*t128*
4423         t90*t93+.0197517897025652*t81*t85*t86*t704*t93+.0790071588102608*
4424         t81*t128*t86*t445*t93-.0029298488058805*t81*t1*t2*t3*t103*
4425         t85*t445*t93+.1185107382153912*t81*t277*t86*t267*t93+0.005859697611761*
4426         t81*t1*t2*t3*t240*t85*t267*t93-.0087895464176415*t81*t1*t2*
4427         t3*t103*t128*t267*t93+.0790071588102608*t81*t456*t86*t122*
4428         t93-.0091150851738505*t81*t1*t2*t3*t407*t85*t122*t93-.0087895464176415*
4429         t81*t1*t2*t3*t103*t277*t122*t93+0.011719395223522*t81*t1*t2*
4430         t3*t240*t128*t122*t93+96.0*t133*t81*t82*t84*t90+16.0*t127*
4431         t463*t81*t84*t90-192.0*t125*t127*t284*t81*t90+960.0*t127*t133*
4432         t273*t81*t90+4.0*t122*t463*t81*t83*t84+4.0*t133*t445*t81*t83*
4433         t84+6.0*t267*t284*t81*t83*t84+48.0*t122*t127*t284*t81*t84+
4434         144.0*t122*t133*t275*t81*t84+48.0*t127*t133*t267*t81*t84-48.0*
4435         t122*t125*t284*t81*t83+240.0*t122*t133*t273*t81*t83-48.0*t125*
4436         t133*t267*t81*t83-384.0*t122*t125*t127*t133*t81+t719+t718+
4437         t717+t716+t715+t714+t713+t712+t711+t705+t697+t696+t695+t694+
4438         t693+t692+t691+t690+t689+t688+t687+t686+t685+t684+t682+t681+
4439         t680+t679+t678+t677+t676+t675+t674+t672+t666+t665+t664+t663+
4440         t662+t661+t660+t659+t658+t657+t656+t655+t653+t652+t651+t650+
4441         t649+t648+t647+t646+t644-4101.558808403119*t81*t128*t411*t86*
4442         t412*t90*t413-4101.558808403119*t81*t85*t411*t86*t412*t122*
4443         t413+415.5781415850207*t81*t128*t411*t86*t416*t90*t246-103.8945353962552*
4444         t81*t277*t244*t86*t245*t90*t246-207.7890707925104*t81*t128*
4445         t252*t109*t86*t245*t90*t246+7.70551137522226*t81*t1*t2*t3*
4446         t103*t128*t244*t245*t90*t246-103.8945353962552*t81*t85*t244*
4447         t86*t245*t267*t246+415.5781415850207*t81*t85*t411*t86*t416*
4448         t122*t246-207.7890707925104*t81*t128*t244*t86*t245*t122*t246-
4449         207.7890707925104*t81*t85*t252*t109*t86*t245*t122*t246+7.70551137522226*
4450         t81*t1*t2*t3*t103*t85*t244*t245*t122*t246+7.017868076946245*
4451         t81*t277*t244*t86*t249*t90*t111+14.03573615389249*t81*t128*
4452         t252*t109*t86*t249*t90*t111-.5204918823735132*t81*t1*t2*t3*
4453         t103*t128*t244*t249*t90*t111-14.03573615389249*t81*t128*t411*
4454         t86*t245*t90*t111-2.339289358982082*t81*t128*t431*t86*t110*
4455         t90*t111-3.508934038473122*t81*t277*t252*t86*t110*t90*t111-
4456         2.339289358982082*t81*t456*t109*t86*t110*t90*t111+.2602459411867566*
4457         t81*t1*t2*t3*t103*t128*t252*t110*t90*t111+.2602459411867566*
4458         t81*t1*t2*t3*t103*t277*t109*t110*t90*t111-.3469945882490088*
4459         t81*t1*t2*t3*t240*t128*t109*t110*t90*t111-2.339289358982082*
4460         t81*t85*t109*t86*t110*t445*t111+7.017868076946245*t81*t85*
4461         t244*t86*t249*t267*t111-3.508934038473122*t81*t85*t252*t86*
4462         t110*t267*t111-7.017868076946245*t81*t128*t109*t86*t110*t267*
4463         t111+.2602459411867566*t81*t1*t2*t3*t103*t85*t109*t110*t267*
4464         t111+14.03573615389249*t81*t128*t244*t86*t249*t122*t111+14.03573615389249*
4465         t81*t85*t252*t109*t86*t249*t122*t111-.5204918823735132*t81*
4466         t1*t2*t3*t103*t85*t244*t249*t122*t111-14.03573615389249*t81*
4467         t85*t411*t86*t245*t122*t111-2.339289358982082*t81*t85*t431*
4468         t86*t110*t122*t111-7.017868076946245*t81*t128*t252*t86*t110*
4469         t122*t111-7.017868076946245*t81*t277*t109*t86*t110*t122*t111+
4470         .2602459411867566*t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-
4471         .3469945882490088*t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+
4472         .5204918823735132*t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)+
4473         96.0*t81*t82*t84*t90*t99+960.0*t127*t273*t81*t90*t99+4.0*t445*
4474         t81*t83*t84*t99+144.0*t122*t275*t81*t84*t99+48.0*t127*t267*
4475         t81*t84*t99+240.0*t122*t273*t81*t83*t99-48.0*t125*t267*t81*
4476         t83*t99-384.0*t122*t125*t127*t81*t99+.0790071588102608*t81*
4477         t456*t86*t90*t93-.0087895464176415*t81*t1*t2*t3*t103*t277*
4478         t90*t93+0.011719395223522*t81*t1*t2*t3*t240*t128*t90*t93+.0790071588102608*
4479         t81*t85*t86*t445*t93+.2370214764307825*t81*t128*t86*t267*t93-
4480         .0087895464176415*t81*t1*t2*t3*t103*t85*t267*t93+.2370214764307825*
4481         t81*t277*t86*t122*t93+0.011719395223522*t81*t1*t2*t3*t240*
4482         t85*t122*t93-0.017579092835283*t81*t1*t2*t3*t103*t128*t122*
4483         t93+48.0*t127*t284*t81*t84*t90-384.0*t125*t127*t133*t81*t90+
4484         12.0*t122*t284*t81*t83*t84+12.0*t133*t267*t81*t83*t84+96.0*
4485         t122*t127*t133*t81*t84-96.0*t122*t125*t133*t81*t83+t640+t639+
4486         t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+
4487         t626+t625+t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+
4488         t614+t613-4.0*t50*t375*t34*t55+.2739733333333333*t1*t2*t3*
4489         t50*t222*t55*t53-.5479466666666666*t1*t2*t3*t50*t218*t220*
4490         t53+8.812265465851826*t1*t2*t3*t217*t218*t219*t53-.0044166530765432*
4491         t1*t2*t3*t19*t374+771.9523962688968*t217*t371*t34*t373-8276.534751462386*
4492         t370*t371*t34*t372-207.7890707925104*t81*t128*t244*t86*t245*
4493         t90*t246-207.7890707925104*t81*t85*t244*t86*t245*t122*t246-
4494         .2435318518518518*t1*t2*t3*t50*t54*t55*t221+24.0*t50*t222*
4495         t54*t34*t220-385.9761981344484*t217*t222*t54*t34*t219-24.0*
4496         t50*t371*t34*t219+.2739733333333333*t1*t2*t3*t50*t375*t55*
4497         t12-52.87359279511096*t1*t2*t3*t217*t371*t373*t12+566.8874535768302*
4498         t1*t2*t3*t370*t371*t372*t12-1.64384*t1*t2*t3*t50*t222*t54*
4499         t220*t12+26.43679639755548*t1*t2*t3*t217*t222*t54*t219*t12+
4500         1.64384*t1*t2*t3*t50*t371*t219*t12+14.03573615389249*t81*t128*
4501         t244*t86*t249*t90*t111-7.017868076946245*t81*t128*t252*t86*
4502         t110*t90*t111-7.017868076946245*t81*t277*t109*t86*t110*t90*
4503         t111+.5204918823735132*t81*t1*t2*t3*t103*t128*t109*t110*t90*
4504         t111-7.017868076946245*t81*t85*t109*t86*t110*t267*t111+14.03573615389249*
4505         t81*t85*t244*t86*t249*t122*t111-7.017868076946245*t81*t85*
4506         t252*t86*t110*t122*t111-14.03573615389249*t81*t128*t109*t86*
4507         t110*t122*t111+.5204918823735132*t81*t1*t2*t3*t103*t85*t109*
4508         t110*t122*t111)-6.0*t220*t33*t34*t50*t610*rhoa-24829.60425438716*
4509         t370*t33*t607*t34*t609*rhoa+199659.0885685683*t606*t33*t607*
4510         t34*t608*rhoa-24.0*t33*t34*t373*t50*t607*rhoa+4.0*t34*t369*
4511         t50*t54*t55*rhoa+4.0*t34*t375*t49*t50*t55*rhoa+6.0*t216*t222*
4512         t34*t50*t55*rhoa+t50*t611*t33*t34*t55*rhoa-24.0*t220*t222*
4513         t34*t49*t50*t54*rhoa-8.0*t220*t33*t34*t375*t50*t54*rhoa+24.0*
4514         t219*t34*t371*t49*t50*rhoa+36.0*t218*t219*t222*t33*t34*t50*
4515         rhoa-12.0*t216*t218*t220*t34*t50*rhoa-771.9523962688968*t217*
4516         t49*t371*t34*t373*rhoa-1157.928594403345*t217*t33*t222*t218*
4517         t34*t373*rhoa+1157.928594403345*t217*t33*t607*t34*t372*rhoa+
4518         8276.534751462386*t370*t49*t371*t34*t372*rhoa+12414.80212719358*
4519         t370*t33*t222*t218*t34*t372*rhoa-0.03109*t19*(-13.48173037037037*
4520         t21*t32*t605+54.57275022222223*t29*t30*t604-175.2514706962963*
4521         t26*t27*t603+233.6411877767902*t20*t24*t602-135.1367155863704*
4522         t42*t43*t601+37.97174600691358*t208*t209*t600-5.145480882251853*
4523         t360*t361*t599+.2702545411792593*t596*t597*t598)*t34*rhoa+
4524         96.4940495336121*t217*t33*t610*t34*t219*rhoa+128.6587327114828*
4525         t217*t375*t33*t54*t34*t219*rhoa+385.9761981344484*t217*t49*
4526         t222*t54*t34*t219*rhoa+192.9880990672242*t217*t216*t218*t34*
4527         t219*rhoa-2.0*t224*t3*t35*t7-0.75*t3*t35*t52*(-.7728077432098764*
4528         t21*t40*t605+.1893084924839506*t29*t39*t604-0.006082094880237*
4529         t26*t38*t603+8.043848174048394e-5*t20*t37*t602-5.502357119279407e-7*
4530         t42*t56*t601+2.064154627236346e-9*t208*t223*t600-4.05001745688652e-12*
4531         t360*t376*t599+3.26174928380207e-15*t596*t612*t598)+.8888888888888888*
4532         t3*t35*t51*t57+4.0*t33*t34*t375*t50*t55+12.0*t50*t216*t54*
4533         t34*t55+12.0*t50*t49*t222*t34*t55-24.0*t220*t222*t33*t34*t50*
4534         t54-.5479466666666666*t1*t2*t3*t50*t49*t54*t55*t53-.2739733333333333*
4535         t1*t2*t3*t50*t33*t222*t55*t53+.5479466666666666*t1*t2*t3*t50*
4536         t33*t218*t220*t53-8.812265465851826*t1*t2*t3*t217*t33*t218*
4537         t219*t53+.0085178309333333*t1*t2*t3*t19*t216*t53+24.0*t219*
4538         t33*t34*t371*t50+4.0*t137*t480+4.0*t139*t478-.3703703703703703*
4539         t22*t3*t35*t41-4.0*t11*t3*t35*t377+.0044166530765432*t1*t2*
4540         t3*t19*t33*t374-771.9523962688968*t217*t33*t371*t34*t373+8276.534751462386*
4541         t370*t33*t371*t34*t372-0.12436*t19*t369*t34+6.0*t294*t296+
4542         .2435318518518518*t1*t2*t3*t50*t33*t54*t55*t221-.0075714052740741*
4543         t1*t2*t3*t19*t49*t221-24.0*t50*t49*t218*t34*t220+385.9761981344484*
4544         t217*t33*t222*t54*t34*t219+385.9761981344484*t217*t49*t218*
4545         t34*t219+(5.375471525925927*t21*t605*t68-.2622365660444445*
4546         t21*t605*t60*t67-0.4404967424*t29*t604*t67+.0033159657813333*
4547         t21*t605*t66*t65+0.0146270682624*t29*t604*t60*t65+0.0053698056192*
4548         t26*t603*t65-1.9205145344e-5*t21*t605*t64*t63-1.75461361152e-4*
4549         t29*t604*t66*t63-1.656296497152e-4*t26*t603*t60*t63-1.58961303552e-5*
4550         t20*t602*t63+4.5532591104e-8*t21*t605*t61*t138+9.618788720640002e-7*
4551         t29*t604*t64*t138+1.91371935744e-6*t26*t603*t66*t138+4.728818368512e-7*
4552         t20*t602*t60*t138-2.04322719744e-9*t29*t604*t61*t295-9.98542245888e-9*
4553         t26*t603*t64*t295-5.29502109696e-9*t20*t602*t66*t295+1.983537414144e-11*
4554         t26*t603*t61*t479+2.659495182336e-11*t20*t602*t64*t479-5.049004326912e-14*
4555         t20*t602*t61*t720)*t148-.8219199999999999*t1*t2*t3*t50*t216*
4556         t54*t55*t12-.2739733333333333*t1*t2*t3*t50*t375*t33*t55*t12-
4557         .8219199999999999*t1*t2*t3*t50*t49*t222*t55*t12+52.87359279511096*
4558         t1*t2*t3*t217*t33*t371*t373*t12-566.8874535768302*t1*t2*t3*
4559         t370*t33*t371*t372*t12+.0085178309333333*t1*t2*t3*t19*t369*
4560         t12+1.64384*t1*t2*t3*t50*t33*t222*t54*t220*t12+1.64384*t1*
4561         t2*t3*t50*t49*t218*t220*t12-26.43679639755548*t1*t2*t3*t217*
4562         t33*t222*t54*t219*t12-1.64384*t1*t2*t3*t50*t33*t371*t219*t12-
4563         26.43679639755548*t1*t2*t3*t217*t49*t218*t219*t12;
4564     d4fdrarararb = t69*(t70*(192.0*t125*t81*t82*t90*t99-960.0*
4565         t127*t452*t81*t90*t99+24.0*t185*t81*t82*t84*t99-72.0*t122*
4566         t81*t82*t84*t99+12.0*t127*t493*t81*t84*t99-4.0*t127*t445*t81*
4567         t84*t99-36.0*t267*t275*t81*t84*t99-12.0*t125*t493*t81*t83*
4568         t99-120.0*t185*t452*t81*t83*t99-360.0*t122*t452*t81*t83*t99-
4569         4.0*t125*t445*t81*t83*t99+60.0*t267*t273*t81*t83*t99-96.0*
4570         t125*t127*t297*t81*t99-144.0*t125*t185*t275*t81*t99+144.0*
4571         t122*t125*t275*t81*t99+240.0*t127*t185*t273*t81*t99+240.0*
4572         t122*t127*t273*t81*t99+t81*t83*t84*t748*t99+.0197517897025652*
4573         t81*(-192.0*t125*t82+t707+t700+960.0*t127*t452)*t86*t90*t93-
4574         .0021973866044104*t81*t1*t2*t3*t103*t499*t90*t93-7.324622014701263e-4*
4575         t81*t1*t2*t3*t103*t456*t90*t93+.0029298488058805*t81*t1*t2*
4576         t3*t240*t277*t90*t93-.0022787712934626*t81*t1*t2*t3*t407*t187*
4577         t90*t93-.0068363138803878*t81*t1*t2*t3*t407*t128*t90*t93+.0197517897025652*
4578         t81*t85*t86*t748*t93+.0592553691076956*t81*t128*t86*t493*t93-
4579         .0021973866044104*t81*t1*t2*t3*t103*t85*t493*t93+.0197517897025652*
4580         t81*t187*t86*t445*t93-7.324622014701263e-4*t81*t1*t2*t3*t103*
4581         t85*t445*t93+.0592553691076956*t81*t277*t86*t297*t93-.0043947732088208*
4582         t81*t1*t2*t3*t103*t128*t297*t93+.0592553691076956*t81*t298*
4583         t86*t267*t93+.0029298488058805*t81*t1*t2*t3*t240*t85*t267*
4584         t93-.0021973866044104*t81*t1*t2*t3*t103*t187*t267*t93-.0021973866044104*
4585         t81*t1*t2*t3*t103*t128*t267*t93+.0197517897025652*t81*t456*
4586         t86*t185*t93-.0022787712934626*t81*t1*t2*t3*t407*t85*t185*
4587         t93-.0021973866044104*t81*t1*t2*t3*t103*t277*t185*t93+.0592553691076956*
4588         t81*t499*t86*t122*t93-.0068363138803878*t81*t1*t2*t3*t407*
4589         t85*t122*t93-.0043947732088208*t81*t1*t2*t3*t103*t298*t122*
4590         t93-.0021973866044104*t81*t1*t2*t3*t103*t277*t122*t93+0.005859697611761*
4591         t81*t1*t2*t3*t240*t128*t122*t93-48.0*t133*t81*t82*t84*t90+
4592         8.0*t127*t463*t81*t84*t90-96.0*t125*t127*t284*t81*t90+480.0*
4593         t127*t133*t273*t81*t90+3.0*t133*t493*t81*t83*t84+3.0*t122*
4594         t463*t81*t83*t84+3.0*t267*t284*t81*t83*t84+24.0*t127*t133*
4595         t297*t81*t84+12.0*t127*t185*t284*t81*t84+12.0*t122*t127*t284*
4596         t81*t84+36.0*t133*t185*t275*t81*t84-36.0*t122*t133*t275*t81*
4597         t84-12.0*t125*t185*t284*t81*t83-36.0*t122*t125*t284*t81*t83+
4598         60.0*t133*t185*t273*t81*t83+180.0*t122*t133*t273*t81*t83-24.0*
4599         t125*t133*t267*t81*t83-96.0*t125*t127*t133*t185*t81-96.0*t122*
4600         t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
4601         t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
4602         t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
4603         t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
4604         t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
4605         t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
4606         t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t185*t463-
4607         1025.38970210078*t81*t187*t411*t86*t412*t90*t413-3076.169106302339*
4608         t81*t128*t411*t86*t412*t90*t413-1025.38970210078*t81*t85*t411*
4609         t86*t412*t185*t413-3076.169106302339*t81*t85*t411*t86*t412*
4610         t122*t413+103.8945353962552*t81*t187*t411*t86*t416*t90*t246+
4611         311.6836061887656*t81*t128*t411*t86*t416*t90*t246-51.94726769812759*
4612         t81*t277*t244*t86*t245*t90*t246-51.9472676981276*t81*t187*
4613         t252*t109*t86*t245*t90*t246-155.8418030943828*t81*t128*t252*
4614         t109*t86*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
4615         t187*t244*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
4616         t128*t244*t245*t90*t246-51.94726769812759*t81*t85*t244*t86*
4617         t245*t267*t246+103.8945353962552*t81*t85*t411*t86*t416*t185*
4618         t246-51.9472676981276*t81*t85*t252*t109*t86*t245*t185*t246+
4619         1.926377843805565*t81*t1*t2*t3*t103*t85*t244*t245*t185*t246+
4620         311.6836061887656*t81*t85*t411*t86*t416*t122*t246-103.8945353962552*
4621         t81*t128*t244*t86*t245*t122*t246-155.8418030943828*t81*t85*
4622         t252*t109*t86*t245*t122*t246+5.779133531416695*t81*t1*t2*t3*
4623         t103*t85*t244*t245*t122*t246+t81*t83*t84*t445*t133+3.508934038473122*
4624         t81*t277*t244*t86*t249*t90*t111+3.508934038473122*t81*t187*
4625         t252*t109*t86*t249*t90*t111+10.52680211541937*t81*t128*t252*
4626         t109*t86*t249*t90*t111-.1301229705933783*t81*t1*t2*t3*t103*
4627         t187*t244*t249*t90*t111-.3903689117801349*t81*t1*t2*t3*t103*
4628         t128*t244*t249*t90*t111-3.508934038473122*t81*t187*t411*t86*
4629         t245*t90*t111-10.52680211541937*t81*t128*t411*t86*t245*t90*
4630         t111-.5848223397455204*t81*t187*t431*t86*t110*t90*t111-1.754467019236561*
4631         t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t277*
4632         t252*t86*t110*t90*t111-1.754467019236561*t81*t499*t109*t86*
4633         t110*t90*t111-.5848223397455204*t81*t456*t109*t86*t110*t90*
4634         t111+.0650614852966891*t81*t1*t2*t3*t103*t187*t252*t110*t90*
4635         t111+.1951844558900674*t81*t1*t2*t3*t103*t128*t252*t110*t90*
4636         t111+.1301229705933783*t81*t1*t2*t3*t103*t277*t109*t110*t90*
4637         t111-.0867486470622522*t81*t1*t2*t3*t240*t187*t109*t110*t90*
4638         t111-.2602459411867566*t81*t1*t2*t3*t240*t128*t109*t110*t90*
4639         t111-1.754467019236561*t81*t85*t109*t86*t110*t493*t111-.5848223397455204*
4640         t81*t85*t109*t86*t110*t445*t111-3.508934038473122*t81*t128*
4641         t109*t86*t110*t297*t111+3.508934038473122*t81*t85*t244*t86*
4642         t249*t267*t111-1.754467019236561*t81*t85*t252*t86*t110*t267*
4643         t111-1.754467019236561*t81*t187*t109*t86*t110*t267*t111-1.754467019236561*
4644         t81*t128*t109*t86*t110*t267*t111+.1301229705933783*t81*t1*
4645         t2*t3*t103*t85*t109*t110*t267*t111+3.508934038473122*t81*t85*
4646         t252*t109*t86*t249*t185*t111-.1301229705933783*t81*t1*t2*t3*
4647         t103*t85*t244*t249*t185*t111-3.508934038473122*t81*t85*t411*
4648         t86*t245*t185*t111-.5848223397455204*t81*t85*t431*t86*t110*
4649         t185*t111-1.754467019236561*t81*t277*t109*t86*t110*t185*t111+
4650         .0650614852966891*t81*t1*t2*t3*t103*t85*t252*t110*t185*t111-
4651         .0867486470622522*t81*t1*t2*t3*t240*t85*t109*t110*t185*t111+
4652         7.017868076946245*t81*t128*t244*t86*t249*t122*t111+10.52680211541937*
4653         t81*t85*t252*t109*t86*t249*t122*t111-.3903689117801349*t81*
4654         t1*t2*t3*t103*t85*t244*t249*t122*t111-10.52680211541937*t81*
4655         t85*t411*t86*t245*t122*t111-1.754467019236561*t81*t85*t431*
4656         t86*t110*t122*t111-3.508934038473122*t81*t128*t252*t86*t110*
4657         t122*t111-3.508934038473122*t81*t298*t109*t86*t110*t122*t111-
4658         1.754467019236561*t81*t277*t109*t86*t110*t122*t111+.1951844558900674*
4659         t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-.2602459411867566*
4660         t81*t1*t2*t3*t240*t85*t109*t110*t122*t111+.2602459411867565*
4661         t81*t1*t2*t3*t103*t128*t109*t110*t122*t111)-48.0*t81*t82*t84*
4662         t90*t99+480.0*t127*t273*t81*t90*t99+3.0*t493*t81*t83*t84*t99+
4663         24.0*t127*t297*t81*t84*t99-36.0*t122*t275*t81*t84*t99+180.0*
4664         t122*t273*t81*t83*t99-24.0*t125*t267*t81*t83*t99-96.0*t125*
4665         t127*t185*t81*t99+.0592553691076956*t81*t499*t86*t90*t93-.0043947732088208*
4666         t81*t1*t2*t3*t103*t277*t90*t93+.0087895464176415*t81*t1*t2*
4667         t3*t240*t128*t90*t93+.0592553691076956*t81*t85*t86*t493*t93+
4668         .1185107382153912*t81*t128*t86*t297*t93+.0592553691076956*
4669         t81*t187*t86*t267*t93-.0043947732088208*t81*t1*t2*t3*t103*
4670         t85*t267*t93+.0592553691076956*t81*t277*t86*t185*t93+.1185107382153912*
4671         t81*t298*t86*t122*t93+.0087895464176415*t81*t1*t2*t3*t240*
4672         t85*t122*t93-.0087895464176415*t81*t1*t2*t3*t103*t128*t122*
4673         t93+24.0*t127*t284*t81*t84*t90-192.0*t125*t127*t133*t81*t90+
4674         9.0*t122*t284*t81*t83*t84+6.0*t133*t267*t81*t83*t84+24.0*t127*
4675         t133*t185*t81*t84-72.0*t122*t125*t133*t81*t83+t730+t729+t728+
4676         t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
4677         t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
4678         t621+t620+t619+t618+t617+t616+t615+t614+t613+t571+t569+t566+
4679         t565+t562+t560+t552+t551+t550+t549+t548+t547+t546+t545+t473+
4680         t471+t468+t457+t449+t447+t446-155.8418030943828*t81*t128*t244*
4681         t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
4682         t122*t246+10.52680211541937*t81*t128*t244*t86*t249*t90*t111-
4683         5.263401057709684*t81*t128*t252*t86*t110*t90*t111-3.508934038473122*
4684         t81*t277*t109*t86*t110*t90*t111+.3903689117801348*t81*t1*t2*
4685         t3*t103*t128*t109*t110*t90*t111-3.508934038473122*t81*t85*
4686         t109*t86*t110*t267*t111+10.52680211541937*t81*t85*t244*t86*
4687         t249*t122*t111-5.263401057709684*t81*t85*t252*t86*t110*t122*
4688         t111-7.017868076946245*t81*t128*t109*t86*t110*t122*t111+.3903689117801348*
4689         t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+3.0*t137*t507+3.0*
4690         t139*t506+t191*t478+3.0*t294*t301+3.0*t296*t300+t480*t190+
4691         (-0.0692916224*t21*t58*t368*t67*t173+0.0023008871424*t21*t58*
4692         t368*t60*t65*t173+0.0026849028096*t29*t58*t367*t65*t173-2.7600663552e-5*
4693         t21*t58*t368*t66*t63*t173-8.28148248576e-5*t29*t58*t367*t60*
4694         t63*t173-1.58961303552e-5*t26*t58*t366*t63*t173+1.51306788864e-7*
4695         t21*t58*t368*t64*t138*t173+9.568596787200001e-7*t29*t58*t367*
4696         t66*t138*t173+4.728818368512e-7*t26*t58*t366*t60*t138*t173-
4697         3.2140652544e-10*t21*t58*t368*t61*t295*t173-4.992711229440001e-9*
4698         t29*t58*t367*t64*t295*t173-5.29502109696e-9*t26*t58*t366*t66*
4699         t295*t173+9.91768707072e-12*t29*t58*t367*t61*t479*t173+2.659495182336e-11*
4700         t26*t58*t366*t64*t479*t173-5.049004326912e-14*t26*t58*t366*
4701         t61*t720*t173)*t148;
4702     d4fdrararaga = 3.0*t34*t50*t510*t54*t55*rhoa+3.0*t222*
4703         t304*t34*t50*t55*rhoa+t50*t375*t197*t34*t55*rhoa-6.0*t197*
4704         t220*t222*t34*t50*t54*rhoa+6.0*t197*t219*t34*t371*t50*rhoa-
4705         6.0*t218*t220*t304*t34*t50*rhoa-192.9880990672242*t217*t197*
4706         t371*t34*t373*rhoa+2069.133687865597*t370*t197*t371*t34*t372*
4707         rhoa-0.03109*t19*(4.758257777777779*grada*t32*t368-26.53751466666667*
4708         t196*t30*t367+96.98730382222223*t195*t27*t366-140.798896165926*
4709         t194*t24*t365+87.23400476444445*t192*t43*t364-25.96370371318519*
4710         t302*t209*t363+3.69623404088889*t508*t361*t362-.2026909058844445*
4711         t757*t597*t758)*t34*rhoa+96.4940495336121*t217*t197*t222*t54*
4712         t34*t219*rhoa+96.4940495336121*t217*t304*t218*t34*t219*rhoa-
4713         1.0*t3*t305*t35*t7+3.0*t197*t222*t34*t50*t55+6.0*t50*t304*
4714         t54*t34*t55-.1369866666666666*t1*t2*t3*t50*t197*t54*t55*t53+
4715         .0042589154666667*t1*t2*t3*t19*t304*t53-0.75*t3*t35*(0.272755674074074*
4716         grada*t40*t368-.0912608445629629*t196*t39*t367+.0034158733767111*
4717         t195*t38*t366-4.976854997522963e-5*t194*t37*t365+3.644651266958222e-7*
4718         t192*t56*t364-1.439007574395259e-9*t302*t223*t363+2.93922377272889e-12*
4719         t508*t376*t362-2.44631196285156e-15*t757*t612*t758)*t52+3.0*
4720         t137*t512-3.0*t11*t3*t35*t511+.2222222222222222*t198*t3*t35*
4721         t51-6.0*t197*t218*t220*t34*t50+t199*t478-0.09327*t19*t510*
4722         t34+3.0*t294*t306-.0018928513185185*t1*t2*t3*t19*t197*t221+
4723         96.4940495336121*t217*t197*t218*t34*t219+(-1.897225244444445*
4724         grada*t368*t68+.0925540821333334*grada*t368*t60*t67+0.2301471744*
4725         t196*t367*t67-0.001170340864*grada*t368*t66*t65-0.0076422322944*
4726         t196*t367*t60*t65-0.0034781695488*t195*t366*t65+6.778286592000002e-6*
4727         grada*t368*t64*t63+9.167363251200001e-5*t196*t367*t66*t63+
4728         1.072828412928e-4*t195*t366*t60*t63+1.19220977664e-5*t194*
4729         t365*t63-1.6070326272e-8*grada*t368*t61*t138-5.02554691584e-7*
4730         t196*t367*t64*t138-1.23956822016e-6*t195*t366*t66*t138-3.546613776384e-7*
4731         t194*t365*t60*t138+1.06752881664e-9*t196*t367*t61*t295+6.46783045632e-9*
4732         t195*t366*t64*t295+3.971265822719999e-9*t194*t365*t66*t295-
4733         1.284791279616e-11*t195*t366*t61*t479-1.994621386752e-11*t194*
4734         t365*t64*t479+3.786753245184e-14*t194*t365*t61*t720)*t148-
4735         .4109599999999999*t1*t2*t3*t50*t304*t54*t55*t12-0.20548*t1*
4736         t2*t3*t50*t197*t222*t55*t12+0.0063883732*t1*t2*t3*t19*t510*
4737         t12+.4109599999999999*t1*t2*t3*t50*t197*t218*t220*t12-6.60919909938887*
4738         t1*t2*t3*t217*t197*t218*t219*t12;
4739     d4fdrararagb = 3.0*t137*t513+t207*t478+3.0*t294*t307+
4740         (0.0519687168*t21*gradb*t368*t67*t59-0.0017256653568*t21*gradb*
4741         t368*t60*t65*t59-0.0020136771072*t29*gradb*t367*t65*t59+2.0700497664e-5*
4742         t21*gradb*t368*t66*t63*t59+6.21111186432e-5*t29*gradb*t367*
4743         t60*t63*t59+1.19220977664e-5*t26*gradb*t366*t63*t59-1.13480091648e-7*
4744         t21*gradb*t368*t64*t138*t59-7.1764475904e-7*t29*gradb*t367*
4745         t66*t138*t59-3.546613776384e-7*t26*gradb*t366*t60*t138*t59+
4746         2.4105489408e-10*t21*gradb*t368*t61*t295*t59+3.74453342208e-9*
4747         t29*gradb*t367*t64*t295*t59+3.971265822719999e-9*t26*gradb*
4748         t366*t66*t295*t59-7.43826530304e-12*t29*gradb*t367*t61*t479*
4749         t59-1.994621386752e-11*t26*gradb*t366*t64*t479*t59+3.786753245184e-14*
4750         t26*gradb*t366*t61*t720*t59)*t148;
4751     d4fdrararaab = 0.0;
4752     d4fdrararbrb = t69*(t70*(-480.0*t273*t275*t81*t90*t99-
4753         48.0*t185*t81*t82*t84*t99+48.0*t122*t81*t82*t84*t99+8.0*t127*
4754         t514*t81*t84*t99-8.0*t127*t493*t81*t84*t99+12.0*t275*t331*
4755         t81*t84*t99-48.0*t275*t297*t81*t84*t99+12.0*t267*t275*t81*
4756         t84*t99-8.0*t125*t514*t81*t83*t99-8.0*t125*t493*t81*t83*t99-
4757         240.0*t185*t452*t81*t83*t99-240.0*t122*t452*t81*t83*t99+20.0*
4758         t273*t331*t81*t83*t99+80.0*t273*t297*t81*t83*t99+20.0*t267*
4759         t273*t81*t83*t99-32.0*t125*t127*t331*t81*t99+96.0*t125*t185*
4760         t275*t81*t99+96.0*t122*t125*t275*t81*t99+160.0*t127*t185*t273*
4761         t81*t99-160.0*t122*t127*t273*t81*t99+32.0*t125*t127*t267*t81*
4762         t99+t81*t83*t84*t761*t99+.0197517897025652*(t707+t703+480.0*
4763         t273*t275)*t81*t86*t90*t93-.0014649244029403*t81*t1*t2*t3*
4764         t103*t515*t90*t93-.0014649244029403*t81*t1*t2*t3*t103*t499*
4765         t90*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*t336*t90*t93+
4766         .0039064650745073*t81*t1*t2*t3*t240*t298*t90*t93+9.766162686268349e-4*
4767         t81*t1*t2*t3*t240*t277*t90*t93-.0045575425869252*t81*t1*t2*
4768         t3*t407*t187*t90*t93-.0045575425869252*t81*t1*t2*t3*t407*t128*
4769         t90*t93+.0197517897025652*t81*t85*t86*t761*t93+.0395035794051304*
4770         t81*t128*t86*t514*t93-.0014649244029403*t81*t1*t2*t3*t103*
4771         t85*t514*t93+.0395035794051304*t81*t187*t86*t493*t93-.0014649244029403*
4772         t81*t1*t2*t3*t103*t85*t493*t93+.0197517897025652*t81*t277*
4773         t86*t331*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*t85*t331*
4774         t93-.0014649244029403*t81*t1*t2*t3*t103*t128*t331*t93+.0790071588102608*
4775         t81*t298*t86*t297*t93+.0039064650745073*t81*t1*t2*t3*t240*
4776         t85*t297*t93-.0029298488058805*t81*t1*t2*t3*t103*t187*t297*
4777         t93-.0029298488058805*t81*t1*t2*t3*t103*t128*t297*t93+.0197517897025652*
4778         t81*t336*t86*t267*t93+9.766162686268349e-4*t81*t1*t2*t3*t240*
4779         t85*t267*t93-.0014649244029403*t81*t1*t2*t3*t103*t187*t267*
4780         t93+.0395035794051304*t81*t499*t86*t185*t93-.0045575425869252*
4781         t81*t1*t2*t3*t407*t85*t185*t93-.0029298488058805*t81*t1*t2*
4782         t3*t103*t298*t185*t93-.0014649244029403*t81*t1*t2*t3*t103*
4783         t277*t185*t93+.0019532325372537*t81*t1*t2*t3*t240*t187*t185*
4784         t93+.0039064650745073*t81*t1*t2*t3*t240*t128*t185*t93+.0395035794051304*
4785         t81*t515*t86*t122*t93-.0045575425869252*t81*t1*t2*t3*t407*
4786         t85*t122*t93-.0014649244029403*t81*t1*t2*t3*t103*t336*t122*
4787         t93-.0029298488058805*t81*t1*t2*t3*t103*t298*t122*t93+.0039064650745073*
4788         t81*t1*t2*t3*t240*t187*t122*t93+.0019532325372537*t81*t1*t2*
4789         t3*t240*t128*t122*t93-24.0*t275*t284*t81*t84*t90+192.0*t125*
4790         t133*t275*t81*t90+2.0*t133*t514*t81*t83*t84+2.0*t133*t493*
4791         t81*t83*t84+2.0*t185*t463*t81*t83*t84+2.0*t122*t463*t81*t83*
4792         t84+4.0*t284*t297*t81*t83*t84+8.0*t127*t133*t331*t81*t84+8.0*
4793         t127*t185*t284*t81*t84-8.0*t122*t127*t284*t81*t84-24.0*t133*
4794         t185*t275*t81*t84-24.0*t122*t133*t275*t81*t84-8.0*t127*t133*
4795         t267*t81*t84-8.0*t125*t133*t331*t81*t83-32.0*t125*t133*t297*
4796         t81*t83-24.0*t125*t185*t284*t81*t83-24.0*t122*t125*t284*t81*
4797         t83+120.0*t133*t185*t273*t81*t83+120.0*t122*t133*t273*t81*
4798         t83-8.0*t125*t133*t267*t81*t83-64.0*t125*t127*t133*t185*t81+
4799         64.0*t122*t125*t127*t133*t81+t719+t717+t715+t713+t712+t711+
4800         t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+
4801         t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+
4802         t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+
4803         t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-2050.77940420156*
4804         t81*t187*t411*t86*t412*t90*t413-2050.77940420156*t81*t128*
4805         t411*t86*t412*t90*t413-2050.77940420156*t81*t85*t411*t86*t412*
4806         t185*t413-2050.77940420156*t81*t85*t411*t86*t412*t122*t413+
4807         t81*t83*t84*t331*t284+t81*t83*t84*t267*t284+207.7890707925104*
4808         t81*t187*t411*t86*t416*t90*t246+207.7890707925104*t81*t128*
4809         t411*t86*t416*t90*t246-17.31575589937587*t81*t336*t244*t86*
4810         t245*t90*t246-69.26302359750346*t81*t298*t244*t86*t245*t90*
4811         t246-17.31575589937587*t81*t277*t244*t86*t245*t90*t246-103.8945353962552*
4812         t81*t187*t252*t109*t86*t245*t90*t246-103.8945353962552*t81*
4813         t128*t252*t109*t86*t245*t90*t246+3.85275568761113*t81*t1*t2*
4814         t3*t103*t187*t244*t245*t90*t246+3.85275568761113*t81*t1*t2*
4815         t3*t103*t128*t244*t245*t90*t246-17.31575589937587*t81*t85*
4816         t244*t86*t245*t331*t246-69.26302359750346*t81*t85*t244*t86*
4817         t245*t297*t246-17.31575589937587*t81*t85*t244*t86*t245*t267*
4818         t246+207.7890707925104*t81*t85*t411*t86*t416*t185*t246-34.63151179875173*
4819         t81*t187*t244*t86*t245*t185*t246-69.26302359750346*t81*t128*
4820         t244*t86*t245*t185*t246-103.8945353962552*t81*t85*t252*t109*
4821         t86*t245*t185*t246+3.85275568761113*t81*t1*t2*t3*t103*t85*
4822         t244*t245*t185*t246+207.7890707925104*t81*t85*t411*t86*t416*
4823         t122*t246-69.26302359750346*t81*t187*t244*t86*t245*t122*t246-
4824         34.63151179875173*t81*t128*t244*t86*t245*t122*t246-103.8945353962552*
4825         t81*t85*t252*t109*t86*t245*t122*t246+3.85275568761113*t81*
4826         t1*t2*t3*t103*t85*t244*t245*t122*t246+1.169644679491041*t81*
4827         t336*t244*t86*t249*t90*t111+4.678578717964164*t81*t298*t244*
4828         t86*t249*t90*t111+1.169644679491041*t81*t277*t244*t86*t249*
4829         t90*t111+7.017868076946245*t81*t187*t252*t109*t86*t249*t90*
4830         t111+7.017868076946245*t81*t128*t252*t109*t86*t249*t90*t111-
4831         .2602459411867566*t81*t1*t2*t3*t103*t187*t244*t249*t90*t111-
4832         .2602459411867566*t81*t1*t2*t3*t103*t128*t244*t249*t90*t111-
4833         7.017868076946245*t81*t187*t411*t86*t245*t90*t111-7.017868076946245*
4834         t81*t128*t411*t86*t245*t90*t111-1.169644679491041*t81*t187*
4835         t431*t86*t110*t90*t111-1.169644679491041*t81*t128*t431*t86*
4836         t110*t90*t111-.5848223397455204*t81*t336*t252*t86*t110*t90*
4837         t111-2.339289358982082*t81*t298*t252*t86*t110*t90*t111-.5848223397455204*
4838         t81*t277*t252*t86*t110*t90*t111-1.169644679491041*t81*t515*
4839         t109*t86*t110*t90*t111-1.169644679491041*t81*t499*t109*t86*
4840         t110*t90*t111+.1301229705933783*t81*t1*t2*t3*t103*t187*t252*
4841         t110*t90*t111+.1301229705933783*t81*t1*t2*t3*t103*t128*t252*
4842         t110*t90*t111+.0433743235311261*t81*t1*t2*t3*t103*t336*t109*
4843         t110*t90*t111+.1734972941245044*t81*t1*t2*t3*t103*t298*t109*
4844         t110*t90*t111+.0433743235311261*t81*t1*t2*t3*t103*t277*t109*
4845         t110*t90*t111-.1734972941245044*t81*t1*t2*t3*t240*t187*t109*
4846         t110*t90*t111-.1734972941245044*t81*t1*t2*t3*t240*t128*t109*
4847         t110*t90*t111-1.169644679491041*t81*t85*t109*t86*t110*t514*
4848         t111-1.169644679491041*t81*t85*t109*t86*t110*t493*t111+1.169644679491041*
4849         t81*t85*t244*t86*t249*t331*t111-.5848223397455204*t81*t85*
4850         t252*t86*t110*t331*t111-1.169644679491041*t81*t128*t109*t86*
4851         t110*t331*t111+.0433743235311261*t81*t1*t2*t3*t103*t85*t109*
4852         t110*t331*t111+4.678578717964164*t81*t85*t244*t86*t249*t297*
4853         t111-2.339289358982082*t81*t85*t252*t86*t110*t297*t111-2.339289358982082*
4854         t81*t187*t109*t86*t110*t297*t111-2.339289358982082*t81*t128*
4855         t109*t86*t110*t297*t111+.1734972941245044*t81*t1*t2*t3*t103*
4856         t85*t109*t110*t297*t111+1.169644679491041*t81*t85*t244*t86*
4857         t249*t267*t111-.5848223397455204*t81*t85*t252*t86*t110*t267*
4858         t111-1.169644679491041*t81*t187*t109*t86*t110*t267*t111+.0433743235311261*
4859         t81*t1*t2*t3*t103*t85*t109*t110*t267*t111+2.339289358982082*
4860         t81*t187*t244*t86*t249*t185*t111+4.678578717964164*t81*t128*
4861         t244*t86*t249*t185*t111+7.017868076946245*t81*t85*t252*t109*
4862         t86*t249*t185*t111-.2602459411867566*t81*t1*t2*t3*t103*t85*
4863         t244*t249*t185*t111-7.017868076946245*t81*t85*t411*t86*t245*
4864         t185*t111-1.169644679491041*t81*t85*t431*t86*t110*t185*t111-
4865         1.169644679491041*t81*t187*t252*t86*t110*t185*t111-2.339289358982082*
4866         t81*t128*t252*t86*t110*t185*t111-2.339289358982082*t81*t298*
4867         t109*t86*t110*t185*t111-1.169644679491041*t81*t277*t109*t86*
4868         t110*t185*t111+.1301229705933783*t81*t1*t2*t3*t103*t85*t252*
4869         t110*t185*t111-.1734972941245044*t81*t1*t2*t3*t240*t85*t109*
4870         t110*t185*t111+.0867486470622522*t81*t1*t2*t3*t103*t187*t109*
4871         t110*t185*t111+.1734972941245044*t81*t1*t2*t3*t103*t128*t109*
4872         t110*t185*t111+4.678578717964164*t81*t187*t244*t86*t249*t122*
4873         t111+2.339289358982082*t81*t128*t244*t86*t249*t122*t111+7.017868076946245*
4874         t81*t85*t252*t109*t86*t249*t122*t111-.2602459411867566*t81*
4875         t1*t2*t3*t103*t85*t244*t249*t122*t111-7.017868076946245*t81*
4876         t85*t411*t86*t245*t122*t111-1.169644679491041*t81*t85*t431*
4877         t86*t110*t122*t111-2.339289358982082*t81*t187*t252*t86*t110*
4878         t122*t111-1.169644679491041*t81*t128*t252*t86*t110*t122*t111-
4879         1.169644679491041*t81*t336*t109*t86*t110*t122*t111-2.339289358982082*
4880         t81*t298*t109*t86*t110*t122*t111+.1301229705933783*t81*t1*
4881         t2*t3*t103*t85*t252*t110*t122*t111-.1734972941245044*t81*t1*
4882         t2*t3*t240*t85*t109*t110*t122*t111+.1734972941245044*t81*t1*
4883         t2*t3*t103*t187*t109*t110*t122*t111+.0867486470622522*t81*
4884         t1*t2*t3*t103*t128*t109*t110*t122*t111)+192.0*t125*t275*t81*
4885         t90*t99+2.0*t514*t81*t83*t84*t99+2.0*t493*t81*t83*t84*t99+
4886         8.0*t127*t331*t81*t84*t99-8.0*t127*t267*t81*t84*t99-8.0*t125*
4887         t331*t81*t83*t99-32.0*t125*t297*t81*t83*t99+120.0*t185*t273*
4888         t81*t83*t99+120.0*t122*t273*t81*t83*t99-8.0*t125*t267*t81*
4889         t83*t99-64.0*t125*t127*t185*t81*t99+64.0*t122*t125*t127*t81*
4890         t99+.0395035794051304*t81*t515*t86*t90*t93+.0395035794051304*
4891         t81*t499*t86*t90*t93-.0014649244029403*t81*t1*t2*t3*t103*t336*
4892         t90*t93-0.005859697611761*t81*t1*t2*t3*t103*t298*t90*t93-.0014649244029403*
4893         t81*t1*t2*t3*t103*t277*t90*t93+0.005859697611761*t81*t1*t2*
4894         t3*t240*t187*t90*t93+0.005859697611761*t81*t1*t2*t3*t240*t128*
4895         t90*t93+.0395035794051304*t81*t85*t86*t514*t93+.0395035794051304*
4896         t81*t85*t86*t493*t93+.0395035794051304*t81*t128*t86*t331*t93-
4897         .0014649244029403*t81*t1*t2*t3*t103*t85*t331*t93+.0790071588102608*
4898         t81*t187*t86*t297*t93+.0790071588102608*t81*t128*t86*t297*
4899         t93-0.005859697611761*t81*t1*t2*t3*t103*t85*t297*t93+.0395035794051304*
4900         t81*t187*t86*t267*t93-.0014649244029403*t81*t1*t2*t3*t103*
4901         t85*t267*t93+.0790071588102608*t81*t298*t86*t185*t93+.0395035794051304*
4902         t81*t277*t86*t185*t93+0.005859697611761*t81*t1*t2*t3*t240*
4903         t85*t185*t93-.0029298488058805*t81*t1*t2*t3*t103*t187*t185*
4904         t93-0.005859697611761*t81*t1*t2*t3*t103*t128*t185*t93+.0395035794051304*
4905         t81*t336*t86*t122*t93+.0790071588102608*t81*t298*t86*t122*
4906         t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t122*t93-0.005859697611761*
4907         t81*t1*t2*t3*t103*t187*t122*t93-.0029298488058805*t81*t1*t2*
4908         t3*t103*t128*t122*t93-48.0*t133*t275*t81*t84*t90+2.0*t133*
4909         t331*t81*t83*t84+8.0*t133*t297*t81*t83*t84+6.0*t185*t284*t81*
4910         t83*t84+6.0*t122*t284*t81*t83*t84+2.0*t133*t267*t81*t83*t84+
4911         16.0*t127*t133*t185*t81*t84-16.0*t122*t127*t133*t81*t84-48.0*
4912         t125*t133*t185*t81*t83-48.0*t122*t125*t133*t81*t83+t639+t637+
4913         t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
4914         t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+t614+t613+
4915         t516+t503-103.8945353962552*t81*t187*t244*t86*t245*t90*t246-
4916         103.8945353962552*t81*t128*t244*t86*t245*t90*t246-103.8945353962552*
4917         t81*t85*t244*t86*t245*t185*t246-103.8945353962552*t81*t85*
4918         t244*t86*t245*t122*t246+7.017868076946245*t81*t187*t244*t86*
4919         t249*t90*t111+7.017868076946245*t81*t128*t244*t86*t249*t90*
4920         t111-3.508934038473122*t81*t187*t252*t86*t110*t90*t111-3.508934038473122*
4921         t81*t128*t252*t86*t110*t90*t111-1.169644679491041*t81*t336*
4922         t109*t86*t110*t90*t111-4.678578717964164*t81*t298*t109*t86*
4923         t110*t90*t111-1.169644679491041*t81*t277*t109*t86*t110*t90*
4924         t111+.2602459411867565*t81*t1*t2*t3*t103*t187*t109*t110*t90*
4925         t111+.2602459411867566*t81*t1*t2*t3*t103*t128*t109*t110*t90*
4926         t111-1.169644679491041*t81*t85*t109*t86*t110*t331*t111-4.678578717964164*
4927         t81*t85*t109*t86*t110*t297*t111-1.169644679491041*t81*t85*
4928         t109*t86*t110*t267*t111+7.017868076946245*t81*t85*t244*t86*
4929         t249*t185*t111-3.508934038473122*t81*t85*t252*t86*t110*t185*
4930         t111-2.339289358982082*t81*t187*t109*t86*t110*t185*t111-4.678578717964164*
4931         t81*t128*t109*t86*t110*t185*t111+.2602459411867565*t81*t1*
4932         t2*t3*t103*t85*t109*t110*t185*t111+7.017868076946245*t81*t85*
4933         t244*t86*t249*t122*t111-3.508934038473122*t81*t85*t252*t86*
4934         t110*t122*t111-4.678578717964164*t81*t187*t109*t86*t110*t122*
4935         t111-2.339289358982082*t81*t128*t109*t86*t110*t122*t111+.2602459411867566*
4936         t81*t1*t2*t3*t103*t85*t109*t110*t122*t111)+2.0*t137*t518+2.0*
4937         t139*t517+2.0*t190*t507+2.0*t191*t506+t296*t343+4.0*t300*t301+
4938         t344*t294+(-0.0544434176*t21*t58*t215*t67*t315+0.0018078398976*
4939         t21*t58*t215*t60*t65*t315+8.949676031999998e-4*t29*t58*t214*
4940         t65*t315-2.1686235648e-5*t21*t58*t215*t66*t63*t315-2.76049416192e-5*
4941         t29*t58*t214*t60*t63*t315+1.18883905536e-7*t21*t58*t215*t64*
4942         t138*t315+3.1895322624e-7*t29*t58*t214*t66*t138*t315-2.5253369856e-10*
4943         t21*t58*t215*t61*t295*t315-1.66423707648e-9*t29*t58*t214*t64*
4944         t295*t315+3.30589569024e-12*t29*t58*t214*t61*t479*t315+8.949676032e-4*
4945         t21*t156*t215*t65*t314-2.76049416192e-5*t21*t156*t215*t60*
4946         t63*t314-1.58961303552e-5*t29*t156*t214*t63*t314+3.1895322624e-7*
4947         t21*t156*t215*t66*t138*t314+4.728818368512e-7*t29*t156*t214*
4948         t60*t138*t314-1.66423707648e-9*t21*t156*t215*t64*t295*t314-
4949         5.29502109696e-9*t29*t156*t214*t66*t295*t314+3.30589569024e-12*
4950         t21*t156*t215*t61*t479*t314+2.659495182336e-11*t29*t156*t214*
4951         t64*t479*t314-5.049004326912e-14*t29*t156*t214*t61*t720*t314)*
4952         t148;
4953     d4fdrararbga = 2.0*t137*t519+t199*t506+2.0*t300*t306+
4954         t345*t294+t512*t190+(0.0296964096*grada*t58*t215*t67*t173-
4955         9.860944896e-4*grada*t58*t215*t60*t65*t173-0.0016475539968*
4956         t196*t58*t214*t65*t173+1.1828855808e-5*grada*t58*t215*t66*
4957         t63*t173+5.08181879808e-5*t196*t58*t214*t60*t63*t173+1.19220977664e-5*
4958         t195*t58*t213*t63*t173-6.4845766656e-8*grada*t58*t215*t64*
4959         t138*t173-5.871638937599999e-7*t196*t58*t214*t66*t138*t173-
4960         3.546613776384e-7*t195*t58*t213*t60*t138*t173+1.3774565376e-10*
4961         grada*t58*t215*t61*t295*t173+3.06370916352e-9*t196*t58*t214*
4962         t64*t295*t173+3.971265822719999e-9*t195*t58*t213*t66*t295*
4963         t173-6.08585342976e-12*t196*t58*t214*t61*t479*t173-1.994621386752e-11*
4964         t195*t58*t213*t64*t479*t173+3.786753245184e-14*t195*t58*t213*
4965         t61*t720*t173)*t148;
4966     d4fdrararbgb = 2.0*t137*t520+t207*t506+2.0*t300*t307+
4967         t350*t294+t513*t190+(0.0296964096*t21*gradb*t215*t67*t173-
4968         9.860944896e-4*t21*gradb*t215*t60*t65*t173-4.881641471999999e-4*
4969         t29*gradb*t214*t65*t173+1.1828855808e-5*t21*gradb*t215*t66*
4970         t63*t173+1.50572408832e-5*t29*gradb*t214*t60*t63*t173-6.4845766656e-8*
4971         t21*gradb*t215*t64*t138*t173-1.7397448704e-7*t29*gradb*t214*
4972         t66*t138*t173+1.3774565376e-10*t21*gradb*t215*t61*t295*t173+
4973         9.0776567808e-10*t29*gradb*t214*t64*t295*t173-1.80321583104e-12*
4974         t29*gradb*t214*t61*t479*t173-6.712257024000001e-4*t21*t204*
4975         t215*t65*t172+2.07037062144e-5*t21*t204*t215*t60*t63*t172+
4976         1.19220977664e-5*t29*t204*t214*t63*t172-2.3921491968e-7*t21*
4977         t204*t215*t66*t138*t172-3.546613776384e-7*t29*t204*t214*t60*
4978         t138*t172+1.24817780736e-9*t21*t204*t215*t64*t295*t172+3.971265822719999e-9*
4979         t29*t204*t214*t66*t295*t172-2.47942176768e-12*t21*t204*t215*
4980         t61*t479*t172-1.994621386752e-11*t29*t204*t214*t64*t479*t172+
4981         3.786753245184e-14*t29*t204*t214*t61*t720*t172)*t148;
4982     d4fdrararbab = 0.0;
4983     d4fdraragaga = 2.0*t34*t50*t522*t54*t55*rhoa+t50*t352*
4984         t222*t34*t55*rhoa-2.0*t218*t220*t34*t352*t50*rhoa-0.03109*
4985         t19*(-1.019626666666667*t32*t215+11.04164266666667*t21*t30*
4986         t214-49.43887786666667*t29*t27*t213+80.75327630222225*t26*
4987         t24*t212-54.65938830222224*t20*t43*t211+17.46168786488889*
4988         t42*t209*t210-2.636445013333334*t208*t361*t509+.1520181794133334*
4989         t360*t597*t762)*t34*rhoa+32.1646831778707*t217*t352*t218*t34*
4990         t219*rhoa-.3333333333333333*t3*t35*t353*t7+2.0*t34*t352*t50*
4991         t54*t55+.0014196384888889*t1*t2*t3*t19*t352*t53+2.0*t137*t524-
4992         2.0*t11*t3*t35*t523-0.75*(-.0584476444444444*t40*t215+.0375465187555555*
4993         t21*t39*t214-.0017738547996444*t29*t38*t213+2.949453610097778e-5*
4994         t26*t37*t212-2.357182303800889e-7*t20*t56*t211+9.90891635143111e-10*
4995         t42*t223*t210-2.12251006293333e-12*t208*t376*t509+1.83473397213867e-15*
4996         t360*t612*t762)*t3*t35*t52-0.06218*t19*t522*t34+t354*t294+
4997         (.4065482666666667*t215*t68-0.0198330176*t215*t60*t67-0.1042748928*
4998         t21*t214*t67+2.50787328e-4*t215*t66*t65+0.0034625363328*t21*
4999         t214*t60*t65+0.0021509732736*t29*t213*t65-1.452489984e-6*t215*
5000         t64*t63-4.1535414144e-5*t21*t214*t66*t63-6.63459676416e-5*
5001         t29*t213*t60*t63-8.9415733248e-6*t26*t212*t63+3.443641344e-9*
5002         t215*t61*t138+2.27697067008e-7*t21*t214*t64*t138+7.6657508352e-7*
5003         t29*t213*t66*t138+2.659960332288e-7*t26*t212*t60*t138-4.8367507968e-10*
5004         t21*t214*t61*t295-3.99984251904e-9*t29*t213*t64*t295-2.97844936704e-9*
5005         t26*t212*t66*t295+7.94541975552e-12*t29*t213*t61*t479+1.495966040064e-11*
5006         t26*t212*t64*t479-2.840064933888e-14*t26*t212*t61*t720)*t148-
5007         .1369866666666666*t1*t2*t3*t50*t352*t54*t55*t12+.0042589154666667*
5008         t1*t2*t3*t19*t522*t12;
5009     d4fdraragagb = 2.0*t137*t525+t355*t294+(-0.0222723072*
5010         grada*gradb*t215*t67*t59+7.395708672e-4*grada*gradb*t215*t60*
5011         t65*t59+0.0012356654976*t196*gradb*t214*t65*t59-8.871641856000001e-6*
5012         grada*gradb*t215*t66*t63*t59-3.811364098559999e-5*t196*gradb*
5013         t214*t60*t63*t59-8.9415733248e-6*t195*gradb*t213*t63*t59+4.863432499200002e-8*
5014         grada*gradb*t215*t64*t138*t59+4.4037292032e-7*t196*gradb*t214*
5015         t66*t138*t59+2.659960332288e-7*t195*gradb*t213*t60*t138*t59-
5016         1.0330924032e-10*grada*gradb*t215*t61*t295*t59-2.29778187264e-9*
5017         t196*gradb*t214*t64*t295*t59-2.97844936704e-9*t195*gradb*t213*
5018         t66*t295*t59+4.56439007232e-12*t196*gradb*t214*t61*t479*t59+
5019         1.495966040064e-11*t195*gradb*t213*t64*t479*t59-2.840064933888e-14*
5020         t195*gradb*t213*t61*t720*t59)*t148;
5021     d4fdraragaab = 0.0;
5022     d4fdraragbgb = 2.0*t137*t526+t359*t294+(-0.0111361536*
5023         t21*t215*t67*t59+3.697854336e-4*t21*t215*t60*t65*t59+1.830615552e-4*
5024         t29*t214*t65*t59-4.435820928e-6*t21*t215*t66*t63*t59-5.6464653312e-6*
5025         t29*t214*t60*t63*t59+2.431716249600001e-8*t21*t215*t64*t138*
5026         t59+6.524043264e-8*t29*t214*t66*t138*t59-5.165462016e-11*t21*
5027         t215*t61*t295*t59-3.4041212928e-10*t29*t214*t64*t295*t59+6.7620593664e-13*
5028         t29*t214*t61*t479*t59+5.034192768e-4*t21*t58*t215*t65*t158-
5029         1.55277796608e-5*t21*t58*t215*t60*t63*t158-8.9415733248e-6*
5030         t29*t58*t214*t63*t158+1.7941118976e-7*t21*t58*t215*t66*t138*
5031         t158+2.659960332288e-7*t29*t58*t214*t60*t138*t158-9.3613335552e-10*
5032         t21*t58*t215*t64*t295*t158-2.97844936704e-9*t29*t58*t214*t66*
5033         t295*t158+1.85956632576e-12*t21*t58*t215*t61*t479*t158+1.495966040064e-11*
5034         t29*t58*t214*t64*t479*t158-2.840064933888e-14*t29*t58*t214*
5035         t61*t720*t158)*t148;
5036     d4fdraragbab = 0.0;
5037     d4fdraraabab = 0.0;
5038     d4fdrarbrbrb = t69*(t70*(-192.0*t125*t81*t82*t90*t99+
5039         960.0*t127*t452*t81*t90*t99+72.0*t185*t81*t82*t84*t99-24.0*
5040         t122*t81*t82*t84*t99+4.0*t127*t557*t81*t84*t99-12.0*t127*t514*
5041         t81*t84*t99-36.0*t275*t331*t81*t84*t99-4.0*t125*t557*t81*t83*
5042         t99-12.0*t125*t514*t81*t83*t99-360.0*t185*t452*t81*t83*t99-
5043         120.0*t122*t452*t81*t83*t99+60.0*t273*t331*t81*t83*t99+96.0*
5044         t125*t127*t297*t81*t99+144.0*t125*t185*t275*t81*t99-144.0*
5045         t122*t125*t275*t81*t99-240.0*t127*t185*t273*t81*t99-240.0*
5046         t122*t127*t273*t81*t99+t81*t83*t84*t763*t99+.0197517897025652*
5047         t81*(192.0*t125*t82+t707+t700-960.0*t127*t452)*t86*t90*t93-
5048         7.324622014701263e-4*t81*t1*t2*t3*t103*t563*t90*t93-.0021973866044104*
5049         t81*t1*t2*t3*t103*t515*t90*t93+.0029298488058805*t81*t1*t2*
5050         t3*t240*t336*t90*t93-.0068363138803878*t81*t1*t2*t3*t407*t187*
5051         t90*t93-.0022787712934626*t81*t1*t2*t3*t407*t128*t90*t93+.0197517897025652*
5052         t81*t85*t86*t763*t93+.0197517897025652*t81*t128*t86*t557*t93-
5053         7.324622014701263e-4*t81*t1*t2*t3*t103*t85*t557*t93+.0592553691076956*
5054         t81*t187*t86*t514*t93-.0021973866044104*t81*t1*t2*t3*t103*
5055         t85*t514*t93+.0592553691076956*t81*t298*t86*t331*t93+.0029298488058805*
5056         t81*t1*t2*t3*t240*t85*t331*t93-.0021973866044104*t81*t1*t2*
5057         t3*t103*t187*t331*t93-.0021973866044104*t81*t1*t2*t3*t103*
5058         t128*t331*t93+.0592553691076956*t81*t336*t86*t297*t93-.0043947732088208*
5059         t81*t1*t2*t3*t103*t187*t297*t93+.0592553691076956*t81*t515*
5060         t86*t185*t93-.0068363138803878*t81*t1*t2*t3*t407*t85*t185*
5061         t93-.0021973866044104*t81*t1*t2*t3*t103*t336*t185*t93-.0043947732088208*
5062         t81*t1*t2*t3*t103*t298*t185*t93+0.005859697611761*t81*t1*t2*
5063         t3*t240*t187*t185*t93+.0197517897025652*t81*t563*t86*t122*
5064         t93-.0022787712934626*t81*t1*t2*t3*t407*t85*t122*t93-.0021973866044104*
5065         t81*t1*t2*t3*t103*t336*t122*t93+48.0*t133*t81*t82*t84*t90-
5066         8.0*t127*t463*t81*t84*t90+96.0*t125*t127*t284*t81*t90-480.0*
5067         t127*t133*t273*t81*t90+3.0*t133*t514*t81*t83*t84+3.0*t185*
5068         t463*t81*t83*t84+3.0*t284*t331*t81*t83*t84-24.0*t127*t133*
5069         t297*t81*t84-12.0*t127*t185*t284*t81*t84-12.0*t122*t127*t284*
5070         t81*t84-36.0*t133*t185*t275*t81*t84+36.0*t122*t133*t275*t81*
5071         t84-24.0*t125*t133*t331*t81*t83-36.0*t125*t185*t284*t81*t83-
5072         12.0*t122*t125*t284*t81*t83+180.0*t133*t185*t273*t81*t83+60.0*
5073         t122*t133*t273*t81*t83+96.0*t125*t127*t133*t185*t81+96.0*t122*
5074         t125*t127*t133*t81+t756+t755+t754+t753+t752+t751+t750+t749+
5075         t747+t746+t745+t744+t743+t742+t741+t740+t739+t738+t737+t736+
5076         t735+t734+t733+t732+t731+t717+t715+t713+t712+t711+t705+t697+
5077         t696+t695+t694+t693+t692+t691+t690+t689+t688+t687+t686+t685+
5078         t684+t682+t681+t680+t679+t678+t677+t676+t675+t674+t672+t666+
5079         t665+t664+t663+t662+t661+t660+t659+t658+t657+t656+t655+t653+
5080         t652+t651+t650+t649+t648+t647+t646+t644+t81*t83*t84*t122*t463-
5081         3076.169106302339*t81*t187*t411*t86*t412*t90*t413-1025.38970210078*
5082         t81*t128*t411*t86*t412*t90*t413-3076.169106302339*t81*t85*
5083         t411*t86*t412*t185*t413-1025.38970210078*t81*t85*t411*t86*
5084         t412*t122*t413+311.6836061887656*t81*t187*t411*t86*t416*t90*
5085         t246+103.8945353962552*t81*t128*t411*t86*t416*t90*t246-51.9472676981276*
5086         t81*t336*t244*t86*t245*t90*t246-155.8418030943828*t81*t187*
5087         t252*t109*t86*t245*t90*t246-51.9472676981276*t81*t128*t252*
5088         t109*t86*t245*t90*t246+5.779133531416695*t81*t1*t2*t3*t103*
5089         t187*t244*t245*t90*t246+1.926377843805565*t81*t1*t2*t3*t103*
5090         t128*t244*t245*t90*t246-51.9472676981276*t81*t85*t244*t86*
5091         t245*t331*t246+311.6836061887656*t81*t85*t411*t86*t416*t185*
5092         t246-103.8945353962552*t81*t187*t244*t86*t245*t185*t246-155.8418030943828*
5093         t81*t85*t252*t109*t86*t245*t185*t246+5.779133531416695*t81*
5094         t1*t2*t3*t103*t85*t244*t245*t185*t246+103.8945353962552*t81*
5095         t85*t411*t86*t416*t122*t246-51.9472676981276*t81*t85*t252*
5096         t109*t86*t245*t122*t246+1.926377843805565*t81*t1*t2*t3*t103*
5097         t85*t244*t245*t122*t246+t81*t83*t84*t557*t133+3.508934038473122*
5098         t81*t336*t244*t86*t249*t90*t111+10.52680211541937*t81*t187*
5099         t252*t109*t86*t249*t90*t111+3.508934038473122*t81*t128*t252*
5100         t109*t86*t249*t90*t111-.3903689117801349*t81*t1*t2*t3*t103*
5101         t187*t244*t249*t90*t111-.1301229705933783*t81*t1*t2*t3*t103*
5102         t128*t244*t249*t90*t111-10.52680211541937*t81*t187*t411*t86*
5103         t245*t90*t111-3.508934038473122*t81*t128*t411*t86*t245*t90*
5104         t111-1.754467019236561*t81*t187*t431*t86*t110*t90*t111-.5848223397455204*
5105         t81*t128*t431*t86*t110*t90*t111-1.754467019236561*t81*t336*
5106         t252*t86*t110*t90*t111-.5848223397455204*t81*t563*t109*t86*
5107         t110*t90*t111-1.754467019236561*t81*t515*t109*t86*t110*t90*
5108         t111+.1951844558900674*t81*t1*t2*t3*t103*t187*t252*t110*t90*
5109         t111+.0650614852966891*t81*t1*t2*t3*t103*t128*t252*t110*t90*
5110         t111+.1301229705933783*t81*t1*t2*t3*t103*t336*t109*t110*t90*
5111         t111-.2602459411867565*t81*t1*t2*t3*t240*t187*t109*t110*t90*
5112         t111-.0867486470622522*t81*t1*t2*t3*t240*t128*t109*t110*t90*
5113         t111-.5848223397455204*t81*t85*t109*t86*t110*t557*t111-1.754467019236561*
5114         t81*t85*t109*t86*t110*t514*t111+3.508934038473122*t81*t85*
5115         t244*t86*t249*t331*t111-1.754467019236561*t81*t85*t252*t86*
5116         t110*t331*t111-1.754467019236561*t81*t187*t109*t86*t110*t331*
5117         t111-1.754467019236561*t81*t128*t109*t86*t110*t331*t111+.1301229705933783*
5118         t81*t1*t2*t3*t103*t85*t109*t110*t331*t111-3.508934038473122*
5119         t81*t187*t109*t86*t110*t297*t111+7.017868076946245*t81*t187*
5120         t244*t86*t249*t185*t111+10.52680211541937*t81*t85*t252*t109*
5121         t86*t249*t185*t111-.3903689117801349*t81*t1*t2*t3*t103*t85*
5122         t244*t249*t185*t111-10.52680211541937*t81*t85*t411*t86*t245*
5123         t185*t111-1.754467019236561*t81*t85*t431*t86*t110*t185*t111-
5124         3.508934038473122*t81*t187*t252*t86*t110*t185*t111-1.754467019236561*
5125         t81*t336*t109*t86*t110*t185*t111-3.508934038473122*t81*t298*
5126         t109*t86*t110*t185*t111+.1951844558900674*t81*t1*t2*t3*t103*
5127         t85*t252*t110*t185*t111-.2602459411867565*t81*t1*t2*t3*t240*
5128         t85*t109*t110*t185*t111+.2602459411867566*t81*t1*t2*t3*t103*
5129         t187*t109*t110*t185*t111+3.508934038473122*t81*t85*t252*t109*
5130         t86*t249*t122*t111-.1301229705933783*t81*t1*t2*t3*t103*t85*
5131         t244*t249*t122*t111-3.508934038473122*t81*t85*t411*t86*t245*
5132         t122*t111-.5848223397455204*t81*t85*t431*t86*t110*t122*t111-
5133         1.754467019236561*t81*t336*t109*t86*t110*t122*t111+.0650614852966891*
5134         t81*t1*t2*t3*t103*t85*t252*t110*t122*t111-.0867486470622522*
5135         t81*t1*t2*t3*t240*t85*t109*t110*t122*t111)+48.0*t81*t82*t84*
5136         t90*t99-480.0*t127*t273*t81*t90*t99+3.0*t514*t81*t83*t84*t99-
5137         24.0*t127*t297*t81*t84*t99-36.0*t185*t275*t81*t84*t99-24.0*
5138         t125*t331*t81*t83*t99+180.0*t185*t273*t81*t83*t99+96.0*t122*
5139         t125*t127*t81*t99+.0592553691076956*t81*t515*t86*t90*t93-.0043947732088208*
5140         t81*t1*t2*t3*t103*t336*t90*t93+.0087895464176415*t81*t1*t2*
5141         t3*t240*t187*t90*t93+.0592553691076956*t81*t85*t86*t514*t93+
5142         .0592553691076956*t81*t128*t86*t331*t93-.0043947732088208*
5143         t81*t1*t2*t3*t103*t85*t331*t93+.1185107382153912*t81*t187*
5144         t86*t297*t93+.1185107382153912*t81*t298*t86*t185*t93+.0087895464176415*
5145         t81*t1*t2*t3*t240*t85*t185*t93-.0087895464176415*t81*t1*t2*
5146         t3*t103*t187*t185*t93+.0592553691076956*t81*t336*t86*t122*
5147         t93-24.0*t127*t284*t81*t84*t90+192.0*t125*t127*t133*t81*t90+
5148         6.0*t133*t331*t81*t83*t84+9.0*t185*t284*t81*t83*t84-24.0*t122*
5149         t127*t133*t81*t84-72.0*t125*t133*t185*t81*t83+t730+t729+t728+
5150         t727+t726+t725+t724+t723+t722+t721+t639+t637+t636+t635+t634+
5151         t633+t632+t631+t630+t629+t628+t627+t626+t625+t624+t623+t622+
5152         t621+t620+t619+t618+t617+t616+t615+t614+t613+t570+t568+t567+
5153         t564+t561+t559+t558+t474+t472+t467+t465+t450+t448+t433+t429+
5154         t427+t423+t422+t421+t420+t415-155.8418030943828*t81*t187*t244*
5155         t86*t245*t90*t246-155.8418030943828*t81*t85*t244*t86*t245*
5156         t185*t246+10.52680211541937*t81*t187*t244*t86*t249*t90*t111-
5157         5.263401057709684*t81*t187*t252*t86*t110*t90*t111-3.508934038473123*
5158         t81*t336*t109*t86*t110*t90*t111+.3903689117801349*t81*t1*t2*
5159         t3*t103*t187*t109*t110*t90*t111-3.508934038473123*t81*t85*
5160         t109*t86*t110*t331*t111+10.52680211541937*t81*t85*t244*t86*
5161         t249*t185*t111-5.263401057709684*t81*t85*t252*t86*t110*t185*
5162         t111-7.017868076946246*t81*t187*t109*t86*t110*t185*t111+.3903689117801349*
5163         t81*t1*t2*t3*t103*t85*t109*t110*t185*t111)+t139*t572+3.0*t190*
5164         t518+3.0*t191*t517+3.0*t300*t344+3.0*t301*t343+(-0.0692916224*
5165         t21*t58*t48*t67*t535+0.0023008871424*t21*t58*t48*t60*t65*t535-
5166         2.7600663552e-5*t21*t58*t48*t66*t63*t535+1.51306788864e-7*
5167         t21*t58*t48*t64*t138*t535-3.2140652544e-10*t21*t58*t48*t61*
5168         t295*t535+0.0026849028096*t21*t156*t48*t65*t534-8.28148248576e-5*
5169         t21*t156*t48*t60*t63*t534+9.568596787199999e-7*t21*t156*t48*
5170         t66*t138*t534-4.992711229439999e-9*t21*t156*t48*t64*t295*t534+
5171         9.91768707072e-12*t21*t156*t48*t61*t479*t534-1.58961303552e-5*
5172         t21*t153*t48*t63*t533+4.728818368512e-7*t21*t153*t48*t60*t138*
5173         t533-5.29502109696e-9*t21*t153*t48*t66*t295*t533+2.659495182336e-11*
5174         t21*t153*t48*t64*t479*t533-5.049004326912e-14*t21*t153*t48*
5175         t61*t720*t533)*t148+t573*t137;
5176     d4fdrarbrbga = 2.0*t190*t519+t199*t517+2.0*t300*t345+
5177         t306*t343+(0.0296964096*grada*t58*t48*t67*t315-9.860944896e-4*
5178         grada*t58*t48*t60*t65*t315-6.712257024000001e-4*t196*t58*t47*
5179         t65*t315+1.1828855808e-5*grada*t58*t48*t66*t63*t315+2.07037062144e-5*
5180         t196*t58*t47*t60*t63*t315-6.4845766656e-8*grada*t58*t48*t64*
5181         t138*t315-2.3921491968e-7*t196*t58*t47*t66*t138*t315+1.3774565376e-10*
5182         grada*t58*t48*t61*t295*t315+1.24817780736e-9*t196*t58*t47*
5183         t64*t295*t315-2.47942176768e-12*t196*t58*t47*t61*t479*t315-
5184         4.881641471999999e-4*grada*t156*t48*t65*t314+1.50572408832e-5*
5185         grada*t156*t48*t60*t63*t314+1.19220977664e-5*t196*t156*t47*
5186         t63*t314-1.7397448704e-7*grada*t156*t48*t66*t138*t314-3.546613776384e-7*
5187         t196*t156*t47*t60*t138*t314+9.0776567808e-10*grada*t156*t48*
5188         t64*t295*t314+3.971265822719999e-9*t196*t156*t47*t66*t295*
5189         t314-1.80321583104e-12*grada*t156*t48*t61*t479*t314-1.994621386752e-11*
5190         t196*t156*t47*t64*t479*t314+3.786753245184e-14*t196*t156*t47*
5191         t61*t720*t314)*t148+t574*t137;
5192     d4fdrarbrbgb = 2.0*t190*t520+t207*t517+2.0*t300*t350+
5193         t307*t343+(0.0296964096*t21*gradb*t48*t67*t315-9.860944896e-4*
5194         t21*gradb*t48*t60*t65*t315+1.1828855808e-5*t21*gradb*t48*t66*
5195         t63*t315-6.4845766656e-8*t21*gradb*t48*t64*t138*t315+1.3774565376e-10*
5196         t21*gradb*t48*t61*t295*t315-0.0016475539968*t21*t204*t48*t65*
5197         t314+5.08181879808e-5*t21*t204*t48*t60*t63*t314-5.871638937599999e-7*
5198         t21*t204*t48*t66*t138*t314+3.06370916352e-9*t21*t204*t48*t64*
5199         t295*t314-6.08585342976e-12*t21*t204*t48*t61*t479*t314+1.19220977664e-5*
5200         t21*t203*t48*t63*t313-3.546613776384e-7*t21*t203*t48*t60*t138*
5201         t313+3.971265822719999e-9*t21*t203*t48*t66*t295*t313-1.994621386752e-11*
5202         t21*t203*t48*t64*t479*t313+3.786753245184e-14*t21*t203*t48*
5203         t61*t720*t313)*t148+t579*t137;
5204     d4fdrarbrbab = 0.0;
5205     d4fdrarbgaga = (-0.0080990208*t58*t48*t67*t173+2.689348608e-4*
5206         t58*t48*t60*t65*t173+9.153077759999999e-4*t21*t58*t47*t65*
5207         t173-3.226051584e-6*t58*t48*t66*t63*t173-2.8232326656e-5*t21*
5208         t58*t47*t60*t63*t173-8.9415733248e-6*t29*t58*t46*t63*t173+
5209         1.7685209088e-8*t58*t48*t64*t138*t173+3.262021632e-7*t21*t58*
5210         t47*t66*t138*t173+2.659960332288e-7*t29*t58*t46*t60*t138*t173-
5211         3.756699648e-11*t58*t48*t61*t295*t173-1.7020606464e-9*t21*
5212         t58*t47*t64*t295*t173-2.97844936704e-9*t29*t58*t46*t66*t295*
5213         t173+3.3810296832e-12*t21*t58*t47*t61*t479*t173+1.495966040064e-11*
5214         t29*t58*t46*t64*t479*t173-2.840064933888e-14*t29*t58*t46*t61*
5215         t720*t173)*t148+t580*t137+t524*t190+t354*t300;
5216     d4fdrarbgagb = (-0.0161980416*grada*gradb*t48*t67*t173+
5217         5.378697216e-4*grada*gradb*t48*t60*t65*t173+3.661231104e-4*
5218         t196*gradb*t47*t65*t173-6.452103168e-6*grada*gradb*t48*t66*
5219         t63*t173-1.12929306624e-5*t196*gradb*t47*t60*t63*t173+3.5370418176e-8*
5220         grada*gradb*t48*t64*t138*t173+1.3048086528e-7*t196*gradb*t47*
5221         t66*t138*t173-7.513399296e-11*grada*gradb*t48*t61*t295*t173-
5222         6.8082425856e-10*t196*gradb*t47*t64*t295*t173+1.35241187328e-12*
5223         t196*gradb*t47*t61*t479*t173+3.661231104e-4*grada*t204*t48*
5224         t65*t172-1.12929306624e-5*grada*t204*t48*t60*t63*t172-8.9415733248e-6*
5225         t196*t204*t47*t63*t172+1.3048086528e-7*grada*t204*t48*t66*
5226         t138*t172+2.659960332288e-7*t196*t204*t47*t60*t138*t172-6.8082425856e-10*
5227         grada*t204*t48*t64*t295*t172-2.97844936704e-9*t196*t204*t47*
5228         t66*t295*t172+1.35241187328e-12*grada*t204*t48*t61*t479*t172+
5229         1.495966040064e-11*t196*t204*t47*t64*t479*t172-2.840064933888e-14*
5230         t196*t204*t47*t61*t720*t172)*t148+t581*t137+t525*t190+t355*
5231         t300;
5232     d4fdrarbgaab = 0.0;
5233     d4fdrarbgbgb = (-0.0080990208*t21*t48*t67*t173+2.689348608e-4*
5234         t21*t48*t60*t65*t173-3.226051584e-6*t21*t48*t66*t63*t173+1.7685209088e-8*
5235         t21*t48*t64*t138*t173-3.756699648e-11*t21*t48*t61*t295*t173+
5236         9.153077759999999e-4*t21*t58*t48*t65*t172-2.8232326656e-5*
5237         t21*t58*t48*t60*t63*t172+3.262021632e-7*t21*t58*t48*t66*t138*
5238         t172-1.7020606464e-9*t21*t58*t48*t64*t295*t172+3.3810296832e-12*
5239         t21*t58*t48*t61*t479*t172-8.9415733248e-6*t21*t156*t48*t63*
5240         t171+2.659960332288e-7*t21*t156*t48*t60*t138*t171-2.97844936704e-9*
5241         t21*t156*t48*t66*t295*t171+1.495966040064e-11*t21*t156*t48*
5242         t64*t479*t171-2.840064933888e-14*t21*t156*t48*t61*t720*t171)*
5243         t148+t585*t137+t526*t190+t359*t300;
5244     d4fdrarbgbab = 0.0;
5245     d4fdrarbabab = 0.0;
5246     d4fdragagaga = t50*t587*t54*t34*t55*rhoa-0.03109*t19*
5247         (-3.551232*grada*t30*t47+22.53342720000001*t196*t27*t46-43.52509952000001*
5248         t195*t24*t45+33.043730432*t194*t43*t44-11.518767104*t192*t209*
5249         t303+1.8653560832*t302*t361*t521-0.11401363456*t508*t597*t764)*
5250         t34*rhoa-1.0*t11*t3*t35*t588-0.75*t3*t35*(-0.011930624*grada*
5251         t39*t47+8.268492799999999e-4*t196*t38*t46-1.65497618432e-5*
5252         t195*t37*t45+1.481475227648001e-7*t194*t56*t44-6.72732020736e-10*
5253         t192*t223*t303+1.524308639744e-12*t302*t376*t521-1.376050479104e-15*
5254         t508*t612*t764)*t52-0.03109*t19*t587*t34+(0.0364455936*grada*
5255         t47*t67-0.0012102068736*grada*t47*t60*t65-0.0012356654976*
5256         t196*t46*t65+1.4517232128e-5*grada*t47*t66*t63+3.811364098559999e-5*
5257         t196*t46*t60*t63+6.706179993600001e-6*t195*t45*t63-7.9583440896e-8*
5258         grada*t47*t64*t138-4.4037292032e-7*t196*t46*t66*t138-1.994970249216e-7*
5259         t195*t45*t60*t138+1.6905148416e-10*grada*t47*t61*t295+2.29778187264e-9*
5260         t196*t46*t64*t295+2.23383702528e-9*t195*t45*t66*t295-4.56439007232e-12*
5261         t196*t46*t61*t479-1.121974530048e-11*t195*t45*t64*t479+2.130048700416e-14*
5262         t195*t45*t61*t720)*t148+t589*t137+.0021294577333333*t1*t2*
5263         t3*t19*t587*t12;
5264     d4fdragagagb = (0.0060742656*gradb*t48*t67*t59-2.017011456e-4*
5265         gradb*t48*t60*t65*t59-6.86480832e-4*t21*gradb*t47*t65*t59+
5266         2.419538688e-6*gradb*t48*t66*t63*t59+2.1174244992e-5*t21*gradb*
5267         t47*t60*t63*t59+6.706179993600001e-6*t29*gradb*t46*t63*t59-
5268         1.3263906816e-8*gradb*t48*t64*t138*t59-2.446516224e-7*t21*
5269         gradb*t47*t66*t138*t59-1.994970249216e-7*t29*gradb*t46*t60*
5270         t138*t59+2.817524736e-11*gradb*t48*t61*t295*t59+1.2765454848e-9*
5271         t21*gradb*t47*t64*t295*t59+2.23383702528e-9*t29*gradb*t46*
5272         t66*t295*t59-2.5357722624e-12*t21*gradb*t47*t61*t479*t59-1.121974530048e-11*
5273         t29*gradb*t46*t64*t479*t59+2.130048700416e-14*t29*gradb*t46*
5274         t61*t720*t59)*t148+t590*t137;
5275     d4fdragagaab = 0.0;
5276     d4fdragagbgb = (0.0060742656*grada*t48*t67*t59-2.017011456e-4*
5277         grada*t48*t60*t65*t59-1.372961664e-4*t196*t47*t65*t59+2.419538688e-6*
5278         grada*t48*t66*t63*t59+4.2348489984e-6*t196*t47*t60*t63*t59-
5279         1.3263906816e-8*grada*t48*t64*t138*t59-4.893032448e-8*t196*
5280         t47*t66*t138*t59+2.817524736e-11*grada*t48*t61*t295*t59+2.5530909696e-10*
5281         t196*t47*t64*t295*t59-5.0715445248e-13*t196*t47*t61*t479*t59-
5282         2.745923328e-4*grada*t58*t48*t65*t158+8.4696979968e-6*grada*
5283         t58*t48*t60*t63*t158+6.706179993600001e-6*t196*t58*t47*t63*
5284         t158-9.786064896e-8*grada*t58*t48*t66*t138*t158-1.994970249216e-7*
5285         t196*t58*t47*t60*t138*t158+5.1061819392e-10*grada*t58*t48*
5286         t64*t295*t158+2.23383702528e-9*t196*t58*t47*t66*t295*t158-
5287         1.01430890496e-12*grada*t58*t48*t61*t479*t158-1.121974530048e-11*
5288         t196*t58*t47*t64*t479*t158+2.130048700416e-14*t196*t58*t47*
5289         t61*t720*t158)*t148+t591*t137;
5290     d4fdragagbab = 0.0;
5291     d4fdragaabab = 0.0;
5292     d4fdragbgbgb = (-4.118884992e-4*t21*gradb*t48*t65*t158+
5293         1.27045469952e-5*t21*gradb*t48*t60*t63*t158-1.4679097344e-7*
5294         t21*gradb*t48*t66*t138*t158+7.6592729088e-10*t21*gradb*t48*
5295         t64*t295*t158-1.52146335744e-12*t21*gradb*t48*t61*t479*t158+
5296         6.706179993600001e-6*t21*t204*t48*t63*t155-1.994970249216e-7*
5297         t21*t204*t48*t60*t138*t155+2.23383702528e-9*t21*t204*t48*t66*
5298         t295*t155-1.121974530048e-11*t21*t204*t48*t64*t479*t155+2.130048700416e-14*
5299         t21*t204*t48*t61*t720*t155)*t148+t595*t137;
5300     d4fdragbgbab = 0.0;
5301     d4fdragbabab = 0.0;
5302     d4fdraababab = 0.0;
5303     d4fdrbrbrbrb = t69*(24829.60425438716*t537*t776*t147*
5304         t778*rhob-199659.0885685683*t775*t776*t147*t777*rhob+24.0*
5305         t175*t776*t147*t540*rhob+1157.928594403345*t317*t322*t318*
5306         t147*t540*rhob-1157.928594403345*t317*t776*t147*t539*rhob-
5307         12414.80212719358*t537*t322*t318*t147*t539*rhob+6.0*t175*t779*
5308         t147*t320*rhob+8.0*t175*t542*t179*t147*t320*rhob-96.4940495336121*
5309         t317*t779*t147*t319*rhob-36.0*t175*t322*t318*t147*t319*rhob-
5310         128.6587327114828*t317*t542*t179*t147*t319*rhob-1.0*t175*t780*
5311         t147*t180*rhob+t70*(384.0*t125*t81*t82*t90*t99+1920.0*t127*
5312         t452*t81*t90*t99-96.0*t185*t81*t82*t84*t99-16.0*t127*t557*
5313         t81*t84*t99+72.0*t275*t331*t81*t84*t99-16.0*t125*t557*t81*
5314         t83*t99-480.0*t185*t452*t81*t83*t99+120.0*t273*t331*t81*t83*
5315         t99+192.0*t125*t127*t331*t81*t99-576.0*t125*t185*t275*t81*
5316         t99-960.0*t127*t185*t273*t81*t99+t81*t83*t84*t782*t99+.0197517897025652*
5317         t81*(-384.0*t125*t82+t708+t707+t703-1920.0*t127*t452)*t86*
5318         t90*t93-.0029298488058805*t81*t1*t2*t3*t103*t563*t90*t93+0.005859697611761*
5319         t81*t1*t2*t3*t240*t336*t90*t93-.0091150851738505*t81*t1*t2*
5320         t3*t407*t187*t90*t93+.0197517897025652*t81*t85*t86*t782*t93+
5321         .0790071588102608*t81*t187*t86*t557*t93-.0029298488058805*
5322         t81*t1*t2*t3*t103*t85*t557*t93+.1185107382153912*t81*t336*
5323         t86*t331*t93+0.005859697611761*t81*t1*t2*t3*t240*t85*t331*
5324         t93-.0087895464176415*t81*t1*t2*t3*t103*t187*t331*t93+.0790071588102608*
5325         t81*t563*t86*t185*t93-.0091150851738505*t81*t1*t2*t3*t407*
5326         t85*t185*t93-.0087895464176415*t81*t1*t2*t3*t103*t336*t185*
5327         t93+0.011719395223522*t81*t1*t2*t3*t240*t187*t185*t93-96.0*
5328         t133*t81*t82*t84*t90-16.0*t127*t463*t81*t84*t90+192.0*t125*
5329         t127*t284*t81*t90-960.0*t127*t133*t273*t81*t90+4.0*t133*t557*
5330         t81*t83*t84+4.0*t185*t463*t81*t83*t84+6.0*t284*t331*t81*t83*
5331         t84-48.0*t127*t133*t331*t81*t84-48.0*t127*t185*t284*t81*t84+
5332         144.0*t133*t185*t275*t81*t84-48.0*t125*t133*t331*t81*t83-48.0*
5333         t125*t185*t284*t81*t83+240.0*t133*t185*t273*t81*t83+384.0*
5334         t125*t127*t133*t185*t81+t719+t718+t717+t716+t715+t714+t713+
5335         t712+t711+t705+t697+t696+t695+t694+t693+t692+t691+t690+t689+
5336         t688+t687+t686+t685+t684+t682+t681+t680+t679+t678+t677+t676+
5337         t675+t674+t672+t666+t665+t664+t663+t662+t661+t660+t659+t658+
5338         t657+t656+t655+t653+t652+t651+t650+t649+t648+t647+t646+t644-
5339         4101.558808403119*t81*t187*t411*t86*t412*t90*t413-4101.558808403119*
5340         t81*t85*t411*t86*t412*t185*t413+415.5781415850207*t81*t187*
5341         t411*t86*t416*t90*t246-103.8945353962552*t81*t336*t244*t86*
5342         t245*t90*t246-207.7890707925104*t81*t187*t252*t109*t86*t245*
5343         t90*t246+7.70551137522226*t81*t1*t2*t3*t103*t187*t244*t245*
5344         t90*t246-103.8945353962552*t81*t85*t244*t86*t245*t331*t246+
5345         415.5781415850207*t81*t85*t411*t86*t416*t185*t246-207.7890707925104*
5346         t81*t187*t244*t86*t245*t185*t246-207.7890707925104*t81*t85*
5347         t252*t109*t86*t245*t185*t246+7.70551137522226*t81*t1*t2*t3*
5348         t103*t85*t244*t245*t185*t246+7.017868076946245*t81*t336*t244*
5349         t86*t249*t90*t111+14.03573615389249*t81*t187*t252*t109*t86*
5350         t249*t90*t111-.5204918823735132*t81*t1*t2*t3*t103*t187*t244*
5351         t249*t90*t111-14.03573615389249*t81*t187*t411*t86*t245*t90*
5352         t111-2.339289358982082*t81*t187*t431*t86*t110*t90*t111-3.508934038473122*
5353         t81*t336*t252*t86*t110*t90*t111-2.339289358982082*t81*t563*
5354         t109*t86*t110*t90*t111+.2602459411867566*t81*t1*t2*t3*t103*
5355         t187*t252*t110*t90*t111+.2602459411867566*t81*t1*t2*t3*t103*
5356         t336*t109*t110*t90*t111-.3469945882490088*t81*t1*t2*t3*t240*
5357         t187*t109*t110*t90*t111-2.339289358982082*t81*t85*t109*t86*
5358         t110*t557*t111+7.017868076946245*t81*t85*t244*t86*t249*t331*
5359         t111-3.508934038473122*t81*t85*t252*t86*t110*t331*t111-7.017868076946245*
5360         t81*t187*t109*t86*t110*t331*t111+.2602459411867566*t81*t1*
5361         t2*t3*t103*t85*t109*t110*t331*t111+14.03573615389249*t81*t187*
5362         t244*t86*t249*t185*t111+14.03573615389249*t81*t85*t252*t109*
5363         t86*t249*t185*t111-.5204918823735132*t81*t1*t2*t3*t103*t85*
5364         t244*t249*t185*t111-14.03573615389249*t81*t85*t411*t86*t245*
5365         t185*t111-2.339289358982082*t81*t85*t431*t86*t110*t185*t111-
5366         7.017868076946245*t81*t187*t252*t86*t110*t185*t111-7.017868076946245*
5367         t81*t336*t109*t86*t110*t185*t111+.2602459411867566*t81*t1*
5368         t2*t3*t103*t85*t252*t110*t185*t111-.3469945882490088*t81*t1*
5369         t2*t3*t240*t85*t109*t110*t185*t111+.5204918823735132*t81*t1*
5370         t2*t3*t103*t187*t109*t110*t185*t111)-96.0*t81*t82*t84*t90*
5371         t99-960.0*t127*t273*t81*t90*t99+4.0*t557*t81*t83*t84*t99-48.0*
5372         t127*t331*t81*t84*t99+144.0*t185*t275*t81*t84*t99-48.0*t125*
5373         t331*t81*t83*t99+240.0*t185*t273*t81*t83*t99+384.0*t125*t127*
5374         t185*t81*t99+.0790071588102608*t81*t563*t86*t90*t93-.0087895464176415*
5375         t81*t1*t2*t3*t103*t336*t90*t93+0.011719395223522*t81*t1*t2*
5376         t3*t240*t187*t90*t93+.0790071588102608*t81*t85*t86*t557*t93+
5377         .2370214764307825*t81*t187*t86*t331*t93-.0087895464176415*
5378         t81*t1*t2*t3*t103*t85*t331*t93+.2370214764307825*t81*t336*
5379         t86*t185*t93+0.011719395223522*t81*t1*t2*t3*t240*t85*t185*
5380         t93-0.017579092835283*t81*t1*t2*t3*t103*t187*t185*t93-48.0*
5381         t127*t284*t81*t84*t90+384.0*t125*t127*t133*t81*t90+12.0*t133*
5382         t331*t81*t83*t84+12.0*t185*t284*t81*t83*t84-96.0*t127*t133*
5383         t185*t81*t84-96.0*t125*t133*t185*t81*t83+t640+t639+t638+t637+
5384         t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
5385         t624+t623+t622+t621+t620+t619+t618+t617+t616+t615+t614+t613-
5386         .0044166530765432*t1*t2*t3*t146*t541+771.9523962688968*t317*
5387         t538*t147*t540-8276.534751462386*t537*t538*t147*t539-.2435318518518518*
5388         t1*t2*t3*t175*t179*t180*t321+24.0*t175*t322*t179*t147*t320-
5389         24.0*t175*t538*t147*t319-385.9761981344484*t317*t322*t179*
5390         t147*t319-207.7890707925104*t81*t187*t244*t86*t245*t90*t246-
5391         207.7890707925104*t81*t85*t244*t86*t245*t185*t246-4.0*t175*
5392         t542*t147*t180-.5479466666666666*t1*t2*t3*t175*t318*t320*t178+
5393         8.812265465851826*t1*t2*t3*t317*t318*t319*t178+.2739733333333333*
5394         t1*t2*t3*t175*t322*t180*t178-52.87359279511096*t1*t2*t3*t317*
5395         t538*t540*t143+566.8874535768302*t1*t2*t3*t537*t538*t539*t143-
5396         1.64384*t1*t2*t3*t175*t322*t179*t320*t143+1.64384*t1*t2*t3*
5397         t175*t538*t319*t143+26.43679639755548*t1*t2*t3*t317*t322*t179*
5398         t319*t143+.2739733333333333*t1*t2*t3*t175*t542*t180*t143+14.03573615389249*
5399         t81*t187*t244*t86*t249*t90*t111-7.017868076946245*t81*t187*
5400         t252*t86*t110*t90*t111-7.017868076946245*t81*t336*t109*t86*
5401         t110*t90*t111+.5204918823735132*t81*t1*t2*t3*t103*t187*t109*
5402         t110*t90*t111-7.017868076946245*t81*t85*t109*t86*t110*t331*
5403         t111+14.03573615389249*t81*t85*t244*t86*t249*t185*t111-7.017868076946245*
5404         t81*t85*t252*t86*t110*t185*t111-14.03573615389249*t81*t187*
5405         t109*t86*t110*t185*t111+.5204918823735132*t81*t1*t2*t3*t103*
5406         t85*t109*t110*t185*t111)-6.0*t147*t160*t175*t320*t779*rhob-
5407         24829.60425438716*t537*t160*t776*t147*t778*rhob+199659.0885685683*
5408         t775*t160*t776*t147*t777*rhob-24.0*t147*t160*t175*t540*t776*
5409         rhob-8.0*t147*t160*t175*t179*t320*t542*rhob+4.0*t147*t174*
5410         t175*t180*t542*rhob-771.9523962688968*t317*t174*t538*t147*
5411         t540*rhob-1157.928594403345*t317*t160*t322*t318*t147*t540*
5412         rhob+1157.928594403345*t317*t160*t776*t147*t539*rhob+8276.534751462386*
5413         t537*t174*t538*t147*t539*rhob+12414.80212719358*t537*t160*
5414         t322*t318*t147*t539*rhob+24.0*t147*t174*t175*t319*t538*rhob+
5415         4.0*t147*t175*t179*t180*t536*rhob-24.0*t147*t174*t175*t179*
5416         t320*t322*rhob+36.0*t147*t160*t175*t318*t319*t322*rhob+6.0*
5417         t147*t175*t180*t316*t322*rhob-12.0*t147*t175*t316*t318*t320*
5418         rhob+96.4940495336121*t317*t160*t779*t147*t319*rhob+192.9880990672242*
5419         t317*t316*t318*t147*t319*rhob+385.9761981344484*t317*t174*
5420         t322*t179*t147*t319*rhob+128.6587327114828*t317*t542*t160*
5421         t179*t147*t319*rhob+t175*t780*t160*t147*t180*rhob-0.03109*
5422         t146*(-13.48173037037037*t58*t159*t774+54.57275022222223*t156*
5423         t157*t773-175.2514706962963*t153*t154*t772+233.6411877767902*
5424         t149*t151*t771-135.1367155863704*t167*t168*t770+37.97174600691358*
5425         t308*t309*t769-5.145480882251853*t527*t528*t768+.2702545411792593*
5426         t765*t766*t767)*t147*rhob-0.75*t177*t3*t35*(-.7728077432098764*
5427         t58*t165*t774+.1893084924839506*t156*t164*t773-0.006082094880237*
5428         t153*t163*t772+8.043848174048394e-5*t149*t162*t771-5.502357119279407e-7*
5429         t167*t181*t770+2.064154627236346e-9*t308*t323*t769-4.05001745688652e-12*
5430         t527*t543*t768+3.26174928380207e-15*t765*t781*t767)-.3703703703703703*
5431         t166*t3*t35*t59+4.0*t190*t573+4.0*t191*t572-4.0*t142*t3*t35*
5432         t544+4.0*t147*t160*t175*t180*t542+.0044166530765432*t1*t2*
5433         t3*t146*t160*t541-771.9523962688968*t317*t160*t538*t147*t540+
5434         8276.534751462386*t537*t160*t538*t147*t539+24.0*t147*t160*
5435         t175*t319*t538-2.0*t140*t3*t324*t35+.8888888888888888*t176*
5436         t182*t3*t35+6.0*t343*t344-24.0*t147*t160*t175*t179*t320*t322+
5437         .2435318518518518*t1*t2*t3*t175*t160*t179*t180*t321-.0075714052740741*
5438         t1*t2*t3*t146*t174*t321-24.0*t175*t174*t318*t147*t320+385.9761981344484*
5439         t317*t174*t318*t147*t319+385.9761981344484*t317*t160*t322*
5440         t179*t147*t319+12.0*t175*t174*t322*t147*t180+12.0*t175*t316*
5441         t179*t147*t180+.5479466666666666*t1*t2*t3*t175*t160*t318*t320*
5442         t178-8.812265465851826*t1*t2*t3*t317*t160*t318*t319*t178+.0085178309333333*
5443         t1*t2*t3*t146*t316*t178-.2739733333333333*t1*t2*t3*t175*t160*
5444         t322*t180*t178-.5479466666666666*t1*t2*t3*t175*t174*t179*t180*
5445         t178+(5.375471525925927*t58*t68*t774-.2622365660444445*t58*
5446         t60*t67*t774+.0033159657813333*t58*t66*t65*t774-1.9205145344e-5*
5447         t58*t64*t63*t774+4.5532591104e-8*t58*t61*t138*t774-0.4404967424*
5448         t156*t67*t773+0.0146270682624*t156*t60*t65*t773-1.75461361152e-4*
5449         t156*t66*t63*t773+9.618788720640002e-7*t156*t64*t138*t773-
5450         2.04322719744e-9*t156*t61*t295*t773+0.0053698056192*t153*t65*
5451         t772-1.656296497152e-4*t153*t60*t63*t772+1.91371935744e-6*
5452         t153*t66*t138*t772-9.98542245888e-9*t153*t64*t295*t772+1.983537414144e-11*
5453         t153*t61*t479*t772-1.58961303552e-5*t149*t63*t771+4.728818368512e-7*
5454         t149*t60*t138*t771-5.29502109696e-9*t149*t66*t295*t771+2.659495182336e-11*
5455         t149*t64*t479*t771-5.049004326912e-14*t149*t61*t720*t771)*
5456         t148-0.12436*t146*t536*t147+52.87359279511096*t1*t2*t3*t317*
5457         t160*t538*t540*t143-566.8874535768302*t1*t2*t3*t537*t160*t538*
5458         t539*t143+.0085178309333333*t1*t2*t3*t146*t536*t143+1.64384*
5459         t1*t2*t3*t175*t174*t318*t320*t143+1.64384*t1*t2*t3*t175*t160*
5460         t322*t179*t320*t143-1.64384*t1*t2*t3*t175*t160*t538*t319*t143-
5461         26.43679639755548*t1*t2*t3*t317*t174*t318*t319*t143-26.43679639755548*
5462         t1*t2*t3*t317*t160*t322*t179*t319*t143-.8219199999999999*t1*
5463         t2*t3*t175*t174*t322*t180*t143-.8219199999999999*t1*t2*t3*
5464         t175*t316*t179*t180*t143-.2739733333333333*t1*t2*t3*t175*t542*
5465         t160*t180*t143;
5466     d4fdrbrbrbga = 3.0*t190*t574+t199*t572+3.0*t343*t345+
5467         (0.0519687168*grada*t58*t22*t67*t535-0.0017256653568*grada*
5468         t58*t22*t60*t65*t535+2.0700497664e-5*grada*t58*t22*t66*t63*
5469         t535-1.13480091648e-7*grada*t58*t22*t64*t138*t535+2.4105489408e-10*
5470         grada*t58*t22*t61*t295*t535-0.0020136771072*grada*t156*t22*
5471         t65*t534+6.21111186432e-5*grada*t156*t22*t60*t63*t534-7.1764475904e-7*
5472         grada*t156*t22*t66*t138*t534+3.74453342208e-9*grada*t156*t22*
5473         t64*t295*t534-7.43826530304e-12*grada*t156*t22*t61*t479*t534+
5474         1.19220977664e-5*grada*t153*t22*t63*t533-3.546613776384e-7*
5475         grada*t153*t22*t60*t138*t533+3.971265822719999e-9*grada*t153*
5476         t22*t66*t295*t533-1.994621386752e-11*grada*t153*t22*t64*t479*
5477         t533+3.786753245184e-14*grada*t153*t22*t61*t720*t533)*t148;
5478     d4fdrbrbrbgb = 3.0*
5479         t147*t175*t179*t180*t577*rhob-192.9880990672242*t317*t205*
5480         t538*t147*t540*rhob+2069.133687865597*t537*t205*t538*t147*
5481         t539*rhob+6.0*t147*t175*t205*t319*t538*rhob+3.0*t147*t175*
5482         t180*t322*t348*rhob-6.0*t147*t175*t318*t320*t348*rhob-6.0*
5483         t147*t175*t179*t205*t320*t322*rhob+96.4940495336121*t317*t348*
5484         t318*t147*t319*rhob+96.4940495336121*t317*t205*t322*t179*t147*
5485         t319*rhob+t175*t542*t205*t147*t180*rhob-0.03109*t146*(4.758257777777779*
5486         gradb*t159*t535-26.53751466666667*t204*t157*t534+96.98730382222223*
5487         t203*t154*t533-140.798896165926*t202*t151*t532+87.23400476444445*
5488         t200*t168*t531-25.96370371318519*t346*t309*t530+3.69623404088889*
5489         t575*t528*t529-.2026909058844445*t783*t766*t784)*t147*rhob+
5490         3.0*t190*t579-3.0*t142*t3*t35*t578+t207*t572-0.75*t177*t3*
5491         t35*(0.272755674074074*gradb*t165*t535-.0912608445629629*t204*
5492         t164*t534+.0034158733767111*t203*t163*t533-4.976854997522963e-5*
5493         t202*t162*t532+3.644651266958222e-7*t200*t181*t531-1.439007574395259e-9*
5494         t346*t323*t530+2.93922377272889e-12*t575*t543*t529-2.44631196285156e-15*
5495         t783*t781*t784)+3.0*t343*t350-1.0*t140*t3*t349*t35+.2222222222222222*
5496         t176*t206*t3*t35+3.0*t147*t175*t180*t205*t322-.0018928513185185*
5497         t1*t2*t3*t146*t205*t321-6.0*t147*t175*t205*t318*t320+96.4940495336121*
5498         t317*t205*t318*t147*t319+6.0*t175*t348*t179*t147*t180+.0042589154666667*
5499         t1*t2*t3*t146*t348*t178-.1369866666666666*t1*t2*t3*t175*t205*
5500         t179*t180*t178+(-1.897225244444445*gradb*t68*t535+.0925540821333334*
5501         gradb*t60*t67*t535-0.001170340864*gradb*t66*t65*t535+6.778286592000002e-6*
5502         gradb*t64*t63*t535-1.6070326272e-8*gradb*t61*t138*t535+0.2301471744*
5503         t204*t67*t534-0.0076422322944*t204*t60*t65*t534+9.167363251200001e-5*
5504         t204*t66*t63*t534-5.02554691584e-7*t204*t64*t138*t534+1.06752881664e-9*
5505         t204*t61*t295*t534-0.0034781695488*t203*t65*t533+1.072828412928e-4*
5506         t203*t60*t63*t533-1.23956822016e-6*t203*t66*t138*t533+6.46783045632e-9*
5507         t203*t64*t295*t533-1.284791279616e-11*t203*t61*t479*t533+1.19220977664e-5*
5508         t202*t63*t532-3.546613776384e-7*t202*t60*t138*t532+3.971265822719999e-9*
5509         t202*t66*t295*t532-1.994621386752e-11*t202*t64*t479*t532+3.786753245184e-14*
5510         t202*t61*t720*t532)*t148-0.09327*t146*t577*t147+0.0063883732*
5511         t1*t2*t3*t146*t577*t143+.4109599999999999*t1*t2*t3*t175*t205*
5512         t318*t320*t143-6.60919909938887*t1*t2*t3*t317*t205*t318*t319*
5513         t143-0.20548*t1*t2*t3*t175*t205*t322*t180*t143-.4109599999999999*
5514         t1*t2*t3*t175*t348*t179*t180*t143;
5515     d4fdrbrbrbab = 0.0;
5516     d4fdrbrbgaga = 2.0*t190*t580+t354*t343+(-0.0111361536*
5517         t58*t22*t67*t315+3.697854336e-4*t58*t22*t60*t65*t315+5.034192768e-4*
5518         t21*t58*t31*t65*t315-4.435820928e-6*t58*t22*t66*t63*t315-1.55277796608e-5*
5519         t21*t58*t31*t60*t63*t315+2.431716249600001e-8*t58*t22*t64*
5520         t138*t315+1.7941118976e-7*t21*t58*t31*t66*t138*t315-5.165462016e-11*
5521         t58*t22*t61*t295*t315-9.3613335552e-10*t21*t58*t31*t64*t295*
5522         t315+1.85956632576e-12*t21*t58*t31*t61*t479*t315+1.830615552e-4*
5523         t156*t22*t65*t314-5.6464653312e-6*t156*t22*t60*t63*t314-8.9415733248e-6*
5524         t21*t156*t31*t63*t314+6.524043264e-8*t156*t22*t66*t138*t314+
5525         2.659960332288e-7*t21*t156*t31*t60*t138*t314-3.4041212928e-10*
5526         t156*t22*t64*t295*t314-2.97844936704e-9*t21*t156*t31*t66*t295*
5527         t314+6.7620593664e-13*t156*t22*t61*t479*t314+1.495966040064e-11*
5528         t21*t156*t31*t64*t479*t314-2.840064933888e-14*t21*t156*t31*
5529         t61*t720*t314)*t148;
5530     d4fdrbrbgagb = 2.0*t190*t581+t355*t343+(-0.0222723072*
5531         grada*gradb*t22*t67*t315+7.395708672e-4*grada*gradb*t22*t60*
5532         t65*t315-8.871641856000001e-6*grada*gradb*t22*t66*t63*t315+
5533         4.863432499200002e-8*grada*gradb*t22*t64*t138*t315-1.0330924032e-10*
5534         grada*gradb*t22*t61*t295*t315+0.0012356654976*grada*t204*t22*
5535         t65*t314-3.811364098559999e-5*grada*t204*t22*t60*t63*t314+
5536         4.4037292032e-7*grada*t204*t22*t66*t138*t314-2.29778187264e-9*
5537         grada*t204*t22*t64*t295*t314+4.56439007232e-12*grada*t204*
5538         t22*t61*t479*t314-8.9415733248e-6*grada*t203*t22*t63*t313+
5539         2.659960332288e-7*grada*t203*t22*t60*t138*t313-2.97844936704e-9*
5540         grada*t203*t22*t66*t295*t313+1.495966040064e-11*grada*t203*
5541         t22*t64*t479*t313-2.840064933888e-14*grada*t203*t22*t61*t720*
5542         t313)*t148;
5543     d4fdrbrbgaab = 0.0;
5544     d4fdrbrbgbgb = 2.0*t147*t175*t179*t180*t583*rhob-2.0*
5545         t147*t175*t318*t320*t357*rhob+32.1646831778707*t317*t357*t318*
5546         t147*t319*rhob+t175*t357*t322*t147*t180*rhob-0.03109*t146*
5547         (-1.019626666666667*t159*t315+11.04164266666667*t58*t157*t314-
5548         49.43887786666667*t156*t154*t313+80.75327630222225*t153*t151*
5549         t312-54.65938830222224*t149*t168*t311+17.46168786488889*t167*
5550         t309*t310-2.636445013333334*t308*t528*t576+.1520181794133334*
5551         t527*t766*t785)*t147*rhob+2.0*t190*t585-2.0*t142*t3*t35*t584-
5552         .3333333333333333*t140*t3*t35*t358+2.0*t147*t175*t179*t180*
5553         t357-0.75*t177*t3*(-.0584476444444444*t165*t315+.0375465187555555*
5554         t58*t164*t314-.0017738547996444*t156*t163*t313+2.949453610097778e-5*
5555         t153*t162*t312-2.357182303800889e-7*t149*t181*t311+9.90891635143111e-10*
5556         t167*t323*t310-2.12251006293333e-12*t308*t543*t576+1.83473397213867e-15*
5557         t527*t781*t785)*t35+t359*t343+.0014196384888889*t1*t2*t3*t146*
5558         t357*t178+(.4065482666666667*t68*t315-0.0198330176*t60*t67*
5559         t315+2.50787328e-4*t66*t65*t315-1.452489984e-6*t64*t63*t315+
5560         3.443641344e-9*t61*t138*t315-0.1042748928*t58*t67*t314+0.0034625363328*
5561         t58*t60*t65*t314-4.1535414144e-5*t58*t66*t63*t314+2.27697067008e-7*
5562         t58*t64*t138*t314-4.8367507968e-10*t58*t61*t295*t314+0.0021509732736*
5563         t156*t65*t313-6.63459676416e-5*t156*t60*t63*t313+7.6657508352e-7*
5564         t156*t66*t138*t313-3.99984251904e-9*t156*t64*t295*t313+7.94541975552e-12*
5565         t156*t61*t479*t313-8.9415733248e-6*t153*t63*t312+2.659960332288e-7*
5566         t153*t60*t138*t312-2.97844936704e-9*t153*t66*t295*t312+1.495966040064e-11*
5567         t153*t64*t479*t312-2.840064933888e-14*t153*t61*t720*t312)*
5568         t148-0.06218*t146*t583*t147+.0042589154666667*t1*t2*t3*t146*
5569         t583*t143-.1369866666666666*t1*t2*t3*t175*t357*t179*t180*t143;
5570     d4fdrbrbgbab = 0.0;
5571     d4fdrbrbabab = 0.0;
5572     d4fdrbgagaga = (-
5573         4.118884992e-4*grada*t58*t31*t65*t173+1.27045469952e-5*grada*
5574         t58*t31*t60*t63*t173+6.706179993600001e-6*t196*t58*t28*t63*
5575         t173-1.4679097344e-7*grada*t58*t31*t66*t138*t173-1.994970249216e-7*
5576         t196*t58*t28*t60*t138*t173+7.6592729088e-10*grada*t58*t31*
5577         t64*t295*t173+2.23383702528e-9*t196*t58*t28*t66*t295*t173-
5578         1.52146335744e-12*grada*t58*t31*t61*t479*t173-1.121974530048e-11*
5579         t196*t58*t28*t64*t479*t173+2.130048700416e-14*t196*t58*t28*
5580         t61*t720*t173)*t148+t589*t190;
5581     d4fdrbgagagb = (0.0060742656*gradb*t22*t67*t173-2.017011456e-4*
5582         gradb*t22*t60*t65*t173-2.745923328e-4*t21*gradb*t31*t65*t173+
5583         2.419538688e-6*gradb*t22*t66*t63*t173+8.4696979968e-6*t21*
5584         gradb*t31*t60*t63*t173-1.3263906816e-8*gradb*t22*t64*t138*
5585         t173-9.786064896e-8*t21*gradb*t31*t66*t138*t173+2.817524736e-11*
5586         gradb*t22*t61*t295*t173+5.1061819392e-10*t21*gradb*t31*t64*
5587         t295*t173-1.01430890496e-12*t21*gradb*t31*t61*t479*t173-1.372961664e-4*
5588         t204*t22*t65*t172+4.2348489984e-6*t204*t22*t60*t63*t172+6.706179993600001e-6*
5589         t21*t204*t31*t63*t172-4.893032448e-8*t204*t22*t66*t138*t172-
5590         1.994970249216e-7*t21*t204*t31*t60*t138*t172+2.5530909696e-10*
5591         t204*t22*t64*t295*t172+2.23383702528e-9*t21*t204*t31*t66*t295*
5592         t172-5.0715445248e-13*t204*t22*t61*t479*t172-1.121974530048e-11*
5593         t21*t204*t31*t64*t479*t172+2.130048700416e-14*t21*t204*t31*
5594         t61*t720*t172)*t148+t590*t190;
5595     d4fdrbgagaab = 0.0;
5596     d4fdrbgagbgb = (0.0060742656*grada*t22*t67*t173-2.017011456e-4*
5597         grada*t22*t60*t65*t173+2.419538688e-6*grada*t22*t66*t63*t173-
5598         1.3263906816e-8*grada*t22*t64*t138*t173+2.817524736e-11*grada*
5599         t22*t61*t295*t173-6.86480832e-4*grada*t58*t22*t65*t172+2.1174244992e-5*
5600         grada*t58*t22*t60*t63*t172-2.446516224e-7*grada*t58*t22*t66*
5601         t138*t172+1.2765454848e-9*grada*t58*t22*t64*t295*t172-2.5357722624e-12*
5602         grada*t58*t22*t61*t479*t172+6.706179993600001e-6*grada*t156*
5603         t22*t63*t171-1.994970249216e-7*grada*t156*t22*t60*t138*t171+
5604         2.23383702528e-9*grada*t156*t22*t66*t295*t171-1.121974530048e-11*
5605         grada*t156*t22*t64*t479*t171+2.130048700416e-14*grada*t156*
5606         t22*t61*t720*t171)*t148+t591*t190;
5607     d4fdrbgagbab = 0.0;
5608     d4fdrbgaabab = 0.0;
5609     d4fdrbgbgbgb = t175*t593*t179*t147*t180*rhob-0.03109*
5610         t146*(-3.551232*gradb*t157*t172+22.53342720000001*t204*t154*
5611         t171-43.52509952000001*t203*t151*t170+33.043730432*t202*t168*
5612         t169-11.518767104*t200*t309*t347+1.8653560832*t346*t528*t582-
5613         0.11401363456*t575*t766*t786)*t147*rhob-1.0*t142*t3*t35*t594-
5614         0.75*(-0.011930624*gradb*t164*t172+8.268492799999999e-4*t204*
5615         t163*t171-1.65497618432e-5*t203*t162*t170+1.481475227648001e-7*
5616         t202*t181*t169-6.72732020736e-10*t200*t323*t347+1.524308639744e-12*
5617         t346*t543*t582-1.376050479104e-15*t575*t781*t786)*t177*t3*
5618         t35+t595*t190+(0.0364455936*gradb*t67*t172-0.0012102068736*
5619         gradb*t60*t65*t172+1.4517232128e-5*gradb*t66*t63*t172-7.9583440896e-8*
5620         gradb*t64*t138*t172+1.6905148416e-10*gradb*t61*t295*t172-0.0012356654976*
5621         t204*t65*t171+3.811364098559999e-5*t204*t60*t63*t171-4.4037292032e-7*
5622         t204*t66*t138*t171+2.29778187264e-9*t204*t64*t295*t171-4.56439007232e-12*
5623         t204*t61*t479*t171+6.706179993600001e-6*t203*t63*t170-1.994970249216e-7*
5624         t203*t60*t138*t170+2.23383702528e-9*t203*t66*t295*t170-1.121974530048e-11*
5625         t203*t64*t479*t170+2.130048700416e-14*t203*t61*t720*t170)*
5626         t148-0.03109*t146*t593*t147+.0021294577333333*t1*t2*t3*t146*
5627         t593*t143;
5628     d4fdrbgbgbab = 0.0;
5629     d4fdrbgbabab = 0.0;
5630     d4fdrbababab = 0.0;
5631     d4fdgagagaga = -0.03109*t19*(0.665856*t30*t31-8.716377600000003*
5632         t21*t27*t28+21.62994432000001*t29*t24*t25-19.11017932800001*
5633         t26*t43*t193+7.424742912000003*t20*t209*t351-1.307398963200001*
5634         t42*t361*t586+0.08551022592*t208*t597*t787)*t34*rhoa-0.75*
5635         t3*(0.002236992*t39*t31-3.27964416e-4*t21*t38*t28+8.634218496000002e-6*
5636         t29*t37*t25-8.986737868800001e-8*t26*t56*t193+4.49222639616e-10*
5637         t20*t223*t351-1.087943737344e-12*t42*t376*t586+1.032037859328e-15*
5638         t208*t612*t787)*t35*t52+(-0.0068335488*t31*t67+2.269137888e-4*
5639         t31*t60*t65+6.178327488e-4*t21*t28*t65-2.721981024000001e-6*
5640         t31*t66*t63-1.90568204928e-5*t21*t28*t60*t63-5.029634995200001e-6*
5641         t29*t25*t63+1.4921895168e-8*t31*t64*t138+2.2018646016e-7*t21*
5642         t28*t66*t138+1.496227686912e-7*t29*t25*t60*t138-3.169715328e-11*
5643         t31*t61*t295-1.14889093632e-9*t21*t28*t64*t295-1.67537776896e-9*
5644         t29*t25*t66*t295+2.28219503616e-12*t21*t28*t61*t479+8.41480897536e-12*
5645         t29*t25*t64*t479-1.597536525312e-14*t29*t25*t61*t720)*t148;
5646     d4fdgagagagb = (3.089163744e-4*grada*gradb*t31*t65*t59-
5647         9.528410246400003e-6*grada*gradb*t31*t60*t63*t59-5.029634995200001e-6*
5648         t196*gradb*t28*t63*t59+1.1009323008e-7*grada*gradb*t31*t66*
5649         t138*t59+1.496227686912e-7*t196*gradb*t28*t60*t138*t59-5.7444546816e-10*
5650         grada*gradb*t31*t64*t295*t59-1.67537776896e-9*t196*gradb*t28*
5651         t66*t295*t59+1.14109751808e-12*grada*gradb*t31*t61*t479*t59+
5652         8.41480897536e-12*t196*gradb*t28*t64*t479*t59-1.597536525312e-14*
5653         t196*gradb*t28*t61*t720*t59)*t148;
5654     d4fdgagagaab = 0.0;
5655     d4fdgagagbgb = (-0.0022778496*t22*t67*t59+7.563792960000001e-5*
5656         t22*t60*t65*t59+1.029721248e-4*t21*t31*t65*t59-9.073270080000002e-7*
5657         t22*t66*t63*t59-3.1761367488e-6*t21*t31*t60*t63*t59+4.973965056000001e-9*
5658         t22*t64*t138*t59+3.669774336000001e-8*t21*t31*t66*t138*t59-
5659         1.056571776e-11*t22*t61*t295*t59-1.9148182272e-10*t21*t31*
5660         t64*t295*t59+3.8036583936e-13*t21*t31*t61*t479*t59+1.029721248e-4*
5661         t58*t22*t65*t158-3.1761367488e-6*t58*t22*t60*t63*t158-5.029634995200001e-6*
5662         t21*t58*t31*t63*t158+3.669774336000001e-8*t58*t22*t66*t138*
5663         t158+1.496227686912e-7*t21*t58*t31*t60*t138*t158-1.9148182272e-10*
5664         t58*t22*t64*t295*t158-1.67537776896e-9*t21*t58*t31*t66*t295*
5665         t158+3.8036583936e-13*t58*t22*t61*t479*t158+8.41480897536e-12*
5666         t21*t58*t31*t64*t479*t158-1.597536525312e-14*t21*t58*t31*t61*
5667         t720*t158)*t148;
5668     d4fdgagagbab = 0.0;
5669     d4fdgagaabab = 0.0;
5670     d4fdgagbgbgb = (3.089163744e-4*grada*gradb*t22*t65*t158-
5671         9.528410246400002e-6*grada*gradb*t22*t60*t63*t158+1.1009323008e-7*
5672         grada*gradb*t22*t66*t138*t158-5.7444546816e-10*grada*gradb*
5673         t22*t64*t295*t158+1.14109751808e-12*grada*gradb*t22*t61*t479*
5674         t158-5.029634995200001e-6*grada*t204*t22*t63*t155+1.496227686912e-7*
5675         grada*t204*t22*t60*t138*t155-1.67537776896e-9*grada*t204*t22*
5676         t66*t295*t155+8.41480897536e-12*grada*t204*t22*t64*t479*t155-
5677         1.597536525312e-14*grada*t204*t22*t61*t720*t155)*t148;
5678     d4fdgagbgbab = 0.0;
5679     d4fdgagbabab = 0.0;
5680     d4fdgaababab = 0.0;
5681     d4fdgbgbgbgb = -0.03109*t146*(0.665856*t157*t158-8.716377600000003*
5682         t58*t154*t155+21.62994432000001*t156*t151*t152-19.11017932800001*
5683         t153*t168*t201+7.424742912000003*t149*t309*t356-1.307398963200001*
5684         t167*t528*t592+0.08551022592*t308*t766*t788)*t147*rhob-0.75*
5685         (0.002236992*t164*t158-3.27964416e-4*t58*t163*t155+8.634218496000002e-6*
5686         t156*t162*t152-8.986737868800001e-8*t153*t181*t201+4.49222639616e-10*
5687         t149*t323*t356-1.087943737344e-12*t167*t543*t592+1.032037859328e-15*
5688         t308*t781*t788)*t177*t3*t35+(-0.0068335488*t67*t158+2.269137888e-4*
5689         t60*t65*t158-2.721981024000001e-6*t66*t63*t158+1.4921895168e-8*
5690         t64*t138*t158-3.169715328e-11*t61*t295*t158+6.178327488e-4*
5691         t58*t65*t155-1.90568204928e-5*t58*t60*t63*t155+2.2018646016e-7*
5692         t58*t66*t138*t155-1.14889093632e-9*t58*t64*t295*t155+2.28219503616e-12*
5693         t58*t61*t479*t155-5.029634995200001e-6*t156*t63*t152+1.496227686912e-7*
5694         t156*t60*t138*t152-1.67537776896e-9*t156*t66*t295*t152+8.41480897536e-12*
5695         t156*t64*t479*t152-1.597536525312e-14*t156*t61*t720*t152)*
5696         t148;
5697     d4fdgbgbgbab = 0.0;
5698     d4fdgbgbabab = 0.0;
5699     d4fdgbababab = 0.0;
5700     d4fdabababab = 0.0;
5701 
5702 
5703     ds->df1000 += factor*dfdra;
5704     ds->df0100 += factor*dfdrb;
5705     ds->df0010 += factor*dfdga;
5706     ds->df0001 += factor*dfdgb;
5707     ds->df00001+= factor*dfdgab;
5708 
5709     ds->df2000 += factor*d2fdrara;
5710     ds->df1100 += factor*d2fdrarb;
5711     ds->df1010 += factor*d2fdraga;
5712     ds->df1001 += factor*d2fdragb;
5713     ds->df10001+= factor*d2fdraab;
5714     ds->df0200 += factor*d2fdrbrb;
5715     ds->df0110 += factor*d2fdrbga;
5716     ds->df0101 += factor*d2fdrbgb;
5717     ds->df01001+= factor*d2fdrbgab;
5718     ds->df0020 += factor*d2fdgaga;
5719     ds->df0011 += factor*d2fdgagb;
5720     ds->df00101+= factor*d2fdgagab;
5721     ds->df0002 += factor*d2fdgbgb;
5722     ds->df00011+= factor*d2fdgbgab;
5723     ds->df00002+= factor*d2fdgabgab;
5724 
5725     ds->df3000 += factor*d3fdrarara;
5726     ds->df2100  += factor*d3fdrararb;
5727     ds->df2010  += factor*d3fdraraga;
5728     ds->df2001  += factor*d3fdraragb;
5729     ds->df20001 += factor*d3fdraraab;
5730     ds->df1200  += factor*d3fdrarbrb;
5731     ds->df1110  += factor*d3fdrarbga;
5732     ds->df1101  += factor*d3fdrarbgb;
5733     ds->df11001 += factor*d3fdrarbab;
5734     ds->df1020  += factor*d3fdragaga;
5735     ds->df1011  += factor*d3fdragagb;
5736     ds->df10101 += factor*d3fdragaab;
5737     ds->df1002  += factor*d3fdragbgb;
5738     ds->df10011 += factor*d3fdragbab;
5739     ds->df10002 += factor*d3fdraabab;
5740     ds->df0300  += factor*d3fdrbrbrb;
5741     ds->df0210  += factor*d3fdrbrbga;
5742     ds->df0201  += factor*d3fdrbrbgb;
5743     ds->df02001 += factor*d3fdrbrbab;
5744     ds->df0120  += factor*d3fdrbgaga;
5745     ds->df0111  += factor*d3fdrbgagb;
5746     ds->df01101 += factor*d3fdrbgaab;
5747     ds->df0102  += factor*d3fdrbgbgb;
5748     ds->df01011 += factor*d3fdrbgbab;
5749     ds->df01002 += factor*d3fdrbabab;
5750     ds->df0030  += factor*d3fdgagaga;
5751     ds->df0021  += factor*d3fdgagagb;
5752     ds->df00201 += factor*d3fdgagaab;
5753     ds->df0012  += factor*d3fdgagbgb;
5754     ds->df00111 += factor*d3fdgagbab;
5755     ds->df00102 += factor*d3fdgaabab;
5756     ds->df0003  += factor*d3fdgbgbgb;
5757     ds->df00021 += factor*d3fdgbgbab;
5758     ds->df00012 += factor*d3fdgbabab;
5759     ds->df00003 += factor*d3fdababab;
5760 
5761     ds->df4000  += factor*d4fdrararara;
5762     ds->df3100  += factor*d4fdrarararb;
5763     ds->df3010  += factor*d4fdrararaga;
5764     ds->df3001  += factor*d4fdrararagb;
5765     ds->df30001 += factor*d4fdrararaab;
5766     ds->df2200  += factor*d4fdrararbrb;
5767     ds->df2110  += factor*d4fdrararbga;
5768     ds->df2101  += factor*d4fdrararbgb;
5769     ds->df21001 += factor*d4fdrararbab;
5770     ds->df2020  += factor*d4fdraragaga;
5771     ds->df2011  += factor*d4fdraragagb;
5772     ds->df20101 += factor*d4fdraragaab;
5773     ds->df2002  += factor*d4fdraragbgb;
5774     ds->df20011 += factor*d4fdraragbab;
5775     ds->df20002 += factor*d4fdraraabab;
5776     ds->df1300  += factor*d4fdrarbrbrb;
5777     ds->df1210  += factor*d4fdrarbrbga;
5778     ds->df1201  += factor*d4fdrarbrbgb;
5779     ds->df12001 += factor*d4fdrarbrbab;
5780     ds->df1120  += factor*d4fdrarbgaga;
5781     ds->df1111  += factor*d4fdrarbgagb;
5782     ds->df11101 += factor*d4fdrarbgaab;
5783     ds->df1102  += factor*d4fdrarbgbgb;
5784     ds->df11011 += factor*d4fdrarbgbab;
5785     ds->df11002 += factor*d4fdrarbabab;
5786     ds->df1030  += factor*d4fdragagaga;
5787     ds->df1021  += factor*d4fdragagagb;
5788     ds->df10201 += factor*d4fdragagaab;
5789     ds->df1012  += factor*d4fdragagbgb;
5790     ds->df10111 += factor*d4fdragagbab;
5791     ds->df10102 += factor*d4fdragaabab;
5792     ds->df1003  += factor*d4fdragbgbgb;
5793     ds->df10021 += factor*d4fdragbgbab;
5794     ds->df10012 += factor*d4fdragbabab;
5795     ds->df10003 += factor*d4fdraababab;
5796     ds->df0400  += factor*d4fdrbrbrbrb;
5797     ds->df0310  += factor*d4fdrbrbrbga;
5798     ds->df0301  += factor*d4fdrbrbrbgb;
5799     ds->df03001 += factor*d4fdrbrbrbab;
5800     ds->df0220  += factor*d4fdrbrbgaga;
5801     ds->df0211  += factor*d4fdrbrbgagb;
5802     ds->df02101 += factor*d4fdrbrbgaab;
5803     ds->df0202  += factor*d4fdrbrbgbgb;
5804     ds->df02011 += factor*d4fdrbrbgbab;
5805     ds->df02002 += factor*d4fdrbrbabab;
5806     ds->df0130  += factor*d4fdrbgagaga;
5807     ds->df0121  += factor*d4fdrbgagagb;
5808     ds->df01201 += factor*d4fdrbgagaab;
5809     ds->df0112  += factor*d4fdrbgagbgb;
5810     ds->df01111 += factor*d4fdrbgagbab;
5811     ds->df01102 += factor*d4fdrbgaabab;
5812     ds->df0103  += factor*d4fdrbgbgbgb;
5813     ds->df01021 += factor*d4fdrbgbgbab;
5814     ds->df01012 += factor*d4fdrbgbabab;
5815     ds->df01003 += factor*d4fdrbababab;
5816     ds->df0040  += factor*d4fdgagagaga;
5817     ds->df0031  += factor*d4fdgagagagb;
5818     ds->df00301 += factor*d4fdgagagaab;
5819     ds->df0022  += factor*d4fdgagagbgb;
5820     ds->df00211 += factor*d4fdgagagbab;
5821     ds->df00202 += factor*d4fdgagaabab;
5822     ds->df0013  += factor*d4fdgagbgbgb;
5823     ds->df00121 += factor*d4fdgagbgbab;
5824     ds->df00112 += factor*d4fdgagbabab;
5825     ds->df00103 += factor*d4fdgaababab;
5826     ds->df0004  += factor*d4fdgbgbgbgb;
5827     ds->df00031 += factor*d4fdgbgbgbab;
5828     ds->df00022 += factor*d4fdgbgbabab;
5829     ds->df00013 += factor*d4fdgbababab;
5830     ds->df00004 += factor*d4fdabababab;
5831 
5832 }
5833