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