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