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-2.c:
24 
25    Automatically generated code implementing B97-2 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 b97_2Functional;" to 'functionals.h'
32     2. add "&b97_2Functional," to 'functionals.c'
33     3. add "fun-b97-2.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.
34 
35     This functional has been generated from following input:
36     ------ cut here -------
37  P.J. Wilson, T.J. Bradley and D.J. Tozer, "Hybrid
38 exchange-correlation functional determined from thermochemical data
39 and ab initio potentials", J. Chem. Phys., 115(20):9233­9242, 2001
40 
41 
42 xa: (grada/rhoa^(4/3));
43 xb: (gradb/rhob^(4/3));
44 
45 pa: 1;
46 Aa: 0.016887;
47 a1a: 0.11125;
48 b1a: 10.357;
49 b2a: 3.6231;
50 b3a: 0.88026;
51 b4a: 0.49671;
52 
53 pe: 1;
54 c0p: 0.031091;
55 a1p: 0.21370;
56 b1p: 7.5957;
57 b2p: 3.5876;
58 b3p: 1.6382;
59 b4p: 0.49294;
60 
61 c0f: 0.01554500000;
62 a1f: 0.20548;
63 b1f: 14.1189;
64 b2f: 6.1977;
65 b3f: 3.3662;
66 b4f: 0.62517;
67 
68 ccab: [0.999849,  1.40626,  -7.44060 ];
69 ccaa: [0.585808, -0.691682,  0.394796];
70 cx:   [0.827642,  0.0478400, 1.76125 ];
71 
72 
73 rs(r):= (3/(4*%PI*r))^(1/3);
74 z(ra,rb):= (ra-rb)/(ra+rb);
75 fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);
76 
77 d2fz0: 1.709921;
78 
79 Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
80    *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));
81 
82 Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
83 EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
84 EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);
85 
86 
87 EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
88    Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
89    (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
90    (z(ra,rb))^4);
91 
92 EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);
93 
94 gcab: 0.006;
95 gcaa: 0.2;
96 
97 cx0: -3/8*((16*3/%PI)^(1/3));
98 gx: 0.004;
99 
100 Ucab(t):= gcab*t/(1+gcab*t);
101 Ucaa(t):= gcaa*t/(1+gcaa*t);
102 
103 Gcab(t):= ccab[1] + ccab[2]*Ucab(t) + ccab[3]*Ucab(t)^2;
104 Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t) + ccaa[3]*Ucaa(t)^2;
105 
106 Ux(r):= gx*r/(1+gx*r);
107 
108 ExLSDAa: (cx0*rhoa^(4/3));
109 ExLSDAb: (cx0*rhob^(4/3));
110 
111 Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2;
112 
113 K(rhoa,grada,rhob,gradb,gradab):=
114    EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
115  + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
116  + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);
117 
118 
119     ------ cut here -------
120 */
121 
122 
123 /* strictly conform to XOPEN ANSI C standard */
124 #if !defined(SYS_DEC)
125 /* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
126  * is not specified. */
127 #define _XOPEN_SOURCE          500
128 #define _XOPEN_SOURCE_EXTENDED 1
129 #endif
130 #include <math.h>
131 #include <stddef.h>
132 #include "general.h"
133 
134 #define __CVERSION__
135 
136 #include "functionals.h"
137 
138 /* INTERFACE PART */
b97_2_isgga(void)139 static integer b97_2_isgga(void) { return 1; } /* FIXME: detect! */
140 static integer b97_2_read(const char *conf_line);
141 static real b97_2_energy(const FunDensProp* dp);
142 static void b97_2_first(FunFirstFuncDrv *ds,   real factor,
143                          const FunDensProp* dp);
144 static void b97_2_second(FunSecondFuncDrv *ds, real factor,
145                           const FunDensProp* dp);
146 static void b97_2_third(FunThirdFuncDrv *ds,   real factor,
147                          const FunDensProp* dp);
148 static void b97_2_fourth(FunFourthFuncDrv *ds,   real factor,
149                           const FunDensProp* dp);
150 
151 Functional B97_2Functional = {
152   "B97-2",       /* name */
153   b97_2_isgga,   /* gga-corrected */
154    1,
155   b97_2_read,
156   NULL,
157   b97_2_energy,
158   b97_2_first,
159   b97_2_second,
160   b97_2_third,
161   b97_2_fourth
162 };
163 
164 /* IMPLEMENTATION PART */
165 static integer
b97_2_read(const char * conf_line)166 b97_2_read(const char *conf_line)
167 {
168     fun_set_hf_weight(0.210);
169     return 1;
170 }
171 
172 static real
b97_2_energy(const FunDensProp * dp)173 b97_2_energy(const FunDensProp *dp)
174 {
175     real res;
176     real rhoa = dp->rhoa, rhob = dp->rhob;
177     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
178 
179     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
180     real t11, t12, t13, t14, t15, t16, t17, t18;
181     real t19, t20, t21, t22, t23, t24, t25, t26;
182     real t27, t28, t29, t30, t31, t32, t33, t34;
183     real t35, t36, t37, t38, t39, t40, t41, t42;
184     real t43, t44, t45, t46;
185 
186     t1 = pow(3.0,.6666666666666666);
187     t2 = 1/pow(4.0,.6666666666666666);
188     t3 = 1/pow(3.141592653589793,.6666666666666666);
189     t4 = 1.732050807568877;
190     t5 = .5641895835477563;
191     t6 = pow(3.0,.3333333333333333);
192     t7 = 1/pow(4.0,.3333333333333333);
193     t8 = 1/pow(3.141592653589793,.3333333333333333);
194     t9 = 1/pow(rhoa,.3333333333333333);
195     t10 = pow(2.0,.3333333333333333);
196     t11 = 1/t10;
197     t12 = pow(3.0,.1666666666666667);
198     t13 = 1/pow(3.141592653589793,.1666666666666667);
199     t14 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhoa,
200         .6666666666666666)+14.1189*t11*t12*t13/pow(rhoa,.1666666666666667)+
201         1.6831*t4*t5/sqrt(rhoa)+6.1977*t6*t7*t8*t9)+1.0);
202     t15 = pow(grada,4.0);
203     t16 = pow(grada,2.0);
204     t17 = 1/pow(rhoa,2.666666666666667);
205     t18 = 0.2*t16*t17+1.0;
206     t19 = 1/pow(rhoa,5.333333333333333);
207     t20 = 0.20548*t6*t7*t8*t9+1.0;
208     t21 = pow(6.0,.3333333333333333);
209     t22 = 0.004*t16*t17+1.0;
210     t23 = 1/pow(rhob,.3333333333333333);
211     t24 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhob,
212         .6666666666666666)+14.1189*t11*t12*t13/pow(rhob,.1666666666666667)+
213         1.6831*t4*t5/sqrt(rhob)+6.1977*t6*t7*t8*t23)+1.0);
214     t25 = pow(gradb,4.0);
215     t26 = pow(gradb,2.0);
216     t27 = 1/pow(rhob,2.666666666666667);
217     t28 = 0.2*t26*t27+1.0;
218     t29 = 1/pow(rhob,5.333333333333333);
219     t30 = 0.20548*t6*t7*t8*t23+1.0;
220     t31 = 0.004*t26*t27+1.0;
221     t32 = 0.5*t26*t27+0.5*t16*t17;
222     t33 = 0.006*t32+1.0;
223     t34 = rhob+rhoa;
224     t35 = 1/pow(t34,.3333333333333333);
225     t36 = 0.2137*t6*t7*t8*t35+1.0;
226     t37 = 1/pow(t34,.6666666666666666);
227     t38 = 1/sqrt(t34);
228     t39 = 1/pow(t34,.1666666666666667);
229     t40 = log(16.0818243221511/(7.5957*t11*t12*t13*t39+3.5876*
230         t6*t7*t8*t35+0.8191*t4*t5*t38+0.49294*t1*t2*t3*t37)+1.0);
231     t41 = 1/
232         (2.0*t10-2.0);
233     t42 = rhoa-1.0*rhob;
234     t43 = pow(t42,4.0);
235     t44 = 1/pow(t34,4.0);
236     t45 = 1/t34;
237     t46 = pow(t42*t45+1.0,1.333333333333333)+pow(1.0-1.0*
238         t42*t45,1.333333333333333)-2.0;
239 
240    /* code */
241     res = -0.75*t21*(2.817999999999999e-5*t25*t29/pow(t31,
242         2.0)+1.9136e-4*t26*t27/t31+0.827642)*t8*pow(rhob,1.333333333333333)+
243         (-2.678616e-4*pow(t32,2.0)/pow(t33,2.0)+0.00843756*t32/t33+
244         0.999849)*(0.03109*t24*t30*rhob+0.03109*t14*t20*rhoa+t34*(.0197517897025652*
245         (0.11125*t6*t7*t8*t35+1.0)*log(29.60857464321668/(10.357*t11*
246         t12*t13*t39+3.6231*t6*t7*t8*t35+0.44013*t4*t5*t38+0.49671*
247         t1*t2*t3*t37)+1.0)*t41*(1.0-1.0*t43*t44)*t46+(0.062182*t36*
248         t40-0.03109*(0.20548*t6*t7*t8*t35+1.0)*log(32.1646831778707/
249         (14.1189*t11*t12*t13*t39+6.1977*t6*t7*t8*t35+1.6831*t4*t5*
250         t38+0.62517*t1*t2*t3*t37)+1.0))*t41*t43*t44*t46-0.062182*t36*
251         t40))-0.03109*t24*(0.01579184*t25*t29/pow(t28,2.0)-0.1383364*
252         t26*t27/t28+0.585808)*t30*rhob-0.75*t21*(2.817999999999999e-5*
253         t15*t19/pow(t22,2.0)+1.9136e-4*t16*t17/t22+0.827642)*t8*pow(rhoa,
254         1.333333333333333)-0.03109*t14*(0.01579184*t15*t19/pow(t18,
255         2.0)-0.1383364*t16*t17/t18+0.585808)*t20*rhoa;
256 
257     return res;
258 }
259 
260 static void
b97_2_first(FunFirstFuncDrv * ds,real factor,const FunDensProp * dp)261 b97_2_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
262 {
263     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
264     real rhoa = dp->rhoa, rhob = dp->rhob;
265     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
266 
267     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
268     real t11, t12, t13, t14, t15, t16, t17, t18;
269     real t19, t20, t21, t22, t23, t24, t25, t26;
270     real t27, t28, t29, t30, t31, t32, t33, t34;
271     real t35, t36, t37, t38, t39, t40, t41, t42;
272     real t43, t44, t45, t46, t47, t48, t49, t50;
273     real t51, t52, t53, t54, t55, t56, t57, t58;
274     real t59, t60, t61, t62, t63, t64, t65, t66;
275     real t67, t68, t69, t70, t71, t72, t73, t74;
276     real t75, t76, t77, t78, t79, t80, t81, t82;
277     real t83, t84, t85, t86, t87, t88, t89, t90;
278     real t91, t92, t93, t94, t95, t96, t97, t98;
279     real t99, t100, t101, t102, t103, t104, t105;
280     real t106, t107, t108, t109, t110, t111, t112;
281     real t113, t114, t115, t116, t117, t118, t119;
282     real t120, t121, t122, t123, t124, t125, t126;
283     real t127, t128, t129, t130, t131, t132, t133;
284     real t134, t135, t136, t137, t138;
285 
286     t1 = pow(3.0,.3333333333333333);
287     t2 = 1/pow(4.0,.3333333333333333);
288     t3 = 1/pow(3.141592653589793,.3333333333333333);
289     t4 = pow(3.0,.6666666666666666);
290     t5 = 1/pow(4.0,.6666666666666666);
291     t6 = 1/pow(3.141592653589793,.6666666666666666);
292     t7 = 1.732050807568877;
293     t8 = .5641895835477563;
294     t9 = sqrt(rhoa);
295     t10 = pow(rhoa,.3333333333333333);
296     t11 = 1/t10;
297     t12 = pow(2.0,.3333333333333333);
298     t13 = 1/t12;
299     t14 = pow(3.0,.1666666666666667);
300     t15 = 1/pow(3.141592653589793,.1666666666666667);
301     t16 = 0.62517*t4*t5*t6/pow(rhoa,.6666666666666666)+14.1189*
302         t13*t14*t15/pow(rhoa,.1666666666666667)+1.6831*t7*t8/t9+6.1977*
303         t1*t2*t3*t11;
304     t17 = 32.1646831778707/t16+1.0;
305     t18 = log(t17);
306     t19 = pow(grada,4.0);
307     t20 = pow(grada,2.0);
308     t21 = 1/pow(rhoa,2.666666666666667);
309     t22 = 0.2*t20*t21+1.0;
310     t23 = 1/pow(t22,2.0);
311     t24 = 1/pow(rhoa,5.333333333333333);
312     t25 = 1/t22;
313     t26 = -0.1383364*t20*t25*t21+0.01579184*t19*t23*t24+0.585808;
314     t27 = 0.20548*
315         t1*t2*t3*t11+1.0;
316     t28 = pow(6.0,.3333333333333333);
317     t29 = 0.004*t20*t21+1.0;
318     t30 = 1/pow(t29,2.0);
319     t31 = 1/t29;
320     t32 = pow(grada,6.0);
321     t33 = 1/pow(t22,3.0);
322     t34 = 1/pow(rhoa,9.0);
323     t35 = 1/pow(rhoa,6.333333333333333);
324     t36 = 1/pow(rhoa,3.666666666666667);
325     t37 = 1/t17;
326     t38 = pow(rhoa,1.333333333333333);
327     t39 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
328         t13*t14*t15/pow(rhoa,1.166666666666667)-0.84155*t7*t8/pow(t9,
329         3.0)-2.0659*t1*t2*t3/t38;
330     t40 = 1/pow(t16,2.0);
331     t41 = 1/pow(t29,3.0);
332     t42 = pow(gradb,2.0);
333     t43 = 1/pow(rhob,2.666666666666667);
334     t44 = 0.5*t42*t43+0.5*t20*t21;
335     t45 = pow(t44,2.0);
336     t46 = 0.006*t44+1.0;
337     t47 = 1/pow(t46,2.0);
338     t48 = 1/t46;
339     t49 = 0.00843756*t44*t48-2.678616e-4*t45*t47+0.999849;
340     t50 = rhob+
341         rhoa;
342     t51 = 1/pow(t50,.3333333333333333);
343     t52 = 0.2137*t1*t2*t3*t51+1.0;
344     t53 = 1/pow(t50,.6666666666666666);
345     t54 = sqrt(t50);
346     t55 = 1/t54;
347     t56 = 1/pow(t50,.1666666666666667);
348     t57 = 7.5957*t13*t14*t15*t56+3.5876*t1*t2*t3*t51+0.8191*
349         t7*t8*t55+0.49294*t4*t5*t6*t53;
350     t58 = 16.0818243221511/t57+1.0;
351     t59 = log(t58);
352     t60 = -0.062182*t52*t59;
353     t61 = 1/(2.0*t12-2.0);
354     t62 = rhoa-1.0*rhob;
355     t63 = pow(t62,4.0);
356     t64 = 1/pow(t50,4.0);
357     t65 = 1.0-1.0*t63*t64;
358     t66 = 0.11125*t1*t2*t3*t51+1.0;
359     t67 = 1/t50;
360     t68 = 1.0-1.0*t62*t67;
361     t69 = t62*t67+1.0;
362     t70 = pow(t69,1.333333333333333)+pow(t68,1.333333333333333)-
363         2.0;
364     t71 = 10.357*t13*t14*t15*t56+3.6231*t1*t2*t3*t51+0.44013*
365         t7*t8*t55+0.49671*t4*t5*t6*t53;
366     t72 = 29.60857464321668/t71+1.0;
367     t73 = log(t72);
368     t74 = .0197517897025652*t61*t65*t66*t70*t73;
369     t75 = 0.20548*t1*t2*t3*t51+1.0;
370     t76 = 14.1189*t13*t14*t15*t56+6.1977*t1*t2*t3*t51+1.6831*
371         t7*t8*t55+0.62517*t4*t5*t6*t53;
372     t77 = 32.1646831778707/t76+1.0;
373     t78 = log(t77);
374     t79 = 0.062182*t52*t59-0.03109*t75*t78;
375     t80 = t61*t63*t64*t70*t79;
376     t81 = 1/pow(t50,1.666666666666667);
377     t82 = 1/pow(t54,3.0);
378     t83 = 1/pow(t50,1.333333333333333);
379     t84 = 1/pow(t50,1.166666666666667);
380     t85 = -1.26595*t13*t14*t15*t84-1.195866666666667*t1*t2*
381         t3*t83-0.40955*t7*t8*t82-.3286266666666666*t4*t5*t6*t81;
382     t86 = 1/
383         pow(t57,2.0);
384     t87 = 1/t58;
385     t88 = .9999999999999999*t85*t52*t86*t87;
386     t89 = -.5848223397455204*t61*t65*t66*t70*(-1.726166666666666*
387         t13*t14*t15*t84-1.2077*t1*t2*t3*t83-0.220065*t7*t8*t82-0.33114*
388         t4*t5*t6*t81)/(pow(t71,2.0)*t72);
389     t90 = .0044294311333333*t1*t2*t3*t83*t59;
390     t91 = 1/pow(t50,2.0);
391     t92 = t62*t91;
392     t93 = -1.0*t67;
393     t94 = pow(t68,.3333333333333333);
394     t95 = -1.0*t62*t91;
395     t96 = pow(t69,.3333333333333333);
396     t97 = 1.333333333333333*(t67+t95)*t96+1.333333333333333*
397         (t93+t92)*t94;
398     t98 = -7.324622014701263e-4*t61*t1*t2*t3*t83*t65*t70*
399         t73;
400     t99 = 1/pow(t50,5.0);
401     t100 = 4.0*t63*t99;
402     t101 = pow(t62,3.0);
403     t102 = t61*t63*t64*t70*(-.9999999999999999*t85*t52*t86*
404         t87+t75*(-2.35315*t13*t14*t15*t84-2.0659*t1*t2*t3*t83-0.84155*
405         t7*t8*t82-0.41678*t4*t5*t6*t81)/(pow(t76,2.0)*t77)+.0021294577333333*
406         t1*t2*t3*t83*t78-.0044294311333333*t1*t2*t3*t83*t59);
407     t103 = -4.0*t61*t63*t70*t79*t99;
408     t104 = 1/pow(t46,3.0);
409     t105 = sqrt(rhob);
410     t106 = pow(rhob,.3333333333333333);
411     t107 = 1/t106;
412     t108 = 0.62517*t4*t5*t6/pow(rhob,.6666666666666666)+14.1189*
413         t13*t14*t15/pow(rhob,.1666666666666667)+1.6831*t7*t8/t105+
414         6.1977*t1*t2*t3*t107;
415     t109 = 32.1646831778707/t108+1.0;
416     t110 = log(t109);
417     t111 = 0.20548*t1*t2*t3*t107+1.0;
418     t112 = t50*(t80+t74+t60)+0.03109*t110*t111*rhob+0.03109*
419         t18*t27*rhoa;
420     t113 = pow(gradb,4.0);
421     t114 = 0.2*t42*t43+1.0;
422     t115 = 1/pow(t114,2.0);
423     t116 = 1/pow(rhob,5.333333333333333);
424     t117 = 1/t114;
425     t118 = -0.1383364*t42*t117*t43+0.01579184*t113*t115*t116+
426         0.585808;
427     t119 = 0.004*t42*t43+1.0;
428     t120 = 1/pow(t119,2.0);
429     t121 = 1/t119;
430     t122 = pow(gradb,6.0);
431     t123 = 1/pow(t114,3.0);
432     t124 = 1/pow(rhob,9.0);
433     t125 = 1/pow(rhob,6.333333333333333);
434     t126 = 1/pow(rhob,3.666666666666667);
435     t127 = 1/t109;
436     t128 = pow(rhob,1.333333333333333);
437     t129 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
438         2.35315*t13*t14*t15/pow(rhob,1.166666666666667)-0.84155*t7*
439         t8/pow(t105,3.0)-2.0659*t1*t2*t3/t128;
440     t130 = 1/pow(t108,2.0);
441     t131 = 1/pow(t119,3.0);
442     t132 = 1.333333333333333*(t93+t95)*t96+1.333333333333333*
443         (t67+t92)*t94;
444     t133 = pow(grada,5.0);
445     t134 = 1/pow(rhoa,8.0);
446     t135 = pow(grada,3.0);
447     t136 = pow(gradb,5.0);
448     t137 = 1/pow(rhob,8.0);
449     t138 = pow(gradb,3.0);
450 
451    /* code */
452     dfdra = t49*(-1.0*t37*t39*t27*t40*rhoa+t50*(t98+t90+t89+
453         t88+t61*t63*t64*t97*t79+4.0*t101*t61*t64*t70*t79+.0197517897025652*
454         t61*t65*t66*t97*t73+.0197517897025652*t61*(t100-4.0*t101*t64)*
455         t66*t70*t73+t103+t102)+t80+t74+t60+0.03109*t18*t27-.0021294577333333*
456         t1*t2*t3*t18*t11)+t37*t26*t39*t27*t40*rhoa-0.03109*t18*(.3688970666666667*
457         t20*t25*t36-0.15800256*t19*t23*t35+.0168446293333333*t32*t33*
458         t34)*t27*rhoa-0.75*t28*t3*(-5.102933333333334e-4*t20*t31*t36-
459         1.4825216e-4*t19*t30*t35+6.011733333333333e-7*t32*t41*t34)*
460         t38-1.0*t10*(1.9136e-4*t20*t31*t21+2.817999999999999e-5*t19*
461         t30*t24+0.827642)*t28*t3-0.03109*t18*t26*t27+(-0.01125008*
462         t20*t36*t48+7.8179808e-4*t20*t36*t44*t47-4.2857856e-6*t20*
463         t36*t45*t104)*t112+.0021294577333333*t1*t2*t3*t18*t26*t11;
464     dfdrb = t49*
465         (-1.0*t127*t129*t111*t130*rhob+t50*(t98+t90+t89+t88-4.0*t101*
466         t61*t64*t70*t79+t61*t63*t64*t132*t79+.0197517897025652*t61*
467         (4.0*t101*t64+t100)*t66*t70*t73+.0197517897025652*t61*t65*
468         t66*t132*t73+t103+t102)+t80+t74+t60+0.03109*t110*t111-.0021294577333333*
469         t1*t2*t3*t110*t107)+t127*t118*t129*t111*t130*rhob-0.03109*
470         t110*(.3688970666666667*t42*t117*t126-0.15800256*t113*t115*
471         t125+.0168446293333333*t122*t123*t124)*t111*rhob-1.0*t106*
472         t28*t3*(1.9136e-4*t42*t121*t43+2.817999999999999e-5*t113*t120*
473         t116+0.827642)-0.75*(-5.102933333333334e-4*t42*t121*t126-1.4825216e-4*
474         t113*t120*t125+6.011733333333333e-7*t122*t131*t124)*t128*t28*
475         t3+(-0.01125008*t42*t48*t126+7.8179808e-4*t42*t44*t47*t126-
476         4.2857856e-6*t42*t45*t104*t126)*t112-0.03109*t110*t118*t111+
477         .0021294577333333*t1*t2*t3*t110*t118*t107;
478     dfdga = -0.03109*t18*(-0.2766728*grada*t25*t21+0.11850192*
479         t135*t23*t24-0.012633472*t133*t33*t134)*t27*rhoa-0.75*(3.8272e-4*
480         grada*t31*t21+1.1118912e-4*t135*t30*t24-4.5088e-7*t133*t41*
481         t134)*t28*t3*t38+(0.00843756*grada*t21*t48-5.863485599999999e-4*
482         grada*t21*t44*t47+3.2143392e-6*grada*t21*t45*t104)*t112;
483     dfdgb = -
484         0.03109*t110*(-0.2766728*gradb*t117*t43+0.11850192*t138*t115*
485         t116-0.012633472*t136*t123*t137)*t111*rhob-0.75*t128*t28*t3*
486         (3.8272e-4*gradb*t121*t43+1.1118912e-4*t138*t120*t116-4.5088e-7*
487         t136*t131*t137)+(0.00843756*gradb*t48*t43-5.863485599999999e-4*
488         gradb*t44*t47*t43+3.2143392e-6*gradb*t45*t104*t43)*t112;
489     dfdgab = 0.0;
490 
491 
492     ds->df1000 += factor*dfdra;
493     ds->df0100 += factor*dfdrb;
494     ds->df0010 += factor*dfdga;
495     ds->df0001 += factor*dfdgb;
496     ds->df00001+= factor*dfdgab;
497 
498 }
499 
500 static void
b97_2_second(FunSecondFuncDrv * ds,real factor,const FunDensProp * dp)501 b97_2_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
502 {
503     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
504     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
505         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
506         d2fdgbgb, d2fdgbgab, d2fdgabgab;
507     real rhoa = dp->rhoa, rhob = dp->rhob;
508     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
509 
510     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
511     real t11, t12, t13, t14, t15, t16, t17, t18;
512     real t19, t20, t21, t22, t23, t24, t25, t26;
513     real t27, t28, t29, t30, t31, t32, t33, t34;
514     real t35, t36, t37, t38, t39, t40, t41, t42;
515     real t43, t44, t45, t46, t47, t48, t49, t50;
516     real t51, t52, t53, t54, t55, t56, t57, t58;
517     real t59, t60, t61, t62, t63, t64, t65, t66;
518     real t67, t68, t69, t70, t71, t72, t73, t74;
519     real t75, t76, t77, t78, t79, t80, t81, t82;
520     real t83, t84, t85, t86, t87, t88, t89, t90;
521     real t91, t92, t93, t94, t95, t96, t97, t98;
522     real t99, t100, t101, t102, t103, t104, t105;
523     real t106, t107, t108, t109, t110, t111, t112;
524     real t113, t114, t115, t116, t117, t118, t119;
525     real t120, t121, t122, t123, t124, t125, t126;
526     real t127, t128, t129, t130, t131, t132, t133;
527     real t134, t135, t136, t137, t138, t139, t140;
528     real t141, t142, t143, t144, t145, t146, t147;
529     real t148, t149, t150, t151, t152, t153, t154;
530     real t155, t156, t157, t158, t159, t160, t161;
531     real t162, t163, t164, t165, t166, t167, t168;
532     real t169, t170, t171, t172, t173, t174, t175;
533     real t176, t177, t178, t179, t180, t181, t182;
534     real t183, t184, t185, t186, t187, t188, t189;
535     real t190, t191, t192, t193, t194, t195, t196;
536     real t197, t198, t199, t200, t201, t202, t203;
537     real t204, t205, t206, t207, t208, t209, t210;
538     real t211, t212, t213, t214, t215, t216, t217;
539     real t218, t219, t220, t221, t222, t223, t224;
540     real t225, t226, t227, t228, t229, t230, t231;
541     real t232, t233, t234, t235, t236, t237, t238;
542     real t239, t240, t241, t242, t243, t244, t245;
543     real t246, t247, t248, t249, t250, t251, t252;
544     real t253;
545 
546     t1 = pow(3.0,.3333333333333333);
547     t2 = 1/pow(4.0,.3333333333333333);
548     t3 = 1/pow(3.141592653589793,.3333333333333333);
549     t4 = pow(3.0,.6666666666666666);
550     t5 = 1/pow(4.0,.6666666666666666);
551     t6 = 1/pow(3.141592653589793,.6666666666666666);
552     t7 = 1/pow(rhoa,.6666666666666666);
553     t8 = 1.732050807568877;
554     t9 = .5641895835477563;
555     t10 = sqrt(rhoa);
556     t11 = pow(rhoa,.3333333333333333);
557     t12 = 1/t11;
558     t13 = pow(2.0,.3333333333333333);
559     t14 = 1/t13;
560     t15 = pow(3.0,.1666666666666667);
561     t16 = 1/pow(3.141592653589793,.1666666666666667);
562     t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
563         1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
564     t18 = 32.1646831778707/
565         t17+1.0;
566     t19 = log(t18);
567     t20 = pow(grada,4.0);
568     t21 = pow(grada,2.0);
569     t22 = 1/pow(rhoa,2.666666666666667);
570     t23 = 0.2*t21*t22+1.0;
571     t24 = 1/pow(t23,2.0);
572     t25 = 1/pow(rhoa,5.333333333333333);
573     t26 = 1/t23;
574     t27 = -0.1383364*t21*t26*t22+0.01579184*t20*t24*t25+0.585808;
575     t28 = 0.20548*
576         t1*t2*t3*t12+1.0;
577     t29 = pow(6.0,.3333333333333333);
578     t30 = 0.004*t21*t22+1.0;
579     t31 = 1/pow(t30,2.0);
580     t32 = 1/t30;
581     t33 = 1.9136e-4*t21*t32*t22+2.817999999999999e-5*t20*
582         t31*t25+0.827642;
583     t34 = pow(grada,6.0);
584     t35 = 1/pow(t23,3.0);
585     t36 = 1/pow(rhoa,9.0);
586     t37 = 1/pow(rhoa,6.333333333333333);
587     t38 = 1/pow(rhoa,3.666666666666667);
588     t39 = .3688970666666667*t21*t26*t38-0.15800256*t20*t24*
589         t37+.0168446293333333*t34*t35*t36;
590     t40 = 1/t18;
591     t41 = pow(rhoa,1.333333333333333);
592     t42 = 1/t41;
593     t43 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
594         t14*t15*t16/pow(rhoa,1.166666666666667)-0.84155*t8*t9/pow(t10,
595         3.0)-2.0659*t1*t2*t3*t42;
596     t44 = 1/pow(t17,2.0);
597     t45 = 1/pow(t30,3.0);
598     t46 = -5.102933333333334e-4*t21*t32*t38-1.4825216e-4*
599         t20*t31*t37+6.011733333333333e-7*t34*t45*t36;
600     t47 = pow(gradb,2.0);
601     t48 = 1/pow(rhob,2.666666666666667);
602     t49 = 0.5*t47*t48+0.5*t21*t22;
603     t50 = pow(t49,2.0);
604     t51 = 0.006*t49+1.0;
605     t52 = 1/pow(t51,2.0);
606     t53 = 1/t51;
607     t54 = 0.00843756*t49*t53-2.678616e-4*t50*t52+0.999849;
608     t55 = rhob+
609         rhoa;
610     t56 = 1/pow(t55,.3333333333333333);
611     t57 = 0.2137*t1*t2*t3*t56+1.0;
612     t58 = 1/pow(t55,.6666666666666666);
613     t59 = sqrt(t55);
614     t60 = 1/t59;
615     t61 = 1/pow(t55,.1666666666666667);
616     t62 = 7.5957*t14*t15*t16*t61+3.5876*t1*t2*t3*t56+0.8191*
617         t8*t9*t60+0.49294*t4*t5*t6*t58;
618     t63 = 16.0818243221511/t62+1.0;
619     t64 = log(t63);
620     t65 = -0.062182*t57*t64;
621     t66 = 1/(2.0*t13-2.0);
622     t67 = rhoa-1.0*rhob;
623     t68 = pow(t67,4.0);
624     t69 = 1/pow(t55,4.0);
625     t70 = 1.0-1.0*t68*t69;
626     t71 = 0.11125*t1*t2*t3*t56+1.0;
627     t72 = 1/t55;
628     t73 = 1.0-1.0*t67*t72;
629     t74 = t67*t72+1.0;
630     t75 = pow(t74,1.333333333333333)+pow(t73,1.333333333333333)-
631         2.0;
632     t76 = 10.357*t14*t15*t16*t61+3.6231*t1*t2*t3*t56+0.44013*
633         t8*t9*t60+0.49671*t4*t5*t6*t58;
634     t77 = 29.60857464321668/t76+1.0;
635     t78 = log(t77);
636     t79 = .0197517897025652*t66*t70*t71*t75*t78;
637     t80 = 0.20548*t1*t2*t3*t56+1.0;
638     t81 = 14.1189*t14*t15*t16*t61+6.1977*t1*t2*t3*t56+1.6831*
639         t8*t9*t60+0.62517*t4*t5*t6*t58;
640     t82 = 32.1646831778707/t81+1.0;
641     t83 = log(t82);
642     t84 = 0.062182*t57*t64-0.03109*t80*t83;
643     t85 = t66*t68*t69*t75*t84;
644     t86 = 1/pow(t55,1.666666666666667);
645     t87 = 1/pow(t59,3.0);
646     t88 = 1/pow(t55,1.333333333333333);
647     t89 = 1/pow(t55,1.166666666666667);
648     t90 = -1.26595*t14*t15*t16*t89-1.195866666666667*t1*t2*
649         t3*t88-0.40955*t8*t9*t87-.3286266666666666*t4*t5*t6*t86;
650     t91 = 1/
651         pow(t62,2.0);
652     t92 = 1/t63;
653     t93 = .9999999999999999*t90*t57*t91*t92;
654     t94 = -1.726166666666666*t14*t15*t16*t89-1.2077*t1*t2*
655         t3*t88-0.220065*t8*t9*t87-0.33114*t4*t5*t6*t86;
656     t95 = 1/pow(t76,2.0);
657     t96 = 1/t77;
658     t97 = -.5848223397455204*t66*t70*t94*t71*t95*t75*t96;
659     t98 = .0044294311333333*
660         t1*t2*t3*t88*t64;
661     t99 = 1/pow(t55,2.0);
662     t100 = t67*t99;
663     t101 = -1.0*t72;
664     t102 = t101+t100;
665     t103 = pow(t73,.3333333333333333);
666     t104 = -1.0*t67*t99;
667     t105 = t72+t104;
668     t106 = pow(t74,.3333333333333333);
669     t107 = 1.333333333333333*t105*t106+1.333333333333333*
670         t102*t103;
671     t108 = .0197517897025652*t66*t70*t71*t107*t78;
672     t109 = -7.324622014701263e-4*t66*t1*t2*t3*t88*t70*t75*
673         t78;
674     t110 = 1/pow(t55,5.0);
675     t111 = 4.0*t110*t68;
676     t112 = pow(t67,3.0);
677     t113 = t111-4.0*t112*t69;
678     t114 = .0197517897025652*t66*t113*t71*t75*t78;
679     t115 = -2.35315*t14*t15*t16*t89-2.0659*t1*t2*t3*t88-0.84155*
680         t8*t9*t87-0.41678*t4*t5*t6*t86;
681     t116 = 1/pow(t81,2.0);
682     t117 = 1/t82;
683     t118 = .0021294577333333*t1*t2*t3*t88*t83-.0044294311333333*
684         t1*t2*t3*t88*t64+t115*t80*t116*t117-.9999999999999999*t90*
685         t57*t91*t92;
686     t119 = t66*t68*t69*t75*t118;
687     t120 = t66*t68*t69*t107*t84;
688     t121 = -4.0*t110*t66*t68*t75*t84;
689     t122 = -1.0*t40*t43*t28*t44*rhoa+t55*(t98+t97+t93+4.0*
690         t112*t66*t69*t75*t84+t121+t120+t119+t114+t109+t108)+t85+t79+
691         t65+0.03109*t19*t28-.0021294577333333*t1*t2*t3*t19*t12;
692     t123 = 1/pow(t51,3.0);
693     t124 = -0.01125008*t21*t38*t53+7.8179808e-4*t21*t38*t49*
694         t52-4.2857856e-6*t21*t38*t50*t123;
695     t125 = 1/pow(rhob,.6666666666666666);
696     t126 = sqrt(rhob);
697     t127 = pow(rhob,.3333333333333333);
698     t128 = 1/t127;
699     t129 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
700         1.6831*t8*t9/t126+6.1977*t1*t2*t3*t128+0.62517*t4*t5*t6*t125;
701     t130 = 32.1646831778707/
702         t129+1.0;
703     t131 = log(t130);
704     t132 = 0.20548*t1*t2*t3*t128+1.0;
705     t133 = t55*(t85+t79+t65)+0.03109*t131*t132*rhob+0.03109*
706         t19*t28*rhoa;
707     t134 = pow(gradb,4.0);
708     t135 = 0.2*t47*t48+1.0;
709     t136 = 1/pow(t135,2.0);
710     t137 = 1/pow(rhob,5.333333333333333);
711     t138 = 1/t135;
712     t139 = -0.1383364*t47*t138*t48+0.01579184*t134*t136*t137+
713         0.585808;
714     t140 = 0.004*t47*t48+1.0;
715     t141 = 1/pow(t140,2.0);
716     t142 = 1/t140;
717     t143 = 1.9136e-4*t47*t142*t48+2.817999999999999e-5*t134*
718         t141*t137+0.827642;
719     t144 = pow(gradb,6.0);
720     t145 = 1/pow(t135,3.0);
721     t146 = 1/pow(rhob,9.0);
722     t147 = 1/pow(rhob,6.333333333333333);
723     t148 = 1/pow(rhob,3.666666666666667);
724     t149 = .3688970666666667*t47*t138*t148-0.15800256*t134*
725         t136*t147+.0168446293333333*t144*t145*t146;
726     t150 = 1/t130;
727     t151 = pow(rhob,1.333333333333333);
728     t152 = 1/t151;
729     t153 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
730         2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-0.84155*t8*
731         t9/pow(t126,3.0)-2.0659*t1*t2*t3*t152;
732     t154 = 1/pow(t129,2.0);
733     t155 = 1/pow(t140,3.0);
734     t156 = -5.102933333333334e-4*t47*t142*t148-1.4825216e-4*
735         t134*t141*t147+6.011733333333333e-7*t144*t155*t146;
736     t157 = t72+t100;
737     t158 = t101+t104;
738     t159 = 1.333333333333333*t106*t158+1.333333333333333*
739         t103*t157;
740     t160 = .0197517897025652*t66*t70*t71*t159*t78;
741     t161 = 4.0*t112*t69+t111;
742     t162 = .0197517897025652*t66*t161*t71*t75*t78;
743     t163 = t66*t68*t69*t159*t84;
744     t164 = -1.0*t150*t153*t132*t154*rhob+t55*(t98+t97+t93-
745         4.0*t112*t66*t69*t75*t84+t163+t162+t160+t121+t119+t109)+t85+
746         t79+t65+0.03109*t131*t132-.0021294577333333*t1*t2*t3*t131*
747         t128;
748     t165 = -0.01125008*t47*t53*t148+7.8179808e-4*t47*t49*
749         t52*t148-4.2857856e-6*t47*t50*t123*t148;
750     t166 = pow(grada,5.0);
751     t167 = 1/pow(rhoa,8.0);
752     t168 = pow(grada,3.0);
753     t169 = -0.2766728*grada*t26*t22+0.11850192*t168*t24*t25-
754         0.012633472*t166*t35*t167;
755     t170 = 3.8272e-4*grada*t32*t22+1.1118912e-4*t168*t31*
756         t25-4.5088e-7*t166*t45*t167;
757     t171 = 0.00843756*grada*t22*t53-5.863485599999999e-4*
758         grada*t22*t49*t52+3.2143392e-6*grada*t22*t50*t123;
759     t172 = pow(gradb,5.0);
760     t173 = 1/pow(rhob,8.0);
761     t174 = pow(gradb,3.0);
762     t175 = -0.2766728*gradb*t138*t48+0.11850192*t174*t136*
763         t137-0.012633472*t172*t145*t173;
764     t176 = 3.8272e-4*gradb*t142*t48+1.1118912e-4*t174*t141*
765         t137-4.5088e-7*t172*t155*t173;
766     t177 = 0.00843756*gradb*t53*t48-5.863485599999999e-4*
767         gradb*t49*t52*t48+3.2143392e-6*gradb*t50*t123*t48;
768     t178 = pow(grada,8.0);
769     t179 = 1/pow(t23,4.0);
770     t180 = 1/pow(rhoa,12.66666666666667);
771     t181 = 1/pow(rhoa,10.0);
772     t182 = 1/pow(rhoa,7.333333333333333);
773     t183 = 1/pow(rhoa,4.666666666666667);
774     t184 = 1/pow(t18,2.0);
775     t185 = pow(t43,2.0);
776     t186 = 1/pow(t17,4.0);
777     t187 = 1/pow(t17,3.0);
778     t188 = 2.754533333333333*t1*t2*t3/pow(rhoa,2.333333333333333)+
779         2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
780         1.262325*t8*t9/pow(t10,5.0)+.6946333333333333*t4*t5*t6*t22;
781     t189 = 1/
782         pow(t30,4.0);
783     t190 = 2.0*t90*t57*t91*t92;
784     t191 = -1.169644679491041*t66*t70*t94*t71*t95*t75*t96;
785     t192 = .0088588622666667*
786         t1*t2*t3*t88*t64;
787     t193 = -.0014649244029403*t66*t1*t2*t3*t88*t70*t75*t78;
788     t194 = 2.0*
789         t118*t66*t68*t69*t75;
790     t195 = -8.0*t110*t66*t68*t75*t84;
791     t196 = pow(t90,2.0);
792     t197 = 1/pow(t62,4.0);
793     t198 = 1/pow(t63,2.0);
794     t199 = 16.0818243221511*t196*t57*t197*t198;
795     t200 = 1/pow(t62,3.0);
796     t201 = -2.0*t196*t57*t200*t92;
797     t202 = -.1424666666666666*t1*t2*t3*t88*t90*t91*t92;
798     t203 = 1/
799         pow(t55,2.666666666666667);
800     t204 = 1/pow(t59,5.0);
801     t205 = 1/pow(t55,2.333333333333333);
802     t206 = 1/pow(t55,2.166666666666667);
803     t207 = 1.476941666666667*t14*t15*t16*t206+1.594488888888889*
804         t1*t2*t3*t205+0.614325*t8*t9*t204+0.547711111111111*t4*t5*
805         t6*t203;
806     t208 = .9999999999999999*t207*t57*t91*t92;
807     t209 = pow(t94,2.0);
808     t210 = -17.31575589937587*t209*t66*t70*t71*t75/(pow(t76,
809         4.0)*pow(t77,2.0));
810     t211 = 1.169644679491041*t209*t66*t70*t71*t75*t96/pow(t76,
811         3.0);
812     t212 = .0433743235311261*t66*t1*t2*t3*t88*t70*t94*t95*
813         t75*t96;
814     t213 = -.5848223397455204*t66*t70*(2.013861111111111*
815         t14*t15*t16*t206+1.610266666666667*t1*t2*t3*t205+0.3300975*
816         t8*t9*t204+.5519000000000001*t4*t5*t6*t203)*t71*t95*t75*t96;
817     t214 = -
818         .0059059081777778*t1*t2*t3*t205*t64;
819     t215 = 1/pow(t73,.6666666666666666);
820     t216 = 1/pow(t55,3.0);
821     t217 = -2.0*t216*t67;
822     t218 = 2.0*t99;
823     t219 = 1/pow(t74,.6666666666666666);
824     t220 = 2.0*t216*t67;
825     t221 = -2.0*t99;
826     t222 = 1.333333333333333*t106*(t221+t220)+.4444444444444444*
827         pow(t105,2.0)*t219+1.333333333333333*t103*(t218+t217)+.4444444444444444*
828         pow(t102,2.0)*t215;
829     t223 = 9.766162686268349e-4*t66*t1*t2*t3*t205*t70*t75*
830         t78;
831     t224 = 1/pow(t55,6.0);
832     t225 = -20.0*t224*t68;
833     t226 = pow(t67,2.0);
834     t227 = -12.0*t226*t69;
835     t228 = pow(t115,2.0);
836     t229 = t66*t68*t69*t75*(.1424666666666666*t1*t2*t3*t88*
837         t90*t91*t92-.9999999999999999*t207*t57*t91*t92+2.0*t196*t57*
838         t200*t92-.0028392769777778*t1*t2*t3*t205*t83+32.1646831778707*
839         t228*t80/(pow(t81,4.0)*pow(t82,2.0))-2.0*t117*t228*t80/pow(t81,
840         3.0)+.0059059081777778*t1*t2*t3*t205*t64-16.0818243221511*
841         t196*t57*t197*t198+(2.745341666666667*t14*t15*t16*t206+2.754533333333333*
842         t1*t2*t3*t205+1.262325*t8*t9*t204+.6946333333333333*t4*t5*
843         t6*t203)*t80*t116*t117-.1369866666666666*t1*t2*t3*t88*t115*
844         t116*t117);
845     t230 = -8.0*t110*t118*t66*t68*t75;
846     t231 = 20.0*t224*t66*t68*t75*t84;
847     t232 = 12.0*t226*t66*t69*t75*t84;
848     t233 = 1/pow(t51,4.0);
849     t234 = 2.666666666666667*t106*t216*t67-2.666666666666667*
850         t103*t216*t67+.4444444444444444*t105*t158*t219+.4444444444444444*
851         t102*t157*t215;
852     t235 = pow(grada,7.0);
853     t236 = 1/pow(rhoa,11.66666666666667);
854     t237 = pow(gradb,8.0);
855     t238 = 1/pow(t135,4.0);
856     t239 = 1/pow(rhob,12.66666666666667);
857     t240 = 1/pow(rhob,10.0);
858     t241 = 1/pow(rhob,7.333333333333333);
859     t242 = 1/pow(rhob,4.666666666666667);
860     t243 = 1/pow(t130,2.0);
861     t244 = pow(t153,2.0);
862     t245 = 1/pow(t129,4.0);
863     t246 = 1/pow(t129,3.0);
864     t247 = 2.754533333333333*t1*t2*t3/pow(rhob,2.333333333333333)+
865         2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
866         1.262325*t8*t9/pow(t126,5.0)+.6946333333333333*t4*t5*t6*t48;
867     t248 = 1/
868         pow(t140,4.0);
869     t249 = 1.333333333333333*t103*(t221+t217)+.4444444444444444*
870         pow(t158,2.0)*t219+1.333333333333333*t106*(t218+t220)+.4444444444444444*
871         pow(t157,2.0)*t215;
872     t250 = pow(gradb,7.0);
873     t251 = 1/pow(rhob,11.66666666666667);
874     t252 = 1/pow(rhoa,10.66666666666667);
875     t253 = 1/pow(rhob,10.66666666666667);
876 
877    /* code */
878     dfdra = t40*t27*t43*t28*t44*rhoa-0.03109*t19*t39*t28*
879         rhoa-0.75*t29*t3*t41*t46-1.0*t11*t29*t3*t33-0.03109*t19*t27*
880         t28+t124*t133+t54*t122+.0021294577333333*t1*t2*t3*t19*t27*
881         t12;
882     dfdrb = t150*t139*t153*t132*t154*rhob-0.03109*t131*t149*
883         t132*rhob-0.75*t151*t156*t29*t3-1.0*t127*t143*t29*t3+t54*t164+
884         t165*t133-0.03109*t131*t139*t132+.0021294577333333*t1*t2*t3*
885         t131*t139*t128;
886     dfdga = -0.03109*t19*t169*t28*rhoa-0.75*t170*t29*t3*t41+
887         t171*t133;
888     dfdgb = -0.03109*t131*t175*t132*rhob-0.75*t151*t176*t29*
889         t3+t177*t133;
890     dfdgab = 0.0;
891     d2fdrara = t54*(-1.0*t40*t188*t28*t44*rhoa+2.0*t40*t185*
892         t28*t187*rhoa-32.1646831778707*t184*t185*t28*t186*rhoa+t55*
893         (-1.169644679491041*t66*t113*t94*t71*t95*t75*t96-1.169644679491041*
894         t66*t70*t94*t71*t95*t107*t96-32.0*t110*t112*t66*t75*t84+8.0*
895         t107*t112*t66*t69*t84-8.0*t107*t110*t66*t68*t84+t66*t68*t69*
896         t222*t84+.0197517897025652*(t227+t225+32.0*t110*t112)*t66*
897         t71*t75*t78-.0014649244029403*t66*t1*t2*t3*t88*t113*t75*t78+
898         .0197517897025652*t66*t70*t71*t222*t78+.0395035794051304*t66*
899         t113*t71*t107*t78-.0014649244029403*t66*t1*t2*t3*t88*t70*t107*
900         t78+8.0*t112*t118*t66*t69*t75+2.0*t107*t118*t66*t68*t69+t232+
901         t231+t230+t229+t223+t214+t213+t212+t211+t210+t208+t202+t201+
902         t199)+8.0*t112*t66*t69*t75*t84+2.0*t107*t66*t68*t69*t84+.0395035794051304*
903         t66*t113*t71*t75*t78+.0395035794051304*t66*t70*t71*t107*t78-
904         2.0*t40*t43*t28*t44-.0014196384888889*t1*t2*t3*t19*t42+t195+
905         t194+t193+t192+t191+t190+.1369866666666666*t1*t2*t3*t40*t43*
906         t44*t12)+2.0*t28*t39*t40*t43*t44*rhoa+t40*t27*t188*t28*t44*
907         rhoa-2.0*t185*t187*t27*t28*t40*rhoa-0.03109*t19*(-1.352622577777778*
908         t21*t26*t183+1.197427982222222*t20*t24*t182-0.320137728*t34*
909         t35*t181+.0269514069333333*t178*t179*t180)*t28*rhoa+32.1646831778707*
910         t184*t27*t185*t28*t186*rhoa-.3333333333333333*t29*t3*t33*t7-
911         2.0*t11*t29*t3*t46+2.0*t27*t28*t40*t43*t44+.0014196384888889*
912         t1*t2*t3*t19*t27*t42-0.75*(.0018710755555556*t21*t32*t183+
913         9.334872177777777e-4*t20*t31*t182-8.573272746666667e-6*t34*
914         t45*t181+1.923754666666667e-8*t178*t189*t180)*t29*t3*t41-0.06218*
915         t19*t39*t28+(.0412502933333333*t21*t183*t53-0.00286659296*
916         t21*t183*t49*t52-0.00113239808*t20*t182*t52+1.57145472e-5*
917         t21*t183*t50*t123+2.393753088e-5*t20*t182*t49*t123-1.028588544e-7*
918         t20*t182*t50*t233)*t133+2.0*t122*t124-.1369866666666666*t1*
919         t2*t3*t40*t27*t43*t44*t12+.0042589154666667*t1*t2*t3*t19*t39*
920         t12;
921     d2fdrarb = t54*(t55*(-.5848223397455204*t66*t161*t94*
922         t71*t95*t75*t96-.5848223397455204*t66*t113*t94*t71*t95*t75*
923         t96-.5848223397455204*t66*t70*t94*t71*t95*t159*t96-.5848223397455204*
924         t66*t70*t94*t71*t95*t107*t96-12.0*t226*t66*t69*t75*t84+4.0*
925         t112*t159*t66*t69*t84-4.0*t107*t112*t66*t69*t84-4.0*t110*t159*
926         t66*t68*t84-4.0*t107*t110*t66*t68*t84+t66*t68*t69*t234*t84+
927         .0197517897025652*t66*(12.0*t226*t69+t225)*t71*t75*t78-7.324622014701263e-4*
928         t66*t1*t2*t3*t88*t161*t75*t78-7.324622014701263e-4*t66*t1*
929         t2*t3*t88*t113*t75*t78+.0197517897025652*t66*t70*t71*t234*
930         t78+.0197517897025652*t66*t113*t71*t159*t78-7.324622014701263e-4*
931         t66*t1*t2*t3*t88*t70*t159*t78+.0197517897025652*t66*t161*t71*
932         t107*t78-7.324622014701263e-4*t66*t1*t2*t3*t88*t70*t107*t78+
933         t231+t230+t229+t223+t214+t213+t212+t211+t210+t208+t202+t201+
934         t199+t66*t68*t69*t159*t118+t66*t68*t69*t107*t118)+t195+t194+
935         t193+t192+t191+t190+t163+t162+t160+t120+t114+t108)+t124*t164+
936         (-0.00113239808*t21*t47*t38*t52*t148+2.393753088e-5*t21*t47*
937         t38*t49*t123*t148-1.028588544e-7*t21*t47*t38*t50*t233*t148)*
938         t133+t165*t122;
939     d2fdraga = t40*t169*t43*t28*t44*rhoa-0.03109*t19*(.7377941333333333*
940         grada*t26*t38-.7795690666666667*t168*t24*t37+0.227469824*t166*
941         t35*t36-0.0202135552*t235*t179*t236)*t28*rhoa-0.75*t29*t3*
942         (-.0010205866666667*grada*t32*t38-5.889262933333332e-4*t168*
943         t31*t37+5.979074559999998e-6*t166*t45*t36-1.442816e-8*t235*
944         t189*t236)*t41-1.0*t11*t170*t29*t3-0.03109*t19*t169*t28+(-
945         0.02250016*grada*t38*t53+0.00156359616*grada*t38*t49*t52+8.492985599999999e-4*
946         t168*t37*t52-8.5715712e-6*grada*t38*t50*t123-1.795314816e-5*
947         t168*t37*t49*t123+7.714414080000002e-8*t168*t37*t50*t233)*
948         t133+t171*t122+.0021294577333333*t1*t2*t3*t19*t169*t12;
949     d2fdragb = (8.492985599999999e-4*t21*gradb*t38*t52*t48-
950         1.795314816e-5*t21*gradb*t38*t49*t123*t48+7.714414080000002e-8*
951         t21*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*(-1.352622577777778*
971         t47*t138*t242+1.197427982222222*t134*t136*t241-0.320137728*
972         t144*t145*t240+.0269514069333333*t237*t238*t239)*t132*rhob-
973         0.75*t151*(.0018710755555556*t47*t142*t242+9.334872177777777e-4*
974         t134*t141*t241-8.573272746666667e-6*t144*t155*t240+1.923754666666667e-8*
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+(.0412502933333333*
978         t47*t53*t242-0.00286659296*t47*t49*t52*t242+1.57145472e-5*
979         t47*t50*t123*t242-0.00113239808*t134*t52*t241+2.393753088e-5*
980         t134*t49*t123*t241-1.028588544e-7*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 = (8.492985599999999e-4*grada*t47*t22*t52*t148-
984         1.795314816e-5*grada*t47*t22*t49*t123*t148+7.714414080000002e-8*
985         grada*t47*t22*t50*t233*t148)*t133+t171*t164;
986     d2fdrbgb = t150*t175*t153*t132*t154*rhob-0.03109*t131*
987         (.7377941333333333*gradb*t138*t148-.7795690666666667*t174*
988         t136*t147+0.227469824*t172*t145*t146-0.0202135552*t250*t238*
989         t251)*t132*rhob-1.0*t127*t176*t29*t3-0.75*(-.0010205866666667*
990         gradb*t142*t148-5.889262933333332e-4*t174*t141*t147+5.979074559999998e-6*
991         t172*t155*t146-1.442816e-8*t250*t248*t251)*t151*t29*t3+t177*
992         t164+(-0.02250016*gradb*t53*t148+0.00156359616*gradb*t49*t52*
993         t148-8.5715712e-6*gradb*t50*t123*t148+8.492985599999999e-4*
994         t174*t52*t147-1.795314816e-5*t174*t49*t123*t147+7.714414080000002e-8*
995         t174*t50*t233*t147)*t133-0.03109*t131*t175*t132+.0021294577333333*
996         t1*t2*t3*t131*t175*t128;
997     d2fdrbgab = 0.0;
998     d2fdgaga = -0.03109*t19*(-0.2766728*t26*t22+0.46617488*
999         t21*t24*t25-0.157968896*t20*t35*t167+0.0151601664*t34*t179*
1000         t252)*t28*rhoa-0.75*(3.8272e-4*t32*t22+3.305056e-4*t21*t31*
1001         t25-4.03342592e-6*t20*t45*t167+1.082112e-8*t34*t189*t252)*
1002         t29*t3*t41+(0.00843756*t22*t53-5.863485599999999e-4*t22*t49*
1003         t52-6.369739199999999e-4*t21*t25*t52+3.2143392e-6*t22*t50*
1004         t123+1.346486112e-5*t21*t25*t49*t123-5.785810560000001e-8*
1005         t21*t25*t50*t233)*t133;
1006     d2fdgagb = (-6.369739199999999e-4*grada*gradb*t22*t52*
1007         t48+1.346486112e-5*grada*gradb*t22*t49*t123*t48-5.785810560000001e-8*
1008         grada*gradb*t22*t50*t233*t48)*t133;
1009     d2fdgagab = 0.0;
1010     d2fdgbgb = -0.03109*t131*(-0.2766728*t138*t48+0.46617488*
1011         t47*t136*t137-0.157968896*t134*t145*t173+0.0151601664*t144*
1012         t238*t253)*t132*rhob-0.75*t151*t29*t3*(3.8272e-4*t142*t48+
1013         3.305056e-4*t47*t141*t137-4.03342592e-6*t134*t155*t173+1.082112e-8*
1014         t144*t248*t253)+(0.00843756*t53*t48-5.863485599999999e-4*t49*
1015         t52*t48+3.2143392e-6*t50*t123*t48-6.369739199999999e-4*t47*
1016         t52*t137+1.346486112e-5*t47*t49*t123*t137-5.785810560000001e-8*
1017         t47*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_2_third(FunThirdFuncDrv * ds,real factor,const FunDensProp * dp)1047 b97_2_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.1383364*t21*t26*t22+0.01579184*t20*t24*t25+0.585808;
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 = 1.9136e-4*t21*t32*t22+2.817999999999999e-5*t20*
1163         t31*t25+0.827642;
1164     t34 = pow(grada,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 = .3688970666666667*t21*t26*t38-0.15800256*t20*t24*
1170         t37+.0168446293333333*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 = -5.102933333333334e-4*t21*t32*t38-1.4825216e-4*
1181         t20*t31*t37+6.011733333333333e-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.00843756*t50*t54-2.678616e-4*t51*t53+0.999849;
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.01125008*t21*t38*t54+7.8179808e-4*t21*t38*t50*
1276         t53-4.2857856e-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.1383364*t48*t139*t49+0.01579184*t135*t137*t138+
1295         0.585808;
1296     t141 = 0.004*t48*t49+1.0;
1297     t142 = 1/pow(t141,2.0);
1298     t143 = 1/t141;
1299     t144 = 1.9136e-4*t48*t143*t49+2.817999999999999e-5*t135*
1300         t142*t138+0.827642;
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 = .3688970666666667*t48*t139*t149-0.15800256*t135*
1307         t137*t148+.0168446293333333*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 = -5.102933333333334e-4*t48*t143*t149-1.4825216e-4*
1318         t135*t142*t148+6.011733333333333e-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.01125008*t48*t54*t149+7.8179808e-4*t48*t50*
1332         t53*t149-4.2857856e-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 = -0.2766728*grada*t26*t22+0.11850192*t170*t24*t25-
1337         0.012633472*t168*t35*t169;
1338     t172 = 3.8272e-4*grada*t32*t22+1.1118912e-4*t170*t31*
1339         t25-4.5088e-7*t168*t46*t169;
1340     t173 = 0.00843756*grada*t22*t54-5.863485599999999e-4*
1341         grada*t22*t50*t53+3.2143392e-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 = -0.2766728*gradb*t139*t49+0.11850192*t176*t137*
1346         t138-0.012633472*t174*t146*t175;
1347     t178 = 3.8272e-4*gradb*t143*t49+1.1118912e-4*t176*t142*
1348         t138-4.5088e-7*t174*t157*t175;
1349     t179 = 0.00843756*gradb*t54*t49-5.863485599999999e-4*
1350         gradb*t50*t53*t49+3.2143392e-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 = -1.352622577777778*t21*t26*t185+1.197427982222222*
1358         t20*t24*t184-0.320137728*t34*t35*t183+.0269514069333333*t180*
1359         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 = .0018710755555556*t21*t32*t185+9.334872177777777e-4*
1370         t20*t31*t184-8.573272746666667e-6*t34*t46*t183+1.923754666666667e-8*
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 = .0412502933333333*t21*t185*t54-0.00286659296*t21*
1473         t185*t50*t53-0.00113239808*t20*t184*t53+1.57145472e-5*t21*
1474         t185*t51*t124+2.393753088e-5*t20*t184*t50*t124-1.028588544e-7*
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 = -0.00113239808*t21*t48*t38*t53*t149+2.393753088e-5*
1496         t21*t48*t38*t50*t124*t149-1.028588544e-7*t21*t48*t38*t51*t265*
1497         t149;
1498     t272 = pow(grada,7.0);
1499     t273 = 1/pow(rhoa,11.66666666666667);
1500     t274 = .7377941333333333*grada*t26*t38-.7795690666666667*
1501         t170*t24*t37+0.227469824*t168*t35*t36-0.0202135552*t272*t181*
1502         t273;
1503     t275 = -.0010205866666667*grada*t32*t38-5.889262933333332e-4*
1504         t170*t31*t37+5.979074559999998e-6*t168*t46*t36-1.442816e-8*
1505         t272*t193*t273;
1506     t276 = -0.02250016*grada*t38*t54+0.00156359616*grada*
1507         t38*t50*t53+8.492985599999999e-4*t170*t37*t53-8.5715712e-6*
1508         grada*t38*t51*t124-1.795314816e-5*t170*t37*t50*t124+7.714414080000002e-8*
1509         t170*t37*t51*t265;
1510     t277 = 8.492985599999999e-4*t21*gradb*t38*t53*t49-1.795314816e-5*
1511         t21*gradb*t38*t50*t124*t49+7.714414080000002e-8*t21*gradb*
1512         t38*t51*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 = -1.352622577777778*t48*t139*t283+1.197427982222222*
1520         t135*t137*t282-0.320137728*t145*t146*t281+.0269514069333333*
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 = .0018710755555556*t48*t143*t283+9.334872177777777e-4*
1532         t135*t142*t282-8.573272746666667e-6*t145*t157*t281+1.923754666666667e-8*
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 = .0412502933333333*t48*t54*t283-0.00286659296*t48*
1568         t50*t53*t283+1.57145472e-5*t48*t51*t124*t283-0.00113239808*
1569         t135*t53*t282+2.393753088e-5*t135*t50*t124*t282-1.028588544e-7*
1570         t135*t51*t265*t282;
1571     t313 = 8.492985599999999e-4*grada*t48*t22*t53*t149-1.795314816e-5*
1572         grada*t48*t22*t50*t124*t149+7.714414080000002e-8*grada*t48*
1573         t22*t51*t265*t149;
1574     t314 = pow(gradb,7.0);
1575     t315 = 1/pow(rhob,11.66666666666667);
1576     t316 = .7377941333333333*gradb*t139*t149-.7795690666666667*
1577         t176*t137*t148+0.227469824*t174*t146*t147-0.0202135552*t314*
1578         t279*t315;
1579     t317 = -.0010205866666667*gradb*t143*t149-5.889262933333332e-4*
1580         t176*t142*t148+5.979074559999998e-6*t174*t157*t147-1.442816e-8*
1581         t314*t291*t315;
1582     t318 = -0.02250016*gradb*t54*t149+0.00156359616*gradb*
1583         t50*t53*t149-8.5715712e-6*gradb*t51*t124*t149+8.492985599999999e-4*
1584         t176*t53*t148-1.795314816e-5*t176*t50*t124*t148+7.714414080000002e-8*
1585         t176*t51*t265*t148;
1586     t319 = 1/pow(rhoa,10.66666666666667);
1587     t320 = -0.2766728*t26*t22+0.46617488*t21*t24*t25-0.157968896*
1588         t20*t35*t169+0.0151601664*t34*t181*t319;
1589     t321 = 3.8272e-4*t32*t22+3.305056e-4*t21*t31*t25-4.03342592e-6*
1590         t20*t46*t169+1.082112e-8*t34*t193*t319;
1591     t322 = 0.00843756*t22*t54-5.863485599999999e-4*t22*t50*
1592         t53-6.369739199999999e-4*t21*t25*t53+3.2143392e-6*t22*t51*
1593         t124+1.346486112e-5*t21*t25*t50*t124-5.785810560000001e-8*
1594         t21*t25*t51*t265;
1595     t323 = -6.369739199999999e-4*grada*gradb*t22*t53*t49+
1596         1.346486112e-5*grada*gradb*t22*t50*t124*t49-5.785810560000001e-8*
1597         grada*gradb*t22*t51*t265*t49;
1598     t324 = 1/pow(rhob,10.66666666666667);
1599     t325 = -0.2766728*t139*t49+0.46617488*t48*t137*t138-0.157968896*
1600         t135*t146*t175+0.0151601664*t145*t279*t324;
1601     t326 = 3.8272e-4*t143*t49+3.305056e-4*t48*t142*t138-4.03342592e-6*
1602         t135*t157*t175+1.082112e-8*t145*t291*t324;
1603     t327 = 0.00843756*t54*t49-5.863485599999999e-4*t50*t53*
1604         t49+3.2143392e-6*t51*t124*t49-6.369739199999999e-4*t48*t53*
1605         t138+1.346486112e-5*t48*t50*t124*t138-5.785810560000001e-8*
1606         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*(6.312238696296296*t21*t26*t334-9.502537244444445*t20*
1891         t24*t333+4.47863379437037*t34*t35*t332-.8536048526222222*t180*
1892         t181*t331+.0574963347911111*t328*t329*t330)*t28*rhoa+96.4940495336121*
1893         t187*t27*t192*t44*t28*t189*rhoa+96.4940495336121*t187*t39*
1894         t188*t28*t189*rhoa-1.0*t29*t3*t47*t7+3.0*t192*t27*t28*t40*
1895         t45+6.0*t40*t39*t44*t28*t45-.1369866666666666*t1*t2*t3*t40*
1896         t27*t44*t45*t43+.0042589154666667*t1*t2*t3*t19*t39*t43-0.75*
1897         t29*t3*(-.0087316859259259*t21*t32*t334-.0068256147911111*
1898         t20*t31*t333+1.056471214459259e-4*t34*t46*t332-5.180203190044445e-7*
1899         t180*t193*t331+8.20801991111111e-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         (-.1925013688888889*t21*t334*t54+.0133774338133333*t21*t334*
1904         t50*t53+0.01245637888*t20*t333*t53-7.333455360000001e-5*t21*
1905         t334*t51*t124-2.6331283968e-4*t20*t333*t50*t124-5.003507711999999e-5*
1906         t34*t332*t124+1.1314473984e-6*t20*t333*t51*t265+8.487910195200001e-7*
1907         t34*t332*t50*t265-3.2914833408e-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+(.0041521262933333*t21*t48*t185*t53*t149-8.777094656e-5*
1957         t21*t48*t185*t50*t124*t149-5.003507711999999e-5*t20*t48*t184*
1958         t124*t149+3.771491328e-7*t21*t48*t185*t51*t265*t149+8.487910195200001e-7*
1959         t20*t48*t184*t50*t265*t149-3.2914833408e-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*(-
1963         2.705245155555555*grada*t26*t185+5.33076096*t170*t24*t184-
1964         2.878768753777778*t168*t35*t183+.5997765290666668*t272*t181*
1965         t182-.0431222510933333*t428*t329*t429)*t28*rhoa+32.1646831778707*
1966         t187*t171*t188*t28*t189*rhoa-.3333333333333333*t172*t29*t3*
1967         t7+2.0*t171*t28*t40*t44*t45+.0014196384888889*t1*t2*t3*t19*
1968         t171*t43-0.75*(.0037421511111111*grada*t32*t185+.0037189802666667*
1969         t170*t31*t184-6.637543196444444e-5*t168*t46*t183+3.596589192533334e-7*
1970         t272*t193*t182-6.15601493333333e-10*t428*t340*t429)*t29*t3*
1971         t42-2.0*t11*t275*t29*t3-0.06218*t19*t274*t28+2.0*t123*t276+
1972         t173*t264+(.0825005866666667*grada*t185*t54-0.00573318592*
1973         grada*t185*t50*t53-0.00764368704*t170*t184*t53+3.14290944e-5*
1974         grada*t185*t51*t124+1.6157833344e-4*t170*t184*t50*t124+3.752630784e-5*
1975         t168*t183*t124-6.942972672e-7*t170*t184*t51*t265-6.365932646400001e-7*
1976         t168*t183*t50*t265+2.4686125056e-9*t168*t183*t51*t406)*t134-
1977         .1369866666666666*t1*t2*t3*t40*t171*t44*t45*t12+.0042589154666667*
1978         t1*t2*t3*t19*t274*t12;
1979     d3fdraragb = 2.0*t123*t277+t179*t264+(-0.00311409472*
1980         t21*gradb*t185*t53*t49+6.582820991999998e-5*t21*gradb*t185*
1981         t50*t124*t49+3.752630784e-5*t20*gradb*t184*t124*t49-2.828618496e-7*
1982         t21*gradb*t185*t51*t265*t49-6.365932646400001e-7*t20*gradb*
1983         t184*t50*t265*t49+2.4686125056e-9*t20*gradb*t184*t51*t406*
1984         t49)*t134;
1985     d3fdraraab = 0.0;
1986     d3fdrarbrb = t55*(t56*(.0867486470622522*t67*t1*t2*t3*
1987         t89*t163*t95*t96*t76*t97+.0433743235311261*t67*t1*t2*t3*t89*
1988         t114*t95*t96*t76*t97-.5848223397455204*t67*t304*t95*t72*t96*
1989         t76*t97-1.169644679491041*t67*t163*t222*t72*t96*t76*t97-.5848223397455204*
1990         t67*t114*t222*t72*t96*t76*t97+2.339289358982082*t67*t163*t214*
1991         t72*t219*t76*t97+1.169644679491041*t67*t114*t214*t72*t219*
1992         t76*t97-.5848223397455204*t67*t71*t95*t72*t96*t299*t97+.0867486470622522*
1993         t67*t1*t2*t3*t89*t71*t95*t96*t161*t97-1.169644679491041*t67*
1994         t163*t95*t72*t96*t161*t97-1.169644679491041*t67*t71*t222*t72*
1995         t96*t161*t97+2.339289358982082*t67*t71*t214*t72*t219*t161*
1996         t97+.0433743235311261*t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-
1997         .5848223397455204*t67*t71*t222*t72*t96*t108*t97+1.169644679491041*
1998         t67*t71*t214*t72*t219*t108*t97-80.0*t113*t243*t67*t76*t85+
1999         4.0*t113*t299*t67*t70*t85-8.0*t113*t267*t67*t70*t85-24.0*t161*
2000         t245*t67*t70*t85+12.0*t108*t245*t67*t70*t85-4.0*t111*t299*
2001         t67*t69*t85+40.0*t161*t243*t67*t69*t85+20.0*t108*t243*t67*
2002         t69*t85+32.0*t108*t111*t113*t67*t85+t67*t69*t70*t430*t85+.0197517897025652*
2003         (t421+t397+t395+80.0*t113*t243)*t67*t72*t76*t79-7.324622014701263e-4*
2004         t67*t1*t2*t3*t89*t304*t76*t79+.0019532325372537*t67*t1*t2*
2005         t3*t210*t163*t76*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
2006         t114*t76*t79+.0197517897025652*t67*t71*t72*t430*t79+.0197517897025652*
2007         t67*t114*t72*t299*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*
2008         t71*t299*t79+.0395035794051304*t67*t163*t72*t267*t79+.0395035794051304*
2009         t67*t268*t72*t161*t79+.0019532325372537*t67*t1*t2*t3*t210*
2010         t71*t161*t79-.0014649244029403*t67*t1*t2*t3*t89*t163*t161*
2011         t79+.0197517897025652*t67*t304*t72*t108*t79+9.766162686268349e-4*
2012         t67*t1*t2*t3*t210*t71*t108*t79-4.0*t113*t254*t67*t70*t76+32.0*
2013         t111*t113*t119*t67*t76+2.0*t161*t254*t67*t69*t70-8.0*t108*
2014         t113*t119*t67*t70-16.0*t111*t119*t161*t67*t69-8.0*t108*t111*
2015         t119*t67*t69+t426+t425+t424+t423+t420+t419+t418+t416+t415+
2016         t414+t413+t412+t405+t403+t401+t400+t399+t393+t385+t384+t383+
2017         t382+t381+t380+t379+t378+t377+t376+t375+t373+t367+t366+t365+
2018         t364+t363+t362+t361+t360+t358+t67*t69*t70*t108*t254-34.63151179875173*
2019         t67*t163*t214*t72*t215*t76*t216-17.31575589937587*t67*t114*
2020         t214*t72*t215*t76*t216-34.63151179875173*t67*t71*t214*t72*
2021         t215*t161*t216-17.31575589937587*t67*t71*t214*t72*t215*t108*
2022         t216+t67*t69*t70*t299*t119)-2.339289358982082*t67*t163*t95*
2023         t72*t96*t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t161*
2024         t97-8.0*t108*t113*t67*t70*t85-16.0*t111*t161*t67*t69*t85-.0029298488058805*
2025         t67*t1*t2*t3*t89*t163*t76*t79-.0029298488058805*t67*t1*t2*
2026         t3*t89*t71*t161*t79+4.0*t119*t161*t67*t69*t70+t411+t410+t409+
2027         t408+t407+t353+t352+t351+t350+t349+t348+t347+t346+t345+t344+
2028         t343+t342+t341+t310+t308+t307+t305+t302+t300+t269+t260+t256+
2029         t241+t239+t224+t218)+t125*t311+2.0*t166*t271+2.0*t167*t270+
2030         (.0041521262933333*t21*t48*t38*t53*t283-8.777094656000001e-5*
2031         t21*t48*t38*t50*t124*t283+3.771491328e-7*t21*t48*t38*t51*t265*
2032         t283-5.003507711999999e-5*t21*t135*t38*t124*t282+8.487910195200001e-7*
2033         t21*t135*t38*t50*t265*t282-3.2914833408e-9*t21*t135*t38*t51*
2034         t406*t282)*t134+t312*t123;
2035     d3fdrarbga = (-0.00226479616*grada*t48*t38*t53*t149+4.787506176e-5*
2036         grada*t48*t38*t50*t124*t149+3.752630784e-5*t170*t48*t37*t124*
2037         t149-2.057177088e-7*grada*t48*t38*t51*t265*t149-6.365932646400001e-7*
2038         t170*t48*t37*t50*t265*t149+2.4686125056e-9*t170*t48*t37*t51*
2039         t406*t149)*t134+t313*t123+t276*t166+t173*t270;
2040     d3fdrarbgb = (-0.00226479616*t21*gradb*t38*t53*t149+4.787506176e-5*
2041         t21*gradb*t38*t50*t124*t149-2.057177088e-7*t21*gradb*t38*t51*
2042         t265*t149+3.752630784e-5*t21*t176*t38*t124*t148-6.365932646400001e-7*
2043         t21*t176*t38*t50*t265*t148+2.4686125056e-9*t21*t176*t38*t51*
2044         t406*t148)*t134+t318*t123+t277*t166+t179*t270;
2045     d3fdrarbab = 0.0;
2046     d3fdragaga = t40*t320*t44*t28*t45*rhoa-0.03109*t19*(.7377941333333333*
2047         t26*t38-2.633824853333333*t21*t24*t37+1.761004373333333*t20*
2048         t35*t36-.4144586752000001*t34*t181*t273+0.03234168832*t180*
2049         t329*t431)*t28*rhoa-0.75*t29*t3*(-.0010205866666667*t32*t38-
2050         .0017586141866667*t21*t31*t37+3.931819349333333e-5*t20*t46*
2051         t36-2.4449490944e-7*t34*t193*t273+4.6170112e-10*t180*t340*
2052         t431)*t42-1.0*t11*t29*t3*t321-0.03109*t19*t320*t28+(-0.02250016*
2053         t38*t54+0.00156359616*t38*t50*t53+0.0042464928*t21*t37*t53-
2054         8.5715712e-6*t38*t51*t124-8.976574079999999e-5*t21*t37*t50*
2055         t124-2.814473087999999e-5*t20*t36*t124+3.85720704e-7*t21*t37*
2056         t51*t265+4.774449484800001e-7*t20*t36*t50*t265-1.8514593792e-9*
2057         t20*t36*t51*t406)*t134+t322*t123+.0021294577333333*t1*t2*t3*
2058         t19*t320*t12;
2059     d3fdragagb = (0.00169859712*grada*gradb*t38*t53*t49-3.590629632e-5*
2060         grada*gradb*t38*t50*t124*t49-2.814473087999999e-5*t170*gradb*
2061         t37*t124*t49+1.542882816e-7*grada*gradb*t38*t51*t265*t49+4.774449484800001e-7*
2062         t170*gradb*t37*t50*t265*t49-1.8514593792e-9*t170*gradb*t37*
2063         t51*t406*t49)*t134+t323*t123;
2064     d3fdragaab = 0.0;
2065     d3fdragbgb = (8.492985599999999e-4*t21*t38*t53*t49-1.795314816e-5*
2066         t21*t38*t50*t124*t49+7.714414080000002e-8*t21*t38*t51*t265*
2067         t49-2.814473087999999e-5*t21*t48*t38*t124*t138+4.774449484800001e-7*
2068         t21*t48*t38*t50*t265*t138-1.8514593792e-9*t21*t48*t38*t51*
2069         t406*t138)*t134+t327*t123;
2070     d3fdragbab = 0.0;
2071     d3fdraabab = 0.0;
2072     d3fdrbrbrb = t55*(192.9880990672242*t285*t440*t133*t442*
2073         rhob-2069.133687865597*t439*t440*t133*t441*rhob+6.0*t151*t290*
2074         t155*t133*t288*rhob-6.0*t151*t440*t133*t287*rhob-96.4940495336121*
2075         t285*t290*t155*t133*t287*rhob-1.0*t151*t443*t133*t156*rhob+
2076         t56*(.1301229705933783*t67*t1*t2*t3*t89*t163*t95*t96*t76*t97-
2077         1.754467019236561*t67*t304*t95*t72*t96*t76*t97-1.754467019236561*
2078         t67*t163*t222*t72*t96*t76*t97+3.508934038473122*t67*t163*t214*
2079         t72*t219*t76*t97-1.754467019236561*t67*t71*t95*t72*t96*t299*
2080         t97+.1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*t161*t97-
2081         3.508934038473122*t67*t163*t95*t72*t96*t161*t97-1.754467019236561*
2082         t67*t71*t222*t72*t96*t161*t97+3.508934038473122*t67*t71*t214*
2083         t72*t219*t161*t97-240.0*t113*t243*t67*t76*t85-12.0*t113*t299*
2084         t67*t70*t85+36.0*t161*t245*t67*t70*t85-12.0*t111*t299*t67*
2085         t69*t85+60.0*t161*t243*t67*t69*t85+96.0*t111*t113*t161*t67*
2086         t85+t67*t69*t70*t445*t85+.0197517897025652*(t422+t396+t395+
2087         240.0*t113*t243)*t67*t72*t76*t79-.0021973866044104*t67*t1*
2088         t2*t3*t89*t304*t76*t79+.0029298488058805*t67*t1*t2*t3*t210*
2089         t163*t76*t79+.0197517897025652*t67*t71*t72*t445*t79+.0592553691076956*
2090         t67*t163*t72*t299*t79-.0021973866044104*t67*t1*t2*t3*t89*t71*
2091         t299*t79+.0592553691076956*t67*t304*t72*t161*t79+.0029298488058805*
2092         t67*t1*t2*t3*t210*t71*t161*t79-.0043947732088208*t67*t1*t2*
2093         t3*t89*t163*t161*t79-12.0*t113*t254*t67*t70*t76+96.0*t111*
2094         t113*t119*t67*t76+3.0*t119*t299*t67*t69*t70+3.0*t161*t254*
2095         t67*t69*t70-24.0*t113*t119*t161*t67*t70-24.0*t111*t119*t161*
2096         t67*t69+t427+t404+t403+t402+t401+t400+t399+t393+t385+t384+
2097         t383+t382+t381+t380+t379+t378+t377+t376+t375+t373+t367+t366+
2098         t365+t364+t363+t362+t361+t360+t358-51.9472676981276*t67*t163*
2099         t214*t72*t215*t76*t216-51.9472676981276*t67*t71*t214*t72*t215*
2100         t161*t216)-3.508934038473122*t67*t163*t95*t72*t96*t76*t97-
2101         3.508934038473122*t67*t71*t95*t72*t96*t161*t97+96.0*t111*t113*
2102         t67*t76*t85+3.0*t299*t67*t69*t70*t85-24.0*t113*t161*t67*t70*
2103         t85-24.0*t111*t161*t67*t69*t85+.0592553691076956*t67*t304*
2104         t72*t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t163*t76*t79+
2105         .0592553691076956*t67*t71*t72*t299*t79+.1185107382153912*t67*
2106         t163*t72*t161*t79-.0043947732088208*t67*t1*t2*t3*t89*t71*t161*
2107         t79-24.0*t113*t119*t67*t70*t76+6.0*t119*t161*t67*t69*t70+t354+
2108         t353+t352+t351+t350+t349+t348+t347+t346+t345+t344+t343+t342+
2109         t341+.0018928513185185*t1*t2*t3*t132*t289+6.0*t151*t286*t133*
2110         t288-96.4940495336121*t285*t286*t133*t287-3.0*t151*t290*t133*
2111         t156+.1369866666666666*t1*t2*t3*t151*t155*t156*t154-.4109599999999999*
2112         t1*t2*t3*t151*t286*t288*t129+6.60919909938887*t1*t2*t3*t285*
2113         t286*t287*t129+0.20548*t1*t2*t3*t151*t290*t156*t129)-192.9880990672242*
2114         t285*t140*t440*t133*t442*rhob+2069.133687865597*t439*t140*
2115         t440*t133*t441*rhob+6.0*t133*t140*t151*t287*t440*rhob-6.0*
2116         t133*t140*t151*t155*t288*t290*rhob+3.0*t133*t150*t151*t156*
2117         t290*rhob-6.0*t133*t150*t151*t286*t288*rhob+96.4940495336121*
2118         t285*t150*t286*t133*t287*rhob+96.4940495336121*t285*t140*t290*
2119         t155*t133*t287*rhob+3.0*t133*t151*t155*t156*t284*rhob+t151*
2120         t443*t140*t133*t156*rhob-0.03109*t132*(6.312238696296296*t48*
2121         t139*t438-9.502537244444445*t135*t137*t437+4.47863379437037*
2122         t145*t146*t436-.8536048526222222*t278*t279*t435+.0574963347911111*
2123         t432*t433*t434)*t133*rhob-0.75*t153*t29*t3*(-.0087316859259259*
2124         t48*t143*t438-.0068256147911111*t135*t142*t437+1.056471214459259e-4*
2125         t145*t157*t436-5.180203190044445e-7*t278*t291*t435+8.20801991111111e-10*
2126         t432*t444*t434)+3.0*t166*t312+3.0*t167*t311-3.0*t128*t29*t292*
2127         t3-1.0*t126*t158*t29*t3+.2222222222222222*t144*t152*t29*t3+
2128         3.0*t133*t140*t151*t156*t290-.0018928513185185*t1*t2*t3*t132*
2129         t140*t289-6.0*t133*t140*t151*t286*t288+96.4940495336121*t285*
2130         t140*t286*t133*t287+6.0*t151*t150*t155*t133*t156-.1369866666666666*
2131         t1*t2*t3*t151*t140*t155*t156*t154+.0042589154666667*t1*t2*
2132         t3*t132*t150*t154+(-.1925013688888889*t48*t54*t438+.0133774338133333*
2133         t48*t50*t53*t438-7.333455360000001e-5*t48*t51*t124*t438+0.01245637888*
2134         t135*t53*t437-2.6331283968e-4*t135*t50*t124*t437+1.1314473984e-6*
2135         t135*t51*t265*t437-5.003507711999999e-5*t145*t124*t436+8.487910195200001e-7*
2136         t145*t50*t265*t436-3.2914833408e-9*t145*t51*t406*t436)*t134-
2137         0.09327*t132*t284*t133+.4109599999999999*t1*t2*t3*t151*t140*
2138         t286*t288*t129-6.60919909938887*t1*t2*t3*t285*t140*t286*t287*
2139         t129+0.0063883732*t1*t2*t3*t132*t284*t129-0.20548*t1*t2*t3*
2140         t151*t140*t290*t156*t129-.4109599999999999*t1*t2*t3*t151*t150*
2141         t155*t156*t129;
2142     d3fdrbrbga = 2.0*t166*t313+t173*t311+(-0.00311409472*
2143         grada*t48*t22*t53*t283+6.582820991999998e-5*grada*t48*t22*
2144         t50*t124*t283-2.828618496e-7*grada*t48*t22*t51*t265*t283+3.752630784e-5*
2145         grada*t135*t22*t124*t282-6.365932646400001e-7*grada*t135*t22*
2146         t50*t265*t282+2.4686125056e-9*grada*t135*t22*t51*t406*t282)*
2147         t134;
2148     d3fdrbrbgb = 2.0*t133*t151*t155*t156*t316*rhob-2.0*t133*
2149         t151*t177*t286*t288*rhob+32.1646831778707*t285*t177*t286*t133*
2150         t287*rhob+t151*t177*t290*t133*t156*rhob-0.03109*t132*(-2.705245155555555*
2151         gradb*t139*t283+5.33076096*t176*t137*t282-2.878768753777778*
2152         t174*t146*t281+.5997765290666668*t314*t279*t280-.0431222510933333*
2153         t446*t433*t447)*t133*rhob+2.0*t166*t318-2.0*t128*t29*t3*t317+
2154         t179*t311-0.75*t153*(.0037421511111111*gradb*t143*t283+.0037189802666667*
2155         t176*t142*t282-6.637543196444444e-5*t174*t157*t281+3.596589192533334e-7*
2156         t314*t291*t280-6.15601493333333e-10*t446*t444*t447)*t29*t3-
2157         .3333333333333333*t126*t178*t29*t3+2.0*t133*t151*t155*t156*
2158         t177+.0014196384888889*t1*t2*t3*t132*t177*t154+(.0825005866666667*
2159         gradb*t54*t283-0.00573318592*gradb*t50*t53*t283+3.14290944e-5*
2160         gradb*t51*t124*t283-0.00764368704*t176*t53*t282+1.6157833344e-4*
2161         t176*t50*t124*t282-6.942972672e-7*t176*t51*t265*t282+3.752630784e-5*
2162         t174*t124*t281-6.365932646400001e-7*t174*t50*t265*t281+2.4686125056e-9*
2163         t174*t51*t406*t281)*t134-0.06218*t132*t316*t133+.0042589154666667*
2164         t1*t2*t3*t132*t316*t129-.1369866666666666*t1*t2*t3*t151*t177*
2165         t155*t156*t129;
2166     d3fdrbrbab = 0.0;
2167     d3fdrbgaga = (8.492985599999999e-4*t48*t22*t53*t149-1.795314816e-5*
2168         t48*t22*t50*t124*t149-2.814473087999999e-5*t21*t48*t25*t124*
2169         t149+7.714414080000002e-8*t48*t22*t51*t265*t149+4.774449484800001e-7*
2170         t21*t48*t25*t50*t265*t149-1.8514593792e-9*t21*t48*t25*t51*
2171         t406*t149)*t134+t322*t166;
2172     d3fdrbgagb = (0.00169859712*grada*gradb*t22*t53*t149-
2173         3.590629632e-5*grada*gradb*t22*t50*t124*t149+1.542882816e-7*
2174         grada*gradb*t22*t51*t265*t149-2.814473087999999e-5*grada*t176*
2175         t22*t124*t148+4.774449484800001e-7*grada*t176*t22*t50*t265*
2176         t148-1.8514593792e-9*grada*t176*t22*t51*t406*t148)*t134+t323*
2177         t166;
2178     d3fdrbgaab = 0.0;
2179     d3fdrbgbgb = t151*t325*t155*t133*t156*rhob-0.03109*t132*
2180         (.7377941333333333*t139*t149-2.633824853333333*t48*t137*t148+
2181         1.761004373333333*t135*t146*t147-.4144586752000001*t145*t279*
2182         t315+0.03234168832*t278*t433*t448)*t133*rhob-1.0*t128*t29*
2183         t3*t326-0.75*(-.0010205866666667*t143*t149-.0017586141866667*
2184         t48*t142*t148+3.931819349333333e-5*t135*t157*t147-2.4449490944e-7*
2185         t145*t291*t315+4.6170112e-10*t278*t444*t448)*t153*t29*t3+t327*
2186         t166+(-0.02250016*t54*t149+0.00156359616*t50*t53*t149-8.5715712e-6*
2187         t51*t124*t149+0.0042464928*t48*t53*t148-8.976574079999999e-5*
2188         t48*t50*t124*t148+3.85720704e-7*t48*t51*t265*t148-2.814473087999999e-5*
2189         t135*t124*t147+4.774449484800001e-7*t135*t50*t265*t147-1.8514593792e-9*
2190         t135*t51*t406*t147)*t134-0.03109*t132*t325*t133+.0021294577333333*
2191         t1*t2*t3*t132*t325*t129;
2192     d3fdrbgbab = 0.0;
2193     d3fdrbabab = 0.0;
2194     d3fdgagaga = -0.03109*t19*(1.04301888*grada*t24*t25-1.004815488*
2195         t170*t35*t169+.2805236736000001*t168*t181*t319-0.02425626624*
2196         t272*t329*t449)*t28*rhoa-0.75*(6.5794944e-4*grada*t31*t25-
2197         2.142179328e-5*t170*t46*t169+1.6172894208e-7*t168*t193*t319-
2198         3.4627584e-10*t272*t340*t449)*t29*t3*t42+(-0.00191092176*grada*
2199         t25*t53+4.039458336e-5*grada*t25*t50*t124+2.110854816e-5*t170*
2200         t169*t124-1.735743168e-7*grada*t25*t51*t265-3.580837113599999e-7*
2201         t170*t169*t50*t265+1.3885945344e-9*t170*t169*t51*t406)*t134;
2202     d3fdgagagb = (-
2203         6.369739199999999e-4*gradb*t22*t53*t49+1.346486112e-5*gradb*
2204         t22*t50*t124*t49+2.110854816e-5*t21*gradb*t25*t124*t49-5.785810560000001e-8*
2205         gradb*t22*t51*t265*t49-3.580837113599999e-7*t21*gradb*t25*
2206         t50*t265*t49+1.3885945344e-9*t21*gradb*t25*t51*t406*t49)*t134;
2207     d3fdgagaab = 0.0;
2208     d3fdgagbgb = (-
2209         6.369739199999999e-4*grada*t22*t53*t49+1.346486112e-5*grada*
2210         t22*t50*t124*t49-5.785810560000001e-8*grada*t22*t51*t265*t49+
2211         2.110854816e-5*grada*t48*t22*t124*t138-3.580837113599999e-7*
2212         grada*t48*t22*t50*t265*t138+1.3885945344e-9*grada*t48*t22*
2213         t51*t406*t138)*t134;
2214     d3fdgagbab = 0.0;
2215     d3fdgaabab = 0.0;
2216     d3fdgbgbgb = -0.03109*t132*(1.04301888*gradb*t137*t138-
2217         1.004815488*t176*t146*t175+.2805236736000001*t174*t279*t324-
2218         0.02425626624*t314*t433*t450)*t133*rhob-0.75*(6.5794944e-4*
2219         gradb*t142*t138-2.142179328e-5*t176*t157*t175+1.6172894208e-7*
2220         t174*t291*t324-3.4627584e-10*t314*t444*t450)*t153*t29*t3+(-
2221         0.00191092176*gradb*t53*t138+4.039458336e-5*gradb*t50*t124*
2222         t138-1.735743168e-7*gradb*t51*t265*t138+2.110854816e-5*t176*
2223         t124*t175-3.580837113599999e-7*t176*t50*t265*t175+1.3885945344e-9*
2224         t176*t51*t406*t175)*t134;
2225     d3fdgbgbab = 0.0;
2226     d3fdgbabab = 0.0;
2227     d3fdababab = 0.0;
2228 
2229 
2230     ds->df1000 += factor*dfdra;
2231     ds->df0100 += factor*dfdrb;
2232     ds->df0010 += factor*dfdga;
2233     ds->df0001 += factor*dfdgb;
2234     ds->df00001+= factor*dfdgab;
2235 
2236     ds->df2000 += factor*d2fdrara;
2237     ds->df1100 += factor*d2fdrarb;
2238     ds->df1010 += factor*d2fdraga;
2239     ds->df1001 += factor*d2fdragb;
2240     ds->df10001+= factor*d2fdraab;
2241     ds->df0200 += factor*d2fdrbrb;
2242     ds->df0110 += factor*d2fdrbga;
2243     ds->df0101 += factor*d2fdrbgb;
2244     ds->df01001+= factor*d2fdrbgab;
2245     ds->df0020 += factor*d2fdgaga;
2246     ds->df0011 += factor*d2fdgagb;
2247     ds->df00101+= factor*d2fdgagab;
2248     ds->df0002 += factor*d2fdgbgb;
2249     ds->df00011+= factor*d2fdgbgab;
2250     ds->df00002+= factor*d2fdgabgab;
2251 
2252     ds->df3000 += factor*d3fdrarara;
2253     ds->df2100  += factor*d3fdrararb;
2254     ds->df2010  += factor*d3fdraraga;
2255     ds->df2001  += factor*d3fdraragb;
2256     ds->df20001 += factor*d3fdraraab;
2257     ds->df1200  += factor*d3fdrarbrb;
2258     ds->df1110  += factor*d3fdrarbga;
2259     ds->df1101  += factor*d3fdrarbgb;
2260     ds->df11001 += factor*d3fdrarbab;
2261     ds->df1020  += factor*d3fdragaga;
2262     ds->df1011  += factor*d3fdragagb;
2263     ds->df10101 += factor*d3fdragaab;
2264     ds->df1002  += factor*d3fdragbgb;
2265     ds->df10011 += factor*d3fdragbab;
2266     ds->df10002 += factor*d3fdraabab;
2267     ds->df0300  += factor*d3fdrbrbrb;
2268     ds->df0210  += factor*d3fdrbrbga;
2269     ds->df0201  += factor*d3fdrbrbgb;
2270     ds->df02001 += factor*d3fdrbrbab;
2271     ds->df0120  += factor*d3fdrbgaga;
2272     ds->df0111  += factor*d3fdrbgagb;
2273     ds->df01101 += factor*d3fdrbgaab;
2274     ds->df0102  += factor*d3fdrbgbgb;
2275     ds->df01011 += factor*d3fdrbgbab;
2276     ds->df01002 += factor*d3fdrbabab;
2277     ds->df0030  += factor*d3fdgagaga;
2278     ds->df0021  += factor*d3fdgagagb;
2279     ds->df00201 += factor*d3fdgagaab;
2280     ds->df0012  += factor*d3fdgagbgb;
2281     ds->df00111 += factor*d3fdgagbab;
2282     ds->df00102 += factor*d3fdgaabab;
2283     ds->df0003  += factor*d3fdgbgbgb;
2284     ds->df00021 += factor*d3fdgbgbab;
2285     ds->df00012 += factor*d3fdgbabab;
2286     ds->df00003 += factor*d3fdababab;
2287 
2288 }
2289 
2290 static void
b97_2_fourth(FunFourthFuncDrv * ds,real factor,const FunDensProp * dp)2291 b97_2_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
2292 {
2293     real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
2294     real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
2295         d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
2296         d2fdgbgb, d2fdgbgab, d2fdgabgab;
2297     real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
2298          d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
2299          d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
2300          d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
2301          d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
2302          d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
2303          d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
2304     real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
2305          d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
2306          d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
2307          d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
2308          d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
2309          d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
2310          d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
2311          d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
2312          d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
2313          d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
2314          d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
2315          d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
2316          d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
2317          d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
2318          d4fdabababab;
2319     real rhoa = dp->rhoa, rhob = dp->rhob;
2320     real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
2321 
2322     real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
2323     real t11, t12, t13, t14, t15, t16, t17, t18;
2324     real t19, t20, t21, t22, t23, t24, t25, t26;
2325     real t27, t28, t29, t30, t31, t32, t33, t34;
2326     real t35, t36, t37, t38, t39, t40, t41, t42;
2327     real t43, t44, t45, t46, t47, t48, t49, t50;
2328     real t51, t52, t53, t54, t55, t56, t57, t58;
2329     real t59, t60, t61, t62, t63, t64, t65, t66;
2330     real t67, t68, t69, t70, t71, t72, t73, t74;
2331     real t75, t76, t77, t78, t79, t80, t81, t82;
2332     real t83, t84, t85, t86, t87, t88, t89, t90;
2333     real t91, t92, t93, t94, t95, t96, t97, t98;
2334     real t99, t100, t101, t102, t103, t104, t105;
2335     real t106, t107, t108, t109, t110, t111, t112;
2336     real t113, t114, t115, t116, t117, t118, t119;
2337     real t120, t121, t122, t123, t124, t125, t126;
2338     real t127, t128, t129, t130, t131, t132, t133;
2339     real t134, t135, t136, t137, t138, t139, t140;
2340     real t141, t142, t143, t144, t145, t146, t147;
2341     real t148, t149, t150, t151, t152, t153, t154;
2342     real t155, t156, t157, t158, t159, t160, t161;
2343     real t162, t163, t164, t165, t166, t167, t168;
2344     real t169, t170, t171, t172, t173, t174, t175;
2345     real t176, t177, t178, t179, t180, t181, t182;
2346     real t183, t184, t185, t186, t187, t188, t189;
2347     real t190, t191, t192, t193, t194, t195, t196;
2348     real t197, t198, t199, t200, t201, t202, t203;
2349     real t204, t205, t206, t207, t208, t209, t210;
2350     real t211, t212, t213, t214, t215, t216, t217;
2351     real t218, t219, t220, t221, t222, t223, t224;
2352     real t225, t226, t227, t228, t229, t230, t231;
2353     real t232, t233, t234, t235, t236, t237, t238;
2354     real t239, t240, t241, t242, t243, t244, t245;
2355     real t246, t247, t248, t249, t250, t251, t252;
2356     real t253, t254, t255, t256, t257, t258, t259;
2357     real t260, t261, t262, t263, t264, t265, t266;
2358     real t267, t268, t269, t270, t271, t272, t273;
2359     real t274, t275, t276, t277, t278, t279, t280;
2360     real t281, t282, t283, t284, t285, t286, t287;
2361     real t288, t289, t290, t291, t292, t293, t294;
2362     real t295, t296, t297, t298, t299, t300, t301;
2363     real t302, t303, t304, t305, t306, t307, t308;
2364     real t309, t310, t311, t312, t313, t314, t315;
2365     real t316, t317, t318, t319, t320, t321, t322;
2366     real t323, t324, t325, t326, t327, t328, t329;
2367     real t330, t331, t332, t333, t334, t335, t336;
2368     real t337, t338, t339, t340, t341, t342, t343;
2369     real t344, t345, t346, t347, t348, t349, t350;
2370     real t351, t352, t353, t354, t355, t356, t357;
2371     real t358, t359, t360, t361, t362, t363, t364;
2372     real t365, t366, t367, t368, t369, t370, t371;
2373     real t372, t373, t374, t375, t376, t377, t378;
2374     real t379, t380, t381, t382, t383, t384, t385;
2375     real t386, t387, t388, t389, t390, t391, t392;
2376     real t393, t394, t395, t396, t397, t398, t399;
2377     real t400, t401, t402, t403, t404, t405, t406;
2378     real t407, t408, t409, t410, t411, t412, t413;
2379     real t414, t415, t416, t417, t418, t419, t420;
2380     real t421, t422, t423, t424, t425, t426, t427;
2381     real t428, t429, t430, t431, t432, t433, t434;
2382     real t435, t436, t437, t438, t439, t440, t441;
2383     real t442, t443, t444, t445, t446, t447, t448;
2384     real t449, t450, t451, t452, t453, t454, t455;
2385     real t456, t457, t458, t459, t460, t461, t462;
2386     real t463, t464, t465, t466, t467, t468, t469;
2387     real t470, t471, t472, t473, t474, t475, t476;
2388     real t477, t478, t479, t480, t481, t482, t483;
2389     real t484, t485, t486, t487, t488, t489, t490;
2390     real t491, t492, t493, t494, t495, t496, t497;
2391     real t498, t499, t500, t501, t502, t503, t504;
2392     real t505, t506, t507, t508, t509, t510, t511;
2393     real t512, t513, t514, t515, t516, t517, t518;
2394     real t519, t520, t521, t522, t523, t524, t525;
2395     real t526, t527, t528, t529, t530, t531, t532;
2396     real t533, t534, t535, t536, t537, t538, t539;
2397     real t540, t541, t542, t543, t544, t545, t546;
2398     real t547, t548, t549, t550, t551, t552, t553;
2399     real t554, t555, t556, t557, t558, t559, t560;
2400     real t561, t562, t563, t564, t565, t566, t567;
2401     real t568, t569, t570, t571, t572, t573, t574;
2402     real t575, t576, t577, t578, t579, t580, t581;
2403     real t582, t583, t584, t585, t586, t587, t588;
2404     real t589, t590, t591, t592, t593, t594, t595;
2405     real t596, t597, t598, t599, t600, t601, t602;
2406     real t603, t604, t605, t606, t607, t608, t609;
2407     real t610, t611, t612, t613, t614, t615, t616;
2408     real t617, t618, t619, t620, t621, t622, t623;
2409     real t624, t625, t626, t627, t628, t629, t630;
2410     real t631, t632, t633, t634, t635, t636, t637;
2411     real t638, t639, t640, t641, t642, t643, t644;
2412     real t645, t646, t647, t648, t649, t650, t651;
2413     real t652, t653, t654, t655, t656, t657, t658;
2414     real t659, t660, t661, t662, t663, t664, t665;
2415     real t666, t667, t668, t669, t670, t671, t672;
2416     real t673, t674, t675, t676, t677, t678, t679;
2417     real t680, t681, t682, t683, t684, t685, t686;
2418     real t687, t688, t689, t690, t691, t692, t693;
2419     real t694, t695, t696, t697, t698, t699, t700;
2420     real t701, t702, t703, t704, t705, t706, t707;
2421     real t708, t709, t710, t711, t712, t713, t714;
2422     real t715, t716, t717, t718, t719, t720, t721;
2423     real t722, t723, t724, t725, t726, t727, t728;
2424     real t729, t730, t731, t732, t733, t734, t735;
2425     real t736, t737, t738, t739, t740, t741, t742;
2426     real t743, t744, t745, t746, t747, t748;
2427 
2428     t1 = pow(3.0,.3333333333333333);
2429     t2 = 1/pow(4.0,.3333333333333333);
2430     t3 = 1/pow(3.141592653589793,.3333333333333333);
2431     t4 = pow(3.0,.6666666666666666);
2432     t5 = 1/pow(4.0,.6666666666666666);
2433     t6 = 1/pow(3.141592653589793,.6666666666666666);
2434     t7 = 1/pow(rhoa,.6666666666666666);
2435     t8 = 1.732050807568877;
2436     t9 = .5641895835477563;
2437     t10 = sqrt(rhoa);
2438     t11 = pow(rhoa,.3333333333333333);
2439     t12 = 1/t11;
2440     t13 = pow(2.0,.3333333333333333);
2441     t14 = 1/t13;
2442     t15 = pow(3.0,.1666666666666667);
2443     t16 = 1/pow(3.141592653589793,.1666666666666667);
2444     t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
2445         1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
2446     t18 = 32.1646831778707/
2447         t17+1.0;
2448     t19 = log(t18);
2449     t20 = pow(grada,4.0);
2450     t21 = pow(grada,2.0);
2451     t22 = 1/pow(rhoa,2.666666666666667);
2452     t23 = 0.2*t21*t22+1.0;
2453     t24 = 1/pow(t23,2.0);
2454     t25 = 1/pow(rhoa,5.333333333333333);
2455     t26 = 1/t23;
2456     t27 = -0.1383364*t21*t26*t22+0.01579184*t20*t24*t25+0.585808;
2457     t28 = 0.20548*
2458         t1*t2*t3*t12+1.0;
2459     t29 = pow(6.0,.3333333333333333);
2460     t30 = 0.004*t21*t22+1.0;
2461     t31 = 1/pow(t30,2.0);
2462     t32 = 1/t30;
2463     t33 = 1.9136e-4*t21*t32*t22+2.817999999999999e-5*t20*
2464         t31*t25+0.827642;
2465     t34 = pow(grada,6.0);
2466     t35 = 1/pow(t23,3.0);
2467     t36 = 1/pow(rhoa,9.0);
2468     t37 = 1/pow(rhoa,6.333333333333333);
2469     t38 = 1/pow(rhoa,3.666666666666667);
2470     t39 = .3688970666666667*t21*t26*t38-0.15800256*t20*t24*
2471         t37+.0168446293333333*t34*t35*t36;
2472     t40 = 1/t18;
2473     t41 = 1/pow(rhoa,1.666666666666667);
2474     t42 = pow(rhoa,1.333333333333333);
2475     t43 = 1/t42;
2476     t44 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
2477         0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t43-0.41678*t4*
2478         t5*t6*t41;
2479     t45 = 1/pow(t17,2.0);
2480     t46 = 1/pow(t30,3.0);
2481     t47 = -5.102933333333334e-4*t21*t32*t38-1.4825216e-4*
2482         t20*t31*t37+6.011733333333333e-7*t34*t46*t36;
2483     t48 = pow(gradb,2.0);
2484     t49 = 1/pow(rhob,2.666666666666667);
2485     t50 = 0.5*t48*t49+0.5*t21*t22;
2486     t51 = pow(t50,2.0);
2487     t52 = 0.006*t50+1.0;
2488     t53 = 1/pow(t52,2.0);
2489     t54 = 1/t52;
2490     t55 = 0.00843756*t50*t54-2.678616e-4*t51*t53+0.999849;
2491     t56 = rhob+
2492         rhoa;
2493     t57 = 1/pow(t56,.3333333333333333);
2494     t58 = 0.2137*t1*t2*t3*t57+1.0;
2495     t59 = 1/pow(t56,.6666666666666666);
2496     t60 = sqrt(t56);
2497     t61 = 1/t60;
2498     t62 = 1/pow(t56,.1666666666666667);
2499     t63 = 7.5957*t14*t15*t16*t62+3.5876*t1*t2*t3*t57+0.8191*
2500         t8*t9*t61+0.49294*t4*t5*t6*t59;
2501     t64 = 16.0818243221511/t63+1.0;
2502     t65 = log(t64);
2503     t66 = -0.062182*t58*t65;
2504     t67 = 1/(2.0*t13-2.0);
2505     t68 = rhoa-1.0*rhob;
2506     t69 = pow(t68,4.0);
2507     t70 = 1/pow(t56,4.0);
2508     t71 = 1.0-1.0*t69*t70;
2509     t72 = 0.11125*t1*t2*t3*t57+1.0;
2510     t73 = 1/t56;
2511     t74 = 1.0-1.0*t68*t73;
2512     t75 = t68*t73+1.0;
2513     t76 = pow(t75,1.333333333333333)+pow(t74,1.333333333333333)-
2514         2.0;
2515     t77 = 10.357*t14*t15*t16*t62+3.6231*t1*t2*t3*t57+0.44013*
2516         t8*t9*t61+0.49671*t4*t5*t6*t59;
2517     t78 = 29.60857464321668/t77+1.0;
2518     t79 = log(t78);
2519     t80 = .0197517897025652*t67*t71*t72*t76*t79;
2520     t81 = 0.20548*t1*t2*t3*t57+1.0;
2521     t82 = 14.1189*t14*t15*t16*t62+6.1977*t1*t2*t3*t57+1.6831*
2522         t8*t9*t61+0.62517*t4*t5*t6*t59;
2523     t83 = 32.1646831778707/t82+1.0;
2524     t84 = log(t83);
2525     t85 = 0.062182*t58*t65-0.03109*t81*t84;
2526     t86 = t67*t69*t70*t76*t85;
2527     t87 = 1/pow(t56,1.666666666666667);
2528     t88 = 1/pow(t60,3.0);
2529     t89 = 1/pow(t56,1.333333333333333);
2530     t90 = 1/pow(t56,1.166666666666667);
2531     t91 = -1.26595*t14*t15*t16*t90-1.195866666666667*t1*t2*
2532         t3*t89-0.40955*t8*t9*t88-.3286266666666666*t4*t5*t6*t87;
2533     t92 = 1/
2534         pow(t63,2.0);
2535     t93 = 1/t64;
2536     t94 = .9999999999999999*t91*t58*t92*t93;
2537     t95 = -1.726166666666666*t14*t15*t16*t90-1.2077*t1*t2*
2538         t3*t89-0.220065*t8*t9*t88-0.33114*t4*t5*t6*t87;
2539     t96 = 1/pow(t77,2.0);
2540     t97 = 1/t78;
2541     t98 = -.5848223397455204*t67*t71*t95*t72*t96*t76*t97;
2542     t99 = .0044294311333333*
2543         t1*t2*t3*t89*t65;
2544     t100 = 1/pow(t56,2.0);
2545     t101 = t68*t100;
2546     t102 = -1.0*t73;
2547     t103 = t102+t101;
2548     t104 = pow(t74,.3333333333333333);
2549     t105 = -1.0*t100*t68;
2550     t106 = t73+t105;
2551     t107 = pow(t75,.3333333333333333);
2552     t108 = 1.333333333333333*t106*t107+1.333333333333333*
2553         t103*t104;
2554     t109 = .0197517897025652*t67*t71*t72*t108*t79;
2555     t110 = -7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t76*
2556         t79;
2557     t111 = 1/pow(t56,5.0);
2558     t112 = 4.0*t111*t69;
2559     t113 = pow(t68,3.0);
2560     t114 = t112-4.0*t113*t70;
2561     t115 = .0197517897025652*t67*t114*t72*t76*t79;
2562     t116 = -2.35315*t14*t15*t16*t90-2.0659*t1*t2*t3*t89-0.84155*
2563         t8*t9*t88-0.41678*t4*t5*t6*t87;
2564     t117 = 1/pow(t82,2.0);
2565     t118 = 1/t83;
2566     t119 = .0021294577333333*t1*t2*t3*t89*t84-.0044294311333333*
2567         t1*t2*t3*t89*t65+t116*t81*t117*t118-.9999999999999999*t91*
2568         t58*t92*t93;
2569     t120 = t67*t69*t70*t76*t119;
2570     t121 = t67*t69*t70*t108*t85;
2571     t122 = -4.0*t111*t67*t69*t76*t85;
2572     t123 = -1.0*t40*t44*t28*t45*rhoa+t56*(t99+t98+t94+4.0*
2573         t113*t67*t70*t76*t85+t122+t121+t120+t115+t110+t109)+t86+t80+
2574         t66+0.03109*t19*t28-.0021294577333333*t1*t2*t3*t19*t12;
2575     t124 = 1/pow(t52,3.0);
2576     t125 = -0.01125008*t21*t38*t54+7.8179808e-4*t21*t38*t50*
2577         t53-4.2857856e-6*t21*t38*t51*t124;
2578     t126 = 1/pow(rhob,.6666666666666666);
2579     t127 = sqrt(rhob);
2580     t128 = pow(rhob,.3333333333333333);
2581     t129 = 1/t128;
2582     t130 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
2583         1.6831*t8*t9/t127+6.1977*t1*t2*t3*t129+0.62517*t4*t5*t6*t126;
2584     t131 = 32.1646831778707/
2585         t130+1.0;
2586     t132 = log(t131);
2587     t133 = 0.20548*t1*t2*t3*t129+1.0;
2588     t134 = t56*(t86+t80+t66)+0.03109*t132*t133*rhob+0.03109*
2589         t19*t28*rhoa;
2590     t135 = pow(gradb,4.0);
2591     t136 = 0.2*t48*t49+1.0;
2592     t137 = 1/pow(t136,2.0);
2593     t138 = 1/pow(rhob,5.333333333333333);
2594     t139 = 1/t136;
2595     t140 = -0.1383364*t48*t139*t49+0.01579184*t135*t137*t138+
2596         0.585808;
2597     t141 = 0.004*t48*t49+1.0;
2598     t142 = 1/pow(t141,2.0);
2599     t143 = 1/t141;
2600     t144 = 1.9136e-4*t48*t143*t49+2.817999999999999e-5*t135*
2601         t142*t138+0.827642;
2602     t145 = pow(gradb,6.0);
2603     t146 = 1/pow(t136,3.0);
2604     t147 = 1/pow(rhob,9.0);
2605     t148 = 1/pow(rhob,6.333333333333333);
2606     t149 = 1/pow(rhob,3.666666666666667);
2607     t150 = .3688970666666667*t48*t139*t149-0.15800256*t135*
2608         t137*t148+.0168446293333333*t145*t146*t147;
2609     t151 = 1/t131;
2610     t152 = 1/pow(rhob,1.666666666666667);
2611     t153 = pow(rhob,1.333333333333333);
2612     t154 = 1/t153;
2613     t155 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
2614         0.84155*t8*t9/pow(t127,3.0)-2.0659*t1*t2*t3*t154-0.41678*t4*
2615         t5*t6*t152;
2616     t156 = 1/pow(t130,2.0);
2617     t157 = 1/pow(t141,3.0);
2618     t158 = -5.102933333333334e-4*t48*t143*t149-1.4825216e-4*
2619         t135*t142*t148+6.011733333333333e-7*t145*t157*t147;
2620     t159 = t73+t101;
2621     t160 = t102+t105;
2622     t161 = 1.333333333333333*t107*t160+1.333333333333333*
2623         t104*t159;
2624     t162 = .0197517897025652*t67*t71*t72*t161*t79;
2625     t163 = 4.0*t113*t70+t112;
2626     t164 = .0197517897025652*t67*t163*t72*t76*t79;
2627     t165 = t67*t69*t70*t161*t85;
2628     t166 = -1.0*t151*t155*t133*t156*rhob+t56*(t99+t98+t94-
2629         4.0*t113*t67*t70*t76*t85+t165+t164+t162+t122+t120+t110)+t86+
2630         t80+t66+0.03109*t132*t133-.0021294577333333*t1*t2*t3*t132*
2631         t129;
2632     t167 = -0.01125008*t48*t54*t149+7.8179808e-4*t48*t50*
2633         t53*t149-4.2857856e-6*t48*t51*t124*t149;
2634     t168 = pow(grada,5.0);
2635     t169 = 1/pow(rhoa,8.0);
2636     t170 = pow(grada,3.0);
2637     t171 = -0.2766728*grada*t26*t22+0.11850192*t170*t24*t25-
2638         0.012633472*t168*t35*t169;
2639     t172 = 3.8272e-4*grada*t32*t22+1.1118912e-4*t170*t31*
2640         t25-4.5088e-7*t168*t46*t169;
2641     t173 = 0.00843756*grada*t22*t54-5.863485599999999e-4*
2642         grada*t22*t50*t53+3.2143392e-6*grada*t22*t51*t124;
2643     t174 = pow(gradb,5.0);
2644     t175 = 1/pow(rhob,8.0);
2645     t176 = pow(gradb,3.0);
2646     t177 = -0.2766728*gradb*t139*t49+0.11850192*t176*t137*
2647         t138-0.012633472*t174*t146*t175;
2648     t178 = 3.8272e-4*gradb*t143*t49+1.1118912e-4*t176*t142*
2649         t138-4.5088e-7*t174*t157*t175;
2650     t179 = 0.00843756*gradb*t54*t49-5.863485599999999e-4*
2651         gradb*t50*t53*t49+3.2143392e-6*gradb*t51*t124*t49;
2652     t180 = pow(grada,8.0);
2653     t181 = 1/pow(t23,4.0);
2654     t182 = 1/pow(rhoa,12.66666666666667);
2655     t183 = 1/pow(rhoa,10.0);
2656     t184 = 1/pow(rhoa,7.333333333333333);
2657     t185 = 1/pow(rhoa,4.666666666666667);
2658     t186 = -1.352622577777778*t21*t26*t185+1.197427982222222*
2659         t20*t24*t184-0.320137728*t34*t35*t183+.0269514069333333*t180*
2660         t181*t182;
2661     t187 = 1/pow(t18,2.0);
2662     t188 = pow(t44,2.0);
2663     t189 = 1/pow(t17,4.0);
2664     t190 = 1/pow(t17,3.0);
2665     t191 = 1/pow(rhoa,2.333333333333333);
2666     t192 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
2667         1.262325*t8*t9/pow(t10,5.0)+.6946333333333333*t4*t5*t6*t22+
2668         2.754533333333333*t1*t2*t3*t191;
2669     t193 = 1/pow(t30,4.0);
2670     t194 = .0018710755555556*t21*t32*t185+9.334872177777777e-4*
2671         t20*t31*t184-8.573272746666667e-6*t34*t46*t183+1.923754666666667e-8*
2672         t180*t193*t182;
2673     t195 = 2.0*t91*t58*t92*t93;
2674     t196 = -1.169644679491041*t67*t71*t95*t72*t96*t76*t97;
2675     t197 = .0088588622666667*
2676         t1*t2*t3*t89*t65;
2677     t198 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t76*t79;
2678     t199 = 2.0*
2679         t119*t67*t69*t70*t76;
2680     t200 = -8.0*t111*t67*t69*t76*t85;
2681     t201 = pow(t91,2.0);
2682     t202 = 1/pow(t63,4.0);
2683     t203 = 1/pow(t64,2.0);
2684     t204 = 16.0818243221511*t201*t58*t202*t203;
2685     t205 = 1/pow(t63,3.0);
2686     t206 = -2.0*t201*t58*t205*t93;
2687     t207 = -.1424666666666666*t1*t2*t3*t89*t91*t92*t93;
2688     t208 = 1/
2689         pow(t56,2.666666666666667);
2690     t209 = 1/pow(t60,5.0);
2691     t210 = 1/pow(t56,2.333333333333333);
2692     t211 = 1/pow(t56,2.166666666666667);
2693     t212 = 1.476941666666667*t14*t15*t16*t211+1.594488888888889*
2694         t1*t2*t3*t210+0.614325*t8*t9*t209+0.547711111111111*t4*t5*
2695         t6*t208;
2696     t213 = .9999999999999999*t212*t58*t92*t93;
2697     t214 = pow(t95,2.0);
2698     t215 = 1/pow(t77,4.0);
2699     t216 = 1/pow(t78,2.0);
2700     t217 = -17.31575589937587*t67*t71*t214*t72*t215*t76*t216;
2701     t218 = -
2702         1.169644679491041*t67*t71*t95*t72*t96*t108*t97;
2703     t219 = 1/pow(t77,3.0);
2704     t220 = 1.169644679491041*t67*t71*t214*t72*t219*t76*t97;
2705     t221 = .0433743235311261*
2706         t67*t1*t2*t3*t89*t71*t95*t96*t76*t97;
2707     t222 = 2.013861111111111*t14*t15*t16*t211+1.610266666666667*
2708         t1*t2*t3*t210+0.3300975*t8*t9*t209+.5519000000000001*t4*t5*
2709         t6*t208;
2710     t223 = -.5848223397455204*t67*t71*t222*t72*t96*t76*t97;
2711     t224 = -
2712         1.169644679491041*t67*t114*t95*t72*t96*t76*t97;
2713     t225 = -.0059059081777778*t1*t2*t3*t210*t65;
2714     t226 = pow(t103,2.0);
2715     t227 = 1/pow(t74,.6666666666666666);
2716     t228 = 1/pow(t56,3.0);
2717     t229 = -2.0*t228*t68;
2718     t230 = 2.0*t100;
2719     t231 = t230+t229;
2720     t232 = pow(t106,2.0);
2721     t233 = 1/pow(t75,.6666666666666666);
2722     t234 = 2.0*t228*t68;
2723     t235 = -2.0*t100;
2724     t236 = t235+t234;
2725     t237 = 1.333333333333333*t107*t236+.4444444444444444*
2726         t232*t233+1.333333333333333*t104*t231+.4444444444444444*t226*
2727         t227;
2728     t238 = .0197517897025652*t67*t71*t72*t237*t79;
2729     t239 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t108*t79;
2730     t240 = .0395035794051304*
2731         t67*t114*t72*t108*t79;
2732     t241 = -.0014649244029403*t67*t1*t2*t3*t89*t114*t76*t79;
2733     t242 = 9.766162686268349e-4*t67*t1*t2*t3*t210*t71*t76*
2734         t79;
2735     t243 = 1/pow(t56,6.0);
2736     t244 = -20.0*t243*t69;
2737     t245 = pow(t68,2.0);
2738     t246 = -12.0*t245*t70;
2739     t247 = t246+t244+32.0*t111*t113;
2740     t248 = .0197517897025652*t67*t247*t72*t76*t79;
2741     t249 = pow(t116,2.0);
2742     t250 = 1/pow(t82,4.0);
2743     t251 = 1/pow(t83,2.0);
2744     t252 = 1/pow(t82,3.0);
2745     t253 = 2.745341666666667*t14*t15*t16*t211+2.754533333333333*
2746         t1*t2*t3*t210+1.262325*t8*t9*t209+.6946333333333333*t4*t5*
2747         t6*t208;
2748     t254 = .1424666666666666*t1*t2*t3*t89*t91*t92*t93-.9999999999999999*
2749         t212*t58*t92*t93+2.0*t201*t58*t205*t93-.0028392769777778*t1*
2750         t2*t3*t210*t84-2.0*t118*t249*t252*t81+.0059059081777778*t1*
2751         t2*t3*t210*t65+32.1646831778707*t249*t81*t250*t251-16.0818243221511*
2752         t201*t58*t202*t203+t253*t81*t117*t118-.1369866666666666*t1*
2753         t2*t3*t89*t116*t117*t118;
2754     t255 = t67*t69*t70*t76*t254;
2755     t256 = 2.0*t108*t119*t67*t69*t70;
2756     t257 = -8.0*t111*t119*t67*t69*t76;
2757     t258 = 8.0*t113*t119*t67*t70*t76;
2758     t259 = t67*t69*t70*t237*t85;
2759     t260 = -8.0*t108*t111*t67*t69*t85;
2760     t261 = 20.0*t243*t67*t69*t76*t85;
2761     t262 = -32.0*t111*t113*t67*t76*t85;
2762     t263 = 12.0*t245*t67*t70*t76*t85;
2763     t264 = -1.0*t40*t192*t28*t45*rhoa+2.0*t40*t188*t28*t190*
2764         rhoa-32.1646831778707*t187*t188*t28*t189*rhoa+t56*(8.0*t108*
2765         t113*t67*t70*t85+t263+t262+t261+t260+t259+t258+t257+t256+t255+
2766         t248+t242+t241+t240+t239+t238+t225+t224+t223+t221+t220+t218+
2767         t217+t213+t207+t206+t204)+8.0*t113*t67*t70*t76*t85+2.0*t108*
2768         t67*t69*t70*t85+.0395035794051304*t67*t114*t72*t76*t79+.0395035794051304*
2769         t67*t71*t72*t108*t79-2.0*t40*t44*t28*t45-.0014196384888889*
2770         t1*t2*t3*t19*t43+t200+t199+t198+t197+t196+t195+.1369866666666666*
2771         t1*t2*t3*t40*t44*t45*t12;
2772     t265 = 1/pow(t52,4.0);
2773     t266 = .0412502933333333*t21*t185*t54-0.00286659296*t21*
2774         t185*t50*t53-0.00113239808*t20*t184*t53+1.57145472e-5*t21*
2775         t185*t51*t124+2.393753088e-5*t20*t184*t50*t124-1.028588544e-7*
2776         t20*t184*t51*t265;
2777     t267 = 2.666666666666667*t107*t228*t68-2.666666666666667*
2778         t104*t228*t68+.4444444444444444*t106*t160*t233+.4444444444444444*
2779         t103*t159*t227;
2780     t268 = 12.0*t245*t70+t244;
2781     t269 = -12.0*t245*t67*t70*t76*t85;
2782     t270 = t56*(-.5848223397455204*t67*t163*t95*t72*t96*t76*
2783         t97-.5848223397455204*t67*t114*t95*t72*t96*t76*t97-.5848223397455204*
2784         t67*t71*t95*t72*t96*t161*t97-.5848223397455204*t67*t71*t95*
2785         t72*t96*t108*t97+4.0*t113*t161*t67*t70*t85-4.0*t108*t113*t67*
2786         t70*t85-4.0*t111*t161*t67*t69*t85-4.0*t108*t111*t67*t69*t85+
2787         t67*t69*t70*t267*t85+.0197517897025652*t67*t268*t72*t76*t79-
2788         7.324622014701263e-4*t67*t1*t2*t3*t89*t163*t76*t79-7.324622014701263e-4*
2789         t67*t1*t2*t3*t89*t114*t76*t79+.0197517897025652*t67*t71*t72*
2790         t267*t79+.0197517897025652*t67*t114*t72*t161*t79-7.324622014701263e-4*
2791         t67*t1*t2*t3*t89*t71*t161*t79+.0197517897025652*t67*t163*t72*
2792         t108*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t108*t79+
2793         t269+t261+t257+t255+t242+t225+t223+t221+t220+t217+t213+t207+
2794         t206+t204+t67*t69*t70*t161*t119+t67*t69*t70*t108*t119)+t200+
2795         t199+t198+t197+t196+t195+t165+t164+t162+t121+t115+t109;
2796     t271 = -0.00113239808*t21*t48*t38*t53*t149+2.393753088e-5*
2797         t21*t48*t38*t50*t124*t149-1.028588544e-7*t21*t48*t38*t51*t265*
2798         t149;
2799     t272 = pow(grada,7.0);
2800     t273 = 1/pow(rhoa,11.66666666666667);
2801     t274 = .7377941333333333*grada*t26*t38-.7795690666666667*
2802         t170*t24*t37+0.227469824*t168*t35*t36-0.0202135552*t272*t181*
2803         t273;
2804     t275 = -.0010205866666667*grada*t32*t38-5.889262933333332e-4*
2805         t170*t31*t37+5.979074559999998e-6*t168*t46*t36-1.442816e-8*
2806         t272*t193*t273;
2807     t276 = -0.02250016*grada*t38*t54+0.00156359616*grada*
2808         t38*t50*t53+8.492985599999999e-4*t170*t37*t53-8.5715712e-6*
2809         grada*t38*t51*t124-1.795314816e-5*t170*t37*t50*t124+7.714414080000002e-8*
2810         t170*t37*t51*t265;
2811     t277 = 8.492985599999999e-4*t21*gradb*t38*t53*t49-1.795314816e-5*
2812         t21*gradb*t38*t50*t124*t49+7.714414080000002e-8*t21*gradb*
2813         t38*t51*t265*t49;
2814     t278 = pow(gradb,8.0);
2815     t279 = 1/pow(t136,4.0);
2816     t280 = 1/pow(rhob,12.66666666666667);
2817     t281 = 1/pow(rhob,10.0);
2818     t282 = 1/pow(rhob,7.333333333333333);
2819     t283 = 1/pow(rhob,4.666666666666667);
2820     t284 = -1.352622577777778*t48*t139*t283+1.197427982222222*
2821         t135*t137*t282-0.320137728*t145*t146*t281+.0269514069333333*
2822         t278*t279*t280;
2823     t285 = 1/pow(t131,2.0);
2824     t286 = pow(t155,2.0);
2825     t287 = 1/pow(t130,4.0);
2826     t288 = 1/pow(t130,3.0);
2827     t289 = 1/pow(rhob,2.333333333333333);
2828     t290 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
2829         1.262325*t8*t9/pow(t127,5.0)+.6946333333333333*t4*t5*t6*t49+
2830         2.754533333333333*t1*t2*t3*t289;
2831     t291 = 1/pow(t141,4.0);
2832     t292 = .0018710755555556*t48*t143*t283+9.334872177777777e-4*
2833         t135*t142*t282-8.573272746666667e-6*t145*t157*t281+1.923754666666667e-8*
2834         t278*t291*t280;
2835     t293 = -1.169644679491041*t67*t71*t95*t72*t96*t161*t97;
2836     t294 = -
2837         1.169644679491041*t67*t163*t95*t72*t96*t76*t97;
2838     t295 = pow(t159,2.0);
2839     t296 = t235+t229;
2840     t297 = pow(t160,2.0);
2841     t298 = t230+t234;
2842     t299 = 1.333333333333333*t107*t298+.4444444444444444*
2843         t233*t297+1.333333333333333*t104*t296+.4444444444444444*t227*
2844         t295;
2845     t300 = .0197517897025652*t67*t71*t72*t299*t79;
2846     t301 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t161*t79;
2847     t302 = .0395035794051304*
2848         t67*t163*t72*t161*t79;
2849     t303 = -.0014649244029403*t67*t1*t2*t3*t89*t163*t76*t79;
2850     t304 = t246+
2851         t244-32.0*t111*t113;
2852     t305 = .0197517897025652*t67*t304*t72*t76*t79;
2853     t306 = 2.0*t119*t161*t67*t69*t70;
2854     t307 = -8.0*t113*t119*t67*t70*t76;
2855     t308 = t67*t69*t70*t299*t85;
2856     t309 = -8.0*t111*t161*t67*t69*t85;
2857     t310 = 32.0*t111*t113*t67*t76*t85;
2858     t311 = 2.0*t151*t286*t133*t288*rhob-32.1646831778707*
2859         t285*t286*t133*t287*rhob-1.0*t151*t290*t133*t156*rhob+t56*
2860         (-8.0*t113*t161*t67*t70*t85+t310+t309+t308+t307+t306+t305+
2861         t303+t302+t301+t300+t294+t293+t263+t261+t257+t255+t242+t225+
2862         t223+t221+t220+t217+t213+t207+t206+t204)-8.0*t113*t67*t70*
2863         t76*t85+2.0*t161*t67*t69*t70*t85+.0395035794051304*t67*t163*
2864         t72*t76*t79+.0395035794051304*t67*t71*t72*t161*t79+t200+t199+
2865         t198+t197+t196+t195-2.0*t151*t155*t133*t156-.0014196384888889*
2866         t1*t2*t3*t132*t154+.1369866666666666*t1*t2*t3*t151*t155*t156*
2867         t129;
2868     t312 = .0412502933333333*t48*t54*t283-0.00286659296*t48*
2869         t50*t53*t283+1.57145472e-5*t48*t51*t124*t283-0.00113239808*
2870         t135*t53*t282+2.393753088e-5*t135*t50*t124*t282-1.028588544e-7*
2871         t135*t51*t265*t282;
2872     t313 = 8.492985599999999e-4*grada*t48*t22*t53*t149-1.795314816e-5*
2873         grada*t48*t22*t50*t124*t149+7.714414080000002e-8*grada*t48*
2874         t22*t51*t265*t149;
2875     t314 = pow(gradb,7.0);
2876     t315 = 1/pow(rhob,11.66666666666667);
2877     t316 = .7377941333333333*gradb*t139*t149-.7795690666666667*
2878         t176*t137*t148+0.227469824*t174*t146*t147-0.0202135552*t314*
2879         t279*t315;
2880     t317 = -.0010205866666667*gradb*t143*t149-5.889262933333332e-4*
2881         t176*t142*t148+5.979074559999998e-6*t174*t157*t147-1.442816e-8*
2882         t314*t291*t315;
2883     t318 = -0.02250016*gradb*t54*t149+0.00156359616*gradb*
2884         t50*t53*t149-8.5715712e-6*gradb*t51*t124*t149+8.492985599999999e-4*
2885         t176*t53*t148-1.795314816e-5*t176*t50*t124*t148+7.714414080000002e-8*
2886         t176*t51*t265*t148;
2887     t319 = 1/pow(rhoa,10.66666666666667);
2888     t320 = -0.2766728*t26*t22+0.46617488*t21*t24*t25-0.157968896*
2889         t20*t35*t169+0.0151601664*t34*t181*t319;
2890     t321 = 3.8272e-4*t32*t22+3.305056e-4*t21*t31*t25-4.03342592e-6*
2891         t20*t46*t169+1.082112e-8*t34*t193*t319;
2892     t322 = 0.00843756*t22*t54-5.863485599999999e-4*t22*t50*
2893         t53-6.369739199999999e-4*t21*t25*t53+3.2143392e-6*t22*t51*
2894         t124+1.346486112e-5*t21*t25*t50*t124-5.785810560000001e-8*
2895         t21*t25*t51*t265;
2896     t323 = -6.369739199999999e-4*grada*gradb*t22*t53*t49+
2897         1.346486112e-5*grada*gradb*t22*t50*t124*t49-5.785810560000001e-8*
2898         grada*gradb*t22*t51*t265*t49;
2899     t324 = 1/pow(rhob,10.66666666666667);
2900     t325 = -0.2766728*t139*t49+0.46617488*t48*t137*t138-0.157968896*
2901         t135*t146*t175+0.0151601664*t145*t279*t324;
2902     t326 = 3.8272e-4*t143*t49+3.305056e-4*t48*t142*t138-4.03342592e-6*
2903         t135*t157*t175+1.082112e-8*t145*t291*t324;
2904     t327 = 0.00843756*t54*t49-5.863485599999999e-4*t50*t53*
2905         t49+3.2143392e-6*t51*t124*t49-6.369739199999999e-4*t48*t53*
2906         t138+1.346486112e-5*t48*t50*t124*t138-5.785810560000001e-8*
2907         t48*t51*t265*t138;
2908     t328 = pow(grada,10.0);
2909     t329 = 1/pow(t23,5.0);
2910     t330 = 1/pow(rhoa,16.33333333333333);
2911     t331 = 1/pow(rhoa,13.66666666666667);
2912     t332 = 1/pow(rhoa,11.0);
2913     t333 = 1/pow(rhoa,8.333333333333334);
2914     t334 = 1/pow(rhoa,5.666666666666667);
2915     t335 = 6.312238696296296*t21*t26*t334-9.502537244444445*
2916         t20*t24*t333+4.47863379437037*t34*t35*t332-.8536048526222222*
2917         t180*t181*t331+.0574963347911111*t328*t329*t330;
2918     t336 = 1/pow(t18,3.0);
2919     t337 = pow(t44,3.0);
2920     t338 = 1/pow(t17,6.0);
2921     t339 = 1/pow(t17,5.0);
2922     t340 = 1/pow(rhoa,3.333333333333333);
2923     t341 = -5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
2924         3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t38-
2925         6.427244444444445*t1*t2*t3*t340;
2926     t342 = 1/pow(t30,5.0);
2927     t343 = -.0087316859259259*t21*t32*t334-.0068256147911111*
2928         t20*t31*t333+1.056471214459259e-4*t34*t46*t332-5.180203190044445e-7*
2929         t180*t193*t331+8.20801991111111e-10*t328*t342*t330;
2930     t344 = 48.2454729664533*t201*t58*t202*t203;
2931     t345 = -6.0*t201*t58*t205*t93;
2932     t346 = -.4273999999999999*t1*t2*t3*t89*t91*t92*t93;
2933     t347 = 3.0*
2934         t212*t58*t92*t93;
2935     t348 = -51.9472676981276*t67*t71*t214*t72*t215*t76*t216;
2936     t349 = 3.508934038473122*
2937         t67*t71*t214*t72*t219*t76*t97;
2938     t350 = .1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*
2939         t76*t97;
2940     t351 = -1.754467019236561*t67*t71*t222*t72*t96*t76*t97;
2941     t352 = -
2942         .0177177245333333*t1*t2*t3*t210*t65;
2943     t353 = .0029298488058805*t67*t1*t2*t3*t210*t71*t76*t79;
2944     t354 = 3.0*
2945         t254*t67*t69*t70*t76;
2946     t355 = -24.0*t111*t119*t67*t69*t76;
2947     t356 = 60.0*t243*t67*t69*t76*t85;
2948     t357 = 36.0*t245*t67*t70*t76*t85;
2949     t358 = pow(t91,3.0);
2950     t359 = 1/pow(t63,6.0);
2951     t360 = 1/pow(t64,3.0);
2952     t361 = 517.2501470570614*t358*t58*t359*t360;
2953     t362 = 1/pow(t63,5.0);
2954     t363 = -96.4909459329066*t358*t58*t362*t203;
2955     t364 = -3.43668585764369*t1*t2*t3*t89*t201*t202*t203;
2956     t365 = 48.2454729664533*
2957         t212*t91*t58*t202*t203;
2958     t366 = 6.0*t358*t58*t202*t93;
2959     t367 = .4273999999999999*t1*t2*t3*t89*t201*t205*t93;
2960     t368 = -
2961         6.0*t212*t91*t58*t205*t93;
2962     t369 = -0.2137*t1*t2*t3*t89*t212*t92*t93;
2963     t370 = .2849333333333333*t1*t2*t3*t210*t91*t92*t93;
2964     t371 = 1/
2965         pow(t56,3.666666666666667);
2966     t372 = 1/pow(t60,7.0);
2967     t373 = 1/pow(t56,3.333333333333333);
2968     t374 = 1/pow(t56,3.166666666666667);
2969     t375 = -3.200040277777777*t14*t15*t16*t374-3.720474074074074*
2970         t1*t2*t3*t373-1.5358125*t8*t9*t372-1.460562962962963*t4*t5*
2971         t6*t371;
2972     t376 = .9999999999999999*t375*t58*t92*t93;
2973     t377 = pow(t95,3.0);
2974     t378 = 1/pow(t77,6.0);
2975     t379 = 1/pow(t78,3.0);
2976     t380 = -1025.38970210078*t67*t71*t377*t72*t378*t76*t379;
2977     t381 = -
2978         51.9472676981276*t67*t71*t214*t72*t215*t108*t216;
2979     t382 = 1/pow(t77,5.0);
2980     t383 = 103.8945353962552*t67*t71*t377*t72*t382*t76*t216;
2981     t384 = 1.926377843805565*
2982         t67*t1*t2*t3*t89*t71*t214*t215*t76*t216;
2983     t385 = -51.9472676981276*t67*t71*t222*t95*t72*t215*t76*
2984         t216;
2985     t386 = -51.9472676981276*t67*t114*t214*t72*t215*t76*t216;
2986     t387 = 3.508934038473122*
2987         t67*t71*t214*t72*t219*t108*t97;
2988     t388 = .1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*
2989         t108*t97;
2990     t389 = -1.754467019236561*t67*t71*t222*t72*t96*t108*t97;
2991     t390 = -
2992         3.508934038473122*t67*t71*t377*t72*t215*t76*t97;
2993     t391 = -.1301229705933783*t67*t1*t2*t3*t89*t71*t214*t219*
2994         t76*t97;
2995     t392 = 3.508934038473122*t67*t71*t222*t95*t72*t219*t76*
2996         t97;
2997     t393 = 3.508934038473122*t67*t114*t214*t72*t219*t76*t97;
2998     t394 = .0650614852966891*
2999         t67*t1*t2*t3*t89*t71*t222*t96*t76*t97;
3000     t395 = .1301229705933783*t67*t1*t2*t3*t89*t114*t95*t96*
3001         t76*t97;
3002     t396 = -.0867486470622522*t67*t1*t2*t3*t210*t71*t95*t96*
3003         t76*t97;
3004     t397 = -4.36336574074074*t14*t15*t16*t374-3.757288888888889*
3005         t1*t2*t3*t373-0.82524375*t8*t9*t372-1.471733333333333*t4*t5*
3006         t6*t371;
3007     t398 = -.5848223397455204*t67*t71*t397*t72*t96*t76*t97;
3008     t399 = -
3009         1.754467019236561*t67*t114*t222*t72*t96*t76*t97;
3010     t400 = .0137804524148148*t1*t2*t3*t373*t65;
3011     t401 = pow(t103,3.0);
3012     t402 = 1/pow(t74,1.666666666666667);
3013     t403 = 6.0*t68*t70;
3014     t404 = -6.0*t228;
3015     t405 = t404+t403;
3016     t406 = pow(t106,3.0);
3017     t407 = 1/pow(t75,1.666666666666667);
3018     t408 = -6.0*t68*t70;
3019     t409 = 6.0*t228;
3020     t410 = t409+t408;
3021     t411 = 1.333333333333333*t107*t410-.2962962962962963*
3022         t406*t407+1.333333333333333*t104*t405-.2962962962962963*t401*
3023         t402+1.333333333333333*t106*t233*t236+1.333333333333333*t103*
3024         t227*t231;
3025     t412 = .0197517897025652*t67*t71*t72*t411*t79;
3026     t413 = .0592553691076956*t67*t114*t72*t237*t79;
3027     t414 = .0029298488058805*t67*t1*t2*t3*t210*t71*t108*t79;
3028     t415 = .0592553691076956*
3029         t67*t247*t72*t108*t79;
3030     t416 = .0029298488058805*t67*t1*t2*t3*t210*t114*t76*t79;
3031     t417 = -
3032         .0022787712934626*t67*t1*t2*t3*t373*t71*t76*t79;
3033     t418 = 1/pow(t56,7.0);
3034     t419 = 120.0*t418*t69;
3035     t420 = 144.0*t111*t245;
3036     t421 = -24.0*t68*t70;
3037     t422 = t421+t420+t419-240.0*t113*t243;
3038     t423 = .0197517897025652*t67*t422*t72*t76*t79;
3039     t424 = pow(t116,3.0);
3040     t425 = 1/pow(t82,6.0);
3041     t426 = 1/pow(t83,3.0);
3042     t427 = 1/pow(t82,5.0);
3043     t428 = -5.948240277777777*t14*t15*t16*t374-6.427244444444445*
3044         t1*t2*t3*t373-3.1558125*t8*t9*t372-1.852355555555556*t4*t5*
3045         t6*t371;
3046     t429 = -.2849333333333333*t1*t2*t3*t210*t91*t92*t93-.9999999999999999*
3047         t375*t58*t92*t93+0.2137*t1*t2*t3*t89*t212*t92*t93+6.0*t212*
3048         t91*t58*t205*t93-.4273999999999999*t1*t2*t3*t89*t201*t205*
3049         t93-6.0*t358*t58*t202*t93+.0066249796148148*t1*t2*t3*t373*
3050         t84+6.0*t118*t250*t424*t81-6.0*t116*t118*t252*t253*t81-.0137804524148148*
3051         t1*t2*t3*t373*t65+2069.133687865597*t424*t81*t425*t426-517.2501470570614*
3052         t358*t58*t359*t360-192.9880990672242*t424*t81*t427*t251+96.4940495336121*
3053         t253*t116*t81*t250*t251-6.60919909938887*t1*t2*t3*t89*t249*
3054         t250*t251+96.4909459329066*t358*t58*t362*t203-48.2454729664533*
3055         t212*t91*t58*t202*t203+3.43668585764369*t1*t2*t3*t89*t201*
3056         t202*t203+.4109599999999999*t1*t2*t3*t89*t249*t252*t118+t428*
3057         t81*t117*t118-0.20548*t1*t2*t3*t89*t253*t117*t118+.2739733333333333*
3058         t1*t2*t3*t210*t116*t117*t118;
3059     t430 = t67*t69*t70*t76*t429;
3060     t431 = 3.0*t108*t254*t67*t69*t70;
3061     t432 = -12.0*t111*t254*t67*t69*t76;
3062     t433 = -24.0*t108*t111*t119*t67*t69;
3063     t434 = 24.0*t108*t113*t119*t67*t70;
3064     t435 = 60.0*t119*t243*t67*t69*t76;
3065     t436 = 36.0*t119*t245*t67*t70*t76;
3066     t437 = t67*t69*t70*t411*t85;
3067     t438 = 60.0*t108*t243*t67*t69*t85;
3068     t439 = -96.0*t108*t111*t113*t67*t85;
3069     t440 = 36.0*t108*t245*t67*t70*t85;
3070     t441 = -120.0*t418*t67*t69*t76*t85;
3071     t442 = -144.0*t111*t245*t67*t76*t85;
3072     t443 = 24.0*t67*t68*t70*t76*t85;
3073     t444 = -1.0*t40*t341*t28*t45*rhoa+192.9880990672242*t187*
3074         t337*t28*t339*rhoa-2069.133687865597*t336*t337*t28*t338*rhoa+
3075         6.0*t40*t192*t44*t28*t190*rhoa-96.4940495336121*t187*t192*
3076         t44*t28*t189*rhoa-6.0*t40*t337*t28*t189*rhoa+t56*(-1.754467019236561*
3077         t67*t247*t95*t72*t96*t76*t97-1.754467019236561*t67*t71*t95*
3078         t72*t96*t237*t97-3.508934038473122*t67*t114*t95*t72*t96*t108*
3079         t97+240.0*t113*t243*t67*t76*t85+12.0*t113*t237*t67*t70*t85-
3080         12.0*t111*t237*t67*t69*t85-.0021973866044104*t67*t1*t2*t3*
3081         t89*t247*t76*t79-.0021973866044104*t67*t1*t2*t3*t89*t71*t237*
3082         t79-.0043947732088208*t67*t1*t2*t3*t89*t114*t108*t79+12.0*
3083         t113*t254*t67*t70*t76-96.0*t111*t113*t119*t67*t76+3.0*t119*
3084         t237*t67*t69*t70+t443+t442+t441+t440+t439+t438+t437+t436+t435+
3085         t434+t433+t432+t431+t430+t423+t417+t416+t415+t414+t413+t412+
3086         t400+t399+t398+t396+t395+t394+t393+t392+t391+t390+t389+t388+
3087         t387+t386+t385+t384+t383+t381+t380+t376+t370+t369+t368+t367+
3088         t366+t365+t364+t363+t361)-3.508934038473122*t67*t114*t95*t72*
3089         t96*t76*t97-3.508934038473122*t67*t71*t95*t72*t96*t108*t97-
3090         96.0*t111*t113*t67*t76*t85+3.0*t237*t67*t69*t70*t85+24.0*t108*
3091         t113*t67*t70*t85-24.0*t108*t111*t67*t69*t85+.0592553691076956*
3092         t67*t247*t72*t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t114*
3093         t76*t79+.0592553691076956*t67*t71*t72*t237*t79+.1185107382153912*
3094         t67*t114*t72*t108*t79-.0043947732088208*t67*t1*t2*t3*t89*t71*
3095         t108*t79+24.0*t113*t119*t67*t70*t76+6.0*t108*t119*t67*t69*
3096         t70-3.0*t40*t192*t28*t45+.1369866666666666*t1*t2*t3*t40*t44*
3097         t45*t43+t357+t356+t355+t354+t353+t352+t351+t350+t349+t348+
3098         t347+t346+t345+t344+.0018928513185185*t1*t2*t3*t19*t191+6.0*
3099         t40*t188*t28*t190-96.4940495336121*t187*t188*t28*t189+0.20548*
3100         t1*t2*t3*t40*t192*t45*t12-.4109599999999999*t1*t2*t3*t40*t188*
3101         t190*t12+6.60919909938887*t1*t2*t3*t187*t188*t189*t12;
3102     t445 = 1/pow(t52,5.0);
3103     t446 = -.1925013688888889*t21*t334*t54+.0133774338133333*
3104         t21*t334*t50*t53+0.01245637888*t20*t333*t53-7.333455360000001e-5*
3105         t21*t334*t51*t124-2.6331283968e-4*t20*t333*t50*t124-5.003507711999999e-5*
3106         t34*t332*t124+1.1314473984e-6*t20*t333*t51*t265+8.487910195200001e-7*
3107         t34*t332*t50*t265-3.2914833408e-9*t34*t332*t51*t445;
3108     t447 = .0395035794051304*t67*t71*t72*t267*t79;
3109     t448 = .0395035794051304*t67*t114*t72*t161*t79;
3110     t449 = .0395035794051304*t67*t163*t72*t108*t79;
3111     t450 = .0395035794051304*t67*t268*t72*t76*t79;
3112     t451 = 2.0*t267*t67*t69*t70*t85;
3113     t452 = -1.169644679491041*t67*t71*t95*t72*t96*t267*t97;
3114     t453 = -
3115         1.169644679491041*t67*t114*t95*t72*t96*t161*t97;
3116     t454 = -1.169644679491041*t67*t163*t95*t72*t96*t108*t97;
3117     t455 = -
3118         1.169644679491041*t67*t268*t95*t72*t96*t76*t97;
3119     t456 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t267*t79;
3120     t457 = t403-
3121         2.0*t228;
3122     t458 = t408+2.0*t228;
3123     t459 = 1.777777777777778*t106*t228*t233*t68-1.777777777777778*
3124         t103*t227*t228*t68+1.333333333333333*t107*t458+1.333333333333333*
3125         t104*t457-.2962962962962963*t160*t232*t407-.2962962962962963*
3126         t159*t226*t402+.4444444444444444*t160*t233*t236+.4444444444444444*
3127         t159*t227*t231;
3128     t460 = -.0014649244029403*t67*t1*t2*t3*t89*t114*t161*
3129         t79;
3130     t461 = -.0014649244029403*t67*t1*t2*t3*t89*t163*t108*
3131         t79;
3132     t462 = -.0014649244029403*t67*t1*t2*t3*t89*t268*t76*t79;
3133     t463 = -
3134         48.0*t111*t245;
3135     t464 = 24.0*t68*t70;
3136     t465 = t464+t463+t419-80.0*t113*t243;
3137     t466 = 2.0*t119*t267*t67*t69*t70;
3138     t467 = -12.0*t119*t245*t67*t70*t76;
3139     t468 = -8.0*t111*t267*t67*t69*t85;
3140     t469 = -24.0*t108*t245*t67*t70*t85;
3141     t470 = 48.0*t111*t245*t67*t76*t85;
3142     t471 = -24.0*t67*t68*t70*t76*t85;
3143     t472 = t56*(.0433743235311261*t67*t1*t2*t3*t89*t163*t95*
3144         t96*t76*t97+.0867486470622522*t67*t1*t2*t3*t89*t114*t95*t96*
3145         t76*t97-.5848223397455204*t67*t247*t95*t72*t96*t76*t97-.5848223397455204*
3146         t67*t163*t222*t72*t96*t76*t97-1.169644679491041*t67*t114*t222*
3147         t72*t96*t76*t97+1.169644679491041*t67*t163*t214*t72*t219*t76*
3148         t97+2.339289358982082*t67*t114*t214*t72*t219*t76*t97-.5848223397455204*
3149         t67*t71*t95*t72*t96*t237*t97+.0433743235311261*t67*t1*t2*t3*
3150         t89*t71*t95*t96*t161*t97-.5848223397455204*t67*t71*t222*t72*
3151         t96*t161*t97+1.169644679491041*t67*t71*t214*t72*t219*t161*
3152         t97+.0867486470622522*t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-
3153         1.169644679491041*t67*t114*t95*t72*t96*t108*t97-1.169644679491041*
3154         t67*t71*t222*t72*t96*t108*t97+2.339289358982082*t67*t71*t214*
3155         t72*t219*t108*t97+80.0*t113*t243*t67*t76*t85+8.0*t113*t267*
3156         t67*t70*t85+12.0*t161*t245*t67*t70*t85-4.0*t113*t237*t67*t70*
3157         t85+20.0*t161*t243*t67*t69*t85+40.0*t108*t243*t67*t69*t85-
3158         4.0*t111*t237*t67*t69*t85-32.0*t111*t113*t161*t67*t85+t67*
3159         t69*t70*t459*t85+.0197517897025652*t67*t465*t72*t76*t79-7.324622014701263e-4*
3160         t67*t1*t2*t3*t89*t247*t76*t79+9.766162686268349e-4*t67*t1*
3161         t2*t3*t210*t163*t76*t79+.0019532325372537*t67*t1*t2*t3*t210*
3162         t114*t76*t79+.0197517897025652*t67*t71*t72*t459*t79+.0395035794051304*
3163         t67*t114*t72*t267*t79+.0197517897025652*t67*t163*t72*t237*
3164         t79-7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t237*t79+.0197517897025652*
3165         t67*t247*t72*t161*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
3166         t71*t161*t79+.0395035794051304*t67*t268*t72*t108*t79+.0019532325372537*
3167         t67*t1*t2*t3*t210*t71*t108*t79-.0014649244029403*t67*t1*t2*
3168         t3*t89*t114*t108*t79+4.0*t113*t254*t67*t70*t76-32.0*t111*t113*
3169         t119*t67*t76+2.0*t108*t254*t67*t69*t70+8.0*t113*t119*t161*
3170         t67*t70-8.0*t111*t119*t161*t67*t69-16.0*t108*t111*t119*t67*
3171         t69+t471+t470+t469+t468+t467+t466+t462+t461+t460+t456+t455+
3172         t454+t453+t452+t441+t435+t432+t430+t417+t400+t398+t396+t394+
3173         t392+t391+t390+t385+t384+t383+t380+t376+t370+t369+t368+t367+
3174         t366+t365+t364+t363+t361+t67*t69*t70*t161*t254-17.31575589937587*
3175         t67*t163*t214*t72*t215*t76*t216-34.63151179875173*t67*t114*
3176         t214*t72*t215*t76*t216-17.31575589937587*t67*t71*t214*t72*
3177         t215*t161*t216-34.63151179875173*t67*t71*t214*t72*t215*t108*
3178         t216+t67*t69*t70*t237*t119)-2.339289358982082*t67*t114*t95*
3179         t72*t96*t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t108*
3180         t97+8.0*t113*t161*t67*t70*t85-16.0*t108*t111*t67*t69*t85-.0029298488058805*
3181         t67*t1*t2*t3*t89*t114*t76*t79-.0029298488058805*t67*t1*t2*
3182         t3*t89*t71*t108*t79+4.0*t108*t119*t67*t69*t70+t451+t450+t449+
3183         t448+t447+t356+t355+t354+t353+t352+t351+t350+t349+t348+t347+
3184         t346+t345+t344+t309+t306+t303+t301+t294+t293+t269+t262+t259+
3185         t258+t248+t240+t238;
3186     t473 = .0041521262933333*t21*t48*t185*t53*t149-8.777094656e-5*
3187         t21*t48*t185*t50*t124*t149-5.003507711999999e-5*t20*t48*t184*
3188         t124*t149+3.771491328e-7*t21*t48*t185*t51*t265*t149+8.487910195200001e-7*
3189         t20*t48*t184*t50*t265*t149-3.2914833408e-9*t20*t48*t184*t51*
3190         t445*t149;
3191     t474 = pow(grada,9.0);
3192     t475 = 1/pow(rhoa,15.33333333333333);
3193     t476 = -2.705245155555555*grada*t26*t185+5.33076096*t170*
3194         t24*t184-2.878768753777778*t168*t35*t183+.5997765290666668*
3195         t272*t181*t182-.0431222510933333*t474*t329*t475;
3196     t477 = .0037421511111111*grada*t32*t185+.0037189802666667*
3197         t170*t31*t184-6.637543196444444e-5*t168*t46*t183+3.596589192533334e-7*
3198         t272*t193*t182-6.15601493333333e-10*t474*t342*t475;
3199     t478 = .0825005866666667*grada*t185*t54-0.00573318592*
3200         grada*t185*t50*t53-0.00764368704*t170*t184*t53+3.14290944e-5*
3201         grada*t185*t51*t124+1.6157833344e-4*t170*t184*t50*t124+3.752630784e-5*
3202         t168*t183*t124-6.942972672e-7*t170*t184*t51*t265-6.365932646400001e-7*
3203         t168*t183*t50*t265+2.4686125056e-9*t168*t183*t51*t445;
3204     t479 = -0.00311409472*t21*gradb*t185*t53*t49+6.582820991999998e-5*
3205         t21*gradb*t185*t50*t124*t49+3.752630784e-5*t20*gradb*t184*
3206         t124*t49-2.828618496e-7*t21*gradb*t185*t51*t265*t49-6.365932646400001e-7*
3207         t20*gradb*t184*t50*t265*t49+2.4686125056e-9*t20*gradb*t184*
3208         t51*t445*t49;
3209     t480 = -8.0*t107*t68*t70+8.0*t104*t68*t70+1.777777777777778*
3210         t160*t228*t233*t68-1.777777777777778*t159*t227*t228*t68-.2962962962962963*
3211         t106*t297*t407-.2962962962962963*t103*t295*t402+.4444444444444444*
3212         t106*t233*t298+.4444444444444444*t103*t227*t296-2.666666666666667*
3213         t107*t228+2.666666666666667*t104*t228;
3214     t481 = t463+t421+t419+80.0*t113*t243;
3215     t482 = -24.0*t161*t245*t67*t70*t85;
3216     t483 = t56*(.0867486470622522*t67*t1*t2*t3*t89*t163*t95*
3217         t96*t76*t97+.0433743235311261*t67*t1*t2*t3*t89*t114*t95*t96*
3218         t76*t97-.5848223397455204*t67*t304*t95*t72*t96*t76*t97-1.169644679491041*
3219         t67*t163*t222*t72*t96*t76*t97-.5848223397455204*t67*t114*t222*
3220         t72*t96*t76*t97+2.339289358982082*t67*t163*t214*t72*t219*t76*
3221         t97+1.169644679491041*t67*t114*t214*t72*t219*t76*t97-.5848223397455204*
3222         t67*t71*t95*t72*t96*t299*t97+.0867486470622522*t67*t1*t2*t3*
3223         t89*t71*t95*t96*t161*t97-1.169644679491041*t67*t163*t95*t72*
3224         t96*t161*t97-1.169644679491041*t67*t71*t222*t72*t96*t161*t97+
3225         2.339289358982082*t67*t71*t214*t72*t219*t161*t97+.0433743235311261*
3226         t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-.5848223397455204*t67*
3227         t71*t222*t72*t96*t108*t97+1.169644679491041*t67*t71*t214*t72*
3228         t219*t108*t97-80.0*t113*t243*t67*t76*t85+4.0*t113*t299*t67*
3229         t70*t85-8.0*t113*t267*t67*t70*t85+12.0*t108*t245*t67*t70*t85-
3230         4.0*t111*t299*t67*t69*t85+40.0*t161*t243*t67*t69*t85+20.0*
3231         t108*t243*t67*t69*t85+32.0*t108*t111*t113*t67*t85+t67*t69*
3232         t70*t480*t85+.0197517897025652*t67*t481*t72*t76*t79-7.324622014701263e-4*
3233         t67*t1*t2*t3*t89*t304*t76*t79+.0019532325372537*t67*t1*t2*
3234         t3*t210*t163*t76*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
3235         t114*t76*t79+.0197517897025652*t67*t71*t72*t480*t79+.0197517897025652*
3236         t67*t114*t72*t299*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*
3237         t71*t299*t79+.0395035794051304*t67*t163*t72*t267*t79+.0395035794051304*
3238         t67*t268*t72*t161*t79+.0019532325372537*t67*t1*t2*t3*t210*
3239         t71*t161*t79-.0014649244029403*t67*t1*t2*t3*t89*t163*t161*
3240         t79+.0197517897025652*t67*t304*t72*t108*t79+9.766162686268349e-4*
3241         t67*t1*t2*t3*t210*t71*t108*t79-4.0*t113*t254*t67*t70*t76+32.0*
3242         t111*t113*t119*t67*t76+2.0*t161*t254*t67*t69*t70-8.0*t108*
3243         t113*t119*t67*t70-16.0*t111*t119*t161*t67*t69-8.0*t108*t111*
3244         t119*t67*t69+t482+t470+t468+t467+t466+t462+t461+t460+t456+
3245         t455+t454+t453+t452+t443+t441+t435+t432+t430+t417+t400+t398+
3246         t396+t394+t392+t391+t390+t385+t384+t383+t380+t376+t370+t369+
3247         t368+t367+t366+t365+t364+t363+t361+t67*t69*t70*t108*t254-34.63151179875173*
3248         t67*t163*t214*t72*t215*t76*t216-17.31575589937587*t67*t114*
3249         t214*t72*t215*t76*t216-34.63151179875173*t67*t71*t214*t72*
3250         t215*t161*t216-17.31575589937587*t67*t71*t214*t72*t215*t108*
3251         t216+t67*t69*t70*t299*t119)-2.339289358982082*t67*t163*t95*
3252         t72*t96*t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t161*
3253         t97-8.0*t108*t113*t67*t70*t85-16.0*t111*t161*t67*t69*t85-.0029298488058805*
3254         t67*t1*t2*t3*t89*t163*t76*t79-.0029298488058805*t67*t1*t2*
3255         t3*t89*t71*t161*t79+4.0*t119*t161*t67*t69*t70+t451+t450+t449+
3256         t448+t447+t356+t355+t354+t353+t352+t351+t350+t349+t348+t347+
3257         t346+t345+t344+t310+t308+t307+t305+t302+t300+t269+t260+t256+
3258         t241+t239+t224+t218;
3259     t484 = .0041521262933333*t21*t48*t38*t53*t283-8.777094656000001e-5*
3260         t21*t48*t38*t50*t124*t283+3.771491328e-7*t21*t48*t38*t51*t265*
3261         t283-5.003507711999999e-5*t21*t135*t38*t124*t282+8.487910195200001e-7*
3262         t21*t135*t38*t50*t265*t282-3.2914833408e-9*t21*t135*t38*t51*
3263         t445*t282;
3264     t485 = -0.00226479616*grada*t48*t38*t53*t149+4.787506176e-5*
3265         grada*t48*t38*t50*t124*t149+3.752630784e-5*t170*t48*t37*t124*
3266         t149-2.057177088e-7*grada*t48*t38*t51*t265*t149-6.365932646400001e-7*
3267         t170*t48*t37*t50*t265*t149+2.4686125056e-9*t170*t48*t37*t51*
3268         t445*t149;
3269     t486 = -0.00226479616*t21*gradb*t38*t53*t149+4.787506176e-5*
3270         t21*gradb*t38*t50*t124*t149-2.057177088e-7*t21*gradb*t38*t51*
3271         t265*t149+3.752630784e-5*t21*t176*t38*t124*t148-6.365932646400001e-7*
3272         t21*t176*t38*t50*t265*t148+2.4686125056e-9*t21*t176*t38*t51*
3273         t445*t148;
3274     t487 = 1/pow(rhoa,14.33333333333333);
3275     t488 = .7377941333333333*t26*t38-2.633824853333333*t21*
3276         t24*t37+1.761004373333333*t20*t35*t36-.4144586752000001*t34*
3277         t181*t273+0.03234168832*t180*t329*t487;
3278     t489 = -.0010205866666667*t32*t38-.0017586141866667*t21*
3279         t31*t37+3.931819349333333e-5*t20*t46*t36-2.4449490944e-7*t34*
3280         t193*t273+4.6170112e-10*t180*t342*t487;
3281     t490 = -0.02250016*t38*t54+0.00156359616*t38*t50*t53+
3282         0.0042464928*t21*t37*t53-8.5715712e-6*t38*t51*t124-8.976574079999999e-5*
3283         t21*t37*t50*t124-2.814473087999999e-5*t20*t36*t124+3.85720704e-7*
3284         t21*t37*t51*t265+4.774449484800001e-7*t20*t36*t50*t265-1.8514593792e-9*
3285         t20*t36*t51*t445;
3286     t491 = 0.00169859712*grada*gradb*t38*t53*t49-3.590629632e-5*
3287         grada*gradb*t38*t50*t124*t49-2.814473087999999e-5*t170*gradb*
3288         t37*t124*t49+1.542882816e-7*grada*gradb*t38*t51*t265*t49+4.774449484800001e-7*
3289         t170*gradb*t37*t50*t265*t49-1.8514593792e-9*t170*gradb*t37*
3290         t51*t445*t49;
3291     t492 = 8.492985599999999e-4*t21*t38*t53*t49-1.795314816e-5*
3292         t21*t38*t50*t124*t49+7.714414080000002e-8*t21*t38*t51*t265*
3293         t49-2.814473087999999e-5*t21*t48*t38*t124*t138+4.774449484800001e-7*
3294         t21*t48*t38*t50*t265*t138-1.8514593792e-9*t21*t48*t38*t51*
3295         t445*t138;
3296     t493 = pow(gradb,10.0);
3297     t494 = 1/pow(t136,5.0);
3298     t495 = 1/pow(rhob,16.33333333333333);
3299     t496 = 1/pow(rhob,13.66666666666667);
3300     t497 = 1/pow(rhob,11.0);
3301     t498 = 1/pow(rhob,8.333333333333334);
3302     t499 = 1/pow(rhob,5.666666666666667);
3303     t500 = 6.312238696296296*t48*t139*t499-9.502537244444445*
3304         t135*t137*t498+4.47863379437037*t145*t146*t497-.8536048526222222*
3305         t278*t279*t496+.0574963347911111*t493*t494*t495;
3306     t501 = 1/pow(t131,3.0);
3307     t502 = pow(t155,3.0);
3308     t503 = 1/pow(t130,6.0);
3309     t504 = 1/pow(t130,5.0);
3310     t505 = 1/pow(rhob,3.333333333333333);
3311     t506 = -5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
3312         3.1558125*t8*t9/pow(t127,7.0)-6.427244444444445*t1*t2*t3*t505-
3313         1.852355555555556*t4*t5*t6*t149;
3314     t507 = 1/pow(t141,5.0);
3315     t508 = -.0087316859259259*t48*t143*t499-.0068256147911111*
3316         t135*t142*t498+1.056471214459259e-4*t145*t157*t497-5.180203190044445e-7*
3317         t278*t291*t496+8.20801991111111e-10*t493*t507*t495;
3318     t509 = -51.9472676981276*t67*t71*t214*t72*t215*t161*t216;
3319     t510 = -
3320         51.9472676981276*t67*t163*t214*t72*t215*t76*t216;
3321     t511 = 3.508934038473122*t67*t71*t214*t72*t219*t161*t97;
3322     t512 = .1301229705933783*
3323         t67*t1*t2*t3*t89*t71*t95*t96*t161*t97;
3324     t513 = -1.754467019236561*t67*t71*t222*t72*t96*t161*t97;
3325     t514 = 3.508934038473122*
3326         t67*t163*t214*t72*t219*t76*t97;
3327     t515 = .1301229705933783*t67*t1*t2*t3*t89*t163*t95*t96*
3328         t76*t97;
3329     t516 = -1.754467019236561*t67*t163*t222*t72*t96*t76*t97;
3330     t517 = pow(t159,
3331         3.0);
3332     t518 = t409+t403;
3333     t519 = pow(t160,3.0);
3334     t520 = t404+t408;
3335     t521 = 1.333333333333333*t107*t520-.2962962962962963*
3336         t407*t519+1.333333333333333*t104*t518-.2962962962962963*t402*
3337         t517+1.333333333333333*t160*t233*t298+1.333333333333333*t159*
3338         t227*t296;
3339     t522 = .0197517897025652*t67*t71*t72*t521*t79;
3340     t523 = .0592553691076956*t67*t163*t72*t299*t79;
3341     t524 = .0029298488058805*t67*t1*t2*t3*t210*t71*t161*t79;
3342     t525 = .0592553691076956*
3343         t67*t304*t72*t161*t79;
3344     t526 = .0029298488058805*t67*t1*t2*t3*t210*t163*t76*t79;
3345     t527 = t464+
3346         t420+t419+240.0*t113*t243;
3347     t528 = .0197517897025652*t67*t527*t72*t76*t79;
3348     t529 = 3.0*t161*t254*t67*t69*t70;
3349     t530 = -24.0*t111*t119*t161*t67*t69;
3350     t531 = -24.0*t113*t119*t161*t67*t70;
3351     t532 = t67*t69*t70*t521*t85;
3352     t533 = 60.0*t161*t243*t67*t69*t85;
3353     t534 = 96.0*t111*t113*t161*t67*t85;
3354     t535 = 36.0*t161*t245*t67*t70*t85;
3355     t536 = 192.9880990672242*t285*t502*t133*t504*rhob-2069.133687865597*
3356         t501*t502*t133*t503*rhob+6.0*t151*t290*t155*t133*t288*rhob-
3357         6.0*t151*t502*t133*t287*rhob-96.4940495336121*t285*t290*t155*
3358         t133*t287*rhob-1.0*t151*t506*t133*t156*rhob+t56*(-1.754467019236561*
3359         t67*t304*t95*t72*t96*t76*t97-1.754467019236561*t67*t71*t95*
3360         t72*t96*t299*t97-3.508934038473122*t67*t163*t95*t72*t96*t161*
3361         t97-240.0*t113*t243*t67*t76*t85-12.0*t113*t299*t67*t70*t85-
3362         12.0*t111*t299*t67*t69*t85-.0021973866044104*t67*t1*t2*t3*
3363         t89*t304*t76*t79-.0021973866044104*t67*t1*t2*t3*t89*t71*t299*
3364         t79-.0043947732088208*t67*t1*t2*t3*t89*t163*t161*t79-12.0*
3365         t113*t254*t67*t70*t76+96.0*t111*t113*t119*t67*t76+3.0*t119*
3366         t299*t67*t69*t70+t535+t534+t533+t532+t531+t530+t529+t528+t526+
3367         t525+t524+t523+t522+t516+t515+t514+t513+t512+t511+t510+t509+
3368         t471+t442+t441+t436+t435+t432+t430+t417+t400+t398+t396+t394+
3369         t392+t391+t390+t385+t384+t383+t380+t376+t370+t369+t368+t367+
3370         t366+t365+t364+t363+t361)-3.508934038473122*t67*t163*t95*t72*
3371         t96*t76*t97-3.508934038473122*t67*t71*t95*t72*t96*t161*t97+
3372         96.0*t111*t113*t67*t76*t85+3.0*t299*t67*t69*t70*t85-24.0*t113*
3373         t161*t67*t70*t85-24.0*t111*t161*t67*t69*t85+.0592553691076956*
3374         t67*t304*t72*t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t163*
3375         t76*t79+.0592553691076956*t67*t71*t72*t299*t79+.1185107382153912*
3376         t67*t163*t72*t161*t79-.0043947732088208*t67*t1*t2*t3*t89*t71*
3377         t161*t79-24.0*t113*t119*t67*t70*t76+6.0*t119*t161*t67*t69*
3378         t70+t357+t356+t355+t354+t353+t352+t351+t350+t349+t348+t347+
3379         t346+t345+t344+.0018928513185185*t1*t2*t3*t132*t289+6.0*t151*
3380         t286*t133*t288-96.4940495336121*t285*t286*t133*t287-3.0*t151*
3381         t290*t133*t156+.1369866666666666*t1*t2*t3*t151*t155*t156*t154-
3382         .4109599999999999*t1*t2*t3*t151*t286*t288*t129+6.60919909938887*
3383         t1*t2*t3*t285*t286*t287*t129+0.20548*t1*t2*t3*t151*t290*t156*
3384         t129;
3385     t537 = -.1925013688888889*t48*t54*t499+.0133774338133333*
3386         t48*t50*t53*t499-7.333455360000001e-5*t48*t51*t124*t499+0.01245637888*
3387         t135*t53*t498-2.6331283968e-4*t135*t50*t124*t498+1.1314473984e-6*
3388         t135*t51*t265*t498-5.003507711999999e-5*t145*t124*t497+8.487910195200001e-7*
3389         t145*t50*t265*t497-3.2914833408e-9*t145*t51*t445*t497;
3390     t538 = -0.00311409472*grada*t48*t22*t53*t283+6.582820991999998e-5*
3391         grada*t48*t22*t50*t124*t283-2.828618496e-7*grada*t48*t22*t51*
3392         t265*t283+3.752630784e-5*grada*t135*t22*t124*t282-6.365932646400001e-7*
3393         grada*t135*t22*t50*t265*t282+2.4686125056e-9*grada*t135*t22*
3394         t51*t445*t282;
3395     t539 = pow(gradb,9.0);
3396     t540 = 1/pow(rhob,15.33333333333333);
3397     t541 = -2.705245155555555*gradb*t139*t283+5.33076096*
3398         t176*t137*t282-2.878768753777778*t174*t146*t281+.5997765290666668*
3399         t314*t279*t280-.0431222510933333*t539*t494*t540;
3400     t542 = .0037421511111111*gradb*t143*t283+.0037189802666667*
3401         t176*t142*t282-6.637543196444444e-5*t174*t157*t281+3.596589192533334e-7*
3402         t314*t291*t280-6.15601493333333e-10*t539*t507*t540;
3403     t543 = .0825005866666667*gradb*t54*t283-0.00573318592*
3404         gradb*t50*t53*t283+3.14290944e-5*gradb*t51*t124*t283-0.00764368704*
3405         t176*t53*t282+1.6157833344e-4*t176*t50*t124*t282-6.942972672e-7*
3406         t176*t51*t265*t282+3.752630784e-5*t174*t124*t281-6.365932646400001e-7*
3407         t174*t50*t265*t281+2.4686125056e-9*t174*t51*t445*t281;
3408     t544 = 8.492985599999999e-4*t48*t22*t53*t149-1.795314816e-5*
3409         t48*t22*t50*t124*t149-2.814473087999999e-5*t21*t48*t25*t124*
3410         t149+7.714414080000002e-8*t48*t22*t51*t265*t149+4.774449484800001e-7*
3411         t21*t48*t25*t50*t265*t149-1.8514593792e-9*t21*t48*t25*t51*
3412         t445*t149;
3413     t545 = 0.00169859712*grada*gradb*t22*t53*t149-3.590629632e-5*
3414         grada*gradb*t22*t50*t124*t149+1.542882816e-7*grada*gradb*t22*
3415         t51*t265*t149-2.814473087999999e-5*grada*t176*t22*t124*t148+
3416         4.774449484800001e-7*grada*t176*t22*t50*t265*t148-1.8514593792e-9*
3417         grada*t176*t22*t51*t445*t148;
3418     t546 = 1/pow(rhob,14.33333333333333);
3419     t547 = .7377941333333333*t139*t149-2.633824853333333*
3420         t48*t137*t148+1.761004373333333*t135*t146*t147-.4144586752000001*
3421         t145*t279*t315+0.03234168832*t278*t494*t546;
3422     t548 = -.0010205866666667*t143*t149-.0017586141866667*
3423         t48*t142*t148+3.931819349333333e-5*t135*t157*t147-2.4449490944e-7*
3424         t145*t291*t315+4.6170112e-10*t278*t507*t546;
3425     t549 = -0.02250016*t54*t149+0.00156359616*t50*t53*t149-
3426         8.5715712e-6*t51*t124*t149+0.0042464928*t48*t53*t148-8.976574079999999e-5*
3427         t48*t50*t124*t148+3.85720704e-7*t48*t51*t265*t148-2.814473087999999e-5*
3428         t135*t124*t147+4.774449484800001e-7*t135*t50*t265*t147-1.8514593792e-9*
3429         t135*t51*t445*t147;
3430     t550 = 1/pow(rhoa,13.33333333333333);
3431     t551 = 1.04301888*grada*t24*t25-1.004815488*t170*t35*
3432         t169+.2805236736000001*t168*t181*t319-0.02425626624*t272*t329*
3433         t550;
3434     t552 = 6.5794944e-4*grada*t31*t25-2.142179328e-5*t170*
3435         t46*t169+1.6172894208e-7*t168*t193*t319-3.4627584e-10*t272*
3436         t342*t550;
3437     t553 = -0.00191092176*grada*t25*t53+4.039458336e-5*grada*
3438         t25*t50*t124+2.110854816e-5*t170*t169*t124-1.735743168e-7*
3439         grada*t25*t51*t265-3.580837113599999e-7*t170*t169*t50*t265+
3440         1.3885945344e-9*t170*t169*t51*t445;
3441     t554 = -6.369739199999999e-4*gradb*t22*t53*t49+1.346486112e-5*
3442         gradb*t22*t50*t124*t49+2.110854816e-5*t21*gradb*t25*t124*t49-
3443         5.785810560000001e-8*gradb*t22*t51*t265*t49-3.580837113599999e-7*
3444         t21*gradb*t25*t50*t265*t49+1.3885945344e-9*t21*gradb*t25*t51*
3445         t445*t49;
3446     t555 = -6.369739199999999e-4*grada*t22*t53*t49+1.346486112e-5*
3447         grada*t22*t50*t124*t49-5.785810560000001e-8*grada*t22*t51*
3448         t265*t49+2.110854816e-5*grada*t48*t22*t124*t138-3.580837113599999e-7*
3449         grada*t48*t22*t50*t265*t138+1.3885945344e-9*grada*t48*t22*
3450         t51*t445*t138;
3451     t556 = 1/pow(rhob,13.33333333333333);
3452     t557 = 1.04301888*gradb*t137*t138-1.004815488*t176*t146*
3453         t175+.2805236736000001*t174*t279*t324-0.02425626624*t314*t494*
3454         t556;
3455     t558 = 6.5794944e-4*gradb*t142*t138-2.142179328e-5*t176*
3456         t157*t175+1.6172894208e-7*t174*t291*t324-3.4627584e-10*t314*
3457         t507*t556;
3458     t559 = -0.00191092176*gradb*t53*t138+4.039458336e-5*gradb*
3459         t50*t124*t138-1.735743168e-7*gradb*t51*t265*t138+2.110854816e-5*
3460         t176*t124*t175-3.580837113599999e-7*t176*t50*t265*t175+1.3885945344e-9*
3461         t176*t51*t445*t175;
3462     t560 = pow(grada,12.0);
3463     t561 = 1/pow(t23,6.0);
3464     t562 = 1/pow(rhoa,20.0);
3465     t563 = 1/pow(rhoa,17.33333333333333);
3466     t564 = 1/pow(rhoa,14.66666666666667);
3467     t565 = 1/pow(rhoa,12.0);
3468     t566 = 1/pow(rhoa,9.333333333333334);
3469     t567 = 1/pow(rhoa,6.666666666666667);
3470     t568 = 1/pow(t18,4.0);
3471     t569 = pow(t44,4.0);
3472     t570 = 1/pow(t17,8.0);
3473     t571 = 1/pow(t17,7.0);
3474     t572 = pow(t192,2.0);
3475     t573 = 21.42414814814815*t1*t2*t3/pow(rhoa,4.333333333333333)+
3476         18.83609421296296*t14*t15*t16/pow(rhoa,4.166666666666667)+
3477         11.04534375*t8*t9/pow(t10,9.0)+6.79197037037037*t4*t5*t6*t185;
3478     t574 = 1/
3479         pow(t30,6.0);
3480     t575 = 2069.000588228246*t358*t58*t359*t360;
3481     t576 = -385.9637837316264*t358*t58*t362*t203;
3482     t577 = -13.74674343057476*t1*t2*t3*t89*t201*t202*t203;
3483     t578 = 192.9818918658132*
3484         t212*t91*t58*t202*t203;
3485     t579 = 24.0*t358*t58*t202*t93;
3486     t580 = 1.7096*t1*t2*t3*t89*t201*t205*t93;
3487     t581 = -24.0*t212*t91*t58*t205*t93;
3488     t582 = -.8547999999999998*t1*t2*t3*t89*t212*t92*t93;
3489     t583 = 1.139733333333333*
3490         t1*t2*t3*t210*t91*t92*t93;
3491     t584 = 4.0*t375*t58*t92*t93;
3492     t585 = -4101.558808403119*t67*t71*t377*t72*t378*t76*t379;
3493     t586 = 415.5781415850208*
3494         t67*t71*t377*t72*t382*t76*t216;
3495     t587 = 7.70551137522226*t67*t1*t2*t3*t89*t71*t214*t215*
3496         t76*t216;
3497     t588 = -207.7890707925104*t67*t71*t222*t95*t72*t215*t76*
3498         t216;
3499     t589 = -14.03573615389249*t67*t71*t377*t72*t215*t76*t97;
3500     t590 = -
3501         .5204918823735132*t67*t1*t2*t3*t89*t71*t214*t219*t76*t97;
3502     t591 = 14.03573615389249*
3503         t67*t71*t222*t95*t72*t219*t76*t97;
3504     t592 = .2602459411867566*t67*t1*t2*t3*t89*t71*t222*t96*
3505         t76*t97;
3506     t593 = -.3469945882490088*t67*t1*t2*t3*t210*t71*t95*t96*
3507         t76*t97;
3508     t594 = -2.339289358982082*t67*t71*t397*t72*t96*t76*t97;
3509     t595 = .0551218096592593*
3510         t1*t2*t3*t373*t65;
3511     t596 = -.0091150851738505*t67*t1*t2*t3*t373*t71*t76*t79;
3512     t597 = 4.0*
3513         t429*t67*t69*t70*t76;
3514     t598 = -48.0*t111*t254*t67*t69*t76;
3515     t599 = 240.0*t119*t243*t67*t69*t76;
3516     t600 = 144.0*t119*t245*t67*t70*t76;
3517     t601 = -480.0*t418*t67*t69*t76*t85;
3518     t602 = -576.0*t111*t245*t67*t76*t85;
3519     t603 = pow(t91,4.0);
3520     t604 = 1/pow(t63,8.0);
3521     t605 = 1/pow(t64,4.0);
3522     t606 = 24954.97798673546*t603*t58*t604*t605;
3523     t607 = 1/pow(t63,7.0);
3524     t608 = -6207.001764684737*t603*t58*t607*t360;
3525     t609 = -147.3818085681254*t1*t2*t3*t89*t358*t359*t360;
3526     t610 = 3103.500882342369*
3527         t212*t201*t58*t359*t360;
3528     t611 = 578.9456755974396*t603*t58*t359*t203;
3529     t612 = 27.49348686114952*t1*t2*t3*t89*t358*t362*t203;
3530     t613 = -
3531         578.9456755974396*t212*t201*t58*t362*t203;
3532     t614 = -13.74674343057476*t1*t2*t3*t89*t212*t91*t202*
3533         t203;
3534     t615 = 9.164495620383173*t1*t2*t3*t210*t201*t202*t203;
3535     t616 = pow(t212,
3536         2.0);
3537     t617 = 48.2454729664533*t616*t58*t202*t203;
3538     t618 = 64.3272972886044*t375*t91*t58*t202*t203;
3539     t619 = -24.0*t603*t58*t362*t93;
3540     t620 = -1.7096*t1*t2*t3*t89*t358*t202*t93;
3541     t621 = 36.0*t212*t201*t58*t202*t93;
3542     t622 = 1.7096*t1*t2*t3*t89*t212*t91*t205*t93;
3543     t623 = -1.139733333333333*t1*t2*t3*t210*t201*t205*t93;
3544     t624 = -
3545         6.0*t616*t58*t205*t93;
3546     t625 = -8.0*t375*t91*t58*t205*t93;
3547     t626 = -.2849333333333333*t1*t2*t3*t89*t375*t92*t93;
3548     t627 = .5698666666666665*
3549         t1*t2*t3*t210*t212*t92*t93;
3550     t628 = -.8864592592592592*t1*t2*t3*t373*t91*t92*t93;
3551     t629 = 1/
3552         pow(t56,4.666666666666667);
3553     t630 = 1/pow(t60,9.0);
3554     t631 = 1/pow(t56,4.333333333333333);
3555     t632 = 1/pow(t56,4.166666666666667);
3556     t633 = 10.13346087962963*t14*t15*t16*t632+12.40158024691358*
3557         t1*t2*t3*t631+5.37534375*t8*t9*t630+5.355397530864196*t4*t5*
3558         t6*t629;
3559     t634 = .9999999999999999*t633*t58*t92*t93;
3560     t635 = pow(t95,4.0);
3561     t636 = -91080.98259910994*t635*t67*t71*t72*t76/(pow(t77,
3562         8.0)*pow(t78,4.0));
3563     t637 = 12304.67642520936*t379*t635*t67*t71*t72*t76/pow(t77,
3564         7.0);
3565     t638 = 152.0994724782823*t67*t1*t2*t3*t89*t71*t377*t378*
3566         t76*t379;
3567     t639 = -6152.338212604678*t67*t71*t222*t214*t72*t378*
3568         t76*t379;
3569     t640 = -623.3672123775311*t67*t71*t635*t72*t378*t76*t216;
3570     t641 = -
3571         15.41102275044452*t67*t1*t2*t3*t89*t71*t377*t382*t76*t216;
3572     t642 = 623.3672123775311*
3573         t67*t71*t222*t214*t72*t382*t76*t216;
3574     t643 = 7.70551137522226*t67*t1*t2*t3*t89*t71*t222*t95*
3575         t215*t76*t216;
3576     t644 = -5.137007583481506*t67*t1*t2*t3*t210*t71*t214*
3577         t215*t76*t216;
3578     t645 = pow(t222,2.0);
3579     t646 = -51.9472676981276*t67*t71*t645*t72*t215*t76*t216;
3580     t647 = -
3581         69.26302359750346*t67*t71*t397*t95*t72*t215*t76*t216;
3582     t648 = 14.03573615389249*t67*t71*t635*t72*t382*t76*t97;
3583     t649 = .5204918823735132*
3584         t67*t1*t2*t3*t89*t71*t377*t215*t76*t97;
3585     t650 = -21.05360423083874*t67*t71*t222*t214*t72*t215*
3586         t76*t97;
3587     t651 = -.5204918823735132*t67*t1*t2*t3*t89*t71*t222*t95*
3588         t219*t76*t97;
3589     t652 = .3469945882490088*t67*t1*t2*t3*t210*t71*t214*t219*
3590         t76*t97;
3591     t653 = 3.508934038473122*t67*t71*t645*t72*t219*t76*t97;
3592     t654 = 4.678578717964164*
3593         t67*t71*t397*t95*t72*t219*t76*t97;
3594     t655 = .0867486470622522*t67*t1*t2*t3*t89*t71*t397*t96*
3595         t76*t97;
3596     t656 = -.1734972941245044*t67*t1*t2*t3*t210*t71*t222*
3597         t96*t76*t97;
3598     t657 = 0.269884679749229*t67*t1*t2*t3*t373*t71*t95*t96*
3599         t76*t97;
3600     t658 = -.5848223397455204*t67*(13.81732484567901*t14*
3601         t15*t16*t632+12.5242962962963*t1*t2*t3*t631+2.888353125*t8*
3602         t9*t630+5.396355555555555*t4*t5*t6*t629)*t71*t72*t96*t76*t97;
3603     t659 = -
3604         .0459348413827161*t1*t2*t3*t631*t65;
3605     t660 = 1/pow(t74,2.666666666666667);
3606     t661 = -24.0*t111*t68;
3607     t662 = 24.0*t70;
3608     t663 = 1/pow(t75,2.666666666666667);
3609     t664 = 24.0*t111*t68;
3610     t665 = -24.0*t70;
3611     t666 = 1.333333333333333*t107*(t665+t664)+.4938271604938271*
3612         pow(t106,4.0)*t663+1.333333333333333*t104*(t662+t661)+.4938271604938271*
3613         pow(t103,4.0)*t660+1.777777777777778*t106*t233*t410-1.777777777777778*
3614         t232*t236*t407+1.777777777777778*t103*t227*t405-1.777777777777778*
3615         t226*t231*t402+1.333333333333333*t233*pow(t236,2.0)+1.333333333333333*
3616         t227*pow(t231,2.0);
3617     t667 = .0075959043115421*t67*t1*t2*t3*t631*t71*t76*t79;
3618     t668 = 1/
3619         pow(t56,8.0);
3620     t669 = -840.0*t668*t69;
3621     t670 = -1440.0*t243*t245;
3622     t671 = pow(t116,4.0);
3623     t672 = pow(t253,2.0);
3624     t673 = t67*t69*t70*t76*(.8864592592592592*t1*t2*t3*t373*
3625         t91*t92*t93-.9999999999999999*t633*t58*t92*t93+.2849333333333333*
3626         t1*t2*t3*t89*t375*t92*t93-.5698666666666665*t1*t2*t3*t210*
3627         t212*t92*t93+24.0*t603*t58*t362*t93-1.7096*t1*t2*t3*t89*t212*
3628         t91*t205*t93+8.0*t375*t91*t58*t205*t93+6.0*t616*t58*t205*t93+
3629         1.139733333333333*t1*t2*t3*t210*t201*t205*t93-36.0*t212*t201*
3630         t58*t202*t93+1.7096*t1*t2*t3*t89*t358*t202*t93-0.022083265382716*
3631         t1*t2*t3*t631*t84+199659.0885685683*t671*t81/(pow(t82,8.0)*
3632         pow(t83,4.0))-24829.60425438716*t426*t671*t81/pow(t82,7.0)-
3633         6.0*t118*t252*t672*t81-24.0*t118*t427*t671*t81-8.0*t116*t118*
3634         t252*t428*t81+36.0*t118*t249*t250*t253*t81+.0459348413827161*
3635         t1*t2*t3*t631*t65-24954.97798673546*t603*t58*t604*t605+12414.80212719358*
3636         t253*t249*t81*t425*t426-566.8874535768302*t1*t2*t3*t89*t424*
3637         t425*t426+6207.001764684737*t603*t58*t607*t360-3103.500882342369*
3638         t212*t201*t58*t359*t360+147.3818085681254*t1*t2*t3*t89*t358*
3639         t359*t360-1157.928594403345*t253*t249*t81*t427*t251+52.87359279511096*
3640         t1*t2*t3*t89*t424*t427*t251+1157.928594403345*t671*t81*t425*
3641         t251+96.4940495336121*t672*t81*t250*t251+128.6587327114828*
3642         t428*t116*t81*t250*t251+17.62453093170365*t1*t2*t3*t210*t249*
3643         t250*t251-26.43679639755548*t1*t2*t3*t89*t253*t116*t250*t251+
3644         578.9456755974396*t212*t201*t58*t362*t203-27.49348686114952*
3645         t1*t2*t3*t89*t358*t362*t203-578.9456755974396*t603*t58*t359*
3646         t203+13.74674343057476*t1*t2*t3*t89*t212*t91*t202*t203-64.3272972886044*
3647         t375*t91*t58*t202*t203-48.2454729664533*t616*t58*t202*t203-
3648         9.164495620383173*t1*t2*t3*t210*t201*t202*t203-1.095893333333333*
3649         t1*t2*t3*t210*t249*t252*t118+1.64384*t1*t2*t3*t89*t253*t116*
3650         t252*t118-1.64384*t1*t2*t3*t89*t424*t250*t118+(18.83609421296296*
3651         t14*t15*t16*t632+21.42414814814815*t1*t2*t3*t631+11.04534375*
3652         t8*t9*t630+6.79197037037037*t4*t5*t6*t629)*t81*t117*t118-.2739733333333333*
3653         t1*t2*t3*t89*t428*t117*t118+.5479466666666666*t1*t2*t3*t210*
3654         t253*t117*t118-.8523614814814813*t1*t2*t3*t373*t116*t117*t118);
3655     t674 = -
3656         16.0*t111*t429*t67*t69*t76;
3657     t675 = 120.0*t243*t254*t67*t69*t76;
3658     t676 = 72.0*t245*t254*t67*t70*t76;
3659     t677 = -480.0*t119*t418*t67*t69*t76;
3660     t678 = -576.0*t111*t119*t245*t67*t76;
3661     t679 = 840.0*t668*t67*t69*t76*t85;
3662     t680 = 1440.0*t243*t245*t67*t76*t85;
3663     t681 = 24.0*t67*t70*t76*t85;
3664     t682 = 1/pow(t52,6.0);
3665     t683 = -3.508934038473122*t67*t71*t95*t72*t96*t267*t97;
3666     t684 = -
3667         3.508934038473122*t67*t114*t95*t72*t96*t161*t97;
3668     t685 = -3.508934038473122*t67*t163*t95*t72*t96*t108*t97;
3669     t686 = -
3670         3.508934038473122*t67*t268*t95*t72*t96*t76*t97;
3671     t687 = -.0043947732088208*t67*t1*t2*t3*t89*t71*t267*t79;
3672     t688 = -
3673         .0043947732088208*t67*t1*t2*t3*t89*t114*t161*t79;
3674     t689 = -.0043947732088208*t67*t1*t2*t3*t89*t163*t108*
3675         t79;
3676     t690 = -.0043947732088208*t67*t1*t2*t3*t89*t268*t76*t79;
3677     t691 = 6.0*
3678         t119*t267*t67*t69*t70;
3679     t692 = -24.0*t111*t267*t67*t69*t85;
3680     t693 = -51.9472676981276*t67*t71*t214*t72*t215*t267*t216;
3681     t694 = -
3682         51.9472676981276*t67*t114*t214*t72*t215*t161*t216;
3683     t695 = -51.9472676981276*t67*t163*t214*t72*t215*t108*
3684         t216;
3685     t696 = -51.9472676981276*t67*t268*t214*t72*t215*t76*t216;
3686     t697 = 3.508934038473122*
3687         t67*t71*t214*t72*t219*t267*t97;
3688     t698 = .1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*
3689         t267*t97;
3690     t699 = -1.754467019236561*t67*t71*t222*t72*t96*t267*t97;
3691     t700 = 3.508934038473122*
3692         t67*t114*t214*t72*t219*t161*t97;
3693     t701 = .1301229705933783*t67*t1*t2*t3*t89*t114*t95*t96*
3694         t161*t97;
3695     t702 = -1.754467019236561*t67*t114*t222*t72*t96*t161*
3696         t97;
3697     t703 = 3.508934038473122*t67*t163*t214*t72*t219*t108*
3698         t97;
3699     t704 = .1301229705933783*t67*t1*t2*t3*t89*t163*t95*t96*
3700         t108*t97;
3701     t705 = -1.754467019236561*t67*t163*t222*t72*t96*t108*
3702         t97;
3703     t706 = 3.508934038473122*t67*t268*t214*t72*t219*t76*t97;
3704     t707 = .1301229705933783*
3705         t67*t1*t2*t3*t89*t268*t95*t96*t76*t97;
3706     t708 = -1.754467019236561*t67*t268*t222*t72*t96*t76*t97;
3707     t709 = .0029298488058805*
3708         t67*t1*t2*t3*t210*t71*t267*t79;
3709     t710 = 1.333333333333333*t104*(12.0*t70+t661)+1.333333333333333*
3710         t107*(t664-12.0*t70)-1.777777777777778*t228*t232*t407*t68+
3711         1.777777777777778*t226*t228*t402*t68+2.666666666666667*t228*
3712         t233*t236*t68-2.666666666666667*t227*t228*t231*t68+.4938271604938271*
3713         t160*t406*t663+.4938271604938271*t159*t401*t660+1.333333333333333*
3714         t106*t233*t458+1.333333333333333*t103*t227*t457+.4444444444444444*
3715         t160*t233*t410-.8888888888888888*t106*t160*t236*t407+.4444444444444444*
3716         t159*t227*t405-.8888888888888888*t103*t159*t231*t402;
3717     t711 = .0029298488058805*t67*t1*t2*t3*t210*t114*t161*
3718         t79;
3719     t712 = .0029298488058805*t67*t1*t2*t3*t210*t163*t108*
3720         t79;
3721     t713 = .0029298488058805*t67*t1*t2*t3*t210*t268*t76*t79;
3722     t714 = 3.0*
3723         t254*t267*t67*t69*t70;
3724     t715 = -24.0*t111*t119*t267*t67*t69;
3725     t716 = 60.0*t243*t267*t67*t69*t85;
3726     t717 = 36.0*t245*t267*t67*t70*t85;
3727     t718 = -24.0*t67*t70*t76*t85;
3728     t719 = pow(grada,11.0);
3729     t720 = 1/pow(rhoa,19.0);
3730     t721 = -32.0*t104*t111*t68;
3731     t722 = 32.0*t107*t111*t68;
3732     t723 = t722+t721-5.333333333333333*t106*t233*t68*t70+
3733         5.333333333333333*t103*t227*t68*t70-2.37037037037037*t106*
3734         t160*t228*t407*t68+2.37037037037037*t103*t159*t228*t402*t68+
3735         .4938271604938271*t232*t297*t663+.4938271604938271*t226*t295*
3736         t660+.8888888888888888*t160*t233*t458+.8888888888888888*t159*
3737         t227*t457-.2962962962962963*t232*t298*t407-.2962962962962963*
3738         t236*t297*t407-.2962962962962963*t226*t296*t402-.2962962962962963*
3739         t231*t295*t402+.4444444444444444*t233*t236*t298+.4444444444444444*
3740         t227*t231*t296+3.555555555555555*t233*t243*t245+3.555555555555555*
3741         t227*t243*t245-1.777777777777778*t106*t228*t233+1.777777777777778*
3742         t103*t227*t228;
3743     t724 = 1/pow(rhoa,18.0);
3744     t725 = t722+t721-8.0*t160*t233*t68*t70+8.0*t159*t227*
3745         t68*t70+16.0*t107*t70-16.0*t104*t70-1.777777777777778*t228*
3746         t297*t407*t68+1.777777777777778*t228*t295*t402*t68+2.666666666666667*
3747         t228*t233*t298*t68-2.666666666666667*t227*t228*t296*t68+.4938271604938271*
3748         t106*t519*t663+.4938271604938271*t103*t517*t660+.4444444444444444*
3749         t106*t233*t520+.4444444444444444*t103*t227*t518-.8888888888888888*
3750         t106*t160*t298*t407-.8888888888888888*t103*t159*t296*t402-
3751         2.666666666666667*t160*t228*t233+2.666666666666667*t159*t227*
3752         t228;
3753     t726 = 1/pow(rhoa,17.0);
3754     t727 = pow(gradb,12.0);
3755     t728 = 1/pow(t136,6.0);
3756     t729 = 1/pow(rhob,20.0);
3757     t730 = 1/pow(rhob,17.33333333333333);
3758     t731 = 1/pow(rhob,14.66666666666667);
3759     t732 = 1/pow(rhob,12.0);
3760     t733 = 1/pow(rhob,9.333333333333334);
3761     t734 = 1/pow(rhob,6.666666666666667);
3762     t735 = 1/pow(t131,4.0);
3763     t736 = pow(t155,4.0);
3764     t737 = 1/pow(t130,8.0);
3765     t738 = 1/pow(t130,7.0);
3766     t739 = pow(t290,2.0);
3767     t740 = 21.42414814814815*t1*t2*t3/pow(rhob,4.333333333333333)+
3768         18.83609421296296*t14*t15*t16/pow(rhob,4.166666666666667)+
3769         11.04534375*t8*t9/pow(t127,9.0)+6.79197037037037*t4*t5*t6*
3770         t283;
3771     t741 = 1/pow(t141,6.0);
3772     t742 = 1.333333333333333*t104*(t665+t661)+.4938271604938271*
3773         pow(t160,4.0)*t663+1.333333333333333*t107*(t662+t664)+.4938271604938271*
3774         pow(t159,4.0)*t660+1.777777777777778*t160*t233*t520+1.777777777777778*
3775         t159*t227*t518-1.777777777777778*t297*t298*t407-1.777777777777778*
3776         t295*t296*t402+1.333333333333333*t233*pow(t298,2.0)+1.333333333333333*
3777         t227*pow(t296,2.0);
3778     t743 = pow(gradb,11.0);
3779     t744 = 1/pow(rhob,19.0);
3780     t745 = 1/pow(rhob,18.0);
3781     t746 = 1/pow(rhob,17.0);
3782     t747 = 1/pow(rhoa,16.0);
3783     t748 = 1/pow(rhob,16.0);
3784 
3785    /* code */
3786     dfdra = t40*t27*t44*t28*t45*rhoa-0.03109*t19*t39*t28*
3787         rhoa-0.75*t29*t3*t42*t47-1.0*t11*t29*t3*t33-0.03109*t19*t27*
3788         t28+t125*t134+t55*t123+.0021294577333333*t1*t2*t3*t19*t27*
3789         t12;
3790     dfdrb = t151*t140*t155*t133*t156*rhob-0.03109*t132*t150*
3791         t133*rhob-0.75*t153*t158*t29*t3-1.0*t128*t144*t29*t3+t55*t166+
3792         t167*t134-0.03109*t132*t140*t133+.0021294577333333*t1*t2*t3*
3793         t132*t140*t129;
3794     dfdga = -0.03109*t19*t171*t28*rhoa-0.75*t172*t29*t3*t42+
3795         t173*t134;
3796     dfdgb = -0.03109*t132*t177*t133*rhob-0.75*t153*t178*t29*
3797         t3+t179*t134;
3798     dfdgab = 0.0;
3799     d2fdrara = 2.0*t28*t39*t40*t44*t45*rhoa+t40*t27*t192*
3800         t28*t45*rhoa-2.0*t188*t190*t27*t28*t40*rhoa-0.03109*t19*t186*
3801         t28*rhoa+32.1646831778707*t187*t27*t188*t28*t189*rhoa-.3333333333333333*
3802         t29*t3*t33*t7-2.0*t11*t29*t3*t47+2.0*t27*t28*t40*t44*t45+.0014196384888889*
3803         t1*t2*t3*t19*t27*t43-0.75*t194*t29*t3*t42-0.06218*t19*t39*
3804         t28+t55*t264+t266*t134+2.0*t123*t125-.1369866666666666*t1*
3805         t2*t3*t40*t27*t44*t45*t12+.0042589154666667*t1*t2*t3*t19*t39*
3806         t12;
3807     d2fdrarb = t271*t134+t167*t123+t125*t166+t55*t270;
3808     d2fdraga = t40*t171*t44*t28*t45*rhoa-0.03109*t19*t274*
3809         t28*rhoa-0.75*t275*t29*t3*t42-1.0*t11*t172*t29*t3-0.03109*
3810         t19*t171*t28+t276*t134+t173*t123+.0021294577333333*t1*t2*t3*
3811         t19*t171*t12;
3812     d2fdragb = t277*t134+t179*t123;
3813     d2fdraab = 0.0;
3814     d2fdrbrb = -2.0*t133*t140*t151*t286*t288*rhob+32.1646831778707*
3815         t285*t140*t286*t133*t287*rhob+2.0*t133*t150*t151*t155*t156*
3816         rhob+t151*t140*t290*t133*t156*rhob-0.03109*t132*t284*t133*
3817         rhob+t55*t311-0.75*t153*t29*t292*t3-2.0*t128*t158*t29*t3-.3333333333333333*
3818         t126*t144*t29*t3+2.0*t166*t167+2.0*t133*t140*t151*t155*t156+
3819         .0014196384888889*t1*t2*t3*t132*t140*t154+t312*t134-0.06218*
3820         t132*t150*t133-.1369866666666666*t1*t2*t3*t151*t140*t155*t156*
3821         t129+.0042589154666667*t1*t2*t3*t132*t150*t129;
3822     d2fdrbga = t313*t134+t173*t166;
3823     d2fdrbgb = t151*t177*t155*t133*t156*rhob-0.03109*t132*
3824         t316*t133*rhob-0.75*t153*t29*t3*t317-1.0*t128*t178*t29*t3+
3825         t179*t166+t318*t134-0.03109*t132*t177*t133+.0021294577333333*
3826         t1*t2*t3*t132*t177*t129;
3827     d2fdrbgab = 0.0;
3828     d2fdgaga = -0.03109*t19*t320*t28*rhoa-0.75*t29*t3*t321*
3829         t42+t322*t134;
3830     d2fdgagb = t323*t134;
3831     d2fdgagab = 0.0;
3832     d2fdgbgb = -0.03109*t132*t325*t133*rhob-0.75*t153*t29*
3833         t3*t326+t327*t134;
3834     d2fdgbgab = 0.0;
3835     d2fdgabgab = 0.0;
3836     d3fdrarara = 3.0*t186*t28*t40*t44*t45*rhoa+3.0*t192*t28*
3837         t39*t40*t45*rhoa+t40*t341*t27*t28*t45*rhoa-6.0*t190*t192*t27*
3838         t28*t40*t44*rhoa-6.0*t188*t190*t28*t39*t40*rhoa+6.0*t189*t27*
3839         t28*t337*t40*rhoa-192.9880990672242*t187*t27*t337*t28*t339*
3840         rhoa+2069.133687865597*t336*t27*t337*t28*t338*rhoa-0.03109*
3841         t19*t335*t28*rhoa+96.4940495336121*t187*t27*t192*t44*t28*t189*
3842         rhoa+96.4940495336121*t187*t39*t188*t28*t189*rhoa-1.0*t29*
3843         t3*t47*t7+3.0*t192*t27*t28*t40*t45+6.0*t40*t39*t44*t28*t45+
3844         t55*t444-.1369866666666666*t1*t2*t3*t40*t27*t44*t45*t43+.0042589154666667*
3845         t1*t2*t3*t19*t39*t43-0.75*t29*t3*t343*t42+.2222222222222222*
3846         t29*t3*t33*t41-6.0*t188*t190*t27*t28*t40-3.0*t11*t194*t29*
3847         t3-0.09327*t19*t186*t28+3.0*t123*t266+3.0*t125*t264-.0018928513185185*
3848         t1*t2*t3*t19*t27*t191+96.4940495336121*t187*t27*t188*t28*t189+
3849         t446*t134-.4109599999999999*t1*t2*t3*t40*t39*t44*t45*t12-0.20548*
3850         t1*t2*t3*t40*t27*t192*t45*t12+.4109599999999999*t1*t2*t3*t40*
3851         t27*t188*t190*t12-6.60919909938887*t1*t2*t3*t187*t27*t188*
3852         t189*t12+0.0063883732*t1*t2*t3*t19*t186*t12;
3853     d3fdrararb = t55*t472+2.0*t123*t271+2.0*t125*t270+t167*
3854         t264+t266*t166+t473*t134;
3855     d3fdraraga = 2.0*t274*t28*t40*t44*t45*rhoa+t40*t171*t192*
3856         t28*t45*rhoa-2.0*t171*t188*t190*t28*t40*rhoa-0.03109*t19*t476*
3857         t28*rhoa+32.1646831778707*t187*t171*t188*t28*t189*rhoa-.3333333333333333*
3858         t172*t29*t3*t7-0.75*t29*t3*t42*t477+2.0*t171*t28*t40*t44*t45+
3859         .0014196384888889*t1*t2*t3*t19*t171*t43-2.0*t11*t275*t29*t3-
3860         0.06218*t19*t274*t28+2.0*t123*t276+t173*t264+t478*t134-.1369866666666666*
3861         t1*t2*t3*t40*t171*t44*t45*t12+.0042589154666667*t1*t2*t3*t19*
3862         t274*t12;
3863     d3fdraragb = 2.0*t123*t277+t179*t264+t479*t134;
3864     d3fdraraab = 0.0;
3865     d3fdrarbrb = t55*t483+t125*t311+2.0*t166*t271+2.0*t167*
3866         t270+t484*t134+t312*t123;
3867     d3fdrarbga = t485*t134+t313*t123+t276*t166+t173*t270;
3868     d3fdrarbgb = t486*
3869         t134+t318*t123+t277*t166+t179*t270;
3870     d3fdrarbab = 0.0;
3871     d3fdragaga = t40*t320*t44*t28*t45*rhoa-0.03109*t19*t488*
3872         t28*rhoa-0.75*t29*t3*t42*t489-1.0*t11*t29*t3*t321-0.03109*
3873         t19*t320*t28+t490*t134+t322*t123+.0021294577333333*t1*t2*t3*
3874         t19*t320*t12;
3875     d3fdragagb = t491*t134+t323*t123;
3876     d3fdragaab = 0.0;
3877     d3fdragbgb = t492*t134+t327*t123;
3878     d3fdragbab = 0.0;
3879     d3fdraabab = 0.0;
3880     d3fdrbrbrb = -192.9880990672242*t285*t140*t502*t133*t504*
3881         rhob+2069.133687865597*t501*t140*t502*t133*t503*rhob+6.0*t133*
3882         t140*t151*t287*t502*rhob-6.0*t133*t140*t151*t155*t288*t290*
3883         rhob+3.0*t133*t150*t151*t156*t290*rhob-6.0*t133*t150*t151*
3884         t286*t288*rhob+96.4940495336121*t285*t150*t286*t133*t287*rhob+
3885         96.4940495336121*t285*t140*t290*t155*t133*t287*rhob+3.0*t133*
3886         t151*t155*t156*t284*rhob+t151*t506*t140*t133*t156*rhob-0.03109*
3887         t132*t500*t133*rhob+t55*t536-0.75*t153*t29*t3*t508+3.0*t166*
3888         t312+3.0*t167*t311-3.0*t128*t29*t292*t3-1.0*t126*t158*t29*
3889         t3+.2222222222222222*t144*t152*t29*t3+3.0*t133*t140*t151*t156*
3890         t290-.0018928513185185*t1*t2*t3*t132*t140*t289-6.0*t133*t140*
3891         t151*t286*t288+96.4940495336121*t285*t140*t286*t133*t287+6.0*
3892         t151*t150*t155*t133*t156-.1369866666666666*t1*t2*t3*t151*t140*
3893         t155*t156*t154+.0042589154666667*t1*t2*t3*t132*t150*t154+t537*
3894         t134-0.09327*t132*t284*t133+.4109599999999999*t1*t2*t3*t151*
3895         t140*t286*t288*t129-6.60919909938887*t1*t2*t3*t285*t140*t286*
3896         t287*t129+0.0063883732*t1*t2*t3*t132*t284*t129-0.20548*t1*
3897         t2*t3*t151*t140*t290*t156*t129-.4109599999999999*t1*t2*t3*
3898         t151*t150*t155*t156*t129;
3899     d3fdrbrbga = 2.0*t166*t313+t173*t311+t538*t134;
3900     d3fdrbrbgb = 2.0*t133*t151*t155*t156*t316*rhob-2.0*t133*
3901         t151*t177*t286*t288*rhob+32.1646831778707*t285*t177*t286*t133*
3902         t287*rhob+t151*t177*t290*t133*t156*rhob-0.03109*t132*t541*
3903         t133*rhob-0.75*t153*t29*t3*t542+2.0*t166*t318-2.0*t128*t29*
3904         t3*t317+t179*t311-.3333333333333333*t126*t178*t29*t3+2.0*t133*
3905         t151*t155*t156*t177+.0014196384888889*t1*t2*t3*t132*t177*t154+
3906         t543*t134-0.06218*t132*t316*t133+.0042589154666667*t1*t2*t3*
3907         t132*t316*t129-.1369866666666666*t1*t2*t3*t151*t177*t155*t156*
3908         t129;
3909     d3fdrbrbab = 0.0;
3910     d3fdrbgaga = t544*t134+t322*t166;
3911     d3fdrbgagb = t545*t134+t323*t166;
3912     d3fdrbgaab = 0.0;
3913     d3fdrbgbgb = t151*t325*t155*t133*t156*rhob-0.03109*t132*
3914         t547*t133*rhob-0.75*t153*t29*t3*t548-1.0*t128*t29*t3*t326+
3915         t327*t166+t549*t134-0.03109*t132*t325*t133+.0021294577333333*
3916         t1*t2*t3*t132*t325*t129;
3917     d3fdrbgbab = 0.0;
3918     d3fdrbabab = 0.0;
3919     d3fdgagaga = -0.03109*t19*t551*t28*rhoa-0.75*t29*t3*t42*
3920         t552+t553*t134;
3921     d3fdgagagb = t554*t134;
3922     d3fdgagaab = 0.0;
3923     d3fdgagbgb = t555*t134;
3924     d3fdgagbab = 0.0;
3925     d3fdgaabab = 0.0;
3926     d3fdgbgbgb = -0.03109*t132*t557*t133*rhob-0.75*t153*t29*
3927         t3*t558+t559*t134;
3928     d3fdgbgbab = 0.0;
3929     d3fdgbabab = 0.0;
3930     d3fdababab = 0.0;
3931     d4fdrararara = t55*(24829.60425438716*t336*t569*t28*t571*
3932         rhoa-199659.0885685683*t568*t569*t28*t570*rhoa-1.0*t40*t573*
3933         t28*t45*rhoa+24.0*t40*t569*t28*t339*rhoa+1157.928594403345*
3934         t187*t192*t188*t28*t339*rhoa-1157.928594403345*t187*t569*t28*
3935         t338*rhoa-12414.80212719358*t336*t192*t188*t28*t338*rhoa+6.0*
3936         t40*t572*t28*t190*rhoa+8.0*t40*t341*t44*t28*t190*rhoa-96.4940495336121*
3937         t187*t572*t28*t189*rhoa-128.6587327114828*t187*t341*t44*t28*
3938         t189*rhoa-36.0*t40*t192*t188*t28*t189*rhoa+t56*(.2602459411867566*
3939         t67*t1*t2*t3*t89*t247*t95*t96*t76*t97-.3469945882490088*t67*
3940         t1*t2*t3*t210*t114*t95*t96*t76*t97-2.339289358982082*t67*t422*
3941         t95*t72*t96*t76*t97-2.339289358982082*t67*t114*t397*t72*t96*
3942         t76*t97-3.508934038473122*t67*t247*t222*t72*t96*t76*t97+.2602459411867566*
3943         t67*t1*t2*t3*t89*t114*t222*t96*t76*t97+14.03573615389249*t67*
3944         t114*t222*t95*t72*t219*t76*t97+7.017868076946245*t67*t247*
3945         t214*t72*t219*t76*t97-.5204918823735132*t67*t1*t2*t3*t89*t114*
3946         t214*t219*t76*t97-14.03573615389249*t67*t114*t377*t72*t215*
3947         t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t411*t97+.2602459411867566*
3948         t67*t1*t2*t3*t89*t71*t95*t96*t237*t97-7.017868076946245*t67*
3949         t114*t95*t72*t96*t237*t97-3.508934038473122*t67*t71*t222*t72*
3950         t96*t237*t97+7.017868076946245*t67*t71*t214*t72*t219*t237*
3951         t97-.3469945882490088*t67*t1*t2*t3*t210*t71*t95*t96*t108*t97+
3952         .5204918823735132*t67*t1*t2*t3*t89*t114*t95*t96*t108*t97-7.017868076946245*
3953         t67*t247*t95*t72*t96*t108*t97-2.339289358982082*t67*t71*t397*
3954         t72*t96*t108*t97-7.017868076946245*t67*t114*t222*t72*t96*t108*
3955         t97+.2602459411867566*t67*t1*t2*t3*t89*t71*t222*t96*t108*t97+
3956         14.03573615389249*t67*t71*t222*t95*t72*t219*t108*t97+14.03573615389249*
3957         t67*t114*t214*t72*t219*t108*t97-.5204918823735132*t67*t1*t2*
3958         t3*t89*t71*t214*t219*t108*t97-14.03573615389249*t67*t71*t377*
3959         t72*t215*t108*t97-384.0*t111*t67*t68*t76*t85-1920.0*t113*t418*
3960         t67*t76*t85+96.0*t108*t67*t68*t70*t85+16.0*t113*t411*t67*t70*
3961         t85+72.0*t237*t245*t67*t70*t85-480.0*t108*t418*t67*t69*t85-
3962         16.0*t111*t411*t67*t69*t85+120.0*t237*t243*t67*t69*t85-576.0*
3963         t108*t111*t245*t67*t85+960.0*t108*t113*t243*t67*t85-192.0*
3964         t111*t113*t237*t67*t85+t67*t69*t70*t666*t85+.0197517897025652*
3965         t67*(384.0*t111*t68+t670+t669+t665+1920.0*t113*t418)*t72*t76*
3966         t79-.0029298488058805*t67*t1*t2*t3*t89*t422*t76*t79+0.005859697611761*
3967         t67*t1*t2*t3*t210*t247*t76*t79-.0091150851738505*t67*t1*t2*
3968         t3*t373*t114*t76*t79+.0197517897025652*t67*t71*t72*t666*t79+
3969         .0790071588102608*t67*t114*t72*t411*t79-.0029298488058805*
3970         t67*t1*t2*t3*t89*t71*t411*t79+.1185107382153912*t67*t247*t72*
3971         t237*t79+0.005859697611761*t67*t1*t2*t3*t210*t71*t237*t79-
3972         .0087895464176415*t67*t1*t2*t3*t89*t114*t237*t79+.0790071588102608*
3973         t67*t422*t72*t108*t79-.0091150851738505*t67*t1*t2*t3*t373*
3974         t71*t108*t79-.0087895464176415*t67*t1*t2*t3*t89*t247*t108*
3975         t79+0.011719395223522*t67*t1*t2*t3*t210*t114*t108*t79+96.0*
3976         t119*t67*t68*t70*t76+16.0*t113*t429*t67*t70*t76-192.0*t111*
3977         t113*t254*t67*t76+960.0*t113*t119*t243*t67*t76+4.0*t108*t429*
3978         t67*t69*t70+4.0*t119*t411*t67*t69*t70+6.0*t237*t254*t67*t69*
3979         t70+48.0*t108*t113*t254*t67*t70+144.0*t108*t119*t245*t67*t70+
3980         48.0*t113*t119*t237*t67*t70-48.0*t108*t111*t254*t67*t69+240.0*
3981         t108*t119*t243*t67*t69-48.0*t111*t119*t237*t67*t69+t681+t680+
3982         t679+t678+t677+t676+t675+t674+t673-384.0*t108*t111*t113*t119*
3983         t67+t667+t659+t658+t657+t656+t655+t654+t653+t652+t651+t650+
3984         t649+t648+t647+t646+t644+t643+t642+t641+t640+t639+t638+t637+
3985         t636+t634+t628+t627+t626+t625+t624+t623+t622+t621+t620+t619+
3986         t618+t617+t615+t614+t613+t612+t611+t610+t609+t608+t606-4101.558808403119*
3987         t67*t114*t377*t72*t378*t76*t379-4101.558808403119*t67*t71*
3988         t377*t72*t378*t108*t379+415.5781415850207*t67*t114*t377*t72*
3989         t382*t76*t216-207.7890707925104*t67*t114*t222*t95*t72*t215*
3990         t76*t216-103.8945353962552*t67*t247*t214*t72*t215*t76*t216+
3991         7.70551137522226*t67*t1*t2*t3*t89*t114*t214*t215*t76*t216-
3992         103.8945353962552*t67*t71*t214*t72*t215*t237*t216+415.5781415850207*
3993         t67*t71*t377*t72*t382*t108*t216-207.7890707925104*t67*t71*
3994         t222*t95*t72*t215*t108*t216-207.7890707925104*t67*t114*t214*
3995         t72*t215*t108*t216+7.70551137522226*t67*t1*t2*t3*t89*t71*t214*
3996         t215*t108*t216)+.5204918823735132*t67*t1*t2*t3*t89*t114*t95*
3997         t96*t76*t97-7.017868076946245*t67*t247*t95*t72*t96*t76*t97-
3998         7.017868076946245*t67*t114*t222*t72*t96*t76*t97+14.03573615389249*
3999         t67*t114*t214*t72*t219*t76*t97-7.017868076946245*t67*t71*t95*
4000         t72*t96*t237*t97+.5204918823735132*t67*t1*t2*t3*t89*t71*t95*
4001         t96*t108*t97-14.03573615389249*t67*t114*t95*t72*t96*t108*t97-
4002         7.017868076946245*t67*t71*t222*t72*t96*t108*t97+14.03573615389249*
4003         t67*t71*t214*t72*t219*t108*t97+96.0*t67*t68*t70*t76*t85+960.0*
4004         t113*t243*t67*t76*t85+4.0*t411*t67*t69*t70*t85+144.0*t108*
4005         t245*t67*t70*t85+48.0*t113*t237*t67*t70*t85+240.0*t108*t243*
4006         t67*t69*t85-48.0*t111*t237*t67*t69*t85-384.0*t108*t111*t113*
4007         t67*t85+.0790071588102608*t67*t422*t72*t76*t79-.0087895464176415*
4008         t67*t1*t2*t3*t89*t247*t76*t79+0.011719395223522*t67*t1*t2*
4009         t3*t210*t114*t76*t79+.0790071588102608*t67*t71*t72*t411*t79+
4010         .2370214764307825*t67*t114*t72*t237*t79-.0087895464176415*
4011         t67*t1*t2*t3*t89*t71*t237*t79+.2370214764307825*t67*t247*t72*
4012         t108*t79+0.011719395223522*t67*t1*t2*t3*t210*t71*t108*t79-
4013         0.017579092835283*t67*t1*t2*t3*t89*t114*t108*t79+48.0*t113*
4014         t254*t67*t70*t76-384.0*t111*t113*t119*t67*t76+12.0*t108*t254*
4015         t67*t69*t70+12.0*t119*t237*t67*t69*t70+96.0*t108*t113*t119*
4016         t67*t70-96.0*t108*t111*t119*t67*t69+t602+t601+t600+t599+t598+
4017         t597+t596+t595+t594+t593+t592+t591+t590+t589+t588+t587+t586+
4018         t585+t584+t583+t582+t581+t580+t579+t578+t577+t576+t575-4.0*
4019         t40*t341*t28*t45+.2739733333333333*t1*t2*t3*t40*t192*t45*t43-
4020         .5479466666666666*t1*t2*t3*t40*t188*t190*t43+8.812265465851826*
4021         t1*t2*t3*t187*t188*t189*t43-.0044166530765432*t1*t2*t3*t19*
4022         t340+771.9523962688968*t187*t337*t28*t339-8276.534751462386*
4023         t336*t337*t28*t338-207.7890707925104*t67*t114*t214*t72*t215*
4024         t76*t216-207.7890707925104*t67*t71*t214*t72*t215*t108*t216-
4025         .2435318518518518*t1*t2*t3*t40*t44*t45*t191+24.0*t40*t192*
4026         t44*t28*t190-385.9761981344484*t187*t192*t44*t28*t189-24.0*
4027         t40*t337*t28*t189+.2739733333333333*t1*t2*t3*t40*t341*t45*
4028         t12-52.87359279511096*t1*t2*t3*t187*t337*t339*t12+566.8874535768302*
4029         t1*t2*t3*t336*t337*t338*t12-1.64384*t1*t2*t3*t40*t192*t44*
4030         t190*t12+26.43679639755548*t1*t2*t3*t187*t192*t44*t189*t12+
4031         1.64384*t1*t2*t3*t40*t337*t189*t12)-6.0*t190*t27*t28*t40*t572*
4032         rhoa-24829.60425438716*t336*t27*t569*t28*t571*rhoa+199659.0885685683*
4033         t568*t27*t569*t28*t570*rhoa-24.0*t27*t28*t339*t40*t569*rhoa+
4034         4.0*t28*t335*t40*t44*t45*rhoa+4.0*t28*t341*t39*t40*t45*rhoa+
4035         6.0*t186*t192*t28*t40*t45*rhoa+t40*t573*t27*t28*t45*rhoa-24.0*
4036         t190*t192*t28*t39*t40*t44*rhoa-8.0*t190*t27*t28*t341*t40*t44*
4037         rhoa+24.0*t189*t28*t337*t39*t40*rhoa+36.0*t188*t189*t192*t27*
4038         t28*t40*rhoa-12.0*t186*t188*t190*t28*t40*rhoa-771.9523962688968*
4039         t187*t39*t337*t28*t339*rhoa-1157.928594403345*t187*t27*t192*
4040         t188*t28*t339*rhoa+1157.928594403345*t187*t27*t569*t28*t338*
4041         rhoa+8276.534751462386*t336*t39*t337*t28*t338*rhoa+12414.80212719358*
4042         t336*t27*t192*t188*t28*t338*rhoa-0.03109*t19*(-35.76935261234568*
4043         t21*t26*t567+82.55433767506175*t20*t24*t566-59.40101146548149*
4044         t34*t35*t565+18.83174705682963*t180*t181*t564-2.760130487182222*
4045         t328*t329*t563+.1533235594429629*t560*t561*t562)*t28*rhoa+
4046         96.4940495336121*t187*t27*t572*t28*t189*rhoa+128.6587327114828*
4047         t187*t341*t27*t44*t28*t189*rhoa+385.9761981344484*t187*t39*
4048         t192*t44*t28*t189*rhoa+192.9880990672242*t187*t186*t188*t28*
4049         t189*rhoa-2.0*t194*t29*t3*t7-0.75*t29*t3*t42*(.0494795535802469*
4050         t21*t32*t567+.0567869852760494*t20*t31*t566-.0013077314514489*
4051         t34*t46*t565+1.04603189126637e-5*t180*t193*t564-3.550863279900445e-8*
4052         t328*t342*t563+4.37761061925926e-11*t560*t574*t562)+.8888888888888888*
4053         t29*t3*t41*t47+4.0*t27*t28*t341*t40*t45+12.0*t40*t186*t44*
4054         t28*t45+12.0*t40*t39*t192*t28*t45+4.0*t123*t446+4.0*t125*t444-
4055         24.0*t190*t192*t27*t28*t40*t44-.5479466666666666*t1*t2*t3*
4056         t40*t39*t44*t45*t43-.2739733333333333*t1*t2*t3*t40*t27*t192*
4057         t45*t43+.5479466666666666*t1*t2*t3*t40*t27*t188*t190*t43-8.812265465851826*
4058         t1*t2*t3*t187*t27*t188*t189*t43+.0085178309333333*t1*t2*t3*
4059         t19*t186*t43+24.0*t189*t27*t28*t337*t40-4.0*t11*t29*t3*t343+
4060         .0044166530765432*t1*t2*t3*t19*t27*t340-771.9523962688968*
4061         t187*t27*t337*t28*t339+8276.534751462386*t336*t27*t337*t28*
4062         t338-.3703703703703703*t22*t29*t3*t33-0.12436*t19*t335*t28+
4063         6.0*t264*t266+.2435318518518518*t1*t2*t3*t40*t27*t44*t45*t191-
4064         .0075714052740741*t1*t2*t3*t19*t39*t191-24.0*t40*t39*t188*
4065         t28*t190+385.9761981344484*t187*t27*t192*t44*t28*t189+385.9761981344484*
4066         t187*t39*t188*t28*t189+(1.09084109037037*t21*t567*t54-.0758054582755556*
4067         t21*t567*t50*t53-.1231797467022222*t20*t566*t53+4.155624704e-4*
4068         t21*t567*t51*t124+.0026038714146133*t20*t566*t50*t124+0.00110077169664*
4069         t34*t565*t124-1.11887576064e-5*t20*t566*t51*t265-1.867340242944e-5*
4070         t34*t565*t50*t265-2.33256321024e-6*t180*t564*t265+7.241263349760001e-8*
4071         t34*t565*t51*t445+3.593860153344e-8*t180*t564*t50*t445-1.31659333632e-10*
4072         t180*t564*t51*t682)*t134-.8219199999999999*t1*t2*t3*t40*t186*
4073         t44*t45*t12-.2739733333333333*t1*t2*t3*t40*t341*t27*t45*t12-
4074         .8219199999999999*t1*t2*t3*t40*t39*t192*t45*t12+52.87359279511096*
4075         t1*t2*t3*t187*t27*t337*t339*t12-566.8874535768302*t1*t2*t3*
4076         t336*t27*t337*t338*t12+.0085178309333333*t1*t2*t3*t19*t335*
4077         t12+1.64384*t1*t2*t3*t40*t27*t192*t44*t190*t12+1.64384*t1*
4078         t2*t3*t40*t39*t188*t190*t12-26.43679639755548*t1*t2*t3*t187*
4079         t27*t192*t44*t189*t12-1.64384*t1*t2*t3*t40*t27*t337*t189*t12-
4080         26.43679639755548*t1*t2*t3*t187*t39*t188*t189*t12;
4081     d4fdrarararb = t55*(t56*(.1301229705933783*t67*t1*t2*
4082         t3*t89*t247*t95*t96*t76*t97-.0867486470622522*t67*t1*t2*t3*
4083         t210*t163*t95*t96*t76*t97-.2602459411867566*t67*t1*t2*t3*t210*
4084         t114*t95*t96*t76*t97-1.754467019236561*t67*t465*t95*t72*t96*
4085         t76*t97-.5848223397455204*t67*t422*t95*t72*t96*t76*t97-.5848223397455204*
4086         t67*t163*t397*t72*t96*t76*t97-1.754467019236561*t67*t114*t397*
4087         t72*t96*t76*t97-1.754467019236561*t67*t247*t222*t72*t96*t76*
4088         t97+.0650614852966891*t67*t1*t2*t3*t89*t163*t222*t96*t76*t97+
4089         .1951844558900674*t67*t1*t2*t3*t89*t114*t222*t96*t76*t97+3.508934038473122*
4090         t67*t163*t222*t95*t72*t219*t76*t97+10.52680211541937*t67*t114*
4091         t222*t95*t72*t219*t76*t97+3.508934038473122*t67*t247*t214*
4092         t72*t219*t76*t97-.1301229705933783*t67*t1*t2*t3*t89*t163*t214*
4093         t219*t76*t97-.3903689117801349*t67*t1*t2*t3*t89*t114*t214*
4094         t219*t76*t97-3.508934038473122*t67*t163*t377*t72*t215*t76*
4095         t97-10.52680211541937*t67*t114*t377*t72*t215*t76*t97-1.754467019236561*
4096         t67*t71*t95*t72*t96*t459*t97-.5848223397455204*t67*t71*t95*
4097         t72*t96*t411*t97-3.508934038473122*t67*t114*t95*t72*t96*t267*
4098         t97+.1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*t237*t97-
4099         1.754467019236561*t67*t163*t95*t72*t96*t237*t97-1.754467019236561*
4100         t67*t114*t95*t72*t96*t237*t97-1.754467019236561*t67*t71*t222*
4101         t72*t96*t237*t97+3.508934038473122*t67*t71*t214*t72*t219*t237*
4102         t97-.0867486470622522*t67*t1*t2*t3*t210*t71*t95*t96*t161*t97-
4103         1.754467019236561*t67*t247*t95*t72*t96*t161*t97-.5848223397455204*
4104         t67*t71*t397*t72*t96*t161*t97+.0650614852966891*t67*t1*t2*
4105         t3*t89*t71*t222*t96*t161*t97+3.508934038473122*t67*t71*t222*
4106         t95*t72*t219*t161*t97-.1301229705933783*t67*t1*t2*t3*t89*t71*
4107         t214*t219*t161*t97-3.508934038473122*t67*t71*t377*t72*t215*
4108         t161*t97-.2602459411867566*t67*t1*t2*t3*t210*t71*t95*t96*t108*
4109         t97+.2602459411867565*t67*t1*t2*t3*t89*t114*t95*t96*t108*t97-
4110         3.508934038473122*t67*t268*t95*t72*t96*t108*t97-1.754467019236561*
4111         t67*t247*t95*t72*t96*t108*t97-1.754467019236561*t67*t71*t397*
4112         t72*t96*t108*t97-3.508934038473122*t67*t114*t222*t72*t96*t108*
4113         t97+.1951844558900674*t67*t1*t2*t3*t89*t71*t222*t96*t108*t97+
4114         10.52680211541937*t67*t71*t222*t95*t72*t219*t108*t97+7.017868076946245*
4115         t67*t114*t214*t72*t219*t108*t97-.3903689117801349*t67*t1*t2*
4116         t3*t89*t71*t214*t219*t108*t97-10.52680211541937*t67*t71*t377*
4117         t72*t215*t108*t97+192.0*t111*t67*t68*t76*t85-960.0*t113*t418*
4118         t67*t76*t85+t67*t69*t70*t710*t85+24.0*t161*t67*t68*t70*t85-
4119         72.0*t108*t67*t68*t70*t85+12.0*t113*t459*t67*t70*t85-4.0*t113*
4120         t411*t67*t70*t85-36.0*t237*t245*t67*t70*t85-12.0*t111*t459*
4121         t67*t69*t85-120.0*t161*t418*t67*t69*t85-360.0*t108*t418*t67*
4122         t69*t85-4.0*t111*t411*t67*t69*t85+60.0*t237*t243*t67*t69*t85-
4123         96.0*t111*t113*t267*t67*t85-144.0*t111*t161*t245*t67*t85+144.0*
4124         t108*t111*t245*t67*t85+240.0*t113*t161*t243*t67*t85+240.0*
4125         t108*t113*t243*t67*t85+.0197517897025652*t67*(-192.0*t111*
4126         t68+t669+t662+960.0*t113*t418)*t72*t76*t79-.0021973866044104*
4127         t67*t1*t2*t3*t89*t465*t76*t79-7.324622014701263e-4*t67*t1*
4128         t2*t3*t89*t422*t76*t79+.0029298488058805*t67*t1*t2*t3*t210*
4129         t247*t76*t79-.0022787712934626*t67*t1*t2*t3*t373*t163*t76*
4130         t79-.0068363138803878*t67*t1*t2*t3*t373*t114*t76*t79+.0197517897025652*
4131         t67*t71*t72*t710*t79+.0592553691076956*t67*t114*t72*t459*t79-
4132         .0021973866044104*t67*t1*t2*t3*t89*t71*t459*t79+.0197517897025652*
4133         t67*t163*t72*t411*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*
4134         t71*t411*t79+.0592553691076956*t67*t247*t72*t267*t79-.0043947732088208*
4135         t67*t1*t2*t3*t89*t114*t267*t79+.0592553691076956*t67*t268*
4136         t72*t237*t79+.0029298488058805*t67*t1*t2*t3*t210*t71*t237*
4137         t79-.0021973866044104*t67*t1*t2*t3*t89*t163*t237*t79-.0021973866044104*
4138         t67*t1*t2*t3*t89*t114*t237*t79+.0197517897025652*t67*t422*
4139         t72*t161*t79-.0022787712934626*t67*t1*t2*t3*t373*t71*t161*
4140         t79-.0021973866044104*t67*t1*t2*t3*t89*t247*t161*t79+.0592553691076956*
4141         t67*t465*t72*t108*t79-.0068363138803878*t67*t1*t2*t3*t373*
4142         t71*t108*t79-.0043947732088208*t67*t1*t2*t3*t89*t268*t108*
4143         t79-.0021973866044104*t67*t1*t2*t3*t89*t247*t108*t79+0.005859697611761*
4144         t67*t1*t2*t3*t210*t114*t108*t79-48.0*t119*t67*t68*t70*t76+
4145         8.0*t113*t429*t67*t70*t76-96.0*t111*t113*t254*t67*t76+480.0*
4146         t113*t119*t243*t67*t76+t718+t717+t716+t715+t714+t713+t712+
4147         t711+t709+t708+t707+t706+t705+t704+t703+t702+t701+t700+3.0*
4148         t119*t459*t67*t69*t70+3.0*t108*t429*t67*t69*t70+3.0*t237*t254*
4149         t67*t69*t70+24.0*t113*t119*t267*t67*t70+12.0*t113*t161*t254*
4150         t67*t70+12.0*t108*t113*t254*t67*t70+36.0*t119*t161*t245*t67*
4151         t70-36.0*t108*t119*t245*t67*t70+t699+t698+t697+t696+t695+t694+
4152         t693-12.0*t111*t161*t254*t67*t69-36.0*t108*t111*t254*t67*t69+
4153         60.0*t119*t161*t243*t67*t69+180.0*t108*t119*t243*t67*t69-24.0*
4154         t111*t119*t237*t67*t69+t679+t677+t675+t674+t673-96.0*t111*
4155         t113*t119*t161*t67-96.0*t108*t111*t113*t119*t67+t667+t659+
4156         t658+t657+t656+t655+t654+t653+t652+t651+t650+t649+t648+t647+
4157         t646+t644+t643+t642+t641+t640+t639+t638+t637+t636+t634+t628+
4158         t627+t626+t625+t624+t623+t622+t621+t620+t619+t618+t617+t615+
4159         t614+t613+t612+t611+t610+t609+t608+t606+t67*t69*t70*t161*t429-
4160         1025.38970210078*t67*t163*t377*t72*t378*t76*t379-3076.169106302339*
4161         t67*t114*t377*t72*t378*t76*t379-1025.38970210078*t67*t71*t377*
4162         t72*t378*t161*t379-3076.169106302339*t67*t71*t377*t72*t378*
4163         t108*t379+103.8945353962552*t67*t163*t377*t72*t382*t76*t216+
4164         311.6836061887656*t67*t114*t377*t72*t382*t76*t216-51.9472676981276*
4165         t67*t163*t222*t95*t72*t215*t76*t216-155.8418030943828*t67*
4166         t114*t222*t95*t72*t215*t76*t216-51.94726769812759*t67*t247*
4167         t214*t72*t215*t76*t216+1.926377843805565*t67*t1*t2*t3*t89*
4168         t163*t214*t215*t76*t216+5.779133531416695*t67*t1*t2*t3*t89*
4169         t114*t214*t215*t76*t216-51.94726769812759*t67*t71*t214*t72*
4170         t215*t237*t216+103.8945353962552*t67*t71*t377*t72*t382*t161*
4171         t216-51.9472676981276*t67*t71*t222*t95*t72*t215*t161*t216+
4172         1.926377843805565*t67*t1*t2*t3*t89*t71*t214*t215*t161*t216+
4173         311.6836061887656*t67*t71*t377*t72*t382*t108*t216-155.8418030943828*
4174         t67*t71*t222*t95*t72*t215*t108*t216-103.8945353962552*t67*
4175         t114*t214*t72*t215*t108*t216+5.779133531416695*t67*t1*t2*t3*
4176         t89*t71*t214*t215*t108*t216+t67*t69*t70*t411*t119)+.3903689117801348*
4177         t67*t1*t2*t3*t89*t114*t95*t96*t76*t97-3.508934038473122*t67*
4178         t247*t95*t72*t96*t76*t97-5.263401057709684*t67*t114*t222*t72*
4179         t96*t76*t97+10.52680211541937*t67*t114*t214*t72*t219*t76*t97-
4180         3.508934038473122*t67*t71*t95*t72*t96*t237*t97+.3903689117801348*
4181         t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-7.017868076946245*t67*
4182         t114*t95*t72*t96*t108*t97-5.263401057709684*t67*t71*t222*t72*
4183         t96*t108*t97+10.52680211541937*t67*t71*t214*t72*t219*t108*
4184         t97-48.0*t67*t68*t70*t76*t85+480.0*t113*t243*t67*t76*t85+3.0*
4185         t459*t67*t69*t70*t85+24.0*t113*t267*t67*t70*t85-36.0*t108*
4186         t245*t67*t70*t85+180.0*t108*t243*t67*t69*t85-24.0*t111*t237*
4187         t67*t69*t85-96.0*t111*t113*t161*t67*t85+.0592553691076956*
4188         t67*t465*t72*t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t247*
4189         t76*t79+.0087895464176415*t67*t1*t2*t3*t210*t114*t76*t79+.0592553691076956*
4190         t67*t71*t72*t459*t79+.1185107382153912*t67*t114*t72*t267*t79+
4191         .0592553691076956*t67*t163*t72*t237*t79-.0043947732088208*
4192         t67*t1*t2*t3*t89*t71*t237*t79+.0592553691076956*t67*t247*t72*
4193         t161*t79+.1185107382153912*t67*t268*t72*t108*t79+.0087895464176415*
4194         t67*t1*t2*t3*t210*t71*t108*t79-.0087895464176415*t67*t1*t2*
4195         t3*t89*t114*t108*t79+24.0*t113*t254*t67*t70*t76-192.0*t111*
4196         t113*t119*t67*t76+9.0*t108*t254*t67*t69*t70+6.0*t119*t237*
4197         t67*t69*t70+24.0*t113*t119*t161*t67*t70+t692+t691+t690-72.0*
4198         t108*t111*t119*t67*t69+t689+t688+t687+t686+t685+t684+t683+
4199         t601+t599+t598+t597+t596+t595+t594+t593+t592+t591+t590+t589+
4200         t588+t587+t586+t585+t584+t583+t582+t581+t580+t579+t578+t577+
4201         t576+t575+t535+t533+t530+t529+t526+t524+t516+t515+t514+t513+
4202         t512+t511+t510+t509+t439+t437+t434+t423+t415+t413+t412-155.8418030943828*
4203         t67*t114*t214*t72*t215*t76*t216-155.8418030943828*t67*t71*
4204         t214*t72*t215*t108*t216)+3.0*t123*t473+3.0*t125*t472+t167*
4205         t444+3.0*t264*t271+3.0*t266*t270+t446*t166+(-.0193765893688889*
4206         t21*t48*t334*t53*t149+4.095977506133333e-4*t21*t48*t334*t50*
4207         t124*t149+5.503858483199998e-4*t20*t48*t333*t124*t149-1.7600292864e-6*
4208         t21*t48*t334*t51*t265*t149-9.336701214720001e-6*t20*t48*t333*
4209         t50*t265*t149-2.33256321024e-6*t34*t48*t332*t265*t149+3.62063167488e-8*
4210         t20*t48*t333*t51*t445*t149+3.593860153344e-8*t34*t48*t332*
4211         t50*t445*t149-1.31659333632e-10*t34*t48*t332*t51*t682*t149)*
4212         t134;
4213     d4fdrararaga = 3.0*t28*t40*t44*t45*t476*rhoa+3.0*t192*
4214         t274*t28*t40*t45*rhoa+t40*t341*t171*t28*t45*rhoa-6.0*t171*
4215         t190*t192*t28*t40*t44*rhoa+6.0*t171*t189*t28*t337*t40*rhoa-
4216         6.0*t188*t190*t274*t28*t40*rhoa-192.9880990672242*t187*t171*
4217         t337*t28*t339*rhoa+2069.133687865597*t336*t171*t337*t28*t338*
4218         rhoa-0.03109*t19*(12.62447739259259*grada*t26*t334-40.5350444562963*
4219         t170*t24*t333+34.47383256177778*t168*t35*t332-12.20319937422222*
4220         t272*t181*t331+1.940731112106667*t474*t329*t330-.1149926695822222*
4221         t719*t561*t720)*t28*rhoa+96.4940495336121*t187*t171*t192*t44*
4222         t28*t189*rhoa+96.4940495336121*t187*t274*t188*t28*t189*rhoa-
4223         1.0*t275*t29*t3*t7+3.0*t123*t478-3.0*t11*t29*t3*t477+3.0*t171*
4224         t192*t28*t40*t45+6.0*t40*t274*t44*t28*t45+t173*t444-.1369866666666666*
4225         t1*t2*t3*t40*t171*t44*t45*t43+.0042589154666667*t1*t2*t3*t19*
4226         t274*t43-0.75*t29*t3*(-.0174633718518519*grada*t32*t334-0.027232605677037*
4227         t170*t31*t333+7.430925653333333e-4*t168*t46*t332-6.679693466737778e-6*
4228         t272*t193*t331+2.478467011925334e-8*t474*t342*t330-3.28320796444444e-11*
4229         t719*t574*t720)*t42+.2222222222222222*t172*t29*t3*t41-6.0*
4230         t171*t188*t190*t28*t40-0.09327*t19*t476*t28+3.0*t264*t276-
4231         .0018928513185185*t1*t2*t3*t19*t171*t191+96.4940495336121*
4232         t187*t171*t188*t28*t189+(-.3850027377777777*grada*t334*t54+
4233         .0267548676266667*grada*t334*t50*t53+.0643579575466666*t170*
4234         t333*t53-1.466691072e-4*grada*t334*t51*t124-0.00136044967168*
4235         t170*t333*t50*t124-7.1299984896e-4*t168*t332*t124+5.8458115584e-6*
4236         t170*t333*t51*t265+1.209527202816e-5*t168*t332*t50*t265+1.74942240768e-6*
4237         t272*t331*t265-4.69036376064e-8*t168*t332*t51*t445-2.695395115008e-8*
4238         t272*t331*t50*t445+9.8744500224e-11*t272*t331*t51*t682)*t134+
4239         0.0063883732*t1*t2*t3*t19*t476*t12-.4109599999999999*t1*t2*
4240         t3*t40*t274*t44*t45*t12-0.20548*t1*t2*t3*t40*t171*t192*t45*
4241         t12+.4109599999999999*t1*t2*t3*t40*t171*t188*t190*t12-6.60919909938887*
4242         t1*t2*t3*t187*t171*t188*t189*t12;
4243     d4fdrararagb = 3.0*t123*t479+t179*t444+3.0*t264*t277+
4244         (.0145324420266667*t21*gradb*t334*t53*t49-3.0719831296e-4*
4245         t21*gradb*t334*t50*t124*t49-4.127893862399999e-4*t20*gradb*
4246         t333*t124*t49+1.3200219648e-6*t21*gradb*t334*t51*t265*t49+
4247         7.00252591104e-6*t20*gradb*t333*t50*t265*t49+1.74942240768e-6*
4248         t34*gradb*t332*t265*t49-2.71547375616e-8*t20*gradb*t333*t51*
4249         t445*t49-2.695395115008e-8*t34*gradb*t332*t50*t445*t49+9.8744500224e-11*
4250         t34*gradb*t332*t51*t682*t49)*t134;
4251     d4fdrararaab = 0.0;
4252     d4fdrararbrb = t55*(t56*(.0433743235311261*t67*t1*t2*
4253         t3*t89*t304*t95*t96*t76*t97+.1734972941245044*t67*t1*t2*t3*
4254         t89*t268*t95*t96*t76*t97+.0433743235311261*t67*t1*t2*t3*t89*
4255         t247*t95*t96*t76*t97-.1734972941245044*t67*t1*t2*t3*t210*t163*
4256         t95*t96*t76*t97-.1734972941245044*t67*t1*t2*t3*t210*t114*t95*
4257         t96*t76*t97-1.169644679491041*t67*t481*t95*t72*t96*t76*t97-
4258         1.169644679491041*t67*t465*t95*t72*t96*t76*t97-1.169644679491041*
4259         t67*t163*t397*t72*t96*t76*t97-1.169644679491041*t67*t114*t397*
4260         t72*t96*t76*t97-.5848223397455204*t67*t304*t222*t72*t96*t76*
4261         t97-2.339289358982082*t67*t268*t222*t72*t96*t76*t97-.5848223397455204*
4262         t67*t247*t222*t72*t96*t76*t97+.1301229705933783*t67*t1*t2*
4263         t3*t89*t163*t222*t96*t76*t97+.1301229705933783*t67*t1*t2*t3*
4264         t89*t114*t222*t96*t76*t97+7.017868076946245*t67*t163*t222*
4265         t95*t72*t219*t76*t97+7.017868076946245*t67*t114*t222*t95*t72*
4266         t219*t76*t97+1.169644679491041*t67*t304*t214*t72*t219*t76*
4267         t97+4.678578717964164*t67*t268*t214*t72*t219*t76*t97+1.169644679491041*
4268         t67*t247*t214*t72*t219*t76*t97-.2602459411867566*t67*t1*t2*
4269         t3*t89*t163*t214*t219*t76*t97-.2602459411867566*t67*t1*t2*
4270         t3*t89*t114*t214*t219*t76*t97-7.017868076946245*t67*t163*t377*
4271         t72*t215*t76*t97-7.017868076946245*t67*t114*t377*t72*t215*
4272         t76*t97-1.169644679491041*t67*t71*t95*t72*t96*t480*t97-1.169644679491041*
4273         t67*t71*t95*t72*t96*t459*t97+.0433743235311261*t67*t1*t2*t3*
4274         t89*t71*t95*t96*t299*t97-1.169644679491041*t67*t114*t95*t72*
4275         t96*t299*t97-.5848223397455204*t67*t71*t222*t72*t96*t299*t97+
4276         1.169644679491041*t67*t71*t214*t72*t219*t299*t97+.1734972941245044*
4277         t67*t1*t2*t3*t89*t71*t95*t96*t267*t97-2.339289358982082*t67*
4278         t163*t95*t72*t96*t267*t97-2.339289358982082*t67*t114*t95*t72*
4279         t96*t267*t97-2.339289358982082*t67*t71*t222*t72*t96*t267*t97+
4280         4.678578717964164*t67*t71*t214*t72*t219*t267*t97+.0433743235311261*
4281         t67*t1*t2*t3*t89*t71*t95*t96*t237*t97-1.169644679491041*t67*
4282         t163*t95*t72*t96*t237*t97-.5848223397455204*t67*t71*t222*t72*
4283         t96*t237*t97+1.169644679491041*t67*t71*t214*t72*t219*t237*
4284         t97-.1734972941245044*t67*t1*t2*t3*t210*t71*t95*t96*t161*t97+
4285         .0867486470622522*t67*t1*t2*t3*t89*t163*t95*t96*t161*t97+.1734972941245044*
4286         t67*t1*t2*t3*t89*t114*t95*t96*t161*t97-2.339289358982082*t67*
4287         t268*t95*t72*t96*t161*t97-1.169644679491041*t67*t247*t95*t72*
4288         t96*t161*t97-1.169644679491041*t67*t71*t397*t72*t96*t161*t97-
4289         1.169644679491041*t67*t163*t222*t72*t96*t161*t97-2.339289358982082*
4290         t67*t114*t222*t72*t96*t161*t97+.1301229705933783*t67*t1*t2*
4291         t3*t89*t71*t222*t96*t161*t97+7.017868076946245*t67*t71*t222*
4292         t95*t72*t219*t161*t97+2.339289358982082*t67*t163*t214*t72*
4293         t219*t161*t97+4.678578717964164*t67*t114*t214*t72*t219*t161*
4294         t97-.2602459411867566*t67*t1*t2*t3*t89*t71*t214*t219*t161*
4295         t97-7.017868076946245*t67*t71*t377*t72*t215*t161*t97-.1734972941245044*
4296         t67*t1*t2*t3*t210*t71*t95*t96*t108*t97+.1734972941245044*t67*
4297         t1*t2*t3*t89*t163*t95*t96*t108*t97+.0867486470622522*t67*t1*
4298         t2*t3*t89*t114*t95*t96*t108*t97-1.169644679491041*t67*t304*
4299         t95*t72*t96*t108*t97-2.339289358982082*t67*t268*t95*t72*t96*
4300         t108*t97-1.169644679491041*t67*t71*t397*t72*t96*t108*t97-2.339289358982082*
4301         t67*t163*t222*t72*t96*t108*t97-1.169644679491041*t67*t114*
4302         t222*t72*t96*t108*t97+.1301229705933783*t67*t1*t2*t3*t89*t71*
4303         t222*t96*t108*t97+7.017868076946245*t67*t71*t222*t95*t72*t219*
4304         t108*t97+4.678578717964164*t67*t163*t214*t72*t219*t108*t97+
4305         2.339289358982082*t67*t114*t214*t72*t219*t108*t97-.2602459411867566*
4306         t67*t1*t2*t3*t89*t71*t214*t219*t108*t97-7.017868076946245*
4307         t67*t71*t377*t72*t215*t108*t97-480.0*t243*t245*t67*t76*t85+
4308         t67*t69*t70*t723*t85-48.0*t161*t67*t68*t70*t85+48.0*t108*t67*
4309         t68*t70*t85+8.0*t113*t480*t67*t70*t85-8.0*t113*t459*t67*t70*
4310         t85+12.0*t245*t299*t67*t70*t85-48.0*t245*t267*t67*t70*t85+
4311         12.0*t237*t245*t67*t70*t85-8.0*t111*t480*t67*t69*t85-8.0*t111*
4312         t459*t67*t69*t85-240.0*t161*t418*t67*t69*t85-240.0*t108*t418*
4313         t67*t69*t85+20.0*t243*t299*t67*t69*t85+80.0*t243*t267*t67*
4314         t69*t85+20.0*t237*t243*t67*t69*t85-32.0*t111*t113*t299*t67*
4315         t85+96.0*t111*t161*t245*t67*t85+96.0*t108*t111*t245*t67*t85+
4316         160.0*t113*t161*t243*t67*t85-160.0*t108*t113*t243*t67*t85+
4317         32.0*t111*t113*t237*t67*t85+.0197517897025652*(t669+t665+480.0*
4318         t243*t245)*t67*t72*t76*t79-.0014649244029403*t67*t1*t2*t3*
4319         t89*t481*t76*t79-.0014649244029403*t67*t1*t2*t3*t89*t465*t76*
4320         t79+9.766162686268349e-4*t67*t1*t2*t3*t210*t304*t76*t79+.0039064650745073*
4321         t67*t1*t2*t3*t210*t268*t76*t79+9.766162686268349e-4*t67*t1*
4322         t2*t3*t210*t247*t76*t79-.0045575425869252*t67*t1*t2*t3*t373*
4323         t163*t76*t79-.0045575425869252*t67*t1*t2*t3*t373*t114*t76*
4324         t79+.0197517897025652*t67*t71*t72*t723*t79+.0395035794051304*
4325         t67*t114*t72*t480*t79-.0014649244029403*t67*t1*t2*t3*t89*t71*
4326         t480*t79+.0395035794051304*t67*t163*t72*t459*t79-.0014649244029403*
4327         t67*t1*t2*t3*t89*t71*t459*t79+.0197517897025652*t67*t247*t72*
4328         t299*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*t71*t299*t79-
4329         .0014649244029403*t67*t1*t2*t3*t89*t114*t299*t79+.0790071588102608*
4330         t67*t268*t72*t267*t79+.0039064650745073*t67*t1*t2*t3*t210*
4331         t71*t267*t79-.0029298488058805*t67*t1*t2*t3*t89*t163*t267*
4332         t79-.0029298488058805*t67*t1*t2*t3*t89*t114*t267*t79+.0197517897025652*
4333         t67*t304*t72*t237*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
4334         t71*t237*t79-.0014649244029403*t67*t1*t2*t3*t89*t163*t237*
4335         t79+.0395035794051304*t67*t465*t72*t161*t79-.0045575425869252*
4336         t67*t1*t2*t3*t373*t71*t161*t79-.0029298488058805*t67*t1*t2*
4337         t3*t89*t268*t161*t79-.0014649244029403*t67*t1*t2*t3*t89*t247*
4338         t161*t79+.0019532325372537*t67*t1*t2*t3*t210*t163*t161*t79+
4339         .0039064650745073*t67*t1*t2*t3*t210*t114*t161*t79+.0395035794051304*
4340         t67*t481*t72*t108*t79-.0045575425869252*t67*t1*t2*t3*t373*
4341         t71*t108*t79-.0014649244029403*t67*t1*t2*t3*t89*t304*t108*
4342         t79-.0029298488058805*t67*t1*t2*t3*t89*t268*t108*t79+.0039064650745073*
4343         t67*t1*t2*t3*t210*t163*t108*t79+.0019532325372537*t67*t1*t2*
4344         t3*t210*t114*t108*t79-24.0*t245*t254*t67*t70*t76+192.0*t111*
4345         t119*t245*t67*t76+2.0*t119*t480*t67*t69*t70+2.0*t119*t459*
4346         t67*t69*t70+2.0*t161*t429*t67*t69*t70+2.0*t108*t429*t67*t69*
4347         t70+4.0*t254*t267*t67*t69*t70+8.0*t113*t119*t299*t67*t70+8.0*
4348         t113*t161*t254*t67*t70-8.0*t108*t113*t254*t67*t70-24.0*t119*
4349         t161*t245*t67*t70-24.0*t108*t119*t245*t67*t70-8.0*t113*t119*
4350         t237*t67*t70-8.0*t111*t119*t299*t67*t69-32.0*t111*t119*t267*
4351         t67*t69-24.0*t111*t161*t254*t67*t69-24.0*t108*t111*t254*t67*
4352         t69+120.0*t119*t161*t243*t67*t69+120.0*t108*t119*t243*t67*
4353         t69-8.0*t111*t119*t237*t67*t69+t681+t679+t677+t675+t674+t673-
4354         64.0*t111*t113*t119*t161*t67+64.0*t108*t111*t113*t119*t67+
4355         t667+t659+t658+t657+t656+t655+t654+t653+t652+t651+t650+t649+
4356         t648+t647+t646+t644+t643+t642+t641+t640+t639+t638+t637+t636+
4357         t634+t628+t627+t626+t625+t624+t623+t622+t621+t620+t619+t618+
4358         t617+t615+t614+t613+t612+t611+t610+t609+t608+t606-2050.77940420156*
4359         t67*t163*t377*t72*t378*t76*t379-2050.77940420156*t67*t114*
4360         t377*t72*t378*t76*t379-2050.77940420156*t67*t71*t377*t72*t378*
4361         t161*t379-2050.77940420156*t67*t71*t377*t72*t378*t108*t379+
4362         t67*t69*t70*t299*t254+t67*t69*t70*t237*t254+207.7890707925104*
4363         t67*t163*t377*t72*t382*t76*t216+207.7890707925104*t67*t114*
4364         t377*t72*t382*t76*t216-103.8945353962552*t67*t163*t222*t95*
4365         t72*t215*t76*t216-103.8945353962552*t67*t114*t222*t95*t72*
4366         t215*t76*t216-17.31575589937587*t67*t304*t214*t72*t215*t76*
4367         t216-69.26302359750346*t67*t268*t214*t72*t215*t76*t216-17.31575589937587*
4368         t67*t247*t214*t72*t215*t76*t216+3.85275568761113*t67*t1*t2*
4369         t3*t89*t163*t214*t215*t76*t216+3.85275568761113*t67*t1*t2*
4370         t3*t89*t114*t214*t215*t76*t216-17.31575589937587*t67*t71*t214*
4371         t72*t215*t299*t216-69.26302359750346*t67*t71*t214*t72*t215*
4372         t267*t216-17.31575589937587*t67*t71*t214*t72*t215*t237*t216+
4373         207.7890707925104*t67*t71*t377*t72*t382*t161*t216-103.8945353962552*
4374         t67*t71*t222*t95*t72*t215*t161*t216-34.63151179875173*t67*
4375         t163*t214*t72*t215*t161*t216-69.26302359750346*t67*t114*t214*
4376         t72*t215*t161*t216+3.85275568761113*t67*t1*t2*t3*t89*t71*t214*
4377         t215*t161*t216+207.7890707925104*t67*t71*t377*t72*t382*t108*
4378         t216-103.8945353962552*t67*t71*t222*t95*t72*t215*t108*t216-
4379         69.26302359750346*t67*t163*t214*t72*t215*t108*t216-34.63151179875173*
4380         t67*t114*t214*t72*t215*t108*t216+3.85275568761113*t67*t1*t2*
4381         t3*t89*t71*t214*t215*t108*t216)+.2602459411867565*t67*t1*t2*
4382         t3*t89*t163*t95*t96*t76*t97+.2602459411867566*t67*t1*t2*t3*
4383         t89*t114*t95*t96*t76*t97-1.169644679491041*t67*t304*t95*t72*
4384         t96*t76*t97-4.678578717964164*t67*t268*t95*t72*t96*t76*t97-
4385         1.169644679491041*t67*t247*t95*t72*t96*t76*t97-3.508934038473122*
4386         t67*t163*t222*t72*t96*t76*t97-3.508934038473122*t67*t114*t222*
4387         t72*t96*t76*t97+7.017868076946245*t67*t163*t214*t72*t219*t76*
4388         t97+7.017868076946245*t67*t114*t214*t72*t219*t76*t97-1.169644679491041*
4389         t67*t71*t95*t72*t96*t299*t97-4.678578717964164*t67*t71*t95*
4390         t72*t96*t267*t97-1.169644679491041*t67*t71*t95*t72*t96*t237*
4391         t97+.2602459411867565*t67*t1*t2*t3*t89*t71*t95*t96*t161*t97-
4392         2.339289358982082*t67*t163*t95*t72*t96*t161*t97-4.678578717964164*
4393         t67*t114*t95*t72*t96*t161*t97-3.508934038473122*t67*t71*t222*
4394         t72*t96*t161*t97+7.017868076946245*t67*t71*t214*t72*t219*t161*
4395         t97+.2602459411867566*t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-
4396         4.678578717964164*t67*t163*t95*t72*t96*t108*t97-2.339289358982082*
4397         t67*t114*t95*t72*t96*t108*t97-3.508934038473122*t67*t71*t222*
4398         t72*t96*t108*t97+7.017868076946245*t67*t71*t214*t72*t219*t108*
4399         t97+192.0*t111*t245*t67*t76*t85+2.0*t480*t67*t69*t70*t85+2.0*
4400         t459*t67*t69*t70*t85+8.0*t113*t299*t67*t70*t85-8.0*t113*t237*
4401         t67*t70*t85-8.0*t111*t299*t67*t69*t85-32.0*t111*t267*t67*t69*
4402         t85+120.0*t161*t243*t67*t69*t85+120.0*t108*t243*t67*t69*t85-
4403         8.0*t111*t237*t67*t69*t85-64.0*t111*t113*t161*t67*t85+64.0*
4404         t108*t111*t113*t67*t85+.0395035794051304*t67*t481*t72*t76*
4405         t79+.0395035794051304*t67*t465*t72*t76*t79-.0014649244029403*
4406         t67*t1*t2*t3*t89*t304*t76*t79-0.005859697611761*t67*t1*t2*
4407         t3*t89*t268*t76*t79-.0014649244029403*t67*t1*t2*t3*t89*t247*
4408         t76*t79+0.005859697611761*t67*t1*t2*t3*t210*t163*t76*t79+0.005859697611761*
4409         t67*t1*t2*t3*t210*t114*t76*t79+.0395035794051304*t67*t71*t72*
4410         t480*t79+.0395035794051304*t67*t71*t72*t459*t79+.0395035794051304*
4411         t67*t114*t72*t299*t79-.0014649244029403*t67*t1*t2*t3*t89*t71*
4412         t299*t79+.0790071588102608*t67*t163*t72*t267*t79+.0790071588102608*
4413         t67*t114*t72*t267*t79-0.005859697611761*t67*t1*t2*t3*t89*t71*
4414         t267*t79+.0395035794051304*t67*t163*t72*t237*t79-.0014649244029403*
4415         t67*t1*t2*t3*t89*t71*t237*t79+.0790071588102608*t67*t268*t72*
4416         t161*t79+.0395035794051304*t67*t247*t72*t161*t79+0.005859697611761*
4417         t67*t1*t2*t3*t210*t71*t161*t79-.0029298488058805*t67*t1*t2*
4418         t3*t89*t163*t161*t79-0.005859697611761*t67*t1*t2*t3*t89*t114*
4419         t161*t79+.0395035794051304*t67*t304*t72*t108*t79+.0790071588102608*
4420         t67*t268*t72*t108*t79+0.005859697611761*t67*t1*t2*t3*t210*
4421         t71*t108*t79-0.005859697611761*t67*t1*t2*t3*t89*t163*t108*
4422         t79-.0029298488058805*t67*t1*t2*t3*t89*t114*t108*t79-48.0*
4423         t119*t245*t67*t70*t76+2.0*t119*t299*t67*t69*t70+8.0*t119*t267*
4424         t67*t69*t70+6.0*t161*t254*t67*t69*t70+6.0*t108*t254*t67*t69*
4425         t70+2.0*t119*t237*t67*t69*t70+16.0*t113*t119*t161*t67*t70-
4426         16.0*t108*t113*t119*t67*t70-48.0*t111*t119*t161*t67*t69-48.0*
4427         t108*t111*t119*t67*t69+t601+t599+t598+t597+t596+t595+t594+
4428         t593+t592+t591+t590+t589+t588+t587+t586+t585+t584+t583+t582+
4429         t581+t580+t579+t578+t577+t576+t575+t482+t469-103.8945353962552*
4430         t67*t163*t214*t72*t215*t76*t216-103.8945353962552*t67*t114*
4431         t214*t72*t215*t76*t216-103.8945353962552*t67*t71*t214*t72*
4432         t215*t161*t216-103.8945353962552*t67*t71*t214*t72*t215*t108*
4433         t216)+2.0*t123*t484+2.0*t125*t483+2.0*t166*t473+2.0*t167*t472+
4434         t266*t311+4.0*t270*t271+t312*t264+(-.0152244630755556*t21*
4435         t48*t185*t53*t283+3.218268040533333e-4*t21*t48*t185*t50*t124*
4436         t283+1.8346194944e-4*t20*t48*t184*t124*t283-1.3828801536e-6*
4437         t21*t48*t185*t51*t265*t283-3.112233738240001e-6*t20*t48*t184*
4438         t50*t265*t283+1.20687722496e-8*t20*t48*t184*t51*t445*t283+
4439         1.834619494399999e-4*t21*t135*t185*t124*t282-3.11223373824e-6*
4440         t21*t135*t185*t50*t265*t282-2.33256321024e-6*t20*t135*t184*
4441         t265*t282+1.20687722496e-8*t21*t135*t185*t51*t445*t282+3.593860153344e-8*
4442         t20*t135*t184*t50*t445*t282-1.31659333632e-10*t20*t135*t184*
4443         t51*t682*t282)*t134;
4444     d4fdrararbga = 2.0*t123*t485+t173*t472+2.0*t270*t276+
4445         t313*t264+t478*t166+(.0083042525866667*grada*t48*t185*t53*
4446         t149-1.7554189312e-4*grada*t48*t185*t50*t124*t149-3.377367705599999e-4*
4447         t170*t48*t184*t124*t149+7.542982655999999e-7*grada*t48*t185*
4448         t51*t265*t149+5.72933938176e-6*t170*t48*t184*t50*t265*t149+
4449         1.74942240768e-6*t168*t48*t183*t265*t149-2.22175125504e-8*
4450         t170*t48*t184*t51*t445*t149-2.695395115008e-8*t168*t48*t183*
4451         t50*t445*t149+9.8744500224e-11*t168*t48*t183*t51*t682*t149)*
4452         t134;
4453     d4fdrararbgb = 2.0*t123*t486+t179*t472+2.0*t270*t277+
4454         t318*t264+t479*t166+(.0083042525866667*t21*gradb*t185*t53*
4455         t149-1.7554189312e-4*t21*gradb*t185*t50*t124*t149-1.0007015424e-4*
4456         t20*gradb*t184*t124*t149+7.542982655999999e-7*t21*gradb*t185*
4457         t51*t265*t149+1.69758203904e-6*t20*gradb*t184*t50*t265*t149-
4458         6.5829666816e-9*t20*gradb*t184*t51*t445*t149-1.3759646208e-4*
4459         t21*t176*t185*t124*t148+2.33417530368e-6*t21*t176*t185*t50*
4460         t265*t148+1.74942240768e-6*t20*t176*t184*t265*t148-9.0515791872e-9*
4461         t21*t176*t185*t51*t445*t148-2.695395115008e-8*t20*t176*t184*
4462         t50*t445*t148+9.8744500224e-11*t20*t176*t184*t51*t682*t148)*
4463         t134;
4464     d4fdrararbab = 0.0;
4465     d4fdraragaga = 2.0*t28*t40*t44*t45*t488*rhoa+t40*t320*
4466         t192*t28*t45*rhoa-2.0*t188*t190*t28*t320*t40*rhoa-0.03109*
4467         t19*(-2.705245155555555*t26*t185+17.07438094222222*t21*t24*
4468         t184-18.65845253688889*t20*t35*t183+7.652958208000002*t34*
4469         t181*t182-1.347742706346667*t180*t329*t475+.0862445021866667*
4470         t328*t561*t724)*t28*rhoa+32.1646831778707*t187*t320*t188*t28*
4471         t189*rhoa-.3333333333333333*t29*t3*t321*t7+2.0*t123*t490-2.0*
4472         t11*t29*t3*t489+2.0*t28*t320*t40*t44*t45+.0014196384888889*
4473         t1*t2*t3*t19*t320*t43-0.75*(.0037421511111111*t32*t185+.0111270035911111*
4474         t21*t31*t184-3.913808440888888e-4*t20*t46*t183+4.11062280192e-6*
4475         t34*t193*t182-1.704949885610667e-8*t180*t342*t475+2.46240597333333e-11*
4476         t328*t574*t724)*t29*t3*t42-0.06218*t19*t488*t28+t322*t264+
4477         (.0825005866666667*t185*t54-0.00573318592*t185*t50*t53-0.02915925056*
4478         t21*t184*t53+3.14290944e-5*t185*t51*t124+6.163914201599998e-4*
4479         t21*t184*t50*t124+4.409341171199999e-4*t20*t183*t124-2.6486155008e-6*
4480         t21*t184*t51*t265-7.47997085952e-6*t20*t183*t50*t265-1.31206680576e-6*
4481         t34*t182*t265+2.900619694080001e-8*t20*t183*t51*t445+2.021546336256e-8*
4482         t34*t182*t50*t445-7.4058375168e-11*t34*t182*t51*t682)*t134+
4483         .0042589154666667*t1*t2*t3*t19*t488*t12-.1369866666666666*
4484         t1*t2*t3*t40*t320*t44*t45*t12;
4485     d4fdraragagb = 2.0*t123*t491+t323*t264+(-0.00622818944*
4486         grada*gradb*t185*t53*t49+1.3165641984e-4*grada*gradb*t185*
4487         t50*t124*t49+2.533025779199999e-4*t170*gradb*t184*t124*t49-
4488         5.657236992e-7*grada*gradb*t185*t51*t265*t49-4.297004536319999e-6*
4489         t170*gradb*t184*t50*t265*t49-1.31206680576e-6*t168*gradb*t183*
4490         t265*t49+1.66631344128e-8*t170*gradb*t184*t51*t445*t49+2.021546336256e-8*
4491         t168*gradb*t183*t50*t445*t49-7.4058375168e-11*t168*gradb*t183*
4492         t51*t682*t49)*t134;
4493     d4fdraragaab = 0.0;
4494     d4fdraragbgb = 2.0*t123*t492+t327*t264+(-0.00311409472*
4495         t21*t185*t53*t49+6.582820991999998e-5*t21*t185*t50*t124*t49+
4496         3.752630784e-5*t20*t184*t124*t49-2.828618496e-7*t21*t185*t51*
4497         t265*t49-6.365932646400001e-7*t20*t184*t50*t265*t49+2.4686125056e-9*
4498         t20*t184*t51*t445*t49+1.0319734656e-4*t21*t48*t185*t124*t138-
4499         1.75063147776e-6*t21*t48*t185*t50*t265*t138-1.31206680576e-6*
4500         t20*t48*t184*t265*t138+6.788684390399999e-9*t21*t48*t185*t51*
4501         t445*t138+2.021546336256e-8*t20*t48*t184*t50*t445*t138-7.4058375168e-11*
4502         t20*t48*t184*t51*t682*t138)*t134;
4503     d4fdraragbab = 0.0;
4504     d4fdraraabab = 0.0;
4505     d4fdrarbrbrb = t55*(t56*(.1301229705933783*t67*t1*t2*
4506         t3*t89*t304*t95*t96*t76*t97-.2602459411867565*t67*t1*t2*t3*
4507         t210*t163*t95*t96*t76*t97-.0867486470622522*t67*t1*t2*t3*t210*
4508         t114*t95*t96*t76*t97-.5848223397455204*t67*t527*t95*t72*t96*
4509         t76*t97-1.754467019236561*t67*t481*t95*t72*t96*t76*t97-1.754467019236561*
4510         t67*t163*t397*t72*t96*t76*t97-.5848223397455204*t67*t114*t397*
4511         t72*t96*t76*t97-1.754467019236561*t67*t304*t222*t72*t96*t76*
4512         t97+.1951844558900674*t67*t1*t2*t3*t89*t163*t222*t96*t76*t97+
4513         .0650614852966891*t67*t1*t2*t3*t89*t114*t222*t96*t76*t97+10.52680211541937*
4514         t67*t163*t222*t95*t72*t219*t76*t97+3.508934038473122*t67*t114*
4515         t222*t95*t72*t219*t76*t97+3.508934038473122*t67*t304*t214*
4516         t72*t219*t76*t97-.3903689117801349*t67*t1*t2*t3*t89*t163*t214*
4517         t219*t76*t97-.1301229705933783*t67*t1*t2*t3*t89*t114*t214*
4518         t219*t76*t97-10.52680211541937*t67*t163*t377*t72*t215*t76*
4519         t97-3.508934038473122*t67*t114*t377*t72*t215*t76*t97-.5848223397455204*
4520         t67*t71*t95*t72*t96*t521*t97-1.754467019236561*t67*t71*t95*
4521         t72*t96*t480*t97+.1301229705933783*t67*t1*t2*t3*t89*t71*t95*
4522         t96*t299*t97-1.754467019236561*t67*t163*t95*t72*t96*t299*t97-
4523         1.754467019236561*t67*t114*t95*t72*t96*t299*t97-1.754467019236561*
4524         t67*t71*t222*t72*t96*t299*t97+3.508934038473122*t67*t71*t214*
4525         t72*t219*t299*t97-3.508934038473122*t67*t163*t95*t72*t96*t267*
4526         t97-.2602459411867565*t67*t1*t2*t3*t210*t71*t95*t96*t161*t97+
4527         .2602459411867566*t67*t1*t2*t3*t89*t163*t95*t96*t161*t97-1.754467019236561*
4528         t67*t304*t95*t72*t96*t161*t97-3.508934038473122*t67*t268*t95*
4529         t72*t96*t161*t97-1.754467019236561*t67*t71*t397*t72*t96*t161*
4530         t97-3.508934038473122*t67*t163*t222*t72*t96*t161*t97+.1951844558900674*
4531         t67*t1*t2*t3*t89*t71*t222*t96*t161*t97+10.52680211541937*t67*
4532         t71*t222*t95*t72*t219*t161*t97+7.017868076946245*t67*t163*
4533         t214*t72*t219*t161*t97-.3903689117801349*t67*t1*t2*t3*t89*
4534         t71*t214*t219*t161*t97-10.52680211541937*t67*t71*t377*t72*
4535         t215*t161*t97-.0867486470622522*t67*t1*t2*t3*t210*t71*t95*
4536         t96*t108*t97-1.754467019236561*t67*t304*t95*t72*t96*t108*t97-
4537         .5848223397455204*t67*t71*t397*t72*t96*t108*t97+.0650614852966891*
4538         t67*t1*t2*t3*t89*t71*t222*t96*t108*t97+3.508934038473122*t67*
4539         t71*t222*t95*t72*t219*t108*t97-.1301229705933783*t67*t1*t2*
4540         t3*t89*t71*t214*t219*t108*t97-3.508934038473122*t67*t71*t377*
4541         t72*t215*t108*t97-192.0*t111*t67*t68*t76*t85+960.0*t113*t418*
4542         t67*t76*t85+t67*t69*t70*t725*t85+72.0*t161*t67*t68*t70*t85-
4543         24.0*t108*t67*t68*t70*t85+4.0*t113*t521*t67*t70*t85-12.0*t113*
4544         t480*t67*t70*t85-36.0*t245*t299*t67*t70*t85-4.0*t111*t521*
4545         t67*t69*t85-12.0*t111*t480*t67*t69*t85-360.0*t161*t418*t67*
4546         t69*t85-120.0*t108*t418*t67*t69*t85+60.0*t243*t299*t67*t69*
4547         t85+96.0*t111*t113*t267*t67*t85+144.0*t111*t161*t245*t67*t85-
4548         144.0*t108*t111*t245*t67*t85-240.0*t113*t161*t243*t67*t85-
4549         240.0*t108*t113*t243*t67*t85+.0197517897025652*t67*(192.0*
4550         t111*t68+t669+t662-960.0*t113*t418)*t72*t76*t79-7.324622014701263e-4*
4551         t67*t1*t2*t3*t89*t527*t76*t79-.0021973866044104*t67*t1*t2*
4552         t3*t89*t481*t76*t79+.0029298488058805*t67*t1*t2*t3*t210*t304*
4553         t76*t79-.0068363138803878*t67*t1*t2*t3*t373*t163*t76*t79-.0022787712934626*
4554         t67*t1*t2*t3*t373*t114*t76*t79+.0197517897025652*t67*t71*t72*
4555         t725*t79+.0197517897025652*t67*t114*t72*t521*t79-7.324622014701263e-4*
4556         t67*t1*t2*t3*t89*t71*t521*t79+.0592553691076956*t67*t163*t72*
4557         t480*t79-.0021973866044104*t67*t1*t2*t3*t89*t71*t480*t79+.0592553691076956*
4558         t67*t268*t72*t299*t79+.0029298488058805*t67*t1*t2*t3*t210*
4559         t71*t299*t79-.0021973866044104*t67*t1*t2*t3*t89*t163*t299*
4560         t79-.0021973866044104*t67*t1*t2*t3*t89*t114*t299*t79+.0592553691076956*
4561         t67*t304*t72*t267*t79-.0043947732088208*t67*t1*t2*t3*t89*t163*
4562         t267*t79+.0592553691076956*t67*t481*t72*t161*t79-.0068363138803878*
4563         t67*t1*t2*t3*t373*t71*t161*t79-.0021973866044104*t67*t1*t2*
4564         t3*t89*t304*t161*t79-.0043947732088208*t67*t1*t2*t3*t89*t268*
4565         t161*t79+0.005859697611761*t67*t1*t2*t3*t210*t163*t161*t79+
4566         .0197517897025652*t67*t527*t72*t108*t79-.0022787712934626*
4567         t67*t1*t2*t3*t373*t71*t108*t79-.0021973866044104*t67*t1*t2*
4568         t3*t89*t304*t108*t79+48.0*t119*t67*t68*t70*t76-8.0*t113*t429*
4569         t67*t70*t76+96.0*t111*t113*t254*t67*t76-480.0*t113*t119*t243*
4570         t67*t76+t718+t717+t716+t715+t714+t713+t712+t711+t709+t708+
4571         t707+t706+t705+t704+t703+t702+t701+t700+3.0*t119*t480*t67*
4572         t69*t70+3.0*t161*t429*t67*t69*t70+3.0*t254*t299*t67*t69*t70-
4573         24.0*t113*t119*t267*t67*t70-12.0*t113*t161*t254*t67*t70-12.0*
4574         t108*t113*t254*t67*t70-36.0*t119*t161*t245*t67*t70+36.0*t108*
4575         t119*t245*t67*t70+t699+t698+t697+t696+t695+t694+t693-24.0*
4576         t111*t119*t299*t67*t69-36.0*t111*t161*t254*t67*t69-12.0*t108*
4577         t111*t254*t67*t69+180.0*t119*t161*t243*t67*t69+60.0*t108*t119*
4578         t243*t67*t69+t679+t677+t675+t674+t673+96.0*t111*t113*t119*
4579         t161*t67+96.0*t108*t111*t113*t119*t67+t667+t659+t658+t657+
4580         t656+t655+t654+t653+t652+t651+t650+t649+t648+t647+t646+t644+
4581         t643+t642+t641+t640+t639+t638+t637+t636+t634+t628+t627+t626+
4582         t625+t624+t623+t622+t621+t620+t619+t618+t617+t615+t614+t613+
4583         t612+t611+t610+t609+t608+t606+t67*t69*t70*t108*t429-3076.169106302339*
4584         t67*t163*t377*t72*t378*t76*t379-1025.38970210078*t67*t114*
4585         t377*t72*t378*t76*t379-3076.169106302339*t67*t71*t377*t72*
4586         t378*t161*t379-1025.38970210078*t67*t71*t377*t72*t378*t108*
4587         t379+311.6836061887656*t67*t163*t377*t72*t382*t76*t216+103.8945353962552*
4588         t67*t114*t377*t72*t382*t76*t216-155.8418030943828*t67*t163*
4589         t222*t95*t72*t215*t76*t216-51.9472676981276*t67*t114*t222*
4590         t95*t72*t215*t76*t216-51.9472676981276*t67*t304*t214*t72*t215*
4591         t76*t216+5.779133531416695*t67*t1*t2*t3*t89*t163*t214*t215*
4592         t76*t216+1.926377843805565*t67*t1*t2*t3*t89*t114*t214*t215*
4593         t76*t216-51.9472676981276*t67*t71*t214*t72*t215*t299*t216+
4594         311.6836061887656*t67*t71*t377*t72*t382*t161*t216-155.8418030943828*
4595         t67*t71*t222*t95*t72*t215*t161*t216-103.8945353962552*t67*
4596         t163*t214*t72*t215*t161*t216+5.779133531416695*t67*t1*t2*t3*
4597         t89*t71*t214*t215*t161*t216+103.8945353962552*t67*t71*t377*
4598         t72*t382*t108*t216-51.9472676981276*t67*t71*t222*t95*t72*t215*
4599         t108*t216+1.926377843805565*t67*t1*t2*t3*t89*t71*t214*t215*
4600         t108*t216+t67*t69*t70*t521*t119)+.3903689117801349*t67*t1*
4601         t2*t3*t89*t163*t95*t96*t76*t97-3.508934038473123*t67*t304*
4602         t95*t72*t96*t76*t97-5.263401057709684*t67*t163*t222*t72*t96*
4603         t76*t97+10.52680211541937*t67*t163*t214*t72*t219*t76*t97-3.508934038473123*
4604         t67*t71*t95*t72*t96*t299*t97+.3903689117801349*t67*t1*t2*t3*
4605         t89*t71*t95*t96*t161*t97-7.017868076946246*t67*t163*t95*t72*
4606         t96*t161*t97-5.263401057709684*t67*t71*t222*t72*t96*t161*t97+
4607         10.52680211541937*t67*t71*t214*t72*t219*t161*t97+48.0*t67*
4608         t68*t70*t76*t85-480.0*t113*t243*t67*t76*t85+3.0*t480*t67*t69*
4609         t70*t85-24.0*t113*t267*t67*t70*t85-36.0*t161*t245*t67*t70*
4610         t85-24.0*t111*t299*t67*t69*t85+180.0*t161*t243*t67*t69*t85+
4611         96.0*t108*t111*t113*t67*t85+.0592553691076956*t67*t481*t72*
4612         t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t304*t76*t79+.0087895464176415*
4613         t67*t1*t2*t3*t210*t163*t76*t79+.0592553691076956*t67*t71*t72*
4614         t480*t79+.0592553691076956*t67*t114*t72*t299*t79-.0043947732088208*
4615         t67*t1*t2*t3*t89*t71*t299*t79+.1185107382153912*t67*t163*t72*
4616         t267*t79+.1185107382153912*t67*t268*t72*t161*t79+.0087895464176415*
4617         t67*t1*t2*t3*t210*t71*t161*t79-.0087895464176415*t67*t1*t2*
4618         t3*t89*t163*t161*t79+.0592553691076956*t67*t304*t72*t108*t79-
4619         24.0*t113*t254*t67*t70*t76+192.0*t111*t113*t119*t67*t76+6.0*
4620         t119*t299*t67*t69*t70+9.0*t161*t254*t67*t69*t70-24.0*t108*
4621         t113*t119*t67*t70+t692+t691+t690-72.0*t111*t119*t161*t67*t69+
4622         t689+t688+t687+t686+t685+t684+t683+t601+t599+t598+t597+t596+
4623         t595+t594+t593+t592+t591+t590+t589+t588+t587+t586+t585+t584+
4624         t583+t582+t581+t580+t579+t578+t577+t576+t575+t534+t532+t531+
4625         t528+t525+t523+t522+t440+t438+t433+t431+t416+t414+t399+t395+
4626         t393+t389+t388+t387+t386+t381-155.8418030943828*t67*t163*t214*
4627         t72*t215*t76*t216-155.8418030943828*t67*t71*t214*t72*t215*
4628         t161*t216)+t125*t536+3.0*t166*t484+3.0*t167*t483+3.0*t270*
4629         t312+3.0*t271*t311+(-.0193765893688889*t21*t48*t38*t53*t499+
4630         4.095977506133334e-4*t21*t48*t38*t50*t124*t499-1.7600292864e-6*
4631         t21*t48*t38*t51*t265*t499+5.503858483199999e-4*t21*t135*t38*
4632         t124*t498-9.336701214720001e-6*t21*t135*t38*t50*t265*t498+
4633         3.62063167488e-8*t21*t135*t38*t51*t445*t498-2.33256321024e-6*
4634         t21*t145*t38*t265*t497+3.593860153344e-8*t21*t145*t38*t50*
4635         t445*t497-1.31659333632e-10*t21*t145*t38*t51*t682*t497)*t134+
4636         t537*t123;
4637     d4fdrarbrbga = 2.0*t166*t485+t173*t483+2.0*t270*t313+
4638         t276*t311+(.0083042525866667*grada*t48*t38*t53*t283-1.7554189312e-4*
4639         grada*t48*t38*t50*t124*t283-1.3759646208e-4*t170*t48*t37*t124*
4640         t283+7.542982656e-7*grada*t48*t38*t51*t265*t283+2.33417530368e-6*
4641         t170*t48*t37*t50*t265*t283-9.051579187200001e-9*t170*t48*t37*
4642         t51*t445*t283-1.0007015424e-4*grada*t135*t38*t124*t282+1.69758203904e-6*
4643         grada*t135*t38*t50*t265*t282+1.74942240768e-6*t170*t135*t37*
4644         t265*t282-6.5829666816e-9*grada*t135*t38*t51*t445*t282-2.695395115008e-8*
4645         t170*t135*t37*t50*t445*t282+9.8744500224e-11*t170*t135*t37*
4646         t51*t682*t282)*t134+t538*t123;
4647     d4fdrarbrbgb = 2.0*t166*t486+t179*t483+2.0*t270*t318+
4648         t277*t311+(.0083042525866667*t21*gradb*t38*t53*t283-1.7554189312e-4*
4649         t21*gradb*t38*t50*t124*t283+7.542982656e-7*t21*gradb*t38*t51*
4650         t265*t283-3.3773677056e-4*t21*t176*t38*t124*t282+5.72933938176e-6*
4651         t21*t176*t38*t50*t265*t282-2.22175125504e-8*t21*t176*t38*t51*
4652         t445*t282+1.74942240768e-6*t21*t174*t38*t265*t281-2.695395115008e-8*
4653         t21*t174*t38*t50*t445*t281+9.8744500224e-11*t21*t174*t38*t51*
4654         t682*t281)*t134+t543*t123;
4655     d4fdrarbrbab = 0.0;
4656     d4fdrarbgaga = (-0.00226479616*t48*t38*t53*t149+4.787506176e-5*
4657         t48*t38*t50*t124*t149+1.876315392e-4*t21*t48*t37*t124*t149-
4658         2.057177088e-7*t48*t38*t51*t265*t149-3.1829663232e-6*t21*t48*
4659         t37*t50*t265*t149-1.31206680576e-6*t20*t48*t36*t265*t149+1.2343062528e-8*
4660         t21*t48*t37*t51*t445*t149+2.021546336256e-8*t20*t48*t36*t50*
4661         t445*t149-7.4058375168e-11*t20*t48*t36*t51*t682*t149)*t134+
4662         t544*t123+t490*t166+t322*t270;
4663     d4fdrarbgagb = (-0.00452959232*grada*gradb*t38*t53*t149+
4664         9.575012352000001e-5*grada*gradb*t38*t50*t124*t149+7.505261567999999e-5*
4665         t170*gradb*t37*t124*t149-4.114354176e-7*grada*gradb*t38*t51*
4666         t265*t149-1.27318652928e-6*t170*gradb*t37*t50*t265*t149+4.9372250112e-9*
4667         t170*gradb*t37*t51*t445*t149+7.505261567999999e-5*grada*t176*
4668         t38*t124*t148-1.27318652928e-6*grada*t176*t38*t50*t265*t148-
4669         1.31206680576e-6*t170*t176*t37*t265*t148+4.9372250112e-9*grada*
4670         t176*t38*t51*t445*t148+2.021546336256e-8*t170*t176*t37*t50*
4671         t445*t148-7.4058375168e-11*t170*t176*t37*t51*t682*t148)*t134+
4672         t545*t123+t491*t166+t323*t270;
4673     d4fdrarbgaab = 0.0;
4674     d4fdrarbgbgb = (-0.00226479616*t21*t38*t53*t149+4.787506176e-5*
4675         t21*t38*t50*t124*t149-2.057177088e-7*t21*t38*t51*t265*t149+
4676         1.876315392e-4*t21*t48*t38*t124*t148-3.1829663232e-6*t21*t48*
4677         t38*t50*t265*t148+1.2343062528e-8*t21*t48*t38*t51*t445*t148-
4678         1.31206680576e-6*t21*t135*t38*t265*t147+2.021546336256e-8*
4679         t21*t135*t38*t50*t445*t147-7.4058375168e-11*t21*t135*t38*t51*
4680         t682*t147)*t134+t549*t123+t492*t166+t327*t270;
4681     d4fdrarbgbab = 0.0;
4682     d4fdrarbabab = 0.0;
4683     d4fdragagaga = t40*t551*t44*t28*t45*rhoa-0.03109*t19*
4684         (-5.56276736*grada*t24*t37+9.151077376*t170*t35*t36-4.5999572992*
4685         t168*t181*t273+.9218673868800003*t272*t329*t487-0.06468337664*
4686         t474*t561*t726)*t28*rhoa-1.0*t11*t29*t3*t552-0.75*t29*t3*(-
4687         0.00350906368*grada*t31*t37+1.8541060096e-4*t170*t46*t36-2.41060610048e-6*
4688         t168*t193*t273+1.151744606208e-8*t272*t342*t487-1.84680448e-11*
4689         t474*t574*t726)*t42-0.03109*t19*t551*t28+(0.01019158272*grada*
4690         t37*t53-2.154377779199999e-4*grada*t37*t50*t124-2.533025779199999e-4*
4691         t170*t36*t124+9.257296896000001e-7*grada*t37*t51*t265+4.29700453632e-6*
4692         t170*t36*t50*t265+9.8405010432e-7*t168*t273*t265-1.66631344128e-8*
4693         t170*t36*t51*t445-1.516159752192001e-8*t168*t273*t50*t445+
4694         5.5543781376e-11*t168*t273*t51*t682)*t134+t553*t123+.0021294577333333*
4695         t1*t2*t3*t19*t551*t12;
4696     d4fdragagagb = (0.00169859712*gradb*t38*t53*t49-3.590629632e-5*
4697         gradb*t38*t50*t124*t49-1.407236544e-4*t21*gradb*t37*t124*t49+
4698         1.542882816e-7*gradb*t38*t51*t265*t49+2.3872247424e-6*t21*
4699         gradb*t37*t50*t265*t49+9.8405010432e-7*t20*gradb*t36*t265*
4700         t49-9.257296896000002e-9*t21*gradb*t37*t51*t445*t49-1.516159752192001e-8*
4701         t20*gradb*t36*t50*t445*t49+5.5543781376e-11*t20*gradb*t36*
4702         t51*t682*t49)*t134+t554*t123;
4703     d4fdragagaab = 0.0;
4704     d4fdragagbgb = (0.00169859712*grada*t38*t53*t49-3.590629632e-5*
4705         grada*t38*t50*t124*t49-2.814473087999999e-5*t170*t37*t124*
4706         t49+1.542882816e-7*grada*t38*t51*t265*t49+4.774449484800001e-7*
4707         t170*t37*t50*t265*t49-1.8514593792e-9*t170*t37*t51*t445*t49-
4708         5.628946175999999e-5*grada*t48*t38*t124*t138+9.548898969600002e-7*
4709         grada*t48*t38*t50*t265*t138+9.8405010432e-7*t170*t48*t37*t265*
4710         t138-3.702918758400001e-9*grada*t48*t38*t51*t445*t138-1.516159752192001e-8*
4711         t170*t48*t37*t50*t445*t138+5.5543781376e-11*t170*t48*t37*t51*
4712         t682*t138)*t134+t555*t123;
4713     d4fdragagbab = 0.0;
4714     d4fdragaabab = 0.0;
4715     d4fdragbgbgb = (-8.443419263999998e-5*t21*gradb*t38*t124*
4716         t138+1.43233484544e-6*t21*gradb*t38*t50*t265*t138-5.554378137600001e-9*
4717         t21*gradb*t38*t51*t445*t138+9.8405010432e-7*t21*t176*t38*t265*
4718         t175-1.516159752192001e-8*t21*t176*t38*t50*t445*t175+5.5543781376e-11*
4719         t21*t176*t38*t51*t682*t175)*t134+t559*t123;
4720     d4fdragbgbab = 0.0;
4721     d4fdragbabab = 0.0;
4722     d4fdraababab = 0.0;
4723     d4fdrbrbrbrb = t55*(24829.60425438716*t501*t736*t133*
4724         t738*rhob-199659.0885685683*t735*t736*t133*t737*rhob+24.0*
4725         t151*t736*t133*t504*rhob+1157.928594403345*t285*t290*t286*
4726         t133*t504*rhob-1157.928594403345*t285*t736*t133*t503*rhob-
4727         12414.80212719358*t501*t290*t286*t133*t503*rhob+6.0*t151*t739*
4728         t133*t288*rhob+8.0*t151*t506*t155*t133*t288*rhob-96.4940495336121*
4729         t285*t739*t133*t287*rhob-36.0*t151*t290*t286*t133*t287*rhob-
4730         128.6587327114828*t285*t506*t155*t133*t287*rhob-1.0*t151*t740*
4731         t133*t156*rhob+t56*(.2602459411867566*t67*t1*t2*t3*t89*t304*
4732         t95*t96*t76*t97-.3469945882490088*t67*t1*t2*t3*t210*t163*t95*
4733         t96*t76*t97-2.339289358982082*t67*t527*t95*t72*t96*t76*t97-
4734         2.339289358982082*t67*t163*t397*t72*t96*t76*t97-3.508934038473122*
4735         t67*t304*t222*t72*t96*t76*t97+.2602459411867566*t67*t1*t2*
4736         t3*t89*t163*t222*t96*t76*t97+14.03573615389249*t67*t163*t222*
4737         t95*t72*t219*t76*t97+7.017868076946245*t67*t304*t214*t72*t219*
4738         t76*t97-.5204918823735132*t67*t1*t2*t3*t89*t163*t214*t219*
4739         t76*t97-14.03573615389249*t67*t163*t377*t72*t215*t76*t97-2.339289358982082*
4740         t67*t71*t95*t72*t96*t521*t97+.2602459411867566*t67*t1*t2*t3*
4741         t89*t71*t95*t96*t299*t97-7.017868076946245*t67*t163*t95*t72*
4742         t96*t299*t97-3.508934038473122*t67*t71*t222*t72*t96*t299*t97+
4743         7.017868076946245*t67*t71*t214*t72*t219*t299*t97-.3469945882490088*
4744         t67*t1*t2*t3*t210*t71*t95*t96*t161*t97+.5204918823735132*t67*
4745         t1*t2*t3*t89*t163*t95*t96*t161*t97-7.017868076946245*t67*t304*
4746         t95*t72*t96*t161*t97-2.339289358982082*t67*t71*t397*t72*t96*
4747         t161*t97-7.017868076946245*t67*t163*t222*t72*t96*t161*t97+
4748         .2602459411867566*t67*t1*t2*t3*t89*t71*t222*t96*t161*t97+14.03573615389249*
4749         t67*t71*t222*t95*t72*t219*t161*t97+14.03573615389249*t67*t163*
4750         t214*t72*t219*t161*t97-.5204918823735132*t67*t1*t2*t3*t89*
4751         t71*t214*t219*t161*t97-14.03573615389249*t67*t71*t377*t72*
4752         t215*t161*t97+384.0*t111*t67*t68*t76*t85+1920.0*t113*t418*
4753         t67*t76*t85+t67*t69*t70*t742*t85-96.0*t161*t67*t68*t70*t85-
4754         16.0*t113*t521*t67*t70*t85+72.0*t245*t299*t67*t70*t85-16.0*
4755         t111*t521*t67*t69*t85-480.0*t161*t418*t67*t69*t85+120.0*t243*
4756         t299*t67*t69*t85+192.0*t111*t113*t299*t67*t85-576.0*t111*t161*
4757         t245*t67*t85-960.0*t113*t161*t243*t67*t85+.0197517897025652*
4758         t67*(-384.0*t111*t68+t670+t669+t665-1920.0*t113*t418)*t72*
4759         t76*t79-.0029298488058805*t67*t1*t2*t3*t89*t527*t76*t79+0.005859697611761*
4760         t67*t1*t2*t3*t210*t304*t76*t79-.0091150851738505*t67*t1*t2*
4761         t3*t373*t163*t76*t79+.0197517897025652*t67*t71*t72*t742*t79+
4762         .0790071588102608*t67*t163*t72*t521*t79-.0029298488058805*
4763         t67*t1*t2*t3*t89*t71*t521*t79+.1185107382153912*t67*t304*t72*
4764         t299*t79+0.005859697611761*t67*t1*t2*t3*t210*t71*t299*t79-
4765         .0087895464176415*t67*t1*t2*t3*t89*t163*t299*t79+.0790071588102608*
4766         t67*t527*t72*t161*t79-.0091150851738505*t67*t1*t2*t3*t373*
4767         t71*t161*t79-.0087895464176415*t67*t1*t2*t3*t89*t304*t161*
4768         t79+0.011719395223522*t67*t1*t2*t3*t210*t163*t161*t79-96.0*
4769         t119*t67*t68*t70*t76-16.0*t113*t429*t67*t70*t76+192.0*t111*
4770         t113*t254*t67*t76-960.0*t113*t119*t243*t67*t76+4.0*t119*t521*
4771         t67*t69*t70+4.0*t161*t429*t67*t69*t70+6.0*t254*t299*t67*t69*
4772         t70-48.0*t113*t119*t299*t67*t70-48.0*t113*t161*t254*t67*t70+
4773         144.0*t119*t161*t245*t67*t70-48.0*t111*t119*t299*t67*t69-48.0*
4774         t111*t161*t254*t67*t69+240.0*t119*t161*t243*t67*t69+t681+t680+
4775         t679+t678+t677+t676+t675+t674+t673+384.0*t111*t113*t119*t161*
4776         t67+t667+t659+t658+t657+t656+t655+t654+t653+t652+t651+t650+
4777         t649+t648+t647+t646+t644+t643+t642+t641+t640+t639+t638+t637+
4778         t636+t634+t628+t627+t626+t625+t624+t623+t622+t621+t620+t619+
4779         t618+t617+t615+t614+t613+t612+t611+t610+t609+t608+t606-4101.558808403119*
4780         t67*t163*t377*t72*t378*t76*t379-4101.558808403119*t67*t71*
4781         t377*t72*t378*t161*t379+415.5781415850207*t67*t163*t377*t72*
4782         t382*t76*t216-207.7890707925104*t67*t163*t222*t95*t72*t215*
4783         t76*t216-103.8945353962552*t67*t304*t214*t72*t215*t76*t216+
4784         7.70551137522226*t67*t1*t2*t3*t89*t163*t214*t215*t76*t216-
4785         103.8945353962552*t67*t71*t214*t72*t215*t299*t216+415.5781415850207*
4786         t67*t71*t377*t72*t382*t161*t216-207.7890707925104*t67*t71*
4787         t222*t95*t72*t215*t161*t216-207.7890707925104*t67*t163*t214*
4788         t72*t215*t161*t216+7.70551137522226*t67*t1*t2*t3*t89*t71*t214*
4789         t215*t161*t216)+.5204918823735132*t67*t1*t2*t3*t89*t163*t95*
4790         t96*t76*t97-7.017868076946245*t67*t304*t95*t72*t96*t76*t97-
4791         7.017868076946245*t67*t163*t222*t72*t96*t76*t97+14.03573615389249*
4792         t67*t163*t214*t72*t219*t76*t97-7.017868076946245*t67*t71*t95*
4793         t72*t96*t299*t97+.5204918823735132*t67*t1*t2*t3*t89*t71*t95*
4794         t96*t161*t97-14.03573615389249*t67*t163*t95*t72*t96*t161*t97-
4795         7.017868076946245*t67*t71*t222*t72*t96*t161*t97+14.03573615389249*
4796         t67*t71*t214*t72*t219*t161*t97-96.0*t67*t68*t70*t76*t85-960.0*
4797         t113*t243*t67*t76*t85+4.0*t521*t67*t69*t70*t85-48.0*t113*t299*
4798         t67*t70*t85+144.0*t161*t245*t67*t70*t85-48.0*t111*t299*t67*
4799         t69*t85+240.0*t161*t243*t67*t69*t85+384.0*t111*t113*t161*t67*
4800         t85+.0790071588102608*t67*t527*t72*t76*t79-.0087895464176415*
4801         t67*t1*t2*t3*t89*t304*t76*t79+0.011719395223522*t67*t1*t2*
4802         t3*t210*t163*t76*t79+.0790071588102608*t67*t71*t72*t521*t79+
4803         .2370214764307825*t67*t163*t72*t299*t79-.0087895464176415*
4804         t67*t1*t2*t3*t89*t71*t299*t79+.2370214764307825*t67*t304*t72*
4805         t161*t79+0.011719395223522*t67*t1*t2*t3*t210*t71*t161*t79-
4806         0.017579092835283*t67*t1*t2*t3*t89*t163*t161*t79-48.0*t113*
4807         t254*t67*t70*t76+384.0*t111*t113*t119*t67*t76+12.0*t119*t299*
4808         t67*t69*t70+12.0*t161*t254*t67*t69*t70-96.0*t113*t119*t161*
4809         t67*t70-96.0*t111*t119*t161*t67*t69+t602+t601+t600+t599+t598+
4810         t597+t596+t595+t594+t593+t592+t591+t590+t589+t588+t587+t586+
4811         t585+t584+t583+t582+t581+t580+t579+t578+t577+t576+t575-.0044166530765432*
4812         t1*t2*t3*t132*t505+771.9523962688968*t285*t502*t133*t504-8276.534751462386*
4813         t501*t502*t133*t503-.2435318518518518*t1*t2*t3*t151*t155*t156*
4814         t289+24.0*t151*t290*t155*t133*t288-24.0*t151*t502*t133*t287-
4815         385.9761981344484*t285*t290*t155*t133*t287-207.7890707925104*
4816         t67*t163*t214*t72*t215*t76*t216-207.7890707925104*t67*t71*
4817         t214*t72*t215*t161*t216-4.0*t151*t506*t133*t156-.5479466666666666*
4818         t1*t2*t3*t151*t286*t288*t154+8.812265465851826*t1*t2*t3*t285*
4819         t286*t287*t154+.2739733333333333*t1*t2*t3*t151*t290*t156*t154-
4820         52.87359279511096*t1*t2*t3*t285*t502*t504*t129+566.8874535768302*
4821         t1*t2*t3*t501*t502*t503*t129-1.64384*t1*t2*t3*t151*t290*t155*
4822         t288*t129+1.64384*t1*t2*t3*t151*t502*t287*t129+26.43679639755548*
4823         t1*t2*t3*t285*t290*t155*t287*t129+.2739733333333333*t1*t2*
4824         t3*t151*t506*t156*t129)-6.0*t133*t140*t151*t288*t739*rhob-
4825         24829.60425438716*t501*t140*t736*t133*t738*rhob+199659.0885685683*
4826         t735*t140*t736*t133*t737*rhob-24.0*t133*t140*t151*t504*t736*
4827         rhob-8.0*t133*t140*t151*t155*t288*t506*rhob+4.0*t133*t150*
4828         t151*t156*t506*rhob-771.9523962688968*t285*t150*t502*t133*
4829         t504*rhob-1157.928594403345*t285*t140*t290*t286*t133*t504*
4830         rhob+1157.928594403345*t285*t140*t736*t133*t503*rhob+8276.534751462386*
4831         t501*t150*t502*t133*t503*rhob+12414.80212719358*t501*t140*
4832         t290*t286*t133*t503*rhob+24.0*t133*t150*t151*t287*t502*rhob+
4833         4.0*t133*t151*t155*t156*t500*rhob-24.0*t133*t150*t151*t155*
4834         t288*t290*rhob+36.0*t133*t140*t151*t286*t287*t290*rhob+6.0*
4835         t133*t151*t156*t284*t290*rhob-12.0*t133*t151*t284*t286*t288*
4836         rhob+96.4940495336121*t285*t140*t739*t133*t287*rhob+192.9880990672242*
4837         t285*t284*t286*t133*t287*rhob+385.9761981344484*t285*t150*
4838         t290*t155*t133*t287*rhob+128.6587327114828*t285*t506*t140*
4839         t155*t133*t287*rhob+t151*t740*t140*t133*t156*rhob-0.03109*
4840         t132*(-35.76935261234568*t48*t139*t734+82.55433767506175*t135*
4841         t137*t733-59.40101146548149*t145*t146*t732+18.83174705682963*
4842         t278*t279*t731-2.760130487182222*t493*t494*t730+.1533235594429629*
4843         t727*t728*t729)*t133*rhob-0.75*t153*t29*t3*(.0494795535802469*
4844         t48*t143*t734+.0567869852760494*t135*t142*t733-.0013077314514489*
4845         t145*t157*t732+1.04603189126637e-5*t278*t291*t731-3.550863279900445e-8*
4846         t493*t507*t730+4.37761061925926e-11*t727*t741*t729)+4.0*t166*
4847         t537+4.0*t167*t536-4.0*t128*t29*t3*t508+4.0*t133*t140*t151*
4848         t156*t506+.0044166530765432*t1*t2*t3*t132*t140*t505-771.9523962688968*
4849         t285*t140*t502*t133*t504+8276.534751462386*t501*t140*t502*
4850         t133*t503+24.0*t133*t140*t151*t287*t502-.3703703703703703*
4851         t144*t29*t3*t49+6.0*t311*t312-2.0*t126*t29*t292*t3+.8888888888888888*
4852         t152*t158*t29*t3-24.0*t133*t140*t151*t155*t288*t290+.2435318518518518*
4853         t1*t2*t3*t151*t140*t155*t156*t289-.0075714052740741*t1*t2*
4854         t3*t132*t150*t289-24.0*t151*t150*t286*t133*t288+385.9761981344484*
4855         t285*t150*t286*t133*t287+385.9761981344484*t285*t140*t290*
4856         t155*t133*t287+12.0*t151*t150*t290*t133*t156+12.0*t151*t284*
4857         t155*t133*t156+.5479466666666666*t1*t2*t3*t151*t140*t286*t288*
4858         t154-8.812265465851826*t1*t2*t3*t285*t140*t286*t287*t154+.0085178309333333*
4859         t1*t2*t3*t132*t284*t154-.2739733333333333*t1*t2*t3*t151*t140*
4860         t290*t156*t154-.5479466666666666*t1*t2*t3*t151*t150*t155*t156*
4861         t154+(1.09084109037037*t48*t54*t734-.0758054582755556*t48*
4862         t50*t53*t734+4.155624704e-4*t48*t51*t124*t734-.1231797467022222*
4863         t135*t53*t733+.0026038714146133*t135*t50*t124*t733-1.11887576064e-5*
4864         t135*t51*t265*t733+0.00110077169664*t145*t124*t732-1.867340242944e-5*
4865         t145*t50*t265*t732+7.241263349760001e-8*t145*t51*t445*t732-
4866         2.33256321024e-6*t278*t265*t731+3.593860153344e-8*t278*t50*
4867         t445*t731-1.31659333632e-10*t278*t51*t682*t731)*t134-0.12436*
4868         t132*t500*t133+52.87359279511096*t1*t2*t3*t285*t140*t502*t504*
4869         t129-566.8874535768302*t1*t2*t3*t501*t140*t502*t503*t129+.0085178309333333*
4870         t1*t2*t3*t132*t500*t129+1.64384*t1*t2*t3*t151*t150*t286*t288*
4871         t129+1.64384*t1*t2*t3*t151*t140*t290*t155*t288*t129-1.64384*
4872         t1*t2*t3*t151*t140*t502*t287*t129-26.43679639755548*t1*t2*
4873         t3*t285*t150*t286*t287*t129-26.43679639755548*t1*t2*t3*t285*
4874         t140*t290*t155*t287*t129-.8219199999999999*t1*t2*t3*t151*t150*
4875         t290*t156*t129-.8219199999999999*t1*t2*t3*t151*t284*t155*t156*
4876         t129-.2739733333333333*t1*t2*t3*t151*t506*t140*t156*t129;
4877     d4fdrbrbrbga = 3.0*
4878         t166*t538+t173*t536+3.0*t311*t313+(.0145324420266667*grada*
4879         t48*t22*t53*t499-3.0719831296e-4*grada*t48*t22*t50*t124*t499+
4880         1.3200219648e-6*grada*t48*t22*t51*t265*t499-4.127893862399999e-4*
4881         grada*t135*t22*t124*t498+7.00252591104e-6*grada*t135*t22*t50*
4882         t265*t498-2.71547375616e-8*grada*t135*t22*t51*t445*t498+1.74942240768e-6*
4883         grada*t145*t22*t265*t497-2.695395115008e-8*grada*t145*t22*
4884         t50*t445*t497+9.8744500224e-11*grada*t145*t22*t51*t682*t497)*
4885         t134;
4886     d4fdrbrbrbgb = 3.0*t133*t151*t155*t156*t541*rhob-192.9880990672242*
4887         t285*t177*t502*t133*t504*rhob+2069.133687865597*t501*t177*
4888         t502*t133*t503*rhob+6.0*t133*t151*t177*t287*t502*rhob+3.0*
4889         t133*t151*t156*t290*t316*rhob-6.0*t133*t151*t286*t288*t316*
4890         rhob-6.0*t133*t151*t155*t177*t288*t290*rhob+96.4940495336121*
4891         t285*t316*t286*t133*t287*rhob+96.4940495336121*t285*t177*t290*
4892         t155*t133*t287*rhob+t151*t506*t177*t133*t156*rhob-0.03109*
4893         t132*(12.62447739259259*gradb*t139*t499-40.5350444562963*t176*
4894         t137*t498+34.47383256177778*t174*t146*t497-12.20319937422222*
4895         t314*t279*t496+1.940731112106667*t539*t494*t495-.1149926695822222*
4896         t743*t728*t744)*t133*rhob+3.0*t166*t543-3.0*t128*t29*t3*t542+
4897         t179*t536-0.75*t153*t29*t3*(-.0174633718518519*gradb*t143*
4898         t499-0.027232605677037*t176*t142*t498+7.430925653333333e-4*
4899         t174*t157*t497-6.679693466737778e-6*t314*t291*t496+2.478467011925334e-8*
4900         t539*t507*t495-3.28320796444444e-11*t743*t741*t744)+3.0*t311*
4901         t318-1.0*t126*t29*t3*t317+.2222222222222222*t152*t178*t29*
4902         t3+3.0*t133*t151*t156*t177*t290-.0018928513185185*t1*t2*t3*
4903         t132*t177*t289-6.0*t133*t151*t177*t286*t288+96.4940495336121*
4904         t285*t177*t286*t133*t287+6.0*t151*t316*t155*t133*t156+.0042589154666667*
4905         t1*t2*t3*t132*t316*t154-.1369866666666666*t1*t2*t3*t151*t177*
4906         t155*t156*t154+(-.3850027377777777*gradb*t54*t499+.0267548676266667*
4907         gradb*t50*t53*t499-1.466691072e-4*gradb*t51*t124*t499+.0643579575466666*
4908         t176*t53*t498-0.00136044967168*t176*t50*t124*t498+5.8458115584e-6*
4909         t176*t51*t265*t498-7.1299984896e-4*t174*t124*t497+1.209527202816e-5*
4910         t174*t50*t265*t497-4.69036376064e-8*t174*t51*t445*t497+1.74942240768e-6*
4911         t314*t265*t496-2.695395115008e-8*t314*t50*t445*t496+9.8744500224e-11*
4912         t314*t51*t682*t496)*t134-0.09327*t132*t541*t133+0.0063883732*
4913         t1*t2*t3*t132*t541*t129+.4109599999999999*t1*t2*t3*t151*t177*
4914         t286*t288*t129-6.60919909938887*t1*t2*t3*t285*t177*t286*t287*
4915         t129-0.20548*t1*t2*t3*t151*t177*t290*t156*t129-.4109599999999999*
4916         t1*t2*t3*t151*t316*t155*t156*t129;
4917     d4fdrbrbrbab = 0.0;
4918     d4fdrbrbgaga = 2.0*t166*t544+t322*t311+(-0.00311409472*
4919         t48*t22*t53*t283+6.582820991999998e-5*t48*t22*t50*t124*t283+
4920         1.0319734656e-4*t21*t48*t25*t124*t283-2.828618496e-7*t48*t22*
4921         t51*t265*t283-1.75063147776e-6*t21*t48*t25*t50*t265*t283+6.788684390399999e-9*
4922         t21*t48*t25*t51*t445*t283+3.752630784e-5*t135*t22*t124*t282-
4923         6.365932646400001e-7*t135*t22*t50*t265*t282-1.31206680576e-6*
4924         t21*t135*t25*t265*t282+2.4686125056e-9*t135*t22*t51*t445*t282+
4925         2.021546336256e-8*t21*t135*t25*t50*t445*t282-7.4058375168e-11*
4926         t21*t135*t25*t51*t682*t282)*t134;
4927     d4fdrbrbgagb = 2.0*t166*t545+t323*t311+(-0.00622818944*
4928         grada*gradb*t22*t53*t283+1.3165641984e-4*grada*gradb*t22*t50*
4929         t124*t283-5.657236992e-7*grada*gradb*t22*t51*t265*t283+2.533025779199999e-4*
4930         grada*t176*t22*t124*t282-4.29700453632e-6*grada*t176*t22*t50*
4931         t265*t282+1.66631344128e-8*grada*t176*t22*t51*t445*t282-1.31206680576e-6*
4932         grada*t174*t22*t265*t281+2.021546336256e-8*grada*t174*t22*
4933         t50*t445*t281-7.4058375168e-11*grada*t174*t22*t51*t682*t281)*
4934         t134;
4935     d4fdrbrbgaab = 0.0;
4936     d4fdrbrbgbgb = 2.0*t133*t151*t155*t156*t547*rhob-2.0*
4937         t133*t151*t286*t288*t325*rhob+32.1646831778707*t285*t325*t286*
4938         t133*t287*rhob+t151*t325*t290*t133*t156*rhob-0.03109*t132*
4939         (-2.705245155555555*t139*t283+17.07438094222222*t48*t137*t282-
4940         18.65845253688889*t135*t146*t281+7.652958208000002*t145*t279*
4941         t280-1.347742706346667*t278*t494*t540+.0862445021866667*t493*
4942         t728*t745)*t133*rhob+2.0*t166*t549-2.0*t128*t29*t3*t548-.3333333333333333*
4943         t126*t29*t3*t326+2.0*t133*t151*t155*t156*t325+t327*t311-0.75*
4944         t153*(.0037421511111111*t143*t283+.0111270035911111*t48*t142*
4945         t282-3.913808440888888e-4*t135*t157*t281+4.11062280192e-6*
4946         t145*t291*t280-1.704949885610667e-8*t278*t507*t540+2.46240597333333e-11*
4947         t493*t741*t745)*t29*t3+.0014196384888889*t1*t2*t3*t132*t325*
4948         t154+(.0825005866666667*t54*t283-0.00573318592*t50*t53*t283+
4949         3.14290944e-5*t51*t124*t283-0.02915925056*t48*t53*t282+6.163914201599998e-4*
4950         t48*t50*t124*t282-2.6486155008e-6*t48*t51*t265*t282+4.409341171199999e-4*
4951         t135*t124*t281-7.47997085952e-6*t135*t50*t265*t281+2.900619694080001e-8*
4952         t135*t51*t445*t281-1.31206680576e-6*t145*t265*t280+2.021546336256e-8*
4953         t145*t50*t445*t280-7.4058375168e-11*t145*t51*t682*t280)*t134-
4954         0.06218*t132*t547*t133+.0042589154666667*t1*t2*t3*t132*t547*
4955         t129-.1369866666666666*t1*t2*t3*t151*t325*t155*t156*t129;
4956     d4fdrbrbgbab = 0.0;
4957     d4fdrbrbabab = 0.0;
4958     d4fdrbgagaga = (-
4959         8.443419263999998e-5*grada*t48*t25*t124*t149+1.43233484544e-6*
4960         grada*t48*t25*t50*t265*t149+9.8405010432e-7*t170*t48*t169*
4961         t265*t149-5.554378137600001e-9*grada*t48*t25*t51*t445*t149-
4962         1.516159752192001e-8*t170*t48*t169*t50*t445*t149+5.5543781376e-11*
4963         t170*t48*t169*t51*t682*t149)*t134+t553*t166;
4964     d4fdrbgagagb = (0.00169859712*gradb*t22*t53*t149-3.590629632e-5*
4965         gradb*t22*t50*t124*t149-5.628946175999999e-5*t21*gradb*t25*
4966         t124*t149+1.542882816e-7*gradb*t22*t51*t265*t149+9.548898969600002e-7*
4967         t21*gradb*t25*t50*t265*t149-3.702918758400001e-9*t21*gradb*
4968         t25*t51*t445*t149-2.814473087999999e-5*t176*t22*t124*t148+
4969         4.774449484800001e-7*t176*t22*t50*t265*t148+9.8405010432e-7*
4970         t21*t176*t25*t265*t148-1.8514593792e-9*t176*t22*t51*t445*t148-
4971         1.516159752192001e-8*t21*t176*t25*t50*t445*t148+5.5543781376e-11*
4972         t21*t176*t25*t51*t682*t148)*t134+t554*t166;
4973     d4fdrbgagaab = 0.0;
4974     d4fdrbgagbgb = (0.00169859712*grada*t22*t53*t149-3.590629632e-5*
4975         grada*t22*t50*t124*t149+1.542882816e-7*grada*t22*t51*t265*
4976         t149-1.407236544e-4*grada*t48*t22*t124*t148+2.3872247424e-6*
4977         grada*t48*t22*t50*t265*t148-9.257296896000002e-9*grada*t48*
4978         t22*t51*t445*t148+9.8405010432e-7*grada*t135*t22*t265*t147-
4979         1.516159752192001e-8*grada*t135*t22*t50*t445*t147+5.5543781376e-11*
4980         grada*t135*t22*t51*t682*t147)*t134+t555*t166;
4981     d4fdrbgagbab = 0.0;
4982     d4fdrbgaabab = 0.0;
4983     d4fdrbgbgbgb = t151*t557*t155*t133*t156*rhob-0.03109*
4984         t132*(-5.56276736*gradb*t137*t148+9.151077376*t176*t146*t147-
4985         4.5999572992*t174*t279*t315+.9218673868800003*t314*t494*t546-
4986         0.06468337664*t539*t728*t746)*t133*rhob-1.0*t128*t29*t3*t558-
4987         0.75*(-0.00350906368*gradb*t142*t148+1.8541060096e-4*t176*
4988         t157*t147-2.41060610048e-6*t174*t291*t315+1.151744606208e-8*
4989         t314*t507*t546-1.84680448e-11*t539*t741*t746)*t153*t29*t3+
4990         t559*t166+(0.01019158272*gradb*t53*t148-2.154377779199999e-4*
4991         gradb*t50*t124*t148+9.257296896000001e-7*gradb*t51*t265*t148-
4992         2.533025779199999e-4*t176*t124*t147+4.29700453632e-6*t176*
4993         t50*t265*t147-1.66631344128e-8*t176*t51*t445*t147+9.8405010432e-7*
4994         t174*t265*t315-1.516159752192001e-8*t174*t50*t445*t315+5.5543781376e-11*
4995         t174*t51*t682*t315)*t134-0.03109*t132*t557*t133+.0021294577333333*
4996         t1*t2*t3*t132*t557*t129;
4997     d4fdrbgbgbab = 0.0;
4998     d4fdrbgbabab = 0.0;
4999     d4fdrbababab = 0.0;
5000     d4fdgagagaga = -0.03109*t19*(1.04301888*t24*t25-3.848861568000001*
5001         t21*t35*t169+2.608396953600001*t20*t181*t319-.6186317414400002*
5002         t34*t329*t550+0.04851253248*t180*t561*t747)*t28*rhoa-0.75*
5003         (6.5794944e-4*t31*t25-7.479257088000001e-5*t21*t46*t169+1.32276774912e-6*
5004         t20*t193*t319-7.59925702656e-9*t34*t342*t550+1.38510336e-11*
5005         t180*t574*t747)*t29*t3*t42+(-0.00191092176*t25*t53+4.039458336e-5*
5006         t25*t50*t124+1.2665128896e-4*t21*t169*t124-1.735743168e-7*
5007         t25*t51*t265-2.14850226816e-6*t21*t169*t50*t265-7.380375782399999e-7*
5008         t20*t319*t265+8.331567206400001e-9*t21*t169*t51*t445+1.137119814144e-8*
5009         t20*t319*t50*t445-4.1657836032e-11*t20*t319*t51*t682)*t134;
5010     d4fdgagagagb = (6.332564447999999e-5*grada*gradb*t25*
5011         t124*t49-1.07425113408e-6*grada*gradb*t25*t50*t265*t49-7.380375782399999e-7*
5012         t170*gradb*t169*t265*t49+4.165783603200001e-9*grada*gradb*
5013         t25*t51*t445*t49+1.137119814144e-8*t170*gradb*t169*t50*t445*
5014         t49-4.1657836032e-11*t170*gradb*t169*t51*t682*t49)*t134;
5015     d4fdgagagaab = 0.0;
5016     d4fdgagagbgb = (-
5017         6.369739199999999e-4*t22*t53*t49+1.346486112e-5*t22*t50*t124*
5018         t49+2.110854816e-5*t21*t25*t124*t49-5.785810560000001e-8*t22*
5019         t51*t265*t49-3.580837113599999e-7*t21*t25*t50*t265*t49+1.3885945344e-9*
5020         t21*t25*t51*t445*t49+2.110854816e-5*t48*t22*t124*t138-3.580837113599999e-7*
5021         t48*t22*t50*t265*t138-7.380375782399999e-7*t21*t48*t25*t265*
5022         t138+1.3885945344e-9*t48*t22*t51*t445*t138+1.137119814144e-8*
5023         t21*t48*t25*t50*t445*t138-4.1657836032e-11*t21*t48*t25*t51*
5024         t682*t138)*t134;
5025     d4fdgagagbab = 0.0;
5026     d4fdgagaabab = 0.0;
5027     d4fdgagbgbgb = (6.332564447999999e-5*grada*gradb*t22*
5028         t124*t138-1.07425113408e-6*grada*gradb*t22*t50*t265*t138+4.165783603200001e-9*
5029         grada*gradb*t22*t51*t445*t138-7.380375782399999e-7*grada*t176*
5030         t22*t265*t175+1.137119814144e-8*grada*t176*t22*t50*t445*t175-
5031         4.1657836032e-11*grada*t176*t22*t51*t682*t175)*t134;
5032     d4fdgagbgbab = 0.0;
5033     d4fdgagbabab = 0.0;
5034     d4fdgaababab = 0.0;
5035     d4fdgbgbgbgb = -0.03109*t132*(1.04301888*t137*t138-3.848861568000001*
5036         t48*t146*t175+2.608396953600001*t135*t279*t324-.6186317414400002*
5037         t145*t494*t556+0.04851253248*t278*t728*t748)*t133*rhob-0.75*
5038         (6.5794944e-4*t142*t138-7.479257088000001e-5*t48*t157*t175+
5039         1.32276774912e-6*t135*t291*t324-7.59925702656e-9*t145*t507*
5040         t556+1.38510336e-11*t278*t741*t748)*t153*t29*t3+(-0.00191092176*
5041         t53*t138+4.039458336e-5*t50*t124*t138-1.735743168e-7*t51*t265*
5042         t138+1.2665128896e-4*t48*t124*t175-2.14850226816e-6*t48*t50*
5043         t265*t175+8.331567206400001e-9*t48*t51*t445*t175-7.380375782399999e-7*
5044         t135*t265*t324+1.137119814144e-8*t135*t50*t445*t324-4.1657836032e-11*
5045         t135*t51*t682*t324)*t134;
5046     d4fdgbgbgbab = 0.0;
5047     d4fdgbgbabab = 0.0;
5048     d4fdgbababab = 0.0;
5049     d4fdabababab = 0.0;
5050 
5051 
5052     ds->df1000 += factor*dfdra;
5053     ds->df0100 += factor*dfdrb;
5054     ds->df0010 += factor*dfdga;
5055     ds->df0001 += factor*dfdgb;
5056     ds->df00001+= factor*dfdgab;
5057 
5058     ds->df2000 += factor*d2fdrara;
5059     ds->df1100 += factor*d2fdrarb;
5060     ds->df1010 += factor*d2fdraga;
5061     ds->df1001 += factor*d2fdragb;
5062     ds->df10001+= factor*d2fdraab;
5063     ds->df0200 += factor*d2fdrbrb;
5064     ds->df0110 += factor*d2fdrbga;
5065     ds->df0101 += factor*d2fdrbgb;
5066     ds->df01001+= factor*d2fdrbgab;
5067     ds->df0020 += factor*d2fdgaga;
5068     ds->df0011 += factor*d2fdgagb;
5069     ds->df00101+= factor*d2fdgagab;
5070     ds->df0002 += factor*d2fdgbgb;
5071     ds->df00011+= factor*d2fdgbgab;
5072     ds->df00002+= factor*d2fdgabgab;
5073 
5074     ds->df3000 += factor*d3fdrarara;
5075     ds->df2100  += factor*d3fdrararb;
5076     ds->df2010  += factor*d3fdraraga;
5077     ds->df2001  += factor*d3fdraragb;
5078     ds->df20001 += factor*d3fdraraab;
5079     ds->df1200  += factor*d3fdrarbrb;
5080     ds->df1110  += factor*d3fdrarbga;
5081     ds->df1101  += factor*d3fdrarbgb;
5082     ds->df11001 += factor*d3fdrarbab;
5083     ds->df1020  += factor*d3fdragaga;
5084     ds->df1011  += factor*d3fdragagb;
5085     ds->df10101 += factor*d3fdragaab;
5086     ds->df1002  += factor*d3fdragbgb;
5087     ds->df10011 += factor*d3fdragbab;
5088     ds->df10002 += factor*d3fdraabab;
5089     ds->df0300  += factor*d3fdrbrbrb;
5090     ds->df0210  += factor*d3fdrbrbga;
5091     ds->df0201  += factor*d3fdrbrbgb;
5092     ds->df02001 += factor*d3fdrbrbab;
5093     ds->df0120  += factor*d3fdrbgaga;
5094     ds->df0111  += factor*d3fdrbgagb;
5095     ds->df01101 += factor*d3fdrbgaab;
5096     ds->df0102  += factor*d3fdrbgbgb;
5097     ds->df01011 += factor*d3fdrbgbab;
5098     ds->df01002 += factor*d3fdrbabab;
5099     ds->df0030  += factor*d3fdgagaga;
5100     ds->df0021  += factor*d3fdgagagb;
5101     ds->df00201 += factor*d3fdgagaab;
5102     ds->df0012  += factor*d3fdgagbgb;
5103     ds->df00111 += factor*d3fdgagbab;
5104     ds->df00102 += factor*d3fdgaabab;
5105     ds->df0003  += factor*d3fdgbgbgb;
5106     ds->df00021 += factor*d3fdgbgbab;
5107     ds->df00012 += factor*d3fdgbabab;
5108     ds->df00003 += factor*d3fdababab;
5109 
5110     ds->df4000  += factor*d4fdrararara;
5111     ds->df3100  += factor*d4fdrarararb;
5112     ds->df3010  += factor*d4fdrararaga;
5113     ds->df3001  += factor*d4fdrararagb;
5114     ds->df30001 += factor*d4fdrararaab;
5115     ds->df2200  += factor*d4fdrararbrb;
5116     ds->df2110  += factor*d4fdrararbga;
5117     ds->df2101  += factor*d4fdrararbgb;
5118     ds->df21001 += factor*d4fdrararbab;
5119     ds->df2020  += factor*d4fdraragaga;
5120     ds->df2011  += factor*d4fdraragagb;
5121     ds->df20101 += factor*d4fdraragaab;
5122     ds->df2002  += factor*d4fdraragbgb;
5123     ds->df20011 += factor*d4fdraragbab;
5124     ds->df20002 += factor*d4fdraraabab;
5125     ds->df1300  += factor*d4fdrarbrbrb;
5126     ds->df1210  += factor*d4fdrarbrbga;
5127     ds->df1201  += factor*d4fdrarbrbgb;
5128     ds->df12001 += factor*d4fdrarbrbab;
5129     ds->df1120  += factor*d4fdrarbgaga;
5130     ds->df1111  += factor*d4fdrarbgagb;
5131     ds->df11101 += factor*d4fdrarbgaab;
5132     ds->df1102  += factor*d4fdrarbgbgb;
5133     ds->df11011 += factor*d4fdrarbgbab;
5134     ds->df11002 += factor*d4fdrarbabab;
5135     ds->df1030  += factor*d4fdragagaga;
5136     ds->df1021  += factor*d4fdragagagb;
5137     ds->df10201 += factor*d4fdragagaab;
5138     ds->df1012  += factor*d4fdragagbgb;
5139     ds->df10111 += factor*d4fdragagbab;
5140     ds->df10102 += factor*d4fdragaabab;
5141     ds->df1003  += factor*d4fdragbgbgb;
5142     ds->df10021 += factor*d4fdragbgbab;
5143     ds->df10012 += factor*d4fdragbabab;
5144     ds->df10003 += factor*d4fdraababab;
5145     ds->df0400  += factor*d4fdrbrbrbrb;
5146     ds->df0310  += factor*d4fdrbrbrbga;
5147     ds->df0301  += factor*d4fdrbrbrbgb;
5148     ds->df03001 += factor*d4fdrbrbrbab;
5149     ds->df0220  += factor*d4fdrbrbgaga;
5150     ds->df0211  += factor*d4fdrbrbgagb;
5151     ds->df02101 += factor*d4fdrbrbgaab;
5152     ds->df0202  += factor*d4fdrbrbgbgb;
5153     ds->df02011 += factor*d4fdrbrbgbab;
5154     ds->df02002 += factor*d4fdrbrbabab;
5155     ds->df0130  += factor*d4fdrbgagaga;
5156     ds->df0121  += factor*d4fdrbgagagb;
5157     ds->df01201 += factor*d4fdrbgagaab;
5158     ds->df0112  += factor*d4fdrbgagbgb;
5159     ds->df01111 += factor*d4fdrbgagbab;
5160     ds->df01102 += factor*d4fdrbgaabab;
5161     ds->df0103  += factor*d4fdrbgbgbgb;
5162     ds->df01021 += factor*d4fdrbgbgbab;
5163     ds->df01012 += factor*d4fdrbgbabab;
5164     ds->df01003 += factor*d4fdrbababab;
5165     ds->df0040  += factor*d4fdgagagaga;
5166     ds->df0031  += factor*d4fdgagagagb;
5167     ds->df00301 += factor*d4fdgagagaab;
5168     ds->df0022  += factor*d4fdgagagbgb;
5169     ds->df00211 += factor*d4fdgagagbab;
5170     ds->df00202 += factor*d4fdgagaabab;
5171     ds->df0013  += factor*d4fdgagbgbgb;
5172     ds->df00121 += factor*d4fdgagbgbab;
5173     ds->df00112 += factor*d4fdgagbabab;
5174     ds->df00103 += factor*d4fdgaababab;
5175     ds->df0004  += factor*d4fdgbgbgbgb;
5176     ds->df00031 += factor*d4fdgbgbgbab;
5177     ds->df00022 += factor*d4fdgbgbabab;
5178     ds->df00013 += factor*d4fdgbababab;
5179     ds->df00004 += factor*d4fdabababab;
5180 
5181 }
5182