1 /*-*-mode: C; c-indentation-style: "bsd"; c-basic-offset: 4; -*-*/
2 /* fun-14.c:
3
4 Automatically generated code implementing 1/4 functional and
5 its derivatives. It is generated by func-codegen.pl being a part of
6 a "Automatic code generation framework for analytical functional
7 derivative evaluation", Pawel Salek, 2005
8
9 This functional is connected by making following changes:
10 1. add "extern Functional 14Functional;" to 'functionals.h'
11 2. add "&14Functional," to 'functionals.c'
12 3. add "fun-14.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.
13
14 This functional has been generated from following input:
15 ------ cut here -------
16 xa: (grada/rhoa^(4/3));
17 xb: (gradb/rhob^(4/3));
18
19 pa: 1;
20 Aa: 0.016887;
21 a1a: 0.11125;
22 b1a: 10.357;
23 b2a: 3.6231;
24 b3a: 0.88026;
25 b4a: 0.49671;
26
27 pe: 1;
28 c0p: 0.031091;
29 a1p: 0.21370;
30 b1p: 7.5957;
31 b2p: 3.5876;
32 b3p: 1.6382;
33 b4p: 0.49294;
34
35 c0f: 0.01554500000;
36 a1f: 0.20548;
37 b1f: 14.1189;
38 b2f: 6.1977;
39 b3f: 3.3662;
40 b4f: 0.62517;
41
42
43 ccab: [0.0821827, 4.56466 , -13.5529 , 13.3820 , -3.17493];
44 ccaa: [2.82414 , 0.0318843 , -1.78512 , 2.39795 ,-0.876909];
45 cx: [1.03161 ,-0.360781 , 3.51994 , -4.95944 , 2.41165];
46
47 rs(r):= (3/(4*%PI*r))^(1/3);
48 z(ra,rb):= (ra-rb)/(ra+rb);
49 fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);
50
51 d2fz0: 1.709921;
52
53 Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
54 *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));
55
56 Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
57 EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
58 EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);
59
60
61 EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
62 Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
63 (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
64 (z(ra,rb))^4);
65
66 EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);
67
68 gcab: 0.006;
69 gcaa: 0.2;
70
71 cx0: -3/8*((16*3/%PI)^(1/3));
72 gx: 0.004;
73
74 Ucab(t):= gcab*t/(1+gcab*t);
75 Ucaa(t):= gcaa*t/(1+gcaa*t);
76
77 Gcab(t):= ccab[1] + ccab[2]*Ucab(t) + ccab[3]*Ucab(t)^2
78 + ccab[4]*Ucab(t)^3 + ccab[5]*Ucab(t)^4;
79
80 Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t) + ccaa[3]*Ucaa(t)^2
81 + ccaa[4]*Ucaa(t)^3 + ccaa[5]*Ucaa(t)^4;
82
83 Ux(r):= gx*r/(1+gx*r);
84
85 ExLSDAa: (cx0*rhoa^(4/3));
86 ExLSDAb: (cx0*rhob^(4/3));
87
88 Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2 + cx[4]*Ux(t)^3 + cx[5]*Ux(t)^4;
89
90 K(rhoa,grada,rhob,gradb,gradab):=
91 EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
92 + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
93 + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);
94
95
96
97
98 ------ cut here -------
99 */
100
101
102 /* strictly conform to XOPEN ANSI C standard */
103 #if !defined(SYS_DEC)
104 /* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
105 * is not specified. */
106 #define _XOPEN_SOURCE 500
107 #define _XOPEN_SOURCE_EXTENDED 1
108 #endif
109 #include <math.h>
110 #include <stddef.h>
111 #include "general.h"
112
113 #define __CVERSION__
114
115 #include "functionals.h"
116
117 /* INTERFACE PART */
f14_isgga(void)118 static integer f14_isgga(void) { return 1; } /* FIXME: detect! */
119 static integer f14_read(const char *conf_line);
120 static real f14_energy(const FunDensProp* dp);
121 static void f14_first(FunFirstFuncDrv *ds, real factor,
122 const FunDensProp* dp);
123 static void f14_second(FunSecondFuncDrv *ds, real factor,
124 const FunDensProp* dp);
125 static void f14_third(FunThirdFuncDrv *ds, real factor,
126 const FunDensProp* dp);
127 static void f14_fourth(FunFourthFuncDrv *ds, real factor,
128 const FunDensProp* dp);
129
130 Functional f14Functional = {
131 "1/4", /* name */
132 f14_isgga, /* gga-corrected */
133 1,
134 f14_read,
135 NULL,
136 f14_energy,
137 f14_first,
138 f14_second,
139 f14_third,
140 f14_fourth
141 };
142
143 /* IMPLEMENTATION PART */
144 static integer
f14_read(const char * conf_line)145 f14_read(const char *conf_line)
146 {
147 fun_set_hf_weight(0);
148 return 1;
149 }
150
151
152
153 static real
f14_energy(const FunDensProp * dp)154 f14_energy(const FunDensProp *dp)
155 {
156 real res;
157 real rhoa = dp->rhoa, rhob = dp->rhob;
158 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
159
160 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
161 real t11, t12, t13, t14, t15, t16, t17, t18;
162 real t19, t20, t21, t22, t23, t24, t25, t26;
163 real t27, t28, t29, t30, t31, t32, t33, t34;
164 real t35, t36, t37, t38, t39, t40, t41, t42;
165 real t43, t44, t45, t46, t47, t48, t49, t50;
166 real t51, t52, t53, t54, t55, t56, t57, t58;
167 real t59;
168
169 t1 = 1.732050807568877;
170 t2 = pow(M_PI,.3333333333333333);
171 t3 = pow(rhoa,.3333333333333333);
172 t4 = sqrt(t2*t3);
173 t5 = pow(2.0,.3333333333333333);
174 t6 = 1/t5;
175 t7 = pow(3.0,.1666666666666667);
176 t8 = pow(3.0,.6666666666666666);
177 t9 = 1/pow(4.0,.6666666666666666);
178 t10 = 1/pow(M_PI,.6666666666666666);
179 t11 = pow(3.0,.3333333333333333);
180 t12 = 1/pow(4.0,.3333333333333333);
181 t13 = 1/t2;
182 t14 = 1/t3;
183 t15 = log(32.1646831778707/(0.62517*t10*t8*t9/pow(rhoa,
184 .6666666666666666)+14.1189*t6*t7/t4+1.6831*t1/pow(t4,3.0)+
185 6.1977*t11*t12*t13*t14)+1.0);
186 t16 = pow(grada,8.0);
187 t17 = pow(grada,2.0);
188 t18 = 1/pow(rhoa,2.666666666666667);
189 t19 = 0.2*t17*t18+1.0;
190 t20 = 1/pow(rhoa,10.66666666666667);
191 t21 = pow(grada,6.0);
192 t22 = 1/pow(rhoa,8.0);
193 t23 = pow(grada,4.0);
194 t24 = 1/pow(rhoa,5.333333333333333);
195 t25 = 0.20548*t11*t12*t13*t14+1.0;
196 t26 = pow(6.0,.3333333333333333);
197 t27 = 0.004*t17*t18+1.0;
198 t28 = pow(rhob,.3333333333333333);
199 t29 = sqrt(t2*t28);
200 t30 = 1/t28;
201 t31 = log(32.1646831778707/(0.62517*t10*t8*t9/pow(rhob,
202 .6666666666666666)+14.1189*t6*t7/t29+6.1977*t11*t12*t13*t30+
203 1.6831*t1/pow(t29,3.0))+1.0);
204 t32 = pow(gradb,8.0);
205 t33 = pow(gradb,2.0);
206 t34 = 1/pow(rhob,2.666666666666667);
207 t35 = 0.2*t33*t34+1.0;
208 t36 = 1/pow(rhob,10.66666666666667);
209 t37 = pow(gradb,6.0);
210 t38 = 1/pow(rhob,8.0);
211 t39 = pow(gradb,4.0);
212 t40 = 1/pow(rhob,5.333333333333333);
213 t41 = 0.20548*t11*t12*t13*t30+1.0;
214 t42 = 0.004*t33*t34+1.0;
215 t43 = 0.5*t33*t34+0.5*t17*t18;
216 t44 = 0.006*t43+1.0;
217 t45 = rhob+rhoa;
218 t46 = pow(t45,.3333333333333333);
219 t47 = 1/t46;
220 t48 = 0.2137*t11*t12*t13*t47+1.0;
221 t49 = 1/pow(t45,.6666666666666666);
222 t50 = sqrt(t2*t46);
223 t51 = 1/pow(t50,3.0);
224 t52 = 1/t50;
225 t53 = log(16.0818243221511/(7.5957*t6*t7*t52+0.8191*t1*
226 t51+3.5876*t11*t12*t13*t47+0.49294*t8*t9*t10*t49)+1.0);
227 t54 = 1/(2.0*t5-2.0);
228 t55 = rhoa-1.0*rhob;
229 t56 = pow(t55,4.0);
230 t57 = 1/pow(t45,4.0);
231 t58 = 1/t45;
232 t59 = pow(t55*t58+1.0,1.333333333333333)+pow(1.0-1.0*
233 t55*t58,1.333333333333333)-2.0;
234
235 /* code */
236 res = -0.75*t13*t26*(6.173823999999999E-10*t32*t36/pow(t42,
237 4.0)-3.1740416000000005E-7*t37*t38/pow(t42,3.0)+5.631904E-5*
238 t39*t40/pow(t42,2.0)-0.001443124*t33*t34/t42+1.03161)*pow(rhob,
239 1.333333333333333)+(-4.11470928E-9*pow(t43,4.0)/pow(t44,4.0)+
240 2.8905119999999995E-6*pow(t43,3.0)/pow(t44,3.0)-4.8790439999999996E-4*
241 pow(t43,2.0)/pow(t44,2.0)+0.02738796*t43/t44+0.0821827)*(0.03109*
242 t31*t41*rhob+0.03109*t15*t25*rhoa+t45*(.01975178970256521*
243 (0.11125*t11*t12*t13*t47+1.0)*log(29.60857464321668/(10.357*
244 t6*t7*t52+0.44013*t1*t51+3.6231*t11*t12*t13*t47+0.49671*t8*
245 t9*t10*t49)+1.0)*t54*(1.0-1.0*t56*t57)*t59+(0.062182*t48*t53-
246 0.03109*(0.20548*t11*t12*t13*t47+1.0)*log(32.1646831778707/
247 (14.1189*t6*t7*t52+1.6831*t1*t51+6.1977*t11*t12*t13*t47+0.62517*
248 t8*t9*t10*t49)+1.0))*t54*t56*t57*t59-0.062182*t48*t53))-0.03109*
249 t31*(-.07140480000000002*t39*t40/pow(t35,2.0)+0.0191836*t37*
250 t38/pow(t35,3.0)-.001403054400000001*t32*t36/pow(t35,4.0)+
251 0.00637686*t33*t34/t35+2.82414)*t41*rhob-0.75*t13*t26*(6.173823999999999E-10*
252 t16*t20/pow(t27,4.0)-3.1740416000000005E-7*t21*t22/pow(t27,
253 3.0)+5.631904E-5*t23*t24/pow(t27,2.0)-0.001443124*t17*t18/
254 t27+1.03161)*pow(rhoa,1.333333333333333)-0.03109*t15*(-.07140480000000002*
255 t23*t24/pow(t19,2.0)+0.0191836*t21*t22/pow(t19,3.0)-.001403054400000001*
256 t16*t20/pow(t19,4.0)+0.00637686*t17*t18/t19+2.82414)*t25*rhoa;
257
258 return res;
259 }
260
261 static void
f14_first(FunFirstFuncDrv * ds,real factor,const FunDensProp * dp)262 f14_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
263 {
264 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
265 real rhoa = dp->rhoa, rhob = dp->rhob;
266 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
267
268 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
269 real t11, t12, t13, t14, t15, t16, t17, t18;
270 real t19, t20, t21, t22, t23, t24, t25, t26;
271 real t27, t28, t29, t30, t31, t32, t33, t34;
272 real t35, t36, t37, t38, t39, t40, t41, t42;
273 real t43, t44, t45, t46, t47, t48, t49, t50;
274 real t51, t52, t53, t54, t55, t56, t57, t58;
275 real t59, t60, t61, t62, t63, t64, t65, t66;
276 real t67, t68, t69, t70, t71, t72, t73, t74;
277 real t75, t76, t77, t78, t79, t80, t81, t82;
278 real t83, t84, t85, t86, t87, t88, t89, t90;
279 real t91, t92, t93, t94, t95, t96, t97, t98;
280 real t99, t100, t101, t102, t103, t104, t105;
281 real t106, t107, t108, t109, t110, t111, t112;
282 real t113, t114, t115, t116, t117, t118, t119;
283 real t120, t121, t122, t123, t124, t125, t126;
284 real t127, t128, t129, t130, t131, t132, t133;
285 real t134, t135, t136, t137, t138, t139, t140;
286 real t141, t142, t143, t144, t145, t146, t147;
287 real t148, t149, t150, t151, t152, t153, t154;
288 real t155, t156, t157, t158, t159, t160, t161;
289 real t162, t163, t164, t165, t166, t167, t168;
290 real t169;
291
292 t1 = pow(3.0,.3333333333333333);
293 t2 = 1/pow(4.0,.3333333333333333);
294 t3 = pow(M_PI,.3333333333333333);
295 t4 = 1/t3;
296 t5 = 1.732050807568877;
297 t6 = pow(rhoa,.3333333333333333);
298 t7 = sqrt(t3*t6);
299 t8 = 1/pow(t7,3.0);
300 t9 = pow(2.0,.3333333333333333);
301 t10 = 1/t9;
302 t11 = pow(3.0,.1666666666666667);
303 t12 = pow(3.0,.6666666666666666);
304 t13 = 1/pow(4.0,.6666666666666666);
305 t14 = 1/pow(M_PI,.6666666666666666);
306 t15 = 1/pow(rhoa,.6666666666666666);
307 t16 = 1/t6;
308 t17 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
309 t16+0.62517*t12*t13*t14*t15;
310 t18 = 32.1646831778707/t17+1.0;
311 t19 = log(t18);
312 t20 = pow(grada,8.0);
313 t21 = pow(grada,2.0);
314 t22 = 1/pow(rhoa,2.666666666666667);
315 t23 = 0.2*t21*t22+1.0;
316 t24 = 1/pow(t23,4.0);
317 t25 = 1/pow(rhoa,10.66666666666667);
318 t26 = pow(grada,6.0);
319 t27 = 1/pow(t23,3.0);
320 t28 = 1/pow(rhoa,8.0);
321 t29 = pow(grada,4.0);
322 t30 = 1/pow(t23,2.0);
323 t31 = 1/pow(rhoa,5.333333333333333);
324 t32 = 1/t23;
325 t33 = 0.00637686*t21*t32*t22-.07140480000000002*t29*t30*
326 t31+0.0191836*t26*t27*t28-.001403054400000001*t20*t24*t25+
327 2.82414;
328 t34 = 0.20548*t1*t2*t4*t16+1.0;
329 t35 = pow(6.0,.3333333333333333);
330 t36 = 0.004*t21*t22+1.0;
331 t37 = 1/pow(t36,4.0);
332 t38 = 1/pow(t36,3.0);
333 t39 = 1/pow(t36,2.0);
334 t40 = 1/t36;
335 t41 = pow(grada,10.0);
336 t42 = 1/pow(t23,5.0);
337 t43 = 1/pow(rhoa,14.33333333333333);
338 t44 = 1/pow(rhoa,11.66666666666667);
339 t45 = 1/pow(rhoa,9.0);
340 t46 = 1/pow(rhoa,6.333333333333333);
341 t47 = 1/pow(rhoa,3.666666666666667);
342 t48 = 1/t18;
343 t49 = pow(rhoa,1.333333333333333);
344 t50 = -0.41678*t12*t13*t14/pow(rhoa,1.666666666666667)-
345 0.84155*t15*t3*t5/pow(t7,5.0)-2.0659*t1*t2*t4/t49-2.35315*
346 t10*t11*t3*t8*t15;
347 t51 = 1/pow(t17,2.0);
348 t52 = 1/pow(t36,5.0);
349 t53 = pow(gradb,2.0);
350 t54 = 1/pow(rhob,2.666666666666667);
351 t55 = 0.5*t53*t54+0.5*t21*t22;
352 t56 = pow(t55,4.0);
353 t57 = 0.006*t55+1.0;
354 t58 = 1/pow(t57,4.0);
355 t59 = pow(t55,3.0);
356 t60 = 1/pow(t57,3.0);
357 t61 = pow(t55,2.0);
358 t62 = 1/pow(t57,2.0);
359 t63 = 1/t57;
360 t64 = 0.02738796*t55*t63-4.8790439999999996E-4*t61*t62+
361 2.8905119999999995E-6*t59*t60-4.11470928E-9*t56*t58+0.0821827;
362 t65 = rhob+
363 rhoa;
364 t66 = pow(t65,.3333333333333333);
365 t67 = 1/t66;
366 t68 = 0.2137*t1*t2*t4*t67+1.0;
367 t69 = 1/pow(t65,.6666666666666666);
368 t70 = sqrt(t3*t66);
369 t71 = 1/pow(t70,3.0);
370 t72 = 1/t70;
371 t73 = 7.5957*t10*t11*t72+0.8191*t5*t71+3.5876*t1*t2*t4*
372 t67+0.49294*t12*t13*t14*t69;
373 t74 = 16.0818243221511/t73+1.0;
374 t75 = log(t74);
375 t76 = -0.062182*t68*t75;
376 t77 = 1/(2.0*t9-2.0);
377 t78 = rhoa-1.0*rhob;
378 t79 = pow(t78,4.0);
379 t80 = 1/pow(t65,4.0);
380 t81 = 1.0-1.0*t79*t80;
381 t82 = 0.11125*t1*t2*t4*t67+1.0;
382 t83 = 1/t65;
383 t84 = 1.0-1.0*t78*t83;
384 t85 = t78*t83+1.0;
385 t86 = pow(t85,1.333333333333333)+pow(t84,1.333333333333333)-
386 2.0;
387 t87 = 10.357*t10*t11*t72+0.44013*t5*t71+3.6231*t1*t2*
388 t4*t67+0.49671*t12*t13*t14*t69;
389 t88 = 29.60857464321668/t87+1.0;
390 t89 = log(t88);
391 t90 = .01975178970256521*t77*t81*t82*t86*t89;
392 t91 = 0.20548*t1*t2*t4*t67+1.0;
393 t92 = 14.1189*t10*t11*t72+1.6831*t5*t71+6.1977*t1*t2*
394 t4*t67+0.62517*t12*t13*t14*t69;
395 t93 = 32.1646831778707/t92+1.0;
396 t94 = log(t93);
397 t95 = 0.062182*t68*t75-0.03109*t91*t94;
398 t96 = t77*t79*t80*t86*t95;
399 t97 = 1/pow(t65,1.666666666666667);
400 t98 = 1/pow(t65,1.333333333333333);
401 t99 = 1/pow(t70,5.0);
402 t100 = -1.26595*t10*t11*t3*t69*t71-0.40955*t5*t3*t69*
403 t99-1.195866666666667*t1*t2*t4*t98-.3286266666666666*t12*t13*
404 t14*t97;
405 t101 = 1/pow(t73,2.0);
406 t102 = 1/t74;
407 t103 = .9999999999999999*t68*t100*t101*t102;
408 t104 = -.5848223397455204*(-1.726166666666666*t10*t11*
409 t3*t69*t71-0.220065*t5*t3*t69*t99-1.2077*t1*t2*t4*t98-0.33114*
410 t12*t13*t14*t97)*t77*t81*t82*t86/(pow(t87,2.0)*t88);
411 t105 = .004429431133333333*t1*t2*t4*t98*t75;
412 t106 = 1/pow(t65,2.0);
413 t107 = t78*t106;
414 t108 = -1.0*t83;
415 t109 = pow(t84,.3333333333333333);
416 t110 = -1.0*t106*t78;
417 t111 = pow(t85,.3333333333333333);
418 t112 = 1.333333333333333*t111*(t83+t110)+1.333333333333333*
419 (t108+t107)*t109;
420 t113 = -7.324622014701263E-4*t77*t1*t2*t4*t98*t81*t86*
421 t89;
422 t114 = 1/pow(t65,5.0);
423 t115 = 4.0*t114*t79;
424 t116 = pow(t78,3.0);
425 t117 = t77*t79*t80*t86*(.002129457733333333*t1*t2*t4*
426 t98*t94+1.0*(-2.35315*t10*t11*t3*t69*t71-0.84155*t5*t3*t69*
427 t99-2.0659*t1*t2*t4*t98-0.41678*t12*t13*t14*t97)*t91/(pow(t92,
428 2.0)*t93)-.004429431133333333*t1*t2*t4*t98*t75-.9999999999999999*
429 t68*t100*t101*t102);
430 t118 = -4.0*t114*t77*t79*t86*t95;
431 t119 = 1/pow(t57,5.0);
432 t120 = pow(rhob,.3333333333333333);
433 t121 = sqrt(t3*t120);
434 t122 = 1/pow(t121,3.0);
435 t123 = 1/pow(rhob,.6666666666666666);
436 t124 = 1/t120;
437 t125 = 6.1977*t1*t2*t4*t124+0.62517*t12*t13*t14*t123+
438 1.6831*t5*t122+14.1189*t10*t11/t121;
439 t126 = 32.1646831778707/t125+1.0;
440 t127 = log(t126);
441 t128 = 0.20548*t1*t2*t4*t124+1.0;
442 t129 = t65*(t96+t90+t76)+0.03109*t127*t128*rhob+0.03109*
443 t19*t34*rhoa;
444 t130 = pow(gradb,8.0);
445 t131 = 0.2*t53*t54+1.0;
446 t132 = 1/pow(t131,4.0);
447 t133 = 1/pow(rhob,10.66666666666667);
448 t134 = pow(gradb,6.0);
449 t135 = 1/pow(t131,3.0);
450 t136 = 1/pow(rhob,8.0);
451 t137 = pow(gradb,4.0);
452 t138 = 1/pow(t131,2.0);
453 t139 = 1/pow(rhob,5.333333333333333);
454 t140 = 1/t131;
455 t141 = 0.00637686*t53*t140*t54-.07140480000000002*t137*
456 t138*t139+0.0191836*t134*t135*t136-.001403054400000001*t130*
457 t132*t133+2.82414;
458 t142 = 0.004*t53*t54+1.0;
459 t143 = 1/pow(t142,4.0);
460 t144 = 1/pow(t142,3.0);
461 t145 = 1/pow(t142,2.0);
462 t146 = 1/t142;
463 t147 = pow(gradb,10.0);
464 t148 = 1/pow(t131,5.0);
465 t149 = 1/pow(rhob,14.33333333333333);
466 t150 = 1/pow(rhob,11.66666666666667);
467 t151 = 1/pow(rhob,9.0);
468 t152 = 1/pow(rhob,6.333333333333333);
469 t153 = 1/pow(rhob,3.666666666666667);
470 t154 = 1/t126;
471 t155 = pow(rhob,1.333333333333333);
472 t156 = -0.41678*t12*t13*t14/pow(rhob,1.666666666666667)-
473 0.84155*t123*t3*t5/pow(t121,5.0)-2.0659*t1*t2*t4/t155-2.35315*
474 t10*t11*t3*t122*t123;
475 t157 = 1/pow(t125,2.0);
476 t158 = 1/pow(t142,5.0);
477 t159 = 1.333333333333333*t109*(t83+t107)+1.333333333333333*
478 (t108+t110)*t111;
479 t160 = pow(grada,9.0);
480 t161 = 1/pow(rhoa,13.33333333333333);
481 t162 = pow(grada,7.0);
482 t163 = pow(grada,5.0);
483 t164 = pow(grada,3.0);
484 t165 = pow(gradb,9.0);
485 t166 = 1/pow(rhob,13.33333333333333);
486 t167 = pow(gradb,7.0);
487 t168 = pow(gradb,5.0);
488 t169 = pow(gradb,3.0);
489
490 /* code */
491 dfdra = t64*(-1.0*t48*t50*t34*t51*rhoa+t96+t65*(4.0*t116*
492 t77*t80*t86*t95+t77*t79*t80*t112*t95+.01975178970256521*t77*
493 (t115-4.0*t116*t80)*t82*t86*t89+.01975178970256521*t77*t81*
494 t82*t112*t89+t118+t117+t113+t105+t104+t103)+t90+t76+0.03109*
495 t19*t34-.002129457733333333*t1*t2*t4*t19*t16)+1.0*t48*t33*
496 t50*t34*t51*rhoa-0.03109*t19*(-0.01700496*t21*t32*t47+.3842265920000001*
497 t29*t30*t46-0.22963392*t26*t27*t45+.04565967360000001*t20*
498 t24*t44-.002993182720000002*t41*t42*t43)*t34*rhoa-1.0*(-0.001443124*
499 t21*t40*t22+5.631904E-5*t29*t39*t31-3.1740416000000005E-7*
500 t26*t38*t28+6.173823999999999E-10*t20*t37*t25+1.03161)*t35*
501 t4*t6-0.75*t35*t4*(.003848330666666667*t21*t40*t47-3.1576153599999995E-4*
502 t29*t39*t46+3.740706133333333E-6*t26*t38*t45-1.6742345386666668E-8*
503 t20*t37*t44+2.634164906666666E-11*t41*t52*t43)*t49-0.03109*
504 t19*t33*t34+.002129457733333333*t1*t2*t4*t19*t33*t16+(-0.03651728*
505 t21*t47*t63+0.00152018208*t21*t47*t55*t62-1.9368518399999998E-5*
506 t21*t47*t61*t60+9.131740416E-8*t21*t47*t59*t58-1.3167069696E-10*
507 t21*t47*t56*t119)*t129;
508 dfdrb = t64*(-1.0*t154*t156*t128*t157*rhob+t96+t65*(-
509 4.0*t116*t77*t80*t86*t95+t77*t79*t80*t159*t95+.01975178970256521*
510 t77*(4.0*t116*t80+t115)*t82*t86*t89+.01975178970256521*t77*
511 t81*t82*t159*t89+t118+t117+t113+t105+t104+t103)+t90+t76+0.03109*
512 t127*t128-.002129457733333333*t1*t2*t4*t127*t124)+1.0*t154*
513 t141*t156*t128*t157*rhob-0.03109*t127*(-0.01700496*t53*t140*
514 t153+.3842265920000001*t137*t138*t152-0.22963392*t134*t135*
515 t151+.04565967360000001*t130*t132*t150-.002993182720000002*
516 t147*t148*t149)*t128*rhob-1.0*t120*t35*t4*(-0.001443124*t53*
517 t146*t54+5.631904E-5*t137*t145*t139-3.1740416000000005E-7*
518 t134*t144*t136+6.173823999999999E-10*t130*t143*t133+1.03161)-
519 0.75*(.003848330666666667*t53*t146*t153-3.1576153599999995E-4*
520 t137*t145*t152+3.740706133333333E-6*t134*t144*t151-1.6742345386666668E-8*
521 t130*t143*t150+2.634164906666666E-11*t147*t158*t149)*t155*
522 t35*t4+(-0.03651728*t53*t63*t153+0.00152018208*t53*t55*t62*
523 t153-1.9368518399999998E-5*t53*t61*t60*t153+9.131740416E-8*
524 t53*t59*t58*t153-1.3167069696E-10*t53*t56*t119*t153)*t129-
525 0.03109*t127*t141*t128+.002129457733333333*t1*t2*t4*t127*t141*
526 t124;
527 dfdga = -0.03109*t19*(0.01275372*grada*t32*t22-.2881699440000001*
528 t164*t30*t31+0.17222544*t163*t27*t28-.03424475520000001*t162*
529 t24*t25+.002244887040000001*t160*t42*t161)*t34*rhoa-0.75*(-
530 0.002886248*grada*t40*t22+2.3682115199999998E-4*t164*t39*t31-
531 2.8055296E-6*t163*t38*t28+1.255675904E-8*t162*t37*t25-1.97562368E-11*
532 t160*t52*t161)*t35*t4*t49+(0.02738796*grada*t22*t63-0.00114013656*
533 grada*t22*t55*t62+1.45263888E-5*grada*t22*t61*t60-6.848805312000001E-8*
534 grada*t22*t59*t58+9.875302271999999E-11*grada*t22*t56*t119)*
535 t129;
536 dfdgb = -0.03109*t127*(0.01275372*gradb*t140*t54-.2881699440000001*
537 t169*t138*t139+0.17222544*t168*t135*t136-.03424475520000001*
538 t167*t132*t133+.002244887040000001*t165*t148*t166)*t128*rhob-
539 0.75*t155*t35*t4*(-0.002886248*gradb*t146*t54+2.3682115199999998E-4*
540 t169*t145*t139-2.8055296E-6*t168*t144*t136+1.255675904E-8*
541 t167*t143*t133-1.97562368E-11*t165*t158*t166)+(0.02738796*
542 gradb*t63*t54-0.00114013656*gradb*t55*t62*t54+1.45263888E-5*
543 gradb*t61*t60*t54-6.848805312000001E-8*gradb*t59*t58*t54+9.875302271999999E-11*
544 gradb*t56*t119*t54)*t129;
545 dfdgab = 0.0;
546
547
548 ds->df1000 += factor*dfdra;
549 ds->df0100 += factor*dfdrb;
550 ds->df0010 += factor*dfdga;
551 ds->df0001 += factor*dfdgb;
552 ds->df00001+= factor*dfdgab;
553
554 }
555
556 static void
f14_second(FunSecondFuncDrv * ds,real factor,const FunDensProp * dp)557 f14_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
558 {
559 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
560 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
561 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
562 d2fdgbgb, d2fdgbgab, d2fdgabgab;
563 real rhoa = dp->rhoa, rhob = dp->rhob;
564 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
565
566 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
567 real t11, t12, t13, t14, t15, t16, t17, t18;
568 real t19, t20, t21, t22, t23, t24, t25, t26;
569 real t27, t28, t29, t30, t31, t32, t33, t34;
570 real t35, t36, t37, t38, t39, t40, t41, t42;
571 real t43, t44, t45, t46, t47, t48, t49, t50;
572 real t51, t52, t53, t54, t55, t56, t57, t58;
573 real t59, t60, t61, t62, t63, t64, t65, t66;
574 real t67, t68, t69, t70, t71, t72, t73, t74;
575 real t75, t76, t77, t78, t79, t80, t81, t82;
576 real t83, t84, t85, t86, t87, t88, t89, t90;
577 real t91, t92, t93, t94, t95, t96, t97, t98;
578 real t99, t100, t101, t102, t103, t104, t105;
579 real t106, t107, t108, t109, t110, t111, t112;
580 real t113, t114, t115, t116, t117, t118, t119;
581 real t120, t121, t122, t123, t124, t125, t126;
582 real t127, t128, t129, t130, t131, t132, t133;
583 real t134, t135, t136, t137, t138, t139, t140;
584 real t141, t142, t143, t144, t145, t146, t147;
585 real t148, t149, t150, t151, t152, t153, t154;
586 real t155, t156, t157, t158, t159, t160, t161;
587 real t162, t163, t164, t165, t166, t167, t168;
588 real t169, t170, t171, t172, t173, t174, t175;
589 real t176, t177, t178, t179, t180, t181, t182;
590 real t183, t184, t185, t186, t187, t188, t189;
591 real t190, t191, t192, t193, t194, t195, t196;
592 real t197, t198, t199, t200, t201, t202, t203;
593 real t204, t205, t206, t207, t208, t209, t210;
594 real t211, t212, t213, t214, t215, t216, t217;
595 real t218, t219, t220, t221, t222, t223, t224;
596 real t225, t226, t227, t228, t229, t230, t231;
597 real t232, t233, t234, t235, t236, t237, t238;
598 real t239, t240, t241, t242, t243, t244, t245;
599 real t246, t247, t248, t249, t250, t251, t252;
600 real t253, t254, t255, t256, t257, t258, t259;
601 real t260, t261, t262, t263, t264, t265, t266;
602 real t267, t268, t269, t270, t271, t272, t273;
603 real t274, t275, t276, t277, t278, t279, t280;
604 real t281, t282, t283, t284, t285, t286, t287;
605 real t288, t289, t290;
606
607 t1 = pow(3.0,.3333333333333333);
608 t2 = 1/pow(4.0,.3333333333333333);
609 t3 = pow(M_PI,.3333333333333333);
610 t4 = 1/t3;
611 t5 = 1.732050807568877;
612 t6 = pow(rhoa,.3333333333333333);
613 t7 = sqrt(t3*t6);
614 t8 = 1/pow(t7,3.0);
615 t9 = pow(2.0,.3333333333333333);
616 t10 = 1/t9;
617 t11 = pow(3.0,.1666666666666667);
618 t12 = pow(3.0,.6666666666666666);
619 t13 = 1/pow(4.0,.6666666666666666);
620 t14 = pow(M_PI,.6666666666666666);
621 t15 = 1/t14;
622 t16 = 1/pow(rhoa,.6666666666666666);
623 t17 = 1/t6;
624 t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
625 t17+0.62517*t12*t13*t15*t16;
626 t19 = 32.1646831778707/t18+1.0;
627 t20 = log(t19);
628 t21 = pow(grada,8.0);
629 t22 = pow(grada,2.0);
630 t23 = 1/pow(rhoa,2.666666666666667);
631 t24 = 0.2*t22*t23+1.0;
632 t25 = 1/pow(t24,4.0);
633 t26 = 1/pow(rhoa,10.66666666666667);
634 t27 = pow(grada,6.0);
635 t28 = 1/pow(t24,3.0);
636 t29 = 1/pow(rhoa,8.0);
637 t30 = pow(grada,4.0);
638 t31 = 1/pow(t24,2.0);
639 t32 = 1/pow(rhoa,5.333333333333333);
640 t33 = 1/t24;
641 t34 = 0.00637686*t22*t33*t23-.07140480000000002*t30*t31*
642 t32+0.0191836*t27*t28*t29-.001403054400000001*t21*t25*t26+
643 2.82414;
644 t35 = 0.20548*t1*t2*t4*t17+1.0;
645 t36 = pow(6.0,.3333333333333333);
646 t37 = 0.004*t22*t23+1.0;
647 t38 = 1/pow(t37,4.0);
648 t39 = 1/pow(t37,3.0);
649 t40 = 1/pow(t37,2.0);
650 t41 = 1/t37;
651 t42 = -0.001443124*t22*t41*t23+5.631904E-5*t30*t40*t32-
652 3.1740416000000005E-7*t27*t39*t29+6.173823999999999E-10*t21*
653 t38*t26+1.03161;
654 t43 = pow(grada,10.0);
655 t44 = 1/pow(t24,5.0);
656 t45 = 1/pow(rhoa,14.33333333333333);
657 t46 = 1/pow(rhoa,11.66666666666667);
658 t47 = 1/pow(rhoa,9.0);
659 t48 = 1/pow(rhoa,6.333333333333333);
660 t49 = 1/pow(rhoa,3.666666666666667);
661 t50 = -0.01700496*t22*t33*t49+.3842265920000001*t30*t31*
662 t48-0.22963392*t27*t28*t47+.04565967360000001*t21*t25*t46-
663 .002993182720000002*t43*t44*t45;
664 t51 = 1/t19;
665 t52 = 1/pow(rhoa,1.666666666666667);
666 t53 = pow(rhoa,1.333333333333333);
667 t54 = 1/t53;
668 t55 = 1/pow(t7,5.0);
669 t56 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t55*t16-
670 2.0659*t1*t2*t4*t54-0.41678*t12*t13*t15*t52;
671 t57 = 1/pow(t18,2.0);
672 t58 = 1/pow(t37,5.0);
673 t59 = .003848330666666667*t22*t41*t49-3.1576153599999995E-4*
674 t30*t40*t48+3.740706133333333E-6*t27*t39*t47-1.6742345386666668E-8*
675 t21*t38*t46+2.634164906666666E-11*t43*t58*t45;
676 t60 = pow(gradb,2.0);
677 t61 = 1/pow(rhob,2.666666666666667);
678 t62 = 0.5*t60*t61+0.5*t22*t23;
679 t63 = pow(t62,4.0);
680 t64 = 0.006*t62+1.0;
681 t65 = 1/pow(t64,4.0);
682 t66 = pow(t62,3.0);
683 t67 = 1/pow(t64,3.0);
684 t68 = pow(t62,2.0);
685 t69 = 1/pow(t64,2.0);
686 t70 = 1/t64;
687 t71 = 0.02738796*t62*t70-4.8790439999999996E-4*t68*t69+
688 2.8905119999999995E-6*t66*t67-4.11470928E-9*t63*t65+0.0821827;
689 t72 = rhob+
690 rhoa;
691 t73 = pow(t72,.3333333333333333);
692 t74 = 1/t73;
693 t75 = 0.2137*t1*t2*t4*t74+1.0;
694 t76 = 1/pow(t72,.6666666666666666);
695 t77 = sqrt(t3*t73);
696 t78 = 1/pow(t77,3.0);
697 t79 = 1/t77;
698 t80 = 7.5957*t10*t11*t79+0.8191*t5*t78+3.5876*t1*t2*t4*
699 t74+0.49294*t12*t13*t15*t76;
700 t81 = 16.0818243221511/t80+1.0;
701 t82 = log(t81);
702 t83 = -0.062182*t75*t82;
703 t84 = 1/(2.0*t9-2.0);
704 t85 = rhoa-1.0*rhob;
705 t86 = pow(t85,4.0);
706 t87 = 1/pow(t72,4.0);
707 t88 = 1.0-1.0*t86*t87;
708 t89 = 0.11125*t1*t2*t4*t74+1.0;
709 t90 = 1/t72;
710 t91 = 1.0-1.0*t85*t90;
711 t92 = t85*t90+1.0;
712 t93 = pow(t92,1.333333333333333)+pow(t91,1.333333333333333)-
713 2.0;
714 t94 = 10.357*t10*t11*t79+0.44013*t5*t78+3.6231*t1*t2*
715 t4*t74+0.49671*t12*t13*t15*t76;
716 t95 = 29.60857464321668/t94+1.0;
717 t96 = log(t95);
718 t97 = .01975178970256521*t84*t88*t89*t93*t96;
719 t98 = 0.20548*t1*t2*t4*t74+1.0;
720 t99 = 14.1189*t10*t11*t79+1.6831*t5*t78+6.1977*t1*t2*
721 t4*t74+0.62517*t12*t13*t15*t76;
722 t100 = 32.1646831778707/t99+1.0;
723 t101 = log(t100);
724 t102 = 0.062182*t75*t82-0.03109*t98*t101;
725 t103 = t84*t86*t87*t93*t102;
726 t104 = 1/pow(t72,1.666666666666667);
727 t105 = 1/pow(t72,1.333333333333333);
728 t106 = 1/pow(t77,5.0);
729 t107 = -1.26595*t10*t11*t3*t76*t78-0.40955*t5*t3*t76*
730 t106-1.195866666666667*t1*t2*t4*t105-.3286266666666666*t12*
731 t13*t15*t104;
732 t108 = 1/pow(t80,2.0);
733 t109 = 1/t81;
734 t110 = .9999999999999999*t75*t107*t108*t109;
735 t111 = -1.726166666666666*t10*t11*t3*t76*t78-0.220065*
736 t5*t3*t76*t106-1.2077*t1*t2*t4*t105-0.33114*t12*t13*t15*t104;
737 t112 = 1/
738 pow(t94,2.0);
739 t113 = 1/t95;
740 t114 = -.5848223397455204*t84*t88*t89*t93*t111*t112*t113;
741 t115 = .004429431133333333*
742 t1*t2*t4*t105*t82;
743 t116 = 1/pow(t72,2.0);
744 t117 = t85*t116;
745 t118 = -1.0*t90;
746 t119 = t118+t117;
747 t120 = pow(t91,.3333333333333333);
748 t121 = -1.0*t116*t85;
749 t122 = t90+t121;
750 t123 = pow(t92,.3333333333333333);
751 t124 = 1.333333333333333*t122*t123+1.333333333333333*
752 t119*t120;
753 t125 = .01975178970256521*t84*t88*t89*t124*t96;
754 t126 = -7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t93*
755 t96;
756 t127 = 1/pow(t72,5.0);
757 t128 = 4.0*t127*t86;
758 t129 = pow(t85,3.0);
759 t130 = t128-4.0*t129*t87;
760 t131 = .01975178970256521*t84*t130*t89*t93*t96;
761 t132 = -2.35315*t10*t11*t3*t76*t78-0.84155*t5*t3*t76*
762 t106-2.0659*t1*t2*t4*t105-0.41678*t12*t13*t15*t104;
763 t133 = 1/pow(t99,2.0);
764 t134 = 1/t100;
765 t135 = .002129457733333333*t1*t2*t4*t105*t101-.004429431133333333*
766 t1*t2*t4*t105*t82+1.0*t98*t132*t133*t134-.9999999999999999*
767 t75*t107*t108*t109;
768 t136 = t84*t86*t87*t93*t135;
769 t137 = t84*t86*t87*t124*t102;
770 t138 = -4.0*t102*t127*t84*t86*t93;
771 t139 = -1.0*t51*t56*t35*t57*rhoa+t97+t72*(4.0*t102*t129*
772 t84*t87*t93+t138+t137+t136+t131+t126+t125+t115+t114+t110)+
773 t83+0.03109*t20*t35-.002129457733333333*t1*t2*t4*t20*t17+t103;
774 t140 = 1/
775 pow(t64,5.0);
776 t141 = -0.03651728*t22*t49*t70+0.00152018208*t22*t49*
777 t62*t69-1.9368518399999998E-5*t22*t49*t68*t67+9.131740416E-8*
778 t22*t49*t66*t65-1.3167069696E-10*t22*t49*t63*t140;
779 t142 = pow(rhob,.3333333333333333);
780 t143 = sqrt(t3*t142);
781 t144 = 1/pow(t143,3.0);
782 t145 = 1/pow(rhob,.6666666666666666);
783 t146 = 1/t142;
784 t147 = 6.1977*t1*t2*t4*t146+0.62517*t12*t13*t15*t145+
785 1.6831*t5*t144+14.1189*t10*t11/t143;
786 t148 = 32.1646831778707/t147+1.0;
787 t149 = log(t148);
788 t150 = 0.20548*t1*t2*t4*t146+1.0;
789 t151 = t72*(t103+t97+t83)+0.03109*t149*t150*rhob+0.03109*
790 t20*t35*rhoa;
791 t152 = pow(gradb,8.0);
792 t153 = 0.2*t60*t61+1.0;
793 t154 = 1/pow(t153,4.0);
794 t155 = 1/pow(rhob,10.66666666666667);
795 t156 = pow(gradb,6.0);
796 t157 = 1/pow(t153,3.0);
797 t158 = 1/pow(rhob,8.0);
798 t159 = pow(gradb,4.0);
799 t160 = 1/pow(t153,2.0);
800 t161 = 1/pow(rhob,5.333333333333333);
801 t162 = 1/t153;
802 t163 = 0.00637686*t60*t162*t61-.07140480000000002*t159*
803 t160*t161+0.0191836*t156*t157*t158-.001403054400000001*t152*
804 t154*t155+2.82414;
805 t164 = 0.004*t60*t61+1.0;
806 t165 = 1/pow(t164,4.0);
807 t166 = 1/pow(t164,3.0);
808 t167 = 1/pow(t164,2.0);
809 t168 = 1/t164;
810 t169 = -0.001443124*t60*t168*t61+5.631904E-5*t159*t167*
811 t161-3.1740416000000005E-7*t156*t166*t158+6.173823999999999E-10*
812 t152*t165*t155+1.03161;
813 t170 = pow(gradb,10.0);
814 t171 = 1/pow(t153,5.0);
815 t172 = 1/pow(rhob,14.33333333333333);
816 t173 = 1/pow(rhob,11.66666666666667);
817 t174 = 1/pow(rhob,9.0);
818 t175 = 1/pow(rhob,6.333333333333333);
819 t176 = 1/pow(rhob,3.666666666666667);
820 t177 = -0.01700496*t60*t162*t176+.3842265920000001*t159*
821 t160*t175-0.22963392*t156*t157*t174+.04565967360000001*t152*
822 t154*t173-.002993182720000002*t170*t171*t172;
823 t178 = 1/t148;
824 t179 = 1/pow(rhob,1.666666666666667);
825 t180 = pow(rhob,1.333333333333333);
826 t181 = 1/t180;
827 t182 = 1/pow(t143,5.0);
828 t183 = -2.35315*t10*t11*t3*t144*t145-0.84155*t5*t3*t182*
829 t145-2.0659*t1*t2*t4*t181-0.41678*t12*t13*t15*t179;
830 t184 = 1/pow(t147,2.0);
831 t185 = 1/pow(t164,5.0);
832 t186 = .003848330666666667*t60*t168*t176-3.1576153599999995E-4*
833 t159*t167*t175+3.740706133333333E-6*t156*t166*t174-1.6742345386666668E-8*
834 t152*t165*t173+2.634164906666666E-11*t170*t185*t172;
835 t187 = t90+t117;
836 t188 = t118+t121;
837 t189 = 1.333333333333333*t123*t188+1.333333333333333*
838 t120*t187;
839 t190 = .01975178970256521*t84*t88*t89*t189*t96;
840 t191 = 4.0*t129*t87+t128;
841 t192 = .01975178970256521*t84*t191*t89*t93*t96;
842 t193 = t84*t86*t87*t189*t102;
843 t194 = -1.0*t178*t183*t150*t184*rhob+t97+t72*(-4.0*t102*
844 t129*t84*t87*t93+t193+t192+t190+t138+t136+t126+t115+t114+t110)+
845 t83+0.03109*t149*t150-.002129457733333333*t1*t2*t4*t149*t146+
846 t103;
847 t195 = -0.03651728*t60*t70*t176+0.00152018208*t60*t62*
848 t69*t176-1.9368518399999998E-5*t60*t68*t67*t176+9.131740416E-8*
849 t60*t66*t65*t176-1.3167069696E-10*t60*t63*t140*t176;
850 t196 = pow(grada,9.0);
851 t197 = 1/pow(rhoa,13.33333333333333);
852 t198 = pow(grada,7.0);
853 t199 = pow(grada,5.0);
854 t200 = pow(grada,3.0);
855 t201 = 0.01275372*grada*t33*t23-.2881699440000001*t200*
856 t31*t32+0.17222544*t199*t28*t29-.03424475520000001*t198*t25*
857 t26+.002244887040000001*t196*t44*t197;
858 t202 = -0.002886248*grada*t41*t23+2.3682115199999998E-4*
859 t200*t40*t32-2.8055296E-6*t199*t39*t29+1.255675904E-8*t198*
860 t38*t26-1.97562368E-11*t196*t58*t197;
861 t203 = 0.02738796*grada*t23*t70-0.00114013656*grada*t23*
862 t62*t69+1.45263888E-5*grada*t23*t68*t67-6.848805312000001E-8*
863 grada*t23*t66*t65+9.875302271999999E-11*grada*t23*t63*t140;
864 t204 = pow(gradb,
865 9.0);
866 t205 = 1/pow(rhob,13.33333333333333);
867 t206 = pow(gradb,7.0);
868 t207 = pow(gradb,5.0);
869 t208 = pow(gradb,3.0);
870 t209 = 0.01275372*gradb*t162*t61-.2881699440000001*t208*
871 t160*t161+0.17222544*t207*t157*t158-.03424475520000001*t206*
872 t154*t155+.002244887040000001*t204*t171*t205;
873 t210 = -0.002886248*gradb*t168*t61+2.3682115199999998E-4*
874 t208*t167*t161-2.8055296E-6*t207*t166*t158+1.255675904E-8*
875 t206*t165*t155-1.97562368E-11*t204*t185*t205;
876 t211 = 0.02738796*gradb*t70*t61-0.00114013656*gradb*t62*
877 t69*t61+1.45263888E-5*gradb*t68*t67*t61-6.848805312000001E-8*
878 gradb*t66*t65*t61+9.875302271999999E-11*gradb*t63*t140*t61;
879 t212 = pow(grada,
880 12.0);
881 t213 = 1/pow(t24,6.0);
882 t214 = 1/pow(rhoa,18.0);
883 t215 = 1/pow(rhoa,15.33333333333333);
884 t216 = 1/pow(rhoa,12.66666666666667);
885 t217 = 1/pow(rhoa,10.0);
886 t218 = 1/pow(rhoa,7.333333333333333);
887 t219 = 1/pow(rhoa,4.666666666666667);
888 t220 = 1/pow(t19,2.0);
889 t221 = pow(t56,2.0);
890 t222 = 1/pow(t18,4.0);
891 t223 = 1/pow(t18,3.0);
892 t224 = 2.754533333333333*t1*t2*t4/pow(rhoa,2.333333333333333)+
893 .7012916666666668*t14*t5*t54/pow(t7,7.0)+1.176575*t10*t11*
894 t14*t55*t54+1.568766666666666*t10*t11*t3*t8*t52+.5610333333333333*
895 t5*t3*t55*t52+.6946333333333333*t12*t13*t15*t23;
896 t225 = 1/pow(t37,6.0);
897 t226 = 2.0*t75*t107*t108*t109;
898 t227 = -1.169644679491041*t84*t88*t89*t93*t111*t112*t113;
899 t228 = .008858862266666667*
900 t1*t2*t4*t105*t82;
901 t229 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t93*
902 t96;
903 t230 = 2.0*t135*t84*t86*t87*t93;
904 t231 = -8.0*t102*t127*t84*t86*t93;
905 t232 = pow(t107,2.0);
906 t233 = 1/pow(t80,4.0);
907 t234 = 1/pow(t81,2.0);
908 t235 = 16.0818243221511*t75*t232*t233*t234;
909 t236 = 1/pow(t80,3.0);
910 t237 = -2.0*t75*t232*t236*t109;
911 t238 = 1/pow(t72,2.666666666666667);
912 t239 = 1/pow(t72,2.333333333333333);
913 t240 = 1/pow(t77,7.0);
914 t241 = .8439666666666665*t10*t11*t3*t104*t78+0.632975*
915 t10*t11*t14*t105*t106+.2730333333333334*t5*t3*t104*t106+.3412916666666667*
916 t5*t14*t105*t240+1.594488888888889*t1*t2*t4*t239+0.547711111111111*
917 t12*t13*t15*t238;
918 t242 = .9999999999999999*t75*t241*t108*t109;
919 t243 = -.1424666666666666*t1*t2*t4*t105*t107*t108*t109;
920 t244 = pow(t111,
921 2.0);
922 t245 = -17.31575589937587*t244*t84*t88*t89*t93/(pow(t94,
923 4.0)*pow(t95,2.0));
924 t246 = 1.169644679491041*t113*t244*t84*t88*t89*t93/pow(t94,
925 3.0);
926 t247 = -.5848223397455204*t84*t88*t89*t93*(1.150777777777777*
927 t10*t11*t3*t104*t78+.8630833333333332*t10*t11*t14*t105*t106+
928 0.14671*t5*t3*t104*t106+0.1833875*t5*t14*t105*t240+1.610266666666667*
929 t1*t2*t4*t239+.5519000000000001*t12*t13*t15*t238)*t112*t113;
930 t248 = .04337432353112609*
931 t84*t1*t2*t4*t105*t88*t93*t111*t112*t113;
932 t249 = -.005905908177777777*t1*t2*t4*t239*t82;
933 t250 = 1/pow(t91,.6666666666666666);
934 t251 = 1/pow(t72,3.0);
935 t252 = -2.0*t251*t85;
936 t253 = 2.0*t116;
937 t254 = 1/pow(t92,.6666666666666666);
938 t255 = 2.0*t251*t85;
939 t256 = -2.0*t116;
940 t257 = 1.333333333333333*t123*(t256+t255)+.4444444444444444*
941 pow(t122,2.0)*t254+1.333333333333333*t120*(t253+t252)+.4444444444444444*
942 pow(t119,2.0)*t250;
943 t258 = 9.766162686268349E-4*t84*t1*t2*t4*t239*t88*t93*
944 t96;
945 t259 = 1/pow(t72,6.0);
946 t260 = -20.0*t259*t86;
947 t261 = pow(t85,2.0);
948 t262 = -12.0*t261*t87;
949 t263 = pow(t132,2.0);
950 t264 = t84*t86*t87*t93*(32.1646831778707*t263*t98/(pow(t100,
951 2.0)*pow(t99,4.0))-2.0*t134*t263*t98/pow(t99,3.0)+.005905908177777777*
952 t1*t2*t4*t239*t82-16.0818243221511*t75*t232*t233*t234+1.0*
953 t98*(1.568766666666666*t10*t11*t3*t104*t78+1.176575*t10*t11*
954 t14*t105*t106+.5610333333333333*t5*t3*t104*t106+.7012916666666668*
955 t5*t14*t105*t240+2.754533333333333*t1*t2*t4*t239+.6946333333333333*
956 t12*t13*t15*t238)*t133*t134-.1369866666666666*t1*t2*t4*t105*
957 t132*t133*t134+2.0*t75*t232*t236*t109-.9999999999999999*t75*
958 t241*t108*t109+.1424666666666666*t1*t2*t4*t105*t107*t108*t109-
959 .002839276977777777*t1*t2*t4*t239*t101);
960 t265 = -8.0*t127*t135*t84*t86*t93;
961 t266 = 20.0*t102*t259*t84*t86*t93;
962 t267 = 12.0*t102*t261*t84*t87*t93;
963 t268 = 1/pow(t64,6.0);
964 t269 = 2.666666666666667*t123*t251*t85-2.666666666666667*
965 t120*t251*t85+.4444444444444444*t122*t188*t254+.4444444444444444*
966 t119*t187*t250;
967 t270 = pow(grada,11.0);
968 t271 = 1/pow(rhoa,17.0);
969 t272 = pow(gradb,12.0);
970 t273 = 1/pow(t153,6.0);
971 t274 = 1/pow(rhob,18.0);
972 t275 = 1/pow(rhob,15.33333333333333);
973 t276 = 1/pow(rhob,12.66666666666667);
974 t277 = 1/pow(rhob,10.0);
975 t278 = 1/pow(rhob,7.333333333333333);
976 t279 = 1/pow(rhob,4.666666666666667);
977 t280 = 1/pow(t148,2.0);
978 t281 = pow(t183,2.0);
979 t282 = 1/pow(t147,4.0);
980 t283 = 1/pow(t147,3.0);
981 t284 = 2.754533333333333*t1*t2*t4/pow(rhob,2.333333333333333)+
982 .6946333333333333*t12*t13*t15*t61+.7012916666666668*t14*t181*
983 t5/pow(t143,7.0)+1.176575*t10*t11*t14*t182*t181+.5610333333333333*
984 t5*t3*t182*t179+1.568766666666666*t10*t11*t3*t144*t179;
985 t285 = 1/pow(t164,6.0);
986 t286 = 1.333333333333333*t120*(t256+t252)+.4444444444444444*
987 pow(t188,2.0)*t254+1.333333333333333*t123*(t253+t255)+.4444444444444444*
988 pow(t187,2.0)*t250;
989 t287 = pow(gradb,11.0);
990 t288 = 1/pow(rhob,17.0);
991 t289 = 1/pow(rhoa,16.0);
992 t290 = 1/pow(rhob,16.0);
993
994 /* code */
995 dfdra = 1.0*t51*t34*t56*t35*t57*rhoa-0.03109*t20*t50*
996 t35*rhoa-1.0*t36*t4*t42*t6-0.75*t36*t4*t53*t59-0.03109*t20*
997 t34*t35+.002129457733333333*t1*t2*t4*t20*t34*t17+t141*t151+
998 t71*t139;
999 dfdrb = 1.0*t178*t163*t183*t150*t184*rhob-0.03109*t149*
1000 t177*t150*rhob-0.75*t180*t186*t36*t4-1.0*t142*t169*t36*t4+
1001 t71*t194+t195*t151-0.03109*t149*t163*t150+.002129457733333333*
1002 t1*t2*t4*t149*t163*t146;
1003 dfdga = -0.03109*t20*t201*t35*rhoa-0.75*t202*t36*t4*t53+
1004 t203*t151;
1005 dfdgb = -0.03109*t149*t209*t150*rhob-0.75*t180*t210*t36*
1006 t4+t211*t151;
1007 dfdgab = 0.0;
1008 d2fdrara = t71*(-1.0*t51*t224*t35*t57*rhoa+2.0*t51*t221*
1009 t35*t223*rhoa-32.1646831778707*t220*t221*t35*t222*rhoa+t72*
1010 (.01975178970256521*(t262+t260+32.0*t127*t129)*t84*t89*t93*
1011 t96-.001464924402940253*t84*t1*t2*t4*t105*t130*t93*t96+.01975178970256521*
1012 t84*t88*t89*t257*t96+.03950357940513041*t84*t130*t89*t124*
1013 t96-.001464924402940253*t84*t1*t2*t4*t105*t88*t124*t96+8.0*
1014 t129*t135*t84*t87*t93-32.0*t102*t127*t129*t84*t93+2.0*t124*
1015 t135*t84*t86*t87+8.0*t102*t124*t129*t84*t87-8.0*t102*t124*
1016 t127*t84*t86+t267+t266+t265+t264+t258+t249+t248+t247+t246+
1017 t245+t243+t242+t237+t235-1.169644679491041*t84*t130*t89*t93*
1018 t111*t112*t113-1.169644679491041*t84*t88*t89*t124*t111*t112*
1019 t113+t84*t86*t87*t257*t102)+.03950357940513041*t84*t130*t89*
1020 t93*t96+.03950357940513041*t84*t88*t89*t124*t96+8.0*t102*t129*
1021 t84*t87*t93+2.0*t102*t124*t84*t86*t87-2.0*t51*t56*t35*t57-
1022 .001419638488888889*t1*t2*t4*t20*t54+t231+t230+t229+t228+t227+
1023 t226+.1369866666666666*t1*t2*t4*t51*t56*t57*t17)+2.0*t51*t50*
1024 t56*t35*t57*rhoa+1.0*t51*t34*t224*t35*t57*rhoa-0.03109*t20*
1025 (.06235151999999999*t22*t33*t219-2.442504394666667*t30*t31*
1026 t218+2.476546978133334*t27*t28*t217-.9001104640000002*t21*
1027 t25*t216+.1403095893333334*t43*t44*t215-0.00798182058666667*
1028 t212*t213*t214)*t35*rhoa-2.0*t51*t34*t221*t35*t223*rhoa+32.1646831778707*
1029 t220*t34*t221*t35*t222*rhoa-2.0*t36*t4*t59*t6+2.0*t51*t34*
1030 t56*t35*t57+.001419638488888889*t1*t2*t4*t20*t34*t54-0.75*
1031 (-.01411054577777778*t22*t41*t219+.002040871921777777*t30*
1032 t40*t218-4.040260130133333E-5*t27*t39*t217+3.1502995911111115E-7*
1033 t21*t38*t216-1.0919037064533334E-9*t43*t58*t215+1.404887950222222E-12*
1034 t212*t225*t214)*t36*t4*t53-.3333333333333333*t16*t36*t4*t42-
1035 0.06218*t20*t50*t35-.1369866666666666*t1*t2*t4*t51*t34*t56*
1036 t57*t17+.004258915466666666*t1*t2*t4*t20*t50*t17+(.1338966933333333*
1037 t22*t219*t70-.005574000959999999*t22*t219*t62*t69-.002319047679999999*
1038 t30*t218*t69+7.101790079999999E-5*t22*t219*t68*t67+7.597229567999998E-5*
1039 t30*t218*t62*t67-3.3483048192000003E-7*t22*t219*t66*t65-8.301140582400001E-7*
1040 t30*t218*t68*t65+4.8279255552E-10*t22*t219*t63*t140+3.62440065024E-9*
1041 t30*t218*t66*t140-5.2668278784E-12*t30*t218*t63*t268)*t151+
1042 2.0*t139*t141;
1043 d2fdrarb = t71*(t72*(.01975178970256521*t84*(12.0*t261*
1044 t87+t260)*t89*t93*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*
1045 t191*t93*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t130*t93*
1046 t96+.01975178970256521*t84*t88*t89*t269*t96+.01975178970256521*
1047 t84*t130*t89*t189*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*
1048 t88*t189*t96+.01975178970256521*t84*t191*t89*t124*t96-7.324622014701263E-4*
1049 t84*t1*t2*t4*t105*t88*t124*t96-12.0*t102*t261*t84*t87*t93+
1050 4.0*t102*t129*t189*t84*t87-4.0*t102*t124*t129*t84*t87-4.0*
1051 t102*t127*t189*t84*t86-4.0*t102*t124*t127*t84*t86+t266+t265+
1052 t264+t258+t249+t248+t247+t246+t245+t243+t242+t237+t235+t84*
1053 t86*t87*t189*t135+t84*t86*t87*t124*t135-.5848223397455204*
1054 t84*t191*t89*t93*t111*t112*t113-.5848223397455204*t84*t130*
1055 t89*t93*t111*t112*t113-.5848223397455204*t84*t88*t89*t189*
1056 t111*t112*t113-.5848223397455204*t84*t88*t89*t124*t111*t112*
1057 t113+t84*t86*t87*t269*t102)+t231+t230+t229+t228+t227+t226+
1058 t193+t192+t190+t137+t131+t125)+t141*t194+(-.002319047679999999*
1059 t22*t60*t49*t69*t176+7.597229567999998E-5*t22*t60*t49*t62*
1060 t67*t176-8.301140582400001E-7*t22*t60*t49*t68*t65*t176+3.62440065024E-9*
1061 t22*t60*t49*t66*t140*t176-5.2668278784E-12*t22*t60*t49*t63*
1062 t268*t176)*t151+t195*t139;
1063 d2fdraga = 1.0*t51*t201*t56*t35*t57*rhoa-0.03109*t20*
1064 (-0.03400992*grada*t33*t49+1.543708352*t200*t31*t48-1.6851847936*
1065 t199*t28*t47+.6408380928000001*t198*t25*t46-0.10298730496*
1066 t196*t44*t45+.005986365440000003*t270*t213*t271)*t35*rhoa-
1067 1.0*t202*t36*t4*t6-0.75*t36*t4*(.007696661333333334*grada*
1068 t41*t49-.001293832789333333*t200*t40*t48+2.7496421375999996E-5*
1069 t199*t39*t47-2.2371571029333337E-7*t198*t38*t46+7.991715430399999E-10*
1070 t196*t58*t45-1.053665962666667E-12*t270*t225*t271)*t53-0.03109*
1071 t20*t201*t35+.002129457733333333*t1*t2*t4*t20*t201*t17+(-0.07303456*
1072 grada*t49*t70+0.00304036416*grada*t49*t62*t69+0.00173928576*
1073 t200*t48*t69-3.8737036799999996E-5*grada*t49*t68*t67-5.697922176E-5*
1074 t200*t48*t62*t67+1.8263480832E-7*grada*t49*t66*t65+6.225855436800002E-7*
1075 t200*t48*t68*t65-2.6334139392E-10*grada*t49*t63*t140-2.7183004876800004E-9*
1076 t200*t48*t66*t140+3.9501209088E-12*t200*t48*t63*t268)*t151+
1077 t203*t139;
1078 d2fdragb = (0.00173928576*t22*gradb*t49*t69*t61-5.697922176E-5*
1079 t22*gradb*t49*t62*t67*t61+6.225855436800002E-7*t22*gradb*t49*
1080 t68*t65*t61-2.7183004876800004E-9*t22*gradb*t49*t66*t140*t61+
1081 3.9501209088E-12*t22*gradb*t49*t63*t268*t61)*t151+t211*t139;
1082 d2fdraab = 0.0;
1083 d2fdrbrb = t71*
1084 (2.0*t178*t281*t150*t283*rhob-32.1646831778707*t280*t281*t150*
1085 t282*rhob-1.0*t178*t284*t150*t184*rhob+t72*(.01975178970256521*
1086 (t262+t260-32.0*t127*t129)*t84*t89*t93*t96-.001464924402940253*
1087 t84*t1*t2*t4*t105*t191*t93*t96+.01975178970256521*t84*t88*
1088 t89*t286*t96+.03950357940513041*t84*t191*t89*t189*t96-.001464924402940253*
1089 t84*t1*t2*t4*t105*t88*t189*t96-8.0*t129*t135*t84*t87*t93+32.0*
1090 t102*t127*t129*t84*t93+2.0*t135*t189*t84*t86*t87-8.0*t102*
1091 t129*t189*t84*t87-8.0*t102*t127*t189*t84*t86+t267+t266+t265+
1092 t264+t258+t249+t248+t247+t246+t245+t243+t242+t237+t235-1.169644679491041*
1093 t84*t191*t89*t93*t111*t112*t113-1.169644679491041*t84*t88*
1094 t89*t189*t111*t112*t113+t84*t86*t87*t286*t102)+.03950357940513041*
1095 t84*t191*t89*t93*t96+.03950357940513041*t84*t88*t89*t189*t96-
1096 8.0*t102*t129*t84*t87*t93+2.0*t102*t189*t84*t86*t87+t231+t230+
1097 t229+t228+t227+t226-2.0*t178*t183*t150*t184-.001419638488888889*
1098 t1*t2*t4*t149*t181+.1369866666666666*t1*t2*t4*t178*t183*t184*
1099 t146)-2.0*t178*t163*t281*t150*t283*rhob+32.1646831778707*t280*
1100 t163*t281*t150*t282*rhob+1.0*t178*t163*t284*t150*t184*rhob+
1101 2.0*t178*t177*t183*t150*t184*rhob-0.03109*t149*(.06235151999999999*
1102 t60*t162*t279-2.442504394666667*t159*t160*t278+2.476546978133334*
1103 t156*t157*t277-.9001104640000002*t152*t154*t276+.1403095893333334*
1104 t170*t171*t275-0.00798182058666667*t272*t273*t274)*t150*rhob-
1105 0.75*t180*(-.01411054577777778*t60*t168*t279+.002040871921777777*
1106 t159*t167*t278-4.040260130133333E-5*t156*t166*t277+3.1502995911111115E-7*
1107 t152*t165*t276-1.0919037064533334E-9*t170*t185*t275+1.404887950222222E-12*
1108 t272*t285*t274)*t36*t4-2.0*t142*t186*t36*t4-.3333333333333333*
1109 t145*t169*t36*t4+2.0*t194*t195+2.0*t178*t163*t183*t150*t184+
1110 .001419638488888889*t1*t2*t4*t149*t163*t181+(.1338966933333333*
1111 t60*t70*t279-.005574000959999999*t60*t62*t69*t279+7.101790079999999E-5*
1112 t60*t68*t67*t279-3.3483048192000003E-7*t60*t66*t65*t279+4.8279255552E-10*
1113 t60*t63*t140*t279-.002319047679999999*t159*t69*t278+7.597229567999998E-5*
1114 t159*t62*t67*t278-8.301140582400001E-7*t159*t68*t65*t278+3.62440065024E-9*
1115 t159*t66*t140*t278-5.2668278784E-12*t159*t63*t268*t278)*t151-
1116 0.06218*t149*t177*t150-.1369866666666666*t1*t2*t4*t178*t163*
1117 t183*t184*t146+.004258915466666666*t1*t2*t4*t149*t177*t146;
1118 d2fdrbga = (0.00173928576*
1119 grada*t60*t23*t69*t176-5.697922176E-5*grada*t60*t23*t62*t67*
1120 t176+6.225855436800002E-7*grada*t60*t23*t68*t65*t176-2.7183004876800004E-9*
1121 grada*t60*t23*t66*t140*t176+3.9501209088E-12*grada*t60*t23*
1122 t63*t268*t176)*t151+t203*t194;
1123 d2fdrbgb = 1.0*t178*t209*t183*t150*t184*rhob-0.03109*
1124 t149*(-0.03400992*gradb*t162*t176+1.543708352*t208*t160*t175-
1125 1.6851847936*t207*t157*t174+.6408380928000001*t206*t154*t173-
1126 0.10298730496*t204*t171*t172+.005986365440000003*t287*t273*
1127 t288)*t150*rhob-1.0*t142*t210*t36*t4-0.75*(.007696661333333334*
1128 gradb*t168*t176-.001293832789333333*t208*t167*t175+2.7496421375999996E-5*
1129 t207*t166*t174-2.2371571029333337E-7*t206*t165*t173+7.991715430399999E-10*
1130 t204*t185*t172-1.053665962666667E-12*t287*t285*t288)*t180*
1131 t36*t4+t211*t194+(-0.07303456*gradb*t70*t176+0.00304036416*
1132 gradb*t62*t69*t176-3.8737036799999996E-5*gradb*t68*t67*t176+
1133 1.8263480832E-7*gradb*t66*t65*t176-2.6334139392E-10*gradb*
1134 t63*t140*t176+0.00173928576*t208*t69*t175-5.697922176E-5*t208*
1135 t62*t67*t175+6.225855436800002E-7*t208*t68*t65*t175-2.7183004876800004E-9*
1136 t208*t66*t140*t175+3.9501209088E-12*t208*t63*t268*t175)*t151-
1137 0.03109*t149*t209*t150+.002129457733333333*t1*t2*t4*t149*t209*
1138 t146;
1139 d2fdrbgab = 0.0;
1140 d2fdgaga = -0.03109*t20*(0.01275372*t33*t23-.8696113200000002*
1141 t22*t31*t32+1.0916631552*t30*t28*t29-.4463838144000002*t27*
1142 t25*t26+.07499559168000003*t21*t44*t197-.004489774080000002*
1143 t43*t213*t289)*t35*rhoa-0.75*(-0.002886248*t41*t23+7.335534399999999E-4*
1144 t22*t40*t32-1.7816786431999998E-5*t30*t39*t29+1.5523002368000002E-7*
1145 t27*t38*t26-5.7962242048E-10*t21*t58*t197+7.90249472E-13*t43*
1146 t225*t289)*t36*t4*t53+(0.02738796*t23*t70-0.00114013656*t23*
1147 t62*t69-0.00130446432*t22*t32*t69+1.45263888E-5*t23*t68*t67+
1148 4.2734416319999996E-5*t22*t32*t62*t67-6.848805312000001E-8*
1149 t23*t66*t65-4.669391577600001E-7*t22*t32*t68*t65+9.875302271999999E-11*
1150 t23*t63*t140+2.0387253657600002E-9*t22*t32*t66*t140-2.962590681600001E-12*
1151 t22*t32*t63*t268)*t151;
1152 d2fdgagb = (-0.00130446432*grada*gradb*t23*t69*t61+4.2734416319999996E-5*
1153 grada*gradb*t23*t62*t67*t61-4.669391577600001E-7*grada*gradb*
1154 t23*t68*t65*t61+2.0387253657600002E-9*grada*gradb*t23*t66*
1155 t140*t61-2.962590681600001E-12*grada*gradb*t23*t63*t268*t61)*
1156 t151;
1157 d2fdgagab = 0.0;
1158 d2fdgbgb = -0.03109*t149*(0.01275372*t162*t61-.8696113200000002*
1159 t60*t160*t161+1.0916631552*t159*t157*t158-.4463838144000002*
1160 t156*t154*t155+.07499559168000003*t152*t171*t205-.004489774080000002*
1161 t170*t273*t290)*t150*rhob-0.75*t180*t36*t4*(-0.002886248*t168*
1162 t61+7.335534399999999E-4*t60*t167*t161-1.7816786431999998E-5*
1163 t159*t166*t158+1.5523002368000002E-7*t156*t165*t155-5.7962242048E-10*
1164 t152*t185*t205+7.90249472E-13*t170*t285*t290)+(0.02738796*
1165 t70*t61-0.00114013656*t62*t69*t61+1.45263888E-5*t68*t67*t61-
1166 6.848805312000001E-8*t66*t65*t61+9.875302271999999E-11*t63*
1167 t140*t61-0.00130446432*t60*t69*t161+4.2734416319999996E-5*
1168 t60*t62*t67*t161-4.669391577600001E-7*t60*t68*t65*t161+2.0387253657600002E-9*
1169 t60*t66*t140*t161-2.962590681600001E-12*t60*t63*t268*t161)*
1170 t151;
1171 d2fdgbgab = 0.0;
1172 d2fdgabgab = 0.0;
1173
1174
1175 ds->df1000 += factor*dfdra;
1176 ds->df0100 += factor*dfdrb;
1177 ds->df0010 += factor*dfdga;
1178 ds->df0001 += factor*dfdgb;
1179 ds->df00001+= factor*dfdgab;
1180
1181 ds->df2000 += factor*d2fdrara;
1182 ds->df1100 += factor*d2fdrarb;
1183 ds->df1010 += factor*d2fdraga;
1184 ds->df1001 += factor*d2fdragb;
1185 ds->df10001+= factor*d2fdraab;
1186 ds->df0200 += factor*d2fdrbrb;
1187 ds->df0110 += factor*d2fdrbga;
1188 ds->df0101 += factor*d2fdrbgb;
1189 ds->df01001+= factor*d2fdrbgab;
1190 ds->df0020 += factor*d2fdgaga;
1191 ds->df0011 += factor*d2fdgagb;
1192 ds->df00101+= factor*d2fdgagab;
1193 ds->df0002 += factor*d2fdgbgb;
1194 ds->df00011+= factor*d2fdgbgab;
1195 ds->df00002+= factor*d2fdgabgab;
1196
1197 }
1198
1199 static void
f14_third(FunThirdFuncDrv * ds,real factor,const FunDensProp * dp)1200 f14_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
1201 {
1202 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
1203 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
1204 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
1205 d2fdgbgb, d2fdgbgab, d2fdgabgab;
1206 real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
1207 d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
1208 d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
1209 d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
1210 d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
1211 d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
1212 d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
1213 real rhoa = dp->rhoa, rhob = dp->rhob;
1214 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
1215
1216 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
1217 real t11, t12, t13, t14, t15, t16, t17, t18;
1218 real t19, t20, t21, t22, t23, t24, t25, t26;
1219 real t27, t28, t29, t30, t31, t32, t33, t34;
1220 real t35, t36, t37, t38, t39, t40, t41, t42;
1221 real t43, t44, t45, t46, t47, t48, t49, t50;
1222 real t51, t52, t53, t54, t55, t56, t57, t58;
1223 real t59, t60, t61, t62, t63, t64, t65, t66;
1224 real t67, t68, t69, t70, t71, t72, t73, t74;
1225 real t75, t76, t77, t78, t79, t80, t81, t82;
1226 real t83, t84, t85, t86, t87, t88, t89, t90;
1227 real t91, t92, t93, t94, t95, t96, t97, t98;
1228 real t99, t100, t101, t102, t103, t104, t105;
1229 real t106, t107, t108, t109, t110, t111, t112;
1230 real t113, t114, t115, t116, t117, t118, t119;
1231 real t120, t121, t122, t123, t124, t125, t126;
1232 real t127, t128, t129, t130, t131, t132, t133;
1233 real t134, t135, t136, t137, t138, t139, t140;
1234 real t141, t142, t143, t144, t145, t146, t147;
1235 real t148, t149, t150, t151, t152, t153, t154;
1236 real t155, t156, t157, t158, t159, t160, t161;
1237 real t162, t163, t164, t165, t166, t167, t168;
1238 real t169, t170, t171, t172, t173, t174, t175;
1239 real t176, t177, t178, t179, t180, t181, t182;
1240 real t183, t184, t185, t186, t187, t188, t189;
1241 real t190, t191, t192, t193, t194, t195, t196;
1242 real t197, t198, t199, t200, t201, t202, t203;
1243 real t204, t205, t206, t207, t208, t209, t210;
1244 real t211, t212, t213, t214, t215, t216, t217;
1245 real t218, t219, t220, t221, t222, t223, t224;
1246 real t225, t226, t227, t228, t229, t230, t231;
1247 real t232, t233, t234, t235, t236, t237, t238;
1248 real t239, t240, t241, t242, t243, t244, t245;
1249 real t246, t247, t248, t249, t250, t251, t252;
1250 real t253, t254, t255, t256, t257, t258, t259;
1251 real t260, t261, t262, t263, t264, t265, t266;
1252 real t267, t268, t269, t270, t271, t272, t273;
1253 real t274, t275, t276, t277, t278, t279, t280;
1254 real t281, t282, t283, t284, t285, t286, t287;
1255 real t288, t289, t290, t291, t292, t293, t294;
1256 real t295, t296, t297, t298, t299, t300, t301;
1257 real t302, t303, t304, t305, t306, t307, t308;
1258 real t309, t310, t311, t312, t313, t314, t315;
1259 real t316, t317, t318, t319, t320, t321, t322;
1260 real t323, t324, t325, t326, t327, t328, t329;
1261 real t330, t331, t332, t333, t334, t335, t336;
1262 real t337, t338, t339, t340, t341, t342, t343;
1263 real t344, t345, t346, t347, t348, t349, t350;
1264 real t351, t352, t353, t354, t355, t356, t357;
1265 real t358, t359, t360, t361, t362, t363, t364;
1266 real t365, t366, t367, t368, t369, t370, t371;
1267 real t372, t373, t374, t375, t376, t377, t378;
1268 real t379, t380, t381, t382, t383, t384, t385;
1269 real t386, t387, t388, t389, t390, t391, t392;
1270 real t393, t394, t395, t396, t397, t398, t399;
1271 real t400, t401, t402, t403, t404, t405, t406;
1272 real t407, t408, t409, t410, t411, t412, t413;
1273 real t414, t415, t416, t417, t418, t419, t420;
1274 real t421, t422, t423, t424, t425, t426, t427;
1275 real t428, t429, t430, t431, t432, t433, t434;
1276 real t435, t436, t437, t438, t439, t440, t441;
1277 real t442, t443, t444, t445, t446, t447, t448;
1278 real t449, t450, t451, t452, t453, t454, t455;
1279 real t456, t457, t458, t459, t460, t461, t462;
1280 real t463, t464, t465, t466, t467, t468, t469;
1281 real t470, t471, t472, t473, t474, t475, t476;
1282 real t477, t478, t479, t480, t481, t482, t483;
1283 real t484, t485, t486, t487, t488, t489, t490;
1284 real t491, t492;
1285
1286 t1 = pow(3.0,.3333333333333333);
1287 t2 = 1/pow(4.0,.3333333333333333);
1288 t3 = pow(M_PI,.3333333333333333);
1289 t4 = 1/t3;
1290 t5 = 1.732050807568877;
1291 t6 = pow(rhoa,.3333333333333333);
1292 t7 = sqrt(t3*t6);
1293 t8 = 1/pow(t7,3.0);
1294 t9 = pow(2.0,.3333333333333333);
1295 t10 = 1/t9;
1296 t11 = pow(3.0,.1666666666666667);
1297 t12 = pow(3.0,.6666666666666666);
1298 t13 = 1/pow(4.0,.6666666666666666);
1299 t14 = pow(M_PI,.6666666666666666);
1300 t15 = 1/t14;
1301 t16 = 1/pow(rhoa,.6666666666666666);
1302 t17 = 1/t6;
1303 t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
1304 t17+0.62517*t12*t13*t15*t16;
1305 t19 = 32.1646831778707/t18+1.0;
1306 t20 = log(t19);
1307 t21 = pow(grada,8.0);
1308 t22 = pow(grada,2.0);
1309 t23 = 1/pow(rhoa,2.666666666666667);
1310 t24 = 0.2*t22*t23+1.0;
1311 t25 = 1/pow(t24,4.0);
1312 t26 = 1/pow(rhoa,10.66666666666667);
1313 t27 = pow(grada,6.0);
1314 t28 = 1/pow(t24,3.0);
1315 t29 = 1/pow(rhoa,8.0);
1316 t30 = pow(grada,4.0);
1317 t31 = 1/pow(t24,2.0);
1318 t32 = 1/pow(rhoa,5.333333333333333);
1319 t33 = 1/t24;
1320 t34 = 0.00637686*t22*t33*t23-.07140480000000002*t30*t31*
1321 t32+0.0191836*t27*t28*t29-.001403054400000001*t21*t25*t26+
1322 2.82414;
1323 t35 = 0.20548*t1*t2*t4*t17+1.0;
1324 t36 = pow(6.0,.3333333333333333);
1325 t37 = 0.004*t22*t23+1.0;
1326 t38 = 1/pow(t37,4.0);
1327 t39 = 1/pow(t37,3.0);
1328 t40 = 1/pow(t37,2.0);
1329 t41 = 1/t37;
1330 t42 = -0.001443124*t22*t41*t23+5.631904E-5*t30*t40*t32-
1331 3.1740416000000005E-7*t27*t39*t29+6.173823999999999E-10*t21*
1332 t38*t26+1.03161;
1333 t43 = pow(grada,10.0);
1334 t44 = 1/pow(t24,5.0);
1335 t45 = 1/pow(rhoa,14.33333333333333);
1336 t46 = 1/pow(rhoa,11.66666666666667);
1337 t47 = 1/pow(rhoa,9.0);
1338 t48 = 1/pow(rhoa,6.333333333333333);
1339 t49 = 1/pow(rhoa,3.666666666666667);
1340 t50 = -0.01700496*t22*t33*t49+.3842265920000001*t30*t31*
1341 t48-0.22963392*t27*t28*t47+.04565967360000001*t21*t25*t46-
1342 .002993182720000002*t43*t44*t45;
1343 t51 = 1/t19;
1344 t52 = 1/pow(rhoa,1.666666666666667);
1345 t53 = pow(rhoa,1.333333333333333);
1346 t54 = 1/t53;
1347 t55 = 1/pow(t7,5.0);
1348 t56 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t55*t16-
1349 2.0659*t1*t2*t4*t54-0.41678*t12*t13*t15*t52;
1350 t57 = 1/pow(t18,2.0);
1351 t58 = 1/pow(t37,5.0);
1352 t59 = .003848330666666667*t22*t41*t49-3.1576153599999995E-4*
1353 t30*t40*t48+3.740706133333333E-6*t27*t39*t47-1.6742345386666668E-8*
1354 t21*t38*t46+2.634164906666666E-11*t43*t58*t45;
1355 t60 = pow(gradb,2.0);
1356 t61 = 1/pow(rhob,2.666666666666667);
1357 t62 = 0.5*t60*t61+0.5*t22*t23;
1358 t63 = pow(t62,4.0);
1359 t64 = 0.006*t62+1.0;
1360 t65 = 1/pow(t64,4.0);
1361 t66 = pow(t62,3.0);
1362 t67 = 1/pow(t64,3.0);
1363 t68 = pow(t62,2.0);
1364 t69 = 1/pow(t64,2.0);
1365 t70 = 1/t64;
1366 t71 = 0.02738796*t62*t70-4.8790439999999996E-4*t68*t69+
1367 2.8905119999999995E-6*t66*t67-4.11470928E-9*t63*t65+0.0821827;
1368 t72 = rhob+
1369 rhoa;
1370 t73 = pow(t72,.3333333333333333);
1371 t74 = 1/t73;
1372 t75 = 0.2137*t1*t2*t4*t74+1.0;
1373 t76 = 1/pow(t72,.6666666666666666);
1374 t77 = sqrt(t3*t73);
1375 t78 = 1/pow(t77,3.0);
1376 t79 = 1/t77;
1377 t80 = 7.5957*t10*t11*t79+0.8191*t5*t78+3.5876*t1*t2*t4*
1378 t74+0.49294*t12*t13*t15*t76;
1379 t81 = 16.0818243221511/t80+1.0;
1380 t82 = log(t81);
1381 t83 = -0.062182*t75*t82;
1382 t84 = 1/(2.0*t9-2.0);
1383 t85 = rhoa-1.0*rhob;
1384 t86 = pow(t85,4.0);
1385 t87 = 1/pow(t72,4.0);
1386 t88 = 1.0-1.0*t86*t87;
1387 t89 = 0.11125*t1*t2*t4*t74+1.0;
1388 t90 = 1/t72;
1389 t91 = 1.0-1.0*t85*t90;
1390 t92 = t85*t90+1.0;
1391 t93 = pow(t92,1.333333333333333)+pow(t91,1.333333333333333)-
1392 2.0;
1393 t94 = 10.357*t10*t11*t79+0.44013*t5*t78+3.6231*t1*t2*
1394 t4*t74+0.49671*t12*t13*t15*t76;
1395 t95 = 29.60857464321668/t94+1.0;
1396 t96 = log(t95);
1397 t97 = .01975178970256521*t84*t88*t89*t93*t96;
1398 t98 = 0.20548*t1*t2*t4*t74+1.0;
1399 t99 = 14.1189*t10*t11*t79+1.6831*t5*t78+6.1977*t1*t2*
1400 t4*t74+0.62517*t12*t13*t15*t76;
1401 t100 = 32.1646831778707/t99+1.0;
1402 t101 = log(t100);
1403 t102 = 0.062182*t75*t82-0.03109*t98*t101;
1404 t103 = t84*t86*t87*t93*t102;
1405 t104 = 1/pow(t72,1.666666666666667);
1406 t105 = 1/pow(t72,1.333333333333333);
1407 t106 = 1/pow(t77,5.0);
1408 t107 = -1.26595*t10*t11*t3*t76*t78-0.40955*t5*t3*t76*
1409 t106-1.195866666666667*t1*t2*t4*t105-.3286266666666666*t12*
1410 t13*t15*t104;
1411 t108 = 1/pow(t80,2.0);
1412 t109 = 1/t81;
1413 t110 = .9999999999999999*t75*t107*t108*t109;
1414 t111 = -1.726166666666666*t10*t11*t3*t76*t78-0.220065*
1415 t5*t3*t76*t106-1.2077*t1*t2*t4*t105-0.33114*t12*t13*t15*t104;
1416 t112 = 1/
1417 pow(t94,2.0);
1418 t113 = 1/t95;
1419 t114 = -.5848223397455204*t84*t88*t89*t93*t111*t112*t113;
1420 t115 = .004429431133333333*
1421 t1*t2*t4*t105*t82;
1422 t116 = 1/pow(t72,2.0);
1423 t117 = t85*t116;
1424 t118 = -1.0*t90;
1425 t119 = t118+t117;
1426 t120 = pow(t91,.3333333333333333);
1427 t121 = -1.0*t116*t85;
1428 t122 = t90+t121;
1429 t123 = pow(t92,.3333333333333333);
1430 t124 = 1.333333333333333*t122*t123+1.333333333333333*
1431 t119*t120;
1432 t125 = .01975178970256521*t84*t88*t89*t124*t96;
1433 t126 = -7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t93*
1434 t96;
1435 t127 = 1/pow(t72,5.0);
1436 t128 = 4.0*t127*t86;
1437 t129 = pow(t85,3.0);
1438 t130 = t128-4.0*t129*t87;
1439 t131 = .01975178970256521*t84*t130*t89*t93*t96;
1440 t132 = -2.35315*t10*t11*t3*t76*t78-0.84155*t5*t3*t76*
1441 t106-2.0659*t1*t2*t4*t105-0.41678*t12*t13*t15*t104;
1442 t133 = 1/pow(t99,2.0);
1443 t134 = 1/t100;
1444 t135 = .002129457733333333*t1*t2*t4*t105*t101-.004429431133333333*
1445 t1*t2*t4*t105*t82+1.0*t98*t132*t133*t134-.9999999999999999*
1446 t75*t107*t108*t109;
1447 t136 = t84*t86*t87*t93*t135;
1448 t137 = t84*t86*t87*t124*t102;
1449 t138 = -4.0*t102*t127*t84*t86*t93;
1450 t139 = -1.0*t51*t56*t35*t57*rhoa+t97+t72*(4.0*t102*t129*
1451 t84*t87*t93+t138+t137+t136+t131+t126+t125+t115+t114+t110)+
1452 t83+0.03109*t20*t35-.002129457733333333*t1*t2*t4*t20*t17+t103;
1453 t140 = 1/
1454 pow(t64,5.0);
1455 t141 = -0.03651728*t22*t49*t70+0.00152018208*t22*t49*
1456 t62*t69-1.9368518399999998E-5*t22*t49*t68*t67+9.131740416E-8*
1457 t22*t49*t66*t65-1.3167069696E-10*t22*t49*t63*t140;
1458 t142 = pow(rhob,.3333333333333333);
1459 t143 = sqrt(t3*t142);
1460 t144 = 1/pow(t143,3.0);
1461 t145 = 1/pow(rhob,.6666666666666666);
1462 t146 = 1/t142;
1463 t147 = 6.1977*t1*t2*t4*t146+0.62517*t12*t13*t15*t145+
1464 1.6831*t5*t144+14.1189*t10*t11/t143;
1465 t148 = 32.1646831778707/t147+1.0;
1466 t149 = log(t148);
1467 t150 = 0.20548*t1*t2*t4*t146+1.0;
1468 t151 = t72*(t103+t97+t83)+0.03109*t149*t150*rhob+0.03109*
1469 t20*t35*rhoa;
1470 t152 = pow(gradb,8.0);
1471 t153 = 0.2*t60*t61+1.0;
1472 t154 = 1/pow(t153,4.0);
1473 t155 = 1/pow(rhob,10.66666666666667);
1474 t156 = pow(gradb,6.0);
1475 t157 = 1/pow(t153,3.0);
1476 t158 = 1/pow(rhob,8.0);
1477 t159 = pow(gradb,4.0);
1478 t160 = 1/pow(t153,2.0);
1479 t161 = 1/pow(rhob,5.333333333333333);
1480 t162 = 1/t153;
1481 t163 = 0.00637686*t60*t162*t61-.07140480000000002*t159*
1482 t160*t161+0.0191836*t156*t157*t158-.001403054400000001*t152*
1483 t154*t155+2.82414;
1484 t164 = 0.004*t60*t61+1.0;
1485 t165 = 1/pow(t164,4.0);
1486 t166 = 1/pow(t164,3.0);
1487 t167 = 1/pow(t164,2.0);
1488 t168 = 1/t164;
1489 t169 = -0.001443124*t60*t168*t61+5.631904E-5*t159*t167*
1490 t161-3.1740416000000005E-7*t156*t166*t158+6.173823999999999E-10*
1491 t152*t165*t155+1.03161;
1492 t170 = pow(gradb,10.0);
1493 t171 = 1/pow(t153,5.0);
1494 t172 = 1/pow(rhob,14.33333333333333);
1495 t173 = 1/pow(rhob,11.66666666666667);
1496 t174 = 1/pow(rhob,9.0);
1497 t175 = 1/pow(rhob,6.333333333333333);
1498 t176 = 1/pow(rhob,3.666666666666667);
1499 t177 = -0.01700496*t60*t162*t176+.3842265920000001*t159*
1500 t160*t175-0.22963392*t156*t157*t174+.04565967360000001*t152*
1501 t154*t173-.002993182720000002*t170*t171*t172;
1502 t178 = 1/t148;
1503 t179 = 1/pow(rhob,1.666666666666667);
1504 t180 = pow(rhob,1.333333333333333);
1505 t181 = 1/t180;
1506 t182 = 1/pow(t143,5.0);
1507 t183 = -2.35315*t10*t11*t3*t144*t145-0.84155*t5*t3*t182*
1508 t145-2.0659*t1*t2*t4*t181-0.41678*t12*t13*t15*t179;
1509 t184 = 1/pow(t147,2.0);
1510 t185 = 1/pow(t164,5.0);
1511 t186 = .003848330666666667*t60*t168*t176-3.1576153599999995E-4*
1512 t159*t167*t175+3.740706133333333E-6*t156*t166*t174-1.6742345386666668E-8*
1513 t152*t165*t173+2.634164906666666E-11*t170*t185*t172;
1514 t187 = t90+t117;
1515 t188 = t118+t121;
1516 t189 = 1.333333333333333*t123*t188+1.333333333333333*
1517 t120*t187;
1518 t190 = .01975178970256521*t84*t88*t89*t189*t96;
1519 t191 = 4.0*t129*t87+t128;
1520 t192 = .01975178970256521*t84*t191*t89*t93*t96;
1521 t193 = t84*t86*t87*t189*t102;
1522 t194 = -1.0*t178*t183*t150*t184*rhob+t97+t72*(-4.0*t102*
1523 t129*t84*t87*t93+t193+t192+t190+t138+t136+t126+t115+t114+t110)+
1524 t83+0.03109*t149*t150-.002129457733333333*t1*t2*t4*t149*t146+
1525 t103;
1526 t195 = -0.03651728*t60*t70*t176+0.00152018208*t60*t62*
1527 t69*t176-1.9368518399999998E-5*t60*t68*t67*t176+9.131740416E-8*
1528 t60*t66*t65*t176-1.3167069696E-10*t60*t63*t140*t176;
1529 t196 = pow(grada,9.0);
1530 t197 = 1/pow(rhoa,13.33333333333333);
1531 t198 = pow(grada,7.0);
1532 t199 = pow(grada,5.0);
1533 t200 = pow(grada,3.0);
1534 t201 = 0.01275372*grada*t33*t23-.2881699440000001*t200*
1535 t31*t32+0.17222544*t199*t28*t29-.03424475520000001*t198*t25*
1536 t26+.002244887040000001*t196*t44*t197;
1537 t202 = -0.002886248*grada*t41*t23+2.3682115199999998E-4*
1538 t200*t40*t32-2.8055296E-6*t199*t39*t29+1.255675904E-8*t198*
1539 t38*t26-1.97562368E-11*t196*t58*t197;
1540 t203 = 0.02738796*grada*t23*t70-0.00114013656*grada*t23*
1541 t62*t69+1.45263888E-5*grada*t23*t68*t67-6.848805312000001E-8*
1542 grada*t23*t66*t65+9.875302271999999E-11*grada*t23*t63*t140;
1543 t204 = pow(gradb,
1544 9.0);
1545 t205 = 1/pow(rhob,13.33333333333333);
1546 t206 = pow(gradb,7.0);
1547 t207 = pow(gradb,5.0);
1548 t208 = pow(gradb,3.0);
1549 t209 = 0.01275372*gradb*t162*t61-.2881699440000001*t208*
1550 t160*t161+0.17222544*t207*t157*t158-.03424475520000001*t206*
1551 t154*t155+.002244887040000001*t204*t171*t205;
1552 t210 = -0.002886248*gradb*t168*t61+2.3682115199999998E-4*
1553 t208*t167*t161-2.8055296E-6*t207*t166*t158+1.255675904E-8*
1554 t206*t165*t155-1.97562368E-11*t204*t185*t205;
1555 t211 = 0.02738796*gradb*t70*t61-0.00114013656*gradb*t62*
1556 t69*t61+1.45263888E-5*gradb*t68*t67*t61-6.848805312000001E-8*
1557 gradb*t66*t65*t61+9.875302271999999E-11*gradb*t63*t140*t61;
1558 t212 = pow(grada,
1559 12.0);
1560 t213 = 1/pow(t24,6.0);
1561 t214 = 1/pow(rhoa,18.0);
1562 t215 = 1/pow(rhoa,15.33333333333333);
1563 t216 = 1/pow(rhoa,12.66666666666667);
1564 t217 = 1/pow(rhoa,10.0);
1565 t218 = 1/pow(rhoa,7.333333333333333);
1566 t219 = 1/pow(rhoa,4.666666666666667);
1567 t220 = .06235151999999999*t22*t33*t219-2.442504394666667*
1568 t30*t31*t218+2.476546978133334*t27*t28*t217-.9001104640000002*
1569 t21*t25*t216+.1403095893333334*t43*t44*t215-0.00798182058666667*
1570 t212*t213*t214;
1571 t221 = 1/pow(t19,2.0);
1572 t222 = pow(t56,2.0);
1573 t223 = 1/pow(t18,4.0);
1574 t224 = 1/pow(t18,3.0);
1575 t225 = 1/pow(rhoa,2.333333333333333);
1576 t226 = 1/pow(t7,7.0);
1577 t227 = 1.176575*t10*t11*t14*t55*t54+.7012916666666668*
1578 t5*t14*t226*t54+1.568766666666666*t10*t11*t3*t8*t52+.5610333333333333*
1579 t5*t3*t55*t52+2.754533333333333*t1*t2*t4*t225+.6946333333333333*
1580 t12*t13*t15*t23;
1581 t228 = 1/pow(t37,6.0);
1582 t229 = -.01411054577777778*t22*t41*t219+.002040871921777777*
1583 t30*t40*t218-4.040260130133333E-5*t27*t39*t217+3.1502995911111115E-7*
1584 t21*t38*t216-1.0919037064533334E-9*t43*t58*t215+1.404887950222222E-12*
1585 t212*t228*t214;
1586 t230 = 2.0*t75*t107*t108*t109;
1587 t231 = -1.169644679491041*t84*t88*t89*t93*t111*t112*t113;
1588 t232 = .008858862266666667*
1589 t1*t2*t4*t105*t82;
1590 t233 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t93*
1591 t96;
1592 t234 = 2.0*t135*t84*t86*t87*t93;
1593 t235 = -8.0*t102*t127*t84*t86*t93;
1594 t236 = pow(t107,2.0);
1595 t237 = 1/pow(t80,4.0);
1596 t238 = 1/pow(t81,2.0);
1597 t239 = 16.0818243221511*t75*t236*t237*t238;
1598 t240 = 1/pow(t80,3.0);
1599 t241 = -2.0*t75*t236*t240*t109;
1600 t242 = 1/pow(t72,2.666666666666667);
1601 t243 = 1/pow(t72,2.333333333333333);
1602 t244 = 1/pow(t77,7.0);
1603 t245 = .8439666666666665*t10*t11*t3*t104*t78+0.632975*
1604 t10*t11*t14*t105*t106+.2730333333333334*t5*t3*t104*t106+.3412916666666667*
1605 t5*t14*t105*t244+1.594488888888889*t1*t2*t4*t243+0.547711111111111*
1606 t12*t13*t15*t242;
1607 t246 = .9999999999999999*t75*t245*t108*t109;
1608 t247 = -.1424666666666666*t1*t2*t4*t105*t107*t108*t109;
1609 t248 = pow(t111,
1610 2.0);
1611 t249 = 1/pow(t94,4.0);
1612 t250 = 1/pow(t95,2.0);
1613 t251 = -17.31575589937587*t84*t88*t89*t93*t248*t249*t250;
1614 t252 = 1/
1615 pow(t94,3.0);
1616 t253 = 1.169644679491041*t84*t88*t89*t93*t248*t252*t113;
1617 t254 = 1.150777777777777*
1618 t10*t11*t3*t104*t78+.8630833333333332*t10*t11*t14*t105*t106+
1619 0.14671*t5*t3*t104*t106+0.1833875*t5*t14*t105*t244+1.610266666666667*
1620 t1*t2*t4*t243+.5519000000000001*t12*t13*t15*t242;
1621 t255 = -.5848223397455204*t84*t88*t89*t93*t254*t112*t113;
1622 t256 = -
1623 1.169644679491041*t84*t88*t89*t124*t111*t112*t113;
1624 t257 = .04337432353112609*t84*t1*t2*t4*t105*t88*t93*t111*
1625 t112*t113;
1626 t258 = -1.169644679491041*t84*t130*t89*t93*t111*t112*
1627 t113;
1628 t259 = -.005905908177777777*t1*t2*t4*t243*t82;
1629 t260 = pow(t119,2.0);
1630 t261 = 1/pow(t91,.6666666666666666);
1631 t262 = 1/pow(t72,3.0);
1632 t263 = -2.0*t262*t85;
1633 t264 = 2.0*t116;
1634 t265 = t264+t263;
1635 t266 = pow(t122,2.0);
1636 t267 = 1/pow(t92,.6666666666666666);
1637 t268 = 2.0*t262*t85;
1638 t269 = -2.0*t116;
1639 t270 = t269+t268;
1640 t271 = 1.333333333333333*t123*t270+.4444444444444444*
1641 t266*t267+1.333333333333333*t120*t265+.4444444444444444*t260*
1642 t261;
1643 t272 = .01975178970256521*t84*t88*t89*t271*t96;
1644 t273 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t124*
1645 t96;
1646 t274 = .03950357940513041*t84*t130*t89*t124*t96;
1647 t275 = -.001464924402940253*t84*t1*t2*t4*t105*t130*t93*
1648 t96;
1649 t276 = 9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t93*
1650 t96;
1651 t277 = 1/pow(t72,6.0);
1652 t278 = -20.0*t277*t86;
1653 t279 = pow(t85,2.0);
1654 t280 = -12.0*t279*t87;
1655 t281 = t280+t278+32.0*t127*t129;
1656 t282 = .01975178970256521*t84*t281*t89*t93*t96;
1657 t283 = pow(t132,2.0);
1658 t284 = 1/pow(t99,4.0);
1659 t285 = 1/pow(t100,2.0);
1660 t286 = 1/pow(t99,3.0);
1661 t287 = 1.568766666666666*t10*t11*t3*t104*t78+1.176575*
1662 t10*t11*t14*t105*t106+.5610333333333333*t5*t3*t104*t106+.7012916666666668*
1663 t5*t14*t105*t244+2.754533333333333*t1*t2*t4*t243+.6946333333333333*
1664 t12*t13*t15*t242;
1665 t288 = -.002839276977777777*t1*t2*t4*t243*t101+.005905908177777777*
1666 t1*t2*t4*t243*t82-.1369866666666666*t1*t2*t4*t105*t132*t133*
1667 t134+1.0*t98*t287*t133*t134-2.0*t98*t283*t286*t134+32.1646831778707*
1668 t98*t283*t284*t285+.1424666666666666*t1*t2*t4*t105*t107*t108*
1669 t109-.9999999999999999*t75*t245*t108*t109+2.0*t75*t236*t240*
1670 t109-16.0818243221511*t75*t236*t237*t238;
1671 t289 = t84*t86*t87*t93*t288;
1672 t290 = 2.0*t124*t135*t84*t86*t87;
1673 t291 = -8.0*t127*t135*t84*t86*t93;
1674 t292 = 8.0*t129*t135*t84*t87*t93;
1675 t293 = t84*t86*t87*t271*t102;
1676 t294 = -8.0*t102*t124*t127*t84*t86;
1677 t295 = 20.0*t102*t277*t84*t86*t93;
1678 t296 = -32.0*t102*t127*t129*t84*t93;
1679 t297 = 12.0*t102*t279*t84*t87*t93;
1680 t298 = -1.0*t51*t227*t35*t57*rhoa+2.0*t51*t222*t35*t224*
1681 rhoa-32.1646831778707*t221*t222*t35*t223*rhoa+.03950357940513041*
1682 t84*t130*t89*t93*t96+.03950357940513041*t84*t88*t89*t124*t96+
1683 8.0*t102*t129*t84*t87*t93+t72*(8.0*t102*t124*t129*t84*t87+
1684 t297+t296+t295+t294+t293+t292+t291+t290+t289+t282+t276+t275+
1685 t274+t273+t272+t259+t258+t257+t256+t255+t253+t251+t247+t246+
1686 t241+t239)+2.0*t102*t124*t84*t86*t87-2.0*t51*t56*t35*t57-.001419638488888889*
1687 t1*t2*t4*t20*t54+t235+t234+t233+t232+t231+t230+.1369866666666666*
1688 t1*t2*t4*t51*t56*t57*t17;
1689 t299 = 1/pow(t64,6.0);
1690 t300 = .1338966933333333*t22*t219*t70-.005574000959999999*
1691 t22*t219*t62*t69-.002319047679999999*t30*t218*t69+7.101790079999999E-5*
1692 t22*t219*t68*t67+7.597229567999998E-5*t30*t218*t62*t67-3.3483048192000003E-7*
1693 t22*t219*t66*t65-8.301140582400001E-7*t30*t218*t68*t65+4.8279255552E-10*
1694 t22*t219*t63*t140+3.62440065024E-9*t30*t218*t66*t140-5.2668278784E-12*
1695 t30*t218*t63*t299;
1696 t301 = 2.666666666666667*t123*t262*t85-2.666666666666667*
1697 t120*t262*t85+.4444444444444444*t122*t188*t267+.4444444444444444*
1698 t119*t187*t261;
1699 t302 = 12.0*t279*t87+t278;
1700 t303 = -12.0*t102*t279*t84*t87*t93;
1701 t304 = t72*(.01975178970256521*t84*t302*t89*t93*t96-7.324622014701263E-4*
1702 t84*t1*t2*t4*t105*t191*t93*t96-7.324622014701263E-4*t84*t1*
1703 t2*t4*t105*t130*t93*t96+.01975178970256521*t84*t88*t89*t301*
1704 t96+.01975178970256521*t84*t130*t89*t189*t96-7.324622014701263E-4*
1705 t84*t1*t2*t4*t105*t88*t189*t96+.01975178970256521*t84*t191*
1706 t89*t124*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t124*
1707 t96+4.0*t102*t129*t189*t84*t87-4.0*t102*t124*t129*t84*t87-
1708 4.0*t102*t127*t189*t84*t86-4.0*t102*t124*t127*t84*t86+t303+
1709 t295+t291+t289+t276+t259+t257+t255+t253+t251+t247+t246+t241+
1710 t239+t84*t86*t87*t189*t135+t84*t86*t87*t124*t135-.5848223397455204*
1711 t84*t191*t89*t93*t111*t112*t113-.5848223397455204*t84*t130*
1712 t89*t93*t111*t112*t113-.5848223397455204*t84*t88*t89*t189*
1713 t111*t112*t113-.5848223397455204*t84*t88*t89*t124*t111*t112*
1714 t113+t84*t86*t87*t301*t102)+t235+t234+t233+t232+t231+t230+
1715 t193+t192+t190+t137+t131+t125;
1716 t305 = -.002319047679999999*t22*t60*t49*t69*t176+7.597229567999998E-5*
1717 t22*t60*t49*t62*t67*t176-8.301140582400001E-7*t22*t60*t49*
1718 t68*t65*t176+3.62440065024E-9*t22*t60*t49*t66*t140*t176-5.2668278784E-12*
1719 t22*t60*t49*t63*t299*t176;
1720 t306 = pow(grada,11.0);
1721 t307 = 1/pow(rhoa,17.0);
1722 t308 = -0.03400992*grada*t33*t49+1.543708352*t200*t31*
1723 t48-1.6851847936*t199*t28*t47+.6408380928000001*t198*t25*t46-
1724 0.10298730496*t196*t44*t45+.005986365440000003*t306*t213*t307;
1725 t309 = .007696661333333334*
1726 grada*t41*t49-.001293832789333333*t200*t40*t48+2.7496421375999996E-5*
1727 t199*t39*t47-2.2371571029333337E-7*t198*t38*t46+7.991715430399999E-10*
1728 t196*t58*t45-1.053665962666667E-12*t306*t228*t307;
1729 t310 = -0.07303456*grada*t49*t70+0.00304036416*grada*
1730 t49*t62*t69+0.00173928576*t200*t48*t69-3.8737036799999996E-5*
1731 grada*t49*t68*t67-5.697922176E-5*t200*t48*t62*t67+1.8263480832E-7*
1732 grada*t49*t66*t65+6.225855436800002E-7*t200*t48*t68*t65-2.6334139392E-10*
1733 grada*t49*t63*t140-2.7183004876800004E-9*t200*t48*t66*t140+
1734 3.9501209088E-12*t200*t48*t63*t299;
1735 t311 = 0.00173928576*t22*gradb*t49*t69*t61-5.697922176E-5*
1736 t22*gradb*t49*t62*t67*t61+6.225855436800002E-7*t22*gradb*t49*
1737 t68*t65*t61-2.7183004876800004E-9*t22*gradb*t49*t66*t140*t61+
1738 3.9501209088E-12*t22*gradb*t49*t63*t299*t61;
1739 t312 = pow(gradb,12.0);
1740 t313 = 1/pow(t153,6.0);
1741 t314 = 1/pow(rhob,18.0);
1742 t315 = 1/pow(rhob,15.33333333333333);
1743 t316 = 1/pow(rhob,12.66666666666667);
1744 t317 = 1/pow(rhob,10.0);
1745 t318 = 1/pow(rhob,7.333333333333333);
1746 t319 = 1/pow(rhob,4.666666666666667);
1747 t320 = .06235151999999999*t60*t162*t319-2.442504394666667*
1748 t159*t160*t318+2.476546978133334*t156*t157*t317-.9001104640000002*
1749 t152*t154*t316+.1403095893333334*t170*t171*t315-0.00798182058666667*
1750 t312*t313*t314;
1751 t321 = 1/pow(t148,2.0);
1752 t322 = pow(t183,2.0);
1753 t323 = 1/pow(t147,4.0);
1754 t324 = 1/pow(t147,3.0);
1755 t325 = 1/pow(rhob,2.333333333333333);
1756 t326 = 1/pow(t143,7.0);
1757 t327 = 1.176575*t10*t11*t14*t182*t181+.7012916666666668*
1758 t5*t14*t326*t181+1.568766666666666*t10*t11*t3*t144*t179+.5610333333333333*
1759 t5*t3*t182*t179+2.754533333333333*t1*t2*t4*t325+.6946333333333333*
1760 t12*t13*t15*t61;
1761 t328 = 1/pow(t164,6.0);
1762 t329 = -.01411054577777778*t60*t168*t319+.002040871921777777*
1763 t159*t167*t318-4.040260130133333E-5*t156*t166*t317+3.1502995911111115E-7*
1764 t152*t165*t316-1.0919037064533334E-9*t170*t185*t315+1.404887950222222E-12*
1765 t312*t328*t314;
1766 t330 = -1.169644679491041*t84*t88*t89*t189*t111*t112*
1767 t113;
1768 t331 = -1.169644679491041*t84*t191*t89*t93*t111*t112*
1769 t113;
1770 t332 = pow(t187,2.0);
1771 t333 = t269+t263;
1772 t334 = pow(t188,2.0);
1773 t335 = t264+t268;
1774 t336 = 1.333333333333333*t123*t335+.4444444444444444*
1775 t267*t334+1.333333333333333*t120*t333+.4444444444444444*t261*
1776 t332;
1777 t337 = .01975178970256521*t84*t88*t89*t336*t96;
1778 t338 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t189*
1779 t96;
1780 t339 = .03950357940513041*t84*t191*t89*t189*t96;
1781 t340 = -.001464924402940253*t84*t1*t2*t4*t105*t191*t93*
1782 t96;
1783 t341 = t280+t278-32.0*t127*t129;
1784 t342 = .01975178970256521*t84*t341*t89*t93*t96;
1785 t343 = 2.0*t135*t189*t84*t86*t87;
1786 t344 = -8.0*t129*t135*t84*t87*t93;
1787 t345 = t84*t86*t87*t336*t102;
1788 t346 = -8.0*t102*t127*t189*t84*t86;
1789 t347 = 32.0*t102*t127*t129*t84*t93;
1790 t348 = 2.0*t178*t322*t150*t324*rhob-32.1646831778707*
1791 t321*t322*t150*t323*rhob-1.0*t178*t327*t150*t184*rhob+.03950357940513041*
1792 t84*t191*t89*t93*t96+.03950357940513041*t84*t88*t89*t189*t96-
1793 8.0*t102*t129*t84*t87*t93+t72*(-8.0*t102*t129*t189*t84*t87+
1794 t347+t346+t345+t344+t343+t342+t340+t339+t338+t337+t331+t330+
1795 t297+t295+t291+t289+t276+t259+t257+t255+t253+t251+t247+t246+
1796 t241+t239)+2.0*t102*t189*t84*t86*t87+t235+t234+t233+t232+t231+
1797 t230-2.0*t178*t183*t150*t184-.001419638488888889*t1*t2*t4*
1798 t149*t181+.1369866666666666*t1*t2*t4*t178*t183*t184*t146;
1799 t349 = .1338966933333333*
1800 t60*t70*t319-.005574000959999999*t60*t62*t69*t319+7.101790079999999E-5*
1801 t60*t68*t67*t319-3.3483048192000003E-7*t60*t66*t65*t319+4.8279255552E-10*
1802 t60*t63*t140*t319-.002319047679999999*t159*t69*t318+7.597229567999998E-5*
1803 t159*t62*t67*t318-8.301140582400001E-7*t159*t68*t65*t318+3.62440065024E-9*
1804 t159*t66*t140*t318-5.2668278784E-12*t159*t63*t299*t318;
1805 t350 = 0.00173928576*grada*t60*t23*t69*t176-5.697922176E-5*
1806 grada*t60*t23*t62*t67*t176+6.225855436800002E-7*grada*t60*
1807 t23*t68*t65*t176-2.7183004876800004E-9*grada*t60*t23*t66*t140*
1808 t176+3.9501209088E-12*grada*t60*t23*t63*t299*t176;
1809 t351 = pow(gradb,11.0);
1810 t352 = 1/pow(rhob,17.0);
1811 t353 = -0.03400992*gradb*t162*t176+1.543708352*t208*t160*
1812 t175-1.6851847936*t207*t157*t174+.6408380928000001*t206*t154*
1813 t173-0.10298730496*t204*t171*t172+.005986365440000003*t351*
1814 t313*t352;
1815 t354 = .007696661333333334*gradb*t168*t176-.001293832789333333*
1816 t208*t167*t175+2.7496421375999996E-5*t207*t166*t174-2.2371571029333337E-7*
1817 t206*t165*t173+7.991715430399999E-10*t204*t185*t172-1.053665962666667E-12*
1818 t351*t328*t352;
1819 t355 = -0.07303456*gradb*t70*t176+0.00304036416*gradb*
1820 t62*t69*t176-3.8737036799999996E-5*gradb*t68*t67*t176+1.8263480832E-7*
1821 gradb*t66*t65*t176-2.6334139392E-10*gradb*t63*t140*t176+0.00173928576*
1822 t208*t69*t175-5.697922176E-5*t208*t62*t67*t175+6.225855436800002E-7*
1823 t208*t68*t65*t175-2.7183004876800004E-9*t208*t66*t140*t175+
1824 3.9501209088E-12*t208*t63*t299*t175;
1825 t356 = 1/pow(rhoa,16.0);
1826 t357 = 0.01275372*t33*t23-.8696113200000002*t22*t31*t32+
1827 1.0916631552*t30*t28*t29-.4463838144000002*t27*t25*t26+.07499559168000003*
1828 t21*t44*t197-.004489774080000002*t43*t213*t356;
1829 t358 = -0.002886248*t41*t23+7.335534399999999E-4*t22*
1830 t40*t32-1.7816786431999998E-5*t30*t39*t29+1.5523002368000002E-7*
1831 t27*t38*t26-5.7962242048E-10*t21*t58*t197+7.90249472E-13*t43*
1832 t228*t356;
1833 t359 = 0.02738796*t23*t70-0.00114013656*t23*t62*t69-0.00130446432*
1834 t22*t32*t69+1.45263888E-5*t23*t68*t67+4.2734416319999996E-5*
1835 t22*t32*t62*t67-6.848805312000001E-8*t23*t66*t65-4.669391577600001E-7*
1836 t22*t32*t68*t65+9.875302271999999E-11*t23*t63*t140+2.0387253657600002E-9*
1837 t22*t32*t66*t140-2.962590681600001E-12*t22*t32*t63*t299;
1838 t360 = -
1839 0.00130446432*grada*gradb*t23*t69*t61+4.2734416319999996E-5*
1840 grada*gradb*t23*t62*t67*t61-4.669391577600001E-7*grada*gradb*
1841 t23*t68*t65*t61+2.0387253657600002E-9*grada*gradb*t23*t66*
1842 t140*t61-2.962590681600001E-12*grada*gradb*t23*t63*t299*t61;
1843 t361 = 1/
1844 pow(rhob,16.0);
1845 t362 = 0.01275372*t162*t61-.8696113200000002*t60*t160*
1846 t161+1.0916631552*t159*t157*t158-.4463838144000002*t156*t154*
1847 t155+.07499559168000003*t152*t171*t205-.004489774080000002*
1848 t170*t313*t361;
1849 t363 = -0.002886248*t168*t61+7.335534399999999E-4*t60*
1850 t167*t161-1.7816786431999998E-5*t159*t166*t158+1.5523002368000002E-7*
1851 t156*t165*t155-5.7962242048E-10*t152*t185*t205+7.90249472E-13*
1852 t170*t328*t361;
1853 t364 = 0.02738796*t70*t61-0.00114013656*t62*t69*t61+1.45263888E-5*
1854 t68*t67*t61-6.848805312000001E-8*t66*t65*t61+9.875302271999999E-11*
1855 t63*t140*t61-0.00130446432*t60*t69*t161+4.2734416319999996E-5*
1856 t60*t62*t67*t161-4.669391577600001E-7*t60*t68*t65*t161+2.0387253657600002E-9*
1857 t60*t66*t140*t161-2.962590681600001E-12*t60*t63*t299*t161;
1858 t365 = pow(grada,
1859 14.0);
1860 t366 = 1/pow(t24,7.0);
1861 t367 = 1/pow(rhoa,21.66666666666667);
1862 t368 = 1/pow(rhoa,19.0);
1863 t369 = 1/pow(rhoa,16.33333333333333);
1864 t370 = 1/pow(rhoa,13.66666666666667);
1865 t371 = 1/pow(rhoa,11.0);
1866 t372 = 1/pow(rhoa,8.333333333333334);
1867 t373 = 1/pow(rhoa,5.666666666666667);
1868 t374 = 1/pow(t19,3.0);
1869 t375 = pow(t56,3.0);
1870 t376 = 1/pow(t18,6.0);
1871 t377 = 1/pow(t18,5.0);
1872 t378 = 1/pow(rhoa,2.0);
1873 t379 = -6.427244444444445*t1*t2*t4/pow(rhoa,3.333333333333333)-
1874 .8181736111111113*t378*t5*M_PI/pow(t7,9.0)-1.852355555555556*
1875 t12*t13*t15*t49-.9804791666666667*t10*t11*M_PI*t226*t378-2.614611111111111*
1876 t10*t11*t3*t8*t23-.9350555555555555*t5*t3*t55*t23-2.35315*
1877 t10*t11*t14*t55*t225-1.402583333333333*t5*t14*t226*t225;
1878 t380 = 1/
1879 pow(t37,7.0);
1880 t381 = 48.2454729664533*t75*t236*t237*t238;
1881 t382 = -6.0*t75*t236*t240*t109;
1882 t383 = 3.0*t75*t245*t108*t109;
1883 t384 = -.4273999999999999*t1*t2*t4*t105*t107*t108*t109;
1884 t385 = -
1885 51.9472676981276*t84*t88*t89*t93*t248*t249*t250;
1886 t386 = 3.508934038473122*t84*t88*t89*t93*t248*t252*t113;
1887 t387 = -
1888 1.754467019236561*t84*t88*t89*t93*t254*t112*t113;
1889 t388 = .1301229705933783*t84*t1*t2*t4*t105*t88*t93*t111*
1890 t112*t113;
1891 t389 = -.01771772453333333*t1*t2*t4*t243*t82;
1892 t390 = .002929848805880505*t84*t1*t2*t4*t243*t88*t93*
1893 t96;
1894 t391 = 3.0*t288*t84*t86*t87*t93;
1895 t392 = -24.0*t127*t135*t84*t86*t93;
1896 t393 = 60.0*t102*t277*t84*t86*t93;
1897 t394 = 36.0*t102*t279*t84*t87*t93;
1898 t395 = pow(t107,3.0);
1899 t396 = 1/pow(t80,6.0);
1900 t397 = 1/pow(t81,3.0);
1901 t398 = 517.2501470570614*t75*t395*t396*t397;
1902 t399 = 1/pow(t80,5.0);
1903 t400 = -96.4909459329066*t75*t395*t399*t238;
1904 t401 = 48.2454729664533*t75*t245*t107*t237*t238;
1905 t402 = -3.43668585764369*t1*t2*t4*t105*t236*t237*t238;
1906 t403 = 6.0*
1907 t75*t395*t237*t109;
1908 t404 = -6.0*t75*t245*t107*t240*t109;
1909 t405 = .4273999999999999*t1*t2*t4*t105*t236*t240*t109;
1910 t406 = 1/
1911 pow(t72,3.666666666666667);
1912 t407 = 1/pow(t72,3.333333333333333);
1913 t408 = 1/pow(t77,9.0);
1914 t409 = -1.406611111111111*t10*t11*t3*t242*t78-1.26595*
1915 t10*t11*t14*t243*t106-.4550555555555556*t5*t3*t242*t106-.5274791666666666*
1916 t10*t11*M_PI*t116*t244-.6825833333333334*t5*t14*t243*t244-.3981736111111112*
1917 t5*M_PI*t116*t408-3.720474074074074*t1*t2*t4*t407-1.460562962962963*
1918 t12*t13*t15*t406;
1919 t410 = .9999999999999999*t75*t409*t108*t109;
1920 t411 = -0.2137*t1*t2*t4*t105*t245*t108*t109;
1921 t412 = .2849333333333333*t1*t2*t4*t243*t107*t108*t109;
1922 t413 = pow(t111,
1923 3.0);
1924 t414 = -1025.38970210078*t413*t84*t88*t89*t93/(pow(t94,
1925 6.0)*pow(t95,3.0));
1926 t415 = 103.8945353962552*t250*t413*t84*t88*t89*t93/pow(t94,
1927 5.0);
1928 t416 = -51.9472676981276*t84*t88*t89*t93*t254*t111*t249*
1929 t250;
1930 t417 = 1.926377843805565*t84*t1*t2*t4*t105*t88*t93*t248*
1931 t249*t250;
1932 t418 = -3.508934038473122*t84*t88*t89*t93*t413*t249*t113;
1933 t419 = 3.508934038473122*
1934 t84*t88*t89*t93*t254*t111*t252*t113;
1935 t420 = -.1301229705933783*t84*t1*t2*t4*t105*t88*t93*t248*
1936 t252*t113;
1937 t421 = -.5848223397455204*t84*t88*t89*t93*(-1.917962962962962*
1938 t10*t11*t3*t242*t78-1.726166666666666*t10*t11*t14*t243*t106-
1939 .2445166666666667*t5*t3*t242*t106-.7192361111111111*t10*t11*
1940 M_PI*t116*t244-0.366775*t5*t14*t243*t244-.2139520833333333*
1941 t5*M_PI*t116*t408-3.757288888888889*t1*t2*t4*t407-1.471733333333333*
1942 t12*t13*t15*t406)*t112*t113;
1943 t422 = .06506148529668915*t84*t1*t2*t4*t105*t88*t93*t254*
1944 t112*t113;
1945 t423 = -.08674864706225219*t84*t1*t2*t4*t243*t88*t93*
1946 t111*t112*t113;
1947 t424 = .01378045241481481*t1*t2*t4*t407*t82;
1948 t425 = 1/pow(t91,1.666666666666667);
1949 t426 = 6.0*t85*t87;
1950 t427 = -6.0*t262;
1951 t428 = 1/pow(t92,1.666666666666667);
1952 t429 = -6.0*t85*t87;
1953 t430 = 6.0*t262;
1954 t431 = 1.333333333333333*t123*(t430+t429)-.2962962962962963*
1955 pow(t122,3.0)*t428+1.333333333333333*t120*(t427+t426)-.2962962962962963*
1956 pow(t119,3.0)*t425+1.333333333333333*t122*t267*t270+1.333333333333333*
1957 t119*t261*t265;
1958 t432 = -.002278771293462615*t84*t1*t2*t4*t407*t88*t93*
1959 t96;
1960 t433 = 1/pow(t72,7.0);
1961 t434 = 120.0*t433*t86;
1962 t435 = 144.0*t127*t279;
1963 t436 = -24.0*t85*t87;
1964 t437 = pow(t132,3.0);
1965 t438 = t84*t86*t87*t93*(2069.133687865597*t437*t98/(pow(t100,
1966 3.0)*pow(t99,6.0))-192.9880990672242*t285*t437*t98/pow(t99,
1967 5.0)-.01378045241481481*t1*t2*t4*t407*t82-517.2501470570614*
1968 t75*t395*t396*t397-6.60919909938887*t1*t2*t4*t105*t283*t284*
1969 t285+96.4940495336121*t98*t287*t132*t284*t285+96.4909459329066*
1970 t75*t395*t399*t238+3.43668585764369*t1*t2*t4*t105*t236*t237*
1971 t238-48.2454729664533*t75*t245*t107*t237*t238+.4109599999999999*
1972 t1*t2*t4*t105*t283*t286*t134-6.0*t98*t287*t132*t286*t134+6.0*
1973 t98*t437*t284*t134+1.0*t98*(-2.614611111111111*t10*t11*t3*
1974 t242*t78-2.35315*t10*t11*t14*t243*t106-.9350555555555555*t5*
1975 t3*t242*t106-.9804791666666667*t10*t11*M_PI*t116*t244-1.402583333333333*
1976 t5*t14*t243*t244-.8181736111111113*t5*M_PI*t116*t408-6.427244444444445*
1977 t1*t2*t4*t407-1.852355555555556*t12*t13*t15*t406)*t133*t134-
1978 0.20548*t1*t2*t4*t105*t287*t133*t134+.2739733333333333*t1*
1979 t2*t4*t243*t132*t133*t134-.4273999999999999*t1*t2*t4*t105*
1980 t236*t240*t109+6.0*t75*t245*t107*t240*t109-6.0*t75*t395*t237*
1981 t109-.9999999999999999*t75*t409*t108*t109+0.2137*t1*t2*t4*
1982 t105*t245*t108*t109-.2849333333333333*t1*t2*t4*t243*t107*t108*
1983 t109+.006624979614814813*t1*t2*t4*t407*t101);
1984 t439 = -12.0*t127*t288*t84*t86*t93;
1985 t440 = 60.0*t135*t277*t84*t86*t93;
1986 t441 = 36.0*t135*t279*t84*t87*t93;
1987 t442 = -120.0*t102*t433*t84*t86*t93;
1988 t443 = -144.0*t102*t127*t279*t84*t93;
1989 t444 = 24.0*t102*t84*t85*t87*t93;
1990 t445 = 1/pow(t64,7.0);
1991 t446 = .03950357940513041*t84*t88*t89*t301*t96;
1992 t447 = .03950357940513041*t84*t130*t89*t189*t96;
1993 t448 = .03950357940513041*t84*t191*t89*t124*t96;
1994 t449 = .03950357940513041*t84*t302*t89*t93*t96;
1995 t450 = 2.0*t102*t301*t84*t86*t87;
1996 t451 = -1.169644679491041*t84*t88*t89*t301*t111*t112*
1997 t113;
1998 t452 = -1.169644679491041*t84*t130*t89*t189*t111*t112*
1999 t113;
2000 t453 = -1.169644679491041*t84*t191*t89*t124*t111*t112*
2001 t113;
2002 t454 = -1.169644679491041*t84*t302*t89*t93*t111*t112*
2003 t113;
2004 t455 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t301*
2005 t96;
2006 t456 = 1.777777777777778*t122*t262*t267*t85-1.777777777777778*
2007 t119*t261*t262*t85+1.333333333333333*t123*(t429+2.0*t262)-
2008 .2962962962962963*t188*t266*t428+1.333333333333333*t120*(t426-
2009 2.0*t262)-.2962962962962963*t187*t260*t425+.4444444444444444*
2010 t188*t267*t270+.4444444444444444*t187*t261*t265;
2011 t457 = -.001464924402940253*t84*t1*t2*t4*t105*t130*t189*
2012 t96;
2013 t458 = -.001464924402940253*t84*t1*t2*t4*t105*t191*t124*
2014 t96;
2015 t459 = -.001464924402940253*t84*t1*t2*t4*t105*t302*t93*
2016 t96;
2017 t460 = -48.0*t127*t279;
2018 t461 = 24.0*t85*t87;
2019 t462 = 2.0*t135*t301*t84*t86*t87;
2020 t463 = -12.0*t135*t279*t84*t87*t93;
2021 t464 = -8.0*t102*t127*t301*t84*t86;
2022 t465 = 48.0*t102*t127*t279*t84*t93;
2023 t466 = -24.0*t102*t84*t85*t87*t93;
2024 t467 = pow(grada,13.0);
2025 t468 = 1/pow(rhoa,20.66666666666667);
2026 t469 = -8.0*t123*t85*t87+8.0*t120*t85*t87+1.777777777777778*
2027 t188*t262*t267*t85-1.777777777777778*t187*t261*t262*t85-.2962962962962963*
2028 t122*t334*t428-.2962962962962963*t119*t332*t425+.4444444444444444*
2029 t122*t267*t335+.4444444444444444*t119*t261*t333-2.666666666666667*
2030 t123*t262+2.666666666666667*t120*t262;
2031 t470 = 1/pow(rhoa,19.66666666666667);
2032 t471 = pow(gradb,14.0);
2033 t472 = 1/pow(t153,7.0);
2034 t473 = 1/pow(rhob,21.66666666666667);
2035 t474 = 1/pow(rhob,19.0);
2036 t475 = 1/pow(rhob,16.33333333333333);
2037 t476 = 1/pow(rhob,13.66666666666667);
2038 t477 = 1/pow(rhob,11.0);
2039 t478 = 1/pow(rhob,8.333333333333334);
2040 t479 = 1/pow(rhob,5.666666666666667);
2041 t480 = 1/pow(t148,3.0);
2042 t481 = pow(t183,3.0);
2043 t482 = 1/pow(t147,6.0);
2044 t483 = 1/pow(t147,5.0);
2045 t484 = 1/pow(rhob,2.0);
2046 t485 = -6.427244444444445*t1*t2*t4/pow(rhob,3.333333333333333)-
2047 .8181736111111113*t484*t5*M_PI/pow(t143,9.0)-.9350555555555555*
2048 t5*t3*t182*t61-2.614611111111111*t10*t11*t3*t144*t61-.9804791666666667*
2049 t10*t11*M_PI*t326*t484-1.402583333333333*t5*t14*t326*t325-2.35315*
2050 t10*t11*t14*t182*t325-1.852355555555556*t12*t13*t15*t176;
2051 t486 = 1/
2052 pow(t164,7.0);
2053 t487 = 1.333333333333333*t120*(t430+t426)-.2962962962962963*
2054 pow(t188,3.0)*t428+1.333333333333333*t123*(t427+t429)-.2962962962962963*
2055 pow(t187,3.0)*t425+1.333333333333333*t188*t267*t335+1.333333333333333*
2056 t187*t261*t333;
2057 t488 = pow(gradb,13.0);
2058 t489 = 1/pow(rhob,20.66666666666667);
2059 t490 = 1/pow(rhob,19.66666666666667);
2060 t491 = 1/pow(rhoa,18.66666666666667);
2061 t492 = 1/pow(rhob,18.66666666666667);
2062
2063 /* code */
2064 dfdra = 1.0*t51*t34*t56*t35*t57*rhoa-0.03109*t20*t50*
2065 t35*rhoa-1.0*t36*t4*t42*t6-0.75*t36*t4*t53*t59-0.03109*t20*
2066 t34*t35+.002129457733333333*t1*t2*t4*t20*t34*t17+t141*t151+
2067 t71*t139;
2068 dfdrb = 1.0*t178*t163*t183*t150*t184*rhob-0.03109*t149*
2069 t177*t150*rhob-0.75*t180*t186*t36*t4-1.0*t142*t169*t36*t4+
2070 t71*t194+t195*t151-0.03109*t149*t163*t150+.002129457733333333*
2071 t1*t2*t4*t149*t163*t146;
2072 dfdga = -0.03109*t20*t201*t35*rhoa-0.75*t202*t36*t4*t53+
2073 t203*t151;
2074 dfdgb = -0.03109*t149*t209*t150*rhob-0.75*t180*t210*t36*
2075 t4+t211*t151;
2076 dfdgab = 0.0;
2077 d2fdrara = 2.0*t51*t50*t56*t35*t57*rhoa+1.0*t51*t34*t227*
2078 t35*t57*rhoa-0.03109*t20*t220*t35*rhoa-2.0*t51*t34*t222*t35*
2079 t224*rhoa+32.1646831778707*t221*t34*t222*t35*t223*rhoa-2.0*
2080 t36*t4*t59*t6+2.0*t51*t34*t56*t35*t57+.001419638488888889*
2081 t1*t2*t4*t20*t34*t54-0.75*t229*t36*t4*t53-.3333333333333333*
2082 t16*t36*t4*t42-0.06218*t20*t50*t35+t71*t298-.1369866666666666*
2083 t1*t2*t4*t51*t34*t56*t57*t17+.004258915466666666*t1*t2*t4*
2084 t20*t50*t17+t300*t151+2.0*t139*t141;
2085 d2fdrarb = t305*t151+t195*t139+t141*t194+t71*t304;
2086 d2fdraga = 1.0*t51*t201*t56*t35*t57*rhoa-0.03109*t20*
2087 t308*t35*rhoa-1.0*t202*t36*t4*t6-0.75*t309*t36*t4*t53-0.03109*
2088 t20*t201*t35+.002129457733333333*t1*t2*t4*t20*t201*t17+t310*
2089 t151+t203*t139;
2090 d2fdragb = t311*t151+t211*t139;
2091 d2fdraab = 0.0;
2092 d2fdrbrb = -2.0*t178*t163*t322*t150*t324*rhob+32.1646831778707*
2093 t321*t163*t322*t150*t323*rhob+1.0*t178*t163*t327*t150*t184*
2094 rhob+2.0*t178*t177*t183*t150*t184*rhob-0.03109*t149*t320*t150*
2095 rhob-0.75*t180*t329*t36*t4-2.0*t142*t186*t36*t4-.3333333333333333*
2096 t145*t169*t36*t4+t71*t348+2.0*t194*t195+2.0*t178*t163*t183*
2097 t150*t184+.001419638488888889*t1*t2*t4*t149*t163*t181+t349*
2098 t151-0.06218*t149*t177*t150-.1369866666666666*t1*t2*t4*t178*
2099 t163*t183*t184*t146+.004258915466666666*t1*t2*t4*t149*t177*
2100 t146;
2101 d2fdrbga = t350*t151+t203*t194;
2102 d2fdrbgb = 1.0*t178*t209*t183*t150*t184*rhob-0.03109*
2103 t149*t353*t150*rhob-0.75*t180*t354*t36*t4-1.0*t142*t210*t36*
2104 t4+t211*t194+t355*t151-0.03109*t149*t209*t150+.002129457733333333*
2105 t1*t2*t4*t149*t209*t146;
2106 d2fdrbgab = 0.0;
2107 d2fdgaga = -0.03109*t20*t357*t35*rhoa-0.75*t358*t36*t4*
2108 t53+t359*t151;
2109 d2fdgagb = t360*t151;
2110 d2fdgagab = 0.0;
2111 d2fdgbgb = -0.03109*t149*t362*t150*rhob-0.75*t180*t36*
2112 t363*t4+t364*t151;
2113 d2fdgbgab = 0.0;
2114 d2fdgabgab = 0.0;
2115 d3fdrarara = t71*(-1.0*t51*t379*t35*t57*rhoa+192.9880990672242*
2116 t221*t375*t35*t377*rhoa-2069.133687865597*t374*t375*t35*t376*
2117 rhoa+6.0*t51*t227*t56*t35*t224*rhoa-96.4940495336121*t221*
2118 t227*t56*t35*t223*rhoa-6.0*t51*t375*t35*t223*rhoa+t72*(.01975178970256521*
2119 (t436+t435+t434-240.0*t129*t277)*t84*t89*t93*t96-.002197386604410379*
2120 t84*t1*t2*t4*t105*t281*t93*t96+.002929848805880505*t84*t1*
2121 t2*t4*t243*t130*t93*t96+.01975178970256521*t84*t88*t89*t431*
2122 t96+.05925536910769562*t84*t130*t89*t271*t96-.002197386604410379*
2123 t84*t1*t2*t4*t105*t88*t271*t96+.05925536910769562*t84*t281*
2124 t89*t124*t96+.002929848805880505*t84*t1*t2*t4*t243*t88*t124*
2125 t96-.004394773208820758*t84*t1*t2*t4*t105*t130*t124*t96+12.0*
2126 t129*t288*t84*t87*t93+240.0*t102*t129*t277*t84*t93-96.0*t127*
2127 t129*t135*t84*t93+3.0*t124*t288*t84*t86*t87+3.0*t135*t271*
2128 t84*t86*t87+36.0*t102*t124*t279*t84*t87+12.0*t102*t129*t271*
2129 t84*t87+24.0*t124*t129*t135*t84*t87+60.0*t102*t124*t277*t84*
2130 t86-12.0*t102*t127*t271*t84*t86-24.0*t124*t127*t135*t84*t86-
2131 96.0*t102*t124*t127*t129*t84+t444+t443+t442+t441+t440+t439+
2132 t438+t432+t424+t423+t422+t421+t420+t419+t418+t417+t416+t415+
2133 t414+t412+t411+t410+t405+t404+t403+t402+t401+t400+t398-51.9472676981276*
2134 t84*t130*t89*t93*t248*t249*t250-51.9472676981276*t84*t88*t89*
2135 t124*t248*t249*t250+3.508934038473122*t84*t130*t89*t93*t248*
2136 t252*t113+3.508934038473122*t84*t88*t89*t124*t248*t252*t113-
2137 1.754467019236561*t84*t130*t89*t93*t254*t112*t113-1.754467019236561*
2138 t84*t88*t89*t124*t254*t112*t113-1.754467019236561*t84*t281*
2139 t89*t93*t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*
2140 t130*t93*t111*t112*t113-1.754467019236561*t84*t88*t89*t271*
2141 t111*t112*t113-3.508934038473122*t84*t130*t89*t124*t111*t112*
2142 t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t124*t111*t112*
2143 t113+t84*t86*t87*t431*t102)+.05925536910769562*t84*t281*t89*
2144 t93*t96-.004394773208820758*t84*t1*t2*t4*t105*t130*t93*t96+
2145 .05925536910769562*t84*t88*t89*t271*t96+.1185107382153912*
2146 t84*t130*t89*t124*t96-.004394773208820758*t84*t1*t2*t4*t105*
2147 t88*t124*t96+24.0*t129*t135*t84*t87*t93-96.0*t102*t127*t129*
2148 t84*t93+3.0*t102*t271*t84*t86*t87+6.0*t124*t135*t84*t86*t87+
2149 24.0*t102*t124*t129*t84*t87-24.0*t102*t124*t127*t84*t86-3.0*
2150 t51*t227*t35*t57+.1369866666666666*t1*t2*t4*t51*t56*t57*t54+
2151 t394+t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+t383+
2152 t382+t381+.001892851318518518*t1*t2*t4*t20*t225+6.0*t51*t222*
2153 t35*t224-96.4940495336121*t221*t222*t35*t223+0.20548*t1*t2*
2154 t4*t51*t227*t57*t17-.4109599999999999*t1*t2*t4*t51*t222*t224*
2155 t17+6.60919909938887*t1*t2*t4*t221*t222*t223*t17-3.508934038473122*
2156 t84*t130*t89*t93*t111*t112*t113-3.508934038473122*t84*t88*
2157 t89*t124*t111*t112*t113)+3.0*t51*t220*t56*t35*t57*rhoa+1.0*
2158 t51*t34*t379*t35*t57*rhoa+3.0*t51*t50*t227*t35*t57*rhoa-192.9880990672242*
2159 t221*t34*t375*t35*t377*rhoa+2069.133687865597*t374*t34*t375*
2160 t35*t376*rhoa-0.03109*t20*(-0.29097376*t22*t33*t373+17.94495303822222*
2161 t30*t31*t372-27.37080780231112*t27*t28*t371+15.36387437568*
2162 t21*t25*t370-4.071649359644446*t43*t44*t369+.5178316754488891*
2163 t212*t213*t368-.02554182587733335*t365*t366*t367)*t35*rhoa-
2164 6.0*t51*t34*t227*t56*t35*t224*rhoa-6.0*t51*t50*t222*t35*t224*
2165 rhoa+96.4940495336121*t221*t34*t227*t56*t35*t223*rhoa+6.0*
2166 t51*t34*t375*t35*t223*rhoa+96.4940495336121*t221*t50*t222*
2167 t35*t223*rhoa-3.0*t229*t36*t4*t6-1.0*t16*t36*t4*t59+6.0*t51*
2168 t50*t56*t35*t57+3.0*t51*t34*t227*t35*t57-.1369866666666666*
2169 t1*t2*t4*t51*t34*t56*t57*t54+.004258915466666666*t1*t2*t4*
2170 t20*t50*t54-0.75*t36*(.06584921362962963*t22*t41*t373-.01511690658133333*
2171 t30*t40*t372+4.4756461401125924E-4*t27*t39*t371-5.283262723716741E-6*
2172 t21*t38*t370+3.0183801754358525E-8*t43*t58*t369-8.352284744817775E-11*
2173 t212*t228*t368+8.99128288142222E-14*t365*t380*t367)*t4*t53+
2174 .2222222222222222*t36*t4*t42*t52-.09326999999999999*t20*t220*
2175 t35+3.0*t139*t300+3.0*t141*t298-.001892851318518518*t1*t2*
2176 t4*t20*t34*t225-6.0*t51*t34*t222*t35*t224+96.4940495336121*
2177 t221*t34*t222*t35*t223-.4109599999999999*t1*t2*t4*t51*t50*
2178 t56*t57*t17-0.20548*t1*t2*t4*t51*t34*t227*t57*t17+.4109599999999999*
2179 t1*t2*t4*t51*t34*t222*t224*t17-6.60919909938887*t1*t2*t4*t221*
2180 t34*t222*t223*t17+.006388373199999998*t1*t2*t4*t20*t220*t17+
2181 (-.6248512355555556*t22*t373*t70+0.02601200448*t22*t373*t62*
2182 t69+.02550952447999999*t30*t372*t69-3.314168704E-4*t22*t373*
2183 t68*t67-8.356952524799998E-4*t30*t372*t62*t67-1.3840115711999998E-4*
2184 t27*t371*t67+1.56254224896E-6*t22*t373*t66*t65+9.131254640639999E-6*
2185 t30*t372*t68*t65+4.036972584959999E-6*t27*t371*t62*t65-2.25303192576E-9*
2186 t22*t373*t63*t140-3.986840715264E-8*t30*t372*t66*t140-4.106125246464E-8*
2187 t27*t371*t68*t140+5.793510666239999E-11*t30*t372*t63*t299+
2188 1.730657746944E-10*t27*t371*t66*t299-2.528077381632E-13*t27*
2189 t371*t63*t445)*t151;
2190 d3fdrararb = t71*(t72*(.01975178970256521*(t461+t460+
2191 t434-80.0*t129*t277)*t84*t89*t93*t96-7.324622014701263E-4*
2192 t84*t1*t2*t4*t105*t281*t93*t96+9.766162686268349E-4*t84*t1*
2193 t2*t4*t243*t191*t93*t96+0.00195323253725367*t84*t1*t2*t4*t243*
2194 t130*t93*t96+.01975178970256521*t84*t88*t89*t456*t96+.03950357940513041*
2195 t84*t130*t89*t301*t96+.01975178970256521*t84*t191*t89*t271*
2196 t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t271*t96+.01975178970256521*
2197 t84*t281*t89*t189*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*
2198 t88*t189*t96+.03950357940513041*t84*t302*t89*t124*t96+0.00195323253725367*
2199 t84*t1*t2*t4*t243*t88*t124*t96-.001464924402940253*t84*t1*
2200 t2*t4*t105*t130*t124*t96+4.0*t129*t288*t84*t87*t93+80.0*t102*
2201 t129*t277*t84*t93-32.0*t127*t129*t135*t84*t93+2.0*t124*t288*
2202 t84*t86*t87+8.0*t102*t129*t301*t84*t87+12.0*t102*t189*t279*
2203 t84*t87-24.0*t102*t124*t279*t84*t87-4.0*t102*t129*t271*t84*
2204 t87+8.0*t129*t135*t189*t84*t87+20.0*t102*t189*t277*t84*t86+
2205 40.0*t102*t124*t277*t84*t86-4.0*t102*t127*t271*t84*t86-8.0*
2206 t127*t135*t189*t84*t86-16.0*t124*t127*t135*t84*t86-32.0*t102*
2207 t127*t129*t189*t84+t466+t465+t464+t463+t462+t459+t458+t457+
2208 t455+t454+t453+t452+t451+t442+t440+t439+t438+t432+t424+t423+
2209 t422+t421+t420+t419+t418+t417+t416+t415+t414+t412+t411+t410+
2210 t405+t404+t403+t402+t401+t400+t398+t84*t86*t87*t189*t288-17.31575589937587*
2211 t84*t191*t89*t93*t248*t249*t250-34.63151179875173*t84*t130*
2212 t89*t93*t248*t249*t250-17.31575589937587*t84*t88*t89*t189*
2213 t248*t249*t250-34.63151179875173*t84*t88*t89*t124*t248*t249*
2214 t250+t84*t86*t87*t271*t135+1.169644679491041*t84*t191*t89*
2215 t93*t248*t252*t113+2.339289358982082*t84*t130*t89*t93*t248*
2216 t252*t113+1.169644679491041*t84*t88*t89*t189*t248*t252*t113+
2217 2.339289358982082*t84*t88*t89*t124*t248*t252*t113-.5848223397455204*
2218 t84*t191*t89*t93*t254*t112*t113-1.169644679491041*t84*t130*
2219 t89*t93*t254*t112*t113-.5848223397455204*t84*t88*t89*t189*
2220 t254*t112*t113-1.169644679491041*t84*t88*t89*t124*t254*t112*
2221 t113-.5848223397455204*t84*t281*t89*t93*t111*t112*t113+.04337432353112609*
2222 t84*t1*t2*t4*t105*t191*t93*t111*t112*t113+.08674864706225219*
2223 t84*t1*t2*t4*t105*t130*t93*t111*t112*t113-.5848223397455204*
2224 t84*t88*t89*t271*t111*t112*t113+.04337432353112609*t84*t1*
2225 t2*t4*t105*t88*t189*t111*t112*t113-1.169644679491041*t84*t130*
2226 t89*t124*t111*t112*t113+.08674864706225219*t84*t1*t2*t4*t105*
2227 t88*t124*t111*t112*t113+t84*t86*t87*t456*t102)-.002929848805880505*
2228 t84*t1*t2*t4*t105*t130*t93*t96-.002929848805880505*t84*t1*
2229 t2*t4*t105*t88*t124*t96+4.0*t124*t135*t84*t86*t87+8.0*t102*
2230 t129*t189*t84*t87-16.0*t102*t124*t127*t84*t86+t450+t449+t448+
2231 t447+t446+t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+
2232 t383+t382+t381+t346+t343+t340+t338+t331+t330+t303+t296+t293+
2233 t292+t282+t274+t272-2.339289358982082*t84*t130*t89*t93*t111*
2234 t112*t113-2.339289358982082*t84*t88*t89*t124*t111*t112*t113)+
2235 2.0*t139*t305+2.0*t141*t304+t195*t298+t300*t194+(.008503174826666664*
2236 t22*t60*t219*t69*t176-2.7856508416E-4*t22*t60*t219*t62*t67*
2237 t176-1.3840115711999998E-4*t30*t60*t218*t67*t176+3.0437515468799997E-6*
2238 t22*t60*t219*t68*t65*t176+4.036972584959999E-6*t30*t60*t218*
2239 t62*t65*t176-1.328946905088E-8*t22*t60*t219*t66*t140*t176-
2240 4.106125246464E-8*t30*t60*t218*t68*t140*t176+1.93117022208E-11*
2241 t22*t60*t219*t63*t299*t176+1.730657746944E-10*t30*t60*t218*
2242 t66*t299*t176-2.528077381632E-13*t30*t60*t218*t63*t445*t176)*
2243 t151;
2244 d3fdraraga = 2.0*t51*t308*t56*t35*t57*rhoa+1.0*t51*t201*
2245 t227*t35*t57*rhoa-0.03109*t20*(0.12470304*grada*t33*t219-9.794958186666667*
2246 t200*t31*t218+16.81328538453334*t199*t28*t217-10.17274008576*
2247 t198*t25*t216+2.843272635733334*t196*t44*t215-.3764010257066668*
2248 t306*t213*t214+.01915636940800001*t467*t366*t468)*t35*rhoa-
2249 2.0*t51*t201*t222*t35*t224*rhoa+32.1646831778707*t221*t201*
2250 t222*t35*t223*rhoa-2.0*t309*t36*t4*t6+2.0*t51*t201*t56*t35*
2251 t57+.001419638488888889*t1*t2*t4*t20*t201*t54-0.75*(-.02822109155555556*
2252 grada*t41*t219+.008276372053333331*t200*t40*t218-2.7506955855644444E-4*
2253 t199*t39*t217+3.4899021041208883E-6*t198*t38*t216-2.099999575608889E-8*
2254 t196*t58*t215+6.053480366079999E-11*t306*t228*t214-6.743462161066666E-14*
2255 t467*t380*t468)*t36*t4*t53-.3333333333333333*t16*t202*t36*
2256 t4-0.06218*t20*t308*t35+2.0*t139*t310+t203*t298-.1369866666666666*
2257 t1*t2*t4*t51*t201*t56*t57*t17+.004258915466666666*t1*t2*t4*
2258 t20*t308*t17+(.2677933866666666*grada*t219*t70-0.01114800192*
2259 grada*t219*t62*t69-.01565357183999999*t200*t218*t69+1.4203580159999998E-4*
2260 grada*t219*t68*t67+5.1281299584E-4*t200*t218*t62*t67+1.0380086783999998E-4*
2261 t199*t217*t67-6.696609638400001E-7*grada*t219*t66*t65-5.603269893119999E-6*
2262 t200*t218*t68*t65-3.02772943872E-6*t199*t217*t62*t65+9.6558511104E-10*
2263 grada*t219*t63*t140+2.446470438912E-8*t200*t218*t66*t140+3.079593934848E-8*
2264 t199*t217*t68*t140-3.55510881792E-11*t200*t218*t63*t299-1.297993310208E-10*
2265 t199*t217*t66*t299+1.896058036224E-13*t199*t217*t63*t445)*
2266 t151;
2267 d3fdraragb = 2.0*t139*t311+t211*t298+(-.006377381119999998*
2268 t22*gradb*t219*t69*t61+2.0892381311999997E-4*t22*gradb*t219*
2269 t62*t67*t61+1.0380086783999998E-4*t30*gradb*t218*t67*t61-2.2828136601599996E-6*
2270 t22*gradb*t219*t68*t65*t61-3.02772943872E-6*t30*gradb*t218*
2271 t62*t65*t61+9.96710178816E-9*t22*gradb*t219*t66*t140*t61+3.079593934848E-8*
2272 t30*gradb*t218*t68*t140*t61-1.44837766656E-11*t22*gradb*t219*
2273 t63*t299*t61-1.297993310208E-10*t30*gradb*t218*t66*t299*t61+
2274 1.896058036224E-13*t30*gradb*t218*t63*t445*t61)*t151;
2275 d3fdraraab = 0.0;
2276 d3fdrarbrb = t71*(t72*(.01975178970256521*(t460+t436+
2277 t434+80.0*t129*t277)*t84*t89*t93*t96-7.324622014701263E-4*
2278 t84*t1*t2*t4*t105*t341*t93*t96+0.00195323253725367*t84*t1*
2279 t2*t4*t243*t191*t93*t96+9.766162686268349E-4*t84*t1*t2*t4*
2280 t243*t130*t93*t96+.01975178970256521*t84*t88*t89*t469*t96+
2281 .01975178970256521*t84*t130*t89*t336*t96-7.324622014701263E-4*
2282 t84*t1*t2*t4*t105*t88*t336*t96+.03950357940513041*t84*t191*
2283 t89*t301*t96+.03950357940513041*t84*t302*t89*t189*t96+0.00195323253725367*
2284 t84*t1*t2*t4*t243*t88*t189*t96-.001464924402940253*t84*t1*
2285 t2*t4*t105*t191*t189*t96+.01975178970256521*t84*t341*t89*t124*
2286 t96+9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t124*t96-4.0*
2287 t129*t288*t84*t87*t93-80.0*t102*t129*t277*t84*t93+32.0*t127*
2288 t129*t135*t84*t93+2.0*t189*t288*t84*t86*t87+4.0*t102*t129*
2289 t336*t84*t87-8.0*t102*t129*t301*t84*t87-24.0*t102*t189*t279*
2290 t84*t87+12.0*t102*t124*t279*t84*t87-8.0*t124*t129*t135*t84*
2291 t87-4.0*t102*t127*t336*t84*t86+40.0*t102*t189*t277*t84*t86+
2292 20.0*t102*t124*t277*t84*t86-16.0*t127*t135*t189*t84*t86-8.0*
2293 t124*t127*t135*t84*t86+32.0*t102*t124*t127*t129*t84+t465+t464+
2294 t463+t462+t459+t458+t457+t455+t454+t453+t452+t451+t444+t442+
2295 t440+t439+t438+t432+t424+t423+t422+t421+t420+t419+t418+t417+
2296 t416+t415+t414+t412+t411+t410+t405+t404+t403+t402+t401+t400+
2297 t398+t84*t86*t87*t124*t288-34.63151179875173*t84*t191*t89*
2298 t93*t248*t249*t250-17.31575589937587*t84*t130*t89*t93*t248*
2299 t249*t250-34.63151179875173*t84*t88*t89*t189*t248*t249*t250-
2300 17.31575589937587*t84*t88*t89*t124*t248*t249*t250+t84*t86*
2301 t87*t336*t135+2.339289358982082*t84*t191*t89*t93*t248*t252*
2302 t113+1.169644679491041*t84*t130*t89*t93*t248*t252*t113+2.339289358982082*
2303 t84*t88*t89*t189*t248*t252*t113+1.169644679491041*t84*t88*
2304 t89*t124*t248*t252*t113-1.169644679491041*t84*t191*t89*t93*
2305 t254*t112*t113-.5848223397455204*t84*t130*t89*t93*t254*t112*
2306 t113-1.169644679491041*t84*t88*t89*t189*t254*t112*t113-.5848223397455204*
2307 t84*t88*t89*t124*t254*t112*t113-.5848223397455204*t84*t341*
2308 t89*t93*t111*t112*t113+.08674864706225219*t84*t1*t2*t4*t105*
2309 t191*t93*t111*t112*t113+.04337432353112609*t84*t1*t2*t4*t105*
2310 t130*t93*t111*t112*t113-.5848223397455204*t84*t88*t89*t336*
2311 t111*t112*t113-1.169644679491041*t84*t191*t89*t189*t111*t112*
2312 t113+.08674864706225219*t84*t1*t2*t4*t105*t88*t189*t111*t112*
2313 t113+.04337432353112609*t84*t1*t2*t4*t105*t88*t124*t111*t112*
2314 t113+t84*t86*t87*t469*t102)-.002929848805880505*t84*t1*t2*
2315 t4*t105*t191*t93*t96-.002929848805880505*t84*t1*t2*t4*t105*
2316 t88*t189*t96+4.0*t135*t189*t84*t86*t87-8.0*t102*t124*t129*
2317 t84*t87-16.0*t102*t127*t189*t84*t86+t450+t449+t448+t447+t446+
2318 t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+t383+t382+
2319 t381+t347+t345+t344+t342+t339+t337+t303+t294+t290+t275+t273+
2320 t258+t256-2.339289358982082*t84*t191*t89*t93*t111*t112*t113-
2321 2.339289358982082*t84*t88*t89*t189*t111*t112*t113)+t141*t348+
2322 2.0*t194*t305+2.0*t195*t304+(.008503174826666664*t22*t60*t49*
2323 t69*t319-2.785650841599999E-4*t22*t60*t49*t62*t67*t319+3.043751546879999E-6*
2324 t22*t60*t49*t68*t65*t319-1.328946905088E-8*t22*t60*t49*t66*
2325 t140*t319+1.93117022208E-11*t22*t60*t49*t63*t299*t319-1.3840115711999998E-4*
2326 t22*t159*t49*t67*t318+4.036972584959999E-6*t22*t159*t49*t62*
2327 t65*t318-4.106125246464E-8*t22*t159*t49*t68*t140*t318+1.730657746944E-10*
2328 t22*t159*t49*t66*t299*t318-2.528077381632E-13*t22*t159*t49*
2329 t63*t445*t318)*t151+t349*t139;
2330 d3fdrarbga = (-.004638095359999999*grada*t60*t49*t69*
2331 t176+1.5194459135999996E-4*grada*t60*t49*t62*t67*t176+1.0380086783999998E-4*
2332 t200*t60*t48*t67*t176-1.6602281164799998E-6*grada*t60*t49*
2333 t68*t65*t176-3.02772943872E-6*t200*t60*t48*t62*t65*t176+7.24880130048E-9*
2334 grada*t60*t49*t66*t140*t176+3.079593934848E-8*t200*t60*t48*
2335 t68*t140*t176-1.05336557568E-11*grada*t60*t49*t63*t299*t176-
2336 1.297993310208E-10*t200*t60*t48*t66*t299*t176+1.896058036224E-13*
2337 t200*t60*t48*t63*t445*t176)*t151+t350*t139+t310*t194+t203*
2338 t304;
2339 d3fdrarbgb = (-.004638095359999999*t22*gradb*t49*t69*
2340 t176+1.5194459135999996E-4*t22*gradb*t49*t62*t67*t176-1.6602281164799998E-6*
2341 t22*gradb*t49*t68*t65*t176+7.24880130048E-9*t22*gradb*t49*
2342 t66*t140*t176-1.05336557568E-11*t22*gradb*t49*t63*t299*t176+
2343 1.0380086783999998E-4*t22*t208*t49*t67*t175-3.02772943872E-6*
2344 t22*t208*t49*t62*t65*t175+3.079593934848E-8*t22*t208*t49*t68*
2345 t140*t175-1.297993310208E-10*t22*t208*t49*t66*t299*t175+1.896058036224E-13*
2346 t22*t208*t49*t63*t445*t175)*t151+t355*t139+t311*t194+t211*
2347 t304;
2348 d3fdrarbab = 0.0;
2349 d3fdragaga = 1.0*t51*t357*t56*t35*t57*rhoa-0.03109*t20*
2350 (-0.03400992*t33*t49+4.644729024000001*t22*t31*t48-9.660890649600002*
2351 t30*t28*t47+6.508088401920002*t27*t25*t46-1.95222669312*t21*
2352 t44*t45+.2718246297600001*t43*t213*t307-.01436727705600001*
2353 t212*t366*t470)*t35*rhoa-1.0*t358*t36*t4*t6-0.75*t36*t4*(.007696661333333334*
2354 t41*t49-.003943071658666666*t22*t40*t48+1.581834315093333E-4*
2355 t30*t39*t47-2.2259240850773332E-6*t27*t38*t46+1.435144661674667E-8*
2356 t21*t58*t45-4.355718731093333E-11*t43*t228*t307+5.057596620799999E-14*
2357 t212*t380*t470)*t53-0.03109*t20*t357*t35+.002129457733333333*
2358 t1*t2*t4*t20*t357*t17+(-0.07303456*t49*t70+0.00304036416*t49*
2359 t62*t69+.008696428799999998*t22*t48*t69-3.8737036799999996E-5*
2360 t49*t68*t67-2.8489610879999994E-4*t22*t48*t62*t67-7.785065087999998E-5*
2361 t30*t47*t67+1.8263480832E-7*t49*t66*t65+3.1129277184000004E-6*
2362 t22*t48*t68*t65+2.27079707904E-6*t30*t47*t62*t65-2.6334139392E-10*
2363 t49*t63*t140-1.3591502438400002E-8*t22*t48*t66*t140-2.3096954511360004E-8*
2364 t30*t47*t68*t140+1.9750604544E-11*t22*t48*t63*t299+9.73494982656E-11*
2365 t30*t47*t66*t299-1.422043527168E-13*t30*t47*t63*t445)*t151+
2366 t359*t139;
2367 d3fdragagb = (.003478571519999999*grada*gradb*t49*t69*
2368 t61-1.1395844352E-4*grada*gradb*t49*t62*t67*t61-7.785065087999998E-5*
2369 t200*gradb*t48*t67*t61+1.2451710873600001E-6*grada*gradb*t49*
2370 t68*t65*t61+2.27079707904E-6*t200*gradb*t48*t62*t65*t61-5.436600975360001E-9*
2371 grada*gradb*t49*t66*t140*t61-2.3096954511360004E-8*t200*gradb*
2372 t48*t68*t140*t61+7.9002418176E-12*grada*gradb*t49*t63*t299*
2373 t61+9.73494982656E-11*t200*gradb*t48*t66*t299*t61-1.422043527168E-13*
2374 t200*gradb*t48*t63*t445*t61)*t151+t360*t139;
2375 d3fdragaab = 0.0;
2376 d3fdragbgb = (0.00173928576*t22*t49*t69*t61-5.697922176E-5*
2377 t22*t49*t62*t67*t61+6.225855436800002E-7*t22*t49*t68*t65*t61-
2378 2.7183004876800004E-9*t22*t49*t66*t140*t61+3.9501209088E-12*
2379 t22*t49*t63*t299*t61-7.785065087999998E-5*t22*t60*t49*t67*
2380 t161+2.27079707904E-6*t22*t60*t49*t62*t65*t161-2.3096954511360004E-8*
2381 t22*t60*t49*t68*t140*t161+9.73494982656E-11*t22*t60*t49*t66*
2382 t299*t161-1.422043527168E-13*t22*t60*t49*t63*t445*t161)*t151+
2383 t364*t139;
2384 d3fdragbab = 0.0;
2385 d3fdraabab = 0.0;
2386 d3fdrbrbrb = t71*(192.9880990672242*t321*t481*t150*t483*
2387 rhob-2069.133687865597*t480*t481*t150*t482*rhob+6.0*t178*t327*
2388 t183*t150*t324*rhob-6.0*t178*t481*t150*t323*rhob-96.4940495336121*
2389 t321*t327*t183*t150*t323*rhob-1.0*t178*t485*t150*t184*rhob+
2390 t72*(.01975178970256521*(t461+t435+t434+240.0*t129*t277)*t84*
2391 t89*t93*t96-.002197386604410379*t84*t1*t2*t4*t105*t341*t93*
2392 t96+.002929848805880505*t84*t1*t2*t4*t243*t191*t93*t96+.01975178970256521*
2393 t84*t88*t89*t487*t96+.05925536910769562*t84*t191*t89*t336*
2394 t96-.002197386604410379*t84*t1*t2*t4*t105*t88*t336*t96+.05925536910769562*
2395 t84*t341*t89*t189*t96+.002929848805880505*t84*t1*t2*t4*t243*
2396 t88*t189*t96-.004394773208820758*t84*t1*t2*t4*t105*t191*t189*
2397 t96-12.0*t129*t288*t84*t87*t93-240.0*t102*t129*t277*t84*t93+
2398 96.0*t127*t129*t135*t84*t93+3.0*t135*t336*t84*t86*t87+3.0*
2399 t189*t288*t84*t86*t87-12.0*t102*t129*t336*t84*t87+36.0*t102*
2400 t189*t279*t84*t87-24.0*t129*t135*t189*t84*t87-12.0*t102*t127*
2401 t336*t84*t86+60.0*t102*t189*t277*t84*t86-24.0*t127*t135*t189*
2402 t84*t86+96.0*t102*t127*t129*t189*t84+t466+t443+t442+t441+t440+
2403 t439+t438+t432+t424+t423+t422+t421+t420+t419+t418+t417+t416+
2404 t415+t414+t412+t411+t410+t405+t404+t403+t402+t401+t400+t398-
2405 51.9472676981276*t84*t191*t89*t93*t248*t249*t250-51.9472676981276*
2406 t84*t88*t89*t189*t248*t249*t250+3.508934038473122*t84*t191*
2407 t89*t93*t248*t252*t113+3.508934038473122*t84*t88*t89*t189*
2408 t248*t252*t113-1.754467019236561*t84*t191*t89*t93*t254*t112*
2409 t113-1.754467019236561*t84*t88*t89*t189*t254*t112*t113-1.754467019236561*
2410 t84*t341*t89*t93*t111*t112*t113+.1301229705933783*t84*t1*t2*
2411 t4*t105*t191*t93*t111*t112*t113-1.754467019236561*t84*t88*
2412 t89*t336*t111*t112*t113-3.508934038473122*t84*t191*t89*t189*
2413 t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t189*
2414 t111*t112*t113+t84*t86*t87*t487*t102)+.05925536910769562*t84*
2415 t341*t89*t93*t96-.004394773208820758*t84*t1*t2*t4*t105*t191*
2416 t93*t96+.05925536910769562*t84*t88*t89*t336*t96+.1185107382153912*
2417 t84*t191*t89*t189*t96-.004394773208820758*t84*t1*t2*t4*t105*
2418 t88*t189*t96-24.0*t129*t135*t84*t87*t93+96.0*t102*t127*t129*
2419 t84*t93+3.0*t102*t336*t84*t86*t87+6.0*t135*t189*t84*t86*t87-
2420 24.0*t102*t129*t189*t84*t87-24.0*t102*t127*t189*t84*t86+t394+
2421 t393+t392+t391+t390+t389+t388+t387+t386+t385+t384+t383+t382+
2422 t381+.001892851318518518*t1*t2*t4*t149*t325+6.0*t178*t322*
2423 t150*t324-96.4940495336121*t321*t322*t150*t323-3.0*t178*t327*
2424 t150*t184+.1369866666666666*t1*t2*t4*t178*t183*t184*t181-.4109599999999999*
2425 t1*t2*t4*t178*t322*t324*t146+6.60919909938887*t1*t2*t4*t321*
2426 t322*t323*t146+0.20548*t1*t2*t4*t178*t327*t184*t146-3.508934038473122*
2427 t84*t191*t89*t93*t111*t112*t113-3.508934038473122*t84*t88*
2428 t89*t189*t111*t112*t113)-192.9880990672242*t321*t163*t481*
2429 t150*t483*rhob+2069.133687865597*t480*t163*t481*t150*t482*
2430 rhob-6.0*t178*t177*t322*t150*t324*rhob-6.0*t178*t163*t327*
2431 t183*t150*t324*rhob+6.0*t178*t163*t481*t150*t323*rhob+96.4940495336121*
2432 t321*t177*t322*t150*t323*rhob+96.4940495336121*t321*t163*t327*
2433 t183*t150*t323*rhob+1.0*t178*t163*t485*t150*t184*rhob+3.0*
2434 t178*t177*t327*t150*t184*rhob+3.0*t178*t320*t183*t150*t184*
2435 rhob-0.03109*t149*(-0.29097376*t60*t162*t479+17.94495303822222*
2436 t159*t160*t478-27.37080780231112*t156*t157*t477+15.36387437568*
2437 t152*t154*t476-4.071649359644446*t170*t171*t475+.5178316754488891*
2438 t312*t313*t474-.02554182587733335*t471*t472*t473)*t150*rhob-
2439 0.75*t180*t36*t4*(.06584921362962963*t60*t168*t479-.01511690658133333*
2440 t159*t167*t478+4.4756461401125924E-4*t156*t166*t477-5.283262723716741E-6*
2441 t152*t165*t476+3.0183801754358525E-8*t170*t185*t475-8.352284744817775E-11*
2442 t312*t328*t474+8.99128288142222E-14*t471*t486*t473)-3.0*t142*
2443 t329*t36*t4-1.0*t145*t186*t36*t4+.2222222222222222*t169*t179*
2444 t36*t4+3.0*t194*t349+3.0*t195*t348-.001892851318518518*t1*
2445 t2*t4*t149*t163*t325-6.0*t178*t163*t322*t150*t324+96.4940495336121*
2446 t321*t163*t322*t150*t323+3.0*t178*t163*t327*t150*t184+6.0*
2447 t178*t177*t183*t150*t184-.1369866666666666*t1*t2*t4*t178*t163*
2448 t183*t184*t181+.004258915466666666*t1*t2*t4*t149*t177*t181+
2449 (-.6248512355555556*t60*t70*t479+0.02601200448*t60*t62*t69*
2450 t479-3.314168704E-4*t60*t68*t67*t479+1.56254224896E-6*t60*
2451 t66*t65*t479-2.25303192576E-9*t60*t63*t140*t479+.02550952447999999*
2452 t159*t69*t478-8.356952524799998E-4*t159*t62*t67*t478+9.131254640639999E-6*
2453 t159*t68*t65*t478-3.986840715264E-8*t159*t66*t140*t478+5.793510666239999E-11*
2454 t159*t63*t299*t478-1.3840115711999998E-4*t156*t67*t477+4.036972584959999E-6*
2455 t156*t62*t65*t477-4.106125246464E-8*t156*t68*t140*t477+1.730657746944E-10*
2456 t156*t66*t299*t477-2.528077381632E-13*t156*t63*t445*t477)*
2457 t151-.09326999999999999*t149*t320*t150+.4109599999999999*t1*
2458 t2*t4*t178*t163*t322*t324*t146-6.60919909938887*t1*t2*t4*t321*
2459 t163*t322*t323*t146+.006388373199999998*t1*t2*t4*t149*t320*
2460 t146-0.20548*t1*t2*t4*t178*t163*t327*t184*t146-.4109599999999999*
2461 t1*t2*t4*t178*t177*t183*t184*t146;
2462 d3fdrbrbga = 2.0*t194*t350+t203*t348+(-.006377381119999998*
2463 grada*t60*t23*t69*t319+2.0892381311999997E-4*grada*t60*t23*
2464 t62*t67*t319-2.2828136601599996E-6*grada*t60*t23*t68*t65*t319+
2465 9.96710178816E-9*grada*t60*t23*t66*t140*t319-1.44837766656E-11*
2466 grada*t60*t23*t63*t299*t319+1.0380086783999998E-4*grada*t159*
2467 t23*t67*t318-3.02772943872E-6*grada*t159*t23*t62*t65*t318+
2468 3.079593934848E-8*grada*t159*t23*t68*t140*t318-1.297993310208E-10*
2469 grada*t159*t23*t66*t299*t318+1.896058036224E-13*grada*t159*
2470 t23*t63*t445*t318)*t151;
2471 d3fdrbrbgb = -2.0*t178*t209*t322*t150*t324*rhob+32.1646831778707*
2472 t321*t209*t322*t150*t323*rhob+1.0*t178*t209*t327*t150*t184*
2473 rhob+2.0*t178*t353*t183*t150*t184*rhob-0.03109*t149*(0.12470304*
2474 gradb*t162*t319-9.794958186666667*t208*t160*t318+16.81328538453334*
2475 t207*t157*t317-10.17274008576*t206*t154*t316+2.843272635733334*
2476 t204*t171*t315-.3764010257066668*t351*t313*t314+.01915636940800001*
2477 t488*t472*t489)*t150*rhob-2.0*t142*t354*t36*t4-0.75*t180*(-
2478 .02822109155555556*gradb*t168*t319+.008276372053333331*t208*
2479 t167*t318-2.7506955855644444E-4*t207*t166*t317+3.4899021041208883E-6*
2480 t206*t165*t316-2.099999575608889E-8*t204*t185*t315+6.053480366079999E-11*
2481 t351*t328*t314-6.743462161066666E-14*t488*t486*t489)*t36*t4-
2482 .3333333333333333*t145*t210*t36*t4+2.0*t194*t355+t211*t348+
2483 2.0*t178*t209*t183*t150*t184+.001419638488888889*t1*t2*t4*
2484 t149*t209*t181+(.2677933866666666*gradb*t70*t319-0.01114800192*
2485 gradb*t62*t69*t319+1.4203580159999998E-4*gradb*t68*t67*t319-
2486 6.696609638400001E-7*gradb*t66*t65*t319+9.6558511104E-10*gradb*
2487 t63*t140*t319-.01565357183999999*t208*t69*t318+5.1281299584E-4*
2488 t208*t62*t67*t318-5.603269893119999E-6*t208*t68*t65*t318+2.446470438912E-8*
2489 t208*t66*t140*t318-3.55510881792E-11*t208*t63*t299*t318+1.0380086783999998E-4*
2490 t207*t67*t317-3.02772943872E-6*t207*t62*t65*t317+3.079593934848E-8*
2491 t207*t68*t140*t317-1.297993310208E-10*t207*t66*t299*t317+1.896058036224E-13*
2492 t207*t63*t445*t317)*t151-0.06218*t149*t353*t150+.004258915466666666*
2493 t1*t2*t4*t149*t353*t146-.1369866666666666*t1*t2*t4*t178*t209*
2494 t183*t184*t146;
2495 d3fdrbrbab = 0.0;
2496 d3fdrbgaga = (0.00173928576*t60*t23*t69*t176-5.697922176E-5*
2497 t60*t23*t62*t67*t176-7.785065087999998E-5*t22*t60*t32*t67*
2498 t176+6.225855436800002E-7*t60*t23*t68*t65*t176+2.27079707904E-6*
2499 t22*t60*t32*t62*t65*t176-2.7183004876800004E-9*t60*t23*t66*
2500 t140*t176-2.3096954511360004E-8*t22*t60*t32*t68*t140*t176+
2501 3.9501209088E-12*t60*t23*t63*t299*t176+9.73494982656E-11*t22*
2502 t60*t32*t66*t299*t176-1.422043527168E-13*t22*t60*t32*t63*t445*
2503 t176)*t151+t359*t194;
2504 d3fdrbgagb = (.003478571519999999*grada*gradb*t23*t69*
2505 t176-1.1395844352E-4*grada*gradb*t23*t62*t67*t176+1.2451710873600001E-6*
2506 grada*gradb*t23*t68*t65*t176-5.436600975360001E-9*grada*gradb*
2507 t23*t66*t140*t176+7.9002418176E-12*grada*gradb*t23*t63*t299*
2508 t176-7.785065087999998E-5*grada*t208*t23*t67*t175+2.27079707904E-6*
2509 grada*t208*t23*t62*t65*t175-2.3096954511360004E-8*grada*t208*
2510 t23*t68*t140*t175+9.73494982656E-11*grada*t208*t23*t66*t299*
2511 t175-1.422043527168E-13*grada*t208*t23*t63*t445*t175)*t151+
2512 t360*t194;
2513 d3fdrbgaab = 0.0;
2514 d3fdrbgbgb = 1.0*t178*t362*t183*t150*t184*rhob-0.03109*
2515 t149*(-0.03400992*t162*t176+4.644729024000001*t60*t160*t175-
2516 9.660890649600002*t159*t157*t174+6.508088401920002*t156*t154*
2517 t173-1.95222669312*t152*t171*t172+.2718246297600001*t170*t313*
2518 t352-.01436727705600001*t312*t472*t490)*t150*rhob-1.0*t142*
2519 t36*t363*t4-0.75*(.007696661333333334*t168*t176-.003943071658666666*
2520 t60*t167*t175+1.581834315093333E-4*t159*t166*t174-2.2259240850773332E-6*
2521 t156*t165*t173+1.435144661674667E-8*t152*t185*t172-4.355718731093333E-11*
2522 t170*t328*t352+5.057596620799999E-14*t312*t486*t490)*t180*
2523 t36*t4+t364*t194+(-0.07303456*t70*t176+0.00304036416*t62*t69*
2524 t176-3.8737036799999996E-5*t68*t67*t176+1.8263480832E-7*t66*
2525 t65*t176-2.6334139392E-10*t63*t140*t176+.008696428799999998*
2526 t60*t69*t175-2.8489610879999994E-4*t60*t62*t67*t175+3.1129277184000004E-6*
2527 t60*t68*t65*t175-1.3591502438400002E-8*t60*t66*t140*t175+1.9750604544E-11*
2528 t60*t63*t299*t175-7.785065087999998E-5*t159*t67*t174+2.27079707904E-6*
2529 t159*t62*t65*t174-2.3096954511360004E-8*t159*t68*t140*t174+
2530 9.73494982656E-11*t159*t66*t299*t174-1.422043527168E-13*t159*
2531 t63*t445*t174)*t151-0.03109*t149*t362*t150+.002129457733333333*
2532 t1*t2*t4*t149*t362*t146;
2533 d3fdrbgbab = 0.0;
2534 d3fdrbabab = 0.0;
2535 d3fdgagaga = -0.03109*t20*(-1.744324128*grada*t31*t32+
2536 5.062341676800001*t200*t28*t29-3.988298672640001*t199*t25*
2537 t26+1.31417883648*t198*t44*t197-.1948889241600001*t196*t213*
2538 t356+.01077545779200001*t306*t366*t491)*t35*rhoa-0.75*(0.001490196864*
2539 grada*t40*t32-8.300400076799999E-5*t200*t39*t29+1.358983016448E-6*
2540 t199*t38*t26-9.604340121600001E-9*t198*t58*t197+3.10873915392E-11*
2541 t196*t228*t356-3.793197465599999E-14*t306*t380*t491)*t36*t4*
2542 t53+(-0.00391339296*grada*t32*t69+1.2820324896E-4*grada*t32*
2543 t62*t67+5.838798816E-5*t200*t29*t67-1.4008174732800002E-6*
2544 grada*t32*t68*t65-1.70309780928E-6*t200*t29*t62*t65+6.11617609728E-9*
2545 grada*t32*t66*t140+1.7322715883520004E-8*t200*t29*t68*t140-
2546 8.887772044800001E-12*grada*t32*t63*t299-7.30121236992E-11*
2547 t200*t29*t66*t299+1.066532645376E-13*t200*t29*t63*t445)*t151;
2548 d3fdgagagb = (-
2549 0.00130446432*gradb*t23*t69*t61+4.2734416319999996E-5*gradb*
2550 t23*t62*t67*t61+5.838798816E-5*t22*gradb*t32*t67*t61-4.669391577600001E-7*
2551 gradb*t23*t68*t65*t61-1.70309780928E-6*t22*gradb*t32*t62*t65*
2552 t61+2.0387253657600002E-9*gradb*t23*t66*t140*t61+1.7322715883520004E-8*
2553 t22*gradb*t32*t68*t140*t61-2.962590681600001E-12*gradb*t23*
2554 t63*t299*t61-7.30121236992E-11*t22*gradb*t32*t66*t299*t61+
2555 1.066532645376E-13*t22*gradb*t32*t63*t445*t61)*t151;
2556 d3fdgagaab = 0.0;
2557 d3fdgagbgb = (-0.00130446432*grada*t23*t69*t61+4.2734416319999996E-5*
2558 grada*t23*t62*t67*t61-4.669391577600001E-7*grada*t23*t68*t65*
2559 t61+2.0387253657600002E-9*grada*t23*t66*t140*t61-2.962590681600001E-12*
2560 grada*t23*t63*t299*t61+5.838798816E-5*grada*t60*t23*t67*t161-
2561 1.70309780928E-6*grada*t60*t23*t62*t65*t161+1.7322715883520004E-8*
2562 grada*t60*t23*t68*t140*t161-7.30121236992E-11*grada*t60*t23*
2563 t66*t299*t161+1.066532645376E-13*grada*t60*t23*t63*t445*t161)*
2564 t151;
2565 d3fdgagbab = 0.0;
2566 d3fdgaabab = 0.0;
2567 d3fdgbgbgb = -0.03109*t149*(-1.744324128*gradb*t160*t161+
2568 5.062341676800001*t208*t157*t158-3.988298672640001*t207*t154*
2569 t155+1.31417883648*t206*t171*t205-.1948889241600001*t204*t313*
2570 t361+.01077545779200001*t351*t472*t492)*t150*rhob-0.75*(0.001490196864*
2571 gradb*t167*t161-8.300400076799999E-5*t208*t166*t158+1.358983016448E-6*
2572 t207*t165*t155-9.604340121600001E-9*t206*t185*t205+3.10873915392E-11*
2573 t204*t328*t361-3.793197465599999E-14*t351*t486*t492)*t180*
2574 t36*t4+(-0.00391339296*gradb*t69*t161+1.2820324896E-4*gradb*
2575 t62*t67*t161-1.4008174732800002E-6*gradb*t68*t65*t161+6.11617609728E-9*
2576 gradb*t66*t140*t161-8.887772044800001E-12*gradb*t63*t299*t161+
2577 5.838798816E-5*t208*t67*t158-1.70309780928E-6*t208*t62*t65*
2578 t158+1.7322715883520004E-8*t208*t68*t140*t158-7.30121236992E-11*
2579 t208*t66*t299*t158+1.066532645376E-13*t208*t63*t445*t158)*
2580 t151;
2581 d3fdgbgbab = 0.0;
2582 d3fdgbabab = 0.0;
2583 d3fdababab = 0.0;
2584
2585
2586 ds->df1000 += factor*dfdra;
2587 ds->df0100 += factor*dfdrb;
2588 ds->df0010 += factor*dfdga;
2589 ds->df0001 += factor*dfdgb;
2590 ds->df00001+= factor*dfdgab;
2591
2592 ds->df2000 += factor*d2fdrara;
2593 ds->df1100 += factor*d2fdrarb;
2594 ds->df1010 += factor*d2fdraga;
2595 ds->df1001 += factor*d2fdragb;
2596 ds->df10001+= factor*d2fdraab;
2597 ds->df0200 += factor*d2fdrbrb;
2598 ds->df0110 += factor*d2fdrbga;
2599 ds->df0101 += factor*d2fdrbgb;
2600 ds->df01001+= factor*d2fdrbgab;
2601 ds->df0020 += factor*d2fdgaga;
2602 ds->df0011 += factor*d2fdgagb;
2603 ds->df00101+= factor*d2fdgagab;
2604 ds->df0002 += factor*d2fdgbgb;
2605 ds->df00011+= factor*d2fdgbgab;
2606 ds->df00002+= factor*d2fdgabgab;
2607
2608 ds->df3000 += factor*d3fdrarara;
2609 ds->df2100 += factor*d3fdrararb;
2610 ds->df2010 += factor*d3fdraraga;
2611 ds->df2001 += factor*d3fdraragb;
2612 ds->df20001 += factor*d3fdraraab;
2613 ds->df1200 += factor*d3fdrarbrb;
2614 ds->df1110 += factor*d3fdrarbga;
2615 ds->df1101 += factor*d3fdrarbgb;
2616 ds->df11001 += factor*d3fdrarbab;
2617 ds->df1020 += factor*d3fdragaga;
2618 ds->df1011 += factor*d3fdragagb;
2619 ds->df10101 += factor*d3fdragaab;
2620 ds->df1002 += factor*d3fdragbgb;
2621 ds->df10011 += factor*d3fdragbab;
2622 ds->df10002 += factor*d3fdraabab;
2623 ds->df0300 += factor*d3fdrbrbrb;
2624 ds->df0210 += factor*d3fdrbrbga;
2625 ds->df0201 += factor*d3fdrbrbgb;
2626 ds->df02001 += factor*d3fdrbrbab;
2627 ds->df0120 += factor*d3fdrbgaga;
2628 ds->df0111 += factor*d3fdrbgagb;
2629 ds->df01101 += factor*d3fdrbgaab;
2630 ds->df0102 += factor*d3fdrbgbgb;
2631 ds->df01011 += factor*d3fdrbgbab;
2632 ds->df01002 += factor*d3fdrbabab;
2633 ds->df0030 += factor*d3fdgagaga;
2634 ds->df0021 += factor*d3fdgagagb;
2635 ds->df00201 += factor*d3fdgagaab;
2636 ds->df0012 += factor*d3fdgagbgb;
2637 ds->df00111 += factor*d3fdgagbab;
2638 ds->df00102 += factor*d3fdgaabab;
2639 ds->df0003 += factor*d3fdgbgbgb;
2640 ds->df00021 += factor*d3fdgbgbab;
2641 ds->df00012 += factor*d3fdgbabab;
2642 ds->df00003 += factor*d3fdababab;
2643
2644 }
2645
2646 static void
f14_fourth(FunFourthFuncDrv * ds,real factor,const FunDensProp * dp)2647 f14_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
2648 {
2649 real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
2650 real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
2651 d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
2652 d2fdgbgb, d2fdgbgab, d2fdgabgab;
2653 real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
2654 d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
2655 d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
2656 d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
2657 d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
2658 d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
2659 d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
2660 real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
2661 d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
2662 d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
2663 d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
2664 d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
2665 d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
2666 d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
2667 d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
2668 d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
2669 d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
2670 d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
2671 d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
2672 d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
2673 d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
2674 d4fdabababab;
2675 real rhoa = dp->rhoa, rhob = dp->rhob;
2676 real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;
2677
2678 real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
2679 real t11, t12, t13, t14, t15, t16, t17, t18;
2680 real t19, t20, t21, t22, t23, t24, t25, t26;
2681 real t27, t28, t29, t30, t31, t32, t33, t34;
2682 real t35, t36, t37, t38, t39, t40, t41, t42;
2683 real t43, t44, t45, t46, t47, t48, t49, t50;
2684 real t51, t52, t53, t54, t55, t56, t57, t58;
2685 real t59, t60, t61, t62, t63, t64, t65, t66;
2686 real t67, t68, t69, t70, t71, t72, t73, t74;
2687 real t75, t76, t77, t78, t79, t80, t81, t82;
2688 real t83, t84, t85, t86, t87, t88, t89, t90;
2689 real t91, t92, t93, t94, t95, t96, t97, t98;
2690 real t99, t100, t101, t102, t103, t104, t105;
2691 real t106, t107, t108, t109, t110, t111, t112;
2692 real t113, t114, t115, t116, t117, t118, t119;
2693 real t120, t121, t122, t123, t124, t125, t126;
2694 real t127, t128, t129, t130, t131, t132, t133;
2695 real t134, t135, t136, t137, t138, t139, t140;
2696 real t141, t142, t143, t144, t145, t146, t147;
2697 real t148, t149, t150, t151, t152, t153, t154;
2698 real t155, t156, t157, t158, t159, t160, t161;
2699 real t162, t163, t164, t165, t166, t167, t168;
2700 real t169, t170, t171, t172, t173, t174, t175;
2701 real t176, t177, t178, t179, t180, t181, t182;
2702 real t183, t184, t185, t186, t187, t188, t189;
2703 real t190, t191, t192, t193, t194, t195, t196;
2704 real t197, t198, t199, t200, t201, t202, t203;
2705 real t204, t205, t206, t207, t208, t209, t210;
2706 real t211, t212, t213, t214, t215, t216, t217;
2707 real t218, t219, t220, t221, t222, t223, t224;
2708 real t225, t226, t227, t228, t229, t230, t231;
2709 real t232, t233, t234, t235, t236, t237, t238;
2710 real t239, t240, t241, t242, t243, t244, t245;
2711 real t246, t247, t248, t249, t250, t251, t252;
2712 real t253, t254, t255, t256, t257, t258, t259;
2713 real t260, t261, t262, t263, t264, t265, t266;
2714 real t267, t268, t269, t270, t271, t272, t273;
2715 real t274, t275, t276, t277, t278, t279, t280;
2716 real t281, t282, t283, t284, t285, t286, t287;
2717 real t288, t289, t290, t291, t292, t293, t294;
2718 real t295, t296, t297, t298, t299, t300, t301;
2719 real t302, t303, t304, t305, t306, t307, t308;
2720 real t309, t310, t311, t312, t313, t314, t315;
2721 real t316, t317, t318, t319, t320, t321, t322;
2722 real t323, t324, t325, t326, t327, t328, t329;
2723 real t330, t331, t332, t333, t334, t335, t336;
2724 real t337, t338, t339, t340, t341, t342, t343;
2725 real t344, t345, t346, t347, t348, t349, t350;
2726 real t351, t352, t353, t354, t355, t356, t357;
2727 real t358, t359, t360, t361, t362, t363, t364;
2728 real t365, t366, t367, t368, t369, t370, t371;
2729 real t372, t373, t374, t375, t376, t377, t378;
2730 real t379, t380, t381, t382, t383, t384, t385;
2731 real t386, t387, t388, t389, t390, t391, t392;
2732 real t393, t394, t395, t396, t397, t398, t399;
2733 real t400, t401, t402, t403, t404, t405, t406;
2734 real t407, t408, t409, t410, t411, t412, t413;
2735 real t414, t415, t416, t417, t418, t419, t420;
2736 real t421, t422, t423, t424, t425, t426, t427;
2737 real t428, t429, t430, t431, t432, t433, t434;
2738 real t435, t436, t437, t438, t439, t440, t441;
2739 real t442, t443, t444, t445, t446, t447, t448;
2740 real t449, t450, t451, t452, t453, t454, t455;
2741 real t456, t457, t458, t459, t460, t461, t462;
2742 real t463, t464, t465, t466, t467, t468, t469;
2743 real t470, t471, t472, t473, t474, t475, t476;
2744 real t477, t478, t479, t480, t481, t482, t483;
2745 real t484, t485, t486, t487, t488, t489, t490;
2746 real t491, t492, t493, t494, t495, t496, t497;
2747 real t498, t499, t500, t501, t502, t503, t504;
2748 real t505, t506, t507, t508, t509, t510, t511;
2749 real t512, t513, t514, t515, t516, t517, t518;
2750 real t519, t520, t521, t522, t523, t524, t525;
2751 real t526, t527, t528, t529, t530, t531, t532;
2752 real t533, t534, t535, t536, t537, t538, t539;
2753 real t540, t541, t542, t543, t544, t545, t546;
2754 real t547, t548, t549, t550, t551, t552, t553;
2755 real t554, t555, t556, t557, t558, t559, t560;
2756 real t561, t562, t563, t564, t565, t566, t567;
2757 real t568, t569, t570, t571, t572, t573, t574;
2758 real t575, t576, t577, t578, t579, t580, t581;
2759 real t582, t583, t584, t585, t586, t587, t588;
2760 real t589, t590, t591, t592, t593, t594, t595;
2761 real t596, t597, t598, t599, t600, t601, t602;
2762 real t603, t604, t605, t606, t607, t608, t609;
2763 real t610, t611, t612, t613, t614, t615, t616;
2764 real t617, t618, t619, t620, t621, t622, t623;
2765 real t624, t625, t626, t627, t628, t629, t630;
2766 real t631, t632, t633, t634, t635, t636, t637;
2767 real t638, t639, t640, t641, t642, t643, t644;
2768 real t645, t646, t647, t648, t649, t650, t651;
2769 real t652, t653, t654, t655, t656, t657, t658;
2770 real t659, t660, t661, t662, t663, t664, t665;
2771 real t666, t667, t668, t669, t670, t671, t672;
2772 real t673, t674, t675, t676, t677, t678, t679;
2773 real t680, t681, t682, t683, t684, t685, t686;
2774 real t687, t688, t689, t690, t691, t692, t693;
2775 real t694, t695, t696, t697, t698, t699, t700;
2776 real t701, t702, t703, t704, t705, t706, t707;
2777 real t708, t709, t710, t711, t712, t713, t714;
2778 real t715, t716, t717, t718, t719, t720, t721;
2779 real t722, t723, t724, t725, t726, t727, t728;
2780 real t729, t730, t731, t732, t733, t734, t735;
2781 real t736, t737, t738, t739, t740, t741, t742;
2782 real t743, t744, t745, t746, t747, t748, t749;
2783 real t750, t751, t752, t753, t754, t755, t756;
2784 real t757, t758, t759, t760, t761, t762, t763;
2785 real t764, t765, t766, t767, t768, t769, t770;
2786 real t771, t772, t773, t774, t775, t776, t777;
2787 real t778, t779, t780, t781, t782, t783, t784;
2788 real t785, t786, t787, t788, t789, t790, t791;
2789 real t792, t793, t794, t795, t796, t797, t798;
2790
2791 t1 = pow(3.0,.3333333333333333);
2792 t2 = 1/pow(4.0,.3333333333333333);
2793 t3 = pow(M_PI,.3333333333333333);
2794 t4 = 1/t3;
2795 t5 = 1.732050807568877;
2796 t6 = pow(rhoa,.3333333333333333);
2797 t7 = sqrt(t3*t6);
2798 t8 = 1/pow(t7,3.0);
2799 t9 = pow(2.0,.3333333333333333);
2800 t10 = 1/t9;
2801 t11 = pow(3.0,.1666666666666667);
2802 t12 = pow(3.0,.6666666666666666);
2803 t13 = 1/pow(4.0,.6666666666666666);
2804 t14 = pow(M_PI,.6666666666666666);
2805 t15 = 1/t14;
2806 t16 = 1/pow(rhoa,.6666666666666666);
2807 t17 = 1/t6;
2808 t18 = 1.6831*t5*t8+14.1189*t10*t11/t7+6.1977*t1*t2*t4*
2809 t17+0.62517*t12*t13*t15*t16;
2810 t19 = 32.1646831778707/t18+1.0;
2811 t20 = log(t19);
2812 t21 = pow(grada,8.0);
2813 t22 = pow(grada,2.0);
2814 t23 = 1/pow(rhoa,2.666666666666667);
2815 t24 = 0.2*t22*t23+1.0;
2816 t25 = 1/pow(t24,4.0);
2817 t26 = 1/pow(rhoa,10.66666666666667);
2818 t27 = pow(grada,6.0);
2819 t28 = 1/pow(t24,3.0);
2820 t29 = 1/pow(rhoa,8.0);
2821 t30 = pow(grada,4.0);
2822 t31 = 1/pow(t24,2.0);
2823 t32 = 1/pow(rhoa,5.333333333333333);
2824 t33 = 1/t24;
2825 t34 = 0.00637686*t22*t33*t23-.07140480000000002*t30*t31*
2826 t32+0.0191836*t27*t28*t29-.001403054400000001*t21*t25*t26+
2827 2.82414;
2828 t35 = 0.20548*t1*t2*t4*t17+1.0;
2829 t36 = pow(6.0,.3333333333333333);
2830 t37 = 0.004*t22*t23+1.0;
2831 t38 = 1/pow(t37,4.0);
2832 t39 = 1/pow(t37,3.0);
2833 t40 = 1/pow(t37,2.0);
2834 t41 = 1/t37;
2835 t42 = -0.001443124*t22*t41*t23+5.631904E-5*t30*t40*t32-
2836 3.1740416000000005E-7*t27*t39*t29+6.173823999999999E-10*t21*
2837 t38*t26+1.03161;
2838 t43 = pow(grada,10.0);
2839 t44 = 1/pow(t24,5.0);
2840 t45 = 1/pow(rhoa,14.33333333333333);
2841 t46 = 1/pow(rhoa,11.66666666666667);
2842 t47 = 1/pow(rhoa,9.0);
2843 t48 = 1/pow(rhoa,6.333333333333333);
2844 t49 = 1/pow(rhoa,3.666666666666667);
2845 t50 = -0.01700496*t22*t33*t49+.3842265920000001*t30*t31*
2846 t48-0.22963392*t27*t28*t47+.04565967360000001*t21*t25*t46-
2847 .002993182720000002*t43*t44*t45;
2848 t51 = 1/t19;
2849 t52 = 1/pow(rhoa,1.666666666666667);
2850 t53 = pow(rhoa,1.333333333333333);
2851 t54 = 1/t53;
2852 t55 = 1/pow(t7,5.0);
2853 t56 = -2.35315*t10*t11*t3*t8*t16-0.84155*t5*t3*t55*t16-
2854 2.0659*t1*t2*t4*t54-0.41678*t12*t13*t15*t52;
2855 t57 = 1/pow(t18,2.0);
2856 t58 = 1/pow(t37,5.0);
2857 t59 = .003848330666666667*t22*t41*t49-3.1576153599999995E-4*
2858 t30*t40*t48+3.740706133333333E-6*t27*t39*t47-1.6742345386666668E-8*
2859 t21*t38*t46+2.634164906666666E-11*t43*t58*t45;
2860 t60 = pow(gradb,2.0);
2861 t61 = 1/pow(rhob,2.666666666666667);
2862 t62 = 0.5*t60*t61+0.5*t22*t23;
2863 t63 = pow(t62,4.0);
2864 t64 = 0.006*t62+1.0;
2865 t65 = 1/pow(t64,4.0);
2866 t66 = pow(t62,3.0);
2867 t67 = 1/pow(t64,3.0);
2868 t68 = pow(t62,2.0);
2869 t69 = 1/pow(t64,2.0);
2870 t70 = 1/t64;
2871 t71 = 0.02738796*t62*t70-4.8790439999999996E-4*t68*t69+
2872 2.8905119999999995E-6*t66*t67-4.11470928E-9*t63*t65+0.0821827;
2873 t72 = rhob+
2874 rhoa;
2875 t73 = pow(t72,.3333333333333333);
2876 t74 = 1/t73;
2877 t75 = 0.2137*t1*t2*t4*t74+1.0;
2878 t76 = 1/pow(t72,.6666666666666666);
2879 t77 = sqrt(t3*t73);
2880 t78 = 1/pow(t77,3.0);
2881 t79 = 1/t77;
2882 t80 = 7.5957*t10*t11*t79+0.8191*t5*t78+3.5876*t1*t2*t4*
2883 t74+0.49294*t12*t13*t15*t76;
2884 t81 = 16.0818243221511/t80+1.0;
2885 t82 = log(t81);
2886 t83 = -0.062182*t75*t82;
2887 t84 = 1/(2.0*t9-2.0);
2888 t85 = rhoa-1.0*rhob;
2889 t86 = pow(t85,4.0);
2890 t87 = 1/pow(t72,4.0);
2891 t88 = 1.0-1.0*t86*t87;
2892 t89 = 0.11125*t1*t2*t4*t74+1.0;
2893 t90 = 1/t72;
2894 t91 = 1.0-1.0*t85*t90;
2895 t92 = t85*t90+1.0;
2896 t93 = pow(t92,1.333333333333333)+pow(t91,1.333333333333333)-
2897 2.0;
2898 t94 = 10.357*t10*t11*t79+0.44013*t5*t78+3.6231*t1*t2*
2899 t4*t74+0.49671*t12*t13*t15*t76;
2900 t95 = 29.60857464321668/t94+1.0;
2901 t96 = log(t95);
2902 t97 = .01975178970256521*t84*t88*t89*t93*t96;
2903 t98 = 0.20548*t1*t2*t4*t74+1.0;
2904 t99 = 14.1189*t10*t11*t79+1.6831*t5*t78+6.1977*t1*t2*
2905 t4*t74+0.62517*t12*t13*t15*t76;
2906 t100 = 32.1646831778707/t99+1.0;
2907 t101 = log(t100);
2908 t102 = 0.062182*t75*t82-0.03109*t98*t101;
2909 t103 = t84*t86*t87*t93*t102;
2910 t104 = 1/pow(t72,1.666666666666667);
2911 t105 = 1/pow(t72,1.333333333333333);
2912 t106 = 1/pow(t77,5.0);
2913 t107 = -1.26595*t10*t11*t3*t76*t78-0.40955*t5*t3*t76*
2914 t106-1.195866666666667*t1*t2*t4*t105-.3286266666666666*t12*
2915 t13*t15*t104;
2916 t108 = 1/pow(t80,2.0);
2917 t109 = 1/t81;
2918 t110 = .9999999999999999*t75*t107*t108*t109;
2919 t111 = -1.726166666666666*t10*t11*t3*t76*t78-0.220065*
2920 t5*t3*t76*t106-1.2077*t1*t2*t4*t105-0.33114*t12*t13*t15*t104;
2921 t112 = 1/
2922 pow(t94,2.0);
2923 t113 = 1/t95;
2924 t114 = -.5848223397455204*t84*t88*t89*t93*t111*t112*t113;
2925 t115 = .004429431133333333*
2926 t1*t2*t4*t105*t82;
2927 t116 = 1/pow(t72,2.0);
2928 t117 = t85*t116;
2929 t118 = -1.0*t90;
2930 t119 = t118+t117;
2931 t120 = pow(t91,.3333333333333333);
2932 t121 = -1.0*t116*t85;
2933 t122 = t90+t121;
2934 t123 = pow(t92,.3333333333333333);
2935 t124 = 1.333333333333333*t122*t123+1.333333333333333*
2936 t119*t120;
2937 t125 = .01975178970256521*t84*t88*t89*t124*t96;
2938 t126 = -7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t93*
2939 t96;
2940 t127 = 1/pow(t72,5.0);
2941 t128 = 4.0*t127*t86;
2942 t129 = pow(t85,3.0);
2943 t130 = t128-4.0*t129*t87;
2944 t131 = .01975178970256521*t84*t130*t89*t93*t96;
2945 t132 = -2.35315*t10*t11*t3*t76*t78-0.84155*t5*t3*t76*
2946 t106-2.0659*t1*t2*t4*t105-0.41678*t12*t13*t15*t104;
2947 t133 = 1/pow(t99,2.0);
2948 t134 = 1/t100;
2949 t135 = .002129457733333333*t1*t2*t4*t105*t101-.004429431133333333*
2950 t1*t2*t4*t105*t82+1.0*t98*t132*t133*t134-.9999999999999999*
2951 t75*t107*t108*t109;
2952 t136 = t84*t86*t87*t93*t135;
2953 t137 = t84*t86*t87*t124*t102;
2954 t138 = -4.0*t102*t127*t84*t86*t93;
2955 t139 = -1.0*t51*t56*t35*t57*rhoa+t97+t72*(4.0*t102*t129*
2956 t84*t87*t93+t138+t137+t136+t131+t126+t125+t115+t114+t110)+
2957 t83+0.03109*t20*t35-.002129457733333333*t1*t2*t4*t20*t17+t103;
2958 t140 = 1/
2959 pow(t64,5.0);
2960 t141 = -0.03651728*t22*t49*t70+0.00152018208*t22*t49*
2961 t62*t69-1.9368518399999998E-5*t22*t49*t68*t67+9.131740416E-8*
2962 t22*t49*t66*t65-1.3167069696E-10*t22*t49*t63*t140;
2963 t142 = pow(rhob,.3333333333333333);
2964 t143 = sqrt(t3*t142);
2965 t144 = 1/pow(t143,3.0);
2966 t145 = 1/pow(rhob,.6666666666666666);
2967 t146 = 1/t142;
2968 t147 = 6.1977*t1*t2*t4*t146+0.62517*t12*t13*t15*t145+
2969 1.6831*t5*t144+14.1189*t10*t11/t143;
2970 t148 = 32.1646831778707/t147+1.0;
2971 t149 = log(t148);
2972 t150 = 0.20548*t1*t2*t4*t146+1.0;
2973 t151 = t72*(t103+t97+t83)+0.03109*t149*t150*rhob+0.03109*
2974 t20*t35*rhoa;
2975 t152 = pow(gradb,8.0);
2976 t153 = 0.2*t60*t61+1.0;
2977 t154 = 1/pow(t153,4.0);
2978 t155 = 1/pow(rhob,10.66666666666667);
2979 t156 = pow(gradb,6.0);
2980 t157 = 1/pow(t153,3.0);
2981 t158 = 1/pow(rhob,8.0);
2982 t159 = pow(gradb,4.0);
2983 t160 = 1/pow(t153,2.0);
2984 t161 = 1/pow(rhob,5.333333333333333);
2985 t162 = 1/t153;
2986 t163 = 0.00637686*t60*t162*t61-.07140480000000002*t159*
2987 t160*t161+0.0191836*t156*t157*t158-.001403054400000001*t152*
2988 t154*t155+2.82414;
2989 t164 = 0.004*t60*t61+1.0;
2990 t165 = 1/pow(t164,4.0);
2991 t166 = 1/pow(t164,3.0);
2992 t167 = 1/pow(t164,2.0);
2993 t168 = 1/t164;
2994 t169 = -0.001443124*t60*t168*t61+5.631904E-5*t159*t167*
2995 t161-3.1740416000000005E-7*t156*t166*t158+6.173823999999999E-10*
2996 t152*t165*t155+1.03161;
2997 t170 = pow(gradb,10.0);
2998 t171 = 1/pow(t153,5.0);
2999 t172 = 1/pow(rhob,14.33333333333333);
3000 t173 = 1/pow(rhob,11.66666666666667);
3001 t174 = 1/pow(rhob,9.0);
3002 t175 = 1/pow(rhob,6.333333333333333);
3003 t176 = 1/pow(rhob,3.666666666666667);
3004 t177 = -0.01700496*t60*t162*t176+.3842265920000001*t159*
3005 t160*t175-0.22963392*t156*t157*t174+.04565967360000001*t152*
3006 t154*t173-.002993182720000002*t170*t171*t172;
3007 t178 = 1/t148;
3008 t179 = 1/pow(rhob,1.666666666666667);
3009 t180 = pow(rhob,1.333333333333333);
3010 t181 = 1/t180;
3011 t182 = 1/pow(t143,5.0);
3012 t183 = -2.35315*t10*t11*t3*t144*t145-0.84155*t5*t3*t182*
3013 t145-2.0659*t1*t2*t4*t181-0.41678*t12*t13*t15*t179;
3014 t184 = 1/pow(t147,2.0);
3015 t185 = 1/pow(t164,5.0);
3016 t186 = .003848330666666667*t60*t168*t176-3.1576153599999995E-4*
3017 t159*t167*t175+3.740706133333333E-6*t156*t166*t174-1.6742345386666668E-8*
3018 t152*t165*t173+2.634164906666666E-11*t170*t185*t172;
3019 t187 = t90+t117;
3020 t188 = t118+t121;
3021 t189 = 1.333333333333333*t123*t188+1.333333333333333*
3022 t120*t187;
3023 t190 = .01975178970256521*t84*t88*t89*t189*t96;
3024 t191 = 4.0*t129*t87+t128;
3025 t192 = .01975178970256521*t84*t191*t89*t93*t96;
3026 t193 = t84*t86*t87*t189*t102;
3027 t194 = -1.0*t178*t183*t150*t184*rhob+t97+t72*(-4.0*t102*
3028 t129*t84*t87*t93+t193+t192+t190+t138+t136+t126+t115+t114+t110)+
3029 t83+0.03109*t149*t150-.002129457733333333*t1*t2*t4*t149*t146+
3030 t103;
3031 t195 = -0.03651728*t60*t70*t176+0.00152018208*t60*t62*
3032 t69*t176-1.9368518399999998E-5*t60*t68*t67*t176+9.131740416E-8*
3033 t60*t66*t65*t176-1.3167069696E-10*t60*t63*t140*t176;
3034 t196 = pow(grada,9.0);
3035 t197 = 1/pow(rhoa,13.33333333333333);
3036 t198 = pow(grada,7.0);
3037 t199 = pow(grada,5.0);
3038 t200 = pow(grada,3.0);
3039 t201 = 0.01275372*grada*t33*t23-.2881699440000001*t200*
3040 t31*t32+0.17222544*t199*t28*t29-.03424475520000001*t198*t25*
3041 t26+.002244887040000001*t196*t44*t197;
3042 t202 = -0.002886248*grada*t41*t23+2.3682115199999998E-4*
3043 t200*t40*t32-2.8055296E-6*t199*t39*t29+1.255675904E-8*t198*
3044 t38*t26-1.97562368E-11*t196*t58*t197;
3045 t203 = 0.02738796*grada*t23*t70-0.00114013656*grada*t23*
3046 t62*t69+1.45263888E-5*grada*t23*t68*t67-6.848805312000001E-8*
3047 grada*t23*t66*t65+9.875302271999999E-11*grada*t23*t63*t140;
3048 t204 = pow(gradb,
3049 9.0);
3050 t205 = 1/pow(rhob,13.33333333333333);
3051 t206 = pow(gradb,7.0);
3052 t207 = pow(gradb,5.0);
3053 t208 = pow(gradb,3.0);
3054 t209 = 0.01275372*gradb*t162*t61-.2881699440000001*t208*
3055 t160*t161+0.17222544*t207*t157*t158-.03424475520000001*t206*
3056 t154*t155+.002244887040000001*t204*t171*t205;
3057 t210 = -0.002886248*gradb*t168*t61+2.3682115199999998E-4*
3058 t208*t167*t161-2.8055296E-6*t207*t166*t158+1.255675904E-8*
3059 t206*t165*t155-1.97562368E-11*t204*t185*t205;
3060 t211 = 0.02738796*gradb*t70*t61-0.00114013656*gradb*t62*
3061 t69*t61+1.45263888E-5*gradb*t68*t67*t61-6.848805312000001E-8*
3062 gradb*t66*t65*t61+9.875302271999999E-11*gradb*t63*t140*t61;
3063 t212 = pow(grada,
3064 12.0);
3065 t213 = 1/pow(t24,6.0);
3066 t214 = 1/pow(rhoa,18.0);
3067 t215 = 1/pow(rhoa,15.33333333333333);
3068 t216 = 1/pow(rhoa,12.66666666666667);
3069 t217 = 1/pow(rhoa,10.0);
3070 t218 = 1/pow(rhoa,7.333333333333333);
3071 t219 = 1/pow(rhoa,4.666666666666667);
3072 t220 = .06235151999999999*t22*t33*t219-2.442504394666667*
3073 t30*t31*t218+2.476546978133334*t27*t28*t217-.9001104640000002*
3074 t21*t25*t216+.1403095893333334*t43*t44*t215-0.00798182058666667*
3075 t212*t213*t214;
3076 t221 = 1/pow(t19,2.0);
3077 t222 = pow(t56,2.0);
3078 t223 = 1/pow(t18,4.0);
3079 t224 = 1/pow(t18,3.0);
3080 t225 = 1/pow(rhoa,2.333333333333333);
3081 t226 = 1/pow(t7,7.0);
3082 t227 = 1.176575*t10*t11*t14*t55*t54+.7012916666666668*
3083 t5*t14*t226*t54+1.568766666666666*t10*t11*t3*t8*t52+.5610333333333333*
3084 t5*t3*t55*t52+2.754533333333333*t1*t2*t4*t225+.6946333333333333*
3085 t12*t13*t15*t23;
3086 t228 = 1/pow(t37,6.0);
3087 t229 = -.01411054577777778*t22*t41*t219+.002040871921777777*
3088 t30*t40*t218-4.040260130133333E-5*t27*t39*t217+3.1502995911111115E-7*
3089 t21*t38*t216-1.0919037064533334E-9*t43*t58*t215+1.404887950222222E-12*
3090 t212*t228*t214;
3091 t230 = 2.0*t75*t107*t108*t109;
3092 t231 = -1.169644679491041*t84*t88*t89*t93*t111*t112*t113;
3093 t232 = .008858862266666667*
3094 t1*t2*t4*t105*t82;
3095 t233 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t93*
3096 t96;
3097 t234 = 2.0*t135*t84*t86*t87*t93;
3098 t235 = -8.0*t102*t127*t84*t86*t93;
3099 t236 = pow(t107,2.0);
3100 t237 = 1/pow(t80,4.0);
3101 t238 = 1/pow(t81,2.0);
3102 t239 = 16.0818243221511*t75*t236*t237*t238;
3103 t240 = 1/pow(t80,3.0);
3104 t241 = -2.0*t75*t236*t240*t109;
3105 t242 = 1/pow(t72,2.666666666666667);
3106 t243 = 1/pow(t72,2.333333333333333);
3107 t244 = 1/pow(t77,7.0);
3108 t245 = .8439666666666665*t10*t11*t3*t104*t78+0.632975*
3109 t10*t11*t14*t105*t106+.2730333333333334*t5*t3*t104*t106+.3412916666666667*
3110 t5*t14*t105*t244+1.594488888888889*t1*t2*t4*t243+0.547711111111111*
3111 t12*t13*t15*t242;
3112 t246 = .9999999999999999*t75*t245*t108*t109;
3113 t247 = -.1424666666666666*t1*t2*t4*t105*t107*t108*t109;
3114 t248 = pow(t111,
3115 2.0);
3116 t249 = 1/pow(t94,4.0);
3117 t250 = 1/pow(t95,2.0);
3118 t251 = -17.31575589937587*t84*t88*t89*t93*t248*t249*t250;
3119 t252 = 1/
3120 pow(t94,3.0);
3121 t253 = 1.169644679491041*t84*t88*t89*t93*t248*t252*t113;
3122 t254 = 1.150777777777777*
3123 t10*t11*t3*t104*t78+.8630833333333332*t10*t11*t14*t105*t106+
3124 0.14671*t5*t3*t104*t106+0.1833875*t5*t14*t105*t244+1.610266666666667*
3125 t1*t2*t4*t243+.5519000000000001*t12*t13*t15*t242;
3126 t255 = -.5848223397455204*t84*t88*t89*t93*t254*t112*t113;
3127 t256 = -
3128 1.169644679491041*t84*t88*t89*t124*t111*t112*t113;
3129 t257 = .04337432353112609*t84*t1*t2*t4*t105*t88*t93*t111*
3130 t112*t113;
3131 t258 = -1.169644679491041*t84*t130*t89*t93*t111*t112*
3132 t113;
3133 t259 = -.005905908177777777*t1*t2*t4*t243*t82;
3134 t260 = pow(t119,2.0);
3135 t261 = 1/pow(t91,.6666666666666666);
3136 t262 = 1/pow(t72,3.0);
3137 t263 = -2.0*t262*t85;
3138 t264 = 2.0*t116;
3139 t265 = t264+t263;
3140 t266 = pow(t122,2.0);
3141 t267 = 1/pow(t92,.6666666666666666);
3142 t268 = 2.0*t262*t85;
3143 t269 = -2.0*t116;
3144 t270 = t269+t268;
3145 t271 = 1.333333333333333*t123*t270+.4444444444444444*
3146 t266*t267+1.333333333333333*t120*t265+.4444444444444444*t260*
3147 t261;
3148 t272 = .01975178970256521*t84*t88*t89*t271*t96;
3149 t273 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t124*
3150 t96;
3151 t274 = .03950357940513041*t84*t130*t89*t124*t96;
3152 t275 = -.001464924402940253*t84*t1*t2*t4*t105*t130*t93*
3153 t96;
3154 t276 = 9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t93*
3155 t96;
3156 t277 = 1/pow(t72,6.0);
3157 t278 = -20.0*t277*t86;
3158 t279 = pow(t85,2.0);
3159 t280 = -12.0*t279*t87;
3160 t281 = t280+t278+32.0*t127*t129;
3161 t282 = .01975178970256521*t84*t281*t89*t93*t96;
3162 t283 = pow(t132,2.0);
3163 t284 = 1/pow(t99,4.0);
3164 t285 = 1/pow(t100,2.0);
3165 t286 = 1/pow(t99,3.0);
3166 t287 = 1.568766666666666*t10*t11*t3*t104*t78+1.176575*
3167 t10*t11*t14*t105*t106+.5610333333333333*t5*t3*t104*t106+.7012916666666668*
3168 t5*t14*t105*t244+2.754533333333333*t1*t2*t4*t243+.6946333333333333*
3169 t12*t13*t15*t242;
3170 t288 = -.002839276977777777*t1*t2*t4*t243*t101+.005905908177777777*
3171 t1*t2*t4*t243*t82-.1369866666666666*t1*t2*t4*t105*t132*t133*
3172 t134+1.0*t98*t287*t133*t134-2.0*t98*t283*t286*t134+32.1646831778707*
3173 t98*t283*t284*t285+.1424666666666666*t1*t2*t4*t105*t107*t108*
3174 t109-.9999999999999999*t75*t245*t108*t109+2.0*t75*t236*t240*
3175 t109-16.0818243221511*t75*t236*t237*t238;
3176 t289 = t84*t86*t87*t93*t288;
3177 t290 = 2.0*t124*t135*t84*t86*t87;
3178 t291 = -8.0*t127*t135*t84*t86*t93;
3179 t292 = 8.0*t129*t135*t84*t87*t93;
3180 t293 = t84*t86*t87*t271*t102;
3181 t294 = -8.0*t102*t124*t127*t84*t86;
3182 t295 = 20.0*t102*t277*t84*t86*t93;
3183 t296 = -32.0*t102*t127*t129*t84*t93;
3184 t297 = 12.0*t102*t279*t84*t87*t93;
3185 t298 = -1.0*t51*t227*t35*t57*rhoa+2.0*t51*t222*t35*t224*
3186 rhoa-32.1646831778707*t221*t222*t35*t223*rhoa+.03950357940513041*
3187 t84*t130*t89*t93*t96+.03950357940513041*t84*t88*t89*t124*t96+
3188 8.0*t102*t129*t84*t87*t93+t72*(8.0*t102*t124*t129*t84*t87+
3189 t297+t296+t295+t294+t293+t292+t291+t290+t289+t282+t276+t275+
3190 t274+t273+t272+t259+t258+t257+t256+t255+t253+t251+t247+t246+
3191 t241+t239)+2.0*t102*t124*t84*t86*t87-2.0*t51*t56*t35*t57-.001419638488888889*
3192 t1*t2*t4*t20*t54+t235+t234+t233+t232+t231+t230+.1369866666666666*
3193 t1*t2*t4*t51*t56*t57*t17;
3194 t299 = 1/pow(t64,6.0);
3195 t300 = .1338966933333333*t22*t219*t70-.005574000959999999*
3196 t22*t219*t62*t69-.002319047679999999*t30*t218*t69+7.101790079999999E-5*
3197 t22*t219*t68*t67+7.597229567999998E-5*t30*t218*t62*t67-3.3483048192000003E-7*
3198 t22*t219*t66*t65-8.301140582400001E-7*t30*t218*t68*t65+4.8279255552E-10*
3199 t22*t219*t63*t140+3.62440065024E-9*t30*t218*t66*t140-5.2668278784E-12*
3200 t30*t218*t63*t299;
3201 t301 = 2.666666666666667*t123*t262*t85-2.666666666666667*
3202 t120*t262*t85+.4444444444444444*t122*t188*t267+.4444444444444444*
3203 t119*t187*t261;
3204 t302 = 12.0*t279*t87+t278;
3205 t303 = -12.0*t102*t279*t84*t87*t93;
3206 t304 = t72*(.01975178970256521*t84*t302*t89*t93*t96-7.324622014701263E-4*
3207 t84*t1*t2*t4*t105*t191*t93*t96-7.324622014701263E-4*t84*t1*
3208 t2*t4*t105*t130*t93*t96+.01975178970256521*t84*t88*t89*t301*
3209 t96+.01975178970256521*t84*t130*t89*t189*t96-7.324622014701263E-4*
3210 t84*t1*t2*t4*t105*t88*t189*t96+.01975178970256521*t84*t191*
3211 t89*t124*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t124*
3212 t96+4.0*t102*t129*t189*t84*t87-4.0*t102*t124*t129*t84*t87-
3213 4.0*t102*t127*t189*t84*t86-4.0*t102*t124*t127*t84*t86+t303+
3214 t295+t291+t289+t276+t259+t257+t255+t253+t251+t247+t246+t241+
3215 t239+t84*t86*t87*t189*t135+t84*t86*t87*t124*t135-.5848223397455204*
3216 t84*t191*t89*t93*t111*t112*t113-.5848223397455204*t84*t130*
3217 t89*t93*t111*t112*t113-.5848223397455204*t84*t88*t89*t189*
3218 t111*t112*t113-.5848223397455204*t84*t88*t89*t124*t111*t112*
3219 t113+t84*t86*t87*t301*t102)+t235+t234+t233+t232+t231+t230+
3220 t193+t192+t190+t137+t131+t125;
3221 t305 = -.002319047679999999*t22*t60*t49*t69*t176+7.597229567999998E-5*
3222 t22*t60*t49*t62*t67*t176-8.301140582400001E-7*t22*t60*t49*
3223 t68*t65*t176+3.62440065024E-9*t22*t60*t49*t66*t140*t176-5.2668278784E-12*
3224 t22*t60*t49*t63*t299*t176;
3225 t306 = pow(grada,11.0);
3226 t307 = 1/pow(rhoa,17.0);
3227 t308 = -0.03400992*grada*t33*t49+1.543708352*t200*t31*
3228 t48-1.6851847936*t199*t28*t47+.6408380928000001*t198*t25*t46-
3229 0.10298730496*t196*t44*t45+.005986365440000003*t306*t213*t307;
3230 t309 = .007696661333333334*
3231 grada*t41*t49-.001293832789333333*t200*t40*t48+2.7496421375999996E-5*
3232 t199*t39*t47-2.2371571029333337E-7*t198*t38*t46+7.991715430399999E-10*
3233 t196*t58*t45-1.053665962666667E-12*t306*t228*t307;
3234 t310 = -0.07303456*grada*t49*t70+0.00304036416*grada*
3235 t49*t62*t69+0.00173928576*t200*t48*t69-3.8737036799999996E-5*
3236 grada*t49*t68*t67-5.697922176E-5*t200*t48*t62*t67+1.8263480832E-7*
3237 grada*t49*t66*t65+6.225855436800002E-7*t200*t48*t68*t65-2.6334139392E-10*
3238 grada*t49*t63*t140-2.7183004876800004E-9*t200*t48*t66*t140+
3239 3.9501209088E-12*t200*t48*t63*t299;
3240 t311 = 0.00173928576*t22*gradb*t49*t69*t61-5.697922176E-5*
3241 t22*gradb*t49*t62*t67*t61+6.225855436800002E-7*t22*gradb*t49*
3242 t68*t65*t61-2.7183004876800004E-9*t22*gradb*t49*t66*t140*t61+
3243 3.9501209088E-12*t22*gradb*t49*t63*t299*t61;
3244 t312 = pow(gradb,12.0);
3245 t313 = 1/pow(t153,6.0);
3246 t314 = 1/pow(rhob,18.0);
3247 t315 = 1/pow(rhob,15.33333333333333);
3248 t316 = 1/pow(rhob,12.66666666666667);
3249 t317 = 1/pow(rhob,10.0);
3250 t318 = 1/pow(rhob,7.333333333333333);
3251 t319 = 1/pow(rhob,4.666666666666667);
3252 t320 = .06235151999999999*t60*t162*t319-2.442504394666667*
3253 t159*t160*t318+2.476546978133334*t156*t157*t317-.9001104640000002*
3254 t152*t154*t316+.1403095893333334*t170*t171*t315-0.00798182058666667*
3255 t312*t313*t314;
3256 t321 = 1/pow(t148,2.0);
3257 t322 = pow(t183,2.0);
3258 t323 = 1/pow(t147,4.0);
3259 t324 = 1/pow(t147,3.0);
3260 t325 = 1/pow(rhob,2.333333333333333);
3261 t326 = 1/pow(t143,7.0);
3262 t327 = 1.176575*t10*t11*t14*t182*t181+.7012916666666668*
3263 t5*t14*t326*t181+1.568766666666666*t10*t11*t3*t144*t179+.5610333333333333*
3264 t5*t3*t182*t179+2.754533333333333*t1*t2*t4*t325+.6946333333333333*
3265 t12*t13*t15*t61;
3266 t328 = 1/pow(t164,6.0);
3267 t329 = -.01411054577777778*t60*t168*t319+.002040871921777777*
3268 t159*t167*t318-4.040260130133333E-5*t156*t166*t317+3.1502995911111115E-7*
3269 t152*t165*t316-1.0919037064533334E-9*t170*t185*t315+1.404887950222222E-12*
3270 t312*t328*t314;
3271 t330 = -1.169644679491041*t84*t88*t89*t189*t111*t112*
3272 t113;
3273 t331 = -1.169644679491041*t84*t191*t89*t93*t111*t112*
3274 t113;
3275 t332 = pow(t187,2.0);
3276 t333 = t269+t263;
3277 t334 = pow(t188,2.0);
3278 t335 = t264+t268;
3279 t336 = 1.333333333333333*t123*t335+.4444444444444444*
3280 t267*t334+1.333333333333333*t120*t333+.4444444444444444*t261*
3281 t332;
3282 t337 = .01975178970256521*t84*t88*t89*t336*t96;
3283 t338 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t189*
3284 t96;
3285 t339 = .03950357940513041*t84*t191*t89*t189*t96;
3286 t340 = -.001464924402940253*t84*t1*t2*t4*t105*t191*t93*
3287 t96;
3288 t341 = t280+t278-32.0*t127*t129;
3289 t342 = .01975178970256521*t84*t341*t89*t93*t96;
3290 t343 = 2.0*t135*t189*t84*t86*t87;
3291 t344 = -8.0*t129*t135*t84*t87*t93;
3292 t345 = t84*t86*t87*t336*t102;
3293 t346 = -8.0*t102*t127*t189*t84*t86;
3294 t347 = 32.0*t102*t127*t129*t84*t93;
3295 t348 = 2.0*t178*t322*t150*t324*rhob-32.1646831778707*
3296 t321*t322*t150*t323*rhob-1.0*t178*t327*t150*t184*rhob+.03950357940513041*
3297 t84*t191*t89*t93*t96+.03950357940513041*t84*t88*t89*t189*t96-
3298 8.0*t102*t129*t84*t87*t93+t72*(-8.0*t102*t129*t189*t84*t87+
3299 t347+t346+t345+t344+t343+t342+t340+t339+t338+t337+t331+t330+
3300 t297+t295+t291+t289+t276+t259+t257+t255+t253+t251+t247+t246+
3301 t241+t239)+2.0*t102*t189*t84*t86*t87+t235+t234+t233+t232+t231+
3302 t230-2.0*t178*t183*t150*t184-.001419638488888889*t1*t2*t4*
3303 t149*t181+.1369866666666666*t1*t2*t4*t178*t183*t184*t146;
3304 t349 = .1338966933333333*
3305 t60*t70*t319-.005574000959999999*t60*t62*t69*t319+7.101790079999999E-5*
3306 t60*t68*t67*t319-3.3483048192000003E-7*t60*t66*t65*t319+4.8279255552E-10*
3307 t60*t63*t140*t319-.002319047679999999*t159*t69*t318+7.597229567999998E-5*
3308 t159*t62*t67*t318-8.301140582400001E-7*t159*t68*t65*t318+3.62440065024E-9*
3309 t159*t66*t140*t318-5.2668278784E-12*t159*t63*t299*t318;
3310 t350 = 0.00173928576*grada*t60*t23*t69*t176-5.697922176E-5*
3311 grada*t60*t23*t62*t67*t176+6.225855436800002E-7*grada*t60*
3312 t23*t68*t65*t176-2.7183004876800004E-9*grada*t60*t23*t66*t140*
3313 t176+3.9501209088E-12*grada*t60*t23*t63*t299*t176;
3314 t351 = pow(gradb,11.0);
3315 t352 = 1/pow(rhob,17.0);
3316 t353 = -0.03400992*gradb*t162*t176+1.543708352*t208*t160*
3317 t175-1.6851847936*t207*t157*t174+.6408380928000001*t206*t154*
3318 t173-0.10298730496*t204*t171*t172+.005986365440000003*t351*
3319 t313*t352;
3320 t354 = .007696661333333334*gradb*t168*t176-.001293832789333333*
3321 t208*t167*t175+2.7496421375999996E-5*t207*t166*t174-2.2371571029333337E-7*
3322 t206*t165*t173+7.991715430399999E-10*t204*t185*t172-1.053665962666667E-12*
3323 t351*t328*t352;
3324 t355 = -0.07303456*gradb*t70*t176+0.00304036416*gradb*
3325 t62*t69*t176-3.8737036799999996E-5*gradb*t68*t67*t176+1.8263480832E-7*
3326 gradb*t66*t65*t176-2.6334139392E-10*gradb*t63*t140*t176+0.00173928576*
3327 t208*t69*t175-5.697922176E-5*t208*t62*t67*t175+6.225855436800002E-7*
3328 t208*t68*t65*t175-2.7183004876800004E-9*t208*t66*t140*t175+
3329 3.9501209088E-12*t208*t63*t299*t175;
3330 t356 = 1/pow(rhoa,16.0);
3331 t357 = 0.01275372*t33*t23-.8696113200000002*t22*t31*t32+
3332 1.0916631552*t30*t28*t29-.4463838144000002*t27*t25*t26+.07499559168000003*
3333 t21*t44*t197-.004489774080000002*t43*t213*t356;
3334 t358 = -0.002886248*t41*t23+7.335534399999999E-4*t22*
3335 t40*t32-1.7816786431999998E-5*t30*t39*t29+1.5523002368000002E-7*
3336 t27*t38*t26-5.7962242048E-10*t21*t58*t197+7.90249472E-13*t43*
3337 t228*t356;
3338 t359 = 0.02738796*t23*t70-0.00114013656*t23*t62*t69-0.00130446432*
3339 t22*t32*t69+1.45263888E-5*t23*t68*t67+4.2734416319999996E-5*
3340 t22*t32*t62*t67-6.848805312000001E-8*t23*t66*t65-4.669391577600001E-7*
3341 t22*t32*t68*t65+9.875302271999999E-11*t23*t63*t140+2.0387253657600002E-9*
3342 t22*t32*t66*t140-2.962590681600001E-12*t22*t32*t63*t299;
3343 t360 = -
3344 0.00130446432*grada*gradb*t23*t69*t61+4.2734416319999996E-5*
3345 grada*gradb*t23*t62*t67*t61-4.669391577600001E-7*grada*gradb*
3346 t23*t68*t65*t61+2.0387253657600002E-9*grada*gradb*t23*t66*
3347 t140*t61-2.962590681600001E-12*grada*gradb*t23*t63*t299*t61;
3348 t361 = 1/
3349 pow(rhob,16.0);
3350 t362 = 0.01275372*t162*t61-.8696113200000002*t60*t160*
3351 t161+1.0916631552*t159*t157*t158-.4463838144000002*t156*t154*
3352 t155+.07499559168000003*t152*t171*t205-.004489774080000002*
3353 t170*t313*t361;
3354 t363 = -0.002886248*t168*t61+7.335534399999999E-4*t60*
3355 t167*t161-1.7816786431999998E-5*t159*t166*t158+1.5523002368000002E-7*
3356 t156*t165*t155-5.7962242048E-10*t152*t185*t205+7.90249472E-13*
3357 t170*t328*t361;
3358 t364 = 0.02738796*t70*t61-0.00114013656*t62*t69*t61+1.45263888E-5*
3359 t68*t67*t61-6.848805312000001E-8*t66*t65*t61+9.875302271999999E-11*
3360 t63*t140*t61-0.00130446432*t60*t69*t161+4.2734416319999996E-5*
3361 t60*t62*t67*t161-4.669391577600001E-7*t60*t68*t65*t161+2.0387253657600002E-9*
3362 t60*t66*t140*t161-2.962590681600001E-12*t60*t63*t299*t161;
3363 t365 = pow(grada,
3364 14.0);
3365 t366 = 1/pow(t24,7.0);
3366 t367 = 1/pow(rhoa,21.66666666666667);
3367 t368 = 1/pow(rhoa,19.0);
3368 t369 = 1/pow(rhoa,16.33333333333333);
3369 t370 = 1/pow(rhoa,13.66666666666667);
3370 t371 = 1/pow(rhoa,11.0);
3371 t372 = 1/pow(rhoa,8.333333333333334);
3372 t373 = 1/pow(rhoa,5.666666666666667);
3373 t374 = -0.29097376*t22*t33*t373+17.94495303822222*t30*
3374 t31*t372-27.37080780231112*t27*t28*t371+15.36387437568*t21*
3375 t25*t370-4.071649359644446*t43*t44*t369+.5178316754488891*
3376 t212*t213*t368-.02554182587733335*t365*t366*t367;
3377 t375 = 1/pow(t19,3.0);
3378 t376 = pow(t56,3.0);
3379 t377 = 1/pow(t18,6.0);
3380 t378 = 1/pow(t18,5.0);
3381 t379 = 1/pow(rhoa,3.333333333333333);
3382 t380 = 1/pow(t7,9.0);
3383 t381 = 1/pow(rhoa,2.0);
3384 t382 = -.9804791666666667*t10*t11*M_PI*t226*t381-.8181736111111113*
3385 t5*M_PI*t380*t381-2.35315*t10*t11*t14*t55*t225-1.402583333333333*
3386 t5*t14*t226*t225-2.614611111111111*t10*t11*t3*t8*t23-.9350555555555555*
3387 t5*t3*t55*t23-6.427244444444445*t1*t2*t4*t379-1.852355555555556*
3388 t12*t13*t15*t49;
3389 t383 = 1/pow(t37,7.0);
3390 t384 = .06584921362962963*t22*t41*t373-.01511690658133333*
3391 t30*t40*t372+4.4756461401125924E-4*t27*t39*t371-5.283262723716741E-6*
3392 t21*t38*t370+3.0183801754358525E-8*t43*t58*t369-8.352284744817775E-11*
3393 t212*t228*t368+8.99128288142222E-14*t365*t383*t367;
3394 t385 = 48.2454729664533*t75*t236*t237*t238;
3395 t386 = -6.0*t75*t236*t240*t109;
3396 t387 = 3.0*t75*t245*t108*t109;
3397 t388 = -.4273999999999999*t1*t2*t4*t105*t107*t108*t109;
3398 t389 = -
3399 51.9472676981276*t84*t88*t89*t93*t248*t249*t250;
3400 t390 = 3.508934038473122*t84*t88*t89*t93*t248*t252*t113;
3401 t391 = -
3402 1.754467019236561*t84*t88*t89*t93*t254*t112*t113;
3403 t392 = .1301229705933783*t84*t1*t2*t4*t105*t88*t93*t111*
3404 t112*t113;
3405 t393 = -.01771772453333333*t1*t2*t4*t243*t82;
3406 t394 = .002929848805880505*t84*t1*t2*t4*t243*t88*t93*
3407 t96;
3408 t395 = 3.0*t288*t84*t86*t87*t93;
3409 t396 = -24.0*t127*t135*t84*t86*t93;
3410 t397 = 60.0*t102*t277*t84*t86*t93;
3411 t398 = 36.0*t102*t279*t84*t87*t93;
3412 t399 = pow(t107,3.0);
3413 t400 = 1/pow(t80,6.0);
3414 t401 = 1/pow(t81,3.0);
3415 t402 = 517.2501470570614*t75*t399*t400*t401;
3416 t403 = 1/pow(t80,5.0);
3417 t404 = -96.4909459329066*t75*t399*t403*t238;
3418 t405 = 48.2454729664533*t75*t245*t107*t237*t238;
3419 t406 = -3.43668585764369*t1*t2*t4*t105*t236*t237*t238;
3420 t407 = 6.0*
3421 t75*t399*t237*t109;
3422 t408 = -6.0*t75*t245*t107*t240*t109;
3423 t409 = .4273999999999999*t1*t2*t4*t105*t236*t240*t109;
3424 t410 = 1/
3425 pow(t72,3.666666666666667);
3426 t411 = 1/pow(t72,3.333333333333333);
3427 t412 = 1/pow(t77,9.0);
3428 t413 = -1.406611111111111*t10*t11*t3*t242*t78-1.26595*
3429 t10*t11*t14*t243*t106-.4550555555555556*t5*t3*t242*t106-.5274791666666666*
3430 t10*t11*M_PI*t116*t244-.6825833333333334*t5*t14*t243*t244-.3981736111111112*
3431 t5*M_PI*t116*t412-3.720474074074074*t1*t2*t4*t411-1.460562962962963*
3432 t12*t13*t15*t410;
3433 t414 = .9999999999999999*t75*t413*t108*t109;
3434 t415 = -0.2137*t1*t2*t4*t105*t245*t108*t109;
3435 t416 = .2849333333333333*t1*t2*t4*t243*t107*t108*t109;
3436 t417 = pow(t111,
3437 3.0);
3438 t418 = 1/pow(t94,6.0);
3439 t419 = 1/pow(t95,3.0);
3440 t420 = -1025.38970210078*t84*t88*t89*t93*t417*t418*t419;
3441 t421 = 1/
3442 pow(t94,5.0);
3443 t422 = 103.8945353962552*t84*t88*t89*t93*t417*t421*t250;
3444 t423 = -
3445 51.9472676981276*t84*t88*t89*t93*t254*t111*t249*t250;
3446 t424 = -51.9472676981276*t84*t88*t89*t124*t248*t249*t250;
3447 t425 = 1.926377843805565*
3448 t84*t1*t2*t4*t105*t88*t93*t248*t249*t250;
3449 t426 = -51.9472676981276*t84*t130*t89*t93*t248*t249*t250;
3450 t427 = -
3451 3.508934038473122*t84*t88*t89*t93*t417*t249*t113;
3452 t428 = 3.508934038473122*t84*t88*t89*t93*t254*t111*t252*
3453 t113;
3454 t429 = 3.508934038473122*t84*t88*t89*t124*t248*t252*t113;
3455 t430 = -
3456 .1301229705933783*t84*t1*t2*t4*t105*t88*t93*t248*t252*t113;
3457 t431 = 3.508934038473122*
3458 t84*t130*t89*t93*t248*t252*t113;
3459 t432 = -1.917962962962962*t10*t11*t3*t242*t78-1.726166666666666*
3460 t10*t11*t14*t243*t106-.2445166666666667*t5*t3*t242*t106-.7192361111111111*
3461 t10*t11*M_PI*t116*t244-0.366775*t5*t14*t243*t244-.2139520833333333*
3462 t5*M_PI*t116*t412-3.757288888888889*t1*t2*t4*t411-1.471733333333333*
3463 t12*t13*t15*t410;
3464 t433 = -.5848223397455204*t84*t88*t89*t93*t432*t112*t113;
3465 t434 = -
3466 1.754467019236561*t84*t88*t89*t124*t254*t112*t113;
3467 t435 = .06506148529668915*t84*t1*t2*t4*t105*t88*t93*t254*
3468 t112*t113;
3469 t436 = -1.754467019236561*t84*t130*t89*t93*t254*t112*
3470 t113;
3471 t437 = .1301229705933783*t84*t1*t2*t4*t105*t88*t124*t111*
3472 t112*t113;
3473 t438 = .1301229705933783*t84*t1*t2*t4*t105*t130*t93*t111*
3474 t112*t113;
3475 t439 = -.08674864706225219*t84*t1*t2*t4*t243*t88*t93*
3476 t111*t112*t113;
3477 t440 = .01378045241481481*t1*t2*t4*t411*t82;
3478 t441 = pow(t119,3.0);
3479 t442 = 1/pow(t91,1.666666666666667);
3480 t443 = 6.0*t85*t87;
3481 t444 = -6.0*t262;
3482 t445 = t444+t443;
3483 t446 = pow(t122,3.0);
3484 t447 = 1/pow(t92,1.666666666666667);
3485 t448 = -6.0*t85*t87;
3486 t449 = 6.0*t262;
3487 t450 = t449+t448;
3488 t451 = 1.333333333333333*t123*t450-.2962962962962963*
3489 t446*t447+1.333333333333333*t120*t445-.2962962962962963*t441*
3490 t442+1.333333333333333*t122*t267*t270+1.333333333333333*t119*
3491 t261*t265;
3492 t452 = .01975178970256521*t84*t88*t89*t451*t96;
3493 t453 = .05925536910769562*t84*t130*t89*t271*t96;
3494 t454 = .002929848805880505*t84*t1*t2*t4*t243*t88*t124*
3495 t96;
3496 t455 = .05925536910769562*t84*t281*t89*t124*t96;
3497 t456 = .002929848805880505*t84*t1*t2*t4*t243*t130*t93*
3498 t96;
3499 t457 = -.002278771293462615*t84*t1*t2*t4*t411*t88*t93*
3500 t96;
3501 t458 = 1/pow(t72,7.0);
3502 t459 = 120.0*t458*t86;
3503 t460 = 144.0*t127*t279;
3504 t461 = -24.0*t85*t87;
3505 t462 = t461+t460+t459-240.0*t129*t277;
3506 t463 = .01975178970256521*t84*t462*t89*t93*t96;
3507 t464 = pow(t132,3.0);
3508 t465 = 1/pow(t99,6.0);
3509 t466 = 1/pow(t100,3.0);
3510 t467 = 1/pow(t99,5.0);
3511 t468 = -2.614611111111111*t10*t11*t3*t242*t78-2.35315*
3512 t10*t11*t14*t243*t106-.9350555555555555*t5*t3*t242*t106-.9804791666666667*
3513 t10*t11*M_PI*t116*t244-1.402583333333333*t5*t14*t243*t244-.8181736111111113*
3514 t5*M_PI*t116*t412-6.427244444444445*t1*t2*t4*t411-1.852355555555556*
3515 t12*t13*t15*t410;
3516 t469 = .006624979614814813*t1*t2*t4*t411*t101-.01378045241481481*
3517 t1*t2*t4*t411*t82+.2739733333333333*t1*t2*t4*t243*t132*t133*
3518 t134-0.20548*t1*t2*t4*t105*t287*t133*t134+1.0*t98*t468*t133*
3519 t134+.4109599999999999*t1*t2*t4*t105*t283*t286*t134-6.0*t98*
3520 t287*t132*t286*t134+6.0*t98*t464*t284*t134-6.60919909938887*
3521 t1*t2*t4*t105*t283*t284*t285+96.4940495336121*t98*t287*t132*
3522 t284*t285-192.9880990672242*t98*t464*t467*t285+2069.133687865597*
3523 t98*t464*t465*t466-.2849333333333333*t1*t2*t4*t243*t107*t108*
3524 t109+0.2137*t1*t2*t4*t105*t245*t108*t109-.9999999999999999*
3525 t75*t413*t108*t109-.4273999999999999*t1*t2*t4*t105*t236*t240*
3526 t109+6.0*t75*t245*t107*t240*t109-6.0*t75*t399*t237*t109+3.43668585764369*
3527 t1*t2*t4*t105*t236*t237*t238-48.2454729664533*t75*t245*t107*
3528 t237*t238+96.4909459329066*t75*t399*t403*t238-517.2501470570614*
3529 t75*t399*t400*t401;
3530 t470 = t84*t86*t87*t93*t469;
3531 t471 = 3.0*t124*t288*t84*t86*t87;
3532 t472 = -12.0*t127*t288*t84*t86*t93;
3533 t473 = -24.0*t124*t127*t135*t84*t86;
3534 t474 = 24.0*t124*t129*t135*t84*t87;
3535 t475 = 60.0*t135*t277*t84*t86*t93;
3536 t476 = 36.0*t135*t279*t84*t87*t93;
3537 t477 = t84*t86*t87*t451*t102;
3538 t478 = 60.0*t102*t124*t277*t84*t86;
3539 t479 = -96.0*t102*t124*t127*t129*t84;
3540 t480 = 36.0*t102*t124*t279*t84*t87;
3541 t481 = -120.0*t102*t458*t84*t86*t93;
3542 t482 = -144.0*t102*t127*t279*t84*t93;
3543 t483 = 24.0*t102*t84*t85*t87*t93;
3544 t484 = -1.0*t51*t382*t35*t57*rhoa+192.9880990672242*t221*
3545 t376*t35*t378*rhoa-2069.133687865597*t375*t376*t35*t377*rhoa+
3546 6.0*t51*t227*t56*t35*t224*rhoa-96.4940495336121*t221*t227*
3547 t56*t35*t223*rhoa-6.0*t51*t376*t35*t223*rhoa+t72*(-.002197386604410379*
3548 t84*t1*t2*t4*t105*t281*t93*t96-.002197386604410379*t84*t1*
3549 t2*t4*t105*t88*t271*t96-.004394773208820758*t84*t1*t2*t4*t105*
3550 t130*t124*t96+12.0*t129*t288*t84*t87*t93+240.0*t102*t129*t277*
3551 t84*t93-96.0*t127*t129*t135*t84*t93+3.0*t135*t271*t84*t86*
3552 t87+12.0*t102*t129*t271*t84*t87-12.0*t102*t127*t271*t84*t86+
3553 t483+t482+t481+t480+t479+t478+t477+t476+t475+t474+t473+t472+
3554 t471+t470+t463+t457+t456+t455+t454+t453+t452+t440+t439+t438+
3555 t437+t436+t435+t434+t433+t431+t430+t429+t428+t427+t426+t425+
3556 t424+t423+t422+t420+t416+t415+t414+t409+t408+t407+t406+t405+
3557 t404+t402-1.754467019236561*t84*t281*t89*t93*t111*t112*t113-
3558 1.754467019236561*t84*t88*t89*t271*t111*t112*t113-3.508934038473122*
3559 t84*t130*t89*t124*t111*t112*t113)+.05925536910769562*t84*t281*
3560 t89*t93*t96-.004394773208820758*t84*t1*t2*t4*t105*t130*t93*
3561 t96+.05925536910769562*t84*t88*t89*t271*t96+.1185107382153912*
3562 t84*t130*t89*t124*t96-.004394773208820758*t84*t1*t2*t4*t105*
3563 t88*t124*t96+24.0*t129*t135*t84*t87*t93-96.0*t102*t127*t129*
3564 t84*t93+3.0*t102*t271*t84*t86*t87+6.0*t124*t135*t84*t86*t87+
3565 24.0*t102*t124*t129*t84*t87-24.0*t102*t124*t127*t84*t86-3.0*
3566 t51*t227*t35*t57+.1369866666666666*t1*t2*t4*t51*t56*t57*t54+
3567 t398+t397+t396+t395+t394+t393+t392+t391+t390+t389+t388+t387+
3568 t386+t385+.001892851318518518*t1*t2*t4*t20*t225+6.0*t51*t222*
3569 t35*t224-96.4940495336121*t221*t222*t35*t223+0.20548*t1*t2*
3570 t4*t51*t227*t57*t17-.4109599999999999*t1*t2*t4*t51*t222*t224*
3571 t17+6.60919909938887*t1*t2*t4*t221*t222*t223*t17-3.508934038473122*
3572 t84*t130*t89*t93*t111*t112*t113-3.508934038473122*t84*t88*
3573 t89*t124*t111*t112*t113;
3574 t485 = 1/pow(t64,7.0);
3575 t486 = -.6248512355555556*t22*t373*t70+0.02601200448*
3576 t22*t373*t62*t69+.02550952447999999*t30*t372*t69-3.314168704E-4*
3577 t22*t373*t68*t67-8.356952524799998E-4*t30*t372*t62*t67-1.3840115711999998E-4*
3578 t27*t371*t67+1.56254224896E-6*t22*t373*t66*t65+9.131254640639999E-6*
3579 t30*t372*t68*t65+4.036972584959999E-6*t27*t371*t62*t65-2.25303192576E-9*
3580 t22*t373*t63*t140-3.986840715264E-8*t30*t372*t66*t140-4.106125246464E-8*
3581 t27*t371*t68*t140+5.793510666239999E-11*t30*t372*t63*t299+
3582 1.730657746944E-10*t27*t371*t66*t299-2.528077381632E-13*t27*
3583 t371*t63*t485;
3584 t487 = .03950357940513041*t84*t88*t89*t301*t96;
3585 t488 = .03950357940513041*t84*t130*t89*t189*t96;
3586 t489 = .03950357940513041*t84*t191*t89*t124*t96;
3587 t490 = .03950357940513041*t84*t302*t89*t93*t96;
3588 t491 = 2.0*t102*t301*t84*t86*t87;
3589 t492 = -1.169644679491041*t84*t88*t89*t301*t111*t112*
3590 t113;
3591 t493 = -1.169644679491041*t84*t130*t89*t189*t111*t112*
3592 t113;
3593 t494 = -1.169644679491041*t84*t191*t89*t124*t111*t112*
3594 t113;
3595 t495 = -1.169644679491041*t84*t302*t89*t93*t111*t112*
3596 t113;
3597 t496 = -.001464924402940253*t84*t1*t2*t4*t105*t88*t301*
3598 t96;
3599 t497 = t443-2.0*t262;
3600 t498 = t448+2.0*t262;
3601 t499 = 1.777777777777778*t122*t262*t267*t85-1.777777777777778*
3602 t119*t261*t262*t85+1.333333333333333*t123*t498+1.333333333333333*
3603 t120*t497-.2962962962962963*t188*t266*t447-.2962962962962963*
3604 t187*t260*t442+.4444444444444444*t188*t267*t270+.4444444444444444*
3605 t187*t261*t265;
3606 t500 = -.001464924402940253*t84*t1*t2*t4*t105*t130*t189*
3607 t96;
3608 t501 = -.001464924402940253*t84*t1*t2*t4*t105*t191*t124*
3609 t96;
3610 t502 = -.001464924402940253*t84*t1*t2*t4*t105*t302*t93*
3611 t96;
3612 t503 = -48.0*t127*t279;
3613 t504 = 24.0*t85*t87;
3614 t505 = t504+t503+t459-80.0*t129*t277;
3615 t506 = 2.0*t135*t301*t84*t86*t87;
3616 t507 = -12.0*t135*t279*t84*t87*t93;
3617 t508 = -8.0*t102*t127*t301*t84*t86;
3618 t509 = -24.0*t102*t124*t279*t84*t87;
3619 t510 = 48.0*t102*t127*t279*t84*t93;
3620 t511 = -24.0*t102*t84*t85*t87*t93;
3621 t512 = t72*(.01975178970256521*t84*t505*t89*t93*t96-7.324622014701263E-4*
3622 t84*t1*t2*t4*t105*t281*t93*t96+9.766162686268349E-4*t84*t1*
3623 t2*t4*t243*t191*t93*t96+0.00195323253725367*t84*t1*t2*t4*t243*
3624 t130*t93*t96+.01975178970256521*t84*t88*t89*t499*t96+.03950357940513041*
3625 t84*t130*t89*t301*t96+.01975178970256521*t84*t191*t89*t271*
3626 t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t271*t96+.01975178970256521*
3627 t84*t281*t89*t189*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*
3628 t88*t189*t96+.03950357940513041*t84*t302*t89*t124*t96+0.00195323253725367*
3629 t84*t1*t2*t4*t243*t88*t124*t96-.001464924402940253*t84*t1*
3630 t2*t4*t105*t130*t124*t96+4.0*t129*t288*t84*t87*t93+80.0*t102*
3631 t129*t277*t84*t93-32.0*t127*t129*t135*t84*t93+2.0*t124*t288*
3632 t84*t86*t87+8.0*t102*t129*t301*t84*t87+12.0*t102*t189*t279*
3633 t84*t87-4.0*t102*t129*t271*t84*t87+8.0*t129*t135*t189*t84*
3634 t87+20.0*t102*t189*t277*t84*t86+40.0*t102*t124*t277*t84*t86-
3635 4.0*t102*t127*t271*t84*t86-8.0*t127*t135*t189*t84*t86-16.0*
3636 t124*t127*t135*t84*t86-32.0*t102*t127*t129*t189*t84+t511+t510+
3637 t509+t508+t507+t506+t502+t501+t500+t496+t495+t494+t493+t492+
3638 t481+t475+t472+t470+t457+t440+t439+t435+t433+t430+t428+t427+
3639 t425+t423+t422+t420+t416+t415+t414+t409+t408+t407+t406+t405+
3640 t404+t402+t84*t86*t87*t189*t288-17.31575589937587*t84*t191*
3641 t89*t93*t248*t249*t250-34.63151179875173*t84*t130*t89*t93*
3642 t248*t249*t250-17.31575589937587*t84*t88*t89*t189*t248*t249*
3643 t250-34.63151179875173*t84*t88*t89*t124*t248*t249*t250+t84*
3644 t86*t87*t271*t135+1.169644679491041*t84*t191*t89*t93*t248*
3645 t252*t113+2.339289358982082*t84*t130*t89*t93*t248*t252*t113+
3646 1.169644679491041*t84*t88*t89*t189*t248*t252*t113+2.339289358982082*
3647 t84*t88*t89*t124*t248*t252*t113-.5848223397455204*t84*t191*
3648 t89*t93*t254*t112*t113-1.169644679491041*t84*t130*t89*t93*
3649 t254*t112*t113-.5848223397455204*t84*t88*t89*t189*t254*t112*
3650 t113-1.169644679491041*t84*t88*t89*t124*t254*t112*t113-.5848223397455204*
3651 t84*t281*t89*t93*t111*t112*t113+.04337432353112609*t84*t1*
3652 t2*t4*t105*t191*t93*t111*t112*t113+.08674864706225219*t84*
3653 t1*t2*t4*t105*t130*t93*t111*t112*t113-.5848223397455204*t84*
3654 t88*t89*t271*t111*t112*t113+.04337432353112609*t84*t1*t2*t4*
3655 t105*t88*t189*t111*t112*t113-1.169644679491041*t84*t130*t89*
3656 t124*t111*t112*t113+.08674864706225219*t84*t1*t2*t4*t105*t88*
3657 t124*t111*t112*t113+t84*t86*t87*t499*t102)-.002929848805880505*
3658 t84*t1*t2*t4*t105*t130*t93*t96-.002929848805880505*t84*t1*
3659 t2*t4*t105*t88*t124*t96+4.0*t124*t135*t84*t86*t87+8.0*t102*
3660 t129*t189*t84*t87-16.0*t102*t124*t127*t84*t86+t491+t490+t489+
3661 t488+t487+t397+t396+t395+t394+t393+t392+t391+t390+t389+t388+
3662 t387+t386+t385+t346+t343+t340+t338+t331+t330+t303+t296+t293+
3663 t292+t282+t274+t272-2.339289358982082*t84*t130*t89*t93*t111*
3664 t112*t113-2.339289358982082*t84*t88*t89*t124*t111*t112*t113;
3665 t513 = .008503174826666664*
3666 t22*t60*t219*t69*t176-2.7856508416E-4*t22*t60*t219*t62*t67*
3667 t176-1.3840115711999998E-4*t30*t60*t218*t67*t176+3.0437515468799997E-6*
3668 t22*t60*t219*t68*t65*t176+4.036972584959999E-6*t30*t60*t218*
3669 t62*t65*t176-1.328946905088E-8*t22*t60*t219*t66*t140*t176-
3670 4.106125246464E-8*t30*t60*t218*t68*t140*t176+1.93117022208E-11*
3671 t22*t60*t219*t63*t299*t176+1.730657746944E-10*t30*t60*t218*
3672 t66*t299*t176-2.528077381632E-13*t30*t60*t218*t63*t485*t176;
3673 t514 = pow(grada,
3674 13.0);
3675 t515 = 1/pow(rhoa,20.66666666666667);
3676 t516 = 0.12470304*grada*t33*t219-9.794958186666667*t200*
3677 t31*t218+16.81328538453334*t199*t28*t217-10.17274008576*t198*
3678 t25*t216+2.843272635733334*t196*t44*t215-.3764010257066668*
3679 t306*t213*t214+.01915636940800001*t514*t366*t515;
3680 t517 = -.02822109155555556*grada*t41*t219+.008276372053333331*
3681 t200*t40*t218-2.7506955855644444E-4*t199*t39*t217+3.4899021041208883E-6*
3682 t198*t38*t216-2.099999575608889E-8*t196*t58*t215+6.053480366079999E-11*
3683 t306*t228*t214-6.743462161066666E-14*t514*t383*t515;
3684 t518 = .2677933866666666*grada*t219*t70-0.01114800192*
3685 grada*t219*t62*t69-.01565357183999999*t200*t218*t69+1.4203580159999998E-4*
3686 grada*t219*t68*t67+5.1281299584E-4*t200*t218*t62*t67+1.0380086783999998E-4*
3687 t199*t217*t67-6.696609638400001E-7*grada*t219*t66*t65-5.603269893119999E-6*
3688 t200*t218*t68*t65-3.02772943872E-6*t199*t217*t62*t65+9.6558511104E-10*
3689 grada*t219*t63*t140+2.446470438912E-8*t200*t218*t66*t140+3.079593934848E-8*
3690 t199*t217*t68*t140-3.55510881792E-11*t200*t218*t63*t299-1.297993310208E-10*
3691 t199*t217*t66*t299+1.896058036224E-13*t199*t217*t63*t485;
3692 t519 = -
3693 .006377381119999998*t22*gradb*t219*t69*t61+2.0892381311999997E-4*
3694 t22*gradb*t219*t62*t67*t61+1.0380086783999998E-4*t30*gradb*
3695 t218*t67*t61-2.2828136601599996E-6*t22*gradb*t219*t68*t65*
3696 t61-3.02772943872E-6*t30*gradb*t218*t62*t65*t61+9.96710178816E-9*
3697 t22*gradb*t219*t66*t140*t61+3.079593934848E-8*t30*gradb*t218*
3698 t68*t140*t61-1.44837766656E-11*t22*gradb*t219*t63*t299*t61-
3699 1.297993310208E-10*t30*gradb*t218*t66*t299*t61+1.896058036224E-13*
3700 t30*gradb*t218*t63*t485*t61;
3701 t520 = -8.0*t123*t85*t87+8.0*t120*t85*t87+1.777777777777778*
3702 t188*t262*t267*t85-1.777777777777778*t187*t261*t262*t85-.2962962962962963*
3703 t122*t334*t447-.2962962962962963*t119*t332*t442+.4444444444444444*
3704 t122*t267*t335+.4444444444444444*t119*t261*t333-2.666666666666667*
3705 t123*t262+2.666666666666667*t120*t262;
3706 t521 = t503+t461+t459+80.0*t129*t277;
3707 t522 = -24.0*t102*t189*t279*t84*t87;
3708 t523 = t72*(.01975178970256521*t84*t521*t89*t93*t96-7.324622014701263E-4*
3709 t84*t1*t2*t4*t105*t341*t93*t96+0.00195323253725367*t84*t1*
3710 t2*t4*t243*t191*t93*t96+9.766162686268349E-4*t84*t1*t2*t4*
3711 t243*t130*t93*t96+.01975178970256521*t84*t88*t89*t520*t96+
3712 .01975178970256521*t84*t130*t89*t336*t96-7.324622014701263E-4*
3713 t84*t1*t2*t4*t105*t88*t336*t96+.03950357940513041*t84*t191*
3714 t89*t301*t96+.03950357940513041*t84*t302*t89*t189*t96+0.00195323253725367*
3715 t84*t1*t2*t4*t243*t88*t189*t96-.001464924402940253*t84*t1*
3716 t2*t4*t105*t191*t189*t96+.01975178970256521*t84*t341*t89*t124*
3717 t96+9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t124*t96-4.0*
3718 t129*t288*t84*t87*t93-80.0*t102*t129*t277*t84*t93+32.0*t127*
3719 t129*t135*t84*t93+2.0*t189*t288*t84*t86*t87+4.0*t102*t129*
3720 t336*t84*t87-8.0*t102*t129*t301*t84*t87+12.0*t102*t124*t279*
3721 t84*t87-8.0*t124*t129*t135*t84*t87-4.0*t102*t127*t336*t84*
3722 t86+40.0*t102*t189*t277*t84*t86+20.0*t102*t124*t277*t84*t86-
3723 16.0*t127*t135*t189*t84*t86-8.0*t124*t127*t135*t84*t86+32.0*
3724 t102*t124*t127*t129*t84+t522+t510+t508+t507+t506+t502+t501+
3725 t500+t496+t495+t494+t493+t492+t483+t481+t475+t472+t470+t457+
3726 t440+t439+t435+t433+t430+t428+t427+t425+t423+t422+t420+t416+
3727 t415+t414+t409+t408+t407+t406+t405+t404+t402+t84*t86*t87*t124*
3728 t288-34.63151179875173*t84*t191*t89*t93*t248*t249*t250-17.31575589937587*
3729 t84*t130*t89*t93*t248*t249*t250-34.63151179875173*t84*t88*
3730 t89*t189*t248*t249*t250-17.31575589937587*t84*t88*t89*t124*
3731 t248*t249*t250+t84*t86*t87*t336*t135+2.339289358982082*t84*
3732 t191*t89*t93*t248*t252*t113+1.169644679491041*t84*t130*t89*
3733 t93*t248*t252*t113+2.339289358982082*t84*t88*t89*t189*t248*
3734 t252*t113+1.169644679491041*t84*t88*t89*t124*t248*t252*t113-
3735 1.169644679491041*t84*t191*t89*t93*t254*t112*t113-.5848223397455204*
3736 t84*t130*t89*t93*t254*t112*t113-1.169644679491041*t84*t88*
3737 t89*t189*t254*t112*t113-.5848223397455204*t84*t88*t89*t124*
3738 t254*t112*t113-.5848223397455204*t84*t341*t89*t93*t111*t112*
3739 t113+.08674864706225219*t84*t1*t2*t4*t105*t191*t93*t111*t112*
3740 t113+.04337432353112609*t84*t1*t2*t4*t105*t130*t93*t111*t112*
3741 t113-.5848223397455204*t84*t88*t89*t336*t111*t112*t113-1.169644679491041*
3742 t84*t191*t89*t189*t111*t112*t113+.08674864706225219*t84*t1*
3743 t2*t4*t105*t88*t189*t111*t112*t113+.04337432353112609*t84*
3744 t1*t2*t4*t105*t88*t124*t111*t112*t113+t84*t86*t87*t520*t102)-
3745 .002929848805880505*t84*t1*t2*t4*t105*t191*t93*t96-.002929848805880505*
3746 t84*t1*t2*t4*t105*t88*t189*t96+4.0*t135*t189*t84*t86*t87-8.0*
3747 t102*t124*t129*t84*t87-16.0*t102*t127*t189*t84*t86+t491+t490+
3748 t489+t488+t487+t397+t396+t395+t394+t393+t392+t391+t390+t389+
3749 t388+t387+t386+t385+t347+t345+t344+t342+t339+t337+t303+t294+
3750 t290+t275+t273+t258+t256-2.339289358982082*t84*t191*t89*t93*
3751 t111*t112*t113-2.339289358982082*t84*t88*t89*t189*t111*t112*
3752 t113;
3753 t524 = .008503174826666664*t22*t60*t49*t69*t319-2.785650841599999E-4*
3754 t22*t60*t49*t62*t67*t319+3.043751546879999E-6*t22*t60*t49*
3755 t68*t65*t319-1.328946905088E-8*t22*t60*t49*t66*t140*t319+1.93117022208E-11*
3756 t22*t60*t49*t63*t299*t319-1.3840115711999998E-4*t22*t159*t49*
3757 t67*t318+4.036972584959999E-6*t22*t159*t49*t62*t65*t318-4.106125246464E-8*
3758 t22*t159*t49*t68*t140*t318+1.730657746944E-10*t22*t159*t49*
3759 t66*t299*t318-2.528077381632E-13*t22*t159*t49*t63*t485*t318;
3760 t525 = -
3761 .004638095359999999*grada*t60*t49*t69*t176+1.5194459135999996E-4*
3762 grada*t60*t49*t62*t67*t176+1.0380086783999998E-4*t200*t60*
3763 t48*t67*t176-1.6602281164799998E-6*grada*t60*t49*t68*t65*t176-
3764 3.02772943872E-6*t200*t60*t48*t62*t65*t176+7.24880130048E-9*
3765 grada*t60*t49*t66*t140*t176+3.079593934848E-8*t200*t60*t48*
3766 t68*t140*t176-1.05336557568E-11*grada*t60*t49*t63*t299*t176-
3767 1.297993310208E-10*t200*t60*t48*t66*t299*t176+1.896058036224E-13*
3768 t200*t60*t48*t63*t485*t176;
3769 t526 = -.004638095359999999*t22*gradb*t49*t69*t176+1.5194459135999996E-4*
3770 t22*gradb*t49*t62*t67*t176-1.6602281164799998E-6*t22*gradb*
3771 t49*t68*t65*t176+7.24880130048E-9*t22*gradb*t49*t66*t140*t176-
3772 1.05336557568E-11*t22*gradb*t49*t63*t299*t176+1.0380086783999998E-4*
3773 t22*t208*t49*t67*t175-3.02772943872E-6*t22*t208*t49*t62*t65*
3774 t175+3.079593934848E-8*t22*t208*t49*t68*t140*t175-1.297993310208E-10*
3775 t22*t208*t49*t66*t299*t175+1.896058036224E-13*t22*t208*t49*
3776 t63*t485*t175;
3777 t527 = 1/pow(rhoa,19.66666666666667);
3778 t528 = -0.03400992*t33*t49+4.644729024000001*t22*t31*
3779 t48-9.660890649600002*t30*t28*t47+6.508088401920002*t27*t25*
3780 t46-1.95222669312*t21*t44*t45+.2718246297600001*t43*t213*t307-
3781 .01436727705600001*t212*t366*t527;
3782 t529 = .007696661333333334*t41*t49-.003943071658666666*
3783 t22*t40*t48+1.581834315093333E-4*t30*t39*t47-2.2259240850773332E-6*
3784 t27*t38*t46+1.435144661674667E-8*t21*t58*t45-4.355718731093333E-11*
3785 t43*t228*t307+5.057596620799999E-14*t212*t383*t527;
3786 t530 = -0.07303456*t49*t70+0.00304036416*t49*t62*t69+
3787 .008696428799999998*t22*t48*t69-3.8737036799999996E-5*t49*
3788 t68*t67-2.8489610879999994E-4*t22*t48*t62*t67-7.785065087999998E-5*
3789 t30*t47*t67+1.8263480832E-7*t49*t66*t65+3.1129277184000004E-6*
3790 t22*t48*t68*t65+2.27079707904E-6*t30*t47*t62*t65-2.6334139392E-10*
3791 t49*t63*t140-1.3591502438400002E-8*t22*t48*t66*t140-2.3096954511360004E-8*
3792 t30*t47*t68*t140+1.9750604544E-11*t22*t48*t63*t299+9.73494982656E-11*
3793 t30*t47*t66*t299-1.422043527168E-13*t30*t47*t63*t485;
3794 t531 = .003478571519999999*grada*gradb*t49*t69*t61-1.1395844352E-4*
3795 grada*gradb*t49*t62*t67*t61-7.785065087999998E-5*t200*gradb*
3796 t48*t67*t61+1.2451710873600001E-6*grada*gradb*t49*t68*t65*
3797 t61+2.27079707904E-6*t200*gradb*t48*t62*t65*t61-5.436600975360001E-9*
3798 grada*gradb*t49*t66*t140*t61-2.3096954511360004E-8*t200*gradb*
3799 t48*t68*t140*t61+7.9002418176E-12*grada*gradb*t49*t63*t299*
3800 t61+9.73494982656E-11*t200*gradb*t48*t66*t299*t61-1.422043527168E-13*
3801 t200*gradb*t48*t63*t485*t61;
3802 t532 = 0.00173928576*t22*t49*t69*t61-5.697922176E-5*t22*
3803 t49*t62*t67*t61+6.225855436800002E-7*t22*t49*t68*t65*t61-2.7183004876800004E-9*
3804 t22*t49*t66*t140*t61+3.9501209088E-12*t22*t49*t63*t299*t61-
3805 7.785065087999998E-5*t22*t60*t49*t67*t161+2.27079707904E-6*
3806 t22*t60*t49*t62*t65*t161-2.3096954511360004E-8*t22*t60*t49*
3807 t68*t140*t161+9.73494982656E-11*t22*t60*t49*t66*t299*t161-
3808 1.422043527168E-13*t22*t60*t49*t63*t485*t161;
3809 t533 = pow(gradb,14.0);
3810 t534 = 1/pow(t153,7.0);
3811 t535 = 1/pow(rhob,21.66666666666667);
3812 t536 = 1/pow(rhob,19.0);
3813 t537 = 1/pow(rhob,16.33333333333333);
3814 t538 = 1/pow(rhob,13.66666666666667);
3815 t539 = 1/pow(rhob,11.0);
3816 t540 = 1/pow(rhob,8.333333333333334);
3817 t541 = 1/pow(rhob,5.666666666666667);
3818 t542 = -0.29097376*t60*t162*t541+17.94495303822222*t159*
3819 t160*t540-27.37080780231112*t156*t157*t539+15.36387437568*
3820 t152*t154*t538-4.071649359644446*t170*t171*t537+.5178316754488891*
3821 t312*t313*t536-.02554182587733335*t533*t534*t535;
3822 t543 = 1/pow(t148,3.0);
3823 t544 = pow(t183,3.0);
3824 t545 = 1/pow(t147,6.0);
3825 t546 = 1/pow(t147,5.0);
3826 t547 = 1/pow(rhob,3.333333333333333);
3827 t548 = 1/pow(t143,9.0);
3828 t549 = 1/pow(rhob,2.0);
3829 t550 = -.9804791666666667*t10*t11*M_PI*t326*t549-.8181736111111113*
3830 t5*M_PI*t548*t549-2.35315*t10*t11*t14*t182*t325-1.402583333333333*
3831 t5*t14*t326*t325-2.614611111111111*t10*t11*t3*t144*t61-.9350555555555555*
3832 t5*t3*t182*t61-6.427244444444445*t1*t2*t4*t547-1.852355555555556*
3833 t12*t13*t15*t176;
3834 t551 = 1/pow(t164,7.0);
3835 t552 = .06584921362962963*t60*t168*t541-.01511690658133333*
3836 t159*t167*t540+4.4756461401125924E-4*t156*t166*t539-5.283262723716741E-6*
3837 t152*t165*t538+3.0183801754358525E-8*t170*t185*t537-8.352284744817775E-11*
3838 t312*t328*t536+8.99128288142222E-14*t533*t551*t535;
3839 t553 = -51.9472676981276*t84*t88*t89*t189*t248*t249*t250;
3840 t554 = -
3841 51.9472676981276*t84*t191*t89*t93*t248*t249*t250;
3842 t555 = 3.508934038473122*t84*t88*t89*t189*t248*t252*t113;
3843 t556 = 3.508934038473122*
3844 t84*t191*t89*t93*t248*t252*t113;
3845 t557 = -1.754467019236561*t84*t88*t89*t189*t254*t112*
3846 t113;
3847 t558 = -1.754467019236561*t84*t191*t89*t93*t254*t112*
3848 t113;
3849 t559 = .1301229705933783*t84*t1*t2*t4*t105*t88*t189*t111*
3850 t112*t113;
3851 t560 = .1301229705933783*t84*t1*t2*t4*t105*t191*t93*t111*
3852 t112*t113;
3853 t561 = pow(t187,3.0);
3854 t562 = t449+t443;
3855 t563 = pow(t188,3.0);
3856 t564 = t444+t448;
3857 t565 = 1.333333333333333*t123*t564-.2962962962962963*
3858 t447*t563+1.333333333333333*t120*t562-.2962962962962963*t442*
3859 t561+1.333333333333333*t188*t267*t335+1.333333333333333*t187*
3860 t261*t333;
3861 t566 = .01975178970256521*t84*t88*t89*t565*t96;
3862 t567 = .05925536910769562*t84*t191*t89*t336*t96;
3863 t568 = .002929848805880505*t84*t1*t2*t4*t243*t88*t189*
3864 t96;
3865 t569 = .05925536910769562*t84*t341*t89*t189*t96;
3866 t570 = .002929848805880505*t84*t1*t2*t4*t243*t191*t93*
3867 t96;
3868 t571 = t504+t460+t459+240.0*t129*t277;
3869 t572 = .01975178970256521*t84*t571*t89*t93*t96;
3870 t573 = 3.0*t189*t288*t84*t86*t87;
3871 t574 = -24.0*t127*t135*t189*t84*t86;
3872 t575 = -24.0*t129*t135*t189*t84*t87;
3873 t576 = t84*t86*t87*t565*t102;
3874 t577 = 60.0*t102*t189*t277*t84*t86;
3875 t578 = 96.0*t102*t127*t129*t189*t84;
3876 t579 = 36.0*t102*t189*t279*t84*t87;
3877 t580 = 192.9880990672242*t321*t544*t150*t546*rhob-2069.133687865597*
3878 t543*t544*t150*t545*rhob+6.0*t178*t327*t183*t150*t324*rhob-
3879 6.0*t178*t544*t150*t323*rhob-96.4940495336121*t321*t327*t183*
3880 t150*t323*rhob-1.0*t178*t550*t150*t184*rhob+t72*(-.002197386604410379*
3881 t84*t1*t2*t4*t105*t341*t93*t96-.002197386604410379*t84*t1*
3882 t2*t4*t105*t88*t336*t96-.004394773208820758*t84*t1*t2*t4*t105*
3883 t191*t189*t96-12.0*t129*t288*t84*t87*t93-240.0*t102*t129*t277*
3884 t84*t93+96.0*t127*t129*t135*t84*t93+3.0*t135*t336*t84*t86*
3885 t87-12.0*t102*t129*t336*t84*t87-12.0*t102*t127*t336*t84*t86+
3886 t579+t578+t577+t576+t575+t574+t573+t572+t570+t569+t568+t567+
3887 t566+t560+t559+t558+t557+t556+t555+t554+t553+t511+t482+t481+
3888 t476+t475+t472+t470+t457+t440+t439+t435+t433+t430+t428+t427+
3889 t425+t423+t422+t420+t416+t415+t414+t409+t408+t407+t406+t405+
3890 t404+t402-1.754467019236561*t84*t341*t89*t93*t111*t112*t113-
3891 1.754467019236561*t84*t88*t89*t336*t111*t112*t113-3.508934038473122*
3892 t84*t191*t89*t189*t111*t112*t113)+.05925536910769562*t84*t341*
3893 t89*t93*t96-.004394773208820758*t84*t1*t2*t4*t105*t191*t93*
3894 t96+.05925536910769562*t84*t88*t89*t336*t96+.1185107382153912*
3895 t84*t191*t89*t189*t96-.004394773208820758*t84*t1*t2*t4*t105*
3896 t88*t189*t96-24.0*t129*t135*t84*t87*t93+96.0*t102*t127*t129*
3897 t84*t93+3.0*t102*t336*t84*t86*t87+6.0*t135*t189*t84*t86*t87-
3898 24.0*t102*t129*t189*t84*t87-24.0*t102*t127*t189*t84*t86+t398+
3899 t397+t396+t395+t394+t393+t392+t391+t390+t389+t388+t387+t386+
3900 t385+.001892851318518518*t1*t2*t4*t149*t325+6.0*t178*t322*
3901 t150*t324-96.4940495336121*t321*t322*t150*t323-3.0*t178*t327*
3902 t150*t184+.1369866666666666*t1*t2*t4*t178*t183*t184*t181-.4109599999999999*
3903 t1*t2*t4*t178*t322*t324*t146+6.60919909938887*t1*t2*t4*t321*
3904 t322*t323*t146+0.20548*t1*t2*t4*t178*t327*t184*t146-3.508934038473122*
3905 t84*t191*t89*t93*t111*t112*t113-3.508934038473122*t84*t88*
3906 t89*t189*t111*t112*t113;
3907 t581 = -.6248512355555556*t60*t70*t541+0.02601200448*
3908 t60*t62*t69*t541-3.314168704E-4*t60*t68*t67*t541+1.56254224896E-6*
3909 t60*t66*t65*t541-2.25303192576E-9*t60*t63*t140*t541+.02550952447999999*
3910 t159*t69*t540-8.356952524799998E-4*t159*t62*t67*t540+9.131254640639999E-6*
3911 t159*t68*t65*t540-3.986840715264E-8*t159*t66*t140*t540+5.793510666239999E-11*
3912 t159*t63*t299*t540-1.3840115711999998E-4*t156*t67*t539+4.036972584959999E-6*
3913 t156*t62*t65*t539-4.106125246464E-8*t156*t68*t140*t539+1.730657746944E-10*
3914 t156*t66*t299*t539-2.528077381632E-13*t156*t63*t485*t539;
3915 t582 = -
3916 .006377381119999998*grada*t60*t23*t69*t319+2.0892381311999997E-4*
3917 grada*t60*t23*t62*t67*t319-2.2828136601599996E-6*grada*t60*
3918 t23*t68*t65*t319+9.96710178816E-9*grada*t60*t23*t66*t140*t319-
3919 1.44837766656E-11*grada*t60*t23*t63*t299*t319+1.0380086783999998E-4*
3920 grada*t159*t23*t67*t318-3.02772943872E-6*grada*t159*t23*t62*
3921 t65*t318+3.079593934848E-8*grada*t159*t23*t68*t140*t318-1.297993310208E-10*
3922 grada*t159*t23*t66*t299*t318+1.896058036224E-13*grada*t159*
3923 t23*t63*t485*t318;
3924 t583 = pow(gradb,13.0);
3925 t584 = 1/pow(rhob,20.66666666666667);
3926 t585 = 0.12470304*gradb*t162*t319-9.794958186666667*t208*
3927 t160*t318+16.81328538453334*t207*t157*t317-10.17274008576*
3928 t206*t154*t316+2.843272635733334*t204*t171*t315-.3764010257066668*
3929 t351*t313*t314+.01915636940800001*t583*t534*t584;
3930 t586 = -.02822109155555556*gradb*t168*t319+.008276372053333331*
3931 t208*t167*t318-2.7506955855644444E-4*t207*t166*t317+3.4899021041208883E-6*
3932 t206*t165*t316-2.099999575608889E-8*t204*t185*t315+6.053480366079999E-11*
3933 t351*t328*t314-6.743462161066666E-14*t583*t551*t584;
3934 t587 = .2677933866666666*gradb*t70*t319-0.01114800192*
3935 gradb*t62*t69*t319+1.4203580159999998E-4*gradb*t68*t67*t319-
3936 6.696609638400001E-7*gradb*t66*t65*t319+9.6558511104E-10*gradb*
3937 t63*t140*t319-.01565357183999999*t208*t69*t318+5.1281299584E-4*
3938 t208*t62*t67*t318-5.603269893119999E-6*t208*t68*t65*t318+2.446470438912E-8*
3939 t208*t66*t140*t318-3.55510881792E-11*t208*t63*t299*t318+1.0380086783999998E-4*
3940 t207*t67*t317-3.02772943872E-6*t207*t62*t65*t317+3.079593934848E-8*
3941 t207*t68*t140*t317-1.297993310208E-10*t207*t66*t299*t317+1.896058036224E-13*
3942 t207*t63*t485*t317;
3943 t588 = 0.00173928576*t60*t23*t69*t176-5.697922176E-5*
3944 t60*t23*t62*t67*t176-7.785065087999998E-5*t22*t60*t32*t67*
3945 t176+6.225855436800002E-7*t60*t23*t68*t65*t176+2.27079707904E-6*
3946 t22*t60*t32*t62*t65*t176-2.7183004876800004E-9*t60*t23*t66*
3947 t140*t176-2.3096954511360004E-8*t22*t60*t32*t68*t140*t176+
3948 3.9501209088E-12*t60*t23*t63*t299*t176+9.73494982656E-11*t22*
3949 t60*t32*t66*t299*t176-1.422043527168E-13*t22*t60*t32*t63*t485*
3950 t176;
3951 t589 = .003478571519999999*grada*gradb*t23*t69*t176-1.1395844352E-4*
3952 grada*gradb*t23*t62*t67*t176+1.2451710873600001E-6*grada*gradb*
3953 t23*t68*t65*t176-5.436600975360001E-9*grada*gradb*t23*t66*
3954 t140*t176+7.9002418176E-12*grada*gradb*t23*t63*t299*t176-7.785065087999998E-5*
3955 grada*t208*t23*t67*t175+2.27079707904E-6*grada*t208*t23*t62*
3956 t65*t175-2.3096954511360004E-8*grada*t208*t23*t68*t140*t175+
3957 9.73494982656E-11*grada*t208*t23*t66*t299*t175-1.422043527168E-13*
3958 grada*t208*t23*t63*t485*t175;
3959 t590 = 1/pow(rhob,19.66666666666667);
3960 t591 = -0.03400992*t162*t176+4.644729024000001*t60*t160*
3961 t175-9.660890649600002*t159*t157*t174+6.508088401920002*t156*
3962 t154*t173-1.95222669312*t152*t171*t172+.2718246297600001*t170*
3963 t313*t352-.01436727705600001*t312*t534*t590;
3964 t592 = .007696661333333334*t168*t176-.003943071658666666*
3965 t60*t167*t175+1.581834315093333E-4*t159*t166*t174-2.2259240850773332E-6*
3966 t156*t165*t173+1.435144661674667E-8*t152*t185*t172-4.355718731093333E-11*
3967 t170*t328*t352+5.057596620799999E-14*t312*t551*t590;
3968 t593 = -0.07303456*t70*t176+0.00304036416*t62*t69*t176-
3969 3.8737036799999996E-5*t68*t67*t176+1.8263480832E-7*t66*t65*
3970 t176-2.6334139392E-10*t63*t140*t176+.008696428799999998*t60*
3971 t69*t175-2.8489610879999994E-4*t60*t62*t67*t175+3.1129277184000004E-6*
3972 t60*t68*t65*t175-1.3591502438400002E-8*t60*t66*t140*t175+1.9750604544E-11*
3973 t60*t63*t299*t175-7.785065087999998E-5*t159*t67*t174+2.27079707904E-6*
3974 t159*t62*t65*t174-2.3096954511360004E-8*t159*t68*t140*t174+
3975 9.73494982656E-11*t159*t66*t299*t174-1.422043527168E-13*t159*
3976 t63*t485*t174;
3977 t594 = 1/pow(rhoa,18.66666666666667);
3978 t595 = -1.744324128*grada*t31*t32+5.062341676800001*t200*
3979 t28*t29-3.988298672640001*t199*t25*t26+1.31417883648*t198*
3980 t44*t197-.1948889241600001*t196*t213*t356+.01077545779200001*
3981 t306*t366*t594;
3982 t596 = 0.001490196864*grada*t40*t32-8.300400076799999E-5*
3983 t200*t39*t29+1.358983016448E-6*t199*t38*t26-9.604340121600001E-9*
3984 t198*t58*t197+3.10873915392E-11*t196*t228*t356-3.793197465599999E-14*
3985 t306*t383*t594;
3986 t597 = -0.00391339296*grada*t32*t69+1.2820324896E-4*grada*
3987 t32*t62*t67+5.838798816E-5*t200*t29*t67-1.4008174732800002E-6*
3988 grada*t32*t68*t65-1.70309780928E-6*t200*t29*t62*t65+6.11617609728E-9*
3989 grada*t32*t66*t140+1.7322715883520004E-8*t200*t29*t68*t140-
3990 8.887772044800001E-12*grada*t32*t63*t299-7.30121236992E-11*
3991 t200*t29*t66*t299+1.066532645376E-13*t200*t29*t63*t485;
3992 t598 = -0.00130446432*gradb*t23*t69*t61+4.2734416319999996E-5*
3993 gradb*t23*t62*t67*t61+5.838798816E-5*t22*gradb*t32*t67*t61-
3994 4.669391577600001E-7*gradb*t23*t68*t65*t61-1.70309780928E-6*
3995 t22*gradb*t32*t62*t65*t61+2.0387253657600002E-9*gradb*t23*
3996 t66*t140*t61+1.7322715883520004E-8*t22*gradb*t32*t68*t140*
3997 t61-2.962590681600001E-12*gradb*t23*t63*t299*t61-7.30121236992E-11*
3998 t22*gradb*t32*t66*t299*t61+1.066532645376E-13*t22*gradb*t32*
3999 t63*t485*t61;
4000 t599 = -0.00130446432*grada*t23*t69*t61+4.2734416319999996E-5*
4001 grada*t23*t62*t67*t61-4.669391577600001E-7*grada*t23*t68*t65*
4002 t61+2.0387253657600002E-9*grada*t23*t66*t140*t61-2.962590681600001E-12*
4003 grada*t23*t63*t299*t61+5.838798816E-5*grada*t60*t23*t67*t161-
4004 1.70309780928E-6*grada*t60*t23*t62*t65*t161+1.7322715883520004E-8*
4005 grada*t60*t23*t68*t140*t161-7.30121236992E-11*grada*t60*t23*
4006 t66*t299*t161+1.066532645376E-13*grada*t60*t23*t63*t485*t161;
4007 t600 = 1/
4008 pow(rhob,18.66666666666667);
4009 t601 = -1.744324128*gradb*t160*t161+5.062341676800001*
4010 t208*t157*t158-3.988298672640001*t207*t154*t155+1.31417883648*
4011 t206*t171*t205-.1948889241600001*t204*t313*t361+.01077545779200001*
4012 t351*t534*t600;
4013 t602 = 0.001490196864*gradb*t167*t161-8.300400076799999E-5*
4014 t208*t166*t158+1.358983016448E-6*t207*t165*t155-9.604340121600001E-9*
4015 t206*t185*t205+3.10873915392E-11*t204*t328*t361-3.793197465599999E-14*
4016 t351*t551*t600;
4017 t603 = -0.00391339296*gradb*t69*t161+1.2820324896E-4*
4018 gradb*t62*t67*t161-1.4008174732800002E-6*gradb*t68*t65*t161+
4019 6.11617609728E-9*gradb*t66*t140*t161-8.887772044800001E-12*
4020 gradb*t63*t299*t161+5.838798816E-5*t208*t67*t158-1.70309780928E-6*
4021 t208*t62*t65*t158+1.7322715883520004E-8*t208*t68*t140*t158-
4022 7.30121236992E-11*t208*t66*t299*t158+1.066532645376E-13*t208*
4023 t63*t485*t158;
4024 t604 = pow(grada,16.0);
4025 t605 = 1/pow(t24,8.0);
4026 t606 = 1/pow(rhoa,25.33333333333333);
4027 t607 = 1/pow(rhoa,22.66666666666667);
4028 t608 = 1/pow(rhoa,20.0);
4029 t609 = 1/pow(rhoa,17.33333333333333);
4030 t610 = 1/pow(rhoa,14.66666666666667);
4031 t611 = 1/pow(rhoa,12.0);
4032 t612 = 1/pow(rhoa,9.333333333333334);
4033 t613 = 1/pow(rhoa,6.666666666666667);
4034 t614 = 1/pow(t19,4.0);
4035 t615 = pow(t56,4.0);
4036 t616 = 1/pow(t18,8.0);
4037 t617 = 1/pow(t18,7.0);
4038 t618 = pow(t227,2.0);
4039 t619 = 1/pow(rhoa,3.0);
4040 t620 = pow(M_PI,1.333333333333333);
4041 t621 = 21.42414814814815*t1*t2*t4/pow(rhoa,4.333333333333333)+
4042 1.227260416666667*t23*t5*t620/pow(t7,11.0)+3.272694444444445*
4043 t5*M_PI*t380*t619+3.921916666666666*t10*t11*M_PI*t226*t619+6.972296296296296*
4044 t10*t11*t3*t8*t49+2.493481481481481*t5*t3*t55*t49+6.797988888888888*
4045 t10*t11*t14*t55*t379+4.051907407407407*t5*t14*t226*t379+1.143892361111111*
4046 t10*t11*t620*t380*t23+6.79197037037037*t12*t13*t15*t219;
4047 t622 = 1/
4048 pow(t37,8.0);
4049 t623 = 2069.000588228246*t75*t399*t400*t401;
4050 t624 = -385.9637837316264*t75*t399*t403*t238;
4051 t625 = 192.9818918658132*t75*t245*t107*t237*t238;
4052 t626 = -13.74674343057476*t1*t2*t4*t105*t236*t237*t238;
4053 t627 = 24.0*
4054 t75*t399*t237*t109;
4055 t628 = -24.0*t75*t245*t107*t240*t109;
4056 t629 = 1.7096*t1*t2*t4*t105*t236*t240*t109;
4057 t630 = 4.0*t75*t413*t108*t109;
4058 t631 = -.8547999999999998*t1*t2*t4*t105*t245*t108*t109;
4059 t632 = 1.139733333333333*
4060 t1*t2*t4*t243*t107*t108*t109;
4061 t633 = -4101.558808403119*t84*t88*t89*t93*t417*t418*t419;
4062 t634 = 415.5781415850208*
4063 t84*t88*t89*t93*t417*t421*t250;
4064 t635 = -207.7890707925104*t84*t88*t89*t93*t254*t111*t249*
4065 t250;
4066 t636 = 7.70551137522226*t84*t1*t2*t4*t105*t88*t93*t248*
4067 t249*t250;
4068 t637 = -14.03573615389249*t84*t88*t89*t93*t417*t249*t113;
4069 t638 = 14.03573615389249*
4070 t84*t88*t89*t93*t254*t111*t252*t113;
4071 t639 = -.5204918823735132*t84*t1*t2*t4*t105*t88*t93*t248*
4072 t252*t113;
4073 t640 = -2.339289358982082*t84*t88*t89*t93*t432*t112*t113;
4074 t641 = .2602459411867566*
4075 t84*t1*t2*t4*t105*t88*t93*t254*t112*t113;
4076 t642 = -.3469945882490088*t84*t1*t2*t4*t243*t88*t93*t111*
4077 t112*t113;
4078 t643 = .05512180965925926*t1*t2*t4*t411*t82;
4079 t644 = -0.00911508517385046*t84*t1*t2*t4*t411*t88*t93*
4080 t96;
4081 t645 = 4.0*t469*t84*t86*t87*t93;
4082 t646 = -48.0*t127*t288*t84*t86*t93;
4083 t647 = 240.0*t135*t277*t84*t86*t93;
4084 t648 = 144.0*t135*t279*t84*t87*t93;
4085 t649 = -480.0*t102*t458*t84*t86*t93;
4086 t650 = -576.0*t102*t127*t279*t84*t93;
4087 t651 = pow(t107,4.0);
4088 t652 = 1/pow(t80,8.0);
4089 t653 = 1/pow(t81,4.0);
4090 t654 = 24954.97798673546*t75*t651*t652*t653;
4091 t655 = 1/pow(t80,7.0);
4092 t656 = -6207.001764684737*t75*t651*t655*t401;
4093 t657 = 3103.500882342369*t75*t245*t236*t400*t401;
4094 t658 = -147.3818085681254*t1*t2*t4*t105*t399*t400*t401;
4095 t659 = 578.9456755974396*
4096 t75*t651*t400*t238;
4097 t660 = -578.9456755974396*t75*t245*t236*t403*t238;
4098 t661 = 27.49348686114952*t1*t2*t4*t105*t399*t403*t238;
4099 t662 = pow(t245,
4100 2.0);
4101 t663 = 48.2454729664533*t75*t662*t237*t238;
4102 t664 = 64.3272972886044*t75*t413*t107*t237*t238;
4103 t665 = -13.74674343057476*t1*t2*t4*t105*t245*t107*t237*
4104 t238;
4105 t666 = 9.164495620383173*t1*t2*t4*t243*t236*t237*t238;
4106 t667 = -
4107 24.0*t75*t651*t403*t109;
4108 t668 = 36.0*t75*t245*t236*t237*t109;
4109 t669 = -1.7096*t1*t2*t4*t105*t399*t237*t109;
4110 t670 = -6.0*t75*t662*t240*t109;
4111 t671 = -8.0*t75*t413*t107*t240*t109;
4112 t672 = 1.7096*t1*t2*t4*t105*t245*t107*t240*t109;
4113 t673 = -1.139733333333333*t1*t2*t4*t243*t236*t240*t109;
4114 t674 = 1/
4115 pow(t72,4.666666666666667);
4116 t675 = 1/pow(t72,4.333333333333333);
4117 t676 = 1/pow(t77,11.0);
4118 t677 = 3.750962962962963*t10*t11*t3*t410*t78+3.657188888888888*
4119 t10*t11*t14*t411*t106+1.213481481481482*t5*t3*t410*t106+2.109916666666666*
4120 t10*t11*M_PI*t262*t244+1.971907407407408*t5*t14*t411*t244+.6153923611111111*
4121 t10*t11*t620*t242*t412+1.592694444444445*t5*M_PI*t262*t412+
4122 .5972604166666668*t5*t620*t242*t676+12.40158024691358*t1*t2*
4123 t4*t675+5.355397530864196*t12*t13*t15*t674;
4124 t678 = .9999999999999999*t75*t677*t108*t109;
4125 t679 = -.2849333333333333*t1*t2*t4*t105*t413*t108*t109;
4126 t680 = .5698666666666665*
4127 t1*t2*t4*t243*t245*t108*t109;
4128 t681 = -.8864592592592592*t1*t2*t4*t411*t107*t108*t109;
4129 t682 = pow(t111,
4130 4.0);
4131 t683 = -91080.98259910994*t682*t84*t88*t89*t93/(pow(t94,
4132 8.0)*pow(t95,4.0));
4133 t684 = 12304.67642520936*t419*t682*t84*t88*t89*t93/pow(t94,
4134 7.0);
4135 t685 = -6152.338212604678*t84*t88*t89*t93*t254*t248*t418*
4136 t419;
4137 t686 = 152.0994724782823*t84*t1*t2*t4*t105*t88*t93*t417*
4138 t418*t419;
4139 t687 = -623.3672123775311*t84*t88*t89*t93*t682*t418*t250;
4140 t688 = 623.3672123775311*
4141 t84*t88*t89*t93*t254*t248*t421*t250;
4142 t689 = -15.41102275044452*t84*t1*t2*t4*t105*t88*t93*t417*
4143 t421*t250;
4144 t690 = pow(t254,2.0);
4145 t691 = -51.9472676981276*t84*t88*t89*t93*t690*t249*t250;
4146 t692 = -
4147 69.26302359750346*t84*t88*t89*t93*t432*t111*t249*t250;
4148 t693 = 7.70551137522226*t84*t1*t2*t4*t105*t88*t93*t254*
4149 t111*t249*t250;
4150 t694 = -5.137007583481506*t84*t1*t2*t4*t243*t88*t93*t248*
4151 t249*t250;
4152 t695 = 14.03573615389249*t84*t88*t89*t93*t682*t421*t113;
4153 t696 = -
4154 21.05360423083874*t84*t88*t89*t93*t254*t248*t249*t113;
4155 t697 = .5204918823735132*t84*t1*t2*t4*t105*t88*t93*t417*
4156 t249*t113;
4157 t698 = 3.508934038473122*t84*t88*t89*t93*t690*t252*t113;
4158 t699 = 4.678578717964164*
4159 t84*t88*t89*t93*t432*t111*t252*t113;
4160 t700 = -.5204918823735132*t84*t1*t2*t4*t105*t88*t93*t254*
4161 t111*t252*t113;
4162 t701 = .3469945882490088*t84*t1*t2*t4*t243*t88*t93*t248*
4163 t252*t113;
4164 t702 = -.5848223397455204*t84*t88*t89*t93*(5.114567901234566*
4165 t10*t11*t3*t410*t78+4.986703703703703*t10*t11*t14*t411*t106+
4166 .6520444444444444*t5*t3*t410*t106+2.876944444444444*t10*t11*
4167 M_PI*t262*t244+1.059572222222222*t5*t14*t411*t244+.8391087962962963*
4168 t10*t11*t620*t242*t412+.8558083333333334*t5*M_PI*t262*t412+
4169 0.320928125*t5*t620*t242*t676+12.5242962962963*t1*t2*t4*t675+
4170 5.396355555555555*t12*t13*t15*t674)*t112*t113;
4171 t703 = .08674864706225219*t84*t1*t2*t4*t105*t88*t93*t432*
4172 t112*t113;
4173 t704 = -.1734972941245044*t84*t1*t2*t4*t243*t88*t93*t254*
4174 t112*t113;
4175 t705 = 0.269884679749229*t84*t1*t2*t4*t411*t88*t93*t111*
4176 t112*t113;
4177 t706 = -.04593484138271605*t1*t2*t4*t675*t82;
4178 t707 = 1/pow(t91,2.666666666666667);
4179 t708 = -24.0*t127*t85;
4180 t709 = 24.0*t87;
4181 t710 = 1/pow(t92,2.666666666666667);
4182 t711 = 24.0*t127*t85;
4183 t712 = -24.0*t87;
4184 t713 = 1.333333333333333*t123*(t712+t711)+.4938271604938271*
4185 pow(t122,4.0)*t710+1.333333333333333*t120*(t709+t708)+.4938271604938271*
4186 pow(t119,4.0)*t707+1.777777777777778*t122*t267*t450-1.777777777777778*
4187 t266*t270*t447+1.777777777777778*t119*t261*t445-1.777777777777778*
4188 t260*t265*t442+1.333333333333333*t267*pow(t270,2.0)+1.333333333333333*
4189 t261*pow(t265,2.0);
4190 t714 = .007595904311542051*t84*t1*t2*t4*t675*t88*t93*
4191 t96;
4192 t715 = 1/pow(t72,8.0);
4193 t716 = -840.0*t715*t86;
4194 t717 = -1440.0*t277*t279;
4195 t718 = pow(t132,4.0);
4196 t719 = pow(t287,2.0);
4197 t720 = t84*t86*t87*t93*(199659.0885685683*t718*t98/(pow(t100,
4198 4.0)*pow(t99,8.0))-24829.60425438716*t466*t718*t98/pow(t99,
4199 7.0)+.04593484138271605*t1*t2*t4*t675*t82-24954.97798673546*
4200 t75*t651*t652*t653-566.8874535768302*t1*t2*t4*t105*t464*t465*
4201 t466+12414.80212719358*t98*t287*t283*t465*t466+6207.001764684737*
4202 t75*t651*t655*t401+147.3818085681254*t1*t2*t4*t105*t399*t400*
4203 t401-3103.500882342369*t75*t245*t236*t400*t401+52.87359279511096*
4204 t1*t2*t4*t105*t464*t467*t285-1157.928594403345*t98*t287*t283*
4205 t467*t285+1157.928594403345*t98*t718*t465*t285+96.4940495336121*
4206 t98*t719*t284*t285+17.62453093170365*t1*t2*t4*t243*t283*t284*
4207 t285+128.6587327114828*t98*t468*t132*t284*t285-26.43679639755548*
4208 t1*t2*t4*t105*t287*t132*t284*t285-27.49348686114952*t1*t2*
4209 t4*t105*t399*t403*t238+578.9456755974396*t75*t245*t236*t403*
4210 t238-578.9456755974396*t75*t651*t400*t238-48.2454729664533*
4211 t75*t662*t237*t238-9.164495620383173*t1*t2*t4*t243*t236*t237*
4212 t238-64.3272972886044*t75*t413*t107*t237*t238+13.74674343057476*
4213 t1*t2*t4*t105*t245*t107*t237*t238-24.0*t98*t718*t467*t134-
4214 6.0*t98*t719*t286*t134-1.095893333333333*t1*t2*t4*t243*t283*
4215 t286*t134-8.0*t98*t468*t132*t286*t134+1.64384*t1*t2*t4*t105*
4216 t287*t132*t286*t134-1.64384*t1*t2*t4*t105*t464*t284*t134+36.0*
4217 t98*t287*t283*t284*t134+1.0*t98*(6.972296296296296*t10*t11*
4218 t3*t410*t78+6.797988888888888*t10*t11*t14*t411*t106+2.493481481481481*
4219 t5*t3*t410*t106+3.921916666666666*t10*t11*M_PI*t262*t244+4.051907407407407*
4220 t5*t14*t411*t244+1.143892361111111*t10*t11*t620*t242*t412+
4221 3.272694444444445*t5*M_PI*t262*t412+1.227260416666667*t5*t620*
4222 t242*t676+21.42414814814815*t1*t2*t4*t675+6.79197037037037*
4223 t12*t13*t15*t674)*t133*t134-.2739733333333333*t1*t2*t4*t105*
4224 t468*t133*t134+.5479466666666666*t1*t2*t4*t243*t287*t133*t134-
4225 .8523614814814813*t1*t2*t4*t411*t132*t133*t134+24.0*t75*t651*
4226 t403*t109+6.0*t75*t662*t240*t109+1.139733333333333*t1*t2*t4*
4227 t243*t236*t240*t109+8.0*t75*t413*t107*t240*t109-1.7096*t1*
4228 t2*t4*t105*t245*t107*t240*t109+1.7096*t1*t2*t4*t105*t399*t237*
4229 t109-36.0*t75*t245*t236*t237*t109-.9999999999999999*t75*t677*
4230 t108*t109+.2849333333333333*t1*t2*t4*t105*t413*t108*t109-.5698666666666665*
4231 t1*t2*t4*t243*t245*t108*t109+.8864592592592592*t1*t2*t4*t411*
4232 t107*t108*t109-.02208326538271604*t1*t2*t4*t675*t101);
4233 t721 = -16.0*t127*t469*t84*t86*t93;
4234 t722 = 120.0*t277*t288*t84*t86*t93;
4235 t723 = 72.0*t279*t288*t84*t87*t93;
4236 t724 = -480.0*t135*t458*t84*t86*t93;
4237 t725 = -576.0*t127*t135*t279*t84*t93;
4238 t726 = 840.0*t102*t715*t84*t86*t93;
4239 t727 = 1440.0*t102*t277*t279*t84*t93;
4240 t728 = 24.0*t102*t84*t87*t93;
4241 t729 = 1/pow(t64,8.0);
4242 t730 = -3.508934038473122*t84*t88*t89*t301*t111*t112*
4243 t113;
4244 t731 = -3.508934038473122*t84*t130*t89*t189*t111*t112*
4245 t113;
4246 t732 = -3.508934038473122*t84*t191*t89*t124*t111*t112*
4247 t113;
4248 t733 = -3.508934038473122*t84*t302*t89*t93*t111*t112*
4249 t113;
4250 t734 = -.004394773208820758*t84*t1*t2*t4*t105*t88*t301*
4251 t96;
4252 t735 = -.004394773208820758*t84*t1*t2*t4*t105*t130*t189*
4253 t96;
4254 t736 = -.004394773208820758*t84*t1*t2*t4*t105*t191*t124*
4255 t96;
4256 t737 = -.004394773208820758*t84*t1*t2*t4*t105*t302*t93*
4257 t96;
4258 t738 = 6.0*t135*t301*t84*t86*t87;
4259 t739 = -24.0*t102*t127*t301*t84*t86;
4260 t740 = -51.9472676981276*t84*t88*t89*t301*t248*t249*t250;
4261 t741 = -
4262 51.9472676981276*t84*t130*t89*t189*t248*t249*t250;
4263 t742 = -51.9472676981276*t84*t191*t89*t124*t248*t249*
4264 t250;
4265 t743 = -51.9472676981276*t84*t302*t89*t93*t248*t249*t250;
4266 t744 = 3.508934038473122*
4267 t84*t88*t89*t301*t248*t252*t113;
4268 t745 = 3.508934038473122*t84*t130*t89*t189*t248*t252*
4269 t113;
4270 t746 = 3.508934038473122*t84*t191*t89*t124*t248*t252*
4271 t113;
4272 t747 = 3.508934038473122*t84*t302*t89*t93*t248*t252*t113;
4273 t748 = -
4274 1.754467019236561*t84*t88*t89*t301*t254*t112*t113;
4275 t749 = -1.754467019236561*t84*t130*t89*t189*t254*t112*
4276 t113;
4277 t750 = -1.754467019236561*t84*t191*t89*t124*t254*t112*
4278 t113;
4279 t751 = -1.754467019236561*t84*t302*t89*t93*t254*t112*
4280 t113;
4281 t752 = .1301229705933783*t84*t1*t2*t4*t105*t88*t301*t111*
4282 t112*t113;
4283 t753 = .1301229705933783*t84*t1*t2*t4*t105*t130*t189*
4284 t111*t112*t113;
4285 t754 = .1301229705933783*t84*t1*t2*t4*t105*t191*t124*
4286 t111*t112*t113;
4287 t755 = .1301229705933783*t84*t1*t2*t4*t105*t302*t93*t111*
4288 t112*t113;
4289 t756 = .002929848805880505*t84*t1*t2*t4*t243*t88*t301*
4290 t96;
4291 t757 = 1.333333333333333*t120*(12.0*t87+t708)+1.333333333333333*
4292 t123*(t711-12.0*t87)-1.777777777777778*t262*t266*t447*t85+
4293 1.777777777777778*t260*t262*t442*t85+2.666666666666667*t262*
4294 t267*t270*t85-2.666666666666667*t261*t262*t265*t85+.4938271604938271*
4295 t188*t446*t710+.4938271604938271*t187*t441*t707+1.333333333333333*
4296 t122*t267*t498+1.333333333333333*t119*t261*t497+.4444444444444444*
4297 t188*t267*t450-.8888888888888888*t122*t188*t270*t447+.4444444444444444*
4298 t187*t261*t445-.8888888888888888*t119*t187*t265*t442;
4299 t758 = .002929848805880505*t84*t1*t2*t4*t243*t130*t189*
4300 t96;
4301 t759 = .002929848805880505*t84*t1*t2*t4*t243*t191*t124*
4302 t96;
4303 t760 = .002929848805880505*t84*t1*t2*t4*t243*t302*t93*
4304 t96;
4305 t761 = 3.0*t288*t301*t84*t86*t87;
4306 t762 = -24.0*t127*t135*t301*t84*t86;
4307 t763 = 60.0*t102*t277*t301*t84*t86;
4308 t764 = 36.0*t102*t279*t301*t84*t87;
4309 t765 = -24.0*t102*t84*t87*t93;
4310 t766 = pow(grada,15.0);
4311 t767 = 1/pow(rhoa,24.33333333333333);
4312 t768 = -32.0*t120*t127*t85;
4313 t769 = 32.0*t123*t127*t85;
4314 t770 = -5.333333333333333*t122*t267*t85*t87+5.333333333333333*
4315 t119*t261*t85*t87-2.37037037037037*t122*t188*t262*t447*t85+
4316 2.37037037037037*t119*t187*t262*t442*t85+t769+t768+.4938271604938271*
4317 t266*t334*t710+.4938271604938271*t260*t332*t707+.8888888888888888*
4318 t188*t267*t498+.8888888888888888*t187*t261*t497-.2962962962962963*
4319 t266*t335*t447-.2962962962962963*t270*t334*t447-.2962962962962963*
4320 t260*t333*t442-.2962962962962963*t265*t332*t442+.4444444444444444*
4321 t267*t270*t335+.4444444444444444*t261*t265*t333+3.555555555555555*
4322 t267*t277*t279+3.555555555555555*t261*t277*t279-1.777777777777778*
4323 t122*t262*t267+1.777777777777778*t119*t261*t262;
4324 t771 = 1/pow(rhoa,23.33333333333333);
4325 t772 = -8.0*t188*t267*t85*t87+8.0*t187*t261*t85*t87+16.0*
4326 t123*t87-16.0*t120*t87-1.777777777777778*t262*t334*t447*t85+
4327 1.777777777777778*t262*t332*t442*t85+2.666666666666667*t262*
4328 t267*t335*t85-2.666666666666667*t261*t262*t333*t85+t769+t768+
4329 .4938271604938271*t122*t563*t710+.4938271604938271*t119*t561*
4330 t707+.4444444444444444*t122*t267*t564+.4444444444444444*t119*
4331 t261*t562-.8888888888888888*t122*t188*t335*t447-.8888888888888888*
4332 t119*t187*t333*t442-2.666666666666667*t188*t262*t267+2.666666666666667*
4333 t187*t261*t262;
4334 t773 = 1/pow(rhoa,22.33333333333333);
4335 t774 = pow(gradb,16.0);
4336 t775 = 1/pow(t153,8.0);
4337 t776 = 1/pow(rhob,25.33333333333333);
4338 t777 = 1/pow(rhob,22.66666666666667);
4339 t778 = 1/pow(rhob,20.0);
4340 t779 = 1/pow(rhob,17.33333333333333);
4341 t780 = 1/pow(rhob,14.66666666666667);
4342 t781 = 1/pow(rhob,12.0);
4343 t782 = 1/pow(rhob,9.333333333333334);
4344 t783 = 1/pow(rhob,6.666666666666667);
4345 t784 = 1/pow(t148,4.0);
4346 t785 = pow(t183,4.0);
4347 t786 = 1/pow(t147,8.0);
4348 t787 = 1/pow(t147,7.0);
4349 t788 = pow(t327,2.0);
4350 t789 = 1/pow(rhob,3.0);
4351 t790 = 21.42414814814815*t1*t2*t4/pow(rhob,4.333333333333333)+
4352 3.272694444444445*t5*M_PI*t548*t789+3.921916666666666*t10*t11*
4353 M_PI*t326*t789+1.227260416666667*t5*t61*t620/pow(t143,11.0)+
4354 1.143892361111111*t10*t11*t620*t548*t61+4.051907407407407*
4355 t5*t14*t326*t547+6.797988888888888*t10*t11*t14*t182*t547+6.79197037037037*
4356 t12*t13*t15*t319+2.493481481481481*t5*t3*t182*t176+6.972296296296296*
4357 t10*t11*t3*t144*t176;
4358 t791 = 1/pow(t164,8.0);
4359 t792 = 1.333333333333333*t120*(t712+t708)+.4938271604938271*
4360 pow(t188,4.0)*t710+1.333333333333333*t123*(t709+t711)+.4938271604938271*
4361 pow(t187,4.0)*t707+1.777777777777778*t188*t267*t564+1.777777777777778*
4362 t187*t261*t562-1.777777777777778*t334*t335*t447-1.777777777777778*
4363 t332*t333*t442+1.333333333333333*t267*pow(t335,2.0)+1.333333333333333*
4364 t261*pow(t333,2.0);
4365 t793 = pow(gradb,15.0);
4366 t794 = 1/pow(rhob,24.33333333333333);
4367 t795 = 1/pow(rhob,23.33333333333333);
4368 t796 = 1/pow(rhob,22.33333333333333);
4369 t797 = 1/pow(rhoa,21.33333333333333);
4370 t798 = 1/pow(rhob,21.33333333333333);
4371
4372 /* code */
4373 dfdra = 1.0*t51*t34*t56*t35*t57*rhoa-0.03109*t20*t50*
4374 t35*rhoa-1.0*t36*t4*t42*t6-0.75*t36*t4*t53*t59-0.03109*t20*
4375 t34*t35+.002129457733333333*t1*t2*t4*t20*t34*t17+t141*t151+
4376 t71*t139;
4377 dfdrb = 1.0*t178*t163*t183*t150*t184*rhob-0.03109*t149*
4378 t177*t150*rhob-0.75*t180*t186*t36*t4-1.0*t142*t169*t36*t4+
4379 t71*t194+t195*t151-0.03109*t149*t163*t150+.002129457733333333*
4380 t1*t2*t4*t149*t163*t146;
4381 dfdga = -0.03109*t20*t201*t35*rhoa-0.75*t202*t36*t4*t53+
4382 t203*t151;
4383 dfdgb = -0.03109*t149*t209*t150*rhob-0.75*t180*t210*t36*
4384 t4+t211*t151;
4385 dfdgab = 0.0;
4386 d2fdrara = 2.0*t51*t50*t56*t35*t57*rhoa+1.0*t51*t34*t227*
4387 t35*t57*rhoa-0.03109*t20*t220*t35*rhoa-2.0*t51*t34*t222*t35*
4388 t224*rhoa+32.1646831778707*t221*t34*t222*t35*t223*rhoa-2.0*
4389 t36*t4*t59*t6+2.0*t51*t34*t56*t35*t57+.001419638488888889*
4390 t1*t2*t4*t20*t34*t54-0.75*t229*t36*t4*t53-.3333333333333333*
4391 t16*t36*t4*t42-0.06218*t20*t50*t35+t71*t298-.1369866666666666*
4392 t1*t2*t4*t51*t34*t56*t57*t17+.004258915466666666*t1*t2*t4*
4393 t20*t50*t17+t300*t151+2.0*t139*t141;
4394 d2fdrarb = t305*t151+t195*t139+t141*t194+t71*t304;
4395 d2fdraga = 1.0*t51*t201*t56*t35*t57*rhoa-0.03109*t20*
4396 t308*t35*rhoa-1.0*t202*t36*t4*t6-0.75*t309*t36*t4*t53-0.03109*
4397 t20*t201*t35+.002129457733333333*t1*t2*t4*t20*t201*t17+t310*
4398 t151+t203*t139;
4399 d2fdragb = t311*t151+t211*t139;
4400 d2fdraab = 0.0;
4401 d2fdrbrb = -2.0*t178*t163*t322*t150*t324*rhob+32.1646831778707*
4402 t321*t163*t322*t150*t323*rhob+1.0*t178*t163*t327*t150*t184*
4403 rhob+2.0*t178*t177*t183*t150*t184*rhob-0.03109*t149*t320*t150*
4404 rhob-0.75*t180*t329*t36*t4-2.0*t142*t186*t36*t4-.3333333333333333*
4405 t145*t169*t36*t4+t71*t348+2.0*t194*t195+2.0*t178*t163*t183*
4406 t150*t184+.001419638488888889*t1*t2*t4*t149*t163*t181+t349*
4407 t151-0.06218*t149*t177*t150-.1369866666666666*t1*t2*t4*t178*
4408 t163*t183*t184*t146+.004258915466666666*t1*t2*t4*t149*t177*
4409 t146;
4410 d2fdrbga = t350*t151+t203*t194;
4411 d2fdrbgb = 1.0*t178*t209*t183*t150*t184*rhob-0.03109*
4412 t149*t353*t150*rhob-0.75*t180*t354*t36*t4-1.0*t142*t210*t36*
4413 t4+t211*t194+t355*t151-0.03109*t149*t209*t150+.002129457733333333*
4414 t1*t2*t4*t149*t209*t146;
4415 d2fdrbgab = 0.0;
4416 d2fdgaga = -0.03109*t20*t357*t35*rhoa-0.75*t358*t36*t4*
4417 t53+t359*t151;
4418 d2fdgagb = t360*t151;
4419 d2fdgagab = 0.0;
4420 d2fdgbgb = -0.03109*t149*t362*t150*rhob-0.75*t180*t36*
4421 t363*t4+t364*t151;
4422 d2fdgbgab = 0.0;
4423 d2fdgabgab = 0.0;
4424 d3fdrarara = 3.0*t51*t220*t56*t35*t57*rhoa+1.0*t51*t34*
4425 t382*t35*t57*rhoa+3.0*t51*t50*t227*t35*t57*rhoa-192.9880990672242*
4426 t221*t34*t376*t35*t378*rhoa+2069.133687865597*t375*t34*t376*
4427 t35*t377*rhoa-0.03109*t20*t374*t35*rhoa-6.0*t51*t34*t227*t56*
4428 t35*t224*rhoa-6.0*t51*t50*t222*t35*t224*rhoa+96.4940495336121*
4429 t221*t34*t227*t56*t35*t223*rhoa+6.0*t51*t34*t376*t35*t223*
4430 rhoa+96.4940495336121*t221*t50*t222*t35*t223*rhoa-3.0*t229*
4431 t36*t4*t6-1.0*t16*t36*t4*t59+6.0*t51*t50*t56*t35*t57+3.0*t51*
4432 t34*t227*t35*t57-.1369866666666666*t1*t2*t4*t51*t34*t56*t57*
4433 t54+.004258915466666666*t1*t2*t4*t20*t50*t54-0.75*t36*t384*
4434 t4*t53+.2222222222222222*t36*t4*t42*t52+t71*t484-.09326999999999999*
4435 t20*t220*t35+3.0*t139*t300+3.0*t141*t298-.001892851318518518*
4436 t1*t2*t4*t20*t34*t225-6.0*t51*t34*t222*t35*t224+96.4940495336121*
4437 t221*t34*t222*t35*t223-.4109599999999999*t1*t2*t4*t51*t50*
4438 t56*t57*t17-0.20548*t1*t2*t4*t51*t34*t227*t57*t17+.4109599999999999*
4439 t1*t2*t4*t51*t34*t222*t224*t17-6.60919909938887*t1*t2*t4*t221*
4440 t34*t222*t223*t17+.006388373199999998*t1*t2*t4*t20*t220*t17+
4441 t486*t151;
4442 d3fdrararb = t71*t512+2.0*t139*t305+2.0*t141*t304+t195*
4443 t298+t300*t194+t513*t151;
4444 d3fdraraga = 2.0*t51*t308*t56*t35*t57*rhoa+1.0*t51*t201*
4445 t227*t35*t57*rhoa-0.03109*t20*t516*t35*rhoa-2.0*t51*t201*t222*
4446 t35*t224*rhoa+32.1646831778707*t221*t201*t222*t35*t223*rhoa-
4447 2.0*t309*t36*t4*t6+2.0*t51*t201*t56*t35*t57+.001419638488888889*
4448 t1*t2*t4*t20*t201*t54-0.75*t36*t4*t517*t53-.3333333333333333*
4449 t16*t202*t36*t4-0.06218*t20*t308*t35+2.0*t139*t310+t203*t298-
4450 .1369866666666666*t1*t2*t4*t51*t201*t56*t57*t17+.004258915466666666*
4451 t1*t2*t4*t20*t308*t17+t518*t151;
4452 d3fdraragb = 2.0*t139*t311+t211*t298+t519*t151;
4453 d3fdraraab = 0.0;
4454 d3fdrarbrb = t71*t523+t141*t348+2.0*t194*t305+2.0*t195*
4455 t304+t524*t151+t349*t139;
4456 d3fdrarbga = t525*t151+t350*t139+t310*t194+t203*t304;
4457 d3fdrarbgb = t526*
4458 t151+t355*t139+t311*t194+t211*t304;
4459 d3fdrarbab = 0.0;
4460 d3fdragaga = 1.0*t51*t357*t56*t35*t57*rhoa-0.03109*t20*
4461 t528*t35*rhoa-1.0*t358*t36*t4*t6-0.75*t36*t4*t529*t53-0.03109*
4462 t20*t357*t35+.002129457733333333*t1*t2*t4*t20*t357*t17+t530*
4463 t151+t359*t139;
4464 d3fdragagb = t531*t151+t360*t139;
4465 d3fdragaab = 0.0;
4466 d3fdragbgb = t532*t151+t364*t139;
4467 d3fdragbab = 0.0;
4468 d3fdraabab = 0.0;
4469 d3fdrbrbrb = -192.9880990672242*t321*t163*t544*t150*t546*
4470 rhob+2069.133687865597*t543*t163*t544*t150*t545*rhob-6.0*t178*
4471 t177*t322*t150*t324*rhob-6.0*t178*t163*t327*t183*t150*t324*
4472 rhob+6.0*t178*t163*t544*t150*t323*rhob+96.4940495336121*t321*
4473 t177*t322*t150*t323*rhob+96.4940495336121*t321*t163*t327*t183*
4474 t150*t323*rhob+1.0*t178*t163*t550*t150*t184*rhob+3.0*t178*
4475 t177*t327*t150*t184*rhob+3.0*t178*t320*t183*t150*t184*rhob-
4476 0.03109*t149*t542*t150*rhob+t71*t580-0.75*t180*t36*t4*t552-
4477 3.0*t142*t329*t36*t4-1.0*t145*t186*t36*t4+.2222222222222222*
4478 t169*t179*t36*t4+3.0*t194*t349+3.0*t195*t348-.001892851318518518*
4479 t1*t2*t4*t149*t163*t325-6.0*t178*t163*t322*t150*t324+96.4940495336121*
4480 t321*t163*t322*t150*t323+3.0*t178*t163*t327*t150*t184+6.0*
4481 t178*t177*t183*t150*t184-.1369866666666666*t1*t2*t4*t178*t163*
4482 t183*t184*t181+.004258915466666666*t1*t2*t4*t149*t177*t181+
4483 t581*t151-.09326999999999999*t149*t320*t150+.4109599999999999*
4484 t1*t2*t4*t178*t163*t322*t324*t146-6.60919909938887*t1*t2*t4*
4485 t321*t163*t322*t323*t146+.006388373199999998*t1*t2*t4*t149*
4486 t320*t146-0.20548*t1*t2*t4*t178*t163*t327*t184*t146-.4109599999999999*
4487 t1*t2*t4*t178*t177*t183*t184*t146;
4488 d3fdrbrbga = 2.0*t194*t350+t203*t348+t582*t151;
4489 d3fdrbrbgb = -2.0*t178*t209*t322*t150*t324*rhob+32.1646831778707*
4490 t321*t209*t322*t150*t323*rhob+1.0*t178*t209*t327*t150*t184*
4491 rhob+2.0*t178*t353*t183*t150*t184*rhob-0.03109*t149*t585*t150*
4492 rhob-0.75*t180*t36*t4*t586-2.0*t142*t354*t36*t4-.3333333333333333*
4493 t145*t210*t36*t4+2.0*t194*t355+t211*t348+2.0*t178*t209*t183*
4494 t150*t184+.001419638488888889*t1*t2*t4*t149*t209*t181+t587*
4495 t151-0.06218*t149*t353*t150+.004258915466666666*t1*t2*t4*t149*
4496 t353*t146-.1369866666666666*t1*t2*t4*t178*t209*t183*t184*t146;
4497 d3fdrbrbab = 0.0;
4498 d3fdrbgaga = t588*
4499 t151+t359*t194;
4500 d3fdrbgagb = t589*t151+t360*t194;
4501 d3fdrbgaab = 0.0;
4502 d3fdrbgbgb = 1.0*t178*t362*t183*t150*t184*rhob-0.03109*
4503 t149*t591*t150*rhob-0.75*t180*t36*t4*t592-1.0*t142*t36*t363*
4504 t4+t364*t194+t593*t151-0.03109*t149*t362*t150+.002129457733333333*
4505 t1*t2*t4*t149*t362*t146;
4506 d3fdrbgbab = 0.0;
4507 d3fdrbabab = 0.0;
4508 d3fdgagaga = -0.03109*t20*t595*t35*rhoa-0.75*t36*t4*t53*
4509 t596+t597*t151;
4510 d3fdgagagb = t598*t151;
4511 d3fdgagaab = 0.0;
4512 d3fdgagbgb = t599*t151;
4513 d3fdgagbab = 0.0;
4514 d3fdgaabab = 0.0;
4515 d3fdgbgbgb = -0.03109*t149*t601*t150*rhob-0.75*t180*t36*
4516 t4*t602+t603*t151;
4517 d3fdgbgbab = 0.0;
4518 d3fdgbabab = 0.0;
4519 d3fdababab = 0.0;
4520 d4fdrararara = t71*(24829.60425438716*t375*t615*t35*t617*
4521 rhoa-199659.0885685683*t614*t615*t35*t616*rhoa-1.0*t51*t621*
4522 t35*t57*rhoa+24.0*t51*t615*t35*t378*rhoa+1157.928594403345*
4523 t221*t227*t222*t35*t378*rhoa-1157.928594403345*t221*t615*t35*
4524 t377*rhoa-12414.80212719358*t375*t227*t222*t35*t377*rhoa+6.0*
4525 t51*t618*t35*t224*rhoa+8.0*t51*t382*t56*t35*t224*rhoa-96.4940495336121*
4526 t221*t618*t35*t223*rhoa-128.6587327114828*t221*t382*t56*t35*
4527 t223*rhoa-36.0*t51*t227*t222*t35*t223*rhoa+t72*(.01975178970256521*
4528 t84*(384.0*t127*t85+t717+t716+t712+1920.0*t129*t458)*t89*t93*
4529 t96-.002929848805880505*t84*t1*t2*t4*t105*t462*t93*t96+0.00585969761176101*
4530 t84*t1*t2*t4*t243*t281*t93*t96-0.00911508517385046*t84*t1*
4531 t2*t4*t411*t130*t93*t96+.01975178970256521*t84*t88*t89*t713*
4532 t96+.07900715881026082*t84*t130*t89*t451*t96-.002929848805880505*
4533 t84*t1*t2*t4*t105*t88*t451*t96+.1185107382153912*t84*t281*
4534 t89*t271*t96+0.00585969761176101*t84*t1*t2*t4*t243*t88*t271*
4535 t96-.008789546417641516*t84*t1*t2*t4*t105*t130*t271*t96+.07900715881026082*
4536 t84*t462*t89*t124*t96-0.00911508517385046*t84*t1*t2*t4*t411*
4537 t88*t124*t96-.008789546417641516*t84*t1*t2*t4*t105*t281*t124*
4538 t96+.01171939522352202*t84*t1*t2*t4*t243*t130*t124*t96+96.0*
4539 t135*t84*t85*t87*t93+16.0*t129*t469*t84*t87*t93-384.0*t102*
4540 t127*t84*t85*t93-1920.0*t102*t129*t458*t84*t93-192.0*t127*
4541 t129*t288*t84*t93+960.0*t129*t135*t277*t84*t93+4.0*t124*t469*
4542 t84*t86*t87+4.0*t135*t451*t84*t86*t87+6.0*t271*t288*t84*t86*
4543 t87+96.0*t102*t124*t84*t85*t87+16.0*t102*t129*t451*t84*t87+
4544 48.0*t124*t129*t288*t84*t87+72.0*t102*t271*t279*t84*t87+144.0*
4545 t124*t135*t279*t84*t87+48.0*t129*t135*t271*t84*t87-480.0*t102*
4546 t124*t458*t84*t86-16.0*t102*t127*t451*t84*t86-48.0*t124*t127*
4547 t288*t84*t86+120.0*t102*t271*t277*t84*t86+240.0*t124*t135*
4548 t277*t84*t86-48.0*t127*t135*t271*t84*t86-576.0*t102*t124*t127*
4549 t279*t84+960.0*t102*t124*t129*t277*t84-192.0*t102*t127*t129*
4550 t271*t84-384.0*t124*t127*t129*t135*t84+t728+t727+t726+t725+
4551 t724+t723+t722+t721+t720+t714+t706+t705+t704+t703+t702+t701+
4552 t700+t699+t698+t697+t696+t695+t694+t693+t692+t691+t689+t688+
4553 t687+t686+t685+t684+t683+t681+t680+t679+t678+t673+t672+t671+
4554 t670+t669+t668+t667+t666+t665+t664+t663+t661+t660+t659+t658+
4555 t657+t656+t654-4101.558808403119*t84*t130*t89*t93*t417*t418*
4556 t419-4101.558808403119*t84*t88*t89*t124*t417*t418*t419+415.5781415850207*
4557 t84*t130*t89*t93*t417*t421*t250+415.5781415850207*t84*t88*
4558 t89*t124*t417*t421*t250-103.8945353962552*t84*t281*t89*t93*
4559 t248*t249*t250+7.70551137522226*t84*t1*t2*t4*t105*t130*t93*
4560 t248*t249*t250-103.8945353962552*t84*t88*t89*t271*t248*t249*
4561 t250-207.7890707925104*t84*t130*t89*t124*t248*t249*t250+7.70551137522226*
4562 t84*t1*t2*t4*t105*t88*t124*t248*t249*t250-207.7890707925104*
4563 t84*t130*t89*t93*t254*t111*t249*t250-207.7890707925104*t84*
4564 t88*t89*t124*t254*t111*t249*t250+7.017868076946245*t84*t281*
4565 t89*t93*t248*t252*t113-.5204918823735132*t84*t1*t2*t4*t105*
4566 t130*t93*t248*t252*t113+7.017868076946245*t84*t88*t89*t271*
4567 t248*t252*t113+14.03573615389249*t84*t130*t89*t124*t248*t252*
4568 t113-.5204918823735132*t84*t1*t2*t4*t105*t88*t124*t248*t252*
4569 t113+14.03573615389249*t84*t130*t89*t93*t254*t111*t252*t113+
4570 14.03573615389249*t84*t88*t89*t124*t254*t111*t252*t113-14.03573615389249*
4571 t84*t130*t89*t93*t417*t249*t113-14.03573615389249*t84*t88*
4572 t89*t124*t417*t249*t113-2.339289358982082*t84*t130*t89*t93*
4573 t432*t112*t113-2.339289358982082*t84*t88*t89*t124*t432*t112*
4574 t113-3.508934038473122*t84*t281*t89*t93*t254*t112*t113+.2602459411867566*
4575 t84*t1*t2*t4*t105*t130*t93*t254*t112*t113-3.508934038473122*
4576 t84*t88*t89*t271*t254*t112*t113-7.017868076946245*t84*t130*
4577 t89*t124*t254*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*
4578 t88*t124*t254*t112*t113-2.339289358982082*t84*t462*t89*t93*
4579 t111*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*t281*t93*
4580 t111*t112*t113-.3469945882490088*t84*t1*t2*t4*t243*t130*t93*
4581 t111*t112*t113-2.339289358982082*t84*t88*t89*t451*t111*t112*
4582 t113-7.017868076946245*t84*t130*t89*t271*t111*t112*t113+.2602459411867566*
4583 t84*t1*t2*t4*t105*t88*t271*t111*t112*t113-7.017868076946245*
4584 t84*t281*t89*t124*t111*t112*t113-.3469945882490088*t84*t1*
4585 t2*t4*t243*t88*t124*t111*t112*t113+.5204918823735132*t84*t1*
4586 t2*t4*t105*t130*t124*t111*t112*t113+t84*t86*t87*t713*t102)+
4587 .07900715881026082*t84*t462*t89*t93*t96-.008789546417641516*
4588 t84*t1*t2*t4*t105*t281*t93*t96+.01171939522352202*t84*t1*t2*
4589 t4*t243*t130*t93*t96+.07900715881026082*t84*t88*t89*t451*t96+
4590 .2370214764307825*t84*t130*t89*t271*t96-.008789546417641516*
4591 t84*t1*t2*t4*t105*t88*t271*t96+.2370214764307825*t84*t281*
4592 t89*t124*t96+.01171939522352202*t84*t1*t2*t4*t243*t88*t124*
4593 t96-.01757909283528303*t84*t1*t2*t4*t105*t130*t124*t96+96.0*
4594 t102*t84*t85*t87*t93+48.0*t129*t288*t84*t87*t93+960.0*t102*
4595 t129*t277*t84*t93-384.0*t127*t129*t135*t84*t93+4.0*t102*t451*
4596 t84*t86*t87+12.0*t124*t288*t84*t86*t87+12.0*t135*t271*t84*
4597 t86*t87+144.0*t102*t124*t279*t84*t87+48.0*t102*t129*t271*t84*
4598 t87+96.0*t124*t129*t135*t84*t87+240.0*t102*t124*t277*t84*t86-
4599 48.0*t102*t127*t271*t84*t86-96.0*t124*t127*t135*t84*t86-384.0*
4600 t102*t124*t127*t129*t84+t650+t649+t648+t647+t646+t645+t644+
4601 t643+t642+t641+t640+t639+t638+t637+t636+t635+t634+t633+t632+
4602 t631+t630+t629+t628+t627+t626+t625+t624+t623-4.0*t51*t382*
4603 t35*t57+.2739733333333333*t1*t2*t4*t51*t227*t57*t54-.5479466666666666*
4604 t1*t2*t4*t51*t222*t224*t54+8.812265465851826*t1*t2*t4*t221*
4605 t222*t223*t54-.004416653076543209*t1*t2*t4*t20*t379+771.9523962688968*
4606 t221*t376*t35*t378-8276.534751462386*t375*t376*t35*t377-207.7890707925104*
4607 t84*t130*t89*t93*t248*t249*t250-207.7890707925104*t84*t88*
4608 t89*t124*t248*t249*t250-.2435318518518518*t1*t2*t4*t51*t56*
4609 t57*t225+24.0*t51*t227*t56*t35*t224-385.9761981344484*t221*
4610 t227*t56*t35*t223-24.0*t51*t376*t35*t223+.2739733333333333*
4611 t1*t2*t4*t51*t382*t57*t17-52.87359279511096*t1*t2*t4*t221*
4612 t376*t378*t17+566.8874535768302*t1*t2*t4*t375*t376*t377*t17-
4613 1.64384*t1*t2*t4*t51*t227*t56*t224*t17+26.43679639755548*t1*
4614 t2*t4*t221*t227*t56*t223*t17+1.64384*t1*t2*t4*t51*t376*t223*
4615 t17+14.03573615389249*t84*t130*t89*t93*t248*t252*t113+14.03573615389249*
4616 t84*t88*t89*t124*t248*t252*t113-7.017868076946245*t84*t130*
4617 t89*t93*t254*t112*t113-7.017868076946245*t84*t88*t89*t124*
4618 t254*t112*t113-7.017868076946245*t84*t281*t89*t93*t111*t112*
4619 t113+.5204918823735132*t84*t1*t2*t4*t105*t130*t93*t111*t112*
4620 t113-7.017868076946245*t84*t88*t89*t271*t111*t112*t113-14.03573615389249*
4621 t84*t130*t89*t124*t111*t112*t113+.5204918823735132*t84*t1*
4622 t2*t4*t105*t88*t124*t111*t112*t113)-24829.60425438716*t375*
4623 t34*t615*t35*t617*rhoa+199659.0885685683*t614*t34*t615*t35*
4624 t616*rhoa+1.0*t51*t34*t621*t35*t57*rhoa+4.0*t51*t374*t56*t35*
4625 t57*rhoa+4.0*t51*t50*t382*t35*t57*rhoa+6.0*t51*t220*t227*t35*
4626 t57*rhoa-24.0*t51*t34*t615*t35*t378*rhoa-771.9523962688968*
4627 t221*t50*t376*t35*t378*rhoa-1157.928594403345*t221*t34*t227*
4628 t222*t35*t378*rhoa+1157.928594403345*t221*t34*t615*t35*t377*
4629 rhoa+8276.534751462386*t375*t50*t376*t35*t377*rhoa+12414.80212719358*
4630 t375*t34*t227*t222*t35*t377*rhoa-0.03109*t20*(1.648851306666667*
4631 t22*t33*t613-149.6964613238518*t30*t31*t612+320.2201690661926*
4632 t27*t28*t611-253.7662422846578*t21*t25*t610+99.27987154230993*
4633 t43*t44*t609-20.69653345924741*t212*t213*t608+2.210467588778668*
4634 t365*t366*t607-0.0953561499420445*t604*t605*t606)*t35*rhoa-
4635 6.0*t51*t34*t618*t35*t224*rhoa-8.0*t51*t34*t382*t56*t35*t224*
4636 rhoa-24.0*t51*t50*t227*t56*t35*t224*rhoa-12.0*t51*t220*t222*
4637 t35*t224*rhoa+96.4940495336121*t221*t34*t618*t35*t223*rhoa+
4638 128.6587327114828*t221*t34*t382*t56*t35*t223*rhoa+385.9761981344484*
4639 t221*t50*t227*t56*t35*t223*rhoa+24.0*t51*t50*t376*t35*t223*
4640 rhoa+36.0*t51*t34*t227*t222*t35*t223*rhoa+192.9880990672242*
4641 t221*t220*t222*t35*t223*rhoa-0.75*t36*t4*t53*(-.3731455439012346*
4642 t22*t41*t613+.1266766131231605*t30*t40*t612-.005245704761192296*
4643 t27*t39*t611+8.65266582058224E-5*t21*t38*t610-7.184213048664367E-7*
4644 t43*t58*t609+3.1967368617478314E-9*t212*t228*t608-7.293573527658193E-12*
4645 t365*t383*t607+6.713491218128591E-15*t604*t622*t606)-4.0*t36*
4646 t384*t4*t6+.8888888888888888*t36*t4*t52*t59+12.0*t51*t220*
4647 t56*t35*t57+4.0*t51*t34*t382*t35*t57+12.0*t51*t50*t227*t35*
4648 t57-.5479466666666666*t1*t2*t4*t51*t50*t56*t57*t54-.2739733333333333*
4649 t1*t2*t4*t51*t34*t227*t57*t54+.5479466666666666*t1*t2*t4*t51*
4650 t34*t222*t224*t54-8.812265465851826*t1*t2*t4*t221*t34*t222*
4651 t223*t54+.008517830933333331*t1*t2*t4*t20*t220*t54+4.0*t139*
4652 t486+4.0*t141*t484-.3703703703703703*t23*t36*t4*t42-2.0*t16*
4653 t229*t36*t4+.004416653076543209*t1*t2*t4*t20*t34*t379-771.9523962688968*
4654 t221*t34*t376*t35*t378+8276.534751462386*t375*t34*t376*t35*
4655 t377-0.12436*t20*t374*t35+6.0*t298*t300+.2435318518518518*
4656 t1*t2*t4*t51*t34*t56*t57*t225-.007571405274074072*t1*t2*t4*
4657 t20*t50*t225-24.0*t51*t34*t227*t56*t35*t224-24.0*t51*t50*t222*
4658 t35*t224+385.9761981344484*t221*t34*t227*t56*t35*t223+24.0*
4659 t51*t34*t376*t35*t223+385.9761981344484*t221*t50*t222*t35*
4660 t223-.8219199999999999*t1*t2*t4*t51*t220*t56*t57*t17-.2739733333333333*
4661 t1*t2*t4*t51*t34*t382*t57*t17-.8219199999999999*t1*t2*t4*t51*
4662 t50*t227*t57*t17+52.87359279511096*t1*t2*t4*t221*t34*t376*
4663 t378*t17-566.8874535768302*t1*t2*t4*t375*t34*t376*t377*t17+
4664 .008517830933333331*t1*t2*t4*t20*t374*t17+1.64384*t1*t2*t4*
4665 t51*t34*t227*t56*t224*t17+1.64384*t1*t2*t4*t51*t50*t222*t224*
4666 t17-26.43679639755548*t1*t2*t4*t221*t34*t227*t56*t223*t17-
4667 1.64384*t1*t2*t4*t51*t34*t376*t223*t17-26.43679639755548*t1*
4668 t2*t4*t221*t50*t222*t223*t17+(3.540823668148148*t22*t613*t70-
4669 0.14740135872*t22*t613*t62*t69-0.252260853191111*t30*t612*
4670 t69+.001878028932266667*t22*t613*t68*t67+.008264097496746666*
4671 t30*t612*t62*t67+.003044825456639999*t27*t611*t67-8.85440607744E-6*
4672 t22*t613*t66*t65-9.029796255744E-5*t30*t612*t68*t65-8.881339686911999E-5*
4673 t27*t611*t62*t65-8.704257884159998E-6*t21*t610*t65+1.276718091264E-8*
4674 t22*t613*t63*t140+3.9425424850944E-7*t30*t612*t66*t140+9.0334755422208E-7*
4675 t27*t611*t68*t140+2.3867979595775998E-7*t21*t610*t62*t140-
4676 5.729138325504E-10*t30*t612*t63*t299-3.8074470432768E-9*t27*
4677 t611*t66*t299-2.3347131973632E-9*t21*t610*t68*t299+5.561770239590401E-12*
4678 t27*t611*t63*t485+9.6554651222016E-12*t21*t610*t66*t485-1.41572333371392E-14*
4679 t21*t610*t63*t729)*t151;
4680 d4fdrarararb = t71*(t72*(.01975178970256521*t84*(-192.0*
4681 t127*t85+t716+t709+960.0*t129*t458)*t89*t93*t96-.002197386604410379*
4682 t84*t1*t2*t4*t105*t505*t93*t96-7.324622014701263E-4*t84*t1*
4683 t2*t4*t105*t462*t93*t96+.002929848805880505*t84*t1*t2*t4*t243*
4684 t281*t93*t96-.002278771293462615*t84*t1*t2*t4*t411*t191*t93*
4685 t96-.006836313880387846*t84*t1*t2*t4*t411*t130*t93*t96+.01975178970256521*
4686 t84*t88*t89*t757*t96+.05925536910769562*t84*t130*t89*t499*
4687 t96-.002197386604410379*t84*t1*t2*t4*t105*t88*t499*t96+.01975178970256521*
4688 t84*t191*t89*t451*t96-7.324622014701263E-4*t84*t1*t2*t4*t105*
4689 t88*t451*t96+.05925536910769562*t84*t281*t89*t301*t96-.004394773208820758*
4690 t84*t1*t2*t4*t105*t130*t301*t96+.05925536910769562*t84*t302*
4691 t89*t271*t96+.002929848805880505*t84*t1*t2*t4*t243*t88*t271*
4692 t96-.002197386604410379*t84*t1*t2*t4*t105*t191*t271*t96-.002197386604410379*
4693 t84*t1*t2*t4*t105*t130*t271*t96+.01975178970256521*t84*t462*
4694 t89*t189*t96-.002278771293462615*t84*t1*t2*t4*t411*t88*t189*
4695 t96-.002197386604410379*t84*t1*t2*t4*t105*t281*t189*t96+.05925536910769562*
4696 t84*t505*t89*t124*t96-.006836313880387846*t84*t1*t2*t4*t411*
4697 t88*t124*t96-.004394773208820758*t84*t1*t2*t4*t105*t302*t124*
4698 t96-.002197386604410379*t84*t1*t2*t4*t105*t281*t124*t96+0.00585969761176101*
4699 t84*t1*t2*t4*t243*t130*t124*t96-48.0*t135*t84*t85*t87*t93+
4700 8.0*t129*t469*t84*t87*t93+192.0*t102*t127*t84*t85*t93-960.0*
4701 t102*t129*t458*t84*t93-96.0*t127*t129*t288*t84*t93+480.0*t129*
4702 t135*t277*t84*t93+3.0*t135*t499*t84*t86*t87+3.0*t124*t469*
4703 t84*t86*t87+3.0*t271*t288*t84*t86*t87+24.0*t102*t189*t84*t85*
4704 t87-72.0*t102*t124*t84*t85*t87+12.0*t102*t129*t499*t84*t87-
4705 4.0*t102*t129*t451*t84*t87+24.0*t129*t135*t301*t84*t87+12.0*
4706 t129*t189*t288*t84*t87+12.0*t124*t129*t288*t84*t87-36.0*t102*
4707 t271*t279*t84*t87+36.0*t135*t189*t279*t84*t87-36.0*t124*t135*
4708 t279*t84*t87-12.0*t102*t127*t499*t84*t86-120.0*t102*t189*t458*
4709 t84*t86-360.0*t102*t124*t458*t84*t86-4.0*t102*t127*t451*t84*
4710 t86-12.0*t127*t189*t288*t84*t86-36.0*t124*t127*t288*t84*t86+
4711 60.0*t102*t271*t277*t84*t86+60.0*t135*t189*t277*t84*t86+180.0*
4712 t124*t135*t277*t84*t86-24.0*t127*t135*t271*t84*t86-96.0*t102*
4713 t127*t129*t301*t84-144.0*t102*t127*t189*t279*t84+144.0*t102*
4714 t124*t127*t279*t84+240.0*t102*t129*t189*t277*t84+240.0*t102*
4715 t124*t129*t277*t84-96.0*t127*t129*t135*t189*t84-96.0*t124*
4716 t127*t129*t135*t84+t765+t764+t763+t762+t761+t760+t759+t758+
4717 t756+t755+t754+t753+t752+t751+t750+t749+t748+t747+t746+t745+
4718 t744+t743+t742+t741+t740+t726+t724+t722+t721+t720+t714+t706+
4719 t705+t704+t703+t702+t701+t700+t699+t698+t697+t696+t695+t694+
4720 t693+t692+t691+t689+t688+t687+t686+t685+t684+t683+t681+t680+
4721 t679+t678+t673+t672+t671+t670+t669+t668+t667+t666+t665+t664+
4722 t663+t661+t660+t659+t658+t657+t656+t654+t84*t86*t87*t189*t469-
4723 1025.38970210078*t84*t191*t89*t93*t417*t418*t419-3076.169106302339*
4724 t84*t130*t89*t93*t417*t418*t419-1025.38970210078*t84*t88*t89*
4725 t189*t417*t418*t419-3076.169106302339*t84*t88*t89*t124*t417*
4726 t418*t419+103.8945353962552*t84*t191*t89*t93*t417*t421*t250+
4727 311.6836061887656*t84*t130*t89*t93*t417*t421*t250+103.8945353962552*
4728 t84*t88*t89*t189*t417*t421*t250+311.6836061887656*t84*t88*
4729 t89*t124*t417*t421*t250-51.94726769812759*t84*t281*t89*t93*
4730 t248*t249*t250+1.926377843805565*t84*t1*t2*t4*t105*t191*t93*
4731 t248*t249*t250+5.779133531416695*t84*t1*t2*t4*t105*t130*t93*
4732 t248*t249*t250-51.94726769812759*t84*t88*t89*t271*t248*t249*
4733 t250+1.926377843805565*t84*t1*t2*t4*t105*t88*t189*t248*t249*
4734 t250-103.8945353962552*t84*t130*t89*t124*t248*t249*t250+5.779133531416695*
4735 t84*t1*t2*t4*t105*t88*t124*t248*t249*t250-51.9472676981276*
4736 t84*t191*t89*t93*t254*t111*t249*t250-155.8418030943828*t84*
4737 t130*t89*t93*t254*t111*t249*t250-51.9472676981276*t84*t88*
4738 t89*t189*t254*t111*t249*t250-155.8418030943828*t84*t88*t89*
4739 t124*t254*t111*t249*t250+t84*t86*t87*t451*t135+3.508934038473122*
4740 t84*t281*t89*t93*t248*t252*t113-.1301229705933783*t84*t1*t2*
4741 t4*t105*t191*t93*t248*t252*t113-.3903689117801349*t84*t1*t2*
4742 t4*t105*t130*t93*t248*t252*t113+3.508934038473122*t84*t88*
4743 t89*t271*t248*t252*t113-.1301229705933783*t84*t1*t2*t4*t105*
4744 t88*t189*t248*t252*t113+7.017868076946245*t84*t130*t89*t124*
4745 t248*t252*t113-.3903689117801349*t84*t1*t2*t4*t105*t88*t124*
4746 t248*t252*t113+3.508934038473122*t84*t191*t89*t93*t254*t111*
4747 t252*t113+10.52680211541937*t84*t130*t89*t93*t254*t111*t252*
4748 t113+3.508934038473122*t84*t88*t89*t189*t254*t111*t252*t113+
4749 10.52680211541937*t84*t88*t89*t124*t254*t111*t252*t113-3.508934038473122*
4750 t84*t191*t89*t93*t417*t249*t113-10.52680211541937*t84*t130*
4751 t89*t93*t417*t249*t113-3.508934038473122*t84*t88*t89*t189*
4752 t417*t249*t113-10.52680211541937*t84*t88*t89*t124*t417*t249*
4753 t113-.5848223397455204*t84*t191*t89*t93*t432*t112*t113-1.754467019236561*
4754 t84*t130*t89*t93*t432*t112*t113-.5848223397455204*t84*t88*
4755 t89*t189*t432*t112*t113-1.754467019236561*t84*t88*t89*t124*
4756 t432*t112*t113-1.754467019236561*t84*t281*t89*t93*t254*t112*
4757 t113+.06506148529668915*t84*t1*t2*t4*t105*t191*t93*t254*t112*
4758 t113+.1951844558900674*t84*t1*t2*t4*t105*t130*t93*t254*t112*
4759 t113-1.754467019236561*t84*t88*t89*t271*t254*t112*t113+.06506148529668915*
4760 t84*t1*t2*t4*t105*t88*t189*t254*t112*t113-3.508934038473122*
4761 t84*t130*t89*t124*t254*t112*t113+.1951844558900674*t84*t1*
4762 t2*t4*t105*t88*t124*t254*t112*t113-1.754467019236561*t84*t505*
4763 t89*t93*t111*t112*t113-.5848223397455204*t84*t462*t89*t93*
4764 t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t281*t93*
4765 t111*t112*t113-.08674864706225219*t84*t1*t2*t4*t243*t191*t93*
4766 t111*t112*t113-.2602459411867566*t84*t1*t2*t4*t243*t130*t93*
4767 t111*t112*t113-1.754467019236561*t84*t88*t89*t499*t111*t112*
4768 t113-.5848223397455204*t84*t88*t89*t451*t111*t112*t113-3.508934038473122*
4769 t84*t130*t89*t301*t111*t112*t113-1.754467019236561*t84*t191*
4770 t89*t271*t111*t112*t113-1.754467019236561*t84*t130*t89*t271*
4771 t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t271*
4772 t111*t112*t113-1.754467019236561*t84*t281*t89*t189*t111*t112*
4773 t113-.08674864706225219*t84*t1*t2*t4*t243*t88*t189*t111*t112*
4774 t113-3.508934038473122*t84*t302*t89*t124*t111*t112*t113-1.754467019236561*
4775 t84*t281*t89*t124*t111*t112*t113-.2602459411867566*t84*t1*
4776 t2*t4*t243*t88*t124*t111*t112*t113+.2602459411867565*t84*t1*
4777 t2*t4*t105*t130*t124*t111*t112*t113+t84*t86*t87*t757*t102)+
4778 .05925536910769562*t84*t505*t89*t93*t96-.004394773208820758*
4779 t84*t1*t2*t4*t105*t281*t93*t96+.008789546417641516*t84*t1*
4780 t2*t4*t243*t130*t93*t96+.05925536910769562*t84*t88*t89*t499*
4781 t96+.1185107382153912*t84*t130*t89*t301*t96+.05925536910769562*
4782 t84*t191*t89*t271*t96-.004394773208820758*t84*t1*t2*t4*t105*
4783 t88*t271*t96+.05925536910769562*t84*t281*t89*t189*t96+.1185107382153912*
4784 t84*t302*t89*t124*t96+.008789546417641516*t84*t1*t2*t4*t243*
4785 t88*t124*t96-.008789546417641516*t84*t1*t2*t4*t105*t130*t124*
4786 t96-48.0*t102*t84*t85*t87*t93+24.0*t129*t288*t84*t87*t93+480.0*
4787 t102*t129*t277*t84*t93-192.0*t127*t129*t135*t84*t93+3.0*t102*
4788 t499*t84*t86*t87+9.0*t124*t288*t84*t86*t87+6.0*t135*t271*t84*
4789 t86*t87+24.0*t102*t129*t301*t84*t87-36.0*t102*t124*t279*t84*
4790 t87+24.0*t129*t135*t189*t84*t87+180.0*t102*t124*t277*t84*t86-
4791 24.0*t102*t127*t271*t84*t86-72.0*t124*t127*t135*t84*t86-96.0*
4792 t102*t127*t129*t189*t84+t739+t738+t737+t736+t735+t734+t733+
4793 t732+t731+t730+t649+t647+t646+t645+t644+t643+t642+t641+t640+
4794 t639+t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+t628+
4795 t627+t626+t625+t624+t623+t579+t577+t574+t573+t570+t568+t560+
4796 t559+t558+t557+t556+t555+t554+t553+t479+t477+t474+t463+t455+
4797 t453+t452-155.8418030943828*t84*t130*t89*t93*t248*t249*t250-
4798 155.8418030943828*t84*t88*t89*t124*t248*t249*t250+10.52680211541937*
4799 t84*t130*t89*t93*t248*t252*t113+10.52680211541937*t84*t88*
4800 t89*t124*t248*t252*t113-5.263401057709684*t84*t130*t89*t93*
4801 t254*t112*t113-5.263401057709684*t84*t88*t89*t124*t254*t112*
4802 t113-3.508934038473122*t84*t281*t89*t93*t111*t112*t113+.3903689117801348*
4803 t84*t1*t2*t4*t105*t130*t93*t111*t112*t113-3.508934038473122*
4804 t84*t88*t89*t271*t111*t112*t113-7.017868076946245*t84*t130*
4805 t89*t124*t111*t112*t113+.3903689117801348*t84*t1*t2*t4*t105*
4806 t88*t124*t111*t112*t113)+3.0*t139*t513+3.0*t141*t512+t195*
4807 t484+3.0*t298*t305+3.0*t300*t304+t486*t194+(-.03968148252444444*
4808 t22*t60*t373*t69*t176+.001299970392746667*t22*t60*t373*t62*
4809 t67*t176+.001522412728319999*t30*t60*t372*t67*t176-1.420417388544E-5*
4810 t22*t60*t373*t68*t65*t176-4.440669843455999E-5*t30*t60*t372*
4811 t62*t65*t176-8.704257884159998E-6*t27*t60*t371*t65*t176+6.201752223744E-8*
4812 t22*t60*t373*t66*t140*t176+4.5167377711104E-7*t30*t60*t372*
4813 t68*t140*t176+2.3867979595775998E-7*t27*t60*t371*t62*t140*
4814 t176-9.01212770304E-11*t22*t60*t373*t63*t299*t176-1.9037235216384E-9*
4815 t30*t60*t372*t66*t299*t176-2.3347131973632E-9*t27*t60*t371*
4816 t68*t299*t176+2.780885119795201E-12*t30*t60*t372*t63*t485*
4817 t176+9.6554651222016E-12*t27*t60*t371*t66*t485*t176-1.41572333371392E-14*
4818 t27*t60*t371*t63*t729*t176)*t151;
4819 d4fdrararaga = 3.0*t51*t516*t56*t35*t57*rhoa+1.0*t51*
4820 t201*t382*t35*t57*rhoa+3.0*t51*t308*t227*t35*t57*rhoa-192.9880990672242*
4821 t221*t201*t376*t35*t378*rhoa+2069.133687865597*t375*t201*t376*
4822 t35*t377*rhoa-0.03109*t20*(-.5819475199999999*grada*t33*t373+
4823 71.89620165688889*t200*t31*t372-178.5808092444445*t199*t28*
4824 t371+155.7559643682134*t198*t25*t370-65.29869259753247*t196*
4825 t44*t369+14.35727882467556*t306*t213*t368-1.600381583360001*
4826 t514*t366*t367+.07151711245653339*t766*t605*t767)*t35*rhoa-
4827 6.0*t51*t201*t227*t56*t35*t224*rhoa-6.0*t51*t308*t222*t35*
4828 t224*rhoa+96.4940495336121*t221*t201*t227*t56*t35*t223*rhoa+
4829 6.0*t51*t201*t376*t35*t223*rhoa+96.4940495336121*t221*t308*
4830 t222*t35*t223*rhoa-3.0*t36*t4*t517*t6+6.0*t51*t308*t56*t35*
4831 t57+3.0*t51*t201*t227*t35*t57-.1369866666666666*t1*t2*t4*t51*
4832 t201*t56*t57*t54+.004258915466666666*t1*t2*t4*t20*t308*t54-
4833 0.75*t36*(.1316984272592593*grada*t41*t373-.06099442003437035*
4834 t200*t40*t372+.002927258189368889*t199*t39*t371-5.300765252600415E-5*
4835 t198*t38*t370+4.70902424702521E-7*t196*t58*t369-2.2096262395524743E-9*
4836 t306*t228*t368+5.267876280911644E-12*t514*t383*t367-5.035118413596443E-15*
4837 t766*t622*t767)*t4*t53+.2222222222222222*t202*t36*t4*t52+3.0*
4838 t139*t518+t203*t484-1.0*t16*t309*t36*t4-.09326999999999999*
4839 t20*t516*t35+3.0*t298*t310-.001892851318518518*t1*t2*t4*t20*
4840 t201*t225-6.0*t51*t201*t222*t35*t224+96.4940495336121*t221*
4841 t201*t222*t35*t223-.4109599999999999*t1*t2*t4*t51*t308*t56*
4842 t57*t17-0.20548*t1*t2*t4*t51*t201*t227*t57*t17+.006388373199999998*
4843 t1*t2*t4*t20*t516*t17+.4109599999999999*t1*t2*t4*t51*t201*
4844 t222*t224*t17-6.60919909938887*t1*t2*t4*t221*t201*t222*t223*
4845 t17+(-1.249702471111111*grada*t373*t70+.05202400895999999*
4846 grada*t373*t62*t69+.1317992098133333*t200*t372*t69-6.628337408E-4*
4847 grada*t373*t68*t67-0.00431775880448*t200*t372*t62*t67-.001972216488959999*
4848 t199*t371*t67+3.12508449792E-6*grada*t373*t66*t65+4.7178148976639994E-5*
4849 t200*t372*t68*t65+5.752685933567999E-5*t199*t371*t62*t65+6.528193413119999E-6*
4850 t198*t370*t65-4.50606385152E-9*grada*t373*t63*t140-2.0598677028864004E-7*
4851 t200*t372*t66*t140-5.851228476211201E-7*t199*t371*t68*t140-
4852 1.7900984696832E-7*t198*t370*t62*t140+2.993313844224E-10*t200*
4853 t372*t63*t299+2.4661872893952E-9*t199*t371*t66*t299+1.7510348980224E-9*
4854 t198*t370*t68*t299-3.602510268825601E-12*t199*t371*t63*t485-
4855 7.2415988416512E-12*t198*t370*t66*t485+1.06179250028544E-14*
4856 t198*t370*t63*t729)*t151;
4857 d4fdrararagb = 3.0*t139*t519+t211*t484+3.0*t298*t311+
4858 (.02976111189333333*t22*gradb*t373*t69*t61-9.749777945599999E-4*
4859 t22*gradb*t373*t62*t67*t61-0.00114180954624*t30*gradb*t372*
4860 t67*t61+1.065313041408E-5*t22*gradb*t373*t68*t65*t61+3.3305023825919994E-5*
4861 t30*gradb*t372*t62*t65*t61+6.528193413119999E-6*t27*gradb*
4862 t371*t65*t61-4.651314167808E-8*t22*gradb*t373*t66*t140*t61-
4863 3.3875533283328E-7*t30*gradb*t372*t68*t140*t61-1.7900984696832E-7*
4864 t27*gradb*t371*t62*t140*t61+6.75909577728E-11*t22*gradb*t373*
4865 t63*t299*t61+1.4277926412288E-9*t30*gradb*t372*t66*t299*t61+
4866 1.7510348980224E-9*t27*gradb*t371*t68*t299*t61-2.085663839846401E-12*
4867 t30*gradb*t372*t63*t485*t61-7.2415988416512E-12*t27*gradb*
4868 t371*t66*t485*t61+1.06179250028544E-14*t27*gradb*t371*t63*
4869 t729*t61)*t151;
4870 d4fdrararaab = 0.0;
4871 d4fdrararbrb = t71*(t72*(.01975178970256521*(t716+t712+
4872 480.0*t277*t279)*t84*t89*t93*t96-.001464924402940253*t84*t1*
4873 t2*t4*t105*t521*t93*t96-.001464924402940253*t84*t1*t2*t4*t105*
4874 t505*t93*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*t341*t93*
4875 t96+0.00390646507450734*t84*t1*t2*t4*t243*t302*t93*t96+9.766162686268349E-4*
4876 t84*t1*t2*t4*t243*t281*t93*t96-0.00455754258692523*t84*t1*
4877 t2*t4*t411*t191*t93*t96-0.00455754258692523*t84*t1*t2*t4*t411*
4878 t130*t93*t96+.01975178970256521*t84*t88*t89*t770*t96+.03950357940513041*
4879 t84*t130*t89*t520*t96-.001464924402940253*t84*t1*t2*t4*t105*
4880 t88*t520*t96+.03950357940513041*t84*t191*t89*t499*t96-.001464924402940253*
4881 t84*t1*t2*t4*t105*t88*t499*t96+.01975178970256521*t84*t281*
4882 t89*t336*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*t88*t336*
4883 t96-.001464924402940253*t84*t1*t2*t4*t105*t130*t336*t96+.07900715881026082*
4884 t84*t302*t89*t301*t96+0.00390646507450734*t84*t1*t2*t4*t243*
4885 t88*t301*t96-.002929848805880505*t84*t1*t2*t4*t105*t191*t301*
4886 t96-.002929848805880505*t84*t1*t2*t4*t105*t130*t301*t96+.01975178970256521*
4887 t84*t341*t89*t271*t96+9.766162686268349E-4*t84*t1*t2*t4*t243*
4888 t88*t271*t96-.001464924402940253*t84*t1*t2*t4*t105*t191*t271*
4889 t96+.03950357940513041*t84*t505*t89*t189*t96-0.00455754258692523*
4890 t84*t1*t2*t4*t411*t88*t189*t96-.002929848805880505*t84*t1*
4891 t2*t4*t105*t302*t189*t96-.001464924402940253*t84*t1*t2*t4*
4892 t105*t281*t189*t96+0.00195323253725367*t84*t1*t2*t4*t243*t191*
4893 t189*t96+0.00390646507450734*t84*t1*t2*t4*t243*t130*t189*t96+
4894 .03950357940513041*t84*t521*t89*t124*t96-0.00455754258692523*
4895 t84*t1*t2*t4*t411*t88*t124*t96-.001464924402940253*t84*t1*
4896 t2*t4*t105*t341*t124*t96-.002929848805880505*t84*t1*t2*t4*
4897 t105*t302*t124*t96+0.00390646507450734*t84*t1*t2*t4*t243*t191*
4898 t124*t96+0.00195323253725367*t84*t1*t2*t4*t243*t130*t124*t96-
4899 24.0*t279*t288*t84*t87*t93-480.0*t102*t277*t279*t84*t93+192.0*
4900 t127*t135*t279*t84*t93+2.0*t135*t520*t84*t86*t87+2.0*t135*
4901 t499*t84*t86*t87+2.0*t189*t469*t84*t86*t87+2.0*t124*t469*t84*
4902 t86*t87+4.0*t288*t301*t84*t86*t87-48.0*t102*t189*t84*t85*t87+
4903 48.0*t102*t124*t84*t85*t87+8.0*t102*t129*t520*t84*t87-8.0*
4904 t102*t129*t499*t84*t87+12.0*t102*t279*t336*t84*t87+8.0*t129*
4905 t135*t336*t84*t87-48.0*t102*t279*t301*t84*t87+8.0*t129*t189*
4906 t288*t84*t87-8.0*t124*t129*t288*t84*t87+12.0*t102*t271*t279*
4907 t84*t87-24.0*t135*t189*t279*t84*t87-24.0*t124*t135*t279*t84*
4908 t87-8.0*t129*t135*t271*t84*t87-8.0*t102*t127*t520*t84*t86-
4909 8.0*t102*t127*t499*t84*t86-240.0*t102*t189*t458*t84*t86-240.0*
4910 t102*t124*t458*t84*t86+20.0*t102*t277*t336*t84*t86-8.0*t127*
4911 t135*t336*t84*t86+80.0*t102*t277*t301*t84*t86-32.0*t127*t135*
4912 t301*t84*t86-24.0*t127*t189*t288*t84*t86-24.0*t124*t127*t288*
4913 t84*t86+20.0*t102*t271*t277*t84*t86+120.0*t135*t189*t277*t84*
4914 t86+120.0*t124*t135*t277*t84*t86-8.0*t127*t135*t271*t84*t86-
4915 32.0*t102*t127*t129*t336*t84+96.0*t102*t127*t189*t279*t84+
4916 96.0*t102*t124*t127*t279*t84+160.0*t102*t129*t189*t277*t84-
4917 160.0*t102*t124*t129*t277*t84+32.0*t102*t127*t129*t271*t84-
4918 64.0*t127*t129*t135*t189*t84+64.0*t124*t127*t129*t135*t84+
4919 t728+t726+t724+t722+t721+t720+t714+t706+t705+t704+t703+t702+
4920 t701+t700+t699+t698+t697+t696+t695+t694+t693+t692+t691+t689+
4921 t688+t687+t686+t685+t684+t683+t681+t680+t679+t678+t673+t672+
4922 t671+t670+t669+t668+t667+t666+t665+t664+t663+t661+t660+t659+
4923 t658+t657+t656+t654-2050.77940420156*t84*t191*t89*t93*t417*
4924 t418*t419-2050.77940420156*t84*t130*t89*t93*t417*t418*t419-
4925 2050.77940420156*t84*t88*t89*t189*t417*t418*t419-2050.77940420156*
4926 t84*t88*t89*t124*t417*t418*t419+t84*t86*t87*t336*t288+t84*
4927 t86*t87*t271*t288+207.7890707925104*t84*t191*t89*t93*t417*
4928 t421*t250+207.7890707925104*t84*t130*t89*t93*t417*t421*t250+
4929 207.7890707925104*t84*t88*t89*t189*t417*t421*t250+207.7890707925104*
4930 t84*t88*t89*t124*t417*t421*t250-17.31575589937587*t84*t341*
4931 t89*t93*t248*t249*t250-69.26302359750346*t84*t302*t89*t93*
4932 t248*t249*t250-17.31575589937587*t84*t281*t89*t93*t248*t249*
4933 t250+3.85275568761113*t84*t1*t2*t4*t105*t191*t93*t248*t249*
4934 t250+3.85275568761113*t84*t1*t2*t4*t105*t130*t93*t248*t249*
4935 t250-17.31575589937587*t84*t88*t89*t336*t248*t249*t250-69.26302359750346*
4936 t84*t88*t89*t301*t248*t249*t250-17.31575589937587*t84*t88*
4937 t89*t271*t248*t249*t250-34.63151179875173*t84*t191*t89*t189*
4938 t248*t249*t250-69.26302359750346*t84*t130*t89*t189*t248*t249*
4939 t250+3.85275568761113*t84*t1*t2*t4*t105*t88*t189*t248*t249*
4940 t250-69.26302359750346*t84*t191*t89*t124*t248*t249*t250-34.63151179875173*
4941 t84*t130*t89*t124*t248*t249*t250+3.85275568761113*t84*t1*t2*
4942 t4*t105*t88*t124*t248*t249*t250-103.8945353962552*t84*t191*
4943 t89*t93*t254*t111*t249*t250-103.8945353962552*t84*t130*t89*
4944 t93*t254*t111*t249*t250-103.8945353962552*t84*t88*t89*t189*
4945 t254*t111*t249*t250-103.8945353962552*t84*t88*t89*t124*t254*
4946 t111*t249*t250+1.169644679491041*t84*t341*t89*t93*t248*t252*
4947 t113+4.678578717964164*t84*t302*t89*t93*t248*t252*t113+1.169644679491041*
4948 t84*t281*t89*t93*t248*t252*t113-.2602459411867566*t84*t1*t2*
4949 t4*t105*t191*t93*t248*t252*t113-.2602459411867566*t84*t1*t2*
4950 t4*t105*t130*t93*t248*t252*t113+1.169644679491041*t84*t88*
4951 t89*t336*t248*t252*t113+4.678578717964164*t84*t88*t89*t301*
4952 t248*t252*t113+1.169644679491041*t84*t88*t89*t271*t248*t252*
4953 t113+2.339289358982082*t84*t191*t89*t189*t248*t252*t113+4.678578717964164*
4954 t84*t130*t89*t189*t248*t252*t113-.2602459411867566*t84*t1*
4955 t2*t4*t105*t88*t189*t248*t252*t113+4.678578717964164*t84*t191*
4956 t89*t124*t248*t252*t113+2.339289358982082*t84*t130*t89*t124*
4957 t248*t252*t113-.2602459411867566*t84*t1*t2*t4*t105*t88*t124*
4958 t248*t252*t113+7.017868076946245*t84*t191*t89*t93*t254*t111*
4959 t252*t113+7.017868076946245*t84*t130*t89*t93*t254*t111*t252*
4960 t113+7.017868076946245*t84*t88*t89*t189*t254*t111*t252*t113+
4961 7.017868076946245*t84*t88*t89*t124*t254*t111*t252*t113-7.017868076946245*
4962 t84*t191*t89*t93*t417*t249*t113-7.017868076946245*t84*t130*
4963 t89*t93*t417*t249*t113-7.017868076946245*t84*t88*t89*t189*
4964 t417*t249*t113-7.017868076946245*t84*t88*t89*t124*t417*t249*
4965 t113-1.169644679491041*t84*t191*t89*t93*t432*t112*t113-1.169644679491041*
4966 t84*t130*t89*t93*t432*t112*t113-1.169644679491041*t84*t88*
4967 t89*t189*t432*t112*t113-1.169644679491041*t84*t88*t89*t124*
4968 t432*t112*t113-.5848223397455204*t84*t341*t89*t93*t254*t112*
4969 t113-2.339289358982082*t84*t302*t89*t93*t254*t112*t113-.5848223397455204*
4970 t84*t281*t89*t93*t254*t112*t113+.1301229705933783*t84*t1*t2*
4971 t4*t105*t191*t93*t254*t112*t113+.1301229705933783*t84*t1*t2*
4972 t4*t105*t130*t93*t254*t112*t113-.5848223397455204*t84*t88*
4973 t89*t336*t254*t112*t113-2.339289358982082*t84*t88*t89*t301*
4974 t254*t112*t113-.5848223397455204*t84*t88*t89*t271*t254*t112*
4975 t113-1.169644679491041*t84*t191*t89*t189*t254*t112*t113-2.339289358982082*
4976 t84*t130*t89*t189*t254*t112*t113+.1301229705933783*t84*t1*
4977 t2*t4*t105*t88*t189*t254*t112*t113-2.339289358982082*t84*t191*
4978 t89*t124*t254*t112*t113-1.169644679491041*t84*t130*t89*t124*
4979 t254*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t124*
4980 t254*t112*t113-1.169644679491041*t84*t521*t89*t93*t111*t112*
4981 t113-1.169644679491041*t84*t505*t89*t93*t111*t112*t113+.04337432353112609*
4982 t84*t1*t2*t4*t105*t341*t93*t111*t112*t113+.1734972941245044*
4983 t84*t1*t2*t4*t105*t302*t93*t111*t112*t113+.04337432353112609*
4984 t84*t1*t2*t4*t105*t281*t93*t111*t112*t113-.1734972941245044*
4985 t84*t1*t2*t4*t243*t191*t93*t111*t112*t113-.1734972941245044*
4986 t84*t1*t2*t4*t243*t130*t93*t111*t112*t113-1.169644679491041*
4987 t84*t88*t89*t520*t111*t112*t113-1.169644679491041*t84*t88*
4988 t89*t499*t111*t112*t113-1.169644679491041*t84*t130*t89*t336*
4989 t111*t112*t113+.04337432353112609*t84*t1*t2*t4*t105*t88*t336*
4990 t111*t112*t113-2.339289358982082*t84*t191*t89*t301*t111*t112*
4991 t113-2.339289358982082*t84*t130*t89*t301*t111*t112*t113+.1734972941245044*
4992 t84*t1*t2*t4*t105*t88*t301*t111*t112*t113-1.169644679491041*
4993 t84*t191*t89*t271*t111*t112*t113+.04337432353112609*t84*t1*
4994 t2*t4*t105*t88*t271*t111*t112*t113-2.339289358982082*t84*t302*
4995 t89*t189*t111*t112*t113-1.169644679491041*t84*t281*t89*t189*
4996 t111*t112*t113-.1734972941245044*t84*t1*t2*t4*t243*t88*t189*
4997 t111*t112*t113+.08674864706225219*t84*t1*t2*t4*t105*t191*t189*
4998 t111*t112*t113+.1734972941245044*t84*t1*t2*t4*t105*t130*t189*
4999 t111*t112*t113-1.169644679491041*t84*t341*t89*t124*t111*t112*
5000 t113-2.339289358982082*t84*t302*t89*t124*t111*t112*t113-.1734972941245044*
5001 t84*t1*t2*t4*t243*t88*t124*t111*t112*t113+.1734972941245044*
5002 t84*t1*t2*t4*t105*t191*t124*t111*t112*t113+.08674864706225219*
5003 t84*t1*t2*t4*t105*t130*t124*t111*t112*t113+t84*t86*t87*t770*
5004 t102)+.03950357940513041*t84*t521*t89*t93*t96+.03950357940513041*
5005 t84*t505*t89*t93*t96-.001464924402940253*t84*t1*t2*t4*t105*
5006 t341*t93*t96-0.00585969761176101*t84*t1*t2*t4*t105*t302*t93*
5007 t96-.001464924402940253*t84*t1*t2*t4*t105*t281*t93*t96+0.00585969761176101*
5008 t84*t1*t2*t4*t243*t191*t93*t96+0.00585969761176101*t84*t1*
5009 t2*t4*t243*t130*t93*t96+.03950357940513041*t84*t88*t89*t520*
5010 t96+.03950357940513041*t84*t88*t89*t499*t96+.03950357940513041*
5011 t84*t130*t89*t336*t96-.001464924402940253*t84*t1*t2*t4*t105*
5012 t88*t336*t96+.07900715881026082*t84*t191*t89*t301*t96+.07900715881026082*
5013 t84*t130*t89*t301*t96-0.00585969761176101*t84*t1*t2*t4*t105*
5014 t88*t301*t96+.03950357940513041*t84*t191*t89*t271*t96-.001464924402940253*
5015 t84*t1*t2*t4*t105*t88*t271*t96+.07900715881026082*t84*t302*
5016 t89*t189*t96+.03950357940513041*t84*t281*t89*t189*t96+0.00585969761176101*
5017 t84*t1*t2*t4*t243*t88*t189*t96-.002929848805880505*t84*t1*
5018 t2*t4*t105*t191*t189*t96-0.00585969761176101*t84*t1*t2*t4*
5019 t105*t130*t189*t96+.03950357940513041*t84*t341*t89*t124*t96+
5020 .07900715881026082*t84*t302*t89*t124*t96+0.00585969761176101*
5021 t84*t1*t2*t4*t243*t88*t124*t96-0.00585969761176101*t84*t1*
5022 t2*t4*t105*t191*t124*t96-.002929848805880505*t84*t1*t2*t4*
5023 t105*t130*t124*t96-48.0*t135*t279*t84*t87*t93+192.0*t102*t127*
5024 t279*t84*t93+2.0*t102*t520*t84*t86*t87+2.0*t102*t499*t84*t86*
5025 t87+2.0*t135*t336*t84*t86*t87+8.0*t135*t301*t84*t86*t87+6.0*
5026 t189*t288*t84*t86*t87+6.0*t124*t288*t84*t86*t87+2.0*t135*t271*
5027 t84*t86*t87+8.0*t102*t129*t336*t84*t87-8.0*t102*t129*t271*
5028 t84*t87+16.0*t129*t135*t189*t84*t87-16.0*t124*t129*t135*t84*
5029 t87-8.0*t102*t127*t336*t84*t86-32.0*t102*t127*t301*t84*t86+
5030 120.0*t102*t189*t277*t84*t86+120.0*t102*t124*t277*t84*t86-
5031 8.0*t102*t127*t271*t84*t86-48.0*t127*t135*t189*t84*t86-48.0*
5032 t124*t127*t135*t84*t86-64.0*t102*t127*t129*t189*t84+64.0*t102*
5033 t124*t127*t129*t84+t649+t647+t646+t645+t644+t643+t642+t641+
5034 t640+t639+t638+t637+t636+t635+t634+t633+t632+t631+t630+t629+
5035 t628+t627+t626+t625+t624+t623+t522+t509-103.8945353962552*
5036 t84*t191*t89*t93*t248*t249*t250-103.8945353962552*t84*t130*
5037 t89*t93*t248*t249*t250-103.8945353962552*t84*t88*t89*t189*
5038 t248*t249*t250-103.8945353962552*t84*t88*t89*t124*t248*t249*
5039 t250+7.017868076946245*t84*t191*t89*t93*t248*t252*t113+7.017868076946245*
5040 t84*t130*t89*t93*t248*t252*t113+7.017868076946245*t84*t88*
5041 t89*t189*t248*t252*t113+7.017868076946245*t84*t88*t89*t124*
5042 t248*t252*t113-3.508934038473122*t84*t191*t89*t93*t254*t112*
5043 t113-3.508934038473122*t84*t130*t89*t93*t254*t112*t113-3.508934038473122*
5044 t84*t88*t89*t189*t254*t112*t113-3.508934038473122*t84*t88*
5045 t89*t124*t254*t112*t113-1.169644679491041*t84*t341*t89*t93*
5046 t111*t112*t113-4.678578717964164*t84*t302*t89*t93*t111*t112*
5047 t113-1.169644679491041*t84*t281*t89*t93*t111*t112*t113+.2602459411867565*
5048 t84*t1*t2*t4*t105*t191*t93*t111*t112*t113+.2602459411867566*
5049 t84*t1*t2*t4*t105*t130*t93*t111*t112*t113-1.169644679491041*
5050 t84*t88*t89*t336*t111*t112*t113-4.678578717964164*t84*t88*
5051 t89*t301*t111*t112*t113-1.169644679491041*t84*t88*t89*t271*
5052 t111*t112*t113-2.339289358982082*t84*t191*t89*t189*t111*t112*
5053 t113-4.678578717964164*t84*t130*t89*t189*t111*t112*t113+.2602459411867565*
5054 t84*t1*t2*t4*t105*t88*t189*t111*t112*t113-4.678578717964164*
5055 t84*t191*t89*t124*t111*t112*t113-2.339289358982082*t84*t130*
5056 t89*t124*t111*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*
5057 t88*t124*t111*t112*t113)+2.0*t139*t524+2.0*t141*t523+2.0*t194*
5058 t513+2.0*t195*t512+t300*t348+4.0*t304*t305+t349*t298+(-.03117830769777777*
5059 t22*t60*t219*t69*t319+.001021405308586667*t22*t60*t219*t62*
5060 t67*t319+5.074709094399998E-4*t30*t60*t218*t67*t319-1.116042233856E-5*
5061 t22*t60*t219*t68*t65*t319-1.4802232811519994E-5*t30*t60*t218*
5062 t62*t65*t319+4.872805318656E-8*t22*t60*t219*t66*t140*t319+
5063 1.5055792570368E-7*t30*t60*t218*t68*t140*t319-7.08095748096E-11*
5064 t22*t60*t219*t63*t299*t319-6.345745072127998E-10*t30*t60*t218*
5065 t66*t299*t319+9.269617065984002E-13*t30*t60*t218*t63*t485*
5066 t319+5.074709094399998E-4*t22*t159*t219*t67*t318-1.480223281152E-5*
5067 t22*t159*t219*t62*t65*t318-8.704257884159998E-6*t30*t159*t218*
5068 t65*t318+1.5055792570368E-7*t22*t159*t219*t68*t140*t318+2.3867979595775998E-7*
5069 t30*t159*t218*t62*t140*t318-6.345745072128001E-10*t22*t159*
5070 t219*t66*t299*t318-2.3347131973632E-9*t30*t159*t218*t68*t299*
5071 t318+9.269617065984002E-13*t22*t159*t219*t63*t485*t318+9.6554651222016E-12*
5072 t30*t159*t218*t66*t485*t318-1.41572333371392E-14*t30*t159*
5073 t218*t63*t729*t318)*t151;
5074 d4fdrararbga = 2.0*t139*t525+t203*t512+2.0*t304*t310+
5075 t350*t298+t518*t194+(.01700634965333333*grada*t60*t219*t69*
5076 t176-5.5713016832E-4*grada*t60*t219*t62*t67*t176-9.342078105599998E-4*
5077 t200*t60*t218*t67*t176+6.087503093759999E-6*grada*t60*t219*
5078 t68*t65*t176+2.7249564948479993E-5*t200*t60*t218*t62*t65*t176+
5079 6.528193413119999E-6*t199*t60*t217*t65*t176-2.657893810176E-8*
5080 grada*t60*t219*t66*t140*t176-2.7716345413632004E-7*t200*t60*
5081 t218*t68*t140*t176-1.7900984696832E-7*t199*t60*t217*t62*t140*
5082 t176+3.86234044416E-11*grada*t60*t219*t63*t299*t176+1.1681939791872E-9*
5083 t200*t60*t218*t66*t299*t176+1.7510348980224E-9*t199*t60*t217*
5084 t68*t299*t176-1.7064522326016E-12*t200*t60*t218*t63*t485*t176-
5085 7.2415988416512E-12*t199*t60*t217*t66*t485*t176+1.06179250028544E-14*
5086 t199*t60*t217*t63*t729*t176)*t151;
5087 d4fdrararbgb = 2.0*t139*t526+t211*t512+2.0*t304*t311+
5088 t355*t298+t519*t194+(.01700634965333333*t22*gradb*t219*t69*
5089 t176-5.5713016832E-4*t22*gradb*t219*t62*t67*t176-2.7680231423999996E-4*
5090 t30*gradb*t218*t67*t176+6.087503093759999E-6*t22*gradb*t219*
5091 t68*t65*t176+8.073945169919998E-6*t30*gradb*t218*t62*t65*t176-
5092 2.657893810176E-8*t22*gradb*t219*t66*t140*t176-8.212250492928002E-8*
5093 t30*gradb*t218*t68*t140*t176+3.86234044416E-11*t22*gradb*t219*
5094 t63*t299*t176+3.461315493887999E-10*t30*gradb*t218*t66*t299*
5095 t176-5.056154763264E-13*t30*gradb*t218*t63*t485*t176-3.8060318207999994E-4*
5096 t22*t208*t219*t67*t175+1.1101674608640001E-5*t22*t208*t219*
5097 t62*t65*t175+6.528193413119999E-6*t30*t208*t218*t65*t175-1.1291844427776E-7*
5098 t22*t208*t219*t68*t140*t175-1.7900984696832E-7*t30*t208*t218*
5099 t62*t140*t175+4.759308804096E-10*t22*t208*t219*t66*t299*t175+
5100 1.7510348980224E-9*t30*t208*t218*t68*t299*t175-6.952212799488001E-13*
5101 t22*t208*t219*t63*t485*t175-7.2415988416512E-12*t30*t208*t218*
5102 t66*t485*t175+1.06179250028544E-14*t30*t208*t218*t63*t729*
5103 t175)*t151;
5104 d4fdrararbab = 0.0;
5105 d4fdraragaga = 2.0*t51*t528*t56*t35*t57*rhoa+1.0*t51*
5106 t357*t227*t35*t57*rhoa-0.03109*t20*(0.12470304*t33*t219-29.434755776*
5107 t22*t31*t218+91.90239347200003*t30*t28*t217-91.38512306176003*
5108 t27*t25*t216+41.86583785881601*t21*t44*t215-9.826956554240002*
5109 t43*t213*t214+1.152395264000001*t212*t366*t515-.05363783434240004*
5110 t365*t605*t771)*t35*rhoa-2.0*t51*t357*t222*t35*t224*rhoa+32.1646831778707*
5111 t221*t357*t222*t35*t223*rhoa-2.0*t36*t4*t529*t6+2.0*t51*t357*
5112 t56*t35*t57+.001419638488888889*t1*t2*t4*t20*t357*t54+2.0*
5113 t139*t530-0.75*(-.02822109155555556*t41*t219+.02505488489244444*
5114 t22*t40*t218-.001507769745635555*t30*t39*t217+3.103098413420089E-5*
5115 t27*t38*t216-3.006768291366685E-7*t21*t58*t215+1.5058826705123554E-9*
5116 t43*t228*t214-3.782320656657067E-12*t212*t383*t515+3.776338810197333E-15*
5117 t365*t622*t771)*t36*t4*t53-.3333333333333333*t16*t358*t36*
5118 t4-0.06218*t20*t528*t35+t359*t298-.1369866666666666*t1*t2*
5119 t4*t51*t357*t56*t57*t17+.004258915466666666*t1*t2*t4*t20*t528*
5120 t17+(.2677933866666666*t219*t70-0.01114800192*t219*t62*t69-
5121 .05971547775999998*t22*t218*t69+1.4203580159999998E-4*t219*
5122 t68*t67+0.00195628661376*t22*t218*t62*t67+0.00121966019712*
5123 t30*t217*t67-6.696609638400001E-7*t219*t66*t65-2.1375436999679998E-5*
5124 t22*t218*t68*t65-3.557582090496E-5*t30*t217*t62*t65-4.896145059839999E-6*
5125 t27*t216*t65+9.6558511104E-10*t219*t63*t140+9.332831674368002E-8*
5126 t22*t218*t66*t140+3.618522873446399E-7*t30*t217*t68*t140+1.3425738522624E-7*
5127 t27*t216*t62*t140-1.356208178688E-10*t22*t218*t63*t299-1.5251421394943998E-9*
5128 t30*t217*t66*t299-1.3132761735168E-9*t27*t216*t68*t299+2.2278681925632E-12*
5129 t30*t217*t63*t485+5.4311991312384E-12*t27*t216*t66*t485-7.963443752140802E-15*
5130 t27*t216*t63*t729)*t151;
5131 d4fdraragagb = 2.0*t139*t531+t360*t298+(-0.01275476224*
5132 grada*gradb*t219*t69*t61+4.1784762623999994E-4*grada*gradb*
5133 t219*t62*t67*t61+7.006558579199998E-4*t200*gradb*t218*t67*
5134 t61-4.5656273203199993E-6*grada*gradb*t219*t68*t65*t61-2.0437173711359996E-5*
5135 t200*gradb*t218*t62*t65*t61-4.896145059839999E-6*t199*gradb*
5136 t217*t65*t61+1.993420357632E-8*grada*gradb*t219*t66*t140*t61+
5137 2.0787259060224E-7*t200*gradb*t218*t68*t140*t61+1.3425738522624E-7*
5138 t199*gradb*t217*t62*t140*t61-2.89675533312E-11*grada*gradb*
5139 t219*t63*t299*t61-8.761454843904E-10*t200*gradb*t218*t66*t299*
5140 t61-1.3132761735168E-9*t199*gradb*t217*t68*t299*t61+1.2798391744512E-12*
5141 t200*gradb*t218*t63*t485*t61+5.4311991312384E-12*t199*gradb*
5142 t217*t66*t485*t61-7.963443752140802E-15*t199*gradb*t217*t63*
5143 t729*t61)*t151;
5144 d4fdraragaab = 0.0;
5145 d4fdraragbgb = 2.0*t139*t532+t364*t298+(-.006377381119999998*
5146 t22*t219*t69*t61+2.0892381311999997E-4*t22*t219*t62*t67*t61+
5147 1.0380086783999998E-4*t30*t218*t67*t61-2.2828136601599996E-6*
5148 t22*t219*t68*t65*t61-3.02772943872E-6*t30*t218*t62*t65*t61+
5149 9.96710178816E-9*t22*t219*t66*t140*t61+3.079593934848E-8*t30*
5150 t218*t68*t140*t61-1.44837766656E-11*t22*t219*t63*t299*t61-
5151 1.297993310208E-10*t30*t218*t66*t299*t61+1.896058036224E-13*
5152 t30*t218*t63*t485*t61+2.8545238655999994E-4*t22*t60*t219*t67*
5153 t161-8.326255956479999E-6*t22*t60*t219*t62*t65*t161-4.896145059839999E-6*
5154 t30*t60*t218*t65*t161+8.468883320832E-8*t22*t60*t219*t68*t140*
5155 t161+1.3425738522624E-7*t30*t60*t218*t62*t140*t161-3.569481603072E-10*
5156 t22*t60*t219*t66*t299*t161-1.3132761735168E-9*t30*t60*t218*
5157 t68*t299*t161+5.214159599616001E-13*t22*t60*t219*t63*t485*
5158 t161+5.4311991312384E-12*t30*t60*t218*t66*t485*t161-7.963443752140802E-15*
5159 t30*t60*t218*t63*t729*t161)*t151;
5160 d4fdraragbab = 0.0;
5161 d4fdraraabab = 0.0;
5162 d4fdrarbrbrb = t71*(t72*(.01975178970256521*t84*(192.0*
5163 t127*t85+t716+t709-960.0*t129*t458)*t89*t93*t96-7.324622014701263E-4*
5164 t84*t1*t2*t4*t105*t571*t93*t96-.002197386604410379*t84*t1*
5165 t2*t4*t105*t521*t93*t96+.002929848805880505*t84*t1*t2*t4*t243*
5166 t341*t93*t96-.006836313880387845*t84*t1*t2*t4*t411*t191*t93*
5167 t96-.002278771293462615*t84*t1*t2*t4*t411*t130*t93*t96+.01975178970256521*
5168 t84*t88*t89*t772*t96+.01975178970256521*t84*t130*t89*t565*
5169 t96-7.324622014701263E-4*t84*t1*t2*t4*t105*t88*t565*t96+.05925536910769562*
5170 t84*t191*t89*t520*t96-.002197386604410379*t84*t1*t2*t4*t105*
5171 t88*t520*t96+.05925536910769562*t84*t302*t89*t336*t96+.002929848805880505*
5172 t84*t1*t2*t4*t243*t88*t336*t96-.002197386604410379*t84*t1*
5173 t2*t4*t105*t191*t336*t96-.002197386604410379*t84*t1*t2*t4*
5174 t105*t130*t336*t96+.05925536910769562*t84*t341*t89*t301*t96-
5175 .004394773208820758*t84*t1*t2*t4*t105*t191*t301*t96+.05925536910769562*
5176 t84*t521*t89*t189*t96-.006836313880387845*t84*t1*t2*t4*t411*
5177 t88*t189*t96-.002197386604410379*t84*t1*t2*t4*t105*t341*t189*
5178 t96-.004394773208820758*t84*t1*t2*t4*t105*t302*t189*t96+0.00585969761176101*
5179 t84*t1*t2*t4*t243*t191*t189*t96+.01975178970256521*t84*t571*
5180 t89*t124*t96-.002278771293462615*t84*t1*t2*t4*t411*t88*t124*
5181 t96-.002197386604410379*t84*t1*t2*t4*t105*t341*t124*t96+48.0*
5182 t135*t84*t85*t87*t93-8.0*t129*t469*t84*t87*t93-192.0*t102*
5183 t127*t84*t85*t93+960.0*t102*t129*t458*t84*t93+96.0*t127*t129*
5184 t288*t84*t93-480.0*t129*t135*t277*t84*t93+3.0*t135*t520*t84*
5185 t86*t87+3.0*t189*t469*t84*t86*t87+3.0*t288*t336*t84*t86*t87+
5186 72.0*t102*t189*t84*t85*t87-24.0*t102*t124*t84*t85*t87+4.0*
5187 t102*t129*t565*t84*t87-12.0*t102*t129*t520*t84*t87-36.0*t102*
5188 t279*t336*t84*t87-24.0*t129*t135*t301*t84*t87-12.0*t129*t189*
5189 t288*t84*t87-12.0*t124*t129*t288*t84*t87-36.0*t135*t189*t279*
5190 t84*t87+36.0*t124*t135*t279*t84*t87-4.0*t102*t127*t565*t84*
5191 t86-12.0*t102*t127*t520*t84*t86-360.0*t102*t189*t458*t84*t86-
5192 120.0*t102*t124*t458*t84*t86+60.0*t102*t277*t336*t84*t86-24.0*
5193 t127*t135*t336*t84*t86-36.0*t127*t189*t288*t84*t86-12.0*t124*
5194 t127*t288*t84*t86+180.0*t135*t189*t277*t84*t86+60.0*t124*t135*
5195 t277*t84*t86+96.0*t102*t127*t129*t301*t84+144.0*t102*t127*
5196 t189*t279*t84-144.0*t102*t124*t127*t279*t84-240.0*t102*t129*
5197 t189*t277*t84-240.0*t102*t124*t129*t277*t84+96.0*t127*t129*
5198 t135*t189*t84+96.0*t124*t127*t129*t135*t84+t765+t764+t763+
5199 t762+t761+t760+t759+t758+t756+t755+t754+t753+t752+t751+t750+
5200 t749+t748+t747+t746+t745+t744+t743+t742+t741+t740+t726+t724+
5201 t722+t721+t720+t714+t706+t705+t704+t703+t702+t701+t700+t699+
5202 t698+t697+t696+t695+t694+t693+t692+t691+t689+t688+t687+t686+
5203 t685+t684+t683+t681+t680+t679+t678+t673+t672+t671+t670+t669+
5204 t668+t667+t666+t665+t664+t663+t661+t660+t659+t658+t657+t656+
5205 t654+t84*t86*t87*t124*t469-3076.169106302339*t84*t191*t89*
5206 t93*t417*t418*t419-1025.38970210078*t84*t130*t89*t93*t417*
5207 t418*t419-3076.169106302339*t84*t88*t89*t189*t417*t418*t419-
5208 1025.38970210078*t84*t88*t89*t124*t417*t418*t419+311.6836061887656*
5209 t84*t191*t89*t93*t417*t421*t250+103.8945353962552*t84*t130*
5210 t89*t93*t417*t421*t250+311.6836061887656*t84*t88*t89*t189*
5211 t417*t421*t250+103.8945353962552*t84*t88*t89*t124*t417*t421*
5212 t250-51.9472676981276*t84*t341*t89*t93*t248*t249*t250+5.779133531416695*
5213 t84*t1*t2*t4*t105*t191*t93*t248*t249*t250+1.926377843805565*
5214 t84*t1*t2*t4*t105*t130*t93*t248*t249*t250-51.9472676981276*
5215 t84*t88*t89*t336*t248*t249*t250-103.8945353962552*t84*t191*
5216 t89*t189*t248*t249*t250+5.779133531416695*t84*t1*t2*t4*t105*
5217 t88*t189*t248*t249*t250+1.926377843805565*t84*t1*t2*t4*t105*
5218 t88*t124*t248*t249*t250-155.8418030943828*t84*t191*t89*t93*
5219 t254*t111*t249*t250-51.9472676981276*t84*t130*t89*t93*t254*
5220 t111*t249*t250-155.8418030943828*t84*t88*t89*t189*t254*t111*
5221 t249*t250-51.9472676981276*t84*t88*t89*t124*t254*t111*t249*
5222 t250+t84*t86*t87*t565*t135+3.508934038473122*t84*t341*t89*
5223 t93*t248*t252*t113-.3903689117801349*t84*t1*t2*t4*t105*t191*
5224 t93*t248*t252*t113-.1301229705933783*t84*t1*t2*t4*t105*t130*
5225 t93*t248*t252*t113+3.508934038473122*t84*t88*t89*t336*t248*
5226 t252*t113+7.017868076946245*t84*t191*t89*t189*t248*t252*t113-
5227 .3903689117801349*t84*t1*t2*t4*t105*t88*t189*t248*t252*t113-
5228 .1301229705933783*t84*t1*t2*t4*t105*t88*t124*t248*t252*t113+
5229 10.52680211541937*t84*t191*t89*t93*t254*t111*t252*t113+3.508934038473122*
5230 t84*t130*t89*t93*t254*t111*t252*t113+10.52680211541937*t84*
5231 t88*t89*t189*t254*t111*t252*t113+3.508934038473122*t84*t88*
5232 t89*t124*t254*t111*t252*t113-10.52680211541937*t84*t191*t89*
5233 t93*t417*t249*t113-3.508934038473122*t84*t130*t89*t93*t417*
5234 t249*t113-10.52680211541937*t84*t88*t89*t189*t417*t249*t113-
5235 3.508934038473122*t84*t88*t89*t124*t417*t249*t113-1.754467019236561*
5236 t84*t191*t89*t93*t432*t112*t113-.5848223397455204*t84*t130*
5237 t89*t93*t432*t112*t113-1.754467019236561*t84*t88*t89*t189*
5238 t432*t112*t113-.5848223397455204*t84*t88*t89*t124*t432*t112*
5239 t113-1.754467019236561*t84*t341*t89*t93*t254*t112*t113+.1951844558900674*
5240 t84*t1*t2*t4*t105*t191*t93*t254*t112*t113+.06506148529668915*
5241 t84*t1*t2*t4*t105*t130*t93*t254*t112*t113-1.754467019236561*
5242 t84*t88*t89*t336*t254*t112*t113-3.508934038473122*t84*t191*
5243 t89*t189*t254*t112*t113+.1951844558900674*t84*t1*t2*t4*t105*
5244 t88*t189*t254*t112*t113+.06506148529668915*t84*t1*t2*t4*t105*
5245 t88*t124*t254*t112*t113-.5848223397455204*t84*t571*t89*t93*
5246 t111*t112*t113-1.754467019236561*t84*t521*t89*t93*t111*t112*
5247 t113+.1301229705933783*t84*t1*t2*t4*t105*t341*t93*t111*t112*
5248 t113-.2602459411867565*t84*t1*t2*t4*t243*t191*t93*t111*t112*
5249 t113-.08674864706225219*t84*t1*t2*t4*t243*t130*t93*t111*t112*
5250 t113-.5848223397455204*t84*t88*t89*t565*t111*t112*t113-1.754467019236561*
5251 t84*t88*t89*t520*t111*t112*t113-1.754467019236561*t84*t191*
5252 t89*t336*t111*t112*t113-1.754467019236561*t84*t130*t89*t336*
5253 t111*t112*t113+.1301229705933783*t84*t1*t2*t4*t105*t88*t336*
5254 t111*t112*t113-3.508934038473122*t84*t191*t89*t301*t111*t112*
5255 t113-1.754467019236561*t84*t341*t89*t189*t111*t112*t113-3.508934038473122*
5256 t84*t302*t89*t189*t111*t112*t113-.2602459411867565*t84*t1*
5257 t2*t4*t243*t88*t189*t111*t112*t113+.2602459411867566*t84*t1*
5258 t2*t4*t105*t191*t189*t111*t112*t113-1.754467019236561*t84*
5259 t341*t89*t124*t111*t112*t113-.08674864706225219*t84*t1*t2*
5260 t4*t243*t88*t124*t111*t112*t113+t84*t86*t87*t772*t102)+.05925536910769562*
5261 t84*t521*t89*t93*t96-.004394773208820758*t84*t1*t2*t4*t105*
5262 t341*t93*t96+.008789546417641516*t84*t1*t2*t4*t243*t191*t93*
5263 t96+.05925536910769562*t84*t88*t89*t520*t96+.05925536910769562*
5264 t84*t130*t89*t336*t96-.004394773208820758*t84*t1*t2*t4*t105*
5265 t88*t336*t96+.1185107382153912*t84*t191*t89*t301*t96+.1185107382153912*
5266 t84*t302*t89*t189*t96+.008789546417641516*t84*t1*t2*t4*t243*
5267 t88*t189*t96-.008789546417641516*t84*t1*t2*t4*t105*t191*t189*
5268 t96+.05925536910769562*t84*t341*t89*t124*t96+48.0*t102*t84*
5269 t85*t87*t93-24.0*t129*t288*t84*t87*t93-480.0*t102*t129*t277*
5270 t84*t93+192.0*t127*t129*t135*t84*t93+3.0*t102*t520*t84*t86*
5271 t87+6.0*t135*t336*t84*t86*t87+9.0*t189*t288*t84*t86*t87-24.0*
5272 t102*t129*t301*t84*t87-36.0*t102*t189*t279*t84*t87-24.0*t124*
5273 t129*t135*t84*t87-24.0*t102*t127*t336*t84*t86+180.0*t102*t189*
5274 t277*t84*t86-72.0*t127*t135*t189*t84*t86+96.0*t102*t124*t127*
5275 t129*t84+t739+t738+t737+t736+t735+t734+t733+t732+t731+t730+
5276 t649+t647+t646+t645+t644+t643+t642+t641+t640+t639+t638+t637+
5277 t636+t635+t634+t633+t632+t631+t630+t629+t628+t627+t626+t625+
5278 t624+t623+t578+t576+t575+t572+t569+t567+t566+t480+t478+t473+
5279 t471+t456+t454+t438+t437+t436+t434+t431+t429+t426+t424-155.8418030943828*
5280 t84*t191*t89*t93*t248*t249*t250-155.8418030943828*t84*t88*
5281 t89*t189*t248*t249*t250+10.52680211541937*t84*t191*t89*t93*
5282 t248*t252*t113+10.52680211541937*t84*t88*t89*t189*t248*t252*
5283 t113-5.263401057709684*t84*t191*t89*t93*t254*t112*t113-5.263401057709684*
5284 t84*t88*t89*t189*t254*t112*t113-3.508934038473123*t84*t341*
5285 t89*t93*t111*t112*t113+.3903689117801349*t84*t1*t2*t4*t105*
5286 t191*t93*t111*t112*t113-3.508934038473123*t84*t88*t89*t336*
5287 t111*t112*t113-7.017868076946246*t84*t191*t89*t189*t111*t112*
5288 t113+.3903689117801349*t84*t1*t2*t4*t105*t88*t189*t111*t112*
5289 t113)+t141*t580+3.0*t194*t524+3.0*t195*t523+3.0*t304*t349+
5290 3.0*t305*t348+(-.03968148252444444*t22*t60*t49*t69*t541+.001299970392746666*
5291 t22*t60*t49*t62*t67*t541-1.420417388544E-5*t22*t60*t49*t68*
5292 t65*t541+6.201752223744E-8*t22*t60*t49*t66*t140*t541-9.01212770304E-11*
5293 t22*t60*t49*t63*t299*t541+.001522412728319999*t22*t159*t49*
5294 t67*t540-4.440669843455998E-5*t22*t159*t49*t62*t65*t540+4.5167377711104E-7*
5295 t22*t159*t49*t68*t140*t540-1.9037235216383996E-9*t22*t159*
5296 t49*t66*t299*t540+2.780885119795201E-12*t22*t159*t49*t63*t485*
5297 t540-8.704257884159998E-6*t22*t156*t49*t65*t539+2.3867979595775998E-7*
5298 t22*t156*t49*t62*t140*t539-2.3347131973632E-9*t22*t156*t49*
5299 t68*t299*t539+9.6554651222016E-12*t22*t156*t49*t66*t485*t539-
5300 1.41572333371392E-14*t22*t156*t49*t63*t729*t539)*t151+t581*
5301 t139;
5302 d4fdrarbrbga = 2.0*t194*t525+t203*t523+2.0*t304*t350+
5303 t310*t348+(.01700634965333333*grada*t60*t49*t69*t319-5.571301683199998E-4*
5304 grada*t60*t49*t62*t67*t319-3.8060318207999994E-4*t200*t60*
5305 t48*t67*t319+6.087503093759998E-6*grada*t60*t49*t68*t65*t319+
5306 1.1101674608639997E-5*t200*t60*t48*t62*t65*t319-2.657893810176E-8*
5307 grada*t60*t49*t66*t140*t319-1.1291844427776E-7*t200*t60*t48*
5308 t68*t140*t319+3.86234044416E-11*grada*t60*t49*t63*t299*t319+
5309 4.759308804096E-10*t200*t60*t48*t66*t299*t319-6.952212799488E-13*
5310 t200*t60*t48*t63*t485*t319-2.7680231423999996E-4*grada*t159*
5311 t49*t67*t318+8.073945169919998E-6*grada*t159*t49*t62*t65*t318+
5312 6.528193413119999E-6*t200*t159*t48*t65*t318-8.212250492928002E-8*
5313 grada*t159*t49*t68*t140*t318-1.7900984696832E-7*t200*t159*
5314 t48*t62*t140*t318+3.461315493887999E-10*grada*t159*t49*t66*
5315 t299*t318+1.7510348980224E-9*t200*t159*t48*t68*t299*t318-5.056154763264E-13*
5316 grada*t159*t49*t63*t485*t318-7.2415988416512E-12*t200*t159*
5317 t48*t66*t485*t318+1.06179250028544E-14*t200*t159*t48*t63*t729*
5318 t318)*t151+t582*t139;
5319 d4fdrarbrbgb = 2.0*t194*t526+t211*t523+2.0*t304*t355+
5320 t311*t348+(.01700634965333333*t22*gradb*t49*t69*t319-5.571301683199998E-4*
5321 t22*gradb*t49*t62*t67*t319+6.087503093759998E-6*t22*gradb*
5322 t49*t68*t65*t319-2.657893810176E-8*t22*gradb*t49*t66*t140*
5323 t319+3.86234044416E-11*t22*gradb*t49*t63*t299*t319-9.342078105599997E-4*
5324 t22*t208*t49*t67*t318+2.7249564948479993E-5*t22*t208*t49*t62*
5325 t65*t318-2.7716345413632004E-7*t22*t208*t49*t68*t140*t318+
5326 1.1681939791872E-9*t22*t208*t49*t66*t299*t318-1.7064522326016E-12*
5327 t22*t208*t49*t63*t485*t318+6.528193413119999E-6*t22*t207*t49*
5328 t65*t317-1.7900984696832E-7*t22*t207*t49*t62*t140*t317+1.7510348980224E-9*
5329 t22*t207*t49*t68*t299*t317-7.2415988416512E-12*t22*t207*t49*
5330 t66*t485*t317+1.06179250028544E-14*t22*t207*t49*t63*t729*t317)*
5331 t151+t587*t139;
5332 d4fdrarbrbab = 0.0;
5333 d4fdrarbgaga = (-.004638095359999999*t60*t49*t69*t176+
5334 1.5194459135999996E-4*t60*t49*t62*t67*t176+5.190043391999999E-4*
5335 t22*t60*t48*t67*t176-1.6602281164799998E-6*t60*t49*t68*t65*
5336 t176-1.5138647193599997E-5*t22*t60*t48*t62*t65*t176-4.896145059839999E-6*
5337 t30*t60*t47*t65*t176+7.24880130048E-9*t60*t49*t66*t140*t176+
5338 1.539796967424E-7*t22*t60*t48*t68*t140*t176+1.3425738522624E-7*
5339 t30*t60*t47*t62*t140*t176-1.05336557568E-11*t60*t49*t63*t299*
5340 t176-6.48996655104E-10*t22*t60*t48*t66*t299*t176-1.3132761735168E-9*
5341 t30*t60*t47*t68*t299*t176+9.48029018112E-13*t22*t60*t48*t63*
5342 t485*t176+5.4311991312384E-12*t30*t60*t47*t66*t485*t176-7.963443752140802E-15*
5343 t30*t60*t47*t63*t729*t176)*t151+t588*t139+t530*t194+t359*t304;
5344 d4fdrarbgagb = (-
5345 .009276190719999997*grada*gradb*t49*t69*t176+3.0388918271999993E-4*
5346 grada*gradb*t49*t62*t67*t176+2.0760173567999995E-4*t200*gradb*
5347 t48*t67*t176-3.3204562329599996E-6*grada*gradb*t49*t68*t65*
5348 t176-6.05545887744E-6*t200*gradb*t48*t62*t65*t176+1.449760260096E-8*
5349 grada*gradb*t49*t66*t140*t176+6.159187869696E-8*t200*gradb*
5350 t48*t68*t140*t176-2.10673115136E-11*grada*gradb*t49*t63*t299*
5351 t176-2.595986620416E-10*t200*gradb*t48*t66*t299*t176+3.792116072448E-13*
5352 t200*gradb*t48*t63*t485*t176+2.0760173567999995E-4*grada*t208*
5353 t49*t67*t175-6.05545887744E-6*grada*t208*t49*t62*t65*t175-
5354 4.896145059839999E-6*t200*t208*t48*t65*t175+6.159187869696E-8*
5355 grada*t208*t49*t68*t140*t175+1.3425738522624E-7*t200*t208*
5356 t48*t62*t140*t175-2.595986620416E-10*grada*t208*t49*t66*t299*
5357 t175-1.3132761735168E-9*t200*t208*t48*t68*t299*t175+3.792116072448E-13*
5358 grada*t208*t49*t63*t485*t175+5.4311991312384E-12*t200*t208*
5359 t48*t66*t485*t175-7.963443752140802E-15*t200*t208*t48*t63*
5360 t729*t175)*t151+t589*t139+t531*t194+t360*t304;
5361 d4fdrarbgaab = 0.0;
5362 d4fdrarbgbgb = (-.004638095359999999*t22*t49*t69*t176+
5363 1.5194459135999996E-4*t22*t49*t62*t67*t176-1.6602281164799998E-6*
5364 t22*t49*t68*t65*t176+7.24880130048E-9*t22*t49*t66*t140*t176-
5365 1.05336557568E-11*t22*t49*t63*t299*t176+5.190043391999999E-4*
5366 t22*t60*t49*t67*t175-1.5138647193599997E-5*t22*t60*t49*t62*
5367 t65*t175+1.539796967424E-7*t22*t60*t49*t68*t140*t175-6.48996655104E-10*
5368 t22*t60*t49*t66*t299*t175+9.48029018112E-13*t22*t60*t49*t63*
5369 t485*t175-4.896145059839999E-6*t22*t159*t49*t65*t174+1.3425738522624E-7*
5370 t22*t159*t49*t62*t140*t174-1.3132761735168E-9*t22*t159*t49*
5371 t68*t299*t174+5.4311991312384E-12*t22*t159*t49*t66*t485*t174-
5372 7.963443752140802E-15*t22*t159*t49*t63*t729*t174)*t151+t593*
5373 t139+t532*t194+t364*t304;
5374 d4fdrarbgbab = 0.0;
5375 d4fdrarbabab = 0.0;
5376 d4fdragagaga = 1.0*t51*t595*t56*t35*t57*rhoa-0.03109*
5377 t20*(9.303062016000002*grada*t31*t48-42.35934581760001*t200*
5378 t28*t47+50.64159919104002*t199*t25*t46-26.03075498803201*t198*
5379 t44*t45+6.622699683840002*t196*t213*t307-.8247864360960004*
5380 t306*t366*t527+.04022837575680003*t514*t605*t773)*t35*rhoa-
5381 1.0*t36*t4*t596*t6-0.75*t36*t4*(-.007947716607999998*grada*
5382 t40*t48+6.958228725759998E-4*t200*t39*t47-1.7151946866688E-5*
5383 t199*t38*t46+1.86041143656448E-7*t198*t58*t45-1.0096297377792E-9*
5384 t196*t228*t307+2.6976565854208E-12*t306*t383*t527-2.832254107648E-15*
5385 t514*t622*t773)*t53-0.03109*t20*t595*t35+.002129457733333333*
5386 t1*t2*t4*t20*t595*t17+(0.02087142912*grada*t48*t69-6.837506611199999E-4*
5387 grada*t48*t62*t67-7.006558579199998E-4*t200*t47*t67+7.47102652416E-6*
5388 grada*t48*t68*t65+2.0437173711360002E-5*t200*t47*t62*t65+3.6721087948799996E-6*
5389 t199*t46*t65-3.2619605852160005E-8*grada*t48*t66*t140-2.0787259060224006E-7*
5390 t200*t47*t68*t140-1.0069303891968003E-7*t199*t46*t62*t140+
5391 4.740145090559999E-11*grada*t48*t63*t299+8.761454843904001E-10*
5392 t200*t47*t66*t299+9.849571301376002E-10*t199*t46*t68*t299-
5393 1.2798391744512E-12*t200*t47*t63*t485-4.073399348428801E-12*
5394 t199*t46*t66*t485+5.972582814105601E-15*t199*t46*t63*t729)*
5395 t151+t597*t139;
5396 d4fdragagagb = (.003478571519999999*gradb*t49*t69*t61-
5397 1.1395844352E-4*gradb*t49*t62*t67*t61-3.892532543999999E-4*
5398 t22*gradb*t48*t67*t61+1.2451710873600001E-6*gradb*t49*t68*
5399 t65*t61+1.1353985395200002E-5*t22*gradb*t48*t62*t65*t61+3.6721087948799996E-6*
5400 t30*gradb*t47*t65*t61-5.436600975360001E-9*gradb*t49*t66*t140*
5401 t61-1.1548477255680002E-7*t22*gradb*t48*t68*t140*t61-1.0069303891968003E-7*
5402 t30*gradb*t47*t62*t140*t61+7.9002418176E-12*gradb*t49*t63*
5403 t299*t61+4.867474913279999E-10*t22*gradb*t48*t66*t299*t61+
5404 9.849571301376002E-10*t30*gradb*t47*t68*t299*t61-7.11021763584E-13*
5405 t22*gradb*t48*t63*t485*t61-4.073399348428801E-12*t30*gradb*
5406 t47*t66*t485*t61+5.972582814105601E-15*t30*gradb*t47*t63*t729*
5407 t61)*t151+t598*t139;
5408 d4fdragagaab = 0.0;
5409 d4fdragagbgb = (.003478571519999999*grada*t49*t69*t61-
5410 1.1395844352E-4*grada*t49*t62*t67*t61-7.785065087999998E-5*
5411 t200*t48*t67*t61+1.2451710873600001E-6*grada*t49*t68*t65*t61+
5412 2.27079707904E-6*t200*t48*t62*t65*t61-5.436600975360001E-9*
5413 grada*t49*t66*t140*t61-2.3096954511360004E-8*t200*t48*t68*
5414 t140*t61+7.9002418176E-12*grada*t49*t63*t299*t61+9.73494982656E-11*
5415 t200*t48*t66*t299*t61-1.422043527168E-13*t200*t48*t63*t485*
5416 t61-1.5570130175999997E-4*grada*t60*t49*t67*t161+4.54159415808E-6*
5417 grada*t60*t49*t62*t65*t161+3.6721087948799996E-6*t200*t60*
5418 t48*t65*t161-4.619390902272001E-8*grada*t60*t49*t68*t140*t161-
5419 1.0069303891968003E-7*t200*t60*t48*t62*t140*t161+1.946989965312E-10*
5420 grada*t60*t49*t66*t299*t161+9.849571301376002E-10*t200*t60*
5421 t48*t68*t299*t161-2.844087054336001E-13*grada*t60*t49*t63*
5422 t485*t161-4.073399348428801E-12*t200*t60*t48*t66*t485*t161+
5423 5.972582814105601E-15*t200*t60*t48*t63*t729*t161)*t151+t599*
5424 t139;
5425 d4fdragagbab = 0.0;
5426 d4fdragaabab = 0.0;
5427 d4fdragbgbgb = (-2.3355195263999995E-4*t22*gradb*t49*
5428 t67*t161+6.81239123712E-6*t22*gradb*t49*t62*t65*t161-6.929086353408003E-8*
5429 t22*gradb*t49*t68*t140*t161+2.920484947968E-10*t22*gradb*t49*
5430 t66*t299*t161-4.266130581504001E-13*t22*gradb*t49*t63*t485*
5431 t161+3.6721087948799996E-6*t22*t208*t49*t65*t158-1.0069303891968003E-7*
5432 t22*t208*t49*t62*t140*t158+9.849571301376002E-10*t22*t208*
5433 t49*t68*t299*t158-4.073399348428801E-12*t22*t208*t49*t66*t485*
5434 t158+5.972582814105601E-15*t22*t208*t49*t63*t729*t158)*t151+
5435 t603*t139;
5436 d4fdragbgbab = 0.0;
5437 d4fdragbabab = 0.0;
5438 d4fdraababab = 0.0;
5439 d4fdrbrbrbrb = t71*(24829.60425438716*t543*t785*t150*
5440 t787*rhob-199659.0885685683*t784*t785*t150*t786*rhob+24.0*
5441 t178*t785*t150*t546*rhob+1157.928594403345*t321*t327*t322*
5442 t150*t546*rhob-1157.928594403345*t321*t785*t150*t545*rhob-
5443 12414.80212719358*t543*t327*t322*t150*t545*rhob+6.0*t178*t788*
5444 t150*t324*rhob+8.0*t178*t550*t183*t150*t324*rhob-96.4940495336121*
5445 t321*t788*t150*t323*rhob-36.0*t178*t327*t322*t150*t323*rhob-
5446 128.6587327114828*t321*t550*t183*t150*t323*rhob-1.0*t178*t790*
5447 t150*t184*rhob+t72*(.01975178970256521*t84*(-384.0*t127*t85+
5448 t717+t716+t712-1920.0*t129*t458)*t89*t93*t96-.002929848805880505*
5449 t84*t1*t2*t4*t105*t571*t93*t96+0.00585969761176101*t84*t1*
5450 t2*t4*t243*t341*t93*t96-0.00911508517385046*t84*t1*t2*t4*t411*
5451 t191*t93*t96+.01975178970256521*t84*t88*t89*t792*t96+.07900715881026082*
5452 t84*t191*t89*t565*t96-.002929848805880505*t84*t1*t2*t4*t105*
5453 t88*t565*t96+.1185107382153912*t84*t341*t89*t336*t96+0.00585969761176101*
5454 t84*t1*t2*t4*t243*t88*t336*t96-.008789546417641516*t84*t1*
5455 t2*t4*t105*t191*t336*t96+.07900715881026082*t84*t571*t89*t189*
5456 t96-0.00911508517385046*t84*t1*t2*t4*t411*t88*t189*t96-.008789546417641516*
5457 t84*t1*t2*t4*t105*t341*t189*t96+.01171939522352202*t84*t1*
5458 t2*t4*t243*t191*t189*t96-96.0*t135*t84*t85*t87*t93-16.0*t129*
5459 t469*t84*t87*t93+384.0*t102*t127*t84*t85*t93+1920.0*t102*t129*
5460 t458*t84*t93+192.0*t127*t129*t288*t84*t93-960.0*t129*t135*
5461 t277*t84*t93+4.0*t135*t565*t84*t86*t87+4.0*t189*t469*t84*t86*
5462 t87+6.0*t288*t336*t84*t86*t87-96.0*t102*t189*t84*t85*t87-16.0*
5463 t102*t129*t565*t84*t87+72.0*t102*t279*t336*t84*t87-48.0*t129*
5464 t135*t336*t84*t87-48.0*t129*t189*t288*t84*t87+144.0*t135*t189*
5465 t279*t84*t87-16.0*t102*t127*t565*t84*t86-480.0*t102*t189*t458*
5466 t84*t86+120.0*t102*t277*t336*t84*t86-48.0*t127*t135*t336*t84*
5467 t86-48.0*t127*t189*t288*t84*t86+240.0*t135*t189*t277*t84*t86+
5468 192.0*t102*t127*t129*t336*t84-576.0*t102*t127*t189*t279*t84-
5469 960.0*t102*t129*t189*t277*t84+384.0*t127*t129*t135*t189*t84+
5470 t728+t727+t726+t725+t724+t723+t722+t721+t720+t714+t706+t705+
5471 t704+t703+t702+t701+t700+t699+t698+t697+t696+t695+t694+t693+
5472 t692+t691+t689+t688+t687+t686+t685+t684+t683+t681+t680+t679+
5473 t678+t673+t672+t671+t670+t669+t668+t667+t666+t665+t664+t663+
5474 t661+t660+t659+t658+t657+t656+t654-4101.558808403119*t84*t191*
5475 t89*t93*t417*t418*t419-4101.558808403119*t84*t88*t89*t189*
5476 t417*t418*t419+415.5781415850207*t84*t191*t89*t93*t417*t421*
5477 t250+415.5781415850207*t84*t88*t89*t189*t417*t421*t250-103.8945353962552*
5478 t84*t341*t89*t93*t248*t249*t250+7.70551137522226*t84*t1*t2*
5479 t4*t105*t191*t93*t248*t249*t250-103.8945353962552*t84*t88*
5480 t89*t336*t248*t249*t250-207.7890707925104*t84*t191*t89*t189*
5481 t248*t249*t250+7.70551137522226*t84*t1*t2*t4*t105*t88*t189*
5482 t248*t249*t250-207.7890707925104*t84*t191*t89*t93*t254*t111*
5483 t249*t250-207.7890707925104*t84*t88*t89*t189*t254*t111*t249*
5484 t250+7.017868076946245*t84*t341*t89*t93*t248*t252*t113-.5204918823735132*
5485 t84*t1*t2*t4*t105*t191*t93*t248*t252*t113+7.017868076946245*
5486 t84*t88*t89*t336*t248*t252*t113+14.03573615389249*t84*t191*
5487 t89*t189*t248*t252*t113-.5204918823735132*t84*t1*t2*t4*t105*
5488 t88*t189*t248*t252*t113+14.03573615389249*t84*t191*t89*t93*
5489 t254*t111*t252*t113+14.03573615389249*t84*t88*t89*t189*t254*
5490 t111*t252*t113-14.03573615389249*t84*t191*t89*t93*t417*t249*
5491 t113-14.03573615389249*t84*t88*t89*t189*t417*t249*t113-2.339289358982082*
5492 t84*t191*t89*t93*t432*t112*t113-2.339289358982082*t84*t88*
5493 t89*t189*t432*t112*t113-3.508934038473122*t84*t341*t89*t93*
5494 t254*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*t191*t93*
5495 t254*t112*t113-3.508934038473122*t84*t88*t89*t336*t254*t112*
5496 t113-7.017868076946245*t84*t191*t89*t189*t254*t112*t113+.2602459411867566*
5497 t84*t1*t2*t4*t105*t88*t189*t254*t112*t113-2.339289358982082*
5498 t84*t571*t89*t93*t111*t112*t113+.2602459411867566*t84*t1*t2*
5499 t4*t105*t341*t93*t111*t112*t113-.3469945882490088*t84*t1*t2*
5500 t4*t243*t191*t93*t111*t112*t113-2.339289358982082*t84*t88*
5501 t89*t565*t111*t112*t113-7.017868076946245*t84*t191*t89*t336*
5502 t111*t112*t113+.2602459411867566*t84*t1*t2*t4*t105*t88*t336*
5503 t111*t112*t113-7.017868076946245*t84*t341*t89*t189*t111*t112*
5504 t113-.3469945882490088*t84*t1*t2*t4*t243*t88*t189*t111*t112*
5505 t113+.5204918823735132*t84*t1*t2*t4*t105*t191*t189*t111*t112*
5506 t113+t84*t86*t87*t792*t102)+.07900715881026082*t84*t571*t89*
5507 t93*t96-.008789546417641516*t84*t1*t2*t4*t105*t341*t93*t96+
5508 .01171939522352202*t84*t1*t2*t4*t243*t191*t93*t96+.07900715881026082*
5509 t84*t88*t89*t565*t96+.2370214764307825*t84*t191*t89*t336*t96-
5510 .008789546417641516*t84*t1*t2*t4*t105*t88*t336*t96+.2370214764307825*
5511 t84*t341*t89*t189*t96+.01171939522352202*t84*t1*t2*t4*t243*
5512 t88*t189*t96-.01757909283528303*t84*t1*t2*t4*t105*t191*t189*
5513 t96-96.0*t102*t84*t85*t87*t93-48.0*t129*t288*t84*t87*t93-960.0*
5514 t102*t129*t277*t84*t93+384.0*t127*t129*t135*t84*t93+4.0*t102*
5515 t565*t84*t86*t87+12.0*t135*t336*t84*t86*t87+12.0*t189*t288*
5516 t84*t86*t87-48.0*t102*t129*t336*t84*t87+144.0*t102*t189*t279*
5517 t84*t87-96.0*t129*t135*t189*t84*t87-48.0*t102*t127*t336*t84*
5518 t86+240.0*t102*t189*t277*t84*t86-96.0*t127*t135*t189*t84*t86+
5519 384.0*t102*t127*t129*t189*t84+t650+t649+t648+t647+t646+t645+
5520 t644+t643+t642+t641+t640+t639+t638+t637+t636+t635+t634+t633+
5521 t632+t631+t630+t629+t628+t627+t626+t625+t624+t623-.004416653076543209*
5522 t1*t2*t4*t149*t547+771.9523962688968*t321*t544*t150*t546-8276.534751462386*
5523 t543*t544*t150*t545-.2435318518518518*t1*t2*t4*t178*t183*t184*
5524 t325+24.0*t178*t327*t183*t150*t324-24.0*t178*t544*t150*t323-
5525 385.9761981344484*t321*t327*t183*t150*t323-207.7890707925104*
5526 t84*t191*t89*t93*t248*t249*t250-207.7890707925104*t84*t88*
5527 t89*t189*t248*t249*t250-4.0*t178*t550*t150*t184-.5479466666666666*
5528 t1*t2*t4*t178*t322*t324*t181+8.812265465851826*t1*t2*t4*t321*
5529 t322*t323*t181+.2739733333333333*t1*t2*t4*t178*t327*t184*t181-
5530 52.87359279511096*t1*t2*t4*t321*t544*t546*t146+566.8874535768302*
5531 t1*t2*t4*t543*t544*t545*t146-1.64384*t1*t2*t4*t178*t327*t183*
5532 t324*t146+1.64384*t1*t2*t4*t178*t544*t323*t146+26.43679639755548*
5533 t1*t2*t4*t321*t327*t183*t323*t146+.2739733333333333*t1*t2*
5534 t4*t178*t550*t184*t146+14.03573615389249*t84*t191*t89*t93*
5535 t248*t252*t113+14.03573615389249*t84*t88*t89*t189*t248*t252*
5536 t113-7.017868076946245*t84*t191*t89*t93*t254*t112*t113-7.017868076946245*
5537 t84*t88*t89*t189*t254*t112*t113-7.017868076946245*t84*t341*
5538 t89*t93*t111*t112*t113+.5204918823735132*t84*t1*t2*t4*t105*
5539 t191*t93*t111*t112*t113-7.017868076946245*t84*t88*t89*t336*
5540 t111*t112*t113-14.03573615389249*t84*t191*t89*t189*t111*t112*
5541 t113+.5204918823735132*t84*t1*t2*t4*t105*t88*t189*t111*t112*
5542 t113)-24829.60425438716*t543*t163*t785*t150*t787*rhob+199659.0885685683*
5543 t784*t163*t785*t150*t786*rhob-24.0*t178*t163*t785*t150*t546*
5544 rhob-771.9523962688968*t321*t177*t544*t150*t546*rhob-1157.928594403345*
5545 t321*t163*t327*t322*t150*t546*rhob+1157.928594403345*t321*
5546 t163*t785*t150*t545*rhob+8276.534751462386*t543*t177*t544*
5547 t150*t545*rhob+12414.80212719358*t543*t163*t327*t322*t150*
5548 t545*rhob-6.0*t178*t163*t788*t150*t324*rhob-12.0*t178*t320*
5549 t322*t150*t324*rhob-8.0*t178*t163*t550*t183*t150*t324*rhob-
5550 24.0*t178*t177*t327*t183*t150*t324*rhob+96.4940495336121*t321*
5551 t163*t788*t150*t323*rhob+24.0*t178*t177*t544*t150*t323*rhob+
5552 36.0*t178*t163*t327*t322*t150*t323*rhob+192.9880990672242*
5553 t321*t320*t322*t150*t323*rhob+128.6587327114828*t321*t163*
5554 t550*t183*t150*t323*rhob+385.9761981344484*t321*t177*t327*
5555 t183*t150*t323*rhob+1.0*t178*t163*t790*t150*t184*rhob+4.0*
5556 t178*t177*t550*t150*t184*rhob+6.0*t178*t320*t327*t150*t184*
5557 rhob+4.0*t178*t542*t183*t150*t184*rhob-0.03109*t149*(1.648851306666667*
5558 t60*t162*t783-149.6964613238518*t159*t160*t782+320.2201690661926*
5559 t156*t157*t781-253.7662422846578*t152*t154*t780+99.27987154230993*
5560 t170*t171*t779-20.69653345924741*t312*t313*t778+2.210467588778668*
5561 t533*t534*t777-0.0953561499420445*t774*t775*t776)*t150*rhob-
5562 0.75*t180*t36*t4*(-.3731455439012346*t60*t168*t783+.1266766131231605*
5563 t159*t167*t782-.005245704761192296*t156*t166*t781+8.65266582058224E-5*
5564 t152*t165*t780-7.184213048664367E-7*t170*t185*t779+3.1967368617478314E-9*
5565 t312*t328*t778-7.293573527658193E-12*t533*t551*t777+6.713491218128591E-15*
5566 t774*t791*t776)-.3703703703703703*t169*t36*t4*t61+4.0*t194*
5567 t581+4.0*t195*t580-4.0*t142*t36*t4*t552+.004416653076543209*
5568 t1*t2*t4*t149*t163*t547-771.9523962688968*t321*t163*t544*t150*
5569 t546+8276.534751462386*t543*t163*t544*t150*t545-2.0*t145*t329*
5570 t36*t4+.8888888888888888*t179*t186*t36*t4+6.0*t348*t349+.2435318518518518*
5571 t1*t2*t4*t178*t163*t183*t184*t325-.007571405274074072*t1*t2*
5572 t4*t149*t177*t325-24.0*t178*t177*t322*t150*t324-24.0*t178*
5573 t163*t327*t183*t150*t324+24.0*t178*t163*t544*t150*t323+385.9761981344484*
5574 t321*t177*t322*t150*t323+385.9761981344484*t321*t163*t327*
5575 t183*t150*t323+4.0*t178*t163*t550*t150*t184+12.0*t178*t177*
5576 t327*t150*t184+12.0*t178*t320*t183*t150*t184+.5479466666666666*
5577 t1*t2*t4*t178*t163*t322*t324*t181-8.812265465851826*t1*t2*
5578 t4*t321*t163*t322*t323*t181+.008517830933333331*t1*t2*t4*t149*
5579 t320*t181-.2739733333333333*t1*t2*t4*t178*t163*t327*t184*t181-
5580 .5479466666666666*t1*t2*t4*t178*t177*t183*t184*t181+(3.540823668148148*
5581 t60*t70*t783-0.14740135872*t60*t62*t69*t783+.001878028932266667*
5582 t60*t68*t67*t783-8.85440607744E-6*t60*t66*t65*t783+1.276718091264E-8*
5583 t60*t63*t140*t783-0.252260853191111*t159*t69*t782+.008264097496746666*
5584 t159*t62*t67*t782-9.029796255744E-5*t159*t68*t65*t782+3.9425424850944E-7*
5585 t159*t66*t140*t782-5.729138325504E-10*t159*t63*t299*t782+.003044825456639999*
5586 t156*t67*t781-8.881339686911999E-5*t156*t62*t65*t781+9.0334755422208E-7*
5587 t156*t68*t140*t781-3.8074470432768E-9*t156*t66*t299*t781+5.561770239590401E-12*
5588 t156*t63*t485*t781-8.704257884159998E-6*t152*t65*t780+2.3867979595775998E-7*
5589 t152*t62*t140*t780-2.3347131973632E-9*t152*t68*t299*t780+9.6554651222016E-12*
5590 t152*t66*t485*t780-1.41572333371392E-14*t152*t63*t729*t780)*
5591 t151-0.12436*t149*t542*t150+52.87359279511096*t1*t2*t4*t321*
5592 t163*t544*t546*t146-566.8874535768302*t1*t2*t4*t543*t163*t544*
5593 t545*t146+.008517830933333331*t1*t2*t4*t149*t542*t146+1.64384*
5594 t1*t2*t4*t178*t177*t322*t324*t146+1.64384*t1*t2*t4*t178*t163*
5595 t327*t183*t324*t146-1.64384*t1*t2*t4*t178*t163*t544*t323*t146-
5596 26.43679639755548*t1*t2*t4*t321*t177*t322*t323*t146-26.43679639755548*
5597 t1*t2*t4*t321*t163*t327*t183*t323*t146-.2739733333333333*t1*
5598 t2*t4*t178*t163*t550*t184*t146-.8219199999999999*t1*t2*t4*
5599 t178*t177*t327*t184*t146-.8219199999999999*t1*t2*t4*t178*t320*
5600 t183*t184*t146;
5601 d4fdrbrbrbga = 3.0*t194*t582+t203*t580+3.0*t348*t350+
5602 (.02976111189333333*grada*t60*t23*t69*t541-9.749777945599999E-4*
5603 grada*t60*t23*t62*t67*t541+1.065313041408E-5*grada*t60*t23*
5604 t68*t65*t541-4.651314167808E-8*grada*t60*t23*t66*t140*t541+
5605 6.75909577728E-11*grada*t60*t23*t63*t299*t541-0.00114180954624*
5606 grada*t159*t23*t67*t540+3.3305023825919994E-5*grada*t159*t23*
5607 t62*t65*t540-3.3875533283328E-7*grada*t159*t23*t68*t140*t540+
5608 1.4277926412288E-9*grada*t159*t23*t66*t299*t540-2.085663839846401E-12*
5609 grada*t159*t23*t63*t485*t540+6.528193413119999E-6*grada*t156*
5610 t23*t65*t539-1.7900984696832E-7*grada*t156*t23*t62*t140*t539+
5611 1.7510348980224E-9*grada*t156*t23*t68*t299*t539-7.2415988416512E-12*
5612 grada*t156*t23*t66*t485*t539+1.06179250028544E-14*grada*t156*
5613 t23*t63*t729*t539)*t151;
5614 d4fdrbrbrbgb = -192.9880990672242*t321*t209*t544*t150*
5615 t546*rhob+2069.133687865597*t543*t209*t544*t150*t545*rhob-
5616 6.0*t178*t353*t322*t150*t324*rhob-6.0*t178*t209*t327*t183*
5617 t150*t324*rhob+6.0*t178*t209*t544*t150*t323*rhob+96.4940495336121*
5618 t321*t353*t322*t150*t323*rhob+96.4940495336121*t321*t209*t327*
5619 t183*t150*t323*rhob+1.0*t178*t209*t550*t150*t184*rhob+3.0*
5620 t178*t353*t327*t150*t184*rhob+3.0*t178*t585*t183*t150*t184*
5621 rhob-0.03109*t149*(-.5819475199999999*gradb*t162*t541+71.89620165688889*
5622 t208*t160*t540-178.5808092444445*t207*t157*t539+155.7559643682134*
5623 t206*t154*t538-65.29869259753247*t204*t171*t537+14.35727882467556*
5624 t351*t313*t536-1.600381583360001*t583*t534*t535+.07151711245653339*
5625 t793*t775*t794)*t150*rhob+3.0*t194*t587-3.0*t142*t36*t4*t586+
5626 t211*t580-0.75*t180*t36*t4*(.1316984272592593*gradb*t168*t541-
5627 .06099442003437035*t208*t167*t540+.002927258189368889*t207*
5628 t166*t539-5.300765252600415E-5*t206*t165*t538+4.70902424702521E-7*
5629 t204*t185*t537-2.2096262395524743E-9*t351*t328*t536+5.267876280911644E-12*
5630 t583*t551*t535-5.035118413596443E-15*t793*t791*t794)-1.0*t145*
5631 t354*t36*t4+.2222222222222222*t179*t210*t36*t4+3.0*t348*t355-
5632 .001892851318518518*t1*t2*t4*t149*t209*t325-6.0*t178*t209*
5633 t322*t150*t324+96.4940495336121*t321*t209*t322*t150*t323+3.0*
5634 t178*t209*t327*t150*t184+6.0*t178*t353*t183*t150*t184+.004258915466666666*
5635 t1*t2*t4*t149*t353*t181-.1369866666666666*t1*t2*t4*t178*t209*
5636 t183*t184*t181+(-1.249702471111111*gradb*t70*t541+.05202400895999999*
5637 gradb*t62*t69*t541-6.628337408E-4*gradb*t68*t67*t541+3.12508449792E-6*
5638 gradb*t66*t65*t541-4.50606385152E-9*gradb*t63*t140*t541+.1317992098133333*
5639 t208*t69*t540-0.00431775880448*t208*t62*t67*t540+4.7178148976639994E-5*
5640 t208*t68*t65*t540-2.0598677028864004E-7*t208*t66*t140*t540+
5641 2.993313844224E-10*t208*t63*t299*t540-.001972216488959999*
5642 t207*t67*t539+5.752685933567999E-5*t207*t62*t65*t539-5.851228476211201E-7*
5643 t207*t68*t140*t539+2.4661872893952E-9*t207*t66*t299*t539-3.602510268825601E-12*
5644 t207*t63*t485*t539+6.528193413119999E-6*t206*t65*t538-1.7900984696832E-7*
5645 t206*t62*t140*t538+1.7510348980224E-9*t206*t68*t299*t538-7.2415988416512E-12*
5646 t206*t66*t485*t538+1.06179250028544E-14*t206*t63*t729*t538)*
5647 t151-.09326999999999999*t149*t585*t150+.006388373199999998*
5648 t1*t2*t4*t149*t585*t146+.4109599999999999*t1*t2*t4*t178*t209*
5649 t322*t324*t146-6.60919909938887*t1*t2*t4*t321*t209*t322*t323*
5650 t146-0.20548*t1*t2*t4*t178*t209*t327*t184*t146-.4109599999999999*
5651 t1*t2*t4*t178*t353*t183*t184*t146;
5652 d4fdrbrbrbab = 0.0;
5653 d4fdrbrbgaga = 2.0*t194*t588+t359*t348+(-.006377381119999998*
5654 t60*t23*t69*t319+2.0892381311999997E-4*t60*t23*t62*t67*t319+
5655 2.8545238655999994E-4*t22*t60*t32*t67*t319-2.2828136601599996E-6*
5656 t60*t23*t68*t65*t319-8.326255956479999E-6*t22*t60*t32*t62*
5657 t65*t319+9.96710178816E-9*t60*t23*t66*t140*t319+8.468883320832E-8*
5658 t22*t60*t32*t68*t140*t319-1.44837766656E-11*t60*t23*t63*t299*
5659 t319-3.569481603072E-10*t22*t60*t32*t66*t299*t319+5.214159599616001E-13*
5660 t22*t60*t32*t63*t485*t319+1.0380086783999998E-4*t159*t23*t67*
5661 t318-3.02772943872E-6*t159*t23*t62*t65*t318-4.896145059839999E-6*
5662 t22*t159*t32*t65*t318+3.079593934848E-8*t159*t23*t68*t140*
5663 t318+1.3425738522624E-7*t22*t159*t32*t62*t140*t318-1.297993310208E-10*
5664 t159*t23*t66*t299*t318-1.3132761735168E-9*t22*t159*t32*t68*
5665 t299*t318+1.896058036224E-13*t159*t23*t63*t485*t318+5.4311991312384E-12*
5666 t22*t159*t32*t66*t485*t318-7.963443752140802E-15*t22*t159*
5667 t32*t63*t729*t318)*t151;
5668 d4fdrbrbgagb = 2.0*t194*t589+t360*t348+(-0.01275476224*
5669 grada*gradb*t23*t69*t319+4.1784762623999994E-4*grada*gradb*
5670 t23*t62*t67*t319-4.5656273203199993E-6*grada*gradb*t23*t68*
5671 t65*t319+1.993420357632E-8*grada*gradb*t23*t66*t140*t319-2.89675533312E-11*
5672 grada*gradb*t23*t63*t299*t319+7.006558579199998E-4*grada*t208*
5673 t23*t67*t318-2.0437173711360002E-5*grada*t208*t23*t62*t65*
5674 t318+2.0787259060224E-7*grada*t208*t23*t68*t140*t318-8.761454843903999E-10*
5675 grada*t208*t23*t66*t299*t318+1.2798391744512E-12*grada*t208*
5676 t23*t63*t485*t318-4.896145059839999E-6*grada*t207*t23*t65*
5677 t317+1.3425738522624E-7*grada*t207*t23*t62*t140*t317-1.3132761735168E-9*
5678 grada*t207*t23*t68*t299*t317+5.4311991312384E-12*grada*t207*
5679 t23*t66*t485*t317-7.963443752140802E-15*grada*t207*t23*t63*
5680 t729*t317)*t151;
5681 d4fdrbrbgaab = 0.0;
5682 d4fdrbrbgbgb = -2.0*t178*t362*t322*t150*t324*rhob+32.1646831778707*
5683 t321*t362*t322*t150*t323*rhob+1.0*t178*t362*t327*t150*t184*
5684 rhob+2.0*t178*t591*t183*t150*t184*rhob-0.03109*t149*(0.12470304*
5685 t162*t319-29.434755776*t60*t160*t318+91.90239347200003*t159*
5686 t157*t317-91.38512306176003*t156*t154*t316+41.86583785881601*
5687 t152*t171*t315-9.826956554240002*t170*t313*t314+1.152395264000001*
5688 t312*t534*t584-.05363783434240004*t533*t775*t795)*t150*rhob+
5689 2.0*t194*t593-2.0*t142*t36*t4*t592-.3333333333333333*t145*
5690 t36*t363*t4-0.75*t180*(-.02822109155555556*t168*t319+.02505488489244444*
5691 t60*t167*t318-.001507769745635555*t159*t166*t317+3.103098413420089E-5*
5692 t156*t165*t316-3.006768291366685E-7*t152*t185*t315+1.5058826705123554E-9*
5693 t170*t328*t314-3.782320656657067E-12*t312*t551*t584+3.776338810197333E-15*
5694 t533*t791*t795)*t36*t4+t364*t348+2.0*t178*t362*t183*t150*t184+
5695 .001419638488888889*t1*t2*t4*t149*t362*t181+(.2677933866666666*
5696 t70*t319-0.01114800192*t62*t69*t319+1.4203580159999998E-4*
5697 t68*t67*t319-6.696609638400001E-7*t66*t65*t319+9.6558511104E-10*
5698 t63*t140*t319-.05971547775999998*t60*t69*t318+0.00195628661376*
5699 t60*t62*t67*t318-2.1375436999679998E-5*t60*t68*t65*t318+9.332831674368002E-8*
5700 t60*t66*t140*t318-1.356208178688E-10*t60*t63*t299*t318+0.00121966019712*
5701 t159*t67*t317-3.557582090496E-5*t159*t62*t65*t317+3.618522873446399E-7*
5702 t159*t68*t140*t317-1.5251421394943998E-9*t159*t66*t299*t317+
5703 2.2278681925632E-12*t159*t63*t485*t317-4.896145059839999E-6*
5704 t156*t65*t316+1.3425738522624E-7*t156*t62*t140*t316-1.3132761735168E-9*
5705 t156*t68*t299*t316+5.4311991312384E-12*t156*t66*t485*t316-
5706 7.963443752140802E-15*t156*t63*t729*t316)*t151-0.06218*t149*
5707 t591*t150+.004258915466666666*t1*t2*t4*t149*t591*t146-.1369866666666666*
5708 t1*t2*t4*t178*t362*t183*t184*t146;
5709 d4fdrbrbgbab = 0.0;
5710 d4fdrbrbabab = 0.0;
5711 d4fdrbgagaga = (-2.3355195263999995E-4*grada*t60*t32*
5712 t67*t176+6.81239123712E-6*grada*t60*t32*t62*t65*t176+3.6721087948799996E-6*
5713 t200*t60*t29*t65*t176-6.929086353408003E-8*grada*t60*t32*t68*
5714 t140*t176-1.0069303891968003E-7*t200*t60*t29*t62*t140*t176+
5715 2.920484947968E-10*grada*t60*t32*t66*t299*t176+9.849571301376002E-10*
5716 t200*t60*t29*t68*t299*t176-4.266130581504001E-13*grada*t60*
5717 t32*t63*t485*t176-4.073399348428801E-12*t200*t60*t29*t66*t485*
5718 t176+5.972582814105601E-15*t200*t60*t29*t63*t729*t176)*t151+
5719 t597*t194;
5720 d4fdrbgagagb = (.003478571519999999*gradb*t23*t69*t176-
5721 1.1395844352E-4*gradb*t23*t62*t67*t176-1.5570130175999997E-4*
5722 t22*gradb*t32*t67*t176+1.2451710873600001E-6*gradb*t23*t68*
5723 t65*t176+4.54159415808E-6*t22*gradb*t32*t62*t65*t176-5.436600975360001E-9*
5724 gradb*t23*t66*t140*t176-4.619390902272001E-8*t22*gradb*t32*
5725 t68*t140*t176+7.9002418176E-12*gradb*t23*t63*t299*t176+1.946989965312E-10*
5726 t22*gradb*t32*t66*t299*t176-2.844087054336001E-13*t22*gradb*
5727 t32*t63*t485*t176-7.785065087999998E-5*t208*t23*t67*t175+2.27079707904E-6*
5728 t208*t23*t62*t65*t175+3.6721087948799996E-6*t22*t208*t32*t65*
5729 t175-2.3096954511360004E-8*t208*t23*t68*t140*t175-1.0069303891968003E-7*
5730 t22*t208*t32*t62*t140*t175+9.73494982656E-11*t208*t23*t66*
5731 t299*t175+9.849571301376002E-10*t22*t208*t32*t68*t299*t175-
5732 1.422043527168E-13*t208*t23*t63*t485*t175-4.073399348428801E-12*
5733 t22*t208*t32*t66*t485*t175+5.972582814105601E-15*t22*t208*
5734 t32*t63*t729*t175)*t151+t598*t194;
5735 d4fdrbgagaab = 0.0;
5736 d4fdrbgagbgb = (.003478571519999999*grada*t23*t69*t176-
5737 1.1395844352E-4*grada*t23*t62*t67*t176+1.2451710873600001E-6*
5738 grada*t23*t68*t65*t176-5.436600975360001E-9*grada*t23*t66*
5739 t140*t176+7.9002418176E-12*grada*t23*t63*t299*t176-3.8925325439999997E-4*
5740 grada*t60*t23*t67*t175+1.1353985395200002E-5*grada*t60*t23*
5741 t62*t65*t175-1.1548477255680004E-7*grada*t60*t23*t68*t140*
5742 t175+4.867474913279999E-10*grada*t60*t23*t66*t299*t175-7.110217635840002E-13*
5743 grada*t60*t23*t63*t485*t175+3.6721087948799996E-6*grada*t159*
5744 t23*t65*t174-1.0069303891968003E-7*grada*t159*t23*t62*t140*
5745 t174+9.849571301376002E-10*grada*t159*t23*t68*t299*t174-4.073399348428801E-12*
5746 grada*t159*t23*t66*t485*t174+5.972582814105601E-15*grada*t159*
5747 t23*t63*t729*t174)*t151+t599*t194;
5748 d4fdrbgagbab = 0.0;
5749 d4fdrbgaabab = 0.0;
5750 d4fdrbgbgbgb = 1.0*t178*t601*t183*t150*t184*rhob-0.03109*
5751 t149*(9.303062016000002*gradb*t160*t175-42.35934581760001*
5752 t208*t157*t174+50.64159919104002*t207*t154*t173-26.03075498803201*
5753 t206*t171*t172+6.622699683840002*t204*t313*t352-.8247864360960004*
5754 t351*t534*t590+.04022837575680003*t583*t775*t796)*t150*rhob-
5755 1.0*t142*t36*t4*t602-0.75*(-.007947716607999998*gradb*t167*
5756 t175+6.958228725759998E-4*t208*t166*t174-1.7151946866688E-5*
5757 t207*t165*t173+1.86041143656448E-7*t206*t185*t172-1.0096297377792E-9*
5758 t204*t328*t352+2.6976565854208E-12*t351*t551*t590-2.832254107648E-15*
5759 t583*t791*t796)*t180*t36*t4+t603*t194+(0.02087142912*gradb*
5760 t69*t175-6.837506611199999E-4*gradb*t62*t67*t175+7.47102652416E-6*
5761 gradb*t68*t65*t175-3.2619605852160005E-8*gradb*t66*t140*t175+
5762 4.740145090559999E-11*gradb*t63*t299*t175-7.006558579199998E-4*
5763 t208*t67*t174+2.0437173711360002E-5*t208*t62*t65*t174-2.0787259060224006E-7*
5764 t208*t68*t140*t174+8.761454843904001E-10*t208*t66*t299*t174-
5765 1.2798391744512E-12*t208*t63*t485*t174+3.6721087948799996E-6*
5766 t207*t65*t173-1.0069303891968003E-7*t207*t62*t140*t173+9.849571301376002E-10*
5767 t207*t68*t299*t173-4.073399348428801E-12*t207*t66*t485*t173+
5768 5.972582814105601E-15*t207*t63*t729*t173)*t151-0.03109*t149*
5769 t601*t150+.002129457733333333*t1*t2*t4*t149*t601*t146;
5770 d4fdrbgbgbab = 0.0;
5771 d4fdrbgbabab = 0.0;
5772 d4fdrbababab = 0.0;
5773 d4fdgagagaga = -0.03109*t20*(-1.744324128*t31*t32+16.5824843328*
5774 t22*t28*t29-26.01630337536001*t30*t25*t26+15.58052973158401*
5775 t27*t44*t197-4.382357990400002*t21*t213*t356+.5862634536960003*
5776 t43*t366*t594-.03017128181760002*t212*t605*t797)*t35*rhoa-
5777 0.75*(0.001490196864*t40*t32-2.72855152128E-4*t22*t39*t29+
5778 8.787011100671999E-6*t30*t38*t26-1.1071783737753602E-7*t27*
5779 t58*t197+6.639601287168001E-10*t21*t228*t356-1.9094465150976E-12*
5780 t43*t383*t594+2.124190580736E-15*t212*t622*t797)*t36*t4*t53+
5781 (-0.00391339296*t32*t69+1.2820324896E-4*t32*t62*t67+3.503279289599999E-4*
5782 t22*t29*t67-1.4008174732800002E-6*t32*t68*t65-1.0218586855680001E-5*
5783 t22*t29*t62*t65-2.75408159616E-6*t30*t26*t65+6.11617609728E-9*
5784 t32*t66*t140+1.0393629530112003E-7*t22*t29*t68*t140+7.551977918976003E-8*
5785 t30*t26*t62*t140-8.887772044800001E-12*t32*t63*t299-4.380727421952E-10*
5786 t22*t29*t66*t299-7.387178476032001E-10*t30*t26*t68*t299+6.399195872256002E-13*
5787 t22*t29*t63*t485+3.055049511321601E-12*t30*t26*t66*t485-4.479437110579201E-15*
5788 t30*t26*t63*t729)*t151;
5789 d4fdgagagagb = (1.7516396447999996E-4*grada*gradb*t32*
5790 t67*t61-5.10929342784E-6*grada*gradb*t32*t62*t65*t61-2.75408159616E-6*
5791 t200*gradb*t29*t65*t61+5.196814765056001E-8*grada*gradb*t32*
5792 t68*t140*t61+7.551977918976003E-8*t200*gradb*t29*t62*t140*
5793 t61-2.190363710976E-10*grada*gradb*t32*t66*t299*t61-7.387178476032001E-10*
5794 t200*gradb*t29*t68*t299*t61+3.199597936128001E-13*grada*gradb*
5795 t32*t63*t485*t61+3.055049511321601E-12*t200*gradb*t29*t66*
5796 t485*t61-4.479437110579201E-15*t200*gradb*t29*t63*t729*t61)*
5797 t151;
5798 d4fdgagagaab = 0.0;
5799 d4fdgagagbgb = (-0.00130446432*t23*t69*t61+4.2734416319999996E-5*
5800 t23*t62*t67*t61+5.838798816E-5*t22*t32*t67*t61-4.669391577600001E-7*
5801 t23*t68*t65*t61-1.70309780928E-6*t22*t32*t62*t65*t61+2.0387253657600002E-9*
5802 t23*t66*t140*t61+1.7322715883520004E-8*t22*t32*t68*t140*t61-
5803 2.962590681600001E-12*t23*t63*t299*t61-7.30121236992E-11*t22*
5804 t32*t66*t299*t61+1.066532645376E-13*t22*t32*t63*t485*t61+5.838798816E-5*
5805 t60*t23*t67*t161-1.70309780928E-6*t60*t23*t62*t65*t161-2.75408159616E-6*
5806 t22*t60*t32*t65*t161+1.7322715883520004E-8*t60*t23*t68*t140*
5807 t161+7.551977918976003E-8*t22*t60*t32*t62*t140*t161-7.30121236992E-11*
5808 t60*t23*t66*t299*t161-7.387178476032001E-10*t22*t60*t32*t68*
5809 t299*t161+1.066532645376E-13*t60*t23*t63*t485*t161+3.055049511321601E-12*
5810 t22*t60*t32*t66*t485*t161-4.479437110579201E-15*t22*t60*t32*
5811 t63*t729*t161)*t151;
5812 d4fdgagagbab = 0.0;
5813 d4fdgagaabab = 0.0;
5814 d4fdgagbgbgb = (1.7516396448E-4*grada*gradb*t23*t67*t161-
5815 5.10929342784E-6*grada*gradb*t23*t62*t65*t161+5.196814765056001E-8*
5816 grada*gradb*t23*t68*t140*t161-2.190363710976E-10*grada*gradb*
5817 t23*t66*t299*t161+3.199597936128001E-13*grada*gradb*t23*t63*
5818 t485*t161-2.75408159616E-6*grada*t208*t23*t65*t158+7.551977918976003E-8*
5819 grada*t208*t23*t62*t140*t158-7.387178476032001E-10*grada*t208*
5820 t23*t68*t299*t158+3.055049511321601E-12*grada*t208*t23*t66*
5821 t485*t158-4.479437110579201E-15*grada*t208*t23*t63*t729*t158)*
5822 t151;
5823 d4fdgagbgbab = 0.0;
5824 d4fdgagbabab = 0.0;
5825 d4fdgaababab = 0.0;
5826 d4fdgbgbgbgb = -0.03109*t149*(-1.744324128*t160*t161+
5827 16.5824843328*t60*t157*t158-26.01630337536001*t159*t154*t155+
5828 15.58052973158401*t156*t171*t205-4.382357990400002*t152*t313*
5829 t361+.5862634536960003*t170*t534*t600-.03017128181760002*t312*
5830 t775*t798)*t150*rhob-0.75*(0.001490196864*t167*t161-2.72855152128E-4*
5831 t60*t166*t158+8.787011100671999E-6*t159*t165*t155-1.1071783737753602E-7*
5832 t156*t185*t205+6.639601287168001E-10*t152*t328*t361-1.9094465150976E-12*
5833 t170*t551*t600+2.124190580736E-15*t312*t791*t798)*t180*t36*
5834 t4+(-0.00391339296*t69*t161+1.2820324896E-4*t62*t67*t161-1.4008174732800002E-6*
5835 t68*t65*t161+6.11617609728E-9*t66*t140*t161-8.887772044800001E-12*
5836 t63*t299*t161+3.503279289599999E-4*t60*t67*t158-1.0218586855680001E-5*
5837 t60*t62*t65*t158+1.0393629530112003E-7*t60*t68*t140*t158-4.380727421952E-10*
5838 t60*t66*t299*t158+6.399195872256002E-13*t60*t63*t485*t158-
5839 2.75408159616E-6*t159*t65*t155+7.551977918976003E-8*t159*t62*
5840 t140*t155-7.387178476032001E-10*t159*t68*t299*t155+3.055049511321601E-12*
5841 t159*t66*t485*t155-4.479437110579201E-15*t159*t63*t729*t155)*
5842 t151;
5843 d4fdgbgbgbab = 0.0;
5844 d4fdgbgbabab = 0.0;
5845 d4fdgbababab = 0.0;
5846 d4fdabababab = 0.0;
5847
5848
5849 ds->df1000 += factor*dfdra;
5850 ds->df0100 += factor*dfdrb;
5851 ds->df0010 += factor*dfdga;
5852 ds->df0001 += factor*dfdgb;
5853 ds->df00001+= factor*dfdgab;
5854
5855 ds->df2000 += factor*d2fdrara;
5856 ds->df1100 += factor*d2fdrarb;
5857 ds->df1010 += factor*d2fdraga;
5858 ds->df1001 += factor*d2fdragb;
5859 ds->df10001+= factor*d2fdraab;
5860 ds->df0200 += factor*d2fdrbrb;
5861 ds->df0110 += factor*d2fdrbga;
5862 ds->df0101 += factor*d2fdrbgb;
5863 ds->df01001+= factor*d2fdrbgab;
5864 ds->df0020 += factor*d2fdgaga;
5865 ds->df0011 += factor*d2fdgagb;
5866 ds->df00101+= factor*d2fdgagab;
5867 ds->df0002 += factor*d2fdgbgb;
5868 ds->df00011+= factor*d2fdgbgab;
5869 ds->df00002+= factor*d2fdgabgab;
5870
5871 ds->df3000 += factor*d3fdrarara;
5872 ds->df2100 += factor*d3fdrararb;
5873 ds->df2010 += factor*d3fdraraga;
5874 ds->df2001 += factor*d3fdraragb;
5875 ds->df20001 += factor*d3fdraraab;
5876 ds->df1200 += factor*d3fdrarbrb;
5877 ds->df1110 += factor*d3fdrarbga;
5878 ds->df1101 += factor*d3fdrarbgb;
5879 ds->df11001 += factor*d3fdrarbab;
5880 ds->df1020 += factor*d3fdragaga;
5881 ds->df1011 += factor*d3fdragagb;
5882 ds->df10101 += factor*d3fdragaab;
5883 ds->df1002 += factor*d3fdragbgb;
5884 ds->df10011 += factor*d3fdragbab;
5885 ds->df10002 += factor*d3fdraabab;
5886 ds->df0300 += factor*d3fdrbrbrb;
5887 ds->df0210 += factor*d3fdrbrbga;
5888 ds->df0201 += factor*d3fdrbrbgb;
5889 ds->df02001 += factor*d3fdrbrbab;
5890 ds->df0120 += factor*d3fdrbgaga;
5891 ds->df0111 += factor*d3fdrbgagb;
5892 ds->df01101 += factor*d3fdrbgaab;
5893 ds->df0102 += factor*d3fdrbgbgb;
5894 ds->df01011 += factor*d3fdrbgbab;
5895 ds->df01002 += factor*d3fdrbabab;
5896 ds->df0030 += factor*d3fdgagaga;
5897 ds->df0021 += factor*d3fdgagagb;
5898 ds->df00201 += factor*d3fdgagaab;
5899 ds->df0012 += factor*d3fdgagbgb;
5900 ds->df00111 += factor*d3fdgagbab;
5901 ds->df00102 += factor*d3fdgaabab;
5902 ds->df0003 += factor*d3fdgbgbgb;
5903 ds->df00021 += factor*d3fdgbgbab;
5904 ds->df00012 += factor*d3fdgbabab;
5905 ds->df00003 += factor*d3fdababab;
5906
5907 ds->df4000 += factor*d4fdrararara;
5908 ds->df3100 += factor*d4fdrarararb;
5909 ds->df3010 += factor*d4fdrararaga;
5910 ds->df3001 += factor*d4fdrararagb;
5911 ds->df30001 += factor*d4fdrararaab;
5912 ds->df2200 += factor*d4fdrararbrb;
5913 ds->df2110 += factor*d4fdrararbga;
5914 ds->df2101 += factor*d4fdrararbgb;
5915 ds->df21001 += factor*d4fdrararbab;
5916 ds->df2020 += factor*d4fdraragaga;
5917 ds->df2011 += factor*d4fdraragagb;
5918 ds->df20101 += factor*d4fdraragaab;
5919 ds->df2002 += factor*d4fdraragbgb;
5920 ds->df20011 += factor*d4fdraragbab;
5921 ds->df20002 += factor*d4fdraraabab;
5922 ds->df1300 += factor*d4fdrarbrbrb;
5923 ds->df1210 += factor*d4fdrarbrbga;
5924 ds->df1201 += factor*d4fdrarbrbgb;
5925 ds->df12001 += factor*d4fdrarbrbab;
5926 ds->df1120 += factor*d4fdrarbgaga;
5927 ds->df1111 += factor*d4fdrarbgagb;
5928 ds->df11101 += factor*d4fdrarbgaab;
5929 ds->df1102 += factor*d4fdrarbgbgb;
5930 ds->df11011 += factor*d4fdrarbgbab;
5931 ds->df11002 += factor*d4fdrarbabab;
5932 ds->df1030 += factor*d4fdragagaga;
5933 ds->df1021 += factor*d4fdragagagb;
5934 ds->df10201 += factor*d4fdragagaab;
5935 ds->df1012 += factor*d4fdragagbgb;
5936 ds->df10111 += factor*d4fdragagbab;
5937 ds->df10102 += factor*d4fdragaabab;
5938 ds->df1003 += factor*d4fdragbgbgb;
5939 ds->df10021 += factor*d4fdragbgbab;
5940 ds->df10012 += factor*d4fdragbabab;
5941 ds->df10003 += factor*d4fdraababab;
5942 ds->df0400 += factor*d4fdrbrbrbrb;
5943 ds->df0310 += factor*d4fdrbrbrbga;
5944 ds->df0301 += factor*d4fdrbrbrbgb;
5945 ds->df03001 += factor*d4fdrbrbrbab;
5946 ds->df0220 += factor*d4fdrbrbgaga;
5947 ds->df0211 += factor*d4fdrbrbgagb;
5948 ds->df02101 += factor*d4fdrbrbgaab;
5949 ds->df0202 += factor*d4fdrbrbgbgb;
5950 ds->df02011 += factor*d4fdrbrbgbab;
5951 ds->df02002 += factor*d4fdrbrbabab;
5952 ds->df0130 += factor*d4fdrbgagaga;
5953 ds->df0121 += factor*d4fdrbgagagb;
5954 ds->df01201 += factor*d4fdrbgagaab;
5955 ds->df0112 += factor*d4fdrbgagbgb;
5956 ds->df01111 += factor*d4fdrbgagbab;
5957 ds->df01102 += factor*d4fdrbgaabab;
5958 ds->df0103 += factor*d4fdrbgbgbgb;
5959 ds->df01021 += factor*d4fdrbgbgbab;
5960 ds->df01012 += factor*d4fdrbgbabab;
5961 ds->df01003 += factor*d4fdrbababab;
5962 ds->df0040 += factor*d4fdgagagaga;
5963 ds->df0031 += factor*d4fdgagagagb;
5964 ds->df00301 += factor*d4fdgagagaab;
5965 ds->df0022 += factor*d4fdgagagbgb;
5966 ds->df00211 += factor*d4fdgagagbab;
5967 ds->df00202 += factor*d4fdgagaabab;
5968 ds->df0013 += factor*d4fdgagbgbgb;
5969 ds->df00121 += factor*d4fdgagbgbab;
5970 ds->df00112 += factor*d4fdgagbabab;
5971 ds->df00103 += factor*d4fdgaababab;
5972 ds->df0004 += factor*d4fdgbgbgbgb;
5973 ds->df00031 += factor*d4fdgbgbgbab;
5974 ds->df00022 += factor*d4fdgbgbabab;
5975 ds->df00013 += factor*d4fdgbababab;
5976 ds->df00004 += factor*d4fdabababab;
5977
5978 }
5979